Q
3 
R
0 
0 
0                   OPERATING SYSTEM =  NOS 2.8.7 871/871.   23/09/20. PRINTED = 24/05/02. 13.22.57.
0                   UJN          =  FTN5        FAMILY    = CYBER         JOB ORIGIN    = BATCH.              
                    CREATING JSN =  AABD        USER NAME = INSTALL       SERVICE CLASS = BATCH.                        
                                                                                                              
0 
0 
       AAAAAAAAAA    AAAAAAAAAA    AAAAAAAAAA   IIIIIIIIIIII   AAAAAAAAAA    AAAAAAAAAA   BBBBBBBBBBB   DDDDDDDDDD    
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA  IIIIIIIIIIII  AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  DDDDDDDDDDD   
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBBB  DD        DD  
      AAAAAAAAAAAA  AAAAAAAAAAAA  AAAAAAAAAAAA       II       AAAAAAAAAAAA  AAAAAAAAAAAA  BBBBBBBBBBB   DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA       II       AA        AA  AA        AA  BB        BB  DD        DD  
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBBB  DDDDDDDDDDD   
      AA        AA  AA        AA  AA        AA  IIIIIIIIIIII  AA        AA  AA        AA  BBBBBBBBBBB   DDDDDDDDDD    
Q
T
2  MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
   WMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMW
   MWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWMWM
S
2 
R
1UNLABELED OLDPL               CARDS ENCOUNTERED IN INPUT             UPDATE 1.4-871.      24/05/02. 13.10.57.      PAGE   1    
  
 /////    *COMPILE COMCARG.COMPCOM    
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 13.10.57.      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                          UPDATE 1.4-871.      24/05/02. 13.10.57.      PAGE   3    
  
0          DECK LIST AS READ FROM OLDPL PLUS ADDED NEW DECKS
  
  
          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       
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   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 
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL               CARDS ENCOUNTERED IN INPUT             UPDATE 1.4-871.      24/05/02. 13.11.04.      PAGE   1    
  
 /////    /COMPILE,CFC5     
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
0       
  
0       
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          AM2       BAS       BE4       CCG       CD2       CL5       CPS       C45     
          DBU       DCL       DC2       DL3       FCC       FCL       FC5       FDB     
          FL5       FO4       F45       ID1       KPLA      KPLB      LDR       PA1     
          PMD       QU3       SMP       ST5       SW1       UPD       XSY       CAM2    
          CBAS      CBE4      CCCG      CCD2      CCL5      CCPS      CC45      CDBU    
          CDCL      CDC2      CDL3      CFCC      CFCL      CFC5      CFDB      CFL5    
          CFO4      CF45      CID1      CKPLA     CKPLB     CLDR      CPA1      CPMD    
          CQU3      CSMP      CST5      CSW1      CUPD      CXSY      ATF       BS5     
          CC5       CHA       DG5       MCS       NA5       PS5       RB5       RN5     
          TCH       CATF      CBS5      CCC5      CCHA      CDG5      CMCS      CNA5    
          CPS5      CRB5      CRN5      CTCH      CCL       CCCL      RHC       RHF     
          RHP       ITF       CRHC      CRHF      CRHP      CITF      APL       BIN     
          CED       CNT       FCP       FMT       HCD       LCP       MAP       MA3     
          NSS       NS2       ST4       CAPL      CBIN      CCED      CCNT      CFCP    
          CFMT      CHCD      CLCP      CMAP      CMA3      CNSS      CNS2      CST4    
0       
  
0          DECK LIST AS READ FROM OLDPL PLUS ADDED NEW DECKS
  
  
          YANK$$$   AM2       BAS       BE4       CCG       CD2       CL5       CPS     
          C45       DBU       DCL       DC2       DL3       FCC       FCL       FC5     
          FDB       FL5       FO4       F45       ID1       KPLA      KPLB      LDR     
          PA1       PMD       QU3       SMP       ST5       SW1       UPD       XSY     
          CAM2      CBAS      CBE4      CCCG      CCD2      CCL5      CCPS      CC45    
          CDBU      CDCL      CDC2      CDL3      CFCC      CFCL      CFC5      CFDB    
          CFL5      CFO4      CF45      CID1      CKPLA     CKPLB     CLDR      CPA1    
          CPMD      CQU3      CSMP      CST5      CSW1      CUPD      CXSY      ATF     
          BS5       CC5       CHA       DG5       MCS       NA5       PS5       RB5     
          RN5       TCH       CATF      CBS5      CCC5      CCHA      CDG5      CMCS    
          CNA5      CPS5      CRB5      CRN5      CTCH      CCL       CCCL      RHC     
          RHF       RHP       ITF       CRHC      CRHF      CRHP      CITF      APL     
          BIN       CED       CNT       FCP       FMT       HCD       LCP       MAP     
          MA3       NSS       NS2       ST4       CAPL      CBIN      CCED      CCNT    
          CFCP      CFMT      CHCD      CLCP      CMAP      CMA3      CNSS      CNS2    
          CST4    
1UNLABELED OLDPL              DECK LIST AS WRITTEN, IF NEWPL          UPDATE 1.4-871.      24/05/02. 13.11.04.      PAGE   2    
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   CFC5    
0       
  
          DECKS WRITTEN TO COMPILE FILE 
  
          CFC5    
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   1    
  
0       
  
 FWACOM   *IF DEF,TEST                                                                     FC5A370        5 
 FWACOM   *ENDIF                                                                           FWACOM        18 
0       
  
 OPTIONS  *IF DEF,TEST,1                                                                   FC5A370        6 
 OPTIONS  *IF -DEF,TEST,1                                                                  FC5A370        7 
0       
  
 FTN5TXT  *CALL     OPTIONS            COMPILER INSTALLATION OPTIONS.                      FTN5TXT       29 
 FTN5TXT  *CALL     FA=DEFS            I/O MACROS FOR UPPER AND LOWER CYBERS.              FTN5TXT      115 
 FTN5TXT  *CALL     COMADEF            STRUCTURED FIELD DECLARATION MACROS.                FTN5TXT      116 
 FTN5TXT  *CALL     COMAIDP            IDP ACCESS MACROS                                   FTN5TXT      330 
 FTN5TXT  *CALL     COMACPU            GENERAL CPU MACROS.                                 FTN5TXT      332 
 FTN5TXT  *CALL     COMAMGM            MORE (LESS) GENERAL MACROS.                         FTN5TXT      334 
 FTN5TXT  *CALL     COMSIOC            DEFINE I/O CONTROL CODES                            FTN5TXT     1062 
 FTN5TXT  *CALL     COMSPSU            PSEUDO INSTRUCTION DEFINITIONS                      FTN5TXT     1256 
 FTN5TXT  *CALL     COMSPBD            PREBINARY STRUCTURE DECLARATIONS.                   FTN5TXT     1258 
 FTN5TXT  *CALL     COMSSYM            SYMBOL TABLE STRUCTURE DECLARATIONS.                FTN5TXT     1260 
0       
  
 WEOR1*   *WEOR 0   (1)  END OF FTN5TXT.                                                   FC5A370        9 
0       
  
 FTN      *CALL     COMFCIP - COMPILER INSTALLATION PARAMETERS                             FTN          673 
 FTN      *CALL     COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.                     FTN          744 
 FTN      *CALL COMFTTL                                                                    FTN         1161 
 FTN      *CALL COMFTTL                                                                    FTN         1173 
 FTN      *CALL     COMCCOD            CONVERT OCTAL DIGITS                                FTN         1621 
0       
  
 UTILITY  *CALL     COMCCDD            CONVERT DECIMAL DIGITS                              UTILITY       16 
 UTILITY  *CALL     COMCDXB            DISPLAY CODE TO BINARY                              UTILITY       19 
 UTILITY  *CALL FA=SET                                                                     UTILITY       21 
 UTILITY  *CALL     COMCMVE            MOVE BLOCK OF MEMORY                                UTILITY       22 
 UTILITY  *CALL     CCOMRPV            COMPILER REPRIEVE UTILITY                           UTILITY       32 
 UTILITY  *CALL     COMCMNS            MOVE BITS, NO OVERLAP                               UTILITY       34 
 UTILITY  *CALL     COMCSBM            SET BLOCK OF MEMORY                                 UTILITY       36 
 UTILITY  *CALL     COMCSFN            SPACE FILL NAME                                     UTILITY       38 
 UTILITY  *CALL     COMCSST            SHELL SORT TABLE                                    UTILITY       41 
 UTILITY  *CALL     COMCWOD            WRITE OCTAL DIGITS                                  UTILITY       43 
 UTILITY  *CALL     COMCZTB            CONVERT ZEROES TO BLANKS                            UTILITY       46 
 UTILITY  *CALL     COMCCIO            MACE I/O FUNCTIN PROCESSOR                          UTILITY       49 
 UTILITY  *CALL     COMCRDC            READ CODED LINE, -C- FORMAT                         UTILITY       51 
 UTILITY  *CALL     COMCRDW            READ WORDS TO WORKING BUFFER                        UTILITY       53 
 UTILITY  *CALL     COMCWTH            WRITE CODED LINE IN *H* FORMAT                      UTILITY       55 
 UTILITY  *CALL     COMCWTO            WRITE ONE WORD                                      UTILITY       57 
 UTILITY  *CALL     COMCWTW            WRITE WORDS FROM WORKING BUFFER                     UTILITY       59 
 UTILITY  *CALL     FA=CLO             CLOSE FILE (7RM PSEUDO MACE I/O)                    UTILITY       64 
 UTILITY  *CALL     FA=EOF             WRITE END-OF-FILE (7RM PSEUDO MACE I/O)             UTILITY       66 
 UTILITY  *CALL     FA=EOR             WRITE END-OF-RECORD (7RM PSEUDO MACE I/O)           UTILITY       68 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   2    
  
 UTILITY  *CALL     FA=FLSH            FLUSH FILE HOLDING BUFFER                           UTILITY       70 
 UTILITY  *CALL     FA=OPE             OPEN FILE (7RM PSEUDO MACE I/O)                     UTILITY       72 
 UTILITY  *CALL     FA=RDC             7RM PSEUDO COMCRDC                                  UTILITY       74 
 UTILITY  *CALL     FA=RDW             7RM PSEUDO COMCRDW                                  UTILITY       76 
 UTILITY  *CALL     FA=RWX             REWIND FILE (7RM PSEUDO MACE I/O)                   UTILITY       78 
 UTILITY  *CALL     FA=WTH             7RM PSEUDO COMCWTH                                  FC50467        7 
 UTILITY  *CALL     FA=WTW             7RM PSEUDO COMCWTW                                  UTILITY       82 
0       
  
 PUC      *CALL COMSTAB                                                                    PUC          181 
 COMSTAB  *CALL COMSTAD                                                                    COMSTAB        4 
 COMSTAB  *CALL COMSTAS                                                                    COMSTAB        5 
 PUC      *CALL     COMSLBT            DEFINE LOCAL BLOCK TABLE                            PUC          258 
 PUC      *CALL COMCCFD                                                                    FC5A158A     267 
 PUC      *CALL     COMFECB            EVALUATE CONSTANT SUBSTRING AND BIAS                PUC          905 
0       
  
 CCGLINK  *CALL COMSTAB                                                                    CCGLINK      166 
 COMSTAB  *CALL COMSTAD                                                                    COMSTAB        4 
 COMSTAB  *CALL COMSTAS                                                                    COMSTAB        5 
0       
  
 CSNAP    *IF DEF,TEST                                                                     FC5A388        7 
 CSNAP    *ENDIF TEST                                                                      FC5A388        9 
0       
  
 PEM      *CALL     COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR              PEM           23 
 PEM      *CALL     COMQSVR                                                                PEM          452 
0       
  
 IDP      *IF DEF,TEST                                                                     FC5A370       11 
 IDP      *ENDIF                                                                           IDP          606 
0       
  
 INIT00   *CALL     COMFCIP            COMPILER INSTALLATION PARAMETERS                    INIT00        58 
 INIT00   *CALL     COMCPAC            PROCESS ARGUMENTS FROM CONTROL STATEMENT            INIT00       130 
 INIT00   *CALL COMCCPM                                                                    FC5A426      109 
 INIT00   *CALL     COMCSTF            SET TERMINAL FILE                                   INIT00      1379 
 INIT00   *CALL     COMFGOI            GLOBAL OVERLAY INITIALIZATION (QCG ONLY)            INIT00      1380 
 INIT00   *CALL     COMFFEI                  FRONT END INITIALIZATION                      INIT00      1382 
 INIT00   *CALL     COMSEIS            DEFINE SK. DATA STRUCTURE                           INIT00      1384 
 INIT00   *CALL     COMFROR            RESET OPCODE OF ROUNDABLES                          INIT00      1385 
0       
  
 INIT10   *CALL     COMFGOI            GLOBAL OVERLAY INITIALIZATION (QCG)                 INIT10        85 
 INIT10   *CALL     COMFFEI                  FRONT END INITIALIZATION                      INIT10        87 
 INIT10   *CALL     COMSEIS            DEFINE THE SK. DATA STRUCTURE                       INIT10        89 
 INIT10   *CALL     COMFROR            RESET OPCODE OF ROUNDABLES                          INIT10        91 
0       
  
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   3    
  
 INIT20   *CALL     COMFCIP            COMPILER INSTALLATION PARAMETERS                    INIT20        53 
0       
  
 INIT21   *CALL     COMFFEI                  FRONT END INITIALIZATION                      INIT21       118 
 INIT21   *CALL COMSEIS                                                                    INIT21       120 
 INIT21   *CALL COMFROR                                                                    INIT21       122 
0       
  
 FEC      *CALL     COMFSCS            SCAN TABLE WITH SUPPLIED MASK                       FEC         2504 
0       
  
 FERRS    *CALL     COMSSYC            NAMES OF SYMBOL CLASSES                             FERRS         38 
 FERRS    *CALL     COMAERR            ERROR PROCESSOR MACROS                              FERRS         45 
 FERRS    *CALL     COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR              FERRS         46 
 FERRS    *CALL     COMFERR            COMMON FRONT/REAR DIAGNOSTICS                       FERRS        649 
0       
  
 FSNAP    *IF DEF,TEST                                                                     FC5A388       11 
 FSNAP    *ENDIF TEST                                                                      FC5A388       13 
0       
  
 LEX      *CALL     COMATOK            THE *TOGEL* MACROS                                  LEX          544 
 LEX      *CALL     COMSTOK            COMMON TOKEN GENERATOR INTERFACE TEXT.              LEX          545 
 LEX      *CALL     COMCTOK            TOKEN GENERATOR.                                    LEX         3487 
 LEX      *CALL     COMCBUB            BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          LEX         4759 
 LEX      *CALL     COMCBUN            BURST/BUILD CHARACTERS - NO BLANK SQUEEZE.          LEX         4761 
0       
  
 DECL     *CALL,COMFDST                                                                    DECL        2367 
0       
  
 IO       *CALL COMSIOC                                                                    IO           165 
0       
  
 CONRED   *CALL SKPSET                                                                     CONRED        50 
 CONRED   *CALL SKPCONQ                                                                    CONRED        51 
 CONRED   *CALL COMSEIS                                                                    CONRED        52 
 CONRED   *CALL     FSCALE             FLOATING DOUBLE PRECISION CONVERSION                CONRED       539 
 CONRED   *CALL SKOP                                                                       CONRED       894 
0       
  
 QCGC     *CALL     COMAQCG            QCG MACRO DEFINITIONS                               QCGC          51 
 QCGC     *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS.                         QCGC          52 
 QCGC     *CALL     COMSQRF            QCG REGISTER ASSOCIATES                             QCGC          53 
 QCGC     *CALL     SKPSET             SET SOMETHING FOR SKOP                              QCGC          57 
 QCGC     *CALL     SKPCONQ            CONSTANTS FOR SKOP                                  QCGC          59 
 QCGC     *CALL     COMFWIN            WRITE INSTRUCTIONS TO PREBINARY                     QCGC         862 
 COMFWIN  *CALL     COMSPSU            PSEUDO INSTRUCTION JUMP TABLE                       COMFWIN      399 
 QCGC     *CALL     COMFITS            ISSUE TEMP STORAGE                                  QCGC         868 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   4    
  
 QCGC     *CALL     COMFUSE            PROCESS USE PSEUDO INSTRUCTION                      QCGC         870 
0       
  
 QSKEL    *CALL COMFSKL                                                                    QSKEL         46 
 COMFSKL  *CALL     COMSEIS            SKELETON FORMAT FOR INSTRUCTIONS                    COMFSKL      416 
 COMFSKL  *CALL SKPSET                                                                     COMFSKL      565 
 COMFSKL  *CALL SKPCONQ                                                                    COMFSKL      566 
 COMFSKL  *CALL     SKOP               SKELETON OPERATION DEFINITIONS                      COMFSKL      616 
 COMFSKL  *CALL     COMSQRF            DEFINE QCG REGISTER SYMBOLS                         COMFSKL      625 
 COMFSKL  *CALL     DEFINS             MACHINE OPCODE DEFINITIONS                          COMFSKL      629 
 COMFSKL  *CALL     SKEL               TURPLE EXPANSION PATTERNS                           COMFSKL      716 
 COMFSKL  *CALL     PARSKEL            PARSER LINKAGE TO SKELETONS                         COMFSKL      747 
0       
  
 FUN      *CALL     COMAQCG            QCG MACRO DEFINITIONS.                              FUN           46 
 FUN      *CALL     COMSQCG            QCG STRUCTURE DEFINITIONS.                          FUN           47 
 FUN      *CALL     COMSQRF            QCG REGISTER ASSOCIATES.                            FUN           48 
 FUN      *CALL     DEFINS             DEFINE MACHINE OPCODES                              FUN           50 
 FUN      *CALL COMFSCB                                                                    FUN         2127 
0       
  
 REG      *CALL     COMAQCG            QCG MACRO DEFINITIONS                               REG           25 
 REG      *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS                          REG           27 
 REG      *CALL     COMSQRF            QCG REGISTER ASSOCIATES                             REG           29 
 REG      *CALL     DEFINS             DEFINE MACHINE OPCODES                              REG           31 
0       
  
 GEN      *CALL     COMAQCG            QCG MACRO DEFINITIONS                               GEN           51 
 GEN      *CALL     COMSEIS            QCG SKELETON WORD FORMAT                            GEN           53 
 GEN      *CALL     COMSQCG            QCG STRUCTURE DECLARATIONS                          GEN           55 
 GEN      *CALL     COMSQRF            QCG REGISTER ASSOCIATES                             GEN           57 
 GEN      *CALL     DEFINS             DEFINE MACHINE OPCODES                              GEN           59 
 GEN      *CALL     SKOP               DEFINE LINKAGE TO AT.PROCESSORS                     GEN          355 
 GEN      *CALL COMFISA                                                                    GEN         1415 
 GEN      *CALL COMFOSC                                                                    GEN         1416 
 GEN      *CALL COMFMAV                                                                    GEN         1417 
 GEN      *CALL COMFICP                                                                    GEN         1544 
 GEN      *CALL     COMFGFD                  GENERATE FILE DECLARATIONS                    GEN         1710 
 GEN      *CALL COMFPLI                ISSUE QXNTRY. APLIST                                GEN         1796 
0       
  
 WEOR2*   *WEOR 0   (2)  END OF F. E. + QCG.                                               FC5A370       13 
0       
  
 REC      *CALL,COMSLBT                                                                    REC           51 
0       
  
 RERRS    *CALL     COMAERR            ERROR PROCESSOR MACROS                              RERRS         10 
 RERRS    *CALL     COMSERR            SYMBOL DEFINITIONS FOR ERROR PROCESSOR              RERRS         11 
 RERRS    *CALL COMFERR                                                                    RERRS         13 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   5    
  
0       
  
 RLINK    *CALL     OPRDEFS            OPT OPCODE DEFINITIONS                              RLINK        101 
 RLINK    *CALL COMFSCS                                                                    RLINK        679 
0       
  
 RSNAP    *IF DEF,TEST                                                                     FC5A388       15 
 RSNAP    *ENDIF TEST                                                                      FC5A388       17 
0       
  
 FAS      *CALL,COMSIOC                                                                    FAS          411 
 FAS      *CALL     COMSPSU            PSEUDO INSTRUCTION DEFINITIONS                      FAS          427 
 FAS      *CALL,COMFUSE                                                                    FAS         3840 
0       
  
 LIST     *CALL     COMSLBT            DEFINE LOCAL BLOCK NAMES                            LIST        1804 
0       
  
 WEOR3*   *WEOR 0   (3)  END OF PASS 3.                                                    FC5A370       15 
0       
  
 CCGC     *CALL COMSTAB                                                                    CCGC          86 
 COMSTAB  *CALL COMSTAD                                                                    COMSTAB        4 
 COMSTAB  *CALL COMSTAS                                                                    COMSTAB        5 
 CCGC     *CALL     COMFWIN            WRITE INSTRUCTIONS TO PREBINARY                     CCGC         175 
 COMFWIN  *CALL     COMSPSU            PSEUDO INSTRUCTION JUMP TABLE                       COMFWIN      399 
 CCGC     *CALL     COMFITS                                                                CCGC         182 
 CCGC     *CALL     COMFUSE            PROCESS USE PSEUDO INSTRUCTION                      CCGC         186 
 CCGC     *CALL COMFISA                                                                    CCGC         583 
 CCGC     *CALL COMFMAV                                                                    CCGC         584 
 CCGC     *CALL COMFOSC                                                                    CCGC         759 
0       
  
 BRIDGE   *CALL     SKOP   SKELETON OPERAND JUMP TABLE                                     BRIDGE       745 
 BRIDGE   *CALL,COMFGFD                GENERATE FILE DECLARATIONS                          BRIDGE      1432 
 BRIDGE   *CALL COMFPLI                ISSUE QXNTRY. APLIST                                BRIDGE      1439 
 BRIDGE   *CALL COMFICP                                                                    BRIDGE      1607 
 BRIDGE   *CALL COMFSCB                                                                    BRIDGE      2951 
 BRIDGE   *CALL     COMFSIM            SELECT INTEGER MULTIPLY SUBSKEL                     BRIDGE      4414 
 BRIDGE   *CALL     COMFSID            SELECT INTEGER DIVIDE SUBSKEL                       BRIDGE      4418 
 BRIDGE   *CALL     COMFSMK            SELECT MASK SUBSKEL                                 BRIDGE      4423 
 BRIDGE   *CALL     COMFSMD            SELECT MOD SUBSKEL                                  BRIDGE      4428 
 BRIDGE   *CALL     COMFSSH            SELECT SHIFT SUBSKEL                                BRIDGE      4432 
0       
  
 CSKEL    *CALL     SKOP   SKELETON OPERANDS                                               CSKEL        330 
 CSKEL    *CALL OPRDEFS                                                                    CSKEL        351 
 CSKEL    *CALL     SKEL   CODE SKELETONS                                                  CSKEL        479 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   6    
  
0       
  
 FSKEL    *CALL COMFSKL                                                                    FSKEL         20 
 COMFSKL  *CALL     COMSEIS            SKELETON FORMAT FOR INSTRUCTIONS                    COMFSKL      416 
 COMFSKL  *CALL SKPSET                                                                     COMFSKL      565 
 COMFSKL  *CALL SKPCONQ                                                                    COMFSKL      566 
 COMFSKL  *CALL     SKOP               SKELETON OPERATION DEFINITIONS                      COMFSKL      616 
 COMFSKL  *CALL     COMSQRF            DEFINE QCG REGISTER SYMBOLS                         COMFSKL      625 
 COMFSKL  *CALL     DEFINS             MACHINE OPCODE DEFINITIONS                          COMFSKL      629 
 COMFSKL  *CALL     SKEL               TURPLE EXPANSION PATTERNS                           COMFSKL      716 
 COMFSKL  *CALL     PARSKEL            PARSER LINKAGE TO SKELETONS                         COMFSKL      747 
0       
  
 INIT22   *CALL     COMSTAB            TABLES COMMUNICATED TO CCG                          INIT22       142 
 COMSTAB  *CALL COMSTAD                                                                    COMSTAB        4 
 COMSTAB  *CALL COMSTAS                                                                    COMSTAB        5 
 INIT22   *CALL     COMFROR            RESET OPCODE OF ROUNDABLES                          INIT22       212 
0       
  
 WEOR4*   *WEOR 0   (4)  END OF BRIDGE.                                                    FC5A370       17 
0       
  
 OVL00    *IF,DEF,TEST     IDP.FSNAP                                                       FC5A370       19 
 OVL00    *ENDIF                                                                           OVL00         89 
0       
  
 OVL10    *CALL COMFCIP                                                                    OVL10          9 
 OVL10    *IF DEF,TEST     IDP.FSNAP                                                       FC5A370       21 
 OVL10    *ENDIF                                                                           OVL10         81 
0       
  
 OVL20    *CALL COMFCIP                                                                    OVL20          9 
 OVL20    *IF DEF,TEST     IDP.CPULFM                                                      FC5A370       23 
 OVL20    *ENDIF                                                                           OVL20         66 
0       
  
 OVL21    *IF DEF,TEST,2                                                                   FC5A370       25 
0       
  
 OVL22    *IF DEF,TEST                                                                     FC5A370       26 
 OVL22    *ENDIF                                                                           OVL22        105 
0       
  
 OVL23    *IF DEF,TEST,2                                                                   FC5A370       28 
0       
  
 WEOR5*   *WEOR 0   (5)  END OF SKELETON FRAME.                                            FC5A370       30 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   7    
  
0       
  
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   8    
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          HISTORY   *COMDKS*  CCOMRPV   CGHCDTD   CGHCSTD   COMACPU   COMADEF   COMAERR 
          COMAMGM   COMAQCG   COMCMCS   COMCPAC   COMCSBM   COMDDMT   COMFCIP   COMFDST 
          COMFECB   COMFFEI   COMFERR   COMFFFN   COMFGFD   COMFGOI   COMFICP   COMFISA 
          COMFITS   COMFMAV   COMFMFP   COMFOSC   COMFPLI   COMFRNC   COMFROR   COMFSCB 
          COMFSCS   COMFSID   COMFSIM   COMFSKL   COMFSMD   COMFSMK   COMFSSH   COMFTTL 
          COMFUSE   COMSPSU   COMFWIN   COMSEIS   COMSERR   COMSIOC   COMSLBT   COMSQCG 
          COMSQRF   COMSPBD   COMSSYM   COMSSYC   COMSTAB   COMSTAD   COMSTAS   DEFINS  
          FSCALE    HCDEFS    FWACOM    OPTIONS   PARSKEL   SKEL      SKOP      SKPCONQ 
          SKPSET    SMACROS   SYMDEFS   ZZZCOM    *TEXTS*   FTN5TXT   CWEOR1    *FTN*   
          FTN       UTILITY   PUC       QCGLINK   CCGLINK   CSNAP     PEM       ALLOC   
          IDP       INIT00    INIT10    INIT20    INIT21    INIT23    *FRONT*   FEC     
          FERRS     FLINK     FSNAP     LEX       HEADER    KEY       CDDIR     DATA    
          DECL      TYPE      FMT       IO        PAR       CONRED    STMTF     LABEL   
          *QCG*     QCGC      QSKEL     FUN       REG       GEN       CWEOR2    *REAR*  
          REC       RERRS     RLINK     RSNAP     FAS       ZEROLNK   MAP       LIST    
          CWEOR3    *BRIDGE*  CCGC      BRIDGE    CSKEL     FSKEL     INIT22    CWEOR4  
          *FRAME*   OVL00     OVL10     OVL20     OVL21     OVL22     OVL23     CWEOR5  
          FC5A108   *L498*    FC5A113   FC5A114   *L505*    F2950F5   FC5A107   FC5A109 
          FC5A110   FC5A111   FC5A112   FC5A115   FC5A116   FC5A118   FC5A119   FC5A120 
          FC5A121   FC5A122   FC5A124   FC5A125   FC5A126   FC5A127   FC5A128   FC5A129 
          FC5A130   FC5A131   FC5A132   FC5A133   FC5A135   FC5A136   *L508*    F2950F5A
          FC5A138   FC5A139   FC5A140   FC5A141   FC5A143   FC5A144   FC5A145   FC5A146 
          FC5A147   FC5A148   FC5A150   FC5A151   FC5A152   FC5A155   FC5A156   FC5A157 
          FC5A158A  FC5A161   FC5A163   FC5A164   FC5A165   FC5A166   FC5A167   FC5A171A
          FC5A172   FC5A173   FC5A174   FC5A177   FC50001   FC50005   FC50007   FC50010 
          FC50011   FC50014   FC50015   *L518*    FC5*80    FC5A168A  FC5A180   FC5A181 
          FC5A182   FC5A183   FC5A184   FC5A185   FC5A186   FC5A187   FC5A188   FC5A189 
          FC5A190   FC5A191   FC5A192   FC5A194   FC5A195   FC5A196   FC5A197   FC5A203 
          FC5A204   FC5A209   FC50022   FC50023   FC50026   FC50029   FC50032   FC50035 
          FC50041   *L528*    F1037F5   FC5A206   FC5A207   FC5A211   FC5A213   FC5A214 
          FC5A216   FC5A217   FC5A218   FC5A219   FC5A220   FC5A221   FC5A222   FC5A224 
          FC5A225   FC5A226   FC5A227   FC5A228   FC5A229   FC5A230   FC5A231   FC5A232 
          FC5A233   FC5A234   FC5A235   FC5A239   FC5A243   FC5A244   FC5A248   FC5A250 
          FC5A251   FC5A252   FC5A253   FC5A254   FC5A255   FC5A257   FC5A258   FC5A261 
          FC5A262   FC5A264   FC5A266   FC5A271   FC50049   FC50050   FC50055   FC50061 
          FC50062   FC50066   FC50067   FC50068   FC50069   FC50084   FC50086   FC50090 
          FC50106   FC50110   FC50128   FC50130   FC50131   FC50136   FC50137   FC50138 
          FC50147   FC50148   FC50156   *L538*    FC5*81    F1037F5A  FC5A246   FC5A247 
          FC5A249   FC5A256   FC5A269   FC5A270   FC5A273   FC5A274   FC5A275   FC5A278 
          FC5A279   FC5A281   FC5A282   FC5A284   FC5A294   FC5A296   FC5A298   FC5A299 
          FC5A302   FC5A304   FC5A312   FC5A314   FC5A315   FC50096   FC50104   FC5A300 
          FC50168   FC50169   FC50170   FC50172   FC50180   FC50182   FC50199   FC50201 
          FC50207   FC50216   FC50218   FC50221   FC50226   FC50236   FC50237   FC50238 
          FC50243   FC50249   FC50250   FC50251   FC50265   FC50275   FC50293   FC50314 
          FC50317   FC50322   *L552*    FC5A310   FC5A317   FC5A321   FC5A323   FC5A325 
          FC5A330   FC5A333   FC5A335   FC5A337   FC5A338   FC5A341   FC5A343   FC5A345 
          FC5A348   FC50252   FC50264   FC50267   FC50281   FC50297   FC50299   FC50318 
          FC50336   FC50345   FC50353   FC50372   FC50374   FC50377   FC50378   FC50387 
          FC50391   FC50392   FC50396   FC50409   FC50417   FC50437   FC50438   FC50443 
          FC50445   FC50451   FC50452   FC50457   FC50460   FC50474   FC50475   FC50480 
          *L564*    FC5*82    F1039     FC5A360   FC5A369   FC5A370   FC5A371   FC5A373 
          FC5A374   FC50239   FC50326   FC50408   FC50413   FC50478   FC50483   FC50488 
          FC50496   FC50512   FC50514   FC50515   FC5A339   FC5A390   FC50518   FC50533 
          FC50545   FC50553   FC50554   FC50555   FC50557   FC50558   FC50560   FC50562 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE   9    
  
          FC50567   FC50570   FC50573   FC50586   FC50592   FC50593   FC50596   *L577*  
          FC5A346   FC5A375   FC5A380   FC5A381   FC5A385   FC5A386   FC5A388   FC5A391 
          FC5A395   FC5A399   FC5A404   FC50464   FC50587   FC50594   FC50600   FC50603 
          FC50606   FC50608   FC50610   FC50612   FC50616   FC50625   FC50626   FC50627 
          FC50628   FC50629   FC50632   FC50634   FC50636   FC50642   FC50643   FC50646 
          FC50651   FC50652   FC50656   FC50657   FC50662   FC50664   FC50667   FC50683 
          FC50686   FC50701   FC50703   *L587*    FC5A319   FC5A400   FC5A403   FC5A406 
          FC5A411   FC5A416   FC50189   FC50467   FC50492   FC50620   FC50681   FC50684 
          FC50718   FC50722   FC50728   FC50729   FC50730   FC50731   FC50735   FC50744 
          FC50748   FC50749   FC50755   FC50757   FC50760   FC50761   FC50763   FC50765 
          FC50766   FC50772   FC50773   FC50774   FC50775   FC50776   FC50785   FC50791 
          FC50792   FC50796   FC50797   FC50798   FC50799   FC50806   FC50818   *L601*  
          FC5A414   FC5A415   FC5A420   FC5A421   FC5A422   FC5A426   FC5A427   FC5A428 
          FC5A431   FC50811   FC50825   FC50829   FC50834   FC50842   FC50844   FC50857 
          FC50860   FC50870   FC50875   FC50879   FC50882   FC50883   FC50885   FC50886 
          FC50889   *L617*    FC5A433   FC5A436   FC5A437   FC5A442   FC5A445   FC5A446 
          FC50809   FC50904   FC50905   FC50906   FC50913   FC50915   FC50920   FC50923 
          FC50933   FC50935   FC50941   *L628*    FC5A438   FC5A441   FC5A444   FC5A450 
          FC50946   FC50947   FC50949   FC50950   FC50958   FC50962   FC50964   FC50969 
          FC50985   FC51035   FC51039   FC51048   FC51066   FC51069   FC51073   *L642*  
          FC5A464   FC5A478   FC50956   FC50966   FC50972   FC51002   FC51015   FC51029 
          FC51075   FC51078   FC51082   FC51150   FC51168   FC51193   FC51198   *L650*  
          FC5A460   FC5A471   FC5A480   FC50800   FC50887   FC50982   FC51047   FC51203 
          FC51206   FC51210   FC51232   FC51247   FC51250   FC51277   *L670*    FC5A483 
          FC5A491   FC5A495   FC5A496   FC51322   FC51325   FC51342   FC51344   FC51347 
          FC51351   FC51356   FC51364   FC51377   FC51379   FC51399   FC51413   FC51427 
          *L688*    FC5A511   FC50936   FC51422   FC51454   FC51485   FC51499   *L716*  
          FC5A517   FC5A521   FC51488   FC51490   FC51494   FC51497   FC51501   FC51509 
          FC51512   FC51521   FC51544   *L739*    FC5A522   FC51315   FC51554   FC51555 
          FC51560   FC51564   FC51566   FC51569   FC51572   FC51601   *L780*    FC51609 
          *L797*    *L803*    *L826*    *L840*    *L847*    *L851*    *L859*    *L871*  
          PSRLEVEL
0                 31 PURGED IDENTS WERE FOUND   
  
1UNLABELED OLDPL              DECK LIST AS WRITTEN, IF NEWPL          UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE  10    
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   HISTORY   *COMDKS*  CCOMRPV   CGHCDTD   CGHCSTD   COMACPU   COMADEF 
          COMAERR   COMAMGM   COMAQCG   COMCMCS   COMCPAC   COMCSBM   COMDDMT   COMFCIP 
          COMFDST   COMFECB   COMFFEI   COMFERR   COMFFFN   COMFGFD   COMFGOI   COMFICP 
          COMFISA   COMFITS   COMFMAV   COMFMFP   COMFOSC   COMFPLI   COMFRNC   COMFROR 
          COMFSCB   COMFSCS   COMFSID   COMFSIM   COMFSKL   COMFSMD   COMFSMK   COMFSSH 
          COMFTTL   COMFUSE   COMSPSU   COMFWIN   COMSEIS   COMSERR   COMSIOC   COMSLBT 
          COMSQCG   COMSQRF   COMSPBD   COMSSYM   COMSSYC   COMSTAB   COMSTAD   COMSTAS 
          DEFINS    FSCALE    HCDEFS    FWACOM    OPTIONS   PARSKEL   SKEL      SKOP    
          SKPCONQ   SKPSET    SMACROS   SYMDEFS   ZZZCOM    *TEXTS*   FTN5TXT   WEOR1*  
          *FTN*     FTN       UTILITY   LISTLNK   PUC       QCGLINK   CCGLINK   CSNAP   
          PEM       ALLOC     IDP       INIT00    INIT10    INIT20    INIT21    INIT23  
          *FRONT*   FEC       FERRS     FLINK     FSNAP     LEX       HEADER    KEY     
          CDDIR     DATA      DECL      TYPE      FMT       IO        PAR       CONRED  
          STMTF     LABEL     *QCG*     QCGC      QSKEL     FUN       REG       GEN     
          WEOR2*    *REAR*    REC       RERRS     RLINK     RSNAP     FAS       ZEROLNK 
          MAP       LIST      WEOR3*    *BRIDGE*  CCGC      BRIDGE    CSKEL     FSKEL   
          INIT22    WEOR4*    *FRAME*   OVL00     OVL10     OVL20     OVL21     OVL22   
          OVL23     WEOR5*    COPYWS  
0       
  
           COMMON DECKS ENCOUNTERED   
  
          HISTORY   CCOMRPV   CGHCDTD   CGHCSTD   COMACPU   COMADEF   COMAERR   COMAMGM 
          COMAQCG   COMCMCS   COMCPAC   COMCSBM   COMDDMT   COMFCIP   COMFDST   COMFECB 
          COMFFEI   COMFERR   COMFFFN   COMFGFD   COMFGOI   COMFICP   COMFISA   COMFITS 
          COMFMAV   COMFMFP   COMFOSC   COMFPLI   COMFRNC   COMFROR   COMFSCB   COMFSCS 
          COMFSID   COMFSIM   COMFSKL   COMFSMD   COMFSMK   COMFSSH   COMFTTL   COMFUSE 
          COMSPSU   COMFWIN   COMSEIS   COMSERR   COMSIOC   COMSLBT   COMSQCG   COMSQRF 
          COMSPBD   COMSSYM   COMSSYC   COMSTAB   COMSTAD   COMSTAS   DEFINS    FSCALE  
          HCDEFS    FWACOM    OPTIONS   PARSKEL   SKEL      SKOP      SKPCONQ   SKPSET  
          SMACROS   SYMDEFS   ZZZCOM    FA=DEFS   COMAIDP   COMPCOM   COMCCOD   COMCCDD 
          COMCDXB   FA=SET    COMCMVE   COMCMNS   COMCSFN   COMCSST   COMCWOD   COMCZTB 
          COMCCIO   COMCRDC   COMCRDW   COMCWTH   COMCWTO   COMCWTW   FA=CLO    FA=EOF  
          FA=EOR    FA=FLSH   FA=OPE    FA=RDC    FA=RDW    FA=RWX    FA=WTH    FA=WTW  
          COMCCFD   COMQSVR   COMCCPM   COMCSTF   COMATOK   COMSTOK   COMCTOK   COMCBUB 
          COMCBUN   OPRDEFS 
1UNLABELED OLDPL              DECKS WRITTEN TO COMPILE FILE           UPDATE 1.4-871.      24/05/02. 13.11.07.      PAGE  11    
  
          *COMDKS*  *TEXTS*   FTN5TXT   WEOR1*    *FTN*     FTN       UTILITY   LISTLNK 
          PUC       QCGLINK   CCGLINK   CSNAP     PEM       ALLOC     IDP       INIT00  
          INIT10    INIT20    INIT21    INIT23    *FRONT*   FEC       FERRS     FLINK   
          FSNAP     LEX       HEADER    KEY       CDDIR     DATA      DECL      TYPE    
          FMT       IO        PAR       CONRED    STMTF     LABEL     *QCG*     QCGC    
          QSKEL     FUN       REG       GEN       WEOR2*    *REAR*    REC       RERRS   
          RLINK     RSNAP     FAS       ZEROLNK   MAP       LIST      WEOR3*    *BRIDGE*
          CCGC      BRIDGE    CSKEL     FSKEL     INIT22    WEOR4*    *FRAME*   OVL00   
          OVL10     OVL20     OVL21     OVL22     OVL23     WEOR5*    COPYWS  
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1UNLABELED OLDPL               CARDS ENCOUNTERED IN INPUT             UPDATE 1.4-871.      24/05/02. 13.11.48.      PAGE   1    
  
 /////    *COMPILE CMPLTXT.WEOR2*,CGTM,MIO.BDT,CFA.UDT    
0       
  
          MODIFICATIONS / CONTROL CARDS 
  
0       
  
 OPTIONS  *IF DEF,TEST,1                                                                   FC5A370        6 
 OPTIONS  *IF -DEF,TEST,1                                                                  FC5A370        7 
 CMPLTXT  *CALL     OPTIONS                                                                CMPLTXT       21 
0       
  
 MIO      *IF       DEF,MIO,1                                                              MIO            7 
0       
  
 FBV      *IF       DEF,FBV,1                                                              FBV            9 
0       
  
 GPO      *IF       DEF,GPO,2                                                              GPO            8 
0       
  
 GRA      *IF       DEF,GRA,1                                                              GRA            8 
0       
  
 SQZ      *IF       DEF,SQZ,1                                                              SQZ            8 
0       
  
 MCG      *IF       DEF,MCG,1                                                              MCG            9 
0       
  
 BDT      *IF       DEF,BDT,1                                                              BDT            8 
 BDT      *IF       DEF,RIO,1                                                              CCG1         293 
0       
  
 CFA      *IF       DEF,CFA,1                                                              CFA            8 
0       
  
 CMPLTXT  *CALL     COMADEF                                                                CMPLTXT       22 
 CMPLTXT  *CALL     CCOMGCM                                                                CMPLTXT       23 
 CMPLTXT  *CALL     CCGILFD                                                                CMPLTXT       24 
 CCGILFD  *CALL     OPRDEFS                                                                CCGILFD      195 
 CCGILFD  *CALL     PSODEFS                                                                CCGILFD      219 
 WEOR1*   *WEOR 0                                                                          CCGA054        6 
 CCGTEXT  *CALL     OPTIONS                                                                CCGTEXT       25 
 CCGTEXT  *CALL     COMADEF                                                                CCGTEXT       26 
 CCGTEXT  *CALL     FA=DEFS                                                                CCGTEXT       27 
1UNLABELED OLDPL              MODIFICATIONS / CONTROL CARDS           UPDATE 1.4-871.      24/05/02. 13.11.48.      PAGE   2    
  
 CCGTEXT  *CALL     CCOMGCM                                                                CCGTEXT       28 
 CCGTEXT  *CALL     CCGDBGM                                                                CCGTEXT      368 
 CCGTEXT  *CALL     DBG=MAC                                                                CCGTEXT      369 
 CCGTEXT  *CALL     CCGILFD                                                                CCGTEXT      370 
 CCGILFD  *CALL     OPRDEFS                                                                CCGILFD      195 
 CCGILFD  *CALL     PSODEFS                                                                CCGILFD      219 
 CCGTEXT  *CALL     HCDEFS                                                                 CCGTEXT      456 
 CCGTEXT  *CALL     SYMDEFS                                                                CCGTEXT      496 
 SYMDEFS  *CALL COMSSYM                                                                    SYMDEFS        3 
 WEOR2*   *WEOR 0                                                                          CCGA054        8 
 CGTM     *CALL     SSTCALL                                                                CGTM           5 
 CGTM     *CALL     OPRDEFS                                                                CCG16        146 
 CGTM     *CALL     OPRDEFS                                                                CGTM         148 
 CGTM     *CALL     OPRDEFS                                                                CGTM         240 
 CGTM     *CALL     CCOMISC                                                                CGTM         244 
 CGTM     *CALL     CCGTMTV                                                                CCG16        179 
 CCGTMTV  *CALL     CGHCDTD            HOST COMPILER DYNAMIC TABLE DECLARATIONS            CCGTMTV       85 
 CGHCDTD  *CALL COMSTAD                                                                    CGHCDTD       16 
 CCGTMTV  *CALL     CGHCSTD            HOST COMPILER STATIC TABLES                         CCGTMTV       90 
 CGHCSTD  *CALL COMSTAS                                                                    CGHCSTD        2 
 MIO      *CALL     SSTCALL                                                                MIO            4 
 MIO      *CALL     IOTBLD                                                                 MIO           96 
 FBV      *CALL     SSTCALL                                                                FBV            4 
 FBV      *CALL     CFTBLD                                                                 FBV           33 
 GPO      *CALL     SSTCALL                                                                GPO            4 
 GPO      *CALL     CFTBLD                                                                 GPO           52 
 GPO      *CALL     IOTBLD                                                                 GPO           53 
 GPO      *CALL     UDTBLD                                                                 GPO           54 
 GPO      *CALL     GPOCOM                                                                 GPO           55 
 GPO      *CALL     OPRDEFS                                                                GPO         3679 
 GPO      *CALL     OPRDEFS                                                                GPO         5644 
 GRA      *CALL     SSTCALL                                                                GRA            4 
 GRA      *CALL     UDTBLD                                                                 GRA           50 
 GRA      *CALL     GPOCOM                                                                 GRA           51 
 GRA      *CALL     OPRDEFS                                                                GRA         1523 
 GRA      *CALL     OPRDEFS                                                                GRA         6288 
 PROSEQ   *CALL     SSTCALL                                                                PROSEQ         4 
 SQZ      *CALL     SSTCALL                                                                SQZ            4 
 SQZ      *CALL     OPRDEFS                                                                SQZ         2860 
 MCG      *CALL     SSTCALL                                                                MCG            4 
 MCG      *CALL     OPRDEFS                                                                MCG         2336 
 BDT      *CALL     SSTCALL                                                                BDT            4 
 CFA      *CALL     SSTCALL                                                                CFA            4 
 CFA      *CALL     CFTBLD                                                                 CFA           57 
 UDT      *CALL     SSTCALL                                                                UDT            4 
 UDT      *CALL     CFTBLD                                                                 UDT           42 
 UDT      *CALL     UDTBLD                                                                 UDT           46 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 13.11.48.      PAGE   3    
  
0               CORRECTION IDENTS ARE LISTED IN CHRONOLOGICAL ORDER OF INSERTION
  
  
          *COMDKS*  CCOMISC   CCOMLOL   CGHCRMD   COMADEF   COMAREG   FA=CLO    FA=DEFS 
          FA=EOF    FA=EOR    FA=FLSH   FA=OPE    FA=RDC    FA=RDW    FA=RWX    FA=SET  
          FA=WTW    OPRDEFS   PSODEFS   SSTCALL   *TEXTS*   *CCG*     CGIA      MACROS  
          CGTM      *CT*      CFTBLD    IOTBLD    GPOCOM    UDTBLD    MIO       FBV     
          GPO       GRA       PROSEQ    SQZ       MCG       BDT       DMPIIT    DMPRLST 
          DMPSIT    DMPTREE   DMPUDI    PRNTGRA   PRNTMIO   PRNTUDI   PRNTABV   PRNTBV  
          PRNTRLI   PRNTMCG   CFA       UDT       FCC0391   FCC0392   FCC0393   FCC0408 
          FCC0414   FCC0415   FCC0448   FCC0502   FCC0504   FCC0508   FCC0509   FCC0513 
          FCC0534   FEAT121A  FCC0514   FCC0535   FCC0584   FCC0586   FCC0588   FCC0594 
          FCC0603   FCC0612   FCC0613   FCC0625   FCC0634   FCC0640   FCC0641   FCC0642 
          FCC0643   FCC0645   FCC0646   FCC0651   FCC0658   FCC0602   FCC0656   FCC0716 
          FCC0672   FCC0675   FCC0715   FCC0719   FCC0735   FCC0789   FCC0791   FCC0792 
          FCC0717   FCC0764   FCC0811   FCC0812   FCC0814   FCC0839   FCC0841   FCC0872 
          FCC0882   FCC0883   FCC0885   FCC0912   FCC0919   S3143FC   FCC0715A  FCC0777 
          FCC0881   FCC0909   FCC0914   FCC0977   FCC1014   FCC1025   FEAT155A  FEAT155AB 
          FCC0957   FCC0985   FEAT155F  S3143FCA  FCC0807   FCC1025A  FCC1029   FCC1039 
          FCC1040   FCC1056   FCC1085   FCC1088   FCC1107   FCC1123   FCC1126   FCC1127 
          FCC1191   FCC1196   FCC1227   FCC1239   FCC1254   FCC1290   FCCT001   FCC1319 
          FCC1322   FCC1352   FCC1353   FCC1413   FCC1424   FCC1442   FCC1451   F7540FT 
          FCC1491X  FCC1498X  FCC1530X  RSM2763X  FCCT005   FCC1504X  FCC1531X  FCC1532X
          FCC1555X  FCC1556X  FCC1518X  RSM2763AX FCC1568X  FCC1580X  CCG1      CCG2    
          CCG3      CCG4      CCG5      MCGF1     FCC1596X  FCC1623X  CCGDBG    FCC1626 
          FCC1644X  FCC1646X  SMOCDEF   CCG7      CCG8      CCG9      HISTORY   CCOMGCM 
          CCGDBGM   CCGILFD   FCC0885XA FCC1655X  FCC1656X  FCC1660X  FCC1584X  FCC1677X
          FCC1695X  FCC1700X  FCC1710X  FCC1719X  CCGNC     CCG11     CCG12     FCC1739X
          FCC1740X  CMPLTXT   CCGTEXT   CCG13     CCG14     FCC1755X  FCC1770X  FCC1825X
          FCC1828X  FCC1837X  FCC1842X  FCC1845X  FCC1858X  CCGTMTV   CCG15     CCG16   
          CCG17     FCC0238AX CCG18     CCG19     CCG*78    FCC1908   FCC1918   FCC1928 
          CCGA002   CCGA005   CCG20     CCG21     CCG22     CCG23     CCGA006   CCGA007 
          CCG24     FCC1997   CCG25     CCG26     OUTPTK    CCG27     CCG28     FCC2038 
          FCC2045   FCC2056   FCC2051   CCG29     CCGA008   FCC2072   CCG30     CCG31   
          CCG33     COMAIDP   COMATOK   COMCBUB   COMCBUN   COMCIDP   COMCLFM   COMCMCS 
          COMCSBM   COMCTOK   COMDTOK   COMQSVR   COMSIDP   COMSTOK   CCOMRPV   DBG=MAC 
          DBG=IDP   CCG36     CCG32     CCG34     CCG35     FCC2074   FCC2091   FCCA462 
          CCG37     CCG38     CCG39     CCG40     FCC1040A  FCC2092   FCC2124   FCC2135 
          FCC2149   FCC2157   FCC2165   CCG41     *L498*    CCGA009   *L505*    F2950CC 
          CCGA010   CCGA011   CCGA012   CCGA013   CCGA014   CCGA015   *L508*    FCCA499X
          FCCA506X  FCC2212X  CCGA017   CCGA018   CCGA019   CCGA021   CCGA022   CCGA024 
          *L518*    CCG*80    CCGA023   CCGA025   CCGA026   FCCA509X  FCCA513X  FCC2230X
          FCC2271X  FCC2273X  *L528*    F1037CC   CCGA027   CCGA028   CCGA029   CCGA030 
          CCGA031   CCGA034   FCCA546X  FCCA550X  *L538*    CCG*81    CCGA035   CCGA036 
          CCGA037   CCGA039   *L552*    CCGA040   CCGA041   CCGA042   CCGA043   CCGA044 
          CCGA045   CCGA046   CCGA047   CCG0001   CCG0004   *L564*    CCG*82    CCGA049 
          CCGA052   CCGA054   CCG0006   CCG0013   *L577*    CCGA062   CCGA063   CCGA066 
          CCGA067   CCGA068   CCGA072   CCGA073   CCG0002   CCG0008   CCG0018   CCG0022 
          *L587*    CCGA076   FA=WTH    CCGA079   CCGA082   CCG0037   CCG0041   CCG0045 
          CCG0071   CCG0085   *L601*    CCGA083   CCG0012   CCG0034   CCG0057   CCG0086 
          CCG0088   CCG0089   *L617*    CCG0093   CCG0110   CCG0117   CCG0119   CCG0124 
          *L628*    CCGA085   CCGA088   CCG0127   CCG0128   CCG0146   CCG0147   CCG0150 
          CCG0154   *L642*    CCGA090   CCG0157   CCG0158   CCG0165   *L650*    CCG0172 
          CCG0181   *L670*    CCGA091   CCGA092   CCGA093   CCG0187   *L688*    CCGA094 
          CCG0177   CCG0188   CCG0189   CCG0191   CCG0193   CCG0196   *L716*    CCG0206 
          CCG0207   CCG0208   CCG0211   CCG0212   CCG0213   *L739*    CCG0214   CCG0215 
          CCG0216   CCG0218   CCG0220   *L780*    CCGA097   *L797*    CCGA099   CCG1*92 
1UNLABELED OLDPL                  CORRECTION IDENTIFIERS              UPDATE 1.4-871.      24/05/02. 13.11.48.      PAGE   4    
  
          *L803*    CCGA100   *L826*    CCG*94    *L840*    *L847*    *L851*    *L859*  
          *L871*  
0                 18 PURGED IDENTS WERE FOUND   
  
0       
  
0          DECK LIST AS READ FROM OLDPL PLUS ADDED NEW DECKS
  
  
          YANK$$$   HISTORY   *COMDKS*  CCGTMTV   CCOMGCM   CCOMISC   CCOMLOL   CGHCRMD 
          COMADEF   COMAIDP   COMAREG   COMATOK   COMCBUB   COMCBUN   COMCIDP   COMCLFM 
          COMCMCS   COMCSBM   COMCTOK   COMDTOK   COMQSVR   COMSIDP   COMSTOK   CCOMRPV 
          DBG=MAC   DBG=IDP   FA=CLO    FA=DEFS   FA=EOF    FA=EOR    FA=FLSH   FA=OPE  
          FA=RDC    FA=RDW    FA=RWX    FA=SET    FA=WTH    FA=WTW    OPRDEFS   PSODEFS 
          CCGDBGM   CCGILFD   SMOCDEF   SSTCALL   *TEXTS*   CMPLTXT   WEOR1*    CCGTEXT 
          WEOR2*    *CCG*     CGIA      MACROS    CGTM      OUTPTK    *CT*      CFTBLD  
          IOTBLD    GPOCOM    UDTBLD    MIO       FBV       GPO       GRA       PROSEQ  
          SQZ       MCG       BDT       CCGDBG    DMPIIT    DMPRLST   DMPSIT    DMPTREE 
          DMPUDI    PRNTGRA   PRNTMIO   PRNTUDI   PRNTABV   PRNTBV    PRNTRLI   PRNTMCG 
          CFA       UDT     
0       
  
0DECKS ARE LISTED IN THE ORDER OF THEIR OCCURRENCE ON A NEW PROGRAM LIBRARY IF ONE IS CREATED BY THIS UPDATE
  
  
          YANK$$$   CMPLTXT   WEOR1*    CCGTEXT   WEOR2*    CGTM      MIO       FBV     
          GPO       GRA       PROSEQ    SQZ       MCG       BDT       CFA       UDT     
          CCGTMTV   CCOMGCM   CCOMISC   COMADEF   DBG=MAC   FA=DEFS   OPRDEFS   CCGDBGM 
          CCGILFD   SSTCALL   CFTBLD    IOTBLD    GPOCOM    UDTBLD    PSODEFS 
0       
  
           COMMON DECKS ENCOUNTERED   
  
          OPTIONS   CCGTMTV   CCOMGCM   CCOMISC   COMADEF   DBG=MAC   FA=DEFS   OPRDEFS 
          CCGDBGM   CCGILFD   SSTCALL   CFTBLD    IOTBLD    GPOCOM    UDTBLD    PSODEFS 
          HCDEFS    SYMDEFS   COMSSYM   CGHCDTD   COMSTAD   CGHCSTD   COMSTAS 
0       
  
          DECKS WRITTEN TO COMPILE FILE 
  
          CMPLTXT   WEOR1*    CCGTEXT   WEOR2*    CGTM      MIO       FBV       GPO     
          GRA       PROSEQ    SQZ       MCG       BDT       CFA       UDT     
0       
  
  THIS UPDATE REQUIRED  62200B WORDS OF MEMORY. 
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        1              IDENT  CMPLTXT
                          1                       END 
  
  
  
  
                                                  IDENT  CMPLTXT                                                 CMPLTXT     2
                                                  STEXT                                                          CMPLTXT     4
                                                  SST                                                            CMPLTXT     5
                                                  LIST   F,X                                                     CMPLTXT     6
                                                  COMMENT  COMPILER PRODUCT"S ASSEMBLY TEXT   190=          SPAC CMPLTXT     7
  
  
  
                                        ***       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT FOR COMPILERS       CMPLTXT     9
                                        *         THAT USE CCG ( COMMON CODE GENERATOR ).                        CMPLTXT    10
                                        *                                                                        CMPLTXT    11
                                        *         THIS TEXT CONTAINS SYMBOL, MACRO AND MICRO DEFINITIONS         CMPLTXT    12
                                        *         NECESSARY TO ASSEMBLE THE HOST COMPILER.                       CMPLTXT    13
                                        *         THE TEXT IS DIVIDED UP INTO THE FOLLOWING SECTIONS -           CMPLTXT    14
                                        *          INSTALLATION DEPENDENT INSTALLATION PARAMETERS.               CMPLTXT    15
                                        *          STRUCTURED FIELD DEFINITION MACROS.                           CMPLTXT    16
                                        *          I/O CODING CONVENTIONS AND MACROS                             CMPLTXT    17
                                        *          GENERAL MACROS                                                CMPLTXT    18
                                        *          MACROS FOR DEBUGGING                                          CMPLTXT    19
                                        *         CCG FIELD DEFINITIONS, EQU"S AND MACROS.                       CMPLTXT    20
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     2
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ****                                                                     OPTIONS     4
                                        ***       O P T I O N S - FORTRAN EXTENDED INSTALLATION PARAMETERS.      OPTIONS     5
                                        *                                                                        OPTIONS     6
                                        *         REVISED AUGUST 1975 FOR THE CYBER 170 SERIES MACHINES.         OPTIONS     7
                                        *                                                                        OPTIONS     8
                                        *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC     OPTIONS     9
                                        *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-  OPTIONS    10
                                        *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY   OPTIONS    11
                                        *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION    OPTIONS    12
                                        *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                          OPTIONS    13
                                        *                                                                        OPTIONS    14
                                        *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN     OPTIONS    15
                                        *         THE PROGRAM DECK  < FTN > .                                    OPTIONS    16
  
  
  
  
                                        *         ************************************************************** OPTIONS    18
                                        *         *                                                            * OPTIONS    19
                                        *         *                                                            * OPTIONS    20
                                        *         *   I N S T A L L A T I O N   W A R N I N G   N O T I C E    * OPTIONS    21
                                        *         *                                                            * OPTIONS    22
                                        *         *                                                            * OPTIONS    23
                                        *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       * OPTIONS    24
                                        *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         * OPTIONS    25
                                        *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             * OPTIONS    26
                                        *         *                                                            * OPTIONS    27
                                        *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       * OPTIONS    28
                                        *         *      BE CHANGED.                                           * OPTIONS    29
                                        *         *                                                            * OPTIONS    30
                                        *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    * OPTIONS    31
                                        *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           * OPTIONS    32
                                        *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      * OPTIONS    33
                                        *         *                                                            * OPTIONS    34
                                        *         *                                                            * OPTIONS    35
                                        *         ************************************************************** OPTIONS    36
  
  
  
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     3
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS    59
                                        *                                                                        OPTIONS    60
                                        *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE   OPTIONS    61
                                        *                                                                        OPTIONS    62
                                        *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A     OPTIONS    63
                                        *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS      OPTIONS    64
                                        *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE       OPTIONS    65
                                        *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND          OPTIONS    66
                                        *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.    OPTIONS    67
                                        *                                                                        OPTIONS    68
                                        *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER      OPTIONS    69
                                        *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL       OPTIONS    70
                                        *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING        OPTIONS    71
                                        *                REQUIREMENTS.                                           OPTIONS    72
                                        *                   1.  INSURE THAT THE TEXT CONTAINING THE              OPTIONS    73
                                        *                       INSTALLATION PARAMETERS CONTAINS CYBER 76        OPTIONS    74
                                        *                       VALUES.                                          OPTIONS    75
                                        *                   2.  SELECT THE DESIRED VALUE FOR THE "MODEL" MICRO   OPTIONS    76
                                        *                       DEFINED IN THE BOX ENTITLED -                    OPTIONS    77
                                        *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES      OPTIONS    78
                                        *                       MODEL."                                          OPTIONS    79
                                        *                                                                        OPTIONS    80
                                        *         CAUTIONS -                                                     OPTIONS    81
                                        *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING    OPTIONS    82
                                        *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.      OPTIONS    83
                                        *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL     OPTIONS    84
                                        *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC". OPTIONS    85
                                        *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.        OPTIONS    86
                                        *                                                                        OPTIONS    87
                                        ***                                                                      OPTIONS    88
  
  
  
                                        ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                OPTIONS    90
                                        *                                                                        OPTIONS    91
                                         PSR      MICRO  1,,$871$                                                PSRLEVEL    1
                                         LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME               OPTIONS    92
                                         VER      MICRO  1,3,/5.1/                                               F1037F5A    5
                                                  IF     MIC,PSR,2                                               OPTIONS    94
                                         MODLVL   MICRO  1,9,$"PSR"         $                                    OPTIONS    95
                                                  SKIP   1                                                       OPTIONS    96
                                         MODLVL   MICRO  1,9,$"MODLEVEL"         $                               OPTIONS    97
  
  
                                        **        VALMDL - VALIDATE MODEL MICRO                                  OPTIONS    99
                                                                                                                 OPTIONS   100
                                                  MACRO  VALMDL,MDL,HFP                                          F2950F5     4
                                         .1       MICCNT HFP                                                     F2950F5     5
                                         .2       MICRO  .1,1,/"HFP"/                                            F2950F5     6
                                                  IFC    EQ,/".2"/S/                                             F2950F5     7
                                         MDL      MICRO  1,,/73/                                                 F2950F5     8
                                                  ELSE                                                           F2950F5     9
                                         MDL      MICRO  1,,/7".2"/                                              F2950F5    10
                                                  ENDIF                                                          F2950F5    11
                                                  IFC    NE,/"HFP"/P740/                                         FC5A446     7
                                                  IFC    NE,/"HFP"/P750/                                         FC5A446     8
                                                  IFC    NE,/"HFP"/P760/                                         FC5A446     9
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     4
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         VALMDL
  
                                                  ELSE                                                           FC5A446    10
                                         MDL      MICRO  1,,/74/                                                 FC5A446    11
                                                  ENDIF                                                          FC5A446    12
                                                  IFC    NE,/"HFP"/P990/                                         FC5A478     7
                                                  IFC    NE,/"HFP"/P994/                                         FC5A521     6
                                                  IFC    NE,/"HFP"/P995/                                         FC5A521     7
                                                  ELSE                                                           FC5A478     8
                                         MDL      MICRO  1,,/76/                                                 FC5A478     9
                                         CPU990   MICRO  1,,/990/                                                FC5A495     6
                                                  ENDIF                                                          FC5A478    10
                                                  ENDM                                                           F2950F5    12
  
  
  
                                        ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                 OPTIONS   121
                                        *                                                                        OPTIONS   122
                                        *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS      OPTIONS   123
                                        *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT    OPTIONS   124
                                        *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE         OPTIONS   125
                                        *                INSTALLED AND EXECUTED ON.                              OPTIONS   126
                                        *                                                                        OPTIONS   127
                                                  QUAL   IPARAM                                                  OPTIONS   128
                                                  IPARAMS                                                        OPTIONS   129
                                                  IF     -DEF,IP.PD,1                                            OPTIONS   130
                                         IP.PD    EQU    6           TEMPORARY UNTIL OPERATING SYSTEM CONFORMS   OPTIONS   131
                                                  IF     -DEF,IP.PS,1                                            OPTIONS   132
                                         IP.PS    EQU    60          TEMPORARY UNTIL OPERATING SYSTEM CONFORMS   OPTIONS   133
                                                  DEFINHF                                                        F2950F5    13
                                                  QUAL   *                                                       OPTIONS   134
                                        *                                                                        OPTIONS   135
                                        *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE   OPTIONS   136
                                        *         PRECEDING CALL TO IPARAMS.                                     OPTIONS   137
                                        *                                                                        OPTIONS   138
                                        *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO   OPTIONS   139
                                        *                THE FIRST TWO CHARACTERS OF THE CYBER "MODEL", I.E.     OPTIONS   140
                                        *                72, 73, 74, OR 76.  IT IS REFERENCED WHENEVER THE       OPTIONS   141
                                        *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST      OPTIONS   142
                                        *                BE KNOWN.                                               OPTIONS   143
                                        *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1   OPTIONS   144
                                        *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING    OPTIONS   145
                                        *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.           OPTIONS   146
                                        *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS     OPTIONS   147
                                        *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO   OPTIONS   148
                                        *                DETERMINE MACHINE DIFFERENCES.                          OPTIONS   149
                                                                                                                 OPTIONS   150
                              140000     IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH              OPTIONS   151
                                   0     IP.CSET  =      /IPARAM/IP.CSET                                         OPTIONS   152
                                   2     IP.C63   =      /IPARAM/IP.C63                                          OPTIONS   153
                                                                                                                 OPTIONS   154
                                   0     TPD      SET    0                                                       OPTIONS   155
                                                  ECHO   2,A=(3,4,6,8),B=(6,8,6,8)                               OPTIONS   156
                                                  IFEQ   A,/IPARAM/IP.PD,1                                       OPTIONS   157
                                         TPD      SET    B                                                       OPTIONS   158
                                   6              ERRZR  TPD         IP.PD MUST BE 3, 4, 6, OR 8                 OPTIONS   159
                                   6     IP.PD    =      TPD         DEFAULT PRINT DENSITY                       OPTIONS   160
                                  74     IP.PS    =      /IPARAM/IP.PS     DEFAULT PAGE SIZE                     OPTIONS   161
                                                                                                                 OPTIONS   162
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     5
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                         MDL      VALMDL HF.P                                                    F2950F5    14
                                 111     CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                            OPTIONS   164
                                                                                                                 OPTIONS   165
                                   1     .OT      SET    1           SET FOR NOS                                 OPTIONS   166
                                         #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                   OPTIONS   167
                                         .VER     MICRO  1,1,/"OS.VER"/                                          OPTIONS   168
                                         .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                      OPTIONS   169
                                         #OS      ENDIF                                                          OPTIONS   170
                                   1     .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM               OPTIONS   171
                                        *                                                                        OPTIONS   172
                                        ***                                                                      OPTIONS   173
  
  
  
                                        ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                  OPTIONS   175
                                                                                                                 OPTIONS   176
                                                                                                                 OPTIONS   177
                                        *         ************************************************************** OPTIONS   178
                                        *         *                                                            * OPTIONS   179
                                        *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     * OPTIONS   180
                                        *         *                                                            * OPTIONS   181
                                        *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       * OPTIONS   182
                                        *         *            ----                       ----                 * OPTIONS   183
                                        *         *                                                            * OPTIONS   184
                                        *         *            71                         6400                 * OPTIONS   185
                                        *         *            72                         6200                 * OPTIONS   186
                                        *         *            73                         6400                 * OPTIONS   187
                                        *         *            73-2                       6500                 * OPTIONS   188
                                        *         *            74                         6600                 * OPTIONS   189
                                        *         *            74-2                       6700                 * OPTIONS   190
                                        *         *            76                         7600                 * OPTIONS   191
                                        *         *            171                        6400                 * OPTIONS   192
                                        *         *            172                        6400                 * OPTIONS   193
                                        *         *            173                        6400                 * OPTIONS   194
                                        *         *            174                        6400                 * OPTIONS   195
                                        *         *            175                        CYBER 175 CPU        * OPTIONS   196
                                        *         *            176                        7600                 * OPTIONS   197
                                        *         *                                                            * OPTIONS   198
                                        *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  * OPTIONS   199
                                        *         *      IGNORED. TO BUILD A CROSS-MODEL COMPILER, DO ONE     *  F1037F5    82
                                        *         *      OF THE FOLLOWING :                                   *  F1037F5    83
                                        *         *                                                           *  F1037F5    84
                                        *         *      A) SELECT A VALUE FROM THE LIST ABOVE, REMOVE BOTH   *  F1037F5    85
                                        *         *         ASTERISKS, AND INSERT THE PROPER VALUE ON THE     *  F1037F5    86
                                        *         *         FOLLOWING LINE.                                      F1037F5    87
                                        *         DEFMOD 74                                                      F1037F5    88
                                        *         DEFINHF                                                        F1037F5    89
                                        *         *                                                           *  F1037F5    90
                                        *         *      B) EQUATE THE FOLLOWING PARAMETER TO 1. THIS WILL    *  F1037F5    91
                                        *         *         CAUSE A MODEL-INDEPENDENT COMPILER TO BE BUILT.   *  F1037F5    92
                                        *         *         (NOTE - THIS BUILD PROCEDURE IS INCOMPATIBLE      *  F1037F5    93
                                        *         *         WITH THE SCOPE 2 OPERATING SYSTEM)                *  F1037F5    94
                                   0     .MI      EQU    0                                                       F1037F5    95
                                        *         *                                                           *  F1037F5    96
                                        *         ************************************************************** OPTIONS   205
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     6
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   207
                                        *         *                                                            * OPTIONS   208
                                        *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          * OPTIONS   209
                                        *         *                                                            * OPTIONS   210
                                        *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     * OPTIONS   211
                                        *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      * OPTIONS   212
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  * OPTIONS   213
                                        *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    * OPTIONS   214
                                        *         *      PARAMETER TO ZERO.                                    * OPTIONS   215
                                   0     .IWT     EQU    0                                                       OPTIONS   216
                                        *         *                                                            * OPTIONS   217
                                        *         ************************************************************** OPTIONS   218
  
  
  
                                        *         ************************************************************** OPTIONS   220
                                        *         *                                                            * OPTIONS   221
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   * OPTIONS   222
                                        *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         * OPTIONS   223
                                        *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    * OPTIONS   224
                                        *         *      VALUES ARE --                                         * OPTIONS   225
                                        *         *                                                            * OPTIONS   226
                                        *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    * OPTIONS   227
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   228
                                        *         *                                                            * OPTIONS   229
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   230
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   231
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   232
                                        *CP#RM    =      0                                                     * OPTIONS   233
                                        *         *                                                            * OPTIONS   234
                                        *         ************************************************************** OPTIONS   235
  
  
  
  
                                        *         ************************************************************** OPTIONS   237
                                        *         *                                                            * OPTIONS   238
                                        *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    * OPTIONS   239
                                        *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   * OPTIONS   240
                                        *         *      VALUES ARE -                                          * OPTIONS   241
                                        *         *                                                            * OPTIONS   242
                                        *         *                  1 = ECS AVAILABLE                         * OPTIONS   243
                                        *         *                  0 = NO ECS AVAILABLE                      * OPTIONS   244
                                        *         *                                                            * OPTIONS   245
                                        *         *                  LOWER CYBER DEFAULT =                     * OPTIONS   246
                                        *         *                        0  FOR KRONOS OPERATING SYSTEM      * OPTIONS   247
                                        *         *                        /IPARAM/IP.MECS  FOR SCOPE          * OPTIONS   248
                                        *         *                  CYBER 76 DEFAULT IS 1                     * OPTIONS   249
                                        *         *                                                            * OPTIONS   250
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   251
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   252
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   253
                                        *CT.ECS   EQU    0                                                     * OPTIONS   254
                                        *         *                                                            * OPTIONS   255
                                        *         ************************************************************** OPTIONS   256
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     7
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   258
                                        *         *                                                            * OPTIONS   259
                                        *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  * OPTIONS   260
                                        *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    * OPTIONS   261
                                        *         *      NOT ZERO, THEN WHEN OPT = 3 IS SELECTED, THE            OPTIONS   262
                                        *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN * OPTIONS   263
                                        *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     * OPTIONS   264
                                        *         *      SUCH AS SIN, SQRT, EXP, ETC.                            OPTIONS   265
                                        *         *                                                            * OPTIONS   266
                                   1     .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY       OPTIONS   267
                                        *         *                                                            * OPTIONS   268
                                        *         ************************************************************** OPTIONS   269
  
  
  
  
                                        *         ************************************************************** OPTIONS   271
                                        *         *                                                            * OPTIONS   272
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     * OPTIONS   273
                                        *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  * OPTIONS   274
                                        *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      * OPTIONS   275
                                        *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN * OPTIONS   276
                                        *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    * OPTIONS   277
                                        *         *      VALUES ARE --                                         * OPTIONS   278
                                        *         *                                                            * OPTIONS   279
                                        *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    * OPTIONS   280
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   281
                                        *         *                                                            * OPTIONS   282
                                        *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        * OPTIONS   283
                                        *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   * OPTIONS   284
                                        *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    * OPTIONS   285
                                        *         *      VALUE ON THE FOLLOWING LINE.                          * OPTIONS   286
                                        *OT#RM    =      6                                                       OPTIONS   287
                                        *         *                                                            * OPTIONS   288
                                        *         ************************************************************** OPTIONS   289
  
  
  
  
                                        *         ************************************************************** FC5A180    12
                                        *         *                                                            * FC5A180    13
                                        *         *      SELECT MINIMUM FIELD LENGTH INSTALLATION.             * FC5A180    14
                                        *         *      THIS OPTION FORCES ALL BUFFERS INTO MINIMAL           * FC5A180    15
                                        *         *      ALLOCATIONS IN ORDER TO COMPILE IN AN                 * FC5A180    16
                                        *         *      ABSOLUTE MINIMUM FIELD LENGTH.  THIS IS               * FC5A180    17
                                        *         *      ACCOMPLISHED AT THE EXPENSE OF COMPILE SPEED, AND     * FC5A180    18
                                        *         *      IS RECOMMENDED ONLY FOR 32K SCM 7600-STYLE SYSTEMS.   * FC5A180    19
                                        *         *                                                            * FC5A180    20
                                        *         *      TO SELECT THIS OPTION, SET .MINFL TO 1 ON THE         * FC5A180    21
                                        *         *      FOLLOWING LINE.                                       * FC5A180    22
                                   0     .MINFL   =      0                                                       FC5A180    23
                                        *         *                                                            * FC5A180    24
                                        *         ************************************************************** FC5A180    25
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     8
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   291
                                        *         *                                                            * OPTIONS   292
                                        *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      * OPTIONS   293
                                        *         *                                                            * OPTIONS   294
                                         FC       MICRO  1,,/#/                                                  OPTIONS   295
                                        *         *                                                            * OPTIONS   296
                                        *         ************************************************************** OPTIONS   297
  
  
  
                                        *         ************************************************************** OPTIONS   299
                                        *         *                                                            * OPTIONS   300
                                        *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  * OPTIONS   301
                                        *         *                                                            * OPTIONS   302
                                        *         *                  6RM VALUES                                * OPTIONS   303
                                  34     L.FIT6   =      19D+9D      FIT LENGTH                                  OPTIONS   304
                                  15     L.FET6   =      13D         FET LENGTH                                  OPTIONS   305
                                2003     L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                   OPTIONS   306
                                 101     L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB  OPTIONS   307
                                 401     L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB OPTIONS   308
                                        *         *                                                            * OPTIONS   309
                                        *         *                  7RM VALUES                                * OPTIONS   310
                                  26     L.FIT7   =      22D         FIT LENGTH                                  FC50729     6
                                   0     L.FET7   =      0           FET LENGTH                                  OPTIONS   312
                                   0     L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                   OPTIONS   313
                                        *         *                                                            * OPTIONS   314
                                        *         ************************************************************** OPTIONS   315
  
  
  
                                        *         ************************************************************** OPTIONS   317
                                        *         *                                                            * OPTIONS   318
                                        *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         * OPTIONS   319
                                        *         *                                                            * OPTIONS   320
                                        *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, *CONRED* WILL   * OPTIONS   321
                                        *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    * OPTIONS   322
                                        *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        * OPTIONS   323
                                        *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       * OPTIONS   324
                                        *         *                                                            * OPTIONS   325
                                   0     NOINVERT EQU    0                                                       OPTIONS   326
                                        *         *                                                            * OPTIONS   327
                                        *         ************************************************************** OPTIONS   328
  
  
  
                                        *         ************************************************************** FC5A483    10
                                        *         *                                                            * FC5A483    11
                                        *         *      SELECT RUN TIME CHECK FOR INTEGER DIVIDE BY ZERO      * FC5A483    12
                                        *         *                                                            * FC5A483    13
                                        *         *      WHEN THE FOLLOWING PARAMETER IS SET TO 1, INTEGER     * FC5A483    14
                                        *         *      DIVIDE BY ZERO WILL BE TRAPPED AT RUN TIME AND        * FC5A483    15
                                        *         *      THE RUNNING JOB WILL BE STOPPED. THE COST FOR         * FC5A483    16
                                        *         *      THIS WILL BE TWO ADDITIONAL INSTRUCTIONS FOR          * FC5A483    17
                                        *         *      EVERY INTEGER DIVIDE. THIS FEATURE SHOULD NOT BE      * FC5A483    18
                                        *         *      USED FOR AN APPLICATION JOB THAT IS INTEGER DIVIDE    * FC5A483    19
                                        *         *      INTENSIVE OR IF IT IS FELT THAT PERFORMANCE           * FC5A483    20
                                        *         *      OF THE APPLICATION JOB WILL BE ADVERSELY AFFECTED.    * FC5A483    21
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE     9
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         *                                                            * FC5A483    22
                                   0     .IDC     EQU    0                                                       FC5A483    23
                                        *         *                                                            * FC5A483    24
                                        *         ************************************************************** FC5A483    25
  
  
                                        ***   ***   THERE ARE NO INSTALLATION OPTIONS BELOW THIS LINE ***   ***  OPTIONS   330
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    10
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        ***                                                                      OPTIONS   332
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF     OPTIONS   333
                                        *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE    OPTIONS   334
                                        *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF    OPTIONS   335
                                        *         THE *MODEL* MICRO OBTAINED FROM A CALL TO *IPARAMS* AT THE     OPTIONS   336
                                        *         BEGINNING OF *OPTIONS*.                                        OPTIONS   337
                                        *                                                                        OPTIONS   338
                                        *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE   OPTIONS   339
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   340
                                        *                                                                        OPTIONS   341
                                        *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR     OPTIONS   342
                                        *                OPT=2 USE DURING COMPILATIONS.                          OPTIONS   343
                                                                                                                 OPTIONS   344
                                         #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                            OPTIONS   345
                                         #MD      IFEQ   .OS,2                                                   OPTIONS   346
                                                                                                                 OPTIONS   347
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   348
                                                                                                                 OPTIONS   349
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   350
                                         CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                     OPTIONS   351
                                         #RM      ENDIF                                                          OPTIONS   352
                                                                                                                 OPTIONS   353
                                         #ECS     IF     -DEF,CT.ECS                                             OPTIONS   354
                                         CT.ECS   EQU    1           USE LCM AT COMPILE TIME                     OPTIONS   355
                                         #ECS     ENDIF                                                          OPTIONS   356
                                                                                                                 FC5A158A   54
                                         .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE      FC5A158A   55
                                                                                                                 OPTIONS   357
                                         #MD      ELSE                                                           OPTIONS   358
                                                                                                                 OPTIONS   359
                                        *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.               OPTIONS   360
                                                                                                                 OPTIONS   361
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   362
                                   0     CP#RM    EQU    0           USE CIO AT COMPILE-TIME                     OPTIONS   363
                                         #RM      ENDIF                                                          OPTIONS   364
                                                                                                                 OPTIONS   365
                                         #ECS     IF     -DEF,CT.ECS,4                                           OPTIONS   366
                                         #ECS     IF     DEF,/IPARAM/IP.MECS,2                                   OPTIONS   367
                                   1     CT.ECS   EQU    /IPARAM/IP.MECS                                         OPTIONS   368
                                         #ECS     SKIP   1                                                       OPTIONS   369
                                         CT.ECS   EQU    0                                                       OPTIONS   370
                                         #ECS     ENDIF                                                          OPTIONS   371
                                                                                                                 FC5A158A   56
                                   1     .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE             FC5A158A   57
                                                                                                                 OPTIONS   372
                                         #MD      ENDIF                                                          OPTIONS   373
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    11
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        **        IF .MI HAS BEEN EQUATED TO 1, FORCE A 176 STYLE BUILD, AND     F1037F5    98
                                        *         CAUSE AN ASSEMBLY ERROR IF .OS = 2 (SCOPE 2).                  F1037F5    99
                                                                                                                 F1037F5   100
                                                  IFEQ   .MI,1,3                                                 F1037F5   101
                                                  ERRZR  .OS-2                                                   F1037F5   102
                                                  DEFMOD 176                                                     F1037F5   103
                                                  DEFINHF                                                        F1037F5   104
                                                                                                                 F1037F5   105
  
  
  
  
                                        *         SELECT SYSTEM- OR TEST-MODE COMPILER CONFIGURATION.            OPTIONS   375
                                                                                                                 OPTIONS   376
                                   0     TEST     =      0           ASSEMBLE COMPILER IN SYSTEM MODE            OPTIONS   380
                                                                                                                 OPTIONS   381
                                  -1     SC2ZERO  SET    .OS-2                                                   FC5A158A   58
                                   0     .SPY     =      SC2ZERO/SC2ZERO*TEST                                    FC5A158A   59
                                        *                                                                        OPTIONS   383
                                        ***                                                                      OPTIONS   384
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    12
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        ***                                                                      OPTIONS   386
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF      OPTIONS   387
                                        *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN    OPTIONS   388
                                        *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF      OPTIONS   389
                                        *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME          OPTIONS   390
                                        *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH     OPTIONS   391
                                        *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.              OPTIONS   392
                                        *                                                                        OPTIONS   393
                                        *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE    OPTIONS   394
                                        *                FIRST TWO CHARACTERS OF THE *MODEL* MICRO, I.E. 72,     OPTIONS   395
                                        *                73, 74, OR 76.  IT IS TO BE USED FOR OBJECT-TIME        OPTIONS   396
                                        *                HARDWARE DIFFERENCES ONLY.                              OPTIONS   397
                                        *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS     OPTIONS   398
                                        *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF    OPTIONS   399
                                        *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,      OPTIONS   400
                                        *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY      OPTIONS   401
                                        *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.        OPTIONS   402
                                        *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE    OPTIONS   403
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   404
                                                                                                                 OPTIONS   405
                                         MDL      VALMDL HF.P                                                    F2950F5    18
                                                                                                                 OPTIONS   407
                                 111     .CPU     EQU    "MDL"       OBJECT TIME CPU                             OPTIONS   408
                                                  IF     -MIC,HF.S                                               F2950F5    19
                                   0     L.STACK  EQU    0                                                       F2950F5    20
                                                  ELSE                                                           F2950F5    21
                                         .1       MICRO  2,,/"HF.S"/                                             F2950F5    22
                                         L.STACK  EQU    ".1"+1                                                  F2950F5    23
                                                  ENDIF                                                          F2950F5    24
                                                  IF     MIC,HF.L                                                F2950F5    25
                                   1     .DAL     EQU    1                                                       F2950F5    26
                                                  ELSE                                                           F2950F5    27
                                         .DAL     EQU    0                                                       F2950F5    28
                                                  ENDIF                                                          F2950F5    29
                                                                                                                 OPTIONS   413
                                         #MD      IFEQ   .CPU,76                                                 OPTIONS   414
                                                                                                                 OPTIONS   415
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   416
                                                                                                                 OPTIONS   417
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   418
                                         #OS      IFEQ   .OS,2                                                   OPTIONS   419
                                         OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                 OPTIONS   420
                                         #OS      ELSE                                                           OPTIONS   421
                                         OT#RM    =      6                                                       OPTIONS   422
                                         #OS      ENDIF                                                          OPTIONS   423
                                         #RM      ENDIF                                                          OPTIONS   424
                                                                                                                 OPTIONS   425
                                         SCM      MICRO  1,,/SCM/                                                OPTIONS   426
                                         LCM      MICRO  1,,/LCM/                                                OPTIONS   427
                                                                                                                 OPTIONS   428
                                         #MD      ELSE                                                           OPTIONS   429
                                                                                                                 OPTIONS   430
                                        *         LOWER CYBER DEFAULT VALUES.                                    OPTIONS   431
                                                                                                                 OPTIONS   432
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   433
                                   6     OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                 OPTIONS   434
                                         #RM      ENDIF                                                          OPTIONS   435
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    13
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                                                                                                 OPTIONS   436
                                         SCM      MICRO  1,,/CM/                                                 OPTIONS   437
                                         LCM      MICRO  1,,/ECS/                                                OPTIONS   438
                                                                                                                 OPTIONS   439
                                         #MD      ENDIF                                                          OPTIONS   440
                                        ****                                                                     OPTIONS   441
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    14
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                COMADEF 
  
             0                           COMADEF  CTEXT  COMADEF - STRUCTURED FIELD DECLARATION MACROS.          COMADEF     2
                                        ***       COMADEF - STRUCTURED FIELD DECLARATION MACROS.                 COMADEF     3
                                        *                                                                        COMADEF     4
                                        *         J. A. WHITE III AND S. I. JASIK - DATES UNKNOWN                COMADEF     5
                                        *         P. H. MCQUESTEN    76-10-06.                                   COMADEF     6
                                        *                                                                        COMADEF     7
                                        *         MACROS TO FACILITATE FIELD DESCRIPTION, WHERE FIELDS ARE       COMADEF     8
                                        *         SUB-WORD ENTITIES.  THE 'DESCRIBE' MACRO IS USED TO PROVIDE    COMADEF     9
                                        *         A PREFIX FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES. COMADEF    10
                                        *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE         COMADEF    11
                                        *         DEFINED                                                        COMADEF    12
                                        *                                                                        COMADEF    13
                                        *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT    COMADEF    14
                                        *                              WHICH COMPRISES THE NAMED FIELD (WITHIN   COMADEF    15
                                        *                              A WORD BITS ARE NUMBERED ACCORDING TO     COMADEF    16
                                        *                              THE POWER OF TWO WHICH THEY REPRESENT)    COMADEF    17
                                        *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD           COMADEF    18
                                        *                                                                        COMADEF    19
                                        *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-  COMADEF    20
                                        *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER   COMADEF    21
                                        *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.  COMADEF    22
                                        *                                                                        COMADEF    23
                                        *         EACH 'DEFINE' REFERENCES A FIELD BEGINNING TO THE IMMEDIATE    COMADEF    24
                                        *         RIGHT OF THE PRECEEDING FIELD.                                 COMADEF    25
  
  
  
                                        ***       DESCRIBE - DECLARE BEGINNING OF STRUCTURE.                     COMADEF    27
                                        *                                                                        COMADEF    28
                                        *         DESCRIBE PFX,BITSLONG,TOPBIT,WORDNR                            COMADEF    29
                                        *                                                                        COMADEF    30
                                        *         ENTRY  PFX = THE PREFIX FOR THE STRUCTURE, AS MENTIONED ABOVE. COMADEF    31
                                        *                BITSLONG = THE TOTAL LENGTH IN BITS OF THE STRUCTURE,   COMADEF    32
                                        *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED.           COMADEF    33
                                        *                TOPBIT = THE BEGINNING (LEFTMOST) BIT OF THE STRUCTURE, COMADEF    34
                                        *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE.       COMADEF    35
                                        *                WORDNR = WORD NUMBER OF THE STRUCTURE BEING DESCRIBE-D. COMADEF    36
                                        *                     ZERO IF OMITTED.  SHOULD BE OMITTED FOR            COMADEF    37
                                        *                     SINGLE-WORD STRUCTURES.                            COMADEF    38
                                                                                                                 COMADEF    39
                                                                                                                 COMADEF    40
                                         DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT,WORDNR                           COMADEF    41
                                                  NOREF  /"QUAL"/.C,/"QUAL"/.D,/"QUAL"/.W                        COMADEF    42
                                                  NOREF  /"QUAL"/.B,/"QUAL"/.L,/"QUAL"/.1                        COMADEF    43
                                                  NOREF  /"QUAL"/.2,/"QUAL"/.3,/"QUAL"/.4                        COMADEF    44
                                                  NOREF  /"QUAL"/.5                                              COMADEF    45
                                         .P       MICRO  1,,/PREFIX/                                             COMADEF    46
                                         .D       SET    BITSLONG   60                                           COMADEF    47
                                         .C       SET    TOPBIT     .D-1                                         COMADEF    48
                                         .W       SET    WORDNR     0                                            COMADEF    49
                                        *                            INITIALIZE COUNTERS.                        COMADEF    50
                                         .L       SET    .D                                                      COMADEF    51
                                         .B       SET    .C                                                      COMADEF    52
                                                  IFC    NE, WORDNR  ,1                                          COMADEF    53
                                         ".P"W    EQU    .W                                                      COMADEF    54
                                         DESCRIBE ENDM                                                           COMADEF    55
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    15
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                DEFINE
  
                                        ***       DEFINE - DECLARE A FIELD WITHIN THE STRUCTURE.                 COMADEF    57
                                        *                                                                        COMADEF    58
                                        *  NAME   DEFINE LENGTH,R                                                COMADEF    59
                                        *                                                                        COMADEF    60
                                        *         ENTRY  NAME = THE NAME OF THE FIELD MENTIONED ABOVE.  IF NOT   COMADEF    61
                                        *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.      COMADEF    62
                                        *                LENGTH = THE BIT LENGTH OF THIS FIELD (OR FILLER).      COMADEF    63
                                        *                    IF OMITTED, LENGTH = ONE IS ASSUMED.                COMADEF    64
                                        *                R = IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE        COMADEF    65
                                        *                    DEFINED RELATIVE TO BIT POSITION 'R' AS THE         COMADEF    66
                                        *                    TOPMOST (LEFTMOST) BIT.  THE 'REDEF' MACRO WILL     COMADEF    67
                                                                                                                 COMADEF    68
                                                                                                                 COMADEF    69
                                                  MACRO  DEFINE,N,LONG,RESET                                     COMADEF    70
                                         .1       SET    LONG 1                                                  COMADEF    71
                                                  IFC    NE,//RESET/,2                                           COMADEF    72
                                         .L       SET    1000    ** KLUDGE **      .L-.B+RESET                   COMADEF    73
                                         .B       SET    RESET                                                   COMADEF    74
                                        *                                                                        COMADEF    75
                                                  IFC    NE,  N ,1                                               COMADEF    76
                                         N        DEQU   *,.1,.B-.1+1                                            COMADEF    77
                                        *                            ADVANCE COUNTERS, CHECK OVERFLOW.           COMADEF    78
                                         .L       SET    .L-.1                                                   COMADEF    79
                                         .B       SET    .B-.1                                                   COMADEF    80
                                                  ERRMI  .L          TOTAL LENGTH OF ".P" LONGER THAN SPECIFIED. COMADEF    81
                                                  IFLT   .B,0,3                                                  COMADEF    82
                                                  IFNE   .B,-1,1                                                 COMADEF    83
                                                   ERR    FIELD SPANS A WORD BOUNDARY    ("SEQUENCE")            COMADEF    84
                                         .B       SET    59                                                      COMADEF    85
                                         DEFINE   ENDM                                                           COMADEF    86
  
  
  
  
                                        ***       DEQU - DECLARE EQUIVALENCED FIELD.                             COMADEF    88
                                        *                                                                        COMADEF    89
                                        *  NAM    DEQU   FLD,LEN                                                 COMADEF    90
                                        *                                                                        COMADEF    91
                                        *         ENTRY  NAM = A NEW FIELD NAME TO BE DECLARED.                  COMADEF    92
                                        *                FLD = A PREVIOUSLY DEFINED FIELD IN THIS STRUCTURE.     COMADEF    93
                                        *                LEN = (OPTIONAL) EXPLICIT BIT LENGTH OF NEW FIELD.      COMADEF    94
                                        *                      IF 'LEN' IS OMITTED, LENGTH OF THE NEW FIELD      COMADEF    95
                                        *                      WILL BE SAME AS LENGTH OF OLD FIELD.              COMADEF    96
                                                                                                                 COMADEF    97
                                                                                                                 COMADEF    98
                                                  MACRO  DEQU,N,B,LEN,V                                          COMADEF    99
                                         .2       SET    LEN  ".P"B_L                                            COMADEF   100
                                         .3       SET    V    ".P"B_P                                            COMADEF   101
                                         ".P"N_P  EQU    .3                                                      COMADEF   102
                                         ".P"N_L  EQU    .2                                                      COMADEF   103
                                        *                            LIST FIELD MASK PRETTILY.                   COMADEF   104
                                                  LOC    .W*100B+.3                                              COMADEF   105
                                                  POS    1+.C                                                    COMADEF   106
                                         .4       SET    *P-.2-.3                                                COMADEF   107
                                         .5       SET    .D-.2-.4                                                COMADEF   108
                                                  VFD    .4/,.2/-0,.5/                                           COMADEF   109
                                                  ORG    *O-*P/60D                                               COMADEF   110
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    16
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                DEQU
  
                                        *                            DEFINE MASK VALUE FOR SINGLE BIT FIELDS.    COMADEF   111
                                                  IFEQ   .2,1,4                                                  COMADEF   112
                                                  NOREF  /"QUAL"/".P"N_L                                         COMADEF   113
                                                  IFLE   .3,17,2                                                 COMADEF   114
                                         .A       DECMIC .3                                                      COMADEF   115
                                         ".P"N_M  EQU    1S".A"                                                  COMADEF   116
                                                  ENDM                                                           COMADEF   117
  
  
  
  
                                        ***       REDEF - DECLARE OVERLAPPING SUB-STRUCTURES.                    COMADEF   119
                                        *                                                                        COMADEF   120
                                        *         REDEF  NAME                                                    COMADEF   121
                                        *                                                                        COMADEF   122
                                        *         ENTRY  NAME = THE NAME OF A PREVIOUSLY DECLARED FIELD.         COMADEF   123
                                        *                                                                        COMADEF   124
                                        *         CAUSES SUBSEQUENT FIELD TO BE DEFINED BEGINNING AT THE TOP     COMADEF   125
                                        *         (LEFTMOST) BIT OF FIELD 'NAME'.  IF 'NAME' IS OMITTED,         COMADEF   126
                                        *         REDEFINITION BEGINS AT THE TOP OF THE ENTIRE STRUCTURE.        COMADEF   127
                                                                                                                 COMADEF   128
                                                                                                                 COMADEF   129
                                         REDEF    MACRO  N                                                       COMADEF   130
                                                  IFC    EQ, N  ,3                                               COMADEF   131
                                         .1       SET    .C                                                      COMADEF   132
                                         .L       SET    .D                                                      COMADEF   133
                                                  SKIP   2                                                       COMADEF   134
                                         .1       SET    ".P"N_P+".P"N_L-1                                       COMADEF   135
                                         .L       SET    1000  ** KLUDGE **  .L+.1-.B+1                          COMADEF   136
                                        *                                                                        COMADEF   137
                                         .B       SET    .1                                                      COMADEF   138
                                                  ENDM                                                           COMADEF   139
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    17
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                EXAMPLE 
  
                                        ***       CONSIDER THE FOLLOWING EXAMPLE --                              COMADEF   141
                                        *                                                                        COMADEF   142
                                        *         TABLE X      .------.-------.------.                           COMADEF   143
                                        *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE @ 100)     COMADEF   144
                                        *                      .------.-------.------.                           COMADEF   145
                                        *                       '      '       '     '                           COMADEF   146
                                        *                      59     47      17     0                           COMADEF   147
                                        *                                                                        COMADEF   148
                                        *                 OR   .------.--------------.                           COMADEF   149
                                        *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)         COMADEF   150
                                        *                      .------.--------------.                           COMADEF   151
                                        *                       '      '             '                           COMADEF   152
                                        *                      59     47             0                           COMADEF   153
                                        *                                                                        COMADEF   154
                                        *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE COMADEF   155
                                        *                                  TWO CHARACTERS 'X.'                   COMADEF   156
                                        *         TYPE   DEFINE  12                                              COMADEF   157
                                        *         MSG    DEFINE  48                                              COMADEF   158
                                        *                REDEF   MSG                                             COMADEF   159
                                        *         VALUE  DEFINE  30                                              COMADEF   160
                                        *         SUBV   DEFINE  18                                              COMADEF   161
                                        *                                                                        COMADEF   162
                                        *       THE SYMBOLS DEFINED WOULD BE                                     COMADEF   163
                                        *                                                                        COMADEF   164
                                        *                X.TYPEP   EQU  48                                       COMADEF   165
                                        *                X.TYPEL   EQU  12                                       COMADEF   166
                                        *                X.MSGP    EQU   0                                       COMADEF   167
                                        *                X.MSGL    EQU  48                                       COMADEF   168
                                        *                X.VALUEP  EQU  18                                       COMADEF   169
                                        *                X.VALUEL  EQU  30                                       COMADEF   170
                                        *                X.SUBVP   EQU   0                                       COMADEF   171
                                        *                X.SUBVL   EQU  18                                       COMADEF   172
  
  
  
  
                                        ***       BFMW - CREATE A BIT FIELD MASK WORD.                           COMADEF   174
                                        *                                                                        COMADEF   175
                                        * LAB     BFMW   PREFIX,(BITLIST),SHFT                                   COMADEF   176
                                        *                                                                        COMADEF   177
                                        *         ENTRY  PREFIX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.    COMADEF   178
                                        *                BITLIST = LIST OF BIT FIELDS TO APPEAR IN MASK.         COMADEF   179
                                        *                SHFT = AMOUNT BY WHICH WORD IN REGISTERS HAS ALREADY    COMADEF   180
                                        *                       BEEN SHIFTED.                                    COMADEF   181
                                                                                                                 COMADEF   182
                                                                                                                 COMADEF   183
                                                  MACRO  BFMW,LAB,PR,BIT,SHFT                                    COMADEF   184
                                                  IFC    NE,/"QUAL"//,1                                          COMADEF   185
                                                  NOREF  /"QUAL"/.P,/"QUAL"/.Z                                   COMADEF   186
                                        *                                                                        COMADEF   187
                                         LAB      BSS    0                                                       COMADEF   188
                                         .Z       SET    0                                                       COMADEF   189
                                                                                                                 COMADEF   190
                                                  IRP    BIT                                                     COMADEF   191
                                         .P       SET    PR.BIT_P+PR.BIT_L+SHFT                                  COMADEF   192
                                                  IFGT   .P,60,1                                                 COMADEF   193
                                         .P       SET    .P-60                                                   COMADEF   194
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    18
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                BMFW
  
                                                  IFNE   .P,PR.BIT_L,3                                           COMADEF   195
                                                  POS    .P                                                      COMADEF   196
                                                  VFD    PR.BIT_L/-0                                             COMADEF   197
                                                  ELSE   1                                                       COMADEF   198
                                         .Z       SET    .P                                                      COMADEF   199
                                                  IRP                                                            COMADEF   200
                                        *                                                                        COMADEF   201
                                                  IFNE   .Z,0,3                                                  COMADEF   202
                                                  POS    .Z                                                      COMADEF   203
                                                  VFD    .Z/-0                                                   COMADEF   204
                                                  SKIP   1                                                       COMADEF   205
                                                  VFD    *P/0                                                    COMADEF   206
                                        *                                                                        COMADEF   207
                                                  ENDM                                                           COMADEF   208
                                                                                                                 COMADEF   209
                                         COMADEF  ENDX                                                           COMADEF   210
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    19
        CCOMGCM - GENERAL COMPILER MACROS 
  
             0                                    CTEXT  CCOMGCM - GENERAL COMPILER MACROS                       CCOMGCM     2
  
  
  
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     CCOMGCM     4
                                        *                                                                        CCOMGCM     5
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    CCOMGCM     6
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       CCOMGCM     7
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        CCOMGCM     8
                                        *                                                                        CCOMGCM     9
                                        *         LXI       JK                                                   CCOMGCM    10
                                        *                                                                        CCOMGCM    11
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              CCOMGCM    12
                                        *                *JK* = SHIFT COUNT EXPRESSION                           CCOMGCM    13
                                        *                                                                        CCOMGCM    14
                                        *         USES   XI                                                      CCOMGCM    15
                                                                                                                 CCOMGCM    16
                                                  PURGDEF  ^XQ                                                   CCG26       7
                                                  PURGDEF  LXQ                                                   CCG26       8
                                         ^XQ      CPOP   0,200B,100B                                             CCG26       9
                                                                                                                 CCOMGCM    19
                                         LXQ      OPDEF     I,JK                                                 CCOMGCM    20
                                          IFNE JK,0,2                                                            CCOMGCM    21
                                          IFNE JK_&60D,0,1                                                       CCOMGCM    22
                                          ^X.I JK                                                                CCOMGCM    23
                                          ENDM                                                                   CCOMGCM    24
  
  
  
  
                                        **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.           CCOMGCM    26
                                        *                                                                        CCOMGCM    27
                                        *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES       CCOMGCM    28
                                        *         IT AS AN ENTRY POINT, FOR FORMING THE NAME/ADDRESS TABLES      CCOMGCM    29
                                        *         USED BY THE UTILITY ROUTINE *RPV* (LOCATED IN THE CRADLE).     CCG26      10
                                        *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE         CCOMGCM    31
                                        *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR     CCOMGCM    32
                                        *         PSEUDO-OP THAT WOULD CAUSE *COMPASS-S* LOCATION COUNTER TO BE  CCOMGCM    33
                                        *         ADVANCED.                                                      CCOMGCM    34
                                        *                                                                        CCOMGCM    35
                                        * RNAM    RPVDEF ENAM                                                    CCG26      11
                                        *                                                                        CCG26      12
                                        *         ENTRY  RNAM = ROUTINE NAME                                     CCG26      13
                                        *                ENAM = ENTRY POINT WILL BE B=*ENAM*.  IF ENAM IS        CCG26      14
                                        *                        ABSENT, THE FIRST 5 CHARACTERS OF *RNAM* ARE    CCG26      15
                                        *                        APPENDED TO *B=* ( IF NOT PRESENT ALREADY ).    CCG26      16
                                                                                                                 CCG26      17
                                                  PURGMAC RPVDEF                                                 CCG26      18
                                                                                                                 CCG26      19
                                                  MACRO  RPVDEF,R,E                                              CCG26      20
                                         '?RPV=A  MICRO  1,7, R                                                  CCG26      21
                                                  IFC    NE,/E//,1                                               CCG26      22
                                         '?RPV=A  MICRO  1,7, E                                                  CCG26      23
                                         '?RPV=B  MICRO  1,2, "'?RPV=A"                                          CCG26      24
                                                  IFC    NE,/"'?RPV=B"/B=/,1                                     CCG26      25
                                         '?RPV=A  MICRO  1,7, B="'?RPV=A"                                        CCG26      26
                                                  NOREF  "'?RPV=A"                                               CCG26      27
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    20
        CCOMGCM - GENERAL COMPILER MACROS                             RPVDEF
  
                                                  ENTRY  "'?RPV=A"                                               CCG26      28
                                         "'?RPV=A"  BSS  0                                                       CCG26      29
                                         RPVDEF   ENDM                                                           CCG26      30
  
  
  
                                        **        RPVFWA - DEFINE ENTRY POINT FOR *RPV* NAME/ADDRESS TABLE.      CCG26      32
                                        *                                                                        CCG26      33
                                        *         RPVFWA NAM,FWA                                                 CCG26      34
                                        *                                                                        CCG26      35
                                        *                NAM = ROUTINE NAME                                      CCG26      36
                                        *                FWA = ROUTINE FWA.  IF ABSENT, *B=XXXXX* IS USED WHERE  CCG26      37
                                        *                      XXXXX ARE THE FIRST 5 CHARACTERS OF *NAM*.        CCG26      38
                                                                                                                 CCG26      39
                                                  PURGMAC  RPVFWA                                                CCG26      40
                                                                                                                 CCG26      41
                                         RPVFWA   MACRO  NAM,FWA                                                 CCG26      42
                                                  VFD    42/0L_NAM                                               CCG26      43
                                                  IFC    EQ,/FWA//,4                                             CCG26      44
                                         '?RPV=A  MICRO  1,5,/NAM      /                                         CCG26      45
                                                  VFD    18/=XB="'?RPV=A"                                        CCG26      46
                                                  NOREF  B="'?RPV=A"                                             CCG26      47
                                                  SKIP   1                                                       CCG26      48
                                                  VFD    18/FWA                                                  CCG26      49
                                         RPVFWA   ENDM                                                           CCG26      50
  
  
  
  
                                        **        LISTL - LIST ONE LINE.                                         CCOMGCM    65
                                        *                                                                        CCOMGCM    66
                                        *         WRITE ONE CODED LINE FROM *BUF* TO THE OUTPUT FILE.  IF PAGE   CCOMGCM    67
                                        *         IS FULL, EJECT AND WRITE TITLE LINE(S) FIRST.                  CCOMGCM    68
                                        *                                                                        CCOMGCM    69
                                        *                                                                        CCOMGCM    70
                                        *         LISTL  BUF,WORDS,NBL                                           CCOMGCM    71
                                        *                                                                        CCOMGCM    72
                                        *         ENTRY  *BUF*   = FIRST WORD ADDRESS OF LINE BUFFER             CCOMGCM    73
                                        *                *WORDS* = LINE LENGTH (WORDS)                           CCOMGCM    74
                                        *                *NBL* = NUMBER OF BLANK LINES TO BE PRINTED BEFORE      CCOMGCM    75
                                        *                        DATA IN LINE BUFFER.  IF NBL > LINES REMAINING  CCOMGCM    76
                                        *                        THEN A PAGE EJECT IS DONE.                      CCOMGCM    77
                                        *                                                                        CCOMGCM    78
                                        *         USES   X6, B6, B7                                              CCOMGCM    79
                                        *                                                                        CCOMGCM    80
                                        *         CALLS  FA=LOL ( CCOMLOL )                                      CCOMGCM    81
                                                                                                                 CCOMGCM    82
                                                                                                                 CCOMGCM    83
                                                  PURGMAC   LISTL                                                CCOMGCM    84
                                                                                                                 CCOMGCM    85
                                         LISTL    MACRO  S,N,NBL                                                 CCOMGCM    86
                                                  R=     B6,S                                                    CCOMGCM    87
                                        *                                                                        CCOMGCM    88
                                                  IFC    EQ, N  ,1                                               CCOMGCM    89
                                                  ERR    NO LENGTH "SEQUENCE"                                    CCOMGCM    90
                                        *                                                                        CCOMGCM    91
                                                  R=     B7,N                                                    CCOMGCM    93
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    21
        CCOMGCM - GENERAL COMPILER MACROS                             LISTL 
  
                                        *                                                                        CCOMGCM    94
                                                  SX6    NBL 0                                                   CCOMGCM    95
                                        *                                                                        CCOMGCM    96
                                                  RJ     =XFA=LOL                                                CCOMGCM    97
                                         LISTL    ENDM                                                           CCOMGCM    98
  
  
  
  
                                        **        NUPAGE - EJECT AND TITLE NEW PAGE.                             CCOMGCM   100
                                        *                                                                        CCOMGCM   101
                                        *         EJECTS PAGE.  WRITES TITLE AND SUBTITLE LINES ON NEW PAGE.     CCOMGCM   102
                                        *         RESETS LINES-PER-PAGE COUNTER.                                 CCOMGCM   103
                                        *                                                                        CCOMGCM   104
                                        *                                                                        CCOMGCM   105
                                        *         NUPAGE    (NO CALLING PARAMETERS)                              CCOMGCM   106
                                        *                                                                        CCOMGCM   107
                                        *         ENTRY  NO REQUIREMENTS.                                        CCOMGCM   108
                                        *                                                                        CCOMGCM   109
                                        *         EXIT   PAGE EJECTED, NEW PAGE TITLED.                          CCOMGCM   110
                                        *                *N.LINES* RESET TO FULL PAGE LINE COUNT.                CCOMGCM   111
                                        *                                                                        CCOMGCM   112
                                        *         USES   NONE                                                    CCOMGCM   113
                                        *                                                                        CCOMGCM   114
                                        *         CALLS  FA=NPG ( CCOMLOL )                                      CCOMGCM   115
                                                                                                                 CCOMGCM   116
                                                                                                                 CCOMGCM   117
                                                  PURGMAC   NUPAGE                                               CCOMGCM   118
                                                                                                                 CCOMGCM   119
                                         NUPAGE   MACRO                                                          CCOMGCM   120
                                                  RJ     =XFA=NPG                                                CCOMGCM   121
                                         NUPAGE   ENDM                                                           CCOMGCM   122
                                                                                                                 CCOMGCM   123
                                                                                                                 CCOMGCM   124
                                                  ENDX                                                           CCOMGCM   125
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    22
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  DESCR 
  
                                        **        *IL* INSTRUCTION DESCRIPTOR FIELDS ( ALL INSTRUCTION TYPES )   CCGILFD     3
                                        *         INSTRUCTION ATTRIBUTES ( PROPERTY BITS ).                      CCGILFD     4
                                                                                                                 CCGILFD     5
                                                  DESCRIBE D.,60                                                 CCGILFD     6
      L     72  60000000000000000000     TY       DEFINE 2           RLIST TYPE - 1 ( = 0-3 )                    CCGILFD     7
      L     65  17400000000000000000     FT       DEFINE 5           FUNCTIONAL UNIT TIME IN MINOR CYCLES        CCGILFD     8
      L     64  00200000000000000000     NR       DEFINE 1           D.RJRSP+12 ( BIT SHIFT FOR *MCG* IN *DRR* ) CCGILFD     9
                                                  DEFINE 1           =1 TO SIMULATE A EXPONENT                   CCGILFD    10
      L     57  00074000000000000000     F1       DEFINE 4           FIRST FUNCTION UNIT ORDINAL                 CCGILFD    11
      L     53  00003600000000000000     F2       DEFINE 4           SECOND FUNCTION UNIT ORDINAL                CCGILFD    12
      L     52  00000100000000000000     BM       DEFINE 1           NODE BOUNDARY MARKER ( JUMP, LABEL, ETC )   CCGILFD    13
      L     51  00000040000000000000     ^D       DEFINE 1           SET IF INSTRUCTION DOESN-T DEF AN RI/ NO RI CCGILFD    14
                                                                                                                 CCGILFD    15
                                        **        NOTE - THE BIT FIELD FROM *RJRS* TO *JFT* IS USED BY THE       CCGILFD    16
                                        *         SCHEDULER TO ASSIGN RESULT REGISTERS, SO PLEASE DO NOT REORDER CCGILFD    17
                                                                                                                 CCGILFD    18
      L     50  00000020000000000000     RJRS     DEFINE 1           PRECEDES AN RJ REGISTER STORE               CCGILFD    19
      L     47  00000010000000000000     PS       DEFINE 1           INST IS AN IMMEDIATE PREDECESSOR OF A STORE CCGILFD    20
      L     46  00000004000000000000     PRS      DEFINE 1           PRECEDES A REGISTER STORE                   CCGILFD    21
      L     45  00000002000000000000     ECJ      DEFINE 1           ERROR CHECK (FALL THROUGH) JUMP             CCGILFD    22
      L     44  00000001000000000000     L2       DEFINE 1           LEVEL 2 LD/ST                               CCGILFD    23
      L     43  00000000400000000000     LD       DEFINE 1           LOAD                                        CCGILFD    24
      L     42  00000000200000000000     ST       DEFINE 1           STORE                                       CCGILFD    25
      L     41  00000000100000000000     JP       DEFINE 1           JUMP                                        CCGILFD    26
      L     40  00000000040000000000     XMT      DEFINE 1           XMT/SXT (LEVEL 0 LD/ST IF *L2* SET)         CCG0041     9
      L     37  00000000020000000000     KS       DEFINE 1           OPERATION DESTROYS OPERAND ( CON SHIFTS )   CCGILFD    28
      L     36  00000000010000000000     PI       DEFINE 1           PSEUDO INSTRUCTION ( RS,DAR,DEF,LAB, ETC )  CCGILFD    29
      L     35  00000000004000000000     MUC      DEFINE 1           MULTI USE COMPUTATION ( *JAM* MODE )        CCGILFD    30
      L     34  00000000002000000000     JFT      DEFINE 1           JAM FUNCTION TIME, "0 IF USES A FUNCTION UN CCGILFD    31
                                                                                                                 CCGILFD    32
      L     33  00000000001000000000     USI      DEFINE 1           UNSAFE INSTRUCTION ( INTERRUPT POSSIBLE )   CCGILFD    33
      L     32  00000000000400000000     ZP       DEFINE 1           =1 IF INSTRUCTION HAS NO OPERANDS           CCGILFD    34
      L     31  00000000000200000000     CM       DEFINE 1           "0 IF OPERANDS ARE COMMUTATIVE              CCGILFD    35
      L     27  00000000000140000000     SZ       DEFINE 2           INSTRUCTION SIZE ( PARCEL COUNT )           CCGILFD    36
      L     26  00000000000020000000     SR       DEFINE 1           SET FOR SIZE REDUCIBLE LD/ST-S              CCGILFD    37
      L     25  00000000000010000000     FP       DEFINE 1           SET IF IH IS AN F.P.                        CCGILFD    38
      L     24  00000000000004000000     XU       DEFINE 1           USES EXTEND PAST A REDEF ( SIO AND GRA )    CCGILFD    39
      L     23  00000000000002000000     RF       DEFINE 1           RI USED IN *RF* OF LD/ST/STT/SA             CCGILFD    40
      L     22  00000000000001000000     INC      DEFINE 1           INCREMENT INSTRUCTION ( IA/IS/STT/ST )      CCGILFD    41
      L     11  00000000000000777000     REGW     DEFINE 9           X-REGISTER WIDTH OF THE SEQUENCE AT A INST  CCGILFD    42
             0  00000000000000000777     USES     DEFINE 9           USES COUNT                                  CCGILFD    43
                                                                                                                 CCGILFD    44
                                        *         COMBINATIONS OF DESCRIPTOR BIT FIELDS                          CCGILFD    45
                                                                                                                 CCGILFD    46
      L     42  00000000600000000000     LDST     DEQU   ST,2        LD AND ST BITS ( MEMORY REFERENCE )         CCGILFD    47
      L     46  00000014000000000000     STRS     DEQU   PRS,2       STORE / RS PRECEDENCE BITS                  CCGILFD    48
      L     25  00000000000030000000     AR       DEQU   FP,2        ADDRESS REDUCTION BITS ( *MCG* )            CCGILFD    49
      L     41  00000000700000000000     LSJ      DEQU   JP,3        LD / ST / JP BITS                           CCGILFD    50
      L     50  00000060000000000000     TYIO     DEQU   RJRS,2      TYPE I OPERAND BIT DETERMINOR               CCGILFD    51
                                        *                            0 - RJ,RK ARE OPERANDS                      CCGILFD    52
                                        *                            1 - RK IS AN OPERAND                        CCGILFD    53
                                        *                            2 - RI,RJ,RK ARE OPERANDS                   CCGILFD    54
      L     65  00400000000000000000     EQV      DEQU   FT,1        "0 IF INST IS PRED OF AN EQUIV LINK         CCGILFD    55
                                        *                ASSUMES THAT FUN TIME OF LD/ST-S IS AN EVEN NUMBER.     CCGILFD    56
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    23
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  RLIST 
  
                                        **        *IL* INSTRUCTION FIELD DEFINITIONS                             CCGILFD    58
                                                                                                                 CCGILFD    59
                                                  DESCRIBE R1.,60    TYI(OC,RJ,RK,RI) / TYII(OC,IN,SO,RI) , ETC  CCGILFD    60
                                                                                                                 CCGILFD    61
                                        *         TYPE 1 *IL* - BINARY OPERATIONS - RI = RJ.OP.RK                CCGILFD    62
                                        *                12/PACKED OC,16/RJ,16/RK,16/RI                          CCGILFD    63
                                                                                                                 CCGILFD    64
      L     60  77770000000000000000     OC       DEFINE 12          PACKED OP CODE                              CCGILFD    65
      L     40  00007777740000000000     RJ       DEFINE 16          FIRST OPERAND                               CCGILFD    66
      L     20  00000000037777600000     RK       DEFINE 16          SECOND OPERAND                              CCGILFD    67
             0  00000000000000177777     RI       DEFINE 16          RESULT RNUMBER                              CCGILFD    68
                                                                                                                 CCGILFD    69
                                        *         TYPE 2 *IL* - 1 ADDRESS AND PSEUDOS - .OP.RI = IN              CCGILFD    70
                                        *                12/PACKED OC,18/IN,14/SO,16/RI                          CCGILFD    71
                                                                                                                 CCGILFD    72
      L     36  00007777770000000000     IN       DEFINE 18,R1.RJP+15      A CA FIELD                            CCGILFD    73
      L     20  00000000007777600000     SO       DEFINE 14          REGISTER DESIGNATOR                         CCGILFD    74
                                                                                                                 CCGILFD    75
                                        *         TYPE 3 *IL* - LOADS,STORES AND JUMPS                           CCGILFD    76
                                        *                12/PACKED OC,18/IN,12/H2,2/0,16/RI                      CCGILFD    77
                                        *                R2 WORD = IHINFO FORMAT ( SEE BELOW )                   CCGILFD    78
  
  
                                        *         TYPE 4 *IL* - SPECIAL INSTRUCTIONS, BOUNDARY MARKERS, ETC.     CCGILFD    80
                                        *                12/PACKED OC,18/CA,12/H2,18/IH                          CCGILFD    81
                                                                                                                 CCGILFD    82
                                                  DESCRIBE R1.,60    TYIV(OC,CA,H2,IH)                           CCGILFD    83
      L     60  77770000000000000000     OC       DEFINE 12                                                      CCGILFD    84
      L     36  00007777770000000000     CA       DEFINE 18                                                      CCGILFD    85
      L     22  00000000007777000000     H2       DEFINE 12          SYMTAB ORDINAL, MISCELLANEOUS INFO          CCGILFD    86
             0  00000000000000777777     IH       DEFINE 18          IH FIELD                                    CCGILFD    87
  
  
  
                                        **        IH INFO WORD/ R2 WORD FOR MEMORY REFERENCES AND TYPE III INST  CCGILFD    89
                                        *         NOTE - LD,ST,BM BITS SET BY *BDT* IN *FIL* DURING INTERFERENCE CCGILFD    90
                                        *                LINKING PHASE ONLY ( BITS ARE SET IN *IH* TABLE ).      CCGILFD    91
                                        *         LD BIT SET FOR APLIST LD-S IN *PRE* TO PREVENT SQUEEZING OF    CCGILFD    92
                                        *                ST/LD SEQUENCES IN *SQZ*.                               CCGILFD    93
                                                                                                                 CCGILFD    94
                                                  DESCRIBE IH.,60    IHW(RF,CA,IH)                               CCGILFD    95
      L     73  40000000000000000000     LD       DEFINE 1           LD BIT FROM DESCR                           CCGILFD    96
      L     72  20000000000000000000     ST       DEFINE 1           ST BIT FROM DESCR                           CCGILFD    97
      L     71  10000000000000000000     BM       DEFINE 1           SET FOR BOUNDARY MARKERS                    CCGILFD    98
                                                  DEFINE 1                                                       FCC1918     7
      L     67  02000000000000000000     SIA      DEFINE 1           STT GEN BY *GRA* OF LCM&FP  ADDRESS         FCC1918     8
                                        *                              WHERE VALUE OF RF MAY BE NEGATIVE         FCC1918     9
      L     66  01000000000000000000     SRF      DEFINE 1           =1 IF SPECIAL RF NECESSARY ( RF = (RJ,RK) ) CCGILFD   100
      L     44  00777777000000000000     RF       DEFINE 18          R-NUMBER OF MODIFIER                        CCGILFD   101
      L     22  00000000777777000000     CA       DEFINE 18          CONSTANT ADDEND                             CCGILFD   102
      L     17  00000000000000700000     I        DEFINE 3           TABLE NUMBER ( 0 - SYMTAB, ETC )            CCGILFD   103
             0  00000000000000077777     H        DEFINE 15          ORDINAL INTO TABLE                          CCGILFD   104
             0  00000000000000777777     IH       DEQU   H,18                                                    CCGILFD   105
                                                                                                                 CCGILFD   106
             0  00000000777777777777     CAIH     DEQU   H,36        COMBINATION OF CA AND IH FIELDS             CCGILFD   107
                                                                                                                 CCGILFD   108
                               20000     IH.LCMA  EQU    1S13        =1 IF LCM=I ADDRESS LOAD ( ^F.P. )          CCGILFD   109
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    24
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  IHINFO
  
                               40000     IH.LCM   EQU    1S14        *LCM* ( LEVEL 2 ) BIT VALUE SET IN *IH*     CCGILFD   110
                                        *                            FIELD FOR *DRL/DWL*-S .                     CCGILFD   111
                              200000     RF.MV    EQU    1S16        BIT SET IN *RF* FIELD OF PLD,PST,DRL,DWL    CCGILFD   112
                                        *                            IF RF IS -VAR  ( A(C-VAR)  ).               CCGILFD   113
                                  72     R2.LONGP EQU    58D         BIT =1 IN R2 OF *BOS* IF FIRST BLOCK OF A   CCG21       1
                                        *                            DO LOOP AND LOOP INDEX IS *LONG*            CCG21       2
                                  73     IH.STKP  EQU    59          =1 IN R2 OF LOOP GEN LABEL IF LOOP WILL     CCG29       1
                                        *                              FIT INSTACK ( GRA AND MCG )               CCG29       2
  
  
                              100000     I.GL     EQU    1S15        I FIELD VALUE OF GL.NNN SYMBOLS             CCGILFD   115
                              600001     RN.MASK  EQU    600001B     MASK FOR EXTRACTING R-NUMBERS               CCGILFD   116
  
  
  
                                        **        SO FIELD  - USED FOR SPECIFYING EXPLICIT RESULT REGISTERS      CCGILFD   118
                                        *                     IN *RS* AND *DEF* INSTRUCTIONS ONLY.               CCGILFD   119
                                        *                2/INV INFO,2/LOCK TYPE,3/REG TYPE,3/REG NUMBER          CCGILFD   120
                                                                                                                 CCGILFD   121
                                                  DESCRIBE SO.,11                                                CCGILFD   122
                                2000     SFL      DEFINE 1           SCRATCHABLE FULL LOCK ( TEMP/FULL LOCK )    CCGILFD   123
                                1000     INVC     DEFINE 1           INVARIANT IN CURRENT LOOP                   CCGILFD   124
                                0400     INV      DEFINE 1           INVARIANT IN INNER LOOP                     CCGILFD   125
                                0300     LK       DEFINE 2           LOCK TYPE, *RS* INSTRUCTION ONLY            CCGILFD   126
                                        *                            0 - HOLD UNTIL NEXT UNCONDITIONAL JUMP      CCGILFD   127
                                        *                            1 - HOLD UNTIL USES[RI] = 0                 CCGILFD   128
                                        *                            2 - HOLD UNTIL REDEF OR *EOQ*               CCGILFD   129
                                        *                            3 - RJ RS, IT IS A *DEF* IN DISGUISE.       CCGILFD   130
                                        *                            3 - A-REG LOCK ( INITIAL *DEF* OF PREFETCH) CCGILFD   131
                                0070     RT       DEFINE 3           REGISTER TYPE ( BAX = 0/1/2 )               CCGILFD   132
                                0007     RN       DEFINE 3           REGISTER NUMBER ( 0 - 7 )                   CCGILFD   133
                                0077     REG      DEQU   RN,6        RT + RN FIELDS                              CCGILFD   134
                                                                                                                 CCGILFD   135
                                   6     .LKP     DECMIC SO.LKP                                                  CCGILFD   136
                                 100     .LKP     SET    1S".LKP"                                                CCGILFD   137
                                 100     SO.TLOCK EQU    .LKP        TEMP LOCK                                   CCGILFD   138
                                        *                              WARNING - TEMP LOCKS CAN BE ELIMINATED    CCGILFD   139
                                        *                              IN *SQZ* IF THEY HAVE NO *REAL* USES.     CCGILFD   140
                                 200     SO.LOCK  EQU    2*.LKP      FULL LOCK ( UNTIL REDEF / *EOQ* )           CCGILFD   141
                                 300     SO.RJLK  EQU    3*.LKP      RJ LOCK ( B-REG DEF FOR UP / NR INSTRUCTION CCGILFD   142
                                                                                                                 CCGILFD   143
                                   0     RT.BR    EQU    0           VALUE OF B REGISTER TYPE                    CCGILFD   144
                                   2     RT.XR    EQU    2           VALUE OF X REGISTER TYPE                    CCGILFD   145
  
  
  
                                        **        AP / IO LIST ENTRY FORMAT FOR USE/DEF INFO PROCESSING          CCGILFD   147
                                                                                                                 CCGILFD   148
                                                  DESCRIBE AP.,60                                                CCGILFD   149
      L     73  40000000000000000000     IO       DEFINE 1           =1 IF INPUT ( DEF ) IN *IOL*                CCGILFD   150
      L     72  20000000000000000000     USE      DEFINE 1           =1 IF INPUT LIST ITEM MAY NOT BE DEFINED    CCGILFD   151
      L     71  10000000000000000000     P1       DEFINE 1           +1 REF FOR A DOUBLE/COMPLEX VARIABLE        CCGILFD   152
                                                  DEFINE 2                                                       CCGILFD   153
      L     66  01000000000000000000     CR       DEFINE 1           CLASS REFERENCE                             CCGILFD   154
                                                  DEFINE 18                                                      CCGILFD   155
      L     22  00000000777777000000     CA       DEFINE 18          BIAS                                        CCGILFD   156
             0  00000000000000777777     IH       DEFINE 18          SYMBOL ORDINAL                              CCGILFD   157
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    25
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  APL 
  
                                                                                                                 CCGILFD   158
             0  00000000777777777777     CAIH     DEQU   IH,36                                                   CCGILFD   159
  
  
  
                                        **        FI. - FUNCTION INFORMATION WORD ( R2 ) FOR RJX-S.              CCGILFD   161
                                                                                                                 CCGILFD   162
                                                  DESCRIBE FI.,60                                                CCGILFD   163
      L     66  77000000000000000000     FT       DEFINE 6           FUNCTION TYPE                               CCGILFD   164
                                        *                            0 - IGNORE, 1 - USER, 2 - BEF, 3 - I/O      CCGILFD   165
      L     36  00777777770000000000     REGP     DEFINE 24          BIT MASK OF REGISTERS PRESERVED             CCGILFD   166
                                        *                            ( 0 - B0 , 1 - B1, ... 23 - X7 )            CCGILFD   167
      L     14  00000000007777770000     INDX     DEFINE 18          INDEX TO LIST IN *IOL*                      CCGILFD   168
             0  00000000000000007777     LEN      DEFINE 12          LENGTH OF LIST IN *IOL* + 1S10 IF " 0       CCGILFD   169
  
  
                                        **        SI. - *SLIST* FILE FORMAT FOR MACHINE INSTRUCTIONS             CCGILFD   171
                                                                                                                 CCGILFD   172
                                                  DESCRIBE SI.                                                   CCGILFD   173
      L     73  40000000000000000000     H2       DEFINE 1           =1 IF WORD WITH *H2* FOLLOWS THIS WORD      CCGILFD   174
      L     60  37770000000000000000     OPC      DEFINE 11          PACKED OPCODE                               CCGILFD   175
      L     36  00007777770000000000     CA       DEFINE 18                                                      CCGILFD   176
      L     14  00000000007777770000     IH       DEFINE 18                                                      CCGILFD   177
      L      6  00000000000000007700     RJ       DEFINE 6           J REGISTER NUMBER IN SO. FORMAT             CCGILFD   178
             0  00000000000000000077     RI       DEFINE 6           I REGISTER NUMBER IN SO. FORMAT             CCGILFD   179
                                                                                                                 CCGILFD   180
      L     14  00000000000000770000     RK       DEQU   IH,6        K REGISTER NUMBER IN SO. FORMAT             CCGILFD   181
      L     14  00007777777777770000     CAIH     DEQU   IH,36                                                   CCGILFD   182
  
  
                                        **        OPR - MACRO TO DEFINE *IL* INSTRUCTION OPCODES ( OC. SYMBOLS ) CCGILFD   184
                                                                                                                 CCGILFD   185
                                                  MACRO  OPR,N                                                   CCGILFD   186
                                         OC.N     EQU    .OC                                                     CCGILFD   187
                                         .OC      SET    .OC+1                                                   CCGILFD   188
                                         OPR      ENDM                                                           CCGILFD   189
                                                                                                                 CCGILFD   190
                                                  NOREF  .OC                                                     CCGILFD   191
                                   0     .OC      SET    0                                                       CCGILFD   192
                                                                                                                 CCGILFD   193
                                                  SKIP   1           SO SYMBOLS ARE PUT IN STEXT RECORD          CCGILFD   194
                                         OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                        **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.      OPRDEFS     3
  
  
                                        **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS      OPRDEFS     5
                                        *         M IS MAXIMUM STRING LENGTH                                     OPRDEFS     6
                                        *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS        OPRDEFS     7
                                                                                                                 OPRDEFS     8
                                                  MACRO  GETARG,S,N,M,SS                                         OPRDEFS     9
                                         S        MICRO  N-15,M,$SS$                                             OPRDEFS    10
                                         S        MICRO  1,, "S"                                                 OPRDEFS    11
                                         GETARG   ENDM                                                           OPRDEFS    12
                                                                                                                 OPRDEFS    13
                                        **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST    OPRDEFS    14
                                                                                                                 OPRDEFS    15
                                                  MACRO  V=,V,S,L1,L2                                            OPRDEFS    16
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    26
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  OPRDEFS 
  
                                         V        SET    -1                                                      OPRDEFS    17
                                                  ECHO   3,P1=(L1),P2=(L2)                                       OPRDEFS    18
                                                  IFC    EQ,/S/P1/,2                                             OPRDEFS    19
                                         V        SET    P2                                                      OPRDEFS    20
                                                  STOPDUP                                                        OPRDEFS    21
                                                  ERRMI  V           ILLEGAL MACRO PARAM - S                     OPRDEFS    22
                                         V=       ENDM                                                           OPRDEFS    23
                                                                                                                 OPRDEFS    24
                                        **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO           OPRDEFS    25
                                                                                                                 OPRDEFS    26
                                                  MACRO  FUNIT,N,F66,F76                                         OPRDEFS    27
                                         M        IFEQ   .CPU,76,2                                               OPRDEFS    28
                                         N        EQU    F76 F66           DEFAULT TO 6600 UNIT                  OPRDEFS    29
                                         M        SKIP   1                                                       OPRDEFS    30
                                         N        EQU    F66                                                     OPRDEFS    31
                                         FUNIT    ENDM                                                           OPRDEFS    32
  
  
                                        **        FUNCTIONAL UNIT CODES FOR 6600/7600                            OPRDEFS    34
                                        *                                                                        OPRDEFS    35
                                        * UNIT    FUNIT  66,76 UNIT NUMBER                                       OPRDEFS    36
                                                                                                                 OPRDEFS    37
                                                  QUAL   FUNIT                                                   OPRDEFS    38
                                        *PSEUDO   FUNIT  0                                                       OPRDEFS    39
                                         BRANCH   FUNIT  1                                                       OPRDEFS    40
                                         BOOL     FUNIT  2                                                       OPRDEFS    41
                                         SHIFT    FUNIT  3                                                       OPRDEFS    42
                                         IADD     FUNIT  4                                                       OPRDEFS    43
                                         FADD     FUNIT  5                                                       OPRDEFS    44
                                         MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                  OPRDEFS    45
                                         DIVIDE   FUNIT  8                                                       OPRDEFS    46
                                         INC      FUNIT  9                 INC2 = 10 ON A 6600                   OPRDEFS    47
                                         NORM     FUNIT  SHIFT,7                                                 OPRDEFS    48
                                         BJUMP    FUNIT  INC,BRANCH                                              OPRDEFS    49
                                         XJUMP    FUNIT  IADD,BRANCH                                             OPRDEFS    50
                                         LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600        OPRDEFS    51
                                         POPC     FUNIT  DIVIDE,11                                               OPRDEFS    52
                                         PACK     FUNIT  SHIFT,BOOL                                              OPRDEFS    53
                                                  QUAL   *                                                       OPRDEFS    54
  
  
  
                                        **        FORMAT OF THE *OPR* DEFINITION IS -                            OPRDEFS    56
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     5
                                        *                                                                        OPRDEFS    58
                                        *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                        OPRDEFS    59
                                        *         TYPE - INSTRUCTION TYPE ( I - IV )                             OPRDEFS    60
                                        *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"            OPRDEFS    61
                                        *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT       OPRDEFS    62
                                        *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).   OPRDEFS    63
                                        *         T9   -  990 EXECUTION TIME OR "-" FOR SPECIAL INST             CCGA092     6
                                        *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST       OPRDEFS    64
                                        *                FOR B-JUMPS THE STACK TIME IS USED.                     OPRDEFS    65
                                        *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.              OPRDEFS    66
                                        *                TIME FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31      OPRDEFS    67
                                        *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.    OPRDEFS    68
                                        *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION         OPRDEFS    69
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    27
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  OPRDEFS 
  
                                        *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS        OPRDEFS    70
                                        *               AVAILABLE AND DIFFERENT FROM THE FIRST.                  OPRDEFS    71
                                        *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600          OPRDEFS    72
                                        *                ( INCREMENT AND MULTIPLY ).                             OPRDEFS    73
                                        *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )               OPRDEFS    74
                                        *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                     OPRDEFS    75
                                        *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION               OPRDEFS    76
                                        *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )   OPRDEFS    77
                                        *                                                                        OPRDEFS    78
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     7
                                        *         PSEUDO INSTRUCTIONS                                            CCGA092     8
                                         EOQ      OPR (  IV     -   -  1/ 1/1    -     -      -              A ) CCGA092     9
                                         BOS      OPR (  IV     -   -      -     -     -      -                ) CCGA092    10
                                         EOS      OPR (  IV     -   -      -     -     -      -              A ) CCGA092    11
                                         DAR      OPR (  I      -   -      -     -     -      -                ) CCGA092    12
                                         RS       OPR (  II     -   -      -     -     -      -       REGST    ) CCGA092    13
                                         DEF      OPR (  II     -   -      -     -     -      -              D ) CCGA092    14
                                         LAB      OPR (  IV     -   - 31/31/31   -     -      -              B ) CCGA092    15
                                         ENT      OPR (  IV     -   -      -     -     -      -              B ) CCGA092    16
                                        *         REGISTER TO REGISTER MACHINE INSTRUCTIONS                      CCGA092    17
                                         XMT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    18
                                         AND      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    19
                                         OR       OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    20
                                         XOR      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    21
                                         XMTC     OPR (  I      -   -  3/ 3/2  BOOL    -     15  K=J           ) CCGA092    22
                                         STR      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    23
                                         IMP      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    24
                                         EQV      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    25
                                         KLS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    26
                                         KRS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    27
                                         ILS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    28
                                         IRS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    29
                                         NR       OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    30
                                         RNZ      OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    31
                                         UP       OPR (  I      -   -  3/ 3/2  PACK    -     15  2R            ) CCGA092    32
                                         PK       OPR (  I      -   -  3/ 3/2  PACK    -     15                ) CCGA092    33
                                         FA       OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    34
                                         FS       OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    35
                                         DFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    36
                                         DFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    37
                                         RFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    38
                                         RFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    39
                                         IA       OPR (  I    COMM USI 3/ 3/2  IADD    -     15                ) CCGA092    40
                                         IS       OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    41
                                         FM       OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    42
                                         RFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    43
                                         DFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    44
                                         FMA      OPR (  II     -   -  4/ 3/2  SHIFT   -     15  K=J  ZEROP    ) CCGA092    45
                                         FD       OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    46
                                         RFD      OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    47
                                         NOP      OPR (  III    -   -      -     -     -      -       REGST    ) CCGA092    48
                                         CX       OPR (  I      -   -  6/ 8/2  POPC    -     15  K=J           ) CCGA092    49
                                        *         MEMORY REFERENCE AND SET (LOAD IMMEDIATE ) INSTRUCTIONS        CCGA092    50
                                         LD       OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    51
                                         ST       OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    52
                                         STT      OPR (  III    -   -  3/ 3/2  INC    FU1    30                ) CCGA092    53
                                         PLD      OPR (  I      -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    54
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    28
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  OPRDEFS 
  
                                         PST      OPR (  I      -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    55
                                         S        OPR (  II     -   -  3/ 3/2  INC    FU1    30       ZEROP    ) CCGA092    56
                                         SLD      OPR (  I    COMM  -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    57
                                         SST      OPR (  I    COMM  -  3/10/2  INC    FU1    15       STORE    ) CCGA092    58
                                         SA       OPR (  I    COMM  -  3/ 3/2  INC    FU1    15                ) CCGA092    59
                                         SDL      OPR (  I      -   -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    60
                                         SDS      OPR (  I      -   -  3/10/2  INC    FU1    15       STORE    ) CCGA092    61
                                         SS       OPR (  I      -   -  3/ 3/2  INC    FU1    15                ) CCGA092    62
                                         DRL      OPR (  I      -   -  8/ 0/17 LCM     -     15       LOAD2    ) CCGA092    63
                                         DWL      OPR (  I      -   -  3/ 0/3  LCM     -     15       STORE2   ) CCGA092    64
                                        *         CONDITIONAL JUMPS                                              CCGA092    65
                                         RJXJ     OPR (  III    -   -  5/ 9/3  XJUMP   -     30       ECJUMP   ) CCGA092    66
                                         JPX      OPR (  III    -   -  5/11/2  XJUMP   -     30       JUMP   C ) CCGA092    67
                                         JPBB     OPR (  III    -   -  5/ 8/3  BJUMP   -     30       JUMP   C ) CCGA092    68
                                        *         UNCONDITIONAL JUMPS                                            CCGA092    69
                                         JIN      OPR (  III    -   - 29/14/13 INC    FU1    30       UJUMP  A ) CCGA092    70
                                         RJ3      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    71
                                         RJ6      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    72
                                         UJP      OPR (  IV     -   -  5/14/13 BJUMP  FU1    30       UJUMP  A ) CCGA092    73
                                        *         SPECIAL INSTRUCTIONS FOR THE OPTIMIZER                         CCGA092    74
                                         ILD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    75
                                         TLD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    76
                                         TST      OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    77
                                         IAZ      OPR (  I    COMM  -  3/ 3/2  IADD    -     15                ) CCGA092    78
                                         ISZ      OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    79
                                         IM       OPR (  I    COMM  -  7/10/5  MULT   FU1    15                ) CCGA092    80
                                         LDC      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    81
                                         LDV      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    82
                                         CLR      OPR (  II     -   -  4/ 3/2  SHIFT  BOOL   15  K=J  ZEROP    ) CCGA092    83
                                         SXT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    84
                                                                                                                 OPRDEFS   156
                                        *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                OPRDEFS   157
                                                                                                                 OPRDEFS   158
                                         BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                        OPRDEFS   159
                                         RELOPS   MICRO  1,,/EQ,NE,GT,LT,GE,LE/                                  OPRDEFS   160
                                         XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,IR,OR,DF,ID/                            OPRDEFS   161
                                         ^XJUMPS  MICRO  1,,/NZ,ZR,MI,PL,OR,IR,ID,DF/                            OPRDEFS   162
                                                                                                                 OPRDEFS   163
                                                  PURGMAC GETARG,FUNIT,V=,OPR                                    OPRDEFS   164
                                                  ENDX                                                           OPRDEFS   165
                                                                                                                 CCGILFD   196
                                        *         DEFINE SUBINDEX OPCODES FOR THE X AND B JUMPS ( IN *CA* FIELD  CCGILFD   197
                                                                                                                 CCGILFD   198
                                                  NOREF  .Z                                                      CCGILFD   199
                                   0     .Z       SET    0                                                       CCGILFD   200
                                                  ECHO   2,T=("XJUMPS")                                          CCGILFD   201
                                         JC.T     EQU    .Z                                                      CCGILFD   202
                                         .Z       SET    .Z+1                                                    CCGILFD   203
                                                                                                                 CCGILFD   204
                                   0     .Z       SET    0                                                       CCGILFD   205
                                                  ECHO   2,T=("BJUMPS")                                          CCGILFD   206
                                         JC.T     EQU    .Z                                                      CCGILFD   207
                                         .Z       SET    .Z+1                                                    CCGILFD   208
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    29
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  PODEFS
  
                                        **        POD - MACRO TO DEFINE THE *SLIST* INSTRUCTION OPCDOES          CCGILFD   210
                                                                                                                 CCGILFD   211
                                                  MACRO  POD,NAM                                                 CCGILFD   212
                                         OC.NAM   EQU    .OC                                                     CCGILFD   213
                                         .OC      SET    .OC-1                                                   CCGILFD   214
                                                  ENDM                                                           CCGILFD   215
                                                                                                                 CCGILFD   216
                                  -1     .OC      SET    -1                                                      CCGILFD   217
                                                  SKIP   1                                                       CCGILFD   218
                                         PSODEFS  CTEXT  PSODEFS - CCG PSEUDO OPERATION DEFINITIONS              PSODEFS     2
                                        **        PSODEFS - PSEUDO OPERATION DEFINITIONS                         PSODEFS     3
                                                                                                                 PSODEFS     4
                                        *                INITIAL GROUP                                           PSODEFS     5
                                                                                                                 PSODEFS     6
                                         LCC      POD                LOADER CONTROL CARD                         PSODEFS     7
                                         IDENT    POD                IDENT LINE                                  PSODEFS     8
                                         TITLE    POD                TITLE LINE                                  PSODEFS     9
                                         COMNT    POD                COMMENT DIRECTIVE                           PSODEFS    10
                                         LIB      POD                LDSET LIB=LIBNAME                           PSODEFS    11
                                         USBLK    POD                *USEBLK* LINE, TERMINATE INITIAL GROUP      PSODEFS    12
                                                                                                                 PSODEFS    13
                                        *                THE BELOW MAY APPEAR IN *MACRO_S* MACROS                PSODEFS    14
                                                                                                                 PSODEFS    15
                                         USE      POD                SET NEW *USE* BLOCK                         PSODEFS    16
                                         BSS      POD                RESERVE STORAGE                             PSODEFS    17
                                         CON      POD                DEFINE RELOCATABLE DATA WORD                PSODEFS    18
                                         BSSZ     POD                RESERVE STORAGE AND ZERO IT OUT             PSODEFS    19
                                                                                                                 PSODEFS    20
                                        *                THE BELOW MAY NOT APPEAR IN *MACRO_S* MACROS            PSODEFS    21
                                                                                                                 PSODEFS    22
                                         BMI      POD                BEGIN *TS* FORMAT MACHINE INST PROCESSING   PSODEFS    23
                                         DATA     POD                DEFINE DATA WORDS                           PSODEFS    24
                                         DIS      POD                DEFINE BCD DATA IN *H* FORMAT               PSODEFS    25
                                         HOL      POD                DEFINE HOLLERITH DATA ( H, L, OR R FORMAT ) PSODEFS    26
                                         ORG      POD                SET/RESET *ORG* COUNTER                     PSODEFS    27
                                         REPI     POD                REPLICATE DATA                              PSODEFS    28
                                         DCS      POD                DEFINE CHAR STRING AS MICRO NAME            PSODEFS    29
                                         VFDP     POD                CLEAR & ENTER PART WORD OF DATA             PSODEFS    30
                                         APL      POD                DEFINE SUBROUTINE APLIST ENTRY              PSODEFS    31
                                         IOM      POD                DEFINE I/O APLIST ENTRY                     PSODEFS    32
                                         SUB      POD                DEFINE SCM/LCM INST AND ADDR SUB WORD       PSODEFS    33
                                                                                                                 PSODEFS    34
                                        *                THE FOLLOWING PSEUDO ARE USED IN *MACRO_S* ONLY         PSODEFS    35
                                                                                                                 PSODEFS    36
                                         AAC      POD                ADD ADDRESS CONSTANT  ( MAY BE CA OF CON. ) PSODEFS    37
                                         ACI      POD                ADD CONSTANT INFO                           PSODEFS    38
                                         ARI      POD                ADD RELOCATABLE INFO                        PSODEFS    39
                                         ASV      POD                ADD STRING VALUE                            PSODEFS    40
                                         BTW      POD                BEGIN TEXT WORD                             PSODEFS    41
                                         ELSE     POD                ELSE                                        PSODEFS    42
                                         IFT      POD                ASSEMBLY TIME IF TEST                       PSODEFS    43
                                         MIC      POD                DEFINE MICRO STRING ( @ 10 CHARS )          PSODEFS    44
                                         SET      POD                DEFINE SET SYMBOL VALUE                     PSODEFS    45
                                                                                                                 PSODEFS    46
                                        *                SOME EQUIVALENCES TO THE *IL* OPCODES                   PSODEFS    47
                                                                                                                 PSODEFS    48
                                        * END     =      EOQ         END OF INPUT                                PSODEFS    49
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    30
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  PODEFS
  
                                        * EOB     =      EOS         END OF BUFFER ON INPUT                      PSODEFS    50
                                                                                                                 PSODEFS    51
                                                  PURGMAC POD                                                    PSODEFS    52
                                                  ENDX                                                           PSODEFS    53
  
  
  
                                                                                                                 CCG16       3
                                                  DESCRIBE CF.,60                                                CCG16       4
      L     73  40000000000000000000     JP       DEFINE 1                                                       CCG16       5
                                                  DEFINE 11                                                      CCG16       6
      L     36  00007777770000000000     FROM     DEFINE 18          BLOCK NUMBER OF PRED                        CCG16       7
                                                  DEFINE 12                                                      CCG16       8
             0  00000000000000777777     TO       DEFINE 18          BLOCK NUMBER OF SUCC                        CCG16       9
  
  
  
  
  
  
                                        **        WRITEP - WRITE PSEUDO OP WORD TO *SLIST* FILE                  CMPLTXT    35
                                        *                                                                        CMPLTXT    36
                                        *         ENTRY  (X6) = LOW 48 BITS OF PSEUDO OP WORD                    CMPLTXT    37
                                        *                                                                        CMPLTXT    38
                                        *         WRITEP OPNAME                                                  CMPLTXT    39
                                                                                                                 CMPLTXT    40
                                         WRITEP   MACRO  OPCD                                                    CMPLTXT    41
                                                  R=     B3,OC.OPCD                                              CMPLTXT    42
                                                  RJ     =XWPW#                                                  CMPLTXT    43
                                                  ENDM                                                           CMPLTXT    44
  
  
  
                                        **        ADDWRD - ADD WORD TO MANAGED TABLE.                            CMPLTXT    46
                                        *                                                                        CMPLTXT    47
                                        *         ADDWRD TABLE,REG                                               CMPLTXT    48
                                        *         ENTRY  *TABLE* = TABLE NUMBER.                                 CMPLTXT    49
                                        *                *REG* = REGISTER NAME OR EXPRESSION FOR WORD TO ADD.    CMPLTXT    50
                                        *         USES   A0, X1.                                                 CMPLTXT    51
                                                                                                                 CMPLTXT    52
                                                  PURGMAC ADDWRD                                                 CMPLTXT    53
                                         ADDWRD   MACRO  A,B                                                     CMPLTXT    54
                                                  R=     X1,B                                                    CMPLTXT    55
                                                  R=     A0,=XZ$A                                                CMPLTXT    56
                                                  RJ     =XADW$                                                  CMPLTXT    57
                                         ADDWRD   ENDM                                                           CMPLTXT    58
  
  
  
                                        **        ALLOC - ALLOCATE TABLE SPACE.                                  CMPLTXT    60
                                        *                                                                        CMPLTXT    61
                                        *         ALLOC  TABLE,WORDS                                             CMPLTXT    62
                                        *         ENTRY  *TABLE* = TABLE NUMBER.                                 CMPLTXT    63
                                        *                *WORDS* = WORD COUNT OF TABLE.                          CMPLTXT    64
                                                                                                                 CMPLTXT    65
                                                  PURGMAC ALLOC                                                  CMPLTXT    66
                                         ALLOC    MACRO  A,B                                                     CMPLTXT    67
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    31
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  ALLOC 
  
                                                  R=     X1,B                                                    CMPLTXT    68
                                                  R=     A0,=XZ$A                                                CMPLTXT    69
                                                  RJ     =XATS$                                                  CMPLTXT    70
                                         ALLOC    ENDM                                                           CMPLTXT    71
                                                                                                                 CMPLTXT    72
             1                                    END                                                            CMPLTXT    73
  
                             45500B CM  STORAGE USED             3967 STATEMENTS      441 SYMBOLS      000001 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.748 SECONDS         440 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AP.CAIHL       44                  25/02 D
        AP.CAIHP        0                  25/02 D
        AP.CAL         22                  24/56 D
        AP.CAP         22                  24/56 D
        AP.CRP         66                  24/54 D
        AP.IHL         22                  24/57 D
        AP.IHP          0                  24/57 D   25/02
        AP.IOP         73                  24/50 D
        AP.P1P         71                  24/52 D
        AP.USEP        72                  24/51 D
        CF.FROML       22                  30/12 D
        CF.FROMP       36                  30/12 D
        CF.JPP         73                  30/10 D
        CF.TOL         22                  30/14 D
        CF.TOP          0                  30/14 D
        CP#RM           0                  10/33 F   10/34 D
        CT.CPU        111                   5/02 D   10/14 F
        CT.ECS          1                  10/37 F   10/39 D
        D.ARL           2                  22/47 D
        D.ARP          25                  22/47 D
        D.BMP          52                  22/11 D
        D.CMP          31                  22/33 D
        D.ECJP         45                  22/20 D
        D.EQVP         65                  22/53 D
        D.FPP          25                  22/36 D   22/47
        D.FTL           5                  22/06 D
        D.FTP          65                  22/06 D   22/53
        D.F1L           4                  22/09 D
        D.F1P          57                  22/09 D
        D.F2L           4                  22/10 D
        D.F2P          53                  22/10 D
        D.INCP         22                  22/39 D
        D.JFTP         34                  22/29 D
        D.JPP          41                  22/24 D   22/48
        D.KSP          37                  22/26 D
        D.LDP          43                  22/22 D
        D.LDSTL         2                  22/45 D
        D.LDSTP        42                  22/45 D
        D.LSJL          3                  22/48 D
        D.LSJP         41                  22/48 D
        D.L2P          44                  22/21 D
        D.MUCP         35                  22/28 D
        D.NRP          64                  22/07 D
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    32
        SYMBOLIC REFERENCE TABLE. 
  
        D.PIP          36                  22/27 D
        D.PRSP         46                  22/19 D   22/46
        D.PSP          47                  22/18 D
        D.REGWL        11                  22/40 D
        D.REGWP        11                  22/40 D
        D.RFP          23                  22/38 D
        D.RJRSP        50                  22/17 D   22/49
        D.SRP          26                  22/35 D
        D.STP          42                  22/23 D   22/45
        D.STRSL         2                  22/46 D
        D.STRSP        46                  22/46 D
        D.SZL           2                  22/34 D
        D.SZP          27                  22/34 D
        D.TYIOL         2                  22/49 D
        D.TYIOP        50                  22/49 D
        D.TYL           2                  22/05 D
        D.TYP          72                  22/05 D
        D.USESL        11                  22/41 D
        D.USESP         0                  22/41 D
        D.USIP         33                  22/31 D
        D.XMTP         40                  22/25 D
        D.XUP          24                  22/37 D
        D.ZPP          32                  22/32 D
        D.^DP          51                  22/12 D
        FI.FTL          6                  25/09 D
        FI.FTP         66                  25/09 D
        FI.INDXL       22                  25/13 D
        FI.INDXP       14                  25/13 D
        FI.LENL        14                  25/14 D
        FI.LENP         0                  25/14 D
        FI.REGPL       30                  25/11 D
        FI.REGPP       36                  25/11 D
        IH.BMP         71                  23/44 D
        IH.CAIHL       44                  23/55 D
        IH.CAIHP        0                  23/55 D
        IH.CAL         22                  23/50 D
        IH.CAP         22                  23/50 D
        IH.HL          17                  23/52 D
        IH.HP           0                  23/52 D   23/53     23/55
        IH.IHL         22                  23/53 D
        IH.IHP          0                  23/53 D
        IH.IL           3                  23/51 D
        IH.IP          17                  23/51 D
        IH.LCM      40000                  24/01 D
        IH.LCMA     20000                  23/57 D
        IH.LDP         73                  23/42 D
        IH.RFL         22                  23/49 D
        IH.RFP         44                  23/49 D
        IH.SIAP        67                  23/46 D
        IH.SRFP        66                  23/48 D
        IH.STKP        73                  24/07 D
        IH.STP         72                  23/43 D
        IP.CSET         0                   4/47 D
        IP.C63          2                   4/48 D
        IP.MFL     140000                   4/46 D
        IP.PD           6                   4/55 D
        IP.PS          74                   4/56 D
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    33
        SYMBOLIC REFERENCE TABLE. 
  
        I.GL       100000                  24/11 D
        JC.DF           6                  28/48 D
        JC.EQ           0                  28/53 D
        JC.GE           2                  28/53 D
        JC.ID           7                  28/48 D
        JC.IR           4                  28/48 D
        JC.LT           3                  28/53 D
        JC.MI           3                  28/48 D
        JC.NE           1                  28/53 D
        JC.NZ           1                  28/48 D
        JC.OR           5                  28/48 D
        JC.PL           2                  28/48 D
        JC.ZR           0                  28/48 D
        L.FET6         15                   8/17 D
        L.FET7          0                   8/24 D
        L.FIT6         34                   8/16 D
        L.FIT7         26                   8/23 D
        L.IOBUF6     2003                   8/18 D
        L.IOBUF7        0                   8/25 D
        L.STACK         0                  12/25 D
        L.TIN         101                   8/19 D
        L.TOUT        401                   8/20 D
        NOINVERT        0                   8/40 D
        OC.AAC    7777751                  29/45 D
        OC.ACI    7777750                  29/46 D
        OC.AND         11                  27/22 D
        OC.APL    7777754                  29/39 D
        OC.ARI    7777747                  29/47 D
        OC.ASV    7777746                  29/48 D
        OC.BMI    7777764                  29/31 D
        OC.BOS          1                  27/13 D
        OC.BSS    7777767                  29/25 D
        OC.BSSZ   7777765                  29/27 D
        OC.BTW    7777745                  29/49 D
        OC.CLR        105                  28/29 D
        OC.COMNT  7777773                  29/18 D
        OC.CON    7777766                  29/26 D
        OC.CX          47                  27/52 D
        OC.DAR          3                  27/15 D
        OC.DATA   7777763                  29/32 D
        OC.DCS    7777756                  29/37 D
        OC.DEF          5                  27/17 D
        OC.DFA         32                  27/39 D
        OC.DFM         42                  27/47 D
        OC.DFS         33                  27/40 D
        OC.DIS    7777762                  29/33 D
        OC.DRL         64                  28/09 D
        OC.DWL         65                  28/10 D
        OC.ELSE   7777744                  29/50 D
        OC.ENT          7                  27/19 D
        OC.EOQ          0                  27/12 D
        OC.EOS          2                  27/14 D
        OC.EQV         17                  27/28 D
        OC.FA          30                  27/37 D
        OC.FD          44                  27/49 D
        OC.FM          40                  27/45 D
        OC.FMA         43                  27/48 D
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    34
        SYMBOLIC REFERENCE TABLE. 
  
        OC.FS          31                  27/38 D
        OC.HOL    7777761                  29/34 D
        OC.IA          36                  27/43 D
        OC.IAZ        100                  28/24 D
        OC.IDENT  7777775                  29/16 D
        OC.IFT    7777743                  29/51 D
        OC.ILD         75                  28/21 D
        OC.ILS         22                  27/31 D
        OC.IM         102                  28/26 D
        OC.IMP         16                  27/27 D
        OC.IOM    7777753                  29/40 D
        OC.IRS         23                  27/32 D
        OC.IS          37                  27/44 D
        OC.ISZ        101                  28/25 D
        OC.JIN         71                  28/16 D
        OC.JPBB        70                  28/14 D
        OC.JPX         67                  28/13 D
        OC.KLS         20                  27/29 D
        OC.KRS         21                  27/30 D
        OC.LAB          6                  27/18 D
        OC.LCC    7777776                  29/15 D
        OC.LD          50                  27/54 D
        OC.LDC        103                  28/27 D
        OC.LDV        104                  28/28 D
        OC.LIB    7777772                  29/19 D
        OC.MIC    7777742                  29/52 D
        OC.NOP         46                  27/51 D
        OC.NR          24                  27/33 D
        OC.OR          12                  27/23 D
        OC.ORG    7777760                  29/35 D
        OC.PK          27                  27/36 D
        OC.PLD         53                  27/57 D
        OC.PST         54                  28/01 D
        OC.REPI   7777757                  29/36 D
        OC.RFA         34                  27/41 D
        OC.RFD         45                  27/50 D
        OC.RFM         41                  27/46 D
        OC.RFS         35                  27/42 D
        OC.RJXJ        66                  28/12 D
        OC.RJ3         72                  28/17 D
        OC.RJ6         73                  28/18 D
        OC.RNZ         25                  27/34 D
        OC.RS           4                  27/16 D
        OC.S           55                  28/02 D
        OC.SA          60                  28/05 D
        OC.SDL         61                  28/06 D
        OC.SDS         62                  28/07 D
        OC.SET    7777741                  29/53 D
        OC.SLD         56                  28/03 D
        OC.SS          63                  28/08 D
        OC.SST         57                  28/04 D
        OC.ST          51                  27/55 D
        OC.STR         15                  27/26 D
        OC.STT         52                  27/56 D
        OC.SUB    7777752                  29/41 D
        OC.SXT        106                  28/30 D
        OC.TITLE  7777774                  29/17 D
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    35
        SYMBOLIC REFERENCE TABLE. 
  
        OC.TLD         76                  28/22 D
        OC.TST         77                  28/23 D
        OC.UJP         74                  28/19 D
        OC.UP          26                  27/35 D
        OC.USBLK  7777771                  29/20 D
        OC.USE    7777770                  29/24 D
        OC.VFDP   7777755                  29/38 D
        OC.XMT         10                  27/21 D
        OC.XMTC        14                  27/25 D
        OC.XOR         13                  27/24 D
        OT#RM           6                  12/55 F   12/56 D
        RF.MV      200000                  24/03 D
        RN.MASK    600001                  24/12 D
        RT.BR           0                  24/42 D
        RT.XR           2                  24/43 D
        R1.CAL         22                  23/29 D
        R1.CAP         36                  23/29 D
        R1.H2L         14                  23/30 D
        R1.H2P         22                  23/30 D
        R1.IHL         22                  23/31 D
        R1.IHP          0                  23/31 D
        R1.INL         22                  23/16 D
        R1.INP         36                  23/16 D
        R1.OCL         14                  23/08 D   23/28 D
        R1.OCP         60                  23/08 D   23/28 D
        R1.RIL         20                  23/11 D
        R1.RIP          0                  23/11 D
        R1.RJL         20                  23/09 D
        R1.RJP         40                  23/09 D   23/16
        R1.RKL         20                  23/10 D
        R1.RKP         20                  23/10 D
        R1.SOL         16                  23/17 D
        R1.SOP         20                  23/17 D
        R2.LONGP       72                  24/05 D
        SC2ZERO   7777776                  11/17 D   11/18
        SI.CAIHL       44                  25/28 D
        SI.CAIHP       14                  25/28 D
        SI.CAL         22                  25/22 D
        SI.CAP         36                  25/22 D
        SI.H2P         73                  25/20 D
        SI.IHL         22                  25/23 D
        SI.IHP         14                  25/23 D   25/27     25/28
        SI.OPCL        13                  25/21 D
        SI.OPCP        60                  25/21 D
        SI.RIL          6                  25/25 D
        SI.RIP          0                  25/25 D
        SI.RJL          6                  25/24 D
        SI.RJP          6                  25/24 D
        SI.RKL          6                  25/27 D
        SI.RKP         14                  25/27 D
        SO.INVCM     1000                  24/22 D
        SO.INVCP       11                  24/22 D
        SO.INVM       400                  24/23 D
        SO.INVP        10                  24/23 D
        SO.LKL          2                  24/24 D
        SO.LKP          6                  24/24 D   24/34
        SO.LOCK       200                  24/39 D
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        SO.REGL         6                  24/32 D
        SO.REGP         0                  24/32 D
        SO.RJLK       300                  24/40 D
        SO.RNL          3                  24/31 D
        SO.RNP          0                  24/31 D   24/32
        SO.RTL          3                  24/30 D
        SO.RTP          3                  24/30 D
        SO.SFLM      2000                  24/21 D
        SO.SFLP        12                  24/21 D
        SO.TLOCK      100                  24/36 D
        TEST            0                  11/15 D   11/18
        TPD             6                   4/50 D    4/53 D    4/54      4/55
        .CDCLIB         1                   7/10 D
        .CPU          111                  12/23 D   12/36 F
        .DAL            1                  12/31 D
        .FID            1                  10/44 D
        .IDC            0                   9/02 D
        .IWT            0                   6/10 D
        .LKP          100                  24/35 D   24/36     24/39     24/40
        .MI             0                   5/53 D   11/04 F
        .MINFL          0                   7/51 D
        .OS             1                   5/09 D   11/17
        .OT             1                   5/04 D    5/09
        .SPY            0                  11/18 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  IPARAM
  
  
        IP.ACNT         0                   4/23 D
        IP.ARCH         1                   4/23 D
        IP.BCFAP        2                   4/23 D
        IP.CC7          1                   4/23 D
        IP.CHTIM        1                   4/23 D
        IP.CMU          0                   4/23 D
        IP.CP           6                   4/23 D
        IP.CPLM         5                   4/23 D
        IP.CR         105                   4/23 D
        IP.CSET         0                   4/23 D    4/47
        IP.C176         0                   4/23 D
        IP.C63          2                   4/23 D    4/48
        IP.C64.1        0                   4/23 D    4/23
        IP.C64.2        1                   4/23 D
        IP.DBAL      3777                   4/23 D
        IP.DEBUG        1                   4/23 D
        IP.ECSB         0                   4/23 D
        IP.FT           1                   4/23 D
        IP.HT           0                   4/23 D    4/23
        IP.IACES       13                   4/23 D
        IP.IDFM         1                   4/23 D
        IP.ILCMD        1                   4/23 D
        IP.ILR          0                   4/23 D
        IP.IMUL         1                   4/23 D
        IP.INTCM        1                   4/23 D
        IP.IOLM       100                   4/23 D
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    37
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        IP.IQD          6                   4/23 D
        IP.IQPW         3                   4/23 D
        IP.IUSID      201                   4/23 D
        IP.LINK         1                   4/23 D
        IP.LVF         70                   4/23 D
        IP.MCPU         1                   4/23 D
        IP.MECS         1                   4/23 D   10/38 F   10/39
        IP.MFL     140000                   4/23 D    4/46
        IP.MMS        100                   4/23 D
        IP.MPPU        12                   4/23 D
        IP.MPR         20                   4/23 D
        IP.MREWR        0                   4/23 D
        IP.MSCT         0                   4/23 D
        IP.MSLM       200                   4/23 D
        IP.MTL      77777                   4/23 D
        IP.NDFS         1                   4/23 D
        IP.NJFL        20                   4/23 D
        IP.OPRI         0                   4/23 D
        IP.OQD         10                   4/23 D
        IP.PD           6                   4/23 D    4/24 F
        IP.PFAC         0                   4/23 D
        IP.PFRP         5                   4/23 D
        IP.POSFL        5                   4/23 D
        IP.PPS2X        2                   4/23 D
        IP.PS          74                   4/23 D    4/26 F    4/56
        IP.RM           0                   4/23 D
        IP.RPMAX     1747                   4/23 D
        IP.RTMTR        0                   4/23 D
        IP.SCHDE        0                   4/23 D
        IP.SECS         0                   4/23 D
        IP.SEP          1                   4/23 D
        IP.SFL      50000                   4/23 D
        IP.SIDLE        1                   4/23 D
        IP.SIOL         0                   4/23 D
        IP.SMS          0                   4/23 D
        IP.SPR         10                   4/23 D
        IP.SPT          0                   4/23 D
        IP.SRMS         0                   4/23 D
        IP.STL        100                   4/23 D
        IP.TCPUB        4                   4/23 D
        IP.TF           0                   4/23 D
        IP.TYPE     14710                   4/23 D
        IP.UP          10                   4/23 D
        IP.US           0                   4/23 D
        IP.XJ           1                   4/23 D
        IP.1M1          3                   4/23 D
        IP.1WB          2                   4/23 D
        IP.1ZZ          0                   4/23 D
        IP.819          0                   4/23 D
        PR.BATCH        1                   4/23 D    4/23
        PR.IDLE         0                   4/23 D
        PR.INT          2                   4/23 D    4/23
        PR.SCP          3                   4/23 D    4/23
        PR.SYS          4                   4/23 D
1       CMPLTXT - COMPILER PRODUCT"S ASSEMBLY TEXT                    COMPASS 3.7-871.     24/05/02. 13.12.07.      PAGE    38
        SYMBOLIC REFERENCE TABLE.                                     FUNIT 
  
                                                  SYMBOL QUALIFIER =  FUNIT 
  
  
        BJUMP          11                  26/34 D
        BOOL            2                  26/26 D
        BRANCH          1                  26/25 D
        DIVIDE         10                  26/31 D   26/37
        FADD            5                  26/29 D
        IADD            4                  26/28 D   26/35
        INC            11                  26/32 D   26/34
        LCM            12                  26/36 D
        MULT            6                  26/30 D
        NORM            3                  26/33 D
        PACK            3                  26/38 D
        POPC           10                  26/37 D
        SHIFT           3                  26/27 D   26/33     26/38
        XJUMP           4                  26/35 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        1              IDENT  CCGTEXT
                          1                       END 
  
  
  
  
                                                  IDENT  CCGTEXT                                                 CCGTEXT     2
                                                  STEXT                                                          CCGTEXT     4
                                                  SST                                                            CCGTEXT     5
                                                  LIST   F,X                                                     CCGTEXT     6
                                                  COMMENT  COMMON CODE GENERATOR ASSEMBLY TEXT                   CCGTEXT     7
  
  
  
                                        ***       CCGTEXT - COMMON CODE GENERATOR ( CCG ) ASSEMBLY TEXT          CCGTEXT     9
                                        *                                                                        CCGTEXT    10
                                        *         THIS TEXT CONTAINS SYMBOL, MACRO AND MICRO DEFINITIONS         CCGTEXT    11
                                        *         NECESSARY TO ASSEMBLE CCG.                                     CCGTEXT    12
                                        *                                                                        CCGTEXT    13
                                        *         NOTE THAT A DIFFERENT VERSION OF *CCGTEXT* EXISTS FOR EACH     CCGTEXT    14
                                        *         HOST COMPILER SINCE IT CONTAINS SYMBOLS DEFINITIONS THAT       CCGTEXT    15
                                        *         ARE HOST DEPENDENT.                                            CCGTEXT    16
                                        *                                                                        CCGTEXT    17
                                        *         THE TEXT IS DIVIDED UP INTO THE FOLLOWING SECTIONS -           CCGTEXT    18
                                        *          INSTALLATION DEPENDENT INSTALLATION PARAMETERS.               CCGTEXT    19
                                        *         STRUCTURED FILED DEFINITION MACROS                             CCGTEXT    20
                                        *          I/O CODING CONVENTIONS AND MACROS                             CCGTEXT    21
                                        *          GENERAL MACROS                                                CCGTEXT    22
                                        *          MACROS FOR DEBUGGING                                          CCGTEXT    23
                                        *         CCG FIELD DEFINITIONS, EQU"S AND MACROS.                       CCGTEXT    24
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     2
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ****                                                                     OPTIONS     4
                                        ***       O P T I O N S - FORTRAN EXTENDED INSTALLATION PARAMETERS.      OPTIONS     5
                                        *                                                                        OPTIONS     6
                                        *         REVISED AUGUST 1975 FOR THE CYBER 170 SERIES MACHINES.         OPTIONS     7
                                        *                                                                        OPTIONS     8
                                        *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC     OPTIONS     9
                                        *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-  OPTIONS    10
                                        *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY   OPTIONS    11
                                        *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION    OPTIONS    12
                                        *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                          OPTIONS    13
                                        *                                                                        OPTIONS    14
                                        *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN     OPTIONS    15
                                        *         THE PROGRAM DECK  < FTN > .                                    OPTIONS    16
  
  
  
  
                                        *         ************************************************************** OPTIONS    18
                                        *         *                                                            * OPTIONS    19
                                        *         *                                                            * OPTIONS    20
                                        *         *   I N S T A L L A T I O N   W A R N I N G   N O T I C E    * OPTIONS    21
                                        *         *                                                            * OPTIONS    22
                                        *         *                                                            * OPTIONS    23
                                        *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       * OPTIONS    24
                                        *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         * OPTIONS    25
                                        *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             * OPTIONS    26
                                        *         *                                                            * OPTIONS    27
                                        *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       * OPTIONS    28
                                        *         *      BE CHANGED.                                           * OPTIONS    29
                                        *         *                                                            * OPTIONS    30
                                        *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    * OPTIONS    31
                                        *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           * OPTIONS    32
                                        *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      * OPTIONS    33
                                        *         *                                                            * OPTIONS    34
                                        *         *                                                            * OPTIONS    35
                                        *         ************************************************************** OPTIONS    36
  
  
  
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     3
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS    59
                                        *                                                                        OPTIONS    60
                                        *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE   OPTIONS    61
                                        *                                                                        OPTIONS    62
                                        *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A     OPTIONS    63
                                        *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS      OPTIONS    64
                                        *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE       OPTIONS    65
                                        *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND          OPTIONS    66
                                        *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.    OPTIONS    67
                                        *                                                                        OPTIONS    68
                                        *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER      OPTIONS    69
                                        *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL       OPTIONS    70
                                        *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING        OPTIONS    71
                                        *                REQUIREMENTS.                                           OPTIONS    72
                                        *                   1.  INSURE THAT THE TEXT CONTAINING THE              OPTIONS    73
                                        *                       INSTALLATION PARAMETERS CONTAINS CYBER 76        OPTIONS    74
                                        *                       VALUES.                                          OPTIONS    75
                                        *                   2.  SELECT THE DESIRED VALUE FOR THE "MODEL" MICRO   OPTIONS    76
                                        *                       DEFINED IN THE BOX ENTITLED -                    OPTIONS    77
                                        *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES      OPTIONS    78
                                        *                       MODEL."                                          OPTIONS    79
                                        *                                                                        OPTIONS    80
                                        *         CAUTIONS -                                                     OPTIONS    81
                                        *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING    OPTIONS    82
                                        *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.      OPTIONS    83
                                        *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL     OPTIONS    84
                                        *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC". OPTIONS    85
                                        *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.        OPTIONS    86
                                        *                                                                        OPTIONS    87
                                        ***                                                                      OPTIONS    88
  
  
  
                                        ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                OPTIONS    90
                                        *                                                                        OPTIONS    91
                                         PSR      MICRO  1,,$871$                                                PSRLEVEL    1
                                         LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME               OPTIONS    92
                                         VER      MICRO  1,3,/5.1/                                               F1037F5A    5
                                                  IF     MIC,PSR,2                                               OPTIONS    94
                                         MODLVL   MICRO  1,9,$"PSR"         $                                    OPTIONS    95
                                                  SKIP   1                                                       OPTIONS    96
                                         MODLVL   MICRO  1,9,$"MODLEVEL"         $                               OPTIONS    97
  
  
                                        **        VALMDL - VALIDATE MODEL MICRO                                  OPTIONS    99
                                                                                                                 OPTIONS   100
                                                  MACRO  VALMDL,MDL,HFP                                          F2950F5     4
                                         .1       MICCNT HFP                                                     F2950F5     5
                                         .2       MICRO  .1,1,/"HFP"/                                            F2950F5     6
                                                  IFC    EQ,/".2"/S/                                             F2950F5     7
                                         MDL      MICRO  1,,/73/                                                 F2950F5     8
                                                  ELSE                                                           F2950F5     9
                                         MDL      MICRO  1,,/7".2"/                                              F2950F5    10
                                                  ENDIF                                                          F2950F5    11
                                                  IFC    NE,/"HFP"/P740/                                         FC5A446     7
                                                  IFC    NE,/"HFP"/P750/                                         FC5A446     8
                                                  IFC    NE,/"HFP"/P760/                                         FC5A446     9
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     4
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         VALMDL
  
                                                  ELSE                                                           FC5A446    10
                                         MDL      MICRO  1,,/74/                                                 FC5A446    11
                                                  ENDIF                                                          FC5A446    12
                                                  IFC    NE,/"HFP"/P990/                                         FC5A478     7
                                                  IFC    NE,/"HFP"/P994/                                         FC5A521     6
                                                  IFC    NE,/"HFP"/P995/                                         FC5A521     7
                                                  ELSE                                                           FC5A478     8
                                         MDL      MICRO  1,,/76/                                                 FC5A478     9
                                         CPU990   MICRO  1,,/990/                                                FC5A495     6
                                                  ENDIF                                                          FC5A478    10
                                                  ENDM                                                           F2950F5    12
  
  
  
                                        ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                 OPTIONS   121
                                        *                                                                        OPTIONS   122
                                        *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS      OPTIONS   123
                                        *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT    OPTIONS   124
                                        *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE         OPTIONS   125
                                        *                INSTALLED AND EXECUTED ON.                              OPTIONS   126
                                        *                                                                        OPTIONS   127
                                                  QUAL   IPARAM                                                  OPTIONS   128
                                                  IPARAMS                                                        OPTIONS   129
                                                  IF     -DEF,IP.PD,1                                            OPTIONS   130
                                         IP.PD    EQU    6           TEMPORARY UNTIL OPERATING SYSTEM CONFORMS   OPTIONS   131
                                                  IF     -DEF,IP.PS,1                                            OPTIONS   132
                                         IP.PS    EQU    60          TEMPORARY UNTIL OPERATING SYSTEM CONFORMS   OPTIONS   133
                                                  DEFINHF                                                        F2950F5    13
                                                  QUAL   *                                                       OPTIONS   134
                                        *                                                                        OPTIONS   135
                                        *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE   OPTIONS   136
                                        *         PRECEDING CALL TO IPARAMS.                                     OPTIONS   137
                                        *                                                                        OPTIONS   138
                                        *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO   OPTIONS   139
                                        *                THE FIRST TWO CHARACTERS OF THE CYBER "MODEL", I.E.     OPTIONS   140
                                        *                72, 73, 74, OR 76.  IT IS REFERENCED WHENEVER THE       OPTIONS   141
                                        *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST      OPTIONS   142
                                        *                BE KNOWN.                                               OPTIONS   143
                                        *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1   OPTIONS   144
                                        *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING    OPTIONS   145
                                        *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.           OPTIONS   146
                                        *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS     OPTIONS   147
                                        *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO   OPTIONS   148
                                        *                DETERMINE MACHINE DIFFERENCES.                          OPTIONS   149
                                                                                                                 OPTIONS   150
                              140000     IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH              OPTIONS   151
                                   0     IP.CSET  =      /IPARAM/IP.CSET                                         OPTIONS   152
                                   2     IP.C63   =      /IPARAM/IP.C63                                          OPTIONS   153
                                                                                                                 OPTIONS   154
                                   0     TPD      SET    0                                                       OPTIONS   155
                                                  ECHO   2,A=(3,4,6,8),B=(6,8,6,8)                               OPTIONS   156
                                                  IFEQ   A,/IPARAM/IP.PD,1                                       OPTIONS   157
                                         TPD      SET    B                                                       OPTIONS   158
                                   6              ERRZR  TPD         IP.PD MUST BE 3, 4, 6, OR 8                 OPTIONS   159
                                   6     IP.PD    =      TPD         DEFAULT PRINT DENSITY                       OPTIONS   160
                                  74     IP.PS    =      /IPARAM/IP.PS     DEFAULT PAGE SIZE                     OPTIONS   161
                                                                                                                 OPTIONS   162
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     5
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                         MDL      VALMDL HF.P                                                    F2950F5    14
                                 111     CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                            OPTIONS   164
                                                                                                                 OPTIONS   165
                                   1     .OT      SET    1           SET FOR NOS                                 OPTIONS   166
                                         #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                   OPTIONS   167
                                         .VER     MICRO  1,1,/"OS.VER"/                                          OPTIONS   168
                                         .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                      OPTIONS   169
                                         #OS      ENDIF                                                          OPTIONS   170
                                   1     .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM               OPTIONS   171
                                        *                                                                        OPTIONS   172
                                        ***                                                                      OPTIONS   173
  
  
  
                                        ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                  OPTIONS   175
                                                                                                                 OPTIONS   176
                                                                                                                 OPTIONS   177
                                        *         ************************************************************** OPTIONS   178
                                        *         *                                                            * OPTIONS   179
                                        *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     * OPTIONS   180
                                        *         *                                                            * OPTIONS   181
                                        *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       * OPTIONS   182
                                        *         *            ----                       ----                 * OPTIONS   183
                                        *         *                                                            * OPTIONS   184
                                        *         *            71                         6400                 * OPTIONS   185
                                        *         *            72                         6200                 * OPTIONS   186
                                        *         *            73                         6400                 * OPTIONS   187
                                        *         *            73-2                       6500                 * OPTIONS   188
                                        *         *            74                         6600                 * OPTIONS   189
                                        *         *            74-2                       6700                 * OPTIONS   190
                                        *         *            76                         7600                 * OPTIONS   191
                                        *         *            171                        6400                 * OPTIONS   192
                                        *         *            172                        6400                 * OPTIONS   193
                                        *         *            173                        6400                 * OPTIONS   194
                                        *         *            174                        6400                 * OPTIONS   195
                                        *         *            175                        CYBER 175 CPU        * OPTIONS   196
                                        *         *            176                        7600                 * OPTIONS   197
                                        *         *                                                            * OPTIONS   198
                                        *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  * OPTIONS   199
                                        *         *      IGNORED. TO BUILD A CROSS-MODEL COMPILER, DO ONE     *  F1037F5    82
                                        *         *      OF THE FOLLOWING :                                   *  F1037F5    83
                                        *         *                                                           *  F1037F5    84
                                        *         *      A) SELECT A VALUE FROM THE LIST ABOVE, REMOVE BOTH   *  F1037F5    85
                                        *         *         ASTERISKS, AND INSERT THE PROPER VALUE ON THE     *  F1037F5    86
                                        *         *         FOLLOWING LINE.                                      F1037F5    87
                                        *         DEFMOD 74                                                      F1037F5    88
                                        *         DEFINHF                                                        F1037F5    89
                                        *         *                                                           *  F1037F5    90
                                        *         *      B) EQUATE THE FOLLOWING PARAMETER TO 1. THIS WILL    *  F1037F5    91
                                        *         *         CAUSE A MODEL-INDEPENDENT COMPILER TO BE BUILT.   *  F1037F5    92
                                        *         *         (NOTE - THIS BUILD PROCEDURE IS INCOMPATIBLE      *  F1037F5    93
                                        *         *         WITH THE SCOPE 2 OPERATING SYSTEM)                *  F1037F5    94
                                   0     .MI      EQU    0                                                       F1037F5    95
                                        *         *                                                           *  F1037F5    96
                                        *         ************************************************************** OPTIONS   205
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     6
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   207
                                        *         *                                                            * OPTIONS   208
                                        *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          * OPTIONS   209
                                        *         *                                                            * OPTIONS   210
                                        *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     * OPTIONS   211
                                        *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      * OPTIONS   212
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  * OPTIONS   213
                                        *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    * OPTIONS   214
                                        *         *      PARAMETER TO ZERO.                                    * OPTIONS   215
                                   0     .IWT     EQU    0                                                       OPTIONS   216
                                        *         *                                                            * OPTIONS   217
                                        *         ************************************************************** OPTIONS   218
  
  
  
                                        *         ************************************************************** OPTIONS   220
                                        *         *                                                            * OPTIONS   221
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   * OPTIONS   222
                                        *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         * OPTIONS   223
                                        *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    * OPTIONS   224
                                        *         *      VALUES ARE --                                         * OPTIONS   225
                                        *         *                                                            * OPTIONS   226
                                        *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    * OPTIONS   227
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   228
                                        *         *                                                            * OPTIONS   229
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   230
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   231
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   232
                                        *CP#RM    =      0                                                     * OPTIONS   233
                                        *         *                                                            * OPTIONS   234
                                        *         ************************************************************** OPTIONS   235
  
  
  
  
                                        *         ************************************************************** OPTIONS   237
                                        *         *                                                            * OPTIONS   238
                                        *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    * OPTIONS   239
                                        *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   * OPTIONS   240
                                        *         *      VALUES ARE -                                          * OPTIONS   241
                                        *         *                                                            * OPTIONS   242
                                        *         *                  1 = ECS AVAILABLE                         * OPTIONS   243
                                        *         *                  0 = NO ECS AVAILABLE                      * OPTIONS   244
                                        *         *                                                            * OPTIONS   245
                                        *         *                  LOWER CYBER DEFAULT =                     * OPTIONS   246
                                        *         *                        0  FOR KRONOS OPERATING SYSTEM      * OPTIONS   247
                                        *         *                        /IPARAM/IP.MECS  FOR SCOPE          * OPTIONS   248
                                        *         *                  CYBER 76 DEFAULT IS 1                     * OPTIONS   249
                                        *         *                                                            * OPTIONS   250
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   251
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   252
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   253
                                        *CT.ECS   EQU    0                                                     * OPTIONS   254
                                        *         *                                                            * OPTIONS   255
                                        *         ************************************************************** OPTIONS   256
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     7
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   258
                                        *         *                                                            * OPTIONS   259
                                        *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  * OPTIONS   260
                                        *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    * OPTIONS   261
                                        *         *      NOT ZERO, THEN WHEN OPT = 3 IS SELECTED, THE            OPTIONS   262
                                        *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN * OPTIONS   263
                                        *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     * OPTIONS   264
                                        *         *      SUCH AS SIN, SQRT, EXP, ETC.                            OPTIONS   265
                                        *         *                                                            * OPTIONS   266
                                   1     .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY       OPTIONS   267
                                        *         *                                                            * OPTIONS   268
                                        *         ************************************************************** OPTIONS   269
  
  
  
  
                                        *         ************************************************************** OPTIONS   271
                                        *         *                                                            * OPTIONS   272
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     * OPTIONS   273
                                        *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  * OPTIONS   274
                                        *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      * OPTIONS   275
                                        *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN * OPTIONS   276
                                        *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    * OPTIONS   277
                                        *         *      VALUES ARE --                                         * OPTIONS   278
                                        *         *                                                            * OPTIONS   279
                                        *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    * OPTIONS   280
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   281
                                        *         *                                                            * OPTIONS   282
                                        *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        * OPTIONS   283
                                        *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   * OPTIONS   284
                                        *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    * OPTIONS   285
                                        *         *      VALUE ON THE FOLLOWING LINE.                          * OPTIONS   286
                                        *OT#RM    =      6                                                       OPTIONS   287
                                        *         *                                                            * OPTIONS   288
                                        *         ************************************************************** OPTIONS   289
  
  
  
  
                                        *         ************************************************************** FC5A180    12
                                        *         *                                                            * FC5A180    13
                                        *         *      SELECT MINIMUM FIELD LENGTH INSTALLATION.             * FC5A180    14
                                        *         *      THIS OPTION FORCES ALL BUFFERS INTO MINIMAL           * FC5A180    15
                                        *         *      ALLOCATIONS IN ORDER TO COMPILE IN AN                 * FC5A180    16
                                        *         *      ABSOLUTE MINIMUM FIELD LENGTH.  THIS IS               * FC5A180    17
                                        *         *      ACCOMPLISHED AT THE EXPENSE OF COMPILE SPEED, AND     * FC5A180    18
                                        *         *      IS RECOMMENDED ONLY FOR 32K SCM 7600-STYLE SYSTEMS.   * FC5A180    19
                                        *         *                                                            * FC5A180    20
                                        *         *      TO SELECT THIS OPTION, SET .MINFL TO 1 ON THE         * FC5A180    21
                                        *         *      FOLLOWING LINE.                                       * FC5A180    22
                                   0     .MINFL   =      0                                                       FC5A180    23
                                        *         *                                                            * FC5A180    24
                                        *         ************************************************************** FC5A180    25
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     8
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   291
                                        *         *                                                            * OPTIONS   292
                                        *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      * OPTIONS   293
                                        *         *                                                            * OPTIONS   294
                                         FC       MICRO  1,,/#/                                                  OPTIONS   295
                                        *         *                                                            * OPTIONS   296
                                        *         ************************************************************** OPTIONS   297
  
  
  
                                        *         ************************************************************** OPTIONS   299
                                        *         *                                                            * OPTIONS   300
                                        *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  * OPTIONS   301
                                        *         *                                                            * OPTIONS   302
                                        *         *                  6RM VALUES                                * OPTIONS   303
                                  34     L.FIT6   =      19D+9D      FIT LENGTH                                  OPTIONS   304
                                  15     L.FET6   =      13D         FET LENGTH                                  OPTIONS   305
                                2003     L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                   OPTIONS   306
                                 101     L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB  OPTIONS   307
                                 401     L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB OPTIONS   308
                                        *         *                                                            * OPTIONS   309
                                        *         *                  7RM VALUES                                * OPTIONS   310
                                  26     L.FIT7   =      22D         FIT LENGTH                                  FC50729     6
                                   0     L.FET7   =      0           FET LENGTH                                  OPTIONS   312
                                   0     L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                   OPTIONS   313
                                        *         *                                                            * OPTIONS   314
                                        *         ************************************************************** OPTIONS   315
  
  
  
                                        *         ************************************************************** OPTIONS   317
                                        *         *                                                            * OPTIONS   318
                                        *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         * OPTIONS   319
                                        *         *                                                            * OPTIONS   320
                                        *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, *CONRED* WILL   * OPTIONS   321
                                        *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    * OPTIONS   322
                                        *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        * OPTIONS   323
                                        *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       * OPTIONS   324
                                        *         *                                                            * OPTIONS   325
                                   0     NOINVERT EQU    0                                                       OPTIONS   326
                                        *         *                                                            * OPTIONS   327
                                        *         ************************************************************** OPTIONS   328
  
  
  
                                        *         ************************************************************** FC5A483    10
                                        *         *                                                            * FC5A483    11
                                        *         *      SELECT RUN TIME CHECK FOR INTEGER DIVIDE BY ZERO      * FC5A483    12
                                        *         *                                                            * FC5A483    13
                                        *         *      WHEN THE FOLLOWING PARAMETER IS SET TO 1, INTEGER     * FC5A483    14
                                        *         *      DIVIDE BY ZERO WILL BE TRAPPED AT RUN TIME AND        * FC5A483    15
                                        *         *      THE RUNNING JOB WILL BE STOPPED. THE COST FOR         * FC5A483    16
                                        *         *      THIS WILL BE TWO ADDITIONAL INSTRUCTIONS FOR          * FC5A483    17
                                        *         *      EVERY INTEGER DIVIDE. THIS FEATURE SHOULD NOT BE      * FC5A483    18
                                        *         *      USED FOR AN APPLICATION JOB THAT IS INTEGER DIVIDE    * FC5A483    19
                                        *         *      INTENSIVE OR IF IT IS FELT THAT PERFORMANCE           * FC5A483    20
                                        *         *      OF THE APPLICATION JOB WILL BE ADVERSELY AFFECTED.    * FC5A483    21
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE     9
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         *                                                            * FC5A483    22
                                   0     .IDC     EQU    0                                                       FC5A483    23
                                        *         *                                                            * FC5A483    24
                                        *         ************************************************************** FC5A483    25
  
  
                                        ***   ***   THERE ARE NO INSTALLATION OPTIONS BELOW THIS LINE ***   ***  OPTIONS   330
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    10
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        ***                                                                      OPTIONS   332
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF     OPTIONS   333
                                        *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE    OPTIONS   334
                                        *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF    OPTIONS   335
                                        *         THE *MODEL* MICRO OBTAINED FROM A CALL TO *IPARAMS* AT THE     OPTIONS   336
                                        *         BEGINNING OF *OPTIONS*.                                        OPTIONS   337
                                        *                                                                        OPTIONS   338
                                        *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE   OPTIONS   339
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   340
                                        *                                                                        OPTIONS   341
                                        *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR     OPTIONS   342
                                        *                OPT=2 USE DURING COMPILATIONS.                          OPTIONS   343
                                                                                                                 OPTIONS   344
                                         #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                            OPTIONS   345
                                         #MD      IFEQ   .OS,2                                                   OPTIONS   346
                                                                                                                 OPTIONS   347
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   348
                                                                                                                 OPTIONS   349
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   350
                                         CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                     OPTIONS   351
                                         #RM      ENDIF                                                          OPTIONS   352
                                                                                                                 OPTIONS   353
                                         #ECS     IF     -DEF,CT.ECS                                             OPTIONS   354
                                         CT.ECS   EQU    1           USE LCM AT COMPILE TIME                     OPTIONS   355
                                         #ECS     ENDIF                                                          OPTIONS   356
                                                                                                                 FC5A158A   54
                                         .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE      FC5A158A   55
                                                                                                                 OPTIONS   357
                                         #MD      ELSE                                                           OPTIONS   358
                                                                                                                 OPTIONS   359
                                        *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.               OPTIONS   360
                                                                                                                 OPTIONS   361
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   362
                                   0     CP#RM    EQU    0           USE CIO AT COMPILE-TIME                     OPTIONS   363
                                         #RM      ENDIF                                                          OPTIONS   364
                                                                                                                 OPTIONS   365
                                         #ECS     IF     -DEF,CT.ECS,4                                           OPTIONS   366
                                         #ECS     IF     DEF,/IPARAM/IP.MECS,2                                   OPTIONS   367
                                   1     CT.ECS   EQU    /IPARAM/IP.MECS                                         OPTIONS   368
                                         #ECS     SKIP   1                                                       OPTIONS   369
                                         CT.ECS   EQU    0                                                       OPTIONS   370
                                         #ECS     ENDIF                                                          OPTIONS   371
                                                                                                                 FC5A158A   56
                                   1     .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE             FC5A158A   57
                                                                                                                 OPTIONS   372
                                         #MD      ENDIF                                                          OPTIONS   373
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    11
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        **        IF .MI HAS BEEN EQUATED TO 1, FORCE A 176 STYLE BUILD, AND     F1037F5    98
                                        *         CAUSE AN ASSEMBLY ERROR IF .OS = 2 (SCOPE 2).                  F1037F5    99
                                                                                                                 F1037F5   100
                                                  IFEQ   .MI,1,3                                                 F1037F5   101
                                                  ERRZR  .OS-2                                                   F1037F5   102
                                                  DEFMOD 176                                                     F1037F5   103
                                                  DEFINHF                                                        F1037F5   104
                                                                                                                 F1037F5   105
  
  
  
  
                                        *         SELECT SYSTEM- OR TEST-MODE COMPILER CONFIGURATION.            OPTIONS   375
                                                                                                                 OPTIONS   376
                                   0     TEST     =      0           ASSEMBLE COMPILER IN SYSTEM MODE            OPTIONS   380
                                                                                                                 OPTIONS   381
                                  -1     SC2ZERO  SET    .OS-2                                                   FC5A158A   58
                                   0     .SPY     =      SC2ZERO/SC2ZERO*TEST                                    FC5A158A   59
                                        *                                                                        OPTIONS   383
                                        ***                                                                      OPTIONS   384
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    12
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        ***                                                                      OPTIONS   386
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF      OPTIONS   387
                                        *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN    OPTIONS   388
                                        *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF      OPTIONS   389
                                        *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME          OPTIONS   390
                                        *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH     OPTIONS   391
                                        *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.              OPTIONS   392
                                        *                                                                        OPTIONS   393
                                        *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE    OPTIONS   394
                                        *                FIRST TWO CHARACTERS OF THE *MODEL* MICRO, I.E. 72,     OPTIONS   395
                                        *                73, 74, OR 76.  IT IS TO BE USED FOR OBJECT-TIME        OPTIONS   396
                                        *                HARDWARE DIFFERENCES ONLY.                              OPTIONS   397
                                        *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS     OPTIONS   398
                                        *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF    OPTIONS   399
                                        *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,      OPTIONS   400
                                        *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY      OPTIONS   401
                                        *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.        OPTIONS   402
                                        *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE    OPTIONS   403
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   404
                                                                                                                 OPTIONS   405
                                         MDL      VALMDL HF.P                                                    F2950F5    18
                                                                                                                 OPTIONS   407
                                 111     .CPU     EQU    "MDL"       OBJECT TIME CPU                             OPTIONS   408
                                                  IF     -MIC,HF.S                                               F2950F5    19
                                   0     L.STACK  EQU    0                                                       F2950F5    20
                                                  ELSE                                                           F2950F5    21
                                         .1       MICRO  2,,/"HF.S"/                                             F2950F5    22
                                         L.STACK  EQU    ".1"+1                                                  F2950F5    23
                                                  ENDIF                                                          F2950F5    24
                                                  IF     MIC,HF.L                                                F2950F5    25
                                   1     .DAL     EQU    1                                                       F2950F5    26
                                                  ELSE                                                           F2950F5    27
                                         .DAL     EQU    0                                                       F2950F5    28
                                                  ENDIF                                                          F2950F5    29
                                                                                                                 OPTIONS   413
                                         #MD      IFEQ   .CPU,76                                                 OPTIONS   414
                                                                                                                 OPTIONS   415
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   416
                                                                                                                 OPTIONS   417
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   418
                                         #OS      IFEQ   .OS,2                                                   OPTIONS   419
                                         OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                 OPTIONS   420
                                         #OS      ELSE                                                           OPTIONS   421
                                         OT#RM    =      6                                                       OPTIONS   422
                                         #OS      ENDIF                                                          OPTIONS   423
                                         #RM      ENDIF                                                          OPTIONS   424
                                                                                                                 OPTIONS   425
                                         SCM      MICRO  1,,/SCM/                                                OPTIONS   426
                                         LCM      MICRO  1,,/LCM/                                                OPTIONS   427
                                                                                                                 OPTIONS   428
                                         #MD      ELSE                                                           OPTIONS   429
                                                                                                                 OPTIONS   430
                                        *         LOWER CYBER DEFAULT VALUES.                                    OPTIONS   431
                                                                                                                 OPTIONS   432
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   433
                                   6     OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                 OPTIONS   434
                                         #RM      ENDIF                                                          OPTIONS   435
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    13
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                                                                                                 OPTIONS   436
                                         SCM      MICRO  1,,/CM/                                                 OPTIONS   437
                                         LCM      MICRO  1,,/ECS/                                                OPTIONS   438
                                                                                                                 OPTIONS   439
                                         #MD      ENDIF                                                          OPTIONS   440
                                        ****                                                                     OPTIONS   441
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    14
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                COMADEF 
  
             0                           COMADEF  CTEXT  COMADEF - STRUCTURED FIELD DECLARATION MACROS.          COMADEF     2
                                        ***       COMADEF - STRUCTURED FIELD DECLARATION MACROS.                 COMADEF     3
                                        *                                                                        COMADEF     4
                                        *         J. A. WHITE III AND S. I. JASIK - DATES UNKNOWN                COMADEF     5
                                        *         P. H. MCQUESTEN    76-10-06.                                   COMADEF     6
                                        *                                                                        COMADEF     7
                                        *         MACROS TO FACILITATE FIELD DESCRIPTION, WHERE FIELDS ARE       COMADEF     8
                                        *         SUB-WORD ENTITIES.  THE 'DESCRIBE' MACRO IS USED TO PROVIDE    COMADEF     9
                                        *         A PREFIX FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES. COMADEF    10
                                        *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE         COMADEF    11
                                        *         DEFINED                                                        COMADEF    12
                                        *                                                                        COMADEF    13
                                        *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT    COMADEF    14
                                        *                              WHICH COMPRISES THE NAMED FIELD (WITHIN   COMADEF    15
                                        *                              A WORD BITS ARE NUMBERED ACCORDING TO     COMADEF    16
                                        *                              THE POWER OF TWO WHICH THEY REPRESENT)    COMADEF    17
                                        *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD           COMADEF    18
                                        *                                                                        COMADEF    19
                                        *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-  COMADEF    20
                                        *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER   COMADEF    21
                                        *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.  COMADEF    22
                                        *                                                                        COMADEF    23
                                        *         EACH 'DEFINE' REFERENCES A FIELD BEGINNING TO THE IMMEDIATE    COMADEF    24
                                        *         RIGHT OF THE PRECEEDING FIELD.                                 COMADEF    25
  
  
  
                                        ***       DESCRIBE - DECLARE BEGINNING OF STRUCTURE.                     COMADEF    27
                                        *                                                                        COMADEF    28
                                        *         DESCRIBE PFX,BITSLONG,TOPBIT,WORDNR                            COMADEF    29
                                        *                                                                        COMADEF    30
                                        *         ENTRY  PFX = THE PREFIX FOR THE STRUCTURE, AS MENTIONED ABOVE. COMADEF    31
                                        *                BITSLONG = THE TOTAL LENGTH IN BITS OF THE STRUCTURE,   COMADEF    32
                                        *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED.           COMADEF    33
                                        *                TOPBIT = THE BEGINNING (LEFTMOST) BIT OF THE STRUCTURE, COMADEF    34
                                        *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE.       COMADEF    35
                                        *                WORDNR = WORD NUMBER OF THE STRUCTURE BEING DESCRIBE-D. COMADEF    36
                                        *                     ZERO IF OMITTED.  SHOULD BE OMITTED FOR            COMADEF    37
                                        *                     SINGLE-WORD STRUCTURES.                            COMADEF    38
                                                                                                                 COMADEF    39
                                                                                                                 COMADEF    40
                                         DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT,WORDNR                           COMADEF    41
                                                  NOREF  /"QUAL"/.C,/"QUAL"/.D,/"QUAL"/.W                        COMADEF    42
                                                  NOREF  /"QUAL"/.B,/"QUAL"/.L,/"QUAL"/.1                        COMADEF    43
                                                  NOREF  /"QUAL"/.2,/"QUAL"/.3,/"QUAL"/.4                        COMADEF    44
                                                  NOREF  /"QUAL"/.5                                              COMADEF    45
                                         .P       MICRO  1,,/PREFIX/                                             COMADEF    46
                                         .D       SET    BITSLONG   60                                           COMADEF    47
                                         .C       SET    TOPBIT     .D-1                                         COMADEF    48
                                         .W       SET    WORDNR     0                                            COMADEF    49
                                        *                            INITIALIZE COUNTERS.                        COMADEF    50
                                         .L       SET    .D                                                      COMADEF    51
                                         .B       SET    .C                                                      COMADEF    52
                                                  IFC    NE, WORDNR  ,1                                          COMADEF    53
                                         ".P"W    EQU    .W                                                      COMADEF    54
                                         DESCRIBE ENDM                                                           COMADEF    55
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    15
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                DEFINE
  
                                        ***       DEFINE - DECLARE A FIELD WITHIN THE STRUCTURE.                 COMADEF    57
                                        *                                                                        COMADEF    58
                                        *  NAME   DEFINE LENGTH,R                                                COMADEF    59
                                        *                                                                        COMADEF    60
                                        *         ENTRY  NAME = THE NAME OF THE FIELD MENTIONED ABOVE.  IF NOT   COMADEF    61
                                        *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.      COMADEF    62
                                        *                LENGTH = THE BIT LENGTH OF THIS FIELD (OR FILLER).      COMADEF    63
                                        *                    IF OMITTED, LENGTH = ONE IS ASSUMED.                COMADEF    64
                                        *                R = IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE        COMADEF    65
                                        *                    DEFINED RELATIVE TO BIT POSITION 'R' AS THE         COMADEF    66
                                        *                    TOPMOST (LEFTMOST) BIT.  THE 'REDEF' MACRO WILL     COMADEF    67
                                                                                                                 COMADEF    68
                                                                                                                 COMADEF    69
                                                  MACRO  DEFINE,N,LONG,RESET                                     COMADEF    70
                                         .1       SET    LONG 1                                                  COMADEF    71
                                                  IFC    NE,//RESET/,2                                           COMADEF    72
                                         .L       SET    1000    ** KLUDGE **      .L-.B+RESET                   COMADEF    73
                                         .B       SET    RESET                                                   COMADEF    74
                                        *                                                                        COMADEF    75
                                                  IFC    NE,  N ,1                                               COMADEF    76
                                         N        DEQU   *,.1,.B-.1+1                                            COMADEF    77
                                        *                            ADVANCE COUNTERS, CHECK OVERFLOW.           COMADEF    78
                                         .L       SET    .L-.1                                                   COMADEF    79
                                         .B       SET    .B-.1                                                   COMADEF    80
                                                  ERRMI  .L          TOTAL LENGTH OF ".P" LONGER THAN SPECIFIED. COMADEF    81
                                                  IFLT   .B,0,3                                                  COMADEF    82
                                                  IFNE   .B,-1,1                                                 COMADEF    83
                                                   ERR    FIELD SPANS A WORD BOUNDARY    ("SEQUENCE")            COMADEF    84
                                         .B       SET    59                                                      COMADEF    85
                                         DEFINE   ENDM                                                           COMADEF    86
  
  
  
  
                                        ***       DEQU - DECLARE EQUIVALENCED FIELD.                             COMADEF    88
                                        *                                                                        COMADEF    89
                                        *  NAM    DEQU   FLD,LEN                                                 COMADEF    90
                                        *                                                                        COMADEF    91
                                        *         ENTRY  NAM = A NEW FIELD NAME TO BE DECLARED.                  COMADEF    92
                                        *                FLD = A PREVIOUSLY DEFINED FIELD IN THIS STRUCTURE.     COMADEF    93
                                        *                LEN = (OPTIONAL) EXPLICIT BIT LENGTH OF NEW FIELD.      COMADEF    94
                                        *                      IF 'LEN' IS OMITTED, LENGTH OF THE NEW FIELD      COMADEF    95
                                        *                      WILL BE SAME AS LENGTH OF OLD FIELD.              COMADEF    96
                                                                                                                 COMADEF    97
                                                                                                                 COMADEF    98
                                                  MACRO  DEQU,N,B,LEN,V                                          COMADEF    99
                                         .2       SET    LEN  ".P"B_L                                            COMADEF   100
                                         .3       SET    V    ".P"B_P                                            COMADEF   101
                                         ".P"N_P  EQU    .3                                                      COMADEF   102
                                         ".P"N_L  EQU    .2                                                      COMADEF   103
                                        *                            LIST FIELD MASK PRETTILY.                   COMADEF   104
                                                  LOC    .W*100B+.3                                              COMADEF   105
                                                  POS    1+.C                                                    COMADEF   106
                                         .4       SET    *P-.2-.3                                                COMADEF   107
                                         .5       SET    .D-.2-.4                                                COMADEF   108
                                                  VFD    .4/,.2/-0,.5/                                           COMADEF   109
                                                  ORG    *O-*P/60D                                               COMADEF   110
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    16
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                DEQU
  
                                        *                            DEFINE MASK VALUE FOR SINGLE BIT FIELDS.    COMADEF   111
                                                  IFEQ   .2,1,4                                                  COMADEF   112
                                                  NOREF  /"QUAL"/".P"N_L                                         COMADEF   113
                                                  IFLE   .3,17,2                                                 COMADEF   114
                                         .A       DECMIC .3                                                      COMADEF   115
                                         ".P"N_M  EQU    1S".A"                                                  COMADEF   116
                                                  ENDM                                                           COMADEF   117
  
  
  
  
                                        ***       REDEF - DECLARE OVERLAPPING SUB-STRUCTURES.                    COMADEF   119
                                        *                                                                        COMADEF   120
                                        *         REDEF  NAME                                                    COMADEF   121
                                        *                                                                        COMADEF   122
                                        *         ENTRY  NAME = THE NAME OF A PREVIOUSLY DECLARED FIELD.         COMADEF   123
                                        *                                                                        COMADEF   124
                                        *         CAUSES SUBSEQUENT FIELD TO BE DEFINED BEGINNING AT THE TOP     COMADEF   125
                                        *         (LEFTMOST) BIT OF FIELD 'NAME'.  IF 'NAME' IS OMITTED,         COMADEF   126
                                        *         REDEFINITION BEGINS AT THE TOP OF THE ENTIRE STRUCTURE.        COMADEF   127
                                                                                                                 COMADEF   128
                                                                                                                 COMADEF   129
                                         REDEF    MACRO  N                                                       COMADEF   130
                                                  IFC    EQ, N  ,3                                               COMADEF   131
                                         .1       SET    .C                                                      COMADEF   132
                                         .L       SET    .D                                                      COMADEF   133
                                                  SKIP   2                                                       COMADEF   134
                                         .1       SET    ".P"N_P+".P"N_L-1                                       COMADEF   135
                                         .L       SET    1000  ** KLUDGE **  .L+.1-.B+1                          COMADEF   136
                                        *                                                                        COMADEF   137
                                         .B       SET    .1                                                      COMADEF   138
                                                  ENDM                                                           COMADEF   139
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    17
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                EXAMPLE 
  
                                        ***       CONSIDER THE FOLLOWING EXAMPLE --                              COMADEF   141
                                        *                                                                        COMADEF   142
                                        *         TABLE X      .------.-------.------.                           COMADEF   143
                                        *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE @ 100)     COMADEF   144
                                        *                      .------.-------.------.                           COMADEF   145
                                        *                       '      '       '     '                           COMADEF   146
                                        *                      59     47      17     0                           COMADEF   147
                                        *                                                                        COMADEF   148
                                        *                 OR   .------.--------------.                           COMADEF   149
                                        *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)         COMADEF   150
                                        *                      .------.--------------.                           COMADEF   151
                                        *                       '      '             '                           COMADEF   152
                                        *                      59     47             0                           COMADEF   153
                                        *                                                                        COMADEF   154
                                        *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE COMADEF   155
                                        *                                  TWO CHARACTERS 'X.'                   COMADEF   156
                                        *         TYPE   DEFINE  12                                              COMADEF   157
                                        *         MSG    DEFINE  48                                              COMADEF   158
                                        *                REDEF   MSG                                             COMADEF   159
                                        *         VALUE  DEFINE  30                                              COMADEF   160
                                        *         SUBV   DEFINE  18                                              COMADEF   161
                                        *                                                                        COMADEF   162
                                        *       THE SYMBOLS DEFINED WOULD BE                                     COMADEF   163
                                        *                                                                        COMADEF   164
                                        *                X.TYPEP   EQU  48                                       COMADEF   165
                                        *                X.TYPEL   EQU  12                                       COMADEF   166
                                        *                X.MSGP    EQU   0                                       COMADEF   167
                                        *                X.MSGL    EQU  48                                       COMADEF   168
                                        *                X.VALUEP  EQU  18                                       COMADEF   169
                                        *                X.VALUEL  EQU  30                                       COMADEF   170
                                        *                X.SUBVP   EQU   0                                       COMADEF   171
                                        *                X.SUBVL   EQU  18                                       COMADEF   172
  
  
  
  
                                        ***       BFMW - CREATE A BIT FIELD MASK WORD.                           COMADEF   174
                                        *                                                                        COMADEF   175
                                        * LAB     BFMW   PREFIX,(BITLIST),SHFT                                   COMADEF   176
                                        *                                                                        COMADEF   177
                                        *         ENTRY  PREFIX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.    COMADEF   178
                                        *                BITLIST = LIST OF BIT FIELDS TO APPEAR IN MASK.         COMADEF   179
                                        *                SHFT = AMOUNT BY WHICH WORD IN REGISTERS HAS ALREADY    COMADEF   180
                                        *                       BEEN SHIFTED.                                    COMADEF   181
                                                                                                                 COMADEF   182
                                                                                                                 COMADEF   183
                                                  MACRO  BFMW,LAB,PR,BIT,SHFT                                    COMADEF   184
                                                  IFC    NE,/"QUAL"//,1                                          COMADEF   185
                                                  NOREF  /"QUAL"/.P,/"QUAL"/.Z                                   COMADEF   186
                                        *                                                                        COMADEF   187
                                         LAB      BSS    0                                                       COMADEF   188
                                         .Z       SET    0                                                       COMADEF   189
                                                                                                                 COMADEF   190
                                                  IRP    BIT                                                     COMADEF   191
                                         .P       SET    PR.BIT_P+PR.BIT_L+SHFT                                  COMADEF   192
                                                  IFGT   .P,60,1                                                 COMADEF   193
                                         .P       SET    .P-60                                                   COMADEF   194
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    18
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                BMFW
  
                                                  IFNE   .P,PR.BIT_L,3                                           COMADEF   195
                                                  POS    .P                                                      COMADEF   196
                                                  VFD    PR.BIT_L/-0                                             COMADEF   197
                                                  ELSE   1                                                       COMADEF   198
                                         .Z       SET    .P                                                      COMADEF   199
                                                  IRP                                                            COMADEF   200
                                        *                                                                        COMADEF   201
                                                  IFNE   .Z,0,3                                                  COMADEF   202
                                                  POS    .Z                                                      COMADEF   203
                                                  VFD    .Z/-0                                                   COMADEF   204
                                                  SKIP   1                                                       COMADEF   205
                                                  VFD    *P/0                                                    COMADEF   206
                                        *                                                                        COMADEF   207
                                                  ENDM                                                           COMADEF   208
                                                                                                                 COMADEF   209
                                         COMADEF  ENDX                                                           COMADEF   210
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    19
        I/O CODING CONVENTIONS                                        FA=DEFS 
  
                                        **        I/O MACRO CODING CONVENTIONS.                                  FA=DEFS     3
                                        *                                                                        FA=DEFS     4
                                        *         1.  MACRO DEFINITIONS THAT ACCEPT NULL CALLING PARAMETERS      FA=DEFS     5
                                        *         SHOULD BE AVOIDED, PARTICULARLY WHEN A NULL PARAMETER IMPLIES  FA=DEFS     6
                                        *         THAT A REGISTER IS ALREADY PROPERLY LOADED.  THE ASSUMPTIONS   FA=DEFS     7
                                        *         OR REGISTERS MAY HAVE TO BE CHANGED IN THE FUTURE, WHICH COULD FA=DEFS     8
                                        *         COMPEL RECODING OF ALL CALLS TO THE MACRO IF NULL PARAMETERS   FA=DEFS     9
                                        *         HAVE SPECIFIC MEANINGS.                                        FA=DEFS    10
                                        *             THE PREFERRED TECHNIQUE IS TO REQUIRE EXPLICIT CALL        FA=DEFS    11
                                        *         PARAMETERS, AND THEN SQUEEZE OUT REDUNDANT CODE WITH THE       FA=DEFS    12
                                        *         (R=) PSEUDO-OP OR OTHER METHOD.                                FA=DEFS    13
                                        *                                                                        FA=DEFS    14
                                        *         2.  *USES* LISTS ONLY THE REGISTERS DESTROYED BY THE MACRO     FA=DEFS    15
                                        *         CALL EXPANSION.  REGISTERS DESTROYED BY INNER MACRO OR         FA=DEFS    16
                                        *         SUBROUTINE CALLS ARE LISTED IN THE DESCRIPTION OF THE CALLED   FA=DEFS    17
                                        *         ITEM.                                                          FA=DEFS    18
                                        *             THE ONLY EXCEPTION TO THIS IS THAT REGISTERS DESTROYED BY  FA=DEFS    19
                                        *         THE (R=) PSEUDO-OP SHOULD BE LISTED IN THE *USES* BLOCK OF     FA=DEFS    20
                                        *         THE CALLER.                                                    FA=DEFS    21
                                        *                                                                        FA=DEFS    22
                                        *         3.  BOTH MACRO AND SUBROUTINE CALLS ARE LISTED IN *CALLS*.     FA=DEFS    23
                                        *                                                                        FA=DEFS    24
                                        *         4.  CONDITIONAL ASSEMBLY PSEUDO-OPS (IF.., ELSE, SKIP, ENDIF)  FA=DEFS    25
                                        *         ARE ALWAYS EITHER COUNT-CONTROLLED OR LABELED, TO AVOID MACRO  FA=DEFS    26
                                        *         NESTING PROBLEMS.                                              FA=DEFS    27
                                        *             COUNT CONTROL IS PREFERRED WHERE THE LINE COUNTS ARE       FA=DEFS    28
                                        *         SMALL (.LE. 9), TO REDUCE ASSEMBLY TIME.                       FA=DEFS    29
                                        *             LABELING IS PREFERRED FOR LARGER LINE COUNTS, TO REDUCE    FA=DEFS    30
                                        *         THE CHANCE OF COUNT ERRORS AND TO ENHANCE CODE READABILITY.    FA=DEFS    31
                                        *                                                                        FA=DEFS    32
                                        *         5.  ADDRESS TERMINOLOGY.                                       FA=DEFS    33
                                        *                THE FOLLOWING CONVENTIONS ARE ADOPTED FOR REFERRING     FA=DEFS    34
                                        *         TO A GROUP OF CONTIGUOUS STORAGE LOCATIONS.                    FA=DEFS    35
                                        *             A.  *FWA* OR FIRST WORD ADDRESS IS THE SMALLEST STORAGE    FA=DEFS    36
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    37
                                        *             B.  *LWA* OR LAST WORD ADDRESS IS THE LARGEST STORAGE      FA=DEFS    38
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    39
                                        *             C.  *ADDRESS*, IF NOT OTHERWISE QUALIFIED, IS THE FIRST    FA=DEFS    40
                                        *             WORD ADDRESS.                                              FA=DEFS    41
                                        *             D. *FWA* IS PREFERRED WHEN BOTH *FWA* AND *LWA* ARE        FA=DEFS    42
                                        *             BEING MENTIONED, TO AVOID CONFUSION.  OTHERWISE,           FA=DEFS    43
                                        *             *ADDRESS* IS PREFERRED.                                    FA=DEFS    44
                                        *             E.  *LWA+1* IS NEVER, NEVER ABBREVIATED AS *LWA*.          FA=DEFS    45
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    20
        I/O SYSTEM SYMBOLS
  
                                         #RM      IFEQ   CP#RM,0                                                 FA=DEFS    48
  
  
  
  
                                        ****      FET STRUCTURE AND WORD OFFSETS.                                FA=DEFS    50
                                        *                                                                        FA=DEFS    51
                                        *                                                                        FA=DEFS    52
                                        *              OFFSET        CONTENTS                                    FA=DEFS    53
                                        *              ------        --------                                    FA=DEFS    54
                                                                                                                 FA=DEFS    55
                                   0     I.FET    =      0           42/EXTERNAL LFN, 18/CIO CODE AND STATUS     FA=DEFS    56
                                   1     I.FIRST  =      1           36/0, 6/FET LEN - 5, 18/FIRST               FA=DEFS    57
                                   1     I.DT     =      1           12/DEVICE TYPE,48/0                         FA=DEFS    58
                                   2     I.IN     =      2           60/IN                                       FA=DEFS    59
                                   3     I.OUT    =      3           60/OUT                                      FA=DEFS    60
                                   4     I.LIMIT  =      4           42/0,18/LIMIT                               FA=DEFS    61
                                   4     I.PRU    =      4           26/0,16/PRU SIZE,18/0                       FA=DEFS    62
                                   5     I.CBSET  =      5           24/0, 18/PASS 1 LEN, 18/PASS 1 FWA          FA=DEFS    63
                                   6     I.RAN1   =      6           RANDOM FILE INFORMATION                     FA=DEFS    64
                                   7     I.RAN2   =      7           RANDOM FILE INFORMATION                     FA=DEFS    65
                                        ****                                                                     FA=DEFS    66
  
  
  
  
                                         #RM      ELSE                                                           FA=DEFS    68
                                                  SPACE  4                                                       FA=DEFS    69
                                        ****      PSEUDO-FET STRUCTURE AND WORD OFFSETS.                         FA=DEFS    70
                                        *                                                                        FA=DEFS    71
                                        *                                                                        FA=DEFS    72
                                        *              OFFSET        CONTENTS                                    FA=DEFS    73
                                        *              ------        --------                                    FA=DEFS    74
                                                                                                                 FA=DEFS    75
                                         I.CBSET  =      -1          CIO BUFFER PASS 1 PARAMS - 42/LEN, 18/FWA   FA=DEFS    76
                                         I.FIT    =      0           1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR  FA=DEFS    77
                                         I.FIRST  =      1           60/FIRST                                    FA=DEFS    78
                                         I.IN     =      2           60/IN                                       FA=DEFS    79
                                         I.OUT    =      3           60/OUT                                      FA=DEFS    80
                                         I.LIMIT  =      4           60/LIMIT                                    FA=DEFS    81
                                         I.HBSET  =      5           HOLDING BUF PASS 1 PARAMS - 42/LEN, 18/FWA  FA=DEFS    82
                                        ****                                                                     FA=DEFS    83
                                                  SPACE  4                                                       FA=DEFS    84
                                         #RM      ENDIF                                                          FA=DEFS    85
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    21
        I/O GENERAL MACROS                                            SETFIL
  
                                        **        SETFIL - SET PARAMS IN FILE MANAGEMENT TABLES.                 FA=DEFS    88
                                        *                                                                        FA=DEFS    89
                                        *                                                                        FA=DEFS    90
                                        *         TO SET INITIAL PARAMETER VALUES IN FILE TABLES,                FA=DEFS    91
                                        *         SETFIL    FILE=FNAM,MODE=INIT,FWA=ADDR                         FA=DEFS    92
                                        *          OR                                                            FA=DEFS    93
                                        *         SETFIL    FILE=FNAM,MODE=INIT,LWA1=ADDR                        FA=DEFS    94
                                        *                                                                        FA=DEFS    95
                                        *         TO RESTORE FILE TABLES TO INITIAL (PASS 1) CONDITIONS,         FA=DEFS    96
                                        *         SETFIL    FILE=FNAM,MODE=RESET                                 FA=DEFS    97
                                        *                                                                        FA=DEFS    98
                                        *         ENTRY  *FNAM* = FILE NAME                                      FA=DEFS    99
                                        *                 MODE  = *INIT* OR *RESET*                              FA=DEFS   100
                                        *                *ADDR* = BUFFER FWA OR LWA+1, TO MATCH EQUIV PARAM      FA=DEFS   101
                                        *                                                                        FA=DEFS   102
                                        *         USES   X - 1, 2                                                FA=DEFS   103
                                        *                B - 2, 3                                                FA=DEFS   104
                                        *                                                                        FA=DEFS   105
                                        *         CALLS  FA=SET                                                  FA=DEFS   106
                                                                                                                 FA=DEFS   107
                                                                                                                 FA=DEFS   108
                                                  PURGMAC   SETFIL                                               FA=DEFS   109
                                                                                                                 FA=DEFS   110
                                         SETFIL   MACROE FILE,MODE,FWA,LWA1                                      FA=DEFS   111
                                                  LOCAL  CHECK                                                   FA=DEFS   112
                                         CHECK    SET    0                                                       FA=DEFS   113
                                                  IFC    NE, LWA1  ,1                                            FA=DEFS   114
                                         CHECK    SET    CHECK+1                                                 FA=DEFS   115
                                                  IFC    NE, FWA  ,1                                             FA=DEFS   116
                                         CHECK    SET    CHECK+2                                                 FA=DEFS   117
                                        *                            SET FILE ADDRESS.                           FA=DEFS   118
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   119
                                                  R=     X2,FILE                                                 FA=DEFS   120
                                                  SKIP   1                                                       FA=DEFS   121
                                                  R=     A2,FILE                                                 FA=DEFS   122
                                         .M       IFC    NE, MODE INIT                                           FA=DEFS   123
                                        *                            VALIDATE MODE PARAMETER.                    FA=DEFS   124
                                                  IFC    NE, MODE RESET ,1                                       FA=DEFS   125
                                                  ERR    (MODE) BAD MODE# "SEQUENCE"                             FA=DEFS   126
                                        *                            RESET MODE.                                 FA=DEFS   127
                                                  IFNE   CHECK,0,1                                               FA=DEFS   128
                                         7        ERR    MODE#RESET, FWA#/LWA1# IGNORED "SEQUENCE"               FA=DEFS   129
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   130
                                                  SA1    X2+I.CBSET                                              FA=DEFS   131
                                                  SKIP   1                                                       FA=DEFS   132
                                                  SA1    A2+I.HBSET                                              FA=DEFS   133
                                                  SB3    B0                                                      FA=DEFS   134
                                                  SB2    X1                                                      FA=DEFS   135
                                         .M       ELSE                                                           FA=DEFS   136
                                        *                            INITIALIZE MODE.                            FA=DEFS   137
                                                  IFGE   CHECK,2,5                                               FA=DEFS   138
                                                  IFGE   CHECK,3,1                                               FA=DEFS   139
                                         7        ERR    BOTH FWA# AND LWA1# SPECIFIED, LWA1# IGNORED "SEQUENCE" FA=DEFS   140
                                        *                            SET FWA.                                    FA=DEFS   141
                                                  R=     B2,FWA                                                  FA=DEFS   142
                                                  SB3    B0                                                      FA=DEFS   143
                                                  SKIP   5                                                       FA=DEFS   144
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    22
        I/O GENERAL MACROS                                            SETFIL
  
                                                  IFLE   CHECK,0,2                                               FA=DEFS   145
                                                  ERR    NO FWA#/LWA1# "SEQUENCE"                                FA=DEFS   146
                                                  SKIP   2                                                       FA=DEFS   147
                                        *                            SET LWA1.                                   FA=DEFS   148
                                                  R=     B3,LWA1                                                 FA=DEFS   149
                                                  SB2    B0                                                      FA=DEFS   150
                                         .M       ENDIF                                                          FA=DEFS   151
                                        *                            CALL PROCESSING SUBROUTINE.                 FA=DEFS   152
                                                  RJ     =XFA=SET                                                FA=DEFS   153
                                         SETFIL   ENDM                                                           FA=DEFS   154
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    23
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   156
                                         BKSP     SPACE  4,8                                                     FA=DEFS   157
                                        **        BKSP - BACKSPACE FILE ONE RECORD.                              FA=DEFS   158
                                        *                                                                        FA=DEFS   159
                                        *                                                                        FA=DEFS   160
                                        *         BKSP      FILE                                                 FA=DEFS   161
                                        *                                                                        FA=DEFS   162
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   163
                                        *                                                                        FA=DEFS   164
                                        *         USES   X2, A2                                                  FA=DEFS   165
                                        *                                                                        FA=DEFS   166
                                        *         CALLS  SKIPBL                                                  FA=DEFS   167
                                                                                                                 FA=DEFS   168
                                                                                                                 FA=DEFS   169
                                                  PURGMAC   BKSP                                                 FA=DEFS   170
                                                                                                                 FA=DEFS   171
                                         BKSP     MACRO  F                                                       FA=DEFS   172
                                                  R=     A2,F                                                    FA=DEFS   173
                                                  SKIPBL X2,1                                                    FA=DEFS   174
                                         BKSP     ENDM                                                           FA=DEFS   175
                                         CLOSE    SPACE  4,8                                                     FA=DEFS   176
                                        **        CLOSE - CLOSE FILE.                                            FA=DEFS   177
                                        *                                                                        FA=DEFS   178
                                        *         CLOSES *FILE*, USING POSITIONING PARAMETER (CF) CURRENTLY      FA=DEFS   179
                                        *         IN THE FIT.                                                    FA=DEFS   180
                                        *                                                                        FA=DEFS   181
                                        *                                                                        FA=DEFS   182
                                        *         CLOSE     FILE                                                 FA=DEFS   183
                                        *                                                                        FA=DEFS   184
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   185
                                        *                                                                        FA=DEFS   186
                                        *         USES   X2, A2                                                  FA=DEFS   187
                                        *                                                                        FA=DEFS   188
                                        *         CALLS  FA=CLO                                                  FA=DEFS   189
                                                                                                                 FA=DEFS   190
                                                                                                                 FA=DEFS   191
                                                  PURGMAC   CLOSE                                                FA=DEFS   192
                                                                                                                 FA=DEFS   193
                                         CLOSE    MACRO  F                                                       FA=DEFS   194
                                                  R=     A2,F                                                    FA=DEFS   195
                                                  RJ     =XFA=CLO                                                FA=DEFS   196
                                         CLOSE    ENDM                                                           FA=DEFS   197
                                         OPEN     SPACE  4,8                                                     FA=DEFS   198
                                        **        OPEN - OPEN FILE.                                              FA=DEFS   199
                                        *                                                                        FA=DEFS   200
                                        *         OPENS *FILE*, USING PROCESSING DIRECTION (PD) AND POSITIONING  FA=DEFS   201
                                        *         (OF) PARAMETERS CURRENTLY IN THE FIT.                          FA=DEFS   202
                                        *                                                                        FA=DEFS   203
                                        *                                                                        FA=DEFS   204
                                        *         OPEN      FILE                                                 FA=DEFS   205
                                        *                                                                        FA=DEFS   206
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   207
                                        *                                                                        FA=DEFS   208
                                        *         USES   X2, A2                                                  FA=DEFS   209
                                        *                                                                        FA=DEFS   210
                                        *         CALLS  FA=OPE                                                  FA=DEFS   211
                                                                                                                 FA=DEFS   212
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    24
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                                                                                                 FA=DEFS   213
                                                  PURGMAC   OPEN                                                 FA=DEFS   214
                                                                                                                 FA=DEFS   215
                                         OPEN     MACRO  F                                                       FA=DEFS   216
                                                  R=     A2,F                                                    FA=DEFS   217
                                                  RJ     =XFA=OPE                                                FA=DEFS   218
                                         OPEN     ENDM                                                           FA=DEFS   219
                                         READ     SPACE  3                                                       FA=DEFS   220
                                        *         EMPTY MACRO DEFINITIONS FOR READ AND RECALL FUNCTIONS          FA=DEFS   221
                                        *         SO THE CONDITIONAL CODE STAYS IN THE TEXTS.                    FA=DEFS   222
                                                                                                                 FA=DEFS   223
                                                  PURGMAC  READ,RECALL                                           FA=DEFS   224
                                                                                                                 FA=DEFS   225
                                         READ     MACRO  F                                                       FA=DEFS   226
                                                  ENDM                                                           FA=DEFS   227
                                                                                                                 FA=DEFS   228
                                         RECALL   OPSYN  READ                                                    FA=DEFS   229
                                         REWIND   SPACE  3,8                                                     FA=DEFS   230
                                        **        REWIND- REWIND A FILE/BUFFER.                                  FA=DEFS   231
                                        *                                                                        FA=DEFS   232
                                        *         THIS EXTENSION OF A NORMAL *REWIND* PREVENTS UNNECESSARY I/O   FA=DEFS   233
                                        *         TRANSFERS OF SMALL INTERNAL SCRATCH FILES BETWEEN CENTRAL      FA=DEFS   234
                                        *         MEMORY AND MASS STORAGE.                                       FA=DEFS   235
                                        *                                                                        FA=DEFS   236
                                        *                                                                        FA=DEFS   237
                                        *         REWIND    FILE,RECALL                                          FA=DEFS   238
                                        *                                                                        FA=DEFS   239
                                        *         ENTRY  *FILE*    = FILE NAME                                   FA=DEFS   240
                                        *                *RECALL*  = IGNORED; INCLUDED FOR CIO COMPATIBILITY     FA=DEFS   241
                                        *                                                                        FA=DEFS   242
                                        *         USES   X2, A2                                                  FA=DEFS   243
                                        *                                                                        FA=DEFS   244
                                        *         CALLS  FA=RWX                                                  FA=DEFS   245
                                                                                                                 FA=DEFS   246
                                                                                                                 FA=DEFS   247
                                                  PURGMAC   REWIND                                               FA=DEFS   248
                                                                                                                 FA=DEFS   249
                                         REWIND   MACRO  F                                                       FA=DEFS   250
                                                  R=     A2,F                                                    FA=DEFS   251
                                                  RJ     =XFA=RWX                                                FA=DEFS   252
                                         REWIND   ENDM                                                           FA=DEFS   253
                                         WRITEF   SPACE  4,8                                                     FA=DEFS   254
                                        **        WRITEF - WRITE END-OF-FILE/PARTITION ON FILE.                  FA=DEFS   255
                                        *                                                                        FA=DEFS   256
                                        *         WRITES END-OF-FILE/PARTITION ON *FILE*.  THE HOLDING BUFFER,   FA=DEFS   257
                                        *         IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-F.            FA=DEFS   258
                                        *                                                                        FA=DEFS   259
                                        *                                                                        FA=DEFS   260
                                        *         WRITEF    FILE                                                 FA=DEFS   261
                                        *                                                                        FA=DEFS   262
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   263
                                        *                                                                        FA=DEFS   264
                                        *         USES   X2, A2                                                  FA=DEFS   265
                                        *                                                                        FA=DEFS   266
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   267
                                                                                                                 FA=DEFS   268
                                                                                                                 FA=DEFS   269
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    25
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                                  PURGMAC   WRITEF                                               FA=DEFS   270
                                                                                                                 FA=DEFS   271
                                         WRITEF   MACRO  F                                                       FA=DEFS   272
                                                  R=     A2,F                                                    FA=DEFS   273
                                                  RJ     =XFA=EOF                                                FA=DEFS   274
                                         WRITEF   ENDM                                                           FA=DEFS   275
                                         WRITER   SPACE  4,8                                                     FA=DEFS   276
                                        **        WRITER - WRITE END-OF-RECORD/SECTION ON FILE.                  FA=DEFS   277
                                        *                                                                        FA=DEFS   278
                                        *         WRITES LEVEL 0 END-OF-RECORD/SECTION ON *FILE*.  THE HOLDING   FA=DEFS   279
                                        *         BUFFER, IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-R.    FA=DEFS   280
                                        *                                                                        FA=DEFS   281
                                        *                                                                        FA=DEFS   282
                                        *         WRITER    FILE                                                 FA=DEFS   283
                                        *                                                                        FA=DEFS   284
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   285
                                        *                                                                        FA=DEFS   286
                                        *         USES   X2, A2                                                  FA=DEFS   287
                                        *                                                                        FA=DEFS   288
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   289
                                                                                                                 FA=DEFS   290
                                                                                                                 FA=DEFS   291
                                                  PURGMAC   WRITER                                               FA=DEFS   292
                                                                                                                 FA=DEFS   293
                                         WRITER   MACRO  F                                                       FA=DEFS   294
                                                  R=     A2,F                                                    FA=DEFS   295
                                                  RJ     =XFA=EOR                                                FA=DEFS   296
                                         WRITER   ENDM                                                           FA=DEFS   297
                                         #RM      ENDIF                                                          FA=DEFS   298
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    26
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   300
                                         READC    SPACE  4,8                                                     FA=DEFS   301
                                        **        READC - READ ONE CODED LINE IN -C- FORMAT.                     FA=DEFS   302
                                        *                                                                        FA=DEFS   303
                                        *                                                                        FA=DEFS   304
                                        *         READC     FILE,TO,WORDS                                        FA=DEFS   305
                                        *                                                                        FA=DEFS   306
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   307
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   308
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   309
                                        *                                                                        FA=DEFS   310
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   311
                                        *                                                                        FA=DEFS   312
                                        *         CALLS  FA=RDC                                                  FA=DEFS   313
                                                                                                                 FA=DEFS   314
                                                                                                                 FA=DEFS   315
                                                  PURGMAC   READC                                                FA=DEFS   316
                                                                                                                 FA=DEFS   317
                                         READC    MACRO  F,S,N                                                   FA=DEFS   318
                                                  R=     B6,S                                                    FA=DEFS   319
                                                  R=     B7,N                                                    FA=DEFS   320
                                                  R=     A2,F                                                    FA=DEFS   321
                                                  RJ     =XFA=RDC                                                FA=DEFS   322
                                         READC    ENDM                                                           FA=DEFS   323
                                         READW    SPACE  4,8                                                     FA=DEFS   324
                                        **        READW - READ WORDS TO WORKING STORAGE AREA.                    FA=DEFS   325
                                        *                                                                        FA=DEFS   326
                                        *                                                                        FA=DEFS   327
                                        *         READW     FILE,TO,WORDS                                        FA=DEFS   328
                                        *                                                                        FA=DEFS   329
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   330
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   331
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   332
                                        *                                                                        FA=DEFS   333
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   334
                                        *                                                                        FA=DEFS   335
                                        *         CALLS  FA=RDW                                                  FA=DEFS   336
                                                                                                                 FA=DEFS   337
                                                                                                                 FA=DEFS   338
                                                  PURGMAC   READW                                                FA=DEFS   339
                                                                                                                 FA=DEFS   340
                                         READW    MACRO  F,S,N                                                   FA=DEFS   341
                                                  R=     B6,S                                                    FA=DEFS   342
                                                  R=     B7,N                                                    FA=DEFS   343
                                                  R=     A2,F                                                    FA=DEFS   344
                                                  RJ     =XFA=RDW                                                FA=DEFS   345
                                         READW    ENDM                                                           FA=DEFS   346
                                         WRITEC   SPACE  4,8                                                     FA=DEFS   347
                                        **        WRITEC - WRITE ONE CODED LINE IN -C- FORMAT.                   FA=DEFS   348
                                        *                                                                        FA=DEFS   349
                                        *                                                                        FA=DEFS   350
                                        *         WRITEC    FILE,FROM,WORDS                                      FA=DEFS   351
                                        *                                                                        FA=DEFS   352
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   353
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   354
                                        *                *WORDS* = LINE LENGTH (WORDS).  IF ZERO OR OMITTED,     FA=DEFS   355
                                        *                            LENGTH WILL BE DETERMINED BY SCANNING TO    FA=DEFS   356
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    27
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                        *                            AN END-OF-LINE MARKER -- SLOWLY.            FA=DEFS   357
                                        *                                                                        FA=DEFS   358
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   359
                                        *                                                                        FA=DEFS   360
                                        *         CALLS  FA=WTC                                                  FA=DEFS   361
                                                                                                                 FA=DEFS   362
                                                                                                                 FA=DEFS   363
                                                  PURGMAC   WRITEC                                               FA=DEFS   364
                                                                                                                 FA=DEFS   365
                                         WRITEC   MACRO  F,S,N                                                   FA=DEFS   366
                                                  R=     B6,S                                                    FA=DEFS   367
                                                  IFC    NE, N  ,2                                               FA=DEFS   368
                                        *                            SET GIVEN LENGTH.                           FA=DEFS   369
                                                  R=     B7,N                                                    FA=DEFS   370
                                                  SKIP   1                                                       FA=DEFS   371
                                        *                            SET LENGTH OMITTED.                         FA=DEFS   372
                                                  SB7    B0                                                      FA=DEFS   373
                                                  R=     A2,F                                                    FA=DEFS   374
                                                  RJ     =XFA=WTC                                                FA=DEFS   375
                                         WRITEC   ENDM                                                           FA=DEFS   376
                                         WRITEH   SPACE  4,10                                                    CCGA018    41
                                        **        WRITEH - WRITE ONE CODED LINE IN -H- FORMAT.                   CCGA018    42
                                        *                                                                        CCGA018    43
                                        *         WRITEH FILE,FROM,WORDS                                         CCGA018    44
                                        *                                                                        CCGA018    45
                                        *         ENTRY  *FILE* = FILE NAME                                      CCGA018    46
                                        *                *FROM* = WSA ADDRESS                                    CCGA018    47
                                        *                *WORDS* = LINE LENGTH (WORDS) MUST BE SPECIFIED.        CCGA018    48
                                        *                                                                        CCGA018    49
                                        *         THIS IS A *TEMPORARY* REDEFINITION OF THE SYSTEM WRITEH MACRO  CCGA018    50
                                        *                                                                        CCGA018    51
                                        *         USES   X2,A2,B3,B6,B7                                          CCGA018    52
                                        *                                                                        CCGA018    53
                                        *         CALLS  FA=WTH                                                  CCGA018    54
                                                                                                                 CCGA018    55
                                                                                                                 CCGA018    56
                                                  PURGMAC WRITEH                                                 CCGA018    57
                                                                                                                 CCGA018    58
                                         WRITEH   MACRO  F,S,N                                                   CCGA018    59
                                                  SB3    X2          PRESERVE X2                                 CCGA018    60
                                                  R=     B6,S                                                    CCGA018    61
                                                  IFC    NE, N  ,2                                               CCGA018    62
                                        *                            SET GIVEN LENGTH                            CCGA018    63
                                                  R=     B7,N                                                    CCGA018    64
                                                  SKIP   1                                                       CCGA018    65
                                        *                            LENGTH OMITTED - ERROR                      CCGA018    66
                                         A        ERR                                                            CCGA018    67
                                                  R=     A2,F                                                    CCGA018    68
                                                  RJ     =XFA=WTH                                                CCGA018    69
                                                  SX2    B3          RESTORE X2                                  CCGA018    70
                                         WRITEH   ENDM                                                           CCGA018    71
                                         WRITEW   SPACE  4,8                                                     FA=DEFS   377
                                        **        WRITEW - WRITE WORDS FROM WORKING STORAGE AREA.                FA=DEFS   378
                                        *                                                                        FA=DEFS   379
                                        *                                                                        FA=DEFS   380
                                        *         WRITEW    FILE,FROM,WORDS                                      FA=DEFS   381
                                        *                                                                        FA=DEFS   382
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    28
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   383
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   384
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   385
                                        *                                                                        FA=DEFS   386
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   387
                                        *                                                                        FA=DEFS   388
                                        *         CALLS  FA=WTW                                                  FA=DEFS   389
                                                                                                                 FA=DEFS   390
                                                                                                                 FA=DEFS   391
                                                  PURGMAC   WRITEW                                               FA=DEFS   392
                                                                                                                 FA=DEFS   393
                                         WRITEW   MACRO  F,S,N                                                   FA=DEFS   394
                                                  R=     B6,S                                                    FA=DEFS   395
                                                  R=     B7,N                                                    FA=DEFS   396
                                                  R=     A2,F                                                    FA=DEFS   397
                                                  RJ     =XFA=WTW                                                FA=DEFS   398
                                         WRITEW   ENDM                                                           FA=DEFS   399
                                                  SPACE  4                                                       FA=DEFS   400
                                         #RM      ENDIF                                                          FA=DEFS   401
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    29
        CCOMGCM - GENERAL COMPILER MACROS 
  
             0                                    CTEXT  CCOMGCM - GENERAL COMPILER MACROS                       CCOMGCM     2
  
  
  
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     CCOMGCM     4
                                        *                                                                        CCOMGCM     5
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    CCOMGCM     6
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       CCOMGCM     7
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        CCOMGCM     8
                                        *                                                                        CCOMGCM     9
                                        *         LXI       JK                                                   CCOMGCM    10
                                        *                                                                        CCOMGCM    11
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              CCOMGCM    12
                                        *                *JK* = SHIFT COUNT EXPRESSION                           CCOMGCM    13
                                        *                                                                        CCOMGCM    14
                                        *         USES   XI                                                      CCOMGCM    15
                                                                                                                 CCOMGCM    16
                                                  PURGDEF  ^XQ                                                   CCG26       7
                                                  PURGDEF  LXQ                                                   CCG26       8
                                         ^XQ      CPOP   0,200B,100B                                             CCG26       9
                                                                                                                 CCOMGCM    19
                                         LXQ      OPDEF     I,JK                                                 CCOMGCM    20
                                          IFNE JK,0,2                                                            CCOMGCM    21
                                          IFNE JK_&60D,0,1                                                       CCOMGCM    22
                                          ^X.I JK                                                                CCOMGCM    23
                                          ENDM                                                                   CCOMGCM    24
  
  
  
  
                                        **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.           CCOMGCM    26
                                        *                                                                        CCOMGCM    27
                                        *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES       CCOMGCM    28
                                        *         IT AS AN ENTRY POINT, FOR FORMING THE NAME/ADDRESS TABLES      CCOMGCM    29
                                        *         USED BY THE UTILITY ROUTINE *RPV* (LOCATED IN THE CRADLE).     CCG26      10
                                        *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE         CCOMGCM    31
                                        *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR     CCOMGCM    32
                                        *         PSEUDO-OP THAT WOULD CAUSE *COMPASS-S* LOCATION COUNTER TO BE  CCOMGCM    33
                                        *         ADVANCED.                                                      CCOMGCM    34
                                        *                                                                        CCOMGCM    35
                                        * RNAM    RPVDEF ENAM                                                    CCG26      11
                                        *                                                                        CCG26      12
                                        *         ENTRY  RNAM = ROUTINE NAME                                     CCG26      13
                                        *                ENAM = ENTRY POINT WILL BE B=*ENAM*.  IF ENAM IS        CCG26      14
                                        *                        ABSENT, THE FIRST 5 CHARACTERS OF *RNAM* ARE    CCG26      15
                                        *                        APPENDED TO *B=* ( IF NOT PRESENT ALREADY ).    CCG26      16
                                                                                                                 CCG26      17
                                                  PURGMAC RPVDEF                                                 CCG26      18
                                                                                                                 CCG26      19
                                                  MACRO  RPVDEF,R,E                                              CCG26      20
                                         '?RPV=A  MICRO  1,7, R                                                  CCG26      21
                                                  IFC    NE,/E//,1                                               CCG26      22
                                         '?RPV=A  MICRO  1,7, E                                                  CCG26      23
                                         '?RPV=B  MICRO  1,2, "'?RPV=A"                                          CCG26      24
                                                  IFC    NE,/"'?RPV=B"/B=/,1                                     CCG26      25
                                         '?RPV=A  MICRO  1,7, B="'?RPV=A"                                        CCG26      26
                                                  NOREF  "'?RPV=A"                                               CCG26      27
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    30
        CCOMGCM - GENERAL COMPILER MACROS                             RPVDEF
  
                                                  ENTRY  "'?RPV=A"                                               CCG26      28
                                         "'?RPV=A"  BSS  0                                                       CCG26      29
                                         RPVDEF   ENDM                                                           CCG26      30
  
  
  
                                        **        RPVFWA - DEFINE ENTRY POINT FOR *RPV* NAME/ADDRESS TABLE.      CCG26      32
                                        *                                                                        CCG26      33
                                        *         RPVFWA NAM,FWA                                                 CCG26      34
                                        *                                                                        CCG26      35
                                        *                NAM = ROUTINE NAME                                      CCG26      36
                                        *                FWA = ROUTINE FWA.  IF ABSENT, *B=XXXXX* IS USED WHERE  CCG26      37
                                        *                      XXXXX ARE THE FIRST 5 CHARACTERS OF *NAM*.        CCG26      38
                                                                                                                 CCG26      39
                                                  PURGMAC  RPVFWA                                                CCG26      40
                                                                                                                 CCG26      41
                                         RPVFWA   MACRO  NAM,FWA                                                 CCG26      42
                                                  VFD    42/0L_NAM                                               CCG26      43
                                                  IFC    EQ,/FWA//,4                                             CCG26      44
                                         '?RPV=A  MICRO  1,5,/NAM      /                                         CCG26      45
                                                  VFD    18/=XB="'?RPV=A"                                        CCG26      46
                                                  NOREF  B="'?RPV=A"                                             CCG26      47
                                                  SKIP   1                                                       CCG26      48
                                                  VFD    18/FWA                                                  CCG26      49
                                         RPVFWA   ENDM                                                           CCG26      50
  
  
  
  
                                        **        LISTL - LIST ONE LINE.                                         CCOMGCM    65
                                        *                                                                        CCOMGCM    66
                                        *         WRITE ONE CODED LINE FROM *BUF* TO THE OUTPUT FILE.  IF PAGE   CCOMGCM    67
                                        *         IS FULL, EJECT AND WRITE TITLE LINE(S) FIRST.                  CCOMGCM    68
                                        *                                                                        CCOMGCM    69
                                        *                                                                        CCOMGCM    70
                                        *         LISTL  BUF,WORDS,NBL                                           CCOMGCM    71
                                        *                                                                        CCOMGCM    72
                                        *         ENTRY  *BUF*   = FIRST WORD ADDRESS OF LINE BUFFER             CCOMGCM    73
                                        *                *WORDS* = LINE LENGTH (WORDS)                           CCOMGCM    74
                                        *                *NBL* = NUMBER OF BLANK LINES TO BE PRINTED BEFORE      CCOMGCM    75
                                        *                        DATA IN LINE BUFFER.  IF NBL > LINES REMAINING  CCOMGCM    76
                                        *                        THEN A PAGE EJECT IS DONE.                      CCOMGCM    77
                                        *                                                                        CCOMGCM    78
                                        *         USES   X6, B6, B7                                              CCOMGCM    79
                                        *                                                                        CCOMGCM    80
                                        *         CALLS  FA=LOL ( CCOMLOL )                                      CCOMGCM    81
                                                                                                                 CCOMGCM    82
                                                                                                                 CCOMGCM    83
                                                  PURGMAC   LISTL                                                CCOMGCM    84
                                                                                                                 CCOMGCM    85
                                         LISTL    MACRO  S,N,NBL                                                 CCOMGCM    86
                                                  R=     B6,S                                                    CCOMGCM    87
                                        *                                                                        CCOMGCM    88
                                                  IFC    EQ, N  ,1                                               CCOMGCM    89
                                                  ERR    NO LENGTH "SEQUENCE"                                    CCOMGCM    90
                                        *                                                                        CCOMGCM    91
                                                  R=     B7,N                                                    CCOMGCM    93
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    31
        CCOMGCM - GENERAL COMPILER MACROS                             LISTL 
  
                                        *                                                                        CCOMGCM    94
                                                  SX6    NBL 0                                                   CCOMGCM    95
                                        *                                                                        CCOMGCM    96
                                                  RJ     =XFA=LOL                                                CCOMGCM    97
                                         LISTL    ENDM                                                           CCOMGCM    98
  
  
  
  
                                        **        NUPAGE - EJECT AND TITLE NEW PAGE.                             CCOMGCM   100
                                        *                                                                        CCOMGCM   101
                                        *         EJECTS PAGE.  WRITES TITLE AND SUBTITLE LINES ON NEW PAGE.     CCOMGCM   102
                                        *         RESETS LINES-PER-PAGE COUNTER.                                 CCOMGCM   103
                                        *                                                                        CCOMGCM   104
                                        *                                                                        CCOMGCM   105
                                        *         NUPAGE    (NO CALLING PARAMETERS)                              CCOMGCM   106
                                        *                                                                        CCOMGCM   107
                                        *         ENTRY  NO REQUIREMENTS.                                        CCOMGCM   108
                                        *                                                                        CCOMGCM   109
                                        *         EXIT   PAGE EJECTED, NEW PAGE TITLED.                          CCOMGCM   110
                                        *                *N.LINES* RESET TO FULL PAGE LINE COUNT.                CCOMGCM   111
                                        *                                                                        CCOMGCM   112
                                        *         USES   NONE                                                    CCOMGCM   113
                                        *                                                                        CCOMGCM   114
                                        *         CALLS  FA=NPG ( CCOMLOL )                                      CCOMGCM   115
                                                                                                                 CCOMGCM   116
                                                                                                                 CCOMGCM   117
                                                  PURGMAC   NUPAGE                                               CCOMGCM   118
                                                                                                                 CCOMGCM   119
                                         NUPAGE   MACRO                                                          CCOMGCM   120
                                                  RJ     =XFA=NPG                                                CCOMGCM   121
                                         NUPAGE   ENDM                                                           CCOMGCM   122
                                                                                                                 CCOMGCM   123
                                                                                                                 CCOMGCM   124
                                                  ENDX                                                           CCOMGCM   125
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    32
        GENERAL MACROS                                                COUNTS
  
                                        **        COUNTS - COUNT NUMBER OF NAMES IN A MICRO STRING               CCGTEXT    30
                                        *                                                                        CCGTEXT    31
                                        * LEN     COUNTS MICNAME                                                 CCGTEXT    32
                                        *                WHERE MICNAME IS A LIST OF NAMES SEPERATED BY COMMAS.   CCGTEXT    33
                                                                                                                 CCGTEXT    34
                                                  MACRO  COUNTS,LEN,MICNAM                                       CCGTEXT    35
                                         .1       SET    0                                                       CCGTEXT    36
                                                  IFC    NE,/"MICNAM"//,2                                        CCGTEXT    37
                                                  ECHO   1,Z=("MICNAM")                                          CCGTEXT    38
                                         .1       SET    .1+1                                                    CCGTEXT    39
                                         LEN      EQU    .1                                                      CCGTEXT    40
                                                  ENDM                                                           CCGTEXT    41
  
  
  
  
                                        **        MXX+X  - SELECT GREATER (MAXIMUM FUNCTION) OF TWO INTEGERS.    CCGTEXT    43
                                        *                                                                        CCGTEXT    44
                                        *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES  CCGTEXT    45
                                        *         THE ALGEBRAICALLY GREATER VALUE IN *XI*.                       CCGTEXT    46
                                        *                                                                        CCGTEXT    47
                                        *         MXI    XJ+XK                                                   CCGTEXT    48
                                        *                                                                        CCGTEXT    49
                                        *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*             CCGTEXT    50
                                        *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED   CCGTEXT    51
                                        *                                                                        CCGTEXT    52
                                        *         EXIT   (X.LARGER) = 0                                          CCGTEXT    53
                                        *                (X.SMALLER) = UNCHANGED                                 CCGTEXT    54
                                        *         IF ON ENTRY (XJ)=(XK),                                         CCGTEXT    55
                                        *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                      CCGTEXT    56
                                        *                (XI) = MAX(XJ,XK)                                       CCGTEXT    57
                                        *                                                                        CCGTEXT    58
                                        *         USES   XI, XJ, XK                                              CCGTEXT    59
                                                                                                                 CCGTEXT    60
                                                  PURGDEF   MXX+X                                                CCGTEXT    61
                                                                                                                 CCGTEXT    62
                                         MXX+X    OPDEF  I,J,K                                                   CCGTEXT    63
                                          IX.I X.J-X.K                                                           CCGTEXT    64
                                          AX.I -1                                                                CCGTEXT    65
                                          BX.J -X.I*X.J                                                          CCGTEXT    66
                                          BX.K X.I*X.K                                                           CCGTEXT    67
                                          IX.I X.J+X.K                                                           CCGTEXT    68
                                         MXX+X    ENDM                                                           CCGTEXT    69
  
  
  
                                        **        MXX-X - SELECT MINIMUM OF TWO INTEGERS                         CCGTEXT    71
                                        *                                                                        CCGTEXT    72
                                        *         MXI    XJ-XK                                                   CCGTEXT    73
                                        *         ENTRY AND EXIT CONDITIONS SAME AS FOR MAX, EXCEPT THAT         CCGTEXT    74
                                        *         XI = MIN(XJ,XK)                                                CCGTEXT    75
                                                                                                                 CCGTEXT    76
                                                  PURGDEF   MXX-X                                                CCGTEXT    77
                                                                                                                 CCGTEXT    78
                                         MXX-X    OPDEF  I,J,K                                                   CCGTEXT    79
                                          IX.I X.J-X.K                                                           CCGTEXT    80
                                          AX.I  -1                                                               CCGTEXT    81
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    33
        GENERAL MACROS                                                MXX-X 
  
                                          BX.J X.I*X.J                                                           CCGTEXT    82
                                          BX.K -X.I*X.K                                                          CCGTEXT    83
                                          IX.I X.J+X.K                                                           CCGTEXT    84
                                         MXX-X    ENDM                                                           CCGTEXT    85
  
  
  
  
                                        **        BIT - SET SYMBOL TO 2**N.                                      CCGTEXT    87
                                        *                                                                        CCGTEXT    88
                                        *  SYM    BIT       PWR                                                  CCGTEXT    89
                                        *                                                                        CCGTEXT    90
                                        *         ENTRY  [SYM] = SYMBOL TO BE SET                                CCGTEXT    91
                                        *                [PWR] = DESIRED POWER OF 2                              CCGTEXT    92
                                        *                                                                        CCGTEXT    93
                                        *         EXIT   [SYM] = 2**[PWR]                                        CCGTEXT    94
                                                                                                                 CCGTEXT    95
                                                  PURGMAC   BIT                                                  CCGTEXT    96
                                                                                                                 CCGTEXT    97
                                                  MACRO  BIT,SYM,PWR                                             CCGTEXT    98
                                         P        DECMIC PWR                                                     CCGTEXT    99
                                         SYM      SET    1S"P"                                                   CCGTEXT   100
                                         BIT      ENDM                                                           CCGTEXT   101
  
  
  
  
                                        **        CALL - CALL A ROUTINE.                                         CCGTEXT   103
                                        *                                                                        CCGTEXT   104
                                        *         GENERATES--    RJ  =X*ROUTINE*.                                CCGTEXT   105
                                        *                                                                        CCGTEXT   106
                                        *                                                                        CCGTEXT   107
                                        *         CALL      ROUTINE                                              CCGTEXT   108
                                        *                                                                        CCGTEXT   109
                                        *         ENTRY  *ROUTINE* = NAME OF CALLED ROUTINE                      CCGTEXT   110
                                        *                                                                        CCGTEXT   111
                                        *         USES   NONE                                                    CCGTEXT   112
                                                                                                                 CCGTEXT   113
                                                                                                                 CCGTEXT   114
                                                  PURGMAC   CALL                                                 CCGTEXT   115
                                                                                                                 CCGTEXT   116
                                         CALL     MACRO  R                                                       CCGTEXT   117
                                          RJ =X_R                                                                CCGTEXT   118
                                          ENDM                                                                   CCGTEXT   119
  
  
  
  
                                        **        ENTRY. - DEFINE ENTRY POINT AND ITS CONTENTS.                  CCGTEXT   121
                                        *                                                                        CCGTEXT   122
                                        *         REGISTER SNAPS MAY BE OBTAINED AT ENTRY POINTS DEFINED WITH    CCGTEXT   123
                                        *         THIS MACRO BY USING THE -REGSNAP- DEBUGGING MACRO.             CCGTEXT   124
                                        *                                                                        CCGTEXT   125
                                        *                                                                        CCGTEXT   126
                                        * NAME    ENTRY. VALUE,C                                                 CCGTEXT   127
                                        *                                                                        CCGTEXT   128
                                        *                *NAME*  = ENTRY POINT NAME                              CCGTEXT   129
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    34
        GENERAL MACROS                                                ENTRY.
  
                                        *                                                                        CCGTEXT   130
                                        *                *VALUE* = * OR ** OR ANY OTHER LEGAL COMPASS EXPRESSION CCGTEXT   131
                                        *                                                                        CCGTEXT   132
                                        *                *C* - ENTRY NAME SUFFIX CHARACTER                       CCGTEXT   133
                                        *                                                                        CCGTEXT   134
                                        *                          *     (FOR LOCAL SUBROUTINES)    EXPANDS TO-- CCGTEXT   135
                                        *                                 NAME  EQ     *+1S17                    CCGTEXT   136
                                        *                                                                        CCGTEXT   137
                                        *                          **    (FOR GLOBAL SUBROUTINES)   EXPANDS TO-- CCGTEXT   138
                                        *                                       ENTRY  NAME                      CCGTEXT   139
                                        *                                 NAME  EQ     *+1S17                    CCGTEXT   140
                                        *                                                                        CCGTEXT   141
                                        *                          ELSE  (FOR GLOBAL STORAGE LOCN)  EXPANDS TO-- CCGTEXT   142
                                        *                                       ENTRY  NAME                      CCGTEXT   143
                                        *                                 NAME  CON    VALUE                     CCGTEXT   144
                                        *                                                                        CCGTEXT   145
                                        *         CALLS  NONE                                                    CCGTEXT   146
                                        *                                                                        CCGTEXT   147
                                        *         USES   NONE                                                    CCGTEXT   148
                                                                                                                 CCGTEXT   149
                                                                                                                 CCGTEXT   150
                                                  PURGMAC   ENTRY.                                               CCGTEXT   151
                                                                                                                 CCGTEXT   152
                                                  MACRO  ENTRY.,NAME,VALUE,C                                     CCGTEXT   153
                                          IFC NE,^VALUE^*^,3                                                     CCGTEXT   154
                                          ENTRY NAME_C                                                           CCGTEXT   155
                                         NAME_C BSS 0                                                            CCGTEXT   156
                                          IFC EQ,^VALUE^**^,2                                                    CCGTEXT   157
                                        NAME EQ *+1S17                                                           CCGTEXT   158
                                          SKIP 1                                                                 CCGTEXT   159
                                        NAME CON VALUE                                                           CCGTEXT   160
                                        *                            REGISTER SNAP FACILITY.                     CCGTEXT   161
                                          IF DEF,)NAME,1                                                         CCGTEXT   162
                                         NAME REG                                                                CCGTEXT   163
                                                                                                                 CCGTEXT   164
                                        ENTRY. ENDM                                                              CCGTEXT   165
  
  
  
                                        **        EQENT - EQUATE SYMBOL, DECLARE ENTRY POINT.                    CCGTEXT   167
                                        *                                                                        CCGTEXT   168
                                        *SYM      EQENT  LAB                                                     CCGTEXT   169
                                        *                                                                        CCGTEXT   170
                                        *         ENTRY - "SYM" = SYMBOL TO BE MADE AN ENTRY POINT               CCGTEXT   171
                                        *                "LAB" = VALUE OF ENTRY POINT                            CCGTEXT   172
                                        *                                                                        CCGTEXT   173
                                        *         GENERATES -                                                    CCGTEXT   174
                                        *         ENTRY  SYM                                                     CCGTEXT   175
                                        *SYM      EQU    LAB                                                     CCGTEXT   176
                                        *                                                                        CCGTEXT   177
                                        *         CALLS  NONE                                                    CCGTEXT   178
                                                                                                                 CCGTEXT   179
                                                  PURGMAC EQENT                                                  CCGTEXT   180
                                                                                                                 CCGTEXT   181
                                                  MACRO  EQENT,SYM,LAB                                           CCGTEXT   182
                                                  ENTRY  SYM                                                     CCGTEXT   183
                                         SYM      EQU    LAB                                                     CCGTEXT   184
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    35
        GENERAL MACROS
  
                                         EQENT    ENDM                                                           CCGTEXT   185
  
  
  
  
                                        **        MOVE - MOVE DATA BLOCK.                                        CCGTEXT   187
                                        *                                                                        CCGTEXT   188
                                        *                                                                        CCGTEXT   189
                                        *         MOVE      COUNT,FROM,TO                                        CCGTEXT   190
                                        *                                                                        CCGTEXT   191
                                        *         ENTRY  *COUNT* = WORD COUNT OF BLOCK TO BE MOVED               CCGTEXT   192
                                        *                *FROM*  = ADDRESS OF FIRST WORD OF BLOCK                CCGTEXT   193
                                        *                *TO*    = ADDRESS OF FIRST WORD OF DESTINATION          CCGTEXT   194
                                        *                                                                        CCGTEXT   195
                                        *         USES   X - 1, 2, 3                                             CCGTEXT   196
                                        *                A - NONE                                                CCGTEXT   197
                                        *                B - 1                                                   CCGTEXT   198
                                        *                                                                        CCGTEXT   199
                                        *         CALLS  MVE= (COMCMVE)                                          CCGTEXT   200
                                                                                                                 CCGA018   114
                                                  PURGMAC  MOVE                                                  CCGA018   115
                                                                                                                 CCGTEXT   201
                                                                                                                 CCGTEXT   202
                                         MOVE     MACRO  C,F,T                                                   CCGTEXT   203
                                                  R=     X1,C                                                    CCGTEXT   204
                                                  R=     X2,F                                                    CCGTEXT   205
                                                  R=     X3,T                                                    CCGTEXT   206
                                                  IF     -DEF,B1=1,1                                             CCGTEXT   207
                                                  SB1    1                                                       CCGTEXT   208
                                                  RJ     =XMVE=                                                  CCGTEXT   209
                                         MOVE     ENDM                                                           CCGTEXT   210
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    36
        GENERAL MACROS                                                PLUG
  
                                        **        PLUG - MODIFY COMPILER CODE DURING EXECUTION.                  CCGTEXT   212
                                        *                                                                        CCGTEXT   213
                                        *         SELF-MODIFYING (PLUGGING) CODE MAY SEEMINGLY FAIL ON CYBER     CCGTEXT   214
                                        *         74 / 6600 AND LARGER MODELS, DUE TO THE HARDWARE INSTRUCTION   CCGTEXT   215
                                        *         STACK AND 1- OR 2-WORD INSTRUCTION LOOKAHEAD.  BECAUSE OF THIS CCGTEXT   216
                                        *         PROBLEM, AND THE UNREADABILITY OF PLUGGED CODE, THE TECHNIQUE  CCGTEXT   217
                                        *         IS NOT DESIRABLE FOR WIDE USAGE.  EFFICIENCY CONSIDERATIONS    CCGTEXT   218
                                        *         ARE OCCASIONALLY MORE IMPORTANT, HOWEVER, SO WE FORMALIZE      CCGTEXT   219
                                        *         PLUGGING WITH THE FOLLOWING MACRO.  IT INCLUDES A SAFEGUARD    CCGTEXT   220
                                        *         AGAINST THE STACK/LOOKAHEAD PROBLEM, AND IS PREFERABLE TO      CCGTEXT   221
                                        *         DIRECT CODE FOR READABILITY AND DEBUGGING EASE.                CCGTEXT   222
                                        *                                                                        CCGTEXT   223
                                        *         TWO FORMS OF *PLUG* ARE AVAILABLE ...                          CCGTEXT   224
                                        *                                                                        CCGTEXT   225
                                        *                                                                        CCGTEXT   226
                                        *         FORM 1 - PLUGS A CALLER-PROVIDED WORD OF CODE.                 CCGTEXT   227
                                        *                                                                        CCGTEXT   228
                                        *         PLUG      AT=,FROM=,FREG=,SREG=,VOID=                          CCGTEXT   229
                                        *                                                                        CCGTEXT   230
                                        *                                                                        CCGTEXT   231
                                        *         FORM 2 - FABRICATES AND PLUGS AN -EQ- JUMP.                    CCGTEXT   232
                                        *         RESTRICTION - THE 1-REGISTER METHOD USED FOR FORMING THE -EQ-  CCGTEXT   233
                                        *         JUMP IS NOT VALID IF *TO* IS .GT. 177777B ABSOLUTE.  THIS IS   CCGTEXT   234
                                        *         NOT A PROBLEM IN PL/I, SINCE ALL ADDRESSES ARE .LT. 100000B.   CCGTEXT   235
                                        *                                                                        CCGTEXT   236
                                        *         PLUG      AT=,TO=,SREG=,VOID=                                  CCGTEXT   237
                                        *                                                                        CCGTEXT   238
                                        *                                                                        CCGTEXT   239
                                        *         ENTRY  *AT*   = ADDRESS WHERE PLUG TO BE STORED.               CCGTEXT   240
                                        *                *FREG* = (FORM 1 ONLY) (OPTIONAL)  NUMBER OF A,X REG    CCGTEXT   241
                                        *                         TO USE FOR FETCHING CODE WORD.  MUST BE 1-5.   CCGTEXT   242
                                        *                         USES A1 AND X1 IF OMITTED.  IGNORED IF *FROM*  CCGTEXT   243
                                        *                         SPECIFIES AN X-REGISTER.                       CCGTEXT   244
                                        *                *FROM* = (FORM 1 ONLY)  SOURCE OF CODE WORD TO PLUG.    CCGTEXT   245
                                        *                         MAY BE AN X-REGISTER CONTAINING THE CODE WORD  CCGTEXT   246
                                        *                         ( E.G., FROM=X3 ), OR AN ADDRESS EXPRESSION.   CCGTEXT   247
                                        *                *SREG* = (OPTIONAL)  NUMBER OF A,X REG TO USE FOR       CCGTEXT   248
                                        *                         STORING PLUG.  MUST BE 6 OR 7.  USES X6 AND A6 CCGTEXT   249
                                        *                         IF OMITTED.                                    CCGTEXT   250
                                        *                *TO*   = (FORM 2 ONLY)  -EQ- JUMP ADDRESS.              CCGTEXT   251
                                        *                *VOID* = (OPTIONAL)                                     CCGTEXT   252
                                        *                         *NO* = DO NOT GENERATE STACK-VOIDING CODE.     CCGTEXT   253
                                        *                         ELSE OR OMITTED = GENERATE VOIDING CODE IF     CCGTEXT   254
                                        *                            "MODEL" IS CYBER 74 / 6600 OR LARGER.       CCGTEXT   255
                                        *                                                                        CCGTEXT   256
                                        *         CALLS  NONE                                                    CCGTEXT   257
                                        *                                                                        CCGTEXT   258
                                        *         USES   AS ABOVE                                                CCGTEXT   259
                                                                                                                 CCGTEXT   260
                                                                                                                 CCGTEXT   261
                                                  PURGMAC   PLUG                                                 CCGTEXT   262
                                                                                                                 CCGTEXT   263
                                         PLUG     MACROE AT,TO,FROM,FREG,SREG,VOID                               CCGTEXT   264
                                                  LOCAL  FN,SN                                                   CCGTEXT   265
                                         SN       SET    SREG  6                                                 CCGTEXT   266
                                                  IFLT   SN,6,1                                                  CCGTEXT   267
                                                  ERR    *PLUG* STORE REG MUST BE 6 OR 7 AT ["SEQUENCE"].        CCGTEXT   268
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    37
        GENERAL MACROS                                                PLUG
  
                                         .F1      IFC    EQ, TO                                                  CCGTEXT   269
                                         .F1A     IF     REG,FROM                                                CCGTEXT   270
                                        *                            FORM 1A - CODE WORD IN AN X-REGISTER.       CCGTEXT   271
                                         SN       OCTMIC SN,1                                                    CCGTEXT   272
                                         SN       MICRO  1,, X"SN"                                               CCGTEXT   273
                                                  IFC    NE, FROM "SN" ,1                                        CCGTEXT   274
                                                  BX.SN  FROM                                                    CCGTEXT   275
                                         .F1A     ELSE                                                           CCGTEXT   276
                                        *                            FORM 1B - FETCH CODE WORD FROM *FROM*.      CCGTEXT   277
                                         FN       SET    FREG  1                                                 CCGTEXT   278
                                                  IFGE   FN,1,2                                                  CCGTEXT   279
                                                  IFLE   FN,5,1                                                  CCGTEXT   280
                                                  SKIP   1                                                       CCGTEXT   281
                                                  ERR    FETCH REG NOT 1-5 "SEQUENCE"                            CCGTEXT   282
                                                  SA.FN  FROM                                                    CCGTEXT   283
                                                  BX.SN  X.FN                                                    CCGTEXT   284
                                         .F1A     ENDIF                                                          CCGTEXT   285
                                         .F1      ELSE                                                           CCGTEXT   286
                                        *                            FORM 2 - FABRICATE -EQ- JUMP TO *TO*.       CCGTEXT   287
                                                  SX.SN  TO                                                      CCGTEXT   288
                                                  LX.SN  2+30D                                                   CCGTEXT   289
                                        *                            2000BS48+*JPADR*S32                         CCGTEXT   290
                                                  PX.SN  X.SN,B0                                                 CCGTEXT   291
                                        *                            0400BS48+*JPADR*S30                         CCGTEXT   292
                                                  LX.SN  -2                                                      CCGTEXT   293
                                         .F1      ENDIF                                                          CCGTEXT   294
                                        *                            STORE THE PLUG.                             CCGTEXT   295
                                                  SA.SN  AT                                                      CCGTEXT   296
                                        *                            GENERATE STACK-VOIDING CODE.                CCGTEXT   297
                                                  IFC    NE, VOID NO ,4                                          CCGTEXT   298
                                                  IFGE   CT.CPU,74,3  COMPILE TIME CPU                           CCGTEXT   299
                                                  RJ     *+1                                                     CCGTEXT   300
                                                  EQ     *+1S17                                                  CCGTEXT   301
                                                  BSS    0                                                       CCGTEXT   302
                                         PLUG     ENDM                                                           CCGTEXT   303
  
  
  
  
                                        **        ROUTINE - DEFINE LOCAL SUBROUTINE ENTRY POINT.                 CCGTEXT   305
                                        *                                                                        CCGTEXT   306
                                        *                                                                        CCGTEXT   307
                                        * NAME    ROUTINE                                                        CCGTEXT   308
                                        *                                                                        CCGTEXT   309
                                        *         ENTRY  *NAME* = NAME OF SUBROUTINE.                            CCGTEXT   310
                                                                                                                 CCGTEXT   311
                                                                                                                 CCGTEXT   312
                                                  PURGMAC   ROUTINE                                              CCGTEXT   313
                                                                                                                 CCGTEXT   314
                                                  MACRO  ROUTINE,NAME                                            CCGTEXT   315
                                         NAME     JP     *+1S17                                                  CCGTEXT   316
                                                  NOREF  )NAME                                                   CCGTEXT   317
                                                  IF     DEF,)NAME,1                                             CCGTEXT   318
                                                  PRINT  NAME,(* ENTERED*)                                       CCGTEXT   319
                                         ROUTINE  ENDM                                                           CCGTEXT   320
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    38
        GENERAL MACROS                                                SETCORE 
  
                                        **        SETCORE - SET BLOCK OF MEMORY TO A GIVEN VALUE.                CCGTEXT   322
                                        *                                                                        CCGTEXT   323
                                        *         SETCORE   FWA,LEN                                              CCGTEXT   324
                                        *                                                                        CCGTEXT   325
                                        *         ENTRY  *FWA* = BLOCK ADDRESS                                   CCGTEXT   326
                                        *                *LEN* = BLOCK LENGTH                                    CCGTEXT   327
                                        *                (X6)  = VALUE TO SET                                    CCGTEXT   328
                                        *                                                                        CCGTEXT   329
                                        *         USES   X1, A6                                                  CCGTEXT   330
                                        *                                                                        CCGTEXT   331
                                        *         CALLS  ISC=  ( CCOMISC )                                       CCGTEXT   332
                                                                                                                 CCGTEXT   333
                                                                                                                 CCGTEXT   334
                                                  PURGMAC   SETCORE                                              CCGTEXT   335
                                                                                                                 CCGTEXT   336
                                         SETCORE  MACRO  F,L                                                     CCGTEXT   337
                                                  SA6    F                                                       CCGTEXT   338
                                         .1       IF     DEF,L                                                   CCGTEXT   339
                                         .1       IF     ABS,L                                                   CCGTEXT   340
                                         .1       IF     -REG,L                                                  CCGTEXT   341
                                         .1       IFLT   L,60                                                    CCGTEXT   342
                                         .2       IFNE   L,1                                                     CCGTEXT   343
                                                  MX1    L-1                                                     CCGTEXT   344
                                                  IF     -DEF,B1=1,1                                             CCGTEXT   345
                                                  SB1    1                                                       CCGTEXT   346
                                        +         LX1    1                                                       CCGTEXT   347
                                                  SA6    A6+B1                                                   CCGTEXT   348
                                                  MI     X1,*                                                    CCGTEXT   349
                                         .1       ELSE                                                           CCGTEXT   350
                                                  R=     X1,L                                                    CCGTEXT   351
                                                  RJ     =XISC=                                                  CCGTEXT   352
                                         .2       ENDIF                                                          CCGTEXT   353
                                         .1       ENDIF                                                          CCGTEXT   354
                                         SETCORE  ENDM                                                           CCGTEXT   355
                                         SETCORE  ENDM                                                           CCGTEXT   356
  
  
                                        **        SETZERO - SET A BLOCK OF MEMORY TO ZERO                        CCGTEXT   358
                                        *                                                                        CCGTEXT   359
                                        *         SETZERO  FWA,LEN                                               CCGTEXT   360
                                        *                                                                        CCGTEXT   361
                                        *         USES   X1, X6, A6 OR CALLS ISC=                                CCGTEXT   362
                                                                                                                 CCGTEXT   363
                                         SETZERO  MACRO  F,L                                                     CCGTEXT   364
                                                  MX6    0                                                       CCGTEXT   365
                                                  SETCORE F,L                                                    CCGTEXT   366
                                         SETZERO  ENDM                                                           CCGTEXT   367
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    39
        CCGDBGM - CCG DEBUG MACROS
  
             0                                    CTEXT  CCGDBGM - CCG DEBUG MACROS                              CCGDBGM     2
                                                                                                                 CCGDBGM     3
                                        **        PRINT - PRINT THE CONTENTS OF A LIST OF LOCATIONS.             CCGDBGM     4
                                        *                                                                        CCGDBGM     5
                                        *                                                                        CCGDBGM     6
                                        *         PRINT  LAB,FMT,(LIST)                                          CCGDBGM     7
                                        *                                                                        CCGDBGM     8
                                        *         LAB - STATEMENT PRINTED IF *LAB* MENTIONED ON A *TRACER* LIST  CCGDBGM     9
                                        *                IF BLANK, THEN UNCONDITIONALLY PRINT.                   CCGDBGM    10
                                        *         FMT - PARENTHESIED FORTRAN FORMAT                              CCGDBGM    11
                                        *         LIST - PARENTHESIZED LIST OF NAMES AND OR REGISTERS TO BE      CCGDBGM    12
                                        *                PRINTED.                                                CCGDBGM    13
                                        *                                                                        CCGDBGM    14
                                        *         SAMPLE CALL --                                                 CCGDBGM    15
                                        *         PRINT XXX,(* SIP,IIP =*,2I6),(SIP,IIP)   WILL PRODUCE -        CCGDBGM    16
                                        *         XXX SIP,IIP = NNNNNN NNNNNN                                    CCGDBGM    17
                                        *                                                                        CCGDBGM    18
                                        *         THIS MACRO IS FOR INTERNAL DEBUGGING ONLY ( TEST MODE ).       CCGDBGM    19
                                                                                                                 CCGDBGM    20
                                                                                                                 CCGDBGM    21
                                                  PURGMAC   PRINT                                                CCGDBGM    22
                                                                                                                 CCGDBGM    23
                                         PRINT    MACRO  LAB,FMT,LIST,NS                                         CCGDBGM    24
                                                  LOCAL  APL,LFMT                                                CCGDBGM    25
                                         .P       IFC    NE,/LAB//,2                                             CCGDBGM    26
                                         .P       IF     -DEF,)LAB,1                                             CCGDBGM    27
                                         .P       IF     DEF,/DEBUG/LAB                                          CCGDBGM    28
                                                  USE    DEBUG                                                   CCGDBGM    29
                                         APL      CON    =XOUTPUT#                                               CCGDBGM    30
                                                  CON    LFMT                                                    CCGDBGM    31
                                                  IRP    LIST                                                    CCGDBGM    32
                                                  IF     REG,LIST,4                                              CCGDBGM    33
                                         L        MICRO  1,1,/LIST/                                              CCGDBGM    34
                                         N        MICRO  2,1,/LIST/                                              CCGDBGM    35
                                                  VFD    12/2,30/1S6,18/=XSV="L"+"N"                             CCGDBGM    36
                                                  SKIP   1                                                       CCGDBGM    37
                                                  VFD    12/2,30/1S6,18/LIST                                     CCGDBGM    38
                                                  IRP                                                            CCGDBGM    39
                                         LFMT     CON    0                                                       CCGDBGM    40
                                                  DIS    ,$(* LAB *,FMT)$                                        CCGDBGM    41
                                                  USE    *                                                       CCGDBGM    42
                                                  IFC    NE,/NS/NOSAVE/,1                                        CCGDBGM    43
                                                  RJ     =XSVR=                                                  CCGDBGM    44
                                                  SA1    APL                                                     CCGDBGM    45
                                                  RJ     =XOUTCI.                                                CCGDBGM    46
                                                  IFC    NE,/NS/NOSAVE/,1                                        CCGDBGM    47
                                                  RJ     =XRSR=                                                  CCGDBGM    48
                                         .P       ENDIF                                                          CCGDBGM    49
                                         PRINT    ENDM                                                           CCGDBGM    50
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    40
        CCGDBGM - CCG DEBUG MACROS                                    TRACER
  
                                        **        TRACER - DEFINE ROUTINES/PHASES TO BE TRACED.                  CCGDBGM    52
                                        *                                                                        CCGDBGM    53
                                        *         TRACER (RTN1,...,RTNI)                                         CCGDBGM    54
                                                                                                                 CCGDBGM    55
                                         TRACER   MACRO  P                                                       CCGDBGM    56
                                                  QUAL   DEBUG                                                   CCGDBGM    57
                                                  IRP    P                                                       CCGDBGM    58
                                         P        EQU    1                                                       CCGDBGM    59
                                                  IRP                                                            CCGDBGM    60
                                                  QUAL   *                                                       CCGDBGM    61
                                                  ENDM                                                           CCGDBGM    62
  
  
  
                                        **        TRACE - CONDITIONALLY SNAP CONTENTS OF SPECIFIED TABLE.        CCGDBGM    64
                                        *         CALL -                                                         CCGDBGM    65
                                        *         TRACE  LAB,TBL,BLK                                             CCGDBGM    66
                                        *                                                                        CCGDBGM    67
                                        *         LAB - SNAP LABEL THAT IS TO BE SPECIFIED ON *TRACER* LIST      CCGDBGM    68
                                        *                TO ACTIVATE THE PRINTOUT.                               CCGDBGM    69
                                        *         TBL -  IF NOT = RLIST, THEN NAME OF TABLE ( FWA,LEN = O.TBL,   CCGDBGM    70
                                        *                L.TBL ) TO BE PRINTED IN OCTAL FORMAT.                  CCGDBGM    71
                                        *                IF = RLIST , THEN CALL *DMPRLST* TO PRINT THE TABLE.    CCGDBGM    72
                                        *                TABLE PRINTED OUT IS *TXT* IF *BLK* IS NOT SPECIFIED,   CCGDBGM    73
                                        *                ELSE *BLK*.                                             CCGDBGM    74
                                                                                                                 CCGDBGM    75
                                         TRACE    MACRO  RTN,TBL,BLK                                             CCGDBGM    76
                                         T        IF     DEF,/DEBUG/RTN                                          CCGDBGM    77
                                                  IRP    TBL                                                     CCGDBGM    78
                                         TB       IFC    NE,/TBL/RLIST/,2                                        CCGDBGM    79
                                                  SNAPT  TBL,TBL-RTN                                             CCGDBGM    80
                                         TB       ELSE   1                                                       CCGDBGM    81
                                         BLK      SNAPRL RTN                                                     CCGDBGM    82
                                                  IRP                                                            CCGDBGM    83
                                         T        ENDIF                                                          CCGDBGM    84
                                                  ENDM                                                           CCGDBGM    85
  
  
  
                                        **        SNAPRL - INTERPRETIVE DUMP OF AN *IL* INSTRUCTION SEQUENCE     CCGDBGM    87
                                                                                                                 CCGDBGM    88
                                                  PURGMAC  SNAPRL                                                CCGDBGM    89
                                                  MACRO  SNAPRL,BLK,L,LL,UL,INC                                  CCGDBGM    90
                                                  LOCAL  X,Y                                                     CCGDBGM    91
                                                  RJ     =XSVR=                                                  CCGDBGM    92
                                                  SA1    X                                                       CCGDBGM    93
                                                  IFC    EQ,//BLK/,2                                             CCGDBGM    94
                                                  SA2    =XO$TXT                                                 CCGDBGM    95
                                                  ELSE   1                                                       CCGDBGM    96
                                                  SA2    =XO$BLK                                                 CCGDBGM    97
                                                  BX6    X2                                                      CCGDBGM    98
                                                  SA6    X+1                                                     CCGDBGM    99
                                                  RJ     =XDMPRLST                                               CCGDBGM   100
                                                  RJ     =XRSR=                                                  CCGDBGM   101
                                                  USE    DEBUG                                                   CCGDBGM   102
                                         X        CON    Y                                                       CCGDBGM   103
                                                  IFC    EQ,//BLK/,2                                             CCGDBGM   104
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    41
        CCGDBGM - CCG DEBUG MACROS                                    SNAPRL
  
                                                  CON    0,=XL$TXT,0                                             CCGDBGM   105
                                                  ELSE   1                                                       CCGDBGM   106
                                                  CON    0,=XL$BLK,0                                             CCGDBGM   107
                                         Y        SNAPCTRS (L BLK),LL,UL,INC                                     CCGDBGM   108
                                                  USE    *                                                       CCGDBGM   109
                                         SNAPRL   ENDM                                                           CCGDBGM   110
                                                                                                                 CCGDBGM   111
                                         SNAPCTRS MACRO  L,LL,UL,INC                                             CCGDBGM   112
                                                  CON    0,10H L                                                 CCGDBGM   113
                                                  CON    LL 1                                                    CCGDBGM   114
                                                  CON    UL 200                                                  CCGDBGM   115
                                                  CON    INC 1                                                   CCGDBGM   116
                                         SNAPCTRS ENDM                                                           CCGDBGM   117
  
  
  
                                        **        DCALL - CALL TO DEBUGGING ROUTINE CODED IN FTN OR SYMPL.       CCGDBGM   119
                                        *                                                                        CCGDBGM   120
                                        *         DCALL ROUTINE,(PARAMLIST)                                      CCGDBGM   121
                                        *                                                                        CCGDBGM   122
                                        *         [X] IS THE CONTENTS OF X.                                      CCGDBGM   123
                                        *         CONSTANTS MUST BE WRITTEN AS =X  ( =3 ).                       CCGDBGM   124
                                                                                                                 CCGDBGM   125
                                         DCALL    MACRO  RTN,P                                                   CCGDBGM   126
                                                  LOCAL  APL                                                     CCGDBGM   127
                                                  RJ     =XSVR=                                                  CCGDBGM   128
                                                  USE    DEBUG                                                   CCGDBGM   129
                                         APL      BSS    0                                                       CCGDBGM   130
                                                  NOREF  .N                                                      CCGDBGM   131
                                         .N       SET    0                                                       CCGDBGM   132
                                        *                                                                        CCGDBGM   133
                                                  IRP    P                                                       CCGDBGM   134
                                         .1       MICRO  1,1,/P/                                                 CCGDBGM   135
                                                  IFC    EQ,/".1"/[/                                             CCGDBGM   136
                                         .1       MICRO  2,,]_P_]                                                CCGDBGM   137
                                                  USE    *                                                       CCGDBGM   138
                                                  SA2    =X".1"                                                  CCGDBGM   139
                                                  SX6    X2+                                                     CCGDBGM   140
                                                  SA6    APL+.N                                                  CCGDBGM   141
                                                  USE    DEBUG                                                   CCGDBGM   142
                                                  BSS    1                                                       CCGDBGM   143
                                                  ELSE   4                                                       CCGDBGM   144
                                                  IFC    EQ,/".1"/=/,2                                           CCGDBGM   145
                                                  VFD    42/,18/P                                                CCGDBGM   146
                                                  SKIP   1                                                       CCGDBGM   147
                                                  VFD    42/,18/=X_P                                             CCGDBGM   148
                                         .N       SET    .N+1                                                    CCGDBGM   149
                                                  IRP                                                            CCGDBGM   150
                                        *                                                                        CCGDBGM   151
                                                  DATA   0                                                       CCGDBGM   152
                                                  USE    *                                                       CCGDBGM   153
                                        *                                                                        CCGDBGM   154
                                                  SA1    APL                                                     CCGDBGM   155
                                                  RJ     =X_RTN                                                  CCGDBGM   156
                                                  RJ     =XRSR=                                                  CCGDBGM   157
                                         DCALL    ENDM                                                           CCGDBGM   158
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    42
        CCGDBGM - CCG DEBUG MACROS                                    REGSNAP 
  
                                        **        REGSNAP - SNAP REGISTERS AT ENTRY POINTS.                      CCGDBGM   160
                                        *                                                                        CCGDBGM   161
                                        *         ACTIVATES REGISTER SNAP AT EACH ENTRY POINT DEFINED WITH THE   CCGDBGM   162
                                        *         -ENTRY.- MACRO AND NAMED ON THE -REGSNAP- CALL CARD.           CCGDBGM   163
                                        *         THE SNAP COUNT IS LIMITED TO 100D PER ENTRY POINT BY THE       CCGDBGM   164
                                        *         -REGS- DEBUG MACRO.                                            CCGDBGM   165
                                        *                                                                        CCGDBGM   166
                                        *                                                                        CCGDBGM   167
                                        *         REGSNAP   (NAME1,NAME2,...,NAMEN)                              CCGDBGM   168
                                        *                                                                        CCGDBGM   169
                                        *         ENTRY  *NAMEK* = NAME OF ENTRY POINT TO BE SNAPPED             CCGDBGM   170
                                        *                                                                        CCGDBGM   171
                                        *         EXIT   SNAP ACTIVATED                                          CCGDBGM   172
                                        *                                                                        CCGDBGM   173
                                        *         USES   NONE                                                    CCGDBGM   174
                                        *                                                                        CCGDBGM   175
                                        *         CALLS  NONE                                                    CCGDBGM   176
                                                                                                                 CCGDBGM   177
                                                                                                                 CCGDBGM   178
                                                  PURGMAC   REGSNAP                                              CCGDBGM   179
                                                                                                                 CCGDBGM   180
                                         REGSNAP  MACRO  P                                                       CCGDBGM   181
                                                  IRP    P                                                       CCGDBGM   182
                                         )P       =      1           DEFINE SYMBOL                               CCGDBGM   183
                                                  IRP                                                            CCGDBGM   184
                                         REGSNAP  ENDM                                                           CCGDBGM   185
  
  
  
                                        **        SNAPT - SNAP A TABLE WITH POINTERS O.TBL AND L.TBL.            CCGDBGM   187
                                                                                                                 CCGDBGM   188
                                                  PURGMAC   SNAPT                                                CCGDBGM   189
                                                                                                                 CCGDBGM   190
                                         SNAPT    MACRO  TBL,BCD                                                 CCGDBGM   191
                                         BCD      SNAP   *O$TBL,,*L$TBL,NOREGS                                   CCGDBGM   192
                                         SNAPT    ENDM                                                           CCGDBGM   193
                                                                                                                 CCGDBGM   194
                                                  ENDX                                                           CCGDBGM   195
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    43
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         DBG=MAC 
  
             0                           DBG=MAC  CTEXT  DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.   DBG=MAC     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            DBG=MAC     4
                                                  QUAL   DBG=MAC                                                 DBG=MAC     5
                                 D_D              BASE   D                                                       DBG=MAC     6
  
  
  
  
                                        **        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.          DBG=MAC     8
                                        *                                                                        DBG=MAC     9
                                        *                                                                        DBG=MAC    10
                                        *                CONTAINS THE MACROS USED TO ACCESS THE ROUTINES IN      DBG=MAC    11
                                        *         *DBG=IDP*--                                                    DBG=MAC    12
                                        *                                                                        DBG=MAC    13
                                        * NAME    BREAK  LL,UL,INC   TO PLACE A BREAKPOINT                       DBG=MAC    14
                                        * NAME    REG                TO PROVIDE A SNAPSHOT OF ALL REGISTERS      DBG=MAC    15
                                        * NAME    REG    (X1,X2,A4)  TO PROVIDE A SNAPSHOT OF SELECTED REGISTERS DBG=MAC    16
                                        * NAME    SNAP   FWA,LWA,LEN TO PROVIDE A SNAPSHOT OF CENTRAL MEMORY     DBG=MAC    17
  
  
  
  
                                        **        BREAK - PLACE A BREAKPOINT.                                    DBG=MAC    19
                                        *                                                                        DBG=MAC    20
                                        *                                                                        DBG=MAC    21
                                        *                THIS MACRO DOES A RETURN JUMP TO THE INTERACTIVE        DBG=MAC    22
                                        *         DEBUG PACKAGE *IDP*.                                           DBG=MAC    23
                                        *                                                                        DBG=MAC    24
                                        * NAME    BREAK  LL,UL,INC                                               DBG=MAC    25
                                        *                                                                        DBG=MAC    26
                                        *         ENTRY  NAME = DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH    DBG=MAC    27
                                        *                         EACH SNAP. (NR CHARS.LE.8)                     DBG=MAC    28
                                        *                LL   = LOWER LIMIT (DEFAULT=1)                          DBG=MAC    29
                                        *                UL   = UPPER LIMIT (DEFAULT=100)                        DBG=MAC    30
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    DBG=MAC    31
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     DBG=MAC    32
                                        *                          ASSEMBLED AFTER *RJ*                          DBG=MAC    33
                                        *                                                                        DBG=MAC    34
                                        *         EXIT   NONE                                                    DBG=MAC    35
                                        *                                                                        DBG=MAC    36
                                        *         USES   NONE                                                    DBG=MAC    37
                                        *                                                                        DBG=MAC    38
                                        *         CALLS  IDP=                                                    DBG=MAC    39
                                                                                                                 DBG=MAC    40
                                                                                                                 DBG=MAC    41
                                                  PURGMAC BREAK                                                  DBG=MAC    42
                                                                                                                 DBG=MAC    43
                                                  MACRO  BREAK,NAME,LL,UL,INC,NUSE                               DBG=MAC    44
                                                  LOCAL  RTN                                                     DBG=MAC    45
                                                  LOCAL  APL                                                     DBG=MAC    46
                                        *                                                                        DBG=MAC    47
                                         +        RJ     =XIDP=                                                  DBG=MAC    48
                                         -        VFD    30/APL                                                  DBG=MAC    49
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    44
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         BREAK               DBG=MAC 
  
                                        *                                                                        DBG=MAC    50
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC    51
                                                  USE    DEBUG                                                   DBG=MAC    52
                                        *                                                                        DBG=MAC    53
                                         #NUSE    ELSE                                                           DBG=MAC    54
                                                  EQ     RTN                                                     DBG=MAC    55
                                         #NUSE    ENDIF                                                          DBG=MAC    56
                                         APL      BSS    0                                                       DBG=MAC    57
                                                  FRK=   (NAME),LL,UL,INC                                        DBG=MAC    58
                                        *                                                                        DBG=MAC    59
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC    60
                                                  USE    *                                                       DBG=MAC    61
                                        *                                                                        DBG=MAC    62
                                         #NUSE    ELSE                                                           DBG=MAC    63
                                         RTN      BSS    0                                                       DBG=MAC    64
                                         #NUSE    ENDIF                                                          DBG=MAC    65
                                        *                                                                        DBG=MAC    66
                                         BREAK    ENDM                                                           DBG=MAC    67
  
  
  
  
                                        **        FRK= - GENERATE FREQUENCY PARAMETER LIST.                      DBG=MAC    69
                                        *                                                                        DBG=MAC    70
                                        *                                                                        DBG=MAC    71
                                        *         FRK=   (NAME),LL,UL,INC                                        DBG=MAC    72
                                        *                                                                        DBG=MAC    73
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   DBG=MAC    74
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    DBG=MAC    75
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         DBG=MAC    76
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       DBG=MAC    77
                                        *                INC  =  INCREMENT (DEFAULT=1)                           DBG=MAC    78
                                        *                          LL, UL, AND INC ARE THE SNAP FREQUENCY PAR-   DBG=MAC    79
                                        *                          AMETERS AND ARE RELATED AS FOLLOWS--  THE 1ST DBG=MAC    80
                                        *                          SNAP PRINTED WILL OCCUR THE LLTH TIME THIS    DBG=MAC    81
                                        *                          SNAP IS EXECUTED. THE 2ND SNAP PRINTED WILL   DBG=MAC    82
                                        *                          OCCUR THE (LL+INC)TH TIME THIS SNAP IS EXEC-  DBG=MAC    83
                                        *                          UTED, AND SO ON. THE LAST SNAP PRINTED WILL   DBG=MAC    84
                                        *                          OCCUR THE ULTH TIME THIS SNAP IS EXECUTED.    DBG=MAC    85
                                        *                                                                        DBG=MAC    86
                                        *         EXIT   NONE                                                    DBG=MAC    87
                                        *                                                                        DBG=MAC    88
                                        *         USES   NONE                                                    DBG=MAC    89
                                        *                                                                        DBG=MAC    90
                                        *         CALLS  NONE                                                    DBG=MAC    91
                                                                                                                 DBG=MAC    92
                                                                                                                 DBG=MAC    93
                                                  PURGMAC FRK=                                                   DBG=MAC    94
                                                                                                                 DBG=MAC    95
                                         FRK=     MACRO  NAME,LL,UL,INC                                          DBG=MAC    96
                                                  CON    LL  1                                                   DBG=MAC    97
                                                  CON    UL  100                                                 DBG=MAC    98
                                                  CON    INC 1                                                   DBG=MAC    99
                                         .1       IFC    EQ,/NAME//                                              DBG=MAC   100
                                                  CON    0                                                       DBG=MAC   101
                                         .1       ELSE                                                           DBG=MAC   102
                                                  CON    10H_NAME                                                DBG=MAC   103
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    45
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         FRK=                DBG=MAC 
  
                                         .1       ENDIF                                                          DBG=MAC   104
                                                  CON    0                                                       DBG=MAC   105
                                        *                            USED BY *FRK=/TSNAP* TO KEEP SNAP COUNT     DBG=MAC   106
                                         FRK=     ENDM                                                           DBG=MAC   107
  
  
  
  
                                        **        REG - REGISTER SNAPSHOT.                                       DBG=MAC   109
                                        *                                                                        DBG=MAC   110
                                        *                                                                        DBG=MAC   111
                                        * NAME    REG    RG,LL,UL,INC,NUSE,UF                                    DBG=MAC   112
                                        *                                                                        DBG=MAC   113
                                        *         REG                                                            DBG=MAC   114
                                        *         REG    (X1,B3,A4)                                              DBG=MAC   115
                                        *         REG    NOREG                                                   DBG=MAC   116
                                        *                                                                        DBG=MAC   117
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   DBG=MAC   118
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    DBG=MAC   119
                                        *                     =  NULL IF NO SNAP HEADER                          DBG=MAC   120
                                        *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          DBG=MAC   121
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    DBG=MAC   122
                                        *                          DESIRED TO BE DUMPED                          DBG=MAC   123
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     DBG=MAC   124
                                        *                          DUMPED                                        DBG=MAC   125
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         DBG=MAC   126
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       DBG=MAC   127
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    DBG=MAC   128
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     DBG=MAC   129
                                        *                          ASSEMBLED AFTER *RJ*                          DBG=MAC   130
                                        *                UF   =  A STRING OF USER SNAP FLAGS PROCESSED BY        DBG=MAC   131
                                        *                        INSTALLER SUPPLIED USF= MACRO IF DESIRED.       DBG=MAC   132
                                        *                        USF= SHOULD GENERATE 1 WORD.                    DBG=MAC   133
                                        *                                                                        DBG=MAC   134
                                        *         EXIT   NONE                                                    DBG=MAC   135
                                        *                                                                        DBG=MAC   136
                                        *         USES   NONE                                                    DBG=MAC   137
                                        *                                                                        DBG=MAC   138
                                        *         CALLS  FRK=,REG=,RGR=,USF=(IF DEF)                             DBG=MAC   139
                                                                                                                 DBG=MAC   140
                                                                                                                 DBG=MAC   141
                                                  PURGMAC REG                                                    DBG=MAC   142
                                                                                                                 DBG=MAC   143
                                                  MACRO  REG,NAME,RG,LL,UL,INC,NUSE,UF                           DBG=MAC   144
                                                  LOCAL  '?ID#001,'?ID#004                                       DBG=MAC   145
                                                  LOCAL  RTN                                                     DBG=MAC   146
                                                  LOCAL  APL                                                     DBG=MAC   147
                                        *                                                                        DBG=MAC   148
                                         +        RJ     =XREG=                                                  DBG=MAC   149
                                         -        VFD    30/APL                                                  DBG=MAC   150
                                        *                                                                        DBG=MAC   151
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   152
                                                  USE    DEBUG                                                   DBG=MAC   153
                                        *                                                                        DBG=MAC   154
                                         #NUSE    ELSE                                                           DBG=MAC   155
                                                  EQ     RTN                                                     DBG=MAC   156
                                         #NUSE    ENDIF                                                          DBG=MAC   157
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    46
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         REG                 DBG=MAC 
  
                                         APL      BSS    0                                                       DBG=MAC   158
                                                  FRK=   (NAME),LL,UL,INC                                        DBG=MAC   159
                                         '?ID#001 BSS 0                                                          DBG=MAC   160
                                                  USF=   (UF)                                                    DBG=MAC   161
                                        *                                                                        DBG=MAC   162
                                         '?ID#002 IFNE *P,60D                                                    DBG=MAC   163
                                                  IFNE *P,0,2                                                    DBG=MAC   164
                                                  POS 0                                                          DBG=MAC   165
                                         '?ID#003 SKIP                                                           DBG=MAC   166
                                        *                                                                        DBG=MAC   167
                                         '?ID#002 ENDIF                                                          DBG=MAC   168
                                         '?ID#004 BSS 0                                                          DBG=MAC   169
                                        *                                                                        DBG=MAC   170
                                                  IFNE   '?ID#004-'?ID#001,1,2                                   DBG=MAC   171
                                         '?ID#003 ENDIF                                                          DBG=MAC   172
                                         P        ERR    *USF=* DID NOT GENERATE EXACTLY 60D BITS. "SEQUENCE"    DBG=MAC   173
                                        *                                                                        DBG=MAC   174
                                                  RGR=   (RG)                                                    DBG=MAC   175
                                        *                                                                        DBG=MAC   176
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   177
                                                  USE    *                                                       DBG=MAC   178
                                        *                                                                        DBG=MAC   179
                                         #NUSE    ELSE                                                           DBG=MAC   180
                                         RTN      BSS    0                                                       DBG=MAC   181
                                         #NUSE    ENDIF                                                          DBG=MAC   182
                                        *                                                                        DBG=MAC   183
                                         REG      ENDM                                                           DBG=MAC   184
                                                                                                                 DBG=MAC   185
                                                  PURGMAC REGS                                                   DBG=MAC   186
                                         REGS     OPSYN  REG                                                     DBG=MAC   187
  
  
  
  
                                        **        RGR= - GENERATE REGISTER PARAMETER LIST.                       DBG=MAC   189
                                        *                                                                        DBG=MAC   190
                                        *                                                                        DBG=MAC   191
                                        *                SEE *DSR/DBG=IDP*.                                      DBG=MAC   192
                                        *                                                                        DBG=MAC   193
                                        *         RGR=   RG                                                      DBG=MAC   194
                                        *                                                                        DBG=MAC   195
                                        *         RGR=                                                           DBG=MAC   196
                                        *         RGR=   (X1,X2,A3,B4)                                           DBG=MAC   197
                                        *         RGR=   NOREG                                                   DBG=MAC   198
                                        *                                                                        DBG=MAC   199
                                        *         ENTRY  RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          DBG=MAC   200
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    DBG=MAC   201
                                        *                          DESIRED TO BE DUMPED                          DBG=MAC   202
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     DBG=MAC   203
                                        *                          DUMPED                                        DBG=MAC   204
                                        *                                                                        DBG=MAC   205
                                        *         EXIT   NONE                                                    DBG=MAC   206
                                        *                                                                        DBG=MAC   207
                                        *         USES   NONE                                                    DBG=MAC   208
                                        *                                                                        DBG=MAC   209
                                        *         CALLS  NONE                                                    DBG=MAC   210
                                                                                                                 DBG=MAC   211
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    47
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         RGR=                DBG=MAC 
  
                                                                                                                 DBG=MAC   212
                                                  PURGMAC RGR=                                                   DBG=MAC   213
                                                                                                                 DBG=MAC   214
                                         RGR=     MACRO  RG                                                      DBG=MAC   215
                                        *                                                                        DBG=MAC   216
                                         .1       IFC    EQ,/RG//                                                DBG=MAC   217
                                                  DATA   -1                                                      DBG=MAC   218
                                         .1       ELSE                                                           DBG=MAC   219
                                        *                                                                        DBG=MAC   220
                                         .2       IRP    RG                                                      DBG=MAC   221
                                         .3       IF     -REG,RG                                                 DBG=MAC   222
                                                  DATA   0                                                       DBG=MAC   223
                                         .3       ELSE                                                           DBG=MAC   224
                                         .T       MICRO  1,1,/RG/                                                DBG=MAC   225
                                         .R       MICRO  2,1,/RG/                                                DBG=MAC   226
                                                  VFD    60/=XIDP=SV_".T"+".R"                                   CCGA017     6
                                         .3       ENDIF                                                          DBG=MAC   228
                                         .2       IRP                                                            DBG=MAC   229
                                        *                                                                        DBG=MAC   230
                                                  DATA   0                                                       DBG=MAC   231
                                         .1       ENDIF                                                          DBG=MAC   232
                                        *                                                                        DBG=MAC   233
                                         RGR=     ENDM                                                           DBG=MAC   234
  
  
  
  
                                        **        SNAP - SNAPSHOT OF REGISTERS AND CORE.                         DBG=MAC   236
                                        *                                                                        DBG=MAC   237
                                        *                                                                        DBG=MAC   238
                                        * NAME    SNAP   FWA,LWA,LNG,RG,LL,UL,INC,NUSE,UF                        DBG=MAC   239
                                        *         SNAP   *FWA,,**LNG,(X1,X2,B5,A1)                               DBG=MAC   240
                                        *                                                                        DBG=MAC   241
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   DBG=MAC   242
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    DBG=MAC   243
                                        *                     =  NULL IF NO SNAP HEADER                          DBG=MAC   244
                                        *                FWA  =  FWA OF CORE TO BE DUMPED. THIS PARAMETER MUST   DBG=MAC   245
                                        *                          APPEAR IF A CORE DUMP IS DESIRED.             DBG=MAC   246
                                        *                LWA  =  LWA OF CORE TO BE DUMPED. (OPTIONAL)            DBG=MAC   247
                                        *                LNG  =  NR OF WORDS TO BE DUMPED. *LWA* AND *LNG* ARE   DBG=MAC   248
                                        *                          RELATED AS FOLLOWS--  DUMP IS FROM            DBG=MAC   249
                                        *                          FWA TO FWA+LNG UNLESS LNG IS NULL OR ZERO.    DBG=MAC   250
                                        *                          IN THAT CASE, DUMP IS FROM FWA TO LWA.        DBG=MAC   251
                                        *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          DBG=MAC   252
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    DBG=MAC   253
                                        *                          DESIRED TO BE DUMPED                          DBG=MAC   254
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     DBG=MAC   255
                                        *                          DUMPED                                        DBG=MAC   256
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         DBG=MAC   257
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       DBG=MAC   258
                                        *                INC  =  INCREMENT (DEFAULT=1)                           DBG=MAC   259
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    DBG=MAC   260
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     DBG=MAC   261
                                        *                          ASSEMBLED AFTER *RJ*                          DBG=MAC   262
                                        *                UF   =  A STRING OF USER SNAP FLAGS PROCESSED BY        DBG=MAC   263
                                        *                        INSTALLER SUPPLIED USF= MACRO IF DESIRED.       DBG=MAC   264
                                        *                        USF= SHOULD GENERATE 1 WORD.                    DBG=MAC   265
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    48
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         SNAP                DBG=MAC 
  
                                        *                                                                        DBG=MAC   266
                                        *         NOTES-- AN INDIRECT ADDRESSING SYNTAX IS PROVIDED FOR THE FWA, DBG=MAC   267
                                        *         LWA, AND LNG PARAMETERS. ANY OF THESE PARAMETERS PRECEDED BY   DBG=MAC   268
                                        *         AN ASTERICK (*) DENOTES ONE LEVEL OF INDIRECT ADDRESSING.      DBG=MAC   269
                                        *         N LEVELS OF INDIRECT ADDRESSING ARE POSSIBLE (N.LE.2**21-1)    DBG=MAC   270
                                        *         BY STACKING ASTERICKS. (E.G.  SNAP  **X1,***LWA)               DBG=MAC   271
                                        *                                                                        DBG=MAC   272
                                        *                A SINGLE REGISTER OR AN ADDRESS EXPRESSION CAN BE USED  DBG=MAC   273
                                        *         FOR THE FWA, LWA, OR LNG PARAMETER, BUT A MIX (E.G. SNAP X1+1) DBG=MAC   274
                                        *         IS NOT ALLOWED.                                                DBG=MAC   275
                                        *                                                                        DBG=MAC   276
                                        *         EXIT   NONE                                                    DBG=MAC   277
                                        *                                                                        DBG=MAC   278
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      DBG=MAC   279
                                        *                                                                        DBG=MAC   280
                                        *         CALLS  FRK=,RGR=,SNG=,SNP=,USF=(IF DEF)                        DBG=MAC   281
                                                                                                                 DBG=MAC   282
                                                                                                                 DBG=MAC   283
                                                  PURGMAC SNAP                                                   DBG=MAC   284
                                                                                                                 DBG=MAC   285
                                                  MACRO  SNAP,NAME,FWA,LWA,LNG,RG,LL,UL,INC,NUSE,UF              DBG=MAC   286
                                                  LOCAL  '?ID#005,'?ID#008                                       DBG=MAC   287
                                                  LOCAL  RTN                                                     DBG=MAC   288
                                                  LOCAL  APL                                                     DBG=MAC   289
                                        *                                                                        DBG=MAC   290
                                         +        RJ     =XSNP=                                                  DBG=MAC   291
                                         -        VFD    30/APL                                                  DBG=MAC   292
                                        *                                                                        DBG=MAC   293
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   294
                                                  USE    DEBUG                                                   DBG=MAC   295
                                        *                                                                        DBG=MAC   296
                                         #NUSE    ELSE                                                           DBG=MAC   297
                                                  EQ     RTN                                                     DBG=MAC   298
                                         #NUSE    ENDIF                                                          DBG=MAC   299
                                         APL      BSS    0                                                       DBG=MAC   300
                                                  FRK=   (NAME),LL,UL,INC                                        DBG=MAC   301
                                                  SNG=   (FWA)                                                   DBG=MAC   302
                                                  SNG=   (LWA)                                                   DBG=MAC   303
                                                  SNG=   (LNG)                                                   DBG=MAC   304
                                         '?ID#005 BSS 0                                                          DBG=MAC   305
                                                  USF=   (UF)                                                    DBG=MAC   306
                                        *                                                                        DBG=MAC   307
                                         '?ID#006 IFNE *P,60D                                                    DBG=MAC   308
                                                  IFNE *P,0,2                                                    DBG=MAC   309
                                                  POS 0                                                          DBG=MAC   310
                                         '?ID#007 SKIP                                                           DBG=MAC   311
                                        *                                                                        DBG=MAC   312
                                         '?ID#006 ENDIF                                                          DBG=MAC   313
                                         '?ID#008 BSS 0                                                          DBG=MAC   314
                                        *                                                                        DBG=MAC   315
                                                  IFNE   '?ID#008-'?ID#005,1,2                                   DBG=MAC   316
                                         '?ID#007 ENDIF                                                          DBG=MAC   317
                                         P        ERR    *USF= DID NOT GENERATE EXACTLY 60D BITS. "SEQUENCE"     DBG=MAC   318
                                        *                                                                        DBG=MAC   319
                                                  RGR=   (RG)                                                    DBG=MAC   320
                                        *                                                                        DBG=MAC   321
                                         #NUSE    IFC    EQ,/NUSE//                                              DBG=MAC   322
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    49
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         SNAP                DBG=MAC 
  
                                                  USE    *                                                       DBG=MAC   323
                                        *                                                                        DBG=MAC   324
                                         #NUSE    ELSE                                                           DBG=MAC   325
                                         RTN      BSS    0                                                       DBG=MAC   326
                                         #NUSE    ENDIF                                                          DBG=MAC   327
                                        *                                                                        DBG=MAC   328
                                         SNAP     ENDM                                                           DBG=MAC   329
  
  
  
  
                                        **        SNG= - GENERATE INDIRECT/ADDRESS FIELDS.                       DBG=MAC   331
                                        *                                                                        DBG=MAC   332
                                        *                                                                        DBG=MAC   333
                                        *         GENERATES--                                                    DBG=MAC   334
                                        *                                                                        DBG=MAC   335
                                        *         VFD    18/0                                                    DBG=MAC   336
                                        *         VFD    21/NR OF LEVELS OF INDIRECT ADDRESSING (0=DIRECT)       DBG=MAC   337
                                        *         VFD    21/ADDRESS AT BEGINNING OF INDIRECT CHAIN               DBG=MAC   338
                                        *                                                                        DBG=MAC   339
                                        *         SNG=   (*ADDR)                                                 DBG=MAC   340
                                        *                                                                        DBG=MAC   341
                                        *         ENTRY  *        =  A LEVEL OF INDIRECT ADDRESSING.             DBG=MAC   342
                                        *                              NO * MEANS DIRECT ADDRESSING.             DBG=MAC   343
                                        *                              E.G. *ADDR MEANS THE CONTENTS OF ADDR     DBG=MAC   344
                                        *                              CONTAIN AN ADDRESS THAT IS TO BE USED BY  DBG=MAC   345
                                        *                              SNAP UTILITY.                             DBG=MAC   346
                                        *                ADDR     =  THE BEGINNING OF THE ADDRESS CHAIN.         DBG=MAC   347
                                                                                                                 DBG=MAC   348
                                                                                                                 DBG=MAC   349
                                                  PURGMAC SNG=                                                   DBG=MAC   350
                                                                                                                 DBG=MAC   351
                                         SNG=     MACRO  ARG                                                     DBG=MAC   352
                                         .9       SET    -1                                                      DBG=MAC   353
                                         +        VFD    18/0                                                    DBG=MAC   354
                                        *                                                                        DBG=MAC   355
                                         .D       DUP    -1                                                      DBG=MAC   356
                                         .9       SET    .9+1                                                    DBG=MAC   357
                                         .1       MICRO  .9+1,1,/ARG/                                            DBG=MAC   358
                                                  IFC    NE,/".1"/*/,1                                           DBG=MAC   359
                                                  STOPDUP                                                        DBG=MAC   360
                                         .D       ENDD                                                           DBG=MAC   361
                                        *                                                                        DBG=MAC   362
                                         .2       MICRO  .9+1,,/ARG/                                             DBG=MAC   363
                                        *                                                                        DBG=MAC   364
                                         #RG      IF     REG,".2"                                                DBG=MAC   365
                                                  IFEQ   .9,0,1                                                  DBG=MAC   366
                                         .9       SET    .9+1                                                    DBG=MAC   367
                                         .3       MICRO  1,1,/".2"/                                              DBG=MAC   368
                                         .4       MICRO  2,1,/".2"/                                              DBG=MAC   369
                                         .2       MICRO  1,,/=XIDP=SV_".3"+".4"/                                 CCGA017     7
                                        *                                                                        DBG=MAC   371
                                         #RG      ELSE                                                           DBG=MAC   372
                                         .5       MICRO  1,2,/".2"/                                              DBG=MAC   373
                                                  IFC    EQ,/".5"/=X/,1                                          DBG=MAC   374
                                         .2       MICRO  3,,/".2"/                                               DBG=MAC   375
                                                  IF     -DEF,".2",1                                             DBG=MAC   376
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    50
        DBG=MAC - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         SNG=                DBG=MAC 
  
                                                  SKIP   1                                                       DBG=MAC   377
                                                  IF     -ABS,".2",1                                             DBG=MAC   378
                                         .2       MICRO  1,,/=X".2"/                                             DBG=MAC   379
                                         #RG      ENDIF                                                          DBG=MAC   380
                                        *                                                                        DBG=MAC   381
                                                  VFD    21/.9                                                   DBG=MAC   382
                                                  VFD    21/".2"                                                 DBG=MAC   383
                                         SNG=     ENDM                                                           DBG=MAC   384
  
  
  
  
                                        **        USF= - GENERATE USER FLAG PARAMETER CELL.                      DBG=MAC   386
                                        *                                                                        DBG=MAC   387
                                        *                                                                        DBG=MAC   388
                                        *         THIS IS A DUMMY TO CREATE A ZERO WORD IF THE USER              DBG=MAC   389
                                        *         DOES NOT DESIRE OWN CODE.                                      DBG=MAC   390
                                        *                                                                        DBG=MAC   391
                                        *         USF=   USF                                                     DBG=MAC   392
                                        *                                                                        DBG=MAC   393
                                        *         ENTRY  USF  = ANY LEGAL STRING OF CHARACTERS                   DBG=MAC   394
                                        *                                                                        DBG=MAC   395
                                        *         EXIT   NONE                                                    DBG=MAC   396
                                        *                                                                        DBG=MAC   397
                                        *         USES   NONE                                                    DBG=MAC   398
                                        *                                                                        DBG=MAC   399
                                        *         CALLS  NONE                                                    DBG=MAC   400
                                                                                                                 DBG=MAC   401
                                         .1       IF     -MAC,USF=                                               DBG=MAC   402
                                         USF=     MACRO  USF                                                     DBG=MAC   403
                                                  CON    0                                                       DBG=MAC   404
                                         USF=     ENDM                                                           DBG=MAC   405
                                         .1       ENDIF                                                          DBG=MAC   406
  
  
  
  
                                 D_D              BASE   *                                                       DBG=MAC   408
                                         QUAL$    IF     -DEF,QUAL$                                              DBG=MAC   409
                                                  QUAL   *                                                       DBG=MAC   410
                                         QUAL$    ENDIF                                                          DBG=MAC   411
                                                  ENDX                                                           DBG=MAC   412
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    51
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  DESCR 
  
                                        **        *IL* INSTRUCTION DESCRIPTOR FIELDS ( ALL INSTRUCTION TYPES )   CCGILFD     3
                                        *         INSTRUCTION ATTRIBUTES ( PROPERTY BITS ).                      CCGILFD     4
                                                                                                                 CCGILFD     5
                                                  DESCRIBE D.,60                                                 CCGILFD     6
      L     72  60000000000000000000     TY       DEFINE 2           RLIST TYPE - 1 ( = 0-3 )                    CCGILFD     7
      L     65  17400000000000000000     FT       DEFINE 5           FUNCTIONAL UNIT TIME IN MINOR CYCLES        CCGILFD     8
      L     64  00200000000000000000     NR       DEFINE 1           D.RJRSP+12 ( BIT SHIFT FOR *MCG* IN *DRR* ) CCGILFD     9
                                                  DEFINE 1           =1 TO SIMULATE A EXPONENT                   CCGILFD    10
      L     57  00074000000000000000     F1       DEFINE 4           FIRST FUNCTION UNIT ORDINAL                 CCGILFD    11
      L     53  00003600000000000000     F2       DEFINE 4           SECOND FUNCTION UNIT ORDINAL                CCGILFD    12
      L     52  00000100000000000000     BM       DEFINE 1           NODE BOUNDARY MARKER ( JUMP, LABEL, ETC )   CCGILFD    13
      L     51  00000040000000000000     ^D       DEFINE 1           SET IF INSTRUCTION DOESN-T DEF AN RI/ NO RI CCGILFD    14
                                                                                                                 CCGILFD    15
                                        **        NOTE - THE BIT FIELD FROM *RJRS* TO *JFT* IS USED BY THE       CCGILFD    16
                                        *         SCHEDULER TO ASSIGN RESULT REGISTERS, SO PLEASE DO NOT REORDER CCGILFD    17
                                                                                                                 CCGILFD    18
      L     50  00000020000000000000     RJRS     DEFINE 1           PRECEDES AN RJ REGISTER STORE               CCGILFD    19
      L     47  00000010000000000000     PS       DEFINE 1           INST IS AN IMMEDIATE PREDECESSOR OF A STORE CCGILFD    20
      L     46  00000004000000000000     PRS      DEFINE 1           PRECEDES A REGISTER STORE                   CCGILFD    21
      L     45  00000002000000000000     ECJ      DEFINE 1           ERROR CHECK (FALL THROUGH) JUMP             CCGILFD    22
      L     44  00000001000000000000     L2       DEFINE 1           LEVEL 2 LD/ST                               CCGILFD    23
      L     43  00000000400000000000     LD       DEFINE 1           LOAD                                        CCGILFD    24
      L     42  00000000200000000000     ST       DEFINE 1           STORE                                       CCGILFD    25
      L     41  00000000100000000000     JP       DEFINE 1           JUMP                                        CCGILFD    26
      L     40  00000000040000000000     XMT      DEFINE 1           XMT/SXT (LEVEL 0 LD/ST IF *L2* SET)         CCG0041     9
      L     37  00000000020000000000     KS       DEFINE 1           OPERATION DESTROYS OPERAND ( CON SHIFTS )   CCGILFD    28
      L     36  00000000010000000000     PI       DEFINE 1           PSEUDO INSTRUCTION ( RS,DAR,DEF,LAB, ETC )  CCGILFD    29
      L     35  00000000004000000000     MUC      DEFINE 1           MULTI USE COMPUTATION ( *JAM* MODE )        CCGILFD    30
      L     34  00000000002000000000     JFT      DEFINE 1           JAM FUNCTION TIME, "0 IF USES A FUNCTION UN CCGILFD    31
                                                                                                                 CCGILFD    32
      L     33  00000000001000000000     USI      DEFINE 1           UNSAFE INSTRUCTION ( INTERRUPT POSSIBLE )   CCGILFD    33
      L     32  00000000000400000000     ZP       DEFINE 1           =1 IF INSTRUCTION HAS NO OPERANDS           CCGILFD    34
      L     31  00000000000200000000     CM       DEFINE 1           "0 IF OPERANDS ARE COMMUTATIVE              CCGILFD    35
      L     27  00000000000140000000     SZ       DEFINE 2           INSTRUCTION SIZE ( PARCEL COUNT )           CCGILFD    36
      L     26  00000000000020000000     SR       DEFINE 1           SET FOR SIZE REDUCIBLE LD/ST-S              CCGILFD    37
      L     25  00000000000010000000     FP       DEFINE 1           SET IF IH IS AN F.P.                        CCGILFD    38
      L     24  00000000000004000000     XU       DEFINE 1           USES EXTEND PAST A REDEF ( SIO AND GRA )    CCGILFD    39
      L     23  00000000000002000000     RF       DEFINE 1           RI USED IN *RF* OF LD/ST/STT/SA             CCGILFD    40
      L     22  00000000000001000000     INC      DEFINE 1           INCREMENT INSTRUCTION ( IA/IS/STT/ST )      CCGILFD    41
      L     11  00000000000000777000     REGW     DEFINE 9           X-REGISTER WIDTH OF THE SEQUENCE AT A INST  CCGILFD    42
             0  00000000000000000777     USES     DEFINE 9           USES COUNT                                  CCGILFD    43
                                                                                                                 CCGILFD    44
                                        *         COMBINATIONS OF DESCRIPTOR BIT FIELDS                          CCGILFD    45
                                                                                                                 CCGILFD    46
      L     42  00000000600000000000     LDST     DEQU   ST,2        LD AND ST BITS ( MEMORY REFERENCE )         CCGILFD    47
      L     46  00000014000000000000     STRS     DEQU   PRS,2       STORE / RS PRECEDENCE BITS                  CCGILFD    48
      L     25  00000000000030000000     AR       DEQU   FP,2        ADDRESS REDUCTION BITS ( *MCG* )            CCGILFD    49
      L     41  00000000700000000000     LSJ      DEQU   JP,3        LD / ST / JP BITS                           CCGILFD    50
      L     50  00000060000000000000     TYIO     DEQU   RJRS,2      TYPE I OPERAND BIT DETERMINOR               CCGILFD    51
                                        *                            0 - RJ,RK ARE OPERANDS                      CCGILFD    52
                                        *                            1 - RK IS AN OPERAND                        CCGILFD    53
                                        *                            2 - RI,RJ,RK ARE OPERANDS                   CCGILFD    54
      L     65  00400000000000000000     EQV      DEQU   FT,1        "0 IF INST IS PRED OF AN EQUIV LINK         CCGILFD    55
                                        *                ASSUMES THAT FUN TIME OF LD/ST-S IS AN EVEN NUMBER.     CCGILFD    56
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    52
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  RLIST 
  
                                        **        *IL* INSTRUCTION FIELD DEFINITIONS                             CCGILFD    58
                                                                                                                 CCGILFD    59
                                                  DESCRIBE R1.,60    TYI(OC,RJ,RK,RI) / TYII(OC,IN,SO,RI) , ETC  CCGILFD    60
                                                                                                                 CCGILFD    61
                                        *         TYPE 1 *IL* - BINARY OPERATIONS - RI = RJ.OP.RK                CCGILFD    62
                                        *                12/PACKED OC,16/RJ,16/RK,16/RI                          CCGILFD    63
                                                                                                                 CCGILFD    64
      L     60  77770000000000000000     OC       DEFINE 12          PACKED OP CODE                              CCGILFD    65
      L     40  00007777740000000000     RJ       DEFINE 16          FIRST OPERAND                               CCGILFD    66
      L     20  00000000037777600000     RK       DEFINE 16          SECOND OPERAND                              CCGILFD    67
             0  00000000000000177777     RI       DEFINE 16          RESULT RNUMBER                              CCGILFD    68
                                                                                                                 CCGILFD    69
                                        *         TYPE 2 *IL* - 1 ADDRESS AND PSEUDOS - .OP.RI = IN              CCGILFD    70
                                        *                12/PACKED OC,18/IN,14/SO,16/RI                          CCGILFD    71
                                                                                                                 CCGILFD    72
      L     36  00007777770000000000     IN       DEFINE 18,R1.RJP+15      A CA FIELD                            CCGILFD    73
      L     20  00000000007777600000     SO       DEFINE 14          REGISTER DESIGNATOR                         CCGILFD    74
                                                                                                                 CCGILFD    75
                                        *         TYPE 3 *IL* - LOADS,STORES AND JUMPS                           CCGILFD    76
                                        *                12/PACKED OC,18/IN,12/H2,2/0,16/RI                      CCGILFD    77
                                        *                R2 WORD = IHINFO FORMAT ( SEE BELOW )                   CCGILFD    78
  
  
                                        *         TYPE 4 *IL* - SPECIAL INSTRUCTIONS, BOUNDARY MARKERS, ETC.     CCGILFD    80
                                        *                12/PACKED OC,18/CA,12/H2,18/IH                          CCGILFD    81
                                                                                                                 CCGILFD    82
                                                  DESCRIBE R1.,60    TYIV(OC,CA,H2,IH)                           CCGILFD    83
      L     60  77770000000000000000     OC       DEFINE 12                                                      CCGILFD    84
      L     36  00007777770000000000     CA       DEFINE 18                                                      CCGILFD    85
      L     22  00000000007777000000     H2       DEFINE 12          SYMTAB ORDINAL, MISCELLANEOUS INFO          CCGILFD    86
             0  00000000000000777777     IH       DEFINE 18          IH FIELD                                    CCGILFD    87
  
  
  
                                        **        IH INFO WORD/ R2 WORD FOR MEMORY REFERENCES AND TYPE III INST  CCGILFD    89
                                        *         NOTE - LD,ST,BM BITS SET BY *BDT* IN *FIL* DURING INTERFERENCE CCGILFD    90
                                        *                LINKING PHASE ONLY ( BITS ARE SET IN *IH* TABLE ).      CCGILFD    91
                                        *         LD BIT SET FOR APLIST LD-S IN *PRE* TO PREVENT SQUEEZING OF    CCGILFD    92
                                        *                ST/LD SEQUENCES IN *SQZ*.                               CCGILFD    93
                                                                                                                 CCGILFD    94
                                                  DESCRIBE IH.,60    IHW(RF,CA,IH)                               CCGILFD    95
      L     73  40000000000000000000     LD       DEFINE 1           LD BIT FROM DESCR                           CCGILFD    96
      L     72  20000000000000000000     ST       DEFINE 1           ST BIT FROM DESCR                           CCGILFD    97
      L     71  10000000000000000000     BM       DEFINE 1           SET FOR BOUNDARY MARKERS                    CCGILFD    98
                                                  DEFINE 1                                                       FCC1918     7
      L     67  02000000000000000000     SIA      DEFINE 1           STT GEN BY *GRA* OF LCM&FP  ADDRESS         FCC1918     8
                                        *                              WHERE VALUE OF RF MAY BE NEGATIVE         FCC1918     9
      L     66  01000000000000000000     SRF      DEFINE 1           =1 IF SPECIAL RF NECESSARY ( RF = (RJ,RK) ) CCGILFD   100
      L     44  00777777000000000000     RF       DEFINE 18          R-NUMBER OF MODIFIER                        CCGILFD   101
      L     22  00000000777777000000     CA       DEFINE 18          CONSTANT ADDEND                             CCGILFD   102
      L     17  00000000000000700000     I        DEFINE 3           TABLE NUMBER ( 0 - SYMTAB, ETC )            CCGILFD   103
             0  00000000000000077777     H        DEFINE 15          ORDINAL INTO TABLE                          CCGILFD   104
             0  00000000000000777777     IH       DEQU   H,18                                                    CCGILFD   105
                                                                                                                 CCGILFD   106
             0  00000000777777777777     CAIH     DEQU   H,36        COMBINATION OF CA AND IH FIELDS             CCGILFD   107
                                                                                                                 CCGILFD   108
                               20000     IH.LCMA  EQU    1S13        =1 IF LCM=I ADDRESS LOAD ( ^F.P. )          CCGILFD   109
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    53
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  IHINFO
  
                               40000     IH.LCM   EQU    1S14        *LCM* ( LEVEL 2 ) BIT VALUE SET IN *IH*     CCGILFD   110
                                        *                            FIELD FOR *DRL/DWL*-S .                     CCGILFD   111
                              200000     RF.MV    EQU    1S16        BIT SET IN *RF* FIELD OF PLD,PST,DRL,DWL    CCGILFD   112
                                        *                            IF RF IS -VAR  ( A(C-VAR)  ).               CCGILFD   113
                                  72     R2.LONGP EQU    58D         BIT =1 IN R2 OF *BOS* IF FIRST BLOCK OF A   CCG21       1
                                        *                            DO LOOP AND LOOP INDEX IS *LONG*            CCG21       2
                                  73     IH.STKP  EQU    59          =1 IN R2 OF LOOP GEN LABEL IF LOOP WILL     CCG29       1
                                        *                              FIT INSTACK ( GRA AND MCG )               CCG29       2
  
  
                              100000     I.GL     EQU    1S15        I FIELD VALUE OF GL.NNN SYMBOLS             CCGILFD   115
                              600001     RN.MASK  EQU    600001B     MASK FOR EXTRACTING R-NUMBERS               CCGILFD   116
  
  
  
                                        **        SO FIELD  - USED FOR SPECIFYING EXPLICIT RESULT REGISTERS      CCGILFD   118
                                        *                     IN *RS* AND *DEF* INSTRUCTIONS ONLY.               CCGILFD   119
                                        *                2/INV INFO,2/LOCK TYPE,3/REG TYPE,3/REG NUMBER          CCGILFD   120
                                                                                                                 CCGILFD   121
                                                  DESCRIBE SO.,11                                                CCGILFD   122
                                2000     SFL      DEFINE 1           SCRATCHABLE FULL LOCK ( TEMP/FULL LOCK )    CCGILFD   123
                                1000     INVC     DEFINE 1           INVARIANT IN CURRENT LOOP                   CCGILFD   124
                                0400     INV      DEFINE 1           INVARIANT IN INNER LOOP                     CCGILFD   125
                                0300     LK       DEFINE 2           LOCK TYPE, *RS* INSTRUCTION ONLY            CCGILFD   126
                                        *                            0 - HOLD UNTIL NEXT UNCONDITIONAL JUMP      CCGILFD   127
                                        *                            1 - HOLD UNTIL USES[RI] = 0                 CCGILFD   128
                                        *                            2 - HOLD UNTIL REDEF OR *EOQ*               CCGILFD   129
                                        *                            3 - RJ RS, IT IS A *DEF* IN DISGUISE.       CCGILFD   130
                                        *                            3 - A-REG LOCK ( INITIAL *DEF* OF PREFETCH) CCGILFD   131
                                0070     RT       DEFINE 3           REGISTER TYPE ( BAX = 0/1/2 )               CCGILFD   132
                                0007     RN       DEFINE 3           REGISTER NUMBER ( 0 - 7 )                   CCGILFD   133
                                0077     REG      DEQU   RN,6        RT + RN FIELDS                              CCGILFD   134
                                                                                                                 CCGILFD   135
                                   6     .LKP     DECMIC SO.LKP                                                  CCGILFD   136
                                 100     .LKP     SET    1S".LKP"                                                CCGILFD   137
                                 100     SO.TLOCK EQU    .LKP        TEMP LOCK                                   CCGILFD   138
                                        *                              WARNING - TEMP LOCKS CAN BE ELIMINATED    CCGILFD   139
                                        *                              IN *SQZ* IF THEY HAVE NO *REAL* USES.     CCGILFD   140
                                 200     SO.LOCK  EQU    2*.LKP      FULL LOCK ( UNTIL REDEF / *EOQ* )           CCGILFD   141
                                 300     SO.RJLK  EQU    3*.LKP      RJ LOCK ( B-REG DEF FOR UP / NR INSTRUCTION CCGILFD   142
                                                                                                                 CCGILFD   143
                                   0     RT.BR    EQU    0           VALUE OF B REGISTER TYPE                    CCGILFD   144
                                   2     RT.XR    EQU    2           VALUE OF X REGISTER TYPE                    CCGILFD   145
  
  
  
                                        **        AP / IO LIST ENTRY FORMAT FOR USE/DEF INFO PROCESSING          CCGILFD   147
                                                                                                                 CCGILFD   148
                                                  DESCRIBE AP.,60                                                CCGILFD   149
      L     73  40000000000000000000     IO       DEFINE 1           =1 IF INPUT ( DEF ) IN *IOL*                CCGILFD   150
      L     72  20000000000000000000     USE      DEFINE 1           =1 IF INPUT LIST ITEM MAY NOT BE DEFINED    CCGILFD   151
      L     71  10000000000000000000     P1       DEFINE 1           +1 REF FOR A DOUBLE/COMPLEX VARIABLE        CCGILFD   152
                                                  DEFINE 2                                                       CCGILFD   153
      L     66  01000000000000000000     CR       DEFINE 1           CLASS REFERENCE                             CCGILFD   154
                                                  DEFINE 18                                                      CCGILFD   155
      L     22  00000000777777000000     CA       DEFINE 18          BIAS                                        CCGILFD   156
             0  00000000000000777777     IH       DEFINE 18          SYMBOL ORDINAL                              CCGILFD   157
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    54
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  APL 
  
                                                                                                                 CCGILFD   158
             0  00000000777777777777     CAIH     DEQU   IH,36                                                   CCGILFD   159
  
  
  
                                        **        FI. - FUNCTION INFORMATION WORD ( R2 ) FOR RJX-S.              CCGILFD   161
                                                                                                                 CCGILFD   162
                                                  DESCRIBE FI.,60                                                CCGILFD   163
      L     66  77000000000000000000     FT       DEFINE 6           FUNCTION TYPE                               CCGILFD   164
                                        *                            0 - IGNORE, 1 - USER, 2 - BEF, 3 - I/O      CCGILFD   165
      L     36  00777777770000000000     REGP     DEFINE 24          BIT MASK OF REGISTERS PRESERVED             CCGILFD   166
                                        *                            ( 0 - B0 , 1 - B1, ... 23 - X7 )            CCGILFD   167
      L     14  00000000007777770000     INDX     DEFINE 18          INDEX TO LIST IN *IOL*                      CCGILFD   168
             0  00000000000000007777     LEN      DEFINE 12          LENGTH OF LIST IN *IOL* + 1S10 IF " 0       CCGILFD   169
  
  
                                        **        SI. - *SLIST* FILE FORMAT FOR MACHINE INSTRUCTIONS             CCGILFD   171
                                                                                                                 CCGILFD   172
                                                  DESCRIBE SI.                                                   CCGILFD   173
      L     73  40000000000000000000     H2       DEFINE 1           =1 IF WORD WITH *H2* FOLLOWS THIS WORD      CCGILFD   174
      L     60  37770000000000000000     OPC      DEFINE 11          PACKED OPCODE                               CCGILFD   175
      L     36  00007777770000000000     CA       DEFINE 18                                                      CCGILFD   176
      L     14  00000000007777770000     IH       DEFINE 18                                                      CCGILFD   177
      L      6  00000000000000007700     RJ       DEFINE 6           J REGISTER NUMBER IN SO. FORMAT             CCGILFD   178
             0  00000000000000000077     RI       DEFINE 6           I REGISTER NUMBER IN SO. FORMAT             CCGILFD   179
                                                                                                                 CCGILFD   180
      L     14  00000000000000770000     RK       DEQU   IH,6        K REGISTER NUMBER IN SO. FORMAT             CCGILFD   181
      L     14  00007777777777770000     CAIH     DEQU   IH,36                                                   CCGILFD   182
  
  
                                        **        OPR - MACRO TO DEFINE *IL* INSTRUCTION OPCODES ( OC. SYMBOLS ) CCGILFD   184
                                                                                                                 CCGILFD   185
                                                  MACRO  OPR,N                                                   CCGILFD   186
                                         OC.N     EQU    .OC                                                     CCGILFD   187
                                         .OC      SET    .OC+1                                                   CCGILFD   188
                                         OPR      ENDM                                                           CCGILFD   189
                                                                                                                 CCGILFD   190
                                                  NOREF  .OC                                                     CCGILFD   191
                                   0     .OC      SET    0                                                       CCGILFD   192
                                                                                                                 CCGILFD   193
                                                  SKIP   1           SO SYMBOLS ARE PUT IN STEXT RECORD          CCGILFD   194
                                         OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                        **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.      OPRDEFS     3
  
  
                                        **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS      OPRDEFS     5
                                        *         M IS MAXIMUM STRING LENGTH                                     OPRDEFS     6
                                        *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS        OPRDEFS     7
                                                                                                                 OPRDEFS     8
                                                  MACRO  GETARG,S,N,M,SS                                         OPRDEFS     9
                                         S        MICRO  N-15,M,$SS$                                             OPRDEFS    10
                                         S        MICRO  1,, "S"                                                 OPRDEFS    11
                                         GETARG   ENDM                                                           OPRDEFS    12
                                                                                                                 OPRDEFS    13
                                        **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST    OPRDEFS    14
                                                                                                                 OPRDEFS    15
                                                  MACRO  V=,V,S,L1,L2                                            OPRDEFS    16
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    55
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  OPRDEFS 
  
                                         V        SET    -1                                                      OPRDEFS    17
                                                  ECHO   3,P1=(L1),P2=(L2)                                       OPRDEFS    18
                                                  IFC    EQ,/S/P1/,2                                             OPRDEFS    19
                                         V        SET    P2                                                      OPRDEFS    20
                                                  STOPDUP                                                        OPRDEFS    21
                                                  ERRMI  V           ILLEGAL MACRO PARAM - S                     OPRDEFS    22
                                         V=       ENDM                                                           OPRDEFS    23
                                                                                                                 OPRDEFS    24
                                        **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO           OPRDEFS    25
                                                                                                                 OPRDEFS    26
                                                  MACRO  FUNIT,N,F66,F76                                         OPRDEFS    27
                                         M        IFEQ   .CPU,76,2                                               OPRDEFS    28
                                         N        EQU    F76 F66           DEFAULT TO 6600 UNIT                  OPRDEFS    29
                                         M        SKIP   1                                                       OPRDEFS    30
                                         N        EQU    F66                                                     OPRDEFS    31
                                         FUNIT    ENDM                                                           OPRDEFS    32
  
  
                                        **        FUNCTIONAL UNIT CODES FOR 6600/7600                            OPRDEFS    34
                                        *                                                                        OPRDEFS    35
                                        * UNIT    FUNIT  66,76 UNIT NUMBER                                       OPRDEFS    36
                                                                                                                 OPRDEFS    37
                                                  QUAL   FUNIT                                                   OPRDEFS    38
                                        *PSEUDO   FUNIT  0                                                       OPRDEFS    39
                                         BRANCH   FUNIT  1                                                       OPRDEFS    40
                                         BOOL     FUNIT  2                                                       OPRDEFS    41
                                         SHIFT    FUNIT  3                                                       OPRDEFS    42
                                         IADD     FUNIT  4                                                       OPRDEFS    43
                                         FADD     FUNIT  5                                                       OPRDEFS    44
                                         MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                  OPRDEFS    45
                                         DIVIDE   FUNIT  8                                                       OPRDEFS    46
                                         INC      FUNIT  9                 INC2 = 10 ON A 6600                   OPRDEFS    47
                                         NORM     FUNIT  SHIFT,7                                                 OPRDEFS    48
                                         BJUMP    FUNIT  INC,BRANCH                                              OPRDEFS    49
                                         XJUMP    FUNIT  IADD,BRANCH                                             OPRDEFS    50
                                         LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600        OPRDEFS    51
                                         POPC     FUNIT  DIVIDE,11                                               OPRDEFS    52
                                         PACK     FUNIT  SHIFT,BOOL                                              OPRDEFS    53
                                                  QUAL   *                                                       OPRDEFS    54
  
  
  
                                        **        FORMAT OF THE *OPR* DEFINITION IS -                            OPRDEFS    56
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     5
                                        *                                                                        OPRDEFS    58
                                        *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                        OPRDEFS    59
                                        *         TYPE - INSTRUCTION TYPE ( I - IV )                             OPRDEFS    60
                                        *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"            OPRDEFS    61
                                        *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT       OPRDEFS    62
                                        *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).   OPRDEFS    63
                                        *         T9   -  990 EXECUTION TIME OR "-" FOR SPECIAL INST             CCGA092     6
                                        *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST       OPRDEFS    64
                                        *                FOR B-JUMPS THE STACK TIME IS USED.                     OPRDEFS    65
                                        *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.              OPRDEFS    66
                                        *                TIME FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31      OPRDEFS    67
                                        *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.    OPRDEFS    68
                                        *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION         OPRDEFS    69
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    56
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  OPRDEFS 
  
                                        *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS        OPRDEFS    70
                                        *               AVAILABLE AND DIFFERENT FROM THE FIRST.                  OPRDEFS    71
                                        *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600          OPRDEFS    72
                                        *                ( INCREMENT AND MULTIPLY ).                             OPRDEFS    73
                                        *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )               OPRDEFS    74
                                        *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                     OPRDEFS    75
                                        *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION               OPRDEFS    76
                                        *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )   OPRDEFS    77
                                        *                                                                        OPRDEFS    78
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     7
                                        *         PSEUDO INSTRUCTIONS                                            CCGA092     8
                                         EOQ      OPR (  IV     -   -  1/ 1/1    -     -      -              A ) CCGA092     9
                                         BOS      OPR (  IV     -   -      -     -     -      -                ) CCGA092    10
                                         EOS      OPR (  IV     -   -      -     -     -      -              A ) CCGA092    11
                                         DAR      OPR (  I      -   -      -     -     -      -                ) CCGA092    12
                                         RS       OPR (  II     -   -      -     -     -      -       REGST    ) CCGA092    13
                                         DEF      OPR (  II     -   -      -     -     -      -              D ) CCGA092    14
                                         LAB      OPR (  IV     -   - 31/31/31   -     -      -              B ) CCGA092    15
                                         ENT      OPR (  IV     -   -      -     -     -      -              B ) CCGA092    16
                                        *         REGISTER TO REGISTER MACHINE INSTRUCTIONS                      CCGA092    17
                                         XMT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    18
                                         AND      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    19
                                         OR       OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    20
                                         XOR      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    21
                                         XMTC     OPR (  I      -   -  3/ 3/2  BOOL    -     15  K=J           ) CCGA092    22
                                         STR      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    23
                                         IMP      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    24
                                         EQV      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    25
                                         KLS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    26
                                         KRS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    27
                                         ILS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    28
                                         IRS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    29
                                         NR       OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    30
                                         RNZ      OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    31
                                         UP       OPR (  I      -   -  3/ 3/2  PACK    -     15  2R            ) CCGA092    32
                                         PK       OPR (  I      -   -  3/ 3/2  PACK    -     15                ) CCGA092    33
                                         FA       OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    34
                                         FS       OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    35
                                         DFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    36
                                         DFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    37
                                         RFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    38
                                         RFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    39
                                         IA       OPR (  I    COMM USI 3/ 3/2  IADD    -     15                ) CCGA092    40
                                         IS       OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    41
                                         FM       OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    42
                                         RFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    43
                                         DFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    44
                                         FMA      OPR (  II     -   -  4/ 3/2  SHIFT   -     15  K=J  ZEROP    ) CCGA092    45
                                         FD       OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    46
                                         RFD      OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    47
                                         NOP      OPR (  III    -   -      -     -     -      -       REGST    ) CCGA092    48
                                         CX       OPR (  I      -   -  6/ 8/2  POPC    -     15  K=J           ) CCGA092    49
                                        *         MEMORY REFERENCE AND SET (LOAD IMMEDIATE ) INSTRUCTIONS        CCGA092    50
                                         LD       OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    51
                                         ST       OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    52
                                         STT      OPR (  III    -   -  3/ 3/2  INC    FU1    30                ) CCGA092    53
                                         PLD      OPR (  I      -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    54
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    57
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  OPRDEFS 
  
                                         PST      OPR (  I      -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    55
                                         S        OPR (  II     -   -  3/ 3/2  INC    FU1    30       ZEROP    ) CCGA092    56
                                         SLD      OPR (  I    COMM  -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    57
                                         SST      OPR (  I    COMM  -  3/10/2  INC    FU1    15       STORE    ) CCGA092    58
                                         SA       OPR (  I    COMM  -  3/ 3/2  INC    FU1    15                ) CCGA092    59
                                         SDL      OPR (  I      -   -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    60
                                         SDS      OPR (  I      -   -  3/10/2  INC    FU1    15       STORE    ) CCGA092    61
                                         SS       OPR (  I      -   -  3/ 3/2  INC    FU1    15                ) CCGA092    62
                                         DRL      OPR (  I      -   -  8/ 0/17 LCM     -     15       LOAD2    ) CCGA092    63
                                         DWL      OPR (  I      -   -  3/ 0/3  LCM     -     15       STORE2   ) CCGA092    64
                                        *         CONDITIONAL JUMPS                                              CCGA092    65
                                         RJXJ     OPR (  III    -   -  5/ 9/3  XJUMP   -     30       ECJUMP   ) CCGA092    66
                                         JPX      OPR (  III    -   -  5/11/2  XJUMP   -     30       JUMP   C ) CCGA092    67
                                         JPBB     OPR (  III    -   -  5/ 8/3  BJUMP   -     30       JUMP   C ) CCGA092    68
                                        *         UNCONDITIONAL JUMPS                                            CCGA092    69
                                         JIN      OPR (  III    -   - 29/14/13 INC    FU1    30       UJUMP  A ) CCGA092    70
                                         RJ3      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    71
                                         RJ6      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    72
                                         UJP      OPR (  IV     -   -  5/14/13 BJUMP  FU1    30       UJUMP  A ) CCGA092    73
                                        *         SPECIAL INSTRUCTIONS FOR THE OPTIMIZER                         CCGA092    74
                                         ILD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    75
                                         TLD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    76
                                         TST      OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    77
                                         IAZ      OPR (  I    COMM  -  3/ 3/2  IADD    -     15                ) CCGA092    78
                                         ISZ      OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    79
                                         IM       OPR (  I    COMM  -  7/10/5  MULT   FU1    15                ) CCGA092    80
                                         LDC      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    81
                                         LDV      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    82
                                         CLR      OPR (  II     -   -  4/ 3/2  SHIFT  BOOL   15  K=J  ZEROP    ) CCGA092    83
                                         SXT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    84
                                                                                                                 OPRDEFS   156
                                        *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                OPRDEFS   157
                                                                                                                 OPRDEFS   158
                                         BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                        OPRDEFS   159
                                         RELOPS   MICRO  1,,/EQ,NE,GT,LT,GE,LE/                                  OPRDEFS   160
                                         XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,IR,OR,DF,ID/                            OPRDEFS   161
                                         ^XJUMPS  MICRO  1,,/NZ,ZR,MI,PL,OR,IR,ID,DF/                            OPRDEFS   162
                                                                                                                 OPRDEFS   163
                                                  PURGMAC GETARG,FUNIT,V=,OPR                                    OPRDEFS   164
                                                  ENDX                                                           OPRDEFS   165
                                                                                                                 CCGILFD   196
                                        *         DEFINE SUBINDEX OPCODES FOR THE X AND B JUMPS ( IN *CA* FIELD  CCGILFD   197
                                                                                                                 CCGILFD   198
                                                  NOREF  .Z                                                      CCGILFD   199
                                   0     .Z       SET    0                                                       CCGILFD   200
                                                  ECHO   2,T=("XJUMPS")                                          CCGILFD   201
                                         JC.T     EQU    .Z                                                      CCGILFD   202
                                         .Z       SET    .Z+1                                                    CCGILFD   203
                                                                                                                 CCGILFD   204
                                   0     .Z       SET    0                                                       CCGILFD   205
                                                  ECHO   2,T=("BJUMPS")                                          CCGILFD   206
                                         JC.T     EQU    .Z                                                      CCGILFD   207
                                         .Z       SET    .Z+1                                                    CCGILFD   208
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    58
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  PODEFS
  
                                        **        POD - MACRO TO DEFINE THE *SLIST* INSTRUCTION OPCDOES          CCGILFD   210
                                                                                                                 CCGILFD   211
                                                  MACRO  POD,NAM                                                 CCGILFD   212
                                         OC.NAM   EQU    .OC                                                     CCGILFD   213
                                         .OC      SET    .OC-1                                                   CCGILFD   214
                                                  ENDM                                                           CCGILFD   215
                                                                                                                 CCGILFD   216
                                  -1     .OC      SET    -1                                                      CCGILFD   217
                                                  SKIP   1                                                       CCGILFD   218
                                         PSODEFS  CTEXT  PSODEFS - CCG PSEUDO OPERATION DEFINITIONS              PSODEFS     2
                                        **        PSODEFS - PSEUDO OPERATION DEFINITIONS                         PSODEFS     3
                                                                                                                 PSODEFS     4
                                        *                INITIAL GROUP                                           PSODEFS     5
                                                                                                                 PSODEFS     6
                                         LCC      POD                LOADER CONTROL CARD                         PSODEFS     7
                                         IDENT    POD                IDENT LINE                                  PSODEFS     8
                                         TITLE    POD                TITLE LINE                                  PSODEFS     9
                                         COMNT    POD                COMMENT DIRECTIVE                           PSODEFS    10
                                         LIB      POD                LDSET LIB=LIBNAME                           PSODEFS    11
                                         USBLK    POD                *USEBLK* LINE, TERMINATE INITIAL GROUP      PSODEFS    12
                                                                                                                 PSODEFS    13
                                        *                THE BELOW MAY APPEAR IN *MACRO_S* MACROS                PSODEFS    14
                                                                                                                 PSODEFS    15
                                         USE      POD                SET NEW *USE* BLOCK                         PSODEFS    16
                                         BSS      POD                RESERVE STORAGE                             PSODEFS    17
                                         CON      POD                DEFINE RELOCATABLE DATA WORD                PSODEFS    18
                                         BSSZ     POD                RESERVE STORAGE AND ZERO IT OUT             PSODEFS    19
                                                                                                                 PSODEFS    20
                                        *                THE BELOW MAY NOT APPEAR IN *MACRO_S* MACROS            PSODEFS    21
                                                                                                                 PSODEFS    22
                                         BMI      POD                BEGIN *TS* FORMAT MACHINE INST PROCESSING   PSODEFS    23
                                         DATA     POD                DEFINE DATA WORDS                           PSODEFS    24
                                         DIS      POD                DEFINE BCD DATA IN *H* FORMAT               PSODEFS    25
                                         HOL      POD                DEFINE HOLLERITH DATA ( H, L, OR R FORMAT ) PSODEFS    26
                                         ORG      POD                SET/RESET *ORG* COUNTER                     PSODEFS    27
                                         REPI     POD                REPLICATE DATA                              PSODEFS    28
                                         DCS      POD                DEFINE CHAR STRING AS MICRO NAME            PSODEFS    29
                                         VFDP     POD                CLEAR & ENTER PART WORD OF DATA             PSODEFS    30
                                         APL      POD                DEFINE SUBROUTINE APLIST ENTRY              PSODEFS    31
                                         IOM      POD                DEFINE I/O APLIST ENTRY                     PSODEFS    32
                                         SUB      POD                DEFINE SCM/LCM INST AND ADDR SUB WORD       PSODEFS    33
                                                                                                                 PSODEFS    34
                                        *                THE FOLLOWING PSEUDO ARE USED IN *MACRO_S* ONLY         PSODEFS    35
                                                                                                                 PSODEFS    36
                                         AAC      POD                ADD ADDRESS CONSTANT  ( MAY BE CA OF CON. ) PSODEFS    37
                                         ACI      POD                ADD CONSTANT INFO                           PSODEFS    38
                                         ARI      POD                ADD RELOCATABLE INFO                        PSODEFS    39
                                         ASV      POD                ADD STRING VALUE                            PSODEFS    40
                                         BTW      POD                BEGIN TEXT WORD                             PSODEFS    41
                                         ELSE     POD                ELSE                                        PSODEFS    42
                                         IFT      POD                ASSEMBLY TIME IF TEST                       PSODEFS    43
                                         MIC      POD                DEFINE MICRO STRING ( @ 10 CHARS )          PSODEFS    44
                                         SET      POD                DEFINE SET SYMBOL VALUE                     PSODEFS    45
                                                                                                                 PSODEFS    46
                                        *                SOME EQUIVALENCES TO THE *IL* OPCODES                   PSODEFS    47
                                                                                                                 PSODEFS    48
                                        * END     =      EOQ         END OF INPUT                                PSODEFS    49
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    59
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  PODEFS
  
                                        * EOB     =      EOS         END OF BUFFER ON INPUT                      PSODEFS    50
                                                                                                                 PSODEFS    51
                                                  PURGMAC POD                                                    PSODEFS    52
                                                  ENDX                                                           PSODEFS    53
  
  
  
                                                                                                                 CCG16       3
                                                  DESCRIBE CF.,60                                                CCG16       4
      L     73  40000000000000000000     JP       DEFINE 1                                                       CCG16       5
                                                  DEFINE 11                                                      CCG16       6
      L     36  00007777770000000000     FROM     DEFINE 18          BLOCK NUMBER OF PRED                        CCG16       7
                                                  DEFINE 12                                                      CCG16       8
             0  00000000000000777777     TO       DEFINE 18          BLOCK NUMBER OF SUCC                        CCG16       9
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    60
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  BIT 
  
                                        **        BI. - DEFINE FIRST WORD OF A 2 WORD ENTRY IN *BIT*             CCGTEXT   372
                                                                                                                 CCGTEXT   373
                                                  DESCRIBE BI.,60                                                CCGTEXT   374
      L     73  40000000000000000000     RB       DEFINE 1           REACHABLE BLOCK ( SET FOR PROG BLOCKS ONLY  CCGTEXT   375
      L     72  20000000000000000000     CB       DEFINE 1           CODED ( NOW IN *MCG/SII* FORMAT )           CCGTEXT   376
      L     71  10000000000000000000     IL       DEFINE 1           INITIAL LABEL                               CCGTEXT   377
      L     70  04000000000000000000     FJ       DEFINE 1           FINAL *UJP*                                 CCGTEXT   378
      L     67  02000000000000000000     LJP      DEFINE 1           BLOCKS CONSISTS OF A *LAB/UJP* ONLY         CCGTEXT   379
      L     66  01000000000000000000     HN       DEFINE 1           =1 IF HEADER NODE OF A INTERVAL & *SCR*     CCGTEXT   380
      L     65  00400000000000000000     FTH      DEFINE 1           =1 IF A *HB* THAT IS FROM A *FTH* LOOP      CCGTEXT   381
      L     46  00377774000000000000     OLN      DEFINE 15          FOR HB ONLY, BN OF HB CONTAINING OUTER LOOP CCGTEXT   382
      L     44  00000003000000000000     PC       DEFINE 2           PARCEL COUNT                                CCGTEXT   383
      L     22  00000000777777000000     FLN      DEFINE 18          FIRST LINE NUMBER ( PROG BLOCKS ONLY )      CCGTEXT   384
             0  00000000000000777777     BVI      DEFINE 18          *BVT* INDEX TO BIT VECTORS                  CCGTEXT   385
                                                                                                                 CCGTEXT   386
      L     44  00377777000000000000     PII      DEQU   PC,17       INDEX TO *PSI* POST STORE INFO ( "0 )       CCGTEXT   387
      L     22  00000000777777000000     PBN      DEQU   FLN         PROG BLOCK INDEX OF HOLDING BLOCK           CCGTEXT   388
                                        *                            *BIT* INDEX OF HEADER NODE OF LOOP THAT IT  CCGTEXT   389
                                        *                            IS THE HOLDING BLOCK OF                     CCGTEXT   390
  
  
  
                                        **        ML. - MOD LIST TABLE ENTRY FORMAT                              CCGTEXT   392
                                        *                                                                        CCGTEXT   393
                                        *         *MLT* IS THE *MOD* LIST INDEX TABLE.  *MOD* CONSISTS OF RLIST  CCGTEXT   394
                                        *         INSTRUCTIONS ( 4 WORDS/INSTRUCTION ), AND THE FIRST ENTRY IS   CCGTEXT   395
                                        *         A DUMMY *BOS*.                                                 CCGTEXT   396
                                        *         OPERANDS OF INSTRUCTIONS IN *MOD* WHICH REFERENCE INSTRUCTIONS CCGTEXT   397
                                        *         IN *SEQ* HAVE BIT 15 OF THE R-NUMBER SET ( R+100000B ) .       CCGTEXT   398
                                        *                                                                        CCGTEXT   399
                                        *         FOR FURTHER INFORMATION ONE MAY LOOK AT *MPB* IN *GPO*.        CCGTEXT   400
                                                                                                                 CCGTEXT   401
                                                  DESCRIBE ML.,60    MCW(DEL,II,NI,MTI)                          CCGTEXT   402
      L     73  40000000000000000000     DEL      DEFINE 1           DELETE FLAG                                 CCGTEXT   403
                                                  DEFINE 5                                                       CCGTEXT   404
      L     44  00777777000000000000     II       DEFINE 18          INSERT INDEX ( IN *SEQ* )                   CCGTEXT   405
      L     22  00000000777777000000     NI       DEFINE 18          N. INSTRUCTIONS TO BE INSERTED              CCGTEXT   406
             0  00000000000000777777     MTI      DEFINE 18          *MOD* TABLE INDEX                           CCGTEXT   407
  
  
  
                                        **        T. - TEMP EQUIVALENCE TABLE FORMAT                             CCGTEXT   409
                                                                                                                 CCGTEXT   410
                                                  DESCRIBE T.,60     TETW(FLAGS,ITI,BI,CA)                       CCGTEXT   411
      L     73  40000000000000000000     INV      DEFINE 1           =1 IF *INV* TEMP                            CCGTEXT   412
      L     72  20000000000000000000     EQV      DEFINE 1           EQV TO ANOTHER *TET*                        CCGTEXT   413
      L     71  10000000000000000000     FA       DEFINE 1           FINAL ASSIGNMENT OF *CA* ( *POST* )         CCGTEXT   414
      L     70  04000000000000000000     CAL      DEFINE 1           CA FIELD LOCKED                             CCGA049    12
      L     67  02000000000000000000     RF       DEFINE 1           =1 IF SUBSCRIPT USE IN DEFINING LOOP        CCG21       4
      L     66  01000000000000000000     BIP      DEFINE 1           BASE MEMBER OF *IP* CLASS                   CCGTEXT   416
      L     44  00777777000000000000     ITI      DEFINE 18          INDEX TO INC FORMULA INFO IN *IIT* ( ^INV ) CCGTEXT   417
      L     22  00000000777777000000     BI       DEFINE 18          INDEX IN BLOCK WHERE *LD* GOES              CCGTEXT   418
             0  00000000000000777777     CA       DEFINE 18          BIAS OF TST* ( SET IN SQZ * )               CCGTEXT   419
                                                                                                                 CCGTEXT   420
      L     44  00777777000000000000     HBN      DEQU   ITI         BN OF HB (LOOP) THAT IT. IS ASSOC WITH      CCGTEXT   421
      L     22  00000000777777000000     REG      DEQU   BI          REGISTER THAT IT IS IN ( *MTA* )            CCGTEXT   422
      L     44  01777777000000000000     IPF      DEQU   ITI,19      *IP* FIELDS                                 CCGTEXT   423
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    61
        CCG *IL* FIELD DEFINITIONS AND TABLE FORMATS                  LC. 
  
                                        **        LC. - LABEL CHANGE TABLE FOR MULTI PREDECESSOR LOOPS           CCGTEXT   425
                                                                                                                 CCGTEXT   426
                                                  DESCRIBE LC.                                                   CCGTEXT   427
                                                  DEFINE 6                                                       CCGTEXT   428
      L     44  00777777000000000000     NEXT     DEFINE 18          LINK TO NEXT ON CHAIN, 0 IF NONE            CCGTEXT   429
      L     22  00000000777777000000     GLN      DEFINE 18          H FIELD OF GL VALUE OF LABEL                CCGTEXT   430
             0  00000000000000777777     HBN      DEFINE 18          BN OF HB THAT LABEL IS DEFINED IN           CCGTEXT   431
  
  
  
                                        **        WRITEP - WRITE PSEUDO OP WORD TO *SLIST* FILE                  CCGTEXT   442
                                        *                                                                        CCGTEXT   443
                                        *         ENTRY  (X6) = LOW 48 BITS OF PSEUDO OP WORD                    CCGTEXT   444
                                        *                                                                        CCGTEXT   445
                                        *         WRITEP OPNAME                                                  CCGTEXT   446
                                                                                                                 CCGTEXT   447
                                         WRITEP   MACRO  OPCD                                                    CCGTEXT   448
                                                  R=     B3,OC.OPCD                                              CCGTEXT   449
                                                  RJ     =XWPW#                                                  CCGTEXT   450
                                                  ENDM                                                           CCGTEXT   451
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    62
        HOST DEFINED SYMBOLS AND MICROS                               HC. 
  
                                        *         GET *HCDEFS* AND *SYMDEFS* FROM THE HOST OLDPL.                CCGTEXT   453
                                                                                                                 CCGTEXT   454
                                                  QUAL   HOST                                                    CCGTEXT   455
                                                                                                                 HCDEFS      2
                                   2     HC$ID    EQU    2                                                       HCDEFS      3
                                   1     HC$FPAS  EQU    1                                                       HCDEFS      4
                                   7     HC$MCIS  EQU    7                                                       HCDEFS      5
                                   0     HC$RJXJ  EQU    0                                                       HCDEFS      6
                                   1     HC$RJ6   EQU    1                                                       HCDEFS      7
                                         HC$RJTBN MICRO  1,,/S=TA0/                                              HCDEFS      8
                                   0     HC$ROL   EQU    0                                                       HCDEFS      9
                                         HC$FRTP  MICRO  1,,/GL,AP,IO,LP/                                        FC50457     9
                                   4     HC$NDAT  EQU    4                                                       HCDEFS     11
                                   1     HC$STP   EQU    1                                                       HCDEFS     12
                                   0     HC$IA    EQU    0           DONT USE CGIA                               HCDEFS     13
                                   0     HC$2OC   EQU    0                                                       HCDEFS     14
                                         HC$FLB   MICRO  1,,/DATA./                                              HCDEFS     15
                                   1     HC$LNT   EQU    1                                                       HCDEFS     16
                                         HC$UDVB  MICRO  1,,/DATA./                                              HCDEFS     17
                                         LPNAME$  MICRO  1,,/FTN   /                                             HCDEFS     18
                                         LPN$     MICRO  1,,/FTN/                                                HCDEFS     19
                                         VER$     MICRO  1,,/5.0/                                                HCDEFS     20
                                         MODLVL$  MICRO  1,5,/"MODLVL"     /                                     HCDEFS     21
                                   0     HC$NXLB  EQU    0                                                       FC5A399     4
                                                  QUAL                                                           CCGTEXT   457
                                                                                                                 CCGTEXT   458
                                   7     HC$MCIS  EQU    /HOST/HC$MCIS                                           CCGTEXT   459
                                                                                                                 CCGTEXT   460
                                        *         HC= - MACRO TO EQUATE HC$ SYMBOLS TO HC. SYMBOLS WHICH CCG     CCGTEXT   461
                                        *         REFERENCES.                                                    CCGTEXT   462
                                                                                                                 CCGTEXT   463
                                         HC=      MACRO  A                                                       CCGTEXT   464
                                                  IF     DEF,/HOST/HC$A,2                                        CCGTEXT   465
                                         HC.A     EQU    /HOST/HC$A                                              CCGTEXT   466
                                                  SKIP   4                                                       CCGTEXT   467
                                                  IF     -MIC,HC$A,2                                             CCGTEXT   468
                                                  ERR    HC$A NOT DEFINED BY THE HOST                            CCGTEXT   469
                                                  SKIP   1                                                       CCGTEXT   470
                                         HC.A     MICRO  1,,^"HC$A"^                                             CCGTEXT   471
                                                  ENDM                                                           CCGTEXT   472
                                                                                                                 CCGTEXT   473
                                                  HC=    FLB                                                     CCGTEXT   474
                                                  HC=    NXLB                                                    CCGA072     6
                                                  HC=    FPAS                                                    CCGTEXT   475
                                                  HC=    FRTP                                                    CCGTEXT   476
                                                  HC=    IA                                                      CCG18       2
                                                  HC=    ID                                                      CCGTEXT   478
                                                  HC=    LNT                                                     CCGTEXT   479
                                                  HC=    MCIS                                                    CCGTEXT   480
                                                  HC=    RJXJ                                                    CCGTEXT   483
                                                  HC=    RJTBN                                                   CCGTEXT   484
                                                  HC=    RJ6                                                     CCGTEXT   485
                                                  HC=    ROL                                                     CCGTEXT   486
                                                  HC=    STP                                                     CCG16      10
                                                  HC=    UDVB                                                    CCGTEXT   487
                                                                                                                 CCGTEXT   488
                                                  HC=    2OC                                                     CCG16      11
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    63
        HOST DEFINED SYMBOLS AND MICROS                               HC. 
  
                                                                                                                 CCGTEXT   489
                                                  ECHO   2,Z=(MDL,MODLVL,LPNAME,LPN,VER)                         CCGTEXT   490
                                                  IF     MIC,Z$,1                                                CCGTEXT   491
                                         Z        MICRO  1,,^"Z$"^                                               CCG16      12
                                        *         GET SYMDEFS                                                    CCGTEXT   493
                                                                                                                 CCGTEXT   494
                                   5     .FTN     =      5                                                       FC5A275     5
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    64
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              COMSSYM 
  
                                        ***       COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.               COMSSYM     4
                                        *                                                                        COMSSYM     5
                                        *         THIS COMDECK CONTAINS SYMBOL DEFINITIONS FOR THE               COMSSYM     6
                                        *         FORTRAN 5 SYMBOL TABLE.                                        COMSSYM     7
  
  
  
  
                                        ***       T.SYM - SYMBOL NAMES AND ATTRIBUTES.                           COMSSYM     9
                                        *                                                                        COMSSYM    10
                                        *         THE SYMBOL TABLE CONTAINS ALL SYMBOLS REFERENCED BY THE        COMSSYM    11
                                        *         PROGRAMMER OR INVENTED BY THE COMPILER, AS WELL AS ALL         COMSSYM    12
                                        *         STATEMENT LABELS.                                              COMSSYM    13
                                        *                                                                        COMSSYM    14
                                        *         A SYMBOL TABLE ENTRY CONSISTS OF 3 WORDS, CALLED THE           COMSSYM    15
                                        *         (WA.), (WB.), AND (WC.) WORDS.  THE FIRST WORD IS              COMSSYM    16
                                        *         THE SAME FOR SYMBOLS AND STATEMENT LABELS.  INTERPRETATION     COMSSYM    17
                                        *         OF THE SECOND AND THIRD WORDS DEPENDS ON WB.LAB -- IT IS ZERO  COMSSYM    18
                                        *         FOR A SYMBOL, AND ONE FOR A LABEL.  THE FIELDS CONTAINED IN A  COMSSYM    19
                                        *         SYMBOL ENTRY ARE DESCRIBED BELOW, FOLLOWED BY THE DESCRIPTION  COMSSYM    20
                                        *         OF A LABEL ENTRY.                                              COMSSYM    21
                                        *                                                                        COMSSYM    22
                                        *                                                                        COMSSYM    23
                                        *         SYMBOL TABLE - SYMBOL FORMAT                                   COMSSYM    24
                                        *                                                                        COMSSYM    25
                                        *                                                                        COMSSYM    26
                                        *         1ST WORD - WA.                                                 COMSSYM    27
                                        *                                                                        COMSSYM    28
                                        *         +-----------------------------------------+-----------------+  COMSSYM    29
                                        *         +                                         +                 +  COMSSYM    30
                                        *         +      S  Y  M  B  O  L                   +  HASH POINTER   +  COMSSYM    31
                                        *         +                                         +                 +  COMSSYM    32
                                        *         +-----------------------------------------+-----------------+  COMSSYM    33
                                        *                             42                             18          COMSSYM    34
                                        *                                                                        COMSSYM    35
                                        *                                                                        COMSSYM    36
                                        *         2ND WORD - WB.                                                 COMSSYM    37
                                        *                                                                        COMSSYM    38
                                        *         +------------+--+-----------+-----------------------+-+-+---+  COMSSYM    39
                                        *         +            + L+    BASE   +                       +C+L+ M +  COMSSYM    40
                                        *         +   POINTER  + E+ --------- +   C L A S S   B I T S +G+A+ O +  COMSSYM    41
                                        *         +            + V+    FPNO   +                       +S+B+ D +  COMSSYM    42
                                        *         +------------+--+-----------+-----------------------+-+-+---+  COMSSYM    43
                                        *               13       2      12                28           1 1  3    COMSSYM    44
                                        *                                                                        COMSSYM    45
                                        *                                                                        COMSSYM    46
                                        *         3RD WORD - WC.                                                 COMSSYM    47
                                        *                                                                        COMSSYM    48
                                        *         +----------+-----------------+-+-+---+----------------------+  COMSSYM    49
                                        *         +   FUNI   +   CHAR LENGTH   +C+/+ B +                      +  COMSSYM    50
                                        *         + -------- + --------------- +T+/+ C +         RA           +  COMSSYM    51
                                        *         + REL BLK  +    ENTRY GL     +Y+/+ P +                      +  COMSSYM    52
                                        *         +----------+-----------------+-+-+---+----------------------+  COMSSYM    53
                                        *              12             18        1 1  4           24              COMSSYM    54
                                        *                                                                        COMSSYM    55
                                        *                                                                        COMSSYM    56
                                        *                                                                        COMSSYM    57
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    65
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              T.SYM 
  
                                        *         SYMBOL TABLE - STATEMENT LABEL FORMAT                          COMSSYM    58
                                        *                                                                        COMSSYM    59
                                        *                                                                        COMSSYM    60
                                        *         1ST WORD - WA.                                                 COMSSYM    61
                                        *                                                                        COMSSYM    62
                                        *         +-----------------------------------------+-----------------+  COMSSYM    63
                                        *         +                                         +                 +  COMSSYM    64
                                        *         +   S T A T E M E N T       L A B E L     +   HASH POINTER  +  COMSSYM    65
                                        *         +                                         +                 +  COMSSYM    66
                                        *         +-----------------------------------------+-----------------+  COMSSYM    67
                                        *                             42                             18          COMSSYM    68
                                        *                                                                        COMSSYM    69
                                        *                                                                        COMSSYM    70
                                        *         2ND WORD - WB. (NON FORMAT LABEL)                              FC50096     6
                                        *                                                                        COMSSYM    72
                                        *         +------------------+--------+------------------------+-+-+--+  FC50096     7
                                        *         +    LINE NUMBER   +////////+                        +C+L+//+  FC50096     8
                                        *         +    OF FIRST      +////////+         CLASS          +G+A+//+  FC50096     9
                                        *         +    REFERENCE     +////////+                        +S+B+//+  FC50096    10
                                        *         +------------------+--------+------------------------+-+-+--+  FC50096    11
                                        *                   18           9               28              1 1  3  FC50096    12
                                                                                                                 FC50096    13
                                        *         2ND WORD - WB. (FORMAT LABEL)                                  FC50096    14
                                                                                                                 FC50096    15
                                        *         +--------------+------------+------------------------+-+-+--+  FC50096    16
                                        *         +//////////////+   FORMAT   +                        +C+L+//+  FC50096    17
                                        *         +//////////////+   LENGTH   +         CLASS          +G+A+//+  FC50096    18
                                        *         +//////////////+            +                        +S+B+//+  FC50096    19
                                        *         +--------------+------------+------------------------+-+-+--+  FC50096    20
                                        *                15            12                28              1 1  3  FC50096    21
                                        *                                                                        COMSSYM    79
                                        *                                                                        COMSSYM    80
                                        *         3RD WORD - WC.                                                 COMSSYM    81
                                        *                                                                        COMSSYM    82
                                        *         +-----------+-----------------+-----+-----------------------+  COMSSYM    83
                                        *         +           +                 +/////+                       +  COMSSYM    84
                                        *         +  REL BLK  +  LINE NUMBER    +/////+         RA            +  FC50096    22
                                        *         +           +                 +/////+                       +  FC50096    23
                                        *         +-----------+-----------------+-----+-----------------------+  COMSSYM    87
                                        *              12             18           6            24               COMSSYM    88
                                                                                                                 COMSSYM    89
                                                                                                                 COMSSYM    90
                                   7     PSYM     EQU    7           LOG(2) OF SYMBOL TABLE HASH BASE            COMSSYM    91
                                   7     PSYM     DECMIC PSYM        ( = NUMBER OF BITS TO HASH)                 COMSSYM    92
                                 200     Z.HASH   EQU    1S"PSYM"    LENGTH OF HASH TABLE                        COMSSYM    93
                                                                                                                 COMSSYM    94
                                   3     Z=SYM    EQU    3           WORDS PER ENTRY                             COMSSYM    95
                                   6     CHAR     EQU    6                                                       COMSSYM    96
                                                                                                                 COMSSYM    97
                                                                                                                 COMSSYM    98
                                                  DESCRIBE WA.,,,0                                               COMSSYM    99
                                                                                                                 COMSSYM   100
      L     22  77777777777777000000     SYM      DEFINE 7*CHAR      SYMBOL NAME     (-0L- FORMAT)               COMSSYM   101
      L     22  77777777777777000000     NAME     DEQU   SYM                                                     COMSSYM   102
                                                  REDEF  SYM                                                     COMSSYM   103
                                                  DEFINE 1*CHAR                                                  COMSSYM   104
      L     30  00777777777700000000     STL      DEFINE 5*CHAR      STATEMENT LABEL (-0R- FORMAT)               COMSSYM   105
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    66
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              T.SYM 
  
                                                  DEFINE 1*CHAR                                                  COMSSYM   106
      L     21  00000000000000400000     NFP      DEFINE 1           CANNOT BE AN FP                             FC5A192     5
                                                  DEFINE 5                                                       FC5A192     6
             0  00000000000000007777     HASH     DEFINE 12                                                      FC5A192     7
                                                  REDEF  HASH                                                    COMSSYM   108
             0  00000000000000007777     BN       DEFINE 12                                                      COMSSYM   110
                                                                                                                 COMSSYM   111
                                                                                                                 COMSSYM   112
                                         VERR.    MICRO  1,, ILL-SYM       NO SUCH USER SYMBOL                   COMSSYM   113
  
  
  
  
                                        **        SYM/WB - ATTRIBUTE WORD.                                       COMSSYM   115
                                                                                                                 COMSSYM   116
                                                                                                                 COMSSYM   117
                                                  DESCRIBE WB.,,,1                                               COMSSYM   118
                                                                                                                 COMSSYM   119
      L    152  77777700000000000000     FR       DEFINE 18          (LAB) = LINE NUMBER OF FIRST REFERENCE      FC50096    24
                                                                                                                 FC50096    25
                                                  REDEF  FR                                                      FC50096    26
      L    155  77777000000000000000     STFP     DEFINE 15          (STF) = T.STF INDEX OF DEFINITION SKELETON  COMSSYM   120
      L    155  77777000000000000000     DI       DEQU   STFP        (DOGL) DO INDEX VARIABLE ORDINAL            COMSSYM   122
                                                                                                                 COMSSYM   123
                                                  REDEF  STFP                                                    COMSSYM   124
      L    157  77774000000000000000     PNT      DEFINE 13          (ARY)  = T.DIM INDEX OF DIMS                COMSSYM   125
                                                                     (NLST GRP NAME) = T.NLST INDEX OF GROUP     COMSSYM   126
      L    157  03774000000000000000     JPF      DEQU   PNT,9       (INTF) = F.INTF INDEX                       COMSSYM   127
      L    155  00003000000000000000     LEVN     DEFINE 2           LEVEL NUMBER                                COMSSYM   128
      L    141  00000777700000000000     BASE     DEFINE 12          SYMORD OF EQUIVALENCE CLASS BASE MEMBER     COMSSYM   129
      L    141  00000077700000000000     FPNO     DEQU   BASE,9      FORMAL PARAMETER NUMBER                     COMSSYM   130
      L    141  00000077700000000000     FPO      DEQU   FPNO                                                    COMSSYM   131
      L    141  00000777700000000000     FMTL     DEQU   BASE        (FDEF) = FORMAT LENGTH, CHARACTERS          COMSSYM   132
      L    141  00000777700000000000     TL       DEQU   BASE        (DOGL) ORDINAL OF DO TERMINAL LABEL         COMSSYM   133
      L    105  00000000077777777740     CLAS     DEFINE 28          SYMBOL CLASS BITS (SEE BELOW)               COMSSYM   134
      L    104  00000000000000000020     CGS      DEFINE             COMPILER GENERATED SYMBOL                   COMSSYM   135
      L    103  00000000000000000010     LAB      DEFINE             = 0 FOR A SYMBOL                            COMSSYM   136
                                                                     = 1 FOR A LABEL   (SEE BELOW)               COMSSYM   137
      L    100  00000000000000000007     MODE     DEFINE 3           MODE (TYPE)       (SEE BELOW)               COMSSYM   138
                                                                                                                 FC50096    27
                                                  REDEF  PNT,8       *PROPERTY* BITS FOR FILES                   COMSSYM   139
      L    173  40000000000000000000     FMT      DEFINE             A FORMATTED OPERATION APPEARED              COMSSYM   140
      L    172  20000000000000000000     BIN      DEFINE             A NON-FORMATTED OPERATION APPEARED          COMSSYM   141
      L    171  10000000000000000000     DIR      DEFINE             A DIRECT-ACCESS OPERATION APPEARED          COMSSYM   142
      L    170  04000000000000000000     SEQ      DEFINE             A SEQUENTIAL OPERATION APPEARED             COMSSYM   143
      L    167  02000000000000000000     BUF      DEFINE             A BUFFER-IN OR BUFFER-OUT OPERATION         COMSSYM   144
      L    166  01000000000000000000     EQU      DEFINE             AN EQUIVALENCED FILE                        COMSSYM   145
      L    165  00400000000000000000     AUX      DEFINE             AN AUXILLARY I/O OPERATION APPEARED         COMSSYM   146
      L    164  00200000000000000000     UDC      DEFINE             FILE UNIT DESIGNATOR IS CONSTANT            COMSSYM   147
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    67
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              WB.CLAS 
  
                                        **        WB.CLAS - CLASSIFICATION OF SYMBOL.                            COMSSYM   149
                                        *                                                                        COMSSYM   150
                                        *         WHEN (WB.LAB) = 0, THE (WB.CLAS) IS INTERPRETED AS FOLLOWS --  COMSSYM   151
                                        *                                                                        COMSSYM   152
                                        *         IF ANY OF THESE ARE SET, (WB.VAR) WILL BE SET --               COMSSYM   153
                                        *                BMEM, EQV, ARY, COM, MAT, SAVE, LCM, LEV, VDS           FC50252     6
                                        *         IF ANY OF THESE ARE SET, (WB.NVAR) WILL BE SET --              COMSSYM   156
                                        *                INTF, GENF, XTER, DEXT, SUB, FUN, NLST, ENT, PARM       FC50252     7
                                        *         ATTRIBUTE OR PROPERTY.                                         COMSSYM   158
                                                                                                                 COMSSYM   159
                                                                                                                 COMSSYM   160
                                                  REDEF  CLAS                                                    COMSSYM   161
      L    140  00000000040000000000     SFA      DEFINE             STATEMENT FUNCTION DUMMY ARGUMENT           FC50326     7
      L    137  00000000020000000000     1REF     DEFINE             STRAY NAME                                  COMSSYM   163
      L    136  00000000010000000000     MAT      DEFINE             MATERIALIZED, STORAGE REQUIRED              COMSSYM   164
      L    135  00000000004000000000     SAVE     DEFINE             DECLARED *SAVE*                             COMSSYM   165
      L    134  00000000002000000000     NLST     DEFINE             NAMELIST GROUP NAME                         COMSSYM   166
                                                                                                                 COMSSYM   167
                                        *         DATR - ATTRIBUTES DURING DECLARATIVES                          COMSSYM   168
      L    133  00000000001000000000     LEV      DEFINE             LEVELED -- (WB.LEVN) = LEVEL NUMBER         COMSSYM   169
      L    132  00000000000400000000     VDS      DEFINE             VARIABLE DIMENSION MUST BE INTEGER, FP/COM  FC50252     8
      L    131  00000000000200000000     TYP      DEFINE             WAS EXPLICITLY TYPED                        COMSSYM   171
      L    130  00000000000100000000     AGN      DEFINE             VARIABLE APPEARED IN *ASSIGN* STATEMENT     FC5A184     5
                                                                                                                 COMSSYM   173
      L    127  00000000000040000000     INTF     DEFINE             DECLARED *INTRINSIC*                        COMSSYM   174
      L    126  00000000000020000000     DEXT     DEFINE             DECLARED *EXTERNAL*                         COMSSYM   175
      L    125  00000000000010000000     GENF     DEFINE             GENERIC FUNCTION NAME                       COMSSYM   176
      L    124  00000000000004000000     LDO      DEFINE             LOAD-ONLY VARIABLE                (CCG DAP) COMSSYM   177
      L    124  00000000000004000000     SFX      DEQU   LDO         USED WHILE PARSING ST. FUNCTIONS            COMSSYM   178
      L    124  00000000000004000000     AGO2     DEQU   LDO         VARIABLE WAS OBJECT OF ASSIGNED GOTO        FC50252     9
      L    124  00000000000004000000     AL       DEQU   LDO         LEVN SET AUTOMATICALLY(DECL PHASE ONLY)     FC5A444    30
      L    123  00000000000002000000     BMEM     DEFINE             BASE MEMBER OF AN EQUIVALENCE CLASS         COMSSYM   179
      L    122  00000000000001000000     LOCF     DEFINE             IRREDUCIBLE REFS                  (CCG DAP) COMSSYM   180
                                                                                                                 COMSSYM   181
      L    115  00000000000000760000     CCGV     DEFINE 5           ORDERED FIELD                     (CCG DAP) COMSSYM   182
                                                  REDEF  CCGV                                                    COMSSYM   183
      L    121  00000000000000400000     LCM      DEFINE             RESIDES IN LARGE CORE                       COMSSYM   184
      L    120  00000000000000200000     FP       DEFINE             IS A FORMAL PARAMETER                       COMSSYM   185
      L    120  00000000000000600000     AET      DEQU   FP,2                                                    COMSSYM   186
      L    117  00000000000000100000     COM      DEFINE             IS IN A /COMMON/ BLOCK                      COMSSYM   187
      L    116  00000000000000040000     EXT      DEFINE             EXTERNAL NAME                               COMSSYM   188
      L    115  00000000000000020000     ENT      DEFINE             ENTRY POINT                                 COMSSYM   189
                                                                                                                 COMSSYM   190
      L    114  00000000000000010000     FUN      DEFINE             FUNCTION = SEE (WC.FUNT)                    COMSSYM   191
      L    113  00000000000000004000     SUB      DEFINE             SUBROUTINE                                  COMSSYM   192
      L    112  00000000000000002000     ARY      DEFINE             ARRAY                                       COMSSYM   193
      L    111  00000000000000001000     EQV      DEFINE                                                         COMSSYM   194
      L    110  00000000000000000400     PARM     DEFINE             NAME IS A *PARAMETER*                       COMSSYM   195
      L    110  00000000000000000400     MDF      DEQU   PARM        *MUST DEFINE* FLAG (VALUE. SYMBOLS ONLY)    FC5A191     5
      L    107  00000000000000000200     DEF      DEFINE             (VAR) = GETS STORED INTO                    COMSSYM   196
                                                                     (SUB, FUN) = ARG COUNT DETERMINED           COMSSYM   197
      L    106  00000000000000000100     NVAR     DEFINE             NOT A VARIABLE                              COMSSYM   198
      L    105  00000000000000000040     VAR      DEFINE             IS A VARIABLE                               COMSSYM   199
                                                                                                                 COMSSYM   200
                                         M.SYSXT  MICRO  1,, NVAR,EXT,CGS  ATTRIBUTES FOR FCL ROUTINES           COMSSYM   201
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    68
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              WB.MODE 
  
                                        **        WB.MODE - FORTRAN TYPE OF SYMBOL.                              COMSSYM   203
                                                                                                                 COMSSYM   204
                                                                                                                 COMSSYM   205
                                   7     MD.MODE  EQU    7           UPPER LIMIT VALUE OF MODE                   COMSSYM   206
                                                                                                                 COMSSYM   207
                                   0     M.BOOL   EQU    0           BOOLEAN                                     COMSSYM   208
                                   1     M.LOG    EQU    1           LOGICAL                                     COMSSYM   209
                                   2     M.INT    EQU    2           INTEGER                                     COMSSYM   210
                                   3     M.REAL   EQU    3           REAL                                        COMSSYM   211
                                   4     M.DBL    EQU    4           DOUBLE PRECISION                            COMSSYM   212
                                   5     M.CPLX   EQU    5           COMPLEX                                     COMSSYM   213
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          COMSSYM   214
                                   6     M.CHAR   EQU    6           CHARACTER                                   COMSSYM   215
                                                                                                                 COMSSYM   216
                                   7     N.TYPE   EQU    M.CHAR+1    NUMBER OF TYPES                             COMSSYM   217
  
  
  
  
                                        **        WB.CLAS - CLASSIFICATION OF STATEMENT LABEL.                   COMSSYM   219
                                        *                                                                        COMSSYM   220
                                        *         WHEN (WB.LAB) = 1, THE (WB.CLAS) IS INTERPRETED AS FOLLOWS --  COMSSYM   221
                                                                                                                 COMSSYM   222
                                                                                                                 COMSSYM   223
                                                  REDEF  CLAS                                                    COMSSYM   224
                                                  DEFINE             (RESERVED FOR UNTERM DO LAB)                COMSSYM   225
      L    137  00000000020000000000     1REF     DEFINE             STRAY NAME                                  COMSSYM   226
      L    136  00000000010000000000     ALRN     DEFINE 1           LABEL REFERENCED BY A *ALTERNATE RETURN*    FC51356     7
      L    135  00000000004000000000     GOTO     DEFINE 1           LABEL REFERENCED(NOT AN *ALTERNATE RETURN*) FC51356     8
      L    134  00000000002000000000     INDO     DEFINE             LABEL IN DO WHICH HAS EXIT                  FC50015     8
      L    133  00000000001000000000     NIN      DEFINE             DO LOOP HAS (POSSIBLE) NEG. INCREMENT       COMSSYM   228
      L    132  00000000000400000000     DLPE     DEFINE             LABEL IS POSSIBLE ENTRY OF DO LOOP          COMSSYM   229
      L    131  00000000000200000000     DLC      DEFINE             DO LOOP HAS BEEN CLOSED                     COMSSYM   230
      L    130  00000000000100000000     LC       DEFINE             CCG INTERNAL                      (CCG DAP) COMSSYM   231
      L    127  00000000000040000000     NDEF     DEFINE             APPEARED AS LABEL ON NON-EXECUTABLE         COMSSYM   232
      L    126  00000000000020000000     UDEF     DEFINE             UNDEFINED                                   COMSSYM   233
                                                                                                                 COMSSYM   234
                                        *                                  (ATTRIBUTES OF FORMATS)               COMSSYM   235
      L    125  00000000000010000000     FREF     DEFINE             REFERENCED AS FORMAT                        COMSSYM   236
      L    124  00000000000004000000     FDEF     DEFINE             DEFINED AS FORMAT                           COMSSYM   237
      L    123  00000000000002000000     PRD      DEFINE             DO PARAMETER RE-DEFINED IN THIS LOOP        COMSSYM   238
                                                                                                                 COMSSYM   239
                                        *                                  (DO-LOOP PROPERTIES)                  COMSSYM   240
      L    116  00000000000001740000     DLNO     DEFINE 5           (CCG)  LOOP IS NOT OPTIMIZABLE              COMSSYM   241
                                                  REDEF  DLNO                                                    COMSSYM   242
      L    122  00000000000001000000     DLBB     DEFINE             LOOP CONTAINS A BACKWARD BRANCH             COMSSYM   243
      L    121  00000000000000400000     DLEN     DEFINE             LOOP CONTAINS AN ENTRY                      COMSSYM   244
      L    120  00000000000000200000     DLEX     DEFINE             LOOP HAS AN EXIT                            COMSSYM   245
      L    117  00000000000000100000     DLNI     DEFINE             LOOP IS NOT INNERMOST                       COMSSYM   246
      L    116  00000000000000040000     DLER     DEFINE             LOOP CONTAINS EXTERNAL REFERENCES           COMSSYM   247
      L    115  00000000000000020000     DOGL     DEFINE             GENERATED LABEL FOR DO-TOP                  COMSSYM   248
      L    114  00000000000000010000     DMAT     DEFINE             (CCG)  LOOP INDEX TO BE MATERIALIZED        COMSSYM   249
      L    113  00000000000000004000     ACT      DEFINE             LABEL IS ACTIVE (WILL BE EXECUTED)          COMSSYM   250
      L    112  00000000000000002000     INA      DEFINE             LABEL IS INACTIVE (CANNOT BE REFERENCED)    COMSSYM   251
                                                                                                                 COMSSYM   252
                                        *                                  (NORMAL STATEMENT LABELS)             COMSSYM   253
      L    111  00000000000000001000     SLEN     DEFINE             IS ENTRY TO A DO-LOOP                       COMSSYM   254
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    69
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              LABELS
  
      L    110  00000000000000000400     SLEX     DEFINE             IS EXIT FROM A DO-LOOP                      COMSSYM   255
      L    107  00000000000000000200     DEF      DEFINE             INSURE SAME POSITION                        COMSSYM   256
      L    107  00000000000000000200     SDEF     DEQU   DEF         DEFINED AS EXECUTABLE LABEL                 COMSSYM   257
      L    106  00000000000000000100     SREF     DEFINE             REFERENCED AS EXECUTABLE LABEL              COMSSYM   258
      L    105  00000000000000000040     DOT      DEFINE             LABEL IS A DO-TERMINAL                      COMSSYM   259
                                                                                                                 COMSSYM   260
                                   0              ERRNZ  WB.DOTP-WB.CLASP                                        COMSSYM   261
  
  
  
  
                                        **        SYM/WC - THIRD WORD.                                           COMSSYM   263
                                                                                                                 COMSSYM   264
                                                                                                                 COMSSYM   265
                                                  DESCRIBE WC.,,,2                                               COMSSYM   266
                                                                                                                 COMSSYM   267
      L    260  77770000000000000000     FUNI     DEFINE 12          FUNCTION INFO         (SEE BELOW)           COMSSYM   268
      L    260  77770000000000000000     RLRB     DEQU   FUNI        RELOCATION GROUP      (SEE BELOW)           COMSSYM   269
      L    235  00007777774000000000     CLIF     DEFINE 19          CHARACTER LENGTH INFORMATION                COMSSYM   270
                                                  REDEF  CLIF                                                    COMSSYM   271
      L    236  00007777770000000000     CLEN     DEFINE 18          CHARACTER LENGTH                            COMSSYM   272
      L    236  00007777770000000000     LINE     DEQU   CLEN        (LAB) = LINE NUMBER OF DEFINITION           COMSSYM   273
      L    236  00007777770000000000     DVP      DEQU   CLEN        DATA VALUE POINTER (TO T.DVV)               COMSSYM   274
      L    236  00007777770000000000     MRL      DEQU   CLEN        FILE MAXIMUM RECORD LENGTH                  COMSSYM   275
      L    236  00000777770000000000     EGL      DEQU   CLEN,15     GL FOR ENTRY POINT                          COMSSYM   276
      L    235  00000000004000000000     CTYP     DEFINE             CHARACTER LENGTH TYPE                       COMSSYM   277
                                                                     0 = CONSTANT LENGTH                         COMSSYM   278
                                                                     1 = *                                       COMSSYM   279
                                                  DEFINE                                                         COMSSYM   280
      L    230  00000000001700000000     BCP      DEFINE 4           BEGINNING CHARACTER POSITION                COMSSYM   281
      L    200  00000000000077777777     RA       DEFINE 24          BLOCK-RELATIVE ADDRESS                      COMSSYM   282
      L    200  00000000000000777777     BRAD     DEQU   RA,18       BRANCH ADDRESS FOR DO. (CONRED/*SED*)       COMSSYM   283
      L    200  00000000000000777777     BFL      DEQU   RA,18       FILE BUFFER LENGTH                          COMSSYM   284
      L    200  00000000000000777777     IEF      DEQU   RA,18       SYMTAB INDEX OF EQUIVALENCED FILE           COMSSYM   285
      L    200  00000000000000017777     LDTL     DEQU   RA,13       LINK (SYMORD) TO DO-TOP LABEL (LABELS ONLY) COMSSYM   286
  
  
  
  
                                        **        WC.FUNI - FUNCTION INFORMATION.                                COMSSYM   288
                                        *                                                                        COMSSYM   289
                                        *         INTERPRET WHEN (WB.FUN) SET.                                   COMSSYM   290
                                                                                                                 COMSSYM   291
                                                                                                                 COMSSYM   292
                                                  REDEF  FUNI                                                    COMSSYM   293
      L    271  70000000000000000000     FUNT     DEFINE 3           FUNCTION TYPE  (SEE MF.XXX)                 COMSSYM   294
      L    260  07770000000000000000     ARGC     DEFINE 9                                                       COMSSYM   295
                                                                                                                 COMSSYM   296
                                   0     MF.USER  EQU    0           USER EXTERNAL FUNCTION                      COMSSYM   297
                                   1     MF.STF   EQU    1           USER STATEMENT FUNCTION                     COMSSYM   298
                                   2     MF.LIB   EQU    2           LIBRARY FUNCTION   (..QQ..)                 COMSSYM   299
                                   3     MF.BEF   EQU    3           INTRINSIC EXTERNAL FUNCTION                 COMSSYM   300
                                   4     MF.INL   EQU    4           INTRINSIC INLINE FUNCTION                   COMSSYM   301
                                                                                                                 COMSSYM   302
                                                                                                                 COMSSYM   303
                                        *         FOR AN EXTERNAL INTRINSIC (MF.BEF), THE FOLLOWING              COMSSYM   304
                                        *         FIELDS ARE ALSO USED.                                          COMSSYM   305
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    70
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              WC.FUNI 
  
                                                                                                                 COMSSYM   306
                                                                                                                 COMSSYM   307
                                                  REDEF  RA                                                      COMSSYM   308
      L    222  00000000000077000000     SHC      DEFINE 6           SHIFT COUNT FOR APPENDING SUFFIX            COMSSYM   309
                                                  DEFINE 10                                                      COMSSYM   310
      L    200  00000000000000000377     BRP      DEFINE 8           +/ 2**(B-REG PRESERVED)                     COMSSYM   311
  
  
  
  
                                        **        WC.RLRB - RELOCATION GROUP INFO.                               COMSSYM   313
                                        *                                                                        COMSSYM   314
                                        *         THIS FIELD PER CCG SPEC.                                       COMSSYM   315
                                                                                                                 COMSSYM   316
                                                                                                                 COMSSYM   317
                                                  REDEF  RLRB                                                    COMSSYM   318
      L    272  60000000000000000000     RL       DEFINE 2           RELOCATION TYPE       (SEE ML.XXX)          COMSSYM   319
      L    260  17770000000000000000     RB       DEFINE 10          RELOCATION BASE = BLOCK INDEX               FC50933     7
                                                                                                                 COMSSYM   322
                                   0     ML.ABS   EQU    0           ABSOLUTE                                    COMSSYM   323
                                   1     ML.PROG  EQU    1           PROGRAM                                     COMSSYM   324
                                   2     ML.COM   EQU    2           COMMON                                      COMSSYM   325
                                   3     ML.EXT   EQU    3           EXTERNAL                                    COMSSYM   326
  
  
  
  
                                        **        VD. - VARDIM TABLE.                                            COMSSYM   328
                                        *         DEFINE VD. (FORMAT OF VARDIM INFORMATION TABLE)                COMSSYM   329
                                                                                                                 COMSSYM   330
                                                                                                                 COMSSYM   331
                                        *         +-+-+----+----------------+----------------+----------------+  COMSSYM   332
                                        *         +M+A+////+   INDEX (FE)   +     FIRST      +     NUMBER     +  COMSSYM   333
                                        *         +A+L+////+----------------+     TURPLE     +       OF       +  COMSSYM   334
                                        *         +T+O+////+   BIAS  (CG)   +     ORDINAL    +     TURPLES    +  COMSSYM   335
                                        *         +-+-+----+----------------+----------------+----------------+  COMSSYM   336
                                        *          1 1   4         18               18               18          COMSSYM   337
                                                                                                                 COMSSYM   338
                                                                                                                 COMSSYM   339
                                                  DESCRIBE VD.                                                   COMSSYM   340
      L     73  40000000000000000000     MAT      DEFINE 1           THIS VD. CELL USED BY GEN. CODE             COMSSYM   341
      L     72  20000000000000000000     ALO      DEFINE 1           THIS CELL ALLOWED IN THIS ENTRY (*OTC*/*OVC COMSSYM   342
      L     72  60000000000000000000     MA       DEQU   ALO,2                                                   COMSSYM   343
                                                  DEFINE 4                                                       COMSSYM   344
      L     44  00777777000000000000     CA       DEFINE 18          ACTUAL BIAS FOR THIS CELL (CODE GENERATOR)  COMSSYM   345
      L     44  00777777000000000000     IND      DEQU   CA          INDEX OF VD. STORE OPERAND (FRONT END)      COMSSYM   346
      L     22  00000000777777000000     PNT      DEFINE 18          ORDINAL TO VARDIM TURPLE TABLE              COMSSYM   347
             0  00000000000000777777     LEN      DEFINE 18          NUMBER OF TURPLES                           COMSSYM   348
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    71
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              FORPAR
  
                                        **        FP. - FORMAL PARAMETER TABLE.                                  COMSSYM   350
                                        *         DEFINE FP. (FORMAT OF FORMAL PARAMETER INFORMATION TABLE).     COMSSYM   351
                                                                                                                 FC5A231    13
                                                                                                                 FC5A231    14
                                        *         +-+-+-+-+-----+-------------+-----------------+--------------+ FC50252    10
                                        *         +V+L+V+L+     +             +                 +              + FC50252    11
                                        *         +D+C+D+E+ CA  +     LEN     +       SUB0      +     PNT      + FC50252    12
                                        *         +S+ + +V+     +             +                 +              + FC50252    13
                                        *         +-+-+-+-+-----+-------------+-----------------+--------------+ FC50252    14
                                        *          1 1 1 1   6         14              18              18        FC50252    15
                                                                                                                 FC5A231    21
                                                                                                                 COMSSYM   352
                                                  DESCRIBE FP.                                                   COMSSYM   353
      L     73  40000000000000000000     VDS      DEFINE 1           USED IN VARDIM                              COMSSYM   354
      L     72  20000000000000000000     LC       DEFINE 1           IF CCG MADE LOCAL COPY                      COMSSYM   355
      L     71  10000000000000000000     VD       DEFINE 1           USED IN ISSUED VARDIM                       COMSSYM   356
      L     70  04000000000000000000     LEV0     DEFINE 1           IF LEVEL 0 F.P.                             COMSSYM   357
      L     62  03740000000000000000     CA       DEFINE 6           BIAS OF LOCAL COPY (CCG ASSIGNED)           FC50252    16
      L     44  00037777000000000000     LEN      DEFINE 14          NUMBER OF SUB REFERENCES FOR THIS FP        FC50252    17
      L     44  00037777000000000000     SUB      DEQU   LEN         INDEX INTO SUB TABLE                        COMSSYM   360
      L     22  00000000777777000000     SUB0     DEFINE 18          NUMBER OF LEVEL 0 REFERENCES                COMSSYM   362
             0  00000000000000777777     PNT      DEFINE 18          SYMBOL TABLE ORDINAL OF THIS FP.            COMSSYM   363
  
  
  
  
                                        ***       T.BLKS - COMMON BLOCK NAME TABLE.                              COMSSYM   365
                                        *                                                                        COMSSYM   366
                                        *         CONTAINS COMMON BLOCK NAMES AND LENGTHS.                       COMSSYM   367
                                        *         ZEROTH ENTRY IS NOT USED:  IT IS A PSUEDO-BLOCK FOR PROGRAM-   COMSSYM   368
                                        *                RELATIVE ADDRESS GAMES.                                 COMSSYM   369
                                        *                                                                        COMSSYM   370
                                        *         THERE IS 1 POINTER WORD FOR EACH ECS/LCM COMMON BLOCK.  IT     COMSSYM   371
                                        *                IS REFERENCED VIA THE LCA TAG STORED IN *CB.TAG*.       COMSSYM   372
                                        *         THE CNFL BIT IS ON IF NAMES IN THE COMMON BLOCK ARE ASSIGNED   COMSSYM   373
                                        *                TO CONFLICTING LEVELS.                                  COMSSYM   374
                                        *         THE DFLT BIT IS ON IF ONE OR MORE NAMES ARE DEFAULTED TO THE   COMSSYM   375
                                        *                LEVEL ESTABLISHED FOR THE BLOCK.                        COMSSYM   376
                                        *         THE CHAR BIT IS ON IF FIRST MEMBER OF THE COMMON BLOCK IS      COMSSYM   377
                                        *                DECLARED MODE CHARACTER.                                COMSSYM   378
                                        *         THE NAC BIT IS ON IF SUBSEQUENT NAMES IN THE COMMON BLOCK      COMSSYM   379
                                        *                HAVE CONFLICTING CHAR/ NON-CHAR MODES WITH THE FIRST.   COMSSYM   380
                                        *                                                                        COMSSYM   381
                                        *                                                                        COMSSYM   382
                                        *         1ST WORD - CA.                                                 COMSSYM   383
                                        *                                                                        COMSSYM   384
                                        *         +--------------------------------------+-+-+----+-----------+  COMSSYM   385
                                        *         +                                      +C+N+ L  +   LAST    +  COMSSYM   386
                                        *         +                BLOCK NAME            +H+A+ V  +  MEMBER   +  COMSSYM   387
                                        *         +                                      +R+C+ L  +   INDEX   +  COMSSYM   388
                                        *         +--------------------------------------+-+-+----+-----------+  COMSSYM   389
                                        *                              42                 1 1  4        12       COMSSYM   390
                                        *                                                                        COMSSYM   391
                                        *                                                                        COMSSYM   392
                                        *         2ND WORD - CB.                                                 COMSSYM   393
                                        *                                                                        COMSSYM   394
                                        *         +-+-+----+-----------+---------------+----------------------+  COMSSYM   395
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    72
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              T.BLKS
  
                                        *         +L+S+  R +   FIRST   +      LCM      +                      +  COMSSYM   396
                                        *         +C+A+  N +   MEMBER  +    POINTER    +       LENGTH         +  COMSSYM   397
                                        *         +M+V+  C +   INDEX   +      TAG      +                      +  COMSSYM   398
                                        *         +-+-+----+-----------+---------------+----------------------+  COMSSYM   399
                                        *          1 1   4       12            18                24              COMSSYM   400
                                                                                                                 COMSSYM   401
                                                                                                                 COMSSYM   402
                                   2     Z=BLKS   EQU    2           WORDS PER BLOCK TABLE ENTRY                 COMSSYM   403
                                                                                                                 COMSSYM   404
                                                                                                                 COMSSYM   405
                                                  DESCRIBE CA.,,,0                                               COMSSYM   406
      L     22  77777777777777000000     BNAM     DEFINE 7*6         BLOCK NAME                                  COMSSYM   407
      L     21  00000000000000400000     CHAR     DEFINE 1           BLOCK HAS CHARACTER ENTITIES                COMSSYM   408
      L     20  00000000000000200000     NAC      DEFINE 1           CHARACTER CONFLICT                          COMSSYM   409
      L     14  00000000000000170000     LVL      DEFINE 4           LEVEL FIELDS                                COMSSYM   410
                                                  REDEF  LVL                                                     COMSSYM   411
      L     17  00000000000000100000     CNFL     DEFINE 1           LEVEL CONFLICT                              COMSSYM   412
      L     16  00000000000000040000     DFLT     DEFINE 1           LEVEL DEFAULT                               COMSSYM   413
      L     14  00000000000000030000     BLVL     DEFINE 2           BLOCK LEVEL                                 COMSSYM   414
             0  00000000000000007777     LMI      DEFINE 12          INDEX OF LAST MEMBER OF BLOCK IN T.COMM     COMSSYM   415
                                                                                                                 COMSSYM   416
                                                                                                                 COMSSYM   417
                                                  DESCRIBE CB.,,,1                                               COMSSYM   418
      L    173  40000000000000000000     LCM      DEFINE 1           BLOCK RESIDES IN ECS/LCM                    COMSSYM   419
      L    172  20000000000000000000     SAVE     DEFINE 1           BLOCK APPEARED IN SAVE DECLARATION          COMSSYM   420
      L    166  17000000000000000000     RNC      DEFINE 4           REMAIN. CHAR CNT BEFORE ROUNDING BLK LEN    COMSSYM   421
      L    152  00777700000000000000     FMI      DEFINE 12          INDEX OF FIRST MEMBER OF BLOCK IN T.COMM    COMSSYM   422
      L    130  00000077777700000000     TAG      DEFINE 18          ECS/LCM POINTER TAG (K=LC)                  COMSSYM   423
      L    100  00000000000077777777     BLEN     DEFINE 24          LENGTH (WORDS IN BLOCK, ROUNDED)            COMSSYM   424
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    73
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              CCG.TM
  
                                        **        MISCELLANEOUS CCG MACROS                                       CCGTEXT   498
                                                                                                                 CCGTEXT   499
                                        **        CCG.SST - MAKE SST CALL FOR *CCG*                              CCGTEXT   500
                                                                                                                 CCGTEXT   501
                                         CCG.SST  MACRO                                                          CCGTEXT   502
                                                  SST                                                            CCGTEXT   503
                                                  B1=1                                                           CCGTEXT   504
                                                  ENDM                                                           CCGTEXT   505
  
  
  
                                        **        SETB1 - SET B1 = 1 IN A HOST CALLABLE ENTRY POINT              CCGTEXT   507
                                                                                                                 CCGTEXT   508
                                         SETB1    MACRO                                                          CCGTEXT   509
                                                  IFNE   HC.ID,2,1                                               CCGTEXT   510
                                                  SB1    1                                                       CCGTEXT   511
                                                  ENDM                                                           CCGTEXT   512
  
  
  
                                        **        ADDWRD - ADD WORD TO MANAGED TABLE.                            CCGTEXT   514
                                        *                                                                        CCGTEXT   515
                                        *         ADDWRD TABLE,REG                                               CCGTEXT   516
                                        *         ENTRY  *TABLE* = TABLE NUMBER.                                 CCGTEXT   517
                                        *                *REG* = REGISTER NAME OR EXPRESSION FOR WORD TO ADD.    CCGTEXT   518
                                        *         USES   A0, X1.                                                 CCGTEXT   519
                                                                                                                 CCGTEXT   520
                                                  PURGMAC ADDWRD                                                 CCGTEXT   521
                                         ADDWRD   MACRO  A,B                                                     CCGTEXT   522
                                                  R=     X1,B                                                    CCGTEXT   523
                                                  R=     A0,=XZ$A                                                CCGTEXT   524
                                                  RJ     =XADW$                                                  CCGTEXT   525
                                         ADDWRD   ENDM                                                           CCGTEXT   526
  
  
  
                                        **        ALLOC - ALLOCATE TABLE SPACE.                                  CCGTEXT   528
                                        *                                                                        CCGTEXT   529
                                        *         ALLOC  TABLE,WORDS                                             CCGTEXT   530
                                        *         ENTRY  *TABLE* = TABLE NUMBER.                                 CCGTEXT   531
                                        *                *WORDS* = WORD COUNT OF TABLE.                          CCGTEXT   532
                                                                                                                 CCGTEXT   533
                                                  PURGMAC ALLOC                                                  CCGTEXT   534
                                         ALLOC    MACRO  A,B                                                     CCGTEXT   535
                                                  R=     X1,B                                                    CCGTEXT   536
                                                  R=     A0,=XZ$A                                                CCGTEXT   537
                                                  RJ     =XATS$                                                  CCGTEXT   538
                                         ALLOC    ENDM                                                           CCGTEXT   539
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    74
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              PROCESS 
  
                                        **        PROCESS - DEFINE PROCESSOR ADDRESSES FOR LIST OF NAMES         CCGTEXT   541
                                        *                                                                        CCGTEXT   542
                                        *         PROCESS (A,B,C,...,Z)                                          CCGTEXT   543
                                                                                                                 CCGTEXT   544
                                                  PURGMAC PROCESS                                                CCGTEXT   545
                                         PROCESS  MACRO  P                                                       CCGTEXT   546
                                                  IRP    P                                                       CCGTEXT   547
                                                  NOREF  .P                                                      CCGTEXT   548
                                         .P       BSS    0                                                       CCGTEXT   549
                                                  IRP                                                            CCGTEXT   550
                                         PROCESS  ENDM                                                           CCGTEXT   551
  
  
  
                                        **        EXT# - DECLARE NAMES OF EXTERNALS WITH # SIGNS APPENDED        CCGTEXT   553
                                        *                                                                        CCGTEXT   554
                                        *         EXT#   (A,B,...,Z)                                             CCGTEXT   555
                                                                                                                 CCGTEXT   556
                                         EXT#     MACRO  P                                                       CCGTEXT   557
                                                  IRP    P                                                       CCGTEXT   558
                                                  EXT    P_#                                                     CCGTEXT   559
                                         P        EQU    P_#                                                     CCGTEXT   560
                                                  IRP                                                            CCGTEXT   561
                                                  ENDM                                                           CCGTEXT   562
  
  
  
                                        **        TABLES - DECLARE NAMES OF DYNAMIC TABLES REFERENCED IN A ROUTI CCGTEXT   564
                                        *                                                                        CCGTEXT   565
                                        *         TABLES (TBL1,TBL2,...,TBLN)                                    CCGTEXT   566
                                                                                                                 CCGTEXT   567
                                         TABLES   MACRO  P                                                       CCGTEXT   568
                                                  IRP    P                                                       CCGTEXT   569
                                                  EXT    O$P,L$P                                                 CCGTEXT   570
                                         O.P      EQU    O$P                                                     CCGTEXT   571
                                         L.P      EQU    L$P                                                     CCGTEXT   572
                                                  IRP                                                            CCGTEXT   573
                                                  EXT    F$RDT,S$IT,O$SYM                                        CCGTEXT   574
                                         O.SYM    EQU    O$SYM                                                   CCGTEXT   575
                                         F.RDT    EQU    F$RDT                                                   CCGTEXT   576
                                         IT.      EQU    S$IT                                                    CCGTEXT   577
                                         TABLES   ENDM                                                           CCGTEXT   578
                                                                                                                 CCGTEXT   579
                              100000     .Z       SET    1S15                                                    CCGTEXT   580
                                                  ECHO   2,P=("HC.FRTP",SS)                                      CCGTEXT   581
                                         I.P      EQU    .Z                                                      CCGTEXT   582
                                         .Z       SET    .Z+1S15                                                 CCGTEXT   583
                                                                                                                 CCGTEXT   584
                                         HC.NFLB  COUNTS HC.FLB                                                  CCGTEXT   585
                                  16     WB.CXP   = WB.EXTP                                                      CCGTEXT   586
                                   2     WB.CXL   = 2                                                            CCGTEXT   587
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    75
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              EQU-S 
  
                                        *         DEFINITIONS OF SYMBOLS THAT DO NOT CHANGE                      CCGTEXT   589
                                                                                                                 CCGTEXT   590
                                   0     WA.LCOP  EQU    0           LABEL CHANGE ORDINAL FIELD                  CCGTEXT   591
                                  14     WA.LCOL  EQU    12                                                      CCGTEXT   592
                                   0     WA.BINP  EQU    0           BITS IN NAME                                CCGTEXT   593
                                  14     WA.BINL  EQU    12                                                      CCGTEXT   594
                                                                                                                 CCGTEXT   595
                                   0     HC.TS    EQU    0                                                       CCGTEXT   596
                                   0     HC.QBT   EQU    0                                                       CCGTEXT   597
                                                                                                                 CCGTEXT   598
             1                                    END                                                            CCGTEXT   599
  
                             53000B CM  STORAGE USED            10148 STATEMENTS      898 SYMBOLS      000001 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            6.574 SECONDS         904 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AP.CAIHL       44                  54/02 D
        AP.CAIHP        0                  54/02 D
        AP.CAL         22                  53/56 D
        AP.CAP         22                  53/56 D
        AP.CRP         66                  53/54 D
        AP.IHL         22                  53/57 D
        AP.IHP          0                  53/57 D   54/02
        AP.IOP         73                  53/50 D
        AP.P1P         71                  53/52 D
        AP.USEP        72                  53/51 D
        BI.BVIL        22                  60/14 D
        BI.BVIP         0                  60/14 D
        BI.CBP         72                  60/05 D
        BI.FJP         70                  60/07 D
        BI.FLNL        22                  60/13 D   60/17
        BI.FLNP        22                  60/13 D   60/17
        BI.FTHP        65                  60/10 D
        BI.HNP         66                  60/09 D
        BI.ILP         71                  60/06 D
        BI.LJPP        67                  60/08 D
        BI.OLNL        17                  60/11 D
        BI.OLNP        46                  60/11 D
        BI.PBNL        22                  60/17 D
        BI.PBNP        22                  60/17 D
        BI.PCL          2                  60/12 D
        BI.PCP         44                  60/12 D   60/16
        BI.PIIL        21                  60/16 D
        BI.PIIP        44                  60/16 D
        BI.RBP         73                  60/04 D
        CA.BLVLL        2                  72/19 D
        CA.BLVLP       14                  72/19 D
        CA.BNAML       52                  72/12 D
        CA.BNAMP       22                  72/12 D
        CA.CHARM   400000                  72/13 D
        CA.CHARP       21                  72/13 D
        CA.CNFLM   100000                  72/17 D
        CA.CNFLP       17                  72/17 D
        CA.DFLTM    40000                  72/18 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    76
        SYMBOLIC REFERENCE TABLE. 
  
        CA.DFLTP       16                  72/18 D
        CA.LMIL        14                  72/20 D
        CA.LMIP         0                  72/20 D
        CA.LVLL         4                  72/15 D   72/16
        CA.LVLP        14                  72/15 D   72/16
        CA.NACM    200000                  72/14 D
        CA.NACP        20                  72/14 D
        CA.W            0                  72/11 D
        CB.BLENL       30                  72/29 D
        CB.BLENP        0                  72/29 D
        CB.FMIL        14                  72/27 D
        CB.FMIP        52                  72/27 D
        CB.LCMP        73                  72/24 D
        CB.RNCL         4                  72/26 D
        CB.RNCP        66                  72/26 D
        CB.SAVEP       72                  72/25 D
        CB.TAGL        22                  72/28 D
        CB.TAGP        30                  72/28 D
        CB.W            1                  72/23 D
        CF.FROML       22                  59/12 D
        CF.FROMP       36                  59/12 D
        CF.JPP         73                  59/10 D
        CF.TOL         22                  59/14 D
        CF.TOP          0                  59/14 D
        CHAR            6                  65/48 D   65/53     65/56     65/57     66/01
        CP#RM           0                  10/33 F   10/34 D   20/01 F   23/01 F   26/01 F
        CT.CPU        111                   5/02 D   10/14 F
        CT.ECS          1                  10/37 F   10/39 D
        D.ARL           2                  51/47 D
        D.ARP          25                  51/47 D
        D.BMP          52                  51/11 D
        D.CMP          31                  51/33 D
        D.ECJP         45                  51/20 D
        D.EQVP         65                  51/53 D
        D.FPP          25                  51/36 D   51/47
        D.FTL           5                  51/06 D
        D.FTP          65                  51/06 D   51/53
        D.F1L           4                  51/09 D
        D.F1P          57                  51/09 D
        D.F2L           4                  51/10 D
        D.F2P          53                  51/10 D
        D.INCP         22                  51/39 D
        D.JFTP         34                  51/29 D
        D.JPP          41                  51/24 D   51/48
        D.KSP          37                  51/26 D
        D.LDP          43                  51/22 D
        D.LDSTL         2                  51/45 D
        D.LDSTP        42                  51/45 D
        D.LSJL          3                  51/48 D
        D.LSJP         41                  51/48 D
        D.L2P          44                  51/21 D
        D.MUCP         35                  51/28 D
        D.NRP          64                  51/07 D
        D.PIP          36                  51/27 D
        D.PRSP         46                  51/19 D   51/46
        D.PSP          47                  51/18 D
        D.REGWL        11                  51/40 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    77
        SYMBOLIC REFERENCE TABLE. 
  
        D.REGWP        11                  51/40 D
        D.RFP          23                  51/38 D
        D.RJRSP        50                  51/17 D   51/49
        D.SRP          26                  51/35 D
        D.STP          42                  51/23 D   51/45
        D.STRSL         2                  51/46 D
        D.STRSP        46                  51/46 D
        D.SZL           2                  51/34 D
        D.SZP          27                  51/34 D
        D.TYIOL         2                  51/49 D
        D.TYIOP        50                  51/49 D
        D.TYL           2                  51/05 D
        D.TYP          72                  51/05 D
        D.USESL        11                  51/41 D
        D.USESP         0                  51/41 D
        D.USIP         33                  51/31 D
        D.XMTP         40                  51/25 D
        D.XUP          24                  51/37 D
        D.ZPP          32                  51/32 D
        D.^DP          51                  51/12 D
        FI.FTL          6                  54/09 D
        FI.FTP         66                  54/09 D
        FI.INDXL       22                  54/13 D
        FI.INDXP       14                  54/13 D
        FI.LENL        14                  54/14 D
        FI.LENP         0                  54/14 D
        FI.REGPL       30                  54/11 D
        FI.REGPP       36                  54/11 D
        FP.CAL          6                  71/18 D
        FP.CAP         62                  71/18 D
        FP.LCP         72                  71/15 D
        FP.LENL        16                  71/19 D   71/20
        FP.LENP        44                  71/19 D   71/20
        FP.LEV0P       70                  71/17 D
        FP.PNTL        22                  71/22 D
        FP.PNTP         0                  71/22 D
        FP.SUBL        16                  71/20 D
        FP.SUBP        44                  71/20 D
        FP.SUB0L       22                  71/21 D
        FP.SUB0P       22                  71/21 D
        FP.VDP         71                  71/16 D
        FP.VDSP        73                  71/14 D
        HC$MCIS         7                  62/27 D
        HC.FPAS         1                  62/44 D
        HC.IA           0                  62/46 D
        HC.ID           2                  62/47 D
        HC.LNT          1                  62/48 D
        HC.MCIS         7                  62/49 D
        HC.NFLB         1                  74/49 D
        HC.NXLB         0                  62/43 D
        HC.QBT          0                  75/09 D
        HC.RJXJ         0                  62/50 D
        HC.RJ6          1                  62/52 D
        HC.ROL          0                  62/53 D
        HC.STP          1                  62/54 D
        HC.TS           0                  75/08 D
        HC.2OC          0                  62/57 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    78
        SYMBOLIC REFERENCE TABLE. 
  
        IH.BMP         71                  52/44 D
        IH.CAIHL       44                  52/55 D
        IH.CAIHP        0                  52/55 D
        IH.CAL         22                  52/50 D
        IH.CAP         22                  52/50 D
        IH.HL          17                  52/52 D
        IH.HP           0                  52/52 D   52/53     52/55
        IH.IHL         22                  52/53 D
        IH.IHP          0                  52/53 D
        IH.IL           3                  52/51 D
        IH.IP          17                  52/51 D
        IH.LCM      40000                  53/01 D
        IH.LCMA     20000                  52/57 D
        IH.LDP         73                  52/42 D
        IH.RFL         22                  52/49 D
        IH.RFP         44                  52/49 D
        IH.SIAP        67                  52/46 D
        IH.SRFP        66                  52/48 D
        IH.STKP        73                  53/07 D
        IH.STP         72                  52/43 D
        IP.CSET         0                   4/47 D
        IP.C63          2                   4/48 D
        IP.MFL     140000                   4/46 D
        IP.PD           6                   4/55 D
        IP.PS          74                   4/56 D
        I.AP       200000                  74/47 D
        I.CBSET         5                  20/19 D
        I.DT            1                  20/14 D
        I.FET           0                  20/12 D
        I.FIRST         1                  20/13 D
        I.GL       100000                  53/11 D   74/47 D
        I.IN            2                  20/15 D
        I.IO       300000                  74/47 D
        I.LIMIT         4                  20/17 D
        I.LP       400000                  74/47 D
        I.OUT           3                  20/16 D
        I.PRU           4                  20/18 D
        I.RAN1          6                  20/20 D
        I.RAN2          7                  20/21 D
        I.SS       500000                  74/47 D
        JC.DF           6                  57/48 D
        JC.EQ           0                  57/53 D
        JC.GE           2                  57/53 D
        JC.ID           7                  57/48 D
        JC.IR           4                  57/48 D
        JC.LT           3                  57/53 D
        JC.MI           3                  57/48 D
        JC.NE           1                  57/53 D
        JC.NZ           1                  57/48 D
        JC.OR           5                  57/48 D
        JC.PL           2                  57/48 D
        JC.ZR           0                  57/48 D
        LC.GLNL        22                  61/06 D
        LC.GLNP        22                  61/06 D
        LC.HBNL        22                  61/07 D
        LC.HBNP         0                  61/07 D
        LC.NEXTL       22                  61/05 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    79
        SYMBOLIC REFERENCE TABLE. 
  
        LC.NEXTP       44                  61/05 D
        L.FET6         15                   8/17 D
        L.FET7          0                   8/24 D
        L.FIT6         34                   8/16 D
        L.FIT7         26                   8/23 D
        L.IOBUF6     2003                   8/18 D
        L.IOBUF7        0                   8/25 D
        L.STACK         0                  12/25 D
        L.TIN         101                   8/19 D
        L.TOUT        401                   8/20 D
        MD.MODE         7                  68/04 D
        MF.BEF          3                  69/52 D
        MF.INL          4                  69/53 D
        MF.LIB          2                  69/51 D
        MF.STF          1                  69/50 D
        MF.USER         0                  69/49 D
        ML.ABS          0                  70/20 D
        ML.COM          2                  70/22 D
        ML.DELP        73                  60/34 D
        ML.EXT          3                  70/23 D
        ML.IIL         22                  60/36 D
        ML.IIP         44                  60/36 D
        ML.MTIL        22                  60/38 D
        ML.MTIP         0                  60/38 D
        ML.NIL         22                  60/37 D
        ML.NIP         22                  60/37 D
        ML.PROG         1                  70/21 D
        M.BOOL          0                  68/06 D
        M.CHAR          6                  68/13 D   68/15
        M.CPLX          5                  68/11 D   68/12
        M.DBL           4                  68/10 D   68/12
        M.INT           2                  68/08 D
        M.LOG           1                  68/07 D
        M.REAL          3                  68/09 D
        NOINVERT        0                   8/40 D
        N.TYPE          7                  68/15 D
        OC.AAC    7777751                  58/45 D
        OC.ACI    7777750                  58/46 D
        OC.AND         11                  56/22 D
        OC.APL    7777754                  58/39 D
        OC.ARI    7777747                  58/47 D
        OC.ASV    7777746                  58/48 D
        OC.BMI    7777764                  58/31 D
        OC.BOS          1                  56/13 D
        OC.BSS    7777767                  58/25 D
        OC.BSSZ   7777765                  58/27 D
        OC.BTW    7777745                  58/49 D
        OC.CLR        105                  57/29 D
        OC.COMNT  7777773                  58/18 D
        OC.CON    7777766                  58/26 D
        OC.CX          47                  56/52 D
        OC.DAR          3                  56/15 D
        OC.DATA   7777763                  58/32 D
        OC.DCS    7777756                  58/37 D
        OC.DEF          5                  56/17 D
        OC.DFA         32                  56/39 D
        OC.DFM         42                  56/47 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    80
        SYMBOLIC REFERENCE TABLE. 
  
        OC.DFS         33                  56/40 D
        OC.DIS    7777762                  58/33 D
        OC.DRL         64                  57/09 D
        OC.DWL         65                  57/10 D
        OC.ELSE   7777744                  58/50 D
        OC.ENT          7                  56/19 D
        OC.EOQ          0                  56/12 D
        OC.EOS          2                  56/14 D
        OC.EQV         17                  56/28 D
        OC.FA          30                  56/37 D
        OC.FD          44                  56/49 D
        OC.FM          40                  56/45 D
        OC.FMA         43                  56/48 D
        OC.FS          31                  56/38 D
        OC.HOL    7777761                  58/34 D
        OC.IA          36                  56/43 D
        OC.IAZ        100                  57/24 D
        OC.IDENT  7777775                  58/16 D
        OC.IFT    7777743                  58/51 D
        OC.ILD         75                  57/21 D
        OC.ILS         22                  56/31 D
        OC.IM         102                  57/26 D
        OC.IMP         16                  56/27 D
        OC.IOM    7777753                  58/40 D
        OC.IRS         23                  56/32 D
        OC.IS          37                  56/44 D
        OC.ISZ        101                  57/25 D
        OC.JIN         71                  57/16 D
        OC.JPBB        70                  57/14 D
        OC.JPX         67                  57/13 D
        OC.KLS         20                  56/29 D
        OC.KRS         21                  56/30 D
        OC.LAB          6                  56/18 D
        OC.LCC    7777776                  58/15 D
        OC.LD          50                  56/54 D
        OC.LDC        103                  57/27 D
        OC.LDV        104                  57/28 D
        OC.LIB    7777772                  58/19 D
        OC.MIC    7777742                  58/52 D
        OC.NOP         46                  56/51 D
        OC.NR          24                  56/33 D
        OC.OR          12                  56/23 D
        OC.ORG    7777760                  58/35 D
        OC.PK          27                  56/36 D
        OC.PLD         53                  56/57 D
        OC.PST         54                  57/01 D
        OC.REPI   7777757                  58/36 D
        OC.RFA         34                  56/41 D
        OC.RFD         45                  56/50 D
        OC.RFM         41                  56/46 D
        OC.RFS         35                  56/42 D
        OC.RJXJ        66                  57/12 D
        OC.RJ3         72                  57/17 D
        OC.RJ6         73                  57/18 D
        OC.RNZ         25                  56/34 D
        OC.RS           4                  56/16 D
        OC.S           55                  57/02 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    81
        SYMBOLIC REFERENCE TABLE. 
  
        OC.SA          60                  57/05 D
        OC.SDL         61                  57/06 D
        OC.SDS         62                  57/07 D
        OC.SET    7777741                  58/53 D
        OC.SLD         56                  57/03 D
        OC.SS          63                  57/08 D
        OC.SST         57                  57/04 D
        OC.ST          51                  56/55 D
        OC.STR         15                  56/26 D
        OC.STT         52                  56/56 D
        OC.SUB    7777752                  58/41 D
        OC.SXT        106                  57/30 D
        OC.TITLE  7777774                  58/17 D
        OC.TLD         76                  57/22 D
        OC.TST         77                  57/23 D
        OC.UJP         74                  57/19 D
        OC.UP          26                  56/35 D
        OC.USBLK  7777771                  58/20 D
        OC.USE    7777770                  58/24 D
        OC.VFDP   7777755                  58/38 D
        OC.XMT         10                  56/21 D
        OC.XMTC        14                  56/25 D
        OC.XOR         13                  56/24 D
        OT#RM           6                  12/55 F   12/56 D
        PSYM            7                  65/43 D   65/44
  U     QUAL$                              43/06 F   50/39 F
        RF.MV      200000                  53/03 D
        RN.MASK    600001                  53/12 D
        RT.BR           0                  53/42 D
        RT.XR           2                  53/43 D
        R1.CAL         22                  52/29 D
        R1.CAP         36                  52/29 D
        R1.H2L         14                  52/30 D
        R1.H2P         22                  52/30 D
        R1.IHL         22                  52/31 D
        R1.IHP          0                  52/31 D
        R1.INL         22                  52/16 D
        R1.INP         36                  52/16 D
        R1.OCL         14                  52/08 D   52/28 D
        R1.OCP         60                  52/08 D   52/28 D
        R1.RIL         20                  52/11 D
        R1.RIP          0                  52/11 D
        R1.RJL         20                  52/09 D
        R1.RJP         40                  52/09 D   52/16
        R1.RKL         20                  52/10 D
        R1.RKP         20                  52/10 D
        R1.SOL         16                  52/17 D
        R1.SOP         20                  52/17 D
        R2.LONGP       72                  53/05 D
        SC2ZERO   7777776                  11/17 D   11/18
        SI.CAIHL       44                  54/28 D
        SI.CAIHP       14                  54/28 D
        SI.CAL         22                  54/22 D
        SI.CAP         36                  54/22 D
        SI.H2P         73                  54/20 D
        SI.IHL         22                  54/23 D
        SI.IHP         14                  54/23 D   54/27     54/28
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    82
        SYMBOLIC REFERENCE TABLE. 
  
        SI.OPCL        13                  54/21 D
        SI.OPCP        60                  54/21 D
        SI.RIL          6                  54/25 D
        SI.RIP          0                  54/25 D
        SI.RJL          6                  54/24 D
        SI.RJP          6                  54/24 D
        SI.RKL          6                  54/27 D
        SI.RKP         14                  54/27 D
        SO.INVCM     1000                  53/22 D
        SO.INVCP       11                  53/22 D
        SO.INVM       400                  53/23 D
        SO.INVP        10                  53/23 D
        SO.LKL          2                  53/24 D
        SO.LKP          6                  53/24 D   53/34
        SO.LOCK       200                  53/39 D
        SO.REGL         6                  53/32 D
        SO.REGP         0                  53/32 D
        SO.RJLK       300                  53/40 D
        SO.RNL          3                  53/31 D
        SO.RNP          0                  53/31 D   53/32
        SO.RTL          3                  53/30 D
        SO.RTP          3                  53/30 D
        SO.SFLM      2000                  53/21 D
        SO.SFLP        12                  53/21 D
        SO.TLOCK      100                  53/36 D
        TEST            0                  11/15 D   11/18
        TPD             6                   4/50 D    4/53 D    4/54      4/55
        T.BIL          22                  60/52 D   60/56
        T.BIP          22                  60/52 D   60/56
        T.BIPP         66                  60/50 D
        T.CAL          22                  60/53 D
        T.CALP         70                  60/48 D
        T.CAP           0                  60/53 D
        T.EQVP         72                  60/46 D
        T.FAP          71                  60/47 D
        T.HBNL         22                  60/55 D
        T.HBNP         44                  60/55 D
        T.INVP         73                  60/45 D
        T.IPFL         23                  60/57 D
        T.IPFP         44                  60/57 D
        T.ITIL         22                  60/51 D   60/55
        T.ITIP         44                  60/51 D   60/55     60/57
        T.REGL         22                  60/56 D
        T.REGP         22                  60/56 D
        T.RFP          67                  60/49 D
        VD.ALOP        72                  70/42 D   70/43
        VD.CAL         22                  70/45 D   70/46
        VD.CAP         44                  70/45 D   70/46
        VD.INDL        22                  70/46 D
        VD.INDP        44                  70/46 D
        VD.LENL        22                  70/48 D
        VD.LENP         0                  70/48 D
        VD.MAL          2                  70/43 D
        VD.MAP         72                  70/43 D
        VD.MATP        73                  70/41 D
        VD.PNTL        22                  70/47 D
        VD.PNTP        22                  70/47 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        WA.BINL        14                  75/06 D
        WA.BINP         0                  75/05 D
        WA.BNL         14                  66/06 D
        WA.BNP          0                  66/06 D
        WA.HASHL       14                  66/04 D   66/05
        WA.HASHP        0                  66/04 D   66/05
        WA.LCOL        14                  75/04 D
        WA.LCOP         0                  75/03 D
        WA.NAMEL       52                  65/54 D
        WA.NAMEP       22                  65/54 D
        WA.NFPM    400000                  66/02 D
        WA.NFPP        21                  66/02 D
        WA.STLL        36                  65/57 D
        WA.STLP        30                  65/57 D
        WA.SYML        52                  65/53 D   65/54     65/55
        WA.SYMP        22                  65/53 D   65/54     65/55
        WA.W            0                  65/51 D
        WB.ACTM      4000                  68/53 D
        WB.ACTP        13                  68/53 D
        WB.AETL         2                  67/39 D
        WB.AETP        20                  67/39 D
        WB.AGNP        30                  67/23 D
        WB.AGO2P       24                  67/30 D
        WB.ALP         24                  67/31 D
        WB.ALRNP       36                  68/28 D
        WB.ARYM      2000                  67/46 D
        WB.ARYP        12                  67/46 D
        WB.AUXP        65                  66/48 D
        WB.BASEL       14                  66/30 D   66/33     66/34
        WB.BASEP       41                  66/30 D   66/31     66/33     66/34
        WB.BINP        72                  66/43 D
        WB.BMEMP       23                  67/32 D
        WB.BUFP        67                  66/46 D
        WB.CCGVL        5                  67/35 D   67/36
        WB.CCGVP       15                  67/35 D   67/36
        WB.CGSM        20                  66/36 D
        WB.CGSP         4                  66/36 D
        WB.CLASL       34                  66/35 D   67/12     68/25
        WB.CLASP        5                  66/35 D   67/12     68/25     69/07
        WB.COMM    100000                  67/40 D
        WB.COMP        17                  67/40 D
        WB.CXL          2                  74/51 D
        WB.CXP         16                  74/50 D
        WB.DEFM       200                  67/50 D   69/02 D
        WB.DEFP         7                  67/50 D   69/02 D   69/03
        WB.DEXTP       26                  67/26 D
        WB.DIL         17                  66/23 D
        WB.DIP         55                  66/23 D
        WB.DIRP        71                  66/44 D
        WB.DLBBP       22                  68/46 D
        WB.DLCP        31                  68/33 D
        WB.DLENM   400000                  68/47 D
        WB.DLENP       21                  68/47 D
        WB.DLERM    40000                  68/50 D
        WB.DLERP       16                  68/50 D
        WB.DLEXM   200000                  68/48 D
        WB.DLEXP       20                  68/48 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        WB.DLNIM   100000                  68/49 D
        WB.DLNIP       17                  68/49 D
        WB.DLNOL        5                  68/44 D   68/45
        WB.DLNOP       16                  68/44 D   68/45
        WB.DLPEP       32                  68/32 D
        WB.DMATM    10000                  68/52 D
        WB.DMATP       14                  68/52 D
        WB.DOGLM    20000                  68/51 D
        WB.DOGLP       15                  68/51 D
        WB.DOTM        40                  69/05 D
        WB.DOTP         5                  69/05 D   69/07
        WB.ENTM     20000                  67/42 D
        WB.ENTP        15                  67/42 D
        WB.EQUP        66                  66/47 D
        WB.EQVM      1000                  67/47 D
        WB.EQVP        11                  67/47 D
        WB.EXTM     40000                  67/41 D
        WB.EXTP        16                  67/41 D   74/50
        WB.FDEFP       24                  68/40 D
        WB.FMTLL       14                  66/33 D
        WB.FMTLP       41                  66/33 D
        WB.FMTP        73                  66/42 D
        WB.FPM     200000                  67/38 D
        WB.FPNOL       11                  66/31 D   66/32
        WB.FPNOP       41                  66/31 D   66/32
        WB.FPOL        11                  66/32 D
        WB.FPOP        41                  66/32 D
        WB.FPP         20                  67/38 D   67/39
        WB.FREFP       25                  68/39 D
        WB.FRL         22                  66/19 D   66/21
        WB.FRP         52                  66/19 D   66/21
        WB.FUNM     10000                  67/44 D
        WB.FUNP        14                  67/44 D
        WB.GENFP       25                  67/27 D
        WB.GOTOP       35                  68/29 D
        WB.INAM      2000                  68/54 D
        WB.INAP        12                  68/54 D
        WB.INDOP       34                  68/30 D
        WB.INTFP       27                  67/25 D
        WB.JPFL        11                  66/28 D
        WB.JPFP        57                  66/28 D
        WB.LABM        10                  66/37 D
        WB.LABP         3                  66/37 D
        WB.LCMM    400000                  67/37 D
        WB.LCMP        21                  67/37 D
        WB.LCP         30                  68/34 D
        WB.LDOP        24                  67/28 D   67/29     67/30     67/31
        WB.LEVNL        2                  66/29 D
        WB.LEVNP       55                  66/29 D
        WB.LEVP        33                  67/20 D
        WB.LOCFP       22                  67/33 D
        WB.MATP        36                  67/15 D
        WB.MDFM       400                  67/49 D
        WB.MDFP        10                  67/49 D
        WB.MODEL        3                  66/39 D
        WB.MODEP        0                  66/39 D
        WB.NDEFP       27                  68/35 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        WB.NINP        33                  68/31 D
        WB.NLSTP       34                  67/17 D
        WB.NVARM      100                  67/52 D
        WB.NVARP        6                  67/52 D
        WB.PARMM      400                  67/48 D
        WB.PARMP       10                  67/48 D   67/49
        WB.PNTL        15                  66/26 D   66/41
        WB.PNTP        57                  66/26 D   66/28     66/41
        WB.PRDP        23                  68/41 D
        WB.SAVEP       35                  67/16 D
        WB.SDEFM      200                  69/03 D
        WB.SDEFP        7                  69/03 D
        WB.SEQP        70                  66/45 D
        WB.SFAP        40                  67/13 D
        WB.SFXP        24                  67/29 D
        WB.SLENM     1000                  68/57 D
        WB.SLENP       11                  68/57 D
        WB.SLEXM      400                  69/01 D
        WB.SLEXP       10                  69/01 D
        WB.SREFM      100                  69/04 D
        WB.SREFP        6                  69/04 D
        WB.STFPL       17                  66/22 D   66/23     66/25
        WB.STFPP       55                  66/22 D   66/23     66/25
        WB.SUBM      4000                  67/45 D
        WB.SUBP        13                  67/45 D
        WB.TLL         14                  66/34 D
        WB.TLP         41                  66/34 D
        WB.TYPP        31                  67/22 D
        WB.UDCP        64                  66/49 D
        WB.UDEFP       26                  68/36 D
        WB.VARM        40                  67/53 D
        WB.VARP         5                  67/53 D
        WB.VDSP        32                  67/21 D
        WB.W            1                  66/17 D
        WB.1REFP       37                  67/14 D   68/27 D
        WC.ARGCL       11                  69/47 D
        WC.ARGCP       60                  69/47 D
        WC.BCPL         4                  69/30 D
        WC.BCPP        30                  69/30 D
        WC.BFLL        22                  69/33 D
        WC.BFLP         0                  69/33 D
        WC.BRADL       22                  69/32 D
        WC.BRADP        0                  69/32 D
        WC.BRPL        10                  70/06 D
        WC.BRPP         0                  70/06 D
        WC.CLENL       22                  69/21 D   69/22     69/23     69/24
        WC.CLENP       36                  69/21 D   69/22     69/23     69/24     69/25
        WC.CLIFL       23                  69/19 D   69/20
        WC.CLIFP       35                  69/19 D   69/20
        WC.CTYPP       35                  69/26 D
        WC.DVPL        22                  69/23 D
        WC.DVPP        36                  69/23 D
        WC.EGLL        17                  69/25 D
        WC.EGLP        36                  69/25 D
        WC.FUNIL       14                  69/17 D   69/18     69/45
        WC.FUNIP       60                  69/17 D   69/18     69/45
        WC.FUNTL        3                  69/46 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        WC.FUNTP       71                  69/46 D
        WC.IEFL        22                  69/34 D
        WC.IEFP         0                  69/34 D
        WC.LDTLL       15                  69/35 D
        WC.LDTLP        0                  69/35 D
        WC.LINEL       22                  69/22 D
        WC.LINEP       36                  69/22 D
        WC.MRLL        22                  69/24 D
        WC.MRLP        36                  69/24 D
        WC.RAL         30                  69/31 D   70/03
        WC.RAP          0                  69/31 D   69/32     69/33     69/34     69/35     70/03
        WC.RBL         12                  70/18 D
        WC.RBP         60                  70/18 D
        WC.RLL          2                  70/17 D
        WC.RLP         72                  70/17 D
        WC.RLRBL       14                  69/18 D   70/16
        WC.RLRBP       60                  69/18 D   70/16
        WC.SHCL         6                  70/04 D
        WC.SHCP        22                  70/04 D
        WC.W            2                  69/15 D
        Z=BLKS          2                  72/08 D
        Z=SYM           3                  65/47 D
        Z.HASH        200                  65/45 D
        .CDCLIB         1                   7/10 D
        .CPU          111                  12/23 D   12/36 F
        .DAL            1                  12/31 D
        .FID            1                  10/44 D
        .FTN            5                  63/07 D
        .IDC            0                   9/02 D
        .IWT            0                   6/10 D
        .LKP          100                  53/35 D   53/36     53/39     53/40
        .MI             0                   5/53 D   11/04 F
        .MINFL          0                   7/51 D
        .OS             1                   5/09 D   11/17
        .OT             1                   5/04 D    5/09
        .SPY            0                  11/18 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  IPARAM
  
  
        IP.ACNT         0                   4/23 D
        IP.ARCH         1                   4/23 D
        IP.BCFAP        2                   4/23 D
        IP.CC7          1                   4/23 D
        IP.CHTIM        1                   4/23 D
        IP.CMU          0                   4/23 D
        IP.CP           6                   4/23 D
        IP.CPLM         5                   4/23 D
        IP.CR         105                   4/23 D
        IP.CSET         0                   4/23 D    4/47
        IP.C176         0                   4/23 D
        IP.C63          2                   4/23 D    4/48
        IP.C64.1        0                   4/23 D    4/23
        IP.C64.2        1                   4/23 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    87
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        IP.DBAL      3777                   4/23 D
        IP.DEBUG        1                   4/23 D
        IP.ECSB         0                   4/23 D
        IP.FT           1                   4/23 D
        IP.HT           0                   4/23 D    4/23
        IP.IACES       13                   4/23 D
        IP.IDFM         1                   4/23 D
        IP.ILCMD        1                   4/23 D
        IP.ILR          0                   4/23 D
        IP.IMUL         1                   4/23 D
        IP.INTCM        1                   4/23 D
        IP.IOLM       100                   4/23 D
        IP.IQD          6                   4/23 D
        IP.IQPW         3                   4/23 D
        IP.IUSID      201                   4/23 D
        IP.LINK         1                   4/23 D
        IP.LVF         70                   4/23 D
        IP.MCPU         1                   4/23 D
        IP.MECS         1                   4/23 D   10/38 F   10/39
        IP.MFL     140000                   4/23 D    4/46
        IP.MMS        100                   4/23 D
        IP.MPPU        12                   4/23 D
        IP.MPR         20                   4/23 D
        IP.MREWR        0                   4/23 D
        IP.MSCT         0                   4/23 D
        IP.MSLM       200                   4/23 D
        IP.MTL      77777                   4/23 D
        IP.NDFS         1                   4/23 D
        IP.NJFL        20                   4/23 D
        IP.OPRI         0                   4/23 D
        IP.OQD         10                   4/23 D
        IP.PD           6                   4/23 D    4/24 F
        IP.PFAC         0                   4/23 D
        IP.PFRP         5                   4/23 D
        IP.POSFL        5                   4/23 D
        IP.PPS2X        2                   4/23 D
        IP.PS          74                   4/23 D    4/26 F    4/56
        IP.RM           0                   4/23 D
        IP.RPMAX     1747                   4/23 D
        IP.RTMTR        0                   4/23 D
        IP.SCHDE        0                   4/23 D
        IP.SECS         0                   4/23 D
        IP.SEP          1                   4/23 D
        IP.SFL      50000                   4/23 D
        IP.SIDLE        1                   4/23 D
        IP.SIOL         0                   4/23 D
        IP.SMS          0                   4/23 D
        IP.SPR         10                   4/23 D
        IP.SPT          0                   4/23 D
        IP.SRMS         0                   4/23 D
        IP.STL        100                   4/23 D
        IP.TCPUB        4                   4/23 D
        IP.TF           0                   4/23 D
        IP.TYPE     14710                   4/23 D
        IP.UP          10                   4/23 D
        IP.US           0                   4/23 D
        IP.XJ           1                   4/23 D
1       CCGTEXT - COMMON CODE GENERATOR ASSEMBLY TEXT                 COMPASS 3.7-871.     24/05/02. 13.12.11.      PAGE    88
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        IP.1M1          3                   4/23 D
        IP.1WB          2                   4/23 D
        IP.1ZZ          0                   4/23 D
        IP.819          0                   4/23 D
        PR.BATCH        1                   4/23 D    4/23
        PR.IDLE         0                   4/23 D
        PR.INT          2                   4/23 D    4/23
        PR.SCP          3                   4/23 D    4/23
        PR.SYS          4                   4/23 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  FUNIT 
  
  
        BJUMP          11                  55/34 D
        BOOL            2                  55/26 D
        BRANCH          1                  55/25 D
        DIVIDE         10                  55/31 D   55/37
        FADD            5                  55/29 D
        IADD            4                  55/28 D   55/35
        INC            11                  55/32 D   55/34
        LCM            12                  55/36 D
        MULT            6                  55/30 D
        NORM            3                  55/33 D
        PACK            3                  55/38 D
        POPC           10                  55/37 D
        SHIFT           3                  55/27 D   55/33     55/38
        XJUMP           4                  55/35 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  HOST
  
  
        HC$FPAS         1                  62/06 D   62/44
        HC$IA           0                  62/15 D   62/46
        HC$ID           2                  62/05 D   62/47
        HC$LNT          1                  62/18 D   62/48
        HC$MCIS         7                  62/07 D   62/27     62/49
        HC$NDAT         4                  62/13 D
        HC$NXLB         0                  62/24 D   62/43
        HC$RJXJ         0                  62/08 D   62/50
        HC$RJ6          1                  62/09 D   62/52
        HC$ROL          0                  62/11 D   62/53
        HC$STP          1                  62/14 D   62/54
        HC$2OC          0                  62/16 D   62/57
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1221              IDENT  CGTM 
                       1221                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1220 
                                        LITERALS* LOCAL        1220         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=CGTM           0+           Z$RCT            6            L$IOA          730+ 
                                        F.OPT            0+           O$BCT          650+           Z$IOA           23
                                        CG$IEP          10+           L$BCT          713+           O$APT          666+ 
                                        PUNT#           30+           Z$BCT            6            L$APT          731+ 
                                        CG.MOX#         35+           O$CFT          651+           Z$APT           24
                                        CG$SCT          41+           L$CFT          714+           O$IOT          667+ 
                                        CG$ENC          51+           Z$CFT            7            L$IOT          732+ 
                                        CG$FCU          70+           O$BST          652+           Z$IOT           25
                                        WPW#            74+           L$BST          715+           O$GLT          670+ 
                                        N$SLBT         100+           Z$BST           10            L$GLT          733+ 
                                        N$IT           101+           O$PSI          653+           Z$GLT           26
                                        N$OT           102+           L$PSI          716+           O$ASG          671+ 
                                        CC$LBO         103+           Z$PSI           11            L$ASG          734+ 
                                        CC$PC          104+           O$RXI          654+           Z$ASG           27
                                        CC$BLEN        105+           L$RXI          717+           O$CVT          672+ 
                                        CG$RBT         106+           Z$RXI           12            L$CVT          735+ 
                                        CG$CUB         121+           O$TET          655+           Z$CVT           30
                                        FSU#           133+           L$TET          720+           O$CUT          673+ 
                                        CG$DSA         166+           Z$TET           13            L$CUT          736+ 
                                        CG$EP          141+           O$IIT          656+           Z$CUT           31
                                        WII#           202+           L$IIT          721+           O$SYM          674+ 
                                        CG$AVO         434+           Z$IIT           14            L$SYM          737+ 
                                        CSN#           445+           O$IOL          656+           Z$SYM           32
                                        F$RDT          464+           L$IOL          721+           O$CBT          675+ 
                                        ISC=           575+           Z$IOL           14            L$CBT          740+ 
                                        SST#           613+           O$UDI          657+           Z$CBT           33
                                        SHL#           637+           L$UDI          722+           O$NLST         676+ 
                                        O$BLK          642+           Z$UDI           15            L$NLST         741+ 
                                        L$BLK          705+           O$FUN          644+           Z$NLST          34
                                        Z$BLK            0            L$FUN          707+           O$DIM          677+ 
                                        O$TXT          643+           Z$FUN            2            L$DIM          742+ 
                                        L$TXT          706+           O$VDT          660+           Z$DIM           35
                                        Z$TXT            1            L$VDT          723+           O$ENTP         700+ 
                                        O$GST          643+           Z$VDT           16            L$ENTP         743+ 
                                        L$GST          706+           O$DTT          646+           Z$ENTP          36
                                        Z$GST            1            L$DTT          711+           O$FPI          701+ 
                                        O$RND          644+           Z$DTT            4            L$FPI          744+ 
                                        L$RND          707+           O$PAP          653+           Z$FPI           37
                                        Z$RND            2            L$PAP          716+           O$VDI          702+ 
                                        O$DUT          644+           Z$PAP           11            L$VDI          745+ 
                                        L$DUT          707+           O$PFP          654+           Z$VDI           40
                                        Z$DUT            2            L$PFP          717+           O$LPT          703+ 
                                        O$TREE         644+           Z$PFP           12            L$LPT          746+ 
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        L$TREE         707+           O$TST          650+           Z$LPT           41
                                        Z$TREE           2            L$TST          713+           O$FE           704+ 
                                        O$PIT          645+           Z$TST            6            L$FE           747+ 
                                        L$PIT          710+           O$AUD          655+           Z$FE            42
                                        Z$PIT            3            L$AUD          720+           F$FRT          750+ 
                                        O$PBT          645+           Z$AUD           13            LM#            754+ 
                                        L$PBT          710+           O$SAP          661+           TO#            763+ 
                                        Z$PBT            3            L$SAP          724+           MX.BLN#        764+ 
                                        O$OTI          646+           Z$SAP           17            THRESH#        765+ 
                                        L$OTI          711+           O$CLW          662+           TOV#           766+ 
                                        Z$OTI            4            L$CLW          725+           TOB#           772+ 
                                        O$MLT          646+           Z$CLW           20            MOREFL#       1014+ 
                                        L$MLT          711+           O$CAC          663+           CWS#          1041+ 
                                        Z$MLT            4            L$CAC          726+           ATSNAT#       1057+ 
                                        O$MOD          647+           Z$CAC           21            ATSTOG#       1060+ 
                                        L$MOD          712+           O$APL          664+           ATS$          1062+ 
                                        Z$MOD            5            L$APL          727+           AFT#          1167+ 
                                        O$RCT          650+           Z$APL           22            ADW$          1177+ 
                                        L$RCT          713+           O$IOA          665+           MTU$          1215+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        F.MEM     CP.AFLS   N$VD      L.ELT#    S$IT      F.SLST    CIO=
                                        CP.NFLS   CGB#      BN#       CC$SUB    WTW=      MVE=      HO$OPT
                                        HO$MFLS   DMB#      O$BIT     N.GT#     S$CON     HE$CTX    HE$EPX
                                        HO$PMLS   MX.AVS#   O.LCT#    CC$SUB0   N$LBT     N$FERR
                                        SYS=      M.BBL#    O.ELT#    S$OT      F$LBT     B=MIO 
  
  
  
  
                                                  IDENT  CGTM                                                    CGTM        2
             0                           B=CGTM   RPVDEF                                                         CGTM        4
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
  
  
                                        *         COMMENT COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.             CCG*94     12
  
  
                                                                                                                 CGTM        6
                                        **        CGTM - CODE GENERATOR TABLE MANAGER AND UTILITY ROUTINES       CGTM        7
  
  
  
                                        **        F.OPT - OPT=2 RANDOM FILE FET AND FIT                          CGTM        9
                                                                                                                 CGTM       10
                                                  ENTRY  F.OPT                                                   CGTM       11
             0                           F.OPT    BSS    0                                                       CGTM       12
                                                                                                                 CGTM       13
                                         #RM      IFEQ   CP#RM,0                                                 CGTM       14
                                                                                                                 CGTM       15
             0  32323232321720000003              VFD    42/7LZZZZZOP,18/3                                       CGTM       16
             1  00000000000003000000              VFD    42/3,18/0                                               CGTM       17
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     3
                                                                      OPT 
  
             2                     2              BSSZ   2                                                       CGTM       18
             4  00000000000000000200              CON    200B                                                    CGTM       19
             5                     3              BSSZ   3                                                       CGTM       20
                                         #RM      ELSE                                                           CGTM       21
                                                                                                                 CGTM       22
                                                  ENTRY  FI.OPT                                                  CCGA018   116
                                         FI.OPT   BSS    0                                                       CCGA018   117
                                         FF.OPT   FILE   LFN=ZZZZZOP,FO=WA,OF=R,CF=U,PD=IO,EO=T,RT=W,MRL=377777B CCGA018   118
                                                  BSSZ   FF.OPT+20D-*                                            CGTM       24
                                                  ENTRY  FF.OPT                                                  CGTM       25
                                                                                                                 CGTM       26
                                         #RM      ENDIF                                                          CGTM       27
  
  
  
                                         .T       IFNE   TEST,0                                                  CCGA072    28
                                        **        CONTV - RETURN I TH VALUE FROM THE CON TABLE                   CCGA072    29
                                                                                                                 CCGA072    30
                                         CONTV    ENTRY.                                                         CCGA072    31
                                                  SA1    X1                                                      CCGA072    32
                                                  SA2    =XO$CVT                                                 CCGA072    33
                                                  IX3    X1+X2                                                   CCGA072    34
                                                  SA4    X3          CVT(ARG)                                    CCGA072    35
                                                  BX6    X4                                                      CCGA072    36
                                                  EQ     CONTV                                                   CCGA072    37
                                         .T       ENDIF                                                          CCGA072    38
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     4
        UTILITY ROUTINES                                              CG$IEP
  
                                        **        CG$IEP - INITIALIZE END PROCESSING                             CGTM       29
                                        *         CLOSE -OPT- FILE, ADJUST WORKING STORAGE LIMITS, ADJUST FL.    CGTM       30
                                                                                                                 CGTM       31
            10                           CG$IEP   ENTRY.                                                         CGTM       32
                                                  SETB1                                                          CGTM       33
            11  7160000766 +                      SX6    TOV#                                                    CGTM       34
                          5160000763 +            SA6    TO          TO = TOV#     */ RESTORE TBL MGR EXIT       CGTM       35
            12  7160000000 X                      SX6    =XHE$EPX                                                CGTM       36
                          5160000035 +            SA6    CG.MOX      SET END PROCESSING OVERFLOW EXIT            CGTM       37
            13  5110000000 X                      SA1    =XHO$OPT                                                CGTM       38
                          0321000020 +            PL     X1,IEP1     IF CO.OPT " 2                               CGTM       39
                                                                                                                 CGTM       40
                                        *         CLOSE THE OPT FILE                                             CGTM       41
                                                                                                                 CGTM       42
                                         #RM      IFEQ   CP#RM,0                                                 CGTM       43
            14  7160001000                        SX6    1000B                                                   CGTM       44
                          5160000001 +            SA6    =XF.OPT+1   CLEAR RANDOM BIT, SET POINTERS TO           CGTM       45
            15  54661                             SA6    A6+B1       VALUE THAT IS < FL                          CGTM       46
                     54661                        SA6    A6+B1                                                   CGTM       47
                          20601                   LX6    1                                                       CGTM       48
                               54661              SA6    A6+B1       LIMIT                                       CGTM       49
            16  7120000000 +                      CLOSE  F.OPT,UNLOAD,R    RETURN THE FILE                       CCG0187     8
                                         #RM      ELSE                                                           CGTM       51
                                                  CLOSEM =XFF.OPT,U                                              CGTM       52
                                         #RM      ENDIF                                                          CGTM       53
                                                                                                                 CGTM       54
            20  7160000000 X             IEP1     SX6    =XB=MIO     SET NEW LOW MEMORY LIMIT                    CGTM       55
                          5160000754 +            SA6    LM                                                      CGTM       56
            21  5160000642 +                      SA6    O$BLK                                                   CGTM       57
                          5160000643 +            SA6    O$TXT                                                   CGTM       58
            22  0400000010 +                      EQ     CG$IEP                                                  CGTM       59
  
  
  
                                        **        PUNT - TERMINATE CCG OVERLAY PROCESSING WHEN INSUFFICIENT      CGTM       61
                                        *                MEMORY IS AVAILABLE TO COMPILE.                         CGTM       62
                                        *                                                                        CGTM       63
                                        *         ENTRY  (X1) = 7L_CHARS                                         CGTM       64
                                                                                                                 CGTM       65
            23  55030307554655111623     PUNTA    DIS    ,$ CCG - INSUFFICIENT MEMORY TO COMPILE - 1234567$      CGTM       66
                                                                                                                 CGTM       67
            30                           PUNT     ENTRY. **,#                                                    CGTM       68
            31  10611                             BX6    X1                                                      CGTM       69
                     5160000027 +                 SA6    PUNTA+4                                                 CGTM       70
                                                  IFNE   TEST,0,1                                                CGTM       71
                                                  MESSAGE PUNTA,,RCL * CCG - INSUFFICIENT MEM TO COMPILE *       CGTM       72
            32  5120000000 X                      SA2    =XN$FERR                                                CGTM       73
                          73721                   SX7    X2+B1       N.FERR = N.FERR + 1                         CGTM       74
                               54720              SA7    A2                                                      CGTM       75
            33  5130000035 +                      SA3    CG.MOX                                                  CGTM       76
                          6223000000              SB2    X3+                                                     CGTM       77
            34  0222000000                        JP     B2          EXIT TO CONTROL ROUTINE                     CGTM       78
                                                                                                                 CGTM       79
            35                           CG.MOX   ENTRY. =XHE$CTX,#  MEMORY OVERFLOW EXIT                        CGTM       80
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     5
        UTILITY ROUTINES                                              CG$SCT
  
                                        **        CG$SCT - SEARCH CON VALUE TABLE                                CGTM       82
                                        *                                                                        CGTM       83
                                        *         ENTRY  (X1) = BINARY CONSTANT TO BE ADDED                      CGTM       84
                                        *                                                                        CGTM       85
                                        *         EXIT   (X6) = ORDINAL OF CONSTANT IN THE TABLE                 CGTM       86
                                                                                                                 CGTM       87
            36  76100                    SCT0     ADDWRD CUT,B0                                                  CGTM       88
            40  7263777776                        SX6    X3-1                                                    CGTM       89
                                                                                                                 CGTM       90
            41                           CG$SCT   ENTRY.                                                         CGTM       91
                                                  SETB1                                                          CGTM       92
            42  5100000030                        ADDWRD CVT,X1      ADDWRD( CVT , CON )                         CGTM       93
            43  5242000000                        SA4    X2+                                                     CGTM       94
                          6272000001              SB7    X2+1                                                    CGTM       95
            44  13146                    SCT1     BX1    X4-X6                                                   CGTM       96
                     54441                        SA4    A4+B1                                                   CGTM       97
                          0311000044 +            NZ     X1,SCT1     IF CON " CVT(I)                             CGTM       98
            45  0331000044 +                      MI     X1,SCT1     IF NOT COMPLEMENTS                          CGTM       99
                                                                                                                 CGTM      100
                          65747                   SB7    A4-B7                                                   CGTM      101
                               76670              SX6    B7                                                      CGTM      102
            46  0476000036 +                      EQ     B7,B6,SCT0  IF MATCH ON LAST ENTRY                      CGTM      103
                          76760                   SX7    B6                                                      CGTM      104
                               54730              SA7    A3          L.CVT = OLD(L.CVT)                          CCG18      11
            47  0400000041 +                      EQ     CG$SCT                                                  CGTM      106
  
  
  
                                        **        ENC - ENTER N-WORD CONSTANT                                    CCG18      13
                                        *                                                                        CCG18      14
                                        *         ENTRY  (X0) = TBL , ADDRESS OF VECTOR OF CONSTANTS             CCG18      15
                                        *                (X5) = N , NUMBER OF CONSTANTS                          CCG18      16
                                        *                                                                        CCG18      17
                                        *         EXIT   (X6) = ORDINAL OF FIRST CONSTANT IN CVT                 CCG18      18
                                                                                                                 CCG18      19
            50  76670                    ENC0     SX6    B7          ORD = I                                     CCG18      20
                     76760                        SX7    B6                                                      CCG18      21
                          5170000735 +            SA7    L$CVT       L.CVT = OLEN                                CCG18      22
            51                           CG$ENC   ENTRY.                                                         CCG18      23
                                                  SETB1                                                          CCG18      24
            52  73150                             ALLOC  CVT,X5      ALLOC( CVT , N ) , OLEN = OLD(L.CVT)        CCG18      25
            54  63550                             SB5    X5          (B5) = N                                    CCG18      26
                     63420                        SB4    X2          (B4) = O.CVT                                CCG18      27
                          73326                   SX3    X2+B6                                                   CCG18      28
                               73150              MOVE   X5,X0,X3    MOVE( N , TBL , CVT(OLEN) )                 CCG18      29
            56  6170777776                        SB7    -1          I = -1                                      CCG18      30
                                                                                                                 CCG18      31
            57  56447                    ENC1     SA4    B4+B7                                                   CCG18      32
                     53300                        SA3    X0                                                      CCG18      33
                          66300                   SB3    B0          K = 0                                       CCG18      34
                               66771              SB7    B7+B1       I = I + 1                                   CCG18      35
                                                                                                                 CCG18      36
            60  13634                    ENC2     BX6    X3-X4                                                   CCG18      37
                     54441                        SA4    A4+B1                                                   CCG18      38
                          54331                   SA3    A3+B1                                                   CCG18      39
                               66331              SB3    B3+B1       K = K + 1                                   CCG18      40
            61  0316000057 +                      NZ     X6,ENC1     IF CVT(I+5) " TBL(K)                        CCG18      41
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     6
        UTILITY ROUTINES                                              ENC 
  
                          0336000057 +            MI     X6,ENC1     IF COMPLEMENTS                              CCG18      42
            62  0735000060 +                      LT     B3,B5,ENC2  IF K < N                                    CCG18      43
                                                                                                                 CCG18      44
                                        *         MATCH FOUND, SEE IF CONSTANT IS IN *OLD* TABLE                 CCG18      45
                                                                                                                 CCG18      46
                          66375                   SB3    B7+B5       LWAC = I + N  */ LWA OF NEW CON IN CVT      CCG18      47
            63  0663000050 +                      LE     B3,B6,ENC0  IF LWAC @ OLEN                              CCG18      48
                                                                                                                 CCG18      49
                                        *         EXPAND *CVT*                                                   CCG18      50
                                                                                                                 CCG18      51
                          76730                   SX7    B3                                                      CCG18      52
            64  5170000735 +                      SA7    L$CVT       L.CVT = LWAC                                CCG18      53
                          76570                   SX5    B7                                                      CCG18      54
                               77136              ALLOC  CUT,B3-B6   ALLOC( CUT , LWAC-OLEN )                    CCG18      55
            66  43600                             SETZERO X2+B6,X1                                               CCG18      56
            67  10655                             BX6    X5          ORD = I                                     CCG18      57
                     0400000051 +                 EQ     CG$ENC                                                  CCG18      58
  
  
  
                                        **        CG$FCU - FORCE USE OF K"TH CONSTANT IN *CVT*                   CGTM      108
                                        *                                                                        CGTM      109
                                        *         ENTRY  (X1) = ORDINAL OF THE CONSTANT                          CGTM      110
                                                                                                                 CGTM      111
            70                           CG$FCU   ENTRY.                                                         CGTM      112
            71  5120000673 +                      SA2    =XO$CUT                                                 CCG16      64
                          76610                   SX6    B1                                                      CGTM      114
                               63210              SB2    X1                                                      CGTM      115
            72  53622                             SA6    X2+B2       CUT(K) = 1                                  CGTM      116
                     0400000070 +                 EQ     CG$FCU                                                  CGTM      117
  
  
  
                                        **        WPW# - WRITE PSEUDO OP WORD TO *SLIST* FILE                    CGTM      119
                                        *                                                                        CGTM      120
                                        *         ENTRY  (B3,X6) = OPCODE VALUE & LOW 48 BITS OF WORD            CGTM      121
                                        *                                                                        CGTM      122
                                        *         PRESERVES A0, X0, A5, X5                                       CGTM      123
                                                                                                                 CGTM      124
            73  7120000000 X             WPW1     WRITEW =XF.SLST,B6,B7                                          CGTM      125
                                                                                                                 CGTM      126
            74                           WPW      ENTRY. **,#                                                    CGTM      127
            75  27636                             PX6    B3,X6                                                   CGTM      128
                     5160000077 +                 SA6    WPWA                                                    CGTM      129
                               64660              SB6    A6                                                      CGTM      130
            76  66710                             SB7    B1                                                      CGTM      131
                     0400000073 +                 EQ     WPW1                                                    CGTM      132
                                                                                                                 CGTM      133
            77                     1     WPWA     BSS    1                                                       CGTM      134
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     7
        CGEP - CODE GENERATOR END PROCESSOR ROUTINES                  CGEP
  
                                        **        CGEP - CODE GENERATOR END PROCESSOR                            CCG15       2
                                        *                                                                        CCG15       3
                                        *         *CGEP* CONTAINS ROUTINE TO DO FINAL ADDRESS DEFINITION,        CCG15       4
                                        *         BLOCK LENGTH CALCULATION, BLOCK SWITCHING, ETC.                CCG15       5
           100                           N$SLBT   ENTRY. 0                                                       CCG16      65
           101                           N$IT     ENTRY. 0                                                       CCG15      15
           102                           N$OT     ENTRY. 0                                                       CCG15      16
                                                                                                                 CCG15      17
           103                           CC$LBO   ENTRY. 0           ORDINAL OF LOCAL BLOCK BEING PROCESSED      CCG15      18
           104                           CC$PC    ENTRY. 0           PARCEL COUNTER ( 0 - 3 )                    CCG15      19
           105                           CC$BLEN  ENTRY. 0           LENGTH OF CURRENT BLOCK                     CCG15      20
                                                                                                                 CCG15      24
                                                  QUAL   WII                                                     CCG15      25
  
  
                                        **        CG$RBT - RELOCATE BLOCK TABLE                                  CCG15      27
                                                                                                                 CCG15      28
           106  0200400106 +             CG$RBT   ROUTINE                                                        CCG15      29
           107  5130000104 +                      SA3    CC$PC                                                   CCG15      30
                          5140000105 +            SA4    CC$BLEN                                                 CCG15      31
           110  7110000000 X                      SX1    =XF$LBT                                                 CCG16      66
                          5120000103 +            SA2    CC$LBO                                                  CCG15      33
           111  20322                             LX3    18                                                      CCG15      34
                     12634                        BX6    X3+X4                                                   CCG15      35
                          63220                   SB2    X2                                                      CCG15      36
                               53612              SA6    X1+B2       LBT(LBO) = (PC,BLEN)                        CCG15      37
           112  66200                             SB2    B0          I = 0                                       CCG15      39
                     5130000000 X                 SA3    =XN$LBT                                                 CCGA072    39
           113  6233000001                        SB3    X3+1        N = N$LBT + 1                               CCGA072    40
                          43052                   MX0    42                                                      CCG15      41
                               43700              MX7    0           S = 0                                       CCG15      42
                                                                                                                 CCG15      43
           114  53312                    RBT1     SA3    X1+B2                                                   CCG15      44
                     11503                        BX5    X0*X3                                                   CCG15      45
                          0305000116 +            ZR     X5,RBT2     IF PC[LBT(I)] = 0                           CCG15      46
           115  7233000001                        SX3    X3+1        BLEN[LBT(I)] = BLEN[LBT(I)] + 1             CCG15      47
           116  54730                    RBT2     SA7    A3          LBT(I) = S    */ FWA                        CCG15      48
                     36773                        IX7    X7+X3       S = S + BLEN[LBT(I)]                        CCG15      49
                          6122000001              SB2    B2+1        I = I + 1                                   CCG15      50
           117  0723000114 +                      LT     B2,B3,RBT1                                              CCG15      51
                                                                                                                 CCG15      52
                          5170000100 +            SA7    N$SLBT                                                  CCG15      53
           120  0400000106 +                      EQ     CG$RBT                                                  CCG15      54
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     8
        CG$CUB - CHANGE USE BLOCK                                     CG$CUB              WII 
  
                                        **        CG$CUB - CHANGE USE BLOCK                                      CCG15      56
                                        *                                                                        CCG15      57
                                        *         ENTRY  (X1) = *LBT* ORDINAL OF NEW USE BLOCK                   CCG15      58
                                                                                                                 CCG15      59
           121  0200400121 +             CG$CUB   ROUTINE                                                        CCG15      60
                                                  SETB1                                                          CCG15      61
           122  5120000103 +                      SA2    CC$LBO      OBO = CC$LBO                                CCG15      62
                          37712                   IX7    X1-X2                                                   CCG15      63
                               10611              BX6    X1                                                      CCG15      64
           123  0307000121 +                      ZR     X7,CG$CUB   IF NBO = OBO                                CCG15      65
                                                                                                                 CCG15      66
                          54620                   SA6    A2          CC$LBO = NBO                                CCG15      67
           124  5130000104 +                      SA3    CC$PC                                                   CCG15      68
                          5140000105 +            SA4    CC$BLEN                                                 CCG15      69
           125  20366                             LX3    54                                HX3   LB.PARC         CCG0220     9
                     12634                        BX6    X3+X4                                                   CCG15      71
                          6130000000 X            SB3    F$LBT                                                   CCG16      68
           126  53623                             SA6    B3+X2       LBT(OBO) = SHIFT(PC,18) ! BLEN              CCG15      74
                     53513                        SA5    B3+X1                                                   CCG15      75
                          73650                   SX6    X5                                                      CCG15      76
                               54640              SA6    A4                                                      CCG15      77
           127  21566                             AX5    54          PARCNT = PARC[LBTI] / AX5   -LB.PARCL       CCG0220    10
                     73650                        SX6    X5                                                      CCG15      79
                          54630                   SA6    A3                                                      CCG15      80
           130  7261100000                        SX6    X1+1S15                                                 CCG15      81
                          6130777770              WRITEP USE         OUTPUT *USE* TO SLIST                       CCG15      82
           132  0400000121 +                      EQ     CG$CUB                                                  CCG15      83
  
  
  
                                        **        FSU# - FORCE NEXT SEQUENCE UPPER                               CCG15      85
                                                                                                                 CCG15      86
           133  0200400133 +             FSU#     ROUTINE                                                        CCG15      87
           134  5110000104 +                      SA1    CC$PC                                                   CCG15      88
                          0301000133 +            ZR     X1,FSU#     IF PARCEL = 0                               CCG15      89
           135  43700                             MX7    0                                                       CCG15      90
                     54710                        SA7    A1          PARCEL = 0                                  CCG15      91
                          5120000105 +            SA2    CC$BLEN                                                 CCG15      92
           136  73621                             SX6    X2+B1       BLEN = BLEN + 1                             CCG15      93
                     54620                        SA6    A2                                                      CCG15      94
                          5160000140 +            SA6    FU          FU = 1                                      CCG15      95
           137  0400000133 +                      EQ     FSU#                                                    CCG15      96
                                                                                                                 CCG15      97
           140  00000000000000000000     FU       DATA   0           "0 IF TO FORCE UPPER                        CCG15      98
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE     9
        CG$EP - CCG END PROCESSOR                                     CG$EP               WII 
  
                                        **        CG$EP - CODE GENERATOR END PROCESSOR                           CCG15     100
                                        *         FUNCTIONS -                                                    CCG15     101
                                        *         SETUP *CVT* ORDINAL TABLE FOR *CGIA*                           CCG15     102
                                        *         OUPUT TABLE OF CONSTANT LITERALS AS - * CON. BSS 0 FOLLOWED    CCG15     103
                                        *         BY DATA WORDS.                                                 CCG15     104
                                        *         DEFINE ADDRESS"S AND ALLOCATE STORAGE FOR OTHER SPECIAL SYMBOL CCG15     105
                                        *                                                                        CCG15     106
                                        *         ENTRY  CVT - CONSTANT VALUE TABLE                              CCG15     107
                                        *                CUT - CONSTANT USE TABLE ENTRIES ARE 0 OR 1 FOR UNUSED  CCG15     108
                                        *                   OR USED.                                             CCG15     109
                                        *                N$IT, N$OT = NUMBER OF IT."S USED, ETC                  CCG15     110
                                        *                                                                        CCG15     111
                                        *         EXIT   CVT REFORMATTED AS 60/ ORDINAL OF CONSTANT VALUE IN     CCG15     112
                                        *                   CON. ARRAY.                                          CCG15     113
                                        *                ADDRESS OF SPECIAL SYMBOLS ( IT., OT., CON. , ETC )     CCG15     114
                                        *                   DEFINED AND OUTPUT TO *SLIST* FILE.                  CCG15     115
                                                                                                                 CCG15     116
           141  0200400141 +             CG$EP    ROUTINE                                                        CCG15     117
                                                  SETB1                                                          CCG15     118
                                                                                                                 CCG15     119
                                        *         REFORMAT *CUT* AS ORDINALS TO CON. ARRAY, SQUEEZE UNUSED       CCG15     120
                                        *         ENTRIES OUT OF *CVT*.                                          CCG15     121
                                                                                                                 CCG15     122
           142  76100                             ADDWRD CUT,0                                                   CCG15     123
           144  5110000672 +                      SA1    O$CVT                                                   CCG16      69
                          66200                   SB2    B0          I = 0                                       CCG15     125
                               63330              SB3    X3          N = L.CUT                                   CCG15     126
           145  63410                             SB4    X1                        (B4) = CVT                    CCG15     127
                     63520                        SB5    X2                        (B5) = CUT                    CCG15     128
                          7170000000              SX7    0           J = 0                                       CCG15     129
                                                                                                                 CCG15     130
           146  56552                    EP1      SA5    B5+B2                                                   CCG15     131
                     0305000150 +                 ZR     X5,EP2      IF CUT(I) = 0 */ CON NOT REFERENCED         CCG15     132
                                                                                                                 CCG15     133
                               54750              SA7    A5          CUT(I) = J    */ SET ORDINAL                CCG15     134
           147  56442                             SA4    B4+B2                                                   CCG15     135
                     10644                        BX6    X4          CVT(J) = CVT(I)  */ MOVE TO FINAL POSITION  CCG15     136
                          53674                   SA6    B4+X7                                                   CCG15     137
                               73771              SX7    X7+B1       J = J + 1                                   CCG15     138
                                                                                                                 CCG15     139
           150  66221                    EP2      SB2    B2+B1       I = I + 1                                   CCG15     140
                     0723000146 +                 LT     B2,B3,EP1   IF I < N                                    CCG15     141
                                                                                                                 CCG15     142
                               10577              BX5    X7                                                      CCG15     143
           151  0307000160 +                      ZR     X7,EP3      IF J = 0                                    CCG15     144
                                        *                                                                        CCG15     145
                                        *         DEFINE ADDRESS OF CON. AND OUTPUT TABLE OF DATA WORDS          CCG15     146
                                                                                                                 CCG15     147
                          5110000000 X            SA1    =XS$CON                                                 CCG15     148
           152  76200                             SX2    B0                                                      CCG15     149
                     0100000166 +                 RJ     CG$DSA      DEFINE CON.                                 CCG15     150
           153  5130000105 +                      SA3    CC$BLEN                                                 CCGA072    41
                          36735                   IX7    X3+X5                                                   CCGA072    42
                               54730              SA7    A3          BLEN = BLEN + L$CVT                         CCGA072    43
           154  10655                             BX6    X5                                                      CCG15     151
                     20636                        LX6    SI.CAP                                                  CCG15     152
                          6130777763              WRITEP DATA        OUTPUT DATA HEADER WORD                     CCG15     153
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    10
        CG$EP - CCG END PROCESSOR                                     CG$EP               WII 
  
           156  5140000672 +                      SA4    O$CVT                                                   CCG16      70
                          63640                   WRITEW F.SLST,X4,X5      OUTPUT DATA WORDS                     CCG15     155
                                                                                                                 CCG15     156
                                        *         DEFINE ADDRESS"S OF SPECIAL SYMBOLS                            CCG15     157
                                                                                                                 CCG15     158
           160  7160000000               EP3      SX6    0                                                       CCG15     159
                          5160000735 +            SA6    L$CVT             L$CVT = 0                             CCG16      71
                                         .PLI     IFNE   HC.ID,3                                                 CCG15     161
                                                  ECHO   4,Z=(IT,OT)                                             CCG15     162
                                                  SA1    =XS$Z                                                   CCG15     163
                                                  SA2    N$Z                                                     CCG15     164
                                        +         ZR     X2,*+1                                                  CCG15     165
                                                  RJ     CG$DSA                                                  CCG15     166
                                         .PLI     ENDIF                                                          CCG15     167
                                                                                                                 CCG15     168
           165  0400000141 +                      EQ     CG$EP                                                   CCG15     169
  
  
  
                                        **        CG$DSA - DEFINE SYMBOL ADDRESS AND OUTPUT STORAGE FOR IT       CCG15     171
                                        *                                                                        CCG15     172
                                        *         ENTRY  (X1) = IH, SYMTAB ORDINAL                               CCG15     173
                                        *                (X2) = WDS , NUMBER OF WORDS RESERVED FOR THIS SYMBOL   CCG15     174
                                        *                                                                        CCG15     175
                                        *         PRESERVES A0, X0, A5, X5                                       CCG15     176
                                                                                                                 CCG15     177
           166  0200400166 +             CG$DSA   ROUTINE                                                        CCG15     178
           167  5140000104 +                      SA4    CC$PC                                                   CCG15     179
                                                  SETB1                                                          CCG15     180
                          5130000105 +            SA3    CC$BLEN                                                 CCG15     181
           170  76610                             SX6    B1                                                      CCG15     182
                     20672                        LX6    WC.RLP                                                  CCG15     183
                          0304000172 +            ZR     X4,DSA1     IF PARCEL = 0                               CCG15     184
           171  43700                             MX7    0                                                       CCG15     185
                     54740                        SA7    A4          PARCEL = 0                                  CCG15     186
                          7233000001              SX3    X3+1        BLEN = BLEN + 1                             CCG15     187
           172  36732                    DSA1     IX7    X3+X2       RA = BLEN;  BLEN = BLEN + WDS               CCG15     188
                     5140000103 +                 SA4    CC$LBO                                                  CCG15     189
                               54730              SA7    A3                                                      CCG15     190
           173  0301000177 +                      ZR     X1,DSA2     IF IH = 0                                   CCG15     191
                          20460                   LX4    WC.RBP                                                  CCG15     192
                                                  LX3    WC.RAP                                                  CCG16      72
                               12443              BX4    X4+X3                                                   CCG15     193
           174  5130000674 +                      SA3    =XO$SYM                                                 CCG16      73
                          12664                   BX6    X6+X4       ADW = WC(1,0,CG.LBO,RA)                     CCG15     195
           175  6223000002                        SB2    X3+2                                                    CCG15     196
                          22711                   LX7    B1,X1                                                   CCG15     197
                               36717              IX7    X1+X7                                                   CCG15     198
           176  53672                             SA6    B2+X7       SYM(3*IH+2) = ADW                           CCG15     199
           177  20236                    DSA2     LX2    R1.CAP                                                  CCG15     200
                     12621                        BX6    X2+X1                                                   CCG15     201
                          6130000006              WRITEP LAB         OUTPUT * IH BSS WDS * TO SLIST              CCG15     202
           201  0400000166 +                      EQ     CG$DSA                                                  CCG15     203
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    11
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    WII                 WII 
  
                                        **        WII - WRITE ISSUED INSTRUCTIONS IN *SI.* FORMAT TO *SLIST*.    CCG15     205
                                        *         FUNCTIONS -                                                    CCG15     206
                                        *                MAINTAIN BLOCK LENGTH AND PARCEL COUNTER                CCG15     207
                                        *                ADJUST SPECIAL INSTRUCTIONS ( TLD, TST, ETC. )          CCG15     208
                                        *                SET *MAT* BIT IN WORDB OF *SYM*                         CCG15     209
                                        *                DEFINE ADDRESS"S OF TRANSFER LABELS                     CCG15     210
                                                                                                                 CCG15     211
                                         SZ       MICRO  1,, B2      INSTRUCTION SIZE IN PARCELS                 CCG15     212
                                         PC       MICRO  1,, B5      PARCEL - 4                                  CCG15     213
                                         BL       MICRO  1,, B7      BLOCK LENGTH                                CCG15     214
                                                                                                                 CCG15     215
           202  0200400202 +             WII#     ROUTINE                                                        CCG15     216
                                                  TRACE  WII,PIT                                                 CCG15     217
           203  5150000645 +                      SA5    O$PIT                                                   CCG16      74
                          63650                   WRITEW F.SLST,X5,1       OUTPUT *BOS* TO SLIST                 CCG15     219
           205  5110000140 +                      SA1    FU                                                      CCG15     220
                          0301000210 +            ZR     X1,WII0     IF FU = 0     */ NO FORCE UPPER             CCG15     221
           206  43600                             MX6    0           FU = 0                                      CCG15     222
                     54610                        SA6    A1                                                      CCG15     223
                          6130000006              WRITEP LAB                                                     CCG30       1
                                                                                                                 CCG15     225
           210  53550                    WII0     SA5    X5          PI = [O.PIT]                                CCG15     226
                     5120000674 +                 SA2    O$SYM                                                   CCG16      75
                               63621              SB6    X2+B1                     (B6) = SYM + 1                CCG15     228
           211  5140000104 +                      SA4    CC$PC                                                   CCG15     229
                          5130000105 +            SA3    CC$BLEN                                                 CCG15     230
           212  63730                             S"BL"  X3                                                      CCG15     231
                     6254777773                   S"PC"  X4-4                                                    CCG15     232
                               66200              S"SZ"  B0          SZ = 0                                      CCG15     233
           213  5120000673 +                      SA2    O$CUT                                                   CCG16      76
                          43066                   MX0    -6                                                      CCG15     235
                               53020              SA0    X2                        (A0) = CUT                    CCG15     236
                                                                                                                 CCG15     237
                                        *         RETURN POINT FOR PROCESSING OF MOST INSTRUCTIONS               CCG15     238
                                                                                                                 CCG15     239
           214  66552                    WII1     S"PC"  "PC"+"SZ"   PC = PC + SZ                                CCG15     240
                     54551                        SA5    A5+B1       PI = PI + 1                                 CCG15     241
                          0750000217 +            LT     "PC",WII2   IF PC < 4                                   CCG15     242
                                                                                                                 CCG15     243
           215  66350                             SB3    "PC"        S = PC                                      CCG15     244
                     6150777773                   S"PC"  -4          PC = 0                                      CCG15     245
                               66771              S"BL"  "BL"+B1     BLEN = BLEN + 1                             CCG15     246
           216  0430000217 +                      ZR     B3,WII2     IF S = 0      */ NO SIZE FAULT              CCG15     247
                                                                                                                 CCG15     248
                          66552                   S"PC"  "PC"+"SZ"   PC = SZ                                     CCG15     249
                                                                                                                 CCG15     250
                                        *         SETUP REGISTERS, JUMP TO INSTRUCTION PROCESSOR                 CCG15     251
                                                                                                                 CCG15     252
           217  26735                    WII2     UX7    B3,X5                                                   CCG15     253
                     76630                        SX6    B3                                                      CCG16      77
                          66210                   S"SZ"  B1          SZ = 1                                      CCG16      78
                               20673              LX6    -1                                                      CCG16      79
           220  5236000370 +                      SA3    WIIA+X6                                                 CCG16      80
                          7140000036              SX4    30                                                      CCG16      81
           221  21673                             AX6    59                                                      CCG16      82
                     15446                        BX4    -X6*X4      0 OR 30                                     CCG16      83
                          63440                   SB4    X4                                                      CCG16      84
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    12
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    WII                 WII 
  
                               22343              LX3    B4                                                      CCG16      85
           222  63430                             SB4    X3                                                      CCG15     257
                     0244000214 +                 JP     B4+WII1     JUMP TO PROCESSOR                           CCG15     258
  
  
                                        **        NOP - TERMINATE PROCESSING                                     CCG15     260
                                                                                                                 CCG15     261
           223                                    PROCESS NOP                                                    CCG15     262
           223  7165000004                        SX6    "PC"+4                                                  CCG15     263
                          5160000104 +            SA6    CC$PC                                                   CCG15     264
           224  7177000000                        SX7    "BL"+                                                   CCG15     265
                          5170000105 +            SA7    CC$BLEN                                                 CCG15     266
           225  5140000645 +                      SA4    =XO$PIT                                                 CCG16      86
                          5130000710 +            SA3    =XL$PIT                                                 CCG16      87
           226  43700                             MX7    0                                                       CCG15     269
                     54730                        SA7    A3          L.PIT = 0                                   CCG15     270
                          63641                   WRITEW F.SLST,X4+B1,X3-2 WRITE REST OF *PIT* TO SLIST          CCG15     271
           231  0400000202 +                      EQ     WII#                                                    CCG15     272
  
  
                                         .FPAS    IFNE   HC.FPAS*.DAL      F.P. ADDSUB & LEVEL 2                 CCG16      89
                                                                                                                 CCG16      90
           232                                    PROCESS (DRL,DWL)                                              CCG16      91
           232  21714                             AX7    SI.IHP                                                  CCG16      92
                     63470                        SB4    X7                                                      CCG16      93
                          0440000214 +            ZR     B4,WII1     IF IH[PI] = 0 */ NOT A *SUB0*               CCG35       4
           233  6247737777                        SB4    X7-IH.LCM                                               CCG35       5
                          76644                   SX6    B4+B4                                                   CCG35       6
                               66464              SB4    B6+B4                                                   CCG16      97
           234  53464                             SA4    B4+X6       WORDB = SYM(3*IH+1)                         CCG16      98
                     43763                        MX7    -WB.FPOL                                                CCG16      99
                          20433                   LX4    -WB.FPOP                                                CCG16     100
           235  5130000701 +                      SA3    =XO$FPI                                                 CCG16     101
                          15647                   BX6    -X7*X4                                                  CCG16     102
           236  6243777776                        SB4    X3-1                                                    CCG24       1
                          53264                   SA2    B4+X6                                                   CCG16     104
                               76310              SX3    B1                                                      CCG16     105
           237  20322                             LX3    FP.SUB0P                                                CCG16     106
                     36623                        IX6    X2+X3       SUB0[FPI(FPO)] = SUB0[FPI(FPO)] + 1         CCG16     107
                          5160000000 X            SA6    =XCC$SUB0   CC$SUB0 = 1                                 CCG18      59
           240  54620                             SA6    A2                                                      CCG16     108
                     0400000214 +                 EQ     WII1                                                    CCG16     109
                                         .FPAS    ENDIF                                                          CCG16     110
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    13
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    TLD                 WII 
  
                                        **        TLD, TST - ADJUST *CA* TO REFLECT ASSIGNMENT MADE BY *GPO*     CCG15     274
                                                                                                                 CCG15     275
           241                           TLD      PROCESS (TLD,TST)                                              CCG15     276
           241  20766                             LX7    -SI.RJP                                                 CCG15     277
                     15670                        BX6    -X0*X7                                                  CCG15     278
                          0316000214 +            NZ     X6,WII1     IF RJ[PI] " 0 */ CONVERTED TO A SHORT INSTR CCG15     279
                                                                                                                 CCG15     280
                                        *         SEARCH *TET* TO FIND LOCATION IN IT. BLOCK ASSIGNED            CCG15     281
                                        *         TO THIS TLD/TST .                                              CCG15     282
                                                                                                                 CCG15     283
           242  5110000655 +                      SA1    =XO$TET                                                 CCG15     284
                          6130000002              SB3    59-T.FAP                                                CCG15     285
           243  63210                             SB2    X1                        (B2) = TET                    CCG15     286
                     20744                        LX7    SI.RJP-SI.CAP                                           CCG15     287
                          6140000001              SB4    59-T.EQVP                                               CCG15     288
                                                                                                                 CCG15     289
           244  53172                    TLD1     SA1    B2+X7       TI = TET(C)                                 CCG15     290
                     22631                        LX6    B3,X1                                                   CCG15     291
                          73710                   SX7    X1          C = CA[TI]                                  CCG15     292
                               22241              LX2    B4,X1                                                   CCG15     293
           245  0336000253 +                      MI     X6,TLD3     IF FA[TI]     */ FINAL ASSIGNMENT MADE      CCG15     294
                          0332000244 +            MI     X2,TLD1     IF EQV[TI]    */ EQUIVALENT TO ANOTHER      CCG15     295
                                                                                                                 CCG15     296
                                        *         CA NOT ASSIGNED, MUST BE OPT=1, GET NEXT CELL AND SAVE         CCG15     297
                                        *         VALUE IN *CA* FIELD OF *TET* ENTRY.                            CCG15     298
                                                                                                                 CCG15     299
           246  5120000000 X                      SA2    =XN.GT#                                                 CCG15     300
                          10722                   BX7    X2          C = N.GT                                    CCG15     301
                               43352              MX3    -T.CAL                                                  CCG15     302
           247  73621                             SX6    X2+B1       N.GT = N.GT + 1                             CCG15     303
                     54620                        SA6    A2                                                      CCG15     304
                          5140000101 +            SA4    =XN$IT                                                  CCG15     305
           250  76210                             SX2    B1                                                      CCG15     306
                     11131                        BX1    X3*X1                                                   CCG15     307
                          12117                   BX1    X1+X7       CA[TI] = C                                  CCG15     308
                               20271              LX2    T.FAP                                                   CCG15     309
           251  12612                             BX6    X1+X2       FA[TI] = 1                                  CCG15     310
                     54610                        SA6    A1                                                      CCG15     311
                          73671                   SX6    X7+B1                                                   CCG15     312
                               37446              IX4    X4-X6                                                   CCG15     313
           252  0324000253 +                      PL     X4,TLD3     N.IT = MAX( N.IT , C+1 )                    CCG15     314
                          54640                   SA6    A4                                                      CCG15     315
                                                                                                                 CCG15     316
           253  20536                    TLD3     LX5    -SI.CAP                                                 CCG15     317
                     43152                        MX1    -SI.CAL                                                 CCG15     318
                          11515                   BX5    X1*X5                                                   CCG15     319
                               12757              BX7    X5+X7       CA[PI] = C                                  CCG15     320
           254  20736                             LX7    SI.CAP                                                  CCG15     321
                     6120000002                   S"SZ"  2           SZ = 2                                      CCG15     322
                               54750              SA7    A5                                                      CCG15     323
           255  0400000214 +                      EQ     WII1                                                    CCG15     324
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    14
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    PLD                 WII 
  
           256                                    PROCESS (PLD,PST,S)                                            CCG15     326
           256  21736                             AX7    SI.CAP                                                  CCG15     327
                     0307000214 +                 ZR     X7,WII1     IF CA[PI] = 0                               CCG15     328
                               66211              S"SZ"  B1+B1       SZ = 2                                      CCG15     329
           257  0400000214 +                      EQ     WII1                                                    CCG15     330
  
  
  
           260                                    PROCESS ILD                                                    CCG15     332
           260  5120000000 X                      SA2    =XS$IT                                                  CCG15     333
                          20560                   LX5    -SI.IHP                                                 CCG15     334
                               13125              BX1    X2-X5                                                   CCG15     335
           261  63410                             SB4    X1                                                      CCG15     336
                     20514                        LX5    SI.IHP                                                  CCG15     337
                          0440000241 +            ZR     B4,TLD      IF IH[PI] = IT.                             CCGA028     5
                                                                                                                 CCG15     339
           262                                    PROCESS (LD,ST,STT)                                            CCG15     340
           262  21714                             AX7    SI.CAIHP                                                CCG15     341
                     0307000214 +                 ZR     X7,WII1     IF CAIH[PI] = 0                             CCG15     342
                               66211              S"SZ"  B1+B1       SZ = 2                                      CCG15     343
                                                                                                                 CCG15     344
           263  43171                             MX1    -IH.IL                                                  CCG15     345
                     20117                        LX1    IH.IP                                                   CCG15     346
                          15271                   BX2    -X1*X7                                                  CCG15     347
           264  0312000270 +                      NZ     X2,LD1      IF I[PI] " 0  */ NOT IN SYM                 CCG15     348
                                                  IF     -DEF,WB.MATP,1                                          CCG15     349
                                                  IFNE   HC.FPAS,0,3                                             CCG15     350
                          73770                   SX7    X7                                                      CCGA037     7
                               22617              LX6    B1,X7                                                   CCG15     351
           265  63376                             SB3    X7+B6                                                   CCG15     352
                     53363                        SA3    B3+X6       WORDB = SYM(3*IH+1)                         CCG15     353
                                                                                                                 CCG15     354
                                         .MAT     IF     DEF,WB.MATP                                             CCG15     355
                          76110                   SX1    B1                                                      CCG15     356
                               20136              LX1    WB.MATP                                                 CCG15     357
           266  12613                             BX6    X1+X3       MAT[SYM(3*IH+1)] = 1                        CCG15     358
                     54630                        SA6    A3                                                      CCG15     359
                                         .MAT     ENDIF                                                          CCG15     360
                                                                                                                 CCG15     361
                                         .FPAS    IFNE   HC.FPAS,0                                               CCG15     362
                          20353                   LX3    59-WB.FPP                                               CCG15     363
           267  0323000270 +            +         PL     X3,*+1      IF ^FP[WORDB]                               CCG15     364
                          0100000317 +            RJ     CSR         COUNT SUB REF                               CCG15     365
                                         .FPAS    ENDIF                                                          CCG15     366
                                                                                                                 CCG15     367
                                         LD1      LX5    59-SI.H2P                                               CCG15     368
           270  0325000214 +                      PL     X5,WII1     IF ^HI[PI]                                  CCG15     369
                          5055000001              SA5    A5+1        PI = PI + 1   */ SKIP WORD WITH *H2* IN IT  CCG15     370
           271  0400000214 +                      EQ     WII1                                                    CCG15     371
  
  
           272                                    PROCESS LDC                                                    CCG15     373
           272  20536                             LX5    -SI.CAP                                                 CCG15     374
                     76610                        SX6    B1                                                      CCG15     375
                          66211                   S"SZ"  B1+B1       SZ = 2                                      CCG15     376
                               64300              SB3    A0                                                      CCG15     377
           273  53653                             SA6    B3+X5       CUT(CA[SI]) = 1                             CCG15     378
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    15
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    LDC                 WII 
  
                     0400000214 +                 EQ     WII1                                                    CCG15     379
  
  
                                         .VD      IF     DEF,VD.MATP                                             CCG16     112
                                                                                                                 CCG16     113
                                        *         LDV - CONVERT CA TO FINAL CA AND CHANGE OPCODE TO A *LD*       CCG16     114
                                                                                                                 CCG16     115
           274                                    PROCESS LDV                                                    CCG16     116
           274  20736                             LX7    -SI.CAP                                                 CCG16     117
                     73170                        SX1    X7                                                      CCG16     118
                          0100000434 +            RJ     CG$AVO      CA = CG$AVO( CA[PI] )                       CCG16     119
           275  20536                             LX5    -SI.CAP                                                 CCG16     120
                     43752                        MX7    -SI.CAL                                                 CCG16     121
                          6130000050              SB3    OC.LD                                                   CCG16     122
           276  11575                             BX5    X7*X5                                                   CCG16     123
                     12651                        BX6    X5+X1                                                   CCG16     124
                          20636                   LX6    SI.CAP                                                  CCG16     125
                               27736              PX7    B3,X6       OC[PI] = OC.LD                              CCG16     126
           277  54750                             SA7    A5                                                      CCG16     127
                     66211                        S"SZ"  B1+B1       SZ = 2                                      CCG16     128
                          0400000214 +            EQ     WII1                                                    CCG16     129
                                         .VD      ENDIF                                                          CCG16     130
  
  
  
                                        *         JUMPS                                                          CCG15     381
                                                                                                                 CCG15     382
           300                                    PROCESS (JPX,JPBB)                                             CCG15     383
           300  6140000014                        SB4    SI.IHP                                                  CCG15     384
                          0100000351 +            RJ     RLV         CHECK REFERENCED LABEL                      CCG15     385
           301  6120000002                        S"SZ"  2           SZ = 2                                      CCG15     386
                          0400000214 +            EQ     WII1                                                    CCG15     387
                                                                                                                 CCG15     388
           302                                    PROCESS JIN                                                    CCG15     389
           302  6140000014                        SB4    SI.IHP                                                  CCG15     390
                          0100000351 +            RJ     RLV         CHECK REFERENCED LABEL                      CCG15     391
           303  0400000305 +                      EQ     UJP1                                                    CCG15     392
                                                                                                                 CCG15     393
           304                                    PROCESS UJP                                                    CCG15     394
           304  66400                             SB4    B0                                                      CCG15     395
                     0100000351 +                 RJ     RLV         CHECK REFERENCED LABEL                      CCG15     396
                                                                                                                 CCG15     397
                                        *         UNCONDITIONAL JUMP, FORCE UPPER AFTER                          CCG15     398
                                                                                                                 CCG15     399
           305                                    PROCESS RJ3                                                    CCG15     400
           305  76651                    UJP1     SX6    "PC"+B1     S = PC + 1                                  CCG15     401
                     66771                        S"BL"  "BL"+B1     BLEN = BLEN + 1                             CCG15     402
                          6150777773              S"PC"  -4          PC = 0                                      CCG15     403
           306  54551                             SA5    A5+B1       PI = PI + 1                                 CCG15     404
                     0336000217 +                 MI     X6,WII2     IF S < 3      */ OLD(PC)+1 < 3              CCG15     405
                               66771              S"BL"  "BL"+B1     BLEN = BLEN + 1                             CCG15     406
           307  0400000217 +                      EQ     WII2                                                    CCG15     407
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    16
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    RJXJ                WII 
  
                                         .RJXJ    IFNE   HC.RJXJ,0                                               CCG15     409
                                                                                                                 CCG15     410
                                                  PROCESS RJXJ                                                   CCG15     411
                                                  SX6    "PC"+4                                                  CCG15     412
                                                  ZR     X6,RJXJ1    IF PC = 0                                   CCG15     413
                                                  S"PC"  -4          PC = 0        */ FORCE UPPER BEFORE         CCG15     414
                                                  S"BL"  "BL"+1      BLEN = BLEN + 1                             CCG15     415
                                         RJXJ1    SA5    A5+B1       PI = PI + 1                                 CCG15     416
                                                  S"BL"  "BL"+B1     BLEN = BLEN + 1                             CCG15     417
                                                  EQ     WII2                                                    CCG15     418
                                                                                                                 CCG15     419
                                         .RJXJ    ENDIF                                                          CCG15     420
  
  
  
                                         .RJ6     IFNE   HC.RJ6,0                                                CCG15     422
                                                                                                                 CCG15     423
           310                                    PROCESS RJ6                                                    CCG15     424
           310  7165000004                        SX6    "PC"+4                                                  CCG15     425
                          0306000312 +            ZR     X6,RJ61     IF PC = 0                                   CCG15     426
           311  6150777773                        S"PC"  -4          PC = 0                                      CCG15     427
                          6177000001              S"BL"  "BL"+1      BLEN = BLEN + 1                             CCG15     428
           312                           RJ61     BSS    0                                                       CCG15     429
                                         .FPAS    IFNE   HC.FPAS,0                                               CCG15     430
           312  63356                             SB3    X5+B6                                                   CCG15     431
                     22615                        LX6    B1,X5                                                   CCG15     432
                          53363                   SA3    B3+X6                                                   CCG15     433
                               20353              LX3    59-WB.FPP                                               CCG15     434
           313  0323000314 +            +         PL     X3,*+1      IF ^FP[WORDB]                               CCG15     435
                          0100000317 +            RJ     CSR         COUNT SUB REF                               CCG15     436
                                         .FPAS    ENDIF                                                          CCG15     437
                                                                                                                 CCG15     438
           314  20536                             LX5    -SI.CAP                                                 CCG15     439
                     7215770001                   SX1    X5-7776B                                                CCGA041     6
           315  0331000316 +                      MI     X1,RJ62     IF CA[R1] < 4095                            CCGA041     7
                          6177000001              S"BL"  "BL"+1      BLEN = BLEN + 1                             CCG15     442
           316  54551                    RJ62     SA5    A5+B1       PI = PI + 1                                 CCG15     443
                     66771                        S"BL"  "BL"+B1     BLEN = BLEN + 1  */ COUNT RJ WORD           CCG15     444
                          0400000217 +            EQ     WII2                                                    CCG15     445
                                                                                                                 CCG15     446
                                         .RJ6     ENDIF                                                          CCG15     447
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    17
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    CSR                 WII 
  
                                         .FPAS    IFNE   HC.FPAS,0                                               CCG15     449
                                        **        CSR - COUNT *SUB* REFERENCE                                    CCG15     450
                                        *                                                                        CCG15     451
                                        *         ENTRY  (A3) = ADDRESS OF WORD B                                CCG15     452
                                        *                (X3) = SHIFT(WORDB,59-WB.FPP)                           CCG15     453
                                        *                (X5) = [PI]                                             CCG15     454
                                                                                                                 CCG15     455
           317  0200400317 +             CSR      ROUTINE                                                        CCG15     456
           320  5110000701 +                      SA1    =XO$FPI                                                 CCG16     131
                          20354                   LX3    1+WB.FPP-WB.FPOP                                        CCG15     458
                               43463              MX4    -WB.FPOL                                                CCG15     459
           321  15234                             BX2    -X4*X3                                                  CCG15     460
                     6232777776                   SB3    X2-1                                                    CCG18      60
                               53213              SA2    B3+X1                                                   CCG15     462
           322  76410                             SX4    B1                                                      CCG15     463
                     20444                        LX4    FP.LENP                                                 CCG18      61
                          36624                   IX6    X2+X4       FPI(FPO) = FPI(FPO) + 1                     CCG16     132
                               54620              SA6    A2                                                      CCG15     465
           323  5160000000 X                      SA6    =XCC$SUB    CC$SUB = 1    */ INDICATE SUBS IN PROGRAM   CCG18      62
                          0400000317 +            EQ     CSR                                                     CCG15     475
                                         .FPAS    ENDIF                                                          CCG15     476
  
  
  
                                        **        LAB    CA,IH - DEFINE LABEL ADDRESS                            CCG15     478
                                                                                                                 CCG15     479
           324                                    PROCESS ENT                                                    CCG15     480
           324  76410                             SX4    B1                                                      CCG15     481
                     20436                        LX4    SI.CAP                                                  CCG15     482
                          12545                   BX5    X4+X5       CA = 1                                      CCG15     483
                                                                                                                 CCG15     484
           325                                    PROCESS LAB                                                    CCG15     485
           325  7165000004                        SX6    "PC"+4                                                  CCG15     486
                          0306000327 +            ZR     X6,LAB1     IF PC = 0                                   CCG15     487
           326  6150777773                        S"PC"  -4          PC = 0                                      CCG15     488
                          6177000001              S"BL"  "BL"+1      BLEN = BLEN + 1                             CCG15     489
                                                                                                                 CCG15     490
           327  5110000103 +             LAB1     SA1    CC$LBO                                                  CCG15     491
                          76210                   SX2    B1                                                      CCG15     492
                               20272              LX2    WC.RLP                                                  CCG15     493
           330  76370                             SX3    "BL"                                                    CCG15     494
                                                  LX3    WC.RAP                                                  CCG16     133
                     20160                        LX1    WC.RBP                                                  CCG15     495
                          12212                   BX2    X1+X2                                                   CCG15     496
                               12623              BX6    X2+X3       ADW = WC(1,0,CG.LBO,BLEN)                   CCG15     497
           331  21717                             AX7    IH.IP                                                   CCG15     498
                     43171                        MX1    -IH.IL                                                  CCG15     499
                          15771                   BX7    -X1*X7                                                  CCG15     500
           332  5110000350 +                      SA1    LABA        MASK OF ADDRESS FIELDS                      CCG38       5
                          0307000344 +            ZR     X7,LAB2     IF I[PI] = 0                                CCG15     501
                                                                                                                 CCG15     502
           333  5237000747 +                      SA3    =XF$FRT-1+X7      TABLE POINTER ADDRESS                 CCG16     134
                          53330                   SA3    X3          BASE                                        CCG16     135
                               43455              MX4    -IH.HL                                                  CCG15     504
           334  63470                             SB4    X7                                                      CCGA021     8
                     15754                        BX7    -X4*X5                                                  CCG15     505
                          63370                   SB3    X7                                                      CCG15     506
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    18
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    LAB                 WII 
  
                               53233              SA2    X3+B3                                                   CCG38       6
           335  15221                             BX2    -X1*X2      MASK OUT ADDRESS FIELDS                     CCG38       7
                     12626                        BX6    X2+X6       BUILD NEW C WORD                            CCG38       8
                          54620                   SA6    A2                                                      CCG38       9
           336  0541000346 +                      NE     B4,B1,LAB3  IF I[PI] " 1  */ NOT A GL                   CCGA021     9
                          5120000000 X            SA2    =XL.ELT#                                                CCGA021    10
           337  0302000346 +                      ZR     X2,LAB3     IF L.ELT = 0  */ NO ELIMINATED LABEL DEFS   CCGA021    11
                                                                                                                 CCGA021    12
                                        *         SEARCH ELT TO SEE IF THIS LABEL IS EQUIVALENT TO A             CCGA021    13
                                        *         PROGRAMMER DEFINED LABEL, AND DEFINE THE ADDRESS OF IT.        CCGA021    14
                                                                                                                 CCGA021    15
                          5130000000 X            SA3    =XO.ELT#                                                CCGA021    16
           340  53730                             SA7    X3          [ELT] = H     */ STORE SEARCH TERMINATOR    CCGA021    17
                     63420                        SB4    X2                                                      CCGA021    18
                          53334                   SA3    X3+B4       SEARCH TABLE                                CCGA021    19
           341  13437                   +         BX4    X3-X7                                                   CCGA021    20
                     55331                        SA3    A3-B1                                                   CCGA021    21
                          63440                   SB4    X4                                                      CCGA021    22
                               21422              AX4    18                                                      CCGA021    23
           342  0540000341 +                      NZ     B4,*-1                                                  CCGA021    24
                          0304000346 +            ZR     X4,LAB3     IF NO EQUIVALENT                            CCGA021    25
                                                                                                                 CCGA021    26
           343  10544                             BX5    X4          SET IH OF EQUIVALENT, CA MUST BE 0          CCGA021    27
                                                                                                                 CCG15     509
           344  22715                    LAB2     LX7    B1,X5                                                   CCG15     510
                     63356                        SB3    B6+X5                                                   CCG15     511
                          73771                   SX7    X7+B1                                                   CCG15     512
                               53273              SA2    B3+X7       RETRIEVE WORDC                              CCG38      10
           345  15221                             BX2    -X1*X2      BUILD NEW WORDC USING LABA MASK             CCG38      11
                     12626                        BX6    X2+X6                                                   CCG38      12
                          54620                   SA6    A2          SYM(3*IH+2) = ADW                           CCG38      13
                                                                                                                 CCG15     514
           346  20536                    LAB3     LX5    -SI.CAP                                                 CCG15     515
                     63757                        S"BL"  "BL"+X5     BLEN = BLEN + CA[PI]                        CCG15     516
                          5055000001              SA5    A5+1        PI = PI + 1                                 CCG15     517
           347  0400000217 +                      EQ     WII2                                                    CCG15     518
                                                                                                                 CCG38      14
           350                           LABA     BFMW   WC,(RL,RB,RA)                                           CCG38      15
  
  
  
                                        **        RLV - CHECK REFERENCED LABEL VALUE FOR SUBSTITUTION            CCG15     520
                                        *                                                                        CCG15     521
                                        *         ENTRY  (B4) = SHIFT COUNT TO FIND *IH* IN *PI* WORD            CCG15     522
                                                                                                                 CCG15     523
           351  0200400351 +             RLV      ROUTINE                                                        CCG15     524
           352  23645                             AX6    B4,X5                                                   CCG15     525
                     43371                        MX3    -IH.IL                                                  CCG15     526
                          63366                   SB3    B6+X6                                                   CCG15     527
                               20317              LX3    IH.IP                                                   CCG15     528
           353  15763                             BX7    -X3*X6                                                  CCG15     529
                     0317000351 +                 NZ     X7,RLV      IF I[PI] " 0  */ NOT IN *SYM*               CCG15     530
                               73660              SX6    X6                                                      CCG15     531
           354  22716                             LX7    B1,X6                                                   CCG15     532
                     53373                        SA3    B3+X7       WORDB = SYM(3*H+1)                          CCG15     533
                          20343                   LX3    59-WB.LCP                                               CCG15     534
           355  0323000351 +                      PL     X3,RLV      IF ^LC[WORDB]                               CCG15     535
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    19
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    RLV                 WII 
  
                                                                                                                 CCG15     536
                          55231                   SA2    A3-B1       WORDA = WORDB - 1                           CCG15     537
                               43160              MX1    -WA.LCOL                                                CCG15     538
                                                  LX2    -WA.LCOP                                                CCG15     539
           356  15321                             BX3    -X1*X2      L = LCO[WORDA]                              CCG15     540
                     5110000000 X                 SA1    =XO.LCT#                                                CCG18      63
           357  5120000000 X                      SA2    =XO$BIT                                                 CCG15     542
                          63210                   SB2    X1                                                      CCG15     543
                               63320              SB3    X2                                                      CCG15     544
                                                                                                                 CCG15     545
           360  53132                    RLV1     SA1    B2+X3       LCW = LCT(L)                                CCG15     546
                     5130000000 X                 SA3    =XBN#                                                   CCG15     547
                               43555              MX5    -BI.OLNL                                                CCG15     548
                                                                                                                 CCG15     549
           361  13713                    RLV2     BX7    X1-X3                                                   CCG15     550
                     15775                        BX7    -X5*X7                                                  CCG15     551
                          0307000365 +            ZR     X7,RLV3     IF K = HBN[LCW]                             CCG15     552
           362  53333                             SA3    B3+X3                                                   CCG15     553
                     20326                        LX3    -BI.OLNP                                                CCG15     554
                          15335                   BX3    -X5*X3      K = OLN[BIT(K)]                             CCG15     555
           363  0313000361 +                      NZ     X3,RLV2     IF K " 0                                    CCG15     556
                                                                                                                 CCG15     557
                          20130                   LX1    -LC.NEXTP                                               CCG15     558
                               73310              SX3    X1          L = NEXT[LCW]                               CCG15     559
           364  0313000360 +                      NZ     X3,RLV1     IF L " 0      */ NOT END OF CHAIN           CCG15     560
                          0400000351 +            EQ     RLV                                                     CCG15     561
                                                                                                                 CCG15     562
           365  20152                    RLV3     LX1    -LC.GLNP                                                CCG15     563
                     7271100000                   SX7    X1+I.GL     IH = GLN[LCW] + I.GL                        CCG15     564
                               22646              LX6    B4                                                      CCG15     565
           366  54550                             SA5    A5                                                      CCG38      16
                     13556                        BX5    X5-X6                                                   CCG15     566
                          22747                   LX7    B4                                                      CCG15     567
                               12757              BX7    X5+X7       SUBSTITUTE NEW VALUE                        CCG15     568
           367  54750                             SA7    A5                                                      CCG15     569
                     0400000351 +                 EQ     RLV                                                     CCG15     570
                                                                                                                 CCG16     136
                                                  MACRO  OPR,N                                                   CCG16     137
                                                  IFLT   OC.N,OC.CLR,4                                           CCG16     138
                                                  IF     DEF,/WII/.N,2                                           CCG16     139
                                                  VFD    12/,18//WII/.N-/WII/WII1                                CCG16     140
                                                  SKIP   1                                                       CCG16     141
                                                  VFD    30/0                      N                             CCG16     142
                                                  ENDM                                                           CCG16     143
                                                                                                                 CCG16     144
           370                           WIIA     BSS    0                                                       CCG16     145
           370                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
           433                                    BSS    0                                                       CCG16     147
                                                                                                                 CCG15     571
                                                  QUAL   *                                                       CCG15     572
                                                                                                                 CCG15     577
                                                  ECHO   2,Z=(CG$RBT,CG$CUB,FSU#,CG$DSA,CG$EP,WII#)              CCG15     578
                                         Z        EQU    /WII/Z                                                  CCG15     579
                                                  ENTRY  Z                                                       CCG15     580
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    20
        WII - WRITE ISSUED INSTRUCTIONS TO *SLIST*                    AVO 
  
                                         .VD      IF     DEF,VD.MATP                                             CCG15     582
                                        **        CG$AVO - ADJUST VARDIM ORDINAL OF REF TO VD. CELL              CCG15     583
                                        *                                                                        CCG15     584
                                        *         ENTRY  (X1) = C, INDEX TO VDI                                  CCG15     585
                                        *         EXIT   (X1) = CA, INDEX TO VD. CELL                            CCG15     586
                                        *         USES   X - 3, 4, 6  A - 1, 3, 4, 6                             CCG15     587
                                                                                                                 CCG15     588
           433  20330                    AVO1     LX3    1+VD.MATP-VD.CAP                                        CCG15     589
                     73130                        SX1    X3          CA = CA[VE]                                 CCG15     590
           434                           CG$AVO   ENTRY. **                                                      CCG15     591
           435  5140000702 +                      SA4    =XO$VDI                                                 CCG15     592
                          36641                   IX6    X4+X1                                                   CCG15     593
                               53360              SA3    X6          VE = VDI(C)                                 CCG15     594
                                                  LX3    59-VD.MATP                                              CCG15     595
           436  0333000433 +                      MI     X3,AVO1     IF MAT[VE]    */ CA ASSIGNED                CCG15     596
                                                                                                                 CCG15     597
                          43401                   MX4    1                                                       CCG15     598
                               12334              BX3    X3+X4       MAT[VE] = 1   */  SET MAT BIT               CCG15     599
           437  5110000000 X                      SA1    =XN$VD      CA = N$VD                                   CCG15     600
                          20330                   LX3    1+VD.MATP-VD.CAP                                        CCG15     601
                               43452              MX4    -VD.CAL                                                 CCG15     602
           440  11343                             BX3    X4*X3                                                   CCG15     603
                     12631                        BX6    X3+X1       CA[VE] = N$VD */ ASSIGN A *CA*              CCG15     604
                          20644                   LX6    VD.CAP                                                  CCG18      64
                               54630              SA6    A3          VDI(C) = VE                                 CCG15     605
           441  73611                             SX6    X1+B1       N$VD = N$VD + 1                             CCG15     606
                     54610                        SA6    A1                                                      CCG15     607
                          0400000434 +            EQ     CG$AVO                                                  CCG15     608
                                         .VD      ENDIF                                                          CCG15     609
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    21
        SYM - CONVERT *IH* TO DPC NAME                                SYM 
  
                                         .T       IFNE   TEST,0                                                  CCG15     611
                                                                                                                 CCG15     612
                                        **        SYM - RETURN DISPLAY CODED VALUE OF SYMBOL NAME IN X6          CCG15     613
                                        *                FOR FORTRAN CODED DEBUGGING ROUTINES                    CCG15     614
                                        *         CALL                                                           CCG15     615
                                        *                NAM = SYM( IH )                                         CCG15     616
                                                                                                                 CCG15     617
                                         SYM1     SB1    1                                                       CCG15     618
                                                  RJ     CSN         CONVERT ORDINAL TO BCD NAME                 CCG15     619
                                                  MX5    48                                                      CCG15     620
                                                  BX1    X5*X6                                                   CCG15     621
                                                  CALL   ZTB=        REMOVE ZERO BYTES                           CCG27       4
                                         SYM      ENTRY.                                                         CCG15     628
                                                  SA2    X1+                                                     CCG15     629
                                                  NZ     X2,SYM1                                                 CCG15     630
                                                  SA3    =1H                                                     CCG15     631
                                                  BX6    X3                                                      CCG15     632
                                                  EQ     SYM                                                     CCG15     633
                                                                                                                 CCG15     634
                                        **        GETNSYM - RETURN N.SYMS IN SYMBOL TABLE                        CCG15     635
                                                                                                                 CCG15     636
                                         GETNSYM  ENTRY.                                                         CCG15     637
                                                  SA2    =XL$SYM                                                 CCG18      66
                                                  SX3    3                                                       CCG15     639
                                                  IX6    X2/X3,B2                                                CCG15     640
                                                  SA6    X1                                                      CCG15     641
                                                  EQ     GETNSYM                                                 CCG15     642
                                                                                                                 CCG15     643
                                         .T       ENDIF                                                          CCG15     644
  
  
  
                                        **        CSN - CONVERT SYMTAB *IH* TO BCD NAME                          CCG15     646
                                        *                                                                        CCG15     647
                                        *         ENTRY  (X2) = *IH*                                             CCG15     648
                                        *                                                                        CCG15     649
                                        *         EXIT   (X6) = 0L_BCD-NAME                                      CCG15     650
                                        *                (B3) = BC                                               CCG15     651
                                        *                                                                        CCG15     652
                                        *         USES   X - 2, 3, 4, 6   B - 2, 3                               CCG15     653
                                                                                                                 CCG15     654
           442  43357                    CSN0     MX3    -13         IH LESS IH.LCMA ETC.                        CCG35       7
                     15223                        BX2    -X3*X2                                                  CCG35       8
                          22312                   LX3    B1,X2                                                   CCG35       9
                               63240              SB2    X4                                                      CCG15     656
           443  36323                             IX3    X2+X3                                                   CCG15     657
                     53432                        SA4    B2+X3       WORDA = SYM(IH)                             CCG15     658
                          43666                   MX6    -6                                                      CCG15     659
                               15346              BX3    -X6*X4                                                  CCG15     660
           444  63330                             SB3    X3                                                      CCG15     661
                     11664                        BX6    X6*X4                                                   CCG15     662
                                                                                                                 CCG15     663
           445                           CSN      ENTRY. ,#                                                      CCG16     148
           446  43355                             MX3    -IH.HL                                                  CCG15     665
                     11632                        BX6    X3*X2                                                   CCG15     666
                          5140000674 +            SA4    O$SYM                                                   CCG16     149
           447  0306000442 +                      ZR     X6,CSN0     IF I[IH] = 0                                CCG15     668
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    22
        SYM - CONVERT *IH* TO DPC NAME                                CSN 
  
                                                                                                                 CCG15     669
                                        *         CONVERT FOWARD REFERENCE SYMBOL TO DISPLAY CODE.               CCG15     670
                                                                                                                 CCG15     671
                          15423                   BX4    -X3*X2                                                  CCG15     672
                               21217              AX2    IH.HL                                                   CCG15     673
           450  5232000457 +                      SA3    CSNA-1+X2                                               CCG15     674
                          20455                   LX4    60-IH.HL                                                CCG15     675
                               10633              BX6    X3                                                      CCG15     676
           451  6130000065                        SB3    9*6-1       BC = 54-1                                   CCG15     677
                                                                                                                 CCG15     678
           452  20403                   +         LX4    3                                                       CCG15     679
                     6133777771                   SB3    B3-6        BC = BC - 6                                 CCG15     680
                               73340              SX3    X4                                                      CCG15     681
           453  0303000452 +                      ZR     X3,*-1      SKIP PAST LEADING ZEROS                     CCG15     682
                                                                                                                 CCG15     683
                          6120000044              SB2    60-4*6                                                  CCG15     684
           454  37443                    CSN1     IX4    X4-X3       REMOVE DIGIT                                CCG15     685
                     22323                        LX3    B2                                                      CCG15     686
                          36663                   IX6    X6+X3       ADD DIGIT TO STRING                         CCG15     687
           455  6122777771                        SB2    B2-6                                                    CCG15     688
                          20403                   LX4    3                                                       CCG15     689
                               73340              SX3    X4                                                      CCG15     690
           456  0314000454 +                      NZ     X4,CSN1                                                 CCG15     691
                                                                                                                 CCG15     692
                          43301                   MX3    1                                                       CCG15     693
                               23333              AX3    B3                                                      CCG15     694
           457  11636                             BX6    X3*X6       REMOVE GARBAGE FROM THE NAME                CCG15     695
                     66331                        SB3    B3+B1       BC = BC + 1                                 CCG15     696
                          0400000445 +            EQ     CSN                                                     CCG15     697
                                                                                                                 CCG15     698
           460                           CSNA     BSS    0                                                       CCG15     699
                                                  ECHO   1,Z=("HC.FRTP")                                         CCG15     700
                                                  DATA   8L;A.00000                                              CCG15     701
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    23
        F.RDT - CCG *IL* INSTRUCTION DESCRIPTOR TABLE                 OPR 
  
                                                  LIST   -X,-R,-F                                                CGTM      136
                                                  ECHO   2,A=(I,II,III,IV,BSSZ),B=(0,1,2,3,1)                    CGTM      137
                                                  NOREF  A                                                       CGTM      138
                                         A        EQU    B                                                       CGTM      139
                                                                                                                 CGTM      140
                                         .T       IFNE   TEST,0                                                  CGTM      141
                                         .T       ENDIF                                                          CGTM      150
                                                  LIST   -R,X,F                                                  CGTM      151
  
  
  
  
                                        **        OPR - DEFINE *OPR* MACRO TO FORM RLIST DESCRIPTOR TABLE        CGTM      153
                                                                                                                 CGTM      154
                                        *         DEFINE VALUES FOR USE IN *OPR* MACRO CALLS                     CGTM      155
                                                                                                                 CGTM      156
                                  23     MC       SET    34-15                                                   CGTM      157
                                                  IFEQ   .CPU,76,1                                               CGTM      158
                                         MC       SET    37-15                                                   CGTM      159
                                                  IF     MIC,CPU990,1    IF 990 CPU DEFINED                      CCGA092    85
                                         MC       SET    31-15                                                   CCGA092    86
                                                                                                                 CGTM      160
                                                  ECHO   2,X=(COMM,USI,),V=(1,1,0)                               CGTM      161
                                                  NOREF  .X                                                      CGTM      162
                                         .X       =      V                                                       CGTM      163
                                                                                                                 CGTM      164
                                        *         SYMBOL DEFINED IF INSTRUCTION DOESN"T DEFINE AN RI             CGTM      165
                                                                                                                 CGTM      166
                                                  ECHO   2,N=(JUMP,UJUMP,STORE,STORE2,REGST,ECJUMP)              CGTM      167
                                                  NOREF  Y.N                                                     CGTM      168
                                         Y.N      EQU    1                                                       CGTM      169
                                                                                                                 CGTM      170
                                                  ECHO   2,N=(LOAD,STORE,JUMP,UJUMP,LOAD2,STORE2,ECJUMP),_______ CGTM      171
                                        ,V=(4,2,1,1,14B,12B,20B)                                                 CGTM      172
                                                  NOREF  Z.N                                                     CGTM      173
                                         Z.N      EQU    V                                                       CGTM      174
                                                                                                                 CCG18      67
                                                  ECHO   2,N=(FMA,S,CLR,LDC,LDV,ILD,TLD)                         CCG18      68
                                                  NOREF  ZRP.N                                                   CCG18      69
                                         ZRP.N    = 1                                                            CCG18      70
                                                                                                                 CGTM      175
                                        *         BITS SET FOR XMT , CON SHIFTS AND PSEUDO INSTRUCTION FIELDS    CGTM      176
                                                                                                                 CGTM      177
                                                  ECHO   2,N=(SXT,XMT,KLS,KRS,EOQ,BOS,EOS,DAR,RS,DEF,LAB,ENT),__ CGTM      178
                                        ,V=(4,4,2,2,1,1,1,1,1,1,1,1)                                             CGTM      179
                                                  NOREF  S.N                                                     CGTM      180
                                         S.N      EQU    V                                                       CGTM      181
                                                                                                                 CGTM      182
                                                  MACRO  OPR,NAM,SS                                              CGTM      183
                                                  ECHO   1,X=(BD,LSJ,XSP)                                        CGTM      184
                                         X        SET    0                                                       CGTM      185
                                         TYPE     SET    SS                                                      CGTM      186
                                         S        GETARG 23,4,(SS)                                               CGTM      187
                                         CO       SET    ."S"                                                    CGTM      188
                                        *                                  UNSAFE INSTRUCTION                    CGTM      189
                                         S        GETARG 28,3,(SS)                                               CCGA092    87
                                         CO       SET    CO+4*."S"                                               CGTM      191
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    24
        F.RDT - CCG *IL* INSTRUCTION DESCRIPTOR TABLE                 OPR 
  
                                        *                            FUNCTION UNIT AND TIMES                     CGTM      192
                                         S        MICRO  MC,2,$SS$                                               CGTM      193
                                         FT       SET    "S" 0                                                   CGTM      194
                                         JFT      SET    FT/FT                                                   CGTM      195
                                         S        GETARG 40,6,(SS)                                               CGTM      196
                                         FU1      SET    0                                                       CGTM      197
                                                  IFC    NE,//"S"/,1                                             CGTM      198
                                         FU1      SET    /FUNIT/"S"                                              CGTM      199
                                         FU2      SET    FU1                                                     CGTM      200
                                        *                            SECOND FUNCTIONAL UNIT ( 6600 )             CGTM      201
                                         #MD      IFEQ   .CPU,74                                         ?6600   CGTM      202
                                         S        GETARG 47,5,(SS)                                               CGTM      203
                                                  IFC    NE,/"S"//,3                                             CGTM      204
                                         FU2      SET    FU1+1                                                   CGTM      205
                                                  IFC    NE,/"S"/FU1/,1                                          CGTM      206
                                         FU2      SET    /FUNIT/"S"                                              CGTM      207
                                         #MD      ENDIF                                                  '6600   CGTM      208
                                        *                            INSTRUCTION SIZE                            CGTM      209
                                         S        GETARG 54,2,(SS)                                               CGTM      210
                                         PA       SET    "S" 1                                                   CGTM      211
                                         PA       SET    PA/15                                                   CGTM      212
                                         S        GETARG 63,6,(SS)                                               CGTM      213
                                                  IF     DEF,ZRP.NAM,1                                           CCG18      71
                                         CO       SET    2                                                       CGTM      215
                                        *                            LOAD / STORE / JUMP BITS                    CGTM      216
                                                  IF     DEF,Z."S",1                                             CGTM      217
                                         LSJ      SET    Z."S"                                                   CGTM      218
                                        *                            ^D - NO RI / RI NOT A DEF                   CGTM      219
                                                  IFEQ   TYPE,3,2                                                CGTM      220
                                         BD       SET    1                                                       CGTM      221
                                                  ELSE   2                                                       CGTM      222
                                                  IF     DEF,Y."S",1                                             CGTM      223
                                         BD       SET    1                                                       CGTM      224
                                        *                            BOUNDARY MARKER                             CGTM      225
                                         S        GETARG 70,1,(SS)                                               CGTM      226
                                                  IFC    NE,/"S"//,1                                             CGTM      227
                                         BD       SET    BD+2                                                    CGTM      228
                                                  IF     DEF,S.NAM,1                                             CGTM      229
                                         XSP      SET    S.NAM                                                   CGTM      230
                                        *                                                                        CGTM      231
                                          VFD 2/TYPE,5/FT,2/1,4/FU1,4/FU2,2/BD,8/LSJ,3/XSP,2/JFT,3/CO,2/PA,23/   CGTM      232
                                         OPR      ENDM                                                           CGTM      233
  
  
  
                                        **        F.RDT - CCG *IL* INSTRUCTION DESCRIPTOR TABLE                  CGTM      235
                                                                                                                 CGTM      236
                                                  ENTRY  F$RDT       REFERENCED AS * F.RDT * WITHIN *CCG*        CGTM      237
           464                           F$RDT    BSS    0                                                       CGTM      238
      L      0                                    LOC    0                                                       CGTM      239
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    25
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
      L      0                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                        **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.      OPRDEFS     3
  
  
                                        **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS      OPRDEFS     5
                                        *         M IS MAXIMUM STRING LENGTH                                     OPRDEFS     6
                                        *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS        OPRDEFS     7
                                                                                                                 OPRDEFS     8
                                                  MACRO  GETARG,S,N,M,SS                                         OPRDEFS     9
                                         S        MICRO  N-15,M,$SS$                                             OPRDEFS    10
                                         S        MICRO  1,, "S"                                                 OPRDEFS    11
                                         GETARG   ENDM                                                           OPRDEFS    12
                                                                                                                 OPRDEFS    13
                                        **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST    OPRDEFS    14
                                                                                                                 OPRDEFS    15
                                                  MACRO  V=,V,S,L1,L2                                            OPRDEFS    16
                                         V        SET    -1                                                      OPRDEFS    17
                                                  ECHO   3,P1=(L1),P2=(L2)                                       OPRDEFS    18
                                                  IFC    EQ,/S/P1/,2                                             OPRDEFS    19
                                         V        SET    P2                                                      OPRDEFS    20
                                                  STOPDUP                                                        OPRDEFS    21
                                                  ERRMI  V           ILLEGAL MACRO PARAM - S                     OPRDEFS    22
                                         V=       ENDM                                                           OPRDEFS    23
                                                                                                                 OPRDEFS    24
                                        **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO           OPRDEFS    25
                                                                                                                 OPRDEFS    26
                                                  MACRO  FUNIT,N,F66,F76                                         OPRDEFS    27
                                         M        IFEQ   .CPU,76,2                                               OPRDEFS    28
                                         N        EQU    F76 F66           DEFAULT TO 6600 UNIT                  OPRDEFS    29
                                         M        SKIP   1                                                       OPRDEFS    30
                                         N        EQU    F66                                                     OPRDEFS    31
                                         FUNIT    ENDM                                                           OPRDEFS    32
  
  
                                        **        FUNCTIONAL UNIT CODES FOR 6600/7600                            OPRDEFS    34
                                        *                                                                        OPRDEFS    35
                                        * UNIT    FUNIT  66,76 UNIT NUMBER                                       OPRDEFS    36
                                                                                                                 OPRDEFS    37
                                                  QUAL   FUNIT                                                   OPRDEFS    38
                                        *PSEUDO   FUNIT  0                                                       OPRDEFS    39
                                         BRANCH   FUNIT  1                                                       OPRDEFS    40
                                         BOOL     FUNIT  2                                                       OPRDEFS    41
                                         SHIFT    FUNIT  3                                                       OPRDEFS    42
                                         IADD     FUNIT  4                                                       OPRDEFS    43
                                         FADD     FUNIT  5                                                       OPRDEFS    44
                                         MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                  OPRDEFS    45
                                         DIVIDE   FUNIT  8                                                       OPRDEFS    46
                                         INC      FUNIT  9                 INC2 = 10 ON A 6600                   OPRDEFS    47
                                         NORM     FUNIT  SHIFT,7                                                 OPRDEFS    48
                                         BJUMP    FUNIT  INC,BRANCH                                              OPRDEFS    49
                                         XJUMP    FUNIT  IADD,BRANCH                                             OPRDEFS    50
                                         LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600        OPRDEFS    51
                                         POPC     FUNIT  DIVIDE,11                                               OPRDEFS    52
                                         PACK     FUNIT  SHIFT,BOOL                                              OPRDEFS    53
                                                  QUAL   *                                                       OPRDEFS    54
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    26
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
                                        **        FORMAT OF THE *OPR* DEFINITION IS -                            OPRDEFS    56
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     5
                                        *                                                                        OPRDEFS    58
                                        *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                        OPRDEFS    59
                                        *         TYPE - INSTRUCTION TYPE ( I - IV )                             OPRDEFS    60
                                        *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"            OPRDEFS    61
                                        *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT       OPRDEFS    62
                                        *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).   OPRDEFS    63
                                        *         T9   -  990 EXECUTION TIME OR "-" FOR SPECIAL INST             CCGA092     6
                                        *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST       OPRDEFS    64
                                        *                FOR B-JUMPS THE STACK TIME IS USED.                     OPRDEFS    65
                                        *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.              OPRDEFS    66
                                        *                TIME FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31      OPRDEFS    67
                                        *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.    OPRDEFS    68
                                        *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION         OPRDEFS    69
                                        *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS        OPRDEFS    70
                                        *               AVAILABLE AND DIFFERENT FROM THE FIRST.                  OPRDEFS    71
                                        *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600          OPRDEFS    72
                                        *                ( INCREMENT AND MULTIPLY ).                             OPRDEFS    73
                                        *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )               OPRDEFS    74
                                        *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                     OPRDEFS    75
                                        *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION               OPRDEFS    76
                                        *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )   OPRDEFS    77
                                        *                                                                        OPRDEFS    78
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     7
                                        *         PSEUDO INSTRUCTIONS                                            CCGA092     8
      L      0  60500140012000000000     EOQ      OPR (  IV     -   -  1/ 1/1    -     -      -              A ) CCGA092     9
      L      1  60100040010000000000     BOS      OPR (  IV     -   -      -     -     -      -                ) CCGA092    10
      L      2  60100140010000000000     EOS      OPR (  IV     -   -      -     -     -      -              A ) CCGA092    11
      L      3  00100000010000000000     DAR      OPR (  I      -   -      -     -     -      -                ) CCGA092    12
      L      4  20100040010000000000     RS       OPR (  II     -   -      -     -     -      -       REGST    ) CCGA092    13
      L      5  20100100010000000000     DEF      OPR (  II     -   -      -     -     -      -              D ) CCGA092    14
      L      6  77500140012000000000     LAB      OPR (  IV     -   - 31/31/31   -     -      -              B ) CCGA092    15
      L      7  60100140010000000000     ENT      OPR (  IV     -   -      -     -     -      -              B ) CCGA092    16
      L                                 *         REGISTER TO REGISTER MACHINE INSTRUCTIONS                      CCGA092    17
      L     10  01510400042040000000     XMT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    18
      L     11  01510400002240000000     AND      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    19
      L     12  01510400002240000000     OR       OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    20
      L     13  01510400002240000000     XOR      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    21
      L     14  01510400002040000000     XMTC     OPR (  I      -   -  3/ 3/2  BOOL    -     15  K=J           ) CCGA092    22
      L     15  01510400002040000000     STR      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    23
      L     16  01510400002040000000     IMP      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    24
      L     17  01510400002240000000     EQV      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    25
      L     20  41514600022040000000     KLS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    26
      L     21  41514600022040000000     KRS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    27
      L     22  01514600002040000000     ILS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    28
      L     23  01514600002040000000     IRS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    29
      L     24  02114600003040000000     NR       OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    30
      L     25  02114600003040000000     RNZ      OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    31
      L     26  01514600002040000000     UP       OPR (  I      -   -  3/ 3/2  PACK    -     15  2R            ) CCGA092    32
      L     27  01514600002040000000     PK       OPR (  I      -   -  3/ 3/2  PACK    -     15                ) CCGA092    33
      L     30  02125200003240000000     FA       OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    34
      L     31  02125200003040000000     FS       OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    35
      L     32  02125200003240000000     DFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    36
      L     33  02125200003040000000     DFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    37
      L     34  02125200003240000000     RFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    38
      L     35  02125200003040000000     RFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    39
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    27
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
      L     36  01521000003240000000     IA       OPR (  I    COMM USI 3/ 3/2  IADD    -     15                ) CCGA092    40
      L     37  01521000002040000000     IS       OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    41
      L     40  05131400003240000000     FM       OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    42
      L     41  05131400003240000000     RFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    43
      L     42  05131400003240000000     DFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    44
      L     43  21514600002440000000     FMA      OPR (  II     -   -  4/ 3/2  SHIFT   -     15  K=J  ZEROP    ) CCGA092    45
      L     44  16542000003040000000     FD       OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    46
      L     45  16542000003040000000     RFD      OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    47
      L     46  40100040000000000000     NOP      OPR (  III    -   -      -     -     -      -       REGST    ) CCGA092    48
      L     47  04142000002040000000     CX       OPR (  I      -   -  6/ 8/2  POPC    -     15  K=J           ) CCGA092    49
      L                                 *         MEMORY REFERENCE AND SET (LOAD IMMEDIATE ) INSTRUCTIONS        CCGA092    50
      L     50  44146200402100000000     LD       OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    51
      L     51  45146240202100000000     ST       OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    52
      L     52  41546200002100000000     STT      OPR (  III    -   -  3/ 3/2  INC    FU1    30                ) CCGA092    53
      L     53  04146200402100000000     PLD      OPR (  I      -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    54
      L     54  05146240202100000000     PST      OPR (  I      -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    55
      L     55  21546200002500000000     S        OPR (  II     -   -  3/ 3/2  INC    FU1    30       ZEROP    ) CCGA092    56
      L     56  04146200402240000000     SLD      OPR (  I    COMM  -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    57
      L     57  05146240202240000000     SST      OPR (  I    COMM  -  3/10/2  INC    FU1    15       STORE    ) CCGA092    58
      L     60  01546200002240000000     SA       OPR (  I    COMM  -  3/ 3/2  INC    FU1    15                ) CCGA092    59
      L     61  04146200402040000000     SDL      OPR (  I      -   -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    60
      L     62  05146240202040000000     SDS      OPR (  I      -   -  3/10/2  INC    FU1    15       STORE    ) CCGA092    61
      L     63  01546200002040000000     SS       OPR (  I      -   -  3/ 3/2  INC    FU1    15                ) CCGA092    62
      L     64  00152401400040000000     DRL      OPR (  I      -   -  8/ 0/17 LCM     -     15       LOAD2    ) CCGA092    63
      L     65  00152441200040000000     DWL      OPR (  I      -   -  3/ 0/3  LCM     -     15       STORE2   ) CCGA092    64
      L                                 *         CONDITIONAL JUMPS                                              CCGA092    65
      L     66  44521042002100000000     RJXJ     OPR (  III    -   -  5/ 9/3  XJUMP   -     30       ECJUMP   ) CCGA092    66
      L     67  45521140102100000000     JPX      OPR (  III    -   -  5/11/2  XJUMP   -     30       JUMP   C ) CCGA092    67
      L     70  44146340102100000000     JPBB     OPR (  III    -   -  5/ 8/3  BJUMP   -     30       JUMP   C ) CCGA092    68
      L                                 *         UNCONDITIONAL JUMPS                                            CCGA092    69
      L     71  47146340102100000000     JIN      OPR (  III    -   - 29/14/13 INC    FU1    30       UJUMP  A ) CCGA092    70
      L     72  77504340102100000000     RJ3      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    71
      L     73  77504340102100000000     RJ6      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    72
      L     74  67146340102100000000     UJP      OPR (  IV     -   -  5/14/13 BJUMP  FU1    30       UJUMP  A ) CCGA092    73
      L                                 *         SPECIAL INSTRUCTIONS FOR THE OPTIMIZER                         CCGA092    74
      L     75  44146200402500000000     ILD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    75
      L     76  44146200402500000000     TLD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    76
      L     77  45146240202100000000     TST      OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    77
      L    100  01521000002240000000     IAZ      OPR (  I    COMM  -  3/ 3/2  IADD    -     15                ) CCGA092    78
      L    101  01521000002040000000     ISZ      OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    79
      L    102  05131400002240000000     IM       OPR (  I    COMM  -  7/10/5  MULT   FU1    15                ) CCGA092    80
      L    103  44146200402500000000     LDC      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    81
      L    104  44146200402500000000     LDV      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    82
      L    105  21514600002440000000     CLR      OPR (  II     -   -  4/ 3/2  SHIFT  BOOL   15  K=J  ZEROP    ) CCGA092    83
      L    106  01510400042040000000     SXT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    84
      L                                                                                                          OPRDEFS   156
                                        *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                OPRDEFS   157
                                                                                                                 OPRDEFS   158
                                         BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                        OPRDEFS   159
                                         RELOPS   MICRO  1,,/EQ,NE,GT,LT,GE,LE/                                  OPRDEFS   160
                                         XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,IR,OR,DF,ID/                            OPRDEFS   161
                                         ^XJUMPS  MICRO  1,,/NZ,ZR,MI,PL,OR,IR,ID,DF/                            OPRDEFS   162
                                                                                                                 OPRDEFS   163
                                                  PURGMAC GETARG,FUNIT,V=,OPR                                    OPRDEFS   164
                                                  ENDX                                                           OPRDEFS   165
           573                                    LOC    *O                                                      CGTM      241
                                                  LIST   F,R                                                     CGTM      242
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    28
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
                                         .ID      IFNE   HC.ID,3           ^ PL/I                    ?           CGTM      243
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    29
        CCOMISC - INITIALIZE SMALL CORE ( SETCORE ).                  SETCORE 
  
           573                           SETCORE  CTEXT  CCOMISC - INITIALIZE SMALL CORE ( SETCORE ).            CCOMISC     2
                                                                                                                 CCOMISC     3
                                                  IF     -DEF,QUAL$,1                                            CCOMISC     4
                                                  QUAL   COMCISC                                                 CCOMISC     5
                                        *         COMMENT COPYRIGHT CONTROL DATA SYSTEMS, INC. 1994.             CCG*94      7
  
  
  
                                        ***       ISC - INITIALIZE A BLOCK OF SCM TO A GIVEN VALUE               CCOMISC     8
                                        *                                                                        CCOMISC     9
                                        *                                                                        CCOMISC    10
                                        *         ENTRY  (X1) = BLOCK LENGTH                                     CCOMISC    11
                                        *                (X6) = VALUE TO SET                                     CCOMISC    12
                                        *                (A6) = BLOCK FWA (WORD 1 ALREADY STORED)                CCOMISC    13
                                        *                                                                        CCOMISC    14
                                        *         EXIT   (X6) = UNCHANGED                                        CCOMISC    15
                                        *                (X7) = (X6)                                             CCOMISC    16
                                        *                (A6) = BLOCK LWA                                        CCOMISC    17
                                        *                (B1) = 1                                                CCOMISC    18
                                        *                                                                        CCOMISC    19
                                        *         USES   X - 1, 2, 7                                             CCOMISC    20
                                        *                A - 6, 7                                                CCOMISC    21
                                        *                B - 1                                                   CCOMISC    22
                                        *                                                                        CCOMISC    23
                                        *         CALLS  NONE                                                    CCOMISC    24
                                                                                                                 CCOMISC    25
                                                                                                                 CCOMISC    26
           573  5076000001               SETC2    SA7    A6+1                                                    CCOMISC    27
                          37112                   IX1    X1-X2                                                   CCOMISC    28
                               54671              SA6    A7+B1                                                   CCOMISC    29
           574  0321000573 +                      PL     X1,SETC2    IF ALL OF BLOCK NOT SET                     CCOMISC    30
                                                                                                                 CCOMISC    31
           575  0000000000               ISC=     PS                 ENTRY/EXIT                                  CCOMISC    32
                                                                                                                 CCOMISC    33
                                                  IFNE   TEST,0,2                                                CCOMISC    34
                                                  SB1    X1+                                                     CCOMISC    35
                                                  LE     B1,*+1S17   ABORT JOB IF LENGTH ERROR                   CCOMISC    36
                                                                                                                 CCOMISC    37
           576  7120000001                        SX2    1                                                       CCOMISC    38
                          46000                   NO                                                             CCOMISC    39
                               15721              BX7    -X1*X2      EXTRACT COMPLEMENT OF LSB                   CCOMISC    40
           577  63170                             SB1    X7          (B1) = 1 IF LENGTH EVEN, = 0 IF ODD         CCOMISC    41
                     7211777774                   SX1    X1-3        DECREMENT LENGTH                            CCOMISC    42
                               54661              SA6    A6+B1       SET 2ND WORD IF LENGTH WAS EVEN             CCOMISC    43
           600  20201                             LX2    1           (X2) = 2                                    CCOMISC    44
                     6110000001                   SB1    1                                                       CCOMISC    45
                               10766              BX7    X6                                                      CCOMISC    46
           601  0321000573 +                      PL     X1,SETC2    IF ALL OF BLOCK NOT SET                     CCOMISC    47
                          0400000575 +            EQ     ISC=                                                    CCOMISC    48
                                                                                                                 CCOMISC    49
                                                  IF     -DEF,QUAL$,2                                            CCOMISC    50
                                                  QUAL   *                                                       CCOMISC    51
                                 575 +   ISC=     EQU    /COMCISC/ISC=                                           CCOMISC    52
                                                                                                                 CCOMISC    53
                                                  ENDX                                                           CCOMISC    54
                                                  ENTRY  ISC=                                                    CGTM      245
                                         .ID      ENDIF                    ^ PL/I                    '           CGTM      246
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    30
        SST# - SHELL SORT TABLE                                       SST#
  
                                        ***       SST# - SHELL SORT OF A SINGLE WORD PER ENTRY TABLE.            CGTM      248
                                        *                                                                        CGTM      249
                                        *         SST# SORTS A TABLE USING A SHELL SORT TECHNIQUE.               CGTM      250
                                        *         THE TABLE IS SORTED IN PLACE INTO ASCENDING ORDER ON THE KEY   CGTM      251
                                        *         KEY(X) = XOR(SHIFT(KEYMASK&X,KEYSHIFT),UPDOWN)                 CGTM      252
                                        *                                                                        CGTM      253
                                        *                TIME(SST) @ TIME(RADIX) FOR N @ 250/575, B6 "0/=0       CGTM      254
                                        *                                                                        CGTM      255
                                        *         ENTRY  (B7) = ADDRESS OF TABLE TO BE SORTED                    CGTM      256
                                        *                (B6) = SHIFT COUNT FOR EXTRACTED KEY PRIOR TO COMPARE   CGTM      257
                                        *                (X0) = MASK TO EXTRACT KEY FROM ENTRY                   CGTM      258
                                        *                (X1) = NUMBER OF ELEMENTS IN ARRAY.                     CGTM      259
                                        *                (X5) = ASCENDING/DESENDING SORT MASK ( +0 / -0 )        CGTM      260
                                        *                                                                        CGTM      261
                                        *         USES   X - ALL                                                 CGTM      262
                                        *                B - 2, 3, 4, 5, 6                                       CGTM      263
                                        *                A - 1, 2, 6, 7.                                         CGTM      264
                                                                                                                 CGTM      265
           602  56220                    SST0     SA2    B2          I = I + 1                                   CGTM      266
                     57754                        SA7    B5-B4                                                   CGTM      267
                          0423000611 +            EQ     B2,B3,SST4  IF I > N                                    CGTM      268
                                                                                                                 CGTM      269
           603  11702                    SST1     BX7    X0*X2                                                   CGTM      270
                     56124                        SA1    B2+B4       J = I - K                                   CGTM      271
                          22667                   LX6    B6,X7                                                   CGTM      272
                               66524              SB5    B2+B4                                                   CGTM      273
           604  13365                             BX3    X6-X5       SI = KEY(T(I))                              CGTM      274
                     6122000001                   SB2    B2+1                                                    CGTM      275
                               22702              LX7    X2                                                      CGTM      276
                                                                                                                 CGTM      277
           605  11201                    SST2     BX2    X0*X1                                                   CGTM      278
                     22662                        LX6    B6,X2                                                   CGTM      279
                          13265                   BX2    X6-X5       SJ = KEY(T(J))                              CGTM      280
                               37632              IX6    X3-X2                                                   CGTM      281
           606  0326000602 +                      PL     X6,SST0     IF ELEMENTS IN ORDER                        CGTM      282
                          10611                   BX6    X1                                                      CGTM      283
                               56154              SA1    B5+B4       J = J - K                                   CGTM      284
           607  57654                             SA6    B5-B4       T(J+K) = T(J)                               CGTM      285
                     66554                        SB5    B5+B4                                                   CGTM      286
                          0657000605 +            GE     B5,B7,SST2  IF J \ 0                                    CGTM      287
           610  56220                             SA2    B2          I = I + 1                                   CGTM      288
                     57754                        SA7    B5-B4       T(J+K) = S                                  CGTM      289
                          0723000603 +            LT     B2,B3,SST1  IF I @ LENGTH                               CGTM      290
                                                                                                                 CGTM      291
           611  21401                    SST4     AX4    1           K = K/2                                     CGTM      292
                     63440                        SB4    X4                                                      CGTM      293
                          57274                   SA2    B7-B4       I = K                                       CGTM      294
                               67274              SB2    B7-B4                                                   CGTM      295
           612  0314000603 +                      NZ     X4,SST1     IF K " 0                                    CGTM      296
           613                           SST      ENTRY. **,#                                                    CGTM      297
           614  43414                             MX4    12                                                      CGTM      298
                     24621                        NX6    B2,X1       K = 2**FIX(LOG2(LENGTH))+1                  CGTM      299
                          6110000001              SB1    1                                                       CGTM      300
           615  63317                             SB3    B7+X1       (B3) = LWA + 1                              CGTM      301
                     23424                        AX4    B2,X4                                                   CGTM      302
                          0560000611 +            NZ     B6,SST4     IF SHFTC " 0                                CGTM      303
                                                                                                                 CGTM      304
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    31
        SST# - SHELL SORT TABLE                                       SST#                SHFTC=0 
  
                                                  QUAL   SHFTC=0                                                 CGTM      305
                                                                                                                 CGTM      306
           616  21401                    SST0     AX4    1                                                       CGTM      307
                     63440                        SB4    X4          K = K/2                                     CGTM      308
                          57274                   SA2    B7-B4                                                   CGTM      309
                               67274              SB2    B7-B4       I = K                                       CGTM      310
           617  0314000621 +                      NZ     X4,SST2     IF K " 0                                    CGTM      311
                          0400000613 +            EQ     SST                                                     CGTM      312
                                                                                                                 CGTM      313
           620  54221                    SST1     SA2    A2+B1       I = I + 1                                   CGTM      314
                     57754                        SA7    B5-B4       T(J+K) = S                                  CGTM      315
                          0423000616 +            EQ     B2,B3,SST0  IF I > N                                    CGTM      316
                                                                                                                 CGTM      317
           621  11602                    SST2     BX6    X0*X2                                                   CGTM      318
                     56124                        SA1    B2+B4       J = I - K                                   CGTM      319
                          22702                   LX7    X2          S = T(I)                                    CGTM      320
                               66524              SB5    B2+B4                                                   CGTM      321
           622  13365                             BX3    X6-X5       SI = KEY(T(I))                              CGTM      322
                     6122000001                   SB2    B2+1                                                    CGTM      323
                               11201              BX2    X0*X1                                                   CGTM      324
                                                                                                                 CGTM      325
           623  13225                    SST3     BX2    X2-X5                                                   CGTM      326
                     37632                        IX6    X3-X2                                                   CGTM      327
                          0326000620 +            PL     X6,SST1     IF ELEMENTS IN ORDER                        CGTM      328
           624  22601                             LX6    X1                                                      CGTM      329
                     56154                        SA1    B5+B4                                                   CGTM      330
                          57654                   SA6    B5-B4       T(J+K) = T(J)                               CGTM      331
                               66554              SB5    B5+B4       J = J - K                                   CGTM      332
           625  11201                             BX2    X0*X1                                                   CGTM      333
                     0657000623 +                 GE     B5,B7,SST3                                              CGTM      334
                               54221              SA2    A2+B1       I = I + 1                                   CGTM      335
           626  57754                             SA7    B5-B4                                                   CGTM      336
                     0723000621 +                 LT     B2,B3,SST2  IF I @ N                                    CGTM      337
           627  0400000616 +                      EQ     SST0                                                    CGTM      338
                                                                                                                 CGTM      339
                                                  QUAL                                                           CGTM      340
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    32
        SHL# - SHELL SORT                                             SHL#
  
                                        **        SHL# - SHELL SORT FOR A 1 WORD PER ENTRY TABLES.               CGTM      342
                                        *         INPLACE SORT OF TABLE INTO ASCENDING ORDER                     CGTM      343
                                        *                                                                        CGTM      344
                                        *                TIME(SHL) @ TIME(RADIX) FOR N @ 1650                    CGTM      345
                                        *                                                                        CGTM      346
                                        *         ENTRY  (X1) = N = TABLE LENGTH                                 CGTM      347
                                        *                (B7) = TBL = = FWA OF ARRAY TO BE SORTED                CGTM      348
                                        *                                                                        CGTM      349
                                        *         EXIT   (B3) = LWA+1 OF TABLE                                   CGTM      350
                                        *                (B7) = FWA                                              CGTM      351
                                        *                                                                        CGTM      352
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    CGTM      353
                                        *                B - 2, 3, 4, 5                                          CGTM      354
                                        *                A - 1, 2, 6, 7                                          CGTM      355
                                                                                                                 CGTM      356
           630  54221                    SHL1     SA2    A2+B1       I = I + 1                                   CGTM      357
                     57754                        SA7    B5-B4       T(J+K) = S                                  CGTM      358
                          0423000635 +            EQ     B2,B3,SHL4  IF I > N                                    CGTM      359
                                                                                                                 CGTM      360
           631  56124                    SHL2     SA1    B2+B4       J = I - K                                   CGTM      361
                     22702                        LX7    X2          S = T(I)                                    CGTM      362
                          66524                   SB5    B2+B4                                                   CGTM      363
                               66221              SB2    B2+B1                                                   CGTM      364
                                                                                                                 CGTM      365
           632  37321                    SHL3     IX3    X2-X1                                                   CGTM      366
                     10611                        BX6    X1                                                      CGTM      367
                          0323000630 +            PL     X3,SHL1     IF ELEMENTS IN ORDER                        CGTM      368
           633  54114                             SA1    A1+B4                                                   CGTM      369
                     46000                        NO                                                             CGTM      370
                          57654                   SA6    B5-B4       T(J+K) = T(J)                               CGTM      371
                               66554              SB5    B5+B4       J = J - K                                   CGTM      372
           634  0657000632 +                      GE     B5,B7,SHL3  IF J \ 0                                    CGTM      373
                          0400000630 +            EQ     SHL1                                                    CGTM      374
                                                                                                                 CGTM      375
           635  21401                    SHL4     AX4    1                                                       CGTM      376
                     63440                        SB4    X4          K = K/2                                     CGTM      377
                          57274                   SA2    B7-B4       I = K                                       CGTM      378
                               67274              SB2    B7-B4                                                   CGTM      379
           636  0314000631 +                      NZ     X4,SHL2     IF K " 0                                    CGTM      380
                                                                                                                 CGTM      381
           637                           SHL      ENTRY. **,#                                                    CGTM      382
           640  43414                             MX4    12                                                      CGTM      383
                     6110000001                   SB1    1                                                       CGTM      384
                               24621              NX6    B2,X1       K = 2**(FIX(LOG2(N))+1)                     CGTM      385
           641  63317                             SB3    B7+X1       (B3) = LWA+1                                CGTM      386
                     23424                        AX4    B2,X4                                                   CGTM      387
                          0400000635 +            EQ     SHL4                                                    CGTM      388
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    33
        CCG TABLES                                                    TABLES
  
                                        **        TABLE DEFINE MANAGED TABLE FOR CCG                             CCG16     150
                                                                                                                 CCG16     151
                                                  MACRO  TABLE,TNAM,EQUIV                                        CCG16     152
                                         TOC      IFEQ   HC.2OC,0                                                CCG16     153
                                         TNAM     B$TBL  EQUIV                                                   CCG16     154
                                         .T       SET    Z$TNAM+1                                                CCG18      72
                                         TOC      ELSE                                                           CCG16     155
                                                  EXT    O$TNAM,L$TNAM                                           CCG16     156
                                         FF       IFEQ   .T,0                                                    CCG16     157
                                         FTAB     EQU    O$TNAM                                                  CCG16     158
                                         LTAB     EQU    L$TNAM                                                  CCG16     159
                                         FF       ENDIF                                                          CCG16     160
                                         EE       IFC    EQ,/EQUIV//                                             CCG16     161
                                         Z$TNAM   EQU    .T                                                      CCG16     162
                                         .T       SET    .T+1                                                    CCG16     163
                                         EE       ELSE                                                           CCG16     164
                                         Z$TNAM   EQU    Z$EQUIV                                                 CCG16     165
                                         EE       ENDIF                                                          CCG16     166
                                         TOC      ENDIF                                                          CCG16     167
                                         TABNAM   RMT                                                            CCG16     168
                                                  ORG    NAMTAB+Z$TNAM                                           CCG16     169
                                                  DATA   10H TNAM EQUIV                                          CCG16     170
                                         TABNAM   RMT                                                            CCG16     171
                                                  ENDM                                                           CCG16     172
                                                                                                                 CCG16     173
                                   0     .T       SET    0                                                       CCG16     174
                                                                                                                 CCG16     175
                                                  IFEQ   HC.2OC,0,1                                              CCG16     176
           642                           FTAB     BSS    0                 FWA TABLE VECTOR                      CCG16     177
                                                                                                                 CCG16     178
                                                                                                                 CCGTMTV     2
                                        **        CCGTMTV - CCG TABLE MANAGER TABLE VECTOR                       CCGTMTV     3
                                        *         THIS COMDECK CONSISTS OF A SEQUENCE OF CALLS TO THE *TABLE*    CCGTMTV     4
                                        *         MACRO WHICH DEFINES THE ORDER AND NUMBER OF TABLES THAT ARE    CCGTMTV     5
                                        *         TO BE MANAGED DURING CCG PROCESSING.                           CCGTMTV     6
                                        *                                                                        CCGTMTV     7
                                        *         THE FORMAT OF THE MACRO CALL IS -                              CCGTMTV     8
                                        * TNAM    TABLE  EQUIV                                                   CCGTMTV     9
                                        *         WHERE -                                                        CCGTMTV    10
                                        *         TNAM - TABLE NAME                                              CCGTMTV    11
                                        *         EQUIV - EQUIVALENT TABLE NAME, IF PRESENT.  THIS ALLOWS        CCGTMTV    12
                                        *         CERTAIN TABLES TO BE USED BY DIFFERENT PROCESSORS.             CCGTMTV    13
                                                                                                                 CCGTMTV    14
                                        *         THE COLLECTION OF TABLE MACRO CALLS SHOULD GENERATE THE        CCGTMTV    15
                                        *         FOLLOWING QUANTITIES -                                         CCGTMTV    16
                                        *         A) A VECTOR OF CONTIGIOUS CELLS HOLDING THE FIRST WORD ADDRESS CCGTMTV    17
                                        *         OF EACH TABLE. THE ENTRY POINT NAME OF THE TABLE FWA IS O$TNAM CCGTMTV    18
                                        *         B) A VECTOR OF CONTIGIOUS CELLS HOLDING THE LENGTH OF EACH     CCGTMTV    19
                                        *         TABLE.  THE ENTRY POINT NAME OF THE TABLE LENGTH CELL IS       CCGTMTV    20
                                        *         L$TNAM .                                                       CCGTMTV    21
                                        *         C) FOR EACH TABLE, ITS INDEX ( Z$TNAM ) INTO THE ABOVE VECTORS CCGTMTV    22
                                                                                                                 CCGTMTV    23
                                        **        B$TBL - BASIC TABLE MANAGER TABLE VECTOR DEFINITION MACRO      CCGTMTV    24
                                        *         DEFINES O$TNAM, L$TNAM AND Z$TNAM AS ENTRY POINTS              CCGTMTV    25
                                                                                                                 CCGTMTV    26
                                                  PURGMAC B$TBL                                                  CCGTMTV    27
                                                  MACRO  B$TBL,TNAM,EQUIV                                        CCGTMTV    28
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    34
        CCG TABLES                                                    TABLES
  
                                                  ENTRY  O$TNAM,L$TNAM,Z$TNAM                                    CCGTMTV    29
                                         T        IFC    EQ,/EQUIV//                                             CCGTMTV    30
                                         Z$TNAM   EQU    *-FTAB                                                  CCGTMTV    31
                                         O$TNAM   CON    0                                                       CCGTMTV    32
                                         TABLES   RMT                                                            CCGTMTV    33
                                                  ORG    LTAB+Z$TNAM                                             CCGTMTV    34
                                         L$TNAM   CON    0                                                       CCGTMTV    35
                                         TABLES   RMT                                                            CCGTMTV    36
                                         T        ELSE                                                           CCGTMTV    37
                                         Z$TNAM   EQU    Z$EQUIV                                                 CCGTMTV    38
                                         O$TNAM   EQU    O$EQUIV                                                 CCGTMTV    39
                                         TABLES   RMT                                                            CCGTMTV    40
                                         L$TNAM   EQU    L$EQUIV                                                 CCGTMTV    41
                                         TABLES   RMT                                                            CCGTMTV    42
                                         T        ENDIF                                                          CCGTMTV    43
                                         B$TBL    ENDM                                                           CCGTMTV    44
                                                                                                                 CCGTMTV    45
           642  00000000000000000000     BLK      TABLE              BLOCKS IN CORE ( OPT=2 )                    CCGTMTV    46
                                                                                                                 CCGTMTV    47
           643  00000000000000000000     TXT      TABLE              CURRENT IL INSTRUCTION SEQUENCE             CCGTMTV    48
                                         GST      TABLE  TXT         GRAPH STRUCTURE TABLE ( CFA )               CCGTMTV    49
                                                                                                                 CCGTMTV    50
           644  00000000000000000000     RND      TABLE              R-NUMBER DEFINITION S ( SQZ )               CCGTMTV    51
                                         DUT      TABLE  RND         DEF-USE           ( PROSEQ/AIS )            CCGTMTV    52
                                         TREE     TABLE  RND         DEPENDENCY TREE/SUCC INDEX TBL ( BDT/MCG )  CCGTMTV    53
                                                                                                                 CCGTMTV    54
           645  00000000000000000000     PIT      TABLE              POSTED INSTRUCTIONS ( MCG/WII )             CCGTMTV    55
                                         PBT      TABLE  PIT         PRE ASSIGNED B-REGS ( PROSEQ/AIS )          CCGTMTV    56
                                                                                                                 CCGTMTV    57
           646  00000000000000000000     OTI      TABLE              OT. INFO 12/P(OT. ORD),30/,18/RI IN OT.     CCGTMTV    58
                                         MLT      TABLE  OTI         MOD LIST INDEX TABLE ( WHEN CALLING MPB )   CCGTMTV    59
                                                                                                                 CCGTMTV    60
           647  00000000000000000000     MOD      TABLE              MODIFICATIONS TO BE INSERT/DELETED ( MPB )  CCGTMTV    61
                                                                                                                 CCGA011     4
                                        ******CUTOFF POINT OF HIGHLY ACTIVE TABLES FOR OPT 2, PHASE 2 *********  CCGA011     5
                                                                                                                 CCGA011     6
           650  00000000000000000000     RCT      TABLE                                                          CCGA011     7
                                         BCT      TABLE  RCT                                                     CCGA011     8
                                                                                                                 CCGA011     9
                                        ************CUTOFF POINT OF HIGHLY ACTIVE TABLES FOR OPT 1*************  CCGA011    10
                                                                                                                 CCGTMTV    62
           651  00000000000000000000     CFT      TABLE              CONTROL FLOW TABLE ( BRIDGE AND CFA )       CCGTMTV    63
                                                                                                                 CCGA011    11
                                        ******CUTOFF POINT OF HIGHLY ACTIVE TABLES FOR OPT 2, PHASE 1 *********  CCGA011    12
                                                                                                                 CCGTMTV    64
           652  00000000000000000000     BST      TABLE              BLOCK STATUS INFORMATION                    CCGTMTV    65
                                        * BIT     #      BST         ( PHASE 1 OF OPT=2 )                        CCGTMTV    66
                                                                                                                 CCGTMTV    67
           653  00000000000000000000     PSI      TABLE              POST STORE INFORMATION ( GPO/GRA )          CCGTMTV    68
                                                                                                                 CCGTMTV    69
           654  00000000000000000000     RXI      TABLE              REGION EXIT INFORMATION ( GPO/GRA )         CCGTMTV    70
                                                                                                                 CCGTMTV    74
           655  00000000000000000000     TET      TABLE              TEMP EQUIVALENCE TABLE ( CODE MOTION )      CCGTMTV    75
                                                                                                                 CCGTMTV    76
           656  00000000000000000000     IIT      TABLE              INCREMENT INFORMATION ( GPO/GRA )           CCGTMTV    77
                                         IOL      TABLE  IIT         I/O APLIST PARAMETER ORDINALS ( OPT=2 )     CCG18       1
                                                                                                                 CCGTMTV    78
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    35
        CCG TABLES                                                    TABLES
  
           657  00000000000000000000     UDI      TABLE              USE/DEF INDEX TABLE ( BRIDGE/UDT )          CCGTMTV    79
                                                                                                                 CCGTMTV    80
                                        *         CUT AND CVT MUST BE INCLUDED IN *CGHCDTD*                      CCGTMTV    81
                                        *         SYM, CBT AND THE FOWARD REFERENCE ADDRESS DEFINITION TABLES    CCGTMTV    82
                                        *         MAY BE IN EITHER OF THE BELOW COMDECKS.                        CCGTMTV    83
                                                                                                                 CCGTMTV    84
                                         FUN      TABLE  RND                                                     CGHCDTD     2
           660  00000000000000000000     VDT      TABLE                                                          CGHCDTD     3
                                         DTT      TABLE  OTI                                                     CGHCDTD     4
                                         PAP      TABLE  PSI                                                     CGHCDTD     5
                                         PFP      TABLE  RXI                                                     CGHCDTD     6
                                         TST      TABLE  RCT                                                     CGHCDTD     7
                                         AUD      TABLE  TET                                                     CGHCDTD     8
           661  00000000000000000000     SAP      TABLE              MUST BE LAST TABLE IN CGHCDTD (BEF. CLW)    CGHCDTD     9
                                                  MACRO  TABSH,PASS1,D1,D2,PASS2                                 CGHCDTD    10
                                         PA2      MICRO  1,,/PASS2/                                              CGHCDTD    11
                                                  IFC    EQ,/PASS2//,1                                           CGHCDTD    12
                                         PA2      MICRO  1,,/PASS1/                                              CGHCDTD    13
                                         "PA2"    TABLE                                                          CGHCDTD    14
                                                  ENDM                                                           CGHCDTD    15
           662                           COMSTAD  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAD     2
                                                                                                                 COMSTAD     3
                                        ***       COMSTAD CONTAINS A "TABSH" MACRO CALL FOR EACH TABLE           COMSTAD     4
                                        *         WHICH IS SHARED WITH CCG.                                      COMSTAD     5
                                        *                                                                        COMSTAD     6
                                        * FEN     TABSH  RATE,INIT,CGN                                           COMSTAD     7
                                        *                                                                        COMSTAD     8
                                        *         WHERE  *FEN* = FRONT END NAME (SUFFIX) FOR THE TABLE.          COMSTAD     9
                                        *                *RATE* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    10
                                        *                *INIT* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    11
                                        *                *CGN* = CCG NAME (SUFFIX) FOR TABLE.                    COMSTAD    12
                                        *                IF *CGN* IS OMITTED, THE CCG SUFFIX IS SAME AS *FEN*.   COMSTAD    13
                                                                                                                 COMSTAD    14
                                                                                                                 COMSTAD    15
           662  00000000000000000000     CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
           663  00000000000000000000     CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
           664  00000000000000000000     APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
           665  00000000000000000000     IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
           666  00000000000000000000     API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
           667  00000000000000000000     IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)        FC5A128    10
           670  00000000000000000000     GL       TABSH  2,,GLT      GENERATED LABELS                            COMSTAD    22
           671  00000000000000000000     ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
           672  00000000000000000000     CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
           673  00000000000000000000     CUT      TABSH  0           CON. BIASES FOR PASS 3                      COMSTAD    25
                                                                                                                 COMSTAD    26
                                         COMSTAD  ENDX                                                           COMSTAD    27
                                                                                                                 CCGTMTV    86
                                                  IF     DEF,.T,1                                                CCGTMTV    87
                                  32     N.DT     EQU    .T          N. DYNAMIC TABLES                           CCGTMTV    88
                                                                                                                 CCGTMTV    89
           674                           COMSTAS  CTEXT              DEFINE STATIC TABLES SHARED WITH CCG.       COMSTAS     2
                                                                                                                 COMSTAS     3
                                        *         A STATIC TABLE IS ONE WHICH DOES NOT GROW OR SHRINK IN         COMSTAS     4
                                        *         BRIDGE/PASS 2.                                                 COMSTAS     5
                                                                                                                 COMSTAS     6
           674  00000000000000000000     SYM      TABSH  3,50*Z=SYM,,(DECL,EXU)  SYMBOL TABLE                    FC5A128    12
                                        *         (INITIAL LENGTH IS AD HOC BUT SHOULD NOT EXCEED Z.SYMIL)       FC5A128    13
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    36
        CCG TABLES                                                    TABLES
  
           675  00000000000000000000     BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
           676  00000000000000000000     NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
           677  00000000000000000000     DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
           700  00000000000000000000     ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
           701  00000000000000000000     FPI      TABSH  1           FORMAL PARAMETER INFORMATION                COMSTAS    13
           702  00000000000000000000     VDI      TABSH  1           VARDIM INFORMATION                          COMSTAS    14
                                                                                                                 COMSTAS    15
                                         COMSTAS  ENDX                                                           COMSTAS    16
           703  00000000000000000000     LPT      TABLE              DUMMY TABLE FOR LCM POINTER WORDS           FC50457     8
           704  00000000000000000000     FE       TABLE                                                          CGHCSTD     4
                                                                                                                 CCG16     180
                                  43     NTAB     EQU    .T          N. TOTAL TABLES                             CCG16     181
                                                                                                                 CCG16     182
                                                  IFEQ   HC.2OC,0                                                CCG16     183
           705                           LTAB     BSS    0                                                       CCG16     184
                                         TABLES   HERE                                                           CCG16     185
                                                  EXT    F.MEM                                                   CCG18      73
                                                  USE    *                                                       CCG16     188
                                                                                                                 CCG16     189
                                                  ELSE                                                           CCG16     190
                                         F.MEM    EQU    0                                                       CCG16     191
                                                  ENDIF                                                          CCG16     192
                                                                                                                 CCG16     193
                                                  ENTRY  F$FRT                                                   CCG16     194
           750                           F$FRT    BSS    0           FOWARD REFERENCE POINTER TABLE              CCG16     195
                                                  ECHO   1,Z=("HC.FRTP")                                         CCG16     196
                                                  VFD    42/,18/=XO$Z_T                                          CCG16     197
                                                  IFNE   HC.IA,0,1                                               CCG18      74
                                                  VFD    42/,18/=XF$SST                                          CCG16     198
                                                                                                                 CGTM      501
           754                           LM       ENTRY. F.MEM,#     LOW MEMORY ADDRESS ( FWA WORKING STORAGE )  CGTM      502
           755  00000000000000000033     TN       CON    N.DT+1      NUMBER OF ACTIVE TABLES                     CCG16     199
           756                     4              BSS    4           SCRATCH TO SAVE - X0 , X5 , X1 , A0         CGTM      504
           762  00000000000000000000     PL       CON    0           PREVIOUS LENGTH OF REQUESTING TABLE         CGTM      505
           763                           TO       ENTRY. TOV#,#      ADDRESS OF TABLE OVERFLOW PROCESSOR         CGTM      506
           764                           MX.BLN   ENTRY. 0,#                                                     CGTM      507
           765                           THRESH   ENTRY. 6000B,#                                                 CCGA011    13
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    37
        TABLE OVERFLOW PROCESSING ROUTINES                            TOV 
  
                                        **        TOV - TABLE OVERFLOW PROCESSOR                                 CGTM      546
                                                                                                                 CGTM      547
                                         .IA      IFNE   HC.IA,0                                                 CCG18      75
                                                  ENTRY  TOVA#                                                   CCG18      76
                                         TOVA#    SX0    B5                                                      CGTM      549
                                                  CALL   DAT#        RETURNS (B5) = SPACE FREED UP               CGTM      550
                                                  SB5    B5+X0                                                   CGTM      551
                                                  PL     B5,ATS65    IF ENOUGH SPACE AVAILABLE                   CCGA011    14
                                         .IA      ENDIF                                                          CCG18      77
                                                                                                                 CCG18      78
                                                  ENTRY  TOV#                                                    CCG18      79
           766  67505                    TOV#     SB5    -B5                                                     CCG18      80
                     7115002000                   SX1    B5+2000B    WR = NO.OF WORDS REQUESTED                  CGTM      556
                                                  PRINT  TOV,(* TOV CALLS MOREFL,WR=*Z7),(X1)                    CGTM      557
           767  0100001014 +                      CALL   MOREFL                                                  CGTM      558
           770  0327001156 +                      PL     X7,ATS65                                                CCGA011    15
                                         .T       IFNE   TEST,0                                    * TEST MODE * CGTM      560
                                                  SA5    ATS                                                     CGTM      561
                                                  LX5    30                                                      CGTM      562
                                         TOV      SNAP   FTAB,TO                                                 CGTM      563
                                         .T       ENDIF                                            * TEST MODE * CGTM      564
                                                                                                                 CGTM      565
           771  5110001220 +             TOV1     SA1    =7LTBL-OVF                                              CGTM      566
                          0100000030 +            CALL   PUNT        ISSUE AN ERROR MESSAGE AND QUIT             CGTM      567
  
  
  
                                        **        TOB - OVERFLOW PROCESSING FOR PASS2,OPT2                       CGTM      569
                                        *                                                                        CGTM      570
                                        *         ENTRY (B5) = - NO.OF WORDS NEEDED                              CGTM      571
                                        *                                                                        CGTM      572
                                        *         TOB ATTEMPTS TO OBTAIN NEEDED WORDS BY DECREASING BLK TABLE    CGTM      573
                                        *         IF IT IS AT LEAST 1.5 TIMES THE MAX.BASIC BLOCK SIZE,ELSE      CGTM      574
                                        *         TOB CALLS MOREFL TO GET ADDIT.SPACE BY EXTENDING FIELD         CGTM      575
                                        *         LENGTH. IF NO FL AVAIL.,COMPILATION IS ABORTED                 CGTM      576
                                                                                                                 CGTM      577
                                                  ENTRY  TOB#                                                    CGTM      578
           772  5120000764 +             TOB#     SA2    MX.BLN                                                  CGTM      579
                                                  PRINT  TOB,(* OVERFLOW, WORDS NEEDED = *Z7),(B5)               CCGA011    16
                          5130000000 X            SA3    =XM.BBL#                                                CGTM      580
           773  21201                             AX2    1           X2 = MX.BLN/2                               CGTM      581
                     10133                        BX1    X3                                                      CGTM      582
                          21101                   AX1    1                                                       CGTM      583
                               36113              IX1    X1+X3       X1 = 1.5*M.BBL                              CGTM      584
           774  37421                             IX4    X2-X1                                                   CGTM      585
                     0324000775 +                 PL     X4,TOB1     IF MX.BLN/2 > 1.5*M.BBL                     CGTM      586
                               10211              BX2    X1                                                      CGTM      587
                                                                                                                 CGTM      588
                                        *         MIN.BLK = MAX(MX.BLN/2,1.5*M.BBL)                              CGTM      589
                                                                                                                 CGTM      590
           775  67505                    TOB1     SB5    -B5         WN = NO.OF WORDS NEEDED                     CGTM      591
                                                  PRINT  TOB,(*  NO.OF WORDS NEEDED,MIN.BLK = *2Z7),(B5,X1)      CGTM      592
                     5130000705 +                 SA3    L$BLK                                                   CGTM      593
           776  7115000200                        SX1    B5+200B     WR = WN+200B */ WORDS TO BE REQUESTED       CGTM      594
                          37432                   IX4    X3-X2       WA = L.BLK - MIN.BLK */ WORDS AVAIL.IN BLK  CGTM      595
                               66210              SB2    B1          SPECIAL PROC.BY DMB IF MOREFL NOT CALLED    CGTM      596
           777  37241                             IX2    X4-X1                                                   CGTM      597
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    38
        TABLE OVERFLOW PROCESSING ROUTINES                            TOB 
  
                     10611                        BX6    X1                                                      CGTM      598
                          64300                   SB3    A0                                                      CCGA027     6
          1000  0430001001 +                      ZR     B3,TOB1A    IF ALLOC BLK                                CCGA027     7
                          0322001003 +            PL     X2,TOB2     IF WA GT WR                                 CCGA027     8
                                                                                                                 CCGA027     9
          1001                           TOB1A    BSS    0                                                       CCGA027    10
          1001  0100001014 +                      CALL   MOREFL      MOREFL(X6) = WG */ WORDS GRANTED IN NEW FL  CGTM      600
          1002  0327001156 +                      PL     X7,ATS65    IF WG > WR                                  CCGA011    17
                                                                                                                 CGTM      602
                          37616                   IX6    X1-X6       WR = WR-WG                                  CGTM      603
                               66200              SB2    B0          STAND.PROC BY DMB IF MOREFL CALLED          CGTM      604
                                                                                                                 CGTM      605
                                        *         GET REMAINING NEEDED SPACE BY REDUCING *BLK* SIZE              CGTM      606
                                                                                                                 CGTM      607
          1003  5120000000 X             TOB2     SA2    =XMX.AVS#                                               CGTM      608
                          37162                   IX1    X6-X2       WD = WR - MX.AVS */ WORDS TO BE DUMPED      CGTM      609
                               63210              SB2    X1                                                      CGTM      610
          1004  0602001010 +                      LE     B2,B0,TOB3  IF WD .LE. ZERO                             CGTM      611
                          5160001013 +            SA6    TOBA        SAVE WR                                     CGTM      612
                                                  PRINT  TOB,(*  TOB CALLS  DMB ; WDS,SP.FLG=*2Z7),(X1,B2)       CGTM      613
          1005  0100000000 X                      CALL   DMB#        DUMP BLOCKS TO FREE *WD* WORDS              CGTM      614
                                        *         DMB(X2) = WFL */ NO. OF WORDS BY MOREFL                        CGTM      615
          1006  0311000771 +                      NZ     X1,TOV1     IF X1 " 0 */ CANNOT DUMP ENOUGH BLOCKS      CGTM      616
                          5110001013 +            SA1    TOBA        RELOAD WR                                   CGTM      617
          1007  37612                             IX6    X1-X2       BLK.DECR = WR - WFL                         CGTM      618
                     0336001011 +                 MI     X6,TOB4     IF BLK.DECR @ 0                             CGTM      619
                                                                                                                 CGTM      620
                                        *         DECREASE BLOCK TABLE SIZE BY BLK.DECR                          CGTM      621
                                                                                                                 CGTM      622
          1010  5110000705 +             TOB3     SA1    L$BLK                                                   CGTM      623
                          37716                   IX7    X1-X6                                                   CGTM      624
                               54710              SA7    A1          L.BLK = L.BLK - WR                          CGTM      625
                                                  PRINT  TOB,(*  NEW BLK SIZE,DIFFERENCE =*2Z7),(X7,X6)          CGTM      626
          1011  0100000000 X             TOB4     CALL   CGB#        COLLECT FREE SPACE AT THE END OF *BLK*      CGTM      627
          1012  0400001156 +                      EQ     ATS65                                                   CCGA011    18
                                                                                                                 CGTM      629
          1013                     1     TOBA     BSS    1                                                       CGTM      630
  
  
  
                                        **        GET MORE MEMORY FROM THE SYSTEM                                CGTM      632
                                        *                                                                        CGTM      633
                                        *         ENTRY (X1) = WN ,  NO.OF WORDS NEEDED                          CGTM      634
                                        *                                                                        CGTM      635
                                        *         EXIT   (X1) = WN                                               CGTM      636
                                        *                (X6) = WG , NO. OF WORDS GRANTED                        CGTM      637
                                        *                (X7) = WG - WN                                          CGTM      638
                                                                                                                 CGTM      639
          1014                           MOREFL   ENTRY. **,#                                                    CGTM      640
                                                  PRINT  MOREFL,(*  WN =*Z7),(X1)                                CGTM      641
          1015  5120000000 X                      SA2    HO$MFLS     MXFL = HO$MFLS  */ MAX FL THAT WE CAN GET   CGTM      642
                          5130000000 X            SA3    =XCP.AFLS   CFL = FL CURRENTLY USED                     CGTM      643
          1016  21236                             AX2    30                                                      CGTM      644
                     37623                        IX6    X2-X3       WA = NO. OF WORDS AVAILABLE IN MXFL         CGTM      645
                          43754                   MX7    44                                                      CGTM      646
          1017  0306001014 +                      ZR     X6,MOREFL   IF WA = 0 */ MAX FL USED ALREADY            CGTM      647
                          63360                   SB3    X6                                                      CGTM      648
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    39
        TABLE OVERFLOW PROCESSING ROUTINES                            MOREFL
  
                               43766              MX7    -6                                                      CGTM      649
          1020  37217                             IX2    X1-X7                                                   CGTM      650
                     11272                        BX2    X7*X2       ROUND WN TO NEXT 100B                       CGTM      651
                          6222001000              SB2    X2+1000B                                                CGTM      652
          1021  0623001022 +                      GE     B2,B3,MFL1                                              CGTM      653
                          76620                   SX6    B2          WR = MIN(WA,WN+1000B) */ NO OF WDS REQ.     CGTM      654
                                                                                                                 CGTM      655
          1022  36763                    MFL1     IX7    X6+X3                                                   CGTM      656
                     20736                        LX7    30                                                      CGTM      657
                          5170001037 +            SA7    MFLA                                                    CGTM      658
          1023  10711                             BX7    X1                                                      CGTM      659
                     54771                        SA7    A7+B1                                                   CGTM      660
                                                  PRINT  MOREFL,(* WA,WR =*2Z7),(B3,X6)                          CGTM      661
                          7160150515              MEMORY SCM,MFLA,RCL                                            CGTM      662
          1026  5120001037 +                      SA2    MFLA                                                    CGTM      663
                          5130000000 X            SA3    CP.AFLS     OFL = OLD FL                                CGTM      664
          1027  21236                             AX2    30          NFL = NEW FL                                CGTM      665
                     37023                        IX0    X2-X3       WG = NO. OF WORDS GRANTED                   CGTM      666
                          10622                   BX6    X2                                                      CGTM      667
                               54630              SA6    A3          CP.AFLS = NEW FL                            CGTM      668
          1030  5130000000 X                      SA3    =XHO$PMLS                                               CGTM      669
                          37723                   MX7    X2+X3       HO$PMLS = MAX( HO$PMLS , NFL )              CGTM      670
                               54730              SA7    A3                                                      CGTM      671
                                                  PRINT  MOREFL,(*  NEW FL,WG =*2Z7),(X6,X0)                     CGTM      672
          1032  0100001046 +                      RJ     AST         */ ADJUST SPECIAL TABLES                    CGTM      673
          1033  5110001040 +                      SA1    MFLB                                                    CGTM      674
                          10600                   BX6    X0          (X6) = NO.OF WORDS GRANTED */ EXIT PAR.     CGTM      675
                               37701              IX7    X0-X1                                                   CGTM      676
          1034  5120000765 +                      SA2    THRESH                                                  CCGA025     5
                          0327001014 +            PL     X7,MOREFL   IF ENOUGH SPACE GRANTED                     CCGA025     6
          1035  43700                             MX7    0                                                       CCGA025     7
                     36662                        IX6    X6+X2                                                   CCGA025     8
                          54720                   SA7    A2          RELINQUISH TABLE MANAGER SLOP               CCGA025     9
                               37761              IX7    X6-X1                                                   CCGA025    10
          1036  0400001014 +                      EQ     MOREFL                                                  CGTM      677
                                                                                                                 CGTM      678
          1037                     1     MFLA     BSS    1                                                       CGTM      679
          1040                     1     MFLB     BSS    1                                                       CGTM      680
  
  
  
                                        **        CWS# - CALCULATE WORKING STORAGE SIZE                          CGTM      682
                                        *                                                                        CGTM      683
                                        *         EXIT   (X6) = CURRENT WORKING STORAGE SIZE                     CGTM      684
                                        *                (X7) = MAXIMUM WORKING STORAGE SIZE                     CGTM      685
                                                                                                                 CGTM      686
          1041                           CWS      ENTRY. **,#                                                    CGTM      687
          1042  5110000754 +                      SA1    LM                                                      CGTM      688
                          5120000674 +            SA2    FTAB+N.DT   LWA OF DYNAMIC TABLES                       CCG29       6
          1043  5130000000 X                      SA3    =XCP.AFLS                                               CGTM      690
                          5140000000 X            SA4    =XHO$MFLS                                               CGTM      691
          1044  21436                             AX4    30                                                      CGTM      692
                     37621                        IX6    X2-X1       CWS = O.TEND - LM                           CGTM      693
                          37743                   IX7    X4-X3                                                   CGTM      694
                               36776              IX7    X7+X6       MWS = MAX.FL - CP.AFLS + CWS                CGTM      695
          1045  0400001041 +                      EQ     CWS                                                     CGTM      696
                                                                                                                 CGTM      697
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    40
        TABLE OVERFLOW PROCESSING ROUTINES                            CWS=
  
                                                                                                                 CGTM      698
                                        **        AST - ADJUST SPECIAL TABLES IN HIGH CORE AND POINTERS TO THEM  CGTM      699
                                        *                                                                        CGTM      700
                                        *         ENTRY  (X0) = CHANGE                                           CGTM      701
                                                                                                                 CGTM      702
          1046  0200401046 +             AST      ROUTINE                                                        CGTM      703
                                                  PRINT  AST,(* AST CALLED,CHANGE =*Z7),(X0)                     CGTM      704
          1047  5140000755 +                      SA4    TN                                                      CGTM      705
                          5224000641 +            SA2    FTAB-1+X4   FWA OF STATIC TABLES                        CGTM      706
          1050  6224777776                        SB2    X4-1                                                    CGTM      707
                          5140000000 X            SA4    =XCP.NFLS   FL-10                                       CGTM      708
          1051  36740                             IX7    X4+X0       NEW CP.NFLS = OLD CP.NFLS + CHANGE          CGTM      709
                     54740                        SA7    A4                                                      CGTM      710
                          37142                   IX1    X4-X2       WDS = CP.NFLS - O.TEND                      CGTM      711
                               36320              IX3    X2+X0       TO = O.TEND + CHANGE                        CGTM      712
          1052  6130000043                        SB3    NTAB                                                    CGTM      713
          1053  5142000642 +             AST1     SA4    FTAB+B2                                                 CGTM      714
                          36740                   IX7    X4+X0                                                   CGTM      715
                               66221              SB2    B2+B1                                                   CGTM      716
          1054  54740                             SA7    A4                                                      CGTM      717
                     0723001053 +                 LT     B2,B3,AST1                                              CGTM      718
          1055  0100000000 X                      MOVE   X1,X2,X3                                                CGTM      719
          1056  0400001046 +                      EQ     AST                                                     CGTM      720
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    41
        CG$PTC - PRINT *CCG* TABLES AFTER A REPRIEVE                  CG$PTC
  
                                         .T       IFNE   TEST,0                                    * TEST MODE * CGTM      722
                                                                                                                 CGTM      723
                                         NAMTAB   BSS    0                                                       CGTM      724
                                         TABNAM   HERE                                                           CGTM      725
                                                                                                                 CGTM      726
                                         CG$PTC   ENTRY.                                                         CGTM      727
                                                  SETB1                                                          CGTM      728
                                                  PRINT  ,(//*  -- COMPILER TABLE DUMP --*/)                     CGTM      729
                                                  SX1    4           SET TO *EXECUTIVE IS /PTC=/*                CGTM      730
                                                  RJ     =XSOB       SET OUTPUT BIT FLAGS                        CGTM      731
                                                  SX6    1                                                       CGTM      732
                                                  SA6    PTCA        INITIALIZE COUNTER                          CGTM      733
                                                                                                                 CGTM      734
                                         PTC1     SA1    PTCA                                                    CGTM      735
                                                  SA2    FTAB+X1     GET FWA OF TABLE                            CGTM      736
                                                  SA3    LTAB+X1     GET LENGTH OF TABLE                         CGTM      737
                                                  SA5    NAMTAB+X1   GET NAME OF TABLE                           CGTM      738
                                                  RJ     PMT                                                     CGTM      739
                                                  SA1    PTCA                                                    CGTM      740
                                                  SA2    TN                                                      CGTM      741
                                                  SX6    X1+B1                                                   CGTM      742
                                                  SA6    A1          INCREMENT COUNTER                           CGTM      743
                                                  IX7    X6-X2                                                   CGTM      744
                                                  MI     X7,PTC1     IF MORE TABLES                              CGTM      745
                                                                                                                 CGTM      746
                                                  SA1    =XHO$OPT                                                CGTM      747
                                                  PL     X1,PTC2     IF OPT " 2                                  CGTM      748
                                                  ECHO   4,TBL=(BIT,SEQ)                                         CGTM      749
                                                  SA2    =XO$TBL                                                 CGTM      750
                                                  SA3    =XL$TBL                                                 CGTM      751
                                                  SA5    =10H TBL                                                CGTM      752
                                                  RJ     PMT                                                     CGTM      753
                                                                                                                 CGTM      754
                                         PTC2     SA1    L$TXT                                                   CGTM      755
                                                  SB2    X1-8                                                    CGTM      756
                                                  LE     B2,PTC3                                                 CGTM      757
                                                  SA1    O$TXT                                                   CGTM      758
                                                  SA2    X1                                                      CGTM      759
                                                  UX6    B2,X2                                                   CGTM      760
                                                  LE     B2,PTC3     IF NO EXPONENT                              CGTM      761
                                                  SNAPRL PTC                                                     CGTM      762
                                                                                                                 CGTM      763
                                         PTC3     RECALL =XF.OUT                                                 CGTM      764
                                                  EQ     CG$PTC                                                  CGTM      765
                                                                                                                 CGTM      766
                                         PTCA     BSS    1                                                       CGTM      767
                                                                                                                 CGTM      768
                                         PMT      ROUTINE                                                        CGTM      769
                                                  ZR     X3,PMT      IF LEN = 0                                  CGTM      770
                                                  PRINT  ,(/*  TABLE -*A10*  FWA,LEN =*2Z6/),(X5,X2,X3)          CGTM      771
                                                  IX3    X2+X3                                                   CGTM      772
                                                  MX4    0                                                       CGTM      773
                                                  RJ     =XDCM=      DUMP CENTRAL MEMORY                         CGTM      774
                                                  EQ     PMT                                                     CGTM      775
                                                                                                                 CGTM      776
                                         .T       ENDIF                                            * TEST MODE * CGTM      777
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    42
        TABLE MANAGER SUBROUTINES                                     ATS 
  
                                        **        ATS$ - ALLOCATE TABLE SPACE                                    CGTM      779
                                        *                                                                        CGTM      780
                                        *         ENTRY  (A0) = TABLE INDEX.                                     CGTM      781
                                        *                (X1) = CHANGE (+ OR -) TO TABLE SIZE.                   CGTM      782
                                        *                                                                        CGTM      783
                                        *         EXIT   (X1) = CHANGE.                                          CGTM      784
                                        *                (X2) = FWA OF TABLE.                                    CGTM      785
                                        *                (X3) = NEW LENGTH OF TABLE.                             CGTM      786
                                        *                (B6) = PREVIOUS TABLE LENGTH                            CGTM      787
                                        *                                                                        CGTM      788
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             CGTM      789
                                        *                B - 2, 3, 4, 5, 7                                       CGTM      790
                                        *                A - 1, 2, 3, 4, 6, 7                                    CGTM      791
                                        *         RESTORES X0, X5, B4, B5, B7                                    CCG15     702
                                        *         CALLS  AMU, MVE.                                               CGTM      793
                                        *         THE DYNAMIC TABLES ARE DIVIDED INTO TWO PORTIONS.  THE LOW     CCGA011    19
                                        *         PORTION RECIEVES 7/8 OF THE FREE SPACE AVAILABLE, THEREFORE    CCGA011    20
                                        *         THE LARGER AND FAST GROWING TABLES ARE IN THE LOW PORTION.     CCGA011    21
                                        *         ATSNAT# IS THE NUMBER OF ACTIVE TABLES (IN LOW).               CCGA011    22
                                        *         ALSO, 6000B OF FREE STORAGE IS ALWAYS KEPT IN RESERVE.         CCGA011    23
                                        *         OPT = 1, ATSNAT# = 7.                                          CCGA011    24
                                        *         OPT = 2, BEFORE AFT IS CALLED.  ATSNAT# = 8.                   CCGA011    25
                                        *         OPT = 2, AFTER AFT IS CALLED.   ATSNAT# = 6.                   CCGA011    26
                                                                                                                 CCGA011    27
                                                  ENTRY  ATSNAT#,ATSTOG#                                         CCGA011    28
          1057  00000000000000000010     ATSNAT#  CON    8           NO. OF ACTIVE TABLES  (IN LOW)              CCGA011    29
          1060  00000000000000000016     ATSTOG#  CON    6&8         ATSNAT TOGGLE                               CCGA011    30
                                                                                                                 CGTM      794
          1061  5020000642 +             ATSX     SA2    FTAB+A0     (X2) = FWA TABLE                            CGTM      795
                          5030000705 +            SA3    LTAB+A0     (X3) = NEW LENGTH                           CGTM      796
                                                                                                                 CGTM      797
          1062                           ATS      ENTRY. **,$                                                    CGTM      798
          1063  5020000642 +             ATS1     SA2    FTAB+A0     CURRENT FWA                                 CGTM      799
                          5030000705 +            SA3    LTAB+A0     CURRENT LENGTH                              CGTM      800
          1064  54421                             SA4    A2+B1       NEXT TABLE FWA                              CGTM      801
                     36613                        IX6    X1+X3       NEW LENGTH                                  CGTM      802
                          63630                   SB6    X3          (B6) = PREVIOUS TABLE LENGTH                CGTM      803
                               37742              IX7    X4-X2       ROOM BETWEEN TABLES                         CGTM      804
          1065  54630                             SA6    A3          SET NEW LENGTH                              CGTM      805
                     37776                        IX7    X7-X6                                                   CGTM      806
                          0327001061 +            PL     X7,ATSX     RETURN IF ROOM FOR CHANGE                   CGTM      807
          1066  73730                             SX7    X3          SET PREVIOUS LENGTH                         CGTM      808
                                                  PRINT  ATS,(* CRASHER, WORDS NEEDED = *2Z7),(A0,X1)            CCGA011    31
                                                                                                                 CGTM      809
                                        **        INITIALIZE FOR TABLE MOVE.                                     CGTM      810
                                                                                                                 CGTM      811
                     5120000755 +                 SA2    TN          (B2) = NUMBER OF TABLES                     CGTM      812
                               10600              BX6    X0          SAVE (X0)                                   CGTM      813
          1067  54730                             SA7    A3                                                      CGTM      814
                     5170000762 +                 SA7    PL          PL = PREVIOUS LENGTH                        CGTM      815
                               63220              SB2    X2                                                      CGTM      816
          1070  22705                             LX7    X5          SAVE (X5)                                   CGTM      817
                     54621                        SA6    A2+B1                                                   CGTM      818
                          54761                   SA7    A6+B1                                                   CGTM      819
                               10611              BX6    X1          SAVE (X1)                                   CGTM      820
          1071  54671                             SA6    A7+B1                                                   CGTM      821
                     43652                        MX6    -18         SAVE B4, B5, B7                             CCG15     703
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    43
        TABLE MANAGER SUBROUTINES                                     ATS 
  
                          76740                   SX7    B4                                                      CCG15     704
                               76250              SX2    B5                                                      CCG15     705
          1072  15776                             BX7    -X6*X7                                                  CCG15     706
                     15226                        BX2    -X6*X2                                                  CCG15     707
                          20722                   LX7    18                                                      CCG15     708
                               12272              BX2    X7+X2                                                   CCG15     709
          1073  76770                             SX7    B7                                                      CCG15     710
                     15776                        BX7    -X6*X7                                                  CCG15     711
                          20222                   LX2    18                                                      CCG15     712
                               12772              BX7    X7+X2                                                   CCG15     713
          1074  5170001162 +                      SA7    ATSA                                                    CCG15     714
                                                                                                                 CGTM      822
                                        **        COMPUTE REMAINING TABLE SPACE.                                 CGTM      823
                                                                                                                 CGTM      824
                          67321                   SB3    B2-B1                                                   CGTM      825
          1075  5120001057 +             ATS5     SA2    ATSNAT#                                                 CCGA011    32
                          6252777776              SB5    X2-1        LSTLOW = ATSNAT-1                           CCGA011    33
          1076  76400                             SX4    B0                                                      CCGA011    34
          1077  67331                    ATS10    SB3    B3-B1       ACCUMULATE ASSIGNED TABLE LENGTHS           CCGA011    35
                     5133000705 +                 SA3    LTAB+B3                                                 CGTM      828
          1100  0535001101 +                      NE     B3,B5,ATS15 IF I " LSTLOW                               CCGA011    36
                          63640                   SB6    X4          SAVE HIGHAL                                 CCGA011    37
          1101  36443                    ATS15    IX4    X4+X3                                                   CCGA011    38
                     0530001077 +                 NZ     B3,ATS10    LOOP FOR ALL TABLES                         CCGA011    39
                               36441              IX4    X4+X1       TOTAL = TOTAL + CHANGE                      CCGA011    40
          1102  65405                             SB4    A0-B5                                                   CCGA011    41
                     0604001103 +                 LE     B4,B0,ATS20 IF CRASHER LE LSTLOW                        CCGA011    42
                               63616              SB6    X1+B6       HIGHAL = HIGHAL + CHANGE                    CCGA011    43
          1103  76760                    ATS20    SX7    B6                                                      CCGA011    44
                     5170001163 +                 SA7    ATSB                                                    CCGA011    45
          1104  5120000754 +                      SA2    LM          SET AVAILABLE LENGTH                        CGTM      831
                          5132000641 +            SA3    FTAB-1+B2                                               CGTM      832
          1105  37632                             IX6    X3-X2                                                   CGTM      833
                     63440                        SB4    X4          (B4) = TOTAL ASSIGNED LENGTH                CGTM      834
                          37764                   IX7    X6-X4                                                   CGTM      835
                               63570              SB5    X7          (B5) = REMAINING SPACE                      CGTM      836
          1106  5110000765 +                      SA1    THRESH      1000B/6000B OPT = 1/2                       CCGA011    46
                          37771                   IX7    X7-X1       GUARANTEE ELBOW ROOM                        CCGA011    47
          1107  0337001153 +                      MI     X7,ATS60    IF NO REMAINING SPACE                       CCGA011    48
                                                                                                                 CGTM      838
                                        **        MOVE ALL TABLES DOWN.                                          CGTM      839
                                                                                                                 CGTM      840
                          5110000754 +            SA1    LM          LOW MEMORY LIMIT                            CGTM      841
          1110  66310                             SB3    B1                                                      CGTM      842
                     22001                        LX0    X1                                                      CGTM      843
          1111  5123000641 +             ATS25    SA2    FTAB-1+B3   ORIGIN = PREVIOUS FWA                       CCGA011    49
                          5113000704 +            SA1    LTAB-1+B3   WORD COUNT = LENGTH                         CGTM      845
          1112  10300                             BX3    X0          DESTINATION = NEW FWA                       CGTM      846
                     36001                        IX0    X0+X1       NEXT FWA                                    CGTM      847
                          73730                   SX7    X3          SET NEW FWA                                 CGTM      848
                               13423              BX4    X2-X3       MOVE DIFFERENTIAL                           CGTM      849
          1113  54720                             SA7    A2                                                      CGTM      850
                     66331                        SB3    B3+B1       COUNT TABLE                                 CGTM      851
                          0304001115 +            ZR     X4,ATS30    IF NO MOVE REQUIRED                         CCGA011    50
          1114  0100000000 X                      RJ     MVE=                                                    CGTM      853
          1115  0532001111 +             ATS30    NE     B3,B2,ATS25 LOOP FOR ALL TABLES                         CCGA011    51
                          5110000760 +            SA1    TN+3        INCREMENT SIZE OF REQUESTED TABLE           CGTM      855
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    44
        TABLE MANAGER SUBROUTINES                                     ATS 
  
          1116  5020000705 +                      SA2    LTAB+A0                                                 CGTM      856
                          36621                   IX6    X2+X1                                                   CGTM      857
                               54620              SA6    A2                                                      CGTM      858
                                                                                                                 CGTM      859
                                        **        REALLOCATE TABLES.                                             CGTM      860
                                        *         ALLOCATE INTERSPACE FOR HIGH. 1/8*(HIGHLA/2)*(1/N+TL/HIGHAL)   CCGA011    52
                                                                                                                 CGTM      862
          1117  5112000641 +                      SA1    FTAB-1+B2   (X0) = LWA+1 LAST TABLE                     CGTM      863
                          67321                   SB3    B2-B1                                                   CGTM      864
                               10011              BX0    X1                                                      CGTM      865
          1120  5120001057 +                      SA2    ATSNAT#                                                 CCGA011    53
                          63620                   SB6    X2          LC = ATSNAT                                 CCGA011    54
                               67226              SB2    B2-B6       NTABS = TOTAL TABS - ATSNAT                 CCGA011    55
          1121  76740                             SX7    B4                                                      CCGA011    56
                     5170001164 +                 SA7    ATSC        SAVE TOTAL                                  CCGA011    57
                               76650              SX6    B5                                                      CCGA011    58
          1122  5160001165 +                      SA6    ATSD        SAVE TOTLA                                  CCGA011    59
                          5120001163 +            SA2    ATSB                                                    CCGA011    60
          1123  63420                             SB4    X2          AL = HIGHAL                                 CCGA011    61
                     21603                        AX6    3           HIGHLA = TOTLA/8                            CCGA011    62
                          63560                   SB5    X6          LA = HIGHLA                                 CCGA011    63
                                                                                                                 CCGA011    64
                                        *         DO ACTUAL REALOCATION.                                         CCGA011    65
                                                                                                                 CCGA011    66
          1124  67331                    ATS35    SB3    B3-B1       I = I + 1                                   CCGA011    67
                     5123000642 +                 SA2    FTAB+B3     FWA(I)                                      CGTM      869
                               76450              SX4    B5          LA (LENGTH AVAILABLE)                       CGTM      870
          1125  5113000705 +                      SA1    LTAB+B3     TL (LENGTH OF TABLE)                        CGTM      871
                          77321                   SX3    B2-B1       N  (NUMBER OF TABLES)                       CGTM      872
                               23514              AX5    X4,B1       LA/2                                        CGTM      873
          1126  27404                             IX6    X4/X3       L1 = LA/N                                   CGTM      874
          1130  0440001134 +                      ZR     B4,ATS40                                                CCGA011    68
                          76340                   SX3    B4          AL (TOTAL ASSIGNED LENGTH)                  CGTM      876
                               42751              IX7    X5*X1       (LA/2)*TL                                   CGTM      877
          1131  21601                             AX6    1           L1 = LA/2N                                  CGTM      878
                     27707                        IX7    X7/X3       L2 = (TL*LA)/2                              CGTM      879
          1133  36667                             IX6    X6+X7       L = L1+L2                                   CGTM      880
                     73110                        SX1    X1                                                      CGTM      881
          1134  37606                    ATS40    IX6    X0-X6       FWA(I+1) - L                                CCGA011    69
                     37761                        IX7    X6-X1       FWA(I) = FWA(I+1)-L-TL                      CGTM      883
                          10377                   BX3    X7          DESTINATION = FWA(I)                        CGTM      884
                               54720              SA7    A2                                                      CGTM      885
          1135  22007                             LX0    X7          FWA(I+1) = FWA(I)                           CGTM      886
                     13423                        BX4    X2-X3       CHECK MOVE DIFFERENTIAL                     CGTM      887
                          0304001137 +            ZR     X4,ATS45    IF NO MOVE REQUIRED                         CCGA011    70
          1136  0100000000 X                      RJ     MVE=        MOVE TABLE                                  CGTM      889
          1137  0763001124 +             ATS45    GT     B3,B6,ATS35 LOOP                                        CCGA011    71
                                                                                                                 CCGA011    72
                                        *         ALLOCATE INTERSPACE FOR LOW. 7/8*(LOWLA/2)*(1/N+TL/LOWAL)      CCGA011    73
                                                                                                                 CCGA011    74
                          7116777774              SX1    B6-3                                                    CCGA011    75
          1140  0331001146 +                      MI     X1,ATS55   IF LC < 3    */ALREADY DID LOW               CCGA011    76
                          5120001166 +            SA2    ATSFAT                                                  CCGA011    77
          1141  63620                             SB6    X2          FIRST ACTIVE TABLE                          CCGA011    78
          1142  5120001057 +            +         SA2    ATSNAT#                                                 CCGA011    79
                          63221                   SB2    X2+B1                                                   CCGA011    80
                               67226              SB2    B2-B6       NTABS = ATSNAT + 1 - LC                     CCGA011    81
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    45
        TABLE MANAGER SUBROUTINES                                     ATS 
  
          1143  5110001164 +                      SA1    ATSC                                                    CCGA011    82
                          76240                   SX2    B4                                                      CCGA011    83
                               37312              IX3    X1-X2       LOWAL = TOTAL - HIGHAL                      CCGA011    84
          1144  63430                             SB4    X3          AL = LOWAL                                  CCGA011    85
                     5110001165 +                 SA1    ATSD                                                    CCGA011    86
                               76250              SX2    B5                                                      CCGA011    87
          1145  37312                             IX3    X1-X2       LOWLA = TOTLA - HIGHLA                      CCGA011    88
                     63530                        SB5    X3          LA = LOWLA                                  CCGA011    89
                          0400001124 +            EQ     ATS35                                                   CCGA011    90
                                                                                                                 CGTM      891
                                        **        RESTORE REGISTERS.                                             CGTM      892
                                                                                                                 CGTM      893
          1146  5110001162 +             ATS55    SA1    ATSA                                                    CCGA011    91
                          63710                   SB7    X1                                                      CCG15     716
                               21122              AX1    18                                                      CCG15     717
          1147  63510                             SB5    X1                                                      CCG15     718
                     21122                        AX1    18                                                      CCG15     719
                          63410                   SB4    X1                                                      CCG15     720
          1150  5120000756 +                      SA2    TN+1        RESTORE (X0)                                CGTM      897
                          54321                   SA3    A2+B1       RESTORE (X5)                                CGTM      898
                               10022              BX0    X2                                                      CGTM      899
          1151  5140000762 +                      SA4    PL                                                      CGTM      900
                          22503                   LX5    X3                                                      CGTM      901
                               54131              SA1    A3+B1       RESTORE (X1)                                CGTM      902
          1152  63640                             SB6    X4          (B6) = PREVIOUS LENGTH OF TABLE             CGTM      903
                     0400001061 +                 EQ     ATSX        RETURN                                      CGTM      904
                                                                                                                 CGTM      905
          1153  5130000763 +             ATS60    SA3    TO          PROCESS TABLE OVERFLOW                      CCGA011    92
                          63570                   SB5    X7                                                      CCGA011    93
                               74600              SX6    A0                                                      CGTM      907
          1154  63230                             SB2    X3                                                      CGTM      908
                     5160000761 +                 SA6    TN+4        (A0)                                        CGTM      909
          1155  0222000000                        JP     B2          (B5) = - WORDS NEEDED                       CGTM      910
                                                                                                                 CGTM      911
                                        *         RETURN FROM USER TABLE OVERFLOW PROCESSOR ( SUCCESS )          CGTM      912
                                                                                                                 CGTM      913
          1156  5110000760 +             ATS65    SA1    TN+3        X1                                          CCGA011    94
                          55411                   SA4    A1-B1       X5                                          CGTM      915
                               10544              BX5    X4                                                      CGTM      916
          1157  54311                             SA3    A1+B1       A0                                          CGTM      917
                     53030                        SA0    X3                                                      CGTM      918
                          55441                   SA4    A4-B1       X0                                          CGTM      919
                               10044              BX0    X4                                                      CGTM      920
          1160  55241                             SA2    A4-B1       TN                                          CGTM      921
                     63220                        SB2    X2          (B2) = TN                                   CGTM      922
                          67321                   SB3    B2-B1                                                   CGTM      923
          1161  0400001075 +                      EQ     ATS5                                                    CCGA011    95
                                                                                                                 CGTM      926
          1162  00000000000000000000     ATSA     CON    0           B4,B5, B7 SAVE IF A TABLE MOVE              CCG15     721
          1163                     1     ATSB     BSS    1                                                       CCGA011    96
          1164                     1     ATSC     BSS    1                                                       CCGA011    97
          1165                     1     ATSD     BSS    1                                                       CCGA011    98
          1166  00000000000000000002     ATSFAT   CON    2           FIRST ACTIVE TABLE                          CCGA011    99
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    46
        TABLE MANAGER SUBROUTINES                                     AFT 
  
                                        **        AFT - ACTIVATE FIRST TABLE                                     CGTM      929
                                                                                                                 CGTM      930
          1167                           AFT      ENTRY. **,#                                                    CGTM      931
          1170  5120001166 +                      SA2    ATSFAT                                                  CCGA011   100
                          7110000003              SX1    1&2                                                     CCGA011   101
          1171  13621                             BX6    X2-X1                                                   CCGA011   102
                     54620                        SA6    A2          TOGGLE ATSFAT                               CCGA011   103
                          5110001057 +            SA1    ATSNAT#                                                 CCGA011   104
          1172  5120001060 +                      SA2    ATSTOG#                                                 CCGA011   105
                          13621                   BX6    X2-X1                                                   CCGA011   106
                               54610              SA6    A1          TOGGLE ATSNAT                               CCGA011   107
          1173  5110000754 +                      SA1    LM                                                      CCGA011   108
                          10711                   BX7    X1                                                      CCGA011   109
          1174  5170000642 +                      SA7    FTAB                                                    CCGA011   110
                          0400001167 +            EQ     AFT                                                     CCGA011   111
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    47
        TABLE MANAGER SUBROUTINES                                     ADW 
  
                                        **        ADW$ - ADD A WORD TO THE END OF A MANAGED TABLE                CGTM      946
                                        *         ENTRY  (A0) = TABLE NUMBER.                                    CGTM      947
                                        *                (X1) = WORD.                                            CGTM      948
                                        *         EXIT   (X1) = WORD.                                            CGTM      949
                                        *                (X6) = WORD.                                            CGTM      950
                                        *                (A6) = ADDRESS OF WORD.                                 CGTM      951
                                        *                (X2) = FWA TABLE.                                       CGTM      952
                                        *                (X3) = LENGTH OF TABLE.                                 CGTM      953
                                        *                (B6) = L.TBL - 1                                        CGTM      954
                                        *                                                                        CGTM      955
                                        *         USES   X - 1, 6, 7.                                            CGTM      956
                                        *                B - NONE.                                               CGTM      957
                                        *                A - 1, 6.                                               CGTM      958
                                        *         CALLS  ATS.                                                    CGTM      959
                                                                                                                 CGTM      960
          1175  10733                    ADW1     BX7    X3                                                      CGTM      961
                     36423                        IX4    X2+X3                                                   CGTM      962
                          5073000000              SA7    A3+         UPDATE LENGTH                               CGTM      963
          1176  6263777776                        SB6    X3-1              (B6) = OLD LENGTH                     CGTM      964
                          5264777776              SA6    X4-1        STORE WORD                                  CGTM      965
          1177                           ADW      ENTRY. **,$                                                    CGTM      966
          1200  5020000642 +                      SA2    FTAB+A0     FWA                                         CGTM      967
                          5030000705 +            SA3    LTAB+A0                                                 CGTM      968
          1201  54421                             SA4    A2+B1       NEXT TABLE FWA                              CGTM      969
                     10611                        BX6    X1                                                      CGTM      970
                          37742                   IX7    X4-X2       ROOM BETWEEN TABLES                         CGTM      971
                               73331              SX3    X3+B1                                                   CGTM      972
          1202  37473                             IX4    X7-X3                                                   CGTM      973
                     0324001175 +                 PL     X4,ADW1     IF ROOM TO ADD A WORD                       CGTM      974
                               76110              SX1    B1                                                      CGTM      975
          1203  5160001206 +                      SA6    ADWA                                                    CGTM      976
                          0100001062 +            RJ     ATS         ALLOCATE SPACE                              CGTM      977
          1204  5110001206 +                      SA1    ADWA                                                    CGTM      978
                          36423                   IX4    X2+X3                                                   CGTM      979
                               10611              BX6    X1                                                      CGTM      980
          1205  5264777776                        SA6    X4-1                                                    CGTM      981
                          0400001177 +            EQ     ADW                                                     CGTM      982
                                                                                                                 CGTM      983
          1206                     1     ADWA     BSS    1                                                       CGTM      984
  
  
  
                                        **        MTU$ - MOVE TABLES UP                                          CGTM      986
                                        *         ENTRY  NONE.                                                   CGTM      987
                                        *         EXIT   NONE.                                                   CGTM      988
                                        *         USES   X - 0, 1, 2, 3, 7.                                      CGTM      989
                                        *                B - 3.                                                  CGTM      990
                                        *                A - 1, 2, 7.                                            CGTM      991
                                        *         CALLS  MVE.                                                    CGTM      992
                                                                                                                 CGTM      993
          1207  67331                    MTU1     SB3    B3-B1       DECREMENT TABLE COUNT                       CGTM      994
                     5123000642 +                 SA2    FTAB+B3                                                 CGTM      995
          1210  5113000705 +                      SA1    LTAB+B3                                                 CGTM      996
                          37701                   IX7    X0-X1       NEW FWA = L - LENGTH                        CGTM      997
                               22007              LX0    X7          L = NEW FWA                                 CGTM      998
          1211  54720                             SA7    A2                                                      CGTM      999
                     10300                        BX3    X0          MOVE TABLE                                  CGTM     1000
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    48
        TABLE MANAGER SUBROUTINES                                     MTU 
  
                          0301001214 +            ZR     X1,MTU2     IF LEN = 0                                  CGTM     1001
          1212  37423                             IX4    X2-X3                                                   CGTM     1002
                     0304001214 +                 ZR     X4,MTU2                                                 CGTM     1003
          1213  0100000000 X                      MOVE   X1,X2,X3                                                CGTM     1004
          1214  0530001207 +             MTU2     NZ     B3,MTU1                                                 CGTM     1005
                                                                                                                 CGTM     1006
          1215                           MTU      ENTRY. **,$                                                    CGTM     1007
          1216  6130000042                        SB3    NTAB-1      (B3) = NUMBER OF TABLES - 1                 CGTM     1008
                          5113000642 +            SA1    FTAB+B3     (X0) = LWA+1 OF ALL TABLES (L)              CGTM     1009
          1217  10011                             BX0    X1                                                      CGTM     1010
                     0400001207 +                 EQ     MTU1                                                    CGTM     1011
                                                                                                                 CGTM     1012
          1221                                    END                                                            CGTM     1013
  
                             57300B CM  STORAGE USED             7885 STATEMENTS     1227 SYMBOLS      000020 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            6.099 SECONDS        1191 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW          1177   PROGRAM*       47/21 L   47/37
        ADWA         1206   PROGRAM*       47/31 S   47/33     47/39 L
        ADW1         1175   PROGRAM*       47/16 L   47/29
        ADW$         1177   PROGRAM*        5/07      5/12      9/24     47/21 E   47/21 L
        AFT          1167   PROGRAM*       46/03 L   46/15
        AFT#         1167   PROGRAM*       46/03 E   46/03 L
        AST          1046   PROGRAM*       39/25     40/06 L   40/23
        AST1         1053   PROGRAM*       40/17 L   40/21
        ATS          1062   PROGRAM*       42/32 L   47/32
        ATSA         1162   PROGRAM*       43/11 S   45/13     45/49 L
        ATSB         1163   PROGRAM*       43/30 S   44/18     45/50 L
        ATSC         1164   PROGRAM*       44/15 S   45/01     45/51 L
        ATSD         1165   PROGRAM*       44/17 S   45/05     45/52 L
        ATSFAT       1166   PROGRAM*       44/53     45/53 L   46/04
        ATSNAT#      1057   PROGRAM*       42/25 E   42/26 L   43/16     44/11     44/55     46/08
        ATSTOG#      1060   PROGRAM*       42/25 E   42/27 L   46/09
        ATSX         1061   PROGRAM*       42/29 L   42/41     45/26
        ATS1         1063   PROGRAM*       42/33 L
        ATS10        1077   PROGRAM*       43/19 L   43/24
        ATS15        1101   PROGRAM*       43/21     43/23 L
        ATS20        1103   PROGRAM*       43/27     43/29 L
        ATS25        1111   PROGRAM*       43/46 L   43/56
        ATS30        1115   PROGRAM*       43/54     43/56 L
        ATS35        1124   PROGRAM*       44/25 L   44/47     45/09
        ATS40        1134   PROGRAM*       44/32     44/39 L
        ATS45        1137   PROGRAM*       44/45     44/47 L
        ATS5         1075   PROGRAM*       43/16 L   45/47
        ATS55        1146   PROGRAM*       44/52     45/13 L
        ATS60        1153   PROGRAM*       43/39     45/28 L
        ATS65        1156   PROGRAM*       37/16     38/08     38/35     45/37 L
        ATS$         1062   PROGRAM*        5/41      6/14     42/32 E   42/32 L
        AVO1          433   PROGRAM*       20/08 L   20/15
        BI.OLNL        17   GTX            19/13
        BI.OLNP        46   GTX            19/19
        BN#             0   EXTERNAL*      19/12
        B1=1            0 
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        B=MIO           0   EXTERNAL*       4/27
        CC$BLEN       105   PROGRAM*        7/11 E    7/20      8/38     10/30     12/12 S
                                            7/11 L    8/14      9/52     11/26
        CC$LBO        103   PROGRAM*        7/09 E    7/09 L    7/22      8/07     10/38     17/38
        CC$PC         104   PROGRAM*        7/10 E    7/10 L    7/19      8/13      8/34     10/28     11/25     12/10 S
        CC$SUB          0   EXTERNAL*      17/19 S
        CC$SUB0         0   EXTERNAL*      12/40 S
        CGB#            0   EXTERNAL*      38/34
        CG$AVO        434   PROGRAM*       15/11     20/10 E   20/10 L   20/28
        CG$CUB        121   PROGRAM*       19/54 D   19/54 E
        CG$DSA        166   PROGRAM*       19/54 D   19/54 E
        CG$ENC         51   PROGRAM*        5/39 E    5/39 L    6/17
        CG$EP         141   PROGRAM*       19/54 D   19/54 E
        CG$FCU         70   PROGRAM*        6/25 E    6/25 L    6/30
        CG$IEP         10   PROGRAM*        4/04 E    4/04 L    4/31
        CG$RBT        106   PROGRAM*       19/54 D   19/54 E
        CG$SCT         41   PROGRAM*        5/10 E    5/10 L    5/25
        CG.MOX         35   PROGRAM*        4/09 S    4/50      4/54 L
        CG.MOX#        35   PROGRAM*        4/54 E    4/54 L
        CIO=            0   EXTERNAL*       4/22
        CP.AFLS         0   EXTERNAL*      38/52     39/16     39/50
        CP.NFLS         0   EXTERNAL*      40/11
        CP#RM           0   GTX             2/54 F    4/15 F
        CSN           445   PROGRAM*       21/53 L   22/29
        CSNA          460   PROGRAM*       22/06     22/31 L
        CSN0          442   PROGRAM*       21/42 L   21/57
        CSN1          454   PROGRAM*       22/17 L   22/23
        CSN#          445   PROGRAM*       21/53 E   21/53 L
        CWS          1041   PROGRAM*       39/47 L   39/56
        CWS#         1041   PROGRAM*       39/47 E   39/47 L
        DMB#            0   EXTERNAL*      38/21
        ENC0           50   PROGRAM*        5/36 L    6/07
        ENC1           57   PROGRAM*        5/48 L    5/57      6/01
        ENC2           60   PROGRAM*        5/53 L    6/02
        FP.LENP        44   GTX            17/16
        FP.SUB0P       22   GTX            12/38
        FSU#          133   PROGRAM*       19/54 D   19/54 E
        FTAB          642   PROGRAM*       33/29 L   34/37     35/01     35/39     36/01     36/10     43/46
                                           34/18     34/42     35/08     35/40     36/02     39/49     44/08
                                           34/20     34/46     35/14     35/41     36/03     40/09     44/26
                                           34/23     34/49     35/35     35/42     36/04     40/17     46/14 S
                                           34/27     34/51     35/36     35/43     36/05     42/29     47/22
                                           34/30     34/53     35/37     35/44     36/06     42/33     47/52
                                           34/33     34/55     35/38     35/56     36/09     43/32     48/09
        F$FRT         750   PROGRAM*       17/52     36/24 E   36/25 L
        F$LBT           0   EXTERNAL*       7/21      8/17
        F$RDT         464   PROGRAM*
        F.MEM           0   EXTERNAL*      36/17 X   36/31
        F.OPT           0   PROGRAM*        2/51 E    2/52 L    4/17 S    4/22
        F.SLST          0   EXTERNAL*       6/40     10/02     11/15     12/17
        HC.FPAS         1   GTX            12/21 F   14/40 F   16/24 F   17/01 F
        HC.IA           0   GTX            36/28 F   37/03 F
        HC.ID           2   GTX            10/08 F   28/01 F
        HC.RJXJ         0   GTX            16/01 F
        HC.RJ6          1   GTX            16/16 F
        HC.2OC          0   GTX            33/28 F   36/14 F
        HE$CTX          0   EXTERNAL*       4/54
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        HE$EPX          0   EXTERNAL*       4/08
        HO$MFLS         0   EXTERNAL*      38/51     39/51
        HO$OPT          0   EXTERNAL*       4/10
        HO$PMLS         0   EXTERNAL*      39/21
        IEP1           20   PROGRAM*        4/11      4/27 L
        IH.HL          17   GTX            17/54     21/54     22/05     22/07
        IH.IL           3   GTX            14/22     17/47     18/48
        IH.IP          17   GTX            14/23     17/46     18/50
        IH.LCM      40000   GTX            12/27
        ISC=          575   PROGRAM*        6/15     29/53 D   29/56 E
        I.GL       100000   GTX            19/29
        LC.GLNP        22   GTX            19/28
        LC.NEXTP       44   GTX            19/23
        LM            754   PROGRAM*        4/28 S   36/31 L   39/48     43/31     43/43     46/12
        LM#           754   PROGRAM*       36/31 E   36/31 L
        LTAB          705   PROGRAM*       36/15 L   36/16     36/16     36/16     36/16     36/16     42/30     47/23
                                           36/16     36/16     36/16     36/16     36/16     36/16     42/34     47/53
                                           36/16     36/16     36/16     36/16     36/16     36/16     43/20
                                           36/16     36/16     36/16     36/16     36/16     36/16     43/47
                                           36/16     36/16     36/16     36/16     36/16     36/16     44/01
                                           36/16     36/16     36/16     36/16     36/16     36/16     44/28
        L$APL         727   PROGRAM*       35/37 E   36/16 L
        L$APT         731   PROGRAM*       35/39 E   36/16 L
        L$ASG         734   PROGRAM*       35/42 E   36/16 L
        L$AUD         720   PROGRAM*       35/13 E   36/16 D
        L$BCT         713   PROGRAM*       34/38 E   36/16 D
        L$BLK         705   PROGRAM*       34/18 E   36/16 L   37/53     38/30
        L$BST         715   PROGRAM*       34/46 E   36/16 L
        L$CAC         726   PROGRAM*       35/36 E   36/16 L
        L$CBT         740   PROGRAM*       36/01 E   36/16 L
        L$CFT         714   PROGRAM*       34/42 E   36/16 L
        L$CLW         725   PROGRAM*       35/35 E   36/16 L
        L$CUT         736   PROGRAM*       35/44 E   36/16 L
        L$CVT         735   PROGRAM*        5/38 S    6/12 S   10/07 S   35/43 E   36/16 L
        L$DIM         742   PROGRAM*       36/03 E   36/16 L
        L$DTT         711   PROGRAM*       35/09 E   36/16 D
        L$DUT         707   PROGRAM*       34/24 E   36/16 D
        L$ENTP        743   PROGRAM*       36/04 E   36/16 L
        L$FE          747   PROGRAM*       36/10 E   36/16 L
        L$FPI         744   PROGRAM*       36/05 E   36/16 L
        L$FUN         707   PROGRAM*       35/07 E   36/16 D
        L$GLT         733   PROGRAM*       35/41 E   36/16 L
        L$GST         706   PROGRAM*       34/21 E   36/16 D
        L$IIT         721   PROGRAM*       34/55 E   36/16 L   36/16
        L$IOA         730   PROGRAM*       35/38 E   36/16 L
        L$IOL         721   PROGRAM*       34/56 E   36/16 D
        L$IOT         732   PROGRAM*       35/40 E   36/16 L
        L$LPT         746   PROGRAM*       36/09 E   36/16 L
        L$MLT         711   PROGRAM*       34/31 E   36/16 D
        L$MOD         712   PROGRAM*       34/33 E   36/16 L
        L$NLST        741   PROGRAM*       36/02 E   36/16 L
        L$OTI         711   PROGRAM*       34/30 E   36/16 L   36/16     36/16
        L$PAP         716   PROGRAM*       35/10 E   36/16 D
        L$PBT         710   PROGRAM*       34/28 E   36/16 D
        L$PFP         717   PROGRAM*       35/11 E   36/16 D
        L$PIT         710   PROGRAM*       12/14     34/27 E   36/16 L   36/16
        L$PSI         716   PROGRAM*       34/49 E   36/16 L   36/16
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        L$RCT         713   PROGRAM*       34/37 E   36/16 L   36/16     36/16
        L$RND         707   PROGRAM*       34/23 E   36/16 L   36/16     36/16
        L$RXI         717   PROGRAM*       34/51 E   36/16 L   36/16
        L$SAP         724   PROGRAM*       35/14 E   36/16 L
        L$SYM         737   PROGRAM*       35/56 E   36/16 L
        L$TET         720   PROGRAM*       34/53 E   36/16 L   36/16
        L$TREE        707   PROGRAM*       34/25 E   36/16 D
        L$TST         713   PROGRAM*       35/12 E   36/16 D
        L$TXT         706   PROGRAM*       34/20 E   36/16 L   36/16
        L$UDI         722   PROGRAM*       35/01 E   36/16 L
        L$VDI         745   PROGRAM*       36/06 E   36/16 L
        L$VDT         723   PROGRAM*       35/08 E   36/16 L
        L.ELT#          0   EXTERNAL*      18/06
        MC             23 
        MFLA         1037   PROGRAM*       39/10 S   39/14     39/15     39/37 L
        MFLB         1040   PROGRAM*       39/26     39/38 L
        MFL1         1022   PROGRAM*       39/05     39/08 L
        MOREFL       1014   PROGRAM*       37/15     38/07     38/49 L   38/56     39/30     39/35
        MOREFL#      1014   PROGRAM*       38/49 E   38/49 L
        MTU          1215   PROGRAM*       48/07 L
        MTU1         1207   PROGRAM*       47/51 L   48/05     48/11
        MTU2         1214   PROGRAM*       48/01     48/03     48/05 L
        MTU$         1215   PROGRAM*       48/07 E   48/07 L
        MVE=            0   EXTERNAL*       5/45     40/22     43/55     44/46     48/04
        MX.AVS#         0   EXTERNAL*      38/15
        MX.BLN        764   PROGRAM*       36/36 L   37/38
        MX.BLN#       764   PROGRAM*       36/36 E   36/36 L
        M.BBL#          0   EXTERNAL*      37/40
        NTAB           43                  36/12 D   40/16     48/08
        N$FERR          0   EXTERNAL*       4/47
        N$IT          101   PROGRAM*        7/06 E    7/06 L   10/13     13/32
        N$LBT           0   EXTERNAL*       7/28
        N$OT          102   PROGRAM*        7/07 E    7/07 L   10/13
        N$SLBT        100   PROGRAM*        7/05 E    7/05 L    7/42 S
        N$VD            0   EXTERNAL*      20/19
        N.DT           32                  35/49 D   36/32     39/49
        N.GT#           0   EXTERNAL*      13/27
        OC.DATA   7777763   GTX             9/57
        OC.LAB          6   GTX            10/52     11/20
        OC.LD          50   GTX            15/14
        OC.USE    7777770   GTX             8/26
        O$APL         664   PROGRAM*       35/37 E   35/37 L
        O$APT         666   PROGRAM*       35/39 E   35/39 L   36/27
        O$ASG         671   PROGRAM*       35/42 E   35/42 L
        O$AUD         655   PROGRAM*       35/13 E   35/13 D
        O$BCT         650   PROGRAM*       34/38 E   34/38 D
        O$BIT           0   EXTERNAL*      19/07
        O$BLK         642   PROGRAM*        4/29 S   34/18 E   34/18 L
        O$BST         652   PROGRAM*       34/46 E   34/46 L
        O$CAC         663   PROGRAM*       35/36 E   35/36 L
        O$CBT         675   PROGRAM*       36/01 E   36/01 L
        O$CFT         651   PROGRAM*       34/42 E   34/42 L
        O$CLW         662   PROGRAM*       35/35 E   35/35 L
        O$CUT         673   PROGRAM*        6/26     11/30     35/44 E   35/44 L
        O$CVT         672   PROGRAM*        9/25     10/01     35/43 E   35/43 L
        O$DIM         677   PROGRAM*       36/03 E   36/03 L
        O$DTT         646   PROGRAM*       35/09 E   35/09 D
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        O$DUT         644   PROGRAM*       34/24 E   34/24 D
        O$ENTP        700   PROGRAM*       36/04 E   36/04 L
        O$FE          704   PROGRAM*       36/10 E   36/10 L
        O$FPI         701   PROGRAM*       12/33     17/09     36/05 E   36/05 L
        O$FUN         644   PROGRAM*       35/07 E   35/07 D
        O$GLT         670   PROGRAM*       35/41 E   35/41 L   36/27
        O$GST         643   PROGRAM*       34/21 E   34/21 D
        O$IIT         656   PROGRAM*       34/55 E   34/55 L   34/56
        O$IOA         665   PROGRAM*       35/38 E   35/38 L
        O$IOL         656   PROGRAM*       34/56 E   34/56 D
        O$IOT         667   PROGRAM*       35/40 E   35/40 L   36/27
        O$LPT         703   PROGRAM*       36/09 E   36/09 L   36/27
        O$MLT         646   PROGRAM*       34/31 E   34/31 D
        O$MOD         647   PROGRAM*       34/33 E   34/33 L
        O$NLST        676   PROGRAM*       36/02 E   36/02 L
        O$OTI         646   PROGRAM*       34/30 E   34/30 L   34/31     35/09
        O$PAP         653   PROGRAM*       35/10 E   35/10 D
        O$PBT         645   PROGRAM*       34/28 E   34/28 D
        O$PFP         654   PROGRAM*       35/11 E   35/11 D
        O$PIT         645   PROGRAM*       11/14     12/13     34/27 E   34/27 L   34/28
        O$PSI         653   PROGRAM*       34/49 E   34/49 L   35/10
        O$RCT         650   PROGRAM*       34/37 E   34/37 L   34/38     35/12
        O$RND         644   PROGRAM*       34/23 E   34/23 L   34/24     34/25     35/07
        O$RXI         654   PROGRAM*       34/51 E   34/51 L   35/11
        O$SAP         661   PROGRAM*       35/14 E   35/14 L
        O$SYM         674   PROGRAM*       10/44     11/23     21/56     35/56 E   35/56 L
        O$TET         655   PROGRAM*       13/11     34/53 E   34/53 L   35/13
        O$TREE        644   PROGRAM*       34/25 E   34/25 D
        O$TST         650   PROGRAM*       35/12 E   35/12 D
        O$TXT         643   PROGRAM*        4/30 S   34/20 E   34/20 L   34/21
        O$UDI         657   PROGRAM*       35/01 E   35/01 L
        O$VDI         702   PROGRAM*       20/11     36/06 E   36/06 L
        O$VDT         660   PROGRAM*       35/08 E   35/08 L
        O.ELT#          0   EXTERNAL*      18/12
        O.LCT#          0   EXTERNAL*      19/06
        PL            762   PROGRAM*       36/34 L   42/50 S   45/22
        PUNT           30   PROGRAM*        4/42 L   37/24
        PUNTA          23   PROGRAM*        4/40 L    4/44 S
        PUNT#          30   PROGRAM*        4/42 E    4/42 L
  U     QUAL$                              29/03 F   29/51 F
        R1.CAP         36   GTX            10/50
        SCT0           36   PROGRAM*        5/07 L    5/22
        SCT1           44   PROGRAM*        5/15 L    5/17      5/18
        SHL           637   PROGRAM*       32/41 L
        SHL1          630   PROGRAM*       32/16 L   32/27     32/33
        SHL2          631   PROGRAM*       32/20 L   32/39
        SHL3          632   PROGRAM*       32/25 L   32/32
        SHL4          635   PROGRAM*       32/18     32/35 L   32/47
        SHL#          637   PROGRAM*       32/41 E   32/41 L
        SI.CAIHP       14   GTX            14/18
        SI.CAL         22   GTX            13/45     15/13
        SI.CAP         36   GTX             9/56     13/44     14/02     15/09     15/17     17/29
                                           13/14     13/48     14/53     15/12     16/33     18/33
        SI.IHP         14   GTX            12/24     14/11     14/14     15/29     15/35
        SI.RJP          6   GTX            13/04     13/14
        SST           613   PROGRAM*       30/50 L   31/08
        SST0          602   PROGRAM*       30/19 L   30/35
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        SST1          603   PROGRAM*       30/23 L   30/43     30/49
        SST2          605   PROGRAM*       30/31 L   30/40
        SST4          611   PROGRAM*       30/21     30/45 L   30/56
        SST#          613   PROGRAM*       30/50 E   30/50 L
        SYS=            0   EXTERNAL*      39/14
        S$CON           0   EXTERNAL*       9/49
        S$IT            0   EXTERNAL*      10/13     14/10
        S$OT            0   EXTERNAL*      10/13
        TEST            0   GTX             3/16 F    4/45 F   21/01 F   29/35 F   37/17 F   41/01 F
        THRESH        765   PROGRAM*       36/37 L   39/29     43/37
        THRESH#       765   PROGRAM*       36/37 E   36/37 L
        TN            755   PROGRAM*       36/32 L   40/08     42/47     43/57     45/19     45/32 S   45/37
        TO            763   PROGRAM*        4/07 S   36/35 L   45/28
        TOBA         1013   PROGRAM*       38/19 S   38/24     38/37 L
        TOB1          775   PROGRAM*       37/46     37/51 L
        TOB1A        1001   PROGRAM*       38/03     38/06 L
        TOB2         1003   PROGRAM*       38/04     38/15 L
        TOB3         1010   PROGRAM*       38/18     38/30 L
        TOB4         1011   PROGRAM*       38/26     38/34 L
        TOB#          772   PROGRAM*       37/37 E   37/38 L
        TOV1          771   PROGRAM*       37/23 L   38/23
        TOV#          766   PROGRAM*        4/06     36/35     37/11 E   37/12 L
        TO#           763   PROGRAM*       36/35 E   36/35 L
        T.CAL          22   GTX            13/29
        T.EQVP         72   GTX            13/15
        T.FAP          71   GTX            13/12     13/36
        VD.CAL         22   GTX            20/21
        VD.CAP         44   GTX            20/08     20/20     20/24
        VD.MATP        73   GTX            15/04 F   20/01 F   20/08     20/20
        WA.LCOL        14   GTX            19/03
        WB.FPOL        11   GTX            12/31     17/11
        WB.FPOP        41   GTX            12/32     17/10
        WB.FPP         20   GTX            14/41     16/28     17/10
        WB.LCP         30   GTX            18/56
        WB.MATP        36   GTX            14/26 F   14/33 F   14/35
        WC.RAL         30   GTX            18/38
        WC.RAP          0   GTX            18/38
        WC.RBL         12   GTX            18/38
        WC.RBP         60   GTX            10/41     17/43     18/38
        WC.RLL          2   GTX            18/38
        WC.RLP         72   GTX            10/32     17/40     18/38
        WII#          202   PROGRAM*       19/54 D   19/54 E
        WPW            74   PROGRAM*        6/42 L
        WPWA           77   PROGRAM*        6/44 S    6/49 L
        WPW1           73   PROGRAM*        6/40 L    6/47
        WPW#           74   PROGRAM*        6/42 E    6/42 L    8/26      9/57     10/52     11/20
        WTW=            0   EXTERNAL*       6/40     10/02     11/15     12/17
        Z$APL          22                  35/37 E   35/37 D   35/37     36/16
        Z$APT          24                  35/39 E   35/39 D   35/39     36/16
        Z$ASG          27                  35/42 E   35/42 D   35/42     36/16
        Z$AUD          13                  35/13 E   35/13 D   35/13
        Z$BCT           6                  34/38 E   34/38 D   34/38
        Z$BLK           0                  34/18 E   34/18 D   34/18     36/16
        Z$BST          10                  34/46 E   34/46 D   34/46     36/16
        Z$CAC          21                  35/36 E   35/36 D   35/36     36/16
        Z$CBT          33                  36/01 E   36/01 D   36/01     36/16
        Z$CFT           7                  34/42 E   34/42 D   34/42     36/16
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        Z$CLW          20                  35/35 E   35/35 D   35/35     36/16
        Z$CUT          31                   5/07      6/14      9/24     35/44 E   35/44 D   35/44     36/16
        Z$CVT          30                   5/12      5/41     35/43 E   35/43 D   35/43     36/16
        Z$DIM          35                  36/03 E   36/03 D   36/03     36/16
        Z$DTT           4                  35/09 E   35/09 D   35/09
        Z$DUT           2                  34/24 E   34/24 D   34/24
        Z$ENTP         36                  36/04 E   36/04 D   36/04     36/16
        Z$FE           42                  36/10 E   36/10 D   36/10     36/16
        Z$FPI          37                  36/05 E   36/05 D   36/05     36/16
        Z$FUN           2                  35/07 E   35/07 D   35/07
        Z$GLT          26                  35/41 E   35/41 D   35/41     36/16
        Z$GST           1                  34/21 E   34/21 D   34/21
        Z$IIT          14                  34/55 E   34/55 D   34/55     34/56     36/16
        Z$IOA          23                  35/38 E   35/38 D   35/38     36/16
        Z$IOL          14                  34/56 E   34/56 D   34/56
        Z$IOT          25                  35/40 E   35/40 D   35/40     36/16
        Z$LPT          41                  36/09 E   36/09 D   36/09     36/16
        Z$MLT           4                  34/31 E   34/31 D   34/31
        Z$MOD           5                  34/33 E   34/33 D   34/33     36/16
        Z$NLST         34                  36/02 E   36/02 D   36/02     36/16
        Z$OTI           4                  34/30 E   34/30 D   34/30     34/31     35/09     36/16
        Z$PAP          11                  35/10 E   35/10 D   35/10
        Z$PBT           3                  34/28 E   34/28 D   34/28
        Z$PFP          12                  35/11 E   35/11 D   35/11
        Z$PIT           3                  34/27 E   34/27 D   34/27     34/28     36/16
        Z$PSI          11                  34/49 E   34/49 D   34/49     35/10     36/16
        Z$RCT           6                  34/37 E   34/37 D   34/37     34/38     35/12     36/16
        Z$RND           2                  34/23 E   34/23 D   34/23     34/24     34/25     35/07     36/16
        Z$RXI          12                  34/51 E   34/51 D   34/51     35/11     36/16
        Z$SAP          17                  35/14 E   35/14 D   35/14     36/16
        Z$SYM          32                  35/56 E   35/56 D   35/56     36/16
        Z$TET          13                  34/53 E   34/53 D   34/53     35/13     36/16
        Z$TREE          2                  34/25 E   34/25 D   34/25
        Z$TST           6                  35/12 E   35/12 D   35/12
        Z$TXT           1                  34/20 E   34/20 D   34/20     34/21     36/16
        Z$UDI          15                  35/01 E   35/01 D   35/01     36/16
        Z$VDI          40                  36/06 E   36/06 D   36/06     36/16
        Z$VDT          16                  35/08 E   35/08 D   35/08     36/16
        .DAL            1   GTX            12/21 F
        .T             43                  33/26 D   34/27 D   34/42 D   35/01 D   35/13 D   35/40 D   35/56 D   36/09 D
                                           34/18 D   34/28 D   34/46 D   35/07 D   35/14 D   35/41 D   36/01 D   36/10 D
                                           34/20 D   34/30 D   34/49 D   35/08 D   35/35 D   35/42 D   36/02 D   36/12
                                           34/21 D   34/31 D   34/51 D   35/09 D   35/36 D   35/43 D   36/03 D
                                           34/23 D   34/33 D   34/53 D   35/10 D   35/37 D   35/44 D   36/04 D
                                           34/24 D   34/37 D   34/55 D   35/11 D   35/38 D   35/48 F   36/05 D
                                           34/25 D   34/38 D   34/56 D   35/12 D   35/39 D   35/49     36/06 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  WII 
  
  
        CG$CUB        121   PROGRAM*        8/05 L    8/10      8/27     19/54
        CG$DSA        166   PROGRAM*        9/51     10/13     10/13     10/27 L   10/53     19/54
        CG$EP         141   PROGRAM*        9/18 L   10/16     19/54
        CG$RBT        106   PROGRAM*        7/18 L    7/43     19/54
1       CGTM - CODE GENERATOR TABLE MANAGER                           COMPASS 3.7-871.     24/05/02. 13.12.19.      PAGE    55
        SYMBOLIC REFERENCE TABLE.                                     WII 
  
        CSR           317   PROGRAM*       14/43     16/30     17/08 L   17/20
        DSA1          172   PROGRAM*       10/33     10/37 L
        DSA2          177   PROGRAM*       10/40     10/50 L
        EP1           146   PROGRAM*        9/32 L    9/42
        EP2           150   PROGRAM*        9/33      9/41 L
        EP3           160   PROGRAM*        9/45     10/06 L
        FSU#          133   PROGRAM*        8/33 L    8/35      8/42     19/54
        FU            140   PROGRAM*        8/41 S    8/44 L   11/16
        LABA          350   PROGRAM*       17/49     18/38 L
        LAB1          327   PROGRAM*       17/34     17/38 L
        LAB2          344   PROGRAM*       17/50     18/25 L
        LAB3          346   PROGRAM*       18/05     18/07     18/21     18/33 L
        LD1           270   PROGRAM*       14/25     14/46 L
        RBT1          114   PROGRAM*        7/33 L    7/40
        RBT2          116   PROGRAM*        7/35      7/37 L
        RJ61          312   PROGRAM*       16/20     16/23 L
        RJ62          316   PROGRAM*       16/35     16/37 L
        RLV           351   PROGRAM*       15/30     15/36     15/41     18/46 L   18/52     18/57     19/26     19/36
        RLV1          360   PROGRAM*       19/11 L   19/25
        RLV2          361   PROGRAM*       19/15 L   19/21
        RLV3          365   PROGRAM*       19/17     19/28 L
        TLD           241   PROGRAM*       13/03 L   14/15
        TLD1          244   PROGRAM*       13/17 L   13/22
        TLD3          253   PROGRAM*       13/21     13/41     13/44 L
        UJP1          305   PROGRAM*       15/37     15/46 L
        WIIA          370   PROGRAM*       11/53     19/46 L
        WII0          210   PROGRAM*       11/17     11/22 L
        WII1          214   PROGRAM*       11/36 L   12/26     13/06     14/03     14/19     14/49     15/21
                                           12/03     12/42     13/51     14/05     14/47     15/01     15/32
        WII2          217   PROGRAM*       11/38     11/43     11/49 L   15/50     15/52     16/39     18/36
        WII#          202   PROGRAM*       11/12 L   12/18     19/54
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCISC 
  
  
        ISC=          575   PROGRAM*       29/33 L   29/49     29/53
        SETC2         573   PROGRAM*       29/28 L   29/31     29/48
  
  
  
  
                                                  SYMBOL QUALIFIER =  SHFTC=0 
  
  
        SST0          616   PROGRAM*       31/03 L   31/12     31/34
        SST1          620   PROGRAM*       31/10 L   31/24
        SST2          621   PROGRAM*       31/07     31/14 L   31/33
        SST3          623   PROGRAM*       31/22 L   31/30
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1137              IDENT  MIO
                       1137                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1132 
                                        LITERALS* LOCAL        1132         5 
  
  
                                        ENTRY POINTS. 
  
                                        B=MIO            0+           IMPD#           41+           SMB#           254+ 
                                        MAX.LCM          1+           WFB#            70+           GMB#           310+ 
                                        MX.AVS#         10+           WMB#           105+           DMB#           355+ 
                                        IMPA#           15+           RTB#           142+           CGB#           574+ 
                                        IMPB#           23+           RBS#           172+           SBD#          1055+ 
                                        IMPC#           33+           RNB#           223+           GBD#          1075+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BIT     L$BST     F$RDT     BSI#      HE$ABT    F.OPT     HO$OBL
                                        L$BIT     O$SEQ     S$IT      TO#       B=FBV     HO$OPT    HO$OBO
                                        O$BLK     L$SEQ     O$SYM     TOB#      SYS=      MVE=      HO$OFLL 
                                        L$BLK     O$TXT     PUNT#     CP.AFLL   RDW=      ATS$
                                        O$BST     L$TXT     MOREFL#   F.MEM     CIO=      Z$BLK 
  
  
  
  
                                                  IDENT  MIO                                                     MIO         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=MIO    RPVDEF                                                         MIO         5
                                                                                                                 MIO         9
                                        **        MIO - MASS STORAGE I/O ROUTINES                                MIO        10
                                        *                                                                        MIO        11
                                        *         THIS SET OF SUBROUTINES HANDLES DYNAMIC STORAGE ALLOCATION     MIO        12
                                        *         FOR EXTENDED BASIC BLOCKS DURING OPT=2 PROCESSING.  BLOCKS     MIO        13
                                        *         ARE PAGED FROM LCM/ECS OR DISK INTO AN SCM TABLE *BLK* AS THEY MIO        14
                                        *         ARE REQUESTED.  THE RANDOM INDEX WORDS IN *BIT* AND THE BLOCK  MIO        15
                                        *         ADDRESS WORDS IN *BST* ARE UPDATED FOR EACH BLOCK THAT IS      MIO        16
                                        *         MOVED.  THEY CONTAIN CURRENT POSITIONAL INFORMATION INCLUDING  MIO        17
                                        *         THE SCM FWA, DISK ADDRESS, LCM/ECS ADDRESS, LENGTH, AND STATUS MIO        18
                                        *         BITS FOR EACH BLOCK.                                           MIO        19
                                        *         SPACE IN *BLK* AND LCM/ECS IS ALLOCATED USING KNUTHS BOUNDARY  MIO        20
                                        *         TAG METHOD.  IT REQUIRES HEADER AND TRAILER WORDS FOR EVERY    MIO        21
                                        *         BLOCK.  THE LINKED LIST OF AVAILABLE SPACE IS KEPT IN THE      MIO        22
                                        *         BLOCK TRAILER WORDS.  THE ADVANTAGE OF THIS TECHNIQUE IS THAT  MIO        23
                                        *         ESSENTIALLY A FIXED AMOUNT OF TIME IS REQUIRED TO FREE AN AREA MIO        24
                                        *         AND COLLAPSE IT WITH ANY ADJACENT FREE AREA, WHILE OTHER       MIO        25
                                        *         METHODS WOULD REQUIRE A LIST SEARCH.  IT ALSO SIMPLIFIES       MIO        26
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     2
  
  
                                        *         GARBAGE COLLECTION PROCEDURES.  THE METHOD  IS DESCRIBED BY    MIO        27
                                        *         GRIES IN "COMPILER CONSTRUCTION FOR DIGITAL COMPUTERS",        MIO        28
                                        *         SECTION 8.10.                                                  MIO        29
                                                  IF     -DEF,.MI,1                                              F1037CC     5
                                         .MI      EQU    0                                                       F1037CC     6
                                                                                                                 F1037CC     7
                                         #MD      IFGE   CT.CPU,76                                               F1037CC     8
                                         #MD      IFNE   .MI,1                                                   F1037CC     9
                                                                                                                 F1037CC    10
                                         RXX,Q    OPDEF  I,J,Q                                                   F1037CC    11
                                                  RX.I   X.J                                                     F1037CC    12
                                                  ENDM                                                           F1037CC    13
                                                                                                                 F1037CC    14
                                         WXX,Q    OPDEF  I,J,Q                                                   F1037CC    15
                                                  WX.I   X.J                                                     F1037CC    16
                                                  ENDM                                                           F1037CC    17
                                                                                                                 F1037CC    18
                                         BLK.SIZ  EQU    1777B                                                   F1037CC    19
                                         #MD      ELSE                                                           F1037CC    20
                                         RXX,Q    OPDEF  I,J,Q                                                   F1037CC    21
                                                  R=     A0,Q                                                    F1037CC    22
                                                  R=     X0,X_J                                                  F1037CC    23
                                                  RL     B1                                                      F1037CC    24
                                                  SA.I   A0                                                      F1037CC    25
                                         R        ERRPL  I-6         OPERAND NOT IN LD REG                       F1037CC    26
                                                  ENDM                                                           F1037CC    27
                                                                                                                 F1037CC    28
                                         WXX,Q    OPDEF  I,J,Q                                                   F1037CC    29
                                                  R=     A0,Q                                                    F1037CC    30
                                                  R=     X0,X_J                                                  F1037CC    31
                                                  SA.I   A0                                                      F1037CC    32
                                                  WL     B1                                                      F1037CC    33
                                         R        ERRMI  I-6         OPERAND NOT IN ST REG                       F1037CC    34
                                                  ENDM                                                           F1037CC    35
                                                                                                                 F1037CC    36
                                 377     BLK.SIZ  EQU    377B                                                    F1037CC    37
                                         #MD      ENDIF                                                          F1037CC    38
                                                                                                                 F7540FT    39
                                         #MD      IF     -MIC,HF.E                                               F2950CC     5
                                                                                                                 F7540FT    41
                                                  PURGDEF RLB                                                    F7540FT    42
                                                  PURGDEF WLB                                                    F7540FT    43
                                         RLB      OPDEF  I                                                       F7540FT    44
                                        +         RL     B.I+0                                                   F7540FT    45
                                        -         EQ     ERRECSR                                                 F7540FT    46
                                                  ENDM                                                           F7540FT    47
                                                                                                                 F7540FT    48
                                         WLB      OPDEF  I                                                       F7540FT    49
                                        +         WL     B.I+0                                                   F7540FT    50
                                        -         EQ     ERRECSW                                                 F7540FT    51
                                                  ENDM                                                           F7540FT    52
                                                                                                                 F7540FT    53
                                         RE       OPSYN  ERR                                                     F7540FT    54
                                         WE       OPSYN  ERR                                                     F7540FT    55
                                                                                                                 F7540FT    56
                                         #MD      ELSE                                                           F1037CC    39
                                                  ERRNZ  .MI         SHOULD BE 7600 ONLY (NOT .MI)               F1037CC    40
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     3
  
  
                                                                                                                 F1037CC    41
                                         #MD      ENDIF                                                          F7540FT    57
                                                                                                                 MIO        62
                                                  TABLES (BIT,BLK,BST,SEQ,TXT)                                   CCGNC     481
                                                  EXT#   (PUNT,MOREFL,BSI,TO,TOB)                                CCGNC     482
                                                  EXT    CP.AFLL                                                 CCGNC     483
                                   0 X   LCM.FL   EQU    CP.AFLL                                                 CCGNC     484
                                                                                                                 MIO        66
                                                  EXT    F.MEM                                                   CCG18      81
                                 100 X   FWAB     EQU    F.MEM+100B                                              CCG18      82
  
  
  
  
             0                     1     O.LCM    BSS    1           NEXT AVAIL LCM ADDRESS                      CCG7       80
                                                                                                                 MIO        76
                                        *         LOCAL VARIABLES                                                MIO        77
                                                                                                                 MIO        78
                                                  ENTRY MAX.LCM                                                  CCGA012     5
             1  00000000000000200000     MAX.LCM  DATA   200000B     MAX LCM COMPILER USES                       MIO        79
             2  00000000000000000001     O.DISK   DATA   1           NEXT AVAILABLE RA ON DISK                   MIO        80
             3                     1     ADT      BSSZ   1           ADDRESS TYPE, 0=DISK, 1=LCM                 MIO        81
             4                     1     O.RRB    BSSZ   1           FWA OF RANDOM READ BUFFER ( RRB )           MIO        82
             5  00000000000000000100 X   O.RWB    VFD    42/,18/FWAB FWA OF RANDOM WRITE BUFFER                  MIO        83
             6                     1     RLEN     BSSZ   1           LENGTH OF CURRENT RECORD IN WRITE BUFFER    MIO        84
             7                     1     N.RRB    BSSZ   1           RA OF RECORD IN RRB                         MIO        85
            10                           MX.AVS   ENTRY. 0,#         MAXIMUM AVAILABLE SPACE IN *BLK*            CCGNC     485
            11                     1     MX.AVL   BSSZ   1           MAXIMUM AVAILABLE SPACE IN LCM              MIO        87
            12                     1     LAS      BSSZ   1           HEAD OF BLK LIST OF AVAILABLE SPACE         MIO        88
            13                     1     LAL      BSSZ   1           HEAD OF LCM LIST OF AVAILABLE SPACE         MIO        89
                                                                                                                 MIO        90
                                  40     MIN.AB   EQU    40B         MIN SIZE BLOCK ADDED TO LAS                 MIO        91
                                 100     MIN.AL   EQU    100B        MIN SIZE BLOCK ADDED TO LAL                 MIO        92
                                  20     LCM.XL   EQU    20B         EXTRA LENGTH ADDED TO LCM BLOCKS            MIO        93
                                                                                                                 MIO        94
                                                  LIST   X                                                       MIO        95
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     4
        IOTBLD - RANDOM I/O TABLE FORMAT DEFINITIONS                  IOTBLD
  
            14                           IOTBLD   CTEXT  IOTBLD - RANDOM I/O TABLE FORMAT DEFINITIONS            IOTBLD      2
                                                                                                                 IOTBLD      3
                                        **        RI. - RANDOM INDEX WORD                                        IOTBLD      4
                                                                                                                 IOTBLD      5
                                                  DESCRIBE RI.,60    RIW(FLAGS,LEN,[FWA],[LCM],[OFS,RA])         IOTBLD      6
      L     73  40000000000000000000     IC       DEFINE 1           =1  IN CORE, =0 ON MS                       IOTBLD      7
      L     72  20000000000000000000     AT       DEFINE 1           ADDRESS TYPE, =0 DISK, =1 LCM               IOTBLD      8
                                                  DEFINE 1                                                       IOTBLD      9
      L     47  07777770000000000000     LEN      DEFINE 18          BLOCK LENGTH (INCORE COPY)                  IOTBLD     10
      L     36  00000007770000000000     OFS      DEFINE 9           BLOCK OFFSET IN RECORD                      IOTBLD     11
      L      0  00000000007777777777     RA       DEFINE 30          DISK ADDRESS OF BLOCK                       IOTBLD     12
                                                                                                                 IOTBLD     13
                                                  DESCRIBE RI.,36                                                IOTBLD     14
                        777777000000     FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     15
                        000000777777     LCM      DEFINE 18          LCM ADDRESS OF BLOCK                        IOTBLD     16
  
  
                                        **        BA. - BLOCK ADDRESS INFORMATION WORD                           IOTBLD     18
                                                                                                                 IOTBLD     19
                                                  DESCRIBE BA.,60    BAW(FLAGS,BI,LEN,FWA)                       IOTBLD     20
      L     73  40000000000000000000     BLK      DEFINE 1           =1 IF BLOCK IS IN *BLK*                     IOTBLD     21
      L     72  20000000000000000000     PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     22
      L     71  10000000000000000000     HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     23
      L     70  04000000000000000000     FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     24
                                                  DEFINE 2                                                       IOTBLD     25
      L     44  00777777000000000000     BI       DEFINE 18          *BIT* INDEX ( = BN*2 )                      IOTBLD     26
      L     22  00000000777777000000     LEN      DEFINE 18          BLOCK LENGTH  (INCORE COPY)                 IOTBLD     27
      L      0  00000000000000777777     FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     28
                                                                                                                 IOTBLD     29
      L     71  30000000000000000000     HBB      DEQU   HB,2        HB AND PRI BITS                             IOTBLD     30
      L     44  37777777000000000000     SAV      DEQU   BI,23                                                   IOTBLD     31
      L     22  37777777777777000000     SVL      DEQU   LEN,41                                                  IOTBLD     32
  
  
                                        **        BH. - BLOCK HEADER INFORMATION WORD                            IOTBLD     34
                                                                                                                 IOTBLD     35
                                                  DESCRIBE BH.,60    BHW(FLAGS,BI,BST,LEN)                       IOTBLD     36
      L     73  40000000000000000000     AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     37
      L     72  20000000000000000000     PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     38
      L     71  10000000000000000000     HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     39
      L     70  04000000000000000000     FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     40
                                                  DEFINE 2                                                       IOTBLD     41
      L     44  00777777000000000000     BI       DEFINE 18          BIT INDEX, (BN*2)                           IOTBLD     42
      L     22  00000000777777000000     BST      DEFINE 18          INDEX TO BST TABLE                          IOTBLD     43
      L      0  00000000000000777777     LEN      DEFINE 18          BLOCK LENGTH                                IOTBLD     44
                                                                                                                 IOTBLD     45
                                        **        BT. - BLOCK TRAILER WORD                                       IOTBLD     46
                                                                                                                 IOTBLD     47
                                                  DESCRIBE BT.,60    BTW(FLAGS,LKB,LKF,LEN)                      IOTBLD     48
      L     73  40000000000000000000     AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     49
                                                  DEFINE 5                                                       IOTBLD     50
      L     44  00777777000000000000     LKB      DEFINE 18          ABS LINK BACKWARD                           IOTBLD     51
      L     22  00000000777777000000     LKF      DEFINE 18          ABS LINK FORWARD                            IOTBLD     52
      L      0  00000000000000777777     LEN      DEFINE 18          BLOCK LENGTH (INCLUDING EXTRA WORDS)        IOTBLD     53
                                                                                                                 IOTBLD     54
                                                  ENDX                                                           IOTBLD     55
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     5
        DEBUGGING FACILITIES                                          DEBUG 
  
                                        **        PRNTM - PRINT OUT SELECTED STRUCTURES                          MIO        98
                                        *                                                                        MIO        99
                                        *         PRNTM  LAB,NAM,ARG,RLS                                         MIO       100
                                                                                                                 MIO       101
                                         PRNTM    MACRO  LAB,NAM,ARG,RLS                                         MIO       102
                                                  LOCAL  APL                                                     MIO       103
                                         O        IF     DEF,/DEBUG/LAB                                          MIO       104
                                        +         RJ     CPR                                                     MIO       105
                                        -         VFD    30/APL                                                  MIO       106
                                                  USE    DEBUG                                                   MIO       107
                                         APL      CON    10H LAB                                                 MIO       108
                                         N        MICRO  2,1,/ARG/                                               MIO       109
                                                  VFD    30/=XSV=X+"N"                                           FEAT155F  256
                                                  VFD    30/Q.NAM                                                MIO       111
                                                  USE    *                                                       MIO       112
                                         O        ENDIF                                                          MIO       113
                                                  ENDM                                                           MIO       114
                                                                                                                 MIO       115
                                         .T       IFNE   TEST,0                                    * TEST MODE * MIO       116
                                                                                                                 MIO       117
                                                  USE    DEBUG                                                   FCC0415     5
                                         .1       SET    1                                                       MIO       118
                                                  ECHO   2,X=(RIW,BAW,BHW,BTW,BIT,BST,BLK)                       MIO       119
                                         Q.X      EQU    .1                                                      MIO       120
                                         .1       SET    .1+1                                                    MIO       121
                                                                                                                 MIO       122
                                                                                                                 MIO       123
                                         CPR      ROUTINE                                                        MIO       124
                                                  RJ     =XSVR=                                                  CCG7       81
                                                  SA1    CPR                                                     MIO       126
                                                  LX1    30                                                      MIO       127
                                                  SA2    X1-1                                                    MIO       128
                                                  SA1    O.BIT                                                   MIO       129
                                                  SA4    O.BST                                                   MIO       130
                                                  SA5    O.BLK                                                   MIO       131
                                                  SA3    X2+1                                                    MIO       132
                                                  SX7    X2+1                                                    MIO       133
                                                  SX6    X2                                                      MIO       134
                                                  LX3    30                                                      MIO       135
                                                  SA6    CPRA                                                    MIO       136
                                                  SA7    CPRA+1                                                  MIO       137
                                                  BX6    X1                                                      MIO       138
                                                  BX7    X4                                                      MIO       139
                                                  SA6    CPRA+2                                                  MIO       140
                                                  SA7    CPRA+4                                                  MIO       141
                                                  BX6    X5                                                      MIO       142
                                                  SX7    X3                                                      MIO       143
                                                  SA6    CPRA+6                                                  MIO       144
                                                  SA7    CPRA+9                                                  MIO       145
                                                  SX6    X3-8                                                    MIO       146
                                                  SA6    CPRA+8                                                  MIO       147
                                                  SA1    CPRA                                                    MIO       148
                                                  CALL   PRNTMIO                                                 MIO       149
                                                  RJ     =XRSR=                                                  CCG7       82
                                                  EQ     CPR                                                     MIO       151
                                                                                                                 MIO       152
                                         CPRA     BSS    3                                                       MIO       153
1       MIO - MASS STORAGE RANDOM I/O                                 COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     6
        DEBUGGING FACILITIES                                          DEBUG 
  
                                                  VFD    42/,18/L.BIT                                            MIO       154
                                                  BSS    1                                                       MIO       155
                                                  VFD    42/,18/L.BST                                            MIO       156
                                                  BSS    1                                                       MIO       157
                                                  VFD    42/,18/L.BLK                                            MIO       158
                                                  BSSZ   3                                                       MIO       159
                                                  USE    0                                                       FCC0415     6
                                                                                                                 MIO       160
                                         .T       ENDIF                                            * TEST MODE * MIO       161
  
  
  
                                        **        SETFET - SETUP FET FOR RANDOM READ OR WRITE ( 6000 CIO )       MIO       163
                                                                                                                 MIO       164
                                         SETFET   MACRO  FET,FWA,LEN,RW,NOADD                                    MIO       165
                                                  SA1    RFWA                                                    MIO       166
                                                  R=     X6,FWA                                                  MIO       167
                                                  R=     B2,LEN                                                  MIO       168
                                                  BX6    X1+X6                                                   MIO       169
                                                  SA6    =XF.FET+1                                               MIO       170
                                                  SX6    X6                                                      MIO       171
                                                  SX7    X6+B2                                                   MIO       172
                                                  IFC    EQ,/RW/READ/                                            MIO       173
                                                  SA6    A6+B1       I=F                                         MIO       174
                                                  SA6    A6+B1       O=F                                         MIO       175
                                                  ELSE                                                           MIO       176
                                                  SA7    A6+B1       I=F+LEN                                     MIO       177
                                                  SA6    A7+B1       O=F                                         MIO       178
                                                  ENDIF                                                          MIO       179
                                                  IFC    EQ,/NOADD//,1                                           MIO       180
                                                  SX7    X7+100B                                                 MIO       181
                                                  SA7    A6+B1       LIM=F+L+100B                                MIO       182
                                                  ENDM                                                           MIO       183
                                                                                                                 MIO       184
            14  00004000000003000000     RFWA     VFD    13/1,29/3,18/0                                          MIO       185
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     7
        IMP - INITIALIZE MASS I/O PROCESSING                          IMP 
  
                                        **        IMP - INITIALIZE MASS I/O PROCESSING                           MIO       188
                                                                                                                 MIO       193
            15                           IMPA     ENTRY. **,#                                                    CCGNC     486
                                                                                                                 MIO       195
                                        *         INITIALIZE FOR USING LCM                                       MIO       196
                                                                                                                 MIO       199
            16  5110000000 X                      SA1    =XHO$OFLL                                               CCGNC     487
                          10611                   BX6    X1          O.LCM = HO$OFLL                             CCGNC     488
            17  5160000000 +                      SA6    O.LCM                                                   CCG7       85
                                         #ECS     IFNE   CT.ECS,0                                                MIO       200
                          5110000000 X            SA1    =XLCM.FL                                                MIO       201
            20  0301000022 +                      ZR     X1,IMPA1    IF CP.AFLL = 0  */NO ECS AVAILABLE          MIO       202
                          7170000001              SX7    1                                                       F7540FT    58
            21  5170000003 +                      SA7    ADT         ADT = 1                                     MIO       203
            22                           IMPA1    BSS    0                                                       MIO       206
                                                                                                                 F7540FT    61
                                         #ECS     ENDIF                                                          F7540FT    62
                                                                                                                 F7540FT    63
                                         #MD      IFEQ   CP#RM,7                                                 FCC0415     7
                                                  OPENM  =XFI.OPT,I-O,N,WA                                       MIO       212
                                                  STORE  =XFI.OPT,WA=X7    INITIALIZE WA                         MIO       213
                                         #MD      ENDIF                                                          MIO       214
                                                                                                                 MIO       215
                                                  PRINT  IMP,(* --LCM.FL,ADT,MAX.LCM = *3Z8),(X1,ADT,MAX.LCM)    MIO       216
            22  0400000015 +                      EQ     IMPA                                                    MIO       217
  
  
  
            23                           IMPB     ENTRY. **,#                                                    CCGNC     489
            24  5140000005 +                      SA4    O.RWB                                                   MIO       220
                          5150000006 +            SA5    RLEN                                                    MIO       221
            25  0305000027 +                      ZR     X5,IMPB1                                                MIO       222
                                                                                                                 MIO       223
                          0100001055 +            CALL   SBD         DUMP LAST PHASE 1 BLOCKS TO DISK            MIO       224
            26  43700                             MX7    0                                                       MIO       225
                     5170000006 +                 SA7    RLEN        RLEN = 0                                    MIO       226
                                                                                                                 MIO       227
            27  5110000000 X             IMPB1    SA1    =XHO$OBO                                                CCG18      83
                          7271000000 X            SX7    X1+=XHO$OBL                                             CCGNC     490
            30  73610                             SX6    X1                                                      CCG1        5
                     5160000004 +                 SA6    O.RRB       O.RRB = FWA OF OPT=2 PAGING BUFFER          CCG18      84
                               43673              MX6    59                                                      CCG1        6
            31  5170000005 +                      SA7    O.RWB       O.RWB = O.RRB + HO$OBL                      CCGNC     491
                          5160000007 +            SA6    N.RRB       N.RRB = -1                                  MIO       235
                                                  PRINT  IMP,(* --O.RRB,O.RWB =*2Z8),(O.RRB,O.RWB)               MIO       236
            32  0400000023 +                      EQ     IMPB                                                    MIO       237
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     8
        IMP - INITIALIZE MASS I/O PROCESSING                          IMP 
  
                                        **        IMPC - OPT=2 ENTRY TO INITIALIZE *BLK*                         MIO       239
                                        *                                                                        MIO       240
                                        *         ENTRY  (X7) = MAX BLK SPACE                                    MIO       241
                                                                                                                 MIO       242
            33                           IMPC     ENTRY. **,#                                                    CCGNC     492
            34  0100000060 +                      RJ     IBS         INITIALIZE *BLK* SPACE                      MIO       245
            35  5110000000 X                      SA1    O.BLK                                                   MIO       246
                          5120000000 X            SA2    L.BLK                                                   MIO       247
            36  36612                             IX6    X1+X2       O.TXT = O.BLK + L.BLK                       MIO       248
                     5160000000 X                 SA6    O.TXT                                                   MIO       249
                                                  PRINT  IMP,(*  MAX.BLK,O.BLK,L.BLK =*3Z7),(MAX.BLK,B2,B3)      MIO       250
            37  7170000000 X                      SX7    =XTOB                                                   MIO       251
                          5170000000 X            SA7    =XTO        SET OPT=2 TABLE OVERFLOW EXIT               MIO       252
            40  0400000033 +                      EQ     IMPC                                                    MIO       253
  
  
                                        **        IMPD - OPT=1 ENTRY TO INITIALIZE *BLK*                         MIO       255
                                        *         ALLOCATE BLOCK SPACE, MOVE LOOP BODY TO *BLK*                  MIO       256
                                                                                                                 MIO       257
            41                           IMPD     ENTRY. **,#                                                    CCGNC     493
            42  5110000000 X                      SA1    L.TXT                                                   MIO       259
                          7160000000              SX6    0                                                       MIO       260
            43  5160000012 +                      SA6    LAS         LAS = 0                                     MIO       261
                          5160000010 +            SA6    MX.AVS      MX.AVS = 0                                  MIO       262
            44  7271000200                        SX7    X1+200B                                                 MIO       263
                          0100000060 +            RJ     IBS         INITIALIZE *BLK* SPACE                      MIO       264
            45  5150000000 X                      SA5    L.TXT                                                   MIO       265
                          7215000002              ALLOC  BLK,X5+2    ALLOC( BLK , L.TXT+2 )                      MIO       266
            47  73326                             SX3    X2+B6       TO = O.BLK + OLD(L.BLK)                     MIO       267
                     63326                        SB3    X2+B6       FTB = TO                                    MIO       268
                          5120000000 X            SA2    O.TXT                                                   MIO       269
            50  63453                             SB4    B3+X5       LTB = TO + L.TXT                            MIO       270
                     73650                        SX6    X5                                                      MIO       271
                          53621                   SA6    X2+B1       R2 = TXT + 1;  [R2] = L.TXT                 MIO       272
            51  0100000000 X                      MOVE   X1,X2,X3    MOVE( L.TXT , O.TXT , TO )                  MIO       273
            52  7265000002                        SX6    X5+2        LT = L.TXT + 2                              MIO       274
                          7170000004              SX7    4                                                       FCC0415     9
            53  5170000000 X                      SA7    L.TXT       L.TXT = 4                                   FCC0415    10
                          20744                   LX7    BH.BIP                                                  FCC0415    11
                               56640              SA6    B4          [LTB] = BTW(0,0,0,LT)                       MIO       276
            54  12667                             BX6    X6+X7                                                   FCC0415    12
                     43700                        MX7    0                                                       MIO       277
                          54761                   SA7    A6+B1       [LTB+1] = 0   */ BLK BOUNDARY MARKER        MIO       278
                               57631              SA6    B3-B1       [FTB-1]=BHW(0,4,0,LT)                       FCC0415    13
            55  5110000000 X                      SA1    O.BIT                                                   MIO       281
                          43001                   MX0    1                                                       MIO       282
                                                  LX0    1+RI.ICP                                                MIO       283
                               20547              LX5    RI.LENP                                                 MIO       284
            56  76430                             SX4    B3                                                      MIO       285
                     12605                        BX6    X0+X5                                                   MIO       286
                          20422                   LX4    RI.FWAP                                                 MIO       287
                               12746              BX7    X4+X6                                                   MIO       288
            57  5271000005                        SA7    X1+5        BIT(5) = RIW(IC,LT-2,FTB,0)                 MIO       289
                          0400000041 +            EQ     IMPD                                                    MIO       290
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE     9
        IMP - INITIALIZE MASS I/O PROCESSING                          IBS 
  
                                        **        IBS - INTIALIZE *FREE* SPACE LIST IN *BLK*                     MIO       292
                                        *                                                                        MIO       293
                                        *         ENTRY  (X7) = LENGTH OF FREE SPACE LIST                        MIO       294
                                                                                                                 MIO       295
            60  0200400060 +             IBS      ROUTINE                                                        MIO       296
            61  7217000002                        ALLOC  BLK,X7+2    ALLOC( BLK , LEN+2 )                        MIO       297
            63  5140000212 +                      SA4    RBSA+1      DB = RBSA(2)  */ *RI* WORD FOR DUMMY BLOCK  MIO       298
                          5150000000 X            SA5    O.BIT                                                   MIO       299
            64  43600                             MX6    0                                                       MIO       300
                     53620                        SA6    X2          [BLK] = 0                                   MIO       301
                          10744                   BX7    X4                                                      MIO       302
                               53751              SA7    X5+B1       BIT(1) = DB                                 MIO       303
            65  5275000003                        SA7    X5+3        BIT(3) = DB                                 MIO       304
                          6233777775              SB3    X3-2        LEN = L.BLK - 2                             MIO       305
            66  63221                             SB2    X2+B1       FWA = O.BLK + 1                             MIO       306
                     56623                        SA6    B2+B3       BLK(L.BLK-1) = 0  */ TERMINAL BOUNDARY MARK MIO       307
                          0100000531 +            CALL   ABB         CALL  ABB( FWA , LEN ) */ INIT FREE SPACE   MIO       308
            67  0400000060 +                      EQ     IBS                                                     MIO       309
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    10
        WMB - WRITE MODIFIED BLOCK                                    WMB 
  
                                        **        WMB/WFB - WRITE MODIFIED BLOCK TO *BLK*                        MIO       311
                                        *                                                                        MIO       312
                                        *         ENTRY  (BSI) = *BST* INDEX OF BLOCK                            MIO       313
                                        *                FOR THE *WFB* ENTRY ONLY -                              MIO       314
                                        *                (X1) = NL, NEW LENGTH                                   MIO       315
                                        *                (X6) = FWAB , FWA OF BLOCK                              MIO       316
                                        *                                                                        MIO       317
                                        *         EXIT   BLOCK COPIED TO *BLK*                                   MIO       318
                                        *                *BST*, *BIT* ENTRIES UPDATED                            MIO       319
                                        *                                                                        MIO       320
                                        *         CALLS  ASB, MVE=.                                              MIO       321
                                                                                                                 MIO       322
            70                           WFB      ENTRY. **,#                                                    CCGNC     494
            71  5120000000 X                      SA2    =XHO$OPT                                                CCGNC     495
                          5130000000 X            SA3    O.BST                                                   MIO       324
            72  5140000000 X                      SA4    =XBSI                                                   CCG1        8
                          63330                   SB3    X3                                                      MIO       327
                               53543              SA5    B3+X4       BAW = BST(BSI)                              MIO       329
            73  0322000075 +                      PL     X2,WFB1     IF OPT " 2    */ FW NOT SET FOR OPT=1       CCG7       90
                          76010                   SX0    B1                                                      FCC0534     6
                               20070              LX0    BA.FWP                                                  FCC0534     7
            74  12505                             BX5    X0+X5       FW[BAW] = 1   */ INDICATE FINAL WRITE       MIO       331
            75  10711                    WFB1     BX7    X1                                                      FCC0534     8
                     5160000136 +                 SA6    WFBA                                                    MIO       332
                               54761              SA7    A6+B1                                                   MIO       333
                                                  LX5    -BA.FWAP                                                MIO       334
            76  6225777776                        SB2    X5-1        FWA = FWA[BAW] - 1                          MIO       335
                          20552                   LX5    BA.FWAP-BA.LENP                                         MIO       336
            77  6255000002                        SB5    X5+2        OL = LEN[BAW] + 2                           MIO       337
                          20522                   LX5    BA.LENP                                                 MIO       338
           100  0335000101 +                      MI     X5,WFB2     IF IC[BAW]     */ IF IN BLK                 FCC0634     5
                          66200                   SB2    B0          FWA = 0                                     FCC0634     6
                               66511              SB5    B1+B1       OL = 2                                      FCC0634     7
           101  5120000070 +             WFB2     SA2    WFB                                                     F2950CC     6
                          10722                   BX7    X2                                                      F2950CC     7
           102  5170000105 +                      SA7    WMB         [WMB] = [WFB] */ PLUG ENTRY POINT           F2950CC     8
                          0100000461 +            CALL   ASB                                                     F2950CC     9
           103  5140000136 +                      SA4    WFBA        FSCM = FWAB                                 MIO       341
                          54141                   SA1    A4+B1                                                   MIO       342
           104  0400000117 +                      EQ     WMB1                                                    MIO       345
                                                                                                                 MIO       346
           105                           WMB      ENTRY. **,#                                                    CCGNC     496
           106  5130000000 X                      SA3    O.BST                                                   MIO       348
                          5140000000 X            SA4    BSI                                                     MIO       349
           107  63330                             SB3    X3                                                      MIO       350
                     53543                        SA5    B3+X4       BAW = BST(BSI)                              MIO       351
                                                  LX5    -BA.FWAP                                                MIO       352
                          6225777776              SB2    X5-1        FWA = FWA[BAW] - 1                          MIO       353
           110  20552                             LX5    BA.FWAP-BA.LENP                                         MIO       354
                     6255000002                   SB5    X5+2        OL = LEN[BAW] + 2                           MIO       355
                               20522              LX5    BA.LENP                                                 MIO       356
           111  5110000000 X                      SA1    L.TXT       NL = L.TXT                                  MIO       357
                          0335000113 +            MI     X5,WMB0     IF IC[BAW]     */ IF IN BLK                 FCC0634     9
           112  66200                             SB2    B0          FWA = 0                                     FCC0634    10
                     66511                        SB5    B1+B1       OL = 2                                      FCC0634    11
           113  0100000461 +             WMB0     CALL   ASB         FBLK = ASB(FWA,OL,NL)   */ ALLOCATE SPACE   FCC0634    12
           114  5110000000 X                      SA1    O.BST                                                   FCC0415    14
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    11
        WMB - WRITE MODIFIED BLOCK                                    WMB 
  
                          5120000000 X            SA2    BSI                                                     FCC0415    15
           115  36612                             IX6    X1+X2                                                   FCC0415    16
                     53560                        SA5    X6          BAW = BST(BSI)                              FCC0415    17
                          5140000000 X            SA4    O.TXT       FSCM = [O.TXT]                              MIO       360
           116  5110000000 X                      SA1    L.TXT       NL = L.TXT                                  MIO       361
                                                                                                                 MIO       362
                                        *         UPDATE *BST*, *BIT* ENTRIES                                    MIO       363
                                                                                                                 MIO       364
           117  5120000000 X             WMB1     SA2    O.BIT                                                   MIO       365
                                                  PRINT  WMB,(* --FBLK FROM ASB =*Z7),X3                         MIO       366
                          63740                   SB7    X4                        (B7) = FSCM                   MIO       367
                               43045              MX0    -BA.SAVL                                                MIO       368
           120  63221                             SB2    X2+B1                                                   MIO       369
                     20044                        LX0    BA.SAVP                                                 MIO       370
                          43701                   MX7    1                                                       MIO       371
                               15550              BX5    -X0*X5                                                  MIO       372
                                                  LX7    1+BA.BLKP   BLK[BAW] = 1                                MIO       373
           121  12757                             BX7    X5+X7                                                   MIO       374
                     20530                        LX5    -BA.BIP                                                 MIO       375
                          63450                   SB4    X5          AR = BI[BAW]                                MIO       376
                               20122              LX1    BA.LENP     LEN[BAW] = NL                               MIO       377
           122  5120000135 +                      SA2    WMBA                                                    MIO       378
                          56442                   SA4    B4+B2       RIW = BIT(AR+1)                             MIO       379
                                                  LX3    BA.FWAP     FWA[BAW] = FBLK                             MIO       380
                               36613              IX6    X1+X3                                                   MIO       381
           123  20544                             LX5    BA.BIP                                                  MIO       382
                     12767                        BX7    X6+X7                                                   MIO       383
                          20125                   LX1    RI.LENP-BA.LENP   LEN[RI] = NL                          MIO       384
                               54750              SA7    A5          BST(BSI) = BAW                              MIO       385
                                                  PRNTM  WMB,BAW,X7                                              MIO       386
           124  43701                             MX7    1                                                       MIO       387
                     20322                        LX3    RI.FWAP-BA.FWAP   FWA[RI] = FBLK                        MIO       388
                                                  LX7    1+RI.ICP    IC[RIW] = 1                                 MIO       389
                          11424                   BX4    X2*X4                                                   MIO       390
                               12747              BX7    X4+X7                                                   MIO       391
           125  36613                             IX6    X1+X3                                                   MIO       392
                     12767                        BX7    X6+X7                                                   MIO       393
                          20125                   LX1    -RI.LENP                                                MIO       394
                               20352              LX3    -RI.FWAP                                                MIO       395
           126  54740                             SA7    A4          BIT(AR+1) = RIW                             MIO       396
                                                  PRNTM  WMB,RIW,X7                                              MIO       397
                                                                                                                 MIO       398
                                        *         STORE BLOCK HEADER AND TRAILER WORDS, MOVE BLOCK TO *BLK*.     MIO       399
                                                                                                                 MIO       400
                     5140000000 X                 SA4    BSI                                                     MIO       401
                               10755              BX7    X5                                                      MIO       402
           127  20703                             LX7    59-BH.FWP                                               MIO       403
                     0327000131 +                 PL     X7,WMB2     IF ^ FW[BHW]                                MIO       404
                                                                                                                 MIO       405
                               43673              MX6    -BH.PRIL                                                MIO       406
           130  76410                             SX4    B1                                                      MIO       407
                     20672                        LX6    BH.PRIP                                                 MIO       408
                          11556                   BX5    X5*X6       PRI[BHW] = 0                                MIO       409
                               20421              LX4    17          BSI = 400000B                               MIO       410
           131  7261000002               WMB2     SX6    X1+2        L= NL + 2                                   MIO       411
                                                  LX6    BT.LENP                                                 MIO       412
                          63630                   SB6    X3                                                      MIO       413
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    12
        WMB - WRITE MODIFIED BLOCK                                    WMB 
  
                               53616              SA6    B6+X1       [FBLK+NL] = BTW(0,0,0,L)                    MIO       414
                                                  PRNTM  WMB,BTW,X6                                              MIO       415
                                                  LX6    BH.LENP-BT.LENP                                         MIO       416
           132  20422                             LX4    BH.BSTP                                                 MIO       417
                     12664                        BX6    X6+X4                                                   MIO       418
                          12756                   BX7    X5+X6                                                   MIO       419
                               57761              SA7    B6-B1       [FBLK-1] = BHW(0,AR,BSI,L)                  MIO       420
                                                  PRNTM  WMB,BHW,X7                                              MIO       421
           133  76270                             MOVE   X1,B7,X3    MOVE( NL , FSCM , FBLK )                    MIO       422
           134  0400000105 +                      EQ     WMB                                                     MIO       423
                                                                                                                 MIO       424
           135                           WMBA     BFMW   RI,(IC,AT,LCM)                                          MIO       425
           136                     2     WFBA     BSS    2           FWA , NL                                    MIO       426
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    13
        RTB - READ TEXT BLOCK                                         RTB 
  
                                        **        RTB - READ TEXT BLOCK INTO *BLK*                               MIO       428
                                        *                                                                        MIO       429
                                        *         ENTRY  (BSI) = *BST* INDEX OF BLOCK TO BE READ IN              MIO       430
                                        *                                                                        MIO       431
                                        *         EXIT   (O.SEQ) = FWA OF BLOCK IN *BLK*                         MIO       432
                                        *                (L.SEQ) = LEN OF BLOCK                                  MIO       433
                                        *                *BST*, *BIT* ENTRIES UPDATED                            MIO       434
                                        *                                                                        MIO       435
                                        *         CALLS  ASB, GMB.                                               MIO       436
                                                                                                                 MIO       437
                                        *         BLOCK IS ALREADY IN *BLK*, SET O.SEQ, L.SEQ                    MIO       438
                                                                                                                 MIO       439
                                         RTB0     LX3    1+BA.BLKP-BA.FWAP                                       MIO       440
           140  73630                             SX6    X3                                                      MIO       441
                     20352                        LX3    BA.FWAP-BA.LENP                                         MIO       442
                          5160000000 X            SA6    O.SEQ       O.SEQ = FWA[BAW]                            MIO       443
           141  7273000000                        SX7    X3+                                                     MIO       444
                          5170000000 X            SA7    L.SEQ       L.SEQ = LEN[BAW]                            MIO       445
                                                                                                                 MIO       446
                                                  PRINT  RTB,(*  O.SEQ, L.SEQ = *2Z10),(O.SEQ,L.SEQ)             MIO       447
                                                                                                                 MIO       448
           142                           RTB      ENTRY. **,#                                                    CCGNC     497
           143  5110000000 X                      SA1    O.BST                                                   MIO       450
                          5120000000 X            SA2    BSI                                                     MIO       451
           144  63210                             SB2    X1                                                      MIO       452
                     53322                        SA3    X2+B2       BAW = BST(BSI)                              MIO       453
                                                  LX3    59-BA.BLKP                                              MIO       454
                          0333000140 +            MI     X3,RTB0     IF BLK[BAW]                                 MIO       455
                                                                                                                 MIO       456
                                        *         ALLOCATE SPACE IN *BLK*                                        MIO       457
                                                                                                                 MIO       458
           145  5140000000 X                      SA4    O.BIT                                                   MIO       459
                          20330                   LX3    1+BA.BLKP-BA.BIP                                        MIO       460
                               63431              SB4    X3+B1       I = BI[BAW] + 1                             MIO       461
           146  66200                             SB2    B0          FWA = 0                                     MIO       462
                     66511                        SB5    B1+B1       OL = 2                                      MIO       463
                          53544                   SA5    X4+B4       RIW = BIT(I)  */RANDOM INDEX WORD           MIO       464
                               20525              LX5    -RI.LENP                                                MIO       465
           147  73150                             SX1    X5          L = LEN[RIW]                                MIO       466
                     10455                        BX4    X5                                                      MIO       467
                          20447                   LX4    59-RI.ICP+RI.LENP                                       MIO       468
           150  0324000155 +                      PL     X4,RTB1     IF ^ IC[RIW]                                MIO       469
                                                                                                                 MIO       470
                          20452                   LX4    1+RI.ICP-RI.FWAP                                        MIO       471
                               66500              SB5    B0                                                      MIO       472
           151  73340                             SX3    X4          FBLK = FWA[RIW]                             MIO       473
                     7160000213 +                 SX6    RBSB                                                    MIO       474
                               37736              IX7    X3-X6                                                   MIO       475
           152  0307000157 +                      ZR     X7,RTB2     */IF DUMMY BLOCK                            MIO       476
                                                                                                                 MIO       477
                          5244777776              SA4    X4-1        BHW = [FBLK-1]                              MIO       478
           153  43752                             MX7    -BH.BSTL                                                MIO       479
                     20452                        LX4    -BH.BSTP                                                MIO       480
                          11447                   BX4    X4*X7                                                   MIO       481
                               12624              BX6    X2+X4       BST[BHW] = BSI                              MIO       482
           154  20622                             LX6    BH.BSTP                                                 MIO       483
                     54640                        SA6    A4          [FBLK] = BHW                                MIO       484
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    14
        RTB - READ TEXT BLOCK                                         RTB 
  
                          0400000157 +            EQ     RTB2                                                    MIO       485
                                                                                                                 MIO       486
           155  20547                    RTB1     LX5    RI.LENP                                                 MIO       487
                     0100000461 +                 CALL   ASB         FBLK = ASB(FWA,OL,L)  */ALLOCATE SPACE      MIO       488
           156  54550                             SA5    A5          RIW = BIT(I)  */ RELOAD RANDOM ADDR         FCC0391     7
                     6150000001                   SB5    1                                                       FCC0391     8
                               20525              LX5    -RI.LENP                                                FCC0391     9
                                                                                                                 MIO       491
                                                  PRINT  RTB,(* --FBLK FROM ASB = *Z7),X3                        MIO       492
                                                                                                                 MIO       493
                                        *         UPDATE *BST*, *BIT* ENTRIES AND READ BLOCK                     MIO       494
                                                                                                                 MIO       495
           157  5140000000 X             RTB2     SA4    O.BST                                                   MIO       496
                          5120000000 X            SA2    BSI                                                     MIO       497
           160  73150                             SX1    X5                                                      MIO       498
                     63240                        SB2    X4                                                      MIO       499
                          20122                   LX1    BA.LENP     LEN[BAW] = L                                MIO       500
                               43001              MX0    1                                                       MIO       501
           161  53222                             SA2    X2+B2       BAW = BST(BSI)                              MIO       502
                                                  LX0    1+BA.BLKP   BLK[BAW] = 1                                MIO       503
                     76410                        SX4    B1                                                      MIO       504
                          12101                   BX1    X0+X1                                                   MIO       505
                               20472              LX4    BA.PRIP     PRI[BAW] = 1                                MIO       506
           162  73730                             SX7    X3                                                      MIO       507
                                                  LX3    BA.FWAP     FWA[BAW] = FBLK                             MIO       508
                     12112                        BX1    X1+X2                                                   MIO       509
                          36434                   IX4    X3+X4                                                   MIO       510
           163  5170000000 X                      SA7    O.SEQ       O.SEQ = FBLK                                MIO       511
                                                  PRINT  RTB,(*--O.SEQ =*Z7),X7                                  MIO       512
                          12614                   BX6    X1+X4                                                   MIO       513
                               73750              SX7    X5                                                      MIO       514
           164  20322                             LX3    RI.FWAP-BA.FWAP                                         MIO       515
                     54620                        SA6    A2          BST(BSI) = BAW                              MIO       516
                          5170000000 X            SA7    L.SEQ       L.SEQ = L                                   MIO       517
                                                  PRNTM  RTB,BAW,X6                                              MIO       518
                                                  PRINT  RTB,(* --L.SEQ =*Z7),L.SEQ                              MIO       519
           165  0450000142 +                      ZR     B5,RTB      IF IC[RIW]                                  MIO       520
                                                                                                                 MIO       521
                                                  LX0    RI.ICP-BA.BLKP    IC[RIW] = 1                           MIO       522
                          5140000171 +            SA4    RTBA        M1 = MASK [RI](AT,LCM,LEN)                  MIO       523
           166  12003                             BX0    X0+X3                                                   MIO       524
                     20547                        LX5    RI.LENP                                                 MIO       525
                          11745                   BX7    X4*X5       TRIW = M1 & RIW                             MIO       526
                               12707              BX7    X0+X7       FWA[RIW] = FBLK                             MIO       527
           167  20352                             LX3    -RI.FWAP                                                MIO       528
                     54750                        SA7    A5          BIT(I) = TRIW                               MIO       529
                                                  PRNTM  RTB,RIW,X7                                              MIO       530
                          0100000310 +            CALL   GMB         CALL GMB(FBLK,RIW)  */READ BLOCK            MIO       531
           170  0400000142 +                      EQ     RTB                                                     MIO       532
                                                                                                                 MIO       533
           171                           RTBA     BFMW   RI,(AT,LCM,LEN)                                         MIO       534
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    15
        RBS - RELEASE BLOCK SPACE                                     RBS 
  
                                        **        RBS - RELEASE BLOCK SPACE                                      MIO       536
                                        *                                                                        MIO       537
                                        *         ENTRY  (BSI) = *BST* INDEX OF BLOCK                            MIO       538
                                        *                                                                        MIO       539
                                        *         EXIT   BLOCK REDUCED TO BOS, EOQ                               MIO       540
                                        *                                                                        MIO       541
                                        *         CALLS  ABB, ABL.                                               MIO       542
                                                                                                                 MIO       543
           172                           RBS      ENTRY. **,#                                                    CCGNC     498
                                                  PRINT  RBS,(* --RELEASE BLOCK, BSI =*Z7),BSI                   MIO       545
                                                                                                                 MIO       546
                                        *         UPDATE *BST*, *BIT* ENTRIES                                    MIO       547
                                                                                                                 MIO       548
           173  5110000211 +                      SA1    RBSA        DBAW = [RBSA] */BST ENTRY FOR DUMMY BLOCK   MIO       549
                          5021000001              SA2    A1+1        DRIW = [RBSA+1] */BIT ENTRY FOR DUMMY BLOCK MIO       550
           174  5130000000 X                      SA3    O.BST                                                   MIO       551
                          5140000000 X            SA4    BSI                                                     MIO       552
           175  5150000000 X                      SA5    O.BIT                                                   MIO       553
                          6140000213 +            SB4    RBSB                                                    MIO       554
           176  63230                             SB2    X3                                                      MIO       555
                     63351                        SB3    X5+B1                                                   MIO       556
                          53342                   SA3    B2+X4       BAW = BST(BSI)                              MIO       557
                               20330              LX3    -BA.BIP     B = BI[BAW]                                 MIO       558
           177  53433                             SA4    B3+X3       RIW = BIT(B)                                MIO       559
                     73630                        SX6    X3                                                      MIO       560
                          10722                   BX7    X2                                                      MIO       561
                               20644              LX6    BA.BIP      BI[DBAW] = B                                MIO       562
           200  12616                             BX6    X1+X6                                                   MIO       563
                     54630                        SA6    A3          BST(BSI) = DBAW                             MIO       564
                                                  PRNTM  RBS,BAW,X6                                              MIO       565
                          53733                   SA7    B3+X3       BIT(B) = DRIW                               MIO       566
                                                  PRNTM  RBS,RIW,X7                                              MIO       567
                               20344              LX3    BA.BIP+59-BA.BLKP                                       MIO       568
           201  0323000204 +                      PL     X3,RBS1     IF BLK[BAW] = 0                             MIO       569
                                                                                                                 MIO       570
                                        *         RELEASE STORAGE IN BLK                                         MIO       571
                                                                                                                 MIO       572
                                                  LX3    1+BA.BLKP-BA.FWAP                                       MIO       573
                          63230                   SB2    X3          FBLK = FWA[BAW]                             MIO       574
           202  0424000172 +                      EQ     B2,B4,RBS   IF FBLK = RBSB  */NULL BLOCK                MIO       575
                                                                                                                 MIO       576
                          66411                   SB4    B1+B1                                                   MIO       577
                               20352              LX3    BA.FWAP-BA.LENP                                         MIO       578
           203  63334                             SB3    X3+B4       L = LEN[BAW] + 2                            MIO       579
                     67221                        SB2    B2-B1       FBLK = FBLK-1                               MIO       580
                          0100000531 +            CALL   ABB         CALL ABB(FBLK,L)                            MIO       581
                                                                                                                 MIO       582
                                        *         RELEASE STORAGE IN LCM                                         MIO       583
                                                                                                                 MIO       584
           204  20401                    RBS1     LX4    59-RI.ATP                                               MIO       585
                     0324000172 +                 PL     X4,RBS      IF AT[RIW] = 0                              MIO       586
                                                                                                                 MIO       587
                                         #ECS     IFNE   CT.ECS,0                                                MIO       588
                               20473              LX4    1+RI.ATP-RI.LCMP                                        MIO       589
           205  63240                             SB2    X4                                                      MIO       590
                     73040                        SX0    X4                                                      MIO       591
                          5100000220 +            RX1    X0,RBSC                                                 MIO       592
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    16
        RBS - RELEASE BLOCK SPACE                                     RBS 
  
                                                  LX1    -BH.LENP                                                MIO       593
                     63310                        SB3    X1                                                      MIO       594
                          0100000701 +            CALL   ABL         CALL ABL(FBLK,L)                            MIO       595
           210  0400000172 +                      EQ     RBS                                                     MIO       596
                                         #ECS     ENDIF                                                          MIO       597
                                                                                                                 MIO       598
           211  40000000000010000213 +   RBSA     VFD    1/1,23/0,18/8,18/RBSB                                   MIO       599
           212  40000100000213 +                  VFD    1/1,2/0,18/8,3/0,18/RBSB,18/0                           MIO       600
                              000000
                                        *         RBSB - DUMMY BLOCK ( BOS,EOQ )                                 FCC0415    18
                                                                                                                 MIO       601
                                  65     D.FT=1P  EQU    D.FTP                                                   MIO       602
                                   1     D.FT=1L  EQU    1                                                       MIO       603
                                  63     D.NRXP   EQU    D.NRP-1     *NR* EXPONENT BIT                           MIO       604
                                   1     D.NRXL   EQU    1                                                       MIO       605
                                                                                                                 MIO       606
           213  20010000000000000000     RBSB     VFD    12/1S10+OC.BOS,48/0                                     MIO       607
           214  00000000000000000010              DATA   8                                                       MIO       608
           215                                    BFMW   D,(TY,NRX,^D,PI,JFT)                                    MIO       609
           216  00000000000000000000              DATA   0                                                       MIO       610
           217  20000000000000000000              VFD    12/2000B,48/0                                           MIO       611
           220                     1     RBSC     BSSZ   1                                                       MIO       612
           221                                    BFMW   D,(TY,FT=1,NRX,^D,BM,PI,JFT)                            MIO       613
           222  00000000000000000000              DATA   0                                                       MIO       614
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    17
        RNB - READ NEXT BLOCK                                         RNB 
  
                                        **        RNB - READ NEXT BLOCK OF *FTNOPT* FILE IN A SEQUENTIAL MANNER. MIO       616
                                        *                THIS SUBROUTINE MAY BE CALLED FROM *FBV* ONLY.          MIO       617
                                        *                                                                        MIO       618
                                        *         ENTRY  (X2) = BIW, BLOCK INDEX WORD                            MIO       619
                                        *                (X3) = FBLK, FWA OF WORKING STORAGE TO READ BLOCK TO.   MIO       620
                                        *                (X5) = RIW, RANDOM INDEX WORD                           MIO       621
                                        *                                                                        MIO       622
                                        *         CALLS  GMB                                                     MIO       623
                                                                                                                 MIO       624
           223                           RNB      ENTRY. **,#                                                    CCGNC     499
                                                  PRNTM  RNB,RIW,X5                                              MIO       626
                                                                                                                 MIO       627
                                         #RM      IFEQ   CP#RM,0                                                 MIO       628
                                                                                                                 MIO       629
           224  10655                             BX6    X5                                                      MIO       630
                     20601                        LX6    59-RI.ATP                                               MIO       631
                                                                                                                 MIO       632
                          0336000243 +            MI     X6,RNB2     IF AT[RIW]    */ IN ECS/LCM                 MIO       633
           225  7203777776                        SX0    X3-1                                                    MIO       634
                          5110000245 +            SA1    RNS                                                     MIO       635
           226  0311000236 +                      NZ     X1,RNB1     IF RNS " 0    */ FILE READ STARTED          MIO       636
                          76710                   SX7    B1                                                      MIO       637
                               54710              SA7    A1          RNS = 1       */ INDICATE READ STARTED      MIO       638
           227  5130000004 +                      SA3    O.RRB                                                   MIO       639
                          5170000006 X            SA7    F.OPT+6     DA = 1                                      MIO       641
           230  20401                             LX4    1                                                       MIO       642
                     5110000014 +                 SETFET OPT,X3,HO$OBL,READ,NOADD  SETUP FET FOR READ            CCGNC     500
           234  7120000000 X                      READNS F.OPT                                                   MIO       644
                                                                                                                 MIO       645
           236  20525                    RNB1     LX5    -RI.LENP                                                MIO       646
                     63600                        READW  F.OPT,X0,X5+2     READW( OPT , FBLK , LEN[RIW]+2 )      MIO       647
           240  0301000223 +                      ZR     X1,RNB      IF EOR = 0                                  MIO       648
                                                                                                                 MIO       649
                          20547                   LX5    RI.LENP                                                 MIO       650
           241  7170000250                        READNS X2          RESTART READ                                MIO       651
           242  0400000236 +                      EQ     RNB1                                                    MIO       652
                                         #RM      ENDIF                                                          MIO       653
                                                                                                                 MIO       654
           243  0100000310 +             RNB2     CALL   GMB         GMB( FBLK , RIW )                           MIO       655
           244  0400000223 +                      EQ     RNB                                                     MIO       656
                                                                                                                 MIO       657
           245                     1     RNS      BSSZ   1           READ NS STARTED FLAG                        MIO       658
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    18
        SMB - SAVE MEMORY BLOCK                                       SMB 
  
                                        **        SMB - SAVE MEMORY BLOCK                                        MIO       660
                                        *                                                                        MIO       661
                                        *         ENTRY  (B2) = FLCM, OLD LCM ADDRESS                            MIO       662
                                        *                (X4) = FSCM, SCM FWA OF BLOCK                           MIO       663
                                        *                (X5) = LEN, LENGTH OF BLOCK                             MIO       664
                                        *                                                                        MIO       665
                                        *         EXIT   (X1) = RIW, RANDOM INDEX WORD                           MIO       666
                                        *                BLOCK WRITTEN TO RWB, LCM, OR DISK                      MIO       667
                                        *                                                                        MIO       668
                                        *         CALLS  SBL,SBD,ASL.                                            MIO       669
                                                                                                                 MIO       670
                                        *         MOVE BLOCK INTO RWB                                            MIO       671
                                                                                                                 MIO       672
           246  36312                    SMB0     IX3    X1+X2       FDEST = RLEN+O.RWB                          MIO       673
                     10244                        BX2    X4                                                      MIO       674
                          5140000002 +            SA4    O.DISK                                                  MIO       675
           247  5170000006 +                      SA7    RLEN        RLEN = NL                                   MIO       676
                          20136                   LX1    RI.OFSP     OFS[RIW] = OL                               MIO       677
                                                  LX4    RI.RAP      RA[RIW] = O.DISK                            MIO       678
                               12714              BX7    X1+X4                                                   MIO       679
           250  73150                             SX1    X5          L = LEN                                     MIO       680
                     20547                        LX5    RI.LENP     LEN[RIW] = LEN                              MIO       681
                          12557                   BX5    X5+X7                                                   MIO       682
           251  0100000000 X                      MOVE   X1,X2,X3    MOVE(L,FSCM,FDEST)                          MIO       683
           252  10155                             BX1    X5                                                      MIO       684
                                                                                                                 MIO       685
           253  76211                    SMB1     SX2    B1+B1                                                   MIO       686
                     20247                        LX2    RI.LENP                                                 MIO       687
                          37112                   IX1    X1-X2       LEN[RIW] = LEN[RIW] - 2                     MIO       688
                                                                                                                 MIO       689
                                                  PRNTM  SMB,RIW,X1                                              MIO       690
                                                                                                                 MIO       691
           254                           SMB      ENTRY. **,#                                                    CCGNC     501
                                                                                                                 MIO       693
                                        *         ALLOCATE SPACE IN LCM IF POSSIBLE                              MIO       694
                                                                                                                 MIO       695
           255  7244777776                        SX4    X4-1        FSCM = FSCM - 1                             MIO       696
                          7255000002              SX5    X5+2        LEN = LEN + 2                               MIO       697
           256  63550                             SB5    X5                                                      MIO       698
                                                                                                                 MIO       699
                                         #ECS     IFNE   CT.ECS,0                                                MIO       700
                     5120000003 +                 SA2    ADT                                                     MIO       701
           257  0302000272 +                      ZR     X2,SMB2     IF ADT = 0    */WRITE IS TO DISK            MIO       702
                                                                                                                 MIO       703
                          20536                   LX5    30                                                      MIO       704
                               12545              BX5    X4+X5                                                   MIO       705
           260  0100000627 +                      CALL   ASL         FLCM = ASL(FLCM,LEN,L)  */ALLOCATE LCM      MIO       706
           261  73450                             SX4    X5                                                      MIO       707
                     21536                        AX5    30                                                      MIO       708
                                                  PRINT  SMB,(* --FLCM FROM ASL = *,Z8),X2                       MIO       709
                                                                                                                 MIO       710
                          0332000272 +            MI     X2,SMB2     IF FLCM.LT.0  */WRITE IS TO DISK            MIO       711
                                                                                                                 MIO       712
                                        *         WRITE BLOCK TO LCM                                             MIO       713
                                                                                                                 MIO       714
           262  53140                             SA1    X4                                                      MIO       715
                     5130000307 +                 SA3    SMBB        M1 = MASK [BH](BI,BST,HB)                   MIO       716
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    19
        SMB - SAVE MEMORY BLOCK                                       SMB 
  
           263  6237777776                        SB3    X7-1                                                    MIO       717
                          11113                   BX1    X1*X3       BHW = M1 & BHW                              MIO       718
                               63423              SB4    X2+B3                                                   MIO       719
                                                  LX7    BH.LENP     LEN[BHW] = L                                MIO       720
           264  12617                             BX6    X1+X7                                                   MIO       721
                     54610                        SA6    A1          [FSCM] = BHW                                MIO       722
                                                  PRNTM  SMB,BHW,X6                                              MIO       723
                          0100001106 +            CALL   SBL         CALL SBL(FLCM,FSCM,LEN,RIW)                 MIO       724
           265  43652                             MX6    -RI.LENL                                                MIO       725
                     76040                        SX0    B4                                                      MIO       726
                          20647                   LX6    RI.LENP                                                 MIO       727
                                                  PRNTM  SMB,BTW,X7                                              MIO       728
           266  5100000306 +                      WX7    X0,SMBA     LEN[BTW] = L                                MIO       729
           270  11716                             BX7    X1*X6                                                   MIO       730
                     20547                        LX5    RI.LENP     LEN[RIW] = LEN                              MIO       731
                          12157                   BX1    X5+X7                                                   MIO       732
           271  0400000253 +                      EQ     SMB1                                                    MIO       733
                                         #ECS     ENDIF                                                          MIO       734
                                                                                                                 MIO       735
                                        *         WRITE BLOCK TO RWB OR DISK                                     MIO       736
                                                                                                                 MIO       737
           272  7130000000 X             SMB2     SX3    HO$OBL                                                  CCGNC     502
                          5110000006 +            SA1    RLEN        OL = RLEN                                   MIO       739
           273  5120000005 +                      SA2    O.RWB                                                   MIO       740
                          37053                   IX0    X5-X3                                                   MIO       741
                               36715              IX7    X1+X5       NL = OL + LEN                               MIO       742
           274  37673                             IX6    X7-X3                                                   MIO       743
                     0336000246 +                 MI     X6,SMB0     IF NL .LT. MAX.RL                           MIO       744
                                                                                                                 MIO       745
                                        *         DUMP RWB TO DISK                                               MIO       746
                                                                                                                 MIO       747
           275  0301000304 +                      ZR     X1,SMB3     IF OL = 0                                   MIO       748
                          20536                   LX5    30                                                      MIO       749
                               12645              BX6    X4+X5                                                   MIO       750
           276  5160000306 +                      SA6    SMBA                                                    MIO       751
                          5140000005 +            SA4    O.RWB       FRWB = O.RWB                                MIO       752
           277  10511                             BX5    X1          L = RLEN                                    MIO       753
                     0100001055 +                 CALL   SBD         CALL SBD(FRWB,L,RIW)                        MIO       754
           300  5150000306 +                      SA5    SMBA                                                    MIO       755
                          5120000005 +            SA2    O.RWB                                                   MIO       756
           301  73450                             SX4    X5                                                      MIO       757
                     21536                        AX5    30                                                      MIO       758
                          73750                   SX7    X5                                                      MIO       759
                               43100              MX1    0           OL = 0                                      MIO       760
           302  0330000246 +                      MI     X0,SMB0     IF LEN < MAX.RL                             MIO       761
                          43600                   MX6    0                                                       MIO       762
           303  5160000006 +                      SA6    RLEN        RLEN = 0                                    MIO       763
                                                                                                                 MIO       764
                                        *         WRITE BLOCK DIRECTLY FROM BLK                                  MIO       765
                                                                                                                 MIO       766
           304  0100001055 +             SMB3     CALL   SBD         CALL SBD(FSCM,LEN,RIW)                      MIO       767
           305  0400000253 +                      EQ     SMB1                                                    MIO       768
                                                                                                                 MIO       769
                                                                                                                 MIO       770
           306                     1     SMBA     BSS    1                                                       MIO       771
           307                           SMBB     BFMW   BH,(BI,BST,HB)                                          MIO       772
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    20
        GMB - GET MEMORY BLOCK                                        GMB 
  
                                        **        GMB - GET MEMORY BLOCK                                         MIO       774
                                        *                                                                        MIO       775
                                        *         ENTRY  (X3) = FSCM, SCM FWA OF BLOCK                           MIO       776
                                        *                (X5) = RIW, RANDOM INDEX WORD                           MIO       777
                                        *                                                                        MIO       780
                                        *         CALLS  GBL,GBD,MVE=.                                           MIO       781
                                                                                                                 MIO       782
           310                           GMB      ENTRY. **,#                                                    CCGNC     503
           311  10255                             BX2    X5                                                      MIO       785
                                                  LX2    59-RI.ICP                                               MIO       786
                     0322000316 +                 PL     X2,GMB0     IF ^ IC[RIW]                                MIO       787
                                                                                                                 MIO       788
                               20225              LX2    1+RI.ICP-RI.LENP                                        MIO       789
           312  7212000002                        SX1    X2+2        L = LEN[RIW] + 2                            MIO       790
                          20225                   LX2    RI.LENP-RI.FWAP                                         MIO       791
           313  7222777776                        SX2    X2-1        FBLK = FWA[RIW] - 1                         MIO       792
                          7233777776              SX3    X3-1        FSCM = FSCM - 1                             MIO       793
           314  0100000000 X                      MOVE   X1,X2,X3    MOVE(L,FBLK,FSCM)                           MIO       794
           315  0400000310 +                      EQ     GMB                                                     MIO       795
                                                                                                                 MIO       796
           316  6140000000 X             GMB0     SB4    HO$OBL                                                  CCGNC     504
                                                  PRNTM  GMB,RIW,X5                                              MIO       799
                                                                                                                 MIO       800
                                         #ECS     IFNE   CT.ECS,0                                                MIO       801
                          10655                   BX6    X5                                                      MIO       802
                               20601              LX6    59-RI.ATP                                               MIO       803
           317  0326000326 +                      PL     X6,GMB1     IF ^AT[RIW]   */READ FROM DISK              MIO       804
                                                                                                                 MIO       805
                                        *         READ BLOCK FROM LCM                                            MIO       806
                                                                                                                 MIO       807
                                                  LX5    -RI.LCMP                                                MIO       808
                          73450                   SX4    X5          FLCM = LCM[RIW]                             MIO       809
                               20525              LX5    RI.LCMP-RI.LENP                                         MIO       810
           320  7255000002                        SX5    X5+2        L = LEN[RIW]+2                              MIO       811
                          7223777776              SX2    X3-1                                                    MIO       812
           321  0100001121 +                      CALL   GBL         CALL GBL(FLCM,L,FSCM)                       MIO       813
           322  53220                             SA2    X2          BHW = [FSCM]                                MIO       814
                                                  PRNTM  GMB,BHW,X2                                              MIO       815
                     5140000000 X                 SA4    BSI                                                     MIO       816
                               43052              MX0    -BH.LENL    M1 = MASK[BH](LEN)                          MIO       817
                                                  LX2    -BH.LENP                                                MIO       818
           323  11602                             BX6    X0*X2       BHW = ^M1 & BHW                             MIO       819
                     20422                        LX4    BH.BSTP     BST[BHW] = BSI                              MIO       820
                          76010                   SX0    B1                                                      MIO       821
                               20072              LX0    BH.PRIP     PRI[BHW] = 1                                MIO       822
           324  12756                             BX7    X5+X6       LEN[BHW] = L                                MIO       823
                     36404                        IX4    X0+X4                                                   MIO       824
                          12747                   BX7    X4+X7                                                   MIO       825
                               54720              SA7    A2          [FSCM] = BHW                                MIO       826
                                                  PRNTM  GMB,BHW,X7                                              MIO       827
           325  0400000310 +                      EQ     GMB                                                     MIO       828
                                         #ECS     ENDIF                                                          MIO       829
                                                                                                                 MIO       830
                                        *         CHECK IF BLOCK IS IN RRB OR RWB                                MIO       831
                                                                                                                 MIO       832
                                         GMB1     LX5    -RI.RAP                                                 MIO       833
           326  43036                             MX0    -RI.RAL                                                 MIO       834
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    21
        GMB - GET MEMORY BLOCK                                        GMB 
  
                     15450                        BX4    -X0*X5      RA = RA[RIW]                                MIO       835
                          5110000004 +            SA1    O.RRB                                                   MIO       836
           327  5120000007 +                      SA2    N.RRB                                                   MIO       837
                          20525                   LX5    RI.RAP-RI.LENP                                          MIO       838
                                                  PRINT  GMB,(*  --N.RRB =*Z7),N.RRB                             MIO       839
                               63210              SB2    X1          BUF = [O.RRB]                               MIO       840
           330  37624                             IX6    X2-X4                                                   MIO       841
                     0306000342 +                 ZR     X6,GMB2     IF N.RRB = RA */BLOCK IN RRB                MIO       842
                                                                                                                 MIO       843
           331  5110000005 +                      SA1    O.RWB                                                   MIO       844
                          5120000002 +            SA2    O.DISK                                                  MIO       845
                                                  PRINT  GMB,(* --O.DISK =*Z9),O.DISK                            MIO       846
           332  63210                             SB2    X1          BUF = [O.RWB]                               MIO       847
                     37624                        IX6    X2-X4                                                   MIO       848
                          0306000342 +            ZR     X6,GMB2     IF O.DISK = RA   */BLOCK IN RWB             MIO       849
                                                                                                                 MIO       850
           333  6255000002                        SB5    X5+2                                                    FCC1352     5
                          0654000346 +            GE     B5,B4,GMB3  IF LEN[RIW]+2 \ HO$OBL                      CCGNC     505
                                                                                                                 MIO       853
           334  10633                             BX6    X3                                                      MIO       854
                     10755                        BX7    X5                                                      MIO       855
                          5120000004 +            SA2    O.RRB                                                   MIO       856
           335  5160000353 +                      SA6    GMBA                                                    MIO       857
                          54761                   SA7    A6+B1                                                   MIO       858
                               10744              BX7    X4                                                      MIO       859
           336  76540                             SX5    B4          L= HO$OBL                                   CCGNC     506
                     5170000007 +                 SA7    N.RRB                                                   MIO       861
           337  0100001075 +                      CALL   GBD         CALL GBD(O.RRB,L,RA)                        MIO       862
           340  5110000004 +                      SA1    O.RRB                                                   MIO       863
                          5130000353 +            SA3    GMBA                                                    MIO       864
           341  54531                             SA5    A3+B1                                                   MIO       865
                     63210                        SB2    X1                                                      MIO       866
                                                                                                                 MIO       867
           342  7215000002               GMB2     SX1    X5+2        L = LEN[RIW]+2                              MIO       868
                          20511                   LX5    RI.LENP-RI.OFSP                                         MIO       869
                               43063              MX0    -RI.OFSL                                                MIO       870
           343  15750                             BX7    -X0*X5      OFS = OFS[RIW]                              MIO       871
                     73272                        SX2    X7+B2       FBLK = BUF+OFS                              MIO       872
                          7233777776              SX3    X3-1        FSCM = FSCM-1                               MIO       873
           344  53030                             SA0    X3                                                      MIO       874
                     0100000000 X                 MOVE   X1,X2,X3    MOVE(L,FBLK,FSCM)                           MIO       875
           345  0400000350 +                      EQ     GMB4                                                    MIO       876
                                                                                                                 MIO       877
                                        *         READ DIRECTLY INTO BLK                                         MIO       878
                                                                                                                 MIO       879
           346  7223777776               GMB3     SX2    X3-1        FSCM = FSCM-1                               MIO       880
                          53020                   SA0    X2                                                      MIO       881
           347  7255000002                        SX5    X5+2        L = LEN[RIW]+2                              MIO       882
                          0100001075 +            CALL   GBD         CALL GBD(FSCM,L,RA)                         MIO       883
                                                                                                                 MIO       884
           350  54200                    GMB4     SA2    A0                                                      MIO       885
                     5140000000 X                 SA4    BSI                                                     MIO       886
                               76010              SX0    B1                                                      MIO       887
           351  20072                             LX0    BH.PRIP     PRI[BHW] = 1                                MIO       888
                     20422                        LX4    BH.BSTP                                                 MIO       889
                          36404                   IX4    X0+X4                                                   MIO       890
                               12624              BX6    X2+X4                                                   MIO       891
1       MIO - MASS STORAGE RANDOM I/O (EXTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    22
        GMB - GET MEMORY BLOCK                                        GMB 
  
           352  54620                             SA6    A2                                                      MIO       892
                                                  PRNTM  GMB,BHW,X6                                              MIO       893
                     0400000310 +                 EQ     GMB                                                     MIO       894
                                                                                                                 MIO       895
           353                     2     GMBA     BSS    2                                                       MIO       896
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    23
        DMB - DUMP MEMORY BLOCKS                                      DMB 
  
                                        **        DMB - DUMP MEMORY BLOCKS                                       MIO       899
                                        *                                                                        MIO       900
                                        *         ENTRY  (X1) = LEN, LENGTH OF SPACE REQUIRED                    MIO       901
                                        *                (B2) = 0, GET ALL REQ.SPACE BY DUMPING BASIC BLOCKS     RSM2763X   66
                                        *                     " 0, DUMP INACTIVE BLOCKS ONLY. IF NOT ENOUGH      RSM2763X   67
                                        *                          SPACE OBTAINED,CALL MOREFL TO EXTEND FL       RSM2763X   68
                                        *                                                                        MIO       902
                                        *         EXIT   (X1) = 0 - REQUIRED SPACE OBTAINED                      RSM2763X   69
                                        *                (X1) " 0 - NOT ENOUGH SPACE OBTAINED,X1 = NEW WN        RSM2763X   70
                                        *                (X2) = WFL - WORDS OBTAINED BY CALLING MOREFL           RSM2763X   71
                                        *                                                                        MIO       905
                                        *         CALLS  SMB,ABB.                                                MIO       906
                                                                                                                 MIO       907
           355                           DMB      ENTRY. **,#                                                    CCGNC     507
           356  63710                             SB7    X1                                                      MIO       910
                     76620                        SX6    B2                                                      RSM2763X   72
                          5160000457 +            SA6    DMBH        SAVE B2                                     RSM2763X   73
           357  10600                             BX6    X0                                                      MIO       913
                     10755                        BX7    X5                                                      MIO       914
                          5160000453 +            SA6    DMBG        SAVE X0, X5                                 MIO       915
           360  5170000454 +                      SA7    DMBG+1                                                  MIO       916
                          74600                   SX6    A0                                                      MIO       917
                               74750              SX7    A5                                                      MIO       918
           361  5160000455 +                      SA6    DMBG+2      SAVE A0,A5                                  MIO       919
                          5170000456 +            SA7    DMBG+3                                                  MIO       920
                                                                                                                 MIO       921
                                                  PRINT  DMB,(* -- REQUEST FOR*Z7* WORDS*),B7                    MIO       922
           362  5150000442 +                      SA5    DMBA        M1 = MASK FOR AV AND FW FLAGS               RSM2763X   74
           363  5120000000 X             DMB0     SA2    O.BST                                                   RSM2763X   75
                          5130000000 X            SA3    O.SEQ                                                   MIO       924
           364  5140000000 X                      SA4    O.BLK       FBLK = O.BLK                                MIO       925
                          6160000074              SB6    60-BH.LENP                                              MIO       927
           365  63320                             SB3    X2                                                      MIO       928
                     6243777776                   SB4    X3-1        SEQ = O.SEQ - 1                             MIO       929
           366  5110000000 X                      SA1    O.BIT                                                   MIO       930
                          54351                   SA3    A5+B1                                                   MIO       931
                               63211              SB2    X1+B1                                                   MIO       932
           367  10033                             BX0    X3                                                      MIO       933
                     53441                        SA4    X4+B1       BHW = [FBLK+1]                              MIO       934
                                                                                                                 MIO       936
                                        *         LOOP TO FIND BLOCK TO DUMP                                     MIO       937
                                                                                                                 MIO       938
           370  0304000423 +             DMB1     ZR     X4,DMB3     IF BHW = 0    */END OF TABLE                MIO       939
                                                                                                                 MIO       940
                          11654                   BX6    X5*X4       TEST = M1 & BHW                             MIO       941
                               64540              SB5    A4          OBLK = FBLK                                 MIO       942
                                                  PRNTM  DMB,BHW,X4                                              RSM2763X   76
           371  22264                             LX2    B6,X4       TBHW = BHW                                  MIO       943
                     13606                        BX6    X0-X6       TEST = TEST .XOR. M3                        MIO       944
                          53425                   SA4    X2+B5       BHW = [FBLK+LEN[BHW]]                       MIO       945
           372  0316000370 +                      NZ     X6,DMB1     IF TEST " 0                                 MIO       947
                                                                                                                 MIO       948
                          0445000370 +            EQ     B4,B5,DMB1  OBLK = SEQ    */ DO NOT DUMP ACTIVE BLOCK   MIO       949
                                                                                                                 MIO       950
                                        *         DUMP BLOCK TO MASS STORAGE                                     MIO       951
                                                                                                                 MIO       952
                                                  PRINT  DMB,(* ABOVE BLOCK DUMPED TO MS. RIW FOLLOWS *)         RSM2763X   77
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    24
        DMB - DUMP MEMORY BLOCKS                                      DMB 
  
           373  43652                             MX6    -BH.BSTL                                                MIO       953
                     20622                        LX6    BH.BSTP                                                 MIO       954
                          43323                   MX3    -BA.SVLL                                                MIO       955
                               73520              SX5    X2          L = LEN[BHW]                                MIO       956
           374  11626                             BX6    X2*X6                                                   MIO       957
                     56650                        SA6    B5                                                      MIO       958
                          20252                   LX2    BH.LENP-BH.BSTP   B = BST[BHW]                          MIO       959
                               63420              SB4    X2                                                      MIO       960
           375  0740000377 +                      MI     B4,DMB1A    IF B < 0      */NO BST ENTRY                MIO       961
                                                                                                                 MIO       962
                          53123                   SA1    X2+B3       BAW = BST(B)                                MIO       963
                               20322              LX3    BA.SVLP                                                 MIO       964
           376  15713                             BX7    -X3*X1                                                  MIO       965
                                                  PRNTM  DMB,BAW,X7                                              MIO       966
                     54710                        SA7    A1          BST(B) = BAW                                MIO       967
                                                                                                                 MIO       968
           377  20252                    DMB1A    LX2    BH.BSTP-BH.BIP    AR = BI[BHW]                          MIO       969
                     53322                        SA3    X2+B2       RIW = BIT(AR+1)                             MIO       970
                          20301                   LX3    59-RI.ATP                                               MIO       971
                               63240              SB2    X4          L=LEN[BHW]                                  FCC1123     4
           400  0512000401 +                      NE     B1,B2,DMB1B IF L = 1       */SKIP 1 WORD FREE SPACE     FCC1123     5
                          5044000001              SA4    A4+1                                                    FCC1123     6
           401  76770                    DMB1B    SX7    B7                                                      FCC1123     7
                     37675                        IX6    X7-X5       LEN = LEN - L                               MIO       973
                          74050                   SX0    A5                                                      MIO       974
                               20622              LX6    18                                                      MIO       975
           402  74140                             SX1    A4                                                      MIO       976
                     12606                        BX6    X0+X6                                                   MIO       977
                          20622                   LX6    18                                                      MIO       978
                               12616              BX6    X1+X6                                                   MIO       979
           403  5160000451 +                      SA6    DMBE        T1 = LEN, M1, FBLK                          MIO       980
                          76750                   SX7    B5                                                      MIO       981
                               74030              SX0    A3                                                      MIO       982
           404  20722                             LX7    18                                                      MIO       983
                     12707                        BX7    X0+X7                                                   MIO       984
                          73150                   SX1    X5                                                      MIO       985
                               20722              LX7    18                                                      MIO       986
           405  12717                             BX7    X1+X7                                                   MIO       987
                     5170000452 +                 SA7    DMBF        T2 = OBLK, AR, L                            MIO       988
           406  7255777775                        SX5    X5-2                                                    MIO       989
                          66200                   SB2    B0          FLCM = 0                                    MIO       990
           407  0323000410 +                      PL     X3,DMB2     IF AT[RIW] = 0                              MIO       991
                                                                                                                 MIO       992
                          20373                   LX3    1+RI.ATP-RI.LCMP                                        MIO       993
                               63230              SB2    X3          FLCM = LCM[RIW]                             MIO       994
                                                                                                                 MIO       995
           410  76451                    DMB2     SX4    B5+B1       FSCM = FBLK + 1                             MIO       996
                     0100000254 +                 CALL   SMB         CALL SMB(FLCM,L,FBLK) */SAVE BLOCK ON MS    MIO       997
           411  5120000452 +                      SA2    DMBF                                                    MIO       998
                          63320                   SB3    X2                                                      MIO       999
                               10711              BX7    X1                                                      MIO      1000
           412  21222                             AX2    18                                                      MIO      1001
                     53720                        SA7    X2          BIT(AR+1) = RIW                             MIO      1002
                                                  PRNTM  DMB,RIW,X7                                              MIO      1003
                          21222                   AX2    18                                                      MIO      1004
                               63220              SB2    X2                                                      MIO      1005
           413  0100000531 +                      CALL   ABB         CALL ABB(OBLK,L)                            MIO      1006
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    25
        DMB - DUMP MEMORY BLOCKS                                      DMB 
  
           414  5110000451 +                      SA1    DMBE                                                    MIO      1007
                          53410                   SA4    X1                                                      MIO      1008
                               21122              AX1    18                                                      MIO      1009
           415  53510                             SA5    X1                                                      MIO      1010
                     21122                        AX1    18                                                      MIO      1011
                          63710                   SB7    X1                                                      MIO      1012
           416  5035000001                        SA3    A5+1                                                    MIO      1013
                          0607000434 +            LE     B7,B0,DMB4  IF LEN @ 0                                  MIO      1014
                                                                                                                 MIO      1015
           417  10033                             BX0    X3                                                      MIO      1016
                     5110000000 X                 SA1    O.BIT                                                   MIO      1017
           420  5120000000 X                      SA2    O.BST                                                   MIO      1018
                          5130000000 X            SA3    O.SEQ                                                   MIO      1019
           421  6160000074                        SB6    60-BH.LENP                                              MIO      1020
                          63211                   SB2    X1+B1                                                   MIO      1021
                               63320              SB3    X2                                                      MIO      1022
           422  6243777776                        SB4    X3-1                                                    MIO      1023
                          0400000370 +            EQ     DMB1                                                    MIO      1024
                                                                                                                 MIO      1025
                                        *         GET MASK FOR NEXT GROUP                                        MIO      1026
                                                                                                                 MIO      1027
           423  5055000002               DMB3     SA5    A5+2        */ M3 OR M5 MASK OR ZERO                    RSM2763X   78
                          0305000434 +            ZR     X5,DMB4     IF (X5) = 0 */ LAST BLK SCAN DONE           RSM2763X   79
           424  54351                             SA3    A5+B1                                                   RSM2763X   80
                     10033                        BX0    X3          */ M4 OR M6 MASK FOR 2ND OR 3RD SCAN        RSM2763X   81
                          0300000432 +            ZR     X0,DMB3A    IF M4 MASK */ 2ND SCAN IS TO START          RSM2763X   82
           425  5140000457 +                      SA4    DMBH                                                    RSM2763X   83
                          0304000432 +            ZR     X4,DMB3A    IF  DMBH  = 0 */ STANDARD PROCESSING        RSM2763X   84
                                                                                                                 RSM2763X   85
                                        *         SPECIAL PROCESSING REQUESTED - CALL MOREFL TO GET              RSM2763X   86
                                        *         REMAINING NO. OF WORDS BY EXTENDING FL RATHER THEN BY          RSM2763X   87
                                        *         DUMPING THE HIGHEST PRIORITY BLOCKS                            RSM2763X   88
                                                                                                                 RSM2763X   89
           426  76170                             SX1    B7          WN = NO.OF WORDS NEEDED                     RSM2763X   90
                                                  PRINT  DMB,(*  DMB CALLS MOREFL,WN =*Z7),(X1)                  RSM2763X   91
                     0100000000 X                 CALL   MOREFL      MOREFL(X6) = NO.OF WORDS GRANTED            RSM2763X   92
           427  5160000460 +                      SA6    DMBI        SAVE WG - NO.OF WORDS GRANTED               RSM2763X   93
                          37616                   IX6    X1-X6                                                   RSM2763X   94
                               63760              SB7    X6          RWN = REM.NO.OF WORDS NEEDED                RSM2763X   95
           430  0607000434 +                      LE     B7,DMB4     IF RWN @ 0                                  RSM2763X   96
                          5150000446 +            SA5    DMBA+4      M5 = MASK FOR 3RD SCAN                      RSM2763X   97
           431  0400000363 +                      EQ     DMB0        */ GET RWN BY DUMPING THE TOP PRIOR.BLOCKS  RSM2763X   98
                                                                                                                 RSM2763X   99
           432  5140000000 X             DMB3A    SA4    O.BLK                                                   RSM2763X  100
                          53441                   SA4    X4+B1                                                   RSM2763X  101
           433  0400000370 +                      EQ     DMB1                                                    RSM2763X  102
                                                                                                                 MIO      1036
           434  76170                    DMB4     SX1    B7                                                      MIO      1037
                     5150000456 +                 SA5    DMBG+3                                                  MIO      1038
           435  5140000455 +                      SA4    DMBG+2                                                  MIO      1039
                          5130000454 +            SA3    DMBG+1                                                  MIO      1040
           436  5120000453 +                      SA2    DMBG                                                    MIO      1041
                          53040                   SA0    X4          RESTORE A0, A5                              MIO      1042
                               53550              SA5    X5                                                      MIO      1043
           437  10533                             BX5    X3                                                      MIO      1044
                     10022                        BX0    X2          RESTORE X0,X5                               MIO      1045
                                                  PRINT  DMB,(* -- SUMMARY -- B7 =*Z7),B7                        MIO      1046
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    26
        DMB - DUMP MEMORY BLOCKS                                      DMB 
  
                                                  PRNTM  DMB,BIT                                                 MIO      1047
                                                  PRNTM  DMB,BST                                                 MIO      1048
                                                  PRNTM  BLK,,=1                                                 MIO      1049
                                                                                                                 MIO      1050
                          5120000460 +            SA2    DMBI        WFL = NO OF WORDS GRANTED BY MOREFL         RSM2763X  103
           440  43600                             MX6    0                                                       RSM2763X  104
                     54620                        SA6    A2          DMBI = 0                                    RSM2763X  105
                          0670000355 +            PL     B7,DMB      IF NOT ENOUGH SPACE FREED                   MIO      1051
           441  43100                             MX1    0           X1 = 0        */ SUCCESS                    MIO      1052
                     0400000355 +                 EQ     DMB                                                     MIO      1053
                                                                                                                 MIO      1054
           442                           DMBA     BFMW   BH,(AV,FW)                                              MIO      1055
           443                                    BFMW   BH,(FW)                                                 MIO      1056
           444                                    BFMW   BH,(AV,PRI)                                             MIO      1057
           445                     1              BSSZ   1                                                       MIO      1058
           446                                    BFMW   BH,(AV,PRI)                                             MIO      1059
           447                                    BFMW   BH,(PRI)                                                MIO      1060
           450                     1              BSSZ   1                                                       MIO      1061
           451                     1     DMBE     BSS    1                                                       MIO      1062
           452                     1     DMBF     BSS    1                                                       MIO      1063
           453                     4     DMBG     BSS    4                                                       MIO      1064
           457                     1     DMBH     BSS    1                                                       RSM2763X  106
           460                     1     DMBI     BSSZ   1                                                       RSM2763X  107
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    27
        ASB - ALLOCATE SPACE IN BLK                                   ASB 
  
                                        **        ASB - ALLOCATE SPACE IN BLK                                    MIO      1066
                                        *                                                                        MIO      1067
                                        *         ENTRY  (B2) = ADDRESS OF BLOCK HEADER WORD                     MIO      1068
                                        *                (B5) = OL, CURRENT LENGTH OF BLOCK                      MIO      1069
                                        *                (X1) = NL, NEW LENGTH OF BLOCK                          MIO      1070
                                        *                                                                        MIO      1071
                                        *         EXIT   (X3) = FWA, FWA OF BLOCK ALLOCATED                      MIO      1072
                                                                                                                 MIO      1073
           461  0200400461 +             ASB      ROUTINE                                                        MIO      1077
           462  66711                             SB7    B1+B1                                                   MIO      1078
                     6160000212 +                 SB6    RBSB-1                                                  MIO      1079
                                                  PRINT  ASB,(* BLK SIZE=*Z7),(L.BLK)                            RSM2763X  108
                               63317              SB3    X1+B7       NL = NL + 2                                 MIO      1080
           463  0457000467 +                      EQ     B5,B7,ASB1  IF OL = 2     */NO SPACE ALLOCATED          MIO      1081
                                                                                                                 MIO      1082
                          0426000467 +            EQ     B2,B6,ASB1  IF FBLK = RBSB  */DUMMY BLOCK               MIO      1083
                                                                                                                 MIO      1084
           464  0453000525 +                      EQ     B5,B3,ASB5  IF OL = NL                                  MIO      1085
                                                                                                                 MIO      1086
                          0735000522 +            GT     B5,B3,ASB4  IF OL > NL                                  MIO      1087
                                                                                                                 MIO      1088
           465  76430                             SX4    B3                                                      MIO      1089
                     66350                        SB3    B5                                                      MIO      1090
                          0100000531 +            CALL   ABB         CALL ABB(FBLK,OL)                           MIO      1091
           466  6234000000                        SB3    X4+                                                     MIO      1092
                                                                                                                 MIO      1093
                                        *         DUMP BLOCKS FROM BLK IF NEED EXTRA SPACE.                      MIO      1094
                                                                                                                 MIO      1095
           467  5110000010 +             ASB1     SA1    MX.AVS      MAX = MX.AVS                                MIO      1096
                          6261000000              SB6    X1+                                                     MIO      1097
           470  7221777677                        SX2    X1-100B                                                 MIO      1098
                                                  PRINT ASB,(* MX.AVS,NL=*2Z7),(B6,B3)                           RSM2763X  109
                          0332000472 +            MI     X2,ASB1C                                                MIO      1099
                                                                                                                 MIO      1100
           471  0663000507 +                      GE     B6,B3,ASB1A IF MAX \ NL                                 MIO      1101
                                                                                                                 MIO      1102
           472  77136                    ASB1C    SX1    B3-B6       DL = NL - MAX.AS                            MIO      1103
                     5130000000 X                 SA3    =XHO$OPT                                                CCGNC     508
                               76630              SX6    B3                                                      MIO      1104
           473  5160000527 +                      SA6    ASBA                                                    MIO      1105
                                                  PRINT  ASB,(* SPACE NEEDED = *,Z8),B3                          MIO      1106
                          0323000502 +            PL     X3,ASB1E    IF OPT " 2                                  CCG7       92
           474  7120000401                        SX2    401B                                                    MIO      1107
                          37712                   IX7    X1-X2                                                   MIO      1108
           475  0327000476 +                      PL     X7,ASB1B    DL = MAX( DL , 401B )                       MIO      1109
                          10122                   BX1    X2                                                      MIO      1110
           476  76600                    ASB1B    SX6    B0                                                      RSM2763X  110
                     66210                        SB2    B1          */ SPEC. PROCESSING BY DMB                  RSM2763X  111
                                                  PRINT  ASB,(* ASB CALLS DMB,WN=*Z7),(X1)                       RSM2763X  112
                          5160000000 X            SA6    O.SEQ       O.SEQ = 0                                   MIO      1112
           477  5160000000 X                      SA6    L.SEQ       L.SEQ = 0                                   MIO      1113
                          0100000355 +            CALL   DMB         DUMP BLOCKS TO FREE UP SPACE                MIO      1114
           500  0311000526 +                      NZ     X1,ASB6     IF NOT ENOUGH SPACE OBTAINED                RSM2763X  113
                          0302000506 +            ZR     X2,ASB1D    ENOUGH SPACE BY DUMPING BLOCKS ONLY         RSM2763X  114
                                                                                                                 RSM2763X  115
                                        *         DMB HAD TO CALL MOREFL TO GET ENOUGH SPACE, X2 = WFL           RSM2763X  116
                                                                                                                 RSM2763X  117
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    28
        ASB - ALLOCATE SPACE IN BLK                                   ASB 
  
           501  10122                             BX1    X2                                                      RSM2763X  118
                                                                                                                 FCC0415    22
                                        *         INCREASE SIZE OF *BLK*                                         FCC0415    23
                                                                                                                 FCC0415    24
           502  7211000100               ASB1E    SX1    X1+100B     LEN = LEN+100B                              RSM2763X  119
                                                                                                                 RSM2763X  120
                          5100000000 X            ALLOC  BLK,X1      ALLOC( BLK , LEN ) ; OL = OLD(L.BLK)        FCC0415    31
                                                  PRINT  ASB,(* INCREASE IN BLK = *,Z8),X1                       FCC0415    32
           504  6252777776                        SB5    X2-1                                                    FCC0415    33
                          43700                   MX7    0                                                       FCC0415    34
                               53735              SA7    B5+X3       [O.BLK+NL-1] = 0                            FCC0415    35
           505  63310                             SB3    X1                                                      FCC0415    36
                     66256                        SB2    B5+B6       FWA = O.BLK-1+OL                            FCC0415    37
                          0100000531 +            CALL   ABB         CALL ABB(FWA,LEN)  */ADD BLOCK TO LIST      FCC0415    38
                                                                                                                 FCC0415    42
           506  5120000527 +             ASB1D    SA2    ASBA                                                    FCC0415    43
                          6232000000              SB3    X2+                                                     MIO      1117
                                                                                                                 MIO      1118
           507  5110000012 +             ASB1A    SA1    LAS         BTW = LAS                                   MIO      1119
                                                  PRINT  ASB,(* --LAS = *Z20),LAS                                MIO      1120
                          20152                   LX1    -BT.LKFP    I = LKF[BTW]                                MIO      1121
                               63510              SB5    X1                                                      MIO      1122
           510  0450000513 +                      ZR     B5,ASB2A                                                MIO      1123
                                                                                                                 MIO      1124
                          5221000000              SA2    X1+         BTW = [I]                                   MIO      1125
                                                  PRNTM  ASB,BTW,X2                                              MIO      1126
                                                                                                                 MIO      1127
                                        *         SEARCH LIST FOR AVAILABLE SPACE                                MIO      1128
                                                                                                                 MIO      1129
                                         ASB2     LX2    -BT.LENP                                                MIO      1130
           511  63520                             SB5    X2          L = LEN[BTW]                                MIO      1131
                     20252                        LX2    BT.LENP-BT.LKFP                                         MIO      1132
                          0653000517 +            GE     B5,B3,ASB3  IF L \ NL                                   MIO      1133
                                                                                                                 MIO      1134
           512  63620                             SB6    X2          I = LKF[BTW]                                MIO      1135
                     53220                        SA2    X2          BTW = [I]                                   MIO      1136
                                                  PRNTM  ASB,BTW,X2                                              MIO      1137
                          0560000511 +            NZ     B6,ASB2     IF I " 0                                    MIO      1138
                                                                                                                 MIO      1139
                                        *         CALL GARBAGE COLLECTOR FOR BLK                                 MIO      1140
                                                                                                                 MIO      1141
           513  7163000000               ASB2A    SX6    B3+                                                     MIO      1142
                          5160000527 +            SA6    ASBA                                                    MIO      1143
           514  0100000574 +                      CALL   CGB         CALL CGB      */GARBAGE COLLECTOR           MIO      1144
           515  5120000527 +                      SA2    ASBA                                                    MIO      1145
                          6232000000              SB3    X2+                                                     MIO      1146
           516  0400000467 +                      EQ     ASB1                                                    MIO      1147
                                                                                                                 MIO      1148
                                        *         REMOVE BLOCK FROM AVAILABLE LIST                               MIO      1149
                                                                                                                 MIO      1150
           517  20222                    ASB3     LX2    BT.LKFP                                                 MIO      1151
                     67651                        SB6    B5-B1                                                   MIO      1152
                          65226                   SB2    A2-B6       FBLK = I-L+1                                MIO      1153
                               54120              SA1    A2                                                      MIO      1154
           520  0100000556 +                      CALL   RBB         CALL RBB(BTW)                               MIO      1155
           521  0453000525 +                      EQ     B5,B3,ASB5  IF L = NL                                   MIO      1156
                                                                                                                 MIO      1157
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    29
        ASB - ALLOCATE SPACE IN BLK                                   ASB 
  
                                        *         ADD REMAINDER OF BLOCK TO AVAILABLE LIST                       MIO      1158
                                                                                                                 MIO      1159
           522  76421                    ASB4     SX4    B2+B1                                                   MIO      1160
                     43700                        MX7    0                                                       MIO      1161
                          66223                   SB2    B2+B3       FBLK = FBLK + NL                            MIO      1162
                               67353              SB3    B5-B3       LX = L - NL                                 MIO      1163
           523  57721                             SA7    B2-B1                                                   MIO      1164
                     0100000531 +                 CALL   ABB         CALL ABB(FWAX,LX)                           MIO      1165
           524  10344                             BX3    X4                                                      MIO      1166
                     0400000461 +                 EQ     ASB                                                     MIO      1167
                                                                                                                 MIO      1168
                                        *         SET FWA OF ALLOCATED BLOCK                                     MIO      1169
                                                                                                                 MIO      1170
           525  76321                    ASB5     SX3    B2+B1                                                   MIO      1171
                     0400000461 +                 EQ     ASB                                                     MIO      1172
                                                                                                                 MIO      1173
           526  5110001132 +             ASB6     SA1    =7LTBL-OVF                                              RSM2763X  121
                          0100000000 X            CALL   PUNT                                                    RSM2763X  122
                                                                                                                 RSM2763X  123
                                                                                                                 RSM2763X  124
           527                     1     ASBA     BSS    1                                                       MIO      1174
           530                     1     ASBB     BSS    1                                                       FCC0415    44
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    30
        ABB - ADD BLOCK TO BLK LIST                                   ABB 
  
                                        **        ABB - ADD BLOCK TO BLK LIST                                    MIO      1176
                                        *                                                                        MIO      1177
                                        *         ENTRY  (B2) = FWA, FWA OF BLOCK (ADDRESS OF BHW)               MIO      1178
                                        *                (B3) = LEN, LENGTH OF BLOCK (INCLUDING BHW AND BTW)     MIO      1179
                                        *                                                                        MIO      1180
                                        *         EXIT   BLOCK ADDED TO LINKED LIST                              MIO      1181
                                        *                                                                        MIO      1182
                                        *         CALLS  RBB.                                                    MIO      1183
                                                                                                                 MIO      1184
           531  0200400531 +             ABB      ROUTINE                                                        MIO      1185
           532  5110000010 +                      SA1    MX.AVS                                                  MIO      1187
                          67731                   SB7    B3-B1                                                   MIO      1188
                               66427              SB4    B2+B7       ABTW = FBLK+L-1                             MIO      1189
           533  73713                             SX7    X1+B3       MX.AVS = MX.AVS+LEN                         MIO      1190
                     54710                        SA7    A1                                                      MIO      1191
                                                                                                                 MIO      1192
                                        *         GET BLOCK TRAILER WORDS FOR PRECEDING AND FOLLOWING BLOCKS.    MIO      1193
                                                                                                                 MIO      1194
                          57121                   SA1    B2-B1       PBTW = [FBLK]                               MIO      1195
                                                  PRNTM  ABB,BTW,X1                                              MIO      1196
           534  0301000540 +                      ZR     X1,ABB1     IF PBTW = 0   */NO PRECEDING BLOCK          MIO      1197
                                                                                                                 MIO      1198
                                        *         COMBINE ADJACENT AVAILABLE BLOCKS                              MIO      1199
                                                                                                                 MIO      1200
                                                  LX1    59-BT.AVP                                               MIO      1201
                          0321000540 +            PL     X1,ABB1     IF ^AV[PBTW]  */NOT AVAILABLE SPACE         MIO      1202
                                                                                                                 MIO      1203
                                                  LX1    1+BT.AVP-BT.LENP                                        MIO      1204
           535  63710                             SB7    X1          PL = LEN[PBTW]                              MIO      1205
                     5120000010 +                 SA2    MX.AVS                                                  MIO      1206
                               67227              SB2    B2-B7       FBLK = FBLK-PL                              MIO      1207
           536  66337                             SB3    B3+B7       L = L + PL                                  MIO      1208
                     73727                        SX7    X2+B7                                                   MIO      1209
                                                  LX1    BT.LENP                                                 MIO      1210
                          54720                   SA7    A2                                                      MIO      1211
           537  0100000556 +                      CALL   RBB         CALL RBB(PBTW)                              MIO      1212
                                                                                                                 MIO      1213
           540  56241                    ABB1     SA2    B4+B1       FBHW = [ABTW+1]                             MIO      1214
                     0302000544 +                 ZR     X2,ABB2     IF FBHW = 0   */NO FOLLOWING BLOCK          MIO      1215
                                                                                                                 MIO      1216
                                                  LX2    -BH.LENP    LS = LEN[FBHW]                              MIO      1217
                               53324              SA3    X2+B4       FBTW = [ABTW+LS]                            MIO      1218
                                                  PRNTM  ABB,BTW,X3                                              MIO      1219
                                                  LX3    59-BT.AVP                                               MIO      1220
           541  0323000544 +                      PL     X3,ABB2     IF ^AV[FBTW]  */NOT AVAILABLE SPACE         MIO      1221
                                                                                                                 MIO      1222
                                                  LX3    1+BT.AVP-BT.LENP                                        MIO      1223
                          5120000010 +            SA2    MX.AVS                                                  MIO      1224
           542  63730                             SB7    X3          FL = LEN[FBTW]                              MIO      1225
                     66337                        SB3    B3+B7       L = L+FL                                    MIO      1226
                          66447                   SB4    B4+B7       ABTW = ABTW+FL                              MIO      1227
                               73727              SX7    X2+B7                                                   MIO      1228
           543  54130                             SA1    A3                                                      MIO      1229
                     54720                        SA7    A2                                                      MIO      1230
                          0100000556 +            CALL   RBB         CALL RBB(FBTW)                              MIO      1231
                                                                                                                 MIO      1232
                                        *         STORE NEW BLOCK HEADER AND TRAILER WORDS.                      MIO      1233
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    31
        ABB - ADD BLOCK TO BLK LIST                                   ABB 
  
                                                                                                                 MIO      1234
           544  76630                    ABB2     SX6    B3                                                      MIO      1235
                     43101                        MX1    1                                                       MIO      1236
                                                  LX6    BH.LENP     LEN[BHW] = LEN                              MIO      1237
                                                  LX1    1+BH.AVP    AV[BHW] = 1                                 MIO      1238
                          12616                   BX6    X1+X6                                                   MIO      1239
           545  6170000040                        SB7    MIN.AB                                                  MIO      1240
                          10766                   BX7    X6          BTW = BHW                                   MIO      1241
                               56620              SA6    B2          [FBLK] = BHW                                MIO      1242
                                                  PRNTM  ABB,BHW,X6                                              MIO      1243
           546  0773000550 +                      LT     B7,B3,ABB3  IF MIN.AB < LEN                             MIO      1244
                                                                                                                 MIO      1245
                          56740                   SA7    B4          [ABTW] = BTW                                MIO      1246
                                                  PRNTM  ABB,BTW,X7                                              MIO      1247
           547  0400000531 +                      EQ     ABB                                                     MIO      1248
                                                                                                                 MIO      1249
           550  5130000012 +             ABB3     SA3    LAS         OPTR = LAS                                  MIO      1250
                          76640                   SX6    B4                                                      MIO      1251
                               20622              LX6    BT.LKFP     LKF[NPTR] = ABTW                            MIO      1252
           551  12737                             BX7    X3+X7       LKF[BTW] = LKF[OPTR]                        MIO      1253
                     54630                        SA6    A3          LAS = NPTR                                  MIO      1254
                                                  PRINT  ABB,(* LAS = *Z20),LAS                                  MIO      1255
                          20352                   LX3    -BT.LKFP                                                MIO      1256
                               73330              SX3    X3          LINKF = LKF[OPTR]                           MIO      1257
           552  0303000555 +                      ZR     X3,ABB4     IF LINKF = 0                                MIO      1258
                                                                                                                 MIO      1259
                          53130                   SA1    X3                                                      MIO      1260
                               43052              MX0    -BT.LKBL                                                MIO      1261
           553  20044                             LX0    BT.LKBP                                                 MIO      1262
                     11201                        BX2    X0*X1       NWORD = LWORDF                              MIO      1263
                          20622                   LX6    BT.LKBP-BT.LKFP   LKB[NWORDF] = ABTW                    MIO      1264
                               12626              BX6    X2+X6                                                   MIO      1265
           554  54610                             SA6    A1          [LINKF] = NWORD                             MIO      1266
                                                  PRNTM  ABB,BTW,X6                                              MIO      1267
           555  56740                    ABB4     SA7    B4          [ABTW] = BTW                                MIO      1268
                                                  PRNTM  ABB,BTW,X7                                              MIO      1269
                                                                                                                 MIO      1270
                     0400000531 +                 EQ     ABB                                                     MIO      1271
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    32
        RBB - REMOVE BLOCK FROM BLK LIST                              RBB 
  
                                        **        RBB - REMOVE BLOCK FROM BLK LIST                               MIO      1273
                                        *                                                                        MIO      1274
                                        *         ENTRY  (X1) = BTW, BLOCK TRAILER WORD                          MIO      1275
                                        *                (A1) = ABTW, ADDRESS OF BLOCK TRAILER WORD              MIO      1276
                                        *                                                                        MIO      1277
                                        *         EXIT   BLOCK REMOVED FROM LINKED LIST                          MIO      1278
                                        *                                                                        MIO      1279
                                        *         CALLS  NONE.                                                   MIO      1280
                                                                                                                 MIO      1281
           556  0200400556 +             RBB      ROUTINE                                                        MIO      1282
           557  5120000010 +                      SA2    MX.AVS                                                  MIO      1283
                          6170000040              SB7    MIN.AB                                                  MIO      1284
                                                  LX1    -BT.LENP                                                MIO      1285
           560  73610                             SX6    X1          L = LEN[BTW]                                MIO      1286
                     63610                        SB6    X1                                                      MIO      1287
                          37726                   IX7    X2-X6       MX.AVS = MX.AVS - L                         MIO      1288
                               54720              SA7    A2                                                      MIO      1289
           561  0767000556 +                      LT     B6,B7,RBB   IF L .LT. MIN.AB                            MIO      1290
                                                                                                                 MIO      1291
                          20152                   LX1    BT.LENP-BT.LKFP                                         MIO      1292
                               63610              SB6    X1          LINKF = LKF[BTW]                            MIO      1293
           562  20152                             LX1    BT.LKFP-BT.LKBP                                         MIO      1294
                     63710                        SB7    X1          LINKB = LKB[BTW]                            MIO      1295
                          0570000566 +            NZ     B7,RBB1     IF LINKB " 0  */NOT FIRST ENTRY ON LIST     MIO      1296
                                                                                                                 MIO      1297
           563  5120000012 +                      SA2    LAS                                                     MIO      1298
                          20252                   LX2    -BT.LKFP                                                MIO      1299
                               74010              SX0    A1                                                      MIO      1300
           564  37002                             IX0    X0-X2                                                   MIO      1301
                     0310000556 +                 NZ     X0,RBB      IF ABTW .NE. LKF[LAS]                       MIO      1302
                                                                                                                 MIO      1303
                               20222              LX2    BT.LKFP                                                 MIO      1304
           565  0400000567 +                      EQ     RBB2                                                    MIO      1305
                                                                                                                 MIO      1306
           566  56270                    RBB1     SA2    B7          LWORDB = [LINKB]                            MIO      1307
                                                  PRNTM  RBB,BTW,X2                                              MIO      1308
           567  43152                    RBB2     MX1    -BT.LKFL                                                MIO      1309
                     76060                        SX0    B6                                                      MIO      1310
                          20122                   LX1    BT.LKFP                                                 MIO      1311
                               11212              BX2    X1*X2                                                   MIO      1312
           570  20022                             LX0    BT.LKFP     LKF[LWORDB] = LINKF                         MIO      1313
                     12602                        BX6    X0+X2                                                   MIO      1314
                          54620                   SA6    A2          [LINKB] = LWORDB                            MIO      1315
                                                  PRNTM  RBB,BTW,X6                                              MIO      1316
           571  0460000556 +                      ZR     B6,RBB      IF LINKF = 0  */LAST ENTRY ON LIST          MIO      1317
                                                                                                                 MIO      1318
                          56260                   SA2    B6          LWORDF = [LINKF]                            MIO      1319
                                                  PRNTM  RBB,BTW,X2                                              MIO      1320
                               20122              LX1    -BT.LKFP+BT.LKBP                                        MIO      1321
           572  76070                             SX0    B7                                                      MIO      1322
                     11212                        BX2    X1*X2                                                   MIO      1323
                          20044                   LX0    BT.LKBP     LKB[LWORDF] = LINKB                         MIO      1324
                               12702              BX7    X0+X2                                                   MIO      1325
           573  54720                             SA7    A2          [LINKF] = LWORDF                            MIO      1326
                                                  PRNTM  RBB,BTW,X7                                              MIO      1327
                     0400000556 +                 EQ     RBB                                                     MIO      1328
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    33
        CGB - COLLECT GARBAGE IN BLK                                  CGB 
  
                                        **        CGB - COLLECT GARBAGE IN BLK                                   MIO      1330
                                        *                                                                        MIO      1331
                                        *         ENTRY  NONE                                                    MIO      1332
                                        *                                                                        MIO      1333
                                        *         EXIT   ALLOCATED BLOCKS MOVED TO A CONTIGUOUS AREA             MIO      1334
                                        *                LIST OF AVAILABLE SPACE UPDATED                         MIO      1335
                                        *                                                                        MIO      1336
                                        *         CALLS  MVE=.                                                   MIO      1337
                                                                                                                 MIO      1338
           574                           CGB      ENTRY. **,#                                                    CCGNC     509
                                                                                                                 MIO      1340
                                                  PRINT  CGB,(* --MX.AVS = *Z8),MX.AVS                           MIO      1341
           575  5130000000 X                      SA3    O.SEQ                                                   MIO      1342
                          5110000000 X            SA1    O.BIT                                                   MIO      1343
           576  5120000000 X                      SA2    O.BST                                                   MIO      1344
                          5140000000 X            SA4    O.BLK                                                   MIO      1345
           577  63430                             SB4    X3                                                      MIO      1346
                     63211                        SB2    X1+B1                                                   MIO      1347
                          63320                   SB3    X2                                                      MIO      1348
                               73341              SX3    X4+B1       TO = O.BLK+1                                MIO      1349
           600  53441                             SA4    X4+B1       FROM = O.BLK+1; BHW = [FROM]                MIO      1350
                                                  PRNTM  CGB,BHW,X4                                              MIO      1351
                     6160000074                   SB6    60-BH.LENP                                              MIO      1352
                                                                                                                 MIO      1353
                                        *         LOOP TO MOVE BLOCKS TO CONTIGUOUS AREA                         MIO      1354
                                                                                                                 MIO      1355
           601  0304000621 +             CGB1     ZR     X4,CGB5     IF BHW = 0    */ END OF TABLE               MIO      1356
                                                                                                                 MIO      1357
                          22664                   LX6    B6,X4       TBHW = BHW                                  MIO      1358
                               74240              SX2    A4          TFROM = FROM                                MIO      1359
           602  63560                             SB5    X6          L = LEN[TBHW]                               MIO      1360
                                                  LX6    BH.LENP+59-BH.AVP                                       MIO      1361
                     54445                        SA4    A4+B5       FROM = FROM+L; BHW = [FROM]                 MIO      1362
                                                  PRNTM  CGB,BHW,X4                                              MIO      1363
                          0336000601 +            MI     X6,CGB1     IF AV[TBHW] = 1  */BLOCK AVAILABLE          MIO      1364
                                                                                                                 MIO      1365
           603  37132                             IX1    X3-X2                                                   MIO      1366
                     0311000605 +                 NZ     X1,CGB2     IF TFROM " TO */BLOCK MUST BE MOVED         MIO      1367
                                                                                                                 MIO      1368
                               73335              SX3    X3+B5       TO = TO + L                                 MIO      1369
           604  0400000601 +                      EQ     CGB1                                                    MIO      1370
                                                                                                                 MIO      1371
                                        *         UPDATE *BST*,*BIT* ENTRIES                                     MIO      1372
                                                                                                                 MIO      1373
           605  20630                    CGB2     LX6    1+BH.AVP-BH.BIP                                         MIO      1374
                     43152                        MX1    -RI.FWAL                                                MIO      1375
                          53462                   SA4    X6+B2       RIW = BIT(BI[TBHW]+1)                       MIO      1376
                                                  PRNTM  CGB,RIW,X4                                              MIO      1377
                               20122              LX1    RI.FWAP                                                 MIO      1378
           606  11414                             BX4    X1*X4                                                   MIO      1379
                     20622                        LX6    BH.BIP-BH.BSTP                                          MIO      1380
                          73731                   SX7    X3+B1       NFWA = TO + 1                               MIO      1381
                               63760              SB7    X6          B = BST[TBHW]                               MIO      1382
           607  20722                             LX7    RI.FWAP                                                 MIO      1383
                     12647                        BX6    X4+X7       FWA[RIW] = NFWA                             MIO      1384
                          54640                   SA6    A4          BIT(BI[TBHW]+1) = RIW                       MIO      1385
                                                  PRNTM  CGB,RIW,X6                                              MIO      1386
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    34
        CGB - COLLECT GARBAGE IN BLK                                  CGB 
  
           610  0770000614 +                      MI     B7,CGB4     IF B < 0      */NO BST ENTRY                MIO      1387
                                                                                                                 MIO      1388
                          56437                   SA4    B3+B7       BAW = BST(B)                                MIO      1389
                                                  PRNTM  CGB,BAW,X4                                              MIO      1390
                               20752              LX7    -RI.FWAP                                                FCC1498X    5
           611  63621                             SB6    X2+B1       OFWA = TFROM + 1                            MIO      1391
                     0546000613 +                 NE     B4,B6,CGB3  IF O.SEQ " OFWA                             MIO      1392
                                                                                                                 MIO      1393
           612  5170000000 X                      SA7    O.SEQ       O.SEQ = NFWA                                MIO      1394
                                                                                                                 MIO      1395
           613  20152                    CGB3     LX1    BA.FWAP-RI.FWAP                                         MIO      1396
                     11414                        BX4    X1*X4                                                   MIO      1397
                                                  LX7    BA.FWAP                                                 FCC1498X    6
                          12647                   BX6    X4+X7       FWA[BAW] = NFWA                             MIO      1399
                                                  PRNTM  CGB,BAW,X6                                              MIO      1400
                               54640              SA6    A4          BST(B) = BAW                                MIO      1401
                                                                                                                 MIO      1402
                                        *         UPDATE BLOCK TRAILER WORD AND MOVE BLOCK.                      MIO      1403
                                                                                                                 MIO      1404
           614  76750                    CGB4     SX7    B5                                                      MIO      1405
                                                  LX7    BT.LENP     LEN[BTW] = L                                MIO      1406
                     6175777776                   SB7    B5-1                                                    MIO      1407
                               53727              SA7    X2+B7       [TFROM+L-1] = BTW                           MIO      1408
                                                  PRNTM  CGB,BTW,X7                                              MIO      1409
           615  76150                             SX1    B5                                                      MIO      1410
                     63625                        SB6    B5+X2       SFROM = TFROM + L                           FCCA462     5
                          63535                   SB5    B5+X3       STO = STO + L                               FCCA462     6
           616  0100000000 X                      MOVE   X1,X2,X3    MOVE(L,TFROM,TO)                            MIO      1411
           617  56460                             SA4    B6          FROM = SFROM                                FCCA462     7
                     76350                        SX3    B5          TO = STO                                    FCCA462     8
                          6160000074              SB6    60-BH.LENP                                              MIO      1414
           620  0400000601 +                      EQ     CGB1                                                    MIO      1415
                                                                                                                 MIO      1416
                                        *         UPDATE LIST OF AVAILABLE SPACE.                                MIO      1417
                                                                                                                 MIO      1418
           621  5120000000 X             CGB5     SA2    O.BLK                                                   MIO      1419
                          5140000000 X            SA4    L.BLK                                                   MIO      1420
           622  6244777776                        SB4    X4-1                                                    MIO      1421
                          73424                   SX4    X2+B4                                                   MIO      1422
                               37743              IX7    X4-X3       L = FROM-TO                                 MIO      1423
           623  43600                             MX6    0                                                       MIO      1424
                     53640                        SA6    X4          BLK(L.BLK) = 0                              MIO      1425
                          5160000010 +            SA6    MX.AVS      MX.AVS = L    */MAX AVAILABLE SPACE IN BLK  MIO      1426
           624  63230                             SB2    X3                                                      MIO      1427
                     63370                        SB3    X7                                                      MIO      1428
                                                  PRINT  CGB,(* MAX SPACE AFTER CGB = *Z8),B3                    MIO      1429
                          5160000012 +            SA6    LAS         LAS = 0                                     MIO      1430
           625  0307000574 +                      ZR     X7,CGB      IF L = 0  */ NO FREE SPACE                  FCCA509X    7
                          0100000531 +            CALL   ABB         CALL ABB(TO,L)                              MIO      1431
           626  0400000574 +                      EQ     CGB                                                     MIO      1432
                                                                                                                 MIO      1433
                                         #ECS     IFNE   CT.ECS,0                                                MIO      1434
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    35
        ASL - ALLOCATE SPACE IN LCM                                   ASL 
  
                                        **        ASL - ALLOCATE SPACE IN LCM                                    MIO      1436
                                        *                                                                        MIO      1437
                                        *         ENTRY  (B2) = FBLK, FWA OF LCM BLOCK                           MIO      1438
                                        *                (B5) = NL, NEW LENGTH REQUESTED                         MIO      1439
                                        *                                                                        MIO      1440
                                        *         EXIT   (X2) = FWA, FWA OF BLOCK ALLOCATED                      MIO      1441
                                        *                (X7) = L, LENGTH OF BLOCK ALLOCATED                     MIO      1442
                                        *                                                                        MIO      1443
                                        *         CALLS  ABL,CGL,RBL.                                            MIO      1444
                                                                                                                 MIO      1445
           627  0200400627 +             ASL      ROUTINE                                                        MIO      1446
           630  0420000635 +                      ZR     B2,ASL1     IF FBLK = 0   */NO SPACE ALLOCATED          MIO      1448
                                                                                                                 MIO      1449
                                        *         CHECK IF BLOCK CAN BE REWRITTEN IN SAME SPACE                  MIO      1450
                                                                                                                 MIO      1451
                          76020                   SX0    B2                                                      MIO      1452
           631  5100000677 +                      RX1    X0,ASLA     BHW = [FLCM]                                MIO      1453
                                                  PRNTM  ASL,BHW,X1                                              MIO      1454
                                                  LX1    -BH.LENP                                                MIO      1455
                     63310                        SB3    X1          OL = LEN[BHW]                               MIO      1456
                          0635000675 +            LE     B5,B3,ASL7  IF NL .LE. OL */REUSE BLOCK                 MIO      1457
                                                                                                                 MIO      1458
           634  0100000701 +                      CALL   ABL         CALL ABL(FBLK,OL)                           MIO      1459
                                                                                                                 MIO      1460
                                        *         CHECK IF SPACE AVAILABLE AT O.LCM                              MIO      1461
                                                                                                                 MIO      1462
           635  5120000000 +             ASL1     SA2    O.LCM       FBLK = O.LCM                                MIO      1463
                          5110000000 X            SA1    LCM.FL                                                  MIO      1464
           636  5130000001 +                      SA3    MAX.LCM                                                 MIO      1465
                          6155000020              SB5    B5+LCM.XL   NL = NL + LCM.XL  */EXTRA LENGTH            MIO      1466
                                                  PRINT  ASL,(* --O.LCM,LCM.FL,MAX.LCM,LEN OF BLOCK = *4Z8),(X2, MIO      1467
                                        ,X1,X3,B5)                                                               MIO      1468
           637  73625                             SX6    X2+B5       L = O.LCM + NL                              MIO      1469
                     73415                        SX4    X1+B5       FL = LCM.FL + NL                            MIO      1470
                          37761                   IX7    X6-X1                                                   MIO      1471
           640  0337000651 +                      MI     X7,ASL2     IF L .LT. LCM.FL                            MIO      1472
                                                                                                                 MIO      1473
                          7274010007              SX7    X4+10007B   NFL = FL + 10007B                           MIO      1474
           641  37473                             IX4    X7-X3                                                   MIO      1475
                     0324000652 +                 PL     X4,ASL3     IF NFL . GE. MAX.LCM                        MIO      1476
                                                                                                                 MIO      1477
                                        *         REQUEST MORE STORAGE                                           MIO      1478
                                                                                                                 MIO      1479
                               21711              AX7    9                                                       MIO      1480
           642  20747                             LX7    39                                                      MIO      1481
                     5170000700 +                 SA7    ASLA+1                                                  MIO      1482
                               10366              BX3    X6                                                      CCGA012     6
           643  10422                             BX4    X2                                                      CCGA012     7
                     7160150515                   MEMORY LCM,ASLA+1,R                                            MIO      1483
           647  10633                             BX6    X3                                                      CCGA012     8
                     10244                        BX2    X4                                                      CCGA012     9
                          5130000700 +            SA3    ASLA+1                                                  MIO      1484
           650  10733                             BX7    X3                                                      MIO      1485
                     21736                        AX7    30                                                      MIO      1486
                          5170000000 X            SA7    LCM.FL                                                  MIO      1487
                                                  PRINT  ASL,(* LCM REQUEST - LCM.FL = *Z8),X7                   MIO      1488
                                                                                                                 MIO      1489
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    36
        ASL - ALLOCATE SPACE IN LCM                                   ASL 
  
           651  54620                    ASL2     SA6    A2          O.LCM = L                                   MIO      1490
                     76750                        SX7    B5                                                      MIO      1491
                          0400000627 +            EQ     ASL                                                     MIO      1492
                                                                                                                 MIO      1493
           652  5120000011 +             ASL3     SA2    MX.AVL                                                  MIO      1494
                          21102                   AX1    2           L = LCM.FL / 4                              MIO      1495
                               63420              SB4    X2                                                      MIO      1496
           653  0745000676 +                      GT     B5,B4,ASL8  IF NL > MX.AVL                              MIO      1497
                                                                                                                 MIO      1498
                          37612                   IX6    X1-X2                                                   MIO      1499
           654  0336000666 +                      MI     X6,ASL5     IF MX.AVL > L */GARBAGE COLLECT             MIO      1500
                                                                                                                 MIO      1501
                                        *         SEARCH AVAILABLE LIST                                          MIO      1502
                                                                                                                 MIO      1503
                          5110000013 +            SA1    LAL         BTW = LAL                                   MIO      1504
                                                  PRINT  ASL,(* --LAL = *Z20),LAL                                MIO      1505
           655  20152                             LX1    -BT.LKFP    I = LKF[BTW]                                MIO      1506
                     73010                        SX0    X1                                                      MIO      1507
                          0300000676 +            ZR     X0,ASL8     IF LAL = 0                                  MIO      1508
                                                                                                                 MIO      1509
           656  5100000677 +                      RX2    X0,ASLA     BTW = [I]                                   MIO      1510
                                                  PRNTM  ASL,BTW,X2                                              MIO      1511
                                                                                                                 MIO      1512
                                         ASL4     LX2    -BT.LENP                                                MIO      1513
           661  63320                             SB3    X2          L = LEN[BTW]                                MIO      1514
                     20252                        LX2    BT.LENP-BT.LKFP                                         MIO      1515
                          0635000672 +            LE     B5,B3,ASL6  IF NL @ L                                   MIO      1516
                                                                                                                 MIO      1517
           662  63620                             SB6    X2          I = LKF[BTW]                                MIO      1518
                     73020                        SX0    X2                                                      MIO      1519
                          5100000677 +            RX2    X0,ASLA     BTW = [I]                                   MIO      1520
                                                  PRNTM  ASL,BTW,X2                                              MIO      1521
                     0560000661 +                 NZ     B6,ASL4                                                 MIO      1522
           665  0400000676 +                      EQ     ASL8                                                    MIO      1523
                                                                                                                 MIO      1525
           666  76650                    ASL5     SX6    B5                                                      MIO      1526
                     5160000677 +                 SA6    ASLA                                                    MIO      1527
           667  0100001000 +                      CALL   CGL         CALL GCL                                    MIO      1528
           670  5110000677 +                      SA1    ASLA                                                    MIO      1529
                          6251777757              SB5    X1-LCM.XL   NL = NL - LCM.XL                            FCC0391    10
           671  0400000635 +                      EQ     ASL1                                                    MIO      1531
                                                                                                                 MIO      1532
                                        *         REMOVE BLOCK FROM AVAILABLE LIST                               MIO      1533
                                                                                                                 MIO      1534
           672  20222                    ASL6     LX2    BT.LKFP                                                 MIO      1535
                     10122                        BX1    X2                                                      MIO      1536
                          67413                   SB4    B1-B3                                                   MIO      1537
                               63204              SB2    X0+B4                                                   MIO      1538
           673  0100000750 +                      CALL   RBL         CALL RBL(BTW)                               MIO      1539
           674  76220                             SX2    B2                                                      MIO      1540
                     76730                        SX7    B3                                                      MIO      1541
                          0400000627 +            EQ     ASL                                                     MIO      1542
                                                                                                                 MIO      1543
           675  76220                    ASL7     SX2    B2          FWA = FBLK                                  MIO      1544
                     76730                        SX7    B3          L = OL                                      MIO      1545
                          0400000627 +            EQ     ASL                                                     MIO      1546
                                                                                                                 MIO      1547
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    37
        ASL - ALLOCATE SPACE IN LCM                                   ASL 
  
           676  7120777776               ASL8     SX2    -1                                                      MIO      1548
                          0400000627 +            EQ     ASL                                                     MIO      1549
                                                                                                                 MIO      1550
           677                     2     ASLA     BSS    2                                                       MIO      1551
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    38
        ABL - ADD BLOCK TO LCM LIST                                   ABL 
  
                                        **        ABL - ADD BLOCK TO LCM LIST                                    MIO      1553
                                        *                                                                        MIO      1554
                                        *         ENTRY  (B2) = FBLK, FWA OF BLOCK (ADDRESS OF BHW)              MIO      1555
                                        *                (B3) = L, LENGTH OF BLOCK (INCLUDING BHW AND BTW)       MIO      1556
                                        *                                                                        MIO      1557
                                        *         EXIT   BLOCK ADDED TO LINKED LIST                              MIO      1558
                                        *                                                                        MIO      1559
                                        *         CALLS  RBL.                                                    MIO      1560
                                                                                                                 MIO      1561
           701  0200400701 +             ABL      ROUTINE                                                        MIO      1562
           702  5110000011 +                      SA1    MX.AVL                                                  MIO      1564
                          67731                   SB7    B3-B1                                                   MIO      1565
                               66427              SB4    B2+B7       ABTW = FBLK+L-1                             MIO      1566
           703  73613                             SX6    X1+B3       MX.AVL = MX.AVL + LEN                       MIO      1567
                     5061000000                   SA6    A1+                                                     MIO      1568
                                                                                                                 MIO      1569
                                        *         GET BLOCK TRAILER WORDS FOR PRECEDING AND FOLLOWING BLOCKS.    MIO      1570
                                                                                                                 MIO      1571
                               77021              SX0    B2-B1                                                   MIO      1572
           704  0330000711 +                      MI     X0,ABL1     IF APBTW < 0  */NO PRECEEDING BLOCK         MIO      1573
                                                                                                                 MIO      1574
                          5100000746 +            RX1    X0,ABLA     PBTW = [FBLK-1]                             MIO      1575
                                                  PRNTM  ABL,BTW,X1                                              MIO      1576
                                                                                                                 MIO      1577
                                        *         COMBINE ADJACENT AVAILABLE BLOCKS                              MIO      1578
                                                                                                                 MIO      1579
                                                  LX1    59-BT.AVP                                               MIO      1580
                     0321000711 +                 PL     X1,ABL1     IF ^AV[PBTW]  */NOT AVAILABLE SPACE         MIO      1581
                                                                                                                 MIO      1582
                                                  LX1    1+BT.AVP-BT.LENP                                        MIO      1583
                               63710              SB7    X1          PL = LEN[PBTW]                              MIO      1584
           707  5120000011 +                      SA2    MX.AVL                                                  MIO      1585
                          67227                   SB2    B2-B7       FBLK = FBLK-PL                              MIO      1586
                               66337              SB3    B3+B7       L = L + PL                                  MIO      1587
           710  73727                             SX7    X2+B7                                                   MIO      1588
                                                  LX1    BT.LENP                                                 MIO      1589
                     54720                        SA7    A2                                                      MIO      1590
                          0100000750 +            CALL   RBL         CALL RBL(PBTW)                              MIO      1591
                                                                                                                 MIO      1592
           711  5110000000 +             ABL1     SA1    O.LCM                                                   MIO      1593
                          76041                   SX0    B4+B1                                                   MIO      1594
                               37110              IX1    X1-X0                                                   MIO      1595
           712  0301000722 +                      ZR     X1,ABL2     IF AFBHW = 0  */NO FOLLOWING BLOCK          MIO      1596
                                                                                                                 MIO      1597
                          5100000747 +            RX2    X0,ABLB     FBHW = [ABTW+1]                             MIO      1598
                                                  LX2    -BH.LENP    LS = LEN[FBHW]                              MIO      1599
                     73024                        SX0    X2+B4                                                   MIO      1600
                          5100000747 +            RX3    X0,ABLB     FBTW = [ABTW+LS]                            MIO      1601
                                                  PRNTM  ABL,BTW,X3                                              MIO      1602
                                                  LX3    59-BT.AVP                                               MIO      1603
                     0323000722 +                 PL     X3,ABL2     IF ^AV[FBTW]  */NOT AVAILABLE SPACE         MIO      1604
                                                                                                                 MIO      1605
                                                  LX3    1+BT.AVP-BT.LENP                                        MIO      1606
                               63730              SB7    X3          FL = LEN[FBTW]                              MIO      1607
           717  5120000011 +                      SA2    MX.AVL                                                  MIO      1608
                          66337                   SB3    B3+B7       L = L+FL                                    MIO      1609
                               66447              SB4    B4+B7       ABTW = ABTW+FL                              MIO      1610
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    39
        ABL - ADD BLOCK TO LCM LIST                                   ABL 
  
           720  10133                             BX1    X3                                                      MIO      1611
                     73727                        SX7    X2+B7                                                   MIO      1612
                                                  LX1    BT.LENP                                                 MIO      1613
                          54720                   SA7    A2                                                      MIO      1614
           721  0100000750 +                      CALL   RBL         CALL RBL(FBTW)                              MIO      1615
                                                                                                                 MIO      1616
                                        *         STORE NEW BLOCK HEADER AND TRAILER WORDS.                      MIO      1617
                                                                                                                 MIO      1618
           722  76630                    ABL2     SX6    B3                                                      MIO      1619
                     43101                        MX1    1                                                       MIO      1620
                                                  LX6    BH.LENP     LEN[BHW] = LEN                              MIO      1621
                                                  LX1    1+BH.AVP    AV[BHW] = 1                                 MIO      1622
                          12616                   BX6    X1+X6                                                   MIO      1623
           723  6170000100                        SB7    MIN.AL                                                  MIO      1624
                          10766                   BX7    X6          BTW = BHW                                   MIO      1625
                               76020              SX0    B2                                                      MIO      1626
           724  5100000746 +                      WX6    X0,ABLA     [FBLK] = BHW                                MIO      1627
                                                  PRNTM  ABL,BHW,X6                                              MIO      1628
           726  0773000732 +                      LT     B7,B3,ABL3  IF MIN.AL < LEN                             MIO      1629
                                                                                                                 MIO      1630
                          76040                   SX0    B4                                                      MIO      1631
           727  5100000746 +                      WX7    X0,ABLA     [ABTW] = BTW                                MIO      1632
                                                  PRNTM  ABL,BTW,X7                                              MIO      1633
           731  0400000701 +                      EQ     ABL                                                     MIO      1634
                                                                                                                 MIO      1635
           732  5130000013 +             ABL3     SA3    LAL         OPTR = LAL                                  MIO      1636
                          76640                   SX6    B4                                                      MIO      1637
                               20622              LX6    BT.LKFP     LKF[NPTR] = ABTW                            MIO      1638
           733  12737                             BX7    X3+X7       LKF[BTW] = LKF[OPTR]                        MIO      1639
                     54630                        SA6    A3          LAS = NPTR                                  MIO      1640
                                                  PRINT  ABL,(* LAL = *Z20),LAL                                  MIO      1641
                          20352                   LX3    -BT.LKFP                                                MIO      1642
                               73330              SX3    X3          LINKF = LKF[OPTR]                           MIO      1643
           734  0303000743 +                      ZR     X3,ABL4     IF LINK = 0                                 MIO      1644
                                                                                                                 MIO      1645
                          73030                   SX0    X3                                                      MIO      1646
           735  5100000746 +                      RX1    X0,ABLA     LWORDF = [LINKF]                            MIO      1647
                     43352                        MX3    -BT.LKBL                                                MIO      1648
                          20344                   LX3    BT.LKBP                                                 MIO      1649
                               11231              BX2    X3*X1       NWORD = LWORDF                              MIO      1650
           740  20622                             LX6    BT.LKBP-BT.LKFP   LKB[NWORD] = ABTW                     MIO      1651
                     12626                        BX6    X2+X6                                                   MIO      1652
                          5100000746 +            WX6    X0,ABLA     [LINKF] = NWORD                             MIO      1653
                                                  PRNTM  ABL,BTW,X6                                              MIO      1654
                                                                                                                 MIO      1655
           743  76040                    ABL4     SX0    B4                                                      MIO      1656
                     5100000746 +                 WX7    X0,ABLA     [ABTW] = BTW                                MIO      1657
                                                  PRNTM  ABL,BTW,X7                                              MIO      1658
           745  0400000701 +                      EQ     ABL                                                     MIO      1659
                                                                                                                 MIO      1660
           746                     1     ABLA     BSS    1                                                       MIO      1661
           747                     1     ABLB     BSS    1                                                       MIO      1662
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    40
        RBL - REMOVE BLOCK FROM LCM LIST                              RBL 
  
                                        **        RBL - REMOVE  BLOCK FROM LCM LIST                              MIO      1664
                                        *                                                                        MIO      1665
                                        *         ENTRY  (X1) = BTW, BLOCK TRAILER WORD                          MIO      1666
                                        *                                                                        MIO      1667
                                        *         EXIT   BLOCK REMOVED FROM LINKED LIST                          MIO      1668
                                                                                                                 MIO      1671
           750  0200400750 +             RBL      ROUTINE                                                        MIO      1672
           751  5120000011 +                      SA2    MX.AVL                                                  MIO      1674
                          6170000100              SB7    MIN.AL                                                  MIO      1675
                                                  LX1    -BT.LENP                                                MIO      1676
           752  73610                             SX6    X1          L = LEN[BTW]                                MIO      1677
                     63610                        SB6    X1                                                      MIO      1678
                          37726                   IX7    X2-X6       MX.AVL = MX.AVL - L                         MIO      1679
                               20152              LX1    BT.LENP-BT.LKFP                                         MIO      1680
           753  54720                             SA7    A2                                                      MIO      1681
                     0767000750 +                 LT     B6,B7,RBL   IF L .LT. MIN.AB                            MIO      1682
                                                                                                                 MIO      1683
                               63610              SB6    X1          LINKF = LKF[BTW]                            MIO      1684
           754  20152                             LX1    BT.LKFP-BT.LKBP                                         MIO      1685
                     63710                        SB7    X1          LINKB = LKB[BTW]                            MIO      1686
                          0570000757 +            NZ     B7,RBL1     IF LINKB " 0  */NOT FIRST ENTRY ON LIST     MIO      1687
                                                                                                                 MIO      1688
           755  5120000013 +                      SA2    LAL                                                     MIO      1689
                          43400                   MX4    0                                                       MIO      1690
           756  0400000762 +                      EQ     RBL2                                                    MIO      1691
                                                                                                                 MIO      1692
           757  76070                    RBL1     SX0    B7                                                      MIO      1693
                     43401                        MX4    1                                                       MIO      1694
                          5100000777 +            RX2    X0,RBLA     LWORDB = [LINKB]                            MIO      1695
                                                  PRNTM  RBL,BTW,X2                                              MIO      1696
           762  43152                    RBL2     MX1    -BT.LKFL                                                MIO      1697
                     76760                        SX7    B6                                                      MIO      1698
                          20122                   LX1    BT.LKFP                                                 MIO      1699
                               11212              BX2    X1*X2                                                   MIO      1700
           763  20722                             LX7    BT.LKFP     LKF[LWORDB] = LINKF                         MIO      1701
                     12627                        BX6    X2+X7                                                   MIO      1702
                          0324000767 +            PL     X4,RBL3                                                 MIO      1703
                                                                                                                 MIO      1704
           764  5100000777 +                      WX6    X0,RBLA     [LINKB] = LWORDB                            MIO      1705
                                                  PRNTM  RBL,BTW,X6                                              MIO      1706
           766  0400000770 +                      EQ     RBL4                                                    MIO      1707
                                                                                                                 MIO      1708
           767  5160000013 +             RBL3     SA6    LAL                                                     MIO      1709
                                                  PRINT  RBL,(* LAL = *Z20),LAL                                  MIO      1710
                                                                                                                 MIO      1711
           770  0460000750 +             RBL4     ZR     B6,RBL      IF LINKF = 0  */ LAST ENTRY ON LIST         FCC0415    45
                          20122                   LX1    -BT.LKFP+BT.LKBP                                        MIO      1715
                               76060              SX0    B6                                                      MIO      1716
           771  5100000777 +                      RX2    X0,RBLA     LWORDF = [LINKF]                            MIO      1717
                                                  PRNTM  RBL,BTW,X2                                              MIO      1718
                     76670                        SX6    B7                                                      MIO      1719
                          11212                   BX2    X1*X2                                                   MIO      1720
                               20644              LX6    BT.LKBP     LKB[LWORDF] = LINKB                         MIO      1721
           774  12762                             BX7    X6+X2                                                   MIO      1722
                     5100000777 +                 WX7    X0,RBLA     [LINKF] = LWORDF                            MIO      1723
                                                  PRNTM  RBL,BTW,X7                                              MIO      1724
           776  0400000750 +                      EQ     RBL                                                     MIO      1725
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    41
        RBL - REMOVE BLOCK FROM LCM LIST                              RBL 
  
                                                                                                                 MIO      1726
           777                     1     RBLA     BSS    1                                                       MIO      1727
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    42
        CGL - COLLECT GARBAGE IN LCM                                  CGL 
  
                                        **        CGL - COLLECT GARBAGE IN LCM                                   MIO      1729
                                        *                                                                        MIO      1730
                                        *         ENTRY  NONE                                                    MIO      1731
                                        *                                                                        MIO      1732
                                        *         EXIT   ALLOCATED BLOCKS MOVED TO A CONTIGUOUS AREA             MIO      1733
                                        *                LIST OF AVAILABLE SPACE UPDATED                         MIO      1734
                                        *                                                                        MIO      1736
                                        *         CALLS  MVL.                                                    MIO      1737
                                                                                                                 MIO      1738
          1000  0200401000 +             CGL      ROUTINE                                                        MIO      1739
                                                  PRINT  CGL,(* -- MX.AVL =*Z8),MX.AVL                           FCC0415    46
          1001  5130000000 +                      SA3    O.LCM                                                   MIO      1742
                          5110000000 X            SA1    O.BIT                                                   MIO      1743
          1002  43600                             MX6    0                                                       MIO      1744
                     10033                        BX0    X3                                                      MIO      1745
                          5100001037 +            WX6    X0,CGLA     LCM(O.LCM) = 0 */LOOP TERMINATOR            MIO      1746
          1005  63211                             SB2    X1+B1                                                   MIO      1747
                     6160000074                   SB6    60-BH.LENP                                              MIO      1748
                               43000              MX0    0           FROM = 0                                    MIO      1749
          1006  76300                             SX3    B0          TO = 0                                      MIO      1750
                     5100001037 +                 RX4    X0,CGLA     BHW = LCM(FROM)                             MIO      1751
                                                  PRNTM  CGL,BHW,X4                                              MIO      1752
                                                                                                                 MIO      1753
                                        *         LOOP TO MOVE BLOCKS TO CONTIGUOUS AREA.                        MIO      1754
                                                                                                                 MIO      1755
          1011  0304001034 +             CGL1     ZR     X4,CGL5     IF BHW = 0    */END OF LCM                  MIO      1756
                                                                                                                 MIO      1757
                          22664                   LX6    B6,X4       TBHW = BHW                                  MIO      1758
                               10200              BX2    X0          TFROM = FROM                                MIO      1759
          1012  73160                             SX1    X6          L = LEN[TBHW]                               MIO      1760
                                                  LX6    BH.LENP+59-BH.AVP                                       MIO      1761
                     36001                        IX0    X0+X1       FROM = FROM + L                             MIO      1762
                          5100001037 +            RX4    X0,CGLA     BHW = LCM(FROM)                             MIO      1763
                                                  PRNTM  CGL,BHW,X4                                              MIO      1764
                     0336001011 +                 MI     X6,CGL1     IF AV[TBHW]     */BLOCK AVAILABLE           MIO      1765
                                                                                                                 MIO      1766
          1015  6251777775                        SB5    X1-2        LEN = L - 2                                 MIO      1767
                          37732                   IX7    X3-X2                                                   MIO      1768
          1016  0317001020 +                      NZ     X7,CGL2     IF TFROM " TO  */BLOCK MUST BE MOVED        MIO      1769
                                                                                                                 MIO      1770
                          36313                   IX3    X1+X3       TO = TO + L                                 MIO      1771
          1017  0400001011 +                      EQ     CGL1                                                    MIO      1772
                                                                                                                 MIO      1773
                                        *         UPDATE *BIT* ENTRY AND MOVE BLOCK HEADER WORD.                 MIO      1774
                                                                                                                 MIO      1775
          1020  10744                    CGL2     BX7    X4                                                      MIO      1776
                     20630                        LX6    1+BH.AVP-BH.BIP                                         MIO      1777
                          43152                   MX1    -RI.LCML                                                MIO      1778
                               53462              SA4    X6+B2       RIW = BIT(BI[TBHW]+1)                       MIO      1779
                                                  PRNTM  CGL,RIW,X4                                              MIO      1780
          1021  5170001037 +                      SA7    CGLA                                                    MIO      1781
                                                  LX1    RI.LCMP                                                 MIO      1782
                          73730                   SX7    X3          NLCM = TO                                   MIO      1783
                               11414              BX4    X1*X4                                                   MIO      1784
                                                  LX7    RI.LCMP                                                 MIO      1785
          1022  12747                             BX7    X4+X7       RA[RIW] = NLCM                              MIO      1786
                     54740                        SA7    A4          BIT(BI[TBHW+1]) = RIW                       MIO      1787
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    43
        CGL - COLLECT GARBAGE IN LCM                                  CGL 
  
                                                  PRNTM  CGL,RIW,X7                                              MIO      1788
                          10033                   BX0    X3                                                      MIO      1789
                               20644              LX6    BH.BIP                                                  MIO      1790
          1023  5100001040 +                      WX6    X0,CGLB     LCM(TO) = BHW                               MIO      1791
                                                  PRNTM  CGL,BHW,X6                                              MIO      1792
                                                                                                                 MIO      1793
                                        *         MOVE BLOCK                                                     MIO      1794
                                                                                                                 MIO      1795
          1025  76150                             SX1    B5                                                      MIO      1796
                     73221                        SX2    X2+B1       TFROM = TFROM+1                             MIO      1797
                          73331                   SX3    X3+B1       TO = TO+1                                   MIO      1798
          1026  0100001041 +                      CALL   MVL         MOVE(LEN,TFROM,TO)                          MIO      1799
                                                                                                                 MIO      1800
                                        *         MOVE BLOCK TRAILER WORD.                                       MIO      1801
                                                                                                                 MIO      1802
          1027  66411                             SB4    B1+B1                                                   MIO      1803
                     73714                        SX7    X1+B4                                                   MIO      1804
                          10033                   BX0    X3          TFROM = TFROM+L; TO = TO+L                  MIO      1805
                                                  LX7    BT.LENP     LEN[BTW] = L                                MIO      1806
          1030  5100001040 +                      WX7    X0,CGLB     LCM(TO) = BTW                               MIO      1807
                                                  PRNTM  CGL,BTW,X7                                              MIO      1808
          1032  5140001037 +                      SA4    CGLA                                                    MIO      1809
                          6160000074              SB6    60-BH.LENP                                              MIO      1810
          1033  73021                             SX0    X2+B1       FROM = TFROM+1                              MIO      1811
                     73331                        SX3    X3+B1       TO = TO+1                                   MIO      1812
                          0400001011 +            EQ     CGL1                                                    MIO      1813
                                                                                                                 MIO      1814
                                        *         UPDATE O.LCM AND LIST OF AVAILABLE SPACE.                      MIO      1815
                                                                                                                 MIO      1816
          1034  43700                    CGL5     MX7    0                                                       MIO      1817
                     10633                        BX6    X3                                                      MIO      1818
                          5170000013 +            SA7    LAL         LAL = 0                                     MIO      1819
          1035  5160000000 +                      SA6    O.LCM       O.LCM = TO                                  MIO      1820
                                                  PRINT  CGL,(* --O.LCM = *Z8),O.LCM                             MIO      1821
                          5170000011 +            SA7    MX.AVL      MX.AVL = 0                                  MIO      1822
          1036  0400001000 +                      EQ     CGL                                                     MIO      1823
                                                                                                                 MIO      1824
          1037                     1     CGLA     BSS    1                                                       MIO      1825
          1040                     1     CGLB     BSS    1                                                       MIO      1826
1       MIO - MASS STORAGE RANDOM I/O (INTERNAL ROUTINES)             COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    44
        MVL - MOVE BLOCK OF LCM DATA                                  MVL 
  
                                        **        MVL - MOVE BLOCK OF LCM DATA                                   MIO      1828
                                        *                                                                        MIO      1829
                                        *         ENTRY  (X1) = WORD COUNT                                       MIO      1830
                                        *                (X2) = SOURCE FWA                                       MIO      1831
                                        *                (X3) = DESTINATION FWA                                  MIO      1832
                                                                                                                 MIO      1833
          1041  0200401041 +             MVL      ROUTINE                                                        MIO      1834
          1042  63710                             SB7    X1                                                      MIO      1835
                     37623                        IX6    X2-X3                                                   MIO      1836
                          6160000100              SB6    100B        MOVE 100B WORDS AT A TIME.                  MIO      1837
          1043  5100000000 X                      SA0    =XB=FBV                                                 MIO      1838
                          0667001053 +            LE     B7,B6,MVL2  IF ONLY ONE MOVE NEEDED.                    MIO      1839
                                                                                                                 MIO      1840
          1044  66560                             SB5    B6                                                      MIO      1841
                     0326001046 +                 PL     X6,MVL1     IF MOVE DOWN.                               MIO      1842
                                                                                                                 MIO      1843
                               67576              SB5    B7-B6                                                   MIO      1844
          1045  73225                             SX2    X2+B5       PREPARE FOR UPWARD MOVE.                    MIO      1845
                     73335                        SX3    X3+B5                                                   MIO      1846
                          67506                   SB5    -B6                                                     MIO      1847
                                                                                                                 MIO      1848
          1046  73020                    MVL1     SX0    X2          READ BLOCK.                                 MIO      1849
                                                                                                                 F7540FT    64
          1047  0116000000                        RL     B6                                                      F7540FT    65
                                                                                                                 MIO      1857
          1050  73225                             SX2    X2+B5                                                   MIO      1858
                     73030                        SX0    X3          WRITE BLOCK.                                MIO      1859
                                                                                                                 F7540FT    66
          1051  0126000000                        WL     B6                                                      F7540FT    67
                                                                                                                 MIO      1867
          1052  67776                             SB7    B7-B6       COUNT WORDS.                                MIO      1868
                     73335                        SX3    X3+B5                                                   MIO      1869
                          0767001046 +            GT     B7,B6,MVL1  LOOP.                                       MIO      1870
                                                                                                                 MIO      1871
          1053  0607001041 +             MVL2     LE     B7,B0,MVL   RETURN IF FINISHED.                         MIO      1872
                                                                                                                 MIO      1873
                          66670                   SB6    B7          SETUP FOR LAST MOVE.                        MIO      1874
                               66570              SB5    B7                                                      MIO      1875
          1054  0400001046 +                      EQ     MVL1                                                    MIO      1876
                                                                                                                 MIO      1877
                                         #ECS     ENDIF                                                          MIO      1878
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    45
        SBD - SAVE BLOCK TO DISK                                      SBD 
  
                                        **        SBD - SAVE BLOCK TO DISK                                       MIO      1881
                                        *                                                                        MIO      1882
                                        *         ENTRY  (X4) = FSCM, SCM FWA OF BLOCK                           MIO      1883
                                        *                (X5) = LEN, LENGTH OF BLOCK                             MIO      1884
                                        *                                                                        MIO      1885
                                        *         EXIT   (X1) = RIW, RANDOM INDEX WORD                           MIO      1886
                                        *                2/AT,1/0,18/LEN,9/0,30/RA.                              MIO      1887
                                        *                                                                        MIO      1888
                                        *         CALLS  WRITER, PUTW.                                           MIO      1889
                                                                                                                 MIO      1890
          1055                           SBD      ENTRY. **,#                                                    CCGNC     510
                                                                                                                 MIO      1892
                                        *         WRITE RECORD TO DISK.                                          MIO      1893
                                                                                                                 MIO      1894
          1056  5120000002 +                      SA2    O.DISK      DA = O.DISK   */DISK ADDRESS.               MIO      1895
                          10655                   BX6    X5                                                      MIO      1896
          1057  5160001074 +                      SA6    SBDB                                                    MIO      1897
                                                                                                                 MIO      1898
                                         #RM      IFEQ   CP#RM,0                                                 MIO      1899
                                                                                                                 MIO      1900
                                        *         6000 MACE I/O                                                  MIO      1901
                                                                                                                 MIO      1902
                          73350                   SX3    X5                                                      MIO      1903
                               21306              AX3    6                                                       MIO      1904
          1060  73331                             SX3    X3+B1       RL=LEN/100B+1 */RECORD LENGTH               MIO      1905
                     36623                        IX6    X2+X3                                                   MIO      1906
                          54620                   SA6    A2          O.DISK = DA + RL                            MIO      1907
                                                                                   */SET OPT FET FOR WRITE       MIO      1908
          1061  5110000014 +                      SETFET OPT,X4,X5,WRITE   SET OPT FET FOR WRITE                 MIO      1909
          1065  7160001073 +                      SX6    SBDA                                                    MIO      1910
                          5160000006 X            SA6    =XF.OPT+6                                               MIO      1911
          1066  7120000000 X                      WRITER =XF.OPT,R   WRITE RECORD                                MIO      1912
          1070  5120001073 +                      SA2    SBDA                                                    MIO      1913
                                         #RM      ELSE                                                           MIO      1914
                                                                                                                 MIO      1915
                                        *         7000 RECORD MANAGER I/O                                        MIO      1916
                                                                                                                 MIO      1917
                                                  PUTW   =XFI.OPT,X4,X5,,X2        PUTW(FSCM,LEN,,DA)            MIO      1918
                                                  FETCH  =XFI.OPT,WA=X3                                          MIO      1919
                                                  BX6    X3                                                      MIO      1920
                                                  SA6    A2          O.DISK = WA                                 MIO      1921
                                         #RM      ENDIF                                                          MIO      1922
                                                                                                                 MIO      1923
                                        *         FORM RANDOM INDEX WORD.                                        MIO      1924
                                                                                                                 MIO      1925
                          5150001074 +            SA5    SBDB                                                    MIO      1926
          1071  20547                             LX5    RI.LENP     LEN[RIW] = LEN                              MIO      1927
                                                  LX2    RI.RAP      RA[RIW] = FSCM                              MIO      1928
                     12125                        BX1    X2+X5       RIW           */RANDOM INDEX WORD           MIO      1929
                          20525                   LX5    -RI.LENP                                                MIO      1930
          1072  0400001055 +                      EQ     SBD                                                     MIO      1931
                                                                                                                 MIO      1932
          1073                     1     SBDA     BSSZ   1                                                       FCC0415    47
          1074                     1     SBDB     BSS    1                                                       MIO      1934
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    46
        GBD - GET BLOCK FROM DISK                                     GBD 
  
                                        **        GBD - GET BLOCK FROM DISK                                      MIO      1936
                                        *                                                                        MIO      1937
                                        *         ENTRY  (X2) = FSCM, SCM FWA OF BLOCK                           MIO      1938
                                        *                (X4) = DA, DISK ADDRESS                                 MIO      1939
                                        *                (X5) = LEN, LENGTH OF BLOCK                             MIO      1940
                                        *                                                                        MIO      1941
                                        *         EXIT   RECORD READ                                             MIO      1942
                                        *                                                                        MIO      1943
                                        *         CALLS  READ, GETW.                                             MIO      1944
                                                                                                                 MIO      1945
          1075                           GBD      ENTRY. **,#                                                    CCGNC     511
                                                                                                                 MIO      1947
                                        *         READ RECORD FROM DISK.                                         MIO      1948
                                                                                                                 MIO      1949
                                         #RM      IFEQ   CP#RM,0                                                 MIO      1950
                                                                                                                 MIO      1951
                                        *         6000 MACE I/O                                                  MIO      1952
                                                                                                                 MIO      1953
          1076  43636                             MX6    -RI.RAL                                                 MIO      1954
                     15746                        BX7    -X6*X4                                                  MIO      1955
                          5170000006 X            SA7    =XF.OPT+6   [F.OPT+6] = DA                              MIO      1956
          1077  5110000014 +                      SETFET OPT,X2,X5,READ                                          MIO      1957
          1103  7120000000 X                      READ   =XF.OPT,R   READ RECORD                                 MIO      1958
                                         #RM      ELSE                                                           MIO      1959
                                                                                                                 MIO      1960
                                        *         7000 RECORD MANAGER I/O                                        MIO      1961
                                                                                                                 MIO      1962
                                                  GETW   =XFI.OPT,X2,X5,,X4        GETW(FSCM,LEN,,DA)            MIO      1963
                                         #RM      ENDIF                                                          MIO      1964
                                                                                                                 MIO      1965
          1105  0400001075 +                      EQ     GBD                                                     MIO      1966
                                                                                                                 MIO      1967
                                         #ECS     IFNE   CT.ECS,0                                                MIO      1968
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    47
        SBL - SAVE BLOCK TO LCM                                       SBL 
  
                                        **        SBL - SAVE BLOCK TO LCM                                        MIO      1970
                                        *                                                                        MIO      1971
                                        *         ENTRY  (X2) = FLCM, LCM FWA OF BLOCK                           MIO      1972
                                        *                (X4) = FSCM, SCM FWA OF BLOCK                           MIO      1973
                                        *                (X5) = LEN, LENGTH OF BLOCK                             MIO      1974
                                        *                                                                        MIO      1975
                                        *         EXIT   (X1) = RIW, RANDOM INDEX WORD                           MIO      1976
                                        *                2/AT,1/0,18/LEN,9/0,30/RA.                              MIO      1977
                                                                                                                 MIO      1980
          1106  0200401106 +             SBL      ROUTINE                                                        MIO      1981
                                                                                                                 MIO      1982
                                        *         FORM RANDOM INDEX WORD.                                        MIO      1983
                                                                                                                 MIO      1984
          1107  53040                             SA0    X4          FSCM = SCM FWA OF BLOCK                     MIO      1985
                     10022                        BX0    X2          FLCM = LCM FWA OF BLOCK                     MIO      1986
                          63250                   SB2    X5          L = LEN                                     MIO      1987
                               43101              MX1    1                                                       MIO      1988
          1110  6130000377                        SB3    BLK.SIZ                                                 FCC0448    15
                          20173                   LX1    1+RI.ATP    AT[RIW] = 1   */AT = LCM                    MIO      1990
                                                  LX2    RI.RAP      RA[RIW] = FLCM                              MIO      1991
                               12112              BX1    X1+X2                                                   MIO      1992
          1111  20547                             LX5    RI.LENP     LEN[RIW] = LEN                              MIO      1993
                     12115                        BX1    X1+X5       RIW           */RANDOM INDEX WORD           MIO      1994
                          20525                   LX5    -RI.LENP                                                MIO      1995
                                                                                                                 MIO      1996
                                        *         WRITE BLOCK TO LCM.                                            MIO      1997
                                                                                                                 MIO      1998
          1112  0632001116 +                      LE     B2,B3,SBL2  IF L .LE. BLK.SIZ                           FCC0448    16
                                                                                                                 MIO      2000
          1113  0123000000               SBL1     WL     B3          MOVE(BLK.SIZ,FSCM,FLCM)                     F7540FT    68
                                                                                                                 MIO      2009
          1114  67223                             SB2    B2-B3       L = L - BLK.SIZ                             FCC0448    19
                     54003                        SA0    A0+B3       FSCM = FSCM + BLK.SIZ                       FCC0448    20
                          73003                   SX0    X0+B3       FLCM = FLCM + BLK.SIZ                       FCC0448    21
          1115  0732001113 +                      GT     B2,B3,SBL1  IF L.GT. BLK.SIZ                            FCC0448    22
                                                                                                                 MIO      2014
          1116  0122000000               SBL2     WL     B2          MOVE(L,FSCM,FLCM)                           F7540FT    69
                                                                                                                 MIO      2023
          1117  0400001106 +                      EQ     SBL                                                     MIO      2024
                                                                                                                 MIO      2025
          1120  7110001133 +             ERRECSW  SX1    =C$ ECS WRITE ERROR$                                    MIO      2026
                          0100000000 X            CALL   HE$ABT                                                  CCGNC     512
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    48
        GBL - GET BLOCK FROM LCM                                      GBL 
  
                                        **        GBL - GET BLOCK FROM LCM                                       MIO      2029
                                        *                                                                        MIO      2030
                                        *         ENTRY  (X2) = FSCM, SCM FWA OF BLOCK                           MIO      2031
                                        *                (X4) = FLCM, LCM FWA OF BLOCK                           MIO      2032
                                        *                (X5) = LEN, LENGTH OF BLOCK                             MIO      2033
                                        *                                                                        MIO      2034
                                        *         EXIT   BLOCK TRANSFER COMPLETE                                 MIO      2035
                                                                                                                 MIO      2038
          1121  0200401121 +             GBL      ROUTINE                                                        MIO      2039
                                                                                                                 MIO      2040
                                        *         READ BLOCK FROM LCM.                                           MIO      2041
                                                                                                                 MIO      2042
          1122  53020                             SA0    X2          FSCM = SCM FWA OF BLOCK                     MIO      2043
                     10044                        BX0    X4          FLCM = LCM FWA OF BLOCK                     MIO      2044
                          63250                   SB2    X5          L = LEN                                     MIO      2045
          1123  6130000377                        SB3    BLK.SIZ                                                 FCC0448    23
                          0723001127 +            LT     B2,B3,GBL2  IF L .LE. BLK.SIZ                           FCC0448    24
                                                                                                                 MIO      2048
          1124  0113000000               GBL1     RL     B3          MOVE(BLK.SIZ,FLCM,FSCM)                     F7540FT    70
                                                                                                                 MIO      2057
          1125  67223                             SB2    B2-B3       L = L - BLK.SIZ                             FCC0448    27
                     54003                        SA0    A0+B3       FSCM = FSCM + BLK.SIZ                       FCC0448    28
                          73003                   SX0    X0+B3       FLCM = FLCM + BLK.SIZ                       FCC0448    29
          1126  0623001124 +                      GE     B2,B3,GBL1  IF L .GT. BLK.SIZ                           FCC0448    30
                                                                                                                 MIO      2062
          1127  0112000000               GBL2     RL     B2          MOVE(L,FLCM,FSCM)                           F7540FT    71
                                                                                                                 MIO      2071
          1130  0400001121 +                      EQ     GBL                                                     MIO      2072
                                                                                                                 MIO      2073
          1131  7110001135 +             ERRECSR  SX1    =C$ ECS READ ERROR$                                     MIO      2074
                          0100000000 X            CALL   HE$ABT                                                  CCGNC     513
                                                                                                                 MIO      2076
                                         #ECS     ENDIF                                                          MIO      2077
                                                                                                                 MIO      2078
          1137                                    END                                                            MIO      2079
  
                             56300B CM  STORAGE USED             4998 STATEMENTS     1090 SYMBOLS      000124 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.381 SECONDS        1035 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABB           531   PROGRAM*        9/17     24/57     28/14     30/10 L   31/38
                                           15/46     27/24     29/08     31/15     34/49
        ABB1          540   PROGRAM*       30/21     30/26     30/38 L
        ABB2          544   PROGRAM*       30/39     30/45     31/02 L
        ABB3          550   PROGRAM*       31/11     31/17 L
        ABB4          555   PROGRAM*       31/25     31/35 L
        ABL           701   PROGRAM*       16/03     35/23     38/10 L   39/24     39/49
        ABLA          746   PROGRAM*       38/22     39/17     39/22     39/37     39/43     39/47     39/51 L
        ABLB          747   PROGRAM*       38/45     38/48     39/52 L
        ABL1          711   PROGRAM*       38/20     38/28     38/40 L
        ABL2          722   PROGRAM*       38/43     38/51     39/09 L
        ABL3          732   PROGRAM*       39/19     39/26 L
        ABL4          743   PROGRAM*       39/34     39/46 L
        ADT             3   PROGRAM*        3/22 L    7/14 S   18/42
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        ASB           461   PROGRAM*       10/37     10/56     14/04     27/09 L   29/10     29/15
        ASBA          527   PROGRAM*       27/40 S   28/16     28/43 S   28/45     29/21 L
        ASBB          530   PROGRAM*       29/22 L
        ASB1          467   PROGRAM*       27/14     27/16     27/29 L   28/47
        ASB1A         507   PROGRAM*       27/35     28/19 L
        ASB1B         476   PROGRAM*       27/45     27/47 L
        ASB1C         472   PROGRAM*       27/33     27/37 L
        ASB1D         506   PROGRAM*       27/54     28/16 L
        ASB1E         502   PROGRAM*       27/42     28/05 L
        ASB2          511   PROGRAM*       28/30 L   28/38
        ASB2A         513   PROGRAM*       28/23     28/42 L
        ASB3          517   PROGRAM*       28/33     28/51 L
        ASB4          522   PROGRAM*       27/20     29/03 L
        ASB5          525   PROGRAM*       27/18     28/56     29/14 L
        ASB6          526   PROGRAM*       27/53     29/17 L
        ASL           627   PROGRAM*       18/47     35/11 L   36/03     36/52     36/56     37/02
        ASLA          677   PROGRAM*       35/17     35/49     36/21     36/37 S   37/04 L
                                           35/46 S   35/52     36/31     36/39
        ASL1          635   PROGRAM*       35/12     35/27 L   36/41
        ASL2          651   PROGRAM*       35/36     36/01 L
        ASL3          652   PROGRAM*       35/40     36/05 L
        ASL4          661   PROGRAM*       36/24 L   36/33
        ASL5          666   PROGRAM*       36/11     36/36 L
        ASL6          672   PROGRAM*       36/27     36/45 L
        ASL7          675   PROGRAM*       35/21     36/54 L
        ASL8          676   PROGRAM*       36/08     36/19     36/34     37/01 L
        ATS$            0   EXTERNAL*       8/28      9/06     28/07
        BA.BIL         22                   4/26 D
        BA.BIP         44                   4/26 D    4/31     11/19     11/26     13/33     15/23     15/27     15/33
        BA.BLKP        73                   4/21 D   13/33     15/33
        BA.FWAL        22                   4/28 D
        BA.FWAP         0                   4/28 D   10/28     10/49     11/32     13/15     14/32     15/43     34/11
        BA.FWP         70                   4/24 D   10/21
        BA.HBBL         2                   4/30 D
        BA.HBBP        71                   4/30 D
        BA.HBP         71                   4/23 D    4/30
        BA.LENL        22                   4/27 D
        BA.LENP        22                   4/27 D   10/28     10/49     11/21     13/15     15/43
                                            4/32     10/30     10/51     11/28     14/17
        BA.PRIP        72                   4/22 D   14/23
        BA.SAVL        27                   4/31 D   11/12
        BA.SAVP        44                   4/31 D   11/14
        BA.SVLL        51                   4/32 D   24/03
        BA.SVLP        22                   4/32 D   24/12
        BH.AVP         73                   4/38 D   26/12     26/14     26/16     33/45     42/47
        BH.BIL         22                   4/43 D   19/56
        BH.BIP         44                   4/43 D    8/39     19/56     24/17     33/45     33/51     42/47     43/03
        BH.BSTL        22                   4/44 D   13/52     19/56     24/01
        BH.BSTP        22                   4/44 D   13/53     19/56     21/55     24/07     33/51
                                           12/04     13/56     20/43     24/02     24/17
        BH.FWP         70                   4/41 D   11/47     26/12     26/13
        BH.HBP         71                   4/40 D   19/56
        BH.LENL        22                   4/45 D   20/40
        BH.LENP         0                   4/45 D   23/32     24/07     25/14     33/23     34/31     42/18     43/23
        BH.PRIP        72                   4/39 D   11/52     20/45     21/54     26/14     26/16     26/17
        BLK.SIZ       377                   2/36 D   47/18     48/16
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        BSI             0   EXTERNAL*       3/05 D   10/44     11/45     14/14     20/39
                                           10/16     11/01     13/24     15/17     21/52
        BSI#            0   EXTERNAL*       3/05
        BT.AVP         73                   4/50 D
        BT.LENL        22                   4/54 D
        BT.LENP         0                   4/54 D   28/32     32/20     36/26     40/14
        BT.LKBL        22                   4/52 D   31/28     39/38
        BT.LKBP        44                   4/52 D   31/31     32/49     39/39     40/19     40/53
                                           31/29     32/22     32/52     39/41     40/47
        BT.LKFL        22                   4/53 D   32/37     40/31
        BT.LKFP        22                   4/53 D   31/19     32/22     32/41     36/45     40/14     40/47
                                           28/21     31/23     32/27     32/49     39/28     40/19
                                           28/32     31/31     32/32     36/17     39/32     40/33
                                           28/51     32/20     32/39     36/26     39/41     40/35
        B1=1            0 
        B=FBV           0   EXTERNAL*      44/11
        CGB           574   PROGRAM*       28/44     33/10 L   34/48     34/50
        CGB1          601   PROGRAM*       33/27 L   33/35     33/41     34/32
        CGB2          605   PROGRAM*       33/38     33/45 L
        CGB3          613   PROGRAM*       34/07     34/11 L
        CGB4          614   PROGRAM*       34/01     34/20 L
        CGB5          621   PROGRAM*       33/27     34/36 L
        CGB#          574   PROGRAM*       33/10 E   33/10 L
        CGL          1000   PROGRAM*       36/38     42/10 L   43/36
        CGLA         1037   PROGRAM*       42/16     42/21     42/33     42/51 S   43/22     43/38 L
        CGLB         1040   PROGRAM*       43/04     43/20     43/39 L
        CGL1         1011   PROGRAM*       42/26 L   42/35     42/42     43/26
        CGL2         1020   PROGRAM*       42/39     42/46 L
        CGL5         1034   PROGRAM*       42/26     43/30 L
        CIO=            0   EXTERNAL*      17/28     17/35     45/32     46/23
        CP.AFLL         0   EXTERNAL*       3/06 X    3/07
        CP#RM           0   GTX             7/19 F   17/13 F   45/19 F   46/15 F
        CT.CPU        111   GTX             2/07 F
        CT.ECS          1   GTX             7/10 F   15/53 F   18/41 F   20/24 F   34/52 F   46/33 F
        DMB           355   PROGRAM*       23/14 L   26/08     26/10     27/52
        DMBA          442   PROGRAM*       23/28     25/41     26/12 L
        DMBE          451   PROGRAM*       24/31 S   25/01     26/19 L
        DMBF          452   PROGRAM*       24/39 S   24/49     26/20 L
        DMBG          453   PROGRAM*       23/20 S   23/24 S   25/49     25/51     26/21 L
                                           23/21 S   23/25 S   25/50     25/52
        DMBH          457   PROGRAM*       23/17 S   25/27     26/22 L
        DMBI          460   PROGRAM*       25/37 S   26/05     26/23 L
        DMB0          363   PROGRAM*       23/29 L   25/42
        DMB1          370   PROGRAM*       23/43 L   23/51     23/53     25/18     25/46
        DMB1A         377   PROGRAM*       24/09     24/17 L
        DMB1B         401   PROGRAM*       24/21     24/23 L
        DMB2          410   PROGRAM*       24/42     24/47 L
        DMB3          423   PROGRAM*       23/43     25/22 L
        DMB3A         432   PROGRAM*       25/26     25/28     25/44 L
        DMB4          434   PROGRAM*       25/08     25/23     25/40     25/48 L
        DMB#          355   PROGRAM*       23/14 E   23/14 L
        D.BML           1   GTX            16/23
        D.BMP          52   GTX            16/23
        D.FTP          65   GTX            16/12
        D.FT=1L         1                  16/13 D   16/23
        D.FT=1P        65                  16/12 D   16/23
        D.JFTL          1   GTX            16/19     16/23
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        D.JFTP         34   GTX            16/19     16/23
        D.NRP          64   GTX            16/14
        D.NRXL          1                  16/15 D   16/19     16/23
        D.NRXP         63                  16/14 D   16/19     16/23
        D.PIL           1   GTX            16/19     16/23
        D.PIP          36   GTX            16/19     16/23
        D.TYL           2   GTX            16/19     16/23
        D.TYP          72   GTX            16/19     16/23
        D.^DL           1   GTX            16/19     16/23
        D.^DP          51   GTX            16/19     16/23
        ERRECSR      1131   PROGRAM*       15/57     36/21     38/22     38/48     40/29     42/21     44/24     48/26
                                           35/17     36/31     38/45     39/37     40/49     42/33     48/19     48/30 L
        ERRECSW      1120   PROGRAM*       19/13     39/22     39/47     40/55     43/04     44/29     47/37
                                           39/17     39/43     40/39     42/16     43/20     47/30     47/41 L
        FWAB          100   EXTERNAL*       3/10 D    3/24
        F$RDT           0   EXTERNAL*       3/04
        F.MEM           0   EXTERNAL*       3/09 X    3/10
        F.OPT           0   EXTERNAL*      17/25 S   17/28     45/29 S   45/32     46/22 S
                                           17/27 S   17/31     45/31 S   46/21 S   46/23
        F.RDT           0   EXTERNAL*       3/04 D
        GBD          1075   PROGRAM*       21/28     21/49     46/11 L   46/31
        GBD#         1075   PROGRAM*       46/11 E   46/11 L
        GBL          1121   PROGRAM*       20/36     48/09 L   48/28
        GBL1         1124   PROGRAM*       48/19 L   48/24
        GBL2         1127   PROGRAM*       48/17     48/26 L
        GMB           310   PROGRAM*       14/48     17/39     20/08 L   20/19     20/51     22/03
        GMBA          353   PROGRAM*       21/23 S   21/30     22/05 L
        GMB0          316   PROGRAM*       20/11     20/21 L
        GMB1          326   PROGRAM*       20/27     20/56 L
        GMB2          342   PROGRAM*       21/08     21/15     21/34 L
        GMB3          346   PROGRAM*       21/18     21/46 L
        GMB4          350   PROGRAM*       21/42     21/51 L
        GMB#          310   PROGRAM*       20/08 E   20/08 L
        HE$ABT          0   EXTERNAL*      47/42     48/31
        HO$OBL          0   EXTERNAL*       7/39     17/27     19/22     20/21
        HO$OBO          0   EXTERNAL*       7/38
        HO$OFLL         0   EXTERNAL*       7/07
        HO$OPT          0   EXTERNAL*      10/14     27/38
        IBS            60   PROGRAM*        8/06      8/26      9/05 L    9/18
        IMPA           15   PROGRAM*        7/03 L    7/25
        IMPA1          22   PROGRAM*        7/12      7/15 L
        IMPA#          15   PROGRAM*        7/03 E    7/03 L
        IMPB           23   PROGRAM*        7/29 L    7/46
        IMPB1          27   PROGRAM*        7/32      7/38 L
        IMPB#          23   PROGRAM*        7/29 E    7/29 L
        IMPC           33   PROGRAM*        8/05 L    8/14
        IMPC#          33   PROGRAM*        8/05 E    8/05 L
        IMPD           41   PROGRAM*        8/20 L    8/54
        IMPD#          41   PROGRAM*        8/20 E    8/20 L
        IT.             0   EXTERNAL*       3/04 D
        LAL            13   PROGRAM*        3/30 L   36/15     39/26     40/23     40/43 S   43/32 S
        LAS            12   PROGRAM*        3/29 L    8/23 S   28/19     31/17     32/26     34/47 S
        LCM.FL          0   EXTERNAL*       3/07 D    7/11     35/28     35/55 S
        LCM.XL         20                   3/34 D   35/30     36/40
        L$BIT           0   EXTERNAL*       3/04
        L$BLK           0   EXTERNAL*       3/04
        L$BST           0   EXTERNAL*       3/04
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        L$SEQ           0   EXTERNAL*       3/04
        L$TXT           0   EXTERNAL*       3/04
        L.BIT           0   EXTERNAL*       3/04 D
        L.BLK           0   EXTERNAL*       3/04 D    8/08     34/37
        L.BST           0   EXTERNAL*       3/04 D
        L.SEQ           0   EXTERNAL*       3/04 D   13/18 S   14/34 S   27/51 S
        L.TXT           0   EXTERNAL*       3/04 D    8/21      8/27      8/38 S   10/52     11/05
        MAX.LCM         1   PROGRAM*        3/19 E    3/20 L   35/29
        MIN.AB         40                   3/32 D   31/07     32/12
        MIN.AL        100                   3/33 D   39/14     40/09
        MOREFL          0   EXTERNAL*       3/05 D   25/36
        MOREFL#         0   EXTERNAL*       3/05
        MVE=            0   EXTERNAL*       8/35     12/09     18/24     20/18     21/41     34/28
        MVL          1041   PROGRAM*       43/12     44/07 L   44/35
        MVL1         1046   PROGRAM*       44/15     44/22 L   44/33     44/39
        MVL2         1053   PROGRAM*       44/12     44/35 L
        MX.AVL         11   PROGRAM*        3/28 L   36/05     38/11     38/32     38/55     40/08     43/35 S
        MX.AVS         10   PROGRAM*        3/27 L    8/24 S   27/29     30/11     30/30     30/48     32/11     34/43 S
        MX.AVS#        10   PROGRAM*        3/27 E    3/27 L
        N.RRB           7   PROGRAM*        3/26 L    7/44 S   21/03     21/27 S
        OC.BOS          1   GTX            16/17
        O$BIT           0   EXTERNAL*       3/04
        O$BLK           0   EXTERNAL*       3/04
        O$BST           0   EXTERNAL*       3/04
        O$SEQ           0   EXTERNAL*       3/04
        O$SYM           0   EXTERNAL*       3/04
        O$TXT           0   EXTERNAL*       3/04
        O.BIT           0   EXTERNAL*       3/04 D    9/08     13/32     23/35     33/14
                                            8/45     11/09     15/18     25/11     42/13
        O.BLK           0   EXTERNAL*       3/04 D    8/07     23/31     25/44     33/16     34/36
        O.BST           0   EXTERNAL*       3/04 D   10/43     13/23     15/16     25/12
                                           10/15     10/57     14/13     23/29     33/15
        O.DISK          2   PROGRAM*        3/21 L   18/16     21/11     45/15
        O.LCM           0   PROGRAM*        3/15 L    7/09 S   35/27     38/40     42/12     43/33 S
        O.RRB           4   PROGRAM*        3/23 L    7/41 S   17/24     21/02     21/22     21/29
        O.RWB           5   PROGRAM*        3/24 L    7/30      7/43 S   19/24     19/36     19/40     21/10
        O.SEQ           0   EXTERNAL*       3/04 D   13/16 S   14/28 S   23/30     25/13     27/50 S   33/13     34/09 S
        O.SYM           0   EXTERNAL*       3/04 D
        O.TXT           0   EXTERNAL*       3/04 D    8/10 S    8/31     11/04
        PUNT            0   EXTERNAL*       3/05 D   29/18
        PUNT#           0   EXTERNAL*       3/05
        RBB           556   PROGRAM*       28/55     30/36     30/55     32/10 L   32/18     32/30     32/45     32/56
        RBB1          566   PROGRAM*       32/24     32/35 L
        RBB2          567   PROGRAM*       32/33     32/37 L
        RBL           750   PROGRAM*       36/49     38/38     39/05     40/07 L   40/16     40/46     40/57
        RBLA          777   PROGRAM*       40/29     40/39     40/49     40/55     41/02 L
        RBL1          757   PROGRAM*       40/21     40/27 L
        RBL2          762   PROGRAM*       40/25     40/31 L
        RBL3          767   PROGRAM*       40/37     40/43 L
        RBL4          770   PROGRAM*       40/41     40/46 L
        RBS           172   PROGRAM*       15/09 L   15/40     15/51     16/04
        RBSA          211   PROGRAM*        9/07     15/14     16/07 L
        RBSB          213   PROGRAM*       13/47     15/19     16/07     16/08     16/17 L   27/11
        RBSC          220   PROGRAM*       15/57     16/22 L
        RBS1          204   PROGRAM*       15/34     15/50 L
        RBS#          172   PROGRAM*       15/09 E   15/09 L
        RDW=            0   EXTERNAL*      17/31
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        RFWA           14   PROGRAM*        6/35 L   17/27     45/29     46/22
        RI.ATP         72                   4/07 D   14/51     15/54     20/26     24/44
                                           12/12     15/50     17/16     24/19     47/19
        RI.FWAL        22                   4/14 D   33/46
        RI.FWAP        22                   4/14 D   11/32     13/44     14/45     33/49     34/05
                                            8/51     11/39     14/32     20/15     33/54     34/11
        RI.ICP         73                   4/06 D   12/12     13/41     13/44     20/13
        RI.LCML        22                   4/15 D   12/12     14/51     42/48
        RI.LCMP         0                   4/15 D   12/12     14/51     15/54     20/33     24/44
        RI.LENL        22                   4/09 D   14/51     19/09
        RI.LENP        47                   4/09 D   13/38     14/42     18/22     20/13     21/35     47/24
                                            8/48     13/41     14/51     18/28     20/15     45/47
                                           11/28     14/03     17/30     19/11     20/33     45/50
                                           11/38     14/07     17/34     19/15     21/04     47/22
        RI.OFSL        11                   4/10 D   21/36
        RI.OFSP        36                   4/10 D   18/18     21/35
        RI.RAL         36                   4/11 D   20/57     46/19
        RI.RAP          0                   4/11 D   21/04
        RLEN            6   PROGRAM*        3/25 L    7/31      7/36 S   18/17 S   19/23     19/47 S
        RNB           223   PROGRAM*       17/10 L   17/32     17/40
        RNB1          236   PROGRAM*       17/21     17/30 L   17/36
        RNB2          243   PROGRAM*       17/18     17/39 L
        RNB#          223   PROGRAM*       17/10 E   17/10 L
        RNS           245   PROGRAM*       17/20     17/42 L
        RTB           142   PROGRAM*       13/22 L   14/37     14/49
        RTBA          171   PROGRAM*       14/40     14/51 L
        RTB0          140   PROGRAM*       13/13 L   13/28
        RTB1          155   PROGRAM*       13/42     14/03 L
        RTB2          157   PROGRAM*       13/49     14/01     14/13 L
        RTB#          142   PROGRAM*       13/22 E   13/22 L
        SBD          1055   PROGRAM*        7/34     19/38     19/51     45/11 L   45/51
        SBDA         1073   PROGRAM*       45/30     45/33     45/53 L
        SBDB         1074   PROGRAM*       45/17 S   45/46     45/54 L
        SBD#         1055   PROGRAM*       45/11 E   45/11 L
        SBL          1106   PROGRAM*       19/08     47/10 L   47/39
        SBL1         1113   PROGRAM*       47/30 L   47/35
        SBL2         1116   PROGRAM*       47/28     47/37 L
        SMB           254   PROGRAM*       18/33 L   24/48
        SMBA          306   PROGRAM*       19/13     19/35 S   19/39     19/55 L
        SMBB          307   PROGRAM*       18/57     19/56 L
        SMB0          246   PROGRAM*       18/14 L   19/28     19/45
        SMB1          253   PROGRAM*       18/27 L   19/17     19/52
        SMB2          272   PROGRAM*       18/43     18/52     19/22 L
        SMB3          304   PROGRAM*       19/32     19/51 L
        SMB#          254   PROGRAM*       18/33 E   18/33 L
        SYS=            0   EXTERNAL*      35/49
        S$IT            0   EXTERNAL*       3/04
        TEST            0   GTX             5/19 F
        TO              0   EXTERNAL*       3/05 D    8/13 S
        TOB             0   EXTERNAL*       3/05 D    8/12
        TOB#            0   EXTERNAL*       3/05
        TO#             0   EXTERNAL*       3/05
        WFB            70   PROGRAM*       10/13 L   10/34
        WFBA          136   PROGRAM*       10/24 S   10/38     12/13 L
        WFB1           75   PROGRAM*       10/19     10/23 L
        WFB2          101   PROGRAM*       10/31     10/34 L
        WFB#           70   PROGRAM*       10/13 E   10/13 L
1       MIO - MASS STORAGE RANDOM I/O (BASIC I/O)                     COMPASS 3.7-871.     24/05/02. 13.12.26.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        WMB           105   PROGRAM*       10/36 S   10/42 L   12/10
        WMBA          135   PROGRAM*       11/22     12/12 L
        WMB0          113   PROGRAM*       10/53     10/56 L
        WMB1          117   PROGRAM*       10/40     11/09 L
        WMB2          131   PROGRAM*       11/48     11/55 L
        WMB#          105   PROGRAM*       10/42 E   10/42 L
        Z$BLK           0   EXTERNAL*       8/28      9/06     28/07
        .MI             0   GTX             2/04 F
        .P             73                  12/12 D   14/51 D   16/19 D   16/23 D   16/23 D   19/56 D   26/14 D   26/17 D
                                           12/12     14/51     16/19     16/23     16/23     19/56     26/14     26/17
                                           12/12 D   14/51 D   16/19 D   16/23 D   16/23 D   26/12 D   26/14 D
                                           12/12     14/51     16/19     16/23     16/23     26/12     26/14
                                           12/12 D   16/19 D   16/19 D   16/23 D   19/56 D   26/12 D   26/16 D
                                           12/12     16/19     16/19     16/23     19/56     26/12     26/16
                                           14/51 D   16/19 D   16/23 D   16/23 D   19/56 D   26/13 D   26/16 D
                                           14/51     16/19     16/23     16/23     19/56     26/13     26/16
        .Z              0                  12/12 D   14/51 D   16/19 D   19/56 D   26/13 D   26/16 D
                                           12/12     14/51     16/23 D   26/12 D   26/14 D   26/17 D
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      105              IDENT  FBV
                        105                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=FBV            0+           FBV#             0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BIT     O$CFT     O$SEQ     F$RDT     BN#       Z$RND     FUD#
                                        L$BIT     L$CFT     L$SEQ     S$IT      NPB#      Z$CFT     RNB#
                                        O$BVT     O$RND     O$TXT     O$SYM     O.IST#    WNB=      ATS$
                                        L$BVT     L$RND     L$TXT     M.BBL#    BVL#      F.OPT     Z$TXT 
  
  
  
  
                                                  IDENT  FBV                                                     FBV         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=FBV    RPVDEF                                                         FBV         5
  
  
                                        **        FBV - FORM BIT VECTORS ( PHASE 2 OF OPT=2 PASS 2 ).            FBV        11
                                        *         READ PROGRAM BLOCKS TO FORM *USE, DBU AND USE* VECTORS.        FBV        12
                                        *         USE ULLMAN ALGORITHM TO FORM BLOCK *LIVE EXIT* BIT VECTORS.    FBV        13
                                        *                                                                        FBV        14
                                        *         NOTE - THE SPACE OCCUPIED BY *FBV* IS USED AS A BUFFER FOR     FBV        15
                                        *         LCM TO LCM TRANSFERS BY *MIO*.                                 FBV        16
                                                                                                                 FBV        17
                                        **        DEBUGING SNAP LABELS                                           FBV        18
                                        *                                                                        FBV        19
                                        *         TRACER (FBV,SNO,CLI)                                           FBV        20
  
  
                                                  TABLES (BIT,BVT,CFT,RND,SEQ,TXT)                               CCGNC     514
                                                  EXT#   (M.BBL,BN,NPB,O.IST,BVL)                                CCGNC     515
                                                                                                                 CCGNC     516
  
  
             0                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     2
                                                                      FBV 
  
                                        **        FBV - FORM BIT VECTORS                                         FBV        35
                                                                                                                 FBV        36
             0                           FBV      ENTRY. **,#                                                    CCGNC     517
             1  5110000000 X                      SA1    M.BBL                                                   FBV        38
                          7211000002              ALLOC  TXT,X1+2    ALLOC( TXT , M.BBL + 2 )                    FBV        39
             3  73721                             SX7    X2+B1       O.SEQ = O.TXT + 1                           FBV        40
                     5170000000 X                 SA7    O.SEQ                                                   FBV        41
                               76611              SX6    B1+B1       BN = 2                                      FBV        42
                                                                                                                 FBV        43
                                        *         READ PROGRAM BLOCKS SEQUENTIALLY AND FORM BIT VECTORS          FBV        44
                                                                                                                 FBV        45
             4  5110000000 X             FBV1     SA1    O.BIT                                                   FBV        46
                          7266000002              SX6    X6+2        BN = BN + 2                                 FBV        47
             5  63260                             SB2    X6                                                      FBV        48
                     53212                        SA2    X1+B2       BIW = BIT(BN)                               FBV        49
                          10722                   BX7    X2                                                      FBV        50
                               54521              SA5    A2+B1       RIW = BIT(BN+1)                             FBV        51
             6  5130000000 X                      SA3    O.SEQ                                                   FBV        52
                          0305000017 +            ZR     X5,FBV3     IF RIW = 0    */ END OF PROGRAM BLOCKS      FBV        53
             7  5160000000 X                      SA6    BN                                                      FBV        54
                          5170000025 +            SA7    BIW                                                     FBV        55
            10  0100000000 X                      CALL   RNB#        READ NEXT BLOCK                             CCGNC     518
            11  5120000025 +                      SA2    BIW                                                     FBV        57
                          5150000000 X            SA5    O.SEQ                                                   FBV        58
                                                  LX2    59-BI.RBP                                               FBV        59
            12  0322000015 +                      PL     X2,FBV2     IF ^RB[BIW]   */ DEAD CODE                  FBV        60
                          5140000000 X            SA4    BN                                                      FBV        61
            13  53150                             SA1    X5                                                      FBV        62
                     13641                        BX6    X4-X1                                                   FBV        63
                          63260                   SB2    X6                                                      FBV        64
            14  0520400014 +                      NZ     B2,*+1S17   IF BN[SEQ] " BN */ READNS ERROR             CCGNC     519
                                                                                                                 FBV        66
                          0100000000 X            CALL   FUD#        FORM USE/DEF BIT VECTORS                    CCGNC     520
                                                                                                                 FBV        68
            15  5110000000 X             FBV2     SA1    BN                                                      FBV        69
                          7261000000              SX6    X1+                                                     FBV        70
            16  0400000004 +                      EQ     FBV1                                                    FBV        71
                                                                                                                 FBV        72
            17  7170000000               FBV3     SX7    0                                                       FBV        73
                          5170000000 X            SA7    L.TXT       L.TXT = 0                                   FBV        74
                                                                                                                 FBV        75
            20  0100000026 +                      RJ     SNO         SET NODE ORDER                              FBV        76
                                                                                                                 FBV        77
            21  0100000054 +                      RJ     CLI         COMPUTE LIVE EXIT BIT VECTORS               FBV        78
                                                                                                                 FBV        79
            22  7120000000 X                      RECALL =XF.OPT     WAIT UNTIL READ NS FINISHED                 FBV        81
            23  7160000000                        SX6    0                                                       FBV        82
                          5160000000 X            SA6    L.RND       L.RND = 0                                   FBV        83
            24  5160000000 X                      SA6    L.CFT       L.CFT = 0                                   FBV        84
                                                                                                                 FBV        85
                                                  IF     DEF,/DEBUG/CLI,1                                        FBV        86
                                                  DCALL  PRNTLX,([O.BVT],[O.BIT],NPB)                            FBV        87
                                                                                                                 FBV        88
                          0400000000 +            EQ     FBV                                                     FBV        89
                                                                                                                 FBV        90
            25                     1     BIW      BSS    1           SAVED COPY OF BLOCK INDEX WORD              FBV        91
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     3
        SNO - SET NODE ORDER BY A DEPTH FIRST SEARCH                  SNO 
  
                                        **        SNO - SET NODE ORDER USING A DEPTH FIRST SEARCH OF THE FLOW    FBV        93
                                        *         GRAPH TO ASSIGN THE *NUM* ORDER TO THE BLOCKS IN THE ORDER     FBV        94
                                        *         IN WHICH THEY ARE LAST VISITED.                                FBV        95
                                                                                                                 FBV        96
                                        *         TEMPORARY TABLE FOR DEPTH FIRST SEARCH / *NUM* COMPUTATION     FBV        97
                                                                                                                 FBV        98
                                                  DESCRIBE I.,60     TTW                                         FBV        99
      L     73  40000000000000000000     TREE     DEFINE 1           IN TREE                                     FBV       100
                                                  DEFINE 11                                                      FBV       101
      L     36  00007777770000000000     SUI      DEFINE 18          SUCCESSOR INDEX                             FBV       102
      L     22  00000000007777000000     NS       DEFINE 12          N.SUCC NOT VISITED                          FBV       103
      L      0  00000000000000777777     BN       DEFINE 18          BLOCK NUMBER OF NUM(I)                      FBV       104
                                                                                                                 FBV       105
                                        *         REGISTER ASSIGNMENTS                                           FBV       106
                                                                                                                 FBV       107
                                         C0       MICRO  1,,/B7/     O.CFT                                       FBV       108
                                         EI       MICRO  1,,/B6/     EIB                                         FBV       109
                                         NO       MICRO  1,,/B5/     NUM COUNTER                                 FBV       110
                                         ST       MICRO  1,,/B4/     STK - PUSHDOWN STACK                        FBV       111
                                         NS       MICRO  1,,/B3/     N.SUCC                                      FBV       112
                                         N        MICRO  1,,/X7/     NODE NUMBER                                 FBV       113
                                                                                                                 FBV       114
            26  0200400026 +             SNO      ROUTINE                                                        FBV       115
            27  5150000000 X                      SA5    NPB                                                     FBV       116
                          73251                   SX2    X5+B1                                                   FBV       117
                               22112              LX1    B1,X2                                                   FBV       118
            30  5100000000 X                      ALLOC  CFT,X1      ALLOC( CFT , 2*(NPB+1) )                    FBV       119
            31  63720                             S"C0"  X2          C0 = O.CFT                                  FBV       120
                     5110000000 X                 SA1    O.IST                                                   FBV       121
                               63250              SB2    X5          N = NPB                                     FBV       122
            32  6261000003                        S"EI"  X1+3        EIB = O.IST + 3                             FBV       123
                          7160002000              SX6    2000B                                                   FBV       124
            33  56561                             SA5    "EI"+B1     EI = EIB + 1                                FBV       125
                     20622                        LX6    I.NSP                                                   FBV       126
                          43001                   MX0    1                                                       FBV       127
                                                  LX0    1+I.TREEP                                               FBV       128
                               12606              BX6    X0+X6                                                   FBV       129
            34  56670                             SA6    "C0"        CI = C0;  [CI] = 0  */ EXIT NODE HAS NO SUC FBV       130
                                                                                                                 FBV       131
                                        *         SETUP AUX TABLE WITH SUCCESSOR INFORMATION                     FBV       132
                                                                                                                 FBV       133
            35  20560                    SNO1     LX5    -EI.SUIP                                                FBV       134
                     26435                        UX4    "NS",X5                                                 FBV       135
                          73340                   SX3    X4          SI = SUI[EI]                                FBV       136
                               54551              SA5    A5+B1       EI = EI + 1                                 FBV       137
            36  27633                             PX6    "NS",X3                                                 FBV       138
                     20636                        LX6    I.SUIP                                                  FBV       139
                          67221                   SB2    B2-B1       N = N - 1                                   FBV       140
                               54661              SA6    A6+B1       CI = CI + 1;  [CI] = TTW(0,SI,NS,0)         FBV       141
            37  0520000035 +                      NZ     B2,SNO1     IF N " 0                                    FBV       142
                                                                                                                 FBV       143
                          64461                   S"ST"  A6+B1       ST = CI + 1   */ STACK ADDRESS              FBV       144
                               43700              MX7    0                                                       FBV       145
            40  56740                             SA7    "ST"        [ST] = 0                                    FBV       146
                     66510                        S"NO"  B1          NO = 1                                      FBV       147
                          7170000001              S"N"   1           N = 1         */ START WITH PROG ENTRY BLOC FBV       148
                                                                                                                 FBV       149
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     4
        SNO - SET NODE ORDER BY A DEPTH FIRST SEARCH                  SNO 
  
                                        *         VISIT NODE *N*                                                 FBV       150
                                                                                                                 FBV       151
            41  53577                    SNO2     SA5    "C0"+"N"    TW = C(N)                                   FBV       152
                     12605                        BX6    X0+X5       TREE[TW] = 1  */ INDICATE IN TREE           FBV       153
                          54650                   SA6    A5                                                      FBV       154
                               20636              LX6    -I.SUIP                                                 FBV       155
            42  26536                             UX5    "NS",X6                                                 FBV       156
                     63266                        SB2    "EI"+X6                                                 FBV       157
                                                                                                                 FBV       158
                                        *         VISIT SUCCESSORS                                               FBV       159
                                                                                                                 FBV       160
            43  0430000047 +             SNO3     ZR     "NS",SNO4   IF NS[TW] = 0 */ IF ALL SUCC VISITED        FBV       161
                          67331                   S"NS"  "NS"-B1     NS[TW] = NS[TW] - 1                         FBV       162
                               56323              SA3    B2+"NS"     ET = EIB + SUI[TW] + NS[TW]                 FBV       163
                                                  LX3    -ET.SUCCP   I = SUCC[ET]                                FBV       164
            44  53237                             SA2    "C0"+X3                                                 FBV       165
                                                  LX2    59-I.TREEP                                              FBV       166
                     0332000043 +                 MI     X2,SNO3     IF TREE[C(I)] */ IF SUCC IN TREE            FBV       167
                                                                                                                 FBV       168
                               27636              PX6    "NS",X6                                                 FBV       169
            45  20636                             LX6    I.SUIP                                                  FBV       170
                     54660                        SA6    A6                                                      FBV       171
                                                                                                                 FBV       172
                          66441                   S"ST"  "ST"+B1     ST = ST + 1   */ STACK NODE N               FBV       173
                                                  R=     X7,"N"                                                  FBV       174
                               56740              SA7    "ST"        [ST]  = N                                   FBV       175
            46  73730                             S"N"   X3          N = I         */ SET TO VISIT SUCCESSOR     FBV       176
                     0400000041 +                 EQ     SNO2                                                    FBV       177
                                                                                                                 FBV       178
                                        *         LAST VISIT TO NODE, ASSIGN NUM(NO) = BLOCK NUMBER              FBV       179
                                                                                                                 FBV       180
            47  27636                    SNO4     PX6    "NS",X6                                                 FBV       181
                     20636                        LX6    I.SUIP                                                  FBV       182
                          54660                   SA6    A6                                                      FBV       183
                                                                                                                 FBV       184
                               56175              SA1    "C0"+"NO"                                               FBV       185
                                                  R=     X7,"N"                                                  FBV       186
                                                  LX7    I.BNP                                                   FBV       187
            50  12617                             BX6    X1+X7       BN[C(NO)] = N */ SET ORDER OF LAST VISIT    FBV       188
                     54610                        SA6    A1                                                      FBV       189
                          66551                   S"NO"  "NO"+B1     NO = NO + 1                                 FBV       190
                               56440              SA4    "ST"                                                    FBV       191
            51  73740                             S"N"   X4          N = [ST]      */ FETCH LAST FROM STACK      FBV       192
                     67441                        S"ST"  "ST"-B1     ST = ST - 1                                 FBV       193
                          0317000041 +            NZ     "N",SNO2    IF N " 0                                    FBV       194
                                                                                                                 FBV       195
            52  43600                             MX6    0                                                       FBV       196
                     54661                        SA6    A6+B1       C(NO) = 0     */ TABLE TERMINATOR           FBV       197
                          76751                   SX7    "NO"+B1                                                 FBV       198
                                                  TRACE  SNO,CFT                                                 FBV       199
            53  5170000000 X                      SA7    L.CFT       L.CFT = NO + 1                              FBV       200
                          0400000026 +            EQ     SNO                                                     FBV       201
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     5
        CLI - COMPUTE LIVE EXIT INFORMATION                           CLI 
  
                                        **        CLI - COMPUTE LIVE EXIT INFORMATION ( BIT VECTORS ).           FBV       203
                                        *                COMPUTE THE LIVE EXIT ( LX ) BIT VECTORS FOR EACH       FBV       204
                                        *         PROGRAM BLOCK.   THE METHOD IS TAKEN FROM THE ALGORITHMS       FBV       205
                                        *         DESCRIBED IN THE PAPER "ANALYSIS OF A SIMPLE ALGORITHM FOR     FBV       206
                                        *         GLOBAL FLOW PROBLEM" BY HECHT AND ULLMAN, PAGES 207 - 217 IN   FBV       207
                                        *         THE ACM CONFRENCE RECORD, OCT 73 SIGACT/SIGPLAN MEETING.       FBV       208
                                                                                                                 FBV       209
                                         BI       MICRO  1,,/B5/     O.BIT                                       FBV       210
                                         EI       MICRO  1,,/B6/     EDGE INDEX TABLE BASE                       FBV       211
                                         BV       MICRO  1,,/B7/     O.BVT                                       FBV       212
                                                                                                                 FBV       213
            54  0200400054 +             CLI      ROUTINE                                                        FBV       214
            55  5120000000 X                      SA2    O.IST                                                   FBV       215
                          5222000002              SA2    X2+2        GBM = [O.IST+2]                             FBV       216
                                                  LX2    -GB.ILIP                                                FBV       217
            56  7212000003                        ALLOC  RND,X2+3    ALLOC( RND , ILI[GBW]+3 )                   FBV       218
            60  5140000000 X                      SA4    O.CFT                                                   FBV       219
                          5110000000 X            SA1    O.BVT                                                   FBV       220
            61  53720                             SA7    X2          CS = [O.RND]  */ LOOP CONTROL STORE INDEX   FBV       221
                     5130000000 X                 SA3    O.IST                                                   FBV       222
                               53021              SA0    X2+B1       C0 = CS + 1                                 FBV       223
            62  53541                             SA5    X4+B1       NI = [O.CFT] + 1;  I = BN[NI]               FBV       224
                     5120000000 X                 SA2    O.BIT                                                   FBV       225
                               43001              MX0    1                                                       FBV       226
            63  63520                             S"BI"  X2                                                      FBV       227
                     6263000003                   S"EI"  X3+3        EIB = O.IST + 3  */ EDGE INDEX BASE         FBV       228
                               63710              S"BV"  X1                                                      FBV       229
                                                                                                                 FBV       230
                                        *         SETUP THE LOOP CONTROL VECTOR FOR THE LIVE EXIT COMPUTATION    FBV       231
                                                                                                                 FBV       232
            64  53456                    CLI1     SA4    "EI"+X5     EI = EIB + I                                FBV       233
                     63455                        SB4    "BI"+X5                                                 FBV       234
                          20460                   LX4    -EI.SUIP                                                FBV       235
                               26624              UX6    B2,X4       NS = NS[EI]                                 FBV       236
            65  53354                             SA3    B4+X5                                                   FBV       237
                     53246                        SA2    "EI"+X4     SI = EIB + SUI[EI]                          FBV       238
                                                  LX3    -BI.BVIP    VI = BVI[BIT(2*I)]                          FBV       239
                          73737                   SX7    "BV"+X3     BVA = O.BVT + VI                            FBV       240
                               54771              SA7    A7+B1       CS = CS + 1;  [CS] = BVA                    FBV       241
                                                                                                                 FBV       242
                                         CLI2     LX2    -ET.SUCCP   J = SUCC[SI]                                FBV       243
            66  63325                             SB3    "BI"+X2                                                 FBV       244
                     53123                        SA1    B3+X2                                                   FBV       245
                          54221                   SA2    A2+B1       SI = SI + 1                                 FBV       246
                               67221              SB2    B2-B1       NS = NS - 1                                 FBV       247
                                                  LX1    -BI.BVIP                                                FBV       248
            67  73617                             SX6    "BV"+X1     BVA = O.BVT + BVI[BIT(2*J)]                 FBV       249
                     12706                        BX7    X0+X6                                                   FBV       250
                          5077000001              SA7    A7+1        CS = CS + 1;  [CS] = 1S59 + BVA             FBV       251
            70  0520000066 +                      NZ     B2,CLI2     IF NS " 0                                   FBV       252
                                                                                                                 FBV       253
                          5055000001              SA5    A5+1        NI = NI + 1;  I = BN[NI]                    FBV       254
            71  0315000064 +                      NZ     X5,CLI1     IF [NI] " 0                                 FBV       255
                          43700                   MX7    0                                                       FBV       256
                               54771              SA7    A7+B1       CS = CS + 1;  [CS] = 0  */ TERMINATOR       FBV       257
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     6
        CLI - COMPUTE LIVE EXIT INFORMATION                           CLI 
  
                                        *         NOW COMPUTE THE LIVE EXIT VECTORS FOR EACH PROGRAM BLOCK       FBV       259
                                                                                                                 FBV       260
            72  5140000000 X                      SA4    BVL                                                     FBV       261
                          66200                   SB2    B0          WI = 0        */ WORD INDEX                 FBV       262
                               63341              SB3    X4+B1       VL = BVL + 1  */ LIMIT                      FBV       263
            73  63441                             SB4    X4+B1       WIF = VL      */ WI TO *UBD* VECTOR         FBV       264
                     66533                        SB5    B3+B3                                                   FBV       265
                          66553                   SB5    B5+B3       WIL = 3*VL    */ WI TO LX VECTOR            FBV       266
                               66600              SB6    B0          N = 0         */ N.ITERATIONS               FBV       267
                                                                                                                 FBV       268
            74  5050000000               CLI3     SA5    A0+         CI = C0;  BVA = [CI]                        FBV       269
                          7100000000              SX0    0           CHNG = 0                                    FBV       270
                                                                                                                 FBV       271
            75  53455                    CLI4     SA4    X5+B5       LXA = BVA + WIL;  OLX = [LXA]               FBV       272
                     5055000001                   SA5    A5+1        CI = CI + 1;  BVA = [CI]  */ BV ADDR OF SUC FBV       273
                               43700              MX7    0           LX = 0                                      FBV       274
                                                                                                                 FBV       275
                                        *         LX = ! ( ( LX & ^DEF ) ! UBD ) OVER SUCCESSORS OF THE NODE.    FBV       276
                                                                                                                 FBV       277
            76  53155                    CLI5     SA1    X5+B5       LXS = [BVA+WIL]                             FBV       278
                     53252                        SA2    X5+B2       DVS = [BVA+WI]                              FBV       279
                          53354                   SA3    X5+B4       UFS = [BVA+WIF]                             FBV       280
                               54551              SA5    A5+B1       CI = CI + 1;  BVA = [CI]                    FBV       281
            77  15612                             BX6    -X2*X1                                                  FBV       282
                     46000                        NO                                                             FBV       283
                          12163                   BX1    X6+X3                                                   FBV       284
                               12717              BX7    X1+X7       LX = LX ! ((LXS&^DVS)!UFS)                  FBV       285
           100  0335000076 +                      MI     X5,CLI5     IF [CI] < 0   */ NEXT IS A SUCC ADDR        FBV       286
                                                                                                                 FBV       287
                          13647                   BX6    X4-X7                                                   FBV       288
                               54740              SA7    A4          [LXA] = LX                                  FBV       289
           101  12006                             BX0    X0+X6       CHNG = CHNG ! XOR(OLX,LX)                   FBV       290
                     0315000075 +                 NZ     X5,CLI4     IF [CI] " 0   */ NOT END OF CONTROL VECTOR  FBV       291
                                                                                                                 FBV       292
                                        *         TEST FOR CONVERGENCE OF LX VECTORS                             FBV       293
                                                                                                                 FBV       294
                               47600              CX6    X0                                                      FBV       295
           102  66661                             SB6    B6+B1       N = N + 1                                   FBV       296
                     0316000074 +                 NZ     X6,CLI3     IF COUNT( CHNG ) " 0                        FBV       297
                                                                                                                 FBV       298
                                        *         ADVANCE TO NEXT BIT VECTOR WORD                                FBV       299
                                                                                                                 FBV       300
                               66221              SB2    B2+B1       WI = WI + 1                                 FBV       301
           103  66441                             SB4    B4+B1       WIF = WIF + 1                               FBV       302
                     66551                        SB5    B5+B1       WIL = WIL + 1                               FBV       303
                          66600                   SB6    B0          N = 0                                       FBV       304
           104  0723000074 +                      LT     B2,B3,CLI3  IF WI < VL                                  FBV       305
                          0400000054 +            EQ     CLI                                                     FBV       306
                                                                                                                 FBV       307
                                                  IFLT   *-FBV,100B,1                                            FBV       308
                                                  BSS    FBV+100B-*                                              FBV       309
                                                                                                                 FBV       310
           105                                    END                                                            FBV       311
  
                             55600B CM  STORAGE USED             1301 STATEMENTS      929 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.047 SECONDS         126 REFERENCES
  
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     7
        SYMBOLIC REFERENCE TABLE. 
  
        ATS$            0   EXTERNAL*       2/05      3/27      5/16
        BIW            25   PROGRAM*        2/21 S    2/23      2/56 L
        BN              0   EXTERNAL*       1/43 D    2/20 S    2/27      2/35
        BN#             0   EXTERNAL*       1/43
        BVL             0   EXTERNAL*       1/43 D    6/03
        BVL#            0   EXTERNAL*       1/43
        B1=1            0 
        CLI            54   PROGRAM*        2/44      2/51 F    5/12 L    6/48
        CLI1           64   PROGRAM*        5/31 L    5/53
        CLI2           66   PROGRAM*        5/41 L    5/50
        CLI3           74   PROGRAM*        6/11 L    6/39      6/47
        CLI4           75   PROGRAM*        6/14 L    6/33
        CLI5           76   PROGRAM*        6/20 L    6/28
        EI.SUIP        14                   3/42      5/33
        FBV             0   PROGRAM*        2/03 L    2/54      6/50 F
        FBV1            4   PROGRAM*        2/12 L    2/37
        FBV2           15   PROGRAM*        2/26      2/35 L
        FBV3           17   PROGRAM*        2/19      2/39 L
        FBV#            0   PROGRAM*        2/03 E    2/03 L
        FUD#            0   EXTERNAL*       2/33
        F$RDT           0   EXTERNAL*       1/42
        F.OPT           0   EXTERNAL*       2/46
        F.RDT           0   EXTERNAL*       1/42 D
        IT.             0   EXTERNAL*       1/42 D
        I.BNL          22                   3/12 D
        I.BNP           0                   3/12 D
        I.NSL          14                   3/11 D
        I.NSP          22                   3/11 D    3/34
        I.SUIL         22                   3/10 D
        I.SUIP         36                   3/10 D    3/47      4/06      4/21      4/33
        I.TREEP        73                   3/08 D
        L$BIT           0   EXTERNAL*       1/42
        L$BVT           0   EXTERNAL*       1/42
        L$CFT           0   EXTERNAL*       1/42
        L$RND           0   EXTERNAL*       1/42
        L$SEQ           0   EXTERNAL*       1/42
        L$TXT           0   EXTERNAL*       1/42
        L.BIT           0   EXTERNAL*       1/42 D
        L.BVT           0   EXTERNAL*       1/42 D
        L.CFT           0   EXTERNAL*       1/42 D    2/49 S    4/51 S
        L.RND           0   EXTERNAL*       1/42 D    2/48 S
        L.SEQ           0   EXTERNAL*       1/42 D
        L.TXT           0   EXTERNAL*       1/42 D    2/40 S
        M.BBL           0   EXTERNAL*       1/43 D    2/04
        M.BBL#          0   EXTERNAL*       1/43
        NPB             0   EXTERNAL*       1/43 D    3/24
        NPB#            0   EXTERNAL*       1/43
        O$BIT           0   EXTERNAL*       1/42
        O$BVT           0   EXTERNAL*       1/42
        O$CFT           0   EXTERNAL*       1/42
        O$RND           0   EXTERNAL*       1/42
        O$SEQ           0   EXTERNAL*       1/42
        O$SYM           0   EXTERNAL*       1/42
        O$TXT           0   EXTERNAL*       1/42
        O.BIT           0   EXTERNAL*       1/42 D    2/12      5/23
        O.BVT           0   EXTERNAL*       1/42 D    5/18
        O.CFT           0   EXTERNAL*       1/42 D    5/17
1       FBV - FORM BIT VECTORS ( USE/DEF AND LIVE EXIT )              COMPASS 3.7-871.     24/05/02. 13.12.29.      PAGE     8
        SYMBOLIC REFERENCE TABLE. 
  
        O.IST           0   EXTERNAL*       1/43 D    3/29      5/13      5/20
        O.IST#          0   EXTERNAL*       1/43
        O.RND           0   EXTERNAL*       1/42 D
        O.SEQ           0   EXTERNAL*       1/42 D    2/07 S    2/18      2/24
        O.SYM           0   EXTERNAL*       1/42 D
        O.TXT           0   EXTERNAL*       1/42 D
        RNB#            0   EXTERNAL*       2/22
        SNO            26   PROGRAM*        2/42      3/23 L    4/52
        SNO1           35   PROGRAM*        3/42 L    3/50
        SNO2           41   PROGRAM*        4/03 L    4/28      4/45
        SNO3           43   PROGRAM*        4/12 L    4/18
        SNO4           47   PROGRAM*        4/12      4/32 L
        S$IT            0   EXTERNAL*       1/42
        WNB=            0   EXTERNAL*       2/46
        Z$CFT           0   EXTERNAL*       3/27
        Z$RND           0   EXTERNAL*       5/16
        Z$TXT           0   EXTERNAL*       2/05
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     CLI                                 2/51 F
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4451              IDENT  GPO
                       4451                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4444 
                                        LITERALS* LOCAL        4444         1 
                                        GPOGRA    COMMON          0        40 
                                        BVINFO    COMMON          0         4 
                                        CCGSCR    COMMON          0       260 
                                        CLCM      LOCAL        4445         4 
  
  
                                        ENTRY POINTS. 
  
                                        B=GPO            0+           M.EBL#          13+           BSI#            32+ 
                                        DMASK#           0+           N.GT#           14+           BSW#            33+ 
                                        O$UDT            0+/GPOGRA/   O$BIT           15+           L.HB#           34+ 
                                        N.VAR#           1+/BVINFO/   L$BIT           16+           NBIP#           46+ 
                                        BVL#             2+/BVINFO/   O$BVT           17+           HBI#            47+ 
                                        CC$CBN           2+           L$BVT           20+           PCC#            76+ 
                                        NPB#             3+           L.PTXT#         22+           SRI#           124+ 
                                        M.GRL#           4+           O.LCT#          23+           COL#           152+ 
                                        N.DG#            5+           L.LCT#          24+           CG$GPO         265+ 
                                        GIC#             6+           O.ELT#          25+           EBV#          1324+ 
                                        O.IST#           7+           L.ELT#          26+           FUD#          1355+ 
                                        M.LP#           10+           O$SEQ           27+           MBT#          4431+ 
                                        N.FTH#          11+           L$SEQ           30+           MPB#          4321+ 
                                        M.BBL#          12+           BN#             31+           MPR#          1260+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BLK     L$PIT     F$RDT     MOREFL#   CMO       RIO#      IMPC#     RTB#
                                        L$BLK     O$PSI     S$IT      LM#       O$CVT     SQZB#     CWS#      Z$RXI 
                                        O$BST     L$PSI     O$SYM     F.MEM     O$APT     CXB#      FBV#      IMPD# 
                                        L$BST     O$RND     O$CFT     HO$LCM    HO$UO     RBS#      HO$OPT    AUT#
                                        O$GST     L$RND     L$CFT     Z$TET     CUC#      HO$CSN    DGS#      CMR#
                                        L$GST     O$RXI     O$GLT     MVE=      HO$TB     Z$BST     F$CFA     Z$UDI 
                                        O$IIT     L$RXI     L$GLT     Z$MOD     WMB#      GBD#      F$UDT     ISC=
                                        L$IIT     O$TET     TYIOM#    SIE#      Z$MLT     GMB#      IMPB#     Z$BLK 
                                        O$MLT     L$TET     STLDS#    Z$TXT     S$LC      N$IT      WII#      AFT#
                                        L$MLT     O$TXT     SUVA#     ATS$      N$LC      SHL#      MCG#      CC$PC 
                                        O$MOD     L$TXT     ESRA#     ADW$      N$SEP     Z$CFT     Z$PIT     HO$ER 
                                        L$MOD     O$UDI     MX.BLN#   Z$IIT     O$FPI     Z$GLT     ESR#      F$BRDGE 
                                        O$PIT     L$UDI     PUNT#     Z$RND     L$FPI     GRA#      CC$LNL
  
  
  
  
                                                  IDENT  GPO                                                     GPO         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     2
  
  
                                                                                                                 SSTCALL     5
             0                           B=GPO    RPVDEF                                                         GPO         5
  
  
                                        **        GPO - GLOBAL PROGRAM OPTIMIZATION                              GPO        12
                                        *                                                                        GPO        13
                                        *         S. I. JASIK - CDC - SUNNYVALE - WINTER 73                      GPO        14
                                        *                                                                        GPO        15
                                        *         ON ENTRY TO *GPO* THE FIRST PASS OF FIVE HAS BEEN PERFORMED    GPO        16
                                        *         BY THE BRIDGE.  IT CONSISTS OF SUBDIVIDING THE INTERMEDIATE    CCGNC     521
                                        *         *TEXT* IN BASIC BLOCKS AND WRITING THEM TO A RANDOM FILE,      CCGNC     522
                                        *         COLLECTING CONTROL FLOW INFORMATION, AND BUILDING A DICTIONARY GPO        19
                                        *         OF REFERENCED VARIABLES FOR USE/DEFINITION ANALYSIS.           GPO        20
                                        *         IN THE INITIALIZATION OF *GPO* THE USE/DEF DICTIONARY IS       GPO        21
                                        *         RESOLVED AND THE CONTROL FLOW INFORMATION PROCESSED TO FIND    GPO        22
                                        *         LOOPS, ETC.                                                    GPO        23
                                        *           PASS 2 READS THE RANDOM FILE SEQUENTIALLY TO FORM THE        GPO        24
                                        *         USE/DEF BIT VECTORS FOR EACH BLOCK, AND THEN PROCESS"S THEM    GPO        25
                                        *         TO FORM THE *LIVE EXIT* VECTORS, WHICH ARE USED TO ELEMINATE   GPO        26
                                        *         DEAD DEFINITIONS AND TO DETERMINE ENTRY/EXIT CONDITIONS        GPO        27
                                        *         DURING REGISTER ASSIGNMENT.                                    GPO        28
                                        *           PASS 3  PROCESSES THE PROGRAM LOOPS IN AN INNER TO OUTER     GPO        29
                                        *         ORDER, MOVING OUT INVARIANT AND STRENGTH REDUCABLE CODE,       GPO        30
                                        *         ASSIGNING REGISTERS ACCROSS THE LOOP AND PROPAGATING THE       GPO        31
                                        *         ENTRY/EXIT CONDITIONS OUT.  FINALLY THE REMAINING STRAIGHT     GPO        32
                                        *         LINE CODE IS PROCESSED AS A SERIES OF EXTENDED BASIC BLOCKS    GPO        33
                                        *         AND CODED.                                                     GPO        34
                                        *           PASS 4  REORDERS THE CODED BLOCKS TO BRING THEM BACK TO      GPO        35
                                        *         SOURCE PROGRAM ORDER, ASSIGNS ADDRESS"S, AND PACKS THE         GPO        36
                                        *         COMPILER CREATED TEMPORARIES.                                  GPO        37
                                        *           PASS 5  IS THE ASSEMBLY PASS.                                GPO        38
                                                                                                                 GPO        39
                                        **        DEBUGGING SNAP LABELS -                                        GPO        40
                                        *                                                                        GPO        41
                                        *         TRACER (GPO,FUD,RDD,MII,FII,MIP,FXI,MIE,SHB,DIF,EIE,MPB)       GPO        42
  
  
  
                                                  LIST   -R,X                                                    CCGNC     523
                                                                                                                 CCGNC     524
                                                  TABLES (BLK,BST,GST,IIT,MLT,MOD,PIT,PSI,RND,RXI,TET,TXT,UDI)   CCGNC     525
                                                  TABLES (CFT,GLT)                                               CCGNC     526
                                                  EXT#   (TYIOM,STLDS,SUVA,ESRA,MX.BLN,PUNT,MOREFL,LM)           CCGNC     527
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     3
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       CFTBLD
  
             0                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
                                                                                                                 CFTBLD      3
                                        **        THE GRAPH STRUCTURE TABLES CONSIST OF ( FOR EACH GRAPH ) -     CFTBLD     13
                                        *         GA, GB WORDS, THE EDGE INDEX TABLE, THE EDGE TABLE, AND        CFTBLD     14
                                        *         INTERVAL LISTS, WHICH ARE TERMINATED BY A ZERO WORD.           CFTBLD     15
                                                                                                                 CFTBLD     16
                                        **        GRAPH HEADER WORDS                                             CFTBLD     17
                                                                                                                 CFTBLD     18
                                                  DESCRIBE GA.,60                                                CFTBLD     19
                                                  DEFINE 24                                                      CFTBLD     20
      L     22  00000000777777000000     LB       DEFINE 18          LINK BACKWARDS ( LENGTH OF LAST GRAPH )     CFTBLD     21
             0  00000000000000777777     LF       DEFINE 18          LINK FOWARD ( LENGTH OF THIS GRAPH )        CFTBLD     22
                                                                                                                 CFTBLD     23
                                                  DESCRIBE GB.,60                                                CFTBLD     24
                                                  DEFINE 6                                                       CFTBLD     25
      L     44  00777777000000000000     NLP      DEFINE 18          N.LOOPS                                     CFTBLD     26
      L     22  00000000777777000000     NB       DEFINE 18          N.BLOCKS IN GRAPH                           CFTBLD     27
             0  00000000000000777777     ILI      DEFINE 18          INTERVAL LIST INDEX ( REL TO *EII* )        CFTBLD     28
  
  
                                        **        EI. - EDGE INDEX TABLE                                         CFTBLD     30
                                                                                                                 CFTBLD     31
                                                  DESCRIBE EI.,60                                                CFTBLD     32
      L     52  77777700000000000000     PRI      DEFINE 18          PREDECESSOR INDEX  ( REL TO EIB )           CFTBLD     33
      L     36  00000077770000000000     NP       DEFINE 12          N.PRED ( PACKED )                           CFTBLD     34
      L     14  00000000007777770000     SUI      DEFINE 18          SUCCESSOR INDEX                             CFTBLD     35
             0  00000000000000007777     NS       DEFINE 12          N.SUCC ( PACKED )                           CFTBLD     36
  
  
                                        **        ET. - EDGE TABLE FORMAT                                        CFTBLD     38
                                                                                                                 CFTBLD     39
                                                  DESCRIBE ET.,60                                                CFTBLD     40
      L     73  40000000000000000000     JP       DEFINE 1           JUMP EDGE ( SUCCESSOR EDGES )               CFTBLD     41
                                                  DEFINE 11                                                      CFTBLD     42
      L     36  00007777770000000000     PRED     DEFINE 18          BLOCK NUMBER OF PRED                        CFTBLD     43
                                                  DEFINE 12                                                      CFTBLD     44
             0  00000000000000777777     SUCC     DEFINE 18          BLOCK NUMBER OF SUCCESSOR                   CFTBLD     45
  
  
  
                                        **        IP. - INTERVAL PROPERTIES                                      CFTBLD     47
                                                                                                                 CFTBLD     48
                                                  DESCRIBE IP.,60                                                CFTBLD     49
      L     73  40000000000000000000     GL       DEFINE 1           SET IF REGION NEEDS A *GL* WHEN OPTIMIZED   CFTBLD     50
      L     72  20000000000000000000     FT       DEFINE 1           FALL THROUGH TO HEADER NODE                 FCC0408     7
                                                  DEFINE 4                                                       FCC0408     8
      L     44  00777777000000000000     NIP      DEFINE 18          N. INTERNAL PRED OF HEADER NODE             FCC0392    11
      L     22  00000000777777000000     PB       DEFINE 18          BLOCK NUMBER OF PROLOGUE BLOCK ( *SCR* " 0  CFTBLD     53
             0  00000000000000777777     NODE     DEFINE 18          NUMBER OF NODES IN INTERVAL                 CFTBLD     54
  
  
                                        **        IM. - INTERVAL MEMBER PROPERTIES                               CFTBLD     56
                                                                                                                 CFTBLD     57
                                                  DESCRIBE IM.,60                                                CFTBLD     58
      L     73  40000000000000000000     SCR      DEFINE 1           IN STRONGLY CONNECTED REGION                CFTBLD     59
      L     72  20000000000000000000     AP       DEFINE 1           ARTICULATION POINT                          CFTBLD     60
      L     71  10000000000000000000     LN       DEFINE 1           LATCHING NODE ( JUMPS BACK TO LOOP HEADER ) CFTBLD     61
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     4
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       IM
  
      L     70  04000000000000000000     DOM      DEFINE 1           NODE IS A DOMINATOR                         CFTBLD     62
      L     67  02000000000000000000     EN       DEFINE 1           INTERVAL EXIT NODE                          CFTBLD     63
      L     66  01000000000000000000     HN       DEFINE 1           HEADER NODE                                 CFTBLD     64
      L     44  00777777000000000000     BI       DEFINE 18          INDEX TO BLOCK INFO IN *BIT*                CFTBLD     65
      L     22  00000000777777000000     IBD      DEFINE 18          IMMEDIATE BACK DOMINATOR ( REL TO *HN* )    CFTBLD     66
             0  00000000000000777777     BN       DEFINE 18          NODE NUMBER OF BLOCK                        CFTBLD     67
                                                                                                                 CFTBLD     68
      L     71  30000000000000000000     APLN     DEQU   LN,2        AP AND LN BITS                              CFTBLD     69
                                                                                                                 CFTBLD     70
                                                  ENDX                                                           CFTBLD     71
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     5
        IOTBLD - RANDOM I/O TABLE FORMAT DEFINITIONS                  IOTBLD
  
             0                           IOTBLD   CTEXT  IOTBLD - RANDOM I/O TABLE FORMAT DEFINITIONS            IOTBLD      2
                                                                                                                 IOTBLD      3
                                        **        RI. - RANDOM INDEX WORD                                        IOTBLD      4
                                                                                                                 IOTBLD      5
                                                  DESCRIBE RI.,60    RIW(FLAGS,LEN,[FWA],[LCM],[OFS,RA])         IOTBLD      6
      L     73  40000000000000000000     IC       DEFINE 1           =1  IN CORE, =0 ON MS                       IOTBLD      7
      L     72  20000000000000000000     AT       DEFINE 1           ADDRESS TYPE, =0 DISK, =1 LCM               IOTBLD      8
                                                  DEFINE 1                                                       IOTBLD      9
      L     47  07777770000000000000     LEN      DEFINE 18          BLOCK LENGTH (INCORE COPY)                  IOTBLD     10
      L     36  00000007770000000000     OFS      DEFINE 9           BLOCK OFFSET IN RECORD                      IOTBLD     11
             0  00000000007777777777     RA       DEFINE 30          DISK ADDRESS OF BLOCK                       IOTBLD     12
                                                                                                                 IOTBLD     13
                                                  DESCRIBE RI.,36                                                IOTBLD     14
                        777777000000     FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     15
                        000000777777     LCM      DEFINE 18          LCM ADDRESS OF BLOCK                        IOTBLD     16
  
  
                                        **        BA. - BLOCK ADDRESS INFORMATION WORD                           IOTBLD     18
                                                                                                                 IOTBLD     19
                                                  DESCRIBE BA.,60    BAW(FLAGS,BI,LEN,FWA)                       IOTBLD     20
      L     73  40000000000000000000     BLK      DEFINE 1           =1 IF BLOCK IS IN *BLK*                     IOTBLD     21
      L     72  20000000000000000000     PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     22
      L     71  10000000000000000000     HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     23
      L     70  04000000000000000000     FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     24
                                                  DEFINE 2                                                       IOTBLD     25
      L     44  00777777000000000000     BI       DEFINE 18          *BIT* INDEX ( = BN*2 )                      IOTBLD     26
      L     22  00000000777777000000     LEN      DEFINE 18          BLOCK LENGTH  (INCORE COPY)                 IOTBLD     27
             0  00000000000000777777     FWA      DEFINE 18          FWA OF BLOCK IN *BLK*                       IOTBLD     28
                                                                                                                 IOTBLD     29
      L     71  30000000000000000000     HBB      DEQU   HB,2        HB AND PRI BITS                             IOTBLD     30
      L     44  37777777000000000000     SAV      DEQU   BI,23                                                   IOTBLD     31
      L     22  37777777777777000000     SVL      DEQU   LEN,41                                                  IOTBLD     32
  
  
                                        **        BH. - BLOCK HEADER INFORMATION WORD                            IOTBLD     34
                                                                                                                 IOTBLD     35
                                                  DESCRIBE BH.,60    BHW(FLAGS,BI,BST,LEN)                       IOTBLD     36
      L     73  40000000000000000000     AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     37
      L     72  20000000000000000000     PRI      DEFINE 1           BLOCK PRIORITY FOR PURGING                  IOTBLD     38
      L     71  10000000000000000000     HB       DEFINE 1           HOLDING BLOCK                               IOTBLD     39
      L     70  04000000000000000000     FW       DEFINE 1           FINAL WRITE FLAG                            IOTBLD     40
                                                  DEFINE 2                                                       IOTBLD     41
      L     44  00777777000000000000     BI       DEFINE 18          BIT INDEX, (BN*2)                           IOTBLD     42
      L     22  00000000777777000000     BST      DEFINE 18          INDEX TO BST TABLE                          IOTBLD     43
             0  00000000000000777777     LEN      DEFINE 18          BLOCK LENGTH                                IOTBLD     44
                                                                                                                 IOTBLD     45
                                        **        BT. - BLOCK TRAILER WORD                                       IOTBLD     46
                                                                                                                 IOTBLD     47
                                                  DESCRIBE BT.,60    BTW(FLAGS,LKB,LKF,LEN)                      IOTBLD     48
      L     73  40000000000000000000     AV       DEFINE 1           =1 BLOCK IS AVAILABLE SPACE                 IOTBLD     49
                                                  DEFINE 5                                                       IOTBLD     50
      L     44  00777777000000000000     LKB      DEFINE 18          ABS LINK BACKWARD                           IOTBLD     51
      L     22  00000000777777000000     LKF      DEFINE 18          ABS LINK FORWARD                            IOTBLD     52
             0  00000000000000777777     LEN      DEFINE 18          BLOCK LENGTH (INCLUDING EXTRA WORDS)        IOTBLD     53
                                                                                                                 IOTBLD     54
                                                  ENDX                                                           IOTBLD     55
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     6
        UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS                     UDTBLD
  
             0                           UDTBLD   CTEXT  UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS               UDTBLD      2
                                                                                                                 UDTBLD      3
                                        **        UA. - FORMAT OF USE/DEF INDEX TABLE DURING CHAINING PHASE      UDTBLD      4
                                                                                                                 UDTBLD      5
                                                  DESCRIBE UA.,60                                                UDTBLD      6
                                                  DEFINE 5                                                       UDTBLD      7
      L     66  01000000000000000000     CR       DEFINE 1                                                       UDTBLD      8
      L     44  00777777000000000000     HL       DEFINE 18          HASH LINK                                   UDTBLD      9
      L     22  00000000777777000000     CA       DEFINE 18          BIAS ( IF CR " 0, THEN CA = -0 )            UDTBLD     10
             0  00000000000000777777     IH       DEFINE 18          BASE ( SYMBOL ORDINAL )                     UDTBLD     11
                                                                                                                 UDTBLD     12
             0  00000000777777777777     CAIH     DEQU   IH,36                                                   UDTBLD     13
  
  
                                        **        UD. - FORMAT OF USE/DEF TABLE AFTER CHAINING                   UDTBLD     15
                                        *                                                                        UDTBLD     16
                                        *         ENTRY  0 - SPOIL ENTRY ( NO OPTIMIZATION POSSIBLE )            UDTBLD     17
                                        *                1 - LOAD ONLY VARIABLES ( A0+K )                        UDTBLD     18
                                        *                                                                        UDTBLD     19
                                        *         WORD 2 = 12/P(BITN),30/,18/WI ( WORD INDEX )                   UDTBLD     20
                                                                                                                 UDTBLD     21
                                                  DESCRIBE UD.,60                                                UDTBLD     22
      L     73  40000000000000000000     DEFR     DEFINE 1           DEFINED IN REGION                           UDTBLD     23
      L     72  20000000000000000000     DEF      DEFINE 1           IH/CA DEFINED IN BLOCK                      UDTBLD     24
      L     71  10000000000000000000     DBU      DEFINE 1           DEFINITION BEFORE USE                       UDTBLD     25
      L     70  04000000000000000000     USE      DEFINE 1           USE                                         UDTBLD     26
      L     67  02000000000000000000     ^RD      DEFINE 1           NOT RECURSIVELY DEFINED                     UDTBLD     27
      L     66  01000000000000000000     IST      DEFINE 1           INTERFERING STORE ( RJX, ETC. )             UDTBLD     28
                                                                                                                 UDTBLD     29
      L     55  00777000000000000000     STC      DEFINE 9           STORE COUNT                                 UDTBLD     30
      L     54  00000400000000000000     RF       DEFINE 1           SHORT USAGE IN A LOOP                       FCC1504X    7
      L     53  00000200000000000000     FP       DEFINE 1           IH/CA IS A F.P.                             UDTBLD     31
      L     52  00000100000000000000     COM      DEFINE 1           IH/CA IS IN COMMON                          UDTBLD     33
                                                  DEFINE 4                                                       CCG1        1
      L     24  00000003777774000000     BMI      DEFINE 18          INDEX TO BASE MEMBER ( CM " 0 )             UDTBLD     35
      L     23  00000000000002000000     CM       DEFINE 1           CLASS MEMBER ( NON BASE MEMBER OF EQV CLASS UDTBLD     36
      L     22  00000000000001000000     CR       DEFINE 1           CLASS REPRESENTATIVE                        UDTBLD     37
             0  00000000000000777777     ECL      DEFINE 18          EQUIV CHAIN LINK ( TO NEXT ON CHAIN )       UDTBLD     38
                                                                                                                 UDTBLD     39
      L     72  60000000000000000000     DEFB     DEQU   DEF,2       DEF BITS ( REGION AND BLOCK )               UDTBLD     40
      L     70  34000000000000000000     MV       DEQU   USE,3       MARKED VARIABLE ( USE, DBU, DEF )           UDTBLD     41
      L     22  00000000000003000000     CB       DEQU   CR,2        CLASS BITS                                  UDTBLD     42
      L     55  00003000000000000000     SMS      DEQU   STC,2       STORE MOTION SPOIL FOR VARS DEF IN INNERLP  UDTBLD     43
  
  
                                        **        R2. - FORMAT OF *R2* WORD OF *BOS* OF BLOCK WRITTEN TO MASS    UDTBLD     45
                                        *                STORAGE                                                 UDTBLD     46
                                                                                                                 UDTBLD     47
                                                  DESCRIBE R2.,60                                                UDTBLD     48
      L     73  40000000000000000000     UXR      DEFINE 1           =1 IF USER EXT REFS IN BLOCK                UDTBLD     49
      L     72  20000000000000000000     LONG     DEFINE 1           =1 IF INDEX VARIABLE IS LONG ( 21 BIT ARIT  CCG21       5
                                                  DEFINE 16                                                      CCG21       6
      L     22  00000077777777000000     MRA      DEFINE 24          MACHINE REGISTERS AVAIL                     UDTBLD     51
             0  00000000000000777777     TXTL     DEFINE 18          *TXT* LENGTH OF BLOCK                       UDTBLD     52
                                                                                                                 UDTBLD     53
                                                  ENDX                                                           UDTBLD     54
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     7
        CLCM - COROUTINE LOOP CONTROL MACRO                           CLCM
  
                                        **        CLCM - COROUTINE LOOP CONTROL MACRO                            GPOCOM      3
                                        *                                                                        GPOCOM      4
                                        *         CLCM   ROUTINE,(BSW-FLAGS)                                     GPOCOM      5
                                        *                                                                        GPOCOM      6
                                        *         CALL *ROUTINE* FROM *PCC* IF *BSW-FLAGS* " 0 , FOR EACH BLOCK  GPOCOM      7
                                        *         IN THE REGION ( *SCR* ) BEING PROCESSED.                       GPOCOM      8
                                        *         IF *FIELDS* IS ABSENT, THEN CALL *ROUTINE* UNCONDITIONALLY.    GPOCOM      9
                                                                                                                 GPOCOM     10
                                         CLCM     MACRO  RTN,FIELDS                                              GPOCOM     11
                                                  LOCAL  CCW                                                     GPOCOM     12
                                                  SX7    =X_RTN                                                  GPOCOM     13
                                                                                                                 GPOCOM     14
                                                  IFC    EQ,/FIELDS//,2                                          GPOCOM     15
                                                  SX5    0                                                       GPOCOM     16
                                                  ELSE   4                                                       GPOCOM     17
                                                  SA5    CCW                                                     GPOCOM     18
                                                  USE    CLCM                                                    GPOCOM     19
                                         CCW      BFMW   BS,(FIELDS)                                             GPOCOM     20
                                                  USE    *                                                       GPOCOM     21
                                                                                                                 GPOCOM     22
                                                  RJ     =XPCC#                                                  CCGNC     480
                                                  ENDM                                                           GPOCOM     24
  
  
                                        **        FBVA - FORM BLOCK BIT VECTOR ADDRESS                           GPOCOM     26
                                        *                                                                        GPOCOM     27
                                        *         ENTRY  (BN) = REGISTER WITH *BI* INDEX OF BLOCK                GPOCOM     28
                                        *                                                                        GPOCOM     29
                                        *         EXIT   (X7) = BVA = O.BVT + BVI[BIT(BN)]                       GPOCOM     30
                                        *                (X4) = BIT(BN)                                          GPOCOM     31
                                        *                (B2) = VL = BVL + 1                                     GPOCOM     32
                                                                                                                 GPOCOM     33
                                         FBVA     MACRO  BN                                                      GPOCOM     34
                                                  R=     B3,BN                                                   GPOCOM     35
                                                  SA1    O.BVT                                                   GPOCOM     36
                                                  SA2    BVL                                                     GPOCOM     37
                                                  SA3    O.BIT                                                   GPOCOM     38
                                                  SB2    X2+B1       VL = BVL + 1                                GPOCOM     39
                                                  SA4    X3+B3       BIT(BN)                                     GPOCOM     40
                                                  LX4    -BI.BVIP                                                GPOCOM     41
                                                  IX7    X1+X4       BVA = O.BVT + BVI[BIT(BN)]                  GPOCOM     42
                                                  LX4    BI.BVIP                                                 GPOCOM     43
                                                  ENDM                                                           GPOCOM     44
  
  
                                        **        PRNTABV - PRINT A BIT VECTOR                                   GPOCOM     46
                                        *                                                                        GPOCOM     47
                                        *         PRNTABV  LAB,(LIST OF VECTOR ADDRESS"S)                        GPOCOM     48
                                                                                                                 GPOCOM     49
                                         PRNTABV  MACRO  LAB,BVA                                                 GPOCOM     50
                                                  IF     DEF,/DEBUG/LAB,3                                        GPOCOM     51
                                                  IRP    BVA                                                     GPOCOM     52
                                                  DCALL  PRNTABV,(=5L BVA ,[_BVA_])                              GPOCOM     53
                                                  IRP                                                            GPOCOM     54
                                                  ENDM                                                           GPOCOM     55
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     8
        CLCM - COROUTINE LOOP CONTROL MACRO                           MICROS
  
                                        *         SOME POPULAR REGISTER ASSIGNMENTS                              GPOCOM     57
                                                                                                                 GPOCOM     58
                                         TB       MICRO  1,,/B7/     O.SEQ + 3                                   GPOCOM     59
                                         RN       MICRO  1,,/-X0*/   R-NUMBER EXTRACTOR MASK                     GPOCOM     60
  
  
  
                                        *         E. - NODE NUMBER TO *BIT* INDEX TRANSITION TABLE FORMAT        GPOCOM     62
                                                                                                                 GPOCOM     63
                                                  DESCRIBE E.,60                                                 GPOCOM     64
      L     73  40000000000000000000     SCR      DEFINE 1           IN *SCR*                                    GPOCOM     65
      L     72  20000000000000000000     JP       DEFINE 1           SUCC REACHED BY A *JP* EDGE                 GPOCOM     66
      L     71  10000000000000000000     ALLP     DEFINE 1           ALL PRED OF EXIT NODE IN *SCR*              GPOCOM     67
      L     60  07770000000000000000     NPRED    DEFINE 9           N.PRED IN SCR OF SUCCESSOR NODE             GPOCOM     68
      L     41  00007777700000000000     PRED     DEFINE 15          *BI* OF FIRST PRED IN SCR TO REACH SUCC     FCC0985     5
      L     17  00000000077777700000     LINK     DEFINE 18          LINK TO NEXT ON SUCC LIST                   GPOCOM     70
             0  00000000000000077777     BI       DEFINE 15          *BIT* INDEX OF NODE NUMBER I                GPOCOM     71
  
  
  
                                        **        PS. - POST STORE INFO FORMAT ( *PSI* )                         GPOCOM     73
                                        *                                                                        GPOCOM     74
                                        *         FIRST WORD OF A *PSI* ENTRY IS THE NUMBER OF POST STORES.      GPOCOM     75
                                        *         THE REMAINNG WORDS SPECIFY THE VARIABLES TO BE STORED OUT AND  GPOCOM     76
                                        *         THE REGISTERS THAT THEY ARE IN.                                GPOCOM     77
                                                                                                                 GPOCOM     78
                                                  DESCRIBE PS.,60                                                GPOCOM     79
      L     66  77000000000000000000     REG      DEFINE 6           REGISTER NUMBER THAT VAR IS IN ( *SO* ORDER GPOCOM     80
      L     44  00777777000000000000     UDI      DEFINE 18          UDI INDEX OF VARIABLE                       GPOCOM     81
             0  00000000777777777777     CAIH     DEFINE 36          BASE/BIAS OF SYMBOL                         GPOCOM     82
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE     9
        CLCM - COROUTINE LOOP CONTROL MACRO                           IIT 
  
                                        **        IIT - INCREMENT INFO TABLE                                     GPOCOM     84
                                        *                                                                        GPOCOM     85
                                        *         *IIT* CONSISTS OF 3 LISTS -                                    GPOCOM     86
                                        *                                                                        GPOCOM     87
                                        *         A) THE LIST OF *RD* INCREMENT VALUES                           GPOCOM     88
                                        *                HBP OF THE LINK WORD OF THE *RD* POINTS TO *IIT*        GPOCOM     89
                                        *         (IIT) = 12/P(TYPE),48/VAL                                      GPOCOM     90
                                        *                TYPE        VALUE                                       GPOCOM     91
                                        *                0           S    RI,VAL                                 GPOCOM     92
                                        *                1           LD   RI,VAL  , VAL = 12/IN[R1],36/CAIH[R2]  GPOCOM     93
                                        *                2           LD   RI,VAL , AND AN   XMTC                 GPOCOM     94
                                        *                3           TLD  RI,VAL                                 GPOCOM     95
                                        *                4           TLD  RI,VAL  , AND AN XMTC                  GPOCOM     96
                                        *                5/6         LDV  RI,VAL , AND XMT/XMTC                  CCG0127     8
                                        *                                                                        GPOCOM     97
                                        *         B) THE INTEGER POLYNOMIAL INFORMATION LIST, WHICH CONSISTS OF  GPOCOM     98
                                        *         A POLYNOMIAL INFORMATION WORD ( *PI* ), FOLLOWED BY THE        GPOCOM     99
                                        *         INCREMENT FORMULA AND THE POLYNOMIAL FORMULA.  A FORMULA       GPOCOM    100
                                        *         CONSISTS OF TWO HEADER WORDS ( *IA* AND *IB* ), FOLLOWED       GPOCOM    101
                                        *         BY INSTRUCTIONS ( 4 WORDS/INST ) WHICH DEFINE IT.              GPOCOM    102
                                                                                                                 GPOCOM    103
                                                  DESCRIBE PI.,60                                                GPOCOM    104
      L     73  40000000000000000000     MIP      DEFINE 1           MARKED *IP*                                 GPOCOM    105
                                                  DEFINE 5                                                       GPOCOM    106
      L     44  00777777000000000000     CN       DEFINE 18          CLASS NUMBER OF SET OF SIMILAR *IP"S*       FCC0514    20
      L     22  00000000777777000000     CA       DEFINE 18          CA OF IP THIS *IP* IS SIMILAR TO            GPOCOM    108
             0  00000000000000777777     LF       DEFINE 18          LINK FOWARD ( REL TO *O.IIT* )              GPOCOM    109
                                                                                                                 GPOCOM    110
                                                  DESCRIBE IA.,60                                                GPOCOM    111
      L     60  77770000000000000000     NWD      DEFINE 12          P(N.WDS IN FORMULA) , INCLUDES HEADER WDS   GPOCOM    112
                                                  DEFINE 12                                                      GPOCOM    113
      L     22  00000000777777000000     CA       DEFINE 18          CA OF *IP*                                  GPOCOM    114
             0  00000000000000777777     UDI      DEFINE 18          *UDI* INDEX OF INTEGER VARIABLE *LD*        GPOCOM    115
                                                                                                                 GPOCOM    116
                                                  DESCRIBE IB.,60                                                GPOCOM    117
      L     60  77770000000000000000     NLD      DEFINE 12          P(N.LD"S IN FORMULA)                        GPOCOM    118
                                                  DEFINE 30                                                      GPOCOM    119
             0  00000000000000777777     ILD      DEFINE 18          *RI* OF *LD* OF *RD* VAR IN EXPRESSION      GPOCOM    120
                                                                                                                 GPOCOM    121
                                        *         C) A LIST OF POLYNOMIAL INCREMENT VALUES AT THE POINT          GPOCOM    122
                                        *         OF A *RD*.                                                     GPOCOM    123
                                        *         THIS LIST CONSISTS OF 2 WORDS / ENTRY, TERMINATED BY A 0 WORD  GPOCOM    124
                                        *                                                                        GPOCOM    125
                                        *         WORD 1 = 60/CA OF *TST* THAT IS BEGIN INCREMENTED              GPOCOM    126
                                        *         WORD 2 = 12/TYPE,48/VAL OF INCREMENT , AS IN LIST A .          GPOCOM    127
                                        *                                                                        GPOCOM    128
                                        *         THE FORMAT OF THE LINK WORD OF THE *RD* IS                     GPOCOM    129
                                        *                12/P(N.PI),12/,18/STC,18/INDEX TO LIST IN *IIT*         GPOCOM    130
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    10
        GPO/GRA COMMON VARIABLES                                      COMMON
  
                                        *         THE FOLLOWING LOCATIONS ARE SHARED BETWEEN *GPO* AND *GRA*     GPOCOM    132
                                                                                                                 GPOCOM    133
                                                  USE    /GPOGRA/                                                GPOCOM    134
             0                     1     O.UDT    BSS    1           FWA OF *UDI* IN LOW CORE                    GPOCOM    135
             1                     1     L.UDT    BSS    1           LENGTH                                      GPOCOM    136
             2                     1     O.MVL    BSS    1           FWA OF MARKED VAR LIST ( IN *UDT* )         GPOCOM    137
                                                                                                                 GPOCOM    138
                                        *         ADDRESS"S OF SPECIAL BIT VECTORS                               GPOCOM    139
                                                                                                                 GPOCOM    140
             3                     1     DVA      BSS    1           REGION *DEF* VECTOR                         GPOCOM    141
             4                     1     LUV      BSS    1           LOOP USEAGE VECTOR                          GPOCOM    142
             5                     1     UVA      BSS    1           REGION *USE* VECTOR                         GPOCOM    143
             6                     1     LXA      BSS    1           REGION *LIVE EXIT* VECTOR                   GPOCOM    144
                                                                                                                 GPOCOM    145
             7                     1     LEA      BSS    1           REGION *LIVE ENTRY* VECTOR                  GPOCOM    146
            10                     1     MDA      BSS    1           *MOVABLE DEFS*                              GPOCOM    147
            11                     1     SVA      BSS    1           SCRATCH VECTOR                              GPOCOM    148
                                   7     N.SBV    EQU    *-DVA       N. SPECIAL BIT VECTORS                      GPOCOM    149
                                        *                        WSC                                             GPOCOM    150
            12  00000000000000000100     M.PL     CON    100B        MAX *PIT* LENGTH                            GPOCOM    151
                                                                                                                 GPOCOM    152
            13  00000000000000000002     EMF      CON    2           FP/LVL EXPANSION MODE ( *CBB* ARGUMENT )    GPOCOM    153
            14                     1     ITL      BSS    1           INITIAL *TET* LENGTH                        GPOCOM    154
            15  00000000000077777777     MRA      VFD    36/,24/-0   MACHINE REGISTERS AVAILABLE ( 8/X,8/A,8/B ) GPOCOM    155
            16                     1     LGL      BSS    1           LP GEN LBL, LL=LP LBL 42/GEN LBL-LL,18/LL   FCC0909     7
                                                                                                                 GPOCOM    156
                                        *                           ?FWA OF CLEARED CELLS                        GPOCOM    157
            17                     1     N.HB     BSS    1           N. HOLDING BLOCKS IN LOOP ( =0 IF INNERMOST GPOCOM    158
            20                     1     XRF      BSS    1           "0 IF LOOP CONTAINS EXTERNAL REFS           GPOCOM    159
                                                                                                                 GPOCOM    160
            21                     1     LCV      BSS    1           18/UDI,36/CAIH OF LOOP CONTROL VAR          GPOCOM    161
            22                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    162
            23                     1     LUL      BSS    1           LOOP UPPER LIMIT IN *IIT A* FORMAT          GPOCOM    163
            24                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    164
            25                     2     LIH      BSS    2           IH OF LOOP LABEL / *R2* WORD OF *LAB*       GPOCOM    165
            27                     1     N.LJ     BSS    1           N. JPX"S THAT REF LOOP LABEL                GPOCOM    166
            30                     1     LTT      BSS    1           LOOP TEST TYPE, =0 IF NO TEST REPLACEMENT   GPOCOM    167
                                        *                            =1 , TEST IS  IF( LCV @ LUL ) GO TO LIH     GPOCOM    168
                                        *                        FXI                                             GPOCOM    169
            31                     1     O.ENL    BSS    1           FWA OF EXIT NODE LIST IN *BTT*              GPOCOM    170
            32                     1     N.ENL    BSS    1           N. EXIT NODES                               GPOCOM    171
            33                     1     EPSI     BSS    1           N. EXIT NODES THAT ARE FALL THROUGH         FCC0985     6
                                        *                        CBB                                             GPOCOM    174
            34                     1     MAXW     BSS    1           MAX *REG WIDTH* OF REGION                   GPOCOM    175
            35                     1     N.EBB    BSS    1           N. EXTENDED BASIC BLOCKS IN REGION          GPOCOM    176
                                                                                                                 GPOCOM    177
            36                     1     PL       BSS    1           *PIT* LENGTH AT START OF BLOCK              GPOCOM    178
            37                     1     STP      BSS    1           "0 IF SOME *IP* IS A FUNCTION OF THE*LCV*   GPOCOM    180
                                  21     N.CLC    EQU    *-N.HB     'END OF ZEROED CELLS REGION                  GPOCOM    181
                                                  USE    0                                                       GPOCOM    182
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    11
        VARIABLES                                                     FLAGS 
  
                                        *         GLOBAL FLAGS                                                   GPO        57
                                                                                                                 GPO        58
             0                           DMASK    BFMW   D,(STRS,USES)     FIELD CLEAR MASK                      GPO        60
                                         DMASK#   EQENT  DMASK                                                   CCGNC     528
                                         O$UDT    EQENT  O.UDT                                                   CCGNC     529
                                                                                                                 GPO        61
                                        *                        PRE                                             GPO        62
             1                     1     N.GL0    BSSZ   1           NEXT AVAIL GL -1 FOR MULTI PRED LOOPS       CCGNC     530
                                        *                        AUT                                             GPO        64
                                                  USE    /BVINFO/                                                GPO        65
             0                     1     VL       BSS    1           BIT VECTOR LENGTH                           GPO        66
             1                           N.VAR    ENTRY. 0,#         N. VARS IN *UDT*                            CCGNC     531
             2                           BVL      ENTRY. 0,#         VL - 1                                      CCGNC     532
             3                     1     RCV      BSSZ   1           =1 IF *UDT* CONTAINS COMMON VARIABLES       GPO        69
                                                  USE    0                                                       GPO        70
                                        *                        DGS                                             GPO        71
             2                           CC$CBN   ENTRY. 2           CURRENT FLOW BLOCK NUMBER                   CCGNC     533
             3                           NPB      ENTRY. 3,#         N. PROGRAM BLOCKS                           CCGNC     534
             4                           M.GRL    ENTRY. 0,#         MAX GRAPH LENGTH                            CCGNC     535
             5                           N.DG     ENTRY. 0,#         N.DERIVED GRAPHS ( MAX LOOP NESTING LEVEL ) CCGNC     536
             6                           GIC      ENTRY. 0,#         GRAPHS IN CORE FLAG , =0 IF INCORE          CCGNC     537
             7                           O.IST    ENTRY. =XF$BRDGE,# FWA OF GRAPH STRUCTURE TBLS AFTER MOVE DOWN CCGNC     538
            10                           M.LP     ENTRY. 0,#         MAX  N.LOOPS IN A GRAPH                     CCGNC     539
            11                           N.FTH    ENTRY. 0,#         N. FTH LOOPS                                CCGA021    28
                                        *                        GPO                                             CCGNC     540
            12                           M.BBL    ENTRY. 60D,#       MAX BASIC BLOCK LENGTH                      CCGNC     541
            13                           M.EBL    ENTRY. 0,#         MAX EXTENDED BLOCK LENGTH                   CCGNC     542
            14                           N.GT     ENTRY. 0,#         N. GLOBAL TEMPS                             CCGNC     543
            15                           O$BIT    ENTRY. O.UDB       FWA OF BLOCK INDEX TABLE                    CCGNC     544
            16                           L$BIT    ENTRY. 8           LEN                                         CCGNC     545
            17                           O$BVT    ENTRY. 0           FWA OF BIT VECTOR TABLE                     CCGNC     546
            20                           L$BVT    ENTRY. 0           LEN                                         CCGNC     547
            21                     1     L.SBV    BSS    1         LEN OF SPECIAL BIT VECTORS                    CCGNC     548
            22                           L.PTXT   ENTRY. 0,#         LEN OF *FTNOPT* AT START OF *GPO*           CCGNC     549
            23                           O.LCT    ENTRY. ,#          FWA OF LABEL CHANGE TABLE                   CCG18      85
            24                           L.LCT    ENTRY. ,#          LEN  ( SET IN CFA )                         CCG18      86
            25                           O.ELT    ENTRY. 0,#         ORIGIN OF ELIMINATED LABEL DEF TABLE        CCGA021    29
            26                           L.ELT    ENTRY. 0,#         LENGTH  24/,18/IH PROG LAB,18/H OF GL       CCGA021    30
                                        *                        PCC                                             CCGNC     552
            27                           O$SEQ    ENTRY. 0           FWA OF BLOCK BEGIN PROCESSED                CCGNC     553
            30                           L$SEQ    ENTRY. 0           LEN                                         CCGNC     554
            31                           BN       ENTRY. 0,#         *BIT* INDEX OF BLOCK NUMBER                 CCGNC     555
            32                           BSI      ENTRY. 0,#         *BSI* INDEX                                 CCGNC     556
            33                           BSW      ENTRY. 0,#         WORD 2 OF *BST* ENTRY OF CURRENT BLOCK      CCGNC     557
                                        *                        SHB                                             CCGNC     558
            34                           L.HB     ENTRY. 0,#         LEN OF HOLDING BLOCK                        CCGNC     559
                                                                                                                 CCGNC     560
                                                  ECHO   2,Z=(BIT,BVT,SEQ)                                       CCG18      87
                                         O.Z      EQU    O$Z                                                     CCGNC     562
                                         L.Z      EQU    L$Z                                                     CCGNC     563
                                                                                                                 GPO        98
                                        *         INTERVAL STRUCTURE TABLE POINTERS                              GPO        99
                                                                                                                 GPO       100
            35                     1     O.BTT    BSS    1           FWA OF BLOCK TRANSITION TABLE               GPO       101
            36                     1     O.HNT    BSS    1           FWA HEADER NODE TABLE                       FCC0392    13
            37                     1     L.HNT    BSS    1           LWA+1 OF *HNT*                              FCC0392    14
                                        *                        IGP                                             GPO       102
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    12
        VARIABLES                                                     FLAGS 
  
            40  00000000000000000000 X   GP       VFD    42/,18/=XF$BRDGE  GRAPH POINTERS                        CCG11     113
            41                     1     EIT      BSS    1           EDGE INDEX TABLE ADDRESS                    GPO       104
            42                     1     N.LP     BSS    1           N. UNPROCESSED LOOPS IN CURRENT GRAPH       GPO       105
            43  00000000000000000151 +   IBA      VFD    42/,18/COLA+1,60/1  INTERVAL BASE ADDR ( HEADER NODE )  GPO       106
            44  00000000000000000001
                                  44 +   NN       EQU    IBA+1       N. NODES IN INTERVAL                        GPO       107
                                                                                                                 GPO       108
            45  00000000000000000000     BBV      CON    0           BUILD BIT VECTOR FLAG FOR *FUD*             GPO       109
                                        *                            =0 IF TO FORM BIT VECTORS.                  GPO       110
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    13
        VARIABLES                                                     FLAGS 
  
            46                           NBIP     ENTRY. 0,#         "0 IF LOOP CONTAINS NON-BASE *IP*S          CCGNC     564
                                                                                                                 FCC0514    23
                                        *         LOCAL VARIABLES                                                GPO       112
                                                                                                                 GPO       113
            47                           HBI      ENTRY. 0,#         BN OF HOLDING BLOCK, 0 IF OUTSIDE ALL LPS   CCGNC     565
            50                     1              BSS    1           R1 OF HEADER, 12/P(OC.BOS),18/LINE,30/BN    GPO       115
            51                     1     MRA.X    BSS    1           *MRA* NOT REDUCED BY EXT REFS IN CASE ALL   FCC1254     7
                                        *                            ARE MOVED OUT OF THE LOOP AS INVARIANT      FCC1254     8
            52                     2     UXR      BSS    2           =1 IF EXT REFS IN BLOCK / REGION            FCC0448    31
            54                     1     FTH      BSSZ   1           < 0 IF FALL THROUGH TO HEADER LOOP          FCC0408     9
                                                                                                                 GPO       116
                                                  USE    /CCGSCR/                                                CCG18      88
             0                   100     CCG.SCR  BSS    100B        SCRATCH FOR BDT, ETC                        CCG16     200
                                                                                                                 GPO       119
                                        *                        IRP                                             GPO       120
           100                     1     NTP      BSS    1           N. TERMINAL POLYNOMIALS                     GPO       123
           101                     1     PIC      BSS    1           POLYNOMIAL INCREMENT FORMULA LIST POINTER   GPO       124
           102                     1     TTI      BSS    1           *TET* INDEX FOR CURRENT BLOCK ( *UPB* )     GPO       125
                                                                                                                 GPO       126
                                        *                        FUD                                             GPO       127
           103                     1     BVI      BSS    1           BIT VECTOR INDEX                            GPO       129
                                                                                                                 GPO       130
                                        *                        CHB                                             GPO       131
           104                     2     VI2      BSS    2           *BVT* INDICES OF THE SECOND AND FIRST BLOCK GPO       132
           106                     1     BSIS     BSS    1           30/BST OF PRED,30/BSI OF CURRENT BLOCK      GPO       133
                                                                                                                 GPO       134
                                        *                        MII                                             GPO       135
           107                     1     AN       BSS    1           1S59 IF BLOCK IS AN ARTICULATION NODE       GPO       136
           110                     1     UBD      BSS    1           BLOCK *UBD* BIT VECTOR ADDRESS              GPO       137
           111                     2     IJP      BSS    2           INVARIANT JUMP ENCOUNTERED FLAG             GPO       138
                                 112 C   UIC      EQU    IJP+1       UNSAFE INVARIANT CODE ENCOUNTERED           GPO       139
                                                                                                                 GPO       140
                                        *                        FII                                             GPO       141
           113                     1     IIL      BSS    1           INITIAL *IIT* LENGTH                        GPO       142
                                                                                                                 GPO       143
                                        *                        MIE                                             GPO       144
           114                     1     MINC     BSS    1           MIN COST *IP* VALUES THAT WE WILL MOVE      GPO       145
           115                     1     IC       BSS    1           INSTRUCTION CHAIN                           GPO       146
           116                     1     ISV      BSS    1           SAVED VALUE OF I ( MULTIPLE DEF"S )         FCC1254     9
           117                     1     TBB      BSS    1           FWA OF HOLDING BLOCK                        GPO       147
                                                                                                                 GPO       148
                                        *                        CIF                                             GPO       149
           120                     1     CAS      BSS    1           *CA* OF TERMINAL POLYNOMIAL                 GPO       150
           121                     1     TSC      BSS    1           TEMP STORE CHAIN POINTER                    GPO       151
                                 121 C   CNI      EQU    TSC         CLASS NUMBER INCREMENT                      FCC0514    24
                                                                                                                 GPO       152
                                        *                        FIM                                             GPO       153
           122                     1     SC       BSS    1           *TXT* INDEX OF *ST*                         GPO       154
           123                     1     J        BSS    1           *UDI* INDEX OF *ST*                         GPO       155
           124                     1     EV       BSS    1           EXPRESSION VALUE                            GPO       156
           125                     2     PI       BSS    2           POLYNOMIAL INCREMENT FORMULA INDEX          GPO       157
           127                     1     ITB      BSS    1           L.IIT WHEN START TO PROCESS A *ST*          GPO       158
           130                   130              BSS    CCG.SCR+260B-*    ENSURE FIRST BLOCK SIZE IS LARGEST    CCG18      89
                                                  USE    0                                                       GPO       159
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    14
        TABLE FORMATS                                                 STRUCT
  
                                        *         BS. - BLOCK STATUS INFORMATION WORD ( *MII* TO *UPB* )         GPO       161
                                        *         INITIALLY THE *BS* WORD CONTAINS THE *IM* WORD OF THE BLOCK    GPO       162
                                                                                                                 GPO       163
                                                  DESCRIBE BS.,60                                                GPO       164
                                                  DEFINE 2                                                       GPO       165
      L     60  17770000000000000000     NIS      DEFINE 10          P(N.INCREMENT STORES/N.POLYNOMIAL INCRS)    GPO       166
      L     57  00004000000000000000     BM       DEFINE 1           BLOCK MODIFIED                              GPO       167
      L     44  00003777000000000000     NTET     DEFINE 11          N.TET"S IN BLOCK                            GPO       168
      L     22  00000000777777000000     STC      DEFINE 18          *RD* STORE CHAIN                            GPO       169
      L      0  00000000000000777777     IIC      DEFINE 18          INVARIANT / INTEGER POLYNOMIAL CHAIN        GPO       170
  
  
  
                                        *         I. - LINK INFORMATION WORD FORMAT DURING *GPO*                 GPO       172
                                        *         THE LINK WORD IS IN I. FORMAT FROM *MII* TO *UPB*              GPO       173
                                                                                                                 GPO       174
                                                  DESCRIBE I.,60                                                 GPO       175
      L     73  40000000000000000000     INV      DEFINE 1           INVARIANT INSTRUCTION                       GPO       176
      L     72  20000000000000000000     M        DEFINE 1           MARKED ( IN *DIF* )                         GPO       177
      L     71  10000000000000000000     TI       DEFINE 1           TERMINAL EXPRESSION                         GPO       178
                                                                                                                 GPO       179
      L     70  04000000000000000000     IA       DEFINE 1           INTEGER ADD                                 GPO       180
      L     67  02000000000000000000     IP       DEFINE 1           INTEGER POLYNOMIAL                          GPO       181
      L     66  01000000000000000000     AIP      DEFINE 1           ABNORMAL IP, TERMINAL IP USES OLD VALUE OF  FCC0717     6
                                        *                            RD VAR & IS PAST AN INCR OF IT.             FCC0717     7
            55  00777000000000000000     COST     DEFINE 9           *COST* OF AN *IP*                           GPO       183
      L     44  00000777000000000000     USES     DEFINE 9           COUNT OF REMOVED USES                       GPO       184
      L     22  00000000777777000000     IIC      DEFINE 18          INV INST CHAIN, ETC                         GPO       185
      L      0  00000000000000777777     HBP      DEFINE 18          HOLDING BLOCK POINTER                       GPO       186
                                                                                                                 GPO       187
      L      0  00000000000000777777     LDI      DEQU   HBP         *UDI* INDEX OF *LD* IF INST IS *IA* / *IP*  GPO       188
      L     22  00000000777777000000     STC      DEQU   IIC         STORE CHAIN OF RECURSIVELY DEFINED VARS     GPO       189
                                                                                                                 GPO       190
            55  00001000000000000000     C1       DEQU   COST,1      LOW BIT OF FIELD                            GPO       191
                                                                                                                 GPO       192
      L     67  06000000000000000000     IAIP     DEQU   IP,2        IA & IP BITS                                GPO       193
  
  
  
                                        **        H. - HEADER NODE TO *HB* TRANSITION TABLE ( IGP, FXI )         FCC0392    16
                                                                                                                 FCC0392    17
                                                  DESCRIBE H.,60     HNW(NIP,HBI,HNI)                            FCC0392    18
                                                  DEFINE 6                                                       FCC0392    19
      L     44  00777777000000000000     NIP      DEFINE 18          N.INTERNAL PRED OF INTERVAL HEADER          FCC0392    20
      L     22  00000000777777000000     HBI      DEFINE 18          BIT INDEX OF HB HEADER                      FCC0392    21
      L      0  00000000000000777777     HNI      DEFINE 18          BIT INDEX OF HEADER OF INTERVAL             FCC0392    22
                                                                                                                 GPO       194
                                                  LIST   R,-X                                                    GPO       195
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    15
        SUBROUTINES                                                   AFB 
  
                                        **        AFB - ALLOCATE FIXED BLOCK AT LOW MEMORY                       GPO       197
                                        *                                                                        GPO       198
                                        *         ENTRY  (X1) = LEN , OF BLOCK                                   GPO       199
                                        *         EXIT   (X6) = FWA OF BLOCK                                     GPO       200
                                        *                (X3) = (X7) = LEN                                       GPO       201
                                                                                                                 GPO       202
            55  0200400055 +             AFB      ROUTINE                                                        GPO       203
            56  5100000000 X                      ALLOC  BLK,X1      ALLOC( BLK , LEN )                          GPO       204
            57  36623                             IX6    X2+X3                                                   GPO       205
                     54620                        SA6    A2          O.BLK = O.BLK + LEN                         GPO       206
                          5160000000 X            SA6    LM          LM = O.BLK                                  GPO       207
            60  43700                             MX7    0                                                       GPO       208
                     54730                        SA7    A3          L.BLK = 0                                   GPO       209
                          10622                   BX6    X2                                                      GPO       210
                               10733              BX7    X3                                                      GPO       211
            61  0400000055 +                      EQ     AFB                                                     GPO       212
  
  
  
                                        **        STO - SET MANAGED TABLES ORIGIN ( LOW MEMORY LIMIT )           GPO       214
                                        *                                                                        GPO       215
                                        *         ENTRY  (X7) = NLM , NEW LOW MEMORY ADDRESS                     GPO       216
                                        *         EXIT   LM = O.TXT = NLM , L.TXT = 0                            GPO       217
                                                                                                                 GPO       218
            62  0200400062 +             STO      ROUTINE                                                        GPO       219
            63  5150000000 X                      SA5    =XLM                                                    GPO       220
                          5075000000              SA7    A5+         LM = NLM                                    CCG7       96
            64  5170000000 X                      SA7    =XO.TXT     O.TXT = LM                                  GPO       229
                          43600                   MX6    0                                                       GPO       230
            65  5160000000 X                      SA6    =XL.TXT     L.TXT = 0                                   GPO       231
                          0400000062 +            EQ     STO                                                     GPO       233
  
  
                                        **        WTB - WRITE *TXT* BLOCK BACK TO *BLK*                          GPO       235
                                                                                                                 GPO       236
            66  0200400066 +             WTB      ROUTINE                                                        GPO       237
            67  5110000000 X                      SA1    O.TXT                                                   GPO       238
                          5120000000 X            SA2    L.TXT                                                   GPO       239
            70  53311                             SA3    X1+B1       R2 = [O.TXT+1]                              GPO       240
                     43452                        MX4    -R2.TXTLL                                               GPO       241
                                                  LX3    -R2.TXTLP                                               GPO       242
                          11543                   BX5    X4*X3                                                   GPO       243
                               36652              IX6    X5+X2       TXTL[R2] = L.TXT                            GPO       244
                                                  LX6    R2.TXTLP                                                GPO       245
            71  54630                             SA6    A3                                                      GPO       246
                     0100000000 X                 CALL   WMB#        REWRITE THE BLOCK                           CCGNC     566
            72  7160000004                        SX6    4                                                       GPO       248
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GPO       249
            73  0400000066 +                      EQ     WTB                                                     GPO       250
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    16
        PCC - PROCESS COROUTINE CALL                                  PCC 
  
                                        **        PCC - PROCESS COROUTINE CALL                                   GPO       252
                                        *                CALL *RTN* FOR ALL BLOCKS IN THE *BST* BUT THE FIRST.   GPO       253
                                        *                                                                        GPO       254
                                        *         ENTRY  (X7) = RTN , SUBROUTINE NAME                            GPO       255
                                        *                (X5) = BSFM , BLOCK STATUS FIELD MASK                   GPO       256
                                        *                IF = 0, THEN CALL *RTN* FOR ALL BLOCKS.                 GPO       257
                                        *                                                                        GPO       258
                                        *         THE CALLED COROUTINE IS ENTERED WITH -                         GPO       259
                                        *                (X0) = R-NUMBER EXTRACTOR MASK                          GPO       260
                                        *                (X4) = BSW , SECOND WORD OF *BST* ENTRY                 GPO       261
                                        *                (X5) = O.SEQ = FWA OF BLOCK                             GPO       262
                                        *                (L.SEQ) = BLOCK LENGTH                                  GPO       263
                                        *                (BN) = *BIT* INDEX OF BLOCK                             GPO       264
  
  
            74  5150000027 +             PCCA     SA5    O.SEQ                                                   GPO       266
                          0100000000              RJ     0                                                       GPO       267
            75                     1              BSS    1           BSFM SAVE WORD                              GPO       268
                                                                                                                 GPO       269
            76                           PCC      ENTRY. **,#                                                    CCGNC     567
            77  5110000074 +                      SA1    PCCA                                                    GPO       271
                          22605                   LX6    X5                                                      GPO       272
                               12717              BX7    X1+X7                                                   GPO       273
           100  54611                             SA6    A1+B1                                                   GPO       274
                     5170000117 +                 SA7    PCC5        [PCC5] = *  RJ RTN *                        GPO       275
                               76611              SX6    B1+B1       BSI = 2                                     GPO       276
           101  0100000102 +                      RJ     *+1         VOID INSTRUCTION STACK                      CCGA090     8
           102  0400000102 +             +        EQ     *                                                       CCGA090     9
                                                                                                                 GPO       277
           103  5150000000 X             PCC1     SA5    O.BST                                                   GPO       278
                          36756                   IX7    X5+X6                                                   GPO       279
                               53170              SA1    X7          BAW = BST(BSI)                              GPO       280
           104  5227000001                        SA2    X7+1        BSW = BST(BSI+1)                            GPO       281
                          5130000075 +            SA3    PCCA+1                                                  GPO       282
           105  0301000076 +                      ZR     X1,PCC      IF BAW = 0    */ END OF *BST*               GPO       283
                          0303000107 +            ZR     X3,PCC2     IF BSFM = 0   */ NO FIELD MASK              GPO       284
           106  11432                             BX4    X3*X2                                                   GPO       285
                     0304000123 +                 ZR     X4,PCC6     IF BSFM[BSW] = 0  */ FIELDS NOT SET         GPO       286
                                                                                                                 GPO       287
           107  10722                    PCC2     BX7    X2                                                      GPO       288
                     5160000032 +                 SA6    BSI                                                     GPO       289
                               20130              LX1    -BA.BIP                                                 GPO       290
           110  73610                             SX6    X1                                                      GPO       291
                     5170000033 +                 SA7    BSW                                                     GPO       292
                               20144              LX1    59-BA.BLKP+BA.BIP                                       GPO       293
           111  5160000031 +                      SA6    BN          BN = BI[BAW]                                GPO       294
                          0331000114 +            MI     X1,PCC3     IF BLK[BAW]   */ BLOCK IS IN *BLK*          GPO       295
                                                                                                                 GPO       296
           112  0100000000 X                      CALL   RTB#        READ IT INTO *BLK*                          CCGNC     568
           113  0400000116 +                      EQ     PCC4                                                    GPO       298
                                                                                                                 GPO       299
                                         PCC3     LX1    1+BA.BLKP-BA.FWAP                                       GPO       300
           114  73610                             SX6    X1                                                      GPO       301
                     5160000027 +                 SA6    O.SEQ       O.SEQ = FWA[BAW]                            GPO       302
                               20152              LX1    BA.FWAP-BA.LENP                                         GPO       303
           115  7271000000                        SX7    X1+                                                     GPO       304
                          5170000030 +            SA7    L.SEQ                                                   GPO       305
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    17
        PCC - PROCESS COROUTINE CALL                                  PCC 
  
                                        *         SETUP REGISTERS AND CALL COROUTINE                             GPO       307
                                                                                                                 GPO       308
           116  5140000033 +             PCC4     SA4    BSW                                                     CCG11     114
                          7100600001              SX0    RN.MASK                                                 CCG11     115
           117  5150000027 +             PCC5     SA5    O.SEQ                                                   GPO       312
                          0100000117 +            RJ     *           CALL COROUTINE                              GPO       313
           120  5110000000 X                      SA1    O.BST                                                   GPO       314
                          5120000032 +            SA2    BSI                                                     GPO       315
           121  5130000033 +                      SA3    BSW                                                     GPO       316
                          36512                   IX5    X1+X2                                                   GPO       317
                               10733              BX7    X3                                                      GPO       318
           122  7262000000                        SX6    X2+                                                     GPO       319
                          5275000001              SA7    X5+1        BST(BSI+1) = BSW                            GPO       320
                                                                                                                 GPO       321
           123  7266000002               PCC6     SX6    X6+2        BSI = BSI + 2                               GPO       322
                          0400000103 +            EQ     PCC1                                                    GPO       323
  
  
  
                                        **        SRI/SII - STORE RLIST/INCREMENT INSTRUCTION                    GPO       325
                                        *                                                                        GPO       326
                                        *         ENTRY  (B2,X6,X7) = OC, R1, R2                                 GPO       327
                                        *                (B6,B7) = TI, TB ( BLOCK STORE INDEX , BLOCK FWA )      GPO       328
                                        *                                                                        GPO       329
                                        *         EXIT   (X7) = 0 , TI = TI + 4                                  GPO       330
                                        *                                                                        GPO       331
                                        *         USES   A - 4, 6, 7   X - 4, 6, 7                               GPO       332
                                                                                                                 GPO       333
           124                           SRI      ENTRY. **,#                                                    CCGNC     569
           125  5142000000 X                      SA4    F.RDT+B2                                                CCGNC     570
                          27626                   PX6    B2,X6                                                   GPO       336
                               56676              SA6    B7+B6       TA = TB + TI;  [TA] = PACK(OC,R1)           GPO       337
           126  6166000004                        SB6    B6+4        TI = TI + 4                                 GPO       338
                          54761                   SA7    A6+B1       [TA+1] = R2                                 GPO       339
                               10644              BX6    X4                                                      GPO       340
           127  54671                             SA6    A7+B1       [TA+2] = RDT(OC)                            GPO       341
                     7170000000                   SX7    0                                                       GPO       342
                               54761              SA7    A6+B1       [TA+3] = 0                                  GPO       343
           130  0400000124 +                      EQ     SRI                                                     GPO       344
                                                                                                                 GPO       345
           131  0200400131 +             SII      ROUTINE                                                        GPO       346
           132  5142000000 X                      SA4    F.RDT+B2                                                GPO       347
                          27626                   PX6    B2,X6                                                   GPO       348
                               56676              SA6    B7+B6       TA = TB + TI;  [TA] = PACK(OC,R1)           GPO       349
           133  6166000004                        SB6    B6+4        TI = TI + 4                                 GPO       350
                          76610                   SX6    B1                                                      GPO       351
                               54761              SA7    A6+B1       [TA+1] = R2                                 GPO       352
           134  20622                             LX6    D.INCP                                                  GPO       353
                     43700                        MX7    0                                                       GPO       354
                          12664                   BX6    X6+X4                                                   GPO       355
                               54671              SA6    A7+B1       [TA+2] = RDT(OC) ! *INC*                    GPO       356
           135  54761                             SA7    A6+B1       [TA+3] = 0                                  GPO       357
                     0400000131 +                 EQ     SII                                                     GPO       358
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    18
        PCC - PROCESS COROUTINE CALL                                  SMI 
  
                                        **        SMI - STORE MEMORY REFERENCE INSTRUCTION, SET FP/LVL BITS      FCC0656    10
                                        *                IN DESCRIPTOR.                                          FCC0656    11
                                        *                                                                        FCC0656    12
                                        *         ENTRY/EXIT - SAME AS *SRI/SII*                                 FCC0656    13
                                                                                                                 FCC0656    14
           136  0200400136 +             SMI      ROUTINE                                                        FCC0656    15
           137  5142000000 X                      SA4    F.RDT+B2    D = RDT(OC)                                 FCC0656    16
                          27626                   PX6    B2,X6                                                   FCC0656    17
                               56676              SA6    B7+B6       TA = TB + TI;  [TA] = PACK(OC,R1)           FCC0656    18
           140  54761                             SA7    A6+B1       [TA+1] = R2                                 FCC0656    19
                     10644                        BX6    X4                                                      FCC0656    20
                          5140000000 X            SA4    =XO.SYM                                                 CCG1       25
           141  63641                             SB6    X4+B1                                                   CCG1       26
                     63276                        SB2    B6+X7                                                   CCG1       27
                          20701                   LX7    1                                                       CCG1       28
                               53472              SA4    B2+X7       WORDB = SYM(3*IH+1)                         CCG1       29
           142  20454                             LX4    -WB.FPP                                                 CCG1       30
                     76710                        SX7    B1                                                      FCC0656    27
                          11774                   BX7    X7*X4                                                   FCC0656    28
                               20725              LX7    D.FPP       FP[D] = FP[WORDB]                           FCC0656    29
           143  12676                             BX6    X7+X6                                                   FCC0656    30
                     76711                        SX7    B1+B1                                                   FCC0656    31
                          11774                   BX7    X7*X4                                                   FCC0656    32
                               20743              LX7    D.L2P-1                                                 FCC0656    33
           144  12676                             BX6    X7+X6       L2[D] = L2[WORDB]                           FCC0656    34
                     54671                        SA6    A7+B1       [TA+2] = D                                  FCC0656    35
                          43700                   MX7    0                                                       FCC0656    36
                               54761              SA7    A6+B1       [TA+3] = 0                                  FCC0656    37
           145  64671                             SB6    A7+B1                                                   FCC0656    38
                     67667                        SB6    B6-B7       TI = TI + 4                                 FCC0656    39
                          0400000136 +            EQ     SMI                                                     FCC0656    40
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    19
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL 
  
                                        **        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                          GPO       360
                                        *                                                                        GPO       361
                                        *         PROCESS INNERMOST *DO* LOOPS THAT ARE SINGLE ENTRY/ SINGLE     GPO       362
                                        *         EXIT, AND HAVE NO EXTERNAL REFERENCES OR BACKWARDS BRANCHES.   GPO       363
                                        *         OPTIMIZATIONS PERFORMED ARE CODE MOTION, STRENGTH REDUCTION,   GPO       364
                                        *         THE ASSIGNMENT OF INTEGER VARIABLES TO B-REGISTERS AND         GPO       365
                                        *         TEST REPLACEMENT.                                              GPO       366
                                        *         SINCE WE DO NOT HAVE THE LIVE EXIT INFORMATION AVAILABLE, WE   GPO       367
                                        *         ASSUME THAT ALL VARIABLES DEFINED IN THE LOOP ARE LIVE ON      GPO       368
                                        *         EXIT FROM IT.                                                  GPO       369
                                                                                                                 GPO       370
                                                  EXT    F.MEM                                                   CCG18      90
                                   0 X   O.UDB    EQU    F.MEM                                                   CCG18      91
                                                                                                                 GPO       374
           146                     1     SPC      BSS    1           SAVED PARCEL COUNT                          GPO       375
           147                     1     SERF     BSS    1           SAVED VALUE OF HO$ER                        CCG28       1
                                                                                                                 GPO       376
                                        *         INTERVAL INFORMATION                                           GPO       377
                                                                                                                 GPO       378
           150  00000000000003000001     COLA     VFD    42/3,18/1   PB = 3 , NODE = 1                           GPO       379
           151  77000004000000000002              VFD    6/77B,18/4,18/,18/2                                     GPO       380
                                                                                                                 GPO       381
           152                           COL      ENTRY. **,#                                                    CCGNC     571
                                                  QUAL   CODE                                                    GPO       383
                                                                                                                 GPO       384
           153  5130000000 X                      SA3    =XHO$ER                                                 CCG28       2
                          73620                   SX6    X2                                                      CCG28       3
                               10733              BX7    X3                                                      CCG28       4
           154  5120000000 X                      SA2    =XCC$PC                                                 CCGNC     572
                          7262000000              SX6    X2+         SPC = CC$PC   */ SAVE PARCEL COUNTER        CCGNC     573
           155  5160000146 +                      SA6    SPC                                                     GPO       387
                          54761                   SA7    A6+B1       SERF = HO$ER                                CCG28       5
                               43600              MX6    0                                                       CCG28       6
           156  54630                             SA6    A3          HO$ER = 0     */ CLEAR WHILE CODEING LOOP   CCG28       7
                     0100000000 X                 CALL   AFT#        ACTIVATE *BLK*                              CCGNC     574
           157  7110000100                        ALLOC  BLK,100B    ALLOC( BLK , 100B )  */ ALLOC FOR *UDB*     GPO       389
           161  43600                             SETZERO O.UDB,X1                                               GPO       390
           163  76111                             ALLOC  UDI,2       ALLOC( UDI , 2 )                            GPO       391
           165  43600                             MX6    0                                                       GPO       392
                     53620                        SA6    X2          UDI(0) = 0                                  GPO       393
                          5262000001              SA6    X2+1        UDI(1) = 0                                  GPO       394
           166  0100000000 X                      CALL   CMR#        CHAIN MEMREFS TO *UDI*                      CCGNC     575
           167  0100000000 X                      CALL   AUT#        ADJUST USE TABLE                            CCGNC     576
           170  7160000000                        SX6    0                                                       GPO       397
                          5160000000 X            SA6    L.BLK       L.BLK = 0                                   GPO       398
           171  7110000010                        SX1    8                                                       GPO       399
                          0100000055 +            RJ     AFB         AFB( 8 )      */ ALLOCATE FOR *BIT*         GPO       400
           172  43600                             SETZERO O.UDB,8                                                GPO       401
           174  43001                             MX0    1                                                       GPO       402
                                                  LX0    1+BI.RBP                                                FCC0641     8
                     76110                        SX1    B1                                                      GPO       404
                          20171                   LX1    BI.ILP                                                  GPO       405
                               12601              BX6    X0+X1                                                   GPO       406
           175  5160000004 X                      SA6    O.UDB+4     (RB,IL)BIT(4) = 1                           GPO       407
                          0400000317 +            EQ     IGO0        GO SETUP *UDT*                              GPO       408
                                                                                                                 GPO       409
           176  0100000000 X             COL1     CALL   IMPD#       SETUP *BLK* , MOVE LOOP BODY TO BLK         CCGNC     577
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    20
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL                 CODE
  
           177  0100000663 +                      RJ     IRP         INITIALIZE REGION PROCESSING                GPO       411
           200  43703                             MX7    UD.MVL                                                  GPO       412
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO       413
                          5170001346 +            SA7    BCM         BCM = *BLOCK CLEAR BITS*                    GPO       414
           201  7170001355 +                      CLCM   FUD#        FORM USE/DEF INFO                           CCGNC     578
                                                                                                                 GPO       416
                                        *         SETUP SPECIAL BIT VECTORS AND *RXI* SO AS TO COMPENSATE FOR    GPO       417
                                        *         THE LACK OF LIVE EXIT INFO. SET TO CODE POST STORE IN EPILOGUE GPO       418
                                                                                                                 GPO       419
           203  5140000004 X                      SA4    O.UDB+4                                                 GPO       420
                          5130000017 +            SA3    O.BVT                                                   GPO       421
           204  5110000000 C                      SA1    VL                                                      GPO       422
                          5120000003 C            SA2    DVA                                                     GPO       423
                                                  LX4    -BI.BVIP                                                GPO       424
           205  63740                             SB7    X4          VI = BVI[BIT(4)]                            GPO       425
                     66200                        SB2    B0          I = 0                                       GPO       426
                          63310                   SB3    X1                                                      GPO       427
                               66433              SB4    B3+B3                                                   GPO       428
           206  53537                             SA5    X3+B7       DV = BVT + VI                               GPO       429
                     54454                        SA4    A5+B4       UV = DV + 2*VL                              GPO       430
                          73010                   SX0    X1                                                      GPO       431
           207  10655                    COL2     BX6    X5                                                      GPO       432
                     12745                        BX7    X4+X5                                                   GPO       433
                          53622                   SA6    X2+B2       DEF                                         GPO       434
                               54663              SA6    A6+B3       LU                                          GPO       435
           210  54763                             SA7    A6+B3       USE                                         GPO       436
                     54673                        SA6    A7+B3       LX                                          GPO       437
                          54763                   SA7    A6+B3       LE                                          GPO       438
                               54673              SA6    A7+B3       MD                                          GPO       439
           211  66221                             SB2    B2+B1       I = I + 1                                   GPO       440
                     0723000207 +                 LT     B2,B3,COL2  IF I < VL                                   GPO       441
                                                                                                                 GPO       442
           212  7112000003                        ALLOC  RXI,B2+3    ALLOC( RXI , VL+3 )                         GPO       443
           214  76600                             SX6    B0                                                      GPO       444
                     43701                        MX7    1                                                       GPO       445
                                                  LX7    1+E.SCRP                                                GPO       446
                          53620                   SA6    X2          RXI(0) = 0                                  GPO       447
                               53721              SA7    X2+B1       RXI(1) = E(SCR,0,0,0)                       GPO       448
           215  5120000003 C                      SA2    DVA                                                     GPO       449
                          63201                   SB2    X0+B1                                                   GPO       450
                               54672              SA6    A7+B2       RXI(VL+2) = 0                               GPO       451
           216  73100                             MOVE   X0,X2,A7+B1   MOVE( VL , DVA , RXI(2) )                 GPO       452
           217  7170000002                        SX7    2                                                       GPO       453
                          5170000033 C            SA7    EPSI        EPSI = 2                                    GPO       454
                                                                                                                 GPO       455
           220  7170002273 +                      CLCM   MII         MARK INVARIANT INSTRUCTIONS                 GPO       456
           222  0100000757 +                      RJ     IHB         INITIALIZE HOLDING BLOCK                    GPO       457
           223  7160000226 +                      PLUG   AT=GPO7,TO=COL4,VOID=NO                                 GPO       458
           225  0400000423 +                      EQ     GPO3A       FINISH OFF CODE MOTION & CODE THE LOOP      FCC0646    10
                                                                                                                 GPO       474
                                        *         NOW CONVERT THE *HB* TO CODE                                   GPO       475
                                                                                                                 GPO       476
           226  7160000000               COL4     SX6    0                                                       FCC0646    11
                          5160000032 +            SA6    BSI         BSI = 0                                     GPO       478
           227  0100000000 X                      CALL   RTB#                                                    CCGNC     579
           230  5110000000 X                      SA1    =XCC$LNL                                                CCGNC     580
                          7150000003              SX5    3                                                       GPO       481
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    21
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL                 CODE
  
           231  7211777776                        SX1    X1-1                                                    GPO       482
                          0301000233 +            ZR     X1,COL5     IF CG$LNL = 1 */ OUTSIDE OF ALL LOOPS       CCGNC     581
           232  7150000002                        SX5    2                                                       GPO       484
           233  76610                    COL5     SX6    B1                                                      GPO       485
                     0100000000 X                 CALL   ESR#        EXPAND FP/LVL REFS IN *HB*                  CCGNC     582
           234  7160000002                        SX6    2                                                       GPO       487
                          5160000032 +            SA6    BSI         BSI = 2                                     GPO       488
           235  0100000000 X                      CALL   RTB#        GET THE CODED LOOP BODY                     CCGNC     583
                                                                                                                 GPO       490
           236  5150000146 +                      SA5    SPC                                                     GPO       491
                          5140000000 X            SA4    L.TXT                                                   GPO       492
           237  43600                             MX6    0                                                       GPO       493
                     5120000147 +                 SA2    SERF                                                    CCG28       8
                               10722              BX7    X2                                                      CCG28       9
           240  5170000000 X                      SA7    HO$ER       HO$ER = SERF  */ RESTORE CC VALUE           CCG28      10
                          10755                   BX7    X5          CC$PC = SPC                                 CCGNC     584
           241  5170000000 X                      SA7    CC$PC                                                   CCGNC     585
                          7234777767              SX3    X4-8                                                    GPO       496
           242  0313000247 +                      NZ     X3,COL6     IF L.TXT " 8  */ *HB* IS NOT EMPTY          GPO       497
                                                                                                                 GPO       498
                          5110000030 +            SA1    L.SEQ                                                   GPO       499
           243  5100000000 X                      ALLOC  PIT,X1      ALLOC( PIT , L.SEQ )                        GPO       500
           244  73320                             SX3    X2                                                      GPO       501
                     5120000027 +                 SA2    O.SEQ                                                   GPO       502
           245  0100000000 X                      MOVE   X1,X2,X3    MOVE (L.SEQ , O.SEQ , O.PIT )               GPO       503
           246  0400000254 +                      EQ     COL7                                                    GPO       504
                                                                                                                 GPO       505
           247  0100000000 X             COL6     CALL   MCG#        CODE THE *HB*                               CCGNC     586
                                                                                                                 GPO       507
                                        *         COMBINE THE CODED INSTRUCTIONS FOR THE *HB* AND LOOP BODY      GPO       508
                                        *         AND CALL *WII* TO CONVERT THEM.                                CCG1       31
                                                                                                                 GPO       510
           250  5110000030 +                      SA1    L.SEQ                                                   GPO       511
                          7211777775              ALLOC  PIT,X1-2    ALLOC( PIT , L.SEQ-2 )                      CCG9      124
           252  67661                             SB6    B6-B1       OLD(L.PIT) = OLD(L.PIT) - 1                 CCG9      125
                     73326                        SX3    X2+B6                                                   GPO       513
                          5120000027 +            SA2    O.SEQ                                                   GPO       514
           253  73111                             SX1    X1+B1                                                   CCG18      92
                     73221                        MOVE   X1,X2+B1,X3 MOVE( L.SEQ-1 , O.SEQ+1 , PIT+OLD(L.PIT) )  GPO       515
                                                                                                                 GPO       516
           254  7160000000 X             COL7     SX6    O.UDB                                                   GPO       517
                          5160000000 X            SA6    =XLM        LM = O.UDB                                  GPO       518
           255  5160000000 X                      SA6    O.BLK       O.BLK = O.UDB                               GPO       519
                          5160000000 X            SA6    O.TXT       O.TXT = O.UDB                               GPO       520
           256  7170000000                        SX7    0                                                       GPO       521
                          5170000000 X            SA7    L.BLK       L.BLK = 0                                   GPO       522
           257  5170000000 X                      SA7    L.TXT       L.TXT = 0                                   GPO       523
                          5170000000 X            SA7    L.BST       L.BST = 0                                   GPO       524
           260  5170000000 X                      SA7    L.IIT       L.IIT = 0                                   GPO       525
                          5170000014 +            SA7    N.GT        N.GT = 0                                    GPO       526
           261  0100000000 X                      CALL   WII#        CONVERT THE ISSUED INSTRUCTIONS             CCGNC     587
           262  0100000000 X                      CALL   AFT#        DEACTIVATE *BLK*                            CCGNC     588
           263  7170000000                        SX7    0                                                       GPO       532
                          5170000014 +            SA7    N.GT        N.GT = 0                                    FCC0675    10
           264  5170000000 X                      SA7    L.TET       L.TET = 0                                   GPO       534
                          0400000152 +            EQ     COL                                                     GPO       535
                                                                                                                 GPO       536
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    22
        COL - CODE OPTIMIZABLE LOOP ( OPT=1 )                         COL 
  
                                                  QUAL                                                           GPO       537
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    23
        GPO - CONTROL / INITIALIZATION                                GPO 
  
                                        **        GPO - GLOBAL PROGRAM OPTIMIZATION                              GPO       539
                                        *         INITIALIZATION, MAIN LOOP, CODE LINEARIZATION PASS.            GPO       540
                                                                                                                 GPO       541
           265                           CG$GPO   ENTRY. **                                                      CCGNC     589
                                                                                                                 GPO       543
                                                  QUAL   CODE                                                    GPO       544
                                                                                                                 GPO       545
           266  0100000000 X                      CALL   IMPB#       INITIALIZE MASSIO FOR PHASE 2               CCGNC     590
                                                                                                                 GPO       547
           267  7170000000 X                      SX7    =XF$UDT                                                 CCGNC     591
                          0100000062 +            CALL   STO                                                     GPO       549
           270  0100000000 X                      CALL   AUT#        REFORMAT *UDI*                              CCGNC     592
                                                                                                                 GPO       551
           271  7170000000 X                      SX7    =XF$CFA                                                 CCGNC     593
                          0100000062 +            CALL   STO                                                     GPO       553
           272  0100000000 X                      CALL   DGS#        DERIVE GRAPH STRUCTURE                      CCGNC     594
                                                                                                                 GPO       555
                                        *         MOVE GRAPH TABLE DOWN TO BEGIN OF WORKING STORAGE              GPO       556
                                                                                                                 GPO       557
           273  5110000000 X                      SA1    L.GST                                                   GPO       558
                          5120000000 X            SA2    O.GST                                                   GPO       559
           274  5130000007 +                      SA3    O.IST                                                   GPO       560
                          36013                   IX0    X1+X3                                                   GPO       561
                               73631              SX6    X3+B1                                                   GPO       562
           275  5160000040 +                      SA6    GP          GP = [O.IST] + 1  */ POINT TO GA WORD       GPO       563
                          0100000000 X            MOVE   X1,X2,X3    MOVE( L.GST , O.GST , O.IST )               GPO       564
           276  10700                             BX7    X0          LM = O.IST + L.GST                          GPO       565
                     0100000062 +                 CALL   STO                                                     GPO       566
                                                                                                                 GPO       567
           277  0100000000 X                      CALL   AFT#        ACTIVE *BLK*                                CCGNC     595
                                                                                                                 GPO       569
                                        *         SETUP FIXED TABLES IN LOW MEMORY, LAYOUT -                     GPO       570
                                        *                IST, BIT, LCT, UDT, MVL, BVT, SBV, BTT, HNT             FCC1319    20
                                                                                                                 GPO       572
           300  7110000002                        SX1    2                                                       FCC0641     9
                          0100000055 +            RJ     AFB         AFB( 2 )      */ SEARCH TERM FOR GRA/CIS    FCC0641    10
           301  43703                             MX7    -BI.ILP                                                 FCC0641    11
                     53760                        SA7    X6          [FWA] = MASK(3)  */ SO INIT PARCEL CNT OK   FCC0641    12
                          43700                   MX7    0                                                       FCC0641    13
                               54771              SA7    A7+B1                                                   FCC0641    14
           302  5120000002 +                      SA2    CC$CBN                                                  CCGNC     596
                          20201                   LX2    1                                                       GPO       574
           303  7212000004                        SX1    X2+4        L.BIT = 2*CBN + 4                           FCC1858X    4
                          0100000055 +            RJ     AFB         AFB( L.BIT )                                GPO       576
           304  5160000015 +                      SA6    O.BIT       O.BIT = FWA                                 GPO       577
                                                                                                                 GPO       578
                                        *         MOVE *BIT* TO LOW CORE AND CLEAR OUT HOLDING BLOCKS WORDS      GPO       579
                                                                                                                 GPO       580
                          5110000000 X            SA1    L.BST                                                   GPO       581
           305  5170000016 +                      SA7    L.BIT                                                   GPO       582
                          5120000000 X            SA2    O.BST                                                   GPO       583
           306  37071                             IX0    X7-X1       LHB = L.BIT - L.BST                         GPO       584
                     36561                        IX5    X6+X1                                                   GPO       585
                          73360                   MOVE   X1,X2,X6    MOVE( L.BST , O.BST , O.BIT )               GPO       586
           310  43600                             SETZERO X5,X0      FOR I = L.BST TO L.BIT; BIT(I) = 0          GPO       587
           312  5160000000 X                      SA6    L.BST       L.BST = 0                                   GPO       588
                                                                                                                 GPO       589
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    24
        GPO - CONTROL / INITIALIZATION                                GPO                 CODE
  
                          5110000024 +            SA1    L.LCT       L = L.LCT                                   FCC1319    21
           313  54610                             SA6    A1          L.LCT = 0     */ CLEAR COUNTER              FCC1319    22
                     0100000055 +                 RJ     AFB         AFB( L )                                    FCC1319    23
           314  5160000023 +                      SA6    O.LCT       O.LCT = FWA                                 FCC1319    24
                                                                                                                 FCC1319    25
                          5120000011 +            SA2    N.FTH                                                   CCGA021    31
           315  73121                             SX1    X2+B1                                                   CCGA021    32
                     0100000055 +                 RJ     AFB         AFB( N.FTH + 1 )                            CCGA021    33
           316  5160000025 +                      SA6    O.ELT       O.ELT = FWA                                 CCGA021    34
                                        *         MOVE *UDI* TO LOW CORE, ALLOCATE FOR *MVL*.                    GPO       590
                                                                                                                 GPO       591
           317  5110000000 X             IGO0     SA1    L.UDI                                                   GPO       592
                          0100000055 +            RJ     AFB         AFB( L.UDI )                                GPO       593
           320  5120000000 X                      SA2    O.UDI                                                   GPO       594
                          5160000000 C            SA6    O.UDT       O.UDT = FWA                                 GPO       595
           321  5170000001 C                      SA7    L.UDT                                                   GPO       596
                          73360                   MOVE   X1,X2,X6    MOVE( L.UDI , O.UDI , O.UDT )               GPO       597
           323  43700                             MX7    0           L.UDI = 0                                   GPO       598
                     5170000000 X                 SA7    L.UDI                                                   GPO       599
                                                                                                                 GPO       600
           324  5120000001 C                      SA2    N.VAR                                                   GPO       601
                          7212000003              SX1    X2+3                                                    GPO       602
           325  0100000055 +                      RJ     AFB         ALLOCATE FOR *MVL*                          GPO       603
           326  5160000002 C                      SA6    O.MVL       O.MVL = FWA                                 GPO       604
                                                                                                                 GPO       605
                                        *         ALLOCATE FOR BIT VECTORS, MOVE VECTORS FORMED IN *AUT* TO      GPO       606
                                        *         *BVT*.                                                         GPO       607
                                                                                                                 GPO       608
                          5110000002 +            SA1    CC$CBN                                                  CCGNC     597
           327  5120000000 C                      SA2    VL                                                      GPO       610
                          20102                   LX1    2                                                       GPO       611
                               42112              IX1    X1*X2       L.BVT = CBN * 4*VL  */ BIT VECTORS          GPO       612
           330  0100000055 +                      RJ     AFB         AFB( L.BVT )                                GPO       613
           331  5160000017 +                      SA6    O.BVT       O.BVT = FWA                                 GPO       614
                                                                                                                 GPO       615
                          5110000000 X            SA1    L.RXI                                                   GPO       616
           332  5120000000 X                      SA2    O.RXI                                                   GPO       617
                          73360                   SX3    X6                                                      GPO       618
                               10711              BX7    X1                                                      GPO       619
           333  5170000020 +                      SA7    L.BVT       L.BVT = L.RXI */  *BVT* INDEX FOR *FUD*     GPO       620
                          43600                   MX6    0                                                       GPO       621
                               54610              SA6    A1          L.RXI = 0                                   GPO       622
           334  0100000000 X                      MOVE   X1,X2,X3    MOVE( L.BVT , O.RXI , O.BVT )               GPO       623
           335  5110000000 X                      SA1    =XHO$OPT                                                CCGNC     598
                          0321000337 +            PL     X1,IGO1     IF OPT " 2                                  CCG1       34
                                                                                                                 GPO       626
                                        *         PHASE 2 OF OPT=2 - FORM BIT VECTORS FOR ALL PROGRAM BLOCKS.    GPO       627
                                                                                                                 GPO       628
           336  0100000000 X                      CALL   FBV#        FORM BIT VECTORS                            CCGNC     599
                                                                                                                 GPO       630
                                        *         SETUP ADDRESS"S OF SPECIAL BIT VECTORS                         GPO       631
                                                                                                                 GPO       632
           337  5120000000 C             IGO1     SA2    VL                                                      GPO       633
                          7100000007              SX0    N.SBV                                                   GPO       634
           340  42102                             IX1    X0*X2                                                   GPO       635
                     37612                        IX6    X1-X2       L.SBV = VL * ( N.SBV-1 )                    GPO       636
                          5160000021 +            SA6    L.SBV                                                   GPO       637
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    25
        GPO - CONTROL / INITIALIZATION                                GPO                 CODE
  
           341  36112                             IX1    X1+X2                                                   FCC0509     7
                     0100000055 +                 RJ     AFB         AFB( VL * (N.SBV+1) )                       FCC0509     8
           342  5110000000 C                      SA1    VL                                                      GPO       639
                          66200                   SB2    B0          I = 0                                       GPO       640
                               63300              SB3    X0                                                      GPO       641
           343  5162000003 C             IGO2     SA6    DVA+B2      DVA(I) = FWA                                GPO       642
                          66221                   SB2    B2+B1       I = I + 1                                   GPO       643
                               36661              IX6    X6+X1       FWA = FWA + VL                              GPO       644
           344  0723000343 +                      LT     B2,B3,IGO2  IF I < N.SBV                                GPO       645
                          5110000000 X            SA1    =XHO$OPT                                                CCGNC     600
           345  0321000176 +                      PL     X1,COL1     IF OPT " 2                                  CCG1       36
                                                                                                                 GPO       648
                                        *         ALLOCATE FOR *BTT* AND *HNT*                                   FCC0392    24
                                                                                                                 GPO       650
                          5110000002 +            SA1    CC$CBN                                                  CCGNC     601
           346  0100000055 +                      RJ     AFB         AFB( CBN )                                  GPO       652
           347  5160000035 +                      SA6    O.BTT       O.BTT = FWA                                 GPO       653
                          5150000010 +            SA5    M.LP                                                    FCC0392    25
           350  7215000001                        SX1    X5+1                                                    FCC0392    26
                          0100000055 +            RJ     AFB         AFB( M.LP+1 )                               FCC0392    27
           351  5160000036 +                      SA6    O.HNT       O.HNT = FWA                                 FCC0392    28
  
                                        *         COMPUTE AN UPPER BOUND FOR *BLK* LENGTH                        GPO       655
                                                                                                                 GPO       656
                                                  PRINT  GPOFL,(* CWS= CALLED BY GPO; CWS,MWS =*2Z7),(X6,X7)     RSM2763X  125
           352  0100000000 X             IGO3     CALL   CWS#                                                    CCGNC     602
           353  7110002000                        SX1    2000B                                                   RSM2763X  127
                          63470                   SB4    X7          B4 = MWS */ MAX. AVAIL. STORAGE             RSM2763X  128
                               37771              IX7    X7-X1                                                   RSM2763X  129
           354  21702                             AX7    2                                                       RSM2763X  130
                     7140014000                   SX4    14000B                                                  RSM2763X  131
                               37247              IX2    X4-X7                                                   RSM2763X  132
           355  63260                             SB2    X6          B2 = CWS */ CURRENT WORKING STORAGE         RSM2763X  133
                     0322000356 +                 PL     X2,IGO3A    IF (MWS - 2000B)/4 @ 14000B                 RSM2763X  134
                               10744              BX7    X4                                                      RSM2763X  135
           356  5170000013 +             IGO3A    SA7    M.EBL       M.EBL = MIN((MWS-2000B)/4,14000B)           RSM2763X  136
                          5130000012 +            SA3    =XM.BBL     */ MAX.BASIC BLOCK SIZE                     RSM2763X  137
                                                  PRINT  GPOFL,(* M.BBL =*Z7),(X3)                               RSM2763X  138
           357  20303                             LX3    3                                                       RSM2763X  139
                     63330                        SB3    X3          B3 = 8*M.BBL                                RSM2763X  140
                          7110010000              SX1    10000B                                                  RSM2763X  141
           360  37231                             IX2    X3-X1                                                   RSM2763X  142
                     0322000362 +                 PL     X2,IGO3B    IF   8*M.BBL > 10000B                       RSM2763X  143
                               10311              BX3    X1                                                      RSM2763X  144
           361  63310                             SB3    X1          RWS = MAX(  8*M.BBL,10000B) */ REASONABLE   RSM2763X  145
                                        *                                                           STORAGE      RSM2763X  146
           362  0623000366 +             IGO3B    GE     B2,B3,IGO5  IF CWS \ RWS                                RSM2763X  147
                          0743000365 +            GT     B3,B4,IGO4  IF RWS > MWS                                RSM2763X  148
                                                                                                                 RSM2763X  149
                                        *                            CWS < RWS @ MWS                             RSM2763X  150
                                                                                                                 RSM2763X  151
           363  37136                             IX1    X3-X6                                                   RSM2763X  152
                     0100000000 X                 CALL   MOREFL      */ WN = RWS - CWS                           RSM2763X  153
           364  0327000352 +                      PL     X7,IGO3     IF REQUIRED MEMORY GRANTED                  RSM2763X  154
                                                                                                                 RSM2763X  155
           365  5110004444 +             IGO4     SA1    =7LGPO                                                  RSM2763X  156
                          0100000000 X            CALL   PUNT        GO TO ABORT THE COMPILATION                 RSM2763X  157
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    26
        GPO - CONTROL / INITIALIZATION                                GPO                 CODE
  
                                                                                                                 RSM2763X  158
           366  10166                    IGO5     BX1    X6                                                      RSM2763X  159
                                                  PRINT GPOFL,(*CWS,RWS=*2Z7),(X6,X3)                            RSM2763X  160
                     21103                        AX1    3                                                       RSM2763X  161
                          21601                   AX6    1                                                       RSM2763X  162
                               37761              IX7    X6-X1       X7 = 3/8 * CWS                              RSM2763X  163
           367  37247                             IX2    X4-X7                                                   RSM2763X  164
                     0322000370 +                 PL     X2,IGO5A                                                RSM2763X  165
                               10744              BX7    X4                                                      RSM2763X  166
           370  5170000000 X             IGO5A    SA7    =XMX.BLN    MX.BLN = MAX BLK.TABLE SIZE                 RSM2763X  167
                                                  PRINT  GPOFL,(* MAX BLK. LEN =*Z7),(X7)                        RSM2763X  168
                          0100000000 X            CALL   IMPC#       MX.BLN = MIN(3/8*CWS,14000B)                CCGNC     603
                                                                                                                 GPO       681
                                         .T       IFNE   TEST,0                                    * TEST MODE * GPO       682
                                                  SA1    =XHO$LO$S                                               CCGNC     604
                                                  ZR     X1,IGO6     IF LIST = 0                                 GPO       684
                                                                                                                 GPO       685
                                        *         LIST OPTIMIZER MEMORY USEAGE STATISTICS                        GPO       686
                                                                                                                 GPO       687
                                                  USE    STAT                                                    GPO       688
                                                                                                                 GPO       689
                                         IGOA     DATA   1H ,38LOPTIMIZER MEMORY USEAGE STATISTICS               GPO       690
                                         IGOB     DATA   1H ,40LEXEC STMTS  N.BLOCKS   N.LOOPS    N.VARS         GPO       691
                                                  DATA   20H   MAX-BLK  N.GRAPHS                                 GPO       692
                                                  DATA   50L   L.GRAPH L.BIT VEC     L.BLK WRK SPACE L.PRG TXT   GPO       693
                                         IGOC     DATA   8L                                                      GPO       694
                                                                                                                 GPO       695
                                         ZOD      ROUTINE                                                        GPO       696
                                                  RJ     =XCOD=                                                  CCG1       38
                                                  LX6    6                                                       GPO       698
                                                  SX7    1RB-1R                                                  GPO       699
                                                  IX6    X6+X7                                                   GPO       700
                                                  EQ     ZOD                                                     GPO       701
                                                                                                                 GPO       702
                                                  USE    0                                                       GPO       703
                                         STAT     MACRO  A,B,C,M                                                 GPO       704
                                                  SA1    =X_A                                                    CCG1       39
                                                  IFC    NE,/B//,2                                               GPO       706
                                                  SA2    B                                                       GPO       707
                                                  IX1    X1-X2                                                   GPO       708
                                                  IFC    NE,/M//,1                                               GPO       709
                                                  SX1    X1+M                                                    GPO       710
                                                  RJ     =X;C                                                    GPO       711
                                                  SA6    IGOB+.1                                                 GPO       712
                                         .1       SET    .1+1                                                    GPO       713
                                                  ENDM                                                           GPO       714
                                         .1       SET    1                                                       GPO       715
                                                  LISTL  IGOC,1                                                  GPO       716
                                                  LISTL  IGOA,IGOB-IGOA                                          GPO       717
                                                  LISTL  IGOB,IGOC+1-IGOB                                        GPO       718
                                                  STAT   N$EXST,,CDD=      N.STMTS                               CCGNC     605
                                                  STAT   NPB,,CDD=                                               CCG1       41
                                                  STAT   CC$CBN,NPB,CDD=,-1  N.LOOPS                             CCGNC     606
                                                  STAT   N.VAR,,CDD=,-1                                          CCG1       43
                                                  STAT   M.BBL,,ZOD        MAX BASIC BLK LEN                     GPO       723
                                                  STAT   N.DG,,COD=        N.GRAPHS                              CCG1       44
                                                  STAT   O.BIT,GP,ZOD      L.GRAPH                               GPO       725
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    27
        GPO - CONTROL / INITIALIZATION                                GPO                 CODE
  
                                                  STAT   O.BTT,O.BVT,ZOD   L.BIT VEC                             GPO       726
                                                  STAT   L.BLK,,ZOD                                              GPO       727
                                                  STAT   O.GLT,O.TXT,ZOD   WORK SPACE                            CCG1       45
                                                  STAT   L.PTXT,,ZOD                                             GPO       729
                                                  PURGMAC STAT                                                   GPO       730
                                                                                                                 GPO       731
                                                  LISTL  IGOB,IGOC+1-IGOB                                        GPO       732
                                                                                                                 GPO       733
                                         IGO6     BSS    0                                                       GPO       734
                                                                                                                 GPO       735
                                         .T       ENDIF                                            * TEST MODE * GPO       736
  
  
                                        *         SET FLAGS FOR PHASE 3 OF GLOBAL OPTIMIZATION                   GPO       738
                                                                                                                 GPO       739
           371  7160000001                        SX6    1                                                       GPO       740
                          5160000045 +            SA6    BBV         BBV = 1       */ SET FOR NO BIT VECTORS     GPO       741
           372  43703                             MX7    UD.MVL                                                  GPO       742
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO       743
                          5170001346 +            SA7    BCM         BCM = *MV*    */ SET FOR BLOCK BIT CLEAR    GPO       744
                                                                                                                 GPO       745
                                        *         SETUP A *BOS* AT THE BEGINNING OF *TXT*                        GPO       746
                                                                                                                 GPO       747
           373  7110000004                        ALLOC  TXT,4       ALLOC( TXT , 4 )                            GPO       748
           375  5150000001 X                      SA5    =XF.RDT+OC.BOS                                          GPO       749
                          43600                   MX6    0           T = O.TXT                                   GPO       750
                               53621              SA6    X2+B1       [T+1] = 0                                   GPO       751
           376  10755                             BX7    X5                                                      GPO       752
                     54761                        SA7    A6+B1       [T+2] = RDT(BOS)                            GPO       753
                          54671                   SA6    A7+B1       [T+3] = 0                                   GPO       754
           377  5110000000 X                      SA1    L.GLT                                                   CCG1       46
                          7261777776              SX6    X1-1                                                    CCG28      11
           400  5160000001 +                      SA6    N.GL0       N.GL0 = L.GLT - 1                           CCG28      12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    28
        GPO - MAIN LOOP                                               GPO                 CODE
  
                                        *         PHASE 3 - INNER TO OUTER PASS OVER THE LOOPS TO MOVE OUT       GPO       756
                                        *         INVARIANT / STRENGTH REDUCABLE CODE AND ASSIGN REGISTERS.      GPO       757
                                                                                                                 GPO       758
           401  0100000620 +             GPO1     RJ     IGP         INITIALIZE GRAPH PROCESSING                 GPO       759
           402  0306000463 +                      ZR     X6,GPO10    IF N.LP = 0   */ NO LOOPS IN THIS GRAPH     GPO       760
                                                                                                                 GPO       761
           403  0100000645 +             GPO2     RJ     FNL         FIND NEXT LOOP                              GPO       762
           404  0100000663 +                      RJ     IRP         INITIALIZE REGION PROCESSING                GPO       763
                                                                                                                 GPO       764
           405  7170001355 +                      CLCM   FUD         FORM USE/DEF INFO FOR REGION                GPO       765
           407  5110000053 +                      SA1    UXR+1                                                   GPO       766
                          0301000414 +            ZR     X1,GPO3     IF UXR(2) = 0 */ NO USER EXT REFS           GPO       767
           410  43701                             MX7    1                                                       GPO       768
                     5170000020 C                 SA7    XRF         XRF = 1S59                                  GPO       769
           411  5120000003 C                      SA2    RCV                                                     GPO       770
                          0302000414 +            ZR     X2,GPO3     IF RCV = 0    */ NO REFED COMMON VARIABLES  GPO       771
           412  5140000017 +                      SA4    O.BVT                                                   GPO       772
                          5150001347 +            SA5    RDB                                                     GPO       773
           413  0100001324 +                      CALL   EBV         SET REGION DEF BITS FOR COMMON VARS, ETC    GPO       774
                                                                                                                 GPO       775
           414  7170001714 +             GPO3     CLCM   RDD         REMOVE DEAD DEFINITIONS                     GPO       776
                                                                                                                 GPO       777
           416  0100002130 +                      RJ     FEI         FORM LIVE ENTRY VECTOR                      FCCA513X    8
                                                                                                                 FCCA513X    9
           417  7170002273 +                      CLCM   MII         MARK INVARIANT INSTRUCTIONS                 GPO       778
                                                                                                                 GPO       779
           421  0100000757 +                      RJ     IHB         INITIALIZE HOLDING BLOCK                    GPO       780
           422  0100002144 +                      RJ     FXI         FORM EXIT INFORMATION                       GPO       781
                                                                                                                 GPO       782
           423  7170002704 +             GPO3A    CLCM   FII,(STC)   FORM INCREMENT INFO                         GPO       783
           425  5110000000 X                      SA1    L.IIT                                                   GPO       784
                          10611                   BX6    X1          PIC = L.IIT                                 GPO       785
           426  5160000101 C                      SA6    PIC                                                     GPO       786
                          0301000431 +            ZR     X1,GPO4     IF PIC = 0    */ NO RECURSIVE DEFS          GPO       787
                                                                                                                 GPO       788
           427  7170002751 +                      CLCM   MIP         MARK INTEGER POLYNOMIALS                    GPO       789
                                                                                                                 GPO       790
           431  5110000015 C             GPO4     SA1    MRA                                                     GPO       791
                          7120000376              SX2    376B                                                    GPO       792
           432  76611                             SX6    B1+B1       MINC = 2      */ MIN *IP* COST              GPO       793
                     11321                        BX3    X2*X1                                                   GPO       794
                          47433                   CX4    X3          NABR = COUNT(MRA&376B)  */ N.AVAIL B-REGS   GPO       795
                               21401              AX4    1                                                       GPO       796
           433  0314000434 +                      NZ     X4,GPO5     IF NABR \ 2                                 GPO       797
                          7160000003              SX6    3           MINC = 3                                    GPO       798
           434  5160000114 C             GPO5     SA6    MINC                                                    GPO       799
                          7170003200 +            CLCM   MIE,(IIC)   MOVE INV/SR INSTRUCTIONS TO *HB*            GPO       800
           436  43600                             MX6    0                                                       GPO       801
                     0100002242 +                 CALL   SHB         SQUEEZE HOLDING BLOCK                       GPO       802
           437  5120000100 C                      SA2    NTP                                                     GPO       803
                          0302000447 +            ZR     X2,GPO6     IF NTP = 0    */ NO TERMINAL *IP*"S         GPO       804
                                                                                                                 GPO       805
           440  0100003432 +                      RJ     CIF         COLLECT INCREMENT FORMULAS                  GPO       806
           441  5120000100 C                      SA2    NTP                                                     FCC1710X    6
                          0302000447 +            ZR     X2,GPO6     IF NTP = 0                                  FCC1710X    7
                                                                                                                 GPO       807
           442  7170003655 +                      CLCM   FIM,(STC)   FORM *TP* INCREMENT MODS                    GPO       808
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    29
        GPO - MAIN LOOP                                               GPO                 CODE
  
           444  5110000000 X                      SA1    L.MOD                                                   GPO       809
                          7221777773              SX2    X1-4                                                    GPO       810
           445  0302000447 +                      ZR     X2,GPO6     IF L.MOD = 4  */ NO VARIABLE INCR CODE      GPO       811
                          76610                   SX6    B1                                                      GPO       812
           446  0100002242 +                      CALL   SHB         SQUEEZE VARIABLE INCREMENT CODE             GPO       813
                                                                                                                 GPO       814
           447  7160000004               GPO6     SX6    4           L.TXT = 4                                   GPO       815
                          5160000000 X            SA6    L.TXT                                                   GPO       816
           450  7170004161 +                      CLCM   UPB,(NIS,BM,NTET)   UPDATE MODIFIED BLOCKS              GPO       817
           452  0100001224 +                      RJ     ATT         ADJUST *TET*                                FCC0514    25
                                                                                                                 GPO       818
           453  0100001122 +                      RJ     CBB         COMBINE BASIC BLOCKS                        FCC0646    12
                                                                                                                 GPO       820
           454  0100000000 X                      CALL   GRA#        ASSIGN REGISTERS, CODE THE LOOP             CCGNC     607
                                                                                                                 GPO       822
           455  0100000771 +             GPO7     RJ     TRP         TERMINATE REGION PROCESSING                 FCC0646    13
           456  5120000042 +                      SA2    N.LP                                                    GPO       824
                          7272777776              SX7    X2-1        N.LP = N.LP - 1                             GPO       825
           457  5072000000                        SA7    A2+                                                     GPO       826
                          0317000403 +            NZ     X7,GPO2     IF N.LP " 0                                 GPO       827
                                                                                                                 GPO       828
           460  7170000004                        SX7    4           EMF = 4       */ EXPAND STT"S IN OUTER LPS  GPO       829
                          5170000013 C            SA7    EMF                                                     GPO       830
           461  0100000654 +                      RJ     GNG         GET NEXT GRAPH                              GPO       831
           462  0400000401 +                      EQ     GPO1                                                    FCC0514    26
  
  
                                        *         PROCESS BLOCKS OUTSIDE OF ALL LOOPS AND CONVERT THEM TO CODE.  GPO       835
                                                                                                                 GPO       836
           463  43617                    GPO10    MX6    -UD.STCP                                                GPO       837
                     76700                        SX7    B0                                                      FCC0514    27
                          5170000047 +            SA7    HBI         HBI = 0       */ OUTSIDE OF ALL LOOPS       FCC0675    11
           464  5170000046 +                      SA7    NBIP        NBIP = 0                                    FCC0514    29
                          5160001346 +            SA6    BCM         BCM = *REGION CLEAR MASK*                   GPO       838
                                                                                                                 GPO       839
           465  5110000043 +             GPO11    SA1    IBA                                                     GPO       840
                          53210                   SA2    X1          IP = [IBA]                                  GPO       841
                               73611              SX6    X1+B1       IBA = IBA + 1                               GPO       842
           466  0302000471 +                      ZR     X2,GPO12    IF [IP] = 0   */ END OF INTERVAL LIST       GPO       843
                                                  LX2    -IP.NODEP                                               GPO       844
                          54610                   SA6    A1                                                      GPO       845
                               73720              SX7    X2          NN = NODE[IP]                               GPO       846
           467  54711                             SA7    A1+B1                                                   GPO       847
                     0100001056 +                 CALL   CIC         CONVERT INTERVAL TO CODE                    GPO       848
           470  0400000465 +                      EQ     GPO11                                                   GPO       849
                                                                                                                 GPO       850
                                        *         ADJUST *GL* TABLE FOR GL"S ADDED FROM MULTIPLE PRED IF LOOPS.  GPO       851
                                                                                                                 GPO       852
           471  5110000001 +             GPO12    SA1    N.GL0                                                   GPO       853
                          5120000000 X            SA2    L.GLT                                                   CCG1       49
           472  37112                             IX1    X1-X2       L = N.GL0 - L.GLT                           CCG1       50
                     0331000474 +                 MI     X1,GPO13    IF L < 0      */ NO GL"S ADDED              CCG28      13
                               73111              ALLOC  GLT,X1+B1   ALLOC( GLT , L+1 )                          CCG28      14
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    30
        GPO - MAIN LOOP                                               GPO                 CODE
  
                                        *         PHASE 4 - LINEARIZE THE CODE BLOCKS TO BRING THEM BACK TO      GPO       867
                                        *         SOURCE PROGRAM ORDER AND OUTPUT THEM.                          GPO       868
                                                                                                                 GPO       869
                                                  DESCRIBE BI.,60                                                GPO       870
      L      0  00000000000000777777     BEF      DEQU   BVI         BN OF BLOCK THAT COMES BEFORE CURRENT BLOCK GPO       871
                                                                                                                 GPO       872
           474  5110000002 +             GPO13    SA1    CC$CBN                                                  CCGNC     608
                          5120000015 +            SA2    O.BIT                                                   GPO       874
           475  43052                             MX0    -BI.BEFL                                                GPO       875
                     66211                        SB2    B1+B1                                                   GPO       876
                                                  LX0    BI.BEFP                                                 GPO       877
                          66300                   SB3    B0          I = 0                                       FCC0408    10
                               20101              LX1    1                                                       GPO       879
           476  63410                             SB4    X1          L = 2*CBN                                   GPO       880
                     5130000003 +                 SA3    NPB                                                     GPO       881
                               63720              SB7    X2                        (B7) = [O.BIT]                GPO       882
                                                                                                                 GPO       883
           477  56573                    GPO14    SA5    B7+B3       BEF[BIT(I)] = 0                             GPO       884
                     66332                        SB3    B3+B2       I = I + 2                                   GPO       885
                          11605                   BX6    X0*X5                                                   GPO       886
                               54650              SA6    A5                                                      GPO       887
           500  0734000477 +                      LT     B3,B4,GPO14 IF I < L                                    GPO       888
                                                                                                                 GPO       889
                                        *         SEARCH FOR HOLDING BLOCKS THAT WERE CODED ( NOT COALESCED )    GPO       890
                                        *         AND SET THE *BEF* FIELD FOR THE HEADER BLOCK THAT COMES        GPO       891
                                        *         AFTER THE *HB* IN THE CODE OUTPUT.                             GPO       892
                                                                                                                 GPO       893
                          20301                   LX3    1                                                       GPO       894
                               63330              SB3    X3          I = 2*NPB                                   GPO       895
                                                                                                                 GPO       896
           501  66332                    GPO15    SB3    B3+B2       I = I + 2                                   GPO       897
                     56573                        SA5    B7+B3       BIW = BIT(I)                                GPO       898
                          0634000515 +            GE     B3,B4,GPO18 IF I \ L                                    GPO       899
           502  20501                             LX5    59-BI.CBP                                               GPO       900
                     0325000501 +                 PL     X5,GPO15    IF ^CB[BIW]                                 GPO       901
                                                                                                                 GPO       902
                               20551              LX5    1+BI.CBP-BI.PBNP                                        GPO       903
           503  76730                             SX7    B3          P = I                                       GPO       904
                     63650                        SB6    X5          J = PBN[BIW]  */ BN OF HEADER NODE          FCC0448    32
                          56476                   SA4    B7+B6       BJW = BIT(J)                                FCC0448    33
                                                  LX4    59-BI.RBP                                               FCC0448    34
           504  0334000506 +                      MI     X4,GPO15A   IF RB[BJW]    */ HEADER IS A PROGRAM BLOCK  FCC0448    35
                          20403                   LX4    BI.RBP-BI.FJP                                           FCC0448    36
           505  0334000511 +                      MI     X4,GPO17    IF FJ[BJW]    */ *HB* IS REMOTE             FCC0448    37
                                                                                                                 FCC0448    38
           506  20525                    GPO15A   LX5    59-BI.FJP+BI.PBNP                                       FCC0448    39
                     0325000507 +                 PL     X5,GPO16    IF ^FJ[BIW]   */ ^ FALL THROUGH TO HEADER   FCC0448    40
                               66600              SB6    B0          J = 0         */ ADD *HB* TO EXIT NODE LIST FCC0675    12
           507  56476                    GPO16    SA4    B7+B6       BJW = BIT(J);  JL = J                       GPO       907
                                                  LX4    -BI.BEFP                                                GPO       908
                     63640                        SB6    X4          J = BEF[BJW]                                GPO       909
                          0560000507 +            NZ     B6,GPO16    IF J " 0                                    GPO       910
                                                                                                                 GPO       911
           510  12647                             BX6    X4+X7       BEF[BIT(JL)] = P  */ LINK HEADER TO *HB*    GPO       912
                                                  LX6    BI.BEFP                                                 GPO       913
                     54640                        SA6    A4                                                      GPO       914
                          0400000501 +            EQ     GPO15                                                   GPO       915
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    31
        GPO - MAIN LOOP                                               GPO                 CODE
  
                                                                                                                 FCC0448    42
                                        *         *HB* FROM NEST OF *FTH* LOOPS, MAKE *HB* COME BEFORE HEADER.   FCC0448    43
                                                                                                                 FCC0448    44
           511  20522                    GPO17    LX5    BI.PBNP                                                 FCC0448    45
                     76660                        SX6    B6                                                      FCC0448    46
                                                  LX6    BI.BEFP                                                 FCC0448    47
                          12665                   BX6    X6+X5       BEF[BIT(I)] = J  */ HB BEFORE HEADER        FCC0448    48
                               66500              SB5    B0          K = 0                                       FCC0448    49
                                                                                                                 FCC0448    50
           512  56475                    GPO17A   SA4    B7+B5       BKW = BIT(K);  KL = K                       FCC0448    51
                                                  LX4    -BI.BEFP                                                FCC0448    52
                     63540                        SB5    X4          K = BEF[BKW]                                FCC0448    53
                          0556000512 +            NE     B5,B6,GPO17A      IF K " J                              FCC0448    54
                                                                                                                 FCC0448    55
           513  54650                             SA6    A5                                                      FCC0448    56
                                                  LX4    BI.BEFP                                                 FCC0448    57
                     11404                        BX4    X0*X4                                                   FCC0448    58
                          12747                   BX7    X4+X7       BEF[BIT(KL)] = I  */ LINK PREV TO HB        FCC0448    59
                               54740              SA7    A4                                                      FCC0448    60
           514  0400000501 +                      EQ     GPO15                                                   FCC0448    61
                                                                                                                 GPO       916
                                        *         FINAL SCAN OF PROGRAM BLOCKS IN *BIT* TO FORM A TABLE OF       GPO       917
                                        *         ADDRESSES OF THE BLOCKS IN THEIR OUTPUT ORDER.                 CCG0013     6
                                                                                                                 GPO       919
           515  5140000000 C             GPO18    SA4    O.UDT                                                   GPO       920
                          66300                   SB3    B0          I = 0                                       GPO       921
                               53040              SA0    X4          SI = [O.UDT]  */ RIW STORE INDEX            GPO       922
           516  63432                             SB4    X3+B2       L = 2*NPB + 2                               GPO       923
                     0400000520 +                 EQ     GPO20                                                   GPO       924
                                                                                                                 GPO       925
           517  74651                    GPO19    SX6    A5+B1                                                   CCG0013     7
                     54600                        SA6    A0                                                      GPO       928
                          54001                   SA0    A0+B1       SI = SI + 1                                 GPO       929
                                                                                                                 GPO       930
           520  66332                    GPO20    SB3    B3+B2       I = I + 2                                   GPO       931
                     56573                        SA5    B7+B3       BIW = BIT(I)                                GPO       932
                          0634000531 +            GE     B3,B4,GPO23 IF I \ L                                    GPO       933
                                                  LX5    -BI.BEFP                                                GPO       934
           521  73250                             SX2    X5          JF = BEF[BIW]                               GPO       935
                     20501                        LX5    59-BI.CBP+BI.BEFP                                       GPO       936
                          0325000520 +            PL     X5,GPO20    IF ^CB[BIW]   */ NOT CODED                  GPO       937
           522  0302000517 +                      ZR     X2,GPO19    IF JF = 0     */ NO HEADER NODE BEFORE      GPO       938
                                                                                                                 GPO       939
                                        *         SEARCH TO END OF *BEF* CHAIN, COUNT NUMBER OF BLOCKS BEFORE.   GPO       940
                                                                                                                 GPO       941
                          63620                   SB6    X2          J = JF                                      GPO       942
                               66510              SB5    B1          K = 1                                       GPO       943
           523  56476                    GPO21    SA4    B7+B6       BJW = BIT(J)                                GPO       944
                     6155000001                   SB5    B5+1        K = K + 1                                   GPO       945
                                                  LX4    -BI.BEFP                                                GPO       946
                               63640              SB6    X4          J = BEF[BJW]                                GPO       947
           524  0560000523 +                      NZ     B6,GPO21    IF J " 0                                    GPO       948
                                                                                                                 GPO       949
                                        *         RESCAN THE LIST AND STORE *RI* WORDS IN REVERSE ORDER.         GPO       950
                                                                                                                 GPO       951
                          54005                   SA0    A0+B5       SI = SI + K                                 GPO       953
                               63621              SB6    X2+B1       J = JF                                      GPO       954
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    32
        GPO - MAIN LOOP                                               GPO                 CODE
  
           525  74751                             SX7    A5+B1                                                   CCG0013     8
                     55701                        SA7    A0-B1       SJ = SI - 1;  [SJ] = BIT(I+1)               GPO       956
                                                                                                                 CCG0013     9
           526  76776                    GPO22    SX7    B7+B6                                                   CCG0013    10
                     5247777776                   SA4    X7-1                                                    CCG0013    11
                               55771              SA7    A7-B1       SJ = SJ - 1;  [SJ] = BIT(J+1)               GPO       960
                                                  LX4    -BI.BEFP                                                GPO       961
           527  63641                             SB6    X4+B1       J = BEF[BIT(J)]                             GPO       962
                     0561000526 +                 NE     B6,B1,GPO22 IF J " 0                                    GPO       963
                                                                                                                 GPO       964
           530  0400000520 +                      EQ     GPO20                                                   GPO       965
                                                                                                                 GPO       966
                                        *         ADD HOLDING BLOCKS FOR FALL THROUGH TO HEADER LOOPS TO LIST    FCC0408    14
                                                                                                                 FCC0408    15
           531  6160000000               GPO23    SB6    0           J = 0                                       FCC0408    16
                                                                                                                 FCC0408    17
           532  56576                    GPO24    SA5    B7+B6       BIW = BIT(J)                                FCC0408    18
                                                  LX5    -BI.BEFP                                                FCC0408    19
                     63650                        SB6    X5          J = BEF[BIW]                                FCC0408    20
                          0460000535 +            ZR     B6,GPO25    IF J = 0      */ END OF CHAIN               FCC0675    13
           533  66561                             SB5    B6+B1                                                   FCC0408    22
                     76775                        SX7    B7+B5                                                   CCG0013    12
                          54700                   SA7    A0                                                      FCC0408    25
                               54001              SA0    A0+B1       SI = SI + 1                                 FCC0408    26
           534  0400000532 +                      EQ     GPO24                                                   FCC0408    27
  
                                        *         ALLOCATE TABLES FOR *WII* AND ASSIGN *CA"S* TO THE IT"S IN TET CCG1       52
                                                                                                                 FCC0675    15
           535  43700                    GPO25    MX7    0                                                       FCC0675    16
                     54700                        SA7    A0          [SI] = 0      */ TERMINATE THE *RIW* LIST   FCC0408    30
                          5170000000 X            SA7    =XCC$PC     CC$PC = 0                                   CCGNC     609
           536  5120000012 C                      SA2    M.PL                                                    GPO       970
                          7212000001              ALLOC  PIT,X2+1    ALLOC( PIT , M.PL+1 )                       GPO       971
           540  20102                             LX1    2                                                       GPO       972
                     5100000000 X                 ALLOC  TXT,X1      ALLOC( TXT , 4*(M.PL+1) )                   GPO       973
           542  5110000000 X                      SA1    L.TET                                                   GPO       974
                          0301000605 +            ZR     X1,GPO35    IF L.TET = 0  */ NO IT. S                   FCC0675    17
      L      0  00000000000000777777     MAXT     DEQU   BVI         MAX IT. S IN LOOP                           FCC0675    18
                                                                                                                 FCC0675    19
           543  5120000015 +                      SA2    O.BIT                                                   FCC0675    20
                          5130000016 +            SA3    L.BIT                                                   FCC0675    21
           544  5140000003 +                      SA4    NPB                                                     FCC0675    22
                          43700                   MX7    0                                                       FCC0675    23
                               53720              SA7    X2          BIT(0) = 0                                  FCC0675    24
           545  43052                             MX0    -BI.MAXTL                                               FCC0675    25
                     20401                        LX4    1                                                       FCC0675    26
                          63340                   SB3    X4          I = 2*NPB                                   FCC0675    27
                               63430              SB4    X3                                                      FCC0675    28
           546  53523                    GPO26    SA5    X2+B3                                                   FCC0675    29
                     11605                        BX6    X0*X5       MAXT[BIT(I)] = 0                            FCC0675    30
                          6133000002              SB3    B3+2        I = I + 2                                   FCC0675    31
           547  54650                             SA6    A5                                                      FCC0675    32
                     0734000546 +                 LT     B3,B4,GPO26 IF I < L.BIT                                FCC0675    33
                                                                                                                 FCC0675    34
                                        *         FORM SORT TABLE AND GROUP IT.S BY THE LOOP THEY ARE DEFINED IN FCC0675    35
                                                                                                                 FCC0675    36
                               73111              ALLOC  CFT,X1+B1   ALLOC( CFT , L.TET+1 )                      FCC0675    37
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    33
        GPO - MAIN LOOP                                               GPO                 CODE
  
           551  5150000000 X                      SA5    O.TET                                                   FCC0675    38
                          6231777776              SB3    X1-1        LIM = L.TET                                 FCC0675    39
           552  43052                             MX0    -T.HBNL                                                 FCC0675    40
                     43700                        MX7    0                                                       FCC0675    41
                          20044                   LX0    T.HBNP                                                  FCC0675    42
                               53720              SA7    X2          CFT(0) = 0;  J = 1                          FCC0675    43
           553  66200                             SB2    B0          I = 0                                       FCC0675    44
                     53550                        SA5    X5                                                      FCC0675    45
                                                                                                                 FCC0675    46
           554  15650                    GPO27    BX6    -X0*X5                                                  FCC0675    47
                     20501                        LX5    59-T.EQVP                                               FCC0675    48
                          0306000557 +            ZR     X6,GPO28    IF HBN[TET(I)] = 0  */ NOT MATERIALIZED     FCC0675    49
           555  0335000557 +                      MI     X5,GPO28    IF EQV[TET(I)]                              FCC0675    50
                          7112000000              SX1    B2+                                                     FCC0675    51
           556  12761                             BX7    X6+X1                                                   FCC0675    52
                     54771                        SA7    A7+B1       J = J + 1;  CFT(J) = HBN[TET(I)] ! I        FCC0675    53
           557  66221                    GPO28    SB2    B2+B1       I = I + 1                                   FCC0675    54
                     54551                        SA5    A5+B1                                                   FCC0675    55
                          0723000554 +            LT     B2,B3,GPO27 IF I < LIM                                  FCC0675    56
                                                                                                                 FCC0675    57
           560  63721                             SB7    X2+B1       FWA = CFT(1)                                FCC0675    58
                     64671                        SB6    A7+B1                                                   FCC0675    59
                          77167                   SX1    B6-B7       LEN = CFT(I+1) - FWA                        FCC0675    60
                               54070              SA0    A7                        (A0) = CFT(N)                 FCC0675    61
           561  0301000604 +                      ZR     X1,GPO33    IF LEN = 0                                  FCC0675    62
                          73611                   SX6    X1+B1                                                   FCC0675    63
                               54630              SA6    A3          L.CFT = LEN + 1                             FCC0675    64
           562  0100000000 X                      CALL   SHL#        SORT( CFT , LEN )                           CCGNC     610
                                                                                                                 FCC0675    66
                                        *         SCAN THE SORTED TABLE BACKWARDS ( OUTERMOST LOOPS FIRST ) AND  FCC0675    67
                                        *         ASSIGN *CA"S* TO THE IT. S, AND ACCUMULATE THE AMOUNT OF       FCC0675    68
                                        *         STORAGE USED.                                                  FCC0675    69
                                                                                                                 FCC0675    70
           563  54500                             SA5    A0          I = N;  CI = CFT(N)                         FCC0675    71
                     43052                        MX0    -T.CAL                                                  FCC0675    72
                          5130000015 +            SA3    O.BIT                                                   FCC0675    73
           564  5140000000 X                      SA4    O.TET                                                   FCC0675    74
                          76700                   SX7    B0          C = 0                                       FCC0675    75
                               76110              SX1    B1                                                      FCC0675    76
           565  66500                             SB5    B0          MIT = 0       */ MAX IT. S                  FCC0675    77
                     20171                        LX1    T.FAP                                                   FCC0675    78
                          63630                   SB6    X3                        (B6) = O.BIT                  FCC0675    79
                               63740              SB7    X4                        (B7) = O.TET                  FCC0675    80
           566  6140000044                        SB4    T.HBNP                                                  FCC0675    81
                          23245                   AX2    B4,X5       LHB = HBN[CI]                               FCC0675    82
                                                                                                                 FCC0675    83
           567  23345                    GPO30    AX3    B4,X5       H = HBN[CI]                                 FCC0675    84
                     13623                        BX6    X2-X3                                                   FCC0675    85
                          0306000577 +            ZR     X6,GPO32    IF H = LHB    */ SAME LOOP                  FCC0675    86
                                                                                                                 FCC0675    87
           570  53426                             SA4    B6+X2                                                   FCC0675    88
                     12647                        BX6    X4+X7       MAXT[BIT(LHB)] = C  */ SAVE OLD MAX         FCC0675    89
                          5064000000              SA6    A4+                                                     FCC0675    90
           571  63270                   +         SB2    X7                                                      FCC0675    91
                     0652000572 +                 LE     B2,B5,*+1   MIT = MAX( MIT , C )                        FCC0675    92
                               66520              SB5    B2                                                      FCC0675    93
           572  14333                             BX3    -X3                                                     FCC0675    94
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    34
        GPO - MAIN LOOP                                               GPO                 CODE
  
                     63230                        SB2    X3                                                      FCC0675    95
                                                                                                                 FCC0675    96
           573  7222777775               GPO31    SX2    X2-2        LHB = LHB - 2                               FCC0675    97
                          53426                   SA4    B6+X2                                                   FCC0675    98
                               43355              MX3    -BI.OLNL                                                FCC0675    99
           574  20426                             LX4    -BI.OLNP                                                FCC0675   100
                     15343                        BX3    -X3*X4      J = OLN[BIT(LHB)]                           FCC0675   101
                          53336                   SA3    B6+X3                                                   FCC0675   102
                                                  LX3    -BI.MAXTP                                               FCC0675   103
                               73730              SX7    X3          C = MAXT[BIT(J)]  */ SET BASE *CA*          FCC0675   104
           575  73622                             SX6    X2+B2                                                   FCC0675   105
                     0306000577 +                 ZR     X6,GPO32    IF LHB = H                                  FCC0675   106
                               20446              LX4    BI.OLNP                                                 FCC0675   107
           576  12647                             BX6    X4+X7       MAXT[BIT(OLN)] = C  */ PROPAGATE TO INER LP FCC0675   108
                     54640                        SA6    A4                                                      FCC0675   109
                          0400000573 +            EQ     GPO31                                                   FCC0675   110
                                                                                                                 FCC0675   111
                                        *         ASSIGN A *CA* TO THIS *TET* ENTRY                              FCC0675   112
                                                                                                                 FCC0675   113
           577  53457                    GPO32    SA4    B7+X5       I = SETX([CI])                              FCC0675   114
                     55551                        SA5    A5-B1       CI = CI - 1                                 FCC0675   115
                          12617                   BX6    X1+X7                                                   FCC0675   116
                               11304              BX3    X0*X4                                                   FCC0675   117
           600  12663                             BX6    X6+X3       (FA,CA)TET(I) = (1,C)                       FCC0675   118
                     54640                        SA6    A4                                                      FCC0675   119
                          7277000001              SX7    X7+1        C = C + 1                                   FCC0675   120
           601  0315000567 +                      NZ     X5,GPO30    IF [CI] " 0   */ NOT END OF SORT TABLE      FCC0675   121
                                                                                                                 FCC0675   122
           602  63270                   +         SB2    X7                                                      FCC0675   123
                     0625000603 +                 GE     B2,B5,*+1   N.IT = MAX( MIT , C )                       FCC0675   124
                               76750              SX7    B5                                                      FCC0675   125
           603  5170000000 X                      SA7    =XN$IT                                                  CCGNC     611
                                                                                                                 FCC0675   127
           604  7170000000               GPO33    SX7    0                                                       FCC0675   128
                          5170000000 X            SA7    =XL.CFT     L.CFT = 0                                   FCC0675   129
  
                                        *         LOOP THROUGH THE TABLE OF *RI* WORDS AND CALL *WII* TO         CCG1       54
                                        *         CONVERT THE BLOCKS TO COMPASS INSTRUCTIONS AND ASSIGN          FCC0675   130
                                        *         ADDRESS"S.                                                     FCC0675   131
                                                                                                                 FCC0675   132
           605  5110000000 C             GPO35    SA1    O.UDT                                                   FCC0675   133
                          5130000000 X            SA3    O.PIT                                                   GPO       983
           606  53510                             SA5    X1          RIWA = [SI]                                 CCG0013    13
                     0305000615 +                 ZR     X5,GPO36    IF RIWA = 0     */ END OF TABLE             CCG0013    14
                               53550              SA5    X5          RIW = [RIWA]                                CCG0013    15
           607  20525                             LX5    -RI.LENP                                                GPO       986
                     73611                        SX6    X1+B1       SI = SI + 1                                 GPO       987
                          54610                   SA6    A1                                                      GPO       988
                               73750              SX7    X5          L.PIT = LEN[RIW]                            GPO       989
           610  20547                             LX5    RI.LENP                                                 GPO       990
                     5170000000 X                 SA7    L.PIT                                                   GPO       991
           611  0100000000 X                      CALL   GMB#        READ BLOCK INTO *PIT*                       CCGNC     612
           612  5110000000 X                      SA1    O.PIT       R1 = [O.PIT]                                GPO       993
                          53210                   SA2    X1                                                      GPO       994
                               73620              SX6    X2          BN = IH[R1]   */ SET *BN* FOR TET PACKING   GPO       995
           613  5160000031 +                      SA6    BN                                                      GPO       996
                          0100000000 X            CALL   WII#        CONVERT THE INSTRUCTIONS                    CCGNC     613
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    35
        GPO - MAIN LOOP                                               GPO                 CODE
  
           614  0400000605 +                      EQ     GPO35                                                   FCC0675   135
                                                                                                                 GPO       999
           615  7160000000               GPO36    SX6    0                                                       FCC0675   136
                          5160000000 X            SA6    L.PIT       L.PIT = 0                                   GPO      1001
           616  5160000000 X                      SA6    L.TXT       L.TXT = 0                                   GPO      1002
                          5160000000 X            SA6    L.BLK       L.BLK = 0                                   CCG1       56
           617  5160000000 X                      SA6    L.TET       L.TET = 0                                   CCG1       57
                                                                                                                 GPO      1003
                          0400000265 +            EQ     CG$GPO                                                  CCGNC     614
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    36
        GRAPH PROCESSING SUBROUTINES                                  IGP                 CODE
  
                                        **        IGP - INITIALIZE GRAPH PROCESSING                              GPO      1016
                                        *                                                                        GPO      1017
                                        *         ENTRY  (GP) = GRAPH POINTER, FWA OF GRAPH TABLE                GPO      1018
                                        *                                                                        GPO      1019
                                        *         EXIT   (X6) = N.LP , N. LOOPS IN GRAPH                         GPO      1020
                                                                                                                 GPO      1021
           620  0200400620 +             IGP      ROUTINE                                                        GPO      1022
           621  5110000040 +                      SA1    GP                                                      GPO      1023
                          53211                   SA2    X1+B1       GB = [GP] + 1;  GBW = [GB]                  GPO      1024
                               74621              SX6    A2+B1                                                   GPO      1025
           622  5160000041 +                      SA6    EIT         EIT = [GP] + 2  */ EDGE INDEX TABLE         GPO      1026
                                                                                                                 GPO      1027
                                        *         BUMP PRED COUNT OF PROGRAM EXIT NODE SO IT DOESNT BECOME A     GPO      1028
                                        *         INSERTION POINT FOR POST STORE CODE ( FXI ).                   GPO      1029
                                                                                                                 GPO      1030
                          76510                   SX5    B1                                                      GPO      1031
                               54421              SA4    A2+B1                                                   GPO      1032
           623  20536                             LX5    EI.NPP                                                  GPO      1033
                     36754                        IX7    X5+X4       NP[EIT] = NP[EIT] + 1                       GPO      1034
                          54740                   SA7    A4                                                      GPO      1035
                                                                                                                 GPO      1036
                                                  LX2    -GB.ILIP                                                GPO      1037
                               73320              SX3    X2                                                      GPO      1038
           624  36763                             IX7    X6+X3                                                   GPO      1039
                     63370                        SB3    X7                                                      GPO      1040
                          5170000043 +            SA7    IBA         IBA = EIT + ILI[GBW]                        GPO      1041
           625  20230                             LX2    GB.ILIP-GB.NLPP                                         GPO      1042
                     73620                        SX6    X2                                                      GPO      1043
                          5160000042 +            SA6    N.LP        N.LP = NLP[GBW]                             GPO      1044
           626  43700                             MX7    0                                                       GPO      1045
                     5170000044 +                 SA7    NN          NN = 0                                      GPO      1046
                                                                                                                 GPO      1047
                                        *         SETUP *BTT* AND *HNT*, SET *HN* BIT FOR HEADER NODES.          FCC0392    29
                                        *         SETUP BVI FOR *HB"S* SO AS TO SIMPLIFY *FXI* LOGIC.            FCC0392    30
                                        *         BTT - NODE NUMBER TO *BI* TRANSITION TABLE                     FCC0392    31
                                        *         HNT - HEADER NODE TO *HB* SEARCH TABLE.                        FCC0392    32
                                                                                                                 FCC0392    33
                               53060              SA0    X6                                                      FCC0392    34
           627  5110000035 +                      SA1    O.BTT                                                   FCC0392    35
                          5130000036 +            SA3    O.HNT                                                   FCC0392    36
           630  5120000015 +                      SA2    O.BIT                                                   FCC0392    37
                          63710                   SB7    X1                        (B7) = O.BTT                  FCC0392    38
                               63630              SB6    X3          HI = O.HNT                                  FCC0392    39
           631  6150000044                        SB5    IM.BIP                                                  FCC0392    40
                          63420                   SB4    X2                        (B4) = O.BIT                  FCC0392    41
                               43052              MX0    -IP.NODEL                                               FCC0392    42
           632  56530                             SA5    B3          IP = IBA                                    FCC0392    43
                     43700                        MX7    0                                                       FCC0392    44
                          56770                   SA7    B7          BTT(0) = 0                                  FCC0392    45
                                                                                                                 FCC0392    46
           633  11105                    IGP1     BX1    X0*X5       HNI = (NIP,PB)[IP]                          FCC0392    47
                                                  LX5    -IP.NODEP                                               FCC0392    48
                     63250                        SB2    X5          N = NODE[IP]                                FCC0392    49
                          54551                   SA5    A5+B1       IP = IP + 1   */ HEADER NODE                FCC0392    50
                               10255              BX2    X5          IPF = [IP]                                  FCC0392    51
                                                                                                                 FCC0392    52
           634  23455                    IGP2     AX4    B5,X5                                                   FCC0392    53
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    37
        GRAPH PROCESSING SUBROUTINES                                  IGP                 CODE
  
                                                  LX5    -IM.BNP                                                 FCC0392    54
                     73740                        SX7    X4                                                      FCC0392    55
                          53757                   SA7    B7+X5       BTT(BN[IP]) = BI[IP]                        FCC0392    56
                               67221              SB2    B2-B1       N = N - 1                                   FCC0392    57
           635  54551                             SA5    A5+B1       IP = IP + 1                                 FCC0392    58
                     0520000634 +                 NZ     B2,IGP2     IF N " 0                                    FCC0392    59
                                                                                                                 FCC0392    60
                                                  LX2    59-IM.SCRP                                              FCC0392    61
           636  0322000642 +                      PL     X2,IGP3     IF ^SCR[IPF]  */ HEADER ^ IN SCR            FCC0392    62
                          20230                   LX2    1+IM.SCRP-IM.BIP  I = BI[IPF]                           FCC0392    63
                               73220              SX2    X2                                                      FCC0392    64
           637  12712                             BX7    X1+X2                                                   FCC0392    65
                     56760                        SA7    B6          [HI] = HNW(HNI,I)                           FCC0392    66
                          66661                   SB6    B6+B1       HI = HI + 1                                 FCC0392    67
                                                                                                                 FCC0392    68
                               20153              LX1    -IP.PBP+1   HBI = 2*PB[HNI]                             FCC0392    69
           640  76410                             SX4    B1                                                      FCC0392    70
                     53324                        SA3    B4+X2                                                   FCC0392    71
                          20466                   LX4    BI.HNP                                                  FCC0392    72
                               12643              BX6    X4+X3       HN[BIT(I)] = 1                              FCC0392    73
           641  54630                             SA6    A3                                                      FCC0392    74
                                                  LX3    -BI.BVIP                                                FCC0392    75
                     73730                        SX7    X3                                                      FCC0392    76
                                                  LX7    BI.BVIP                                                 FCC0392    77
                          53714                   SA7    B4+X1       BVI[BIT(HBI)] = BVI[BIT(I)]                 FCC0392    78
                                                                                                                 FCC0392    79
           642  0315000633 +             IGP3     NZ     X5,IGP1     IF [IP] " 0   */ ^ END OF INTERVAL LIST     FCC0392    80
                                                                                                                 FCC0392    81
                          74600                   SX6    A0                                                      FCC0392    82
                               76760              SX7    B6                                                      FCC0392    83
           643  5170000037 +                      SA7    L.HNT       L.HNT = HI    */ LWA+1 OF HNT               FCC0392    84
                          0400000620 +            EQ     IGP                                                     GPO      1070
  
  
  
                                        **        FNL - FIND NEXT LOOP ( STRONGLY CONNECTED REGION  )            GPO      1072
                                        *                                                                        GPO      1073
                                        *         EXIT   (IBA) = INTERVAL LIST ADDRESS FOR *SCR*                 GPO      1074
                                        *                (NN) = N.NODES IN INTERVAL                              GPO      1075
                                        *                (X4) = IM = [IBA] , FIRST INTERVAL MEMBER WORD          GPO      1076
                                                                                                                 GPO      1077
           644  74640                    FNL0     SX6    A4                                                      GPO      1078
                     54610                        SA6    A1          IBA = IM                                    GPO      1079
                          76720                   SX7    B2                                                      GPO      1080
                               54720              SA7    A2          NN = NODE[IP]                               GPO      1081
                                                  LX4    1+IM.SCRP                                               GPO      1082
                                                                                                                 GPO      1083
           645  0200400645 +             FNL      ROUTINE                                                        GPO      1084
           646  5110000043 +                      SA1    IBA                                                     GPO      1085
                          54211                   SA2    A1+B1                                                   GPO      1086
                               36712              IX7    X1+X2                                                   GPO      1087
           647  53570                             SA5    X7          IP = IBA + NN */ POINT TO IP WORD OF NEXT   GPO      1088
                                                                                                                 GPO      1089
           650  54451                    FNL1     SA4    A5+B1       IM = IP + 1                                 GPO      1090
                                                  LX5    -IP.NODEP                                               GPO      1091
                     63250                        SB2    X5          N = NODE[IP]                                GPO      1092
                                                  LX4    59-IM.SCRP                                              GPO      1093
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    38
        GRAPH PROCESSING SUBROUTINES                                  FNL                 CODE
  
                          0334000644 +            MI     X4,FNL0     IF SCR[IM]    */ HEADER IN A *SCR*          GPO      1094
           651  54542                             SA5    A4+B2       IP = IM + N   */ ADVANCE TO NEXT HEADER     GPO      1095
                     0400000650 +                 EQ     FNL1                                                    GPO      1096
  
  
                                        **        GNG - GET NEXT GRAPH TABLE                                     GPO      1098
                                        *                                                                        GPO      1099
                                        *         EXIT   (X6) = 0 IF END OF GRAPHS, ELSE (GP) = FWA OF GRAPH     GPO      1100
                                                                                                                 GPO      1101
           652  5120000040 +             GNG0     SA2    GP                                                      GPO      1102
                          53320                   SA3    X2                                                      GPO      1103
                                                  LX3    -GA.LFP                                                 GPO      1104
                               73630              SX6    X3                                                      GPO      1105
           653  0306000654 +                      ZR     X6,GNG      IF LF[GP] = 0 */ LEAVE *GP* ALONE           GPO      1106
                          36726                   IX7    X2+X6       GP = GP + LF[GP]                            GPO      1107
                               54720              SA7    A2                                                      GPO      1108
           654  0200400654 +             GNG      ROUTINE                                                        GPO      1109
           655  5110000006 +                      SA1    GIC                                                     GPO      1110
                          0301000652 +            ZR     X1,GNG0     IF GIC = 0    */ ALL GRAPHS ARE INCORE      GPO      1111
                                                                                                                 GPO      1112
           656  53411                             SA4    X1+B1       RAW = [GIC+1] */ RANDOM INDEX WORD          GPO      1113
                     73711                        SX7    X1+B1       GIC = GIC + 1                               GPO      1114
                          43600                   MX6    0                                                       GPO      1115
                               54710              SA7    A1                                                      GPO      1116
           657  0304000654 +                      ZR     X4,GNG      IF RAW = 0    */ END OF GRAPHS              GPO      1117
                          5120000040 +            SA2    GP                                                      GPO      1118
           660  20425                             LX4    -RI.LENP                                                GPO      1119
                     73540                        SX5    X4          L = LEN[RAW]                                GPO      1120
                          20447                   LX4    RI.LENP                                                 GPO      1121
           661  0100000000 X                      CALL   GBD#        GBD( FSCM = GP , RAW , L )                  CCGNC     615
           662  76610                             SX6    B1                                                      GPO      1123
                     0400000654 +                 EQ     GNG                                                     GPO      1124
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    39
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                        **        IRP - INITIALIZE REGION PROCESSING FOR A *SCR*                 GPO      1126
                                                                                                                 GPO      1127
           663  0200400663 +             IRP      ROUTINE                                                        GPO      1128
           664  5150000044 +                      SA5    NN                                                      GPO      1129
                          22415                   LX4    B1,X5                                                   GPO      1130
           665  7214000003                        ALLOC  BST,X4+3    ALLOC( BST , 2*NN+3 )                       GPO      1131
                                                                                                                 GPO      1132
                                        *         SETUP *BST* FOR PROCESSING OF *SCR*                            GPO      1133
                                        *         INITIALIZE *BST,BIT* ENTRIES FOR HOLDING BLOCK                 GPO      1134
                                                                                                                 GPO      1135
           667  5140000043 +                      SA4    IBA                                                     GPO      1136
                          5130000015 +            SA3    O.BIT                                                   GPO      1137
           670  63550                             SB5    X5          N = NN                                      GPO      1138
                     53140                        SA1    X4          IP = [IBA]                                  GPO      1139
                          55511                   SA5    A1-B1       IHW = [IBA-1]                               GPO      1140
                               20553              LX5    -IP.PBP+1                                               GPO      1141
           671  73650                             SX6    X5          HN = 2*PB[IHW]  */ *BN* OF HOLDING BLOCK    GPO      1142
                     43700                        MX7    0                                                       GPO      1143
                          5160000047 +            SA6    HBI         HBI(1) = HN                                 GPO      1144
           672  43072                             MX0    -BA.HBBL                                                GPO      1145
                     20644                        LX6    BA.BIP                                                  GPO      1146
                          20071                   LX0    BA.HBBP                                                 GPO      1147
                               16660              BX6    -X0+X6                                                  GPO      1148
           673  53620                             SA6    X2          BST(0) = BAW(HBB,HN,0,0)                    GPO      1149
                     63720                        SB7    X2                                                      GPO      1150
                          53721                   SA7    X2+B1       BST(1) = 0;  I = 2                          GPO      1151
                               43052              MX0    -IM.BIL                                                 GPO      1152
           674  63331                             SB3    X3+B1                                                   GPO      1153
                     63250                        SB2    X5                                                      GPO      1154
                          20044                   LX0    IM.BIP                                                  GPO      1155
                               53232              SA2    X3+B2                                                   GPO      1156
           675  15710                             BX7    -X0*X1      BN = BI[IP]   */ BN OF HEADER               GPO      1157
                     20752                        LX7    BI.PBNP-IM.BIP                                          GPO      1158
                          12772                   BX7    X7+X2       PBN[BIT(HN)] = BN  */ LINK *HB* TO HEADER   GPO      1159
                               43652              MX6    -BI.BVIL                                                FCC0392    85
                                                  LX6    BI.BVIP                                                 FCC0392    86
           676  11767                             BX7    X6*X7       BVI[BIT(HN)] = 0                            FCC0392    87
                     54720                        SA7    A2                                                      GPO      1160
                          66200                   SB2    B0          TLEN = 0                                    GPO      1161
                                                                                                                 GPO      1162
                                         IRP1     LX1    59-IM.SCRP                                              GPO      1163
           677  0321000702 +                      PL     X1,IRP2     IF ^SCR[IP]   */ BLOCK NOT IN *LOOP*        GPO      1164
                                                  LX1    1+IM.SCRP                                               GPO      1165
                          15610                   BX6    -X0*X1                                                  GPO      1166
                               10711              BX7    X1                                                      GPO      1167
           700  20130                             LX1    -IM.BIP                                                 GPO      1168
                     53213                        SA2    B3+X1       RIW = BIT(BI[IP]+1)                         GPO      1169
                          20225                   LX2    -RI.LENP                                                GPO      1170
                               63222              SB2    B2+X2       TLEN = TLEN + LEN[RIW]                      GPO      1171
                                                  LX6    BA.BIP-IM.BIP                                           GPO      1172
           701  5066000002                        SA6    A6+2        BST(I) = BAW(0,BI[IP],0,0)                  GPO      1173
                          5076000001              SA7    A6+1        BST(I+1) = 0;  I = I + 2                    GPO      1174
                                                                                                                 GPO      1175
           702  67551                    IRP2     SB5    B5-B1       N = N - 1                                   GPO      1176
                     54111                        SA1    A1+B1       IP = IP + 1                                 GPO      1177
                          0550000677 +            NZ     B5,IRP1     IF N " 0                                    GPO      1178
                                                                                                                 GPO      1179
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    40
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
           703  43600                             MX6    0                                                       GPO      1180
                     54671                        SA6    A7+B1       BST(I) = 0    */ TABLE TERMINATOR           GPO      1181
                          64661                   SB6    A6+B1                                                   GPO      1182
                               77767              SX7    B6-B7       L.BST = I + 1                               GPO      1183
           704  5170000000 X                      SA7    L.BST                                                   GPO      1184
  
                                        *         INITIALIZE FLAGS, CLEAR REGION BIT VECTORS                     GPO      1186
                                                                                                                 GPO      1187
                          5110000021 +            SA1    L.SBV                                                   GPO      1188
           705  5120000003 C                      SA2    DVA                                                     GPO      1189
                          43600                   SETZERO X2,X1      SETZERO( [DVA] , L.SBV )                    GPO      1190
           707  43544                             MX5    -24                                                     GPO      1191
                     14755                        BX7    -X5         MRA = ^MASK(36)                             GPO      1192
                          5170000015 C            SA7    MRA                                                     GPO      1193
           710  5170000051 +                      SA7    MRA.X       MRA.X = MRA                                 FCC1254    10
                          43600                   SETZERO N.HB,N.CLC SETZERO( N.HB , N.CLC )                     GPO      1194
           713  5110000000 X                      SA1    L.TET                                                   GPO      1195
                          43600                   MX6    0                                                       GPO      1196
                               10711              BX7    X1                                                      GPO      1197
           714  5170000014 C                      SA7    ITL         ITL = L.TET                                 GPO      1198
                          5170000102 C            SA7    TTI         TTI = L.TET                                 GPO      1199
           715  5160000100 C                      SA6    NTP         NTP = 0                                     GPO      1200
                          5160000016 C            SA6    LGL         LGL = 0                                     GPO      1201
           716  5160000053 +                      SA6    UXR+1       UXR(2) = 0                                  GPO      1202
                          5160000046 +            SA6    NBIP        NBIP = 0                                    FCC0514    30
                                                                                                                 GPO      1203
                                        *         GET HEADER NODE, SET LINENR OF *BOS*, LOOP LABEL, ETC.         GPO      1204
                                                                                                                 GPO      1205
           717  7170000002                        SX7    2                                                       GPO      1206
                          5170000032 +            SA7    BSI         BSI = 2                                     GPO      1207
           720  0100000000 X                      CALL   RTB#        READ FIRST BLOCK INTO *BLK*                 CCGNC     616
                                                                                                                 GPO      1209
           721  5110000027 +                      SA1    O.SEQ       T = [O.SEQ]                                 GPO      1210
                          53211                   SA2    X1+B1                                                   CCG21       7
                               20201              LX2    59-R2.LONGP                                             CCG21       8
           722  0322000725 +                      PL     X2,IRP3     IF ^LONG[R2]  */ NOT DO=LONG                CCG21       9
                          43554                   MX5    -16                                                     CCG21      10
                               20510              LX5    8                                                       CCG21      11
           723  14755                             BX7    -X5         MRA = 77777400B  */ NO B-REGS AVAIL         CCG21      12
                     5170000015 C                 SA7    MRA                                                     CCG21      13
           724  5170000051 +                      SA7    MRA.X       MRA.X = MRA                                 CCG21      14
           725  5130000043 +             IRP3     SA3    IBA                                                     CCG21      15
                          5251000005              SA5    X1+5                                                    GPO      1212
           726  53410                             SA4    X1                                                      GPO      1213
                     22705                        LX7    X5          LIH(2) = [T+5]  */ R2 WORD OF LOOP *LAB*    GPO      1214
                          55551                   SA5    A5-B1       R1 = [T+4]      */ R1 WORD OF *LAB*         GPO      1215
                               10644              BX6    X4                                                      GPO      1216
           727  5160000050 +                      SA6    HBI+1       HBI(2) = [T]  */ R1 WORD OF *BOS*           GPO      1217
                          5170000026 C            SA7    LIH+1                                                   GPO      1218
           730  20636                             LX6    -R1.INP                                                 GPO      1219
                     73660                        SX6    X6          HO$CSN  = IN[T]  */ LINE NUMBER OF LOOP     CCGNC     617
                          5160000000 X            SA6    =XHO$CSN                                                CCGNC     618
           731  73750                             SX7    X5                                                      GPO      1222
                     55771                        SA7    A7-B1       LIH(1) = IH[R1]                             GPO      1223
                          43700                   MX7    0                                                       CCGA021    35
                               54751              SA7    A5+B1       [T+5] = 0     */ CLEAR R2 WORD OF LABEL DEF CCGA021    36
           732  5233777776                        SA3    X3-1        IPW = [IBA-1]                               GPO      1224
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    41
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                                  LX3    59-IP.GLP                                               GPO      1225
                          0323000663 +            PL     X3,IRP      IF ^GL[IPW]   */ NO LABEL TRANSFER NECESSAR GPO      1226
                                                                                                                 FCC0408    31
           733  20301                             LX3    IP.GLP-IP.FTP                                           FCC0408    32
                     10633                        BX6    X3                                                      FCC0408    33
                          5160000054 +            SA6    FTH         FTH = FT[IPW] */ SAVE FOR *TRP*             FCC0408    34
  
                                        *         REGION HAS MORE THAN 1 PRED, SETUP *LGL* TO INDICATE CREATION  GPO      1228
                                        *         OF A GENERATED LABEL FOR THE TRANSFERS INSIDE THE LOOP.        GPO      1229
                                                                                                                 GPO      1230
           734  5140000001 +                      SA4    N.GL0                                                   GPO      1231
                          26525                   UX5    B2,X5                                                   GPO      1232
                               73641              SX6    X4+B1       N.GL0 = N.GL0 + 1                           GPO      1233
           735  54640                             SA6    A4                                                      GPO      1234
                     73550                        SX5    X5          LL = IH[R1]                                 GPO      1235
                          7266100000              SX6    X6+I.GL     GIH = I.GL + N.GL0                          GPO      1236
           736  37265                             IX2    X6-X5                                                   GPO      1237
                     20222                        LX2    18                                                      GPO      1238
                          12725                   BX7    X2+X5       LGL = SHIFT(GIH-LL,18) ! LL                 GPO      1239
                               27626              PX6    B2,X6                                                   GPO      1240
           737  5170000016 C                      SA7    LGL                                                     GPO      1241
                          5261000004              SA6    X1+4        [T+4] = TYIV(OC.LAB,0,GIH)                  GPO      1242
                                                                                                                 GPO      1243
           740  5120000047 +                      SA2    HBI                                                     GPO      1244
                          5110000015 +            SA1    O.BIT                                                   GPO      1245
           741  76010                             SX0    B1                                                      GPO      1246
                     63320                        SB3    X2                                                      GPO      1247
                          53313                   SA3    X1+B3                                                   GPO      1248
                               20071              LX0    BI.ILP                                                  GPO      1249
           742  12603                             BX6    X0+X3       IL[BIT(HN)] = 1  */ SET *INIT* LAB BIT      GPO      1250
                     54630                        SA6    A3                                                      GPO      1251
                                                                                                                 FCC1319    26
                                        *         SETUP INFO IN SYMTAB AND *LCT* IN CASE THERE ARE TRANSFERS     FCC1319    27
                                        *         FROM LOOPS INSIDE THIS LOOP TO THE HEAD OF IT THAT WILL BE     FCC1319    28
                                        *         ADJUSTED IN *POST*.                                            FCC1319    29
                                                                                                                 FCC1319    30
                          5130000001 +            SA3    N.GL0                                                   FCC1319    31
           743  20322                             LX3    LC.GLNP                                                 FCC1319    32
                     12632                        BX6    X3+X2                                                   FCC1319    33
                          5140000024 +            SA4    L.LCT       L = L.LCT                                   FCC1319    34
           744  5130000023 +                      SA3    O.LCT                                                   FCC1319    35
                          63330                   SB3    X3                                                      FCC1319    36
                               53643              SA6    B3+X4       LCT(L) = LC(0,N.GL0,HBI)                    FCC1319    37
           745  73741                             SX7    X4+B1       L.LCT = L.LCT + 1                           FCC1319    38
                     54740                        SA7    A4                                                      FCC1319    39
                          5110000000 X            SA1    =XO.SYM                                                 CCG1       60
           746  22715                             LX7    B1,X5                                                   CCG1       61
                     36575                        IX5    X7+X5                                                   CCG1       62
                          63411                   SB4    X1+B1                                                   CCG1       63
                               53554              SA5    B4+X5       WORDB = SYM(3*IH+1)                         CCG1       64
           747  76010                             SX0    B1                                                      CCG1       65
                     20030                        LX0    WB.LCP                                                  CCG1       66
                          12705                   BX7    X0+X5                                                   CCG1       67
                               43060              MX0    -WA.LCOL                                                CCG1       68
           750  55151                             SA1    A5-B1       WORDA = SYM(3*IH)                           CCG1       69
                     20543                        LX5    59-WB.LCP                                               CCG1       70
                          0325000755 +            PL     X5,IRP4     IF ^LC[WORDB] */ FIRST TIME                 CCG1       71
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    42
        IRP - INITIALIZE REGION PROCESSING                            IRP                 CODE
  
                                                                                                                 CCG1       72
           751  15710                             BX7    -X0*X1      J = LCO[WORDA]                              CCG1       73
           752  53273                   +         SA2    B3+X7       JL = J                                      FCC1319    53
                     20230                        LX2    -LC.NEXTP                                               FCC1319    54
                          7272000000              SX7    X2+         J = NEXT[LCT(JL)]                           FCC1319    55
           753  0317000752 +                      NZ     X7,*-1      IF J " 0                                    FCC1319    56
                                                                                                                 FCC1319    57
                          12642                   BX6    X4+X2       NEXT[LCT(JL)] = L.LCT - 1                   FCC1319    58
                               20644              LX6    LC.NEXTP                                                FCC1319    59
           754  54620                             SA6    A2                                                      FCC1319    60
                     0400000756 +                 EQ     IRP5                                                    FCC1319    61
                                                                                                                 FCC1319    62
           755  54750                    IRP4     SA7    A5          LC[WORDB] = 1                               CCG1       74
                     11101                        BX1    X0*X1                                                   CCG1       75
                          12741                   BX7    X4+X1       LCO[WORDA] = L                              CCG1       76
                               54710              SA7    A1                                                      FCC1319    66
                                                                                                                 FCC1319    67
           756  0400000663 +             IRP5     EQ     IRP                                                     FCC1319    68
  
  
  
                                        **        IHB - INITIALIZE HOLDING BLOCK                                 GPO      1254
                                                                                                                 GPO      1255
           757  0200400757 +             IHB      ROUTINE                                                        GPO      1256
           760  5120000047 +                      SA2    HBI         HN = HBI(1)                                 GPO      1257
                          54121                   SA1    A2+B1                                                   GPO      1258
                               43052              MX0    -18                                                     GPO      1259
           761  5140000000 X                      SA4    O.TXT       R1 = [O.TXT]                                GPO      1260
                          5150000016 C            SA5    LGL                                                     GPO      1261
           762  11301                             BX3    X0*X1                                                   GPO      1262
                     36632                        IX6    X3+X2       [R1] = TYIV(OC.BOS,HO$CSN ,HN)              CCGNC     619
                          5264000000              SA6    X4+                                                     GPO      1264
           763  0305000757 +                      ZR     X5,IHB      IF LGL = 0    */ NO GENERATED LABEL         GPO      1265
                                                                                                                 GPO      1266
                          7110000004              ALLOC  TXT,4       ALLOC( TXT , 4 )                            GPO      1267
           765  63720                             SB7    X2                                                      GPO      1268
                     6120000006                   SB2    OC.LAB                                                  GPO      1269
                               73450              SX4    X5          LL = SETX(LGL)  */ CURRENT LOOP LABEL       GPO      1270
           766  21522                             AX5    18                                                      GPO      1271
                     36745                        IX7    X4+X5       LIH = GLB[LGL]  */ SAVE GEN LABEL IN R2     CCGA021    37
                          5170000025 C            SA7    LIH         UPDATE LIH                                  CCGA021    38
           767  73640                             SX6    X4                                                      GPO      1275
                     0100000124 +                 RJ     SRI         SRI(  LAB  0,LL )  */ MOVE LABEL OUT        GPO      1276
           770  0400000757 +                      EQ     IHB                                                     GPO      1277
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    43
        TRP - TERMINATE REGION PROCESSING                             TRP                 CODE
  
                                        **        TRP - TERMINATE REGION PROCESSING FOR A LOOP                   GPO      1279
                                                                                                                 GPO      1280
           771  0200400771 +             TRP      ROUTINE                                                        GPO      1281
           772  5140000000 X                      SA4    L.BST                                                   CCG1       78
                          7254777772              SX5    X4-5                                                    GPO      1304
           773  0100001315 +                      RJ     CRB         RESET *UDT*                                 GPO      1305
           774  7160000000                        SX6    0                                                       GPO      1306
                          5160000000 X            SA6    L.IIT       L.IIT = 0                                   GPO      1307
           775  5160000032 +                      SA6    BSI         BSI = 0                                     GPO      1308
                          5160000045 +            SA6    BBV         BBV = 0                                     GPO      1309
                                                                                                                 GPO      1310
           776  0100000000 X                      CALL   RTB#        GET HOLDING BLOCK                           CCGNC     620
           777  5140000047 +                      SA4    HBI                                                     GPO      1312
                          5150000027 +            SA5    O.SEQ                                                   GPO      1313
          1000  43717                             MX7    -UD.STCP                                                GPO      1314
                     10644                        BX6    X4                                                      GPO      1315
                          5170001346 +            SA7    BCM         BCM = *REGION CLEAR MASK*                   GPO      1316
          1001  5160000031 +                      SA6    BN          BN = HBI(1)                                 GPO      1317
                          0100001355 +            CALL   FUD         FORM BIT VECTORS FOR *HB*                   GPO      1318
          1002  7160000001                        SX6    1                                                       GPO      1319
                          5160000045 +            SA6    BBV         BBV = 1                                     GPO      1320
          1003  43703                             MX7    UD.MVL                                                  GPO      1321
                     20773                        LX7    UD.MVL+UD.MVP                                           GPO      1322
                          5170001346 +            SA7    BCM         BCM = *MV*                                  GPO      1323
                                                                                                                 GPO      1324
                                        *         *HB* LIVE EXIT VECTOR IS REGION LIVE ENTRY VECTOR              GPO      1325
                                                                                                                 GPO      1326
          1004  5110000000 C                      SA1    VL                                                      GPO      1327
                          5120000017 +            SA2    O.BVT                                                   GPO      1328
          1005  5130000020 +                      SA3    L.BVT                                                   GPO      1329
                          5140000007 C            SA4    LEA                                                     GPO      1330
          1006  37731                             IX7    X3-X1                                                   GPO      1331
                     63420                        SB4    X2                        (B4) = [O.BVT]                GPO      1332
                          63574                   SB5    B4+X7       LVA = O.BVT + L.BVT - VL                    GPO      1333
                               66200              SB2    B0                                                      GPO      1334
          1007  63310                             SB3    X1                                                      GPO      1335
          1010  53542                    TRP2     SA5    X4+B2       MOVE( VL , [LEA] , LVA )                    GPO      1336
                     10655                        BX6    X5                                                      GPO      1337
                          56652                   SA6    B5+B2                                                   GPO      1338
                               66221              SB2    B2+B1                                                   GPO      1339
          1011  0723001010 +                      LT     B2,B3,TRP2                                              GPO      1340
                                                                                                                 GPO      1341
                                        *         SAVE REGION BIT VECTORS ( DEF, LU, USE, LX ) IN THE HEADER     GPO      1342
                                        *         NODE BIT VECTOR SLOT.                                          GPO      1343
                                                                                                                 GPO      1344
                          5140000015 +            SA4    O.BIT                                                   GPO      1345
          1012  5150000050 +                      SA5    HBI+1       BN = HBI(2)   */ BN OF HEADER               GPO      1346
                          5120000003 C            SA2    DVA                                                     GPO      1347
          1013  20102                             LX1    2                                                       GPO      1348
                     63640                        SB6    X4                                                      GPO      1349
                          53356                   SA3    B6+X5       BIW = BIT(BN)                               GPO      1350
                                                  LX3    -BI.BVIP                                                GPO      1351
                               73334              MOVE   X1,X2,B4+X3 MOVE( 4*VL , [DVA] , O.BVT + BVI[BIW] )     GPO      1352
                                                                                                                 GPO      1353
          1015  5110000054 +                      SA1    FTH                                                     FCC0408    35
                          0331001020 +            MI     X1,TRP3     IF FTH < 0    */ FALL THROUGH TO *HN*       FCC0675   137
          1016  53356                             SA3    B6+X5       BIW = BIT(HN)                               FCC0675   138
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    44
        TRP - TERMINATE REGION PROCESSING                             TRP                 CODE
  
                                                  LX3    59-BI.RBP                                               FCC0675   139
                     0333001034 +                 MI     X3,TRP4     IF RB[BIW]    */ PROGRAM BLOCK              FCC0675   140
                               20306              LX3    BI.RBP-BI.FTHP                                          FCC0675   141
          1017  0323001034 +                      PL     X3,TRP4     IF ^FTH[BIW]  */ INNER LP NOT *FTH*         FCC0675   142
                                                                                                                 FCC0408    37
                                        *         LOOP CONTAINS A FALL THROUGH TO THE HEADER NODE, AND REMOTE    FCC0408    38
                                        *         ENTRY BY A JUMP, SET *FJ* IN *BIT* AND APPEND A FINAL *UJP*    FCC0408    39
                                        *         TO THE *HB*.                                                   FCC0408    40
                                                                                                                 FCC0408    41
          1020  43700                    TRP3     MX7    0           FTH = 0                                     FCC0675   143
                     54710                        SA7    A1                                                      FCC0675   144
                          5110000047 +            SA1    HBI                                                     FCC0675   145
          1021  53316                             SA3    B6+X1                                                   FCC0675   147
                     76010                        SX0    B1                                                      FCC0675   148
                          20065                   LX0    BI.FTHP                                                 FCC0675   149
                               12603              BX6    X0+X3       FTH[BIT(HBI)] = 1                           FCC0675   150
          1022  54630                             SA6    A3                                                      FCC0675   151
                     20003                        LX0    BI.FJP-BI.FTHP                                          FCC0675   154
                          12606                   BX6    X0+X6       FJ[BIT(HBI)] = 1                            FCC0675   155
                               54630              SA6    A3                                                      FCC0408    54
          1023  0100004431 +                      CALL   MBT         MOVE *HB* TO *TXT*                          FCC0408    55
          1024  7110000004                        ALLOC  TXT,4       ALLOC( TXT , 4 )                            FCC0408    56
          1026  5150000001 +                      SA5    N.GL0                                                   FCC0408    57
                          6263777767              SB6    X3-8        TI = L.TXT - 8                              FCC0408    58
          1027  6120000074                        SB2    OC.UJP                                                  FCC0408    59
                          7265100000              SX6    I.GL+X5                                                 FCC0408    60
          1030  63720                             SB7    X2          TB = O.TXT                                  FCC0408    61
                     43700                        MX7    0                                                       FCC0408    62
                          0100000124 +            RJ     SRI         SRI(  UJP  0,I.GL+N.GL0 )                   FCC0408    63
          1031  66200                             R=     B2,OC.EOQ                                               FCC0408    64
                     43600                        MX6    0                                                       FCC0408    65
                          0100000124 +            RJ     SRI         SRI(  EOQ  0,0 )                            FCC0408    66
          1032  0100000066 +                      CALL   WTB         REWRITE THE BLOCK                           FCC0408    67
          1033  0100000000 X                      CALL   RTB#        RESET *SEQ* POINTERS                        CCGNC     621
                                                                                                                 FCC0408    69
          1034  5150000027 +             TRP4     SA5    O.SEQ                                                   FCC0675   156
                          5245777776              SA4    X5-1        BHW = [O.SEQ-1]                             GPO      1355
          1035  76010                             SX0    B1                                                      GPO      1356
                     20072                        LX0    BH.PRIP                                                 GPO      1357
                          15440                   BX4    -X0*X4      PRI[BHW] = 0                                GPO      1358
                               20045              LX0    BH.BSTP+BH.BSTL-1-BH.PRIP                               GPO      1359
          1036  12604                             BX6    X0+X4       BST[BHW] = 1S17  */ INDICATE NOT IN *BST*   GPO      1360
                     54640                        SA6    A4                                                      GPO      1361
                          0100001041 +            RJ     CBT         CLEAR BLOCK TABLE                           GPO      1362
          1037  0400000771 +                      EQ     TRP                                                     GPO      1363
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    45
        TRP - TERMINATE REGION PROCESSING                             CBT                 CODE
  
                                        **        CBT - CLEAR *BST*, RELEASE BLOCKS THAT WERE NOT CODED          GPO      1365
                                        *         INSERT *HB* NUMBER OF THIS LOOP IN *BIT* ENTRIES OF THIS       FCC1319    69
                                        *         REGION. THIS INFO IS USED ON THE BACK PASS IN *POST*.          FCC1319    70
                                                                                                                 GPO      1366
          1040  7160000000               CBT0     SX6    0                                                       GPO      1367
                          5160000000 X            SA6    L.BST       L.BST = 0                                   GPO      1368
          1041  0200401041 +             CBT      ROUTINE                                                        GPO      1369
          1042  7160000000                        SX6    0                                                       GPO      1370
                          5160000032 +            SA6    BSI         BSI = 0                                     GPO      1371
                                                                                                                 FCC0408    72
          1043  5110000032 +             CBT1     SA1    BSI                                                     GPO      1372
                          5120000000 X            SA2    O.BST                                                   GPO      1373
          1044  5130000015 +                      SA3    O.BIT                                                   GPO      1374
                          73610                   SX6    X1                                                      GPO      1375
                               63420              SB4    X2                                                      GPO      1376
                                                                                                                 GPO      1377
          1045  7266000002               CBT2     SX6    X6+2        BSI = BSI + 2                               GPO      1378
                          53564                   SA5    B4+X6       BAW = BST(BSI)                              GPO      1379
                               63530              SB5    X3                                                      GPO      1380
          1046  0305001040 +                      ZR     X5,CBT0     IF BAW = 0    */ END OF *BST*               GPO      1381
                                                  LX5    -BA.FWAP                                                GPO      1382
                          6265776736 -            SB6    X5-CBT                                                  FCC0675   158
          1047  20530                             LX5    BA.FWAP-BA.BIP    J = BI[BAW]                           FCC0675   159
                     53455                        SA4    B5+X5       BIW = BIT(J)                                FCC0675   160
                          5120000047 +            SA2    HBI                                                     FCC0675   165
          1050  43055                             MX0    -BI.OLNL                                                FCC0675   166
                     10744                        BX7    X4                                                      FCC1319    71
                          20726                   LX7    -BI.OLNP                                                FCC1319    72
                               11707              BX7    X0*X7                                                   FCC0675   168
          1051  12727                             BX7    X2+X7       OLN[BIT(J)] = HBI                           FCC0675   169
                     20746                        LX7    BI.OLNP                                                 FCC0675   170
                          54740                   SA7    A4                                                      FCC0675   171
                                                                                                                 FCC0675   172
          1052  0760001045 +             CBT3     MI     B6,CBT2     IF FWA[BAW] < CBT  */ DUMMY BLOCK           FCC0675   173
                          20401                   LX4    59-BI.CBP                                               GPO      1387
          1053  0334001045 +                      MI     X4,CBT2     IF CB[BAW]                                  GPO      1388
                          54610                   SA6    A1                                                      GPO      1389
          1054  0100000000 X                      CALL   RBS#        RELEASE THE BLOCK                           CCGNC     622
          1055  0400001043 +                      EQ     CBT1                                                    GPO      1391
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    46
        CIC - CONVERT INTERVAL TO CODE                                CIC                 CODE
  
                                        **        CIC - CONVERT INTERVAL TO CODE                                 GPO      1393
                                        *                                                                        GPO      1394
                                        *         ENTRY  (IBA) = POINTER TO *IM* WORD OF INTERVAL                GPO      1395
                                        *                (NN) = N. NODES IN INTERVAL                             GPO      1396
                                        *                                                                        GPO      1397
                                        *         EXIT   (IBA) = POINTS TO *IP* WORD OF NEXT INTERVAL            GPO      1398
                                        *                INTERVAL CODED AND WRITTEN TO SCRATCH FILE.             GPO      1399
                                                                                                                 GPO      1400
          1056  0200401056 +             CIC      ROUTINE                                                        GPO      1401
                                                                                                                 GPO      1402
                                        *         SCAN INTERVAL LIST TO FORM AN *EBB*                            GPO      1403
                                                                                                                 GPO      1404
          1057  5110000043 +             CIC1     SA1    IBA                                                     GPO      1405
                          5130000015 +            SA3    O.BIT                                                   GPO      1406
          1060  54211                             SA2    A1+B1                                                   GPO      1407
                     63330                        SB3    X3                        (B3) = [O.BIT]                GPO      1408
                          53510                   SA5    X1          IP = [IBA]                                  GPO      1409
                               63220              SB2    X2          N = NN                                      GPO      1410
          1061  10255                             BX2    X5          FIP = [IP]                                  GPO      1411
                     20530                        LX5    -IM.BIP     I = BI[IP]                                  GPO      1412
                          53453                   SA4    B3+X5                                                   GPO      1413
                               10044              BX0    X4          FBIW = BIT(I)                               GPO      1414
                                                  LX4    59-BI.RBP                                               GPO      1415
          1062  0324001067 +                      PL     X4,CIC3     IF ^RB[BIT(I)]  */ A HOLDING BLOCK          GPO      1416
                                                                                                                 GPO      1417
                                        *         ADD SUCCESSORS THAT DO NOT HAVE AN INITIAL LABEL, ETC.         GPO      1418
                                                                                                                 GPO      1419
          1063  67221                    CIC2     SB2    B2-B1       N = N - 1                                   GPO      1420
                     54551                        SA5    A5+B1       IP = IP + 1                                 GPO      1421
                          0420001070 +            ZR     B2,CIC4     IF N = 0      */ END OF LIST                GPO      1422
          1064  13625                             BX6    X2-X5                                                   GPO      1423
                                                  LX6    59-IM.SCRP                                              GPO      1424
                     0336001070 +                 MI     X6,CIC4     IF SCR[IP] " SCR[FIP]  */ DIFF REGIONS      GPO      1425
                               20530              LX5    -IM.BIP     I = BI[IP]                                  GPO      1426
          1065  53453                             SA4    B3+X5       BIW = BIT(I)                                GPO      1427
                                                  LX4    59-BI.RBP                                               FCC0675   174
                     0324001067 +                 PL     X4,CIC3     IF ^RB[BIW]   */ A HOLDING BLOCK            FCC0675   175
                               20402              LX4    BI.RBP-BI.ILP                                           FCC0675   176
          1066  0324001063 +                      PL     X4,CIC2     IF ^IL[BIW]                                 FCC0675   177
                          0400001070 +            EQ     CIC4                                                    FCC0675   178
                                                                                                                 GPO      1432
                                        *         TERMINATE LIST AFTER THIS NODE                                 GPO      1433
                                                                                                                 GPO      1434
          1067  74651                    CIC3     SX6    A5+B1       IPL = IP + 1                                GPO      1435
                     0400001071 +                 EQ     CIC5                                                    GPO      1436
                                                                                                                 GPO      1437
          1070  7065000000               CIC4     SX6    A5+         IPL = IP      */ TERMINATE BEFORE           GPO      1438
                                                                                                                 GPO      1439
          1071  20001                    CIC5     LX0    59-BI.CBP                                               GPO      1440
                     37661                        IX6    X6-X1       K = IPL - IBA */ N. NODES IN *EBB*          GPO      1441
                          0320001075 +            PL     X0,CIC7     IF ^CB[FBIW]  */ NOT YET CODED              GPO      1442
                                                                                                                 GPO      1443
                                        *         ADVANCE POINTERS TO UNPROCESSED PART OF THE INTERVAL           GPO      1444
                                                                                                                 GPO      1445
          1072  54211                    CIC6     SA2    A1+B1                                                   GPO      1446
                     36761                        IX7    X6+X1       IBA = IBA + K                               GPO      1447
                          54710                   SA7    A1                                                      GPO      1448
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    47
        CIC - CONVERT INTERVAL TO CODE                                CIC                 CODE
  
                               37626              IX6    X2-X6       NN = NN - K                                 GPO      1449
          1073  54620                             SA6    A2                                                      GPO      1450
                     0316001057 +                 NZ     X6,CIC1     IF NN " 0                                   GPO      1451
                                                                                                                 GPO      1452
          1074  0400001056 +                      EQ     CIC                                                     GPO      1453
                                                                                                                 GPO      1454
                                        *         SET FP/LVL EXPANSION MODE, AND SETUP A *BST* FOR THIS *EBB*.   GPO      1455
                                                                                                                 GPO      1456
          1075  76010                    CIC7     SX0    B1                                                      GPO      1457
                     20201                        LX2    -IM.SCRP                                                GPO      1458
                          11302                   BX3    X0*X2                                                   GPO      1459
          1076  7273000003                        SX7    X3+3        EMF = 3+SCR[FIP]  */ FP/LVL EXPANSION FLG   GPO      1460
                          5170000013 C            SA7    EMF                                                     GPO      1461
          1077  10566                             BX5    X6                                                      GPO      1462
                     22216                        LX2    B1,X6                                                   GPO      1463
                          5160001121 +            SA6    CICA                                                    GPO      1464
          1100  43052                             MX0    -IM.BIL                                                 GPO      1465
                     7212000003                   ALLOC  BST,X2+3    ALLOC( BST , 2*K+3 )                        GPO      1466
          1102  5110000043 +                      SA1    IBA                                                     GPO      1467
                          63250                   SB2    X5          N = K                                       GPO      1468
                               43700              MX7    0                                                       GPO      1469
          1103  53510                             SA5    X1          IP = [IBA]                                  GPO      1470
                     53720                        SA7    X2          BST(0) = 0                                  GPO      1471
                          20044                   LX0    IM.BIP                                                  GPO      1472
                               53721              SA7    X2+B1       BST(1) = 0;  I = 2                          GPO      1473
                                                                                                                 GPO      1474
          1104  15650                    CIC8     BX6    -X0*X5                                                  GPO      1475
                                                  LX6    BA.BIP-IM.BIP                                           GPO      1476
                     54671                        SA6    A7+B1       BST(I) = BAW(0,BI[IP],0,0)                  GPO      1477
                          10755                   BX7    X5                                                      GPO      1478
                               54761              SA7    A6+B1       BST(I+1) = [IP];  I = I + 2                 GPO      1479
          1105  67221                             SB2    B2-B1       N = N - 1                                   GPO      1480
                     54551                        SA5    A5+B1       IP = IP + 1                                 GPO      1481
                          0520001104 +            NZ     B2,CIC8     IF N " 0                                    GPO      1482
                                                                                                                 GPO      1483
          1106  43700                             MX7    0                                                       GPO      1484
                     54771                        SA7    A7+B1       BST(I) = 0    */ *BST* TERMINATOR           GPO      1485
                          5170000034 C            SA7    MAXW        MAXW = 0                                    GPO      1486
          1107  5170000035 C                      SA7    N.EBB       N.EBB = 0                                   GPO      1487
                                                                                                                 GPO      1488
                          7170001616 +            CLCM   CHB         COMBINE HOLDING BLOCKS                      GPO      1489
                                                                                                                 GPO      1490
          1111  7170001714 +                      CLCM   RDD         REMOVE DEAD DEFS                            GPO      1491
                                                                                                                 GPO      1492
          1113  0100001122 +                      CALL   CBB         COMBINE BASIC BLOCKS                        GPO      1493
                                                                                                                 GPO      1494
          1114  7170000000 X                      CLCM   CXB#        CODE EXTENDED BLOCKS                        CCGNC     623
                                                                                                                 GPO      1496
          1116  0100001041 +                      RJ     CBT         CLEAR *BST*                                 GPO      1497
          1117  5120001121 +                      SA2    CICA                                                    GPO      1498
                          5110000043 +            SA1    IBA                                                     GPO      1499
          1120  10622                             BX6    X2                                                      GPO      1500
                     0400001072 +                 EQ     CIC6                                                    GPO      1501
                                                                                                                 GPO      1502
          1121                     1     CICA     BSS    1                                                       GPO      1503
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    48
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
                                        **        CBB - COMBINE BASIC BLOCKS TO FORM AN EXTENDED BLOCK.          GPO      1505
                                        *                                                                        GPO      1506
                                        *         ENTRY  (EMF) = FP/LEVEL EXPANSION MODE                         GPO      1507
                                        *                                                                        GPO      1508
                                        *         EXIT   EXTENDED BLOCK WRITTEN BACK TO *BLK*                    GPO      1509
                                        *                MAXW, N.EBB UPDATED.                                    GPO      1510
                                                                                                                 GPO      1511
          1122  0200401122 +             CBB      ROUTINE                                                        GPO      1512
          1123  7160000002                        SX6    2           BSIL = 2                                    GPO      1513
                          5160001222 +            SA6    BSIL                                                    GPO      1514
                                                                                                                 GPO      1515
          1124  5110001222 +             CBB1     SA1    BSIL        I = BSIL                                    GPO      1516
                          5120000000 X            SA2    O.BST                                                   GPO      1517
          1125  5130000015 +                      SA3    O.BIT                                                   GPO      1518
                          5140000013 +            SA4    M.EBL                                                   GPO      1519
          1126  63320                             SB3    X2                        (B3) = [O.BST]                GPO      1520
                     10611                        BX6    X1          BSI = BSIL                                  GPO      1521
                          5160000032 +            SA6    BSI                                                     GPO      1522
          1127  63430                             SB4    X3                        (B4) = [O.BIT]                GPO      1523
                     63740                        SB7    X4                        (B7) = M.EBL                  GPO      1524
                          53513                   SA5    B3+X1       BAW = BST(I)                                GPO      1525
                               53010              SA0    X1                                                      GPO      1526
          1130  0305001122 +                      ZR     X5,CBB      IF BAW = 0    */ END OF *BST*               GPO      1527
                                                                                                                 GPO      1528
                          20552                   LX5    -BA.LENP                                                GPO      1529
                               63650              SB6    X5          TLEN = LEN[BAW]  */ TOTAL LENGTH OF EBB     GPO      1530
          1131  20552                             LX5    BA.LENP-BA.BIP                                          GPO      1531
                     53454                        SA4    B4+X5       BIW = BIT(BI[BAW])                          GPO      1532
                                                  LX4    59-BI.RBP                                               GPO      1533
                          0324001142 +            PL     X4,CBB3     IF ^RB[BIW]   */ HOLDING BLOCK              GPO      1534
          1132  6120000002                        SB2    2                                                       GPO      1535
                          7275000000              SX7    X5+         LBN = BI[BAW]                               GPO      1536
                                                                                                                 GPO      1537
                                        *         ADD SUCCESSORS OF THIS BLOCK UNTIL *IL*, SPACE OVERFLOW, ETC.  GPO      1538
                                                                                                                 GPO      1539
          1133  73112                    CBB2     SX1    X1+B2       I = I + 2                                   GPO      1540
                     20403                        LX4    BI.RBP-BI.FJP                                           GPO      1541
                          0776001143 +            GT     B6,B7,CBB3A IF TLEN > M.EBL  */ SPACE OVERFLOW          GPO      1542
          1134  0334001151 +                      MI     X4,CBB4     IF FJ[BIW]                                  GPO      1543
                          73772                   SX7    X7+B2       LBN = LBN + 2                               GPO      1544
                               53513              SA5    B3+X1       BAW = BST(I)                                GPO      1545
          1135  0305001151 +                      ZR     X5,CBB4     IF BAW = 0    */ END OF *BST*               GPO      1546
                          20530                   LX5    -BA.BIP     BN = BI[BAW]                                GPO      1547
                               53454              SA4    B4+X5       BIW = BIT(BN)                               GPO      1548
          1136  20402                             LX4    59-BI.ILP                                               GPO      1549
                     0334001151 +                 MI     X4,CBB4     IF IL[BIW]                                  GPO      1550
                               13657              BX6    X5-X7                                                   GPO      1551
          1137  63560                             SB5    X6                                                      GPO      1552
                     20522                        LX5    BA.BIP-BA.LENP                                          GPO      1553
                          63656                   SB6    B6+X5       TLEN = TLEN + LEN[BAW]                      GPO      1554
                               20472              LX4    BI.ILP-BI.RBP                                           GPO      1555
          1140  0324001146 +                      PL     X4,CBB3B    IF ^RB[BIW]                                 FCCA509X    8
                          0450001133 +            ZR     B5,CBB2     IF BN[BAW] = LBN  */ BLOCKS CONTIGIOUS      GPO      1557
          1141  0400001151 +                      EQ     CBB4                                                    GPO      1558
                                                                                                                 GPO      1559
          1142  7261000002               CBB3     SX6    X1+2        LIM = I + 2                                 GPO      1560
                          0400001152 +            EQ     CBB5                                                    GPO      1561
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    49
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
                                                                                                                 GPO      1562
          1143  6177000300               CBB3A    SB7    B7+300B                                                 GPO      1563
                          0676001151 +            LE     B6,B7,CBB4  IF TLEN @ M.EBL + 300B                      GPO      1564
                                                                                                                 GPO      1565
          1144  74202                             SX2    A0+B2                                                   GPO      1566
                     37712                        IX7    X1-X2                                                   GPO      1567
                          0307001151 +            ZR     X7,CBB4     IF I = BSIL + 2  */ ONLY 1 BIG BLOCK        GPO      1568
          1145  7211777775                        SX1    X1-2        I = I - 2                                   GPO      1569
                          0400001151 +            EQ     CBB4                                                    FCCA509X    9
                                                                                                                 FCCA509X   10
                                        *         ENCOUNTERED *HB* IN SEQ - CHECK IF THE LOOP HEADER BLK         FCCA509X   11
                                        *         IS A DIRECT SUCCESSOR OF THE PREV. BLK IN THE BST.             FCCA509X   12
                                        *         IF SO INCLUDE THE *HB* IN THE *EBB*.                           FCCA509X   13
                                                                                                                 FCCA509X   14
          1146  20452                    CBB3B    LX4    BI.RBP-BI.PBNP+1       HDRBLK = PBN[BIW]                FCCA509X   15
                     6251777775                   SB5    X1-2                                                    FCCA509X   16
                               56235              SA2    B3+B5                                                   FCCA509X   17
          1147  20230                             LX2    -BA.BIP     PBLK = BI[BST(I-2)]                         FCCA509X   18
                     37742                        IX7    X4-X2                                                   FCCA509X   19
                          63570                   SB5    X7                                                      FCCA509X   20
          1150  0552001151 +                      NE     B5,B2,CBB4  IF PBLK+2 " HDRBLK                          FCCA509X   21
                          73112                   SX1    X1+B2                                                   FCCA509X   22
                                                                                                                 FCCA509X   23
                                                                                                                 GPO      1570
          1151  7261000000               CBB4     SX6    X1+         LIM = I                                     GPO      1571
                                                                                                                 GPO      1572
          1152  54611                    CBB5     SA6    A1+B1       BSIL(2) = LIM                               GPO      1573
                     7170000004                   SX7    4                                                       GPO      1574
                               66500              SB5    B0          J = 0                                       GPO      1575
          1153  5170000000 X                      SA7    L.TXT       L.TXT = 4                                   GPO      1576
                          64600                   SB6    A0          I = BSIL                                    GPO      1577
                               63760              SB7    X6                                                      GPO      1578
                                                                                                                 GPO      1579
                                        *         COUNT NUMBER OF NON-EMPTY BLOCKS IN *EBB*                      GPO      1580
                                                                                                                 GPO      1581
          1154  56536                    CBB6     SA5    B3+B6       BAW = BST(I)                                GPO      1582
                     6166000002                   SB6    B6+2        I = I + 2                                   GPO      1583
                               20552              LX5    -BA.LENP                                                GPO      1584
          1155  6225777767                        SB2    X5-8                                                    GPO      1585
                          0602001157 +            LE     B2,CBB7     IF LEN[BAW] @ 8                             GPO      1586
                                                                                                                 GPO      1587
          1156  0550001162 +                      NZ     B5,CBB8     IF J " 0      */ MORE THAN 1 NON-EMPTY BLOC FCC0643     9
                          6156777775              SB5    B6-2        J = I - 2     */ BST INDX OF FIRST          GPO      1589
                                                                                                                 GPO      1590
          1157  0767001154 +             CBB7     LT     B6,B7,CBB6  IF I < BSIL(2)                              GPO      1591
                                                                                                                 GPO      1592
                          0450001220 +            ZR     B5,CBB15    IF J = 0      */ NO NON-EMPTY BLOCKS        GPO      1593
                                                                                                                 GPO      1594
          1160  7165000000                        SX6    B5+         BSI = J                                     GPO      1595
                          5160001222 +            SA6    BSIL        BSIL = J                                    GPO      1596
          1161  5160000032 +                      SA6    BSI                                                     GPO      1597
                          0400001204 +            EQ     CBB10                                                   FCC0643    10
                                                                                                                 FCC0643    11
                                        *         FORM AN EXTENDED BASIC BLOCK ( *EBB* )                         FCC0643    12
                                                                                                                 FCC0643    13
          1162  5150000000 X             CBB8     SA5    O.BST                                                   FCC0643    14
                          5140000032 +            SA4    BSI                                                     GPO      1616
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    50
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
          1163  63550                             SB5    X5                                                      GPO      1617
                     53145                        SA1    B5+X4       BAW = BST(BSI)                              GPO      1618
                          20152                   LX1    -BA.LENP                                                GPO      1619
          1164  6221777767                        SB2    X1-8                                                    GPO      1620
                          0602001173 +            LE     B2,CBB9     IF LEN[BAW] @ 8  */ EMPTY BLOCK             FCC0643    15
                                                                                                                 GPO      1622
          1165  0100000000 X                      CALL   RTB#        READ BLOCK IN                               CCGNC     624
          1166  5120000027 +                      SA2    O.SEQ       T = [O.SEQ]                                 GPO      1624
                          6120000002              SB2    OC.EOS                                                  GPO      1625
          1167  5142000000 X                      SA4    =XF.RDT+B2                                              GPO      1626
                          53320                   SA3    X2                                                      GPO      1628
                               27723              PX7    B2,X3       OC[T] = OC.EOQ                              GPO      1629
          1170  54730                             SA7    A3                                                      GPO      1630
                     43600                        MX6    0                                                       GPO      1631
                          10744                   BX7    X4                                                      GPO      1632
          1171  5077000002                        SA7    A7+2        [T+2] = RDT(OC.EOS)                         GPO      1633
                          0100004321 +            CALL   MPB ( 0 )   MERGE BLOCKS                                FCC0643    16
                                                                                                                 GPO      1635
          1172  0100000000 X                      CALL   RBS#        RELEASE THE BLOCK                           CCGNC     625
          1173  5110000032 +             CBB9     SA1    BSI                                                     FCC0643    17
                          5120001223 +            SA2    BSIL+1                                                  GPO      1638
          1174  7261000002                        SX6    X1+2        BSI = BSI + 2                               GPO      1639
                          37762                   IX7    X6-X2                                                   GPO      1640
                               54610              SA6    A1                                                      GPO      1641
          1175  0337001162 +                      MI     X7,CBB8     IF BSI < BSIL(2)                            FCC0643    18
                                                                                                                 GPO      1643
                          5110000000 X            SA1    O.TXT                                                   GPO      1644
          1176  53210                             SA2    X1          T = [O.TXT]                                 GPO      1645
                     27712                        PX7    B1,X2       OC[T] = OC.BOS                              GPO      1646
                          5072000000              SA7    A2+                                                     GPO      1647
          1177  5110001222 +                      SA1    BSIL                                                    FCC0643    19
                          43600                   MX6    0                                                       FCC0643    20
                               10711              BX7    X1          BSI = BSIL(1)                               FCC0643    21
          1200  5170000032 +                      SA7    BSI                                                     FCC0643    22
                          0100000000 X            CALL   SQZB#       SQUEEZE THE EXTENDED BLOCK                  CCGNC     626
          1201  5110000013 C                      SA1    EMF                                                     FCC0643    24
                          5221777776 X            SA2    =XESRA-1+X1                                             FCC0643    25
          1202  53320                             SA3    X2                                                      FCC0643    26
                     0303001214 +                 ZR     X3,CBB13    IF [ESRA(EMF)] = 0  */ NO FP OR L2 IN PROG  FCC0643    27
          1203  0100000066 +                      CALL   WTB         MOVE EBB FROM *TXT* TO *BLK*                FCC0643    28
                                                                                                                 FCC0643    29
                                        *         EXPAND SPECIAL MEMORY REFS AND MERGE/SQZ BLOCK                 FCC0643    30
                                                                                                                 FCC0643    31
          1204  0100000000 X             CBB10    CALL   RTB#        READ BLOCK IN                               CCGNC     627
                                                  IFEQ   HC.ID,2,1         FTN ONLY                              CCG29       7
          1205  0100001242 +                      CALL   SLC         SUBSTITUTE LOCAL COPIES                     CCG23       1
          1206  5150000013 C                      SA5    EMF                                                     FCC0643    33
                          43601                   MX6    1                                                       FCC0643    34
          1207  0100000000 X                      CALL   ESR#        ESR( EMF , 1S59 )  */ EXPAND SPECIAL REFS   CCGNC     628
          1210  5110000000 X                      SA1    L.MLT                                                   FCC0643    36
                          0301001213 +            ZR     X1,CBB11    IF L.MLT = 0  */ NO MODS TO THIS BLOCK      FCC0643    37
          1211  76610                             SX6    B1                                                      FCC0643    38
                     0100004321 +                 CALL   MPB ( 1 )   MERGE MODS AND SQUEEZE THE BLOCK            FCC0643    39
          1212  0400001214 +                      EQ     CBB13                                                   FCC0643    40
                                                                                                                 FCC0643    41
          1213  0100004431 +             CBB11    CALL   MBT         MOVE BLOCK TO *TXT*                         FCC0643    42
                                                                                                                 GPO      1651
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    51
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             CBB                 CODE
  
          1214  76610                    CBB13    SX6    B1                                                      GPO      1652
                     0100000000 X                 CALL   RIO#        REORDER THE INSTRUCTIONS                    CCGNC     629
          1215  5120000034 C                      SA2    MAXW                                                    GPO      1654
                          5140000035 C            SA4    N.EBB                                                   FCC0643    43
          1216  37326                             IX3    X2-X6                                                   GPO      1656
                     0323001217 +                 PL     X3,CBB14    MAXW = MAX( MAXW , SIO.MAX )                GPO      1657
                               54620              SA6    A2                                                      GPO      1658
          1217  73641                    CBB14    SX6    X4+B1       N.EBB = N.EBB + 1                           FCC0643    44
                     54640                        SA6    A4                                                      FCC0643    45
                          0100000066 +            CALL   WTB         WRITE BLOCK BACK TO *BLK*                   GPO      1664
                                                                                                                 GPO      1665
          1220  5150001223 +             CBB15    SA5    BSIL+1                                                  GPO      1666
                          10755                   BX7    X5          BSIL(1) = BSIL(2)                           GPO      1667
                               55751              SA7    A5-B1                                                   GPO      1668
          1221  0400001124 +                      EQ     CBB1                                                    GPO      1669
                                                                                                                 GPO      1670
          1222                     2     BSIL     BSS    2           *BST* LIMITS                                GPO      1671
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    52
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             ATT                 CODE
  
                                        **        ATT - ADJUST *TET* TABLE FOR *GRA* AND *BDT*.  CLEAR *REG* FIE FCC0514    32
                                        *         FIELD, UPDATE INFO OF EQUIVALENCED ENTRIES.                    FCC0514    33
                                                                                                                 FCC0514    34
          1224  0200401224 +             ATT      ROUTINE                                                        FCC0514    35
          1225  5120000014 C                      SA2    ITL                                                     FCC0514    36
                          5130000014 +            SA3    N.GT                                                    FCC0514    37
          1226  5110000000 X                      SA1    O.TET                                                   FCC0514    38
                          63220                   SB2    X2          I = ITL                                     FCC0514    39
                               63330              SB3    X3          L = N.GT                                    FCC0514    40
          1227  0423001233 +                      EQ     B2,B3,ATT3  IF ITL = N.GT */ NO TET"S CREATED           FCC0514    41
                                                                                                                 FCC0514    42
                                        *         CLEAR *REG* FIELD OF *TET*"S CREATED IN THIS LOOP FOR *GRA*.   FCC0514    43
                                                                                                                 FCC0514    44
                          43052                   MX0    -T.REGL                                                 FCC0514    45
                               20022              LX0    T.REGP                                                  FCC0514    46
          1230  43473                             MX4    -1                                                      CCGA049    13
                     20470                        LX4    T.CALP                          */ SEE STS IN SQZ       CCGA049    14
                          11004                   BX0    X0*X4                           */ UNLOCK CA FIELD      CCGA049    15
          1231  53212                    ATT2     SA2    X1+B2                                                   FCC0514    47
                     11602                        BX6    X0*X2       REG[TET(I)] = 0                             FCC0514    48
                          66221                   SB2    B2+B1       I = I + 1                                   FCC0514    49
                               54620              SA6    A2                                                      FCC0514    50
          1232  0723001231 +                      LT     B2,B3,ATT2  IF I < L                                    FCC0514    51
                                                                                                                 FCC0514    52
          1233  5140000000 X             ATT3     SA4    L.TET                                                   FCC0514    53
                          63510                   SB5    X1                                                      FCC0514    54
                               63440              SB4    X4          I = L.TET                                   FCC0514    55
          1234  0443001224 +                      EQ     B4,B3,ATT   IF L.TET = N.GT  */ NO TST SQUEEZING        FCC0514    56
                                                                                                                 FCC0514    57
                                        *         MOVE THE *CA* FIELDS OF THE SQUEEZED ENTRIES TO TET(CA)        CCG0127     9
                                                                                                                 FCC0514    59
                          43051                   MX0    -T.IPFL                                                 FCC0514    60
                               76630              SX6    B3          L.TET = N.GT                                FCC0514    61
          1235  20044                             LX0    T.IPFP                                                  FCC0514    62
                     43123                        MX1    1+T.CAL                                                 FCC0514    63
                          54640                   SA6    A4                                                      FCC0514    64
                               20122              LX1    T.CAL                                                   FCC0514    65
                                                                                                                 FCC0514    66
          1236  67441                    ATT4     SB4    B4-B1       I = I - 1                                   FCC0514    67
                     56254                        SA2    B5+B4       TI = TET(I)                                 FCC0514    68
                          11712                   BX7    X1*X2       C = CA[TI]                                  FCC0514    69
                               53325              SA3    B5+X2                                                   FCC0514    70
          1237  15430                             BX4    -X0*X3      IPI = IPF[TET(C)]                           FCC0514    71
                     20301                        LX3    59-T.EQVP                                               CCG0127    10
                          0333001241 +            MI     X3,ATT5     IF EQV[TET(C)]  */ CA .NE. C                CCG0127    11
          1240  36647                             IX6    X4+X7       TET(C) = TETW(INV[TI],IPI,0,C)              FCC0514    72
                     5063000000                   SA6    A3+                                                     FCC0514    73
          1241  0734001236 +             ATT5     GT     B4,B3,ATT4  IF I > L                                    CCG0127    12
                                                                                                                 FCC0514    75
                          0400001224 +            EQ     ATT                                                     FCC0514    76
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    53
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             SLC                 CODE
  
                                         .FPLC    IFEQ   HC.ID,2                                                 CCG29       8
                                                                                                                 CCG29       9
                                        **        SLC - SUBSTITUTE LOCAL COPIES OF FORMAL PARAMETERS             CCG23       3
                                        *                                                                        CCG23       4
                                        *         ENTRY  CURRENT SEQUENCE IN *BLK*, ESR NOT YET CALLED           CCG23       5
                                                                                                                 CCG23       6
          1242  0200401242 +             SLC      ROUTINE                                                        CCG23       7
          1243  5110000000 X                      SA1    HO$OPT                                                  CCG23       8
                          0321001242 +            PL     X1,SLC      IF HO$OPT " 2                               CCG23       9
          1244  5120000000 X                      SA2    =XL$FPI                                                 CCG23      10
                          0302001242 +            ZR     X2,SLC      IF L$FPI = 0  */ NO F.P. S                  CCG23      11
          1245  5140000027 +                      SA4    O.SEQ                                                   CCG23      12
                          5130000047 +            SA3    HBI                                                     CCG23      13
          1246  7100600001                        SX0    RN.MASK                                                 CCG23      14
                          6140000004              SB4    4                                                       CCG23      15
          1247  6150000052                        SB5    OC.STT                                                  CCG23      16
                          63630                   SB6    X3                (B6) = HBI  */ =0 IF OUTSIDE OF LPS   CCG23      17
                               53540              SA5    X4          R1 = O.TXT                                  CCG23      18
          1250  0400001255 +                      EQ     SLC3                                                    CCG23      19
                                                                                                                 CCG23      20
                                        *         IF LOOP MODE THEN ONLY CALL *MPR* FOR *LCM* F.P. REFS          CCG23      21
                                                                                                                 CCG23      22
          1251  0425001255 +             SLC1     EQ     B2,B5,SLC3  IF OC[R1] = OC.STT                          CCG23      23
                          0460001254 +            ZR     B6,SLC2     IF HBI = 0    */ OUTSIDE OF ALL LOOPS       CCG23      24
          1252  20455                             LX4    D.FPP-D.L2P                                             CCG23      25
                     0324001255 +                 PL     X4,SLC3     IF ^L2[DI]                                  CCG23      26
                               20471              LX4    D.L2P-D.PSP                                             CCGA042     6
          1253  0334001255 +                      MI     X4,SLC3     IF PS[DI]                                   CCGA042     7
                                                                                                                 CCG23      27
          1254  76760                    SLC2     SX7    B6                                                      CCG23      28
                     0100001260 +                 CALL   MPR#        CALL MPR( R1 , HBI )                        CCG23      29
                                                                                                                 CCG23      30
          1255  54554                    SLC3     SA5    A5+B4       R1 = R1 + 4                                 CCG23      31
                     5045000002                   SA4    A5+2        DI = R1 + 2                                 CCG23      32
                               26625              UX6    B2,X5                                                   CCG23      33
          1256  20446                             LX4    59-D.FPP                                                CCG23      34
                     0334001251 +                 MI     X4,SLC1     IF FP[DI]                                   CCG23      35
          1257  0520001255 +                      NZ     B2,SLC3     IF OC[R1] " 0   */ IF NOT END OF *TXT*      CCG23      36
                                                                                                                 CCG23      37
                          0400001242 +            EQ     SLC                                                     CCG23      38
  
  
  
                                        **        MPR - MODIFY PARAMETER REFERENCE                               CCG23      40
                                        *                                                                        CCG23      41
                                        *                CHANGE LD/ST TO A F.P. TO A REFERENCE TO LC.+CA         CCG23      42
                                        *         DONE FOR SCALAR VARIABLES THAT ARE NOT TYPE CHAR               CCG23      43
                                        *                                                                        CCG23      44
                                        *         ENTRY  (A5,X5) = R1, [R1]                                      CCG23      45
                                        *                (X7) = FLAG, =0 IF OUTSIDE OF ALL LOOPS                 CCG23      46
                                                                                                                 CCG23      47
          1260  0200401260 +             MPR      ROUTINE                                                        CCG23      48
          1261  54451                             SA4    A5+B1       R2 = R1 + 1                                 CCG23      49
                     63340                        SB3    X4                                                      CCG23      50
                          20430                   LX4    -IH.RFP                                                 CCG23      51
                               15640              BX6    "RN"X4                                                  CCG23      52
          1262  0316001260 +                      NZ     X6,MPR      IF RF[R2] " 0  */ INDEXED REFERENCE         CCG23      53
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    54
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             MPR                 CODE
  
                          5110000000 X            SA1    O.SYM                                                   CCG23      54
          1263  20444                             LX4    IH.RFP                                                  CCG23      55
                     66233                        SB2    B3+B3                                                   CCG23      56
                          63212                   SB2    B2+X1                                                   CCG23      57
                               66331              SB3    B3+B1                                                   CCG23      58
          1264  56123                             SA1    B2+B3       WORDB = SYM(3*IH[R2]+1)                     CCG23      59
                     43271                        MX2    -WB.MODEL                                               CCG23      60
                                                  LX1    -WB.MODEP                                               CCG23      61
                          15312                   BX3    -X2*X1                                                  CCG23      62
          1265  7263777771                        SX6    X3-M.CHAR                                               CCG23      63
                          0306001260 +            ZR     X6,MPR      IF MODE[WORDB] = M.CHAR                     CCG23      64
          1266  7233000004                        SX3    X3-M.DBL+8                                              CCG23      65
                          21303                   AX3    3                                                       CCG23      66
                               63331              SB3    X3+B1       SDPF = (MODE-M.DBL+8)/8 + 1                 CCG23      67
          1267  20161                             LX1    59-WB.ARYP+WB.MODEP                                     CCG23      68
                     0331001260 +                 MI     X1,MPR      IF ARY[WORDB]   */ IF NOT A SCALAR          CCG23      69
                               20164              LX1    WB.ARYP-WB.LOCFP                                        CCG23      70
          1270  43263                             MX2    -WB.FPOL                                                CCG23      71
                     0331001260 +                 MI     X1,MPR      IF LOCF[WORDB]  */ REFED IN LOCF ARG LIST   CCG23      72
          1271  5130000000 X                      SA3    =XO$FPI                                                 CCG23      73
                          20156                   LX1    1+WB.LOCFP-WB.FPOP                                      CCG23      74
                               15612              BX6    -X2*X1                                                  CCG23      75
          1272  36636                             IX6    X3+X6                                                   CCG23      76
                     5226777776                   SA2    X6-1        FPW = FPI(FPO[WORDB])                       CCG23      77
                               10322              BX3    X2                                                      CCG23      78
          1273  20301                             LX3    59-FP.LCP                                               CCG23      79
                     0333001303 +                 MI     X3,MPR4     IF LC[FPW]    */ IF A LOCAL COPY EXISTS     CCG23      80
                                                                                                                 CCG23      81
          1274  0317001276 +                      NZ     X7,MPR1     IF FLAG " 0   */ INSIDE A LOOP              CCG23      82
                          54311                   SA3    A1+B1       WORDC = WORDB + 1                           CCG23      83
          1275  7273777774                        SX7    X3-3                                                    CCG23      84
                          0337001260 +            MI     X7,MPR      IF N.REFS[WORDC] < 3                        CCG23      85
                                                                                                                 CCG23      86
          1276  5130000000 X             MPR1     SA3    =XN$SEP                                                 CCG23      87
                                                  SKIP   1           REMOVE WHEN FTN 5 IS ABLE TO HANDLE DEF CAS CCG23      88
                                                  ZR     X3,MPR2     IF N$SEP = 0  */ NO SECONDARY ENTRY PTS     CCG23      89
                          20131                   LX1    WB.FPOP-1-WB.DEFP                                       CCG23      90
          1277  0331001260 +                      MI     X1,MPR      IF DEF[WORDB] */ CANT HANDLE DEF AND ENT PT CCG23      91
                                                                                                                 CCG23      92
                                        *         ASSIGN A NEW LC.                                               CCG23      93
                                                                                                                 CCG23      94
          1300  5130000000 X             MPR2     SA3    =XN$LC                                                  CCG23      95
                          76710                   SX7    B1                                                      CCG23      96
                               20772              LX7    FP.LCP                                                  CCG23      97
          1301  20362                             LX3    FP.CAP      CA[FPW] = N$LC                              CCG23      98
                     12737                        BX7    X3+X7       LC[FPW] = 1                                 CCG23      99
                          20312                   LX3    -FP.CAP                                                 CCG23     100
                               12227              BX2    X2+X7                                                   CCG23     101
          1302  10622                             BX6    X2                                                      CCG23     102
                     54620                        SA6    A2                                                      CCG23     103
                          73733                   SX7    X3+B3       N$LC = N$LC + SDPF                          CCG23     104
                               54730              SA7    A3                                                      CCG23     105
                                                                                                                 CCG23     106
                                        *         MODIFY THE MEMORY REFERENCE                                    CCG23     107
                                                                                                                 CCG23     108
          1303  20212                    MPR4     LX2    -FP.CAP                                                 CCG23     109
                     43366                        MX3    -FP.CAL                                                 CCGA043     6
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    55
        CBB - COMBINE BASIC BLOCKS TO FORM EXTENDED BLOCK             MPR                 CODE
  
                          15223                   BX2    -X3*X2      EXTRACT FP.CA                               CCGA043     7
                               20222              LX2    IH.CAP                                                  CCG23     111
          1304  36424                             IX4    X2+X4       CA[R2] = CA[R2] + CA[FPW]                   CCG23     112
                     5130000000 X                 SA3    =XS$LC                                                  CCG23     113
                               43152              MX1    -IH.IHL                                                 CCG23     114
          1305  11414                             BX4    X1*X4                                                   CCG23     115
                     12634                        BX6    X3+X4       IH[R2] = S$LC                               CCG23     116
                          54640                   SA6    A4                                                      CCG23     117
                               54241              SA2    A4+B1       DI = R2 + 1                                 CCG23     118
          1306  5130001310 +                      SA3    MPRA                                                    CCG23     119
                          15623                   BX6    -X3*X2      (FP,L2,XMT)[DI] = 0                         CCGA088     6
                               54620              SA6    A2                                                      CCG23     121
          1307  0400001260 +                      EQ     MPR                                                     CCG23     122
                                                                                                                 CCG23     123
          1310                           MPRA     BFMW   D,(L2,XMT,FP)                                           CCGA088     7
                                                                                                                 CCG29      10
                                         .FPLC    ELSE                                                           CCG30       2
                                         MPR      ROUTINE                                                        CCG30       3
                                                  EQ     MPR                                                     CCG30       4
                                                                                                                 CCG30       5
                                         .FPLC    ENDIF                                                          CCG29      11
  
  
  
                                        **        CRB - CLEAR REGION BITS IN *UDT*                               GPO      1673
                                        *                                                                        GPO      1674
                                        *         ENTRY  (X5) = 0 IF N.BLK IN REGION = 1                         GPO      1675
                                                                                                                 GPO      1676
          1311  5110000000 C             CRB2     SA1    O.UDT                                                   GPO      1677
                          5120000001 C            SA2    N.VAR                                                   GPO      1678
          1312  5241000004                        SA4    X1+4        UI = O.UDT + 4                              GPO      1679
                          6242777775              SB4    X2-2        I = N.VAR - 2                               GPO      1680
                                                                                                                 GPO      1681
          1313  15640                    CRB3     BX6    -X0*X4      RBITS[UI] = 0                               GPO      1682
                     54640                        SA6    A4                                                      GPO      1683
                          6144777776              SB4    B4-1        I = I - 1                                   GPO      1684
          1314  5044000002                        SA4    A4+2        UI = UI + 2                                 GPO      1685
                          0704001313 +            GT     B4,CRB3     IF I > 0                                    GPO      1686
                                                                                                                 GPO      1687
          1315  0200401315 +             CRB      ROUTINE                                                        GPO      1688
          1316  43020                             MX0    -UD.RFP                                                 FCC1504X    9
                     5120000053 +                 SA2    UXR+1                                                   GPO      1690
          1317  0315001311 +                      NZ     X5,CRB2     IF N.BLK > 1                                GPO      1691
                          0312001311 +            NZ     X2,CRB2     IF UXR(2) " 0 */ EXT REF                    GPO      1692
                                                                                                                 GPO      1693
          1320  5110000002 C                      SA1    O.MVL                                                   GPO      1694
                          5251000001              SA5    X1+1        MI = [O.MVL] + 1                            GPO      1695
          1321  0305001315 +                      ZR     X5,CRB      IF [MI] = 0                                 GPO      1696
                                                                                                                 GPO      1697
          1322  53450                    CRB1     SA4    X5          UI = [MI]                                   GPO      1698
                     54551                        SA5    A5+B1       MI = MI + 1                                 GPO      1699
                          15640                   BX6    -X0*X4      RBITS[UI] = 0                               GPO      1700
                               54640              SA6    A4                                                      GPO      1701
          1323  0315001322 +                      NZ     X5,CRB1     IF [MI] " 0                                 GPO      1702
                                                                                                                 GPO      1703
                          0400001315 +            EQ     CRB                                                     GPO      1704
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    56
        EBV - EXPAND BIT VECTOR TO *UDI*                              EBV                 CODE
  
                                        **        EBV - EXPAND BIT VECTOR TO SET BITS IN *UDI*                   GPO      1706
                                        *                                                                        GPO      1707
                                        *         ENTRY  (X4) = BVA , BIT VECTOR ADDRESS                         GPO      1708
                                        *                (X5) = BITS  , TO BE SET                                GPO      1709
                                                                                                                 GPO      1710
          1324  0200401324 +             EBV      ROUTINE                                                        GPO      1711
          1325  5244777776                        SA4    X4-1        BI = BVA - 1                                GPO      1712
                          5110000002 C            SA1    BVL                                                     GPO      1713
          1326  5120000000 C                      SA2    O.UDT                                                   GPO      1714
                          10055                   BX0    X5                                                      GPO      1715
                               63611              SB6    X1+B1       L = BVL + 1                                 GPO      1716
          1327  6272777613                        SB7    X2+4-120    U0 = O.UDT + 4 - 120                        GPO      1717
                                                                                                                 GPO      1718
          1330  67661                    EBV1     SB6    B6-B1       L = L - 1                                   GPO      1719
                     54441                        SA4    A4+B1       BI = BI + 1;  BV = [BI]                     GPO      1720
                          6177000170              SB7    B7+120      U0 = U0 + 120                               GPO      1721
          1331  0760001324 +                      MI     B6,EBV      IF L < 0      */ END OF VECTOR              GPO      1722
                          0314001333 +            NZ     X4,EBV2     IF BV " 0                                   GPO      1723
          1332  0324001330 +                      PL     X4,EBV1     IF BV = +0                                  GPO      1724
                                                                                                                 GPO      1725
          1333  43114                    EBV2     MX1    12                                                      GPO      1726
                     11514                        BX5    X1*X4       TB = MASK(12) & BV                          GPO      1727
                          0305001341 +            ZR     X5,EBV4     IF TB = 0                                   GPO      1728
                                                                                                                 GPO      1729
          1334  20560                             LX5    -12                                                     GPO      1730
                     43715                        MX7    13                        */ EXPAND UPPER 12 BITS       GPO      1731
                          6130000073              SB3    59                                                      GPO      1732
          1335  27505                    EBV3     PX5    X5                                                      GPO      1733
                     24625                        NX6    B2,X5       J = NORMC( PACK(0,TB) )                     GPO      1734
                          67432                   SB4    B3-B2                                                   GPO      1735
                               23227              AX2    B2,X7                                                   GPO      1736
          1336  66544                             SB5    B4+B4       K = 2*(59-J)                                GPO      1737
                     15552                        BX5    -X2*X5      TB = ^MASK(J+13) & TB                       GPO      1738
                          56375                   SA3    B7+B5       UI = U0 + K                                 GPO      1739
                               12603              BX6    X0+X3       [UI] = BITS ! [UI]                          GPO      1740
          1337  54630                             SA6    A3                                                      GPO      1741
                     0315001335 +                 NZ     X5,EBV3     IF TB " 0                                   GPO      1742
                                                                                                                 GPO      1743
                               15441              BX4    -X1*X4      BV = ^MASK(12) & BV                         GPO      1744
          1340  0304001330 +                      ZR     X4,EBV1     IF BV = 0                                   GPO      1745
                                                                                                                 GPO      1746
          1341  76110                    EBV4     SX1    B1                                                      GPO      1747
                     27504                        PX5    X4                        */ EXPAND LOWER 48 BITS       GPO      1748
                          6130000057              SB3    47                                                      GPO      1749
                                                                                                                 GPO      1750
          1342  24625                    EBV5     NX6    B2,X5                                                   GPO      1751
                     67432                        SB4    B3-B2       J = 47 - NORMC( PACK(0,BV) )                GPO      1752
                          66544                   SB5    B4+B4                                                   GPO      1753
                               22241              LX2    B4,X1                                                   GPO      1754
          1343  56375                             SA3    B7+B5       UI = U0 + 2*J                               GPO      1755
                     37442                        IX4    X4-X2       BV = BV - SHIFT(1,J)                        GPO      1756
                          12603                   BX6    X0+X3       [UI] = BITS ! [UI]                          GPO      1757
                               27504              PX5    X4                                                      GPO      1758
          1344  54630                             SA6    A3                                                      GPO      1759
                     0314001342 +                 NZ     X4,EBV5     IF BV " 0                                   GPO      1760
                                                                                                                 GPO      1761
          1345  0400001330 +                      EQ     EBV1                                                    GPO      1762
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    57
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                        **        FUD - FORM USE/DEF BIT VECTOR INFORMATION FOR A BLOCK          GPO      1764
                                        *         FUD OPERATES IN TWO MODES, BUILD BIT VECTORS MODE, AND         GPO      1765
                                        *         USE/DEF ONLY MODE.  COLLECTION OF USE/DEF INFORMATION FOR      GPO      1766
                                        *         SCALARS WHICH ARE NOT CLASS MEMBERS IS STRAIGHTFOWARD, AND     GPO      1767
                                        *         POSES NO PROBLEMS.  THE *CM* ( CLASS MEMBER ) CASE POSES MORE  GPO      1768
                                        *         PROBLEMS SINCE WE DONT KNOW THE SET OF VALUES THAT A USE/DEF   GPO      1769
                                        *         OF A *CR* ACCESSES OR CHANGES.  LACKING THIS INFORMATION, WE   GPO      1770
                                        *         MAKE THE FOLLOWING ASSUMPTIONS, WHICH ENLARGE THE LIVE EXIT    GPO      1771
                                        *         AND *UBD* BIT VECTORS.                                         GPO      1772
                                        *         A) A *CR* USE, USES EVERY MEMBER ( *CM* ) OF THE CLASS.        GPO      1773
                                        *         B) A *CR* DEF DOESNT DEFINE ANY *CM* THAT WAS NOT EXPLICITELY  GPO      1774
                                        *         DEFINED, HENCE WE SHOW A USE AT THE POINTS WERE A *CR* IS      GPO      1775
                                        *         DEFINED BEFORE USEAGE.                                         GPO      1776
                                        *                                                                        GPO      1777
                                        *         ENTRY  (X5) = [O.SEQ]                                          GPO      1778
                                        *         (BBV) = 0 IF BUILDING BIT VECTORS                              GPO      1779
                                        *                                                                        GPO      1780
                                        *         EXIT   DEFR, ^RD, IST, STC FIELDS SET IN *UDT*                 GPO      1781
                                        *         DEF, UBD AND USE BIT VECTORS SETUP IN *BVT* ( BBV = 0 )        GPO      1782
                                                                                                                 GPO      1783
                                  17     .BCM     EQU    60-UD.STCP                                              GPO      1784
          1346  77777000000000000000     BCM      VFD    .BCM/-0,*P/0  BLOCK CLEAR MASK                          GPO      1785
                                                                                                                 GPO      1786
          1347                           RDB      BFMW   UD,(DEFR,^RD,SMS) REGION DEF BITS FOR NO CODE MOTION    GPO      1787
          1350                           FUDA     BFMW   UD,(DEFR,DEF,^RD,IST)                                   GPO      1788
          1351                           FUDB     BFMW   UD,(DEFR,DEF,USE,^RD,IST)                               GPO      1789
          1352                           FUDC     BFMW   UD,(DEF,CR)                                             GPO      1790
          1353                           FUDD     BFMW   UD,(DEF,CM)                                             GPO      1791
          1354                           FUDE     BFMW   UD,(DEF,^RD,IST)                                        FCC1040A    1
                                                                                                                 GPO      1792
                                        *         MCM - MARK CLASS MEMBERS TO SHOW A USE OF THEM                 GPO      1793
                                                                                                                 GPO      1794
                                         MCM      MACRO  NEXT                                                    GPO      1795
                                                  LOCAL  MCM1,MCM2                                               GPO      1796
                                                  SB3    A0                                                      GPO      1797
                                                  LX6    59-UD.CRP                                               GPO      1798
                                                  NZ     B3,NEXT     IF BBV " 0                                  GPO      1799
                                                  PL     X6,NEXT     IF ^CR[UI]                                  GPO      1800
                                                  LX6    1+UD.CRP-UD.ECLP                                        GPO      1801
                                                  SB3    X6          K = ECL[UI]                                 GPO      1802
                                                  ZR     B3,NEXT     IF K = 0      */ NO CLASS MEMBERS           GPO      1803
                                        *                                                                        GPO      1804
                                                  SX4    B1                                                      GPO      1805
                                                  LX4    UD.USEP                                                 GPO      1806
                                                  MX2    -UD.MVL                                                 GPO      1807
                                                  LX2    UD.MVP                                                  GPO      1808
                                        *                                                                        GPO      1809
                                         MCM1     SA1    B5+B3       UI = UL = UDT(K)                            GPO      1810
                                                  BX6    X1+X4                                                   GPO      1811
                                                  SA6    A1          USE[UI] = 1                                 GPO      1812
                                                  BX7    -X2*X1                                                  GPO      1813
                                                  NZ     X7,MCM2     IF MV[UL]                                   GPO      1814
                                                  SX7    A1                                                      GPO      1815
                                                  SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      1816
                                         MCM2     LX1    -UD.ECLP                                                GPO      1817
                                                  SB3    X1          K = ECL[UI]                                 GPO      1818
                                                  NZ     B3,MCM1     IF K " 0                                    GPO      1819
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    58
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                  ENDM                                                           GPO      1820
  
  
  
          1355  0200401355 +             FUD      ROUTINE                                                        GPO      1822
          1356  5110000000 C                      SA1    O.UDT                                                   GPO      1823
                          53251                   SA2    X5+B1       R2 = O.SEQ + 1                              GPO      1824
                               66211              SB2    B1+B1                                                   GPO      1825
          1357  5130000045 +                      SA3    BBV                                                     GPO      1826
                                                  LX2    -R2.TXTLP                                               GPO      1827
                          63510                   SB5    X1                                                      GPO      1828
                               66600              SB6    B0          CDEF = 0                                    GPO      1829
          1360  43071                             MX0    -D.LSJL                                                 GPO      1830
                     36652                        IX6    X5+X2                                                   GPO      1831
                          5203000000              SA0    X3+                       (A0) = BBV                    GPO      1832
          1361  5130000002 C                      SA3    O.MVL                                                   GPO      1833
                          63760                   SB7    X6          O.IOL = O.SEQ + TXTL[R2]  */ I/O LIST INFO  GPO      1834
                               53452              SA4    X5+B2       DI = TBA + 2                                GPO      1835
          1362  43700                             MX7    0                                                       GPO      1836
                     20041                        LX0    D.LSJP                                                  GPO      1837
                          5170000052 +            SA7    UXR         UXR = 0                                     GPO      1838
          1363  53730                             SA7    X3          MI = [O.MVL];  [MI] = 0 */ MARKED VAR LIST  GPO      1839
                     0400001366 +                 EQ     FUD2                                                    GPO      1840
                                                                                                                 GPO      1841
                                        *         SCAN 1 - SCAN BLOCK FOR LD/ST/RJX"S THAT ARE CHAINED TO *UDI*  GPO      1842
                                        *         AND SET BITS IN *UDT*. FORM LIST OF MARKED VARIABLES.          GPO      1843
                                                                                                                 GPO      1844
                                        *         CHECK *UDT* ENTRY AND ADD TO MARKED LIST IF FIRST OCCURANCE    GPO      1845
                                                                                                                 GPO      1846
          1364  20345                    FUD1     LX3    D.LSJP-UD.MVP                                           GPO      1847
                     15430                        BX4    -X0*X3                                                  GPO      1848
                          0314001366 +            NZ     X4,FUD2     IF MV[UL]     */ IF ON MARKED LIST          GPO      1849
          1365  74730                             SX7    A3                                                      GPO      1850
                     5077000001                   SA7    A7+1        MI = MI + 1;  [MI] = UL  */ SAVE *UDI* ADDR GPO      1851
                                                                                                                 GPO      1852
          1366  54542                    FUD2     SA5    A4+B2       R1 = DI + 2                                 GPO      1853
                     54452                        SA4    A5+B2       DI = R1 + 2                                 GPO      1854
                          26635                   UX6    B3,X5                                                   GPO      1855
                               15740              BX7    -X0*X4                                                  GPO      1856
          1367  0430001477 +                      ZR     B3,FUD16    IF OC[R1] = 0 */ END OF BLOCK               GPO      1857
                          0307001366 +            ZR     X7,FUD2     IF ^LSJ[DI]                                 GPO      1858
                                                                                                                 GPO      1859
                                        *         PROCESS *LD*                                                   GPO      1860
                                                                                                                 GPO      1861
          1370  20730                             LX7    59-D.LDP                                                GPO      1862
                     0327001403 +                 PL     X7,FUD3     IF ^LD[DI]                                  GPO      1863
                               20536              LX5    -R1.INP                                                 GPO      1864
          1371  63350                             SB3    X5          I = IN[R1]                                  GPO      1865
                     0623001366 +                 LE     B3,B2,FUD2  IF I @ 2      */ ^ IN UDT ! LD ONLY         FCC1088    23
                               56353              SA3    B5+B3       UI = UL = O.UDT + I                         GPO      1867
          1372  20771                             LX7    1+UD.USEP                                               GPO      1868
                     12673                        BX6    X7+X3       USE[UI] = 1                                 GPO      1869
                          54630                   SA6    A3                                                      GPO      1870
                               11773              BX7    X7*X3                                                   GPO      1871
          1373  0317001366 +                      NZ     X7,FUD2     IF USE[UL]                                  GPO      1872
                                                                                                                 GPO      1873
                          64300                   MCM    FUD1        MARK CLASS REFS                             GPO      1874
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    59
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1402  0400001364 +                      EQ     FUD1                                                    GPO      1875
  
  
                                        *         PROCESS *ST*                                                   GPO      1877
                                                                                                                 GPO      1878
          1403  20701                    FUD3     LX7    D.LDP-D.STP                                             GPO      1879
                     0327001421 +                 PL     X7,FUD5     IF ^ST[DI]                                  GPO      1880
                               20536              LX5    -R1.INP                                                 GPO      1881
          1404  63350                             SB3    X5          I = IN[R1]                                  GPO      1882
                     0430001366 +                 ZR     B3,FUD2     IF I = 0                                    GPO      1883
                               56353              SA3    B5+B3       UI = UL = O.UDT + I                         GPO      1884
          1405  43102                             MX1    UD.DEFBL                                                GPO      1885
                                                  LX1    UD.DEFBL+UD.DEFBP                                       GPO      1886
                     12613                        BX6    X1+X3       DEFR[UI] = DEF[UI] = 1                      GPO      1887
                          76560                   SX5    B6                                                      GPO      1888
                               20756              LX7    1+UD.STCP                                               GPO      1889
          1406  36676                             IX6    X7+X6       STC[UI] = STC[UI] + 1                       GPO      1890
                     20352                        LX3    -UD.CBP                                                 GPO      1891
                          12553                   BX5    X5+X3       CDEF = CDEF ! CB[UI]                        GPO      1892
                               54630              SA6    A3                                                      GPO      1893
          1407  63650                             SB6    X5                                                      GPO      1894
                     20325                        LX3    UD.CBP+59-UD.USEP                                       GPO      1895
                          0333001366 +            MI     X3,FUD2     IF USE[UI]    */ USE BEFORE DEF             GPO      1896
          1410  20714                             LX7    UD.DBUP-UD.STCP                                         GPO      1897
                     12676                        BX6    X7+X6       DBU[UI] = 1                                 GPO      1898
                          20371                   LX3    1+UD.USEP                                               GPO      1899
                               54660              SA6    A6                                                      GPO      1900
          1411  64300                             MCM    FUD1        SHOW USES OF CLASS MEMBERS                  GPO      1901
          1420  0400001364 +                      EQ     FUD1                                                    GPO      1902
                                                                                                                 GPO      1903
                                        *         PROCESS *RJX* ( FUNCTION CALL )                                GPO      1904
                                                                                                                 GPO      1905
          1421  20401                    FUD5     LX4    59-D.TYP                                                GPO      1906
                     0324001366 +                 PL     X4,FUD2     IF TYPE[DI] " IV                            GPO      1907
                               55341              SA3    A4-B1       R2 = DI - 1                                 GPO      1908
          1422  20360                             LX3    -FI.INDXP                                               GPO      1909
                     0303001366 +                 ZR     X3,FUD2     IF [R2] = 0   */ *UJP* OR SUCH              GPO      1910
          1423  5110000015 C                      SA1    MRA                                                     GPO      1911
                          53237                   SA2    B7+X3       LI = O.IOL + INDX[R2] */ PARAM LIST ADDR    GPO      1912
                               26343              UX3    B4,X3       J = LEN[R2]   */ LIST LENGTH                CCG1       79
          1424  20352                             LX3    FI.INDXP-FI.REGPP                                       GPO      1913
                     43644                        MX6    -FI.REGPL                                               CCG1       80
                          15736                   BX7    -X6*X3                                                  CCG1       81
                               11671              BX6    X7*X1       MRA = MRA & REGP[R2]                        GPO      1915
          1425  54610                             SA6    A1                                                      CCG1       82
                     43766                        MX7    -FI.FTL                                                 CCG1       83
                          20344                   LX3    FI.REGPP-FI.FTP                                         CCG1       84
                               15737              BX7    -X7*X3                                                  GPO      1921
          1426  63370                             SB3    X7                                                      GPO      1922
                     5130000020 C                 SA3    XRF                                                     FCC1254    11
                               76610              SX6    B1                                                      FCC1254    12
          1427  36636                             IX6    X3+X6       XRF = XRF + 1 */ COUNT N.EXT REFS           FCC1254    13
                     54630                        SA6    A3                                                      FCC1254    14
                          0432001366 +            EQ     B3,B2,FUD2  IF FT[R2] = 2 */ *BEF*                      GPO      1925
          1430  0431001457 +                      EQ     B3,B1,FUD12 IF FT[R2] = 1 */ USER FUNCTION              GPO      1926
                                                                                                                 GPO      1927
                                        *         PROCESS I/O APLIST                                             GPO      1928
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    60
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                                                                                 GPO      1929
                          0604001366 +            LE     B4,FUD2     IF J @ 0                                    CCG1       85
          1431  20027                             LX0    UD.MVP-D.LSJP                                           GPO      1931
                                                                                                                 GPO      1932
          1432  53325                    FUD7     SA3    B5+X2       UI = O.UDT + [LI]                           GPO      1933
                                                  LX2    59-AP.IOP                                               GPO      1934
                     15630                        BX6    -X0*X3                                                  GPO      1935
                          6144777776              SB4    B4-1        J = J - 1                                   GPO      1936
          1433  0316001434 +                      NZ     X6,FUD8     IF MV[UI]                                   GPO      1937
                          74730                   SX7    A3                                                      GPO      1938
                               54771              SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      1939
                                                                                                                 GPO      1940
          1434  76510                    FUD8     SX5    B1                                                      GPO      1941
                     0332001436 +                 MI     X2,FUD9     IF IO[LI] " 0 */ AN INPUT OP                GPO      1942
                               20570              LX5    UD.USEP                                                 GPO      1943
          1435  12653                             BX6    X5+X3       USE[UI] = 1                                 GPO      1944
                     54630                        SA6    A3                                                      GPO      1945
                          0400001445 +            EQ     FUD11                                                   GPO      1946
                                                                                                                 GPO      1947
          1436  5110001350 +             FUD9     SA1    FUDA                                                    GPO      1948
                          12613                   BX6    X1+X3       (DEFR,DEF,^RD,IST)[UI] = 1                  GPO      1949
                               20303              LX3    59-UD.USEP                                              GPO      1950
          1437  0333001443 +                      MI     X3,FUD10    IF USE[UI]                                  GPO      1951
                          20201                   LX2    59-AP.USEP                                              FCC0789    21
          1440  0322001442 +                      PL     X2,FUD9A    IF ^USE[LI]   */ ^ USE FIRST IN LIST        FCC0789    22
                          20570                   LX5    UD.USEP                                                 FCC0789    23
                               12656              BX6    X5+X6       USE[UI] = 1                                 FCC0789    24
          1441  0400001443 +                      EQ     FUD10                                                   FCC0789    25
                                                                                                                 FCC0789    26
          1442  20571                    FUD9A    LX5    UD.DBUP     DBU[UI] = 1                                 FCC0789    27
                     12656                        BX6    X5+X6                                                   GPO      1953
          1443  76760                    FUD10    SX7    B6                                                      GPO      1954
                     20347                        LX3    1+UD.USEP-UD.CBP                                        GPO      1955
                          12473                   BX4    X7+X3       CDEF = CDEF ! CB[UI]                        GPO      1956
                               63640              SB6    X4                                                      GPO      1957
          1444  5063000000                        SA6    A3+                                                     GPO      1958
                          20322                   LX3    UD.CBP                                                  GPO      1959
                                                                                                                 GPO      1960
          1445  20303                    FUD11    LX3    59-UD.USEP                                              GPO      1961
                     0333001455 +                 MI     X3,FUD11A   IF USE[UI]    */ PREVIOUS USE               GPO      1962
                               64300              MCM    FUD11A      SHOW USES OF CLASS MEMBERS                  GPO      1963
                                                                                                                 GPO      1964
          1455  54221                    FUD11A   SA2    A2+B1       LI = LI + 1                                 GPO      1965
                     0540001432 +                 NZ     B4,FUD7     IF J " 0                                    GPO      1966
                                                                                                                 GPO      1967
                               20045              LX0    D.LSJP-UD.MVP                                           GPO      1968
          1456  0400001366 +                      EQ     FUD2                                                    GPO      1969
                                                                                                                 GPO      1970
                                        *         PROCESS USER FUNCTION                                          GPO      1971
                                                                                                                 GPO      1972
          1457  76610                    FUD12    SX6    B1                                                      FCC1254    15
                     5160000052 +                 SA6    UXR         UXR = 1       */ INDICATE COMMON VAR SPOIL  FCC1254    16
                               54661              SA6    A6+B1       UXR(2) = 1                                  FCC1254    17
          1460  0604001366 +                      LE     B4,FUD2     IF J @ 0      */ NO ARG LIST                CCG1       86
                          20027                   LX0    UD.MVP-D.LSJP                                           GPO      1976
                               76560              SX5    B6                                                      GPO      1977
                                                                                                                 GPO      1978
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    61
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1461  6232000000               FUD13    SB3    X2+         I = [LI]                                    FCC1088    24
                          0623001475 +            LE     B3,B2,FUD15 IF I @ 2      */ ^ IN UDT ! LD ONLY         FCC1088    25
          1462  53325                             SA3    B5+X2       UI = O.UDT + I                              FCC1088    26
                     5110001351 +                 SA1    FUDB                                                    GPO      1980
                               15430              BX4    -X0*X3                                                  GPO      1981
          1463  0314001464 +                      NZ     X4,FUD14    IF MV[UI]                                   GPO      1982
                          74730                   SX7    A3                                                      GPO      1983
                               54771              SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      1984
                                                                                                                 GPO      1985
          1464  12613                    FUD14    BX6    X1+X3       (DEFR,DEF,USE,^RD,IST)[UI] = 1              GPO      1986
                     20352                        LX3    -UD.CBP                                                 GPO      1987
                          12535                   BX5    X3+X5       CDEF = CDEF ! CB[UI]                        GPO      1989
                               54630              SA6    A3                                                      GPO      1990
          1465  20325                             LX3    UD.CBP+59-UD.USEP                                       GPO      1991
                     0333001475 +                 MI     X3,FUD15    IF USE[UL]    */ PREVIOUS USES              GPO      1992
                               64300              MCM    FUD15       MARK CLASS MEMBERS AS USES                  GPO      1993
                                                                                                                 GPO      1994
          1475  67441                    FUD15    SB4    B4-B1       J = J - 1                                   GPO      1995
                     54221                        SA2    A2+B1       LI = LI + 1                                 FCC0392    88
                          0540001461 +            NZ     B4,FUD13    IF J " 0                                    GPO      1996
                                                                                                                 GPO      1997
          1476  63650                             SB6    X5                                                      GPO      1998
                     20045                        LX0    D.LSJP-UD.MVP                                           GPO      1999
                          0400001366 +            EQ     FUD2                                                    GPO      2000
  
  
  
                                        *         SCAN 2 - IF *CDEF* " 0 , CLASS REFS ( INDEXED STORES ) OR      GPO      2002
                                        *         CLASS MEMBERS WERE DEFINED IN THE BLOCK. PROPAGATE THE DEFS TO GPO      2003
                                        *         THE CLASS.                                                     GPO      2004
                                                                                                                 GPO      2005
          1477  43272                    FUD16    MX2    -UD.CBL                                                 GPO      2006
                     76160                        SX1    B6                                                      GPO      2007
                          15612                   BX6    -X2*X1                                                  GPO      2008
                               64770              SB7    A7          ML = MI       */ END OF SCAN 1 LIST         GPO      2009
          1500  0306001522 +                      ZR     X6,FUD24    IF CDEF = 0                                 GPO      2010
                          20673                   LX6    UD.CBP+59-UD.CRP                                        GPO      2011
                               63660              SB6    X6                                                      GPO      2012
          1501  20027                             LX0    UD.MVP-D.LSJP                                           GPO      2013
                     5120001350 +                 SA2    FUDA                                                    GPO      2014
          1502  0326001513 +                      PL     X6,FUD20    IF ^CR[CDEF]  */ IF NO CLASS REFS           GPO      2015
                                                                                                                 GPO      2016
                          56571                   SA5    B7+B1       I = ML + 1                                  GPO      2017
          1503  5110001352 +                      SA1    FUDC                                                    GPO      2018
          1504  55551                    FUD17    SA5    A5-B1       I = I - 1                                   GPO      2019
                     53450                        SA4    X5          UI = [I]                                    GPO      2020
                          0305001513 +            ZR     X5,FUD20    IF [I] = 0                                  GPO      2021
          1505  16641                             BX6    -X1+X4                                                  GPO      2022
                     0316001504 +                 NZ     X6,FUD17    IF ^( DEF[UI] & CR[UI] )                    GPO      2023
                                                                                                                 GPO      2024
                               12624              BX6    X2+X4       (DEFR,DEF,^RD,IST)[UI] = 1                  GPO      2025
                                                  LX4    -UD.ECLP                                                GPO      2026
          1506  63440                             SB4    X4          J = ECL[UI]   */ FOLLOW CHAIN TO MEMBERS    GPO      2027
                     54640                        SA6    A4                                                      GPO      2028
                          0440001504 +            ZR     B4,FUD17    IF J = 0      */ NO CLASS MEMBERS           GPO      2029
                                                                                                                 GPO      2030
          1507  56454                    FUD18    SA4    B5+B4       UI = O.UDT + J                              GPO      2031
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    62
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                     15340                        BX3    -X0*X4                                                  GPO      2032
                          0313001511 +            NZ     X3,FUD19    IF MV[UI]                                   GPO      2033
          1510  74740                             SX7    A4                                                      GPO      2034
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      2035
                                                                                                                 GPO      2036
          1511  12624                    FUD19    BX6    X2+X4       (DEFR,DEF,^RD,IST)[UI] = 1                  GPO      2037
                                                  LX4    -UD.ECLP                                                GPO      2038
                     63440                        SB4    X4          J = ECL[UI]                                 GPO      2039
                          54640                   SA6    A4                                                      GPO      2040
          1512  0540001507 +                      NZ     B4,FUD18    IF J " 0                                    GPO      2041
                          0400001504 +            EQ     FUD17                                                   GPO      2042
  
  
                                        *         SEARCH  MARKED VARS LIST FOR CLASS MEMBERS THAT WERE DEFINED   GPO      2044
                                        *         AND PROPAGATE THE DEF TO THE *CLASS REF* MEMBER.               GPO      2045
                                                                                                                 GPO      2046
          1513  0460001522 +             FUD20    ZR     B6,FUD24    IF CM[CDEF] = 0  */ NO CLASS MEMBERS DEFINE GPO      2047
                          5110001353 +            SA1    FUDD                                                    GPO      2048
          1514  5120001354 +                      SA2    FUDE                                                    FCC1040A    2
                          56571                   SA5    B7+B1       I = ML + 1                                  GPO      2049
                                                                                                                 GPO      2050
          1515  55551                    FUD21    SA5    A5-B1       I = I - 1                                   GPO      2051
                     53450                        SA4    X5          UI = [I]                                    GPO      2052
                          0305001522 +            ZR     X5,FUD24    IF [I] = 0    */ END OF LIST                GPO      2053
          1516  16641                             BX6    -X1+X4                                                  GPO      2054
                     0316001515 +                 NZ     X6,FUD21    IF ^( DEF[UI] & CM[UI] )                    GPO      2055
                               20450              LX4    -UD.BMIP                                                GPO      2056
          1517  53345                             SA3    B5+X4       UI = O.UDT + BMI[UI]  */ BASE MEMBER        GPO      2057
                     15430                        BX4    -X0*X3                                                  GPO      2058
                          0314001521 +            NZ     X4,FUD22    IF MV[UI]                                   GPO      2059
          1520  74730                             SX7    A3                                                      GPO      2060
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = UI                     GPO      2061
                                                                                                                 GPO      2062
          1521  12623                    FUD22    BX6    X2+X3       (DEF,^RD,IST)[UI] = 1                       FCC1040A    3
                     54630                        SA6    A3                                                      GPO      2064
                          0400001515 +            EQ     FUD21                                                   GPO      2065
                                                                                                                 GPO      2066
                                        *         TERMINATE MARKED VAR LIST AND FORM BIT VECTORS ( BBV = 0 )     GPO      2067
                                                                                                                 GPO      2068
          1522  5110000031 +             FUD24    SA1    BN                                                      GPO      2069
                          5120000015 +            SA2    O.BIT                                                   GPO      2070
          1523  5130000045 +                      SA3    BBV                                                     GPO      2071
                          63210                   SB2    X1                                                      GPO      2072
                               53422              SA4    X2+B2       BIW = BIT(BN)                               GPO      2073
          1524  43700                             MX7    0                                                       GPO      2074
                     54771                        SA7    A7+B1       MI = MI + 1;  [MI] = 0                      GPO      2075
                          0313001577 +            NZ     X3,FUD35    IF BBV " 0    */ NOT BUILDING BIT VECTORS   GPO      2076
                                                                                                                 GPO      2077
          1525  5150000002 C                      SA5    BVL                                                     GPO      2078
                          5130000020 +            SA3    L.BVT                                                   GPO      2079
          1526  5120000017 +                      SA2    O.BVT                                                   GPO      2080
                          63630                   SB6    X3          OL = L.BVT                                  GPO      2081
                                                  LX3    BI.BVIP                                                 GPO      2082
                               73151              SX1    X5+B1                                                   GPO      2083
          1527  12634                             BX6    X3+X4       BVI[BIT(BN)] = L.BVT                        GPO      2084
                     20102                        LX1    2                                                       GPO      2085
                          54640                   SA6    A4                                                      GPO      2086
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    63
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                  LX3    -BI.BVIP                                                GPO      2087
                               36713              IX7    X1+X3       L.BVT = L.BVT + 4*(BVL+1)                   GPO      2088
          1530  54730                             SA7    A3                                                      GPO      2089
                                                                                                                 GPO      2090
                                                  IF     DEF,/DEBUG/FUD,2                                        GPO      2091
                                                  SX6    X3                                                      GPO      2092
                                                  SA6    BVI                                                     GPO      2093
                     63751                        SB7    X5+B1       VL = BVL + 1  */ VECTOR LENGTH              GPO      2094
                          5110000002 C            SA1    O.MVL                                                   GPO      2095
          1531  63626                             SB6    X2+B6       BI = O.BVT + OL  */ *BVT* ADDRESS           GPO      2096
                     76010                        SX0    B1                                                      GPO      2097
                          0315001552 +            NZ     X5,FUD30    IF BVL " 0                                  GPO      2098
  
  
                                        *         SETUP BIT VECTORS FOR PROGRAM WITH @ 60 REFERENCED VARIABLES   GPO      2100
                                                                                                                 GPO      2101
          1532  43600                             MX6    0           DV = 0                                      GPO      2102
                     53311                        SA3    X1+B1       MI = O.MVL + 1                              GPO      2103
                          13555                   BX5    X5-X5       DUV = 0                                     GPO      2104
                               43400              MX4    0           UV = 0                                      GPO      2105
          1533  0303001541 +                      ZR     X3,FUD26    IF [MI] = 0   */ NO REFED VARS IN BLOCK     GPO      2106
                          53231                   SA2    X3+B1       U2 = [MI] + 1                               GPO      2107
                               53130              SA1    X3          UW = [MI]                                   GPO      2108
                                                                                                                 GPO      2109
          1534  26722                    FUD25    UX7    B2,X2       J = BITN[U2]                                GPO      2110
                     20102                        LX1    -UD.DEFP                                                GPO      2111
                          11201                   BX2    X0*X1                                                   GPO      2112
                               22722              LX7    B2,X2                                                   GPO      2113
          1535  12676                             BX6    X7+X6       DV = DV ! SHIFT( DEF[UW] , J )              GPO      2114
                     20101                        LX1    UD.DEFP-UD.DBUP                                         GPO      2115
                          11201                   BX2    X0*X1                                                   GPO      2116
                               22722              LX7    B2,X2                                                   GPO      2117
          1536  54331                             SA3    A3+B1       MI = MI + 1                                 GPO      2118
                     12575                        BX5    X7+X5       DUV = DUV ! SHIFT( DBU[UW] , J )            GPO      2119
                          20101                   LX1    UD.DBUP-UD.USEP                                         GPO      2120
                               11201              BX2    X0*X1                                                   GPO      2121
          1537  22722                             LX7    B2,X2                                                   GPO      2122
                     53231                        SA2    X3+B1       U2 = [MI] + 1                               GPO      2123
                          12474                   BX4    X7+X4       UV = UV ! SHIFT( USE[UW] , J )              GPO      2124
                               53130              SA1    X3          UW = [MI]                                   GPO      2125
          1540  0313001534 +                      NZ     X3,FUD25    IF [MI] " 0                                 GPO      2126
                                                                                                                 GPO      2127
          1541  5110000052 +             FUD26    SA1    UXR                                                     FCC0716     6
                          0301001544 +            ZR     X1,FUD26A   IF UXR = 0                                  FCC0716     7
          1542  5120000017 +                      SA2    O.BVT                                                   GPO      2130
                          53320                   SA3    X2          SV = [O.BVT]  */ COMMON VAR SPOIL VECTOR    GPO      2131
                               12636              BX6    X3+X6       DV = SV ! DV                                GPO      2132
          1543  15553                             BX5    -X3*X5      DUV = ^SV & DUV                             GPO      2133
                     12434                        BX4    X3+X4       UV = SV ! UV                                GPO      2134
                                                                                                                 GPO      2135
          1544  56660                    FUD26A   SA6    B6          [BI] = DV                                   FCC0716     8
                     15745                        BX7    -X5*X4                                                  GPO      2137
                          56761                   SA7    B6+B1       [BI+1] = ^DUV & UV  */ UBD                  GPO      2138
                               10644              BX6    X4                                                      GPO      2139
          1545  54671                             SA6    A7+B1       [BI+2] = UV                                 GPO      2140
                     7170000000                   SX7    0                                                       GPO      2141
                               54761              SA7    A6+B1       [BI+3] = 0    */ LX = 0                     GPO      2142
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    64
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                                                                                                 GPO      2143
                                        *         CLEAR BLOCK RELATIVE BITS IN *UDT*                             GPO      2144
                                                                                                                 GPO      2145
          1546                           FUD27    BSS    0                                                       GPO      2146
                                                  IF     DEF,/DEBUG/FUD,1                                        GPO      2147
                                                  DCALL  PRNTBV,([O.BVT],BVI,=3)                                 GPO      2148
                                                                                                                 GPO      2149
          1546  5110000002 C             FUD28    SA1    O.MVL                                                   GPO      2150
                          5140001346 +            SA4    BCM                                                     GPO      2151
          1547  5251000001                        SA5    X1+1        MI = O.MVL + 1                              GPO      2152
                          0305001355 +            ZR     X5,FUD      IF [MI] = 0                                 GPO      2153
                                                                                                                 GPO      2154
          1550  53250                    FUD29    SA2    X5          UW = [MI]                                   GPO      2155
                     54551                        SA5    A5+B1       MI = MI + 1                                 GPO      2156
                          15624                   BX6    -X4*X2      BCM[UW] = 0   */ CLEAR BLOCK / REGION BITS  GPO      2157
                               54620              SA6    A2                                                      GPO      2158
          1551  0315001550 +                      NZ     X5,FUD29    IF [MI] " 0                                 GPO      2159
                                                                                                                 GPO      2160
                          0400001355 +            EQ     FUD                                                     GPO      2161
  
  
  
                                        *         SETUP BIT VECTORS FOR PROGRAM WITH N.VAR > 60                  GPO      2163
                                        *         FIRST CHAIN *MVL* ENTRIES ON THEIR WORD INDEX                  GPO      2164
                                                                                                                 GPO      2165
          1552  67571                    FUD30    SB5    B7-B1                                                   GPO      2166
                     76677                        SX6    B7+B7                                                   GPO      2167
                          66467                   SB4    B6+B7                                                   GPO      2168
                               53064              SA0    X6+B4       BT = BI + 3*VL  */ BUCKET TABLE             GPO      2169
          1553  43700                             MX7    0                                                       GPO      2170
                     53311                        SA3    X1+B1       MI = O.MVL + 1                              GPO      2171
                          64200                   SB2    A0                                                      GPO      2172
                               54700              SA7    A0                                                      GPO      2173
                                                                                                                 GPO      2174
          1554  67551                   +         SB5    B5-B1       FOR I = 0 TO VL-1; BT(I) = 0                GPO      2175
                     54771                        SA7    A7+B1                                                   GPO      2176
                          0705001554 +            GT     B5,*                                                    GPO      2177
                                                                                                                 GPO      2178
          1555  5120000052 +                      SA2    UXR                                                     GPO      2179
                          5150000017 +            SA5    O.BVT                                                   GPO      2180
          1556  63320                             SB3    X2                                                      GPO      2181
                     66400                        SB4    B0          WN = 0        */ WORD NUMBER ( 0,1,... )    GPO      2182
                          63550                   SB5    X5                                                      GPO      2183
          1557  0303001563 +                      ZR     X3,FUD32    IF [MI] = 0   */ NO REFED VARS IN BLOCK     GPO      2184
                                                                                                                 GPO      2185
          1560  53431                    FUD31    SA4    X3+B1       U2 = [MI] + 1;  W = WI[U2]                  GPO      2186
                     53542                        SA5    B2+X4                                                   GPO      2187
                          74730                   SX7    A3                                                      GPO      2188
                               20522              LX5    18                                                      GPO      2189
          1561  12653                             BX6    X5+X3       LINK[MI] = BT(W)  */ LINK THIS TO LAST      GPO      2190
                     54630                        SA6    A3                                                      GPO      2191
                          54750                   SA7    A5          BT(W) = MI    */ POINT BUCKET TO THIS       GPO      2192
                               54331              SA3    A3+B1       MI = MI + 1                                 GPO      2193
          1562  0313001560 +                      NZ     X3,FUD31    IF [MI] " 0                                 GPO      2194
                                                                                                                 GPO      2195
                                        *         NOW FORM THE BIT VECTORS                                       GPO      2196
                                                                                                                 GPO      2197
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    65
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
          1563  54200                    FUD32    SA2    A0          LP = [BT]     */ LIST POINTER               GPO      2198
                     43600                        MX6    0           DV = 0                                      GPO      2199
                          13555                   BX5    X5-X5       DUV = 0                                     GPO      2200
                               53320              SA3    X2          MI = [LP]                                   GPO      2201
          1564  43400                             MX4    0           UV = 0                                      GPO      2202
                     54001                        SA0    A0+B1       BT = BT + 1                                 GPO      2203
                          0302001572 +            ZR     X2,FUD34    IF LP = 0     */ LIST EMPTY FOR THIS WORD   GPO      2204
                                                                                                                 GPO      2205
          1565  53231                    FUD33    SA2    X3+B1       U2 = [MI] + 1                               GPO      2206
                     53130                        SA1    X3          UW = [MI]                                   GPO      2207
                          21322                   AX3    18          L = LINK[MI]                                GPO      2208
                               26722              UX7    B2,X2       J = BITN[U2]                                GPO      2209
          1566  20102                             LX1    -UD.DEFP                                                GPO      2210
                     11201                        BX2    X0*X1                                                   GPO      2211
                          22722                   LX7    B2,X2                                                   GPO      2212
                               12676              BX6    X7+X6       DV = DV ! SHIFT( DEF[UW] , J )              GPO      2213
          1567  20101                             LX1    UD.DEFP-UD.DBUP                                         GPO      2214
                     11201                        BX2    X0*X1                                                   GPO      2215
                          22722                   LX7    B2,X2                                                   GPO      2216
                               12575              BX5    X7+X5       DUV = DUV ! SHIFT( DBU[UW] , J )            GPO      2217
          1570  20101                             LX1    UD.DBUP-UD.USEP                                         GPO      2218
                     11201                        BX2    X0*X1                                                   GPO      2219
                          22722                   LX7    B2,X2                                                   GPO      2220
                               73130              SX1    X3                                                      GPO      2221
          1571  12474                             BX4    X7+X4       UV = UV ! SHIFT( USE[UW] , J )              GPO      2222
                     53330                        SA3    X3          MI = [L]      */ NEXT ON CHAIN              GPO      2223
                          0311001565 +            NZ     X1,FUD33    IF L " 0                                    GPO      2224
                                                                                                                 GPO      2225
          1572  0430001574 +             FUD34    ZR     B3,FUD34A   IF UXR = 0                                  GPO      2226
                          56354                   SA3    B5+B4       SV = BVT(WN)                                GPO      2227
                               12636              BX6    X3+X6       DV = SV ! DV                                GPO      2228
          1573  15553                             BX5    -X3*X5      DUV = ^SV & DUV                             GPO      2229
                     12434                        BX4    X3+X4       UV = SV ! UV                                GPO      2230
                                                                                                                 GPO      2231
          1574  56664                    FUD34A   SA6    B6+B4       SA = BI + WN;  [SA] = DV                    GPO      2232
                     15745                        BX7    -X5*X4                                                  GPO      2233
                          66441                   SB4    B4+B1       WN = WN + 1                                 GPO      2234
                               54767              SA7    A6+B7       SA = SA + VL;  [SA] = ^DUV & UV  */ UBD     GPO      2235
          1575  10644                             BX6    X4                                                      GPO      2236
                     54677                        SA6    A7+B7       SA = SA + VL;  [SA] = UV                    GPO      2237
                          43700                   MX7    0                                                       GPO      2238
                               54767              SA7    A6+B7       SA = SA + VL;  [SA] = 0  */ LX = 0          GPO      2239
          1576  0747001563 +                      LT     B4,B7,FUD32 IF WN < VL                                  GPO      2240
                                                                                                                 GPO      2241
                          0400001546 +            EQ     FUD27                                                   GPO      2242
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    66
        FUD - FORM USE/DEF BIT VECTORS                                FUD                 CODE
  
                                        *         BBV " 0 , IF PROGRAM BLOCK , THEN CLEAR BLOCK BITS             GPO      2244
                                                                                                                 GPO      2245
          1577                           FUD35    BSS    0                                                       GPO      2246
                                                  IF     DEF,/DEBUG/FUD,1                                        GPO      2247
                                                  DCALL  PRNTUDI,([O.UDT],L.UDT)   PRINT BITS SET                GPO      2248
                                                                                                                 GPO      2249
                                                  LX4    59-BI.RBP                                               GPO      2250
          1577  0334001546 +                      MI     X4,FUD28    IF RB[BIW]    */ PROGRAM BLOCK              GPO      2251
                                                                                                                 GPO      2252
                                        *         PROCESS HOLDING BLOCK, PROPAGATE OUT INFORMATION FROM INNER    GPO      2253
                                        *         LOOP.  SET *DEFR, ^RD, IST* BITS FOR ALL VARIABLES DEFINED     GPO      2254
                                        *         IN THE INNER LOOP.  ACCUMULATE THE LOOP USEAGE VECTOR FOR GRA. GPO      2255
                                        *         NOTE THAT THE LOOP WE ARE PROCESSING MUST CONTAIN AT LEAST     GPO      2256
                                        *         2 BLOCKS, SO *CRB* WILL CLEAR ALL OF *UDT*                     GPO      2257
                                                                                                                 GPO      2258
                          5150000027 +            SA5    O.SEQ       T = [O.SEQ]                                 GPO      2259
          1600  5110000017 C                      SA1    N.HB                                                    GPO      2260
                          53551                   SA5    X5+B1       R2 = [T+1]    */ R2 OF *BOS*                GPO      2261
                               76710              SX7    B1                                                      GPO      2262
          1601  73611                             SX6    X1+B1       N.HB = N.HB + 1                             GPO      2263
                                                  LX5    59-R2.UXRP                                              GPO      2264
                     54610                        SA6    A1                                                      GPO      2265
                          0325001603 +            PL     X5,FUD36    IF ^UXR[R2]   */ NO USER EXT REFS IN LP     GPO      2266
          1602  5170000053 +                      SA7    UXR+1       UXR(2) = 1                                  GPO      2267
                                                                                                                 GPO      2268
          1603  5110000015 C             FUD36    SA1    MRA                                                     GPO      2269
                          20552                   LX5    1+R2.UXRP-R2.MRAP                                       GPO      2270
                               11615              BX6    X1*X5       MRA = MRA & MRA[R2]                         GPO      2271
          1604  54610                             SA6    A1                                                      GPO      2272
                     5110000051 +                 SA1    MRA.X                                                   FCC1254    18
                               11615              BX6    X1*X5       MRA.X = MRA.X & MRA[R2]                     FCC1254    19
          1605  54610                             SA6    A1                                                      FCC1254    20
                     20452                        LX4    1+BI.RBP-BI.PBNP                                        GPO      2273
                          63340                   SB3    X4          HN = PBN[BIW] */ BN OF HEADER               GPO      2274
                               66500              SB5    B0          I = 0                                       GPO      2275
          1606  5110000017 +                      FBVA   B3          BVA = O.BVT + BVI[BIT(HN)]                  GPO      2276
                     5150000004 C                 SA5    LUV                                                     GPO      2277
                               63672              SB6    X7+B2       RUA = BVA + VL  */ *LU* VECTOR OF LOOP      GPO      2278
          1611  53155                    FUD37    SA1    X5+B5                                                   GPO      2279
                     56265                        SA2    B6+B5       LUV = LUV ! [RUA]                           GPO      2280
                          66551                   SB5    B5+B1                                                   GPO      2281
                               12612              BX6    X1+X2                                                   GPO      2282
          1612  54610                             SA6    A1                                                      GPO      2283
                     0752001611 +                 LT     B5,B2,FUD37                                             GPO      2284
                                                                                                                 GPO      2285
                               73470              SX4    X7                                                      GPO      2286
          1613  5150001347 +                      SA5    RDB                                                     GPO      2287
                          0100001324 +            RJ     EBV         SET REGION DEF BITS IN *UDT*                GPO      2288
                                                                                                                 GPO      2289
          1614  5150000027 +                      SA5    O.SEQ                                                   GPO      2290
                          0100001616 +            RJ     CHB         CHECK HOLDING BLOCK FOR COMBINE WITH PRED   GPO      2291
          1615  0400001546 +                      EQ     FUD28                                                   GPO      2292
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    67
        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED               CHB                 CODE
  
                                        **        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED                GPO      2294
                                        *         COALESCE THE HOLDING BLOCK WITH ITS IMMEDIATE PREDECESSOR SO   GPO      2295
                                        *         INITIALIZATION CODE FROM INTEGER POLYNOMIALS IS REMOVED OF     GPO      2296
                                        *         ITS DEPENDENCY ON THE INNER LOOP INDUCTION VARIABLE, AND IS    GPO      2297
                                        *         SUBJECT TO FURTHER MOTION, ETC.                                GPO      2298
                                        *                                                                        GPO      2299
                                        *         ENTRY  (X5) = [O.SEQ]                                          GPO      2300
                                        *                (BSI) = *BST* INDEX OF HOLDING BLOCK                    GPO      2301
                                                                                                                 GPO      2302
          1616  0200401616 +             CHB      ROUTINE                                                        GPO      2303
          1617  5110000030 +                      SA1    L.SEQ                                                   GPO      2304
                          6251777767              SB5    X1-8                                                    GPO      2305
          1620  6140000004                        SB4    4                                                       FCC0602     5
                          0645001616 +            LE     B5,B4,CHB   IF L.SEQ @ 12 */ EMPTY OR *LAB* ONLY BLOCK  FCC0602     6
                                                                                                                 GPO      2307
                                        *         CHECK CURRENT BLOCK                                            GPO      2308
                                                                                                                 GPO      2309
          1621  5120000015 +                      SA2    O.BIT                                                   GPO      2310
                          53350                   SA3    X5          R1 = [[O.SEQ]]                              GPO      2311
                               63220              SB2    X2                                                      GPO      2312
          1622  53432                             SA4    B2+X3       BIW = BIT(R1)                               GPO      2313
                                                  LX4    -BI.BVIP                                                GPO      2314
                     73740                        SX7    X4          VI2 = BVI[BIW]                              GPO      2315
                                                  LX4    59-BI.RBP+BI.BVIP                                       GPO      2316
                          0334001616 +            MI     X4,CHB      IF RB[BIW]    */ NOT A *HB*                 GPO      2317
                                                                                                                 FCC0602     7
          1623  5110000000 X                      SA1    O.BST                                                   GPO      2325
                          5120000032 +            SA2    BSI                                                     GPO      2326
          1624  54040                             SA0    A4          B = BIT + R1  */ SAVE BIT ADDR OF *HB*      FCC0841     5
                     5130000041 +                 SA3    EIT                                                     GPO      2327
                               63311              SB3    X1+B1                     (B3) = BST+1                  GPO      2328
          1625  63420                             SB4    X2          I = BSI                                     GPO      2329
                     63630                        SB6    X3                                                      GPO      2330
                          56534                   SA5    B3+B4       IPW = BST(I+1)                              GPO      2331
                                                  LX5    -IM.BNP                                                 GPO      2332
                               53156              SA1    B6+X5       EIW = EIT + BN[IPW]                         GPO      2333
          1626  20122                             LX1    -EI.PRIP                                                GPO      2334
                     26171                        UX1    B7,X1                                                   FCC0602     8
                          0571001616 +            NE     B7,B1,CHB   IF NP[EIW] " 1  */ MORE THAN 1 PRED         FCC0602     9
          1627  53316                             SA3    B6+X1       PIW = EIT + PRI[EIW]                        GPO      2335
                     20336                        LX3    -ET.PREDP                                               GPO      2336
                          53436                   SA4    B6+X3       EIWP = EIT + PRED[PIW]                      GPO      2337
                               20460              LX4    -EI.SUIP                                                GPO      2338
          1630  26474                             UX4    B7,X4                                                   GPO      2339
                     0717001616 +                 GT     B7,B1,CHB   IF NS[EIWP] > 1  */ MORE THAN 1 SUCC        GPO      2340
                               63630              SB6    X3          PBN = PRED[PIW]  */ BN OF PRED              GPO      2341
                                                                                                                 GPO      2342
                                        *         SEARCH *BST* FOR PRED OF *HB*                                  GPO      2343
                                                                                                                 GPO      2344
          1631  6144777775               CHB0     SB4    B4-2        I = I - 2                                   GPO      2345
                          0440001616 +            ZR     B4,CHB      IF I = 0      */ END OF *BST*               GPO      2346
          1632  56434                             SA4    B3+B4       IPW = BST(I+1)                              GPO      2347
                                                  LX4    -IM.BNP                                                 GPO      2348
                     63740                        SB7    X4                                                      GPO      2349
                          0576001631 +            NE     B7,B6,CHB0  IF BN[IPW] " PBN                            GPO      2350
                                                                                                                 GPO      2351
          1633  20430                             LX4    IM.BNP-IM.BIP                                           GPO      2352
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    68
        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED               CHB                 CODE
  
                     76340                        SX3    B4                                                      GPO      2353
                          53542                   SA5    B2+X4       BIWP = BIT(BI[IPW])                         GPO      2354
                               20336              LX3    30                                                      GPO      2355
          1634  12632                             BX6    X3+X2       BSIS = SHIFT(I,30) ! BSI                    GPO      2356
                     5160000106 C                 SA6    BSIS                                                    GPO      2357
                                                  LX5    59-BI.RBP                                               GPO      2358
          1635  0325001616 +                      PL     X5,CHB      IF ^RB[BIWP]  */ PRED IS A *HB*             GPO      2359
                          10655                   BX6    X5                                                      FCC0602    10
                               54661              SA6    A6+B1                                                   FCC0602    11
          1636  54200                             SA2    A0          BIW = [B]     */ REFETCH BIT WORD           FCC0841     6
                                                  LX2    59-BI.RBP                                               FCC0841     7
                     13625                        BX6    X2-X5                                                   FCC0841     8
                          20603                   LX6    BI.RBP-BI.FJP                                           FCC0841     9
          1637  0336001616 +                      MI     X6,CHB      IF FJ[BIW] " FJ[BIWP]                       FCC0841    10
                                                                                                                 GPO      2360
                          5170000104 C            SA7    VI2                                                     GPO      2363
          1640  73750                             SX7    X5          VI1 = BVI[BIWP]                             GPO      2364
                     54771                        SA7    A7+B1                                                   GPO      2365
                                                                                                                 CCGA021    39
                                        *         SAVE ELIMINATED LABEL DEF INFO IN *ELT* FOR USE BY *WII*       CCGA021    40
                                                                                                                 CCGA021    41
                          20202                   LX2    BI.RBP-BI.ILP                                           CCGA021    42
          1641  0322001646 +                      PL     X2,CHB0A    IF IL[B]      */ NO LABEL DEF               CCGA021    43
                                                                                                                 CCGA021    44
                          5110000027 +            SA1    O.SEQ                                                   CCGA021    45
          1642  5120000025 +                      SA2    O.ELT                                                   CCGA021    46
                          5241000004              SA4    X1+4        R1 = [SEQ+4]  */ IH OF PROG LABEL           CCGA021    47
          1643  54341                             SA3    A4+B1       R2 = [SEQ+5]  */ IH OF GL                   CCGA021    48
                     73440                        SX4    X4                                                      CCGA021    49
                          7233677777              SX3    X3-I.GL                                                 CCGA021    50
          1644  20422                             LX4    18                                                      CCGA021    51
                     5110000026 +                 SA1    L.ELT                                                   CCGA021    52
                               63221              SB2    X2+B1                                                   CCGA021    53
          1645  12634                             BX6    X3+X4                                                   CCGA021    54
                     53612                        SA6    B2+X1       ELT(L.ELT+1) = 24/,18/IH-PROG,18/H-GL       CCGA021    55
                          73611                   SX6    X1+B1       L.ELT = L.ELT + 1                           CCGA021    56
                               54610              SA6    A1                                                      CCGA021    57
                                                                                                                 CCGA021    58
                                        *         MERGE THE BLOCKS                                               CCGA021    59
                                                                                                                 CCGA021    60
          1646  76150                    CHB0A    ALLOC  MOD,B5      ALLOC( MOD, L.SEQ-8 )                       CCGA021    61
          1650  73320                             SX3    X2                                                      GPO      2367
                     5120000027 +                 SA2    O.SEQ                                                   GPO      2368
                               73116              MOVE   X1+B6,X2,X3 MOVE( L.SEQ-4 , O.SEQ , O.MOD )             GPO      2369
                                                                                                                 GPO      2370
          1652  0100000000 X                      CALL   RBS#        RELEASE THE BLOCK                           CCGNC     630
          1653  5140000106 C                      SA4    BSIS                                                    GPO      2372
                          20436                   LX4    30                                                      GPO      2373
                               73640              SX6    X4          BSI = SETX( SHIFT(BSIS,30) )                GPO      2374
          1654  5160000032 +                      SA6    BSI                                                     GPO      2375
                          0100000000 X            CALL   RTB#        GET PREDECESSOR BLOCK                       CCGNC     631
                                                                                                                 GPO      2377
                                        *         SETUP *MOD* CONTROL WORD                                       GPO      2378
                                                                                                                 GPO      2379
          1655  5150000027 +                      SA5    O.SEQ                                                   GPO      2380
                          5130000000 X            SA3    L.MOD                                                   GPO      2381
          1656  7110000004                        SX1    4           K = 4                                       FCC0602    12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    69
        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED               CHB                 CODE
  
                          43600                   MX6    0           DEL = 0                                     FCC0602    13
                               53451              SA4    X5+B1       R2 = [O.SEQ+1]                              GPO      2383
                                                  LX4    -R2.TXTLP                                               GPO      2384
          1657  7224777767                        SX2    X4-8        II = TXTL[R2] - 8                           GPO      2385
                          5150000107 C            SA5    BSIS+1                                                  FCC0602    14
          1660  20503                             LX5    BI.RBP-BI.FJP                                           FCC0602    15
                     0325001662 +                 PL     X5,CHB1A    IF ^FJ[BIWP]                                FCC0602    16
                               43601              MX6    1           DEL = 1       */ SET TO DELETE UJP AND LAB  FCC0602    17
          1661  7110000010                        SX1    8           K = 8                                       FCC0602    18
          1662  37331                    CHB1A    IX3    X3-X1                                                   FCC0602    19
                                                  LX1    ML.MTIP                                                 GPO      2387
                     20244                        LX2    ML.IIP                                                  GPO      2388
                          20320                   LX3    ML.NIP-2                                                GPO      2389
                               12423              BX4    X2+X3                                                   GPO      2390
          1663  36141                             IX1    X4+X1                                                   GPO      2391
                     12161                        BX1    X6+X1                                                   FCC0602    20
                          5100000000 X            ADDWRD MLT,X1      ADDWRD( MLT , MCW(DEL,II,(L.MOD-K)/4,K) )   FCC0602    21
                                                                                                                 GPO      2395
                                        *         NOW ADJUST THE BIT VECTORS OF BOTH BLOCKS                      GPO      2396
                                        *         USE1 = USE1 ! USE2 , DEF1 = DEF1 ! DEF2                        GPO      2397
                                        *         UBD1 = UBD1 ! (^DEF1&UBD2) , LX1 = LX2                         GPO      2398
                                                                                                                 GPO      2399
          1665  5120000104 C                      SA2    VI2                                                     GPO      2400
                          5130000000 C            SA3    VL                                                      GPO      2401
          1666  5140000017 +                      SA4    O.BVT                                                   GPO      2402
                          54121                   SA1    A2+B1                                                   GPO      2403
                               63330              SB3    X3          L = VL                                      GPO      2404
          1667  63740                             SB7    X4                                                      GPO      2405
                     63617                        SB6    B7+X1       V1A = O.BVT + VI1                           GPO      2406
                          63727                   SB7    B7+X2       V2A = O.BVT + VI2                           GPO      2407
                               66200              SB2    B0          I = 0                                       GPO      2408
          1670  66433                             SB4    B3+B3                                                   GPO      2409
                                                                                                                 GPO      2410
          1671  56162                    CHB1     SA1    B6+B2                                                   GPO      2411
                     56272                        SA2    B7+B2                                                   GPO      2412
                          54314                   SA3    A1+B4                                                   GPO      2413
                               54424              SA4    A2+B4                                                   GPO      2414
          1672  66221                             SB2    B2+B1       I = I + 1                                   GPO      2415
                     12612                        BX6    X1+X2       DEF1 = DEF1 ! DEF2                          GPO      2416
                          54610                   SA6    A1                                                      GPO      2417
                               43700              MX7    0                                                       GPO      2418
          1673  54720                             SA7    A2          DEF2 = 0                                    GPO      2419
                     12634                        BX6    X3+X4       USE1 = USE1 ! USE2                          GPO      2420
                          54630                   SA6    A3                                                      GPO      2421
                               54740              SA7    A4          USE2 = 0                                    GPO      2422
          1674  0723001671 +                      LT     B2,B3,CHB1  IF I < L                                    GPO      2423
                                                                                                                 GPO      2424
                          66200                   SB2    B0          I = 0                                       GPO      2425
                               66773              SB7    B7+B3                                                   GPO      2426
                                                                                                                 GPO      2427
          1675  56262                    CHB2     SA2    B6+B2       DEF1 = V1A(I)                               GPO      2428
                     54123                        SA1    A2+B3       UBD1 = V1A(I+VL)                            GPO      2429
                          56372                   SA3    B7+B2                                                   GPO      2430
                               54434              SA4    A3+B4                                                   GPO      2431
          1676  15532                             BX5    -X2*X3                                                  GPO      2432
                     12615                        BX6    X1+X5       UBD1 = UBD1 ! (^DEF1 & UDB2)                GPO      2433
                          54610                   SA6    A1                                                      GPO      2434
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    70
        CHB - COMBINE HOLDING BLOCK WITH IMMEDIATE PRED               CHB                 CODE
  
                               66221              SB2    B2+B1       I = I + 1                                   GPO      2435
          1677  10744                             BX7    X4          LX1 = LX2                                   GPO      2436
                     54714                        SA7    A1+B4                                                   GPO      2437
                          0723001675 +            LT     B2,B3,CHB2  IF I < L                                    GPO      2438
                                                                                                                 GPO      2439
          1700  76560                             SX5    B6                                                      GPO      2440
                     43673                        MX6    59                                                      FCC0509     9
                          0100002075 +            RJ     AUV         MERGE, SQZ BLOCK AND ADJUST BIT VECTORS     FCC0509    10
                                                                                                                 GPO      2442
                                        *         REWRITE THE HOLDING BLOCK AS AN EMPTY BLOCK ( BOS, EOQ )       GPO      2443
                                                                                                                 GPO      2444
          1701  5110000000 X                      SA1    O.TXT                                                   GPO      2445
                          5120000000 X            SA2    O.MOD                                                   GPO      2446
          1702  66600                             SB6    B0          TI = 0                                      GPO      2447
                     53520                        SA5    X2          R1 = [[O.MOD]]                              GPO      2448
                          63710                   SB7    X1          TB = [O.TXT]                                GPO      2449
                               26625              UX6    B2,X5                                                   GPO      2450
          1703  7170000010                        SX7    8                                                       GPO      2451
                          0100000124 +            RJ     SRI         SRI(  BOS  [R1] )                           GPO      2452
          1704  6120000000                        SB2    OC.EOQ                                                  GPO      2453
                          7160000000              SX6    0                                                       GPO      2454
          1705  0100000124 +                      RJ     SRI         SRI(  EOQ  0 )                              GPO      2455
          1706  5140000106 C                      SA4    BSIS                                                    GPO      2456
                          76760                   SX7    B6                                                      GPO      2457
                               73640              SX6    X4          BSI = SETX( BSIS )                          GPO      2458
          1707  5160000032 +                      SA6    BSI                                                     GPO      2459
                          5170000000 X            SA7    L.TXT       L.TXT = 8                                   GPO      2460
          1710  0100000000 X                      CALL   WMB#        WRITE THE BLOCK BACK TO *BLK*               CCGNC     632
          1711  7160000004                        SX6    4                                                       GPO      2462
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GPO      2463
          1712  0400001616 +                      EQ     CHB                                                     GPO      2464
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    71
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
                                        **        RDD - REMOVE DEAD DEFINITIONS ( STORES ) FROM A BLOCK          GPO      2466
                                        *                                                                        GPO      2467
                                        *         ENTRY  *PCC* REGISTER CALL CONVENTIONS                         GPO      2468
                                        *                                                                        GPO      2469
                                        *         SCAN BLOCK FOR DEAD STORES ( ^(LX ! (DBU & USE ) )  ).         GPO      2470
                                        *         CHANGE THEM TO *NOP*"S, CALL *SQZB* IF BLOCK CONTAINS DEAD     GPO      2471
                                        *         COMPUTATIONS ( VERY UNLIKELY ).                                GPO      2472
                                        *         CALLED PRIOR TO LEVEL 2 / F.P. EXPANSION                       GPO      2473
                                                                                                                 GPO      2474
          1713  00000000000000000000     RDDA     CON    0           HEADER FOR LD LINKS                         FCCA499X    5
                                                                                                                 FCCA499X    6
          1714  0200401714 +             RDD      ROUTINE                                                        GPO      2475
                                                                                                                 GPO      2476
          1715  0100002024 +                      RJ     IPS         INSERT POST STORES                          GPO      2477
          1716  0306001723 +                      ZR     X6,RDD0     IF NPS = 0                                  GPO      2478
                                                                                                                 GPO      2479
                          5140000033 +            SA4    BSW                                                     GPO      2480
          1717  5150000027 +                      SA5    O.SEQ                                                   GPO      2483
                          7100600001              SX0    RN.MASK                                                 CCG11     116
          1720  20430                             LX4    -IM.BIP                                                 CCG11     117
                     63340                        FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  GPO      2485
                                                                                                                 GPO      2486
          1723  6275000002               RDD0     S"TB"  X5+2        TB = O.SEQ + 2                              GPO      2487
                                                                                                                 GPO      2488
                                        *         SV = LX ! ( DBU & USE ) , LIVE ON EXIT OR USED IN BLOCK        GPO      2489
                                        *         AND DDB = ^SV & DEF , DEAD DEFINITIONS.                        GPO      2490
                                                                                                                 GPO      2491
                          53170                   SA1    X7          DA = BVA                                    GPO      2492
                               66622              SB6    B2+B2                                                   GPO      2493
          1724  53272                             SA2    X7+B2       UFA = BVA + VL                              GPO      2494
                     53376                        SA3    X7+B6       UA = BVA + 2*VL                             GPO      2495
                          54432                   SA4    A3+B2       LXA = BVA + 3*VL                            GPO      2496
          1725  5150000011 C                      SA5    SVA                                                     GPO      2497
                          15212                   BX2    -X2*X1      DBU = DEF & ^UBD                            GPO      2498
                               63550              SB5    X5                        (B5) = SVA                    GPO      2499
          1726  11223                             BX2    X2*X3                                                   GPO      2500
                     12642                        BX6    X4+X2       SV = LX ! ( DBU & USE )                     GPO      2501
                          56650                   SA6    B5                                                      GPO      2502
                               15716              BX7    -X6*X1      DDB = ^SV & DEF  */ DEAD DEF BITS           GPO      2503
          1727  0421001734 +                      EQ     B2,B1,RDD2  IF VL = 1                                   GPO      2504
          1730  54111                    RDD1     SA1    A1+B1                                                   GPO      2505
                     54221                        SA2    A2+B1                                                   GPO      2506
                          54331                   SA3    A3+B1                                                   GPO      2507
                               54441              SA4    A4+B1                                                   GPO      2508
          1731  15212                             BX2    -X2*X1                                                  GPO      2509
                     67221                        SB2    B2-B1                                                   GPO      2510
                          11223                   BX2    X2*X3                                                   GPO      2511
                               12642              BX6    X4+X2                                                   GPO      2512
          1732  15516                             BX5    -X6*X1                                                  GPO      2513
                     54661                        SA6    A6+B1                                                   GPO      2514
                          12757                   BX7    X5+X7                                                   GPO      2515
          1733  0712001730 +                      GT     B2,B1,RDD1                                              GPO      2516
                                                                                                                 GPO      2517
          1734  47477                    RDD2     CX4    X7                                                      GPO      2518
                     0304001714 +                 ZR     X4,RDD      IF COUNT( DDB ) = 0  */ NO DEAD DEFS IN BLO GPO      2519
                                                                                                                 GPO      2520
                                                  PRNTABV  RDD,SVA                                               GPO      2521
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    72
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
                                        *         NOW SCAN BACKWARDS FOR DEAD STORES, ADJUST THE *PS* BIT        GPO      2523
                                                                                                                 GPO      2524
                               57371              SA3    "TB"-B1     R2 = TB - 1                                 GPO      2525
          1735  56000                             SA0    B0          DC = 0        */ DEAD CODE FLAG             GPO      2526
                     5140000000 C                 SA4    O.UDT                                                   GPO      2527
                               63641              SB6    X4+B1       UB = O.UDT + 1                              GPO      2528
                                                  LX3    -R2.TXTLP                                               GPO      2529
          1736  6223777773                        SB2    X3-4        L = TXTL[R2] - 4                            GPO      2530
                          56472                   SA4    "TB"+B2     DI = TB + L                                 GPO      2531
                               43163              MX1    -D.USESL                                                GPO      2532
                                                  LX1    D.USESP                                                 GPO      2533
          1737  6130000022                        SB3    59-D.^DP                                                GPO      2534
                          6140000004              SB4    4                                                       GPO      2535
          1740  0400001744 +                      EQ     RDD4                                                    GPO      2536
                                                                                                                 GPO      2537
                                        *         INDICATE THAT R-NUM *PS* FOR A LIVE *ST*                       GPO      2538
                                                                                                                 GPO      2539
          1741  20427                    RDD3     LX4    59-D.L2P                                                GPO      2540
                     0324001743 +                 PL     X4,RDD3A    IF ^L2[DI]         */ NOT A LEVEL 2 *ST*    CCG0208     5
                               20404              LX4    D.L2P-D.XMTP                                            CCG0208     6
          1742  0324001744 +                      PL     X4,RDD4     IF ^XMT[DI]      */ NOT A LEVEL 0 *ST*      CCG0208     7
                                                                                                                 CCG0208     8
          1743  63221                    RDD3A    SB2    X2+B1                                                   CCG0208     9
                     76610                        SX6    B1                                                      GPO      2543
                          56672                   SA6    "TB"+B2     [TB+R+1] = 1                                GPO      2544
                                                                                                                 GPO      2545
          1744  55444                    RDD4     SA4    A4-B4       DI = DI - 4                                 GPO      2546
                     22634                        LX6    B3,X4                                                   GPO      2547
                          0336001756 +            MI     X6,RDD5     IF ^D[DI]                                   GPO      2548
          1745  20602                             LX6    D.^DP-D.PSP                                             GPO      2549
                     0336001753 +                 MI     X6,RDD4A    IF PS[DI]                                   GPO      2550
                               20604              LX6    D.PSP-D.LDP                                             GPO      2551
          1746  0326001744 +                      PL     X6,RDD4     IF ^LD[DI]                                  GPO      2552
                                                                                                                 GPO      2553
                                        *         LD - SET BIT IN *SVA* SO WE DONT KILL DEFS THAT COME BEFORE    GPO      2554
                                        *         AN EXTERNAL REF   ( USE,DEF EXTREF USE  SITUATION ).           GPO      2555
                                        *         FORM LINK LIST OF ALL LDS.  THIS WILL BE SCANNED TO            FCCA499X    7
                                        *         DETERMINE IF ANY STORES INTERFERE WITH SUBSEQUENT LOADS.       FCCA499X    8
                                                                                                                 GPO      2556
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GPO      2557
          1747  20536                             LX5    -R1.INP                                                 GPO      2558
                     53356                        SA3    B6+X5       U2 = UDT(IN[R1]+1)                          GPO      2559
                          76210                   SX2    B1                                                      GPO      2560
                               53535              SA5    B5+X3       SVW = SVA(WI[U2])                           GPO      2561
          1750  26723                             UX7    B2,X3       B = BITN[U2]                                GPO      2562
                     22222                        LX2    B2,X2                                                   GPO      2563
                          12625                   BX6    X2+X5       SVW = SVW ! SHIFT(1,B)                      GPO      2564
                               54650              SA6    A5                                                      GPO      2565
          1751  5130001713 +                      SA3    RDDA                                                    FCCA499X    9
                          73730                   SX7    X3                                                      FCCA499X   10
                               54741              SA7    A4+B1       LDLNK = DI + 1;[LDLNK] = RDDA               FCCA499X   11
          1752  74670                             SX6    A7                                                      FCCA499X   12
                     54630                        SA6    A3          RDDA = LDLNK                                FCCA499X   13
                          0400001744 +            EQ     RDD4                                                    GPO      2566
                                                                                                                 GPO      2567
                                        *         INSTRUCTION *PS* - CLEAR BIT IF ALL DEFS KILLED                GPO      2568
                                                                                                                 GPO      2569
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    73
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
          1753  54541                    RDD4A    SA5    A4+B1       LI = DI + 1;  PSF = [LI]                    GPO      2570
                     43700                        MX7    0                                                       GPO      2571
                          54750                   SA7    A5          [LI] = 0                                    GPO      2572
          1754  0315001744 +                      NZ     X5,RDD4     IF PSF " 0    */ STILL *PS*                 GPO      2573
                          76510                   SX5    B1                                                      GPO      2574
                               20547              LX5    D.PSP                                                   GPO      2575
          1755  15645                             BX6    -X5*X4      PS[DI] = 0                                  GPO      2576
                     54640                        SA6    A4                                                      GPO      2577
                          0400001744 +            EQ     RDD4                                                    GPO      2578
                                                                                                                 GPO      2579
                                        *         INSTRUCTION ^D                                                 GPO      2580
                                                                                                                 GPO      2581
          1756  5054777775               RDD5     SA5    A4-2        R1 = DI - 2                                 GPO      2582
                          26725                   UX7    B2,X5                                                   GPO      2583
                               20607              LX6    D.^DP-D.STP                                             GPO      2584
          1757  0421002012 +                      EQ     B2,B1,RDD50 IF OC[R1] = OC.BOS                          FCCA499X   14
                          0336001767 +            MI     X6,RDD6     IF ST[DI]                                   GPO      2586
          1760  6122777705                        SB2    B2-OC.RJ3                                               GPO      2587
                          0720001744 +            MI     B2,RDD4     IF OC[R1] < OC.RJ3                          GPO      2588
          1761  0712001744 +                      GT     B2,B1,RDD4  IF OC[R1] > OC.RJ6                          GPO      2589
                                   0              ERRNZ  OC.RJ3+1-OC.RJ6                                         GPO      2590
                                                                                                                 GPO      2591
                          5035777767              SA3    A5-8        R1P = R1 - 8                                FCC0612     5
          1762  54551                             SA5    A5+B1       R2 = R1 + 1                                 GPO      2593
                     26623                        UX6    B2,X3                                                   GPO      2594
                          7172777706              SX7    B2-OC.JIN                                               GPO      2595
          1763  0307001744 +                      ZR     X7,RDD4     IF OC[R1P] = OC.JIN  */ COMPUTED GOTO       GPO      2596
                                                  IF     DEF,.FTN,2                                              CCGA035    14
                          5130000000 X            SA3    =XHO$TB                                                 CCGA035    15
          1764  0333002012 +                      MI     X3,RDD50    IF TRACEBACK SELECTED                       CCGA035    16
                          43766                   MX7    -FI.FTL                                                 GPO      2597
                               20506              LX5    -FI.FTP                                                 GPO      2598
          1765  15657                             BX6    -X7*X5      F = FT[R2]    FUNCTION TYPE                 GPO      2599
                     6226777775                   SB2    X6-2                                                    FCC0612     6
          1766  0420001744 +                      ZR     B2,RDD4     IF F = 2      */ *BEF*                      GPO      2601
                                                                                                                 GPO      2602
                          0400002012 +            EQ     RDD50       QUIT UNTIL WE ADD MORE CORE                 FCCA499X   15
                                                                                                                 GPO      2604
          1767  15250                    RDD6     BX2    "RN"X5      R = RI[R1]                                  GPO      2605
                     20536                        LX5    -R1.INP                                                 GPO      2606
                          63250                   SB2    X5          I = IN[R1]                                  GPO      2607
                               53556              SA5    B6+X5       U2 = UDT(I+1)                               GPO      2608
          1770  0420001741 +                      ZR     B2,RDD3     IF I = 0      */ NO *UDT* INDEX             GPO      2609
                                                                                                                 GPO      2612
                                        *         SEE IF STORE IS LIVE                                           GPO      2613
                                                                                                                 GPO      2614
                          53355                   SA3    B5+X5       SW = [SVA+WI[U2]]                           GPO      2615
                               26725              UX7    B2,X5                                                   GPO      2616
          1771  6122777704                        SB2    B2-59       B = 59-BITN[U2]                             GPO      2617
                          55541                   SA5    A4-B1       R2 = DI - 1                                 GPO      2618
                               23623              LX6    -B2,X3                                                  GPO      2619
          1772  0336001741 +                      MI     X6,RDD3     IF SHIFT(SW,B) < 0  */ STORE IS LIVE        GPO      2620
                          20530                   LX5    -IH.RFP                                                 GPO      2621
                               63250              SB2    X5                                                      GPO      2622
          1773  0712001741 +                      GT     B2,B1,RDD3  IF RF[R2] > 1                               GPO      2623
                          10655                   BX6    X5          R2ST = R2                                   FCCA499X   16
          1774  5130001713 +                      SA3    RDDA        LDLNK = RDDA                                FCCA499X   17
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    74
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
                          20644                   LX6    IH.RFP-IH.IHP                                           FCCA499X   18
                                                                                                                 FCCA499X   19
                                        *         SEARCH THRU LINK LIST FOR INTERFERENCE BETWEEN THIS STORE      FCCA499X   20
                                        *         AND SUBSEQUENT LOADS.                                          FCCA499X   21
                                                                                                                 FCCA499X   22
          1775  0303002003 +             RDD10    ZR     X3,RDD30    IF LDLNK = 0   */END OF LIST                FCCA499X   23
                          5253777775              SA5    X3-2        R2LD = LDLNK - 2                            FCCA499X   24
                                                  LX5    -IH.IHP                                                 FCCA499X   25
          1776  13756                             BX7    X5-X6                                                   FCCA499X   26
                     20652                        LX6    IH.IHP-IH.CAP                                           FCCA499X   27
                          73770                   SX7    X7                                                      FCCA499X   28
          1777  0317002002 +                      NZ     X7,RDD20    IF IH[R2ST] " IH[R2LD]                      FCCA499X   29
                          20530                   LX5    IH.IHP-IH.RFP                                           FCCA499X   30
                               73750              SX7    X5                                                      FCCA499X   31
          2000  0317001741 +                      NZ     X7,RDD3     IF RF[R2LD] " 0                             FCCA499X   32
                          20522                   LX5    IH.RFP-IH.CAP                                           FCCA499X   33
                               13756              BX7    X5-X6                                                   FCCA499X   34
          2001  73770                             SX7    X7                                                      FCCA499X   35
                     0307001741 +                 ZR     X7,RDD3     IF CA[R2LD] = CA[R2ST]                      FCCA499X   36
          2002  53330                    RDD20    SA3    X3          LDLNK = [LDLNK]                             FCCA499X   37
                     20622                        LX6    IH.CAP-IH.IHP                                           FCCA499X   38
                          0400001775 +            EQ     RDD10                                                   FCCA499X   39
                                                                                                                 GPO      2624
                                        *         *ST* IS DEAD, CHANGE IT TO A *NOP* AND ADJUST USES OF PRED.    GPO      2625
                                                                                                                 GPO      2626
          2003  53327                    RDD30    SA3    "TB"+X2     DP = TB + R                                 FCCA499X   40
                     76410                        SX4    B1                                                      GPO      2628
                          37634                   IX6    X3-X4       USES[DP] = USES[DP] - 1                     GPO      2629
                               54630              SA6    A3                                                      GPO      2630
          2004  15761                             BX7    -X1*X6                                                  GPO      2631
                     54001                        SA0    A0+B1       DC = DC + 1   */ INC DEAD STORE COUNT       GPO      2632
                          20350                   LX3    59-D.RFP                                                FCC0625     5
                               21373              AX3    59                                                      FCC0625     6
          2005  15773                             BX7    -X3*X7                                                  FCC0625     7
                     0317002007 +                 NZ     X7,RDD40    IF USES[DP] " 0 & ^RF[DP]                   FCCA499X   41
          2006  5100400000                        SA0    1S17        DC = -377777B */ INDICATE DEAD COMPUTATIONS GPO      2634
                                                                                                                 GPO      2635
          2007  5150000046 X             RDD40    SA5    F.RDT+OC.NOP                                            FCCA499X   42
                          6120000046              SB2    OC.NOP                                                  GPO      2637
          2010  27622                             PX6    B2,X2                                                   GPO      2638
                     5064777775                   SA6    A4-2        [DI-2] = TYI(OC.NOP,0,0,R)                  GPO      2639
                               10755              BX7    X5                                                      GPO      2640
          2011  54740                             SA7    A4          [DI] = RDT(OC.NOP)                          GPO      2641
                     0400001744 +                 EQ     RDD4                                                    GPO      2642
                                                                                                                 GPO      2643
          2012  74100                    RDD50    SX1    A0                                                      FCCA499X   43
                                                  TRACE  RDD,RLIST,SEQ                                           GPO      2645
                                                                                                                 GPO      2646
                                        *         CLEAR LOAD LINKS.                                              FCCA499X   44
                                                                                                                 FCCA499X   45
                     5120001713 +                 SA2    RDDA        LDLNK = RDDA                                FCCA499X   46
                               43700              MX7    0                                                       FCCA499X   47
          2013  0302002015 +             RDD54    ZR     X2,RDD56    IF LDLNK = 0   */END OF LIST                FCCA499X   48
                          54720                   SA7    A2          [LDLNK] = 0                                 FCCA499X   49
                               53220              SA2    X2          LDLNK = OLD [LDLNK]                         FCCA499X   50
          2014  0400002013 +                      EQ     RDD54                                                   FCCA499X   51
                                                                                                                 FCCA499X   52
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    75
        RDD - REMOVE DEAD DEFINITIONS FROM A BLOCK                    RDD                 CODE
  
          2015  0301001714 +             RDD56    ZR     X1,RDD      IF DC = 0   */NO DEAD STORES                FCCA499X   53
                          0321002020 +            PL     X1,RDD60    IF DC > 0   */DEAD STORES ONLY              FCCA499X   54
                                                                                                                 GPO      2649
          2016  43601                             MX6    1           L.MOD = 0                                   GPO      2650
                     0100004321 +                 CALL   MPB         RE SQUEEZE AND REWRITE THE BLOCK            GPO      2651
          2017  0400001714 +                      EQ     RDD                                                     GPO      2652
                                                                                                                 GPO      2653
                                                                                                                 GPO      2654
          2020  43600                    RDD60    MX6    0                                                       FCCA499X   55
                     0100004321 +                 CALL   MPB         MOVE THE BLOCK TO *TXT*                     GPO      2656
          2021  0100000000 X                      CALL   CUC#        RESET THE USES COUNTS                       CCGNC     633
          2022  0100000066 +                      CALL   WTB         REWRITE THE BLOCK                           GPO      2658
          2023  0400001714 +                      EQ     RDD                                                     GPO      2659
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    76
        IPS - INSERT POST STORES                                      IPS                 CODE
  
                                        **        IPS - INSERT POST STORES INTO A BLOCK                          GPO      2661
                                        *                                                                        GPO      2662
                                        *         ENTRY  (X4) = [BSW]                                            GPO      2663
                                        *                                                                        GPO      2664
                                        *         EXIT   (X6) = NPS = 0 IF NO POST STORES INTRODUCED             GPO      2665
                                                                                                                 GPO      2666
          2024  0200402024 +             IPS      ROUTINE                                                        GPO      2667
          2025  20430                             LX4    -IM.BIP                                                 GPO      2668
                     63340                        FBVA   X4          BIW = BIT(BN);  BVA = O.BIT + BVI[BIW]      GPO      2669
                               20430              LX4    -BI.PIIP                                                GPO      2670
          2030  43353                             MX3    -BI.PIIL                                                GPO      2671
                     15643                        BX6    -X3*X4      PSI = PII[BIW]  */ INDEX TO POST ST INFO    GPO      2672
                          0306002024 +            ZR     X6,IPS      IF PSI = 0    */ NO POST STORES             GPO      2673
                                                                                                                 GPO      2674
                                        *         SCAN POST STORE LIST AND ADJUST *DEF* AND *UBD* BIT VECTORS    GPO      2675
                                                                                                                 GPO      2676
          2031  5110000000 X                      SA1    O.PSI                                                   GPO      2677
                          5120000000 C            SA2    O.UDT                                                   GPO      2678
          2032  36316                             IX3    X1+X6                                                   GPO      2679
                     5170000104 C                 SA7    VI2                                                     GPO      2680
                               63770              SB7    X7          BVA = BVA                                   GPO      2681
          2033  5253777776                        SA5    X3-1        PI = O.PSI+PSI-1  */ HEADER WORD            GPO      2682
                          63621                   SB6    X2+B1       UB = O.UDT + 1                              GPO      2683
                               63450              SB4    X5          NPS = [PI]    */ N. POST STORES             GPO      2684
          2034  63550                             SB5    X5          N = NPS                                     GPO      2685
                     27046                        PX0    B4,X6                                                   GPO      2686
                          76110                   SX1    B1                                                      GPO      2687
                                                                                                                 GPO      2688
          2035  54551                    IPS1     SA5    A5+B1       PI = PI + 1                                 GPO      2689
                     67551                        SB5    B5-B1       N = N - 1                                   GPO      2690
                          20530                   LX5    -PS.UDIP                                                GPO      2691
                               53456              SA4    B6+X5       U2 = UDT( UDI[PI]+1 )                       GPO      2692
          2036  26734                             UX7    B3,X4       B = BITN[U2];  W = WI[U2]                   GPO      2693
                     53247                        SA2    B7+X4       BDA = BVA + W */ WORD OF DEF VECTOR         GPO      2694
                          22431                   LX4    B3,X1                                                   GPO      2695
                               54322              SA3    A2+B2       UFA = BDA + VL */ UBD WORD                  GPO      2696
          2037  12642                             BX6    X4+X2       [BDA] = [BDA] ! SHIFT(1,B)                  GPO      2697
                     54620                        SA6    A2                                                      GPO      2698
                          15734                   BX7    -X4*X3      [UFA] = ^SHIFT(1,B) & [UFA]                 GPO      2699
                               54730              SA7    A3                                                      GPO      2700
          2040  0550002035 +                      NZ     B5,IPS1     IF N " 0                                    GPO      2701
                                                                                                                 GPO      2702
                                        *         RESCAN LIST AND GENERATE A DEF, SA/XMT , ST FOR EACH ENTRY.    GPO      2703
                                                                                                                 GPO      2704
                          5110000027 +            SA1    O.SEQ                                                   GPO      2705
          2041  5221000004                        SA2    X1+4        R1 = [O.SEQ+4]  */ FIRST AFTER *BOS*        GPO      2706
                          7110000004              SX1    4                                                       GPO      2707
          2042  26622                             UX6    B2,X2                                                   GPO      2708
                     43300                        MX3    0           II = 0                                      GPO      2709
                          7172777771              SX7    B2-OC.LAB                                               GPO      2710
          2043  0317002044 +                      NZ     X7,IPS2     IF OC[R1] " OC.LAB                          GPO      2711
                          10311                   BX3    X1          II = 4                                      GPO      2712
          2044  20344                    IPS2     LX3    ML.IIP                                                  GPO      2713
                                                  LX1    ML.MTIP                                                 GPO      2714
                     76244                        SX2    B4+B4                                                   GPO      2715
                          12113                   BX1    X1+X3                                                   GPO      2716
                               73524              SX5    X2+B4                                                   GPO      2717
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    77
        IPS - INSERT POST STORES                                      IPS                 CODE
  
          2045  20522                             LX5    ML.NIP                                                  GPO      2718
                     12151                        BX1    X5+X1                                                   GPO      2719
                          5100000000 X            ADDWRD MLT,X1      ADDWRD( MLT , MCW(0,II,3*NPS,4) )           GPO      2720
          2047  20554                             LX5    -ML.NIP+2                                               GPO      2721
                     73150                        ALLOC  MOD,X5      ALLOC( MOD , 12*NPS )                       GPO      2722
          2051  5140000000 X                      SA4    O.PSI                                                   GPO      2723
                          63720                   SB7    X2          TB = O.MOD                                  GPO      2724
                               26630              UX6    B3,X0       N = NPS                                     GPO      2725
          2052  36764                             IX7    X6+X4                                                   GPO      2726
                     53570                        SA5    X7          PI = O.PSI + IPSA                           GPO      2727
                          66433                   SB4    B3+B3                                                   GPO      2728
                               66560              SB5    B6          MI = OLD(L.MOD)  */ INDEX FOR DEFS          GPO      2729
          2053  66444                             SB4    B4+B4                     (B4) = 4*NPS                  FCC0656    41
                                                                                                                 GPO      2731
          2054  43106                    IPS3     MX1    PS.REGL                                                 GPO      2732
                                                  LX1    PS.REGL+PS.REGP                                         GPO      2733
                     11215                        BX2    X1*X5                                                   GPO      2734
                          20226                   LX2    R1.SOP-PS.REGP                                          GPO      2735
                               76150              SX1    B5                                                      GPO      2736
          2055  12621                             BX6    X2+X1                                                   GPO      2737
                     6120000005                   SB2    OC.DEF                                                  GPO      2738
                               43700              MX7    0                                                       GPO      2739
          2056  66650                             SB6    B5          TI = MI                                     GPO      2740
                     20247                        LX2    58-R1.SOP-SO.RTP                                        FCC1025     7
                          0100000124 +            RJ     SRI         SRI( DEF  MI,REG[PI] )                      GPO      2742
          2057  66654                             SB6    B5+B4       TI = MI + 4*NPS                             GPO      2743
                     76660                        SX6    B6                                                      GPO      2744
                          20140                   LX1    R1.RJP                                                  GPO      2745
                               12616              BX6    X1+X6                                                   GPO      2746
          2060  6120000010                        SB2    OC.XMT      OC = OC.XMT;  R2W = 0                       FCC1025     8
                          0332002062 +            MI     X2,IPS4     IF REG[PI] \ 20B                            FCC1025     9
          2061  6120000060                        SB2    OC.SA       OC = OC.SA                                  FCC1025    10
                          43130                   MX1    -PS.CAIHL                                               FCC1025    11
                               15751              BX7    -X1*X5      R2W = IHW(0,CAIH[PI])                       FCC1025    12
          2062  0100000124 +             IPS4     RJ     SRI         SRI( OC  MI+4*NPS,MI, R2W )                 FCC1025    13
          2063  7166777773                        SX6    B6-4        R = TI - 4                                  GPO      2752
                          63664                   SB6    X6+B4       TI = R + 4*NPS                              GPO      2753
                               43130              MX1    -PS.CAIHL                                               GPO      2754
          2064  15751                             BX7    -X1*X5                                                  GPO      2755
                     20530                        LX5    -PS.UDIP                                                GPO      2756
                          6120000051              SB2    OC.ST                                                   GPO      2757
          2065  73550                             SX5    X5                                                      GPO      2758
                     20536                        LX5    R1.INP                                                  GPO      2759
                          67331                   SB3    B3-B1       N = N - 1                                   GPO      2760
                               12656              BX6    X5+X6                                                   GPO      2761
          2066  6155000004                        SB5    B5+4        MI = MI + 4                                 FCC0656    42
                          0100000136 +            RJ     SMI         SMI( ST  R,,CAIH[PI],UDI[PI] )              FCC0656    43
          2067  54551                             SA5    A5+B1       PI = PI + 1                                 GPO      2764
                     0530002054 +                 NZ     B3,IPS3     IF N " 0                                    GPO      2765
                                                                                                                 GPO      2766
          2070  5150000104 C                      SA5    VI2                                                     FCC0509    11
                          43601                   MX6    1                                                       FCC0509    12
          2071  0100002075 +                      RJ     AUV         MERGE, SQZ BLOCK AND ADJUST BIT VECTORS     FCC0509    13
          2072  0100000000 X                      CALL   RTB#        AND GET IT BACK                             CCGNC     634
          2073  76610                             SX6    B1                                                      GPO      2772
                     0400002024 +                 EQ     IPS                                                     GPO      2773
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    78
        AUV - ADJUST USE VECTOR                                       AUV                 CODE
  
                                        **        AUV - ADJUST *USE* BIT VECTOR AFTER A *SQZB* CALL TO ACCOUNT   GPO      2775
                                        *                FOR ANY STORE/LOAD SQUEEZING THAT TOOK PLACE.           GPO      2776
                                        *         THIS IS DONE PRIOR TO THE *RDD* CALL SO AS TO GET RID OF       GPO      2777
                                        *         THE INTRA BLOCK USES.                                          GPO      2778
                                        *                                                                        GPO      2779
                                        *         ENTRY  (X5) = BVA , BLOCK BIT VECTOR ADDRESS                   GPO      2780
                                        *                (X6) = *MPB* CALL FLAG                                  FCC0509    14
                                                                                                                 GPO      2781
          2074                           AUVA     BFMW   D,(LD,BM)                                               GPO      2782
                                                                                                                 GPO      2783
          2075  0200402075 +             AUV      ROUTINE                                                        GPO      2784
          2076  5110000011 C                      SA1    SVA                                                     FCC0509    15
                          5120000000 C            SA2    VL                                                      FCC0509    16
          2077  10755                             BX7    X5                                                      FCC0509    17
                     5170000104 C                 SA7    VI2                                                     FCC0509    18
                               36712              IX7    X1+X2                                                   FCC0509    19
          2100  5170000000 X                      SA7    =XSUVA      SUVA = SVA+VL  */ SET FLAG FOR SQZ/SMR      FCC0509    20
                          20201                   LX2    1                                                       FCC0509    21
                               63610              SB6    X1                                                      FCC0509    22
          2101  63726                             SB7    B6+X2                                                   FCC0509    23
                     43700                        MX7    0                                                       FCC0509    24
          2102  56760                    AUV1     SA7    B6          FOR I = 1 TO 2*VL;  SVA(I) = 0              FCC0509    25
                     66661                        SB6    B6+B1                                                   FCC0509    26
                          0767002102 +            LT     B6,B7,AUV1                                              FCC0509    27
                                                                                                                 FCC0509    28
          2103  0100004321 +                      CALL   MPB         MERGE MODS AND SQZ BLOCK                    FCC0509    29
          2104  7170000000                        SX7    0                                                       FCC0509    30
                          5170000000 X            SA7    SUVA        SUVA = 0                                    FCC0509    31
          2105  5150000104 C                      SA5    VI2                                                     FCC0509    32
                          5110000000 X            SA1    =XSTLDS                                                 GPO      2785
          2106  0301002075 +                      ZR     X1,AUV      IF STLDS = 0  */ NO STORE/LD SQUEEZING      GPO      2786
                                                                                                                 GPO      2787
                          5120000011 C            SA2    SVA                                                     GPO      2788
          2107  5130000000 C                      SA3    VL                                                      GPO      2789
                          5110000000 C            SA1    O.UDT                                                   GPO      2790
          2110  5140000000 X                      SA4    O.TXT                                                   GPO      2791
                          22613                   LX6    B1,X3                                                   GPO      2792
                               63430              SB4    X3                        (B4) = VL                     GPO      2793
          2111  63520                             SB5    X2                        (B5) = SVA                    GPO      2794
                     63754                        SB7    X5+B4       UFA = BVA + VL  */ USE FIRST ADDRESS        GPO      2795
                          53011                   SA0    X1+B1                     (A0) = O.UDT + 1              FCC0509    33
          2112  5110002074 +                      SA1    AUVA                                                    GPO      2803
                          66211                   SB2    B1+B1                                                   GPO      2804
                               53442              SA4    X4+B2       DI = O.TXT + 2                              GPO      2805
          2113  76710                             SX7    B1                                                      GPO      2806
                     0400002117 +                 EQ     AUV3                                                    GPO      2807
                                                                                                                 GPO      2808
                                        *         SET BIT FOR REFERENCED VARIABLE                                GPO      2809
                                                                                                                 GPO      2810
          2114  20536                    AUV2     LX5    -R1.INP                                                 GPO      2811
                     63350                        SB3    X5          I = IN[R1]                                  GPO      2812
                          0430002117 +            ZR     B3,AUV3     IF I = 0                                    GPO      2813
                                                                                                                 GPO      2814
          2115  54303                             SA3    A0+B3       U2 = UDT(I+1);  W = WI[U2]                  GPO      2815
                     53235                        SA2    B5+X3                                                   GPO      2816
                          26563                   UX5    B6,X3                                                   GPO      2817
                               22467              LX4    B6,X7                                                   GPO      2818
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    79
        AUV - ADJUST USE VECTOR                                       AUV                 CODE
  
          2116  12642                             BX6    X4+X2       SVA(W) = SVA(W) ! SHIFT(1,BITN[U2])         GPO      2819
                     54620                        SA6    A2                                                      GPO      2820
                                                                                                                 GPO      2821
                                        *         ADVANCE TO NEXT INSTRUCTION                                    GPO      2822
                                                                                                                 GPO      2823
          2117  54542                    AUV3     SA5    A4+B2       R1 = DI + 2                                 GPO      2824
                     54452                        SA4    A5+B2       DI = R1 + 2                                 GPO      2825
                          11614                   BX6    X1*X4                                                   GPO      2826
                               20430              LX4    59-D.LDP                                                GPO      2827
          2120  0306002117 +                      ZR     X6,AUV3     IF ^( LD[DI] ! BM[DI] )                     GPO      2828
                          0334002114 +            MI     X4,AUV2     IF LD[DI]                                   GPO      2829
                                                                                                                 GPO      2830
          2121  26635                             UX6    B3,X5                                                   GPO      2831
                     0430002124 +                 ZR     B3,AUV4     IF OC[R1] = OC.EOQ  */ END OF SEQ           GPO      2832
          2122  7163777704                        SX6    B3-OC.RJ6                                               GPO      2833
                          0316002117 +            NZ     X6,AUV3     IF OC[R1] " OC.RJ6                          GPO      2834
                                                                                                                 GPO      2835
                                        *         USER OR I/O REFERENCE, EXIT SINCE WE HAVE LOST THE PARAMETER   GPO      2836
                                        *         LIST INFORMATION AT THE END OF THE BLOCK DURING THE MERGE.     GPO      2837
                                                                                                                 GPO      2838
          2123  0400002075 +                      EQ     AUV                                                     GPO      2839
                                                                                                                 GPO      2840
                                        *         ADJUST *USE* AND *UBD* BV"S, USE = USE & ^(SVA2 & ^SVA)        FCC0509    34
                                                                                                                 FCC0509    35
          2124  56253                    AUV4     SA2    B5+B3                     SVA                           FCC0509    36
                     54324                        SA3    A2+B4                     SVA2                          FCC0509    37
                          56173                   SA1    B7+B3                     UBD                           FCC0509    38
                               54414              SA4    A1+B4                     USE                           FCC0509    39
          2125  15532                             BX5    -X2*X3                                                  FCC0509    40
                     15645                        BX6    -X5*X4      USE(I) = USE(I) & ^(SVA2(I) & ^SVA(I) )     FCC0509    41
                          54640                   SA6    A4                                                      FCC0509    42
                               11761              BX7    X6*X1       UBD(I) = UBD(I) & USE(I)                    FCC0509    43
          2126  54710                             SA7    A1                                                      FCC0509    44
                     66331                        SB3    B3+B1       I = I + 1                                   FCC0509    45
                          0734002124 +            LT     B3,B4,AUV4  IF I < VL                                   GPO      2850
                                                                                                                 GPO      2851
                                                  PRNTABV  AUV,SVA                                               GPO      2852
          2127  0400002075 +                      EQ     AUV                                                     GPO      2853
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    80
        FEI - FORM ENTRY INFORMATION                                  FEI                 CODE
  
                                        **        FEI - FORM ENTRY INFORMATION                                   FCCA513X   11
                                        *         COMPUTE REGION LIVE ENTRY BIT VECTOR.                          FCCA513X   12
                                                                                                                 FCCA513X   13
          2130  0200402130 +             FEI      ROUTINE                                                        FCCA513X   14
          2131  5140000050 +                      SA4    HBI+1       BN = BN[HBI(2)]   */ HEADER NODE            FCCA513X   15
                          63340                   FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  FCCA513X   16
                     5120000007 C                 SA2    LEA                                                     FCCA513X   17
                               66320              SB3    B2                                                      FCCA513X   18
          2135  66422                             SB4    B2+B2                                                   FCCA513X   19
                     53370                        SA3    X7          BDA = BVA                                   FCCA513X   20
                          53472                   SA4    X7+B2       UFA = BVA + VL  */ UBD                      FCCA513X   21
                               54544              SA5    A4+B4       LXW = BVA + 3*VL  */ LX                     FCCA513X   22
          2136  15053                             BX0    -X3*X5                                                  FCCA513X   23
                     12604                        BX6    X0+X4       LEW = ^[BDA] & [LXW] ! [UFA]                FCCA513X   24
                          53220                   SA2    X2                                                      FCCA513X   25
                               12662              BX6    X6+X2       [LEA] = LEW ! [LEA] */ ACCNT FOR MOVED ST"S FCCA513X   26
          2137  54620                             SA6    A2                                                      FCCA513X   27
                     67221                        SB2    B2-B1                                                   FCCA513X   28
                          0420002130 +            ZR     B2,FEI      IF VL = 1                                   FCCA513X   29
          2140  54331                    FEI1     SA3    A3+B1       = BDA                                       FCCA513X   30
                     54441                        SA4    A4+B1       = UFA                                       FCCA513X   31
                          54551                   SA5    A5+B1       = LXW                                       FCCA513X   32
                               67221              SB2    B2-B1       VL = VL - 1                                 FCCA513X   33
          2141  54221                             SA2    A2+B1       = LEA                                       FCCA513X   34
                     15053                        BX0    -X3*X5                                                  FCCA513X   35
                          12604                   BX6    X0+X4                                                   FCCA513X   36
                               12662              BX6    X6+X2                                                   FCCA513X   37
          2142  54620                             SA6    A2          LEA = ^[BDA] & [LXA] ! [UFA]                FCCA513X   38
                     0520002140 +                 NZ     B2,FEI1                                                 FCCA513X   39
                                                                                                                 FCCA513X   40
          2143  0400002130 +                      EQ     FEI                                                     FCCA513X   41
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    81
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
                                        **        FXI - FORM EXIT INFORMATION                                    GPO      2855
                                        *         BUILD LIST OF SUCCESSORS OF *SCR* AND THEIR LIVE ENTRY VECTORS GPO      2857
                                        *         FORM REGION LIVE EXIT AND MOVABLE DEF VECTORS.                 GPO      2858
                                                                                                                 GPO      2859
          2144  0200402144 +             FXI      ROUTINE                                                        GPO      2860
          2145  5140000050 +                      SA4    HBI+1       BN = BN[HBI(2)]   */ HEADER NODE            GPO      2861
                          63340                   FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  GPO      2862
                     66300                        SB3    B0                                                      FCCA513X   42
                                                                                                                 GPO      2882
                                        *         INITIALIZE *MD* VECTOR AS *DEF(R)* ( MOVABLE DEFS )            GPO      2883
                                                                                                                 GPO      2884
                          5110000003 C            SA1    DVA                                                     FCCA513X   43
          2151  5120000010 C                      SA2    MDA                                                     GPO      2886
          2152  53313                    FXI2     SA3    X1+B3       MOVE( VL , DVA , MDA )                      FCCA513X   44
                     10633                        BX6    X3                                                      GPO      2888
                          53623                   SA6    X2+B3                                                   FCCA513X   45
                               66331              SB3    B3+B1                                                   FCCA513X   46
          2153  0732002152 +                      LT     B3,B2,FXI2                                              FCCA513X   47
                                                                                                                 GPO      2892
                                        *         FORM *SCR* SUCCESSOR LIST. FIRST MARK THE NODES IN THE         GPO      2893
                                        *         *SCR* AS *SCR* IN *BTT*.                                       GPO      2894
                                                                                                                 GPO      2895
                          5110000043 +            SA1    IBA                                                     GPO      2896
          2154  54211                             SA2    A1+B1                                                   GPO      2897
                     43001                        MX0    1                                                       GPO      2898
                          5130000035 +            SA3    O.BTT                                                   GPO      2899
          2155  36612                             IX6    X1+X2                                                   GPO      2900
                     63730                        SB7    X3                                                      GPO      2901
                          63660                   SB6    X6          IPL = IBA + NN  */ LWA+1 OF INTERVAL LIST   GPO      2902
                                                  LX0    1+E.SCRP                                                GPO      2903
                               56560              SA5    B6          IP = IPL                                    GPO      2904
                                                                                                                 GPO      2905
          2156  55551                    FXI4     SA5    A5-B1       IP = IP - 1                                 GPO      2906
                                                  LX5    59-IM.SCRP                                              GPO      2907
                     0325002156 +                 PL     X5,FXI4     IF ^SCR[IP]                                 GPO      2908
                                                                                                                 GPO      2909
                                                  LX5    1+IM.SCRP-IM.BNP                                        GPO      2910
                               53457              SA4    B7+X5                                                   GPO      2911
          2157  12604                             BX6    X0+X4       SCR[BTT(BN[IP])] = 1                        GPO      2912
                     20505                        LX5    IM.BNP+59-IM.HNP                                        GPO      2913
                          5064000000              SA6    A4+                                                     GPO      2914
          2160  0325002156 +                      PL     X5,FXI4     IF ^HN[IP]                                  GPO      2915
                                                                                                                 GPO      2916
                                        *         RESCAN THE INTERVAL LIST AND FORM THE SUCCESSOR LIST IN *BTT*  GPO      2917
                                                                                                                 GPO      2918
                          5110000041 +            SA1    EIT                                                     GPO      2919
          2161  5120000015 +                      SA2    O.BIT                                                   GPO      2920
                          43600                   MX6    0                                                       GPO      2921
                               56670              SA6    B7          BTT(0) = 0                                  GPO      2922
          2162  56000                             SA0    B0          NX = 0        */ N. EXIT NODES              GPO      2923
                     66500                        SB5    B0          LS = 0        */ LAST SUCCESSOR             GPO      2924
                          56560                   SA5    B6          IP = IPL                                    GPO      2925
                               20073              LX0    E.JPP-E.SCRP                                            GPO      2926
          2163  63610                             SB6    X1          EIB = [EIT]   */ BASE OF EDGE INDEX TABLE   GPO      2927
                     63420                        SB4    X2                        (B4) = [O.BIT]                GPO      2928
                                                                                                                 GPO      2929
          2164  55551                    FXI5     SA5    A5-B1       IP = IP - 1                                 GPO      2930
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    82
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
                                                  LX5    59-IM.SCRP                                              GPO      2931
                     0325002164 +                 PL     X5,FXI5     IF ^SCR[IP]                                 GPO      2932
                                                  LX5    1+IM.SCRP-IM.BNP                                        GPO      2933
                                                                                                                 GPO      2934
                               53456              SA4    B6+X5       EII = EIB + BN[IP]                          GPO      2935
          2165  20460                             LX4    -EI.SUIP                                                GPO      2936
                     26634                        UX6    B3,X4       N = NS[EII]                                 GPO      2937
                          53346                   SA3    B6+X4       SI = EIB + SUI[EII]                         GPO      2938
                                                                                                                 GPO      2939
                                        *         ADD SUCCESSORS OF NODE THAT ARE NOT *SCR* IN *BTT* TO EXIT LIS GPO      2940
                                                                                                                 GPO      2941
                                         FXI6     LX3    -ET.SUCCP   J = SUCC[SI]  */ BN OF SUCCESSOR            GPO      2942
          2166  53237                             SA2    B7+X3       B = BTT(J)                                  GPO      2943
                     67331                        SB3    B3-B1       N = N - 1                                   GPO      2944
                                                  LX2    59-E.SCRP                                               GPO      2945
                          0332002176 +            MI     X2,FXI8     IF SCR[B]     */ SUCC IS IN *SCR*           GPO      2946
                                                                                                                 GPO      2947
          2167  43163                             MX1    -E.NPREDL                                               GPO      2948
                     20214                        LX2    1+E.SCRP-E.NPREDP                                       GPO      2949
                          15621                   BX6    -X1*X2                                                  GPO      2950
          2170  0316002174 +                      NZ     X6,FXI7     IF NPRED[B] " 0 */ NOT FIRST TIME REACHED   GPO      2951
                                                                                                                 GPO      2952
                          53436                   SA4    B6+X3       EIJ = EIB + J                               GPO      2953
                               20436              LX4    -EI.NPP                                                 GPO      2954
          2171  54001                             SA0    A0+B1       NX = NX + 1                                 GPO      2955
                     15741                        BX7    -X1*X4                                                  GPO      2956
                          53457                   SA4    B7+X5                                                   FCC0985     7
                               73640              SX6    X4                                                      FCC0985     8
          2172  12272                             BX2    X7+X2       NPRED[B] = NP[EIJ]  */ N.PRED OF SUCC       GPO      2958
                     20655                        LX6    E.PREDP-E.NPREDP                                        GPO      2959
                          76750                   SX7    B5                                                      GPO      2960
                               12262              BX2    X6+X2       PRED[B] = BTT(BN[IP])  */ FIRST PRED TO REA FCC0985     9
          2173  20733                             LX7    E.LINKP-E.NPREDP                                        GPO      2962
                     12272                        BX2    X7+X2       LINK[B] = LS  */ POINT THIS TO LAST         GPO      2963
                          64520                   SB5    A2          LS = BTT(J)                                 GPO      2964
                                                                                                                 GPO      2965
          2174  76110                    FXI7     SX1    B1                                                      GPO      2966
                     20373                        LX3    E.JPP-ET.JPP+ET.SUCCP                                   GPO      2967
                          37221                   IX2    X2-X1       NPRED[B] = NPRED[B] - 1                     GPO      2968
                               11603              BX6    X0*X3                                                   GPO      2969
          2175  20260                             LX2    E.NPREDP                                                GPO      2970
                     12762                        BX7    X6+X2       JP[B] = JP[B] ! JP[SI]                      GPO      2971
                          54720                   SA7    A2                                                      GPO      2972
                                                                                                                 GPO      2973
          2176  54331                    FXI8     SA3    A3+B1       SI = SI + 1                                 GPO      2974
                     0530002166 +                 NZ     B3,FXI6     IF N " 0                                    GPO      2975
                                                                                                                 GPO      2976
                               20505              LX5    59-IM.HNP+IM.BNP                                        GPO      2977
          2177  0325002164 +                      PL     X5,FXI5     IF ^HN[IP]                                  GPO      2978
                                                                                                                 GPO      2979
                          20523                   LX5    1+IM.HNP-IM.BIP                                         GPO      2980
                               73650              SX6    X5                                                      GPO      2981
          2200  20544                             LX5    IM.BIP-IM.BNP                                           GPO      2982
                     53657                        SA6    B7+X5       BTT(BN[IP]) = BI[IP]  */ RESTORE HEADER ENT GPO      2983
                                                                                                                 GPO      2984
                          76650                   SX6    B5                                                      GPO      2985
                               74700              SX7    A0                                                      GPO      2986
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    83
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2201  5160000031 C                      SA6    O.ENL                                                   GPO      2987
                          5170000032 C            SA7    N.ENL                                                   GPO      2988
                                                                                                                 GPO      2989
                                        *         SCAN THE EXIT NODE LIST AND MOVE THE LIST AND THE LIVE ENTRY   GPO      2990
                                        *         BIT VECTORS TO *RXI*.  FORMAT -                                GPO      2991
                                        *         0, BTT WORD,LE&DEFR,...,0                                      GPO      2992
                                        *         COMPUTE THE REGION LIVE EXIT BIT VECTOR AND ADJUST *MD*.       GPO      2993
                                                                                                                 GPO      2994
          2202  5150000002 C                      SA5    BVL                                                     GPO      2995
                          7235000002              SX3    X5+2                                                    GPO      2996
          2203  42273                             IX2    X7*X3                                                   GPO      2997
                     7212000002                   ALLOC  RXI,X2+2    ALLOC( RXI , NX*(BVL+2)+2 )                 GPO      2998
          2205  43700                             MX7    0                                                       GPO      2999
                     53720                        SA7    X2          RI = [O.RXI];  [RI] = 0                     GPO      3000
                          5110000015 +            SA1    O.BIT                                                   GPO      3001
          2206  5120000006 C                      SA2    LXA                                                     GPO      3002
                          5130000010 C            SA3    MDA                                                     GPO      3003
          2207  5140000031 C                      SA4    O.ENL                                                   GPO      3004
                          63451                   SB4    X5+B1       VL = BVL + 1                                GPO      3005
                               66544              SB5    B4+B4                                                   GPO      3006
          2210  63610                             SB6    X1                                                      GPO      3007
                     63720                        SB7    X2                                                      GPO      3008
                          53030                   SA0    X3                                                      GPO      3009
                               53540              SA5    X4          XI = [O.ENL];  XW = [XI]                    GPO      3010
          2211  0304002241 +                      ZR     X4,FXI15    IF O.ENL = 0  */ LOOP WITHOUT EXITS         GPO      3011
                                                                                                                 GPO      3012
                                        *         CHECK SUCCESSOR NODE, SEE IF POST STORES TO IT ARE POSSIBLE    FCC0392    89
                                                                                                                 FCC0392    90
          2212  43155                    FXI9     MX1    -E.BIL                                                  FCC0392    91
                     76010                        SX0    B1          PSP = 1       */ POST STORES POSSIBLE       FCC0392    92
                          15651                   BX6    -X1*X5      I = BI[XW]                                  FCC0392    93
                               63260              SB2    X6                                                      FCC0392    94
          2213  54650                             SA6    A5          [XI] = I      */ RESTORE *BTT* ENTRY        FCC0392    95
                     10755                        BX7    X5                                                      FCC0392    96
                          43463                   MX4    -E.NPREDL                                               FCC0392    97
                               20714              LX7    -E.NPREDP                                               FCC0392    98
          2214  15774                             BX7    -X4*X7                                                  FCC0392    99
                     0307002230 +                 ZR     X7,FXI11    IF NPRED[XW] = 0                            FCC0392   100
                               56162              SA1    B6+B2                                                   FCC0392   101
          2215  20105                             LX1    59-BI.HNP                                               FCC0392   102
                     0321002225 +                 PL     X1,FXI10    IF ^HN[BIT(I)]                              FCC0392   103
                                                                                                                 FCC0392   104
                                        *         SUCCESSOR NODE IS THE HEADER NODE OF ANOTHER LOOP, SEARCH *HNT FCC0392   105
                                        *         FOR I, AND SUBSTITUTE THE *BI* OF THE *HB*.                    FCC0392   106
                                                                                                                 FCC0392   107
          2216  5120000037 +                      SA2    L.HNT                                                   FCC0392   108
                          5110000036 +            SA1    O.HNT                                                   FCC0392   109
          2217  53620                             SA6    X2          [L.HNT] = I   */ SEARCH TERMINATOR          FCC0392   110
                     53110                        SA1    X1          HI = [O.HNT]                                FCC0392   111
                                                                                                                 FCC0392   112
          2220  10211                    FXI9A    BX2    X1          HIL = [HI]                                  FCC0392   113
                     63310                        SB3    X1                                                      FCC0392   114
                          5011000001              SA1    A1+1        HI = HI + 1                                 FCC0392   115
          2221  0523002220 +                      NE     B2,B3,FXI9A IF HNI[HIL] " I                             FCC0392   116
                                                                                                                 FCC0392   117
                          20253                   LX2    -H.HBIP+1                                               FCC0392   118
                               63220              SB2    X2          I = 2*HBI[HIL]  */ SUBSTITUTE *HB*          FCC0392   119
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    84
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2222  43455                             MX4    -E.BIL                                                  FCC0392   120
                     73620                        SX6    X2                                                      FCC0392   121
                          11545                   BX5    X4*X5                                                   FCC0392   122
                               12556              BX5    X5+X6       BI[XW] = I                                  FCC0392   123
          2223  20251                             LX2    H.HBIP-1-H.NIPP                                         FCC0392   124
                     73220                        SX2    X2                                                      FCC0392   125
                                                  PRINT FXI,(* HEADER,HB,N.PRED,NIP =*4Z7),(B3,B2,X7,X2)         FCC0392   126
                          37772                   IX7    X7-X2                                                   FCC0392   127
          2224  0307002230 +                      ZR     X7,FXI11    IF NPRED[XW] = NIP[HIL]                     FCC0985    10
                                                                                                                 FCC0392   129
          2225  10755                    FXI10    BX7    X5                                                      FCC0392   130
                     76000                        SX0    B0          PSP = 0                                     GPO      3019
                          20701                   LX7    59-E.JPP                                                GPO      3020
          2226  0337002230 +                      MI     X7,FXI11    IF JP[XW]     */ REACHED BY A JUMP          GPO      3021
                                                                                                                 GPO      3025
                                        *         SUCC REACHED BY THE FALL THROUGH AND HAS AN ACTIVE INITIAL     GPO      3026
                                        *         LABEL, SETUP TO ISSUE POST STORES AFTER THE LOOP BACK JUMP.    GPO      3027
                                                                                                                 GPO      3028
                          5110000033 C            SA1    EPSI                                                    FCC0985    11
                                         .SCR     BIT    E.SCRP-E.ALLPP                                          GPO      3030
          2227  7100000004                        SX0    .SCR        PSP = 4       */ POST STORES POSSIBLE       GPO      3031
                          73611                   SX6    X1+B1       EPSI = EPSI + 1                             FCC0985    12
                               54610              SA6    A1                                                      FCC0985    13
                                                                                                                 GPO      3035
          2230  20071                    FXI11    LX0    E.ALLPP                                                 GPO      3036
                     12705                        BX7    X0+X5       ALLP[XW] = PSP & 1                          GPO      3037
                          54771                   SA7    A7+B1       RI = RI + 1;  [RI] = XW                     FCC0392   131
                               56362              SA3    B6+B2                                                   FCC0392   132
          2231  5120000017 +                      SA2    O.BVT                                                   GPO      3042
                          20555                   LX5    -E.LINKP                                                GPO      3043
                                                  LX3    -BI.BVIP                                                GPO      3045
                               63220              SB2    X2                                                      GPO      3046
          2232  66300                             SB3    B0          J = 0                                       GPO      3047
                     63232                        SB2    B2+X3       BVA = O.BVT + BVI[BIT(I)]                   GPO      3048
                                                                                                                 GPO      3049
          2233  56120                    FXI12    SA1    B2          DV = BVA                                    GPO      3050
                     56224                        SA2    B2+B4       UFA = BVA + VL                              GPO      3051
                          54325                   SA3    A2+B5       BXW = [UFA+2*VL]  */ BLOCK LIVE EXIT        GPO      3052
                               56473              SA4    B7+B3       RLX = LXA + J                               GPO      3053
          2234  15631                             BX6    -X1*X3                                                  GPO      3054
                     12762                        BX7    X6+X2       LEW = ^DEF&BXW!UFW                          GPO      3055
                          54771                   SA7    A7+B1       RI = RI + 1;  [RI] = LEW                    GPO      3056
                               12647              BX6    X4+X7       RLX = LEW ! RLX                             GPO      3057
          2235  54640                             SA6    A4                                                      GPO      3058
                     0310002237 +                 NZ     X0,FXI13    IF PSP " 0                                  GPO      3059
                               54203              SA2    A0+B3       MDW = [MDA+J]                               GPO      3060
          2236  15627                             BX6    -X7*X2      MDW = MDW & ^LEW                            GPO      3061
                     54620                        SA6    A2                                                      GPO      3062
                                                                                                                 GPO      3063
          2237  66331                    FXI13    SB3    B3+B1       J = J + 1                                   GPO      3064
                     66221                        SB2    B2+B1       BVA = BVA + 1                               GPO      3065
                          0734002233 +            LT     B3,B4,FXI12 IF J < VL                                   GPO      3066
                                                                                                                 GPO      3067
          2240  73450                             SX4    X5          XI = LINK[XW]                               GPO      3068
                     53550                        SA5    X5          XW = [XI]                                   GPO      3069
                          0314002212 +            NZ     X4,FXI9     IF XI " 0     */ NOT END OF LIST            FCC0392   133
                                                                                                                 GPO      3071
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    85
        FXI - FORM EXIT INFORMATION                                   FXI                 CODE
  
          2241  43700                    FXI15    MX7    0                                                       GPO      3072
                     54771                        SA7    A7+B1       RI = RI + 1;  [RI] = 0                      GPO      3073
                                                                                                                 GPO      3074
                                                  IF     DEF,/DEBUG/FXI,2                                        GPO      3075
                                                  DCALL  PRNTRXI,([O.RXI])                                       GPO      3076
                                                  PRNTABV  FXI,(LEA,MDA)                                         GPO      3077
                          0400002144 +            EQ     FXI                                                     GPO      3078
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    86
        SHB - SQUEEZE HOLDING BLOCK                                   SHB                 CODE
  
                                        **        SHB - SQUEEZE HOLDING BLOCK TO REMOVE REDUNDANT INSTRUCTIONS.  GPO      3080
                                        *                                                                        GPO      3081
                                        *         ENTRY  (X6) = CT = 0 FOR FIRST SQZ, 1 FOR VAR INCR SQZ         GPO      3082
                                                                                                                 GPO      3083
          2242  0200402242 +             SHB      ROUTINE                                                        GPO      3084
          2243  7170000000                        SX7    0           BSI = 0                                     GPO      3085
                          5170000032 +            SA7    BSI                                                     GPO      3086
          2244  0306002257 +                      ZR     X6,SHB1     IF CT = 0                                   GPO      3087
                                                                                                                 GPO      3088
                                        *         SETUP FOR SQUEEZE OF VARIABLE INCREMENT CODE                   GPO      3089
                                                                                                                 GPO      3090
                          5170000000 X            SA7    L.TXT       L.TXT = 0                                   GPO      3091
          2245  0100000000 X                      CALL   RTB#        GET HOLDING BLOCK POINTERS                  CCGNC     635
          2246  5150000034 +                      SA5    L.HB                                                    GPO      3093
                          5140000000 X            SA4    L.MOD                                                   GPO      3094
          2247  36245                             IX2    X4+X5                                                   GPO      3095
                     7212777773                   ALLOC  TXT,X2-4    ALLOC( TXT , L.HB + L.MOD-4 )               GPO      3096
          2251  36025                             IX0    X2+X5       FM = O.TXT + L.HB                           GPO      3097
                     73320                        SX3    X2                                                      GPO      3098
                          5120000027 +            SA2    O.SEQ                                                   GPO      3099
          2252  73150                             MOVE   X5,X2,X3    MOVE( L.HB , O.SEQ , O.TXT )                GPO      3100
          2253  5110000000 X                      SA1    L.MOD                                                   GPO      3101
                          5120000000 X            SA2    O.MOD                                                   GPO      3102
          2254  7211777773                        MOVE   X1-4,X2+4,X0      MOVE( L.MOD-4 , O.MOD+4 , FM )        GPO      3103
          2256  7160000004                        SX6    4                                                       GPO      3104
                          5160000000 X            SA6    L.MOD       L.MOD = 4                                   GPO      3105
                                                                                                                 GPO      3106
                                        *         TERMINATE THE HB WITH AN *EOQ* AND CALL *SQZ* TO REDUCE IT     GPO      3107
                                                                                                                 GPO      3108
          2257  7110000004               SHB1     ALLOC  TXT,4                                                   GPO      3109
          2261  63720                             SB7    X2          TB = O.TXT; TI = OLD(L.TXT)                 GPO      3110
                     43600                        MX6    0                                                       GPO      3111
                          66200                   SB2    B0                                                      GPO      3112
                               43700              MX7    0                                                       GPO      3113
          2262  0100000124 +                      RJ     SRI         SRI( EOQ  0,0 )                             GPO      3114
          2263  7160000004                        SX6    4                                                       GPO      3115
                          7176777767              SX7    B6-8                                                    GPO      3116
          2264  0307002267 +                      ZR     X7,SHB2     IF L.TXT = 8  */ NOTHING MOVED TO HB        GPO      3117
                          7160000001              SX6    1                                                       GPO      3118
          2265  0100000000 X                      CALL   SQZB#       SQUEEZE THE BLOCK                           CCGNC     636
          2266  5110000000 X                      SA1    L.TXT                                                   GPO      3120
                          7261777773              SX6    X1-4                                                    GPO      3121
                                                                                                                 GPO      3122
          2267  5120000000 X             SHB2     SA2    O.TXT                                                   GPO      3123
                          7276000004              SX7    X6+4                                                    GPO      3124
          2270  5160000034 +                      SA6    L.HB        L.HB = L.TXT - 4                            GPO      3125
                                                  LX7    R2.TXTLP    TXTL[TXT+1] = L.TXT                         GPO      3126
                          53721                   SA7    X2+B1                                                   GPO      3127
          2271  0100000000 X                      CALL   WMB#        WRITE HOLDING BLOCK TO *BLK*                CCGNC     637
                                                                                                                 GPO      3129
                                                  TRACE  SHB,RLIST                                               GPO      3130
          2272  0400002242 +                      EQ     SHB                                                     GPO      3131
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    87
        MII - MARK INVARIANT INSTRUCTIONS                             MII                 CODE
  
                                        **        MII - MARK INVARIANT INSTRUCTIONS, COLLECT INFORMATION FOR     GPO      3133
                                        *                STRENGTH REDUCTION.                                     GPO      3134
                                        *                                                                        GPO      3135
                                        *         EXIT   [TBA+3] = 12/P(NI),12/0,18/STC,18/ICC                   GPO      3136
                                        *                                                                        GPO      3137
                                        *         REGISTER ASSIGNMENTS FOR MAIN LOOP OF *MII*                    GPO      3138
                                        *                                                                        GPO      3139
                                        *                (A0) = FAC = FUNCTION ARGUMENT CHAIN                    GPO      3140
                                        *                (A5) = R1 , OF CURRENT INSTRUCTION                      GPO      3141
                                        *                (A7) = LII , ADDRESS OF LAST INVARIANT INSTRUCTION      GPO      3142
                                        *                (B3) = 3                                                GPO      3143
                                         SC       MICRO  1,,/B4/     STORE CHAIN ( POSSIBLE RECURSIVE DEFS )     GPO      3144
                                         NI       MICRO  1,,/B5/     N.INCREMENT STORES ( *RD* )                 GPO      3145
                                         UB       MICRO  1,,/B6/     O.UDT                                       GPO      3146
                                                                                                                 GPO      3147
                                                  QUAL   MII                                                     GPO      3148
                                                                                                                 GPO      3149
          2273  0200402273 +             MII      ROUTINE                                                        GPO      3150
          2274  10644                             BX6    X4                                                      GPO      3151
                     20601                        LX6    59-IM.APP                                               GPO      3152
                          5160000107 C            SA6    AN          AN = AP[BSW]  */ SET ARTICULATION NODE INDI GPO      3153
                                                                                                                 GPO      3154
          2275  20430                             LX4    -IM.BIP                                                 GPO      3155
                     63340                        FBVA   X4          BVA = O.BVT + BVI[BIT(BN)]                  GPO      3156
                               73772              SX7    X7+B2                                                   GPO      3157
          2300  5170000110 C                      SA7    UBD         UBD = BVA + VL                              GPO      3158
                          6130000003              SB3    3                                                       GPO      3159
          2301  5140000000 C                      SA4    O.UDT                                                   GPO      3160
                          63753                   S"TB"  X5+B3       TB = TBA + 3  */ LINK WORD OF BASE          GPO      3161
                               56000              SA0    B0          FAC = 0       */ FUNCTION ARG CHAIN         GPO      3162
          2302  63640                             S"UB"  X4          UB = [O.UDT]                                GPO      3163
                     53550                        SA5    X5          R1 = TBA                                    GPO      3164
                          43702                   MX7    IM.APLNL                                                GPO      3165
                               11376              BX3    X7*X6                                                   GPO      3166
          2303  20324                             LX3    IM.APLNL+R1.H2P                                         GPO      3167
                     12735                        BX7    X3+X5       H2[R1] = APLN[BSW]  */ SAVE APLN FOR *GRA*  GPO      3168
                          54750                   SA7    A5                                                      GPO      3169
                               43600              MX6    0                                                       GPO      3170
          2304  66400                             S"SC"  B0          SC = 0        */ STORE CHAIN                GPO      3171
                     66500                        S"NI"  B0          NI = 0        */ N. RECURSIVE DEFINITIONS   GPO      3172
                          56171                   SA1    "TB"+B1                                                 GPO      3173
                               43701              MX7    1                                                       GPO      3174
          2305  5160000111 C                      SA6    IJP         IJP = 0       */ INVARIANT JUMP FLAG        GPO      3175
                          54661                   SA6    A6+B1       UIC = 0       */ UNSAFE INV CODE FLAG       GPO      3176
                                                  LX7    1+I.INVP                                                GPO      3177
                               56770              SA7    "TB"        LII = TB;  [LII] = *INV */ LAST INV INST    GPO      3178
                                                                                                                 GPO      3179
          2306  26621                             UX6    B2,X1                                                   GPO      3180
                     7172777771                   SX7    B2-OC.LAB                                               GPO      3181
          2307  0317002317 +                      NZ     X7,MII2     IF OC[R1+4] " OC.LAB                        GPO      3182
                                                                                                                 GPO      3183
                          54510                   SA5    A1          R1 = R1 + 4   */ SKIP INITIAL LABEL         GPO      3184
          2310  0400002317 +                      EQ     MII2                                                    GPO      3185
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    88
        MII - MARK INVARIANT INSTRUCTIONS                             MII                 MII 
  
                                        *         OPERANDS *INV*, MARK INSTRUCTION AS *INV*                      GPO      3187
                                                                                                                 GPO      3188
          2311  5025000002               MII1     SA2    A5+2        DI = R1 + 2                                 GPO      3189
                          5110000107 C            SA1    AN                                                      GPO      3190
          2312  20240                             LX2    59-D.USIP                                               GPO      3191
                     16312                        BX3    -X2+X1                                                  GPO      3192
                          0333002315 +            MI     X3,MII1A    IF AN ! ^USI[DI]  */ SAFE TO MOVE           GPO      3193
          2313  7160000001                        SX6    1                                                       GPO      3194
                          5160000112 C            SA6    UIC         UIC = 1       */ INDICATE UNSAFE INV CODE   GPO      3195
          2314  0400002317 +                      EQ     MII2                                                    GPO      3196
                                                                                                                 GPO      3197
          2315                                    PROCESS (LDC,LDV)                                              CCG16     203
          2315  75677                    MII1A    SX6    A7-"TB"     IIC[R1+3] = LII - TB                        GPO      3198
                     43401                        MX4    1                                                       GPO      3199
                          20622                   LX6    I.IICP                                                  GPO      3200
                                                  LX4    1+I.INVP    INV[R1+3] = 1                               GPO      3201
                               12746              BX7    X4+X6                                                   GPO      3202
          2316  54753                             SA7    A5+B3       LII = R1 + 3                                GPO      3203
                                                                                                                 GPO      3204
                                        *         GET NEXT INSTRUCTION AND JUMP TO PROCESSOR                     GPO      3205
                                                                                                                 GPO      3206
          2317                                    PROCESS (DAR,DEF,NOP)                                          GPO      3207
          2317  5055000004               MII2     SA5    A5+4        R1 = R1 + 4                                 GPO      3208
                          26625                   UX6    B2,X5                                                   GPO      3209
          2320  0222002571 +                      JP     MII.JT+B2   JUMP( MII.JT( OC[R1] )                      GPO      3210
  
  
                                2315 +   TYII     EQU    MII1A                     */ TYPE II ARE *INV*          GPO      3212
                                                                                                                 GPO      3213
                                2317 +   TYIV     EQU    MII2                      */ TYPE IV ARE NOT INV        GPO      3214
  
  
  
                                        *         LD - CHECK *UDI* TO SEE IF *INV* IN REGION                     GPO      3216
                                                                                                                 GPO      3217
          2321                                    PROCESS ILD                                                    FCC0885     6
          2321  6120000050                        SB2    OC.LD       OC = OC.LD                                  FCC0885XA   5
                                         .^PLI    IFNE   HC.ID,3     ^ PL/I                                      FCC0885XA   6
                          5140000000 X            SA4    IT.                                                     FCC0885XA   7
          2322  54351                             SA3    A5+B1                                                   FCC0885XA   8
                     13634                        BX6    X3-X4                                                   FCC0885XA   9
                          73760                   SX7    X6                                                      FCC0885XA  10
          2323  0317002324 +                      NZ     X7,ILD1     IF IH[R2] " IT.                             FCC0885XA  11
                          6120000076              SB2    OC.TLD                                                  FCC0885XA  12
                                                                                                                 FCC0885XA  13
                                         .^PLI    ENDIF              ^ PL/I                                      FCC0885XA  14
          2324  27625                    ILD1     PX6    B2,X5       OC[R1] = OC   */ INHIBIT ST/ILD SQZ         FCC0885XA  15
                     54650                        SA6    A5                                                      FCC0885     9
                                                                                                                 FCC0885    10
          2325                                    PROCESS (LD,TLD)                                               FCCA506X    4
          2325  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3219
                     20536                        LX5    -R1.INP                                                 GPO      3220
                          53356                   SA3    "UB"+X5     UI = UB + IN[R1]                            GPO      3221
                               20430              LX4    -IH.RFP                                                 GPO      3222
          2326  15740                             BX7    "RN"X4                                                  GPO      3223
                     0317002331 +                 NZ     X7,LD1      IF RF[R2] " 0                               FCC1504X   10
                               54241              SA2    A4+B1       DI = R2 + 1                                 FCC1504X   11
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    89
        MII - MARK INVARIANT INSTRUCTIONS                             LD                  MII 
  
          2327  76610                             SX6    B1                                                      FCC1504X   12
                     20251                        LX2    -D.RFP                                                  FCC1504X   13
                          11662                   BX6    X6*X2                                                   FCC1504X   14
                               20654              LX6    UD.RFP                                                  FCC1504X   15
          2330  12663                             BX6    X6+X3       RF[UI] = RF[UI] ! RF[DI]                    FCC1504X   16
                     54630                        SA6    A3                                                      FCC1504X   17
          2331  53277                    LD1      SA2    "TB"+X7     LF = TB + RF[R2]                            FCC1504X   18
                                                  LX3    59-UD.DEFRP                                             GPO      3225
                                                  LX2    59-I.INVP                                               GPO      3226
                     15623                        BX6    -X3*X2                                                  GPO      3227
                          0326002317 +            PL     X6,MII2     IF ^( ^DEFR[UI] & INV[LF] )                 GPO      3228
          2332  20305                             LX3    UD.DEFRP-UD.ISTP                                        FCC1040A    4
                     0333002317 +                 MI     X3,MII2     IF IST[UI]    */ INTERFERING STORE          FCC1040A    5
          2333  5130000107 C                      SA3    AN                                                      FCC1584X    5
                          0333002315 +            MI     X3,MII1A    IF AN < 0     */ SAFE TO MOVE               FCC1584X    6
          2334  0307002315 +                      ZR     X7,MII1A    IF RF[R2] = 0 */ NO SUBSCRIPT               FCC1584X    7
                          5130000000 X            SA3    =XHO$UO                                                 CCGA029     5
          2335  0303002317 +                      ZR     X3,MII2     IF OPT LT 3   */ DONT MOVE A(I)             CCGA029     6
                          55323                   SA3    A2-B3       R1F = LF - 3                                FCC1584X    8
                               26723              UX7    B2,X3                                                   FCC1584X    9
          2336  7162777727                        SX6    B2-OC.LD                                                FCC1584X   10
                          0316002315 +            NZ     X6,MII1A    IF OC[R1F] " OC.LD                          FCC1584X   11
          2337  54231                             SA2    A3+B1                                                   FCC1584X   12
                     20230                        LX2    -IH.RFP                                                 FCC1584X   13
                          15720                   BX7    "RN"X2                                                  FCC1584X   14
          2340  0317002317 +                      NZ     X7,MII2     IF RF[R2F] " 0  */ DONT MOVE A(B(I))        FCC1584X   15
                          0400002311 +            EQ     MII1                                                    GPO      3229
  
  
  
                                        *         TYPE I , INV(I) = INV(J) & INV(K)                              GPO      3231
                                                                                                                 GPO      3232
          2341  20534                    TYI      LX5    -R1.RJP                                                 GPO      3233
                     15650                        BX6    "RN"X5                                                  GPO      3234
                          20520                   LX5    R1.RJP-R1.RKP                                           GPO      3235
                               53467              SA4    "TB"+X6     LJ = TB + RJ[R1]                            GPO      3236
          2342  15750                             BX7    "RN"X5                                                  GPO      3237
                     53377                        SA3    "TB"+X7     LK = TB + RK[R1]                            GPO      3238
                          11634                   BX6    X3*X4                                                   GPO      3239
                                                  LX6    59-I.INVP                                               GPO      3240
          2343  0336002311 +                      MI     X6,MII1     IF INV[LJ] & INV[LK]                        GPO      3241
                          0400002317 +            EQ     MII2                                                    GPO      3242
                                                                                                                 GPO      3243
                                        *         TYPE 1 - 2 RESULTS                                             GPO      3244
                                                                                                                 GPO      3245
          2344                                    PROCESS (NR,UP,RNZ)                                            GPO      3246
          2344  20554                             LX5    -R1.RKP                                                 GPO      3247
                     15650                        BX6    "RN"X5                                                  GPO      3248
                          53467                   SA4    "TB"+X6     LK = TB + RK[R1]                            GPO      3249
                                                  LX4    59-I.INVP                                               GPO      3250
          2345  0334002311 +                      MI     X4,MII1     IF INV[LK]                                  GPO      3251
                          0400002317 +            EQ     MII2                                                    GPO      3252
                                                                                                                 GPO      3253
                                        *         CONSTANT SHIFTS                                                GPO      3254
                                                                                                                 GPO      3255
          2346                                    PROCESS (KLS,KRS)                                              GPO      3256
          2346  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3257
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    90
        MII - MARK INVARIANT INSTRUCTIONS                             TYI                 MII 
  
                     20430                        LX4    -IH.RFP                                                 GPO      3258
                          53347                   SA3    "TB"+X4     LF = TB + RF[R2]                            GPO      3259
                                                  LX3    59-I.INVP                                               GPO      3260
          2347  0333002311 +                      MI     X3,MII1     IF INV[LF]                                  GPO      3261
                          0400002317 +            EQ     MII2                                                    GPO      3262
  
  
                                        **        IM - MAY BE UNSAFE IF CONDITIONALLY EXECUTED                   FCC0238AX   7
                                                                                                                 FCC0238AX   8
          2350                                    PROCESS IM                                                     FCC0238AX   9
          2350  20534                             LX5    -R1.RJP                                                 FCC0238AX  10
                     15650                        BX6    "RN"X5                                                  FCC0238AX  11
                          20520                   LX5    R1.RJP-R1.RKP                                           FCC0238AX  12
                               53467              SA4    "TB"+X6     LJ = TB + RJ[R1]                            FCC0238AX  13
          2351  15750                             BX7    "RN"X5                                                  FCC0238AX  14
                     53377                        SA3    "TB"+X7     LK = TB + RK[R1]                            FCC0238AX  15
                          11634                   BX6    X3*X4                                                   FCC0238AX  16
                                                  LX6    59-I.INVP                                               FCC0238AX  17
          2352  0326002317 +                      PL     X6,MII2     IF ^(INV[LJ] & INV[LK])                     FCC0238AX  18
                          5120000107 C            SA2    AN                                                      FCC0238AX  19
          2353  0332002315 +                      MI     X2,MII1A    IF AN < 0     */ UNCONDITIONALLY EXECUTED   FCC0238AX  20
                                                                                                                 FCC0238AX  21
                                        *         INV AND CONDITIONALLY EXECUTED, MARK AS *USI* SO *SQZ* WILL    FCC0238AX  22
                                        *         ADD A UNPACK OF VARIABLE OPERANDS PRIOR TO THE MULTIPLY.       FCC0238AX  23
                                        *         NOTE *LD* IS UNSAFE IF IT IS A PROGRAMMER VAR, NOT A VD.       FCC0238AX  24
                                                                                                                 FCC0238AX  25
                          55241                   SA2    A4-B1       DJ = LJ - 1                                 FCC0238AX  26
          2354  0100000000 X                      CALL   CMO                                                     FCC0238AX  27
          2355  55231                             SA2    A3-B1       DK = LK - 1                                 FCC0238AX  28
                     0306002360 +                 ZR     X6,IM1      IF CMO(DJ) = 0  */ J OP IS SAFE             FCC0238AX  29
          2356  0100000000 X                      CALL   CMO                                                     FCC0238AX  30
          2357  0306002362 +                      ZR     X6,IM2      IF CMO(DK) = 0  */ K OP IS SAFE             FCC0238AX  31
                          0400002317 +            EQ     MII2                                                    FCC0238AX  32
                                                                                                                 FCC0238AX  33
          2360  0100000000 X             IM1      CALL   CMO                                                     FCC0238AX  34
          2361  0306002315 +                      ZR     X6,MII1A    IF CMO(DK) = 0  */ K OP IS SAFE             FCC0238AX  35
                                                                                                                 FCC0238AX  36
          2362  5045000002               IM2      SA4    A5+2        DI = R1 + 2                                 FCC0238AX  37
                          76310                   SX3    B1                                                      FCC0238AX  38
                               20333              LX3    D.USIP                                                  FCC0238AX  39
          2363  12634                             BX6    X3+X4       USI[DI] = 1   */ MARK AS UNSAFE             FCC0238AX  40
                     54640                        SA6    A4                                                      FCC0238AX  41
                          0400002315 +            EQ     MII1A                                                   FCC0238AX  42
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    91
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
                                        *         STT , IA, IS - CHECK FOR =(I+INV)                              GPO      3264
                                                                                                                 GPO      3265
          2364                                    PROCESS STT                                                    GPO      3266
          2364  54351                             SA3    A5+B1       R2 = R1 + 1                                 GPO      3267
                                                  LX3    -IH.IHP                                                 GPO      3268
                     63230                        SB2    X3                                                      GPO      3269
                          20330                   LX3    IH.IHP-IH.RFP                                           GPO      3270
                               53437              SA4    "TB"+X3     LJ = TB + RF[R2]                            GPO      3271
                                                  LX4    59-I.INVP                                               GPO      3272
          2365  0334002311 +                      MI     X4,MII1     IF INV[LJ]                                  GPO      3273
                                                                                                                 GPO      3274
                          5014777774              SA1    A4-3        R1P = LJ - 3                                GPO      3275
          2366  0420002406 +                      ZR     B2,IA2      IF IH[R2] = 0                               GPO      3276
                                                                                                                 GPO      3277
                          0400002317 +            EQ     MII2                                                    GPO      3278
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    92
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
          2367                                    PROCESS (IA,IS)                                                GPO      3280
          2367  20534                             LX5    -R1.RJP                                                 GPO      3281
                     15650                        BX6    "RN"X5                                                  GPO      3282
                          20520                   LX5    R1.RJP-R1.RKP                                           GPO      3283
                               53467              SA4    "TB"+X6     LJ = TB + RJ[R1]                            GPO      3284
          2370  15750                             BX7    "RN"X5                                                  GPO      3285
                     53377                        SA3    "TB"+X7     LK = TB + RK[R1]                            GPO      3286
                          11634                   BX6    X3*X4                                                   GPO      3287
                                                  LX6    59-I.INVP                                               GPO      3288
                               12734              BX7    X3+X4                                                   GPO      3289
          2371  0336002315 +                      MI     X6,MII1A    IF INV[LJ] & INV[LK]                        FCC0716     9
                                                  LX7    59-I.INVP                                               GPO      3291
                          0327002317 +            PL     X7,MII2     IF ^( INV[LJ] ! INV[LK] )                   GPO      3292
                                                                                                                 GPO      3293
          2372  75743                             SX7    A4-B3       R1P = LJ - 3                                GPO      3294
                     55231                        SA2    A3-B1       DP = LK - 1                                 GPO      3295
                                                  LX4    59-I.INVP                                               GPO      3296
                          0324002375 +            PL     X4,IA1      IF ^INV[LJ]                                 GPO      3297
          2373  6122777740                        SB2    B2-OC.IS                                                GPO      3298
                          0420002317 +            ZR     B2,MII2     IF OC[R1] = OC.IS  */ INV - I CASE          GPO      3299
          2374  75733                             SX7    A3-B3       R1P = LK - 3                                GPO      3300
                     55241                        SA2    A4-B1       DP = LJ - 1                                 GPO      3301
                                                                                                                 GPO      3302
          2375  20241                    IA1      LX2    59-D.ZPP                                                GPO      3303
                     53170                        SA1    X7                                                      GPO      3304
                          0322002317 +            PL     X2,MII2     IF ^ZP[DP]    */ INV OP IS ^ZP              CCG36       5
          2376  5022777775                        SA2    A2-2        R1P = DP - 2                                CCG36       6
                          26622                   UX6    B2,X2                                                   CCG36       7
          2377  7162777734                        SX6    B2-OC.FMA                                               CCG36       8
                          0316002402 +            NZ     X6,IA1A     IF OC[R1P] " OC.FMA                         CCG36       9
          2400  20236                             LX2    -R1.INP                                                 CCG36      10
                     7262777732                   SX6    X2-37                                                   CCG36      11
          2401  0336002317 +                      MI     X6,MII2     IF IN[R1P] < 37  */ MASK VALUE TOO BIG      CCG36      12
                          0400002406 +            EQ     IA2                                                     CCG36      13
                                                                                                                 CCG36      14
          2402  7162777674               IA1A     SX6    B2-OC.LDC                                               CCG36      15
                          0316002406 +            NZ     X6,IA2      IF OC[R1P] " OC.LDC                         CCG36      16
          2403  54221                             SA2    A2+B1       R2P = R1P + 1                               CCG36      17
                     5130000000 X                 SA3    =XO$CVT                                                 CCG36      18
                               20252              LX2    -IH.CAP                                                 CCG36      19
          2404  63230                             SB2    X3                                                      CCG36      20
                     53222                        SA2    B2+X2       C = CVT(CA[R2+])                            CCG36      21
                          21227                   AX2    23                                                      CCG36      22
          2405  0312002317 +                      NZ     X2,MII2     IF ABS(C) @ 2**22  */ INCR TOO BIG          CCG36      23
                                                                                                                 GPO      3306
                                        *         ONE OPERATION IS INV, SEE IF THE OTHER IS A *LD* OF A *RD* VAR GPO      3307
                                                                                                                 GPO      3308
          2406  26721                    IA2      UX7    B2,X1                                                   GPO      3309
                     7142777727                   SX4    B2-OC.LD                                                GPO      3310
                               20136              LX1    -R1.INP                                                 GPO      3311
          2407  0314002317 +                      NZ     X4,MII2     IF OC[R1P] " OC.LD                          GPO      3312
                          53216                   SA2    "UB"+X1                                                 GPO      3313
                               20204              LX2    59-UD.^RDP                                              GPO      3314
          2410  0332002317 +                      MI     X2,MII2     IF ^RD[ UDI(IN[R1P]) ]                      GPO      3315
                                                                                                                 GPO      3316
                          76510                   SX5    B1                                                      GPO      3317
                               73110              SX1    X1                                                      GPO      3318
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    93
        MII - MARK INVARIANT INSTRUCTIONS                             ADDS                MII 
  
          2411  20570                             LX5    I.IAP                                                   GPO      3319
                                                  LX1    I.LDIP      LDI[R1+3] = IN[R1]                          GPO      3320
                     12651                        BX6    X5+X1                                                   GPO      3321
                          5065000003              SA6    A5+3        IA[R1+3] = 1  */ INDICATE  =(I+CON)         GPO      3322
          2412  0400002317 +                      EQ     MII2                                                    GPO      3323
  
  
                                        *         JUMP PROCESSING, CHECK FOR LABEL SUBSTITUTION, BUMP N.LJ       GPO      3325
                                                                                                                 GPO      3326
          2413                                    PROCESS UJP                                                    GPO      3327
          2413  5130000025 C                      SA3    LIH                                                     GPO      3328
                          13453                   BX4    X5-X3                                                   GPO      3329
                               63240              SB2    X4                                                      GPO      3330
          2414  0520002430 +                      NZ     B2,JPX2     IF IH[R1] " LIH                             GPO      3331
                                                                                                                 GPO      3332
                          5120000027 C            SA2    N.LJ                                                    GPO      3333
          2415  5130000016 C                      SA3    LGL                                                     GPO      3334
                          43701                   MX7    1                                                       GPO      3335
                               12672              BX6    X7+X2       N.LJ = N.LJ ! 1S59  */ INHIBIT PREFETCHING  GPO      3336
          2416  54620                             SA6    A2                                                      GPO      3337
                     0303002430 +                 ZR     X3,JPX2     IF LGL = 0    */ NO LABEL SUBSTITUTION      GPO      3338
                               21322              AX3    18                                                      GPO      3339
          2417  36635                             IX6    X3+X5       IH[R1] = SHIFT( LGL , -18 )                 GPO      3340
                     54650                        SA6    A5                                                      GPO      3341
                          0400002430 +            EQ     JPX2                                                    GPO      3342
  
  
          2420                                    PROCESS JPX                                                    GPO      3344
          2420  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3345
                     5130000025 C                 SA3    LIH                                                     GPO      3346
                               13734              BX7    X3-X4                                                   GPO      3347
          2421  63270                             SB2    X7                                                      GPO      3348
                     0520002426 +                 NZ     B2,JPX1     IF IH[R2] " LIH                             GPO      3349
                                                                                                                 GPO      3350
          2422  5120000027 C                      SA2    N.LJ                                                    GPO      3351
                          5130000016 C            SA3    LGL                                                     GPO      3352
          2423  76710                             SX7    B1                                                      FCCA462     9
                     36672                        IX6    X7+X2       N.LJ = N.LJ + 1                             FCCA462    10
                          54620                   SA6    A2                                                      GPO      3354
          2424  0303002426 +                      ZR     X3,JPX1     IF LGL = 0    */ NO LABEL SUBSTITUTION      GPO      3355
                          21322                   AX3    18                                                      GPO      3356
                               36643              IX6    X4+X3       IH[R2] = SHIFT(LGL,-18)                     GPO      3357
          2425  5064000000                        SA6    A4+                                                     GPO      3358
                                                                                                                 GPO      3359
          2426  15650                    JPX1     BX6    "RN"X5                                                  GPO      3360
                     53467                        SA4    "TB"+X6     LI = TB + RI[R1]                            GPO      3361
                                                  LX4    59-I.INVP                                               GPO      3362
                          0324002430 +            PL     X4,JPX2     IF ^INV[LI]                                 GPO      3363
                                                                                                                 GPO      3364
          2427  5160000111 C                      SA6    IJP         IJP = RI[R1]  */ SAVE OPERAND ADDR OF JP    GPO      3365
                                                                                                                 GPO      3366
                                        *         LAB, JUMP - CLEAR *AN*, IN CASE OPT=1 ( NO CONTROL FLOW INFO ) GPO      3367
                                                                                                                 GPO      3368
          2430                                    PROCESS (LAB,JPBB)                                             GPO      3369
          2430  5130000107 C             JPX2     SA3    AN                                                      CCG34       5
                          43401                   MX4    1                                                       CCG34       6
                               15634              BX6    -X4*X3      AP[AN] = 0                                  CCG34       7
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    94
        MII - MARK INVARIANT INSTRUCTIONS                             JPX                 MII 
  
          2431  54630                             SA6    A3                                                      CCG34       8
                     0400002317 +                 EQ     MII2                                                    GPO      3372
  
  
                                        *         JIN - INDEXED JUMP ( COMPUTED OR ASSIGNED GOTO )               FCC0909    10
                                                                                                                 FCC0909    11
          2432                                    PROCESS JIN                                                    GPO      3374
          2432  5120000027 C                      SA2    N.LJ                                                    GPO      3375
                          43701                   MX7    1                                                       GPO      3376
                               12672              BX6    X7+X2       N.LJ = 1S59 ! N.LJ  */ INHIBIT PREFETCHING  GPO      3377
          2433  54620                             SA6    A2                                                      GPO      3378
                     5130000107 C                 SA3    AN                                                      FCC0909    12
          2434  5120000016 C                      SA2    LGL                                                     FCC0909    13
                          20301                   LX3    IM.APP-IM.LNP                                           FCC0909    14
                               54451              SA4    A5+B1       R2 = R1 + 1                                 FCC0909    15
          2435  0323002430 +                      PL     X3,JPX2     IF ^LN[AN]                                  FCC0909    16
                          0302002430 +            ZR     X2,JPX2     IF LGL = 0    */ NO LABEL CHANGE            FCC0909    17
          2436  63240                             SB2    X4                                                      FCC0909    18
                     0520002430 +                 NZ     B2,JPX2     IF IH[R2] " 0 */ ^ AN ASSIGNED GOTO         FCC0909    19
                                                                                                                 FCC0909    20
                                        *         SET FLAGS ( N.LJ , B59 OF R2 WORD ) TO INDICATE TO *GRA*       FCC0909    21
                                        *         THAT SPECIAL CODE MAY BE NECESSARY FOR THIS *JIN* .            FCC0909    22
                                                                                                                 FCC0909    23
                               20773              LX7    -1                                                      FCC0909    24
          2437  12676                             BX6    X7+X6       N.LJ = N.LJ + 1S58                          FCC0909    25
                     54660                        SA6    A6                                                      FCC0909    26
                          20701                   LX7    1                                                       FCC0909    27
                               12674              BX6    X7+X4       [R2] = [R2] + 1S59                          FCC0909    28
          2440  54640                             SA6    A4                                                      FCC0909    29
                     0400002430 +                 EQ     JPX2                                                    GPO      3379
  
  
  
                                        *         RJXJ - CONDITIONAL RETURN JUMP                                 CCG2        2
                                                                                                                 CCG2        3
          2441                                    PROCESS RJXJ                                                   CCG2        4
          2441  54351                             SA3    A5+B1       R2 = R1 + 1                                 CCG2        5
                     53457                        SA4    "TB"+X5     LI = TB + RI[R1]                            CCG2        6
                          20330                   LX3    -IH.RFP                                                 CCG2        7
                               53337              SA3    "TB"+X3     LF = TB + RF[R2]                            CCG2        8
          2442  11634                             BX6    X3*X4                                                   CCG2        9
                                                  LX6    59-I.INVP                                               CCG2       10
                     0326002317 +                 PL     X6,MII2     IF ^(INV[LI] & INV[LF])                     CCG2       11
          2443  0400002315 +                      EQ     MII1A                                                   CCG2       12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    95
        MII - MARK INVARIANT INSTRUCTIONS                             TST                 MII 
  
                                        *         TST -  DEFINITION POINT OF MOVED INSTRUCTION                   FCC1254    22
                                                                                                                 FCC1254    23
          2444                                    PROCESS TST                                                    FCC1254    24
          2444  15650                             BX6    "RN"X5                                                  FCC1254    25
                     53467                        SA4    "TB"+X6     LI = TB + RI[R1]                            FCC1254    26
                          5130000000 X            SA3    O.TET                                                   FCC1254    27
                                                  LX4    59-I.INVP                                               FCC1254    28
          2445  0324002317 +                      PL     X4,MII2     IF ^INV[LI]                                 FCC1254    29
                                                                                                                 FCC1254    30
                          54151                   SA1    A5+B1       R2 = R1 + 1                                 FCC1254    31
                               63230              SB2    X3                                                      FCC1254    32
          2446  20152                             LX1    -IH.CAP                                                 FCC1254    33
                     53212                        SA2    B2+X1                                                   FCC1254    34
                                                  LX2    59-T.INVP                                               FCC1254    35
                          0322002317 +            PL     X2,MII2     IF ^INV[TET(CA[R2])]                        FCC1254    36
          2447  0400002315 +                      EQ     MII1A                                                   FCC1254    37
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    96
        MII - MARK INVARIANT INSTRUCTIONS                             RS                  MII 
  
                                        *         REGISTER STORE PROCESSING                                      GPO      3381
                                                                                                                 GPO      3382
          2450                                    PROCESS RS                                                     GPO      3383
          2450  55451                             SA4    A5-B1       LI = R1 - 1                                 GPO      3384
                     43772                        MX7    -SO.LKL                                                 GPO      3385
                          20546                   LX5    -R1.SOP-SO.LKP                                          GPO      3386
                               15657              BX6    -X7*X5      LKT = SOLK[R1]                              GPO      3387
                                                  LX4    59-I.INVP                                               GPO      3388
          2451  0306002462 +                      ZR     X6,RS1      IF LKT = 0    */ UJP LOCK                   GPO      3389
                          6226777775              SB2    X6-2                                                    GPO      3390
          2452  0720002317 +                      LT     B2,MII2     IF LKT = 1    */ TEMP LOCK                  GPO      3391
                          0324002317 +            PL     X4,MII2     IF ^INV[LI]                                 GPO      3392
                                                                                                                 GPO      3393
          2453  0702002311 +                      GT     B2,MII1     IF LKT = 3    */ *RJ RS*                    GPO      3394
                                                                                                                 GPO      3395
                                        *         FULL LOCK *RS* AND OPERAND INVARIANT IN CURRENT LOOP           GPO      3396
                                                                                                                 GPO      3397
                          76710                   SX7    B1                                                      GPO      3398
                               20526              LX5    R1.SOP+SO.LKP                                           GPO      3399
          2454  20731                             LX7    R1.SOP+SO.INVCP                                         GPO      3400
                     12675                        BX6    X7+X5       INVC[R1] = 1  */ INDICATE INV IN THIS LOOP  GPO      3401
                          54650                   SA6    A5                                                      GPO      3402
                               43771              MX7    -SO.RTL                                                 GPO      3403
          2455  20551                             LX5    -R1.SOP-SO.RTP                                          GPO      3404
                     15457                        BX4    -X7*X5                                                  GPO      3405
                          0304002457 +            ZR     X4,RS0      IF SORT[R1] = 0  */ RS TO A B-REG           GPO      3406
          2456  55353                             SA3    A5-B3       R2P = R1 - 3                                GPO      3407
                                                  LX3    59-IH.LDP                                               GPO      3408
                     0323002317 +                 PL     X3,MII2     IF ^LD[R2P]   */ MOVE IF NOT A PREFETCH     GPO      3409
                                                                                                                 GPO      3410
                                        *         REMOVE PRED OF *RS* FROM INVARIANT CHAIN                       GPO      3411
                                                                                                                 GPO      3412
          2457  55451                    RS0      SA4    A5-B1       LIP = R1 - 1                                GPO      3413
                     20452                        LX4    -I.IICP     I = IIC[LIP]                                GPO      3414
                          53347                   SA3    "TB"+X4     LJP = TB + I                                GPO      3415
                               10733              BX7    X3                                                      GPO      3416
          2460  54730                             SA7    A3          LII = LJP                                   GPO      3417
                     43600                        MX6    0                                                       GPO      3418
                          54640                   SA6    A4          [LIP] = 0                                   GPO      3419
          2461  0400002317 +                      EQ     MII2                                                    GPO      3420
                                                                                                                 GPO      3421
                                        *         *UJP* RS , PRECEEDING A FUNCTION CALL                          GPO      3422
                                                                                                                 GPO      3423
          2462  0334002464 +             RS1      MI     X4,RS2      IF INV[LI]                                  GPO      3424
                          5100777776              SA0    -1          FAC = 0       */ INDICATE ^INV OPERAND      GPO      3425
          2463  0400002317 +                      EQ     MII2                                                    GPO      3426
                                                                                                                 GPO      3427
          2464  74600                    RS2      SX6    A0                                                      GPO      3428
                     0336002317 +                 MI     X6,MII2     IF FAC < 0    */ PREVIOUS ARG NOT INV       GPO      3429
                               20622              LX6    I.IICP                                                  GPO      3430
          2465  54653                             SA6    A5+B3       IIC[R1+3] = FAC  */ CHAIN THIS TO LAST      GPO      3431
                     55067                        SA0    A6-"TB"     FAC = R1+3 - TB                             GPO      3432
                          0400002317 +            EQ     MII2                                                    GPO      3433
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    97
        MII - MARK INVARIANT INSTRUCTIONS                             RJ3                 MII 
  
                                        *         RJ3 - CHECK FOR *BEF* AND ARGS INVARIANT                       GPO      3435
                                                                                                                 GPO      3436
          2466                                    PROCESS (RJ3,RJ6)                                              CCG1       88
          2466  5110000107 C                      SA1    AN                                                      GPO      3438
                          64200                   SB2    A0          AC = FAC                                    GPO      3439
                               56000              SA0    B0          FAC = 0                                     GPO      3440
          2467  0321002317 +                      PL     X1,MII2     IF ^AN        */ ON A SIDE BRANCH           GPO      3441
                          0602002317 +            LE     B2,MII2     IF AC @ 0     */ ARGS NOT INV               GPO      3442
          2470  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      3443
                     43766                        MX7    -FI.FTL                                                 GPO      3444
                          20406                   LX4    -FI.FTP                                                 GPO      3445
                               15647              BX6    -X7*X4                                                  GPO      3446
          2471  7236777775                        SX3    X6-2                                                    GPO      3447
                          0313002317 +            NZ     X3,MII2     IF FT[R2] " 2 */ NOT A *BEF*                GPO      3448
  
                                        *         MARK *RS"S* AS INV SO WE KNOW TO MOVE THEM OUT                 GPO      3450
                                                                                                                 GPO      3451
          2472  56372                    RJ31     SA3    "TB"+B2     LIP = TB + AC                               GPO      3452
                     43401                        MX4    1                                                       GPO      3453
                                                  LX4    1+I.INVP                                                GPO      3454
                          12643                   BX6    X4+X3       INV[LIP] = 1                                GPO      3455
                               20352              LX3    -I.IICP                                                 GPO      3456
          2473  63230                             SB2    X3          AC = IIC[LIP]                               GPO      3457
                     54630                        SA6    A3                                                      GPO      3458
                          0520002472 +            NZ     B2,RJ31     IF AC " 0                                   GPO      3459
                                                                                                                 GPO      3460
                                        *         MARK RJ3 AND DEFS FOLLOWING AS *INV*                           GPO      3461
                                                                                                                 GPO      3462
          2474  75377                    RJ32     SX3    A7-"TB"     IIC[R1+3] = LII - TB                        GPO      3463
                     20322                        LX3    I.IICP                                                  GPO      3464
                          12743                   BX7    X4+X3       INV[R1+3] = 1                               GPO      3465
                               54753              SA7    A5+B3       LII = R1 + 3                                GPO      3466
          2475  54571                             SA5    A7+B1       R1 = LII + 1                                GPO      3467
                     26125                        UX1    B2,X5                                                   GPO      3468
                          7122777772              SX2    B2-OC.DEF                                               GPO      3469
          2476  0302002474 +                      ZR     X2,RJ32     IF OC[R1] = OC.DEF                          GPO      3470
                          5055000004              SA5    A5+4                                                    CCG0218     5
          2477  26125                             UX1    B2,X5                                                   CCG0218     6
                     7122777772                   SX2    B2-OC.DEF                                               CCG0218     7
          2500  0302002502 +                      ZR     X2,RJ32A    IF OC[R1] = OC.DEF                          CCG0218     8
                          5055777773              SA5    A5-4                              */ BACK UP            CCG0218     9
          2501  26125                             UX1    B2,X5                                                   CCG0218    10
                     0400002504 +                 EQ     RJ32B                                                   CCG0218    11
                                                                                                                 CCG0218    12
          2502  75377                    RJ32A    SX3    A7-"TB"     IIC[R1+3] = LII - TB                        CCG0218    13
                     20322                        LX3    I.IICP                                                  CCG0218    14
                          12743                   BX7    X4+X3       INV[R1+3] = 1                               CCG0218    15
                               54753              SA7    A5+B3       LII = R1 + 3                                CCG0218    16
          2503  54571                             SA5    A7+B1       R1 = LII + 1                                CCG0218    17
                     26125                        UX1    B2,X5                                                   CCG0218    18
                                                                                                                 GPO      3471
          2504  5130000107 C             RJ32B    SA3    AN                                                      CCG0218    19
                          0303002511 +            ZR     X3,RJ33     IF AN = 0     */ MII CALLED FROM *CIF*      FCC1254    40
          2505  5130000020 C                      SA3    XRF                                                     FCC1254    41
                          76410                   SX4    B1                                                      FCC1254    42
                               37634              IX6    X3-X4       XRF = XRF - 1 */ DECR N.EXT-REFS IN LOOP    FCC1254    43
          2506  54630                             SA6    A3                                                      FCC1254    44
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    98
        MII - MARK INVARIANT INSTRUCTIONS                             RJ3                 MII 
  
                     0316002511 +                 NZ     X6,RJ33     IF XRF " 0                                  FCC1254    45
                                                                                                                 FCC1254    46
          2507  5130000051 +                      SA3    MRA.X                                                   FCC1254    47
                          10633                   BX6    X3          MRA = MRA.X   */ MAKE REGS AVAIL IN *GRA*   FCC1254    48
          2510  5160000015 C                      SA6    MRA                                                     FCC1254    49
                                                                                                                 FCC1254    50
          2511  0222002571 +             RJ33     JP     MII.JT+B2   JUMP( MII.JT( OC[R1] ) )                    FCC1254    51
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE    99
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
                                        *         ST - SEE IF MOVABLE OR A RECURSIVE DEFINITION                  GPO      3491
                                                                                                                 GPO      3492
          2512                                    PROCESS ST                                                     GPO      3493
          2512  54351                             SA3    A5+B1       R2 = R1 + 1                                 GPO      3494
                     15650                        BX6    "RN"X5                                                  GPO      3495
                          20536                   LX5    -R1.INP                                                 GPO      3496
                               53456              SA4    "UB"+X5     UI = UDI(IN[R1])                            GPO      3497
          2513  20330                             LX3    -IH.RFP                                                 GPO      3498
                     73730                        SX7    X3                                                      GPO      3499
                          0317002317 +            NZ     X7,MII2     IF RF[R2] " 0 */ LEAVE INDEXED STORES ALONE GPO      3500
                                                                                                                 GPO      3501
          2514  53267                             SA2    "TB"+X6     LI = TB + RI[R1]                            GPO      3502
                                                  LX2    59-I.INVP                                               GPO      3503
                     5110000107 C                 SA1    AN                                                      GPO      3504
                               63250              SB2    X5                                                      GPO      3505
          2515  11712                             BX7    X1*X2                                                   GPO      3506
                     0420002543 +                 ZR     B2,ST3      IF IN[R1] = 0 */ AP/IO LIST STORE           GPO      3507
                                                                                                                 GPO      3508
          2516  0327002533 +                      PL     X7,ST1      IF ^( AN & INV[LI] )                        GPO      3509
                          43663                   MX6    -UD.STCL                                                GPO      3510
                               20656              LX6    UD.STCP+1                                               GPO      3511
          2517  15146                             BX1    -X6*X4                                                  GPO      3512
                     0311002533 +                 NZ     X1,ST1      IF ^( STC[UI] = 1 & IST[UI] = 0 )           GPO      3513
                                                                                                                 GPO      3514
                               54341              SA3    A4+B1       U2 = UI + 1                                 GPO      3515
          2520  5110000110 C                      SA1    UBD                                                     GPO      3516
                          5140000007 C            SA4    LEA                                                     FCCA513X   48
          2521  26723                             UX7    B2,X3       B = BITN[U2]                                GPO      3517
                     36617                        IX6    X1+X7                                                   GPO      3518
                          5130000005 C            SA3    UVA                                                     GPO      3519
          2522  36447                             IX4    X4+X7                                                   FCCA513X   49
                     36737                        IX7    X3+X7                                                   GPO      3520
                          53160                   SA1    X6          UFW = UBD( WI[U2] )                         GPO      3521
                               53440              SA4    X4          LEW = LEA( WI[U2] )                         FCCA513X   50
          2523  53370                             SA3    X7          PUW = UVA( WI[U2] )                         GPO      3522
                     12631                        BX6    X3+X1                                                   GPO      3523
                          12646                   BX6    X4+X6                                                   FCCA513X   51
                               23726              AX7    B2,X6                                                   GPO      3524
          2524  20773                             LX7    59                                                      GPO      3525
                     53456                        SA4    "UB"+X5     RESET UI                                    FCCA513X   52
                          0337002533 +            MI     X7,ST1      IF SHIFT(PUW!UFW!LEW!,59-B)                 FCCA513X   53
                                                                                                                 GPO      3527
                                        *         *ST* IS MOVABLE, CLEAR BITS IN *UDT* AND BLOCK *DEF* VECTOR    GPO      3528
                                        *         SET BIT IN REGION LIVE ENTRY BIT VECTOR FOR *RDD* AND *GRA*    FCC1556X   12
                                                                                                                 GPO      3530
          2525  5130002550 +                      SA3    STA                                                     FCC0408    87
                          15643                   BX6    -X3*X4      (DEFR,^RD,STC)[UI] = 0  */ SO LD"S CAN MOVE FCC0408    88
          2526  5130000000 C                      SA3    VL                                                      FCC0408    89
                          76710                   SX7    B1                                                      GPO      3535
                               54640              SA6    A4                                                      GPO      3536
          2527  22727                             LX7    B2,X7                                                   GPO      3537
                     63230                        SB2    X3                                                      GPO      3538
                          55112                   SA1    A1-B2       DEFW = UFW - VL                             GPO      3539
                               15617              BX6    -X7*X1      DEFW = DEFW & ^SHIFT(1,B)                   GPO      3540
          2530  54610                             SA6    A1                                                      GPO      3541
                     5130000007 C                 SA3    LEA                                                     FCC1556X   13
                               54441              SA4    A4+B1       U2 = UI + 1                                 FCC1556X   14
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   100
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
          2531  36634                             IX6    X3+X4                                                   FCC1556X   15
                     53460                        SA4    X6          LEW = [LEA+WI[U2]]                          FCC1556X   16
                          12674                   BX6    X7+X4       LEW = LEW ! SHIFT(1,B)  */ MOVED ST IS *LE* FCC1556X   17
                               54640              SA6    A4                                                      FCC1556X   18
          2532  0400002311 +                      EQ     MII1                                                    GPO      3547
  
                                        *         CHECK TO SEE IF THIS *ST* IS A RECURSIVE DEFINITION            GPO      3549
                                        *         THE RESTRICTION THAT THE *ST* IMMEDIATELY FOLLOW THE INCREMENT GPO      3550
                                        *         IS A SIMPLE WAY OF DISALLOWING USES OF THE INC BETWEEN IT AND  GPO      3551
                                        *         THE *ST*. WITHOUT THIS WE COULD GET INTO SOME NASTY SITUATIONS GPO      3552
                                        *         AS THE RESULT OF REGISTER ASSIGNMENT.                          GPO      3553
                                                                                                                 GPO      3554
          2533  20404                    ST1      LX4    59-UD.^RDP                                              GPO      3555
                     0334002317 +                 MI     X4,MII2     IF ^RD[UI]                                  GPO      3556
                               20203              LX2    I.INVP-I.IAP                                            GPO      3557
          2534  0322002541 +                      PL     X2,ST2      IF ^IA[LI]    */ PRED IS NOT  I+INV         GPO      3558
                                                                                                                 GPO      3559
                          20271                   LX2    1+I.IAP-I.LDIP                                          GPO      3560
                               76640              SX6    "SC"                                                    GPO      3561
          2535  13152                             BX1    X5-X2                                                   GPO      3562
                     63210                        SB2    X1                                                      GPO      3563
                          0520002541 +            NZ     B2,ST2      IF LDI[LI] " IN[R1]  */ NOT  I = I+INV      GPO      3564
          2536  64221                             SB2    A2+B1                                                   GPO      3565
                     75152                        SX1    A5-B2                                                   GPO      3566
                          0311002541 +            NZ     X1,ST2      IF LI+1 " R1  */ INC OP NOT NEXT TO *ST*    GPO      3567
                                                                                                                 GPO      3568
                                        *         ADD *ST* TO *STC*, LIST OF POSSIBLE *RD*"S                     GPO      3569
                                                                                                                 GPO      3570
          2537  20622                             LX6    I.STCP      STC[R1+3] = SC                              GPO      3571
                     54653                        SA6    A5+B3                                                   GPO      3572
                          66551                   S"NI"  "NI"+B1     NI = NI + 1                                 GPO      3573
                               65467              S"SC"  A6-"TB"     SC = R1+3 - TB                              GPO      3574
          2540  0400002317 +                      EQ     MII2                                                    GPO      3575
                                                                                                                 GPO      3576
                                        *         MARK VAR AS *^RD* IN *UDT*                                     GPO      3577
                                                                                                                 GPO      3578
          2541  43101                    ST2      MX1    1                                                       GPO      3579
                     12614                        BX6    X1+X4                                                   GPO      3580
                          20670                   LX6    1+UD.^RDP   ^RD[UI] = 1                                 GPO      3581
                               54640              SA6    A4                                                      GPO      3582
          2542  0400002317 +                      EQ     MII2                                                    GPO      3583
                                                                                                                 GPO      3584
                                        *         AP / IO LIST STORE, MOVABLE IF ^EQUIVALENCED                   GPO      3585
                                                                                                                 GPO      3586
          2543  0327002317 +             ST3      PL     X7,MII2     IF ^( AN & INV[R1] )                        GPO      3587
                                         .AP      IF     DEF,I.AP                                                CCG7      109
                          20344                   LX3    IH.RFP-IH.IHP                                           GPO      3588
                               73730              SX7    X3                                                      CCG18      93
          2544  21717                             AX7    IH.IP                                                   CCG18      94
                     5217777775 X                 SA1    =XO$APT-2+X7                                            CCGA030     5
                               43755              MX7    -IH.HL                                                  CCG18      96
          2545  15337                             BX3    -X7*X3                                                  CCG18      97
                     63230                        SB2    X3                                                      CCG18      98
                          53212                   SA2    X1+B2       AI = APT(H[R2])                             CCG18      99
                               43702              MX7    2                                                       FCC0672     8
          2546  11372                             BX3    X7*X2                                                   FCC0672     9
                     0303002311 +                 ZR     X3,MII1     IF ^( EQV[AI] ! BASE[AI] )                  CCG7      110
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   101
        MII - MARK INVARIANT INSTRUCTIONS                             ST                  MII 
  
                                         .AP      ENDIF                                                          CCG7      111
          2547  0400002317 +                      EQ     MII2                                                    CCG7      112
                                                                                                                 FCC0408    90
          2550                           STA      BFMW   UD,(DEFR,^RD,STC)                                       FCC0408    91
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   102
        MII - MARK INVARIANT INSTRUCTIONS                             EOQ                 MII 
  
                                        *         EOQ - END OF MARKING PHASE, SET CHAIN POINTERS IN *BSW*        GPO      3598
                                                                                                                 GPO      3599
          2551                                    PROCESS EOQ                                                    GPO      3600
          2551  5110000031 +                      SA1    BN                                                      GPO      3601
                          76540                   SX5    "SC"                                                    GPO      3602
                               75777              SX7    A7-"TB"     IIC = LII - TB                              GPO      3603
          2552  20522                             LX5    BS.STCP     STC[BSW] = SC                               GPO      3604
                                                  LX7    BS.IICP     IIC[BSW] = LII - TB                         GPO      3605
                     12657                        BX6    X5+X7                                                   GPO      3606
                          27756                   PX7    "NI",X6     NIS[BSW] = NI                               GPO      3607
                               56770              SA7    "TB"        [TB] = BSW                                  GPO      3608
          2553  5170000033 +                      SA7    BSW                                                     GPO      3609
                          0301002273 +            ZR     X1,MII      IF BN = 0     */ CALL FROM *CIF*            GPO      3610
                                                  TRACE  MII,RLIST,SEQ                                           GPO      3611
                                                                                                                 GPO      3612
                                        *         ADD CONTRIBUTIONS FROM THIS BLOCK INTO REGION USE/DEF VECTORS. GPO      3613
                                                                                                                 GPO      3614
          2554  5110000110 C                      SA1    UBD                                                     GPO      3615
                          5120000000 C            SA2    VL                                                      GPO      3616
          2555  5130000003 C                      SA3    DVA                                                     GPO      3617
                          66200                   SB2    B0          I = 0                                       GPO      3618
                               63320              SB3    X2                        (B3) = VL                     GPO      3619
          2556  66433                             SB4    B3+B3                                                   GPO      3620
                     37012                        IX0    X1-X2       BDA = UBD - VL                              GPO      3621
                          63630                   SB6    X3                        (B6) = [DVA]                  GPO      3622
                                                                                                                 GPO      3623
          2557  53102                    MII4     SA1    X0+B2                                                   GPO      3624
                     56262                        SA2    B6+B2                                                   GPO      3625
                          54314                   SA3    A1+B4                                                   GPO      3626
                               54424              SA4    A2+B4                                                   GPO      3627
          2560  12612                             BX6    X1+X2       DVA(I) = DVA(I) ! BDA(I)                    GPO      3628
                     54620                        SA6    A2                                                      GPO      3629
                          12734                   BX7    X3+X4       UVA(I) = UVA(I) ! BUA(I)                    GPO      3630
                               66221              SB2    B2+B1       I = I + 1                                   GPO      3631
          2561  54740                             SA7    A4                                                      GPO      3632
                     0723002557 +                 LT     B2,B3,MII4  IF I < VL                                   GPO      3633
                                                                                                                 GPO      3634
          2562  0470002567 +                      ZR     "TB",MII5   IF TB = 0                                   GPO      3635
                          5150000015 +            SA5    O.BIT                                                   GPO      3636
          2563  5147777774                        SA4    "TB"-3      R1 = TB - 3                                 GPO      3637
                          63250                   SB2    X5                                                      GPO      3638
                               53342              SA3    B2+X4       BIW = BIT(BN[R1])                           GPO      3639
                                                  LX3    59-BI.RBP                                               GPO      3640
          2564  0333002567 +                      MI     X3,MII5     IF RB[BIW]    */ NOT A HOLDING BLOCK        GPO      3641
                                                                                                                 GPO      3642
                          20352                   LX3    1+BI.RBP-BI.PBNP                                        GPO      3643
                               53232              SA2    B2+X3       BIW = BIT(PBN[BIW])                         GPO      3644
          2565  5110000017 +                      SA1    O.BVT                                                   GPO      3645
                                                  LX2    -BI.BVIP                                                GPO      3646
                          36012                   IX0    X1+X2       BDA = O.BVT + BVI[BIW]                      GPO      3647
                               66200              SB2    B0          I = 0                                       GPO      3648
          2566  66700                             S"TB"  B0          TB = 0                                      GPO      3649
                     0400002557 +                 EQ     MII4                                                    GPO      3650
                                                                                                                 GPO      3651
          2567  5120000111 C             MII5     SA2    IJP                                                     GPO      3652
                          0302002273 +            ZR     X2,MII      IF IJP = 0    */ NO INVARIANT JUMPS         GPO      3653
                                                                                                                 GPO      3654
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   103
        MII - MARK INVARIANT INSTRUCTIONS                             EOQ                 MII 
  
          2570  0400002273 +                      EQ     MII                                                     GPO      3655
  
  
  
                                        *         THE FOLLOWING OPCODES ARE NOT EXPECTED TO APPEAR               GPO      3657
                                                                                                                 GPO      3658
                                                  ECHO   1,X=(PLD,PST,SLD,SST,SDS,DRL,DWL)                       FCCA506X    5
                                         .X       EQU    1S17+MII                                                GPO      3660
                                                                                                                 GPO      3661
                                        *         OPR - DEFINE MACRO TO FORM JUMP TABLE FOR *MII*                GPO      3662
                                                                                                                 GPO      3663
                                                  MACRO  OPR,NAM,SS                                              GPO      3664
                                                  NOREF  .NAM                                                    GPO      3665
                                         O        IF     DEF,.NAM                                                GPO      3666
                                         Z        MICRO  3,1,/NAM/                                               GPO      3667
                                                  IFC    NE,/"Z"//,2                                             GPO      3668
                                                  EQ     .NAM              NAM                                   GPO      3669
                                                  SKIP   1                                                       GPO      3670
                                                  EQ     .NAM               NAM                                  GPO      3671
                                         O        ELSE   2                                                       GPO      3672
                                         TYP      MICRO  3,3,$SS$                                                GPO      3673
                                                  EQ     TY"TYP"     NAM                                         GPO      3674
                                                  ENDM                                                           GPO      3675
  
  
          2571                           MII.JT   BSS    0                                                       GPO      3677
      L      0                                    LOC    0                                                       GPO      3678
      L      0                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                                                                                                 GPO      3680
          2700                                    LOC    *O                                                      GPO      3681
                                                  LIST   -G                                                      GPO      3682
                                                                                                                 GPO      3683
                                                  QUAL   CODE                                                    GPO      3684
                                                                                                                 GPO      3685
                                2273 +   MII      EQU    /MII/MII                                                GPO      3686
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   104
        FII - FORM INCREMENT INFORMATION                              FII                 CODE
  
                                        **        FII - FORM INCREMENT INFORMATION                               GPO      3688
                                        *         SCAN *STC* TO FORM A LIST OF INCREMENT VALUES OF *RD*          GPO      3689
                                        *         VARIABLES, AND SAVE THEM IN *IIT*.                             GPO      3690
                                        *                                                                        GPO      3691
                                        *         EXIT   *STC* IN BSW UPDATED                                    GPO      3692
                                        *                *HBP* OF *ST* OF *RD* POINTS TO INCREMENT VALUE.        GPO      3693
                                                                                                                 GPO      3694
          2700  5140000113 C             FII0     SA4    IIL                                                     GPO      3695
                          5150000033 +            SA5    BSW                                                     GPO      3696
          2701  76650                             SX6    B5                                                      GPO      3697
                     20022                        LX0    BS.STCP                                                 GPO      3698
                          76340                   SX3    B4                                                      GPO      3699
                               11505              BX5    X0*X5                                                   GPO      3700
          2702  5160000000 X                      SA6    L.IIT       L.IIT = IL    */ FINAL LENGTH               GPO      3701
                          20322                   LX3    BS.STCP     STC[BSW] = SC                               GPO      3702
                               12135              BX1    X3+X5                                                   GPO      3703
          2703  27701                             PX7    X1          NIS[BSW] = 0                                GPO      3704
                     54750                        SA7    A5                                                      GPO      3705
                                                                                                                 GPO      3706
                                                  TRACE  FII,IIT                                                 GPO      3707
                                                                                                                 GPO      3708
          2704  0200402704 +             FII      ROUTINE                                                        GPO      3709
          2705  26624                             UX6    B2,X4                                                   GPO      3710
                     76120                        ALLOC  IIT,B2      ALLOC( IIT , NIS[BSW] )                     GPO      3711
          2707  5150000027 +                      SA5    O.SEQ                                                   GPO      3712
                          5140000033 +            SA4    BSW                                                     GPO      3713
          2710  5130000000 C                      SA3    O.UDT                                                   GPO      3714
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GPO      3715
          2711  76660                             SX6    B6          IIL = OLD(L.IIT)                            GPO      3716
                     66560                        SB5    B6          IL = IIL      */ *IIT* LENGTH               GPO      3717
                          5160000113 C            SA6    IIL                                                     GPO      3718
          2712  53020                             SA0    X2                                                      GPO      3719
                     63630                        S"UB"  X3          UB = O.UDT                                  GPO      3720
                          20452                   LX4    -BS.STCP                                                GPO      3721
                               63340              SB3    X4          I = STC[BSW]                                GPO      3722
          2713  66400                             SB4    B0          SC = 0        */ LAST ON CHAIN              GPO      3723
                     0400002717 +                 EQ     FII2                                                    GPO      3724
                                                                                                                 GPO      3725
                                        *         SAVE INC VALUE IN *IIT*, SET *ST* TO POINT TO *IIT*            GPO      3726
                                                                                                                 GPO      3727
          2714  54605                    FII1     SA6    A0+B5       IIT(IL) = ITW                               GPO      3728
                     76440                        SX4    B4                                                      GPO      3729
                          76150                   SX1    B5                                                      GPO      3730
                               20422              LX4    I.STCP      STC[LI] = SC  */ POINT TO LAST              GPO      3731
                                                  LX1    I.HBPP      HBP[LI] = IL  */ POINT TO INC VALUE         GPO      3732
          2715  27601                             PX6    X1          NPI[LI] = 0                                 GPO      3733
                     12746                        BX7    X4+X6                                                   GPO      3734
                          66551                   SB5    B5+B1       IL = IL + 1                                 GPO      3735
                               54750              SA7    A5                                                      GPO      3736
          2716  65457                             SB4    A5-"TB"     SC = LI - TB  */ CHAIN POINTS TO THIS       GPO      3737
                                                                                                                 GPO      3738
          2717  56573                    FII2     SA5    "TB"+B3     LI = TB + I                                 GPO      3739
                     0430002700 +                 ZR     B3,FII0     IF I = 0                                    GPO      3740
                               20552              LX5    -I.STCP                                                 GPO      3741
          2720  5045777774                        SA4    A5-3        R1 = LI - 3                                 GPO      3742
                          63350                   SB3    X5          I = STC[LI]   */ NEXT ON CHAIN              GPO      3743
                               15640              BX6    "RN"X4      R = RI[R1]                                  GPO      3744
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   105
        FII - FORM INCREMENT INFORMATION                              FII                 CODE
  
          2721  20436                             LX4    -R1.INP                                                 GPO      3745
                     53346                        SA3    "UB"+X4     UI = UB + IN[R1]                            GPO      3746
                          20304                   LX3    59-UD.^RDP                                              GPO      3747
                               55251              SA2    A5-B1       DI = LI - 1                                 GPO      3748
          2722  0333002717 +                      MI     X3,FII2     IF ^RD[UI]    */ ^ RD IN REGION             GPO      3749
                                                                                                                 GPO      3750
                                        *         *ST* IS STILL A *RD*, FIND THE INCREMENT VALUE                 GPO      3751
                                                                                                                 GPO      3752
                          67271                   SB2    "TB"-B1                                                 GPO      3754
                               53362              SA3    B2+X6       DIP = TB-1 + R                              GPO      3755
          2723  5043777775                        SA4    A3-2        R1 = DIP - 2                                GPO      3756
                          76110                   SX1    B1                                                      GPO      3757
                               20122              LX1    D.INCP                                                  GPO      3758
          2724  12713                             BX7    X1+X3       INC[DIP] = 1                                GPO      3759
                     54730                        SA7    A3                                                      GPO      3760
                          12612                   BX6    X1+X2       INC[DI] = 1                                 GPO      3761
                               26524              UX5    B2,X4                                                   GPO      3762
          2725  54620                             SA6    A2                                                      GPO      3763
                     7172777725                   SX7    B2-OC.STT                                               GPO      3764
          2726  0317002731 +                      NZ     X7,FII3     IF OC[R1] " OC.STT                          GPO      3765
                                                                                                                 GPO      3766
                          54341                   SA3    A4+B1       R2 = R1 + 1                                 GPO      3767
                               43152              MX1    -IH.CAL                                                 GPO      3768
          2727  20352                             LX3    -IH.CAP                                                 GPO      3769
                     15431                        BX4    -X1*X3                                                  GPO      3770
                          27604                   PX6    X4          ITW = PACK(0,CA[R2])                        GPO      3771
          2730  0400002714 +                      EQ     FII1                                                    GPO      3772
                                                                                                                 GPO      3773
                                        *         PROCESS IA, IS                                                 GPO      3774
                                                                                                                 GPO      3775
          2731  20434                    FII3     LX4    -R1.RJP                                                 GPO      3776
                     15640                        BX6    "RN"X4                                                  GPO      3777
                          53367                   SA3    "TB"+X6     LP = TB + RJ[R1]                            GPO      3778
                               43500              MX5    0           BIAS = 0                                    GPO      3779
          2732  74730                             SX7    A3          LA = LP                                     GPO      3780
                                                  LX3    59-I.INVP                                               GPO      3781
                     0333002734 +                 MI     X3,FII4     IF INV[LP]                                  GPO      3782
                               20420              LX4    R1.RJP-R1.RKP                                           GPO      3783
          2733  15640                             BX6    "RN"X4                                                  GPO      3784
                     7152777741                   SX5    B2-OC.IA    BIAS = OC[R1] - OC.IA                       GPO      3785
                               73767              SX7    "TB"+X6     LA = TB + RK[R1]                            GPO      3786
                                                                                                                 GPO      3787
                                        *         INC VALUE IS +- VAL OF *INV* PRED OF IA/IS                     GPO      3788
                                                                                                                 GPO      3789
          2734  5247777774               FII4     SA4    X7-3        R1 = LA - 3                                 GPO      3790
                          26624                   UX6    B2,X4                                                   GPO      3791
          2735  7112777727                        SX1    B2-OC.LD                                                GPO      3792
                          0311002740 +            NZ     X1,FII5     IF OC[R1] " OC.LD                           GPO      3793
                                                                                                                 GPO      3794
          2736  54441                             SA4    A4+B1       R2 = R1 + 1                                 GPO      3795
                     21636                        AX6    R1.INP                                                  GPO      3796
                          63251                   SB2    X5+B1                                                   GPO      3797
                               20644              LX6    IH.RFP                                                  GPO      3798
          2737  12564                             BX5    X6+X4       VAL = SHIFT(IN[R1],IH.RFP) + CAIH[R2]       GPO      3799
                     27625                        PX6    B2,X5       ITW = PACK( BIAS+1 , VAL )                  GPO      3800
                          0400002714 +            EQ     FII1                                                    GPO      3801
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   106
        FII - FORM INCREMENT INFORMATION                              FII                 CODE
  
                                        *         OPERATION IS ZP, SHOULD BE *S*, *FMA* OR *LDC*                 CCG36      24
                                                                                                                 GPO      3804
          2740  7172777722               FII5     SX7    B2-OC.S                                                 GPO      3805
                          43152                   MX1    -R1.INL                                                 GPO      3806
                               20436              LX4    -R1.INP     C = IN[R1]                                  GPO      3807
          2741  0307002744 +                      ZR     X7,FII6     IF OC[R1] = OC.S                            GPO      3808
                          7172777734              SX7    B2-OC.FMA                                               GPO      3809
          2742  0317002746 +                      NZ     X7,FII10    IF OC[R1] " OC.FMA                          GPO      3810
                          6224777776              SB2    X4-1                                                    GPO      3811
          2743  43201                             MX2    1                                                       GPO      3812
                     23422                        AX4    B2,X2       C = SHIFT( 1S59 , -(C-1) )                  GPO      3813
                                                                                                                 GPO      3814
          2744  0305002745 +             FII6     ZR     X5,FII7     IF BIAS = 0                                 GPO      3815
                          14444                   BX4    -X4         C = -C                                      GPO      3816
          2745  15441                    FII7     BX4    -X1*X4                                                  GPO      3817
                     27604                        PX6    X4          ITW = PACK( 0 , C )                         GPO      3818
                          0400002714 +            EQ     FII1                                                    GPO      3819
                                                                                                                 GPO      3820
          2746  7172777674               FII10    SX7    B2-OC.LDC                                               CCG36      25
                          0317402746 +            NZ     X7,*+1S17   IF OC[R1] " OC.LDC                          CCG36      26
          2747  5120000000 X                      SA2    =XO$CVT                                                 CCG36      27
                          54441                   SA4    A4+B1       R2 = R1 + 1                                 CCG36      28
                               20452              LX4    -IH.CAP                                                 CCG36      29
          2750  63220                             SB2    X2                                                      CCG36      30
                     53442                        SA4    B2+X4       C = CVT(CA[R2])                             CCG36      31
                          0400002744 +            EQ     FII6                                                    CCG36      32
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   107
        MIP - MARK INTEGER POLYNOMIALS                                MIP                 CODE
  
                                        **        MIP - MARK INTEGER POLYNOMIALS AND MERGE ONTO CHAIN OF *INV*   GPO      3823
                                        *         INSTRUCTIONS.                                                  GPO      3824
                                        *         FOWARD SCAN TO FORM A LIST OF INTEGER POLYNOMIALS ( *IP*"S ).  GPO      3825
                                        *         FOLLOWED BY A BACKWARDS SCAN OVER THE LIST TO MERGE THEM       GPO      3826
                                        *         ONTO THE *IIC*.  DURING THE MARKING PHASE WE COMPUTE THE       GPO      3827
                                        *         *COST* OF AN *IP*, WHICH IS AN APPROXIMATE MEASURE OF THE      GPO      3828
                                        *         NUMBER OF TERMS IN IT.  THE DIFFERENCE BETWEEN THE COST OF     GPO      3829
                                        *         AN *IP* AND ITS INCREMENT FORMULA ( 2 OR 3 ) IS AN APPROXIMATE GPO      3830
                                        *         MEASURE OF THE PROFIT IN CREATING A COMPILER TEMPORARY .       GPO      3831
                                                                                                                 GPO      3832
                                                  QUAL   MIP                                                     GPO      3833
                                                                                                                 GPO      3834
          2751                           MIP0     BSS    0                                                       GPO      3835
                                                  TRACE  MIP,RLIST,SEQ                                           GPO      3836
                                                                                                                 GPO      3837
          2751  0200402751 +             MIP      ROUTINE                                                        GPO      3838
          2752  5110000030 +                      SA1    L.SEQ                                                   GPO      3839
                          21102                   AX1    2                                                       GPO      3840
          2753  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                      GPO      3841
          2754  5130000000 C                      SA3    O.UDT                                                   GPO      3842
                          5140000027 +            SA4    O.SEQ                                                   GPO      3843
          2755  43700                             MX7    0                                                       GPO      3844
                     66500                        SB5    B0          LEI = 0       */ LAST ENCOUNTERED *INC* ST  FCC0717     8
                          5170000000 X            SA7    L.RND       L.RND = 0                                   GPO      3846
          2756  53720                             SA7    X2          PI = O.RND;  [PI] = 0                       GPO      3847
                     6140000051                   SB4    59-D.INCP                                               GPO      3848
                               63630              S"UB"  X3          UB = O.UDT                                  GPO      3849
          2757  6130000003                        SB3    3                                                       GPO      3850
                          43163                   MX1    -I.COSTL                                                GPO      3851
                               63743              S"TB"  X4+B3       TB = O.SEQ + 3                              GPO      3852
          2760  20155                             LX1    I.COSTP                                                 GPO      3853
                     53540                        SA5    X4          R1 = O.SEQ                                  GPO      3854
                          10655                   BX6    X5                                                      FCC2271X    5
                               20650              LX6    -IM.APLNL-R1.H2P  ARTICULATION NODE TO SIGN BIT         FCC2271X    6
          2761  5160000107 C                      SA6    AN          MI IFF UNCONDITIONALLY EXECUTED (SAVED IN * FCC2271X    7
                          0400002773 +            EQ     MIP2                                                    GPO      3855
  
  
  
                                        *         ADD INSTRUCTION TO *IP* LIST, (A6,X6) = LI, [LI]               FCC0717     9
                                                                                                                 GPO      3858
                                         MIP1     LX4    59-I.INVP                                               GPO      3859
          2762  0334002773 +                      MI     X4,MIP2     IF INV[LI]                                  GPO      3860
                          75747                   SX7    A4-"TB"                                                 GPO      3861
                               54771              SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                GPO      3862
          2763  0450002773 +                      ZR     B5,MIP2     IF LEI = 0    */ NO INCREMENTS YET          FCC0717    10
                          10766                   BX7    X6                                                      FCC0717    11
                               20773              LX7    59-I.LDIP                                               FCC0717    12
          2764  0337002773 +                      MI     X7,MIP2     IF ODD[LDI[LI]]  */ USES NEW VALUE          FCC0717    13
                                                                                                                 FCC0717    14
                                        *         IP USES OLD VALUE OF INCREMENT VARIABLE, MARK IT AS *AIP*      FCC0717    15
                                        *         IF IT OCCURS PAST A REDEF OF THE INCREMENT VARIABLE.           FCC0717    16
                                                                                                                 FCC0717    17
                          5130000122 C            SA3    SC                                                      FCC1532X    6
          2765  63230                             SB2    X3          J = SC        */ FIRST INC ST IN BLOCK      FCC1532X    7
                                                  LX6    -I.LDIP     L = LDI[LI]                                 FCC0717    21
                                                                                                                 FCC0717    22
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   108
        MIP - MARK INTEGER POLYNOMIALS                                MIP                 MIP 
  
          2766  56472                    MIP1A    SA4    "TB"+B2     LIS = TB + J  */ LINK WD OF INC ST          FCC0717    23
                     55343                        SA3    A4-B3       R1S = LIS - 3 */ R1 WORD                    FCC0717    24
                          20336                   LX3    -R1.INP                                                 FCC0717    25
                               13536              BX5    X3-X6                                                   FCC0717    26
          2767  73250                             SX2    X5                                                      FCC0717    27
                     0302002772 +                 ZR     X2,MIP1B    IF IN[R1S] = L  */ SAME VARIABLE            FCC0717    28
                               20452              LX4    -I.STCP                                                 FCC0717    29
          2770  6224000000                        SB2    X4+         J = STC[LIS]  */ NEXT ON CHAIN              FCC0717    30
                          0420002773 +            ZR     B2,MIP2     IF J = 0      */ END OF CHAIN               FCC0717    31
          2771  0652002766 +                      LE     B2,B5,MIP1A IF J @ LEI                                  FCC0717    32
                          0400002773 +            EQ     MIP2                                                    FCC0717    33
                                                                                                                 FCC0717    34
          2772  76410                    MIP1B    SX4    B1                                                      FCC0717    35
                     20466                        LX4    I.AIPP                                                  FCC0717    36
                                                  LX6    I.LDIP                                                  FCC0717    37
                          12646                   BX6    X4+X6       AIP[LI] = 1                                 FCC0717    38
                               54660              SA6    A6                                                      FCC0717    39
                                                                                                                 GPO      3863
                                        *         ADVANCE TO NEXT INSTRUCTION, JUMP TO PROCESSOR                 GPO      3864
                                                                                                                 GPO      3865
          2773  5055000004               MIP2     SA5    A5+4        R1 = R1 + 4                                 GPO      3866
                          54453                   SA4    A5+B3       LI = R1 + 3                                 GPO      3867
                               26625              UX6    B2,X5                                                   GPO      3868
          2774  0222004052 +                      JP     MIP.JT+B2   JUMP( MIP.JT( OC[R1] ) )                    GPO      3869
                                                                                                                 GPO      3870
          2775                           MIPA     BFMW   I,(IP,COST,LDI)                                         GPO      3871
          2776                           MIPB     BFMW   I,(IIC,LDI)                                             GPO      3872
          2777                           MIPC     BFMW   I,(IP,C1)                                               GPO      3873
          3000                           MIPD     BFMW   I,(IP,LDI)                                              GPO      3874
  
  
  
                                        *         ST - SET *LEI* IF AN INCREMENT STORE                           FCC0717    41
                                                                                                                 FCC0717    42
          3001                                    PROCESS ST                                                     FCC0717    43
          3001  15650                             BX6    "RN"X5                                                  FCC1504X   19
                     20536                        LX5    -R1.INP                                                 FCC1504X   20
                          53356                   SA3    "UB"+X5     UI = UDT(IN[R1])                            FCC1504X   21
                               20317              LX3    59-UD.RFP                                               FCC1504X   22
          3002  0323003004 +                      PL     X3,ST1      IF ^RF[UI]    */ NOT SHORT USE              FCC1504X   23
                          67271                   SB2    "TB"-B1                                                 FCC1504X   24
                               53362              SA3    B2+X6       DIP = TB-1 + RI[R1]                         FCC1504X   25
          3003  76610                             SX6    B1                                                      FCC1504X   26
                     20623                        LX6    D.RFP                                                   FCC1504X   27
                          12663                   BX6    X6+X3       RF[DIP] = 1   */ PROPAGATE *RF* TO ST PRED  FCC1504X   28
                               54630              SA6    A3                                                      FCC1504X   29
                                                                                                                 FCC1504X   30
          3004  55341                    ST1      SA3    A4-B1       DI = LI - 1                                 FCC1504X   31
                     20351                        LX3    59-D.INCP                                               FCC0717    45
                          0323002773 +            PL     X3,MIP2     IF ^INC[DI]                                 FCC0717    46
                                                                                                                 FCC0717    47
          3005  0550003007 +                      NZ     B5,ST2      IF LEI " 0    */ ^ FIRST INC ST IN BLOCK    FCC1532X    8
                          75647                   SX6    A4-"TB"                                                 FCC1532X    9
          3006  5160000122 C                      SA6    SC          SC = LI - TB  */ TXT INDEX OF FIRST INC ST  FCC1532X   10
                                                                                                                 FCC1532X   11
          3007  65547                    ST2      SB5    A4-"TB"     LEI = LI - TB */ LAST INC ST                FCC1532X   12
                     0400002773 +                 EQ     MIP2                                                    FCC0717    49
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   109
        MIP - MARK INTEGER POLYNOMIALS                                BBM                 MIP 
  
                                        *         BASIC BLOCK MARKER, CLEAR *LEI*                                FCC0717    51
                                                                                                                 FCC0717    52
          3010                                    PROCESS (RJ3,RJ6,LAB)                                          FCC0717    53
          3010  66500                             SB5    B0          LEI = 0                                     FCC0717    54
                     0400002773 +                 EQ     MIP2                                                    FCC0717    55
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   110
        MIP - MARK INTEGER POLYNOMIALS                                EOQ                 MIP 
  
                                        **        EOQ - MERGE *IP* LIST INTO *ICC* CHAIN                         GPO      3876
                                                                                                                 GPO      3877
          3011                                    PROCESS EOQ                                                    GPO      3878
          3011  5120000000 X                      SA2    O.RND                                                   FCC0717    57
                          6252000000              SB5    X2+                                                     FCC0717    58
          3012  65475                             SB4    A7-B5       NP = PI - O.RND                             GPO      3879
                     54570                        SA5    A7          PI = PI                                     GPO      3880
                          0614002751 +            LE     B4,B1,MIP0  IF NP @ 1                                   GPO      3881
                                                                                                                 GPO      3882
          3013  5120000033 +                      SA2    BSW                                                     GPO      3883
                          5110002776 +            SA1    MIPB                                                    GPO      3884
                                                  LX2    -BS.IICP                                                GPO      3885
          3014  6160000022                        SB6    I.IICP                                                  GPO      3886
                          63220                   SB2    X2          IC = IIC[BSW]                               GPO      3887
                               63350              SB3    X5          PL = [PI]                                   GPO      3888
          3015  0723003017 +                      GT     B3,B2,MIP3  IF PL > IC                                  GPO      3889
                          66420                   SB4    B2          LE = IC                                     GPO      3890
                               56472              SA4    "TB"+B2     LI = TB + IC                                GPO      3891
          3016  23764                             AX7    B6,X4                                                   GPO      3892
                     63270                        SB2    X7          IC = IIC[LI]                                GPO      3893
                          0400003021 +            EQ     MIP4                                                    GPO      3894
                                                                                                                 GPO      3895
          3017  11202                    MIP3     BX2    X0*X2                                                   GPO      3896
                     12625                        BX6    X2+X5       IIC[BSW] = PL */ UPDATE CHAIN POINTER       GPO      3897
                                                  LX6    BS.IICP                                                 GPO      3898
                          5062000000              SA6    A2+                                                     GPO      3899
          3020  63450                             SB4    X5          LE = PL                                     GPO      3900
                     55551                        SA5    A5-B1       PI = PI - 1                                 GPO      3901
                          63350                   SB3    X5          PL = [PI]                                   GPO      3902
                               56474              SA4    "TB"+B4     LI = TB + LE                                GPO      3903
                                                                                                                 GPO      3904
          3021  0732003025 +             MIP4     GT     B2,B3,MIP5  IF IC > PL                                  GPO      3905
                          76330                   SX3    B3                                                      GPO      3906
                               15741              BX7    -X1*X4      HBP[LI] = 0                                 GPO      3907
          3022  20322                             LX3    I.IICP                                                  GPO      3908
                     12637                        BX6    X3+X7       IIC[LI] = PL                                GPO      3909
                          54640                   SA6    A4                                                      GPO      3910
                               66430              SB4    B3          LE = PL                                     GPO      3911
          3023  55551                             SA5    A5-B1       PI = PI - 1                                 GPO      3912
                     56473                        SA4    "TB"+B3     LI = TB + PL                                GPO      3913
                          6235000000              SB3    X5+         PL = [PI]                                   GPO      3914
          3024  0315003021 +                      NZ     X5,MIP4     IF PL " 0                                   GPO      3915
                          0420003031 +            ZR     B2,MIP6     IF IC = 0                                   GPO      3916
                                                                                                                 GPO      3917
          3025  76320                    MIP5     SX3    B2                                                      GPO      3918
                     15741                        BX7    -X1*X4      HBP[LI] = 0                                 GPO      3919
                          20322                   LX3    I.IICP                                                  GPO      3920
                               12637              BX6    X3+X7       IIC[LI] = IC                                GPO      3921
          3026  54640                             SA6    A4                                                      GPO      3922
                     66420                        SB4    B2          LE = IC                                     GPO      3923
                          56472                   SA4    "TB"+B2     LI = TB + IC                                GPO      3924
                               23764              AX7    B6,X4                                                   GPO      3925
          3027  63270                             SB2    X7          IC = IIC[LI]                                GPO      3926
                     0732003025 +                 GT     B2,B3,MIP5  IF IC > PL                                  GPO      3927
          3030  0530003021 +                      NZ     B3,MIP4     IF PL " 0                                   GPO      3928
                                                                                                                 GPO      3929
          3031  15641                    MIP6     BX6    -X1*X4      IIC[LI] = HBP[LI] = 0                       GPO      3930
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   111
        MIP - MARK INTEGER POLYNOMIALS                                EOQ                 MIP 
  
                     54640                        SA6    A4                                                      GPO      3931
                          0400002751 +            EQ     MIP0                                                    GPO      3932
  
  
  
                                        *         TYPE II - SET *IP* BIT                                         GPO      3934
                                                                                                                 GPO      3935
          3032                                    PROCESS (FMA,S)                                                GPO      3936
          3032  76210                             SX2    B1                                                      GPO      3937
                     20267                        LX2    I.IPP                                                   GPO      3938
                          12624                   BX6    X2+X4       IP[LI] = 1                                  GPO      3939
                               54640              SA6    A4                                                      GPO      3940
          3033  0400002773 +                      EQ     MIP2                                                    GPO      3941
  
  
  
                                        *         LD - IF *RD* , THEN SET *IP* BIT , AND *LDI* FIELD IF ^INV     GPO      3943
                                                                                                                 GPO      3944
          3034                                    PROCESS (LD,LDC,LDV)   ILD -> LD IN MII                        CCG16     204
          3034  54351                             SA3    A5+B1       R2 = R1 + 1                                 GPO      3946
                     20536                        LX5    -R1.INP                                                 GPO      3947
                          53256                   SA2    "UB"+X5     UI = UB + IN[R1]                            GPO      3948
                               20330              LX3    -IH.RFP                                                 GPO      3949
          3035  15630                             BX6    "RN"X3                                                  GPO      3950
                     0316002773 +                 NZ     X6,MIP2     IF RF[R2] " 0                               GPO      3951
                               20204              LX2    59-UD.^RDP                                              GPO      3952
          3036  0332002773 +                      MI     X2,MIP2     IF ^RD[UI]                                  GPO      3953
                                                                                                                 GPO      3954
                          5130002777 +            SA3    MIPC                                                    GPO      3955
          3037  12634                             BX6    X3+X4       IP[LI] = 1;  COST[LI] = 1                   GPO      3956
                                                  LX4    59-I.INVP                                               GPO      3957
                     0334003041 +                 MI     X4,LD1      IF INV[LI]                                  GPO      3958
                                                                                                                 GPO      3959
                               75747              SX7    A4-"TB"                                                 GPO      3960
          3040  73550                             SX5    X5                                                      GPO      3961
                     54771                        SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                GPO      3962
                                                  LX5    I.LDIP      LDI[LI] = IN[R1]                            GPO      3963
                          12665                   BX6    X6+X5                                                   GPO      3964
          3041  54640                    LD1      SA6    A4                                                      GPO      3965
                     0400002773 +                 EQ     MIP2                                                    GPO      3966
  
  
          3042                                    PROCESS XMTC                                                   GPO      3968
          3042  0400002773 +                      EQ     MIP2                                                    CCGA046    12
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   112
        MIP - MARK INTEGER POLYNOMIALS                                SXT                 MIP 
  
                                        *         SXT - CONSTANT SHIFT PREDECESSOR                               GPO      3984
                                                                                                                 GPO      3985
          3043                                    PROCESS SXT                                                    GPO      3986
          3043  20534                             LX5    -R1.RJP                                                 GPO      3987
                     5120002775 +                 SA2    MIPA                                                    GPO      3988
                               15750              BX7    "RN"X5                                                  GPO      3989
          3044  53377                             SA3    "TB"+X7     LJ = TB + RJ[R1]                            GPO      3990
                     54541                        SA5    A4+B1       R1 = LI + 1   */ ADVANCE TO CON SHIFT       GPO      3991
                          11623                   BX6    X2*X3                                                   GPO      3992
                               20304              LX3    59-I.IPP                                                GPO      3993
          3045  0323002773 +                      PL     X3,MIP2     IF ^IP[LJ]                                  GPO      3994
                                                                                                                 GPO      3995
                          26225                   UX2    B2,X5                                                   GPO      3996
                               54351              SA3    A5+B1       R2 = R1 + 1                                 GPO      3997
          3046  6122777757                        SB2    B2-OC.KLS                                               GPO      3998
                          0520002773 +            NZ     B2,MIP2     IF OC[R1] " OC.KLS                          GPO      3999
          3047  20352                             LX3    -IH.CAP                                                 GPO      4000
                     6223777747                   SB2    X3-24                                                   CCG21      16
                               75747              SX7    A4-"TB"                                                 GPO      4002
          3050  0620002773 +                      PL     B2,MIP2     IF CA[R2] \ 24  */ SHIFT COUNT TOO BIG      CCG21      17
                                                                                                                 GPO      4004
                                                  LX4    59-I.INVP                                               GPO      4005
                          0334003052 +            MI     X4,SXT1     IF INV[LI]                                  GPO      4006
          3051  54771                             SA7    A7+B1       PI = PI + 1;  [PI] = LI - TB                GPO      4007
                                                                                                                 GPO      4010
          3052  54453                    SXT1     SA4    A5+B3       LI = R1 + 3                                 GPO      4011
                     76710                        SX7    B1                                                      GPO      4012
                          12664                   BX6    X6+X4       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LJ]       GPO      4013
                               20755              LX7    I.COSTP                                                 GPO      4014
          3053  36676                             IX6    X7+X6       COST[LI] = COST[LI] + 1                     GPO      4015
                     54640                        SA6    A4                                                      GPO      4016
                          0400002762 +            EQ     MIP1                                                    FCC0717    59
  
  
  
          3054                                    PROCESS IM                                                     GPO      4019
          3054  20534                             LX5    -R1.RJP                                                 GPO      4020
                     15650                        BX6    "RN"X5                                                  GPO      4021
                          20520                   LX5    R1.RJP-R1.RKP                                           GPO      4022
                               53267              SA2    "TB"+X6     LJ = TB + RJ[R1]                            GPO      4023
          3055  15750                             BX7    "RN"X5                                                  GPO      4024
                     53377                        SA3    "TB"+X7     LK = TB + RK[R1]                            GPO      4025
                          11623                   BX6    X2*X3                                                   GPO      4026
                               20604              LX6    59-I.IPP                                                GPO      4027
          3056  0326002773 +                      PL     X6,MIP2     IF ^( IP[LJ] & IP[LK] )                     GPO      4028
                                                                                                                 GPO      4029
                          12723                   BX7    X2+X3       LJK = [LJ] ! [LK]                           GPO      4030
                               76530              SX5    B3          ICOST = 3                                   GPO      4031
                                                  LX7    59-I.INVP                                               GPO      4032
          3057  0327002773 +                      PL     X7,MIP2     IF NEITHER INVARIANT                        FCC2271X    8
                          5140000107 C            SA4    AN                                                      FCC2271X    9
          3060  0334003074 +                      MI     X4,IM5      IF UNCONDTIONALLY EXECUTED                  FCC2271X   10
                          55221                   SA2    A2-B1       DJ = LJ - 1                                 FCC2271X   11
          3061  0100000000 X                      CALL   CMO         CHECK SAFETY OF J OPERAND                   FCC2271X   12
          3062  55231                             SA2    A3-B1       DK = LK - 1                                 FCC2271X   13
                     0306003065 +                 ZR     X6,IM1      IF J IS SAFE                                FCC2271X   14
          3063  0100000000 X                      CALL   CMO         CHECK SAFETY OF K OPERAND                   FCC2271X   15
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   113
        MIP - MARK INTEGER POLYNOMIALS                                IM                  MIP 
  
          3064  0306003067 +                      ZR     X6,IM2      IF K IS SAFE                                FCC2271X   16
                          0400002773 +            EQ     MIP2        NOT SAFE (NEITHER OPERAND)                  FCC2271X   17
                                                                                                                 FCC2271X   18
          3065  0100000000 X             IM1      CALL   CMO         CHECK SAFETY OF K (J IS SAFE)               FCC2271X   19
          3066  0306003071 +                      ZR     X6,IM4      IF K IS SAFE                                FCC2271X   20
                                                                                                                 FCC2271X   21
                                        *         ONE OPERAND SAFE.  MARK MULTIPLY UNSAFE SO *SQZ* WILL          FCC2271X   22
                                        *         INSERT AN UNPACK, AND HOIST.                                   FCC2271X   23
                                                                                                                 FCC2271X   24
          3067  5045000002               IM2      SA4    A5+2        DI = RI + 2                                 FCC2271X   25
                          76610                   SX6    B1                                                      FCC2271X   26
                               20633              LX6    D.USIP                                                  FCC2271X   27
          3070  12664                             BX6    X6+X4       USI[DI] = 1                                 FCC2271X   28
                     54640                        SA6    A4                                                      FCC2271X   29
                                                                                                                 FCC2271X   30
                                        *         MULTIPLY CAN BE HOISTED WITH IMPUNITY.                         FCC2271X   31
                                                                                                                 FCC2271X   32
          3071  54550                    IM4      SA5    A5                                                      FCC2271X   33
                     20534                        LX5    -R1.RJP                                                 FCC2271X   34
                          15650                   BX6    "RN"X5                                                  FCC2271X   35
                               53267              SA2    "TB"+X6     RESTORE LJ                                  FCC2271X   36
          3072  5045000003                        SA4    A5+3        RETORE LI                                   FCC2271X   37
                          12723                   BX7    X2+X3       RESTORE LJK                                 FCC2271X   38
                               76530              SX5    B3          ICOST = 3                                   FCC2271X   39
          3073  0400003104 +                      EQ     IA1                                                     FCC2271X   40
                                                                                                                 FCC2271X   41
          3074  5045000003               IM5      SA4    A5+3        RESTORE LI                                  FCC2271X   42
                          0400003104 +            EQ     IA1                                                     FCC2271X   43
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   114
        MIP - MARK INTEGER POLYNOMIALS                                ADDS                MIP 
  
                                        **        ADDS - ONLY ALLOW *IP*"S IN 1 VARIABLE                         GPO      4037
                                                                                                                 GPO      4038
          3075                                    PROCESS (IA,IS)                                                GPO      4039
          3075  55341                             SA3    A4-B1       DI = LI - 1                                 GPO      4040
                     20534                        LX5    -R1.RJP                                                 GPO      4041
                          15650                   BX6    "RN"X5                                                  GPO      4042
                               20520              LX5    R1.RJP-R1.RKP                                           GPO      4043
          3076  15750                             BX7    "RN"X5                                                  GPO      4044
                     53267                        SA2    "TB"+X6     LJ = TB + RJ[R1]                            GPO      4045
                          22543                   LX5    B4,X3                                                   GPO      4046
                               53377              SA3    "TB"+X7     LK = TB + RK[R1]                            GPO      4047
          3077  11623                             BX6    X2*X3                                                   GPO      4048
                     20604                        LX6    59-I.IPP                                                GPO      4049
                          0326003112 +            PL     X6,IA3      IF ^( IP[LJ] & IP[LK] )                     GPO      4050
                                                                                                                 GPO      4051
          3100  12723                             BX7    X2+X3       LJK = [LJ] ! [LK]                           GPO      4052
                     0335003110 +                 MI     X5,IA2      IF INC[DI]                                  GPO      4053
                               76510              SX5    B1          ICOST = 1                                   GPO      4054
                                                  LX7    59-I.INVP                                               GPO      4055
          3101  0337003104 +                      MI     X7,IA1      IF INV[LJ] ! INV[LK]                        GPO      4056
                                                                                                                 GPO      4057
                                        *         BOTH ^INV, MAKE SURE VARIABLES ARE THE SAME                    GPO      4058
                                                                                                                 GPO      4059
                          13623                   BX6    X2-X3                                                   GPO      4060
                                                  LX6    -I.LDIP                                                 GPO      4061
                               63260              SB2    X6                                                      GPO      4062
          3102  0520002773 +                      NZ     B2,MIP2     IF LDI[LJ] " LDI[LK]                        GPO      4063
                                                                                                                 GPO      4064
                          0316003104 +            NZ     X6,IA1      IF [LJ] " [LK]                              GPO      4065
          3103  43300                             MX3    0           COST[LK] = 0  */ IN REGS ONLY               GPO      4066
                                                                                                                 GPO      4067
                                        *         ADD INSTRUCTION TO *IP* LIST, COST = ICOST + SIGMA(COST[PRED]) GPO      4068
                                                                                                                 GPO      4069
          3104  15621                    IA1      BX6    -X1*X2                                                  GPO      4070
                     5120003000 +                 SA2    MIPD                                                    GPO      4071
                               20555              LX5    I.COSTP                                                 GPO      4072
          3105  15331                             BX3    -X1*X3                                                  GPO      4073
                     36445                        IX4    X4+X5       COST[LI] = ICOST                            GPO      4074
                                                  LX7    1+I.INVP                                                GPO      4075
                          11727                   BX7    X2*X7       IP[LI] = 1;  LDI[LI] = LDI[LJK]             GPO      4076
                               36636              IX6    X3+X6                                                   GPO      4077
          3106  12474                             BX4    X7+X4                                                   GPO      4078
                     36664                        IX6    X6+X4       COST[LI] = COST[LI] + COST[LJ] + COST[LK]   GPO      4079
                          5064000000              SA6    A4+                                                     GPO      4080
          3107  0400002762 +                      EQ     MIP1                                                    GPO      4081
                                                                                                                 GPO      4082
                                        *         INCREMENT, SET COST = 1, SINCE ANY USES OF IT ARE USES OF A    GPO      4083
                                        *         LD OF THE REDEF VAR, BUMP LDI TO INDICATE NEW VARIABLE.        FCC0656    44
                                                                                                                 GPO      4085
          3110  5120002777 +             IA2      SA2    MIPC                                                    GPO      4086
                                                  LX7    -I.LDIP                                                 GPO      4087
                          73771                   SX7    X7+B1       LDI[LI] = LDI[LJK] + 1 */ MARK NEW VAR      FCC0656    45
                                                  LX7    I.LDIP                                                  GPO      4089
                               12474              BX4    X7+X4                                                   FCC0656    46
          3111  12624                             BX6    X2+X4       IP[LI] = 1;  COST[LI] = 1                   GPO      4091
                     54640                        SA6    A4                                                      GPO      4092
                          0400002762 +            EQ     MIP1                                                    GPO      4093
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   115
        MIP - MARK INTEGER POLYNOMIALS                                IA                  MIP 
  
                                        *         CHECK FOR *IA* + *INV*, AND MARK *IA* IF SO                    GPO      4095
                                                                                                                 GPO      4096
          3112  12723                    IA3      BX7    X2+X3                                                   GPO      4097
                                                  LX7    59-I.INVP                                               GPO      4098
                     0327002773 +                 PL     X7,MIP2     IF ^( INV[LJ] ! INV[LK] )                   GPO      4099
                               20703              LX7    I.INVP-I.IAP                                            GPO      4100
          3113  0327002773 +                      PL     X7,MIP2     IF ^( IA[LJ] ! IA[LK] )                     GPO      4101
                                                                                                                 GPO      4102
                          76710                   SX7    B1                                                      GPO      4103
                               20770              LX7    I.IAP                                                   GPO      4104
          3114  12674                             BX6    X7+X4       IA[LI] = 1                                  GPO      4105
                     54640                        SA6    A4                                                      GPO      4106
                          0400002773 +            EQ     MIP2                                                    GPO      4107
  
  
                                        *         STT - PROPAGATE *IA* BIT UP FOR USE BY *JPX* PROCESSOR         GPO      4109
                                                                                                                 GPO      4110
          3115                                    PROCESS STT                                                    GPO      4111
          3115  54351                             SA3    A5+B1       R2 = R1 + 1                                 GPO      4112
                     76710                        SX7    B1                                                      GPO      4113
                                                  LX3    -IH.IHP                                                 GPO      4114
                          63230                   SB2    X3                                                      GPO      4115
                               20330              LX3    IH.IHP-IH.RFP                                           GPO      4116
          3116  20770                             LX7    I.IAP                                                   GPO      4117
                     15630                        BX6    "RN"X3                                                  GPO      4118
                          53267                   SA2    "TB"+X6     LIP = TB + RF[R2]                           GPO      4119
                               11772              BX7    X7*X2                                                   GPO      4120
          3117  12674                             BX6    X7+X4       IA[LI] = IA[LIP]                            GPO      4121
                     54640                        SA6    A4                                                      GPO      4122
                                                                                                                 GPO      4123
                                        *         ADD TO *IP* LIST IF NOT *PS* OR *PRS* ( UNPROFITABLE CASES )   GPO      4124
                                                                                                                 GPO      4125
                          54331                   SA3    A3+B1       DI = R2 + 1                                 GPO      4126
                               43772              MX7    -D.STRSL                                                GPO      4127
          3120  20746                             LX7    D.STRSP                                                 FCC0717    60
                     15737                        BX7    -X7*X3                                                  GPO      4129
                          0317002773 +            NZ     X7,MIP2     IF STRS[DI] " 0  */ *INC* OR INIT CODE      GPO      4130
          3121  0420003123 +                      ZR     B2,STT1     IF IH[R2] = 0                               GPO      4131
                                                                                                                 GPO      4132
                          65227                   SB2    A2-"TB"                                                 GPO      4133
          3122  0520002773 +                      NZ     B2,MIP2     IF RF[R2] " 0                               GPO      4134
                          0400003032 +            EQ     .S                                                      GPO      4135
                                                                                                                 GPO      4136
          3123  20204                    STT1     LX2    59-I.IPP                                                GPO      4137
                     0322002773 +                 PL     X2,MIP2     IF ^IP[LIP]                                 GPO      4138
                               20270              LX2    1+I.IPP                                                 GPO      4139
          3124  5130002775 +                      SA3    MIPA                                                    GPO      4140
                          11723                   BX7    X2*X3                                                   GPO      4141
                               12667              BX6    X6+X7       (IP,COST,LDI)[LI] = (IP,COST,LDI)[LIP]      GPO      4142
          3125  54660                             SA6    A6                                                      GPO      4143
                     0400002762 +                 EQ     MIP1                                                    GPO      4144
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   116
        MIP - MARK INTEGER POLYNOMIALS                                JPX                 MIP 
  
                                        *         JPX - CHECK FOR LOOP BACK JUMP, AND IF SO COLLECT INFORMATION  GPO      4146
                                        *         FOR TEST REPLACEMENT IN *GRA*.  STATEMENTS OF THE FORM -       GPO      4147
                                        *         IF( I @ LIM ) GO TO LIH  RI = LIM - I ;  PL  RI,LIH            GPO      4148
                                        *         IF( I < LIM ) GO TO LIH  RI = I - LIM ;  MI  RI,LIH            GPO      4149
                                        *         ARE THE PATTERNS THAT WE LOOK FOR HERE.                        GPO      4150
                                                                                                                 GPO      4151
          3126                                    PROCESS JPX                                                    GPO      4152
          3126  5120000027 C                      SA2    N.LJ                                                    GPO      4153
                          5130000025 C            SA3    LIH                                                     GPO      4154
          3127  54451                             SA4    A5+B1       R2 = R1 + 1                                 GPO      4155
                     63220                        SB2    X2                                                      GPO      4156
                          13734                   BX7    X3-X4                                                   GPO      4157
                               73670              SX6    X7                                                      GPO      4158
          3130  0521002773 +                      NE     B2,B1,MIP2  IF N.LJ " 1                                 GPO      4159
                          0316002773 +            NZ     X6,MIP2     IF IH[R2] " LIH                             GPO      4160
          3131  20452                             LX4    -IH.CAP                                                 GPO      4161
                     6244777775                   SB4    X4-2        JPT = CA[R2] - 2                            GPO      4162
                               67273              SB2    "TB"-B3                                                 GPO      4163
          3132  0740002773 +                      MI     B4,MIP2     IF JPT @ 0    */ ZR, NZ JUMPS               GPO      4164
                          0714002773 +            GT     B4,B1,MIP2  IF JPT > 1    */ RANGE CHECK JUMPS          GPO      4165
                                                                                                                 GPO      4166
                                        *         FIND UPPER LIMIT VALUE AND SAVE IN *LUL*                       GPO      4167
                                                                                                                 GPO      4168
          3133  53452                             SA4    B2+X5       RIP = TB-3 + RI[R1]                         GPO      4169
                     26624                        UX6    B2,X4                                                   GPO      4170
                          7172777725              SX7    B2-OC.STT                                               GPO      4171
          3134  0317003140 +                      NZ     X7,JPX1     IF OC[R1P] " OC.STT                         GPO      4172
                                                                                                                 GPO      4173
                          0541002773 +            NE     B4,B1,MIP2  IF JPT " 1    */ NOT *MI* JUMP              GPO      4174
          3135  54341                             SA3    A4+B1       R2P = R1P + 1                               GPO      4175
                     20352                        LX3    -IH.CAP                                                 GPO      4176
                          43222                   MX2    IH.CAL                                                  GPO      4177
                               73431              SX4    X3+B1                                                   GPO      4178
          3136  20222                             LX2    IH.CAL                                                  GPO      4179
                     15724                        BX7    -X4*X2                                                  GPO      4180
                          27607                   PX6    X7          ULW = PACK( 0 , -(CA[R2P]+1) )              GPO      4181
                               20352              LX3    IH.CAP-IH.RFP                                           GPO      4182
          3137  15530                             BX5    "RN"X3      R = RF[R2P]                                 GPO      4183
                     0400003160 +                 EQ     JPX5                                                    GPO      4184
                                                                                                                 GPO      4185
          3140  7172777740               JPX1     SX7    B2-OC.IS                                                GPO      4186
                          0317002773 +            NZ     X7,MIP2     IF OC[R1P] " OC.IS                          GPO      4187
                                                                                                                 GPO      4188
                                        *         CHECK LIMIT OPERAND OF *IS*                                    GPO      4189
                                                                                                                 GPO      4190
          3141  54343                             SA3    A4+B3       LIP = R1P + 3                               GPO      4191
                     43702                        MX7    2                                                       GPO      4192
                          20303                   LX3    58-I.IAIPP                                              GPO      4193
                               11737              BX7    X3*X7                                                   GPO      4194
          3142  0307002773 +                      ZR     X7,MIP2     IF ^( IA[LIP] ! IP[LIP] )                   GPO      4195
                                                                                                                 GPO      4196
                          20434                   LX4    -R1.RJP                                                 GPO      4197
          3143  0540003145 +                      NZ     B4,JPX2     IF JPT " 0                                  GPO      4198
                                                                                                                 GPO      4199
                          15740                   BX7    "RN"X4      LRN = RJ[R1P] */ LIMIT R-NUMBER             GPO      4200
                               20420              LX4    R1.RJP-R1.RKP                                           GPO      4201
          3144  15540                             BX5    "RN"X4      R = RK[R1P]                                 GPO      4202
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   117
        MIP - MARK INTEGER POLYNOMIALS                                JPX                 MIP 
  
                     0400003146 +                 EQ     JPX3                                                    GPO      4203
                                                                                                                 GPO      4204
          3145  15540                    JPX2     BX5    "RN"X4      R = RJ[R1P]                                 GPO      4205
                     20520                        LX5    R1.RJP-R1.RKP                                           GPO      4206
                          15740                   BX7    "RN"X4      LRN = RK[R1P]                               GPO      4207
                                                                                                                 GPO      4208
          3146  67271                    JPX3     SB2    "TB"-B1                                                 GPO      4209
                     53272                        SA2    B2+X7       DIP = TB-1 + LRN                            GPO      4210
                          5042777775              SA4    A2-2        R1P = DIP - 2                               GPO      4211
          3147  20241                             LX2    59-D.ZPP                                                GPO      4212
                     0322002773 +                 PL     X2,MIP2     IF ^ZP[DIP]   */ NOT *LD* OR *S*            GPO      4213
                               20263              LX2    D.ZPP-D.LDP                                             GPO      4214
          3150  0322003155 +                      PL     X2,JPX4     IF ^LD[DIP]                                 GPO      4215
                          20244                   LX2    D.LDP-D.TYP-1                                           GPO      4216
          3151  0322002773 +                      PL     X2,MIP2     IF TYPE[DIP] " III                          GPO      4217
                                                                                                                 GPO      4218
                          0540002773 +            NZ     B4,MIP2     IF JPT " 0    */ CANT ADD 1 TO UPPER LIMIT  GPO      4219
          3152  54341                             SA3    A4+B1       R2P = R1P + 1                               GPO      4220
                     43230                        MX2    -IH.CAIHL                                               GPO      4221
                          20436                   LX4    -R1.INP                                                 GPO      4222
                               73440              SX4    X4                                                      GPO      4223
          3153  15232                             BX2    -X2*X3                                                  GPO      4224
                     20444                        LX4    PS.UDIP                                                 GPO      4225
                          12742                   BX7    X4+X2                                                   GPO      4226
                               27617              PX6    B1,X7       ULW = PACK( 1 , IN[R1P] , CAIH[R2P] )       GPO      4227
          3154  0400003160 +                      EQ     JPX5                                                    GPO      4228
                                                                                                                 GPO      4229
          3155  26624                    JPX4     UX6    B2,X4                                                   GPO      4230
                     7172777722                   SX7    B2-OC.S                                                 GPO      4231
                               20436              LX4    -R1.INP                                                 GPO      4232
          3156  0317002773 +                      NZ     X7,MIP2     IF OC[R1P] " OC.S                           GPO      4233
                          67204                   SB2    -B4                                                     GPO      4234
                               73442              SX4    X4+B2                                                   GPO      4235
          3157  43352                             MX3    -IH.CAL                                                 GPO      4236
                     15743                        BX7    -X3*X4                                                  GPO      4237
                          27607                   PX6    X7          ULW = PACK( 0 , IN[R1P]-JPT )               GPO      4238
                                                                                                                 GPO      4239
                                        *         NOW CHECK FOR THE INDEX, IT MUST BE *RD* IN THE LOOP.          GPO      4240
                                                                                                                 GPO      4241
          3160  53457                    JPX5     SA4    "TB"+X5     LIP = TB + R                                GPO      4242
                     20403                        LX4    59-I.IAP                                                GPO      4243
                          5160000023 C            SA6    LUL         LUL = ULW                                   GPO      4244
          3161  0324003166 +                      PL     X4,JPX7     IF ^IA[LIP]                                 GPO      4245
                                                                                                                 GPO      4246
                                        *         PRED IS *IA* ( IA,IS,STT ) , GET ^INV PRED OF THIS INSTRUCTION GPO      4247
                                                                                                                 GPO      4248
                          55341                   SA3    A4-B1       DIP = LIP - 1                               GPO      4249
                                                  LX3    58-D.TYP                                                GPO      4250
          3162  0323003164 +                      PL     X3,JPX6     IF TYPE[DIP] = I                            GPO      4251
                          55231                   SA2    A3-B1       R2P = DIP - 1                               GPO      4252
                               20230              LX2    -IH.RFP                                                 GPO      4253
          3163  15520                             BX5    "RN"X2      R = RF[R2P]                                 GPO      4254
                     0400003166 +                 EQ     JPX7                                                    GPO      4255
                                                                                                                 GPO      4256
          3164  55343                    JPX6     SA3    A4-B3       R1P = LIP - 3                               GPO      4257
                     20334                        LX3    -R1.RJP                                                 GPO      4258
                          15530                   BX5    "RN"X3      R = RJ[R1P]                                 GPO      4259
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   118
        MIP - MARK INTEGER POLYNOMIALS                                JPX                 MIP 
  
                               53457              SA4    "TB"+X5     LIP = TB + R                                GPO      4260
                                                  LX4    59-I.INVP                                               GPO      4261
          3165  0324003166 +                      PL     X4,JPX7     IF ^INV[LIP]                                GPO      4262
                          20320                   LX3    R1.RJP-R1.RKP                                           GPO      4263
                               15530              BX5    "RN"X3      R = RK[R1P]                                 GPO      4264
                                                                                                                 GPO      4265
                                        *         CHECK FOR *LD* OF A *RD* VARIABLE                              GPO      4266
                                                                                                                 GPO      4267
          3166  67273                    JPX7     SB2    "TB"-B3                                                 GPO      4268
                     53452                        SA4    B2+X5       R1P = TB-3 + R                              GPO      4269
                          26624                   UX6    B2,X4                                                   GPO      4270
                               20436              LX4    -R1.INP                                                 GPO      4271
          3167  7172777727                        SX7    B2-OC.LD                                                GPO      4272
                          0317002773 +            NZ     X7,MIP2     IF OC[R1P] " OC.LD                          GPO      4273
          3170  53246                             SA2    "UB"+X4     UI = UB + IN[R1]                            GPO      4274
                     20204                        LX2    59-UD.^RDP                                              GPO      4275
                          0332002773 +            MI     X2,MIP2     IF ^RD[UI]    */ VAR NOT ^RD IN LOOP        GPO      4276
                                                                                                                 GPO      4277
                                        *         TEST REPLACEMENT POSSIBLE, SET FLAGS FOR *GRA*                 GPO      4278
                                                                                                                 GPO      4279
          3171  54341                             SA3    A4+B1       R2P = R1P + 1                               GPO      4280
                     43230                        MX2    -IH.CAIHL                                               GPO      4281
                          54550                   SA5    A5          R1 = R1                                     GPO      4282
                               73440              SX4    X4                                                      GPO      4283
          3172  15232                             BX2    -X2*X3                                                  GPO      4284
                     67271                        SB2    "TB"-B1                                                 GPO      4285
                          20444                   LX4    PS.UDIP                                                 GPO      4286
                               12742              BX7    X4+X2                                                   GPO      4287
          3173  53452                             SA4    B2+X5       DIP = TB-1 + RI[R1]                         GPO      4288
                     27617                        PX6    B1,X7                                                   GPO      4289
                          5160000021 C            SA6    LCV         LCV = PACK( 1 , IN[R1P] , CAIH[R2P] )       GPO      4290
          3174  76610                             SX6    B1                                                      GPO      4291
                     5160000030 C                 SA6    LTT         LTT = 1       */ LOOP TEST TYPE             GPO      4292
                               20622              LX6    D.INCP                                                  GPO      4293
          3175  12646                             BX6    X4+X6       INC[DIP] = 1  */ PRED OF *JPX* IS TEST USE  GPO      4294
                     54640                        SA6    A4                                                      GPO      4295
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GPO      4296
          3176  76610                             SX6    B1                                                      GPO      4297
                     20622                        LX6    D.INCP                                                  GPO      4298
                          12664                   BX6    X6+X4       INC[DI] = 1   */ MARK *JPX* AS LOOP TEST JU GPO      4299
                               54640              SA6    A4                                                      GPO      4300
          3177  0400002773 +                      EQ     MIP2                                                    GPO      4301
                                                                                                                 GPO      4302
                                                  QUAL   *                                                       GPO      4303
                                                                                                                 GPO      4304
                                2751 +   MIP      EQU    /MIP/MIP                                                GPO      4305
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   119
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        **        MIE - MOVE INVARIANT EXPRESSIONS AND TERMINAL POLYNOMIALS TO   GPO      4307
                                        *         HOLDING BLOCK.                                                 GPO      4308
                                        *                                                                        GPO      4309
                                        *         THE CHIEF CONCERN OF *MIE* IS PROFIT. THE CRITERIA USED HERE   GPO      4310
                                        *         IS TO MOVE OUT AN INSTRUCTION IF IT HAS PREDECESSORS AND IS    GPO      4311
                                        *         NOT AN *XMT* THAT *PS* OR A *SA*/*STT* THAT PRECEEDS A TEMP    GPO      4312
                                        *         LOCK *RS* TO A B-REG.                                          GPO      4313
                                        *                                                                        GPO      4314
                                        *         SINCE THE MOTION OF *IP*"S INVOLVES PLACING AN INCREMENT       GPO      4315
                                        *         INSTRUCTION BACK IN THE LOOP, WE USE THE *COST* OF THE *IP*    GPO      4316
                                        *         AS THE CHIEF PROFIT CRITERIA.  THE CONDITION THAT A *IP* BE    GPO      4317
                                        *         *RF* IS NECESSARY FOR THE *IP* TO BE A B-REGISTER CANIDATE.    GPO      4318
                                        *                                                                        GPO      4319
                                        *         EXIT   INVARIANT EXPRESSIONS, TERMINAL POLYNOMIALS CODE MOVED  GPO      4320
                                        *         TO HOLDING BLOCK ( *TXT* ). *TET* UPDATED.                     GPO      4321
                                                                                                                 GPO      4322
          3200  0200403200 +             MIE      ROUTINE                                                        GPO      4323
          3201  5130000114 C                      SA3    MINC                                                    GPO      4324
                          6275000003              S"TB"  X5+3        TB = TBA + 3                                GPO      4325
                                                  LX4    -BS.IICP                                                GPO      4326
          3202  56000                             SA0    B0          LII = 0                                     GPO      4327
                     43163                        MX1    -D.USESL                                                GPO      4328
                          63230                   SB2    X3                        (B2) = MINC                   GPO      4329
                               66400              SB4    B0          NTI = 0       */ N.TERMINAL INST            GPO      4330
          3203  66500                             SB5    B0          NMI = 0       */ N.MOVED INST               GPO      4331
                     63640                        SB6    X4          I = IIC[BSW]  */ NEXT ON *IIC* CHAIN        GPO      4332
                                                                                                                 GPO      4333
                                        *         RESCAN *IIC* AND FORM A FOWARD CHAIN OF INST THAT ARE PROFITAB GPO      4334
                                        *         TO MOVE, OR USED BY ANOTHER INSTRUCTION.                       GPO      4335
                                                                                                                 GPO      4336
          3204  56576                    MIE1     SA5    "TB"+B6     LI = TB + I                                 GPO      4337
                     0460003254 +                 ZR     B6,MIE14    IF I = 0      */ END OF CHAIN               GPO      4338
                               55451              SA4    A5-B1       DI = LI - 1                                 GPO      4339
          3205  10355                             BX3    X5                                                      GPO      4340
                     20530                        LX5    -I.USESP                                                GPO      4341
                          15751                   BX7    -X1*X5                                                  GPO      4342
                               20522              LX5    I.USESP-I.IICP                                          GPO      4343
          3206  10644                             BX6    X4          D = [DI]                                    GPO      4344
                     63650                        SB6    X5          I = IIC[LI]   */ NEXT ON CHAIN              GPO      4345
                          0317003223 +            NZ     X7,MIE5     IF USES[LI] " 0  */ USED BY ANOTHER         GPO      4346
                                                                                                                 GPO      4347
                                                  LX3    59-I.INVP                                               GPO      4348
          3207  0333003213 +                      MI     X3,MIE2     IF INV[LI]                                  GPO      4349
                                                                                                                 GPO      4350
                                        *         TERMINAL *IP*, SEE IF PROFITABLE TO MOVE                       GPO      4351
                                                                                                                 GPO      4352
                          20650                   LX6    59-D.RFP                                                GPO      4353
                               20317              LX3    1+I.INVP-I.COSTP                                        GPO      4354
          3210  15731                             BX7    -X1*X3                                                  GPO      4356
                     63370                        SB3    X7                                                      GPO      4357
                          0732003204 +            LT     B3,B2,MIE1  IF COST[LI] < MINC                          CCG21      18
          3211  0336003232 +                      MI     X6,MIE7     IF RF[D]                                    CCG21      19
                          6133777773              SB3    B3-4                                                    CCG21      20
          3212  0630003232 +                      PL     B3,MIE7     IF COST[LI] \ 4                             CCG21      21
                                                                                                                 GPO      4359
                          0400003204 +            EQ     MIE1                                                    GPO      4360
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   120
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         TERMINAL INV INST, SEE IF PROFITABLE TO MOVE                   GPO      4362
                                                                                                                 GPO      4363
          3213  20624                    MIE2     LX6    58-D.STRSP                                              GPO      4364
                     43702                        MX7    D.STRSL                                                 GPO      4365
                          11376                   BX3    X7*X6                                                   GPO      4366
          3214  0313003216 +                      NZ     X3,MIE3     IF STRS[D] " 0                              GPO      4367
                          20615                   LX6    1+D.STRSP-D.ZPP                                         GPO      4368
          3215  0336003204 +                      MI     X6,MIE1     IF ZP[D]      */ NO PRED                    GPO      4369
                          0400003232 +            EQ     MIE7                                                    GPO      4370
                                                                                                                 GPO      4371
                                         MIE3     LX6    1+D.STRSP-D.PSP                                         GPO      4372
          3216  0336003221 +                      MI     X6,MIE4     IF PS[DI]                                   GPO      4373
                          5035000004              SA3    A5+4                                                    GPO      4374
          3217  76710                             SX7    B1          IU = 1                                      GPO      4375
                                                  LX3    59-I.INVP                                               GPO      4376
                     0333003227 +                 MI     X3,MIE6     IF INV[LI+4]  */ INV FUNCTION ARG           GPO      4377
                               54251              SA2    A5+B1       R1RS = LI + 1                               GPO      4378
          3220  20247                             LX2    59-R1.SOP-4                                             GPO      4379
                     0322003204 +                 PL     X2,MIE1     IF SORT[R1RS] " 2  */ ^ TO AN X-REGISTER    GPO      4380
                                                                                                                 GPO      4381
                                        *         ( PS ! PRS ) & USES = 0                                        GPO      4382
                                                                                                                 GPO      4383
          3221  20615                    MIE4     LX6    D.PSP-D.ZPP                                             GPO      4384
                     0336003204 +                 MI     X6,MIE1     IF ZP[D]                                    GPO      4385
                               20666              LX6    D.ZPP-D.XMTP                                            GPO      4386
          3222  0336003204 +                      MI     X6,MIE1     IF XMT[D]                                   GPO      4387
                          0400003232 +            EQ     MIE7                                                    GPO      4388
  
  
                                        *         INSTRUCTION IS OPERAND OF ANOTHER THAT HAS BEEN MOVED OUT.     GPO      4390
                                                                                                                 GPO      4391
          3223  20625                    MIE5     LX6    59-D.PRSP                                               GPO      4392
                     0326003232 +                 PL     X6,MIE7     IF ^PRS[D]                                  GPO      4393
                                                                                                                 GPO      4394
                               54251              SA2    A5+B1       R1RS = LI + 1                               GPO      4395
          3224  5035000004                        SA3    A5+4                                                    GPO      4396
                          43700                   MX7    0           IU = 0                                      GPO      4397
                                                  LX3    59-I.INVP                                               GPO      4398
                               20245              LX2    59-R1.SOP-SO.LKP                                        GPO      4399
          3225  0332003227 +                      MI     X2,MIE6     IF SOLK[R1RS] " 0  */ TEMP LOCK             GPO      4400
                          0323003232 +            PL     X3,MIE7     IF ^INV[LI+4]                               GPO      4401
          3226  76710                             SX7    B1          IU = 1                                      GPO      4402
                                                                                                                 GPO      4403
                                        *         ADD *RS* TO CHAIN OF MOVED INST                                GPO      4404
                                                                                                                 GPO      4405
          3227  20352                    MIE6     LX3    1+I.INVP-I.IICP                                         GPO      4406
                     74600                        SX6    A0                                                      GPO      4407
                          11303                   BX3    X0*X3                                                   GPO      4408
                               36663              IX6    X6+X3       IIC[LI+4] = LII                             GPO      4409
          3230  20622                             LX6    I.IICP                                                  GPO      4410
                     66551                        SB5    B5+B1       NMI = NMI + 1                               GPO      4411
                          54630                   SA6    A3                                                      GPO      4412
                               55037              SA0    A3-"TB"     LII = LI+4 - TB                             GPO      4413
          3231  20722                             LX7    I.USESP-I.IICP                                          GPO      4414
                     36575                        IX5    X7+X5       USES[LI] = USES[LI] + IU                    GPO      4415
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   121
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         ADD INSTRUCTION TO CHAIN OF MOVED INSTRUCTIONS, MARK AS        GPO      4417
                                        *         TERMINAL IF NOT ALL USES ARE CONTAINED IN THE *INV* CHAIN.     GPO      4418
                                                                                                                 GPO      4419
          3232  74300                    MIE7     SX3    A0                                                      GPO      4420
                     11505                        BX5    X0*X5                                                   GPO      4421
                          36635                   IX6    X3+X5                                                   GPO      4422
                               66551              SB5    B5+B1       NMI = NMI + 1                               GPO      4423
          3233  20622                             LX6    I.IICP      IIC[LI] = LII                               GPO      4424
                     55057                        SA0    A5-"TB"     LII = LI - TB                               GPO      4425
                          54650                   SA6    A5                                                      GPO      4426
                               20552              LX5    I.IICP-I.USESP+D.USESP                                  GPO      4427
          3234  13754                             BX7    X5-X4                                                   GPO      4428
                                                  LX7    -D.USESP                                                GPO      4429
                     15271                        BX2    -X1*X7                                                  GPO      4430
                          0302003237 +            ZR     X2,MIE8     IF USES[LI] = USES[DI]                      GPO      4431
                                                                                                                 GPO      4432
          3235  76710                             SX7    B1                                                      GPO      4433
                     66441                        SB4    B4+B1       NTI = NTI + 1                               GPO      4434
                          20771                   LX7    I.TIP                                                   GPO      4435
                               12676              BX6    X7+X6       TI[LI] = 1    */ MARK AS TERMINAL           GPO      4436
          3236  54660                             SA6    A6                                                      GPO      4437
  
                                        *         BUMP USES COUNT OF OPERANDS OF INSTRUCTION                     GPO      4439
                                                                                                                 GPO      4440
                                         MIE8     LX4    58-D.TYP                                                GPO      4441
          3237  36744                             IX7    X4+X4                                                   GPO      4442
                     76610                        SX6    B1                                                      GPO      4443
                          0337003204 +            MI     X7,MIE1     IF TYPE[DI] = II ! IV                       GPO      4444
          3240  20644                             LX6    I.USESP                                                 GPO      4445
                     0324003246 +                 PL     X4,MIE10    IF TYPE[DI] = I                             GPO      4446
                                                                                                                 GPO      4447
                                        *         TYPE III INSTRUCTION                                           GPO      4448
                                                                                                                 GPO      4449
                               55341              SA3    A4-B1       R2 = DI - 1                                 GPO      4450
          3241  20422                             LX4    1+D.TYP-D.^DP                                           GPO      4451
                     20330                        LX3    -IH.RFP                                                 GPO      4452
                          15730                   BX7    "RN"X3      R = RF[R2]                                  GPO      4453
                               53277              SA2    "TB"+X7     L = TB + R                                  GPO      4454
          3242  0307003243 +                      ZR     X7,MIE9     IF R @ 1                                    GPO      4455
                          36762                   IX7    X6+X2       USES[L] = USES[L] + 1                       GPO      4456
                               54720              SA7    A2                                                      GPO      4457
                                                                                                                 GPO      4458
          3243  0324003204 +             MIE9     PL     X4,MIE1     IF DEF[DI]    */ NOT A STORE                GPO      4459
                          55331                   SA3    A3-B1       R1 = R2 - 1                                 GPO      4460
                               15730              BX7    "RN"X3                                                  GPO      4461
          3244  53277                             SA2    "TB"+X7     L = TB + RI[R1]                             GPO      4462
                     36762                        IX7    X6+X2       USES[L] = USES[L] + 1                       GPO      4463
                          5072000000              SA7    A2+                                                     GPO      4464
          3245  0400003204 +                      EQ     MIE1                                                    GPO      4465
                                                                                                                 GPO      4466
                                        *         TYPE I INSTRUCTION                                             GPO      4467
                                                                                                                 GPO      4468
          3246  43772                    MIE10    MX7    -D.TYIOL                                                GPO      4469
                     20424                        LX4    2+D.TYP-D.TYIOP                                         GPO      4470
                          15247                   BX2    -X7*X4                                                  GPO      4471
          3247  5232000000 X                      SA3    =XTYIOM+X2                                              GPO      4472
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GPO      4473
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   122
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3250  26733                             UX7    B3,X3                                                   GPO      4474
                     11275                        BX2    X7*X5                                                   GPO      4475
                          23532                   AX5    B3,X2       RNUMS = TYIOM[DI] & [R1]                    GPO      4476
                                                                                                                 GPO      4477
          3251  15450                    MIE11    BX4    "RN"X5      R = RI[RNUMS]                               GPO      4478
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                GPO      4479
                          0304003253 +            ZR     X4,MIE12    IF R = 0                                    GPO      4480
          3252  53347                             SA3    "TB"+X4     L = TB + R                                  GPO      4481
                     36763                        IX7    X6+X3       USES[L] = USES[L] + 1                       GPO      4482
                          5073000000              SA7    A3+                                                     GPO      4483
          3253  0315003251 +             MIE12    NZ     X5,MIE11    IF RNUMS " 0                                GPO      4484
                                                                                                                 GPO      4485
                          0400003204 +            EQ     MIE1                                                    GPO      4486
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   123
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                        *         MOVE THE FINAL CHAIN OF INSTRUCTIONS TO THE HOLDING BLOCK      GPO      4488
                                                                                                                 GPO      4489
          3254  0450003200 +             MIE14    ZR     B5,MIE      IF NMI = 0    */ NOTHING MOVED              GPO      4490
                          66444                   SB4    B4+B4                                                   GPO      4491
                               76254              SX2    B5+B4                                                   GPO      4492
          3255  20202                             LX2    2                                                       GPO      4493
                     74700                        SX7    A0                                                      GPO      4494
                          5170000115 C            SA7    IC          IC = LII                                    GPO      4495
          3256  74500                             SX5    A0                                                      GPO      4497
                     73121                        ALLOC  TXT,X2+B1   ALLOC( TXT , 4*(NMI+2*NTI) + 1 )            GPO      4498
          3260  5140000027 +                      SA4    O.SEQ       HBI = OLD(L.TXT)                            FCC1845X    5
                          6274000003              S"TB"  X4+3                                                    FCC1845X    6
          3261  5140000000 X                      SA4    L.TET                                                   GPO      4500
                          63350                   SB3    X5          I = LII                                     GPO      4501
          3262  5110000000 +                      SA1    DMASK                                                   GPO      4502
                          63440                   SB4    X4          TO = L.TET    */ TEMP ORDINAL               GPO      4503
                               63520              SB5    X2          HB = O.TXT                                  GPO      4504
          3263  56000                             SA0    B0          TSC = 0                                     GPO      4506
                     73626                        SX6    X2+B6                                                   GPO      4507
                          7100600001              SX0    RN.MASK                                                 CCG11     118
          3264  5160000117 C                      SA6    TBB         TBB = O.TXT + HBI                           GPO      4509
                          0400003274 +            EQ     MIE16                                                   GPO      4510
                                                                                                                 GPO      4511
                                        *         INCREMENT MOVED, CHANGE IT TO AN *XMT* OF THE *RD* VARIABLE    GPO      4512
                                        *         NOTE THAT AN *INC* CANNOT BE TERMINAL OR *PRS*                 GPO      4513
                                                                                                                 GPO      4514
          3265  5140000010 X             MIE14A   SA4    F.RDT+OC.XMT                                            GPO      4515
                          6120000010              SB2    OC.XMT                                                  GPO      4516
          3266  10744                             BX7    X4                                                      GPO      4517
                     55761                        SA7    A6-B1       [HA-1] = RDT(OC.MXT)                        GPO      4518
                          20330                   LX3    -IH.RFP                                                 GPO      4519
                               55671              SA6    A7-B1       [HA-2] = 0    */ R2 WORD                    GPO      4520
          3267  15720                             BX7    "RN"X2                                                  GPO      4521
                     73630                        SX6    X3          R = RF[R2]                                  GPO      4522
                          0316003272 +            NZ     X6,MIE14B   IF R " 0                                    GPO      4523
          3270  20234                             LX2    -R1.RJP                                                 GPO      4524
                     15620                        BX6    "RN"X2      R = RJ[R1]                                  GPO      4525
                          53367                   SA3    "TB"+X6     LIP = TB + R                                GPO      4526
                                                  LX3    59-I.INVP                                               GPO      4527
          3271  0323003272 +                      PL     X3,MIE14B   IF ^INV[LIP]                                GPO      4528
                          20220                   LX2    R1.RJP-R1.RKP                                           GPO      4529
                               15620              BX6    "RN"X2      R = RK[R1]                                  GPO      4530
                                                                                                                 GPO      4531
          3272  20640                    MIE14B   LX6    R1.RJP                                                  GPO      4532
                     27727                        PX7    B2,X7                                                   GPO      4533
                          12676                   BX6    X7+X6                                                   GPO      4534
                               55661              SA6    A6-B1       [HA-3] = TYI(OC.XMT,R,0,RI[R1])             GPO      4535
                                                                                                                 GPO      4536
                                                                                                                 GPO      4537
                                        *         ADVANCE TO NEXT ON CHAIN                                       GPO      4538
                                                                                                                 GPO      4539
          3273  20552                    MIE15    LX5    -I.IICP                                                 GPO      4540
                     63350                        SB3    X5          I = IIC[LI]   */ *BLK* INDEX OF INSTRUCTION GPO      4541
                          0430003361 +            ZR     B3,MIE20    IF I = 0                                    GPO      4542
                                                                                                                 GPO      4543
                                        *         MOVE INSTRUCTION TO HOLDING BLOCK                              GPO      4544
          3274  0100003340 +             MIE16    RJ     MIH         MOVE INSTRUCTIONS TO *HB*                   FCC1254    52
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   124
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
          3275  20451                             LX4    59-D.INCP                                               GPO      4562
                     0334003265 +                 MI     X4,MIE14A   IF INC[D]                                   GPO      4563
                               20702              LX7    59-I.TIP                                                GPO      4564
          3276  0327003273 +                      PL     X7,MIE15    IF ^TI[LI]    */ NOT TERMINAL               GPO      4565
                          20464                   LX4    D.INCP-D.ZPP                                            GPO      4566
          3277  0334003273 +                      MI     X4,MIE15    IF ZP[D]      */ NO PRED                    GPO      4567
                                                                                                                 GPO      4568
                          20772                   LX7    1+I.TIP                                                 GPO      4569
                               73770              SX7    X7          R = HBP[LI]   */ OPERAND OF *XMT*           GPO      4570
          3300  7162777772                        SX6    B2-OC.DEF                                               FCC1254    53
                          0306003322 +            ZR     X6,MIE19    IF OC[R1] = OC.DEF                          FCC1254    54
          3301  20460                             LX4    D.ZPP-D.PRSP                                            GPO      4571
                     0324003320 +                 PL     X4,MIE18    IF ^PRS[DI]                                 GPO      4572
                                                                                                                 GPO      4573
                                        *         TERMINAL AND PRS, CHECK FOR TEMP LOCK  *RS* TO A B-REG         GPO      4574
                                        *         IF THE ABOVE, THEN MAKE PRED TERMINAL IF COMPUTATION IS TO BE  GPO      4575
                                        *         REMOVED FROM *BLK*. EXAMPLE J = SHIFT(INV,I+5)+SHIFT(VAR,I+5)  GPO      4576
                                                                                                                 GPO      4577
                               54351              SA3    A5+B1       R1RS = LI + 1                               GPO      4578
          3302  20345                             LX3    -R1.SOP-SO.LKP-1                                        FCC1530X    5
                     0333003305 +                 MI     X3,MIE16A   IF SOLK[R1RS] = 1   */ A TEMP LOCK          FCC1530X    6
                                                                                                                 FCC1530X    7
          3303  5035000004                        SA3    A5+4        LIRS = LI + 4                               FCC1530X    8
                                                  LX3    59-I.INVP                                               FCC1530X    9
                          0323003320 +            PL     X3,MIE18    IF ^INV[LIRS] */ RS STAYS IN THE LOOP       FCC1530X   10
                                                                                                                 FCC1530X   11
          3304  43200                             MX2    0           LINV = 0                                    FCC1530X   12
                     0400003313 +                 EQ     MIE17A                                                  FCC1530X   13
                                                                                                                 FCC1530X   14
          3305  20447                    MIE16A   LX4    1+D.PRSP+58-D.TYP                                       FCC1530X   15
                     20234                        LX2    -R1.RJP     I = RJ[R1]                                  GPO      4585
                          0324003307 +            PL     X4,MIE17    IF TYPE[DI] = I                             GPO      4586
          3306  54221                             SA2    A2+B1       R2 = R1 + 1                                 GPO      4587
                     20230                        LX2    -IH.RFP     I = RF[R2]                                  GPO      4588
          3307  15620                    MIE17    BX6    "RN"X2                                                  GPO      4589
                     53367                        SA3    "TB"+X6     LIP = TB + I                                GPO      4590
                          63360                   SB3    X6                                                      GPO      4591
                               55231              SA2    A3-B1       DIP = LIP - 1                               GPO      4592
          3310  73730                             SX7    X3          R = HBP[LIP]                                GPO      4593
                     20302                        LX3    59-I.TIP                                                GPO      4594
                          0333003273 +            MI     X3,MIE15    IF TI[LIP]    */ PRED IS TERMINAL           GPO      4595
          3311  20241                             LX2    59-D.ZPP                                                GPO      4596
                     0332003273 +                 MI     X2,MIE15    IF ZP[DIP]                                  GPO      4597
                                                                                                                 GPO      4598
                                        *         CHAIN FOWARD AND MOVE THE RS OUT SO IT DOESNT GET SEPERATED    GPO      4599
                                                                                                                 GPO      4600
                               20372              LX3    1+I.TIP                                                 GPO      4601
          3312  43201                             MX2    1                                                       GPO      4602
                                                  LX2    1+I.INVP                                                GPO      4603
                     11223                        BX2    X2*X3       LINV = INV[LIP]                             GPO      4604
          3313  20552                    MIE17A   LX5    -I.IICP                                                 FCC1530X   16
                     53557                        SA5    "TB"+X5     LI = TB + IIC[LI]                           GPO      4606
                          55451                   SA4    A5-B1       DI = LI - 1                                 GPO      4607
          3314  5035777774                        SA3    A5-3        R1 = LI - 3                                 GPO      4608
                          10633                   BX6    X3                                                      GPO      4609
                               54661              SA6    A6+B1       HA = HA + 1;  [HA] = [R1]                   GPO      4610
          3315  43600                             MX6    0                                                       GPO      4611
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   125
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                     54661                        SA6    A6+B1       HA = HA + 1;  [HA] = 0                      GPO      4612
                          10644                   BX6    X4                                                      GPO      4613
                               54661              SA6    A6+B1       HA = HA + 1;  [HA] = [DI]                   GPO      4614
          3316  43600                             MX6    0                                                       GPO      4615
                     54661                        SA6    A6+B1       HA = HA + 1;  [HA] = 0                      GPO      4616
                          12525                   BX5    X2+X5       INV[LI] = LINV                              GPO      4617
          3317  6166000004                        SB6    B6+4        HBI = HBI + 4                               GPO      4618
                                                                                                                 GPO      4619
                                        *         CREATE *XMT* / *TST* TO SAVE RESULT IN A TEMPORARY             GPO      4620
                                        *         LINK WORD OF *TST* POINTS TO WHERE TO PLACE *TLD*              GPO      4621
                                                                                                                 GPO      4622
          3320  6120000010               MIE18    SB2    OC.XMT                                                  GPO      4623
                          0100003346 +            RJ     OST         OUTPUT XMT TST TO IT.                       FCC1254    55
          3321  0400003273 +                      EQ     MIE15                                                   FCC1254    56
                                                                                                                 FCC1254    57
                                        *         TERMINAL *DEF* MOVED TO *HB*, MOVE ALL FOLLOWING DEF"S TO      FCC1254    58
                                        *         THE *HB* BEFORE OUTPUTTING THE *TST*"S.                        FCC1254    59
                                                                                                                 FCC1254    60
          3322  76730                    MIE19    SX7    B3                                                      FCC1254    61
                     5170000116 C                 SA7    ISV         ISV = I                                     FCC1254    62
                                                                                                                 FCC1254    63
          3323  20552                    MIE19A   LX5    -I.IICP                                                 FCC1254    64
                     6235777774                   SB3    X5-3        I = IIC[LI] - 3                             FCC1254    65
                               56273              SA2    "TB"+B3     R1 = TB + I                                 FCC1254    66
          3324  26622                             UX6    B2,X2                                                   FCC1254    67
                     63350                        SB3    X5          I = IIC[LI]                                 FCC1254    68
                          7172777772              SX7    B2-OC.DEF                                               FCC1254    69
          3325  0317003327 +                      NZ     X7,MIE19B   IF OC[R1] " OC.DEF                          FCC1254    70
                          0100003340 +            RJ     MIH         MOVE INST TO *HB*                           FCC1254    71
          3326  0400003323 +                      EQ     MIE19A                                                  FCC1254    72
                                                                                                                 FCC1254    73
                                        *         NOW OUTPUT THE XMT/SA AND TST INSTRUCTIONS                     FCC1254    74
                                                                                                                 FCC1254    75
          3327  5120000116 C             MIE19B   SA2    ISV                                                     FCC1254    76
                          63320                   SB3    X2          I = ISV                                     FCC1254    77
                                                                                                                 FCC1254    78
          3330  56573                    MIE19C   SA5    "TB"+B3     LI = TB + I                                 FCC1254    79
                     5025777774                   SA2    A5-3        R1 = LI - 3                                 FCC1254    80
                               26722              UX7    B2,X2                                                   FCC1254    81
          3331  7162777772                        SX6    B2-OC.DEF                                               FCC1254    82
                          0316003337 +            NZ     X6,MIE19F   IF OC[R1] " OC.DEF                          FCC1254    83
                                                                                                                 FCC1254    84
          3332  10655                             BX6    X5                                                      FCC1254    85
                     20602                        LX6    59-I.TIP                                                FCC1254    86
                          0326003336 +            PL     X6,MIE19E   IF ^TI[LI]    */ NOT TERMINAL               FCC1254    87
                                                                                                                 FCC1254    88
          3333  6120000010                        SB2    OC.XMT      OC = OC.XMT                                 FCC1254    89
                          20247                   LX2    59-R1.SOP-4                                             FCC1254    90
          3334  0332003335 +                      MI     X2,MIE19D   IF REG[R1] \ 20B  */ DEF FROM AN X-REG      FCC1254    91
                          6120000060              SB2    OC.SA       OC = OC.SA                                  FCC1254    92
          3335  73750                    MIE19D   SX7    X5          RJ = HBP[LI]                                FCC1254    93
                     0100003346 +                 RJ     OST         OUTPUT XMT/SA AND TST                       FCC1254    94
          3336  20552                    MIE19E   LX5    -I.IICP                                                 FCC1254    95
                     63350                        SB3    X5          I = IIC[LI]                                 FCC1254    96
                          0400003330 +            EQ     MIE19C                                                  FCC1254    97
                                                                                                                 FCC1254    98
          3337  0530003274 +             MIE19F   NZ     B3,MIE16    IF I " 0      */ NOT END OF CHAIN           FCC1254    99
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   126
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                          0400003361 +            EQ     MIE20                                                   FCC1254   100
  
  
                                        **        MIH - MOVE INSTRUCTION TO HOLDING BLOCK                        FCC1254   102
                                        *                                                                        FCC1254   103
                                        *         ENTRY  (B3) = I                                                FCC1254   104
                                        *         EXIT   B2,X2,X3,X4,X5,X7 SET                                   FCC1254   105
                                                                                                                 FCC1254   106
          3340  0200403340 +             MIH      ROUTINE                                                        FCC1254   107
          3341  56573                             SA5    "TB"+B3     LI = TB + I                                 FCC1254   108
                     55451                        SA4    A5-B1       DI = LI = 1; D = [DI]                       FCC1254   109
                          55341                   SA3    A4-B1       R2 = DI - 1                                 FCC1254   110
                               55231              SA2    A3-B1       R1 = R2 - 1                                 FCC1254   111
          3342  10622                             BX6    X2                                                      FCC1254   112
                     56656                        SA6    B5+B6       HA = HB + HBI;  [HA] = [R1]                 FCC1254   113
                          22703                   LX7    X3                                                      FCC1254   114
                               54761              SA7    A6+B1       HA = HA + 1;  [HA] = [R2]                   FCC1254   115
          3343  15641                             BX6    -X1*X4                                                  FCC1254   116
                     54671                        SA6    A7+B1       HA = HA + 1;  [HA] = ^DMASK & D             FCC1254   117
                          76760                   SX7    B6                                                      FCC1254   118
                               12757              BX7    X5+X7       HBP[LI] = HBI                               FCC1254   119
          3344  54750                             SA7    A5                                                      FCC1254   120
                     6166000004                   SB6    B6+4        HBI = HBI + 4                               FCC1254   121
                               43600              MX6    0                                                       FCC1254   122
          3345  54661                             SA6    A6+B1       HA = HA + 1;  [HA] = 0                      FCC1254   123
                     26222                        UX2    B2,X2                                                   FCC1254   124
                          0400003340 +            EQ     MIH                                                     FCC1254   125
                                                                                                                 FCC1254   126
                                        **        OST - OUTPUT XMT AND TST TO IT.                                FCC1254   127
                                        *                                                                        FCC1254   128
                                        *         ENTRY  (B2,X7) = OC, RJ                                        FCC1254   129
                                                                                                                 FCC1254   130
          3346  0200403346 +             OST      ROUTINE                                                        FCC1254   131
          3347  20740                             LX7    R1.RJP                                                  GPO      4624
                     76460                        SX4    B6                                                      GPO      4625
                          27324                   PX3    B2,X4                                                   GPO      4626
                               12673              BX6    X7+X3                                                   GPO      4627
          3350  54661                             SA6    A6+B1       HA = HA + 1;  [HA] = TYI(OC.XMT,R,0,HBI)    GPO      4628
                     43600                        MX6    0                                                       GPO      4629
                          54661                   SA6    A6+B1       HA + HA + 1;  [HA] = 0                      GPO      4630
                               54661              SA6    A6+B1       HA + HA + 1;  [HA] = 0                      GPO      4631
          3351  6120000077                        SB2    OC.TST                                                  GPO      4632
                          54661                   SA6    A6+B1       HA + HA + 1;  [HA] = 0                      GPO      4633
          3352  5130000000 X                      SA3    =XIT.                                                   GPO      4634
                          27624                   PX6    B2,X4                                                   GPO      4635
                               54661              SA6    A6+B1       HA = HA + 1;  [HA] = TYIII(OC.TST,0,0,HBI)  GPO      4636
          3353  76240                             SX2    B4                                                      GPO      4637
                     20222                        LX2    IH.CAP                                                  GPO      4638
                                                  LX3    IH.IHP                                                  GPO      4639
                          12623                   BX6    X2+X3                                                   GPO      4640
                               54661              SA6    A6+B1       HA = HA + 1;  [HA] = IHW(0,TO,IT.)          GPO      4641
          3354  66441                             SB4    B4+B1       TO = TO + 1                                 GPO      4642
                     43600                        MX6    0                                                       GPO      4643
                          54661                   SA6    A6+B1       HA = HA + 1;  [HA] = 0                      GPO      4644
                               76730              SX7    B3                                                      GPO      4645
          3355  20722                             LX7    T.BIP                                                   GPO      4646
                     74300                        SX3    A0                                                      GPO      4647
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   127
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                          12673                   BX6    X7+X3                                                   GPO      4648
                               43301              MX3    1                                                       GPO      4649
                                                  LX3    1+I.INVP                                                GPO      4650
          3356  11235                             BX2    X3*X5                                                   GPO      4651
                     36626                        IX6    X2+X6                                                   GPO      4652
                          55451                   SA4    A5-B1       DI = LI - 1                                 CCG21      22
                               20324              LX3    D.RFP-I.INVP                                            CCG21      23
          3357  11234                             BX2    X3*X4                                                   CCG21      24
                     20244                        LX2    T.RFP-D.RFP                                             CCG21      25
                          12626                   BX6    X2+X6                                                   CCG21      26
                               54661              SA6    A6+B1       HA = HA + 1;  [HA] = TETW(INV,RF,0,I,TSC)   CCG21      27
          3360  55065                             SA0    A6-B5       TSC = HA - HB                               GPO      4654
                     64601                        SB6    A0+B1       HBI = TSC + 1  */ = HBI + 8                 GPO      4655
                          0400003346 +            EQ     OST                                                     FCC1254   132
  
  
  
                                        *         RENUMBER THE INSTRUCTIONS ADDED TO THE HOLDING BLOCK           GPO      4658
                                        *         PRESERVE A0, B4 FOR *TET* UPDATE                               GPO      4659
                                                                                                                 GPO      4660
          3361  43700                    MIE20    MX7    0           [HB+HBI] = 0  */ SET HB TERMINATOR          GPO      4661
                     56756                        SA7    B5+B6                                                   GPO      4662
                          76660                   SX6    B6          L.TXT = HBI                                 GPO      4663
                               66211              SB2    B1+B1                                                   GPO      4664
          3362  5160000000 X                      SA6    L.TXT                                                   GPO      4665
                          43102                   MX1    D.TYL                                                   GPO      4666
          3363  5120000117 C                      SA2    TBB                                                     GPO      4667
                          5242777775              SA4    X2-2        DI = TBB - 2                                GPO      4668
          3364  0400003366 +                      EQ     MIE22                                                   GPO      4669
                                                                                                                 GPO      4670
          3365  5133000000 X             MIE21    SA3    =XF.RDT+B3                                              GPO      4671
                          10633                   BX6    X3          [DI] = RDT(OC[R1])                          GPO      4672
                               54640              SA6    A4                                                      GPO      4673
                                                                                                                 GPO      4674
          3366  54542                    MIE22    SA5    A4+B2       R1 = DI + 2                                 GPO      4675
                     54452                        SA4    A5+B2       DI = R1 + 2                                 GPO      4676
                          0305003404 +            ZR     X5,MIE26    IF [R1] = 0   */ END OF BLOCK               GPO      4677
                                                  LX4    58-D.TYP                                                GPO      4678
          3367  16641                             BX6    -X1+X4                                                  GPO      4679
                     26735                        UX7    B3,X5                                                   GPO      4680
                          0304003365 +            ZR     X4,MIE21    IF [DI] = 0   */ XMT/TST                    GPO      4681
          3370  0306003366 +                      ZR     X6,MIE22    IF TYPE[DI] = IV                            GPO      4682
                                                                                                                 GPO      4683
                          15750                   BX7    "RN"X5                                                  GPO      4684
                               53377              SA3    "TB"+X7                                                 GPO      4685
          3371  11505                             BX5    X0*X5                                                   GPO      4686
                     73230                        SX2    X3                                                      GPO      4687
                          11414                   BX4    X1*X4                                                   GPO      4688
                               36625              IX6    X2+X5       RI[R1] = HBP[TB+RI[R1]]                     GPO      4689
          3372  0314003400 +                      NZ     X4,MIE25    IF TYPE[DI] " I                             GPO      4690
                                                                                                                 GPO      4691
                          20634                   LX6    -R1.RJP                                                 GPO      4692
                               15760              BX7    "RN"X6                                                  GPO      4693
          3373  0307003375 +                      ZR     X7,MIE23    IF RJ[R1] = 0                               GPO      4694
                          53377                   SA3    "TB"+X7                                                 GPO      4695
                               11606              BX6    X0*X6                                                   GPO      4696
          3374  73230                             SX2    X3          RJ[R1] = HBP[TB+RJ[R1]]                     GPO      4697
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   128
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                     12626                        BX6    X2+X6                                                   GPO      4698
          3375  20620                    MIE23    LX6    R1.RJP-R1.RKP                                           GPO      4699
                     15760                        BX7    "RN"X6                                                  GPO      4700
                          0307003377 +            ZR     X7,MIE24    IF RK[R1] = 0                               GPO      4701
          3376  53377                             SA3    "TB"+X7                                                 GPO      4702
                     11606                        BX6    X0*X6                                                   GPO      4703
                          73230                   SX2    X3          RK[R1] = HBP[TB+RK[R1]]                     GPO      4704
                               12626              BX6    X2+X6                                                   GPO      4705
          3377  20620                    MIE24    LX6    R1.RKP                                                  GPO      4706
                     54650                        SA6    A5                                                      GPO      4707
                          0400003366 +            EQ     MIE22                                                   GPO      4708
                                                                                                                 GPO      4709
          3400  54351                    MIE25    SA3    A5+B1       R2 = R1 + 1                                 GPO      4710
                     54650                        SA6    A5                                                      GPO      4711
                          20330                   LX3    -IH.RFP                                                 GPO      4712
                               15730              BX7    "RN"X3                                                  GPO      4713
          3401  0307003366 +                      ZR     X7,MIE22    IF RF[R2] @ 1                               GPO      4714
                          53277                   SA2    "TB"+X7                                                 GPO      4715
                               11303              BX3    X0*X3                                                   GPO      4716
          3402  73720                             SX7    X2                                                      GPO      4717
                     36637                        IX6    X3+X7                                                   GPO      4718
                          20644                   LX6    IH.RFP      RF[R2] = HBP[TB+RF[R2]]                     GPO      4719
                               54630              SA6    A3                                                      GPO      4720
          3403  0400003366 +                      EQ     MIE22                                                   GPO      4721
  
  
  
                                        *         RESCAN THE CHAIN OF MOVED INSTRUCTIONS AND CHANGE THE ONES     GPO      4723
                                        *         THAT ARE ^D AND NOT A TEMP LOCK *RS* TO *BOS*"S SO *SQZ*       GPO      4724
                                        *         WILL ELIMINATE THEM WHEN THE BLOCK IS SQUEEZED AGAIN.          GPO      4725
                                                                                                                 GPO      4726
          3404  5110000115 C             MIE26    SA1    IC          I = IC                                      GPO      4727
                          57271                   SA2    "TB"-B1                                                 GPO      4728
                               66211              SB2    B1+B1                                                   GPO      4729
          3405  55322                             SA3    A2-B2                                                   GPO      4730
                     43072                        MX0    -SO.LKL                                                 GPO      4731
                          22702                   LX7    X2                                                      GPO      4732
                               10633              BX6    X3                                                      GPO      4733
          3406  6150000004                        SB5    OC.RS                                                   GPO      4734
                          20026                   LX0    R1.SOP+SO.LKP                                           GPO      4735
                                                                                                                 GPO      4736
          3407  53517                    MIE27    SA5    "TB"+X1     LI = TB + I                                 GPO      4737
                     55451                        SA4    A5-B1       DI = LI + 1                                 GPO      4738
                          20552                   LX5    -I.IICP                                                 GPO      4739
                               20422              LX4    59-D.^DP                                                GPO      4740
          3410  73150                             SX1    X5          I = IIC[LI]   */ NEXT ON CHAIN              GPO      4741
                     0324003414 +                 PL     X4,MIE29    IF DEF[DI]                                  GPO      4742
                                                                                                                 GPO      4743
                               55242              SA2    A4-B2       R1 = DI - 2                                 GPO      4744
          3411  26332                             UX3    B3,X2                                                   GPO      4745
                     0535003413 +                 NE     B3,B5,MIE28 IF OC[R1] " OC.RS                           GPO      4746
                               15420              BX4    -X0*X2                                                  GPO      4747
          3412  0314003414 +                      NZ     X4,MIE29    IF SOLK[R1] " 0  */ TEMP LOCK               GPO      4748
          3413  5064777775               MIE28    SA6    A4-2        [DI+2] = TYI(OC.BOS,0,XX)                   GPO      4749
                          5074000000              SA7    A4+         [DI] = [TB-1]                               GPO      4750
                                                                                                                 GPO      4751
          3414  0311003407 +             MIE29    NZ     X1,MIE27    IF I " 0                                    GPO      4752
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   129
        MIE - MOVE INVARIANT EXPRESSIONS                              MIE                 CODE
  
                                                                                                                 GPO      4753
                                                  TRACE  MIE,RLIST                                               GPO      4754
                                                  TRACE  MIE,RLIST,SEQ                                           GPO      4755
  
  
  
                                        *         MOVE THE INFO IN THE LINK WORD OF THE *TST*"S TO *TET*         GPO      4757
                                        *         SET NTP " 0 IF TERMINAL POLYNOMIALS WERE MOVED TO HOLDING BLK. GPO      4758
                                                                                                                 GPO      4759
                          5120000000 X            SA2    L.TET                                                   GPO      4760
          3415  74000                             SX0    A0          I = TSC       */ TSC CHAIN INDEX            GPO      4761
                     76540                        SX5    B4                                                      GPO      4762
                          37152                   IX1    X5-X2                                                   GPO      4763
          3416  5140000033 +                      SA4    BSW                                                     GPO      4764
                                         .BMB     BIT    BS.BMP-BS.NTETP                                         GPO      4765
                          7221004000              SX2    X1+.BMB     BM[BSW] = 1   */  INDCIATE BLOCK MODIFIED   GPO      4766
          3417  20244                             LX2    BS.NTETP                                                GPO      4767
                     12624                        BX6    X2+X4       NTET[BSW] = T0 - L.TET                      GPO      4768
                          54640                   SA6    A4                                                      GPO      4769
          3420  0301003200 +                      ZR     X1,MIE      IF TO = L.TET */ NO TEMP STORES             GPO      4770
                                                                                                                 GPO      4771
                          5100000000 X            ALLOC  TET,X1      ALLOC( TET , TO - L.TET )                   GPO      4772
          3422  5140000000 X                      SA4    O.TXT                                                   GPO      4773
                          63520                   SB5    X2                                                      GPO      4774
                               66211              SB2    B1+B1                                                   GPO      4775
          3423  43152                             MX1    -T.CAL                                                  GPO      4776
                     5120000100 C                 SA2    NTP                                                     GPO      4777
                               63440              SB4    X4          HB = O.TXT                                  GPO      4778
          3424  13777                             BX7    X7-X7                                                   GPO      4779
                     43301                        MX3    1                                                       GPO      4780
                                                  LX3    1+I.INVP                                                GPO      4781
                                                                                                                 GPO      4782
          3425  53504                    MIE30    SA5    B4+X0       LI = HB + I                                 GPO      4783
                     55452                        SA4    A5-B2       R2 = LI - 2                                 GPO      4784
                          15635                   BX6    -X5*X3                                                  GPO      4785
                               20452              LX4    -IH.CAP                                                 GPO      4786
          3426  12262                             BX2    X6+X2       NTP = ^INV[LI] ! NTP                        GPO      4787
                     73050                        SX0    X5          I = LINK[LI]                                GPO      4788
                          11615                   BX6    X1*X5                                                   GPO      4789
                               53645              SA6    B5+X4       TET(CA[R2]) = TETW(INV,RF,0,BI,0)           CCG21      28
          3427  54750                             SA7    A5          [LI] = 0                                    GPO      4791
                     0310003425 +                 NZ     X0,MIE30    IF I " 0                                    GPO      4792
                                                                                                                 GPO      4793
                               10622              BX6    X2                                                      GPO      4794
          3430  54620                             SA6    A2                                                      GPO      4795
                                                  TRACE  MIE,TET                                                 GPO      4796
                     0400003200 +                 EQ     MIE                                                     GPO      4797
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   130
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                                        **        CIF - COLLECT INCREMENT FORMULAS                               GPO      4799
                                        *                                                                        GPO      4800
                                        *         BUILD A TABLE OF INCREMENT AND POLYNOMIAL FORMULAS OF THE      GPO      4801
                                        *         OF THE *IP*"S ( *IIT* LIST B FORMAT ).                         GPO      4802
                                        *         THE INCREMENT FORMULAS ARE USED TO EVALUATE THE INCREMENT      GPO      4803
                                        *         EXPRESSIONS. THE POLYNOMIAL FORMULAS ARE NECESSARY FOR TEST    GPO      4804
                                        *         REPLACEMENT AND TO COMPUTE THE SYMBOLIC DIFFERENCE OF TWO      GPO      4805
                                        *         SIMILAR *IP*"S ( A(I,J+1) AND A(I,J) , VARIABLE DIMENSIONS ).  GPO      4806
                                                                                                                 GPO      4807
          3431  7160000000               CIF0     SX6    0                                                       FCC1710X    8
                          5160000100 C            SA6    NTP         NTP = 0                                     FCC1710X    9
          3432  0200403432 +             CIF      ROUTINE                                                        GPO      4808
                                                                                                                 GPO      4809
                                        *         CALL *MII* TO MARK THE *INV* INSTRUCTIONS IN THE *HB* FOR DIF. GPO      4810
                                                                                                                 GPO      4811
          3433  43474                             MX4    60          BSW = -0                                    GPO      4812
                     5150000000 X                 SA5    O.TXT                                                   GPO      4813
                               76600              SX6    B0                                                      GPO      4814
          3434  5160000031 +                      SA6    BN          BN = 0        */ INDICATE SPECIAL CALL      GPO      4816
                          7100600001              SX0    RN.MASK                                                 CCG11     119
          3435  0100002273 +                      RJ     MII         MARK INVARIANT INSTRUCTIONS                 GPO      4818
                                                                                                                 GPO      4819
                                        *         SCAN HOLDING BLOCK TO FORM A CHAIN OF *TST*"S TO *TP*"S.       GPO      4820
                                                                                                                 GPO      4821
          3436  5110000000 X                      SA1    L.TXT                                                   GPO      4822
                          5120000000 X            SA2    O.TXT                                                   GPO      4823
          3437  6130000077                        SB3    OC.TST                                                  GPO      4824
                          6140000004              SB4    4                                                       GPO      4825
          3440  6272000003                        S"TB"  X2+3        TB = O.TXT + 3                              GPO      4826
                          43700                   MX7    0           SC = 0                                      GPO      4827
                               36612              IX6    X1+X2                                                   GPO      4828
          3441  5256777773                        SA5    X6-4        R1 = O.TXT + L.TXT-4                        GPO      4829
                          21102                   AX1    2                                                       GPO      4830
                               53220              SA2    X2          R1 = [O.TXT]                                GPO      4831
          3442  43660                             MX6    -R1.H2L                                                 GPO      4832
                     20622                        LX6    R1.H2P                                                  GPO      4833
                          11662                   BX6    X6*X2       H2[R1] = 0                                  GPO      4834
                               54620              SA6    A2                                                      GPO      4835
          3443  5130000000 X                      SA3    O.TET                                                   FCC1710X   10
                          43201                   MX2    1                                                       FCC1710X   11
                                                  LX2    1+T.INVP                                                FCC1710X   12
                               63530              SB5    X3                        (B5) = TET                    FCC1710X   13
                                                                                                                 GPO      4836
          3444  55554                    CIF1     SA5    A5-B4       R1 = R1 - 4                                 GPO      4837
                     26625                        UX6    B2,X5                                                   GPO      4838
                          0421003453 +            EQ     B2,B1,CIF2  IF OC[R1] = OC.BOS                          GPO      4839
          3445  0523003444 +                      NE     B2,B3,CIF1  IF OC[R1] " OC.TST                          GPO      4840
                          5045000003              SA4    A5+3        LI = R1 + 3                                 GPO      4841
                                                  LX4    59-I.INVP                                               GPO      4842
          3446  0334003444 +                      MI     X4,CIF1     IF INV[LI]                                  GPO      4843
                          53357                   SA3    "TB"+X5     LIP = TB + RI[R1]                           FCC1710X   14
                                                  LX3    59-I.INVP                                               FCC1710X   15
          3447  0333003451 +                      MI     X3,CIF1A    IF INV[LIP]                                 FCC1710X   16
                          54740                   SA7    A4          [LI] = SC                                   GPO      4844
                               75747              SX7    A4-"TB"     SC = LI - TB                                GPO      4845
          3450  0400003444 +                      EQ     CIF1                                                    GPO      4846
                                                                                                                 FCC1710X   17
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   131
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                                        *         TST IS *IP*, BUT EXPRESSION IS *INV* UPDATE *TET* TO REFLECT   FCC1710X   18
                                        *         THE REDUCTION OF THE EXPRESSION ( I+INVEXP-I, ETC ) BY *SQZ* . FCC1710X   19
                                                                                                                 FCC1710X   20
          3451  54351                    CIF1A    SA3    A5+B1       R2 = R1 + 1                                 FCC1710X   21
                     20352                        LX3    -IH.CAP                                                 FCC1710X   22
                          53435                   SA4    B5+X3                                                   FCC1710X   23
                               12624              BX6    X2+X4       INV[TET(CA[R2])] = 1                        FCC1710X   24
          3452  54640                             SA6    A4                                                      FCC1710X   25
                     0400003444 +                 EQ     CIF1                                                    FCC1710X   26
                                                                                                                 GPO      4847
          3453  5170000121 C             CIF2     SA7    TSC         TSC = SC                                    GPO      4848
                          0307003431 +            ZR     X7,CIF0     IF SC = 0     */ NO TERMINAL POLYNOMIALS    FCC1710X   27
          3454  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , L.TXT/4 )                      GPO      4849
  
                                        *         FORM A LIST OF THE INCREMENT AND POLYNOMIAL FORMULAS IN *IIT*  GPO      4851
                                                                                                                 GPO      4852
          3455  5150000121 C                      SA5    TSC                                                     GPO      4853
                          76100                   ADDWRD IIT,B0      ADDWRD( IIT , 0 )                           GPO      4854
          3457  7263777776                        SX6    X3-1                                                    GPO      4855
                          5160000127 C            SA6    ITB         ITB = L.IIT - 1  */ INDEX TO *PI* OF THIS   GPO      4856
                                                                                                                 GPO      4857
          3460  5140000000 X             CIF3     SA4    O.TXT                                                   GPO      4858
                          36745                   IX7    X4+X5                                                   GPO      4859
                               53571              SA5    X7+B1       R2 = TXT(TSC+1)                             GPO      4860
          3461  20552                             LX5    -IH.CAP                                                 GPO      4861
                     73650                        SX6    X5          CAS = CA[R2]  */ SAVE *CA* OF THIS *IP*     GPO      4862
                          5160000120 C            SA6    CAS                                                     GPO      4863
          3462  6160000000                        SB6    0           MULT = 0                                    GPO      4864
                          0100003534 +            RJ     DIF         DEVELOP *INCR* FORMULA                      GPO      4865
          3463  5110000021 C                      SA1    LCV                                                     GPO      4866
                          54500                   SA5    A0                                                      GPO      4867
                                                  LX5    -IA.UDIP                                                GPO      4868
                               26621              UX6    B2,X1                                                   GPO      4869
          3464  21644                             AX6    PS.UDIP                                                 GPO      4870
                     13765                        BX7    X6-X5                                                   GPO      4871
                          6227000000              SB2    X7+                                                     GPO      4872
          3465  0520003466 +                      NZ     B2,CIF4     IF UDI[LCV] " UDI[IAW]                      GPO      4873
                          5160000037 C            SA6    STP         STP = 1       */ AN *IP* IS A FUNCTION(LCV) GPO      4874
                                                                                                                 GPO      4875
          3466  5110000121 C             CIF4     SA1    TSC                                                     GPO      4876
                          5140000000 X            SA4    O.TXT                                                   GPO      4877
          3467  36741                             IX7    X4+X1                                                   GPO      4878
                     53571                        SA5    X7+B1       R2 = TXT(TSC+1)                             GPO      4879
                          5237000003              SA3    X7+3                                                    GPO      4880
          3470  10733                             BX7    X3          TSC = TXT(TSC+3)  */ INDEX TO NEXT ON CHAIN GPO      4881
                     54710                        SA7    A1                                                      GPO      4882
                          6160777776              SB6    -1          MULT = -1                                   GPO      4883
          3471  0100003534 +                      RJ     DIF         DEVELOP *POLYNOMIAL* FORMULA                GPO      4884
          3472  76100                             ADDWRD IIT,B0      ADDWRD( IIT , 0 )                           GPO      4885
                                                                                                                 GPO      4886
          3474  5110000127 C                      SA1    ITB                                                     GPO      4887
                          5140000120 C            SA4    CAS                                                     GPO      4888
          3475  63220                             SB2    X2                                                      GPO      4889
                     5120000000 X                 SA2    O.TET                                                   GPO      4890
                               63440              SB4    X4                                                      GPO      4891
          3476  7263777776                        SX6    X3-1                                                    GPO      4892
                                                  LX6    PI.LFP                                                  GPO      4893
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   132
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                          53612                   SA6    B2+X1       IIT(ITB) = L.IIT - 1  */ LINK TO NEXT       GPO      4894
                               20144              LX1    T.ITIP                                                  GPO      4895
          3477  53224                             SA2    X2+B4                                                   GPO      4896
                     12712                        BX7    X1+X2       ITI[TET(CAS)] = ITB  */ LINK *IP* TO *IIT*  GPO      4897
                          54720                   SA7    A2                                                      GPO      4898
                                                  LX6    -PI.LFP                                                 GPO      4899
                               54610              SA6    A1          ITB = L.IIT - 1                             GPO      4900
                                                                                                                 GPO      4901
          3500  5150000121 C                      SA5    TSC                                                     GPO      4902
                          0315003460 +            NZ     X5,CIF3     IF TSC " 0                                  GPO      4903
  
                                        *         NOW SCAN THE *PI* LIST FOR SIMILAR *IP*"S, THOSE WHICH HAVE    GPO      4905
                                        *         THE SAME INCREMENT FORMULAS.                                   GPO      4906
                                                                                                                 GPO      4907
          3501  5110000000 X                      SA1    O.TET                                                   GPO      4908
                          5120000000 X            SA2    O.IIT                                                   GPO      4909
          3502  5130000101 C                      SA3    PIC                                                     GPO      4910
                          6120000003              SB2    3                                                       GPO      4911
          3503  63710                             SB7    X1                        (B7) = [O.TET]                GPO      4912
                     53020                        SA0    X2                        (A0) = [O.IIT]                GPO      4913
                          63530                   SB5    X3          J = PIC                                     GPO      4914
                               66610              SB6    B1          CCN = 1       */ CURRENT CLASS NUMBER       FCC0514    77
          3504  43700                             MX7    0                                                       FCC0514    78
                     5170000121 C                 SA7    CNI         CNI = 0                                     FCC0514    79
                                                                                                                 GPO      4915
          3505  54105                    CIF5     SA1    A0+B5       I = J;  PIW = IIT(I)                        GPO      4916
                     0301003531 +                 ZR     X1,CIF10    IF PIW = 0    */ END OF TABLE               GPO      4917
                                                  LX1    -PI.LFP                                                 GPO      4918
                               63510              SB5    X1          J = LF[PIW]                                 GPO      4919
                                                  LX1    59-PI.MIPP+PI.LFP                                       GPO      4920
          3506  0331003505 +                      MI     X1,CIF5     IF MIP[PIW]   */ SIMILAR TO ANOTHER         GPO      4921
                                                                                                                 GPO      4922
                          54111                   SA1    A1+B1       IAW = IIT(I+1)                              GPO      4923
                               26631              UX6    B3,X1       NW = NWD[IAW]                               GPO      4924
          3507  20652                             LX6    -IA.CAP                                                 GPO      4925
                     73760                        SX7    X6          CAS = CA[IAW]                               GPO      4926
                          5170000120 C            SA7    CAS                                                     GPO      4927
          3510  76010                             SX0    B1                                                      GPO      4928
                     53267                        SA2    B7+X6                                                   GPO      4929
                          20066                   LX0    T.BIPP                                                  GPO      4930
                               12602              BX6    X0+X2       BIP[TET(CAS)] = 1  */ MARK THIS *IP* AS BAS GPO      4931
          3511  54620                             SA6    A2                                                      GPO      4932
                     66450                        SB4    B5          K = J                                       GPO      4933
                          20005                   LX0    PI.MIPP-T.BIPP                                          GPO      4934
                               43700              MX7    0                                                       FCC0514    80
          3512  5120000121 C                      SA2    CNI                                                     FCC0514    81
                          63626                   SB6    B6+X2       CCN = CCN + CNI  */ SET CLASS NUMBER        FCC0514    82
                               54720              SA7    A2          CNI = 0                                     FCC0514    83
                                                                                                                 GPO      4935
                                        *         SEARCH REST OF LIST FOR *IP*"S THAT ARE SIMILAR                GPO      4936
                                                                                                                 GPO      4937
          3513  54204                    CIF7     SA2    A0+B4       PIK = IIT(K)                                GPO      4938
                     0302003505 +                 ZR     X2,CIF5     IF PIK = 0    */ END OF LIST                GPO      4939
                                                                                                                 GPO      4940
                               54521              SA5    A2+B1       IK = IIT(K+1)                               GPO      4941
          3514  13615                             BX6    X1-X5                                                   GPO      4942
                     7133777775                   SX3    B3-2        N = NW - 2                                  GPO      4943
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   133
        CIF - COLLECT INCREMENT FORMULAS                              CIF                 CODE
  
                               20652              LX6    -IA.CAP                                                 GPO      4944
          3515  43752                             MX7    -IA.CAL                                                 GPO      4945
                     11676                        BX6    X7*X6                                                   GPO      4946
                          0316003530 +            NZ     X6,CIF9     IF (NWD,UDI)[IAW] " (NWD,UDI)[IK]           GPO      4947
          3516  54411                             SA4    A1+B1       II = IIT(I+2)                               GPO      4948
                     54551                        SA5    A5+B1       IK = IK + 1                                 GPO      4949
                          13645                   BX6    X4-X5                                                   GPO      4950
          3517  0316003530 +                      NZ     X6,CIF9     IF [II] " [IK]  */ IB WORDS  NE             GPO      4951
                          54441                   SA4    A4+B1       II = II + 1                                 GPO      4952
                               54551              SA5    A5+B1       IK = IK + 1                                 GPO      4953
                                                                                                                 GPO      4954
          3520  13645                    CIF8     BX6    X4-X5       DIF = [II] - [IK]                           GPO      4955
                     54441                        SA4    A4+B1       II = II + 1                                 GPO      4956
                          54551                   SA5    A5+B1       IK = IK + 1                                 GPO      4957
                               13745              BX7    X4-X5                                                   GPO      4958
          3521  0316003530 +                      NZ     X6,CIF9     IF DIF " 0    */ R1 WORDS                   GPO      4959
                          0317003530 +            NZ     X7,CIF9     IF [II] " [IK]                              GPO      4960
          3522  7233777773                        SX3    X3-4        N = N - 4                                   GPO      4961
                          54442                   SA4    A4+B2       II = II + 3                                 GPO      4962
                               54552              SA5    A5+B2       IK = IK + 3                                 GPO      4963
          3523  0313003520 +                      NZ     X3,CIF8     IF N " 0                                    GPO      4964
                                                                                                                 GPO      4965
                                        *         *IP*"S MATCH, MARK K AS SIMILAR TO I                           GPO      4966
                                                                                                                 GPO      4967
                          5130000120 C            SA3    CAS                                                     GPO      4968
          3524  20322                             LX3    PI.CAP                                                  GPO      4969
                     12403                        BX4    X0+X3       CA[IIT(K)] = CAS                            GPO      4970
                          55511                   SA5    A1-B1                                                   FCC0514    84
                               12642              BX6    X4+X2       MIP[IIT(K)] = 1                             FCC0514    85
          3525  76760                             SX7    B6                                                      FCC0514    86
                     20744                        LX7    PI.CNP                                                  FCC0514    87
                          12676                   BX6    X7+X6       CN[IIT(K)] = CCN                            FCC0514    88
                               54620              SA6    A2                                                      FCC0514    89
          3526  12775                             BX7    X7+X5       CN[IIT(I)] = CCN  */ SET *CN* IN BASE       FCC0514    90
                     54750                        SA7    A5                                                      FCC0514    91
                          76610                   SX6    B1                                                      FCC0514    92
          3527  5160000121 C                      SA6    CNI         CNI = 1       */ SET FOR *CN* INCREMENT     FCC0514    93
                          5160000046 +            SA6    NBIP        NBIP = 1      */ SET FLAG FOR *BDT*         FCC0514    94
                                                                                                                 FCC0514    95
                                        *         ADVANCE TO NEXT *IP* IN *IIT*                                  FCC0514    96
                                                                                                                 GPO      4973
                                         CIF9     LX2    -PI.LFP                                                 GPO      4974
          3530  63420                             SB4    X2          K = LF[PIK]                                 GPO      4975
                     0400003513 +                 EQ     CIF7                                                    GPO      4976
                                                                                                                 GPO      4977
          3531  7160000004               CIF10    SX6    4           L.TXT = 4                                   GPO      4978
                          5160000000 X            SA6    L.TXT                                                   GPO      4979
          3532  7170000000                        SX7    0                                                       GPO      4980
                          5170000000 X            SA7    L.RND       L.RND = 0                                   GPO      4981
                                                                                                                 GPO      4982
                                                  IF     DEF,/DEBUG/CIF,1                                        GPO      4983
                                                  DCALL  DMPIIT,([O.IIT],L.IIT,PIC)                              GPO      4984
                                                                                                                 GPO      4985
          3533  0400003432 +                      EQ     CIF                                                     GPO      4986
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   134
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                                        **        DIF - DEVELOP INCREMENT FORMULA OF AN *IP* IN A SINGLE VAR,    GPO      4988
                                        *                OR EXTRACT AN  *IP* FORMULA.                            GPO      4989
                                        *                                                                        GPO      4990
                                        *         ENTRY  (B6) = MULT , =0 IF TO FORM *INC* FORMULA, ELSE = -1    GPO      4991
                                        *                (X4) = [O.TXT]                                          GPO      4992
                                        *                (X0) = R-NUMBER EXTRACTOR MASK                          GPO      4993
                                        *                (A5) = R2 , OF *TST* OF *IP*                            GPO      4994
                                        *                (CAS) = CA OF THE *IP*                                  GPO      4995
                                        *                *RND* ALLOCATION MADE FOR SCRATCH SPACE                 GPO      4996
                                        *                                                                        GPO      4997
                                        *         EXIT   (A0) = IB , ADDRESS OF *FORMULA IN *IIT*                GPO      4998
                                                                                                                 GPO      4999
          3534  0200403534 +             DIF      ROUTINE                                                        GPO      5000
          3535  5110000000 X                      SA1    O.RND                                                   GPO      5001
                          5120000000 X            SA2    L.RND                                                   GPO      5002
          3536  6274000003                        S"TB"  X4+3        TB = O.TXT + 3                              GPO      5003
                          36212                   IX2    X1+X2                                                   GPO      5004
                               63510              SB5    X1                                                      GPO      5005
          3537  6130777774                        SB3    -3                                                      GPO      5006
                          5202777775              SA0    X2-2        SI = O.RND + L.RND-2  */ STACK ADDRESS      GPO      5007
          3540  43700                             MX7    0                                                       GPO      5008
                     56770                        SA7    "TB"        [TB] = 0                                    GPO      5009
                          54701                   SA7    A0+B1       [SI+1] = 0    */ STACK TERMINATOR           GPO      5010
                               53710              SA7    X1          OI = O.RND;  [OI] = 0  */ OUTPUT LIST       GPO      5011
          3541  55551                             SA5    A5-B1       R1 = R2 - 1                                 GPO      5012
                     15650                        BX6    "RN"X5                                                  GPO      5013
                          73463                   SX4    X6+B3                                                   GPO      5014
                               53547              SA5    "TB"+X4     R1 = TB + RI[R1]-3                          GPO      5015
                                                                                                                 GPO      5016
                                        *         PHASE 1 - TOP DOWN TO FORM INCREMENT FORMULA IN OUTPUT LIST    GPO      5017
                                        *         PROCESS NEXT INSTRUCTION                                       GPO      5018
                                                                                                                 GPO      5019
          3542  5045000002               DIF1     SA4    A5+2        DI = R1 + 2                                 GPO      5020
                          10755                   BX7    X5          R1W = [R1]                                  GPO      5021
                                                  LX4    58-D.TYP                                                GPO      5022
                               36344              IX3    X4+X4                                                   GPO      5023
          3543  0334003613 +                      MI     X4,DIF14    IF TYPE[DI] = III                           GPO      5024
                          0323003557 +            PL     X3,DIF5     IF TYPE[DI] = I                             GPO      5025
                                                                                                                 GPO      5026
                                        *         OUTPUT INSTRUCTION, PUSHUP STACK                               GPO      5027
                                                                                                                 GPO      5028
          3544  55353                    DIF2     SA3    A5-B3       LI = R1 + 3                                 GPO      5029
                     76110                        SX1    B1                                                      GPO      5030
                          20172                   LX1    I.MP                                                    GPO      5031
                               12613              BX6    X1+X3                                                   GPO      5032
          3545  54001                             SA0    A0+B1       SI = SI + 1                                 GPO      5033
                     20301                        LX3    59-I.MP                                                 GPO      5034
                          0333003547 +            MI     X3,DIF2A    IF M[LI]      */ ALREADY OUTPUT             GPO      5035
                                                                                                                 GPO      5036
          3546  5077000001                        SA7    A7+1        OI = OI + 1;  [OI] = R1W                    GPO      5037
                          5063000000              SA6    A3+         M[LI] = 1     */ INDICATE IN OUTPUT LIST    GPO      5038
                                                                                                                 GPO      5039
          3547  54300                    DIF2A    SA3    A0          R1W = [SI]                                  GPO      5040
                     15230                        BX2    "RN"X3                                                  GPO      5041
                          0303003620 +            ZR     X3,DIF15    IF R1W = 0    */ END OF STACK               GPO      5042
          3550  63223                             SB2    X2+B3                                                   GPO      5043
                     56572                        SA5    "TB"+B2     R1 = TB + RI[R1]-3                          GPO      5044
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   135
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                          10533                   BX5    X3                                                      GPO      5045
          3551  0400003542 +                      EQ     DIF1                                                    GPO      5046
                                                                                                                 GPO      5047
                                        *         STACK INSTRUCTION, FOLLOW SELECTED OPERAND, (X6) = OP          GPO      5048
                                                                                                                 GPO      5049
          3552  73463                    DIF4     SX4    X6+B3                                                   GPO      5050
                     10677                        BX6    X7                                                      GPO      5051
                          54600                   SA6    A0          [SI] = R1W; RIL = R1W                       GPO      5052
                               26727              UX7    B2,X7                                                   GPO      5053
          3553  55001                             SA0    A0-B1       SI = SI - 1                                 GPO      5054
                     7132777767                   SX3    B2-OC.XMT                                               GPO      5055
                               53547              SA5    "TB"+X4     R1 = TB + OP-3; R1W = [R1]                  GPO      5056
          3554  0313003542 +                      NZ     X3,DIF1     IF OC[R1L] " OC.XMT                         GPO      5057
                          5020000002              SA2    A0+2                                                    GPO      5058
          3555  0312003542 +                      NZ     X2,DIF1     IF [SI+2] " 0 */ NOT AT TOP OF STACK        GPO      5059
                          54001                   SA0    A0+B1       SI = SI + 1;  */ ERASE XMT                  GPO      5060
          3556  0400003542 +                      EQ     DIF1                                                    GPO      5061
                                                                                                                 GPO      5062
                                        *         PROCESS TYPE I INSTRUCTIONS                                    GPO      5063
                                                                                                                 GPO      5064
          3557  20554                    DIF5     LX5    -R1.RKP                                                 GPO      5065
                     15450                        BX4    "RN"X5      K = RK[R1]                                  GPO      5066
                          20554                   LX5    R1.RKP-R1.RJP                                           GPO      5067
                               15650              BX6    "RN"X5      OP = J = RJ[R1]                             GPO      5068
          3560  0316003562 +                      NZ     X6,DIF5A    IF RJ[R1] " 0                               FCC2230X    7
                          10644                   BX6    X4          OP = RK[R1]                                 FCC2230X    8
          3561  0400003563 +                      EQ     DIF5B                                                   FCC2230X    9
                                                                                                                 FCC2230X   10
          3562  0314003565 +             DIF5A    NZ     X4,DIF6     IF K " 0                                    FCC2230X   11
                                                                                                                 GPO      5070
                                        *         UNARY INSTRUCTION ( SXT, XMT, XMTC )                           GPO      5071
                                        *         (PK AND NR WITH RJ = 0)                                        FCC2230X   12
                                                                                                                 GPO      5072
          3563  53467                    DIF5B    SA4    "TB"+X6     LJ = TB + OP                                FCC2230X   13
                     20401                        LX4    59-I.MP                                                 GPO      5074
                          0334003544 +            MI     X4,DIF2     IF M[LJ]      */ OPERAND PROCESSED          GPO      5075
          3564  0400003552 +                      EQ     DIF4                                                    GPO      5076
                                                                                                                 GPO      5077
          3565  26327                    DIF6     UX3    B2,X7                                                   GPO      5078
                     7122777675                   SX2    B2-OC.IM                                                GPO      5079
          3566  0312003575 +                      NZ     X2,DIF10    IF OC[R1W] " OC.IM                          GPO      5080
                                                                                                                 GPO      5081
                                        *         PROCESS *IM*, SET MULT FLAG WHEN PROCESSING *INV* OPERAND      GPO      5082
                                                                                                                 GPO      5083
                          15270                   BX2    "RN"X7                                                  GPO      5084
                               63220              SB2    X2                                                      GPO      5085
          3567  0526003570 +                      NE     B2,B6,DIF7  IF RI[R1W] " MULT                           GPO      5086
                          6160000000              SB6    0           MULT = 0                                    GPO      5087
                                                                                                                 GPO      5088
          3570  53367                    DIF7     SA3    "TB"+X6     LJ = TB + OP                                GPO      5089
                     20301                        LX3    59-I.MP                                                 GPO      5090
                          0323003572 +            PL     X3,DIF8     IF ^M[LJ]                                   GPO      5091
          3571  53347                             SA3    "TB"+X4     LJ = TB + K                                 GPO      5092
                     20301                        LX3    59-I.MP                                                 GPO      5093
                          0333003544 +            MI     X3,DIF2     IF M[LJ]      */ BOTH OPERANDS MARKED       GPO      5094
                                                                                                                 GPO      5095
          3572  75637                    DIF8     SX6    A3-"TB"     OP = LJ - TB  */ INDEX OF OPERAND           GPO      5096
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   136
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                     0560003552 +                 NZ     B6,DIF4     IF MULT " 0                                 GPO      5097
                               20373              LX3    I.MP-I.INVP                                             GPO      5098
          3573  0323003552 +                      PL     X3,DIF4     IF ^INV[LJ]                                 GPO      5099
                          66620                   SB6    B2          MULT = RI[R1W]    */ INDICATE INV OP OF IM  GPO      5100
          3574  0400003552 +                      EQ     DIF4                                                    GPO      5101
  
  
                                        *         PROCESS IA, IS . IGNORE *INV* TERMS IF MULT = 0 .              GPO      5103
                                                                                                                 GPO      5104
          3575  7122777751               DIF10    SX2    B2-OC.UP                                                FCC0238AX  43
                          0302003611 +            ZR     X2,DIF13    IF OC[R1W] = OC.UP                          FCC0238AX  44
                                                                                                                 FCC0238AX  45
          3576  53367                             SA3    "TB"+X6     LJ = TB + J                                 FCC0238AX  46
                     53247                        SA2    "TB"+X4     LK = TB + K                                 GPO      5106
                          0560003606 +            NZ     B6,DIF12    IF MULT " 0                                 GPO      5110
          3577  12123                             BX1    X2+X3                                                   GPO      5111
                                                  LX1    59-I.INVP                                               GPO      5112
                     0321003606 +                 PL     X1,DIF12    IF ^(INV[LJ] ! INV[LK])                     GPO      5113
                                                                                                                 GPO      5114
                                        *         ONE OPERAND IS *INV*, CHANGE INST TO AN *XMT/XMTC*             GPO      5115
                                                                                                                 GPO      5116
          3600  6140000010                        SB4    OC.XMT      OC = OC.XMT                                 GPO      5117
                                                  LX3    59-I.INVP                                               GPO      5118
                          0323003603 +            PL     X3,DIF11    IF ^INV[LJ]                                 GPO      5119
          3601  6122777741                        SB2    B2-OC.IA                                                GPO      5120
                          7264000000              SX6    X4+         J = K                                       GPO      5121
          3602  0420003603 +                      ZR     B2,DIF11    IF OC[R1W] = OC.IA                          GPO      5122
                          6140000014              SB4    OC.XMTC     OC = OC.XMTC                                GPO      5123
                                                                                                                 GPO      5124
          3603  20640                    DIF11    LX6    R1.RJP                                                  GPO      5125
                     15170                        BX1    "RN"X7                                                  GPO      5126
                          27646                   PX6    B4,X6                                                   GPO      5127
                               12716              BX7    X1+X6       R1W = TYI(OC,J,0,RI[R1W])                   GPO      5128
          3604  20634                             LX6    -R1.RJP     OP = J                                      GPO      5129
                     53367                        SA3    "TB"+X6     LJ = TB + J                                 FCC0640     5
                          20301                   LX3    59-I.MP                                                 FCC0640     6
          3605  0333003544 +                      MI     X3,DIF2     IF M[LJ]                                    FCC0640     7
                          0400003552 +            EQ     DIF4                                                    GPO      5130
                                                                                                                 GPO      5131
                                        *         ONE OPERAND MARKED, OR IN SCOPE OF MULTIPLY                    GPO      5132
                                                                                                                 GPO      5133
          3606  20301                    DIF12    LX3    59-I.MP                                                 GPO      5134
                     0323003552 +                 PL     X3,DIF4     IF ^M[LJ]                                   GPO      5135
                               10644              BX6    X4          OP = K                                      GPO      5136
          3607  20201                             LX2    59-I.MP                                                 FCC0640     8
                     0332003544 +                 MI     X2,DIF2     IF M[LK]      */ BOTH OPERANDS MARKED       FCC0640     9
          3610  0400003552 +                      EQ     DIF4                                                    GPO      5137
                                                                                                                 FCC0238AX  47
          3611  53347                    DIF13    SA3    "TB"+X4     LK = TB + K                                 FCC0238AX  48
                     20301                        LX3    59-I.MP                                                 FCC0238AX  49
                          0333003544 +            MI     X3,DIF2     IF M[LK]                                    FCC0238AX  50
          3612  73640                             SX6    X4          OP = K                                      FCC0238AX  51
                     0400003552 +                 EQ     DIF4                                                    FCC0238AX  52
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   137
        DIF - DEVELOP INCREMENT FORMULAS                              TYIII               CODE
  
                                        *         TYPE III INSTRUCTION ( LD, KLS, STT )                          GPO      5139
                                                                                                                 GPO      5140
          3613  54351                    DIF14    SA3    A5+B1       R2 = R1 + 1                                 GPO      5141
                     20330                        LX3    -IH.RFP                                                 GPO      5142
                          15630                   BX6    "RN"X3      OP = RF[R2]                                 GPO      5143
                               53267              SA2    "TB"+X6     LJ = TB + OP                                GPO      5144
          3614  0306003544 +                      ZR     X6,DIF2     IF RF[R2] = 0                               GPO      5145
                          20201                   LX2    59-I.MP                                                 GPO      5146
                               26427              UX4    B2,X7                                                   GPO      5147
          3615  0332003544 +                      MI     X2,DIF2     IF M[LJ]                                    GPO      5148
                          7142777725              SX4    B2-OC.STT                                               GPO      5149
          3616  0314003552 +                      NZ     X4,DIF4     IF OC[R1W] " OC.STT                         GPO      5150
                          0560003552 +            NZ     B6,DIF4     IF MULT " 0                                 GPO      5151
          3617  6140000010                        SB4    OC.XMT      OC = OC.XMT   */ CHANGE STT TO AN XMT       GPO      5152
                          0400003603 +            EQ     DIF11                                                   GPO      5153
  
  
  
                                        **        PHASE 2, ADD INCREMENT EXPRESSION TO *IIT*                     GPO      5155
                                                                                                                 GPO      5156
          3620  43700                    DIF15    MX7    0                                                       GPO      5157
                     75575                        SX5    A7-B5       N = OI - O.RND  */ NUMBER OF INST           GPO      5158
                          54771                   SA7    A7+B1       OI = OI + 1;  [OI] = 0  */ TERMINATOR       GPO      5159
                               20502              LX5    2                                                       GPO      5160
          3621  7215000002                        ALLOC  IIT,X5+2    ALLOC( IIT , 4*N+2 )                        GPO      5161
          3623  5130000000 X                      SA3    O.TXT                                                   GPO      5162
                          5140000000 X            SA4    O.RND                                                   GPO      5163
          3624  7110000004                        SX1    4           RN = 4                                      GPO      5164
                          53026                   SA0    X2+B6       IB = O.IIT + OLD(L.IIT)                     GPO      5165
                               66400              SB4    B0          NLD = 0                                     GPO      5166
          3625  6255000002                        SB5    X5+2        NWD = 4*N + 2                               GPO      5167
                          6060000004              SB6    A0+4        II = IB + 4   */ STORE ADDRESS              GPO      5168
          3626  5254000001                        SA5    X4+1        R1 = [O.RND+1]                              GPO      5169
                          6273000003              S"TB"  X3+3        TB = O.TXT + 3                              GPO      5170
                                                                                                                 GPO      5171
          3627  15750                    DIF16    BX7    "RN"X5      R = RI[R1]                                  GPO      5172
                     5120003654 +                 SA2    DIFA                                                    GPO      5173
                               53377              SA3    "TB"+X7     LI = TB + R                                 GPO      5174
          3630  26725                             UX7    B2,X5                                                   GPO      5175
                     15632                        BX6    -X2*X3      M[LI] = 0                                   GPO      5176
                          5142000000 X            SA4    F.RDT+B2    DI = RDT(OC[R1])                            GPO      5177
          3631  12761                             BX7    X6+X1       HBP[LI] = RN  */ SAVE NEW R-NUMBER          GPO      5178
                     54730                        SA7    A3                                                      GPO      5179
                          10644                   BX6    X4          [II] = DI                                   GPO      5180
                               56660              SA6    B6                                                      GPO      5181
                                                  LX4    58-D.TYP                                                GPO      5182
          3632  0334003637 +                      MI     X4,DIF17    IF TYPE[DI] = III                           GPO      5183
                          20401                   LX4    1                                                       GPO      5184
                               43700              MX7    0           R2W = 0                                     GPO      5185
          3633  0334003647 +                      MI     X4,DIF18    IF TYPE[DI] = II                            GPO      5186
                                                                                                                 GPO      5187
                                        *         ADJUST OPERAND R-NUMBERS OF TYPE I INSTRUCTION                 GPO      5188
                                                                                                                 GPO      5189
                          20534                   LX5    -R1.RJP                                                 GPO      5190
                               15650              BX6    "RN"X5                                                  GPO      5191
          3634  53467                             SA4    "TB"+X6                                                 GPO      5192
                     20520                        LX5    R1.RJP-R1.RKP                                           GPO      5193
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   138
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                          73640                   SX6    X4          RJ[R1] = HBP[TB+RJ[R1]]                     GPO      5194
                               15550              BX5    "RN"X5                                                  GPO      5195
          3635  53457                             SA4    "TB"+X5                                                 GPO      5196
                     20640                        LX6    R1.RJP                                                  GPO      5197
                          73340                   SX3    X4          RK[R1] = HBP[TB+RK[R1]]                     GPO      5198
                               20320              LX3    R1.RKP                                                  GPO      5199
          3636  27626                             PX6    B2,X6                                                   GPO      5200
                     12563                        BX5    X6+X3                                                   GPO      5201
                          0400003647 +            EQ     DIF18                                                   GPO      5202
                                                                                                                 GPO      5203
                                        *         PROCESS TYPE III INSTRUCTION ( LD, KLS, STT )                  GPO      5204
                                                                                                                 GPO      5205
          3637  5023777775               DIF17    SA2    A3-2        R2 = LI - 2;  R2W = [R2]                    GPO      5206
                          20230                   LX2    -IH.RFP                                                 GPO      5207
                               15720              BX7    "RN"X2                                                  GPO      5208
          3640  53477                             SA4    "TB"+X7                                                 GPO      5209
                     11202                        BX2    X0*X2                                                   GPO      5210
                          73740                   SX7    X4          RF[R2W] = HBP[TB+RF[R2W]]                   GPO      5211
                               20630              LX6    59-D.LDP                                                GPO      5212
          3641  12727                             BX7    X2+X7                                                   GPO      5213
                     20744                        LX7    IH.RFP                                                  GPO      5214
                          0326003647 +            PL     X6,DIF18    IF ^LD[II]                                  GPO      5215
                                                                                                                 FCC0656    47
          3642  55431                             SA4    A3-B1       DIT = LI - 1                                FCC0656    48
                     5120000000 +                 SA2    DMASK                                                   FCC0656    49
                               15642              BX6    -X2*X4      [II] = ^DMASK&[DIT]  */ PRESERVE FP,L2      FCC0656    50
          3643  56660                             SA6    B6                                                      FCC0656    51
                                                  LX3    59-I.INVP                                               GPO      5216
                     66441                        SB4    B4+B1       NLD = NLD + 1                               GPO      5217
                          0333003647 +            MI     X3,DIF18    IF INV[LI]                                  GPO      5218
                                                                                                                 GPO      5219
                                        *         SETUP FIRST HEADER WORD                                        GPO      5220
                                                                                                                 GPO      5221
          3644  20536                             LX5    -R1.INP                                                 GPO      5222
                     5120000120 C                 SA2    CAS                                                     GPO      5223
                               73650              SX6    X5                                                      GPO      5224
          3645  20222                             LX2    IA.CAP      CA[IB] = CAS                                GPO      5225
                                                  LX6    IA.UDIP     UDI[IB] = IN[R1]                            GPO      5226
                     27356                        PX3    B5,X6       NWD[IB] = NWD                               GPO      5227
                          12623                   BX6    X2+X3                                                   GPO      5228
                               63310              SB3    X1          LDI = RN                                    GPO      5229
          3646  20536                             LX5    R1.INP                                                  GPO      5230
                     54600                        SA6    A0                                                      GPO      5231
                                                                                                                 GPO      5232
          3647  57761                    DIF18    SA7    B6-B1       [II-1] = R2W                                GPO      5233
                     11505                        BX5    X0*X5                                                   GPO      5234
                          43600                   MX6    0                                                       GPO      5235
                               12751              BX7    X5+X1       RI[R1] = RN                                 GPO      5236
          3650  56661                             SA6    B6+B1       [II+1] = 0                                  GPO      5237
                     55771                        SA7    A7-B1       [II-2] = [R1]                               GPO      5238
                          7211000004              SX1    X1+4        RN = RN + 4                                 GPO      5239
          3651  54551                             SA5    A5+B1       R1 = R1 + 1                                 GPO      5240
                     6166000004                   SB6    B6+4                                                    GPO      5241
          3652  0315003627 +                      NZ     X5,DIF16    IF [RI] " 0                                 GPO      5242
                                                                                                                 GPO      5243
                                        *         SETUP SECOND HEADER WORD                                       GPO      5244
                                                                                                                 GPO      5245
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   139
        DIF - DEVELOP INCREMENT FORMULAS                              DIF                 CODE
  
                          76330                   SX3    B3          ILD[IB+1] = LDI                             GPO      5246
                                                  LX3    IB.ILDP                                                 GPO      5247
                               27643              PX6    B4,X3       NLD[IB+1] = NLD                             GPO      5248
          3653  54601                             SA6    A0+B1                                                   GPO      5249
                     0400003534 +                 EQ     DIF                                                     GPO      5250
                                                                                                                 GPO      5251
          3654                           DIFA     BFMW   I,(M,HBP)                                               GPO      5252
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   140
        FIM - FORM INCREMENT MODIFICATION LISTS                       FIM                 CODE
  
                                        **        FIM - FORM INCREMENT MODIFICATION LISTS                        GPO      5254
                                        *         SCAN *STC* ( *RD* VARS ) TO DEVELOP LIST OF *TP* INCREMENTS    GPO      5255
                                        *         AT EACH RECURSIVE DEFINITION.                                  GPO      5256
                                                                                                                 GPO      5257
                                                  QUAL   FIM                                                     GPO      5258
                                                                                                                 GPO      5259
          3655  0200403655 +             FIM      ROUTINE                                                        GPO      5260
          3656  6275000003                        S"TB"  X5+3        TB = O.SEQ + 3                              GPO      5261
                          27604                   PX6    X4          NIS[BSW] = 0                                GPO      5262
                               20452              LX4    -BS.STCP                                                GPO      5263
          3657  54640                             SA6    A4                                                      GPO      5264
                     73740                        SX7    X4          SC = STC[BSW]                               GPO      5265
                          5170000122 C            SA7    SC                                                      GPO      5266
                                                                                                                 GPO      5267
                                        *         SEARCH *IIT* FOR FORMULAS DEPENDING ON THE VARIABLE IN THIS    GPO      5268
                                        *         STORE.                                                         GPO      5269
                                                                                                                 GPO      5270
          3660  5110000000 X             FIM1     SA1    O.IIT                                                   GPO      5271
                          5120000000 X            SA2    L.IIT                                                   GPO      5272
          3661  53477                             SA4    "TB"+X7     LI = TB + SC                                GPO      5273
                     63510                        SB5    X1                                                      GPO      5274
                                                  LX4    -I.HBPP                                                 GPO      5275
                          5054777774              SA5    A4-3        R1 = LI - 3                                 GPO      5276
          3662  10722                             BX7    X2          ITB = L.IIT                                 GPO      5277
                     5170000127 C                 SA7    ITB                                                     GPO      5278
                               53445              SA4    B5+X4       EV = IIT(HBP[LI])  */ INC EXPR VALUE        GPO      5279
          3663  10644                             BX6    X4                                                      GPO      5280
                     5160000124 C                 SA6    EV                                                      GPO      5281
                               20536              LX5    -R1.INP                                                 GPO      5282
          3664  73750                             SX7    X5          J = IN[R1]    */ *UDT* INDEX                GPO      5283
                     5170000123 C                 SA7    J                                                       GPO      5284
          3665  5140000101 C                      SA4    PIC         I = PIC                                     GPO      5285
                                                                                                                 GPO      5286
          3666  73641                    FIM2     SX6    X4+B1       PI = I + 1                                  GPO      5287
                     53445                        SA4    B5+X4       PIW = IIT(I)                                GPO      5288
                          0304003702 +            ZR     X4,FIM5     IF PIW = 0    */ END OF LIST                GPO      5289
          3667  54141                             SA1    A4+B1       PI = O.IIT + PI                             GPO      5290
                                                  LX1    -IA.UDIP                                                GPO      5291
                     13751                        BX7    X5-X1                                                   GPO      5292
                          7237000000              SX3    X7+                                                     GPO      5293
                                                  LX4    -PI.LFP     I = LF[PIW]                                 GPO      5294
          3670  0313003666 +                      NZ     X3,FIM2     IF UDI[PA] " J                              GPO      5295
                                                                                                                 GPO      5296
                                        *         GET THE VALUE OF THE INCREMENT OF THIS *IP*                    GPO      5297
                                                                                                                 GPO      5298
                          5160000125 C            SA6    PI                                                      GPO      5299
          3671  73740                             SX7    X4                                                      GPO      5300
                     54761                        SA7    A6+B1       PI(2) = I                                   GPO      5301
                                                  LX1    IA.UDIP                                                 GPO      5302
                          0100003721 +            RJ     EIE         EVALUATE  *DEL TP( EV ) *                   GPO      5303
                                                                                                                 GPO      5304
                                                  PRINT  FIM,(* -- INC VALUE = *O20),X7                          GPO      5305
                                                                                                                 GPO      5306
          3672  26527                             UX5    B2,X7                                                   GPO      5307
                     0315003676 +                 NZ     X5,FIM3     IF VAL[EW] " 0                              GPO      5308
                                                                                                                 GPO      5309
                                        *         *IP* HAS A INC VALUE OF ZERO, CHANGE IT TO AN *INV* TEMP.      GPO      5310
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   141
        FIM - FORM INCREMENT MODIFICATION LISTS                       FIM                 FIM 
  
                                                                                                                 GPO      5311
                               63360              SB3    X6                                                      GPO      5312
          3673  5110000000 X                      SA1    O.TET                                                   GPO      5313
                          43451                   MX4    -T.IPFL                                                 GPO      5314
                               53213              SA2    X1+B3       TI = TET(CAS)                               GPO      5315
          3674  20444                             LX4    T.IPFP                                                  GPO      5316
                     43501                        MX5    1                                                       GPO      5317
                                                  LX5    1+T.INVP                                                GPO      5318
                          12252                   BX2    X5+X2       INV[TI] = 1                                 GPO      5319
                               11642              BX6    X4*X2       IPF[TI] = 0                                 GPO      5320
          3675  54620                             SA6    A2                                                      GPO      5321
                     76760                        SX7    B6                                                      GPO      5322
                          54730                   SA7    A3          L.IIT = OLD(L.IIT)                          GPO      5323
                                                                                                                 GPO      5324
          3676  5110000000 X             FIM3     SA1    O.IIT                                                   GPO      5325
                          5110000000 X            SA1    O.IIT                                                   GPO      5326
          3677  5120000027 +                      SA2    O.SEQ                                                   GPO      5327
                          5140000126 C            SA4    PI+1                                                    GPO      5328
          3700  5150000123 C                      SA5    J                                                       GPO      5329
                          6272000003              S"TB"  X2+3                                                    GPO      5330
          3701  63510                             SB5    X1                                                      GPO      5331
                     0400003666 +                 EQ     FIM2                                                    GPO      5332
                                                                                                                 GPO      5333
                                        *         TERMINATE *TP* INC LIST, POINT FROM *ST* TO LIST.              GPO      5334
                                                                                                                 GPO      5335
          3702  5110000000 X             FIM5     SA1    L.IIT                                                   GPO      5336
                          5120000127 C            SA2    ITB                                                     GPO      5337
          3703  37612                             IX6    X1-X2                                                   GPO      5338
                     27502                        PX5    X2                                                      GPO      5339
                          23716                   AX7    B1,X6       NPI = (L.IIT-ITB) / 2                       GPO      5340
          3704  0306003711 +                      ZR     X6,FIM6     IF NPI = 0                                  GPO      5341
                          63470                   SB4    X7                                                      GPO      5342
          3705  5140000033 +                      SA4    BSW                                                     GPO      5343
                          27545                   PX5    B4,X5                                                   GPO      5344
                               26624              UX6    B2,X4                                                   GPO      5345
          3706  66324                             SB3    B2+B4       NIS[BSW] = NIS[BSW] + NPI                   GPO      5346
                     27734                        PX7    B3,X4                                                   GPO      5347
                          54740                   SA7    A4                                                      GPO      5348
                               76100              ADDWRD IIT,B0      ADDWRD( IIT , 0 ) */ LIST TERMINATOR        GPO      5349
          3710  5140000027 +                      SA4    O.SEQ                                                   GPO      5350
                          6274000003              S"TB"  X4+3                                                    GPO      5351
                                                                                                                 GPO      5352
                                        *         ADVANCE TO NEXT *ST* ON *STC*                                  GPO      5353
                                                                                                                 GPO      5354
          3711  5130000122 C             FIM6     SA3    SC                                                      GPO      5355
                          53237                   SA2    "TB"+X3     LI = TB + SC                                GPO      5356
                               20252              LX2    -I.STCP                                                 GPO      5357
          3712  73720                             SX7    X2          SC = STC[LI]                                GPO      5358
                     54730                        SA7    A3                                                      GPO      5359
                          73220                   SX2    X2                                                      GPO      5360
                               20222              LX2    I.STCP                                                  GPO      5361
          3713  12652                             BX6    X5+X2       NPI[LI] = NPI;  HBP[LI] = ITB               GPO      5362
                     54620                        SA6    A2                                                      GPO      5363
                          0317003660 +            NZ     X7,FIM1     IF SC " 0                                   GPO      5364
                                                                                                                 GPO      5365
          3714  0400003655 +                      EQ     FIM                                                     GPO      5366
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   142
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                                        **        EIE - EVALUATE INCREMENT EXPRESSION OF A POLYNOMIAL            GPO      5368
                                        *                                                                        GPO      5369
                                        *         ENTRY  (EV) = EXPRESSION VALUE ( 12/TYP,48/VAL )               GPO      5370
                                        *                (PI) = INDEX TO *IIT* OF INCREMENT FORMULA              GPO      5371
                                        *                (A1,X1) = PA, [PA] = FIRST WORD OF INCREMENT FORMULA    GPO      5372
                                        *                                                                        GPO      5373
                                        *         EXIT   *TP* INCREMENT VALUE TERM ADDED TO *IIT*                GPO      5374
                                                                                                                 GPO      5375
          3715  10577                    EIE0     BX5    X7                                                      GPO      5376
                     76111                        ALLOC  IIT,2       ALLOC( IIT , 2 );  I = OLD(L.IIT)           GPO      5377
          3717  5140000120 C                      SA4    CAS                                                     GPO      5378
                          10755                   BX7    X5                                                      GPO      5379
                               73640              SX6    X4                                                      GPO      5380
          3720  53626                             SA6    X2+B6       IIT(I) = CAS  */ CA OF *IP*                 GPO      5381
                     54761                        SA7    A6+B1       IIT(I+1) = EW */ EXPR VALUE                 GPO      5382
                                                                                                                 GPO      5383
          3721  0200403721 +             EIE      ROUTINE                                                        GPO      5384
          3722  54211                             SA2    A1+B1       PB = PA + 1                                 GPO      5385
                     5130000124 C                 SA3    EV                                                      GPO      5386
                               26621              UX6    B2,X1       NW = NWD[PA]                                GPO      5387
          3723  26432                             UX4    B3,X2       NLD = NLD[PB]                               GPO      5388
                     20652                        LX6    -IA.CAP     CAS = CA[PA]                                GPO      5389
                          6160000006              SB6    6                                                       GPO      5390
          3724  10733                             BX7    X3          EW = EV                                     GPO      5391
                     5160000120 C                 SA6    CAS                                                     GPO      5392
          3725  0426003715 +                      EQ     B2,B6,EIE0  IF NW = 6     */ MUST BE A *LD* ONLY        GPO      5393
                                                                                                                 GPO      5394
                          26343                   UX3    B4,X3       T = TYP[EV]                                 GPO      5395
          3726  0540003727 +                      NZ     B4,EIE1     IF T " 0      */ INCREMENT ^ A CON          GPO      5396
                          0431004022 +            EQ     B3,B1,EIE9  IF NLD = 1    */ ONLY 1 *LD*                GPO      5397
                                                                                                                 GPO      5398
                                        *         CHECK FOR *LD* / *XMTC* COMBINATION                            GPO      5399
                                                                                                                 GPO      5400
          3727  0713003734 +             EIE1     GT     B3,B1,EIE2  IF NLD > 1                                  GPO      5401
                          54416                   SA4    A1+B6                                                   GPO      5402
                               26664              UX6    B6,X4                                                   GPO      5403
          3730  7156777763                        SX5    B6-OC.XMTC                                              GPO      5404
                          0315003734 +            NZ     X5,EIE2     IF OC[PA+6] " OC.XMTC                       GPO      5405
          3731  6162777765                        SB6    B2-10                                                   GPO      5406
                          0560003734 +            NZ     B6,EIE2     IF NW " 10                                  GPO      5407
                                                                                                                 GPO      5408
          3732  6154777774                        SB5    B4-3        TYPE[EW] = 3 - T                            GPO      5409
                          67405                   SB4    -B5                                                     GPO      5410
                               27747              PX7    B4,X7                                                   GPO      5411
          3733  0400003715 +                      EQ     EIE0                                                    GPO      5412
                                                                                                                 GPO      5413
                                        *         COMPLEX CASE, SETUP *TST* = DEL TP(INC VAL) IN *TXT* AND       GPO      5414
                                        *         CALL *SQZ* TO EVALUATE THE EXPRESSION.                         GPO      5415
                                                                                                                 GPO      5416
          3734  7112000016               EIE2     ALLOC  TXT,14+B2   ALLOC( TXT , NW + 14 )                      FCC0448    62
          3736  5110000124 C                      SA1    EV                                                      GPO      5418
                          63720                   SB7    X2          TB = O.TXT;  TI = OLD(L.TXT)                GPO      5419
                               26741              UX7    B4,X1       R2W = VAL[EV]                               GPO      5420
          3737  6130000010                        SB3    OC.XMT      OPC = OC.XMT                                GPO      5421
                          76611                   SX6    B1+B1       RI[R1] = 2                                  GPO      5422
          3740  0540003743 +                      NZ     B4,EIE3     IF TYP[EV] " 0                              GPO      5423
                                                                                                                 GPO      5424
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   143
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                          6120000055              SB2    OC.S        OC = OC.S                                   GPO      5425
          3741  20736                             LX7    R1.INP      IN[R1] = VAL[EV]                            GPO      5426
                     12676                        BX6    X7+X6                                                   GPO      5427
                          7170000000              SX7    0           R2W = 0                                     GPO      5428
          3742  0400003746 +                      EQ     EIE4                                                    GPO      5429
                                                                                                                 GPO      5430
          3743  43530                    EIE3     MX5    -IH.CAIHL                                               GPO      5431
                     11457                        BX4    X5*X7                                                   GPO      5432
                          6120000050              SB2    OC.LD                                                   GPO      5433
          3744  15775                             BX7    -X5*X7      R2 = CAIH[EV]                               GPO      5434
                     20466                        LX4    R1.INP-IH.RFP                                           GPO      5435
                          12646                   BX6    X4+X6       R1 = TYII(0,RF[EV],0,2)                     GPO      5436
          3745  0441003746 +                      EQ     B4,B1,EIE4  IF T = 1                                    GPO      5437
                          6130000014              SB3    OC.XMTC     OPC = OC.XMTC                               GPO      5438
                                                                                                                 GPO      5439
                                        *         MOVE THE FORMULA TO *TXT*                                      GPO      5440
                                                                                                                 GPO      5441
          3746  0100000136 +             EIE4     RJ     SMI         SMI( OC , R1 , R2 )                         FCC0656    52
          3747  5150000000 X                      SA5    O.IIT                                                   GPO      5443
                          5120000125 C            SA2    PI                                                      GPO      5444
          3750  6140000004                        SB4    4                                                       GPO      5445
                          36752                   IX7    X5+X2                                                   GPO      5446
                               53170              SA1    X7          PA = O.IIT + PI                             GPO      5447
          3751  66211                             SB2    B1+B1                                                   GPO      5448
                     26651                        UX6    B5,X1                                                   GPO      5449
                          67552                   SB5    B5-B2       N = NWD[PA] - 2                             GPO      5450
                               54512              SA5    A1+B2       PI = PA + 2                                 GPO      5451
                                                                                                                 GPO      5452
          3752  54451                    EIE5     SA4    A5+B1                                                   GPO      5453
                     54341                        SA3    A4+B1                                                   GPO      5454
                          22605                   LX6    X5                                                      GPO      5455
                               15150              BX1    "RN"X5      R = RI[R1]                                  GPO      5456
          3753  22704                             LX7    X4                                                      GPO      5457
                     67554                        SB5    B5-B4       N = N - 4                                   GPO      5458
                          56676                   SA6    B7+B6       TA = TB + TI; [TA] = [PI]                   GPO      5459
                               54761              SA7    A6+B1       [TA+1] = [PI+1]                             GPO      5460
          3754  10633                             BX6    X3                                                      GPO      5461
                     54671                        SA6    A7+B1       [TA+2] = [PA+2]                             GPO      5462
                          43700                   MX7    0                                                       GPO      5463
                               54761              SA7    A6+B1       [TA+3] = 0                                  GPO      5464
          3755  66664                             SB6    B6+B4       TI = TI + 4                                 GPO      5465
                     54554                        SA5    A5+B4       PA = PA + 4                                 GPO      5466
                          0550003752 +            NZ     B5,EIE5     IF N " 0                                    GPO      5467
                                                                                                                 GPO      5468
          3756  20140                             LX1    R1.RJP                                                  FCC0448    63
                     76560                        SX5    B6                                                      FCC0448    64
                          6120000010              SB2    OC.XMT                                                  FCC0448    65
          3757  12615                             BX6    X1+X5                                                   FCC0448    66
                     0100000124 +                 RJ     SRI         SRI( XMT  TI,R)                             FCC0448    67
          3760  6120000077                        SB2    OC.TST                                                  GPO      5469
                          5130000000 X            SA3    L.TET                                                   GPO      5470
          3761  77664                             SX6    B6-B4       R = TI - 4                                  FCC0448    68
                     5140000000 X                 SA4    =XIT.                                                   GPO      5472
                               20322              LX3    IH.CAP                                                  GPO      5473
          3762  12734                             BX7    X3+X4                                                   GPO      5474
                     0100000124 +                 RJ     SRI         SRI( TST  R,L.TET,IT. )                     GPO      5475
          3763  66200                             SB2    B0                                                      GPO      5476
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   144
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                     43600                        MX6    0                                                       GPO      5477
                          0100000124 +            RJ     SRI         SRI( EOQ  0,0 )                             GPO      5478
                                                                                                                 GPO      5479
                                        *         CHANGE *LD* OF THE *RD* VARIABLE TO AN *XMT/XMTC*              GPO      5480
                                                                                                                 GPO      5481
          3764  54211                             SA2    A1+B1       PB = PA + 1                                 GPO      5482
                                                  LX2    -IB.ILDP                                                GPO      5483
                     6262000004                   SB6    X2+4        TI = ILD[PB] + 4                            GPO      5484
                               76611              SX6    B1+B1                                                   GPO      5485
          3765  66230                             SB2    B3                                                      GPO      5486
                     20640                        LX6    R1.RJP                                                  GPO      5487
                          73320                   SX3    X2          RI = ILD[PB]                                GPO      5488
                               12663              BX6    X6+X3                                                   GPO      5489
          3766  0100000124 +                      RJ     SRI         SRI( OPC  2,0,RI )                          GPO      5490
                                                                                                                 GPO      5491
          3767  0100000000 X                      CALL   SIE#        SQUEEZE INCREMENT EXPRESSION                CCGNC     638
                                                  TRACE  EIE,RLIST                                               GPO      5493
          3770  5140000000 X                      SA4    L.TXT                                                   GPO      5494
                          6234777753              SB3    X4-5*4                                                  CCG0127    13
          3771  0703004010 +                      GT     B3,EIE7     IF MORE THAN 5 INSTRUCTIONS                 CCG0127    14
                          5110000000 X            SA1    O.TXT       T = O.TXT                                   CCG0127    15
          3772  5221000004                        SA2    X1+4        R1L = [T+4]   */ R1 OF FIRST INSTRUCTION    CCG0127    16
                          26722                   UX7    B2,X2                                                   CCG0127    17
          3773  0430004001 +                      ZR     B3,EIE6Z    IF 5 INSTRUCTIONS                           CCG0127    18
                                                                                                                 CCG0127    19
                                        *         4 INSTRUCTIONS, CHECK FOR CLR/S/FMA , TST                      CCG0127    20
                                                                                                                 CCG0127    21
                          66400                   SB4    B0          TYP = 0                                     CCG0127    22
          3774  0316003776 +                      NZ     X6,EIE6A                                                CCG0127    23
                          43200                   MX2    0                                                       CCG0127    24
          3775  0400004020 +                      EQ     EIE8                                                    CCG0127    25
                                                                                                                 CCG0127    26
          3776  7162777722               EIE6A    SX6    B2-OC.S                                                 CCG0127    27
                          0316004010 +            NZ     X6,EIE7     IF NOT OC.S                                 CCG0127    28
          3777  20236                             LX2    -R1.INP                                                 CCG0127    29
                     43352                        MX3    42                                                      CCG0127    30
                          15223                   BX2    -X3*X2                                                  CCG0127    31
          4000  0400004020 +                      EQ     EIE8                                                    CCG0127    32
                                                                                                                 GPO      5497
                                        *         *TXT* SHOULD CONTAIN * BOS, LD, XMT/XMTC, TST, EOQ *           GPO      5498
                                                                                                                 GPO      5499
          4001  7162777727               EIE6Z    SX6    B2-OC.LD                                                CCG0127    33
                          21736                   AX7    R1.INP                                                  GPO      5504
                               66410              SB4    B1          TYP = 1                                     CCG0127    34
          4002  0306004004 +                      ZR     X6,EIE6     IF OC[R1L] = OC.LD                          CCG0127    35
                          6140000005              SB4    5                                                       CCG0127    36
          4003  7162777673                        SX6    B2-OC.LDV                                               CCG0127    37
                          0316004010 +            NZ     X6,EIE7     IF OC[R1L] .NE. OC.LDV                      CCG0127    38
                                                                                                                 CCG0127    39
          4004  5231000010               EIE6     SA3    X1+8        R1 = [T+8]  */ R1 OF XMT/XMTC               CCG0127    40
                          54221                   SA2    A2+B1       R2L = [T+5]   */ R2 WORD OF *LD*            GPO      5507
                               20744              LX7    IH.RFP                                                  GPO      5508
          4005  12272                             BX2    X7+X2       VAL = SHIFT(IN[R1],IH.RFP) + CAIH[R2L]      GPO      5509
                     26523                        UX5    B2,X3                                                   GPO      5510
                          6130000010              SB3    OC.XMT                                                  GPO      5511
          4006  0423004020 +                      EQ     B2,B3,EIE8  IF OC[R1] = OC.XMT                          GPO      5513
                          6130000014              SB3    OC.XMTC                                                 GPO      5514
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   145
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
          4007  66441                             SB4    B4+B1       TYP = TYP + 1                               CCG0127    41
                     0423004020 +                 EQ     B2,B3,EIE8  IF OC[R1] = OC.XMTC                         GPO      5517
                                                                                                                 GPO      5518
                                        *         SAVE EXPRESSION IN *MOD* FOR LATER MOVE TO HOLDING BLOCK.      GPO      5519
                                                                                                                 GPO      5520
          4010  7214777767               EIE7     ALLOC  MOD,X4-8    ALLOC( MOD , L.TXT - 8 )                    GPO      5521
          4012  5140000000 X                      SA4    O.TXT                                                   GPO      5522
                          73326                   SX3    X2+B6                                                   GPO      5523
          4013  7224000004                        MOVE   X1,X4+4,X3  MOVE( L.TXT-8 , O.TXT+4 , O.MOD+OLD(L.MOD)) GPO      5524
          4014  43101                             MX1    1                                                       GPO      5525
                     5150000000 X                 SA5    IT.                                                     GPO      5526
                                                  LX1    1+T.INVP                                                GPO      5527
          4015  5100000000 X                      ADDWRD TET,X1      ADDWRD( TET , TETW(1,0,0,0) )               GPO      5528
          4016  7233777776                        SX3    X3-1                                                    GPO      5529
                          6140000003              SB4    3           TYP = 3                                     CCG0127    42
          4017  20322                             LX3    IH.CAP                                                  CCG0127    43
                     12235                        BX2    X3+X5       CAIH = CAIH[L.TET-1,IT.]                    CCG0127    44
                                                                                                                 CCG0127    45
          4020  27742                    EIE8     PX7    B4,X2       EW = PACK(TYP,CAIH)                         CCG0127    46
                     7160000004                   SX6    4           L.TXT = 4                                   CCG0127    47
          4021  5160000000 X                      SA6    L.TXT                                                   GPO      5536
                          0400003715 +            EQ     EIE0                                                    GPO      5537
  
  
  
  
                                        *         EVALUATE EXPRESSION WITH CONSTANT INC VALUE AND 1 *LD*.        GPO      5539
                                                                                                                 GPO      5540
          4022  64711                    EIE9     SB7    A1+B1       TB = PA + 1                                 GPO      5541
                     53030                        SA0    X3          LDV = VAL[EV] */ CON VALUE OF INC VARIABLE  GPO      5542
                          43102                   MX1    D.TYL                                                   GPO      5543
                               66311              SB3    B1+B1                                                   GPO      5544
          4023  66433                             SB4    B3+B3                                                   GPO      5545
                     57471                        SA4    "TB"-B1     DI = TB - 1                                 GPO      5546
                          66611                   SB6    B1+B1       I = 2                                       GPO      5547
                                                                                                                 GPO      5548
                                        *         GET NEXT INSTRUCTION, JUMP TO PROCESSOR                        GPO      5549
                                                                                                                 GPO      5550
          4024  54444                    EIE10    SA4    A4+B4       DI = DI + 4                                 GPO      5551
                     55543                        SA5    A4-B3       R1 = DI - 2                                 GPO      5552
                                                  LX4    58-D.TYP                                                GPO      5553
                          11614                   BX6    X1*X4                                                   GPO      5554
                               26755              UX7    B5,X5                                                   GPO      5555
          4025  0316004027 +                      NZ     X6,EIE11    IF TYPE[DI] " I                             GPO      5556
                          20534                   LX5    -R1.RJP                                                 GPO      5557
                               15650              BX6    "RN"X5                                                  GPO      5558
          4026  20520                             LX5    R1.RJP-R1.RKP                                           GPO      5559
                     15750                        BX7    "RN"X5                                                  GPO      5560
                          53267                   SA2    "TB"+X6     VJ = [TB+RJ[R1]]                            GPO      5561
                               53377              SA3    "TB"+X7     VK = [TB+RK[R1]]                            GPO      5562
                                                                                                                 GPO      5563
          4027  5155004052 +             EIE11    SA5    EIE.JT+B5                                               GPO      5564
                          6255000000              SB5    X5+                                                     GPO      5565
          4030  0255000000                        JP     B5          JUMP( EIE.JT( OC[R1] ) )                    GPO      5566
                                                                                                                 GPO      5567
                                        *         STORE VALUE OF THIS INSTRUCTION                                GPO      5568
                                                                                                                 GPO      5569
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   146
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
          4031  66664                    EIE12    SB6    B6+B4       I = I + 4                                   GPO      5570
                     54741                        SA7    A4+B1       LI = DI + 1;  [LI] = V                      GPO      5571
                          0762004024 +            LT     B6,B2,EIE10 IF I < NW                                   GPO      5572
                                                                                                                 GPO      5573
          4032  43152                             MX1    -IH.CAL                                                 GPO      5574
                     43200                        MX2    0                                                       CCG21      30
                          36727                   IX7    X2+X7       V = V + 0     */ ELIMINATE -0               CCG21      31
                               10377              BX3    X7                                                      CCG21      32
          4033  21321                             AX3    17                                                      CCG21      33
                     0313003734 +                 NZ     X3,EIE2     IF SHIFT(V,-17) " 0  */ INC VAL ^ A SMALL C CCG21      34
                               15671              BX6    -X1*X7                                                  GPO      5576
          4034  27706                             PX7    X6          EW = PACK(0,V)                              GPO      5577
                     0400003715 +                 EQ     EIE0                                                    GPO      5578
  
  
  
                                        *         INSTRUCTION PROCESSORS                                         GPO      5580
                                                                                                                 GPO      5581
          4035                                    PROCESS (LD,ILD)                                               GPO      5582
          4035  74700                             SX7    A0          V = LDV                                     GPO      5583
                     0400004031 +                 EQ     EIE12                                                   GPO      5584
                                                                                                                 GPO      5585
          4036                                    PROCESS (XMT,SA)                                               CCG41       1
          4036  10722                             BX7    X2          V = VJ                                      GPO      5587
                     0400004031 +                 EQ     EIE12                                                   GPO      5588
                                                                                                                 GPO      5589
          4037                                    PROCESS XMTC                                                   GPO      5590
          4037  14722                             BX7    -X2         V = -VJ                                     GPO      5591
                     0400004031 +                 EQ     EIE12                                                   GPO      5592
                                                                                                                 GPO      5593
          4040                                    PROCESS IA                                                     GPO      5594
          4040  36723                             IX7    X2+X3       V = VJ + VK                                 GPO      5595
                     0400004031 +                 EQ     EIE12                                                   GPO      5596
                                                                                                                 GPO      5597
          4041                                    PROCESS IS                                                     GPO      5598
          4041  37723                             IX7    X2-X3       V = VJ - VK                                 GPO      5599
                     0400004031 +                 EQ     EIE12                                                   GPO      5600
                                                                                                                 GPO      5601
          4042                                    PROCESS IM                                                     GPO      5602
          4042  42723                             IX7    X2*X3       V = VJ * VK                                 GPO      5603
                     0400004031 +                 EQ     EIE12                                                   GPO      5604
                                                                                                                 GPO      5605
          4043                                    PROCESS S                                                      GPO      5606
          4043  20736                             LX7    -R1.INP                                                 GPO      5607
                     73770                        SX7    X7          V = IN[R1]                                  GPO      5608
                          0400004031 +            EQ     EIE12                                                   GPO      5609
                                                                                                                 GPO      5610
          4044                                    PROCESS FMA                                                    GPO      5611
          4044  20736                             LX7    -R1.INP                                                 GPO      5612
                     6257777776                   SB5    X7-1                                                    GPO      5613
                               43501              MX5    1                                                       GPO      5614
          4045  23755                             AX7    B5,X5       V = SHIFT( 1S59 , -(IN[R1]-1) )             GPO      5615
                     0400004031 +                 EQ     EIE12                                                   GPO      5616
                                                                                                                 GPO      5617
          4046                                    PROCESS SXT                                                    GPO      5618
          4046  5034000003                        SA3    A4+3        R2 = DI + 3   */ ADVANCE TO *KLS*           GPO      5619
                          54444                   SA4    A4+B4       DI = DI + 4                                 GPO      5620
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   147
        EIE - EVALUATE INCREMENT EXPRESSION                           EIE                 FIM 
  
                               66664              SB6    B6+B4       I = I + 4                                   GPO      5621
          4047  20352                             LX3    -IH.CAP                                                 GPO      5622
                     63530                        SB5    X3                                                      GPO      5623
                          22752                   LX7    B5,X2       V = SHIFT( VJ , CA[R2] )                    GPO      5624
          4050  0400004031 +                      EQ     EIE12                                                   GPO      5625
                                                                                                                 FCC2271X   44
          4051                                    PROCESS UP                                                     FCC2271X   45
          4051  10733                             BX7    X3          V = VK                                      FCC2271X   46
                     0400004031 +                 EQ     EIE12                                                   FCC2271X   47
                                                                                                                 GPO      5626
                                3734 +   .STT     EQU    EIE2              */ CONTAINS AN *IH*                   GPO      5627
                                3734 +   .LDC     EQU    EIE2                                                    CCG21      36
  
  
                                        *         COMBINED JUMP TABLE FOR *MIP* AND *EIE*                        GPO      5629
                                                                                                                 GPO      5630
                                                  MACRO  OPR,NAM                                                 GPO      5631
                                                  NOREF  /MIP/.NAM,.NAM                                          GPO      5632
                                                  IF     DEF,/MIP/.NAM,2                                         GPO      5633
                                                  EQ     /MIP/.NAM         .NAM                                  GPO      5634
                                                  ELSE   1                                                       GPO      5635
                                                  EQ     /MIP/MIP2                                               GPO      5636
                                                  IF     DEF,.NAM,2                                              GPO      5637
                                        -         VFD    30/.NAM                                                 GPO      5638
                                                  ELSE   1                                                       GPO      5639
                                        -         VFD    30/1S17+EIE                                             GPO      5640
                                                  ENDM                                                           GPO      5641
                                                                                                                 GPO      5642
          4052                           EIE.JT   BSS    0                                                       GPO      5643
          4052                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                                                                                                 GPO      5645
                                                  QUAL                                                           GPO      5646
                                4052 +   MIP.JT   EQU    /FIM/EIE.JT                                             GPO      5647
                                                                                                                 GPO      5648
                                                  QUAL   CODE                                                    GPO      5649
                                                                                                                 GPO      5650
                                3655 +   FIM      EQU    /FIM/FIM                                                GPO      5651
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   148
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                                        **        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS FROM       GPO      5653
                                        *         CODE MOTION AND STRENGTH REDUCTION PROCESSORS.                 GPO      5654
                                        *         MERGE IN *LD*"S OF REMOVED INVARIANTS, POLYNOMIALS AND         GPO      5655
                                        *         INCREMENT CODE.                                                GPO      5656
                                                                                                                 GPO      5657
          4161  0200404161 +             UPB      ROUTINE                                                        GPO      5658
          4162  26624                             UX6    B2,X4       NPI = NIS[BSW]  */ N.POLY INCRS             GPO      5659
                     43361                        MX3    -BS.NTETL                                               GPO      5660
                          20430                   LX4    -BS.NTETP                                               GPO      5661
                               15743              BX7    -X3*X4      NTL = NTET[BSW]  */ N.TEMP LDS              GPO      5662
          4163  73172                             SX1    B2+X7                                                   GPO      5663
                     5170004303 +                 SA7    NTL                                                     GPO      5664
                               76622              SX6    B2+B2                                                   GPO      5665
          4164  36567                             IX5    X6+X7                                                   GPO      5666
                     20503                        LX5    3                                                       GPO      5667
                          5100000000 X            ALLOC  MLT,X1      ALLOC( MLT , NTL + NPI )                    GPO      5668
          4166  73150                             ALLOC  MOD,X5      ALLOC( MOD , 8*NTL + 16*NPI )               GPO      5669
          4170  5130000000 X                      SA3    O.MLT                                                   GPO      5670
                          5150000027 +            SA5    O.SEQ                                                   GPO      5671
          4171  63720                             SB7    X2          MB = O.MOD;  MI = OLD(L.MOD)                FCC0717    61
                     5120000000 X                 SA2    IT.                                                     FCC0717    62
                               53030              SA0    X3          MLI = O.MLT                                 FCC0717    63
          4172  6255000003                        SB5    X5+3        SB = O.SEQ + 3                              FCC0717    64
                                                                                                                 FCC0717    65
                                        *         SCAN *STC* AND SETUP INCREMENT CODE FOR THE *IP*"S.            FCC0717    66
                                                                                                                 FCC0717    67
                          5140000033 +            SA4    BSW                                                     FCC0717    68
          4173  26644                             UX6    B4,X4                                                   FCC0717    69
                     0440004240 +                 ZR     B4,UPB8     IF NIS[BSW] = 0  */ NO INCREMENTS           FCC0717    70
                               20452              LX4    -BS.STCP                                                FCC0717    71
          4174  5130000000 X                      SA3    O.IIT                                                   FCC0717    72
                          73440                   SX4    X4          SI = STC[BSW]                               FCC0717    73
                               53130              SA1    X3          (A1) = [O.IIT]                              FCC0717    74
                                                                                                                 FCC0717    75
          4175  53345                    UPB1     SA3    B5+X4       LI = SB + SI                                FCC0717    76
                     26633                        UX6    B3,X3       NPI = NIS[LI]                               FCC0717    77
                                                  LX3    -I.HBPP                                                 FCC0717    78
                          63230                   SB2    X3                                                      FCC0717    79
                               20352              LX3    I.HBPP-I.STCP                                           FCC0717    80
          4176  73730                             SX7    X3          SC = STC[LI]  */ NEXT ON CHAIN              FCC0717    81
                     20444                        LX4    ML.IIP                                                  FCC0717    82
                          5170000122 C            SA7    SC                                                      FCC0717    83
          4177  0430004237 +                      ZR     B3,UPB7     IF NPI = 0    */ NO INCS AT THIS *ST*       FCC0717    84
                                                                                                                 FCC0717    85
                                        *         LOOP THROUGH C LIST IN *IIT* AND OUTPUT INCREMENTS             FCC0717    86
                                                                                                                 FCC0717    87
                          54512                   SA5    A1+B2       ILI = O.IIT + HBP[LI];  C = [ILI]  */ CA    FCC0717    88
                               76760              SX7    B6                                                      FCC0717    89
                                                  LX7    ML.MTIP                                                 FCC0717    90
          4200  66460                             SB4    B6          MF = MI       */ INIT VALUE                 FCC0717    91
                     12647                        BX6    X4+X7                                                   FCC0717    92
                          54600                   SA6    A0          [MLI] = MCW(0,SI,0,MI)                      FCC0717    93
                               54001              SA0    A0+B1       MLI = MLI + 1                               FCC0717    94
                                                                                                                 FCC0717    95
                                        *         OUTPUT *TLD* OF *IP*                                           FCC0717    96
                                                                                                                 FCC0717    97
          4201  6120000076               UPB2     SB2    OC.TLD                                                  FCC0717    98
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   149
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                          76660                   SX6    B6                                                      FCC0717    99
                               20522              LX5    IH.CAP                                                  FCC0717   100
          4202  12752                             BX7    X5+X2       R2W = CAIH[C,IT.]                           FCC0717   101
                     10177                        BX1    X7          R2WS = R2W                                  FCC0717   102
                          0100000124 +            RJ     SRI         SRI( TLD  MI,R2W )                          FCC0717   103
                                                                                                                 FCC0717   104
                                        *         OUTPUT STT / LD OF INCREMENT VALUE                             FCC0717   105
                                                                                                                 FCC0717   106
          4203  54551                             SA5    A5+B1       ILI = ILI + 1                               FCC0717   107
                     26725                        UX7    B2,X5       T = TYP[ILI];  R2W = VAL[ILI]               FCC0717   108
                          5132004305 +            SA3    UPBB+B2                                                 FCC0717   109
          4204  76660                             SX6    B6                                                      FCC0717   110
                     0520004222 +                 NZ     B2,UPB3     IF T " 0                                    FCC0717   111
          4205  5140000000 X                      SA4    O.TET                                                   CCG21      37
                          20152                   LX1    -IH.CAP                                                 CCG21      38
                               63240              SB2    X4                                                      CCG21      39
          4206  53412                             SA4    B2+X1       TW = TET(C)                                 CCG21      40
                     20122                        LX1    IH.CAP                                                  CCG21      41
                          20404                   LX4    59-T.RFP                                                CCG21      42
          4207  0324004215 +                      PL     X4,UPB2A    IF ^RF[TW]    */ NOT SHORT USE              CCG21      43
                          5140000000 X            SA4    =XHO$LCM                                                CCG0212     5
          4210  0324004212 +                      PL     X4,UPB2C              */  IF  .NOT.  LCM=G              CCG0212     6
                          5140000000 X            SA4    =XHO$OPT                                                CCG0212     7
          4211  0334004215 +                      MI     X4,UPB2A                 */ IF OPT=2                    CCG0212     8
                                                                                                                 FCC0717   112
          4212  20722                    UPB2C    LX7    IH.CAP                                                  CCG0212     9
                     7146777773                   SX4    B6-4                                                    FCC0717   114
                               20444              LX4    IH.RFP      C = VAL[ILI]  */ INC VALUE                  FCC0717   115
          4213  12747                             BX7    X4+X7       R2W = IHW(0,MI-4,C,0)                       FCC0717   116
                     63230                        SB2    X3                                                      FCC0717   117
                          0100000131 +            RJ     SII         SII( STT  MI,MI-4,C )                       FCC0717   118
          4214  0400004233 +                      EQ     UPB6                                                    FCC0717   119
                                                                                                                 CCG21      44
          4215  73570                    UPB2A    SX5    X7                                                      CCG40       5
                     0325004216 +                 PL     X5,UPB2B    IF C GE O                                   CCG40       6
                               14755              BX7    -X5         C = ABS(C)                                  CCG40       7
                                                                                                                 CCG40       8
          4216  20736                    UPB2B    LX7    R1.INP                                                  CCG40       9
                     12676                        BX6    X7+X6                                                   CCG21      46
                          6120000055              SB2    OC.S        OC = OC.S                                   CCG21      47
          4217  43700                             MX7    0                                                       CCG21      48
                     0100000124 +                 RJ     SRI         SRI( S  RI,C )                              CCG21      49
          4220  7130000036                        SX3    OC.IA                                                   CCG21      50
                          0325004230 +            PL     X5,UPB5A    IF C WAS POSITIVE                           CCG40      10
          4221  7130000037                        SX3    OC.IS                                                   CCG40      11
                          0400004230 +            EQ     UPB5A                                                   CCG21      51
                                                                                                                 FCC0717   120
                                        *         TLD - REPLACE *CA* WITH EQUIVALENT                             FCC0717   121
                                                                                                                 FCC0717   122
          4222  0323004225 +             UPB3     PL     X3,UPB4     IF NOT *TLD*                                CCG0127    48
                          5140000000 X            SA4    O.TET                                                   FCC0717   124
          4223  20752                             LX7    -IH.CAP                                                 FCC0717   125
                     63270                        SB2    X7                                                      FCC0717   126
                          53442                   SA4    X4+B2                                                   FCC0717   127
                                                  LX4    -T.CAP                                                  FCC0717   128
                               73740              SX7    X4          CA[R2W] = CA[TET(CA[R2W])                   FCC0717   129
          4224  20722                             LX7    IH.CAP                                                  FCC0717   130
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   150
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                     12772                        BX7    X7+X2                                                   FCC0717   131
                          0400004227 +            EQ     UPB5                                                    FCC0717   132
                                                                                                                 FCC0717   133
                                        *         LD - SET *IN* FIELD IN R1 WORD                                 FCC0717   134
                                                                                                                 FCC0717   135
          4225  43430                    UPB4     MX4    -IH.CAIHL                                               FCC0717   136
                     11547                        BX5    X4*X7       IN[R1] = RF[R2W]                            CCG0127    49
                          15774                   BX7    -X4*X7      R2W = CAIH[R2W]                             FCC0717   138
                               20566              LX5    R1.INP-IH.RFP                                           FCC0717   139
          4226  12656                             BX6    X5+X6                                                   FCC0717   140
                                                                                                                 FCC0717   141
          4227  63230                    UPB5     SB2    X3          OC = SETX( UPBB(T) )                        FCC0717   142
                     21322                        AX3    18                                                      FCC0717   143
                          0100000136 +            RJ     SMI         SMI( UPBB(T) , R1W , R2W )                  FCC0717   144
                                                                                                                 FCC0717   145
                                        *         OUTPUT INCREMENT OF POLYNOMIAL ( TP = TP + INCV )              FCC0717   146
                                                                                                                 FCC0717   147
          4230  7156777767               UPB5A    SX5    B6-8                                                    CCG21      52
                          7146777773              SX4    B6-4                                                    FCC0717   149
          4231  76660                             SX6    B6                                                      FCC0717   150
                     20540                        LX5    R1.RJP                                                  FCC0717   151
                          63230                   SB2    X3          OC = SHIFT( UPBB(T) , -18 )                 FCC0717   152
                               20420              LX4    R1.RKP                                                  FCC0717   153
          4232  12345                             BX3    X4+X5                                                   FCC0717   154
                     36636                        IX6    X3+X6                                                   FCC0717   155
                          0100000131 +            RJ     SII         SII( OC  MI,MI-8,MI-4 )                     FCC0717   156
                                                                                                                 FCC0717   157
          4233  7166777773               UPB6     SX6    B6-4                                                    FCC0717   158
                          6120000077              SB2    OC.TST                                                  FCC0717   159
          4234  10711                             BX7    X1          R2W = R2WS                                  FCC0717   160
                     0100000131 +                 RJ     SII         SII( TST  MI-4,R2W )                        FCC0717   161
          4235  54551                             SA5    A5+B1       ILI = ILI + 1                               FCC0717   162
                     0315004201 +                 NZ     X5,UPB2     IF [ILI] " 0                                FCC0717   163
                                                                                                                 FCC0717   164
                               55401              SA4    A0-B1                                                   FCC0717   165
          4236  77364                             SX3    B6-B4       NI = (MI-MF)/4  */ N.INSTRUCTIONS IN MOD    FCC0717   166
                     20320                        LX3    ML.NIP-2                                                FCC0717   167
                          12634                   BX6    X3+X4                                                   FCC0717   168
                               54640              SA6    A4          NI[MIL-1] = NI                              FCC0717   169
                                                                                                                 FCC0717   170
          4237  5140000122 C             UPB7     SA4    SC                                                      FCC0717   171
                          0314004175 +            NZ     X4,UPB1     IF SC " 0                                   FCC0717   172
  
  
                                        *         SCAN *TET* AND SETUP *TLD*"S OF REMOVED EXPRESSIONS            FCC0717   174
                                                                                                                 FCC0717   175
          4240  5130004303 +             UPB8     SA3    NTL                                                     FCC0717   176
                          0303004277 +            ZR     X3,UPB15    IF NTL = 0                                  FCC0717   177
          4241  5110000102 C                      SA1    TTI                                                     FCC0717   178
                          5140000000 X            SA4    O.TET                                                   FCC0717   179
          4242  63210                             SB2    X1                                                      FCC0717   180
                     53542                        SA5    X4+B2       TI = O.TET + TTI  */ *TET* INDEX            FCC0717   181
                          73632                   SX6    B2+X3       TTI = TTI + NTL  */ ADVANCE *TET* INDEX     FCC0717   182
                               54610              SA6    A1                                                      FCC0717   183
          4243  63430                             SB4    X3          NT = NTL                                    FCC0717   184
                                                                                                                 FCC0717   186
                                         UPB9     LX5    -T.CAP                                                  FCC0717   187
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   151
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
          4244  73350                             SX3    X5                                                      FCC0717   188
                     20552                        LX5    T.CAP-T.BIP                                             FCC0717   189
                          15650                   BX6    "RN"X5      R = BI[TI]    */ INSERT POINTER             FCC0717   190
                               53465              SA4    B5+X6       LI = SB + R                                 FCC0717   191
          4245  20322                             LX3    IH.CAP                                                  FCC0717   192
                     12723                        BX7    X2+X3       R2W = CAIH[CA[TI],IT.]                      FCC0717   193
                          20405                   LX4    59-I.AIPP                                               FCC0717   194
          4246  5110004314 +                      SA1    UPBC                                                    CCG0214     7
                          0324004264 +            PL     X4,UPB11    IF ^AIP[LI]                                 FCC0717   195
                                                                                                                 FCC0717   196
                                        *         *TP* IS *AIP*, SEARCH FOR *TLD* OF INCREMENT IN *MOD* AND      FCC0717   197
                                        *         FORM AN *XMT* FROM IT TO THE *TP*.  ( IO=I $ I=I+1 $ A(J,IO) ) FCC0717   198
                                                                                                                 FCC0717   199
          4247  65301                             SB3    A0-B1                                                   FCC2045     4
                     66271                        SB2    B7+B1                                                   FCC2045     5
          4250  56330                    UPB10    SA3    B3          MLW = [J]                                   FCC2045     6
                     67331                        SB3    B3-B1       J = J - 1     */ BACKWARDS SEARCH           FCC2045     7
                          20330                   LX3    -ML.IIP                                                 FCC2045     8
                               15430              BX4    "RN"X3                                                  FCC2045     9
          4251  37564                             IX5    X6-X4                                                   FCC2045    10
                     0335004250 +                 MI     X5,UPB10    IF II[MLW] > R                              FCC2045    11
                               20344              LX3    ML.IIP-ML.MTIP    I = MTI[MLW]                          FCC2045    12
          4252  53232                             SA2    B2+X3                                                   FCC2149     1
                     20352                        LX3    ML.MTIP-ML.NIP    K = NI[MLW]                           FCC2149     2
                                                                                                                 FCC2149     3
          4253  13427                    UPB10A   BX4    X2-X7                                                   FCC2149     4
                     0304004260 +                 ZR     X4,UPB10B   IF MOD(I) = R2W                             FCC2149     5
          4254  7233777776                        SX3    X3-1        K = K - 1                                   FCC2149     6
                          5022000004              SA2    A2+4        I = I + 4                                   FCC2149     7
          4255  0313004253 +                      NZ     X3,UPB10A   IF K " 0                                    FCC2149     8
                          5110000000 X            SA1    O.MLT                                                   CCGA091     6
          4256  14111                             BX1    -X1                                                     CCGA091     7
                     73113                        SX1    B3+X1                                                   CCGA091     8
                          0321004250 +            PL     X1,UPB10                        */ IF MLT NOT EMPTY     CCGA091     9
          4257  0400004276 +                      EQ     UPB14                                                   CCGA091    10
                                                                                                                 FCC2149    10
          4260  55321                    UPB10B   SA3    A2-B1                                                   FCC2149    11
                     73270                        SX2    X7                RESTORE X2                            FCC2149    12
                          15530                   BX5    "RN"X3      RJ = RI[MOD(I-1)]  */ RI OF TLD             FCC0717   206
                               20644              LX6    ML.IIP                                                  FCC0717   207
          4261  76760                             SX7    B6                                                      FCC0717   208
                                                  LX7    ML.MTIP                                                 FCC0717   209
                     12667                        BX6    X6+X7                                                   FCC0717   210
                          76410                   SX4    B1                                                      FCC0717   211
                               20422              LX4    ML.NIP                                                  FCC0717   212
          4262  12646                             BX6    X4+X6                                                   FCC0717   213
                     43401                        MX4    1                                                       FCC0717   214
                                                  LX4    1+ML.DELP                                               FCC0717   215
                          12646                   BX6    X4+X6                                                   FCC0717   216
                               54600              SA6    A0          [MLI] = MCW(1,R,1,MI)                       FCC0717   217
          4263  54001                             SA0    A0+B1       MLI = MLI + 1                               FCC0717   218
                     0400004274 +                 EQ     UPB13                                                   FCC0717   219
                                                                                                                 FCC0717   220
          4264  55441                    UPB11    SA4    A4-B1       DI = LI - 1                                 FCC0717   221
                     6120000076                   SB2    OC.TLD                                                  FCC0717   222
                               11314              BX3    X1*X4                                                   FCC0717   223
          4265  0313004270 +                      NZ     X3,UPB12    IF STRS[DI] ! PI[DI] " 0                    FCC0717   224
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   152
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                                                                                                                 FCC0717   225
                                        *         INSERT *TLD* DIRECTLY IN *SEQ*                                 FCC0717   226
                                                                                                                 FCC0717   227
                          55741                   SA7    A4-B1       [DI-1] = R2W                                FCC0717   228
                               27626              PX6    B2,X6                                                   FCC0717   229
          4266  5132000000 X                      SA3    F.RDT+B2                                                FCC0717   230
                          10733                   BX7    X3                                                      FCC0717   231
                               55671              SA6    A7-B1       [DI-2] = TYIII(OC.TLD,0,0,R)                FCC0717   232
          4267  54740                             SA7    A4          [DI] = RDT(OC.TLD)                          FCC0717   233
                     0400004276 +                 EQ     UPB14                                                   FCC0717   234
                                                                                                                 FCC0717   235
                                        *         SETUP *MOD* ENTRY FOR *TLD/XMT*                                FCC0717   236
                                                                                                                 FCC0717   237
          4270  5130004304 +             UPB12    SA3    UPBA                                                    FCC0717   238
                          76460                   SX4    B6                                                      FCC0717   239
                               20644              LX6    ML.IIP                                                  FCC0717   240
                                                  LX4    ML.MTIP                                                 FCC0717   241
          4271  36446                             IX4    X4+X6                                                   FCC0717   242
                     12634                        BX6    X3+X4                                                   FCC0717   243
                          54600                   SA6    A0          [MLI] = MCW(1,R,2,MI)                       FCC0717   244
                               54001              SA0    A0+B1       MLI = MLI + 1                               FCC0717   245
          4272  76660                             SX6    B6                                                      FCC0717   246
                     0100000124 +                 RJ     SRI         SRI( TLD  R,R2W )                           FCC0717   247
          4273  7156777773                        SX5    B6-4        RJ = MI-4                                   FCC0717   248
                                                                                                                 FCC0717   249
          4274  76660                    UPB13    SX6    B6                                                      FCC0717   250
                     20540                        LX5    R1.RJP                                                  FCC0717   251
                          6120000010              SB2    OC.XMT                                                  FCC0717   252
          4275  43700                             MX7    0                                                       FCC0717   253
                     12656                        BX6    X5+X6                                                   FCC0717   254
                          0100000124 +            RJ     SRI         SRI( XMT  MI,RJ )                           FCC0717   255
                                                                                                                 FCC0717   256
          4276  67441                    UPB14    SB4    B4-B1       NT = NT - 1                                 FCC0717   257
                     54551                        SA5    A5+B1       TI = TI + 1                                 FCC0717   258
                          0540004244 +            NZ     B4,UPB9     IF NT " 0                                   FCC0717   259
  
  
                                        *         SET FINAL TABLE LENGTHS AND MERGE THE BLOCKS                   FCC0717   261
                                                                                                                 FCC0717   262
          4277  5110000000 X             UPB15    SA1    O.MLT                                                   FCC0717   263
                          74200                   SX2    A0                                                      GPO      5844
                               76660              SX6    B6                                                      GPO      5845
          4300  5160000000 X                      SA6    L.MOD       L.MOD = MI                                  GPO      5846
                          37721                   IX7    X2-X1                                                   GPO      5847
                               43601              MX6    1                                                       GPO      5848
          4301  5170000000 X                      SA7    L.MLT       L.MLT = MLI - O.MOD                         GPO      5849
                          0100004321 +            CALL   MPB         MERGE, SQUEEZE AND REWRITE BLOCK            GPO      5850
          4302  0400004161 +                      EQ     UPB                                                     GPO      5851
                                                                                                                 GPO      5852
          4303                     1     NTL      BSS    1           N.TET"S IN BLOCK                            GPO      5853
          4304                           UPBA     BSS    0                                                       GPO      5854
          4304  4                                 VFD    1/1                                                     GPO      5855
                                  24              POS    ML.NIP+2                                                GPO      5856
                             2000000              VFD    2/2,*P/0                                                GPO      5857
                                                                                                                 GPO      5858
                                        *         UPBB - INCREMENT OPERATION TABLE                               GPO      5859
                                                                                                                 GPO      5860
1       GPO - GLOBAL PROGRAM OPTIMIZATION                             COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   153
        UPB - UPDATE PROGRAM BLOCK TO REFLECT MODIFICATIONS           UPB                 CODE
  
                                         INCOP    MACRO  A,B,C                                                   GPO      5861
                                                  VFD    1/C,41/OC.B,18/OC.A                                     GPO      5862
                                                  ENDM                                                           GPO      5863
                                                                                                                 GPO      5864
          4305                           UPBB     BSS    0                                                       GPO      5865
      L      0                                    LOC    0                                                       GPO      5866
      L      0  00000000000055000052              INCOP  STT,S                                                   GPO      5867
      L      1  00000000000036000050              INCOP  LD,IA                                                   GPO      5868
      L      2  00000000000037000050              INCOP  LD,IS                                                   GPO      5869
      L      3  40000000000036000076              INCOP  TLD,IA,1                                                GPO      5870
      L      4  40000000000037000076              INCOP  TLD,IS,1                                                GPO      5871
      L      5  00000000000036000104              INCOP  LDV,IA                                                  CCG0127    50
      L      6  00000000000037000104              INCOP  LDV,IS                                                  CCG0127    51
      L   4314                                    LOC    *O                                                      GPO      5872
                                                                                                                 GPO      5873
          4314                           UPBC     BFMW   D,(STRS,PI)   PS , PRS AND PI ( *DEF* MAY *PS* )        GPO      5874
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   154
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
                                        **        MPB - MERGE PROGRAM BLOCK AND MOD LIST                         GPO      5877
                                        *         MERGES A PROGRAM BLOCK DEFINED BY O.SEQ, L.SEQ AND THE MOD     GPO      5878
                                        *         LIST ASSOCIATED WITH THE BLOCK, AND MOVES THE BLOCK TO *TXT*.  GPO      5879
                                        *                                                                        GPO      5880
                                        *         ENTRY  (X6) = 0 , MERGE BLOCK ONLY                             GPO      5881
                                        *                (X6) > 0 , MERGE BLOCK AND CALL *SQZB* .                GPO      5882
                                        *                (X6) < 0 , MERGE, CALL *SQZB* AND REWRITE TO *BLK*      GPO      5883
                                        *                                                                        GPO      5884
                                        *         EXIT   MERGED BLOCK IN *TXT*, R-NUMBERS IN CANONICAL ORDER.    GPO      5885
                                        *                L.MLT = 0 , L.MOD = 4 AND L.TXT = 4 IF FLAG < 0 .       GPO      5886
                                                                                                                 GPO      5887
                                         SB       MICRO  1,,/B6/     O.SEQ + 3                                   GPO      5888
                                                                                                                 GPO      5889
          4315  5110004426 +             MPB0     SA1    MPBA                                                    GPO      5890
                          0301004321 +            ZR     X1,MPB      IF MPBA = 0   */ NO SQZB CALL               GPO      5891
          4316  43600                             MX6    0                                                       GPO      5892
                     0100000000 X                 CALL   SQZB#                                                   CCGNC     639
                                                                                                                 GPO      5894
                                                  TRACE  MPB,RLIST                                               GPO      5895
                                                                                                                 GPO      5896
          4317  5110004426 +                      SA1    MPBA                                                    GPO      5897
                          0321004321 +            PL     X1,MPB      IF MPBA > 0                                 GPO      5898
                                                                                                                 GPO      5899
          4320  0100000066 +                      CALL   WTB         WRITE BLOCK BACK TO *BLK*                   GPO      5900
                                                                                                                 GPO      5901
          4321  0200404321 +             MPB      ROUTINE                                                        GPO      5902
          4322  5160004426 +                      SA6    MPBA                                                    GPO      5903
                                                  TRACE  MPB,MLT                                                 GPO      5904
                                                  TRACE  MPB,RLIST,MOD                                           GPO      5905
                          5150000000 X            SA5    L.MOD                                                   GPO      5906
          4323  5140000030 +                      SA4    L.SEQ                                                   GPO      5907
                          7255777767              SX5    X5-8                                                    GPO      5908
          4324  36145                             IX1    X4+X5                                                   GPO      5909
                     5100000000 X                 ALLOC  TXT,X1      ALLOC( TXT , L.SEQ + L.MOD-8 )              GPO      5910
                                                                                                                 GPO      5911
                                        *         INSERT MOD LIST INFO IN *SEQ*                                  GPO      5912
                                                                                                                 GPO      5913
          4326  5140000027 +                      SA4    O.SEQ                                                   GPO      5914
                          5110000000 X            SA1    O.MOD                                                   GPO      5915
          4327  7176777773                        SX7    B6-4        PTL = OLD(L.TXT) - 4                        GPO      5916
                          6130000003              SB3    3                                                       GPO      5917
          4330  36627                             IX6    X2+X7       TIA = O.TXT + PTL                           GPO      5918
                     5160004430 +                 SA6    TIA                                                     GPO      5919
                               63723              S"TB"  X2+B3       TB = O.TXT + 3                              GPO      5920
          4331  43001                             MX0    1                                                       GPO      5921
                     5130000000 X                 SA3    O.MLT                                                   GPO      5922
                               63643              S"SB"  X4+B3       SB = O.SEQ + 3                              GPO      5923
          4332  53530                             SA5    X3          I = [O.MLT]                                 GPO      5924
                     5120000000 X                 SA2    L.MLT                                                   GPO      5925
                               66400              SB4    B0          MIA = 0       */ MIN INSERT ADDRESS         GPO      5926
          4333  0317004334 +            +         NZ     X7,*+1      IF PTL = 0  THEN MIA = *INFINITY*           GPO      5927
                          6140377777              SB4    377777B     MIA = *INFINITY*  */ MIN INSERT ADDRESS     GPO      5928
                                                  LX1    ML.MTIP                                                 GPO      5929
          4334  0302004341 +                      ZR     X2,MPB2     IF L.MLT = 0                                GPO      5930
                          6252000000              SB5    X2+         N = L.MLT                                   GPO      5931
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   155
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
          4335  36651                    MPB1     IX6    X5+X1       MTI[I] = MTI[I] + O.MOD  */ RELOCATE        GPO      5933
                     20530                        LX5    -ML.IIP                                                 GPO      5934
                          53656                   SA6    "SB"+X5     SI = SB + II[I];  [SI] = [I]  */ SAVE INSRT GPO      5935
                               63250              SB2    X5                                                      GPO      5936
          4336  67551                   +         SB5    B5-B1       N = N - 1                                   GPO      5937
                     0624004337 +                 GE     B2,B4,*+1   MIA = MIN( II[I] , MIA )                    GPO      5938
                               66420              SB4    B2                                                      GPO      5939
          4337  55463                             SA4    A6-B3       R1 = SI - 3                                 GPO      5940
                     54551                        SA5    A5+B1       I = I + 1                                   GPO      5941
                          12704                   BX7    X0+X4       [R1] = MASK(1) ! [R1]  */ SET MOD FLAG      GPO      5942
                               54740              SA7    A4                                                      GPO      5943
          4340  0550004335 +                      NZ     B5,MPB1     IF N " 0                                    GPO      5944
  
  
                                        *         MOVE INSTRUCTIONS FROM *SEQ* TO *TXT*, INSERT INSTRUCTIONS     GPO      5946
                                        *         FROM *MOD*                                                     GPO      5947
                                                                                                                 GPO      5948
          4341  5120004430 +             MPB2     SA2    TIA                                                     GPO      5949
                          5110000000 +            SA1    DMASK                                                   GPO      5950
          4342  53020                             SA0    X2          TI = TIA                                    GPO      5951
                     73624                        SX6    X2+B4       FIA = TIA + MIA                             GPO      5952
                          5160004427 +            SA6    FIA                                                     GPO      5953
          4343  5156777770                        SA5    "SB"-7      SI = SB-3 - 4                               GPO      5954
                          6140000004              SB4    4                                                       GPO      5955
          4344  0400004351 +                      EQ     MPB4                                                    GPO      5956
                                                                                                                 GPO      5957
                                        *         MOVE INSTRUCTION TO *TXT*                                      GPO      5958
                                                                                                                 GPO      5959
          4345  54451                    MPB3     SA4    A5+B1       R2 = SI + 1                                 GPO      5960
                     10655                        BX6    X5                                                      GPO      5961
                          54341                   SA3    A4+B1       D = R2 + 1                                  GPO      5962
                               22704              LX7    X4                                                      GPO      5963
          4346  54600                             SA6    A0          [TI] = [SI]                                 GPO      5964
                     26525                        UX5    B2,X5                                                   GPO      5965
                          54761                   SA7    A6+B1       [TI+1] = [R2]                               GPO      5966
                               15631              BX6    -X1*X3                                                  GPO      5967
          4347  54671                             SA6    A7+B1       [TI+2] = ^DMASK & [D]                       GPO      5968
                     43700                        MX7    0                                                       GPO      5969
                          54761                   SA7    A6+B1       [TI+3] = 0                                  GPO      5970
                               75677              SX6    A7-"TB"     R = TI+3 - TB                               GPO      5971
          4350  54004                             SA0    A0+B4       TI = TI + 4                                 GPO      5972
                     54653                        SA6    A5+B3       [SI+3] = R    */ NEW R-NUMBER               GPO      5973
                          0420004366 +            ZR     B2,MPB7     IF OC[SI] = 0 */ END OF SEQ                 GPO      5974
                                                                                                                 GPO      5975
          4351  54554                    MPB4     SA5    A5+B4       SI = SI + 4                                 GPO      5976
                     0325004345 +                 PL     X5,MPB3     IF [SI] \ 0   */ NOT AN INSERT POINT        GPO      5977
                               54253              SA2    A5+B3       LW = [SI+3]                                 GPO      5978
          4352  15650                             BX6    -X0*X5                                                  GPO      5979
                                                  LX2    59-ML.DELP                                              GPO      5980
                     0332004356 +                 MI     X2,MPB5     IF DEL[LW]    */ INST TO BE DELETED         GPO      5981
                                                                                                                 GPO      5982
                               54451              SA4    A5+B1       R2 = SI + 1                                 GPO      5983
          4353  54341                             SA3    A4+B1       D = R2 + 1                                  GPO      5984
                     22704                        LX7    X4                                                      GPO      5985
                          54600                   SA6    A0          [TI] = [SI]                                 GPO      5986
                               54761              SA7    A6+B1       [TI+1] = [R2]                               GPO      5987
          4354  15631                             BX6    -X1*X3                                                  GPO      5988
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   156
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
                     54671                        SA6    A7+B1       [TI+2] = ^DMASK & [D]                       GPO      5989
                          43700                   MX7    0                                                       GPO      5990
                               54761              SA7    A6+B1       [TI+3] = 0                                  GPO      5991
          4355  75677                             SX6    A7-"TB"     R = TI+3 - TB                               GPO      5992
                     54004                        SA0    A0+B4       TI = TI + 4                                 GPO      5993
                          54653                   SA6    A5+B3       [SI+3] = R                                  GPO      5994
                                                                                                                 GPO      5995
                                        *         MOVE INSTRUCTIONS FROM *MOD* TO *TXT*                          GPO      5996
                                                                                                                 GPO      5997
          4356  10522                    MPB5     BX5    X2                                                      GPO      5998
                                                  LX2    1+ML.DELP-ML.MTIP                                       GPO      5999
                     53420                        SA4    X2          MI = MTI[LW]                                GPO      6000
                          20252                   LX2    ML.MTIP-ML.NIP                                          GPO      6001
                               63220              SB2    X2          N = NI[LW]                                  GPO      6002
                                                                                                                 GPO      6003
          4357  54341                    MPB6     SA3    A4+B1                                                   GPO      6004
                     14644                        BX6    -X4                                                     GPO      6005
                          54231                   SA2    A3+B1                                                   GPO      6006
                               67221              SB2    B2-B1       N = N - 1                                   GPO      6007
          4360  54600                             SA6    A0          [TI] = -[MI]  */ FLIP R1 WORD               GPO      6008
                     10733                        BX7    X3                                                      GPO      6009
                          54761                   SA7    A6+B1       [TI+1] = [MI+1]                             GPO      6010
                               15621              BX6    -X1*X2      [TI+2] = ^DMASK & [MI+2]                    GPO      6011
          4361  54671                             SA6    A7+B1                                                   GPO      6012
                     43700                        MX7    0                                                       GPO      6013
                          54761                   SA7    A6+B1       [TI+3] = 0                                  GPO      6014
                               75677              SX6    A7-"TB"     R = TI+3 - TB                               GPO      6015
          4362  54643                             SA6    A4+B3       [MI+3] = R    */ NEW R-NUMBER               GPO      6016
                     54004                        SA0    A0+B4       TI = TI + 4                                 GPO      6017
                          20225                   LX2    -D.^DP+2                                                GPO      6018
                               54444              SA4    A4+B4       MI = MI + 4                                 GPO      6019
          4363  0520004357 +                      NZ     B2,MPB6     IF N " 0                                    GPO      6020
                                                                                                                 GPO      6021
                          0325004351 +            PL     X5,MPB4     IF ^DEL[LW]   */ IF AN INSERT               GPO      6022
          4364  76340                             SX3    B4                                                      GPO      6023
                     11232                        BX2    X3*X2                                                   GPO      6024
                          37662                   IX6    X6-X2       R = R - 4*^D[MI-2]                          GPO      6025
                               54653              SA6    A5+B3       [SI+3] = R    */ FOR *EXTERNAL* USE         GPO      6026
          4365  0400004351 +                      EQ     MPB4                                                    GPO      6027
  
  
                                        *         ADJUST R-NUMBERS TO BRING *TXT* TO CANONICAL FORM              GPO      6029
                                                                                                                 GPO      6030
          4366  64503                    MPB7     SB5    A0+B3                                                   GPO      6031
                     77657                        SX6    B5-"TB"     L.TXT = TI+3 - TB                           GPO      6032
                          5150000000 X            SA5    O.MOD                                                   GPO      6033
          4367  7100600001                        SX0    RN.MASK                                                 CCG11     120
                          5160000000 X            SA6    L.TXT                                                   GPO      6035
                                                  TRACE  MPB7,RLIST                                              GPO      6037
          4370  5130004427 +                      SA3    FIA                                                     GPO      6038
                          43102                   MX1    D.TYL                                                   GPO      6039
                               66211              SB2    B1+B1                                                   GPO      6040
          4371  0333004315 +                      MI     X3,MPB0     IF FIA < 0    */ NO MODS TO BLOCK           GPO      6041
                          5243777775              SA4    X3-2        DI = FIA - 2                                GPO      6042
          4372  63553                             SB5    X5+B3       MB = O.MOD + 3                              GPO      6043
                     43600                        MX6    0                                                       GPO      6044
                          5106677777              SA0    "SB"-100000B      MSB = SB - 100000B */ MOD TO SEQ REFS GPO      6045
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   157
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
          4373  56660                             SA6    "SB"        [SB] = 0                                    GPO      6046
                     56650                        SA6    B5          [MB] = 0                                    GPO      6047
                          0400004403 +            EQ     MPB10                                                   GPO      6048
                                                                                                                 GPO      6049
                                        *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *SEQ*             GPO      6050
                                                                                                                 GPO      6051
          4374  15750                    MPB8     BX7    "RN"X5                                                  GPO      6052
                     53376                        SA3    "SB"+X7     R = [SB+RI[R1]]                             GPO      6053
                          11505                   BX5    X0*X5                                                   GPO      6054
                               54251              SA2    A5+B1       R2 = R1 + 1                                 GPO      6055
          4375  36653                             IX6    X5+X3       RI[R1] = R                                  GPO      6056
                     0314004401 +                 NZ     X4,MPB9     IF TYPE[DI] " I                             GPO      6057
                                                                                                                 GPO      6058
                               20634              LX6    -R1.RJP                                                 GPO      6059
          4376  15760                             BX7    "RN"X6                                                  GPO      6060
                     53376                        SA3    "SB"+X7     R = [SB+RJ[R1]]                             GPO      6061
                          11606                   BX6    X0*X6                                                   GPO      6062
                               36563              IX5    X6+X3       RJ[R1] = R                                  GPO      6063
          4377  20520                             LX5    R1.RJP-R1.RKP                                           GPO      6064
                     15750                        BX7    "RN"X5                                                  GPO      6065
                          53376                   SA3    "SB"+X7     R = [SB+RK[R1]]                             GPO      6066
                               11505              BX5    X0*X5                                                   GPO      6067
          4400  36653                             IX6    X5+X3       RK[R1] = R                                  GPO      6068
                     6100000000                   SB0    0                                                       GPO      6069
                               20620              LX6    R1.RKP                                                  GPO      6070
                                                                                                                 GPO      6071
          4401  20230                    MPB9     LX2    -IH.RFP                                                 GPO      6072
                     15720                        BX7    "RN"X2                                                  GPO      6073
                          53376                   SA3    "SB"+X7     R = [SB+RF[R2]]                             GPO      6074
                               11202              BX2    X0*X2                                                   GPO      6075
          4402  54650                             SA6    A5                                                      GPO      6076
                     36723                        IX7    X2+X3       RF[R2] = R                                  GPO      6077
                          20744                   LX7    IH.RFP                                                  GPO      6078
                               54720              SA7    A2                                                      GPO      6079
                                                                                                                 GPO      6080
                                        *         ADVANCE TO NEXT INSTRUCTION                                    GPO      6081
                                                                                                                 GPO      6082
          4403  54542                    MPB10    SA5    A4+B2       R1 = DI + 2;  RW = [R1]                     GPO      6083
                     54452                        SA4    A5+B2       DI = R1 + 2                                 GPO      6084
                                                  LX4    58-D.TYP                                                GPO      6085
                          16641                   BX6    -X1+X4                                                  GPO      6086
                               11414              BX4    X1*X4                                                   GPO      6087
          4404  0306004422 +                      ZR     X6,MPB16    IF TYPE[DI] = IV                            GPO      6088
                          0325004374 +            PL     X5,MPB8     IF RW > 0                                   GPO      6089
                                                                                                                 GPO      6090
                                        *         ADJUST OPERAND R-NUMBERS OF INSTRUCTION FROM *MOD*             GPO      6091
                                                                                                                 GPO      6092
          4405  14555                             BX5    -X5         RW = -RW                                    GPO      6093
                     15250                        BX2    "RN"X5      R = RI[RW]                                  GPO      6094
                          26735                   UX7    B3,X5                                                   GPO      6095
                               66750              SB7    B5                                                      GPO      6096
          4406  20754                             LX7    -R1.RIL                                                 GPO      6097
                     0327004407 +                 PL     X7,MPB11    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6098
                               64700              SB7    A0                                                      GPO      6099
          4407  53227                    MPB11    SA2    B7+X2       RI[RW] = [B+R]                              GPO      6100
                     11605                        BX6    X0*X5                                                   GPO      6101
                          0314004415 +            NZ     X4,MPB14    IF TYPE[DI] " I                             GPO      6102
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   158
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MPB                 CODE
  
                                                                                                                 GPO      6103
          4410  15470                             BX4    "RN"X7                                                  GPO      6104
                     20754                        LX7    -R1.RIL                                                 GPO      6105
                          66750                   SB7    B5                                                      GPO      6106
                               27632              PX6    B3,X2                                                   GPO      6107
          4411  15570                             BX5    "RN"X7                                                  GPO      6108
                     0327004412 +                 PL     X7,MPB12    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6109
                               64700              SB7    A0                                                      GPO      6110
          4412  53247                    MPB12    SA2    B7+X4       RK[RW] = [B+RK[RW]]                         GPO      6111
                     20754                        LX7    -R1.RIL                                                 GPO      6112
                          66750                   SB7    B5                                                      GPO      6113
                               20220              LX2    R1.RKP                                                  GPO      6114
          4413  12626                             BX6    X2+X6                                                   GPO      6115
                     0327004414 +                 PL     X7,MPB13    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6116
                               64700              SB7    A0                                                      GPO      6117
          4414  53257                    MPB13    SA2    B7+X5       RJ[RW] = [B+RJ[RW]]                         GPO      6118
                     6100000000                   SB0    0                                                       GPO      6119
                               20240              LX2    R1.RJP                                                  GPO      6120
                                                                                                                 GPO      6121
          4415  54351                    MPB14    SA3    A5+B1       R2 = R1 + 1                                 GPO      6122
                     12626                        BX6    X2+X6                                                   GPO      6123
                          20330                   LX3    -IH.RFP                                                 GPO      6124
                               54650              SA6    A5          [R1] = RW                                   GPO      6125
          4416  15730                             BX7    "RN"X3                                                  GPO      6126
                     63470                        SB4    X7                                                      GPO      6127
                          20754                   LX7    -R1.RIL                                                 GPO      6128
                               11303              BX3    X0*X3                                                   GPO      6129
          4417  66750                             SB7    B5                                                      GPO      6130
                     0327004420 +                 PL     X7,MPB15    B = IF R < 100000B THEN MB; ELSE MSB        GPO      6131
                               64700              SB7    A0                                                      GPO      6132
          4420  56274                    MPB15    SA2    B7+B4       RF[R2] = [B+RF[R2]]                         GPO      6133
                     36623                        IX6    X2+X3                                                   GPO      6134
                          20644                   LX6    IH.RFP                                                  GPO      6135
                               54630              SA6    A3                                                      GPO      6136
          4421  0400004403 +                      EQ     MPB10                                                   GPO      6137
                                                                                                                 GPO      6138
          4422  0325004423 +             MPB16    PL     X5,MPB17    IF RW > 0                                   GPO      6139
                          14755                   BX7    -X5         [R1] = -RW                                  GPO      6140
                               54750              SA7    A5                                                      GPO      6141
                                                                                                                 GPO      6142
          4423  26635                    MPB17    UX6    B3,X5                                                   GPO      6143
                     0530004403 +                 NZ     B3,MPB10    IF OC[R1] " 0                               GPO      6144
                                                                                                                 GPO      6145
                               43700              MX7    0                                                       GPO      6146
          4424  7160000004                        SX6    4                                                       GPO      6147
                          5170000000 X            SA7    L.MLT       L.MLT = 0                                   GPO      6148
          4425  5160000000 X                      SA6    L.MOD       L.MOD = 4                                   GPO      6149
                          0400004315 +            EQ     MPB0                                                    GPO      6150
                                                                                                                 GPO      6151
          4426                     1     MPBA     BSS    1                                                       GPO      6152
          4427                     1     FIA      BSS    1           FIRST INSERT ADDRESS                        GPO      6153
          4430                     1     TIA      BSS    1           *TXT* INSERT ADDRESS ( O.TXT+OLD(L.TXT)     GPO      6154
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   159
        MPB - MERGE PROGRAM BLOCK AND MOD LIST                        MBT                 CODE
  
                                        **        MBT - MOVE BLOCK FROM *SEQ* TO *TXT*, CLEAR LINK WORDS.        GPO      6156
                                                                                                                 GPO      6157
          4431  0200404431 +             MBT      ROUTINE                                                        GPO      6158
          4432  5150000027 +                      SA5    O.SEQ                                                   GPO      6159
                          53251                   SA2    X5+B1       R2 = [O.SEQ+1]                              GPO      6160
                                                  LX2    -R2.TXTLP                                               GPO      6161
          4433  7212777773                        ALLOC  TXT,X2-4    ALLOC( TXT , TXTL[R2]-4 )                   GPO      6162
          4435  5110000027 +                      SA1    O.SEQ                                                   GPO      6163
                          6140000004              SB4    4                                                       GPO      6164
          4436  53510                             SA5    X1          R1 = [O.SEQ]                                GPO      6165
                     63230                        SB2    X3                                                      GPO      6166
                          63720                   SB7    X2          TI = [O.TXT]                                GPO      6167
                                                                                                                 GPO      6168
          4437  54451                    MBT2     SA4    A5+B1                                                   GPO      6169
                     54341                        SA3    A4+B1                                                   GPO      6170
                          10655                   BX6    X5                                                      GPO      6171
                               54554              SA5    A5+B4                                                   GPO      6172
          4440  22704                             LX7    X4                                                      GPO      6173
                     67224                        SB2    B2-B4       I = I - 4                                   GPO      6174
                          56670                   SA6    B7                                                      GPO      6175
                               66774              SB7    B7+B4                                                   GPO      6176
          4441  54761                             SA7    A6+B1                                                   GPO      6177
                     10633                        BX6    X3                                                      GPO      6178
                          54671                   SA6    A7+B1                                                   GPO      6179
                               43700              MX7    0                                                       GPO      6180
          4442  54761                             SA7    A6+B1                                                   GPO      6181
                     0520004437 +                 NZ     B2,MBT2     IF I " 0                                    GPO      6182
                                                                                                                 GPO      6183
          4443  0400004431 +                      EQ     MBT                                                     GPO      6184
                                                  QUAL                                                           GPO      6185
                                                                                                                 GPO      6186
                                                  ECHO   3,X=(EBV,FUD,MBT,MPB,MPR)                               CCG29      12
                                                  IF     DEF,/CODE/_X,2                                          CCG30       6
                                                  ENTRY  ;A#                                                     CCGNC     640
                                        ;A#       EQU    /CODE/;A                                                CCGNC     641
                                                                                                                 GPO      6190
          4451                                    END                                                            GPO      6191
  
                             62300B CM  STORAGE USED            14765 STATEMENTS     2111 SYMBOLS      000035 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           12.051 SECONDS        3102 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW$            0   EXTERNAL*      69/17     77/03    131/18    131/49    141/39    145/13
        AFB            55   PROGRAM*       15/07 L   19/47     23/44     24/08     24/23     25/02     25/20
                                           15/16     23/36     24/03     24/13     24/33     25/16
        AFT#            0   EXTERNAL*      19/35     21/52     23/30
        AN            107   CCGSCR         87/21 S   89/14     93/55     97/04     99/14    112/51
                                           88/04     90/20     94/12     97/52    107/35 S
        AP.USEP        72   GTX            60/24
        ATS$            0   EXTERNAL*      15/08     21/34     32/57     68/41    104/24    137/25    148/17
                                           19/36     27/24     39/06     77/05    107/19    142/10    154/34
                                           19/38     29/53     42/35     83/12    123/10    142/50    159/07
                                           20/33     32/33     44/22     86/17    129/22    145/06
                                           21/22     32/35     47/18     86/30    131/13    148/16
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   160
        SYMBOLIC REFERENCE TABLE. 
  
        AUT#            0   EXTERNAL*      19/43     23/12
        BA.BIP         44                  16/42     16/45     39/21     45/23     48/27     48/43     48/49     49/18
        BA.BLKP        73                  16/45
        BA.FWAP         0                  16/55     45/23
        BA.HBBL         2                  39/20
        BA.HBBP        71                  39/22
        BA.LENP        22                  16/55     48/25     48/27     48/49     49/38     50/03
        BBV            45   PROGRAM*       27/17 S   43/10 S   43/21 S   58/09     62/42
        BH.BSTL        22                  44/41
        BH.BSTP        22                  44/41
        BH.PRIP        72                  44/39     44/41
        BI.BVIL        22   GTX            30/05     32/38     39/35
        BI.BVIP         0   GTX            30/05     32/38
        BI.CBP         72   GTX            30/34     30/37     31/40     45/35     46/49
        BI.FJP         70   GTX            30/43     30/46     44/18     48/37     68/13     69/06
        BI.FTHP        65   GTX            44/03     44/15     44/18
        BI.HNP         66   GTX            37/19     83/40
        BI.ILP         71   GTX            19/52     23/37     41/29     46/38     48/45     48/51     68/22
        BI.OLNL        17   GTX            34/05     45/26
        BI.OLNP        46   GTX            34/06     34/13     45/28     45/31
        BI.PBNP        22   GTX            30/37     30/46     31/04     39/33     49/15     66/33    102/46
        BI.PIIL        21   GTX            76/11
        BI.PIIP        44   GTX            76/10
        BI.RBP         73   GTX            30/43     46/38     48/51     66/33     68/22    102/46
                                           44/03     48/37     49/15     68/13     69/06
        BN             31   PROGRAM*       16/46 S   34/56 S   43/18 S   62/40    102/04    130/19 S
        BN#            31   PROGRAM*
        BSI            32   PROGRAM*       16/41 S   21/07 S   45/09 S   49/51 S   50/34 S   70/26 S
                                           17/08     40/30 S   45/11     49/57     67/28     86/07 S
                                           20/54 S   43/09 S   48/18 S   50/20     68/50 S
        BSIS          106   CCGSCR         68/05 S   68/47     69/05     70/23
        BSI#           32   PROGRAM*
        BSW            33   PROGRAM*       16/44 S   17/09    102/12 S  104/26    129/14    148/27
                                           17/03     71/17    104/09    110/10    141/33
        BSW#           33   PROGRAM*
        BS.BMP         57                  29/09
        BS.IICL        22                  28/47
        BS.IICP         0                  28/47
        BS.NISL        12                  29/09
        BS.NISP        60                  29/09
        BS.NTETL       13                  29/09    148/08
        BS.NTETP       44                  29/09    129/17    148/09
        BS.STCL        22                  28/30     28/57
        BS.STCP        22                  28/30     28/57    102/07    104/11    104/15    104/34    140/10    148/30
        BVI           103   CCGSCR
        BVL             2   BVINFO         56/08     66/36     76/09     81/07     87/24
                                           62/49     71/21     80/06     83/09
        BVL#            2   BVINFO
        B1=1            0 
        CAS           120   CCGSCR        131/27 S  131/52    132/37 S  133/25    138/35    142/11    142/25 S
        CCG.SCR         0   CCGSCR
        CC$CBN          2   PROGRAM*       23/41     24/29     25/15     30/07
        CC$LNL          0   EXTERNAL*      20/56
        CC$PC           0   EXTERNAL*      19/29     21/17 S   32/31 S
        CG$GPO        265   PROGRAM*       23/04 E   23/04 L   35/09
        CMO             0   EXTERNAL*      90/28     90/31     90/35    112/54    112/57    113/04
        CMR#            0   EXTERNAL*      19/42
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   161
        SYMBOLIC REFERENCE TABLE. 
  
        CNI           121   CCGSCR        132/24 S  132/46    133/37 S
        COL           152   PROGRAM*       19/23 L   21/56
        COLA          150   PROGRAM*       19/20 L
        COL#          152   PROGRAM*       19/23 E   19/23 L
        CUC#            0   EXTERNAL*      75/11
        CWS#            0   EXTERNAL*      25/26
        CXB#            0   EXTERNAL*      47/47
        DGS#            0   EXTERNAL*      23/16
        DMASK           0   PROGRAM*      123/15    138/25    155/19
        DMASK#          0   PROGRAM*
        DVA             3   GPOGRA         20/13     20/39     25/06 S   40/10     43/48     81/12    102/20
        D.BML           1   GTX            78/09
        D.BMP          52   GTX            78/09
        D.FPL           1   GTX            55/15
        D.FPP          25   GTX            18/20     53/25     53/36     55/15
        D.INCP         22   GTX            17/48    105/13    107/26    108/49    118/34    118/39    124/01    124/05
        D.LDL           1   GTX            78/09
        D.LDP          43   GTX            58/45     59/06     72/32     78/09     79/09    117/12    117/14    138/19
        D.LSJL          3   GTX            58/13
        D.LSJP         41   GTX            58/20     58/30     60/03     60/46     60/55     61/23     61/39
        D.L2L           1   GTX            55/15
        D.L2P          44   GTX            18/24     53/25     53/27     55/15     72/18     72/20
        D.PIL           1   GTX           153/16
        D.PIP          36   GTX           153/16
        D.PRSP         46   GTX           120/32    124/12    124/30
        D.PSP          47   GTX            53/27     72/30     72/32     73/06    120/23
        D.RFP          23   GTX            74/32     89/02    108/44    119/47    127/07    127/09
        D.STP          42   GTX            59/06     73/15
        D.STRSL         2   GTX           115/34    120/04    153/16
        D.STRSP        46   GTX           115/35    120/03    120/07    153/16
        D.TYIOL         2   GTX           121/53
        D.TYIOP        50   GTX           121/54
        D.TYL           2   GTX           127/26    145/31    156/51
        D.TYP          72   GTX            59/33    117/14    121/35    121/54    124/30
        D.USESL        11   GTX            72/10    119/22
        D.USESP         0   GTX           121/11
        D.USIP         33   GTX            88/05     90/40    113/12
        D.XMTL          1   GTX            55/15
        D.XMTP         40   GTX            55/15     72/20    120/25
        D.ZPP          32   GTX            92/24    117/12    120/23    124/05    124/42
                                          117/10    120/07    120/25    124/12
        D.^DP          51   GTX            72/12     72/30     73/15    121/35    128/45    156/30
        EBV#         1324   PROGRAM*      159/35 E  159/35 D
        EIT            41   PROGRAM*       36/11 S   67/30     81/46
        EI.NPP         36                  36/18     82/24
        EI.PRIP        52                  67/37
        EI.SUIP        14                  67/43     82/06
        EMF            13   GPOGRA         29/23 S   47/13 S   50/36     50/47
        EPSI           33   GPOGRA         20/44 S   84/19
        ESRA            0   EXTERNAL*      50/37
        ESRA#           0   EXTERNAL* 
        ESR#            0   EXTERNAL*      21/05     50/49
        ET.JPP         73                  82/38
        ET.PREDP       36                  67/41
        ET.SUCCP        0                  82/38
        EV            124   CCGSCR        140/28 S  142/19    142/51
        E.ALLPP        71                  84/25
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   162
        SYMBOLIC REFERENCE TABLE. 
  
        E.BIL          17                  83/29     84/01
        E.BIP           0 
        E.JPP          72                  81/53     82/38     84/13
        E.LINKL        22 
        E.LINKP        17                  82/33     84/30
        E.NPREDL       11                  82/18     83/35
        E.NPREDP       60                  82/19     82/30     82/33     82/41     83/36
        E.PREDL        17 
        E.PREDP        41                  82/30
        E.SCRP         73                  81/53     82/19
        FBV#            0   EXTERNAL*      24/49
        FI.FTL          6   GTX            59/46     73/31     97/10
        FI.FTP         66   GTX            59/47     73/32     97/11
        FI.INDXP       14   GTX            59/36     59/41
        FI.REGPL       30   GTX            59/42
        FI.REGPP       36   GTX            59/41     59/47
        FP.CAL          6   GTX            54/57
        FP.CAP         62   GTX            54/45     54/47     54/56
        FP.LCP         72   GTX            54/26     54/44
        FTH            54   PROGRAM*       41/06 S   43/55
        FUD#         1355   PROGRAM*       20/05    159/35 E  159/35 D
        F$BRDGE         0   EXTERNAL* 
        F$CFA           0   EXTERNAL*      23/14
        F$RDT           0   EXTERNAL* 
        F$UDT           0   EXTERNAL*      23/10
        F.MEM           0   EXTERNAL*      19/12 X   19/13
        F.RDT           0   EXTERNAL*      17/30     18/07     50/10    123/27    137/41
                                           17/42     27/25     74/38    127/31    152/06
        GBD#            0   EXTERNAL*      38/30
        GB.ILIP         0                  36/27
        GB.NLPP        44                  36/27
        GIC             6   PROGRAM*       38/18
        GIC#            6   PROGRAM*
        GMB#            0   EXTERNAL*      34/52
        GP             40   PROGRAM*       23/25 S   36/08     38/10     38/26
        GRA#            0   EXTERNAL*      29/14
        HBI            47   PROGRAM*       29/32 S   40/48 S   42/25     43/47     45/25     80/05
                                           39/19 S   41/24     43/13     44/12     53/13     81/06
        HBI#           47   PROGRAM*
        HC.ID           2   GTX            50/45 F   53/01 F   88/38 F
        HO$CSN          0   EXTERNAL*      40/52 S
        HO$ER           0   EXTERNAL*      19/26     21/15 S
        HO$LCM          0   EXTERNAL*     149/21
        HO$OPT          0   EXTERNAL*      24/44     25/10     53/08    149/23
        HO$TB           0   EXTERNAL*      73/29
        HO$UO           0   EXTERNAL*      89/17
        H.HBIL         22 
        H.HBIP         22                  83/56     84/05
        H.HNIL         22 
        H.HNIP          0 
        H.NIPL         22 
        H.NIPP         44                  84/05
        IA.CAL         22                 133/02
        IA.CAP         22                 132/35    133/01    138/37    142/22
        IA.NWDL        14 
        IA.NWDP        60 
        IA.UDIL        22 
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   163
        SYMBOLIC REFERENCE TABLE. 
  
        IA.UDIP         0 
        IBA            43   PROGRAM*       29/36     37/49     40/42     47/19     81/23
                                           36/26 S   39/11     46/13     47/51
        IB.ILDL        22 
        IB.ILDP         0 
        IB.NLDL        14 
        IB.NLDP        60 
        IC            115   CCGSCR        123/08 S  128/32
        IH.CAIHL       44   GTX           117/19    118/22    143/07    150/06
        IH.CAL         22   GTX           105/23    116/32    116/34    117/34    146/05
        IH.CAP         22   GTX            55/02     92/40    112/17    126/48    143/54    149/15    149/57
                                           74/10     95/12    116/16    129/36    145/16    149/18    151/05
                                           74/16    105/24    116/31    131/05    147/02    149/26
                                           74/21    106/23    116/37    131/25    149/02    149/52
        IH.HL          17   GTX           100/51
        IH.IHL         22   GTX            55/05
        IH.IHP          0   GTX            74/01     74/10     74/13     74/21     91/07    100/47    115/23
        IH.IP          17   GTX           100/49
        IH.RFP         44   GTX            53/55     74/16     94/39    115/23    124/34    138/21    157/27
                                           54/02     88/54     99/08    116/37    128/15    143/11    157/33
                                           73/53     89/24    100/47    117/51    128/22    144/52    158/22
                                           74/01     90/01    105/53    121/36    137/04    149/28    158/33
                                           74/13     91/07    111/23    123/31    138/14    150/09
        IIL           113   CCGSCR        104/08    104/31 S
        IJP           111   CCGSCR         87/43 S   93/50 S  102/55
        IMPB#           0   EXTERNAL*      23/08
        IMPC#           0   EXTERNAL*      26/12
        IMPD#           0   EXTERNAL*      19/57
        IM.APLNL        2                  87/33     87/35    107/34
        IM.APP         72                  87/20     94/14
        IM.BIL         22                  39/27     47/17
        IM.BIP         44                  36/44     39/30     39/46     46/34     67/57     76/08     82/53
                                           37/10     39/33     46/20     47/24     71/20     82/51     87/23
        IM.BNP          0                  67/57     81/40     82/48     82/53
        IM.HNP         66                  81/40     82/48     82/51
        IM.LNP         71                  94/14
        IM.SCRP        73                  37/10     47/10
        IP.FTP         72                  41/04
        IP.GLP         73                  41/04
        IP.NODEL       22                  36/46
        IP.PBP         22                  37/16     39/16
        ISC=            0   EXTERNAL*      19/37     23/55     40/11
        ISV           116   CCGSCR        125/20 S  125/34
        ITB           127   CCGSCR        131/20 S  131/51    140/25 S  141/27
        ITL            14   GPOGRA         40/20 S   52/05
        IT.             0   EXTERNAL*      88/39    126/44    143/53    145/11    148/21
        I.AIPP         66                 108/14    151/07
        I.AP       200000   GTX           100/46 F
        I.COSTL        11                 107/29    108/26
        I.COSTP        55                 107/31    108/26    112/29    114/36    119/48
        I.C1P          55                 108/28
        I.GL       100000   GTX            41/16     44/26     68/30
        I.HBPL         22                 139/07
        I.HBPP          0                 139/07    148/39
        I.IAIPL         2 
        I.IAIPP        67                 116/48
        I.IAP          70                  93/01    100/15    100/18    115/06    115/10    115/24    117/41
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   164
        SYMBOLIC REFERENCE TABLE. 
  
        I.IICL         22                 108/27
        I.IICP         22                  88/15     97/22    108/27    110/47    120/50    121/11    125/22
                                           96/34     97/30    110/13    119/37    120/54    123/52    125/53
                                           96/50     97/46    110/35    120/46    121/08    124/51    128/44
        I.INVP         73                 100/15    115/06    119/48    120/46    127/07    136/02
        I.IPP          67                 108/26    108/29    112/10    114/13    115/46
                                          108/28    111/10    112/44    115/44
        I.LDIL         22                 108/26    108/27    108/29
        I.LDIP          0                 100/18    107/48    108/26    108/27    108/29
        I.MP           72                 134/44    135/35    135/54    136/36    136/45    137/08
                                          134/47    135/51    136/02    136/42    136/50    139/07
        I.STCL         22 
        I.STCP         22                 100/29    104/44    104/54    108/07    141/47    141/51    148/39
        I.TIP          71                 121/19    124/03    124/08    124/40    124/47    125/44
        I.USESL        11 
        I.USESP        44                 119/35    119/37    120/54    121/11    121/29
        J             123   CCGSCR        140/31 S  141/19
        LCV            21   GPOGRA        118/31 S  131/30
        LC.GLNP        22   GTX            41/38
        LC.NEXTP       44   GTX            42/04     42/09
        LEA             7   GPOGRA         43/31     80/07     99/27     99/56
        LGL            16   GPOGRA         40/23 S   41/21 S   42/29     93/17     93/36     94/13
        LIH            25   GPOGRA         40/49 S   42/41 S   93/11     93/30    116/09
        LM              0   EXTERNAL*      15/11 S   15/26     21/42 S
        LM#             0   EXTERNAL* 
        LTT            30   GPOGRA        118/33 S
        LUL            23   GPOGRA        117/42 S
        LUV             4   GPOGRA         66/37
        LXA             6   GPOGRA         83/16
        L$BIT          16   PROGRAM*
        L$BLK           0   EXTERNAL* 
        L$BST           0   EXTERNAL* 
        L$BVT          20   PROGRAM*
        L$CFT           0   EXTERNAL* 
        L$FPI           0   EXTERNAL*      53/10
        L$GLT           0   EXTERNAL* 
        L$GST           0   EXTERNAL* 
        L$IIT           0   EXTERNAL* 
        L$MLT           0   EXTERNAL* 
        L$MOD           0   EXTERNAL* 
        L$PIT           0   EXTERNAL* 
        L$PSI           0   EXTERNAL* 
        L$RND           0   EXTERNAL* 
        L$RXI           0   EXTERNAL* 
        L$SEQ          30   PROGRAM*
        L$TET           0   EXTERNAL* 
        L$TXT           0   EXTERNAL* 
        L$UDI           0   EXTERNAL* 
        L.BIT          16   PROGRAM*       23/50 S   32/41
        L.BLK           0   EXTERNAL*      19/45 S   21/46 S   35/06 S
        L.BST           0   EXTERNAL*      21/48 S   23/49     23/56 S   40/05 S   43/04     45/06 S
        L.BVT          20   PROGRAM*       24/40 S   43/30     62/50
        L.CFT           0   EXTERNAL*      34/35 S
        L.ELT          26   PROGRAM*       68/32
        L.ELT#         26   PROGRAM*
        L.GLT           0   EXTERNAL*      27/31     29/50
        L.GST           0   EXTERNAL*      23/20
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   165
        SYMBOLIC REFERENCE TABLE. 
  
        L.HB           34   PROGRAM*       86/14     86/46 S
        L.HB#          34   PROGRAM*
        L.HNT          37   PROGRAM*       37/31 S   83/46
        L.IIT           0   EXTERNAL*      21/49 S   28/31     43/08 S  104/14 S  140/19    141/26
        L.LCT          24   PROGRAM*       24/01     41/40
        L.LCT#         24   PROGRAM*
        L.MLT           0   EXTERNAL*      50/50    152/46 S  154/49    158/46 S
        L.MOD           0   EXTERNAL*      29/01     68/56     86/15     86/22     86/26 S  152/43 S  154/30    158/47 S
        L.PIT           0   EXTERNAL*      34/51 S   35/04 S
        L.PSI           0   EXTERNAL* 
        L.PTXT         22   PROGRAM*
        L.PTXT#        22   PROGRAM*
        L.RND           0   EXTERNAL*     107/24 S  133/49 S  134/15
        L.RXI           0   EXTERNAL*      24/36
        L.SBV          21   PROGRAM*       24/57 S   40/09
        L.SEQ          30   PROGRAM*       16/57 S   21/21     21/33     67/11    107/17    154/31
        L.TET           0   EXTERNAL*      21/55 S   32/36     35/07 S   40/17     52/25    123/13    129/10    143/51
        L.TXT           0   EXTERNAL*      15/30 S   21/11     35/05 S   70/30 S  127/25 S  144/18
                                           15/38     21/47 S   49/30 S   86/12 S  130/25    145/21 S
                                           15/48 S   29/08 S   70/27 S   86/41    133/47 S  156/48 S
        L.UDI           0   EXTERNAL*      24/12     24/19 S
        L.UDT           1   GPOGRA         24/16 S
        MAXW           34   GPOGRA         47/38 S   51/03
        MBT#         4431   PROGRAM*      159/35 E  159/35 D
        MCG#            0   EXTERNAL*      21/28
        MDA            10   GPOGRA         81/13     83/17
        MINC          114   CCGSCR         28/46 S  119/18
        MIP.JT       4052   PROGRAM*      108/24    147/33 D
        ML.IIP         44   GTX            69/12     76/53    148/41    151/18    151/22    151/40    152/16    155/02
        ML.MTIP         0   GTX           151/22    151/24    156/13
        ML.NIP         22   GTX            69/13     77/01     77/04    150/37    151/24    151/45    152/53    156/13
        MOREFL          0   EXTERNAL*      25/53
        MOREFL#         0   EXTERNAL* 
        MPB#         4321   PROGRAM*      159/35 E  159/35 D
        MPR#         1260   PROGRAM*       53/31    159/35 E  159/35 D
        MRA            15   GPOGRA         28/38     40/14 S   40/40 S   59/38     66/26     98/05 S
        MRA.X          51   PROGRAM*       40/15 S   40/41 S   66/30     98/03
        MVE=            0   EXTERNAL*      20/42     21/39     23/54     24/43     68/44     86/24
                                           21/25     23/26     24/17     43/53     86/21    145/09
        MX.BLN          0   EXTERNAL*      26/10 S
        MX.BLN#         0   EXTERNAL* 
        M.BBL          12   PROGRAM*       25/37
        M.BBL#         12   PROGRAM*
        M.CHAR          6   GTX            54/10
        M.DBL           4   GTX            54/12
        M.EBL          13   PROGRAM*       25/36 S   48/15
        M.EBL#         13   PROGRAM*
        M.GRL           4   PROGRAM*
        M.GRL#          4   PROGRAM*
        M.LP           10   PROGRAM*       25/18
        M.LP#          10   PROGRAM*
        M.PL           12   GPOGRA         32/32
        NBIP           46   PROGRAM*       29/33 S   40/25 S  133/38 S
        NBIP#          46   PROGRAM*
        NN             44   PROGRAM*       36/31 S   39/04
        NPB             3   PROGRAM*       30/15     32/42
        NPB#            3   PROGRAM*
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   166
        SYMBOLIC REFERENCE TABLE. 
  
        NTP           100   CCGSCR         28/50     28/54     40/22 S  129/27    130/11 S
        N$IT            0   EXTERNAL*      34/32 S
        N$LC            0   EXTERNAL*      54/42
        N$SEP           0   EXTERNAL*      54/34
        N.CLC          21                  40/16
        N.DG            5   PROGRAM*
        N.DG#           5   PROGRAM*
        N.EBB          35   GPOGRA         47/39 S   51/04
        N.ENL          32   GPOGRA         83/02 S
        N.FTH          11   PROGRAM*       24/06
        N.FTH#         11   PROGRAM*
        N.GL0           1   PROGRAM*       27/33 S   29/49     41/11     41/37     44/23
        N.GT           14   PROGRAM*       21/50 S   21/54 S   52/06
        N.GT#          14   PROGRAM*
        N.HB           17   GPOGRA         40/16 S   66/17
        N.LJ           27   GPOGRA         93/16     93/35     94/08    116/08
        N.LP           42   PROGRAM*       29/17     36/29 S
        N.SBV           7                  24/54
        N.VAR           1   BVINFO         24/21     55/30
        N.VAR#          1   BVINFO
        OC.BOS          1   GTX            27/25
        OC.DEF          5   GTX            77/21     97/35     97/39    124/10    125/27    125/40
        OC.EOQ          0   GTX            70/20
        OC.EOS          2   GTX            50/09
        OC.FMA         43   GTX            92/29    106/07
        OC.IA          36   GTX           105/40    136/25    149/43    153/08    153/10    153/12
        OC.IM         102   GTX           135/40
        OC.IS          37   GTX            92/19    116/41    149/45    153/09    153/11    153/13
        OC.JIN         71   GTX            73/26
        OC.KLS         20   GTX           112/15
        OC.LAB          6   GTX            42/37     76/50     87/49
        OC.LD          50   GTX            88/37     92/49    118/13    144/42    153/09
                                           89/21    105/47    143/09    153/08
        OC.LDC        103   GTX            92/36    106/19
        OC.LDV        104   GTX           144/47    153/12    153/13
        OC.NOP         46   GTX            74/38     74/39
        OC.RJ3         72   GTX            73/18     73/21
        OC.RJ6         73   GTX            73/21     79/15
        OC.RS           4   GTX           128/39
        OC.S           55   GTX           106/03    117/29    143/01    144/33    149/40    153/07
        OC.SA          60   GTX            77/32    125/50
        OC.ST          51   GTX            77/41
        OC.STT         52   GTX            53/16    105/19    116/26    137/11    153/07
        OC.TLD         76   GTX            88/44    148/57    151/55    153/10    153/11
        OC.TST         77   GTX           126/42    130/27    143/50    150/29
        OC.UJP         74   GTX            44/25
        OC.UP          26   GTX           136/10
        OC.XMT         10   GTX            77/30    123/28    125/47    136/22    142/54    144/55
                                          123/27    125/12    135/11    137/14    143/47    152/28
        OC.XMTC        14   GTX           136/28    142/37    143/14    144/57
        O$APT           0   EXTERNAL*     100/50
        O$BIT          15   PROGRAM*
        O$BLK           0   EXTERNAL* 
        O$BST           0   EXTERNAL* 
        O$BVT          17   PROGRAM*
        O$CFT           0   EXTERNAL* 
        O$CVT           0   EXTERNAL*      92/39    106/21
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   167
        SYMBOLIC REFERENCE TABLE. 
  
        O$FPI           0   EXTERNAL*      54/20
        O$GLT           0   EXTERNAL* 
        O$GST           0   EXTERNAL* 
        O$IIT           0   EXTERNAL* 
        O$MLT           0   EXTERNAL* 
        O$MOD           0   EXTERNAL* 
        O$PIT           0   EXTERNAL* 
        O$PSI           0   EXTERNAL* 
        O$RND           0   EXTERNAL* 
        O$RXI           0   EXTERNAL* 
        O$SEQ          27   PROGRAM*
        O$SYM           0   EXTERNAL* 
        O$TET           0   EXTERNAL* 
        O$TXT           0   EXTERNAL* 
        O$UDI           0   EXTERNAL* 
        O$UDT           0   GPOGRA
        O.BIT          15   PROGRAM*       23/45 S   33/36     41/25     46/14     66/36     76/09     81/47    102/39
                                           30/08     36/41     43/46     48/14     67/18     80/06     83/15
                                           32/40     39/12     45/13     62/41     71/21     81/07     87/24
        O.BLK           0   EXTERNAL*      21/43 S
        O.BST           0   EXTERNAL*      16/30     17/07     23/51     45/12     48/13     49/56     67/27
        O.BTT          35   PROGRAM*       25/17 S   36/39     81/26
        O.BVT          17   PROGRAM*       20/11     28/17     62/51     64/40     69/25     76/09     81/07     87/24
                                           24/34 S   43/29     63/45     66/36     71/21     80/06     84/29    102/48
        O.CFT           0   EXTERNAL* 
        O.ELT          25   PROGRAM*       24/09 S   68/26
        O.ELT#         25   PROGRAM*
        O.ENL          31   GPOGRA         83/01 S   83/18
        O.GLT           0   EXTERNAL* 
        O.GST           0   EXTERNAL*      23/21
        O.HNT          36   PROGRAM*       25/21 S   36/40     83/47
        O.IIT           0   EXTERNAL*     132/16    140/18    141/15    141/16    143/19    148/31
        O.IST           7   PROGRAM*       23/22
        O.IST#          7   PROGRAM*
        O.LCT          23   PROGRAM*       24/04 S   41/41
        O.LCT#         23   PROGRAM*
        O.MLT           0   EXTERNAL*     148/18    151/31    152/40    154/46
        O.MOD           0   EXTERNAL*      70/13     86/23    154/39    156/46
        O.MVL           2   GPOGRA         24/24 S   55/46     58/16     63/09     64/08
        O.PIT           0   EXTERNAL*      34/42     34/53
        O.PSI           0   EXTERNAL*      76/17     77/06
        O.RND           0   EXTERNAL*     110/04    134/14    137/27
        O.RXI           0   EXTERNAL*      24/37
        O.SEQ          27   PROGRAM*       16/16     21/37     50/08     68/25     76/45    123/11    154/38
                                           16/54 S   40/33     53/12     68/43     86/20    141/17    159/04
                                           17/05     43/14     66/16     68/55    104/25    141/40    159/08
                                           21/24     44/36     66/50     71/18    107/21    148/19
        O.SYM           0   EXTERNAL*      18/12     41/46     54/01
        O.TET           0   EXTERNAL*      33/01     52/07    130/39    132/15    149/14    150/50
                                           33/37     95/06    131/54    141/03    149/51
        O.TXT           0   EXTERNAL*      15/28 S   21/44 S   50/27     78/36    129/23    130/26    131/41    144/21
                                           15/37     42/28     70/12     86/44    130/17    131/22    137/26    145/07
        O.UDB           0   EXTERNAL*      19/13 D   19/37 S   19/48 S   19/54 S   20/10     21/41
        O.UDI           0   EXTERNAL*      24/14
        O.UDT           0   GPOGRA         24/15 S   34/41     56/09     72/05     78/35    104/27
                                           31/25     55/29     58/06     76/18     87/28    107/20
        PCC            76   PROGRAM*       16/20 L   16/35
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   168
        SYMBOLIC REFERENCE TABLE. 
  
        PCCA           74   PROGRAM*       16/16 L   16/21     16/34
        PCC1          103   PROGRAM*       16/30 L   17/16
        PCC2          107   PROGRAM*       16/36     16/40 L
        PCC3          114   PROGRAM*       16/47     16/52 L
        PCC4          116   PROGRAM*       16/50     17/03 L
        PCC5          117   PROGRAM*       16/25 S   17/05 L
        PCC6          123   PROGRAM*       16/38     17/15 L
        PCC#           76   PROGRAM*       16/20 E   20/05     28/10     28/25     28/36     28/57     47/41     47/47
                                           16/20 L   20/46     28/21     28/30     28/47     29/09     47/43
        PI            125   CCGSCR        140/46 S  141/18    143/20
        PIC           101   CCGSCR         28/33 S  132/17    140/32
        PI.CAL         22 
        PI.CAP         22                 133/26
        PI.CNL         22 
        PI.CNP         44                 133/31
        PI.LFL         22 
        PI.LFP          0 
        PI.MIPP        73                 132/44
        PL             36   GPOGRA
        PS.CAIHL       44                  77/33     77/38
        PS.CAIHP        0 
        PS.REGL         6                  77/15
        PS.REGP        66                  77/18
        PS.UDIL        22 
        PS.UDIP        44                  76/31     77/40    117/23    118/27    131/34
        PUNT            0   EXTERNAL*      25/57
        PUNT#           0   EXTERNAL* 
        RBS#            0   EXTERNAL*      45/38     50/19     68/46
        RCV             3   BVINFO         28/15
        RIO#            0   EXTERNAL*      51/02
        RI.LENP        47                  34/46     34/50     38/27     38/29     39/48
        RN.MASK    600001   GTX            17/04     53/14     71/19    123/20    130/20    156/47
        RTB#            0   EXTERNAL*      16/49     21/08     43/12     50/07     68/51     86/13
                                           20/55     40/31     44/34     50/44     77/54
        R1.H2L         14   GTX           130/35
        R1.H2P         22   GTX            87/35    107/34    130/36
        R1.INL         22   GTX           106/04
        R1.INP         36   GTX            40/50     73/40     92/31    105/51    111/21    138/34    143/11    146/49
                                           58/47     77/43     92/50    106/05    117/20    138/42    144/35    149/38
                                           59/08     78/50     99/06    108/03    117/30    140/29    144/43    150/09
                                           72/41     88/52    105/01    108/37    118/12    143/02    146/44
        R1.RIL         20   GTX           122/06    157/52    158/03    158/10    158/26
        R1.RJP         40   GTX            77/28     92/04    113/19    117/56    126/34    137/54    145/47
                                           89/33    105/31    114/05    118/04    127/52    137/57    150/21
                                           89/35    105/38    114/07    123/36    128/02    138/04    152/27
                                           90/11    112/04    116/52    123/41    135/23    143/45    157/14
                                           90/13    112/37    116/56    123/44    136/30    144/11    157/19
                                           92/02    112/39    117/04    124/31    136/34    145/45    158/18
        R1.RKP         20   GTX            89/35     92/04    114/07    118/04    128/09    137/57    150/23    158/12
                                           89/47    105/38    116/56    123/41    135/21    138/06    157/19
                                           90/13    112/39    117/04    128/02    135/23    145/47    157/25
        R1.SOP         20   GTX            77/18     96/06     96/20    120/18    124/20    128/40
                                           77/24     96/19     96/24    120/39    125/48
        R2.LONGP       72   GTX            40/35
        R2.MRAP        22                  66/27
        R2.TXTLL       22                  15/40
        R2.UXRP        73                  66/27
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   169
        SYMBOLIC REFERENCE TABLE. 
  
        SC            122   CCGSCR        107/54    108/54 S  140/13 S  141/45    148/42 S  150/41
        SERF          147   PROGRAM*       19/16 L   21/13
        SHL#            0   EXTERNAL*      33/28
        SIE#            0   EXTERNAL*     144/16
        SII           131   PROGRAM*       17/41 L   17/53    149/31    150/26    150/31
        SMI           136   PROGRAM*       18/06 L   18/31     77/47    143/18    150/14
        SO.INVCP       11   GTX            96/20
        SO.LKL          2   GTX            96/05    128/36
        SO.LKP          6   GTX            96/06     96/19    120/39    124/20    128/40
        SO.RTL          3   GTX            96/23
        SO.RTP          3   GTX            77/24     96/24
        SPC           146   PROGRAM*       19/15 L   19/31 S   21/10
        SQZB#           0   EXTERNAL*      50/35     86/40    154/17
        SRI           124   PROGRAM*       17/29 L   44/29     70/22     86/35    144/02    149/42
                                           17/39     44/32     77/25    143/49    144/14    152/23
                                           42/43     70/19     77/35    143/56    149/05    152/31
        SRI#          124   PROGRAM*       17/29 E   17/29 L
        STLDS           0   EXTERNAL*      78/30
        STLDS#          0   EXTERNAL* 
        STO            62   PROGRAM*       15/25 L   15/31     23/11     23/15     23/28
        STP            37   GPOGRA        131/38 S
        SUVA            0   EXTERNAL*      78/17 S   78/28 S
        SUVA#           0   EXTERNAL* 
        SVA            11   GPOGRA         71/33     78/12     78/33
        S$IT            0   EXTERNAL* 
        S$LC            0   EXTERNAL*      55/04
        TBB           117   CCGSCR        123/21 S  127/27
        TEST            0   GTX            26/14 F
        TSC           121   CCGSCR        131/11 S  131/17    131/40    132/09
        TTI           102   CCGSCR         40/21 S  150/49
        TYIOM           0   EXTERNAL*     121/56
        TYIOM#          0   EXTERNAL* 
        T.BIP          22   GTX           126/56    151/02
        T.BIPP         66   GTX           132/40    132/44
        T.CAL          22   GTX            33/35     52/35     52/37    129/26
        T.CALP         70   GTX            52/17
        T.CAP           0   GTX           151/02
        T.EQVP         72   GTX            33/11     52/44
        T.FAP          71   GTX            33/41
        T.HBNL         22   GTX            33/03
        T.HBNP         44   GTX            33/05     33/44
        T.IPFL         23   GTX            52/32    141/04
        T.IPFP         44   GTX            52/34    141/06
        T.ITIP         44   GTX           132/02
        T.REGL         22   GTX            52/14
        T.REGP         22   GTX            52/15
        T.RFP          67   GTX           127/09    149/19
        UBD           110   CCGSCR         87/26 S   99/26    102/18
        UD.BMIP        24                  62/27
        UD.CBL          2                  61/32
        UD.CBP         22                  59/18     59/22     60/33     60/37     61/11     61/14     61/37
        UD.CMP         23                  57/28
        UD.CRP         22                  57/27     58/57     59/28     60/41     61/16
                                           58/57     59/28     60/41     61/16     61/37
        UD.DBUP        71                  59/24     60/30     63/30     63/35     65/17     65/21
        UD.DEFBL        2                  59/12
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   170
        SYMBOLIC REFERENCE TABLE. 
  
        UD.DEFP        72                  57/25     57/27     57/29     63/30     65/17
                                           57/26     57/28     63/26     65/13
        UD.DEFRP       73                  57/24     57/25     57/26     89/12    101/04
        UD.ECLP         0                  58/57     59/28     60/41     61/16
        UD.ISTP        66                  57/25     57/26     57/29     89/12
        UD.MVL          3                  20/02     27/18     43/22     58/57     60/41
                                           20/03     27/19     43/23     59/28     61/16
        UD.MVP         70                  20/03     43/23     58/57     60/03     60/46     61/16     61/39
                                           27/19     58/30     59/28     60/41     60/55     61/23
        UD.RFP         54                  55/41     89/04    108/39
        UD.SMSL         2                  57/24
        UD.SMSP        55                  57/24
        UD.STCL        11                  99/20    101/04
        UD.STCP        55                  29/30     43/15     57/21     59/16     59/24     99/21    101/04
        UD.USEP        70                  57/26     58/57     59/26     60/15     60/26     60/39     61/14     63/35
                                           58/51     59/22     59/28     60/22     60/33     60/41     61/16     65/21
        UD.^RDP        67                  57/24     57/26     92/53    100/39    105/03    118/16
                                           57/25     57/29    100/13    101/04    111/26
        UIC           112   CCGSCR         88/09 S
        UVA             5   GPOGRA         99/30
        UXR            52   PROGRAM*       28/11     40/24 S   55/42     58/21 S   60/52 S   63/43     64/39     66/24 S
        VI2           104   CCGSCR         68/16 S   69/23     76/20 S   77/51     78/15 S   78/29
        VL              0   BVINFO         20/12     24/53     43/28     78/13     99/48
                                           24/30     25/03     69/24     78/34    102/19
        WA.LCOL        14   GTX            41/54
        WB.ARYP        12   GTX            54/15     54/17
        WB.DEFP         7   GTX            54/37
        WB.FPOL        11   GTX            54/18
        WB.FPOP        41   GTX            54/21     54/37
        WB.FPP         20   GTX            18/17
        WB.LCP         30   GTX            41/52     41/56
        WB.LOCFP       22   GTX            54/17     54/21
        WB.MODEL        3   GTX            54/07
        WB.MODEP        0   GTX            54/15
        WII#            0   EXTERNAL*      21/51     34/57
        WMB#            0   EXTERNAL*      15/46     70/28     86/49
        WTB            66   PROGRAM*       15/36 L   15/49     44/33     50/40     51/10     75/12    154/24
        XRF            20   GPOGRA         28/14 S   59/50     97/54
        Z$BLK           0   EXTERNAL*      15/08     19/36
        Z$BST           0   EXTERNAL*      39/06     47/18
        Z$CFT           0   EXTERNAL*      32/57
        Z$GLT           0   EXTERNAL*      29/53
        Z$IIT           0   EXTERNAL*     104/24    131/18    131/49    137/25    141/39    142/10
        Z$MLT           0   EXTERNAL*      69/17     77/03    148/16
        Z$MOD           0   EXTERNAL*      68/41     77/05    145/06    148/17
        Z$PIT           0   EXTERNAL*      21/22     21/34     32/33
        Z$RND           0   EXTERNAL*     107/19    131/13
        Z$RXI           0   EXTERNAL*      20/33     83/12
        Z$TET           0   EXTERNAL*     129/22    145/13
        Z$TXT           0   EXTERNAL*      27/24     42/35     86/17    123/10    154/34
                                           32/35     44/22     86/30    142/50    159/07
        Z$UDI           0   EXTERNAL*      19/38
        .FTN            5   GTX            73/28 F
        .P             11 
        .Z             11 
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   171
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
                                                  SYMBOL QUALIFIER =  CODE
  
  
        ATT          1224   PROGRAM*       29/10     52/04 L   52/28     52/50
        ATT2         1231   PROGRAM*       52/19 L   52/23
        ATT3         1233   PROGRAM*       52/10     52/25 L
        ATT4         1236   PROGRAM*       52/39 L   52/48
        ATT5         1241   PROGRAM*       52/45     52/48 L
        AUV          2075   PROGRAM*       70/08     77/53     78/11 L   78/31     79/21     79/38
        AUVA         2074   PROGRAM*       78/09 L   78/42
        AUV1         2102   PROGRAM*       78/22 L   78/24
        AUV2         2114   PROGRAM*       78/50 L   79/11
        AUV3         2117   PROGRAM*       78/46     78/52     79/06 L   79/10     79/16
        AUV4         2124   PROGRAM*       79/14     79/25 L   79/35
        BCM          1346   PROGRAM*       20/04 S   27/20 S   29/34 S   43/17 S   43/24 S   57/22 L   64/09
        BI.BEFL        22                  30/05 D   30/09
        BI.BEFP         0                  30/05 D   31/40
        BI.MAXTL       22                  32/38 D   32/45
        BI.MAXTP        0                  32/38 D
        BSIL         1222   PROGRAM*       48/10 S   48/12     49/50 S   50/21     50/31     51/12     51/17 L
        CBB          1122   PROGRAM*       29/12     47/45     48/08 L   48/23
        CBB1         1124   PROGRAM*       48/12 L   51/15
        CBB10        1204   PROGRAM*       49/52     50/44 L
        CBB11        1213   PROGRAM*       50/51     50/56 L
        CBB13        1214   PROGRAM*       50/39     50/54     51/01 L
        CBB14        1217   PROGRAM*       51/06     51/08 L
        CBB15        1220   PROGRAM*       49/47     51/12 L
        CBB2         1133   PROGRAM*       48/36 L   48/53
        CBB3         1142   PROGRAM*       48/30     48/56 L
        CBB3A        1143   PROGRAM*       48/38     49/02 L
        CBB3B        1146   PROGRAM*       48/52     49/15 L
        CBB4         1151   PROGRAM*       48/39     48/46     49/03     49/09     49/25 L
                                           48/42     48/54     49/07     49/21
        CBB5         1152   PROGRAM*       48/57     49/27 L
        CBB6         1154   PROGRAM*       49/36 L   49/45
        CBB7         1157   PROGRAM*       49/40     49/45 L
        CBB8         1162   PROGRAM*       49/42     49/56 L   50/25
        CBB9         1173   PROGRAM*       50/05     50/20 L
        CBT          1041   PROGRAM*       44/44     45/07 L   45/22     47/49
        CBT0         1040   PROGRAM*       45/05 L   45/20
        CBT1         1043   PROGRAM*       45/11 L   45/39
        CBT2         1045   PROGRAM*       45/17 L   45/34     45/36
        CBT3         1052   PROGRAM*       45/34 L
        CHB          1616   PROGRAM*       47/41     67/10 L   67/25     67/45     68/07     70/31
                                           66/51     67/14     67/39     67/51     68/14
        CHB0         1631   PROGRAM*       67/50 L   67/55
        CHB0A        1646   PROGRAM*       68/23     68/41 L
        CHB1         1671   PROGRAM*       69/34 L   69/46
        CHB1A        1662   PROGRAM*       69/07     69/10 L
        CHB2         1675   PROGRAM*       69/51 L   70/04
        CIC          1056   PROGRAM*       29/44     46/09 L   47/05
        CICA         1121   PROGRAM*       47/16 S   47/50     47/55 L
        CIC1         1057   PROGRAM*       46/13 L   47/03
        CIC2         1063   PROGRAM*       46/28 L   46/39
        CIC3         1067   PROGRAM*       46/24     46/37     46/44 L
        CIC4         1070   PROGRAM*       46/30     46/33     46/40     46/47 L
        CIC5         1071   PROGRAM*       46/45     46/49 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   172
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        CIC6         1072   PROGRAM*       46/55 L   47/53
        CIC7         1075   PROGRAM*       46/51     47/09 L
        CIC8         1104   PROGRAM*       47/27 L   47/34
        CIF          3432   PROGRAM*       28/53    130/12 L  133/54
        CIF0         3431   PROGRAM*      130/10 L  131/12
        CIF1         3444   PROGRAM*      130/44 L  130/47    130/50    130/56    131/09
        CIF1A        3451   PROGRAM*      130/53    131/04 L
        CIF10        3531   PROGRAM*      132/27    133/46 L
        CIF2         3453   PROGRAM*      130/46    131/11 L
        CIF3         3460   PROGRAM*      131/22 L  132/10
        CIF4         3466   PROGRAM*      131/37    131/40 L
        CIF5         3505   PROGRAM*      132/26 L  132/31    132/53
        CIF7         3513   PROGRAM*      132/52 L  133/44
        CIF8         3520   PROGRAM*      133/12 L  133/21
        CIF9         3530   PROGRAM*      133/04    133/08    133/16    133/17    133/42 L
        COL1          176   PROGRAM*       19/57 L   25/11
        COL2          207   PROGRAM*       20/22 L   20/31
        COL4          226   PROGRAM*       20/48     20/53 L
        COL5          233   PROGRAM*       21/02     21/04 L
        COL6          247   PROGRAM*       21/19     21/28 L
        COL7          254   PROGRAM*       21/26     21/41 L
        CRB          1315   PROGRAM*       43/06     55/40 L   55/48     55/56
        CRB1         1322   PROGRAM*       55/50 L   55/54
        CRB2         1311   PROGRAM*       55/29 L   55/43     55/44
        CRB3         1313   PROGRAM*       55/34 L   55/38
        DIF          3534   PROGRAM*      131/29    131/48    134/13 L  139/05
        DIFA         3654   PROGRAM*      137/37    139/07 L
        DIF1         3542   PROGRAM*      134/33 L  135/02    135/13    135/15    135/17
        DIF10        3575   PROGRAM*      135/41    136/10 L
        DIF11        3603   PROGRAM*      136/24    136/27    136/30 L  137/15
        DIF12        3606   PROGRAM*      136/15    136/18    136/42 L
        DIF13        3611   PROGRAM*      136/11    136/49 L
        DIF14        3613   PROGRAM*      134/37    137/03 L
        DIF15        3620   PROGRAM*      134/55    137/21 L
        DIF16        3627   PROGRAM*      137/36 L  138/54
        DIF17        3637   PROGRAM*      137/47    138/13 L
        DIF18        3647   PROGRAM*      137/50    138/09    138/22    138/30    138/45 L
        DIF2         3544   PROGRAM*      134/42 L  135/36    135/55    136/37    136/46    136/51    137/07    137/10
        DIF2A        3547   PROGRAM*      134/48    134/53 L
        DIF4         3552   PROGRAM*      135/06 L  136/01    136/05    136/43    136/53    137/13
                                          135/37    136/03    136/38    136/47    137/12
        DIF5         3557   PROGRAM*      134/38    135/21 L
        DIF5A        3562   PROGRAM*      135/25    135/29 L
        DIF5B        3563   PROGRAM*      135/27    135/34 L
        DIF6         3565   PROGRAM*      135/29    135/39 L
        DIF7         3570   PROGRAM*      135/47    135/50 L
        DIF8         3572   PROGRAM*      135/52    135/57 L
        EBV          1324   PROGRAM*       28/19     56/06 L   56/17     66/48    159/35
        EBV1         1330   PROGRAM*       56/14 L   56/19     56/40     56/57
        EBV2         1333   PROGRAM*       56/18     56/21 L
        EBV3         1335   PROGRAM*       56/28 L   56/37
        EBV4         1341   PROGRAM*       56/23     56/42 L
        EBV5         1342   PROGRAM*       56/46 L   56/55
        FEI          2130   PROGRAM*       28/23     80/04 L   80/19     80/31
        FEI1         2140   PROGRAM*       80/20 L   80/29
        FIA          4427   PROGRAM*      155/22 S  156/50    158/51 L
        FII          2704   PROGRAM*       28/30    104/22 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   173
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        FII0         2700   PROGRAM*      104/08 L  104/53
        FII1         2714   PROGRAM*      104/41 L  105/27    105/56    106/17
        FII10        2746   PROGRAM*      106/08    106/19 L
        FII2         2717   PROGRAM*      104/37    104/52 L  105/05
        FII3         2731   PROGRAM*      105/20    105/31 L
        FII4         2734   PROGRAM*      105/37    105/45 L
        FII5         2740   PROGRAM*      105/48    106/03 L
        FII6         2744   PROGRAM*      106/06    106/13 L  106/26
        FII7         2745   PROGRAM*      106/13    106/15 L
        FIM          3655   PROGRAM*       28/57    147/37 D
        FNL           645   PROGRAM*       28/07     37/48 L
        FNL0          644   PROGRAM*       37/42 L   38/01
        FNL1          650   PROGRAM*       37/54 L   38/03
        FUD          1355   PROGRAM*       28/10     43/19     58/05 L   64/11     64/19    159/35
        FUDA         1350   PROGRAM*       57/25 L   60/20     61/40
        FUDB         1351   PROGRAM*       57/26 L   61/04
        FUDC         1352   PROGRAM*       57/27 L   61/44
        FUDD         1353   PROGRAM*       57/28 L   62/18
        FUDE         1354   PROGRAM*       57/29 L   62/19
        FUD1         1364   PROGRAM*       58/30 L   58/57     58/57     59/01     59/28     59/28     59/28     59/29
        FUD10        1443   PROGRAM*       60/23     60/28     60/32 L
        FUD11        1445   PROGRAM*       60/18     60/39 L
        FUD11A       1455   PROGRAM*       60/40     60/41     60/41     60/41     60/43 L
        FUD12        1457   PROGRAM*       59/55     60/51 L
        FUD13        1461   PROGRAM*       61/01 L   61/20
        FUD14        1464   PROGRAM*       61/06     61/10 L
        FUD15        1475   PROGRAM*       61/02     61/15     61/16     61/16     61/16     61/18 L
        FUD16        1477   PROGRAM*       58/40     61/32 L
        FUD17        1504   PROGRAM*       61/45 L   61/49     61/55     62/11
        FUD18        1507   PROGRAM*       61/57 L   62/10
        FUD19        1511   PROGRAM*       62/02     62/06 L
        FUD2         1366   PROGRAM*       58/23     58/36 L   58/49     59/10     59/34     59/54     60/47     61/24
                                           58/32     58/41     58/55     59/23     59/37     60/02     60/54
        FUD20        1513   PROGRAM*       61/41     61/47     62/17 L
        FUD21        1515   PROGRAM*       62/22 L   62/26     62/36
        FUD22        1521   PROGRAM*       62/30     62/34 L
        FUD24        1522   PROGRAM*       61/36     62/17     62/24     62/40 L
        FUD25        1534   PROGRAM*       63/25 L   63/41
        FUD26        1541   PROGRAM*       63/21     63/43 L
        FUD26A       1544   PROGRAM*       63/44     63/51 L
        FUD27        1546   PROGRAM*       64/04 L   65/45
        FUD28        1546   PROGRAM*       64/08 L   66/08     66/52
        FUD29        1550   PROGRAM*       64/13 L   64/17
        FUD3         1403   PROGRAM*       58/46     59/06 L
        FUD30        1552   PROGRAM*       63/12     64/26 L
        FUD31        1560   PROGRAM*       64/46 L   64/54
        FUD32        1563   PROGRAM*       64/44     65/01 L   65/43
        FUD33        1565   PROGRAM*       65/09 L   65/27
        FUD34        1572   PROGRAM*       65/07     65/29 L
        FUD34A       1574   PROGRAM*       65/29     65/35 L
        FUD35        1577   PROGRAM*       62/47     66/03 L
        FUD36        1603   PROGRAM*       66/23     66/26 L
        FUD37        1611   PROGRAM*       66/39 L   66/44
        FUD5         1421   PROGRAM*       59/07     59/33 L
        FUD7         1432   PROGRAM*       60/05 L   60/44
        FUD8         1434   PROGRAM*       60/09     60/13 L
        FUD9         1436   PROGRAM*       60/14     60/20 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   174
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        FUD9A        1442   PROGRAM*       60/25     60/30 L
        FXI          2144   PROGRAM*       28/28     81/05 L   85/07
        FXI10        2225   PROGRAM*       83/41     84/11 L
        FXI11        2230   PROGRAM*       83/38     84/09     84/14     84/25 L
        FXI12        2233   PROGRAM*       84/36 L   84/52
        FXI13        2237   PROGRAM*       84/45     84/50 L
        FXI15        2241   PROGRAM*       83/25     85/01 L
        FXI2         2152   PROGRAM*       81/14 L   81/18
        FXI4         2156   PROGRAM*       81/33 L   81/35     81/42
        FXI5         2164   PROGRAM*       81/57 L   82/02     82/49
        FXI6         2166   PROGRAM*       82/12 L   82/46
        FXI7         2174   PROGRAM*       82/21     82/37 L
        FXI8         2176   PROGRAM*       82/16     82/45 L
        FXI9         2212   PROGRAM*       83/29 L   84/56
        FXI9A        2220   PROGRAM*       83/51 L   83/54
        GNG           654   PROGRAM*       29/24     38/14     38/17 L   38/25     38/32
        GNG0          652   PROGRAM*       38/10 L   38/19
        GPO1          401   PROGRAM*       28/04 L   29/25
        GPO10         463   PROGRAM*       28/05     29/30 L
        GPO11         465   PROGRAM*       29/36 L   29/45
        GPO12         471   PROGRAM*       29/39     29/49 L
        GPO13         474   PROGRAM*       29/52     30/07 L
        GPO14         477   PROGRAM*       30/18 L   30/22
        GPO15         501   PROGRAM*       30/31 L   30/35     30/57     31/20
        GPO15A        506   PROGRAM*       30/42     30/46 L
        GPO16         507   PROGRAM*       30/47     30/49 L   30/52
        GPO17         511   PROGRAM*       30/44     31/04 L
        GPO17A        512   PROGRAM*       31/10 L   31/13
        GPO18         515   PROGRAM*       30/33     31/25 L
        GPO19         517   PROGRAM*       31/31 L   31/42
        GPO2          403   PROGRAM*       28/07 L   29/20
        GPO20         520   PROGRAM*       31/29     31/35 L   31/41     32/11
        GPO21         523   PROGRAM*       31/48 L   31/52
        GPO22         526   PROGRAM*       32/04 L   32/09
        GPO23         531   PROGRAM*       31/37     32/15 L
        GPO24         532   PROGRAM*       32/17 L   32/25
        GPO25         535   PROGRAM*       32/20     32/29 L
        GPO26         546   PROGRAM*       32/49 L   32/53
        GPO27         554   PROGRAM*       33/10 L   33/19
        GPO28         557   PROGRAM*       33/12     33/13     33/17 L
        GPO3          414   PROGRAM*       28/12     28/16     28/21 L
        GPO3A         423   PROGRAM*       20/49     28/30 L
        GPO30         567   PROGRAM*       33/47 L   34/27
        GPO31         573   PROGRAM*       34/03 L   34/16
        GPO32         577   PROGRAM*       33/49     34/12     34/20 L
        GPO33         604   PROGRAM*       33/25     34/34 L
        GPO35         605   PROGRAM*       32/37     34/41 L   35/01
        GPO36         615   PROGRAM*       34/44     35/03 L
        GPO4          431   PROGRAM*       28/34     28/38 L
        GPO5          434   PROGRAM*       28/44     28/46 L
        GPO6          447   PROGRAM*       28/51     28/55     29/03     29/07 L
        GPO7          455   PROGRAM*       20/48 S   29/16 L
        IGO0          317   PROGRAM*       19/55     24/12 L
        IGO1          337   PROGRAM*       24/45     24/53 L
        IGO2          343   PROGRAM*       25/06 L   25/09
        IGO3          352   PROGRAM*       25/26 L   25/54
        IGO3A         356   PROGRAM*       25/34     25/36 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   175
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        IGO3B         362   PROGRAM*       25/43     25/47 L
        IGO4          365   PROGRAM*       25/48     25/56 L
        IGO5          366   PROGRAM*       25/47     26/02 L
        IGO5A         370   PROGRAM*       26/08     26/10 L
        IGP           620   PROGRAM*       28/04     36/07 L   37/32
        IGP1          633   PROGRAM*       36/51 L   37/27
        IGP2          634   PROGRAM*       36/57 L   37/06
        IGP3          642   PROGRAM*       37/09     37/27 L
        IHB           757   PROGRAM*       20/47     28/27     42/24 L   42/33     42/44
        IPS          2024   PROGRAM*       71/14     76/07 L   76/13     77/56
        IPS1         2035   PROGRAM*       76/29 L   76/41
        IPS2         2044   PROGRAM*       76/51     76/53 L
        IPS3         2054   PROGRAM*       77/15 L   77/49
        IPS4         2062   PROGRAM*       77/31     77/35 L
        IRP           663   PROGRAM*       20/01     28/08     39/03 L   41/02     42/18
        IRP1          677   PROGRAM*       39/41 L   39/56
        IRP2          702   PROGRAM*       39/42     39/54 L
        IRP3          725   PROGRAM*       40/36     40/42 L
        IRP4          755   PROGRAM*       41/57     42/13 L
        IRP5          756   PROGRAM*       42/11     42/18 L
        MBT          4431   PROGRAM*       44/21     50/56    159/03 L  159/29    159/35
        MBT2         4437   PROGRAM*      159/14 L  159/27
        MIE          3200   PROGRAM*       28/47    119/17 L  123/03    129/20    129/47
        MIE1         3204   PROGRAM*      119/31 L  119/56    120/19    120/26    121/43    122/13
                                          119/51    120/08    120/24    121/28    121/49
        MIE10        3246   PROGRAM*      121/30    121/53 L
        MIE11        3251   PROGRAM*      122/05 L  122/11
        MIE12        3253   PROGRAM*      122/07    122/11 L
        MIE14        3254   PROGRAM*      119/32    123/03 L
        MIE14A       3265   PROGRAM*      123/27 L  124/02
        MIE14B       3272   PROGRAM*      123/35    123/40    123/44 L
        MIE15        3273   PROGRAM*      123/52 L  124/04    124/06    124/41    124/43    125/14
        MIE16        3274   PROGRAM*      123/22    123/57 L  125/57
        MIE16A       3305   PROGRAM*      124/21    124/30 L
        MIE17        3307   PROGRAM*      124/32    124/35 L
        MIE17A       3313   PROGRAM*      124/28    124/51 L
        MIE18        3320   PROGRAM*      124/13    124/25    125/12 L
        MIE19        3322   PROGRAM*      124/11    125/19 L
        MIE19A       3323   PROGRAM*      125/22 L  125/30
        MIE19B       3327   PROGRAM*      125/28    125/34 L
        MIE19C       3330   PROGRAM*      125/37 L  125/55
        MIE19D       3335   PROGRAM*      125/49    125/51 L
        MIE19E       3336   PROGRAM*      125/45    125/53 L
        MIE19F       3337   PROGRAM*      125/41    125/57 L
        MIE2         3213   PROGRAM*      119/43    120/03 L
        MIE20        3361   PROGRAM*      123/54    126/01    127/21 L
        MIE21        3365   PROGRAM*      127/31 L  127/41
        MIE22        3366   PROGRAM*      127/29    127/35 L  127/42    128/11    128/17    128/24
        MIE23        3375   PROGRAM*      127/54    128/02 L
        MIE24        3377   PROGRAM*      128/04    128/09 L
        MIE25        3400   PROGRAM*      127/50    128/13 L
        MIE26        3404   PROGRAM*      127/37    128/32 L
        MIE27        3407   PROGRAM*      128/42 L  128/57
        MIE28        3413   PROGRAM*      128/51    128/54 L
        MIE29        3414   PROGRAM*      128/47    128/53    128/57 L
        MIE3         3216   PROGRAM*      120/06    120/11 L
        MIE30        3425   PROGRAM*      129/33 L  129/42
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   176
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        MIE4         3221   PROGRAM*      120/12    120/23 L
        MIE5         3223   PROGRAM*      119/40    120/32 L
        MIE6         3227   PROGRAM*      120/16    120/40    120/46 L
        MIE7         3232   PROGRAM*      119/52    119/54    120/09    120/27    120/33    120/41    121/04 L
        MIE8         3237   PROGRAM*      121/15    121/25 L
        MIE9         3243   PROGRAM*      121/39    121/43 L
        MIH          3340   PROGRAM*      123/57    125/29    126/09 L  126/27
        MII          2273   PROGRAM*       20/46     28/25    103/35 D  130/21
        MIP          2751   PROGRAM*       28/36    118/46 D
        MPB          4321   PROGRAM*       50/17     75/05     78/26    154/15    154/26 L
                                           50/53     75/10    152/47    154/22    159/35
        MPBA         4426   PROGRAM*      154/14    154/21    154/27 S  158/50 L
        MPB0         4315   PROGRAM*      154/14 L  156/53    158/48
        MPB1         4335   PROGRAM*      155/01 L  155/12
        MPB10        4403   PROGRAM*      157/03    157/38 L  158/35    158/42
        MPB11        4407   PROGRAM*      157/53    157/55 L
        MPB12        4412   PROGRAM*      158/07    158/09 L
        MPB13        4414   PROGRAM*      158/14    158/16 L
        MPB14        4415   PROGRAM*      157/57    158/20 L
        MPB15        4420   PROGRAM*      158/29    158/31 L
        MPB16        4422   PROGRAM*      157/43    158/37 L
        MPB17        4423   PROGRAM*      158/37    158/41 L
        MPB2         4341   PROGRAM*      154/54    155/18 L
        MPB3         4345   PROGRAM*      155/29 L  155/46
        MPB4         4351   PROGRAM*      155/25    155/45 L  156/34    156/39
        MPB5         4356   PROGRAM*      155/50    156/10 L
        MPB6         4357   PROGRAM*      156/16 L  156/32
        MPB7         4366   PROGRAM*      155/43    156/44 L
        MPB8         4374   PROGRAM*      157/07 L  157/44
        MPB9         4401   PROGRAM*      157/12    157/27 L
        MPR          1260   PROGRAM*       53/52 L   54/11     54/19     54/38    159/35
                                           53/57     54/16     54/32     55/13
        MPRA         1310   PROGRAM*       55/10     55/15 L
        MPR1         1276   PROGRAM*       54/29     54/34 L
        MPR2         1300   PROGRAM*       54/42 L
        MPR4         1303   PROGRAM*       54/27     54/56 L
        NTL          4303   PROGRAM*      148/12 S  150/47    152/50 L
        OST          3346   PROGRAM*      125/13    125/52    126/33 L  127/14
        RDB          1347   PROGRAM*       28/18     57/24 L   66/47
        RDD          1714   PROGRAM*       28/21     47/43     71/12 L   71/55     75/01     75/06     75/13
        RDDA         1713   PROGRAM*       71/10 L   72/49     73/57     74/51
        RDD0         1723   PROGRAM*       71/15     71/23 L
        RDD1         1730   PROGRAM*       71/41 L   71/52
        RDD10        1775   PROGRAM*       74/06 L   74/22
        RDD2         1734   PROGRAM*       71/40     71/54 L
        RDD20        2002   PROGRAM*       74/12     74/20 L
        RDD3         1741   PROGRAM*       72/18 L   73/43     73/52     73/55     74/15     74/19
        RDD3A        1743   PROGRAM*       72/19     72/23 L
        RDD30        2003   PROGRAM*       74/06     74/26 L
        RDD4         1744   PROGRAM*       72/14     72/27 L   72/54     73/09     73/20     73/35
                                           72/21     72/33     73/04     73/19     73/27     74/44
        RDD4A        1753   PROGRAM*       72/31     73/01 L
        RDD40        2007   PROGRAM*       74/35     74/38 L
        RDD5         1756   PROGRAM*       72/29     73/13 L
        RDD50        2012   PROGRAM*       73/16     73/30     73/37     74/46 L
        RDD54        2013   PROGRAM*       74/53 L   74/56
        RDD56        2015   PROGRAM*       74/53     75/01 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   177
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        RDD6         1767   PROGRAM*       73/17     73/39 L
        RDD60        2020   PROGRAM*       75/02     75/09 L
        SHB          2242   PROGRAM*       28/49     29/05     86/05 L   86/52
        SHB1         2257   PROGRAM*       86/08     86/30 L
        SHB2         2267   PROGRAM*       86/38     86/44 L
        SLC          1242   PROGRAM*       50/46     53/07 L   53/09     53/11     53/40
        SLC1         1251   PROGRAM*       53/23 L   53/37
        SLC2         1254   PROGRAM*       53/24     53/30 L
        SLC3         1255   PROGRAM*       53/19     53/23     53/26     53/28     53/33 L   53/38
        TIA          4430   PROGRAM*      154/43 S  155/18    158/52 L
        TRP           771   PROGRAM*       29/16     43/03 L   44/45
        TRP2         1010   PROGRAM*       43/37 L   43/41
        TRP3         1020   PROGRAM*       43/56     44/10 L
        TRP4         1034   PROGRAM*       44/02     44/04     44/36 L
        UPB          4161   PROGRAM*       29/09    148/06 L  152/48
        UPBA         4304   PROGRAM*      152/14    152/51 L
        UPBB         4305   PROGRAM*      149/11    153/05 L
        UPBC         4314   PROGRAM*      151/08    153/16 L
        UPB1         4175   PROGRAM*      148/35 L  150/42
        UPB10        4250   PROGRAM*      151/16 L  151/21    151/34
        UPB10A       4253   PROGRAM*      151/26 L  151/30
        UPB10B       4260   PROGRAM*      151/27    151/37 L
        UPB11        4264   PROGRAM*      151/09    151/54 L
        UPB12        4270   PROGRAM*      151/57    152/14 L
        UPB13        4274   PROGRAM*      151/52    152/26 L
        UPB14        4276   PROGRAM*      151/35    152/10    152/33 L
        UPB15        4277   PROGRAM*      150/48    152/40 L
        UPB2         4201   PROGRAM*      148/57 L  150/33
        UPB2A        4215   PROGRAM*      149/20    149/24    149/34 L
        UPB2B        4216   PROGRAM*      149/35    149/38 L
        UPB2C        4212   PROGRAM*      149/22    149/26 L
        UPB3         4222   PROGRAM*      149/13    149/50 L
        UPB4         4225   PROGRAM*      149/50    150/06 L
        UPB5         4227   PROGRAM*      150/02    150/12 L
        UPB5A        4230   PROGRAM*      149/44    149/46    150/18 L
        UPB6         4233   PROGRAM*      149/32    150/28 L
        UPB7         4237   PROGRAM*      148/43    150/41 L
        UPB8         4240   PROGRAM*      148/29    150/47 L
        UPB9         4244   PROGRAM*      150/57 L  152/35
        .BCM           17                  57/21 D   57/22
        .BMB         4000                 129/15 D  129/16
        .SCR            4                  84/20 D   84/21
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     CIF                               133/51 F
  U     FUD                                63/05 F   64/05 F   66/04 F
  U     FXI                                85/04 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  MII 
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   178
        SYMBOLIC REFERENCE TABLE.                                     MII 
  
        IA1          2375   PROGRAM*       92/18     92/24 L
        IA1A         2402   PROGRAM*       92/30     92/36 L
        IA2          2406   PROGRAM*       91/13     92/34     92/37     92/48 L
        ILD1         2324   PROGRAM*       88/43     88/47 L
        IM1          2360   PROGRAM*       90/30     90/35 L
        IM2          2362   PROGRAM*       90/32     90/38 L
        JPX1         2426   PROGRAM*       93/33     93/40     93/45 L
        JPX2         2430   PROGRAM*       93/14     93/25     93/55 L   94/17     94/30
                                           93/21     93/48     94/16     94/19
        LD1          2331   PROGRAM*       88/56     89/07 L
        MII          2273   PROGRAM*       87/18 L  102/13    102/56    103/01    103/08    103/35
        MII1         2311   PROGRAM*       88/03 L   89/41     90/04     96/14    100/57
                                           89/27     89/51     91/10    100/05
        MII1A        2315   PROGRAM*       88/07     88/28     89/16     90/21     90/43     94/44
                                           88/13 L   89/15     89/22     90/36     92/11     95/16
        MII2         2317   PROGRAM*       87/50     89/13     90/19     92/33     94/43     96/40     97/14    101/02
                                           87/53     89/18     90/33     92/44     95/08     96/46     99/10
                                           88/10     89/26     91/15     92/51     95/15     96/49    100/14
                                           88/23 L   89/42     92/13     92/54     96/11     96/53    100/33
                                           88/30     89/52     92/20     93/05     96/12     97/07    100/41
                                           89/11     90/05     92/26     94/02     96/29     97/08    100/45
        MII4         2557   PROGRAM*      102/27 L  102/36    102/53
        MII5         2567   PROGRAM*      102/38    102/44    102/55 L
        MII.JT       2571   PROGRAM*       88/25     98/07    103/26 L
        RJ31         2472   PROGRAM*       97/18 L   97/25
        RJ32         2474   PROGRAM*       97/29 L   97/36
        RJ32A        2502   PROGRAM*       97/40     97/45 L
        RJ32B        2504   PROGRAM*       97/43     97/52 L
        RJ33         2511   PROGRAM*       97/53     98/01     98/07 L
        RS0          2457   PROGRAM*       96/26     96/33 L
        RS1          2462   PROGRAM*       96/09     96/44 L
        RS2          2464   PROGRAM*       96/44     96/48 L
        STA          2550   PROGRAM*       99/46    101/04 L
        ST1          2533   PROGRAM*       99/19     99/23     99/41    100/13 L
        ST2          2541   PROGRAM*      100/16    100/22    100/25    100/37 L
        ST3          2543   PROGRAM*       99/17    100/45 L
        TYI          2341   PROGRAM*       89/33 L
        TYII         2315   PROGRAM*       88/28 D
        TYIV         2317   PROGRAM*       88/30 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  MIP 
  
  
        IA1          3104   PROGRAM*      113/25    113/28    114/20    114/29    114/34 L
        IA2          3110   PROGRAM*      114/17    114/50 L
        IA3          3112   PROGRAM*      114/14    115/03 L
        IM1          3065   PROGRAM*      112/56    113/04 L
        IM2          3067   PROGRAM*      113/01    113/10 L
        IM4          3071   PROGRAM*      113/05    113/18 L
        IM5          3074   PROGRAM*      112/52    113/27 L
        JPX1         3140   PROGRAM*      116/27    116/41 L
        JPX2         3145   PROGRAM*      116/53    117/03 L
        JPX3         3146   PROGRAM*      117/01    117/07 L
        JPX4         3155   PROGRAM*      117/13    117/28 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   179
        SYMBOLIC REFERENCE TABLE.                                     MIP 
  
        JPX5         3160   PROGRAM*      116/39    117/26    117/40 L
        JPX6         3164   PROGRAM*      117/49    117/55 L
        JPX7         3166   PROGRAM*      117/43    117/53    118/03    118/09 L
        LD1          3041   PROGRAM*      111/32    111/39 L
        MIP          2751   PROGRAM*      107/16 L  118/46
        MIPA         2775   PROGRAM*      108/26 L  112/05    115/47
        MIPB         2776   PROGRAM*      108/27 L  110/11
        MIPC         2777   PROGRAM*      108/28 L  111/29    114/50
        MIPD         3000   PROGRAM*      108/29 L  114/35
        MIP0         2751   PROGRAM*      107/13 L  110/08    111/02
        MIP1         2762   PROGRAM*      107/42 L  112/32    114/45    114/57    115/51
        MIP1A        2766   PROGRAM*      108/01 L  108/10
        MIP1B        2772   PROGRAM*      108/06    108/13 L
        MIP2         2773   PROGRAM*      107/36    108/21 L  111/27    112/45    115/13    116/19    117/15
                                          107/43    108/50    111/40    112/50    115/37    116/20    117/17
                                          107/46    108/57    111/44    113/02    115/41    116/29    117/31
                                          107/49    109/05    112/11    114/27    115/45    116/42    118/14
                                          108/09    111/13    112/16    115/05    116/14    116/50    118/17
                                          108/11    111/25    112/20    115/07    116/15    117/11    118/42
        MIP3         3017   PROGRAM*      110/16    110/23 L
        MIP4         3021   PROGRAM*      110/21    110/32 L  110/42    110/55
        MIP5         3025   PROGRAM*      110/32    110/45 L  110/54
        MIP6         3031   PROGRAM*      110/43    110/57 L
        STT1         3123   PROGRAM*      115/38    115/44 L
        ST1          3004   PROGRAM*      108/40    108/48 L
        ST2          3007   PROGRAM*      108/52    108/56 L
        SXT1         3052   PROGRAM*      112/23    112/26 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  FIM 
  
  
        EIE          3721   PROGRAM*      140/50    142/17 L
        EIE0         3715   PROGRAM*      142/09 L  142/26    142/45    145/22    146/13
        EIE1         3727   PROGRAM*      142/29    142/34 L
        EIE10        4024   PROGRAM*      145/39 L  146/03
        EIE11        4027   PROGRAM*      145/44    145/52 L
        EIE12        4031   PROGRAM*      146/01 L  146/25    146/33    146/41    146/53    147/09
                                          146/21    146/29    146/37    146/46    147/05
        EIE2         3734   PROGRAM*      142/34    142/38    142/40    142/50 L  146/10    147/11    147/12
        EIE3         3743   PROGRAM*      142/56    143/07 L
        EIE4         3746   PROGRAM*      143/05    143/13    143/18 L
        EIE5         3752   PROGRAM*      143/29 L  143/43
        EIE6         4004   PROGRAM*      144/45    144/50 L
        EIE6A        3776   PROGRAM*      144/29    144/33 L
        EIE6Z        4001   PROGRAM*      144/24    144/42 L
        EIE7         4010   PROGRAM*      144/20    144/34    144/48    145/06 L
        EIE8         4020   PROGRAM*      144/31    144/38    144/56    145/02    145/19 L
        EIE9         4022   PROGRAM*      142/30    145/29 L
        EIE.JT       4052   PROGRAM*      145/52    147/29 L  147/33
        FIM          3655   PROGRAM*      140/07 L  141/56    147/37
        FIM1         3660   PROGRAM*      140/18 L  141/54
        FIM2         3666   PROGRAM*      140/34 L  140/42    141/22
        FIM3         3676   PROGRAM*      140/55    141/15 L
        FIM5         3702   PROGRAM*      140/36    141/26 L
1       GPO - GLOBAL PROGRAM OPTIMIZATION / SUBROUTINES               COMPASS 3.7-871.     24/05/02. 13.12.31.      PAGE   180
        SYMBOLIC REFERENCE TABLE.                                     FIM 
  
        FIM6         3711   PROGRAM*      141/31    141/45 L
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4317              IDENT  GRA
                       4317                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4317 
                                        GPOGRA    COMMON          0        40 
                                        CCGSCR    COMMON          0       252 
  
  
                                        ENTRY POINTS. 
  
                                        B=GRA            0+           GRA#             2+           CUC#          4115+ 
                                        GRASRF#          1+           CXB#          3115+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BIT     L$PIT     O$SEQ     BSI#      RNI#      CC$PC     BLNKCOM   PCC#
                                        L$BIT     O$PSI     L$SEQ     BSW#      ATS$      AIS#      HO$UO     NBIP# 
                                        O$BST     L$PSI     O$TET     BVL#      Z$RND     Z$PSI     RTB#
                                        L$BST     O$RCT     L$TET     DMASK#    MPR#      HO$ARGC   SHL#
                                        O$IIT     L$RCT     O$TXT     L.HB#     HO$OPT    MPB#      S=TRACE 
                                        L$IIT     O$RND     L$TXT     N.GT#     HO$LCM    ADW$      O$FPI 
                                        O$MOD     L$RND     F$RDT     HBI#      Z$TXT     Z$MLT     Z$RCT 
                                        L$MOD     O$RXI     S$IT      PC#       WFB#      MVE=      EBV#
                                        O$PIT     L$RXI     O$SYM     SRI#      MCG#      Z$MOD     ISC=
  
  
  
  
                                                  IDENT  GRA                                                     GRA         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=GRA    RPVDEF                                                         GRA         5
  
  
                                        **        GRA - GLOBAL REGISTER ASSIGNMENT                               GRA        11
                                        *                                                                        GRA        12
                                        *         S. I. JASIK - CDC - SUNNYVALE - SPRING 74                      GRA        13
                                        *                                                                        GRA        14
                                        *         *GRA* IS CALLED BY *GPO* TO ASSIGN REGISTERS ACCROSS THE       GRA        15
                                        *         BODY OF A LOOP AND SETUP APPROPIATE INITIALIZATION CODE.       GRA        16
                                        *                                                                        GRA        17
                                        *         OPTIMIZATIONS PERFORMED BY *GRA* INCLUDE -                     GRA        18
                                        *         LOAD/STORE MOTION OF SCALAR VARIABLES AND CONSTANTS AND THEIR  GRA        19
                                        *         ASSIGNMENT TO REGISTERS.                                       GRA        20
                                        *         PREFETCHING OF INDEXED LOADS ON THE CRITICAL PATH IN SMALL     GRA        21
                                        *         INNERMOST LOOPS.                                               GRA        22
                                        *         CODE SIZE REDUCTION IN THE LOOP BODY BY ASSIGNING *SCM*        GRA        23
                                        *         ADDRESS"S AND CONSTANTS TO B-REGISTERS.                        GRA        24
                                        *         INCREMENT REDUCTION OF *IP*"S BY ASSIGNING THE DIFFERENCE OF   GRA        25
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     2
                                                                      GRA 
  
                                        *         TWO SIMILAR INTEGER POLYNOMIALS TO A B-REGISTER.               GRA        26
                                        *         TEST REPLACEMENT OF THE LOOP CONTROL VARIABLE WITH A LINEAR    GRA        27
                                        *         FUNCTION OF IT WHEN POSSIBLE.                                  GRA        28
                                        *         REMOVAL OF INCREMENT VARIABLES WHICH HAVE NO USES.             GRA        29
                                                                                                                 GRA        30
                                        **        DEBUGGING SNAP LABELS -                                        GRA        31
                                        *                                                                        GRA        32
                                        *         TRACER (UDT,ERC,SEE,MTA,DXA,DAA,MFA,CLB,SUP,SXC)               GRA        33
                                        *                                                                        GRA        34
                                        *         BASIC SNAPS - UDT,SEE,MTA,DXA,DAA,CLB,SUP,SXC                  FCC1039     5
                                                                                                                 GRA        36
                                                  LIST   -R                                                      GRA        37
                                                                                                                 CCGNC     642
                                                  TABLES (BIT,BST,IIT,MOD,PIT,PSI,RCT,RND,RXI,SEQ,TET,TXT)       CCGNC     643
                                                                                                                 CCGNC     644
                                                  EXT#   (BSI,BSW,BVL,DMASK,L.HB,N.GT,HBI,PC,SRI)                CCGNC     645
                                                                                                                 GRA        43
                                 101     MAX.INC  EQU    101B        MAX CONSTANT INCREMENT VALUE FOR PREFETCHS  GRA        44
                                        *                          OF ARRAYS IN LABELED COMMON OR LOCAL STORAGE. GRA        45
                                                                                                                 GRA        46
                                  44     BA.BIP   EQU    36                                                      GRA        47
                                  22     BA.LENP  EQU    18                                                      GRA        48
                                  22     BA.BIL   EQU    18                                                      FCCA509X   24
                                  22     BA.LENL  EQU    18                                                      FCCA509X   25
                                                                                                                 GRA        49
             0                           UDTBLD   CTEXT  UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS               UDTBLD      2
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     3
        CLCM - COROUTINE LOOP CONTROL MACRO                           CLCM
  
                                        **        CLCM - COROUTINE LOOP CONTROL MACRO                            GPOCOM      3
                                        *                                                                        GPOCOM      4
                                        *         CLCM   ROUTINE,(BSW-FLAGS)                                     GPOCOM      5
                                        *                                                                        GPOCOM      6
                                        *         CALL *ROUTINE* FROM *PCC* IF *BSW-FLAGS* " 0 , FOR EACH BLOCK  GPOCOM      7
                                        *         IN THE REGION ( *SCR* ) BEING PROCESSED.                       GPOCOM      8
                                        *         IF *FIELDS* IS ABSENT, THEN CALL *ROUTINE* UNCONDITIONALLY.    GPOCOM      9
                                                                                                                 GPOCOM     10
                                         CLCM     MACRO  RTN,FIELDS                                              GPOCOM     11
                                                  LOCAL  CCW                                                     GPOCOM     12
                                                  SX7    =X_RTN                                                  GPOCOM     13
                                                                                                                 GPOCOM     14
                                                  IFC    EQ,/FIELDS//,2                                          GPOCOM     15
                                                  SX5    0                                                       GPOCOM     16
                                                  ELSE   4                                                       GPOCOM     17
                                                  SA5    CCW                                                     GPOCOM     18
                                                  USE    CLCM                                                    GPOCOM     19
                                         CCW      BFMW   BS,(FIELDS)                                             GPOCOM     20
                                                  USE    *                                                       GPOCOM     21
                                                                                                                 GPOCOM     22
                                                  RJ     =XPCC#                                                  CCGNC     480
                                                  ENDM                                                           GPOCOM     24
  
  
                                        **        FBVA - FORM BLOCK BIT VECTOR ADDRESS                           GPOCOM     26
                                        *                                                                        GPOCOM     27
                                        *         ENTRY  (BN) = REGISTER WITH *BI* INDEX OF BLOCK                GPOCOM     28
                                        *                                                                        GPOCOM     29
                                        *         EXIT   (X7) = BVA = O.BVT + BVI[BIT(BN)]                       GPOCOM     30
                                        *                (X4) = BIT(BN)                                          GPOCOM     31
                                        *                (B2) = VL = BVL + 1                                     GPOCOM     32
                                                                                                                 GPOCOM     33
                                         FBVA     MACRO  BN                                                      GPOCOM     34
                                                  R=     B3,BN                                                   GPOCOM     35
                                                  SA1    O.BVT                                                   GPOCOM     36
                                                  SA2    BVL                                                     GPOCOM     37
                                                  SA3    O.BIT                                                   GPOCOM     38
                                                  SB2    X2+B1       VL = BVL + 1                                GPOCOM     39
                                                  SA4    X3+B3       BIT(BN)                                     GPOCOM     40
                                                  LX4    -BI.BVIP                                                GPOCOM     41
                                                  IX7    X1+X4       BVA = O.BVT + BVI[BIT(BN)]                  GPOCOM     42
                                                  LX4    BI.BVIP                                                 GPOCOM     43
                                                  ENDM                                                           GPOCOM     44
  
  
                                        **        PRNTABV - PRINT A BIT VECTOR                                   GPOCOM     46
                                        *                                                                        GPOCOM     47
                                        *         PRNTABV  LAB,(LIST OF VECTOR ADDRESS"S)                        GPOCOM     48
                                                                                                                 GPOCOM     49
                                         PRNTABV  MACRO  LAB,BVA                                                 GPOCOM     50
                                                  IF     DEF,/DEBUG/LAB,3                                        GPOCOM     51
                                                  IRP    BVA                                                     GPOCOM     52
                                                  DCALL  PRNTABV,(=5L BVA ,[_BVA_])                              GPOCOM     53
                                                  IRP                                                            GPOCOM     54
                                                  ENDM                                                           GPOCOM     55
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     4
        CLCM - COROUTINE LOOP CONTROL MACRO                           MICROS
  
                                        *         SOME POPULAR REGISTER ASSIGNMENTS                              GPOCOM     57
                                                                                                                 GPOCOM     58
                                         TB       MICRO  1,,/B7/     O.SEQ + 3                                   GPOCOM     59
                                         RN       MICRO  1,,/-X0*/   R-NUMBER EXTRACTOR MASK                     GPOCOM     60
  
  
  
                                        *         E. - NODE NUMBER TO *BIT* INDEX TRANSITION TABLE FORMAT        GPOCOM     62
                                                                                                                 GPOCOM     63
                                                  DESCRIBE E.,60                                                 GPOCOM     64
      L     73  40000000000000000000     SCR      DEFINE 1           IN *SCR*                                    GPOCOM     65
      L     72  20000000000000000000     JP       DEFINE 1           SUCC REACHED BY A *JP* EDGE                 GPOCOM     66
      L     71  10000000000000000000     ALLP     DEFINE 1           ALL PRED OF EXIT NODE IN *SCR*              GPOCOM     67
      L     60  07770000000000000000     NPRED    DEFINE 9           N.PRED IN SCR OF SUCCESSOR NODE             GPOCOM     68
      L     41  00007777700000000000     PRED     DEFINE 15          *BI* OF FIRST PRED IN SCR TO REACH SUCC     FCC0985     5
      L     17  00000000077777700000     LINK     DEFINE 18          LINK TO NEXT ON SUCC LIST                   GPOCOM     70
             0  00000000000000077777     BI       DEFINE 15          *BIT* INDEX OF NODE NUMBER I                GPOCOM     71
  
  
  
                                        **        PS. - POST STORE INFO FORMAT ( *PSI* )                         GPOCOM     73
                                        *                                                                        GPOCOM     74
                                        *         FIRST WORD OF A *PSI* ENTRY IS THE NUMBER OF POST STORES.      GPOCOM     75
                                        *         THE REMAINNG WORDS SPECIFY THE VARIABLES TO BE STORED OUT AND  GPOCOM     76
                                        *         THE REGISTERS THAT THEY ARE IN.                                GPOCOM     77
                                                                                                                 GPOCOM     78
                                                  DESCRIBE PS.,60                                                GPOCOM     79
      L     66  77000000000000000000     REG      DEFINE 6           REGISTER NUMBER THAT VAR IS IN ( *SO* ORDER GPOCOM     80
      L     44  00777777000000000000     UDI      DEFINE 18          UDI INDEX OF VARIABLE                       GPOCOM     81
             0  00000000777777777777     CAIH     DEFINE 36          BASE/BIAS OF SYMBOL                         GPOCOM     82
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     5
        CLCM - COROUTINE LOOP CONTROL MACRO                           IIT 
  
                                        **        IIT - INCREMENT INFO TABLE                                     GPOCOM     84
                                        *                                                                        GPOCOM     85
                                        *         *IIT* CONSISTS OF 3 LISTS -                                    GPOCOM     86
                                        *                                                                        GPOCOM     87
                                        *         A) THE LIST OF *RD* INCREMENT VALUES                           GPOCOM     88
                                        *                HBP OF THE LINK WORD OF THE *RD* POINTS TO *IIT*        GPOCOM     89
                                        *         (IIT) = 12/P(TYPE),48/VAL                                      GPOCOM     90
                                        *                TYPE        VALUE                                       GPOCOM     91
                                        *                0           S    RI,VAL                                 GPOCOM     92
                                        *                1           LD   RI,VAL  , VAL = 12/IN[R1],36/CAIH[R2]  GPOCOM     93
                                        *                2           LD   RI,VAL , AND AN   XMTC                 GPOCOM     94
                                        *                3           TLD  RI,VAL                                 GPOCOM     95
                                        *                4           TLD  RI,VAL  , AND AN XMTC                  GPOCOM     96
                                        *                5/6         LDV  RI,VAL , AND XMT/XMTC                  CCG0127     8
                                        *                                                                        GPOCOM     97
                                        *         B) THE INTEGER POLYNOMIAL INFORMATION LIST, WHICH CONSISTS OF  GPOCOM     98
                                        *         A POLYNOMIAL INFORMATION WORD ( *PI* ), FOLLOWED BY THE        GPOCOM     99
                                        *         INCREMENT FORMULA AND THE POLYNOMIAL FORMULA.  A FORMULA       GPOCOM    100
                                        *         CONSISTS OF TWO HEADER WORDS ( *IA* AND *IB* ), FOLLOWED       GPOCOM    101
                                        *         BY INSTRUCTIONS ( 4 WORDS/INST ) WHICH DEFINE IT.              GPOCOM    102
                                                                                                                 GPOCOM    103
                                                  DESCRIBE PI.,60                                                GPOCOM    104
      L     73  40000000000000000000     MIP      DEFINE 1           MARKED *IP*                                 GPOCOM    105
                                                  DEFINE 5                                                       GPOCOM    106
      L     44  00777777000000000000     CN       DEFINE 18          CLASS NUMBER OF SET OF SIMILAR *IP"S*       FCC0514    20
      L     22  00000000777777000000     CA       DEFINE 18          CA OF IP THIS *IP* IS SIMILAR TO            GPOCOM    108
             0  00000000000000777777     LF       DEFINE 18          LINK FOWARD ( REL TO *O.IIT* )              GPOCOM    109
                                                                                                                 GPOCOM    110
                                                  DESCRIBE IA.,60                                                GPOCOM    111
      L     60  77770000000000000000     NWD      DEFINE 12          P(N.WDS IN FORMULA) , INCLUDES HEADER WDS   GPOCOM    112
                                                  DEFINE 12                                                      GPOCOM    113
      L     22  00000000777777000000     CA       DEFINE 18          CA OF *IP*                                  GPOCOM    114
             0  00000000000000777777     UDI      DEFINE 18          *UDI* INDEX OF INTEGER VARIABLE *LD*        GPOCOM    115
                                                                                                                 GPOCOM    116
                                                  DESCRIBE IB.,60                                                GPOCOM    117
      L     60  77770000000000000000     NLD      DEFINE 12          P(N.LD"S IN FORMULA)                        GPOCOM    118
                                                  DEFINE 30                                                      GPOCOM    119
             0  00000000000000777777     ILD      DEFINE 18          *RI* OF *LD* OF *RD* VAR IN EXPRESSION      GPOCOM    120
                                                                                                                 GPOCOM    121
                                        *         C) A LIST OF POLYNOMIAL INCREMENT VALUES AT THE POINT          GPOCOM    122
                                        *         OF A *RD*.                                                     GPOCOM    123
                                        *         THIS LIST CONSISTS OF 2 WORDS / ENTRY, TERMINATED BY A 0 WORD  GPOCOM    124
                                        *                                                                        GPOCOM    125
                                        *         WORD 1 = 60/CA OF *TST* THAT IS BEGIN INCREMENTED              GPOCOM    126
                                        *         WORD 2 = 12/TYPE,48/VAL OF INCREMENT , AS IN LIST A .          GPOCOM    127
                                        *                                                                        GPOCOM    128
                                        *         THE FORMAT OF THE LINK WORD OF THE *RD* IS                     GPOCOM    129
                                        *                12/P(N.PI),12/,18/STC,18/INDEX TO LIST IN *IIT*         GPOCOM    130
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     6
        GPO/GRA COMMON VARIABLES                                      COMMON
  
                                        *         THE FOLLOWING LOCATIONS ARE SHARED BETWEEN *GPO* AND *GRA*     GPOCOM    132
                                                                                                                 GPOCOM    133
                                                  USE    /GPOGRA/                                                GPOCOM    134
             0                     1     O.UDT    BSS    1           FWA OF *UDI* IN LOW CORE                    GPOCOM    135
             1                     1     L.UDT    BSS    1           LENGTH                                      GPOCOM    136
             2                     1     O.MVL    BSS    1           FWA OF MARKED VAR LIST ( IN *UDT* )         GPOCOM    137
                                                                                                                 GPOCOM    138
                                        *         ADDRESS"S OF SPECIAL BIT VECTORS                               GPOCOM    139
                                                                                                                 GPOCOM    140
             3                     1     DVA      BSS    1           REGION *DEF* VECTOR                         GPOCOM    141
             4                     1     LUV      BSS    1           LOOP USEAGE VECTOR                          GPOCOM    142
             5                     1     UVA      BSS    1           REGION *USE* VECTOR                         GPOCOM    143
             6                     1     LXA      BSS    1           REGION *LIVE EXIT* VECTOR                   GPOCOM    144
                                                                                                                 GPOCOM    145
             7                     1     LEA      BSS    1           REGION *LIVE ENTRY* VECTOR                  GPOCOM    146
            10                     1     MDA      BSS    1           *MOVABLE DEFS*                              GPOCOM    147
            11                     1     SVA      BSS    1           SCRATCH VECTOR                              GPOCOM    148
                                   7     N.SBV    EQU    *-DVA       N. SPECIAL BIT VECTORS                      GPOCOM    149
                                        *                        WSC                                             GPOCOM    150
            12  00000000000000000100     M.PL     CON    100B        MAX *PIT* LENGTH                            GPOCOM    151
                                                                                                                 GPOCOM    152
            13  00000000000000000002     EMF      CON    2           FP/LVL EXPANSION MODE ( *CBB* ARGUMENT )    GPOCOM    153
            14                     1     ITL      BSS    1           INITIAL *TET* LENGTH                        GPOCOM    154
            15  00000000000077777777     MRA      VFD    36/,24/-0   MACHINE REGISTERS AVAILABLE ( 8/X,8/A,8/B ) GPOCOM    155
            16                     1     LGL      BSS    1           LP GEN LBL, LL=LP LBL 42/GEN LBL-LL,18/LL   FCC0909     7
                                                                                                                 GPOCOM    156
                                        *                           ?FWA OF CLEARED CELLS                        GPOCOM    157
            17                     1     N.HB     BSS    1           N. HOLDING BLOCKS IN LOOP ( =0 IF INNERMOST GPOCOM    158
            20                     1     XRF      BSS    1           "0 IF LOOP CONTAINS EXTERNAL REFS           GPOCOM    159
                                                                                                                 GPOCOM    160
            21                     1     LCV      BSS    1           18/UDI,36/CAIH OF LOOP CONTROL VAR          GPOCOM    161
            22                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    162
            23                     1     LUL      BSS    1           LOOP UPPER LIMIT IN *IIT A* FORMAT          GPOCOM    163
            24                     1              BSS    1           REGNO THAT IT IS IN                         GPOCOM    164
            25                     2     LIH      BSS    2           IH OF LOOP LABEL / *R2* WORD OF *LAB*       GPOCOM    165
            27                     1     N.LJ     BSS    1           N. JPX"S THAT REF LOOP LABEL                GPOCOM    166
            30                     1     LTT      BSS    1           LOOP TEST TYPE, =0 IF NO TEST REPLACEMENT   GPOCOM    167
                                        *                            =1 , TEST IS  IF( LCV @ LUL ) GO TO LIH     GPOCOM    168
                                        *                        FXI                                             GPOCOM    169
            31                     1     O.ENL    BSS    1           FWA OF EXIT NODE LIST IN *BTT*              GPOCOM    170
            32                     1     N.ENL    BSS    1           N. EXIT NODES                               GPOCOM    171
            33                     1     EPSI     BSS    1           N. EXIT NODES THAT ARE FALL THROUGH         FCC0985     6
                                        *                        CBB                                             GPOCOM    174
            34                     1     MAXW     BSS    1           MAX *REG WIDTH* OF REGION                   GPOCOM    175
            35                     1     N.EBB    BSS    1           N. EXTENDED BASIC BLOCKS IN REGION          GPOCOM    176
                                                                                                                 GPOCOM    177
            36                     1     PL       BSS    1           *PIT* LENGTH AT START OF BLOCK              GPOCOM    178
            37                     1     STP      BSS    1           "0 IF SOME *IP* IS A FUNCTION OF THE*LCV*   GPOCOM    180
                                  21     N.CLC    EQU    *-N.HB     'END OF ZEROED CELLS REGION                  GPOCOM    181
                                                  USE    0                                                       GPOCOM    182
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     7
        LOCAL VARIABLES                                               FLAGS     CCGSCR
  
                                                  USE    /CCGSCR/                                                CCG18     100
             0                   100     SCR      BSS    100B        *IA* LIST ( DUM - MTA ), CON LIST  ( MFA )  GRA        54
                                        *                            AND SCRATCH FOR *BDT/MCG*                   GRA        55
                                                                                                                 GRA        56
           100                           F.CLC    BSS    0          ?FWA OF CLEARED CELLS                        GRA        57
                                                                                                                 GRA        58
           100                    30     RAT      BSS    24          REGISTER ASSIGNMENT TABLE ( INITIAL VALUES  GRA        59
           130                    30     RVT      BSS    24          REGISTER VALUE TABLE ( R-NUMBER IN REG )    GRA        60
                                                                                                                 GRA        61
                                        *                        ERC                                             GRA        62
           160                     1     IAI      BSS    1           *IA* LIST INDEX                             GRA        63
           161                     1     TRA      BSS    1           TEMP/RJRS REG ASSIGNMENTS ( BIT MASK )      GRA        64
           162                     1     APF      BSS    1           APLN BITS OF BLOCK                          GRA        65
           163                     1     FBA      BSS    1           "0 IF FINAL B-ASSIGNMENTS FROM INNER LOOP   GRA        66
           164                     1     LCT      BSS    1           L.RCT AT END OF *ERC*                       GRA        67
                                        *                        SEE                                             GRA        68
           165                     1     NVC      BSS    1           N. VALUE CANIDATES                          GRA        69
           166                     1     TUD      BSS    1           SUSE[CI]-STC[UI] FOR LOOP CV                GRA        70
                                        *                        MTA                                             GRA        71
           167                     1     ABR      BSS    1           SET OF AVAIL B-REGS ( PACK(0,377B)          GRA        72
           170                     1     NAB      BSS    1           N. AVAILABLE B-REGS                         GRA        73
           171                     1     NTA      BSS    1           N. TENATIVE B-ASSIGNMENTS                   GRA        74
           172                     1     TRD      BSS    1           TEST REPLACEMENT DECISION                   GRA        75
                                        *                        DXA                                             GRA        76
           173                     1     NXC      BSS    1           N. X-CANIDATES                              GRA        77
           174                     5     XCT      BSS    5           X-REG CANIDATE TABLE                        GRA        78
           201                     1     MLW      BSS    1           MAX REG WIDTH AFTER X-ASSIGNMENT            GRA        79
                                        *                        CMR                                             GRA        80
           202                     2     N.LD     BSS    2           N. REMAINING LOADS AFTER REGISTER ASSIGNMEN GRA        81
                                 203 C   N.ST     EQU    N.LD+1      MAX NUMBER OF ST"S IN A BLOCK               GRA        82
                                        *                        DAA                                             GRA        83
           204                     1     MAA      BSS    1           MAX NUMBER OF A-ASSIGNMENTS                 GRA        84
           205                     1     NAA      BSS    1           N. A-ASSIGNMENTS                            GRA        85
           206                    10     ACT      BSS    8           A-CANIDATE TABLE                            GRA        86
                                        *                            24/,18/INC PTR,18/CANIDATE INDEX ( *RCT* )  GRA        87
                                        *                        MFA                                             GRA        88
           216                     1     CL       BSS    1           CON LIST POINTER                            GRA        89
           217                     1     NAC      BSS    1           N. ADDRESS CANIDATES                        GRA        90
           220                     1     ATI      BSS    1           INDEX TO *AI* TABLE ( LWA+1 )               GRA        91
           221                     1     CAIH     BSS    1           CA,IH OF BASE REGISTER                      GRA        92
           222                     1     PMF      BSS    1           PARTIAL MODIFICATION FLAG ( LD REG+CON "S ) GRA        93
           223                     5     CIT      BSS    5           IH CLASS INDEX TABLE                        GRA        94
                                                                                                                 GRA        95
                                 130     L.CLC    EQU    *-F.CLC    'LWA+1 OF CLEARED CELLS                      GRA        96
                                                                                                                 GRA        97
                                        *                        SUP                                             GRA        98
           230                     1     N        BSS    1           N. WDS IN POLY FORMULA                      GRA        99
                                 230 C   RR       EQU    N           R-NUMBER OF LAST RESULT                     GRA       100
                                        *                        CLB                                             GRA       101
           231                     1     NXS      BSS    1           N. EXTRA WORDS NEEDED                       GRA       102
           232                     1     MRU      BSS    1           MACHINE REGS USED BY *MCG*                  GRA       103
           233                     1     NPS      BSS    1           N. POST STORES                              GRA       104
           234                    13     PST      BSS    7+4         POST STORE LIST , 24/,18/REGNO,18/*RCT* ORD GRA       105
                                        *                        IRA                                             GRA       106
           247                     1     LBN      BSS    1           R1 WORD OF LAST ENCOUNTERED BOS/EOS         FCC0985    14
           250                     1     DTL      BSS    1           DEF TEXT LENGTH ( BOS + DEFS + EOQ )        FCC2051     5
           251                     1     LBJF     BSS    1           LOOP BACK JUMP ENCOUNTERED                  CCG0119     6
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     8
        LOCAL VARIABLES                                               FLAGS 
  
                                                  USE    0                                                       GRA       108
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE     9
        RCT - REGISTER CANIDATE TABLE FORMAT                          RCT 
  
                                        **        RCT - REGISTER CANIDATE TABLE FORMAT                           GRA       110
                                        *                                                                        GRA       111
                                        *         THE *RCT* IS A DICTIONARY OF ALL EXPRESSIONS ( MEMORY          GRA       112
                                        *         REFERENCES, CONSTANTS AND ADDRESS"S ) THAT ARE CANIDATES FOR   GRA       113
                                        *         REGISTER ASSIGNMENT. EACH ENTRY CONSISTS OF 3 WORDS.           GRA       114
  
  
                                        **        CA. - FIRST WORD OF CANIDATE TABLE                             GRA       116
                                                                                                                 GRA       117
                                                  DESCRIBE CA.,60                                                GRA       118
      L     73  40000000000000000000     RA       DEFINE 1           REGISTER ASSIGNED OR ADDRESS MODIFIED       GRA       119
      L     72  20000000000000000000     IRA      DEFINE 1           INITIAL REGISTER ASSIGNMENT ( *ERC/RS* )    GRA       120
                                                                                                                 GRA       121
                                        *         CANIDATE TYPE                                                  GRA       122
                                                                                                                 GRA       123
      L     71  10000000000000000000     VC       DEFINE 1           VALUE CANIDATE ( NOT SET FOR CONS )         GRA       124
      L     70  04000000000000000000     AC       DEFINE 1           ADDRESS CANIDATE                            GRA       125
      L     67  02000000000000000000     CON      DEFINE 1           CANDIATE IS A CONSTANT ( FMA, SET )         GRA       126
      L     66  01000000000000000000     FP       DEFINE 1           IH IS AN F.P.                               GRA       127
                                                                                                                 GRA       128
                                        *         USEAGE                                                         GRA       129
                                                                                                                 GRA       130
                                                  DEFINE 2                                                       GRA       131
      L     63  00100000000000000000     EU       DEFINE 1           EXPLICIT USEAGE IN LOOP ( CANNOT BE SUBSUME GRA       132
      L     62  00040000000000000000     RF       DEFINE 1           *RF* ( SHORT ) USEAGE                       GRA       133
      L     61  00020000000000000000     ^RD      DEFINE 1           NON RECURSIVE DEFINITION                    GRA       134
      L     60  00010000000000000000     IA       DEFINE 1           IA/IS USEAGE                                GRA       135
      L     57  00004000000000000000     TU       DEFINE 1           TEST USEAGE ( IN LOOP TERMINATION TEST )    GRA       136
                                                                                                                 GRA       137
                                        *         PROFIT CRITERIA                                                GRA       138
                                                                                                                 GRA       139
      L     54  00003400000000000000     PRFT     DEFINE 3           PROFIT                                      GRA       140
      L     52  00000300000000000000     APLN     DEFINE 2           APPEARENCE IN ARTICULATION PT/LATCH NODE    GRA       141
      L     41  00000077700000000000     NOCC     DEFINE 9           NUMBER OF OCCURANCES                        GRA       142
      L     30  00000000077700000000     SUSE     DEFINE 9           SUM( USES ) + SUM( USES(INC)-1 )            GRA       143
                                                                                                                 GRA       144
                                        *         ENTRY/EXIT CONDITIONS                                          GRA       145
                                                                                                                 GRA       146
      L     27  00000000000040000000     PL       DEFINE 1           PRELOAD NECESSARY                           GRA       147
      L     26  00000000000020000000     PSP      DEFINE 1           POST STORE POSSIBLE                         GRA       148
      L     25  00000000000010000000     DEF      DEFINE 1           DEFINED IN REGION                           GRA       149
      L     24  00000000000004000000     USE      DEFINE 1           USED IN REGION                              GRA       150
      L     23  00000000000002000000     LX       DEFINE 1           LIVE ON EXIT FROM REGION                    GRA       151
      L     22  00000000000001000000     KD       DEFINE 1           KILL DEFS ( STORES )                        GRA       152
                                                                                                                 GRA       153
             0  00000000000000777777     UDI      DEFINE 18          INDEX TO *UDT*                              GRA       154
  
  
      L     72  60000000000000000000     RAF      DEQU   IRA,2       REGISTER ASSIGNMENT FIELDS                  GRA       156
      L     67  16000000000000000000     CT       DEQU   CON,3       CANIDATE TYPE  ( CON,AC,VC )                FCC0594     5
      L     24  00000000000014000000     DU       DEQU   USE,2       DEF AND USE BITS                            GRA       157
      L     30  00007777777700000000     SORT     DEQU   SUSE,CA.TUP+1-CA.SUSEP  SORT FIELDS                     GRA       158
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    10
        RCT - REGISTER CANIDATE TABLE FORMAT                          IH
  
                                        **        IH. - FORMAT OF SECOND *RCT* WORD                              GRA       160
                                                                                                                 GRA       161
                                                  DESCRIBE IH.,60                                                GRA       162
      L     73  40000000000000000000     MSK      DEFINE 1           MASK FLAG                                   GRA       163
      L     66  37000000000000000000     SLV      DEFINE 5           SPECIAL LOAD VALUE ( 0/1/2 = LD/LDC,LDV )   CCG16     205
      L     44  00777777000000000000     RF       DEFINE 18          RCT INDEX OF *RF* OF REFERENCE              GRA       165
      L     22  00000000777777000000     CA       DEFINE 18          BIAS OR CON VALUE OF *S* FOR *JK* OF MASK   GRA       166
             0  00000000000000777777     IH       DEFINE 18          SYMBOL ORDINAL                              GRA       167
  
  
                                        **        CC. - FORMAT OF THIRD WORD OF AN *RCT* ENTRY                   GRA       169
                                                                                                                 GRA       170
                                                  DESCRIBE CC.,60                                                GRA       171
      L     73  40000000000000000000     I1       DEFINE 1           INCREMENTED ONCE ( FOR A *RD* )             GRA       172
      L     72  20000000000000000000     I2       DEFINE 1           INCR MORE THAN ONCE ! INCR ON SIDE BRANCH   FCC0603     9
      L     71  10000000000000000000     IM       DEFINE 1           =1 IF INC VALUE IS MINUS VALUE OF *RCT* ENT GRA       174
                                                  DEFINE 3                                                       GRA       175
      L     44  00777777000000000000     INC      DEFINE 18          *RCT* INDEX OF INCREMENT VALUE OF FIRST INC GRA       176
                                                                                                                 GRA       177
      L     22  00000000777777000000     H2       DEFINE 18          SYMTAB ORDINAL OF SECOND SYM ( IH-H2 )      GRA       178
      L     14  00000000000000770000     REG2     DEFINE 6           REGNO OF SECOND REGISTER ( REG1+-REG2 )     GRA       179
      L      6  00000000000000007700     MIT      DEFINE 6           MACHINE INSTRUCTION TYPE FOR ADDRESS CANIDA GRA       180
                                        *                            0 - LD/ST/STT REG1+CA+IH-H2                 GRA       181
                                        *                            1 - PLD/PST/STT  REG1+CA , CA " 0           GRA       182
                                        *                            2 - SLD/SST/SA  REG1+REG2                   GRA       183
                                        *                            3 - SDL/SDS/SS  REG1-REG2                   GRA       184
                                        *                            4 - SLD/SST/SA  REG1+REG2 , WHERE RJ IS     FCC0646    14
                                        *                                  FROM RF OF OLD INST, NOT *RVT*.       FCC0646    15
                                4000     V.SRF    EQU    1S11        42 - SIMILAR *IP* ADDRESS DIFFERENCES       FCC0977     8
                                                                                                                 GRA       185
             0  00000000000000000077     REG1     DEFINE 6           REGNO OF REGISTER ASSIGNED                  GRA       186
                                                                                                                 FCC0811     6
             0  00000000000000777777     REGF     DEQU   REG1,18     REG1, REG2 AND MIT FIELDS                   FCC0811     7
  
  
  
                                        **        RA. - REGISTER ASSIGNMENT TABLE FORMAT                         GRA       188
                                        *                                                                        GRA       189
                                        *         *RAT* HOLDS THE RCT ORDINALS OF THE VALUE THAT REGISTERS WILL  GRA       190
                                        *         BE INITIALIZED TO IN THE HOLDING BLOCK ( LOOP PROLOGUE ).      GRA       191
                                        *                                                                        GRA       192
                                        *         THE EVALUATION FORMULA IS - SET(R3) + R1 - R2 .                GRA       193
                                        *         AND THE *RF* FIELD IN THE *RCT* ENTRY OF R3 IS IGNORED.        GRA       194
                                                                                                                 GRA       195
                                                  DESCRIBE RA.,60                                                GRA       196
      L     73  40000000000000000000     INV      DEFINE 1           =1 IF REGISTER IS *INV* IN LOOP             GRA       197
                                                  DEFINE 5                                                       GRA       198
      L     44  00777777000000000000     R3       DEFINE 18          RCT ORDINALS                                GRA       199
      L     22  00000000777777000000     R2       DEFINE 18                                                      GRA       200
             0  00000000000000777777     R1       DEFINE 18                                                      GRA       201
                                                                                                                 GRA       202
                                                  LIST   R,-X                                                    GRA       203
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    11
        DEBUGGING FACILITIES                                          GRA 
  
                                        **        PRNT - PRINT OUT SELECTED STRUCTURES                           GRA       205
                                        *                                                                        GRA       206
                                        *         PRNT   LAB,(RCT,RAT,RVT)                                       GRA       207
                                                                                                                 GRA       208
                                   1     .1       SET    1                                                       GRA       209
                                                  ECHO   2,X=(RCT,RAT,RVT,SEE,MTA,DXA,DAA,MFA,SUP,SXC)           GRA       210
                                         Q.X      SET    .1                                                      GRA       211
                                         .1       SET    .1+1                                                    GRA       212
                                                                                                                 GRA       213
                                         PRNT     MACRO  LAB,LIST                                                GRA       214
                                                  LOCAL  APL                                                     GRA       215
                                         O        IF     DEF,/DEBUG/LAB                                          FCC1196     5
                                        +         RJ     CPR                                                     GRA       217
                                        -         VFD    30/APL                                                  GRA       218
                                                  USE    DEBUG                                                   GRA       219
                                         APL      CON    10H LAB                                                 GRA       220
                                                  IF     DEF,Q.LAB,1                                             GRA       221
                                                  VFD    6/Q.LAB                                                 GRA       222
                                                  IRP    LIST                                                    GRA       224
                                                  VFD    6/Q.LIST                                                GRA       225
                                                  IRP                                                            GRA       226
                                                  VFD    *P/0                                                    GRA       227
                                                  USE    *                                                       GRA       228
                                         O        ENDIF                                                          GRA       229
                                                  ENDM                                                           GRA       230
                                                                                                                 GRA       231
                                         .T       IFNE   TEST,0                                    *TEST MODE*   GRA       232
                                                                                                                 GRA       233
                                         CPR      ROUTINE                                                        GRA       234
                                                  RJ     =XSVR=                                                  CCG7      113
                                                  SA1    CPR                                                     GRA       236
                                                  SA3    O.RCT                                                   GRA       237
                                                  LX1    30                                                      GRA       238
                                                  SA2    X1-1                                                    GRA       239
                                                  SX6    X2                                                      GRA       240
                                                  BX7    X3                                                      GRA       241
                                                  SA6    CPRA        LOC(LAB)                                    GRA       242
                                                  SA7    CPRA+1                                                  GRA       243
                                                  SX6    X6+1                                                    GRA       244
                                                  SA6    CPRA+3      LOC(INDEX)                                  GRA       245
                                                  SA1    CPRA                                                    GRA       246
                                                  CALL   PRNTGRA                                                 GRA       247
                                                  RJ     =XRSR=                                                  CCG7      114
                                                  EQ     CPR                                                     GRA       249
                                                                                                                 GRA       250
                                         CPRA     BSS    2                                                       GRA       251
                                                  VFD    42/,18/L.RCT                                            GRA       252
                                                  BSSZ   2                                                       GRA       253
                                                                                                                 GRA       254
                                                  USE    /RCTFMT/                                                GRA       255
                                                  ECHO   1,X=(RA,VC,AC,CON,FP,EU,RF,^RD,IA,TU,PL,PSP,DEF,USE,LX, GRA       256
                                        ,KD,IRA)                                                                 GRA       257
                                                  VFD    42/0A_X,18/60-CA.X_P                                    GRA       258
                                                  USE    0                                                       GRA       259
                                         .T       ENDIF                                            *TEST MODE*   GRA       260
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    12
        GRA - CONTROL                                                 GRA 
  
                                        **        GRA - GLOBAL REGISTER ASSIGNMENT ( CONTROL )                   GRA       262
                                                                                                                 FCC0603    10
             0  00000000000000000004     MARA     DATA   4           MAX A-REGISTER ASSIGNMENTS                  FCC0603    11
             1                           GRASRF   ENTRY. 0,#         =1 IF ADDRESS DIFFERENCING OF SIMILAR *IP"S CCGNC     646
                                                                                                                 GRA       263
             2                           GRA      ENTRY. **,#                                                    CCGNC     647
             3  7170000000                        SX7    0                                                       CCG0022     5
                          5170000000 X            SA7    =XNBIP#     NBIP = 0    */ FOR BDT                      CCG0022     6
             4  7170000004                        SX7    4                                                       FCC0603    12
                          5170000000 +            SA7    MARA        MARA = 4                                    FCC0603    13
                                                                                                                 FCC0603    14
             5  0100000035 +             GRA0     RJ     IRP         INITIALIZE REGION PROCESSING                FCC0603    15
                                                  IF     DEF,/DEBUG/UDT,1                                        GRA       266
                                                  DCALL  PRNTUDI,([O.UDT],L.UDT)                                 GRA       267
                                                                                                                 GRA       268
             6  5110000015 C                      SA1    MRA                                                     GRA       269
                          0301000027 +            ZR     X1,GRA3     IF MRA = 0    */ USER OR I/O EXT REFS       GRA       270
                                                                                                                 GRA       271
             7  7170000450 +                      CLCM   DUM         DETERMINE USEAGE MODE                       GRA       272
            11  7170000164 +                      CLCM   ERC         ENTER REGISTER CANIDATES                    GRA       273
            13  5150000000 X                      SA5    L.RCT                                                   GRA       274
                          7265000000              SX6    X5+         LCT = L.RCT                                 GRA       275
            14  5160000164 C                      SA6    LCT                                                     GRA       276
                                                                                                                 GRA       277
                          0100000056 +            RJ     SEE         SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDAT GRA       278
                                                  PRNT   SEE                                                     GRA       279
                                                                                                                 GRA       280
            15  0100000741 +                      RJ     MTA         MAKE TENATIVE B-ASSIGNMENTS, COUNTING METHO GRA       281
                                                  PRNT   MTA,(RAT,RCT)                                           GRA       282
                                                                                                                 GRA       283
            16  5110000020 C                      SA1    XRF                                                     GRA       284
                          0311000026 +            NZ     X1,GRA2     IF XRF " 0    */ EXT REFS IN THE LOOP       GRA       285
            17  5120000017 C                      SA2    N.HB                                                    GRA       286
                          0312000025 +            NZ     X2,GRA1     IF N.HB " 0   */ NOT INNERMOST LOOP         GRA       287
                                                                                                                 GRA       288
            20  5130000034 C                      SA3    MAXW                                                    GRA       289
                          5140000171 C            SA4    NTA                                                     GRA       290
            21  6233000000                        SB3    X3+                                                     GRA       291
                          6244000010              SB4    X4+8                                                    GRA       292
            22  0743000026 +                      GT     B3,B4,GRA2  IF MAXW > NTA+8 */ LOOP IS TOO WIDE         GRA       293
                                                                                                                 GRA       294
                          0100001115 +            RJ     DXA         DETERMINE X-ASSIGNMENTS                     GRA       295
                                                  PRNT   DXA                                                     GRA       296
                                                                                                                 GRA       297
            23  0100001340 +                      RJ     DAA         DETERMINE A-ASSIGNMENTS                     GRA       298
                                                  PRNT   DAA                                                     FCC1039     6
            24  0400000026 +                      EQ     GRA2                                                    GRA       300
                                                                                                                 GRA       301
            25  0100001115 +             GRA1     RJ     DXA         MOVE PREVIOUS X-ASSIGNMENTS OUT             GRA       302
                                                                                                                 GRA       303
            26  0100001572 +             GRA2     RJ     MFA         MAKE FINAL B-ASSIGNMENTS                    GRA       304
                                                  PRNT   MFA,(RAT,RCT)                                           GRA       305
                                                                                                                 GRA       306
            27  0100002753 +             GRA3     RJ     CLB         CODE LOOP BODY                              GRA       307
                                                                                                                 GRA       308
            30  0100002324 +                      RJ     SUP         SETUP PRELOADS IN HOLDING BLOCK             GRA       309
                                                  PRNT   SUP,RAT                                                 GRA       310
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    13
        GRA - CONTROL                                                 GRA 
  
                                                                                                                 GRA       311
            31  0100002643 +                      RJ     SXC         SET EXIT CONDITIONS ( POST STORES, ETC. )   GRA       312
                                                  TRACE  SXC,TET                                                 GRA       313
                                                  PRNTABV  SXC,(LUV,LEA)                                         GRA       314
            32  7160000000                        SX6    0                                                       GRA       315
                          5160000000 X            SA6    L.RCT       L.RCT = 0                                   GRA       316
            33  5160000000 X                      SA6    L.RXI       L.RXI = 0                                   GRA       317
                          5160000001 +            SA6    GRASRF      GRASRF = 0                                  FCC0977    10
            34  0400000002 +                      EQ     GRA                                                     GRA       318
  
  
  
                                        **        IRP - INITIALIZE REGION PROCESSING                             GRA       320
                                                                                                                 GRA       321
            35  0200400035 +             IRP      ROUTINE                                                        GRA       322
                                                                                                                 GRA       323
            36  43600                             SETZERO F.CLC,L.CLC      ZERO SCRATCH AREA                     GRA       324
                                                                                                                 GRA       325
                                        *         INITIALIZE *RCT* , FIRST ENTRY IS AN EMPTY ONE, USED AS A      GRA       326
                                        *         SEARCH TERMINATOR, SECOND ENTRY IS THE CONSTANT *1* .          GRA       327
                                                                                                                 GRA       328
            40  5150000055 +                      SA5    IRPA                                                    GRA       329
                          7110000006              ALLOC  RCT,6       ALLOC( RCT , 6 )                            GRA       330
            42  43600                             MX6    0                                                       GRA       331
                     5160001501 +                 SA6    AXCT        AXCT = 0                                    CCG0057     6
                               53620              SA6    X2                                                      GRA       332
            43  54661                             SA6    A6+B1                                                   GRA       333
                     54661                        SA6    A6+B1                                                   GRA       334
                          10755                   BX7    X5                                                      GRA       335
                               54761              SA7    A6+B1       RCT(4) = CAW(0,CON,RF,0)  */ CON 1          GRA       336
            44  76710                             SX7    B1                                                      GRA       337
                     20722                        LX7    IH.CAP                                                  GRA       338
                          54771                   SA7    A7+B1       RCT(5) = IHW(0,0,1,0)                       GRA       339
                               54671              SA6    A7+B1       RCT(6) = 0                                  GRA       340
            45  7170000144                        SX7    100                                                     GRA       341
                          5170000166 C            SA7    TUD         TUD = 100                                   GRA       342
                                                                                                                 GRA       343
            46  5110000017 C                      SA1    N.HB                                                    GRA       344
                          0301000051 +            ZR     X1,IRP1     IF N.HB = 0   */ INNERMOST LOOP             GRA       345
            47  5140000004 C                      SA4    LUV                                                     GRA       346
                          76510                   SX5    B1                                                      GRA       347
                               20566              LX5    UD.ISTP                                                 GRA       348
            50  0100000000 X                      CALL   EBV#        EBV( LUV , IST )  */ SET *IST* FOR DUM/ERC  CCGNC     648
                                                                                                                 GRA       350
                                        *         RESERVE *B3* FOR ASSIGNED GOTO COMPARE TEST, IF A              FCC0909    30
                                        *         LABEL SWITCH WAS PERFORMED ( LGL " 0 ) .                       FCC0909    31
                                                                                                                 FCC0909    32
            51  5110000027 C             IRP1     SA1    N.LJ                                                    FCC0909    33
                          20101                   LX1    1                                                       FCC0909    34
            52  0321000035 +                      PL     X1,IRP      IF ^B58[N.LJ]                               FCC0909    35
                                                                                                                 FCC0909    36
                          5120000015 C            SA2    MRA                                                     FCC0909    37
            53  7170000010                        SX7    1S3                                                     FCC0909    38
                          15627                   BX6    -X7*X2      MRA = MRA & ^1S3  */ MAKE *B3* UNAVAIL      FCC0909    39
                               54620              SA6    A2                                                      FCC0909    40
            54  5170000161 C                      SA7    TRA         TRA = 1S3     */ INDICATE TEMP USE OF *B3*  FCC0909    41
                          0400000035 +            EQ     IRP                                                     FCC0909    42
1       GRA - GLOBAL REGISTER ASSIGNMENT                              COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    14
        GRA - CONTROL                                                 IRP 
  
                                                                                                                 GRA       390
            55                           IRPA     BFMW   CA,(CON,RF)                                             GRA       391
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    15
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                        **        SEE - SET ENTRY/EXIT CONDITIONS FOR VALUE CANIDATES IN *RCT*   GRA       394
                                                                                                                 GRA       395
            56  0200400056 +             SEE      ROUTINE                                                        GRA       396
            57  5150000000 X                      SA5    O.RCT                                                   GRA       397
                          5140000000 X            SA4    L.RCT                                                   GRA       398
            60  5130000000 X                      SA3    BVL                                                     GRA       399
                          5120000007 C            SA2    LEA                                                     GRA       400
            61  5110000000 C                      SA1    O.UDT                                                   GRA       401
                          63240                   SB2    X4                                                      GRA       402
                               63720              SB7    X2                                                      GRA       403
            62  43072                             MX0    -CA.DUL                                                 GRA       404
                     63631                        SB6    X3+B1       VL = BVL + 1  */ BIT VECTOR LENGTH          GRA       405
                          6150000002              SB5    59-CA.VCP                                               GRA       406
            63  53552                             SA5    X5+B2       CI = O.RCT + L.RCT                          GRA       407
                     6130000003                   SB3    3                                                       GRA       408
                               53011              SA0    X1+B1       UB = O.UDT + 1                              GRA       409
            64  66400                             SB4    B0          NV = 0                                      GRA       410
                     0400000067 +                 EQ     SEE2                                                    GRA       411
                                                                                                                 GRA       412
                                        *         COMPILER TEMPORARY, SET PROFIT = DU[CI]+1                      GRA       413
                                                                                                                 GRA       414
            65  73771                    SEE1     SX7    X7+B1                                                   GRA       415
                     20754                        LX7    CA.PRFTP                                                GRA       416
                          76410                   SX4    B1                                                      GRA       417
                               12675              BX6    X7+X5       PRFT[CI] = DU[CI] + 1                       GRA       418
            66  20426                             LX4    CA.PSPP                                                 GRA       419
                     12646                        BX6    X4+X6       PSP[CI] = 1                                 GRA       420
                          5065000000              SA6    A5+                                                     GRA       421
                                                                                                                 GRA       422
                                        *         SEARCH BACKWARDS FOR VALUE CANIDATES                           GRA       423
                                                                                                                 GRA       424
            67  55553                    SEE2     SA5    A5-B3       CI = CI - 3                                 GRA       425
                     0305000123 +                 ZR     X5,SEE6     IF [CI] = 0   */ END OF TABLE               GRA       426
                               22655              LX6    B5,X5                                                   GRA       427
            70  0326000067 +                      PL     X6,SEE2     IF ^VC[CI]                                  GRA       428
                                                                                                                 GRA       429
                          63250                   SB2    X5          I = UDI[CI]                                 GRA       430
                               20646              LX6    1+CA.VCP-CA.DUP                                         GRA       431
            71  15760                             BX7    -X0*X6      DUB = DU[CI]                                GRA       432
                     66441                        SB4    B4+B1       NV = NV + 1                                 GRA       433
                          0420000065 +            ZR     B2,SEE1     IF I = 0      */ COMPILER TEMP              GRA       434
            72  0623000075 +                      GE     B2,B3,SEE2A IF I > 2      */ PROGRAMMER VAR             FCC0645     9
                                                                                                                 FCC0645    10
                                        *         LOAD ONLY VARIABLE, SET PRFT = 1 AND PL = 1                    FCC0645    11
                                                                                                                 FCC0645    12
                          76410                   SX4    B1                                                      FCC0645    13
                               20427              LX4    CA.PLP      PL[CI] = 1                                  FCC0645    14
            73  12545                             BX5    X4+X5                                                   FCC0645    15
                     20425                        LX4    CA.PRFTP-CA.PLP                                         FCC0645    16
                          12645                   BX6    X4+X5       PRFT[CI] = 1                                FCC0645    17
                               54650              SA6    A5                                                      FCC0645    18
            74  0400000067 +                      EQ     SEE2                                                    FCC0645    19
                                                                                                                 GRA       435
                                        *         PROCESS PROGRAMMER VARIABLE, EXIT INFO COMPUTED IN *FXI*       GRA       436
                                                                                                                 GRA       437
            75  54402                    SEE2A    SA4    A0+B2       U2 = UDT(I+1)                               FCC0645    20
                     53247                        SA2    B7+X4       VA = LEA + WI[UI];  LE = [VA]               GRA       439
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    16
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                          76110                   SX1    B1                                                      GRA       440
                               26324              UX3    B2,X4       B = BITN[U2]                                GRA       441
            76  23422                             AX4    B2,X2                                                   GRA       442
                     11214                        BX2    X1*X4                                                   GRA       443
                          20227                   LX2    CA.PLP      PL[CI] = SHIFT(LE,-B)&1  */ PRELOAD         GRA       444
                               12525              BX5    X2+X5                                                   GRA       445
            77  55326                             SA3    A2-B6       LXA = VA - VL;  LX = [LXA]                  GRA       446
                     23423                        AX4    B2,X3                                                   GRA       447
                          11214                   BX2    X1*X4                                                   GRA       448
                               20223              LX2    CA.LXP      LX[CI] = SHIFT(LX,-B)&1  */ LIVE EXIT       GRA       449
           100  12525                             BX5    X2+X5                                                   GRA       450
                     54326                        SA3    A2+B6       VA = VA + VL;  MD = [VA]  */ MOVABLE DEFS   GRA       451
                          23423                   AX4    B2,X3                                                   GRA       452
                               11114              BX1    X1*X4                                                   GRA       453
           101  20126                             LX1    CA.PSPP     PSP[CI] = SHIFT(MD,-B)&1  */ POST ST POSSIB GRA       454
                     12515                        BX5    X1+X5                                                   GRA       455
                                                                                                                 GRA       456
                          20672                   LX6    CA.DUP+59-CA.DEFP                                       GRA       457
           102  0326000107 +                      PL     X6,SEE3     IF ^DEF[CI]                                 GRA       458
                          0311000107 +            NZ     X1,SEE3     IF PSP[CI]    */ POST STORE POSSIBLE        GRA       459
           103  10466                             BX4    X6                                                      GRA       460
                     20442                        LX4    CA.DEFP-CA.TUP                                          GRA       461
                          0334000107 +            MI     X4,SEE3     IT TU[CI]     */ KEEP CV FIRST IN MTA SORT  GRA       462
           104  7277777775                        SX7    X7-2        DUB = DUB - 2                               GRA       463
                          0317000107 +            NZ     X7,SEE3     IF DUB " 0    */ USED ALSO IN REGION        GRA       464
                                                                                                                 GRA       465
                                        *         DEF ONLY AND NOT MOVABLE, CLEAR VC BIT                         GRA       466
                                                                                                                 GRA       467
           105  76110                             SX1    B1                                                      GRA       468
                     20171                        LX1    CA.VCP                                                  GRA       469
                          15651                   BX6    -X1*X5      VC[CI] = 0                                  GRA       470
                               54650              SA6    A5                                                      GRA       471
           106  0400000067 +                      EQ     SEE2                                                    GRA       472
                                                                                                                 GRA       473
                                        *         SET PROFIT = 1 IF USE ! DEF , ELSE 3                           GRA       474
                                                                                                                 GRA       475
           107  63271                    SEE3     SB2    X7+B1                                                   GRA       476
                     0523000110 +                 NE     B2,B3,SEE4  IF DUB " 2    */ NOT DEF ONLY               GRA       477
                               76710              SX7    B1          DUB = 1                                     GRA       478
                                                                                                                 GRA       479
           110  20754                    SEE4     LX7    CA.PRFTP                                                GRA       480
                     12757                        BX7    X5+X7       PRFT[CI] = DUB                              GRA       481
                          5075000000              SA7    A5+                                                     FCC0839     4
           111  0326000067 +                      PL     X6,SEE2     IF ^DEF[CI]    */ USED ONLY                 FCC0839     5
                          20640                   LX6    CA.DEFP-CA.^RDP                                         FCC0839     6
           112  0312000067 +                      NZ     X2,SEE2     IF LX[CI]                                   GRA       484
                                                                                                                 GRA       485
                                        *         DEAD ON EXIT FROM THE LOOP, KILL DEFINITIONS OF CANIDATE       GRA       486
                                        *         IF IT HAS NO REAL USES IN THE LOOP                             GRA       487
                                                                                                                 GRA       488
                          0326000115 +            PL     X6,SEE4A    IF RD[CI]                                   GRA       489
                                                                                                                 GRA       490
           113  20635                             LX6    CA.^RDP-CA.USEP                                         GRA       491
                     0336000067 +                 MI     X6,SEE2     IF USE[CI]                                  GRA       492
                                                                                                                 GRA       493
                               43600              MX6    0           DIFF = 0                                    GRA       494
           114  0400000121 +                      EQ     SEE5                                                    GRA       495
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    17
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                                                                                                 GRA       496
           115  55441                    SEE4A    SA4    A4-B1       UI = UDT(I)                                 GRA       497
                     20544                        LX5    -CA.SUSEP                                               GRA       498
                          20417                   LX4    -UD.STCP                                                GRA       499
                               43163              MX1    -UD.STCL                                                GRA       500
           116  15441                             BX4    -X1*X4                                                  GRA       501
                     15151                        BX1    -X1*X5                                                  GRA       502
                          37614                   IX6    X1-X4       DIFF = SUSE[CI] - STC[UI]                   GRA       503
                               20544              LX5    CA.SUSEP+59-CA.TUP                                      GRA       504
           117  0325000121 +                      PL     X5,SEE5     IF ^TU[CI]    */ NOT THE LOOP *CV*          GRA       505
                                                                                                                 GRA       506
                          5160000166 C            SA6    TUD         TUD = DIFF    */ SAVE *DIFF* FOR LATER USE  GRA       507
           120  0400000067 +                      EQ     SEE2                                                    GRA       508
                                                                                                                 GRA       509
           121  0316000067 +             SEE5     NZ     X6,SEE2     IF DIFF " 0   */ VAR HAS REAL USES          GRA       510
                                                                                                                 GRA       511
                          5140000162 +            SA4    SEEA                                                    GRA       512
           122  12747                             BX7    X4+X7       (RA,KD)[CI] = 1                             GRA       513
                     54770                        SA7    A7                                                      GRA       514
                          0400000067 +            EQ     SEE2                                                    GRA       515
  
  
                                        *         CHECK FOR FINAL ASSIGNMENTS OF CANIDATES IN AN OUTER LOOP      GRA       517
                                        *         AND IF SO, ADJUST *INV* BIT OF *RAT* ENTRIES.                  GRA       518
                                                                                                                 GRA       519
           123  5110000173 C             SEE6     SA1    NXC                                                     GRA       520
                          5120000163 C            SA2    FBA                                                     GRA       521
           124  76641                             SX6    B4+B1       NVC = NV + 1  */ N. VALUE CANIDATES         GRA       522
                     64650                        SB6    A5                                                      GRA       523
                          5160000165 C            SA6    NVC                                                     GRA       524
           125  36712                             IX7    X1+X2                                                   GRA       525
                     0307000147 +                 ZR     X7,SEE11    IF FBA + NXC = 0  */ NO FINAL ASSIGNMENTS   GRA       526
                               43001              MX0    1                                                       GRA       527
           126  7120000027                        SX2    27B         I = 27B                                     GRA       528
                          6170000100 C            SB7    RAT                                                     GRA       529
           127  0311000130 +                      NZ     X1,SEE7     IF NXC " 0                                  GRA       530
                          7120000007              SX2    7           I = 7                                       GRA       531
                                                                                                                 GRA       532
           130  53527                    SEE7     SA5    B7+X2                                                   GRA       533
                     0305000146 +                 ZR     X5,SEE8     IF RAT(I) = 0                               GRA       534
                               53456              SA4    B6+X5       J = R1[RAT(I)];  CAW = RCT(J)               FCC1014     5
           131  20446                             LX4    59-CA.DEFP                                              GRA       536
                     15304                        BX3    -X4*X0                                                  GRA       537
                                                  LX3    1+RA.INVP                                               GRA       538
                          12635                   BX6    X3+X5       INV[RAT(I)] = ^DEF[RCT(J)]                  GRA       539
                               54650              SA6    A5                                                      GRA       540
           132  20426                             LX4    CA.DEFP-CA.RAP                                          GRA       541
                                         .FTN     IFEQ   HC.ID,2                                     ?FTN        CCG4       60
                     0324000143 +                 PL     X4,SEE7A    IF ^RA[CAW]                                 FCC1014     6
                                                                                                                 FCC1014     7
                                        *         CHECK FOR CANDIDATE OF FORM  LD  A0+K AND CHANGE TO F.P. ADDR  FCC1014     8
                                                                                                                 FCC1014     9
                               21522              AX5    RA.R1L                                                  FCC1014    10
           133  0315000146 +                      NZ     X5,SEE8     IF (R2,R3)[CAW] " 0                         FCC1014    11
                                                  LX4    1+CA.RAP                                                FCC1014    12
                          7264777775              SX6    X4-2                                                    FCC1014    13
           134  0316000146 +                      NZ     X6,SEE8     IF UDI[CAW] " 1                             FCC1014    14
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    18
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                          54341                   SA3    A4+B1       C2W = RCT(J+1)                              FCC1014    15
                               20330              LX3    -IH.RFP                                                 FCC1014    16
           135  63230                             SB2    X3                                                      FCC1014    17
                     20322                        LX3    IH.RFP-IH.CAP                                           FCC1014    18
                          0521000146 +            NE     B2,B1,SEE8  IF RF[C2W] " 1                              FCC1014    19
                                                                                                                 FCC1014    20
           136  5110000000 X                      SA1    =XO$FPI                                                 CCG18     101
                          63230                   SB2    X3                                                      CCG18     102
                               53112              SA1    X1+B2                                                   CCG18     103
                                                  LX1    -FP.PNTP    IH = PNT[FPI(CA)]                           CCG18     104
           137  73610                             SX6    X1                                                      CCG18     105
                     54630                        SA6    A3          RCT(J+1) = IHW(0,0,IH)                      CCG18     106
                          76310                   SX3    B1                                                      FCC1014    23
                               20370              LX3    CA.ACP                                                  FCC1014    24
           140  12643                             BX6    X4+X3       AC[CAW] = 1                                 FCC1014    25
                     20301                        LX3    CA.VCP-CA.ACP                                           FCC1014    26
                          15663                   BX6    -X3*X6      VC[CAW] = 0                                 FCC1014    27
                               54640              SA6    A4                                                      FCC1014    28
           141  5044000002                        SA4    A4+2                                                    FCC1014    29
                          7150000200              SX5    2S6                                                     FCC1014    30
           142  12645                             BX6    X4+X5       MIT[RCT(J+2)] = 2                           FCC1014    31
                     54640                        SA6    A4                                                      FCC1014    32
                          0400000146 +            EQ     SEE8                                                    FCC1014    33
                                         .FTN     ENDIF                                              'FTN        CCG4       66
                                                                                                                 GRA       543
                                        *         INV ADDRESS CANIDATE AND *RF* NOT MARKED                       GRA       544
                                                                                                                 GRA       545
           143  20444                    SEE7A    LX4    1+CA.RAP-CA.SUSEP                                       FCC1014    34
                     43763                        MX7    -CA.SUSEL                                               GRA       547
                          15347                   BX3    -X7*X4                                                  GRA       548
           144  0313000146 +                      NZ     X3,SEE8     IF SUSE[RCT(J)] " 0  */ OTHER USES          GRA       549
                                                                                                                 GRA       550
                          20430                   LX4    CA.SUSEP+59-CA.RAP                                      GRA       551
                               12604              BX6    X0+X4       RA[RCT(J)] = 1                              GRA       552
                                                  LX6    1+CA.RAP                                                GRA       553
           145  76710                             SX7    B1                                                      GRA       554
                     20762                        LX7    CA.RFP                                                  GRA       555
                          15667                   BX6    -X7*X6      RF[RCT(J)] = 0  */ FOR *MTA*                GRA       556
                               54640              SA6    A4                                                      GRA       557
                                                                                                                 GRA       558
           146  7222777776               SEE8     SX2    X2-1        I = I - 1                                   GRA       559
                          0312000130 +            NZ     X2,SEE7     IF I " 0                                    GRA       560
  
                                        *         SCAN *IA* LIST TO SET USEAGE MODE FOR ENTRIES ON IT            GRA       562
                                                                                                                 GRA       563
           147  5110000160 C             SEE11    SA1    IAI                                                     GRA       564
                          0301000056 +            ZR     X1,SEE      IF IAI = 0    */ NO *IA* INCRS              GRA       565
                                                                                                                 GRA       566
           150  6120000000 C                      SB2    SCR         K = 0                                       GRA       567
                          63312                   SB3    X1+B2                                                   GRA       568
                               76010              SX0    B1                                                      GRA       569
           151  20062                             LX0    CA.RFP                                                  GRA       570
                     76110                        SX1    B1                                                      GRA       571
                          20163                   LX1    CA.EUP                                                  GRA       572
           152  6150000051                        SB5    59-CA.KDP                                               GRA       573
                          76410                   SX4    B1                                                      FCC0535     5
                               20423              LX4    CA.LXP                                                  FCC0535     6
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    19
        SEE - SET ENTRY/EXIT CONDITIONS                               SEE 
  
                                                                                                                 GRA       574
           153  56220                    SEE12    SA2    B2          (J,I) = SCR(K)                              GRA       575
                     66221                        SB2    B2+B1       K = K + 1                                   GRA       576
                          53526                   SA5    B6+X2       CAW = RCT(I)  */ *RD* VAR                   GRA       577
                               22655              LX6    B5,X5                                                   GRA       578
           154  0336000161 +                      MI     X6,SEE14    IF KD[CAW]    */ INC IS USELESS             GRA       579
                                                                                                                 GRA       580
                          11705                   BX7    X0*X5       BIT = RF[CAW]                               GRA       581
                               21222              AX2    18                                                      GRA       582
           155  0317000157 +                      NZ     X7,SEE13    IF BIT " 0    */ SHORT USEAGE IN THE LOOP   GRA       583
                                                                                                                 GRA       584
                          12615                   BX6    X1+X5       EU[CAW] = 1   */ MARK AS LONG USEAGE        GRA       585
                               54650              SA6    A5                                                      GRA       586
           156  10711                             BX7    X1          BIT = EU                                    GRA       587
                                                                                                                 GRA       588
           157  53326                    SEE13    SA3    B6+X2                                                   GRA       589
                     12673                        BX6    X7+X3       BIT[RCT(J)] = 1                             GRA       590
                          54630                   SA6    A3                                                      FCC0535     7
                               20304              LX3    59-CA.CONP                                              FCC0535     8
           160  0333000161 +                      MI     X3,SEE14    IF CON[RCT(J)]                              FCC0535     9
                          12646                   BX6    X4+X6       LX[RCT(J)] = 1  */ INHIBIT BIASING IN *MFA* FCC0535    10
                               54630              SA6    A3                                                      FCC0535    11
                                                                                                                 GRA       592
           161  0723000153 +             SEE14    LT     B2,B3,SEE12 IF K < IAI                                  GRA       593
                          0400000056 +            EQ     SEE                                                     GRA       594
                                                                                                                 GRA       595
           162                           SEEA     BFMW   CA,(RA,VC,KD)                                           GRA       596
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    20
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     ERC 
  
                                        **        ERC - ENTER REGISTER CANIDATES INTO *RCT*                      GRA       598
                                        *         FOWARD SCAN OF THE BLOCKS IN THE LOOP TO ENTER CANIDATES       GRA       599
                                        *         BY CALLING *SCT*. LINK WORDS OF CANIDATES POINT TO THEIR *RCT* GRA       600
                                        *         ENTRIES, ALL OTHERS ARE CLEARED.                               GRA       601
                                        *         SET BITS IN *LUV* ( LOOP USEAGE VECTOR ) FOR NON CANIDATE      GRA       602
                                        *         MEMORY REFERENCES.                                             GRA       603
                                        *         MARK FINAL B AND X ASSIGNMENTS FROM INNER LOOPS ( *RS* )       GRA       604
                                                                                                                 GRA       605
                                                  QUAL   ERC                                                     GRA       606
                                                                                                                 GRA       607
           163                                    PROCESS EOQ                                                    GRA       608
           163  77665                             SX6    B6-B5       L.RCT = CL - CO                             GRA       609
                     5160000000 X                 SA6    L.RCT                                                   GRA       610
                                                  TRACE  ERC,RLIST,SEQ                                           GRA       611
                                                                                                                 GRA       612
           164  0200400164 +             ERC      ROUTINE                                                        GRA       613
           165  22314                             LX3    B1,X4                                                   GRA       614
                     36134                        IX1    X3+X4                                                   GRA       615
                          5100000000 X            ALLOC  RCT,X1      ALLOC( RCT , 3*NC )                         GRA       616
           167  63520                             SB5    X2          CO = O.RCT                                  GRA       617
                     5150000000 X                 SA5    O.SEQ                                                   GRA       618
                               63626              SB6    X2+B6       CL = CO + OLD(L.RCT)                        GRA       619
           170  5140000004 C                      SA4    LUV                                                     GRA       620
                          5130000000 C            SA3    O.UDT                                                   GRA       621
           171  6130000003                        SB3    3                                                       GRA       622
                          63440                   SB4    X4          (B4) = [LUV]                                GRA       623
                               63753              S"TB"  X5+B3       TB = O.SEQ + 3                              GRA       624
           172  53550                             SA5    X5          R1 = O.SEQ                                  GRA       625
                     53030                        SA0    X3          (A0) = [O.UDT]                              GRA       626
                                                                                                                 GRA       627
           173                                    PROCESS (BOS,EOS)                                              GRA       628
           173  73750                             SX7    X5                                                      GRA       629
                     0307000176 +                 ZR     X7,ERC1     IF IH[R1] = 0 */ NO BLOCK NUMBER            GRA       630
                               20552              LX5    -R1.H2P                                                 GRA       631
           174  43472                             MX4    -CA.APLNL                                               GRA       632
                     15654                        BX6    -X4*X5                                                  GRA       633
                          20652                   LX6    CA.APLNP    APF = APLN[R1]                              GRA       634
           175  5160000162 C                      SA6    APF                                                     GRA       635
                                                                                                                 GRA       636
                                        *         CLEAR LINK WORD ( NON CANIDATE )                               GRA       637
                                                                                                                 GRA       638
           176                                    PROCESS CLR                                                    GRA       639
           176  43700                    ERC1     MX7    0                                                       GRA       640
                     54753                        SA7    A5+B3       LI = R1 + 3;  [LI] = 0  */ CLEAR LINK WORD  GRA       641
                                                                                                                 GRA       642
                                        *         ADVANCE TO NEXT INSTRUCTION                                    GRA       643
                                                                                                                 GRA       644
           177  5055000004               ERC2     SA5    A5+4        R1 = R1 + 4                                 GRA       645
                          26625                   UX6    B2,X5                                                   GRA       646
           200  0222000630 +                      JP     ERC.JT+B2   JUMP( ERC.JT( OC[R1] ) )                    GRA       647
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    21
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     SCON                ERC 
  
                                        *         CONSTANT CANIDATE PROCESSING                                   GRA       649
                                                                                                                 GRA       650
           201                                    PROCESS S                                                      GRA       651
           201  20536                             LX5    -R1.INP                                                 GRA       652
                     73650                        SX6    X5                                                      GRA       653
                          21673                   AX6    59                                                      GRA       654
                               73750              SX7    X5                                                      GRA       655
           202  13667                             BX6    X6-X7                                                   GRA       656
                     20622                        LX6    IH.CAP      C2W = IHW(0,0,ABS(IN[R1]),0)                GRA       657
                                                                                                                 GRA       658
           203  5035000002               SET1     SA3    A5+2        DI = R1 + 2                                 GRA       659
                          20325                   LX3    59-D.PRSP                                               GRA       660
           204  0323000210 +                      PL     X3,SET2     IF ^PRS[DI]                                 GRA       661
                          5025000004              SA2    A5+4        R1RS = R1 + 4                               GRA       662
           205  20243                             LX2    59-R1.SOP-SO.INVP                                       GRA       663
                     0322000176 +                 PL     X2,ERC1     IF ^INV[R1RS]  */ CHANGED IN INNER LOOP     GRA       664
                               73750              SX7    X5                                                      FCC0513     4
           206  0327000210 +                      PL     X7,SET2     IF IN[R1]  \ 0  */ *S* WITH NEGATIVE CON    FCC0513     5
                          43752                   MX7    -IH.CAL                                                 FCC0513     6
                               15657              BX6    -X7*X5                                                  FCC0513     7
           207  20622                             LX6    IH.CAP      C2W = IHW(0,0,IN[R1],0)                     FCC0513     8
                                                                                                                 GRA       665
           210  43400                    SET2     MX4    0           R = 0                                       GRA       666
                     76110                        SX1    B1                                                      GRA       667
                          43700                   MX7    0           CCW = 0                                     GRA       668
                               20167              LX1    CA.CONP     CPW = CAW(0,CON,0)                          GRA       669
           211  43201                             MX2    1                                                       GRA       670
                                                  LX2    1+IH.MSKP         */ FORCE *S* TO BE A B-CANIDATE       GRA       671
                     15226                        BX2    -X6*X2                                                  FCC0513     9
                          20263                   LX2    CA.RFP-IH.MSKP                                          GRA       673
                               12121              BX1    X2+X1       RF[CPW] = ^MSK[C2W]                         GRA       674
           212  0100000356 +                      RJ     SCT         ENTER CONSTANT                              GRA       675
           213  0400000177 +                      EQ     ERC2                                                    GRA       676
  
  
           214                                    PROCESS FMA                                                    GRA       678
           214  20536                             LX5    -R1.INP                                                 GRA       679
                     43701                        MX7    1                                                       GRA       680
                                                  LX7    1+IH.MSKP                                               GRA       681
                          73450                   SX4    X5                                                      GRA       682
                               20422              LX4    IH.CAP                                                  GRA       683
           215  12647                             BX6    X4+X7       C2W = IHW(1,0,IN[R1],0)                     GRA       684
                     0400000203 +                 EQ     SET1                                                    GRA       685
  
  
  
                                        *         SXT - ENTER *CA* OF FOLLOWING CON SHIFT                        GRA       687
                                                                                                                 GRA       688
           216                                    PROCESS SXT                                                    GRA       689
           216  5045000005                        SA4    A5+5        R2S = R1 + 5                                GRA       690
                          20452                   LX4    -IH.CAP                                                 GRA       691
                               73640              SX6    X4                                                      GRA       692
           217  20622                             LX6    IH.CAP      C2W = IHW(0,0,CA[R2S],0)                    GRA       693
                     43400                        MX4    0           R = 0                                       GRA       694
                          76110                   SX1    B1                                                      GRA       695
                               43700              MX7    0           CCW = 0                                     GRA       696
           220  20167                             LX1    CA.CONP     CPW = CAW(0,CON,0)                          GRA       697
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    22
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     SXT                 ERC 
  
                     0100000356 +                 RJ     SCT         ENTER CON                                   GRA       698
                                                                                                                 GRA       699
                                        *         CHECK PRED OF *SXT* AND BUMP USES OF CON, IF PRED IS MULTI USE GRA       700
                                                                                                                 GRA       701
           221  54550                             SA5    A5                                                      GRA       702
                     67271                        SB2    "TB"-B1                                                 GRA       703
                          43364                   MX3    -D.USESL+1                                              GRA       704
                               20534              LX5    -R1.RJP                                                 GRA       705
           222  15750                             BX7    "RN"X5      R = RJ[R1]                                  GRA       706
                     53472                        SA4    B2+X7       DIP = TB-1 + R                              GRA       707
                          20473                   LX4    -D.USESP-1                                              GRA       708
                               15743              BX7    -X3*X4                                                  GRA       709
           223  0307000177 +                      ZR     X7,ERC2     IF USES[DIP] = 1                            GRA       710
                          76310                   SX3    B1                                                      GRA       711
                               20341              LX3    CA.NOCCP                                                GRA       712
           224  36636                             IX6    X3+X6       NOCC[CAW] = NOCC[CAW] + 1                   GRA       713
                     54660                        SA6    A6                                                      GRA       714
                          0400000177 +            EQ     ERC2                                                    GRA       715
  
  
  
                                        *         STT - ENTER CONSTANT OR ADDRESS CANIDATE                       GRA       717
                                                                                                                 GRA       718
           225                                    PROCESS STT                                                    GRA       719
           225  5015000002                        SA1    A5+2        DI = R1 + 2                                 GRA       720
                          54351                   SA3    A5+B1       R2 = R1 + 1                                 GRA       721
                               20151              LX1    59-D.INCP                                               GRA       722
           226  20330                             LX3    -IH.RFP                                                 GRA       723
                     15430                        BX4    "RN"X3      R = RF[R2]                                  GRA       724
                          0321000232 +            PL     X1,STT2     IF ^INC[DI]   */ NOT AN INCREMENT           GRA       725
                                                                                                                 GRA       726
           227  20147                             LX1    D.INCP-D.PSP                                            FCC1039     7
                     0321000176 +                 PL     X1,ERC1     IF ^PS[DI]    */ THIS IS THE TEST INCR      FCC1039     8
                                                                                                                 GRA       731
                               20322              LX3    IH.RFP-IH.CAP                                           GRA       732
           230  73630                             SX6    X3                                                      GRA       733
                     0326000231 +                 PL     X6,STT1                                                 GRA       734
                               14666              BX6    -X6                                                     GRA       735
           231  20622                    STT1     LX6    IH.CAP      C2W = IHW(0,0,ABS(CA[R2]),0)                GRA       736
                     0400000210 +                 EQ     SET2                                                    GRA       737
                                                                                                                 GRA       738
                                        *         PROCESS ADDRESS CANIDATE                                       GRA       739
                                                                                                                 GRA       740
           232  11603                    STT2     BX6    X0*X3       C2W = IHW(0,0,CAIH[R2])                     GRA       741
                     20536                        LX5    -R1.INP                                                 GRA       742
                          76110                   SX1    B1                                                      GRA       743
                               20644              LX6    IH.RFP                                                  GRA       744
           233  43760                             MX7    -R1.H2L                                                 GRA       745
                     20170                        LX1    CA.ACP                                                  GRA       746
                          73250                   SX2    X5                                                      GRA       747
                               20514              LX5    R1.INP-R1.H2P                                           GRA       748
           234  12112                             BX1    X1+X2       CPW = CAW(0,AC,0,IN[R1])                    GRA       749
                     15757                        BX7    -X7*X5                                                  GRA       750
                          20722                   LX7    CC.H2P      CCW = H2[R1]                                GRA       751
           235  0400000257 +                      EQ     ST2A                                                    FCC0919     5
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    23
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     TST                 ERC 
  
                                        *         TST/TLD - ENTER VALUE CANIDATES                                GRA       754
                                                                                                                 GRA       755
           236                                    PROCESS TST                                                    GRA       756
           236  54353                             SA3    A5+B3       LI = R1 + 3                                 GRA       757
                     0303000177 +                 ZR     X3,ERC2     IF [LI] = 0   */ USED IN INNER LOOP         GRA       758
           237  5110000247 +                      SA1    TSTA                                                    GRA       759
                          0400000241 +            EQ     TLD1                                                    GRA       760
                                                                                                                 GRA       761
           240                                    PROCESS TLD                                                    GRA       762
           240  5110000246 +                      SA1    TLDA                                                    GRA       763
                                                                                                                 GRA       764
           241  54351                    TLD1     SA3    A5+B1       R2 = R1 + 1                                 GRA       765
                     43700                        MX7    0           CCW = 0                                     GRA       766
                          76400                   SX4    B0          R = 0                                       GRA       767
                               10633              BX6    X3          C2W = [R2]                                  GRA       768
                                                                                                                 GRA       769
           242  7132777674               TLD2     SX3    B2-OC.LDC                                               CCG16     206
                          0333000244 +            MI     X3,TLD3     IF OC[R1] < OC.LDC  */ ^(LDC ! LDV)         CCG16     207
           243  73331                             SX3    X3+B1                                                   CCG16     208
                     20366                        LX3    IH.SLVP     SLV[C2W] = 1 + OC[R1]-OC.LDC                CCG16     209
                          12636                   BX6    X3+X6                                                   CCG16     210
                                                                                                                 CCG16     211
           244  0100000356 +             TLD3     RJ     SCT         ENTER CANIDATE                              CCG16     212
           245  0400000177 +                      EQ     ERC2                                                    GRA       771
                                                                                                                 GRA       772
           246                           TLDA     BFMW   CA,(PL,USE)                                             GRA       773
           247                           TSTA     BFMW   CA,(PL,DEF)                                             GRA       774
  
  
                                        *         LD/ST - ENTER VALUE OR ADDRESS CANIDATE                        GRA       776
                                                                                                                 GRA       777
           250                                    PROCESS ST                                                     GRA       778
           250  76110                             SX1    B1                                                      GRA       779
                     20125                        LX1    CA.DEFP     BIT = DEF                                   GRA       780
                          0400000253 +            EQ     ST1                                                     GRA       781
                                                                                                                 GRA       782
           251                                    PROCESS (LD,ILD,LDC,LDV)                                       CCG16     213
           251  5045000002                        SA4    A5+2        DI = R1 + 2                                 GRA       784
                          76110                   SX1    B1                                                      GRA       785
                               20123              LX1    D.RFP                                                   GRA       786
           252  11214                             BX2    X1*X4       RFB = RF[DI]  */ FORCE *RF* IF *DO* LIMITS  GRA       787
                     20101                        LX1    CA.USEP-D.RFP                                           GRA       788
                          20237                   LX2    CA.RFP-D.RFP                                            GRA       789
                               12112              BX1    X1+X2       BIT = (USE,RFB)                             GRA       790
                                                                                                                 GRA       791
           253  54353                    ST1      SA3    A5+B3       LI = R1 + 3                                 GRA       792
                     20536                        LX5    -R1.INP                                                 GRA       793
                          73650                   SX6    X5                                                      GRA       794
                               12116              BX1    X1+X6       CPW = CAW(0,BIT,IN[R1])                     GRA       795
           254  54251                             SA2    A5+B1       R2 = R1 + 1                                 GRA       796
                     20302                        LX3    59-CA.VCP                                               GRA       797
                          43700                   MX7    0           CCW = 0                                     GRA       798
                               76400              SX4    B0          R = 0                                       GRA       799
           255  10622                             BX6    X2          C2W = [R2]                                  GRA       800
                     0333000242 +                 MI     X3,TLD2     IF VC[LI]                                   GRA       801
                               20301              LX3    CA.VCP-CA.ACP                                           GRA       802
           256  0323000270 +                      PL     X3,ST4      IF ^AC[LI]                                  GRA       803
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    24
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     LDST                ERC 
  
                                                                                                                 GRA       804
                                        *         ADJUST RF FOR *SCT* IF IT IS AN *INC*                          GRA       805
                                                                                                                 GRA       806
                          20230                   LX2    -IH.RFP                                                 GRA       807
                               15420              BX4    "RN"X2      R = RF[R2]                                  FCC0919     6
                                                                                                                 FCC0919     7
           257  67271                    ST2A     SB2    "TB"-B1                                                 FCC0919     8
                     43530                        MX5    -IH.CAIHL                                               GRA       811
                          15665                   BX6    -X5*X6      C2W = IHW(0,0,CAIH[R2])                     GRA       812
                                                                                                                 FCC1039     9
           260  53242                    ST2B     SA2    B2+X4       DIP = TB-1 + R                              FCC1039    10
                     20251                        LX2    59-D.INCP                                               GRA       813
                          0322000265 +            PL     X2,ST3      IF ^INC[DIP]                                GRA       814
                                                                                                                 GRA       815
           261  20223                             LX2    1+D.INCP+58-D.TYP                                       GRA       816
                     55421                        SA4    A2-B1       R2P = DIP - 1                               GRA       817
                          0322000263 +            PL     X2,ST2      IF TYPE[DIP] = I                            GRA       818
           262  20430                             LX4    -IH.RFP                                                 GRA       819
                     15440                        BX4    "RN"X4      R = RF[R2P]   */ POINT TO INC VARIABLE      GRA       820
                          0400000260 +            EQ     ST2B                                                    FCC1039    11
                                                                                                                 GRA       822
           263  54221                    ST2      SA2    A2+B1       LIP = DIP + 1 */ CONTAINS CANIDATE ORDINAL  FCC1039    12
                     0302000265 +                 ZR     X2,ST3      IF [LI] = 0   */ THIS INC IS NOT A CANIDATE FCC1039    13
                               73220              SX2    X2                                                      FCC1039    14
           264  43400                             MX4    0           R = 0                                       FCC1039    15
                     20244                        LX2    IH.RFP                                                  FCC1039    16
                          12626                   BX6    X2+X6       RF[C2W] = CO[LIP]                           FCC1039    17
                                                                                                                 GRA       833
           265  0100000356 +             ST3      RJ     SCT         ENTER CANIDATE                              GRA       834
           266  5045000003                        SA4    A5+3                                                    GRA       835
                          0314000177 +            NZ     X4,ERC2     IF [R1+3] " 0 */ CANIDATE ENTERED           GRA       836
                                                                                                                 GRA       837
           267  5015000000                        SA1    A5+                                                     GRA       838
                          20136                   LX1    -R1.INP                                                 GRA       839
  
                                        *         SET BIT IN *LUV* TO INDICATE USEAGE OF VAR IN AN INNER LOOP    GRA       841
                                                                                                                 GRA       842
           270  63211                    ST4      SB2    X1+B1                                                   GRA       843
                     54202                        SA2    A0+B2       U2 = UDT(IN[R1]+1)                          GRA       844
                          76110                   SX1    B1                                                      GRA       845
                               53324              SA3    B4+X2       LUA = LUV + WI[U2]                          GRA       846
           271  26722                             UX7    B2,X2                                                   GRA       847
                     22121                        LX1    B2,X1                                                   GRA       848
                          12613                   BX6    X1+X3       [LUA] = [LUA] ! SHIFT(1,BITN[U2])           GRA       849
                               54630              SA6    A3                                                      GRA       850
           272  0400000176 +                      EQ     ERC1                                                    GRA       851
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    25
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     RS                  ERC 
  
                                        **        RS - IF A FULL LOCK *RS* AND ONLY 1 INNER LOOP IN THE NEST,    GRA       853
                                        *         THEN ATTEMPT TO MOVE IT OUT.                                   GRA       854
                                                                                                                 GRA       855
           273                                    PROCESS RS                                                     GRA       856
           273  5110000017 C                      SA1    N.HB                                                    GRA       857
                          20546                   LX5    -R1.SOP-SO.LKP                                          GRA       858
                               43672              MX6    -SO.LKL                                                 GRA       859
           274  63210                             SB2    X1                                                      GRA       860
                     0521000176 +                 NE     B2,B1,RS9   IF N.HB " 1   */ ^ OUTER WITH 1 INNER LOOP  GRA       861
                               15756              BX7    -X6*X5                                                  GRA       862
           275  63271                             SB2    X7+B1                                                   GRA       863
                     0523000176 +                 NE     B2,B3,RS9   IF SOLK[R1] " 2 */ NOT FULL LOCK RS         GRA       864
                               43666              MX6    -SO.REGL                                                GRA       865
           276  5120000020 C                      SA2    XRF                                                     GRA       866
                          0312000176 +            NZ     X2,RS9      IF XRF " 0    */ EXT REFS IN LOOP           GRA       867
           277  20506                             LX5    SO.LKP                                                  GRA       868
                     15756                        BX7    -X6*X5      REGN = SOREG[R1]                            GRA       869
                                                                                                                 GRA       870
                                        *         BYPASS MOVING ASSIGNMENT OUT OF THEIR IS A TEMP/RJRS USE       GRA       871
                                                                                                                 GRA       872
                          5120000161 C            SA2    TRA                                                     GRA       873
           300  6227777704                        SB2    X7-59                                                   GRA       874
                          23622                   LX6    -B2,X2                                                  GRA       875
           301  0336000176 +                      MI     X6,RS9      IF SHIFT(TRA,59-REGN) < 0  */ TEMP/RJRS USE GRA       876
                                                                                                                 GRA       877
                          0100000345 +            RJ     FCP         I = FCP(R1)   */ RCT ORD OF PRED            FCC0448    69
           302  0304000176 +                      ZR     X4,ERC1     IF I = 0      */ PRED NOT A CANIDATE        FCC0448    70
                                                                                                                 FCC0448    71
                          53345                   SA3    B5+X4       CAW = RCT(I)                                FCC0448    72
                                                  LX3    59-CA.RAP                                               GRA       902
           303  0333000176 +                      MI     X3,RS9      IF RA[CAW]    */ CANIDATE ASSIGNED          GRA       903
  
  
                                        *         MOVE THE *RS* AND ITS PRED IF THE *CAIH* IN THE *RS* MATCHS    GRA       905
                                        *         THE *CAIH* IN THE *LD* OR *RS* IS INVARIANT IN BOTH LOOPS.     GRA       906
                                                                                                                 GRA       907
                          54351                   SA3    A5+B1       R2 = R1 + 1;  R2W = [R2]                    GRA       908
                               20564              LX5    -SO.INVP                                                GRA       909
           304  0303000312 +                      ZR     X3,RS2      IF R2W = 0    */ NO *CAIH* IN *RS*          GRA       910
                          5024777775              SA2    A4-2        R2P = LI - 2                                GRA       911
           305  13623                             BX6    X2-X3                                                   GRA       912
                     53245                        SA2    B5+X4       CI = RCT([LI])                              FCC1770X    6
                          0306000310 +            ZR     X6,RS1      IF [R2P] = R2W  */ SAME IH"S                FCC1770X    7
                                                                                                                 FCC1770X    8
                                        *         DO NOT MOVE *RS* PREDECESSOR IS  LD FP AND *AC*                FCC1770X    9
                                                                                                                 FCC1770X   10
           306  20205                             LX2    59-CA.FPP                                               FCC1770X   11
                     0322000312 +                 PL     X2,RS2      IF ^FP[CI]                                  FCC1770X   12
                               20272              LX2    CA.FPP-CA.ACP                                           FCC1770X   13
           307  0322000312 +                      PL     X2,RS2      IF ^AC[CI]                                  FCC1770X   14
                          0400000176 +            EQ     ERC1                                                    FCC1770X   15
                                                                                                                 FCC1770X   16
           310  20202                    RS1      LX2    59-CA.VCP                                               FCC1770X   17
                     0332000333 +                 MI     X2,RS3      IF VC[CI]     */ NO INTERFERENCE IN LOOPS   GRA       917
           311  0400000176 +                      EQ     ERC1                                                    GRA       918
                                                                                                                 GRA       919
           312  43672                    RS2      MX6    -2                                                      GRA       920
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    26
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     RS                  ERC 
  
                     12265                        BX2    X6+X5                                                   GRA       921
                          0312000176 +            NZ     X2,RS9      IF ^( INV[R1] & INVC[R1] )                  GRA       922
                                                                                                                 GRA       923
           313  5015777773                        SA1    A5-4        R1P = R1 - 4                                GRA       924
                          54211                   SA2    A1+B1       R2P = R1P + 1                               GRA       925
                               26621              UX6    B2,X1                                                   GRA       926
           314  7132777725                        SX3    B2-OC.STT                                               GRA       927
                          0313000333 +            NZ     X3,RS3      IF OC[R1P] " OC.STT                         GRA       928
           315  73620                             SX6    X2                                                      FCC2074     5
                     20230                        LX2    -IH.RFP                                                 GRA       929
                          15120                   BX1    "RN"X2      R = RF[R2P]                                 GRA       930
           316  0301000333 +                      ZR     X1,RS3      IF R = 0      */ NO PREDECESSOR             GRA       931
                                                                                                                 GRA       932
                          53217                   SA2    "TB"+X1     LIP = TB + R;  K = CO[LI]                   GRA       933
                               55351              SA3    A5-B1       LI = R1 - 1;  J = CO[LI]                    GRA       934
           317  53125                             SA1    B5+X2       CK = RCT(K)                                 FCC2074     6
                     0306000321 +                 ZR     X6,RS2A     IF IH[R2P] = 0  */ NO IH                    FCC2074     7
                               10611              BX6    X1                                                      FCC2074     8
           320  20602                             LX6    59-CA.VCP                                               FCC2074     9
                     0326000176 +                 PL     X6,ERC1     IF ^VC[CK]    */ FP AND INTERFERENCE        FCC2074    10
                                                                                                                 FCC2074    11
           321  20344                    RS2A     LX3    RA.R3P                                                  FCC2074    12
                     12623                        BX6    X2+X3       (R1,R3)RAT(REGN) = (K,J)                    FCC1014    35
                          5267000100 C            SA6    RAT+X7                                                  GRA       938
           322  76310                             SX3    B1                                                      GRA       939
                     20330                        LX3    CA.SUSEP                                                GRA       941
                          37613                   IX6    X1-X3       SUSE[CK] = SUSE[CK] - 1                     GRA       942
                               54610              SA6    A1                                                      GRA       943
                                         .FTN     IFEQ   HC.ID,2                                     ?FTN        CCG4       67
           323  6221777775                        SB2    X1-2                                                    FCC1014    36
                          0520000333 +            NZ     B2,RS3      IF UDI[CK] " 1                              FCC1014    37
           324  20102                             LX1    59-CA.VCP                                               FCC1014    38
                     0321000333 +                 PL     X1,RS3      IF ^VC[CK]                                  FCC1014    39
                               54111              SA1    A1+B1       C2K = RCT(K+1)                              FCC1014    40
           325  20130                             LX1    -IH.RFP                                                 FCC1014    41
                     63210                        SB2    X1                                                      FCC1014    42
                          0521000333 +            NE     B2,B1,RS3   IF RF[C2K] " 1  */ ^ A0                     FCC1014    43
                                                                                                                 FCC1014    44
                                        *         STT  RI,,FPIH  EXPANDED BY *ESR*, CHANGE IT BACK TO NON        FCC1014    45
                                        *         EXPANDED FORM IN *RCT* SO WE MAY USE IT AS A BASE ADDRESS      FCC1014    46
                                        *         FOR OTHER CANDIDATES.                                          FCC1014    47
                                                                                                                 FCC1014    48
           326  55351                             SA3    A5-B1       J = CO[LI]                                  FCC1014    49
                     20122                        LX1    IH.RFP-IH.CAP                                           FCC1014    50
                          63210                   SB2    X1                                                      CCG18     107
           327  5120000000 X                      SA2    =XO$FPI                                                 CCG18     108
                          53122                   SA1    X2+B2                                                   CCG18     109
                                                  LX1    -FP.PNTP    IH = PNT[FPI(CA[C2K])]                      CCG18     110
                               73110              SX1    X1                                                      CCG18     111
           330  63231                             SB2    X3+B1                                                   FCC1014    52
                     56352                        SA3    B5+B2       C2J = RCT(J+1)                              FCC1014    53
                          12613                   BX6    X1+X3                                                   FCC1014    54
                               43130              MX1    -IH.RFP                                                 FCC1014    55
           331  15661                             BX6    -X1*X6      RCT(J+1) = IHW(0,CA[C2J],IH)                FCC1014    56
                     54630                        SA6    A3                                                      FCC1014    57
                          43600                   MX6    0                                                       FCC1014    58
           332  5267000100 C                      SA6    RAT+X7      RAT(REGN) = 0                               FCC1014    59
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    27
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     RS                  ERC 
  
                                         .FTN     ENDIF                                              'FTN        CCG4       71
  
                                        *         SETUP *RCT* AND *RAT* TO MARK THE CANIDATE AS ASSIGNED         GRA       945
                                        *         TO A REGISTER IN THIS LOOP.                                    GRA       946
                                                                                                                 GRA       947
           333  53245                    RS3      SA2    B5+X4       J = CO[LI];  CI = RCT(J)                    GRA       948
                     5032000002                   SA3    A2+2                                                    GRA       949
                               43102              MX1    2                                                       GRA       950
                                                  LX1    2+CA.RAFP   (RA,IRA)RCT(J) = 1                          GRA       951
           334  12612                             BX6    X1+X2                                                   GRA       952
                     54620                        SA6    A2                                                      GRA       953
                          6227777767              SB2    X7-8                                                    GRA       954
                                                  LX7    CC.REG1P                                                GRA       955
           335  12637                             BX6    X3+X7       REG1[RCT(J+2)] = REGN                       GRA       956
                     20204                        LX2    -CA.ACP                                                 FCC1014    60
                          76110                   SX1    B1                                                      FCC1014    61
                               11112              BX1    X1*X2                                                   FCC1014    62
           336  20107                             LX1    CC.MITP+1                                               FCC1014    63
                     12616                        BX6    X1+X6       MIT[RCT(J+2)] = 2*AC[CI]                    FCC1014    64
                          54630                   SA6    A3                                                      GRA       959
                                                  LX7    -CC.REG1P                                               GRA       960
                               73640              SX6    X4                                                      GRA       961
           337  5065000003                        SA6    A5+3        [R1+3] = J                                  GRA       962
                          5217000100 C            SA1    RAT+X7                                                  GRA       963
           340  0311000341 +                      NZ     X1,RS4      IF RAT(REGN) " 0  */ STT CASE               GRA       964
                          5061000000              SA6    A1+         RAT(REGN) = J                               GRA       965
                                                                                                                 GRA       966
           341  0620000343 +             RS4      PL     B2,RS5      IF REGN > 7                                 GRA       967
                                                                                                                 GRA       968
                          5170000163 C            SA7    FBA         FBA = REGN    */ INIDCATE FINAL B-ASSIGNMEN GRA       969
           342  0400000177 +                      EQ     ERC2                                                    GRA       970
                                                                                                                 GRA       971
           343  5110000173 C             RS5      SA1    NXC                                                     GRA       972
                          5261000174 C            SA6    XCT+X1      XCT(NXC) = J                                GRA       973
           344  73711                             SX7    X1+B1                                                   GRA       974
                     54710                        SA7    A1          NXC = NXC + 1                               GRA       975
                          0400000177 +            EQ     ERC2                                                    GRA       976
                                                                                                                 GRA       977
                                 176 +   RS9      EQU    ERC1        MARKED AS *EU* IN DUM                       FCC2056     6
  
  
  
                                        **        FCP - FIND CANIDATE PREDECESSOR                                FCC0448    75
                                        *                                                                        FCC0448    76
                                        *         ENTRY  (A5) = R1 , OF AN *RS* INSTRUCTION                      FCC0448    77
                                        *                                                                        FCC0448    78
                                        *         EXIT   (X4) = I , RCT ORDINAL OF CANIDATE                      FCC0448    79
                                                                                                                 FCC0448    80
           345  0200400345 +             FCP      ROUTINE                                                        FCC0448    81
           346  55451                             SA4    A5-B1       LI = R1 - 1;  I = [I]                       FCC0448    82
                     55341                        SA3    A4-B1       DI = LI - 1                                 FCC0448    83
                          0314000345 +            NZ     X4,FCP      IF I " 0      */ IMMEDIATE PRED A CANIDATE  FCC0448    84
                                                  LX3    58-D.TYP                                                FCC0448    85
           347  43602                             MX6    D.TYL                                                   FCC0448    86
                     11363                        BX3    X6*X3                                                   FCC0448    87
                          0313000345 +            NZ     X3,FCP      IF TYPE[DI] " I  */ NOT POSSIBLE SA/XMT     FCC0448    88
                                                                                                                 FCC0448    89
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    28
        ERC - ENTER REGISTER CANIDATES INTO *RCT*                     FCP                 ERC 
  
           350  5033777775                        SA3    A3-2        R1P = DI - 2                                FCC0448    90
                          26623                   UX6    B2,X3                                                   FCC0448    91
                               20334              LX3    -R1.RJP                                                 FCC0448    92
           351  15630                             BX6    "RN"X3      R = RJ[R1P]                                 FCC0448    93
                     53467                        SA4    "TB"+X6     LI = TB + R;  I = [LI]                      FCC0448    94
                          0304000345 +            ZR     X4,FCP      IF I " 0      */ PRED NOT A CANIDATE        FCC0448    95
           352  7162777717                        SX6    B2-OC.SA                                                FCC0448    96
                          0306000345 +            ZR     X6,FCP      IF OC[R1P] = OC.SA                          FCC0448    97
           353  7162777767                        SX6    B2-OC.XMT                                               FCC0448    98
                          0306000345 +            ZR     X6,FCP      IF OC[R1P] = OC.XMT                         FCC0448    99
                                                                                                                 FCC0448   100
           354  43400                             MX4    0           I = 0         */ INDICATE PRED NOT A CANIDA FCC0448   101
                     0400000345 +                 EQ     FCP                                                     FCC0448   102
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    29
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
                                        **        SCT - SEARCH CANIDATE TABLE FOR MATCH OF KEY AND MAKE NEW      GRA       989
                                        *         ENTRY OR UPDATE OLD ONE.                                       GRA       990
                                        *                                                                        GRA       991
                                        *         ENTRY  (X1) = CPW , CANIDATE PROPERTY WORD                     GRA       992
                                        *                (X4) = R , RF OF INDEXED REFERENCE                      GRA       993
                                        *                (X6) = C2W , CANIDATE KEY                               GRA       994
                                        *                (X7) = CCW , THIRD WORD OF ENTRY                        GRA       995
                                        *                (A5) = R1 , INSTRUCTION ADDRESS                         GRA       996
                                        *                (B3) = 3                                                GRA       997
                                        *                (B5) = CO , O.RCT                                       GRA       998
                                        *                (B6) = CL , LWA+1 OF TABLE                              GRA       999
                                        *                                                                        GRA      1000
                                        *         EXIT   (A6,X6) = UPDATED *CA* WORD OF ENTRY                    GRA      1001
                                        *                CANIDATE ENTERED, USES, NOCC BUMPED, ETC                GRA      1002
                                        *                                                                        GRA      1003
                                        *         USES   B - 2, A - 1, 2, 3, 4  X - 1, 2, 3, 4, 5, 6, 7          GRA      1004
                                                                                                                 GRA      1005
           355  7170000000               SCT0     SX7    0                                                       GRA      1006
                          5075000003              SA7    A5+3        [R1+3] = 0                                  GRA      1007
                                                                                                                 GRA      1008
           356  0200400356 +             SCT      ROUTINE                                                        GRA      1009
           357  66253                             SB2    B5+B3       SA = CO + 3   */ SEARCH ADDRESS             GRA      1010
                     0304000365 +                 ZR     X4,SCT1     IF R = 0                                    GRA      1012
                               53447              SA4    "TB"+X4     LI = TB + R;  R = [LI]  */ SUBST RCT INDX   GRA      1013
           360  0304000362 +                      ZR     X4,SCT0A    IF R = 0      */ OPERAND NOT IN *RCT*       FCC1014    65
                          53345                   SA3    B5+X4                                                   FCC1014    66
                               20302              LX3    59-CA.VCP                                               FCC1014    67
           361  0333000364 +                      MI     X3,SCT0B    IF VC[RCT(R)]                               FCC1014    68
                          43400                   MX4    0           R = 0                                       FCC1014    69
           362  7236000000               SCT0A    SX3    X6+                                                     FCC1014    70
                          0303000355 +            ZR     X3,SCT0     IF IH[C2W] = 0  */ *AC* AND NO *IH*         FCC1014    71
                                                                                                                 FCC1014    72
           363  7130000400                        SX3    4S6                                                     FCC1014    73
                          12737                   BX7    X3+X7       MIT[CCW] = 4  */ RF NOT IN RCT CASE         FCC1014    74
                                                                                                                 FCC1014    75
           364  63242                    SCT0B    SB2    B2+X4       SA = SA + R                                 FCC1014    76
                     20444                        LX4    IH.RFP                                                  GRA      1019
                          12646                   BX6    X4+X6       RF[R2] = R                                  GRA      1020
                                                                                                                 GRA      1021
                                        *         SET SEARCH TERMINATOR, SEARCH FOR PREVIOUS OCCURANCES          GRA      1022
                                                                                                                 GRA      1023
           365  56661                    SCT1     SA6    B6+B1       [CL+1] = C2W                                GRA      1024
                     54761                        SA7    A6+B1       [CL+2] = CCW                                GRA      1025
                          54353                   SA3    A5+B3       LI = R1 + 3                                 FCC0594     6
                               56421              SA4    B2+B1       CI = SA + 1;  KEY = [CI]  */ C2 WORD        FCC1014    77
           366  5120000443 +                      SA2    SCTA                                                    FCC1014    78
                          10577                   BX5    X7                                                      FCC0594     8
                               12131              BX1    X3+X1       CPW = CPW ! [LI]  */ SET CT, USAGE          FCC0594     9
           367  22701                             LX7    X1                                                      FCC0594    10
                     5176000000                   SA7    B6+         [CL] = CPW    */ SKEL CA WORD               FCC0594    11
                               10755              BX7    X5                                                      FCC0594    12
                                                                                                                 GRA      1028
           370  13546                    SCT2     BX5    X4-X6       DIFF = C2W - KEY                            GRA      1029
                     54443                        SA4    A4+B3       CI = CI + 3;  KEY = [CI]                    GRA      1030
                          0315000370 +            NZ     X5,SCT2     IF DIFF " 0                                 GRA      1031
                                                                                                                 GRA      1032
           371  5034777775                        SA3    A4-2        CJ = CI - 2                                 GRA      1033
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    30
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
                          13537                   BX5    X3-X7                                                   FCC0594    13
                               11525              BX5    X2*X5                                                   FCC1014    79
           372  0315000370 +                      NZ     X5,SCT2     IF (H2,MIT)[CJ] " (H2,MIT)[CCW]             FCC1014    80
                          5033777775              SA3    A3-2        CJ = CJ - 2   */ CA WORD                    FCC0594    16
           373  13531                             BX5    X3-X1                                                   FCC0594    17
                     43371                        MX3    -CA.CTL                                                 FCC0594    18
                          20505                   LX5    -CA.CTP                                                 FCC0594    19
                               15353              BX3    -X3*X5                                                  FCC0594    20
           374  0313000370 +                      NZ     X3,SCT2     IF CT[CJ] " CT[CPW]  */ NOT SAME TYPE       FCC0594    21
                                                                                                                 GRA      1037
                                        *         CHECK RESULTS OF SEARCH                                        GRA      1038
                                                                                                                 GRA      1039
                          6024777773              SB2    A4-4        EA = CI - 4   */ ENTRY ADDRESS              GRA      1040
           375  0726000400 +                      LT     B2,B6,SCT3  IF EA < CL    */ ENTRY IN TABLE             GRA      1041
                                                                                                                 GRA      1042
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      1043
           376  76210                             SX2    B1                                                      GRA      1044
                     66663                        SB6    B6+B3       CL = CL + 3                                 GRA      1045
                          20266                   LX2    CA.FPP                                                  GRA      1046
                               20441              LX4    CA.FPP-D.FPP                                            GRA      1047
           377  11324                             BX3    X2*X4                                                   GRA      1048
                     12231                        BX2    X3+X1       CAW = CPW ! FP[DI]                          GRA      1049
                          0400000401 +            EQ     SCT4                                                    GRA      1050
  
           400  56320                    SCT3     SA3    B2                                                      FCC0656    54
                     43552                        MX5    -CA.UDIL                                                FCC0656    55
                          11151                   BX1    X5*X1       UDI[CPW] = 0                                FCC0656    56
                               12213              BX2    X1+X3       CAW = CPW ! [EA]                            GRA      1053
  
  
                                        *         UPDATE FIELDS IN ENTRY, LINK INSTRUCTION TO *RCT*              GRA      1055
                                                                                                                 GRA      1056
           401  5110000162 C             SCT4     SA1    APF                                                     CCGA100     9
                          5045000002              SA4    A5+2        DI = R1 + 2                                 CCGA099    12
           402  76510                             SX5    B1                                                      FCC0594    24
                     43363                        MX3    -D.USESL                                                GRA      1062
                          12212                   BX2    X1+X2       APLN[CAW] = APF ! APLN[CAW]                 GRA      1063
                                                  LX4    -D.USESP                                                GRA      1064
                               20541              LX5    CA.NOCCP    NOCC[CAW] = NOCC[CAW] + 1                   GRA      1065
           403  15143                             BX1    -X3*X4                                                  GRA      1066
                     20130                        LX1    CA.SUSEP                                                GRA      1067
                          12515                   BX5    X1+X5       SUSE[CAW] = SUSE[CAW] + USES[DI]            GRA      1068
                               36625              IX6    X2+X5                                                   GRA      1069
           404  20451                             LX4    D.USESP+59-D.INCP                                       GRA      1070
                     56620                        SA6    B2          [EA] = CAW                                  GRA      1071
                          77725                   SX7    B2-B5                                                   GRA      1072
                               54753              SA7    A5+B3       [LI] = EA - CO  */ SET INDEX TO *RCT*       GRA      1073
           405  0324000356 +                      PL     X4,SCT      IF ^INC[DI]                                 GRA      1074
                          20454                   LX4    D.INCP-D.STP                                            GRA      1075
           406  0324000356 +                      PL     X4,SCT      IF ^ST[DI]                                  GRA      1076
                                                                                                                 GRA      1077
                                        *         INCREMENT *ST*, ADD USES OF INC TO CANIDATE ENTRY              GRA      1078
                                                                                                                 GRA      1079
                          20417                   LX4    1+D.STP-D.XUP                                           FCC0646    16
                               76210              SX2    B1                                                      FCC0646    17
           407  11324                             BX3    X2*X4                                                   FCC0646    18
                     20363                        LX3    CA.EUP      EU[CAW] = XU[DI]  */ FORCE *EU* IF *XU*     FCC0646    19
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    31
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
                          12636                   BX6    X3+X6                                                   FCC0646    20
                               54550              SA5    A5                                                      GRA      1080
           410  67271                             SB2    "TB"-B1                                                 GRA      1081
                     15750                        BX7    "RN"X5                                                  GRA      1082
                          53472                   SA4    B2+X7       DIP = TB-1 + RI[R1]                         GRA      1083
                               15343              BX3    -X3*X4                                                  GRA      1084
           411  7223777776                        SX2    X3-1                                                    GRA      1085
                          20230                   LX2    CA.SUSEP                                                GRA      1086
                               36626              IX6    X2+X6       SUSE[CAW] = SUSE[CAW] + USES[DIP]-1         GRA      1087
           412  54660                             SA6    A6                                                      GRA      1088
                                                                                                                 GRA      1089
                                        *         COLLECT INFORMATION ABOUT THE INCREMENT VALUE OF THE *RD*      GRA      1090
                                                                                                                 GRA      1091
                     5036000002                   SA3    A6+2        CCW = EA + 2                                GRA      1092
                                                  LX3    59-CC.I1P                                               GRA      1093
                               54241              SA2    A4+B1       LIP = DIP + 1;  I = CO[LIP]                 GRA      1094
           413  0323000416 +                      PL     X3,SCT5     IF ^I1[CCW]   */ THIS IS THE FIRST INC ST   GRA      1095
                                                                                                                 GRA      1096
                          76410                   SX4    B1                                                      GRA      1097
                               20472              LX4    CC.I2P                                                  GRA      1098
                                                  LX3    1+CC.I1P                                                GRA      1099
           414  12743                             BX7    X4+X3       I2[CCW] = 1   */ INDICATE MORE THAN 1 INC   GRA      1100
                     54730                        SA7    A3                                                      GRA      1101
                          10377                   BX3    X7                                                      GRA      1102
           415  0302000420 +                      ZR     X2,SCT6     IF I = 0      */ INCOP IS IA/IS             GRA      1103
                          0400000356 +            EQ     SCT                                                     GRA      1104
                                                                                                                 GRA      1105
                                         SCT5     LX3    1+CC.I1P                                                GRA      1106
           416  0302000420 +                      ZR     X2,SCT6     IF I = 0      */ INCOP IS IA OR IS          GRA      1107
  
                                        *         INCOP IS AN *STT*, SET INC SIGN                                GRA      1109
                                                                                                                 GRA      1110
                          55141                   SA1    A4-B1       R2P = DIP - 1                               GRA      1111
                               20130              LX1    42-IH.CAP         SIGN = IF( CA[R2P] < 377777B )        GRA      1112
           417  0400000434 +                      EQ     SCT10                     THEN 0; ELSE 1                GRA      1113
                                                                                                                 GRA      1114
                                        *         INCOP IS *IA* OR *IS*                                          GRA      1115
                                                                                                                 GRA      1116
           420  5014777775               SCT6     SA1    A4-2        R1P = DIP - 2                               GRA      1117
                          26521                   UX5    B2,X1                                                   GRA      1118
                               20534              LX5    -R1.RJP                                                 GRA      1119
           421  15750                             BX7    "RN"X5      R = RJ[R1]                                  GRA      1120
                     53277                        SA2    "TB"+X7     LIP = TB + R;  I = CO[LIP]                  GRA      1121
                          53425                   SA4    B5+X2       CJP = RCT([LIP])                            GRA      1122
                               20446              LX4    59-CA.DEFP                                              GRA      1123
           422  0324000424 +                      PL     X4,SCT7     IF ^DEF[CJP]  */ THIS IS THE INC            GRA      1124
                          20520                   LX5    R1.RJP-R1.RKP                                           GRA      1125
                               15750              BX7    "RN"X5                                                  GRA      1126
           423  53277                             SA2    "TB"+X7     LIP = TB + RK[R1];  I = CO[LIP]             GRA      1127
                     7112777741                   SX1    B2-OC.IA                                                GRA      1128
                               20173              LX1    59          SIGN = IF( OC[R1P] = OC.IA ) THEN 0 ELSE 1  GRA      1129
                                                                                                                 GRA      1130
                                        *         ADD ENTRY TO *IA* LIST FOR CANIDATE AND INC VALUE              GRA      1131
                                                                                                                 GRA      1132
           424  5140000160 C             SCT7     SA4    IAI                                                     GRA      1133
                          75765                   SX7    A6-B5       J = EA - C0   */ SET CANIDATE ORDINAL       FCC1039    18
                               54713              SA7    A1+B3       [R1+3] = J    */ IN LINK WORD OF IA/IS      FCC1039    19
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    32
        SCT - SEARCH CANIDATE TABLE, ENTER UPDATE ENTRY               SCT                 ERC 
  
           425  0302000441 +                      ZR     X2,SCT12    IF I = 0      */ INC VALUE NOT A CANIDATE   FCC1039    20
                          7254777700              SX5    X4-77B                                                  FCC1039    21
           426  0335000431 +                      MI     X5,SCT8     IF IAI < 77B  */ NO OVERFLOW                FCC1039    22
                                                                                                                 GRA      1136
                          53425                   SA4    B5+X2                                                   GRA      1137
                               76710              SX7    B1                                                      GRA      1138
           427  20763                             LX7    CA.EUP                                                  GRA      1139
                     12774                        BX7    X7+X4       EU[RCT(I)] = 1                              GRA      1140
                          54740                   SA7    A4                                                      GRA      1141
           430  0400000433 +                      EQ     SCT9                                                    GRA      1142
                                                                                                                 GRA      1143
           431  20222                    SCT8     LX2    18                                                      FCC1039    23
                     12727                        BX7    X2+X7                                                   GRA      1147
                          5274000000 C            SA7    SCR+X4      SCR(IAI) = SHIFT(I,18) ! J                  GRA      1148
           432  20252                             LX2    -18                                                     GRA      1149
                     73741                        SX7    X4+B1       IAI = IAI + 1                               GRA      1150
                          54740                   SA7    A4                                                      GRA      1151
                                                                                                                 GRA      1152
           433  10433                    SCT9     BX4    X3                                                      GRA      1153
                     20401                        LX4    59-CC.I2P                                               GRA      1154
                          0334000356 +            MI     X4,SCT      IF I2[CCW]                                  GRA      1155
                                                                                                                 GRA      1156
                                        *         SAVE *INC* INFORMATION IN *CCW* OF CANIDATE ENTRY              GRA      1157
                                                                                                                 GRA      1158
           434  43401                    SCT10    MX4    1                                                       GRA      1159
                     11141                        BX1    X4*X1       IM[CCW] = SIGN                              GRA      1160
                          20172                   LX1    1+CC.IMP                                                GRA      1161
                                                  LX4    1+CC.I1P    I1[CCW] = 1                                 GRA      1162
                               12414              BX4    X1+X4                                                   GRA      1163
           435  5110000162 C                      SA1    APF                                                     FCC0603    17
                          20244                   LX2    CC.INCP                                                 GRA      1164
                               36323              IX3    X2+X3       INC[CCW] = I                                GRA      1165
           436  12743                             BX7    X4+X3                                                   GRA      1166
                     0311000440 +                 NZ     X1,SCT11    IF APF " 0    */ INCR UNCONDITINALLY EXEC   FCC0603    18
                               76410              SX4    B1                                                      FCC0603    19
           437  20472                             LX4    CC.I2P                                                  FCC0603    20
                     12747                        BX7    X4+X7       I2[CCW] = 1   */ INHIBIT PREFETCHING        FCC0603    21
           440  54730                    SCT11    SA7    A3                                                      FCC0603    22
                     0400000356 +                 EQ     SCT                                                     GRA      1168
                                                                                                                 FCC1039    24
                                        *         INC VALUE NOT A CANDIDATE ( LVL2 / LU ) , SET *EU* FOR INCR    FCC1039    25
                                                                                                                 FCC1039    26
           441  76710                    SCT12    SX7    B1                                                      FCC1039    27
                     20763                        LX7    CA.EUP                                                  FCC1039    28
                          12667                   BX6    X6+X7       EU[RCT(J)] = 1                              FCC1039    29
                               54660              SA6    A6                                                      FCC1039    30
           442  0400000356 +                      EQ     SCT                                                     FCC1039    31
                                                                                                                 GRA      1169
           443                           SCTA     BFMW   CC,(H2,MIT)                                             FCC1014    81
                                                                                                                 FCC1014    82
                                                  QUAL   *                                                       GRA      1170
                                 164 +   ERC      EQU    /ERC/ERC                                                GRA      1171
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    33
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   DUM 
  
                                        **        DUM - DETERMINE USEAGE MODE AND CANIDATE TYPE OF INSTRUCTIONS. GRA      1173
                                        *                                                                        GRA      1174
                                        *         A BACKWARD SCAN OVER THE BLOCKS TO SET THE USEAGE MODE BITS    GRA      1175
                                        *         ( EU, RF, TU, LU ) AND THE CANIDATE TYPES OF THE MEMORY REFS.  GRA      1176
                                        *                                                                        GRA      1177
                                        *         NOTE THAT THE *IST* BIT IN *UDT* IS ON IF A VARIABLE WAS       GRA      1178
                                        *         REFERENCED IN A INNERMOST LOOP OR THEIR WAS AN INTERFERING     GRA      1179
                                        *         STORE INTO THE CLASS BASE IN THIS LOOP.                        GRA      1180
                                        *                                                                        GRA      1181
                                        *         EXIT   (A0) = NC , MAX NUMBER OF REGISTER CANIDATES            GRA      1182
                                                                                                                 GRA      1183
           444                           DUMA     BFMW   CA,(EU,RF)                                              GRA      1184
           445                           DUMB     BFMW   CA,(EU,^RD)                                             GRA      1185
           446                           DUMC     BFMW   CA,(EU,TU)                                              FCC0735     6
                                                                                                                 GRA      1187
                                                  QUAL   DUM                                                     GRA      1188
                                                                                                                 GRA      1189
           447                                    PROCESS BOS                                                    GRA      1190
           447  7060000000                        SX6    A0+         BSW = NC                                    GRA      1191
                          5160000000 X            SA6    =XBSW                                                   GRA      1192
           450  0200400450 +             DUM      ROUTINE                                                        GRA      1193
           451  0100000616 +                      RJ     FBM         FIND BOUNDARY MARKERS                       FCC2124     1
           452  5120000000 C                      SA2    O.UDT                                                   GRA      1194
                          5140000005 C            SA4    UVA                                                     GRA      1195
           453  6140000005                        SB4    59-UD.ISTP                                              GRA      1196
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GRA      1197
           454  63540                             SB5    X4                                                      GRA      1198
                     63620                        SB6    X2                                                      GRA      1199
                          53351                   SA3    X5+B1       R2 = O.SEQ + 1 */ R2 OF *BOS*               GRA      1200
                                                  LX3    -R2.TXTLP                                               GRA      1201
                               36653              IX6    X5+X3                                                   GRA      1202
           455  43702                             MX7    D.TYL                                                   GRA      1203
                     57001                        SA0    -B1         NC = -1       */ N. CANIDATES               GRA      1204
                                                  LX7    D.TYL+D.TYP                                             GRA      1205
                          5256777773              SA5    X6-4        R1 = O.SEQ + TXTL[R2] - 4                   GRA      1206
                                                                                                                 GRA      1207
                                        *         SHORT CONSTANTS, BUMP NUMBER OF CANIDATES                      GRA      1208
                                                                                                                 GRA      1209
           456                                    PROCESS (S,FMA,CLR)                                            GRA      1210
           456  5000000001                        SA0    A0+1        NC = NC + 1                                 GRA      1211
                                                                                                                 GRA      1212
                                        *         ADVANCE TO NEXT INSTRUCTION, JUMP TO OPCODE PROCESSOR          GRA      1213
                                                                                                                 GRA      1214
           457  5045777775               DUM1     SA4    A5-2        DI = R1 - 2                                 GRA      1215
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GRA      1216
           460  11374                             BX3    X7*X4                                                   GRA      1217
                     26625                        UX6    B2,X5                                                   GRA      1218
                          5112000630 +            SA1    DUM.JT+B2                                               GRA      1219
           461  0313000463 +                      NZ     X3,DUM2     IF TYPE[DI] " I                             GRA      1220
                          20634                   LX6    -R1.RJP                                                 GRA      1221
                               15360              BX3    "RN"X6                                                  GRA      1222
           462  20620                             LX6    R1.RJP-R1.RKP                                           GRA      1223
                     53237                        SA2    "TB"+X3     LJ = TB + RJ[R1]                            GRA      1224
                          15660                   BX6    "RN"X6                                                  GRA      1225
                               53367              SA3    "TB"+X6     LK = TB + RK[R1]                            GRA      1226
                                                                                                                 GRA      1227
           463  63210                    DUM2     SB2    X1                                                      GRA      1228
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    34
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   DUM                 DUM 
  
                     0222000000                   JP     B2          JUMP( [MTT.JT( OC[R1] )] )                  GRA      1229
  
  
  
                                        *         TYI - GENERAL TYPE I INSTRUCTION                               GRA      1231
                                                                                                                 GRA      1232
           464  76110                    TYI      SX1    B1                                                      GRA      1233
                     20163                        LX1    CA.EUP                                                  GRA      1234
                          12612                   BX6    X1+X2       EU[LJ] = 1                                  GRA      1235
                               54620              SA6    A2                                                      GRA      1236
           465  12613                             BX6    X1+X3       EU[LK] = 1                                  GRA      1237
                     54630                        SA6    A3                                                      GRA      1238
                          0400000457 +            EQ     DUM1                                                    GRA      1239
  
  
  
                                        *         XMT - TRANSMIT USAGE MODE BACK TO OPERAND                      CCG0037     5
                                                                                                                 GRA      1242
           466                                    PROCESS  XMT                                                   CCG0037     6
           466  54141                             SA1    A4+B1       LI = DI + 1                                 GRA      1244
                     12612                        BX6    X1+X2       [LJ] = [LI] ! [LJ]                          GRA      1245
                          5062000000              SA6    A2+                                                     GRA      1246
           467  0400000457 +                      EQ     DUM1                                                    GRA      1247
  
  
                                        *         SA,SS - INDICATE SHORT USEAGE                                  GRA      1249
                                                                                                                 GRA      1250
           470                                    PROCESS (SA,SS)                                                GRA      1251
           470  5110000444 +                      SA1    DUMA        BITS = (EU,RF)                              FCC2124     2
                          5140000614 +            SA4    LBM                                                     FCC2124     3
           471  37644                             IX6    X4-X4                                                   FCC2124     4
                     0326000473 +                 PL     X6,SA1      IF RK \ LBM                                 FCC2124     5
                               76110              SX1    B1                                                      FCC2124     6
           472  20163                             LX1    CA.EUP      BITS = EU                                   FCC2124     7
           473  12613                    SA1      BX6    X1+X3       BITS[LK] = 1                                FCC2124     8
                     54630                        SA6    A3                                                      FCC2124     9
                          5110000444 +            SA1    DUMA        BITS = (EU,RF)                              FCC2124    10
           474  75527                             SX5    A2-"TB"                                                 FCC2124    11
                     37654                        IX6    X5-X4                                                   FCC2124    12
                          0326000476 +            PL     X6,SA2      IF RJ \ LBM                                 FCC2124    13
           475  76110                             SX1    B1                                                      FCC2124    14
                     20163                        LX1    CA.EUP      BITS = EU                                   FCC2124    15
           476  12612                    SA2      BX6    X1+X2       BITS[LJ] = 1                                FCC2124    16
                     54620                        SA6    A2                                                      FCC2124    17
                          0400000457 +            EQ     DUM1                                                    GRA      1257
                                                                                                                 GRA      1258
                                        *         TYPE I, B AND X OPERANDS                                       GRA      1259
                                                                                                                 GRA      1260
           477                                    PROCESS (ILS,IRS,PK)                                           GRA      1261
           477  5110000444 +                      SA1    DUMA        BITS = (EU,RF)                              FCC2124    18
                          5140000614 +            SA4    LBM                                                     FCC2124    19
           500  75527                             SX5    A2-"TB"                                                 FCC2124    20
                     37654                        IX6    X5-X4                                                   FCC2124    21
                          0326000502 +            PL     X6,ILS1     IF RJ \ LBM                                 FCC2124    22
           501  76110                             SX1    B1                                                      FCC2124    23
                     20163                        LX1    CA.EUP      BITS = EU                                   FCC2124    24
           502  12612                    ILS1     BX6    X1+X2                                                   FCC2124    25
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    35
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   SA                  DUM 
  
                     54620                        SA6    A2          BITS[LJ] = 1                                FCC2124    26
                                                                                                                 GRA      1265
                                        *         TYPE I - 1 OPERAND                                             GRA      1266
                                                                                                                 GRA      1267
           503                                    PROCESS (NR,RNZ,UP)                                            GRA      1268
           503  76110                             SX1    B1                                                      GRA      1269
                     20163                        LX1    CA.EUP                                                  GRA      1270
                          12613                   BX6    X1+X3       EU[LK] = 1                                  GRA      1271
                               54630              SA6    A3                                                      GRA      1272
           504  0400000457 +                      EQ     DUM1                                                    GRA      1273
                                                                                                                 GRA      1274
                                        *         DIRECT READ/WRITE INSTRUCTIONS                                 GRA      1275
                                                                                                                 GRA      1276
           505                                    PROCESS DWL                                                    GRA      1277
           505  15650                             BX6    "RN"X5                                                  GRA      1278
                     53367                        SA3    "TB"+X6     LI = TB + RI[R1]                            GRA      1279
                          5110000445 +            SA1    DUMB                                                    GRA      1280
           506  12613                             BX6    X1+X3       (EU,^RD)[LI] = 1                            GRA      1281
                     54630                        SA6    A3                                                      GRA      1282
                                                                                                                 GRA      1283
           507                                    PROCESS  (XMTC,DRL)                                            CCG0037     7
           507  76110                             SX1    B1                                                      GRA      1285
                     20163                        LX1    CA.EUP                                                  GRA      1286
                          12612                   BX6    X1+X2       EU[LJ] = 1                                  GRA      1287
                               54620              SA6    A2                                                      GRA      1288
           510  0400000457 +                      EQ     DUM1                                                    GRA      1289
  
  
  
                                        *         IA,IS - PROPAGATE EU,TU AND INC[DI]*RF BITS DOWN, IF ^INC      FCC0735     7
                                        *         THEN SET *EU*, ELSE SET *IA* BIT, SO CAN SET *EU* LATER IF NEC FCC0735     8
                                                                                                                 FCC0735     9
           511                                    PROCESS (IA,IS)                                                FCC0735    10
           511  54141                             SA1    A4+B1       LI = DI + 1                                 FCC0735    11
                     76510                        SX5    B1                                                      FCC0735    12
                          20452                   LX4    -D.INCP                                                 FCC0735    13
                               11654              BX6    X5*X4       I = INC[DI]                                 FCC0735    14
           512  20563                             LX5    CA.EUP      BIT = EU                                    FCC0735    15
                     0306000513 +                 ZR     X6,IA1      IF I = 0                                    FCC0735    16
                               20571              LX5    CA.IAP-CA.EUP     BIT = IA                              FCC0735    17
                                                                                                                 FCC0735    18
           513  5140000446 +             IA1      SA4    DUMC                                                    FCC0735    19
                          20662                   LX6    CA.RFP                                                  FCC0735    20
                               12464              BX4    X6+X4                                                   FCC0735    21
           514  11141                             BX1    X4*X1       UMB = (EU,TU,I*RF)[LI]                      FCC0735    22
                     12551                        BX5    X5+X1                                                   FCC0735    23
                          12652                   BX6    X5+X2       BIT[LJ] = 1;  [LJ] = [LJ] ! UMB             FCC0735    24
                               54620              SA6    A2                                                      FCC0735    25
           515  12653                             BX6    X5+X3       BIT[LK] = 1;  [LK] = [LK] ! UMB             FCC0735    26
                     54630                        SA6    A3                                                      FCC0735    27
                          0400000457 +            EQ     DUM1                                                    GRA      1312
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    36
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   JPX                 DUM 
  
                                        *         X - JUMPS - PROPAGATE *TU* BIT DOWN IT LOOP TEST JUMP          GRA      1314
                                                                                                                 GRA      1315
           516                                    PROCESS (JPX,RJXJ)                                             CCG2       13
           516  5120000030 C                      SA2    LTT                                                     GRA      1317
                          15650                   BX6    "RN"X5                                                  GRA      1318
                               76110              SX1    B1                                                      GRA      1319
           517  53367                             SA3    "TB"+X6     LI = TB + RI[R1]                            GRA      1320
                     20163                        LX1    CA.EUP      BIT = EU                                    GRA      1321
                          0302000521 +            ZR     X2,JPX1     IF LTT = 0    */ NO TEST REPLACEMENT        GRA      1322
                                                                                                                 GRA      1323
           520  20451                             LX4    59-D.INCP                                               GRA      1324
                     0324000521 +                 PL     X4,JPX1     IF ^INC[DI]   */ THIS IS NOT THE TEST JP    GRA      1325
                               20170              LX1    CA.TUP-CA.EUP     BIT = TU                              GRA      1326
                                                                                                                 GRA      1327
           521  12613                    JPX1     BX6    X1+X3       BIT[LI] = 1                                 GRA      1328
                     54630                        SA6    A3                                                      GRA      1329
                          5120000614 +            SA2    LBM                                                     FCC2124    27
           522  0302000457 +                      ZR     X2,DUM1     IF LBM = 0    */ NOT DOING RF CHECKING      FCC2124    28
                          54341                   SA3    A4+B1                                                   FCC2124    29
                               73630              SX6    X3          LBM = [DI+1]  */ SET LOW BND FOR SAFE RF    FCC2124    30
           523  54620                             SA6    A2                                                      FCC2124    31
                     0400000457 +                 EQ     DUM1                                                    GRA      1330
  
  
  
                                        *         STT - SET RF USEAGE AND PROPAGATE *TU* BIT DOWN                GRA      1332
                                        *         PROPAGATE *EU* BIT TO PRED, IF AN *INC* STT                    GRA      1333
                                                                                                                 GRA      1334
           524                                    PROCESS STT                                                    GRA      1335
           524  54351                             SA3    A5+B1       R2 = R1 + 1                                 GRA      1336
                     54001                        SA0    A0+B1       NC = NC + 1                                 GRA      1337
                          20330                   LX3    -IH.RFP                                                 GRA      1338
                               15530              BX5    "RN"X3      R = RF[R2]                                  GRA      1339
           525  0305000457 +                      ZR     X5,DUM1     IF R = 0      */ NO OPERANDS                GRA      1340
                                                                                                                 GRA      1341
                          54141                   SA1    A4+B1       LI = DI + 1                                 GRA      1342
                               20441              LX4    CA.EUP-D.INCP                                           GRA      1343
           526  53257                             SA2    "TB"+X5     LJ = TB + R                                 GRA      1344
                     76610                        SX6    B1                                                      GRA      1345
                          20663                   LX6    CA.EUP                                                  GRA      1346
                               11464              BX4    X6*X4                                                   GRA      1347
           527  20670                             LX6    CA.TUP-CA.EUP                                           GRA      1348
                     11561                        BX5    X6*X1       TU[LJ] = TU[LI]                             CCG34      10
                          11441                   BX4    X4*X1       EU[LJ] = EU[LI] & INC[DI]                   GRA      1350
                               20603              LX6    CA.RFP-CA.TUP                                           GRA      1351
           530  12445                             BX4    X4+X5                                                   CCG34      11
                     12242                        BX2    X4+X2                                                   CCG34      12
                          20344                   LX3    IH.RFP-IH.IHP                                           CCG34      13
                                        .FTN      IFEQ   HC.ID,2                                                 CCG34      14
           531  5110000000 X                      SA1    =XS=TRACE                                               CCG34      15
                          73330                   SX3    X3                                                      CCG34      16
                               37113              IX1    X1-X3                                                   CCG34      17
           532  0301000533 +                      ZR     X1,STT1     IF IH[R2] = TRACE.                          CCG34      18
                          12262                   BX2    X6+X2       RF[LJ] = 1                                  CCG34      19
                                                                                                                 CCG34      20
           533                           STT1     BSS    0                                                       CCG34      21
                                        .FTN      ELSE                                                           CCG34      22
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    37
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   STT                 DUM 
  
                                                  BX2    X6+X2                                                   CCG34      23
                                         .FTN     ENDIF                                                          CCG34      24
           533  10622                             BX6    X2                                                      CCG34      25
                     54620                        SA6    A2                                                      GRA      1355
                          0400000457 +            EQ     DUM1                                                    GRA      1356
  
  
                                        *         DEF, RS - REMOVE SPECIFIED REGISTER FROM AVAILABLE SET         GRA      1358
                                                                                                                 GRA      1359
           534                                    PROCESS RS                                                     FCC2056     7
           534  15650                             BX6    "RN"X5                                                  FCC2056     8
                     53267                        SA2    "TB"+X6     LIP = TB + RI[R1]                           FCC2056     9
                          76110                   SX1    B1                                                      FCC2056    10
                               20163              LX1    CA.EUP                                                  FCC2056    11
           535  12612                             BX6    X1+X2       EU[LIP] = 1   */ INHIBIT BIASING            FCC2056    12
                     54620                        SA6    A2                                                      FCC2056    13
                                                                                                                 FCC2056    14
           536                                    PROCESS DEF                                                    FCC2056    15
           536  5120000015 C                      SA2    MRA                                                     GRA      1361
                          20554                   LX5    -R1.SOP                                                 GRA      1362
                               43366              MX3    -SO.REGL                                                GRA      1363
           537  76110                             SX1    B1                                                      GRA      1364
                     15653                        BX6    -X3*X5                                                  GRA      1365
                          63260                   SB2    X6          REGN = SOREG[R1]                            GRA      1366
                               22121              LX1    B2,X1                                                   GRA      1367
           540  15621                             BX6    -X1*X2      MRA = MRA & ^SHIFT(1,REGN)                  GRA      1368
                     20565                        LX5    59-SO.LKP                                               GRA      1369
                          5062000000              SA6    A2+                                                     GRA      1370
           541  0325000457 +                      PL     X5,DUM1     IF SOLK[R1] " 1 ! 3  */ ^ TEMP/RJRS LOCK    GRA      1371
                                                                                                                 GRA      1372
                          5120000161 C            SA2    TRA                                                     GRA      1373
           542  12612                             BX6    X1+X2       TRA = TRA ! SHIFT(1,REGN)                   GRA      1374
                     54620                        SA6    A2                                                      GRA      1375
                          0400000457 +            EQ     DUM1                                                    GRA      1376
  
  
                                        *         KLS/KRS - SET *RF* USEAGE FOR *SXT* SO *CON* GOES TO A B-REG   GRA      1378
                                                                                                                 GRA      1379
           543                                    PROCESS (KLS,KRS)                                              GRA      1380
           543  76610                             SX6    B1                                                      GRA      1381
                     54001                        SA0    A0+B1       NC = NC + 1                                 GRA      1382
                          20662                   LX6    CA.RFP                                                  GRA      1383
                               55651              SA6    A5-B1       LIP = R1 - 1;  RF[LIP] = 1                  GRA      1384
           544  0400000457 +                      EQ     DUM1                                                    GRA      1385
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    38
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   LDST                DUM 
  
                                        **        MEMORY REFERENCE PROCESSING - DETERMINE CANIDATE TYPE          GRA      1387
                                                                                                                 GRA      1388
           545                                    PROCESS TST                                                    GRA      1389
           545  54151                             SA1    A5+B1       R2 = R1 + 1                                 CCG28      15
                     5120000014 C                 SA2    ITL                                                     CCG28      16
                               20152              LX1    -IH.CAP                                                 CCG28      17
           546  63210                             SB2    X1          C = CA[R2]                                  CCG28      18
                     76610                        SX6    B1                                                      CCG28      19
                          63320                   SB3    X2                                                      CCG28      20
                               20663              LX6    CA.EUP                                                  CCG28      21
           547  5120000000 X                      SA2    O.TET                                                   CCG28      22
                          53357                   SA3    "TB"+X5     LIP = TB + RI[R1]                           CCG28      23
                               53222              SA2    X2+B2       TW = TET(C)                                 CCG28      24
           550  0623000552 +                      GE     B2,B3,TST1  IF C > ITL    */ CREATED IN THIS LOOP       CCG28      25
                          12663                   BX6    X6+X3       EU[LIP] = 1                                 CCG28      26
                               54630              SA6    A3                                                      CCG28      27
           551  0400000457 +                      EQ     DUM1                                                    CCG28      28
                                                                                                                 CCG28      29
           552  20451                    TST1     LX4    59-D.INCP                                               CCGA009     5
                     0334000554 +                 MI     X4,TST2     IF (NOT INC[DW])                            CCGA009     6
                               12663              BX6    X6+X3                                                   FCC2124    33
           553  54630                             SA6    A3                                                      FCC2124    34
                     0400000457 +                 EQ     DUM1                                                    CCGA009     7
                                                                                                                 CCGA009     8
           554  65251                   TST2      SB2    A5-B1                                                   FCC2124    35
                     65232                        SB2    A3-B2                                                   FCC1518X   12
                          0420000557 +            ZR     B2,.TLD     IF R1-1 = LIP */ INCR NEXT TO STORE         FCC1518X   13
                                                                                                                 FCC1518X   14
           555  54341                             SA3    A4+B1       LI = DI + 1                                 FCC1518X   15
                     76110                        SX1    B1                                                      CCG28      35
                          20163                   LX1    CA.EUP                                                  CCG28      36
                               12613              BX6    X1+X3       EU[LI] = 1    */ INHIBIT ADDRESS DIFFERENCI FCC1518X   17
           556  54630                             SA6    A3                                                      FCC1518X   18
                                                                                                                 GRA      1399
           557                                    PROCESS TLD                                                    GRA      1400
           557  54341                             SA3    A4+B1       LI = DI + 1                                 GRA      1401
                     76110                        SX1    B1                                                      GRA      1402
                          54001                   SA0    A0+B1       NC = NC + 1                                 GRA      1403
                               20171              LX1    CA.VCP                                                  GRA      1404
           560  12613                             BX6    X1+X3       VC[LI] = 1                                  GRA      1405
                     54630                        SA6    A3                                                      GRA      1406
                          0400000457 +            EQ     DUM1                                                    GRA      1407
  
  
           561                                    PROCESS ST                                                     GRA      1409
           561  10244                             BX2    X4                                                      GRA      1410
                     76110                        SX1    B1                                                      GRA      1411
                          20251                   LX2    59-D.INCP                                               GRA      1412
                               53357              SA3    "TB"+X5     LIP = TB + RI[R1]                           GRA      1413
           562  20163                             LX1    CA.EUP                                                  GRA      1414
                     0322000565 +                 PL     X2,ST1      IF ^INC[DI]                                 FCC1997     5
                                                                                                                 FCC1997     6
                               65251              SB2    A5-B1                                                   FCC1997     7
           563  65232                             SB2    A3-B2                                                   FCC1997     8
                     0420000567 +                 ZR     B2,.LD      IF LIP = R1-1 */ INC NEXT TO STORE          FCC1997     9
                                                                                                                 FCC1997    10
                               12613              BX6    X1+X3       EU[LIP] = 1                                 FCC1997    11
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    39
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   ST                  DUM 
  
           564  54630                             SA6    A3                                                      FCC1997    12
                     0400000567 +                 EQ     .LD                                                     FCC1997    13
                                                                                                                 FCC1997    14
           565  12613                    ST1      BX6    X1+X3       EU[LIP] = 1                                 FCC1997    15
                     54630                        SA6    A3                                                      GRA      1418
                          20172                   LX1    CA.^RDP-CA.EUP                                          GRA      1419
                               54241              SA2    A4+B1       LI = DI + 1                                 GRA      1420
           566  12612                             BX6    X1+X2       ^RD[LI] = 1   */ INDICATE NON RECURSIVE DEF GRA      1421
                     54620                        SA6    A2                                                      GRA      1422
                                                                                                                 GRA      1423
           567                                    PROCESS (LD,ILD,LDC,LDV)                                       CCG16     214
           567  54351                             SA3    A5+B1       R2 = R1 + 1                                 GRA      1425
                     20536                        LX5    -R1.INP                                                 GRA      1426
                          76110                   SX1    B1                                                      GRA      1427
                               20330              LX3    -IH.RFP                                                 GRA      1428
           570  20171                             LX1    CA.VCP      CT = VC       */ SET FOR VALUE CANIDATE     GRA      1429
                     15630                        BX6    "RN"X3                                                  GRA      1430
                          0306000575 +            ZR     X6,LD1      IF RF[R2] = 0                               GRA      1431
                                                                                                                 GRA      1432
           571  5120000614 +                      SA2    LBM                                                     FCC2124    36
                          37362                   IX3    X6-X2                                                   FCC2124    37
           572  0333000574 +                      MI     X3,LD0      IF RF < LBM   */ CONDITIONAL REF            FCC2124    38
                          53267                   SA2    "TB"+X6     LJ = TB + RF[R2]                            GRA      1433
                               20165              LX1    CA.RFP-CA.VCP                                           GRA      1434
           573  12612                             BX6    X1+X2       RF[LJ] = 1                                  GRA      1435
                     54620                        SA6    A2                                                      GRA      1436
           574  76110                    LD0      SX1    B1                                                      FCC2124    39
                     20170                        LX1    CA.ACP      CT = AC                                     FCC2124    40
                          0400000607 +            EQ     LD3                                                     GRA      1438
                                                                                                                 GRA      1439
                                        *         CHECK SCALAR LD/ST FOR INTERFERENCE, EXPLICIT USE IN INNER LP  GRA      1440
                                                                                                                 GRA      1441
           575  53256                    LD1      SA2    B6+X5       UI = UDT( IN[R1] )                          GRA      1442
                     22642                        LX6    B4,X2                                                   GRA      1443
                          0336000603 +            MI     X6,LD2      IF IST[UI]    */ INTERFERENCE               GRA      1444
           576  20643                             LX6    UD.ISTP-UD.CMP                                          GRA      1445
                     0326000607 +                 PL     X6,LD3      IF ^CM[UI]    */ NOT MEMBER OF A CLASS      GRA      1446
                                                                                                                 GRA      1447
                                        *         CHECK TO SEE IF BASE MEMBER WAS USED ( INDEXED *LD* )          GRA      1448
                                                                                                                 GRA      1449
                                                  LX6    1+UD.CMP-UD.BMIP                                        GRA      1450
                               53266              SA2    B6+X6       UB = UDT( BMI[UI] )                         FCC1040     5
                                                  LX2    59-UD.DEFRP                                             FCC1040     6
           577  0332000603 +                      MI     X2,LD2      IF DEFR[UB]   */ BASE DEFINED IN INNER LP   FCC1040     7
                          54321                   SA3    A2+B1       U2 = UB + 1                                 FCC1040     8
                               26523              UX5    B2,X3                                                   GRA      1453
           600  6122777704                        SB2    B2-59                                                   GRA      1454
                          53235                   SA2    B5+X3       UVW = UVA( WI[U2] )                         FCC1040     9
                               23522              LX5    -B2,X2                                                  GRA      1456
           601  0325000607 +                      PL     X5,LD3      IF SHIFT( UVW , 59-BITN[U2] ) > 0           FCC1040    10
                                                                                                                 GRA      1458
                          20624                   LX6    UD.BMIP+59-UD.DEFRP                                     GRA      1459
           602  0326000607 +                      PL     X6,LD3      IF ^DEFR[UI]  */ NO DEFS IN LOOP            GRA      1460
                                                                                                                 GRA      1461
                                        *         ^ VC , CLEAR *INC* BIT OF ST PRED SO AS TO FORCE *EU*          GRA      1462
                                        *         FOR CON PRED OF *IA* INSTRUCTION.                              GRA      1463
                                                                                                                 GRA      1464
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    40
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   ST                  DUM 
  
           603  20451                    LD2      LX4    59-D.INCP                                               GRA      1465
                     0324000606 +                 PL     X4,LD2A     IF ^INC[DI]   */ ^ INC STORE                GRA      1466
                               76310              SX3    B1                                                      GRA      1467
           604  5025777775                        SA2    A5-2        DIP = R1 - 2                                GRA      1468
                          20322                   LX3    D.INCP                                                  GRA      1469
                               15623              BX6    -X3*X2      INC[DIP] = 0                                GRA      1470
           605  54620                             SA6    A2                                                      GRA      1471
                                                                                                                 GRA      1472
                                        *         CHECK FOR POSSIBLE ADDRESS CANIDATE                            GRA      1473
                                                                                                                 GRA      1474
           606  20471                    LD2A     LX4    D.INCP-D.FPP                                            GRA      1475
                     0324000457 +                 PL     X4,DUM1     IF ^FP[DI]                                  GRA      1476
                               20173              LX1    CA.ACP-CA.VCP     CT = AC                               GRA      1477
                                                                                                                 GRA      1478
           607  54341                    LD3      SA3    A4+B1       LI = DI + 1                                 GRA      1479
                     54001                        SA0    A0+B1       NC = NC + 1                                 GRA      1480
                          12613                   BX6    X1+X3       CT[LI] = 1                                  GRA      1481
                               54630              SA6    A3                                                      GRA      1482
           610  0400000457 +                      EQ     DUM1                                                    GRA      1483
  
  
  
           611                                    PROCESS PST                                                    CCGA082     7
           611  15350                             BX3    "RN"X5                                                  CCGA082     8
                     7233777776                   SX3    X3-1                                                    CCGA082     9
                               53237              SA2    "TB"+X3     DI OF PRED                                  CCGA082    10
           612  76110                             SX1    B1                                                      CCGA082    11
                     20122                        LX1    D.INCP                                                  CCGA082    12
                          15621                   BX6    -X1*X2      INC[DIP] = 0                                CCGA082    13
                               54620              SA6    A2                                                      CCGA082    14
           613  0400000457 +                      EQ     DUM1                                                    CCGA082    15
  
  
  
  
                                        **        FBM - FIND BOUNDARY MARKERS                                    FCC2124    42
                                        *         FOWARD SCAN TO FIND BOUNDARY MARKERS IN AN EBB.                FCC2124    43
                                        *         USED BY PROCESSORS SO AS TO NOT SET THE *RF* BIT WHEN THE      FCC2124    44
                                        *         INSTRUCTION REFERENCING THE RF IS CONDITIONALLY EXECUTED.      FCC2124    45
                                        *         AN ASSIGNMENT OF THE RF TO A B-REGISTER MAY CAUSE AN OVERFLOW  FCC2124    46
                                        *         AT EXECUTION TIME.                                             FCC2124    47
                                                                                                                 FCC2124    48
           614                     1     LBM      BSS    1           LAST BOUNDARY MARKER                        FCC2124    49
                                                                                                                 FCC2124    50
           615  5170000614 +             FBM0     SA7    LBM         LBM = LB                                    FCC2124    51
           616  0200400616 +             FBM      ROUTINE                                                        FCC2124    52
           617  76700                             SX7    B0          LB = 0                                      FCC2124    53
                     5110000000 X                 SA1    =XHO$UO                                                 FCC2124    54
           620  0311000615 +                      NZ     X1,FBM0     IF UO " 0                                   FCC2124    55
                          5110000000 X            SA1    HO$OPT                                                  CCGA009     9
           621  0321000624 +                      PL     X1,FBM1     IF OPT NE 2                                 CCGA009    10
                          53250                   SA2    X5          R1 = [TXT]                                  FCC2124    58
                               43372              MX3    -2                                                      FCC2124    59
           622  20252                             LX2    -R1.H2P                                                 FCC2124    60
                     15423                        BX4    -X3*X2                                                  FCC2124    61
                          0314000624 +            NZ     X4,FBM1     IF AP ! LN    */ BLOCK EXECUTED UNCONDITION FCC2124    62
           623  7170377777                        SX7    377777B     LB = INFINITY                               FCC2124    63
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    41
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   FBM                 DUM 
  
                          0400000615 +            EQ     FBM0                                                    FCC2124    64
                                                                                                                 FCC2124    65
           624  6265000002               FBM1     SB6    X5+2        D0 = TXT + 2                                FCC2124    66
                          66211                   SB2    B1+B1                                                   FCC2124    67
                               56460              SA4    B6          DI = D0                                     FCC2124    68
                                                                                                                 FCC2124    69
           625  54342                    FBM2     SA3    A4+B2       R1 = DI + 2                                 FCC2124    70
                     54432                        SA4    A3+B2       DI = R1 + 2                                 FCC2124    71
                          26633                   UX6    B3,X3                                                   FCC2124    72
                               20432              LX4    59-D.JPP                                                FCC2124    73
           626  0430000615 +                      ZR     B3,FBM0     IF OC[R1] = 0 */ END OF SEQUENCE            FCC2124    74
                          0324000625 +            PL     X4,FBM2     IF ^JP[DI]                                  FCC2124    75
                                                                                                                 FCC2124    76
           627  54741                             SA7    A4+B1       [DI+1] = LB   */ SAVE INDEX OF LAST BM      FCC2124    77
                     75746                        SX7    A4-B6       LB = DI - D0                                FCC2124    78
                          0400000625 +            EQ     FBM2                                                    FCC2124    79
                                                                                                                 GRA      1484
                                                  QUAL   *                                                       GRA      1485
                                 450 +   DUM      EQU    /DUM/DUM                                                GRA      1486
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE ENTRY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    42
        DUM - DETERMINE USEAGE MODE OF INSTRUCTIONS                   DUM.JT
  
                                        **        DEFINE *OPR* MACRO TO CREATE COMBINED JUMP TABLE FOR *ERC/DUM* GRA      1488
                                        *         AND A LIST OF OPCODES WHICH MAY PRECEED A *RS* TO A B-REG.     GRA      1489
                                                                                                                 GRA      1490
                                                  ECHO   2,X=(S,SA,SS,STT)                                       GRA      1491
                                                  NOREF  BRS.X                                                   GRA      1492
                                         BRS.X    EQU    1                                                       GRA      1493
                                                                                                                 GRA      1494
                                                  MACRO  OPR,NAM,SS                                              GRA      1495
                                                  NOREF  /DUM/.NAM,/ERC/.NAM                                     GRA      1496
                                        *                                                                        GRA      1497
                                                  IF     DEF,/ERC/.NAM,2                                         GRA      1498
                                                  EQ     /ERC/.NAM             NAM                               GRA      1499
                                                  ELSE   1                                                       GRA      1500
                                                  EQ     /ERC/ERC1   NAM                                         GRA      1501
                                        *                                                                        GRA      1502
                                                  NOREF  BRS.NAM                                                 GRA      1503
                                                  IF     DEF,BRS.NAM,2                                           GRA      1504
                                        -         VFD    12/1S11                                                 GRA      1505
                                                  ELSE   1                                                       GRA      1506
                                        -         VFD    12/0                                                    GRA      1507
                                        *                                                                        GRA      1508
                                         O        IF     DEF,/DUM/.NAM                                           GRA      1509
                                                  VFD 18//DUM/.NAM             NAM                               GRA      1510
                                         O        ELSE                                                           GRA      1511
                                         TYP      MICRO  4,1,$SS$                                                GRA      1512
                                                  IFC    EQ,/"TYP"/ /,2                                          GRA      1513
                                                  VFD 18//DUM/TYI    NAM                                         GRA      1514
                                                  SKIP   1                                                       GRA      1515
                                                  VFD 18//DUM/DUM1                                               GRA      1516
                                         O        ENDIF                                                          GRA      1517
                                        *                                                                        GRA      1518
                                                  ENDM                                                           GRA      1519
                                                                                                                 GRA      1520
           630                           DUM.JT   BSS    0                                                       GRA      1521
           630                           ERC.JT   BSS    0                                                       GRA      1522
           630                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    43
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
                                        **        MTA - MAKE TENATIVE B-ASSIGNMENTS, MAKE TENATIVE COUNTING      GRA      1526
                                        *         METHOD DECISION ( *TRD* ).                                     GRA      1527
                                                                                                                 GRA      1528
           737                           MTAA     BFMW   CA,(VC,RF)                                              GRA      1529
           740                           MTAB     BFMW   CA,(IRA,EU,LX)    NO BIAS BITS ( BY AN *CAIH* )         GRA      1530
                                                                                                                 GRA      1531
           741  0200400741 +             MTA      ROUTINE                                                        GRA      1532
           742  5120000015 C                      SA2    MRA                                                     GRA      1533
                          7130000376              SX3    376B                                                    GRA      1534
           743  11432                             BX4    X3*X2       BR = MRA & 376B  */ B-REGS                  GRA      1535
                     73541                        SX5    X4+B1                                                   GRA      1536
                          27605                   PX6    X5          ABR = PACK( 0 , BR+1 )                      GRA      1537
                               47744              CX7    X4          NAB = COUNT( BR )                           GRA      1538
           744  5160000167 C                      SA6    ABR                                                     GRA      1539
                          5170000170 C            SA7    NAB                                                     GRA      1540
           745  5170000171 C                      SA7    NTA         NTA = NAB                                   GRA      1541
                          0307000741 +            ZR     X7,MTA      IF NAB = 0    */ NO B-S AVAIL               GRA      1542
                                                                                                                 GRA      1543
                                        *         SELECT VALUE CANIDATES THAT ARE *RF* FROM *RCT* AND FORM A     GRA      1544
                                        *         SORT TABLE.  FORMAT - 42/SORT[CAW],18/RCT INDEX  ( *CO* )      GRA      1545
                                                                                                                 GRA      1546
           746  5110000165 C                      SA1    NVC                                                     GRA      1547
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , NVC )  */ SORT TABLE           GRA      1548
           750  5140000000 X                      SA4    O.RCT                                                   GRA      1549
                          5150000000 X            SA5    L.RCT                                                   GRA      1550
           751  43700                             MX7    0                                                       GRA      1551
                     53720                        SA7    X2          SI = [O.RND];  [SI] = 0                     GRA      1552
                          43044                   MX0    -CA.SORTL                                               GRA      1553
                               63721              SB7    X2+B1       S0 = SI + 1                                 GRA      1554
           752  20030                             LX0    CA.SORTP                                                GRA      1555
                     63640                        SB6    X4          CO = [O.RCT]                                GRA      1556
                          6130000003              SB3    3                                                       GRA      1557
           753  53556                             SA5    B6+X5       CI = CO + L.RCT                             GRA      1558
                     5110000737 +                 SA1    MTAA                                                    GRA      1559
                                                                                                                 GRA      1560
           754  55553                    MTA1     SA5    A5-B3       CI = CI - 3                                 GRA      1561
                     0305000760 +                 ZR     X5,MTA2     IF [CI] = 0   */ END OF TABLE               GRA      1562
                               16651              BX6    -X1+X5                                                  GRA      1563
           755  0316000754 +                      NZ     X6,MTA1     IF ^( VC[CI] & RF[CI] )                     GRA      1564
                                                                                                                 GRA      1565
                          15350                   BX3    -X0*X5                                                  GRA      1566
                               20512              LX5    59-CA.^RDP                                              GRA      1567
           756  0335000754 +                      MI     X5,MTA1     IF ^RD[CI]    */ NON RECURSIVE DEF          GRA      1568
                                                                                                                 GRA      1569
                          75456                   SX4    A5-B6       I = CI - CO                                 GRA      1570
                               36734              IX7    X3+X4                                                   GRA      1571
           757  54771                             SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I           GRA      1572
                     0400000754 +                 EQ     MTA1                                                    GRA      1573
                                                                                                                 GRA      1574
           760  64371                    MTA2     SB3    A7+B1       SI = SI + 1                                 GRA      1575
                     77137                        SX1    B3-B7       LEN = SI - SO                               GRA      1576
                          0301001051 +            ZR     X1,MTA12    IF LEN = 0    */ NO CANIDATES               GRA      1577
                                                                                                                 GRA      1578
           761  0100000000 X                      CALL   SHL#        SORT( RND )                                 CCGNC     649
                                                  TRACE  MTA,RND                                                 GRA      1580
                                                                                                                 GRA      1581
                                        *         ON EXIT FROM *SHL* (B6) = CO IS INTACT AND (B3) = SI, LWA+1    GRA      1582
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    44
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
                                        *         NOTE THAT THE LOOP INDEX AND LIMIT ( IF A VARIABLE ) WILL BE   GRA      1584
                                        *         THE LAST 2 ENTRIES IN THE TABLE.  USING THESE FACTS AND OTHER  GRA      1585
                                        *         INFO MAKE A PRELIMINARY COUNTING METHOD/TEST REPLACEMENT       GRA      1586
                                        *         DECISION.  SET *TRD* TO ONE OF THE FOLLOWING.                  GRA      1587
                                        *         0      NO TEST REPLACEMENT                                     GRA      1588
                                        *         1      I-N IN A B-REG                                          GRA      1589
                                        *         2      I AND N IN B-REGS                                       GRA      1590
                                        *         3      I, N ALLOCATED, COUNT BY A+I AND LIMIT = A+N            GRA      1591
                                        *         4      I ASSIGNED, COUNT BY F(I), F(N) WHERE *F* IS A          GRA      1592
                                        *                LINEAR FUNCTION OF I ( I.E. A INTEGER POLYNOMIAL ).     GRA      1593
                                                                                                                 GRA      1594
           762  5110000030 C                      SA1    LTT                                                     GRA      1595
                          67731                   SB7    B3-B1       SI = SI - 1   */ LWA OF SORT TABLE          GRA      1596
                               56000              SA0    B0          TRM = 0       */ TEST REPLACEMENT MODE      GRA      1597
           763  0301001041 +                      ZR     X1,MTA11    IF LTT = 0    */ LOOP TEST NOT STANDARD FOR GRA      1598
                                                                                                                 GRA      1599
                                        *         GET A B-REG FOR THE *CV*                                       GRA      1600
                                                                                                                 GRA      1601
                          56570                   SA5    B7                                                      GRA      1602
                               63450              SB4    X5          I = CO[SI]    */ CANIDATE ORDINAL           GRA      1603
           764  53456                             SA4    B6+X5       CI = RCT(I)                                 GRA      1604
                     20414                        LX4    59-CA.TUP                                               GRA      1605
                          0324001041 +            PL     X4,MTA11    IF ^TU[CI]    */ CHECK FOR *CV*             GRA      1606
           765  20432                             LX4    CA.TUP-CA.DEFP                                          GRA      1607
                     0324001041 +                 PL     X4,MTA11    IF ^DEF[CI]                                 GRA      1608
                               43100              MX1    0           INVF = 0                                    GRA      1609
           766  0100001102 +                      RJ     AIR         ASSIGN *CV* TO AN INDEX REGISTER            GRA      1610
           767  77602                             SX6    -B2                                                     GRA      1611
                     5160000022 C                 SA6    LCV+1       LCV(2) = REGNO                              GRA      1612
                               67771              SB7    B7-B1       SI = SI - 1   */ REMOVE FROM SORT TABLE     GRA      1613
           770  21603                             AX6    3                                                       GRA      1614
                     0316001041 +                 NZ     X6,MTA11    IF REGNO > 10B  */ *CV* IN AN X-REG         GRA      1615
                                        *                            IN FUTURE - DELETE X-ASSIGNMENT AND LOOP    GRA      1616
                                                                                                                 GRA      1617
                                        *         FIND THE UPPER LIMIT. IT IS NOT IN *RCT* IF IN A INNER LP      GRA      1618
                                        *         AND IT IS A CONSTANT.                                          GRA      1619
                                                                                                                 GRA      1620
           771  56570                    MTA2A    SA5    B7                                                      GRA      1621
                     5110000023 C                 SA1    LUL                                                     GRA      1622
                               63450              SB4    X5          I = CO[SI]    */ POSSIBLE *UL*              GRA      1623
           772  20514                             LX5    59-CA.TUP                                               GRA      1624
                     0325001002 +                 PL     X5,MTA3     IF ^TU[SI]    */ NOT TEST USE               GRA      1625
                                                                                                                 GRA      1626
                                        *         ENTRY IS *TU*, ENSURE THAT IT IS NOT A VARIABLE INCREMENT      GRA      1627
                                                                                                                 GRA      1628
                               56464              SA4    B6+B4       CAW = RCT(I)                                GRA      1629
           773  26621                             UX6    B2,X1                                                   GRA      1630
                     21644                        AX6    PS.UDIP                                                 GRA      1631
                          13764                   BX7    X6-X4                                                   GRA      1632
                               63370              SB3    X7                                                      GRA      1633
           774  0430001010 +                      ZR     B3,MTA5     IF UDI[CAW] = UDI[LUL]                      GRA      1634
                                                                                                                 GRA      1635
                          43201                   MX2    1                                                       GRA      1636
                               15652              BX6    -X2*X5      TU[SI] = 0                                  GRA      1637
           775  43700                             MX7    0                                                       GRA      1638
                     20660                        LX6    1+CA.TUP                                                GRA      1639
                          5170000037 C            SA7    STP         STP = 0       */ INHIBIT BIASING IN *MFA*   GRA      1640
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    45
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
           776  54650                             SA6    A5                                                      GRA      1641
                     20264                        LX2    1+CA.EUP                                                GRA      1642
                          12724                   BX7    X2+X4       EU[CAW] = 1   */ INHIBTI BIASING IN *MFA*   GRA      1643
                               54740              SA7    A4                                                      GRA      1644
           777  0420001002 +                      ZR     B2,MTA3     IF TYP[LUL] = 0  */ *UL* IS A CON           GRA      1645
                                                                                                                 GRA      1646
                                        *         VARIABLE INC BEFORE VARIABLE *UL*, SWAP ENTRIES                GRA      1647
                                                                                                                 GRA      1648
                          57371                   SA3    B7-B1                                                   GRA      1649
          1000  0303001041 +                      ZR     X3,MTA11    IF [SI-1] = 0 */ UL NOT IN SORT TABLE       GRA      1650
                          54630                   SA6    A3          SWAP( [SI] , [SI-1] )                       GRA      1651
                               10733              BX7    X3                                                      GRA      1652
          1001  54750                             SA7    A5                                                      GRA      1653
                     0400000771 +                 EQ     MTA2A                                                   GRA      1654
                                                                                                                 GRA      1655
                                        *         SEARCH *RCT* FOR CON *UL* IF FINAL B-ASSIGNMENTS WERE MADE     GRA      1656
                                                                                                                 GRA      1657
          1002  26621                    MTA3     UX6    B2,X1                                                   GRA      1658
                     0520001041 +                 NZ     B2,MTA11    IF TYP[LUL] " 0   */ *UL* IS A VAR          GRA      1659
                               20622              LX6    IH.CAP                                                  GRA      1660
          1003  5130000163 C                      SA3    FBA                                                     GRA      1661
                          6140000000              SB4    0           I = 0                                       GRA      1662
          1004  0303001010 +                      ZR     X3,MTA5     IF FBA = 0    */ NO FINAL B-ASSIGNMENTS     GRA      1663
                                                                                                                 GRA      1664
                          5120000000 X            SA2    L.RCT                                                   GRA      1665
          1005  66261                             SB2    B6+B1                                                   GRA      1666
                     56661                        SA6    B6+B1       KEY = [CO+1] = IHW(0,0,CA[LUL],0)           GRA      1667
                          53522                   SA5    B2+X2       CI = CO+1 + L.RCT                           GRA      1668
                                                                                                                 GRA      1669
          1006  5055777774               MTA4     SA5    A5-3        CI = CI - 3                                 GRA      1670
                          13765                   BX7    X6-X5                                                   GRA      1671
          1007  0317001006 +                      NZ     X7,MTA4     IF [CA] " KEY                               GRA      1672
                                                                                                                 GRA      1673
                          65452                   SB4    A5-B2       I = CI - (CO+1)                             GRA      1674
                               56761              SA7    B6+B1       [CO+1] = 0                                  GRA      1675
  
  
                                        *         NOW LOOK AT TEST REPLACEMENT POSSABILITIES                     GRA      1677
                                                                                                                 GRA      1678
          1010  56264                    MTA5     SA2    B6+B4       ULW = RCT(I)  */ *UL* WORD                  GRA      1679
                     56011                        SA0    B1+B1       TRM = 2       */ I,N IN B-REGS              GRA      1680
                                                  LX2    59-CA.RAP                                               GRA      1681
                          0322001016 +            PL     X2,MTA6     IF ^RA[ULW]                                 GRA      1682
                                                                                                                 GRA      1683
                                        *         *UL* IN A REGISTER, SET *EU* BIT FOR *CV* SO IT ISNT BIASED.   GRA      1684
                                                                                                                 GRA      1685
          1011  5012000002                        SA1    A2+2        CC = RCT(I+2)                               GRA      1686
                                                  LX1    -CC.REG1P                                               GRA      1687
                          43766                   MX7    -CC.REG1L                                               GRA      1688
                               15617              BX6    -X7*X1                                                  GRA      1689
          1012  6226777767                        SB2    X6-10B                                                  GRA      1690
                          5160000024 C            SA6    LUL+1       LUL(2) = REG1[CC]                           GRA      1691
          1013  56271                             SA2    B7+B1       CVO = CO[SI+1]                              GRA      1692
                     53326                        SA3    B6+X2                                                   GRA      1693
                          76110                   SX1    B1                                                      GRA      1694
                               20163              LX1    CA.EUP                                                  GRA      1695
          1014  12613                             BX6    X1+X3       EU[RCT(CVO)] = 1  */ INHIBIT BIASING IN *MF GRA      1696
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    46
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
                     54630                        SA6    A3                                                      GRA      1697
                          0720001041 +            MI     B2,MTA11    IF REG1[CC] < 10B  */ *UL* IN A B-REG       GRA      1698
          1015  56000                             SA0    B0          TRM = 0                                     GRA      1699
                     0400001041 +                 EQ     MTA11                                                   GRA      1700
                                                                                                                 GRA      1701
          1016  56171                    MTA6     SA1    B7+B1                                                   GRA      1702
                     5130000740 +                 SA3    MTAB                                                    GRA      1703
                               20243              LX2    CA.RAP-CA.SUSEP                                         GRA      1704
          1017  53516                             SA5    B6+X1       CVW = RCT([SI+1])  */ *CV* WORD             GRA      1705
                     11635                        BX6    X3*X5                                                   GRA      1706
                          0316001035 +            NZ     X6,MTA10    IF (IRA,EU,LX)[CVW]                         GRA      1707
          1020  43764                             MX7    -CA.SUSEL+1                                             GRA      1708
                     15627                        BX6    -X7*X2                                                  GRA      1709
                          0316001022 +            NZ     X6,MFA6A    IF SUSE[ULW] > 1                            GRA      1710
          1021  10622                             BX6    X2                                                      GRA      1711
                     20635                        LX6    CA.SUSEP-CA.CONP                                        GRA      1712
                          0326001024 +            PL     X6,MTA7     IF ^CON[ULW]  */ NO OTHER USES              GRA      1713
                                                                                                                 GRA      1714
          1022  76610                    MFA6A    SX6    B1                                                      GRA      1715
                     20231                        LX2    1+CA.SUSEP                                              GRA      1716
                          20623                   LX6    CA.LXP                                                  GRA      1717
                               12762              BX7    X6+X2       LX[ULW] = 1   */ INHIBIT BIASING IN *MFA*   GRA      1718
          1023  54720                             SA7    A2                                                      GRA      1719
                     0400001035 +                 EQ     MTA10                                                   GRA      1720
                                                                                                                 GRA      1721
                                        *         *CV* IS DEAD ON EXIT AND ^EU                                   GRA      1722
                                                                                                                 GRA      1723
          1024  5110000166 C             MTA7     SA1    TUD                                                     GRA      1724
                          54001                   SA0    A0+B1       TRM = 3       */ A+I, A+N                   GRA      1725
                               23711              AX7    B1,X1                                                   GRA      1726
          1025  0317001035 +                      NZ     X7,MTA10    IF TUD > 1    */ I IS USED IN INDEXED LD"S  GRA      1727
                                                                                                                 GRA      1728
                          5130000037 C            SA3    STP                                                     GRA      1729
          1026  5100000001                        SA0    1           TRM = 1       */ I-N CASE                   GRA      1730
                          0303001031 +            ZR     X3,MTA8     IF STP = 0    */ NO *IP* WHICH IS F(I)      GRA      1731
                                                                                                                 GRA      1732
          1027  5110000170 C                      SA1    NAB                                                     GRA      1733
                          0301001051 +            ZR     X1,MTA12    IF NAB = 0                                  GRA      1734
          1030  5100000004                        SA0    4           TRM = 4       */ F(I), F(N) CASE            GRA      1735
                                                                                                                 GRA      1736
                                        *         REMOVE VAR *UL* FROM CONSIDERATION                             GRA      1737
                                                                                                                 GRA      1738
          1031  56270                    MTA8     SA2    B7                                                      GRA      1739
                     53326                        SA3    B6+X2                                                   GRA      1740
                          73620                   SX6    X2                                                      GRA      1741
                               20214              LX2    59-CA.TUP                                               GRA      1742
          1032  0322001041 +                      PL     X2,MTA11    IF ^TU[SI]    */ NOT VAR *UL*               GRA      1743
                          5160000100 C            SA6    RAT         RAT = CO[SI]  */ SAVE ORD OF *UL*           GRA      1744
          1033  67771                             SB7    B7-B1       SI = SI - 1                                 GRA      1745
                     43101                        MX1    1                                                       GRA      1746
                                                  LX1    1+CA.RAP                                                GRA      1747
                          12713                   BX7    X1+X3       RA[RCT(CO[SI])] = 1                         GRA      1748
                               54730              SA7    A3                                                      GRA      1749
          1034  0400001041 +                      EQ     MTA11                                                   GRA      1750
                                                                                                                 GRA      1751
                                        *         ASSIGN A REGISTER FOR THE *UL*                                 GRA      1752
                                                                                                                 GRA      1753
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    47
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
          1035  5110000170 C             MTA10    SA1    NAB                                                     GRA      1754
                          0301001051 +            ZR     X1,MTA12    IF NAB = 0                                  GRA      1755
          1036  76110                             SX1    B1          INVF = 1                                    GRA      1756
                     0100001102 +                 RJ     AIR         ASSIGN IT TO A REGISTER                     GRA      1757
          1037  77602                             SX6    -B2                                                     GRA      1758
                     5160000024 C                 SA6    LUL+1       LUL(2) = REGNO                              GRA      1759
                               43700              MX7    0                                                       GRA      1760
          1040  56760                             SA7    B6          [CO] = 0      */ IN CASE WE ASSIGNED 0      GRA      1761
                     56761                        SA7    B6+B1       [CO+1] = 0                                  GRA      1762
                          5176000002              SA7    B6+2        [CO+2] = 0                                  GRA      1763
                                                                                                                 GRA      1764
                                        *         ASSIGN REMAINING CANIDATES TO REGISTERS                        GRA      1765
                                                                                                                 GRA      1766
          1041  56570                    MTA11    SA5    B7                                                      GRA      1767
                     5110000170 C                 SA1    NAB                                                     GRA      1768
                               63450              SB4    X5          I = CO[SI]                                  GRA      1769
          1042  0305001052 +                      ZR     X5,MTA14    IF I = 0      */ END OF TABLE               GRA      1770
                          0301001052 +            ZR     X1,MTA14    IF NAB = 0    */ END OF REGS                GRA      1771
          1043  56464                             SA4    B6+B4                                                   GRA      1772
                     76010                        SX0    B1                                                      GRA      1773
                          20447                   LX4    -CA.DEFP                                                GRA      1774
                               15104              BX1    -X4*X0      INVF = ^DEF[RCT(I)]                         GRA      1775
          1044  0100001102 +                      RJ     AIR         ASSIGN IT TO A REGISTER                     GRA      1776
          1045  73270                             SX2    X7                                                      GRA      1777
                     67771                        SB7    B7-B1       SI = SI - 1                                 GRA      1778
                          0312001041 +            NZ     X2,MTA11    IF UDT[CAW] " 0  */ PROGRAMMER VAR          GRA      1779
                                                                                                                 GRA      1780
          1046  54471                             SA4    A7+B1                                                   GRA      1781
                     5130000000 X                 SA3    O.TET                                                   GRA      1782
                               20452              LX4    -IH.CAP     C = CA[RCT(I+1)]                            GRA      1783
          1047  63330                             SB3    X3                                                      GRA      1784
                     53243                        SA2    B3+X4                                                   GRA      1785
                          77502                   SX5    -B2                                                     GRA      1786
                               20522              LX5    T.REGP                                                  GRA      1787
          1050  12652                             BX6    X5+X2       REG[TET(C)] = REGNO                         GRA      1788
                     54620                        SA6    A2                                                      GRA      1789
                          0400001041 +            EQ     MTA11                                                   GRA      1790
                                                                                                                 GRA      1791
          1051  5100000000               MTA12    SA0    0           TRM = 0                                     GRA      1792
                                                                                                                 GRA      1793
                                        *         SAVE FLAGS, CHECK TEST REPLACEMENT DECISION                    GRA      1794
                                                                                                                 GRA      1795
          1052  5140000171 C             MTA14    SA4    NTA                                                     GRA      1796
                          5150000170 C            SA5    NAB                                                     GRA      1797
          1053  5110000167 C                      SA1    ABR                                                     GRA      1798
                          5120000015 C            SA2    MRA                                                     GRA      1799
          1054  74600                             SX6    A0                                                      GRA      1800
                     43700                        MX7    0                                                       GRA      1801
                          5160000172 C            SA6    TRD         TRD = TRM                                   GRA      1802
          1055  5170000000 X                      SA7    L.RND       L.RND = 0                                   GRA      1803
                          37645                   IX6    X4-X5       NTA = NTA - NAB  */ N. TENATIVE ASSIGNMENTS GRA      1804
                               54640              SA6    A4                                                      GRA      1805
          1056  43764                             MX7    -8                                                      GRA      1806
                     12371                        BX3    X7+X1                                                   GRA      1807
                          11732                   BX7    X3*X2       MRA = MRA & ( ABR + 77777400B )             GRA      1808
                               54720              SA7    A2                                                      GRA      1809
                                                                                                                 GRA      1810
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    48
        MTA - MAKE TENATIVE B-ASSIGNMENTS                             MTA 
  
          1057  5110000030 C                      SA1    LTT                                                     GRA      1811
                          74200                   SX2    A0                                                      GRA      1812
                               76010              SX0    B1                                                      GRA      1813
                                                                                                                 GRA      1814
                                        *         TRM = 0 , SCAN *RCT* AND SET *EU* BIT FOR ALL CANIDATES THAT   GRA      1815
                                        *         ARE MARKED AS *TU* SO *IRA* WILL MATERIALIZE THEM IN AN        GRA      1816
                                        *         X-REGISTER IN THE CASE THEY WERE ASSIGNED TO A B-REG.          GRA      1817
                                                                                                                 GRA      1818
          1060  5130000000 X                      SA3    L.RCT                                                   GRA      1819
                          6150000014              SB5    59-CA.TUP                                               GRA      1820
          1061  20063                             LX0    CA.EUP                                                  GRA      1821
                     63736                        SB7    B6+X3       CI = RCT;  LIM = RCT + L.RCT                GRA      1822
                          66460                   SB4    B6                                                      GRA      1823
          1062  0301001066 +                      ZR     X1,MTA17    IF LTT = 0    */ NO *TU* GAMES              GRA      1824
                          0312001066 +            NZ     X2,MTA17    IF TRM " 0    */ *TU* BIT IS SUFFICIENT     GRA      1825
                                                                                                                 GRA      1826
          1063  56560                    MTA15    SA5    B6                                                      GRA      1827
                     6166000003                   SB6    B6+3                                                    GRA      1828
                               22455              LX4    B5,X5                                                   GRA      1829
          1064  0324001065 +                      PL     X4,MTA16    IF ^TU[CI]                                  GRA      1830
                          12605                   BX6    X0+X5       EU[CI] = 1                                  GRA      1831
                               54650              SA6    A5                                                      GRA      1832
          1065  0767001063 +             MTA16    LT     B6,B7,MTA15 IF CI < LIM                                 GRA      1833
                                                                                                                 GRA      1834
                                        *         SCAN *RCT* FOR CANIDATES THAT ARE *IA* AND *RA* AND BUMP       GRA      1835
                                        *         *NOCC* OF THEIR INCREMENTS TO FORCE THEM TO A B-REGISTER.      GRA      1836
                                                                                                                 GRA      1837
          1066  5110001076 +             MTA17    SA1    MTAC                                                    GRA      1838
                          54211                   SA2    A1+B1                                                   GRA      1839
                               56570              SA5    B7          CI = LIM                                    GRA      1840
          1067  20052                             LX0    CA.NOCCP-CA.EUP                                         GRA      1841
                     6130000003                   SB3    3                                                       GRA      1842
                                                                                                                 GRA      1843
          1070  55553                    MTA18    SA5    A5-B3       CI = CI - 3                                 GRA      1844
                     0305000741 +                 ZR     X5,MTA      IF [CI] = 0   */ END OF RCT                 GRA      1845
                               16651              BX6    -X1+X5                                                  GRA      1846
          1071  0316001070 +                      NZ     X6,MTA18    IF ^(RA,VC,IA,RF)[CI]                       GRA      1847
                          11625                   BX6    X2*X5                                                   GRA      1848
          1072  0316001070 +                      NZ     X6,MTA18    IF KD[CI] ! ^RD[CI]                         GRA      1849
                          5035000002              SA3    A5+2        CCW = CI + 2                                GRA      1850
          1073  20330                             LX3    -CC.INCP                                                GRA      1851
                     53434                        SA4    B4+X3       CJ = RCT(INC[CCW])                          GRA      1852
                          36604                   IX6    X0+X4                                                   GRA      1853
                               20404              LX4    59-CA.CONP                                              GRA      1854
          1074  0324001070 +                      PL     X4,MTA18    IF ^CON[CJ]   */ INC IS NOT A *CON*         GRA      1855
                          54640                   SA6    A4          NOCC[CJ] = NOCC[CJ] + 1                     GRA      1856
          1075  0400001070 +                      EQ     MTA18                                                   GRA      1857
                                                                                                                 GRA      1858
          1076                           MTAC     BFMW   CA,(RA,VC,IA,RF)                                        GRA      1859
          1077                                    BFMW   CA,(KD,^RD)                                             GRA      1860
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    49
        AIR - ASSIGN INDEX REGISTER                                   AIR 
  
                                        **        AIR - ASSIGN INDEX REGISTER                                    GRA      1862
                                        *                                                                        GRA      1863
                                        *         ENTRY  (B4) = I, RCT INDEX OF CANIDATE                         GRA      1864
                                        *                (B6) = [O.RCT]                                          GRA      1865
                                        *                (X1) = INVF , = 1 IS INV IN LOOP, ELSE 0                GRA      1866
                                        *                                                                        GRA      1867
                                        *         EXIT   (B2) = -REGNO ASSIGNED                                  GRA      1868
                                        *                (A7,A7) = RCT(I)                                        GRA      1869
                                        *                *RCT* ENTRY, RAT, NAB, ABR UPDATED                      GRA      1870
                                                                                                                 GRA      1871
          1100  5025000002               AIR1     SA2    A5+2        CCW = RCT(I+2)                              GRA      1872
                                                  LX5    1+CA.RAP                                                GRA      1873
                          10755                   BX7    X5                                                      GRA      1874
                               43666              MX6    -CC.REG1L                                               GRA      1875
                                                  LX2    -CC.REG1P                                               GRA      1876
          1101  16462                             BX4    -X2+X6                                                  GRA      1877
                     5075000000                   SA7    A5+                                                     GRA      1878
                               63240              SB2    X4          REGNO = REG1[CCW]                           GRA      1879
                                                                                                                 GRA      1880
          1102  0200401102 +             AIR      ROUTINE                                                        GRA      1881
          1103  56564                             SA5    B6+B4       CAW = RCT(I)                                GRA      1882
                                                  LX5    59-CA.RAP                                               GRA      1883
                     0335001100 +                 MI     X5,AIR1     IF RA[CAW]    */ REG PREVIOUSLY ASSIGNED    GRA      1884
                                                                                                                 GRA      1885
                               76210              SX2    B1                                                      GRA      1886
          1104  5140000167 C                      SA4    ABR                                                     GRA      1887
                          5130000170 C            SA3    NAB                                                     GRA      1888
          1105  24724                             NX7    B2,X4                                                   GRA      1889
                     37632                        IX6    X3-X2       NAB = NAB - 1                               GRA      1890
                          6122777720              SB2    B2-47       REGNO = 47 - NORMC( ABR )                   GRA      1891
          1106  54630                             SA6    A3                                                      GRA      1892
                     23222                        LX2    -B2,X2                                                  GRA      1893
                          15742                   BX7    -X2*X4      ABR = ABR & ^SHIFT(1,REGNO)                 GRA      1894
                               54740              SA7    A4                                                      GRA      1895
          1107  77602                             SX6    -B2                                                     GRA      1896
                     76740                        SX7    B4                                                      GRA      1897
                          20173                   LX1    RA.INVP                                                 GRA      1898
                               12717              BX7    X1+X7       INV[RAT(REGNO)] = INVF                      GRA      1899
          1110  5276000100 C                      SA7    RAT+X6      R1[RAT(REGNO)] = I  */ RAT POINTS TO RCT    GRA      1900
                                                  LX6    CC.REG1P                                                GRA      1901
                          43401                   MX4    1                                                       GRA      1902
                               12745              BX7    X4+X5       RA[CAW] = 1                                 GRA      1903
                                                  LX7    1+CA.RAP                                                GRA      1904
          1111  54750                             SA7    A5                                                      GRA      1905
                     5035000002                   SA3    A5+2                                                    GRA      1906
                               12663              BX6    X6+X3       REG1[RCT(I+2)] = REGNO                      GRA      1907
          1112  54630                             SA6    A3                                                      GRA      1908
                     0400001102 +                 EQ     AIR                                                     GRA      1909
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    50
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                                        **        DXA - DETERMINE X-ASSIGNMENTS IN AN INNERMOST LOOP             GRA      1911
                                        *         FORM X-REGISTER CANIDATE TABLE AND SORT.                       GRA      1912
                                        *         SELECT A MAX OF 4 CANIDATES AND SEE IF THE LOOP CAN BE CODED   GRA      1913
                                        *         WITH THEM LOCKED IN REGISTERS.  COUNT NUMBER OF REMAINING      GRA      1914
                                        *         MEMORY REFS IN THE LOOP AND MAKE THE X-ASSIGNMENTS.            GRA      1915
                                        *                                                                        GRA      1916
                                        *         ENTRY  (XRF) = 0 , NO EXTERNAL REFS                            GRA      1917
                                        *                MAXW < 8 + NTA , X-REG ASSIGNMENT MAY BE POSSIBLE       GRA      1918
                                        *                                                                        GRA      1919
                                        *         EXIT   (MLW) = MAX REG WIDTH IN LOOP BODY AFTER X-ASSIGNMENT   GRA      1920
                                        *                (NXC) = NUMBER OF X-CANIDATES ASSIGNED                  GRA      1921
                                                                                                                 GRA      1922
          1113                           DXAA     BFMW   CA,(VC,CON)                                             GRA      1923
          1114                                    BFMW   CA,(RA,RF)                                              GRA      1924
                                                                                                                 GRA      1925
          1115  0200401115 +             DXA      ROUTINE                                                        GRA      1926
          1116  5150000173 C                      SA5    NXC                                                     GRA      1927
                          0315001144 +            NZ     X5,DXA4A    IF NXC " 0    */ X-REGS ASSIGNED IN *ERC*   GRA      1928
          1117  5140000017 C                      SA4    N.HB                                                    GRA      1929
                          0314001115 +            NZ     X4,DXA      IF N.HB " 0   */ NOT AN INNERMOST LOOP      GRA      1930
                                                                                                                 GRA      1931
          1120  5110000165 C                      SA1    NVC                                                     GRA      1932
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , NVC )                          GRA      1933
          1122  5140000000 X                      SA4    O.RCT                                                   GRA      1934
                          5150000000 X            SA5    L.RCT                                                   GRA      1935
          1123  43700                             MX7    0                                                       GRA      1936
                     53720                        SA7    X2          SI = [O.RCT]; [SI] = 0                      GRA      1937
                          43044                   MX0    -CA.SORTL                                               GRA      1938
                               63721              SB7    X2+B1       SO = SI + 1                                 GRA      1939
          1124  20030                             LX0    CA.SORTP                                                GRA      1940
                     63640                        SB6    X4          CO = [O.RCT]                                GRA      1941
                          5110001113 +            SA1    DXAA                                                    GRA      1942
          1125  54211                             SA2    A1+B1                                                   GRA      1943
                     53556                        SA5    B6+X5       CI = CO + L.RCT                             GRA      1944
                          6130000003              SB3    3                                                       GRA      1945
                                                                                                                 GRA      1946
                                        *         FORM X-CANIDATE TABLE AND SORT                                 GRA      1947
                                                                                                                 GRA      1948
          1126  55553                    DXA1     SA5    A5-B3       CI = CI - 3                                 GRA      1949
                     0305001132 +                 ZR     X5,DXA2     IF [CI] = 0   */ END OF TABLE               GRA      1950
                               11615              BX6    X1*X5                                                   GRA      1951
          1127  0306001126 +                      ZR     X6,DXA1     IF ^( VC[CI] ! CON[CI] )                    GRA      1952
                          11325                   BX3    X2*X5                                                   GRA      1953
          1130  0313001126 +                      NZ     X3,DXA1     IF RA[CI] ! RF[CI]                          GRA      1954
                                                                                                                 GRA      1955
                          15350                   BX3    -X0*X5                                                  GRA      1956
                               75456              SX4    A5-B6       I = CI - CO                                 GRA      1957
          1131  36734                             IX7    X3+X4                                                   GRA      1958
                     54771                        SA7    A7+B1       SI = SI + 1;  [SI] = SORT[CI] ! I           GRA      1959
                          0400001126 +            EQ     DXA1                                                    GRA      1960
                                                                                                                 GRA      1961
          1132  64371                    DXA2     SB3    A7+B1       SI = SI + 1   */ LWA + 1                    GRA      1962
                     43700                        MX7    0                                                       GRA      1963
                          77137                   SX1    B3-B7       LEN = SI - SO                               GRA      1964
          1133  5170000000 X                      SA7    L.RND       L.RND = 0                                   GRA      1965
                          7160001115 +            SX6    DXA                                                     GRA      1966
          1134  5160001206 +                      SA6    CRWA        [CRWA] = DXA  */ FAIL EXIT ADDR             GRA      1967
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    51
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                          0301001145 +            ZR     X1,DXA5     IF LEN = 0    */ GO COMPUTE MLW, N.LD, N.ST GRA      1968
                                                                                                                 GRA      1969
          1135  0100000000 X                      CALL   SHL#        SORT( RND )                                 CCGNC     650
                                                                                                                 GRA      1971
                                        *         MOVE CANIDATES WITH HIGHEST PRIORITY TO *XCT*                  GRA      1972
                                        *         AND SET *RA* BIT FOR WINNERS IN *RCT*.                         GRA      1973
                                                                                                                 GRA      1974
          1136  6140000174 C                      SB4    XCT         I = 0                                       GRA      1975
                          6154000004              SB5    B4+4        LIM = 4                                     GRA      1976
          1137  43001                             MX0    1                                                       GRA      1977
                                                  LX0    1+CA.RAP                                                GRA      1978
                     6124000000                   SB2    B4+                                                     GRA      1979
                                                                                                                 GRA      1980
          1140  57131                    DXA3     SA1    B3-B1       SW = [SI-1]                                 GRA      1981
                     53216                        SA2    B6+X1                                                   GRA      1982
                          73610                   SX6    X1          J = XCT(I) = CO[SW]                         GRA      1983
                               12702              BX7    X0+X2       RA[RCT(J)] = 1                              GRA      1984
          1141  56640                             SA6    B4                                                      GRA      1985
                     66441                        SB4    B4+B1       I = I + 1                                   GRA      1986
                          54720                   SA7    A2                                                      GRA      1987
                               67331              SB3    B3-B1       SI = SI - 1                                 GRA      1988
          1142  0445001143 +                      EQ     B4,B5,DXA4  IF I = LIM    */ LIM CANIDATES COLLECTED    GRA      1989
                          0773001140 +            GT     B3,B7,DXA3  IF SI > SO    */ NOT END OF SORT TABLE      GRA      1990
                                                                                                                 GRA      1991
                                        *         COMPUTE REG WIDTH OF LOOP, IF FAILURE, REDUCE NUMBER OF        GRA      1992
                                        *         X-CANIDATES, ELSE MAKE FINAL ASSIGNMENTS                       GRA      1993
                                                                                                                 GRA      1994
          1143  77642                    DXA4     SX6    B4-B2                                                   GRA      1995
                     5160000173 C                 SA6    NXC         NXC = I       */ N. X-CANIDATES             GRA      1996
                                                                                                                 GRA      1997
          1144  7160001152 +             DXA4A    SX6    DXA6                                                    GRA      1998
                          5160001206 +            SA6    CRWA        [CRWA] = DXA6 */ FAIL EXIT ADDRESS          GRA      1999
                                                                                                                 GRA      2000
          1145  7170000000               DXA5     SX7    0                                                       GRA      2001
                          5170000201 C            SA7    MLW         MLW = 0       */ MAX REG WITH OF LOOP       GRA      2002
                                                                                                                 GRA      2003
          1146  7170001210 +                      CLCM   CRW         COMPUTE REG WIDTH                           GRA      2004
          1150  5110000017 C                      SA1    N.HB                                                    GRA      2005
                          0301001154 +            ZR     X1,DXA7     IF N.HB = 0   */ INNERMOST LOOP             GRA      2006
                                                                                                                 GRA      2007
          1151  0400001115 +                      EQ     DXA                                                     GRA      2008
                                                                                                                 GRA      2009
                                        *         CRW FAIL EXIT, REDUCE X-REG CANIDATE COUNT                     GRA      2010
                                                                                                                 GRA      2011
          1152  5110000173 C             DXA6     SA1    NXC                                                     GRA      2012
                          0100003104 +            RJ     RXA         REMOVE LAST X-ASSIGNMENT                    FCC0811     8
          1153  0316001145 +                      NZ     X6,DXA5     IF NXC " 0    */ MORE CANIDATES LEFT        GRA      2021
                                                                                                                 GRA      2022
                          0400001115 +            EQ     DXA                                                     GRA      2023
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    52
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                                        *         SUCCESS, ASSIGN CANIDATES TO REGISTERS                         GRA      2025
                                        *         CHECK NUMBER OF REMAINING STORES AND REMOVE X6,X7 FROM         GRA      2026
                                        *         CONSIDERATION IF THEIR ARE TOO MANY LEFT.                      GRA      2027
                                                                                                                 GRA      2028
          1154  7170001313 +             DXA7     CLCM   CMR         COUNT NUMBER OF MEMORY REFS LEFT IN LOOP    GRA      2029
                                                                                                                 GRA      2030
          1156  5150000173 C                      SA5    NXC                                                     GRA      2031
                          0305001115 +            ZR     X5,DXA      IF NXC = 0    */ NO X-CANIDATES             GRA      2032
                                                                                                                 GRA      2033
          1157  5110000015 C                      SA1    MRA                                                     GRA      2034
                          5120000203 C            SA2    N.ST                                                    GRA      2035
          1160  20154                             LX1    -16         AXR = SHIFT(MRA,-16)                        GRA      2036
                     43000                        MX0    0           STL = 0                                     GRA      2037
                          0302001163 +            ZR     X2,DXA8     IF N.ST = 0   */ NO STORES LEFT IN THE LOOP GRA      2038
          1161  7100000100                        SX0    1S6         STL = 1S6     */ LOCKOUT X6                 GRA      2039
                          23312                   AX3    B1,X2                                                   GRA      2040
          1162  0303001163 +                      ZR     X3,DXA8     IF N.ST = 1   */ ONLY 1 ST PER BLOCK        GRA      2041
                          7100000300              SX0    3S6         STL = 3S6     */ LOCKOUT THE STORE REGS     GRA      2042
                                                                                                                 GRA      2043
                                        *         PICK THE SET OF REGISTERS USED FOR THE *LD* ONLY CANIDATES     GRA      2044
                                        *         SO THAT SUFFICIENT LD REGS WILL BE AVAIL FOR THE OTHER LD"S.   GRA      2045
                                                                                                                 GRA      2046
          1163  5150000202 C             DXA8     SA5    N.LD                                                    GRA      2047
                          5100321670              SA0    321670B     LRS = 076123  */ LD ONLY REG SET            GRA      2048
          1164  6225777774                        SB2    X5-3                                                    GRA      2049
                          0702001167 +            GT     B2,DXA9     IF N.LD > 3                                 GRA      2050
          1165  5100367021                        SA0    367021B     LRS = 120763                                GRA      2051
                          0420001167 +            ZR     B2,DXA9     IF N.LD = 3                                 GRA      2052
          1166  5100670321                        SA0    670321B     LRS = 123076                                GRA      2053
                                                                                                                 GRA      2054
          1167  5120000173 C             DXA9     SA2    NXC                                                     GRA      2055
                          5130000000 X            SA3    O.RCT                                                   GRA      2056
          1170  15110                             BX1    -X0*X1      AXR = AXR & ^STL                            GRA      2057
                     6140000174 C                 SB4    XCT         I = 0                                       GRA      2058
                               63524              SB5    B4+X2       L = NXC                                     GRA      2059
          1171  43271                             MX2    -3                                                      GRA      2060
                     63630                        SB6    X3                                                      GRA      2061
                          7100000001              SX0    1                                                       GRA      2062
                                                                                                                 GRA      2063
                                        *         PICK X-REGISTERS FOR THE CANIDATES AS A FUNCTION OF THEIR      GRA      2064
                                        *         TYPE AND USEAGE.                                               GRA      2065
                                                                                                                 GRA      2066
          1172  56440                    DXA10    SA4    B4          J = XCT(I)                                  GRA      2067
                     53546                        SA5    B6+X4       CAW = RCT(J)                                GRA      2068
                          7170321670              SX7    321670B     XRS = 076123  */ X-REG SET IN SEARCH ORDER  GRA      2069
          1173  63250                             SB2    X5                                                      GRA      2070
                     20504                        LX5    59-CA.CONP                                              GRA      2071
                          0335001176 +            MI     X5,DXA11    IF CON[CAW]                                 GRA      2072
          1174  0420001176 +                      ZR     B2,DXA11    IF UDI[CAW] = 0  */ COMPILER TEMP           GRA      2073
                                                                                                                 GRA      2074
                          20542                   LX5    CA.CONP-CA.DEFP                                         GRA      2075
                               74700              SX7    A0          XRS = LRS                                   GRA      2076
          1175  0325001176 +                      PL     X5,DXA11    IF ^DEF[CAW]  */ LOAD ONLY                  GRA      2077
                          7170321067              SX7    321067B     XRS = 760123                                GRA      2078
                                                                                                                 GRA      2079
          1176  15672                    DXA11    BX6    -X2*X7      REGN = XRS & 7                              GRA      2080
                     21703                        AX7    3           XRS = SHIFT(XRS,-3)                         GRA      2081
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    53
        DXA - DETERMINE X-ASSIGNMENTS                                 DXA 
  
                          63260                   SB2    X6                                                      GRA      2082
                               22320              LX3    B2,X0       RBIT = SHIFT(1,REGN)                        GRA      2083
          1177  11531                             BX5    X3*X1                                                   GRA      2084
                     0305001176 +                 ZR     X5,DXA11    IF AXR & RBIT = 0 */ REG NOT AVAILABLE      GRA      2085
                                                                                                                 GRA      2086
                               54550              SA5    A5                                                      GRA      2087
          1200  15113                             BX1    -X3*X1      AXR = AXR & ^RBIT  */ REMOVE FROM AVAIL SET GRA      2088
                     7266000020                   SX6    X6+20B      REGN = REGN + 20B  */ X-REG NUMBER          GRA      2089
                               73440              SX4    X4          R1[RAT(REGNO)] = J                          GRA      2090
          1201  20547                             LX5    -CA.DEFP                                                GRA      2091
                     15305                        BX3    -X5*X0      INV[RAT(REGNO)] = ^DEF[RCT(J)]              GRA      2092
                          5055000002              SA5    A5+2                                                    GRA      2093
          1202  20373                             LX3    RA.INVP                                                 GRA      2094
                     12734                        BX7    X3+X4                                                   GRA      2095
                          5276000100 C            SA7    RAT+X6                                                  GRA      2096
                                                  LX6    CC.REG1P                                                GRA      2097
          1203  12665                             BX6    X6+X5       REG1[RCT(J+2)] = REGN                       GRA      2098
                     6144000001                   SB4    B4+1        I = I + 1                                   GRA      2099
                               54650              SA6    A5                                                      GRA      2100
          1204  0745001172 +                      LT     B4,B5,DXA10 IF I < NXC                                  GRA      2101
                                                                                                                 GRA      2102
                          20120                   LX1    16                                                      GRA      2103
                               10611              BX6    X1                                                      GRA      2104
          1205  5160000015 C                      SA6    MRA         MRA = SHIFT(AXR,16)                         GRA      2105
                          0400001115 +            EQ     DXA                                                     GRA      2106
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    54
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
                                        **        CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                     GRA      2108
                                        *                                                                        GRA      2109
                                        *         LINK WORDS CONTAIN *RCT* ORDINALS OF CANIDATES AND *RA* BIT    GRA      2110
                                        *         IS SET IF IT IS ASSIGNED TO A REGISTER.                        GRA      2111
                                        *         CANIDATES PLACED IN LOCKED REGISTERS ARE ASSUMED TO BE *LIVE*  GRA      2112
                                        *         THORUGHOUT THE LOOP.                                           GRA      2113
                                        *                                                                        GRA      2114
                                        *         ENTRY  (X0) = R-NUMBER MASK                                    GRA      2115
                                        *                (X5) = O.SEQ                                            GRA      2116
                                        *                (NXC) = NUMBER OF LOCKED X-REGISTERS                    GRA      2117
                                        *                                                                        GRA      2118
                                        *         EXIT   (B6) = [O.RCT]                                          GRA      2119
                                        *                (MLW) = MAX REG WIDTH OF LOOP                           GRA      2120
                                                                                                                 GRA      2121
                                                  DESCRIBE I.,60     LINK WORD                                   GRA      2122
                                                  DEFINE 24                                                      GRA      2123
      L     22  00000000777777000000     USES     DEFINE 18          REMAINING USES OF NON CANIDATES             GRA      2124
      L      0  00000000000000777777     CO       DEFINE 18          CANIDATE ORDINAL ( *RCT* )                  GRA      2125
                                                                                                                 GRA      2126
          1206  00000000000000377777     CRWA     CON    377777B     FAIL EXIT ADDRESS PROCESSOR                 GRA      2127
          1207                           ASPA     BFMW   D,(BM,ST)                                               GRA      2128
                                                                                                                 GRA      2129
          1210  0200401210 +             CRW      ROUTINE                                                        GRA      2130
          1211  5110000000 X                      SA1    L.SEQ                                                   GRA      2131
                          6221777767              SB2    X1-8                                                    GRA      2132
          1212  0602001210 +                      LE     B2,CRW      IF L.SEQ @ 8  */ EMPTY BLOCK                GRA      2133
                                                                                                                 GRA      2134
                          0100001267 +            RJ     SLW         SAVE LINK WORDS                             GRA      2135
          1213  5130000000 X                      SA3    O.RCT                                                   GRA      2136
                          6275000003              S"TB"  X5+3        TB = O.SEQ + 3                              GRA      2137
          1214  63630                             SB6    X3                                                      GRA      2138
                                                                                                                 GRA      2139
                                        *         FIRST ADJUST THE PRED OF STORES THAT ARE LOCKED IN REGISTERS   GRA      2140
                                                                                                                 GRA      2141
                     5110001207 +                 SA1    ASPA                                                    GRA      2142
                               57471              SA4    "TB"-B1     DI = TB - 1                                 GRA      2143
          1215  6140000050                        SB4    CA.RAP-CA.LXP                                           GRA      2144
                          0400001217 +            EQ     ASP2                                                    GRA      2145
                                                                                                                 GRA      2146
          1216  26625                    ASP1     UX6    B2,X5                                                   GRA      2147
                     0420001226 +                 ZR     B2,CRW0     IF OC[R1] = OC.EOQ                          GRA      2148
                                                                                                                 GRA      2149
          1217  5044000004               ASP2     SA4    A4+4        DI = DI + 4                                 GRA      2150
                          11614                   BX6    X1*X4                                                   GRA      2151
                               20421              LX4    59-D.BMP                                                GRA      2152
          1220  0306001217 +                      ZR     X6,ASP2     IF ^( BM[DI] ! ST[DI] )                     GRA      2153
                                                                                                                 GRA      2154
                          5054777775              SA5    A4-2        R1 = DI - 2                                 GRA      2155
          1221  0334001216 +                      MI     X4,ASP1     IF BM[DI]                                   GRA      2156
                                                                                                                 GRA      2157
                          54241                   SA2    A4+B1       LI = DI + 1;  I = CO[LI]                    GRA      2158
                               53326              SA3    B6+X2       CI = RCT(I)                                 GRA      2159
                                                  LX3    59-CA.RAP                                               GRA      2160
          1222  0323001217 +                      PL     X3,ASP2     IF ^RA[CI]                                  GRA      2161
                                                                                                                 GRA      2162
                          22643                   LX6    B4,X3                                                   GRA      2163
                               20345              LX3    CA.RAP-CA.PSPP                                          GRA      2164
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    55
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
          1223  0326001224 +                      PL     X6,ASP3     IF ^LX[CI]    */ DEAD ON EXIT               GRA      2165
                          0323001217 +            PL     X3,ASP2     IF ^PSP[CI]   */ STORE CANT MOVE            GRA      2166
                                                                                                                 GRA      2167
          1224  15550                    ASP3     BX5    "RN"X5      R = RI[R1]                                  GRA      2168
                     7272000000                   SX7    X2+                                                     GRA      2169
                               53757              SA7    "TB"+X5     LI = TB + R;  [LI] = I                      GRA      2170
          1225  0400001217 +                      EQ     ASP2                                                    GRA      2171
                                                                                                                 GRA      2172
                                        *         INITIALIZE FOR THE REG WIDTH CALCULATION                       GRA      2173
                                                                                                                 GRA      2174
          1226  5120000173 C             CRW0     SA2    NXC                                                     GRA      2175
                          63420                   SB4    X2          RW = NXC      */ REG WIDTH                  GRA      2176
                               53020              SA0    X2                                                      GRA      2177
          1227  63520                             SB5    X2          MW = NXC      */ MAX WIDTH                  GRA      2178
                     43263                        MX2    -D.USESL                                                GRA      2179
                          76110                   SX1    B1                                                      GRA      2180
                               20222              LX2    I.USESP                                                 GRA      2181
          1230  5147777776                        SA4    "TB"-1      DI = TB - 1                                 GRA      2182
                          6130000004              SB3    OC.RS                                                   GRA      2183
                                                                                                                 GRA      2184
                                        *         ADVANCE TO NEXT INSTRUCTION, JUMP ON TYPE                      GRA      2185
                                                                                                                 GRA      2186
          1231  5054000002               CRW1     SA5    A4+2        R1 = DI + 2                                 GRA      2187
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      2188
          1232  26525                             UX5    B2,X5                                                   GRA      2189
                                                  LX4    58-D.TYP                                                GRA      2190
                     36744                        IX7    X4+X4                                                   GRA      2191
                          0334001240 +            MI     X4,CRW3     IF TYPE[DI] = III ! IV                      GRA      2192
          1233  0337001236 +                      MI     X7,CRW2     IF TYPE[DI] = II                            GRA      2193
                                                                                                                 GRA      2194
                                        *         TYPE I                                                         GRA      2195
                                                                                                                 GRA      2196
                          20422                   LX4    1+D.TYP-D.^DP     RNUMS = RJRKRI[R1]                    GRA      2197
          1234  0334001250 +                      MI     X4,CRW7     IF ^D[DI]                                   GRA      2198
                          21520                   AX5    R1.RIL      RNUMS = RJRK[R1]                            GRA      2199
          1235  0400001250 +                      EQ     CRW7                                                    GRA      2200
                                                                                                                 GRA      2201
                                        *         TYPE II                                                        GRA      2202
                                                                                                                 GRA      2203
          1236  20422                    CRW2     LX4    1+D.TYP-D.^DP                                           GRA      2204
                     0523001255 +                 NE     B2,B3,CRW9  IF OC[R1] " OC.RS                           GRA      2205
          1237  0400001231 +                      EQ     CRW1                                                    GRA      2206
                                                                                                                 GRA      2207
                                        *         TYPE IV                                                        GRA      2208
                                                                                                                 GRA      2209
          1240  0327001245 +             CRW3     PL     X7,CRW4     IF TYPE[DI] = III                           GRA      2210
                          6040000000              SB4    A0+         RW = NXC                                    GRA      2211
          1241  0520001231 +                      NZ     B2,CRW1     IF OC[R1] " OC.EOQ                          GRA      2212
                                                                                                                 GRA      2213
                          0100001300 +            RJ     RLW         RESTORE LINK WORDS                          GRA      2214
          1242  5110000201 C                      SA1    MLW                                                     GRA      2215
                          76650                   SX6    B5                                                      GRA      2216
                               63310              SB3    X1                                                      GRA      2217
          1243  0635001210 +                      GE     B3,B5,CRW   MLW = MAX( MLW , MW )                       GRA      2218
                          5061000000              SA6    A1+                                                     GRA      2219
          1244  0400001210 +                      EQ     CRW                                                     GRA      2220
                                                                                                                 GRA      2221
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    56
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
                                        *         TYPE III                                                       GRA      2222
                                                                                                                 GRA      2223
          1245  20422                    CRW4     LX4    1+D.TYP-D.^DP     RNUMS = RI[R1]                        GRA      2224
                     0334001246 +                 MI     X4,CRW5     IF ^D[DI]                                   GRA      2225
                               43500              MX5    0           RNUMS = 0                                   GRA      2226
          1246  54351                    CRW5     SA3    A5+B1       R2 = R1 + 1                                 GRA      2227
                     15550                        BX5    "RN"X5                                                  GRA      2228
                          20330                   LX3    -IH.RFP                                                 GRA      2229
                               15630              BX6    "RN"X3      R = RF[R2]                                  GRA      2230
          1247  0306001250 +                      ZR     X6,CRW7     IF R = 0                                    GRA      2231
                          20520                   LX5    R1.RIL                                                  GRA      2232
                               12565              BX5    X6+X5       RNUMS = SHIFT(RNUMS,R1.RIL) ! R             GRA      2233
                                                                                                                 GRA      2234
                                        *         DECREMENT USES OF OPERANDS ( RNUMS )                           GRA      2235
                                                                                                                 GRA      2236
          1250  15750                    CRW7     BX7    "RN"X5      R = RI[RNUMS]                               GRA      2237
                     21520                        AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                GRA      2238
                          0307001254 +            ZR     X7,CRW8     IF R = 0                                    GRA      2239
                                                                                                                 GRA      2240
          1251  53377                             SA3    "TB"+X7     LI = TB + R                                 GRA      2241
                     20352                        LX3    -I.USESP                                                GRA      2242
                          6223000000              SB2    X3+         U = USES[LI]                                GRA      2243
          1252  0420001254 +                      ZR     B2,CRW8     IF U = 0      */ LOCKED IN A REGISTER       GRA      2244
                          37631                   IX6    X3-X1       USES[LI] = USES[LI] - 1                     GRA      2245
                               20622              LX6    I.USESP                                                 GRA      2246
          1253  54630                             SA6    A3                                                      GRA      2247
                     0712001254 +                 GT     B2,B1,CRW8  IF U > 1      */ NOT LAST USE               GRA      2248
                               67441              SB4    B4-B1       RW = RW - 1                                 GRA      2249
          1254  0315001250 +             CRW8     NZ     X5,CRW7     IF RNUMS " 0                                GRA      2250
                                                                                                                 GRA      2251
                                        *         ADVANCE *RW* TO ACCOUNT FOR THE NEW RESULT                     GRA      2252
                                                                                                                 GRA      2253
          1255  54341                    CRW9     SA3    A4+B1       LI = DI + 1                                 GRA      2254
                     0334001231 +                 MI     X4,CRW1     IF ^D[DI]     */ ^DEF A NEW RESULT          GRA      2255
                               53536              SA5    B6+X3                                                   GRA      2256
                                                  LX5    59-CA.RAP                                               GRA      2257
          1256  0335001231 +                      MI     X5,CRW1     IF RA[RCT(CO[LI])]  */ IN A LOCKED REG      GRA      2258
                                                                                                                 GRA      2259
                          20403                   LX4    D.^DP-D.PRSP                                            GRA      2260
          1257  0324001261 +                      PL     X4,CRW10    IF ^PRS[CI]                                 GRA      2261
                                                                                                                 GRA      2262
                          54531                   SA5    A3+B1       R1RS = LI + 1  */ R1 OF FOLLOWING RS        GRA      2263
                               20547              LX5    58-R1.SOP-SO.RTP                                        GRA      2264
          1260  0325001231 +                      PL     X5,CRW1     IF SORT[R1RS] " 2  */ NOT TO AN X-REGISTER  GRA      2265
                                                                                                                 GRA      2266
          1261  20471                    CRW10    LX4    1+D.PRSP-D.USESP+I.USESP                                GRA      2267
                     15542                        BX5    -X2*X4                                                  GRA      2268
                          66441                   SB4    B4+B1       RW = RW + 1                                 GRA      2269
                               12653              BX6    X5+X3       USES[LI] = USES[DI]                         GRA      2270
          1262  54630                             SA6    A3                                                      GRA      2271
                     0654001231 +                 LE     B4,B5,CRW1  IF RW @ MW                                  GRA      2272
                                                                                                                 GRA      2273
                               66540              SB5    B4          MW = RW       */ SET NEW MAX                GRA      2274
          1263  6120000011                        SB2    9                                                       GRA      2275
                          0752001231 +            LT     B5,B2,CRW1  IF MW < 9     */ HAVENT JAMMED THE REGS     GRA      2276
                                                                                                                 GRA      2277
          1264  0100001300 +                      RJ     RLW         RESTORE LINK WORDS                          GRA      2278
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    57
        CRW - COMPUTE REGISTER WIDTH                                  CRW 
  
          1265  5110001206 +                      SA1    CRWA                                                    GRA      2279
                          76620                   SX6    B2                                                      GRA      2280
                               63310              SB3    X1                                                      GRA      2281
          1266  5160000201 C                      SA6    MLW         MLW = 9                                     GRA      2282
                          0233000000              JP     B3          JUMP( [CRWA] )  */ EXIT TO FAIL ADDRESS     GRA      2283
  
  
  
                                        **        SLW - SAVE LINK WORDS                                          GRA      2285
                                        *                                                                        GRA      2286
                                        *         ENTRY  (X1) = L.SEQ                                            GRA      2287
                                        *                                                                        GRA      2288
                                        *         EXIT   (X5) = [O.SEQ]                                          GRA      2289
                                                                                                                 GRA      2290
          1267  0200401267 +             SLW      ROUTINE                                                        GRA      2291
          1270  21102                             AX1    2                                                       GRA      2292
                     6221777775                   SB2    X1-2                                                    FCC2051     6
          1271  0420001267 +                      ZR     B2,SLW      IF L.SEQ = 8  */ EMPTY BLOCK                FCC2051     7
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , L.SEQ/4 )                      GRA      2293
          1273  5150000000 X                      SA5    O.SEQ                                                   GRA      2294
                          6221777775              SB2    X1-2        I = L.SEQ/4 - 2                             GRA      2295
          1274  5245000007                        SA4    X5+7        SI = O.SEQ + 7                              GRA      2296
                          10644                   BX6    X4                                                      GRA      2297
                               53620              SA6    X2          RI = [O.RND];  [RI] = [SI]                  GRA      2298
                                                                                                                 GRA      2299
          1275  5044000004               SLW1     SA4    A4+4        SI = SI + 4                                 GRA      2300
                          67221                   SB2    B2-B1       I = I - 1                                   GRA      2301
                               10644              BX6    X4                                                      GRA      2302
          1276  54661                             SA6    A6+B1       RI = RI + 1;  [RI] = [SI]                   GRA      2303
                     0520001275 +                 NZ     B2,SLW1     IF I " 0                                    GRA      2304
                                                                                                                 GRA      2305
          1277  0400001267 +                      EQ     SLW                                                     GRA      2306
  
  
                                        **        RLW - RESTORE LINK WORDS                                       GRA      2308
                                        *                                                                        GRA      2309
                                        *         PRESERVES  B - 2, 3, 5, 6, 7                                   GRA      2310
                                                                                                                 GRA      2311
          1300  0200401300 +             RLW      ROUTINE                                                        GRA      2312
          1301  5110000000 X                      SA1    O.RND                                                   GRA      2313
                          5120000000 X            SA2    L.SEQ                                                   GRA      2314
          1302  6140000004                        SB4    4                                                       GRA      2315
                          53310                   SA3    X1          RI = [O.RND]                                GRA      2316
                               21202              AX2    2                                                       GRA      2317
          1303  7272777775                        SX7    X2-2        I = L.SEQ/4 - 2                             GRA      2318
                          0307001300 +            ZR     X7,RLW      IF I = 0                                    FCC2051     8
          1304  5150000000 X                      SA5    O.SEQ                                                   GRA      2319
                          10633                   BX6    X3                                                      GRA      2320
          1305  5265000007                        SA6    X5+7        SI = O.SEQ + 7;  [SI] = [RI]                GRA      2321
                          76210                   SX2    B1                                                      GRA      2322
                                                                                                                 GRA      2323
          1306  54331                    RLW1     SA3    A3+B1       RI = RI + 1                                 GRA      2324
                     37772                        IX7    X7-X2       I = I - 1                                   GRA      2325
                          10633                   BX6    X3                                                      GRA      2326
                               54664              SA6    A6+B4       SI = SI + 4;  [SI] = [RI]                   GRA      2327
          1307  0317001306 +                      NZ     X7,RLW1     IF I " 0                                    GRA      2328
                                                                                                                 GRA      2329
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    58
        CRW - COMPUTE REGISTER WIDTH                                  RLW 
  
                          5170000000 X            SA7    L.RND       L.RND = 0                                   GRA      2330
          1310  0400001300 +                      EQ     RLW                                                     GRA      2331
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    59
        CMR - COUNT MEMORY REFERENCES                                 CMR 
  
                                        **        CMR - COUNT REMAINING MEMORY REFERENCES IN A BLOCK             GRA      2333
                                        *         THE PURPOSE OF THIS ROUTINE IS TO SEE HOW MANY LOADS AND       GRA      2334
                                        *         STORES ARE LEFT IN THE LOOP SO WE CAN MAKE AN INTELLIGENT      GRA      2335
                                        *         DECISION ABOUT ASSIGNING STORE REGISTERS IN *DXA* AND LOAD     GRA      2336
                                        *         REGISTERS IN *DAA* WHEN TRYING TO SETUP PREFETCH CODE.         GRA      2337
                                        *         IN THE CASE THAT A STORE CANNOT MOVE OUT OF A LOOP THIS        GRA      2338
                                        *         SCHEME BACKFIRES AND THE CANIDATE WILL PROBABELY GET ASSIGNED  GRA      2339
                                        *         TO A LOAD REGISTER, FORCEING TRANSMITS IN AND OUT OF THE LOOP. GRA      2340
                                        *                                                                        GRA      2341
                                        *         ENTRY  (X5) = O.SEQ                                            GRA      2342
                                        *                                                                        GRA      2343
                                        *         EXIT   N.MR, N.ST UPDATED                                      GRA      2344
                                                                                                                 GRA      2345
          1311                           CMRA     BFMW   D,(BM,LD,ST)                                            GRA      2346
                                                                                                                 GRA      2347
          1312  76640                    CMR0     SX6    B4          N.LD = SLD                                  GRA      2348
                     76770                        SX7    B7                                                      GRA      2349
                          54610                   SA6    A1                                                      GRA      2350
                               54711              SA7    A1+B1                                                   GRA      2351
                                                                                                                 GRA      2352
          1313  0200401313 +             CMR      ROUTINE                                                        GRA      2353
          1314  5110000202 C                      SA1    N.LD                                                    GRA      2354
                          5120000203 C            SA2    N.ST                                                    GRA      2355
          1315  5130000000 X                      SA3    O.RCT                                                   GRA      2356
                          5245000002              SA4    X5+2        DI = O.SEQ + 2                              GRA      2357
          1316  66300                             SB3    B0          NMR = 0       */ MEM REFS IN BLOCK          GRA      2358
                     5150001311 +                 SA5    CMRA                                                    GRA      2359
                               63410              SB4    X1          SLD = N.LD    */ SUM OF *LD*"S              GRA      2360
          1317  10055                             BX0    X5                                                      GRA      2361
                     66500                        SB5    B0          NST = 0       */ *ST*"S IN BLOCK            GRA      2362
                          63630                   SB6    X3                                                      GRA      2363
                               63720              SB7    X2          MST = N.ST    */ MAX *ST*"S SO FAR          GRA      2364
          1320  0400001324 +                      EQ     CMR4                                                    GRA      2365
                                                                                                                 GRA      2366
                                        *         PROCESS BOUNDARY MARKER                                        GRA      2367
                                                                                                                 GRA      2368
          1321  67335                    CMR1     SB3    B3-B5       NMR = NMR - NST                             GRA      2369
                     0675001322 +                 LE     B5,B7,CMR2  N.ST = MAX( NST , N.ST )                    GRA      2370
                               66750              SB7    B5                                                      GRA      2371
          1322  5054777775               CMR2     SA5    A4-2        R1 = DI - 2                                 GRA      2372
                          26625                   UX6    B2,X5                                                   GRA      2373
                               66443              SB4    B4+B3       SLD = SLD + NMR                             GRA      2374
          1323  0420001312 +                      ZR     B2,CMR0     IF OC[R1] = OC.EOQ                          GRA      2375
                                                                                                                 GRA      2376
                          66300                   SB3    B0          NMR = 0                                     GRA      2377
                               66500              SB5    B0          NST = 0                                     GRA      2378
                                                                                                                 GRA      2379
                                        *         ADVANCE TO NEXT INSTRUCTION, CHECK FOR MEMORY REFERENCE        GRA      2380
                                                                                                                 GRA      2381
          1324  5044000004               CMR4     SA4    A4+4        DI = DI + 4                                 GRA      2382
                          11704                   BX7    X0*X4                                                   GRA      2383
                               20421              LX4    59-D.BMP                                                GRA      2384
          1325  0307001324 +                      ZR     X7,CMR4     IF ^(BM,LD,ST)[DI]                          GRA      2385
                                                                                                                 GRA      2386
                          0334001321 +            MI     X4,CMR1     IF BM[DI]                                   GRA      2387
          1326  20406                             LX4    D.BMP-D.L2P                                             GRA      2388
                     0334001324 +                 MI     X4,CMR4     IF L2[DI]     */ LEVEL 2 LD/ST              GRA      2389
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    60
        CMR - COUNT MEMORY REFERENCES                                 CMR 
  
                                                                                                                 GRA      2390
                                        *         MEMORY REF, COUNT IT IF NOT ASSIGNED TO A REGISTER             GRA      2391
                                                                                                                 GRA      2392
                               54341              SA3    A4+B1       LI = DI + 1;  I = CO[LI]                    GRA      2393
          1327  20730                             LX7    59-D.LDP                                                GRA      2394
                     53236                        SA2    B6+X3       CI = RCT(I)                                 GRA      2395
                                                  LX2    59-CA.RAP                                               GRA      2396
                          0322001333 +            PL     X2,CMR6     IF ^RA[CI]    */ NOT IN A REG               GRA      2397
                                                                                                                 GRA      2398
                                        *         COUNT STORE IF WE CANT MOVE IT OUT                             GRA      2399
                                                                                                                 GRA      2400
          1330  0337001324 +                      MI     X7,CMR4     IF LD[DI]                                   GRA      2401
                          20250                   LX2    CA.RAP-CA.LXP                                           GRA      2402
          1331  0322001324 +                      PL     X2,CMR4     IF ^LX[CI]    */ DEAD ON EXIT               GRA      2403
                          20271                   LX2    CA.LXP-CA.PSPP                                          GRA      2404
          1332  0332001324 +                      MI     X2,CMR4     IF PSP[DI]    */ POST STORE POSSIBLE        GRA      2405
                                                                                                                 GRA      2406
          1333  66331                    CMR6     SB3    B3+B1       NMR = NMR + 1                               GRA      2407
                     0337001324 +                 MI     X7,CMR4     IF LD[DI]                                   GRA      2408
                               66551              SB5    B5+B1       NST = NST + 1                               GRA      2409
          1334  0400001324 +                      EQ     CMR4                                                    GRA      2410
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    61
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                                        **        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                    GRA      2412
                                        *                                                                        GRA      2413
                                        *         THE CRITERIA FOR PREFETCHING FALL INTO TWO CATEGORIES -        GRA      2414
                                        *         1) THAT THE LOOP BE SUFFICIENTLY SMALL SO WE CAN DO IT.        GRA      2415
                                        *         2) THE RESTRICTIONS THAT THE PREFETCH CANIDATES MUST MEET.     GRA      2416
                                        *         SOME OF THE RESTRICTIONS ARE NATURAL, WHILE OTHERS ARE         GRA      2417
                                        *         ARTIFICAL AND COULD BE RELAXED IF WE HAD MORE INFORMATION.     GRA      2418
                                        *                                                                        GRA      2419
                                        *         EXIT   (NAA) = N. A-ASSIGNMENTS                                GRA      2420
                                        *                ACT(I) = 24/RCT-INC INFO,18/,18/X-REGNO OF PREFETCH     GRA      2421
                                                                                                                 GRA      2422
          1335                           DAAA     BFMW   D,(LD,BM)                                               GRA      2423
          1336                                    BFMW   CA,(RA,CON)                                             GRA      2424
          1337                           DAAB     BFMW   CA,(RA,VC)                                              GRA      2425
                                                                                                                 GRA      2426
          1340  0200401340 +             DAA      ROUTINE                                                        GRA      2427
          1341  5110000201 C                      SA1    MLW                                                     GRA      2428
                          5120000035 C            SA2    N.EBB                                                   GRA      2429
          1342  7261777767                        SX6    X1-8                                                    FCC0603    23
                          0336001346 +            MI     X6,DAA0     IF MLW < 8                                  FCC0603    24
          1343  0316001340 +                      NZ     X6,DAA      IF MLW > 8                                  FCC0603    25
                          63220                   SB2    X2                                                      FCC0603    26
          1344  0712001340 +                      GT     B2,B1,DAA   IF N.EBB > 1                                FCC0603    27
                          5130000000 X            SA3    L.SEQ                                                   FCC0603    28
          1345  7263777537                        SX6    X3-240B                                                 FCC0603    29
                          0326001340 +            PL     X6,DAA      IF L.SEQ > 240B  */ MAGIC NUMBER            FCC0603    30
          1346  7272777774               DAA0     SX7    X2-3                                                    FCC1127     4
                          0327001340 +            PL     X7,DAA      IF N.EBB > 2  */ > 1 EBB + 1 LATCH NODE     GRA      2435
                                                                                                                 GRA      2436
          1347  5130000202 C                      SA3    N.LD                                                    GRA      2437
                          5140000203 C            SA4    N.ST                                                    GRA      2438
          1350  5150000027 C                      SA5    N.LJ                                                    GRA      2439
                          7263777767              SX6    X3-8                                                    GRA      2440
          1351  7274777774                        SX7    X4-3                                                    GRA      2441
                          0326001340 +            PL     X6,DAA      IF N.LD > 7                                 GRA      2442
          1352  0327001340 +                      PL     X7,DAA      IF N.ST > 2                                 GRA      2443
                          76610                   SX6    B1                                                      GRA      2444
                               37556              IX5    X5-X6                                                   GRA      2445
          1353  0315001340 +                      NZ     X5,DAA      IF N.LJ " 1   */ ONLY *LBJ* IS A *JPX*      GRA      2446
                          7271777775              SX7    X1-2                                                    FCC1127     5
          1354  0327001356 +                      PL     X7,DAA0A    IF MLW \ 2                                  FCC1127     6
                          37634                   IX6    X3-X4                                                   FCC1127     7
          1355  0306001340 +                      ZR     X6,DAA      IF N.LD = N.ST  */ A MOVE LOOP              FCC1127     8
                                                                                                                 GRA      2447
                                        *         DETERMINE MAA, THE MAX NUMBER OF PREFETCHS WE WILL ASSIGN.     GRA      2448
                                                                                                                 GRA      2449
          1356  5110000015 C             DAA0A    SA1    MRA                                                     FCC1127     9
                          7120000076              SX2    76B                                                     GRA      2451
          1357  20154                             LX1    -16                                                     GRA      2452
                     11621                        BX6    X2*X1       ALR = SHIFT(MRA,-16) & 76B  */ AVAIL LDREGS GRA      2453
                          47566                   CX5    X6          NLR = COUNT( ALR )                          GRA      2454
                               37653              IX6    X5-X3                                                   GRA      2455
          1360  20501                             LX5    1                                                       GRA      2456
                     37753                        IX7    X5-X3       MAA = 2*NLR - N.LD  */ MAX A-ASSGNMNTS      GRA      2457
                                                                                                                 GRA      2458
                          5110000000 +            SA1    MARA                                                    FCC0603    32
          1361  37217                             IX2    X1-X7                                                   FCC0603    33
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    62
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                     21273                        AX2    59                                                      FCC0603    34
                          11121                   BX1    X2*X1                                                   FCC0603    35
                               15272              BX2    -X2*X7                                                  FCC0603    36
          1362  36712                             IX7    X1+X2       MAA = MIN( MARA , MAA )                     FCC0603    37
                     63270                        SB2    X7                                                      FCC0603    38
                          0602001340 +            LE     B2,DAA      IF MAA @ 0                                  FCC0603    39
          1363  0326001365 +                      PL     X6,DAA1     IF NLR \ N.LD                               GRA      2464
                          10677                   BX6    X7                                                      GRA      2465
                               21602              AX6    2                                                       GRA      2466
          1364  0306001365 +                      ZR     X6,DAA1     MAA = MIN( 3 , MAA )                        GRA      2467
                          7170000003              SX7    3                                                       GRA      2468
          1365  5170000204 C             DAA1     SA7    MAA                                                     GRA      2469
                          7160000002              SX6    2                                                       GRA      2470
          1366  5160000000 X                      SA6    BSI         BSI = 2                                     GRA      2471
                          0100000000 X            CALL   RTB#        GET POINTERS TO HEADER NODE                 CCGNC     651
                                                                                                                 CCG25       6
          1367  0100001505 +                      CALL   AAV         ASSIGN ARRAY VARIABLES TO A/X REGISTERS     CCG25       7
          1370  5150000204 C                      SA5    MAA                                                     CCG41       2
                          63550                   SB5    X5                                                      CCG41       3
          1371  0605001340 +                      LE     B5,DAA      IF MAA LE 0,  RETURN                        CCG41       4
  
  
                                        *         SELECT CANIDATES FROM THE INDEXED LD"S IN THE HEADER NODE.     GRA      2474
                                        *         FORM *ACT* - 24/RCT-INC INFO,18/INC FIRST BIAS,18/RCT-INDEX    GRA      2475
                                                                                                                 GRA      2476
                          5120000000 C            SA2    O.UDT                                                   GRA      2477
          1372  5130000000 X                      SA3    O.RCT                                                   GRA      2478
                          5150000000 X            SA5    O.SEQ                                                   GRA      2479
          1373  5110001335 +                      SA1    DAAA                                                    GRA      2480
                          54411                   SA4    A1+B1                                                   GRA      2481
                               66500              SB5    B0          J = 0         */ ACT STORE INDEX            GRA      2482
          1374  63630                             SB6    X3                                                      GRA      2483
                     10044                        BX0    X4                                                      GRA      2484
                          63720                   SB7    X2                                                      GRA      2485
          1375  5245000006                        SA4    X5+6        DI = O.SEQ + 4 + 2  */ SKIP PAST *LAB*      GRA      2486
                          6245000002              SB4    X5+2                      (B4) = TXT+2                  GRA      2487
                                                                                                                 GRA      2488
          1376  5044000004               DAA2     SA4    A4+4        DI = DI + 4                                 GRA      2489
                          11614                   BX6    X1*X4                                                   GRA      2490
                               20421              LX4    59-D.BMP                                                GRA      2491
          1377  0306001376 +                      ZR     X6,DAA2     IF ^( LD[DI] ! BM[DI] )                     GRA      2492
                                                                                                                 GRA      2493
                          0334001420 +            MI     X4,DAA4     IF BM[DI]                                   GRA      2494
          1400  20406                             LX4    D.BMP-D.L2P                                             GRA      2495
                     0334001376 +                 MI     X4,DAA2     IF L2[DI]     */ LEVEL 2 LD                 GRA      2496
                                                                                                                 GRA      2497
                               54541              SA5    A4+B1       LI = DI + 1;  I = CO[LI]                    GRA      2498
          1401  53356                             SA3    B6+X5       CI = RCT(I)                                 GRA      2499
                     53237                        SA2    B7+X3       UI = UDT( UDI[CI] )                         GRA      2500
                                                  LX2    59-UD.DEFRP                                             GRA      2501
                          0332001376 +            MI     X2,DAA2     IF DEFR[UI]   */ STORE INTO SAME CLASS      GRA      2502
          1402  20303                             LX3    59-CA.ACP                                               GRA      2503
                     0323001376 +                 PL     X3,DAA2     IF ^AC[CI]    */ NOT AN ADDRESS CANIDATE    GRA      2504
                               20327              LX3    CA.ACP-CA.NOCCP                                         FCC0448   103
          1403  43664                             MX6    -CA.NOCCL+1                                             FCC0448   104
                     15336                        BX3    -X6*X3                                                  FCC0448   105
                          0313001376 +            NZ     X3,DAA2     IF NOCC[CI] > 1  */ POSSIBLE A(I);I=I+1;A(I FCC0448   106
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    63
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                                                                                                                 FCC0448   107
          1404  54231                             SA2    A3+B1       C2W = RCT(I+1)                              GRA      2505
                     20230                        LX2    -IH.RFP     R = RF[C2W]                                 GRA      2506
                                                                                                                 GRA      2507
                                        *         LOOK AT INDEX OF *LD* FOR INFO ABOUT THE INCREMENT VALUE.      GRA      2508
                                                                                                                 GRA      2509
                          6222000002              SB2    X2+2                                                    GRA      2510
          1405  56362                             SA3    B6+B2       CCW = RCT(R+2)                              GRA      2511
                                                  LX3    59-CC.I1P                                               GRA      2512
                     0323001376 +                 PL     X3,DAA2     IF ^I1[CCW]   */ NOT *RD*                   GRA      2513
                               20301              LX3    CC.I1P-CC.I2P                                           GRA      2514
          1406  0333001376 +                      MI     X3,DAA2     IF I2[CCW]    */ MORE THAN 1 INC OF INDEX   GRA      2515
                          20327                   LX3    1+CC.I2P-CC.INCP  IP = INC[CCW] */ RCT INDEX OF INC VAL GRA      2516
                               53236              SA2    B6+X3       CJ = RCT(IP)                                GRA      2517
          1407  11602                             BX6    X0*X2                                                   GRA      2518
                     0306001376 +                 ZR     X6,DAA2     IF ^( RA[CJ] ! CON[CJ] )                    GRA      2519
                                                                                                                 GRA      2520
                               20344              LX3    CC.INCP                                                 GRA      2521
          1410  43730                             MX7    -CC.INCP                                                GRA      2522
                     11773                        BX7    X7*X3                                                   FCC1127    10
                          12675                   BX6    X7+X5                                                   FCC1127    11
                               55541              SA5    A4-B1       R2 = DI - 1                                 GRA      2525
          1411  20530                             LX5    -IH.RFP                                                 GRA      2526
                     53554                        SA5    B4+X5       DIP = TXT(RF[R2]+2)                         FCC1127    12
                          20530                   LX5    59-D.LDP                                                FCC1127    13
          1412  0335001416 +                      MI     X5,DAA3     IF LD[DIP]    */ ^ INC FIRST                FCC1127    14
                          20204                   LX2    59-CA.CONP                                              FCC1127    15
          1413  0322001376 +                      PL     X2,DAA2     IF ^CON[CJ]   */ INC VALUE ^ A CON          FCC1127    16
                                                                                                                 FCC1127    17
                                        *         INC-FIRST-BIAS = CA[C2J] * IM[CCW]                             FCC1127    18
                                                                                                                 FCC1127    19
                          54521                   SA5    A2+B1       C2J = RCT(IP+1)                             FCC1127    20
                               20302              LX3    59-CC.IMP                                               FCC1127    21
          1414  43752                             MX7    -IH.CAL                                                 FCC1127    22
                     21373                        AX3    59                                                      FCC1127    23
                          20722                   LX7    IH.CAP                                                  FCC1127    24
                               13335              BX3    X3-X5                                                   FCC1127    25
          1415  15537                             BX5    -X7*X3                                                  FCC1127    26
                     12656                        BX6    X5+X6       BIAS = CA[C2J] * IM[CCW]                    FCC1127    27
                                                                                                                 GRA      2537
          1416  5165000206 C             DAA3     SA6    ACT+B5      ACT(J) = ACW(INCI[CCW],BIAS,I)              GRA      2538
                          66551                   SB5    B5+B1       J = J + 1                                   GRA      2539
          1417  7175777770                        SX7    B5-7                                                    GRA      2540
                          0337001376 +            MI     X7,DAA2     IF J < 7                                    GRA      2541
  
  
                                        *         AT THIS POINT WE SHOULD RUN A CRITICAL PATH CALCULATION AND    GRA      2543
                                        *         SORT THE CANIDATE TABLE. FOR THE PRESENT WE OMIT IT.           GRA      2544
                                                                                                                 GRA      2545
          1420  0450001340 +             DAA4     ZR     B5,DAA      IF J = 0      */ NO CANIDATES               GRA      2546
                          5150000000 X            SA5    =XO.SYM                                                 CCG1       96
          1421  5140000204 C                      SA4    MAA                                                     GRA      2548
                          5205000001              SA0    X5+1                                                    CCG1       97
          1422  66400                             SB4    B0          FI = 0                                      GRA      2550
                     43700                        MX7    0                                                       GRA      2551
                          5175000206 C            SA7    ACT+B5      ACT(J) = 0                                  GRA      2552
          1423  63740                             SB7    X4                                                      GRA      2553
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    64
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                     76010                        SX0    B1                                                      GRA      2554
                          66500                   SB5    B0          SI = 0                                      GRA      2555
                               20041              LX0    CA.NOCCP                                                GRA      2556
                                                                                                                 GRA      2557
                                        *         PRUNE THE CANIDATE TABLE TO REMOVE THOSE WITH VARIABLE         GRA      2558
                                        *         OR LARGE CONSTANT INCREMENTS ( AVOID MODE 1 AT EXECUTION )     GRA      2559
                                                                                                                 GRA      2560
          1424  5110000000 X             DAA5     SA1    =XHO$UO                                                 CCGNC     652
                          5154000206 C            SA5    ACT+B4                                                  GRA      2563
          1425  0305001444 +                      ZR     X5,DAA9                                                 GRA      2564
                          63251                   SB2    X5+B1       I = CO[ACT(FI)]                             GRA      2565
                               20530              LX5    -CC.INCP    IP = INC[ACT(FI)]                           GRA      2566
          1426  0311001440 +                      NZ     X1,DAA7     IF HO$UO  " 0 */ TAKE ALL IF *UO* SELECTED  CCGNC     653
                                                                                                                 GRA      2568
                          53456                   SA4    B6+X5       CI = RCT(IP)                                GRA      2569
                               20404              LX4    59-CA.CONP                                              GRA      2570
          1427  0324001443 +                      PL     X4,DAA8     IF ^CON[CI]   */ REJECT IF VARIABLE INC     GRA      2571
                          54441                   SA4    A4+B1       C2W = RCT(IP+1)                             GRA      2572
                               20452              LX4    -IH.CAP     C = CA[C2W]   */ CONSTANT INC VALUE         GRA      2573
          1430  7274777774                        SX7    X4-3                                                    GRA      2574
                          0337001440 +            MI     X7,DAA7     IF C @ 2                                    GRA      2575
          1431  7264777676                        SX6    X4-MAX.INC                                              GRA      2576
                          0326001443 +            PL     X6,DAA8     IF C > MAX.INC  */ CON INC TOO BIG          GRA      2577
                                                                                                                 GRA      2578
                                        *         CHECK LOCATION OF SYMBOL, IF IN LABELED COMMON OR LOCAL,       GRA      2579
                                        *         ASSUME THAT THEIR WILL BE AT LEAST MAX.INC STORAGE ABOVE IT.   GRA      2580
                                                                                                                 GRA      2581
          1432  56462                             SA4    B6+B2       C2W = RCT(I+1)                              GRA      2582
                     63240                        SB2    X4          H = IH[C2W]                                 CCG1      100
                          20401                   LX4    1                                                       CCG1      101
                               63242              SB2    B2+X4                                                   CCG1      102
          1433  54302                             SA3    A0+B2       WORDB = SYM(3*IH+1)                         CCG1      103
                     20353                        LX3    59-WB.FPP                                               CCG1      104
                          0333001443 +            MI     X3,DAA8     IF FP[WORDB]  */ LOCATION UNKNOWN           CCG1      105
          1434  20301                             LX3    WB.FPP-WB.COMP                                          CCG1      106
                     0323001440 +                 PL     X3,DAA7     IF ^COM[WORDB]  */ NOT IN COMMON            CCG1      107
                               54331              SA3    A3+B1       WORDC = WORDB + 1                           CCG16     215
          1435  43762                             MX7    -WC.RBL                                                 CCG16     216
                     20314                        LX3    -WC.RBP                                                 CCG16     217
                          15637                   BX6    -X7*X3      RBN = RB[WORDC]                             CCG16     218
                                         .FTN     IFEQ   HC.ID,2,2                                               FCC2135     1
          1436  5110000000 X                      SA1    =XBLNKCOM                                               FCC2135     2
                          13661                   BX6    X6-X1                                                   FCC2135     3
          1437  0306001443 +                      ZR     X6,DAA8     IF RBN = 0    */ IN // COMMON               CCG1      111
                                                                                                                 GRA      2600
                                        *         ADD NAME TO FINAL CANIDATE LIST                                GRA      2601
                                                                                                                 GRA      2602
          1440  53456                    DAA7     SA4    B6+X5       CIP = RCT(IP)                               GRA      2603
                     20544                        LX5    CC.INCP                                                 GRA      2604
                          36704                   IX7    X0+X4       NOCC[CIP] = NOCC[CIP] + 1                   GRA      2605
                               10655              BX6    X5                                                      GRA      2606
          1441  5165000206 C                      SA6    ACT+B5      ACT(SI) = ACT(FI)                           GRA      2607
                          54740                   SA7    A4                                                      GRA      2608
                               66551              SB5    B5+B1       SI = SI + 1                                 GRA      2609
          1442  0457001444 +                      EQ     B5,B7,DAA9  IF SI = MAA                                 GRA      2610
                                                                                                                 GRA      2611
          1443  66441                    DAA8     SB4    B4+B1       FI = FI + 1                                 GRA      2612
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    65
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                     0400001424 +                 EQ     DAA5                                                    GRA      2613
                                                                                                                 GRA      2614
          1444  0450001340 +             DAA9     ZR     B5,DAA      IF SI = 0                                   GRA      2615
                                                                                                                 GRA      2616
                          5110000015 C            SA1    MRA                                                     GRA      2617
          1445  6130000020                        SB3    20B         REGN = 20B    */ X0, X1,...                 GRA      2618
                          66400                   SB4    B0          J = 0                                       GRA      2619
                               76010              SX0    B1                                                      GRA      2620
                                                                                                                 GRA      2621
                                        *         NOW MARK THE PREFETCH ASSIGNMENTS IN *RCT* AND *RAT*           GRA      2622
                                                                                                                 GRA      2623
          1446  5124000206 C             DAA10    SA2    ACT+B4      I = CO[ACT(J)]                              GRA      2624
                          5140001337 +            SA4    DAAB                                                    GRA      2625
          1447  53326                             SA3    X2+B6       CI = RCT(I)                                 GRA      2626
                     12643                        BX6    X4+X3       (RA,VC)[CI] = 1                             GRA      2627
                          54630                   SA6    A3                                                      GRA      2628
                               54431              SA4    A3+B1       C2W = RCT(I+1)                              GRA      2629
          1450  20252                             LX2    -IH.CAP                                                 GRA      2630
                     63220                        SB2    X2                                                      GRA      2631
                          20452                   LX4    -IH.CAP                                                 GRA      2632
                               73542              SX5    B2+X4                                                   GRA      2633
          1451  43752                             MX7    -IH.CAL                                                 GRA      2634
                     15557                        BX5    -X7*X5      CA[C2W] = CA[C2W] + CA[ACT(J)]              GRA      2635
                          20222                   LX2    IH.CAP                                                  GRA      2636
                               11774              BX7    X7*X4                                                   GRA      2637
          1452  12675                             BX6    X7+X5                                                   GRA      2638
                     20622                        LX6    IH.CAP                                                  GRA      2639
                          54640                   SA6    A4                                                      GRA      2640
                               20452              LX4    IH.CAP-IH.RFP     R = RF[C2W]                           GRA      2641
          1453  53546                             SA5    B6+X4       CJ = RCT(R)                                 GRA      2642
                     43763                        MX7    -CA.SUSEL                                               GRA      2643
                          20544                   LX5    -CA.SUSEP                                               GRA      2644
                               37650              IX6    X5-X0       SUSE[CJ] = SUSE[CJ] - 1                     GRA      2645
          1454  15767                             BX7    -X7*X6                                                  GRA      2646
                     20630                        LX6    CA.SUSEP                                                GRA      2647
                          54650                   SA6    A5                                                      GRA      2648
          1455  7277777776                        SX7    X7-1                                                    GRA      2649
                          0317001470 +            NZ     X7,DAA11    IF SUSE[CJ] " 1                             GRA      2650
                                                                                                                 GRA      2651
                                        *         USES OF INCREMENT VARIABLE = 1 , DEALLOCATE THE B-REGISTER     GRA      2652
                                        *         AND MARK THE VAR AS DEAD.                                      GRA      2653
                                                                                                                 GRA      2654
          1456  73760                             SX7    X6                                                      GRA      2655
                     20650                        LX6    59-CA.LXP                                               FCC0414     6
                          0336001470 +            MI     X6,DAA11    IF LX[CJ]     */ LIVE ON EXIT FROM THE LOOP FCC0414     7
          1457  0317001463 +                      NZ     X7,DAA10A   IF UDI[CJ] " 0  */ PROGRAMMER VARIABLE      FCC0414     8
                          20630                   LX6    CA.LXP-CA.CONP                                          FCC0414     9
          1460  0336001463 +                      MI     X6,DAA10A   IF CON[CJ]                                  GRA      2658
                                                                                                                 GRA      2659
                          54451                   SA4    A5+B1                                                   GRA      2660
                               43752              MX7    -T.REGL                                                 GRA      2661
          1461  20452                             LX4    -IH.CAP                                                 GRA      2662
                     63240                        SB2    X4          C = CA[RCT(R+1)]                            GRA      2663
                          5140000000 X            SA4    O.TET                                                   GRA      2664
          1462  20722                             LX7    T.REGP                                                  GRA      2665
                     53442                        SA4    X4+B2                                                   GRA      2666
                          11674                   BX6    X7*X4       REG[TET(C)] = 0                             GRA      2667
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    66
        DAA - DETERMINE A-ASSIGNMENTS ( PREFETCHS )                   DAA 
  
                               54640              SA6    A4                                                      GRA      2668
                                                                                                                 GRA      2669
          1463  5045000002               DAA10A   SA4    A5+2        CCW = RCT(R+2)                              GRA      2670
                          43766                   MX7    -CC.REG1L                                               GRA      2671
                               76600              SX6    B0                                                      GRA      2672
                                                  LX4    -CC.REG1P                                               GRA      2673
          1464  15447                             BX4    -X7*X4      REG = REG1[CCW]                             GRA      2674
                     63240                        SB2    X4                                                      GRA      2675
                          5264000100 C            SA6    RAT+X4      RAT(REG) = 0                                GRA      2676
          1465  22720                             LX7    B2,X0                                                   GRA      2677
                     12171                        BX1    X7+X1       MRA = MRA ! SHIFT(1,REG)                    GRA      2678
                          5140000170 C            SA4    NAB                                                     GRA      2679
          1466  73741                             SX7    X4+B1       NAB = NAB + 1                               GRA      2680
                     54740                        SA7    A4                                                      GRA      2681
                          5140000162 +            SA4    SEEA                                                    GRA      2682
          1467  20530                             LX5    CA.SUSEP                                                GRA      2683
                     12645                        BX6    X4+X5       KD[CJ] = 1    */ SET TO KILL THIS DEF       GRA      2684
                          54650                   SA6    A5                                                      GRA      2685
                                                                                                                 GRA      2686
                                        *         SELECT A LD-REG AND MARK THE ASSIGNMENT IN *RCT* AND *RAT*     GRA      2687
                                                                                                                 GRA      2688
          1470  6133000001               DAA11    SB3    B3+1        REGN = REGN + 1                             GRA      2689
                          22730                   LX7    B3,X0       BIT = SHIFT(1,REGN)                         GRA      2690
                               11671              BX6    X7*X1                                                   GRA      2691
          1471  0306001470 +                      ZR     X6,DAA11    IF MRA & BIT = 0  */ LD-REG NOT AVAIL       GRA      2692
                                                                                                                 GRA      2693
                          5043000002              SA4    A3+2        CCW = RCT(I+2)                              GRA      2694
          1472  15117                             BX1    -X7*X1      MRA = MRA & ^BIT                            GRA      2695
                     73620                        SX6    X2                                                      GRA      2696
                          5163000100 C            SA6    RAT+B3      RAT(REGNO) = I                              GRA      2697
          1473  76330                             SX3    B3                                                      GRA      2698
                     13226                        BX2    X2-X6                                                   GRA      2699
                          12723                   BX7    X2+X3       CO[ACT(J)] = REGNO  */ SAVE X-REGNO IN ACT  GRA      2700
                               54720              SA7    A2                                                      GRA      2701
                                                  LX3    CC.REG1P                                                GRA      2702
          1474  12734                             BX7    X3+X4       REG1[CCW] = REGN                            GRA      2703
                     54740                        SA7    A4                                                      GRA      2704
                          66441                   SB4    B4+B1       J = J + 1                                   GRA      2705
          1475  0745001446 +                      LT     B4,B5,DAA10 IF J < SI                                   GRA      2706
                                                                                                                 GRA      2707
                          76650                   SX6    B5                                                      GRA      2708
                               10711              BX7    X1                                                      GRA      2709
          1476  5160000205 C                      SA6    NAA         NAA = SI                                    GRA      2710
                          5170000015 C            SA7    MRA                                                     GRA      2711
          1477  0400001340 +                      EQ     DAA                                                     GRA      2712
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    67
        AAV - ASSIGN ARRAY VARIABLES TO REGISTERS                     AAV 
  
                                        **        AAV - ASSIGN ARRAY VARIABLES TO X-REGISTERS                    CCG25       9
                                        *                                                                        CCG25      10
                                        *         CHECK LOOP FOR STATEMENTS OF THE FORM A(I) = A(I) OP EXPR      CCG25      11
                                        *         WHERE I IS INVARIANT AND NO OTHER REFS TO A.  IF SO, THEN      CCG25      12
                                        *         ASSIGN A(I) TO AN X-REGISTER WITH THE ADDRESS IN THE           CCG25      13
                                        *         CORRESPONDING A-REGISTER.                                      CCG25      14
                                                                                                                 CCG25      15
                                  42     CA.NO=2P EQU    CA.NOCCP+1                                              CCG25      16
                                   1     CA.NO=2L EQU    1                                                       CCG25      17
          1500                           AAVA     BFMW   CA,(AC,NO=2,DEF,USE)                                    CCG25      18
                                                                                                                 CCG25      19
          1501                     4     AXCT     BSSZ   4           A/X CANIDATE TABLE   24/0,18/RCT-ORD,18/REG CCG25      20
                                                                                                                 CCG25      21
          1505  0200401505 +             AAV      ROUTINE                                                        CCG25      22
          1506  5110000000 X                      SA1    HO$OPT                                                  CCG0093     5
                          0321001505 +            PL     X1,AAV      IF OPT NE 2                                 CCG0093     6
          1507  5110000032 C                      SA1    N.ENL                                                   CCG25      23
                          66500                   SB5    B0          J = 0                                       CCG25      24
                               21101              AX1    1                                                       CCG25      25
          1510  0311001531 +                      NZ     X1,AAV5     IF N.ENL > 1  */ MORE THAN 1 EXIT NODE      CCG25      26
                                                                                                                 CCG25      27
                                        *         SCAN *RCT* FOR CANIDATES                                       CCG25      28
                                                                                                                 CCG25      29
                          5140000000 X            SA4    O.RCT                                                   CCG25      30
          1511  5150000164 C                      SA5    LCT                                                     CCG25      31
                          5110001500 +            SA1    AAVA                                                    CCG25      32
          1512  63640                             SB6    X4                                                      CCG25      33
                     63451                        SB4    X5+B1                                                   CCG25      34
                          10011                   BX0    X1                                                      CCG25      35
                               53556              SA5    B6+X5       CI = RCT + LCT                              CCG25      36
                                                                                                                 CCG25      37
          1513  5055777774               AAV2     SA5    A5-3        CI = CI - 3                                 CCG25      38
                          0305001531 +            ZR     X5,AAV5     IF [CI] = 0   */ END OF TABLE               CCG25      39
          1514  16650                             BX6    -X0+X5                                                  CCG25      40
                     0316001513 +                 NZ     X6,AAV2     IF ^( NOCC = 2 & AC & DEF & USE )           CCG25      41
                                                  LX5    59-CA.RAP                                               CCG25      42
          1515  0335001513 +                      MI     X5,AAV2     IF RA[CI]     */ PREVIOUSLY ASSIGNED        CCG25      43
                          54451                   SA4    A5+B1       C2W = CI + 1                                CCG25      44
                               20430              LX4    -IH.RFP                                                 CCG25      45
          1516  73340                             SX3    X4                                                      CCG25      46
                     0303001513 +                 ZR     X3,AAV2     IF RF[C2W] = 0                              CCG25      47
                               53336              SA3    B6+X3       CIF = RCT(RF)                               CCG25      48
          1517  20346                             LX3    59-CA.DEFP                                              CCG25      49
                     0333001513 +                 MI     X3,AAV2     IF DEF[CIF]   */ SUBSCRIPT NOT INVARIANT    CCG25      50
                               20522              LX5    1+CA.RAP-CA.APLNP                                       CCG0119     7
          1520  43772                             MX7    -CA.APLNL                                               CCG0119     8
                     15757                        BX7    -X7*X5                                                  CCG0119     9
                          0317001522 +            NZ     X7,AAV2A    IF REFED ON AP/LN NODES                     CCG0119    10
          1521  5120000000 X                      SA2    HO$UO                                                   CCG0119    11
                          0302001513 +            ZR     X2,AAV2     IF NOT UNSAFE OPT ALLOWED                   CCG0119    12
          1522                           AAV2A    BSS    0                                                       CCG0119    13
                                                                                                                 CCG25      51
                                        *         CHECK FOR INTERFERING REFS                                     CCG25      52
                                                                                                                 CCG25      53
          1522  20444                             LX4    IH.RFP                                                  CCG25      54
                     64340                        SB3    A4                                                      CCG25      55
                          56264                   SA2    B6+B4       C2K = RCT(LCT+1)                            CCG25      56
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    68
        AAV - ASSIGN ARRAY VARIABLES TO REGISTERS                     AAV 
  
                               43752              MX7    -IH.IHL                                                 CCG25      57
          1523  5022777774               AAV3     SA2    A2-3        C2K = C2K - 3                               CCG25      58
                          0302001527 +            ZR     X2,AAV4     IF [C2K] = 0  */ END OF TABLE               CCG25      59
          1524  13624                             BX6    X2-X4                                                   CCG25      60
                     15367                        BX3    -X7*X6                                                  CCG25      61
                          0313001523 +            NZ     X3,AAV3     IF IH[C2I] " IH[C2K]                        CCG25      62
          1525  65223                             SB2    A2-B3                                                   CCG25      63
                     0420001523 +                 ZR     B2,AAV3     IF C2K = C2I  */ SAME ENTRY                 CCG25      64
          1526  0400001513 +                      EQ     AAV2        INTERFERENCE                                CCG25      65
                                                                                                                 CCG25      66
          1527  75656                    AAV4     SX6    A5-B6       I = CI - RCT                                CCG25      67
                     5165001501 +                 SA6    AXCT+B5     AXCT(J) = I   */ SAVE ORDINAL               CCG25      68
                               66551              SB5    B5+B1       J = J + 1                                   CCG25      69
          1530  7175777774                        SX7    B5-3                                                    CCG25      70
                          0337001513 +            MI     X7,AAV2     IF J < 3                                    CCG25      71
                                                                                                                 CCG25      72
          1531  5110000204 C             AAV5     SA1    MAA                                                     CCG25      73
                          43600                   MX6    0                                                       CCG25      74
                               76750              SX7    B5                                                      CCG25      75
          1532  5165001501 +                      SA6    AXCT+B5     AXCT(J) = 0                                 CCG25      76
                          5120000015 C            SA2    MRA                                                     CCG0018     5
          1533  21221                             AX2    21B                                                     CCG0018     6
                     43367                        MX3    -5                                                      CCG0018     7
                          15423                   BX4    -X3*X2                                                  CCG0018     8
                               47344              CX3    X4          N.LDREG = COUNT(MRA_LOAD_REGISTERS)         CCG0018     9
          1534  37537                             IX5    X3-X7                                                   CCG0018    10
                     37215                        IX2    X1-X5                                                   CCG41       7
                          21273                   AX2    59                                                      CCG41       8
                               11121              BX1    X2*X1                                                   CCG41       9
          1535  15552                             BX5    -X2*X5                                                  CCG41      10
                     12615                        BX6    X1+X5       MAA = MIN( MAA , N.LDREG-NXA )              CCG0018    11
                          5120000202 C            SA2    N.LD                                                    CCG0057     7
          1536  63320                             SB3    X2                                                      CCG0057     8
                     67335                        SB3    B3-B5                                                   CCG0057     9
                          63460                   SB4    X6                                                      CCG0057    10
          1537  0643001540 +                      LE     B3,B4,AAV5A IF N.LD - #X/A LE MAA                       CCG0057    11
                          7266777776              SX6    X6-1        MAA = MAA - 1                               CCG0057    12
                                                                                                                 CCG0057    13
          1540  54610                    AAV5A    SA6    A1                                                      CCG0057    14
                     0450001505 +                 ZR     B5,AAV      IF J = 0      */ NO A/X ASSIGNMENTS         CCG25      79
                                                                                                                 CCG25      80
                                        *         MARK THE ASSIGNMENTS IN *RCT* AND *RAT*                        CCG25      81
                                                                                                                 CCG25      82
          1541  5110000015 C                      SA1    MRA                                                     CCG25      83
                          6130000020              SB3    20B         REGN = 20B                                  CCG25      84
          1542  66400                             SB4    B0          K = 0                                       CCG25      85
                                                                                                                 CCG25      86
          1543  5150001337 +             AAV6     SA5    DAAB                                                    CCG25      87
                          5124001501 +            SA2    AXCT+B4     I = AXCT(K)                                 CCG25      88
          1544  53326                             SA3    B6+X2       CI = RCT(I)                                 CCG25      89
                     12653                        BX6    X5+X3       (RA,VC)[CI] = 1                             CCG25      90
                          54630                   SA6    A3                                                      CCG25      91
                               43063              MX0    -CA.NOCCL                                               CCG25      92
          1545  20333                             LX3    -CA.NOCCP                                               CCG25      93
                     15730                        BX7    -X0*X3                                                  CCG25      94
                          54431                   SA4    A3+B1       C2I = CI + 1                                CCG25      95
                               20430              LX4    -IH.RFP     R = RF[C2I]                                 CCG25      96
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    69
        AAV - ASSIGN ARRAY VARIABLES TO REGISTERS                     AAV 
  
          1546  53546                             SA5    B6+X4       CF = RCT(R)                                 CCG25      97
                     20730                        LX7    CA.SUSEP                                                CCG25      98
                          37657                   IX6    X5-X7       SUSE[CF] = SUSE[CF] - NOCC[CI]              CCG25      99
                               54650              SA6    A5                                                      CCG25     100
          1547  20644                             LX6    -CA.SUSEP                                               CCG25     101
                     15760                        BX7    -X0*X6                                                  CCG25     102
                          76010                   SX0    B1                                                      CCG25     103
          1550  0317001563 +                      NZ     X7,AAV9     IF SUSE[CF] " 0                             CCG25     104
                                                                                                                 CCG25     105
                                        *         VAR HAS NO USES, DEALLOCATE THE REGISTER ASSIGNED TO IT        CCG25     106
                                                                                                                 CCG25     107
                          20630                   LX6    CA.SUSEP                                                CCG25     108
                               43401              MX4    1                                                       CCG25     109
                                                  LX4    1+CA.RAP                                                CCG25     110
          1551  11746                             BX7    X4*X6                                                   CCG0117     6
                     0307001563 +                 ZR     X7,AAV9     IF NOT RF[CF]   */ NOT IN A REG             CCG0117     7
                               15664              BX6    -X4*X6      RA[CF] = 0                                  CCG25     111
          1552  54660                             SA6    A6                                                      CCG25     112
                     73760                        SX7    X6                                                      CCG25     113
                          0317001557 +            NZ     X7,AAV8     IF UDI[CF] " 0  */ PROGRAMMER VARIABLE      CCG25     114
          1553  20604                             LX6    59-CA.CONP                                              CCG25     115
                     0336001557 +                 MI     X6,AAV8     IF CON[CF]                                  CCG25     116
                                                                                                                 CCG25     117
                               54451              SA4    A5+B1                                                   CCG25     118
          1554  43752                             MX7    -T.REGL                                                 CCG25     119
                     20452                        LX4    -IH.CAP                                                 CCG25     120
                          63240                   SB2    X4          C = CA[RCT(R+1)]                            CCG25     121
          1555  5140000000 X                      SA4    O.TET                                                   CCG25     122
                          20722                   LX7    T.REGP                                                  CCG25     123
                               53442              SA4    X4+B2                                                   CCG25     124
          1556  11674                             BX6    X7*X4       REG[TET(C)] = 0                             CCG25     125
                     54640                        SA6    A4                                                      CCG25     126
                                                                                                                 CCG25     127
          1557  5045000002               AAV8     SA4    A5+2        CCW = RCT(R+2)                              CCG25     128
                          43766                   MX7    -CC.REG1L                                               CCG25     129
                               76600              SX6    B0                                                      CCG25     130
                                                  LX4    -CC.REG1P                                               CCG25     131
          1560  15447                             BX4    -X7*X4      REG = REG[CCW]                              CCG25     132
                     63240                        SB2    X4                                                      CCG25     133
                          5264000100 C            SA6    RAT+X4      RAT(REG) = 0                                CCG25     134
          1561  22720                             LX7    B2,X0                                                   CCG25     135
                     12117                        BX1    X1+X7       MRA = MRA ! SHIFT(1,REG)                    CCG25     136
                          5140000170 C            SA4    NAB                                                     CCG25     137
          1562  73741                             SX7    X4+B1       NAB = NAB + 1                               CCG25     138
                     54740                        SA7    A4                                                      CCG25     139
                                                                                                                 CCG25     140
          1563  6133000001               AAV9     SB3    B3+1        REGN = REGN + 1                             CCG25     141
                          22730                   LX7    B3,X0       BIT = SHIFT(1,REGN)                         CCG25     142
                               11671              BX6    X7*X1                                                   CCG25     143
          1564  0306001563 +                      ZR     X6,AAV9     IF MRA & BIT = 0  */ REG NOT AVAIL          CCG25     144
                                                                                                                 CCG25     145
                          5043000002              SA4    A3+2        CCW = RCT(I+2)                              CCG25     146
          1565  15117                             BX1    -X7*X1      MRA = MRA & ^BIT                            CCG25     147
                     73720                        SX7    X2                                                      CCG25     148
                          5173000100 C            SA7    RAT+B3      RAT(REGN) = I                               CCG25     149
          1566  76530                             SX5    B3                                                      CCG25     150
                     20222                        LX2    18                                                      CCG25     151
1       GRA - GLOBAL REGISTER ASSIGNMENT / CANIDATE SELECTION         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    70
        AAV - ASSIGN ARRAY VARIABLES TO REGISTERS                     AAV 
  
                          12625                   BX6    X2+X5                                                   CCG25     152
                               54620              SA6    A2          AXCT(K) = 24/0,18/I,18/REGN                 CCG25     153
                                                  LX5    CC.REG1P                                                CCG25     154
          1567  12645                             BX6    X4+X5       REG1[CCW] = REGN                            CCG25     155
                     54640                        SA6    A4                                                      CCG25     156
                          66441                   SB4    B4+B1       K = K + 1                                   CCG25     157
          1570  0745001543 +                      LT     B4,B5,AAV6  IF K < NAXA                                 CCG25     158
                                                                                                                 CCG25     159
                          10611                   BX6    X1                                                      CCG25     160
                               54610              SA6    A1          UPDATE MRA                                  CCG25     161
          1571  0400001505 +                      EQ     AAV                                                     CCG25     162
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    71
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                        **        MFA - MAKE FINAL B-ASSIGNMENTS                                 GRA      2715
                                        *                                                                        GRA      2716
                                        *         ADJUST ADDRESS REFERENCES TO MINIMIZE SIZE OF CODE IN LOOP.    GRA      2717
                                        *         ASSIGN CONSTANTS TO B-REGS, SETUP LOOP COUNTING CODE INFO.     GRA      2718
                                                                                                                 GRA      2719
                                        *         BC. - B-REG CANIDATE SORT TABLE                                GRA      2720
                                                                                                                 GRA      2721
                                                  DESCRIBE BC.,60    BCT(RF,IH,NOCC,CO)                          GRA      2722
      L     55  77777000000000000000     RF       DEFINE 15          RCT RF                                      GRA      2723
      L     33  00000777777000000000     IH       DEFINE 18          IH OF SYMBOL                                GRA      2724
      L     22  00000000000777000000     NOCC     DEFINE 9                                                       GRA      2725
      L      0  00000000000000777777     CO       DEFINE 18          RCT INDEX OF CANIDATE                       GRA      2726
                                                                                                                 GRA      2727
                                        *         AI. - RF CLASS INDEX TABLE                                     GRA      2728
                                                                                                                 GRA      2729
                                                  DESCRIBE AI.,60    AIT(BASE,NIH,LEN,INDX)                      GRA      2730
                                                  DEFINE 2                                                       GRA      2731
      L     71  10000000000000000000     BASE     DEFINE 1           =1 IF PROG VAR OR BASE MEMBER OF *IP* CLASS GRA      2732
      L     47  07777770000000000000     NIH      DEFINE 18          377777B - N.IH"S IN RF CLASS                GRA      2733
      L     25  00000007777770000000     LEN      DEFINE 18          NUMBER OF ENTRIES IN CLASS                  GRA      2734
                                                  DEFINE 2                                                       GRA      2735
      L     22  00000000000001000000     FP       DEFINE 1                                                       GRA      2736
      L      0  00000000000000777777     INDX     DEFINE 18          INDEX TO LWA OF CLASS                       GRA      2737
                                                                                                                 GRA      2738
          1572  0200401572 +             MFA      ROUTINE                                                        GRA      2739
          1573  5110000015 C                      SA1    MRA                                                     GRA      2740
                          5150000000 X            SA5    L.RCT                                                   GRA      2741
          1574  7120000376                        SX2    376B                                                    GRA      2742
                          11321                   BX3    X2*X1                                                   GRA      2743
                               73431              SX4    X3+B1                                                   GRA      2744
          1575  27604                             PX6    X4          ABR = PACK( 0 , MRA&376B + 1 )              GRA      2745
                     5160000167 C                 SA6    ABR                                                     GRA      2746
                               73150              ALLOC  RND,X5      ALLOC( RND , L.RCT )                        GRA      2747
          1577  5140000000 X                      SA4    O.RCT                                                   GRA      2748
                          43700                   MX7    0                                                       GRA      2749
                               63721              SB7    X2+B1       BO = O.RND + 1                              GRA      2750
          1600  53720                             SA7    X2          BI = BO - 1;  [BI] = 0                      GRA      2751
                     63640                        SB6    X4          CO = [O.RCT]                                GRA      2752
                          53556                   SA5    B6+X5       CI = CO + L.RCT                             GRA      2753
                               43063              MX0    -CA.NOCCL                                               GRA      2754
          1601  66400                             SB4    B0          NC = 0        */ N. CONS                    GRA      2755
                     20041                        LX0    CA.NOCCP                                                GRA      2756
                          66500                   SB5    B0          LC = 0        */ LINK TO LAST CON           GRA      2757
                               43674              MX6    60                                                      GRA      2758
          1602  56660                             SA6    B6          [CO] = -0     */ INDICATE RF=0 IS IN A REG  GRA      2759
                     0400001606 +                 EQ     MFA2                                                    GRA      2760
                                                                                                                 GRA      2761
                                        *         ADD ENTRY TO *CON* LIST                                        GRA      2762
                                                                                                                 GRA      2763
          1603  54351                    MFA1     SA3    A5+B1                                                   GRA      2764
                     54431                        SA4    A3+B1                                                   GRA      2765
                                                  LX3    59-IH.MSKP                                              GRA      2766
                          0333001606 +            MI     X3,MFA2     IF MSK[CI+1]                                GRA      2767
          1604  76750                             SX7    B5                                                      GRA      2768
                     66441                        SB4    B4+B1       NC = NC + 1                                 GRA      2769
                          20744                   LX7    CC.INCP     INC[CI+2] = LC                              GRA      2770
                               12647              BX6    X4+X7                                                   GRA      2771
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    72
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1605  65556                             SB5    A5-B6       LC = CI - CO  */ POINT TO LAST              GRA      2772
                     54640                        SA6    A4                                                      GRA      2773
                                                                                                                 GRA      2774
                                        *         SCAN *RCT* AND BUILD *CON* LIST AND RF,IH SORT TABLE           GRA      2775
                                        *         OF ADDRESS CANIDATES                                           GRA      2776
                                                                                                                 GRA      2777
          1606  5055777774               MFA2     SA5    A5-3        CI = CI - 3                                 GRA      2778
                          0305001626 +            ZR     X5,MFA3     IF [CI] = 0   */ END OF TABLE               GRA      2779
          1607  10655                             BX6    X5                                                      GRA      2780
                     20604                        LX6    59-CA.CONP                                              GRA      2781
                          0336001603 +            MI     X6,MFA1     IF CON[CI]                                  GRA      2782
          1610  20670                             LX6    CA.CONP-CA.RAP                                          GRA      2783
                     0336001606 +                 MI     X6,MFA2     IF RA[CI]                                   GRA      2784
                               20603              LX6    CA.RAP-CA.ACP                                           GRA      2785
          1611  0326001606 +                      PL     X6,MFA2     IF ^AC[CI]                                  FCC1531X    5
                                                                                                                 FCC1531X    6
                          5045000002              SA4    A5+2        CCW = [RCT+2]                               FCC1828X    6
          1612  20452                             LX4    -CC.H2P                                                 FCC1828X    7
                     73340                        SX3    X4                                                      FCC1828X    8
                          0313001606 +            NZ     X3,MFA2     IF H2[CCW] " 0  */ OMIT SYM DIFFERENCES     FCC1828X    9
          1613  54451                             SA4    A5+B1       C2W = [CI+1]                                FCC1531X    7
                     15550                        BX5    -X0*X5                                                  GRA      2800
                          73340                   SX3    X4                                                      GRA      2801
                               20430              LX4    -IH.RFP                                                 GRA      2802
          1614  73440                             SX4    X4          R = RF[CI]                                  GRA      2803
                     20555                        LX5    BC.NOCCP-CA.NOCCP                                       GRA      2804
                          0304001620 +            ZR     X4,MFA2B    IF R = 0                                    FCC1014    83
                                                                                                                 FCC1014    84
          1615  5110001337 +                      SA1    DAAB                                                    FCC1014    85
                          53246                   SA2    B6+X4       CJ = RCT(R)                                 FCC1014    86
                               16621              BX6    -X1+X2                                                  FCC1014    87
          1616  0316001620 +                      NZ     X6,MFA2B    IF ^( VC[CJ] & RA[CJ] )                     FCC1014    88
                          5022000002              SA2    A2+2        CCW = RCT(R+2)                              FCC1014    89
          1617  20267                             LX2    59-CC.REG1P-4                                           FCC1014    90
                     0322001623 +                 PL     X2,MFA2C    IF REG1[CCW] < 20B  */ IN A B-REGISTER      FCC1014    91
                                                                                                                 FCC1014    92
          1620  0303001606 +             MFA2B    ZR     X3,MFA2     IF IH[C2W] = 0                              FCC1014    93
                          43400                   MX4    0           R = 0                                       FCC1014    94
                               54250              SA2    A5                                                      FCC1014    95
          1621  5110001776 +                      SA1    MFAD                                                    FCC1014    96
                          11612                   BX6    X1*X2                                                   FCC1014    97
          1622  0316001623 +                      NZ     X6,MFA2C    IF FP[CI] ! NOCC[CI] \ 2                    FCC1014    98
                                                  LX2    59-CA.RAP                                               FCC1014    99
                          0322001606 +            PL     X2,MFA2     IF ^RA[CI]                                  FCC1014   100
                                                                                                                 FCC1014   101
          1623  20333                    MFA2C    LX3    BC.IHP                                                  FCC1014   102
                     75656                        SX6    A5-B6                                                   GRA      2809
                          20455                   LX4    BC.RFP                                                  GRA      2810
                               12334              BX3    X3+X4                                                   GRA      2811
          1624  36556                             IX5    X5+X6                                                   GRA      2812
                     12735                        BX7    X3+X5                                                   GRA      2813
                          54771                   SA7    A7+B1       BI = BI + 1;  [BI] = BCT(R,IH,NOCC,CI-CO)   GRA      2814
          1625  0400001606 +                      EQ     MFA2                                                    GRA      2815
                                                                                                                 GRA      2816
          1626  76650                    MFA3     SX6    B5                                                      GRA      2817
                     5160000216 C                 SA6    CL          CL = LC       */ CON LIST POINTER           GRA      2818
                               43600              MX6    0                                                       GRA      2819
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    73
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1627  56660                             SA6    B6          [CO] = 0                                    GRA      2820
                     64371                        SB3    A7+B1       BI = BI + 1                                 GRA      2821
                          77137                   SX1    B3-B7       LEN = BI - BO                               GRA      2822
                               10611              BX6    X1                                                      GRA      2823
          1630  5160000217 C                      SA6    NAC         NAC = LEN     */ NUMBER OF ADDRESS CANIDATE GRA      2824
                          0301002022 +            ZR     X1,MFA48    IF LEN = 0                                  GRA      2825
                                                                                                                 GRA      2826
          1631  0100000000 X                      CALL   SHL#        SORT( BCT )                                 CCGNC     654
                                                                                                                 GRA      2828
                                        *         NOW FORM THE RF CLASS INDEX TABLE AND SORT IT                  GRA      2829
                                                                                                                 GRA      2830
          1632  5120000000 X                      SA2    O.TET                                                   GRA      2831
                          43774                   MX7    60                                                      GRA      2832
                               56730              SA7    B3          AI = BI;  [AI] = -0  */ SEARCH TERMINATOR   GRA      2833
          1633  43017                             MX0    -BC.RFP                                                 GRA      2834
                     66331                        SB3    B3+B1       AF = AI + 1   */ BASE                       GRA      2835
                          53020                   SA0    X2                                                      GRA      2836
          1634  6140377776                        SB4    377776B     NIH = -1                                    GRA      2837
                          43152                   MX1    -BC.IHL                                                 GRA      2838
                               66570              SB5    B7          BF = BO       */ ADDRESS OF FIRST IN CLASS  GRA      2839
          1635  20133                             LX1    BC.IHP                                                  GRA      2840
                     56570                        SA5    B7          BI = BO                                     GRA      2841
                          0400001646 +            EQ     MFA6                                                    GRA      2842
                                                                                                                 GRA      2843
                                        *         END OF RF CLASS, SETUP INDEX WORD IN *AIT*                     GRA      2844
                                                                                                                 GRA      2845
          1636  21255                    MFA4     AX2    BC.RFP                                                  GRA      2846
                     53426                        SA4    B6+X2       CI = RCT(RF[BL])                            GRA      2847
                          63220                   SB2    X2                                                      FCC2092     1
                               43700              MX7    0           BASE = 0                                    FCC2092     2
          1637  0420001642 +                      ZR     B2,MFA5     IF RF[BL] = 0                               FCC2092     3
                          76710                   SX7    B1          BASE = 1                                    GRA      2848
                               63240              SB2    X4                                                      GRA      2849
          1640  0520001642 +                      NZ     B2,MFA5     IF UDI[CI] " 0  */ PROGRAMMER VAR           GRA      2850
                                                                                                                 GRA      2851
                          54441                   SA4    A4+B1                                                   GRA      2852
                               20452              LX4    -IH.CAP                                                 GRA      2853
          1641  63240                             SB2    X4                                                      GRA      2854
                     54302                        SA3    A0+B2       TI = TET(CA[CI+1])                          GRA      2855
                          20306                   LX3    -T.BIPP                                                 GRA      2856
                               11773              BX7    X7*X3       BASE = BIP[TI]                              GRA      2857
                                                                                                                 GRA      2858
          1642  75257                    MFA5     SX2    A5-B7       INDX = BI - BO                              GRA      2859
                                                  LX2    AI.INDXP                                                GRA      2860
                     75355                        SX3    A5-B5       LEN = BI - BF                               GRA      2861
                          64550                   SB5    A5          BF = BI                                     GRA      2862
                               20325              LX3    AI.LENP                                                 GRA      2863
          1643  76440                             SX4    B4                                                      GRA      2864
                     20771                        LX7    AI.BASEP                                                GRA      2865
                          12672                   BX6    X7+X2                                                   GRA      2866
                               20447              LX4    AI.NIHP                                                 GRA      2867
          1644  36334                             IX3    X3+X4                                                   GRA      2868
                     12736                        BX7    X3+X6                                                   GRA      2869
                          5077000001              SA7    A7+1        AI = AI + 1;  [AI] = AIT(BASE,NIH,LEN,INDX) GRA      2870
          1645  6140377776                        SB4    377776B     NIH = -1                                    GRA      2871
                          0305001652 +            ZR     X5,MFA7     IF [BI] = 0   */ END OF TABLE               GRA      2872
                                                                                                                 GRA      2873
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    74
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1646  10255                    MFA6     BX2    X5          BL = [BI]                                   GRA      2874
                     54551                        SA5    A5+B1       BI = BI + 1                                 GRA      2875
                          13652                   BX6    X5-X2                                                   GRA      2876
                               11706              BX7    X0*X6                                                   GRA      2877
          1647  0317001636 +                      NZ     X7,MFA4     IF RF[BI] " RF[BL]                          GRA      2878
                                                                                                                 GRA      2879
                          15661                   BX6    -X1*X6                                                  GRA      2880
          1650  0306001646 +                      ZR     X6,MFA6     IF IH[BI] = IH[BL]                          GRA      2881
                          6144777776              SB4    B4-1        NIH = NIH - 1                               GRA      2882
          1651  0315001646 +                      NZ     X5,MFA6     IF [BI] " 0                                 GRA      2883
                                                                                                                 GRA      2884
                          0400001642 +            EQ     MFA5                                                    GRA      2885
                                                                                                                 GRA      2886
                                        *         SORT THE CLASS INDEX TABLE                                     GRA      2887
                                                                                                                 GRA      2888
          1652  64271                    MFA7     SB2    A7+B1                                                   GRA      2889
                     67771                        SB7    B7-B1                                                   GRA      2890
                          77627                   SX6    B2-B7       ATI = AI+1 - (BO-1)                         GRA      2891
                               43700              MX7    0                                                       GRA      2892
          1653  54750                             SA7    A5          [BI] = 0                                    GRA      2893
                     5160000220 C                 SA6    ATI                                                     GRA      2894
          1654  5160000000 X                      SA6    L.RND                                                   GRA      2895
                          77123                   SX1    B2-B3       LEN = AI+1 - AF                             GRA      2896
                               66730              SB7    B3                                                      GRA      2897
          1655  0100000000 X                      CALL   SHL#        SORT( AIT )                                 CCGNC     655
                                                                                                                 GRA      2899
                                                  PRINT  MFA,(* NAC,ATI =*2Z5),(NAC,ATI)                         GRA      2900
                                                  TRACE  MFA,RND                                                 GRA      2901
                                                                                                                 GRA      2902
                                        *         GET SPACE FOR NEW ENTRIES ( CON"S, DIFFERENCES )               GRA      2903
                                                                                                                 GRA      2904
          1656  5150000217 C                      SA5    NAC                                                     GRA      2905
                          22415                   LX4    B1,X5                                                   GRA      2906
                               36145              IX1    X4+X5                                                   GRA      2907
          1657  5100000000 X                      ALLOC  RCT,X1      ALLOC( RCT , 3*NAC )                        GRA      2908
          1660  5140000000 X                      SA4    O.RND                                                   GRA      2909
                          76660                   SX6    B6                                                      GRA      2910
                               63740              SB7    X4                                                      GRA      2911
          1661  5160000000 X                      SA6    L.RCT       L.RCT = OLD(L.RCT)                          GRA      2912
                          63620                   SB6    X2                                                      GRA      2913
  
  
                                        **        MAIN LOOP FOR ADDRESS CANIDATE MODIFICATION                    GRA      2915
                                        *         (A0) = REGNO,  (B6) = [O.RCT],  (B7) = [O.RND]                 GRA      2916
                                                                                                                 GRA      2917
          1662  5110000220 C             MFA10    SA1    ATI                                                     GRA      2918
                          7271777776              SX7    X1-1        ATI = ATI - 1                               GRA      2919
          1663  53277                             SA2    B7+X7       AI = RND(ATI)                               GRA      2920
                     54710                        SA7    A1                                                      GRA      2921
                          0302002022 +            ZR     X2,MFA48    IF AI = 0     */ END OF TABLE               GRA      2922
                                                                                                                 GRA      2923
                                                  LX2    -AI.INDXP                                               GRA      2924
          1664  53527                             SA5    B7+X2       BI = RND(INDX[AI])                          GRA      2925
                     20247                        LX2    AI.INDXP-AI.LENP                                        GRA      2926
                          63520                   SB5    X2          L = LEN[AI]   */ NUMBER OF ENTRIES          GRA      2927
                               20252              LX2    AI.LENP-AI.NIHP                                         GRA      2928
          1665  6222400000                        SB2    X2+400000B                                              GRA      2929
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    75
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          20251                   LX2    AI.NIHP+59-AI.BASEP                                     GRA      2930
                               10655              BX6    X5                                                      GRA      2931
          1666  67402                             SB4    -B2         N = -NIH[AI]  */ NUMBER OF IH"S             GRA      2932
                     21655                        AX6    BC.RFP                                                  GRA      2933
                          6226000002              SB2    X6+2        R = RF[BI]                                  GRA      2934
          1667  43066                             MX0    -CC.REG1L                                               GRA      2935
                     56362                        SA3    B6+B2       CCW = RCT(R+2)                              GRA      2936
                                                  LX3    -CC.REG1P                                               GRA      2937
                          15730                   BX7    -X0*X3                                                  GRA      2938
                               53070              SA0    X7          REGNO = REG1[CCW]                           GRA      2939
          1670  0307001777 +                      ZR     X7,MFA40    IF REGNO = 0                                GRA      2940
                                                                                                                 GRA      2941
                          5043777775              SA4    A3-2        CAW = RCT(R)                                GRA      2942
          1671  5110000740 +                      SA1    MTAB                                                    GRA      2943
                          11614                   BX6    X1*X4                                                   GRA      2944
                               20414              LX4    59-CA.TUP                                               GRA      2945
          1672  0316001777 +                      NZ     X6,MFA40    IF (IRA,EU,LX)[CAW]  */ CANT BIAS           GRA      2946
                          0324001675 +            PL     X4,MFA10A   IF ^TU[CAW]   */ NOT LOOP *CV* OR LIMIT     GRA      2947
          1673  5110000172 C                      SA1    TRD                                                     GRA      2948
                          7241777775              SX4    X1-2                                                    GRA      2949
          1674  0304001777 +                      ZR     X4,MFA40    IF TRD = 2    */ I,N IN REGS                GRA      2950
                                                                                                                 GRA      2951
          1675  0715001736 +             MFA10A   GT     B5,B1,MFA20 IF L > 1      */ MORE THAN 1 MEMBER IN CLAS GRA      2952
                                                                                                                 GRA      2953
                                        *         1 ENTRY IN RF,IH CLASS, SETUP ADDRESS IN B-REG WITH RF         GRA      2954
                                                                                                                 GRA      2955
                          0322001700 +            PL     X2,MFA12    IF ^BASE[AI]                                GRA      2956
                                                                                                                 GRA      2957
                                        *         ASSIGN BASE MEMBER ADDRESS TO B-REG                            GRA      2958
                                                                                                                 GRA      2959
          1676  0100002267 +             MFA11    RJ     AFA         ASSIGN FULL ADDRESS                         GRA      2960
          1677  0400001662 +                      EQ     MFA10                                                   GRA      2961
                                                                                                                 GRA      2962
                                        *         ^BASE *IP*, FIND BASE TP IN REGS AND DO DIFFERENCING           GRA      2963
                                                                                                                 GRA      2964
          1700  54441                    MFA12    SA4    A4+B1                                                   GRA      2965
                     5130000000 X                 SA3    O.TET                                                   GRA      2966
                               20452              LX4    -IH.CAP                                                 GRA      2967
          1701  63240                             SB2    X4          C = CA[RCT(R+1)]  */ CA OF *IP*             GRA      2968
                     53232                        SA2    X3+B2                                                   GRA      2969
                          5110000000 X            SA1    O.IIT                                                   GRA      2970
                                                  LX2    59-T.INVP                                               CCGA063     6
          1702  0332001676 +                      MI     X2,MFA11    IF INV[TET(C)]                              CCGA063     7
                          20230                   LX2    1+T.INVP-T.ITIP                                         CCGA063     8
                               63220              SB2    X2                                                      GRA      2972
          1703  0420001676 +                      ZR     B2,MFA11    IF ITI = 0    */ INVARAINT TEMP             GRA      2973
                          53412                   SA4    X1+B2       ITW = IIT(ITI)                              GRA      2974
                               20452              LX4    -PI.CAP                                                 GRA      2975
          1704  63240                             SB2    X4          BC = CA[ITW]  */ CA OF BASE                 GRA      2976
                     53232                        SA2    X3+B2                                                   GRA      2977
                          20252                   LX2    -T.REGP                                                 GRA      2978
                               63520              SB5    X2          BREGN = REG[TET(BC)]  */ REG THAT BASE IS I GRA      2979
          1705  0450001676 +                      ZR     B5,MFA11    IF BREGNO = 0 */ BASE NOT IN A REG          GRA      2980
                          5115000100 C            SA1    RAT+B5      J1 = R1[RAT(BREGN)]                         FCC1518X   19
          1706  53216                             SA2    B6+X1                                                   FCC1518X   20
                     20210                        LX2    59-CA.EUP                                               FCC1518X   21
                          0332001676 +            MI     X2,MFA11    IF EU[RCT(J1)]  */ BASE IP IS *XU*          FCC1518X   22
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    76
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                                                                                                 GRA      2981
                                        *         NOW PLAY AROUND TO SETUP *REGNO* AS DELTA(IHCA,RF"S)           GRA      2982
                                                                                                                 GRA      2983
          1707  53156                             SA1    B6+X5       J = CO[BI]                                  GRA      2984
                     43001                        MX0    1                                                       GRA      2985
                          5021000002              SA2    A1+2        CCW = RCT(J+2)                              GRA      2986
                                                  LX0    1+CA.RAP                                                GRA      2987
          1710  7135004200                        SX3    B5+2S6+V.SRF  REG1[CCW] = BREGN                         FCC0977    11
                                                  LX3    CC.REG1P    MIT[CCW] = 42B    */ SET *SRF* BIT          FCC0977    12
                          74400                   SX4    A0          REG2[CCW] = REGNO                           GRA      2990
                               20414              LX4    CC.REG2P                                                GRA      2991
          1711  12601                             BX6    X0+X1       RA[RCT(J)] = 1                              GRA      2992
                     54610                        SA6    A1                                                      GRA      2993
                          12334                   BX3    X3+X4                                                   GRA      2994
                               12732              BX7    X3+X2                                                   GRA      2995
          1712  54720                             SA7    A2                                                      GRA      2996
                     5170000001 +                 SA7    GRASRF      GRASRF = 1                                  FCC0977    13
                                                                                                                 GRA      2997
                                        *         SETUP *RAT* TO FORM DIFFERENCE CODE IN PROLOGUE                GRA      2998
                                                                                                                 GRA      2999
          1713  5115000100 C                      SA1    RAT+B5                                                  GRA      3000
                          73310                   SX3    X1          J1 = R1[RAT(BREGN)]                         GRA      3001
                               20130              LX1    -RA.R3P                                                 GRA      3002
          1714  63310                             SB3    X1          J3 = R3[RAT(BREGN)]                         GRA      3003
                     5020000100 C                 SA2    RAT+A0      JO = R1[RAT(REGNO)]                         GRA      3004
                                                  LX0    RA.INVP-CA.RAP                                          GRA      3005
                               12202              BX2    X0+X2       INV[RAT(REGNO)] = 1                         GRA      3006
          1715  20322                             LX3    RA.R2P                                                  GRA      3007
                     12732                        BX7    X3+X2       R2[RAT(REGNO)] = J1                         GRA      3008
                          54720                   SA7    A2                                                      GRA      3009
          1716  5140000162 +                      SA4    SEEA                                                    GRA      3010
                          53326                   SA3    B6+X2                                                   GRA      3011
                               12634              BX6    X3+X4       KD[RCT(JO)] = 1                             GRA      3012
          1717  54630                             SA6    A3                                                      GRA      3013
                     0530001722 +                 NZ     B3,MFA13    IF J3 " 0     */ SYMBOL APPENDED            GRA      3014
                                                                                                                 GRA      3015
                               73350              SX3    X5                                                      GRA      3016
          1720  20344                             LX3    RA.R3P                                                  GRA      3017
                     12737                        BX7    X3+X7       R3[RAT(REGNO)] = J  */ APPEND THIS IHCA     GRA      3018
                          54770                   SA7    A7                                                      GRA      3019
          1721  0400001662 +                      EQ     MFA10                                                   GRA      3020
                                                                                                                 GRA      3021
                                        *         BASE REG HAS A SYMBOL APPENDED, FORM ADDRESS DIFFERENCE        GRA      3022
                                                                                                                 GRA      3023
          1722  73551                    MFA13    SX5    X5+B1                                                   GRA      3024
                     53156                        SA1    B6+X5                                                   GRA      3025
                          66331                   SB3    B3+B1                                                   GRA      3026
                               56263              SA2    B6+B3                                                   GRA      3027
          1723  43030                             MX0    -IH.RFP                                                 GRA      3028
                     15110                        BX1    -X0*X1      CAIH1 = CAIH[RCT(J+1)]                      GRA      3029
                          15220                   BX2    -X0*X2      CAIH2 = CAIH[RCT(J3+1)]                     GRA      3030
                               13312              BX3    X1-X2                                                   GRA      3031
          1724  0303001662 +                      ZR     X3,MFA10    IF CAIH1 = CAIH2                            GRA      3032
                                                                                                                 GRA      3033
                          5140000000 X            SA4    L.RCT                                                   GRA      3034
          1725  63230                             SB2    X3                                                      GRA      3035
                     63441                        SB4    X4+B1       OL = L.RCT                                  GRA      3036
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    77
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          7264000003              SX6    X4+3        L.RCT = L.RCT + 3                           GRA      3037
          1726  20444                             LX4    RA.R3P                                                  GRA      3038
                     54640                        SA6    A4                                                      GRA      3039
                          12747                   BX7    X4+X7       R3[RAT(REGNO)] = OL  */ DIFF CANIDATE       GRA      3040
                               43052              MX0    -IH.CAL                                                 GRA      3041
          1727  54770                             SA7    A7                                                      GRA      3042
                     73310                        SX3    X1                                                      GRA      3043
                          73420                   SX4    X2                                                      GRA      3044
                               20152              LX1    -IH.CAP                                                 GRA      3045
          1730  20252                             LX2    -IH.CAP                                                 GRA      3046
                     73110                        SX1    X1                                                      GRA      3047
                          73220                   SX2    X2                                                      GRA      3048
                               37112              IX1    X1-X2                                                   GRA      3049
          1731  43700                             MX7    0           KEY2 = 0                                    GRA      3050
                     15610                        BX6    -X0*X1                                                  GRA      3051
                          20622                   LX6    IH.CAP      KEY = IHW(0,0, CA1-CA2 , 0 )                GRA      3052
          1732  0420001734 +                      ZR     B2,MFA14    IF IH1 = IH2                                GRA      3053
                          73740                   SX7    X4                                                      GRA      3054
                               20722              LX7    CC.H2P      KEY2 = CCW(0,IH2,0)                         GRA      3055
          1733  12636                             BX6    X3+X6       IH[KEY] = IH1                               GRA      3056
                                                                                                                 GRA      3057
          1734  5140002252 +             MFA14    SA4    EDCA                                                    GRA      3058
                          56664                   SA6    B6+B4       RCT(OL+1) = KEY                             GRA      3059
                               54761              SA7    A6+B1       RCT(OL+2) = KEY2                            GRA      3060
          1735  10644                             BX6    X4                                                      GRA      3061
                     55661                        SA6    A6-B1       RCT(OL) = CAW(0,AC,PL)                      GRA      3062
                          0400001662 +            EQ     MFA10                                                   GRA      3063
  
  
                                        *         PROCESS CLASS WITH L > 1 AND NIH = 1                           GRA      3065
                                                                                                                 GRA      3066
          1736  0541001740 +             MFA20    NE     B4,B1,MFA30 IF N > 1                                    GRA      3067
                          0100002175 +            RJ     PSC         PROCESS SIMPLE CLASS                        GRA      3068
          1737  0400001662 +                      EQ     MFA10                                                   GRA      3069
  
  
                                        *         MULTI IH CLASS                                                 GRA      3071
                                                                                                                 GRA      3072
          1740  7164777772               MFA30    SX6    B4-5                                                    GRA      3073
                          0326001777 +            PL     X6,MFA40    IF N > 4                                    GRA      3074
          1741  5140000170 C                      SA4    NAB                                                     GRA      3075
                          0304001662 +            ZR     X4,MFA10    IF NAB = 0                                  GRA      3076
                                                                                                                 GRA      3077
                                        *         1 < NIH @ 4 , TRY ADDRESS DIFFERENCING                         GRA      3078
                                        *         FIRST FORM AN *IH* CLASS SUBTABLE                              GRA      3079
                                                                                                                 GRA      3080
          1742  66300                             SB3    B0          ML = 0        */ MAX *IH* CLASS LEN         GRA      3081
                     43041                        MX0    -BC.IHP                                                 GRA      3082
                          76100                   SX1    B0          NC = 0                                      GRA      3083
                               74750              SX7    A5          BF = BI                                     GRA      3084
                                                                                                                 GRA      3085
          1743  10455                    MFA31    BX4    X5          BL = [BI]                                   GRA      3086
                     55551                        SA5    A5-B1       BI = BI - 1                                 GRA      3087
                          13645                   BX6    X4-X5                                                   GRA      3088
                               11306              BX3    X0*X6                                                   GRA      3089
          1744  0303001743 +                      ZR     X3,MFA31    IF RFIH[BI] = RFIH[BL]                      FCC0814     5
                                                                                                                 GRA      3091
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    78
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          53246                   SA2    B6+X4       CI = RCT(CO[BL])                            GRA      3092
                               76310              SX3    B1                                                      GRA      3093
          1745  20366                             LX3    CA.FPP                                                  GRA      3094
                     11332                        BX3    X3*X2                                                   GRA      3095
                          74250                   SX2    A5                                                      GRA      3096
                               37672              IX6    X7-X2       LEN = BF - BI                               GRA      3097
          1746  20330                             LX3    AI.FPP-CA.FPP     FP = FP[CI]                           GRA      3098
                     63260                        SB2    X6                                                      GRA      3099
                          12737                   BX7    X3+X7                                                   GRA      3100
                               20625              LX6    AI.LENP                                                 GRA      3101
          1747  12767                             BX7    X6+X7                                                   GRA      3102
                     5271000223 C                 SA7    CIT+X1      CIT(NC) = AIT(0,0,LEN,FP,BF)                GRA      3103
                               73111              SX1    X1+B1       NC = NC + 1                                 GRA      3104
          1750  0632001751 +                      LE     B2,B3,MFA32 ML = MAX( ML , LEN )                        GRA      3105
                          66320                   SB3    B2                                                      GRA      3106
          1751  74750                    MFA32    SX7    A5                                                      GRA      3107
                     63210                        SB2    X1                                                      GRA      3108
                          0724001743 +            LT     B2,B4,MFA31 IF NC < N                                   GRA      3109
                                                                                                                 GRA      3110
          1752  5120000170 C                      SA2    NAB                                                     GRA      3111
                          5130000223 C            SA3    CIT                                                     GRA      3112
          1753  63223                             SB2    X2+B3                                                   GRA      3113
                     53530                        SA5    X3          BI = INDX[CIT]                              GRA      3114
                          0725001777 +            GT     B5,B2,MFA40 IF L > NAB + ML  */ NOT ENOUGH REGISTERS    GRA      3115
  
  
                                        *         BASE *IH* CLASS IS THAT WITH *ML* AND F.P. ( IF ANY )          GRA      3117
                                                                                                                 GRA      3118
          1754  43700                             MX7    0                                                       FCC0814     6
                     54771                        SA7    A7+B1       CIT(NC) = 0   */ TABLE TERMINATOR           FCC0814     7
                          66510                   SB5    B1          I = 1                                       GRA      3119
                               66200              SB2    B0          IM = 0;  MVAL = CIT(0)                      GRA      3120
                                                                                                                 GRA      3121
          1755  5145000223 C             MFA33    SA4    CIT+B5                                                  GRA      3122
                          37634                   IX6    X3-X4                                                   GRA      3123
                               66551              SB5    B5+B1       I = I + 1                                   GRA      3124
          1756  0326001757 +                      PL     X6,MFA34    IF CIT(I-1) @ MVAL                          GRA      3125
                          67251                   SB2    B5-B1       IM = I - 1                                  GRA      3126
                               10344              BX3    X4          MVAL = CIT(IM)                              GRA      3127
          1757  0754001755 +             MFA34    LT     B5,B4,MFA33 IF I < N                                    GRA      3128
                                                                                                                 GRA      3129
                          0713001761 +            GT     B3,B1,MFA34A      IF ML > 1                             GRA      3130
          1760  20351                             LX3    59-AI.FPP                                               GRA      3131
                     0323001777 +                 PL     X3,MFA40    IF ^FP[MVAL]  */ NO F.P. S IN THE CLASS     GRA      3132
                                                                                                                 GRA      3133
          1761  5122000223 C             MFA34A   SA2    CIT+B2                                                  GRA      3134
                          54330                   SA3    A3                                                      GRA      3135
                               10633              BX6    X3                                                      GRA      3136
          1762  22702                             LX7    X2                                                      GRA      3137
                     54620                        SA6    A2          SWAP( CIT(0) , CIT(IM) )                    GRA      3138
                          54730                   SA7    A3                                                      GRA      3139
                                                                                                                 GRA      3140
                               53520              SA5    X2          BI = INDX[CIT]                              GRA      3141
          1763  20247                             LX2    -AI.LENP                                                GRA      3142
                     63520                        SB5    X2          L = LEN[CIT]                                GRA      3143
                          0100002175 +            RJ     PSC         PROCESS BASE CLASS                          GRA      3144
                                                                                                                 GRA      3145
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    79
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          1764  76611                             SX6    B1+B1                                                   GRA      3146
                     5160000223 C                 SA6    CIT         I = 2;  AI = CIT(1)                         GRA      3147
                                                                                                                 GRA      3148
          1765  5110000224 C             MFA35    SA1    CIT+1                                                   GRA      3149
                          5120001775 +            SA2    MFAC                                                    GRA      3150
          1766  53310                             SA3    X1          BI = INDX[AI]                               GRA      3151
                     37612                        IX6    X1-X2       (LEN,INDX)[AI] = (LEN,INDX)[AI] - 1         GRA      3152
                          54610                   SA6    A1                                                      GRA      3153
                               63530              SB5    X3          J = CO[BI]                                  GRA      3154
          1767  0100002230 +                      RJ     AAD         ASSIGN ADDRESS DIFFERENCE( J, REGNO , CAIH  GRA      3155
          1770  5110000224 C                      SA1    CIT+1                                                   GRA      3156
                          20147                   LX1    -AI.LENP                                                GRA      3157
                               63210              SB2    X1                                                      GRA      3158
          1771  0520001765 +                      NZ     B2,MFA35    IF LEN[AI] " 0                              GRA      3159
                                                                                                                 GRA      3160
                          55211                   SA2    A1-B1                                                   GRA      3161
          1772  5232000223 C                      SA3    CIT+X2      AI = CIT(I)                                 GRA      3162
                          73721                   SX7    X2+B1       I = I + 1                                   GRA      3163
                               54720              SA7    A2                                                      GRA      3164
          1773  10633                             BX6    X3                                                      GRA      3165
                     54610                        SA6    A1                                                      GRA      3166
                          0313001765 +            NZ     X3,MFA35    IF AI " 0                                   GRA      3167
                                                                                                                 GRA      3168
          1774  0400001662 +                      EQ     MFA10                                                   GRA      3169
                                                                                                                 GRA      3170
          1775                           MFAC     BSS    0                                                       GRA      3171
                                  26              POS    AI.LENP+1                                               GRA      3172
                            10000001              VFD    1/1,*P/1                                                GRA      3173
                                  42     CA.NOC2P EQU    CA.NOCCP+1                                              GRA      3174
                                  10     CA.NOC2L EQU    CA.NOCCL-1                                              GRA      3175
          1776                           MFAD     BFMW   CA,(FP,NOC2)                                            GRA      3176
  
  
                                        *         PARTIAL ASSIGNMENT, SET IH+CA IN A REGISTER                    GRA      3178
                                                                                                                 GRA      3179
          1777  7160000000               MFA40    SX6    0                                                       GRA      3180
                          5160000221 C            SA6    CAIH        CAIH = 0                                    GRA      3181
                                                                                                                 GRA      3182
          2000  75751                    MFA41    SX7    A5-B1                                                   GRA      3183
                     63251                        SB2    X5+B1                                                   GRA      3184
                          5170000223 C            SA7    CIT                                                     GRA      3185
          2001  63350                             SB3    X5          J = CO[BI]                                  GRA      3186
                     56462                        SA4    B6+B2       C2W = RCT(J+1)                              GRA      3187
                          43030                   MX0    -IH.RFP                                                 GRA      3188
                               15140              BX1    -X0*X4      CAIH1 = CAIH[C2W]                           GRA      3189
          2002  43200                             MX2    0                                                       GRA      3190
                     0100002253 +                 RJ     SDC         SEARCH FOR CAIH                             GRA      3191
          2003  0520002012 +                      NZ     B2,MFA45    IF REGN " 0   */ IN A REG                   GRA      3192
                                                                                                                 GRA      3193
                          5110001776 +            SA1    MFAD                                                    GRA      3194
          2004  56263                             SA2    B6+B3       CAW = RCT(J)                                GRA      3195
                     5140000170 C                 SA4    NAB                                                     GRA      3196
                               11312              BX3    X1*X2                                                   GRA      3197
          2005  0303002020 +                      ZR     X3,MFA47    IF ^( FP[CAW] ! NOCC[CAW] > 1 )             GRA      3198
                          0304002020 +            ZR     X4,MFA47    IF NAB = 0                                  GRA      3199
                                                                                                                 GRA      3200
          2006  5140000000 X                      SA4    =XO.SYM                                                 CCGA100    10
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    80
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          54521                   SA5    A2+B1                                                   CCGA100    11
                               73441              SX4    X4+B1                                                   CCGA100    12
                                                  LX5    -IH.IHP                                                 CCGA100    13
          2007  73550                             SX5    X5                                                      CCGA100    14
                     36445                        IX4    X4+X5                                                   CCGA100    15
                          20501                   LX5    1                                                       CCGA100    16
                               36445              IX4    X4+X5                                                   CCGA100    17
          2010  53440                             SA4    X4          WORDB=SYM(3*IH+1)                           CCGA100    18
                     20452                        LX4    59-WB.LCMP                                              CCGA100    19
                          0334002020 +            MI     X4,MFA47    IF LCM                                      CCGA100    20
                                                                                                                 CCGA100    21
          2011  0100002244 +                      RJ     EDC         ENTER CANIDATE                              GRA      3201
                                                                                                                 GRA      3202
                                        *         SETUP *J* AS A *SLD*                                           GRA      3203
                                                                                                                 GRA      3204
          2012  56163                    MFA45    SA1    B6+B3                                                   GRA      3205
                     43001                        MX0    1                                                       GRA      3206
                          5021000002              SA2    A1+2        CCW = RCT(J+2)                              GRA      3207
                                                  LX0    1+CA.RAP                                                GRA      3208
          2013  12601                             BX6    X0+X1       RA[RCT(J)] = 1                              GRA      3209
                     54610                        SA6    A1                                                      GRA      3210
                          7170000400              SX7    4S6         MIT[CCW] = 4  */ SPECIAL CASE SLD/SST/SA    FCC0646    21
          2014  74500                             SX5    A0                                                      GRA      3212
                     76420                        SX4    B2                                                      GRA      3213
                          0305002017 +            ZR     X5,MFA46    IF REGNO = 0  */ NO BASE REG                GRA      3214
                                                                                                                 GRA      3215
          2015  12757                             BX7    X5+X7       REG1[CCW] = REGNO                           GRA      3216
                                                  LX7    CC.REG1P                                                GRA      3217
                     20414                        LX4    CC.REG2P    REG2[CCW] = REGN                            GRA      3218
                          12242                   BX2    X4+X2                                                   GRA      3219
                               12727              BX7    X2+X7                                                   FCC1014   103
          2016  54720                             SA7    A2                                                      GRA      3221
                     0400002020 +                 EQ     MFA47                                                   GRA      3222
                                                                                                                 GRA      3223
                                         MFA46    LX4    CC.REG1P                                                GRA      3224
          2017  12547                             BX5    X4+X7       REG1[CCW] = REGN                            GRA      3225
                     12752                        BX7    X5+X2                                                   FCC1014   104
                          54720                   SA7    A2                                                      GRA      3227
                                                                                                                 GRA      3228
          2020  5140000223 C             MFA47    SA4    CIT                                                     GRA      3229
                          67551                   SB5    B5-B1       L = L - 1                                   GRA      3230
                               53540              SA5    X4          BI = BI - 1                                 GRA      3231
          2021  0550002000 +                      NZ     B5,MFA41    IF L " 0                                    GRA      3232
                                                                                                                 GRA      3233
                          0400001662 +            EQ     MFA10                                                   GRA      3234
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    81
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          2022  5110000170 C             MFA48    SA1    NAB                                                     GRA      3236
                          5120000017 C            SA2    N.HB                                                    GRA      3237
          2023  0311002025 +                      NZ     X1,MFA48A   IF NAB " 0    */ B-REGS AVAIL               GRA      3238
                          7272777776              SX7    X2-1                                                    GRA      3239
          2024  0317002066 +                      NZ     X7,MFA60    IF N.HB " 1   */ NOT OUTER LP WITH 1 INNER  GRA      3240
                                                                                                                 GRA      3241
                                        *         FORM SORT TABLE OF CONSTANTS WITH MORE THAN 1 OCCURANCE OR     GRA      3242
                                        *         PREVIOUSLY ASSIGNED TO A REGISTER IN AN INNER LOOP.            GRA      3243
                                                                                                                 GRA      3244
          2025  5120000216 C             MFA48A   SA2    CL                                                      GRA      3245
                          43063                   MX0    -CA.NOCCL                                               GRA      3246
                               76700              SX7    B0                                                      GRA      3247
          2026  20041                             LX0    CA.NOCCP                                                GRA      3248
                     6170000001 C                 SB7    SCR+1                                                   GRA      3249
                               57771              SA7    B7-B1       SI = SCR;  [SI] = 0                         GRA      3250
          2027  76100                             SX1    B0          L = 0                                       GRA      3251
                     73220                        SX2    X2          J = CL                                      GRA      3252
                          6150777741              SB5    -36B                                                    GRA      3253
          2030  5100000000                        SA0    0           NPA = 0       */ N. PREVIOUS ASSIGNMENTS    GRA      3254
                          43301                   MX3    1                                                       GRA      3255
                                                  LX3    1+CA.RAP                                                GRA      3256
                                                                                                                 GRA      3257
          2031  53526                    MFA49    SA5    B6+X2       CAW = RCT(J)                                GRA      3258
                     15650                        BX6    -X0*X5      N = NOCC[CAW]                               GRA      3259
                          36762                   IX7    X6+X2                                                   GRA      3260
                               11435              BX4    X3*X5                                                   GRA      3261
          2032  20473                             LX4    58-CA.RAP                                               GRA      3262
                     12747                        BX7    X4+X7       STW = CST(RA[CAW],N,J)                      GRA      3263
                          0304002034 +            ZR     X4,MFA50    IF ^RA[CAW]                                 GRA      3264
          2033  54001                             SA0    A0+B1       NPA = NPA + 1                               GRA      3265
                     0400002035 +                 EQ     MFA51                                                   GRA      3266
                                                                                                                 GRA      3267
          2034  20633                    MFA50    LX6    -CA.NOCCP                                               GRA      3268
                     63260                        SB2    X6                                                      GRA      3269
                          0612002037 +            LE     B2,B1,MFA52 IF N @ 1                                    GRA      3270
                                                                                                                 GRA      3271
          2035  7211000001               MFA51    SX1    X1+1        L = L + 1                                   GRA      3272
                          54771                   SA7    A7+B1       SI = SI + 1;  [SI] = CST(N,J)               GRA      3273
                               63215              SB2    X1+B5                                                   GRA      3274
          2036  0620002041 +                      PL     B2,MFA53    IF L = 36B                                  GRA      3275
                                                                                                                 GRA      3276
          2037  5055000002               MFA52    SA5    A5+2                                                    GRA      3277
                          20530                   LX5    -CC.INCP                                                GRA      3278
                               73250              SX2    X5          J = INC[RCT(J+2)]                           GRA      3279
          2040  0312002031 +                      NZ     X2,MFA49    IF J " 0      */ NOT END OF CON LIST        GRA      3280
                                                                                                                 GRA      3281
          2041  0301002066 +             MFA53    ZR     X1,MFA60    IF L = 0      */ NO CANIDATES               GRA      3282
                          43700                   MX7    0                                                       GRA      3283
                               54771              SA7    A7+B1       SI = SI + 1;  [SI] = 0                      GRA      3284
                                                                                                                 GRA      3285
          2042  0100000000 X                      CALL   SHL#        SORT( SCR )                                 CCGNC     656
          2043  5110000000 X                      SA1    O.RND                                                   GRA      3287
                          5150000170 C            SA5    NAB                                                     GRA      3288
          2044  64201                             SB2    A0+B1                                                   GRA      3289
                     67332                        SB3    B3-B2       SI = SI - (NPA+1)  */ LWA OF ^ASGNED CONS   GRA      3290
                          6271000000              SB7    X1+                                                     GRA      3291
          2045  0315002047 +                      NZ     X5,MFA54    IF NAB " 0                                  GRA      3292
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    82
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          0421002066 +            EQ     B2,B1,MFA60 IF NPA = 0                                  GRA      3293
          2046  0400002052 +                      EQ     MFA55                                                   GRA      3294
                                                                                                                 GRA      3295
                                        *         ASSIGN CONSTANTS TO THE B-REGS                                 GRA      3296
                                                                                                                 GRA      3297
          2047  56530                    MFA54    SA5    B3          J = CO[SI]                                  GRA      3298
                     0305002052 +                 ZR     X5,MFA55    IF J = 0      */ END OF SORT TABLE          GRA      3299
                               67331              SB3    B3-B1       SI = SI - 1                                 GRA      3300
          2050  76110                             SX1    B1          INVF = 1                                    GRA      3301
                     63450                        SB4    X5                                                      GRA      3302
                          0100001102 +            RJ     AIR         ASSIGN AN INDEX REGISTER                    GRA      3303
          2051  5110000170 C                      SA1    NAB                                                     GRA      3304
                          0311002047 +            NZ     X1,MFA54    IF NAB " 0    */ MORE B-REGS LEFT           GRA      3305
                                                                                                                 GRA      3306
                                        *         PROPAGATE CONSTANT ASSIGNMENTS TO PARTIALLY MODIFIED INSTS     GRA      3307
                                                                                                                 GRA      3308
          2052  5120000222 C             MFA55    SA2    PMF                                                     GRA      3309
                          0302002066 +            ZR     X2,MFA60    IF PMF = 0    */ NO PARTIAL MODS            GRA      3310
          2053  43052                             MX0    -IH.CAL                                                 GRA      3311
                     56331                        SA3    B3+B1       SI = SI + 1   */ IN *A3*                    GRA      3312
                          20022                   LX0    IH.CAP                                                  GRA      3313
                               63431              SB4    X3+B1       J = CO[SI]                                  GRA      3314
                                                                                                                 GRA      3315
          2054  56164                    MFA56    SA1    B6+B4       C2W = RCT(J+1)                              GRA      3316
                     54211                        SA2    A1+B1                                                   GRA      3317
                          43766                   MX7    -CC.REG1L                                               GRA      3318
                                                  LX2    -CC.REG1P                                               GRA      3319
                               15227              BX2    -X7*X2      REGN = REG1[RCT(J+2)]                       GRA      3320
          2055  56571                             SA5    B7+B1       BI = O.RND + 1                              GRA      3321
                     20214                        LX2    CC.REG2P                                                GRA      3322
                                                                                                                 GRA      3323
          2056  0325002064 +             MFA57    PL     X5,MFA59    IF [BI] > 0   */ NOT A PARTIAL MOD          GRA      3324
                          14555                   BX5    -X5                                                     GRA      3325
                               63251              SB2    X5+B1       I = -CO[BI]                                 GRA      3326
          2057  56462                             SA4    B6+B2                                                   GRA      3327
                     7170000100                   SX7    1S6         IT = 2                                      GRA      3328
                               15540              BX5    -X0*X4      C = CA[RCT(I+1)]                            GRA      3329
          2060  37651                             IX6    X5-X1                                                   GRA      3330
                     0306002062 +                 ZR     X6,MFA58    IF C = C2W                                  GRA      3331
                               36451              IX4    X5+X1                                                   GRA      3332
          2061  12604                             BX6    X0+X4                                                   GRA      3333
                     0316002064 +                 NZ     X6,MFA59    IF -C " C2W                                 GRA      3334
                               20701              LX7    1           IT = 3        */ 2S6                        GRA      3335
                                                                                                                 GRA      3336
                                        *         CHANGE INSTRUCTION                                             GRA      3337
                                                                                                                 GRA      3338
          2062  54441                    MFA58    SA4    A4+B1       CCW = RCT(I+2)                              GRA      3339
                     12627                        BX6    X2+X7       REG2[CCW] = REGN                            GRA      3340
                          36764                   IX7    X6+X4       MIT[CCW] = IT                               GRA      3341
                               54640              SA6    A4                                                      GRA      3342
          2063  54740                             SA7    A4                                                      GRA      3343
                                                                                                                 GRA      3344
          2064  54551                    MFA59    SA5    A5+B1       BI = BI + 1                                 GRA      3345
                     0315002056 +                 NZ     X5,MFA57    IF [BI] " 0   */ NOT END OF ADDRESS TABLE   GRA      3346
                                                                                                                 GRA      3347
                               54331              SA3    A3+B1       SI = SI + 1                                 GRA      3348
          2065  63431                             SB4    X3+B1       J = CO[SI]                                  GRA      3349
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    83
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                     0313002054 +                 NZ     X3,MFA56    IF J " 0                                    GRA      3350
  
  
                                        *         SETUP LOOP TEST REPLACEMENT CODE INFO                          GRA      3352
                                                                                                                 GRA      3353
          2066  5110000172 C             MFA60    SA1    TRD                                                     GRA      3354
                          7160000000              SX6    0           L.RND = 0                                   GRA      3355
          2067  5160000000 X                      SA6    L.RND                                                   GRA      3356
                          0301001572 +            ZR     X1,MFA      IF TRD = 0    */ NO TEST REPLACEMENT        GRA      3357
                                                                                                                 GRA      3358
          2070  5150000023 C                      SA5    LUL                                                     GRA      3359
                          26625                   UX6    B2,X5                                                   GRA      3360
          2071  0520002111 +                      NZ     B2,MFA61    IF TYPE[LUL] " 0  */ NOT A CON *UL*         GRA      3361
                                                                                                                 GRA      3362
                                        *         ENTER CONSTANT UPPER LIMIT IN *RCT*                            GRA      3363
                                                                                                                 GRA      3364
                          7110000003              ALLOC  RCT,3       ALLOC( RCT , 3 )                            GRA      3365
          2073  43052                             MX0    -IH.CAL                                                 GRA      3366
                     76610                        SX6    B1                                                      GRA      3367
                          15750                   BX7    -X0*X5                                                  GRA      3368
                               20667              LX6    CA.CONP                                                 GRA      3369
          2074  53626                             SA6    X2+B6       RCT(OL) = CAW(0,CON,0)                      GRA      3370
                     20722                        LX7    IH.CAP                                                  GRA      3371
                          54761                   SA7    A6+B1       RCT(OL+1) = IHW(0,0,CA[LUL],0)              GRA      3372
                               43600              MX6    0                                                       GRA      3373
          2075  54671                             SA6    A7+B1       RCT(OL+2) = 0                               GRA      3374
                     5110000172 C                 SA1    TRD                                                     GRA      3375
                               53421              SA4    X2+B1                                                   GRA      3376
          2076  7261777775                        SX6    X1-2                                                    GRA      3377
                          0316002107 +            NZ     X6,MFA60B   IF TRD " 2                                  GRA      3378
                                                                                                                 GRA      3379
                                        *         I, N IN REGS, CHECK FOR PREVIOUS ASSIGNMENT OF *UL* IN THIS LP GRA      3380
                                                                                                                 GRA      3381
          2077  6252000004                        SB5    X2+4                                                    GRA      3382
                          6130000003              SB3    3                                                       GRA      3383
          2100  13647                    MFA60A   BX6    X4-X7                                                   GRA      3384
                     54443                        SA4    A4+B3                                                   GRA      3385
                          0316002100 +            NZ     X6,MFA60A   IF RCT(I-2) " RCT(OL+1)                     GRA      3386
          2101  65445                             SB4    A4-B5                                                   GRA      3387
                     0446002107 +                 EQ     B4,B6,MFA60B      IF I = OL                             GRA      3388
          2102  5034777773                        SA3    A4-4        CAW = RCT(I)                                GRA      3389
                                                  LX3    59-CA.RAP                                               GRA      3390
                          0323002100 +            PL     X3,MFA60A   IF ^RA[RCT(I)-3)]                           GRA      3391
          2103  20304                             LX3    CA.RAP-CA.CONP                                          GRA      3392
                     0323002100 +                 PL     X3,MFA60A   IF ^CON[CAW]                                GRA      3393
          2104  5110000024 C                      SA1    LUL+1                                                   GRA      3394
                          5261000100 C            SA6    RAT+X1      RAT(LUL(2)) = 0                             GRA      3395
          2105  5043000002                        SA4    A3+2        CCW = RCT(I+2)                              GRA      3396
                                                  LX4    -CC.REG1P                                               GRA      3397
                          43066                   MX0    -CC.REG1L                                               GRA      3398
                               15640              BX6    -X0*X4      LUL(2) = REG1[CCW]                          GRA      3399
          2106  54610                             SA6    A1                                                      GRA      3400
                     66640                        SB6    B4          OL = I                                      GRA      3401
                                                                                                                 GRA      3402
          2107  5110000024 C             MFA60B   SA1    LUL+1                                                   GRA      3403
                          76760                   SX7    B6                                                      GRA      3404
                               43001              MX0    1                                                       GRA      3405
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    84
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                                                  LX0    1+RA.INVP                                               GRA      3406
          2110  12707                             BX7    X0+X7       RAT(LUL(2)) = RATW(1,0,0,OL)                GRA      3407
                     5271000100 C                 SA7    RAT+X1                                                  GRA      3408
                                                                                                                 GRA      3409
          2111  5150000172 C             MFA61    SA5    TRD                                                     GRA      3410
                          6225777775              SB2    X5-2                                                    GRA      3411
          2112  0420001572 +                      ZR     B2,MFA      IF TRD = 2    */ I,N CASE                   GRA      3412
                          0620002120 +            PL     B2,MFA63    IF TRD " 1                                  GRA      3413
                                                                                                                 GRA      3414
                                        *         I-N CASE, SETUP TO BIAS REG THAT *CV* IS IN                    GRA      3415
                                                                                                                 GRA      3416
          2113  5110000024 C             MFA62    SA1    LUL+1                                                   GRA      3417
                          5221000100 C            SA2    RAT+X1                                                  GRA      3418
          2114  5130000022 C                      SA3    LCV+1                                                   GRA      3419
                          5243000100 C            SA4    RAT+X3                                                  GRA      3420
          2115  73220                             SX2    X2                                                      GRA      3421
                     20222                        LX2    RA.R2P      R2[RAT(LCV(2))] = R1[RAT(LUL(2))]           GRA      3422
                          12624                   BX6    X2+X4                                                   GRA      3423
                               54640              SA6    A4                                                      GRA      3424
          2116  43700                             MX7    0                                                       GRA      3425
                     54720                        SA7    A2          RAT(LUL(2)) = 0                             GRA      3426
                          54710                   SA7    A1          LUL(2) = 0                                  GRA      3427
          2117  0400001572 +                      EQ     MFA                                                     GRA      3428
                                                                                                                 GRA      3429
                                        *         PROCESS A+I , A+N CASE , CV REG IS ALREADY BIASED              GRA      3430
                                                                                                                 GRA      3431
          2120  0521002125 +             MFA63    NE     B2,B1,MFA64 IF TRD " 3                                  GRA      3432
                          5110000024 C            SA1    LUL+1                                                   GRA      3433
          2121  5221000100 C                      SA2    RAT+X1                                                  GRA      3434
                          5130000022 C            SA3    LCV+1                                                   GRA      3435
          2122  5243000100 C                      SA4    RAT+X3                                                  GRA      3436
                          43052                   MX0    -RA.R3L                                                 GRA      3437
                               76710              SX7    B1                                                      GRA      3438
          2123  20044                             LX0    RA.R3P                                                  GRA      3439
                     15540                        BX5    -X0*X4      J = R3[RAT(LCV(2))]                         GRA      3440
                          20773                   LX7    RA.INVP                                                 GRA      3441
                               12272              BX2    X7+X2       INV[RAT(LUL(2))] = 1                        GRA      3442
          2124  12652                             BX6    X5+X2       R3[RAT(LUL(2))] = J                         GRA      3443
                     54620                        SA6    A2                                                      GRA      3444
                          0400001572 +            EQ     MFA                                                     GRA      3445
                                                                                                                 GRA      3446
                                        *         TRD = 4, I,F(I) IN REGS, SEARCH FOR F(I)                       GRA      3447
                                                                                                                 GRA      3448
          2125  5110000000 X             MFA64    SA1    O.RCT                                                   GRA      3449
                          5120000000 X            SA2    O.TET                                                   GRA      3450
          2126  5130000000 X                      SA3    O.IIT                                                   GRA      3451
                          5140000000 X            SA4    =XIT.                                                   GRA      3452
          2127  5150000021 C                      SA5    LCV                                                     GRA      3453
                          6170000007              SB7    7           I = 7         */ REGNO                      GRA      3454
          2130  63611                             SB6    X1+B1                                                   GRA      3455
                     63520                        SB5    X2                                                      GRA      3456
                          63431                   SB4    X3+B1                                                   GRA      3457
                               14444              BX4    -X4                                                     GRA      3458
          2131  63340                             SB3    X4                                                      GRA      3459
                     26505                        UX5    X5                                                      GRA      3460
                          21544                   AX5    PS.UDIP                                                 GRA      3461
                               14555              BX5    -X5                                                     GRA      3462
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    85
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
          2132  63250                             SB2    X5          U = UDI[LCV]                                GRA      3463
                                                                                                                 GRA      3464
          2133  5157000100 C             MFA65    SA5    RAT+B7      R = R1[RAT(I)]                              GRA      3465
                          0305002141 +            ZR     X5,MFA66    IF R = 0                                    GRA      3466
          2134  53456                             SA4    B6+X5       C2W = RCT(R+1)                              GRA      3467
                     73643                        SX6    X4+B3                                                   GRA      3468
                          0316002141 +            NZ     X6,MFA66    IF IH[C2W] " IT.                            GRA      3469
          2135  55341                             SA3    A4-B1                                                   GRA      3470
                     20452                        LX4    -IH.CAP     C = CA[C2W]                                 GRA      3471
                          20351                   LX3    59-CA.KDP                                               GRA      3472
                               53245              SA2    B5+X4                                                   GRA      3473
          2136  20230                             LX2    -T.ITIP     ITI = ITI[TET(C)]                           GRA      3474
                     0333002141 +                 MI     X3,MFA66    IF KD[RCT(R)]                               GRA      3475
                               73220              SX2    X2                                                      GRA      3476
          2137  0302002141 +                      ZR     X2,MFA66    IF ITI = 0                                  GRA      3477
                          53124                   SA1    B4+X2       IAW = IIT(ITI+1)                            GRA      3478
                                                  LX1    -IA.UDIP                                                GRA      3479
                               73612              SX6    X1+B2                                                   GRA      3480
          2140  0306002143 +                      ZR     X6,MFA67    IF UDI[IAW] = U                             GRA      3481
                                                                                                                 GRA      3482
          2141  67771                    MFA66    SB7    B7-B1       I = I - 1                                   GRA      3483
                     0570002133 +                 NZ     B7,MFA65    IF I " 0                                    GRA      3484
                                                                                                                 GRA      3485
                                        *         F(I) NOT FOUND, CHANGE TO TRD = 1                              GRA      3486
                                                                                                                 GRA      3487
                               76610              SX6    B1                                                      GRA      3488
          2142  5160000172 C                      SA6    TRD         TRD = 1                                     GRA      3489
                          0400002113 +            EQ     MFA62                                                   GRA      3490
                                                                                                                 GRA      3491
                                        *         POSSIBLE F(I) FOUND, CHECK INCREMENT VALUE. DISALLOW VARIABLE  GRA      3492
                                        *         INCREMENTS SINCE THEY MAY BE NEGATIVE.                         GRA      3493
                                                                                                                 GRA      3494
          2143  54341                    MFA67    SA3    A4+B1       CCW=RCT(R+2)                                FCC2135     4
                     20330                        LX3    -CC.INCP                                                FCC2135     5
                          7263777776              SX6    X3-1        IP=INC[CCW]                                 FCC2135     6
          2144  53166                             SA1    B6+X6       CAWI=RCT(IP)                                FCC2135     7
                     20104                        LX1    59-CA.CONP                                              FCC2135     8
                          0321002141 +            PL     X1,MFA66    IF CON[CAWI]=0 */VAR INCR.                  FCC2135     9
                                                                                                                 FCC2135    10
                                        *   IF F(I) INDEXES BLANK COMMON, A FORMAL PARAMETER OR LCM AND ITS      FCC2135    11
                                        *   INCREMENT IS SUFFICIENTLY LARGE USING IT AS AN ALTERNATE LOOP COUNT  FCC2135    12
                                        *   COULD RESULT IN A B REGISTER OVERFLOW.  FIRST CHECK IF SIZE OF       FCC2135    13
                                        *   INCREMENT IS SUFFICIENTLY LARGE (>100B).                             FCC2135    14
                                                                                                                 FCC2135    15
          2145  54111                             SA1    A1+B1       IHWI=CAWI+1                                 FCC2135    16
                     20144                        LX1    -IH.CAP-6                                               FCC2135    17
                          73110                   SX1    X1                                                      FCC2135    18
          2146  0301002164 +                      ZR     X1,MFA68    IF CA[IHWI]<100B                            FCC2135    19
                                                                                                                 FCC2135    20
                                        *   NOW CHECK IF F(I) INDEXES BLANK COMMON,A FORMAL PARAMETER OR LCM.    FCC2135    21
                                                                                                                 FCC2135    22
                          73550                   SX5    X5          LOOK THRU IH WORDS OF RCT                   FCC2135    23
                               43652              MX6    -IH.RFL     BACKWARDS LOOKING FOR THE                   FCC2135    24
          2147  76020                             SX0    B2          F(I) RCT INDEX IN THE                       FCC2135    25
                     20544                        LX5    IH.RFP      RF FIELD.                                   FCC2135    26
                          5110000000 X            SA1    L.RCT                                                   FCC2135    27
          2150  5140000000 X                      SA4    =XO.SYM                                                 FCC2135    28
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    86
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                          20644                   LX6    IH.RFP                                                  FCC2135    29
                               53116              SA1    B6+X1                                                   FCC2135    30
          2151  53041                             SA0    X4+B1                                                   FCC2135    31
                                                                                                                 FCC2135    32
          2152  5011777774               MFA67A   SA1    A1-3                                                    FCC2135    33
                          0301002164 +            ZR     X1,MFA68    IF END OF RCT                               FCC2135    34
          2153  15416                             BX4    -X6*X1                                                  FCC2135    35
                     13445                        BX4    X4-X5                                                   FCC2135    36
                          0314002152 +            NZ     X4,MFA67A   IF F(I) NE RF                               FCC2135    37
                                                  LX1    -IH.IHP     IH=IH[RCT(I+1)]                             FCC2135    38
          2154  63210                             SB2    X1                                                      FCC2135    39
                     0420002163 +                 ZR     B2,MFA67B   IF IH = 0 THEN UNSAFE                       CCGA036    18
                               20101              LX1    1                                                       FCC2135    40
          2155  63212                             SB2    B2+X1                                                   FCC2135    41
                     54402                        SA4    A0+B2       WORDB=SYM(3*IH+1)                           FCC2135    42
                          20452                   LX4    59-WB.LCMP                                              FCC2135    43
          2156  0334002163 +                      MI     X4,MFA67B   IF LCM                                      FCC2135    44
                          20401                   LX4    WB.LCMP-WB.FPP                                          FCC2135    45
          2157  0334002163 +                      MI     X4,MFA67B   IF A FORMAL PARAMETER                       FCC2135    46
                          20401                   LX4    WB.FPP-WB.COMP                                          FCC2135    47
          2160  0324002152 +                      PL     X4,MFA67A   IF NOT COMMON                               FCC2135    48
                          54441                   SA4    A4+B1       WORDC=WORDB+1                               FCC2135    49
                               43762              MX7    -WC.RBL                                                 FCC2135    50
          2161  20414                             LX4    -WC.RBP                                                 FCC2135    51
                     15747                        BX7    -X7*X4      RBN=RB[WORDC]                               FCC2135    52
                                         .FTN     IFEQ   HC.ID,2,2                                               FCC2135    53
                          5140000000 X            SA4    =XBLNKCOM                                               FCC2135    54
          2162  13747                             BX7    X4-X7                                                   FCC2135    55
                     0317002152 +                 NZ     X7,MFA67A   IF RBN=0 */INDEXES BLANK COMMON             FCC2135    56
                                                                                                                 FCC2135    57
                                        *   F(I) IS NOT SAFE LOOK FOR ANOTHER F(I).                              FCC2135    58
                                                                                                                 FCC2135    59
          2163  63200                    MFA67B   SB2    X0          RESTORE B2                                  FCC2135    60
                     0400002141 +                 EQ     MFA66                                                   FCC2135    61
                                                                                                                 GRA      3504
                                        *         ADJUST TRD IF NEGATIVE F(I), SAVE *IIT* INDEX                  GRA      3505
                                                                                                                 GRA      3506
          2164  20346                    MFA68    LX3    59-CC.IMP+CC.INCP                                       FCC2135    62
                     43701                        MX7    1                                                       GRA      3508
                          7160000004              SX6    4                                                       GRA      3509
          2165  11773                             BX7    X7*X3                                                   FCC2135    63
                     12667                        BX6    X6+X7       TRD = SHIFT(IM[CCW],59) ! 4                 GRA      3511
                          5160000172 C            SA6    TRD                                                     GRA      3512
          2166  5110000100 C                      SA1    RAT         ULO = R1[RAT(0)]  */ UL ORD                 GRA      3513
                          5130000022 C            SA3    LCV+1                                                   GRA      3514
          2167  5243000100 C                      SA4    RAT+X3      CVO = R1[RAT(LCV(2))]                       GRA      3515
                          10633                   BX6    X3                                                      GRA      3516
                               76770              SX7    B7                                                      GRA      3517
          2170  5160000024 C                      SA6    LUL+1       J = LUL(2) = LCV(2)  */ UL IN CV REG        GRA      3518
                          54730                   SA7    A3          LCV(2) = I    */ CV IN F(I) REG             GRA      3519
                               73221              SX2    X2+B1                                                   GRA      3520
          2171  20222                             LX2    RA.R2P      R2[RAT(J)] = ITI + 1  */ FORMULA INDEX      GRA      3521
                     12712                        BX7    X1+X2       R1[RAT(J)] = ULO                            GRA      3522
                          5273000100 C            SA7    RAT+X3                                                  GRA      3523
          2172  43600                             MX6    0                                                       GRA      3524
                     54610                        SA6    A1          RAT(0) = 0                                  GRA      3525
                          67661                   SB6    B6-B1                                                   GRA      3526
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    87
        MFA - MAKE FINAL B-ASSIGNMENTS                                MFA 
  
                               43701              MX7    1                                                       GRA      3527
          2173  5120000162 +                      SA2    SEEA                                                    GRA      3528
                          53346                   SA3    B6+X4                                                   GRA      3529
                               12623              BX6    X2+X3       KD[RCT(CVO)] = 1                            GRA      3530
          2174  54630                             SA6    A3                                                      GRA      3531
                     0400001572 +                 EQ     MFA                                                     GRA      3532
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    88
        PSC - PROCESS SIMPLE CLASS ( 1 IH )                           PSC 
  
                                        **        PSC - PROCESS SIMPLE CLASS ( 1 IH )                            GRA      3534
                                        *         FIND A BASE MEMBER ( *CA* IS IN CENTER OF CLASS ).             GRA      3535
                                        *         REDUCE THE BASE MEMBER TO A SHORT INSTRUCTION AND CHANGE       GRA      3536
                                        *         THE OTHER MEMBERS OF THE CLASS TO THE FORM *REG+CON*.          GRA      3537
                                        *                                                                        GRA      3538
                                        *         ENTRY  (B5) = L , CLASS LENGTH                                 GRA      3539
                                        *                (A5) = BI , LWA OF CLASS                                GRA      3540
                                        *                (A0) = REGNO , REGISTER NUMBER OF *RF*                  GRA      3541
                                        *                                                                        GRA      3542
                                        *         EXIT   (CAIH) = CAIH OF BASE MEMBER                            GRA      3543
                                                                                                                 GRA      3544
          2175  0200402175 +             PSC      ROUTINE                                                        GRA      3545
          2176  67451                             SB4    B5-B1                                                   GRA      3546
                     66661                        SB6    B6+B1                                                   GRA      3547
                          0614002214 +            LE     B4,B1,PSC5  IF L @ 2      */ ONLY 2 MEMBERS             GRA      3548
                                                                                                                 GRA      3549
                                        *         L > 2 ,  FIND A BASE MEMBER WHICH IS THE CENTER OF THE         GRA      3550
                                        *         *CA*"S IN THE CLASS.                                           GRA      3551
                                                                                                                 GRA      3552
          2177  54450                             SA4    A5          I = BI                                      GRA      3553
                     43600                        MX6    0           AVE = 0                                     GRA      3554
                          66400                   SB4    B0          J = 0                                       GRA      3555
                                                                                                                 GRA      3556
          2200  53346                    PSC2     SA3    B6+X4       C2W = RCT(CO[I]+1)                          GRA      3557
                     66441                        SB4    B4+B1       J = J + 1                                   GRA      3558
                          20352                   LX3    -IH.CAP                                                 GRA      3559
                               55441              SA4    A4-B1       I = I - 1                                   GRA      3560
          2201  73730                             SX7    X3                                                      GRA      3561
                     36667                        IX6    X6+X7       AVE = AVE + CA[C2W]                         GRA      3562
                          0745002200 +            LT     B4,B5,PSC2  IF J < L                                    GRA      3563
          2202  76750                             SX7    B5                                                      GRA      3564
                     27606                        IX7    X6/X7,B4    AVE = AVE / L                               GRA      3565
                                                                                                                 GRA      3566
                                        *         SEARCH CLASS TO FIND BASE MEMBER, AND MOVE IT TO LWA OF CLASS  GRA      3567
                                                                                                                 GRA      3568
          2204  66400                             SB4    B0          J = 0                                       GRA      3569
                     54450                        SA4    A5          I = BI                                      GRA      3570
                          6130377777              SB3    377777B     MIND = 377777B  */ MIN DIFFERENCE           GRA      3571
          2205  74050                             SX0    A5          IM = BI                                     GRA      3572
                                                                                                                 GRA      3573
          2206  53346                    PSC3     SA3    B6+X4       C2W = RCT(CO[I]+1)                          GRA      3574
                     20352                        LX3    -IH.CAP                                                 GRA      3575
                          73230                   SX2    X3          C = CA[C2W]                                 GRA      3576
                               37627              IX6    X2-X7                                                   GRA      3577
          2207  10266                             BX2    X6                                                      GRA      3578
                     21673                        AX6    59                                                      GRA      3579
                          13262                   BX2    X6-X2       DIFF = ABS( AVE - C )                       GRA      3580
                               63220              SB2    X2                                                      GRA      3581
          2210  0623002211 +                      GE     B2,B3,PSC4  IF DIFF \ MIND                              GRA      3582
                          74040                   SX0    A4          IM = I                                      GRA      3583
                               66320              SB3    B2          MIND = DIFF                                 GRA      3584
          2211  66441                    PSC4     SB4    B4+B1       J = J + 1                                   GRA      3585
                     55441                        SA4    A4-B1       I = I - 1                                   GRA      3586
                          0745002206 +            LT     B4,B5,PSC3  IF J < L                                    GRA      3587
                                                                                                                 GRA      3588
          2212  53400                             SA4    X0                                                      GRA      3589
                     22605                        LX6    X5                                                      GRA      3590
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    89
        PSC - PROCESS SIMPLE CLASS ( 1 IH )                           PSC 
  
                          22704                   LX7    X4          SWAP( [IM] , [BI] )                         GRA      3591
                               54640              SA6    A4                                                      GRA      3592
          2213  54750                             SA7    A5                                                      GRA      3593
                                                                                                                 GRA      3594
                                        *         CHANGE CLASS BASE TO A SHORT REF                               GRA      3595
                                                                                                                 GRA      3596
          2214  54550                    PSC5     SA5    A5                                                      GRA      3597
                     67661                        SB6    B6-B1                                                   GRA      3598
                          0100002267 +            RJ     AFA         ASSIGN FULL ADDRESS TO BASE                 GRA      3599
                                                                                                                 GRA      3600
                                        *         CHANGE REST OF CLASS TO LONG REFS OF FORM REG+CON              GRA      3601
                                                                                                                 GRA      3602
          2215  55161                             SA1    A6-B1       C2W = CCW - 1                               GRA      3603
                     43030                        MX0    -IH.RFP                                                 GRA      3604
                          15710                   BX7    -X0*X1                                                  GRA      3605
                               20152              LX1    -IH.CAP                                                 GRA      3606
          2216  63410                             SB4    X1          BCA = CA[C2W] */ CA THAT IS IN BASE REG     GRA      3607
                     5170000221 C                 SA7    CAIH        CAIH = CAIH[C2W]                            GRA      3608
                               67404              SB4    -B4                                                     GRA      3609
          2217  0451002175 +                      EQ     B5,B1,PSC   IF L = 1                                    GRA      3610
                                                                                                                 GRA      3611
          2220  55551                    PSC6     SA5    A5-B1       BI = BI - 1                                 GRA      3612
                     43052                        MX0    -IH.CAL                                                 GRA      3613
                          63251                   SB2    X5+B1       J = CO[BI]                                  GRA      3614
                               56462              SA4    B6+B2       C2W = RCT(J+1)                              GRA      3615
          2221  14655                             BX6    -X5         [BI] = -[BI]  */ SET FLAG FOR LATER         GRA      3616
                     54650                        SA6    A5                                                      GRA      3617
                          20452                   LX4    -IH.CAP                                                 GRA      3618
                               73344              SX3    X4+B4       C = CA[C2W] - BCA  */ CHANGE CA             GRA      3619
          2222  11404                             BX4    X0*X4                                                   GRA      3620
                     55241                        SA2    A4-B1       CAW = RCT(J)                                GRA      3621
                          15130                   BX1    -X0*X3                                                  GRA      3622
                               12641              BX6    X4+X1       CA[C2W] = C                                 GRA      3623
          2223  20622                             LX6    IH.CAP                                                  GRA      3624
                     43101                        MX1    1                                                       GRA      3625
                          54640                   SA6    A4                                                      GRA      3626
                                                  LX1    1+CA.RAP                                                GRA      3627
                               12712              BX7    X1+X2       RA[RCT(J)] = 1                              GRA      3628
          2224  54720                             SA7    A2                                                      GRA      3629
                     54141                        SA1    A4+B1       CCW = RCT(J+2)                              GRA      3630
                          7070000100              SX7    A0+1S6                                                  GRA      3631
                                                  LX7    CC.REG1P    REG1[CCW] = REGNO                           GRA      3632
          2225  12671                             BX6    X7+X1       MIT[CCW] = 1  */ PLD, PST                   GRA      3633
                     54610                        SA6    A1                                                      GRA      3634
                          0100002276 +            RJ     ECC         ENTER CON CANIDATE                          GRA      3635
          2226  67551                             SB5    B5-B1       L = L - 1                                   GRA      3636
                     0715002220 +                 GT     B5,B1,PSC6  IF L > 1                                    GRA      3637
                                                                                                                 GRA      3638
                               76610              SX6    B1                                                      GRA      3639
          2227  5160000222 C                      SA6    PMF         PMF = 1       */ INDICATE PLD"S EXIST       GRA      3640
                          0400002175 +            EQ     PSC                                                     GRA      3641
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    90
        AAD - ASSIGN ADDRESS DIFFERENCE TO A REGISTER                 AAD 
  
                                        **        AAD - ASSIGN ADDRESS DIFFERENCE TO A REGISTER                  GRA      3643
                                        *                                                                        GRA      3644
                                        *         ENTRY  (A0) = REGNO OF BASE REGISTER                           GRA      3645
                                        *                (B5) = J , ORDINAL OF CANIDATE TO BE DIFFERENCED        GRA      3646
                                        *                (CAIH) = CA,IH IN BASE REGISTER                         GRA      3647
                                                                                                                 GRA      3648
          2230  0200402230 +             AAD      ROUTINE                                                        GRA      3649
          2231  5110000221 C                      SA1    CAIH        CAIH1 = CAIH                                GRA      3650
                          66251                   SB2    B5+B1                                                   GRA      3651
                               56262              SA2    B6+B2       CAIH2 = RCT(J+1)                            GRA      3652
          2232  0100002253 +                      RJ     SDC         SEARCH FOR CAIH - RCT(J+1)                  GRA      3653
          2233  6130000300                        SB3    3S6         IT = 3        */ SDL, SDS                   GRA      3654
                          0520002240 +            NZ     B2,AAD1     IF REGN " 0   */ DIFF IN A REGISTER         GRA      3655
          2234  5120000221 C                      SA2    CAIH                                                    GRA      3656
                          66251                   SB2    B5+B1                                                   GRA      3657
                               56162              SA1    B6+B2                                                   GRA      3658
          2235  0100002253 +                      RJ     SDC         SEARCH FOR RCT(J+1) - CAIH                  GRA      3659
          2236  6130000200                        SB3    2S6         IT = 2        */ SLD, SST                   GRA      3660
                          0520002240 +            NZ     B2,AAD1     IF REGN " 0                                 GRA      3661
                                                                                                                 GRA      3662
          2237  0100002244 +                      RJ     EDC         ENTER DIFFERENCE CANIDATE                   GRA      3663
                                                                                                                 GRA      3664
                                        *         SETUP *J* AS A SLD OR SDL                                      GRA      3665
                                                                                                                 GRA      3666
          2240  56165                    AAD1     SA1    B6+B5                                                   GRA      3667
                     43001                        MX0    1                                                       GRA      3668
                          5021000002              SA2    A1+2        CCW = RCT(J+2)                              GRA      3669
                                                  LX0    1+CA.RAP                                                GRA      3670
          2241  74303                             SX3    A0+B3       REG1[CCW] = REGNO;  MIT[CCW] = IT           GRA      3671
                                                  LX3    CC.REG1P                                                GRA      3672
                     76420                        SX4    B2          REG2[CCW] = REGN                            GRA      3673
                          20414                   LX4    CC.REG2P                                                GRA      3674
                               12601              BX6    X0+X1       RA[RCT(J)] = 1                              GRA      3675
          2242  36534                             IX5    X3+X4                                                   GRA      3676
                     54610                        SA6    A1                                                      GRA      3677
                          12752                   BX7    X5+X2                                                   GRA      3678
                               54720              SA7    A2                                                      GRA      3679
          2243  0400002230 +                      EQ     AAD                                                     GRA      3680
  
  
  
                                        **        EDC - ENTER DIFFERENCE CANIDATE IN *RCT* AND ASSIGN A REG      GRA      3682
                                                                                                                 GRA      3683
          2244  0200402244 +             EDC      ROUTINE                                                        GRA      3684
          2245  5110000000 X                      SA1    L.RCT                                                   GRA      3685
                          5140002252 +            SA4    EDCA                                                    GRA      3686
          2246  63211                             SB2    X1+B1       OL = L.RCT                                  GRA      3687
                     56662                        SA6    B6+B2       RCT(OL+1) = KEY                             GRA      3688
                          54761                   SA7    A6+B1       RCT(OL+2) = KEY2                            GRA      3689
                               10644              BX6    X4                                                      GRA      3690
          2247  55661                             SA6    A6-B1       RCT(OL) = CAW(0,AC,PL,0)                    GRA      3691
                     7271000003                   SX7    X1+3        L.RCT = L.RCT + 3                           GRA      3692
                               54710              SA7    A1                                                      GRA      3693
          2250  63410                             SB4    X1                                                      GRA      3694
                     76110                        SX1    B1          INVF = 1                                    GRA      3695
                          0100001102 +            RJ     AIR         ASSIGN A B-REG                              GRA      3696
          2251  67202                             SB2    -B2                                                     GRA      3697
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    91
        AAD - ASSIGN ADDRESS DIFFERENCE TO A REGISTER                 ECD 
  
                     0400002244 +                 EQ     EDC                                                     GRA      3698
                                                                                                                 GRA      3699
          2252                           EDCA     BFMW   CA,(AC,PL)                                              GRA      3700
  
  
  
                                        **        SDC - SEARCH FOR DIFFERENCE CANIDATE                           GRA      3702
                                        *                                                                        GRA      3703
                                        *         ENTRY  (X1) = CAIH1                                            GRA      3704
                                        *                (X2) = CAIH2                                            GRA      3705
                                        *                                                                        GRA      3706
                                        *         EXIT   (X6) = KEY = IHW(0,0, CA1-CA2 , IH1 )                   GRA      3707
                                        *                (X7) = KEY2 = CCW(0,IH2,0,0,0)                          GRA      3708
                                        *                (B2) = REGN , REGNO THAT KEY,KEY2 IS IN                 GRA      3709
                                                                                                                 GRA      3710
          2253  0200402253 +             SDC      ROUTINE                                                        GRA      3711
          2254  73720                             SX7    X2                                                      GRA      3712
                     20722                        LX7    CC.H2P      KEY2 = CCW(0,IH2,0)                         GRA      3713
                          73610                   SX6    X1                                                      GRA      3714
                                                  LX6    IH.IHP                                                  GRA      3715
                               20152              LX1    -IH.CAP                                                 GRA      3716
          2255  20252                             LX2    -IH.CAP                                                 GRA      3717
                     73110                        SX1    X1                                                      GRA      3718
                          73220                   SX2    X2                                                      GRA      3719
                               37512              IX5    X1-X2                                                   GRA      3720
          2256  43052                             MX0    -IH.CAL                                                 GRA      3721
                     15450                        BX4    -X0*X5                                                  GRA      3722
                          20422                   LX4    IH.CAP                                                  GRA      3723
                               43052              MX0    -CC.H2L                                                 GRA      3724
          2257  12646                             BX6    X4+X6       KEY = IHW(0,0, CA1-CA2 , IH1 )              GRA      3725
                     20022                        LX0    CC.H2P                                                  GRA      3726
                          6120000007              SB2    7           REGN = 7                                    GRA      3727
          2260  5150000107 C                      SA5    RAT+7       RI = RAT(REGN)                              GRA      3728
                                                                                                                 GRA      3729
                                        *         SEARCH B-REGISTERS FOR PREVIOUS OCCURANCE OF DIFF CANIDATE     GRA      3730
                                                                                                                 GRA      3731
          2261  53256                    SDC1     SA2    B6+X5                                                   GRA      3732
                     54421                        SA4    A2+B1                                                   GRA      3733
                          20203                   LX2    59-CA.ACP                                               GRA      3734
                               13346              BX3    X4-X6                                                   GRA      3735
          2262  0322002265 +                      PL     X2,SDC2     IF ^AC[RCT(RI)]                             GRA      3736
                          0313002265 +            NZ     X3,SDC2     IF RCT(RI+1) " KEY                          GRA      3737
          2263  5044000001                        SA4    A4+1                                                    GRA      3738
                          13374                   BX3    X7-X4                                                   GRA      3739
                               15230              BX2    -X0*X3                                                  GRA      3740
          2264  0302002253 +                      ZR     X2,SDC      IF H2[RCT(RI+2)] = KEY2                     GRA      3741
          2265  67221                    SDC2     SB2    B2-B1       REGN = REGN - 1                             GRA      3742
                     55551                        SA5    A5-B1       RI = RAT(REGN)                              GRA      3743
                          0520002261 +            NZ     B2,SDC1     IF REGN " 0                                 GRA      3744
                                                                                                                 GRA      3745
          2266  0400002253 +                      EQ     SDC                                                     GRA      3746
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    92
        AFA - ASSIGN FULL ADDRESS TO A B-REG                          AFA 
  
                                        **        AFA - ASSIGN FULL ADDRESS TO A B-REG                           GRA      3748
                                        *                                                                        GRA      3749
                                        *         ENTRY  (A0) = REGNO OF REGISTER WITH *RF*                      GRA      3750
                                        *                (X5) = [BI] , B-CANIDATE TABLE WORD OF ENTRY            GRA      3751
                                        *                (B6) = [O.RCT]                                          GRA      3752
                                        *                                                                        GRA      3753
                                        *         EXIT   (A6) = CCW , ADDRESS OF CC WORD                         GRA      3754
                                        *                RAT, RCT UPDATED                                        GRA      3755
                                                                                                                 GRA      3756
          2267  0200402267 +             AFA      ROUTINE                                                        GRA      3757
          2270  5040000100 C                      SA4    RAT+A0                                                  GRA      3758
                          53156                   SA1    B6+X5                                                   GRA      3759
                               73350              SX3    X5          J = CO[BI]                                  GRA      3760
          2271  20344                             LX3    RA.R3P                                                  GRA      3761
                     12634                        BX6    X3+X4       R3[RAT(REGNO)] = J  */ SET TO APPEND IH,CA  GRA      3762
                          54640                   SA6    A4                                                      GRA      3763
                               43001              MX0    1                                                       GRA      3764
          2272  5021000002                        SA2    A1+2        CCW = RCT(J+2)                              GRA      3765
                                                  LX0    1+CA.RAP                                                GRA      3766
                          12701                   BX7    X0+X1       RA[RCT(J)] = 1  */ INDICATE MODIFICATION    GRA      3767
                               54710              SA7    A1                                                      GRA      3768
          2273  7030000200                        SX3    A0+2S6                                                  GRA      3769
                                                  LX3    CC.REG1P    REG1[CCW] = REGNO                           GRA      3770
                          12623                   BX6    X2+X3       MIT[CCW] = 2  */ SLD, SST                   GRA      3771
                               54620              SA6    A2                                                      GRA      3772
          2274  0400002267 +                      EQ     AFA                                                     GRA      3773
1       GRA - GLOBAL REGISTER ASSIGNMENT / FINAL B-ASSIGNMENT         COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    93
        ECC - ENTER CONSTANT CANIDATE                                 ECC 
  
                                        **        ECC - ENTER CONSTANT CANIDATE                                  GRA      3775
                                        *                                                                        GRA      3776
                                        *         ENTRY  (X3) = CON                                              GRA      3777
                                        *                (X2) = CAW OF REF THAT IT IS PART OF                    GRA      3778
                                        *                (B6) = [O.RCT]                                          GRA      3779
                                                                                                                 GRA      3780
                                        *         BUMP OCCURANCES OF CANIDATE IN TABLE                           GRA      3781
                                                                                                                 GRA      3782
          2275  55241                    ECC0     SA2    A4-B1       CAW = RCT(I)                                GRA      3783
                     36620                        IX6    X2+X0       NOCC[CAW] = NOCC[CAW] + N                   GRA      3784
                          54620                   SA6    A2                                                      GRA      3785
                                                                                                                 GRA      3786
          2276  0200402276 +             ECC      ROUTINE                                                        GRA      3787
          2277  5110000216 C                      SA1    CL                                                      GRA      3788
                          43063                   MX0    -CA.NOCCL                                               GRA      3789
                               20322              LX3    IH.CAP                                                  GRA      3790
          2300  20041                             LX0    CA.NOCCP                                                GRA      3791
                     6221000001                   SB2    X1+1        I = CL                                      GRA      3792
                               15020              BX0    -X0*X2      N = NOCC[CAW]                               GRA      3793
          2301  0323002302 +                      PL     X3,ECC1     KEY = IHW(0,0,ABS(CON),0)                   GRA      3794
                          14333                   BX3    -X3                                                     GRA      3795
                                                                                                                 GRA      3796
          2302  56462                    ECC1     SA4    B6+B2       C2W = RCT(I+1)                              GRA      3797
                     13634                        BX6    X3-X4                                                   GRA      3798
                          0306002275 +            ZR     X6,ECC0     IF [C2W] = KEY                              GRA      3799
          2303  54141                             SA1    A4+B1       CCW = RCT(I+2)                              GRA      3800
                     20130                        LX1    -CC.INCP                                                GRA      3801
                          6221000001              SB2    X1+1        I = INC[CCW]                                GRA      3802
          2304  0521002302 +                      NE     B2,B1,ECC1  IF I " 0                                    GRA      3803
                                                                                                                 GRA      3804
                                        *         CON NOT ON CHAIN, ADD TO THE END OF RCT AND END OF CHAIN.      GRA      3805
                                                                                                                 GRA      3806
                          5120000000 X            SA2    L.RCT       OL = L.RCT                                  GRA      3807
          2305  7272000003                        SX7    X2+3        L.RCT = L.RCT + 3                           GRA      3808
                          12621                   BX6    X2+X1       INC[CCW] = OL                               GRA      3809
                               54720              SA7    A2                                                      GRA      3810
          2306  20644                             LX6    CC.INCP                                                 GRA      3811
                     54610                        SA6    A1                                                      GRA      3812
                          76410                   SX4    B1                                                      GRA      3813
                               20467              LX4    CA.CONP                                                 GRA      3814
          2307  12604                             BX6    X0+X4       RCT(OL) = CAW(CON,0,N,0)                    GRA      3815
                     53626                        SA6    B6+X2                                                   GRA      3816
                          10733                   BX7    X3                                                      GRA      3817
                               54761              SA7    A6+B1       RCT(OL+1) = KEY                             GRA      3818
          2310  43600                             MX6    0                                                       GRA      3819
                     54671                        SA6    A7+B1       RCT(OL+2) = 0                               GRA      3820
                          0400002276 +            EQ     ECC                                                     GRA      3821
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    94
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                        **        TYPEI - DEFINE MACRO TO FORM A TYPE I INSTRUCTION              GRA      3824
                                        *                J,K OPERANDS MUST BE IN X-REGISTERS.                    GRA      3825
                                        *                R2 WORD IS ASSUMED TO BE IN X7 .                        GRA      3826
                                                                                                                 GRA      3827
                                         TYPEI    MACRO  OPC,I,J,K                                               GRA      3828
                                                  R=     X6,I                                                    GRA      3829
                                                  IFC    NE,/J//,2                                               GRA      3830
                                                  L_J    R1.RJP                                                  GRA      3831
                                                  BX6    X6+J                                                    GRA      3832
                                                  IFC    NE,/K//,2                                               GRA      3833
                                                  L_K    R1.RKP                                                  GRA      3834
                                                  BX6    X6+K                                                    GRA      3835
                                                  IF     REG,OPC,2                                               GRA      3836
                                                  R=     B2,OPC                                                  GRA      3837
                                                  ELSE   1                                                       GRA      3838
                                                  R=     B2,OC.OPC                                               GRA      3839
                                                  RJ     =XSRI#                                                  CCGNC     657
                                                  ENDM                                                           GRA      3841
  
  
                                        **        ORS - OUTPUT *RS*                                              GRA      3843
                                        *                                                                        GRA      3844
                                        *         ENTRY  (B5) = I , REGNO OF REGISTER                            GRA      3845
                                                                                                                 GRA      3846
          2311  6120000004               ORS0     SB2    OC.RS                                                   GRA      3847
                          0100000000 X            RJ     SRI         SRI(  RS  MI-4,FL+I )                       GRA      3848
                                                                                                                 GRA      3849
          2312  0200402312 +             ORS      ROUTINE                                                        GRA      3850
          2313  5125000100 C                      SA2    RAT+B5      RW = RAT(I)                                 GRA      3851
                          7145000200              SX4    B5+SO.LOCK                                              GRA      3852
          2314  7166777773                        SX6    B6-4                                                    GRA      3853
                          20420                   LX4    R1.SOP                                                  GRA      3854
                               12646              BX6    X4+X6                                                   GRA      3855
          2315  43401                             MX4    1                                                       GRA      3856
                     11742                        BX7    X4*X2                                                   GRA      3857
                          20731                   LX7    1+R1.SOP+SO.INVP                                        GRA      3858
                               12676              BX6    X7+X6       INV[R1W] = INV[RAT(I)]                      GRA      3859
          2316  43330                             MX3    -2*RA.R1L                                               GRA      3860
                     76700                        SX7    B0          R2W = 0                                     GRA      3861
                          20322                   LX3    RA.R2P                                                  GRA      3862
                               15423              BX4    -X3*X2                                                  GRA      3863
          2317  0314002311 +                      NZ     X4,ORS0     IF ( R2[RW] ! R3[RW] ) " 0                  GRA      3864
                                                                                                                 GRA      3865
                          53224                   SA2    B4+X2       CAW = RCT(R1[RW])                           GRA      3866
                               54321              SA3    A2+B1       C2W = RCT(R1[RW]+1)                         GRA      3867
          2320  63220                             SB2    X2                                                      GRA      3868
                     0420002311 +                 ZR     B2,ORS0     IF UDI[CAW] = 0  */ CON OR COMPILER TEMP    GRA      3869
                               20203              LX2    59-CA.ACP                                               GRA      3870
          2321  0332002311 +                      MI     X2,ORS0     IF AC[CAW]    */ PREFETCH                   GRA      3871
                          43430                   MX4    -IH.CAIHL                                               GRA      3872
                               15734              BX7    -X4*X3      R2W = IHW(0,0,CAIH[C2W])                    GRA      3873
          2322  0400002311 +                      EQ     ORS0                                                    GRA      3874
                                                                                                                 GRA      3875
          2323                           SUPA     BFMW   CA,(AC,CON,PL)                                          GRA      3876
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    95
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                        **        SUP - SETUP PRELOADS OF LOCKED REGISTERS IN THE HOLDING BLOCK  GRA      3878
                                        *                                                                        GRA      3879
                                        *         GENERAL REGISTER SETUP FOR *SUP* AND ITS SUBROUTINES           GRA      3880
                                        *         (A0) = [O.SYM]-1 , (B4) = [O.RCT] , (B6,B7) = MI, MB           GRA      3881
                                        *         AND X0 IS PRESERVED BY ALL THE SUBROUTINES                     GRA      3882
                                                                                                                 GRA      3883
          2324  0200402324 +             SUP      ROUTINE                                                        GRA      3884
          2325  7160000000                        SX6    0           BSI = 0                                     GRA      3885
                          5160000000 X            SA6    BSI                                                     GRA      3886
          2326  0100000000 X                      CALL   RTB#        GET THE HOLDING BLOCK                       CCGNC     658
                                                                                                                 GRA      3888
                                        *         INSERT THE *UXR* AND *MRA* FIELDS IN THE *R2* OF THE *BOS*     GRA      3889
                                                                                                                 GRA      3890
          2327  5130000020 C                      SA3    XRF                                                     GRA      3891
                          5120000232 C            SA2    MRU                                                     GRA      3892
          2330  5110000000 X                      SA1    O.SEQ                                                   GRA      3893
                          5150000015 C            SA5    MRA                                                     GRA      3894
          2331  43401                             MX4    1                                                       GRA      3895
                     53111                        SA1    X1+B1       R2 = [O.SEQ+1]                              GRA      3896
                          11643                   BX6    X4*X3                                                   GRA      3897
                                                  LX6    1+R2.UXRP   UXR[R2] = XRF & 1S59                        GRA      3898
                               15252              BX2    -X2*X5                                                  GRA      3899
          2332  20222                             LX2    R2.MRAP     MRA[R2] = ^MRU & MRA  */ MACHINE REGS AVAIL GRA      3900
                     12762                        BX7    X6+X2                                                   GRA      3901
                          12671                   BX6    X7+X1                                                   GRA      3902
                               54610              SA6    A1                                                      GRA      3903
                                                                                                                 GRA      3904
          2333  7110000420                        ALLOC  MOD,16*17   ALLOC( MOD , 4*4*(7+7+3) )                  GRA      3905
          2335  5130000000 X                      SA3    O.SYM                                                   GRA      3906
                          5140000000 X            SA4    O.RCT                                                   GRA      3907
          2336  63720                             SB7    X2          MB = [O.MOD]                                GRA      3908
                     5203000001                   SA0    X3+1                                                    CCG1      115
                               63440              SB4    X4          (B4) = [O.RCT]                              GRA      3910
          2337  5150000172 C                      SA5    TRD                                                     GRA      3911
                          6160000004              SB6    4           MI = 4        */ STORE INDEX                GRA      3912
          2340  7265777773                        SX6    X5-4                                                    GRA      3913
                          0316002370 +            NZ     X6,SUP4     IF TRD " 4    */ NOT F(I), F(N) IN REGS     GRA      3914
                                                                                                                 GRA      3915
                                        *         SETUP CODE TO INITIALIZE THE LOOP UPPER LIMIT REGISTER         GRA      3916
                                                                                                                 GRA      3917
          2341  5110000024 C                      SA1    LUL+1                                                   GRA      3918
                          5120000000 X            SA2    O.IIT                                                   GRA      3919
          2342  5251000100 C                      SA5    RAT+X1      RW = RAT(LUL(2))                            GRA      3920
                          43674                   MX6    60                                                      GRA      3921
                               54650              SA6    A5          RAT(LUL(2)) = -0                            GRA      3922
          2343  20552                             LX5    -RA.R2P     PFI = R2[RW]                                GRA      3923
                     63220                        SB2    X2                                                      GRA      3924
                          53352                   SA3    B2+X5       IAW = IIT(PFI)                              GRA      3925
                               26633              UX6    B3,X3                                                   GRA      3926
          2344  76730                             SX7    B3                                                      GRA      3927
                     36057                        IX0    X5+X7       PFI = PFI + NWD[IAW]                        GRA      3928
                          53402                   SA4    B2+X0       IAW = IIT(PFI)                              GRA      3929
                               54541              SA5    A4+B1       IBW = IAW(PFI+1)                            GRA      3930
          2345  26634                             UX6    B3,X4                                                   GRA      3931
                     7113777775                   SX1    B3-2        N = NWD[IAW] - 2  */ WORDS IN *IP* FORMULA  GRA      3932
                               10711              BX7    X1                                                      GRA      3933
          2346  5170000230 C                      SA7    N                                                       GRA      3934
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    96
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                          5100000000 X            ALLOC  MOD,X1      ALLOC( MOD , N)                             GRA      3935
          2350  5130000000 X                      SA3    O.SYM                                                   GRA      3936
                          5140000000 X            SA4    O.RCT                                                   GRA      3937
          2351  63720                             SB7    X2          MB = [O.MOD]                                GRA      3938
                     5203000001                   SA0    X3+1                                                    CCG1      116
                               63440              SB4    X4                                                      GRA      3940
          2352  6160000004                        SB6    4           MI = 4                                      GRA      3941
                          5120000000 X            SA2    O.IIT                                                   GRA      3942
          2353  6220000002                        SB2    X0+2        PFI = PFI + 2                               GRA      3943
                          66570                   SB5    B7                                                      GRA      3944
                               73222              MOVE   X1,X2+B2,B7+B6    MOVE( N , O.IIT+PFI , MB+MI )         GRA      3945
          2355  66750                             SB7    B5                                                      GRA      3946
                                                  LX5    -IB.ILDP                                                GRA      3947
                     63650                        SB6    X5          MI = ILD[IBW]                               GRA      3948
                          20022                   LX0    RA.R2P                                                  GRA      3949
                               73500              SX5    X0          J = R1[RW]                                  GRA      3950
          2356  0100002464 +                      RJ     LIV         INSERT LOAD OF *UL* IN FORMULA              GRA      3951
          2357  5110000230 C                      SA1    N                                                       GRA      3952
                          5120000022 C            SA2    LCV+1                                                   GRA      3953
          2360  6261000004                        SB6    X1+4        MI = N + 4                                  GRA      3954
                          5232000100 C            SA3    RAT+X2                                                  GRA      3955
          2361  20330                             LX3    -RA.R3P                                                 GRA      3956
                     73530                        SX5    X3          J = R3[RAT(LUL(2))]                         GRA      3957
                          0315002365 +            NZ     X5,SUP1     IF J " 0      */ ADDRESS APPENDED           GRA      3958
                                                                                                                 GRA      3959
          2362  76660                             TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                         GRA      3960
          2364  0400002366 +                      EQ     SUP2                                                    GRA      3961
                                                                                                                 GRA      3962
          2365  73431                    SUP1     SX4    X3+B1                                                   GRA      3963
                     63310                        SB3    X1                                                      GRA      3964
                          0100002547 +            RJ     SIV         SIV( J , RF = N )                           GRA      3965
                                                                                                                 GRA      3966
          2366  5110000024 C             SUP2     SA1    LUL+1                                                   GRA      3967
                          6251000000              SB5    X1+                                                     GRA      3968
          2367  0100002312 +                      RJ     ORS         ORS(  RS  MI-4,INVF )                       GRA      3969
  
                                        *         SCAN *RAT* AND SETUP INITIALIZATION CODE FOR THE B-REGISTERS   GRA      3971
                                                                                                                 GRA      3972
          2370  6150000007               SUP4     SB5    7           I = 7         */ REGNO                      GRA      3973
                                                                                                                 GRA      3974
          2371  5115000100 C             SUP5     SA1    RAT+B5                                                  GRA      3975
                          0301002421 +            ZR     X1,SUP10    IF RAT(I) = 0 */ REGISTER NOT ASSIGNED      GRA      3976
                                                                                                                 GRA      3977
                                        *         EVALUATE THE INITIALIZATION FORMULA                            GRA      3978
                                                                                                                 GRA      3979
          2372  10011                             BX0    X1          RW = RAT(I)                                 GRA      3980
                     73510                        SX5    X1          J = R1[RW]                                  GRA      3981
                          5120002323 +            SA2    SUPA                                                    GRA      3982
          2373  43630                             MX6    -2*RA.R1L                                               GRA      3983
                     53314                        SA3    B4+X1       CAW = RCT(J)                                GRA      3984
                          20052                   LX0    -RA.R2P                                                 GRA      3985
                               15706              BX7    -X6*X0                                                  GRA      3986
          2374  0317002376 +                      NZ     X7,SUP5A    IF (R2,R3)[RW] " 0                          GRA      3987
                          11423                   BX4    X2*X3                                                   GRA      3988
          2375  0304002421 +                      ZR     X4,SUP10    IF ^(CON,AC,PL)[CAW]  */ PRELOAD NOT NEC    GRA      3989
                                                                                                                 GRA      3990
          2376  0100002464 +             SUP5A    RJ     LIV         LIV(J)                                      GRA      3991
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    97
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
          2377  7166777773                        SX6    B6-4                                                    GRA      3992
                          5160000230 C            SA6    RR          RR = MI-4                                   GRA      3993
          2400  73500                             SX5    X0          J = R2[RW]                                  GRA      3994
                     0305002406 +                 ZR     X5,SUP6     IF J = 0                                    GRA      3995
          2401  0100002464 +                      RJ     LIV         LIV( J )                                    GRA      3996
          2402  5110000230 C                      SA1    RR          ORN = RR                                    GRA      3997
                          7126777773              SX2    B6-4                                                    GRA      3998
          2403  76660                             SX6    B6          RR = MI       */ OF *IS*                    GRA      3999
                     54610                        SA6    A1                                                      GRA      4000
                          20140                   TYPEI  IS,X6,X1,X2 SRI(  IS  MI,MI-4,ORN )                     GRA      4001
                                                                                                                 GRA      4002
          2406  20052                    SUP6     LX0    RA.R2P-RA.R3P                                           GRA      4003
                     73500                        SX5    X0          J = R3[RW]                                  GRA      4004
                          0305002412 +            ZR     X5,SUP7     IF J = 0                                    GRA      4005
          2407  5110000230 C                      SA1    RR                                                      GRA      4006
                          73401                   SX4    X0+B1                                                   GRA      4007
                               63310              SB3    X1                                                      GRA      4008
          2410  0100002547 +                      RJ     SIV         SIV( J , RF = RR )                          GRA      4009
          2411  0400002420 +                      EQ     SUP9                                                    GRA      4010
                                                                                                                 GRA      4011
                                        *         TRANSFER THE RESULT TO A B-REGISTER , IF NECESSARY             GRA      4012
                                                                                                                 GRA      4013
          2412  7116777773               SUP7     SX1    B6-4                                                    GRA      4014
                          53517                   SA5    B7+X1       R1 = MB + MI-4                              GRA      4015
                               26625              UX6    B2,X5                                                   GRA      4016
          2413  5045000002                        SA4    A5+2        DI = R1 + 2                                 GRA      4017
                          20430                   LX4    59-D.LDP                                                GRA      4018
          2414  0334002416 +                      MI     X4,SUP8     IF LD[DI]                                   GRA      4019
                          7162777740              SX6    B2-OC.IS                                                GRA      4020
          2415  0316002420 +                      NZ     X6,SUP9     IF OC " OC.IS                               GRA      4021
                                                                                                                 GRA      4022
          2416  43700                    SUP8     MX7    0                                                       GRA      4023
                     76660                        TYPEI  SA,B6,X1    SRI(  SA  MI,MI-4 )                         GRA      4024
                                                                                                                 GRA      4025
          2420  0100002312 +             SUP9     RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                   GRA      4026
                                                                                                                 GRA      4027
          2421  67551                    SUP10    SB5    B5-B1       I = I - 1                                   GRA      4028
                     0550002371 +                 NZ     B5,SUP5     IF I " 0                                    GRA      4029
  
                                        *         NOW SETUP PRELOADS FOR THE X-REGISTERS                         GRA      4031
                                                                                                                 GRA      4032
                               43005              MX0    5                                                       GRA      4033
          2422  6150000020                        SB5    20B         I = 20B                                     GRA      4034
                          20073                   LX0    -1          LDREG = 37BS54  */ LD-REG FLAG              GRA      4035
                                                                                                                 GRA      4036
          2423  5155000100 C             SUP12    SA5    RAT+B5      J = RAT(I)    */ *R1* ONLY                  GRA      4037
                          0305002432 +            ZR     X5,SUP14    IF RAT(I) = 0                               GRA      4038
                                                                                                                 GRA      4039
          2424  53154                             SA1    B4+X5       CAW = RCT(J)                                GRA      4040
                     5120002323 +                 SA2    SUPA                                                    GRA      4041
                               11721              BX7    X2*X1                                                   GRA      4042
          2425  0307002432 +                      ZR     X7,SUP14    IF ^(CON,PL,AC)[CAW]  */ PRELD NOT NECESS   GRA      4043
                                                                                                                 GRA      4044
                          0100002464 +            RJ     LIV         LIV( J )                                    GRA      4045
          2426  0330002431 +                      MI     X0,SUP13    IF LDREG < 0  */ RS IS TO A *LD* REG        GRA      4046
                          7116777773              SX1    B6-4                                                    GRA      4047
          2427  76660                             TYPEI  XMT,B6,X1         SRI(  XMT  MI,MI-4 )                  GRA      4048
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    98
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                                                                                                 GRA      4049
          2431  0100002312 +             SUP13    RJ     ORS         ORS(  RS  MI-4,FL+I,INV )                   GRA      4050
                                                                                                                 GRA      4051
          2432  66551                    SUP14    SB5    B5+B1       I = I + 1                                   GRA      4052
                     20001                        LX0    1           LDREG = SHIFT(LDREG,1)                      GRA      4053
                          7165777747              SX6    B5-30B                                                  GRA      4054
          2433  0336002423 +                      MI     X6,SUP12    IF I @ 27B                                  GRA      4055
  
  
                                        *         SETUP *MOD* CONTROL WORD AND MERGE THIS WITH *HB*              GRA      4057
                                                                                                                 GRA      4058
                          5110000000 X            SA1    L.SEQ                                                   GRA      4059
          2434  7201777767                        SX0    X1-8        II = L.SEQ-8                                GRA      4060
                          76660                   SX6    B6                                                      GRA      4061
                               20044              LX0    ML.IIP                                                  GRA      4062
          2435  5160000000 X                      SA6    L.MOD       L.MOD = MI                                  GRA      4063
                          7120000004              SX2    4                                                       GRA      4064
          2436  37662                             IX6    X6-X2                                                   GRA      4065
                     20620                        LX6    ML.NIP-2    NI = (MI-4) / 4                             GRA      4066
                                                  LX2    ML.MTIP                                                 GRA      4067
                          12302                   BX3    X0+X2                                                   GRA      4068
                               36136              IX1    X3+X6                                                   GRA      4069
          2437  5150000000 X                      SA5    O.SEQ       HBA = O.SEQ                                 GRA      4070
                          0306002443 +            ZR     X6,SUP15    IF NI = 0     */ NO MODS                    GRA      4071
                                                                                                                 GRA      4072
          2440  5100000000 X                      ADDWRD MLT,X1      ADDWRD( MLT , MCW(0,II,NI,4) )              GRA      4073
          2441  43601                             MX6    1                                                       GRA      4074
                     0100000000 X                 CALL   MPB#        MERGE MODS WITH *HB*, SQUEEZE AND REWRITE   CCGNC     659
                                                                                                                 GRA      4076
          2442  5150000000 X                      SA5    O.TXT       HBA = O.TXT                                 GRA      4077
                                                                                                                 FCC0675   179
                                        *         SCAN TET AND CLEAR *HBN* FIELD OF IT."S CREATED IN THIS LOOP   FCC0675   180
                                                                                                                 FCC0675   181
          2443  5110000000 X             SUP15    SA1    O.TET                                                   FCC0675   182
                          5120000014 C            SA2    ITL                                                     FCC0675   183
          2444  5130000000 X                      SA3    L.TET                                                   FCC0675   184
                          63220                   SB2    X2          I = ITL                                     FCC0675   185
                               63630              SB6    X3          L = L.TET                                   FCC0675   186
          2445  43052                             MX0    -T.HBNL                                                 FCC0675   187
                     63510                        SB5    X1                        (B5) = TET                    FCC0675   188
                          20044                   LX0    T.HBNP                                                  FCC0675   189
                               63720              SB7    X2                        (B7) = ITL                    FCC0675   190
          2446  0426002451 +                      EQ     B2,B6,SUP17 IF ITL = L.TET  */ NO IT. S CREATED         FCC0675   191
                                                                                                                 FCC0675   192
          2447  56252                    SUP16    SA2    B5+B2                                                   FCC0675   193
                     11602                        BX6    X0*X2       HBN[TET(I)] = 0                             FCC0675   194
                          66221                   SB2    B2+B1       I = I + 1                                   FCC0675   195
                               54620              SA6    A2                                                      FCC0675   196
          2450  0726002447 +                      LT     B2,B6,SUP16 IF I < L                                    FCC0675   197
                                                                                                                 FCC0675   198
                                        *         SCAN *HB* AND SET *HBN* FIELD OF IT. S DEFINED IN THIS LOOP    FCC0675   199
                                                                                                                 FCC0675   200
          2451  5110000000 X             SUP17    SA1    =XHBI                                                   FCC0675   201
                          6140000004              SB4    4                                                       FCC0675   202
          2452  53554                             SA5    X5+B4       R1 = HBA + 4                                FCC0675   203
                     6130000077                   SB3    OC.TST                                                  FCC0675   204
                               20144              LX1    T.HBNP                                                  FCC0675   205
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE    99
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      SUP 
  
                                                                                                                 FCC0675   206
          2453  26625                    SUP18    UX6    B2,X5       OC = OC[R1]                                 FCC0675   207
                     54554                        SA5    A5+B4       R1 = R1 + 4                                 FCC0675   208
                          0420002457 +            ZR     B2,SUP19    IF OC = OC.EOQ  */ END OF BLOCK             FCC0675   209
          2454  0523002453 +                      NE     B2,B3,SUP18 IF OC " OC.TST                              FCC0675   210
                                                                                                                 FCC0675   211
                          5045777774              SA4    A5-3        R2 = R1 - 3                                 FCC0675   212
          2455  20452                             LX4    -IH.CAP     C = CA[R2]                                  FCC0675   213
                     53345                        SA3    B5+X4                                                   FCC0675   214
                          11203                   BX2    X0*X3                                                   FCC0675   215
                               36612              IX6    X1+X2       HBN[TET(C)] = HBI                           FCC0675   216
          2456  54630                             SA6    A3                                                      FCC0675   217
                     0400002453 +                 EQ     SUP18                                                   FCC0675   218
                                                                                                                 FCC0675   219
                                        *         SCAN *TET* BACKWARDS AND REMOVE TRAILING ENTRIES THAT WERE NOT FCC0675   220
                                        *         MATERIALIZED ( ASSIGNED TO A REGISTER, KD, ETC ).              FCC0675   221
                                                                                                                 FCC0675   222
          2457  67661                    SUP19    SB6    B6-B1       L = L - 1                                   FCC0675   223
                     56456                        SA4    B5+B6                                                   FCC0675   224
                          0767002461 +            LT     B6,B7,SUP20 IF L < ITL                                  FCC0675   225
          2460  15640                             BX6    -X0*X4                                                  FCC0675   226
                     0306002457 +                 ZR     X6,SUP19    IF HBN[TET(L)] = 0  */ NOT MATERIALIZED     FCC0675   227
                                                                                                                 FCC0675   228
          2461  5110000000 X             SUP20    SA1    =XN.GT                                                  FCC0675   229
                          76661                   SX6    B6+B1       L.TET = L + 1                               FCC0675   230
                               37216              IX2    X1-X6                                                   FCC0675   231
          2462  5160000000 X                      SA6    L.TET                                                   FCC0675   232
                          0332002324 +            MI     X2,SUP      N.GT = MIN( N.GT , L.TET )                  FCC0675   233
          2463  54610                             SA6    A1                                                      FCC0675   234
                     0400002324 +                 EQ     SUP                                                     FCC0675   235
  
  
  
                                        **        LIV - LOAD INITIAL VALUE                                       GRA      4116
                                        *                                                                        GRA      4117
                                        *         ENTRY  (X5) = J , *RCT* ORDINAL OF CANIDATE                    GRA      4118
                                                                                                                 GRA      4119
          2464  0200402464 +             LIV      ROUTINE                                                        GRA      4120
          2465  53154                             SA1    B4+X5       CAW = RCT(J)                                GRA      4121
                     54211                        SA2    A1+B1       C2W = RCT(J+1)                              GRA      4122
                          43752                   MX7    -IH.CAL                                                 GRA      4123
                               20104              LX1    59-CA.CONP                                              GRA      4124
          2466  0321002474 +                      PL     X1,LIV2     IF ^CON[CAW]                                GRA      4125
                                                                                                                 GRA      4126
                          6120000055              SB2    OC.S                                                    GRA      4127
          2467  20722                             LX7    IH.CAP                                                  GRA      4128
                     15627                        BX6    -X7*X2                                                  GRA      4129
                          43700                   MX7    0                                                       GRA      4130
                               20614              LX6    R1.INP-IH.CAP                                           GRA      4131
                                                  LX2    59-IH.MSKP                                              GRA      4132
          2470  0322002472 +                      PL     X2,LIV1     IF ^MSK[C2W]                                GRA      4133
                          6120000043              SB2    OC.FMA                                                  GRA      4134
          2471  0316002472 +                      NZ     X6,LIV1     IF IN[R1] " 0                               GRA      4135
                          6120000105              SB2    OC.CLR                                                  GRA      4136
                                                                                                                 GRA      4137
          2472  76460                    LIV1     SX4    B6                                                      GRA      4138
                     12646                        BX6    X4+X6                                                   GRA      4139
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   100
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      LIV 
  
                          0100000000 X            RJ     SRI         SRI(  S/FMA/CLR  CA[C2W],MI )               GRA      4140
          2473  0400002464 +                      EQ     LIV                                                     GRA      4141
                                                                                                                 GRA      4142
          2474  20172                    LIV2     LX1    CA.CONP-CA.VCP                                          GRA      4143
                     0331002477 +                 MI     X1,LIV3     IF VC[CAW]                                  GRA      4144
                                                                                                                 GRA      4145
                               66300              SB3    B0          RF = 0                                      GRA      4146
          2475  73451                             SX4    X5+B1                                                   GRA      4147
                     0100002547 +                 RJ     SIV         SIV( J )                                    GRA      4148
          2476  0400002464 +                      EQ     LIV                                                     GRA      4149
                                                                                                                 GRA      4150
                                        *         *VC* - OUPUT *LD* OF INITIAL VALUE                             GRA      4151
                                                                                                                 GRA      4152
          2477  20230                    LIV3     LX2    -IH.RFP                                                 GRA      4153
                     63320                        SB3    X2          R = RF[C2W]                                 GRA      4154
                          0613002502 +            LE     B3,B1,LIV4  IF R @ 1                                    GRA      4155
          2500  76430                             SX4    B3                                                      GRA      4156
                     66300                        SB3    B0                                                      GRA      4157
                          0100002504 +            RJ     OIL         OIL( J = RF[C2W] , RF = 0 )                 GRA      4158
          2501  6136777773                        SB3    B6-4        RF = MI - 4                                 GRA      4159
                                                                                                                 GRA      4160
          2502  73450                    LIV4     SX4    X5                                                      GRA      4161
                     0100002504 +                 RJ     OIL         OIL( J , R )                                GRA      4162
          2503  0400002464 +                      EQ     LIV                                                     GRA      4163
  
  
  
                                        **        OIL - OUTPUT INITIAL *LD*                                      GRA      4165
                                        *                                                                        GRA      4166
                                        *         ENTRY  (X4) = J , *RCT* ORDINAL OF CANIDATE                    GRA      4167
                                        *                (B3) = RF , OPERAND R-NUMBER                            GRA      4168
                                        *                                                                        GRA      4169
                                        *         PRESERVES X0, X5                                               GRA      4170
                                                                                                                 GRA      4171
          2504  0200402504 +             OIL      ROUTINE                                                        GRA      4172
          2505  53144                             SA1    B4+X4       CAW = RCT(J)                                GRA      4173
                     54211                        SA2    A1+B1       C2W = RCT(J+1)                              GRA      4174
                          76730                   SX7    B3                                                      GRA      4175
                               43330              MX3    -IH.CAIHL                                               GRA      4176
          2506  20744                             LX7    IH.RFP                                                  GRA      4177
                     15323                        BX3    -X3*X2      CAIH = CAIH[C2W]                            CCG16     219
                          36773                   IX7    X7+X3       R2W = IHW(0,RF,CAIH)                        CCG16     220
                               73610              SX6    X1          U = UDI[CAW]                                GRA      4180
          2507  21266                             AX2    IH.SLVP                                                 CCG16     221
                     5232002543 +                 SA3    OILA+X2                                                 CCG16     222
                               63230              SB2    X3          OC = OILA(SLV[C2W])                         CCG16     223
          2510  0431002540 +                      EQ     B3,B1,OIL5  IF RF = 1                                   GRA      4182
                                                  LX1    59-CA.RAP                                               GRA      4183
                          0321002526 +            PL     X1,OIL2     IF ^RA[CAW]   */ NOT ASSIGNED TO A REG      GRA      4184
          2511  0312002526 +                      NZ     X2,OIL2     IF LSV[C2W] " 0  */ LDC OR LDV              CCG21      67
                          0530002526 +            NZ     B3,OIL2     IF RF " 0                                   GRA      4185
                                                                                                                 GRA      4186
                                        *         CHECK VARIABLE AND SETUP AN *ILD* IF DEAD ON EXIT FROM LOOP    GRA      4187
                                                                                                                 GRA      4188
          2512  6120000075                        SB2    OC.ILD                                                  GRA      4189
                          0306002523 +            ZR     X6,OIL1     IF U = 0      */ COMPILER TEMPORARY         GRA      4190
          2513  5130000000 C                      SA3    O.UDT                                                   FCC1646X    1
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   101
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      OIL 
  
                          63360                   SB3    X6                                                      FCC1646X    2
                               53433              SA4    X3+B3       UI = UDT(U)                                 FCC1646X    3
          2514  20450                             LX4    59-UD.CMP                                               FCC1646X    4
                     0324002520 +                 PL     X4,OIL0     IF ^CM[UI]                                  FCC1646X    5
                                                                                                                 FCC1646X    6
                                        *         *CR*, DO NOT OUTPUT A *ILD* IF THE BASE IS USED IN THE LOOP.   FCC1646X    7
                                                                                                                 FCC1646X    8
                                                  LX4    1+UD.CMP-UD.BMIP                                        FCC1646X    9
                               63331              SB3    X3+B1                                                   FCC1646X   10
          2515  53443                             SA4    B3+X4       UB = UDT(BMI[UI]+1)                         FCC1646X   11
                     5130000005 C                 SA3    UVA                                                     FCC1646X   12
                               63340              SB3    X4                                                      FCC1646X   13
          2516  53333                             SA3    X3+B3       UVW = UVA(WI[UB])                           FCC1646X   14
                     26434                        UX4    B3,X4                                                   FCC1646X   15
                          6133777704              SB3    B3-59                                                   FCC1646X   16
          2517  23333                             LX3    -B3                                                     FCC1646X   17
                     0333002522 +                 MI     X3,OIL1A    IF SHIFT(UVW,59-BN) < 0  */ BASE USED       FCC1646X   18
                                                                                                                 FCC1646X   19
          2520  10311                    OIL0     BX3    X1                                                      FCC1646X   20
                     20350                        LX3    CA.RAP-CA.LXP                                           GRA      4192
                          0323002526 +            PL     X3,OIL2     IF ^LX[CAW]   */ DEAD ON EXIT               GRA      4193
          2521  20371                             LX3    CA.LXP-CA.PSPP                                          GRA      4194
                     0333002526 +                 MI     X3,OIL2     IF PSP[CAW]   */ POST STORE POSSIBLE        GRA      4195
          2522  6120000050               OIL1A    SB2    OC.LD       OC = OC.LD                                  FCC1646X   21
                          0400002526 +            EQ     OIL2                                                    GRA      4197
                                                                                                                 GRA      4198
          2523  20252                    OIL1     LX2    -IH.CAP                                                 GRA      4199
                     5130000014 C                 SA3    ITL                                                     GRA      4200
                               73220              SX2    X2                                                      GRA      4201
          2524  37423                             IX4    X2-X3                                                   GRA      4202
                     0324002526 +                 PL     X4,OIL2     IF CA[C2W] \ ITL  */ CREATED IN THIS LOOP   GRA      4203
          2525  6120000076                        SB2    OC.TLD      OC = OC.TLD                                 GRA      4204
                                                                                                                 GRA      4205
          2526  76260                    OIL2     SX2    B6                                                      GRA      4206
                     20636                        LX6    R1.INP                                                  GRA      4207
                          12626                   BX6    X2+X6                                                   GRA      4208
                               20103              LX1    CA.RAP-CA.ACP                                           GRA      4209
          2527  0321002530 +                      PL     X1,OIL3     IF ^AC[CAW]   */ NOT A PREFETCH             GRA      4210
                                                                                                                 GRA      4211
                          43101                   MX1    1                                                       GRA      4212
                                                  LX1    1+IH.LDP                                                GRA      4213
                               12717              BX7    X1+X7       LD[R2W] = 1   */ INHIBIT SQUEEZING          GRA      4214
                                                                                                                 GRA      4215
          2530  6237767777               OIL3     SB3    X7-1S12                                                 FCC0882     7
                          7110000000              SX1    0           DB = 0                                      FCC0882     8
          2531  0630002534 +                      PL     B3,OIL4     IF IH[R2W] > 1S12  */ LVL2 OR SUCH          FCC0882     9
                          63370                   SB3    X7                                                      FCC0882    10
                               76233              SX2    B3+B3                                                   CCG1      117
          2532  64303                             SB3    A0+B3                                                   CCG1      118
                     53223                        SA2    B3+X2       WORDB = SYM(3*IH[R2W]+1)                    CCG1      119
                          20254                   LX2    -WB.FPP                                                 CCG1      120
                               76310              SX3    B1                                                      GRA      4220
          2533  11132                             BX1    X3*X2                                                   GRA      4221
                     20125                        LX1    D.FPP       FP[DB] = FP[WORDB]                          GRA      4222
                                                                                                                 GRA      4223
          2534  5142000000 X             OIL4     SA4    F.RDT+B2                                                GRA      4224
                          27626                   PX6    B2,X6                                                   GRA      4225
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   102
        SUP - SETUP PRELOADS OF LOCKED REGISTERS                      OIL 
  
                               56676              SA6    B7+B6       MOD(MI) = TYII(OC,U,0,MI)                   GRA      4226
          2535  54761                             SA7    A6+B1       MOD(MI+1) = R2W                             GRA      4227
                     13641                        BX6    X4-X1       MOD(MI+2) = XOR(RDT(OC),DB)                 GRA      4228
                          54671                   SA6    A7+B1                                                   GRA      4229
                               43700              MX7    0                                                       GRA      4230
          2536  54761                             SA7    A6+B1       MOD(MI+3) = 0                               GRA      4231
                     6166000004                   SB6    B6+4        MI = MI + 4                                 GRA      4232
          2537  0400002504 +                      EQ     OIL                                                     GRA      4233
                                                                                                                 GRA      4234
                                        *         SPECIAL CASE, RF = 1 AND IH = 0                                GRA      4235
                                                                                                                 GRA      4236
          2540  76460                    OIL5     SX4    B6                                                      GRA      4237
                     20636                        LX6    R1.INP                                                  GRA      4238
                          43100                   MX1    0           DB = 0                                      GRA      4239
                               12646              BX6    X4+X6                                                   GRA      4240
          2541  0312002534 +                      NZ     X2,OIL4     IF CAIH " 0   */ CA .NE. 0, SINCE IH = 0    GRA      4241
                          43102                   MX1    2                                                       GRA      4242
                               20131              LX1    2+D.SZP     SZ[DB] = 3    */ SET TO TOGGLE *SZ* FIELD   GRA      4243
          2542  0400002534 +                      EQ     OIL4                                                    GRA      4244
                                                                                                                 CCG16     225
          2543  00000000000000000050     OILA     CON    OC.LD,OC.LDC,OC.LDV                                     CCG16     226
          2544  00000000000000000103
          2545  00000000000000000104
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   103
        SIV - SET INITIAL VALUE                                       SIV 
  
                                        **        SIV - SET INITIAL VALUE, GENERATE A *STT* OF A VALUE           GRA      4246
                                        *         NOTE THAT THE *RF* IN THE *RCT* ENTRY IS IGNORED.              GRA      4247
                                        *                                                                        GRA      4248
                                        *         ENTRY  (X4) = J+1, J = *RCT* ORDINAL OF ENTRY                  GRA      4249
                                        *                (B3) = RF , OPERAND R-NUMBER                            GRA      4250
                                                                                                                 GRA      4251
                                        *         OUTPUT STT WITH AN *H2* FIELD                                  GRA      4252
                                                                                                                 GRA      4253
          2546  73620                    SIV0     SX6    X2                                                      GRA      4254
                     76730                        SX7    B3                                                      GRA      4255
                          0100002631 +            RJ     OSI         OSI(  STT  R,RF,CAIH,H2 )                   GRA      4256
                                                                                                                 GRA      4257
          2547  0200402547 +             SIV      ROUTINE                                                        GRA      4258
          2550  53144                             SA1    B4+X4       C2W = RCT(J+1)                              GRA      4259
                     54211                        SA2    A1+B1       CCW = RCT(J+2)                              GRA      4260
                          43730                   MX7    -IH.CAIHL                                               GRA      4261
                               20252              LX2    -CC.H2P                                                 GRA      4262
          2551  15117                             BX1    -X7*X1      CAIH = CAIH[C2W]                            GRA      4263
                     63220                        SB2    X2          H2 = H2[CCW]                                GRA      4264
                          0420002546 +            ZR     B2,SIV0     IF H2 = 0                                   GRA      4265
                                                                                                                 GRA      4266
                                        *         CHECK ADDRESS DIFFERENCE TO SEE IF SYMS ARE F.P. OR COMMON     GRA      4267
                                                                                                                 GRA      4268
          2552  66222                             SB2    B2+B2                                                   CCG1      121
                     22611                        LX6    B1,X1                                                   CCG1      122
                          63222                   SB2    X2+B2                                                   CCG1      123
                               54302              SA3    A0+B2       WORDB2 = SYM(3*H2+1)                        CCG1      124
          2553  63260                             SB2    X6                                                      CCG1      125
                     0420002563 +                 ZR     B2,SIV1     IF IH[C2W]  = 0  */ NEG RELOC NOT ALLOWED   CCG1      126
                               63212              SB2    B2+X1                                                   CCG1      127
          2554  54402                             SA4    A0+B2       WORDB = SYM(3*IH[C2W]+1)                    CCG1      128
                     12634                        BX6    X3+X4                                                   CCG1      129
                          20670                   LX6    59-WB.LABP                                              CCG16     227
          2555  0336002546 +                      MI     X6,SIV0     IF LAB[WORDB] ! LAB[WORDB2]  */ LAB DIFF    CCG16     228
                          20657                   LX6    WB.LABP-WB.FPP                                          CCG16     229
          2556  0336002563 +                      MI     X6,SIV1     IF FP[WORDB] ! FP[WORDB2]                   CCG1      131
                          20603                   LX6    1+WB.FPP-WB.CXP                                         CCG1      132
                               43772              MX7    -WB.CXL                                                 CCG1      133
          2557  15667                             BX6    -X7*X6                                                  CCG1      134
                     0306002546 +                 ZR     X6,SIV0     IF ^( CX[WORDB] ! CX[WORDB2] )              CCG16     230
                               54331              SA3    A3+B1       WORDC2 = WORDB2 + 1                         CCG16     231
          2560  54441                             SA4    A4+B1       WORDC = WORDB + 1                           CCG16     232
                     13734                        BX7    X3-X4                                                   CCG1      136
                          5140002630 +            SA4    SIVA                                                    GRA      4280
          2561  11647                             BX6    X4*X7                                                   GRA      4281
                     0306002546 +                 ZR     X6,SIV0     IF (RL,RB)[WORDC] = (RL,RB)[WORDC2]         CCG16     233
                                                                                                                 GRA      4283
                               43300              MX3    0           C = 0                                       GRA      4284
          2562  0400002564 +                      EQ     SIV2                                                    GRA      4285
                                                                                                                 GRA      4286
          2563  10311                    SIV1     BX3    X1          C = CA[C2W]                                 GRA      4287
                     73110                        SX1    X1          CAIH = IH[C2W]                              GRA      4288
                          13331                   BX3    X3-X1                                                   GRA      4289
                                                                                                                 GRA      4290
          2564  43700                    SIV2     MX7    0           F = 0                                       GRA      4291
                     76600                        SX6    B0          H2 = 0                                      GRA      4292
                          0100002631 +            RJ     OSI         OSI(  STT  R,,CAIH )                        GRA      4293
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   104
        SIV - SET INITIAL VALUE                                       SIV 
  
          2565  73120                             SX1    X2          CAIH = H2[CCW]                              GRA      4294
                     76600                        SX6    B0          H2 = 0                                      GRA      4295
                          43700                   MX7    0           F = 0                                       FCC0912     7
                               10255              BX2    X5          FLB = FPL2    */ SAVE                       FCC0912     8
          2566  0100002631 +                      RJ     OSI         OSI(  STT  R,,H2[CCW] )                     GRA      4297
          2567  13625                             BX6    X2-X5                                                   FCC0912     9
                     7116777767                   SX1    B6-8        RJ = MI - 8   */ OPERANDS OF *IS*           FCC0912    10
          2570  7126777773                        SX2    B6-4        RK = MI - 4                                 FCC0912    11
                                         .FTN     IFEQ   HC.ID,2     IF FTN                                      CCG0071     7
                          5140000000 X            SA4    =XHO$ARGC                                               CCG0071     8
          2571  0324002603 +                      PL     X4,SIV2AC   IF NOT HO$ARGC                              CCG0071     9
                          63217                   SB2    X1+B7                                                   CCG0071    10
          2572  5142000002                        SA4    B2+2                                                    CCG0071    11
                          20446                   LX4    59-D.FPP                                                CCG0071    12
          2573  0324002576 +                      PL     X4,SIV2AA   IF NOT FP[DJ]                               CCG0071    13
                          73410                   SX4    X1          J = RJ                                      CCG0071    14
                               76160              SX1    B6          RJ = MI                                     CCG0071    15
          2574  76660                             TYPEI  SA,B6,X4    SRI(  SA  MI,J )                            CCG0071    16
                                                                                                                 CCG0071    17
          2576  63227                    SIV2AA   SB2    X2+B7                                                   CCG0071    18
                     5142000002                   SA4    B2+2                                                    CCG0071    19
                               20446              LX4    59-D.FPP                                                CCG0071    20
          2577  0324002611 +                      PL     X4,SIV2C    IF NOT FP[DK]                               CCG0071    21
                          73420                   SX4    X2          J = RK                                      CCG0071    22
                               76260              SX2    B6          RK = MI                                     CCG0071    23
          2600  73620                             TYPEI  SA,X2,X4    SRI(  SA  MI,J )                            CCG0071    24
          2602  0400002611 +                      EQ     SIV2C                                                   CCG0071    25
                                                                                                                 CCG0071    26
          2603                           SIV2AC   BSS    0                                                       CCG0071    27
                                         .FTN     ENDIF                                                          CCG0071    28
                                         #DAL     IFNE   .DAL,0                                                  FCC0912    12
          2603  0306002611 +                      ZR     X6,SIV2C    IF FLB = FPL2 */ NEITHER/BOTH FP&L2         FCC0912    13
                                                                                                                 FCC0912    14
                                        *         ONE OF THE SYMBOLS IS A LEVEL2 F.P., OUTPUT A *SA* PRIOR TO    FCC0912    15
                                        *         THE *IS* TO REMOVE BIT 59 IN THE APLIST WORD.                  FCC0912    16
                                                                                                                 FCC0912    17
                          6120000060              SB2    OC.SA                                                   FCC0912    18
          2604  0315002606 +                      NZ     X5,SIV2A    IF FPL2 " 0   */ RJ IS FP&L2                FCC0912    19
                          73410                   SX4    X1          J = RJ                                      FCC0912    20
                               76160              SX1    B6          RJ = MI                                     FCC0912    21
          2605  0400002607 +                      EQ     SIV2B                                                   FCC0912    22
          2606  73420                    SIV2A    SX4    X2          J = RK        */ RK IS FP&L2                FCC0912    23
                     76260                        SX2    B6          RK = MI                                     FCC0912    24
          2607  76660                    SIV2B    TYPEI  B2,B6,X4    SRI(  SA  MI,J )                            FCC0912    25
                                         #DAL     ENDIF                                                          FCC0912    26
                                                                                                                 FCC0912    27
          2611  76660                    SIV2C    TYPEI  IS,B6,X1,X2 SRI(  IS  MI,RJ,RK )                        FCC0912    28
          2614  0303002620 +                      ZR     X3,SIV3     IF C = 0                                    GRA      4301
                                                                                                                 GRA      4302
                          10133                   BX1    X3                                                      GRA      4303
          2615  7176777773                        SX7    B6-4        F = MI - 4                                  GRA      4304
                          43600                   MX6    0           H2 = 0                                      GRA      4305
          2616  0100002631 +                      RJ     OSI         OIS(  STT  R,F,C )                          GRA      4306
          2617  0430002547 +                      ZR     B3,SIV      IF RF = 0                                   GRA      4307
                                                                                                                 GRA      4308
          2620  0430002624 +             SIV3     ZR     B3,SIV4     IF RF = 0                                   GRA      4309
                          7126777773              SX2    B6-4                                                    GRA      4310
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   105
        SIV - SET INITIAL VALUE                                       SIV 
  
          2621  76330                             SX3    B3                                                      GRA      4311
                     76660                        TYPEI  IA,B6,X2,X3 SRI(  IA  MI,MI-4,RF )                      GRA      4312
                                                                                                                 GRA      4313
          2624  7126777773               SIV4     SX2    B6-4                                                    GRA      4314
                          76660                   TYPEI  SA,B6,X2    SRI(  SA  MI,MI-4 )                         GRA      4315
          2627  0400002547 +                      EQ     SIV                                                     GRA      4316
                                                                                                                 GRA      4317
          2630                           SIVA     BFMW   WC,(RL,RB)                                              CCG16     234
  
  
  
                                        **        OSI - OUTPUT *STT* INSTRUCTION                                 GRA      4324
                                        *                                                                        GRA      4325
                                        *         ENTRY  (X1) = CAIH FIELDS                                      GRA      4326
                                        *                (X6,X7) = H2, RF FIELDS RIGHT JUSTIFIED                 GRA      4327
                                        *                                                                        FCC0912    29
                                        *         EXIT   (X5) = FPL2 = FP[WORDB] & LCM[WORDB]                    FCC0912    30
                                        *                                                                        GRA      4328
                                        *         USES   X - 1, 4, 5, 6, 7                                       GRA      4329
                                                                                                                 GRA      4330
          2631  0200402631 +             OSI      ROUTINE                                                        GRA      4331
          2632  20744                             LX7    IH.RFP                                                  GRA      4332
                     12717                        BX7    X1+X7                                                   GRA      4333
                          20622                   LX6    R1.H2P                                                  GRA      4334
                               76460              SX4    B6                                                      GRA      4335
          2633  12646                             BX6    X4+X6                                                   GRA      4336
                     22417                        LX4    B1,X7                                                   GRA      4337
                          63240                   SB2    X4                                                      GRA      4338
                               63272              SB2    B2+X7                                                   CCG1      138
          2634  54402                             SA4    A0+B2       WORDB = SYM(3*IH+1)                         CCG1      139
                     10544                        BX5    X4                                                      CCG1      140
                          20570                   LX5    59-WB.LABP                                              CCG1      141
                               21573              AX5    59                                                      CCG1      142
          2635  15445                             BX4    -X5*X4      IF( LAB[WORDB] ) THEN WORDB = 0             CCG1      143
                     76510                        SX5    B1                                                      CCG1      144
                          20454                   LX4    -WB.FPP                                                 CCG1      145
                               11154              BX1    X5*X4                                                   CCG1      146
          2636  20473                             LX4    WB.FPP-WB.LCMP                                          CCG1      147
                     11514                        BX5    X1*X4       FPL2 = FP[WORDB] & LCM[WORDB]               CCG1      148
                          5140000052 X            SA4    F.RDT+OC.STT                                            CCG1      149
          2637  20125                             LX1    D.FPP       FP[DB] = FP[WORDB]                          GRA      4344
                     6120000052                   SB2    OC.STT                                                  GRA      4345
                               27626              PX6    B2,X6                                                   GRA      4346
          2640  56676                             SA6    B7+B6       MOD(MI) = TYII(OC.STT,0,H2,MI)              GRA      4347
                     20567                        LX5    IH.SIAP                                                 FCC1918    10
                          12757                   BX7    X5+X7                                                   FCC1918    11
                               54761              SA7    A6+B1       MOD(MI+1) = IHW(SIA,RF,CAIH)                FCC1918    12
          2641  12614                             BX6    X1+X4                                                   GRA      4349
                     54671                        SA6    A7+B1       MOD(MI+2) = RDT(OC.STT) ! DB                GRA      4350
                          43700                   MX7    0                                                       GRA      4351
                               54761              SA7    A6+B1       MOD(MI+3) = 0                               GRA      4352
          2642  6166000004                        SB6    B6+4        MI = MI + 4                                 GRA      4353
                          0400002631 +            EQ     OSI                                                     GRA      4354
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   106
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
                                        **        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                  GRA      4356
                                        *         SETUP POST STORE INFORMATION IN *PSI* FOR LATER USE BY         GRA      4357
                                        *         *IPS* IN *GPO*.                                                GRA      4358
                                        *                                                                        GRA      4359
                                        *         ENTRY  (NPS) = N. POST STORES IN SEQUENCE ( SET BY *CLB* )     GRA      4360
                                                                                                                 GRA      4361
          2643  0200402643 +             SXC      ROUTINE                                                        GRA      4362
          2644  5110000233 C                      SA1    NPS                                                     GRA      4363
                          5120000032 C            SA2    N.ENL                                                   GRA      4364
          2645  0301002701 +                      ZR     X1,SXC7     IF NPS = 0                                  GRA      4365
                          5140000033 C            SA4    EPSI                                                    FCC0985    15
          2646  37324                             IX3    X2-X4                                                   FCC0985    16
                     0303002701 +                 ZR     X3,SXC7     IF N.ENL = EPSI  */ NO EXIT NODE POST ST"S  FCC0985    17
                                                                                                                 FCC0985    18
                               73011              SX0    X1+B1                                                   FCC0985    19
          2647  42102                             IX1    X0*X2                                                   GRA      4373
                     7211000024                   ALLOC  PSI,X1+20   ALLOC( PSI , N.ENL*(NPS+1) + 20 )           GRA      4374
          2651  5130000000 C                      SA3    O.UDT                                                   GRA      4375
                          5140000000 X            SA4    O.RCT                                                   GRA      4376
          2652  5150000000 X                      SA5    O.RXI                                                   GRA      4377
                          63626                   SB6    X2+B6       PO = O.PSI + OLD(L.PSI)                     GRA      4378
                               63720              SB7    X2                                                      GRA      4379
          2653  63331                             SB3    X3+B1       (B3) = [O.UDT]+1                            GRA      4380
                     63440                        SB4    X4          (B4) = [O.RCT]                              GRA      4381
                          43030                   MX0    -IH.CAIHL                                               GRA      4382
                               53551              SA5    X5+B1       RI = [O.RXI] + 1                            GRA      4383
                                                                                                                 GRA      4384
                                        *         SCAN POST STORE LIST AND FORM LIST OF VARIABLES IN *PSI*       GRA      4385
                                        *         THAT ARE TO BE STORED ON ENTRY TO THE LOOP EXIT BLOCKS.        GRA      4386
                                                                                                                 GRA      4387
          2654  5140000233 C             SXC2     SA4    NPS                                                     GRA      4388
                          64551                   SB5    A5+B1       RB = RI + 1   */ LIVE ENTRY VECTOR ADDRESS  GRA      4389
                               56760              SA7    B6          PI = PO                                     GRA      4390
          2655  20502                             LX5    59-E.ALLPP                                              GRA      4391
                     0325002665 +                 PL     X5,SXC5     IF ^ALLP[RI]  */ CANT POST STORE IN THIS BL GRA      4392
                                                                                                                 GRA      4393
                               53040              SA0    X4          I = NPS                                     GRA      4394
                                                                                                                 GRA      4395
          2656  5040000233 C             SXC3     SA4    PST-1+A0    J = CO[PST(I)]                              GRA      4396
                          53344                   SA3    B4+X4       CAW = RCT(J)                                GRA      4397
                               20452              LX4    -18         REGNO = REG[PST(I)]                         GRA      4398
          2657  73730                             SX7    X3          K = UDI[CAW]                                GRA      4399
                     53133                        SA1    B3+X3       U2 = UDT(K+1)                               GRA      4400
                          53215                   SA2    B5+X1       LEW = [RB+WI[U2]]                           GRA      4401
                               26621              UX6    B2,X1       BIT = BITN[U2]                              GRA      4402
          2660  6122777704                        SB2    B2-59                                                   GRA      4403
                          23622                   LX6    -B2,X2                                                  GRA      4404
          2661  0326002664 +                      PL     X6,SXC4     IF SHIFT(59-BIT,LEW) > 0  */ DEAD ON ENTRY  GRA      4405
                                                                                                                 GRA      4406
                                        *         SETUP *PSI* WORD FOR THIS *RCT* ENTRY                          GRA      4407
                                                                                                                 GRA      4408
                          54131                   SA1    A3+B1                                                   GRA      4409
                               20744              LX7    PS.UDIP                                                 GRA      4410
          2662  73440                             SX4    X4                                                      GRA      4411
                     20466                        LX4    PS.REGP                                                 GRA      4412
                          15210                   BX2    -X0*X1      CAIH = CAIH[RCT(J+1)]                       GRA      4413
                               36647              IX6    X4+X7                                                   GRA      4414
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   107
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
          2663  12762                             BX7    X6+X2                                                   GRA      4415
                     54771                        SA7    A7+B1       PI = PI + 1;  [PI] = PSI(REGNO,K,CAIH)      GRA      4416
                                                                                                                 GRA      4417
          2664  65201                    SXC4     SB2    A0-B1                                                   GRA      4418
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      4419
                          0520002656 +            NZ     B2,SXC3     IF I > 0                                    GRA      4420
                                                                                                                 GRA      4421
                                        *         SETUP HEADER WORD, AND POINT *BIT* ENTRY TO *PSI* LIST.        GRA      4422
                                                                                                                 GRA      4423
          2665  75676                    SXC5     SX6    A7-B6       N = PI - PO                                 GRA      4424
                     0306002676 +                 ZR     X6,SXC6     IF N = 0      */ NO STORES TO THIS BLOCK    GRA      4425
                                                                                                                 GRA      4426
                               43755              MX7    -E.BIL                                                  GRA      4427
          2666  5110000000 X                      SA1    O.BIT                                                   GRA      4428
                          20572                   LX5    1+E.ALLPP-E.BIP                                         GRA      4429
                               15457              BX4    -X7*X5      BN = BI[RI]                                 GRA      4430
          2667  63210                             SB2    X1                                                      GRA      4431
                     53242                        SA2    B2+X4       BIW = BIT(BN)                               GRA      4432
                          43353                   MX3    -BI.PIIL                                                GRA      4433
                               20230              LX2    -BI.PIIP                                                GRA      4434
          2670  15723                             BX7    -X3*X2      OPI = PII[BIW]                              GRA      4435
                     0307002674 +                 ZR     X7,SXC5B    IF OPI = 0    */ NO POST ST"S FROM INNERLP  GRA      4436
                                                                                                                 GRA      4437
                                        *         ADD POST STORES FROM INNER LOOP TO CURRENT LIST FOR THIS BLOCK GRA      4438
                                                                                                                 GRA      4439
                               67271              SB2    B7-B1                                                   GRA      4440
          2671  53172                             SA1    B2+X7       PJ = PSI + OPI-1                            GRA      4441
                     63210                        SB2    X1          J = [PJ]      */ N.POST ST"S FROM INNER     GRA      4442
                          73662                   SX6    X6+B2       N = N + J                                   GRA      4443
                                                                                                                 GRA      4444
          2672  54111                    SXC5A    SA1    A1+B1       PJ = PJ + 1                                 GRA      4445
                     67221                        SB2    B2-B1       J = J - 1                                   GRA      4446
                          10711                   BX7    X1                                                      GRA      4447
                               54771              SA7    A7+B1       PI = PI + 1;  [PI] = [PJ]                   GRA      4448
          2673  0520002672 +                      NZ     B2,SXC5A    IF J " 0                                    GRA      4449
                                                                                                                 GRA      4450
          2674  56660                    SXC5B    SA6    B6          [PO] = N      */ SET HEADER WORD            GRA      4451
                     11232                        BX2    X3*X2                                                   GRA      4452
                          66661                   SB6    B6+B1       PO = PO + 1                                 GRA      4453
                               77467              SX4    B6-B7                                                   GRA      4454
          2675  12724                             BX7    X2+X4       PII[BIT(BN)] = PO - PSI                     GRA      4455
                     20744                        LX7    BI.PIIP                                                 GRA      4456
                          5072000000              SA7    A2+                                                     GRA      4457
                                                                                                                 GRA      4458
          2676  5110000000 X             SXC6     SA1    BVL                                                     GRA      4459
                          63666                   SB6    B6+X6       PO = PO + N                                 GRA      4460
                               63211              SB2    X1+B1                                                   GRA      4461
          2677  56552                             SA5    B5+B2       RI = RB + BVL+1                             GRA      4462
                     0315002654 +                 NZ     X5,SXC2     IF [RI] " 0   */ NOT END OF LIST            GRA      4463
                                                                                                                 GRA      4464
                               77667              SX6    B6-B7       L.PSI = PO - O.PSI                          GRA      4465
          2700  5160000000 X                      SA6    L.PSI                                                   GRA      4466
                                                                                                                 GRA      4467
                                                  TRACE  SXC,PSI                                                 GRA      4468
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   108
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
                                        *         ADJUST *LUV* AND *LEA* BIT VECTORS. SET BITS FOR VARIABLES     GRA      4470
                                        *         EXPLICITLY REFERENCED IN THE LOOP ( *LUV* ). ADJUST THE *HB*   GRA      4471
                                        *         LIVE EXIT VECTOR ( *LEA* ) TO INDICATE THAT *VC*"S THAT ARE    GRA      4472
                                        *         *KD* ARE DEAD ON EXIT FROM IT.                                 FCC0392   134
                                                                                                                 GRA      4474
          2701  5110000000 X             SXC7     SA1    =XHO$OPT                                                CCGNC     660
                          0321002643 +            PL     X1,SXC      IF HO$OPT " 2                               CCGNC     661
                                                                                                                 FCC1491X    7
          2702  5150000000 X                      SA5    O.RCT                                                   FCC1491X    8
                          5110000164 C            SA1    LCT                                                     GRA      4476
          2703  5120000000 C                      SA2    O.UDT                                                   GRA      4477
                          5130000004 C            SA3    LUV                                                     GRA      4478
          2704  5140000007 C                      SA4    LEA                                                     GRA      4479
                          63421                   SB4    X2+B1       (B4) = [O.UDT] + 1                          GRA      4480
                               63210              SB2    X1                                                      GRA      4481
          2705  63530                             SB5    X3          (B5) = [LUV]                                GRA      4482
                     63640                        SB6    X4          (B6) = [LEA]                                GRA      4483
                          53552                   SA5    X5+B2       CI = O.RCT + LCT                            GRA      4484
                               76010              SX0    B1                                                      GRA      4485
          2706  0520002710 +                      NZ     B2,SXC9     IF LCT " 0    */ NO USER EXT REFS           GRA      4486
                          0400002643 +            EQ     SXC                                                     FCC0675   236
                                                                                                                 GRA      4488
          2707  53245                    SXC8     SA2    B5+X4                                                   GRA      4489
                     22120                        LX1    B2,X0                                                   GRA      4490
                          12612                   BX6    X1+X2       LUV(W) = LUV(W) ! SHIFT(1,B)                GRA      4491
                               54620              SA6    A2                                                      GRA      4492
                                                                                                                 GRA      4493
          2710  5055777774               SXC9     SA5    A5-3        CI = CI - 3                                 GRA      4494
                          0305002721 +            ZR     X5,SXC11    IF [CI] = 0   */ END OF TABLE               FCC0914     5
          2711  63250                             SB2    X5          K = UDI[CI]                                 GRA      4496
                     0420002710 +                 ZR     B2,SXC9     IF K = 0      */ CON OR COMPILER TEMP       GRA      4497
                                                                                                                 GRA      4498
                               56442              SA4    B4+B2       U2 = UDT(K+1);  W = WI[U2]                  GRA      4499
          2712  20551                             LX5    59-CA.KDP                                               GRA      4500
                     26724                        UX7    B2,X4       B = BITN[U2]                                GRA      4501
                          0335002717 +            MI     X5,SXC10    IF KD[CI]     */ USELESS INCREMENT          GRA      4502
                                                                                                                 GRA      4503
          2713  20526                             LX5    CA.KDP-CA.ACP                                           GRA      4504
                     0335002707 +                 MI     X5,SXC8     IF AC[CI]                                   GRA      4505
                               20571              LX5    CA.ACP-CA.RAP                                           GRA      4506
          2714  0325002707 +                      PL     X5,SXC8     IF ^RA[CI]                                  GRA      4507
                                                                                                                 GRA      4508
                                        *         *VC* AND *RA*, SET BIT IN *LUV* IF STORED IN LOOP.             FCC0392   135
                                                                                                                 FCC0392   136
                          20546                   LX5    CA.RAP-CA.DEFP                                          FCC0392   137
          2715  0325002710 +                      PL     X5,SXC9     IF ^DEF[CI]                                 FCC0392   138
                          20573                   LX5    CA.DEFP-CA.PSPP                                         FCC0392   139
          2716  0325002707 +                      PL     X5,SXC8     IF ^PSP[CI]   */ STORED IN THE LOOP         FCC0392   140
                          0400002710 +            EQ     SXC9                                                    FCC0392   141
                                                                                                                 GRA      4517
                                        *         CLEAR BIT IN *LEA* TO INDICATE CORE VALUE DEAD ON ENTRY TO     GRA      4518
                                        *         LOOP AFTER COMBINING THE *HB* AND ITS PREDECESSOR.             GRA      4519
                                                                                                                 GRA      4520
          2717  53246                    SXC10    SA2    B6+X4                                                   GRA      4521
                     22120                        LX1    B2,X0                                                   GRA      4522
                          15621                   BX6    -X1*X2      LEA(W) = LEA(W) & ^SHIFT(1,B)               GRA      4523
                               54620              SA6    A2                                                      GRA      4524
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   109
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
          2720  0400002710 +                      EQ     SXC9                                                    GRA      4525
  
  
                                        *         ADJUST LOOP LIVE ENTRY BV TO CLEAR BITS FOR VARIABLES THAT     FCC0914     7
                                        *         ARE NOT USED AND DEAD ON EXIT FROM THE LOOP.                   FCC0914     8
                                                                                                                 FCC0914     9
          2721  5110000006 C             SXC11    SA1    LXA                                                     FCC0914    10
                          5120000000 X            SA2    BVL                                                     FCC0914    11
          2722  5150000011 C                      SA5    SVA                                                     FCC0914    12
                          63321                   SB3    X2+B1       VL = BVL + 1                                FCC0914    13
                               66200              SB2    B0          I = 0                                       FCC0914    14
          2723  53110                             SA1    X1                                                      FCC0914    15
                     63750                        SB7    X5                        (B7) = SVA                    FCC0914    16
                                                                                                                 FCC0914    17
          2724  56252                    SXC12    SA2    B5+B2                                                   FCC0914    18
                     12612                        BX6    X1+X2       SV(I) = LX(I) ! LU(I)                       FCC0914    19
                          56672                   SA6    B7+B2                                                   FCC0914    20
                               66221              SB2    B2+B1       I = I + 1                                   FCC0914    21
          2725  54111                             SA1    A1+B1                                                   FCC0914    22
                     0723002724 +                 LT     B2,B3,SXC12 IF I < VL                                   FCC0914    23
                                                                                                                 FCC0914    24
                                        *         CHECK FOR CHANGED BITS, AND CLEAR THOSE IN THE *LE* VECTOR     FCC0914    25
                                        *         IF THE REF IS ^CM OR THE BASE MEMBER ( *CR* ) IS NOT REFED.    FCC0914    26
                                                                                                                 FCC0914    27
                               56060              SA0    B6                                                      FCC0914    28
          2726  66200                             SB2    B0          I = 0                                       FCC0914    29
                     7100000003                   SX0    3           BO = 4 - 1    */ UDT OFFSET                 FCC0914    30
                                                                                                                 FCC0914    31
          2727  54202                    SXC13    SA2    A0+B2                     (X2) = LE(I)                  FCC0914    32
                     56172                        SA1    B7+B2                                                   FCC0914    33
                          11321                   BX3    X2*X1                                                   FCC0914    34
                               13732              BX7    X3-X2       VD = XOR( LE(I) , SV(I) & LE(I) )           FCC0914    35
          2730  47677                             CX6    X7                                                      FCC0914    36
                     0306002741 +                 ZR     X6,SXC17    IF COUNT(VD) = 0                            FCC0914    37
                                                                                                                 FCC0914    38
          2731  0100002743 +             SXC14    RJ     FLB         J = FLB(VD)                                 FCC0914    39
          2732  76110                             SX1    B1                                                      FCC0914    40
                     22151                        LX1    B5,X1                                                   FCC0914    41
                          15771                   BX7    -X1*X7      VD = VD & ^SHIFT(1,J)  */ CLEAR BIT         FCC0914    42
                               66655              SB6    B5+B5                                                   FCC0914    43
          2733  73606                             SX6    X0+B6       K = 2*J + BO                                FCC0914    44
                     53364                        SA3    B4+X6       UK = UDT(K)                                 FCC0914    45
                          20350                   LX3    59-UD.CMP                                               FCC0914    46
          2734  0323002737 +                      PL     X3,SXC15    IF ^CM[UK]    */ ^ A CLASS MEMBER           FCC0914    47
                                                                                                                 FCC0914    48
                                                  LX3    1+UD.CMP-UD.BMIP                                        FCC0914    49
                          53434                   SA4    B4+X3       U2 = UDT(BMI[UK]+1)                         FCC0914    50
                               53547              SA5    B7+X4       SVW = SV(WI[U2])                            FCC0914    51
          2735  26664                             UX6    B6,X4       B = BITN[U2]                                FCC0914    52
                     6166777704                   SB6    B6-59                                                   FCC0914    53
                               23665              LX6    -B6,X5                                                  FCC0914    54
          2736  0336002740 +                      MI     X6,SXC16    IF SHIFT(SVW,59-B) < 0  */ BASE MEM REFED   FCC0914    55
                                                                                                                 FCC0914    56
          2737  15221                    SXC15    BX2    -X1*X2      LE(I) = LE(I) & ^SHIFT(1,J)                 FCC0914    57
                                                                                                                 FCC0914    58
          2740  0317002731 +             SXC16    NZ     X7,SXC14    IF VD " 0                                   FCC0914    59
                          10622                   BX6    X2                                                      FCC0914    60
1       GRA - GLOBAL REGISTER ASSIGNMENT / ENTRY CODE                 COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   110
        SXC - SET EXIT CONDITIONS ( POST STORE INFO )                 SXC 
  
                               54620              SA6    A2                                                      FCC0914    61
                                                                                                                 FCC0914    62
          2741  7200000170               SXC17    SX0    X0+120      BO = BO + 120                               FCC0914    63
                          6122000001              SB2    B2+1        I = I + 1                                   FCC0914    64
          2742  0723002727 +                      LT     B2,B3,SXC13 IF I < VL                                   FCC0914    65
                                                                                                                 FCC0914    66
                          0400002643 +            EQ     SXC                                                     FCC0914    67
  
  
  
                                        **        FLB - FIND LEADING BIT SET IN A WORD                           FCC0914    69
                                        *                                                                        FCC0914    70
                                        *         ENTRY  (X7) = WORD                                             FCC0914    71
                                        *                                                                        FCC0914    72
                                        *         EXIT   (B5) = BIT NUMBER ( 0 - 59 )                            FCC0914    73
                                        *                                                                        FCC0914    74
                                        *         USES   B - 5, 6  X - 5, 6                                      FCC0914    75
                                                                                                                 FCC0914    76
          2743  0200402743 +             FLB      ROUTINE                                                        FCC0914    77
          2744  43514                             MX5    12                                                      FCC0914    78
                     11657                        BX6    X5*X7       T12 = MASK(12) & WORD                       FCC0914    79
                          0306002747 +            ZR     X6,FLB1     IF T12 = 0                                  FCC0914    80
          2745  20660                             LX6    -12                                                     FCC0914    81
                     6150000073                   SB5    59                                                      FCC0914    82
                               27606              PX6    X6                                                      FCC0914    83
          2746  24566                             NX5    B6,X6                                                   FCC0914    84
                     67556                        SB5    B5-B6       SC = 59-NORMC(PACK(0,SHIFT(T12,-12)))       FCC0914    85
                          0400002743 +            EQ     FLB                                                     FCC0914    86
                                                                                                                 FCC0914    87
          2747  27607                    FLB1     PX6    X7                                                      FCC0914    88
                     6150000057                   SB5    47                                                      FCC0914    89
                               24566              NX5    B6,X6                                                   FCC0914    90
          2750  67556                             SB5    B5-B6       SC = 47-NORMC(PACK(0,WORD))                 FCC0914    91
                     0400002743 +                 EQ     FLB                                                     FCC0914    92
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   111
        CLB - CODE LOOP BODY                                          CLB 
  
                                        **        CLB - CODE LOOP BODY ( CONTROL )                               GRA      4584
                                                                                                                 GRA      4585
                                                  DESCRIBE BS.,60    BSW(CL,PC,LEN)                              GRA      4586
                                                  DEFINE 7                                                       GRA      4587
      L     46  00377774000000000000     CL       DEFINE 15          CODE LENGTH                                 GRA      4588
      L     44  00000003000000000000     PC       DEFINE 2           PARCEL COUNT                                GRA      4589
                                                  DEFINE 18                                                      GRA      4590
      L      0  00000000000000777777     LEN      DEFINE 18          LENGTH OF SAVED CODE IN *PIT*               GRA      4591
                                                                                                                 GRA      4592
      L     44  00377777000000000000     CLPC     DEQU   PC,17       COMBINATION FIELD                           GRA      4593
                                                                                                                 GRA      4594
          2751                           CLBA     BFMW   CA,(VC,PSP,LX,DEF)                                      FCC0535    12
          2752                           CLBB     BFMW   CA,(VC,IA,RF)                                           FCC0651     5
                                                                                                                 GRA      4596
          2753  0200402753 +             CLB      ROUTINE                                                        GRA      4597
          2754  5110000205 C                      SA1    NAA                                                     GRA      4598
                          5120000173 C            SA2    NXC                                                     GRA      4599
          2755  36412                             IX4    X1+X2                                                   GRA      4600
                     22314                        LX3    B1,X4                                                   GRA      4601
                          7263000060              SX6    X3+7+51B    NXS = 4*( 2*(NAA+NXC) + 48 ) */ EXTRA SPACE GRA      4602
          2756  20602                             LX6    2                                                       GRA      4603
                     5160000231 C                 SA6    NXS                                                     GRA      4604
                                                                                                                 GRA      4605
                                        *         SCAN *RCT* AND SET *EU* BIT FOR *IA* CANIDATES WHOSE INCREMENT GRA      4606
                                        *         VALUE IS NOT IN A B-REGISTER AND VISA-VERSA.                   FCC0651     6
                                                                                                                 GRA      4608
                               43066              MX0    -CC.REG1L                                               GRA      4609
          2757  5150000164 C                      SA5    LCT                                                     GRA      4610
                          5140000000 X            SA4    O.RCT                                                   GRA      4611
          2760  5110002752 +                      SA1    CLBB                                                    FCC0651     7
                          0305002774 +            ZR     X5,CLB1     IF LCT = 0    */ NO CANIDATES               GRA      4613
          2761  63640                             SB6    X4                                                      GRA      4614
                     53556                        SA5    B6+X5       CI = RCT + LCT                              GRA      4615
                          76710                   SX7    B1                                                      GRA      4616
                               20763              LX7    CA.EUP                                                  GRA      4617
                                                                                                                 GRA      4618
          2762  5055777774               AUM1     SA5    A5-3        CI = CI - 3                                 GRA      4619
                          0305002774 +            ZR     X5,CLB1     IF [CI] = 0   */ END OF *RCT*               GRA      4620
          2763  16651                             BX6    -X1+X5                                                  GRA      4621
                     0316002762 +                 NZ     X6,AUM1     IF ^(VC,IA,RF)[CI]                          FCC0651     8
          2764  5045000002                        SA4    A5+2        CCW = CI + 2                                GRA      4623
                                                  LX4    -CC.REG1P                                               FCC1626     1
                          15640                   BX6    -X0*X4                                                  FCC1626     2
                               20430              LX4    CC.REG1P-CC.INCP                                        FCC1626     3
          2765  21603                             AX6    3                                                       FCC1626     4
                     53346                        SA3    B6+X4       CJ = RCT(INC[CCW])                          GRA      4625
                                                  LX3    59-CA.RAP                                               GRA      4626
                          0303002762 +            ZR     X3,AUM1     IF [CJ] = 0   */ INC[CCW] = 0               GRA      4627
                                                  LX5    59-CA.RAP                                               FCC0651     9
          2766  0325002773 +                      PL     X5,AUM3     IF ^RA[CI]    */ INC VAR NOT IN A B-REG     FCC0651    10
                                                  LX5    1+CA.RAP                                                FCC0651    11
                          0316002773 +            NZ     X6,AUM3     IF REG1[CCW] \ 20B  */ INC VAR IN AN X-REG  FCC1626     5
          2767  20445                             LX4    CC.INCP+59-CC.I2P                                       GRA      4628
                     0334002772 +                 MI     X4,AUM2     IF I2[CCW]                                  GRA      4629
          2770  0323002772 +                      PL     X3,AUM2     IF ^RA[CJ]                                  GRA      4630
                          5033000002              SA3    A3+2        CCWJ = CJ + 2                               GRA      4631
                                                  LX3    -CC.REG1P                                               GRA      4632
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   112
        CLB - CODE LOOP BODY                                          CLB 
  
          2771  15630                             BX6    -X0*X3                                                  GRA      4633
                     21603                        AX6    3                                                       GRA      4634
                          0306002762 +            ZR     X6,AUM1     IF REG1[CCWJ] < 7  */ INC IN A B-REG        GRA      4635
                                                                                                                 GRA      4636
          2772  12675                    AUM2     BX6    X7+X5       EU[CI] = 1                                  GRA      4637
                     54650                        SA6    A5                                                      GRA      4638
                          0400002762 +            EQ     AUM1                                                    GRA      4639
                                                                                                                 FCC0651    12
                                         AUM3     LX3    1+CA.RAP                                                FCC0651    13
          2773  12673                             BX6    X7+X3       EU[CJ] = 1    */ FORCE INC VAL TO BE *EU*   FCC0651    14
                     54630                        SA6    A3                                                      FCC0651    15
                          0400002762 +            EQ     AUM1                                                    FCC0651    16
  
  
                                        *         INITIALIZE FLAGS                                               GRA      4641
                                                                                                                 GRA      4642
          2774  76611                    CLB1     SX6    B1+B1                                                   GRA      4643
                     43700                        MX7    0                                                       GRA      4644
                          5160000000 X            SA6    BSI         BSI = 2                                     GRA      4645
          2775  5170000232 C                      SA7    MRU         MRU = 0       */ MACHINE REGS USED          GRA      4647
                          5170000000 X            SA7    L.PIT       L.PIT = 0                                   GRA      4648
          2776  5170000036 C                      SA7    PL          PL = 0                                      GRA      4649
                                                                                                                 GRA      4650
                                        *         SCAN *RAT* AND FORM POST STORE LIST                            GRA      4651
                                                                                                                 GRA      4652
                          7120000027              SX2    27B         I = 27B                                     GRA      4653
          2777  5150000000 X                      SA5    O.RCT                                                   GRA      4654
                          5130000173 C            SA3    NXC                                                     GRA      4655
          3000  5110002751 +                      SA1    CLBA                                                    GRA      4656
                          66700                   SB7    B0          NPS = 0                                     GRA      4657
                               63650              SB6    X5                                                      GRA      4658
          3001  0313003002 +                      NZ     X3,CLB2     IF NXC " 0                                  GRA      4659
                          7120000007              SX2    7           I = 7                                       GRA      4660
                                                                                                                 GRA      4661
          3002  5252000100 C             CLB2     SA5    RAT+X2      J = R1[RAT(I)]                              GRA      4662
                          0305003006 +            ZR     X5,CLB3     IF RAT(I) = 0                               GRA      4663
          3003  53456                             SA4    B6+X5       CAW = RCT(J)                                GRA      4664
                     16641                        BX6    -X1+X4                                                  GRA      4665
                          0316003006 +            NZ     X6,CLB3     IF ^(VC[CAW]&PSP[CAW]&LX[CAW]&DEF[CAW])     FCC0535    13
                                                                                                                 GRA      4667
          3004  73350                             SX3    X5                                                      GRA      4668
                     20222                        LX2    18                                                      GRA      4669
                          12723                   BX7    X2+X3                                                   GRA      4670
                               20252              LX2    -18                                                     GRA      4671
          3005  5177000234 C                      SA7    PST+B7      PST(NPS) = SHIFT(I,18) ! J                  GRA      4672
                          6177000001              SB7    B7+1        NPS = NPS + 1                               GRA      4673
                                                                                                                 GRA      4674
          3006  7222777776               CLB3     SX2    X2-1        I = I - 1                                   GRA      4675
                          0312003002 +            NZ     X2,CLB2     IF I " 0                                    GRA      4676
                                                                                                                 GRA      4677
          3007  7177000000                        SX7    B7+                                                     GRA      4678
                          5170000233 C            SA7    NPS                                                     GRA      4679
                                                                                                                 GRA      4680
                                        *         PROCESS ALL NON-EMPTY BLOCKS IN THE LOOP BODY                  GRA      4681
                                                                                                                 GRA      4682
          3010  7160000004               CLB4     SX6    4           L.TXT = 4                                   GRA      4683
                          5160000000 X            SA6    L.TXT                                                   GRA      4684
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   113
        CLB - CODE LOOP BODY                                          CLB 
  
          3011  0100000000 X                      CALL   RTB#        READ BLOCK IN                               CCGNC     662
          3012  5110000000 X                      SA1    L.SEQ                                                   GRA      4686
                          0100001267 +            RJ     SLW         SAVE LINK WORDS                             GRA      4690
                                                                                                                 GRA      4691
          3013  0100003155 +                      CALL   IRA         INSERT REGISTER ASSIGNMENTS                 GRA      4692
                                                                                                                 FCC2051     9
          3014  5110000000 X                      SA1    L.TXT                                                   FCC2051    10
                          5120000250 C            SA2    DTL                                                     FCC2051    11
          3015  37312                             IX3    X1-X2                                                   FCC2051    12
                     0313003021 +                 NZ     X3,CLB4A    IF L.TXT " DTL */CODE IT                    FCCA509X   26
                                                                                                                 FCCA509X   27
                                        *         NOTHING TO CODE - MAKE BST(BSI+1) = 0                          FCCA509X   28
                                        *         SO NOTHING WILL BE WRITTEN TO BLK.                             FCCA509X   29
                                                                                                                 FCCA509X   30
          3016  5110000000 X                      SA1    O.BST                                                   FCCA509X   31
                          5120000000 X            SA2    BSI                                                     FCCA509X   32
          3017  43600                             MX6    0                                                       FCCA509X   33
                     36312                        IX3    X1+X2                                                   FCCA509X   34
                          53631                   SA6    X3+B1       BST(BSI+1) = 0                              FCCA509X   35
          3020  0400003045 +                      EQ     CLB10                                                   FCCA509X   36
                                                                                                                 FCCA509X   37
          3021                           CLB4A    BSS    0                                                       FCCA509X   38
                                                                                                                 FCC2051    14
                                                  TRACE  CLB,RLIST,SEQ                                           GRA      4693
                                                  TRACE  CLB,RLIST                                               GRA      4694
                                                                                                                 GRA      4695
          3021  0100001300 +                      RJ     RLW         RESTORE LINK WORDS                          GRA      4696
                                                                                                                 GRA      4697
          3022  0100004115 +                      CALL   CUC         COLLECT USES COUNTS                         GRA      4698
                                                                                                                 GRA      4699
                                         #IWT     IFEQ   .CPU,74                                                 GRA      4700
                                         #IWT     IFNE   .IWT,0                                          ?IWT    GRA      4701
                                                                                                                 GRA      4702
                                        *         IF A 6600 AND IWTIME " 0, THEN CHECK LOOP LENGTH AND SET STACK GRA      4703
                                        *         FLAG IF IT FITS.  NOTE THAT BECAUSE OF PARCEL FAULTS THE       GRA      4704
                                        *         LOOP COULD BE CODED BY *MCG* AND NOT FIT *INSTACK*.            GRA      4705
                                                                                                                 GRA      4706
                                                  SA1    N.EBB                                                   GRA      4707
                                                  SX6    X1-1                                                    GRA      4708
                                                  NZ     X6,CLS3     IF N.EBB " 1                                GRA      4709
                                                  SA5    O.TXT                                                   GRA      4710
                                                  MX1    -D.SZL                                                  GRA      4711
                                                  SA4    L.TXT                                                   GRA      4712
                                                  LX1    D.SZP                                                   GRA      4713
                                                  SX2    B1+B1                                                   GRA      4714
                                                  SX7    29                                                      GRA      4715
                                                  LX2    D.SZP       LEN = 2                                     GRA      4716
                                                  IX6    X4+X5                                                   GRA      4717
                                                  LX7    D.SZP                                                   GRA      4718
                                                  SA4    X6-2        DI = O.TXT + L.TXT - 2                      GRA      4719
                                                  SB4    4                                                       GRA      4720
                                                                                                                 GRA      4721
                                         CLS1     SA4    A4-B4       DI = DI - 4                                 GRA      4722
                                                  LX4    59-D.JPP                                                GRA      4723
                                                  PL     X4,CLS1     IF ^JP[DI]    */ NOT TERMINAL JUMP          GRA      4724
                                                                                                                 GRA      4725
                                         CLS2     SA4    A4-B4       DI = DI - 4                                 GRA      4726
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   114
        CLB - CODE LOOP BODY                                          CLB 
  
                                                  SA5    A4-2        R1 = DI - 2                                 GRA      4727
                                                  BX6    -X1*X4                                                  GRA      4728
                                                  IX2    X2+X6       LEN = LEN + SZ[DI]                          GRA      4729
                                                  UX3    B2,X5                                                   GRA      4730
                                                  IX6    X2-X7                                                   GRA      4731
                                                  PL     X6,CLS3     IF LEN > 28   */ LOOP NOT INSTACK           GRA      4732
                                                  NE     B2,B1,CLS2  IF OC[R1] " OC.BOS                          GRA      4733
                                                                                                                 GRA      4734
                                                  MX7    1                                                       GRA      4735
                                                  LX7    1+IH.STKP                                               GRA      4736
                                                  SA7    A5+5        STK[R1+5] = 1  */ INDICATE STACK TIMING     GRA      4737
                                                                                                                 GRA      4738
                                         CLS3     BSS    0                                                       GRA      4739
                                         #IWT     ENDIF                                                  'IWT    GRA      4740
                                                                                                                 GRA      4741
          3023  5130000173 C                      SA3    NXC                                                     GRA      4742
                          0100003130 +            RJ     CIS         SET THE PARCEL COUNT AND CODE THE SEQUENCE  GRA      4743
          3024  0316003063 +                      NZ     X6,CLB14    IF MCGFAIL " 0  */ TOO MANY LOCKED REGS     GRA      4744
                                                                                                                 GRA      4745
                                        *         COLLECT THE LIST OF REGISTERS USED BY *MCG* FOR OUTER LOOPS    GRA      4746
                                                                                                                 GRA      4747
                          5150000015 C            SA5    MRA                                                     GRA      4748
          3025  0305003033 +                      ZR     X5,CLB9     IF MRA = 0    */ NO REGS AVAIL              GRA      4749
                                                                                                                 GRA      4750
                          5110000232 C            SA1    MRU                                                     GRA      4751
          3026  5120000000 X                      SA2    O.TXT                                                   GRA      4752
                          5130000000 X            SA3    L.TXT                                                   GRA      4753
          3027  5252000007                        SA5    X2+7        LI = O.TXT + 7                              GRA      4754
                          6140000004              SB4    4                                                       GRA      4755
          3030  6233777767                        SB3    X3-8        I = L.TXT - 8                               GRA      4756
                          76010                   SX0    B1                                                      GRA      4757
                               10611              BX6    X1                                                      GRA      4758
                                                                                                                 GRA      4759
          3031  63550                    CLB8     SB5    X5          REGN = REG[LI]                              GRA      4760
                     22250                        LX2    B5,X0                                                   GRA      4761
                          67334                   SB3    B3-B4       I = I - 4                                   GRA      4762
                               12626              BX6    X2+X6       MRU = MRU ! SHIFT(1,REGN)                   GRA      4763
          3032  54554                             SA5    A5+B4       LI = LI + 4                                 GRA      4764
                     0530003031 +                 NZ     B3,CLB8     IF I " 0                                    GRA      4765
                               54610              SA6    A1                                                      GRA      4766
                                                                                                                 GRA      4767
                                        *         SAVE CODE LENGTH INFO IN *BST*                                 GRA      4768
                                                                                                                 GRA      4769
          3033  5110000036 C             CLB9     SA1    PL                                                      GRA      4770
                          5120000000 X            SA2    L.PIT                                                   GRA      4771
          3034  5140000000 X                      SA4    =XPC                                                    GRA      4772
                          7130000000              SX3    0           CODEL = 0                                   GRA      4773
          3035  5150000000 X                      SA5    O.BST                                                   GRA      4774
                          37021                   IX0    X2-X1       LEN = L.PIT - PL                            GRA      4775
                                                  LX0    BS.LENP                                                 GRA      4776
                               10622              BX6    X2          PL = L.PIT                                  GRA      4777
          3036  54610                             SA6    A1                                                      GRA      4778
                     20346                        LX3    BS.CLP                                                  GRA      4779
                          20444                   LX4    BS.PCP                                                  GRA      4780
                               12334              BX3    X3+X4                                                   GRA      4781
          3037  5140000000 X                      SA4    BSI                                                     GRA      4782
                          36630                   IX6    X3+X0                                                   GRA      4783
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   115
        CLB - CODE LOOP BODY                                          CLB 
  
                               63551              SB5    X5+B1                                                   GRA      4784
          3040  53645                             SA6    B5+X4       BST(BSI+1) = BSW(CL,PC,LEN)                 GRA      4785
                     43700                        MX7    0                                                       GRA      4786
                          5110000173 C            SA1    NXC                                                     GRA      4787
          3041  0311003045 +                      NZ     X1,CLB10    IF NXC " 0    */ LOCKED X-MODE              GRA      4788
                          5110000205 C            SA1    NAA                                                     FCC0603    40
          3042  0311003045 +                      NZ     X1,CLB10    IF NAA " 0    */ LOCKED A-REGS              FCC0603    41
                                                                                                                 GRA      4789
                          5170000036 C            SA7    PL          PL = 0                                      GRA      4790
          3043  10466                             BX4    X6                                                      GRA      4791
                     55161                        SA1    A6-B1       BAW = BST(BSI)                              GRA      4792
                          0100003142 +            RJ     WSC         DUMP CODE                                   GRA      4793
          3044  5170000036 C                      SA7    PL          PL = 0                                      GRA      4794
                          5170000000 X            SA7    L.PIT       L.PIT = 0                                   GRA      4795
                                                                                                                 GRA      4796
                                        *         ADVANCE TO NEXT SEQUENCE                                       GRA      4797
                                                                                                                 GRA      4798
          3045  5110000000 X             CLB10    SA1    BSI                                                     GRA      4799
                          5120000000 X            SA2    L.BST                                                   GRA      4800
          3046  7261000002                        SX6    X1+2        BSI = BSI + 2                               GRA      4801
                          7232777776              SX3    X2-1                                                    GRA      4802
          3047  37763                             IX7    X6-X3                                                   GRA      4803
                     54610                        SA6    A1                                                      GRA      4804
                          0337003010 +            MI     X7,CLB4     IF BSI < L.BST - 1                          GRA      4805
                                                                                                                 GRA      4806
          3050  7170000004                        SX7    4                                                       GRA      4807
                          5170000000 X            SA7    L.TXT       L.TXT = 4                                   GRA      4808
  
                                        *         WRITE THE SAVED CODE BACK TO *BLK*                             GRA      4810
                                                                                                                 GRA      4811
          3051  5110000000 X                      SA1    L.PIT                                                   FCC0603    42
                          0301002753 +            ZR     X1,CLB      IF L.PIT = 0  */ NO SAVED CODE              FCC0603    43
          3052  76611                             SX6    B1+B1       BSI = 2                                     GRA      4814
                     43700                        MX7    0                                                       GRA      4815
                          5170000036 C            SA7    PL          PL = 0                                      GRA      4816
                                                                                                                 GRA      4817
          3053  5120000000 X             CLB11    SA2    O.BST                                                   GRA      4818
                          36762                   IX7    X6+X2                                                   GRA      4819
                               53170              SA1    X7          BAW = BST(BSI)                              GRA      4820
          3054  53471                             SA4    X7+B1       BSW = BST(BSI+1)                            GRA      4821
                     0301003061 +                 ZR     X1,CLB13    IF BAW = 0    */ END OF *BST*               GRA      4822
          3055  0304003060 +                      ZR     X4,CLB12    IF BST(BSI+1) = 0 */NOT CODED               FCCA509X   39
                          5160000000 X            SA6    BSI                                                     FCCA509X   40
          3056  0100003142 +                      RJ     WSC         WRITE SAVED CODE TO *BLK*                   GRA      4828
          3057  5110000000 X                      SA1    BSI                                                     GRA      4829
                          7261000000              SX6    X1+                                                     GRA      4830
          3060  7266000002               CLB12    SX6    X6+2        BSI = BSI + 2                               GRA      4831
                          0400003053 +            EQ     CLB11                                                   GRA      4832
                                                                                                                 GRA      4833
          3061  7160000000               CLB13    SX6    0                                                       GRA      4834
                          5160000000 X            SA6    L.PIT       L.PIT = 0                                   GRA      4835
          3062  0400002753 +                      EQ     CLB                                                     GRA      4836
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   116
        CLB - CODE LOOP BODY                                          CLB 
  
                                        *         *MCG* FAILED, REDUCE LOCKED X-REG COUNT AND TRY AGAIN.         GRA      4838
                                                                                                                 GRA      4839
          3063  5110000173 C             CLB14    SA1    NXC                                                     FCC0811     9
                          0301003066 +            ZR     X1,CLB17    IF NXC = 0                                  FCC0811    10
          3064  0100003104 +                      RJ     RXA         REMOVE LAST X-ASSIGNMENT                    FCC0811    11
                                                  PRINT  CLB,(* --- MCG FAIL ---*)                               GRA      4858
          3065  0400002774 +                      EQ     CLB1                                                    GRA      4859
  
  
                                        *         A-REGS LOCKED AND MCG FAILED, REDUCE *MARA* AND RESTART        FCC0603    48
                                                                                                                 FCC0603    49
          3066  7170003076 +             CLB17    CLCM   CLW         CLEAR LINK WORDS                            FCC0603    50
          3070  5110000205 C                      SA1    NAA                                                     FCC0603    51
                          7261777776              SX6    X1-1        MARA = NAA - 1                              FCC0603    52
          3071  5160000000 +                      SA6    MARA                                                    FCC0603    53
                          7170000004              SX7    4                                                       FCC0603    54
          3072  5170000000 X                      SA7    L.TXT       L.TXT = 4                                   FCC0603    55
                          7170000000              SX7    0                                                       FCC0603    56
          3073  5170000000 X                      SA7    L.PIT       L.PIT = 0                                   FCC0603    57
                          5170000000 X            SA7    L.RCT       L.RCT = 0                                   FCC0603    58
          3074  5170000024 C                      SA7    LUL+1       LUL(2) = 0                                  FCC0603    59
                          43644                   MX6    36                                                      FCC0603    60
                               14666              BX6    -X6                                                     FCC0603    61
          3075  5160000015 C                      SA6    MRA         MRA = ^MASK(36)                             FCC0603    62
                          0400000005 +            EQ     GRA0                                                    FCC0603    63
  
  
  
                                        **        CLW - CLEAR LINK WORDS OF A BLOCK                              FCC0603    65
                                                                                                                 FCC0603    66
          3076  0200403076 +             CLW      ROUTINE                                                        FCC0603    67
          3077  5110000000 X                      SA1    O.SEQ                                                   FCC0603    68
                          5120000000 X            SA2    L.SEQ                                                   FCC0603    69
          3100  6140000004                        SB4    4                                                       FCC0603    70
                          6221000003              SB2    X1+3        I = 3                                       FCC0603    71
          3101  36312                             IX3    X1+X2                                                   FCC0603    72
                     43600                        MX6    0                                                       FCC0603    73
                          63330                   SB3    X3                                                      FCC0603    74
                                                                                                                 FCC0603    75
          3102  56620                    CLW1     SA6    B2          SEQ(I) = 0                                  FCC0603    76
                     66224                        SB2    B2+B4       I = I + 4                                   FCC0603    77
                          0632003102 +            LE     B2,B3,CLW1  IF I < L.SEQ                                FCC0603    78
                                                                                                                 FCC0603    79
          3103  0400003076 +                      EQ     CLW                                                     FCC0603    80
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   117
        CLB - CODE LOOP BODY                                          RXA 
  
                                        **        RXA - REMOVE AN X-ASSIGNMENT FROM *RCT*                        FCC0811    13
                                        *                                                                        FCC0811    14
                                        *         ENTRY  (A1,X1) = NXC,[NXC]                                     FCC0811    15
                                        *                                                                        FCC0811    16
                                        *         EXIT   (X6) = NXC , DECREMENTED                                FCC0811    17
                                                                                                                 FCC0811    18
          3104  0200403104 +             RXA      ROUTINE                                                        FCC0811    19
          3105  5130000000 X                      SA3    O.RCT                                                   FCC0811    20
                          5221000173 C            SA2    XCT-1+X1    J = CO[XCT(NXC)]                            FCC0811    21
          3106  43002                             MX0    2                                                       FCC0811    22
                                                  LX0    2+CA.RAFP                                               FCC0811    23
                     63330                        SB3    X3                                                      FCC0811    24
                          53423                   SA4    B3+X2                                                   FCC0811    25
                               15640              BX6    -X0*X4      (RA,IRA)RCT(J) = 0                          FCC0811    26
          3107  54640                             SA6    A4                                                      FCC0811    27
                     43066                        MX0    -CC.REG1L                                               FCC0811    28
                          5054000002              SA5    A4+2        CCW = RCT(J+2)                              FCC0811    29
                                                  LX5    -CC.REG1P                                               FCC0811    30
          3110  15250                             BX2    -X0*X5      REGN = REG1[CCW]                            FCC0811    31
                     43052                        MX0    -CC.REGFL                                               FCC0811    32
                                                  LX0    CC.REGFP                                                FCC0811    33
                                                  LX5    CC.REG1P                                                FCC0811    34
                          11605                   BX6    X0*X5       REGF[RCT(J+2)] = 0                          FCC0811    35
                               54650              SA6    A5                                                      FCC0811    36
          3111  7261777776                        SX6    X1-1        NXC = NXC - 1                               FCC0811    37
                          54610                   SA6    A1                                                      FCC0811    38
          3112  0302003104 +                      ZR     X2,RXA      IF REGN = 0                                 FCC0811    39
                          43700                   MX7    0                                                       FCC0811    40
          3113  5272000100 C                      SA7    RAT+X2      RAT(REGN) = 0                               FCC0811    41
                          5272000130 C            SA7    RVT+X2      RVT(REGN) = 0                               FCC0811    42
          3114  0400003104 +                      EQ     RXA                                                     FCC0811    43
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   118
        CXB - CODE EXTENDED BASIC BLOCK                               CXB 
  
                                        **        CXB - CODE EXTENDED BASIC BLOCK ( STRAIGHT LINE CODE )         GRA      4861
                                                                                                                 GRA      4862
          3115                           CXB      ENTRY. **,#                                                    CCGNC     663
          3116  5110000000 X                      SA1    L.SEQ                                                   GRA      4864
                          6221777767              SB2    X1-8                                                    GRA      4865
          3117  0602003115 +                      LE     B2,CXB      IF L.SEQ @ 8                                GRA      4866
                                                                                                                 GRA      4867
                          0100000000 X            CALL   AIS#        ASSIGN INDEX REGISTERS                      CCGNC     664
          3120  43600                             MX6    0                                                       GRA      4869
                     5160000036 C                 SA6    PL          PL = 0                                      GRA      4870
                               43300              MX3    0                                                       GRA      4871
          3121  0100003130 +                      RJ     CIS         SET *PC* AND CODE SEQUENCE                  GRA      4872
          3122  5110000000 X                      SA1    O.BST                                                   GRA      4873
                          5120000000 X            SA2    BSI                                                     GRA      4874
          3123  5130000000 X                      SA3    =XPC                                                    GRA      4875
                          5140000000 X            SA4    L.PIT                                                   GRA      4876
          3124  36712                             IX7    X1+X2                                                   GRA      4877
                     53170                        SA1    X7          BAW = BST(BSI)                              GRA      4878
                          20344                   LX3    BS.PCP                                                  GRA      4879
                               12434              BX4    X3+X4       BSW = BSW(0,PC,L.PIT)                       GRA      4880
          3125  0100003142 +                      RJ     WSC         WRITE SAVED CODE TO *BLK*                   GRA      4881
          3126  7160000004                        SX6    4                                                       GRA      4882
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   GRA      4883
          3127  5170000000 X                      SA7    L.PIT       L.PIT = 0                                   GRA      4884
                          0400003115 +            EQ     CXB                                                     GRA      4885
  
  
                                        **        CIS - CODE INSTRUCTION SEQUENCE                                GRA      4887
                                        *                SETS THE INITIAL VALUE OF *PARCEL* AND CALLS *MCG*.     GRA      4888
                                        *                                                                        GRA      4889
                                        *         ENTRY  (X3) = NXC , *MCG* LOCKED REGISTER FLAG                 GRA      4890
                                        *         EXIT   (X6) = MCGFAIL FLAG, = 0 IF SEQUENCE CODED              GRA      4891
                                                                                                                 GRA      4892
          3130  0200403130 +             CIS      ROUTINE                                                        GRA      4893
          3131  5110000000 X                      SA1    O.BST                                                   GRA      4894
                          5120000000 X            SA2    O.BIT                                                   GRA      4895
          3132  5140000000 X                      SA4    BSI         J = BSI                                     GRA      4896
                          63210                   SB2    X1                                                      GRA      4897
                               63320              SB3    X2                                                      GRA      4898
          3133  53442                             SA4    B2+X4                                                   GRA      4899
                     20430                        LX4    -BA.BIP     BI = BI[BST(J)]                             GRA      4900
                          53543                   SA5    B3+X4       BIW = BIT(BI)                               GRA      4901
                               43700              MX7    0           PPC = 0       */ PREVIOUS SEQ *PC*          GRA      4902
          3134  20502                             LX5    59-BI.ILP                                               GRA      4903
                     0335003137 +                 MI     X5,CIS2     IF IL[BIW]    */ BLOCK HAS A INITIAL LABEL  GRA      4904
                               43672              MX6    -BI.PCL                                                 GRA      4905
                                                                                                                 GRA      4906
          3135  5055777775               CIS1     SA5    A5-2        BI = BI - 2;  BIW = BIT(BI)                 GRA      4907
                          20501                   LX5    59-BI.CBP                                               GRA      4908
          3136  0325003135 +                      PL     X5,CIS1     IF ^CB[BIW]   */ PART OF AN EXTENDED BLOCK  GRA      4909
                          20527                   LX5    1+BI.CBP-BI.PCP                                         GRA      4910
                               15756              BX7    -X6*X5      PPC = PC[BIW]                               GRA      4911
                                                                                                                 GRA      4912
          3137  7263000000               CIS2     SX6    X3+                                                     GRA      4913
                          5170000000 X            SA7    =XCC$PC     CC$PC = PPC                                 CCGNC     665
          3140  0100000000 X                      CALL   MCG# ( NXC )  CODE THE SEQUENCE                         CCGNC     666
          3141  0400003130 +                      EQ     CIS                                                     GRA      4916
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   119
        WSC - WRITE SAVED CODE FROM *PIT* TO *BLK*                    WSC 
  
                                        **        WSC - WRITE SAVED CODE IN *PIT* TO *BLK*                       GRA      4918
                                        *                                                                        GRA      4919
                                        *         ENTRY  (BSI) = *BST* INDEX                                     GRA      4920
                                        *                (PL) = INDEX TO SAVED CODE IN *PIT*                     GRA      4921
                                        *                (X1) = BAW = BST(BSI)                                   GRA      4922
                                        *                (X4) = BSW = BST(BSI+1) = BSW(CL,PC,LEN)                GRA      4923
                                        *                                                                        GRA      4924
                                        *         EXIT   (M.PL) = MAX *PIT* LENGTH OF A BLOCK UPDATED            GRA      4925
                                        *                (X7) = 0                                                GRA      4927
                                        *                *CB* AND *PC* FIELDS SET IN *BIT* ENTRY.                GRA      4928
                                                                                                                 GRA      4929
          3142  0200403142 +             WSC      ROUTINE                                                        GRA      4930
          3143  5150000000 X                      SA5    O.BIT                                                   FCC0675   238
                          20130                   LX1    -BA.BIP                                                 FCC0675   239
                               63310              SB3    X1          BN = BI[BAW]                                FCC0675   240
          3144  43053                             MX0    -BS.CLPCL                                               FCC0675   241
                     53253                        SA2    X5+B3       BIW = BIT(BN)                               FCC0675   242
                          5130000012 C            SA3    M.PL                                                    FCC0675   243
          3145  20044                             LX0    BS.CLPCP                                                FCC0675   244
                                                  LX4    -BS.LENP                                                GRA      4949
                     73140                        SX1    X4          LEN = LEN[BSW]                              GRA      4950
                                                  LX4    BS.LENP                                                 GRA      4951
                          5150000000 X            SA5    O.PIT                                                   GRA      4952
          3146  15440                             BX4    -X0*X4                                                  GRA      4953
                     76710                        SX7    B1                                                      GRA      4954
                          11202                   BX2    X0*X2                                                   GRA      4955
                               20772              LX7    BI.CBP                                                  GRA      4956
                                                  LX4    BI.PCP-BS.PCP                                           GRA      4957
          3147  12242                             BX2    X4+X2       CLPC[BIW] = CLPC[BSW]                       GRA      4958
                     37031                        IX0    X3-X1                                                   GRA      4959
                          5140000036 C            SA4    PL                                                      GRA      4960
          3150  12772                             BX7    X7+X2       CB[BIW] = 1   */ INDICATE BLOCK CODED       GRA      4961
                     54720                        SA7    A2                                                      GRA      4962
                          0320003152 +            PL     X0,WSC2     M.PL = MAX( M.PL , LEN )                    GRA      4963
          3151  73610                             SX6    X1                                                      GRA      4964
                     54630                        SA6    A3                                                      GRA      4965
                                                                                                                 GRA      4966
          3152  36645                    WSC2     IX6    X4+X5       FWAB = O.PIT + PL                           GRA      4967
                     36741                        IX7    X4+X1       PL = PL + LEN                               GRA      4968
                          5074000000              SA7    A4+                                                     GRA      4969
          3153  0100000000 X                      CALL   WFB#        WFB( FWAB , LEN )  */ WRITE TO *BLK*        CCGNC     667
          3154  43700                             MX7    0                                                       GRA      4971
                     0400003142 +                 EQ     WSC                                                     GRA      4972
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   120
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IRA                 IRA 
  
                                                  QUAL   IRA                                                     GRA      4974
                                                                                                                 GRA      4975
                                        **        IRA - INSERT REGISTER ASSIGNMENTS IN TO BLOCKS                 GRA      4976
                                        *         MODIFY SEQUENCE TO REFLECT REGISTER ASSIGNMENTS MADE IN GRA,   GRA      4977
                                        *         CHANGE INCREMENTS ( IA,IS ) TO SHORT INSTRUCTIONS, ETC.        GRA      4978
                                        *                                                                        GRA      4979
                                        *         ENTRY  (NXS) = N. EXTRA SPACE NEEDED                           GRA      4980
                                        *                RCT, NAA,ACT, TRD, LUL, LCV, LIH SET.                   GRA      4981
                                        *                LINK WORD OF INSTRUCTION POINTS TO *RCT* ENTRY.         GRA      4982
                                        *                                                                        GRA      4983
                                        *         EXIT   (LBJ) " 0 , IF SEQUENCE CONTAINS A LOOP BACK JUMP       GRA      4984
                                        *                                                                        GRA      4985
                                        *         DURING *IRA* THE LINK WORDS HOLD THE R-NUMBERS OF THE          GRA      4986
                                        *         INSTRUCTIONS THAT REFLECT THE VALUES THAT ARE AVAILABLE IN     GRA      4987
                                        *         THE DIFFERENT REGISTER CLASS"S.                                GRA      4988
                                                                                                                 GRA      4989
                                                  DESCRIBE I.,60     RNI(INB,ST,BR,XR)                           GRA      4990
      L     73  40000000000000000000     INB      DEFINE 1           =1 IF BR R-NUMBER IS AVAIL                  GRA      4991
      L     72  20000000000000000000     MIB      DEFINE 1           MINUS VALUE IN B-REG                        CCG0034     6
                                                  DEFINE 4                                                       CCG0034     7
      L     44  00777777000000000000     ST       DEFINE 18          ST REG R-NUMBER                             GRA      4993
      L     22  00000000777777000000     BR       DEFINE 18          B-REG R-NUMBER                              GRA      4994
      L      0  00000000000000777777     XR       DEFINE 18          X-REG R-NUMBER                              GRA      4995
                                                                                                                 GRA      4996
                                        *         REGISTER ASSIGNMENTS ( MAIN LOOP ) -                           GRA      4997
                                        *         (X0) = R-NUMBER MASK, (A5) = R1 , (A1,X1) = RCT(J)             GRA      4998
                                        *         (B2) = OC[R1] , B4 = [O.RCT] , B6 = TI , (B7) = [O.TXT]        GRA      4999
                                         SB       MICRO  1,,/B5/     O.SEQ + 3                                   GRA      5000
  
  
          3155  0200403155 +             IRA      ROUTINE                                                        GRA      5002
          3156  5110000000 X                      SA1    L.SEQ                                                   GRA      5003
                          5120000231 C            SA2    NXS                                                     GRA      5004
          3157  36112                             IX1    X1+X2                                                   GRA      5005
                     5100000000 X                 ALLOC  TXT,X1      ALLOC( TXT , L.SEQ+NXS )                    GRA      5006
          3161  5140000000 X                      SA4    O.SEQ       TI = OLD(L.TXT)                             GRA      5007
                          5130000000 X            SA3    O.RCT                                                   GRA      5008
          3162  63720                             SB7    X2          TB = O.TXT                                  GRA      5009
                     43700                        MX7    0                                                       GRA      5010
                          6254000003              S"SB"  X4+3        SB = O.SEQ + 3                              GRA      5011
          3163  53540                             SA5    X4          R1 = O.SEQ                                  GRA      5012
                     5214000004                   SA1    X4+4                                                    GRA      5013
                               63430              SB4    X3          (B4) = [O.RCT]                              GRA      5014
          3164  10655                             BX6    X5                                                      GRA      5015
                     56670                        SA6    B7          [TB] = [R1]   */ SET LINE NUM OF SEQ        GRA      5016
                          5170000130 C            SA7    RVT         RVT(0) = 0                                  GRA      5017
          3165  5170000251 C                      SA7    LBJF        LBJF = 0                                    CCG0119    14
                          5160000247 C            SA6    LBN         LBN = [R1]                                  FCC0985    21
          3166  56750                             SA7    "SB"        [SB] = 0                                    GRA      5019
                     26621                        UX6    B2,X1                                                   GRA      5020
                          7172777771              SX7    B2-OC.LAB                                               GRA      5021
          3167  5100000004                        SA0    4           LF = 4        */ INIT LAB NOT PRESENT       FCC2051    15
                          0317003172 +            NZ     X7,IRA1     IF OC[R1+4] " OC.LAB                        GRA      5022
                                                                                                                 GRA      5023
          3170  56000                             SA0    B0          LF = 0        */ INIT LAB PRESENT           FCC2051    16
                     54510                        SA5    A1          R1 = R1 + 4                                 GRA      5024
                          0100000000 X            RJ     SRI         SRI(  LAB  [R1],0 )                         GRA      5025
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   121
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IRA                 IRA 
  
          3171  5110000002 X                      SA1    F.RDT+OC.EOS                                            GRA      5026
                          10611                   BX6    X1          FT[DI] = 0                                  GRA      5027
                               54660              SA6    A6                                                      GRA      5028
  
  
                                        *         SCAN *RAT* AND SETUP INITIAL *DEF*"S AND *DAR*"S               GRA      5030
                                        *         CA OF R2 WORD HOLDS THE *CA* IN THE B-REG FOR PLD/PST"S.       GRA      5031
                                                                                                                 GRA      5032
          3172  7150000027               IRA1     SX5    27B         I = 27B       */ REGNO                      GRA      5033
                          6130000005              SB3    OC.DEF                                                  GRA      5034
          3173  43022                             MX0    IH.CAL                                                  GRA      5035
                     5110000005 X                 SA1    =XF.RDT+OC.DEF                                          GRA      5036
                               20044              LX0    IH.CAL+IH.CAP                                           GRA      5037
                                                                                                                 GRA      5038
          3174  5245000100 C             IRA3     SA4    RAT+X5                                                  GRA      5039
                          0304003210 +            ZR     X4,IRA5     IF RAT(I) = 0                               GRA      5040
          3175  53344                             SA3    B4+X4       J = R1[RAT(I)];  CAW = RCT(J)               GRA      5041
                     76660                        SX6    B6                                                      GRA      5042
                          5265000130 C            SA6    RVT+X5      RVT(I) = TI   */ R-NUMBER IN REG            GRA      5043
          3176  7225000200                        SX2    X5+SO.LOCK                                              GRA      5044
                          20220                   LX2    R1.SOP                                                  GRA      5045
                               12626              BX6    X2+X6                                                   GRA      5046
          3177  20430                             LX4    -RA.R3P                                                 GRA      5047
                     27636                        PX6    B3,X6                                                   GRA      5048
                          56676                   SA6    B7+B6       TXT(TI) = TYII(OC.DEF,0,FL+I,TI)            GRA      5049
                                                                                                                 GRA      5050
                               63241              SB2    X4+B1       J3 = R3[RAT(I)]                             GRA      5051
          3200  56242                             SA2    B4+B2                                                   GRA      5052
                     15702                        BX7    -X2*X0      CA[R2W] = -CA[RCT(J3+1)]                    GRA      5053
                          54761                   SA7    A6+B1       TXT(TI+1) = R2W                             GRA      5054
                               10711              BX7    X1                                                      FCC0603    81
          3201  54771                             SA7    A7+B1       TXT(TI+2) = RDT(OC.DEF)                     FCC0603    82
                     43700                        MX7    0                                                       FCC0603    83
                          54771                   SA7    A7+B1       TXT(TI+3) = 0                               FCC0603    84
                               20302              LX3    59-CA.VCP                                               GRA      5059
          3202  6166000004                        SB6    B6+4        TI = TI + 4                                 GRA      5060
                                                                                                                 GRA      5061
                          0323003210 +            PL     X3,IRA5     IF ^VC[CAW]                                 GRA      5062
          3203  20301                             LX3    CA.VCP-CA.ACP                                           GRA      5063
                     0323003210 +                 PL     X3,IRA5     IF ^AC[CAW]   */ NOT A PREFETCH             GRA      5064
                                                                                                                 GRA      5065
                                        *         OUTPUT *DAR* TO DEFINE THE R-NUM IN THE A-REG                  GRA      5066
                                                                                                                 GRA      5067
                               76710              SX7    B1                                                      FCC0603    85
          3204  20726                             LX7    R1.SOP+SO.LKP                                           FCC0603    86
                     12676                        BX6    X7+X6       SOLK[TXT(TI-4)] = 3  */ INDICATE *A-LOCK*   FCC0603    87
                          54660                   SA6    A6                                                      FCC0603    88
                               76660              SX6    B6                                                      GRA      5068
          3205  5265000120 C                      SA6    RVT+X5-8    RVT(I-8) = TI                               CCG25     163
                          7146777773              SX4    B6-4                                                    GRA      5069
          3206  20440                             TYPEI  DAR,X6,X4   SRI(  DAR  TI,TI-4 )                        GRA      5070
                                                                                                                 GRA      5071
          3210  7255777776               IRA5     SX5    X5-1        I = I - 1                                   GRA      5072
                          0315003174 +            NZ     X5,IRA3     IF I " 0                                    GRA      5073
                                                                                                                 GRA      5074
          3211  74606                             SX6    B6+A0       DTL = TI + LF                               FCC2051    17
                     5160000250 C                 SA6    DTL                                                     FCC2051    18
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   122
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IRA                 IRA 
  
          3212  7100600001                        SX0    RN.MASK                                                 CCG11     121
                          0400003272 +            EQ     IRA10                                                   GRA      5077
  
  
  
          3213                                    PROCESS EOQ                                                    GRA      5079
          3213  5130000233 C                      SA3    NPS                                                     FCC0985    22
                          5120000033 C            SA2    EPSI                                                    FCC0985    23
          3214  0303003245 +                      ZR     X3,EOQ5     IF NPS = 0                                  FCC0985    24
                          0302003245 +            ZR     X2,EOQ5     IF EPSI = 0                                 FCC0985    25
                                                                                                                 FCC0985    30
                                        *         SEARCH *RXI* FOR THIS *BN* AND SEE IF AN *EPS* NODE            FCC0985    31
                                                                                                                 FCC0985    32
          3215  5150000000 X                      SA5    BVL                                                     FCC0985    33
                          5140000000 C            SA4    O.UDT                                                   FCC0985    34
          3216  6225000002                        SB2    X5+2        V = BVL + 2   */ RXI INCREMENT              FCC0985    35
                          5110000000 X            SA1    O.RXI                                                   FCC0985    36
          3217  63341                             SB3    X4+B1       (B3) = UDT + 1                              FCC0985    37
                     53030                        SA0    X3          I = NPS                                     FCC0985    38
                          53511                   SA5    X1+B1       TI = RXI + 1                                FCC0985    39
                               43155              MX1    -E.PREDL                                                FCC0985    40
          3220  5120000247 C                      SA2    LBN         BN = IH[LBN]  */ LAST BOS/EOS               FCC0985    41
                                                                                                                 FCC0985    42
          3221  20533                    EOQ1A    LX5    -E.PREDP                                                FCC0985    43
                     13625                        BX6    X2-X5                                                   FCC0985    44
                          20541                   LX5    59-E.SCRP+E.PREDP                                       FCC0985    45
                               15761              BX7    -X1*X6                                                  FCC0985    46
          3222  0317003224 +                      NZ     X7,EOQ1B    IF PRED[RI] " BN                            FCC1107     5
                          0325003224 +            PL     X5,EOQ1B    IF ^SCR[RI]                                 FCC1107     6
          3223  20501                             LX5    E.SCRP-E.JPP                                            FCC1107     7
                     0325003226 +                 PL     X5,EOQ1C    IF ^JP[RI]    */ A FALL THROUGH EDGE        FCC1107     8
                                                                                                                 FCC1107     9
          3224  54552                    EOQ1B    SA5    A5+B2       RI = RI + V                                 FCC1107    10
                     0315003221 +                 NZ     X5,EOQ1A    IF [RI] " 0   */ NOT END OF TABLE           FCC0985    49
          3225  0400003245 +                      EQ     EOQ5                                                    FCC0985    50
                                                                                                                 FCC0985    51
          3226  6055000001               EOQ1C    SB5    A5+1        RB = RI + 1   */ LIVE ENTRY BIT VECTOR      FCC1107    11
                                                                                                                 FCC0985    56
                                        *         OUTPUT EPILOGUE POST STORES FOR VARIABLES LIVE ON EXIT         FCC0985    57
                                        *         FROM THIS BLOCK.                                               FCC0985    58
                                                                                                                 GRA      5093
          3227  5010000233 C             EOQ1     SA1    PST-1+A0    J = CO[PST(I)]                              GRA      5094
                          53214                   SA2    B4+X1       CAW = RCT(J);  K = UDI[RCT(J)]              GRA      5095
                               20152              LX1    -18         REGN = REG[PST(I)]                          GRA      5096
          3230  53323                             SA3    B3+X2       U2 = UDT(K+1)                               GRA      5097
                     53435                        SA4    B5+X3       LEW = [RB+WI[U2]]                           GRA      5098
                          76610                   SX6    B1                                                      FCC0513    13
                               26323              UX3    B2,X3       B = BITN[U2]                                FCC0513    14
          3231  22626                             LX6    B2,X6                                                   FCC0513    15
                     11764                        BX7    X6*X4                                                   FCC0513    16
                          0307003244 +            ZR     X7,EOQ4     IF ^B[LEW]    */ DEAD ON ENTRY              FCC0513    17
                                                                                                                 FCC0513    18
                                        *         SET BIT IN *LUV*, OUTPUT *ST* TO UPDATE VALUE IN MEMORY.       FCC0513    19
                                                                                                                 FCC0513    20
          3232  5140000004 C                      SA4    LUV                                                     FCC0513    21
                          63230                   SB2    X3                                                      FCC0513    22
                               53442              SA4    X4+B2                                                   FCC0513    23
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   123
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   EOQ                 IRA 
  
          3233  12664                             BX6    X6+X4       B[LUV(WI[U2])] = 1  */ SET BIT IN *LUV*     FCC0513    24
                     54640                        SA6    A4                                                      FCC0513    25
                                                                                                                 GRA      5105
                          5241000130 C            SA4    RVT+X1      RN = RVT(REGN)                              GRA      5106
          3234  7271777751                        SX7    X1-26B                                                  GRA      5107
                          0327003242 +            PL     X7,EOQ3     IF REGN \ 26B */ RESULT IN A *ST-REG*       GRA      5108
                                                                                                                 GRA      5109
          3235  7271777757                        SX7    X1-20B                                                  GRA      5110
                          6120000010              SB2    OC.XMT      OC = OC.XMT                                 GRA      5111
          3236  0327003237 +                      PL     X7,EOQ2     IF REGN \ 20B */ IN A X-REG                 GRA      5112
                          6120000060              SB2    OC.SA       OC = OC.SA                                  GRA      5113
          3237  43700                    EOQ2     MX7    0                                                       GRA      5114
                     76660                        TYPEI  B2,B6,X4    SRI(  XMT/SA  TI,RN )                       GRA      5115
          3241  7146777773                        SX4    B6-4        RN = TI - 4                                 GRA      5116
                                                                                                                 GRA      5117
          3242  54221                    EOQ3     SA2    A2+B1                                                   GRA      5118
                     6120000051                   SB2    OC.ST                                                   GRA      5119
                               43130              MX1    -IH.CAIHL                                               GRA      5120
          3243  73640                             SX6    X4          R1W = TYII(OC,0,0,RN)                       GRA      5121
                     15721                        BX7    -X1*X2      R2W = IHW(0,0,CAIH[RCT(J+1)])               GRA      5122
                          0100000000 X            RJ     SRI         SRI(  ST  RN,CAIH )                         GRA      5123
                                                                                                                 GRA      5124
          3244  65201                    EOQ4     SB2    A0-B1                                                   GRA      5125
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      5126
                          0702003227 +            GT     B2,EOQ1     IF I > 0                                    GRA      5127
                                                                                                                 GRA      5128
                                        *         CHECK FOR AND OUTPUT STORES FOR THE A/X CANIDATES              CCG25     164
                                                                                                                 CCG25     165
          3245  5110000251 C             EOQ5     SA1    LBJF                                                    CCG0119    15
                          0301003257 +            ZR     X1,EOQ7     IF NOT EXIT BLOCK                           CCG0119    16
                                                                                                                 CCG0119    17
          3246  5110001501 +                      SA1    AXCT        I = 1                                       CCG0119    18
                                                                                                                 CCG25     167
          3247  0301003257 +             EOQ6     ZR     X1,EOQ7     IF AXCT(I) = 0                              CCG25     168
                          5221000130 C            SA2    RVT+X1                                                  CCG25     169
          3250  43700                             MX7    0                                                       CCG25     170
                     76660                        TYPEI  XMT,B6,X2   SRI( XMT  RI,RVT(REGN) )                    CCG25     171
          3252  5231000120 C                      SA3    RVT+X1-10B                */ R-NUMBER IN A-REG          CCG25     172
                          21122                   AX1    18                                                      CCG25     173
                               73111              SX1    X1+B1                                                   CCG25     174
          3253  53214                             SA2    B4+X1       C2W = RCT(CO+1)                             CCG25     175
                     43730                        MX7    -IH.CAIHL                                               CCG25     176
                          15727                   BX7    -X7*X2                                                  CCG25     177
          3254  7166777773                        SX6    B6-4                                                    CCG25     178
                          20340                   TYPEI  SST,X6,X3   SRI( SST RI-4,ARN,,CAIH )                   CCG25     179
          3256  54111                             SA1    A1+B1       I = I + 1                                   CCG25     180
                     0400003247 +                 EQ     EOQ6                                                    CCG25     181
                                                                                                                 CCG25     182
          3257  6120000000               EOQ7     SB2    OC.EOQ                                                  CCG25     183
                          43600                   MX6    0                                                       GRA      5130
                               76700              SX7    B0                                                      GRA      5131
          3260  0100000000 X                      CALL   SRI         SRI(  EOQ  0,0 )                            GRA      5132
          3261  7166000000                        SX6    B6+                                                     GRA      5133
                          5160000000 X            SA6    L.TXT       L.TXT = TI                                  GRA      5134
          3262  0400003155 +                      EQ     IRA                                                     GRA      5135
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   124
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYI                 IRA 
  
          3263                                    PROCESS (UP,NR,RNZ)                                            GRA      5137
          3263  0307003264 +                      ZR     X7,TYI      IF RJ[R1] = 0                               GRA      5138
                          7126000004              SX2    B6+4        LJW = TI + 4  */ FAKE A B-OPERAND           GRA      5139
                                                                                                                 GRA      5140
                                        *         TYPE I INSTRUCTION, 2 X OPERANDS AND ARBITRARY X-RESULT        GRA      5141
                                                                                                                 GRA      5142
          3264  73220                    TYI      SX2    X2          J = SETX(LJW)  */ X-REG OP                  GRA      5143
                     76560                        SX5    B6                                                      GRA      5144
                          20240                   LX2    R1.RJP                                                  GRA      5145
                               73330              SX3    X3          K = SETX(LKW)                               GRA      5146
          3265  12225                             BX2    X2+X5                                                   GRA      5147
                     76660                        SX6    B6                                                      GRA      5148
                          20544                   LX5    I.STP                                                   GRA      5149
                               12656              BX6    X5+X6                                                   GRA      5150
          3266  5065000003                        SA6    A5+3        [R1+3] = RNI(0,TI,0,TI)                     GRA      5151
                          20320                   LX3    R1.RKP                                                  GRA      5152
                               12523              BX5    X2+X3                                                   GRA      5153
                                                                                                                 GRA      5154
          3267  43700                    TYIA     MX7    0           R2W = 0                                     GRA      5155
                     5142000000 X                 SA4    F.RDT+B2    D = RDT(OC[R1])                             GRA      5156
                               27625              PX6    B2,X5       R1W = TYI(OC[R1],J,K,TI)                    GRA      5157
                                                                                                                 GRA      5158
                                        *         TRANSFER INSTRUCTION TO *TXT*,  (X4,X6,X7) = D,R1W,R2W         GRA      5159
                                                                                                                 GRA      5160
          3270  56676                    TYIT     SA6    B7+B6       TXT(TI) = R1W                               GRA      5161
                     54761                        SA7    A6+B1       TXT(TI+1) = R2W                             GRA      5162
                          10644                   BX6    X4                                                      GRA      5163
                               54671              SA6    A7+B1       TXT(TI+2) = D                               GRA      5164
          3271  43700                             MX7    0                                                       GRA      5165
                     54761                        SA7    A6+B1       TXT(TI+3) = 0                               GRA      5166
                          6166000004              SB6    B6+4        TI = TI + 4                                 GRA      5167
                                                                                                                 GRA      5168
                                        *         ADVANCE TO NEXT INSTRUCTION, JUMP TO OPCODE PROCESSOR          GRA      5169
                                                                                                                 GRA      5170
          3272                                    PROCESS (BOS,NOP)                                              GRA      5171
          3272  5055000004               IRA10    SA5    A5+4        R1 = R1 + 4                                 GRA      5172
                          5045000002              SA4    A5+2        DI = R1 + 2                                 GRA      5173
          3273  43702                             MX7    D.TYL                                                   GRA      5174
                     54141                        SA1    A4+B1       LI = DI + 1                                 GRA      5175
                                                  LX4    58-D.TYP                                                GRA      5176
                          11374                   BX3    X7*X4                                                   GRA      5177
                               26625              UX6    B2,X5                                                   GRA      5178
          3274  0313003276 +                      NZ     X3,IRA11    IF TYPE[DI] " I                             GRA      5179
                                                                                                                 GRA      5180
                          20634                   LX6    -R1.RJP                                                 GRA      5181
                               15760              BX7    "RN"X6                                                  GRA      5182
          3275  20620                             LX6    R1.RJP-R1.RKP                                           GRA      5183
                     53275                        SA2    "SB"+X7     LJW = [SB+RJ[R1]]                           GRA      5184
                          15660                   BX6    "RN"X6                                                  GRA      5185
                               53365              SA3    "SB"+X6     LKW = [SB+RK[R1]]                           GRA      5186
                                                                                                                 GRA      5187
          3276  53114                    IRA11    SA1    B4+X1       J = CO[LI];  CAW = RCT(J)                   GRA      5188
                                                  LX4    2+D.TYP                                                 GRA      5189
                     0222004210 +                 JP     IRA.JT+B2   JUMP( IRA.JT( OC[R1] ) )                    GRA      5190
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   125
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   TYIV                IRA 
  
                                        *         TYPE IV INSTRUCTIONS                                           GRA      5192
                                                                                                                 GRA      5193
          3277                                    PROCESS EOS                                                    GRA      5194
          3277  73650                             SX6    X5                                                      FCC0985    59
                     0306003301 +                 ZR     X6,.LAB     IF IH[R1] = 0 */ ^ OPT=2 *EOS*              FCC0985    60
                                                                                                                 FCC0985    61
          3300  5160000247 C                      SA6    LBN         LBN = IH[R1]  */ SAVE FOR *EOQ*             FCC0985    62
                          0400003272 +            EQ     IRA10                                                   FCC0985    63
                                                                                                                 GRA      5197
          3301                                    PROCESS (LAB,ENT,UJP,RJ3,RJ6)                                  GRA      5198
          3301  54351                             SA3    A5+B1                                                   GRA      5199
                     22605                        LX6    X5                                                      GRA      5200
                          10733                   BX7    X3          R2W = [R1+1]                                GRA      5201
          3302  0400003270 +                      EQ     TYIT                                                    GRA      5202
  
  
  
                                        *         MISCELLANEOUS TYPE I INSTRUCTIONS                              GRA      5204
                                                                                                                 GRA      5205
          3303                                    PROCESS (ILS,IRS,PK)                                           GRA      5206
          3303  20252                             LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5207
                     0400003264 +                 EQ     TYI                                                     GRA      5208
  
  
          3304                                    PROCESS DRL                                                    GRA      5210
          3304  76660                             SX6    B6          R = TI                                      CCG0045     6
                     10744                        BX7    X4                                                      CCG0045     7
                          54641                   SA6    A4+B1       [DI+1] = RNI(0,0,0,TI)                      CCG0045     8
                               20727              LX7    59-D.L2P                                                CCG0045     9
          3305  0327003312 +                      PL     X7,DWL1     IF ^L2[DI]    */ LEVEL 0                    CCG0045    10
                          76760                   SX7    B6          R = TI                                      CCG0045    11
                               20744              LX7    I.STP                                                   GRA      5213
          3306  12767                             BX7    X6+X7                                                   GRA      5214
                     54741                        SA7    A4+B1       [DI+1] = RNI(0,TI,0,TI)                     GRA      5215
                          0400003312 +            EQ     DWL1                                                    GRA      5216
                                                                                                                 GRA      5217
          3307                                    PROCESS DWL                                                    GRA      5218
          3307  15750                             BX7    "RN"X5                                                  GRA      5219
                     53375                        SA3    "SB"+X7                                                 GRA      5220
                          10744                   BX7    X4                                                      CCGA039     5
                               20727              LX7    59-D.L2P                                                CCGA039     6
          3310  0337003311 +                      MI     X7,DWL0     IF L2[DI]                                   CCGA039     7
                          20330                   LX3    -I.STP      R = ST[SB+RI[R1]]                           CCGA039     8
                                        *                                                                        CCGA039     9
          3311  73630                    DWL0     SX6    X3          ELSE R= XR[SB+RI[R1]]                       CCGA039    10
                                                                                                                 GRA      5222
          3312  73220                    DWL1     SX2    X2          J = XR[LJW]                                 GRA      5223
                     54151                        SA1    A5+B1       R2 = R1 + 1                                 GRA      5224
                          20240                   LX2    R1.RJP                                                  GRA      5225
                               12626              BX6    X2+X6                                                   GRA      5226
          3313  20130                             LX1    -IH.RFP                                                 GRA      5227
                     27626                        PX6    B2,X6                                                   GRA      5228
                          15310                   BX3    "RN"X1      LF = RF[R2]                                 FCC0645    22
                               11101              BX1    X0*X1                                                   FCC0645    23
          3314  0303003316 +                      ZR     X3,DWL2     IF LF = 0     */ NO RF                      FCC0645    24
                          53335                   SA3    "SB"+X3     LF = [SB+R]                                 FCC0645    25
          3315  0313003316 +                      NZ     X3,DWL2     IF LF " 0     */ RF MATERIALIZED            FCC0645    26
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   126
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   DRL                 IRA 
  
                          20234                   LX2    -R1.RJP                                                 FCC0645    27
                               73320              SX3    X2          LF = J        */ USE RJ AS RF               FCC0645    28
          3316  0323003317 +             DWL2     PL     X3,DWL3     IF ^INB[LF]                                 FCC0645    29
                          20352                   LX3    -I.BRP      LF = SHIFT(LF,-I.BRP)                       FCC0645    30
          3317  73330                    DWL3     SX3    X3                                                      FCC0645    31
                     12731                        BX7    X3+X1       RF[R2] = SETX(LF)                           FCC0645    32
                          5132000000 X            SA3    F.RDT+B2                                                CCG16     235
          3320  76210                             SX2    B1                                                      CCG16     236
                     20244                        LX2    D.L2P                     */ L2[D] = 0 IF *SUB0*        CCG16     237
                          15424                   BX4    -X4*X2                                                  CCG16     238
                               13434              BX4    X3-X4       D = RDT(OC[R1]) & ^L2[DI]                   CCG16     239
          3321  20744                             LX7    IH.RFP                                                  GRA      5236
                     0400003270 +                 EQ     TYIT                                                    GRA      5237
  
  
          3322                                    PROCESS SS                                                     GRA      5239
          3322  20252                             LX2    -I.BRP                                                  GRA      5240
                     20352                        LX3    -I.BRP                                                  GRA      5241
                          0400003264 +            EQ     TYI                                                     GRA      5242
  
  
          3323                                    PROCESS SA                                                     GRA      5244
                                                  LX1    59-CA.RAP                                               GRA      5245
          3323  0331004011 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5246
                          0322003333 +            PL     X2,SA1      IF ^INB[LJW]                                GRA      5247
          3324  20252                             LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5248
                     0313003333 +                 NZ     X3,SA1      IF LKW " 0                                  GRA      5249
                                                                                                                 GRA      5250
                               20425              LX4    59-D.PRSP                                               GRA      5251
          3325  43766                             MX7    -SO.REGL                                                GRA      5252
                     0324003335 +                 PL     X4,SA2      IF ^PRS[DI]                                 FCC0414    10
          3326  5015000004                        SA1    A5+4        R1RS = R1 + 4                               GRA      5254
                          20154                   LX1    -R1.SOP                                                 GRA      5255
                               15617              BX6    -X7*X1      REGNO = SOREG[R1RS]                         GRA      5256
          3327  20165                             LX1    59-SO.LKP                                               GRA      5257
                     7276777767                   SX7    X6-8                                                    GRA      5258
          3330  0327003333 +                      PL     X7,SA1      IF REGNO > 7                                GRA      5259
                          0321003333 +            PL     X1,SA1      IF SOLK[R1RS] " 1  */ NOT TEMP LOCK         GRA      5260
                                                                                                                 GRA      5261
          3331  54510                             SA5    A1          R = R1RS      */ OMIT *RS*                  GRA      5262
                     20222                        LX2    I.BRP                                                   GRA      5263
                          10722                   BX7    X2                                                      GRA      5264
                               55711              SA7    A1-B1       [R1+3] = LJW                                GRA      5265
          3332  0400003272 +                      EQ     IRA10                                                   GRA      5266
                                                                                                                 GRA      5267
          3333  0323003264 +             SA1      PL     X3,TYI      IF ^INB[LKW]                                GRA      5268
                          20352                   LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5269
          3334  0400003264 +                      EQ     TYI                                                     GRA      5270
                                                                                                                 FCC0414    11
                                        *         SA  RI,RJ ,AND OPERAND IN A B-REG                              FCC0414    12
                                                                                                                 FCC0414    13
          3335  76660                    SA2      SX6    B6                                                      FCC0414    14
                     73220                        SX2    X2                                                      FCC0414    15
                          43701                   MX7    1                                                       FCC0414    16
                               20222              LX2    I.BRP                                                   FCC0414    17
          3336  12776                             BX7    X7+X6                                                   FCC0414    18
                     20644                        LX6    I.STP                                                   FCC0414    19
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   127
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   SA                  IRA 
  
                          12626                   BX6    X2+X6                                                   FCC0414    20
                               12776              BX7    X7+X6                                                   FCC0414    21
          3337  54741                             SA7    A4+B1       [DI+1] = RNI(1,TI,SETX(LJW),TI)             FCC0414    22
                     76560                        SX5    B6                                                      FCC0414    23
                          20216                   LX2    R1.RJP-I.BRP                                            FCC0414    24
                               12525              BX5    X2+X5                                                   FCC0414    25
          3340  0400003267 +                      EQ     TYIA                                                    FCC0414    26
  
  
          3341                                    PROCESS IA                                                     GRA      5272
          3341  12623                             BX6    X2+X3                                                   GRA      5273
                     0326003264 +                 PL     X6,TYI      IF ^( INB[LJW] ! INB[LKW] )                 GRA      5274
          3342  5140000000 X                      SA4    =XHO$LCM                                                CCGA097     8
                          0324003352 +            PL     X4,IAA            */ IF NOT LCM=G                       CCGA097     9
          3343  5042777774                        SA4    A2-3        R1W = [SB+RJ[R1]] - 3                       CCGA097    10
                          26424                   UX4    B2                                                      CCGA097    11
          3344  0322003347 +                      PL     X2,IA4      IF ^INB[LJW]                                CCGA097    12
                          7170777772              SX7    -OC.DEF                                                 CCGA097    13
          3345  73772                             SX7    X7+B2                                                   CCGA097    14
                     0317003347 +                 NZ     X7,IA4      IF ^(OC = OC.DEF)                           CCGA097    15
                               76360              SX3    B6                                                      CCGA097    16
          3346  0400003365 +                      EQ     IA6                                                     CCGA097    17
                                                                                                                 CCGA097    18
          3347  5043777774               IA4      SA4    A3-3        R1W = [SB+RK[R1]] - 3                       CCGA097    19
                          26424                   UX4    B2                                                      CCGA097    20
          3350  0333003363 +                      MI     X3,IA5      IF INB[LKW]                                 CCGA097    21
                                                                                                                 CCGA097    22
          3351  6120000036               IA       SB2    OC.IA                               */   RESTORE B2     CCGA097    23
                                                                                                                 CCGA097    24
          3352  20111                    IAA      LX1    59-CA.RFP                                               CCGA097    25
                     0321003264 +                 PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE      GRA      5276
                                                                                                                 GRA      5277
          3353  6120000060                        SB2    OC.SA       OC = OC.SA                                  GRA      5278
                          11623                   BX6    X2*X3                                                   GRA      5279
          3354  0336003357 +                      MI     X6,IA2      IF INB[LJW] AND INB[LKW]                    CCG0034     8
                          10622                   BX6    X2                                                      GRA      5281
          3355  0322003356 +                      PL     X2,IA1      IF ^INB[LJW]  */ X+B IS OK                  GRA      5282
                          10233                   BX2    X3                                                      GRA      5283
                               22306              LX3    X6          SWAP( LJW , LKW )                           GRA      5284
          3356  20352                    IA1      LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5285
                     0400003264 +                 EQ     TYI                                                     GRA      5286
          3357  12623                    IA2      BX6    X2+X3                                                   CCG0034     9
                     20601                        LX6    59-I.MIBP                                               CCG0034    10
                          0326003403 +            PL     X6,IS1      IF NOT ( MIB[LJW] OR MIB]LKW] )             CCG0034    11
          3360  6120000063                        SB2    OC.SS       OC = OC.SS                                  CCG0034    12
                          10633                   BX6    X3                                                      CCG0034    13
                               20601              LX6    59-I.MIBP                                               CCG0034    14
          3361  0336003403 +                      MI     X6,IS1      IF MIB[LKW]                                 CCG0034    15
                          10322                   BX3    X2          SWAP( LJW , LKW )                           CCG0034    16
                               20673              LX6    1+I.MIBP                                                CCG0034    17
          3362  10266                             BX2    X6                                                      CCG0034    18
                     0400003403 +                 EQ     IS1                                                     CCG0034    19
                                                                                                                 CCGA097    26
          3363  7170777772               IA5      SX7    -OC.DEF                                                 CCGA097    27
                          73772                   SX7    X7+B2                                                   CCGA097    28
          3364  0317003351 +                      NZ     X7,IA       IF ^(OC = OC.DEF)                           CCGA097    29
                          76360                   SX3    B6                                                      CCGA097    30
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   128
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   IA                  IRA 
  
                                                                                                                 CCGA097    31
          3365  20454                    IA6      LX4    -R1.SOP                                                 CCGA097    32
                     43766                        MX7    -SO.REGL                                                CCGA097    33
                          15547                   BX5    -X7*X4                                                  CCGA097    34
          3366  6120777773                        SB2    -4                                                      CCGA097    35
                                                                                                                 CCGA097    36
          3367  7170777772               IA7      SX7    -OC.DEF                                                 CCGA097    37
                                                                                                                 CCGA097    38
          3370  6122000004               IA8      SB2    B2+4                                                    CCGA097    39
                          0762003351 +            GT     B2,B6,IA                      */ IF END OF TABLE        CCGA097    40
          3371  56472                             SA4    B7+B2                                                   CCGA097    41
                     26434                        UX4    B3                                                      CCGA097    42
                          73673                   SX6    X7+B3                                                   CCGA097    43
          3372  0316003370 +                      NZ     X6,IA8                            */ IF NOT OC.DEF      CCGA097    44
                          43766                   MX7    -SO.REGL                                                CCGA097    45
                               20454              LX4    -R1.SOP                                                 CCGA097    46
          3373  15747                             BX7    -X7*X4                            */ REG TYPE AND NUM   CCGA097    47
                     37775                        IX7    X7-X5                                                   CCGA097    48
                          0317003367 +            NZ     X7,IA7               */ IF NOT B REG WE ARE LOOKING FOR CCGA097    49
          3374  76420                             SX4    B2                            */ B REG RI               CCGA097    50
                     76660                        SX6    B6                            */ NEXT AVAILABLE R NUM   CCGA097    51
                          20440                   TYPEI  SA,X6,X4    SRI(SA, RI, J)                              CCGA097    52
          3376  0400003351 +                      EQ     IA                                                      CCGA097    53
  
  
          3377                                    PROCESS IS                                                     GRA      5288
          3377  11623                             BX6    X2*X3                                                   GRA      5289
                     0326003264 +                 PL     X6,TYI      IF ^( INB[LJW] & INB[LKW] )                 GRA      5290
                               20111              LX1    59-CA.RFP                                               GRA      5291
          3400  0321003264 +                      PL     X1,TYI      IF ^RF[CI]    */ ^ *INC* AND SHORT USE      GRA      5292
                                                                                                                 GRA      5293
                          6120000063              SB2    OC.SS       OC = OC.SS                                  GRA      5294
          3401  10633                             BX6    X3                                                      CCG0034    20
                     20601                        LX6    59-I.MIBP                                               CCG0034    21
                          0326003403 +            PL     X6,IS1      IF NOT MIB[LKW]                             CCG0034    22
          3402  6120000060                        SB2    OC.SA       OC = OC.SA                                  CCG0034    23
          3403  20252                    IS1      LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5295
                     20352                        LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5296
                          0400003264 +            EQ     TYI                                                     GRA      5297
  
  
          3404                                    PROCESS SXT                                                    GRA      5299
                                                  LX1    59-CA.RAP                                               GRA      5300
          3404  0321003264 +                      PL     X1,TYI      IF ^RA[CAW]                                 GRA      5301
                                                                                                                 GRA      5302
                          5011000002              SA1    A1+2        CCW = RCT(J+2)                              GRA      5303
          3405  5055000004                        SA5    A5+4        R1 = R1 + 4                                 GRA      5304
                          43766                   MX7    -CC.REG1L                                               GRA      5305
                               73320              SX3    X2          LKW = XR[LJW]                               GRA      5306
                                                  LX1    -CC.REG1P                                               GRA      5307
          3406  15717                             BX7    -X7*X1                                                  GRA      5308
                     5227000130 C                 SA2    RVT+X7      LJW = RVT(REG1[CCW])                        GRA      5309
                               26625              UX6    B2,X5                                                   GRA      5310
          3407  6122000002                        SB2    B2-OC.KLS+OC.ILS  OC = OC[R1]-OC.KLS+OC.ILS             GRA      5311
                          0400003264 +            EQ     TYI                                                     GRA      5312
  
  
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   129
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   XMTC                IRA 
  
          3410                                    PROCESS XMTC                                                   FCC0513    28
          3410  0322003264 +                      PL     X2,TYI      IF ^INB[LJW]                                FCC0513    29
                          6120000063              SB2    OC.SS       OC = OC.SS                                  FCC0513    30
          3411  20252                             LX2    -I.BRP                                                  FCC0513    31
                     73320                        SX3    X2          LKW = BR[LJW]                               FCC0513    32
                          7120000000              SX2    0           LJW = 0                                     FCC0513    33
          3412  0400003264 +                      EQ     TYI                                                     FCC0513    34
  
  
  
          3413                                    PROCESS XMT                                                    GRA      5314
                                                  LX1    59-CA.RAP                                               GRA      5315
          3413  0331004011 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5316
                          20424                   LX4    59-D.PSP                                                GRA      5317
                               10722              BX7    X2                                                      GRA      5318
          3414  0324003417 +                      PL     X4,XMT1     IF ^PS[DI]                                  GRA      5319
                          20730                   LX7    -I.STP                                                  GRA      5320
                               73670              SX6    X7                                                      GRA      5321
          3415  0306003417 +                      ZR     X6,XMT1     IF ST[LJW] = 0  */ OPERAND NOT IN *ST* REG  GRA      5322
                                                                                                                 GRA      5323
                                        *         OPERAND FREE TO GO TO A *ST* REG, SKIP THE *XMT*               GRA      5324
                                                                                                                 GRA      5325
                          20744                   LX7    I.STP                                                   GRA      5326
                               54741              SA7    A4+B1       [DI+1] = LJW                                GRA      5327
          3416  0400003272 +                      EQ     IRA10                                                   GRA      5328
                                                                                                                 GRA      5329
          3417  76360                    XMT1     SX3    B6                                                      GRA      5330
                     73620                        SX6    X2          J = XR[LJW]                                 FCC1740X    5
                          20344                   LX3    I.STP                                                   FCC1740X    6
                               76560              SX5    B6                                                      FCC1740X    7
          3420  12736                             BX7    X3+X6       LW = RNI(0,TI,0,J)                          FCC1740X    8
                     0316003422 +                 NZ     X6,XMT2     IF J " 0                                    FCC1740X    9
                               20252              LX2    -I.BRP                                                  FCC1740X   10
          3421  73620                             SX6    X2          J = BR[LJW]                                 FCC1740X   11
                     6120000060                   SB2    OC.SA                                                   FCC1740X   12
                               12735              BX7    X3+X5       LW = RNI(0,TI,0,TI)                         FCC1740X   13
          3422  20640                    XMT2     LX6    R1.RJP                                                  FCC1740X   14
                     20401                        LX4    D.PSP-D.PRSP                                            CCG0012     8
                          0324003424 +            PL     X4,XMT3     IF NOT PRS[DI]                              CCG0012     9
          3423  73770                             SX7    X7          LW = RNI(0,0,0,X)  */ CLEAR ST FIELD        CCG0012    10
                                                                                                                 CCG0012    11
          3424  54741                    XMT3     SA7    A4+B1       [DI+1] = LW                                 CCG0012    12
                     12565                        BX5    X6+X5       R1W = TYI(0,J,0,TI)                         FCC1740X   16
                          0400003267 +            EQ     TYIA                                                    GRA      5338
  
  
          3425                                    PROCESS (PST,SST,SDS)                                          GRA      5340
          3425  15750                             BX7    "RN"X5                                                  GRA      5341
                     53175                        SA1    "SB"+X7                                                 GRA      5342
                          20130                   LX1    -I.STP                                                  GRA      5343
                               73610              SX6    X1          R = ST[SB+RI[R1]]                           GRA      5344
          3426  0400003430 +                      EQ     PLD1                                                    GRA      5345
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   130
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PLD                 IRA 
  
          3427                                    PROCESS (PLD,SLD,SDL)                                          GRA      5347
          3427  7166000000                        SX6    B6+         R = TI                                      GRA      5348
                          5065000003              SA6    A5+3        [R1+3] = RNI(0,0,0,TI)                      GRA      5349
                                                                                                                 GRA      5350
          3430  0322003431 +             PLD1     PL     X2,PLD2     IF ^INB[LJW]                                GRA      5351
                          20252                   LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5352
          3431  0323003432 +             PLD2     PL     X3,PLD3     IF ^INB[LKW]                                GRA      5353
                          20352                   LX3    -I.BRP      LKW = SHIFT(LKW,-I.BRP)                     GRA      5354
                                                                                                                 GRA      5355
          3432  73220                    PLD3     SX2    X2                                                      GRA      5356
                     27626                        PX6    B2,X6                                                   GRA      5357
                          20240                   LX2    R1.RJP                                                  GRA      5358
                               73330              SX3    X3                                                      GRA      5359
          3433  12626                             BX6    X2+X6                                                   GRA      5360
                     54251                        SA2    A5+B1       R2 = R1 + 1                                 GRA      5361
                          20320                   LX3    R1.RKP                                                  GRA      5362
                               12636              BX6    X3+X6       R1W = TYI(OC[R1],SETX(LJW),SETX(LKW),R)     GRA      5363
          3434  5110000000 X                      SA1    DMASK                                                   GRA      5364
                          20230                   LX2    -IH.RFP                                                 GRA      5365
                               15520              BX5    "RN"X2                                                  GRA      5366
          3435  53355                             SA3    "SB"+X5     LFW = [SB+RF[R2]]                           GRA      5367
                     0323003436 +                 PL     X3,PLD4     IF ^INB[LFW]                                GRA      5368
                               20352              LX3    -I.BRP                                                  GRA      5369
          3436  11202                    PLD4     BX2    X0*X2                                                   GRA      5370
                     73330                        SX3    X3          RF[R2W] = SETX(LFW)                         GRA      5371
                          12723                   BX7    X2+X3                                                   GRA      5372
                               15441              BX4    -X1*X4      D = [DI] & ^DMASK                           GRA      5373
          3437  20744                             LX7    IH.RFP                                                  GRA      5374
                     0400003270 +                 EQ     TYIT                                                    GRA      5375
  
  
          3440                                    PROCESS RS                                                     GRA      5377
          3440  43766                             MX7    -SO.REGL                                                GRA      5378
                     20654                        LX6    -R1.SOP                                                 GRA      5379
                          15267                   BX2    -X7*X6      REGNO = SOREG[R1]                           GRA      5380
                               20655              LX6    R1.SOP+59-R1.INP                                        GRA      5381
          3441  0326003443 +                      PL     X6,RS1      IF IN[R1] = 0 */ ^ A RJRS                   FCC0414    27
                          76660                   SX6    B6          R = TI                                      GRA      5383
          3442  0400003452 +                      EQ     RS2                                                     GRA      5384
                                                                                                                 GRA      5385
          3443  20101                    RS1      LX1    59-CA.IRAP                                              FCC0811    44
                     0331003272 +                 MI     X1,IRA10    IF IRA[CAW]   */ PRED AND RS TO BE MOVED    FCC0811    45
          3444  7166777773                        SX6    B6-4        R = TI - 4                                  GRA      5388
                          7232777767              SX3    X2-8                                                    GRA      5389
          3445  0333003452 +                      MI     X3,RS2      IF REGNO < 8  */ IN A B-REGISTER            FCC0764     5
                          7232777751              SX3    X2-26B                                                  FCC0764     6
          3446  0323003454 +                      PL     X3,RS3      IF REGNO \ 26B  */ IN A ST-REGISTER         FCC0764     7
                                                                                                                 FCC0764     8
                          55251                   SA2    A5-B1       LIP = R1 - 1  */ LINK WORD OF RS PRED       FCC0764     9
                               73720              SX7    X2                                                      FCC0764    10
          3447  20230                             LX2    -I.STP                                                  FCC0764    11
                     73320                        SX3    X2                                                      FCC0764    12
                          13773                   BX7    X7-X3                                                   FCC0764    13
          3450  0317003454 +                      NZ     X7,RS3      IF ST[LIP] " XR[LIP]                        FCC0764    14
                          11702                   BX7    X0*X2                                                   FCC0764    15
                               20744              LX7    I.STP       ST[LIP] = 0                                 FCC0764    16
          3451  54720                             SA7    A2                                                      FCC0764    17
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   131
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   RS                  IRA 
  
                     0400003454 +                 EQ     RS3                                                     FCC0764    18
                                                                                                                 GRA      5391
          3452  43701                    RS2      MX7    1                                                       GRA      5392
                                                  LX7    1+I.INBP                                                GRA      5393
                     20622                        LX6    I.BRP                                                   GRA      5394
                          12767                   BX7    X6+X7                                                   GRA      5395
                               20652              LX6    -I.BRP                                                  GRA      5396
          3453  15350                             BX3    "RN"X5                                                  GRA      5397
                     53735                        SA7    "SB"+X3     [SB+RI[R1]] = RNI(B,0,R,0)                  GRA      5398
                                                                                                                 GRA      5399
          3454  11505                    RS3      BX5    X0*X5                                                   GRA      5400
                     43263                        MX2    -D.USESL                                                GRA      5401
                          12656                   BX6    X5+X6       RI[R1W] = R                                 GRA      5402
                               43700              MX7    0           R2W = 0                                     GRA      5403
          3455  11424                             BX4    X2*X4       USES[DI] = 0;  D = [DI]                     GRA      5404
                     0400003270 +                 EQ     TYIT                                                    GRA      5405
  
  
  
          3456                                    PROCESS (FMA,CLR,S)                                            GRA      5407
                                                  LX1    59-CA.RAP                                               GRA      5408
          3456  0331004011 +                      MI     X1,PVC      IF RA[CAW]                                  GRA      5409
                                                                                                                 GRA      5410
          3457  76760                    FMA1     SX7    B6                                                      GRA      5411
                     76660                        SX6    B6                                                      GRA      5412
                          20744                   LX7    I.STP                                                   GRA      5413
                               12676              BX6    X7+X6       RNW = RNI(0,TI,0,TI)                        GRA      5414
                                                                                                                 GRA      5415
          3460  54641                    FMA2     SA6    A4+B1       [DI+1] = RNW                                GRA      5416
                     11505                        BX5    X0*X5                                                   GRA      5417
                          76760                   SX7    B6                                                      GRA      5418
                               12575              BX5    X7+X5       RI[R1W] = TI                                GRA      5419
          3461  0400003267 +                      EQ     TYIA                                                    GRA      5420
  
  
          3462                                    PROCESS DEF                                                    GRA      5422
          3462  43366                             MX3    -SO.REGL                                                GRA      5423
                     20554                        LX5    -R1.SOP                                                 GRA      5424
                          15753                   BX7    -X3*X5      REGN = SOREG[R1]                            GRA      5425
                               20520              LX5    R1.SOP                                                  GRA      5426
          3463  5237000130 C                      SA3    RVT+X7                                                  FCC0414    28
                          7227777751              SX2    X7-26B                                                  FCC0414    29
          3464  0313003470 +                      NZ     X3,DEF1     IF RVT(REGN) " 0  */ DEF IS A CANIDATE      FCC0414    30
                          0322003457 +            PL     X2,FMA1     IF REGN \ 26B  */ IN A STORE REG            GRA      5428
          3465  21704                             AX7    4                                                       GRA      5429
                     76660                        SX6    B6          RNW = RNI(0,0,0,TI)                         GRA      5430
                          0317003460 +            NZ     X7,FMA2     IF REGN \ 20B   */ X-REG                    GRA      5431
          3466  43701                             MX7    1                                                       GRA      5432
                     20622                        LX6    I.BRP                                                   GRA      5433
                          12676                   BX6    X7+X6       RNW = RNI(1,0,TI,0)                         GRA      5434
          3467  0400003460 +                      EQ     FMA2                                                    GRA      5435
                                                                                                                 FCC0414    31
                                        *         REGISTER ASSIGNMENT EXTENDED FROM INNER LOOP, SETUP LINK WORD  FCC0414    32
                                        *         AND SKIP THIS *DEF*.                                           FCC0414    33
                                                                                                                 FCC0414    34
          3470  73630                    DEF1     SX6    X3          R = RVT(REGN)                               FCC0414    35
                     20644                        LX6    I.STP                                                   FCC0414    36
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   132
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   DEF                 IRA 
  
                          12636                   BX6    X3+X6       RNW = RNI(0,R,0,R)                          FCC0414    37
                               21704              AX7    4                                                       FCC0414    38
          3471  0322003473 +                      PL     X2,DEF2     IF REGN \ 26B */ STORE REG                  FCC0414    39
                          43201                   MX2    1                                                       FCC0414    40
                               73630              SX6    X3          RNW = RNI(0,0,0,R)                          FCC0414    41
          3472  0317003473 +                      NZ     X7,DEF2     IF REGN \ 20B */ X-REG                      FCC0414    42
                          20322                   LX3    I.BRP                                                   FCC0414    43
                               12623              BX6    X2+X3       RNW = RNI(1,0,R,0)                          FCC0414    44
          3473  54641                    DEF2     SA6    A4+B1       [DI+1] = RNW                                FCC0414    45
                     0400003272 +                 EQ     IRA10                                                   FCC0414    46
  
  
          3474                                    PROCESS (KLS,KRS)                                              GRA      5437
          3474  76760                             SX7    B6                                                      GRA      5438
                     27627                        PX6    B2,X7       R1W = TYII(OC[R1],0,0,TI)                   GRA      5439
                          54741                   SA7    A4+B1       [DI+1] = RNI(0,0,0,TI)                      GRA      5440
                               66300              SB3    B0          SC = 0                                      GRA      5441
                                                                                                                 GRA      5442
                                        *         TYIII - ADJUST *RF*, SC, R1W SET                               GRA      5443
                                                                                                                 GRA      5444
          3475  54351                    TYIII    SA3    A5+B1       R2 = R1 + 1;  R2W = [R2]                    GRA      5445
                     5142000000 X                 SA4    F.RDT+B2    D = RDT(OC[R1])                             GRA      5446
                               20330              LX3    -IH.RFP                                                 GRA      5447
          3476  15530                             BX5    "RN"X3      R = RF[R2]                                  GRA      5448
                     53255                        SA2    "SB"+X5     LJW = [SB+R]                                GRA      5449
                          11303                   BX3    X0*X3                                                   GRA      5450
                               23232              AX2    B3,X2       LJW = SHIFT(LJW,-SC)                        GRA      5451
          3477  73120                             SX1    X2                                                      GRA      5452
                     12713                        BX7    X1+X3       RF[R2W] = SETX(LJW)                         GRA      5453
                          20744                   LX7    IH.RFP                                                  GRA      5454
          3500  0400003270 +                      EQ     TYIT                                                    GRA      5455
  
  
          3501                                    PROCESS (JIN,JPBB)                                             GRA      5457
          3501  6130000022                        SB3    I.BRP                                                   GRA      5458
                          5035000001              SA3    A5+1        R2 = R1 + 1                                 FCC0909    43
          3502  0323003521 +                      PL     X3,JIN3     IF [R2] < 0   */ NOT SPECIAL *JIN*          FCC0909    44
                          5120000000 X            SA2    =XL.HB                                                  FCC0909    45
          3503  7262777763                        SX6    X2-12                                                   FCC0909    46
                          0326003507 +            PL     X6,JIN2     IF L.HB > 8   */ *HB* IS NON EMPTY          FCC0909    47
          3504  5120000101 C                      SA2    RAT+1                                                   FCC0909    48
                          43633                   MX6    27          I = 27                                      FCC0909    49
          3505  0312003507 +             JIN1     NZ     X2,JIN2     IF RAT(I) " 0                               FCC0909    50
                          54221                   SA2    A2+B1                                                   FCC0909    51
                               20601              LX6    1           I = I - 1                                   FCC0909    52
          3506  0336003505 +                      MI     X6,JIN1     IF I " 0                                    FCC0909    53
                          0400003521 +            EQ     JIN3                      */ NO REGISTERS ASSIGNED      FCC0909    54
                                                                                                                 FCC0909    55
                                        *         HOLDING BLOCK IS OR WILL BE NON-EMPTY, SETUP CODE TO CHECK     FCC0909    56
                                        *         FOR JUMP TO TOP OF LOOP LABEL BEFORE *JP* INSTRUCTION.         FCC0909    57
                                                                                                                 FCC0909    58
          3507  5120000016 C             JIN2     SA2    LGL                                                     FCC0909    59
                          73720                   SX7    X2                                                      FCC0909    60
                               76660              TYPEI  STT,B6      SRI( STT  TI,,,SETX(LGL) )                  FCC0909    61
          3511  7166777773                        SX6    B6-4                                                    FCC0909    62
                          7120000103              SX2    SO.TLOCK+3                                              FCC0909    63
          3512  20220                             LX2    R1.SOP                                                  FCC0909    64
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   133
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JIN                 IRA 
  
                     12626                        BX6    X2+X6                                                   FCC0909    65
                          6120000004              TYPEI  RS,X6       SRI( RS  TI-4,TLOCK+3 )                     FCC0909    66
          3514  15750                             BX7    "RN"X5                                                  FCC0909    67
                     53375                        SA3    "SB"+X7                                                 FCC0909    68
                          5120000025 C            SA2    LIH                                                     FCC0909    69
          3515  20352                             LX3    -I.BRP      I = BR[SB+RI[R1]]                           FCC0909    70
                     7176777767                   SX7    B6-8        J = TI - 8                                  FCC0909    71
                               20744              LX7    IH.RFP                                                  FCC0909    72
          3516  12727                             BX7    X2+X7                                                   FCC0909    73
                     73630                        TYPEI  JPBB,X3     SRI( JPBB  I,J,0,LIH )                      FCC0909    74
          3520  6120000071                        SB2    OC.JIN                                                  FCC0909    75
                                                                                                                 FCC0909    76
          3521  15750                    JIN3     BX7    "RN"X5      R = RI[R1]                                  FCC0909    77
                     53375                        SA3    "SB"+X7     LJW = [SB+R]                                GRA      5461
                          11505                   BX5    X0*X5                                                   GRA      5462
                               23333              AX3    B3,X3                                                   GRA      5463
          3522  73230                             SX2    X3          R = SETX( SHIFT(LJW,-SC) )                  GRA      5464
                     12625                        BX6    X2+X5       RI[R1W] = R                                 GRA      5465
                          0400003475 +            EQ     TYIII                                                   GRA      5466
  
  
  
          3523                                    PROCESS RJXJ                                                   CCG2       15
          3523  54351                             SA3    A5+B1       R2 = R1 + 1                                 CCG2       16
                     66300                        SB3    B0          SC = 0                                      CCG2       17
                          0400003521 +            EQ     JIN3                                                    CCG2       18
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   134
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JPX                 IRA 
  
          3524                                    PROCESS JPX                                                    GRA      5468
          3524  5110000025 C                      SA1    LIH                                                     GRA      5469
                          54251                   SA2    A5+B1       R2 = R1 + 1                                 GRA      5470
                               66300              SB3    B0          SC = 0                                      GRA      5471
          3525  13612                             BX6    X1-X2                                                   GRA      5472
                     73760                        SX7    X6                                                      GRA      5473
                          0317003566 +            NZ     X7,JPX9     IF LIH " IH[R2]  */ NOT THE LOOP BACK JUMP  CCG24       2
          3526  7170000001                        SX7    1                                                       CCG0119    19
                          5170000251 C            SA7    LBJF        LBJF = 1                                    CCG0119    20
          3527  5110000172 C                      SA1    TRD                                                     GRA      5475
                          0301003532 +            ZR     X1,JPX0     IF TRD = 0    */ NO TEST REPLACEMENT        GRA      5476
          3530  5045777773                        SA4    A5-4                                                    GRA      5477
                          13645                   BX6    X4-X5                                                   GRA      5478
                               15760              BX7    "RN"X6                                                  GRA      5479
          3531  0317003532 +                      NZ     X7,JPX0     IF RI[R1] " RI[R1-4]                        GRA      5480
                          6166777773              SB6    B6-4        TI = TI - 4   */ DELETE LAST INSTRUCTION    GRA      5481
                                                                                                                 GRA      5482
                                        *         INSERT PREFETCHS FOR NEXT ITERATION OF LOOP                    GRA      5483
                                        *         NOTE - NO *IH* IN THE LD SINCE NO STORES INTO CLASS IN LOOP.   GRA      5484
                                                                                                                 GRA      5485
          3532  5130000205 C             JPX0     SA3    NAA                                                     GRA      5486
                          0303003554 +            ZR     X3,JPX7     IF NAA = 0    */ NO A-ASSIGNMENTS           GRA      5487
          3533  5203777776                        SA0    X3-1        I = NAA                                     GRA      5488
                                                                                                                 GRA      5489
          3534  5010000206 C             JPX1     SA1    ACT+A0      AI = ACT(I)                                 GRA      5490
                          5221000130 C            SA2    RVT+X1                                                  GRA      5491
          3535  63310                             SB3    X1          XREG = SETX( AI ) */ X-REGNO OF *LD*        GRA      5492
                     20130                        LX1    -CC.INCP    IP = INC[AI]                                GRA      5493
                          5123000120 C            SA2    RVT-8+B3    J = RVT(XREG-8)  */ R-NUM OF A-REG          CCG25     184
          3536  53314                             SA3    B4+X1       CAW = RCT(IP)                               GRA      5495
                     20146                        LX1    CC.INCP+59-CC.IMP                                       GRA      5496
                                                  LX3    59-CA.RAP                                               GRA      5497
                          0323003544 +            PL     X3,JPX3     IF ^RA[CAW]   */ INC NOT IN A REGISTER      GRA      5498
                                                                                                                 GRA      5499
          3537  6120000056                        SB2    OC.SLD      OC = OC.SLD                                 GRA      5500
                          0321003541 +            PL     X1,JPX2     IF ^IM[AI]                                  GRA      5501
          3540  6120000061                        SB2    OC.SDL      OC = OC.SDL                                 GRA      5502
          3541  5033000002               JPX2     SA3    A3+2        CCW = RCT(IP+2)                             GRA      5503
                          43766                   MX7    -CC.REG1L                                               GRA      5504
                                                  LX3    -CC.REG1P                                               GRA      5505
                               15737              BX7    -X7*X3      REGNO = REG1[CCW]                           GRA      5506
          3542  20240                             LX2    R1.RJP                                                  GRA      5507
                     5247000130 C                 SA4    RVT+X7      K = RVT(REGNO)                              GRA      5508
                               43700              MX7    0           R2W = 0                                     GRA      5509
          3543  20420                             LX4    R1.RKP                                                  GRA      5510
                     12624                        BX6    X2+X4       R1W = TYI(0,J,K,0)                          GRA      5511
                          0400003547 +            EQ     JPX5                                                    GRA      5512
                                                                                                                 GRA      5513
                                        *         INC NOT IN A REGISTER, MUST BE A CON ( *DAA* RESTRICTION ).    GRA      5514
                                                                                                                 GRA      5515
          3544  54331                    JPX3     SA3    A3+B1       C2W = RCT(IP+1)                             GRA      5516
                     20244                        LX2    IH.RFP                                                  GRA      5517
                          0321003546 +            PL     X1,JPX4     IF ^IM[AI]                                  GRA      5518
          3545  20330                             LX3    -IH.CAP-IH.CAL                                          GRA      5519
                     43422                        MX4    IH.CAL                                                  GRA      5520
                          15343                   BX3    -X3*X4      CA[C2W] = -CA[C2W]                          GRA      5521
                               20344              LX3    IH.CAL+IH.CAP                                           GRA      5522
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   135
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JPX                 IRA 
  
                                                                                                                 GRA      5523
          3546  6120000050               JPX4     SB2    OC.LD       OC = OC.LD                                  GRA      5524
                          43600                   MX6    0           R1W = 0                                     GRA      5525
                               12723              BX7    X2+X3       R2W = IHW(0,J,CA[C2W],0)                    GRA      5526
                                                                                                                 GRA      5527
          3547  76560                    JPX5     SX5    B6          R = TI                                      GRA      5528
                     12665                        BX6    X6+X5                                                   GRA      5529
                          0100000000 X            RJ     SRI         SRI(  OC  R,... )                           GRA      5530
                                                                                                                 GRA      5531
          3550  5123000130 C                      SA2    RVT+B3      J = RVT(XREG)                               GRA      5532
                          7143000200              SX4    SO.LOCK+B3                                              GRA      5533
          3551  6120000004                        SB2    OC.RS                                                   GRA      5534
                          20420                   LX4    R1.SOP                                                  GRA      5535
                               12645              BX6    X4+X5                                                   GRA      5536
          3552  20244                             LX2    IH.RFP                                                  GRA      5537
                     10722                        BX7    X2          R2W = IHW(0,J,0,0)                          GRA      5538
                          0100000000 X            RJ     SRI         SRI(  RS  R,FL+XREG,R2W )                   GRA      5539
          3553  64200                             SB2    A0                                                      GRA      5540
                     55001                        SA0    A0-B1       I = I - 1                                   GRA      5541
                          0702003534 +            GT     B2,JPX1     IF I > 0                                    GRA      5542
                                                                                                                 GRA      5543
          3554  5140000172 C             JPX7     SA4    TRD                                                     GRA      5544
                          54550                   SA5    A5                                                      GRA      5545
                               66300              SB3    B0          SC = 0                                      GRA      5546
          3555  26625                             UX6    B2,X5                                                   FCC0985    64
                     0304003566 +                 ZR     X4,JPX9     IF TRD = 0    */ NO TEST REPLACEMENT        CCG24       3
                                                                                                                 GRA      5551
                                        *         OUTPUT SPECIAL TEST JUMP,  GE  LUL,LCV,LIH                     GRA      5552
                                                                                                                 GRA      5553
          3556  5110000024 C                      SA1    LUL+1                                                   GRA      5554
                          5120000022 C            SA2    LCV+1                                                   GRA      5555
          3557  6120000070                        SB2    OC.JPBB                                                 GRA      5556
                          5211000130 C            SA1    RVT+X1      I = RVT(LUL(2))                             GRA      5557
          3560  5130000025 C                      SA3    LIH                                                     GRA      5558
                          5222000130 C            SA2    RVT+X2      J = RVT(LCV(2))                             GRA      5559
          3561  0324003563 +                      PL     X4,JPX8     IF TRD > 0    */ F(I) NOT NEGATIVE          GRA      5560
                          6231000000              SB3    X1+                                                     GRA      5561
          3562  10122                             BX1    X2          SWAP( I , J )                               GRA      5562
                     76230                        SX2    B3                                                      GRA      5563
                                                                                                                 GRA      5564
          3563  5142000000 X             JPX8     SA4    F.RDT+B2    D = RDT(OC.JPBB)                            GRA      5565
                          20244                   LX2    IH.RFP                                                  GRA      5566
                               76711              SX7    B1+B1                                                   GRA      5567
          3564  27621                             PX6    B2,X1       R1W = TYII(OC.JPBB,0,0,I)                   GRA      5568
                     12223                        BX2    X2+X3                                                   GRA      5569
                          20722                   LX7    IH.CAP                                                  GRA      5570
                               12772              BX7    X7+X2       R2W = IHW(0,J,2,LIH)                        GRA      5571
          3565  0400003270 +                      EQ     TYIT                                                    GRA      5572
                                        *         CONVERT ZR,NZ JUMPS TO TEST THE B-VALUES IF AVAILABLE          CCG24       4
                                                                                                                 CCG24       5
          3566  54451                    JPX9     SA4    A5+B1       R2 = R1 + 1                                 CCG24       6
                     43671                        MX6    -3                                                      CCG24       7
                          20452                   LX4    -IH.CAP                                                 CCG24       8
                               15646              BX6    -X6*X4                                                  CCG24       9
          3567  7276777775                        SX7    X6-2                                                    CCG24      10
                          0327003521 +            PL     X7,JIN3     IF JC[R2] " ZR,NZ                           CCG24      11
          3570  15750                             BX7    "RN"X5                                                  CCG24      12
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   136
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   JPX                 IRA 
  
                     53275                        SA2    "SB"+X7     LJW = [SB+RI[R1]]                           CCG24      13
                          20252                   LX2    -I.BRP                                                  CCG24      14
                               73220              SX2    X2                                                      CCG24      15
          3571  0302003521 +                      ZR     X2,JIN3     IF BR[LJW] = 0  */ NO B-REGISTER VALUE      CCG24      16
                                                                                                                 CCG0089     6
                          10622                   BX6    X2                                                      CCG0089     7
          3572  6130000010                        SB3    8                                                       CCG0089     8
                          5160000130 C            SA6    RVT                                                     CCG0089     9
          3573  5133000127 C             JPX10    SA3    RVT-1+B3    SEARCH RVT FOR MATCH OF R-NUM               CCG0089    10
                          13623                   BX6    X2-X3                                                   CCG0089    11
                               67331              SB3    B3-B1                                                   CCG0089    12
          3574  0316003573 +                      NZ     X6,JPX10                                                CCG0089    13
                          5160000130 C            SA6    RVT                                                     CCG0146     6
          3575  0430003521 +                      ZR     B3,JIN3     IF R-NUM NO LONGER AVAIL                    CCG0089    14
                                        *                            B3 = 0 WHEN GOING TO JIN3                   CCG0089    15
                                                                                                                 CCG24      17
                          6120000070              SB2    OC.JPBB                                                 CCG24      18
          3576  20422                             LX4    IH.CAP                                                  CCG24      19
                     27622                        PX6    B2,X2                                                   CCG24      20
                          10744                   BX7    X4                                                      CCG24      21
          3577  5142000000 X                      SA4    F.RDT+B2                                                CCG24      22
                          0400003270 +            EQ     TYIT                                                    CCG24      23
  
  
  
          3600                                    PROCESS (LD,ILD,TLD,LDC,LDV)                                   CCG16     240
                                                  LX1    59-CA.RAP                                               GRA      5575
          3600  76660                             SX6    B6          TR = TI                                     CCG23     126
                     0321003612 +                 PL     X1,LD1      IF ^RA[CAW]                                 GRA      5576
                               20102              LX1    CA.RAP-CA.VCP                                           GRA      5577
          3601  0331004011 +                      MI     X1,PVC      IF VC[CAW]                                  GRA      5578
                                                                                                                 GRA      5579
                          6120000050              SB2    OC.LD       OC[R1] = OC.LD                              GRA      5580
                                                                                                                 FCC1227     5
          3602  54351                             SA3    A5+B1       R2 = R1 + 1                                 FCC1227     6
                     73630                        SX6    X3                                                      FCC1227     7
                          0316004045 +            NZ     X6,PAC      IF IH[R2] " 0 */ NOT A F.P. ADDR LOAD       FCC1227     8
          3603  20330                             LX3    -IH.RFP                                                 FCC1227     9
                     7263777776                   SX6    X3-1                                                    FCC1227    10
          3604  0316004045 +                      NZ     X6,PAC      IF RF[R2] " 1                               FCC1227    11
                          6120000052              SB2    OC.STT      OC = OC.STT   */ FORCE A *SA* INST IN *PAC* FCC1227    12
          3605  5031000002                        SA3    A1+2        CCW = CAW + 2                               FCC1644X    1
                          43666                   MX6    -CC.REG1L                                               FCC1644X    2
                                                  LX3    -CC.REG1P                                               FCC1644X    3
                               15636              BX6    -X6*X3                                                  FCC1644X    4
          3606  10366                             BX3    X6                                                      FCC1644X    5
                     21603                        AX6    3                                                       FCC1644X    6
                          0306004045 +            ZR     X6,PAC      IF REG1[CCW] < 8  */ IN A B-REGISTER        FCC1644X    7
                                                                                                                 FCC1644X    8
                                        *         LCM=I ADDRESS IS IN AN X-REGISTER, USE THAT VALUE              FCC1644X    9
                                                                                                                 FCC1644X   10
          3607  5233000130 C                      SA3    RVT+X3      R = RVT(REG1[CCW])                          FCC1644X   11
                          10633                   BX6    X3                                                      FCC1644X   12
                               20344              LX3    I.STP                                                   FCC1644X   13
          3610  12736                             BX7    X3+X6                                                   FCC1644X   14
                     5075000003                   SA7    A5+3        [R1+3] = RNI(0,R,0,R)                       FCC1644X   15
          3611  0400003272 +                      EQ     IRA10                                                   FCC1644X   16
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   137
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   LD                  IRA 
  
                                                                                                                 GRA      5582
          3612  5065000003               LD1      SA6    A5+3        [R1+3] = RNI(0,0,0,TR)                      CCG23     127
                          10744                   BX7    X4                                                      CCG23     128
                               20746              LX7    59-D.FPP                                                CCG23     129
          3613  0327003617 +                      PL     X7,LD2      IF ^FP[DI]                                  CCG23     130
                          5120000000 X            SA2    =XHO$OPT                                                CCG23     131
          3614  0322003617 +                      PL     X2,LD2      IF HO$OPT " 2                               CCG23     132
                          76710                   SX7    B1          FLAG = 1                                    CCG23     133
          3615  0100000000 X                      CALL   MPR#        CALL MPR( R1 , FLAG )                       CCG23     134
          3616  5045000002                        SA4    A5+2        RESTORE X4, X6                              CCG23     135
                          54341                   SA3    A4+B1                                                   CCG23     136
                               10633              BX6    X3                                                      CCG23     137
                                                                                                                 GRA      5585
                                        *         ADJUST *RF* OF LD,ST,STT INSTRUCTIONS                          GRA      5586
                                                                                                                 GRA      5587
          3617  54351                    LD2      SA3    A5+B1       R2 = R1 + 1                                 GRA      5588
                     20330                        LX3    -IH.RFP                                                 GRA      5589
                          15130                   BX1    "RN"X3      R = RF[R2]                                  GRA      5590
                               53215              SA2    "SB"+X1     LJW = [SB+R]                                GRA      5591
          3620  11703                             BX7    X0*X3                                                   GRA      5592
                     0322003621 +                 PL     X2,LD3      IF ^INB[LJW]                                GRA      5593
                               20252              LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5594
          3621  73220                    LD3      SX2    X2          J = SETX(LJW)                               GRA      5595
                     5110000000 X                 SA1    DMASK                                                   GRA      5596
                               12727              BX7    X2+X7                                                   GRA      5597
          3622  11505                             BX5    X0*X5                                                   GRA      5598
                     20744                        LX7    IH.RFP      RF[R2W] = J                                 GRA      5599
                          12656                   BX6    X5+X6       RI[R1W] = TR                                CCG23     138
                               15441              BX4    -X1*X4      D = [DI] & ^DMASK                           GRA      5601
          3623  0400003270 +                      EQ     TYIT                                                    GRA      5602
  
  
                                        *         STT - *IRA* *AC* OR *CON* CANIDATE                             GRA      5604
                                                                                                                 GRA      5605
          3624  76760                    STT0     SX7    B6                                                      GRA      5606
                     76660                        SX6    B6                                                      GRA      5607
                          20744                   LX7    I.STP                                                   GRA      5608
                               12767              BX7    X6+X7                                                   GRA      5609
          3625  5075000003                        SA7    A5+3        [R1+3] = RNI(0,TI,0,TI)                     GRA      5610
                          0400003617 +            EQ     LD2                                                     GRA      5611
                                                                                                                 GRA      5612
          3626                                    PROCESS STT                                                    GRA      5613
                                                  LX1    59-CA.RAP                                               GRA      5614
          3626  0321003624 +                      PL     X1,STT0     IF ^RA[CAW]                                 GRA      5615
                                                                                                                 GRA      5616
                          20101                   LX1    CA.RAP-CA.IRAP                                          GRA      5617
          3627  0321003633 +                      PL     X1,STT1     IF ^IRA[CAW]  */ NOT ASSIGNED IN *ERC*      GRA      5618
                          10644                   BX6    X4                                                      GRA      5619
                               20625              LX6    59-D.PRSP                                               GRA      5620
          3630  0326003633 +                      PL     X6,STT1     IF ^PRS[DI]   */ NOT THE ONE ERC MARKED     GRA      5621
                          5025000007              SA2    A5+7        LIS = R1 + 7  */ LINK WORD OF *RS*          GRA      5622
          3631  0302003633 +                      ZR     X2,STT1     IF [LIS] = 0  */ NOT MOVED BY ERC/RS        GRA      5623
                                                                                                                 GRA      5624
                          43700                   MX7    0                                                       GRA      5625
                               54741              SA7    A4+B1       [DI+1] = 0                                  GRA      5626
          3632  0400003272 +                      EQ     IRA10                                                   GRA      5627
                                                                                                                 GRA      5628
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   138
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   STT                 IRA 
  
          3633  20103                    STT1     LX1    CA.IRAP-CA.CONP                                         GRA      5629
                     0321004045 +                 PL     X1,PAC      IF ^CON[CAW]                                GRA      5630
                                                                                                                 GRA      5631
                                        *         CHANGE *INC* STT TO A *SA* OR *SS*                             GRA      5632
                                                                                                                 GRA      5633
                               54111              SA1    A1+B1       C2W = RCT(J+1)                              GRA      5634
          3634  54351                             SA3    A5+B1       R2 = R1 + 1                                 GRA      5635
                     13131                        BX1    X3-X1                                                   GRA      5636
                          20330                   LX3    -IH.RFP                                                 GRA      5637
                               53235              SA2    "SB"+X3     LJW = [SB+RF[R2]]                           GRA      5638
                                                  LX3    IH.RFP+42-IH.CAP                                        GRA      5639
          3635  0332003636 +                      MI     X2,STT2     IF INB[LJW]                                 GRA      5640
                                                                                                                 GRA      5641
                          0333003624 +            MI     X3,STT0     IF CA[R2] < 0 */   SRI  X-B DOESNT EXIST    GRA      5642
                                                                                                                 GRA      5643
          3636  20151                    STT2     LX1    59-IH.CAP                                               GRA      5644
                     6120000060                   SB2    OC.SA       OC = SA                                     GRA      5645
                               43766              MX7    -CC.REG1L                                               GRA      5646
          3637  0321003640 +                      PL     X1,STT3     IF CA[R2] = CA[C2W]                         GRA      5647
                          6120000063              SB2    OC.SS       OC = OC.SS                                  GRA      5648
                                                                                                                 GRA      5649
          3640  54111                    STT3     SA1    A1+B1       CCW = RCT(J+2)                              GRA      5650
                                                  LX1    -CC.REG1P                                               GRA      5651
                     15717                        BX7    -X7*X1                                                  GRA      5652
                          5237000130 C            SA3    RVT+X7      LKW = RVT(REG1(CCW])                        GRA      5653
          3641  0322003264 +                      PL     X2,TYI      IF ^INB[LJW]                                GRA      5654
                          20252                   LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     GRA      5655
          3642  0400003264 +                      EQ     TYI                                                     GRA      5656
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   139
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
                                        *         ST - ADDRESS CANIDATE OR REDEFINTION OF A REGISTER             GRA      5658
                                                                                                                 GRA      5659
          3643                                    PROCESS (ST,TST)                                               GRA      5660
          3643  15750                             BX7    "RN"X5      R = RI[R1]                                  FCC0977    14
                     53275                        SA2    "SB"+X7     LJ = SB + R;  LJW = [LJ]                    FCC0977    15
                                                  LX1    59-CA.RAP                                               FCC0977    16
                          0331003645 +            MI     X1,ST0      IF RA[CAW]                                  FCC0977    17
                                                                                                                 GRA      5668
          3644  20230                             LX2    -I.STP                                                  GRA      5669
                     73620                        SX6    X2          TR = ST[LJW]                                CCG23     139
                          0400003612 +            EQ     LD1                                                     CCG23     140
                                                                                                                 GRA      5672
          3645  20151                    ST0      LX1    CA.RAP-CA.KDP                                           FCC0977    18
                     0321003650 +                 PL     X1,ST1      IF ^KD[CAW]                                 FCC0977    19
                               20451              LX4    59-D.INCP                                               FCC0977    20
          3646  0324003272 +                      PL     X4,IRA10    IF ^INC[DI]                                 FCC0977    21
                                                                                                                 FCC0977    22
                                        *         CLEAR LINK WORD OF INCREMENT SO WE DONT GET GARBAGE IN THE     FCC0977    23
                                        *         *RF* FIELD OF MEM REFS IN THE INCREMENT FIRST CASE.            FCC0977    24
                                                                                                                 FCC0977    25
                          6166777773              SB6    B6-4        TI = TI - 4   */ BACK OVER INC INSTRUCTION  FCC0977    26
          3647  43600                             MX6    0                                                       FCC0977    27
                     54620                        SA6    A2          [LJ] = 0      */ CLEAR LINK WORD OF *INC*   FCC0977    28
                          0400003272 +            EQ     IRA10                                                   FCC0977    29
                                                                                                                 FCC0977    30
          3650  20125                    ST1      LX1    CA.KDP-CA.VCP                                           FCC0977    31
                     0321004044 +                 PL     X1,PAC0     IF ^VC[CAW]                                 GRA      5674
                                                                                                                 GRA      5675
                                        *         PROCESS REDEFINITION OF A REGISTER                             GRA      5676
                                                                                                                 GRA      5677
                               54020              SA0    A2                                                      GRA      5678
          3651  5011000002                        SA1    A1+2        CCW = RCT(J+2)                              GRA      5679
                          43766                   MX7    -CC.REG1L                                               GRA      5680
                                                  LX1    -CC.REG1P                                               GRA      5681
                               15517              BX5    -X7*X1      REGNO = REG1[CCW]                           GRA      5682
          3652  5130000017 C                      SA3    N.HB                                                    FCC0414    47
                          0303003666 +            ZR     X3,ST1A     IF N.HB = 0   */ INNER LOOP                 FCC0414    48
                                                                                                                 FCC0414    49
                                        *         OUTER LOOP, CHECK FOR POST STORE OF A REGISTER ASSIGNMENT MADE FCC0414    50
                                        *         IN AN INNER LOOP AND EXTENDED TO THIS LOOP.                    FCC0414    51
                                                                                                                 FCC0414    52
          3653  53327                             SA3    B7+X2       R1P = TXT(XR[LJW])                          FCC0414    53
                     6130000010                   SB3    OC.XMT                                                  FCC0414    54
                               26723              UX7    B2,X3                                                   FCC0414    55
          3654  0423003657 +                      EQ     B2,B3,ST0A  IF OC[R1P] = OC.XMT                         FCC0414    56
                          6130000060              SB3    OC.SA                                                   FCC0414    57
          3655  0523003660 +                      NE     B2,B3,ST0B  IF OC[R1P] " OC.SA                          FCC0414    58
                          20354                   LX3    -R1.RKP                                                 FCC0414    59
                               15630              BX6    "RN"X3                                                  FCC0414    60
          3656  0316003666 +                      NZ     X6,ST1A     IF RK[R1P] " 0  */ NOT  * SA  RI,RJ *       FCC0414    61
          3657  20734                    ST0A     LX7    -R1.RJP                                                 FCC0414    62
                     15670                        BX6    "RN"X7                                                  FCC0414    63
                          53367                   SA3    B7+X6       R1P = TXT(RJ[R1P])                          FCC0414    64
                               26723              UX7    B2,X3                                                   FCC0414    65
          3660  6130000005               ST0B     SB3    OC.DEF                                                  FCC0414    66
                          0523003666 +            NE     B2,B3,ST1A  IF OC[R1P] " OC.DEF                         FCC0414    67
          3661  20754                             LX7    -R1.SOP                                                 FCC0414    68
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   140
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
                     43666                        MX6    -SO.REGL                                                FCC0414    69
                          13757                   BX7    X5-X7                                                   FCC0414    70
                               15676              BX6    -X6*X7                                                  FCC0414    71
          3662  0316003665 +                      NZ     X6,ST0C     IF SOREG[R1P] .NE. REGNO */ DIF. CANDIDATES CCG0128     8
                          5033000002              SA3    A3+2        DIP = R1P + 2                               CCG0128     9
          3663  20347                             LX3    59-D.XUP                                                CCG0128    10
                     0333003701 +                 MI     X3,ST1C     IF XU[DIP]   */ VAR WAS REDEF IN THIS SEQ.  CCG0128    11
          3664  0400003723 +                      EQ     ST4A                                                    CCG0128    12
                                                                                                                 CCG0128    13
          3665  13632                    ST0C     BX6    X3-X2                                                   CCG0128    14
                     15760                        BX7       "RN"X6                                               FCC1568X    6
                          0307003701 +            ZR        X7,ST1C  IF RI[R1P] = XR[LJW] */ REGNO-S " & DEF,ST  FCC1568X    7
                                                                                                                 FCC0414    73
                                        *         SEE IF *OP* CAN PRS TO A B-REG ( S,SA,SS,STT )                 FCC0414    74
                                                                                                                 FCC0414    75
          3666  6222000004               ST1A     SB2    X2+4                                                    FCC0414    76
                          0526003701 +            NE     B2,B6,ST1C  IF XR[LJW] " TI-4  */ RS WONT FOLLOW REDEF  FCC0414    77
          3667  53327                             SA3    B7+X2       R1P = TXT(XR[LJW])                          FCC0414    78
                     7275777767                   SX7    X5-8                                                    FCC0414    79
                               26623              UX6    B2,X3                                                   FCC0414    80
          3670  0327003712 +                      PL     X7,ST3      IF REGNO > 7  */ ^ IN A B-REG               GRA      5706
                          6130000105              SB3    OC.CLR                                                  GRA      5707
          3671  0523003675 +                      NE     B2,B3,ST1B  IF OC[R1P] " OC.CLR                         GRA      5708
                                                                                                                 GRA      5709
                                        *         CLR PRS TO A B-REG, CHANGE TO A *  S  RI,0 *                   GRA      5710
                                                                                                                 GRA      5711
                          5140000055 X            SA4    F.RDT+OC.S  DJ = RDT(OC.S)                              GRA      5712
          3672  6120000055                        SB2    OC.S                                                    GRA      5713
                          27723                   PX7    B2,X3       OC[R1P] = OC.S                              GRA      5714
                               76610              SX6    B1                                                      GRA      5715
          3673  54730                             SA7    A3                                                      GRA      5716
                     20627                        LX6    D.SZP                                                   GRA      5717
                          37746                   IX7    X4-X6       SZ[DJ] = 1                                  GRA      5718
          3674  5073000002                        SA7    A3+2        [R1P+2] = DJ                                GRA      5719
                          0400003712 +            EQ     ST3                                                     GRA      5720
                                                                                                                 GRA      5721
          3675  5142000630 +             ST1B     SA4    DUM.JT+B2                                               GRA      5722
                          6130000060              SB3    OC.SA                                                   GRA      5723
          3676  20436                             LX4    59-29                                                   GRA      5724
                     0324003701 +                 PL     X4,ST1C     IF ^BRS(OC[R1P])  */ CANT PRS TO A B-REG    GRA      5725
                                                                                                                 GRA      5726
                                        *         OUTPUT *SA* IF PRED IS A *EU* SA PUT OUT BY *PVC* SO AS TO     GRA      5727
                                        *         PRESERVE THE X-REG R-NUMBER                                    GRA      5728
                                                                                                                 GRA      5729
          3677  0523003712 +                      NE     B2,B3,ST3   IF OC[R1P] " OC.SA                          GRA      5730
                          20354                   LX3    -R1.RKP                                                 GRA      5731
                               15730              BX7    "RN"X3                                                  GRA      5732
          3700  0317003712 +                      NZ     X7,ST3      IF RK[R1P] " 0  */ NOT  SA RI,RJ            GRA      5733
                                                                                                                 GRA      5734
                                        *         OUTPUT *SA/XMT* SO THAT *RS* WILL FOLLOW DEFINITION OF RESULT  GRA      5735
                                                                                                                 GRA      5736
          3701  6120000010               ST1C     SB2    OC.XMT                                                  GRA      5737
                          7275777767              SX7    X5-8                                                    GRA      5738
          3702  12627                             BX6    X2+X7                                                   GRA      5739
                     0326003707 +                 PL     X6,ST2      IF REGNO > 7 & ^INB[LJW]                    GRA      5740
          3703  6120000060                        SB2    OC.SA                                                   GRA      5741
                          0322003707 +            PL     X2,ST2      IF ^INB[LJW]                                GRA      5742
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   141
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
          3704  22602                             LX6    X2                                                      CCG0172     7
                     20252                        LX2    -I.BRP      LJW = SHIFT(LJW,-I.BRP)                     CCG0172     8
                          20601                   LX6    59-I.MIBP                                               CCG0172     9
          3705  0326003707 +                      PL     X6,ST2      IF ^MIB(LJW)                                CCG0172    10
                          6120000063              SB2    OC.SS                                                   CCG0172    11
          3706  73220                             SX2    X2          RJ = SETX(LJW)                              CCG0172    12
                     20220                        LX2    R1.RKP                                                  CCG0172    13
                          0400003710 +            EQ     ST2A                  */ TO SRI WITH RJ SWITCHED TO RK  CCG0172    14
                                                                                                                 CCG0172    15
          3707  73220                    ST2      SX2    X2          RJ = SETX(LJW)                              GRA      5744
                     20240                        LX2    R1.RJP                                                  CCG0172    16
                                                                                                                 CCG0172    17
          3710  76660                    ST2A     SX6    B6                                                      CCG0172    18
                     12626                        BX6    X2+X6                                                   GRA      5747
                          43700                   MX7    0                                                       GRA      5748
          3711  0100000000 X                      RJ     SRI         SRI(  XMT/SA  TI,RJ )                       GRA      5750
                                                                                                                 GRA      5751
                                        *         OUTPUT *RS* TO FORCE THE RESULT BACK TO THE REGISTER           GRA      5752
                                                                                                                 GRA      5753
          3712  5045000002               ST3      SA4    A5+2        DI = R1 + 2                                 FCC0514    98
                          20447                   LX4    59-D.XUP                                                FCC0514    99
          3713  0324003714 +                      PL     X4,ST3A     IF ^XU[DI]    */ IF NO EXTENDED USES        FCC0514   100
                                                                                                                 FCC0514   101
                          0100003752 +            RJ     APD         ADJUST PREVIOUS DEF TO SAVE OLD VALUE       FCC0514   102
                                                                                                                 FCC0514   103
          3714  5235000130 C             ST3A     SA3    RVT+X5      F = RVT(REGNO)  */ OLD R-NUM IN REGISTER    FCC0514   104
                          7245000200              SX4    X5+SO.LOCK                                              GRA      5755
          3715  6120000004                        SB2    OC.RS                                                   GRA      5756
                          7166777773              SX6    B6-4        R = TI - 4                                  FCC0514   105
          3716  20420                             LX4    R1.SOP                                                  GRA      5758
                     54630                        SA6    A3          RVT(REGNO) = R  */ UPDATE R-NUM IN REG      GRA      5759
                          6233000002              SB3    X3+2                                                    GRA      5760
          3717  12646                             BX6    X4+X6                                                   GRA      5761
                     56473                        SA4    B7+B3       DIP = TXT(F+2)  */ CHECK PRED FOR A *CA*    GRA      5762
                          75741                   SX7    A4-B1       R2P = DIP - 1                               FCC0514   106
                               20435              LX4    59-D.PIP                                                GRA      5764
          3720  0334003721 +                      MI     X4,ST4      IF PI[DIP]                                  GRA      5765
                          7277000004              SX7    X7+4        R2P = R2P + 4                               GRA      5766
          3721  53470                    ST4      SA4    X7                                                      GRA      5767
                     43730                        MX7    -IH.CAIHL                                               GRA      5768
                          20344                   LX3    IH.RFP                                                  GRA      5769
                               15447              BX4    -X7*X4                                                  GRA      5770
          3722  12734                             BX7    X3+X4       R2W = IHW(0,F,CAIH[R2P])                    GRA      5771
                     0100000000 X                 RJ     SRI         SRI(  RS  R,FL+REGNO,R2W )                  GRA      5772
                                                                                                                 GRA      5773
                                        *         UPDATE R-NUMBER IN THE LINK WORD OF THE PRED                   GRA      5774
                                                                                                                 GRA      5775
          3723  5011777775               ST4A     SA1    A1-2                                                    GRA      5776
                          5235000130 C            SA3    RVT+X5      RN = RVT(REGNO)                             GRA      5777
          3724  5020000000                        SA2    A0+         LJW = [LJ]                                  GRA      5778
                          7275777767              SX7    X5-8                                                    GRA      5779
          3725  0327003735 +                      PL     X7,ST7      IF REGNO > 7  */ X-REG                      GRA      5780
                                                                                                                 GRA      5781
                                        *         VALUE IS IN A B-REGISTER                                       GRA      5782
                                                                                                                 GRA      5783
                          0332003730 +            MI     X2,ST5      IF INB[LJW]                                 GRA      5784
          3726  43701                             MX7    1                                                       GRA      5785
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   142
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
                     20322                        LX3    I.BRP                                                   GRA      5786
                                                  LX7    1+I.INBP                                                GRA      5787
                          12737                   BX7    X3+X7                                                   GRA      5788
                               54700              SA7    A0          [LJ] = RNI(1,0,RN,0)                        GRA      5789
          3727  20352                             LX3    -I.BRP                                                  GRA      5790
                     10277                        BX2    X7          LJW = [LJ]                                  GRA      5791
                                                                                                                 GRA      5792
          3730  20110                    ST5      LX1    59-CA.EUP                                               GRA      5793
                     0331003732 +                 MI     X1,ST6      IF EU[CAW]                                  GRA      5794
                               20135              LX1    CA.EUP-CA.PSPP                                          GRA      5795
          3731  0331003272 +                      MI     X1,IRA10    IF PSP[CAW]   */ ST CAN MOVE                GRA      5796
                                                                                                                 GRA      5797
                                        *         MOVE RESULT TO AN X-REG                                        GRA      5798
                                                                                                                 GRA      5799
          3732  63320                    ST6      SB3    X2                                                      GRA      5800
                     0530003746 +                 NZ     B3,ST10     IF XR[LJW] " 0*/ PRED IS IN A X-REG         GRA      5801
                               76660              SX6    B6                                                      GRA      5802
          3733  12767                             BX7    X6+X7                                                   GRA      5803
                     20644                        LX6    I.STP                                                   GRA      5804
                          12767                   BX7    X6+X7                                                   GRA      5805
                               54700              SA7    A0          [LJ] = RNI(1,TI,RN,TI)                      GRA      5806
          3734  6120000060                        SB2    OC.SA                                                   GRA      5807
                          0400003744 +            EQ     ST9                                                     GRA      5808
                                                                                                                 GRA      5809
                                        *         VALUE IS IN A X-REGISTER                                       GRA      5810
                                                                                                                 GRA      5811
          3735  7275777751               ST7      SX7    X5-26B                                                  GRA      5812
                          0327003746 +            PL     X7,ST10     IF REGNO > 25B  */ RESULT IN A *ST* REG     GRA      5813
                                                                                                                 GRA      5814
          3736  55401                             SA4    A0-B1       DJP = LJ - 1                                GRA      5815
                     43764                        MX7    -D.USESL+1                                              GRA      5817
                          54600                   SA6    A0          [LJ] = RNI(0,0,0,RN)                        GRA      5818
                               20044              LX0    I.STP                                                   FCC1196     6
          3737  11602                             BX6    X0*X2                                                   FCC1196     7
                     54600                        SA6    A0          ST[LJ] = 0                                  FCC1196     8
                          20030                   LX0    -I.STP                                                  FCC1196     9
                               20473              LX4    -D.USESP-1                                              GRA      5819
          3740  15747                             BX7    -X7*X4                                                  GRA      5820
                     0317003742 +                 NZ     X7,ST8      IF USES[DJP] > 1                            GRA      5821
                               20145              LX1    59-CA.PSPP                                              GRA      5822
          3741  0331003272 +                      MI     X1,IRA10    IF PSP[CAW]                                 GRA      5823
                                                                                                                 GRA      5824
          3742  76460                    ST8      SX4    B6                                                      GRA      5825
                     20444                        LX4    I.STP                                                   GRA      5826
                          12746                   BX7    X4+X6                                                   GRA      5827
                               54700              SA7    A0          ST[LJ] = TI                                 FCC1196    10
          3743  6120000010                        SB2    OC.XMT                                                  GRA      5829
                          7237000000              SX3    X7+                                                     GRA      5830
                                                                                                                 GRA      5831
          3744  76660                    ST9      SX6    B6                                                      GRA      5832
                     20340                        LX3    R1.RJP                                                  GRA      5833
                          43700                   MX7    0                                                       GRA      5834
                               12636              BX6    X3+X6                                                   GRA      5835
          3745  0100000000 X                      RJ     SRI         SRI(  SA/XMT  TI,RN )                       GRA      5836
                                                                                                                 GRA      5837
                                        *         OUTPUT STORE IF NOT MOVABLE                                    GRA      5838
                                                                                                                 GRA      5839
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   143
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   ST                  IRA 
  
          3746  54110                    ST10     SA1    A1                                                      GRA      5840
                     20145                        LX1    59-CA.PSPP                                              GRA      5841
                          0331003272 +            MI     X1,IRA10    IF PSP[CAW]                                 GRA      5842
          3747  20132                             LX1    CA.PSPP-CA.ACP                                          CCG25     185
                     0331003272 +                 MI     X1,IRA10    IF AC[CAW]    */ A/X CANIDATE               CCG25     186
                                                                                                                 GRA      5843
                               54550              SA5    A5                                                      GRA      5844
          3750  54200                             SA2    A0                                                      GRA      5845
                     5045000002                   SA4    A5+2                                                    GRA      5846
                               20230              LX2    -I.STP                                                  GRA      5847
          3751  73620                             SX6    X2          TR = ST[LJW]                                CCG23     141
                     26725                        UX7    B2,X5                                                   GRA      5849
                          0400003612 +            EQ     LD1                                                     CCG23     142
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   144
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   APD                 IRA 
  
                                        **        APD - ADJUST PREVIOUS DEFINITION OF A CANIDATE TO PRESERVE     FCC0514   108
                                        *         PREVIOUS VALUE, BECAUSE USES OF IT EXTEND PAST THE CURRENT     FCC0514   109
                                        *         DEFINITION ( *XU* ).                                           FCC0514   110
                                        *                                                                        FCC0514   111
                                        *         ENTRY  (A0,X5) = LJ, REGNO AS SETUP BY IRA/ST                  FCC0514   112
                                                                                                                 FCC0514   113
                                        *         FIND PREVIOUS DEFINITION OF THIS CANIDATE IN *SEQ*             FCC0514   114
                                                                                                                 FCC0514   115
          3752  0200403752 +             APD      ROUTINE                                                        FCC0514   116
          3753  54351                             SA3    A5+B1       R2 = R1 + 1;  R2P = R2                      FCC0514   117
                     6130000004                   SB3    4                                                       FCC0514   118
                               10733              BX7    X3          R2W = [R2]                                  FCC0514   119
          3754  55333                    APD1     SA3    A3-B3       R2P = R2P - 4                               FCC0514   120
                     13673                        BX6    X7-X3                                                   FCC0514   121
                          0316003754 +            NZ     X6,APD1     IF [R2P] " R2W                              FCC0514   122
                                                                                                                 FCC0514   123
          3755  54431                             SA4    A3+B1       DIP = R2P + 1                               FCC0514   124
                     54241                        SA2    A4+B1       LIP = DIP + 1                               FCC0514   125
                          20430                   LX4    59-D.LDP                                                FCC0514   126
          3756  0334003760 +                      MI     X4,APD2     IF LD[DIP]    */ PREVIOUS DEF IS A *LD*     FCC0514   127
                          55331                   SA3    A3-B1       R1P = R2P - 1                               FCC0514   128
                               15630              BX6    "RN"X3                                                  FCC0514   129
          3757  53265                             SA2    "SB"+X6     LIP = SB + RI[R1P]                          FCC0514   130
                                                                                                                 FCC0514   131
                                        *         CHECK LINK WORD TO SEE IF WE MADE A COPY OF THE VALUE          FCC0514   132
                                                                                                                 FCC0514   133
          3760  7265777767               APD2     SX6    X5-8                                                    FCC0514   134
                          0326003767 +            PL     X6,APD3     IF REGNO > 8  */ CANIDATE IN AN X-REGISTER  FCC0514   135
                                                                                                                 FCC0514   136
                                        *         CANIDATE IN B-REG, SEE IF X-REG VALUE IS AVAILABLE             FCC0514   137
                                                                                                                 FCC0514   138
          3761  5031777775                        SA3    A1-2                                                    FCC0514   139
                          6120000060              SB2    OC.SA       OC = OC.SA                                  FCC0514   140
          3762  20252                             LX2    -I.BRP                                                  FCC0514   141
                     73720                        SX7    X2          ORV = BR[LIP]                               FCC0514   142
                          20310                   LX3    59-CA.EUP                                               FCC0514   143
                               20222              LX2    I.BRP                                                   FCC0514   144
          3763  0323003770 +                      PL     X3,APD4     IF ^EU[RCT(J)]  */ NO COPY MADE             FCC0514   145
                                                                                                                 FCC0514   146
                          7277000002              SX7    X7+2                                                    CCG0128    15
          3764  53377                             SA3    B7+X7       DI = TXT(ORV+2) */ OF DEF                   CCG0128    16
                     76710                        SX7    B1                                                      CCG0128    17
                          20724                   LX7    D.XUP                                                   CCG0128    18
                               12737              BX7    X3+X7       XU[DI] = 1    */ INDICATE EXT USE TO IRA/ST CCG0128    19
          3765  54730                             SA7    A3                                                      CCG0128    20
                     43701                        MX7    1                                                       FCC0514   147
                          15627                   BX6    -X7*X2      INB[LIP] = 0  */ MAKE OLD B-VAL UNAVAILABLE FCC0514   148
                               54620              SA6    A2                                                      FCC0514   149
          3766  0400003752 +                      EQ     APD                                                     FCC0514   150
                                                                                                                 FCC0514   151
          3767  6120000010               APD3     SB2    OC.XMT      OC = OC.XMT                                 FCC0514   152
                          73720                   SX7    X2          ORV = XR[LIP] */ OLD R-NUM VALUE            FCC0514   153
                                                                                                                 FCC0514   154
                                        *         NO COPY OF CANIDATE AVAILABLE, INSERT *XMT/SA* TO SAVE OLD     FCC0514   155
                                        *         VALUE OF PREVIOUS DEF BEFORE LAST INSTRUCTION IN *TXT*.        FCC0514   156
                                                                                                                 FCC0514   157
          3770  77663                    APD4     SX6    B6-B3       R = TI - 4                                  FCC0514   158
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   145
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   APD                 IRA 
  
                     10466                        BX4    X6                                                      FCC0514   159
                          20644                   LX6    I.STP                                                   FCC0514   160
                               12646              BX6    X4+X6       [LIP] = RNI(0,R,0,R)                        FCC0514   161
          3771  54620                             SA6    A2                                                      FCC0514   162
                     53347                        SA3    B7+X4       R1W = TXT(R)                                FCC0514   163
                          76230                   SX2    B3                                                      FCC0514   164
                               36632              IX6    X3+X2       RI[R1W] = RI[R1W] + 4                       FCC0514   165
          3772  20740                             LX7    R1.RJP                                                  FCC0514   166
                     56676                        SA6    B7+B6       TXT(TI) = R1W  */ MOVE LAST INST UP         FCC0514   167
                          27727                   PX7    B2,X7                                                   FCC0514   168
                               12747              BX7    X4+X7                                                   FCC0514   169
          3773  54730                             SA7    A3          TXT(R) = TYI(OC,ORV,0,R)*/ INSERT XMT/SA    FCC0514   170
                     54331                        SA3    A3+B1                                                   FCC0514   171
                          10633                   BX6    X3          TXT(TI+1) = TXT(R+1)                        FCC0514   172
                               54661              SA6    A6+B1                                                   FCC0514   173
          3774  43700                             MX7    0                                                       FCC0514   174
                     54730                        SA7    A3          TXT(R+1) = 0                                FCC0514   175
                          54331                   SA3    A3+B1                                                   FCC0514   176
                               10633              BX6    X3          TXT(TI+2) = TXT(R+2)                        FCC0514   177
          3775  54661                             SA6    A6+B1                                                   FCC0514   178
                     54761                        SA7    A6+B1       TXT(TI+3) = 0                               FCC0514   179
                          5122000000 X            SA2    F.RDT+B2                                                FCC0514   180
          3776  10722                             BX7    X2          TXT(R+2) = RDT(OC)                          FCC0514   181
                     54730                        SA7    A3                                                      FCC0514   182
                                                                                                                 FCC0514   183
                                        *         ADJUST THE LINK WORD OF THE STORE PREDECESSOR                  FCC0514   184
                                                                                                                 FCC0514   185
                          54200                   SA2    A0          LJW = [LJ]                                  FCC0514   186
                               10422              BX4    X2          OLW = LJW     */ SAVE ORIGINAL LW           FCC0514   187
          3777  6120000044                        SB2    36          SC = 36                                     FCC0514   188
                          76730                   SX7    B3                                                      FCC0514   189
                               67663              SB6    B6-B3       TI = TI - 4                                 FCC0514   190
          4000  23322                    APD5     AX3    B2,X2                                                   FCC0514   191
                     63330                        SB3    X3                                                      FCC0514   192
                          0536004002 +            NE     B3,B6,APD6  IF RN[SHIFT(LJW,-SC)] " TI                  FCC0514   193
          4001  22627                             LX6    B2,X7                                                   FCC0514   194
                     36262                        IX2    X6+X2       LJW = LJW + SHIFT(4,SC)                     FCC0514   195
          4002  6122777755               APD6     SB2    B2-18       SC = SC - 18                                FCC0514   196
                          0620004000 +            PL     B2,APD5     IF SC \ 0                                   FCC0514   197
                                                                                                                 FCC0514   198
          4003  10622                             BX6    X2                                                      FCC0514   199
                     54620                        SA6    A2          [LJ] = LJW                                  FCC0514   200
                          6166000010              SB6    B6+8        TI = TI + 8                                 FCC0514   201
                                                                                                                 FCC0514   202
          4004  5030777774                        SA3    A0-3        R1P = LJ - 3  */ CHECK ST PRED              FCC0514   203
                          6130000010              SB3    OC.XMT                                                  FCC0514   204
          4005  26723                             UX7    B2,X3                                                   FCC0514   205
                     0523003752 +                 NE     B2,B3,APD   IF OC[R1P] " OC.XMT                         FCC0514   206
                               20334              LX3    -R1.RJP                                                 FCC0514   207
          4006  15730                             BX7    "RN"X3      R = RJ[R1P]                                 FCC0514   208
                     53375                        SA3    "SB"+X7     LJP = SB + R  */ PRED OF *XMT*              FCC0514   209
                          13743                   BX7    X4-X3                                                   FCC0514   210
          4007  0317003752 +                      NZ     X7,APD      IF [LJP] " OLW  */ NOT OMITTED *XMT*        FCC0514   211
                          5063000000              SA6    A3+         [LJP] = LJW   */ UPDATE LINK WORD OF PRED   FCC0514   212
          4010  0400003752 +                      EQ     APD                                                     FCC0514   213
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   146
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PVC                 IRA 
  
                                        **        PVC - PROCESS VALUE CANIDATE DEFINITION ( LD OR CON )          GRA      5852
                                                                                                                 GRA      5853
          4011  54110                    PVC      SA1    A1                                                      GRA      5854
                     20151                        LX1    59-CA.KDP                                               GRA      5855
                          0321004013 +            PL     X1,PVC1     IF ^KD[CAW]                                 GRA      5856
                                                                                                                 GRA      5857
          4012  43600                             MX6    0                                                       GRA      5858
                     54641                        SA6    A4+B1       [DI+1] = 0                                  GRA      5859
                          0400003272 +            EQ     IRA10                                                   GRA      5860
                                                                                                                 GRA      5861
          4013  5021000002               PVC1     SA2    A1+2        CCW = RCT(J+2)                              GRA      5862
                          43766                   MX7    -CC.REG1L                                               GRA      5863
                                                  LX2    -CC.REG1P                                               GRA      5864
                               15427              BX4    -X7*X2      REGNO = REG1[CCW]                           GRA      5865
          4014  5234000130 C                      SA3    RVT+X4      R = RVT(REGNO)                              GRA      5866
                          7264777767              SX6    X4-8                                                    GRA      5867
          4015  0326004030 +                      PL     X6,PVC5     IF REGNO > 7                                GRA      5868
                                                                                                                 GRA      5869
                                        *         CANIDATE IN A B-REGISTER                                       GRA      5870
                                                                                                                 GRA      5871
                          20123                   LX1    1+CA.KDP                                                GRA      5872
                               76760              SX7    B6                                                      GRA      5873
          4016  20322                             LX3    I.BRP                                                   GRA      5874
                     12637                        BX6    X3+X7                                                   GRA      5875
                          20744                   LX7    I.STP                                                   GRA      5876
                               12667              BX6    X6+X7                                                   GRA      5877
          4017  43701                             MX7    1                                                       GRA      5878
                                                  LX7    1+I.INBP                                                GRA      5879
                     12676                        BX6    X7+X6                                                   GRA      5880
                          5065000003              SA6    A5+3        [R1+3] = RNI(1,TI,R,TI)                     GRA      5881
          4020  20104                             LX1    59-CA.CONP                                              CCG0034    24
                     43700                        MX7    0                                                       GRA      5886
                          20316                   LX3    R1.RJP-I.BRP                                            GRA      5887
          4021  6120000060                        SB2    OC.SA       OC = OC.SA                                  GRA      5888
                          0321004026 +            PL     X1,PVC2     IF ^CON[CAW]                                GRA      5889
                                                                                                                 GRA      5890
          4022  54111                             SA1    A1+B1       C2W = RCT(J+1)                              GRA      5891
                     20560                        LX5    IH.CAP-R1.INP                                           GRA      5892
                          13151                   BX1    X5-X1                                                   GRA      5893
                               20151              LX1    59-IH.CAP                                               GRA      5894
          4023  0321004026 +                      PL     X1,PVC2     IF CA[C2W] = IN[R1]                         GRA      5895
                          76110                   SX1    B1                                                      CCG0034    25
                               20172              LX1    I.MIBP                                                  CCG0034    26
          4024  12661                             BX6    X6+X1                                                   CCG0034    27
                     54660                        SA6    A6          [R1+3] = RNI(3,TI,R,TI)                     CCG0034    28
                          6120000063              SB2    OC.SS                                                   GRA      5896
          4025  20354                             LX3    R1.RKP-R1.RJP                                           GRA      5897
                                                                                                                 CCGA062    10
          4026  76660                    PVC2     SX6    B6                                                      GRA      5898
                     12663                        BX6    X6+X3                                                   GRA      5899
                          0100000000 X            RJ     SRI         SRI(  SA  TI,R  /  SS  TI,,R )              GRA      5900
          4027  0400003272 +                      EQ     IRA10                                                   GRA      5901
                                                                                                                 GRA      5902
                                        *         CANIDATE IN A X-REGISTER                                       GRA      5903
                                                                                                                 GRA      5904
          4030  54240                    PVC5     SA2    A4                                                      GRA      5905
                     7264777751                   SX6    X4-26B                                                  GRA      5906
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   147
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PVC                 IRA 
  
                               10533              BX5    X3          RST = R       */ R-NUM IN A ST REG          GRA      5907
          4031  20224                             LX2    59-D.PSP                                                FCC2165     1
                     0326004035 +                 PL     X6,PVC6     IF REGNO > 25B  */ X6,X7                    GRA      5908
                               76500              SX5    B0          RST = 0                                     GRA      5910
          4032  0322004035 +                      PL     X2,PVC6     IF ^PS[DI]                                  GRA      5911
                                                                                                                 GRA      5912
                          20340                   LX3    R1.RJP                                                  GRA      5913
                               76560              SX5    B6          RST = TI                                    GRA      5914
          4033  43700                             MX7    0                                                       GRA      5915
                     12635                        BX6    X3+X5                                                   GRA      5916
                          20334                   LX3    -R1.RJP                                                 GRA      5917
          4034  6120000010                        TYPEI  XMT,X6      SRI(  XMT  TI,R )                           GRA      5918
                                                                                                                 GRA      5919
          4035  20544                    PVC6     LX5    I.STP                                                   GRA      5920
                     12653                        BX6    X5+X3                                                   GRA      5921
                          5065000003              SA6    A5+3        [R1+3] = RNI(0,RST,0,R)                     GRA      5922
          4036  20201                             LX2    D.PSP-D.PRSP                                            FCC0812     6
                     0322003272 +                 PL     X2,IRA10    IF ^PRS[DI]                                 FCC0812     7
                                                                                                                 FCC0812     8
          4037  5045000007                        SA4    A5+7        LIRS = R1 + 7;  I = CO[LIRS]  */ RS LINK WD FCC0812     9
                          53144                   SA1    B4+X4       CAW = RCT(I)                                FCC0812    10
                               20101              LX1    59-CA.IRAP                                              FCC0812    11
          4040  0331003272 +                      MI     X1,IRA10    IF IRA[CAW]   */ RS IS TO BE MOVED OUT      FCC0812    12
                                                                                                                 FCC0812    13
                          43700                   MX7    0                                                       FCC0812    14
                               76660              TYPEI  XMT,B6,X3   SRI(  XMT  TI,R )  */ OUTPUT XMT FOR *RS*   FCC0812    15
          4043  0400003272 +                      EQ     IRA10                                                   GRA      5923
  
  
  
                                        **        PAC - PROCESS ADDRESS CANIDATE, MIT = 1 - 4                    FCC0646    22
                                        *                                                                        GRA      5926
                                        *         ENTRY  (B2) = OC.LD, OC.ST, OC.STT                             GRA      5927
                                                                                                                 GRA      5928
          4044  6120000051               PAC0     SB2    OC.ST                                                   GRA      5929
                                                                                                                 GRA      5930
          4045  5011000002               PAC      SA1    A1+2        CCW = RCT(J+2)                              GRA      5931
                          6122777727              SB2    B2-OC.LD    MODE = OC[R1] - OC.LD                       GRA      5932
          4046  43766                             MX7    -CC.REG1L                                               GRA      5933
                                                  LX1    -CC.REG1P                                               GRA      5934
                     15217                        BX2    -X7*X1      REGN1 = REG1[CCW]                           GRA      5935
                          20166                   LX1    CC.REG1P-CC.MITP                                        GRA      5936
                               15317              BX3    -X7*X1      IT = MIT[CCW]                               GRA      5937
          4047  53030                             SA0    X3                                                      GRA      5938
                     20166                        LX1    CC.MITP-CC.REG2P                                        GRA      5939
                          15717                   BX7    -X7*X1      REGN2 = REG2[CCW]                           GRA      5940
          4050  5142004111 +                      SA4    PACA+B2     OCW = PACA(MODE)                            GRA      5941
                          20303                   LX3    3                                                       FCC0646    23
                               43664              MX6    -8                                                      FCC0646    24
          4051  15336                             BX3    -X6*X3      IT = IT & 37B                               FCC0977    32
                     63330                        SB3    X3                                                      GRA      5944
                          22134                   LX1    B3,X4                                                   GRA      5945
                               15616              BX6    -X6*X1      NOC = SHIFT(OCW,8*IT) & 377B                FCC0646    25
          4052  63360                             SB3    X6                                                      GRA      5947
                     7166000000                   SX6    B6+         R = TI                                      GRA      5948
          4053  5065000003                        SA6    A5+3        [R1+3] = R                                  GRA      5949
                                                                                                                 GRA      5950
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   148
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PAC                 IRA 
  
                          0420004056 +            ZR     B2,PAC1     IF MODE = 0   */ LD                         GRA      5951
          4054  0521004070 +                      NE     B2,B1,PAC3  IF MODE " 1   */ NOT ST                     GRA      5952
                          15550                   BX5    "RN"X5                                                  GRA      5953
                               53355              SA3    "SB"+X5     LIW = [SB+RI[R1]]                           GRA      5954
          4055  20330                             LX3    -I.STP                                                  GRA      5955
                     73630                        SX6    X3          R = ST[LIW]                                 GRA      5956
                                                                                                                 GRA      5957
                                        *         REFORM REFERENCE AS A TYPE I INSTRUCTION                       GRA      5958
                                                                                                                 GRA      5959
          4056  7040777773               PAC1     SX4    A0-4                                                    FCC0646    26
                          0304004076 +            ZR     X4,PAC4     IF IT = 4                                   FCC0646    27
                                                                                                                 FCC0646    28
                                        *         IT = 1 - 3 , RJ,RK ARE FROM *RVT*                              FCC0646    29
                                                                                                                 FCC0646    30
          4057  5237000130 C                      SA3    RVT+X7      K = RVT(REGN2)                              FCC0646    31
                          5222000130 C            SA2    RVT+X2      J = RVT(REGN1)                              FCC0646    32
          4060  54451                             SA4    A5+B1       R2 = R1 + 1                                 GRA      5962
                     20320                        LX3    R1.RKP                                                  GRA      5963
                          12636                   BX6    X3+X6                                                   GRA      5964
                               20240              LX2    R1.RJP                                                  GRA      5965
          4061  12626                             BX6    X2+X6                                                   GRA      5966
                     20430                        LX4    -IH.RFP                                                 GRA      5967
                          76110                   SX1    B1          ZB = 1        */ ZP BIT                     GRA      5968
                               15740              BX7    "RN"X4      F = RF[R2]                                  GRA      5969
          4062  53375                             SA3    "SB"+X7     LFW = [SB+F]                                GRA      5970
                     0307004064 +                 ZR     X7,PAC2     IF F = 0      */ NO RF OR A0                GRA      5971
                                                                                                                 GRA      5972
                               76100              SX1    B0          ZB = 0                                      GRA      5973
          4063  0323004064 +                      PL     X3,PAC2     IF ^INB[LFW]                                GRA      5974
                          20234                   LX2    -R1.RJP                                                 GRA      5975
                               73320              SX3    X2          LFW = RVT(REGN1)  */ USE *RF* FROM RVT      GRA      5976
                                                                                                                 GRA      5977
          4064  11404                    PAC2     BX4    X0*X4                                                   GRA      5978
                     73330                        SX3    X3                                                      GRA      5979
                          20132                   LX1    D.ZPP                                                   GRA      5980
                               12734              BX7    X3+X4       RF[R2W] = SETX(LFW)                         GRA      5981
          4065  5123000000 X                      SA2    F.RDT+B3    D = RDT(NOC)                                GRA      5982
                          20744                   LX7    IH.RFP                                                  GRA      5983
                               74300              SX3    A0                                                      FCC0977    33
          4066  12421                             BX4    X2+X1       ZP[D] = ZB                                  FCC0977    34
                     21305                        AX3    5                                                       FCC0977    35
                          27636                   PX6    B3,X6       R1W = TYI(NOC,J,K,R)                        FCC0977    36
                               20366              LX3    IH.SRFP                                                 FCC0977    37
          4067  12737                             BX7    X3+X7       SRF[R2W] = IT & 40B                         FCC0977    38
                     0400003270 +                 EQ     TYIT                                                    GRA      5986
                                                                                                                 GRA      5987
                                        *         STT - SETUP LINK WORD AND CHECK FOR SPECIAL CASE               GRA      5988
                                                                                                                 GRA      5989
          4070  20644                    PAC3     LX6    I.STP                                                   GRA      5990
                     76460                        SX4    B6                                                      GRA      5991
                          12646                   BX6    X4+X6                                                   GRA      5992
                               54660              SA6    A6          [R1+3] = RNI(0,TI,0,TI)                     GRA      5993
          4071  75101                             SX1    A0-B1                                                   GRA      5994
                     76660                        SX6    B6          R = TI                                      GRA      5995
                          0311004056 +            NZ     X1,PAC1     IF IT " 1     */ NOT SPECIAL CASE           GRA      5996
                                                                                                                 GRA      5997
                                        *         IT = 1, PARTIALLY MODIFIED *STT* FROM *PSC*, *CA* IS FROM      GRA      5998
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   149
        IRA - INSERT REGISTER ASSIGNMENTS IN BLOCKS                   PAC                 IRA 
  
                                        *         *RCT* AND *RF* IS RVT(REGN1)                                   GRA      5999
                                                                                                                 GRA      6000
          4072  55111                             SA1    A1-B1       C2W = RCT(J+1)                              GRA      6001
                     5222000130 C                 SA2    RVT+X2                                                  GRA      6002
                               43352              MX3    -IH.CAL                                                 GRA      6003
          4073  27636                             PX6    B3,X6       R1W = TYII(OC.STT,0,0,TI)                   GRA      6004
                     20322                        LX3    IH.CAP                                                  GRA      6005
                          5143000000 X            SA4    F.RDT+B3    D = RDT(NOC)                                GRA      6006
          4074  15313                             BX3    -X3*X1                                                  GRA      6007
                     20244                        LX2    IH.RFP                                                  GRA      6008
                          12723                   BX7    X2+X3       R2W = IHW(0,RVT(REGN1),CA[C2W],0)           GRA      6009
          4075  0400003270 +                      EQ     TYIT                                                    GRA      6010
                                                                                                                 FCC0646    34
                                        *         IT = 4 , GET RJ FROM LINK WORK OF RF IN *SEQ*.                 FCC0646    35
                                                                                                                 FCC0646    36
          4076  54451                    PAC4     SA4    A5+B1       R2 = R1 + 1                                 FCC0646    37
                     20430                        LX4    -IH.RFP                                                 FCC0646    38
                          15540                   BX5    "RN"X4      F = RF[R2]                                  FCC0646    39
                               11404              BX4    X0*X4                                                   FCC0646    40
          4077  0315004101 +                      NZ     X5,PAC5     IF F " 0                                    FCC0646    41
                                                                                                                 FCC0646    42
                          5222000130 C            SA2    RVT+X2      J = RVT(REGN1)                              FCC0646    43
          4100  43300                             MX3    0           K = 0                                       FCC0646    44
                     76110                        SX1    B1          ZB = 1                                      FCC0646    45
                          0400004105 +            EQ     PAC8                                                    FCC0646    46
                                                                                                                 FCC0646    47
          4101  53355                    PAC5     SA3    "SB"+X5     LFW = [SB+F]                                FCC0646    48
                     0323004102 +                 PL     X3,PAC6     IF ^INB[LFW]                                FCC0646    49
                               20352              LX3    -I.BRP      LFW = SHIFT(LFW,-I.BRP)                     FCC0646    50
          4102  73530                    PAC6     SX5    X3          F = SETX(LFW)                               FCC0646    51
                     5237000130 C                 SA3    RVT+X7      K = RVT(REGN2)                              FCC0646    52
                               76100              SX1    B0          ZB = 0                                      FCC0646    53
          4103  0317004104 +                      NZ     X7,PAC7     IF REGN2 " 0  */ RF IS IN *RCT*             FCC0646    54
                          5232000130 C            SA3    RVT+X2      K = RVT(REGN1)                              FCC0646    55
          4104  7225000000               PAC7     SX2    X5+         J = F                                       FCC0646    56
                                                                                                                 FCC0646    57
          4105  12745                    PAC8     BX7    X4+X5       RF[R2W] = F                                 FCC0646    58
                     5143000000 X                 SA4    F.RDT+B3    D = RDT(NOC)                                FCC0646    59
                               20744              LX7    IH.RFP                                                  FCC0646    60
          4106  20240                             LX2    R1.RJP                                                  FCC0646    61
                     20320                        LX3    R1.RKP                                                  FCC0646    62
                          12223                   BX2    X2+X3                                                   FCC0646    63
                               12526              BX5    X2+X6                                                   FCC0646    64
          4107  27635                             PX6    B3,X5       R1W = TYI(NOC,J,K,R)                        FCC0646    65
                     20132                        LX1    D.ZPP                                                   FCC0646    66
                          12414                   BX4    X1+X4       ZP[D] = ZB                                  FCC0646    67
          4110  0400003270 +                      EQ     TYIT                                                    FCC0646    68
                                                                                                                 GRA      6011
                                         OPT      MACRO  A,B,C                                                   GRA      6012
                                                  VFD    8/OC.A,8/OC.B,8/OC.C,8/OC.B,28/0                        FCC0646    69
                                                  ENDM                                                           GRA      6014
                                                                                                                 GRA      6015
          4111                           PACA     BSS    0                                                       GRA      6016
          4111  12627061134000000000              OPT    PLD,SLD,SDL                                             GRA      6017
          4112  13027462136000000000              OPT    PST,SST,SDS                                             GRA      6018
          4113  12430063140000000000              OPT    STT,SA,SS                                               GRA      6019
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   150
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                CUC                 IRA 
  
                                        **        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS AND REMOVE      GRA      6021
                                        *         DEAD ( USELESS ) DEFINITIONS FROM A SEQUENCE IN *TXT*.         GRA      6022
                                        *                                                                        GRA      6023
                                        *         ENTRY  *TXT* - RLIST INSTRUCTION SEQUENCE WITH R-NUMBERS IN    GRA      6024
                                        *                CANONICAL FORM.                                         GRA      6025
                                        *                                                                        GRA      6026
                                        *         EXIT   USES, PS,PRS, RJRS FIELDS ADJUSTED AND USELESS          GRA      6027
                                        *                DEFINITIONS REMOVED FROM THE SEQUENCE.                  GRA      6028
                                        *                                                                        GRA      6029
                                        *         *CUC* MAY BE CALLED AFTER A SEQUENCE HAS BEEN MODIFIED BY      GRA      6030
                                        *         DELETION OR SUBSTITUTION IN SUCH A WAY AS NOT TO INTRODUCE     GRA      6031
                                        *         REDUNDANT INSTRUCTIONS.                                        GRA      6032
                                        *         NOTE THAT THE ZP, FP, L2 AND SZ BITS ARE NOT ADJUSTED HERE,    GRA      6033
                                        *         AND MUST BE PRESERVED BY PREVIOUS PROCESSORS.                  GRA      6034
                                        *                                                                        GRA      6035
                                        *         *CUC* CONSISTS OF A BACKWARDS SCAN TO COLLECT USES AND         GRA      6036
                                        *         SET PRECEDENCE BITS, OPTIONALLY FOLLOWED BY A FOWARD SCAN TO   GRA      6037
                                        *         COMPRESS THE SEQUENCE IF DEAD DEFINITIONS WERE ENCOUNTERED.    GRA      6038
                                                                                                                 GRA      6039
                                                  QUAL   CUC                                                     GRA      6041
                                                                                                                 GRA      6042
          4114                           CUCA     BFMW   D,(^D,RJRS,PI,USES)                                     GRA      6043
                                                                                                                 GRA      6044
          4115  0200404115 +             CUC      ROUTINE                                                        GRA      6045
          4116  5120000000 X                      SA2    O.TXT                                                   GRA      6046
                          5130000000 X            SA3    L.TXT                                                   GRA      6047
          4117  5110004114 +                      SA1    CUCA                                                    GRA      6048
                          66211                   SB2    B1+B1                                                   GRA      6049
                               63722              S"TB"  X2+B2       TB = O.TXT + 2                              GRA      6050
          4120  6160000047                        SB6    D.PSP                                                   GRA      6051
                          7100600001              SX0    RN.MASK                                                 CCG11     122
          4121  56000                             SA0    B0          DD = 0        */ ADDRESS OF FIRST DEAD DEF  GRA      6053
                     36623                        IX6    X2+X3                                                   GRA      6055
                          5256777773              SA5    X6-4        R1 = O.TXT + L.TXT - 4                      GRA      6056
          4122  43700                             MX7    0           [DI+1] = 0                                  GRA      6057
                     56771                        SA7    "TB"+B1     [TB+1] = 0    */ CLEAR LINK WD OF *BOS*     GRA      6058
                          0400004130 +            EQ     CUC1                                                    GRA      6059
  
  
  
          4123                                    PROCESS (PST,SST,SDS)                                          GRA      6061
          4123  15450                             BX4    "RN"X5                                                  GRA      6062
                     53347                        SA3    "TB"+X4     DIP = TB + RI[R1]                           GRA      6063
                          22667                   LX6    B6,X7                                                   GRA      6064
                               36273              IX2    X7+X3       USES[DIP] = USES[DIP] + 1                   GRA      6065
          4124  12626                             BX6    X2+X6       PS[DIP] = 1                                 GRA      6066
                     5063000000                   SA6    A3+                                                     GRA      6067
                                                                                                                 GRA      6068
                                        *         TYPE I INSTRUCTION PROCESSING                                  GRA      6069
                                                                                                                 GRA      6070
          4125  20534                    TYI      LX5    -R1.RJP                                                 GRA      6071
                     15650                        BX6    "RN"X5                                                  GRA      6072
                          53367                   SA3    "TB"+X6     DJ = TB + RJ[R1]                            GRA      6073
                               20520              LX5    R1.RJP-R1.RKP                                           GRA      6074
          4126  36637                             IX6    X3+X7       USES[DJ] = USES[DJ] + 1                     GRA      6075
                     5063000000                   SA6    A3+                                                     GRA      6076
                               15550              BX5    "RN"X5                                                  GRA      6077
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   151
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYI                 CUC 
  
          4127  53257                             SA2    "TB"+X5     DK = TB + R5[R1]                            GRA      6078
                     36627                        IX6    X2+X7       USES[DK] = USES[DK] + 1                     GRA      6079
                          5062000000              SA6    A2+                                                     GRA      6080
                                                                                                                 GRA      6081
                                        *         ADVANCE TO NEXT INSTRUCTION, CHECK FOR USELESS DEFINITIONS     GRA      6082
                                                                                                                 GRA      6083
          4130                                    PROCESS (LAB,ENT,UJP,RJ3,RJ6,S,FMA,CLR)                        GRA      6084
                                                                                                                 GRA      6085
          4130  55452                    CUC1     SA4    A5-B2       DI = R1 - 2                                 GRA      6086
                     55542                        SA5    A4-B2       R1 = DI - 2                                 GRA      6087
                          11614                   BX6    X1*X4                                                   GRA      6088
                               26235              UX2    B3,X5                                                   GRA      6089
          4131  5133004210 +                      SA3    CUC.JT+B3                                               GRA      6090
                          0306004134 +            ZR     X6,CUC2     IF ^(^D,PI,RJRS)[DI] & USES[DI] = 0         GRA      6091
                                                                                                                 GRA      6092
          4132  63430                             SB4    X3                                                      GRA      6093
                     76710                        SX7    B1                                                      GRA      6094
                          0244000000              JP     B4          JUMP( ([UC.JT( OC[R1] )] )                  GRA      6095
                                                                                                                 GRA      6096
          4133                                    PROCESS DAR                                                    GRA      6097
          4133  43363                             MX3    -D.USESL                                                GRA      6098
                     15643                        BX6    -X3*X4                                                  GRA      6099
                          0316004125 +            NZ     X6,TYI      IF USES[DI] " 0                             GRA      6100
                                                                                                                 GRA      6101
                                        *         USELESS DEF, MARK AS DEAD                                      GRA      6102
                                                                                                                 GRA      6103
          4134  54640                    CUC2     SA6    A4          [DI] = 0                                    GRA      6104
                     54050                        SA0    A5          DD = R1                                     GRA      6105
                          0400004130 +            EQ     CUC1                                                    GRA      6106
                                                                                                                 GRA      6107
          4135                                    PROCESS EOS                                                    GRA      6108
          4135  73750                             SX7    X5                                                      GRA      6109
                     0307004130 +                 ZR     X7,CUC1     IF IH[R1] = 0 */ NOT AN OPT=2 *EOS*         GRA      6110
                                                                                                                 GRA      6111
          4136                                    PROCESS NOP                                                    GRA      6112
          4136  43600                             MX6    0                                                       GRA      6113
                     0400004134 +                 EQ     CUC2                                                    GRA      6114
                                                                                                                 GRA      6115
          4137                                    PROCESS DWL                                                    GRA      6116
          4137  43600                             MX6    0           PS = 0                                      CCGA039    11
                     20427                        LX4    59-D.L2P                                                CCGA039    12
                          0334004141 +            MI     X4,CUC10    IF L2[DI]                                   CCGA039    13
          4140  22667                             LX6    B6,X7       PS = 1                                      CCGA039    14
                                        *                                                                        CCGA039    15
          4141  15450                    CUC10    BX4    "RN"X5                                                  CCGA039    16
                     53347                        SA3    "TB"+X4     DIP = TB + RI[R1]                           CCGA039    17
                          12336                   BX3    X3+X6       DIP = DIP + PS                              CCGA039    18
                               36637              IX6    X3+X7       USES[DIP] = USES[DIP] + 1                   GRA      6119
          4142  54630                             SA6    A3                                                      GRA      6120
                     0400004125 +                 EQ     TYI                                                     GRA      6121
                                                                                                                 GRA      6122
          4143                                    PROCESS (UP,NR,RNZ)                                            GRA      6123
          4143  20554                             LX5    -R1.RKP                                                 GRA      6124
                     15450                        BX4    "RN"X5                                                  GRA      6125
                          53347                   SA3    "TB"+X4     DK = TB + RK[R1]                            GRA      6126
                               36637              IX6    X3+X7       USES[DK] = USES[DK] + 1                     GRA      6127
          4144  54630                             SA6    A3                                                      GRA      6128
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   152
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYI                 CUC 
  
                     0400004130 +                 EQ     CUC1                                                    GRA      6129
  
  
  
          4145                                    PROCESS RS                                                     GRA      6131
          4145  20546                             LX5    -R1.SOP-SO.LKP                                          GRA      6132
                     43372                        MX3    -SO.LKL                                                 GRA      6133
                          55252                   SA2    A5-B2       DIP = R1 - 2                                GRA      6134
                               15653              BX6    -X3*X5                                                  GRA      6135
          4146  43363                             MX3    -D.USESL                                                GRA      6136
                     63360                        SB3    X6          LKT = SOLK[R1]                              GRA      6137
                          0723004155 +            GT     B3,B2,RS2   IF LKT = 3    */ RJ RS                      GRA      6138
                                                                                                                 GRA      6139
          4147  20746                             LX7    D.PRSP                                                  GRA      6140
                     12672                        BX6    X7+X2       PRS[DIP] = 1                                GRA      6141
                          20701                   LX7    D.PSP-D.PRSP                                            GRA      6142
                               15667              BX6    -X7*X6      PS[DIP] = 0                                 GRA      6143
          4150  0431004152 +                      EQ     B3,B1,RS1   IF LKT = 1    */ TEMP LOCK                  GRA      6144
                                                                                                                 GRA      6145
                          76710                   SX7    B1                                                      GRA      6146
                               36667              IX6    X6+X7       USES[DIP] = USES[DIP] + 1                   GRA      6147
          4151  54620                             SA6    A2                                                      GRA      6148
                     0400004130 +                 EQ     CUC1                                                    GRA      6149
                                                                                                                 GRA      6150
          4152  15723                    RS1      BX7    -X3*X2                                                  GRA      6151
                     54620                        SA6    A2                                                      GRA      6152
                          0317004130 +            NZ     X7,CUC1     IF USES[DIP] " 0                            GRA      6153
                                                                                                                 GRA      6154
          4153  54740                             SA7    A4          [DI] = 0                                    GRA      6155
                     54720                        SA7    A2          [DIP] = 0                                   GRA      6156
                          55522                   SA5    A2-B2       R1 = DIP - 2                                GRA      6157
                               55022              SA0    A2-B2       DD = R1                                     GRA      6158
          4154  0400004130 +                      EQ     CUC1                                                    GRA      6159
                                                                                                                 GRA      6160
          4155  15643                    RS2      BX6    -X3*X4                                                  GRA      6161
                     20750                        LX7    D.RJRSP                                                 GRA      6162
                          0306004157 +            ZR     X6,RS3      IF USES[DI] = 0                             GRA      6163
          4156  12672                             BX6    X7+X2       RJRS[DIP] = 1                               GRA      6164
                     54620                        SA6    A2                                                      GRA      6165
                          0400004130 +            EQ     CUC1                                                    GRA      6166
                                                                                                                 GRA      6167
          4157  54640                    RS3      SA6    A4          [DI] = 0                                    GRA      6168
                     54050                        SA0    A5          DD = R1                                     GRA      6169
                          55322                   SA3    A2-B2                                                   GRA      6170
                               15727              BX7    -X7*X2      RJRS[DIP] = 0                               GRA      6171
          4160  20040                             LX0    R1.RJP                                                  GRA      6172
                     54720                        SA7    A2                                                      GRA      6173
                          11603                   BX6    X0*X3       RJ[R1-4] = 0                                GRA      6174
                               20034              LX0    -R1.RJP                                                 GRA      6175
          4161  54630                             SA6    A3                                                      GRA      6176
                     0400004130 +                 EQ     CUC1                                                    GRA      6177
  
  
          4162                                    PROCESS DEF                                                    GRA      6179
          4162  20747                             LX7    D.PSP                                                   GRA      6180
                     15647                        BX6    -X7*X4      PS[DI] = 0                                  GRA      6181
                          54640                   SA6    A4                                                      GRA      6182
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   153
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                DEF                 CUC 
  
          4163  0400004130 +                      EQ     CUC1                                                    GRA      6183
  
  
  
          4164                                    PROCESS BOS                                                    GRA      6185
          4164  43163                             MX1    -D.USESL                                                GRA      6186
                     11614                        BX6    X1*X4       USES[DI] = 0                                GRA      6187
                          54640                   SA6    A4                                                      GRA      6188
                               64600              SB6    A0          DI = DD                                     GRA      6189
          4165  0460004115 +                      ZR     B6,CUC      IF SI = 0     */ NO USELESS DEFS            GRA      6190
                                                                                                                 GRA      6191
                                        *         COMPRESS SEQUENCE TO REMOVE USELESS INSTRUCTIONS               GRA      6192
                                                                                                                 GRA      6193
                          54402                   SA4    A0+B2       DI = DD + 2                                 GRA      6194
                               66422              SB4    B2+B2                                                   GRA      6195
                                                                                                                 GRA      6196
          4166  54444                    BOS1     SA4    A4+B4       DI = DI + 4                                 GRA      6197
                     0304004166 +                 ZR     X4,BOS1     IF [DI] = 0                                 GRA      6198
                                                                                                                 GRA      6199
                               55542              SA5    A4-B2       R1 = DI - 2                                 GRA      6200
          4167  55341                             SA3    A4-B1       R2 = DI - 1                                 GRA      6201
                     10644                        BX6    X4                                                      GRA      6202
                          26235                   UX2    B3,X5                                                   GRA      6203
                               56662              SA6    B6+B2       [SI+2] = [DI]                               GRA      6204
          4170  10755                             BX7    X5                                                      GRA      6205
                     56760                        SA7    B6          [SI] = [R1]                                 GRA      6206
                          10633                   BX6    X3                                                      GRA      6207
                               56661              SA6    B6+B1       [SI+1] = [R2]                               GRA      6208
          4171  66664                             SB6    B6+B4       SI = SI + 4                                 GRA      6209
                     0530004166 +                 NZ     B3,BOS1     IF OC[R1] " 0                               GRA      6210
                                                                                                                 GRA      6211
                               67572              SB5    "TB"-B2                                                 GRA      6212
          4172  77765                             SX7    B6-B5       L.TXT = SI - O.TXT                          GRA      6213
                     5170000000 X                 SA7    L.TXT                                                   GRA      6214
                               75155              SX1    A5-B5       OTL = R1 - O.TXT  */ OLD LENGTH             GRA      6215
          4173  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , OTL )                          GRA      6216
          4174  5140000000 X                      SA4    O.TXT                                                   GRA      6217
                          63720                   SB7    X2                                                      GRA      6218
                               43200              MX2    0                                                       GRA      6219
          4175  53040                             SA0    X4                                                      GRA      6220
                     0100000000 X                 CALL   RNI#        RENUMBER THE INSTRUCTIONS                   CCGNC     668
          4176  7160000000                        SX6    0                                                       GRA      6222
                          5160000000 X            SA6    L.RND       L.RND = 0                                   GRA      6223
          4177  0400004115 +                      EQ     CUC                                                     GRA      6224
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   154
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                TYIII               CUC 
  
          4200                                    PROCESS (ST,TST)                                               GRA      6226
          4200  15550                             BX5    "RN"X5                                                  GRA      6227
                     53357                        SA3    "TB"+X5     DIP = TB + RI[R1]                           GRA      6228
                          22667                   LX6    B6,X7                                                   GRA      6229
                               36237              IX2    X3+X7       USES[DIP] = USES[DIP] + 1                   GRA      6230
          4201  12662                             BX6    X6+X2       PS[DIP] = 1                                 GRA      6231
                     54630                        SA6    A3                                                      GRA      6232
                                                                                                                 GRA      6233
          4202                                    PROCESS (LD,ILD,TLD,LDC,LDV,STT,KLS,KRS)                       CCG16     241
          4202  54351                             SA3    A5+B1       R2 = R1 + 1                                 GRA      6235
                     20330                        LX3    -IH.RFP                                                 GRA      6236
                          15630                   BX6    "RN"X3                                                  GRA      6237
                               53267              SA2    "TB"+X6     DJ = TB + RF[R2]                            GRA      6238
          4203  36627                             IX6    X2+X7       USES[DJ] = USES[DJ] + 1                     GRA      6239
                     54620                        SA6    A2                                                      GRA      6240
                          0400004130 +            EQ     CUC1                                                    GRA      6241
  
  
          4204                                    PROCESS (JPBB,RJXJ)                                            CCG2       19
          4204  54351                             SA3    A5+B1       R2 = R1 + 1                                 GRA      6244
                     20330                        LX3    -IH.RFP                                                 GRA      6245
                          15630                   BX6    "RN"X3                                                  GRA      6246
                               53267              SA2    "TB"+X6     DJ = TB + RF[R2]                            GRA      6247
          4205  36627                             IX6    X2+X7       USES[DJ] = USES[DJ] + 1                     GRA      6248
                     54620                        SA6    A2                                                      GRA      6249
                                                                                                                 GRA      6250
          4206                                    PROCESS (JIN,JPX)                                              GRA      6251
          4206  15550                             BX5    "RN"X5                                                  GRA      6252
                     53357                        SA3    "TB"+X5     DIP = TB + RI[R1]                           GRA      6253
                          36637                   IX6    X3+X7       USES[DIP] = USES[DIP] + 1                   GRA      6254
                               54630              SA6    A3                                                      GRA      6255
          4207  0400004130 +                      EQ     CUC1                                                    GRA      6256
                                                                                                                 GRA      6257
                                                  QUAL                                                           GRA      6258
                                3155 +   IRA      EQU    /IRA/IRA                                                GRA      6259
                                4115 +   CUC      EQU    /CUC/CUC                                                GRA      6260
                                         CUC#     EQENT  CUC                                                     CCGNC     669
  
  
                                        **        OPR - DEFINE MACRO TO CREATE COMBINED JUMP TABLE FOR *IRA/CUC* GRA      6262
                                                                                                                 GRA      6263
                                                  MACRO  OPR,NAM,SS                                              GRA      6264
                                                  NOREF  /IRA/.NAM,/CUC/.NAM                                     GRA      6265
                                         TYP      MICRO  4,1,$SS$                                                GRA      6266
                                         O        IF     DEF,/IRA/.NAM                                           GRA      6267
                                                  EQ     /IRA/.NAM           NAM                                 GRA      6268
                                         O        ELSE                                                           GRA      6269
                                                  IFC    EQ,/"TYP"/ /,2                                          GRA      6270
                                                  EQ     /IRA/TYI    NAM                                         GRA      6271
                                                  SKIP   1                                                       GRA      6272
                                                  EQ     ERROR                                                   GRA      6273
                                         O        ENDIF                                                          GRA      6274
                                        *                                                                        GRA      6275
                                         O        IF     DEF,/CUC/.NAM                                           GRA      6276
                                        -         JP     /CUC/.NAM           NAM                                 GRA      6277
                                         O        ELSE                                                           GRA      6278
                                                  IFC    EQ,/"TYP"/ /,2                                          GRA      6279
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   155
        CUC - COLLECT USES COUNTS, SET PRECEDENCE BITS                OPR 
  
                                        -         JP     /CUC/TYI    NAM                                         GRA      6280
                                                  SKIP   1                                                       GRA      6281
                                        -         JP     377777B                                                 GRA      6282
                                         O        ENDIF                                                          GRA      6283
                                                  ENDM                                                           GRA      6284
                                                                                                                 GRA      6285
          4210                           IRA.JT   BSS    0                                                       GRA      6286
          4210                           CUC.JT   BSS    0                                                       GRA      6287
          4210                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                                                                                                 GRA      6289
          4317                                    END                                                            GRA      6290
  
                             62300B CM  STORAGE USED            14592 STATEMENTS     2125 SYMBOLS      000015 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           11.389 SECONDS        3349 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AAD          2230   PROGRAM*       79/10     90/07 L   90/38
        AAD1         2240   PROGRAM*       90/13     90/19     90/25 L
        AAV          1505   PROGRAM*       62/17     67/14 L   67/16     68/40     70/11
        AAVA         1500   PROGRAM*       67/10 L   67/26
        AAV2         1513   PROGRAM*       67/32 L   67/35     67/37     67/41     67/44     67/50     68/09     68/15
        AAV2A        1522   PROGRAM*       67/48     67/51 L
        AAV3         1523   PROGRAM*       68/02 L   68/06     68/08
        AAV4         1527   PROGRAM*       68/03     68/11 L
        AAV5         1531   PROGRAM*       67/20     67/33     68/17 L
        AAV5A        1540   PROGRAM*       68/36     68/39 L
        AAV6         1543   PROGRAM*       68/48 L   70/07
        AAV8         1557   PROGRAM*       69/20     69/22     69/34 L
        AAV9         1563   PROGRAM*       69/08     69/16     69/47 L   69/50
        ABR           167   CCGSCR         43/14 S   47/45     49/26     71/32 S
        ACT           206   CCGSCR         63/41 S   63/56 S   64/09     64/52 S   65/12    134/25
        ADW$            0   EXTERNAL*      98/26
        AFA          2267   PROGRAM*       75/31     89/09     92/10 L   92/26
        AIR          1102   PROGRAM*       44/27     47/04     47/23     49/20 L   49/48     82/11     90/56
        AIR1         1100   PROGRAM*       49/11 L   49/23
        AIS#            0   EXTERNAL*     118/08
        AI.BASEP       71                  71/18 D   73/49     75/01
        AI.FPP         22                  71/22 D   78/07     78/43
        AI.INDXL       22                  71/23 D
        AI.INDXP        0                  71/23 D   74/54
        AI.LENL        22                  71/20 D
        AI.LENP        25                  71/20 D   73/47     74/54     74/56     78/10     78/54     79/12     79/27
        AI.NIHL        22                  71/19 D
        AI.NIHP        47                  71/19 D   73/51     74/56     75/01
        APF           162   CCGSCR         20/38 S   30/33     32/30
        ASPA         1207   PROGRAM*       54/21 L   54/35
        ASP1         1216   PROGRAM*       54/40 L   54/49
        ASP2         1217   PROGRAM*       54/38     54/43 L   54/46     54/54     55/02     55/07
        ASP3         1224   PROGRAM*       55/01     55/04 L
        ATI           220   CCGSCR         74/21 S   74/46
        ATS$            0   EXTERNAL*      13/23     43/23     57/19     74/35     95/28    106/17    153/36
                                           20/19     50/23     71/33     83/17     96/01    120/35
        AUM1         2762   PROGRAM*      111/37 L  111/40    111/48    112/03    112/07    112/12
        AUM2         2772   PROGRAM*      111/54    111/55    112/05 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   156
        SYMBOLIC REFERENCE TABLE. 
  
        AUM3         2773   PROGRAM*      111/50    111/52    112/09 L
        AXCT         1501   PROGRAM*       13/25 S   67/12 L   68/12 S   68/20 S   68/49    123/32
        BA.BIL         22 
        BA.BIP         44                 118/41    119/14
        BA.LENL        22 
        BA.LENP        22 
        BC.COL         22                  71/12 D
        BC.COP          0                  71/12 D
        BC.IHL         22                  71/10 D   73/19
        BC.IHP         33                  71/10 D   72/46     73/21     77/48
        BC.NOCCL       11                  71/11 D
        BC.NOCCP       22                  71/11 D   72/26
        BC.RFL         17                  71/09 D
        BC.RFP         55                  71/09 D   72/48     73/15     73/27     75/04
        BI.CBP         72   GTX           118/49    118/51    119/27
        BI.ILP         71   GTX           118/44
        BI.PCL          2   GTX           118/46
        BI.PCP         44   GTX           118/51
        BI.PIIL        21   GTX           107/19
        BI.PIIP        44   GTX           107/20    107/42
        BLNKCOM         0   EXTERNAL*      64/42     86/27
        BSI             0   EXTERNAL*      62/14 S  112/19 S  114/56    115/43 S  118/14
                                           95/09 S  113/16    115/18    115/45    118/37
        BSI#            0   EXTERNAL* 
        BSW             0   EXTERNAL*      33/20 S
        BSW#            0   EXTERNAL* 
        BS.CLL         17                 111/05 D
        BS.CLP         46                 111/05 D  114/53
        BS.CLPCL       21                 111/10 D  119/16
        BS.CLPCP       44                 111/10 D  119/19
        BS.LENL        22                 111/08 D
        BS.LENP         0                 111/08 D
        BS.PCL          2                 111/06 D
        BS.PCP         44                 111/06 D  111/10    114/54    118/19
        BVL             0   EXTERNAL*      15/06    107/45    109/08    122/14
        BVL#            0   EXTERNAL* 
        B1=1            0 
        CAIH          221   CCGSCR         79/37 S   89/18 S   90/08     90/14
        CA.ACP         70                  18/14     23/56     39/28     62/54     91/03     94/54    108/40
                                           18/16     25/49     40/13     67/10     91/39    101/37    121/39
                                           22/49     27/15     62/52     72/14     94/48    108/38    143/04
        CA.APLNL        2                  20/35     67/46
        CA.APLNP       52                  20/37     67/45
        CA.CONP        67                  14/02     46/16     52/51     65/47     83/21     94/54    146/31
                                           19/19     48/44     61/13     69/21     83/44     99/42
                                           21/26     50/13     63/27     72/10     85/37    100/04
                                           21/57     52/47     64/16     72/12     93/40    138/01
        CA.CTL          3                  30/06
        CA.CTP         67                  30/07
        CA.DEFP        25                  16/18     17/42     23/34     47/21     67/10    108/47
                                           16/22     17/47     31/45     52/51     67/43    111/12
                                           16/45     23/27     44/24     53/10    108/45
        CA.DUL          2                  15/11
        CA.DUP         24                  15/38     16/18
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   157
        SYMBOLIC REFERENCE TABLE. 
  
        CA.EUP         63                  18/54     33/13     34/56     36/08     37/14     43/05     75/56
                                           30/57     33/14     35/07     36/13     38/10     45/02    111/35
                                           32/07     34/08     35/23     36/37     38/31     45/56    142/08
                                           32/44     34/34     35/38     36/40     38/50     48/11    142/10
                                           33/12     34/42     35/40     36/42     39/06     48/31    144/36
        CA.FPP         66                  25/47     25/49     30/19     30/20     78/03     78/07     79/31
        CA.IAP         60                  35/40     48/49    111/13
        CA.IRAP        72                  43/05    130/41    137/46    138/01    147/22
        CA.KDP         22                  18/55     48/50    108/34    139/13    146/04
                                           19/27     85/10    108/38    139/26    146/21
        CA.LXP         23                  16/10     43/05     54/37     60/15     65/47    101/22
                                           18/57     46/21     60/13     65/44    101/20    111/12
        CA.NOCCL       11                  62/55     68/53     71/40     79/30     81/11     93/15
        CA.NOCCP       41                  22/15     48/31     64/03     68/54     72/26     81/13     93/17
                                           30/39     62/54     67/08     71/42     79/29     81/33
        CA.NOC2L       10                  79/30 D   79/31
        CA.NOC2P       42                  79/29 D   79/31
        CA.NO=2L        1                  67/09 D   67/10
        CA.NO=2P       42                  67/08 D   67/10
        CA.PLP         27                  15/47     15/49     16/05     23/26     23/27     91/03     94/54
        CA.PRFTL        3 
        CA.PRFTP       54                  15/23     15/49     16/41
        CA.PSPP        26                  15/26     54/57    101/22    111/12    142/40    143/04
                                           16/15     60/15    108/47    142/10    143/02
        CA.RAFL         2 
        CA.RAFP        72 
        CA.RAP         73                  17/47     19/27     50/14     60/13     67/45     81/27    101/37    136/30
                                           18/28     46/08     54/37     61/13     72/12     83/44    108/40    137/46
                                           18/33     48/49     54/57     61/14     72/14    101/20    108/45    139/13
        CA.RFP         62                  14/02     18/52     23/43     35/43     37/42     43/04     50/14    127/30
                                           18/37     21/30     33/12     36/45     39/24     48/49    111/13    128/29
        CA.SORTL       30                  43/28     50/28
        CA.SORTP       30                  43/30     50/30
        CA.SUSEL       11                  18/29     46/12     65/31
        CA.SUSEP       30                  17/03     18/28     26/26     31/08     46/16     65/32     66/16     69/05
                                           17/09     18/33     30/41     46/08     46/20     65/35     69/02     69/12
        CA.TUP         57                  16/22     33/14     36/42     44/22     44/41     46/46     75/16
                                           17/09     36/13     36/45     44/24     44/56     48/10
        CA.UDIL        22                  30/26
        CA.UDIP         0 
        CA.USEP        24                  16/53     23/26     23/42     67/10
        CA.VCP         71                  15/13     19/27     26/19     39/16     48/49    111/12    136/30
                                           15/38     23/51     26/32     39/24     50/13    111/13    139/26
                                           16/30     23/56     29/27     40/13     61/14    121/35
                                           18/16     25/53     38/39     43/04    100/04    121/39
        CA.^RDP        61                  16/45     16/53     33/13     39/06     43/42     48/50
        CC$PC           0   EXTERNAL*     118/55 S
        CC.H2L         22                  32/49     91/29
        CC.H2P         22                  22/54     32/49     72/18     77/19     91/18     91/31    103/17
        CC.IMP         71                  32/27     63/33     86/38    134/31
        CC.INCL        22 
        CC.INCP        44                  32/31     63/18     64/49     85/34     93/37    134/28
                                           48/41     63/19     71/56     86/38    111/44    134/31
                                           63/13     64/12     81/43     93/27    111/53
        CC.I1P         73                  63/11
        CC.I2P         72                  31/20     32/20     32/36     63/11     63/13    111/53
        CC.MITL         6                  32/49
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   158
        SYMBOLIC REFERENCE TABLE. 
  
        CC.MITP         6                  27/18     32/49    147/42    147/45
        CC.REGFL       22                 117/20
        CC.REGFP        0 
        CC.REG1L        6                  45/49     66/04     75/06     83/50    117/16    134/39    138/18    146/12
                                           49/14     69/35     82/26    111/27    128/48    136/43    139/33    147/39
        CC.REG1P        0                  72/34    111/44    147/42
        CC.REG2L        6 
        CC.REG2P       14                  76/11     80/29     82/30     90/32    147/45
        CIS          3130   PROGRAM*      114/17    118/12    118/34 L  118/57
        CIS1         3135   PROGRAM*      118/48 L  118/50
        CIS2         3137   PROGRAM*      118/45    118/54 L
        CIT           223   CCGSCR         78/12 S   78/34     79/02 S   79/11     79/41 S
                                           78/21     78/46     79/04     79/17     80/40
        CL            216   CCGSCR         72/56 S   81/10     93/14
        CLB          2753   PROGRAM*       12/54    111/15 L  115/32    115/52
        CLBA         2751   PROGRAM*      111/12 L  112/29
        CLBB         2752   PROGRAM*      111/13 L  111/30
        CLB1         2774   PROGRAM*      111/31    111/38    112/17 L  116/07
        CLB10        3045   PROGRAM*      113/20    115/05    115/07    115/18 L
        CLB11        3053   PROGRAM*      115/37 L  115/48
        CLB12        3060   PROGRAM*      115/42    115/47 L
        CLB13        3061   PROGRAM*      115/41    115/50 L
        CLB14        3063   PROGRAM*      114/18    116/03 L
        CLB17        3066   PROGRAM*      116/04    116/12 L
        CLB2         3002   PROGRAM*      112/32    112/35 L  112/49
        CLB3         3006   PROGRAM*      112/36    112/39    112/48 L
        CLB4         3010   PROGRAM*      112/56 L  115/24
        CLB4A        3021   PROGRAM*      113/10    113/22 L
        CLB8         3031   PROGRAM*      114/34 L  114/39
        CLB9         3033   PROGRAM*      114/23    114/44 L
        CLW          3076   PROGRAM*      116/12    116/31 L  116/44
        CLW1         3102   PROGRAM*      116/40 L  116/42
        CMR          1313   PROGRAM*       52/05     59/21 L
        CMRA         1311   PROGRAM*       59/14 L   59/27
        CMR0         1312   PROGRAM*       59/16 L   59/43
        CMR1         1321   PROGRAM*       59/37 L   59/55
        CMR2         1322   PROGRAM*       59/38     59/40 L
        CMR4         1324   PROGRAM*       59/33     59/53     60/12     60/16     60/21
                                           59/50 L   59/57     60/14     60/19
        CMR6         1333   PROGRAM*       60/08     60/18 L
        CRW          1210   PROGRAM*       51/37     54/23 L   54/26     55/54     55/56
        CRWA         1206   PROGRAM*       50/57 S   51/32 S   54/20 L   57/01
        CRW0         1226   PROGRAM*       54/41     55/11 L
        CRW1         1231   PROGRAM*       55/23 L   55/42     55/48     56/34     56/37     56/44     56/51     56/55
        CRW10        1261   PROGRAM*       56/40     56/46 L
        CRW2         1236   PROGRAM*       55/29     55/40 L
        CRW3         1240   PROGRAM*       55/28     55/46 L
        CRW4         1245   PROGRAM*       55/46     56/03 L
        CRW5         1246   PROGRAM*       56/04     56/06 L
        CRW7         1250   PROGRAM*       55/34     55/36     56/10     56/16 L   56/29
        CRW8         1254   PROGRAM*       56/18     56/23     56/27     56/29 L
        CRW9         1255   PROGRAM*       55/41     56/33 L
        CUC          4115   PROGRAM*      113/29    154/36 D  154/37
        CUC.JT       4210   PROGRAM*      151/13    155/08 L
        CUC#         4115   PROGRAM*      154/37 E  154/37 D
        CXB          3115   PROGRAM*      118/03 L  118/06    118/25
        CXB#         3115   PROGRAM*      118/03 E  118/03 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   159
        SYMBOLIC REFERENCE TABLE. 
  
        DAA          1340   PROGRAM*       12/45     61/21     61/26     61/35     61/39     62/06     63/50     66/45
                                           61/16 L   61/23     61/28     61/36     61/43     62/20     65/03
        DAAA         1335   PROGRAM*       61/12 L   62/29
        DAAB         1337   PROGRAM*       61/14 L   65/13     68/48     72/29
        DAA0         1346   PROGRAM*       61/20     61/27 L
        DAA0A        1356   PROGRAM*       61/41     61/47 L
        DAA1         1365   PROGRAM*       62/07     62/10     62/12 L
        DAA10        1446   PROGRAM*       65/12 L   66/39
        DAA10A       1463   PROGRAM*       65/46     65/48     66/03 L
        DAA11        1470   PROGRAM*       65/38     65/45     66/22 L   66/25
        DAA2         1376   PROGRAM*       62/38 L   62/45     62/53     63/10     63/16     63/44
                                           62/41     62/51     62/57     63/12     63/28
        DAA3         1416   PROGRAM*       63/26     63/41 L
        DAA4         1420   PROGRAM*       62/43     63/50 L
        DAA5         1424   PROGRAM*       64/08 L   65/01
        DAA7         1440   PROGRAM*       64/13     64/21     64/36     64/48 L
        DAA8         1443   PROGRAM*       64/17     64/23     64/34     64/44     64/57 L
        DAA9         1444   PROGRAM*       64/10     64/55     65/03 L
        DMASK           0   EXTERNAL*     130/18    137/24
        DMASK#          0   EXTERNAL* 
        DTL           250   CCGSCR        113/08    121/57 S
        DUM           450   PROGRAM*       12/19     41/19 D
        DUMA          444   PROGRAM*       33/12 L   34/29     34/37     34/50
        DUMB          445   PROGRAM*       33/13 L   35/17
        DUMC          446   PROGRAM*       33/14 L   35/42
        DUM.JT        630   PROGRAM*       33/48     42/34 L  140/37
        DVA             3   GPOGRA
        DXA          1115   PROGRAM*       12/42     50/16 L   50/56     51/49     53/25
                                           12/49     50/20     51/41     52/08
        DXAA         1113   PROGRAM*       50/13 L   50/32
        DXA1         1126   PROGRAM*       50/39 L   50/42     50/44     50/50
        DXA10        1172   PROGRAM*       52/43 L   53/20
        DXA11        1176   PROGRAM*       52/48     52/49     52/53     52/56 L   53/04
        DXA2         1132   PROGRAM*       50/40     50/52 L
        DXA3         1140   PROGRAM*       51/14 L   51/23
        DXA4         1143   PROGRAM*       51/22     51/28 L
        DXA4A        1144   PROGRAM*       50/18     51/31 L
        DXA5         1145   PROGRAM*       51/01     51/34 L   51/47
        DXA6         1152   PROGRAM*       51/31     51/45 L
        DXA7         1154   PROGRAM*       51/39     52/05 L
        DXA8         1163   PROGRAM*       52/14     52/17     52/23 L
        DXA9         1167   PROGRAM*       52/26     52/28     52/31 L
        D.BML           1   GTX            54/21     59/14     61/12
        D.BMP          52   GTX            54/21     54/45     59/14     59/52     59/56     61/12     62/40     62/44
        D.FPP          25   GTX            30/20     40/11    101/54    104/14    104/22    105/41    137/04
        D.INCP         22   GTX            22/27     24/12     30/44     35/36     36/37     38/48     40/05     40/28
                                           22/32     24/15     30/49     36/11     38/19     40/01     40/11    139/15
        D.JPP          41   GTX            41/10
        D.LDL           1   GTX            59/14     61/12
        D.LDP          43   GTX            59/14     60/05     61/12     63/25     97/27    144/19
        D.L2P          44   GTX            59/56     62/44    125/29    125/41    126/09    151/41
        D.PIL           1   GTX           150/22
        D.PIP          36   GTX           141/36    150/22
        D.PRSP         46   GTX            21/12     56/46    129/38    147/17    152/16
                                           56/39    126/29    137/49    152/14
        D.PSP          47   GTX            22/32    129/14    129/38    147/02    147/17    150/30    152/16    152/55
        D.RFP          23   GTX            23/40     23/42     23/43
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   160
        SYMBOLIC REFERENCE TABLE. 
  
        D.RJRSL         1   GTX           150/22
        D.RJRSP        50   GTX           150/22    152/36
        D.STL           1   GTX            54/21     59/14
        D.STP          42   GTX            30/49     30/54     54/21     59/14
        D.SZP          27   GTX           102/18    140/32
        D.TYL           2   GTX            27/54     33/32    124/38
        D.TYP          72   GTX            24/15     55/33     55/40     56/03
        D.USESL        11   GTX            22/07     55/15    142/31    151/21    153/06
                                           30/36    131/12    150/22    152/10
        D.USESP         0   GTX            22/11     30/44     56/46    142/37    150/22
        D.XUP          24   GTX            30/54    140/06    141/21    144/43
        D.ZPP          32   GTX           148/35    149/45
        D.^DL           1   GTX           150/22
        D.^DP          51   GTX            55/33     55/40     56/03     56/39    150/22
        EBV#            0   EXTERNAL*      13/43
        ECC          2276   PROGRAM*       89/45     93/13 L   93/47
        ECC0         2275   PROGRAM*       93/09 L   93/25
        ECC1         2302   PROGRAM*       93/20     93/23 L   93/29
        EDC          2244   PROGRAM*       80/12     90/21     90/44 L   91/01
        EDCA         2252   PROGRAM*       77/22     90/46     91/03 L
        EMF            13   GPOGRA
        EPSI           33   GPOGRA        106/11    122/08
        ERC           164   PROGRAM*       12/20     32/52 D
        ERC.JT        630   PROGRAM*       20/50     42/35 L
        E.ALLPP        71                 106/34    107/15
        E.BIL          17                 107/13
        E.BIP           0                 107/15
        E.JPP          72                 122/30
        E.LINKL        22 
        E.LINKP        17 
        E.NPREDL       11 
        E.NPREDP       60 
        E.PREDL        17                 122/21
        E.PREDP        41                 122/24    122/26
        E.SCRP         73                 122/26    122/30
        FBA           163   CCGSCR         17/27     27/30 S   45/21
        FLB          2743   PROGRAM*      109/36    110/19 L  110/28    110/34
        FLB1         2747   PROGRAM*      110/22    110/30 L
        F$RDT           0   EXTERNAL* 
        F.CLC         100   CCGSCR         13/17 S
        F.RDT           0   EXTERNAL*     101/56    121/01    124/20    132/22    136/21    145/22    149/08
                                          105/40    121/12    126/07    135/41    140/27    148/37    149/38
        GRA             2   PROGRAM*       12/06 L   13/09
        GRASRF          1   PROGRAM*       12/04 L   13/08 S   76/17 S
        GRASRF#         1   PROGRAM*       12/04 E   12/04 L
        GRA0            5   PROGRAM*       12/12 L  116/25
        GRA1           25   PROGRAM*       12/34     12/49 L
        GRA2           26   PROGRAM*       12/32     12/40     12/47     12/51 L
        GRA3           27   PROGRAM*       12/17     12/54 L
        GRA#            2   PROGRAM*       12/06 E   12/06 L
        HBI             0   EXTERNAL*      98/53
        HBI#            0   EXTERNAL* 
        HC.ID           2   GTX            17/48 F   26/29 F   36/49 F   64/41 F   86/26 F  104/09 F
        HO$ARGC         0   EXTERNAL*     104/10
        HO$LCM          0   EXTERNAL*     127/13
        HO$OPT          0   EXTERNAL*      40/50     67/15    108/06    137/06
        HO$UO           0   EXTERNAL*      40/48     64/08     67/49
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   161
        SYMBOLIC REFERENCE TABLE. 
  
        IAI           160   CCGSCR         18/46     31/55
        IA.CAL         22 
        IA.CAP         22 
        IA.NWDL        14 
        IA.NWDP        60 
        IA.UDIL        22 
        IA.UDIP         0 
        IB.ILDL        22 
        IB.ILDP         0 
        IB.NLDL        14 
        IB.NLDP        60 
        IH.CAIHL       44   GTX            24/08     94/50    100/39    103/16    106/25    123/18    123/42    141/40
        IH.CAL         22   GTX            21/19     65/22     82/19     89/23     99/41    121/13    134/55    149/05
                                           63/34     77/05     83/18     91/26    121/11    134/54    134/57
        IH.CAP         22   GTX            13/32     22/35     63/36     65/52     82/21     89/28     99/46    135/53
                                           18/04     22/39     64/19     69/26     83/23     89/34     99/49    136/18
                                           21/09     26/44     65/18     73/37     85/09     91/21    101/27    138/16
                                           21/21     31/34     65/20     75/38     85/46     91/22    121/13    146/38
                                           21/41     38/06     65/24     77/09     88/26     91/28    134/54    146/40
                                           21/51     45/20     65/27     77/10     88/42     93/16    134/57    149/07
                                           21/53     47/30     65/29     77/16     89/16     99/08    135/46
        IH.IHL         22   GTX            68/01
        IH.IHP          0   GTX            36/48
        IH.MSKP        73                  21/30
        IH.RFL         22   GTX            85/53
        IH.RFP         44   GTX            18/02     24/26     36/48     67/55     89/14    130/28    136/38    149/10
                                           18/04     26/10     39/15     68/57    100/14    132/23    137/17    149/17
                                           22/28     26/35     56/08     72/24    100/40    132/30    137/27    149/39
                                           22/35     26/44     63/03     76/49    105/22    133/08    138/09    154/11
                                           22/47     26/53     63/23     79/44    125/51    134/52    141/41    154/21
                                           24/04     29/37     65/29     85/55    126/12    135/15    148/22
                                           24/18     36/32     67/39     86/01    130/19    135/42    148/38
        IH.SIAP        67   GTX           105/45
        IH.SLVL         5 
        IH.SLVP        66                  23/20    100/44
        IH.SRFP        66   GTX           148/43
        IRA          3155   PROGRAM*      113/05    154/35 D
        IRA.JT       4210   PROGRAM*      124/54    155/07 L
        IRP            35   PROGRAM*       12/12     13/15 L   13/50     13/57
        IRPA           55   PROGRAM*       13/22     14/02 L
        IRP1           51   PROGRAM*       13/39     13/48 L
        ISC=            0   EXTERNAL*      13/17
        ITL            14   GPOGRA         38/05     98/35    101/28
        IT.             0   EXTERNAL*      84/47
        I.COL          22                  54/18 D
        I.COP           0                  54/18 D
        I.USESL        22                  54/17 D
        I.USESP        22                  54/17 D   55/17     56/21     56/25     56/46
        LBJF          251   CCGSCR        120/47 S  123/29    134/09 S
        LBN           247   CCGSCR        120/48 S  122/22    125/07 S
        LCT           164   CCGSCR         12/23 S   67/25    108/10    111/28
        LCV            21   GPOGRA         44/29 S   84/14     84/30     84/48     86/45     96/19    135/31
        LEA             7   GPOGRA         15/07    108/13
        LGL            16   GPOGRA        132/52
        LIH            25   GPOGRA        133/05    134/02    135/34
        LIV          2464   PROGRAM*       96/17     96/57     97/05     97/54     99/38 L  100/02    100/10    100/24
        LIV1         2472   PROGRAM*       99/51     99/53     99/56 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   162
        SYMBOLIC REFERENCE TABLE. 
  
        LIV2         2474   PROGRAM*       99/43    100/04 L
        LIV3         2477   PROGRAM*      100/05    100/14 L
        LIV4         2502   PROGRAM*      100/16    100/22 L
        LTT            30   GPOGRA         36/04     44/12     48/01
        LUL            23   GPOGRA         44/39     47/06 S   83/46     84/12     86/49 S   96/33    135/30
                                           45/52 S   83/11     83/55     84/28     95/41    116/21 S
        LUV             4   GPOGRA         13/40     20/23    108/12    122/55
        LXA             6   GPOGRA        109/07
        L$BIT           0   EXTERNAL* 
        L$BST           0   EXTERNAL* 
        L$IIT           0   EXTERNAL* 
        L$MOD           0   EXTERNAL* 
        L$PIT           0   EXTERNAL* 
        L$PSI           0   EXTERNAL* 
        L$RCT           0   EXTERNAL* 
        L$RND           0   EXTERNAL* 
        L$RXI           0   EXTERNAL* 
        L$SEQ           0   EXTERNAL* 
        L$TET           0   EXTERNAL* 
        L$TXT           0   EXTERNAL* 
        L.BIT           0   EXTERNAL* 
        L.BST           0   EXTERNAL*     115/19
        L.CLC         130                  13/17
        L.HB            0   EXTERNAL*     132/38
        L.HB#           0   EXTERNAL* 
        L.IIT           0   EXTERNAL* 
        L.MOD           0   EXTERNAL*      98/16 S
        L.PIT           0   EXTERNAL*     112/21 S  114/45    115/14 S  115/31    115/51 S  116/19 S  118/16    118/24 S
        L.PSI           0   EXTERNAL*     107/52 S
        L.RCT           0   EXTERNAL*      12/21     15/05     43/25     48/09     71/27     76/55     90/45    116/20 S
                                           13/06 S   20/13 S   45/25     50/25     74/39 S   85/56     93/33
        L.RND           0   EXTERNAL*      47/50 S   50/55 S   58/01 S   74/22 S   83/08 S  153/43 S
        L.RXI           0   EXTERNAL*      13/07 S
        L.SEQ           0   EXTERNAL*      54/24     57/41     61/24     98/12    113/02    116/33    118/04    120/32
        L.TET           0   EXTERNAL*      98/36     99/27 S
        L.TXT           0   EXTERNAL*     112/57 S  114/27    116/17 S  123/54 S  153/34 S
                                          113/07    115/27 S  118/23 S  150/26
        L.UDT           1   GPOGRA
        MAA           204   CCGSCR         62/12 S   62/18     63/52     68/17
        MARA            0   PROGRAM*       12/03 L   12/10 S   61/56    116/15 S
        MAXW           34   GPOGRA         12/36
        MAX.INC       101                  64/22
        MCG#            0   EXTERNAL*     118/56
        MDA            10   GPOGRA
        MFA          1572   PROGRAM*       12/51     71/25 L   83/09     84/07     84/23     84/40     87/06
        MFAC         1775   PROGRAM*       79/05     79/26 L
        MFAD         1776   PROGRAM*       72/40     79/31 L   79/50
        MFA1         1603   PROGRAM*       71/50 L   72/11
        MFA10        1662   PROGRAM*       74/46 L   76/41     77/27     77/42     80/45
                                           75/32     76/53     77/34     79/24
        MFA10A       1675   PROGRAM*       75/18     75/23 L
        MFA11        1676   PROGRAM*       75/31 L   75/43     75/46     75/53     75/57
        MFA12        1700   PROGRAM*       75/27     75/36 L
        MFA13        1722   PROGRAM*       76/35     76/45 L
        MFA14        1734   PROGRAM*       77/17     77/22 L
        MFA2         1606   PROGRAM*       71/46     72/07 L   72/15     72/37     72/53
                                           71/53     72/13     72/20     72/44
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   163
        SYMBOLIC REFERENCE TABLE. 
  
        MFA2B        1620   PROGRAM*       72/27     72/32     72/37 L
        MFA2C        1623   PROGRAM*       72/35     72/42     72/46 L
        MFA20        1736   PROGRAM*       75/23     77/32 L
        MFA3         1626   PROGRAM*       72/08     72/55 L
        MFA30        1740   PROGRAM*       77/32     77/39 L
        MFA31        1743   PROGRAM*       77/52 L   77/56     78/18
        MFA32        1751   PROGRAM*       78/14     78/16 L
        MFA33        1755   PROGRAM*       78/34 L   78/40
        MFA34        1757   PROGRAM*       78/37     78/40 L
        MFA34A       1761   PROGRAM*       78/42     78/46 L
        MFA35        1765   PROGRAM*       79/04 L   79/14     79/22
        MFA4         1636   PROGRAM*       73/27 L   74/05
        MFA40        1777   PROGRAM*       75/11     75/17     75/21     77/40     78/24     78/44     79/36 L
        MFA41        2000   PROGRAM*       79/39 L   80/43
        MFA45        2012   PROGRAM*       79/48     80/16 L
        MFA46        2017   PROGRAM*       80/25     80/35 L
        MFA47        2020   PROGRAM*       79/54     79/55     80/10     80/33     80/40 L
        MFA48        2022   PROGRAM*       73/06     74/50     81/01 L
        MFA48A       2025   PROGRAM*       81/03     81/10 L
        MFA49        2031   PROGRAM*       81/23 L   81/45
        MFA5         1642   PROGRAM*       73/31     73/34     73/43 L   74/12
        MFA50        2034   PROGRAM*       81/29     81/33 L
        MFA51        2035   PROGRAM*       81/31     81/37 L
        MFA52        2037   PROGRAM*       81/35     81/42 L
        MFA53        2041   PROGRAM*       81/40     81/47 L
        MFA54        2047   PROGRAM*       81/57     82/06 L   82/13
        MFA55        2052   PROGRAM*       82/02     82/07     82/17 L
        MFA56        2054   PROGRAM*       82/24 L   83/01
        MFA57        2056   PROGRAM*       82/32 L   82/54
        MFA58        2062   PROGRAM*       82/39     82/47 L
        MFA59        2064   PROGRAM*       82/32     82/42     82/53 L
        MFA6         1646   PROGRAM*       73/23     74/01 L   74/08     74/10
        MFA6A        1022   PROGRAM*       46/14     46/19 L
        MFA60        2066   PROGRAM*       81/05     81/47     82/01     82/18     83/06 L
        MFA60A       2100   PROGRAM*       83/36 L   83/38     83/43     83/45
        MFA60B       2107   PROGRAM*       83/30     83/40     83/55 L
        MFA61        2111   PROGRAM*       83/13     84/05 L
        MFA62        2113   PROGRAM*       84/12 L   85/28
        MFA63        2120   PROGRAM*       84/08     84/27 L
        MFA64        2125   PROGRAM*       84/27     84/44 L
        MFA65        2133   PROGRAM*       85/03 L   85/22
        MFA66        2141   PROGRAM*       85/04     85/07     85/13     85/15     85/21 L   85/38     86/34
        MFA67        2143   PROGRAM*       85/19     85/33 L
        MFA67A       2152   PROGRAM*       86/05 L   86/09     86/21     86/29
        MFA67B       2163   PROGRAM*       86/12     86/17     86/19     86/33 L
        MFA68        2164   PROGRAM*       85/48     86/06     86/38 L
        MFA7         1652   PROGRAM*       73/56     74/16 L
        MLW           201   CCGSCR         51/35 S   55/51     57/04 S   61/17
        ML.IIP         44   GTX            98/15
        ML.NIP         22   GTX            98/19
        MPB#            0   EXTERNAL*      98/28
        MPR#            0   EXTERNAL*     137/09
        MRA            15   GPOGRA         12/16     37/19     47/46     53/24 S   65/05     68/21     71/26    114/22
                                           13/52     43/08     52/10     61/47     66/44 S   68/44     95/17    116/24 S
        MRU           232   CCGSCR         95/15    112/20 S  114/25
        MTA           741   PROGRAM*       12/28     43/07 L   43/17     48/35
        MTAA          737   PROGRAM*       43/04 L   43/34
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   164
        SYMBOLIC REFERENCE TABLE. 
  
        MTAB          740   PROGRAM*       43/05 L   46/07     75/14
        MTAC         1076   PROGRAM*       48/28     48/49 L
        MTA1          754   PROGRAM*       43/36 L   43/39     43/43     43/48
        MTA10        1035   PROGRAM*       46/11     46/24     46/31     47/01 L
        MTA11        1041   PROGRAM*       44/15     44/25     45/10     46/02     46/47     47/14 L   47/37
                                           44/23     44/32     45/19     46/04     46/54     47/26
        MTA12        1051   PROGRAM*       43/52     46/38     47/02     47/39 L
        MTA14        1052   PROGRAM*       47/17     47/18     47/43 L
        MTA15        1063   PROGRAM*       48/17 L   48/23
        MTA16        1065   PROGRAM*       48/20     48/23 L
        MTA17        1066   PROGRAM*       48/14     48/15     48/28 L
        MTA18        1070   PROGRAM*       48/34 L   48/37     48/39     48/45     48/47
        MTA2          760   PROGRAM*       43/37     43/50 L
        MTA2A         771   PROGRAM*       44/38 L   45/14
        MTA3         1002   PROGRAM*       44/42     45/05     45/18 L
        MTA4         1006   PROGRAM*       45/30 L   45/32
        MTA5         1010   PROGRAM*       44/51     45/23     45/40 L
        MTA6         1016   PROGRAM*       45/43     46/06 L
        MTA7         1024   PROGRAM*       46/17     46/28 L
        MTA8         1031   PROGRAM*       46/35     46/43 L
        MVE=            0   EXTERNAL*      96/11
        M.PL           12   GPOGRA        119/18
        N             230   CCGSCR         95/57 S   96/18
        NAA           205   CCGSCR         66/43 S  111/16    115/06    116/13    134/21
        NAB           170   CCGSCR         43/15 S   47/01     47/44     66/12     77/41     79/52     81/53
                                           46/37     47/15     49/27     69/43     78/20     81/01     82/12
        NAC           217   CCGSCR         73/05 S   74/32
        NBIP#           0   EXTERNAL*      12/08 S
        NPS           233   CCGSCR        106/08    106/31    112/52 S  122/07
        NTA           171   CCGSCR         12/37     43/16 S   47/43
        NVC           165   CCGSCR         17/30 S   43/22     50/22
        NXC           173   CCGSCR         17/26     50/17     51/45     52/31    111/17    114/16    116/03
                                           27/33     51/29 S   52/07     55/11    112/28    115/04
        NXS           231   CCGSCR        111/22 S  120/33
        N.CLC          21 
        N.EBB          35   GPOGRA         61/18
        N.ENL          32   GPOGRA         67/17    106/09
        N.GT            0   EXTERNAL*      99/24
        N.GT#           0   EXTERNAL* 
        N.HB           17   GPOGRA         12/33     13/38     25/05     50/19     51/38     81/02    139/36
        N.LD          202   CCGSCR         52/23     59/22     61/30     68/32
        N.LJ           27   GPOGRA         13/48     61/32
        N.SBV           7 
        N.ST          203   CCGSCR         52/11     59/23     61/31
        OC.CLR        105   GTX            99/54    140/22
        OC.DAR          3   GTX           121/51
        OC.DEF          5   GTX           121/10    121/12    127/18    127/54    128/07    139/55
        OC.EOQ          0   GTX           123/49
        OC.EOS          2   GTX           121/01
        OC.FMA         43   GTX            99/52
        OC.IA          36   GTX            31/50    105/02    127/28
        OC.ILD         75   GTX           100/55
        OC.ILS         22   GTX           128/54
        OC.IS          37   GTX            97/10     97/29    104/47
        OC.JIN         71   GTX           133/11
        OC.JPBB        70   GTX           133/10    135/32    136/17
        OC.KLS         20   GTX           128/54
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   165
        SYMBOLIC REFERENCE TABLE. 
  
        OC.LAB          6   GTX           120/51
        OC.LD          50   GTX           101/24    102/21    135/02    136/33    147/38
        OC.LDC        103   GTX            23/17    102/21
        OC.LDV        104   GTX           102/21
        OC.PLD         53   GTX           149/54
        OC.PST         54   GTX           149/55
        OC.RS           4   GTX            55/19     94/25    133/02    135/12    141/28
        OC.S           55   GTX            99/45    140/27    140/28
        OC.SA          60   GTX            28/07    104/18    105/05    128/22    138/17    140/56    146/34
                                           96/26    104/26    123/11    128/36    139/46    142/22    149/56
                                           97/33    104/37    127/33    129/35    140/38    144/33
        OC.SDL         61   GTX           134/37    149/54
        OC.SDS         62   GTX           149/55
        OC.SLD         56   GTX           134/35    149/54
        OC.SS          63   GTX           127/45    128/32    129/03    138/20    141/05    146/46    149/56
        OC.SST         57   GTX           123/45    149/55
        OC.ST          51   GTX           123/17    147/35
        OC.STT         52   GTX            26/07    105/40    105/42    132/54    136/41    149/56
        OC.TLD         76   GTX           101/32
        OC.TST         77   GTX            98/56
        OC.XMT         10   GTX            28/09    123/09    139/43    142/47    145/46    147/26
                                           97/57    123/37    140/52    144/51    147/12
        OIL          2504   PROGRAM*      100/19    100/23    100/35 L  102/08
        OILA         2543   PROGRAM*      100/45    102/21 L
        OIL0         2520   PROGRAM*      101/04    101/19 L
        OIL1         2523   PROGRAM*      100/56    101/27 L
        OIL1A        2522   PROGRAM*      101/17    101/24 L
        OIL2         2526   PROGRAM*      100/49    100/50    100/51    101/21    101/23    101/25    101/31    101/34 L
        OIL3         2530   PROGRAM*      101/38    101/44 L
        OIL4         2534   PROGRAM*      101/46    101/56 L  102/16    102/19
        OIL5         2540   PROGRAM*      100/47    102/12 L
        ORS          2312   PROGRAM*       94/28 L   96/35     97/35     98/02
        ORS0         2311   PROGRAM*       94/25 L   94/42     94/47     94/49     94/52
        OSI          2631   PROGRAM*      103/11    103/57    104/05    104/53    105/21 L  105/53
        O$BIT           0   EXTERNAL* 
        O$BST           0   EXTERNAL* 
        O$FPI           0   EXTERNAL*      18/07     26/46
        O$IIT           0   EXTERNAL* 
        O$MOD           0   EXTERNAL* 
        O$PIT           0   EXTERNAL* 
        O$PSI           0   EXTERNAL* 
        O$RCT           0   EXTERNAL* 
        O$RND           0   EXTERNAL* 
        O$RXI           0   EXTERNAL* 
        O$SEQ           0   EXTERNAL* 
        O$SYM           0   EXTERNAL* 
        O$TET           0   EXTERNAL* 
        O$TXT           0   EXTERNAL* 
        O.BIT           0   EXTERNAL*     107/14    118/36    119/13
        O.BST           0   EXTERNAL*     113/15    114/48    115/37    118/13    118/35
        O.ENL          31   GPOGRA
        O.IIT           0   EXTERNAL*      75/41     84/46     95/42     96/08
        O.MOD           0   EXTERNAL* 
        O.MVL           2   GPOGRA
        O.PIT           0   EXTERNAL*     119/23
        O.PSI           0   EXTERNAL* 
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   166
        SYMBOLIC REFERENCE TABLE. 
  
        O.RCT           0   EXTERNAL*      15/04     52/32     62/27     84/44    106/19    112/27
                                           43/24     54/29     67/24     95/30    108/09    117/08
                                           50/24     59/24     71/34     96/03    111/29    120/37
        O.RND           0   EXTERNAL*      57/40     74/36     81/52
        O.RXI           0   EXTERNAL*     106/20    122/17
        O.SEQ           0   EXTERNAL*      20/21     57/20     57/47     62/28     95/16     98/23    116/32    120/36
        O.SYM           0   EXTERNAL*      63/51     79/57     85/57     95/29     96/02
        O.TET           0   EXTERNAL*      38/11     47/29     65/54     69/28     73/12     75/37     84/45     98/34
        O.TXT           0   EXTERNAL*      98/30    114/26    150/25    153/37
        O.UDT           0   GPOGRA         15/08     20/24     33/23     62/26    100/57    106/18    108/11    122/15
        PC              0   EXTERNAL*     114/46    118/15
        PCC#            0   EXTERNAL*      12/19     12/20     51/37     52/05    116/12
        PC#             0   EXTERNAL* 
        PI.CAL         22 
        PI.CAP         22                  75/48
        PI.CNL         22 
        PI.CNP         44 
        PI.LFL         22 
        PI.LFP          0 
        PI.MIPP        73 
        PL             36   GPOGRA        112/22 S  114/44    115/09 S  115/13 S  115/35 S  118/10 S  119/31
        PMF           222   CCGSCR         82/17     89/50 S
        PSC          2175   PROGRAM*       77/33     78/56     88/12 L   89/20     89/51
        PSC2         2200   PROGRAM*       88/24 L   88/30
        PSC3         2206   PROGRAM*       88/41 L   88/54
        PSC4         2211   PROGRAM*       88/49     88/52 L
        PSC5         2214   PROGRAM*       88/15     89/07 L
        PSC6         2220   PROGRAM*       89/22 L   89/47
        PST           234   CCGSCR        106/39    112/45 S  122/42
        PS.CAIHL       44 
        PS.CAIHP        0 
        PS.REGL         6 
        PS.REGP        66                 106/55
        PS.UDIL        22 
        PS.UDIP        44                  44/48     84/56    106/53
        Q.DAA           7                  11/08 D
        Q.DXA           6                  11/08 D
        Q.MFA          10                  11/08 D
        Q.MTA           5                  11/08 D
        Q.RAT           2                  11/08 D
        Q.RCT           1                  11/08 D
        Q.RVT           3                  11/08 D
        Q.SEE           4                  11/08 D
        Q.SUP          11                  11/08 D
        Q.SXC          12                  11/08 D
        RAT           100   CCGSCR         17/35     49/39 S   69/55 S   84/03 S   85/03     92/11     97/46
                                           26/24 S   53/15 S   75/54     84/13     86/44     94/29    112/35
                                           26/57 S   66/09 S   76/21     84/15     86/46     95/43    117/29 S
                                           27/24     66/30 S   76/25     84/29     86/54 S   96/21    121/15
                                           46/48 S   69/40 S   83/47 S   84/31     91/33     96/41    132/41
        RA.INVP        73                  49/37     53/13     84/36
        RA.R1L         22                  17/53     94/38     96/49
        RA.R1P          0 
        RA.R2L         22 
        RA.R2P         22                  76/28     84/17     86/52     94/40     95/46     96/15     96/51     97/12
        RA.R3L         22                  84/32
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   167
        SYMBOLIC REFERENCE TABLE. 
  
        RA.R3P         44                  26/22     76/38     84/34     96/22    121/23
                                           76/23     77/02     92/14     97/12
        RLW          1300   PROGRAM*       55/50     56/57     57/39 L   57/46     58/02    113/27
        RLW1         1306   PROGRAM*       57/52 L   57/56
        RNI#            0   EXTERNAL*     153/41
        RN.MASK    600001   GTX           122/01    150/31
        RR            230   CCGSCR         97/02 S   97/06     97/15
        RTB#            0   EXTERNAL*      62/15     95/10    113/01
        RVT           130   CCGSCR        117/30 S  123/04    131/41    135/10    136/09    141/26    148/16    149/34
                                          120/46 S  123/35    134/26    135/33    136/13 S  141/49    149/04
                                          121/19 S  123/38    134/29    135/35    136/52    146/15    149/22
                                          121/49 S  128/52    134/43    136/08 S  138/25    148/15    149/31
        RXA          3104   PROGRAM*       51/46    116/05    117/07 L  117/27    117/31
        R1.H2L         14   GTX            22/48
        R1.H2P         22   GTX            20/34     22/51     40/54    105/24
        R1.INP         36   GTX            21/04     22/45     23/47     39/13    101/35    130/36
                                           21/37     22/51     24/34     99/49    102/13    146/38
        R1.RIL         20   GTX            55/35     56/11     56/17
        R1.RJP         40   GTX            22/08     96/26    104/44    123/37    126/01    139/51    146/47    149/40
                                           28/03     97/10    104/47    123/45    127/05    141/11    147/07    150/51
                                           31/41     97/33    105/02    124/09    128/22    142/51    147/11    150/54
                                           31/47     97/57    105/05    124/45    129/37    145/08    147/26    152/46
                                           33/50    104/18    121/51    124/47    130/12    145/49    148/20    152/49
                                           33/52    104/26    123/13    125/49    134/42    146/33    148/30
        R1.RKP         20   GTX            31/47    104/47    124/47    139/48    146/47    150/54
                                           33/52    105/02    130/16    140/46    148/18    151/53
                                           97/10    124/16    134/45    141/07    149/41
        R1.SOP         20   GTX            21/15     56/43    121/21    128/02    130/36    132/57    141/30
                                           25/06     94/32    121/45    128/16    131/38    135/13    152/06
                                           37/20     94/36    126/33    130/34    131/40    139/57
        R2.MRAP        22                  95/23
        SCR             0   CCGSCR         18/49     32/14 S   81/14
        SDC          2253   PROGRAM*       79/47     90/11     90/17     91/16 L   91/46     91/51
        SDC1         2261   PROGRAM*       91/37 L   91/49
        SDC2         2265   PROGRAM*       91/41     91/42     91/47 L
        SEE            56   PROGRAM*       12/25     15/03 L   18/47     19/25
        SEEA          162   PROGRAM*       17/17     19/27 L   66/15     76/31     87/02
        SEE1           65   PROGRAM*       15/22 L   15/41
        SEE11         147   PROGRAM*       17/32     18/46 L
        SEE12         153   PROGRAM*       19/02 L   19/24
        SEE13         157   PROGRAM*       19/10     19/16 L
        SEE14         161   PROGRAM*       19/06     19/20     19/24 L
        SEE2           67   PROGRAM*       15/18     15/35     16/33     16/46     17/13     17/20
                                           15/32 L   15/52     16/44     16/54     17/15
        SEE2A          75   PROGRAM*       15/42     15/56 L
        SEE3          107   PROGRAM*       16/19     16/20     16/23     16/25     16/37 L
        SEE4          110   PROGRAM*       16/38     16/41 L
        SEE4A         115   PROGRAM*       16/51     17/02 L
        SEE5          121   PROGRAM*       16/57     17/10     17/15 L
        SEE6          123   PROGRAM*       15/33     17/26 L
        SEE7          130   PROGRAM*       17/36     17/39 L   18/42
        SEE7A         143   PROGRAM*       17/49     18/28 L
        SEE8          146   PROGRAM*       17/40     17/54     17/57     18/05     18/23     18/31     18/41 L
        SHL#            0   EXTERNAL*      43/54     51/03     73/08     74/25     81/51
        SIV          2547   PROGRAM*       96/31     97/18    100/09    103/13 L  104/54    105/06
        SIVA         2630   PROGRAM*      103/44    105/08 L
        SIV0         2546   PROGRAM*      103/09 L  103/20    103/34    103/40    103/46
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   168
        SYMBOLIC REFERENCE TABLE. 
  
        SIV1         2563   PROGRAM*      103/29    103/36    103/51 L
        SIV2         2564   PROGRAM*      103/49    103/55 L
        SIV2A        2606   PROGRAM*      104/38    104/42 L
        SIV2AA       2576   PROGRAM*      104/15    104/20 L
        SIV2AC       2603   PROGRAM*      104/11    104/29 L
        SIV2B        2607   PROGRAM*      104/41    104/44 L
        SIV2C        2611   PROGRAM*      104/23    104/27    104/32    104/47 L
        SIV3         2620   PROGRAM*      104/48    104/56 L
        SIV4         2624   PROGRAM*      104/56    105/04 L
        SLW          1267   PROGRAM*       54/28     57/15 L   57/18     57/32    113/03
        SLW1         1275   PROGRAM*       57/26 L   57/30
        SO.INVP        10   GTX            21/15     25/38     94/36
        SO.LKL          2   GTX            25/07    152/07
        SO.LKP          6   GTX            25/06     25/16     37/27    121/45    126/35    152/06
        SO.LOCK       200   GTX            94/30    121/20    135/11    141/27
        SO.REGL         6   GTX            25/13     37/21    126/30    128/03    128/15    130/33    131/37    140/01
        SO.RTP          3   GTX            56/43
        SO.TLOCK      100   GTX           132/56
        SRI             0   EXTERNAL*      94/26    120/57    123/52    135/17    141/44    146/51
                                          100/01    123/21    135/08    141/16    142/54
        SRI#            0   EXTERNAL*      96/26     97/57    104/44    105/05    123/37    132/54    147/12
                                           97/10    104/18    104/47    121/51    123/45    133/02    147/26
                                           97/33    104/26    105/02    123/13    128/22    133/10
        STP            37   GPOGRA         44/57 S   46/33
        SUP          2324   PROGRAM*       12/56     95/07 L   99/28     99/30
        SUPA         2323   PROGRAM*       94/54 L   96/48     97/50
        SUP1         2365   PROGRAM*       96/24     96/29 L
        SUP10        2421   PROGRAM*       96/42     96/55     97/37 L
        SUP12        2423   PROGRAM*       97/46 L   98/07
        SUP13        2431   PROGRAM*       97/55     98/02 L
        SUP14        2432   PROGRAM*       97/47     97/52     98/04 L
        SUP15        2443   PROGRAM*       98/24     98/34 L
        SUP16        2447   PROGRAM*       98/45 L   98/49
        SUP17        2451   PROGRAM*       98/43     98/53 L
        SUP18        2453   PROGRAM*       99/02 L   99/05     99/13
        SUP19        2457   PROGRAM*       99/04     99/18 L   99/22
        SUP2         2366   PROGRAM*       96/27     96/33 L
        SUP20        2461   PROGRAM*       99/20     99/24 L
        SUP4         2370   PROGRAM*       95/37     96/39 L
        SUP5         2371   PROGRAM*       96/41 L   97/38
        SUP5A        2376   PROGRAM*       96/53     96/57 L
        SUP6         2406   PROGRAM*       97/04     97/12 L
        SUP7         2412   PROGRAM*       97/14     97/23 L
        SUP8         2416   PROGRAM*       97/28     97/32 L
        SUP9         2420   PROGRAM*       97/19     97/30     97/35 L
        SVA            11   GPOGRA        109/09
        SXC          2643   PROGRAM*       13/02    106/07 L  108/07    108/21    110/07
        SXC10        2717   PROGRAM*      108/36    108/54 L
        SXC11        2721   PROGRAM*      108/29    109/07 L
        SXC12        2724   PROGRAM*      109/15 L  109/20
        SXC13        2727   PROGRAM*      109/29 L  110/05
        SXC14        2731   PROGRAM*      109/36 L  109/56
        SXC15        2737   PROGRAM*      109/44    109/54 L
        SXC16        2740   PROGRAM*      109/52    109/56 L
        SXC17        2741   PROGRAM*      109/34    110/03 L
        SXC2         2654   PROGRAM*      106/31 L  107/49
        SXC3         2656   PROGRAM*      106/39 L  107/06
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   169
        SYMBOLIC REFERENCE TABLE. 
  
        SXC4         2664   PROGRAM*      106/48    107/04 L
        SXC5         2665   PROGRAM*      106/35    107/10 L
        SXC5A        2672   PROGRAM*      107/31 L  107/35
        SXC5B        2674   PROGRAM*      107/22    107/37 L
        SXC6         2676   PROGRAM*      107/11    107/45 L
        SXC7         2701   PROGRAM*      106/10    106/13    108/06 L
        SXC8         2707   PROGRAM*      108/23 L  108/39    108/41    108/48
        SXC9         2710   PROGRAM*      108/20    108/28 L  108/31    108/46    108/49    109/01
        S$IT            0   EXTERNAL* 
        S=TRACE         0   EXTERNAL*      36/50
        TEST            0   GTX            11/27 F
        TRA           161   CCGSCR         13/56 S   25/21     37/31
        TRD           172   CCGSCR         47/49 S   83/06     84/05     86/43 S  134/10
                                           75/19     83/27     85/27 S   95/34    135/22
        TUD           166   CCGSCR         13/36 S   17/12 S   46/28
        T.BIPP         66   GTX            73/40
        T.HBNL         22   GTX            98/39
        T.HBNP         44   GTX            98/41     98/57
        T.INVP         73   GTX            75/44
        T.ITIP         44   GTX            75/44     85/12
        T.REGL         22   GTX            65/51     69/25
        T.REGP         22   GTX            47/34     65/55     69/29     75/51
        UD.BMIP        24                  39/52
        UD.CMP         23                  39/36    101/03    109/43
        UD.DEFRP       73                  39/52
        UD.ISTP        66                  13/42     33/25     39/36
        UD.STCL        11                  17/05
        UD.STCP        55                  17/04
        UVA             5   GPOGRA         33/24    101/11
        V.SRF        4000                  76/08
        WB.COMP        17   GTX            64/35     86/20
        WB.CXL          2   GTX           103/38
        WB.CXP         16   GTX           103/37
        WB.FPP         20   GTX            64/33     86/18    101/51    103/37    105/38
                                           64/35     86/20    103/35    105/36
        WB.LABP         3   GTX           103/33    103/35    105/32
        WB.LCMP        21   GTX            80/09     86/16     86/18    105/38
        WC.RBL         12   GTX            64/38     86/23    105/08
        WC.RBP         60   GTX            64/39     86/24    105/08
        WC.RLL          2   GTX           105/08
        WC.RLP         72   GTX           105/08
        WFB#            0   EXTERNAL*     119/41
        WSC          3142   PROGRAM*      115/12    115/44    118/21    119/12 L  119/43
        WSC2         3152   PROGRAM*      119/34    119/38 L
        XCT           174   CCGSCR         27/34 S   51/08     52/34    117/09
        XRF            20   GPOGRA         12/31     25/14     95/14
        Z$MLT           0   EXTERNAL*      98/26
        Z$MOD           0   EXTERNAL*      95/28     96/01
        Z$PSI           0   EXTERNAL*     106/17
        Z$RCT           0   EXTERNAL*      13/23     20/19     74/35     83/17
        Z$RND           0   EXTERNAL*      43/23     50/23     57/19     71/33    153/36
        Z$TXT           0   EXTERNAL*     120/35
        .CPU          111   GTX           113/31 F
        .DAL            1   GTX           104/31 F
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   170
        SYMBOLIC REFERENCE TABLE. 
  
        .P             63                  14/02 D   33/13     43/05 D   50/13     59/14 D   67/10     94/54 D  111/12
                                           14/02     33/13 D   43/05     50/13 D   59/14     67/10 D   94/54    111/12 D
                                           14/02 D   33/13     48/49 D   50/13     61/12 D   67/10     94/54 D  111/12
                                           14/02     33/14 D   48/49     50/14 D   61/12     67/10 D   94/54    111/13 D
                                           19/27 D   33/14     48/49 D   50/14     61/12 D   67/10     94/54 D  111/13
                                           19/27     33/14 D   48/49     50/14 D   61/12     67/10 D   94/54    111/13 D
                                           19/27 D   33/14     48/49 D   50/14     61/13 D   67/10    105/08 D  111/13
                                           19/27     43/04 D   48/49     54/21 D   61/13     79/31 D  105/08    111/13 D
                                           19/27 D   43/04     48/49 D   54/21     61/13 D   79/31    105/08 D  111/13
                                           19/27     43/04 D   48/49     54/21 D   61/13     79/31 D  105/08
                                           33/12 D   43/04     48/50 D   54/21     61/14 D   79/31    111/12 D
                                           33/12     43/05 D   48/50     59/14 D   61/14     91/03 D  111/12
                                           33/12 D   43/05     48/50 D   59/14     61/14 D   91/03    111/12 D
                                           33/12     43/05 D   48/50     59/14 D   61/14     91/03 D  111/12
                                           33/13 D   43/05     50/13 D   59/14     67/10 D   91/03    111/12 D
        .Z              0                  14/02 D   33/13 D   43/05 D   50/13 D   59/14 D   61/14 D   91/03 D  111/12 D
                                           19/27 D   33/14 D   48/49 D   50/14 D   61/12 D   67/10 D   94/54 D  111/13 D
                                           33/12 D   43/04 D   48/50 D   54/21 D   61/13 D   79/31 D  105/08 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     UDT                                12/13 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  ERC 
  
  
        ERC           164   PROGRAM*       20/16 L   32/52
        ERC1          176   PROGRAM*       20/33     21/16     24/46     25/51     26/20
                                           20/43 L   22/33     25/27     25/55     27/39
        ERC2          177   PROGRAM*       20/48 L   22/13     23/05     24/31     27/37
                                           21/33     22/18     23/24     27/31
        FCP           345   PROGRAM*       25/26     27/49 L   27/52     27/56     28/06     28/08     28/10     28/13
        RS1           310   PROGRAM*       25/43     25/53 L
        RS2           312   PROGRAM*       25/39     25/48     25/50     25/57 L
        RS2A          321   PROGRAM*       26/17     26/22 L
        RS3           333   PROGRAM*       25/54     26/08     26/12     26/31     26/33     26/37     27/06 L
        RS4           341   PROGRAM*       27/25     27/28 L
        RS5           343   PROGRAM*       27/28     27/33 L
        RS9           176   PROGRAM*       25/09     25/12     25/15     25/24     25/31     26/02     27/39 D
        SCT           356   PROGRAM*       21/32     23/23     29/21 L   30/50     32/21     32/47
                                           22/01     24/29     30/48     31/26     32/39
        SCTA          443   PROGRAM*       29/46     32/49 L
        SCT0          355   PROGRAM*       29/18 L   29/31
        SCT0A         362   PROGRAM*       29/25     29/30 L
        SCT0B         364   PROGRAM*       29/28     29/36 L
        SCT1          365   PROGRAM*       29/23     29/42 L
        SCT10         434   PROGRAM*       31/35     32/25 L
        SCT11         440   PROGRAM*       32/34     32/38 L
        SCT12         441   PROGRAM*       32/01     32/43 L
        SCT2          370   PROGRAM*       29/53 L   29/55     30/03     30/09
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   171
        SYMBOLIC REFERENCE TABLE.                                     ERC 
  
        SCT3          400   PROGRAM*       30/14     30/25 L
        SCT4          401   PROGRAM*       30/23     30/33 L
        SCT5          416   PROGRAM*       31/17     31/28 L
        SCT6          420   PROGRAM*       31/25     31/29     31/39 L
        SCT7          424   PROGRAM*       31/46     31/55 L
        SCT8          431   PROGRAM*       32/03     32/12 L
        SCT9          433   PROGRAM*       32/10     32/19 L
        SET1          203   PROGRAM*       21/11 L   21/43
        SET2          210   PROGRAM*       21/13     21/18     21/23 L   22/40
        STT1          231   PROGRAM*       22/37     22/39 L
        STT2          232   PROGRAM*       22/30     22/44 L
        ST1           253   PROGRAM*       23/35     23/46 L
        ST2           263   PROGRAM*       24/17     24/22 L
        ST2A          257   PROGRAM*       22/55     24/07 L
        ST2B          260   PROGRAM*       24/11 L   24/20
        ST3           265   PROGRAM*       24/13     24/23     24/29 L
        ST4           270   PROGRAM*       23/57     24/38 L
        TLDA          246   PROGRAM*       23/10     23/26 L
        TLD1          241   PROGRAM*       23/07     23/12 L
        TLD2          242   PROGRAM*       23/17 L   23/55
        TLD3          244   PROGRAM*       23/18     23/23 L
        TSTA          247   PROGRAM*       23/06     23/27 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  DUM 
  
  
        DUM           450   PROGRAM*       33/21 L   41/19
        DUM1          457   PROGRAM*       33/44 L   34/45     35/51     36/34     37/34     38/23     40/19
                                           34/13     35/10     36/18     37/05     37/44     38/42     40/31
                                           34/23     35/26     36/22     37/29     38/17     40/12
        DUM2          463   PROGRAM*       33/49     33/57 L
        FBM           616   PROGRAM*       33/22     40/46 L
        FBM0          615   PROGRAM*       40/45 L   40/49     41/01     41/11
        FBM1          624   PROGRAM*       40/51     40/56     41/03 L
        FBM2          625   PROGRAM*       41/07 L   41/12     41/16
        IA1           513   PROGRAM*       35/39     35/42 L
        ILS1          502   PROGRAM*       34/54     34/57 L
        JPX1          521   PROGRAM*       36/09     36/12     36/15 L
        LBM           614   PROGRAM*       34/30     34/51     36/17     39/20     40/43 L   40/45 S
        LD0           574   PROGRAM*       39/22     39/27 L
        LD1           575   PROGRAM*       39/18     39/33 L
        LD2           603   PROGRAM*       39/35     39/44     40/01 L
        LD2A          606   PROGRAM*       40/02     40/11 L
        LD3           607   PROGRAM*       39/29     39/37     39/50     39/53     40/15 L
        SA1           473   PROGRAM*       34/32     34/35 L
        SA2           476   PROGRAM*       34/40     34/43 L
        STT1          533   PROGRAM*       36/53     36/56 L
        ST1           565   PROGRAM*       38/51     39/04 L
        TST1          552   PROGRAM*       38/14     38/19 L
        TST2          554   PROGRAM*       38/20     38/25 L
        TYI           464   PROGRAM*       34/07 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   172
        SYMBOLIC REFERENCE TABLE.                                     IRA 
  
                                                  SYMBOL QUALIFIER =  IRA 
  
  
        APD          3752   PROGRAM*      141/24    144/09 L  144/49    145/48    145/53    145/55
        APD1         3754   PROGRAM*      144/13 L  144/15
        APD2         3760   PROGRAM*      144/20    144/27 L
        APD3         3767   PROGRAM*      144/28    144/51 L
        APD4         3770   PROGRAM*      144/38    144/57 L
        APD5         4000   PROGRAM*      145/33 L  145/39
        APD6         4002   PROGRAM*      145/35    145/38 L
        DEF1         3470   PROGRAM*      131/43    131/56 L
        DEF2         3473   PROGRAM*      132/03    132/06    132/09 L
        DWL0         3311   PROGRAM*      125/42    125/45 L
        DWL1         3312   PROGRAM*      125/30    125/35    125/47 L
        DWL2         3316   PROGRAM*      125/55    125/57    126/03 L
        DWL3         3317   PROGRAM*      126/03    126/05 L
        EOQ1         3227   PROGRAM*      122/42 L  123/25
        EOQ1A        3221   PROGRAM*      122/24 L  122/34
        EOQ1B        3224   PROGRAM*      122/28    122/29    122/33 L
        EOQ1C        3226   PROGRAM*      122/31    122/37 L
        EOQ2         3237   PROGRAM*      123/10    123/12 L
        EOQ3         3242   PROGRAM*      123/06    123/16 L
        EOQ4         3244   PROGRAM*      122/51    123/23 L
        EOQ5         3245   PROGRAM*      122/09    122/10    122/35    123/29 L
        EOQ6         3247   PROGRAM*      123/34 L  123/47
        EOQ7         3257   PROGRAM*      123/30    123/34    123/49 L
        FMA1         3457   PROGRAM*      131/24 L  131/44
        FMA2         3460   PROGRAM*      131/29 L  131/47    131/51
        IA           3351   PROGRAM*      127/28 L  127/56    128/10    128/23
        IAA          3352   PROGRAM*      127/14    127/30 L
        IA1          3356   PROGRAM*      127/37    127/40 L
        IA2          3357   PROGRAM*      127/35    127/42 L
        IA4          3347   PROGRAM*      127/17    127/20    127/24 L
        IA5          3363   PROGRAM*      127/26    127/54 L
        IA6          3365   PROGRAM*      127/22    128/02 L
        IA7          3367   PROGRAM*      128/07 L  128/19
        IA8          3370   PROGRAM*      128/09 L  128/14
        IRA          3155   PROGRAM*      120/31 L  123/55    154/35
        IRA1         3172   PROGRAM*      120/53    121/09 L
        IRA10        3272   PROGRAM*      122/02    126/44    132/10    139/16    142/41    146/09    147/23
                                          124/36 L  129/25    136/57    139/24    143/03    146/52    147/27
                                          125/08    130/42    137/56    142/11    143/05    147/18
        IRA11        3276   PROGRAM*      124/43    124/52 L
        IRA3         3174   PROGRAM*      121/15 L  121/54
        IRA5         3210   PROGRAM*      121/16    121/38    121/40    121/53 L
        IS1          3403   PROGRAM*      127/44    127/48    127/52    128/35    128/37 L
        I.BRL          22                 120/22 D
        I.BRP          22                 120/22 D  126/26    127/40    130/06    131/49    137/22    144/34
                                          125/21    126/41    128/37    130/08    132/07    138/27    144/37
                                          126/04    126/47    128/38    130/23    132/35    141/02    146/23
                                          126/17    126/55    129/04    131/05    133/06    142/01    146/33
                                          126/18    127/05    129/33    131/07    136/02    142/05    149/29
        I.INBP         73                 120/18 D
        I.MIBP         72                 120/19 D  127/43    127/47    127/50    128/34    141/03    146/43
        I.STL          22                 120/21 D
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   173
        SYMBOLIC REFERENCE TABLE.                                     IRA 
  
        I.STP          44                 120/21 D  126/57    129/50    131/57    142/19    143/10    148/05
                                          124/13    129/17    130/51    136/54    142/33    145/02    148/49
                                          125/32    129/23    130/56    137/37    142/36    146/25
                                          125/43    129/29    131/26    139/09    142/44    147/14
        I.XRL          22                 120/23 D
        I.XRP           0                 120/23 D
        JIN1         3505   PROGRAM*      132/43 L  132/46
        JIN2         3507   PROGRAM*      132/40    132/43    132/52 L
        JIN3         3521   PROGRAM*      132/37    132/47    133/13 L  133/26    135/56    136/04    136/14
        JPX0         3532   PROGRAM*      134/11    134/15    134/21 L
        JPX1         3534   PROGRAM*      134/25 L  135/20
        JPX10        3573   PROGRAM*      136/09 L  136/12
        JPX2         3541   PROGRAM*      134/36    134/38 L
        JPX3         3544   PROGRAM*      134/33    134/51 L
        JPX4         3546   PROGRAM*      134/53    135/02 L
        JPX5         3547   PROGRAM*      134/47    135/06 L
        JPX7         3554   PROGRAM*      134/22    135/22 L
        JPX8         3563   PROGRAM*      135/36    135/41 L
        JPX9         3566   PROGRAM*      134/07    135/26    135/51 L
        LD1          3612   PROGRAM*      136/29    137/02 L  139/11    143/13
        LD2          3617   PROGRAM*      137/05    137/07    137/16 L  137/40
        LD3          3621   PROGRAM*      137/21    137/23 L
        PAC          4045   PROGRAM*      136/37    136/40    136/48    138/02    147/37 L
        PACA         4111   PROGRAM*      147/47    149/53 L
        PAC0         4044   PROGRAM*      139/27    147/35 L
        PAC1         4056   PROGRAM*      148/01    148/10 L  148/55
        PAC2         4064   PROGRAM*      148/26    148/29    148/33 L
        PAC3         4070   PROGRAM*      148/02    148/49 L
        PAC4         4076   PROGRAM*      148/11    149/16 L
        PAC5         4101   PROGRAM*      149/20    149/27 L
        PAC6         4102   PROGRAM*      149/28    149/30 L
        PAC7         4104   PROGRAM*      149/33    149/35 L
        PAC8         4105   PROGRAM*      149/25    149/37 L
        PLD1         3430   PROGRAM*      129/52    130/05 L
        PLD2         3431   PROGRAM*      130/05    130/07 L
        PLD3         3432   PROGRAM*      130/07    130/10 L
        PLD4         3436   PROGRAM*      130/22    130/24 L
        PVC          4011   PROGRAM*      126/24    129/13    131/22    136/31    146/03 L
        PVC1         4013   PROGRAM*      146/05    146/11 L
        PVC2         4026   PROGRAM*      146/35    146/41    146/49 L
        PVC5         4030   PROGRAM*      146/17    146/56 L
        PVC6         4035   PROGRAM*      147/03    147/05    147/14 L
        RS1          3443   PROGRAM*      130/37    130/41 L
        RS2          3452   PROGRAM*      130/39    130/45    131/03 L
        RS3          3454   PROGRAM*      130/47    130/54    131/01    131/11 L
        SA1          3333   PROGRAM*      126/25    126/27    126/37    126/38    126/46 L
        SA2          3335   PROGRAM*      126/31    126/52 L
        STT0         3624   PROGRAM*      137/35 L  137/44    138/14
        STT1         3633   PROGRAM*      137/47    137/50    137/52    138/01 L
        STT2         3636   PROGRAM*      138/12    138/16 L
        STT3         3640   PROGRAM*      138/19    138/22 L
        ST0          3645   PROGRAM*      139/07    139/13 L
        ST0A         3657   PROGRAM*      139/45    139/51 L
        ST0B         3660   PROGRAM*      139/47    139/55 L
        ST0C         3665   PROGRAM*      140/04    140/10 L
        ST1          3650   PROGRAM*      139/14    139/26 L
        ST1A         3666   PROGRAM*      139/37    139/50    139/56    140/16 L
1       GRA - GLOBAL REGISTER ASSIGNMENT / CODE LOOP BODY             COMPASS 3.7-871.     24/05/02. 13.12.44.      PAGE   174
        SYMBOLIC REFERENCE TABLE.                                     IRA 
  
        ST1B         3675   PROGRAM*      140/23    140/37 L
        ST1C         3701   PROGRAM*      140/07    140/12    140/17    140/40    140/52 L
        ST10         3746   PROGRAM*      142/16    142/28    143/01 L
        ST2          3707   PROGRAM*      140/55    140/57    141/04    141/10 L
        ST2A         3710   PROGRAM*      141/08    141/13 L
        ST3          3712   PROGRAM*      140/21    140/35    140/45    140/48    141/20 L
        ST3A         3714   PROGRAM*      141/22    141/26 L
        ST4          3721   PROGRAM*      141/37    141/39 L
        ST4A         3723   PROGRAM*      140/08    141/48 L
        ST5          3730   PROGRAM*      141/56    142/08 L
        ST6          3732   PROGRAM*      142/09    142/15 L
        ST7          3735   PROGRAM*      141/52    142/27 L
        ST8          3742   PROGRAM*      142/39    142/43 L
        ST9          3744   PROGRAM*      142/23    142/50 L
        TYI          3264   PROGRAM*      124/02    126/19    127/12    128/28    128/44    129/07
                                          124/07 L  126/46    127/31    128/30    128/55    138/26
                                          125/22    126/48    127/41    128/39    129/02    138/28
        TYIA         3267   PROGRAM*      124/19 L  127/07    129/44    131/33
        TYIII        3475   PROGRAM*      132/21 L  133/19
        TYIT         3270   PROGRAM*      124/25 L  126/13    131/16    135/48    137/30    149/12
                                          125/14    130/29    132/31    136/22    148/45    149/47
        XMT1         3417   PROGRAM*      129/16    129/19    129/27 L
        XMT2         3422   PROGRAM*      129/32    129/37 L
        XMT3         3424   PROGRAM*      129/39    129/42 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  CUC 
  
  
        BOS1         4166   PROGRAM*      153/17 L  153/18    153/30
        CUC          4115   PROGRAM*      150/24 L  153/10    153/44    154/36
        CUCA         4114   PROGRAM*      150/22 L  150/27
        CUC1         4130   PROGRAM*      150/37    151/29    152/01    152/27    152/40    153/01    154/32
                                          151/09 L  151/33    152/23    152/33    152/51    154/16
        CUC10        4141   PROGRAM*      151/42    151/45 L
        CUC2         4134   PROGRAM*      151/14    151/27 L  151/37
        RS1          4152   PROGRAM*      152/18    152/25 L
        RS2          4155   PROGRAM*      152/12    152/35 L
        RS3          4157   PROGRAM*      152/37    152/42 L
        TYI          4125   PROGRAM*      150/51 L  151/23    151/50
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1222              IDENT  PROSEQ 
                       1222                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1222 
                                        CCGSCR    COMMON          0        23 
  
  
                                        ENTRY POINTS. 
  
                                        B=PROSQ          0+           CC$PIOL          5+           SSP#            72+ 
                                        CC$BRN           0+           CC$SRF           6+           PSB#           113+ 
                                        CC$LNL           2+           CC$XR            7+           AIS#           145+ 
                                        CC$OPF           3+           CG$CPC          10+           ESRA#          567+ 
                                        CC$OPTL          4+           CG$PAS          15+           ESR#           605+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BLK     L$RCT     O$TXT     O$BCT     CG$SCT    Z$DUT     PBB#      SBB#
                                        L$BLK     O$RND     L$TXT     L$BCT     O$CBT     ATS$      WII#      Z$TXT 
                                        O$MLT     L$RND     F$RDT     O$DUT     HO$LCM    Z$BCT     MCG#      HO$OPT
                                        L$MLT     O$PIT     S$IT      L$DUT     Z$MOD     CUC#      COL#
                                        O$MOD     L$PIT     O$SYM     O$PBT     Z$MLT     MPB#      FSU#
                                        L$MOD     O$SEQ     LM#       L$PBT     HO$LVL2   MVE=      HO$ER 
                                        O$RCT     L$SEQ     TYIOM#    S=CON     Z$PBT     HO$CSN    BR$AFT
  
  
  
  
                                                  IDENT  PROSEQ                                                  PROSEQ      2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=PROSQ  RPVDEF                                                         PROSEQ      5
                                                                                                                 PROSEQ      9
                                        **        PROSEQ - PROCESS ACCUMULATED SEQUENCES                         PROSEQ     10
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     2
                                                                      FLAGS 
  
                                         .ROL     IFNE   HC.ROL,0,2                                              CCG1      152
                                         CC$BIR   ENTRY. 100002B     BASE INTERMEDIATE R-NUMBER                  CCGNC     670
                                         CC$NIRN  ENTRY. 100002B     NEXT INTERMEDIATE R-NUMBER                  CCGNC     671
                                                                                                                 CCGNC     672
                                                  ENTRY  CC$BRN                                                  CCGNC     673
             0  00000000000000000004     CC$BRN   DATA   4,4                                                     CCGNC     674
                                                                                                                 CCGNC     675
             2                           CC$LNL   ENTRY. 0           "0 IF PROCESSING PART OF A LOOP             CCGNC     676
             3                           CC$OPF   ENTRY. 1           OPT=2 PHASE FLAG, =0 IF OPT=2 AND BRIDGE    CCG27       6
             4                           CC$OPTL  ENTRY. 0           "0 IF *TXT* CONTAINS THE BODY OF AN         CCGNC     677
                                        *                            OPTIMIZABLE LOOP                            CCGNC     678
             5                           CC$PIOL  ENTRY. 0           PREVIOUS LENGTH OF *IOL*                    CCGNC     679
             6                           CC$SRF   ENTRY. 0           "0 IF FP OR LEVEL 2 SYMBOLS IN PROCEDURE    CCGNC     680
             7                           CC$XR    ENTRY. 0           =1 IF EXT REFS IN CURRENT SEQ               CCGNC     681
                                                                                                                 CCGNC     682
                                                  TABLES (BLK,MLT,MOD,RCT,RND,PIT,SEQ,TXT)                       CCGNC     683
                                                  EXT#   (LM,TYIOM)                                              CCGNC     684
  
  
  
                                        **        CG$CPC - CODE PROLOGUE CODE                                    CCGNC     686
                                        *                                                                        CCG5      890
                                        *         ENTRY  SAME CALLING SEQUENCE AS CG$PAS.                        CCGNC     687
                                        *                                                                        CCG5      892
                                        *         EXIT   SEQUENCE CODED AND WRITTEN TO *SLIST* FILE.             CCG5      893
                                                                                                                 CCG5      894
            10                           CG$CPC   ENTRY.                                                         CCGNC     688
            11  5110000000 X                      SA1    =XHO$OPT                                                CCGNC     689
                          20102                   LX1    2                                                       CCG5      897
                               10611              BX6    X1          HO$OPT = SHIFT(HO$OPT,2)  */ FORCE OPT"2    CCGNC     690
            12  54610                             SA6    A1                                                      CCG5      899
                     0100000015 +                 CALL   CG$PAS                                                  CCGNC     691
            13  5110000000 X                      SA1    HO$OPT                                                  CCGNC     692
                          20172                   LX1    -2                                                      CCG5      902
                               10611              BX6    X1          HO$OPT = SHIFT(HO$OPT,-2)  */ RESTORE       CCGNC     693
            14  54610                             SA6    A1                                                      CCG5      904
                     0400000010 +                 EQ     CG$CPC                                                  CCGNC     694
  
  
  
                                        **        CG$PAS - PROCESS ACCUMULATED SEQUENCES                         CCGNC     696
                                                                                                                 CCG1      158
            15                           CG$PAS   ENTRY.                                                         CCGNC     697
            16  43700                             MX7    0                                                       PROSEQ     19
                     5170000000 X                 SA7    L.RND       L.RND = 0                                   CCGNC     698
            17  7110000004                        ALLOC  TXT,4                                                   PROSEQ     21
            21  5150000000 X                      SA5    F.RDT+OC.EOQ                                            PROSEQ     22
                          7160002000              SX6    1S10+OC.EOQ TERMINATE *TXT* WITH A *EOQ*                PROSEQ     23
            22  20660                             LX6    R1.OCP                                                  PROSEQ     24
                     53626                        SA6    X2+B6                                                   PROSEQ     25
                          43700                   MX7    0           [R2] = 0                                    PROSEQ     26
                               54761              SA7    A6+B1                                                   PROSEQ     27
            23  10655                             BX6    X5                                                      PROSEQ     28
                     54671                        SA6    A7+B1                                                   PROSEQ     30
                          54761                   SA7    A6+B1                                                   PROSEQ     31
                                         .ROL     IFNE   HC.ROL,0                                                CCG5      906
                                                  SA1    =XCC$BRN+1                                              CCGNC     699
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     3
                                                                      CG$PAS
  
                                                  MX0    -R1.RIL                                                 PROSEQ     32
                                                  BX6    -X0*X1      SET MAX R-NUMBER FOR *SQZ*                  PROSEQ     33
                                                  SA6    A1                                                      PROSEQ     34
                                         .ROL     ENDIF                                                          CCG5      908
                                                                                                                 PROSEQ     35
                                         .AET     IF     DEF,WB.AETL                                             CCG5      909
            24  5130000006 +                      SA3    CC$SRF                                                  CCGNC     700
            25  0303000026 +            +         ZR     X3,*+1      IF CC$SRF = 0 */ NO SPECIAL REFS            CCGNC     701
                                                                                                                 CCG5      911
                          0100000113 +            RJ     PSB         PROPAGATE BITS IN *AET* TO IL INSTRUCTIONS  CCG5      912
                                         .AET     ENDIF                                                          CCG5      913
                                                                                                                 CCG5      914
            26  0100000000 X                      CALL   SBB#        ELIMINATE REDUNDANT INSTRUCTIONS            CCGNC     702
                                                  IFNE   HC.STP,0,1                                              CCG16     242
            27  0100000000 X                      CALL   BR$AFT      ADJUST FUNCTION TEMPS                       CCG16     243
            30  5110000000 X                      SA1    =XHO$OPT                                                CCGNC     703
                          5150000000 X            SA5    L.TXT                                                   PROSEQ     42
            31  0331000057 +                      MI     X1,PAS5     IF OPT = 2                                  CCG1      164
                                                                                                                 PROSEQ     44
                          7275777767              SX7    X5-8                                                    PROSEQ     45
            32  0307000060 +                      ZR     X7,PAS6     IF L.TXT = 8  */ EMPTY SEQUENCE             PROSEQ     46
                          5110000000 X            SA1    =XHO$ER                                                 CCGNC     704
            33  0301000034 +                      ZR     X1,PAS0     IF ER = 0      */ NO OTR                    FEAT155AB   3
                          0100000000 X            CALL   FSU#        FORCE UPPER                                 CCGNC     705
            34  5110000004 +             PAS0     SA1    =XCC$OPTL                                               CCGNC     706
                          0301000037 +            ZR     X1,PAS1A    IF CG$OPTL = 0  */ NOT AN OPTIMIZABLE LOOP  CCGNC     707
                                                                                                                 PROSEQ     59
            35  0100000000 X                      CALL   COL#        CODE OPTIMIZABLE LOOP ( OPT=1 )             CCGNC     708
            36  0400000060 +                      EQ     PAS6                                                    PROSEQ     61
                                                                                                                 PROSEQ     62
            37                           PAS1A    BSS    0                                                       CCG5      916
                                         .AET     IF     DEF,WB.AETL                                             CCG5      917
            37  5110000006 +                      SA1    CC$SRF                                                  CCGNC     709
                          0301000053 +            ZR     X1,PAS4     IF CC$SRF = 0 */ NO SPECIAL REFS IN PROC    CCGNC     710
                                                                                                                 PROSEQ     65
            40  0100000072 +                      RJ     SSP         SET *SEQ* POINTERS                          PROSEQ     66
            41  5110000002 +                      SA1    CC$LNL                                                  CCGNC     711
                          7150000002              SX5    2                 LCM                                   PROSEQ     68
            42  0311000043 +                      NZ     X1,PAS2     IF CG$LNL " 0 */ IN A LOOP                  CCGNC     712
                          7150000003              SX5    3                                                       PROSEQ     70
            43  43601                    PAS2     MX6    1                                                       PROSEQ     71
                     0100000605 +                 CALL   ESR                                                     PROSEQ     72
            44  5110000000 X                      SA1    L.MLT                                                   PROSEQ     73
                          0301000047 +            ZR     X1,PAS3     IF L.MLT = 0  */ NO MODS TO BLOCK           PROSEQ     74
            45  7160000001                        SX6    1                                                       PROSEQ     75
                          0100000000 X            CALL   MPB#        MERGE BLOCK AND MODS                        CCGNC     713
            46  0400000053 +                      EQ     PAS4                                                    PROSEQ     77
                                                                                                                 PROSEQ     78
            47  5110000000 X             PAS3     SA1    O.SEQ                                                   PROSEQ     79
                          5120000000 X            SA2    L.SEQ                                                   PROSEQ     80
            50  10611                             BX6    X1                                                      PROSEQ     81
                     5160000000 X                 SA6    O.TXT       O.TXT = O.SEQ                               PROSEQ     82
                               22702              LX7    X2                                                      PROSEQ     83
            51  5170000000 X                      SA7    L.TXT       L.TXT = L.SEQ                               PROSEQ     84
                          43600                   MX6    0                                                       PROSEQ     85
            52  5160000000 X                      SA6    L.SEQ                                                   PROSEQ     86
                                         .AET     ENDIF                                                          CCG5      922
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     4
                                                                      CG$PAS
  
                                                                                                                 PROSEQ     87
            53  7160000000               PAS4     SX6    0                                                       PROSEQ     88
                          5160000000 X            SA6    L.BLK                                                   PROSEQ     89
            54  0100000000 X                      CALL   MCG#        CODE THE SEQUENCE                           CCGNC     714
            55  0100000000 X                      CALL   WII#        SAVE THE ISSUED INSTRUCTIONS                CCGNC     715
            56  0400000060 +                      EQ     PAS6                                                    PROSEQ     92
                                                                                                                 PROSEQ     93
            57  0100000000 X             PAS5     CALL   PBB#        PROCESS BASIC BLOCK FOR OPT=2               CCGNC     716
  
  
  
                                        *         RESET FLAGS FOR NEXT SEQUENCE                                  PROSEQ     96
                                                                                                                 PROSEQ     97
            60  5150000000 X             PAS6     SA5    =XLM                                                    CCG5      923
                          43600                   MX6    0                                                       PROSEQ     99
                               10755              BX7    X5                                                      PROSEQ    100
            61  5160000000 X                      SA6    L.BLK       L.BLK = 0                                   CCG1      171
                          5160000007 +            SA6    =XCC$XR     CC$XR = 0                                   CCGNC     718
            62  5160000005 +                      SA6    CC$PIOL     CC$PIOL = 0                                 CCGNC     719
                          5160000004 +            SA6    CC$OPTL     CC$OPTL = 0                                 CCG12       8
            63  5170000000 X                      SA7    O.BLK       O.BLK = LM                                  PROSEQ    103
                          5170000000 X            SA7    O.TXT       O.TXT = LM                                  PROSEQ    104
            64  7160000004                        SX6    4                                                       PROSEQ    105
                          5160000000 X            SA6    L.TXT       L.TXT = 4                                   PROSEQ    106
            65  5140000000 X                      SA4    =XHO$CSN                                                CCGNC     720
                          20436                   LX4    R1.INP                                                  PROSEQ    108
                               27614              PX6    B1,X4                                                   PROSEQ    109
            66  5141000000 X                      SA4    F.RDT+B1                                                PROSEQ    110
                          53650                   SA6    X5                                                      PROSEQ    111
                               43700              MX7    0                                                       PROSEQ    112
            67  54761                             SA7    A6+B1                                                   PROSEQ    113
                     10644                        BX6    X4                                                      PROSEQ    114
                          54671                   SA6    A7+B1                                                   PROSEQ    115
                                         .ROL     IFNE   HC.ROL,0                                                CCG1      172
                                                  SA1    CC$BIR                                                  CCGNC     721
                                                  SA2    CC$BRN+1                                                CCGNC     722
                                                  BX6    X1                                                      PROSEQ    120
                                                  SA6    A1+B1       CC$BIR(2) = CC$BIR(1)  ( INTERMEDIATE R-NUM CCGNC     723
                                                  LX7    X2                                                      PROSEQ    122
                                                  SA7    A2-B1       CC$BRN(1) = CC$BRN(2) ( NEW BASE = OLD MAX  CCGNC     724
                                         .ROL     ELSE                                                           CCG1      177
            70  7160000004                        SX6    4                                                       CCG1      178
                          5160000001 +            SA6    =XCC$BRN+1  CC$BRN(2) = 4                               CCGNC     725
                                         .ROL     ENDIF                                                          CCG1      180
            71  0400000015 +                      EQ     CG$PAS                                                  CCGNC     726
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     5
        SSP - SET SEQUENCE POINTERS FOR OPT=1                         SSP 
  
                                         .AET     IF     DEF,WB.AETL                                             CCG5      925
                                                                                                                 CCG5      926
                                        **        SSP - SET SEQUENCE POINTERS FOR OPT=1                          PROSEQ    132
                                        *                                                                        PROSEQ    133
                                        *         ENTRY  SEQUENCE IN *TXT*                                       PROSEQ    134
                                        *                                                                        PROSEQ    135
                                        *         EXIT   SEQUENCE COPIED TO *BLK*                                PROSEQ    136
                                        *                (O.SEQ,L.SEQ) = FWA,LENGTH OF SEQUENCE                  PROSEQ    137
                                                                                                                 PROSEQ    138
                                                                                                                 PROSEQ    140
            72                           SSP      ENTRY. **,#                                                    CCGNC     727
            73  5140000000 X                      SA4    L.BLK                                                   PROSEQ    142
                          0314000103 +            NZ     X4,SSP1     IF L.BLK " 0                                PROSEQ    143
                                                                                                                 PROSEQ    144
            74  5150000000 X                      SA5    LM                                                      PROSEQ    145
                          7110000004              ALLOC  TXT,4       ALLOC( TXT , 4 )                            PROSEQ    146
            76  10622                             BX6    X2                                                      PROSEQ    147
                     5160000000 X                 SA6    O.SEQ       O.SEQ = O.TXT                               PROSEQ    148
                               73726              SX7    X2+B6                                                   PROSEQ    149
            77  54720                             SA7    A2          O.TXT = O.TXT + L.TXT-4                     PROSEQ    150
                     76660                        SX6    B6                                                      PROSEQ    151
                          5160000000 X            SA6    L.SEQ       L.SEQ = L.TXT - 4                           PROSEQ    152
           100  53621                             SA6    X2+B1       TXTL[SEQ+1] = L.SEQ                         PROSEQ    153
                     7160000004                   SX6    4                                                       PROSEQ    154
                               54630              SA6    A3          L.TXT = 4                                   PROSEQ    155
           101  37775                             IX7    X7-X5                                                   PROSEQ    156
                     5170000000 X                 SA7    L.BLK       L.BLK = O.TXT - LM                          PROSEQ    157
           102  0400000072 +                      EQ     SSP                                                     PROSEQ    158
                                                                                                                 PROSEQ    159
           103  5110000000 X             SSP1     SA1    L.TXT       LT = L.TXT                                  PROSEQ    160
                          5120000000 X            SA2    O.TXT       OT = O.TXT                                  PROSEQ    161
           104  5130000000 X                      SA3    LM                                                      PROSEQ    162
                          22701                   LX7    X1                                                      PROSEQ    163
                               10633              BX6    X3                                                      PROSEQ    164
           105  5170000000 X                      SA7    L.SEQ       L.SEQ = L.TXT                               PROSEQ    165
                          5160000000 X            SA6    O.SEQ       O.SEQ = LM                                  PROSEQ    166
           106  5170000000 X                      SA7    L.BLK       L.BLK = L.TXT                               PROSEQ    167
                          5160000000 X            SA6    O.BLK       O.BLK = LM                                  PROSEQ    168
           107  53721                             SA7    X2+B1       TXTL[TXT+1] = L.TXT                         PROSEQ    169
                     36731                        IX7    X3+X1                                                   PROSEQ    170
                          54720                   SA7    A2          O.TXT = LM + L.TXT                          PROSEQ    171
           110  7160000004                        SX6    4                                                       PROSEQ    172
                          54610                   SA6    A1          L.TXT = 4                                   PROSEQ    173
           111  0100000000 X                      MOVE   X1,X2,X3    MOVE( LT , OT , LM )                        PROSEQ    174
           112  0400000072 +                      EQ     SSP                                                     PROSEQ    175
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     6
        TSB - TRANSFER SYMBOL TABLE BITS TO DESCRIPTOR                TSB 
  
                                        *         PSB - TRANSFER L2 AND FP BITS FROM WORD B TO DESCRIPTOR.       PROSEQ    177
                                        *         F.P. AND LEVEL 2 BITS.                                         PROSEQ    178
                                                                                                                 PROSEQ    179
           113                           PSB      ENTRY. **,#        **ENTRY/EXIT**                              CCGNC     728
           114  5110000000 X                      SA1    =XO.SYM                                                 CCG1      182
                          5150000000 X            SA5    O.TXT                                                   PROSEQ    182
           115  6140000004                        SB4    4                                                       PROSEQ    183
                          5201000001              SA0    X1+1                                                    CCG1      183
           116  6150100000                        SB5    I.GL                                                    PROSEQ    185
                          6160000134 +            SB6    TSBA                                                    PROSEQ    186
           117  66310                             SB3    B1                                                      PROSEQ    187
                     76710                        SX7    B1                                                      CCG1      184
                          20703                   LX7    WB.LABP                                                 CCG1      185
                               43072              MX0    -2                        */ MASK FOR F.P. AND LVL2 BIT PROSEQ    191
           120  53550                             SA5    X5          R1 = O.TXT                                  PROSEQ    192
                                                                                                                 PROSEQ    193
           121  54554                    TSB1     SA5    A5+B4       R1 = R1 + 4                                 PROSEQ    194
                     54451                        SA4    A5+B1       R2 = R1 + 1                                 PROSEQ    195
                          0430000113 +            ZR     B3,PSB      IF OC[R1-4] = 0                             PROSEQ    196
           122  26635                             UX6    B3,X5                                                   PROSEQ    197
                                                  LX4    -IH.IHP                                                 PROSEQ    198
                     63240                        SB2    X4                                                      PROSEQ    199
                          0420000121 +            ZR     B2,TSB1     IF IH[R2] = 0                               PROSEQ    200
           123  0625000121 +                      GE     B2,B5,TSB1  IF I[R2] " 0                                PROSEQ    201
                          54241                   SA2    A4+B1       DI = R2 + 1                                 PROSEQ    202
                               20201              LX2    59-D.TYP                                                PROSEQ    204
           124  0332000121 +                      MI     X2,TSB1     IF TYPE[DI] = II ! IV                       PROSEQ    205
                          76322                   SX3    B2+B2                                                   CCG1      186
                               64202              SB2    A0+B2                                                   CCG1      187
           125  53132                             SA1    B2+X3       WORDB = SYM(3*IH+1)                         CCG1      188
                     20273                        LX2    1+D.TYP                                                 PROSEQ    207
                          11571                   BX5    X7*X1                                                   CCG1      189
           126  0315000121 +                      NZ     X5,TSB1     IF LAB[WORDB]                               CCG1      190
                          20154                   LX1    -WB.FPP                                                 CCG1      191
                               15410              BX4    -X0*X1                                                  PROSEQ    210
           127  53346                             SA3    B6+X4       FP[DI] = FP[WORDB];  L2[DI] = L2[WORDB]     PROSEQ    211
                     20137                        LX1    WB.FPP-WB.LEVNP                                         CCG35      10
                          43472                   MX4    -WB.LEVNL                                               CCG35      11
                               15514              BX5    -X4*X1                                                  CCGA014     4
           130  0315000133 +                      NZ     X5,TSB2     IF LEVN[WB] NE 0  */ LEVEL 0                CCGA014     5
                          7153777725              SX5    B3-OC.STT                                               CCG35      14
           131  0305000133 +                      ZR     X5,TSB2     IF OC[R1] = OC.STT                          CCG35      15
                          20134                   LX1    WB.LEVNP-WB.LCMP                                        CCG35      16
                               76610              SX6    B1                                                      CCG35      17
           132  11161                             BX1    X6*X1       1 IFF LCM[WORDB]                            CCG35      18
                     20140                        LX1    D.XMTP                                                  CCG35      19
                          12212                   BX2    X1+X2       XMT[DI] = 1   */ INDICATE LEVEL 0           CCG35      20
                                                                                                                 CCG35      21
           133  12623                    TSB2     BX6    X2+X3                                                   CCG35      22
                     54620                        SA6    A2                                                      PROSEQ    213
                          0400000121 +            EQ     TSB1                                                    PROSEQ    214
                                                                                                                 PROSEQ    215
           134                           TSBA     BSS    0                                                       PROSEQ    216
      L      0                                    LOC    0                                                       PROSEQ    217
      L      0  00000000000000000000              CON    0                                                       PROSEQ    218
      L      1                                    BFMW   D,(FP)                                                  PROSEQ    219
      L      2                                    BFMW   D,(L2)                                                  PROSEQ    220
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     7
        TSB - TRANSFER SYMBOL TABLE BITS TO DESCRIPTOR                TSB 
  
      L      3                                    BFMW   D,(FP,L2)                                               PROSEQ    221
      L      4                                    BFMW   D,(FP,L2)                                               PROSEQ    222
      L    141                                    LOC    *O                                                      PROSEQ    223
                                                                                                                 CCG5      927
                                         .AET     ENDIF                                                          CCG5      928
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     8
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS 
  
                                        **        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT-LINE SEQUENCES.       PROSEQ    225
                                        *                                                                        PROSEQ    226
                                        *         AIS CHOOSES CANDIDATES FOR B-REGISTER USE IN STRAIGHT-LINE     PROSEQ    227
                                        *         SEQUENCES, WHEN THE REG WIDTH OVER ANY SUBSEQUENCE IS GREATER  PROSEQ    228
                                        *         THAN OR EQUAL TO TRW.  CANDIDATES ARE CHOSEN FROM *RF*         PROSEQ    229
                                        *         DEFINITIONS, I.E., THE PREDECESSORS OF TYPE III RF FIELDS AND  PROSEQ    230
                                        *         PLD/PST RJ FIELDS.                                             PROSEQ    231
                                        *         NO OPTIMAL PACKING IS ATTEMPTED;  BUT RATHER, A REGISTER IS    PROSEQ    232
                                        *         ASSIGNED TO EACH CANDIDATE SEQUENTIALLY, IF THAT CANDIDATE/S   PROSEQ    233
                                        *         EXTENDED USE SPAN (THE SPAN OF THE USES OF ALL USES) DOES NOT  PROSEQ    234
                                        *         INTERFERE WITH THAT REGISTER/S PREVIOUS ASSIGNMENT OR ANY LOCK PROSEQ    235
                                        *         TO THAT REGISTER THAT MAY BE INCOMING WITH THE SEQUENCE.       PROSEQ    236
                                        *                                                                        PROSEQ    237
                                        *         TRACER (AIS,AIMOD,AIMPB,AIENT,AILBM)                           PROSEQ    238
                                                                                                                 PROSEQ    239
                                                  QUAL   AIS                                                     PROSEQ    240
                                                                                                                 PROSEQ    241
                                                  IFLT   .CPU,75                                                 F2950CC    10
                                   7     TRW      EQU    7                                                       F2950CC    11
                                                  ELSE                                                           F2950CC    12
                                         TRW      EQU    6                                                       F2950CC    13
                                                  ENDIF                                                          F2950CC    14
                                                                                                                 PROSEQ    243
                                                  TABLES (BCT,DUT,PBT)                                           CCG16     244
                                                                                                                 PROSEQ    253
                                         .SFL     BIT    SO.SFLP                                                 FCC0641    15
                                2200     SO.BLOCK EQU    SO.LOCK+.SFL      SCRATACHABLE FULL B-REG LOCK          FCC0641    16
                                                                                                                 PROSEQ    257
                              377777     LU.INF   EQU    1S17-1      INFINITE LAST USE                           PROSEQ    258
                                                                                                                 PROSEQ    259
                             -600001     RMSK     EQU    -RN.MASK                                                CCG11     123
                                                                                                                 PROSEQ    262
                                                                                                                 PROSEQ    263
                                        *         BOUNDARY MARKING INSTRUCTION LINK WORD FORMAT.                 PROSEQ    264
                                        *         THE LINK WORDS OF SUBSEQUENCE DEMARCATING INSTRUCTIONS ARE     PROSEQ    265
                                        *         LINKED DURING *LBM*, AND CONTAIN INFORMATION REGARDING THE     PROSEQ    266
                                        *         PROFITIBILITY OF FURTHER PROCESSING THIS SUBSEQUENCE.          PROSEQ    267
                                                                                                                 PROSEQ    268
                                                  DESCRIBE  BM.,60   BMW(MRW,NRF,P)                              PROSEQ    269
                                                  DEFINE 6                                                       PROSEQ    270
      L     44  00777777000000000000     MRW      DEFINE 18          MAXIMUM REG WIDTH ACROSS SUB-SEQUENCE       PROSEQ    271
      L     22  00000000777777000000     NRF      DEFINE 18          NUMBER OF *RF* DEFINITIONS IN SUBSEQUENCE   PROSEQ    272
      L      0  00000000000000777777     P        DEFINE 18          LINK TO NEXT BM WORD                        PROSEQ    273
                                                                                                                 PROSEQ    274
                                        *         BCT - B REGISTER CANDIDATE TABLE ENTRY FORMAT.                 PROSEQ    275
                                                                                                                 PROSEQ    276
                                                  DESCRIBE  BC.,60   BCW(MRW,LXU,RI)                             PROSEQ    277
                                                  DEFINE 6                                                       PROSEQ    278
      L     44  00777777000000000000     MRW      DEFINE 18          MAXIMUM REGISTER WIDTH ACROSS EXT. USE SPAN PROSEQ    279
      L     22  00000000777777000000     LXU      DEFINE 18          INDEX IN *SEQ* OF LAST EXTENDED USE         PROSEQ    280
      L      0  00000000000000777777     RI       DEFINE 18          INDEX IN SEQ OF DEFINITION OF THIS CAND     PROSEQ    281
                                                                                                                 PROSEQ    282
                                        *         PBT - PREASSIGNED B-REGISTER TABLE ENTRY FORMAT.               PROSEQ    283
                                                                                                                 PROSEQ    284
                                                  DESCRIBE  PB.,60   PBW(RN,RI,LU,P)                             PROSEQ    285
                                                  DEFINE 3                                                       PROSEQ    286
      L     66  07000000000000000000     RN       DEFINE 3           B-REGISTER NUMBER OF THIS LOCK              PROSEQ    287
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE     9
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
      L     44  00777777000000000000     RI       DEFINE 18          INDEX IN *SEQ* OF THIS DEFINITION           PROSEQ    288
      L     22  00000000777777000000     LU       DEFINE 18          LAST USE OF THIS LOCK                       PROSEQ    289
      L      0  00000000000000777777     P        DEFINE 18          LINK TO NEXT PBT ENTRY OF SAME RN           PROSEQ    290
                                                                                                                 PROSEQ    291
                                        *         DUT - DEF-USE TABLE ENTRY FORMAT.                              PROSEQ    292
                                                                                                                 PROSEQ    293
                                                  DESCRIBE DU.,60    DUW(DEF,USE)                                PROSEQ    294
      L     73  40000000000000000000     SU       DEFINE 1           SHORT USE                                   PROSEQ    295
      L     60  37770000000000000000     SC       DEFINE 11          SHIFT COUNT TO MOVE R-FIELD USED TO BIT 0   PROSEQ    296
                                                  DEFINE 12                                                      PROSEQ    297
      L     22  00000000777777000000     DEF      DEFINE 18          RI OF DEFINITION                            PROSEQ    298
      L      0  00000000000000777777     USE      DEFINE 18          INDEX IN *SEQ* OF USE                       PROSEQ    299
                                                                                                                 PROSEQ    300
                                        *         CAT - CURRENT ASSIGNMENT TABLE ENTRY FORMAT.                   PROSEQ    301
                                                                                                                 PROSEQ    302
                                                  DESCRIBE  CA.,60                                               PROSEQ    303
                                                  DEFINE 6                                                       PROSEQ    304
                                                  DEFINE 18                                                      PROSEQ    305
      L     22  00000000777777000000     LXU      DEFINE 18                                                      PROSEQ    306
      L      0  00000000000000777777     RI       DEFINE 18                                                      PROSEQ    307
                                                                                                                 PROSEQ    308
                                        *         FORMAT OF LINK WORD AFTER BUILDING OF DUT.                     PROSEQ    309
                                                                                                                 PROSEQ    310
                                                  DESCRIBE  DP.,60                                               PROSEQ    311
                                                  DEFINE 24                                                      PROSEQ    312
      L     22  00000000777777000000     II       DEFINE 18          POINTS TO DUT ENTRY FOR FIRST USE           PROSEQ    313
      L      0  00000000000000777777     NI       DEFINE 18          POINTS TO NEXT DUT ENTRY FOR THIS RI        PROSEQ    314
                                                                                                                 PROSEQ    315
                                        *         PBI - PREASSIGNED B-REG LOCK INDEX TABLE ENTRY FORMAT.         PROSEQ    316
                                                                                                                 PROSEQ    317
                                                  DESCRIBE  PI.,60                                               PROSEQ    318
      L     73  40000000000000000000     NA       DEFINE 1           THIS REG OFF MARKET FOR REST OF *SEQ*       PROSEQ    319
                                                  DEFINE 41                                                      PROSEQ    320
      L      0  00000000000000777777     P        DEFINE 18          LINK TO NEXT PERTINENT PBT ENTRY            PROSEQ    321
                                                                                                                 PROSEQ    322
                                        *         FIXED STORAGE DECLARATIONS.                                    PROSEQ    323
                                                                                                                 PROSEQ    324
                                                  USE    /CCGSCR/                                                CCG18     112
             0                     1     FLF      BSS    1           FULL LOCK FLAGS                             PROSEQ    326
             1                     7     PBI      BSS    7           PBT INDEX VECTOR                            PROSEQ    327
            10                     7     CAT      BSS    7           CURRENT ASSIGNMENT TABLE                    PROSEQ    328
            17                     1     NSO      BSS    1           NEXT SEQUENCE ORIGIN INDEX                  PROSEQ    329
            20                     1     MRF      BSS    1           MAX(RF DEFS IN SUBSEQUENCE)                 PROSEQ    330
            21                     1     LBMA     BSS    1           SAVE (O.SEQ-2) IN LBM                       PROSEQ    331
            22                     1     IUMB     BSS    1           SAVE (UL) IN IUM                            PROSEQ    332
                                                  USE    0                                                       PROSEQ    333
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    10
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
                                        **        AIS - MAIN LOOP                                                PROSEQ    335
                                                                                                                 PROSEQ    336
           141  7160000000               AIS0     SX6    0                                                       PROSEQ    337
                          5160000000 X            SA6    L.BCT       L.BCT = 0                                   PROSEQ    338
           142  5160000000 X                      SA6    L.DUT       L.DUT = 0                                   PROSEQ    339
                          5160000000 X            SA6    L.PBT       L.PBT = 0                                   PROSEQ    340
                                                                                                                 PROSEQ    341
                                                  TRACE  AIMOD,RLIST,MOD                                         PROSEQ    342
                                                  TRACE  AIMOD,MLT                                               PROSEQ    343
           143  0100000000 X                      CALL   MPB#        MERGE MODS WITH SEQUENCE ( NO SQZ )         CCGNC     731
                                                  TRACE  AIMPB,RLIST                                             PROSEQ    345
                                                                                                                 PROSEQ    346
           144  0100000000 X                      CALL   CUC#        COLLECT USES COUNTS                         CCGNC     732
                                                  TRACE  AIS,RLIST                                               PROSEQ    348
                                                                                                                 PROSEQ    349
           145  0200400145 +             AIS      ROUTINE                                                        CCGNC     733
           146  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    351
                          5221000002              SA2    X1+2                                                    PROSEQ    352
           147  43063                             MX0    -D.REGWL                                                PROSEQ    353
                     20263                        LX2    -D.REGWP                                                PROSEQ    354
                          15620                   BX6    -X0*X2                                                  PROSEQ    355
           150  7206777770                        SX0    X6-TRW                                                  PROSEQ    356
                                                  TRACE  AIENT,RLIST,SEQ                                         PROSEQ    357
                                                                                                                 PROSEQ    358
                          0330000141 +            MI     X0,AIS0     IF MAXW .LT. TRW                            PROSEQ    359
           151  0100000221 +                      RJ     LBM         LOCATE SEQUENCE BOUNDARIES                  PROSEQ    360
                                                  TRACE  AILBM,RLIST,SEQ                                         PROSEQ    361
                                                                                                                 PROSEQ    362
           152  5110000020 C                      SA1    MRF                                                     PROSEQ    363
                          74500                   SX5    A0                                                      PROSEQ    364
           153  0301000141 +                      ZR     X1,AIS0     IF NO RF USES IN SEQ                        PROSEQ    365
                                                                                                                 PROSEQ    366
                                        *         ALLOCATE FOR TABLE OF ALL POSSIBLE B-ASSIGNMENTS.              PROSEQ    367
                                                                                                                 PROSEQ    368
                          73111                   ALLOC  BCT,B1+X1   ALLOC (BCT,MRF+1)                           PROSEQ    369
                                                                                                                 PROSEQ    370
           155  10155                             BX1    X5                                                      PROSEQ    371
                     20502                        LX5    2                                                       PROSEQ    372
                          73111                   ALLOC  MLT,B1+X1   ALLOC (MLT,MMOD+1)                          PROSEQ    373
                                                                                                                 PROSEQ    374
           157  7215000004                        ALLOC  MOD,X5+4    ALLOC(MOD,4*(MMOD+1))                       PROSEQ    375
                                                                                                                 PROSEQ    376
           161  5110000000 X                      SA1    L.SEQ                                                   PROSEQ    377
                          23211                   AX2    B1,X1                                                   PROSEQ    378
                               23512              AX5    B1,X2                                                   PROSEQ    379
           162  36125                             IX1    X2+X5                                                   PROSEQ    380
                                                                                                                 PROSEQ    381
                                        *         ALLOCATE FOR DEF-USE *TREE*.                                   PROSEQ    382
                                                                                                                 PROSEQ    383
                     5100000000 X                 ALLOC  DUT,X1      ALLOC (DUT,3/4*L.SEQ)                       PROSEQ    384
                                                                                                                 PROSEQ    385
                                        *         ALLOCATE FOR TABLE OF LOCKS TO B-REGS INCOMING WITH SEQUENCE.  PROSEQ    386
                                                                                                                 PROSEQ    387
           164  73150                             ALLOC  PBT,X5      ALLOC (PBT,1/4*L.SEQ)                       PROSEQ    388
                                                                                                                 PROSEQ    389
           166  7170000004                        SX7    4                                                       PROSEQ    390
                          43600                   MX6    0                                                       PROSEQ    391
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    11
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
           167  5170000000 X                      SA7    L.MOD       L.MOD = 4                                   PROSEQ    392
                          5160000000 X            SA6    L.MLT       L.MLT = 0                                   PROSEQ    393
           170  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    394
                          6221000004              SB2    X1+4        R1F = O.SEQ + 4                             PROSEQ    395
           171  53010                             SA0    X1                                                      PROSEQ    396
                                                                                                                 PROSEQ    397
                                        *         A0 CONTAINS O.SEQ THROUGHOUT AIS.                              PROSEQ    398
                                                                                                                 PROSEQ    399
                     57221                        SA2    B2-B1       LI = R1F - 1 ;  LIW = [LI]                  PROSEQ    400
                          5160000000 C            SA6    FLF         FLF = 0                                     PROSEQ    401
           172  0400000175 +                      EQ     AIS2                                                    PROSEQ    402
                                                                                                                 PROSEQ    403
                                        *         PROCESS ALL SUBSEQUENCES, AS DEMARCATED BY *LBM*.              PROSEQ    404
                                                                                                                 PROSEQ    405
           173  5110000017 C             AIS1     SA1    NSO                                                     PROSEQ    406
                                                  LX1    -BM.PP                                                  PROSEQ    407
                          63410                   SB4    X1                                                      PROSEQ    408
                               74104              SX1    A0+B4       LI = P[NSO] + O.SEQ                         PROSEQ    409
           174  63211                             SB2    X1+B1       R1F = LI + 1                                PROSEQ    410
                     53210                        SA2    X1          LIW = [LI]                                  PROSEQ    411
                                                                                                                 PROSEQ    412
           175  63320                    AIS2     SB3    X2                                                      PROSEQ    413
                     0430000141 +                 ZR     B3,AIS0     IF P[LIW] = 0  */ END OF SEQ                PROSEQ    414
                               10622              BX6    X2                                                      PROSEQ    415
                                                  LX2    -BM.PP                                                  PROSEQ    416
           176  6232777774                        SB3    X2-3        R1L = P[LIW] - 3                            PROSEQ    417
                          64303                   SB3    A0+B3                                                   PROSEQ    418
           177  5160000017 C                      SA6    NSO         [NSO] = LIW                                 PROSEQ    419
                          0623000173 +            LE     B3,B2,AIS1  IF R1L .LE. R1F                             PROSEQ    420
           200  20652                             LX6    -BM.NRFP                                                PROSEQ    421
                     73460                        SX4    X6                                                      PROSEQ    422
                          0304000173 +            ZR     X4,AIS1     IF NRF[LIW] = 0                             PROSEQ    423
           201  20652                             LX6    BM.NRFP-BM.MRWP                                         PROSEQ    424
                     7256777770                   SX5    X6-TRW                                                  PROSEQ    425
           202  0335000173 +                      MI     X5,AIS1     IF MRW[LIW] .LT. TRW                        PROSEQ    426
                                                                                                                 PROSEQ    427
                                        *         TRANSFER FULL LOCKS PREASSIGNED IN PREVIOUS SUBSEQUENCE TO     PROSEQ    428
                                        *         PBI.  CLEAR PBI LINK FIELD.                                    PROSEQ    429
                                                                                                                 PROSEQ    430
                          5110000000 C            SA1    FLF                                                     PROSEQ    431
           203  6140000073                        SB4    59                                                      PROSEQ    432
                          43700                   MX7    0                                                       PROSEQ    433
                               66500              SB5    B0          BI = 0                                      PROSEQ    434
           204  6160000007                        SB6    7                                                       PROSEQ    435
                                                                                                                 PROSEQ    436
           205  20173                    AIS3     LX1    -1                                                      PROSEQ    437
                     6155000001                   SB5    B5+1        BI = BI + 1                                 PROSEQ    438
                               23641              AX6    B4,X1       PBI(BI) = 0                                 PROSEQ    439
           206  5165000000 C                      SA6    PBI-1+B5    NA[PBI(BI)] = FLF(BI)                       PROSEQ    440
                          0556000205 +            NE     B5,B6,AIS3  IF BI .NE. 7                                PROSEQ    441
                                                                                                                 PROSEQ    442
           207  54710                    AIS4     SA7    A1          FLF = 0                                     PROSEQ    443
                     5110000000 X                 SA1    O.PBT                                                   PROSEQ    444
                               76610              SX6    B1                                                      PROSEQ    445
           210  5170000000 X                      SA7    L.BCT       L.BCT = 0                                   PROSEQ    446
                          5271000000              SA7    X1+         [O.PBT] = 0                                 PROSEQ    447
           211  5160000000 X                      SA6    L.PBT       L.PBT = 1                                   PROSEQ    448
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    12
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            AIS                 AIS 
  
                          0100000261 +            RJ     BDU         BUILD DEF-USE TABLE AND BCT AND PBT         PROSEQ    449
                                                                                                                 PROSEQ    450
                                         .T       IFNE   TEST,0                                                  PROSEQ    451
                                                  SA2    O.DUT                                                   PROSEQ    452
                                                  SA1    B3-B1                                                   PROSEQ    453
                                                  LX1    -DP.NIP                                                 PROSEQ    454
                                                  IX5    X1-X2                                                   PROSEQ    455
                                                  SX6    X5+                                                     PROSEQ    456
                                                  SA6    L.DUT       L.DUT = NI[R1L-1] - O.DUT                   PROSEQ    457
                                         .T       ENDIF                                                          PROSEQ    458
                                                                                                                 PROSEQ    459
                                                  TRACE  AIS,RLIST,SEQ                                           PROSEQ    460
                                                  TRACE  AIS,(DUT,BCT,PBT)                                       PROSEQ    461
                                                                                                                 PROSEQ    462
           212  0100000371 +                      RJ     IXU         INSERT EXTENDED USE INFO INTO BCT           PROSEQ    463
                                                  TRACE  AIS,BCT                                                 PROSEQ    464
                                                                                                                 PROSEQ    465
           213  7254777770                        SX5    X4-TRW                                                  PROSEQ    466
                          0335000173 +            MI     X5,AIS1     IF SMAXW .LT. TRW                           PROSEQ    467
                                                                                                                 PROSEQ    468
           214  0100000356 +                      RJ     IUP         INSERT USE INFO INTO PBT                    PROSEQ    469
                                                  TRACE  AIS,PBT                                                 PROSEQ    470
                                                                                                                 PROSEQ    471
           215  0100000413 +                      RJ     ABR         ASSIGN B-REGS AND TABLE MODS                PROSEQ    472
                                                  TRACE  AIS,RLIST,MOD                                           PROSEQ    473
                                                  TRACE  AIS,MLT                                                 PROSEQ    474
           216  0400000173 +                      EQ     AIS1                                                    PROSEQ    475
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    13
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            LBM                 AIS 
  
                                        **        LBM - LOCATE BOUNDARY MARKERS.                                 PROSEQ    477
                                        *         THIS ROUTINE CHAINS ALL SEQUENCE-BREAKING INSTRUCTIONS THROUGH PROSEQ    478
                                        *         THE LINK WORDS, BEGINNING WITH THE *BOS*.  IT SIMULTANEOUSLY   PROSEQ    479
                                        *         INSTALLS THE MAXIMUM REG WIDTH OVER AND THE NUMBER OF *RF*     PROSEQ    480
                                        *         DEFINITIONS IN THE SEQUENCE INTO THE BOUNDARY MARKER LINKS.    PROSEQ    481
                                        *         LARGEST POSSIBLE *MOD* SIZE IS ALSO CALCULATED DURING THIS     PROSEQ    482
                                        *         BACKWARD SCAN.                                                 PROSEQ    483
                                        *                                                                        PROSEQ    484
                                        *         EXIT   MRF - CONTAINS THE MAXIMUM NUMBER OF *RF* DEFS IN ANY   PROSEQ    485
                                        *                SUBSEQUENCE.                                            PROSEQ    486
                                        *                A0 - MMOD, OVERESTIMATE OF POSSIBLE *MOD* ENTRIES.      PROSEQ    487
                                                                                                                 PROSEQ    488
           217  5110000021 C             LBM0     SA1    LBMA                                                    PROSEQ    489
                          5120000000 X            SA2    O.SEQ                                                   PROSEQ    490
           220  10611                             BX6    X1                                                      PROSEQ    491
                     5262777775                   SA6    X2-2        [O.SEQ-2] = SAVE                            PROSEQ    492
                                                                                                                 PROSEQ    493
           221  0200400221 +             LBM      ROUTINE                                                        PROSEQ    494
           222  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    495
                          53311                   SA3    X1+B1                                                   PROSEQ    496
           223  6223777775                        SB2    X3-2        LD = TXTL - 2                               PROSEQ    497
                          53512                   SA5    X1+B2       I = N.INS ; DIN = O.SEQ + LD ; DINW = [DIN] PROSEQ    498
           224  5231777775                        SA3    X1-2                                                    PROSEQ    499
                          43700                   MX7    0                                                       PROSEQ    500
                               10633              BX6    X3          SAVE = [O.SEQ-2]                            PROSEQ    501
           225  54730                             SA7    A3          [O.SEQ-2] = 0                               PROSEQ    502
                     5160000021 C                 SA6    LBMA                                                    PROSEQ    503
                               10177              BX1    X7          TUSES = 0                                   PROSEQ    504
           226  43200                             MX2    0           MAXW = 0                                    PROSEQ    505
                     56000                        SA0    B0          MMOD = 0                                    PROSEQ    506
                          66400                   SB4    B0          PLINK = 0                                   PROSEQ    507
                               66300              SB3    B0          NRF = 0                                     PROSEQ    508
           227  5170000020 C                      SA7    MRF         MRF = 0                                     PROSEQ    509
                          0400000252 +            EQ     LBM5                                                    PROSEQ    510
                                                                                                                 PROSEQ    511
                                        *         BOUNDARY MARKER BREAKS SUBSEQUENCE.  FILE BM WORD FOR SEQUENCE PROSEQ    512
                                        *         JUST SCANNED (FOLLOWING).                                      PROSEQ    513
                                                                                                                 PROSEQ    514
           230  20653                    LBM1     LX6    D.BMP-D.TYP-1                                           PROSEQ    515
                     36766                        IX7    X6+X6                                                   PROSEQ    516
                          15467                   BX4    -X7*X6                                                  PROSEQ    517
                               16076              BX0    -X6+X7                                                  PROSEQ    518
           231  0334000252 +                      MI     X4,LBM5     IF TY[DIW] = II                             PROSEQ    519
                          5035000002              SA3    A5+2        R1I = DIN + 2 ;  RIW = [R1I]                PROSEQ    520
           232  26423                             UX4    B2,X3                                                   PROSEQ    521
                     6152777775                   SB5    B2-OC.EOS                                               PROSEQ    522
           233  0550000235 +                      NZ     B5,LBM1A    IF OC[R1W] .NE. OC.EOS                      PROSEQ    523
                          73430                   SX4    X3                                                      PROSEQ    524
           234  0314000252 +                      NZ     X4,LBM5     IF IH[RIW] .NE. 0   */ OPT=2 EOS            PROSEQ    525
                                                                                                                 PROSEQ    526
           235  0330000237 +             LBM1A    MI     X0,LBM2     IF TY[DIW] .NE. III                         PROSEQ    527
                          6152777706              SB5    B2-OC.JIN                                               PROSEQ    528
           236  0550000252 +                      NZ     B5,LBM5     IF OC[RIW] .NE. OC.JIN                      PROSEQ    529
                                                                                                                 PROSEQ    530
           237  76630                    LBM2     SX6    B3                                                      PROSEQ    531
                     5130000020 C                 SA3    MRF                                                     PROSEQ    532
                               66733              SB7    B3+B3                                                   PROSEQ    533
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    14
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            LBM                 AIS 
  
           240  37736                             IX7    X3-X6                                                   PROSEQ    534
                     66773                        SB7    B7+B3                                                   PROSEQ    535
                          66300                   SB3    B0          NRF = 0                                     PROSEQ    536
           241  0327000242 +                      PL     X7,LBM3     IF MRF .GE. NRF                             PROSEQ    537
                          54630                   SA6    A3          MRF = NRF                                   PROSEQ    538
                                                                                                                 PROSEQ    539
           242  20244                    LBM3     LX2    BM.MRWP                                                 PROSEQ    540
                     63517                        SB5    B7+X1                                                   PROSEQ    541
                          76740                   SX7    B4                                                      PROSEQ    542
                                                                                                                 PROSEQ    543
                                        *         FOR EACH *RF* DEF WE WILL ALLOCATE *MOD* FOR ALL USES PLUS     PROSEQ    544
                                        *         3 (FOR THE DEF, SA AND RS).                                    PROSEQ    545
                                                                                                                 PROSEQ    546
                               54005              SA0    A0+B5       MMOD = MMOD + TUSES + 3*NRF                 PROSEQ    547
           243  20622                             LX6    BM.NRFP                                                 PROSEQ    548
                     12262                        BX2    X6+X2                                                   PROSEQ    549
                                                  LX7    BM.PP                                                   PROSEQ    550
                          12672                   BX6    X7+X2                                                   PROSEQ    551
           244  5110000000 X                      SA1    O.SEQ                                                   PROSEQ    552
                          5065000005              SA6    A5+5        LI = DIN + 5 ;  [LI] = BMW(NRF,PLINK,MAXW)  PROSEQ    553
           245  63510                             SB5    X1                                                      PROSEQ    554
                     43200                        MX2    0           MAXW = 0                                    PROSEQ    555
                          65465                   SB4    A6-B5       PLINK = LI - O.SEQ                          PROSEQ    556
                               43100              MX1    0           USES = 0                                    PROSEQ    557
           246  0305000217 +                      ZR     X5,LBM0     IF DINW = 0   */ IF I = 0                   PROSEQ    558
                          0400000252 +            EQ     LBM5                                                    PROSEQ    559
                                                                                                                 PROSEQ    560
           247  20645                    LBM4     LX6    D.RFP-D.BMP                                             PROSEQ    561
                     10766                        BX7    X6                                                      PROSEQ    562
                          0305000230 +            ZR     X5,LBM1     IF DINW = 0   */ BOS                        PROSEQ    563
           250  20701                             LX7    D.BMP-D.^DP                                             PROSEQ    564
                     0327000252 +                 PL     X7,LBM5     IF D[DIW]     */ POSSIBLE DEF               PROSEQ    565
           251  0336000230 +                      MI     X6,LBM1     IF BM[DIW]                                  PROSEQ    566
                                                                                                                 PROSEQ    567
           252  10655                    LBM5     BX6    X5          DIW = DINW                                  PROSEQ    568
                     5055777773                   SA5    A5-4        I = I - 1 ;  DIN = DIN - 4 ;  DINW = [DIN]  PROSEQ    569
                               43063              MX0    -D.REGWL                                                PROSEQ    570
           253  20663                             LX6    -D.REGWP                                                PROSEQ    571
                     15460                        BX4    -X0*X6      REG = REGW[DIW]                             PROSEQ    572
                          37724                   IX7    X2-X4                                                   PROSEQ    573
           254  0327000255 +                      PL     X7,LBM6     IF MAXW .GE. REG                            PROSEQ    574
                          10244                   BX2    X4          MAXW = REG                                  PROSEQ    575
                                                                                                                 PROSEQ    576
           255  20661                    LBM6     LX6    59-D.RFP+D.REGWP                                        PROSEQ    577
                     0326000247 +                 PL     X6,LBM4     IF ^RF[DIW]                                 PROSEQ    578
                                                                                                                 PROSEQ    579
                                        *         *RF* DEFINITION FOUND.  CONSIDER AS POSSIBLE CANDIDATE.        PROSEQ    580
                                                                                                                 PROSEQ    581
                               20624              LX6    1+D.RFP-D.USESP                                         PROSEQ    582
           256  43063                             MX0    -D.USESL                                                PROSEQ    583
                     66331                        SB3    B3+B1       NRF = NRF + 1                               PROSEQ    584
                          15460                   BX4    -X0*X6                                                  PROSEQ    585
                               36114              IX1    X1+X4       TUSES = TUSES + USES[DIW]                   PROSEQ    586
           257  20650                             LX6    D.USESP+59-D.RFP                                        PROSEQ    587
                     0400000247 +                 EQ     LBM4                                                    PROSEQ    588
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    15
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
                                        **        BDU - BUILD DEF-USE TABLE.                                     PROSEQ    590
                                        *         PERFORM FORWARD SCAN TO CONSTRUCT DUT FOR SUBSEQUENCE.         PROSEQ    591
                                        *         THE BCT IS ALSO FORMED, OF *RF* DEFINITIONS.  FINALLY, THE PBT PROSEQ    592
                                        *         IS FORMED OF B-REG ASSIGNMENTS INCOMING WITH THE SEQUENCE.     PROSEQ    593
                                        *                                                                        PROSEQ    594
                                        *         ENTRY  B2 - RIF, LOC OF R1 OF FIRST INS. IN SEQ.               PROSEQ    595
                                        *                B3 - RIL, LOC OF R1 OF INS. MARKING END OF BLOCK.       PROSEQ    596
                                        *                A0 - O.SEQ                                              PROSEQ    597
                                        *                                                                        PROSEQ    598
                                        *         EXIT   A0 - PRESERVED.                                         PROSEQ    599
                                                                                                                 PROSEQ    600
           260                           BDUA     BFMW   D,(PRS,RJRS,PI),59-D.RFP                                FCC0586     4
                                                                                                                 FCC0586     5
           261  0200400261 +             BDU      ROUTINE                                                        PROSEQ    601
           262  6122777773                        SB2    B2-4        R1I = R1F - 4                               PROSEQ    602
                          5110000000 X            SA1    O.DUT                                                   PROSEQ    603
           263  63710                             SB7    X1          DUI = O.DUT                                 PROSEQ    604
                                                                                                                 PROSEQ    605
           264  6122000004               BDU1     SB2    B2+4        R1I = R1I + 4                               PROSEQ    606
                          43063                   MX0    -D.USESL                                                PROSEQ    607
           265  5112000002                        SA1    B2+2        DI = R1I + 2 ;  DIW = [DI]                  PROSEQ    608
                          0423000261 +            EQ     B2,B3,BDU   IF R1I = R1L                                PROSEQ    609
           266  76570                             SX5    B7          II = DUI                                    PROSEQ    610
                     20522                        LX5    DP.IIP                                                  PROSEQ    611
                                                  LX1    -D.USESP                                                PROSEQ    612
                          76670                   SX6    B7          NI = DUI                                    PROSEQ    613
                               56220              SA2    B2          R1W = [R1I]                                 FCC0586     6
                                                  LX6    DP.NIP                                                  FCC0586     7
           267  15310                             BX3    -X0*X1      U = USES[DIW]                               FCC0586     8
                     12765                        BX7    X6+X5                                                   FCC0586     9
                          54711                   SA7    A1+B1       LI = DI + 1 ;  [LI] = DPW(II,NI)            FCC0586    10
                               26062              UX0    B6,X2       OCI = OC[R1W]                               FCC0586    11
           270  20122                             LX1    D.USESP+59-D.^DP                                        FCC0586    12
                     0331000277 +                 MI     X1,BDU2     IF ^D[DIW]                                  FCC0586    13
                               10011              BX0    X1                                                      FCC0586    14
           271  63737                             SB7    B7+X3       DUI = DUI + U                               FCC0586    15
                     20026                        LX0    D.^DP-D.RFP                                             FCC0586    16
                          0320000277 +            PL     X0,BDU2     IF ^RF[DIW]                                 FCC0586    17
           272  5130000260 +                      SA3    BDUA                                                    FCC0586    18
                          11030                   BX0    X3*X0                                                   FCC0586    19
           273  0310000277 +                      NZ     X0,BDU2     IF (PRS,RJRS,PI)[DIW]                       FCC0586    20
                          10011                   BX0    X1                                                      CCGA099    26
                               20011              LX0    D.^DP-D.XMTP                                            CCGA100    22
           274  0330000277 +                      MI     X0,BDU2     IF LEVEL 0 & LCM                            CCGA099    28
                                                                                                                 PROSEQ    632
                                        *         FILE *RF* DEFINITION IN BCT.                                   PROSEQ    633
                                                                                                                 PROSEQ    634
                          5140000000 X            SA4    L.BCT                                                   PROSEQ    635
           275  5130000000 X                      SA3    O.BCT                                                   PROSEQ    636
                          43054                   MX0    -R1.RIL                                                 PROSEQ    637
                               63540              SB5    X4                                                      PROSEQ    638
                                                  LX2    -R1.RIP                                                 PROSEQ    639
           276  15620                             BX6    -X0*X2                                                  PROSEQ    640
                                                  LX6    BC.RIP      RID = RI[R1W]                               PROSEQ    641
                     53635                        SA6    X3+B5       BCT(L.BCT) = BCW(RID)                       PROSEQ    642
                          76751                   SX7    B5+B1                                                   PROSEQ    643
                                                  LX2    R1.RIP                                                  PROSEQ    644
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    16
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
                               54740              SA7    A4          L.BCT = L.BCT + 1                           PROSEQ    645
                                                                                                                 PROSEQ    646
           277  20152                    BDU2     LX1    1+D.^DP+58-D.TYP                                        FCC0586    21
                     36711                        IX7    X1+X1                                                   PROSEQ    648
                          0331000334 +            MI     X1,BDU6     IF TY[DIW] .GE. III                         PROSEQ    649
           300  0337000313 +                      MI     X7,BDU5     IF TY[DIW] = II                             PROSEQ    650
                                                                                                                 PROSEQ    651
                                        *         TYPE I INSTRUCTION.                                            PROSEQ    652
                                                                                                                 PROSEQ    653
                          20124                   LX1    2+D.TYP-D.TYIOP                                         PROSEQ    654
                               43672              MX6    -D.TYIOL                                                PROSEQ    655
           301  6156777724                        SB5    B6-OC.PLD                                               PROSEQ    656
                          15716                   BX7    -X6*X1                                                  PROSEQ    657
                               43054              MX0    -R1.RIL                                                 PROSEQ    658
           302  5237000000 X                      SA3    =XTYIOM+X7                                              PROSEQ    659
                          26643                   UX6    B4,X3                                                   PROSEQ    660
                               11362              BX3    X6*X2                                                   PROSEQ    661
           303  23443                             AX4    B4,X3                                                   PROSEQ    662
                     15340                        BX3    -X0*X4                                                  PROSEQ    663
                                                                                                                 PROSEQ    664
           304  0303000310 +             BDU3     ZR     X3,BDU4     IF OPN = 0                                  PROSEQ    665
                          0100000345 +            RJ     EDU         ENTER USE IN DUT                            PROSEQ    666
           305  0750000310 +                      MI     B5,BDU4     IF OCI .LT. OC.PLD                          PROSEQ    667
                          0450000307 +            ZR     B5,BDU3A    IF OCI = OC.PLD                             PROSEQ    668
           306  0551000310 +                      NE     B5,B1,BDU4  IF OCI .NE. OC.PST                          PROSEQ    669
                          0440000310 +            ZR     B4,BDU4     IF RI MOD                                   PROSEQ    670
                                                                                                                 PROSEQ    671
                                        *         SHORT USE. SET SU BIT IN DUT ENTRY.                            PROSEQ    672
                                                                                                                 PROSEQ    673
           307  43301                    BDU3A    MX3    1                                                       PROSEQ    674
                                                  LX3    1+DU.SUP                                                PROSEQ    675
                     12773                        BX7    X7+X3       SU[DUW] = 1                                 PROSEQ    676
                          54770                   SA7    A7                                                      PROSEQ    677
                                                                                                                 PROSEQ    678
           310  21420                    BDU4     AX4    R1.RIL                                                  PROSEQ    679
                     0304000264 +                 ZR     X4,BDU1     IF NO OPERANDS REMAIN                       PROSEQ    680
           311  6144000020                        SB4    B4+R1.RIL                                               PROSEQ    681
                          15340                   BX3    -X0*X4      OPN =                                       PROSEQ    682
           312  0400000304 +                      EQ     BDU3                                                    PROSEQ    683
                                                                                                                 PROSEQ    684
                                        *         TYPE II INSTRUCTION.                                           PROSEQ    685
                                                                                                                 PROSEQ    686
           313  20135                    BDU5     LX1    1+D.TYP-D.PIP                                           PROSEQ    687
                     0321000264 +                 PL     X1,BDU1     IF ^PI[DIW]                                 PROSEQ    688
                                                                                                                 PROSEQ    689
                                        *         RS OR DEF INSTRUCTION.                                         PROSEQ    690
                                                                                                                 PROSEQ    691
                               10322              BX3    X2                                                      PROSEQ    692
           314  20161                             LX1    D.PIP-D.^DP                                             PROSEQ    693
                     0321000320 +                 PL     X1,BDU5A    IF D[DIW]                                   PROSEQ    694
                               20345              LX3    59-R1.SOP-SO.LKP                                        PROSEQ    695
           315  0333000320 +                      MI     X3,BDU5A    IF MOD(LK[SO[R1W]],2) .NE. 0  */ ODD TYPE   PROSEQ    696
                                                                                                                 PROSEQ    697
                                        *         ENTER RI OF TYPE 0 OR 2 RS IN DUT.                             PROSEQ    698
                                                                                                                 PROSEQ    699
                          43054                   MX0    -R1.RIL                                                 PROSEQ    700
                               66400              R=     B4,R1.RIP                                               PROSEQ    701
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    17
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
                                                  LX2    -R1.RIP                                                 PROSEQ    702
           316  15320                             BX3    -X0*X2                                                  PROSEQ    703
                     0100000345 +                 RJ     EDU                                                     PROSEQ    704
           317  77632                             SX6    B3-B2                                                   FCC1837X    6
                                                  LX6    DU.USEP                                                 FCC1837X    7
                     36767                        IX7    X6+X7       USE[DUT] = R1L-O.SEQ */ USED UNTIL NEXT BM  FCC1837X    8
                          54770                   SA7    A7                                                      FCC1837X    9
                                                  LX2    R1.RIP                                                  PROSEQ    705
                                                                                                                 PROSEQ    706
           320  43071                    BDU5A    MX0    -SO.RTL                                                 PROSEQ    707
                     20251                        LX2    -R1.SOP-SO.RTP                                          PROSEQ    708
                          15320                   BX3    -X0*X2                                                  PROSEQ    709
           321  6263777777                        SB6    X3-RT.BR                                                PROSEQ    710
                          0560000264 +            NZ     B6,BDU1     IF NOT B-REG LOCK                           PROSEQ    711
           322  20203                             LX2    SO.RTP-SO.RNP                                           PROSEQ    712
                     15320                        BX3    -X0*X2                                                  PROSEQ    713
                          0303000264 +            ZR     X3,BDU1     IF LOCK OF B0                               PROSEQ    714
           323  63530                             SB5    X3                                                      PROSEQ    715
                                                                                                                 PROSEQ    716
                                        *         ENTER PRE-ASSIGNED B-REG IN PBT.                               PROSEQ    717
                                                                                                                 PROSEQ    718
                     5150000000 X                 SA5    L.PBT                                                   PROSEQ    719
           324  5140000000 X                      SA4    O.PBT                                                   PROSEQ    720
                          20220                   LX2    SO.RNP+R1.SOP-R1.RIP                                    PROSEQ    721
                               43054              MX0    -R1.RIL                                                 PROSEQ    722
           325  63450                             SB4    X5                                                      PROSEQ    723
                     15620                        BX6    -X0*X2      RID = RI[R1W]                               PROSEQ    724
                          20644                   LX6    PB.RIP                                                  PROSEQ    725
                               20366              LX3    PB.RNP                                                  PROSEQ    726
           326  12663                             BX6    X6+X3                                                   PROSEQ    727
                     20244                        LX2    R1.RIP+59-R1.SOP-SO.LKP-1                               PROSEQ    728
                          36322                   IX3    X2+X2       LT = LK[SO[R1W]]                            PROSEQ    729
           327  7150377777                        SX5    LU.INF      LU = .INF.                                  PROSEQ    730
                          21373                   AX3    59                                                      PROSEQ    731
                               15153              BX1    -X3*X5      IF (LT .EQ. 1  .OR.  LT .EQ. 3) LU = 0      PROSEQ    732
           330  20122                             LX1    PB.LUP                                                  PROSEQ    733
                     12661                        BX6    X6+X1                                                   PROSEQ    734
                          53644                   SA6    X4+B4       PBT(L.PBT) = PBW(RN,PID,LU)                 PROSEQ    735
                               76741              SX7    B4+B1                                                   PROSEQ    736
           331  54750                             SA7    A5          L.PBT = L.PBT + 1                           PROSEQ    737
                                                                                                                 PROSEQ    738
                                        *         SET FLAG (BIT IN FLF) TO TAKE REG OFF MARKET AT END OF         PROSEQ    739
                                        *         SUBSEQUENCE IF THIS WAS A TYPE 2 LOCK.                         PROSEQ    740
                                                                                                                 PROSEQ    741
                     43001                        MX0    1                                                       PROSEQ    742
                          15323                   BX3    -X3*X2                                                  PROSEQ    743
                               11203              BX2    X0*X3                                                   PROSEQ    744
           332  5140000000 C                      SA4    FLF                                                     PROSEQ    745
                          22252                   LX2    B5                                                      PROSEQ    746
                               12642              BX6    X4+X2                                                   PROSEQ    747
           333  54640                             SA6    A4                                                      PROSEQ    748
                     0400000264 +                 EQ     BDU1                                                    PROSEQ    749
                                                                                                                 PROSEQ    750
                                        *         TYPE III OR IV INSTRUCTION.                                    PROSEQ    751
                                                                                                                 PROSEQ    752
           334  0337000264 +             BDU6     MI     X7,BDU1     IF TY[DIW] = IV                             PROSEQ    753
                          20122                   LX1    1+D.TYP-D.^DP                                           PROSEQ    754
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    18
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            BDU                 AIS 
  
           335  7100177776                        SX0    RMSK                                                    PROSEQ    755
                          0321000340 +            PL     X1,BDU7     IF D[DIW]                                   PROSEQ    756
           336  11302                             BX3    X0*X2                                                   PROSEQ    757
                     0303000340 +                 ZR     X3,BDU7     IF RI[R1W] .LT. 2                           PROSEQ    758
           337  6140000000                        SB4    0           SC = 0                                      PROSEQ    759
                          0100000345 +            RJ     EDU         ENTER USE OF RI IN DUT                      PROSEQ    760
                                                                                                                 PROSEQ    761
           340  56421                    BDU7     SA4    B2+B1       R2 = R1I + 1 ;  R2W = [R2]                  PROSEQ    762
                     20430                        LX4    -IH.RFP                                                 PROSEQ    763
                          11304                   BX3    X0*X4                                                   PROSEQ    764
           341  0303000264 +                      ZR     X3,BDU1     IF RF[R2W] .LT. 2                           PROSEQ    765
                          6140777733              SB4    -IH.RFP     SC = IH.RFP                                 PROSEQ    766
           342  0100000345 +                      RJ     EDU         FILE USE OF RF IN DUT                       PROSEQ    767
                                                                                                                 PROSEQ    768
                                        *         MARK SHORT USE.                                                PROSEQ    769
                                                                                                                 PROSEQ    770
           343  43301                             MX3    1                                                       PROSEQ    771
                                                  LX3    1+DU.SUP                                                PROSEQ    772
                     12773                        BX7    X7+X3       SU[DUW] = 1                                 PROSEQ    773
                          54770                   SA7    A7                                                      PROSEQ    774
           344  0400000264 +                      EQ     BDU1                                                    PROSEQ    775
  
  
  
                                        **        EDU - ENTER USE IN DUT.                                        PROSEQ    777
                                        *         ENTRY  X3 - R-NUMBER OF USED OPERAND.                          PROSEQ    778
                                        *                B2 - R1I, *SEQ* INDEX OF USE.                           PROSEQ    779
                                        *                B4 - SC, SHIFT COUNT .                                  PROSEQ    780
                                        *                A0 - O.SEQ                                              PROSEQ    781
                                        *                                                                        PROSEQ    782
                                        *         EXIT   A0, B4 PRESERVED                                        FCC1837X   10
                                        *                A7,X7 - ADDRESS AND CONTENTS OF UPDATED *DUT* WORD.     FCC1837X   11
                                        *                                                                        PROSEQ    784
                                        *         USES - X3,X5,X6,X7,A3,A5,A6,A7,B6                              PROSEQ    785
                                                                                                                 PROSEQ    786
           345  0200400345 +             EDU      ROUTINE                                                        PROSEQ    787
           346  64600                             SB6    A0                                                      PROSEQ    788
                     77626                        SX6    B2-B6       USE = R1I - O.SEQ                           PROSEQ    789
                          6060000003              SB6    A0+3                                                    PROSEQ    790
           347  53536                             SA5    X3+B6       LD = O.SEQ + DEF + 3                        PROSEQ    791
                                                  LX5    -DP.NIP                                                 PROSEQ    792
                     20322                        LX3    DU.DEFP                                                 PROSEQ    793
                                                  LX6    DU.USEP                                                 PROSEQ    794
                          12763                   BX7    X6+X3                                                   PROSEQ    795
                               76310              SX3    B1                                                      PROSEQ    796
           350  27747                             PX7    B4,X7                                                   PROSEQ    797
                     53750                        SA7    X5          DUT(NI[LD]) = DUW(0,SC,USE,DEF)             PROSEQ    798
                          36653                   IX6    X5+X3       NI[LD] = NI[LD] + 1                         PROSEQ    799
                                                  LX6    DP.NIP                                                  PROSEQ    800
                               54650              SA6    A5                                                      PROSEQ    801
           351  20552                             LX5    DP.NIP-DP.IIP                                           FCC1837X   12
                     63650                        SB6    X5                                                      FCC1837X   13
                          75376                   SX3    A7-B6                                                   FCC1837X   14
           352  0303000345 +                      ZR     X3,EDU      IF II[LD] = NI[LD] - 1  */ FIRST USE        FCC1837X   15
                                                                                                                 FCC1837X   16
                                        *         ENSURE THAT THE LAST USE IS THE MAX.  REVERSAL CAN HAPPEN      FCC1837X   17
                                        *         WHEN USES > 1 AND AN EARLY USE *PRS* TO A UJP LOCK *RS*.       FCC1837X   18
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    19
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            EDU                 AIS 
  
                                                                                                                 FCC1837X   19
                          55571                   SA5    A7-B1                                                   FCC1837X   20
                                                  LX7    -DU.USEP                                                FCC1837X   21
                               73670              SX6    X7                                                      FCC1837X   22
                                                  LX5    -DU.USEP                                                FCC1837X   23
           353  73350                             SX3    X5                                                      FCC1837X   24
                     37363                        IX3    X6-X3                                                   FCC1837X   25
                                                  LX7    DU.USEP                                                 FCC1837X   26
                          0323000345 +            PL     X3,EDU      IF USE[NI] \ USE[NI-1]                      FCC1837X   27
                                                  LX5    DU.USEP                                                 FCC1837X   28
           354  55771                             SA7    A7-B1       SWAP( DUT(NI) , DUT(NI-1) )                 FCC1837X   29
                     10755                        BX7    X5                                                      FCC1837X   30
                          54771                   SA7    A7+B1                                                   FCC1837X   31
           355  0400000345 +                      EQ     EDU                                                     PROSEQ    802
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    20
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUP                 AIS 
  
                                        **        IUP - INSTALL USE INFORMATION IN PBT.                          PROSEQ    804
                                        *                                                                        PROSEQ    805
                                        *         ENTRY  A0 - O.SEQ                                              PROSEQ    806
                                        *                                                                        PROSEQ    807
                                        *         EXIT   A0 - PRESERVED.                                         PROSEQ    808
                                                                                                                 PROSEQ    809
           356  0200400356 +             IUP      ROUTINE                                                        PROSEQ    810
           357  5110000000 X                      SA1    L.PBT                                                   PROSEQ    811
                          5120000000 X            SA2    O.PBT                                                   PROSEQ    812
           360  63720                             SB7    X2                                                      PROSEQ    813
                     53117                        SA1    X1+B7       PBC = PBT(L.PBT+1)                          PROSEQ    814
                          6070000003              SB7    A0+3                                                    PROSEQ    815
           361  43071                             MX0    -PB.RNL                                                 PROSEQ    816
                     0400000363 +                 EQ     IUP2                                                    PROSEQ    817
                                                                                                                 PROSEQ    818
           362  20122                    IUP1     LX1    PB.LUP                                                  PROSEQ    819
                                                  LX2    PB.PP       P = PI                                      PROSEQ    820
                     12612                        BX6    X1+X2       P[PBW] = P                                  PROSEQ    821
                          5061000000              SA6    A1+                                                     PROSEQ    822
                                                                                                                 PROSEQ    823
           363  55111                    IUP2     SA1    A1-B1       PBC = PBC - 1 ;  PBW = [PBC]                PROSEQ    824
                     0301000356 +                 ZR     X1,IUP      IF PBC = PBT(0)                             PROSEQ    825
                               20106              LX1    -PB.RNP                                                 PROSEQ    826
           364  15310                             BX3    -X0*X1                                                  PROSEQ    827
                     5223000000 C                 SA2    PBI+X3-1    PI = PBI(RN[PBW]) ;  PIW = [PI]             PROSEQ    828
                               10411              BX4    X1                                                      PROSEQ    829
                                                  LX2    59-PI.NAP                                               PROSEQ    830
           365  0332000363 +                      MI     X2,IUP2     IF NA[PIW]                                  PROSEQ    831
                                                  LX2    1+PI.NAP+PB.PP            P = PI                        PROSEQ    832
                          74610                   SX6    A1                                                      PROSEQ    833
                               20144              LX1    PB.RNP-PB.LUP                                           PROSEQ    834
           366  54620                             SA6    A2          P[PI] = PBC                                 PROSEQ    835
                     73310                        SX3    X1                                                      PROSEQ    836
                          0313000362 +            NZ     X3,IUP1     IF LU[PBW] .NE. 0                           PROSEQ    837
                                                                                                                 PROSEQ    838
                                        *         INSTALL LAST USE IN PBT ENTRY FOR TEMP LOCKS.                  PROSEQ    839
                                                                                                                 PROSEQ    840
           367  20422                             LX4    PB.RNP-PB.RIP                                           PROSEQ    841
                     53347                        SA3    X4+B7       LI = O.SEQ + RI[PBW] + 3 ;  LIW = [LI]      PROSEQ    842
                                                  LX3    -DP.NIP                                                 PROSEQ    843
                          5243777776              SA4    X3-1        DUC = DUT(NI[LIW]-1) ;  DUW = [DUC]         PROSEQ    844
                                                  LX4    -DU.USEP                                                PROSEQ    845
           370  73340                             SX3    X4                                                      PROSEQ    846
                     12113                        BX1    X1+X3       LU[PBW] = USE[DUW]                          PROSEQ    847
                          0400000362 +            EQ     IUP1                                                    PROSEQ    848
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    21
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IXU                 AIS 
  
                                        **        IXU - INSTALL EXTENDED USE SPAN IN BCT MEMBERS.                PROSEQ    850
                                        *                                                                        PROSEQ    851
                                        *         ENTRY  A0 - O.SEQ                                              PROSEQ    852
                                        *                                                                        PROSEQ    853
                                        *         EXIT   X4 - SMAXW ,  MAX REGW OVER EXTENDED USE OF ALL         PROSEQ    854
                                        *                CANDIDATES.                                             PROSEQ    855
                                        *                A0 - PRESERVED.                                         PROSEQ    856
                                                                                                                 PROSEQ    857
           371  0200400371 +             IXU      ROUTINE                                                        PROSEQ    858
           372  5110000000 X                      SA1    O.BCT                                                   PROSEQ    859
                          5120000000 X            SA2    L.BCT                                                   PROSEQ    860
           373  43600                             MX6    0                                                       PROSEQ    861
                     63620                        SB6    X2                                                      PROSEQ    862
                          13444                   BX4    X4-X4       SMAXW = 0                                   PROSEQ    863
                               53616              SA6    X1+B6       BCT(L.BCT+1)=0                              PROSEQ    864
           374  5211777776                        SA1    X1-1        N = 0                                       PROSEQ    865
                          6060000003              SB6    A0+3        OLS = O.SEQ + 3                             PROSEQ    866
           375  6050000002                        SB5    A0+2        ODS = O.SEQ + 2                             PROSEQ    867
                          0400000400 +            EQ     IXU3                                                    PROSEQ    868
                                                                                                                 PROSEQ    869
           376  37347                    IXU1     IX3    X4-X7                                                   PROSEQ    870
                     0323000377 +                 PL     X3,IXU2     IF SMAXW \ MAXR                             PROSEQ    871
                               10477              BX4    X7          SMAXW = MAXR                                PROSEQ    872
                                                                                                                 PROSEQ    873
                                         IXU2     LX1    BC.RIP                                                  PROSEQ    874
           377  12361                             BX3    X6+X1                                                   PROSEQ    875
                     20744                        LX7    BC.MRWP                                                 PROSEQ    876
                          12637                   BX6    X3+X7                                                   PROSEQ    877
                               54610              SA6    A1                                                      PROSEQ    878
                                                                                                                 PROSEQ    879
           400  54111                    IXU3     SA1    A1+B1       N = N + 1 ; BCN = BCT(N) ;  BCW = [BCN]     PROSEQ    880
                     0301000371 +                 ZR     X1,IXU      IF N .GT. L.BCT                             PROSEQ    881
                                                  LX1    -BC.RIP                                                 PROSEQ    882
                               53516              SA5    B6+X1       LN = OLS + RI[BCW] ;  LNW = [LN]            PROSEQ    883
                                                  LX5    -DP.NIP                                                 PROSEQ    884
           401  63250                             SB2    X5          UEN = NI[LNW]                               PROSEQ    885
                     20552                        LX5    DP.NIP-DP.IIP                                           PROSEQ    886
                          63350                   SB3    X5          UI = USN = II[LNW]                          PROSEQ    887
                               43600              MX6    0           LXU = 0                                     PROSEQ    888
                                                                                                                 PROSEQ    889
           402  56230                    IXU4     SA2    B3          UIW = [UI]                                  PROSEQ    890
                                                  LX2    -DU.USEP                                                PROSEQ    891
                     53526                        SA5    B6+X2       LU = OLS + USE[UIW] ;  LUW = [LU]           PROSEQ    892
                          66331                   SB3    B3+B1       UI = UI + 1                                 PROSEQ    893
                                                  LX5    -DP.NIP                                                 PROSEQ    894
           403  5225777776                        SA2    X5-1        XU = DU(NI[LUW]-1) ;  XUW = [XU]            PROSEQ    895
                                                  LX2    -DU.USEP    XUI = USE[XUW]                              PROSEQ    896
                          73520                   SX5    X2                                                      PROSEQ    897
                               37765              IX7    X6-X5                                                   PROSEQ    898
           404  0327000405 +                      PL     X7,IXU5     IF XUI .LE. LXU                             PROSEQ    899
                          10655                   BX6    X5          LXU = XUI                                   PROSEQ    900
                                                                                                                 PROSEQ    901
           405  0532000402 +             IXU5     NE     B3,B2,IXU4  IF UI .NE. UEN                              PROSEQ    902
                          76700                   SX7    B0          MAXR = 0                                    PROSEQ    903
                               43063              MX0    -D.REGWL                                                PROSEQ    904
           406  63365                             SB3    X6+B5       DJE = ODS + LXU                             PROSEQ    905
                     20622                        LX6    BC.LXUP                                                 PROSEQ    906
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    22
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IXU                 AIS 
  
                          63215                   SB2    X1+B5       DJI = DJS = ODS + RI[BCW]                   PROSEQ    907
                                                                                                                 PROSEQ    908
           407  0732000376 +             IXU6     GT     B2,B3,IXU1  IF DJI .GT. DJE                             PROSEQ    909
                          56220                   SA2    B2          DJW = [DJI]                                 PROSEQ    910
                               20263              LX2    -D.REGWP                                                PROSEQ    911
           410  15320                             BX3    -X0*X2      RW = REGW[DJW]                              PROSEQ    912
                     37573                        IX5    X7-X3                                                   PROSEQ    913
                          6122000004              SB2    B2+4        DJI = DJI + 4                               PROSEQ    914
           411  0325000407 +                      PL     X5,IXU6     IF MAXR .GE. RW                             PROSEQ    915
                          10733                   BX7    X3          MAXR = RW                                   PROSEQ    916
           412  0400000407 +                      EQ     IXU6                                                    PROSEQ    917
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    23
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            ABR                 AIS 
  
                                        **        ABR - ASSIGN B REGISTERS.                                      PROSEQ    919
                                        *         SCAN BCT, ASSIGNING AS MANY CANDIDATES AS POSSIBLE.            PROSEQ    920
                                        *                                                                        PROSEQ    921
                                        *         ENTRY  A0 - O.SEQ                                              PROSEQ    922
                                        *                                                                        PROSEQ    923
                                        *         EXIT   A0 - PRESERVED.                                         PROSEQ    924
                                                                                                                 PROSEQ    925
           413  0200400413 +             ABR      ROUTINE                                                        PROSEQ    926
           414  43600                             SETZERO  CAT,7                                                 PROSEQ    927
           416  5110000000 X                      SA1    O.BCT                                                   PROSEQ    928
                          5120000000 X            SA2    L.BCT                                                   PROSEQ    929
           417  63610                             SB6    X1                                                      PROSEQ    930
                     53626                        SA6    X2+B6       BCT(L.BCT+1) = 0                            PROSEQ    931
                          57161                   SA1    B6-B1       BI = O.BCT - 1                              PROSEQ    932
                                                                                                                 PROSEQ    933
           420  54111                    ABR1     SA1    A1+B1       BI = BI + 1 ;  BIW = [BI]                   PROSEQ    934
                     0301000413 +                 ZR     X1,ABR      IF BIW = 0    */ END OF BCT                 PROSEQ    935
                                                                                                                 PROSEQ    936
                                        *         AVOID ASSIGNING CANDIDATE WITH NO SHORT USES.                  PROSEQ    937
                                                                                                                 PROSEQ    938
           421  6050000003                        SB5    A0+3                                                    PROSEQ    939
                          10611                   BX6    X1                                                      PROSEQ    940
                                                  LX6    -BC.RIP                                                 PROSEQ    941
                               53265              SA2    X6+B5                                                   PROSEQ    942
                                                  LX2    -DP.NIP                                                 PROSEQ    943
           422  63420                             SB4    X2          LP = DUT(NI[RI[BIW]+3])                     PROSEQ    944
                     20252                        LX2    DP.NIP-DP.IIP                                           PROSEQ    945
                          63320                   SB3    X2          IP = DUT(II[RI[BIW]+3])                     PROSEQ    946
                                                                                                                 PROSEQ    947
           423  0434000420 +             ABR1A    EQ     B3,B4,ABR1  IF IP = LP                                  PROSEQ    948
                          56230                   SA2    B3          IPW = [IP]                                  PROSEQ    949
                                                  LX2    59-DU.SUP                                               PROSEQ    950
                               66331              SB3    B3+B1       IP = IP + 1                                 PROSEQ    951
           424  0322000423 +                      PL     X2,ABR1A    IF ^SU[IPW]                                 PROSEQ    952
                          20130                   LX1    -BC.MRWP                                                PROSEQ    953
           425  7201777770                        SX0    X1-TRW                                                  PROSEQ    954
                          0330000420 +            MI     X0,ABR1     IF MRW[BIW] .LT. TRW                        PROSEQ    955
                                                                                                                 FCC0508     4
                                        *         DONT ASSIGN CANDIDATE WHOSE FINAL USE IS 60-BIT.               FCC0508     5
                                                                                                                 FCC0508     6
           426  57241                             SA2    B4-B1       FP = LP - 1 ;  FPW = [FP]                   FCC0508     7
                                                  LX2    59-DU.SUP                                               FCC0508     8
                     0322000420 +                 PL     X2,ABR1     IF ^SU[FPW]                                 FCC0508     9
                               20144              LX1    BC.MRWP-BC.RIP                                          PROSEQ    956
           427  63410                             SB4    X1                                                      PROSEQ    957
                     67304                        SB3    -B4         -RIN  = -RI[BIW]                            PROSEQ    958
                          66600                   SB6    B0          RN = 0                                      PROSEQ    959
           430  6170000007                        SB7    7                                                       PROSEQ    960
                                                                                                                 PROSEQ    961
                                        *         SCAN FOR AVAILABLE B REGISTER WITH NO LOCKS IN FUTURE.         PROSEQ    962
                                                                                                                 PROSEQ    963
           431  5126000001 C             ABR2     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                PROSEQ    964
                          0467000436 +            EQ     B6,B7,ABR3  IF RN = 7                                   PROSEQ    965
                                                  LX2    59-PI.NAP                                               PROSEQ    966
           432  66661                             SB6    B6+B1       RN = RN +1                                  PROSEQ    967
                     0332000431 +                 MI     X2,ABR2     IF NA[PNW]    */  RN OFF MARKET             PROSEQ    968
           433  0312000431 +                      NZ     X2,ABR2     IF P[PNW] .NE. 0  */ LOCK IN FUTURE         PROSEQ    969
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    24
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            ABR                 AIS 
  
                          5146000007 C            SA4    CAT+B6-1    CN = CAT(RN) ;  CNW = [CN]                  PROSEQ    970
           434  20452                             LX4    -CA.LXUP                                                PROSEQ    971
                     73743                        SX7    X4+B3                                                   PROSEQ    972
                          0337000450 +            MI     X7,ABR7     IF LXU[CNW] .LT. RI[BIW]                    PROSEQ    973
           435  0567000431 +                      NE     B6,B7,ABR2  IF RN .NE. 7                                PROSEQ    974
                                                                                                                 PROSEQ    975
                                        *         LOOK FOR AVAILABLE B REGISTER WITH A *HOLE* IN FUTURE LOCKS    PROSEQ    976
                                        *         WHICH WILL ACCOMODATE THIS CANDIDATE/S EXTENDED-USE SPAN.      PROSEQ    977
                                                                                                                 PROSEQ    978
           436  66600                    ABR3     SB6    B0          RN = 0                                      PROSEQ    979
                                                                                                                 PROSEQ    980
           437  5126000001 C             ABR4     SA2    PBI+B6      PN = PBI(RN+1) ;  PNW = [PN]                PROSEQ    981
                          0467000420 +            EQ     B6,B7,ABR1  IF RN = 7    */ CANT ASSIGN THIS CANDIDATE  PROSEQ    982
           440  66661                             SB6    B6+B1       RN = RN + 1                                 PROSEQ    983
                                                  LX2    59-PI.NAP                                               PROSEQ    984
                     0332000437 +                 MI     X2,ABR4     IF NA[PNW]    THIS REG OFF MARKET           PROSEQ    985
           441  5146000007 C                      SA4    CAT+B6-1    CN = CAT[RN] ;  CNW = [CN]                  PROSEQ    986
                          20452                   LX4    -CA.LXUP                                                PROSEQ    987
                               73743              SX7    X4+B3                                                   PROSEQ    988
           442  0327000437 +                      PL     X7,ABR4     IF LXU[CNW] .GE. RIN                        PROSEQ    989
                                                  LX2    1+PI.NAP-PI.PP  PL=P[PNW]                               PROSEQ    990
                                                                                                                 PROSEQ    991
           443  53320                    ABR5     SA3    X2          PBJ = PL ;  PBW = [PBJ]                     PROSEQ    992
                                                  LX3    -PB.PP                                                  PROSEQ    993
                     73230                        SX2    X3          PL = P[PBW]                                 PROSEQ    994
                          20352                   LX3    PB.PP-PB.LUP                                            PROSEQ    995
                               73733              SX7    X3+B3                                                   PROSEQ    996
           444  0327000446 +                      PL     X7,ABR6     IF LU[PBW] .GT. RIN                         PROSEQ    997
                          10622                   BX6    X2                                                      PROSEQ    998
                               54620              SA6    A2          P[PNW] = PL                                 PROSEQ    999
           445  0312000443 +                      NZ     X2,ABR5     IF PL .NE. 0                                PROSEQ   1000
                                                                                                                 PROSEQ   1001
                                        *         NO LOCKS TO THIS REG PAST THIS CANDIDATE.                      PROSEQ   1002
                                                                                                                 PROSEQ   1003
                          0400000450 +            EQ     ABR7                                                    PROSEQ   1004
                                                                                                                 PROSEQ   1005
                                        *         DETERMINE IF NEXT LOCK IS FAR AHEAD ENOUGH TO LEAVE *HOLE*     PROSEQ   1006
                                        *         FOR THIS CANDIDATE/S SPAN.                                     PROSEQ   1007
                                                                                                                 PROSEQ   1008
           446  54110                    ABR6     SA1    A1                                                      PROSEQ   1009
                     20152                        LX1    -BC.LXUP                                                PROSEQ   1010
                          73410                   SX4    X1                                                      PROSEQ   1011
                               20352              LX3    PB.LUP-PB.RIP                                           PROSEQ   1012
           447  73530                             SX5    X3                                                      PROSEQ   1013
                     37754                        IX7    X5-X4                                                   PROSEQ   1014
                          0337000437 +            MI     X7,ABR4     IF LXU[BIW] .GT. RI[PBW]  */ OVERLAP        PROSEQ   1015
                                                                                                                 PROSEQ   1016
                                        *         ASSIGNMENT MADE.  GENERATE MODS TO ISSUE SA-RS AND MODIFY      PROSEQ   1017
                                        *         INSTRUCTIONS WHICH USE CANDIDATE IN 60-BIT CAPACITY.           PROSEQ   1018
                                                                                                                 PROSEQ   1019
           450  54210                    ABR7     SA2    A1          BIW = [BI]                                  PROSEQ   1020
                     10622                        BX6    X2                                                      PROSEQ   1021
                          5166000007 C            SA6    CAT+B6-1    CAT(RN) = BIW                               PROSEQ   1022
           451  0100000461 +                      RJ     ISA         ISSUE SA-RS TO MOD                          PROSEQ   1023
           452  0100000522 +                      RJ     IUM         ISSUE USE MODIFICATIONS                     PROSEQ   1024
                                                                                                                 PROSEQ   1025
                                        *         DECREMENT MRW OF ALL CANDIDATES FOLLOWING WHICH ARE FULLY      PROSEQ   1026
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    25
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            ABR                 AIS 
  
                                        *         CONTAINED IN THE SPAN OF THE CANDIDATE JUST ASSIGNED.          PROSEQ   1027
                                                                                                                 PROSEQ   1028
           453  54210                             SA2    A1          BJ = BI                                     PROSEQ   1029
                     20252                        LX2    -BC.LXUP                                                PROSEQ   1030
                          63720                   SB7    X2                                                      PROSEQ   1031
                               67507              SB5    -B7                                                     PROSEQ   1032
           454  76110                             SX1    B1                                                      PROSEQ   1033
                                                                                                                 PROSEQ   1034
           455  54221                    ABR8     SA2    A2+B1       BJ = BJ + 1 ;  BJW = [BJ]                   PROSEQ   1035
                     0302000420 +                 ZR     X2,ABR1     IF BJW = 0    */ END OF BCT                 PROSEQ   1036
                               20252              LX2    -BC.LXUP                                                PROSEQ   1037
           456  73725                             SX7    X2+B5                                                   PROSEQ   1038
                     0327000455 +                 PL     X7,ABR8     IF LXU[BJW] .GE. LXU[BIW]  */ OVERLAP       PROSEQ   1039
                               20252              LX2    BC.LXUP-BC.MRWP                                         PROSEQ   1040
           457  73720                             SX7    X2                                                      PROSEQ   1041
                     0307000455 +                 ZR     X7,ABR8     IF MRW[BJW] = 0                             PROSEQ   1042
                               37621              IX6    X2-X1                                                   PROSEQ   1043
           460  20644                             LX6    BC.MRWP                                                 PROSEQ   1044
                     54620                        SA6    A2          MRW[BJW] = MRW[BJW] - 1                     PROSEQ   1045
                          0400000455 +            EQ     ABR8                                                    PROSEQ   1046
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    26
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            ISA                 AIS 
  
                                        **        ISA - ISSUE SHORT ADD AND REGISTER STORE.                      PROSEQ   1048
                                        *                                                                        PROSEQ   1049
                                        *         ENTRY  A1 - BI, LOCATION OF BCT ENTRY FOR THIS ASSIGNMENT.     PROSEQ   1050
                                        *                B3 - (-RIN)                                             PROSEQ   1051
                                        *                B6 - RN, REGISTER TO BE ASSIGNED.                       PROSEQ   1052
                                        *                                                                        PROSEQ   1053
                                        *         EXIT   B3 - PRESERVED.                                         PROSEQ   1054
                                        *                B4 - NMA, NEXT ADDRESS IN MOD.                          PROSEQ   1055
                                        *                B7 - RIS, INDEX IN MOD OF SA GENERATED.                 PROSEQ   1056
                                        *                A0 - PRESERVED.                                         PROSEQ   1057
                                        *                A1 - PRESERVED.                                         PROSEQ   1058
                                                                                                                 PROSEQ   1059
           461  0200400461 +             ISA      ROUTINE                                                        PROSEQ   1060
           462  5120000000 X                      SA2    O.MLT                                                   PROSEQ   1061
                          5130000000 X            SA3    L.MLT                                                   PROSEQ   1062
           463  5150000000 X                      SA5    O.MOD                                                   PROSEQ   1063
                          43600                   MX6    0                                                       PROSEQ   1064
                               36723              IX7    X2+X3                                                   PROSEQ   1065
           464  63250                             SB2    X5                                                      PROSEQ   1066
                     53670                        SA6    X7          MLT(L.MLT+1) = 0                            PROSEQ   1067
                          53420                   SA4    X2          MI = O.MLT ;  MIN = [MI]                    PROSEQ   1068
           465  5150000000 X                      SA5    L.MOD                                                   PROSEQ   1069
                                                                                                                 PROSEQ   1070
           466  0304000475 +             ISA1     ZR     X4,ISA2     IF MIN = 0    */ END OF MLT                 PROSEQ   1071
                          20430                   LX4    -ML.IIP                                                 PROSEQ   1072
                               73743              SX7    X4+B3       MIW = MIN                                   PROSEQ   1073
           467  20444                             LX4    ML.IIP-ML.MTIP                                          PROSEQ   1074
                     63540                        SB5    X4                                                      PROSEQ   1075
                          54441                   SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   PROSEQ   1076
           470  0317000466 +                      NZ     X7,ISA1     IF II[MIW] .NE. RIN                         PROSEQ   1077
                          43054                   MX0    -R1.RIL                                                 PROSEQ   1078
                               56225              SA2    B2+B5       TI = O.MOD+MTI[MIW]                         PROSEQ   1079
           471  11402                             BX4    X0*X2                                                   PROSEQ   1080
                     54321                        SA3    A2+B1                                                   PROSEQ   1081
                          12645                   BX6    X4+X5       RI[TI] = L.MOD                              PROSEQ   1082
                               22703              LX7    X3                                                      PROSEQ   1083
           472  53652                             SA6    X5+B2       [MOD(L.MOD+1)] = [TI]                       PROSEQ   1084
                     54761                        SA7    A6+B1       [MOD(L.MOD+2)] = [TI+1]                     PROSEQ   1085
                          54231                   SA2    A3+B1                                                   PROSEQ   1086
                               54321              SA3    A2+B1                                                   PROSEQ   1087
           473  10622                             BX6    X2                                                      PROSEQ   1088
                     22703                        LX7    X3                                                      PROSEQ   1089
                          54671                   SA6    A7+B1       [MOD(L.MOD+3)] = [TI+2]                     PROSEQ   1090
                               54761              SA7    A6+B1       [MOD(L.MOD+4)] = [TI+3]                     PROSEQ   1091
           474  55441                             SA4    A4-B1       MI = MI - 1                                 PROSEQ   1092
                     0400000505 +                 EQ     ISA4                                                    PROSEQ   1093
                                                                                                                 PROSEQ   1094
           475  5120000000 X             ISA2     SA2    L.MLT                                                   PROSEQ   1095
                          73621                   SX6    X2+B1                                                   PROSEQ   1096
                               54620              SA6    A2          L.MLT = L.MLT + 1                           PROSEQ   1097
           476  43054                             MX0    -R1.RIL                                                 PROSEQ   1098
                     55203                        SA2    A0-B3       R1I = O.SEQ + RIN                           PROSEQ   1099
                          5032000002              SA3    A2+2        DI = R1I + 2                                PROSEQ   1100
           477  11702                             BX7    X0*X2                                                   PROSEQ   1101
                     55231                        SA2    A3-B1       R2I = DI - 1                                PROSEQ   1102
                          12675                   BX6    X7+X5       RI = L.MOD                                  PROSEQ   1103
           500  7100100000                        SX0    100000B                                                 PROSEQ   1104
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    27
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            ISA                 AIS 
  
                                                  LX3    58-D.TYP                                                PROSEQ   1105
                          36433                   IX4    X3+X3                                                   PROSEQ   1106
                               20044              LX0    IH.RFP                                                  PROSEQ   1107
           501  36720                             IX7    X2+X0       RF = RF[R2I] + 100000                       PROSEQ   1108
                     12434                        BX4    X3+X4                                                   PROSEQ   1109
                          0334000503 +            MI     X4,ISA3 IF TY[DI] .GT. 1                                PROSEQ   1110
           502  20050                             LX0    R1.RKP-IH.RFP                                           PROSEQ   1111
                     36460                        IX4    X6+X0                                                   PROSEQ   1112
                          20020                   LX0    R1.RJP-R1.RKP                                           PROSEQ   1113
                               36640              IX6    X4+X0                                                   PROSEQ   1114
                                                                                                                 PROSEQ   1115
           503  53652                    ISA3     SA6    X5+B2                                                   PROSEQ   1116
                     54761                        SA7    A6+B1                                                   PROSEQ   1117
                                                  LX3    2+D.TYP                                                 PROSEQ   1118
                          10633                   BX6    X3                                                      PROSEQ   1119
                               43700              MX7    0                                                       PROSEQ   1120
           504  54671                             SA6    A7+B1                                                   PROSEQ   1121
                     54761                        SA7    A6+B1                                                   PROSEQ   1122
                                                                                                                 PROSEQ   1123
           505  43101                    ISA4     MX1    1                                                       PROSEQ   1124
                                                  LX1    1+ML.DELP   DELM = 1                                    PROSEQ   1125
                     43302                        MX3    2                                                       PROSEQ   1126
                          20324                   LX3    2+ML.NIP    NIM = 3                                     PROSEQ   1127
                               77403              SX4    -B3                                                     PROSEQ   1128
           506  20444                             LX4    ML.IIP      IIM = RIN                                   PROSEQ   1129
                     12613                        BX6    X1+X3                                                   PROSEQ   1130
                                                  LX5    ML.MTIP     MTIM = L.MOD                                PROSEQ   1131
                          12646                   BX6    X4+X6                                                   PROSEQ   1132
                               12765              BX7    X6+X5                                                   PROSEQ   1133
                                                  LX5    -ML.MTIP                                                PROSEQ   1134
           507  54740                             SA7    A4          [MI] = MLW(0,NIM,IIM,MTIM)                  PROSEQ   1135
                                                                                                                 PROSEQ   1136
                     6275000004                   SB7    X5+4        LMN = L.MOD + 4                             PROSEQ   1137
           510  6150000060                        SB5    OC.SA                                                   PROSEQ   1138
                          76670                   SX6    B7          RIIN = LMN                                  PROSEQ   1139
                                                  LX6    R1.RIP                                                  PROSEQ   1140
                               20540              LX5    R1.RJP      RJN = L.MOD                                 PROSEQ   1141
           511  12665                             BX6    X6+X5                                                   PROSEQ   1142
                     43700                        MX7    0                                                       PROSEQ   1143
                          66472                   SB4    B7+B2                                                   PROSEQ   1144
           512  0100000563 +                      RJ     SRI                                                     PROSEQ   1145
           513  7130002200                        SX3    SO.BLOCK                                                PROSEQ   1146
                          76160                   SX1    B6                                                      PROSEQ   1147
                                                  LX1    SO.RNP                                                  PROSEQ   1148
                               12213              BX2    X1+X3                                                   PROSEQ   1149
           514  20220                             LX2    R1.SOP                                                  PROSEQ   1150
                     76770                        SX7    B7                                                      PROSEQ   1151
                                                  LX7    R1.RIP                                                  PROSEQ   1152
                          6150000004              SB5    OC.RS                                                   PROSEQ   1153
           515  12672                             BX6    X7+X2                                                   PROSEQ   1154
                     43700                        MX7    0                                                       PROSEQ   1155
                          0100000563 +            RJ     SRI                                                     PROSEQ   1156
           516  7177000010                        SX7    B7+8                                                    PROSEQ   1157
                          5170000000 X            SA7    L.MOD       L.MOD = LMN + 8                             PROSEQ   1158
           517  0400000461 +                      EQ     ISA                                                     PROSEQ   1159
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    28
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUM                 AIS 
  
                                        **        IUM - ISSUE USE MODIFICATIONS.                                 PROSEQ   1161
                                        *                                                                        PROSEQ   1162
                                        *         ENTRY  B3 - (-RIN), MINUS INDEX IN SEQ OF CANDIDATE DEFINITION PROSEQ   1163
                                        *                B4 - NEXT *MOD* STORE ADDRESS.                          PROSEQ   1164
                                        *                B7 - RIS, MOD INDEX OF SA.                              PROSEQ   1165
                                        *                A0 - O.SEQ                                              PROSEQ   1166
                                        *                A1 - BI, BCT ENTRY ADDRESS CORRESPONDING TO CANDIDATE.  PROSEQ   1167
                                        *                                                                        PROSEQ   1168
                                        *         EXIT   A0,A1 - PRESERVED.                                      PROSEQ   1169
                                                                                                                 PROSEQ   1170
           520  00004000020000000000     IUMA     VFD    12/0,16/100000B,16/100000B,16/0                         PROSEQ   1171
                                                                                                                 PROSEQ   1172
           521  5120000022 C             IUM0     SA2    IUMB                                                    PROSEQ   1173
                          10622                   BX6    X2                                                      PROSEQ   1174
                               54630              SA6    A3          [UL] = SAVE                                 PROSEQ   1175
                                                                                                                 PROSEQ   1176
           522  0200400522 +             IUM      ROUTINE                                                        PROSEQ   1177
           523  6060000003                        SB6    A0+3        OLS = O.SEQ + 3                             PROSEQ   1178
                          57363                   SA3    B6-B3       LI = OLS + RIN ;  LIW = [LI]                PROSEQ   1179
                               43600              MX6    0                                                       PROSEQ   1180
                                                  LX3    -DP.NIP                                                 PROSEQ   1181
           524  53430                             SA4    X3          UL = NI[LIW]                                PROSEQ   1182
                     10744                        BX7    X4          SAVE = [UL]                                 PROSEQ   1183
                          54640                   SA6    A4          [UL] = 0                                    PROSEQ   1184
           525  5170000022 C                      SA7    IUMB                                                    PROSEQ   1185
                          20352                   LX3    DP.NIP-DP.IIP                                           PROSEQ   1186
                               63230              SB2    X3          UI = US = II[LIW]                           PROSEQ   1187
                                                                                                                 PROSEQ   1188
                                        *         MODIFY ALL 60-BIT USES OF CANDIDATE SO THAT THESE USES         PROSEQ   1189
                                        *         ARE NOT CHANGED TO B-REG RI BY MPB.                            PROSEQ   1190
                                                                                                                 PROSEQ   1191
           526  56320                    IUM1     SA3    B2          UIW = [UI]                                  PROSEQ   1192
                     0303000521 +                 ZR     X3,IUM0     IF UIW = 0    */ UI = UL                    PROSEQ   1193
                               66221              SB2    B2+B1       UI = UI + 1                                 PROSEQ   1194
                                                  LX3    59-DU.SUP                                               PROSEQ   1195
           527  0333000526 +                      MI     X3,IUM1     IF SU[UIW]                                  PROSEQ   1196
                                                  LX3    1+DU.SUP                                                PROSEQ   1197
                          10133                   BX1    X3                                                      PROSEQ   1198
                                                  LX3    -DU.USEP                                                PROSEQ   1199
                               64600              SB6    A0                                                      PROSEQ   1200
           530  53236                             SA2    B6+X3       R1I = O.SEQ + USE[UIW] ;  R1W = [R1I]       PROSEQ   1201
                     5140000000 X                 SA4    O.MLT                                                   PROSEQ   1202
           531  5150000000 X                      SA5    L.MLT                                                   PROSEQ   1203
                          43600                   MX6    0                                                       PROSEQ   1204
                               36745              IX7    X4+X5                                                   PROSEQ   1205
           532  43054                             MX0    -R1.RIL                                                 PROSEQ   1206
                     53670                        SA6    X7          MLT(L.MLT+1) = 0                            PROSEQ   1207
                          5244777776              SA4    X4-1        MI = O.MLT - 1                              PROSEQ   1208
           533  63630                             SB6    X3                                                      PROSEQ   1209
                     67506                        SB5    -B6         MU = -USE[UIW]                              PROSEQ   1210
                          7167777773              SX6    B7-4        RIM = RIS - 4                               PROSEQ   1211
                                                                                                                 PROSEQ   1212
                                        *         SEARCH FOR *MOD* TO SAME INSTRUCTION.  IF WE FIND ONE,         PROSEQ   1213
                                        *         WE MODIFY THE FIRST INSTRUCTION IN IT.                         PROSEQ   1214
                                                                                                                 PROSEQ   1215
           534  54441                    IUM2     SA4    A4+B1       MI = MI + 1 ;  MIN = [MI]                   PROSEQ   1216
                     0304000542 +                 ZR     X4,IUM3     IF MIN = 0    */ NO *MOD* ENTRY MATCHES     PROSEQ   1217
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    29
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUM                 AIS 
  
                               20430              LX4    -ML.IIP                                                 PROSEQ   1218
           535  73745                             SX7    X4+B5                                                   PROSEQ   1219
                     0317000534 +                 NZ     X7,IUM2     IF II[MIN] .NE. USE[UIW]                    PROSEQ   1220
                                                                                                                 PROSEQ   1221
                                        *         *MOD* ENTRY TO SAME INSTRUCTION.                               PROSEQ   1222
                                                                                                                 PROSEQ   1223
           536  5150000000 X                      SA5    O.MOD                                                   PROSEQ   1224
                          20444                   LX4    ML.IIP-ML.MTIP                                          PROSEQ   1225
                               36745              IX7    X4+X5                                                   PROSEQ   1226
           537  53370                             SA3    X7          MD = O.MOD + MTI[MIN] ; MDW = [MD]          PROSEQ   1227
                     6160000074                   SB6    60                                                      PROSEQ   1228
                               26151              UX1    B5,X1       RC = SC[UIW]                                PROSEQ   1229
           540  67665                             SB6    B6-B5                                                   PROSEQ   1230
                     22363                        LX3    B6          RX[Q] # RN[SHIFT(Q,-RC)]                    PROSEQ   1231
                          11403                   BX4    X0*X3                                                   PROSEQ   1232
                               12746              BX7    X4+X6       RX[MDW] = RIM                               PROSEQ   1233
           541  22757                             LX7    B5                                                      PROSEQ   1234
                     54730                        SA7    A3                                                      PROSEQ   1235
                          0400000526 +            EQ     IUM1                                                    PROSEQ   1236
                                                                                                                 PROSEQ   1237
                                        *         NO MATCH.  CREATE NEW *MOD* ENTRY.                             PROSEQ   1238
                                                                                                                 PROSEQ   1239
           542  5042000002               IUM3     SA4    A2+2        DI = R1I + 2 ;  DIW = [DI]                  PROSEQ   1240
                                                  LX4    58-D.TYP                                                PROSEQ   1241
                          0334000544 +            MI     X4,IUM4     IF TY[DIW] .GT. 2                           PROSEQ   1242
           543  5130000520 +                      SA3    IUMA                                                    FCC0508    10
                          36223                   IX2    X2+X3       RJ[R1W] = RJ[R1W] + 100000B ;               FCC0508    11
                                        *                            RK[R1W] = RK[R1W] + 100000B                 PROSEQ   1245
                                                                                                                 PROSEQ   1246
           544  5150000000 X             IUM4     SA5    L.MOD                                                   PROSEQ   1247
                          20422                   LX4    59-58+D.TYP-D.^DP                                       FCC0508    12
                               10755              BX7    X5          RII = L.MOD                                 FCC0508    13
           545  0324000547 +                      PL     X4,IUM5     IF D[DIW]                                   FCC0508    14
                          15720                   BX7    -X0*X2                                                  FCC0508    15
           546  7277100000                        SX7    X7+100000B  RII = RI[R1W] + 100000B                     FCC0508    16
                                                                                                                 FCC0508    17
           547  11402                    IUM5     BX4    X0*X2                                                   FCC0508    18
                     6160000074                   SB6    60                                                      PROSEQ   1249
                               26151              UX1    B5,X1       RC = SC[UIW]                                PROSEQ   1250
           550  12747                             BX7    X4+X7       RI[R1W] = RII                               FCC0508    19
                     67665                        SB6    B6-B5                                                   PROSEQ   1252
                          22767                   LX7    B6                                                      PROSEQ   1253
                               11407              BX4    X0*X7                                                   PROSEQ   1254
           551  12646                             BX6    X4+X6       RX[R1W] = RIM                               PROSEQ   1255
                     22656                        LX6    B5                                                      PROSEQ   1256
                          54221                   SA2    A2+B1       R2I = R1I + 1                               PROSEQ   1257
           552  7140100000                        SX4    100000B                                                 PROSEQ   1258
                          20444                   LX4    IH.RFP                                                  PROSEQ   1259
                               12724              BX7    X2+X4                                                   PROSEQ   1260
           553  56640                             SA6    B4                                                      PROSEQ   1261
                     56741                        SA7    B4+B1                                                   PROSEQ   1262
                          54221                   SA2    A2+B1       DI = R2I + 1                                PROSEQ   1263
                               43700              MX7    0                                                       PROSEQ   1264
           554  10622                             BX6    X2                                                      PROSEQ   1265
                     54671                        SA6    A7+B1                                                   PROSEQ   1266
                          54761                   SA7    A6+B1                                                   PROSEQ   1267
                               64471              SB4    A7+B1                                                   PROSEQ   1268
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    30
        AIS - ASSIGN INDEX REGISTERS IN STRAIGHT LINE CODE            IUM                 AIS 
  
           555  7275000004                        SX7    X5+4                                                    PROSEQ   1269
                          54750                   SA7    A5          L.MOD = L.MOD + 4                           PROSEQ   1270
           556  5130000000 X                      SA3    L.MLT                                                   PROSEQ   1271
                                                  LX5    ML.MTIP     MTM = L.MOD - 4                             PROSEQ   1272
                          43001                   MX0    1                                                       PROSEQ   1273
                                                  LX0    1+ML.DELP   DELM = 1                                    PROSEQ   1274
           557  5140000000 X                      SA4    O.MLT                                                   PROSEQ   1275
                          12505                   BX5    X0+X5                                                   PROSEQ   1276
                               20023              LX0    ML.NIP-ML.DELP     NIM = 1                              PROSEQ   1277
           560  63540                             SB5    X4                                                      PROSEQ   1278
                     12605                        BX6    X0+X5                                                   PROSEQ   1279
                                                  LX1    -DU.USEP                                                PROSEQ   1280
                          73510                   SX5    X1                                                      PROSEQ   1281
                               20544              LX5    ML.IIP      IIM = USE[UIW]                              PROSEQ   1282
           561  12765                             BX7    X6+X5                                                   PROSEQ   1283
                     53735                        SA7    X3+B5       MLT(L.MLT+1) = MLW(DELM,MTM,NIM,IIM)        PROSEQ   1284
                          73631                   SX6    X3+B1                                                   PROSEQ   1285
                               54630              SA6    A3          L.MLT = L.MLT + 1                           PROSEQ   1286
           562  0400000526 +                      EQ     IUM1                                                    PROSEQ   1287
  
  
  
  
                                        **        SRI - STORE R-LIST INSTRUCTION.                                PROSEQ   1289
                                        *         FILE INSTRUCTIONS IN *MOD*.                                    PROSEQ   1290
                                        *                                                                        PROSEQ   1291
                                        *         ENTRY  X6 - R1 WORD, LESS OP-CODE.                             PROSEQ   1292
                                        *                X7 - R2 WORD                                            PROSEQ   1293
                                        *                B4 - NEXT *MOD* STORE ADDRESS.                          PROSEQ   1294
                                        *                B5 - OP-CODE.                                           PROSEQ   1295
                                        *                                                                        PROSEQ   1296
                                        *         EXIT   B4 - INCREMENTED.                                       PROSEQ   1297
                                        *                                                                        PROSEQ   1298
                                        *         USES   A3,A6,A7,X3                                             PROSEQ   1299
                                                                                                                 PROSEQ   1300
           563  0200400563 +             SRI      ROUTINE                                                        PROSEQ   1301
           564  27656                             PX6    B5,X6                                                   PROSEQ   1302
                     5135000000 X                 SA3    =XF.RDT+B5                                              PROSEQ   1303
                               56640              SA6    B4                                                      PROSEQ   1304
           565  56741                             SA7    B4+B1                                                   PROSEQ   1305
                     10633                        BX6    X3                                                      PROSEQ   1306
                          43700                   MX7    0                                                       PROSEQ   1307
                               54671              SA6    A7+B1                                                   PROSEQ   1308
           566  54761                             SA7    A6+B1                                                   PROSEQ   1309
                     64471                        SB4    A7+B1                                                   PROSEQ   1310
                          0400000563 +            EQ     SRI                                                     PROSEQ   1311
                                                                                                                 PROSEQ   1312
                                                  QUAL   *                                                       PROSEQ   1313
                                                                                                                 PROSEQ   1314
                                         AIS#     EQENT  /AIS/AIS                                                CCGNC     734
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    31
        ESR - EXPAND SPECIAL REFERENCES                               ESR 
  
                                         .AET     IF     DEF,WB.AETL                                             CCG5      930
                                                                                                                 CCG5      931
                                        **        ESR - EXPAND SPECIAL REFERENCES.                               PROSEQ   1317
                                        *                                                                        PROSEQ   1318
                                        *         ESR EXPANDS LEVEL 2/3 AND/OR FORMAL PARAMETER MEMORY REFS      PROSEQ   1319
                                        *         IN A SEQUENCE.  ALL TYPE 3 LOAD, STORE AND SET INSTRUCTIONS    PROSEQ   1320
                                        *         WITH THE SPECIAL PROPERTIES DETERMINED BY *KEY* (X5) ARE       PROSEQ   1321
                                        *         REPLACED WITH INDIRECT OR EXPANDED REFS.                       PROSEQ   1322
                                        *                                                                        PROSEQ   1323
                                        *         ENTRY  X5 - KEY, EXPANSION FLAG AS FOLLOWS--                   PROSEQ   1324
                                        *                     1 = EXPAND F.P. REFERENCES ONLY                    PROSEQ   1325
                                        *                     2 = EXPAND LCM REFERENCES ONLY                     PROSEQ   1326
                                        *                     3 = EXPAND F.P. OR LCM REFERENCES                  PROSEQ   1327
                                        *                     4 = EXPAND LCM REFERENCES OR F.P. STT/S .          PROSEQ   1328
                                        *                X6 - SQUEEZE FLAG FOR MPB .                             PROSEQ   1329
                                                                                                                 CCGNC     735
           567                           ESRA     ENTRY. -1,#        MAKE FP ONLY CALL ILLEGAL                   CCGNC     736
           570  00000000000000000000 X            VFD    42/,18/=XHO$LVL2                                        CCGNC     737
           571  00000000000000000006 +            VFD    42/,18/CC$SRF                                           CCGNC     738
           572  00000000000000000006 +            VFD    42/,18/CC$SRF                                           CCGNC     739
                                                                                                                 CCGNC     740
           573                     1     FSR      BSS    1           FIRST SPECIAL REF. (CHAIN HEAD)             PROSEQ   1337
           574                     1     LSF      BSS    1           LOAD/STORE/SET FLAG                         PROSEQ   1338
           575                     1     SQF      BSS    1           SQUEEZE FLAG                                PROSEQ   1339
           576                     1     R2W      BSS    1           R2 WORD OF CURRENT INSTRUCTION              FCC0643    47
                                                                                                                 PROSEQ   1340
           577  5130000000 X             ESR0     SA3    O.MOD                                                   PROSEQ   1341
                          6273777776              SB7    X3-1                                                    PROSEQ   1342
           600  75677                             SX6    A7-B7                                                   PROSEQ   1343
                     5160000000 X                 SA6    L.MOD                                                   PROSEQ   1344
                                                                                                                 PROSEQ   1345
           601  5110000000 X             ESR1     SA1    O.SEQ                                                   PROSEQ   1346
                          53210                   SA2    X1                                                      PROSEQ   1347
                               26722              UX7    B2,X2                                                   PROSEQ   1348
           602  5132000000 X                      SA3    F.RDT+B2                                                PROSEQ   1349
                          5140000575 +            SA4    SQF                                                     PROSEQ   1350
           603  10733                             BX7    X3                                                      PROSEQ   1351
                     22604                        LX6    X4          (X6) = SQF FOR *MPB*                        PROSEQ   1352
                          5271000002              SA7    X1+2        [SEQ+2] = RDT(OC[SEQ])                      PROSEQ   1353
           604  0336000605 +                      MI     X6,ESR      IF SQF < 0                                  PROSEQ   1354
                          0100000000 X            CALL   MPB#        MERGE MODS WITH SEQUENCE                    CCGNC     741
                                                                                                                 PROSEQ   1356
           605                           ESR      ENTRY. **,#                                                    CCGNC     742
           606  5245000566 +                      SA4    ESRA-1+X5                                               PROSEQ   1358
                          5160000575 +            SA6    SQF                                                     PROSEQ   1359
           607  53340                             SA3    X4                                                      PROSEQ   1360
                     0303000601 +                 ZR     X3,ESR1     IF FLAG(MODE) = 0  */ NO SPECIAL REFS       PROSEQ   1361
           610  5215000134 +                      SA1    TSBA+X5     MASK FOR SR BITS                            PROSEQ   1362
                          5140000000 X            SA4    O.SEQ                                                   PROSEQ   1363
           611  43700                             MX7    0                                                       PROSEQ   1364
                     10011                        BX0    X1                                                      PROSEQ   1365
                          5274000002              SA7    X4+2        LOOP TERMINATOR AT D(BOS)                   PROSEQ   1366
           612  0100000626 +                      RJ     MSR         MARK SPECIAL REFS                           PROSEQ   1367
           613  0420000601 +                      ZR     B2,ESR1     IF N.SR = 0                                 PROSEQ   1368
                                                                                                                 PROSEQ   1369
                          76120                   ALLOC  MLT,B2      ALLOC( MLT , N.SR )                         PROSEQ   1370
           615  10211                             BX2    X1                                                      PROSEQ   1371
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    32
        ESR - EXPAND SPECIAL REFERENCES                               ESR 
  
                     20104                        LX1    4                                                       PROSEQ   1372
                          20202                   LX2    2                                                       PROSEQ   1373
                               36112              IX1    X1+X2                                                   PROSEQ   1374
           616  5100000000 X                      ALLOC  MOD,X1      ALLOC (MOD, 5*4*N.SR )                      PROSEQ   1375
                                                                                                                 PROSEQ   1376
           617  0100000641 +                      RJ     GSR         GENERATE SPECIAL REFS                       PROSEQ   1377
           620  0400000577 +                      EQ     ESR0                                                    PROSEQ   1378
  
  
  
                                        **        MSR - MARK SPECIAL REFERENCES.                                 PROSEQ   1380
                                        *         ENTRY  A4,X4 - O.SEQ                                           PROSEQ   1381
                                        *                X0 - MASK OF PERTINENT SPECIAL REF BITS                 PROSEQ   1382
                                        *                                                                        PROSEQ   1383
                                        *         EXIT   B2 = N.SR                                               PROSEQ   1384
                                        *                B3 = (FSR) = POINTS TO S.R. CHAIN IN LINK WORDS         PROSEQ   1385
                                                                                                                 PROSEQ   1386
           621                           MSRA     BSS    0                                                       PROSEQ   1387
      L      0                                    LOC    0                                                       PROSEQ   1388
      L      0  00000000000000000000              CON    0                                                       PROSEQ   1389
      L      1  00000000000000000000              CON    0                                                       PROSEQ   1390
      L      2  00000000000000000000              CON    0                                                       PROSEQ   1391
      L      3                                    BFMW   D,(LD,ST)                                               PROSEQ   1392
      L    625                                    LOC    *O                                                      PROSEQ   1393
                                                                                                                 PROSEQ   1394
           625  76630                    MSR0     SX6    B3                                                      PROSEQ   1395
                     5160000573 +                 SA6    FSR         FIRST SPECIAL REF LINK ADDRESS              PROSEQ   1396
                                                                                                                 PROSEQ   1397
           626  0200400626 +             MSR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1398
           627  5255000620 +                      SA5    MSRA-1+X5                                               PROSEQ   1399
                          53241                   SA2    X4+B1                                                   PROSEQ   1400
                               73120              SX1    X2          LEN = TXTL[SEQ+1]                           PROSEQ   1401
           630  66200                             SB2    B0          N.SR = 0                                    PROSEQ   1402
                     36641                        IX6    X4+X1                                                   PROSEQ   1403
                          6276777775              SB7    X6-2        D(EOQ), I=N.INS                             PROSEQ   1404
           631  56370                             SA3    B7          DI=D(I)                                     PROSEQ   1405
                     66300                        SB3    B0          CP = 0                                      PROSEQ   1406
                          63640                   SB6    X4                                                      PROSEQ   1407
                               76710              SX7    B1                                                      PROSEQ   1408
           632  20725                             LX7    D.FPP                                                   PROSEQ   1409
                                                                                                                 PROSEQ   1410
           633  0303000625 +             MSR1     ZR     X3,MSR0     IF DI = 0     */ I = 0                      PROSEQ   1411
                          6177777773              SB7    B7-4        I = I - 1                                   PROSEQ   1412
           634  11403                             BX4    X0*X3       SRBITS(I+1)                                 PROSEQ   1413
                     11253                        BX2    X5*X3                                                   PROSEQ   1414
                          10122                   BX1    X2                                                      PROSEQ   1415
                               20256              LX2    D.FPP-D.LDP                                             PROSEQ   1416
           635  20157                             LX1    D.FPP-D.STP                                             PROSEQ   1417
                     12221                        BX2    X2+X1       LDSTI = MSRA(KEY).AND. (LD[DI] .OR. ST[DI]) PROSEQ   1418
                          11172                   BX1    X7*X2                                                   PROSEQ   1419
                               15441              BX4    -X1*X4      FP[SR[DI]] = FP[SR[DI]] .AND. ^LDSTI        PROSEQ   1420
           636  56370                             SA3    B7          DI=D(I)                                     PROSEQ   1421
                     0304000633 +                 ZR     X4,MSR1     IF NOT SPECIAL REF(MODE)                    PROSEQ   1422
                               66221              SB2    B2+B1       N.SR = N.SR + 1                             PROSEQ   1423
           637  76630                             SX6    B3                                                      PROSEQ   1424
                     5167000005                   SA6    B7+5        (LINK(I-1)) = CP                            PROSEQ   1425
                               65366              SB3    A6-B6       CP = LINK(I-1) - O.SEQ                      PROSEQ   1426
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    33
        ESR - EXPAND SPECIAL REFERENCES                               MSR 
  
           640  0400000633 +                      EQ     MSR1                                                    PROSEQ   1427
  
  
  
  
                                        **        GSR - GENERATE SPECIAL REFERENCES.                             PROSEQ   1429
                                        *                                                                        PROSEQ   1430
                                        *         ENTRY  B2 = CHAIN HEAD FOR SPECIAL REFS                        PROSEQ   1431
                                        *                                                                        PROSEQ   1432
           641  0200400641 +             GSR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1433
           642  5120000573 +                      SA2    FSR                                                     PROSEQ   1434
                          5110000000 X            SA1    O.SEQ                                                   PROSEQ   1435
           643  43700                             MX7    0                                                       PROSEQ   1436
                     63710                        SB7    X1                                                      PROSEQ   1437
                          63227                   SB2    X2+B7                                                   PROSEQ   1438
           644  6130100000                        SB3    100000B     OFFSET FOR MPB                              PROSEQ   1439
                          5110000000 X            SA1    O.MOD                                                   PROSEQ   1440
           645  5170000000 X                      SA7    L.MLT       L.MLT = 0                                   PROSEQ   1441
                          5271000003              SA7    X1+3        A7= FWA - 1 EXPANSION IN MOD                PROSEQ   1442
           646  6140000004                        SB4    4           RI = 4                                      PROSEQ   1443
                          0400000652 +            EQ     GSR3                                                    PROSEQ   1444
                                                                                                                 PROSEQ   1445
           647  0100000701 +             GSR1     RJ     ISC         ISSUE SET CODE                              PROSEQ   1446
                                                                                                                 PROSEQ   1447
           650  0100001210 +             GSR2     RJ     TRE         TERMINATE REF EXPANSION                     PROSEQ   1448
           651  5110000000 X                      SA1    O.SEQ                                                   PROSEQ   1449
                          6271000000              SB7    X1+                                                     PROSEQ   1450
                                                                                                                 PROSEQ   1451
           652  0427000641 +             GSR3     EQ     B2,B7,GSR   IF END OF CHAIN                             PROSEQ   1452
                          54070                   SA0    A7          IMA = INITIAL MOD ADDRESS - 1               PROSEQ   1453
                               57121              SA1    B2-B1       DI = D(I)                                   PROSEQ   1454
           653  56320                             SA3    B2                                                      PROSEQ   1455
                     55211                        SA2    A1-B1       R2I = DI - 1                                FCC0643    49
                          10622                   BX6    X2          R2W = [R2I]                                 FCC0643    50
           654  5160000576 +                      SA6    R2W                                                     FCC0643    51
                                        *                                                                        CCGA040     5
                                        *         EXAMINE THE SYMBOL TABLE AND DETERMINE IF REFERENCED           CCGA040     6
                                        *         SYMBOL IS LEVEL 0                                              CCGA040     7
                                        *                                                                        CCGA040     8
                          43600                   MX6    0                                                       CCGA040     9
           655  6160100000                        SB6    I.GL                                                    CCGA040    10
                          63520                   SB5    X2                                                      CCGA040    11
           656  0450000665 +                      ZR     B5,GSR3A    IF IH[R2] = 0                               CCGA040    12
                          0656000665 +            GE     B5,B6,GSR3A       IF I[R2] " 0                          CCGA040    13
           657  10511                             BX5    X1                                                      CCGA040    14
                     20501                        LX5    59-D.TYP                                                CCGA040    15
                          0335000665 +            MI     X5,GSR3A    IF TYPE[DI] = II & IV                       CCGA040    16
           660  5150000000 X                      SA5    =XO.SYM                                                 CCGA040    17
                          76455                   SX4    B5+B5                                                   CCGA040    18
                               63655              SB6    X5+B5                                                   CCGA040    19
           661  73546                             SX5    X4+B6                                                   CCGA040    20
                     53451                        SA4    X5+B1       WORDB = SYM(3*IH+1)                         CCGA040    21
                          20470                   LX4    59-WB.LABP                                              CCGA040    22
           662  0334000665 +                      MI     X4,GSR3A    IF LAB[WORDB]                               CCGA040    23
                          20423                   LX4    WB.LABP-WB.LEVNP+1                                      CCGA040    24
                               43572              MX5    -WB.LEVNL                                               CCGA040    25
           663  15545                             BX5    -X5*X4                                                  CCGA040    26
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    34
        ESR - EXPAND SPECIAL REFERENCES                               GSR 
  
                     0315000665 +                 NZ     X5,GSR3A    IF LEVN[WB] NE 0  */LEVEL 0                 CCGA040    27
                               20434              LX4    WB.LEVNP-WB.LCMP                                        CCGA040    28
           664  76610                             SX6    B1                                                      CCGA040    29
                     11646                        BX6    X4*X6       IFF LCM[WORDB]                              CCGA040    30
                          20644                   LX6    D.L2P                                                   CCGA040    31
                                        *                                                                        CCGA040    32
           665  5160001221 +             GSR3A    SA6    =SLEV0                                                  CCGA040    33
                          43272                   MX2    -D.LDSTL                                                CCG35      29
                               63237              SB2    X3+B7       I = I + 1                                   PROSEQ   1457
           666  10311                             BX3    X1                                                      PROSEQ   1458
                     20332                        LX3    -D.LDSTP                                                PROSEQ   1459
                          15232                   BX2    -X2*X3                                                  PROSEQ   1460
                               14622              BX6    -X2                                                     PROSEQ   1461
           667  5160000574 +                      SA6    LSF         LOAD/STORE/SET FLAG                         PROSEQ   1462
                          0306000647 +            ZR     X6,GSR1     IF NOT LOAD OR STORE                        PROSEQ   1463
                                                                                                                 PROSEQ   1464
                                         #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                          PROSEQ   1465
           670  11201                             BX2    X0*X1                                                   PROSEQ   1466
                     20227                        LX2    59-D.L2P                                                PROSEQ   1467
                          0322000674 +            PL     X2,GSR4     IF NOT LCM REF                              PROSEQ   1468
           671  0100000701 +                      RJ     ISC         ISSUE SET                                   PROSEQ   1469
           672  0100001127 +                      RJ     IDR         ISSUE DIRECT LCM REF                        PROSEQ   1470
           673  0400000650 +                      EQ     GSR2                                                    PROSEQ   1471
                                                                                                                 PROSEQ   1472
           674                           GSR4     BSS    0                                                       PROSEQ   1473
                                         #DAL     ENDIF                                                          PROSEQ   1474
                                                                                                                 PROSEQ   1475
           674  0100001020 +                      RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1476
           675  0100001031 +                      RJ     IRA         ISSUE RA FOR RF                             PROSEQ   1477
           676  0100001117 +                      RJ     IPR         ISSUE PLD/PST                               PROSEQ   1478
           677  0400000650 +                      EQ     GSR2                                                    PROSEQ   1479
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    35
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
                                        **        ISC - ISSUE SET CODE.                                          PROSEQ   1481
                                        *                                                                        PROSEQ   1482
                                        *         ISC CONTROLS EXPANSION OF SPECIAL REFERENCES FOR STT INSTRUC-  PROSEQ   1483
                                        *         TIONS.  ALL STT TO FP OR LCM SYMBOLS ARE EXPANDED AS DESIRED.  PROSEQ   1484
                                        *         IN ADDITION, ISC GENERATES ALL CODE PRECEDING THE DRL/DWL      PROSEQ   1485
                                        *         FOR THE EXPANSION OF A LEVEL 2 LOAD OR STORE.  ISC INSURES     PROSEQ   1486
                                        *         THAT AN XMT IS GENERATED FOR ANY STT (FP OR LCM=I MODE LCM)    PROSEQ   1487
                                        *         IN WHICH THE LAST OPERATION IS A LOAD.  THIS GUARANTEES THAT   PROSEQ   1488
                                        *         A STORE-TO-APLIST MAY FOLLOW.                                  PROSEQ   1489
                                        *                                                                        PROSEQ   1490
                                        *         ENTRY  A1 = ADDRESS OF DESCRIPTOR OF CURRENT SPECIAL REF.      PROSEQ   1491
                                        *                A7 = FWA-1 OF MOD BUFFER TO BE USED FOR EXPANSION.      PROSEQ   1492
                                        *                X1 = DESCRIPTOR                                         PROSEQ   1493
                                        *                X0 = MASK OF SPECIAL (L2 AND/OR FP) BITS DESCRIBING     PROSEQ   1494
                                        *                     THE TYPES OF REFS TO BE EXPANDED.                  PROSEQ   1495
                                        *                B1 = 1                                                  PROSEQ   1496
                                        *                B3 = 100000B                                            PROSEQ   1497
                                        *                B4 = NEXT RI NUMBER (UPDATED BY SRI)                    PROSEQ   1498
                                        *                                                                        PROSEQ   1499
                                        *         EXIT   A0,A1,B1,B2,B3,X0 PRESERVED.                            PROSEQ   1500
                                        *                B4 AS LAST UPDATED BY SRI.                              PROSEQ   1501
                                        *                EXPANSION FILED IN MOD, WITH A7 UPDATED.                PROSEQ   1502
                                        *                                                                        PROSEQ   1503
                                        *         CALLS  SRI, IAL, IRA, ISX.                                     PROSEQ   1504
                                                                                                                 PROSEQ   1505
           700  43200                    ISC0     MX2    0                                                       PROSEQ   1506
                     0100001203 +                 RJ     SRI         STORE INSTRUCTION                           PROSEQ   1507
                                                                                                                 PROSEQ   1508
           701  0200400701 +             ISC      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1509
           702  11301                             BX3    X0*X1                                                   PROSEQ   1510
                     20327                        LX3    59-D.L2P                                                PROSEQ   1511
                          0333000710 +            MI     X3,ISC3     IF LCM REF                                  PROSEQ   1512
           703  20317                             LX3    D.L2P-D.FPP                                             PROSEQ   1513
                     0323000701 +                 PL     X3,ISC      IF NOT FP                                   PROSEQ   1514
                                                                                                                 PROSEQ   1515
           704  0100001020 +             ISC2     RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1516
           705  0100001031 +                      RJ     IRA         ISSUE IA FOR ANY RF                         PROSEQ   1517
           706  0100001070 +                      RJ     ISX         ISSUE STT/XMT                               PROSEQ   1518
           707  0400000701 +                      EQ     ISC                                                     PROSEQ   1519
                                                                                                                 PROSEQ   1520
           710  5140000000 X             ISC3     SA4    =XHO$LCM                                                CCGNC     743
                          0314000722 +            NZ     X4,ISC5     IF LCM=I MODE                               PROSEQ   1522
           711  5140001221 +                      SA4    LEV0                                                    CCG35      30
                          0314000722 +            NZ     X4,ISC5 IF LEVEL = 0                                    CCG35      31
                                                                                                                 PROSEQ   1523
                                         #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                          PROSEQ   1524
           712  5140000574 +                      SA4    LSF                                                     PROSEQ   1525
                          0304000716 +            ZR     X4,ISC1     IF  STT LCM                                 PROSEQ   1526
           713  20317                             LX3    D.L2P-D.FPP                                             PROSEQ   1527
                     0333000704 +                 MI     X3,ISC2     IF FP                                       PROSEQ   1528
           714  0100001006 +                      RJ     ISI         ISSUE STT INSTRUCTIIN                       PROSEQ   1529
           715  0400000701 +                      EQ     ISC                                                     PROSEQ   1530
                                                                                                                 PROSEQ   1531
                                         #DAL     ENDIF                                                          PROSEQ   1532
                                                                                                                 PROSEQ   1533
           716  20317                    ISC1     LX3    D.L2P-D.FPP                                             PROSEQ   1534
                     0333000704 +                 MI     X3,ISC2     IF FP                                       PROSEQ   1535
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    36
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
           717  0100001006 +                      RJ     ISI         ISSUE STT                                   PROSEQ   1536
           720  0100001140 +                      RJ     IMO         ISSUE MASK-OR BIT 59                        PROSEQ   1537
           721  0400000701 +                      EQ     ISC                                                     PROSEQ   1538
                                                                                                                 PROSEQ   1539
                                        *         IN LCM=I MODE, ALL LCM REFS ARE EXPANDED REGARDLESS OF         CCGA044    11
                                        *         EXPANSION MODE BECAUSE OF THE ODD MEANING OF THE IH SYMBOL     PROSEQ   1541
                                        *         (SCM POINTER CELL ADDRESS).                                    PROSEQ   1542
                                                                                                                 PROSEQ   1543
           722  20146                    ISC5     LX1    59-D.FPP    FP BIT IRREGARDLESS OF MODE                 PROSEQ   1544
                     0321000725 +                 PL     X1,ISC6     IF NOT FP                                   PROSEQ   1545
           723  0100001020 +                      RJ     IAL         ISSUE ADDRESS LOAD                          PROSEQ   1546
           724  43500                             MX5    0           RA = 0                                      CCG18     113
                     0400000736 +                 EQ     ISC7                                                    PROSEQ   1547
                                                                                                                 PROSEQ   1548
                                        *         GENERATE CODE TO LOAD SCM POINTER CELL THAT CONTAINS 21-BIT    PROSEQ   1549
                                        *         RELOCATED LCM ADDRESS AT OBJECT TIME.                          PROSEQ   1550
                                                                                                                 PROSEQ   1551
           725  55211                    ISC6     SA2    A1-B1       IHINFO(REF)                                 PROSEQ   1552
                                                  LX2    -IH.IHP                                                 PROSEQ   1553
                     5130000000 X                 SA3    =XO$SYM                                                 CCG18     114
                               73720              SX7    X2                                                      CCG18     115
           726  22217                             LX2    B1,X7                                                   CCG18     116
                     36272                        IX2    X7+X2                                                   CCG18     117
                          36732                   IX7    X3+X2                                                   CCG18     118
           727  5237000002                        SA3    X7+2                                                    CCG18     119
                          43262                   MX2    -WC.RBL                                                 CCG18     120
                               20314              LX3    -WC.RBP                                                 CCG18     121
           730  15732                             BX7    -X2*X3                                                  CCG18     122
                     43244                        MX2    -WC.RAL                                                 CCG18     123
                          20360                   LX3    WC.RBP-WC.RAP                                           CCG18     124
                               15532              BX5    -X2*X3                                                  CCG18     125
           731  5120000000 X                      SA2    =XO$CBT                                                 CCG18     126
                          36327                   IX3    X2+X7                                                   CCG18     127
           732  5223000001                        SA2    X3+CB.W                                                 CCG18     128
                          43352                   MX3    -CB.TAGL                                                CCG18     129
                               20244              LX2    -CB.TAGP                                                CCG18     130
           733  15723                             BX7    -X3*X2      IH = TAG[CBT(RB[WC(REF)])]                  CCG18     131
                     76210                        SX2    B1                                                      FCC0882    12
                          6150000050              SB5    OC.LD                                                   FCC0882    13
           734  76640                             SX6    B4          RI                                          FCC0645    34
                     20237                        LX2    R1.INP+1    IN[R1W] = 2   */ UDI = 1 ( LOAD ONLY )      FCC0645    35
                          12626                   BX6    X2+X6                                                   FCC0645    36
                               43200              MX2    0                                                       PROSEQ   1559
           735  0100001203 +                      RJ     SRI         ISSUE LD LCM POINTER CELL                   PROSEQ   1560
                                                                                                                 PROSEQ   1561
           736  55211                    ISC7     SA2    A1-B1       IHINFO(REF)                                 PROSEQ   1562
                     20230                        LX2    -IH.RFP                                                 PROSEQ   1563
                          43352                   MX3    -IH.RFL                                                 PROSEQ   1564
                               15423              BX4    -X3*X2                                                  PROSEQ   1565
           737  20222                             LX2    IH.RFP-IH.CAP                                           PROSEQ   1567
                     73320                        SX3    X2                                                      CCG18     132
                          36353                   IX3    X5+X3       CA = CA + RA                                CCG18     134
                               12234              BX2    X3+X4                                                   PROSEQ   1569
           740  0332000745 +                      MI     X2,ISC8     IF RF(REF) .OR. CA(REF) .NE. 0              CCG0085     5
                          0312000745 +            NZ     X2,ISC8     IF RF(REF) .OR. CA(REF) .NE. 0              PROSEQ   1570
           741  5140000574 +                      SA4    LSF                                                     PROSEQ   1571
                          0314000701 +            NZ     X4,ISC      IF LD/ST                                    PROSEQ   1572
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    37
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
           742  43154                             MX1    -R1.RIL                                                 PROSEQ   1573
                     55221                        SA2    A2-B1       R1(REF)                                     PROSEQ   1574
                                                  LX2    -R1.RIP                                                 PROSEQ   1575
                          15321                   BX3    -X1*X2                                                  PROSEQ   1576
                               73633              SX6    X3+B3       RI MOD TO SEQ                               PROSEQ   1577
           743  7124777773                        SX2    B4-4        RJ = RI(PRED)                               PROSEQ   1578
                          0100001106 +            RJ     IXI         ISSUE AN *XMT/SA*                           PROSEQ   1579
           744  0400000701 +                      EQ     ISC                                                     PROSEQ   1580
                                                                                                                 PROSEQ   1581
           745  76640                    ISC8     SX6    B4          RI                                          PROSEQ   1582
                     0304000771 +                 ZR     X4,ISC9     IF RF = 0                                   FCC1353     5
                               53547              SA5    B7+X4       R1P = SEQ(RF)                               FCC1353     6
           746  73443                             SX4    X4+B3       RF = RF + 100000B                           FCC1353     7
                     0313000753 +                 NZ     X3,ISC8A    IF CA " 0                                   FCC1353     8
                                                                                                                 FCC1353     9
                               26555              UX5    B5,X5                                                   FCC1353    10
           747  7175777772                        SX7    B5-OC.DEF                                               FCC1353    11
                          0317001000 +            NZ     X7,ISC11    IF OC[R1P] " OC.DEF                         FCC1353    12
           750  20547                             LX5    58-R1.SOP-SO.RTP                                        FCC1353    13
                     0335001000 +                 MI     X5,ISC11    IF SORT[R1P] = 2  */ OPERAND IN A X-REGISTE FCC1353    14
                                                                                                                 FCC1353    15
                               20440              LX4    R1.RJP                                                  FCC1353    16
           751  12664                             BX6    X6+X4                                                   FCC1353    17
                     43700                        MX7    0                                                       FCC1353    18
                          6150000060              SB5    OC.SA                                                   FCC1353    19
           752  0400000776 +                      EQ     ISC10                                                   FCC1353    20
                                                                                                                 FCC1353    21
                                        *         CHECK IF CA CAN BE CONTAINED IN AN 18 BIT FIELD.               CCGA044    13
                                        *         IF NOT THEN WE MUST MATERIALIZE THE CONSTANT IN THE            CCGA044    14
                                        *         CONSTANT TABLE                                                 CCGA044    15
                                                                                                                 CCGA044    16
           753  10233                    ISC8A    BX2    X3                                                      CCGA052     9
                     21221                        AX2    17                                                      CCGA052    10
                          0302000756 +            ZR     X2,ISC8B    IF CA FITS IN 18 BITS                       CCGA052    11
           754  0100001152 +                      RJ     ILC                                                     CCGA044    20
           755  0400000764 +                      EQ     ISC8D                                                   CCGA044    21
                                                                                                                 CCGA044    22
           756  43752                    ISC8B    MX7    -IH.CAL                                                 CCGA052    12
                     15337                        BX3    -X7*X3      TRUNCATE NEGAITVE CA S TO 18 BITS           CCGA052    13
                          5120000000 X            SA2    =XHO$LCM                                                CCGA052    14
           757  0312000762 +                      NZ     X2,ISC8C    IF LCM = I OR LCM = G                       CCGA099    29
                          6150000052              SB5    OC.STT                                                  CCG35      34
           760  20444                             LX4    IH.RFP                                                  PROSEQ   1588
                     20322                        LX3    IH.CAP                                                  PROSEQ   1589
                          12743                   BX7    X4+X3                                                   PROSEQ   1590
           761  0400000776 +                      EQ     ISC10                                                   PROSEQ   1591
                                                                                                                 CCG35      35
           762  6150000055               ISC8C    SB5    OC.S                                                    CCGA044    25
                          43700                   MX7    0                                                       CCG35      37
                               20336              LX3    R1.INP                                                  CCG35      38
           763  12663                             BX6    X6+X3                                                   CCG35      39
                     43200                        MX2    0                                                       CCG35      40
                          0100001203 +            RJ     SRI                                                     CCG35      41
                                                                                                                 CCGA044    26
           764  76640                    ISC8D    SX6    B4                                                      CCGA044    27
                     6150000036                   SB5    OC.IA                                                   CCG35      43
           765  7174777773                        SX7    B4-4                                                    CCG35      44
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    38
        ESR - EXPAND SPECIAL REFERENCES                               ISC 
  
                          20740                   LX7    R1.RJP                                                  CCG35      45
                               20420              LX4    R1.RKP                                                  CCG35      46
           766  12774                             BX7    X7+X4                                                   CCG35      47
                     12667                        BX6    X6+X7                                                   CCG35      48
                          43700                   MX7    0                                                       CCG35      49
                               43200              MX2    0                                                       CCG35      50
           767  0100001203 +                      RJ     SRI                                                     CCG35      51
           770  7144777763                        SX4    B4-12                                                   CCG35      52
                          0400001000 +            EQ     ISC11                                                   CCG35      53
                                                                                                                 PROSEQ   1592
           771  10233                   ISC9      BX2    X3                                                      CCGA052    15
                     21221                        AX2    17                                                      CCGA052    16
                          0302000774 +            ZR     X2,ISC9A    IF CA FITS IN 18 BITS                       CCGA052    17
           772  0100001152 +                      RJ     ILC                                                     CCGA044    35
           773  7144777767                        SX4    B4-8                                                    CCGA044    36
                          0400001000 +            EQ     ISC11                                                   CCGA044    37
                                                                                                                 CCGA044    38
           774  20336                    ISC9A    LX3    R1.INP                                                  CCGA044    39
                     12663                        BX6    X6+X3                                                   PROSEQ   1594
                          43700                   MX7    0                                                       PROSEQ   1595
           775  6150000055                        SB5    OC.S                                                    PROSEQ   1596
                                                                                                                 PROSEQ   1597
           776  43200                    ISC10    MX2    0                                                       PROSEQ   1598
                     0100001203 +                 RJ     SRI         STORE STT/S                                 PROSEQ   1599
           777  7144777767                        SX4    B4-8        RK = RI(LCM ADDRESS LOAD)                   PROSEQ   1600
                                                                                                                 PROSEQ   1601
          1000  7154777773               ISC11    SX5    B4-4        RJ = RI(LCM ADDRESS LOAD)/RI(S/STT)         PROSEQ   1602
                          20454                   LX4    R1.RKP-R1.RJP                                           PROSEQ   1603
                               12645              BX6    X4+X5                                                   PROSEQ   1604
          1001  20640                             LX6    R1.RJP                                                  PROSEQ   1605
                     5120000574 +                 SA2    LSF                                                     PROSEQ   1606
                               76340              SX3    B4          RI = NRI                                    PROSEQ   1607
          1002  0312001004 +                      NZ     X2,ISC12    IF EXPANDING LCM LD/ST                      PROSEQ   1608
                          5031777775              SA3    A1-2        R1(REF)                                     PROSEQ   1609
          1003  43454                             MX4    -R1.RIL                                                 PROSEQ   1610
                                                  LX3    -R1.RIP                                                 PROSEQ   1611
                     15534                        BX5    -X4*X3      RI(REF)                                     PROSEQ   1612
                          73353                   SX3    X5+B3       RI MOD TO SEQ                               PROSEQ   1613
                                                                                                                 PROSEQ   1614
                                         ISC12    LX3    R1.RIP                                                  PROSEQ   1615
          1004  12663                             BX6    X6+X3                                                   PROSEQ   1616
                     43700                        MX7    0                                                       PROSEQ   1617
                          6150000036              SB5    OC.IA                                                   PROSEQ   1618
          1005  0400000700 +                      EQ     ISC0                                                    PROSEQ   1619
  
  
  
  
                                        **        ISI - ISSUE STT INSTRUCTION.                                   PROSEQ   1621
                                        *         ISSUE STT TO MOD USING SEMANTIC INFO OF CURRENT INSTRUCTION    PROSEQ   1622
                                        *         BEING EXPANDED.                                                PROSEQ   1623
                                                                                                                 PROSEQ   1624
          1006  0200401006 +             ISI      ROUTINE                                                        PROSEQ   1625
          1007  55211                             SA2    A1-B1       IHINFO(REF)                                 PROSEQ   1626
                     6150000052                   SB5    OC.STT                                                  PROSEQ   1627
                               43652              MX6    -IH.RFL                                                 FCC0912    33
          1010  20230                             LX2    -IH.RFP                                                 FCC0912    34
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    39
        ESR - EXPAND SPECIAL REFERENCES                               ISI 
  
                     15326                        BX3    -X6*X2      R = RF[R2]                                  FCC0912    35
                          22702                   LX7    X2          R2W = [R2]                                  FCC0912    36
          1011  0303001012 +                      ZR     X3,ISI1     IF R = 0                                    FCC0912    37
                          76630                   SX6    B3                                                      FCC0912    38
                               36767              IX7    X6+X7       RF[R2W] = RF[R2W] + 100000B                 FCC0912    39
                                                                                                                 PROSEQ   1635
          1012  20744                    ISI1     LX7    IH.RFP      IHINFO(STT)                                 PROSEQ   1636
                     76640                        SX6    B4          RI                                          PROSEQ   1637
                          5021777775              SA2    A1-2        R1 WORD                                     FCC1677X    5
          1013  20236                             LX2    -R1.INP                                                 FCC1677X    6
                     73320                        SX3    X2                                                      FCC1677X    7
                          20336                   LX3    R1.INP                                                  FCC1677X    8
                               12636              BX6    X3+X6       TRANSFER UDT ORDINAL TO STT                 FCC1677X    9
          1014  76310                             SX3    B1                                                      FCC0912    40
                     20325                        LX3    D.FPP                                                   FCC0912    41
                          11231                   BX2    X3*X1       FP = FP[DESCR]                              FCC0912    42
          1015  0100001203 +                      RJ     SRI                                                     PROSEQ   1640
          1016  0400001006 +                      EQ     ISI                                                     PROSEQ   1641
  
  
  
  
                                        **        IAL - ISSUE ADDRESS LOAD.                                      PROSEQ   1643
                                                                                                                 PROSEQ   1644
          1017  6150000050               IAL0     SB5    OC.LD                                                   CCG5      932
                          0100001203 +            RJ     SRI                                                     CCG5      933
                                                                                                                 PROSEQ   1646
          1020  0200401020 +             IAL      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1647
          1021  76640                             SX6    B4          RI                                          PROSEQ   1648
                     6150000050                   SB5    OC.LD                                                   PROSEQ   1649
                               76710              SX7    B1                                                      FCC0645    37
          1022  20737                             LX7    R1.INP+1    IN[R1W] = 2   */ UDI = 1 ( LOAD ONLY )      FCC0645    38
                     12667                        BX6    X6+X7                                                   FCC0645    39
                          20705                   LX7    IH.RFP-R1.INP-1   RF[R2W] = 1  */ A0                    FCC0645    40
                               55211              SA2    A1-B1       IHINFO                                      PROSEQ   1653
          1023  73220                             SX2    X2                                                      CCG18     136
                     5130000000 X                 SA3    =XO$SYM                                                 CCG18     137
                               22512              LX5    B1,X2                                                   CCG18     138
          1024  36252                             IX2    X5+X2                                                   CCG18     139
                     36332                        IX3    X3+X2                                                   CCG18     140
                          53331                   SA3    X3+B1                                                   CCG18     141
                               43263              MX2    -WB.FPOL                                                CCG18     142
          1025  20333                             LX3    -WB.FPOP                                                CCG18     143
                     15232                        BX2    -X2*X3                                                  CCG18     144
                          7252777776              SX5    X2-1        CA = FPNO[WORDB(IH)] - 1                    CCG18     145
          1026  20522                             LX5    IH.CAP                                                  PROSEQ   1658
                     12775                        BX7    X7+X5                                                   PROSEQ   1659
                          43200                   MX2    0                                                       PROSEQ   1660
          1027  0315001017 +                      NZ     X5,IAL0     IF CA = 0                                   PROSEQ   1661
                          43202                   MX2    2                                                       PROSEQ   1662
                               20231              LX2    2+D.SZP     INDICATE SIZE = 1                           PROSEQ   1663
          1030  0400001017 +                      EQ     IAL0                                                    PROSEQ   1664
                                                                                                                 PROSEQ   1665
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    40
        ESR - EXPAND SPECIAL REFERENCES                               IRA 
  
                                        **        IRA - ISSUE *IA* OR *IS* FOR RF IF EXISTANT                    FCC0643    52
                                                                                                                 PROSEQ   1668
          1031  0200401031 +             IRA      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1669
          1032  55311                             SA3    A1-B1       IHINFO(REF)                                 PROSEQ   1670
                     43252                        MX2    -IH.RFL                                                 PROSEQ   1671
                          20330                   LX3    -IH.RFP                                                 PROSEQ   1672
                               15432              BX4    -X2*X3      RF(REF)                                     PROSEQ   1673
          1033  0304001031 +                      ZR     X4,IRA      IF RF[REF] = 0                              FCC1918    13
                                                                                                                 FCC1918    14
                          20350                   LX3    IH.RFP+59-IH.SIAP                                       FCC1918    15
          1034  0323001040 +                      PL     X3,IRA0     IF ^SIA[REF]  */ NOT INIT STT THAT IS FP&LC FCC1918    16
                                                                                                                 FCC1918    17
                          6150000060              SB5    OC.SA                 */ OUTPUT *SA* TO REMOVE BIT 59   FCC1918    18
          1035  7134777773                        SX3    B4-4                                                    FCC1918    19
                          20340                   LX3    R1.RJP                                                  FCC1918    20
                               76640              SX6    B4                                                      FCC1918    21
          1036  43200                             MX2    0                                                       FCC1918    22
                     12636                        BX6    X3+X6                                                   FCC1918    23
                          43700                   MX7    0                                                       FCC1918    24
          1037  0100001203 +                      RJ     SRI                                                     FCC1918    25
                                                                                                                 FCC1918    26
          1040  6150000036               IRA0     SB5    OC.IA                                                   FCC1918    27
                          5130000000 X            SA3    O.SEQ                                                   PROSEQ   1676
          1041  36134                             IX1    X3+X4                                                   PROSEQ   1677
                     5231000002                   SA3    X1+2        DI = SEQ(RF) + 2 ;  DIW = [DI]              PROSEQ   1678
                               20335              LX3    59-D.PIP                                                PROSEQ   1679
          1042  43700                             MX7    0                                                       PROSEQ   1680
                     0323001061 +                 PL     X3,IRA3     IF ^PI[DIW]                                 FCC0643    53
                                                                                                                 PROSEQ   1682
                                        *         GENERATE SA IF RF DEFINED BY DEF TO B-REGISTER.                PROSEQ   1683
                                                                                                                 PROSEQ   1684
                               53310              SA3    X1          R1 = SEQ(RF) ;  R1W = [R1]                  PROSEQ   1685
          1043  20347                             LX3    59-R1.SOP-SO.RTP-1                                      PROSEQ   1686
                     0333001054 +                 MI     X3,IRA1     IF RT[SO[R1W]] .EQ. 2  */ DEF TO X-REG      PROSEQ   1687
          1044  6150000060                        SB5    OC.SA                                                   PROSEQ   1688
                          5130000000 X            SA3    =XHO$LCM                                                CCGNC     744
          1045  54110                             SA1    A1                                                      PROSEQ   1690
                     0303001054 +                 ZR     X3,IRA1     IF HO$LCM = 0  */ LCM = D                   CCGNC     745
                               20127              LX1    59-D.L2P                                                PROSEQ   1692
          1046  0321001054 +                      PL     X1,IRA1     IF ^L2[DIREF]                               PROSEQ   1693
                                                                                                                 PROSEQ   1694
                                        *         LCM = I LEVEL 2 REF.  GENERATE INTERVENING SA FOLLOWED BY IA.  PROSEQ   1695
                                                                                                                 PROSEQ   1696
                          73543                   SX5    X4+B3       RJ =  RF + 100000B                          PROSEQ   1697
                               76440              SX4    B4                                                      PROSEQ   1698
          1047  20540                             LX5    R1.RJP                                                  PROSEQ   1699
                     12645                        BX6    X4+X5                                                   PROSEQ   1700
                          76200                   SX2    B0                                                      PROSEQ   1701
          1050  0100001203 +                      RJ     SRI         SRI ( SA, B4, RJ )                          PROSEQ   1702
          1051  6150000036                        SB5    OC.IA                                                   PROSEQ   1703
                          7124777767              SX2    B4-8                                                    PROSEQ   1704
          1052  20220                             LX2    R1.RJP-R1.RKP                                           PROSEQ   1705
                     7154777773                   SX5    B4-4                                                    PROSEQ   1706
          1053  0400001055 +                      EQ     IRA2                                                    PROSEQ   1707
                                                                                                                 PROSEQ   1708
          1054  7124777773               IRA1     SX2    B4-4                                                    PROSEQ   1709
                          20220                   LX2    R1.RJP-R1.RKP                                           PROSEQ   1710
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    41
        ESR - EXPAND SPECIAL REFERENCES                               IRA 
  
                               73543              SX5    X4+B3       RF MOD TO SEQ                               PROSEQ   1711
                                                                                                                 PROSEQ   1712
          1055  12525                    IRA2     BX5    X2+X5                                                   PROSEQ   1713
                     20520                        LX5    R1.RKP                                                  PROSEQ   1714
                          76440                   SX4    B4          RI                                          PROSEQ   1715
                                                  LX4    R1.RIP                                                  PROSEQ   1716
                               12645              BX6    X4+X5       R1 = TYPE1(RI,RI-4,RF)                      PROSEQ   1717
          1056  76200                             SX2    B0                                                      PROSEQ   1718
                     0100001203 +                 RJ     SRI         SRI(  IA/IS RI,RI-4,RF )                    FCC0643    54
          1057  54360                             SA3    A6                                                      FCC1239     5
                     76210                        SX2    B1                                                      FCC1239     6
                          20233                   LX2    D.USIP                                                  FCC1239     7
                               12623              BX6    X2+X3                                                   FCC1239     8
          1060  54630                             SA6    A3          USI[D] = 1                                  FCC1239     9
                     0400001031 +                 EQ     IRA                                                     PROSEQ   1720
                                                                                                                 FCC0643    55
          1061  53310                    IRA3     SA3    X1          R1W = SEQ(RF)                               FCC0643    56
                     10433                        BX4    X3                                                      FCC0643    57
                          21360                   AX3    R1.OCP                                                  FCC0643    58
          1062  7263775763                        SX6    X3-OC.XMTC-2000B                                        FCC0643    59
                          0316001054 +            NZ     X6,IRA1     IF OC[R1W] " OC.XMTC                        FCC0643    60
                                                                                                                 FCC0643    61
                                        *         A(C-I) , GENERATE *IS* AND SET RF.MV BIT IN *RF*               FCC0643    62
                                                                                                                 FCC0643    63
          1063  20434                             LX4    -R1.RJP                                                 FCC0643    64
                     43254                        MX2    -R1.RIL                                                 FCC0643    65
                          6150000037              SB5    OC.IS                                                   FCC0643    66
          1064  15442                             BX4    -X2*X4      RF = RJ[R1W]  */ XMTC PRED                  FCC0643    67
                     5150000576 +                 SA5    R2W                                                     FCC0643    68
                               20244              LX2    IH.RFP                                                  FCC0643    69
          1065  7264200000                        SX6    X4+RF.MV                                                FCC0643    70
                          11525                   BX5    X2*X5                                                   FCC0643    71
                               20644              LX6    IH.RFP                                                  FCC0643    72
          1066  12656                             BX6    X5+X6       RF[R2W] = RF + RF.MV                        FCC0643    73
                     54650                        SA6    A5                                                      FCC0643    74
                          0400001054 +            EQ     IRA1                                                    FCC0643    75
  
  
  
  
                                        **        ISX - ISSUE STT OR XMT.                                        PROSEQ   1722
                                        *         GENERATE CODE FOR SET TO FORMAL PARAMETER ADDRESS FOLLOWING    PROSEQ   1723
                                        *         ADDRESS LOAD.                                                  PROSEQ   1724
                                                                                                                 PROSEQ   1725
          1067  43200                    ISX0     MX2    0                                                       PROSEQ   1726
                     0100001203 +                 RJ     SRI         STORE INSTRUCTION                           PROSEQ   1727
                                                                                                                 PROSEQ   1728
          1070  0200401070 +             ISX      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1729
          1071  55211                             SA2    A1-B1       IHINFO(REF)                                 PROSEQ   1730
                     43152                        MX1    -IH.CAL                                                 PROSEQ   1731
                          20252                   LX2    -IH.CAP                                                 PROSEQ   1732
                               15321              BX3    -X1*X2      CA(REF)                                     PROSEQ   1733
          1072  7124777773                        SX2    B4-4        RP = RI(ADDRESS LOAD)                       PROSEQ   1734
                          76640                   SX6    B4          RI = NRI                                    PROSEQ   1735
          1073  5150000574 +                      SA5    LSF                                                     PROSEQ   1736
                          0315001075 +            NZ     X5,ISX1     IF EXPANDING LD OR ST                       PROSEQ   1737
          1074  55421                             SA4    A2-B1       R1(REF)                                     PROSEQ   1738
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    42
        ESR - EXPAND SPECIAL REFERENCES                               ISX 
  
                     43154                        MX1    -R1.RIL                                                 PROSEQ   1739
                                                  LX4    -R1.RIP                                                 PROSEQ   1740
                          15141                   BX1    -X1*X4      RI(REF)                                     PROSEQ   1741
                               73613              SX6    X1+B3       RI = RI(REF) + 100000B                      PROSEQ   1742
                                                                                                                 PROSEQ   1743
                                         ISX1     LX6    R1.RIP                                                  PROSEQ   1744
          1075  0303001104 +                      ZR     X3,ISX2     IF CA .EQ. 0                                PROSEQ   1745
                          20244                   LX2    IH.RFP      RF = RP                                     PROSEQ   1746
          1076  6150000052                        SB5    OC.STT                                                  PROSEQ   1747
                          20322                   LX3    IH.CAP                                                  PROSEQ   1748
                               12723              BX7    X2+X3                                                   PROSEQ   1749
          1077  0315001067 +                      NZ     X5,ISX0     IF EXPANDING LD OR ST                       PROSEQ   1750
                          54110                   SA1    A1          DI = D(I)                                   PROSEQ   1751
                               20127              LX1    59-D.L2P                                                PROSEQ   1752
          1100  0321001067 +                      PL     X1,ISX0     IF ^L2[DI]                                  PROSEQ   1753
                          76640                   SX6    B4          RI = NRI                                    PROSEQ   1754
                                                  LX6    R1.RIP                                                  PROSEQ   1755
                               43200              MX2    0                                                       PROSEQ   1756
          1101  0100001203 +                      RJ     SRI         STORE INSTRUCTION                           PROSEQ   1757
          1102  0100001140 +                      RJ     IMO         ISSUE MASK-OR BIT 59                        PROSEQ   1758
          1103  0400001070 +                      EQ     ISX                                                     PROSEQ   1759
                                                                                                                 PROSEQ   1760
          1104  0315001070 +             ISX2     NZ     X5,ISX      IF EXPANDING LOAD OR STORE                  PROSEQ   1761
                          0100001106 +            RJ     IXI         ISSUE A *SA/XMT*                            PROSEQ   1762
          1105  0400001070 +                      EQ     ISX                                                     PROSEQ   1763
  
  
  
                                        **        IXI - ISSUE *XMT/SA* INSTRUCTION                               PROSEQ   1765
                                                                                                                 PROSEQ   1766
          1106  0200401106 +             IXI      ROUTINE                                                        PROSEQ   1767
          1107  54110                             SA1    A1                                                      PROSEQ   1768
                     6150000010                   SB5    OC.XMT                                                  PROSEQ   1769
                               20125              LX1    59-D.PRSP                                               PROSEQ   1770
          1110  0321001113 +                      PL     X1,IXI1     IF ^PRS[DI]                                 PROSEQ   1771
                          5031000002              SA3    A1+2        R1RS = DI + 2                               FCC1596X    1
          1111  20347                             LX3    58-R1.SOP-SO.RTP                                        FCC1596X    2
                     0333001113 +                 MI     X3,IXI1     IF SORT [R1RS] = 2  */ RS TO AN X-REG       FCC1596X    3
          1112  6150000060                        SB5    OC.SA                                                   PROSEQ   1772
          1113  20240                    IXI1     LX2    R1.RJP                                                  PROSEQ   1773
                     76700                        SX7    B0                                                      PROSEQ   1774
                          12626                   BX6    X2+X6                                                   PROSEQ   1775
                               43200              MX2    0                                                       PROSEQ   1776
          1114  0100001203 +                      RJ     SRI                                                     PROSEQ   1777
          1115  0400001106 +                      EQ     IXI                                                     PROSEQ   1778
  
  
  
  
                                        **        IPR - ISSUE PARAMETER REFERENCE.                               PROSEQ   1780
                                                                                                                 PROSEQ   1781
          1116  0100001203 +             IPR0     RJ     SRI         STORE INSTRUCTION                           PROSEQ   1782
                                                                                                                 PROSEQ   1783
          1117  0200401117 +             IPR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1784
          1120  5021777775                        SA2    A1-2        R1(REF)                                     PROSEQ   1785
                                                  LX2    -R1.RIP                                                 PROSEQ   1786
                          5130000574 +            SA3    LSF                                                     PROSEQ   1787
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    43
        ESR - EXPAND SPECIAL REFERENCES                               IPR 
  
          1121  6253000055                        SB5    OC.PLD+2+X3 OC.PLD/PST                                  PROSEQ   1788
                          43354                   MX3    -R1.RIL                                                 PROSEQ   1789
                               15423              BX4    -X3*X2      RI(REF)                                     PROSEQ   1790
          1122  73243                             SX2    X4+B3       RI(PLD/PST) = RI(REF) + 100000B             PROSEQ   1791
                                                  LX2    R1.RIP                                                  PROSEQ   1792
                     7144777773                   SX4    B4-4                                                    PROSEQ   1793
                               20440              LX4    R1.RJP                                                  PROSEQ   1794
          1123  12624                             BX6    X2+X4                                                   PROSEQ   1795
                     5150000576 +                 SA5    R2W         IHINFO = R2W                                FCC0643    76
                               76130              SX1    B3          OFFSET FOR MPB                              PROSEQ   1797
          1124  20144                             LX1    IH.RFP                                                  PROSEQ   1798
                     36715                        IX7    X1+X5       IHINFO(PLD/PST)                             PROSEQ   1799
                          43200                   MX2    0                                                       PROSEQ   1800
                               20552              LX5    -IH.CAP                                                 PROSEQ   1801
          1125  73450                             SX4    X5                                                      PROSEQ   1802
                     0314001116 +                 NZ     X4,IPR0     IF CA .NE. 0                                PROSEQ   1803
                               43202              MX2    2                                                       PROSEQ   1804
          1126  20231                             LX2    2+D.SZP     INDICATE TOGGLE SIZE FIELD                  PROSEQ   1805
                     0400001116 +                 EQ     IPR0                                                    PROSEQ   1806
  
  
  
  
                                        **        IDR - ISSUE DIRECT LCM REFERENCE.                              PROSEQ   1808
                                                                                                                 PROSEQ   1809
                                         #DAL     IFNE   .DAL,0      IF LEVEL 2 ALLOWED                          PROSEQ   1810
                                                                                                                 PROSEQ   1811
          1127  0200401127 +             IDR      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1812
          1130  76530                             SX5    B3          100000B FOR MPB                             PROSEQ   1813
                     5120000576 +                 SA2    R2W         IHINFO = R2W                                FCC0643    77
          1131  5140000574 +                      SA4    LSF                                                     PROSEQ   1815
                          6254000066              SB5    OC.DRL+2+X4 OC.DRL/DWL                                  PROSEQ   1816
          1132  20544                             LX5    IH.RFP                                                  PROSEQ   1817
                     36725                        IX7    X2+X5       RF MOD TO SEQ                               PROSEQ   1818
                          43354                   MX3    -R1.RIL                                                 PROSEQ   1819
          1133  5021777775                        SA2    A1-2        R1I = DI - 2                                FCC0643    78
                          7150040000              SX5    IH.LCM                                                  PROSEQ   1821
                                                  LX5    IH.IHP                                                  PROSEQ   1822
          1134  36775                             IX7    X7+X5                                                   PROSEQ   1823
                                                  LX2    -R1.RIP                                                 PROSEQ   1824
                     15423                        BX4    -X3*X2      RI(REF)                                     PROSEQ   1825
                          7154777773              SX5    B4-4        RJ = RI(PRED)                               PROSEQ   1826
          1135  73443                             SX4    X4+B3       RI MOD TO SEQ                               PROSEQ   1827
                                                  LX4    R1.RIP                                                  PROSEQ   1828
                     20540                        LX5    R1.RJP                                                  PROSEQ   1829
                          12645                   BX6    X4+X5                                                   PROSEQ   1830
          1136  5120001221 +                      SA2    LEV0                                                    CCG35      67
                          0100001203 +            RJ     SRI                                                     PROSEQ   1832
          1137  0400001127 +                      EQ     IDR                                                     PROSEQ   1833
                                                                                                                 PROSEQ   1834
                                         #DAL     ENDIF                                                          PROSEQ   1835
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    44
        ESR - EXPAND SPECIAL REFERENCES                               IMO 
  
                                        **        IMO - ISSUE MASK-OR BIT 59.                                    PROSEQ   1837
                                        *         IMO GENERATES THE CODE NECESSARY TO INSURE THAT BIT 59 IS      PROSEQ   1838
                                        *         SET FOR LCM APLIST ENTRIES AND LOCF/S.  THIS CODE IS NEVER     PROSEQ   1839
                                        *         REQUIRED IN LCM=I MODE SINCE 60-BIT ARITHMETIC ALWAYS          PROSEQ   1840
                                        *         PRESERVES BIT 59.  WE ALSO DO NOT NEED THIS CODE IN DIRECT     PROSEQ   1841
                                        *         MODE IF NO SET HAS BEEN PERFORMED ON THE ADDRESS QUANTITY,     PROSEQ   1842
                                        *         FOR EXAMPLE LOCF(FP).                                          PROSEQ   1843
                                                                                                                 PROSEQ   1844
          1140  0200401140 +             IMO      ROUTINE                                                        PROSEQ   1845
          1141  6150000043                        SB5    OC.FMA                                                  PROSEQ   1846
                          76510                   SX5    B1                                                      PROSEQ   1847
                               20536              LX5    R1.INP                                                  PROSEQ   1848
          1142  76440                             SX4    B4          RI = NRI                                    PROSEQ   1849
                                                  LX4    R1.RIP                                                  PROSEQ   1850
                     12645                        BX6    X4+X5                                                   PROSEQ   1851
                          43700                   MX7    0                                                       PROSEQ   1852
                               76200              SX2    B0                                                      PROSEQ   1853
          1143  0100001203 +                      RJ     SRI         STORE FMA(NRI,1)                            PROSEQ   1854
                                                                                                                 PROSEQ   1855
          1144  5041777775                        SA4    A1-2        R = R1(I)                                   PROSEQ   1856
                          43154                   MX1    -R1.RIL                                                 PROSEQ   1857
                                                  LX4    -R1.RIP                                                 PROSEQ   1858
          1145  6150000012                        SB5    OC.OR                                                   PROSEQ   1859
                          15541                   BX5    -X1*X4      RIR = R1F(R)                                PROSEQ   1860
                               73653              SX6    X5+B3       R1N = RIR + 100000B                         PROSEQ   1861
                                                  LX6    R1.RIP                                                  PROSEQ   1862
          1146  7134777773                        SX3    B4-4        RJ = NRI - 4                                PROSEQ   1863
                          7243777773              SX4    X3-4        RK = NRI - 8                                PROSEQ   1864
          1147  20340                             LX3    R1.RJP                                                  PROSEQ   1865
                     12663                        BX6    X6+X3                                                   PROSEQ   1866
                          20420                   LX4    R1.RKP                                                  PROSEQ   1867
                               12664              BX6    X6+X4                                                   PROSEQ   1868
          1150  43700                             MX7    0                                                       PROSEQ   1869
                     76200                        SX2    B0                                                      PROSEQ   1870
                          0100001203 +            RJ     SRI         STORE OR(RIN,NRI-4,NRI-8)                   PROSEQ   1871
          1151  0400001140 +                      EQ     IMO                                                     PROSEQ   1872
  
  
  
  
                                        **        ILC - ISSUE A LOAD OF A CONSTANT                               CCGA044    41
                                        *         ENTRY  X3 = VALUE OF CONSTANT TO BE LOADED                     CCGA044    42
                                        *                B4 = CURRENT R NUMBER                                   CCGA044    43
                                        *                                                                        CCGA044    44
                                        *         EXIT   A0,A1,B1,B2,B3,X0,X4 PRESERVED.                         CCGA044    45
                                        *                B4 AS LAST UPDATED BY SRI.                              CCGA044    46
                                        *                EXPANSION FILED IN MOD, WITH A7 UPDATED                 CCGA044    47
                                        *                                                                        CCGA044    48
                                                                                                                 CCGA044    49
          1152  0200401152 +             ILC      ROUTINE            ** ENTRY/EXIT **                            CCGA044    50
          1153  5120000000 X                      SA2    O.MOD                                                   CCG0088    14
                          74100                   SX1    A0                                                      CCGA044    52
                               74510              SX5    A1                                                      CCGA044    53
          1154  37112                             IX1    X1-X2                                                   CCG0088    15
                     20122                        LX1    18                                                      CCGA044    55
                          74770                   SX7    A7                                                      CCG0088    16
                               37672              IX6    X7-X2                                                   CCG0088    17
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    45
        ESR - EXPAND SPECIAL REFERENCES                               ILC 
  
          1155  5160001176 +                      SA6    SAVREG      SAVE MOD OFFSET                             CCG0088    18
                          12715                   BX7    X1+X5                                                   CCGA044    57
                               74270              SX2    A7                                                      CCGA044    58
          1156  20722                             LX7    18                                                      CCGA044    59
                     12627                        BX6    X2+X7                                                   CCGA044    60
                          43152                   MX1    -18                                                     CCGA044    61
                               54661              SA6    A6+B1       SAVE A0,A1,A7                               CCGA044    62
          1157  76220                             SX2    B2                                                      CCGA044    63
                     76530                        SX5    B3                                                      CCGA044    64
                          15721                   BX7    -X1*X2                                                  CCGA044    65
                               76640              SX6    B4                                                      CCGA044    66
          1160  20722                             LX7    18                                                      CCGA044    67
                     15251                        BX2    -X1*X5                                                  CCGA044    68
                          12727                   BX7    X2+X7                                                   CCGA044    69
                               15661              BX6    -X1*X6                                                  CCGA044    70
          1161  20722                             LX7    18                                                      CCGA044    71
                     11717                        BX7    X1*X7                                                   CCGA044    72
                          12767                   BX7    X6+X7                                                   CCGA044    73
                               54761              SA7    A6+B1       SAVE B2,B3,B4                               CCGA044    74
          1162  10600                             BX6    X0                                                      CCGA044    75
                     10744                        BX7    X4                                                      CCGA044    76
                          54671                   SA6    A7+B1       SAVE X0                                     CCGA044    77
                               54761              SA7    A6+B1       SAVE X4                                     CCGA044    78
                                                                                                                 CCGA044    79
                                        *         ALL NECESSARY REGISTERS HAVE BEEN SAVED.                       CCGA044    80
                                        *         NOW RESERVE A SPOT IN THE CONSTANT VALUE TABLE (CVL)           CCGA044    81
                                        *         FOR THE CA VALUE AND EMIT A LDC OF THE CONSTANT.               CCGA044    82
                                                                                                                 CCGA044    83
          1163  10133                             BX1    X3                                                      CCGA044    84
                     0100000000 X                 CALL   CG$SCT                                                  CCGA044    85
                                                                                                                 CCGA044    86
                                        *         MUST RESTORE B4 AND A7 BEFORE SRI CAN BE CALLED.               CCGA044    87
                                                                                                                 CCGA044    88
          1164  5110001176 +                      SA1    SAVREG                                                  CCGA044    89
                          54411                   SA4    A1+B1                                                   CCGA044    90
                               54541              SA5    A4+B1                                                   CCGA044    91
          1165  5120000000 X                      SA2    O.MOD                                                   CCG0088    19
                          36112                   IX1    X1+X2                                                   CCG0088    20
                               20244              LX2    36                                                      CCG0088    21
          1166  36424                             IX4    X2+X4       RELOCATE SAVED A0                           CCG0088    22
                     43700                        MX7    0                                                       CCG0088    23
                          53710                   SA7    X1          RESTORE X7                                  CCG0088    24
                               63450              SB4    X5          RESTORE B4                                  CCG0088    25
                                                                                                                 CCGA044    95
                                        *         ISSUE LDC OF ORDINAL RETURNED FROM CG$SCT                      CCGA044    96
                                                                                                                 CCGA044    97
          1167  5120000000 X                      SA2    =XS=CON     IH = CON.                                   CCGA044    98
                          6150000103              SB5    OC.LDC                                                  CCGA044    99
          1170  20622                             LX6    IH.CAP      CA = CON. ORDINAL                           CCGA044   100
                     12726                        BX7    X2+X6                                                   CCGA044   101
                          43200                   MX2    0                                                       CCGA044   102
                               76640              SX6    B4                                                      CCGA044   103
          1171  0100001203 +                      RJ     SRI                                                     CCGA044   104
                                                                                                                 CCGA044   105
                                        *         RESTORE THE REST OF THE REGISTERS                              CCGA044   106
                                                                                                                 CCGA044   107
          1172  54251                             SA2    A5+B1                                                   CCGA044   108
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    46
        ESR - EXPAND SPECIAL REFERENCES                               ILC 
  
                     21422                        AX4    18                                                      CCGA044   109
                          10022                   BX0    X2                                                      CCGA044   110
                               21522              AX5    18                                                      CCGA044   111
          1173  53140                             SA1    X4                                                      CCGA044   112
                     63350                        SB3    X5                                                      CCGA044   113
                          21422                   AX4    18                                                      CCGA044   114
                               53040              SA0    X4                                                      CCGA044   115
          1174  21522                             AX5    18                                                      CCGA044   116
                     63250                        SB2    X5                                                      CCGA044   117
                          54421                   SA4    A2+B1                                                   CCGA044   118
          1175  0400001152 +                      EQ     ILC                                                     CCGA044   119
                                                                                                                 CCGA044   120
                                                                                                                 CCGA044   121
          1176                     5     SAVREG   BSS    5                                                       CCGA044   122
                                                                                                                 CCGA044   123
  
  
  
  
                                        **        SRI - STORE R-LIST INSTRUCTION.                                PROSEQ   1874
                                        *         ENTRY  B5 = OP-CODE                                            PROSEQ   1875
                                        *                X6 = RLIST1 WORD                                        PROSEQ   1876
                                        *                X7 = RLIST2 WORD                                        PROSEQ   1877
                                        *                X2 = 0 OR 3S D.SZP IF SIZE FIELD IS TO BE RESET         PROSEQ   1878
                                                                                                                 PROSEQ   1879
          1203  0200401203 +             SRI      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1880
          1204  27656                             PX6    B5,X6                                                   PROSEQ   1881
                     6144000004                   SB4    B4+4        RI = RI + 4                                 PROSEQ   1882
                               54671              SA6    A7+B1                                                   PROSEQ   1883
          1205  54761                             SA7    A6+B1                                                   PROSEQ   1884
                     5135000000 X                 SA3    =XF.RDT+B5                                              PROSEQ   1885
                               13623              BX6    X2-X3       TOGGLE SIZE FIELD IF REQUESTED              PROSEQ   1886
          1206  54671                             SA6    A7+B1                                                   PROSEQ   1887
                     43700                        MX7    0                                                       PROSEQ   1888
                          54761                   SA7    A6+B1                                                   PROSEQ   1889
          1207  0400001203 +                      EQ     SRI                                                     PROSEQ   1890
  
  
  
  
                                        **        TRE - TERMINATE REF EXPANSION.                                 PROSEQ   1892
                                                                                                                 PROSEQ   1893
          1210  0200401210 +             TRE      ROUTINE            **ENTRY/EXIT**                              PROSEQ   1894
          1211  64700                             SB7    A0          IMA                                         PROSEQ   1895
                     75477                        SX4    A7-B7                                                   PROSEQ   1896
                          0304001210 +            ZR     X4,TRE      IF NO EXPANSION                             PROSEQ   1897
                                                                                                                 PROSEQ   1898
          1212  5130000000 X                      SA3    O.SEQ                                                   PROSEQ   1899
                          6263000002              SB6    X3+2                                                    PROSEQ   1900
          1213  75516                             SX5    A1-B6       R1 INDEX IN TXT                             PROSEQ   1901
                                  20              ERRMI  ML.NIP-2                                                PROSEQ   1902
                     20420                        LX4    ML.NIP-2    NI = N.WORDS EXPANSION/4                    PROSEQ   1903
                          20544                   LX5    ML.IIP                                                  PROSEQ   1904
          1214  5130000000 X                      SA3    O.MOD                                                   PROSEQ   1905
                          12145                   BX1    X4+X5                                                   PROSEQ   1906
          1215  6263777776                        SB6    X3-1                                                    PROSEQ   1907
                          77676                   SX6    B7-B6       INDEX IN MOD                                PROSEQ   1908
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    47
        ESR - EXPAND SPECIAL REFERENCES                               TRE 
  
                                                  LX6    ML.MTIP                                                 PROSEQ   1909
                               43701              MX7    1                                                       PROSEQ   1910
                                                  LX7    1+ML.DELP                                               PROSEQ   1911
          1216  12316                             BX3    X1+X6                                                   PROSEQ   1912
                     5140000000 X                 SA4    L.MLT                                                   PROSEQ   1913
                               12673              BX6    X7+X3                                                   PROSEQ   1914
          1217  5130000000 X                      SA3    O.MLT                                                   PROSEQ   1915
                          36534                   IX5    X3+X4                                                   PROSEQ   1916
                               53650              SA6    X5          MLT=                                        PROSEQ   1917
          1220  73641                             SX6    X4+B1                                                   PROSEQ   1918
                     54640                        SA6    A4          L.MLT = L.MLT + 1                           PROSEQ   1919
                          0400001210 +            EQ     TRE                                                     PROSEQ   1920
                                                                                                                 CCG13      87
                                         .AET     ELSE                                                           CCG13      88
                                                                                                                 CCG13      89
                                         ESRA     ENTRY. ,#                                                      CCG13      90
                                         ESR      ENTRY. **,#                                                    CCG13      91
                                                  EQ     *+1S17                                                  CCG13      92
                                                                                                                 CCG5      944
                                         .AET     ENDIF                                                          CCG5      945
                                                                                                                 PROSEQ   2630
          1222                                    END                                                            PROSEQ   2631
  
                             56300B CM  STORAGE USED             3598 STATEMENTS     1109 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.799 SECONDS        1093 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AIS#          145   PROGRAM*       30/50 E   30/50 D
        ATS$            0   EXTERNAL*       2/46     10/35     10/41     10/54     32/04
                                            5/16     10/39     10/50     31/56
        BR$AFT          0   EXTERNAL*       3/15
        B1=1            0 
        CB.TAGL        22   GTX            36/35
        CB.TAGP        30   GTX            36/36
        CB.W            1   GTX            36/34
        CC$BRN          0   PROGRAM*        2/05 E    2/06 L    4/43 S
        CC$LNL          2   PROGRAM*        2/08 E    2/08 L    3/37
        CC$OPF          3   PROGRAM*        2/09 E    2/09 L
        CC$OPTL         4   PROGRAM*        2/10 E    2/10 L    3/25      4/20 S
        CC$PIOL         5   PROGRAM*        2/12 E    2/12 L    4/19 S
        CC$SRF          6   PROGRAM*        2/13 E    2/13 L    3/07      3/33     31/19     31/20
        CC$XR           7   PROGRAM*        2/14 E    2/14 L    4/18 S
        CG$CPC         10   PROGRAM*        2/27 E    2/27 L    2/37
        CG$PAS         15   PROGRAM*        2/32      2/43 E    2/43 L    4/45
        CG$SCT          0   EXTERNAL*      45/30
        COL#            0   EXTERNAL*       3/28
        CUC#            0   EXTERNAL*      10/13
        D.BMP          52   GTX            13/39     14/28     14/31
        D.FPL           1   GTX             6/56      7/01      7/02
        D.FPP          25   GTX             6/56      7/02     32/47     35/33     35/56     39/15
                                            7/01     32/40     32/48     35/49     36/09
        D.LDL           1   GTX            32/23
        D.LDP          43   GTX            32/23     32/47
        D.LDSTL         2   GTX            34/08
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        D.LDSTP        42   GTX            34/11
        D.L2L           1   GTX             6/57      7/01      7/02
        D.L2P          44   GTX             6/57      7/02     34/19     35/33     35/56     42/14
                                            7/01     34/05     35/31     35/49     40/39
        D.PIL           1   GTX            15/12
        D.PIP          36   GTX            15/12     16/43     16/49     40/26
        D.PRSL          1   GTX            15/12
        D.PRSP         46   GTX            15/12     42/34
        D.REGWL        11   GTX            10/19     14/37     21/55
        D.REGWP        11   GTX            10/20     14/38     14/44     22/05
        D.RFP          23   GTX            14/28     14/44     14/49     14/54     15/12     15/37
        D.RJRSL         1   GTX            15/12
        D.RJRSP        50   GTX            15/12
        D.STL           1   GTX            32/23
        D.STP          42   GTX            32/23     32/48
        D.SZP          27   GTX            39/51     43/18
        D.TYIOL         2   GTX            16/11
        D.TYIOP        50   GTX            16/10
        D.TYP          72   GTX             6/26     13/39     16/10     17/57     33/46
                                            6/31     16/03     16/43     29/31
        D.USESL        11   GTX            14/50     15/20
        D.USESP         0   GTX            14/49     14/54     15/33
        D.USIP         33   GTX            41/12
        D.XMTP         40   GTX             6/46     15/43
        D.^DP          51   GTX            14/31     15/33     15/37     15/43     16/03     16/49     17/57     29/31
        ESR           605   PROGRAM*        3/42     31/40     31/43 L
        ESRA          567   PROGRAM*       31/17 L   31/44
        ESRA#         567   PROGRAM*       31/17 E   31/17 L
        ESR0          577   PROGRAM*       31/27 L   32/07
        ESR1          601   PROGRAM*       31/32 L   31/47     31/54
        ESR#          605   PROGRAM*       31/43 E   31/43 L
        FSR           573   PROGRAM*       31/22 L   32/27 S   33/11
        FSU#            0   EXTERNAL*       3/24
        F$RDT           0   EXTERNAL*       2/16      8/24
        F.RDT           0   EXTERNAL*       2/16 D    2/47      4/28     31/35     46/31
        GSR           641   PROGRAM*       32/06     33/10 L   33/29
        GSR1          647   PROGRAM*       33/23 L   34/15
        GSR2          650   PROGRAM*       33/25 L   34/23     34/31
        GSR3          652   PROGRAM*       33/21     33/29 L
        GSR3A         665   PROGRAM*       33/43     33/44     33/47     33/54     34/01     34/07 L
        GSR4          674   PROGRAM*       34/20     34/25 L
        HC.ROL          0   GTX             2/01 F    2/56 F    4/34 F
        HC.STP          1   GTX             3/14 F
        HO$CSN          0   EXTERNAL*       4/25
        HO$ER           0   EXTERNAL*       3/22
        HO$LCM          0   EXTERNAL*      35/41     37/40     40/36
        HO$LVL2         0   EXTERNAL*      31/18
        HO$OPT          0   EXTERNAL*       2/28      2/33      3/16
        IAL          1020   PROGRAM*       34/28     35/36     36/11     39/28 L
        IAL0         1017   PROGRAM*       39/25 L   39/49     39/52
        IDR          1127   PROGRAM*       34/22     43/28 L   43/49
        IH.CAL         22   GTX            37/38     41/50
        IH.CAP         22   GTX            36/50     37/44     39/46     41/51     42/10     43/14     45/49
        IH.LCM      40000   GTX            43/37
        IH.RFL         22   GTX            36/48     38/56     40/05
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        IH.RFP         44   GTX            18/09     27/07     36/50     39/07     40/10     42/08
                                           18/12     29/48     37/43     39/34     41/30     43/11
                                           27/03     36/47     38/57     40/06     41/33     43/33
        IH.SIAP        67   GTX            40/10
        ILC          1152   PROGRAM*       37/35     38/14     44/50 L   46/11
        IMO          1140   PROGRAM*       36/02     42/20     44/09 L   44/36
        IPR          1117   PROGRAM*       34/30     42/54 L
        IPR0         1116   PROGRAM*       42/52 L   43/16     43/19
        IRA          1031   PROGRAM*       34/29     35/37     40/03 L   40/08     41/15
        IRA0         1040   PROGRAM*       40/11     40/22 L
        IRA1         1054   PROGRAM*       40/34     40/38     40/40     40/56 L   41/21     41/36
        IRA2         1055   PROGRAM*       40/54     41/03 L
        IRA3         1061   PROGRAM*       40/28     41/17 L
        ISC           701   PROGRAM*       33/23     35/29 L   35/39     36/03     37/08
                                           34/21     35/34     35/52     36/57
        ISC0          700   PROGRAM*       35/26 L   38/44
        ISC1          716   PROGRAM*       35/48     35/56 L
        ISC10         776   PROGRAM*       37/26     37/46     38/23 L
        ISC11        1000   PROGRAM*       37/18     37/20     38/09     38/16     38/27 L
        ISC12        1004   PROGRAM*       38/33     38/40 L
        ISC2          704   PROGRAM*       35/36 L   35/50     35/57
        ISC3          710   PROGRAM*       35/32     35/41 L
        ISC5          722   PROGRAM*       35/42     35/44     36/09 L
        ISC6          725   PROGRAM*       36/10     36/18 L
        ISC7          736   PROGRAM*       36/13     36/46 L
        ISC8          745   PROGRAM*       36/54     36/55     37/10 L
        ISC8A         753   PROGRAM*       37/14     37/32 L
        ISC8B         756   PROGRAM*       37/34     37/38 L
        ISC8C         762   PROGRAM*       37/41     37/48 L
        ISC8D         764   PROGRAM*       37/36     37/55 L
        ISC9          771   PROGRAM*       37/11     38/11 L
        ISC9A         774   PROGRAM*       38/13     38/18 L
        ISI          1006   PROGRAM*       35/51     36/01     38/53 L   39/18
        ISI1         1012   PROGRAM*       39/03     39/07 L
        ISX          1070   PROGRAM*       35/38     41/48 L   42/21     42/23     42/25
        ISX0         1067   PROGRAM*       41/45 L   42/12     42/15
        ISX1         1075   PROGRAM*       41/56     42/06 L
        ISX2         1104   PROGRAM*       42/07     42/23 L
        IT.             0   EXTERNAL*       2/16 D
        IXI          1106   PROGRAM*       37/07     42/24     42/31 L   42/45
        IXI1         1113   PROGRAM*       42/35     42/38     42/40 L
        I.GL       100000   GTX             6/09     33/41
        LEV0         1221   PROGRAM*       34/07 S   35/43     43/47
        LM              0   EXTERNAL*       2/17 D    4/14      5/15      5/32
        LM#             0   EXTERNAL*       2/17
        LSF           574   PROGRAM*       31/23 L   34/14 S   35/47     36/56     38/31     41/55     42/57     43/31
        L$BCT           0   EXTERNAL*       8/24
        L$BLK           0   EXTERNAL*       2/16
        L$DUT           0   EXTERNAL*       8/24
        L$MLT           0   EXTERNAL*       2/16
        L$MOD           0   EXTERNAL*       2/16
        L$PBT           0   EXTERNAL*       8/24
        L$PIT           0   EXTERNAL*       2/16
        L$RCT           0   EXTERNAL*       2/16
        L$RND           0   EXTERNAL*       2/16
        L$SEQ           0   EXTERNAL*       2/16
        L$TXT           0   EXTERNAL*       2/16
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        L.BLK           0   EXTERNAL*       2/16 D    4/03 S    4/17 S    5/12      5/27 S    5/37 S
        L.MLT           0   EXTERNAL*       2/16 D   11/02 S   26/48     30/03     47/05
                                            3/43     26/15     28/43     33/18 S
        L.MOD           0   EXTERNAL*       2/16 D   11/01 S   26/22     27/54 S   29/30     31/30 S
        L.PIT           0   EXTERNAL*       2/16 D
        L.RCT           0   EXTERNAL*       2/16 D
        L.RND           0   EXTERNAL*       2/16 D    2/45 S
        L.SEQ           0   EXTERNAL*       2/16 D    3/50      3/56 S    5/22 S    5/35 S   10/43
        L.TXT           0   EXTERNAL*       2/16 D    3/17      3/54 S    4/24 S    5/30
        MCG#            0   EXTERNAL*       4/04
        ML.DELP        73   GTX            30/09
        ML.IIP         44   GTX            26/25     26/27     27/25     29/01     29/08     30/14     46/53
        ML.MTIP         0   GTX            26/27     29/08
        ML.NIP         22   GTX            27/23     30/09     46/51     46/52
        MPB#            0   EXTERNAL*       3/46     10/10     31/41
        MSR           626   PROGRAM*       31/53     32/29 L
        MSRA          621   PROGRAM*       32/18 L   32/30
        MSR0          625   PROGRAM*       32/26 L   32/42
        MSR1          633   PROGRAM*       32/42 L   32/53     33/01
        MVE=            0   EXTERNAL*       5/44
        OC.DEF          5   GTX            37/17
        OC.DRL         64   GTX            43/32
        OC.EOQ          0   GTX             2/47      2/48
        OC.EOS          2   GTX            13/46
        OC.FMA         43   GTX            44/10
        OC.IA          36   GTX            37/56     38/43     40/22     40/50
        OC.IS          37   GTX            41/27
        OC.JIN         71   GTX            13/52
        OC.LD          50   GTX            36/39     39/25     39/30
        OC.LDC        103   GTX            45/48
        OC.OR          12   GTX            44/23
        OC.PLD         53   GTX            16/12     43/01
        OC.RS           4   GTX            27/49
        OC.S           55   GTX            37/48     38/21
        OC.SA          60   GTX            27/34     37/25     40/13     40/35     42/39
        OC.STT         52   GTX             6/41     37/42     38/55     42/09
        OC.XMT         10   GTX            42/33
        OC.XMTC        14   GTX            41/20
        O$BCT           0   EXTERNAL*       8/24
        O$BLK           0   EXTERNAL*       2/16
        O$CBT           0   EXTERNAL*      36/32
        O$DUT           0   EXTERNAL*       8/24
        O$MLT           0   EXTERNAL*       2/16
        O$MOD           0   EXTERNAL*       2/16
        O$PBT           0   EXTERNAL*       8/24
        O$PIT           0   EXTERNAL*       2/16
        O$RCT           0   EXTERNAL*       2/16
        O$RND           0   EXTERNAL*       2/16
        O$SEQ           0   EXTERNAL*       2/16
        O$SYM           0   EXTERNAL*       2/16      8/24     36/20     39/37
        O$TXT           0   EXTERNAL*       2/16
        O.BLK           0   EXTERNAL*       2/16 D    4/21 S    5/38 S
        O.MLT           0   EXTERNAL*       2/16 D   26/14     28/42     30/07     47/07
        O.MOD           0   EXTERNAL*       2/16 D   26/16     29/07     31/27     33/17     44/51     45/37     46/54
        O.PIT           0   EXTERNAL*       2/16 D
        O.RCT           0   EXTERNAL*       2/16 D
        O.RND           0   EXTERNAL*       2/16 D
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        O.SEQ           0   EXTERNAL*       2/16 D    5/18 S   10/17     13/14     14/19     31/49     33/26     46/48
                                            3/49      5/36 S   11/03     13/19     31/32     33/12     40/23
        O.SYM           0   EXTERNAL*       2/16 D    6/05     33/48
        O.TXT           0   EXTERNAL*       2/16 D    3/52 S    4/22 S    5/31      6/06
        PAS0           34   PROGRAM*        3/23      3/25 L
        PAS1A          37   PROGRAM*        3/26      3/31 L
        PAS2           43   PROGRAM*        3/39      3/41 L
        PAS3           47   PROGRAM*        3/44      3/49 L
        PAS4           53   PROGRAM*        3/34      3/47      4/02 L
        PAS5           57   PROGRAM*        3/18      4/08 L
        PAS6           60   PROGRAM*        3/21      3/29      4/06      4/14 L
        PBB#            0   EXTERNAL*       4/08
        PSB           113   PROGRAM*        3/10      6/04 L    6/19
        PSB#          113   PROGRAM*        6/04 E    6/04 L
        RF.MV      200000   GTX            41/31
        RN.MASK    600001   GTX             8/31
        RT.BR           0   GTX            17/13
        R1.INP         36   GTX             4/26     37/50     39/10     39/32     44/12
                                           36/41     38/18     39/12     39/34
        R1.OCP         60   GTX             2/49     41/19
        R1.RIL         20   GTX            15/50     16/35     16/56     26/31     28/46     38/35     42/01     43/35
                                           16/14     16/37     17/25     26/51     37/01     41/26     43/02     44/21
        R1.RIP          0   GTX            17/24     17/31
        R1.RJP         40   GTX            27/09     37/22     38/28     40/15     40/52     41/25     43/07     44/29
                                           27/37     38/01     38/30     40/46     40/57     42/40     43/45
        R1.RKP         20   GTX            27/07     27/09     38/02     38/28     40/52     40/57     41/04     44/31
        R1.SOP         20   GTX            16/51     17/11     17/24     17/31     27/46     37/19     40/33     42/37
        R2W           576   PROGRAM*       31/25 L   33/35 S   41/29     43/09     43/30
        SAVREG       1176   PROGRAM*       45/01 S   45/34     46/14 L
        SBB#            0   EXTERNAL*       3/13
        SO.LKP          6   GTX            16/51     17/31
        SO.LOCK       200   GTX             8/27
        SO.RNP          0   GTX            17/15     17/24
        SO.RTL          3   GTX            17/10
        SO.RTP          3   GTX            17/11     17/15     37/19     40/33     42/37
        SQF           575   PROGRAM*       31/24 L   31/36     31/45 S
        SRI          1203   PROGRAM*       35/27     38/07     39/26     41/09     42/44     44/18     46/26 L
                                           36/44     38/24     40/20     41/46     42/52     44/35     46/36
                                           37/53     39/17     40/49     42/19     43/48     45/53
        SSP            72   PROGRAM*        3/36      5/11 L    5/28      5/45
        SSP1          103   PROGRAM*        5/13      5/30 L
        SSP#           72   PROGRAM*        5/11 E    5/11 L
        S$IT            0   EXTERNAL*       2/16      8/24
        S=CON           0   EXTERNAL*      45/47
        TEST            0   GTX            12/03 F
        TRE          1210   PROGRAM*       33/25     46/43 L   46/46     47/12
        TSBA          134   PROGRAM*        6/10      6/53 L   31/48
        TSB1          121   PROGRAM*        6/17 L    6/23      6/24      6/27      6/33      6/51
        TSB2          133   PROGRAM*        6/40      6/42      6/49 L
        TYIOM           0   EXTERNAL*       2/17 D   16/15
        TYIOM#          0   EXTERNAL*       2/17
        WB.AETL         2   GTX             3/06 F    3/32 F    5/01 F   31/01 F
        WB.FPOL        11   GTX            39/42
        WB.FPOP        41   GTX            39/43
        WB.FPP         20   GTX             6/34      6/37
        WB.LABP         3   GTX             6/13     33/53     33/55
        WB.LCMP        21   GTX             6/43     34/02
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        WB.LEVNL        2   GTX             6/38     33/56
        WB.LEVNP       55   GTX             6/37      6/43     33/55     34/02
        WC.RAL         30   GTX            36/29
        WC.RAP          0   GTX            36/30
        WC.RBL         12   GTX            36/26
        WC.RBP         60   GTX            36/27     36/30
        WII#            0   EXTERNAL*       4/05
        Z$BCT           0   EXTERNAL*      10/35
        Z$DUT           0   EXTERNAL*      10/50
        Z$MLT           0   EXTERNAL*      10/39     31/56
        Z$MOD           0   EXTERNAL*      10/41     32/04
        Z$PBT           0   EXTERNAL*      10/54
        Z$TXT           0   EXTERNAL*       2/46      5/16
        .CPU          111   GTX             8/18 F
        .DAL            1   GTX            34/17 F   35/46 F   43/26 F
        .P             43                   6/56 D    6/57 D    7/01 D    7/01 D    7/02 D    7/02 D   32/23 D   32/23 D
                                            6/56      6/57      7/01      7/01      7/02      7/02     32/23     32/23
        .Z              0                   6/56 D    6/57 D    7/01 D    7/02 D   32/23 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  AIS 
  
  
        ABR           413   PROGRAM*       12/24     23/08 L   23/17
        ABR1          420   PROGRAM*       23/16 L   23/30     23/37     23/43     24/13     25/10
        ABR1A         423   PROGRAM*       23/30 L   23/34
        ABR2          431   PROGRAM*       23/52 L   23/56     23/57     24/05
        ABR3          436   PROGRAM*       23/53     24/10 L
        ABR4          437   PROGRAM*       24/12 L   24/16     24/20     24/46
        ABR5          443   PROGRAM*       24/23 L   24/31
        ABR6          446   PROGRAM*       24/28     24/40 L
        ABR7          450   PROGRAM*       24/04     24/35     24/51 L
        ABR8          455   PROGRAM*       25/09 L   25/13     25/16     25/20
        AIS           145   PROGRAM*       10/16 L   30/50
        AIS0          141   PROGRAM*       10/03 L   10/25     10/31     11/23
        AIS1          173   PROGRAM*       11/15 L   11/29     11/32     11/35     12/19     12/27
        AIS2          175   PROGRAM*       11/11     11/22 L
        AIS3          205   PROGRAM*       11/46 L   11/50
        AIS4          207   PROGRAM*       11/52 L
        BC.LXUL        22                   8/50 D
        BC.LXUP        22                   8/50 D   21/57     24/41     25/04     25/11     25/14
        BC.MRWL        22                   8/49 D
        BC.MRWP        44                   8/49 D   21/27     23/35     23/44     25/14     25/18
        BC.RIL         22                   8/51 D
        BC.RIP          0                   8/51 D   23/44
        BDU           261   PROGRAM*       12/01     15/14 L   15/22
        BDUA          260   PROGRAM*       15/12 L   15/39
        BDU1          264   PROGRAM*       15/19 L   16/44     17/17     17/56     18/21
                                           16/36     17/14     17/52     18/11
        BDU2          277   PROGRAM*       15/34     15/38     15/41     15/44     16/03 L
        BDU3          304   PROGRAM*       16/21 L   16/39
        BDU3A         307   PROGRAM*       16/24     16/30 L
        BDU4          310   PROGRAM*       16/21     16/23     16/25     16/26     16/35 L
        BDU5          313   PROGRAM*       16/06     16/43 L
        BDU5A         320   PROGRAM*       16/50     16/52     17/10 L
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    53
        SYMBOLIC REFERENCE TABLE.                                     AIS 
  
        BDU6          334   PROGRAM*       16/05     17/56 L
        BDU7          340   PROGRAM*       18/02     18/04     18/08 L
        BM.MRWL        22                   8/41 D
        BM.MRWP        44                   8/41 D   11/33     14/07
        BM.NRFL        22                   8/42 D
        BM.NRFP        22                   8/42 D   11/30     11/33     14/15
        BM.PL          22                   8/43 D
        BM.PP           0                   8/43 D
        CAT            10   CCGSCR          9/41 L   23/09 S   24/01     24/17     24/53 S
        CA.LXUL        22                   9/19 D
        CA.LXUP        22                   9/19 D   24/02     24/18
        CA.RIL         22                   9/20 D
        CA.RIP          0                   9/20 D
        DP.IIL         22                   9/26 D
        DP.IIP         22                   9/26 D   15/24     18/51     21/37     23/27     28/26
        DP.NIL         22                   9/27 D
        DP.NIP          0                   9/27 D   18/51     21/37     23/27     28/26
        DU.DEFL        22                   9/11 D
        DU.DEFP        22                   9/11 D   18/42
        DU.SCL         13                   9/09 D
        DU.SCP         60                   9/09 D
        DU.SUP         73                   9/08 D
        DU.USEL        22                   9/12 D
        DU.USEP         0                   9/12 D
        EDU           345   PROGRAM*       16/22     17/03     18/06     18/13     18/36 L   18/54     19/09     19/14
        FLF             0   CCGSCR          9/39 L   11/10 S   11/40     17/48
        F.RDT           0   EXTERNAL*       8/24 D   30/38
        ISA           461   PROGRAM*       24/54     26/13 L   27/55
        ISA1          466   PROGRAM*       26/24 L   26/30
        ISA2          475   PROGRAM*       26/24     26/48 L
        ISA3          503   PROGRAM*       27/06     27/12 L
        ISA4          505   PROGRAM*       26/46     27/20 L
        IT.             0   EXTERNAL*       8/24 D
        IUM           522   PROGRAM*       24/55     28/17 L
        IUMA          520   PROGRAM*       28/11 L   29/26
        IUMB           22   CCGSCR          9/45 L   28/13     28/25 S
        IUM0          521   PROGRAM*       28/13 L   28/33
        IUM1          526   PROGRAM*       28/32 L   28/36     29/19     30/19
        IUM2          534   PROGRAM*       28/56 L   29/03
        IUM3          542   PROGRAM*       28/57     29/23 L
        IUM4          544   PROGRAM*       29/25     29/30 L
        IUM5          547   PROGRAM*       29/33     29/37 L
        IUP           356   PROGRAM*       12/21     20/07 L   20/22
        IUP1          362   PROGRAM*       20/16 L   20/34     20/45
        IUP2          363   PROGRAM*       20/14     20/21 L   20/28
        IXU           371   PROGRAM*       12/15     21/09 L   21/32
        IXU1          376   PROGRAM*       21/21 L   22/03
        IXU2          377   PROGRAM*       21/22     21/25 L
        IXU3          400   PROGRAM*       21/19     21/31 L
        IXU4          402   PROGRAM*       21/41 L   21/53
        IXU5          405   PROGRAM*       21/50     21/53 L
        IXU6          407   PROGRAM*       22/03 L   22/09     22/11
        LBM           221   PROGRAM*       10/26     13/18 L
        LBMA           21   CCGSCR          9/44 L   13/13     13/27 S
        LBM0          217   PROGRAM*       13/13 L   14/25
        LBM1          230   PROGRAM*       13/39 L   14/30     14/33
        LBM1A         235   PROGRAM*       13/47     13/51 L
1       PROSEQ - PROCESS ACCUMULATED SEQUENCES                        COMPASS 3.7-871.     24/05/02. 13.12.57.      PAGE    54
        SYMBOLIC REFERENCE TABLE.                                     AIS 
  
        LBM2          237   PROGRAM*       13/51     13/55 L
        LBM3          242   PROGRAM*       14/04     14/07 L
        LBM4          247   PROGRAM*       14/28 L   14/45     14/55
        LBM5          252   PROGRAM*       13/34     13/43     13/49     13/53     14/26     14/32     14/35 L
        LBM6          255   PROGRAM*       14/41     14/44 L
        LU.INF     377777                   8/29 D   17/33
        L.BCT           0   EXTERNAL*       8/24 D   10/04 S   11/55 S   15/48     21/11     23/11
        L.DUT           0   EXTERNAL*       8/24 D   10/05 S
        L.PBT           0   EXTERNAL*       8/24 D   10/06 S   11/57 S   17/22     20/08
        MRF            20   CCGSCR          9/43 L   10/29     13/33 S   13/56
        NSO            17   CCGSCR          9/42 L   11/15     11/28 S
        O.BCT           0   EXTERNAL*       8/24 D   15/49     21/10     23/10
        O.DUT           0   EXTERNAL*       8/24 D   15/16
        O.PBT           0   EXTERNAL*       8/24 D   11/53     17/23     20/09
        O.SYM           0   EXTERNAL*       8/24 D
        PBI             1   CCGSCR          9/40 L   11/49 S   20/25     23/52     24/12
        PB.LUL         22                   9/02 D
        PB.LUP         22                   9/02 D   17/36     20/16     20/31     24/26     24/43
        PB.PL          22                   9/03 D
        PB.PP           0                   9/03 D   24/26
        PB.RIL         22                   9/01 D
        PB.RIP         44                   9/01 D   17/28     20/38     24/43
        PB.RNL          3                   8/57 D   20/13
        PB.RNP         66                   8/57 D   17/29     20/23     20/31     20/38
        PI.NAP         73                   9/32 D
        PI.PL          22                   9/34 D
        PI.PP           0                   9/34 D
        RMSK      7177776                   8/31 D   18/01
        SO.BLOCK     2200                   8/27 D   27/42
        SRI           563   PROGRAM*       27/41     27/52     30/36 L   30/46
        TRW             7                   8/19 D   10/22     11/34     12/18     23/36
        .SFL         2000                   8/26 D    8/27
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2564              IDENT  SQZ
                       2564                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2564 
                                        CCGSCR    COMMON          0        71 
  
  
                                        ENTRY POINTS. 
  
                                        B=SQZ            0+           LCM#G            2+           SIE#             4+ 
                                        STLDS#           0+           CMO           2447+           SQZB#           10+ 
                                        SUVA#            1+           SBB#            75+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$CUT     L$MOD     O$TXT     N.GT#     ISC=      O$CFT     S=TRACE   Z$RND 
                                        L$CUT     O$RND     L$TXT     L.HB#     Z$CUT     CC$OPF    HO$OPT
                                        O$CVT     L$RND     F$RDT     N.STMAX   S$CON     CC$XR     RNI#
                                        L$CVT     O$TET     S$IT      S$VD      Z$CVT     S=ST      CC$BRN
                                        O$MOD     L$TET     O$SYM     Z$TXT     O$UDT     HO$CSN    ATS$
  
  
  
  
                                                  IDENT  SQZ                                                     SQZ         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=SQZ    RPVDEF                                                         SQZ         6
                                                                                                                 SQZ         7
                                                  TABLES (CUT,CVT,MOD,RND,TET,TXT)                               CCGNC     746
                                                  EXT#   (N.GT,L.HB)                                             CCGNC     747
                                                                                                                 SQZ        13
                                        **        SQZ - SQUEEZE INSTRUCTION SEQUENCE TO -                        SQZ        14
                                        *                ELIMINATE REDUNDANT AND UNUSED INSTRUCTIONS             SQZ        15
                                        *                INSTRUCTION SIMPLIFICATION ( ALGEBRAIC IDENTITIES )     SQZ        16
                                        *                COMPILE TIME EVALUATION OF CONSTANT EXPRESSIONS         SQZ        17
                                        *                GLOBAL TEMPORARY SQUEEZING ( IT."S )                    SQZ        18
                                        *                                                                        SQZ        19
                                        *         ENTRY  *TXT* TABLE HOLDS AN ARBITRARY COLLECTION OF BLOCKS     SQZ        20
                                        *         TERMINATED BY AN *EOQ*.  R-NUMBERS MAY NOT "ROLL OVER".        SQZ        21
                                        *                                                                        SQZ        22
                                        *         EXIT   BLOCK SQUEEZED, REDUNDANT AND USELESS INSTRUCTIONS      SQZ        23
                                        *         REMOVED. PRECEDENCE BITS ( PS,PRS,RJRS ) SET AND USES COUNTS   SQZ        24
                                        *         INSTALLED, LINK WORDS CLEARED AND *USI* BIT SET FOR REDUCED    FCC0716    10
                                        *         *IAZ/ISZ* INSTRUCTIONS TO PREVENT OVERSQUEEZING IN OPT=2 .     FCC0716    11
                                        *                                                                        SQZ        26
                                        *         S.I. JASIK - JAN 1973                                          SQZ        27
  
  
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     2
  
  
             0                           STLDS    ENTRY. 0,#         ST/LD SQZ FLAG, "0 IF ST/LD SQZ DONE        CCGNC     748
             1                           SUVA     ENTRY. 0,#         SQUEEZED USE *BV* ADDRESS ( *AUV* CALL )    CCGNC     749
             2                           LCM#G    ENTRY. 0           = 1S( D.L2++59-D.STP ) IF LCM=G ON CC       CCG21      68
                                                                                                                 CCGNC     750
                                                  QUAL   SQUEEZE                                                 SQZ        30
  
  
                                         CLEAR    MACRO              CLEAR LINK CHAINS                           SQZ        32
                                                  MX6    0                                                       SQZ        33
                                                  SA6    MRC                                                     SQZ        34
                                                  DUP    N.CHAIN-1,1                                             SQZ        35
                                                  SA6    A6+B1                                                   SQZ        36
                                                  ENDM                                                           SQZ        37
  
  
                                        **        I. - LINK INFORMATION WORD FORMAT DURING SQUEEZING             SQZ        39
                                                                                                                 SQZ        40
                                                  DESCRIBE I.,60                                                 SQZ        41
      L     73  40000000000000000000     JP       DEFINE 1           =1 IF INSTRUCTION IS A JP ON *MRC*          SQZ        42
                                                  DEFINE 5                                                       SQZ        43
      L     44  00777777000000000000     RS       DEFINE 18          *RS* DEFINITION ADDRESS                     SQZ        44
      L     22  00000000777777000000     STC      DEFINE 18          STORE CHAIN ( POINTER TO PRECEEDING STORES  SQZ        45
      L      0  00000000000000777777     IC       DEFINE 18          MEMORY REF / MISC INSTRUCTION CHAINS        SQZ        46
                                                                                                                 CCG17       1
      L     22  00000000777777000000     CA       DEQU   STC         SAVED CA OF LDC INSTRUCTION                 CCG18     146
  
  
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     3
        TABLE FORMATS, FLAGS                                          SQZ                 SQUEEZE 
  
                                        **        RN. - R-NUMBER DEFINITION/EQUIVALENCE TABLE FORMAT             SQZ        49
                                                                                                                 SQZ        50
                                                  DESCRIBE RN.,60                                                SQZ        51
      L     73  40000000000000000000     Z        DEFINE 1           RI DEFINES A ZERO                           SQZ        52
      L     72  20000000000000000000     C        DEFINE 1           CONSTANT ( S, FMA, CLR, LDC, ETC. )         CCG17       3
      L     71  10000000000000000000     SA       DEFINE 1           RI IS RESULT OF SA  RI,RJ                   SQZ        54
      L     70  04000000000000000000     IAC      DEFINE 1           IA/IS HAS A CONSTANT OPERAND                SQZ        55
      L     67  02000000000000000000     INC      DEFINE 1           IA/IS IS AN INCREMENT ( I = I+CON )         SQZ        56
      L     66  01000000000000000000     XMT      DEFINE 1           RI IS THE RESULT OF AN XMT                  SQZ        57
      L     65  00400000000000000000     XMTC     DEFINE 1           RI IS THE RESULT OF AN XMTC                 SQZ        58
      L     64  00200000000000000000     PZ       DEFINE 1           PACKED ZERO                                 SQZ        59
      L     63  00100000000000000000     NR       DEFINE 1           NORMALIZE NOT REQUIRED                      SQZ        60
      L     62  00040000000000000000     FMA      DEFINE 1           "0 IF FMA CHANGED TO A SET                  SQZ        61
                                                  DEFINE 4                                                       SQZ        62
      L     44  00001777000000000000     USES     DEFINE 10          USES COUNT                                  SQZ        63
      L     22  00000000777777000000     TP       DEFINE 18          *TXT* ADDR OF INSTRUCTION DEFINING THE RI   SQZ        64
      L      0  00000000000000777777     RN       DEFINE 18          R-NUMBER / EQUIVALENT                       SQZ        65
                                                                                                                 SQZ        66
      L     72  60000000000000000000     CZ       DEQU   C,2         CONSTANT AND ZERO BITS                      SQZ        67
      L     70  34000000000000000000     CIA      DEQU   IAC,3       C, SA , IAC BITS                            SQZ        68
      L     67  06000000000000000000     IACI     DEQU   INC,2       IAC & INC                                   SQZ        69
  
  
  
                                        *         FLAGS                                                          SQZ        71
                                                                                                                 SQZ        72
             3                     1     BIAS     BSSZ   1           *RNI* BIAS , =0 DURING PHASE 1 OF OPT=2     SQZ        73
                                                                                                                 SQZ        74
                                                  USE    /CCGSCR/                                                CCG18     147
             0                     2     RNBT     BSS    2           R-NUMBER BIAS TABLE                         SQZ        76
                                                                                                                 SQZ        77
             2                     1     MRC      BSS    1           MEMORY REFERENCE CHAIN POINTER              SQZ        78
             3                     1     MIC      BSS    1           MISCELLANEOUS INSTRUCTION CHAIN             SQZ        79
             4                     1     CRJC     BSS    1           CONDITIONAL  RJ CHAIN                       CCG3        1
             5                     1     SXTC     BSS    1           SXT CHAIN                                   SQZ        80
             6                     1     FAC      BSS    1           FUNCTION ARG CHAIN                          CCGA083     6
             7                     1     RJ3C     BSS    1           RJ3 CHAIN                                   CCGA083     7
            10                     1     LDCC     BSS    1           LDC CHAIN                                   CCG17       4
                                   7     N.CHAIN  EQU    *-MRC                                                   SQZ        81
            11                     1     IXF      BSS    1           "0 IF *LDC* & PS OR *S* & SO ^= 0           CCG17       5
            12                     1     LDCN     BSS    1           LDC COUNT                                   CCG17       6
            13                     1     RSS      BSS    1           RS SEPARATION FLAG                          SQZ        83
            14                     1     STC      BSS    1           ADDRESS OF FINAL STORE ( ^L2 )              SQZ        85
            15                     1     JPXA     BSS    1           R1 ADDRESS OF LAST *JPX*                    SQZ        86
            16                     1     RJ3T     BSS    1           TEMP                                        CCGA083     8
            17                     1     FACS     BSS    1           TEMP                                        CCGA083     9
            20                     1     CAS      BSS    1           CA'S OF STORES                              CCGA083    10
                                  50     M.STK    EQU    40                                                      CCGA083    11
            21                    50     STK      BSS    M.STK       ADDRESS STACK FOR RJ3 SQZ                   CCGA083    12
                                                  EXT    N.STMAX                                                 CCGA083    13
                                   0 X   STBASE   EQU    N.STMAX                                                 CCGA083    14
                                                  USE    0                                                       SQZ        87
  
  
                                        *         REGISTER ASSIGNMENTS                                           SQZ        89
                                                                                                                 SQZ        90
                                         TXT      MICRO  1,,/A0/     REGISTER HOLDING FWA OF BLOCK               SQZ        91
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     4
        TABLE FORMATS, FLAGS                                                              SQUEEZE 
  
                                         OC       MICRO  1,,/B3/     B REGISTER HOLDING OPCODE                   SQZ        92
                                         RN       MICRO  1,,/B7/     B REGISTER HOLDING BASE OF *RND*            SQZ        93
                                        *         (B1) = 1                                                       SQZ        94
                                        *         (B2) = 2                                                       SQZ        95
                                        *         (X0) = MASK FOR RI FIELD                                       SQZ        96
                                        *         THROUGHOUT THE MASTER SQUEEZE LOOP                             SQZ        97
                                        *         (A4,X4) = DESCRIPTOR OF CURRENT RLIST INSTRUCTION              SQZ        98
                                        *         (A5) = ADDRESS OF INSTRUCTION BEING INSPECTED                  SQZ        99
                                        *         (B6) = RI OF CURRENT INSTRUCTION                               SQZ       100
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     5
        SIE / SQZB - OPT=2 ENTRY POINTS TO SQUEEZE                    SQZB                SQUEEZE 
  
                                        **        SIE - SQUEEZE INCREMENT EXPRESSION                             SQZ       102
                                        *                                                                        SQZ       103
                                        *         EXIT   INSTRUCTIONS IN *TXT* RENUMBERED SO THAT THEY WILL      SQZ       104
                                        *                BE IN CANONICAL ORDER WHEN THEY ARE ADDED TO THE        SQZ       105
                                        *                LOOP HOLDING BLOCK.                                     SQZ       106
                                                                                                                 SQZ       107
             4  0200400004 +             SIE      ROUTINE                                                        SQZ       108
             5  5150000004 +                      SA5    SIE                                                     SQZ       109
                          5120000000 X            SA2    =XL.MOD                                                 SQZ       110
             6  5130000000 X                      SA3    =XL.HB                                                  SQZ       111
                          43600                   MX6    0           TSS = 0                                     SQZ       112
                               36423              IX4    X2+X3                                                   SQZ       113
             7  7274777767                        SX7    X4-8        BIAS = L.HB + L.MOD-8                       SQZ       114
                          0400000013 +            EQ     SQZB1                                                   SQZ       115
  
  
  
                                        **        SQZB - OPT=2 ENTRY TO SQUEEZE                                  SQZ       117
                                        *                                                                        SQZ       118
                                        *                (X6) = TSS , =1 IF *TST* SQUEEZING IS TO BE DONE.       SQZ       119
                                                                                                                 SQZ       120
            10  0200400010 +             SQZB     ROUTINE                                                        SQZ       121
            11  5150000010 +                      SA5    SQZB                                                    SQZ       122
                          7170000000              SX7    0           BIAS = 0                                    SQZ       123
            12  5170000000 +                      SA7    STLDS       STLDS = 0                                   SQZ       124
                                                                                                                 SQZ       125
            13  5110000000 X             SQZB1    SA1    L.TXT                                                   SQZ       126
                          5226000022 +            SA2    SQZBA+X6                                                SQZ       127
            14  5170000003 +                      SA7    BIAS                                                    SQZ       128
                          10655                   BX6    X5                                                      SQZ       129
                               22702              LX7    X2                                                      SQZ       130
            15  5160000075 +                      SA6    SBB         [SBB] = EXIT ADDRESS                        SQZ       131
                          5170002455 +            SA7    SBB.JT      [SBB.JT] = *EOQ* PROCESSOR ADDRESS          SQZ       132
            16  7211777771                        ALLOC  RND,X1-6    ALLOC( RND , L.TXT-6 )                      SQZ       134
            20  5150000000 X                      SA5    O.TXT                                                   SQZ       135
                          43054                   MX0    -R1.RIL                                                 SQZ       136
                               63720              S"RN"  X2                                                      SQZ       137
            21  66211                             SB2    B1+B1                                                   SQZ       138
                     53050                        S"TXT" X5                                                      SQZ       139
                          0400000120 +            EQ     SBB5A                                                   SQZ       140
                                                                                                                 SQZ       141
            22                           SQZBA    BSS    0                                                       SQZ       142
      L      0                                    LOC    0                                                       SQZ       143
      L      0  0400000173 +                      EQ     .EOQ        NO *TST* SQZ                                SQZ       144
                          2024000000    -         VFD    12/1S10+(EOQ,18/0                                       CCG22       1
      L      1  0400000024 +                      EQ     STS                                                     SQZ       145
                          2024000000    -         VFD    12/1S10+(EOQ,18/0                                       CCG22       2
      L     24                                    LOC    *O                                                      SQZ       146
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     6
        STS - SQUEEZE TEMP STORES TO ELIMINATE REDUNDANT ONES         STS                 SQUEEZE 
  
                                        **        STS - SQUEEZE TEMP STORES ( *TST*"S ) TO ELIMINATE REDUNDANT   SQZ       158
                                        *         ONE"S AND SET THE *CA* FIELD OF THE NON-REDUNDANT ONES.        SQZ       159
                                        *                                                                        SQZ       160
                                        *         ENTRY  FROM *SBB.JT* WHEN *EOQ* IS ENCOUNTERED.                SQZ       161
                                        *         EXIT   TO *EOQ* PROCESSOR WHEN FINISHED                        SQZ       162
                                                                                                                 SQZ       163
            24  5110000000 X             STS      SA1    =XN.GT      N = N.GT      */ NUMBER OF ASSIGNED IT. S   SQZ       164
                          5150000014 C            SA5    STC                                                     SQZ       165
            25  6120000077                        SB2    OC.TST                                                  SQZ       166
                          66400                   SB4    B0          USC = 0       */ UNASSIGNED *TST* CHAIN     SQZ       167
                               63550              SB5    X5          I = STC                                     SQZ       168
            26  6060000003                        SB6    "TXT"+3     TB = O.TXT + 3                              SQZ       169
                          56000                   SA0    B0          ASC = 0       */ ASSIGNED *TST* CHAIN       SQZ       170
                               43701              MX7    1                                                       SQZ       171
            27  0400000031 +                      EQ     STS2                                                    SQZ       172
                                                                                                                 SQZ       173
                                        *         SCAN *STC* AND FORM CHAINS OF ASSIGNED AND UNASSIGNED *TST*"S  SQZ       174
                                                                                                                 SQZ       175
            30  74600                    STS1     SX6    A0                                                      SQZ       176
                     54650                        SA6    A5          [LI] = ASC    */ LINK LAST TO THIS          SQZ       177
                          5005000000              SA0    A5+         ASC = LI      */ CHAIN POINTS TO THIS       SQZ       178
                                                                                                                 SQZ       179
            31  56550                    STS2     SA5    B5          LI = I                                      SQZ       180
                     0450000037 +                 ZR     B5,STS3     IF I = 0      */ END OF CHAIN               SQZ       181
                               20552              LX5    -I.STCP                                                 SQZ       182
            32  5035777774                        SA3    A5-3        R1 = LI - 3                                 SQZ       183
                          54431                   SA4    A3+B1       R2 = R1 + 1                                 SQZ       184
                               63550              SB5    X5          I = STC[LI]                                 SQZ       185
            33  26633                             UX6    B3,X3                                                   SQZ       186
                     0532000031 +                 NE     B3,B2,STS2  IF OC[R1] " OC.TST                          SQZ       187
                                                                                                                 SQZ       188
                               20452              LX4    -IH.CAP                                                 SQZ       189
            34  73240                             SX2    X4          C = CA[R2]                                  SQZ       190
                     37621                        IX6    X2-X1                                                   SQZ       191
                          15530                   BX5    -X0*X3                                                  SQZ       192
                               53756              SA7    B6+X5       LIP = TB + RI[R1];  [LIP] = 1S59  */ NOT AS SQZ       193
            35  0336000030 +                      MI     X6,STS1     IF C < N      */ TEMP NUMBER ASSIGNED       SQZ       194
                                                                                                                 SQZ       195
                          76640                   SX6    B4                                                      SQZ       196
                               54650              SA6    A5          [LI] = USC                                  SQZ       197
            36  64450                             SB4    A5          USC = LI                                    SQZ       198
                     0400000031 +                 EQ     STS2                                                    SQZ       199
                                                                                                                 SQZ       200
            37  5120000000 X             STS3     SA2    =XO.TET                                                 SQZ       201
                          64300                   SB3    A0          I = ASC                                     SQZ       202
                               63520              SB5    X2                        (B5) = [O.TET]                SQZ       203
            40  0430000054 +                      ZR     B3,STS7     IF I = 0      */ NO ASSIGNED TET"S          SQZ       204
                                                                                                                 SQZ       205
                                        *         SET THE *CA*"S OF THE ASSIGNED *TST*"S IN THE LINK WORD OF     SQZ       206
                                        *         THE INSTRUCTION DEFINING THE *RI* IN THE *TST*.                SQZ       207
                                                                                                                 SQZ       208
            41  5133777774               STS4     SA3    B3-3        R1 = I - 3                                  SQZ       209
                          54431                   SA4    A3+B1       R2 = R1 + 1                                 SQZ       210
                               15630              BX6    -X0*X3      R = RI[R1]                                  SQZ       211
            42  53266                             SA2    B6+X6       LIP = TB + R;  K = [LIP]                    SQZ       212
                     20452                        LX4    -IH.CAP                                                 SQZ       213
                          73740                   SX7    X4          C = CA[R2]                                  SQZ       214
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     7
        STS - SQUEEZE TEMP STORES TO ELIMINATE REDUNDANT ONES         STS                 SQUEEZE 
  
            43  0332000052 +                      MI     X2,STS5     IF K < 0      */ NOT EQUIVALENCED           SQZ       215
                                                                                                                 SQZ       216
                                        *         EQUIVALENCE THE CELLS IF THEY ARE BOTH INVARIANT TEMPS         SQZ       217
                                                                                                                 SQZ       218
                          53375                   SA3    B5+X7                                                   SQZ       219
                               76510              SX5    B1                                                      CCGA049    16
            44  20570                             LX5    T.CALP                                                  CCGA049    17
                     11435                        BX4    X3*X5                                                   CCGA049    18
                          0314000052 +            NZ     X4,STS5     IF CA FIELD STILL IN USE                    CCGA049    19
            45  53525                             SA5    B5+X2                                                   SQZ       220
                     11435                        BX4    X3*X5                                                   SQZ       221
                                                  LX4    59-T.INVP                                               SQZ       222
                          0324000052 +            PL     X4,STS5     IF ^( INV[TET(C)] & INV[TET(K)] )           SQZ       223
                                                                                                                 SQZ       224
            46  11703                             BX7    X0*X3                                                   SQZ       225
                     76510                        SX5    B1                                                      SQZ       226
                          12772                   BX7    X7+X2       CA[TET(C)] = K                              SQZ       227
                               20572              LX5    T.EQVP                                                  SQZ       228
            47  12757                             BX7    X5+X7       EQV[TET(C)] = 1                             SQZ       229
                     54730                        SA7    A3                                                      SQZ       230
                          53267                   SA2    "RN"+X6     RNI = RND(R)                                SQZ       231
                               20546              LX5    RN.USESP-T.EQVP                                         SQZ       232
            50  37625                             IX6    X2-X5       USES[RNI] = USES[RNI] - 1                   SQZ       233
                     54620                        SA6    A2                                                      SQZ       234
                          43600                   MX6    0                                                       SQZ       235
                               54641              SA6    A4+B1       DI = R2 + 1;  [DI] = 0  */ KILL ST          SQZ       236
            51  0400000053 +                      EQ     STS6                                                    SQZ       237
                                                                                                                 SQZ       238
            52  5072000000               STS5     SA7    A2+         [LIP] = C     */ SET ASSIGNMENT             SQZ       239
                                                                                                                 SQZ       240
            53  56530                    STS6     SA5    B3          LI = [I]                                    SQZ       241
                     63350                        SB3    X5          I = [LI]                                    SQZ       242
                          0530000041 +            NZ     B3,STS4     IF I " 0                                    SQZ       243
                                                                                                                 SQZ       244
                                        *         ASSIGN TEMP NUMBERS TO THE UNASSIGNED *TST*"S                  SQZ       245
                                                                                                                 SQZ       246
            54  76210                    STS7     SX2    B1          I = USC                                     SQZ       247
                     20244                        LX2    RN.USESP                                                SQZ       248
                          0440000071 +            ZR     B4,STS0     IF I = 0      */ NO UNASSIGNED TEMPS        SQZ       249
                                                                                                                 SQZ       250
            55  5134777774               STS8     SA3    B4-3        R1 = I - 3                                  SQZ       251
                          54431                   SA4    A3+B1       R2 = R1 + 1                                 SQZ       252
                               15630              BX6    -X0*X3                                                  SQZ       253
            56  53566                             SA5    B6+X6       LIP = TB + RI[R1];  K = [LIP]               SQZ       254
                     20452                        LX4    -IH.CAP     C = CA[R2]                                  SQZ       255
                          0335000061 +            MI     X5,STS9     IF K < 0      */ NO TEMP NUMBER ASSIGNED    SQZ       256
                                                                                                                 SQZ       257
                                        *         *TST* IS REDUNDANT, ELIMINATE IT                               SQZ       258
                                                                                                                 SQZ       259
            57  53367                             SA3    "RN"+X6     R = RND(RI[R1])                             SQZ       260
                     43700                        MX7    0                                                       SQZ       261
                          37632                   IX6    X3-X2       USES[R] = USES[R] - 1                       SQZ       262
                               54741              SA7    A4+B1       DI = R2 + 1;  [DI] = 0                      SQZ       263
            60  54630                             SA6    A3                                                      SQZ       264
                     0400000063 +                 EQ     STS10                                                   SQZ       265
                                                                                                                 SQZ       266
                                        *         *TST* NOT REDUNDANT, ASSIGN IT A TEMP NUMBER                   SQZ       267
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     8
        STS - SQUEEZE TEMP STORES TO ELIMINATE REDUNDANT ONES         STS                 SQUEEZE 
  
                                                                                                                 SQZ       268
            61  10711                    STS9     BX7    X1                                                      SQZ       269
                     11504                        BX5    X0*X4                                                   SQZ       270
                          54750                   SA7    A5          [LIP] = N     ASSIGN TEMP NUMBER            SQZ       271
                               36651              IX6    X5+X1       CA[R2] = N                                  SQZ       272
            62  20622                             LX6    IH.CAP                                                  SQZ       273
                     10511                        BX5    X1          K = N                                       SQZ       274
                          54640                   SA6    A4                                                      SQZ       275
                               73111              SX1    X1+B1       N = N + 1                                   SQZ       276
                                                                                                                 SQZ       277
            63  53345                    STS10    SA3    B5+X4                                                   SQZ       278
                     12635                        BX6    X3+X5       CA[TET(C)] = K  */ SET FINAL *CA* IN *TET*  SQZ       279
                          7130000001              SX3    1                                                       CCGA049    20
            64  20370                             LX3    T.CALP                                                  CCGA049    21
                     12663                        BX6    X6+X3       CAL[TET(C)]=1  */ LOCK CA FIELD             CCGA049    22
                          54630                   SA6    A3                                                      SQZ       280
                               13754              BX7    X5-X4                                                   SQZ       281
            65  63370                             SB3    X7                                                      SQZ       282
                     0430000070 +                 ZR     B3,STS11    IF C = K                                    SQZ       283
                                                                                                                 SQZ       284
                               53555              SA5    B5+X5                                                   SQZ       285
            66  43701                             MX7    1                                                       SQZ       286
                                                  LX7    1+T.INVP                                                SQZ       287
                     11676                        BX6    X7*X6                                                   SQZ       288
                          15557                   BX5    -X7*X5                                                  SQZ       289
                               12665              BX6    X6+X5       INV[TET(K)] = INV[TET(C)]                   SQZ       290
            67  54650                             SA6    A5                                                      SQZ       291
                                                                                                                 SQZ       292
            70  56440                    STS11    SA4    B4          LI = I                                      SQZ       293
                     63440                        SB4    X4          I = [LI]      */ NEXT ON CHAIN              SQZ       294
                          0540000055 +            NZ     B4,STS8     IF I " 0                                    SQZ       295
                                                                                                                 SQZ       296
            71  10711                    STS0     BX7    X1          N.GT = N      */ NEXT AVAIL TEMP NO         SQZ       297
                     5120000022 +                 SA2    SQZBA                                                   SQZ       298
                               66211              SB2    B1+B1                                                   SQZ       299
            72  5170000000 X                      SA7    N.GT                                                    SQZ       300
                          10622                   BX6    X2          [SBB.JT] = [SQZBA]  */ RESTORE *EOQ* PROC   SQZ       301
            73  5106777774                        S"TXT" B6-3                                                    SQZ       302
                          5160002455 +            SA6    SBB.JT                                                  SQZ       303
            74  0400000173 +                      EQ     .EOQ                                                    SQZ       304
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE     9
        INITIALIZATION                                                SQZ                 SQUEEZE 
  
                                        **        SBB - SQUEEZE EXTENDED BASIC BLOCK. ENTRY TO SQZ FROM CG$PAS.  CCGNC     751
                                        *                                                                        SQZ       307
                                        *         ENTRY  (CC$BRN) = BASE,LIMIT R-NUMBERS IN SEQUENCE             CCGNC     752
                                        *                (CC$BIR) = BASE,LIMIT INTERMEDIATE R-NUMBERS            CCGNC     753
            75  0200400075 +             SBB      ROUTINE                                                        SQZ       310
                                         .ROL     IFEQ   HC.ROL,0                                                CCG9      126
            76  5110000001 X                      SA1    =XCC$BRN+1                                              CCGNC     754
                          21102                   AX1    2                                                       CCG22       3
                                         .ROL     ELSE                                                           CCG1      267
                                                                                                                 CCG1      268
                                                  SA1    =XCC$BRN                                                CCGNC     755
                                                  SA3    =XCC$BIR                                                CCGNC     756
                                                  SA2    A1+B1                                                   SQZ       313
                                                  SA4    A3+B1                                                   SQZ       314
                                                  IX2    X2-X1       DEL(R) = CC$BRN(2) - CC$BRN(1)              CCGNC     757
                                                  SX0    B1+B1                                                   SQZ       316
                                                  IX4    X4-X3       DEL(IR) = CC$BIR(2) - CC$BIR(1)             CCGNC     758
                                                  IX7    X2+X4                                                   SQZ       318
                                                  IX6    X0-X1                                                   SQZ       319
                                                  IX1    X7+X0                                                   SQZ       320
                                                  IX7    X0-X3                                                   SQZ       321
                                                  SA6    RNBT        RNBT(0) = 2 - CC$BRN(1)                     CCGNC     759
                                                  IX7    X2+X7                                                   SQZ       323
                                                  SA7    A6+B1       RNBT(1) = 2 + DEL(R) - CC$BIR(1)            CCGNC     760
                                         .ROL     ENDIF                                                          CCG1      275
                                                                                                                 CCG1      276
            77  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , DEL(IR)+DEL(R)+2 )             SQZ       325
                                                                                                                 SQZ       326
                                        *         NOTE - ABSOLUTE ADDRESSES ARE USED THROUGHOUT THE REST OF      SQZ       327
                                        *         *SBB*, HENCE NO TABLE ALLOCATION REQUESTS MAY BE MADE.         SQZ       328
                                                                                                                 SQZ       329
           100  5110000000 X                      SA1    O.TXT                                                   SQZ       330
                          63720                   S"RN"  X2          (B7) = O.RND                                SQZ       331
                               53010              S"TXT" X1          (A0) = O.TXT                                SQZ       332
           101  66211                             SB2    B1+B1             (B2) = 2                              CCG18     148
  
  
  
                                         .ROL     IFNE   HC.ROL,0                                                CCG1      277
                                        **        REPLACE ALL OCCURRENCES OF R-NUMBERS BY INDICES TO *RND*.      SQZ       334
                                        *         MAP R,R+1,...,IR,IR+1,... INTO  2,3,4,...                      SQZ       335
                                        *         NOTE - LOOP IS STRUCTURED TO BE *INSTACK* FOR TYPE I PROCESSIN SQZ       336
                                                                                                                 SQZ       337
                                                  MX0    -R1.RIL           (X0) = R-NUMBER EXTRACTOR MASK        CCG22       4
                                                  SB5    R1.RIL-1                                                SQZ       338
                                                  SB6    RNBT                                                    SQZ       339
                                                  MX1    1                                                       SQZ       342
                                                  SA4    "TXT"+B2    DI = O.TXT + 2                              SQZ       343
                                                  EQ     SBB2                                                    SQZ       344
                                                                                                                 SQZ       345
                                        *         TYPE II/III                                                    SQZ       346
                                                                                                                 SQZ       347
                                         SBB1     BX3    -X0*X5      RI = RI[R1]                                 SQZ       348
                                                  AX7    B5,X3                                                   SQZ       349
                                                  SA2    X7+B6       BIAS = RNBT( SHIFT(RI,-15) )                SQZ       350
                                                  SA3    A5+B1       R2 = R1 + 1                                 SQZ       351
                                                  IX6    X2+X5       RI = RI + BIAS                              SQZ       352
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    10
        INITIALIZATION                                                SBB                 SQUEEZE 
  
                                                  SA6    A5                                                      SQZ       353
                                                  LX3    -IH.RFP                                                 SQZ       354
                                                  BX6    -X0*X3                                                  SQZ       355
                                                  AX7    B5,X6                                                   SQZ       356
                                                  SB4    X6                                                      SQZ       357
                                                  LE     B4,B1,SBB2  IF RF @ 1                                   SQZ       358
                                                  SA2    X7+B6                                                   SQZ       359
                                                  IX6    X2+X3       RF = RF + BIAS                              SQZ       360
                                                  LX6    IH.RFP                                                  SQZ       361
                                                  SA6    A3                                                      SQZ       362
                                                                                                                 SQZ       363
                                         SBB2     SA5    A4+B2       R1 = DI + 2                                 SQZ       364
                                                  SA4    A5+B2       DI = R1 + 2                                 SQZ       365
                                                  LX4    58-D.TYP                                                SQZ       366
                                                  IX6    X4+X4                                                   SQZ       367
                                                  BX7    X4-X6                                                   SQZ       368
                                                  MI     X7,SBB1     IF TYPE[DI] = II ! III                      SQZ       369
                                                  MI     X4,SBB5     IF TYPE[DI] = IV                            SQZ       370
                                                                                                                 SQZ       371
                                        *         TYPE I INSTRUCTION                                             SQZ       372
                                                                                                                 SQZ       373
                                                  UX7    "OC",X5                                                 SQZ       374
                                                  SX6    "OC"+6000B  RWD = OC[R1] + 6000B  */ PACKED OC + TERM   SQZ       375
                                                  LX5    -R1.RJP     RNUMS = RJ/RK/RI                            SQZ       376
                                                                                                                 SQZ       377
                                         SBB3     BX3    -X0*X5                                                  SQZ       378
                                                  SB4    X3                                                      SQZ       379
                                                  AX4    B5,X3                                                   SQZ       380
                                                  SA2    X4+B6       BIAS = RNBT( SHIFT(RN,-15) )                SQZ       381
                                                  LX6    R1.RIL      RWD = SHIFT(RWD,16)                         SQZ       382
                                                  LE     B4,B1,SBB4  IF RN @ 1                                   SQZ       383
                                                  IX3    X2+X3       RN = RN + BIAS                              SQZ       384
                                         SBB4     LX5    R1.RIL      RNUMS = SHIFT(RNUMS,16)                     SQZ       385
                                                  BX6    X6+X3                                                   SQZ       386
                                                  PL     X6,SBB3     IF RWD > 0                                  SQZ       387
                                                  BX7    -X1*X6      [R1] = TYI(OC,RJ,RK,RI)                     SQZ       388
                                                  SA7    A5                                                      SQZ       389
                                                  EQ     SBB2                                                    SQZ       390
                                                                                                                 SQZ       391
                                         SBB5     UX7    "OC",X5                                                 SQZ       392
                                                  NZ     "OC",SBB2   IF OC[R1] " EOQ                             SQZ       393
                                         .ROL     ELSE                                                           CCG22       5
                                                                                                                 CCG22       6
                                        *         REPLACE ALL OCCURANCES OF R-NUMBERS BY INDICES TO *RND*        CCG22       7
                                        *         MAP 0,1,4,8,....    INTO  0,1,2,3,...                          CCG22       8
                                                                                                                 CCG22       9
                     43054                        MX0    -R1.RIL                                                 CCG28      37
                          43101                   MX1    1                                                       CCG22      12
                               54402              SA4    "TXT"+B2    DI = O.TXT + 2                              CCG22      13
           102  0400000110 +                      EQ     SBB2                                                    CCG22      14
                                                                                                                 CCG22      15
                                        *         TYPE II/III                                                    CCG22      16
                                                                                                                 CCG22      17
           103  15350                    SBB1     BX3    -X0*X5                                                  CCG22      18
                     0303000105 +                 ZR     X3,SBB1A    IF R = 0                                    CCG22      19
                               21302              AX3    2                                                       CCG22      20
           104  11505                             BX5    X0*X5                                                   CCG22      21
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    11
        INITIALIZATION                                                SBB                 SQUEEZE 
  
                     73331                        SX3    X3+B1       R = R/4 + 1                                 CCG22      22
                          36635                   IX6    X3+X5                                                   CCG22      23
                               54650              SA6    A5                                                      CCG22      24
           105  54251                    SBB1A    SA2    A5+B1       R2 = R1 + 1                                 CCG22      25
                     20230                        LX2    -IH.RFP                                                 CCG22      26
                          15320                   BX3    -X0*X2                                                  CCG22      27
                               21302              AX3    2                                                       CCG28      38
           106  0303000110 +                      ZR     X3,SBB2     IF R < 4                                    CCG28      39
                          11202                   BX2    X0*X2                                                   CCG22      30
                               73331              SX3    X3+B1       R = R/4 + 1                                 CCG22      31
           107  36632                             IX6    X3+X2                                                   CCG22      32
                     20644                        LX6    IH.RFP                                                  CCG22      33
                          54620                   SA6    A2                                                      CCG22      34
                                                                                                                 CCG22      35
           110  54542                    SBB2     SA5    A4+B2       R1 = DI + 2                                 CCG22      36
                     54452                        SA4    A5+B2       DI = R1 + 2                                 CCG22      37
                                                  LX4    58-D.TYP                                                CCG22      38
                          36644                   IX6    X4+X4                                                   CCG22      39
                               13746              BX7    X4-X6                                                   CCG22      40
           111  0337000103 +                      MI     X7,SBB1     IF TYPE[DI] = II ! III                      CCG22      41
                          0334000117 +            MI     X4,SBB5     IF TYPE[DI] = IV                            CCG22      42
                                                                                                                 CCG22      43
                                        *         TYPE I INSTRUCTION                                             CCG22      44
                                                                                                                 CCG22      45
           112  26735                             UX7    "OC",X5                                                 CCG22      46
                     7163006000                   SX6    "OC"+6000B  RWD = OC[R1] + 6000B  */ PACKED OC + TERM   CCG22      47
                               20534              LX5    -R1.RJP     RNUMS = RJ/RK/RI                            CCG22      48
                                                                                                                 CCG22      49
           113  15350                    SBB3     BX3    -X0*X5                                                  CCG22      50
                     20620                        LX6    R1.RIL                                                  CCG22      51
                          23413                   AX4    B1,X3                                                   CCG28      40
           114  0304000115 +                      ZR     X4,SBB4     IF R < 2                                    CCG28      41
                          21302                   AX3    2                                                       CCG22      53
                               73331              SX3    X3+B1       R = R/4 + 1                                 CCG28      42
           115  20520                    SBB4     LX5    R1.RIL      RNUMS = SHIFT(RNUMS,16)                     CCG22      55
                     12663                        BX6    X6+X3                                                   CCG22      56
                          0326000113 +            PL     X6,SBB3     IF RWD > 0                                  CCG22      57
           116  15761                             BX7    -X1*X6      [R1] = TYI(OC,RJ,RK,RI)                     CCG22      58
                     54750                        SA7    A5                                                      CCG22      59
                          0400000110 +            EQ     SBB2                                                    CCG22      60
                                                                                                                 CCG22      61
           117  26735                    SBB5     UX7    "OC",X5                                                 CCG22      62
                     0530000110 +                 NZ     "OC",SBB2   IF OC[R1] " EOQ                             CCG22      63
                                                                                                                 CCG22      64
                               43054              MX0    -R1.RIL           (X0) = R-NUMBER EXTRACTOR MASK        CCG22      65
                                         .ROL     ENDIF                                                          CCG1      278
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    12
        INITIALIZATION                                                SBB                 SQUEEZE 
  
                                        **        SCAN *TXT* AND SETUP *RND*. CHAIN THE *RND* ENTRIES TO THE     SQZ       395
                                        *         INSTRUCTION THAT DEFINES THE *RI* ( RND INDEX ).               SQZ       396
                                        *         SET PRECEDENCE BITS ( PS,PRS,RJRS ) FOR INSTRUCTIONS           SQZ       397
                                        *         PRECEDING A STORE / REGISTER STORE.                            SQZ       398
                                                                                                                 SQZ       399
           120  66422                    SBB5A    SB4    B2+B2                                                   SQZ       400
                     5120000004 X                 SA2    F.RDT+OC.RS       (X2) = DESCR FOR *RJ RS*              CCG18     150
                               76700              SX7    B0          LINK = 0                                    SQZ       402
           121  76110                             SX1    B1                                                      SQZ       403
                     20151                        LX1    D.^DP                                                   SQZ       404
                          6150000004              SB5    OC.RS                                                   SQZ       405
           122  15221                             BX2    -X1*X2                                                  SQZ       406
                     20172                        LX1    D.PSP-D.^DP                                             SQZ       407
                          66600                   SB6    B0          RSL = 0                                     SQZ       408
                               54500              SA5    "TXT"                                                   SQZ       409
           123  0400000127 +                      EQ     SBB8                                                    SQZ       410
                                                                                                                 SQZ       411
           124  76660                    SBB6     SX6    B6                                                      SQZ       412
                     54641                        SA6    A4+B1       [DI+1] = RSL                                SQZ       413
                          20535                   LX5    59-R1.INP                                               SQZ       414
                               64641              SB6    A4+B1       RSL = DI + 1                                SQZ       415
           125  0325000127 +                      PL     X5,SBB8     IF IN[R1] = 0  */ NORMAL REGISTER STORE     SQZ       416
                          10622                   BX6    X2          ^D[DI] = 0                                  SQZ       417
                               54640              SA6    A4                                                      SQZ       418
                                                                                                                 SQZ       419
           126  74550                    SBB7     SX5    A5                                                      SQZ       420
                     20522                        LX5    RN.TPP                                                  SQZ       421
                          12653                   BX6    X5+X3       RND(RI) = RNDT(0,0,R1,RI[R1])               SQZ       422
                               53637              SA6    "RN"+X3                                                 SQZ       423
                                                                                                                 SQZ       424
           127  54554                    SBB8     SA5    A5+B4       R1 = R1 + 4   */ ADVANCE TO NEXT INSTRUCTIO SQZ       425
                     54452                        SA4    A5+B2       DI = R1 + 2                                 SQZ       426
                          15350                   BX3    -X0*X5                                                  SQZ       427
                               20422              LX4    59-D.^DP                                                SQZ       428
           130  26635                             UX6    "OC",X5                                                 SQZ       429
                     0324000126 +                 PL     X4,SBB7     IF D[DI]      */ DEFINES AN *RI* ( RESULT ) SQZ       430
                               20407              LX4    D.^DP-D.STP                                             SQZ       431
           131  0430000140 +                      ZR     "OC",SBB9   IF OC[R1] = OC.EOQ                          SQZ       432
                          0435000124 +            EQ     "OC",B5,SBB6      IF OC[R1] = OC.RS                     SQZ       433
           132  0324000127 +                      PL     X4,SBB8     IF ^ST[DI]                                  SQZ       434
                                                                                                                 CCGA039    19
                                         #DAL     IFNE   .DAL,0                                                  CCGA039    20
                          20472                   LX4    D.STP-D.L2P                                             SQZ       436
           133  0324000135 +                      PL     X4,SBB8A    IF ^L2[DI]                                  CCGA039    21
                          20404                   LX4    D.L2P-D.XMTP                                            CCGA039    22
           134  0324000127 +                      PL     X4,SBB8     IF ^XMT[DI] */ LEVEL 2                      CCGA039    23
                                                                                                                 CCGA039    24
           135                           SBB8A    BSS    0                                                       CCGA039    25
                                         #DAL     ENDIF                                                          CCGA039    26
                                                                                                                 CCGA039    27
           135  53337                             SA3    "RN"+X3                                                 SQZ       438
                     54741                        SA7    A4+B1       [R1+3] = LINK                               SQZ       439
                          20352                   LX3    -RN.TPP                                                 SQZ       440
                               74770              SX7    A7                                                      SQZ       441
           136  20722                             LX7    18          LINK = R1 + 3                               SQZ       442
                     53432                        SA4    X3+B2       DJ = TP[RI] + 2                             SQZ       443
                          12614                   BX6    X1+X4                                                   SQZ       444
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    13
        INITIALIZATION                                                SBB                 SQUEEZE 
  
                               54640              SA6    A4          PS[DJ] = 1                                  SQZ       445
           137  0400000127 +                      EQ     SBB8                                                    SQZ       446
                                                                                                                 SQZ       447
           140  20752                    SBB9     LX7    -I.STCP     STC = LINK    */ ADDRESS OF A FINAL STORE   CCG17       7
                     5170000014 C                 SA7    STC                                                     SQZ       451
                                                                                                                 SQZ       452
                                        *         NOW SET THE REGISTER STORE PRECEDENCE BITS                     SQZ       453
                                                                                                                 SQZ       454
           141  0460000146 +                      ZR     B6,SBB11    IF RSL = 0    */ NO REGISTER STORES         SQZ       455
                          20173                   LX1    D.PRSP-D.PSP                                            SQZ       456
                               43700              MX7    0                                                       SQZ       457
                                                                                                                 SQZ       458
           142  5126777774               SBB10    SA2    B6-3        R1 = [RSL-3]                                SQZ       459
                          55422                   SA4    A2-B2       DI = R1 - 2   */ DESCR OF PREDECESSOR       SQZ       460
                               20237              LX2    -R1.INP+1                                               SQZ       461
           143  63520                             SB5    X2                                                      SQZ       462
                     56260                        SA2    B6                                                      SQZ       463
                          22551                   LX5    B5,X1       BIT = SHIFT( PRS , 2*IN[R1] )               SQZ       464
                               56760              SA7    B6          [R1+3] = 0                                  SQZ       465
           144  12654                             BX6    X5+X4       DI = DI ! BIT                               SQZ       466
                     63620                        SB6    X2          RSL = [RSL]                                 SQZ       467
                          54640                   SA6    A4                                                      SQZ       468
           145  0560000142 +                      NZ     B6,SBB10    IF RSL " 0                                  SQZ       469
                                                                                                                 SQZ       470
                                        *         COMPLETE INITIALIZATION OF *RND*, SET REGISTERS FOR MAIN LOOP  SQZ       471
                                                                                                                 SQZ       472
           146  74500                    SBB11    SX5    "TXT"                                                   SQZ       473
                     20522                        LX5    RN.TPP                                                  SQZ       474
                          43602                   MX6    2                                                       CCG17       8
                                                  LX6    2+RN.CZP                                                CCG17       9
                               76410              SX4    B1                                                      SQZ       477
           147  12656                             BX6    X5+X6                                                   SQZ       478
                     36754                        IX7    X5+X4                                                   SQZ       479
                          20447                   LX4    RN.USESP+3                                              SQZ       480
                               12646              BX6    X4+X6                                                   SQZ       481
           150  56670                             SA6    "RN"        RND(0) = RNDT(Z,C,8,O.TXT,0) ( B0 )         CCG17      10
                     56771                        SA7    "RN"+B1     RND(1) = RNDT(0,0,O.TXT,1)   ( A0 )         SQZ       483
                          43600                   CLEAR              CLEAR CHAIN POINTERS                        SQZ       484
           153  5160000013 C                      SA6    RSS         RSS = 0                                     SQZ       485
                          5160000015 C            SA6    JPXA        JPXA = 0                                    SQZ       486
           154  5160000011 C                      SA6    IXF         IXF = 0                                     CCG17      11
                          54402                   SA4    "TXT"+B2    DI = O.TXT + 2                              SQZ       487
                               43601              MX6    1                                                       CCG17      12
           155  5160000012 C                      SA6    LDCN        LDCN = 1S59   */ INDICATE NO LDC"S          CCG17      13
                                                  TRACE  INITX,RLIST                                             SQZ       488
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    14
        MASTER SQUEEZE LOOP                                           MSL                 SQUEEZE 
  
                                        **        MSL - MASTER SQUEEZE LOOP                                      SQZ       506
                                        *         EVALUATE INSTRUCTIONS WITH CONSTANT OPERANDS OR REDUCE TO      CCG17      14
                                        *         SIMPLER INSTRUCTION BY AN ALGEBRAIC IDENTITY, IF ONE OF THE    CCG17      15
                                        *         OPERANDS IS CONSTANT. ALSO ATTEMPT TO ELIMINATE ANY            CCG17      16
                                        *         REDUNDANT INSTRUCTIONS.                                        CCG17      17
                                                                                                                 SQZ       513
                                                                                                                 SQZ       514
           156  54542                    MSL1     SA5    A4+B2       R1 = DI + 2   */ ADVANCE TO NEXT INSTRUCTIO SQZ       516
                     54452                        SA4    A5+B2       DI = R1 + 2                                 SQZ       517
                          43102                   MX1    D.TYL                                                   SQZ       518
                                                  LX4    58-D.TYP                                                SQZ       519
                               11614              BX6    X1*X4                                                   SQZ       520
                                                  LX4    D.TYP+2                                                 SQZ       521
           157  26735                             UX7    "OC",X5                                                 SQZ       522
                     0316000172 +                 NZ     X6,MSL3     IF TYPE[DI] " I                             SQZ       523
                                                                                                                 SQZ       524
                                        *         TYPE I - REPLACE OPERAND R-NUMBERS WITH EQUIVALENTS FROM RND.  SQZ       525
                                                                                                                 SQZ       526
                               20754              LX7    -R1.RKP                                                 SQZ       527
           160  15670                             BX6    -X0*X7                                                  SQZ       528
                     53267                        SA2    "RN"+X6     (X2) = RK = RND(RK)                         SQZ       529
                          20754                   LX7    R1.RKP-R1.RJP                                           SQZ       530
                               53177              SA1    "RN"+X7     (X1) = RJ = RND(RJ)                         SQZ       531
           161  20442                             LX4    59-D.CMP                                                SQZ       532
                     15550                        BX5    -X0*X5                                                  SQZ       533
                          0324000164 +            PL     X4,MSL2     IF ^CM[DI]                                  SQZ       534
           162  63410                             SB4    X1                                                      SQZ       535
                     63520                        SB5    X2                                                      SQZ       536
                          0645000164 +            GE     B4,B5,MSL2  IF RJ \ RK    */ CANONICAL ORDER            SQZ       537
           163  5012000000                        SA1    A2+                                                     SQZ       538
                          53277                   SA2    "RN"+X7     SWAP( RJ , RK )                             SQZ       539
                                                                                                                 SQZ       540
           164  15310                    MSL2     BX3    -X0*X1                                                  SQZ       541
                     20432                        LX4    1+D.CMP                                                 SQZ       542
                          27535                   PX5    "OC",X5                                                 SQZ       543
                               15620              BX6    -X0*X2                                                  SQZ       544
           165  20340                             LX3    R1.RJP                                                  SQZ       545
                     12535                        BX5    X3+X5                                                   SQZ       546
                          20620                   LX6    R1.RKP                                                  SQZ       547
                               36756              IX7    X5+X6                                                   SQZ       548
           166  12556                             BX5    X5+X6                                                   SQZ       549
                     11612                        BX6    X1*X2                                                   CCG17      18
                          54750                   SA7    A5          [R1] = TYI(OC RJ,RK,RI)                     CCG17      19
                               20601              LX6    59-RN.CP                                                CCG17      20
           167  0326000172 +                      PL     X6,MSL3     IF ^(C[RJ] & C[RK])                         CCG17      21
                                                                                                                 CCG17      22
                                        *         TYPE I AND CONSTANT OPERANDS, JUMP TO SPECIAL PROCESSOR TO     CCG17      23
                                        *         EVALUATE THE VALUE OF THIS INSTRUCTION.                        CCG17      24
                                                                                                                 CCG17      25
                          5133002455 +            SA3    SBB.JT+"OC"                                             CCG17      26
           170  15650                             BX6    -X0*X5                                                  CCG17      27
                     63660                        SB6    X6          (B6) = RI                                   CCG17      28
                          6253000000              SB5    X3+                                                     CCG17      29
           171  0255000000                        JP     B5                                                      CCG17      30
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    15
        MASTER SQUEEZE LOOP                                           MSL                 SQUEEZE 
  
                                        **        JUMP TO INSTRUCTION PROCESSORS WITH -                          SQZ       552
                                        *         (A5) = R1 = ADDRESS OF R1 WORD  , (X5) = [R1]                  SQZ       553
                                        *         (A4) = DI, ADDRESS OF DESCRIPTOR , (X4) = [DI]                 SQZ       554
                                        *         (B6) = RI = RI[R1]                                             SQZ       555
                                        *         FOR TYPE I INSTRUCTIONS, (X1/X2) = RND(RJ)/RND(RK)             SQZ       556
                                                                                                                 SQZ       557
           172  15650                    MSL3     BX6    -X0*X5                                                  CCG17      32
                     63660                        SB6    X6          (B6) = RI                                   CCG17      33
                          0233002455 +            JP     SBB.JT+"OC" JUMP( SBB.JT(OC[R1]) )                      SQZ       560
  
  
  
                                        *         EOQ - END OF SEQUENCE                                          CCG17      35
                                        *         MAKE FURTHER PASS"S OVER THE INSTRUCTIONS TO ELIMINATE         CCG17      36
                                        *         THE USELESS DEFINITIONS AND COMPRESS OUT THE DEAD INSTRUCTIONS CCG17      37
                                                                                                                 CCG17      38
           173                                    PROCESS EOQ                                                    CCG17      39
           173  0100002141 +                      RJ     EDD         BACKWARDS SCAN TO TRANSFER USES             CCG17      40
                                        *                            AND ELIMINATE USELESS DEFINITIONS           CCG17      41
           174  0100002175 +                      RJ     UCT         UPDATE CVT/CUT                              CCG17      42
                                                  TRACE  EDD,RLIST                                               CCG17      43
                                                                                                                 CCG17      44
           175  0100002225 +                      RJ     EDI         COMPRESS SEQUENCE                           CCG17      45
                                                                                                                 CCG17      46
           176  5120000003 +                      SA2    BIAS                                                    CCG17      47
                          5105000000              SA0    B5+                                                     CCG17      48
           177  0100000000 X                      CALL   RNI#        RENUMBER THE INSTRUCTIONS                   CCG17      49
           200  7160000000                        SX6    0                                                       CCG17      50
                          5160000000 X            SA6    L.RND       L.RND = 0                                   CCG17      51
                                                  TRACE  SQZ.X,RLIST                                             CCG17      52
                                                                                                                 CCG17      53
           201  0100002274 +                      RJ     IXI         INSERT EXTRA INSTRUCTIONS                   CCG17      54
           202  0400000075 +                      EQ     SBB                                                     CCG17      55
  
  
  
                                        **        EPROC - DEFINE ADDRESSES FOR NAMES OF EVALUATE                 CCG17      57
                                        *                   CONSTANT PROCESSORS                                  CCG17      58
                                        *                                                                        CCG17      59
                                        *         EPROC  (A,B,C,...,Z)                                           CCG17      60
                                                                                                                 CCG17      61
                                                  PURGMAC EPROC                                                  CCG17      62
                                         EPROC    MACRO  P                                                       CCG17      63
                                                  IRP    P                                                       CCG17      64
                                                  NOREF  )P                                                      CCG17      65
                                         )P       BSS    0                                                       CCG17      66
                                                  IRP                                                            CCG17      67
                                         EPROC    ENDM                                                           CCG17      68
                                                                                                                 CCG17      69
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    16
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     SXT                 SQUEEZE 
  
                                        **        SPECIAL PROCESSING OF TYPE I INSTRUCTIONS                      SQZ       562
                                                                                                                 SQZ       563
           203                                    PROCESS SXT        CONSTANT SHIFT PREDECESSOR                  SQZ       564
           203                                    EPROC  SXT                                                     CCG17      70
           203  5034000004                        SA3    A4+4        DIS = DI + 4                                SQZ       565
                          20334                   LX3    59-D.KSP                                                SQZ       566
           204  0323000232 +                      PL     X3,AUC.RJ   IF ^KS[DIS]   */ NEXT IS NOT A CON SHIFT    SQZ       567
                          20101                   LX1    59-RN.CP                                                SQZ       568
           205  0321000214 +                      PL     X1,SXT0     IF ^C[RJ]                                   SQZ       569
                                                                                                                 SQZ       570
                                        *         CONSTANT OPERAND, EVALUATE SXT, SHIFT COMBINATION              SQZ       571
                                                                                                                 SQZ       572
                          20151                   LX1    1+RN.CP-RN.TPP                                          SQZ       573
                               53310              SA3    X1          R1J = TP[RJ]                                SQZ       574
           206  0100001247 +                      RJ     DCV         VAL = DCV(R1J)                              SQZ       575
           207  54242                             SA2    A4+B2       R1S = DI + 2                                SQZ       576
                     54321                        SA3    A2+B1       R2S = R1S + 1                               SQZ       577
                          26232                   UX2    B3,X2                                                   SQZ       578
                               20352              LX3    -IH.CAP                                                 SQZ       579
           210  6133777757                        SB3    B3-OC.KLS                                               SQZ       580
                          20123                   LX1    RN.TPP+59-RN.CP                                         SQZ       581
                               63430              SB4    X3                                                      SQZ       582
           211  22647                   +         LX6    B4,X7                                                   SQZ       583
                     0430000212 +                 ZR     B3,*+1      VAL[RI] = SHIFT( VAL[RJ] , CA[R2S] )        SQZ       584
                               23647              AX6    B4,X7                                                   SQZ       585
           212  43700                             MX7    0                                                       CCG17      71
                     54740                        SA7    A4          [DI] = 0      */ KILL THE *SXT*             SQZ       590
                          54542                   SA5    A4+B2       R1 = DI + 2                                 SQZ       591
                               54452              SA4    A5+B2       DI = R1 + 2   */ ADVANCE TO NEXT INSTRUCTIO SQZ       592
           213  15350                             BX3    -X0*X5                                                  SQZ       593
                     63630                        SB6    X3                                                      SQZ       594
                          0400001274 +            EQ     CCV                                                     SQZ       595
                                                                                                                 SQZ       596
           214  5120000005 C             SXT0     SA2    SXTC                                                    SQZ       597
                          0302000231 +            ZR     X2,SXT4     IF SXTC = 0   */ FIRST *SXT*                SQZ       598
           215  20151                             LX1    1+RN.CP-RN.TPP                                          SQZ       599
                     63510                        SB5    X1          DEFA = TP[RJ]                               SQZ       600
                          11505                   BX5    X0*X5       KEY = TYI(OC,RJ,0,0)                        SQZ       601
                               54342              SA3    A4+B2                                                   SQZ       602
           216  26743                             UX7    B4,X3                                                   SQZ       603
                     54331                        SA3    A3+B1                                                   SQZ       604
                          20352                   LX3    -IH.CAP                                                 SQZ       605
                               15630              BX6    -X0*X3                                                  SQZ       606
           217  27446                             PX4    B4,X6       OC.CA = TY1(OC[R1+4],0,0,CA[R1+5])          SQZ       607
                     0400000221 +                 EQ     SXT2                                                    SQZ       608
                                                                                                                 SQZ       609
                                        *         SEARCH THE SXT CHAIN FOR A PREVIOUS OCCURRENCE WITH THE        SQZ       610
                                        *         SAME SHIFT FOLLOWING                                           SQZ       611
                                                                                                                 SQZ       612
           220  53220                    SXT1     SA2    X2          SXTC = [SXTC]                               SQZ       613
                     63420                        SB4    X2                                                      SQZ       614
                          0654000230 +            LE     B4,B5,SXT3  IF SXTC @ DEFA                              SQZ       615
           221  5232777774               SXT2     SA3    X2-3        R1C = [SXTC-3]                              SQZ       616
                          11603                   BX6    X0*X3                                                   SQZ       617
                               37756              IX7    X5-X6                                                   SQZ       618
           222  0317000220 +                      NZ     X7,SXT1     IF KEY " TYI(OC,RJ,0,0)(SXTC)               SQZ       619
                          5033000005              SA3    A3+5                                                    SQZ       620
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    17
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     SXT                 SQUEEZE 
  
           223  20352                             LX3    -IH.CAP                                                 SQZ       621
                     15730                        BX7    -X0*X3                                                  SQZ       622
                          55331                   SA3    A3-B1                                                   SQZ       623
                               26643              UX6    B4,X3                                                   SQZ       624
           224  27647                             PX6    B4,X7                                                   SQZ       625
                     37764                        IX7    X6-X4                                                   SQZ       626
                          0317000220 +            NZ     X7,SXT1     IF OC.CA " OC.CA(SXTC+4)                    SQZ       627
                                                                                                                 SQZ       628
                                        *         MARK THE *SXT* AND THE FOLLOWING CON SHIFT AS REDUNDANT        SQZ       629
                                        *         NOTE - CON SHIFTS MAY NOT PRECEDE A STORE / REGISTER STORE.    SQZ       630
                                                                                                                 SQZ       631
           225  54740                             SA7    A4          [DI] = 0                                    SQZ       632
                     15230                        BX2    -X0*X3      RIP = RI[R1C]   */ RI OF FIRST SHIFT        SQZ       633
                          54542                   SA5    A4+B2       R1 = DI + 2   */ ADVANCE TO NEXT INST       SQZ       634
                               54752              SA7    A5+B2       [R1+2] = 0    */ MARK SHIFT DEAD            SQZ       635
           226  15450                             BX4    -X0*X5                                                  SQZ       636
                     53327                        SA3    "RN"+X2                                                 SQZ       637
                          10733                   BX7    X3                                                      SQZ       638
                               53747              SA7    "RN"+X4     RND(RI) = RND(RIP)                          SQZ       639
           227  54452                             SA4    A5+B2       DI = R1 + 2                                 SQZ       640
                     0400000156 +                 EQ     MSL1                                                    SQZ       641
                                                                                                                 SQZ       642
                                        *         ADD THE *SXT* TO THE CHAIN                                     SQZ       643
                                                                                                                 SQZ       644
           230  5120000005 C             SXT3     SA2    SXTC                                                    SQZ       645
                          10722                   BX7    X2                                                      SQZ       646
                               54741              SA7    A4+B1       [DI+1] = SXTC                               SQZ       647
           231  74641                    SXT4     SX6    A4+B1                                                   SQZ       648
                     54620                        SA6    A2          SXTC = DI + 1                               SQZ       649
                                        *         EQ     AUC.RJ                                                  SQZ       650
  
  
  
                                        **        AUC.RJ - ADVANCE USES COUNT FOR R-NUMBER IN *RJ* FIELD         SQZ       652
                                                                                                                 SQZ       653
           232                                    PROCESS DAR                                                    SQZ       654
           232  20534                    AUC.RJ   LX5    -R1.RJP                                                 SQZ       655
                     76210                        SX2    B1                                                      SQZ       656
                          15350                   BX3    -X0*X5                                                  SQZ       657
                               53137              SA1    "RN"+X3                                                 SQZ       658
           233  20244                             LX2    RN.USESP                                                SQZ       659
                     36621                        IX6    X2+X1       USES[RJ] = USES[RJ] + 1                     SQZ       660
                          5061000000              SA6    A1+                                                     SQZ       661
           234  0400000156 +                      EQ     MSL1                                                    SQZ       662
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    18
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     KLS                 SQUEEZE 
  
           235                                    PROCESS (KLS,KRS)  NON REDUNDANT CON SHIFT                     SQZ       664
           235  54251                             SA2    A5+B1       R2 = R1 + 1                                 SQZ       665
                     20252                        LX2    -IH.CAP                                                 CCG17      73
                          63420                   SB4    X2          CS = CA[R2]                                 CCG17      74
           236  6153777757                        SB5    "OC"-OC.KLS                                             CCG17      75
                          0440000241 +            ZR     B4,KLS1     IF CS = 0                                   CCG17      76
           237  0550000245 +                      NZ     B5,KLS2     IF OC " KLS                                 CCG17      77
                          6154777703              SB5    B4-60                                                   CCG17      78
           240  0550000245 +                      NZ     B5,KLS2     IF OC " 60                                  CCG17      79
                                                                                                                 CCG17      80
           241  43600                    KLS1     MX6    0                                                       CCG17      81
                     5064777773                   SA6    A4-4        DI[SXT] = 0   */ KILL SXT INSTR.            CCG17      82
                               55262              SA2    A6-B2       R1S = DI[SXT] - 2                           CCG17      83
           242  20234                             LX2    -R1.RJP                                                 CCG17      84
                     15620                        BX6    -X0*X2      RJS = RJ[R1S]                               CCG17      85
                          53167                   SA1    "RN"+X6     (X1) = RND(RJS)                             CCG17      86
                               76710              SX7    B1                                                      CCG40      12
           243  20744                             LX7    RN.USESP                                                CCG40      13
                     37717                        IX7    X1-X7                                                   CCG40      14
                          54710                   SA7    A1          DECREMENT USES COUNT ON SHIFT PRED.         CCG40      15
                               10177              BX1    X7                                                      CCG40      16
           244  20640                             LX6    R1.RJP                                                  CCG17      87
                     0400000247 +                 EQ     XMT0        GO TO GENERATE  (XMT RI,RJS )               CCG17      88
                                                                                                                 CCG17      89
           245  20252                    KLS2     LX2    IH.CAP-IH.RFP                                           CCG17      90
                     76310                        SX3    B1                                                      CCG17      91
                          53127                   SA1    "RN"+X2     RF = RND(RF)                                SQZ       668
                               20344              LX3    RN.USESP                                                SQZ       669
           246  36631                             IX6    X3+X1       USES[RF] = USES[RF] + 1                     SQZ       670
                     54610                        SA6    A1                                                      SQZ       671
                          0400000156 +            EQ     MSL1                                                    SQZ       672
  
  
  
           247  6130000010               XMT0     S"OC"  OC.XMT                                                  SQZ       674
                          0100001160 +            RJ     URI         GENERATE AN *XMT*                           SQZ       675
                                                                                                                 SQZ       676
           250                                    EPROC  XMT                                                     CCG17      92
           250                           XMT      PROCESS XMT                                                    SQZ       677
           250  0100000715 +                      RJ     CTI         CHECK TRANSMIT INSTRUCTION                  SQZ       678
           251  10644                             BX6    X4                                                      FCC0603    89
                     20625                        LX6    59-D.PRSP                                               FCC0603    90
                          0326000651 +            PL     X6,SRCH     IF ^PRS[DI]                                 FCC0603    91
           252  0400000232 +                      EQ     AUC.RJ                                                  FCC0603    92
  
  
                                        *         XMTC - UNARY COMPLEMENT                                        SQZ       681
                                                                                                                 SQZ       682
           253                                    EPROC  XMTC                                                    CCG17      93
           253                           XMTC     PROCESS XMTC                                                   SQZ       683
           253  10611                             BX6    X1                                                      CCG17      94
                     20606                        LX6    59-RN.XMTCP                                             CCG17      95
                          0326000256 +            PL     X6,XMTC1                                                CCG17      96
                                                                                                                 CCG17      97
                                        *         REDUCE -(-X) TO X                                              CCG17      98
                                                                                                                 SQZ       689
           254  20152                             LX1    -RN.TPP                                                 SQZ       690
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    19
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     XMTC                SQUEEZE 
  
                     53210                        SA2    X1          R1P = R1[TP[RJ]]                            SQZ       691
                          20234                   LX2    -R1.RJP                                                 SQZ       692
                               15620              BX6    -X0*X2                                                  SQZ       693
           255  53167                             SA1    "RN"+X6                                                 SQZ       694
                     20640                        LX6    R1.RJP                                                  SQZ       695
                          0400000247 +            EQ     XMT0                                                    SQZ       696
                                                                                                                 SQZ       697
           256  10611                    XMTC1    BX6    X1                                                      CCGA047     6
                     20601                        LX6    59-RN.CP                                                CCGA047     7
                          0326000264 +            PL     X6,XMTC2    IF ^C[RI]                                   CCGA047     8
                                                                                                                 CCGA047     9
           257  20152                             LX1    -RN.TPP                                                 CCGA047    10
                     53310                        SA3    X1                                                      CCG17     103
                          0100001247 +            RJ     DCV                                                     CCG17     104
           260  14677                             BX6    -X7         VAL = -DCV(TP[RI])                          CCG17     105
                     20122                        LX1    RN.TPP                                                  CCG17     106
                          6140000043              SB4    OC.FMA                                                  CCG17     107
           261  0454000264 +                      EQ     B5,B4,XMTC2 IF OC = OC.FMA  */ NO REDUCTION             CCG17     108
                          6140000103              SB4    OC.LDC                                                  CCG17     109
           262  0554001274 +                      NE     B5,B4,CCV   IF OC " OC.LDC                              CCG17     110
                          10744                   BX7    X4                                                      CCG17     111
                               20724              LX7    59-D.PSP                                                CCG17     112
           263  0327001274 +                      PL     X7,CCV      IF ^PS[DI]                                  CCG17     113
                                                                                                                 CCG17     114
           264  56276                    XMTC2    SA2    "RN"+B6                                                 CCG17     115
                     76610                        SX6    B1                                                      SQZ       721
                          20665                   LX6    RN.XMTCP                                                SQZ       722
                               12762              BX7    X6+X2       XMTC[RI] = 1                                SQZ       723
           265  20605                             LX6    RN.CP-RN.XMTCP                                          CCG17     116
                     11161                        BX1    X6*X1                                                   CCG17     117
                          12771                   BX7    X7+X1       C[RI] = C[RJ]                               CCG17     118
                               54720              SA7    A2                                                      SQZ       724
           266  0400000651 +                      EQ     SRCH                                                    SQZ       725
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    20
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     AND                 SQUEEZE 
  
           267                                    PROCESS AND                                                    SQZ       727
           267  12612                             BX6    X1+X2                                                   SQZ       728
                                                  LX6    59-RN.ZP                                                SQZ       729
                     0336001062 +                 MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ       730
                               37712              IX7    X1-X2                                                   SQZ       731
           270  0307000711 +                      ZR     X7,C.XMT    IF RJ = RK                                  SQZ       732
                          20606                   LX6    RN.ZP-RN.XMTCP                                          CCG17     119
           271  0326000651 +                      PL     X6,SRCH     IF ^XMTC[RJ] & ^XMTC[RK]                    SQZ       763
                          6130000015              S"OC"  OC.STR                                                  SQZ       764
           272  6150000040                        SB5    R1.RJP                                                  SQZ       765
                          0400000377 +            EQ     CAO                                                     SQZ       766
  
  
  
                                        *         MULTIPLY INSTRUCTION PROCESSING                                CCG17     121
                                                                                                                 CCG17     122
           273                                    PROCESS IM                                                     CCG17     123
           273  10644                             BX6    X4                                                      CCG17     124
                     20640                        LX6    59-D.USIP                                               CCG17     125
                          0326000275 +            PL     X6,DFM      IF ^USI[DI]                                 CCG17     126
           274  7160000001                        SX6    1                                                       CCG17     127
                          5160000011 C            SA6    IXF         IXF = 1       */ SET FOR *IXI* SCAN         CCG17     128
                                                                                                                 CCG17     129
           275                           DFM      PROCESS (DFM,FM,RFM)                                           CCG17     130
           275  12612                             BX6    X1+X2                                                   CCG17     131
                     20601                        LX6    59-RN.CP                                                CCG17     132
                          0326000651 +            PL     X6,SRCH     IF ^( C[RJ] ! C[RK] )                       SQZ       773
           276  10711                             BX7    X1                                                      CCG17     133
                     20701                        LX7    59-RN.CP                                                CCG17     134
                          0337000300 +            MI     X7,DFM1     IF C[RJ]                                    CCG17     135
           277  10122                             BX1    X2                                                      SQZ       784
                     20773                        LX7    1+RN.CP                                                 SQZ       785
                          10277                   BX2    X7                                                      SQZ       786
                                                                                                                 SQZ       787
           300  20152                    DFM1     LX1    -RN.TPP                                                 CCG17     136
                     53310                        SA3    X1                                                      SQZ       789
                          0100001247 +            RJ     DCV         VAL = VAL[RJ/RK]                            SQZ       790
           301  0307001062 +                      ZR     X7,ZERO     IF VAL = 0                                  CCG17     137
                          6143777675              SB4    "OC"-OC.IM                                              CCG17     138
           302  0540000316 +                      NZ     B4,FM1      IF OC " IM                                  CCG17     139
                          76310                   SX3    B1                                                      CCG17     140
                               36373              IX3    X7+X3                                                   CCG17     141
           303  0333000651 +                      MI     X3,SRCH     IF VAL < -1                                 SQZ       794
                          21302                   AX3    2                                                       SQZ       795
                               63470              SB4    X7                                                      SQZ       796
           304  0313000651 +                      NZ     X3,SRCH     IF VAL > 2                                  SQZ       797
                          53127                   SA1    "RN"+X2                                                 SQZ       798
                               15620              BX6    -X0*X2                                                  SQZ       799
           305  20640                             LX6    R1.RJP                                                  SQZ       800
                     6130000036                   S"OC"  OC.IA                                                   CCG17     142
           306  0442000313 +                      EQ     B4,B2,DFM3  IF VAL = 2                                  CCG17     143
                          0441000247 +            EQ     B4,B1,XMT0  IF VAL = 1                                  SQZ       802
                                                                                                                 CCG17     144
                                        *         VAL = -1                                                       CCG17     145
                                                                                                                 CCG17     146
           307  6130000014               DFM2     S"OC"  OC.XMTC                                                 CCG17     147
                          0100001160 +            RJ     URI         URI(  XMTC  RI,RJ )                         SQZ       804
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    21
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     DFM                 SQUEEZE 
  
           310  0400000253 +                      EQ     XMTC                                                    SQZ       805
                                                                                                                 SQZ       806
                                                                                                                 CCG17     148
                                        *         CONVERT 2*X TO X+X                                             CCG17     149
                                                                                                                 CCG17     150
           311  6143777737               DFM4     SB4    "OC"-OC.FM                                              CCG22      66
                          6130000030              S"OC"  OC.FA                                                   CCG22      67
           312  0440000313 +                      ZR     B4,DFM3     OC = IF( OC = OC.FM ) THEN OC.FA            CCG22      68
                          6130000034              S"OC"  OC.RFA                            ELSE OC.RFA           CCG22      69
                                                                                                                 CCG22      70
           313  10766                    DFM3     BX7    X6                                                      CCG17     151
                     20754                        LX7    R1.RKP-R1.RJP                                           SQZ       808
                          36667                   IX6    X6+X7                                                   SQZ       809
           314  0100001160 +                      RJ     URI                                                     SQZ       811
           315  0400000651 +                      EQ     SRCH                                                    SQZ       812
                                                                                                                 CCG17     152
                                        *         CHECK FLOATING MULTIPLY FOR POSSIBLE REDUCTION                 CCG17     153
                                                                                                                 CCG17     154
           316  6143777735               FM1      SB4    "OC"-OC.DFM                                             CCG17     155
                          0540000321 +            NZ     B4,FM2      IF OC " OC.DFM                              CCG22      71
           317  20715                             LX7    13                                                      CCG22      72
                     21715                        AX7    13                                                      CCG22      73
                          0307001062 +            ZR     X7,ZERO     IF DFM OF 2.**N  ( =0 )                     CCG22      74
           320  0400000651 +                      EQ     SRCH                                                    CCG22      75
                                                                                                                 CCG22      76
           321  10677                    FM2      BX6    X7                                                      CCG22      77
                     21660                        AX6    48                                                      CCG22      78
                          0306001062 +            ZR     X6,ZERO     IF EXP[VAL] = 0                             CCG17     158
                                                                                                                 CCG17     159
           322  7160017214                        SX6    2./1S45                                                 CCG22      79
                          20655                   LX6    45                                                      CCG17     161
                               37376              IX3    X7-X6                                                   CCG17     162
           323  15620                             BX6    -X0*X2                                                  CCG22      80
                     20640                        LX6    R1.RJP            */ SETUP X6 INCASE JUMP TO DFM4       CCG22      81
                          0303000311 +            ZR     X3,DFM4     IF VAL = 2.0                                CCG22      82
                                                                                                                 CCG22      83
                                                                                                                 CCG17     172
           324  7160017204               FM3      SX6    1./1S45                                                 CCG17     173
                          20655                   LX6    45                                                      CCG17     174
                               37376              IX3    X7-X6                                                   CCG17     175
           325  36776                             IX7    X7+X6                                                   CCG17     176
                     53127                        SA1    "RN"+X2                                                 CCG17     177
                          15620                   BX6   -X0*X2                                                   CCG17     178
                               20640              LX6    R1.RJP                                                  CCG17     179
           326  0303000247 +                      ZR     X3,XMT0     IF VAL = 1.0                                CCG17     180
                          0317000651 +            NZ     X7,SRCH     IF VAL " -1.0                               CCG17     181
           327  0400000307 +                      EQ     DFM2                                                    CCG17     182
                                                                                                                 SQZ       819
           330                                    PROCESS (FD,RFD)                                               SQZ       820
                                                  LX1    59-RN.ZP                                                SQZ       821
           330  0331001062 +                      MI     X1,ZERO     IF Z[RJ]                                    SQZ       822
                          20107                   LX1    RN.ZP-RN.PZP                                            SQZ       823
           331  0331001062 +                      MI     X1,ZERO     IF PZ[RJ]                                   SQZ       824
                          10722                   BX7    X2                                                      CCG17     183
                               20701              LX7    59-RN.CP                                                CCG17     184
           332  0327000651 +                      PL     X7,SRCH     IF ^C[RK]                                   CCG17     185
                          20751                   LX7    1+RN.CP-RN.TPP                                          CCG18     152
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    22
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     DFM                 SQUEEZE 
  
                               53370              SA3    X7                                                      CCG18     153
           333  0100001247 +                      RJ     DCV                                                     CCG17     188
           334  54210                             SA2    A1          (X2) = ^CONSTANT OPERAND                    CCG22      84
                     0400000324 +                 EQ     FM3         GO CHECK FOR X/1. , X/-1.                   CCG17     189
                                                                                                                 SQZ       826
           335                                    PROCESS OR                                                     SQZ       827
           335  37712                             IX7    X1-X2                                                   SQZ       831
                     0307000711 +                 ZR     X7,C.XMT    IF RJ = RK                                  SQZ       832
                               12612              BX6    X1+X2                                                   SQZ       833
                                                  LX6    59-RN.ZP                                                SQZ       834
           336  0336000711 +                      MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                            SQZ       835
                          20606                   LX6    RN.ZP-RN.XMTCP                                          SQZ       836
           337  0326000651 +                      PL     X6,SRCH     IF ^(XMTC[RJ] ! XMTC[RK])                   CCG17     190
                          6130000016              S"OC"  OC.IMP                                                  SQZ       838
           340  6150000040                        SB5    R1.RJP                                                  SQZ       839
                          0400000377 +            EQ     CAO                                                     SQZ       840
                                                                                                                 SQZ       841
           341                                    PROCESS XOR                                                    SQZ       842
           341  13612                             BX6    X1-X2                                                   SQZ       843
                     0306001062 +                 ZR     X6,ZERO     IF RND(RJ) = RND(RK)                        SQZ       844
                               12612              BX6    X1+X2                                                   SQZ       848
                                                  LX6    59-RN.ZP                                                SQZ       849
           342  0336000711 +                      MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                            SQZ       850
                          20606                   LX6    RN.ZP-RN.XMTCP                                          SQZ       851
           343  0326000651 +                      PL     X6,SRCH     IF ^(XMTC[RJ] ! XMTC[RK])                   CCG17     191
                          6130000017              S"OC"  OC.EQV                                                  SQZ       853
           344  6150000040                        SB5    R1.RJP                                                  SQZ       854
                          0400000377 +            EQ     CAO                                                     SQZ       855
  
  
           345                                    PROCESS IA                                                     SQZ       861
           345  12612                             BX6    X1+X2                                                   SQZ       865
                                                  LX6    59-RN.ZP                                                SQZ       866
                     0336000711 +                 MI     X6,C.XMT    IF Z[RJ] ! Z[RK]                            SQZ       867
                               20606              LX6    RN.ZP-RN.XMTCP                                          SQZ       868
           346  0336000376 +                      MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                      SQZ       869
                                                                                                                 FCC0514   214
                          10744                   BX7    X4                                                      FCC0716    12
                               20740              LX7    59-D.USIP                                               FCC0716    13
           347  0337000356 +                      MI     X7,IA1      IF USI[DI]    */ USI OR REDUCED IAZ/ISZ     FCC0716    14
                          20152                   LX1    -RN.TPP                                                 FCC0514   215
                               53310              SA3    X1          R1J = TP[RJ]                                FCC0514   216
           350  6150000037                        SB5    OC.IS                                                   FCC0514   217
                          26743                   UX7    B4,X3                                                   FCC0514   218
                               20122              LX1    RN.TPP                                                  FCC0514   219
           351  0545000356 +                      NE     B4,B5,IA1   IF OC[R1J] " OC.IS                          FCC0514   220
                                                                                                                 FCC0514   221
                          13753                   BX7    X5-X3                                                   FCC0514   222
                               20754              LX7    -R1.RKP                                                 FCC0514   223
           352  15770                             BX7    -X0*X7                                                  FCC0514   224
                     20334                        LX3    -R1.RJP     RJX = RJ[R1J]                               FCC0514   225
                          0317000356 +            NZ     X7,IA1      IF RK[R1] " RK[R1J]  */ NOT (J-K)+K         FCC1660X    6
                                                                                                                 FCC1660X    7
           353  10711                             BX7    X1                                                      FCC1660X    8
                     20704                        LX7    59-RN.INCP                                              FCC1660X    9
                          0327000415 +            PL     X7,I.XMT    IF ^INC[R1J]                                FCC1660X   10
           354  74730                             SX7    A3                                                      FCC1660X   11
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    23
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     IADD                SQUEEZE 
  
                     63530                        SB5    X3                                                      FCC1660X   12
                          5130000015 C            SA3    JPXA                                                    FCC1660X   13
           355  37773                             IX7    X7-X3                                                   FCC1660X   14
                     76350                        SX3    B5                                                      FCC1660X   15
                          0327000415 +            PL     X7,I.XMT    IF R1J > JPXA */ IN THE SAME BLOCK          FCC1660X   16
                                                                                                                 FCC0514   227
           356  20667                    IA1      LX6    RN.XMTCP-RN.CP                                          FCC0514   228
                     0326000651 +                 PL     X6,SRCH     IF ^( C(RJ] ! C[RK] )                       FCC0514   229
           357  0400000517 +                      EQ     CIA                                                     SQZ       872
  
  
  
                                        *         IAZ - ADD ZERO TO OPERAND PRIOR TO USE IN A CONDITIONAL JUMP   SQZ       874
                                                                                                                 SQZ       875
           360                                    PROCESS IAZ                                                    SQZ       876
           360  43702                             MX7    2                                                       SQZ       880
                     12612                        BX6    X1+X2       RJK = RJ ! RK                               SQZ       881
                          10366                   BX3    X6                                                      CCG40      17
                                                  LX3    59-RN.ZP                                                CCG40      18
           361  0323000651 +                      PL     X3,SRCH     IF _Z[RJK]  */ IAZ INVENTED AT CIA4         CCG40      19
                          20603                   LX6    58-RN.IACIP                                             SQZ       882
                               11776              BX7    X7*X6                                                   SQZ       883
           362  0317000364 +                      NZ     X7,IAZ1     IF IAC[RJK] ! INC[RJK]                      FCC0716    15
                          20603                   LX6    1+RN.IACIP-RN.XMTCP                                     SQZ       885
           363  0326000651 +                      PL     X6,SRCH     IF ^XMTC[RJK]                               SQZ       886
                          0400000376 +            EQ     FA1                                                     SQZ       887
                                                                                                                 FCC0716    16
           364  10622                    IAZ1     BX6    X2          RW = RKW                                    FCC0716    17
                                                  LX6    59-RN.ZP                                                FCC0716    18
                     0326000365 +                 PL     X6,IAZ2     IF ^Z[RKW]                                  FCC0716    19
                               10611              BX6    X1          RW = RJW                                    FCC0716    20
                                                  LX6    59-RN.ZP                                                FCC0716    21
           365  20652                    IAZ2     LX6    1+RN.ZP-RN.TPP                                          FCC0716    22
                     53362                        SA3    X6+B2       DP = TP[RW] + 2                             FCC0716    23
                          76710                   SX7    B1                                                      FCC0716    24
                               20733              LX7    D.USIP                                                  FCC0716    25
           366  12673                             BX6    X7+X3       USI[DP] = 1   */ INHIBIT FURTHER REDUCTION  FCC0716    26
                     54630                        SA6    A3                                                      FCC0716    27
                          0400000711 +            EQ     C.XMT                     */ GO CHANGE IAZ TO AN *XMT*  FCC0716    28
  
  
           367                                    PROCESS DFA                                                    SQZ       889
           367  12612                             BX6    X1+X2                                                   SQZ       890
                                                  LX6    59-RN.ZP                                                SQZ       891
                     0336001062 +                 MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ       892
                               20606              LX6    RN.ZP-RN.XMTCP                                          SQZ       893
           370  0336000376 +                      MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                      SQZ       894
                          0400000651 +            EQ     SRCH                                                    SQZ       895
                                                                                                                 SQZ       896
           371                                    PROCESS (FA,RFA)                                               SQZ       897
           371  12612                             BX6    X1+X2                                                   SQZ       901
                                                  LX6    59-RN.ZP                                                SQZ       902
                     0336000705 +                 MI     X6,F.XMT    IF Z[RJ] ! Z[RK]                            SQZ       903
                               20606              LX6    RN.ZP-RN.XMTCP                                          SQZ       904
           372  13712                             BX7    X1-X2                                                   SQZ       905
                     0336000376 +                 MI     X6,FA1      IF XMTC[RJ] ! XMTC[RK]                      SQZ       906
           373  0317000651 +                      NZ     X7,SRCH     IF RJ " RK    */ NOT X+X                    SQZ       907
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    24
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     DFA                 SQUEEZE 
  
                          56376                   SA3    "RN"+B6                                                 SQZ       908
                               76610              SX6    B1                                                      SQZ       909
           374  20663                             LX6    RN.NRP                                                  SQZ       910
                     12763                        BX7    X6+X3       NR[RND(RI)] = 1  */ INDICATE NORMALIZE NOT  SQZ       911
                          54730                   SA7    A3                                                      SQZ       912
           375  0400000651 +                      EQ     SRCH                                                    SQZ       913
                                                                                                                 SQZ       914
           376  6133000001               FA1      S"OC"  "OC"+1      OC = OC + 1   */ CHANGE ADD TO A SUBTRACT   SQZ       915
                          6150000020              SB5    R1.RKP                                                  SQZ       916
  
  
  
                                        **        CAO - CHANGE COMMUTATIVE-ADDITIVE OPERATION TO APPROPRIATE     SQZ       918
                                        *         SUBTRACTIVE OPERATION.                                         SQZ       919
                                        *                                                                        SQZ       920
                                        *         ENTRY  (B3) = NEW OPCODE                                       SQZ       921
                                        *                (B5) = RJ/RK SHIFT COUNT                                SQZ       922
                                        *                (X1/X2) = RND ENTRIES FOR RJ,RK                         SQZ       923
                                        *                (X5) = R1 WORD                                          SQZ       924
                                        *                (B6) = RI                                               SQZ       925
                                                                                                                 SQZ       926
           377  10611                    CAO      BX6    X1                                                      SQZ       927
                     20554                        LX5    -R1.RKP                                                 SQZ       928
                          20606                   LX6    59-RN.XMTCP                                             SQZ       929
           400  0336000401 +                      MI     X6,CAO1     IF XMTC[RJ]                                 SQZ       930
                          10122                   BX1    X2                                                      SQZ       931
                               20554              LX5    R1.RKP-R1.RJP                                           SQZ       932
                                                                                                                 SQZ       933
           401  15550                    CAO1     BX5    -X0*X5                                                  SQZ       934
                     20152                        LX1    -RN.TPP                                                 SQZ       935
                          53210                   SA2    X1          R1P = TP[RJ/K]                              SQZ       936
                               20234              LX2    -R1.RJP                                                 SQZ       937
           402  15120                             BX1    -X0*X2      NEW R NUM                                   SQZ       938
                     22751                        LX7    B5,X1                                                   SQZ       939
                          6155777717              SB5    B5-3*R1.RIL                                             SQZ       940
           403  23555                             AX5    B5,X5                                                   SQZ       941
                     12657                        BX6    X5+X7                                                   SQZ       942
                                                                                                                 SQZ       943
           404  76310                    CAO2     SX3    B1                                                      FCC0716    29
                     20333                        LX3    D.USIP                                                  FCC0716    30
                          11734                   BX7    X3*X4                                                   FCC0716    31
                               20741              LX7    -D.USIP                                                 FCC0716    32
           405  63470                             SB4    X7          U = USI[DI]                                 FCC0716    33
                     0100001160 +                 RJ     URI         UPDATE INSTRUCTION                          FCC0716    34
           406  76740                             SX7    B4                                                      FCC0716    35
                     20733                        LX7    D.USIP                                                  FCC0716    36
                          12774                   BX7    X7+X4       USI[DI] = USI[DI] ! U                       FCC0716    37
                               54740              SA7    A4                                                      FCC0716    38
           407  10477                             BX4    X7                                                      FCC0716    39
                     20634                        LX6    -R1.RJP                                                 SQZ       945
                          15760                   BX7    -X0*X6                                                  SQZ       946
                               53177              SA1    "RN"+X7     (X1) = RND(RJ)                              SQZ       947
           410  20620                             LX6    R1.RJP-R1.RKP                                           SQZ       948
                     15760                        BX7    -X0*X6                                                  SQZ       949
                          53277                   SA2    "RN"+X7     (X2) = RND(RK)                              SQZ       950
                               20442              LX4    59-D.CMP                                                SQZ       951
           411  0324000413 +                      PL     X4,CAO3     IF ^CM[DI]                                  SQZ       952
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    25
        MASTER SQUEEZE LOOP - TYPE I INSTRUCTIONS                     CAO                 SQUEEZE 
  
                          55452                   SA4    A5-B2       DI = R1 - 2                                 SQZ       953
           412  0400000156 +                      EQ     MSL1        */ ADJUST RJ,RK BEFORE PROCESSING           SQZ       954
                                                                                                                 SQZ       955
           413  20432                    CAO3     LX4    1+D.CMP                                                 SQZ       956
                     0233002455 +                 JP     SBB.JT+"OC" JUMP( OC )    */ PROCESS NEW INSTRUCTION    SQZ       957
  
  
  
                                        **        I.XMT - CHANGE IA/IS COMBINATION TO AN *XMT/XMTC*              FCC0514   231
                                        *                                                                        FCC0514   232
                                        *         ENTRY  (X3) = RJX , *RJ* OF *XMT/XMTC*                         FCC0514   233
                                                                                                                 FCC0514   234
           414  6130000014               I.XMTC   S"OC"  OC.XMTC     OC = OC.XMTC                                FCC0514   235
                          0400000416 +            EQ     I.XMT1                                                  FCC0514   236
                                                                                                                 FCC0514   237
           415  6130000010               I.XMT    S"OC"  OC.XMT      OC = OC.XMT                                 FCC0514   238
           416  15630                    I.XMT1   BX6    -X0*X3                                                  FCC0514   239
                     53167                        SA1    "RN"+X6     (X1) = RND(RJX)                             FCC0514   240
                          20640                   LX6    R1.RJP                                                  FCC0514   241
           417  0100001160 +                      RJ     URI         URI(  OC  RI,RJX )                          FCC0514   242
           420  0233002455 +                      JP     SBB.JT+"OC" JUMP(SBB.JT(OC))                            FCC0514   243
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    26
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         STR                 SQUEEZE 
  
           421                                    PROCESS STR        NAND  ( ^RJ & RK )                          SQZ       959
           421  13612                             BX6    X1-X2                                                   SQZ       960
                                                  LX2    59-RN.ZP                                                SQZ       961
                     0332001062 +                 MI     X2,ZERO     IF Z[RK]                                    SQZ       962
           422  0306001062 +                      ZR     X6,ZERO     IF RJ = RK                                  SQZ       963
                                                  LX1    59-RN.ZP                                                SQZ       964
                          0331000711 +            MI     X1,C.XMT    IF Z[RJ]                                    SQZ       965
           423  6130000011                        S"OC"  OC.AND                                                  SQZ       966
                          0400000431 +            EQ     EQV1                                                    SQZ       967
  
  
  
           424                                    PROCESS IMP        NOR  ( ^RJ ! RK )                           SQZ       969
           424  13612                             BX6    X1-X2                                                   SQZ       970
                     0306001077 +                 ZR     X6,FMA60    IF RJ = RK                                  SQZ       971
                                                  LX1    59-RN.ZP                                                SQZ       972
           425  0331001077 +                      MI     X1,FMA60    IF Z[RJ]                                    SQZ       973
                                                  LX2    59-RN.ZP                                                SQZ       974
                          0332000710 +            MI     X2,C.XMTC   IF Z[RK]                                    SQZ       975
           426  6130000012                        S"OC"  OC.OR                                                   SQZ       976
                          0400000431 +            EQ     EQV1                                                    SQZ       977
  
  
  
           427                                    PROCESS EQV        NXOR  ( ^RJ XOR RK )                        SQZ       979
           427  37712                             IX7    X1-X2                                                   SQZ       982
                     0307001077 +                 ZR     X7,FMA60    IF RJ = RK                                  SQZ       984
                               12612              BX6    X1+X2                                                   SQZ       985
                                                  LX6    59-RN.ZP                                                SQZ       986
           430  0336000710 +                      MI     X6,C.XMTC   IF Z[RJ] ! Z[RK]                            SQZ       987
                                                  LX1    59-RN.ZP                                                SQZ       988
                                                  LX2    59-RN.ZP                                                SQZ       989
                          6130000013              S"OC"  OC.XOR                                                  SQZ       990
                                                                                                                 SQZ       991
                                        *         CHANGE TO OPERATION NOT INVOLVING THE COMPLEMENT               SQZ       992
                                                                                                                 SQZ       993
           431  20106                    EQV1     LX1    RN.ZP-RN.XMTCP                                          SQZ       994
                     0321000651 +                 PL     X1,SRCH     IF ^XMTC[RJ]                                SQZ       995
                               20144              LX1    1+RN.XMTCP-RN.TPP                                       FCC0716    40
           432  53310                             SA3    X1          R1P = TP[RJ]                                SQZ       997
                     20554                        LX5    -R1.RKP                                                 SQZ       998
                          15550                   BX5    -X0*X5      RK                                          SQZ       999
                               20334              LX3    -R1.RJP                                                 SQZ      1000
           433  15630                             BX6    -X0*X3      RJ = RJ[R1P]                                SQZ      1001
                     0400000501 +                 EQ     SUB1                                                    SQZ      1002
  
  
  
           434                                    PROCESS DFS                                                    SQZ      1004
           434  12612                             BX6    X1+X2                                                   SQZ      1005
                                                  LX6    59-RN.ZP                                                SQZ      1006
                     37712                        IX7    X1-X2                                                   SQZ      1007
                          0336001062 +            MI     X6,ZERO     IF Z[RJ] ! Z[RK]                            SQZ      1008
           435  0317000476 +                      NZ     X7,SUB      IF RJ " RK                                  SQZ      1009
                          0400001062 +            EQ     ZERO                                                    SQZ      1010
                                                                                                                 SQZ      1011
                                                                                                                 CCG17     192
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    27
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         SUBTRACT            SQUEEZE 
  
           436                                    PROCESS (FS,RFS)                                               SQZ      1012
           436  37612                             IX6    X1-X2                                                   SQZ      1013
                     0306001062 +                 ZR     X6,ZERO     IF RJ = RK                                  SQZ      1014
                                                  LX2    59-RN.ZP                                                SQZ      1018
           437  0332000705 +                      MI     X2,F.XMT    IF Z[RK]                                    SQZ      1019
                                                  LX1    59-RN.ZP                                                SQZ      1020
                          0331000704 +            MI     X1,F.XMTC   IF Z[RJ]                                    SQZ      1021
                                                  LX2    1+RN.ZP                                                 SQZ      1022
           440  0400000476 +                      EQ     SUB                                                     SQZ      1023
                                                                                                                 SQZ      1024
           441                                    PROCESS IS                                                     SQZ      1029
           441  13612                             BX6    X1-X2                                                   SQZ      1030
                     63460                        SB4    X6                                                      SQZ      1031
                          0440001062 +            ZR     B4,ZERO     IF RN[RJ] = RN[RK]                          SQZ      1032
                                                  LX2    59-RN.ZP                                                SQZ      1036
           442  0332000711 +                      MI     X2,C.XMT    IF Z[RK]                                    SQZ      1037
                                                  LX1    59-RN.ZP                                                SQZ      1038
                          0331000710 +            MI     X1,C.XMTC   IF Z[RJ]                                    SQZ      1039
                                                  LX1    1+RN.ZP                                                 SQZ      1040
                                                  LX2    1+RN.ZP                                                 SQZ      1041
                                                                                                                 FCC0514   244
                                        *         CHECK FOR AND REDUCE COMBINATIONS OF THE FORM (J+K)-K , ETC.   FCC0514   245
                                                                                                                 FCC0514   246
           443  10744                             BX7    X4                                                      FCC0716    41
                     20740                        LX7    59-D.USIP                                               FCC0716    42
                          0337000472 +            MI     X7,IS4      IF USI[DI]    */ USI OR REDUCED IAZ/ISZ     FCC0716    43
           444  20152                             LX1    -RN.TPP                                                 FCC0514   247
                     53310                        SA3    X1          R1J = TP[RJ]  */ CHECK J OPERAND            FCC0514   248
                          6150000036              SB5    OC.IA                                                   FCC0514   249
           445  26743                             UX7    B4,X3                                                   FCC0514   250
                     20122                        LX1    RN.TPP                                                  FCC0514   251
                          0545000452 +            NE     B4,B5,IS1   IF OC[R1J] " OC.IA                          FCC0514   252
                                                                                                                 FCC0514   253
           446  20334                             LX3    -R1.RJP                                                 FCC0514   254
                     13723                        BX7    X2-X3                                                   FCC0514   255
                          20320                   LX3    R1.RJP-R1.RKP     RJX = RK[R1J]                         FCC0514   256
                               15770              BX7    -X0*X7                                                  FCC0514   257
           447  0307000451 +                      ZR     X7,IS1A     IF RJ[R1J] = RK  */ REDUCE (J+K)-J TO K     FCC1660X   17
                          13723                   BX7    X2-X3                                                   FCC0514   259
                               15770              BX7    -X0*X7                                                  FCC0514   260
           450  0317000472 +                      NZ     X7,IS4      IF RK[R1J] " RK */ NOT (K+J)-K              FCC0514   261
                          20354                   LX3    R1.RKP-R1.RJP     RJX = RJ[R1J]                         FCC0514   262
                                                                                                                 FCC1660X   18
           451  10611                    IS1A     BX6    X1          RJW = RND(RJ)                               FCC1660X   19
                     0400000465 +                 EQ     IS3A                                                    FCC1660X   20
                                                                                                                 FCC0514   264
           452  0543000455 +             IS1      NE     B4,B3,IS2   IF OC[R1J] " OC.IS                          FCC0514   265
                          20334                   LX3    -R1.RJP                                                 FCC0514   266
                               13723              BX7    X2-X3                                                   FCC0514   267
           453  15770                             BX7    -X0*X7                                                  FCC0514   268
                     0317000472 +                 NZ     X7,IS4      IF RJ[R1J] " RK  */ NOT (J-K)-J             FCC0514   269
                               20320              LX3    R1.RJP-R1.RKP     RJX = RK[R1P]                         FCC0514   270
           454  0400000414 +                      EQ     I.XMTC                                                  FCC0514   271
                                                                                                                 FCC0514   272
           455  20252                    IS2      LX2    -RN.TPP                                                 FCC0514   273
                     53320                        SA3    X2          R1K = TP[RK]  */ CHECK K OPERAND            FCC0514   274
                          20222                   LX2    RN.TPP                                                  FCC0514   275
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    28
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         SUBTRACT            SQUEEZE 
  
                               26743              UX7    B4,X3                                                   FCC0514   276
           456  0545000462 +                      NE     B4,B5,IS3   IF OC[R1K] " OC.IA                          FCC0514   277
                          20334                   LX3    -R1.RJP                                                 FCC0514   278
                               13713              BX7    X1-X3                                                   FCC0514   279
           457  20320                             LX3    R1.RJP-R1.RKP     RJX = RK[R1K]                         FCC0514   280
                     15770                        BX7    -X0*X7                                                  FCC0514   281
                          0307000414 +            ZR     X7,I.XMTC   IF RJ[R1K] = RJ  */ REDUCE J-(J+K) TO -K    FCC0514   282
           460  13713                             BX7    X1-X3                                                   FCC0514   283
                     15770                        BX7    -X0*X7                                                  FCC0514   284
                          0317000472 +            NZ     X7,IS4      IF RK[R1K] " RJ  */ NOT J-(K+J)             FCC0514   285
           461  20354                             LX3    R1.RKP-R1.RJP     RJX = RJ[R1K]                         FCC0514   286
                     0400000414 +                 EQ     I.XMTC                                                  FCC0514   287
                                                                                                                 FCC0514   288
           462  0543000472 +             IS3      NE     B4,B3,IS4   IF OC[R1K] " OC.IS                          FCC0514   289
                          13735                   BX7    X3-X5                                                   FCC0514   290
                               20734              LX7    -R1.RJP                                                 FCC0514   291
           463  15770                             BX7    -X0*X7                                                  FCC0514   292
                     0317000472 +                 NZ     X7,IS4      IF RJ[R1K] " RJ */ NOT J-(J-K)              FCC0514   293
                               20354              LX3    -R1.RKP     RJX = RK[R1K]                               FCC0514   294
           464  10622                             BX6    X2                                                      FCC1660X   21
                                                                                                                 FCC1660X   22
           465  20604                    IS3A     LX6    59-RN.INCP                                              FCC1660X   23
                     0326000415 +                 PL     X6,I.XMT    IF ^INC[RJW]                                FCC1660X   24
                               74730              SX7    A3                                                      FCC1660X   25
           466  63530                             SB5    X3                                                      FCC1660X   26
                     5130000015 C                 SA3    JPXA                                                    FCC1660X   27
                               37673              IX6    X7-X3                                                   FCC1660X   28
           467  76350                             SX3    B5                                                      FCC1660X   29
                     0326000415 +                 PL     X6,I.XMT    IF R1P > JPXA */ IN THE SAME BLOCK          FCC1660X   30
           470  0400000472 +                      EQ     IS4                                                     FCC1660X   31
           471  0400000415 +                      EQ     I.XMT                                                   FCC0514   295
                                                                                                                 FCC0514   296
           472  10622                    IS4      BX6    X2                                                      FCC1719X    5
                     20601                        LX6    59-RN.CP                                                FCC1719X    6
                          0336000517 +            MI     X6,CIA      IF C[RK]                                    FCC1719X    7
           473  12612                             BX6    X1+X2                                                   FCC1719X    8
                     20604                        LX6    59-RN.INCP                                              FCC1719X    9
                          0326000476 +            PL     X6,SUB      IF ^( INC[RJ] ! INC[RK] )                   FCC1424     5
                                                                                                                 SQZ      1049
                                        *         I = I + 1  $  IF( I .RO. N ) , MARK *IS* AS *INC*              SQZ      1050
                                                                                                                 SQZ      1051
           474  56376                             SA3    "RN"+B6                                                 SQZ      1052
                     76710                        SX7    B1                                                      SQZ      1053
                          20767                   LX7    RN.INCP                                                 SQZ      1054
                               12673              BX6    X7+X3       INC[RI] = 1                                 SQZ      1055
           475  54630                             SA6    A3                                                      SQZ      1056
                                                                                                                 SQZ      1057
           476  20206                    SUB      LX2    59-RN.XMTCP                                             SQZ      1058
                     0322000651 +                 PL     X2,SRCH     IF ^XMTC[RK]                                SQZ      1059
                               20244              LX2    1+RN.XMTCP-RN.TPP                                       SQZ      1060
           477  53320                             SA3    X2          R1P = TP[RK]                                SQZ      1061
                     67331                        S"OC"  "OC"-B1     CHANGE SUBTRACT TO AN ADD                   SQZ      1062
                          20534                   LX5    -R1.RJP                                                 SQZ      1063
                               15650              BX6    -X0*X5      RJ                                          SQZ      1064
           500  20334                             LX3    -R1.RJP                                                 SQZ      1065
                     15530                        BX5    -X0*X3      RK = RJ[R1P]                                SQZ      1066
                                                                                                                 SQZ      1067
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    29
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         SUBTRACT            SQUEEZE 
  
           501  37765                    SUB1     IX7    X6-X5                                                   SQZ      1068
                     0327000503 +                 PL     X7,SUB2     IF RJ \ RK                                  SQZ      1069
                               73750              SX7    X5                                                      SQZ      1070
           502  10566                             BX5    X6                                                      SQZ      1071
                     22607                        LX6    X7                                                      SQZ      1072
                                                                                                                 SQZ      1073
           503  20640                    SUB2     LX6    R1.RJP                                                  SQZ      1074
                     20520                        LX5    R1.RKP                                                  SQZ      1075
                          12656                   BX6    X5+X6                                                   SQZ      1076
           504  0400000404 +                      EQ     CAO2        GO UPDATE AND PROCESS CHANGED INSTRUCTION   SQZ      1077
  
  
                                        *         ISZ - ADD 0 AND CHANGE SIGN PRIOR TO USE IN CONDITIONAL JUMP   SQZ      1079
                                        *         THE RJ OPERAND SHOULD BE A  *CLR  RJ,0*                        CCG17     194
                                                                                                                 SQZ      1081
           505                                    PROCESS ISZ                                                    SQZ      1082
                                                                                                                 SQZ      1086
                                        *         SEE IF THE PRED ( *RK* ) IS AN *IS*, AND IF SO ELIMINATE THE   SQZ      1087
                                        *         *ISZ* BY REVERSING THE OPERANDS.                               SQZ      1088
                                                                                                                 SQZ      1089
           505  20252                             LX2    -RN.TPP                                                 SQZ      1090
                     53320                        SA3    X2          R1P = TP[RK]                                SQZ      1091
                          6130000037              S"OC"  OC.IS                                                   SQZ      1092
           506  26643                             UX6    B4,X3                                                   SQZ      1093
                     0543000651 +                 NE     B4,"OC",SRCH      IF OC[R1P] " OC.IS                    SQZ      1094
                                                  LX1    59-RN.ZP                                                CCG14       8
           507  0321000651 +                      PL     X1,SRCH     IF ^ Z[RJ]                                  CCG14       9
                          20634                   LX6    -R1.RJP                                                 SQZ      1095
                               15760              BX7    -X0*X6      J = RJ[R1P]                                 SQZ      1096
           510  53177                             SA1    "RN"+X7     RJW = RND(J)                                SQZ      1097
                     20225                        LX2    59-RN.IACP+RN.TPP                                       SQZ      1098
                          0332000513 +            MI     X2,ISZ1     IF IAC[RK]                                  SQZ      1099
           511  43202                             MX2    2                                                       SQZ      1100
                     20103                        LX1    58-RN.IACIP                                             SQZ      1101
                          11221                   BX2    X2*X1                                                   SQZ      1102
           512  0302000651 +                      ZR     X2,SRCH     IF ^( IAC[RJW] ! INC[RJW] )                 SQZ      1103
                                                                                                                 SQZ      1104
           513  20354                    ISZ1     LX3    -R1.RKP                                                 SQZ      1105
                     15330                        BX3    -X0*X3                                                  SQZ      1106
                          20720                   LX7    R1.RKP                                                  SQZ      1107
                               20340              LX3    R1.RJP                                                  SQZ      1108
           514  12637                             BX6    X3+X7                                                   SQZ      1109
                     0100001160 +                 RJ     URI         URI(  IS  RI,RK[R1P],RJ[R1P] )              SQZ      1110
           515  76310                             SX3    B1                                                      FCC0716    44
                     20333                        LX3    D.USIP                                                  FCC0716    45
                          12634                   BX6    X3+X4       USI[DI] = 1   */ INHIBIT FURTHER REDUCTION  FCC0716    46
                               54640              SA6    A4                                                      FCC0716    47
           516  12434                             BX4    X3+X4                                                   FCC0716    48
                     0400000651 +                 EQ     SRCH                                                    SQZ      1111
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    30
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         CIA                 SQUEEZE 
  
                                        **        CIA - CHECK IA/IS INSTRUCTION WITH A CONSTANT OPERAND          SQZ      1113
                                        *         SET *IAC* BIT IF NOT AN INCREMENT ( I = I +-CON )              SQZ      1114
                                                                                                                 SQZ      1115
                                  72     RN.CP    EQU    58                                                      SQZ      1116
           517  10744                    CIA      BX7    X4                                                      FCC0715     6
                     20751                        LX7    59-D.INCP                                               FCC0715     7
                          0337000533 +            MI     X7,CIA2A    IF INC[DI]                                  FCC0715     8
                                                                                                                 FCC0715     9
           520  10722                             BX7    X2          RCW = RK;  RVW = RJ                         FCC0715    10
                     22311                        LX3    B1,X1                                                   SQZ      1118
                          0323000522 +            PL     X3,CIA1     IF ^C[RJ]                                   SQZ      1119
           521  10711                             BX7    X1          RCW = RJ                                    SQZ      1120
                     10122                        BX1    X2          RVW = RK                                    SQZ      1121
                                                                                                                 SQZ      1122
           522  20752                    CIA1     LX7    -RN.TPP                                                 SQZ      1123
                     53370                        SA3    X7          R1P = TP[RCW]                               SQZ      1124
                          26643                   UX6    B4,X3                                                   SQZ      1125
                               20336              LX3    -R1.INP                                                 SQZ      1126
           523  6144777734                        SB4    B4-OC.FMA                                               SQZ      1127
                          7263777703              SX6    X3-60                                                   SQZ      1128
           524  0540000525 +                      NZ     B4,CIA2     IF OC[R1P] " OC.FMA                         SQZ      1129
                          0326000536 +            PL     X6,CIA4     IF IN[R1P] \ 60  */ A -0                    SQZ      1130
                                                                                                                 SQZ      1131
                                        *         CONSTANT OPERAND NOT -0, AND CANT BE A *CLR*, SET IAC/INC BIT  SQZ      1132
                                                                                                                 SQZ      1133
           525  54342                    CIA2     SA3    A4+B2       R1S = DI + 2  */ NEXT INSTRUCTION           SQZ      1134
                     6140000070                   SB4    RN.IACP     BIT = IAC                                   SQZ      1135
                               13653              BX6    X5-X3                                                   SQZ      1136
           526  15660                             BX6    -X0*X6                                                  FCC1025    14
                     0316000534 +                 NZ     X6,CIA3     IF RI[R1S] " RI[R1]                         FCC1025    15
                               26633              UX6    B3,X3                                                   SQZ      1139
           527  6150000051                        SB5    OC.ST                                                   FCC1025    16
                          0535000534 +            NE     B3,B5,CIA3  IF OC[R1S] " OC.ST  */  NOT ST RI,          FCC1025    17
                                                                                                                 SQZ      1142
           530  54331                             SA3    A3+B1       R2S = R1S + 1                               SQZ      1143
                     20152                        LX1    -RN.TPP                                                 SQZ      1144
                          53211                   SA2    X1+B1       R2P = TP[RVW] + 1                           SQZ      1145
                               13623              BX6    X2-X3                                                   SQZ      1146
           531  0316000534 +                      NZ     X6,CIA3     IF [R2P] " [R2S]  */ NOT I = I + CON        SQZ      1147
                          55221                   SA2    A2-B1       R1P = R2P - 1                               FCC1025    18
                               26632              UX6    B3,X2                                                   FCC1025    19
           532  6150000060                        SB5    OC.SA                                                   FCC1025    20
                          0435000541 +            EQ     B3,B5,CIA5  IF OC[R1P] = OC.SA                          FCC1025    21
                                                                                                                 FCC0715    11
           533  6140000067               CIA2A    SB4    RN.INCP     BIT = INC                                   FCC0715    12
                                                                                                                 SQZ      1149
           534  56376                    CIA3     SA3    "RN"+B6                                                 SQZ      1150
                     76610                        SX6    B1                                                      SQZ      1151
                          22746                   LX7    B4,X6                                                   SQZ      1152
                               12673              BX6    X7+X3       BIT[RND(RI)] = 1                            SQZ      1153
           535  54630                             SA6    A3                                                      SQZ      1154
                     0400000651 +                 EQ     SRCH                                                    SQZ      1155
                                                                                                                 SQZ      1156
                                        *         CON IS -0, CHANGE TO IAZ/ISZ SO *GPO* DOESNT THINK ITS AN *INC SQZ      1157
                                                                                                                 SQZ      1158
           536  11605                    CIA4     BX6    X0*X5                                                   SQZ      1159
                     6133000042                   S"OC"  "OC"-OC.IA+OC.IAZ                                       SQZ      1160
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    31
        MASTER SQUEEZE LOOP - TYPE I SUBTRACTIVE INSTRUCTIONS         CIA                 SQUEEZE 
  
           537  0100001160 +                      RJ     URI         CHANGE INSTRUCTION                          SQZ      1161
           540  0400000651 +                      EQ     SRCH                                                    SQZ      1162
                                                                                                                 FCC1025    22
                                        *         DEF/SA/INC/ST VAR SEQUENCE, CHANGE THE *INC* TO A *STT*.       FCC1025    23
                                                                                                                 FCC1025    24
           541  53370                    CIA5     SA3    X7          R1C = TP[RCW]                               FCC1025    25
                     0100001247 +                 RJ     DCV         C = DCV( R1C )                              FCC1025    26
           542  10644                             BX6    X4                                                      FCC1025    27
                     20642                        LX6    59-D.CMP                                                FCC1025    28
                          21673                   AX6    59                                                      FCC1025    29
                               17776              BX7    -X6-X7      C = XOR( C , ^CM[DI] )                      FCC1025    30
           543  43652                             MX6    -IH.CAL                                                 FCC1025A    1
                     15776                        BX7    -X6*X7                                                  FCC1025A    2
                          20234                   LX2    -R1.RJP                                                 FCC1025    31
                               15620              BX6    -X0*X2      RF = RJ[R1P]                                FCC1025    32
           544  20722                             LX7    IH.CAP                                                  FCC1025    33
                     20644                        LX6    IH.RFP                                                  FCC1025    34
                          12767                   BX7    X6+X7                                                   FCC1025    35
                               54751              SA7    A5+B1       [R1+1] = IHW(RF,C,0)                        FCC1025    36
           545  6130000052                        S"OC"  OC.STT                                                  FCC1025    37
                          43600                   MX6    0                                                       FCC1025    38
           546  0100001160 +                      RJ     URI         URI( STT  RI,RF,C )                         FCC1025    39
           547  0400000772 +                      EQ     .STT                                                    FCC1025    40
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    32
        MASTER SQUEEZE LOOP - PACK/UNPACK                             PK/UP               SQUEEZE 
  
           550                                    PROCESS PK                                                     SQZ      1164
                                                  LX1    59-RN.ZP                                                FCC1085    14
           550  0321000613 +                      PL     X1,IRCH     IF ^Z[RJ]     */ DONT OVERSQZ RJ USES       FCC1085    15
                          20040                   LX0    R1.RJP                                                  FCC1085    16
                               11605              BX6    X0*X5                                                   FCC1085    17
           551  11505                             BX5    X0*X5       RJ[R1] = 0    */ INCASE RJ " 0              FCC1085    18
                     54650                        SA6    A5                                                      FCC1085    19
                          20034                   LX0    -R1.RJP                                                 FCC1085    20
                                                  LX2    59-RN.ZP                                                FCC1085    21
           552  0322000651 +                      PL     X2,SRCH     IF ^Z[RK]     */ NOT A PACKED  ZERO         FCC1085    22
                                                                                                                 FCC1085    23
                          76710                   SX7    B1                                                      SQZ      1168
                               56376              SA3    "RN"+B6                                                 SQZ      1169
           553  20764                             LX7    RN.PZP                                                  SQZ      1170
                     12673                        BX6    X7+X3                                                   SQZ      1171
                          54630                   SA6    A3          PZ[RI] = 1                                  SQZ      1172
           554  0400000651 +                      EQ     SRCH                                                    SQZ      1173
  
  
  
           555                                    PROCESS (NR,RNZ)                                               SQZ      1175
           555  10322                             BX3    X2                                                      CCG17     195
                     20301                        LX3    59-RN.CP                                                CCG17     196
                          0323000560 +            PL     X3,NR0      IF ^C[RND(RK)]                              CCG18     154
           556  63410                             SB4    X1                                                      CCG18     155
                     0614001216 +                 LE     B4,B1,ECO.NR      IF RJ @ 1                             CCG18     156
           557  0400001224 +                      EQ     ECO4                                                    CCG18     157
                                                                                                                 CCG18     158
                                         NR0      LX1    59-RN.ZP                                                CCG18     159
           560  0321000564 +                      PL     X1,NR1      IF ^Z[RJ]                                   SQZ      1177
                          20306                   LX3    RN.CP-RN.PZP                                            CCG17     198
           561  0333001062 +                      MI     X3,ZERO     IF PZ[RK]                                   SQZ      1182
                          20301                   LX3    RN.PZP-RN.NRP                                           SQZ      1183
                               76610              SX6    B1                                                      SQZ      1184
           562  0333000671 +                      MI     X3,SRCH4    IF NR[RK]                                   SQZ      1185
                          56376                   SA3    "RN"+B6                                                 SQZ      1186
                               20663              LX6    RN.NRP                                                  SQZ      1187
           563  12763                             BX7    X6+X3       NR[RI] = 1                                  SQZ      1188
                     54730                        SA7    A3                                                      SQZ      1189
                          0400000651 +            EQ     SRCH                                                    SQZ      1190
                                                                                                                 SQZ      1191
           564  63410                    NR1      SB4    X1                                                      SQZ      1192
                     0541000606 +                 NE     B4,B1,UP4   IF RJ " 1     */ NOT *PNR*                  FCC0514   298
                                                                                                                 FCC0514   299
                               20252              LX2    -RN.TPP                                                 SQZ      1194
           565  53220                             SA2    X2          R1P = TP[RK]                                SQZ      1195
                     26742                        UX7    B4,X2                                                   SQZ      1196
                          0543000651 +            NE     B4,"OC",SRCH      IF OC[R1P] " OC[R1]                   SQZ      1197
           566  20734                             LX7    -R1.RJP                                                 SQZ      1198
                     15670                        BX6    -X0*X7                                                  SQZ      1199
                          76310                   SX3    B1                                                      SQZ      1200
                               63460              SB4    X6                                                      SQZ      1201
           567  0714000606 +                      GT     B4,B1,UP4   IF RJ[R1P] > 1                              SQZ      1202
                                                                                                                 SQZ      1203
                          20340                   LX3    R1.RJP                                                  SQZ      1204
                               12623              BX6    X2+X3       RJ[R1P] = 1                                 FCC0514   300
           570  54620                             SA6    A2                                                      SQZ      1206
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    33
        MASTER SQUEEZE LOOP - PACK/UNPACK                             NR                  SQUEEZE 
  
                     12223                        BX2    X2+X3                                                   SQZ      1207
                          0400000671 +            EQ     SRCH4             */ GO ELIMINITE THE INSTRUCTION       SQZ      1208
  
  
  
           571                                    PROCESS UP                                                     SQZ      1210
           571  10322                             BX3    X2                                                      CCG17     199
                     20301                        LX3    59-RN.CP                                                CCG17     200
                          0333001224 +            MI     X3,ECO4     IF C[RK]                                    CCG17     201
           572  20252                             LX2    -RN.TPP                                                 CCG17     202
                     66422                        SB4    B2+B2                                                   SQZ      1214
                          53324                   SA3    X2+B4       R1S = TP[RK] + 4                            SQZ      1215
                               64550              SB5    A5                                                      SQZ      1216
           573  5120000607 +                      SA2    UPA                                                     SQZ      1217
                          11525                   BX5    X2*X5       KEY = TYI(UP,0,RK,0)                        SQZ      1218
                                                                                                                 SQZ      1219
           574  11623                    UP1      BX6    X2*X3                                                   SQZ      1220
                     54334                        SA3    A3+B4       R1S = R1S + 4                               SQZ      1221
                          37756                   IX7    X5-X6                                                   SQZ      1222
           575  0317000574 +                      NZ     X7,UP1      IF [R1S-4] " KEY                            SQZ      1223
                          54550                   SA5    A5                                                      SQZ      1224
                               65334              SB3    A3-B4                                                   SQZ      1225
           576  0635000606 +                      GE     B3,B5,UP4   IF R1S \ R1   */ INSTRUCTION NOT REDUNDANT  SQZ      1226
                                                                                                                 SQZ      1227
                          55334                   SA3    A3-B4                                                   SQZ      1228
                                                  LX1    59-RN.ZP                                                SQZ      1229
           577  0331000603 +                      MI     X1,UP2      IF Z[RJ]      */ BI,B0 CASE                 SQZ      1230
                          20334                   LX3    -R1.RJP                                                 SQZ      1231
                               15230              BX2    -X0*X3                                                  SQZ      1232
           600  0302000606 +                      ZR     X2,UP4      IF Z[RJ[R1S]]  */ CANNOT HANDLE B0,BI CASE  SQZ      1233
                                                                                                                 SQZ      1234
                          43674                   MX6    60                                                      SQZ      1235
           601  5064000004                        SA6    A4+4        [DI+4] = -0   */ MARK FOLLOWING *RS* AS DEA SQZ      1236
                          53227                   SA2    "RN"+X2                                                 SQZ      1237
                               10622              BX6    X2                                                      SQZ      1238
           602  20534                             LX5    -R1.RJP                                                 SQZ      1239
                     15250                        BX2    -X0*X5                                                  SQZ      1240
                          53627                   SA6    "RN"+X2     RND(RJ[R1]) = RND(RJ[R1S])                  SQZ      1241
                               20340              LX3    R1.RJP                                                  SQZ      1242
                                                                                                                 SQZ      1243
           603  15230                    UP2      BX2    -X0*X3                                                  SQZ      1244
                     53127                        SA1    "RN"+X2                                                 SQZ      1245
                          10611                   BX6    X1          RND(RI[R1]) = RND(RI[R1S])                  SQZ      1246
                               54332              SA3    A3+B2       DJ = R1S + 2                                SQZ      1247
           604  56676                             SA6    "RN"+B6                                                 SQZ      1248
                     12634                        BX6    X3+X4       DJ = DJ ! DI                                SQZ      1249
                          54740                   SA7    A4          [DI] = 0                                    SQZ      1250
                               54630              SA6    A3                                                      SQZ      1251
           605  0400000156 +                      EQ     MSL1                                                    SQZ      1252
                                                                                                                 SQZ      1253
           606  20520                    UP4      LX5    R1.RJP-R1.RKP                                           SQZ      1254
                     0400000232 +                 EQ     AUC.RJ                                                  SQZ      1255
                                                                                                                 SQZ      1256
           607  77770000037777600000     UPA      VFD    12/-0,16/0,16/-0,16/0                                   SQZ      1257
  
  
  
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    34
        MASTER SQUEEZE LOOP - PACK/UNPACK                             ILS                 SQUEEZE 
  
                                         TEMP     IFNE   0,0                                                     SQZ      1259
                                                  PROCESS (ILS,IRS)                                              SQZ      1260
                                                  BX6    X1+X2                                                   SQZ      1261
                                                  SB3    B3-OC.ILS                                               SQZ      1262
                                                  LX6    59-RN.CP                                                SQZ      1263
                                                  PL     X6,SRCH     IF ^( C[RJ] ! C[RK] )                       SQZ      1264
                                                  LX2    59-RN.ZP                                                CCG17     203
                                                  MI     X2,ZERO     IF Z[RK]                                    SQZ      1277
                                                  LX1    59-RN.ZP                                                SQZ      1278
                                                  PL     X1,SRCH     IF ^Z[RJ]                                   SQZ      1279
                                                  BX1    X2                                                      SQZ      1280
                                                  S"OC"  OC.XMT                                                  SQZ      1281
                                                  EQ     C.XMT2      GO OUTPUT XMT( RI , RK )                    SQZ      1282
                                         TEMP     ELSE                                                           SQZ      1283
  
  
  
  
                                        *         THIS TEMPORARY CODE IS NECESSARY UNTIL MCG/JAM IS ABLE TO      SQZ      1285
                                        *         CODE SEQUENCES CONTAINING B-REGISTER JAMS.  THIS ILS/IRS       SQZ      1286
                                        *         PROCESSOR USES A SPECIAL SEARCH/SQUEEZE LOOP (IRCH) THAT       SQZ      1287
                                        *         SUPPRESSES ELIMINATION OF B-REG TRANSMITS (SHORT ADDS) PRE-    SQZ      1288
                                        *         CEDING INDEXED SHIFTS.  ONLY S, SA, OR STT PREDECESSORS ARE    FCC0872     4
                                        *         CORRECTLY HANDLED AND THEY MUST DIRECTLY PRECEDE THE SHIFT IN  SQZ      1290
                                        *         THE SEQUENCE ALONG WITH THE RS.                                SQZ      1291
                                                                                                                 SQZ      1292
           610                                    PROCESS (ILS,IRS)                                              SQZ      1293
                                                  LX2    59-RN.ZP                                                CCG17     204
           610  0332001062 +                      MI     X2,ZERO     IF Z[RK]                                    SQZ      1310
                                                  LX1    59-RN.ZP                                                SQZ      1311
                          0321000613 +            PL     X1,IRCH     IF ^Z[RJ]                                   SQZ      1312
           611  10122                             BX1    X2                                                      SQZ      1313
                     6130000010                   S"OC"  OC.XMT                                                  SQZ      1314
           612  0400000713 +                      EQ     C.XMT2      GO OUTPUT XMT( RI , RK )                    SQZ      1315
  
  
  
  
           613  11605                    IRCH     BX6    X0*X5       KEY = TYI(OC,RJ,RK,0)                       SQZ      1350
                     20554                        LX5    -R1.RKP                                                 SQZ      1351
                          15350                   BX3    -X0*X5                                                  SQZ      1352
                               66422              SB4    B2+B2       (B4) = 4                                    SQZ      1353
           614  20554                             LX5    R1.RKP-R1.RJP                                           SQZ      1354
                     53237                        SA2    "RN"+X3                                                 SQZ      1355
                          15350                   BX3    -X0*X5                                                  SQZ      1356
                               20252              LX2    -RN.TPP                                                 SQZ      1357
           615  53137                             SA1    "RN"+X3                                                 SQZ      1358
                     63520                        SB5    X2                                                      SQZ      1359
                          20152                   LX1    -RN.TPP                                                 SQZ      1360
                               63310              SB3    X1          R1S = TP[RJ]                                SQZ      1361
           616  0635000617 +                      GE     B3,B5,IRCH1 IF R1S \ TP[RK]                             SQZ      1362
                          66350                   SB3    B5          R1S = TP[RK]                                SQZ      1363
                                                                                                                 SQZ      1364
           617  5133000004               IRCH1    SA3    B3+4        R1S = R1S + 4                               SQZ      1365
                          64520                   SB5    A2                                                      SQZ      1366
                                                                                                                 SQZ      1367
                                        *         SEARCH FORWARD FROM MAX OF DEF ADDRESS OF OPERANDS.            SQZ      1368
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    35
        MASTER SQUEEZE LOOP - PACK/UNPACK                                                 SQUEEZE 
  
                                                                                                                 SQZ      1369
           620  11703                    IRCH2    BX7    X0*X3                                                   SQZ      1370
                     54334                        SA3    A3+B4                                                   SQZ      1371
                          37567                   IX5    X6-X7                                                   SQZ      1372
           621  0315000620 +                      NZ     X5,IRCH2    IF [R1S] " KEY                              SQZ      1373
                          55232                   SA2    A3-B2                                                   SQZ      1374
                               65334              SB3    A3-B4                                                   SQZ      1375
           622  0302000620 +                      ZR     X2,IRCH2    IF [DS] = 0   */ DEAD INSTRUCTION           SQZ      1376
                          65353                   SB3    A5-B3                                                   SQZ      1377
           623  0703000664 +                      GT     B3,SRCH3    IF R1S < R1M  */ INSTRUCTION IS REDUNDANT   SQZ      1378
                                                                                                                 SQZ      1379
                          54250                   SA2    A5          R1J = R1      */ SEARCH FOR J OPERAND       CCG16     245
           624  55224                    IRCH2A   SA2    A2-B4       R1J = R1J - 4                               CCG16     246
                     26732                        UX7    B3,X2                                                   CCG16     247
                          7123777773              SX2    B3-OC.RS                                                CCG16     248
           625  0312000624 +                      NZ     X2,IRCH2A   IF OC[R1J] " OC.RS                          CCG16     249
                          65324                   SB3    A2-B4       R1J = R1J - 4 */ POINT TO J OPERAND         CCG16     250
                               43262              MX2    -RN.USESL                                               SQZ      1381
           626  20152                             LX1    RN.TPP-RN.USESP                                         SQZ      1382
                     15512                        BX5    -X2*X1                                                  SQZ      1383
                          0305000646 +            ZR     X5,IRCH5    IF USES[RND(RJ)] = 0                        SQZ      1384
           627  56232                             SA2    B3+B2       DI = R1J + 2 ;  DIW = [DI]                  SQZ      1385
                     56330                        SA3    B3          R1I = R1J ;  R1W = [R1I]                    SQZ      1386
                          43701                   MX7    1                                                       SQZ      1387
           630  0312000646 +                      NZ     X2,IRCH5    IF DIW .NE. 0 */ INS. NOT SQUEEZED          SQZ      1388
                          20747                   LX7    1+D.PRSP                                                SQZ      1389
                               26563              UX5    B6,X3       OCI = OC[R1W]                               SQZ      1390
           631  5136000000 X                      SA3    =XF.RDT+B6                                              SQZ      1391
                          12637                   BX6    X3+X7                                                   SQZ      1392
                               54620              SA6    A2          [DI] = RDT(OCI) .OR. D.PRS                  SQZ      1393
                                                  LX6    58-D.TYP                                                SQZ      1394
           632  0336000636 +                      MI     X6,IRCH3    IF TY[DIW] = 3  */ STT                      SQZ      1395
                          22216                   LX2    B1,X6                                                   FCC0872     5
           633  0332000640 +                      MI     X2,IRCH4    IF TY[DIW] = 2  */ S                        FCC0872     6
                          10655                   BX6    X5                                                      SQZ      1396
                               20634              LX6    -R1.RJP                                                 SQZ      1397
           634  15260                             BX2    -X0*X6                                                  SQZ      1398
                     53327                        SA3    "RN"+X2                                                 SQZ      1399
                          43601                   MX6    1                                                       SQZ      1400
                               20645              LX6    1+RN.USESP                                              SQZ      1401
           635  36636                             IX6    X3+X6                                                   SQZ      1402
                     54630                        SA6    A3          USES[RND(RJ[R1W])] = USES[RND(RJ[R1W])] + 1 SQZ      1403
                          0400000640 +            EQ     IRCH4                                                   SQZ      1404
                                                                                                                 SQZ      1405
           636  56331                    IRCH3    SA3    B3+B1       R2I = R1I + 1 ;  R2W = [R2]                 SQZ      1406
                     20330                        LX3    -IH.RFP                                                 SQZ      1407
                          53337                   SA3    "RN"+X3                                                 SQZ      1408
                               43601              MX6    1                                                       SQZ      1409
           637  20645                             LX6    1+RN.USESP                                              SQZ      1410
                     36636                        IX6    X3+X6                                                   SQZ      1411
                          54630                   SA6    A3          USES[RND(RF[R2W])] = USES[RND(RF[R2W])] + 1 SQZ      1412
                                                                                                                 SQZ      1413
           640  5130000004 X             IRCH4    SA3    =XF.RDT+OC.RS                                           SQZ      1414
                          10633                   BX6    X3                                                      SQZ      1415
                               54624              SA6    A2+B4       [DI+4] = RDT(OC.RS)                         SQZ      1416
           641  15550                             BX5    -X0*X5      RIJ = RI[R1W]                               SQZ      1417
                     54250                        SA2    A5                                                      SQZ      1418
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    36
        MASTER SQUEEZE LOOP - PACK/UNPACK                                                 SQUEEZE 
  
                          20234                   LX2    -R1.RJP                                                 SQZ      1419
                               11202              BX2    X0*X2                                                   SQZ      1420
           642  12625                             BX6    X2+X5                                                   SQZ      1421
                     20640                        LX6    R1.RJP                                                  SQZ      1422
                          54620                   SA6    A2                                                      SQZ      1423
                               73250              SX2    X5                                                      SQZ      1424
                                                  LX5    RN.RNP                                                  SQZ      1425
           643  20772                             LX7    RN.USESP-D.PRSP                                         SQZ      1426
                     12657                        BX6    X5+X7                                                   SQZ      1427
                          76530                   SX5    B3                                                      SQZ      1428
                               20522              LX5    RN.TPP                                                  SQZ      1429
           644  12665                             BX6    X6+X5                                                   SQZ      1430
                     53627                        SA6    "RN"+X2     RND(RJ) = RNW(RIJ,1,R1J)                    SQZ      1431
                          56250                   SA2    B5                                                      SQZ      1432
                               36772              IX7    X7+X2       USES[RK] = USES[RK] +1                      SQZ      1433
           645  54720                             SA7    A2                                                      SQZ      1434
                     0400000156 +                 EQ     MSL1                                                    SQZ      1435
                                                                                                                 SQZ      1436
           646  20144                    IRCH5    LX1    RN.USESP                                                SQZ      1437
                     76510                        SX5    B1                                                      SQZ      1438
                          20544                   LX5    RN.USESP                                                SQZ      1439
                               36651              IX6    X5+X1       USES[RJ] = USES[RJ] + 1                     SQZ      1440
           647  54610                             SA6    A1                                                      SQZ      1441
                     56250                        SA2    B5                                                      SQZ      1442
                          36752                   IX7    X5+X2       USES[RK] = USES[RK] + 1                     SQZ      1443
                               54720              SA7    A2                                                      SQZ      1444
           650  0400000156 +                      EQ     MSL1                                                    SQZ      1445
                                         TEMP     ENDIF                                                          SQZ      1446
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    37
        SRCH - SEARCH FOR PREVIOUS OCCURANCE OF TYPE I INST           SRCH                SQUEEZE 
  
                                        **        SRCH - SEARCH FOR PREVIOUS OCCURRENCE OF TYPE I INSTRUCTION.   SQZ      1448
                                        *         ENTRY  (X5) = R1 WORD , (B6) = RI                              SQZ      1449
                                                                                                                 SQZ      1450
           651                                    PROCESS (CX,SS)                                                SQZ      1451
           651  11605                    SRCH     BX6    X0*X5       KEY = TYI(OC,RJ,RK,0)  */ SEARCH KEY        SQZ      1452
                     20554                        LX5    -R1.RKP                                                 SQZ      1453
                          15350                   BX3    -X0*X5                                                  SQZ      1454
                               66422              SB4    B2+B2       (B4) = 4                                    SQZ      1455
           652  20554                             LX5    R1.RKP-R1.RJP                                           SQZ      1456
                     53237                        SA2    "RN"+X3                                                 SQZ      1457
                          15350                   BX3    -X0*X5                                                  SQZ      1458
                               20252              LX2    -RN.TPP                                                 SQZ      1459
           653  53137                             SA1    "RN"+X3                                                 SQZ      1460
                     63520                        SB5    X2                                                      SQZ      1461
                          20152                   LX1    -RN.TPP                                                 SQZ      1462
                               63310              SB3    X1                                                      SQZ      1463
           654  0635000655 +                      GE     B3,B5,SRCH1 R1S = MAX( TP[RJ] , TP[RK] ) */ MIN SRCH AD SQZ      1464
                          6135000000              SB3    B5+                                                     SQZ      1465
           655  5133000004               SRCH1    SA3    B3+4        R1S = R1S + 4                               SQZ      1466
                          64520                   SB5    A2                                                      SQZ      1467
                                                                                                                 SQZ      1468
                                        *         SEARCH FORWARD FROM MAX OF DEF ADDRESS OF OPERANDS.            SQZ      1469
                                                                                                                 SQZ      1470
           656  11703                    SRCH2    BX7    X0*X3                                                   SQZ      1471
                     54334                        SA3    A3+B4                                                   SQZ      1472
                          37567                   IX5    X6-X7                                                   SQZ      1473
           657  0315000656 +                      NZ     X5,SRCH2    IF [R1S] " KEY                              SQZ      1474
                          55232                   SA2    A3-B2                                                   SQZ      1475
                               65334              SB3    A3-B4                                                   SQZ      1476
           660  0302000656 +                      ZR     X2,SRCH2    IF [DS] = 0   */ DEAD INSTRUCTION           SQZ      1477
                          65353                   SB3    A5-B3                                                   SQZ      1478
           661  0703000664 +                      GT     B3,SRCH3    IF R1S < R1M  */ INSTRUCTION IS REDUNDANT   SQZ      1479
                                                                                                                 SQZ      1480
                                        *         INSTRUCTION NOT REDUNDANT, BUMP USES OF OPERANDS               SQZ      1481
                                                                                                                 SQZ      1482
                          20122                   LX1    RN.TPP                                                  SQZ      1483
                               76510              SX5    B1                                                      SQZ      1484
           662  20544                             LX5    RN.USESP                                                SQZ      1485
                     36651                        IX6    X5+X1       USES[RJ] = USES[RJ] + 1                     SQZ      1486
                          54610                   SA6    A1                                                      SQZ      1487
                               56250              SA2    B5                                                      SQZ      1488
           663  36752                             IX7    X5+X2       USES[RK] = USES[RK] + 1                     SQZ      1489
                     54720                        SA7    A2                                                      SQZ      1490
                          0400000156 +            EQ     MSL1                                                    SQZ      1491
                                                                                                                 SQZ      1492
                                        *         SRCH4 - REDUNDANT INSTRUCTION FOUND, ATTEMPT TO ELIMINATE IT   SQZ      1493
                                        *         ENTRY  (X2) = WORD WITH RJ, RIGHT JUSTIFIED                    SQZ      1494
                                        *                (X4) = INSTRUCTION DESCRIPTOR                           SQZ      1495
                                        *                (B6) = RI OF CURRENT INSTRUCTION                        SQZ      1496
                                                                                                                 SQZ      1497
           664  55132                    SRCH3    SA1    A3-B2       DIS = R1S - 2                               CCG17     205
                     54550                        SA5    A5          REFETCH R1 WORD                             CCG17     206
                          54440                   SA4    A4          REFETCH DESCR                               CCG17     207
                               55212              SA2    A1-B2       RJ = RI[R1S-4]                              CCG17     208
           665  13614                             BX6    X1-X4                                                   CCG17     209
                     20640                        LX6    59-D.USIP                                               CCG17     210
                          0326000671 +            PL     X6,SRCH4    IF USI[DIS] = USI[DI]                       CCG17     211
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    38
        SRCH - SEARCH FOR PREVIOUS OCCURANCE OF TYPE I INST           SRCH                SQUEEZE 
  
           666  26635                             UX6    "OC",X5                                                 CCG17     212
                     7163777675                   SX6    "OC"-OC.IM                                              CCG17     213
           667  0316000671 +                      NZ     X6,SRCH4    IF OC[R1] " OC.IM                           CCG17     214
                                                                                                                 CCG17     215
                          76610                   SX6    B1                                                      CCG17     216
                               20633              LX6    D.USIP                                                  CCG17     217
           670  15716                             BX7    -X6*X1      USI[DIS] = 0  */ SAFE IF ONE IS ALWAYS EXEC CCG17     218
                     54710                        SA7    A1                                                      CCG17     219
                                                                                                                 SQZ      1500
                                                                                                                 SQZ      1501
           671  43672                    SRCH4    MX6    -D.STRSL                                                SQZ      1502
                     15220                        BX2    -X0*X2                                                  SQZ      1503
                          20646                   LX6    D.STRSP                                                 SQZ      1504
                               53127              SA1    "RN"+X2                                                 SQZ      1505
           672  15746                             BX7    -X6*X4                                                  SQZ      1506
                     0317000674 +                 NZ     X7,SRCH5    IF STRS[DI] " 0                             SQZ      1507
                               54740              SA7    A4          [DI] = 0                                    SQZ      1508
           673  10611                             BX6    X1                                                      SQZ      1509
                     56676                        SA6    "RN"+B6     RND(RI) = RND(RJ)                           SQZ      1510
                          0400000156 +            EQ     MSL1                                                    SQZ      1511
                                                                                                                 SQZ      1512
                                        *         STRS[DI] " 0, CHANGE TO AN XMT AND LET THE *XMT* PROCESSOR     SQZ      1513
                                        *         DO THE REST OF THE DIRTY WORK.                                 SQZ      1514
                                                                                                                 SQZ      1515
           674  56376                    SRCH5    SA3    "RN"+B6                                                 FCC1413     5
                     20304                        LX3    59-RN.INCP                                              FCC1413     6
                          0323000677 +            PL     X3,SRCH5A   IF ^INC[RI]                                 FCC1413     7
           675  76710                             SX7    B1                                                      FCC1413     8
                     20767                        LX7    RN.INCP                                                 FCC1413     9
                          12171                   BX1    X7+X1       INC[RJ] = 1                                 FCC1413    10
                               20701              LX7    RN.IACP-RN.INCP                                         FCC1413    11
           676  15617                             BX6    -X7*X1      IAC[RJ] = 0                                 FCC1413    12
                     54610                        SA6    A1                                                      FCC1413    13
                                                                                                                 FCC1413    14
           677  43706                    SRCH5A   MX7    -RN.XMTP                                                FCC1413    15
                     15117                        BX1    -X7*X1      XMT[RJ] = 0   */ SO WE CAN SQUEEZE XMITS    SQZ      1517
                                                                                                                 SQZ      1518
           700  20240                    SRCH6    LX2    R1.RJP                                                  SQZ      1519
                     6130000010                   S"OC"  OC.XMT                                                  SQZ      1520
                               10622              BX6    X2                                                      SQZ      1521
           701  0100001160 +                      RJ     URI         GENERATE AN XMT                             SQZ      1522
           702  0100000715 +                      RJ     CTI         TRY AND ELIMINATE IT                        SQZ      1523
           703  0400000232 +                      EQ     AUC.RJ                                                  SQZ      1524
  
  
  
                                        **        F.XMTC/F.XMT - FLOATING POINT ADD/SUB REDUCES TO AN XMT/XMTC   SQZ      1526
                                                                                                                 SQZ      1527
           704  6130000014               F.XMTC   S"OC"  OC.XMTC                                                 SQZ      1528
                          0400000706 +            EQ     F.XMT1                                                  SQZ      1529
                                                                                                                 SQZ      1530
           705  6130000010               F.XMT    S"OC"  OC.XMT                                                  SQZ      1531
           706  56376                    F.XMT1   SA3    "RN"+B6                                                 SQZ      1532
                     76610                        SX6    B1                                                      SQZ      1533
                          20663                   LX6    RN.NRP                                                  SQZ      1534
                               12763              BX7    X6+X3       NR[RI] = 1    */ RESULT IS NORMALIZED FLAG  SQZ      1535
           707  54730                             SA7    A3                                                      SQZ      1536
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    39
        SRCH - SEARCH FOR PREVIOUS OCCURANCE OF TYPE I INST           C.XMT               SQUEEZE 
  
                     0400000712 +                 EQ     C.XMT1                                                  SQZ      1537
  
  
  
                                        *         C.XMT / C.XMTC - CHANGE INSTRUCTION TO XMT / XMTC              SQZ      1539
                                                                                                                 SQZ      1540
           710  6130000014               C.XMTC   S"OC"  OC.XMTC                                                 SQZ      1541
                          0400000712 +            EQ     C.XMT1                                                  SQZ      1542
                                                                                                                 SQZ      1543
           711  6130000010               C.XMT    S"OC"  OC.XMT                                                  SQZ      1544
           712  54110                    C.XMT1   SA1    A1                                                      SQZ      1545
                                                  LX1    59-RN.ZP                                                SQZ      1546
                     0321000713 +                 PL     X1,C.XMT2   IF ^Z[RJ]                                   SQZ      1547
                               54120              SA1    A2                                                      SQZ      1548
                                                  LX1    59-RN.ZP                                                SQZ      1549
                                         C.XMT2   LX1    1+RN.ZP                                                 SQZ      1550
           713  15610                             BX6    -X0*X1                                                  SQZ      1551
                     20640                        LX6    R1.RJP                                                  SQZ      1552
                          0100001160 +            RJ     URI         UPDATE REDUCED INSTRUCTION                  SQZ      1553
           714  53117                             SA1    "RN"+X1     (X1) = RND(RJ)                              SQZ      1554
                     0233002455 +                 JP     SBB.JT+"OC" JUMP( OC )                                  SQZ      1555
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    40
        CTI - CHECK TRANSMIT INSTRUCTION                              CTI                 SQUEEZE 
  
                                        **        CTI - CHECK *XMT* INSTRUCTION TO SEE IF IT CAN BE ELIMINATED.  SQZ      1557
                                        *                                                                        SQZ      1558
                                        *         ENTRY  (X1) = RND(RJ)                                          SQZ      1559
                                        *                X4,X5,B6 AS FROM THE MAIN LOOP                          SQZ      1560
                                        *                                                                        SQZ      1561
                                        *         EXIT   (X5) = [R1] IF XMT CANNOT BE ELIMINATED, ELSE TO MAIN L SQZ      1562
                                                                                                                 SQZ      1563
           715  0200400715 +             CTI      ROUTINE                                                        SQZ      1564
                                                                                                                 SQZ      1565
                                        *         ELIMINATE XMT/XMT SEQUENCES                                    SQZ      1566
                                                                                                                 SQZ      1567
           716  20105                    CTI0     LX1    59-RN.XMTP                                              SQZ      1568
                     0321000723 +                 PL     X1,CTI1     IF ^XMT[RJ]                                 SQZ      1569
                               20145              LX1    1+RN.XMTP-RN.TPP                                        SQZ      1570
           717  53210                             SA2    X1          R1J = TP[RJ]                                SQZ      1571
                     6130000010                   S"OC"  OC.XMT                                                  SQZ      1572
                               76560              SX5    B6                                                      SQZ      1573
           720  20234                             LX2    -R1.RJP                                                 SQZ      1574
                     15320                        BX3    -X0*X2      RJ = RJ[R1J]                                SQZ      1575
                          53137                   SA1    "RN"+X3                                                 SQZ      1576
                               20340              LX3    R1.RJP                                                  SQZ      1577
           721  27633                             PX6    "OC",X3                                                 SQZ      1578
                     36765                        IX7    X6+X5                                                   SQZ      1579
                          54750                   SA7    A5          [R1] = TYI(XMT,RJ,0,RI)                     SQZ      1580
                               12565              BX5    X6+X5                                                   SQZ      1581
           722  0400000716 +                      EQ     CTI0                                                    SQZ      1582
                                                                                                                 SQZ      1583
                                        *         DETERMINE PRECEDENCE BIT SETTING AND JUMP TO PROCESSOR.        SQZ      1584
                                                                                                                 SQZ      1585
           723  20145                    CTI1     LX1    1+RN.XMTP-RN.TPP                                        SQZ      1586
                     53312                        SA3    X1+B2       DJ = [TP[RJ]+2]                             SQZ      1587
                          43272                   MX2    -D.STRSL                                                SQZ      1588
                               20426              LX4    -D.STRSP                                                SQZ      1589
           724  15642                             BX6    -X2*X4                                                  SQZ      1590
                     63460                        SB4    X6                                                      SQZ      1591
                          20326                   LX3    -D.STRSP                                                SQZ      1592
                               15732              BX7    -X2*X3                                                  SQZ      1593
           725  20122                             LX1    RN.TPP                                                  SQZ      1594
                     63570                        SB5    X7                                                      SQZ      1595
                          0244000726 +            JP     CTI2+B4     JUMP( STRS[DI] )  */ 0 - 2 = -/PRS/PS       SQZ      1596
                                                                                                                 SQZ      1597
           726  0400000731 +             CTI2     EQ     CTI3        STRS[DI] = 0                                SQZ      1598
                                                                                                                 SQZ      1599
           727  0450000735 +                      ZR     B5,CTI4     IF STRS[DJ] = 0                             SQZ      1600
                          0400000745 +            EQ     CTI5                                                    SQZ      1601
                                                                                                                 SQZ      1602
           730  0450000752 +                      ZR     B5,CTI6     IF PS[DI]                                   SQZ      1603
                          0451000745 +            EQ     B5,B1,CTI5  IF PS[DI] & PRS[DJ]                         SQZ      1604
                                                                                                                 SQZ      1605
                                        *         STRS[DI] = 0 OR PS[DI] & PS[DJ] , ELIMINATE *XMT*              SQZ      1606
                                                                                                                 SQZ      1607
           731  56276                    CTI3     SA2    "RN"+B6                                                 SQZ      1608
                     76710                        SX7    B1                                                      SQZ      1609
                          20763                   LX7    RN.NRP                                                  SQZ      1610
                               11272              BX2    X7*X2                                                   SQZ      1611
           732  12621                             BX6    X2+X1       RND(RI) = RND(RJ) ! NR[RI]                  SQZ      1612
                     54620                        SA6    A2                                                      SQZ      1613
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    41
        CTI - CHECK TRANSMIT INSTRUCTION                              CTI                 SQUEEZE 
  
                          43700                   MX7    0                                                       SQZ      1614
                               76440              SX4    B4                                                      SQZ      1615
           733  54740                             SA7    A4          [DI] = 0                                    SQZ      1616
                     12634                        BX6    X3+X4                                                   SQZ      1617
                          20646                   LX6    D.STRSP                                                 SQZ      1618
                               54630              SA6    A3          DJ = DJ ! STRS[DI]                          SQZ      1619
           734  0400000156 +                      EQ     MSL1                                                    SQZ      1620
                                                                                                                 SQZ      1621
                                        *         PRS[DI] AND STRS[DJ] = 0                                       SQZ      1622
                                        *         KEEP XMT IF RJ IS A *DEF* OR *KS*, OR A *LD* AND THE *RS* IS   SQZ      1623
                                        *         NOT TO A LD REGISTER .                                         SQZ      1624
                                                                                                                 SQZ      1625
           735  5120000770 +             CTI4     SA2    CTIB                                                    SQZ      1626
                          22703                   LX7    X3                                                      SQZ      1627
                               11623              BX6    X2*X3                                                   SQZ      1628
           736  0316000745 +                      NZ     X6,CTI5     IF PI[DJ] ! KS[DJ]                          SQZ      1629
                          20776                   LX7    D.STRSP+59-D.LDP                                        SQZ      1630
                               43671              MX6    -SO.RNL                                                 SQZ      1631
           737  0327000731 +                      PL     X7,CTI3     IF ^LD[DJ]                                  SQZ      1632
                                                                                                                 CCG0041    10
                                         #DAL     IFNE   .DAL,0                                                  SQZ      1633
                          20703                   LX7    D.LDP-D.XMTP                                            CCG0041    11
           740  0337000742 +                      MI     X7,CTI4A    IF XMT[DJ]    */ LEVEL 0 *LD*               CCG0041    12
                          20770                   LX7    D.XMTP-D.L2P                                            CCG0041    13
           741  0337000731 +                      MI     X7,CTI3     IF L2[DJ]                                   SQZ      1635
                                                                                                                 CCG0041    14
           742                           CTI4A    BSS    0                                                       CCG0041    15
                                         #DAL     ENDIF                                                          SQZ      1636
                                                                                                                 CCG0041    16
           742  54242                             SA2    A4+B2       R1RS = DI + 2                               SQZ      1637
                     43705                        MX7    5                                                       SQZ      1638
                          20254                   LX2    -R1.SOP                                                 SQZ      1639
                               15626              BX6    -X6*X2      REGN = SORN[R1RS]                           SQZ      1640
           743  20773                             LX7    -1                                                      SQZ      1641
                     63560                        SB5    X6                                                      SQZ      1642
                          22757                   LX7    B5,X7                                                   SQZ      1643
           744  0337000731 +                      MI     X7,CTI3     IF 1 @ REGN @ 5  */ A LD REG                SQZ      1644
                                                                                                                 SQZ      1645
                                        *         KEEP *XMT*                                                     SQZ      1646
                                                                                                                 SQZ      1647
                                                                                                                 FCC1825X    5
           745  5120000771 +             CTI5     SA2    CTIC                                                    FCC1825X    6
                          20346                   LX3    D.STRSP                                                 FCC1825X    7
                               16632              BX6    -X2+X3                                                  FCC1825X    8
           746  0306000764 +                      ZR     X6,CTI8     IF ZP[DJ] & (SZ[DJ] = 1) & (TY[DJ] = II)    FCC1825X    9
                          56276                   SA2    "RN"+B6                                                 FCC1825X   10
                               54452              SA4    A5+B2       DI = R1 + 2   */ RESTORE X4                 FCC0603    93
           747  76310                             SX3    B1                                                      SQZ      1649
                     20366                        LX3    RN.XMTP                                                 SQZ      1650
                          12632                   BX6    X3+X2       XMT[RI] = 1                                 SQZ      1651
                               20304              LX3    RN.CP-RN.XMTP                                           CCG17     220
           750  11331                             BX3    X3*X1                                                   CCG17     221
                     12663                        BX6    X6+X3       C[RI] = C[RJ]                               CCG17     222
                          54620                   SA6    A2                                                      SQZ      1652
           751  0400000715 +                      EQ     CTI                                                     SQZ      1653
                                                                                                                 SQZ      1654
                                        *         *XMT* PRECEDES A STORE. ELIMINATE IF PRED CAN PRECEDE A STORE. SQZ      1655
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    42
        CTI - CHECK TRANSMIT INSTRUCTION                              CTI                 SQUEEZE 
  
                                                                                                                 SQZ      1656
           752  5120000767 +             CTI6     SA2    CTIA                                                    SQZ      1657
                          11623                   BX6    X2*X3                                                   SQZ      1658
                                         #DAL     IFEQ   .DAL,0                                                  SQZ      1659
                                                  NZ     X6,CTI5     IF LD[DJ] ! KS[DJ]                          SQZ      1660
                                         #DAL     ELSE                                                           SQZ      1661
           753  0306000760 +                      ZR     X6,CTI7     IF ^( LD[DJ] ! KS[DJ] )                     SQZ      1662
                          10233                   BX2    X3                                                      SQZ      1663
                               20201              LX2    D.STRSP-1-D.L2P                                         SQZ      1664
           754  0322000745 +                      PL     X2,CTI5     IF ^L2[DJ]                                  SQZ      1665
                          20204                   LX2    D.L2P-D.XMTP                                            CCG35      68
           755  0332000745 +                      MI     X2,CTI5     IF XMT[DI]    */ LEVEL 0 LD                 CCG35      69
                          20213                   LX2    D.XMTP-D.FPP                                            CCG0154     6
           756  0322000760 +                      PL     X2,CTI7     IF NOT FP[DJ] */ ELIMINATE XMT              CCG0154     7
                          5120000000 X            SA2    =XHO$OPT                                                CCG0154     8
           757  0332000745 +                      MI     X2,CTI5     IF OPT .EQ. 2                               CCG0154     9
                                                                                                                 CCG0154    10
                                        *         FP LOAD MAY CHANGE TO A LOAD OF A LC. , KEEP THE XMT           CCG0154    11
                                                                                                                 CCG0154    12
           760                           CTI7     BSS    0                                                       SQZ      1666
                                         #DAL     ENDIF                                                          SQZ      1667
           760  10233                             BX2    X3                                                      SQZ      1668
                     20207                        LX2    D.STRSP-1-D.PIP                                         SQZ      1669
                          0322000731 +            PL     X2,CTI3     IF ^PI[DJ]    */ RJ NOT A *DEF*             SQZ      1670
                                                                                                                 SQZ      1671
           761  55232                             SA2    A3-B2       R1J = DJ - 2                                SQZ      1672
                     43671                        MX6    -SO.RNL                                                 SQZ      1673
                          20254                   LX2    -R1.SOP                                                 SQZ      1674
                               15726              BX7    -X6*X2                                                  SQZ      1675
           762  7267777771                        SX6    X7-6                                                    SQZ      1676
                          0336000745 +            MI     X6,CTI5     IF SORN[R1J] < 6  */ NOT A STORE REG        SQZ      1677
           763  66400                             SB4    B0          STRS[DI] = 0                                SQZ      1678
                     0400000731 +                 EQ     CTI3                                                    SQZ      1679
                                                                                                                 FCC1825X   11
                                        *         CLR OR FMA THAT PRS IN 2 REGS, DUPLICATE IT INSTEAD OF AN XMT  FCC1825X   12
                                                                                                                 FCC1825X   13
           764  55232                    CTI8     SA2    A3-B2                                                   FCC1825X   14
                     54452                        SA4    A5+B2       DESCR OF XMT                                FCC1825X   15
                          11602                   BX6    X0*X2       OC AND IN OF R1J                            FCC1825X   16
                               26732              UX7    "OC",X2                                                 FCC1825X   17
           765  0100001160 +                      RJ     URI         CHANGE INSTRUCTION                          FCC1825X   18
           766  0233002455 +                      JP     SBB.JT+"OC"                                             FCC1825X   19
                                                                                                                 SQZ      1680
           767                           CTIA     BFMW   D,(LD,KS),60-D.STRSP                                    SQZ      1681
           770                           CTIB     BFMW   D,(KS,PI),60-D.STRSP                                    SQZ      1682
           771  2                        CTIC     VFD    D.TYL/1     TYPE = II                                   FCC1825X   20
                                  33              POS    D.ZPP+1                                                 FCC1825X   21
                           4                      VFD    1/1                                                     FCC1825X   22
                                  31              POS    D.SZP+D.SZL                                             FCC1825X   23
                           040000000              VFD    D.SZL/1,*P/0                                            FCC1825X   24
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    43
        MISCELLANEOUS INSTRUCTION PROCESSING                          STT                 SQUEEZE 
  
                                        **        MISCELLANEOUS INSTRUCTION SQUEEZING                            SQZ      1684
                                        *         INSTRUCTIONS MAY BE REGISTER STORED TO X OR B REGISTERS.       SQZ      1685
                                        *         OR THEY ARE TYPE II ( NO PREDECESSORS ).                       SQZ      1686
                                                                                                                 SQZ      1687
           772                                    PROCESS STT                                                    SQZ      1688
           772  54251                             SA2    A5+B1       R2 = R1 + 1                                 SQZ      1689
                     5130002077 +                 SA3    ARFA                                                    FCC0792     4
                               20230              LX2    -IH.RFP                                                 FCC0792     5
           773  53127                             SA1    "RN"+X2     RFW = RND(RF[R2])                           FCC0792     6
                     11602                        BX6    X0*X2       R2W = [R2]                                  FCC0792     7
                          73710                   SX7    X1          RF[R2W] = RN[RFW]                           FCC0792     8
                               11331              BX3    X3*X1                                                   FCC0792     9
           774  0303000775 +                      ZR     X3,STT0     IF ^(C,SA,IAC,XMT)[RFW]                     FCC0792    10
                          0100002112 +            RJ     ARF         ADJUST RF,CA                                SQZ      1698
                                                                                                                 SQZ      1699
           775  0306001022 +             STT0     ZR     X6,STT5     IF CAIH[R2W] = 0  */ REDUCE TO SA           SQZ      1700
                          12667                   BX6    X6+X7                                                   SQZ      1701
                               63470              SB4    X7          R = RF[R2W]                                 SQZ      1702
           776  20644                             LX6    IH.RFP                                                  SQZ      1703
                     10566                        BX5    X6                                                      SQZ      1704
                          73760                   SX7    X6                                                      SQZ      1705
                               54651              SA6    A5+B1       [R2] = R2W                                  SQZ      1706
           777  6150001020 +                      SB5    STT4                                                    SQZ      1707
                          5120000003 C            SA2    MIC                                                     SQZ      1708
          1000  0714001004 +                      GT     B4,B1,STT2  IF R > 1                                    SQZ      1709
                          0540001003 +            NZ     B4,STT1     IF R " 0                                    SQZ      1710
          1001  0317001003 +                      NZ     X7,STT1     IF IH[R2W] " 0                              SQZ      1711
                                                                                                                 SQZ      1712
                                        *         RF & IH = 0 , CHANGE INST TO A *S*                             SQZ      1713
                                                                                                                 SQZ      1714
                          20652                   LX6    -IH.CAP                                                 SQZ      1715
                               73760              SX7    X6          VAL = CA[R2]                                SQZ      1716
          1002  43600                             MX6    0                                                       SQZ      1717
                     54651                        SA6    A5+B1       [R2] = 0                                    SQZ      1718
                          0400001035 +            EQ     SA0                                                     SQZ      1719
                                                                                                                 SQZ      1720
          1003  76310                    STT1     SX3    B1                                                      SQZ      1721
                     20332                        LX3    D.ZPP                                                   SQZ      1722
                          12743                   BX7    X4+X3       ZP[DI] = 1                                  SQZ      1723
                               54740              SA7    A4                                                      SQZ      1724
                                                                                                                 SQZ      1725
          1004  20152                    STT2     LX1    -RN.TPP                                                 SQZ      1726
                     6231000003                   SB3    X1+3        DEFA = TP[RFW] + 3                          SQZ      1727
                               63420              SB4    X2          I = MIC                                     SQZ      1728
          1005  73650                             SX6    X5                                                      FCC1928     6
                     0306001013 +                 ZR     X6,STT3     IF IH[R2] = 0 */ NO IH                      FCC1928     7
                                                                                                                 FCC1928     8
                                         .FTN     IFEQ   HC.ID,2                                                 CCG34      26
          1006  5120000000 X                      SA2    =XS=TRACE                                               CCG34      27
                          13726                   BX7    X2-X6                                                   CCG34      28
          1007  0307001013 +                      ZR     X7,STT3     IF IH[R2] = TRACE.  */ A-GOTO ERROR CHECK   CCG34      29
                                         .FTN     ENDIF                                                          CCG34      30
                                                                                                                 CCG0006     5
                                         .LCM     IFNE   .DAL,0                                                  CCG0006     6
                          5120000002 +            SA2    LCM#G                                                   CCG0006     7
          1010  20243                             LX2    1+D.STP                                                 CCG0006     8
                     11724                        BX7    X2*X4                                                   CCG0006     9
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    44
        MISCELLANEOUS INSTRUCTION PROCESSING                          STT                 SQUEEZE 
  
                          0317001013 +            NZ     X7,STT3     IF LCM = G AND L2[DI] /* 21 BIT ARITHMETIC  CCG0006    10
                                         .LCM     ENDIF                                                          CCG0006    11
                                                                                                                 CCG0006    12
          1011  53212                             SA2    X1+B2       DF = TP[RFW] + 2                            FCC1928     9
                     76610                        SX6    B1                                                      FCC1928    10
                          20623                   LX6    D.RFP                                                   SQZ      1731
                               12762              BX7    X6+X2       RF[DF] = 1    */ SET SHORT USE FOR PRED     SQZ      1732
          1012  54720                             SA7    A2                                                      FCC1928    11
                                                                                                                 SQZ      1734
                                        *         SEARCH *MIC* FOR PREVIOUS OCCURANCE OF THE *STT*               SQZ      1735
                                                                                                                 SQZ      1736
          1013  0634001143 +             STT3     LE     B4,B3,SMI5  IF I @ DEFA                                 SQZ      1737
                          57142                   SA1    B4-B2       R2W = [I-2]                                 SQZ      1738
                               13651              BX6    X5-X1                                                   SQZ      1739
          1014  56240                             SA2    B4          I = [I]                                     SQZ      1740
                     63420                        SB4    X2                                                      SQZ      1741
                          0316001013 +            NZ     X6,STT3     IF [R2W] " [R2]                             SQZ      1742
                                                                                                                 SQZ      1743
          1015  55211                             SA2    A1-B1       R1W = R2W - 1                               SQZ      1744
                     54350                        SA3    A5          R1 = R1                                     SQZ      1745
                          13623                   BX6    X2-X3                                                   SQZ      1746
                               11706              BX7    X0*X6                                                   SQZ      1747
          1016  0317001013 +                      NZ     X7,STT3     IF (OC,H2)[R1] " (OC,H2)[R1W]               SQZ      1748
                                                                                                                 SQZ      1749
                          54311                   SA3    A1+B1       DJ = R2W + 1                                SQZ      1750
          1017  0400001133 +                      EQ     SMI2        GO TRY TO ELIMINATE IT                      SQZ      1751
                                                                                                                 SQZ      1752
          1020  20570                    STT4     LX5    R1.RJP-IH.RFP     INST ^ REDUNDANT                      SQZ      1753
                     0400000232 +                 EQ     AUC.RJ                                                  SQZ      1754
          1021  0400001013 +                      EQ     STT3        RETRY ADDRESS                               SQZ      1755
                                                                                                                 SQZ      1756
                                        *         CAIH = 0 , REDUCE *STT* TO *SA* OR *S*                         SQZ      1757
                                                                                                                 SQZ      1758
          1022  43600                    STT5     MX6    0           [R2] = 0                                    SQZ      1759
                     54651                        SA6    A5+B1                                                   SQZ      1760
                          0307001035 +            ZR     X7,SA0      IF RF[R2W] = 0                              SQZ      1761
                                                                                                                 SQZ      1762
          1023  6130000060                        S"OC"  OC.SA                                                   SQZ      1763
                          10677                   BX6    X7                                                      SQZ      1764
                               53177              SA1    "RN"+X7                                                 SQZ      1765
          1024  20640                             LX6    R1.RJP                                                  SQZ      1766
                     56270                        SA2    "RN"                                                    SQZ      1767
                          0100001160 +            RJ     URI         URI( SA  RI, RF[R2W] )                      SQZ      1768
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    45
        MISCELLANEOUS INSTRUCTION PROCESSING                          SA                  SQUEEZE 
  
          1025                                    PROCESS SA                                                     SQZ      1770
          1025  10644                             BX6    X4                                                      CCG2       20
                     6150001055 +                 SB5    SA.JT                                                   CCG2       21
                               20601              LX6    59-D.TYP                                                CCG2       22
          1026  0336001127 +                      MI     X6,SMI      IF TYPE[DI] = II  */ SA RI,A0               CCG2       23
                                                  LX2    59-RN.ZP                                                SQZ      1771
                          0322000651 +            PL     X2,SRCH     IF ^Z[RK]                                   SQZ      1772
          1027  6231000000                        SB3    X1+                                                     CCG2       24
                          0431001057 +            EQ     B3,B1,SAA0  IF RJ[R1] = 1                               CCG2       25
                                                                                                                 SQZ      1773
          1030  10611                             BX6    X1                                                      SQZ      1774
                     20152                        LX1    -RN.TPP                                                 SQZ      1775
                          53212                   SA2    X1+B2       DJP = TP[RJ] + 2                            SQZ      1776
          1031  6231000003                        SB3    X1+3        DEFA = TP[RJ] + 3                           SQZ      1778
                          20601                   LX6    59-RN.CP                                                SQZ      1780
          1032  0326001042 +                      PL     X6,SA1      IF ^C[RJ]                                   SQZ      1784
                          53310                   SA3    X1          R1J = TP[RJ]                                SQZ      1785
          1033  0100001247 +                      RJ     DCV         VAL = DVC(R1J)                              SQZ      1786
          1034  7277000000                        SX7    X7+                                                     SQZ      1787
                                                                                                                 SQZ      1788
                                        *         SA0 - REDUCE SHORT CONSTANT TO A *S* INSTRUCTION               SQZ      1789
                                                                                                                 SQZ      1790
          1035  43252                    SA0      MX2    -18                                                     SQZ      1791
                     10177                        BX1    X7                                                      SQZ      1792
                          6130000055              S"OC"  OC.S                                                    SQZ      1793
          1036  15672                             BX6    -X2*X7                                                  SQZ      1794
                     20636                        LX6    R1.INP                                                  SQZ      1795
                          0100001160 +            RJ     URI         URI(  S  RI,VAL )                           SQZ      1796
          1037  0311001067 +                      NZ     X1,.S       IF VAL " 0                                  SQZ      1797
                          76310                   SX3    B1                                                      SQZ      1798
                               20327              LX3    D.SZP                                                   SQZ      1799
          1040  37643                             IX6    X4-X3       SZ[DI] = 1                                  SQZ      1800
                     10466                        BX4    X6                                                      SQZ      1801
                          54640                   SA6    A4                                                      SQZ      1802
          1041  0400001064 +                      EQ     .CLR        GO SET Z BIT FOR RI                         SQZ      1803
                                                                                                                 SQZ      1804
                                                                                                                 SQZ      1805
          1042  20602                    SA1      LX6    RN.CP-RN.IACP                                           SQZ      1806
                     0326001127 +                 PL     X6,SMI      IF ^IAC[RJ]                                 SQZ      1807
          1043  5130002100 +                      SA3    ARFAIL                                                  CCG37       2
                          0313001127 +            NZ     X3,SMI      IF SECOND TRIP                              CCG37       3
                                                                                                                 SQZ      1808
          1044  20242                             LX2    59-D.CMP                                                SQZ      1809
                     0332001047 +                 MI     X2,SA2      IF CM[DJP]    */ *IA*                       SQZ      1810
                               55322              SA3    A2-B2       R1P = DJP - 2                               SQZ      1811
          1045  20334                             LX3    -R1.RJP                                                 SQZ      1812
                     15630                        BX6    -X0*X3                                                  SQZ      1813
                          53267                   SA2    "RN"+X6     RNJ = RND(RJ[R1P])                          SQZ      1814
                               20201              LX2    59-RN.CP                                                SQZ      1815
          1046  0332001127 +                      MI     X2,SMI      IF C[RNJ]     */ CON - I CASE               SQZ      1816
                                                                                                                 SQZ      1817
                                        *         CHANGE INSTRUCTION TO AN *STT*, LET *ARF* ADD THE CA.          SQZ      1818
                                                                                                                 SQZ      1819
          1047  20534                    SA2      LX5    -R1.RJP                                                 SQZ      1820
                     15750                        BX7    -X0*X5                                                  SQZ      1821
                          20744                   LX7    IH.RFP                                                  SQZ      1822
                               54751              SA7    A5+B1       R2 = R1 + 1;  [R2] = IHW(0,RJ[R1],0,0)      SQZ      1823
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    46
        MISCELLANEOUS INSTRUCTION PROCESSING                          SA                  SQUEEZE 
  
          1050  7160000000                        SX6    0                                                       SQZ      1824
                          6130000052              S"OC"  OC.STT                                                  SQZ      1825
          1051  0100001160 +                      RJ     URI         URI(  STT  RI,RJ  )                         SQZ      1826
          1052  0400000772 +                      EQ     .STT                                                    SQZ      1827
                                                                                                                 SQZ      1828
                                        *         SA NOT REDUNDANT, SET *SA* BIT                                 SQZ      1829
                                                                                                                 SQZ      1830
          1053  76210                    SA5      SX2    B1                                                      SQZ      1831
                     20271                        LX2    RN.SAP                                                  SQZ      1832
                          12623                   BX6    X2+X3       SA[RND(RI)] = 1                             SQZ      1833
                               54630              SA6    A3                                                      SQZ      1834
          1054  0400000232 +                      EQ     AUC.RJ                                                  SQZ      1835
                                                                                                                 SQZ      1836
          1055  56376                    SA.JT    SA3    "RN"+B6                                                 SQZ      1837
                     0400001053 +                 EQ     SA5                                                     SQZ      1838
                                                                                                                 SQZ      1839
          1056  0400001130 +                      EQ     SMI1        RETRY                                       SQZ      1840
                                                                                                                 CCG2       26
                                        *         SA  RI,A0 - CHANGE TO A TYPE II INST SO *BDT* AND *MCG*        CCG2       27
                                        *         HANDLE IT PROPERLY.                                            CCG2       28
                                                                                                                 CCG2       29
          1057  76710                    SAA0     SX7    B1                                                      CCG2       30
                     20732                        LX7    D.ZPP                                                   CCG2       31
                          12474                   BX4    X7+X4       ZP[DI] = 1                                  CCG2       32
                               20740              LX7    D.TYP-D.ZPP                                             CCG2       33
          1060  12474                             BX4    X7+X4       TYPE[DI] = II                               CCG2       34
                     10744                        BX7    X4                                                      CCG2       35
                          5074000000              SA7    A4+                                                     CCG2       36
          1061  0400001127 +                      EQ     SMI                                                     CCG2       37
  
  
  
                                        *         ZERO - INSTRUCTION REDUCES TO A ZERO                           SQZ      1842
                                        *         CHANGE IT TO A *CLR* AND TRY TO ELIMINATE IT                   SQZ      1843
                                                                                                                 SQZ      1844
          1062  6130000105               ZERO     S"OC"  OC.CLR                                                  SQZ      1845
                          43600                   MX6    0                                                       SQZ      1846
                               54651              SA6    A5+B1       [R2] = 0                                    SQZ      1847
          1063  0100001160 +                      RJ     URI         URI( CLR  RI,0 )                            SQZ      1848
  
  
  
          1064                                    PROCESS CLR                                                    SQZ      1850
          1064  56376                             SA3    "RN"+B6                                                 SQZ      1851
                     43602                        MX6    RN.CZL                                                  SQZ      1852
                                                  LX6    RN.CZL+RN.CZP  C[RI] = Z[RI] = 1                        SQZ      1853
                          12763                   BX7    X6+X3                                                   SQZ      1854
                               54730              SA7    A3                                                      SQZ      1855
          1065  6030000003                        SB3    A0+3        DEFA = TXT + 3                              FCC1085    24
                          6150001075 +            SB5    FMA1                                                    FCC1085    25
          1066  0400001127 +                      EQ     SMI                                                     FCC1085    26
  
  
  
          1067                           FMA      PROCESS (FMA,S)                                                SQZ      1857
          1067  26605                             UX6    X5                                                      FCC1085    27
                     21636                        AX6    R1.INP                                                  FCC1085    28
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    47
        MISCELLANEOUS INSTRUCTION PROCESSING                          FMA                 SQUEEZE 
  
                          0316001072 +            NZ     X6,FMA0     IF IN[R1] " 0 */ VAL(RI) NOT 0              FCC1085    29
          1070  10644                             BX6    X4                                                      FCC1085    30
                     20625                        LX6    59-D.PRSP                                               FCC1085    31
                          0326001062 +            PL     X6,ZERO     IF ^PRS[DI]                                 FCC1085    32
          1071  0400001064 +                      EQ     .CLR                      */ GO SET *Z* BIT             FCC1085    33
                                                                                                                 FCC1085    34
          1072  56376                    FMA0     SA3    "RN"+B6                                                 FCC1085    35
                     43601                        MX6    1                                                       SQZ      1859
                          20673                   LX6    1+RN.CP                                                 SQZ      1860
                               12763              BX7    X6+X3       C[RI] = 1                                   SQZ      1861
          1073  54730                             SA7    A3                                                      SQZ      1862
                     6030000003                   SB3    A0+3        DEFA = TXT + 3                              SQZ      1863
          1074  6150001075 +                      SB5    FMA1                                                    SQZ      1864
                          0400001127 +            EQ     SMI                                                     SQZ      1865
                                                                                                                 SQZ      1866
          1075  0400000156 +             FMA1     EQ     MSL1        FAIL EXIT                                   SQZ      1867
          1076  0400001130 +                      EQ     SMI1        RETRY                                       SQZ      1868
  
  
  
                                        *         FMA60 - CHANGE INSTRUCTION TO  FMA  RI,60                      SQZ      1870
                                                                                                                 SQZ      1871
          1077  6130000043               FMA60    S"OC"  OC.FMA                                                  SQZ      1872
                          7160000074              SX6    60                                                      SQZ      1873
          1100  20636                             LX6    R1.INP                                                  SQZ      1874
                     0100001160 +                 RJ     URI         URI( FMA  RI,60 )                           SQZ      1875
          1101  0400001067 +                      EQ     FMA                                                     SQZ      1876
  
  
  
                                        **        LDC - LOAD CONSTANT ( LD  RI,0,CA,CON. )                       CCG17     224
                                                                                                                 CCG17     225
          1102                                    PROCESS LDC                                                    CCG17     226
          1102  54351                             SA3    A5+B1       R2 = R1 + 1                                 CCG17     227
                     5120000000 X                 SA2    O.CVT                                                   CCG17     228
                               20352              LX3    -IH.CAP                                                 CCG17     229
          1103  63430                             SB4    X3                                                      CCG17     230
                     53124                        SA1    X2+B4                                                   CCG17     231
                          10611                   BX6    X1          VAL = CVT(CA[R2])                           CCG17     232
                               73730              SX7    X3                                                      CCG17     233
          1104  20722                             LX7    I.CAP                                                   CCG17     234
                     54741                        SA7    A4+B1       CA[DI+1] = CA[R2]                           CCG17     235
                          0400001274 +            EQ     CCV         ATTEMPT TO REDUCE VAL TO A SHORT CONST.     CCG17     236
                                                                                                                 CCG17     237
                                        *         CCV RETURNS TO LDC1 IF LDC INSTR. NOT REDUCED TO               CCG17     238
                                        *         *CLR*,*S* OR *FMA* INSTR.                                      CCG17     239
                                                                                                                 CCG17     240
          1105  5130000010 C             LDC1     SA3    LDCC                                                    CCG17     241
                          54651                   SA6    A5+B1       R2 = CONVAL   */ SAVE CONSTANT IN R2 WORD   CCG17     242
                               63430              SB4    X3          I = LDCC                                    CCG17     243
          1106  5110000012 C                      SA1    LDCN                                                    CCG17     244
                          73710                   SX7    X1          LDCN = SETX(LDCN)  */ CLEAR SIGN BIT        CCG18     160
                               54710              SA7    A1                                                      CCG17     246
                                                                                                                 CCG17     247
          1107  56240                    LDC2     SA2    B4          L = [I]                                     CCG17     248
                     0440001122 +                 ZR     B4,LDC4     IF I = 0      */ END OF CHAIN               CCG17     249
                               55322              SA3    A2-B2       R2P = [L-2]                                 CCG17     250
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    48
        MISCELLANEOUS INSTRUCTION PROCESSING                          LDC                 SQUEEZE 
  
          1110  13736                             BX7    X3-X6                                                   CCG17     251
                     63420                        SB4    X2          I = IC[L]                                   CCG17     252
                          0317001107 +            NZ     X7,LDC2     IF NO MATCH                                 CCG17     253
          1111  0337001107 +                      MI     X7,LDC2     IF COMPLEMENTS                              CCG17     254
                                                                                                                 CCG17     255
                                        *         MATCH FOUND, TRY TO ELIMINATE THE CURRENT LDC                  CCG17     256
                                                                                                                 CCG17     257
                          55321                   SA3    A2-B1       DIM = LIP-1                                 CCG17     258
                               11634              BX6    X3*X4                                                   CCG17     259
          1112  20625                             LX6    59-D.PRSP                                               CCG17     260
                     12734                        BX7    X3+X4                                                   CCG17     261
                          0336001117 +            MI     X6,LDC3     IF PRS[DIM] & PRS[DI]                       CCG17     262
          1113  43672                             MX6    -D.STRSL                                                CCGA085     6
                     20726                        LX7    -D.STRSP                                                CCGA085     7
                          12667                   BX6    X6+X7                                                   CCGA085     8
                               20746              LX7    D.STRSP                                                 CCGA085     9
          1114  0306001117 +                      ZR     X6,LDC3     IF PS AND PRS */ IXI CANT HANDLE            CCGA085    10
                                                                                                                 CCG17     263
                          54730                   SA7    A3          DIM = DIM ! DI                              CCG17     264
                               43600              MX6    0                                                       CCG17     265
          1115  54640                             SA6    A4          DI = 0        */ KILL CURRENT LDC           CCG17     266
                     55232                        SA2    A3-B2       R1M = DIM - 2                               CCG17     267
                          53127                   SA1    "RN"+X2                                                 CCG17     268
                               10711              BX7    X1                                                      CCG17     269
          1116  56776                             SA7    "RN"+B6     RND(RI[R1]) = RND(RI[R1M])                  CCG17     270
                     0400000156 +                 EQ     MSL1                                                    CCG17     271
                                                                                                                 CCG17     272
                                        *         BOTH PRS, GO CHANGE TO AN *XMT*                                CCG17     273
                                                                                                                 CCG17     274
          1117  55132                    LDC3     SA1    A3-B2                                                   CCG20       1
                     15210                        BX2    -X0*X1      RJ = RI[R1M]                                CCG17     276
                          53127                   SA1    "RN"+X2     X1 = RND(RJ)  */FOR CTI                     CCG17     277
                               43700              MX7    0                                                       CCG17     278
          1120  54751                             SA7    A5+B1       [R2] = 0                                    CCG17     279
                     54741                        SA7    A4+B1       [DI+1] = 0                                  CCG17     280
                          73210                   SX2    X1          X2 = RN[RND(RJ)]                            CCG17     281
          1121  0400000700 +                      EQ     SRCH6                                                   CCG17     282
                                                                                                                 CCG17     283
                                        *         LDC NOT REDUNDANT, ADD TO THE CHAIN                            CCG17     284
                                                                                                                 CCG17     285
          1122  56376                    LDC4     SA3    "RN"+B6                                                 CCG17     286
                     43701                        MX7    1                                                       CCG17     287
                          20773                   LX7    1+RN.CP                                                 CCG17     288
                               12773              BX7    X7+X3                                                   CCG17     289
          1123  54730                             SA7    A3          C[RND(RI)] = 1                              CCG17     290
                     54241                        SA2    A4+B1                                                   CCG17     291
                          5130000010 C            SA3    LDCC                                                    CCG17     292
          1124  12623                             BX6    X2+X3       IC[LI] = LDCC                               CCG17     293
                     54641                        SA6    A4+B1                                                   CCG17     294
                          74741                   SX7    A4+B1       LDCC = LI     */ CHAIN POINTS TO LAST       CCG17     295
                               54730              SA7    A3                                                      CCG17     296
          1125  0312000156 +                      NZ     X2,MSL1     IF CA[LI] " 0 */ NOT GENERATED BY SQZ       CCG17     297
                          5130000012 C            SA3    LDCN                                                    CCG17     298
          1126  73731                             SX7    X3+B1                                                   CCG17     299
                     54730                        SA7    A3          LDCN = LDCN + 1                             CCG17     300
                          0400000156 +            EQ     MSL1                                                    CCG17     301
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    49
        MISCELLANEOUS INSTRUCTION PROCESSING                          SMI                 SQUEEZE 
  
                                        **        SMI - SQUEEZE MISCELLANEOUS INSTRUCTIONS                       SQZ      1878
                                        *                                                                        SQZ      1879
                                        *         ENTRY  (B3) = MIN SEARCH ADDRESS                               SQZ      1880
                                        *                (B5) = FAIL EXIT PROCESSOR ADDRESS                      SQZ      1881
                                        *                X4,X5,B6 AS FROM MAIN LOOP                              SQZ      1882
                                        *         NOTE - IN CASE OF RETRY THIS SUBROUTINE MAY BE ENTERED         SQZ      1883
                                        *         AGAIN AT SMI1 / SMI2                                           SQZ      1884
                                                                                                                 SQZ      1885
          1127  5120000003 C             SMI      SA2    MIC                                                     SQZ      1886
                          63420                   SB4    X2          I = MIC                                     SQZ      1887
                                                                                                                 SQZ      1888
                                        *         SEARCH *MIC* FOR A PREVIOUS OCCURANCE OF CURRENT INSTRUCTION.  SQZ      1889
                                                                                                                 SQZ      1890
          1130  0634001143 +             SMI1     LE     B4,B3,SMI5  IF I @ DEFA                                 SQZ      1891
                          5114777774              SA1    B4-3                                                    SQZ      1892
          1131  13651                             BX6    X5-X1                                                   SQZ      1893
                     56240                        SA2    B4          I = [I]                                     SQZ      1894
                          11706                   BX7    X0*X6                                                   SQZ      1895
                               63420              SB4    X2                                                      SQZ      1896
          1132  0317001130 +                      NZ     X7,SMI1     IF MASK(-R1.RIL) & XOR(R1W,R1) " 0          SQZ      1897
                          54312                   SA3    A1+B2       DJ = R1W + 2                                SQZ      1898
                                                                                                                 SQZ      1899
                                        *         ELIMINATE REDUNDANT INSTRUCTION , (X3) = [DJ] + ABOVE REG ASSI SQZ      1900
                                                                                                                 SQZ      1901
          1133  12634                    SMI2     BX6    X3+X4                                                   SQZ      1902
                     76140                        SX1    B4                                                      SQZ      1903
                          43772                   MX7    -D.STRSL                                                SQZ      1904
                               20626              LX6    -D.STRSP                                                SQZ      1905
          1134  15667                             BX6    -X7*X6                                                  SQZ      1906
                     63460                        SB4    X6                                                      SQZ      1907
                          11634                   BX6    X3*X4                                                   SQZ      1908
                               20626              LX6    -D.STRSP                                                SQZ      1909
          1135  15767                             BX7    -X7*X6                                                  SQZ      1910
                     0244001136 +                 JP     SMI3+B4     JUMP( STRS[DI] ! STRS[DJ] )                 SQZ      1911
                                                                                                                 SQZ      1912
          1136  0400001145 +             SMI3     EQ     SMI6        STRS[DJ] & STRS[DI] = 0                     SQZ      1913
                                                                                                                 SQZ      1914
          1137  0317001150 +                      NZ     X7,SMI7     IF PRS[DJ] & PRS[[DI]                       SQZ      1915
                          0400001154 +            EQ     SMI8                                                    SQZ      1916
                                                                                                                 SQZ      1917
          1140  0400001145 +                      EQ     SMI6        PS[DI] ! PS[DJ]                             SQZ      1918
                                                                                                                 SQZ      1919
          1141  6241000000               SMI3A    SB4    X1+                                                     SQZ      1920
                                        *         EQ     SMI4        PS & PRS                                    SQZ      1921
                                                                                                                 SQZ      1922
          1142  0440001143 +             SMI4     ZR     B4,SMI5     IF I = 0                                    SQZ      1923
                          0255000001              JP     B5+1        */ EXIT FOR A RETRY                         SQZ      1924
                                                                                                                 SQZ      1925
                                        *         INSTRUCTION NOT REDUNDANT, RETURN TO FAIL EXIT                 SQZ      1926
                                                                                                                 SQZ      1927
          1143  5120000003 C             SMI5     SA2    MIC                                                     SQZ      1928
                          10622                   BX6    X2                                                      SQZ      1929
                               54641              SA6    A4+B1       [DI+1] = MIC                                SQZ      1930
          1144  74741                             SX7    A4+B1                                                   SQZ      1931
                     54720                        SA7    A2          MIC = DI + 1                                SQZ      1932
                          0255000000              JP     B5          */ RETURN TO FAIL EXIT                      SQZ      1933
                                                                                                                 SQZ      1934
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    50
        MISCELLANEOUS INSTRUCTION PROCESSING                          SMI                 SQUEEZE 
  
                                        *         INSTRUCTION REDUNDANT, ELIMINATE SECOND OCCURANCE              SQZ      1935
                                                                                                                 SQZ      1936
          1145  55232                    SMI6     SA2    A3-B2       R1J = DJ - 2                                SQZ      1937
                     12634                        BX6    X3+X4                                                   SQZ      1938
                          54630                   SA6    A3          DJ = DJ ! DI                                SQZ      1939
                               15120              BX1    -X0*X2                                                  SQZ      1940
          1146  43700                             MX7    0                                                       SQZ      1941
                     53217                        SA2    "RN"+X1                                                 SQZ      1942
                          10622                   BX6    X2                                                      SQZ      1943
                               54740              SA7    A4          [DI] = 0      */ MARK INST AS DEAD          SQZ      1944
          1147  56676                             SA6    "RN"+B6     RND(RI) = RND(RI[R1J])                      SQZ      1945
                     0400000156 +                 EQ     MSL1                                                    SQZ      1946
                                                                                                                 SQZ      1947
                                        *         BOTH INSTRUCTIONS PRECEDE A REGISTER STORE.                    SQZ      1948
                                                                                                                 SQZ      1949
          1150  63410                    SMI7     SB4    X1                                                      SQZ      1950
                     54131                        SA1    A3+B1                                                   SQZ      1951
                          54242                   SA2    A4+B2       RSI = R1 + 4                                SQZ      1952
                               20130              LX1    -I.RSP                                                  CCG17     302
          1151  53110                             SA1    X1          RSJ = [RSL[DJ+1]]                           SQZ      1954
                     13612                        BX6    X1-X2                                                   SQZ      1955
                          11606                   BX6    X0*X6                                                   SQZ      1956
          1152  0316001142 +                      NZ     X6,SMI4     IF REG[RSJ] " REG[RSI]                      SQZ      1957
                                                                                                                 SQZ      1958
                          43774                   MX7    60                                                      SQZ      1959
          1153  5074000004                        SA7    A4+4        [DI+4] = -0   */ MARK FOLLOWING *RS* AS DEA SQZ      1960
                          0400001145 +            EQ     SMI6                                                    SQZ      1961
                                                                                                                 SQZ      1962
                                        *         ONE OF THE INSTRUCTIONS PRECEDES AN RS.  IF IT IS TO A B REG,  SQZ      1963
                                        *         WE CANNOT REDUCE IT.                                           SQZ      1964
                                                                                                                 SQZ      1965
          1154  20425                    SMI8     LX4    59-D.PRSP                                               SQZ      1966
                     54241                        SA2    A4+B1       R1RS = DI + 1                               SQZ      1967
                          0334001156 +            MI     X4,SMI9     IF PRS[DI]                                  SQZ      1968
          1155  54231                             SA2    A3+B1                                                   SQZ      1969
                     20230                        LX2    -36                                                     SQZ      1970
                          53220                   SA2    X2          R1RS = [RSL[DJ+1]]                          SQZ      1971
                                                                                                                 SQZ      1972
          1156  20447                    SMI9     LX4    1+D.PRSP                                                SQZ      1973
                     43671                        MX6    -SO.RTL                                                 SQZ      1974
                          20251                   LX2    -R1.SOP-SO.RTP                                          SQZ      1975
                               15726              BX7    -X6*X2                                                  SQZ      1976
          1157  0317001145 +                      NZ     X7,SMI6     IF SORT[R1RS] " 0  */ ^ A B-REG             SQZ      1977
                          0400001141 +            EQ     SMI3A                                                   SQZ      1978
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    51
        COMPILE TIME INSTRUCTION EVALUATION                           URI                 SQUEEZE 
  
                                        **        URI - UPDATE REDUCED INSTRUCTION                               SQZ      1980
                                        *         UPDATES CORE IMAGE AND REGISTERS OF A CHANGED TYPE I/II INST   SQZ      1981
                                        *                                                                        SQZ      1982
                                        *         ENTRY  (B3) = OPCODE                                           SQZ      1983
                                        *                (X4) = OLD DESCRIPTOR                                   SQZ      1984
                                        *                (X6) = RJ/RK OR IN/SO FIELDS OF NEW WORD 1              SQZ      1985
                                        *                                                                        SQZ      1986
                                        *         EXIT   (X4) = [DI] = ( NEW )                                   SQZ      1987
                                        *                (X5) = [R1] ( NEW )                                     SQZ      1988
                                        *                                                                        SQZ      1989
                                        *         USES   X - 3, 6, 7                                             SQZ      1990
                                        *                A - 3, 6, 7                                             SQZ      1991
                                                                                                                 SQZ      1992
          1160  0200401160 +             URI      ROUTINE                                                        SQZ      1993
          1161  5133000000 X                      SA3    F.RDT+"OC"                                              SQZ      1994
                          43772                   MX7    -D.STRSL                                                SQZ      1995
                               76560              SX5    B6                                                      SQZ      1996
          1162  20746                             LX7    D.STRSP                                                 SQZ      1997
                     36665                        IX6    X6+X5                                                   SQZ      1998
                          15447                   BX4    -X7*X4                                                  SQZ      1999
                               27636              PX6    "OC",X6     [R1] = NEW WORD 1                           SQZ      2000
          1163  54650                             SA6    A5                                                      SQZ      2001
                     12734                        BX7    X3+X4       [DI] = RDT(OC) ! STRS[DI]                   SQZ      2002
                          22506                   LX5    X6                                                      SQZ      2003
                               54740              SA7    A4                                                      SQZ      2004
          1164  22407                             LX4    X7                                                      SQZ      2005
                     0400001160 +                 EQ     URI                                                     SQZ      2006
  
  
                                        **        ECO PROCESSORS - EVALUATE INSTRUCTION WITH CONSTANT OPERANDS   CCG17     304
                                        *                                                                        CCG17     305
                                        *         ENTRY  CURRENT INSTRUCTIONS IS A TYPE I INSTR AND              CCG17     306
                                        *         X1,X2,X4,X5,B3,B6 ARE AS SET IN THE MAIN LOOP                  CCG17     307
                                        *                                                                        CCG17     308
                                                                                                                 CCG17     309
          1165                                    EPROC  IM                                                      CCG17     310
          1165  6130000042                        S"OC"  OC.DFM                                                  CCG17     311
                                                                                                                 CCG17     312
          1166                                    EPROC  (FA,FS,DFA,DFS,RFA,RFS,FM,RFM,DFM,FD,RFD)               CCG17     313
          1166  5130001205 +             ECO1     SA3    ECOA                                                    CCG17     314
                          76630                   SX6    "OC"                                                    CCG17     315
                               20666              LX6    54          */ SET OP                                   CCG17     316
          1167  12763                             BX7    X6+X3                                                   CCG17     317
                     5170001202 +                 SA7    ECO2        */ PLUG CODE FOR CURR."OC" AT ECO2          CCG17     318
          1170  0100001241 +                      RJ     GCV         X6 = JVAL                                   CCG17     319
                                        *                            X7 = KVAL                                   CCG17     320
          1171  0356000651 +                      OR     X6,SRCH     IF ^RANGE(JVAL)                             CCG17     321
                          0376000651 +            ID     X6,SRCH     IF  INDEF(JVAL)                             CCG17     322
          1172  0357000651 +                      OR     X7,SRCH     IF ^RANGE(KVAL)                             CCG17     323
                          0377000651 +            ID     X7,SRCH     IF  INDEF(KVAL)                             CCG17     324
          1173  7113777733                        SX1    "OC"-44B    X1 = PL IF DIVIDE INSTRUCTION               CCGA024     5
                          26346                   UX3    X6,B4       B4 = EXPONENT OF 1OP                        CCGA024     6
          1174  6144776006                        SB4    B4+60B-1771B-60B                                        CCGA024     7
                          26357                   UX3    X7,B5       B5 = EXPONENT OF 2OP                        CCGA024     8
          1175  6155000060                        SB5    B5+60B                                                  CCGA024     9
                          0331001200 +            MI     X1,ECO1A    IF NOT DIVIDE INSTRUCTION                   CCGA024    10
          1176  24307                             NX3    X7                                                      CCGA024    11
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    52
        COMPILE TIME INSTRUCTION EVALUATION                           ECO                 SQUEEZE 
  
                     0303000651 +                 ZR     X3,SRCH     IF DIVIDE BY ZERO                           CCGA024    12
                               67445              SB4    B4-B5                                                   CCGA024    13
          1177  0640000651 +                      PL     B4,SRCH     IF RESULT OF DIVIDE WOULD BE BAD            CCGA024    14
                          0400001202 +            EQ     ECO2                                                    CCGA024    15
                                                                                                                 CCGA024    16
          1200  7133777737               ECO1A    SX3    "OC"-40B    ADD AND SUBTRACT OP CODES ARE .LT. 40B      CCGA024    17
                          0333001202 +            MI     X3,ECO2     IF ADD OR SUBTRACT                          CCGA024    18
          1201  66445                             SB4    B4+B5                                                   CCGA024    19
                     0640000651 +                 PL     B4,SRCH     IF RESULT OF MULTIPLY WOULD BE BAD          CCGA024    20
                                                                                                                 CCG17     325
          1202  12667                    ECO2     BX6    X6+X7       VAL = JVAL .OP. KVAL  */ EVALUATE INSTRUCTI CCG17     326
                                                                                                                 CCG17     327
          1203  0376000651 +            +         ID     X6,SRCH     IF INDEF(VAL)                               CCG17     328
                          0356000651 +            OR     X6,SRCH     IF ^RANGE(VAL)                              CCGA024    21
          1204  0400001274 +                      EQ     CCV         GO CHANGE A NEW CONSTANT                    CCG17     329
                                                                                                                 CCG17     330
          1205  00667                    ECOA     VFD    6/0B,9/667B                                             CCG17     331
                                                                                                                 CCG17     333
          1206                                    EPROC  CX                                                      CCG17     334
          1206  10211                             BX2    X1                                                      CCG17     335
                     0400001213 +                 EQ     ECO.AND                                                 CCG17     336
                                                                                                                 CCG0002     5
          1207                                    EPROC  SS                                                      CCG0002     6
          1207  0100001241 +                      RJ     GCV                                                     CCG0002     7
          1210  63460                             SB4    X6                                                      CCG0002     8
                     63570                        SB5    X7                                                      CCG0002     9
                          77645                   SX6    B4-B5                                                   CCG0002    10
          1211  0400001274 +                      EQ     CCV                                                     CCG0002    11
                                                                                                                 CCG17     337
          1212                                    EPROC  (IAZ,ISZ)                                               CCG17     338
          1212  6133777735                        S"OC"  "OC"-OC.IAZ+OC.IA                                       CCG17     339
                                                                                                                 CCG17     340
          1213                                    EPROC  (AND,OR,XOR,IA,IS)                                      CCG17     341
          1213  7160000667               ECO.AND  SX6    667B                                                    CCG17     342
                          0400001217 +            EQ     ECO3                                                    CCG17     343
                                                                                                                 CCG17     344
          1214                                    EPROC  (STR,IMP,EQV)                                           CCG17     345
          1214  7160000676                        SX6    676B                                                    CCG17     346
                          0400001217 +            EQ     ECO3                                                    CCG17     347
                                                                                                                 CCG17     348
          1215                                    EPROC  (ILS,IRS,PK)                                            CCG17     349
          1215  7160000657                        SX6    657B                                                    CCG17     350
                          0400001217 +            EQ     ECO3                                                    CCG17     351
                                                                                                                 CCG17     352
          1216                           ECO.NR   EPROC  (NR,RNZ,UP)                                             CCG18     161
          1216  7160000607                        SX6    607B                                                    CCG18     162
          1217  5130001223 +             ECO3     SA3    ECOB                                                    CCG17     354
                          76730                   SX7    "OC"                                                    CCG17     355
                               20636              LX6    30                                                      CCG17     356
          1220  20747                             LX7    39                                                      CCG17     357
                     12767                        BX7    X6+X7                                                   CCG17     358
                          12737                   BX7    X3+X7                                                   CCG17     359
          1221  5170001222 +                      SA7    ECO3A                                                   CCG17     360
                          0100001241 +            RJ     GCV         X6 = JVAL                                   CCG17     361
                                        *                            X7 = KVAL                                   CCG17     362
          1222  63560                    ECO3A    SB5    X6          B5 = LOW18[JVAL]                            CCG17     363
                     46000                        NO                                                             CCG17     364
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    53
        COMPILE TIME INSTRUCTION EVALUATION                           ECO                 SQUEEZE 
  
                          0400001274 +            EQ     CCV                                                     CCG17     365
                                                                                                                 CCG17     366
          1223  63560                    ECOB     SB5    X6                                                      CCG17     367
                     00000                        VFD    15/0                                                    CCG17     368
                          0400001274 +            EQ     CCV                                                     CCG17     369
                                                                                                                 CCG17     370
                                        *         PROCESS NR,RNZ,UP WITH TWO RESULTS                             CCG17     371
                                                                                                                 CCG17     372
          1224  5130001240 +             ECO4     SA3    ECOC                                                    CCG17     373
                          76630                   SX6    "OC"                                                    CCG17     374
                               20666              LX6    54                                                      CCG17     375
          1225  12763                             BX7    X6+X3                                                   CCG17     376
                     5170001227 +                 SA7    ECO4A                                                   CCG17     377
                               20252              LX2    -RN.TPP                                                 CCG17     378
          1226  53320                             SA3    X2                                                      CCG17     379
                     0100001247 +                 RJ     DCV         X7 = KVAL                                   CCG17     380
                                                                                                                 CCG17     381
          1227  26157                    ECO4A    UX1    B5,X7       EVALUATE INSTRUCTION                        CCG17     382
                     76650                        SX6    B5                                                      CCG17     383
                          6130000055              S"OC"  OC.S        OC = OC.S                                   CCG17     384
          1230  43752                             MX7    -18                                                     CCG17     385
                     15667                        BX6    -X7*X6                                                  CCG17     386
                          20636                   LX6    R1.INP      IN = VAL1                                   CCG17     387
                               54542              SA5    A4+B2       R1RS = DI + 2                               CCG17     388
          1231  43756                             MX7    -R1.SOL                                                 CCG17     389
                     20720                        LX7    R1.SOP                                                  CCG17     390
                          7130000100              SX3    SO.TLOCK                                                CCG17     391
          1232  20320                             LX3    R1.SOP                                                  CCG17     392
                     15757                        BX7    -X7*X5                                                  CCG17     393
                          12773                   BX7    X7+X3       SO = SO[R1RS] + SO.TLOCK                    CCG17     394
                               12667              BX6    X6+X7                                                   CCG17     395
          1233  54452                             SA4    A5+B2       DIRS = R1RS + 2                             CCG17     396
                     15350                        BX3    -X0*X5                                                  CCG17     397
                          63630                   SB6    X3          RIRS = RI[R1RS]                             CCG17     398
                               43700              MX7    0                                                       CCG17     399
          1234  54751                             SA7    A5+B1       [R2RS] = 0                                  CCG17     400
                     0100001160 +                 RJ     URI         URI( S  R1RS,VAL1 )                         CCG17     401
          1235  55452                             SA4    A5-B2       DI = R1RS - 2                               CCG17     402
                     55542                        SA5    A4-B2       R1 = DI - 2                                 CCG17     403
                          15350                   BX3    -X0*X5                                                  CCG17     404
                               63630              SB6    X3          RI = RI[R1]                                 CCG17     405
          1236  10611                             BX6    X1                                                      CCG17     406
                     76710                        SX7    B1                                                      CCG17     407
                          5170000011 C            SA7    IXF                                                     CCG17     408
          1237  0400001274 +                      EQ     CCV         CCV( LDC RI,VAL2 )                          CCG17     409
                                                                                                                 CCG17     410
          1240  00157                    ECOC     VFD    6/0,9/157B                                              CCG17     411
                     76650                        SX6    B5                                                      CCG17     412
                          6130000055              S"OC"  OC.S                                                    CCG17     413
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    54
        COMPILE TIME INSTRUCTION EVALUATION                           GCV                 SQUEEZE 
  
                                        **        GCV - GET CONSTANT VALUES ( CONSTANT FOLDING )                 SQZ      2035
                                        *                                                                        SQZ      2036
                                        *         ENTRY  (X1/X2) = RND(RJ/RK)                                    SQZ      2037
                                        *                                                                        SQZ      2038
                                        *         EXIT   (X6,X7) = VAL[RJ/RK]                                    SQZ      2039
                                                                                                                 SQZ      2040
          1241  0200401241 +             GCV      ROUTINE                                                        SQZ      2041
          1242  20152                             LX1    -RN.TPP                                                 SQZ      2042
                     53310                        SA3    X1          R1P = TP[RJ]                                SQZ      2043
                          0100001247 +            RJ     DCV                                                     SQZ      2044
          1243  20252                             LX2    -RN.TPP                                                 SQZ      2045
                     10677                        BX6    X7          (X6) = VAL[RJ]                              SQZ      2046
                          53320                   SA3    X2          R1P = TP[RK]                                SQZ      2047
          1244  0100001247 +                      RJ     DCV         (X7) = VAL[RK]                              SQZ      2048
          1245  0400001241 +                      EQ     GCV                                                     SQZ      2049
  
  
  
                                        **        DCV - DETERMINE CONSTANT VALUE                                 SQZ      2051
                                        *                                                                        SQZ      2052
                                        *         ENTRY  (X3) = R1 WORD OF *S*,*FMA* OR *LDC* INSTRUCTION        CCG17     414
                                        *                (A3) = ADDRESS OF R1 WORD                               CCG17     415
                                        *                                                                        SQZ      2054
                                        *         EXIT   (X7) = VALUE OF CONSTANT                                SQZ      2055
                                        *                (B5) = OPCODE  ( USED BY *XMTC* PROCESSOR )             CCG17     416
                                        *                                                                        CCG17     417
                                        *         USES   X3, X7, B4, B5                                          CCG17     418
                                                                                                                 CCG17     419
          1246  0100001261 +             DCV0     RJ     GIV                                                     CCG17     420
                                                                                                                 CCG17     421
          1247  0200401247 +             DCV      ROUTINE                                                        CCG17     422
                                                                                                                 CCG17     423
          1250  26743                    DCV1     UX7    B4,X3                                                   CCG17     424
                     6150000014                   SB5    OC.XMTC                                                 CCG17     425
                               20734              LX7    -R1.RJP                                                 CCG17     426
          1251  0445001254 +                      EQ     B4,B5,DCV2  IF OC = OC.XMTC                             CCG17     427
                          6150000010              SB5    OC.XMT                                                  CCG17     428
          1252  0545001246 +                      NE     B4,B5,DCV0  IF OC " OC.XMT                              CCG17     429
                          15770                   BX7    -X0*X7                                                  CCG17     430
                               53377              SA3    "RN"+X7                                                 CCG17     431
          1253  20352                             LX3    -RN.TPP                                                 CCG17     432
                     53330                        SA3    X3                                                      CCG17     433
                          0400001250 +            EQ     DCV1                                                    CCG17     434
                                                                                                                 CCG17     435
          1254  15770                    DCV2     BX7    -X0*X7                                                  CCG17     436
                     53377                        SA3    "RN"+X7                                                 CCG17     437
                          20352                   LX3    -RN.TPP                                                 CCG17     438
                               53330              SA3    X3                                                      CCG17     439
          1255  0100001261 +                      RJ     GIV         GET VALUE                                   CCG17     440
          1256  14777                             BX7    -X7         VAL = -VAL                                  CCG17     441
                     0400001247 +                 EQ     DCV                                                     CCG17     442
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    55
        COMPILE TIME INSTRUCTION EVALUATION                           GIV                 SQUEEZE 
  
          1257  6247777776               GIV0     SB4    X7-1                                                    CCG17     444
                          0307001261 +            ZR     X7,GIV      IF IN[R1] = 0                               CCG17     445
          1260  43701                             MX7    1                                                       CCG17     446
                     23747                        AX7    B4          VAL = MASK(IN[R1])                          CCG17     447
          1261  0200401261 +             GIV      ROUTINE                                                        CCG17     448
                                                                                                                 CCG17     449
          1262  26343                    GIV1     UX3    B4,X3                                                   CCG17     450
                     6150000105                   SB5    OC.CLR                                                  CCG17     451
                               43700              MX7    0           VAL = 0                                     CCG17     452
          1263  0441001261 +                      EQ     B4,B1,GIV   IF OC.BOS                                   CCG17     453
                          0445001261 +            EQ     B4,B5,GIV   IF OC = OC.CLR                              CCG17     454
          1264  20336                             LX3    -R1.INP                                                 CCG17     455
                     73730                        SX7    X3          VAL = IN[R1]                                CCG17     456
                          6150000055              SB5    OC.S                                                    CCG17     457
          1265  0445001261 +                      EQ     B4,B5,GIV   IF OC = OC.S                                CCG17     458
                          6150000043              SB5    OC.FMA                                                  CCG17     459
          1266  0445001257 +                      EQ     B4,B5,GIV0  IF OC = OC.FMA                              CCG17     460
                          6150000103              SB5    OC.LDC                                                  CCG17     461
          1267  0545001271 +                      NE     B4,B5,GIV2  IF OC " OC.LDC                              CCG17     462
                          54331                   SA3    A3+B1                                                   CCG17     463
                               10733              BX7    X3          VAL = [R2]                                  CCG17     464
          1270  0400001261 +                      EQ     GIV                                                     CCG17     465
                                                                                                                 CCG17     466
          1271  6150000010               GIV2     SB5    OC.XMT                                                  CCG17     467
                          0545401271 +            NE     B4,B5,*+1S17                                            CCG17     468
          1272  20372                             LX3    R1.INP-R1.RJP                                           CCG17     469
                     15730                        BX7    -X0*X3                                                  CCG17     470
                          53377                   SA3    "RN"+X7                                                 CCG17     471
                               20352              LX3    -RN.TPP                                                 CCG17     472
          1273  53330                             SA3    X3                                                      CCG17     473
                     0400001262 +                 EQ     GIV1                                                    CCG17     474
  
  
  
                                        **        CCV - CONVERT CONSTANT VALUE                                   SQZ      2071
                                        *                                                                        SQZ      2072
                                        *         ENTRY  (X6) = VAL                                              CCG17     475
                                        *                (B6) = RI                                               SQZ      2074
                                                                                                                 SQZ      2075
                                        *         TRY TO REDUCE CONSTANT TO A *FMA*                              SQZ      2076
                                                                                                                 SQZ      2077
          1274  0326001300 +             CCV      PL     X6,CCV1     IF VAL > 0                                  SQZ      2078
                          47766                   CX7    X6                                                      SQZ      2079
                               43301              MX3    1                                                       SQZ      2080
          1275  6247777776                        SB4    X7-1                                                    SQZ      2081
                          23743                   AX7    B4,X3                                                   SQZ      2082
                               13376              BX3    X7-X6                                                   SQZ      2083
          1276  0313001300 +                      NZ     X3,CCV1     IF VAL " MASK( COUNT(VAL) )                 SQZ      2084
                          6130000043              S"OC"  OC.FMA      OC = OC.FMA                                 SQZ      2085
          1277  76641                             SX6    B4+B1       VAL = COUNT(VAL)                            SQZ      2086
                     0400001303 +                 EQ     CCV2                                                    SQZ      2087
                                                                                                                 SQZ      2088
                                        *         TRY TO REDUCE CONSTANT TO A *S*                                SQZ      2089
                                                                                                                 SQZ      2090
          1300  0306001062 +             CCV1     ZR     X6,ZERO     IF VAL = 0                                  SQZ      2091
                          22706                   LX7    X6                                                      SQZ      2093
                               21721              AX7    17                                                      SQZ      2095
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    56
        COMPILE TIME INSTRUCTION EVALUATION                           CCV                 SQUEEZE 
  
          1301  0317001305 +                      NZ     X7,CCV3     IF VAL " SMALL CONSTANT                     CCG17     476
                          6130000055              S"OC"  OC.S        OC = OC.S                                   SQZ      2097
          1302  43352                             MX3    42                                                      CCG17     477
                     15663                        BX6    -X3*X6                                                  CCG17     478
                                                                                                                 SQZ      2098
          1303  20636                    CCV2     LX6    R1.INP                                                  SQZ      2099
                     0100001160 +                 RJ     URI         URI( OC  VAL,RI )                           SQZ      2100
          1304  43700                             MX7    0                                                       SQZ      2101
                     54751                        SA7    A5+B1       [R1+1] = 0                                  SQZ      2102
                          0400001067 +            EQ     FMA                                                     SQZ      2103
                                                                                                                 CCG17     479
          1305  6143777674               CCV3     SB4    "OC"-OC.LDC                                             CCG17     480
                          0440001105 +            ZR     B4,LDC1     IF OC = OC.LDC  */ CALLED BY *LDC*          CCG17     481
                                                                                                                 CCG17     482
          1306  6130000103                        S"OC"  OC.LDC      OC = OC.LDC                                 CCG17     483
                          54651                   SA6    A5+B1       [R2] = VAL                                  CCG17     484
                               76611              SX6    B1+B1                                                   CCG0124     6
          1307  20636                             LX6    R1.INP      IN[R1] = 2    */ LD ONLY *UDT* INDEX        CCG17     486
                     0100001160 +                 RJ     URI         URI( OC.LDC  RI,VAL )                       CCG17     487
          1310  54351                             SA3    A5+B1                                                   CCG17     488
                     10633                        BX6    X3          VAL = [R2]                                  CCG17     489
                          0400001105 +            EQ     LDC1                                                    CCG17     490
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    57
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        BTERM               SQUEEZE 
  
                                        *         BOS - BEGINNING OF STMT MARKER                                 SQZ      2105
                                                                                                                 SQZ      2106
          1311                                    PROCESS BOS                                                    SQZ      2107
          1311  20536                             LX5    -R1.INP                                                 SQZ      2108
                     73650                        SX6    X5                                                      SQZ      2109
                          5160000000 X            SA6    =XHO$CSN     HO$CSN  = IN[R1]  */ LINE NO OF THIS STMT  CCGNC     762
                                                                                                                 SQZ      2111
          1312                                    PROCESS NOP                                                    SQZ      2112
          1312  43700                             MX7    0                                                       SQZ      2113
                     54740                        SA7    A4          [DI] = 0                                    SQZ      2114
                          0400000156 +            EQ     MSL1                                                    SQZ      2115
                                                                                                                 FCC0588     5
          1313                                    PROCESS EOS                                                    FCC0588     6
          1313  73350                             SX3    X5                                                      FCC0588     7
                     0303000156 +                 ZR     X3,MSL1     IF IH[R1] = 0 */ NOT A OPT=2 *EOS*          FCC0588     8
                               55252              SA2    A5-B2       DIP = R1 - 2                                FCC0588     9
          1314  20221                             LX2    59-D.BMP                                                FCC0588    10
                     0332000156 +                 MI     X2,MSL1     IF BM[DIP]    */ LAST INST IS A *BM*        FCC0588    11
          1315  0400001312 +                      EQ     .NOP                                                    FCC0588    12
                                                                                                                 FCC0588    13
                                        *         RS - REGISTER STORE                                            SQZ      2117
                                                                                                                 SQZ      2118
          1316                                    PROCESS RS                                                     SQZ      2119
          1316  0304000156 +                      ZR     X4,MSL1     IF [DI] = 0   */ DEAD INSTRUCTION           SQZ      2120
                                                                                                                 SQZ      2121
                          56176                   SA1    "RN"+B6     RI = RND(RI)                                SQZ      2122
                               11605              BX6    X0*X5                                                   SQZ      2123
          1317  15210                             BX2    -X0*X1                                                  SQZ      2124
                     36762                        IX7    X6+X2                                                   SQZ      2125
                          54750                   SA7    A5                                                      SQZ      2126
                               13675              BX6    X7-X5                                                   SQZ      2127
          1320  10577                             BX5    X7                                                      SQZ      2128
                     20735                        LX7    59-R1.INP                                               SQZ      2129
                          0337000156 +            MI     X7,MSL1     IF IN[R1] " 0  */ RJ *RS*                   SQZ      2130
                                                                                                                 SQZ      2131
          1321  20152                             LX1    -RN.TPP                                                 SQZ      2132
                     5221000003                   SA2    X1+3                                                    SQZ      2133
                               74350              SX3    A5                                                      SQZ      2134
          1322  20344                             LX3    I.RSP                                                   CCG17     492
                     12732                        BX7    X3+X2       RSL[TP[RI]+3] = R1                          SQZ      2136
                          5130000013 C            SA3    RSS                                                     CCG17     493
          1323  54720                             SA7    A2                        */ LINK DEF TO *RS*           SQZ      2137
                     0306001325 +                 ZR     X6,RS1      IF RI DIDN"T CHANGE                         SQZ      2138
                                                                                                                 SQZ      2139
                               10633              BX6    X3                                                      CCG17     494
          1324  54641                             SA6    A4+B1       [DI+1] = RSS  */                            CCG17     495
                     64500                        SB5    "TXT"                                                   CCG17     496
                          75755                   SX7    A5-B5                                                   CCG17     497
                               54730              SA7    A3          RSS = R1 - TXT */                           CCG17     498
                                                                                                                 SQZ      2145
                                        *         BUMP USES COUNT OF OPERAND IF *UJP* OR FULL LOCK *RS*.         SQZ      2146
                                                                                                                 SQZ      2147
          1325  10655                    RS1      BX6    X5                                                      SQZ      2148
                     20645                        LX6    59-R1.SOP-SO.LKP                                        SQZ      2149
                          0336000156 +            MI     X6,MSL1     IF IF SOTLK[R1]   */ DONT COLLECT USES      SQZ      2150
          1326  20540                             LX5    R1.RJP                                                  SQZ      2151
                     20673                        LX6    -1                                                      CCGA083    15
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    58
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        BTERM               SQUEEZE 
  
                          0336000232 +            MI     X6,AUC.RJ   IF FULL LOCK                                CCGA083    16
          1327  5120000006 C                      SA2    FAC                                                     CCGA083    17
                          54341                   SA3    A4+B1                                                   CCGA083    18
                               20222              LX2    18                                                      CCGA083    19
          1330  12723                             BX7    X2+X3       AC[LI] = FAC                                CCGA083    20
                     54730                        SA7    A3                                                      CCGA083    21
                          74641                   SX6    A4+B1                                                   CCGA083    22
                               54620              SA6    A2          FAC = DI+1                                  CCGA083    23
          1331  0400000232 +                      EQ     AUC.RJ                                                  SQZ      2152
  
  
  
                                        *         RJ3 - ELIMINATE REDUNDANT BEF CALLS                            CCGA083    25
                                                                                                                 CCGA083    26
          1332                                    PROCESS RJ3                                                    CCGA083    27
                                         .F       IFEQ   HC.ID,2     FTN ONLY                                    CCGA083    28
          1332  7160000001                        SX6    1                                                       CCGA083    29
                          5160000000 X            SA6    CC$XR       CC$XR = 1                                   CCGA083    30
          1333  43700                             MX7    0                                                       CCG0211     6
                     5170001633 +                 SA7    RJCA                                                    CCG0211     7
          1334  5130000007 C                      SA3    RJ3C                                                    CCGA083    31
                          5077000001              SA7    A7+1                                                    CCG0211     8
          1335  0303001376 +             RJ1      ZR     X3,RJ7      IF I = 0  */ END OF CHAIN                   CCGA083    32
                          5223000000              SA2    X3+         R1 = [I]                                    CCGA083    33
          1336  5233000003                        SA3    X3+3        LI = [I+3]                                  CCGA083    34
                          10733                   BX7    X3                                                      CCGA083    35
                               73330              SX3    X3          I = RJ3C[LI]                                CCGA083    36
          1337  5012000004                        SA1    A2+4        R1 = R1 + 4                                 CCG0206     6
                          26631                   UX6    B3,X1                                                   CCG0206     7
          1340  6140000005                        SB4    OC.DEF                                                  CCG0206     8
                          0534001335 +            NE     B3,B4,RJ1                 */ IF NO OC.DEF AFTER RJ3     CCG0206     9
          1341  13625                             BX6    X2-X5                                                   CCGA083    37
                     0316001335 +                 NZ     X6,RJ1      IF IH'S .NE.                                CCGA083    38
                                                                                                                 CCGA083    39
                               74630              SX6    A3          RJ3T = LI     */ SAVE PTR TO LINK WORD      CCGA083    40
          1342  5160000016 C                      SA6    RJ3T                                                    CCGA083    41
                                                                                                                 CCGA083    43
                                        *         IH'S MATCH, SEE IF ARG LISTS MATCH                             CCGA083    44
                                                                                                                 CCGA083    45
                          21744                   AX7    36          FACI = AC[LI]                               CCGA083    46
          1343  5120000006 C                      SA2    FAC                                                     CCGA083    47
                          66610                   SB6    B1          SI = 1                                      CCGA083    48
                               43600              MX6    0                                                       CCGA083    49
          1344  5160000021 C                      SA6    STK         STK(0) = 0                                  CCGA083    50
                                                                                                                 CCGA083    51
                                        *         X2,X7 = PTRS TO LINK WDS OF RS'S (THIS,PREVIOUS)               CCGA083    52
                                                                                                                 CCGA083    53
          1345  53320                    RJ2      SA3    X2                                                      CCGA083    54
                     21322                        AX3    18                                                      CCGA083    55
                          73630                   SX6    X3          LWA = AC[LWA]                               CCGA083    56
                               53370              SA3    X7                                                      CCGA083    57
          1346  21322                             AX3    18                                                      CCGA083    58
                     73330                        SX3    X3          LWB = AC[LWB]                               CCGA083    59
                          20622                   LX6    18                                                      CCGA083    60
                               12663              BX6    X6+X3                                                   CCGA083    61
          1347  5160000017 C                      SA6    FACS        FACS = LW(0,0,LWA,LWB)                      CCGA083    62
                          5212777774              SA1    X2-3                                                    CCGA083    63
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    59
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJ3                 SQUEEZE 
  
          1350  15110                             BX1    -X0*X1      RIA = RI[LWB-3]                             CCGA083    64
                     5227777774                   SA2    X7-3                                                    CCGA083    65
                               15220              BX2    -X0*X2      RIB = RI[LWB-3]                             CCGA083    66
                                                                                                                 CCGA083    67
          1351  0301001404 +             RJ3      ZR     X1,RJ8      IF RIA = 0                                  CCGA083    68
                          0302001404 +            ZR     X2,RJ8      IF RIB = 0                                  CCGA083    69
          1352  53117                             SA1    B7+X1                                                   CCGA083    70
                     20152                        LX1    -RN.TPP                                                 CCGA083    71
                          53110                   SA1    X1          R1A = TP[RND(RIA)]                          CCGA083    72
                               53227              SA2    B7+X2                                                   CCGA083    73
          1353  20252                             LX2    -RN.TPP                                                 CCGA083    74
                     53220                        SA2    X2          R1B = TP[RND(RIB)]                          CCGA083    75
                          13612                   BX6    X1-X2                                                   CCGA083    76
                               54312              SA3    A1+B2                                                   CCGA083    77
          1354  43702                             MX7    D.TYL                                                   CCGA083    78
                                                  LX3    58-D.TYP                                                CCGA083    79
                     11773                        BX7    X7*X3                                                   CCGA083    80
                          0307001365 +            ZR     X7,RJ5      IF TY[R1A+2] = I                            CCG0147     5
          1355  21636                             AX6    R1.INP                                                  CCGA083    82
                     0316001374 +                 NZ     X6,RJ6      IF (OC,IN)[R1A] .NE. (OC,IN)[R1B]           CCGA083    83
          1356  0333001361 +                      MI     X3,RJ3A     IF TY[R1A+2] = III                          CCGA083    84
                          26631                   UX6    B3,X1                                                   CCGA083    85
          1357  7163777772                        SX6    B3-OC.DEF                                               CCGA083    86
                          0306001374 +            ZR     X6,RJ6      IF OC = OC.DEF  */ NESTED FUNCTION CALLS    CCGA083    87
          1360  0400001363 +                      EQ     RJ4                                                     CCGA083    88
          1361  0100001600 +             RJ3A     RJ     MMR         MATCH MEM REFS                              CCGA083    89
          1362  0313001351 +                      NZ     X3,RJ3      IF INDEXED REFS   */ FOLLOW PRED            CCGA083    90
                                                                                                                 CCGA083    91
                                        *         POP STACK                                                      CCGA083    92
                                                                                                                 CCGA083    93
          1363  67661                    RJ4      SB6    B6-B1       SI = SI - 1                                 CCGA083    94
                     5126000021 C                 SA2    STK+B6                                                  CCGA083    95
                               73120              SX1    X2                                                      CCGA083    96
          1364  21222                             AX2    18          RIA,RIB = STK(I)                            CCGA083    97
                     0400001351 +                 EQ     RJ3                                                     CCGA083    98
                                                                                                                 CCGA083    99
                                        *         TYPE I - PUSH STACK                                            CCGA083   100
                                                                                                                 CCGA083   101
          1365  21660                    RJ5      AX6    R1.OCP                                                  CCGA083   102
                     0316001374 +                 NZ     X6,RJ6      IF OC[R1A] .NE. OC[R1B]                     CCGA083   103
                               20330              LX3    1+D.TYP-D.LDP                                           CCG0147     6
          1366  0333001361 +                      MI     X3,RJ3A     IF LD[DI]                                   CCG0147     7
                          21120                   AX1    R1.RIL                                                  CCGA083   104
                               21220              AX2    R1.RIL                                                  CCGA083   105
          1367  15310                             BX3    -X0*X1                                                  CCGA083   106
                     15620                        BX6    -X0*X2                                                  CCGA083   107
                          20622                   LX6    18                                                      CCGA083   108
                               12663              BX6    X6+X3                                                   CCGA083   109
          1370  5166000021 C                      SA6    STK+B6      STK(SI) = STKW(RKA,RKB)                     CCGA083   110
                          66661                   SB6    B6+B1       SI = SI + 1                                 CCGA083   111
                               21120              AX1    R1.RIL                                                  CCGA083   112
          1371  21220                             AX2    R1.RIL                                                  CCGA083   113
                     15110                        BX1    -X0*X1      RIA = RJ[R1A]                               CCGA083   114
                          15220                   BX2    -X0*X2      RIB = RJ[R1B]                               CCGA083   115
          1372  0311001351 +                      NZ     X1,RJ3      IF RIA .NE. 0                               CCGA083   116
                          0312001374 +            NZ     X2,RJ6      IF RIB .NE. 0                               CCGA083   117
          1373  0400001363 +                      EQ     RJ4         GO POP THE OTHER OPERAND                    CCGA083   118
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    60
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJ3                 SQUEEZE 
  
                                                                                                                 CCGA083   119
                                        *         FAIL EXIT, TRY AGAIN                                           CCGA083   120
                                                                                                                 CCGA083   121
          1374  5130000016 C             RJ6      SA3    RJ3T                                                    CCGA083   122
                          53330                   SA3    X3                                                      CCGA083   123
                               73330              SX3    X3          I = SETX([RJ3T])  */ RESTORE LINK TO NEXT   CCGA083   124
          1375  0400001335 +                      EQ     RJ1                                                     CCGA083   125
                                                                                                                 CCGA083   126
                                        *         FAIL, NO MATCH OF CURRENT ENTRY ON RJ3 CHAIN                   CCGA083   127
                                                                                                                 CCGA083   128
          1376  5110000006 C             RJ7      SA1    FAC                                                     CCGA083   129
                          5120000002 C            SA2    MRC                                                     CCGA083   130
          1377  5130000007 C                      SA3    RJ3C                                                    CCGA083   131
                          20144                   LX1    36                                                      CCGA083   132
                               20222              LX2    18                                                      CCGA083   133
          1400  12612                             BX6    X1+X2                                                   CCGA083   134
                     12663                        BX6    X6+X3                                                   CCGA083   135
                          54641                   SA6    A4+B1       [LI] = LW(0,FAC,MRC,RJ3C)                   CCGA083   136
                               43600              CLEAR              CLEAR CHAIN POINTERS                        CCGA083   137
          1403  74750                             SX7    A5                                                      CCGA083   138
                     54730                        SA7    A3          RJ3C = R1                                   CCGA083   139
                          0400000156 +            EQ     MSL1                                                    CCGA083   140
                                                                                                                 CCGA083   141
                                        *         ONE OR BOTH RI ARE ZERO                                        CCGA083   142
                                                                                                                 CCGA083   143
          1404  13612                    RJ8      BX6    X1-X2                                                   CCGA083   144
                     0316001374 +                 NZ     X6,RJ6      IF NOT(RIA = 0 AND RIB = 0)                 CCGA083   145
          1405  0716001363 +                      GT     B6,B1,RJ4   IF SI > 1     */ STACK NON-EMPTY            CCGA083   146
                                                                                                                 CCGA083   147
                                        *         SUCCESS                                                        CCGA083   148
                                                                                                                 CCGA083   149
                          5130000017 C            SA3    FACS                                                    CCGA083   150
          1406  0303001410 +                      ZR     X3,RJ9      IF FACS = 0   */ NO MORE ARGS               CCGA083   151
                          73730                   SX7    X3                                                      CCG0189     6
                               21322              AX3    18                                                      CCGA083   153
          1407  66610                             SB6    B1          SI = 1                                      CCGA083   154
                     73230                        SX2    X3                                                      CCG0189     7
                          0400001345 +            EQ     RJ2         GO CHECK NEXT ARG                           CCGA083   156
                                                                                                                 CCGA083   157
                                        *         ELIMINATE THIS RJ, STORE RESULT OF PREVIOUS IF NECESSARY       CCGA083   158
                                                                                                                 CCGA083   159
          1410  5110000006 C             RJ9      SA1    FAC         I = FAC                                     CCGA083   160
                          76510                   SX5    B1                                                      CCGA083   161
                               20544              LX5    RN.USESP                                                CCGA083   162
          1411  43700                             MX7    0           RSSV = 0                                    CCGA083   163
                     54710                        SA7    A1          FAC = 0                                     CCGA083   164
          1412  53210                    RJ10     SA2    X1          LI = I                                      CCGA083   165
                     43674                        MX6    60                                                      CCGA083   166
                          55621                   SA6    A2-B1       [LI-1] = -0  */ CLEAR DESCR OF RS           CCGA083   167
                               55362              SA3    A6-B2       R1 = LI - 3                                 CCGA083   168
          1413  15330                             BX3    -X0*X3                                                  CCGA083   169
                     53337                        SA3    B7+X3                                                   CCGA083   170
                          37635                   IX6    X3-X5       USES[RND(RI)] = USES[RND(RI)] - 1           CCGA083   171
                               54630              SA6    A3                                                      CCGA083   172
          1414  20652                             LX6    -RN.TPP                                                 CCGA083   173
                     53362                        SA3    X6+B2       DIP = TP[RND(RI)] + 2                       CCGA083   174
                          76610                   SX6    B1                                                      CCGA083   175
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    61
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJ3                 SQUEEZE 
  
                               20646              LX6    D.PRSP                                                  CCGA083   176
          1415  15636                             BX6    -X6*X3                                                  CCGA083   177
                     54630                        SA6    A3          PRS[DIP] = 0                                CCGA083   178
                          7232000000              SX3    X2+         RSC = RSS[LI] */ SEPERATED RS CHAIN         CCGA083   179
          1416  0303001417 +                      ZR     X3,RJ11     IF RSC = 0                                  CCGA083   180
                          7273000000              SX7    X3+         RSSV = RSC                                  CCGA083   181
          1417  20252                    RJ11     LX2    -18                                                     CCGA083   182
                     73120                        SX1    X2          I = AC[LI]                                  CCGA083   183
                          0311001412 +            NZ     X1,RJ10     IF I .NE. 0                                 CCGA083   184
          1420  0307001421 +                      ZR     X7,RJ12     IF RSSV = 0                                 CCGA083   185
                          5170000013 C            SA7    RSS         RSS = RSSV    */ UPDATE RS CHAIN            CCGA083   186
                                                                                                                 CCGA083   187
          1421  5130000016 C             RJ12     SA3    RJ3T                                                    CCGA083   188
                          63531                   SB5    X3+B1       R1D = RJ3T+1                                CCGA083   189
                               66610              SB6    B1          PREC = 1                                    CCGA083   190
          1422  43773                             MX7    59                                                      CCGA083   191
                     5170000020 C                 SA7    CAS         CAS = -1                                    CCGA083   192
                               54771              SA7    A7+B1                                                   CCGA083   193
          1423  5135000004                        SA3    B5+4        R1S = R1D+4   */ SKIP OVER FIRST DEF        CCGA083   194
                          6140000051              SB4    OC.ST                                                   CCGA083   195
          1424  26633                             UX6    B3,X3                                                   CCGA083   196
                     56251                        SA2    B5+B1       R2D = R1D+1                                 CCGA083   197
                          0302001433 +            ZR     X2,RJ13     IF [R2D] = 0                                CCGA083   198
                                                                                                                 CCGA083   199
          1425  20252                             LX2    -IH.CAP                                                 CCGA083   200
                     73620                        SX6    X2                                                      CCGA083   201
                          5160000020 C            SA6    CAS         CAS = CA[R2D] */ CA FROM PREVIOUS SQZ       CCGA083   202
          1426  0534001427 +                      NE     B3,B4,RJ12A IF OC[R1S] .NE. OC.ST                       CCGA083   203
                          5033000004              SA3    A3+4        R1S = R1S + 4                               CCGA083   204
          1427  26633                    RJ12A    UX6    B3,X3                                                   CCGA083   205
                     6140000005                   SB4    OC.DEF                                                  CCGA083   206
                               64520              SB5    A2          FIRST = R2D                                 CCGA083   207
          1430  7170000004                        SX7    4                                                       CCGA083   208
                          0534001447 +            NE     B3,B4,RJ13A  IF OC[R1S] .NE. OC.DEF  */ NOT DBL PREC    CCGA083   209
          1431  66611                             SB6    B1+B1       PREC = 2                                    CCGA083   210
                     54331                        SA3    A3+B1                                                   CCGA083   211
                          20352                   LX3    -IH.CAP                                                 CCGA083   212
                               73630              SX6    X3          CAS(2) = CA[R1S+1]                          CCGA083   213
          1432  5160000021 C                      SA6    CAS+1                                                   CCGA083   214
                          0400001447 +            EQ     RJ13A                                                   CCGA083   215
                                                                                                                 CCGA083   216
          1433  0534001504 +             RJ13     NE     B3,B4,RJ15  IF OC[R1S] .NE. OC.ST                       CCGA083   217
                          5110000000 X            SA1    =XS=ST                                                  CCGA083   218
          1434  54231                             SA2    A3+B1                                                   CCGA083   219
                     13612                        BX6    X1-X2                                                   CCGA083   220
                          7276000000              SX7    X6+                                                     CCGA083   221
          1435  0317001503 +                      NZ     X7,RJ14     IF IH[R1S+1] .NE. ST.                       CCGA083   222
                          20252                   LX2    -IH.CAP                                                 CCGA083   223
                               73620              SX6    X2                                                      CCGA083   224
          1436  5160000020 C                      SA6    CAS         CAS = CA[R1S+1]                             CCGA083   225
                          5033000004              SA3    A3+4        R1S = R1S+4                                 CCGA083   226
          1437  26633                             UX6    B3,X3                                                   CCGA083   227
                     64520                        SB5    A2          FIRST = R2S                                 CCGA083   228
                          43322                   MX3    R1.CAL                                                  CCG0211     9
          1440  5022777776                        SA2    A2-1                         */ R1W                     CCG0211    10
                          20360                   LX3    18+R1.CAP                                               CCG0211    11
                               11632              BX6    X3*X2                         */ LINK TO UDI            CCG0211    12
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    62
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJ3                 SQUEEZE 
  
          1441  5160001633 +                      SA6    RJCA                           */ USED IN GTL           CCG0211    13
                          7170000010              SX7    8                                                       CCGA083   229
          1442  6140000005                        SB4    OC.DEF                                                  CCGA083   230
                          0534001447 +            NE     B3,B4,RJ13A  IF OC[R1S] .NE. OC.DEF  */ NOT DBL PRECISI CCGA083   231
          1443  5023000005                        SA2    A3+5                                                    CCGA083   232
                          20252                   LX2    -IH.CAP                                                 CCGA083   233
                               73620              SX6    X2                                                      CCGA083   234
          1444  5160000021 C                      SA6    CAS+1       CAS(2) = CA[R1S+5]                          CCGA083   235
                          66611                   SB6    B1+B1       PREC= 2                                     CCGA083   236
          1445  5022777776                        SA2    A2-1                               */ R1W               CCG0211    14
                          11632                   BX6    X3*X2                                                   CCG0211    15
          1446  5160001634 +                      SA6    RJCA+1                               */ GTL             CCG0211    16
                                                                                                                 CCGA083   237
                                        *         RESULT OF RJ3 IS STORED TO AN ST. , ENSURE THAT THERE IS NO    CCGA083   238
                                        *         REDEFINITION OF THE ST. BETWEEN THE CURRENT AND THE FIRST RJ3. CCGA083   239
                                        *         B5 = LOC OF R2 OF FIRST ST., X7 = INCREMENT BETWEEN ST.'S      CCGA083   240
                                                                                                                 CCGA083   241
          1447  5170000016 C             RJ13A    SA7    RJ3T        SAVE INCREMENT IN CASE DBL PREC             CCGA083   242
                          66350                   SB3    B5          B3 = FIRST                                  CCGA083   243
                               43700              MX7    0           PASS = 0                                    CCGA083   244
          1450  56331                             SA3    B3+B1                                                   CCGA083   245
                     0313001454 +                 NZ     X3,RJ13B    IF [DI] .NE. 0  */ STORE IS LIVE            CCGA083   246
                               57331              SA3    B3-B1                                                   CCGA083   247
          1451  26343                             UX3    B4,X3                                                   CCGA083   248
                     15330                        BX3    -X0*X3                                                  CCGA083   249
                          53337                   SA3    B7+X3       RND(RI[R1])                                 CCGA083   250
                               76210              SX2    B1                                                      CCGA083   251
          1452  20244                             LX2    RN.USESP                                                CCGA083   252
                     36632                        IX6    X3+X2       BUMP USES CNT OF ST PRED                    CCGA083   253
                          54630                   SA6    A3                                                      CCGA083   254
          1453  5134000000 X                      SA3    F.RDT+B4                                                CCGA083   255
                          10633                   BX6    X3                                                      CCGA083   256
                               56631              SA6    B3+B1       RESTORE DESCRIPTOR                          CCGA083   257
                                                                                                                 CCGA083   258
          1454  43230                    RJ13B    MX2    -IH.CAIHL                                               CCGA083   259
                     56330                        SA3    B3          R2W = [FIRST] */ R2W OF ST TO ST.           CCGA083   260
                          15432                   BX4    -X2*X3      PAT = CAIH[R2W]                             CCGA083   261
                               66500              SB5    B0          LOC = 0  */ NO INTERFERENCE                 CCGA083   262
          1455  5034777772                        SA3    A4-1-4      R2I = DI-1-4                                CCGA083   263
                                                                                                                 CCGA083   264
                                        *         SEARCH BACKWARD FOR REDEF OF THIS ST.                          CCGA083   265
                                                                                                                 CCGA083   266
          1456  5033777773               RJ13C    SA3    A3-4        R2I = R2I - 4                               CCGA083   267
                          13534                   BX5    X3-X4                                                   CCGA083   268
                               15652              BX6    -X2*X5                                                  CCGA083   269
          1457  0316001456 +                      NZ     X6,RJ13C    IF CAIH[R2I] .NE. PAT                       CCGA083   270
                                                                                                                 CCGA083   271
                          64430                   SB4    A3                                                      CCGA083   272
          1460  0634001464 +                      LE     B4,B3,RJ13D IF R2I = FIRST  */ IF FINISHED              CCGA083   273
                          55131                   SA1    A3-B1                                                   CCGA083   274
                               26641              UX6    B4,X1                                                   CCGA083   275
          1461  7164777726                        SX6    B4-OC.ST                                                CCGA083   276
                          0316001456 +            NZ     X6,RJ13C    IF OC[R2I-1] .NE. OC.ST  */ NOT A REDEF     CCGA083   277
          1462  54131                             SA1    A3+B1                                                   CCGA083   278
                     0301001456 +                 ZR     X1,RJ13C    IF DESCR = 0  */ INSTRUCTION IS DEAD        CCGA083   279
                                                                                                                 CCGA083   280
                               64530              SB5    A3          LOC = R2I                                   CCGA083   281
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    63
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJ3                 SQUEEZE 
  
          1463  0400001456 +                      EQ     RJ13C                                                   CCGA083   282
                                                                                                                 CCGA083   283
          1464  73771                    RJ13D    SX7    X7+B1       PASS = PASS + 1                             CCGA083   284
                     0450001500 +                 ZR     B5,RJ13X    IF LOC = 0  */ NO REDEFINITIONS             CCGA083   285
                                                                                                                 CCGA083   286
                                        *         ST.+C IS REDEFINED, PICK A NEW CA AND UPDATE REFS              CCGA083   287
                                                                                                                 CCGA083   288
                               43600              MX6    0                                                       CCG0211    17
          1465  5160001633 +                      SA6    RJCA                                                    CCG0211    18
                          5160001634 +            SA6    RJCA+1                                                  CCG0211    19
          1466  5110000000 X                      SA1    STBASE      N = STBASE                                  CCGA083   289
                          10611                   BX6    X1                                                      CCGA083   290
          1467  5267000017 C                      SA6    CAS-1+X7    CAS(PASS) = N                               CCGA083   291
                          73611                   SX6    X1+B1       STBASE += 1                                 CCGA083   292
                               54610              SA6    A1                                                      CCGA083   293
          1470  5150000000 X                      SA5    S=ST                                                    CCGA083   294
                          20122                   LX1    IH.CAP                                                  CCGA083   295
                               12115              BX1    X1+X5       NEWPAT = CAIH(N,ST.)                        CCGA083   296
          1471  56350                             SA3    B5          R2J = LOC                                   CCGA083   297
                                                                                                                 CCGA083   298
          1472  43230                    RJ13E1   MX2    -IH.CAIHL                                               CCGA094     5
                                                                                                                 CCGA094     6
          1473  5033777773               RJ13E    SA3    A3-4        R2J = R2J - 4                               CCGA083   299
                          13534                   BX5    X3-X4                                                   CCGA083   300
                               15652              BX6    -X2*X5                                                  CCGA083   301
          1474  0316001473 +                      NZ     X6,RJ13E    IF CAIH[R2J] .NE. PAT                       CCGA083   302
                          54231                   SA2    A3+B1                                                   CCGA094     7
          1475  0302001472 +                      ZR     X2,RJ13E1   IF DESCR = 0                                CCGA094     8
                                                                                                                 CCGA083   303
                          43230                   MX2    -IH.CAIHL                                               CCGA094     9
                               11323              BX3    X2*X3                                                   CCGA083   304
          1476  12631                             BX6    X3+X1       CAIH[R2J] = NEWPAT                          CCGA083   305
                     54630                        SA6    A3                                                      CCGA083   306
                          64430                   SB4    A3                                                      CCGA083   307
          1477  0734001473 +                      GT     B4,B3,RJ13E IF R2J GT FIRST                             CCGA083   310
                                                                                                                 CCGA083   311
          1500  63470                    RJ13X    SB4    X7                                                      CCGA083   312
                     0446001522 +                 EQ     B4,B6,RJ18  IF PASS = PREC                              CCGA083   313
                                                                                                                 CCGA083   314
                                        *         SETUP FOR SECOND HALF OF DOUBLE PREC                           CCGA083   315
                                                                                                                 CCGA083   316
          1501  5110000016 C                      SA1    RJ3T                                                    CCGA083   317
                          63313                   SB3    B3+X1                                                   CCGA083   318
          1502  0400001454 +                      EQ     RJ13B                                                   CCGA083   319
                                                                                                                 CCGA083   320
                                                                                                                 CCGA083   321
          1503  5033000004               RJ14     SA3    A3+4        R1S = R1S+4                                 CCGA083   322
                          26633                   UX6    B3,X3                                                   CCGA083   323
          1504  6140000005               RJ15     SB4    OC.DEF                                                  CCGA083   324
                          0534001506 +            NE     B3,B4,RJ16                                              CCGA083   325
          1505  66611                             SB6    B1+B1       PREC = 2                                    CCGA083   326
          1506  5110000000 X             RJ16     SA1    STBASE                                                  CCGA083   327
                          10611                   BX6    X1                                                      CCGA083   328
          1507  5160000020 C                      SA6    CAS         CAS = STBASE                                CCGA083   329
                          73661                   SX6    X6+B1                                                   CCGA083   330
                               54661              SA6    A6+B1       CAS(2) = STBASE+1                           CCGA083   331
          1510  73716                             SX7    X1+B6       STBASE = STBASE + PREC                      CCGA083   332
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    64
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJ3                 SQUEEZE 
  
                     54710                        SA7    A1                                                      CCGA083   333
                          5120000000 X            SA2    S=ST                                                    CCGA083   334
          1511  20122                             LX1    IH.CAP                                                  CCGA083   335
                     76310                        SX3    B1                                                      CCGA083   336
                          20372                   LX3    58                                                      CCGA083   337
                               12612              BX6    X1+X2                                                   CCGA083   338
          1512  12663                             BX6    X6+X3                                                   CCGA083   339
                     5160000011 C                 SA6    IXF         IXF = NON_ZERO                              CCGA083   340
                               56651              SA6    B5+B1       [R1D+1] = IHW(F,0,CAS,ST.)                  CCGA083   341
          1513  0100001553 +                      RJ     BDU         BUMP USES OF DEF                            CCGA083   342
          1514  0461001522 +                      EQ     B6,B1,RJ18  IF PREC = 1                                 CCGA083   343
                          6140000005              SB4    OC.DEF                                                  CCGA083   344
          1515  26706                             UX7    X6          CLEAR FLAG BIT                              CCGA083   345
                     54760                        SA7    A6                                                      CCGA083   346
          1516  6155000004               RJ17     SB5    B5+4        R1D = R1D+4                                 CCGA083   347
                          56350                   SA3    B5                                                      CCGA083   348
                               26733              UX7    B3,X3                                                   CCGA083   349
          1517  0534001516 +                      NE     B3,B4,RJ17  IF OC[R1D] .NE. OC.DEF                      CCGA083   350
                          76310                   SX3    B1                                                      CCGA083   351
                               20322              LX3    IH.CAP                                                  CCGA083   352
          1520  36663                             IX6    X6+X3                                                   CCGA083   353
                     20347                        LX3    57-IH.CAP                                               CCGA083   354
                          36663                   IX6    X6+X3                                                   CCGA083   355
                               54631              SA6    A3+B1       [R1D+1] = IHW(F,0,CAS+1,ST.)                CCGA083   356
          1521  0100001553 +                      RJ     BDU         BUMP USES OF DEF                            CCGA083   357
                                                                                                                 CCGA083   358
                                        *         CHANGE CURRENT RJ3/DEF TO LD/XMT                               CCGA083   359
                                                                                                                 CCGA083   360
          1522  54342                    RJ18     SA3    A4+B2       R1D = DI+2                                  CCGA083   361
                     6130000005                   SB3    OC.DEF                                                  CCG0193     6
                               26653              UX6    B5,X3                                                   CCG0193     7
          1523  0435001525 +                      EQ     B3,B5,RJ19                           */ IF OC.DEF       CCG0193     8
                          43774                   MX7    -0                                                      CCG0193     9
                               54740              SA7    A4                                 */RJ3 IS DEAD        CCG0193    10
          1524  0400001376 +                      EQ     RJ7                                                     CCG0193    11
                                                                                                                 CCG0193    12
          1525  15630                    RJ19     BX6    -X0*X3                                                  CCG0193    13
                     63560                        SB5    X6          R = RI[R1D]                                 CCGA083   363
                          77651                   SX6    B5-B1                                                   CCGA083   364
          1526  5120000020 C                      SA2    CAS                                                     CCGA083   365
                          65442                   SB4    A4-B2                                                   CCGA083   366
          1527  5110001633 +                      SA1    RJCA                                                    CCG0211    20
                          10711                   BX7    X1                                                      CCG0211    21
          1530  5170001567 +                      SA7    GTLC                                */ USED IN GTL      CCG0211    22
                          0100001557 +            RJ     GTL         GTL( R-1 , CAS , DI-2 )                     CCGA083   367
          1531  77651                             SX6    B5-B1                                                   CCGA083   368
                     6144000004                   SB4    B4+4                                                    CCGA083   369
          1532  0100001570 +                      RJ     GXI         GENERATE XMT                                CCGA083   370
          1533  5044777773                        SA4    A4-4        DI = DI - 4   */ BACKUP TO PROCESS LD ST.   CCGA083   371
                          0461001552 +            EQ     B6,B1,RJ20  IF PREC = 1                                 CCGA083   372
          1534  5120000002 C                      SA2    MRC                                                     CCG0216     8
                          0302001540 +            ZR     X2,RJ19A                    */ IF REFERENCE CHAIN ZERO  CCG0216     9
          1535  14722                             BX7    -X2                                                     CCG0216    10
                     6034000001                   SB3    A4+1                       */ LI = DI + 1               CCG0216    11
                               73173              SX1    X7+B3                                                   CCG0216    12
          1536  0311001540 +                      NZ     X1,RJ19A                  */ IF MRC DOESN'T POINT HERE  CCG0216    13
                          56130                   SA1    B3                                                      CCG0216    14
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    65
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJ3                 SQUEEZE 
  
                               73610              SX6    X1                                                      CCG0216    15
          1537  54620                             SA6    A2                           */ UPDATE REFERENCE CHAIN  CCG0216    16
                                                                                                                 CCG0216    17
          1540  7165777775               RJ19A    SX6    B5-2                                                    CCG0216    18
                          5120000021 C            SA2    CAS+1                                                   CCGA083   374
          1541  6144777767                        SB4    B4-8                                                    CCGA083   375
                          5110001634 +            SA1    RJCA+1                                                  CCG0211    23
          1542  10711                             BX7    X1                                                      CCG0211    24
                     5170001567 +                 SA7    GTLC                                    */ USED IN GTL  CCG0211    25
          1543  0100001557 +                      RJ     GTL         GENERATE SECOND LOAD                        CCGA083   376
          1544  5134000010                        SA3    B4+8                                                    CCGA083   377
          1545  5033000004              +         SA3    A3+4                                                    CCGA083   378
                          26633                   UX6    B3,X3                                                   CCGA083   379
          1546  7173777772                        SX7    B3-OC.DEF                                               CCGA083   380
                          0317001545 +            NZ     X7,*-1                                                  CCGA083   381
          1547  64430                             SB4    A3                                                      CCGA083   382
                     7165777775                   SX6    B5-2        RJ = RI OF LOAD                             CCGA083   383
                               15730              BX7    -X0*X3                                                  CCGA083   384
          1550  63570                             SB5    X7                                                      CCGA083   385
                     0100001570 +                 RJ     GXI         REPLACE SECOND DEF WITH XMT                 CCGA083   386
          1551  5044777773                        SA4    A4-4        DI = DI - 4   */ BACKUP                     CCGA083   387
          1552                           RJ20     BSS    0                                                       CCGA083   388
          1552  0400000156 +                      EQ     MSL1                                                    CCGA083   389
  
  
  
                                        **        BDU - BUMP *DEF* USES, (A6) = R2                               CCGA083   391
                                                                                                                 CCGA083   392
          1553  0200401553 +             BDU      ROUTINE                                                        CCGA083   393
          1554  55361                             SA3    A6-B1       GET R1 WORD                                 CCGA083   394
                     15230                        BX2    -X0*X3                                                  CCGA083   395
                          53327                   SA3    B7+X2                                                   CCGA083   396
                               76210              SX2    B1                                                      CCGA083   397
          1555  20244                             LX2    RN.USESP                                                CCGA083   398
                     36723                        IX7    X2+X3                                                   CCGA083   399
                          54730                   SA7    A3                                                      CCGA083   400
          1556  0400001553 +                      EQ     BDU                                                     CCGA083   401
  
  
  
                                        **        GTL - GENERATE TEMP LOAD                                       CCGA083   403
                                        *         ENTRY X6 = RI                                                  CCGA083   404
                                        *                X2 = CA                                                 CCGA083   405
                                        *                B4 = R1 ADDR                                            CCGA083   406
                                                                                                                 CCGA083   407
          1557  0200401557 +             GTL      ROUTINE                                                        CCGA083   408
          1560  6130000050                        SB3    OC.LD                                                   CCGA083   409
                          76740                   SX7    B4                                                      CCGA083   410
                               20722              LX7    RN.TPP                                                  CCGA083   411
          1561  12767                             BX7    X6+X7                                                   CCGA083   412
                     53767                        SA7    B7+X6       RND(RI) = RNDW(0,0,R1,RI)                   CCGA083   413
                          27636                   PX6    B3,X6                                                   CCGA083   414
          1562  5110001567 +                      SA1    GTLC                                                    CCG0211    26
                          36661                   IX6    X6+X1                        */ INCLUDE LINK TO UDI     CCG0211    27
                               56640              SA6    B4                                                      CCGA083   415
          1563  5110000000 X                      SA1    S=ST                                                    CCGA083   416
                          20222                   LX2    IH.CAP                                                  CCGA083   417
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    66
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        GTL                 SQUEEZE 
  
                               12712              BX7    X1+X2                                                   CCGA083   418
          1564  56741                             SA7    B4+B1                                                   CCGA083   419
                     5133000000 X                 SA3    =XF$RDT+B3                                              CCGA083   420
                               10633              BX6    X3                                                      CCGA083   421
          1565  54671                             SA6    A7+B1                                                   CCGA083   422
                     43700                        MX7    0                                                       CCGA083   423
                          54761                   SA7    A6+B1       LINK = 0                                    CCGA083   424
          1566  0400001557 +                      EQ     GTL                                                     CCGA083   425
          1567                     1     GTLC     BSS    1                                                       CCG0211    28
  
  
  
                                        **        GXI - GENERATE XMT INSTRUCTION                                 CCGA083   427
                                        *         ENTRY X6 = RJ                                                  CCGA083   428
                                        *                B5  RI                                                  CCGA083   429
                                        *                B4 = R1 ADDR                                            CCGA083   430
                                                                                                                 CCGA083   431
          1570  0200401570 +             GXI      ROUTINE                                                        CCGA083   432
          1571  6130000010                        SB3    OC.XMT                                                  CCGA083   433
                          5133000000 X            SA3    F$RDT+B3                                                CCGA083   434
          1572  56242                             SA2    B4+B2       DESCR                                       CCGA083   435
                     76710                        SX7    B1                                                      CCGA083   436
                          20747                   LX7    D.PSP                                                   CCGA083   437
                               11272              BX2    X7*X2                                                   CCGA083   438
          1573  12323                             BX3    X2+X3       MOVE TO XMT DESCR                           CCGA083   439
                     20640                        LX6    R1.RJP                                                  CCGA083   440
                          76550                   SX5    B5                                                      CCGA083   441
                               12665              BX6    X6+X5                                                   CCGA083   442
          1574  27636                             PX6    B3,X6                                                   CCGA083   443
                     56640                        SA6    B4                                                      CCGA083   444
                          43700                   MX7    0                                                       CCGA083   445
                               56741              SA7    B4+B1       R2W = 0                                     CCGA083   446
          1575  10633                             BX6    X3                                                      CCGA083   447
                     54671                        SA6    A7+B1                                                   CCGA083   448
                          54761                   SA7    A6+B1       LINK = 0                                    CCGA083   449
                               76640              SX6    B4                                                      CCGA083   450
          1576  20622                             LX6    RN.TPP                                                  CCGA083   451
                     12656                        BX6    X5+X6                                                   CCGA083   452
                          76510                   SX5    B1                                                      CCGA083   453
                               20566              LX5    RN.XMTP                                                 CCGA083   454
          1577  12656                             BX6    X5+X6                                                   CCGA083   455
                     56675                        SA6    B7+B5       RND(RI) = RNDW(XMT,0,R1,RI)                 CCGA083   456
                          0400001570 +            EQ     GXI                                                     CCGA083   457
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    67
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        MMR                 SQUEEZE 
  
                                        **        MMR - MATCH MEMORY REFS                                        CCGA083   459
                                        *         ENTRY A1,A2 = R1 WORD ADDRESS'S OF THE MEM REFS                CCGA083   460
                                        *         EXIT TO RJ6 IF NO MATCH OR INTERFERENCE                        CCGA083   461
                                        *         X1,X2,X3 = RF1,RF2,SUM OF RFS                                  CCGA083   462
                                                                                                                 CCGA083   463
          1600  0200401600 +             MMR      ROUTINE                                                        CCGA083   464
          1601  26631                             UX6    B3,X1                                                   CCGA083   465
                     54111                        SA1    A1+B1       IHA = R1A+1                                 CCGA083   466
                          54221                   SA2    A2+B1       IHB = R1B+1                                 CCGA083   467
                               13612              BX6    X1-X2                                                   CCGA083   468
          1602  7133777674                        SX3    B3-OC.LDC                                               CCGA083   469
                          0313001605 +            NZ     X3,MMR1     IF OC[R1A] .NE. OC.LDC                      CCGA083   470
          1603  0316001374 +                      NZ     X6,RJ6      IF [IHA] .NE. [IHB]                         CCGA083   471
                          0336001374 +            MI     X6,RJ6      IF COMPLEMENTS                              CCGA083   472
          1604  43300                             MX3    0                                                       CCGA083   473
                     0400001600 +                 EQ     MMR                                                     CCGA083   474
                                                                                                                 CCGA083   475
          1605  43730                    MMR1     MX7    -IH.CAIHL                                               CCGA083   476
                     15767                        BX7    -X7*X6                                                  CCGA083   477
                          0317001374 +            NZ     X7,RJ6      IF NO MATCH OF CA AND IH                    CCGA083   478
          1606  5160001631 +                      SA6    MMRA                                                    CCGA083   479
                          10722                   BX7    X2          SAVE DIFF AND RF OF IHB                     CCGA083   480
                               20730              LX7    -IH.RFP                                                 CCGA083   481
          1607  73770                             SX7    X7                                                      CCGA083   482
                     54761                        SA7    A6+B1                                                   CCGA083   483
                                                                                                                 CCGA083   484
                                        *         SCAN BACKWARD FOR INTERFERING STORE                            CCGA083   485
                                                                                                                 CCGA083   486
                          65421                   SB4    A2-B1       B4 = R1B                                    CCG0158     6
                               67404              SB4    -B4                                                     CCG0158     7
          1610  5120000002 C                      SA2    MRC         I = MRC                                     CCGA083   487
                          5130000007 C            SA3    RJ3C                                                    CCGA083   488
          1611  63330                             SB3    X3          J = RJ3C                                    CCGA083   489
                     43552                        MX5    -IH.IHL                                                 CCGA083   490
          1612  0302001621 +             MMR2     ZR     X2,MMR3                                                 CCGA083   491
                          53220                   SA2    X2          LW = [I]                                    CCGA083   492
                               73220              SX2    X2          I = MRC[LW]                                 CCGA083   493
          1613  74624                             SX6    A2+B4                                                   CCG0158     8
                     0336001624 +                 MI     X6,MMR4     IF I < R1B                                  CCG0158     9
                               55321              SA3    A2-B1       DI = LW - 1                                 CCGA083   494
          1614  20331                             LX3    59-D.STP                                                CCGA083   495
                     0323001612 +                 PL     X3,MMR2     IF NOT ST[DI]                               CCGA083   496
                               55331              SA3    A3-B1       IHW = [DI-1]                                CCGA083   497
          1615  13613                             BX6    X1-X3                                                   CCGA083   498
                     15765                        BX7    -X5*X6                                                  CCGA083   499
                          0317001612 +            NZ     X7,MMR2     IF IH[IHW] .NE. IH[R2W]                     CCGA083   500
          1616  20630                             LX6    -IH.RFP                                                 CCGA083   501
                     15765                        BX7    -X5*X6                                                  CCGA083   502
                          0317001374 +            NZ     X7,RJ6      IF RF'S DIFFERENT                           CCGA083   503
          1617  20622                             LX6    IH.RFP-IH.CAP                                           CCGA083   504
                     15765                        BX7    -X5*X6                                                  CCGA083   505
                          0306001374 +            ZR     X6,RJ6      IF CA'S THE SAME                            CCGA083   506
          1620  0400001612 +                      EQ     MMR2                                                    CCGA083   507
                                                                                                                 CCGA083   508
          1621  0430001624 +             MMR3     ZR     B3,MMR4                     */ IF END OF CHAIN          CCG0158    10
                          5133000003              SA3    B3+3        LI = [J+3]                                  CCGA083   510
          1622  63330                             SB3    X3          J = RJ3C[LI]                                CCGA083   511
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    68
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        MMR                 SQUEEZE 
  
                     20352                        LX3    -18                                                     CCGA083   512
                          73230                   SX2    X3          I = MRC[LI]                                 CCGA083   513
          1623  0400001612 +                      EQ     MMR2                                                    CCGA083   514
                                                                                                                 CCGA083   515
          1624  20130                    MMR4     LX1    -IH.RFP                                                 CCGA083   516
                     73110                        SX1    X1                                                      CCGA083   517
                          5120001632 +            SA2    MMRA+1                                                  CCGA083   518
          1625  12312                             BX3    X1+X2                                                   CCGA083   519
                     13612                        BX6    X1-X2                                                   CCGA083   520
                          0306001627 +            ZR     X6,MMR5     IF RF'S =                                   CCGA083   521
          1626  0303001600 +                      ZR     X3,MMR      IF BOTH = 0                                 CCGA083   522
                          0400001374 +            EQ     RJ6                                                     CCGA083   523
                                                                                                                 CCGA083   524
          1627  7241777776               MMR5     SX4    X1-1                                                    CCGA083   525
                          0314001600 +            NZ     X4,MMR      IF RF .NE. 1                                CCGA083   526
          1630  43300                             MX3    0           INDICATE BOTH ARE 0                         CCGA083   527
                     0400001600 +                 EQ     MMR                                                     CCGA083   528
                                                                                                                 CCGA083   529
          1631                     2     MMRA     BSS    2                                                       CCGA083   530
          1633                     2     RJCA     BSS    2                                                       CCG0211    29
                                         .F       ENDIF                                                          CCGA083   531
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    69
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        BTERM               SQUEEZE 
  
                                        *         BLOCK TERMINATORS                                              SQZ      2154
                                                                                                                 SQZ      2155
          1635                                    PROCESS RJ6                                                    CCGA083   532
          1635  7160000001                        SX6    1                                                       CCG7      121
                          5160000000 X            SA6    =XCC$XR     CC$XR = 1                                   CCGNC     763
                                                                                                                 CCG7      123
          1636                                    PROCESS (UJP,LAB,ENT)                                          CCG7      124
          1636  43600                             CLEAR              CLEAR LINKED LISTS                          SQZ      2157
                     0400000156 +                 EQ     MSL1                                                    SQZ      2158
                                                                                                                 SQZ      2159
          1641                                    PROCESS JIN                                                    SQZ      2160
          1641  43600                             CLEAR              CLEAR LINKED LISTS                          SQZ      2161
                     56176                        SA1    "RN"+B6                                                 SQZ      2162
                          11605                   BX6    X0*X5                                                   CCG27       7
                               15510              BX5    -X0*X1                                                  CCG27       8
          1644  36665                             IX6    X6+X5                                                   CCG27       9
                     54650                        SA6    A5                                                      CCG27      10
                          0305000156 +            ZR     X5,MSL1     IF RI = 0                                   CCG27      11
          1645  0400001701 +                      EQ     JPX6                                                    CCG27      12
                                                                                                                 SQZ      2168
                                        *         CONDITIONAL JUMPS                                              SQZ      2169
                                                                                                                 SQZ      2170
          1646                                    PROCESS JPX                                                    SQZ      2171
          1646  56176                             SA1    "RN"+B6                                                 SQZ      2172
                     11605                        BX6    X0*X5                                                   SQZ      2173
                          15510                   BX5    -X0*X1      RI = RND(RI)                                SQZ      2175
                               20106              LX1    59-RN.XMTCP                                             SQZ      2176
          1647  0321001654 +                      PL     X1,JPX1     IF ^XMTC[RNI]                               SQZ      2177
                                                                                                                 SQZ      2178
                                        *         CHANGE *JPX* TO OMIT *XMTC* IF *PL/MI* JUMPS                   SQZ      2179
                                                                                                                 SQZ      2180
                          54351                   SA3    A5+B1       R2 = R1 + 1                                 SQZ      2181
                               20352              LX3    -IH.CAP     JT = CA[R2]   */ JUMP TYPE                  SQZ      2182
          1650  63530                             SB5    X3                                                      SQZ      2183
                     0752001654 +                 LT     B5,B2,JPX1  IF JT < 2     */ ZR, NZ                     SQZ      2184
                               67552              SB5    B5-B2                                                   SQZ      2185
          1651  0652001654 +                      GE     B5,B2,JPX1  IF JT > 3     */ RANGE CHECK JUMPS          SQZ      2186
                          76710                   SX7    B1                                                      SQZ      2187
                               13737              BX7    X3-X7                                                   SQZ      2188
          1652  20722                             LX7    IH.CAP      JT = XOR(JT,1)   */ TOGGLE *JT*             SQZ      2189
                     54730                        SA7    A3                                                      SQZ      2190
                          20144                   LX1    1+RN.XMTCP-RN.TPP                                       SQZ      2191
                               53310              SA3    X1          R1P = TP[RNI]                               SQZ      2192
          1653  20334                             LX3    -R1.RJP                                                 SQZ      2193
                     15530                        BX5    -X0*X3      RI = RJ[R1P]  */ SUBSTITUTE OPERAND OF XMTC SQZ      2194
                          63650                   SB6    X5                                                      CCGA045    14
                                                                                                                 SQZ      2195
          1654  36665                    JPX1     IX6    X6+X5                                                   SQZ      2196
                     54650                        SA6    A5                                                      SQZ      2198
                          56176                   SA1    "RN"+B6                                                 CCGA045    15
                               20101              LX1    59-RN.CP                                                CCG27      14
          1655  0321001701 +                      PL     X1,JPX6     IF ^C[RI]                                   CCG27      15
                          6130000074              SB3    OC.UJP                                                  CCG27      16
          1656  0100001733 +                      RJ     ECJ         EVALUATE CONDITIONAL JUMP                   CCG27      17
          1657  5120000000 X                      SA2    =XCC$OPF                                                CCG27      18
                          5130000000 X            SA3    =XO$CFT                                                 CCG27      19
          1660  20136                             LX1    -R1.INP                                                 CCG27      20
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    70
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        BTERM               SQUEEZE 
  
                     43700                        MX7    0                                                       CCG27      21
                          0650001664 +            PL     B5,JPX2     IF TV \ 0     */ JUMP CONDITION TRUE        CCG27      22
                                                                                                                 CCG27      23
          1661  0312000156 +                      NZ     X2,MSL1     IF CC$OPF " 0 */ ^OPT=2 & BRIDGE PHASE      CCG27      24
                          73110                   SX1    X1                                                      CCG27      25
          1662  0301000156 +                      ZR     X1,MSL1     IF IN[R1] = 0 */ NO FLOW INFO               CCG27      26
                          36113                   IX1    X1+X3                                                   CCG27      27
                               53710              SA7    X1          CFT(IN[R1]) = 0  */ CLEAR FLOW TABLE ENTRY  CCG27      28
          1663  0400000156 +                      EQ     MSL1                                                    CCG27      29
                                                                                                                 CCG27      30
                                        *         JUMP CONDITION TRUE, MARK REST OF BLOCK AS DEAD                CCG27      31
                                                                                                                 CCG27      32
          1664  6140000006               JPX2     SB4    OC.LAB                                                  CCG27      33
                          6150000067              SB5    OC.JPX                                                  CCG27      34
          1665  63630                             SB6    X3                                                      CCG27      35
                     73610                        SX6    X1          LCI = IN[R1]                                CCG27      36
                          53366                   SA3    B6+X6       LCIA = CFT(LCI)                             CCG27      37
                                                                                                                 CCG27      38
          1666  5055000004               JPX3     SA5    A5+4        R1 = R1 + 4                                 CCG27      39
                          26135                   UX1    "OC",X5                                                 CCG27      40
          1667  0430001674 +                      ZR     "OC",JPX5   IF OC[R1] = 0                               CCG27      41
                          0434001674 +            EQ     "OC",B4,JPX5      IF OC[R1] = OC.LAB                    CCG27      42
          1670  0535001673 +                      NE     "OC",B5,JPX4      IF OC[R1] " OC.JPX                    CCG27      43
                          0312001673 +            NZ     X2,JPX4     IF CC$OPF " 0 */ ^OPT=2 & BRIDGE PHASE      CCG27      44
          1671  20536                             LX5    -R1.INP                                                 CCG27      45
                     73650                        SX6    X5          LCI = IN[R1]                                CCG27      46
                          0306001673 +            ZR     X6,JPX4     IF LCI = 0                                  CCG27      47
          1672  53366                             SA3    B6+X6       LCIA = CFT(LCI)                             CCG27      48
                     54730                        SA7    A3          [LCIA] = 0    */ CLEAR FLOW TABLE ENTRY     CCG27      49
          1673  54752                    JPX4     SA7    A5+B2       [R1+2] = 0                                  CCG27      50
                     0400001666 +                 EQ     JPX3                                                    CCG27      51
                                                                                                                 CCG27      52
          1674  55452                    JPX5     SA4    A5-B2       DI = R1 - 2                                 CCG27      53
                     0306000156 +                 ZR     X6,MSL1     IF LCI = 0                                  CCG27      54
          1675  0312000156 +                      NZ     X2,MSL1     IF CC$OPF " 0 */ ^OPT=2 ^ BRIDGE PHASE      CCGA013     5
                          73661                   SX6    X6+B1                                                   CCG27      55
                               53266              SA2    B6+X6       LCIA = CFT(LCI+1)                           CCG27      56
          1676  0332000156 +                      MI     X2,MSL1     IF JP[LCIA]                                 CCG27      57
                          13623                   BX6    X2-X3                                                   CCG27      58
                               20636              LX6    -30                                                     CCG27      59
          1677  63360                             SB3    X6                                                      CCG27      60
                     0530000156 +                 NZ     B3,MSL1     IF FROM"S NE                                CCG27      61
                               54720              SA7    A2          [LCIA+1] = 0  */ CLEAR FALL THROUGH EDGE    CCG27      62
          1700  0400000156 +                      EQ     MSL1                                                    CCG27      63
                                                                                                                 CCG27      64
          1701  5120000002 C             JPX6     SA2    MRC                                                     CCG27      65
                          74750                   SX7    A5          JPXA = R1                                   CCG27      66
                               20540              LX5    R1.RJP                                                  CCG27      67
          1702  5170000015 C                      SA7    JPXA                                                    SQZ      2200
                          43401                   MX4    1                                                       SQZ      2201
          1703  0302000232 +                      ZR     X2,AUC.RJ   IF MRC = 0                                  SQZ      2202
                          12642                   BX6    X4+X2                                                   SQZ      2203
                               54641              SA6    A4+B1       [DI+1] = 1S59 ! MRC                         SQZ      2204
          1704  74741                             SX7    A4+B1                                                   SQZ      2205
                     54720                        SA7    A2          MRC = DI + 1                                SQZ      2206
                          0400000232 +            EQ     AUC.RJ                                                  SQZ      2207
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    71
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        DEF                 SQUEEZE 
  
          1705                                    PROCESS DEF                                                    SQZ      2209
          1705  76310                             SX3    B1                                                      SQZ      2210
                     20347                        LX3    D.PSP                                                   SQZ      2211
                          15643                   BX6    -X3*X4      PS[DI] = 0    */ PS BIT SET IN SBB8 LOOP    SQZ      2212
                               54640              SA6    A4                                                      SQZ      2213
          1706  0400000156 +                      EQ     MSL1                                                    SQZ      2214
  
  
                                        **        RJXJ  RTEST,RFREE,CA,IH  , CA = 12/BIAS,6/JUMP TYPE            CCG3        2
                                                                                                                 CCG3        3
          1707                                    PROCESS RJXJ                                                   CCG3        4
          1707  54351                             SA3    A5+B1       R2 = R1 + 1                                 CCG3        5
                     53157                        SA1    "RN"+X5     RIW = RND(RI[R1])                           CCG3        6
                          20330                   LX3    -IH.RFP                                                 CCG3        7
                               11505              BX5    X0*X5                                                   CCG3        8
          1710  53237                             SA2    "RN"+X3     RFW = RND(RF[R2])                           CCG3        9
                     11303                        BX3    X0*X3                                                   CCG3       10
                          73610                   SX6    X1                                                      CCG3       11
                               73720              SX7    X2                                                      CCG3       12
          1711  36656                             IX6    X5+X6       RI[R1] = RN[RIW]                            CCG3       13
                     10566                        BX5    X6                                                      CCG3       14
                          54650                   SA6    A5                                                      CCG3       15
                               12737              BX7    X3+X7                                                   CCG3       16
          1712  20744                             LX7    IH.RFP      RF[R2] = RN[RFW]                            CCG3       17
                     54730                        SA7    A3                                                      CCG3       18
                          20101                   LX1    59-RN.CP                                                CCG3       19
          1713  0321001717 +                      PL     X1,RJXJ1    IF ^C[RIW]                                  CCG3       20
                                                                                                                 CCG3       21
                                         .HC      IFNE   HC.RJ6,0                                                CCG0002    12
                          6130000073              SB3    OC.RJ6                                                  CCG0002    13
                                         .HC      ELSE                                                           CCG0002    14
                                                  SB3    OC.RJ3                                                  CCG0002    15
                                         .HC      ENDIF                                                          CCG0002    16
                                                                                                                 CCG0002    17
          1714  0100001733 +                      RJ     ECJ         EVAL CONDITIONAL JUMP                       CCG3       23
          1715  0750000156 +                      MI     B5,MSL1     IF TV < 0     */ JUMP CONDITION FALSE       CCG3       24
                          5055777773              SA5    A5-4        R1 = R1 - 4   */ BACKUP                     CCG3       25
          1716  0400000156 +                      EQ     MSL1                                                    CCG3       26
                                                                                                                 CCG3       27
                                        *         SEARCH FOR A PREVIOUS OCCURANCE OF THIS INSTRUCTION            CCG3       28
                                                                                                                 CCG3       29
          1717  54351                    RJXJ1    SA3    A5+B1       R2W = [R1+1]                                CCG3       30
                     5120000004 C                 SA2    CRJC                                                    CCG3       31
                               53157              SA1    "RN"+X5                                                 CCG3       32
          1720  10633                             BX6    X3                                                      CCG3       33
                     20152                        LX1    -RN.TPP                                                 CCG3       34
                          6251000003              SB5    X1+3        DEFA = TP[RIW] + 3                          CCG3       35
                                                                                                                 CCG3       36
          1721  63420                    RJXJ2    SB4    X2          I = CRJC                                    CCG3       37
                     53220                        SA2    X2          CRJC = [I]    */ NEXT                       CCG3       38
                          0654001725 +            LE     B4,B5,RJXJ3 IF I @ DEFA                                 CCG3       39
          1722  55322                             SA3    A2-B2       R2C = [I-2]                                 CCG3       40
                     13763                        BX7    X6-X3                                                   CCG3       41
                          0317001721 +            NZ     X7,RJXJ2    IF R2C " R2W                                CCG3       42
          1723  55331                             SA3    A3-B1       R1C = [I-3]                                 CCG3       43
                     13735                        BX7    X3-X5                                                   CCG3       44
                          0317001721 +            NZ     X7,RJXJ2    IF R1C " R1W                                CCG3       45
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    72
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        RJXJ                SQUEEZE 
  
                                                                                                                 CCG3       46
                                        *         MATCH FOUND, ELIMINATE THE SECOND INSTRUCTION                  CCG3       47
                                                                                                                 CCG3       48
          1724  43774                             MX7    60                                                      CCG3       49
                     54740                        SA7    A4          [DI] = 0                                    CCG3       50
                          0400000156 +            EQ     MSL1                                                    CCG3       51
                                                                                                                 CCG3       52
                                        *         INSTRUCTION NOT REDUNDANT, ADD IT TO THE CHAIN, UPDATE *USES*  CCG3       53
                                                                                                                 CCG3       54
          1725  5120000004 C             RJXJ3    SA2    CRJC                                                    CCG3       55
                          10722                   BX7    X2                                                      CCG3       56
                               54741              SA7    A4+B1       [DI+1] = CRJC */ POINT THIS TO LAST         CCG3       57
          1726  74741                             SX7    A4+B1                                                   CCG3       58
                     54720                        SA7    A2          CRJC = DI+1   */ LIST POINTS TO LAST        CCG3       59
                                                                                                                 CCG3       60
                          53157                   SA1    "RN"+X5     RIW = RND(RI[R1])                           CCG3       61
                               76410              SX4    B1                                                      CCG3       62
          1727  20444                             LX4    RN.USESP                                                CCG3       63
                     36741                        IX7    X4+X1       USES[RIW] = USES[RIW] + 1                   CCG3       64
                          54710                   SA7    A1                                                      CCG3       65
                               20630              LX6    -IH.RFP                                                 CCG3       66
          1730  53267                             SA2    "RN"+X6     RFW = RND(RF[R2])                           CCG3       67
                     36642                        IX6    X4+X2       USES[RFW] = USES[RFW] + 1                   CCG3       68
                          54620                   SA6    A2                                                      CCG3       69
          1731  0400000156 +                      EQ     MSL1                                                    CCG3       70
  
  
  
                                        **        ECJ - EVALUATE CONDITIONAL JUMP                                CCG3       72
                                        *                                                                        CCG3       73
                                        *         ENTRY  (X1) = SHIFT(RIW,59-RN.CP)                              CCG3       74
                                        *                (B3) = OPC , OPCODE TO BE GENERATED IF JUMP CONDITON    CCG3       75
                                        *                     IS TRUE                                            CCG3       76
                                        *                                                                        CCG3       77
                                        *         EXIT   (B5) = TV, TRUTH VALUE, < 0 IF JUMP CONDITION IS FALSE  CCG3       78
                                        *                (X1) = R1S , OLD VALUE OF R1 WORD                       CCG3       79
                                                                                                                 CCG3       80
          1732  43774                    ECJ3     MX7    60                                                      CCG3       81
                     54150                        SA1    A5                                                      CCG3       82
                          67501                   SB5    -B1         TV = -1       */ INDICATE CONDTION FALSE    CCG3       83
                               54740              SA7    A4          [DI] = -0     */ MARK AS REDUNDANT          CCG3       84
                                                                                                                 CCG3       85
          1733  0200401733 +             ECJ      ROUTINE                                                        CCG3       86
          1734  20151                             LX1    1+RN.CP-RN.TPP                                          CCG3       87
                     53310                        SA3    X1                                                      CCG3       88
                          0100001247 +            RJ     DCV         CV = DCV( TP[RIW] )                         CCG3       89
          1735  54351                             SA3    A5+B1       R2W = [R1+1]                                CCG3       90
                     43171                        MX1    -3                                                      CCG3       91
                          20352                   LX3    -IH.CAP                                                 CCG3       92
                               15231              BX2    -X1*X3                                                  CCG3       93
          1736  63520                             SB5    X2          TV = JT[CA[R2W]]                            CCG3       94
                     0255001737 +                 JP     ECJ1+B5                                                 CCG3       95
                                                                                                                 CCG3       96
          1737                           ECJ1     BSS    0                                                       CCG3       97
                                                  ECHO   2,XX=("XJUMPS")                                         CCG3       98
                                                  XX     X7,ECJ2                                                 CCG3       99
                                                  EQ     ECJ3                                                    CCG3      100
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    73
        PSEUDO AND JUMP INSTRUCTION PROCESSING                        ECJ                 SQUEEZE 
  
                                                                                                                 CCG3      101
                                        *         JUMP CONDITION IS TRUE, CHANGE INST TO A *UJP/RJ6*             CCG3      102
                                                                                                                 CCG3      103
          1747  20366                    ECJ2     LX3    -6                                                      CCG3      104
                     43160                        MX1    -12                                                     CCG3      105
                          15631                   BX6    -X1*X3                                                  CCG3      106
                               20636              LX6    R1.CAP                                                  CCG3      107
          1750  20330                             LX3    IH.CAP+6-IH.IHP                                         CCG3      108
                     43152                        MX1    -IH.IHL                                                 CCG3      109
                          15231                   BX2    -X1*X3                                                  CCG3      110
                               12662              BX6    X6+X2                                                   CCG3      111
          1751  54150                             SA1    A5          R1S = [R1]                                  CCG3      112
                     66600                        SB6    B0                                                      CCG27      68
                          0100001160 +            RJ     URI         CHANGE INSTRUCTION TO A UJP/RJ6             CCG3      113
          1752  43700                             MX7    0                                                       CCG3      114
                     54751                        SA7    A5+B1                                                   CCG3      115
                          0400001733 +            EQ     ECJ                                                     CCG3      116
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    74
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        **        MEMORY REFERENCE PROCESSING                                    SQZ      2244
                                                                                                                 SQZ      2245
          1753                                    PROCESS (TLD,TST,ILD,LDV)                                      CCG16     251
          1753  54351                             SA3    A5+B1       R2 = R1 + 1                                 SQZ      2247
                     6050000003                   SB5    "TXT"+3     DEFA = TXT + 3  */  MIN SEARCH ADDRESS      SQZ      2248
                               10633              BX6    X3          R2W = [R2]                                  SQZ      2249
          1754  0400001775 +                      EQ     SMR                                                     SQZ      2250
  
  
                                         .LCM     IFNE   .DAL,0                                                  FCC2072     8
          1755                                    PROCESS (DRL,DWL)                                              FCC2072     9
          1755  20152                             LX1    -RN.TPP                                                 FCC2072    10
                     53210                        SA2    X1          R1J = TP[RJW]                               FCC2072    11
                          6251000003              SB5    X1+3        DEFA = TP[RJW] + 3                          FCC2072    12
          1756  54351                             SA3    A5+B1       R2 = R1 + 1                                 FCC2072    13
                     26642                        UX6    B4,X2                                                   FCC2072    14
                          7164777725              SX6    B4-OC.STT                                               FCC2072    15
          1757  0316001764 +                      NZ     X6,SLD1     IF OC[R1J] " OC.STT                         FCC2072    16
                          54321                   SA3    A2+B1       R2 = R14 + 1  */ SUBSTITUTE R2 OF STT       FCC2072    17
          1760  0400001764 +                      EQ     SLD1                                                    FCC2072    18
                                         .LCM     ENDIF                                                          FCC2072    19
  
  
          1761                                    PROCESS (PLD,PST)                                              SQZ      2252
          1761  20152                             LX1    -RN.TPP                                                 SQZ      2253
                     53312                        SA3    X1+B2       DJ = RP[RJW] + 2                            SQZ      2254
                          7160000001              SX6    1                                                       SQZ      2255
          1762  20623                             LX6    D.RFP                                                   SQZ      2256
                     12763                        BX7    X6+X3       RF[DJ] = 1                                  SQZ      2257
                          20122                   LX1    RN.TPP                                                  SQZ      2258
                               54730              SA7    A3                                                      SQZ      2259
  
  
          1763                                    PROCESS (SLD,SST,SDL,SDS)                                      FCC2072    20
          1763  54351                             SA3    A5+B1       R2 = R1 + 1                                 SQZ      2262
                     20152                        LX1    -RN.TPP                                                 SQZ      2263
                          6251000003              SB5    X1+3        DEFA = TP[RJW] + 3                          SQZ      2264
          1764  20330                    SLD1     LX3    -IH.RFP                                                 FCC2072    21
                     15730                        BX7    -X0*X3                                                  FCC0643    79
                          53277                   SA2    "RN"+X7     RFW = RND(RF[R2])                           FCC0643    80
                               11603              BX6    X0*X3                                                   SQZ      2267
          1765  66300                             S"OC"  B0          OC = 0        */ INDICATE SHORT MEM REF     SQZ      2268
                     73720                        SX7    X2                                                      SQZ      2269
                          12667                   BX6    X6+X7       RF[R2] = RN[RFW]                            SQZ      2270
                               20644              LX6    IH.RFP      R2W = [R2]                                  SQZ      2271
          1766  54651                             SA6    A5+B1                                                   SQZ      2272
                     0400001775 +                 EQ     SMR                                                     SQZ      2273
  
  
          1767                                    PROCESS (LD,ST)                                                SQZ      2275
          1767  54251                             SA2    A5+B1       R2 = R1 + 1                                 SQZ      2276
                     5130002077 +                 SA3    ARFA                                                    FCC0792    11
                               20230              LX2    -IH.RFP                                                 FCC0792    12
          1770  53127                             SA1    "RN"+X2     RFW = RND(RF[R2])                           FCC0792    13
                     11602                        BX6    X0*X2       R2W = [R2]                                  FCC0792    14
                          73710                   SX7    X1          RF[R2W] = RN[RFW]                           FCC0792    15
                               11331              BX3    X3*X1                                                   FCC0792    16
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    75
        SMR - SQUEEZE MEMORY REFERENCES                               LD                  SQUEEZE 
  
          1771  0303001772 +                      ZR     X3,LD1      IF ^(C,SA,IAC,XMT)[RFW]                     FCC0792    17
                          0100002112 +            RJ     ARF         ADJUST RF,CA                                SQZ      2285
                                                                                                                 SQZ      2286
          1772  12667                    LD1      BX6    X6+X7                                                   SQZ      2287
                     20644                        LX6    IH.RFP                                                  SQZ      2288
                          54651                   SA6    A5+B1       [R2] = R2W                                  FCC1029     5
                               20152              LX1    -RN.TPP                                                 SQZ      2290
          1773  6251000003                        SB5    X1+3        DEFA = TP[RFW] + 3  */ MIN SRCH ADDRESS     SQZ      2291
                                   0              ERRNZ  59-IH.LDP                                               FCC1029     6
                          0326001775 +            PL     X6,SMR      IF ^LD[R2W]   */ ^PREFETCH ! APL *LD*       FCC1029     7
                                                                                                                 FCC1029     8
          1774  20431                             LX4    59-D.STP                                                FCC1029     9
                     0400002004 +                 EQ     SMR2                                                    FCC1029    10
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    76
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        **        SMR - SQUEEZE MEMORY REFERENCES                                SQZ      2294
                                        *                                                                        SQZ      2295
                                        *         ENTRY  (X6) = R2W , R2 WORD OF INSTRUCTION WITH *RF* ADJUSTED  SQZ      2296
                                        *                (B5) = DEFA, MIN SEARCH ADDRESS                         SQZ      2297
                                        *                (B3) = 0 IF A TYPE I MEM REF, ELSE *OC*                 SQZ      2298
                                        *                (A4,X4,A5,X5) AS FROM MAIN LOOP                         SQZ      2299
                                                                                                                 SQZ      2300
          1775  5120000002 C             SMR      SA2    MRC                                                     SQZ      2301
                          20431                   LX4    59-D.STP                                                SQZ      2302
                               43152              MX1    -IH.IHL                                                 SQZ      2303
                                                                                                                 SQZ      2304
                                        *         SEARCH *MRC* BACKWARDS FOR REF TO SAME MEMORY LOCATION         SQZ      2305
                                        *         OR INTERFERING STORE INTO THE SAME *IH* CLASS                  SQZ      2306
                                        *         NOTE THAT ONLY THE *IH* WORDS ARE CHECKED.                     SQZ      2307
                                                                                                                 SQZ      2308
          1776  63420                    SMR1     SB4    X2          I = MRC                                     SQZ      2309
                     53220                        SA2    X2          MRC = [MRC]                                 SQZ      2310
                          0654002004 +            LE     B4,B5,SMR2  IF I @ DEFA   */ END OF CHAIN               SQZ      2311
          1777  11724                             BX7    X2*X4                                                   SQZ      2312
                     55322                        SA3    A2-B2       R2M = MRC - 2                               SQZ      2313
                          0337002004 +            MI     X7,SMR2     IF JP[MRC] & ST[DI]                         SQZ      2314
          2000  13736                             BX7    X3-X6                                                   SQZ      2315
                     0307002026 +                 ZR     X7,SMR7     IF [R2M] = R2W  */ REFS TO SAME MEMORY LOC  SQZ      2316
                                                                                                                 SQZ      2317
                                        *         CHECK FOR DATA INTERFERENCE                                    SQZ      2318
                                                                                                                 SQZ      2319
                                                  LX7    -IH.IHP                                                 SQZ      2320
                               15371              BX3    -X1*X7                                                  SQZ      2321
          2001  0313001776 +                      NZ     X3,SMR1     IF IH[R2M] " IH[R2W]                        SQZ      2322
                          20730                   LX7    IH.IHP-IH.RFP                                           SQZ      2323
                               15770              BX7    -X0*X7                                                  SQZ      2324
          2002  54331                             SA3    A3+B1                                                   SQZ      2325
                     0307001776 +                 ZR     X7,SMR1     IF RF[R2M] = RF[R2W]                        SQZ      2326
                               20331              LX3    59-D.STP                                                SQZ      2327
          2003  12734                             BX7    X3+X4                                                   SQZ      2328
                     0327001776 +                 PL     X7,SMR1     IF ^( ST[DI] ! ST[DM] )                     SQZ      2329
  
  
                                        *         LD/ST NOT REDUNDANT, ADD TO *MRC*, AND BUMP USES OF OPERANDS   SQZ      2331
                                                                                                                 SQZ      2332
          2004  5120000002 C             SMR2     SA2    MRC                                                     SQZ      2333
                          54341                   SA3    A4+B1                                                   SQZ      2334
                               20630              LX6    -IH.RFP                                                 SQZ      2335
          2005  12723                             BX7    X2+X3       LINK[DI+1] = MRC                            SQZ      2336
                     54730                        SA7    A3                                                      SQZ      2337
                          63560                   SB5    X6          R = RF[R2W]                                 SQZ      2338
                               74741              SX7    A4+B1                                                   SQZ      2339
          2006  7160000001                        SX6    1                                                       SQZ      2340
                          54720                   SA7    A2          MRC = DI + 1  */ CHAIN POINTS TO LAST       SQZ      2341
                               20644              LX6    RN.USESP                                                SQZ      2342
          2007  0430002022 +                      ZR     B3,SMR5     IF OC = 0     */ TYPE I MEM REF             SQZ      2343
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    77
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        *         ADVANCE USES FOR TYPE III MEM REF                              SQZ      2345
                                                                                                                 SQZ      2346
                          56175                   SA1    "RN"+B5     RFW = RND(R)                                SQZ      2347
                               36761              IX7    X6+X1       USES[RFW] = USES[RFW] + 1                   SQZ      2348
          2010  20152                             LX1    -RN.TPP                                                 SQZ      2349
                     54710                        SA7    A1                                                      SQZ      2350
                          0615002014 +            LE     B5,B1,SMR3        IF R @ 1                              SQZ      2351
                                                                                                                 SQZ      2352
                                         .LCM     IFNE   .DAL,0                                                  CCG21      69
          2011  5120000002 +                      SA2    LCM#G                                                   CCG0012    13
                          11724                   BX7    X2*X4                                                   CCG0012    14
          2012  0317002014 +                      NZ     X7,SMR3     IF LCM = G AND L2[DI]  */ 21 BIT SUBSCRIPT  CCG21      72
                                         .LCM     ENDIF                                                          CCG21      73
                          53212                   SA2    X1+B2       DIP = TP[RFW] + 2                           SQZ      2353
                               76310              SX3    B1                                                      SQZ      2354
          2013  20323                             LX3    D.RFP                                                   SQZ      2355
                     12732                        BX7    X3+X2       RF[DIP] = 1                                 SQZ      2356
                          54720                   SA7    A2                                                      SQZ      2357
                                                                                                                 SQZ      2358
          2014  0334002017 +             SMR3     MI     X4,SMR4     IF ST[DI]                                   SQZ      2359
                                                                                                                 SQZ      2360
                          0715000156 +            GT     B5,B1,MSL1  IF R > 1                                    SQZ      2361
          2015  20443                             LX4    1+D.STP                                                 SQZ      2362
                     20662                        LX6    D.ZPP-RN.USESP                                          SQZ      2363
                          12764                   BX7    X6+X4       ZP[DI] = 1                                  SQZ      2364
                               54740              SA7    A4                                                      SQZ      2365
          2016  0400000156 +                      EQ     MSL1                                                    SQZ      2366
                                                                                                                 SQZ      2367
                                        *         ADVANCE USES FOR *RI* IN STORE INSTRUCTION                     SQZ      2368
                                                                                                                 SQZ      2369
          2017  56176                    SMR4     SA1    "RN"+B6                                                 SQZ      2370
                     11305                        BX3    X0*X5                                                   SQZ      2371
                          53117                   SA1    "RN"+X1     RIW = RND(RI)                               SQZ      2372
                               73210              SX2    X1                                                      SQZ      2373
          2020  36761                             IX7    X6+X1       USES[RIW] = USES[RIW] + 1                   SQZ      2374
                     54710                        SA7    A1                                                      SQZ      2375
                          12632                   BX6    X3+X2       RI[R1] = RN[RIW]                            SQZ      2376
                               54650              SA6    A5                                                      SQZ      2377
          2021  0400000156 +                      EQ     MSL1                                                    SQZ      2382
                                                                                                                 SQZ      2383
                                        *         ADVANCE USES FOR TYPE I MEM REF                                SQZ      2384
                                                                                                                 SQZ      2385
          2022  20534                    SMR5     LX5    -R1.RJP                                                 SQZ      2386
                     15750                        BX7    -X0*X5                                                  SQZ      2387
                          53177                   SA1    "RN"+X7     RNJ = RND[RJ[R1])                           SQZ      2388
                               20520              LX5    R1.RJP-R1.RKP                                           SQZ      2389
          2023  36761                             IX7    X6+X1       USES[RNJ] = USES[RNJ] + 1                   SQZ      2390
                     54710                        SA7    A1                                                      SQZ      2391
                          15350                   BX3    -X0*X5                                                  SQZ      2392
                               53137              SA1    "RN"+X3     RNK = RND(RK[R1])                           SQZ      2393
          2024  36761                             IX7    X6+X1       USES[RNK] = USES[RNK] + 1                   SQZ      2394
                     54710                        SA7    A1                                                      SQZ      2395
                          0324000156 +            PL     X4,MSL1     IF ^ST[DI]                                  SQZ      2396
                                                                                                                 SQZ      2397
          2025  20520                             LX5    R1.RKP                                                  SQZ      2398
                     0400002017 +                 EQ     SMR4                                                    SQZ      2399
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    78
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        *         2 MEMORY REFERENCES TO THE SAME LOCATION                       SQZ      2401
                                                                                                                 SQZ      2402
          2026  55131                    SMR7     SA1    A3-B1       R1M = R2M - 1                               SQZ      2403
                     54331                        SA3    A3+B1       DM = R2M + 1                                SQZ      2404
                          6140000075              SB4    OC.ILD                                                  SQZ      2405
          2027  20331                             LX3    59-D.STP                                                SQZ      2406
                     0334002054 +                 MI     X4,SMR11    IF ST[DI]                                   SQZ      2407
          2030  0333002042 +                      MI     X3,SMR9     IF ST[DM]                                   SQZ      2408
                                                                                                                 SQZ      2409
                                        *         LD / LD - ELIMINATE THE SECOND                                 SQZ      2410
                                                                                                                 SQZ      2411
                          0534002035 +            NE     "OC",B4,SMR8      IF OC[R1] " OC.ILD                    SQZ      2412
          2031  5120000015 C                      SA2    JPXA                                                    SQZ      2413
                          74630                   SX6    A3                                                      SQZ      2414
                               37762              IX7    X6-X2                                                   SQZ      2415
          2032  0337002035 +                      MI     X7,SMR8     IF DM < JPXA  */ FIRST IS BEFORE LAST *JPX* SQZ      2416
                          26731                   UX7    "OC",X1                                                 SQZ      2417
          2033  7163777727                        SX6    "OC"-OC.LD                                              SQZ      2418
                          0316002035 +            NZ     X6,SMR8     IF OC[R1M] " OC.LD                          SQZ      2419
                                                                                                                 SQZ      2420
          2034  27741                             PX7    B4,X1       OC[R1M] = OC.ILD                            SQZ      2421
                     54710                        SA7    A1                                                      SQZ      2422
                                                                                                                 SQZ      2423
          2035  11734                    SMR8     BX7    X3*X4                                                   SQZ      2424
                     20770                        LX7    D.STP-D.PRSP                                            SQZ      2425
                          0337002045 +            MI     X7,SMR10    IF PRS[DM] & PRS[DI]                        SQZ      2426
                                                                                                                 SQZ      2427
                                        *         KILL THE SECOND AND OR IN THE PRECEDENCE BITS                  SQZ      2428
                                                                                                                 SQZ      2429
          2036  12734                             BX7    X3+X4                                                   SQZ      2430
                                         #DAL     IFNE   .DAL,0                                                  SQZ      2431
                     43372                        MX3    -D.STRSL                                                SQZ      2432
                          20377                   LX3    D.STRSP+59-D.STP                                        SQZ      2433
                               15673              BX6    -X3*X7                                                  SQZ      2434
          2037  0316002045 +                      NZ     X6,SMR10    IF STRS[DI] ! STRS[DM]                      SQZ      2435
                                         #DAL     ENDIF                                                          SQZ      2436
                          43600                   MX6    0                                                       SQZ      2437
                               20743              LX7    1+D.STP                                                 SQZ      2438
          2040  54730                             SA7    A3          DM = DM ! DI                                SQZ      2439
                     54640                        SA6    A4          [DI] = 0                                    SQZ      2440
                          53117                   SA1    "RN"+X1                                                 SQZ      2441
                               10711              BX7    X1                                                      SQZ      2442
          2041  56776                             SA7    "RN"+B6     RND(RI) = RND(RI[R1M])                      SQZ      2443
                     0400000156 +                 EQ     MSL1                                                    SQZ      2444
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    79
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                        *         ST / LD - CHANGE TO AN *XMT*                                   SQZ      2446
                                                                                                                 SQZ      2447
          2042  5160000000 +             SMR9     SA6    STLDS       STLDS = R2W   */ SET FLAG FOR *AUV*         SQZ      2448
                          0534002045 +            NE     B3,B4,SMR10 IF OC[R1] " OC.ILD                          SQZ      2449
          2043  5120000015 C                      SA2    JPXA                                                    SQZ      2450
                          74630                   SX6    A3                                                      SQZ      2451
                               37762              IX7    X6-X2                                                   SQZ      2452
          2044  0337002045 +                      MI     X7,SMR10    IF DM < JPXA  */ *ST* BEFORE LAST *JPX*     SQZ      2453
                                                                                                                 SQZ      2454
                          0100002063 +            RJ     EFS         ELIMINATE FIRST STORE                       SQZ      2455
                                                                                                                 SQZ      2456
          2045  15210                    SMR10    BX2    -X0*X1      RJ = RI[R1M]                                SQZ      2457
                     20443                        LX4    1+D.STP                                                 SQZ      2458
                          53127                   SA1    "RN"+X2     (X1) = RND(RJ) FOR CTI                      SQZ      2459
                               43700              MX7    0                                                       SQZ      2460
          2046  54751                             SA7    A5+B1       [R2] = 0                                    SQZ      2461
                                                                                                                 FCC0509    47
                                        *         SET BIT IN *SUVA* FOR REMOVED *LD* IF CALLED FROM GPO/AUV.     FCC0509    48
                                                                                                                 FCC0509    49
                     5120000001 +                 SA2    SUVA                                                    FCC0509    50
          2047  0302002053 +                      ZR     X2,SMR10A   IF SUVA = 0   */ NOT CALL FROM *AUV*        FCC0509    51
                          20536                   LX5    -R1.INP                                                 FCC0509    52
                               63551              SB5    X5+B1       I = IN[R1]                                  FCC0509    53
          2050  0451002053 +                      EQ     B5,B1,SMR10A      IF I = 0  */ NO *UDT* INDEX           FCC0509    54
                          5130000000 X            SA3    =XO$UDT                                                 CCGNC     764
          2051  63420                             SB4    X2                                                      FCC0509    56
                     53335                        SA3    X3+B5       U2 = UDT(I+1)                               FCC0509    57
                          26733                   UX7    B3,X3       (B,WI) = BIT,WI)[U2]                        FCC0509    58
                               53234              SA2    B4+X3                                                   FCC0509    59
          2052  76610                             SX6    B1                                                      FCC0509    60
                     22636                        LX6    B3,X6                                                   FCC0509    61
                          12762                   BX7    X6+X2       B[SUVA(WI)] = 1                             FCC0509    62
                               54720              SA7    A2                                                      FCC0509    63
                                                                                                                 FCC0509    64
          2053  73210                    SMR10A   SX2    X1          RJ = RN[RND(RJ)]                            FCC0509    65
                     0400000700 +                 EQ     SRCH6             */ CHANGE *LD* TO AN *XMT*            FCC0509    66
  
  
  
          2054  0333002061 +             SMR11    MI     X3,SMR12    IF ST[DM]                                   SQZ      2464
                                                                                                                 SQZ      2465
                                        *         LD / ST - CHECK FOR A = A                                      SQZ      2466
                                                                                                                 SQZ      2467
                          56276                   SA2    "RN"+B6                                                 SQZ      2468
                               53227              SA2    "RN"+X2     RI = RND(RI)                                SQZ      2469
          2055  20205                             LX2    59-RN.XMTP                                              SQZ      2470
                     0322002004 +                 PL     X2,SMR2     IF ^XMT[RI]                                 SQZ      2471
                               20245              LX2    1+RN.XMTP-RN.TPP                                        SQZ      2472
          2056  53220                             SA2    X2          R1X = TP[RND(RI)]                           SQZ      2473
                     20234                        LX2    -R1.RJP                                                 SQZ      2474
                          13312                   BX3    X1-X2                                                   SQZ      2475
                               15730              BX7    -X0*X3                                                  SQZ      2476
          2057  0317002004 +                      NZ     X7,SMR2     IF RJ[R1X] " RI[RIM]                        SQZ      2477
                          54740                   SA7    A4          [DI] = 0   ( KILL SECOND STORE )            SQZ      2478
          2060  0400000156 +                      EQ     MSL1                                                    SQZ      2479
                                                                                                                 SQZ      2480
                                        *         ST / ST - ELIMINATE THE FIRST STORE                            SQZ      2481
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    80
        SMR - SQUEEZE MEMORY REFERENCES                               SMR                 SQUEEZE 
  
                                                                                                                 SQZ      2482
          2061  0100002063 +             SMR12    RJ     EFS         ELEMINATE FIRST STORE                       SQZ      2483
          2062  0400002004 +                      EQ     SMR2                                                    SQZ      2484
  
  
  
                                        **        EFS - ELIMINATE FIRST STORE, ADJUST *PS* BIT FOR *RI* IN ST    SQZ      2486
                                        *                                                                        SQZ      2487
                                        *         ENTRY  (X1) = RIM , R1 OF FIRST STORE                          SQZ      2488
                                        *                (A3) = DM , DESCRIPTOR ADDR                             SQZ      2489
                                        *                                                                        SQZ      2490
                                        *         EXIT   (X1) = R , RI[R1M]                                      SQZ      2491
                                        *                (X6) = 0                                                SQZ      2492
                                                                                                                 SQZ      2493
          2063  0200402063 +             EFS      ROUTINE                                                        SQZ      2494
          2064  15110                             BX1    -X0*X1      R = RI[R1M]                                 SQZ      2495
                     53217                        SA2    "RN"+X1     RNI = RND(R)                                SQZ      2496
                          43674                   MX6    60          D = [DM]                                    SQZ      2497
                               76710              SX7    B1                                                      SQZ      2498
          2065  54630                             SA6    A3          [DM] = -0     */ KILL FIRST *ST*            SQZ      2499
                     0303002063 +                 ZR     X3,EFS      IF D = 0      */   ST,ILD,ILD SITUATION     SQZ      2500
                               20744              LX7    RN.USESP                                                SQZ      2501
          2066  37727                             IX7    X2-X7       USES[RNI] = USES[RNI] - 1                   SQZ      2502
                     54720                        SA7    A2                                                      SQZ      2503
                          10344                   BX3    X4                                                      FCC0957     6
                               20372              LX3    D.STP-D.L2P                                             FCC0957     7
          2067  0333002063 +                      MI     X3,EFS      IF L2[DI]     */ PS BIT NOT SET             FCC0957     8
                          20252                   LX2    -RN.TPP                                                 SQZ      2504
                               63420              SB4    X2          DEFA = TP[RNI]  */ R1 ADDR OF DEF           SQZ      2506
          2070  5130000014 C                      SA3    STC                                                     FCC0957     9
                          63530                   SB5    X3          LINK = STC                                  FCC0957    10
                                                                                                                 FCC0957    11
                                        *         SEARCH *STC* TO SEE IF *RI* IS USED BY ANOTHER *ST*            FCC0957    12
                                                                                                                 SQZ      2518
          2071  57251                    EFS1     SA2    B5-B1       DL = LINK - 1                               SQZ      2519
                     56350                        SA3    B5          LW = [LINK]                                 SQZ      2520
                          0302002074 +            ZR     X2,EFS2     IF [DL] = 0   */ DEAD INSTRUCTION           SQZ      2521
          2072  55222                             SA2    A2-B2       R1L = DL - 2                                FCC0957    13
                     15720                        BX7    -X0*X2                                                  FCC0957    14
                          53277                   SA2    "RN"+X7     RL = RN[RND(RI[R1L])]                       FCC0957    15
                               13721              BX7    X2-X1                                                   SQZ      2523
          2073  15270                             BX2    -X0*X7                                                  SQZ      2524
                     0302002063 +                 ZR     X2,EFS      IF RL = R     */ USED BY ANOTHER *ST*       FCC0957    16
          2074  20352                    EFS2     LX3    -I.STCP                                                 SQZ      2526
                     63530                        SB5    X3          LINK = STC[LW]                              SQZ      2527
                          0745002071 +            GT     B5,B4,EFS1  IF LINK > DEFA                              FCC0957    17
                                                                                                                 SQZ      2537
          2075  56242                             SA2    B4+B2       DIP = DEFA + 2  */ DESCR OF DEF             SQZ      2538
                     76710                        SX7    B1                                                      FCC0957    18
                          20747                   LX7    D.PSP                                                   SQZ      2539
                               15727              BX7    -X7*X2      PS[DIP] = 0                                 SQZ      2540
          2076  54720                             SA7    A2                                                      SQZ      2541
                     0400002063 +                 EQ     EFS                                                     SQZ      2542
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    81
        ARF - ADJUST RF,CA OF INDEXED MEM REFERENCE                   ARF                 SQUEEZE 
  
                                        **        ARF - ADJUST RF,CA OF INDEXED MEMORY REFERENCE TO FOLD IN      SQZ      2544
                                        *                CONSTANT PART OF *RF*                                   SQZ      2545
                                        *                                                                        SQZ      2546
                                        *         ENTRY  (X1) = RND(RF)                                          SQZ      2547
                                        *                (X3) = (C,SA,IAC)[RFW]                                  SQZ      2548
                                        *                (X6) = SHIFT( R2W , -IH.RFP ) AND RF[R2W] = 0           SQZ      2549
                                        *                (X7) = RF                                               SQZ      2550
                                        *                                                                        SQZ      2551
                                        *         EXIT   *RF* ADJUSTED AND X1,X6,X7 AS ON ENTRY                  SQZ      2552
                                                                                                                 FCC0792    18
          2077                           ARFA     BFMW   RN,(C,SA,IAC,XMT)                                       FCC0792    19
          2100                     1     ARFAIL   BSS    1                                                       CCG37       4
                                                                                                                 SQZ      2553
          2101  53310                    ARF1     SA3    X1          R1P = TP[RFW]                               SQZ      2554
                     0100001247 +                 RJ     DCV         SVAL = DCV(R1P)                             CCG20       2
                                                                                                                 CCG24      24
          2102  10377                    ARF0     BX3    X7                                                      CCG24      25
                     21321                        AX3    17                                                      CCG20       4
                          0313002135 +            NZ     X3,ARF7     IF SHIFT(SVAL,-17) " 0  */ FULL WORD CONSTA CCG20       5
                                                                                                                 SQZ      2556
          2103  20622                             LX6    IH.RFP-IH.CAP                                           CCG24      26
                     63470                        SB4    X7                                                      SQZ      2558
                                         #DAL     IFNE   .DAL,0                                                  CCG20       6
                          20451                   LX4    17-D.L2P                                                CCG20       7
                               11746              BX7    X4*X6                                                   CCG20       8
          2104  20423                             LX4    D.L2P-17                                                CCG20       9
                     0337002135 +                 MI     X7,ARF7     IF L2[DI] & IND[CA[R2]]                     CCG20      10
                                         #DAL     ENDIF                                                          CCG20      11
                               73364              SX3    X6+B4       CAV = CA[R2] + SVAL                         SQZ      2559
          2105  43752                             MX7    -IH.CAL                                                 SQZ      2560
                     15337                        BX3    -X7*X3                                                  SQZ      2561
                          11776                   BX7    X7*X6                                                   SQZ      2562
                               12637              BX6    X3+X7       CA[R2] = CAV                                SQZ      2563
          2106  20652                             LX6    IH.CAP-IH.RFP                                           SQZ      2564
                     53167                        SA1    "RN"+X6     RFW = RND(RF[R2W])                          SQZ      2565
                          11606                   BX6    X0*X6       RF[R2W] = 0                                 SQZ      2566
          2107  5130002077 +                      SA3    ARFA                                                    CCG0150     5
                          7271000000              SX7    X1+         RF = RN[RFW]                                SQZ      2567
          2110  63470                             SB4    X7                                                      CCG0150     6
                     11331                        BX3    X3*X1                                                   CCG0150     7
                          0614002112 +            LE     B4,B1,ARF   IF RF .LE. 1  */ NO RF                      CCG0150     8
          2111  0313002113 +                      NZ     X3,ARF+1    ITERATE TO REMOVE REPEATED INCREMENTS       CCG0150     9
                                                                                                                 SQZ      2568
          2112  0200402112 +             ARF      ROUTINE                                                        SQZ      2569
          2113  10277                             BX2    X7                                                      CCG37       5
                     43700                        MX7    0                                                       CCG37       6
                          5170002100 +            SA7    ARFAIL                                                  CCG37       7
          2114  10722                             BX7    X2                                                      CCG37       8
                     20301                        LX3    59-RN.CP                                                SQZ      2570
                          20152                   LX1    -RN.TPP                                                 SQZ      2571
          2115  0333002101 +                      MI     X3,ARF1     IF C[RFW]                                   SQZ      2572
                          20302                   LX3    RN.CP-RN.IACP                                           FCC0792    20
          2116  0333002125 +                      MI     X3,ARF3     IF IAC[RFW]                                 FCC0792    21
                          20302                   LX3    RN.IACP-RN.XMTP                                         FCC0792    22
          2117  0333002123 +                      MI     X3,ARF2     IF XMT[RFW]                                 FCC0792    23
                                                                                                                 SQZ      2575
                                        *         RF IS RESULT OF *  SA  RI,RJ*, SUBSTITUTE *RJ*                 SQZ      2576
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    82
        ARF - ADJUST RF,CA OF INDEXED MEM REFERENCE                   ARF                 SQUEEZE 
  
                                                                                                                 SQZ      2577
                          6140000052              SB4    OC.STT                                                  SQZ      2579
          2120  0534002123 +                      NE     "OC",B4,ARF2      IF OC[R1] " OC.STT                    SQZ      2580
                          10244                   BX2    X4                                                      SQZ      2581
                               20225              LX2    59-D.PRSP                                               SQZ      2582
          2121  0322002123 +                      PL     X2,ARF2     IF ^PRS[DI]   */ NO DEADLOCK POSSIBLE       FCC0448   143
                                                                                                                 FCC0448   144
                          20122                   LX1    RN.TPP                                                  FCC0448   145
          2122  0400002112 +                      EQ     ARF                                                     FCC0448   146
                                                                                                                 SQZ      2584
          2123  53310                    ARF2     SA3    X1          R1P = TP[RFW]                               FCC0792    24
                     11606                        BX6    X0*X6       RF[R2W] = 0                                 FCC0792    25
                          20334                   LX3    -R1.RJP                                                 SQZ      2586
                               15730              BX7    -X0*X3      RF = RJ[R1P]                                SQZ      2587
          2124  53177                             SA1    "RN"+X7     RFW = RND(RF)                               SQZ      2588
                     0400002112 +                 EQ     ARF                                                     SQZ      2589
                                                                                                                 SQZ      2590
                                        *         *RF* IS *IAC*, ADD THE CONSTANT PART OF THE *RF* TO THE CA     SQZ      2591
                                                                                                                 SQZ      2592
          2125  53310                    ARF3     SA3    X1          R1P = TP[R1W]                               SQZ      2593
                     53112                        SA1    X1+B2       DIP = R1P + 2                               SQZ      2594
                          20334                   LX3    -R1.RJP                                                 SQZ      2595
                               15730              BX7    -X0*X3                                                  SQZ      2596
          2126  20142                             LX1    59-D.CMP                                                SQZ      2597
                     53277                        SA2    "RN"+X7     RNJ = RND(RJ[R1P])                          SQZ      2598
                          20320                   LX3    R1.RJP-R1.RKP                                           SQZ      2599
                               15730              BX7    -X0*X3                                                  SQZ      2600
          2127  53377                             SA3    "RN"+X7     RNK = RND(RK[R1P])                          SQZ      2601
                     20201                        LX2    59-RN.CP                                                SQZ      2602
                          0322002132 +            PL     X2,ARF4     IF ^C[RNJ]                                  SQZ      2603
                                                                                                                 SQZ      2604
          2130  0321002135 +                      PL     X1,ARF7     IF ^CM[DIP]   */ IS                         SQZ      2605
                          73730                   SX7    X3                                                      SQZ      2606
                               20251              LX2    1+RN.CP-RN.TPP                                          SQZ      2607
          2131  12667                             BX6    X6+X7       RF[R2W] = RN[RNK]                           SQZ      2608
                     73320                        SX3    X2                                                      SQZ      2609
                          0400002133 +            EQ     ARF5                                                    SQZ      2610
                                                                                                                 SQZ      2611
          2132  20273                    ARF4     LX2    1+RN.CP                                                 SQZ      2612
                     73720                        SX7    X2                                                      SQZ      2613
                          12676                   BX6    X7+X6       RF[R2W] = RN[RNJ]                           SQZ      2614
                               20352              LX3    -RN.TPP                                                 SQZ      2615
                                                                                                                 SQZ      2616
          2133  53330                    ARF5     SA3    X3          R1P = TP[RNJ]                               SQZ      2617
                     21173                        AX1    59          SGN = SHIFT( CM[DI] , -59 )                 SQZ      2618
                          0100001247 +            RJ     DCV                                                     SQZ      2619
          2134  17771                             BX7    -X1-X7      SVAL = XOR( VAL[R1P] , ^SGN )               SQZ      2620
                     0400002102 +                 EQ     ARF0                                                    SQZ      2621
                                                                                                                 SQZ      2622
                                        *         CON - I CASE, LEAVE INSTRUCTION ALONE ( *LD* SQZ IN *PRE* )    SQZ      2623
                                                                                                                 SQZ      2624
          2135  54351                    ARF7     SA3    A5+B1       R2 = R1 + 1                                 SQZ      2625
                     20330                        LX3    -IH.RFP                                                 SQZ      2626
                          53137                   SA1    "RN"+X3     RFW = RND(RF[R2])                           SQZ      2627
                               11603              BX6    X0*X3                                                   SQZ      2628
          2136  43701                             MX7    1                                                       CCG37       9
                     5170002100 +                 SA7    ARFAIL                                                  CCG37      10
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    83
        ARF - ADJUST RF,CA OF INDEXED MEM REFERENCE                   ARF                 SQUEEZE 
  
                               73710              SX7    X1          RF = RN[RFW]                                SQZ      2629
          2137  0400002112 +                      EQ     ARF                                                     SQZ      2630
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    84
        EDD - ELIMINATE DEAD DEFINITIONS                              EDD                 SQUEEZE 
  
                                        **        EDD - ELIMINATE DEAD DEFINITIONS ( USES = 0 ).                 SQZ      2632
                                        *         SCAN *TXT* BACKWARDS AND TRANSFER USES COUNTS TO DEFINITIONS.  SQZ      2633
                                        *         IF USES = 0 THEN MARK THE INSTRUCTION AS REDUNDANT.            SQZ      2634
                                                                                                                 SQZ      2635
          2140  5130002174 +             EDD0     SA3    EDDA                                                    SQZ      2636
                          10633                   BX6    X3                                                      SQZ      2637
                               54650              SA6    A5          RESTORE BOS                                 SQZ      2638
          2141  0200402141 +             EDD      ROUTINE                                                        SQZ      2639
                                                  TRACE  EOQ,RLIST                                               CCG17     499
          2142  54300                             SA3    "TXT"                                                   SQZ      2640
                     10633                        BX6    X3                                                      SQZ      2642
                          5160002174 +            SA6    EDDA                                                    SQZ      2643
          2143  5140000000 X                      SA4    L.TXT                                                   CCG17     500
                          7050777773              SX5    "TXT"-4                                                 CCG17     501
          2144  36445                             IX4    X4+X5                                                   CCG17     502
                     43700                        MX7    0                                                       CCG17     503
                          54700                   SA7    "TXT"       (O.TXT) = 0                                 SQZ      2645
                               53540              SA5    X4          TA = TXT(L.TXT-4)  */ EOQ ADDRESS           CCG17     504
          2145  6140000103                        SB4    OC.LDC                                                  CCG17     505
                          6150000022              SB5    59-D.^DP                                                SQZ      2647
          2146  6160000030                        SB6    60-IH.RFP                                               SQZ      2648
                          43163                   MX1    -D.USESL                                                SQZ      2649
                               20144              LX1    RN.USESP                                                SQZ      2650
          2147  76210                             SX2    B1                                                      SQZ      2651
                     20244                        LX2    RN.USESP                                                SQZ      2652
                          0400002151 +            EQ     EDD2                                                    SQZ      2653
                                                                                                                 SQZ      2654
                                        *         TRANSFER USES COUNTS FROM *RND* TO INSTRUCTION DESCRIPTORS.    SQZ      2655
                                                                                                                 SQZ      2656
          2150  20630                    EDD1     LX6    D.USESP-RN.USESP                                        SQZ      2657
                     12746                        BX7    X4+X6       USES[DI] = USES                             SQZ      2658
                          54740                   SA7    A4                                                      SQZ      2659
                                                                                                                 SQZ      2660
                                        *         SCAN *TXT* BACKWARDS FOR DEAD INSTRUCTIONS                     SQZ      2661
                                                                                                                 SQZ      2662
          2151  55452                    EDD2     SA4    A5-B2       DI = R1 - 2                                 SQZ      2663
                     55542                        SA5    A4-B2       R1 = DI - 2                                 SQZ      2664
                          0304002151 +            ZR     X4,EDD2     IF [DI] = 0   */ DEAD INSTRUCTION           SQZ      2665
          2152  22654                             LX6    B5,X4                                                   SQZ      2666
                     15750                        BX7    -X0*X5                                                  SQZ      2667
                          0305002140 +            ZR     X5,EDD0     IF [R1] = 0   */ LOOP TERMINATOR            SQZ      2668
          2153  0336002151 +                      MI     X6,EDD2     IF ^D[DI]     */ RI NOT A DEF               SQZ      2669
                          53377                   SA3    "RN"+X7                                                 SQZ      2670
                               15631              BX6    -X1*X3      USES = USES[RI]                             SQZ      2671
          2154  0316002150 +                      NZ     X6,EDD1     IF USES " 0                                 SQZ      2672
                                                                                                                 SQZ      2673
                                        *         USELESS DEFINITION.  MARK IT REDUNDANT AND DECREMENT USES      SQZ      2674
                                        *         OF ITS OPERANDS.                                               SQZ      2675
                                                                                                                 SQZ      2676
                          20423                   LX4    59-D.RJRSP                                              SQZ      2677
          2155  0334002151 +                      MI     X4,EDD2     IF RJRS[DI]   */ PRECEDES LIVE RJ RS        SQZ      2678
                          20402                   LX4    D.RJRSP-D.PRSP                                          SQZ      2679
                               54640              SA6    A4                                                      SQZ      2680
          2156  0324002157 +                      PL     X4,EDD2A    IF ^PRS[DI]                                 SQZ      2681
                          5064000004              SA6    A4+4        [DI+4] = 0    */ KILL FOLLOWING REG STORE   SQZ      2682
          2157  20447                    EDD2A    LX4    1+D.PRSP+58-D.TYP [DI] = 0                              SQZ      2683
                     36744                        IX7    X4+X4                                                   SQZ      2684
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    85
        EDD - ELIMINATE DEAD DEFINITIONS                              EDD                 SQUEEZE 
  
                          0337002167 +            MI     X7,EDD4     IF TYPE[DI] = II                            SQZ      2685
          2160  0334002164 +                      MI     X4,EDD3     IF TYPE[DI] = III                           SQZ      2686
                                                                                                                 SQZ      2687
                                        *         TYPE I                                                         SQZ      2688
                                                                                                                 SQZ      2689
                          20534                   LX5    -R1.RJP                                                 SQZ      2690
                               15650              BX6    -X0*X5                                                  SQZ      2691
          2161  53367                             SA3    "RN"+X6                                                 SQZ      2692
                     37732                        IX7    X3-X2       USES[RJ] = USES[RJ] - 1                     SQZ      2693
                          54730                   SA7    A3                                                      SQZ      2694
                               20520              LX5    R1.RJP-R1.RKP                                           SQZ      2695
          2162  15650                             BX6    -X0*X5                                                  SQZ      2696
                     53367                        SA3    "RN"+X6                                                 SQZ      2697
                          37732                   IX7    X3-X2       USES[RK] = USES[RK] - 1                     SQZ      2698
                               54730              SA7    A3                                                      SQZ      2699
          2163  0400002151 +                      EQ     EDD2                                                    SQZ      2700
                                                                                                                 SQZ      2701
                                        *         TYPE III                                                       SQZ      2702
                                                                                                                 SQZ      2703
          2164  26535                    EDD3     UX5    "OC",X5                                                 CCG17     506
                     0434002151 +                 EQ     "OC",B4,EDD2 IF OC = LDC                                CCG17     507
                               54351              SA3    A5+B1       R2 = R1 + 1                                 CCG17     508
          2165  22663                             LX6    B6,X3                                                   SQZ      2705
                     53367                        SA3    "RN"+X6                                                 SQZ      2706
                          37732                   IX7    X3-X2       USES[RF] = USES[RF] - 1                     SQZ      2707
                               54730              SA7    A3                                                      SQZ      2708
          2166  0400002151 +                      EQ     EDD2                                                    SQZ      2709
                                                                                                                 SQZ      2710
                                        *         TYPE II , CHECK FOR AN RJ *RS*                                 SQZ      2711
                                                                                                                 SQZ      2712
          2167  20435                    EDD4     LX4    D.TYP+1-D.PIP                                           SQZ      2713
                     0324002151 +                 PL     X4,EDD2     IF ^PI[DI]                                  SQZ      2714
                               20535              LX5    59-R1.INP                                               SQZ      2715
          2170  0325002151 +                      PL     X5,EDD2     IF IN[R1] = 0 */ NOT A *RJRS*               SQZ      2716
                                                                                                                 SQZ      2717
                          55352                   SA3    A5-B2       DJP = R1 - 2                                SQZ      2718
                               55432              SA4    A3-B2       R1J = DJP - 2                               SQZ      2719
          2171  76510                             SX5    B1                                                      SQZ      2720
                     20550                        LX5    D.RJRSP                                                 SQZ      2721
                          15635                   BX6    -X5*X3      RJRS[DJP] = 0                               SQZ      2722
                               20434              LX4    -R1.RJP                                                 SQZ      2723
          2172  54630                             SA6    A3                                                      SQZ      2724
                     11704                        BX7    X0*X4       RJ[R1J] = 0                                 SQZ      2725
                          20740                   LX7    R1.RJP                                                  SQZ      2726
                               54740              SA7    A4                                                      SQZ      2727
          2173  0400002151 +                      EQ     EDD2                                                    SQZ      2728
                                                                                                                 SQZ      2729
          2174                     1     EDDA     BSS    1                                                       SQZ      2730
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    86
        UCT - UPDATE CVT/CUT TABLES                                   UCT                 SQUEEZE 
  
                                        **        UCT - UPDATE CUT/CVT TABLES TO ADD NEW CONSTANTS               CCG17     510
                                                                                                                 CCG17     511
          2175  0200402175 +             UCT      ROUTINE                                                        CCG17     512
          2176  5110000012 C                      SA1    LDCN                                                    CCG17     513
                          0331002175 +            MI     X1,UCT      IF LDCN < 0   */ NO LDC"S ENCOUNTERED       CCG17     514
                                                                                                                 CCG17     515
          2177  5100000000 X                      ALLOC  CVT,X1      ALLOC( CVT,LDCN )                           CCG17     516
          2200  63520                             SB5    X2                                                      CCG17     517
                     66760                        SB7    B6          L = OLD(L.CVT)                              CCG17     518
                          6140000103              SB4    OC.LDC                                                  CCG17     519
          2201  5150000000 X                      SA5    O.TXT                                                   CCG17     520
                          66211                   SB2    B1+B1                                                   CCG17     521
                               53452              SA4    X5+B2       DI = TXT + 2                                CCG17     522
          2202  5110000000 X                      SA1    =XS$CON     (X1) = CON.                                 CCG18     163
                          43000                   MX0    0           SD = 0                                      CCG17     524
                                                                                                                 CCG17     525
                                        *         SCAN SEQUENCE FOR LIVE LDC"S, MOVE CONSTANT VALUE TO CVT,      CCG17     526
                                        *         ADJUST IH WORD                                                 CCG17     527
                                                                                                                 CCG17     528
          2203  5044000004               UCT1     SA4    A4+4        DI = DI + 4                                 CCG17     529
                          0304002203 +            ZR     X4,UCT1     IF DI = 0     */ DEAD INSTRUCTION           CCG17     530
          2204  55542                             SA5    A4-B2       R1 = DI - 2                                 CCG17     531
                     26735                        UX7    "OC",X5                                                 CCG17     532
                          0430002215 +            ZR     "OC",UCT4   IF OC[R1] = 0 */ EOQ                        CCG17     533
          2205  0534002203 +                      NE     "OC",B4,UCT1 IF OC[R1] " OC.LDC                         CCG17     534
                                                                                                                 CCG17     535
                          54341                   SA3    A4+B1       LI = DI + 1                                 CCG17     536
                               12004              BX0    X0+X4                                                   CCG17     537
          2206  20352                             LX3    -I.CAP                                                  CCG17     538
                     73730                        SX7    X3          C = CA[LI]                                  CCG17     539
                          0317002213 +            NZ     X7,UCT3     IF C " 0      */ LDC NOT GENERATED BY SQZ   CCG17     540
                                                                                                                 CCG17     541
                                        *         SEARCH CVT FOR MATCH, ENTER IN TABLE                           CCG17     542
                                                                                                                 CCG17     543
          2207  54351                             SA3    A5+B1                                                   CCG17     544
                     10633                        BX6    X3                                                      CCG17     545
                          56657                   SA6    B5+B7       CVT(L) = [DI - 1]                           CCG17     546
                               43773              MX7    59          C = -1                                      CCG17     547
                                                                                                                 CCG17     548
          2210  7277000001               UCT2     SX7    X7+1        C = C + 1                                   CCG17     549
                          53275                   SA2    B5+X7       VALM = CVT(C)                               CCG17     550
                               13632              BX6    X3-X2                                                   CCG17     551
          2211  0316002210 +                      NZ     X6,UCT2                                                 CCG17     552
                          0336002210 +            MI     X6,UCT2     IF VAL " VALM */ NO MATCH                   CCG17     553
                                                                                                                 CCG17     554
          2212  63370                             SB3    X7                                                      CCG17     555
                     0737002213 +                 LT     B3,B7,UCT3  IF C < L      */ MATCHING CVT ENTRY         CCG17     556
                               66771              SB7    B7+B1       L = L + 1                                   CCG17     557
                                                                                                                 CCG17     558
          2213  20722                    UCT3     LX7    IH.CAP                                                  CCG17     559
                     12671                        BX6    X7+X1                                                   CCG17     560
                          5064777776              SA6    A4-1        [DI-1] = IH( 0,C,CON. )                     CCG17     561
          2214  0400002203 +                      EQ     UCT1                                                    CCG17     562
                                                                                                                 CCG17     563
          2215  43172                    UCT4     MX1    -D.STRSL                                                CCG20      12
                     20026                        LX0    -D.STRSP                                                CCG20      13
                          15601                   BX6    -X1*X0                                                  CCG20      14
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    87
        UCT - UPDATE CVT/CUT TABLES                                   UCT                 SQUEEZE 
  
          2216  0306002217 +                      ZR     X6,UCT5     IF STRS[SD] = 0  */ NO PS ! PRS LDC"S       CCG20      15
                          5160000011 C            SA6    IXF                                                     CCG17     567
          2217  76670                    UCT5     SX6    B7                                                      CCG17     568
                     5160000000 X                 SA6    L.CVT       L.CVT = L                                   CCG17     569
                               77176              SX1    B7-B6       L = L - OLD(L.CVT)                          CCG17     570
          2220  0301002175 +                      ZR     X1,UCT      IF NO NEW ENTRIES ADDED                     CCG17     571
                          5100000000 X            ALLOC  CUT,X1      ALLOC ( CUT,L )                             CCG17     572
          2222  43600                             SETZERO X2+B6,X1                                               CCG17     573
          2223  0400002175 +                      EQ     UCT                                                     CCG17     574
                                                                                                                 CCG17     575
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    88
        EDI - ELIMINATE DEAD INSTRUCTIONS                             EDI                 SQUEEZE 
  
                                        *         EDI - ELIMINATE DEAD INSTRUCTIONS ( COMPRESS *TXT* )           SQZ      2732
                                                                                                                 SQZ      2733
          2224  77665                    EDI0     SX6    B6-B5                                                   SQZ      2734
                     5160000000 X                 SA6    L.TXT                                                   SQZ      2735
          2225  0200402225 +             EDI      ROUTINE                                                        SQZ      2736
          2226  5110000000 X                      SA1    O.TXT                                                   CCG17     576
                          5120000000 X            SA2    O.RND                                                   CCG17     577
          2227  53010                             S"TXT" X1                                                      CCG17     578
                     63720                        S"RN"  X2                                                      CCG17     579
                          43054                   MX0    -R1.RIL                                                 CCG18     164
                               43700              MX7    0                                                       CCG9      127
          2230  5070000003                        SA7    "TXT"+3     TXT(3) = 0    */ CLEAR LINK OF BOS          CCG9      128
                          5150000013 C            SA5    RSS                                                     SQZ      2737
          2231  66211                             SB2    B1+B1                                                   CCG20      16
                     66422                        SB4    B2+B2                                                   SQZ      2738
                          43163                   MX1    -D.USESL                                                SQZ      2739
                                                  LX1    D.USESP                                                 SQZ      2740
          2232  6130777774                        SB3    -3                                                      SQZ      2741
                          0305002265 +            ZR     X5,EDI4     IF RSS = 0                                  SQZ      2742
          2233  64500                             SB5    "TXT"                                                   CCG17     580
                     56470                        SA4    "RN"                                                    CCG40      20
                          20452                   LX4    -RN.TPP                                                 CCG40      21
                               63640              SB6    X4                                                      CCG40      22
          2234  67656                             SB6    B5-B6       BIAS = NEW(O.TXT)-OLD(O.TXT)                CCG40      23
                                        *         MOVE THE SEPARATED REGISTER STORES NEXT TO THEIR DEFINITIONS.  SQZ      2744
                                                                                                                 SQZ      2745
          2235  53455                    EDI1     SA4    B5+X5       R1 = TXT + RSS                              CCG17     581
                     54342                        SA3    A4+B2       DI = R1 + 2;  D = [DI]                      SQZ      2747
                          43700                   MX7    0                                                       SQZ      2748
                               54730              SA7    A3          [DI] = 0                                    SQZ      2749
          2236  15631                             BX6    -X1*X3                                                  SQZ      2750
                     20637                        LX6    R1.INP+1-D.USESP                                        SQZ      2751
                          15240                   BX2    -X0*X4                                                  SQZ      2752
                               36746              IX7    X4+X6       */ SAVE R1 OF RS & USES IN LINK WD OF DEF   SQZ      2753
          2237  55543                             SA5    A4-B3       RSS = [RSS+3]                               CCG18     165
                     53227                        SA2    "RN"+X2     RIA = O.RND + RI[R1]  */ RND WORD           SQZ      2755
                          0303002242 +            ZR     X3,EDI1A    IF D = 0      */ DEF IS DEAD                SQZ      2756
          2240  20252                             LX2    -RN.TPP                                                 SQZ      2757
                     53326                        SA3    X2+B6       R1P = TP[R1A] + BIAS                        CCG40      24
                          54441                   SA4    A4+B1       R2 = R1 + 1                                 SQZ      2759
                               14633              BX6    -X3         [R1P] = -[R1P]  */ SEP RS FLAG              SQZ      2760
          2241  54630                             SA6    A3                                                      SQZ      2761
                     55763                        SA7    A6-B3       [R1P+3] = [R1] + USES[D]                    SQZ      2762
                          10644                   BX6    X4                                                      SQZ      2763
                               54620              SA6    A2          [RIA] = [R2]  */ SAVE R2 OF RS IN *RND*     SQZ      2764
          2242  73550                    EDI1A    SX5    X5                                                      CCGA083   533
                     0315002235 +                 NZ     X5,EDI1     IF RSS .NE. 0                               CCGA083   534
                                                                                                                 SQZ      2766
                                        *         NOW MOVE THE SEQUENCE UP                                       SQZ      2767
                                                                                                                 SQZ      2768
                               43600              MX6    0                                                       SQZ      2769
          2243  54600                             SA6    "TXT"       [O.TXT] = 0                                 SQZ      2770
                     43163                        MX1    -D.USESL                                                SQZ      2771
                          20137                   LX1    R1.INP+1                                                SQZ      2772
          2244  5120000004 X                      SA2    F.RDT+OC.RS                                             SQZ      2773
                          5130000000 X            SA3    L.TXT                                                   CCG17     583
          2245  63530                             SB5    X3                                                      CCG17     584
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    89
        EDI - ELIMINATE DEAD INSTRUCTIONS                             EDI                 SQUEEZE 
  
                     74305                        SX3    "TXT"+B5                                                CCG17     585
                          6253777771              SB5    X3-6        TA = EOQA - 2                               CCG17     586
          2246  5253777773                        SA5    X3-4                                                    CCG18     166
                          63630                   SB6    X3          LWA+1                                       CCG18     167
          2247  0400002256 +                      EQ     EDI3                                                    SQZ      2778
                                                                                                                 SQZ      2779
          2250  54341                    EDI2     SA3    A4+B1       R1RS = DI + 1                               SQZ      2780
                     11613                        BX6    X1*X3                                                   SQZ      2781
                          15331                   BX3    -X1*X3                                                  SQZ      2782
                               57652              SA6    B5-B2       [TA-2] = [R1RS]                             SQZ      2783
          2251  20335                             LX3    D.USESP-R1.INP-1                                        SQZ      2784
                     12723                        BX7    X2+X3       D = RDT(OC.RS) ! USES[R1RS]                 SQZ      2785
                          0303002253 +            ZR     X3,EDI2A    IF USES[R1RS] = 0                           SQZ      2786
          2252  76310                             SX3    B1                                                      SQZ      2787
                     20351                        LX3    D.^DP                                                   SQZ      2788
                          15773                   BX7    -X3*X7      ^D[D] = 0                                   SQZ      2789
          2253  15660                    EDI2A    BX6    -X0*X6                                                  SQZ      2790
                     53367                        SA3    "RN"+X6     R2W = RND(RI[R1RS])                         SQZ      2791
                          14555                   BX5    -X5         [R1] = -[R1]                                SQZ      2792
                               10633              BX6    X3                                                      SQZ      2793
          2254  56750                             SA7    B5          [TA] = D                                    SQZ      2794
                     57651                        SA6    B5-B1       [TA-1] = R2W                                SQZ      2795
                          43700                   MX7    0                                                       SQZ      2796
                               54771              SA7    A7+B1       [TA+1] = 0                                  SQZ      2797
          2255  67554                             SB5    B5-B4       TA = TA - 4                                 SQZ      2798
                     0400002257 +                 EQ     EDI3A                                                   SQZ      2799
                                                                                                                 SQZ      2800
          2256  55452                    EDI3     SA4    A5-B2       DI = R1 - 2                                 SQZ      2801
                     55542                        SA5    A4-B2       R1 = DI - 2                                 SQZ      2802
                          0304002256 +            ZR     X4,EDI3     IF [DI] = 0                                 SQZ      2803
          2257  0335002250 +             EDI3A    MI     X5,EDI2     IF [R1] < 0                                 SQZ      2804
                          54351                   SA3    A5+B1       R2 = R1 + 1                                 SQZ      2805
                               43700              MX7    0                                                       SQZ      2806
          2260  56751                             SA7    B5+B1       [R1+3] = 0                                  SQZ      2807
                     10644                        BX6    X4                                                      SQZ      2808
                          56650                   SA6    B5                                                      SQZ      2809
                               22703              LX7    X3                                                      SQZ      2810
          2261  57751                             SA7    B5-B1                                                   SQZ      2811
                     10655                        BX6    X5                                                      SQZ      2812
                          67554                   SB5    B5-B4                                                   SQZ      2813
                               55662              SA6    A6-B2                                                   SQZ      2814
          2262  0315002256 +                      NZ     X5,EDI3     IF [R1] " 0                                 SQZ      2815
                                                                                                                 SQZ      2816
                          5140002174 +            SA4    EDDA                                                    SQZ      2817
          2263  64560                             SB5    A6          FWA                                         SQZ      2818
                     74660                        SX6    A6                                                      SQZ      2819
                          5160000000 X            SA6    O.TXT                                                   SQZ      2820
          2264  10744                             BX7    X4                                                      SQZ      2821
                     56750                        SA7    B5                                                      SQZ      2822
                          0400002224 +            EQ     EDI0                                                    SQZ      2823
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    90
        EDI - ELIMINATE DEAD INSTRUCTIONS                             EDI                 SQUEEZE 
  
                                        *         DEAD INSTRUCTION ELIMINATION WHEN NO SEPARATED REG STORES.     SQZ      2825
                                                                                                                 SQZ      2826
          2265  54402                    EDI4     SA4    "TXT"+B2    DI = TXT + 2                                SQZ      2827
                     6050000006                   SB5    "TXT"+6     TA = O.TXT + 6  */ STORE ADDRESS            SQZ      2828
                                                                                                                 SQZ      2829
          2266  54444                    EDI5     SA4    A4+B4       DI = DI + 4                                 SQZ      2830
                     55542                        SA5    A4-B2       R1 = DI - 2                                 SQZ      2831
                          0304002266 +            ZR     X4,EDI5     IF [DI] = 0                                 SQZ      2832
          2267  55341                             SA3    A4-B1       R2 = DI - 1                                 SQZ      2833
                     43700                        MX7    0                                                       SQZ      2834
                          10644                   BX6    X4                                                      SQZ      2835
                               56751              SA7    B5+B1       [R1+3] = 0                                  SQZ      2836
          2270  26235                             UX2    "OC",X5                                                 SQZ      2837
                     56650                        SA6    B5                                                      SQZ      2838
                          10733                   BX7    X3                                                      SQZ      2839
                               57751              SA7    B5-B1                                                   SQZ      2840
          2271  22605                             LX6    X5                                                      SQZ      2841
                     57652                        SA6    B5-B2                                                   SQZ      2842
                          66554                   SB5    B5+B4       TA = TA + 4                                 SQZ      2843
          2272  0530002266 +                      NZ     "OC",EDI5   IF OC[R1] " OC.EOQ                          SQZ      2844
                          64664                   SB6    A6+B4                                                   SQZ      2845
                               64500              SB5    "TXT"                                                   SQZ      2846
          2273  0400002224 +                      EQ     EDI0                                                    SQZ      2847
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    91
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                                                  DESCRIBE L.                                                    CCG17     588
      L     60  77770000000000000000     OC       DEFINE 12          P(OC) XMT OR RS                             CCG17     589
      L     44  00007777000000000000     STU      DEFINE 12          N. ST USES                                  CCG17     590
      L     22  00000000777777000000     RST      DEFINE 18          R-NUM IN A STORE REGISTER                   CCG17     591
      L      0  00000000000000777777     RN       DEFINE 18          GENERAL R-NUMBER                            CCG17     592
                                                                                                                 CCG17     593
                                        **        IXI - INSERT EXTRA INSTRUCTIONS FOR *LDC* OPCODES THAT *PS*    CCG17     594
                                        *         OR *S* THAT HAVE A NON-ZERO *SO* FIELD ( SEE *ECO4* CODE )     CCG17     595
                                        *         OR *IM*"S THAT NEED A UNPACK OF ONE OF ITS OPERANDS.           CCG17     596
                                                                                                                 CCG17     597
                                         PRCS     MACRO  NAM                                                     CCG17     598
                                                  BSS    0                                                       CCG17     599
                                         (NAM     EQU    *-IXI1                                                  CCG17     600
                                                  ENDM                                                           CCG17     601
                                                                                                                 CCG17     602
          2274  0200402274 +             IXI      ROUTINE                                                        CCG17     603
          2275  5150000011 C                      SA5    IXF                                                     CCG17     604
                          0305002274 +            ZR     X5,IXI      IF IXF = 0                                  CCG17     605
                                                                                                                 CCG17     606
          2276  76710                             SX7    B1                                                      CCG17     607
                     6140000004                   SB4    4                                                       CCG17     608
                               20772              LX7    58          N = 0                                       CCG17     609
          2277  76040                             SX0    B4                                                      CCG17     610
                     20022                        LX0    L.RSTP                                                  CCG17     611
                          76640                   SX6    B4                                                      CCG17     612
                               36060              IX0    X6+X0                                                   CCG17     613
          2300  5110000000 X                      SA1    O.TXT                                                   CCG17     614
                          43256                   MX2    -R1.SOL                                                 CCG17     615
                               20220              LX2    R1.SOP                                                  CCG17     616
          2301  53510                             SA5    X1          R1 = O.TXT                                  CCG17     617
                                                                                                                 CCG17     618
                                        *         SCAN *TXT* FOR -                                               CCG17     619
                                        *                1) LDC INSTRUCTIONS THAT *PS* OR *PRS* TO X0, X6 OR X7  CCG20      17
                                        *                2) S INSTRUCTIONS WITH *SO* " 0                         CCG17     621
                                        *                3) IM INSTRUCTIONS WITH THE *USI* BIT SET               CCG17     622
                                        *                4) DEF INSTRUCTIONS WIH NON-ZERO R2 WORD                CCGA083   535
                                                                                                                 CCG17     623
          2302  54554                    IXI1     SA5    A5+B4       R1 = R1 + 4                                 CCG17     624
                     5045000002                   SA4    A5+2        DI = R1 + 2                                 CCG17     625
                               26635              UX6    "OC",X5                                                 CCG17     626
          2303  5133002455 +                      SA3    SBB.JT+"OC"                                             CCG17     627
                          36770                   IX7    X7+X0       N = N + 4                                   CCG17     628
                               20336              LX3    30                                                      CCG17     629
          2304  54741                             SA7    A4+B1       LI = DI + 1;  [LI] = LW(0,0,N,N)            CCG17     630
                     26633                        UX6    "OC",X3                                                 CCG17     631
                          0233002302 +            JP     IXI1+"OC"   JUMP TO PROCESSOR                           CCG17     632
                                                                                                                 CCG17     633
          2305                                    PRCS   LDC                                                     CCG17     634
          2305  20424                             LX4    59-D.PSP                                                CCG17     635
                     0334002312 +                 MI     X4,IXI1A    IF PS[DI]                                   CCG20      18
                               20401              LX4    D.PSP-D.PRSP                                            CCG20      19
          2306  0324002302 +                      PL     X4,IXI1     IF ^PRS[DI]                                 CCG20      20
                          5034000002              SA3    A4+2        R1RS = DI + 2                               CCG20      21
          2307  43571                             MX5    -SO.RNL                                                 CCG20      22
                     20354                        LX3    -R1.SOP                                                 CCG20      23
                          15535                   BX5    -X5*X3                                                  CCG20      24
                               63750              SB7    X5                                                      CCG20      25
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    92
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
          2310  43505                             MX5    5                                                       CCG20      26
                     20573                        LX5    -1                                                      CCG20      27
                          22575                   LX5    B7,X5                                                   CCG20      28
          2311  0335002302 +                      MI     X5,IXI1     IF SORN[R1RS] IS 1 - 5                      CCG20      29
                                                                                                                 CCG20      30
          2312  6170000001               IXI1A    SB7    P.XMT       PA = P.XMT    */ SET PROCESSOR ADDRESS      CCG20      31
                                                                                                                 CCG17     638
          2313  27677                    IXI2     PX6    B7,X7                                                   CCG17     639
                     76440                        SX4    B4                                                      CCG17     640
                          20422                   LX4    L.RSTP                                                  CCG17     641
                               36646              IX6    X4+X6                                                   CCG17     642
          2314  54641                             SA6    A4+B1       [LI] = LW(PA,0,N+4,N)                       CCG17     643
                     36770                        IX7    X7+X0       N = N + 4                                   CCG17     644
                          0400002302 +            EQ     IXI1                                                    CCG17     645
                                                                                                                 CCG17     646
          2315                                    PRCS   S                                                       CCG17     647
          2315  15352                             BX3    -X2*X5                                                  CCG17     648
                     0303002302 +                 ZR     X3,IXI1     IF SO[R1] = 0                               CCG17     649
          2316  6170000034                        SB7    P.RS        PA = P.RS                                   CCG17     650
                          0400002313 +            EQ     IXI2                                                    CCG17     651
                                                                                                                 CCGA083   536
          2317                                    PRCS   DEF                                                     CCGA083   537
          2317  54351                             SA3    A5+B1       R2 = R1 + 1                                 CCGA083   538
                     22513                        LX5    B1,X3                                                   CCGA083   539
                          0325002302 +            PL     X5,IXI1     IF NOT BIT58[R2]  */ NOT BEF STORE          CCGA083   540
          2320  6170000020                        SB7    P.ST                                                    CCGA083   541
                          27677                   PX6    B7,X7                                                   CCGA083   542
                               54641              SA6    A4+B1       [LI] = LW(P.ST,0,N,N)                       CCGA083   543
          2321  36770                             IX7    X7+X0       N = N + 4                                   CCGA083   544
                     20501                        LX5    1                                                       CCGA083   545
                          0325002302 +            PL     X5,IXI1                                                 CCGA083   546
          2322  36770                             IX7    X7+X0       N = N + 4                                   CCGA083   547
                     0400002302 +                 EQ     IXI1                                                    CCGA083   548
                                                                                                                 CCG17     652
          2323                                    PRCS   IM                                                      CCG17     653
          2323  20440                             LX4    59-D.USIP                                               CCG17     654
                     0324002302 +                 PL     X4,IXI1     IF ^USI[DI]                                 CCG17     655
                               36770              IX7    X7+X0       N = N + 4                                   CCG17     656
          2324  6170000042                        SB7    P.IM                                                    CCG17     657
                          27677                   PX6    B7,X7                                                   CCG17     658
                               54670              SA6    A7          [LI] = LW(P.IM,0,N,N)                       CCG17     659
          2325  0400002302 +                      EQ     IXI1                                                    CCG17     660
                                                                                                                 CCG17     661
          2326                                    PRCS   EOQ                                                     CCG17     662
          2326  5120000000 X                      SA2    L.TXT                                                   CCG17     663
                          73774                   SX7    X7+B4       N = N + 4                                   CCG17     664
                               37172              IX1    X7-X2       NX = N - L.TXT                              CCG17     665
          2327  5100000000 X                      ALLOC  TXT,X1      ALLOC( TXT , NX )                           CCG17     666
          2330  6253777773                        SB5    X3-4        SI = L.TXT - 4  */ STORE INDEX              CCG17     667
                          6166777773              SB6    B6-4        FI = OLD(L.TXT)-4  */ FETCH INDEX           CCG17     668
          2331  6272000003                        SB7    X2+3        TB = TXT + 3                                CCG17     669
                          0301002444 +            ZR     X1,IXI20    IF NX = 0     */ NO EXTRA INSTRUCTIONS      CCG17     670
                                                  TRACE  IXI,RLIST                                               CCG17     671
          2332  7100600001                        SX0    RN.MASK                                                 CCG17     672
                          43102                   MX1    D.TYL                                                   CCG17     673
                               66575              SB5    B7+B5       SI = TB + SI                                CCG17     674
          2333  6140000031                        SB4    59-D.STP                                                CCG17     675
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    93
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                                                                                                                 CCG17     676
                                        *         MOVE THE SEQUENCE UP IN *TXT* AND INSERT THE EXTRA INSTRUCTION CCG17     677
                                                                                                                 CCG17     678
          2334  56576                    IXI4     SA5    B7+B6       LI = TB + FI                                CCG17     679
                     26435                        UX4    B3,X5                                                   CCG17     680
                          0530002361 +            NZ     B3,IXI9     IF OC[LI] " 0                               CCG17     681
                                                                                                                 CCG17     682
          2335  55451                    IXI5     SA4    A5-B1       DI = LI - 1                                 CCG17     683
                     55341                        SA3    A4-B1                                                   CCG17     684
                          10233                   BX2    X3                                */  R2 WORD           CCG0213     5
                               10744              BX7    X4                                                      CCG17     685
          2336  20330                             LX3    -IH.RFP                                                 CCG17     686
                     57751                        SA7    B5-B1       [SI-1] = [DI]                               CCG17     687
                          10722                   BX7    X2                                */  R2 WORD           CCG0213     6
                               16241              BX2    -X1+X4                                                  CCG0213     7
          2337  0302002341 +                      ZR     X2,IXI6     IF TY[DI] = IV                              CCG0213     8
                          15630                   BX6    -X0*X3                                                  CCG17     688
                               53267              SA2    B7+X6       ADJ RF AND MOVE R2 WORD                     CCG17     689
          2340  11303                             BX3    X0*X3                                                   CCG17     690
                     73220                        SX2    X2                                                      CCG17     691
                          36723                   IX7    X2+X3                                                   CCG17     692
                               20744              LX7    IH.RFP                                                  CCG17     693
                                                                                                                 CCG0213     9
          2341  55771                    IXI6     SA7    A7-B1                                                   CCG0213    10
                                                                                                                 CCG17     695
                     55331                        SA3    A3-B1       ADJ R1 WORD                                 CCG17     696
                          16241                   BX2    -X1+X4                                                  CCG17     697
          2342  0302002347 +                      ZR     X2,IXI7     IF TY[DI] = IV                              CCG17     698
                          11514                   BX5    X1*X4                                                   CCG17     699
                               15630              BX6    -X0*X3                                                  CCG17     700
          2343  53267                             SA2    B7+X6       LII = [TB+RI[R1]]                           CCG17     701
                     11303                        BX3    X0*X3                                                   CCG17     702
                          22644                   LX6    B4,X4                                                   CCG17     703
          2344  0326002347 +                      PL     X6,IXI7     IF ^ST[DI]                                  CCG17     704
                                                  IFNE   .DAL,0,2                                                CCG17     705
                          20672                   LX6    D.STP-D.L2P                                             CCG17     706
          2345  0336002347 +                      MI     X6,IXI7     IF L2[DI]                                   CCG17     707
                                                                                                                 CCG17     708
                          76610                   SX6    B1                                                      CCG17     709
                               20644              LX6    L.STUP                                                  CCG17     710
          2346  36626                             IX6    X2+X6       STU[LII] = STU[LII] + 1                     CCG17     711
                     54620                        SA6    A2                                                      CCG17     712
                          20252                   LX2    -L.RSTP                                                 CCG17     713
                                                                                                                 CCG17     714
          2347  73220                    IXI7     SX2    X2                                                      CCG17     715
                     12332                        BX3    X3+X2                                                   CCG17     716
                          0315002356 +            NZ     X5,IXI8     IF TY[DI] " I                               CCG17     717
                                                                                                                 CCG17     718
          2350  20334                             LX3    -R1.RJP                                                 CCG17     719
                     15630                        BX6    -X0*X3                                                  CCG17     720
                          53267                   SA2    B7+X6                                                   CCG17     721
                               11303              BX3    X0*X3                                                   CCG17     722
          2351  73220                             SX2    X2                                                      CCG17     723
                     12323                        BX3    X2+X3                                                   CCG17     724
                          20320                   LX3    R1.RJP-R1.RKP                                           CCG17     725
                               15630              BX6    -X0*X3                                                  CCG17     726
          2352  53267                             SA2    B7+X6                                                   CCG17     727
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    94
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                     11303                        BX3    X0*X3                                                   CCG17     728
                          73220                   SX2    X2                                                      CCG17     729
                               12323              BX3    X2+X3                                                   CCG17     730
          2353  20320                             LX3    R1.RKP                                                  CCG17     731
                     20423                        LX4    59-D.RJRSP                                              CCG17     732
                          0324002356 +            PL     X4,IXI8     IF ^RJRS[DI]                                CCG17     733
                                                                                                                 CCG17     734
                                        *         CORRECT THE VALUE OF THE *RJ* FIELD SINCE THE BACKWARD         CCG17     735
                                        *         PROCESSSING OF THE SEQUENCE HAS ALREADY CLEARED THE LINK WORD  CCG17     736
                                                                                                                 CCG17     737
          2354  15730                             BX7    -X0*X3                                                  CCG17     738
                     7277000004                   SX7    X7+4                                                    CCG17     739
                               20740              LX7    R1.RJP      RJ[R1] = RI[R1] + 4                         CCG17     740
          2355  12373                             BX3    X7+X3                                                   CCG17     741
                                                                                                                 CCG17     742
          2356  10733                    IXI8     BX7    X3                                                      CCG17     743
                     55771                        SA7    A7-B1                                                   CCG17     744
                          43600                   MX6    0                                                       CCG17     745
                               56650              SA6    B5          [SI] = 0                                    CCG17     746
          2357  6155777773                        SB5    B5-4        SI = SI - 4                                 CCG17     747
                          6166777773              SB6    B6-4        FI = FI - 4                                 CCG17     748
          2360  0706002334 +                      GT     B6,IXI4     IF FI > 0                                   CCG17     749
                                                                                                                 CCG17     750
                                                  TRACE  IXIX,RLIST                                              CCG17     751
                          0400002274 +            EQ     IXI                                                     CCG17     752
                                                                                                                 CCG17     753
                                        *         ADD AN INSTRUCTION AFTER/BEFORE THE CURRENT INSTRUCTION        CCG17     754
                                                                                                                 CCG17     755
                                                  PURGMAC PRCS                                                   CCG17     756
                                         PRCS     MACRO  NAM                                                     CCG17     757
                                                  BSS    0                                                       CCG17     758
                                         P.NAM    EQU    *-IXI9                                                  CCG17     759
                                                  ENDM                                                           CCG17     760
                                                                                                                 CCG17     761
          2361  43700                    IXI9     MX7    0                                                       CCG17     762
                     56750                        SA7    B5          [LI] = 0                                    CCG20      32
                          0233002361 +            JP     IXI9+B3                                                 CCG17     764
                                                                                                                 CCG17     765
                                        *         ADD AN *XMT* AFTER AN *LDC* THAT *PS* OR *PRS*                 CCG41      12
                                                                                                                 CCG17     767
          2362                                    PRCS   XMT                                                     CCG17     768
          2362  5130000010 X                      SA3    F.RDT+OC.XMT                                            CCG17     769
                          6130000010              SB3    OC.XMT                                                  CCG17     770
          2363  55451                             SA4    A5-B1       DI = LI - 1                                 CCG17     771
                     10644                        BX6    X4                                                      CCG41      13
                          20624                   LX6    59-D.PSP                                                CCG41      14
          2364  0336002372 +                      MI     X6,IXI10          IF PS[DI]                             CCG41      15
                          56251                   SA2    B5+B1       R1RS = SI + 1                               CCG41      16
          2365  7170000004                        SX7    4                                                       CCG41      17
                          36627                   IX6    X2+X7       RI[R1RS] = RI[R1RS] + 4                     CCG41      18
                               54620              SA6    A2                                                      CCG41      19
          2366  76210                             SX2    B1                                                      CCG41      20
                     20646                        LX6    -R1.SOP-SO.LKP                                          CCG41      21
                          15627                   BX6    -X7*X2      B = ^SOLK[R1RS] & 1                         CCG41      22
                               20246              LX2    D.PRSP                                                  CCG41      23
          2367  12332                             BX3    X3+X2       PRS[DI] = 1                                 CCG41      24
                     12736                        BX7    X3+X6       USES[XMT] = B */ =1 IF UJP/FULL LOCK        CCG41      25
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    95
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                          57751                   SA7    B5-B1                                                   CCG41      26
                               15442              BX4    -X2*X4      PRS[DI] = 0                                 CCG41      27
          2370  37646                             IX6    X4-X6       USES[DI] = USES[DI] - B                     CCG41      28
                     54640                        SA6    A4                                                      CCG41      29
                          20530                   LX5    -L.STUP                                                 CCG41      30
          2371  0400002375 +                      EQ     IXI11                                                   CCG41      31
                                                                                                                 CCG41      32
          2372  76210                    IXI10    SX2    B1                                                      CCG41      33
                     36442                        IX4    X4+X2       USES[DI] = USES[DI] + 1                     CCG17     773
                          20247                   LX2    D.PSP                                                   CCG17     774
                               12332              BX3    X3+X2       PS[XMT] = 1                                 CCG17     775
          2373  15442                             BX4    -X2*X4      PS[DI] = 0                                  CCG17     776
                     20530                        LX5    -L.STUP                                                 CCG17     777
                          43663                   MX6    -D.USESL                                                CCG17     778
                               15656              BX6    -X6*X5                                                  CCG17     779
          2374  12736                             BX7    X3+X6       USES[XMT] = STU[LI]                         CCG17     780
                     57751                        SA7    B5-B1                                                   CCG17     781
                          37646                   IX6    X4-X6       USES[DI] = USES[DI] - STU[LI]               CCG17     782
                               54640              SA6    A4                                                      CCG17     783
                                                                                                                 CCG41      34
          2375  43700                    IXI11    MX7    0                                                       CCG41      35
                     55771                        SA7    A7-B1                                                   CCG17     785
                          20522                   LX5    L.STUP-L.RSTP                                           CCG17     786
                               73650              SX6    X5                                                      CCG17     787
          2376  20522                             LX5    L.RSTP                                                  CCG17     788
                     73550                        SX5    X5                                                      CCG17     789
                          27636                   PX6    B3,X6                                                   CCG17     790
                               20540              LX5    R1.RJP                                                  CCG17     791
          2377  12765                             BX7    X6+X5                                                   CCG17     792
                     55771                        SA7    A7-B1       TYI(OC.XMT,0,RN,SRN)                        CCG17     793
                          6155777773              SB5    B5-4        SI = SI - 4                                 CCG17     794
          2400  0400002335 +                      EQ     IXI5                                                    CCG17     795
                                                                                                                 CCGA083   549
                                        *         ADD A ST TO ST. AFTER DEF ( RJ3 SQZ )                          CCGA083   550
                                                                                                                 CCGA083   551
          2401                                    PRCS   ST                                                      CCGA083   552
          2401  64250                             SB2    A5                                                      CCGA083   553
                     0100002406 +                 RJ     IFT         INSERT FIRST STORE                          CCGA083   554
          2402  5025777770                        SA2    A5-7                                                    CCGA083   555
                          26232                   UX2    B3,X2                                                   CCGA083   556
          2403  7123777772                        SX2    B3-OC.DEF                                               CCGA083   557
                          0312002335 +            NZ     X2,IXI5     IF NOT DBL PREC                             CCGA083   558
          2404  6025777773                        SB2    A5-4                                                    CCGA083   559
                          0100002406 +            RJ     IFT                                                     CCGA083   560
          2405  0400002335 +                      EQ     IXI5                                                    CCGA083   561
                                                                                                                 CCGA083   562
          2406  0200402406 +             IFT      ROUTINE                                                        CCGA083   563
          2407  5130000051 X                      SA3    F$RDT+OC.ST                                             CCGA083   564
                          6130000051              SB3    OC.ST                                                   CCGA083   565
          2410  10633                             BX6    X3                                                      CCGA083   566
                     5132777775                   SA3    B2-2                                                    CCGA083   567
                               57651              SA6    B5-B1       DESCR                                       CCGA083   568
          2411  26603                             UX6    X3                                                      CCGA083   569
                     55661                        SA6    A6-B1       R2W = CAIH[R2DEF]                           CCGA083   570
                          56320                   SA3    B2          LINK WORD OF DEF                            CCGA083   571
                               15630              BX6    -X0*X3                                                  CCGA083   572
          2412  27636                             PX6    B3,X6                                                   CCGA083   573
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    96
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
                     55661                        SA6    A6-B1       R1W = TYIII(OC.ST,0,0,RI[R1DEF])            CCGA083   574
                          43600                   MX6    0                                                       CCGA083   575
                               56650              SA6    B5          CLEAR LINK OF ST                            CCGA083   576
          2413  5162777775                        SA6    B2-2        R2DEF = 0                                   CCGA083   577
                          6155777773              SB5    B5-4        SI = SI - 4                                 CCGA083   578
          2414  0400002406 +                      EQ     IFT                                                     CCGA083   579
                                                                                                                 CCG17     796
                                        *         ADD AN *RS* AFTER A *S* WITH *SO* " 0                          CCG17     797
                                                                                                                 CCG17     798
          2415                                    PRCS   RS                                                      CCG17     799
          2415  5130000004 X                      SA3    F.RDT+OC.RS                                             CCG17     800
                          6130000004              SB3    OC.RS                                                   CCG17     801
          2416  10633                             BX6    X3                                                      CCG17     802
                     57651                        SA6    B5-B1                                                   CCG17     803
                          55761                   SA7    A6-B1                                                   CCG17     804
                               73650              SX6    X5                                                      CCG17     805
          2417  5035777774                        SA3    A5-3        R1 = LI - 3                                 CCG17     806
                          27736                   PX7    B3,X6                                                   CCG17     807
                               43656              MX6    -R1.SOL                                                 CCG17     808
          2420  20620                             LX6    R1.SOP                                                  CCG17     809
                     15536                        BX5    -X6*X3                                                  CCG17     810
                          12757                   BX7    X5+X7                                                   CCG17     811
                               55771              SA7    A7-B1       TYII(OC.RS,0,SO,RI)                         CCG17     812
          2421  11663                             BX6    X6*X3                                                   CCG17     813
                     54630                        SA6    A3          CLEAR SO FIELD OF *S*                       CCG17     814
                          6155777773              SB5    B5-4                                                    CCG17     815
          2422  0400002335 +                      EQ     IXI5                                                    CCG17     816
                                                                                                                 CCG17     817
                                        *         *IM* WITH AN UNSAFE OPERAND, ADD A *UP* BEFORE                 CCG17     818
                                                                                                                 CCG17     819
          2423                                    PRCS   IM                                                      CCG17     820
          2423  5130000102 X                      SA3    F.RDT+OC.IM                                             CCG17     821
                          6130000102              SB3    OC.IM                                                   CCG17     822
          2424  55351                             SA3    A5-B1       DESCR OF IM                                 CCG17     823
                     76210                        SX2    B1                                                      CCG17     824
                          20233                   LX2    D.USIP                                                  CCG17     825
                               15632              BX6    -X2*X3      CLEAR USI BIT IN *IM*                       CCG17     826
          2425  57651                             SA6    B5-B1                                                   CCG17     827
                     55761                        SA7    A6-B1       R2 = 0                                      CCG17     828
                          73750                   SX7    X5          I = RN[LI]    */ NEW RI                     CCG17     829
          2426  5055777774                        SA5    A5-3        R1 = LI - 3                                 CCG17     830
                          20534                   LX5    -R1.RJP                                                 CCG17     831
                               15250              BX2    -X0*X5      J = RJ[R1]                                  CCG17     832
          2427  20520                             LX5    R1.RJP-R1.RKP                                           CCG17     833
                     15350                        BX3    -X0*X5                                                  CCG17     834
                          53427                   SA4    B7+X2                                                   CCG17     835
                               53537              SA5    B7+X3                                                   CCG17     836
          2430  73440                             SX4    X4          NJ = RN[TB(J)]                              CCG17     837
                     73550                        SX5    X5          NK = RN[TB(K)]                              CCG17     838
                          73370                   SX3    X7                (X3) = I                              CCG17     839
                               55241              SA2    A4-B1       DJ = LJ - 1                                 CCG17     840
          2431  0100002447 +                      CALL   CMO                                                     CCG17     841
          2432  0306002434 +                      ZR     X6,IXI12    IF J IS SAFE                                CCG17     842
                          73240                   SX2    X4          UK = NJ                                     CCG17     843
          2433  7243777773                        SX4    X3-4        NJ = I - 4                                  CCG17     844
                          0400002435 +            EQ     IXI13                                                   CCG17     845
                                                                                                                 CCG17     846
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    97
        IXI - INSERT EXTRA INSTRUCTIONS                               IXI                 SQUEEZE 
  
          2434  73250                    IXI12    SX2    X5          UK = NK                                     CCG17     847
                     7253777773                   SX5    X3-4        NK = I - 4                                  CCG17     848
                                                                                                                 CCG17     849
          2435  27633                    IXI13    PX6    B3,X3                                                   CCG17     850
                     20440                        LX4    R1.RJP                                                  CCG17     851
                          20520                   LX5    R1.RKP                                                  CCG17     852
                               12445              BX4    X4+X5                                                   CCG17     853
          2436  12664                             BX6    X6+X4                                                   CCG17     854
                     55671                        SA6    A7-B1       NEW R1 = TYI(OC.IM,I,NJ,NK)                 CCG17     855
                          6130000026              SB3    OC.UP                                                   CCG17     856
          2437  7253777773                        SX5    X3-4                                                    CCG17     857
                          5143000000 X            SA4    F.RDT+B3                                                CCG17     858
          2440  43600                             MX6    0                                                       CCG17     859
                     55661                        SA6    A6-B1       LINK WD = 0                                 CCG17     860
                          76710                   SX7    B1                                                      CCG17     861
                               12774              BX7    X7+X4                                                   CCG17     862
          2441  55761                             SA7    A6-B1             DESCR + USES                          CCG17     863
                     55671                        SA6    A7-B1       R2 =  0                                     CCG17     864
                          27735                   PX7    B3,X5                                                   CCG17     865
                               20220              LX2    R1.RKP                                                  CCG17     866
          2442  12672                             BX6    X7+X2                                                   CCG17     867
                     55661                        SA6    A6-B1       R1 UP = TYI(OC.UP,I-4,0,UK)                 CCG17     868
                          6155777767              SB5    B5-8        SI = SI - 8                                 CCG17     869
          2443  6166777773                        SB6    B6-4        FI = FI - 4                                 CCG17     870
                          0400002334 +            EQ     IXI4                                                    CCG17     871
                                                                                                                 CCG17     872
                                        *         NO INSTRUCTIONS TO BE MODIFIED, CLEAR LINK WORDS               CCG17     873
                                                                                                                 CCG17     874
          2444  43700                    IXI20    MX7    0                                                       CCG17     875
                     66357                        SB3    B5+B7                                                   CCG17     876
                          6140000004              SB4    4                                                       CCG17     877
                                                                                                                 CCG17     878
          2445  56770                    IXI21    SA7    B7          [LI] = 0                                    CCG17     879
                     66774                        SB7    B7+B4       LI = LI + 4                                 CCG17     880
                          0637002445 +            LE     B7,B3,IXI21                                             CCG17     881
          2446  0400002274 +                      EQ     IXI                                                     CCG17     882
  
  
  
                                        **        CMO - CHECK MULTIPLY ( IM ) OPERAND TO SEE IF IT IS "SAFE"     CCG17     884
                                        *         SO THAT THE *IM* CAN BE MOVED FROM THE SIDE BRANCH OF A LOOP.  CCG17     885
                                        *                                                                        CCG17     886
                                        *         ENTRY  (A2,X2) = D, DESCRIPTOR WORD                            CCG17     887
                                        *                                                                        CCG17     888
                                        *         EXIT   (X6) = 0 IF OPERAND IS SAFE                             CCG17     889
                                        *                                                                        CCG17     890
                                        *         USES   A2, B2, X2, X6, X7                                      CCG17     891
                                                                                                                 CCG17     892
          2447  0200402447 +             CMO      ROUTINE                                                        CCG17     893
          2450  20241                             LX2    59-D.ZPP                                                CCG17     894
                     43601                        MX6    1           CMO = 1S59    */ UNSAFE                     CCG17     895
                          0322002447 +            PL     X2,CMO      IF ^ZP[D]     */ UNKNOWN OPERAND            CCG17     896
          2451  5022777775                        SA2    A2-2        R1 = D - 2                                  CCG17     897
                          26722                   UX7    B2,X2                                                   CCG17     898
                               43600              MX6    0           CMO = 0                                     CCG17     899
          2452  7172777727                        SX7    B2-OC.LD                                                CCG17     900
                          0317002447 +            NZ     X7,CMO      IF OC[R1] " OC.LD */ FMA OR S               CCG17     901
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    98
        IXI - INSERT EXTRA INSTRUCTIONS                               CMO                 SQUEEZE 
  
                                         .VD      IF     -DEF,VD.MATP                                            CCG18     168
                                                  MX6    1                                                       CCG18     169
                                         .VD      ELSE                                                           CCG18     170
          2453  54221                             SA2    A2+B1       R2 = R1 + 1                                 CCG17     902
                     73720                        SX7    X2                                                      CCG17     903
                          5120000000 X            SA2    =XS$VD                                                  CCG18     171
          2454  13627                             BX6    X2-X7       CMO = IH[R2] - VD.                          CCG17     905
                                         .VD      ENDIF                                                          CCG18     172
                     0400002447 +                 EQ     CMO                                                     CCG17     906
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE    99
        IXI - INSERT EXTRA INSTRUCTIONS                               JUMPT               SQUEEZE 
  
                                        **        OPR - DEFINE MACRO TO FORM JUMP TABLE FOR OPCODES              SQZ      2849
                                                                                                                 SQZ      2850
                                                  MACRO  OPR,NAM                                                 SQZ      2851
                                                  IF     -DEF,.NAM,2                                             CCG17     908
                                                  EQ     *+1S17                                                  CCG17     909
                                                  SKIP   9                                                       CCG17     910
                                        *                            SBB OP CODE JUMP                            CCG17     911
                                        +         VFD    12/0400B,18/.NAM                                        CCG17     912
                                        *                            IXI RELATIVE JUMP ADDRESS                   CCG17     913
                                                  IF     DEF,(NAM,2                                              CCG17     914
                                                  VFD    12/1S10+(NAM                                            CCG17     915
                                                  SKIP   1                                                       CCG17     916
                                                  VFD    12/1S10                                                 CCG17     917
                                        *                            SBB JUMP FOR CONSTANT OPERANDS CASE         CCG17     918
                                                  IF     DEF,)NAM,2                                              CCG17     919
                                                  VFD    18/)NAM                                                 CCG17     920
                                                  SKIP   1                                                       CCG17     921
                                                  VFD    18/.NAM                                                 CCG17     922
                                                  ENDM                                                           CCG17     923
                                                                                                                 CCG17     924
                                                                                                                 SQZ      2857
          2455                           SBB.JT   BSS    0                                                       SQZ      2858
      L      0                                    LOC    0                                                       SQZ      2859
      L      0                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
          2564                                    LOC    *O                                                      SQZ      2861
                                                  LIST   -G                                                      SQZ      2862
                                                                                                                 SQZ      2863
                                                  QUAL                                                           SQZ      2864
                                         CMO      EQENT  /SQUEEZE/CMO                                            CCG17     925
                                                                                                                 CCGNC     765
                                                  ECHO   2,Z=(SBB,SIE,SQZB)                                      CCGNC     766
                                                  ENTRY  ;A#                                                     CCGNC     767
                                         ;A#      EQU    /SQUEEZE/;A                                             CCGNC     768
                                                                                                                 CCGNC     769
          2564                                    END                                                            SQZ      2866
  
                             57400B CM  STORAGE USED             7347 STATEMENTS     1393 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            5.444 SECONDS        2076 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ATS$            0   EXTERNAL*       5/34      9/27     86/07     87/07     92/48
        B1=1            0 
        CC$BRN          0   EXTERNAL*       9/07
        CC$OPF          0   EXTERNAL*      69/55
        CC$XR           0   EXTERNAL*      58/18 S   69/05 S
        CMO          2447   PROGRAM*       99/29 E   99/29 D
        D.BMP          52   GTX            57/17
        D.CMP          31   GTX            14/24     14/34     24/56     25/04     31/09     45/43     82/24
        D.FPP          25   GTX            42/13
        D.INCP         22   GTX            30/06
        D.KSL           1   GTX            42/44     42/45
        D.KSP          37   GTX            16/06     42/44     42/45
        D.LDL           1   GTX            42/44
        D.LDP          43   GTX            41/17     41/22     42/44     59/41
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        D.L2P          44   GTX            12/43     41/24     42/11     81/24     93/36
                                           12/45     42/09     80/26     81/26
        D.PIL           1   GTX            42/45
        D.PIP          36   GTX            42/23     42/45     85/31
        D.PRSP         46   GTX            13/10     35/26     47/03     50/32     61/01     82/05     84/56     94/55
                                           18/42     36/08     48/10     50/39     78/25     84/52     91/51
        D.PSP          47   GTX            12/13     19/22     71/03     91/49     94/46
                                           13/10     66/23     80/50     91/51     95/10
        D.RFP          23   GTX            44/06     74/28     77/16
        D.RJRSP        50   GTX            84/50     84/52     85/39     94/05
        D.STP          42   GTX            12/37     43/56     75/12     76/34     78/06     78/33     79/13     92/57
                                           12/43     67/41     76/09     77/23     78/25     78/38     80/26     93/36
        D.STRSL         2   GTX            38/11     40/32     48/13     49/27     51/16     78/32     86/55
        D.STRSP        46   GTX            38/13     41/05     42/09     42/45     49/28     78/33
                                           40/33     41/17     42/23     48/14     49/32     86/56
                                           40/36     41/43     42/44     48/16     51/18
        D.SZL           2   GTX            42/49     42/50
        D.SZP          27   GTX            42/49     45/31
        D.TYL           2   GTX            14/10     42/46     59/15     92/55
        D.TYP          72   GTX            45/04     46/25     59/41     84/56     85/31
        D.USESL        11   GTX            84/22     88/16     88/53     95/14
        D.USESP         0   GTX            84/30     88/32     89/11
        D.USIP         33   GTX            20/19     23/36     24/42     27/25     37/56     92/36
                                           22/39     24/40     24/46     29/45     38/06     96/36
        D.XMTP         40   GTX            12/45     41/22     41/24     42/11     42/13
        D.ZPP          32   GTX            42/47     43/38     46/23     46/25     77/24     97/50
        D.^DP          51   GTX            12/10     12/13     12/34     12/37     84/20     89/15
        F$RDT           0   EXTERNAL*       1/38     66/03     66/20     95/48
        F.RDT           0   EXTERNAL*       1/38 D   35/28     51/15     88/55     96/11     97/12
                                           12/07     35/53     62/31     94/42     96/32
        HC.ID           2   GTX            43/48 F   58/16 F
        HC.RJ6          1   GTX            71/29 F
        HC.ROL          0   GTX             9/06 F    9/39 F
        HO$CSN          0   EXTERNAL*      57/06 S
        HO$OPT          0   EXTERNAL*      42/15
        IH.CAIHL       44   GTX            62/35     63/21     63/30     67/18
        IH.CAL         22   GTX            31/12     81/30
        IH.CAP         22   GTX             6/32     16/19     18/25     61/25     63/17     65/57     72/49     86/50
                                            6/56     16/42     31/16     61/37     64/03     67/50     73/08
                                            7/45     17/01     43/31     61/48     64/20     69/33     81/21
                                            8/06     18/03     47/36     62/06     64/22     69/40     81/34
        IH.IHL         22   GTX            67/34     73/09     76/10
        IH.IHP          0   GTX            73/08     76/30
        IH.LDP         73   GTX            75/09
        IH.RFP         44   GTX            11/05     35/46     45/56     68/05     74/38     76/30     82/53
                                           11/12     43/08     67/23     71/14     74/45     76/43     84/21
                                           18/25     43/19     67/47     71/24     74/53     81/21     93/12
                                           31/17     44/28     67/50     72/21     75/05     81/34     93/22
        ISC=            0   EXTERNAL*      87/08
        IT.             0   EXTERNAL*       1/38 D
        LCM#G           2   PROGRAM*        2/03 E    2/03 L   43/55     77/10
        L$CUT           0   EXTERNAL*       1/38
        L$CVT           0   EXTERNAL*       1/38
        L$MOD           0   EXTERNAL*       1/38
        L$RND           0   EXTERNAL*       1/38
        L$TET           0   EXTERNAL*       1/38
        L$TXT           0   EXTERNAL*       1/38
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        L.CUT           0   EXTERNAL*       1/38 D
        L.CVT           0   EXTERNAL*       1/38 D   87/04 S
        L.HB            0   EXTERNAL*       1/39 D    5/10
        L.HB#           0   EXTERNAL*       1/39
        L.MOD           0   EXTERNAL*       1/38 D    5/09
        L.RND           0   EXTERNAL*       1/38 D   15/29 S
        L.TET           0   EXTERNAL*       1/38 D
        L.TXT           0   EXTERNAL*       1/38 D    5/27     84/13     88/04 S   88/56     92/45
        N.GT            0   EXTERNAL*       1/39 D    6/07      8/36 S
        N.GT#           0   EXTERNAL*       1/39
        N.STMAX         0   EXTERNAL*       3/50 X    3/51
        OC.AND         11   GTX            26/08
        OC.CLR        105   GTX            46/36     55/08
        OC.DEF          5   GTX            58/30     61/31     63/49     64/30     95/41
                                           59/23     62/03     64/12     65/14
        OC.DFM         42   GTX            21/19     51/37
        OC.EQV         17   GTX            22/26
        OC.FA          30   GTX            21/07
        OC.FM          40   GTX            21/06
        OC.FMA         43   GTX            19/17     30/19     47/23     55/16     55/49
        OC.IA          36   GTX            20/50     27/29     30/57     52/31
        OC.IAZ        100   GTX            30/57     52/31
        OC.ILD         75   GTX            78/05
        OC.IM         102   GTX            20/39     38/02     96/32     96/33
        OC.IMP         16   GTX            22/14
        OC.IS          37   GTX            22/43     29/23
        OC.JPX         67   GTX            70/14
        OC.KLS         20   GTX            16/20     18/05
        OC.LAB          6   GTX            70/13
        OC.LD          50   GTX            65/47     78/18     97/56
        OC.LDC        103   GTX            19/19     55/18     56/12     56/15     67/11     84/19     86/10
        OC.OR          12   GTX            26/20
        OC.RFA         34   GTX            21/09
        OC.RJ6         73   GTX            71/30
        OC.RS           4   GTX            12/07     12/11     35/15     35/53     88/55     96/11     96/12
        OC.S           55   GTX            45/25     53/20     53/49     55/14     56/02
        OC.SA          60   GTX            30/42     44/38
        OC.ST          51   GTX            30/32     61/20     62/52     95/48     95/49
        OC.STR         15   GTX            20/09
        OC.STT         52   GTX            31/20     46/02     74/17     82/02
        OC.TST         77   GTX             6/09
        OC.UJP         74   GTX            69/53
        OC.UP          26   GTX            97/10
        OC.XMT         10   GTX            18/35     34/33     38/52     40/16     55/24     94/42
                                           25/16     38/39     39/10     54/37     66/19     94/43
        OC.XMTC        14   GTX            20/56     25/13     38/49     39/07     54/34
        OC.XOR         13   GTX            26/33
        O$CFT           0   EXTERNAL*      69/56
        O$CUT           0   EXTERNAL*       1/38
        O$CVT           0   EXTERNAL*       1/38
        O$MOD           0   EXTERNAL*       1/38
        O$RND           0   EXTERNAL*       1/38
        O$SYM           0   EXTERNAL*       1/38
        O$TET           0   EXTERNAL*       1/38
        O$TXT           0   EXTERNAL*       1/38
        O$UDT           0   EXTERNAL*      79/25
        O.CUT           0   EXTERNAL*       1/38 D
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        O.CVT           0   EXTERNAL*       1/38 D   47/35
        O.MOD           0   EXTERNAL*       1/38 D
        O.RND           0   EXTERNAL*       1/38 D   88/07
        O.SYM           0   EXTERNAL*       1/38 D
        O.TET           0   EXTERNAL*       1/38 D    6/44
        O.TXT           0   EXTERNAL*       1/38 D    5/35      9/32     86/11     88/06     89/47 S   91/27
        RNI#            0   EXTERNAL*      15/27
        RN.MASK    600001   GTX            92/54
        R1.CAL         22   GTX            61/54
        R1.CAP         36   GTX            61/56     73/07
        R1.INP         36   GTX            12/20     45/27     53/23     56/06     57/33     70/25     88/32
                                           13/15     46/57     55/12     56/18     59/19     79/22     88/54
                                           30/18     47/25     55/26     57/04     69/57     85/33     89/11
        R1.OCP         60   GTX            59/39
        R1.RIL         20   GTX             5/36     11/30     11/45     59/43     59/51     88/10
                                           10/47     11/35     24/35     59/44     59/52
        R1.RJP         40   GTX            11/27     21/34     27/34     29/07     33/51     44/41     79/50     95/28
                                           14/22     21/44     27/36     29/28     34/43     45/46     82/13     96/42
                                           14/37     22/15     27/42     29/41     35/36     45/54     82/22     96/44
                                           17/37     22/27     27/48     31/14     36/01     54/35     82/26     97/05
                                           18/14     22/51     27/52     32/04     36/04     55/26     85/06
                                           18/22     24/27     28/03     32/08     37/09     57/56     85/11
                                           19/02     24/32     28/05     32/49     38/38     66/26     85/41
                                           19/05     24/50     28/11     32/55     39/18     69/44     85/44
                                           20/10     24/53     28/16     33/28     40/18     70/48     93/49
                                           20/49     25/19     28/53     33/36     40/21     77/43     93/55
                                           21/12     26/43     28/55     33/39     44/28     77/46     94/13
        R1.RKP         20   GTX            14/19     24/09     27/36     28/19     34/40     77/55     96/44
                                           14/22     24/23     27/42     29/08     34/43     82/26     97/06
                                           14/39     24/27     27/52     29/38     37/06     85/11     97/20
                                           21/12     24/53     28/05     29/40     37/09     93/55
                                           22/49     26/41     28/11     33/51     77/46     94/04
        R1.SOL         16   GTX            53/25     91/28     96/19
        R1.SOP         20   GTX            41/32     50/41     53/28     91/29     94/53
                                           42/28     53/26     57/54     91/55     96/20
        SBB#           75   PROGRAM*       99/33 E   99/33 D
        SIE#            4   PROGRAM*       99/33 E   99/33 D
        SO.LKP          6   GTX            57/54     94/53
        SO.RNL          3   GTX            41/18     42/27     91/54
        SO.RTL          3   GTX            50/40
        SO.RTP          3   GTX            50/41
        SO.TLOCK      100   GTX            53/27
        SQZB#          10   PROGRAM*       99/33 E   99/33 D
        STLDS           0   PROGRAM*        2/01 L    5/25 S   79/03 S
        STLDS#          0   PROGRAM*        2/01 E    2/01 L
        SUVA            1   PROGRAM*        2/02 L   79/20
        SUVA#           1   PROGRAM*        2/02 E    2/02 L
        S$CON           0   EXTERNAL*      86/14
        S$IT            0   EXTERNAL*       1/38
        S$VD            0   EXTERNAL*      98/06
        S=ST            0   EXTERNAL*      61/43     63/16     64/02     65/56
        S=TRACE         0   EXTERNAL*      43/49
        T.CALP         70   GTX             7/07      8/14
        T.EQVP         72   GTX             7/18      7/22
        VD.MATP        73   GTX            98/01 F
        Z$CUT           0   EXTERNAL*      87/07
        Z$CVT           0   EXTERNAL*      86/07
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        Z$RND           0   EXTERNAL*       5/34      9/27
        Z$TXT           0   EXTERNAL*      92/48
        .DAL            1   GTX            12/42 F   42/04 F   74/10 F   78/31 F   93/35 F
                                           41/21 F   43/54 F   77/09 F   81/23 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  SQUEEZE 
  
  
        ARF          2112   PROGRAM*       43/14     75/02     81/41     81/42     81/44 L   82/09     82/16     83/02
        ARFA         2077   PROGRAM*       43/07     74/52     81/11 L   81/37
        ARFAIL       2100   PROGRAM*       45/40     81/12 L   81/47 S   82/57 S
        ARF0         2102   PROGRAM*       81/17 L   82/48
        ARF1         2101   PROGRAM*       81/14 L   81/51
        ARF2         2123   PROGRAM*       81/55     82/03     82/06     82/11 L
        ARF3         2125   PROGRAM*       81/53     82/20 L
        ARF4         2132   PROGRAM*       82/30     82/39 L
        ARF5         2133   PROGRAM*       82/37     82/44 L
        ARF7         2135   PROGRAM*       81/19     81/27     82/32     82/52 L
        AUC.RJ        232   PROGRAM*       16/07     18/44     38/43     46/12     58/09     70/56
                                           17/37 L   33/52     44/29     58/01     70/51
        BDU          1553   PROGRAM*       64/10     64/25     65/29 L   65/37
        BIAS            3   PROGRAM*        3/27 L    5/29 S   15/25
        CAO           377   PROGRAM*       20/11     22/16     22/28     24/22 L
        CAO1          401   PROGRAM*       24/25     24/29 L
        CAO2          404   PROGRAM*       24/39 L   29/10
        CAO3          413   PROGRAM*       24/57     25/04 L
        CAS            20   CCGSCR          3/47 L   61/27 S   61/50 S   63/13 S   64/40
                                           61/17 S   61/39 S   62/08 S   63/54 S   65/05
        CCV          1274   PROGRAM*       16/32     19/23     52/15     53/01     53/45
                                           19/20     47/43     52/28     53/05     55/42 L
        CCV1         1300   PROGRAM*       55/42     55/48     55/55 L
        CCV2         1303   PROGRAM*       55/51     56/06 L
        CCV3         1305   PROGRAM*       56/01     56/12 L
        CIA           517   PROGRAM*       23/09     28/35     30/05 L
        CIA1          522   PROGRAM*       30/11     30/15 L
        CIA2          525   PROGRAM*       30/21     30/26 L
        CIA2A         533   PROGRAM*       30/07     30/45 L
        CIA3          534   PROGRAM*       30/30     30/33     30/39     30/47 L
        CIA4          536   PROGRAM*       30/22     30/56 L
        CIA5          541   PROGRAM*       30/43     31/06 L
        CMO          2447   PROGRAM*       96/52     97/49 L   97/52     97/57     98/09     99/29
        CRJC            4   CCGSCR          3/34 L   71/43     72/10
        CTI           715   PROGRAM*       18/40     38/42     40/08 L   41/55
        CTIA          767   PROGRAM*       42/02     42/44 L
        CTIB          770   PROGRAM*       41/13     42/45 L
        CTIC          771   PROGRAM*       41/42     42/46 L
        CTI0          716   PROGRAM*       40/12 L   40/26
        CTI1          723   PROGRAM*       40/13     40/30 L
        CTI2          726   PROGRAM*       40/40     40/42 L
        CTI3          731   PROGRAM*       40/42     40/52 L   41/19     41/25     41/37     42/24     42/33
        CTI4          735   PROGRAM*       40/44     41/13 L
        CTI4A         742   PROGRAM*       41/23     41/27 L
        CTI5          745   PROGRAM*       40/45     40/48     41/16     41/42 L   42/10     42/12     42/16     42/31
        CTI6          752   PROGRAM*       40/47     42/02 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   104
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        CTI7          760   PROGRAM*       42/07     42/14     42/20 L
        CTI8          764   PROGRAM*       41/45     42/37 L
        C.XMT         711   PROGRAM*       20/06     22/11     22/34     26/07     39/10 L
                                           22/08     22/23     23/39     27/16
        C.XMTC        710   PROGRAM*       26/19     26/30     27/18     39/07 L
        C.XMT1        712   PROGRAM*       39/01     39/08     39/11 L
        C.XMT2        713   PROGRAM*       34/34     39/13     39/16 L
        DCV          1247   PROGRAM*       16/15     20/37     31/07     53/16     54/14     54/51     81/15
                                           19/14     22/02     45/18     54/10     54/31 L   72/46     82/46
        DCV0         1246   PROGRAM*       54/29 L   54/38
        DCV1         1250   PROGRAM*       54/33 L   54/43
        DCV2         1254   PROGRAM*       54/36     54/45 L
        DFM           275   PROGRAM*       20/20     20/24 L
        DFM1          300   PROGRAM*       20/30     20/35 L
        DFM2          307   PROGRAM*       20/56 L   21/47
        DFM3          313   PROGRAM*       20/51     21/08     21/11 L
        DFM4          311   PROGRAM*       21/06 L   21/35
        ECJ          1733   PROGRAM*       69/54     71/35     72/43 L   73/17
        ECJ1         1737   PROGRAM*       72/52     72/54 L
        ECJ2         1747   PROGRAM*       72/57     72/57     72/57     72/57     73/04 L
                                           72/57     72/57     72/57     72/57
        ECJ3         1732   PROGRAM*       72/38 L   72/57     72/57     72/57     72/57
                                           72/57     72/57     72/57     72/57
        ECOA         1205   PROGRAM*       51/40     52/17 L
        ECOB         1223   PROGRAM*       52/47     53/03 L
        ECOC         1240   PROGRAM*       53/09     53/47 L
        ECO1         1166   PROGRAM*       51/40 L
        ECO1A        1200   PROGRAM*       51/56     52/06 L
        ECO2         1202   PROGRAM*       51/44 S   52/04     52/07     52/11 L
        ECO3         1217   PROGRAM*       52/35     52/39     52/43     52/47 L
        ECO3A        1222   PROGRAM*       52/53 S   52/56 L
        ECO4         1224   PROGRAM*       32/27     33/09     53/09 L
        ECO4A        1227   PROGRAM*       53/13 S   53/18 L
        ECO.AND      1213   PROGRAM*       52/21     52/34 L
        ECO.NR       1216   PROGRAM*       32/26     52/45 L
        EDD          2141   PROGRAM*       15/18     84/08 L
        EDDA         2174   PROGRAM*       84/05     84/12 S   85/48 L   89/44
        EDD0         2140   PROGRAM*       84/05 L   84/41
        EDD1         2150   PROGRAM*       84/30 L   84/45
        EDD2         2151   PROGRAM*       84/26     84/38     84/51     85/21     85/32     85/46
                                           84/36 L   84/42     85/16     85/27     85/34
        EDD2A        2157   PROGRAM*       84/54     84/56 L
        EDD3         2164   PROGRAM*       85/02     85/20 L
        EDD4         2167   PROGRAM*       85/01     85/31 L
        EDI          2225   PROGRAM*       15/23     88/05 L
        EDI0         2224   PROGRAM*       88/03 L   89/50     90/23
        EDI1         2235   PROGRAM*       88/27 L   88/47
        EDI1A        2242   PROGRAM*       88/37     88/46 L
        EDI2         2250   PROGRAM*       89/07 L   89/31
        EDI2A        2253   PROGRAM*       89/13     89/17 L
        EDI3         2256   PROGRAM*       89/05     89/28 L   89/30     89/42
        EDI3A        2257   PROGRAM*       89/26     89/31 L
        EDI4         2265   PROGRAM*       88/19     90/03 L
        EDI5         2266   PROGRAM*       90/06 L   90/08     90/20
        EFS          2063   PROGRAM*       79/10     80/02     80/15 L   80/21     80/27     80/43     80/53
        EFS1         2071   PROGRAM*       80/35 L   80/46
        EFS2         2074   PROGRAM*       80/37     80/44 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   105
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        EQV1          431   PROGRAM*       26/09     26/21     26/37 L
        FAC             6   CCGSCR          3/36 L   58/02     58/41     60/11     60/42
        FACS           17   CCGSCR          3/46 L   58/56 S   60/32
        FA1           376   PROGRAM*       22/36     23/26     23/47     23/56     24/08 L
        FMA          1067   PROGRAM*       46/55 L   47/27     56/10
        FMA0         1072   PROGRAM*       47/01     47/07 L
        FMA1         1075   PROGRAM*       46/50     47/13     47/16 L
        FMA60        1077   PROGRAM*       26/15     26/17     26/27     47/23 L
        FM1           316   PROGRAM*       20/40     21/19 L
        FM2           321   PROGRAM*       21/20     21/26 L
        FM3           324   PROGRAM*       21/38 L   22/04
        F.XMT         705   PROGRAM*       23/53     27/05     38/52 L
        F.XMTC        704   PROGRAM*       27/07     38/49 L
        F.XMT1        706   PROGRAM*       38/50     38/53 L
        GCV          1241   PROGRAM*       51/45     52/24     52/54     54/07 L   54/15
        GIV          1261   PROGRAM*       54/29     54/49     55/02     55/05 L   55/10     55/11     55/15     55/22
        GIV0         1257   PROGRAM*       55/01 L   55/17
        GIV1         1262   PROGRAM*       55/07 L   55/31
        GIV2         1271   PROGRAM*       55/19     55/24 L
        GTL          1557   PROGRAM*       64/45     65/10     65/46 L   66/08
        GTLC         1567   PROGRAM*       64/44 S   65/09 S   65/53     66/09 L
        GXI          1570   PROGRAM*       64/48     65/20     66/18 L   66/43
        IAZ1          364   PROGRAM*       23/23     23/28 L
        IAZ2          365   PROGRAM*       23/30     23/33 L
        IA1           356   PROGRAM*       22/40     22/46     22/52     23/07 L
        IFT          2406   PROGRAM*       95/38     95/44     95/47 L   96/06
        IRCH          613   PROGRAM*       32/03     34/31     34/39 L
        IRCH1         617   PROGRAM*       34/51     34/54 L
        IRCH2         620   PROGRAM*       35/02 L   35/05     35/08
        IRCH2A        624   PROGRAM*       35/13 L   35/16
        IRCH3         636   PROGRAM*       35/32     35/45 L
        IRCH4         640   PROGRAM*       35/34     35/43     35/53 L
        IRCH5         646   PROGRAM*       35/21     35/25     36/19 L
        ISZ1          513   PROGRAM*       29/32     29/38 L
        IS1           452   PROGRAM*       27/32     27/47 L
        IS1A          451   PROGRAM*       27/38     27/44 L
        IS2           455   PROGRAM*       27/47     27/55 L
        IS3           462   PROGRAM*       28/02     28/14 L
        IS3A          465   PROGRAM*       27/45     28/22 L
        IS4           472   PROGRAM*       27/26     27/41     27/51     28/10     28/14     28/18     28/30     28/33 L
        IXF            11   CCGSCR          3/40 L   13/41 S   20/22 S   53/44 S   64/08 S   87/02 S   91/17
        IXI          2274   PROGRAM*       15/32     91/16 L   91/18     94/25     97/36
        IXI1         2302   PROGRAM*       91/38 L   91/48     92/04     92/16     92/22     92/31     92/35     92/42
                                           91/46     91/52     92/14     92/18     92/25     92/33     92/37     92/44
        IXI1A        2312   PROGRAM*       91/50     92/06 L
        IXI10        2372   PROGRAM*       94/47     95/08 L
        IXI11        2375   PROGRAM*       95/06     95/21 L
        IXI12        2434   PROGRAM*       96/53     97/01 L
        IXI13        2435   PROGRAM*       96/56     97/04 L
        IXI2         2313   PROGRAM*       92/08 L   92/20
        IXI20        2444   PROGRAM*       92/52     97/29 L
        IXI21        2445   PROGRAM*       97/33 L   97/35
        IXI4         2334   PROGRAM*       93/04 L   94/22     97/25
        IXI5         2335   PROGRAM*       93/08 L   95/32     95/42     95/45     96/27
        IXI6         2341   PROGRAM*       93/16     93/24 L
        IXI7         2347   PROGRAM*       93/28     93/34     93/37     93/45 L
        IXI8         2356   PROGRAM*       93/47     94/06     94/16 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   106
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        IXI9         2361   PROGRAM*       93/06     94/35 L   94/37     94/41     95/36     96/10     96/31
        I.CAL          22                   2/25 D
        I.CAP          22                   2/25 D   47/41     86/29
        I.ICL          22                   2/23 D
        I.ICP           0                   2/23 D
        I.JPP          73                   2/19 D
        I.RSL          22                   2/21 D
        I.RSP          44                   2/21 D   50/19     57/39
        I.STCL         22                   2/22 D    2/25
        I.STCP         22                   2/22 D    2/25      6/25     13/04     80/44
        I.XMT         415   PROGRAM*       22/56     23/05     25/16 L   28/23     28/29     28/31
        I.XMTC        414   PROGRAM*       25/13 L   27/53     28/07     28/12
        I.XMT1        416   PROGRAM*       25/14     25/17 L
        JPXA           15   CCGSCR          3/44 L   13/40 S   23/02     28/26     70/49 S   78/13     79/05
        JPX1         1654   PROGRAM*       69/28     69/35     69/37     69/48 L
        JPX2         1664   PROGRAM*       70/02     70/13 L
        JPX3         1666   PROGRAM*       70/19 L   70/31
        JPX4         1673   PROGRAM*       70/23     70/24     70/27     70/30 L
        JPX5         1674   PROGRAM*       70/21     70/22     70/33 L
        JPX6         1701   PROGRAM*       69/19     69/52     70/46 L
        KLS1          241   PROGRAM*       18/06     18/11 L
        KLS2          245   PROGRAM*       18/07     18/09     18/25 L
        LDCC           10   CCGSCR          3/38 L   47/48     48/47
        LDCN           12   CCGSCR          3/41 L   13/44 S   47/51     48/53     86/04
        LDC1         1105   PROGRAM*       47/48 L   56/13     56/22
        LDC2         1107   PROGRAM*       47/55 L   48/03     48/04
        LDC3         1117   PROGRAM*       48/12     48/17     48/30 L
        LDC4         1122   PROGRAM*       47/56     48/41 L
        LD1          1772   PROGRAM*       75/01     75/04 L
        L.OCL          14                  91/02 D
        L.OCP          60                  91/02 D
        L.RNL          22                  91/05 D
        L.RNP           0                  91/05 D
        L.RSTL         22                  91/04 D
        L.RSTP         22                  91/04 D   91/24     92/10     93/43     95/23     95/25
        L.STUL         14                  91/03 D
        L.STUP         44                  91/03 D   93/40     95/05     95/13     95/23
        MIC             3   CCGSCR          3/33 L   43/24     49/09     49/51
        MMR          1600   PROGRAM*       59/26     67/06 L   67/16     68/11     68/15     68/17
        MMRA         1631   PROGRAM*       67/21 S   68/07     68/19 L
        MMR1         1605   PROGRAM*       67/12     67/18 L
        MMR2         1612   PROGRAM*       67/35 L   67/42     67/46     67/53     68/03
        MMR3         1621   PROGRAM*       67/35     67/55 L
        MMR4         1624   PROGRAM*       67/39     67/55     68/05 L
        MMR5         1627   PROGRAM*       68/10     68/14 L
        MRC             2   CCGSCR          3/32 L   13/38 S   60/19 S   67/31     69/12 S   76/08
                                            3/39     60/12     64/51     69/08 S   70/46     76/41
        MSL1          156   PROGRAM*       14/08 L   36/17     48/26     57/18     69/09     70/35     71/38     77/53
                                           17/21     36/27     48/52     57/24     69/18     70/38     72/06     78/44
                                           17/44     37/44     48/56     57/34     70/04     70/42     72/25     79/55
                                           18/31     38/20     50/12     57/55     70/06     70/44     77/22
                                           25/02     41/07     57/11     60/22     70/09     71/06     77/27
                                           33/49     47/16     57/15     65/23     70/34     71/36     77/39
        MSL2          164   PROGRAM*       14/26     14/29     14/33 L
        MSL3          172   PROGRAM*       14/15     14/45     15/07 L
        M.STK          50                   3/48 D    3/49
        NR0           560   PROGRAM*       32/24     32/29 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   107
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        NR1           564   PROGRAM*       32/30     32/42 L
        N.CHAIN         7                   3/39 D
        P.IM           42                  92/39     96/31 D
        P.RS           34                  92/19     96/10 D
        P.ST           20                  92/26     95/36 D
        P.XMT           1                  92/06     94/41 D
        RJCA         1633   PROGRAM*       58/20 S   62/01 S   62/12 S   63/09 S   63/10 S   64/42     65/07     68/20 L
        RJXJ1        1717   PROGRAM*       71/27     71/42 L
        RJXJ2        1721   PROGRAM*       71/49 L   71/54     71/57
        RJXJ3        1725   PROGRAM*       71/51     72/10 L
        RJ1          1335   PROGRAM*       58/23 L   58/31     58/33     60/07
        RJ10         1412   PROGRAM*       60/47 L   61/09
        RJ11         1417   PROGRAM*       61/05     61/07 L
        RJ12         1421   PROGRAM*       61/10     61/13 L
        RJ12A        1427   PROGRAM*       61/28     61/30 L
        RJ13         1433   PROGRAM*       61/23     61/42 L
        RJ13A        1447   PROGRAM*       61/34     61/40     62/04     62/18 L
        RJ13B        1454   PROGRAM*       62/22     62/35 L   63/44
        RJ13C        1456   PROGRAM*       62/43 L   62/46     62/53     62/55     63/01
        RJ13D        1464   PROGRAM*       62/49     63/03 L
        RJ13E        1473   PROGRAM*       63/23 L   63/26     63/35
        RJ13E1       1472   PROGRAM*       63/21 L   63/28
        RJ13X        1500   PROGRAM*       63/04     63/37 L
        RJ14         1503   PROGRAM*       61/47     63/47 L
        RJ15         1504   PROGRAM*       61/42     63/49 L
        RJ16         1506   PROGRAM*       63/50     63/52 L
        RJ17         1516   PROGRAM*       64/15 L   64/18
        RJ18         1522   PROGRAM*       63/38     64/11     64/29 L
        RJ19         1525   PROGRAM*       64/32     64/37 L
        RJ19A        1540   PROGRAM*       64/52     64/56     65/04 L
        RJ2          1345   PROGRAM*       58/48 L   60/38
        RJ20         1552   PROGRAM*       64/50     65/22 L
        RJ3          1351   PROGRAM*       59/05 L   59/27     59/35     59/55
        RJ3A         1361   PROGRAM*       59/21     59/26 L   59/42
        RJ3C            7   CCGSCR          3/37 L   58/21     60/13     67/32
        RJ3T           16   CCGSCR          3/45 L   58/36 S   60/04     61/13     62/18 S   63/42
        RJ4          1363   PROGRAM*       59/25     59/31 L   59/57     60/28
        RJ5          1365   PROGRAM*       59/18     59/39 L
        RJ6          1374   PROGRAM*       59/20     59/40     60/04 L   67/13     67/20     67/52
                                           59/24     59/56     60/27     67/14     67/49     68/12
        RJ7          1376   PROGRAM*       58/23     60/11 L   64/35
        RJ8          1404   PROGRAM*       59/05     59/06     60/26 L
        RJ9          1410   PROGRAM*       60/33     60/42 L
        RNBT            0   CCGSCR          3/30 L
        RN.CIAL         3                   3/20 D
        RN.CIAP        70                   3/20 D
        RN.CP          72                   3/05 D   16/21     20/29     28/34     41/51     48/43     81/49
                                            3/19     16/36     20/32     30/04 D   45/15     69/51     81/52
                                           14/44     19/09     21/55     32/23     45/38     71/26     82/29
                                           16/08     19/29     21/57     32/31     45/49     72/44     82/34
                                           16/13     20/26     23/07     33/08     47/09     81/11     82/39
        RN.CZL          2                   3/19 D   46/45
        RN.CZP         72                   3/19 D
        RN.FMAP        62                   3/13 D
        RN.IACIL        2                   3/21 D
        RN.IACIP       67                   3/21 D   23/21     23/24     29/34
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   108
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        RN.IACP        70                   3/07 D   29/31     38/31     81/11     81/54
                                            3/20     30/27     45/38     81/52
        RN.INCP        67                   3/08 D   22/55     28/37     30/45     38/29
                                            3/21     28/22     28/44     38/26     38/31
        RN.NRP         63                   3/12 D   24/03     32/33     32/37     38/55     40/54
        RN.PZP         64                   3/11 D   21/52     32/14     32/31     32/33
        RN.RNL         22                   3/17 D
        RN.RNP          0                   3/17 D
        RN.SAP         71                   3/06 D   46/09     81/11
        RN.TPL         22                   3/16 D
        RN.TPP         22                   3/16 D   19/16     27/31     33/10     40/30     55/29     72/44     81/50
                                           12/27     20/35     27/55     34/46     40/38     57/36     74/12     82/08
                                           12/53     21/57     27/57     34/49     43/42     59/08     74/25     82/34
                                           13/28     22/41     28/50     35/19     45/12     59/11     74/30     82/42
                                           16/13     22/45     29/21     36/11     53/14     60/55     74/36     88/22
                                           16/21     23/33     29/31     37/12     54/08     65/49     75/07     88/38
                                           16/36     24/30     30/15     37/15     54/11     66/37     77/05
                                           18/57     26/39     30/36     37/36     54/41     69/42     79/48
                                           19/12     27/27     32/45     40/14     54/47     71/46     80/28
        RN.USESL       12                   3/15 D   35/18
        RN.USESP       44                   3/15 D   13/34     18/28     35/49     36/21     62/28     76/50     84/23
                                            7/22     17/41     35/19     36/08     37/38     65/34     77/24     84/25
                                            7/38     18/18     35/40     36/19     60/44     72/18     80/22     84/30
        RN.XMTCP       65                   3/10 D   19/29     22/24     23/24     24/24     28/48     69/42
                                           18/52     20/07     22/35     23/46     26/37     28/50
                                           19/27     22/12     23/07     23/54     26/39     69/27
        RN.XMTP        66                   3/09 D   40/12     40/30     41/51     79/46     81/11
                                           38/35     40/14     41/49     66/40     79/48     81/54
        RN.ZP          73                   3/04 D   21/52     22/24     23/33     23/54
                                           20/07     22/12     22/35     23/46     26/37
        RSS            13   CCGSCR          3/42 L   13/39 S   57/41     61/11 S   88/13
        RS1          1325   PROGRAM*       57/43     57/53 L
        SAA0         1057   PROGRAM*       45/09     46/22 L
        SA0          1035   PROGRAM*       43/35     44/36     45/23 L
        SA1          1042   PROGRAM*       45/16     45/38 L
        SA2          1047   PROGRAM*       45/44     45/54 L
        SA5          1053   PROGRAM*       46/08 L   46/15
        SA.JT        1055   PROGRAM*       45/03     46/14 L
        SBB            75   PROGRAM*        5/32 S    9/05 L   15/33     99/33
        SBB1          103   PROGRAM*       10/54 L   11/20
        SBB1A         105   PROGRAM*       10/55     11/04 L
        SBB10         142   PROGRAM*       13/13 L   13/23
        SBB11         146   PROGRAM*       13/09     13/27 L
        SBB2          110   PROGRAM*       10/50     11/08     11/15 L   11/40     11/43
        SBB3          113   PROGRAM*       11/29 L   11/37
        SBB4          115   PROGRAM*       11/32     11/35 L
        SBB5          117   PROGRAM*       11/21     11/42 L
        SBB5A         120   PROGRAM*        5/40     12/06 L
        SBB6          124   PROGRAM*       12/18 L   12/39
        SBB7          126   PROGRAM*       12/26 L   12/36
        SBB8          127   PROGRAM*       12/16     12/22     12/31 L   12/40     12/46     13/02
        SBB8A         135   PROGRAM*       12/44     12/48 L
        SBB9          140   PROGRAM*       12/38     13/04 L
        SBB.JT       2455   PROGRAM*        5/33 S   14/50     25/05     39/21     91/41
                                            8/39 S   15/09     25/21     42/42     99/22 L
        SIE             4   PROGRAM*        5/07 L    5/08     99/33
        SLD1         1764   PROGRAM*       74/18     74/20     74/38 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   109
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        SMI          1127   PROGRAM*       45/05     45/39     45/41     45/50     46/29     46/51     47/14     49/09 L
        SMI1         1130   PROGRAM*       46/17     47/17     49/14 L   49/20
        SMI2         1133   PROGRAM*       44/26     49/25 L
        SMI3         1136   PROGRAM*       49/34     49/36 L
        SMI3A        1141   PROGRAM*       49/43 L   50/44
        SMI4         1142   PROGRAM*       49/46 L   50/23
        SMI5         1143   PROGRAM*       44/12     49/14     49/46     49/51 L
        SMI6         1145   PROGRAM*       49/36     49/41     50/03 L   50/27     50/43
        SMI7         1150   PROGRAM*       49/38     50/16 L
        SMI8         1154   PROGRAM*       49/39     50/32 L
        SMI9         1156   PROGRAM*       50/34     50/39 L
        SMR          1775   PROGRAM*       74/07     74/47     75/10     76/08 L
        SMR1         1776   PROGRAM*       76/16 L   76/29     76/33     76/36
        SMR10        2045   PROGRAM*       78/26     78/35     79/04     79/08     79/12 L
        SMR10A       2053   PROGRAM*       79/21     79/24     79/35 L
        SMR11        2054   PROGRAM*       78/07     79/40 L
        SMR12        2061   PROGRAM*       79/40     80/02 L
        SMR2         2004   PROGRAM*       75/13     76/18     76/21     76/41 L   79/47     79/53     80/03
        SMR3         2014   PROGRAM*       77/07     77/12     77/20 L
        SMR4         2017   PROGRAM*       77/20     77/31 L   77/56
        SMR5         2022   PROGRAM*       76/51     77/43 L
        SMR7         2026   PROGRAM*       76/23     78/03 L
        SMR8         2035   PROGRAM*       78/12     78/16     78/19     78/24 L
        SMR9         2042   PROGRAM*       78/08     79/03 L
        SQZB           10   PROGRAM*        5/22 L    5/23     99/33
        SQZBA          22   PROGRAM*        5/28      5/42 L    8/34
        SQZB1          13   PROGRAM*        5/14      5/27 L
        SRCH          651   PROGRAM*       18/43     21/15     23/08     26/38     30/52     37/05 L   52/01
                                           19/33     21/24     23/20     28/49     31/02     45/07     52/03
                                           20/08     21/46     23/25     29/25     32/10     51/47     52/09
                                           20/27     21/56     23/48     29/27     32/17     51/48     52/13
                                           20/43     22/13     23/57     29/36     32/40     51/49     52/14
                                           20/46     22/25     24/06     29/49     32/48     51/50
        SRCH1         655   PROGRAM*       37/17     37/19 L
        SRCH2         656   PROGRAM*       37/24 L   37/27     37/30
        SRCH3         664   PROGRAM*       35/10     37/32     37/51 L
        SRCH4         671   PROGRAM*       32/35     33/02     37/57     38/03     38/11 L
        SRCH5         674   PROGRAM*       38/16     38/25 L
        SRCH5A        677   PROGRAM*       38/27     38/35 L
        SRCH6         700   PROGRAM*       38/38 L   48/37     79/36
        STBASE          0   EXTERNAL*       3/51 D   63/11     63/52
        STC            14   CCGSCR          3/43 L    6/08     13/05 S   80/30
        STK            21   CCGSCR          3/49 L   58/44 S   59/32     59/49 S
        STS            24   PROGRAM*        5/46      6/07 L
        STS0           71   PROGRAM*        7/39      8/33 L
        STS1           30   PROGRAM*        6/19 L    6/37
        STS10          63   PROGRAM*        7/55      8/11 L
        STS11          70   PROGRAM*        8/19      8/29 L
        STS2           31   PROGRAM*        6/15      6/23 L    6/30      6/42
        STS3           37   PROGRAM*        6/24      6/44 L
        STS4           41   PROGRAM*        6/52 L    7/33
        STS5           52   PROGRAM*        7/01      7/09      7/13      7/29 L
        STS6           53   PROGRAM*        7/27      7/31 L
        STS7           54   PROGRAM*        6/47      7/37 L
        STS8           55   PROGRAM*        7/41 L    8/31
        STS9           61   PROGRAM*        7/46      8/02 L
        STT0          775   PROGRAM*       43/13     43/16 L
1       SQZ - REDUNDANT OPERATION ELIMINATION                         COMPASS 3.7-871.     24/05/02. 13.13.00.      PAGE   110
        SYMBOLIC REFERENCE TABLE.                                     SQUEEZE 
  
        STT1         1003   PROGRAM*       43/26     43/27     43/37 L
        STT2         1004   PROGRAM*       43/25     43/42 L
        STT3         1013   PROGRAM*       43/46     43/51     44/01     44/12 L   44/17     44/23     44/30
        STT4         1020   PROGRAM*       43/23     44/28 L
        STT5         1022   PROGRAM*       43/16     44/34 L
        SUB           476   PROGRAM*       26/54     27/09     28/38     28/48 L
        SUB1          501   PROGRAM*       26/45     29/01 L
        SUB2          503   PROGRAM*       29/02     29/07 L
        SXTC            5   CCGSCR          3/35 L   16/34     17/25
        SXT0          214   PROGRAM*       16/09     16/34 L
        SXT1          220   PROGRAM*       16/50 L   16/56     17/07
        SXT2          221   PROGRAM*       16/45     16/53 L
        SXT3          230   PROGRAM*       16/52     17/25 L
        SXT4          231   PROGRAM*       16/35     17/28 L
        UCT          2175   PROGRAM*       15/20     86/03 L   86/05     87/06     87/09
        UCT1         2203   PROGRAM*       86/20 L   86/21     86/25     86/53
        UCT2         2210   PROGRAM*       86/40 L   86/43     86/44
        UCT3         2213   PROGRAM*       86/31     86/47     86/50 L
        UCT4         2215   PROGRAM*       86/24     86/55 L
        UCT5         2217   PROGRAM*       87/01     87/03 L
        UPA           607   PROGRAM*       33/14     33/54 L
        UP1           574   PROGRAM*       33/17 L   33/20
        UP2           603   PROGRAM*       33/27     33/41 L
        UP4           606   PROGRAM*       32/43     32/53     33/23     33/30     33/51 L
        URI          1160   PROGRAM*       18/36     24/44     31/01     39/19     45/28     47/26     53/37     73/14
                                           20/57     25/20     31/22     42/41     46/03     51/14 L   56/07
                                           21/14     29/43     38/41     44/43     46/39     51/27     56/19
        XMT           250   PROGRAM*       18/39 L
        XMTC          253   PROGRAM*       18/50 L   21/01
        XMTC1         256   PROGRAM*       18/53     19/08 L
        XMTC2         264   PROGRAM*       19/10     19/18     19/25 L
        XMT0          247   PROGRAM*       18/23     18/35 L   19/06     20/52     21/45
        ZERO         1062   PROGRAM*       20/04     21/28     22/20     26/05     27/03     34/29     55/55
                                           20/38     21/51     23/45     26/53     27/14     46/36 L
                                           21/23     21/53     26/04     26/55     32/32     47/04
        (DEF           15                  92/22 D
        (EOQ           24                   5/45      5/47     92/44 D
        (IM            21                  92/35 D
        (LDC            3                  91/48 D
        (S             13                  92/16 D
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2751              IDENT  MCG
                       2751                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2750 
                                        LITERALS* LOCAL        2750         1 
                                        MCG       COMMON          0       217 
                                        CCGSCR    COMMON          0       100 
  
  
                                        ENTRY POINTS. 
  
                                        B=MCG            0+           REG=A0           3+           MCG#            20+ 
                                        TYIOM#           0+           PC#            127+/MCG/
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$OTI     L$PIT     O$TXT     S$IT      S$OT      Z$TREE    BDT#      N$OT
                                        L$OTI     O$TREE    L$TXT     O$SYM     Z$OTI     ATS$      RIO#      HO$ER 
                                        O$PIT     L$TREE    F$RDT     Z$PIT     MVE=      Z$TXT     HO$OPT    CC$PC 
  
  
  
  
                                                  IDENT  MCG                                                     MCG         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=MCG    RPVDEF                                                         MCG         6
                                                                                                                 MCG         7
                                                  TABLES (OTI,PIT,TREE,TXT)                                      CCGNC     770
                                                                                                                 MCG        11
                                         INCT     MICRO  .CPU-71,1,/11411/ INCREMENT UNIT TIME                   MCG        12
  
  
  
                                        **        MCG - MACHINE CODE GENERATOR - SCHEDULING AND LOCAL REGISTER   MCG        14
                                        *         ASSIGNMENT.                                                    MCG        15
                                        *                                                                        MCG        16
                                        *         S.I. JASIK - MARCH 73                                          MCG        17
                                        *                                                                        MCG        18
                                        *         *MCG* ORDERS THE INSTRUCTIONS IN THE CODE SEQUENCE SUBJECT TO  MCG        19
                                        *         THE CONSTRAINTS OF THE PARTIAL ORDER IMPOSED ON IT BY *BDT*,   MCG        20
                                        *         WHICH ARE -                                                    MCG        21
                                        *          1) DATA INTERFERENCE DEPENDENCIES ( LD/ST INTERFERENCE )      MCG        22
                                        *          2) OPERAND DEPENDENCIES                                       MCG        23
                                        *          3) BOUNDARY MARKER DEPENDENCIES  ( AN INSTRUCTION MUST BE     MCG        24
                                        *         LINKED TO THE NODES OF THE BOUNDARIES OF THE BASIC BLOCK THAT  MCG        25
                                        *         IT BELONGS TO ).                                               MCG        26
                                        *          4) EXPLICIT USE OF SPECIFIC RESOURCES ( REGISTERS ).          MCG        27
                                        *            I.E. THE REUSE/REDEFINITION OF A REGISTER MAY NOT OCCUR     MCG        28
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     2
                                                                      MCG 
  
                                        *         UNTIL ALL USES OF THE FIRST DEFINITION HAVE BEEN EXHAUSTED.    MCG        29
                                        *                                                                        MCG        30
                                        *         THE RESULTANT NETWORK/DEPENDENCY GRAPH ( NOT A TREE ) IS       MCG        31
                                        *         EXPRESSED AS A SUCCESSOR INDEX TABLE, SORTED BY PREDECESSOR,   MCG        32
                                        *         LATE START TIME, AND SUCCESSOR ORDINAL, AND A COUNT OF THE     MCG        33
                                        *         NUMBER OF PREDECESSORS OF EACH INSTRUCTION.                    MCG        34
                                        *         THE PRED COUNT, INDEX TO *SIT*, ETC ARE KEPT IN THE LINK WORD  MCG        35
                                        *         OF AN *IL* INSTRUCTION (R1+3 ) IN "I." FORMAT.                 MCG        36
                                        *         THE ISSUE ( REMOVAL ) OF AN INSTRUCTION FROM THE NETWORK       MCG        37
                                        *         REDUCES THE COUNT OF REMAINING PREDECESSORS ( CONSTRAINTS )    MCG        38
                                        *         ON THE SUCCESSORS OF THE ISSUED INSTRUCTION.                   MCG        39
                                        *         WHEN THE PRED COUNT BECOMES ZERO THE INSTRUCTION IS ADDED TO   MCG        40
                                        *         THE ISSUE CANDIDATE LIST, AND EVENTUALLY ISSUED.               MCG        41
                                        *         ALSO CALCULATED IN *BDT*, IS THE LATE START TIME, WHICH IS     MCG        42
                                        *         THE LATEST TIME AT WHICH THE INSTRUCTION CAN BE ISSUED WITHOUT MCG        43
                                        *         INCREASING THE TOTAL TIME ( *SEQTIME* ) IT TAKES TO GET TO     MCG        44
                                        *         THE *EOQ*.                                                     MCG        45
                                        *                                                                        MCG        46
                                        *         TO GENERATE CODE FOR A SEQUENTIAL MACHINE ( I.E. CPU @ 6400 )  MCG        47
                                        *         IT IS SUFFICIENT TO CONSIDER ONLY THE REGISTER ALLOCATION (JAM MCG        48
                                        *         PROBLEM, AND ATTEMPT TO MINIMIZE THE CODE LENGTH AND NUMBER    MCG        49
                                        *         OF STORES TO COMPILER GENERATED TEMPORARIES.                   MCG        50
                                        *         FOR A MULTI-FUNCTIONAL UNIT MACHINE ( 6600, 7600 ) IT IS       MCG        51
                                        *         NECESSARY TO ALSO CONSIDER TIMING INFORMATION AND SIMULATE     MCG        52
                                        *         THE CPU ( TEMPORAL FUNCTIONAL UNIT AND REGISTER AVAILABILITY ) MCG        53
                                        *                                                                        MCG        54
                                        *         THE FORMER PROBLEM HAS A THEORETICAL SOLUTION ( AHO, ULLMAN -  MCG        55
                                        *         1970 ) WHICH IS NOT COMBINATORIAL IN NATURE WHEN THE NETWORK   MCG        56
                                        *         IS A TREE ( NO MULTIPLE USES OF THE RESULT OF AN INSTRUCTION ) MCG        57
                                        *         , AS OPPOSED TO A DIRECTED ACYCLIC GRAPH.                      MCG        58
                                        *                                                                        MCG        59
                                        *         THE PROBLEM OF PRODUCING AN OPTIMAL SCHEDULE FOR A NETWORK     MCG        60
                                        *         WITH N TASKS AND K PROCESSORS ( K = 9,10 IN OUR CASE )         MCG        61
                                        *         HAS NO GENERAL SOLUTION.  MOST OF THE CURRENT METHODS ARE      MCG        62
                                        *         COMBINATORIAL IN NATURE ( AND IN THE NUMBER OF STEPS ).        MCG        63
                                        *         IN ORDER TO KEEP COMPILATION TIME FINITE AND REASONABLE        MCG        64
                                        *         WE CONTENT OURSELVES WITH A 1 PASS ALGORITHM.                  MCG        65
                                        *         THE BASIC ALGORITHM FOR MAINTAINING THE ISSUE CANIDATE LIST IS MCG        66
                                        *         SIMILAR TO THE "TOPOLOGICAL SORT" DESCRIBED IN VOL I OF KNUTH. MCG        67
                                        *         THE SELECTION CRITERIA FOR INSTRUCTION IN SCHEDULING MODE      MCG        68
                                        *         IS "EARLIEST START TIME".                                      MCG        69
                                        *                                                                        MCG        70
                                        *         THE FOLLOWING ARE THE TIMING FORMULA OF THE 66/7600 -          MCG        71
                                        *                                                                        MCG        72
                                        *         T(IS) = MAX( T , TRA(RESULT) , TFU(F) )          ISSUE TIME    MCG        73
                                        *         T(EX) = MAX( T(IS) , TRA(OPERANDS) )             EXECUTE TIME  MCG        74
                                        *                T(IS) = T(EX)  FOR A 7600                               MCG        75
                                        *         TRA(REGNO) = MAX( T(EX)+FT[DI] , TLU(REGNO) )    RESULT AVAIL  MCG        76
                                        *         TFU(F) = TRA(REGNO) + 1                          FUNIT AVAIL   MCG        77
                                        *         TLU(OPERANDS) = MAX( TLU(OPERANDS) , T(EX) )     LAST USE      MCG        78
                                        *         T = T(EX) + N.PARCELS ( + IWTIME )               MIN ISSUE TIM MCG        79
                                        *                                                                        MCG        80
                                        *         AT PRESENT THE SCHEDULER IGNORES THIRD ORDER CONFLICTS AND THE MCG        81
                                        *         FORMULAS IT USES ARE -                                         MCG        82
                                        *         TRA(REGNO) = T(EX) + FT[DI]                                    MCG        83
                                        *         TRA(REGNO) = T(EX) + 1   WHEN A REGISTER IS RELEASED.          MCG        84
                                                                                                                 MCG        85
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     3
                                                                      MCG 
  
                                                  LIST   -R                                                      MCG        86
                                                                                                                 MCG        87
                                   2     BOOL     EQU    2           ORDINAL OF BOOLEAN UNIT                     MCG        88
                                  20     RN.X0    EQU    20B         *SO* REGISTER NUMBER FOR X0                 MCG        89
                                  10     RN.A0    EQU    10B         *SO* REGISTER NUMBER FOR A0                 MCG        90
                                 -10     AMX      EQU    -10B        RN.A0-RN.X0  , X TO A CONVERSION            MCG        91
                              377777     T(INF)   EQU    377777B     *INFINITY*                                  MCG        92
                                   2     MAX.GX   EQU    2           MAX NUMBER OF GENERATED XMITS               MCG        93
                                   4     DELTAT   EQU    4           MIN DELTA T FOR *LST* CHECK IN *SNI*        MCG        94
  
  
                                        *         TYIOM - TYPE I OPERAND MASK AND SHIFT TABLE                    MCG        98
                                                                                                                 MCG        99
                                                  ENTRY  TYIOM#                                                  CCGNC     771
             0                           TYIOM#   BSS    0                                                       CCGNC     772
             0                           TYIOM    BSS    0                                                       MCG       101
             0  20207777737777400000              VFD    12/2020B,16/-1,16/-1,16/0   RJ, RK                      MCG       102
             1  20200000037777400000              VFD    12/2020B,16/0,16/-1,16/0    RK                          MCG       103
             2  20007777737777577776              VFD    12/2000B,16/-1,16/-1,16/-1  RJ, RK, RI                  MCG       104
                                                                                                                 CCGA073     8
                                                  ENTRY  REG=A0                                                  CCGA073     9
             3  00000000000000000010     REG=A0   DATA   8,7         A0 OR B7 FOR FPLI                           CCGA073    10
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     4
        MACRO DEFINITIONS                                             FXR 
  
                                        **        FX. - VALUES OF THE REGISTERS FOR *FXR*                        MCG       106
                                                                                                                 MCG       107
                                                  ECHO   1,N=(1,2,3,4,5,6,7)                                     MCG       108
                                         FX.X_N   EQU    1S_N*1S8                                                MCG       109
                              200000     FX.X0    EQU    FX.X7*2                                                 MCG       110
                              400400     FX.XT    EQU    1S8+1S17    SEARCH TERMINATOR AND EXPONENT BIT          MCG       111
                                                                                                                 MCG       112
                                                  ECHO   1,N=(0,1,2,3,4,5,6,7)  B-REGISTER BIT VALUES            MCG       113
                                         FX.B_N   EQU    1S_N                                                    MCG       114
                                                                                                                 MCG       115
                                        *         REGISTER CLASSES ( BIT VALUE MASKS )                           MCG       116
                                                                                                                 MCG       117
                                 377     FB       EQU    2*FX.B7-1         ALL B REGISTERS                       MCG       118
                              377400     FX       EQU    2*FX.X0-FB-1      ALL X REGISTERS                       MCG       119
                                                                                                                 MCG       120
                               37000     FX.LD    EQU    FX.X1+FX.X2+FX.X3+FX.X4+FX.X5   LOAD REGISTERS          MCG       121
                              140000     FX.ST    EQU    FX.X6+FX.X7       STORE REGISTERS                       MCG       122
                              377000     FX.SCR   EQU    FX.X0+FX.LD+FX.ST ALL REGISTERS                         MCG       123
                                                                                                                 MCG       124
                                        *         FXRA - REGISTER TRANSLATION TABLE ( SEARCH ORDER )             MCG       125
                                                                                                                 MCG       126
             5                           FXRA     BSS    0                                                       MCG       127
                                                  ECHO   1,N=(0,7,6,5,4,3,2,1)                                   MCG       128
                                                  VFD    42/FX.X_N,18/RN.X0+N                                    MCG       129
            15  77777777777777777776              CON    -1          TABLE TERMINATOR                            MCG       130
  
  
                                        **        FXR - CALL *FXR* TO FIND A RESULT REGISTER IN CLASS *RC*       MCG       132
                                        *         CALL -                                                         MCG       133
                                        *         FXR    RC,SEXIT,FEXIT                                          MCG       134
                                        *                RC = REGISTERS IN CLASS ( LD , ST , SCR )               MCG       135
                                        *                SEXIT = SUCCESS EXIT                                    MCG       136
                                        *                FEXIT = FAIL EXIT ( FALL THROUGH IF ABSENT )            MCG       137
                                                                                                                 MCG       138
                                         FXR      MACRO  RC,SEXIT,FEXIT                                          MCG       139
                                                  SA1    AXR                                                     MCG       140
                                                  IF     -REG,RC,1                                               MCG       141
                                                  SX5    FX.RC+FX.XT                                             MCG       142
                                                  BX7    X1*X5       AVAIL = AXR & CLASS                         MCG       143
                                                  NX6    B3,X7                                                   MCG       144
                                                  SA3    B3+FXRA+16-47                                           MCG       145
                                                  IFGE   .CPU,74                                         ?66/76  MCG       146
                                                  SA2    TRA+X3                                                  MCG       147
                                                  SB2    X2                                                      MCG       148
                                                  SB3    X3                                                      MCG       149
                                                  LE     B2,B5,SEXIT IF TRA(REGNO) @ T(IS)                       MCG       150
                                                  ELSE   2                                               '66/76  MCG       151
                                                  SB3    X3                                                      MCG       152
                                                  GT     B3,SEXIT                                                MCG       153
                                                  RJ     FXR                                                     MCG       154
                                                  SB3    X3                                                      MCG       155
                                                  IFC    NE,/FEXIT//,2                                           MCG       156
                                                  MI     X3,FEXIT                                                MCG       157
                                                  ELSE   1                                                       MCG       158
                                                  PL     X3,SEXIT                                                MCG       159
                                                  ENDM                                                           MCG       160
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     5
        DEBUGGING FACILITIES                                          DEBUG 
  
                                        **        PRNT - PRINT OUT *THING* AT *LAB* IF *THING* OR *LAB* IS       MCG       162
                                        *         MENTIONED ON A *TRACER* DIRECTIVE.                             MCG       163
                                        *         TO DEFINE *PRNT* CALL LABELS -                                 MCG       164
                                        *         TRACER (HEAD,II,FINAL,RUI,TIMES,ICL)                           MCG       165
                                                                                                                 MCG       166
                                         PRNT     MACRO  LAB,THING,SAVPBI                                        MCG       167
                                                  LOCAL  APL         *** DESTROY B2,X6,A6 IF SAVPBI " 0          MCG       168
                                                  IF     -DEF,/DEBUG/LAB,1                                       MCG       169
                                         X        IF     DEF,/DEBUG/THING                                        MCG       170
                                                  IFC    NE,/SAVPBI//,3                                          MCG       171
                                                  SB2    "DI"+B1                                                 MCG       172
                                                  SX6    B2-"TB"                                                 MCG       173
                                                  SA6    PBI+1                                                   MCG       174
                                        +         RJ     CPR                                                     MCG       175
                                        -         VFD    30/APL                                                  MCG       176
                                                  USE    DEBUG                                                   MCG       177
                                         APL      CON    0,Z.THING,*+2,0,10H LAB                                 MCG       178
                                                  USE    0                                                       MCG       179
                                         X        ENDIF                                                          MCG       180
                                                  ENDM                                                           MCG       181
                                                                                                                 MCG       182
                                         .T       IFNE   TEST,0                                                  FCC1056     7
                                                  USE    DEBUG                                                   MCG       184
                                         Z.ICL    CON    1           ISSUE CANIDATE LIST                         MCG       185
                                         Z.II     CON    2           ISSUED INSTRUCTION                          MCG       186
                                         Z.RUI    CON    3           REGISTER USEAGE INFO                        MCG       187
                                         Z.TIMES  CON    4           FU AND X-REG AVAIL TIMES                    MCG       188
                                         Z.FINAL  CON    5           FINAL SUMMARY                               MCG       189
                                         Z.HEAD   CON    6           LISTING HEADER ( II AND FINAL OPTIONS ONLY  MCG       190
                                                                                                                 MCG       191
                                        **        CPR - CALL PRINT ROUTINE                                       MCG       192
                                                                                                                 MCG       193
                                         CPR0     RJ     =XRSR=                                                  CCG7      125
                                         CPR      ROUTINE                                                        MCG       195
                                                  RJ     =XSVR=                                                  CCG7      126
                                                  SA1    CPR                                                     MCG       197
                                                  SA4    O.TXT                                                   MCG       198
                                                  LX1    30                                                      MCG       199
                                                  SA2    X1-1                                                    MCG       200
                                                  BX6    X4                                                      MCG       201
                                                  SA6    X2          [APL] = [O.TXT]                             MCG       202
                                                  SA1    A6                                                      MCG       203
                                        +         RJ     =XPRNTMCG                                               MCG       204
                                                  SA1    EOQA                                                    MCG       205
                                                  PL     X1,CPR0                                                 MCG       206
                                                  BX6    -X1                                                     MCG       207
                                                  SA6    A1                                                      MCG       208
                                                  RJ     =XRSR=                                                  CCG7      127
                                                  SNAPT  TXT,CPR-ERR                                             MCG       210
                                                  EQ     CPR                                                     MCG       211
                                                                                                                 MCG       212
                                                  USE    0                                                       MCG       213
                                         .T       ENDIF                                                          FCC1056     8
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     6
        VARIABLES                                                     FLAGS     MCG 
  
                                                  USE    /MCG/                                                   MCG       216
             0                     1     N.INST   BSS    1           NUMBER OF INSTRUCTIONS ( L.TXT/4 )          MCG       217
             1                     1     N.SP     BSS    1           -( NUMBER OF STORE PREDECESSOR OPS )        MCG       218
             2                     1     SEQTIME  BSS    1           CRITICAL PATH TIME                          MCG       219
                                                                                                                 MCG       220
             3                     1     ICL      BSS    1           ISSUE CANDIDATE LIST POINTER                MCG       221
             4                     1     RMR      BSSZ   1           24/0,18/CA,18/A-REG NUMBER                  MCG       222
             5  17760000377777377777              VFD    12/1776B,12/0,18/T(INF),18/T(INF)                       MCG       223
             6                     2     PBI      BSS    2           PREVIOUS BEST INST INFO ( PB. FORMAT )      MCG       224
                                                                                                                 MCG       225
            10  00000000000000000004     DT       CON    4           DELTA T FOR *LST* CHECK                     MCG       226
            11  00000000000000000000     IWT      CON    .IWT        INTERWORD TIME ( =0 IF NOT A SLOW 6600 )    MCG       227
                                                                                                                 MCG       228
            12  20000000000000377777     AXR      CON    1S58+FX+FB  AVAILABLE X AND B REGISTERS                 MCG       229
            13  00000000000000437400     ALR      CON    FX.LD+FX.XT AVAILABLE LOAD REGISTERS                    MCG       230
            14  77777777777777737777     STL      CON    -FX.X6      STORE LOCKOUT FLAG                          MCG       231
                                                                                                                 MCG       232
            15                    30     RVT      BSSZ   24          REGISTER VALUE TABLE ( R-NUMBER IN REGISTER MCG       233
                                        *                            1/LOCK,59/INDEX TO *TXT* OF *RI* IN REG     MCG       234
                                                                                                                 MCG       235
            45  40000000000000377777              CON    1S59+T(INF)       TRA-1  ( FOR *FXR* )                  MCG       236
            46                           F.CLC    BSS    0          ?FWA OF CLEARED CELLS                        MCG       237
            46                    30     TRA      BSS    24          TIME REGNO(I) AVAILABLE ( BAX ORDER )       MCG       238
            76                    10     ARA      BSS    8           A-REGISTER ADDRESS INFO ( [IH WORD] )       MCG       239
           106                    14     TFU      BSS    12          TIME FU(I) AVAILABLE                        MCG       240
           122                     2     LST      BSS    2           COMPLETION TIME OF LAST STORE ( 6600 )      MCG       241
                                 123 C   LLT      EQU    LST+1       COMPLETION TIME OF LAST LOAD                MCG       242
           124                     1     LXR      BSS    1           LOCKED X AND B-REGISTERS                    MCG       243
           125                     1     NGX      BSS    1           N.GENERATED XMITS                           MCG       244
           126                     1     T        BSS    1           CURRENT SIMULATION TIME ( MINOR CYCLES )    MCG       245
           127                           PC       ENTRY. 0,#         PARCEL COUNT ( 0 - 3 )                      CCGNC     773
           130                     1     TRS      BSS    1           BIT I SET IF A RESULT WILL BE READY AT T+I  MCG       247
                                  63     L.CLC    EQU    *-F.CLC    '                                            MCG       248
                                                                                                                 MCG       249
           131  00000000000000000000     JLR      CON    0           BIT(47-REGNO) SET FOR REGISTERS LOCKED      MCG       250
                                        *                            UNTIL NEXT UNCONDITIONAL JUMP.              MCG       251
           132                     2     LRM      BSS    2           LOCKED REG MODE, INITIAL PIT LENGTH         MCG       252
           134  00000000000000000000     EOQA     CON    0           ADDRESS OF *EOQ* PROCESSOR                  MCG       253
           135                     2     IIP      BSS    2           ISSUED INST PTR ( *PIT* ADDR ) / O.PIT      MCG       254
           137                     1     EIW      BSS    1           -(NUMBER OF EXTRA PIT WORDS LEFT) JAM MODE  MCG       255
                                                                                                                 MCG       256
                                        *         RBV - REGISTER BIT VALUE TABLE ( *SO* REGNO ORDER )            MCG       257
                                                                                                                 MCG       258
           140                           RBV      BSS    0                                                       MCG       259
                                                  ECHO   1,N=(0,1,2,3,4,5,6,7)                                   MCG       260
                                                  CON    FX.B_N                                                  MCG       261
           150                    10              BSSZ   8           A-REGISTERS                                 MCG       262
                                                  ECHO   1,N=(0,1,2,3,4,5,6,7)                                   MCG       263
                                                  CON    FX.X_N                                                  MCG       264
                                                                                                                 MCG       265
                                                  USE    /CCGSCR/                                                CCG18     173
             0                   100     SVL      BSS    100B        SAVED LINK WORDS                            MCG       267
                                                  USE    0                                                       MCG       268
                                                                                                                 MCG       269
            16                     1     DTT      BSS    1           DELTA T TABLE                               MCG       270
                                                  ECHO   1,D=(DELTAT,8,16,32)                                    MCG       271
                                                  VFD    15/D                                                    MCG       272
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     7
        TABLE DEFINATIONS                                             TABLES
  
                                        **        USES INDEX ( SUCCESSOR ) TABLE                                 MCG       274
                                                                                                                 MCG       275
                                                  DESCRIBE U.,60                                                 MCG       276
      L     73  40000000000000000000     LAST     DEFINE 1           "0 IF LAST EDGE OF A GROUP                  MCG       277
      L     72  20000000000000000000     RDL      DEFINE 1           REGISTER REDEFINITION LINK                  FCC0448   147
      L     71  10000000000000000000     EQV      DEFINE 1           DATA INTERFERENCE LINK                      FCC0448   148
                                                  DEFINE 3                                                       FCC0448   149
      L     44  00777777000000000000     PRED     DEFINE 18          INDEX TO *TXT* OF PRED                      MCG       280
      L     22  00000000777777000000     LST      DEFINE 18          LATE START TIME OF SUCCESSOR                MCG       281
      L      0  00000000000000777777     SUCC     DEFINE 18          INDEX TO *TXT* OF SUCCESSOR                 MCG       282
  
  
                                        *         LINK INFORMATION WORD    ( INFO SETUP BY *BDT* )               MCG       284
                                                                                                                 MCG       285
                                                  DESCRIBE I.,60                                                 MCG       286
      L     73  40000000000000000000     II       DEFINE 1           "0 IF INSTRUCTION IS ISSUED ( POSTED )      MCG       287
      L     72  20000000000000000000     IC       DEFINE 1           "0 IS INSTRUCTION ON ISSUE CANDIDATE LIST   MCG       288
                                                  DEFINE 1                                                       MCG       289
      L     60  07770000000000000000     USES     DEFINE 9                                                       MCG       290
      L     41  00007777700000000000     INDX     DEFINE 15          INDEX TO *TREE* OF SUCCESSORS OF INSTRUCTIO MCG       291
      L     22  00000000077777000000     LST      DEFINE 15          LATE START TIME                             MCG       292
      L      0  00000000000000777777     NPRED    DEFINE 18          NUMBER OF UNISSUED PREDECESSORS             MCG       293
                                                                                                                 MCG       294
      L      0  00000000000000777777     LINK     DEQU   NPRED       INDEX TO NEXT ON ISSUE CANIDATE LIST        MCG       295
      L      0  00000000000000777777     REG      DEQU   NPRED       REGISTER NUMBER THAT *RI* IS IN ( ISSUED )  MCG       296
  
  
                                        **        FORMAT OF SAVED PREVIOUS BEST INSTRUCTION INFO                 MCG       298
                                                                                                                 MCG       299
                                                  DESCRIBE PB.,60    FIRST WORD                                  MCG       300
      L     60  77770000000000000000     REG      DEFINE 12          PACKED REGISTER ORDINAL                     MCG       301
                                                  DEFINE 12                                                      MCG       302
      L     22  00000000777777000000     TEX      DEFINE 18          EXECUTION TIME                              MCG       303
      L      0  00000000000000777777     TIS      DEFINE 18          ISSUE TIME                                  MCG       304
                                                                                                                 MCG       305
                                                  DESCRIBE PB.,60    SECOND WORD                                 MCG       306
      L     60  77770000000000000000     FU       DEFINE 12          PACKED FUNIT ORDINAL                        MCG       307
                                                  DEFINE 12                                                      MCG       308
      L     22  00000000777777000000     PI       DEFINE 18          INDEX TO *TXT* OF PREVIOUS INST             MCG       309
      L      0  00000000000000777777     LI       DEFINE 18          INDEX TO *TXT* OF PREVIOUS BEST INST        MCG       310
  
  
  
                                        **        THE FOLLOWING REGISTER ASSIGNMENTS ARE HELD OVER MOST OF *MCG* MCG       312
                                        *                                                                        MCG       313
                                        *         (B1) = 1  , B2 - SCRATCH                                       MCG       314
                                        *         B3 - REGNO                                                     MCG       315
                                        *         B4 - T(EX) EXECUTION START TIME OF CURRENT INSTRUCTION         MCG       316
                                        *         B5 - T(IS) ISSUE TIME OF CURRENT INSTRUCTION                   MCG       317
                                        *         B6 - TIS(PBI) IN *SNI*, *DRR*, ETC., ELSE SCRATCH              MCG       318
                                         TB       MICRO  1,,/B7/     O.TXT + 3                                   MCG       319
                                         PI       MICRO  1,,/A0/     *TXT* INDEX OF PREVIOUS INSTRUCTION         MCG       320
                                         DI       MICRO  1,,/A4/     ADDRESS OF DESCRIPTOR OF CURRENT INST       MCG       321
                                         RN       MICRO  1,,/-X0*/   R-NUMBER EXTRACTOR MASK                     MCG       322
                                                                                                                 MCG       323
                                        *         THE OTHER X-REGISTERS MAY BE USED AS SCRATCH .                 MCG       324
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     8
        CONTROL / INITIALIZATION                                      MCG 
  
                                                  LIST   F,R                                                     MCG       326
                                                                                                                 MCG       327
                                        **        MCG - MACHINE CODE GENERATOR ( CONTROL / MAIN LOOP )           MCG       328
                                        *                                                                        MCG       329
                                        *         ENTRY  (X6) = LRM , " 0 IF LOCKED X-REGISTERS                  MCG       330
                                        *                                                                        MCG       331
                                        *         EXIT   (X6) = FAIL , " 0 IF SCHEDULER COULDNT CODE THE         MCG       332
                                        *                SEQUENCE WITH LOCKED REGISTERS.                         MCG       333
                                                                                                                 MCG       334
            20                           MCG      ENTRY. **,#                                                    CCGNC     774
            21  5110000000 X                      SA1    L.PIT                                                   MCG       336
                          7271000000              SX7    X1+                                                     MCG       337
            22  5160000132 C                      SA6    LRM         LRM = FLAG                                  MCG       338
                          5076000001              SA7    A6+1        IPL = L.PIT   */ SAVE INITIAL *PIT* LENGTH  MCG       339
                                                                                                                 MCG       340
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG       341
                                                  SA5    L.TXT                                                   MCG       342
                                                  SA1    =XHO$OPT                                                CCGNC     775
                                                  SB2    X5-4*64                                                 MCG       344
                                                  SA2    =XCC$OPTL                                               CCGNC     776
                                                  PL     B2,MCG9     IF L.TXT \ 4*64                             MCG       346
                                                                                                                 MCG       347
                                                  MI     X1,MCG1     IF OPT = 2                                  CCG7      130
                                                  ZR     X2,MCG9     IF CG$OPTL = 0  */ NOT AN OPTIMIZABLE LOOP  CCGNC     777
                                                                                                                 MCG       351
                                         MCG1     SA5    O.TXT                                                   MCG       352
                                                  CALL   CRW#        COMPUTE REG WIDTH                           CCGNC     778
                                                  PRINT  MCG,(*  LINENR ,REGW =*2I5),(=XHO$CSN ,X6)              CCGNC     779
                                                  SB6    X6                                                      MCG       355
                                                  SB7    9                                                       MCG       356
                                                  LT     B6,B7,MCG2  IF MAXW @ 8                                 MCG       357
                                                  GT     B6,B7,MCG9  IF MAXW > 9                                 MCG       358
                                                                                                                 MCG       359
                                         MCG2     SA1    DTT+1                                                   MCG       360
                                                  SB7    B7-B1                                                   MCG       361
                                                  BX7    X1          DTT = DTT(2)  */ SET INCREMENT VALUES       MCG       362
                                                  LT     B6,B7,MCG3  IF MAXW < 8                                 MCG       363
                                                  AX7    15          DTT = SHIFT(DTT,-15)  */ SET FOR 3 TRIES    MCG       364
                                         MCG3     SA7    A1-B1                                                   MCG       365
                                                  MX6    0                                                       MCG       366
                                                  CALL   BDT#        FORM THE DEPENDENCY GRAPH                   CCGNC     780
                                                                                                                 MCG       368
                                        *         SAVE THE LINK WORDS                                            MCG       369
                                                                                                                 MCG       370
                                                  SA1    O.TXT                                                   MCG       371
                                                  SA2    N.INST                                                  MCG       372
                                                  SA5    X1+3                                                    MCG       373
                                                  SB2    X2-1                                                    MCG       374
                                                  BX6    X5                                                      MCG       375
                                                  SA6    SVL                                                     MCG       376
                                         MCG5     SA5    A5+4        FOR I = 1 TO N.INST;  SVL(I) = TXT(4*I)     MCG       377
                                                  SB2    B2-B1                                                   MCG       378
                                                  BX6    X5                                                      MCG       379
                                                  SA6    A6+B1                                                   MCG       380
                                                  NZ     B2,MCG5                                                 MCG       381
                                                                                                                 MCG       382
                                        *         TRY SCHEDULING THE SEQUENCE WITH DIFFERENT LOOK AHEAD VALUES   MCG       383
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE     9
        CONTROL / INITIALIZATION                                      MCG 
  
                                        *         UNTIL IT CAN BE CODED SUCCESSFULLY ( *SIS* EXITS TO *MCG14* )  MCG       384
                                                                                                                 MCG       385
                                         MCG6     SA1    DTT                                                     MCG       386
                                                  MX3    -15                                                     MCG       387
                                                  BX6    -X3*X1      DT = DTT & 77777B  */ SET LOOK AHEAD VALUE  MCG       388
                                                  SA6    DT                                                      MCG       389
                                                  SX7    MCG14                                                   MCG       390
                                                  RJ     SIS         SCHEDULE THE SEQUENCE                       MCG       391
                                                                                                                 MCG       392
                                        *         FAILURE, RESTORE LINK WORDS AND TRY WITH A SMALLER DELTA T.    MCG       393
                                                                                                                 MCG       394
                                                  SA1    DTT                                                     MCG       395
                                                  AX1    15                                                      MCG       396
                                                  BX6    X1          DTT = SHIFT(DTT,-15)  */ ADVANCE TO NEXT IN MCG       397
                                                  SA6    A1                                                      MCG       398
                                                  ZR     X1,MCG11    IF DTT = 0    */ END OF DELTA T TABLE       MCG       399
                                                                                                                 MCG       400
                                                  SA5    SVL                                                     MCG       401
                                                  SA1    O.TXT                                                   MCG       402
                                                  SA2    N.INST                                                  MCG       403
                                                  BX6    X5                                                      MCG       404
                                                  SB2    X2-1                                                    MCG       405
                                                  SA6    X1+3                                                    MCG       406
                                                  SB4    4                                                       MCG       407
                                         MCG7     SA5    A5+B1       FOR I = 1 TO N.INST;  TXT(4*I) = SVL(I)     MCG       408
                                                  SB2    B2-B1                                                   MCG       409
                                                  BX6    X5                                                      MCG       410
                                                  SA6    A6+B4                                                   MCG       411
                                                  NZ     B2,MCG7                                                 MCG       412
                                                                                                                 MCG       413
                                                  EQ     MCG6                                                    MCG       414
                                                                                                                 MCG       415
                                         MCG9     SX6    DELTAT                                                  MCG       416
                                                  SA6    DT          DT = DELTAT   */ SET DEFAULT DELTA T        MCG       417
                                                                                                                 MCG       418
                                         #MD      ENDIF                                                  ?66/76  MCG       419
                                                                                                                 MCG       420
                                        *         INITIALIZE FOR SCHEDULING MODE                                 MCG       421
                                                                                                                 MCG       422
            23  43600                    MCG10    MX6    0                                                       MCG       423
                     0100000000 X                 CALL   BDT#        FORM THE DEPENDENCY GRAPH                   CCGNC     781
            24  7170000032 +                      SX7    MCG14                                                   MCG       425
                          0100000040 +            RJ     SIS         TRY AND SCHEDULE THE SEQUENCE               MCG       426
                                                                                                                 MCG       427
                                        *         SCHEDULER FAILED, TRY *JAM* IF NOT *LOCKED X MODE*.            MCG       428
                                                                                                                 MCG       429
            25  5110000132 C             MCG11    SA1    LRM                                                     MCG       430
                          76610                   SX6    B1          FAIL = 1                                    MCG       431
                               43700              MX7    0                                                       MCG       432
            26  5170000000 X                      SA7    L.TREE      L.TREE = 0                                  MCG       433
                          0311000020 +            NZ     X1,MCG      IF LRM " 0    */ LOCKED X-MODE              MCG       434
            27  5110000013 C                      SA1    ALR                                                     FCC0603    94
                          7120037000              SX2    FX.LD                                                   FCC0603    95
            30  11321                             BX3    X2*X1                                                   FCC0603    96
                     37423                        IX4    X2-X3                                                   FCC0603    97
                          0314000020 +            NZ     X4,MCG      IF ALR&FX.LD " FX.LD  */ LOCKED A-REGISTERS FCC0603    98
                                                                                                                 MCG       435
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    10
        CONTROL / INITIALIZATION                                      MCG 
  
            31  0100001170 +                      RJ     /JAM/JAM    JAM CODE THE SEQUENCE                       MCG       436
                                                                                                                 MCG       437
            32                           MCG14    BSS    0                                                       RSM2763X  368
                                                  PRNT   JAM,FINAL                                               MCG       451
            32  5110000124 C                      SA1    LXR                                                     MCG       452
                          7160000000              SX6    0           FAIL = 0                                    MCG       453
            33  5160000000 X                      SA6    L.TREE      L.TREE = 0                                  MCG       454
                          0301000020 +            ZR     X1,MCG      IF LXR = 0    */ RVT IS ZERO                MCG       455
            34  0100000114 +                      RJ     CLR         CLEAR *RVT*                                 MCG       456
            35  0400000020 +                      EQ     MCG                                                     MCG       457
  
  
  
                                        **        SIS - SCHEDULE INSTRUCTION SEQUENCE                            MCG       459
                                        *                                                                        MCG       460
                                        *         ENTRY  (X7) = SUCCESS EXIT ADDRESS                             MCG       461
                                        *                                                                        MCG       462
                                        *         EXIT   RETURNS TO CALLER IF CANNOT CODE SEQUENCE, ELSE TO      MCG       463
                                        *                SUCCESS EXIT.                                           MCG       464
                                                                                                                 MCG       465
            36  5110000133 C             SIS0     SA1    LRM+1                                                   MCG       466
                          7271000000              SX7    X1+         L.PIT = IPL   */ RESTORE *PIT* LENGTH       MCG       467
            37  5170000000 X                      SA7    L.PIT                                                   MCG       468
                          0100000114 +            RJ     CLR         CLEAR *RVT*                                 MCG       469
                                                                                                                 MCG       470
            40  0200400040 +             SIS      ROUTINE                                                        MCG       471
            41  7100000000                        SX0    0                                                       MCG       472
                          0100000117 +            RJ     PRS         PRESET STORAGE                              MCG       473
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG       474
                                                  SA1    DT                                                      MCG       475
                                                  SA2    SNIB                                                    MCG       476
                                                  LX1    30                                                      MCG       477
                                                  BX7    X1+X2       PLUG *DT* IN *SNI*                          MCG       478
                                                  SA7    SNI.P                                                   MCG       479
                                         #MD      ENDIF                                                  ?66/76  MCG       480
            42  0400000047 +                      EQ     SIS2                                                    MCG       481
                                                                                                                 MCG       482
            43  0100000612 +             SIS1     RJ     AIL         ADJUST THE ISSUE LIST                       MCG       483
            44  0100000635 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG       484
            45  54440                             SA4    "DI"                                                    MCG       485
                     0100000661 +                 RJ     ASC         ADVANCE THE CLOCKS                          MCG       486
            46  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       487
                          0100000765 +            RJ     SII         SAVE THE ISSUED INSTRUCTION                 MCG       488
                                                                                                                 MCG       489
            47  0100000161 +             SIS2     RJ     SNI         SELECT THE NEXT INSTRUCTION TO ISSUE        MCG       490
            50  0630000043 +                      PL     B3,SIS1     IF REGNO > 0  */ ISSUABLE INSTRUCTION FOUND MCG       491
  
                                        *         CHECK FOR A STORE REGISTER JAM, AND GENERATE AN *XMT*          MCG       493
                                        *         IF POSSIBLE.                                                   MCG       494
                                                                                                                 MCG       495
                          5110000012 C            SA1    AXR                                                     MCG       496
            51  5150000125 C                      SA5    NGX                                                     MCG       497
                          7120140000              SX2    FX.ST                                                   MCG       498
            52  7130377000                        SX3    FX.SCR                                                  MCG       499
                          11221                   BX2    X2*X1                                                   MCG       500
                               11331              BX3    X3*X1                                                   MCG       501
            53  0312000036 +                      NZ     X2,SIS0     IF AXR & FX.ST " 0  */ NOT ST-REG JAM       MCG       502
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    11
        CONTROL / INITIALIZATION                                      SIS 
  
                          0303000036 +            ZR     X3,SIS0     IF AXR & FX.SCR = 0  */ ALL REGS IN USE     MCG       503
            54  6235777775                        SB3    X5-MAX.GX                                               MCG       504
                          0430000036 +            ZR     B3,SIS0     IF NGX = MAX.GX  */ GEN XMT LIMIT REACHED   MCG       505
                                                                                                                 MCG       506
                                        *         FIND A ST-REG WHOSE RESULT CAN BE MOVED TO ANOTHER REGISTER.   MCG       507
                                                                                                                 MCG       508
            55  6140000026                        SB4    RN.X0+6     REGF = X6     */ TRY X6                     MCG       509
                          0100000072 +            RJ     CSR                                                     MCG       510
            56  0307000061 +                      ZR     X7,SIS3     IF CSR(REGF) = 0  */ RESULT CAN BE MOVED    MCG       511
                          6144000001              SB4    B4+1        REGF = X7                                   MCG       512
            57  0100000072 +                      RJ     CSR                                                     MCG       513
            60  0317000036 +                      NZ     X7,SIS0     IF CSR(REGF) " 0                            MCG       514
                                                                                                                 MCG       515
            61  5110000012 C             SIS3     SA1    AXR                                                     MCG       516
                          5120000126 C            SA2    T                                                       MCG       517
            62  7150777400                        SX5    FX.SCR+FX.XT                                            MCG       518
                          11715                   BX7    X1*X5       AVAIL = AXR & FX.SCR                        MCG       519
                               24637              NX6    B3,X7                                                   MCG       520
            63  6252000000                        SB5    X2+         T(IS) = T                                   MCG       521
                          5133777745 +            SA3    B3+FXRA+16-47                                           MCG       522
            64  5223000046 C                      SA2    TRA+X3                                                  MCG       523
                          63220                   SB2    X2                                                      MCG       524
                               63330              SB3    X3          REGR = FXR( SCR )  */ RESULT REG            MCG       525
            65  0652000066 +                      LE     B2,B5,SIS4  IF TRA(REGR) @ T(IS)                        MCG       526
                          66520                   SB5    B2          T(IS) = TRA(REGR)                           MCG       527
            66  6120000010               SIS4     SB2    OC.XMT                                                  MCG       528
                          0100002340 +            RJ     /JAM/OXI    OUTPUT AN *XMT* INSTRUCTION                 MCG       529
            67  5120000125 C                      SA2    NGX                                                     MCG       530
                          73621                   SX6    X2+B1       NGX = NGX + 1                               MCG       531
                               54620              SA6    A2                                                      MCG       532
            70  0400000047 +                      EQ     SIS2                                                    MCG       533
  
  
  
                                        **        CSR - CHECK SPECIFIED REGISTER TO SEE IF THE RESULT IN IT      MCG       535
                                        *         CAN BE MOVED TO ANOTHER REGISTER ( ^PRS , ETC).                MCG       536
                                        *                                                                        MCG       537
                                        *         ENTRY  (B4) = REGF , REGNO OF REGISTER TO BE CHECKED.          MCG       538
                                        *                                                                        MCG       539
                                        *         EXIT   (X7) = PSF = 0 IF RESULT IN REGF CAN BE MOVED           MCG       540
                                                                                                                 MCG       541
            71  20401                    CSR4     LX4    D.PSP-D.PRSP                                            MCG       542
                     43601                        MX6    1                                                       MCG       543
                          11764                   BX7    X6*X4       PSF = PRS[DI] */ MOVABLE IF ^PRS            MCG       544
                                                                                                                 MCG       545
            72  0200400072 +             CSR      ROUTINE                                                        MCG       546
            73  5114000015 C                      SA1    RVT+B4      R = RVT(REGF)                               MCG       547
                          67671                   SB6    "TB"-B1                                                 MCG       548
                               53416              SA4    B6+X1       DI = BASE-1 + R                             MCG       549
            74  20435                             LX4    59-D.PIP                                                MCG       550
                     0334000107 +                 MI     X4,CSR3     IF PI[DI]     */ PSEUDO INSTRUCTION         MCG       551
                               20463              LX4    D.PIP-D.PSP                                             MCG       552
            75  0324000071 +                      PL     X4,CSR4     IF ^PS[DI]                                  MCG       553
                                                                                                                 MCG       554
                                        *         RESULT *PS*, CHECK UNISSUED SUCCESSORS OF *R*                  MCG       555
                                                                                                                 MCG       556
            76  54541                    CSR0     SA5    A4+B1       LI = DI + 1                                 MCG       557
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    12
        CONTROL / INITIALIZATION                                      CSR 
  
                     43755                        MX7    -I.INDXL    PSF = 1                                     MCG       558
                          5120000000 X            SA2    O.TREE                                                  MCG       559
            77  20533                             LX5    -I.INDXP                                                MCG       560
                     15657                        BX6    -X7*X5                                                  MCG       561
                          63220                   SB2    X2                                                      MCG       562
                               53362              SA3    B2+X6       UI = O.TREE + INDX[LI]                      MCG       563
                                                                                                                 MCG       564
                                         CSR1     LX3    -U.SUCCP                                                MCG       565
           100  53537                             SA5    "TB"+X3     SI = BASE + SUCC[UI]                        MCG       566
                                                  LX5    59-I.IIP                                                MCG       567
                     0335000105 +                 MI     X5,CSR2     IF II[SI]     */ ISSUED                     MCG       568
           101  5025777774                        SA2    A5-3        R1S = SI - 3                                FCC0393     6
                          13521                   BX5    X2-X1                                                   FCC0393     7
                               15650              BX6    "RN"X5                                                  FCC0393     8
           102  0316000105 +                      NZ     X6,CSR2     IF RI[R1S] " R  */ NOT USED IN *RI*         FCC0393     9
                          55251                   SA2    A5-B1       D = SI - 1                                  FCC0393    10
                               20231              LX2    59-D.STP                                                FCC0393    11
           103  0322000105 +                      PL     X2,CSR2     IF ^ST[D]                                   FCC0393    12
                          20272                   LX2    D.STP-D.L2P                                             FCC0393    13
           104  0322000072 +                      PL     X2,CSR      IF ^L2[D]     */ UNISSUED STORE             FCC0393    14
           105  10633                    CSR2     BX6    X3          UL = UI                                     MCG       578
                     54331                        SA3    A3+B1       UI = UI + 1                                 MCG       579
                                                  LX6    U.SUCCP+59-U.LASTP                                      MCG       580
                          0326000100 +            PL     X6,CSR1     IF ^LAST[UL]                                MCG       581
                                                                                                                 MCG       582
           106  43700                             MX7    0           PSF = 0                                     MCG       583
                     0400000072 +                 EQ     CSR                                                     MCG       584
                                                                                                                 MCG       585
           107  5054777775               CSR3     SA5    A4-2        R1 = DI - 2   */ INSTRUCTION IS A *DEF*     MCG       586
                          43601                   MX6    1                                                       MCG       587
                               20544              LX5    58-R1.SOP-SO.LKP                                        MCG       588
           110  11765                             BX7    X6*X5       PSF = SOLK[R1]/2  */ =1 IF A FULL LOCK      MCG       589
                     0317000072 +                 NZ     X7,CSR      IF PSF " 0                                  MCG       590
           111  0400000076 +                      EQ     CSR0                                                    MCG       591
  
  
  
                                        **        CLR - CLEAR *RVT*                                              MCG       593
                                                                                                                 MCG       594
           112  54761                    CLR1     SA7    A6+B1       FOR I = 1 TO 23; RVT(I) = 0                 MCG       595
                     20501                        LX5    1                                                       MCG       596
                          5067000001              SA6    A7+1                                                    MCG       597
           113  0335000112 +                      MI     X5,CLR1                                                 MCG       598
           114  0200400114 +             CLR      ROUTINE                                                        MCG       599
           115  76600                             SX6    B0                                                      MCG       600
                     43513                        MX5    22/2                                                    MCG       601
                          7170000000              SX7    0                                                       MCG       602
           116  5160000016 C                      SA6    RVT+1                                                   MCG       603
                          0400000112 +            EQ     CLR1                                                    MCG       604
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    13
        CONTROL / INITIALIZATION                                      PRS 
  
                                        **        PRS - PRESET STORAGE ( INITIALIZATION )                        MCG       606
                                        *                                                                        MCG       607
                                        *         ENTRY  (X7) = *EOQ* PROCESSOR ADDRESS                          MCG       608
                                        *                (X0) = CODE MODE, 0/1 = NORMAL/JAM                      MCG       609
                                                                                                                 MCG       610
           117  0200400117 +             PRS      ROUTINE                                                        MCG       611
           120  5170000134 C                      SA7    EOQA        EOQA = EOQP                                 MCG       612
                                                  IFNE   .IWT,0,2                                                MCG       613
                                                  SX6    .IWT                                                    MCG       614
                                                  SA6    IWT         IWT = .IWT    */ SET INTERWORD TIME         MCG       615
                          7170377777              SX7    FX+FB                                                   MCG       616
           121  43531                             MX5    L.CLC/2                                                 MCG       617
                     27707                        PX7    X7                                                      MCG       618
                          5170000012 C            SA7    AXR         AXR = PACK( 0 , FX + FB )                   MCG       619
           122  7160437400                        SX6    FX.LD+FX.XT                                             MCG       620
                          5160000013 C            SA6    ALR         ALR = FX.LD                                 MCG       621
           123  76700                             SX7    B0                                                      MCG       622
                     43600                        MX6    0                                                       MCG       623
                                                                                                                 MCG       624
                          5170000046 C            SA7    F.CLC       FOR I = 0 TO L.CL , CLC(I) = 0              MCG       625
           124  54671                    PRS1     SA6    A7+B1                                                   MCG       626
                     20501                        LX5    1                                                       MCG       627
                          46000                   NO                                                             MCG       628
                               54761              SA7    A6+B1                                                   MCG       629
           125  0335000124 +                      MI     X5,PRS1                                                 MCG       630
                                                                                                                 MCG       631
                          5150000000 C            SA5    N.INST      WDS = N.INST                                MCG       632
           126  0300000131 +                      ZR     X0,PRS2     IF MODE = 0   */ NOT JAM MODE               MCG       633
                          14755                   BX7    -X5                                                     MCG       634
                               20501              LX5    1           WDS = 2*N.INST                              MCG       635
           127  5170000137 C                      SA7    EIW         EIW = -N.INST                               MCG       636
                          7110000030              ALLOC  OTI,30B     ALLOC OTI,30B                               MCG       637
                                                                                                                 MCG       638
           131  7215000003               PRS2     ALLOC  PIT,X5+MAX.GX+1   ALLOC( PIT , WDS+MAX.GX+1 )           FEAT155A   87
           133  5150000000 X                      SA5    =XCC$PC                                                 CCGNC     782
                          66561                   SB5    B6+B1                                                   MCG       641
                               10722              BX7    X2                                                      MCG       642
           134  5170000136 C                      SA7    IIP+1       IIP(2) = O.PIT                              MCG       643
                          73625                   SX6    X2+B5                                                   MCG       644
                               55671              SA6    A7-B1       IIP(1) = O.PIT + OLD(L.PIT) + 1             MCG       645
           135  10755                             BX7    X5                                                      FEAT155A   89
                     5170000127 C                 SA7    PC          PC = CC$PC                                  CCGNC     783
                                                                                                                 MCG       648
                                        *         SET UP THE ISSUE CANDIDATE LIST BY ISSUING THE *BOS*           MCG       649
                                                                                                                 MCG       650
                                                  PRNT   JAM,HEAD                                                MCG       651
           136  5130000000 X                      SA3    O.TXT                                                   MCG       652
                          6273000003              SB7    X3+3        BASE = O.TXT + 3                            MCG       653
           137  53430                             SA4    X3                                                      MCG       654
                     66300                        SB3    B0                                                      MCG       655
                          10744                   BX7    X4          [IIP-1] = [O.TXT]  */ SET *BOS* FOR POST    MCG       656
           140  5276777776                        SA7    X6-1                                                    MCG       657
                          5140000000 X            SA4    =XHO$ER                                                 CCGNC     784
           141  0315000147 +                      NZ     X5,PRS3     IF PARCEL " 0                               FEAT155A   91
                          0304000147 +            ZR     X4,PRS3     IF ER = 0     */ NO OBJ TIME RPV            FEAT155A   92
                                                                                                                 FEAT155A   93
           142  43536                             MX5    -R1.INP                                                 FEAT155A   94
1       MCG - MACHINE CODE GENERATOR                                  COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    14
        CONTROL / INITIALIZATION                                      PRS 
  
                     11757                        BX7    X5*X7                                                   FEAT155A   95
                          7140000200              SX4    200B                                                    FEAT155A   96
           143  6120000052                        SB2    OC.STT                                                  FEAT155A   97
                          26507                   UX5    X7                                                      CCG0086    11
           144  0305000147 +                      ZR     X5,PRS3     IF LINE NUMBER ZERO                         CCG0086    12
                          27727                   PX7    B2,X7                                                   FEAT155A   98
                               12747              BX7    X4+X7                                                   FEAT155A   99
           145  54771                             SA7    A7+B1       [IIP] = SI(OC.STT,LINE,200B)                FEAT155A  100
                     73661                        SX6    X6+B1       IIP = IIP + 1                               FEAT155A  101
                          54660                   SA6    A6                                                      FEAT155A  102
                               76711              SX7    B1+B1                                                   FEAT155A  103
           146  5170000127 C                      SA7    PC          PC = 2                                      FEAT155A  104
                                                                                                                 FEAT155A  105
           147  56000                    PRS3     S"PI"  B0                                                      FEAT155A  106
                     56570                        SA5    "TB"                                                    MCG       659
                          0100000612 +            RJ     AIL         INITIALIZE THE ISSUE LIST                   MCG       660
           150  0100000152 +                      RJ     SSP         SET STORE PREDECESSOR COUNT                 CCGA006    10
           151  0400000117 +                      EQ     PRS                                                     CCGA006    11
  
  
  
                                        **        SSP - SET STORE PREDECESSOR COUNT ( N.SP ) FOR A SUBSEQUENCE   CCGA006    13
                                        *                                                                        CCGA006    14
                                        *         ENTRY  (X4) = [DI] OF INSTRUCTION JUST ISSUED                  CCGA006    15
                                                                                                                 CCGA006    16
           152  0200400152 +             SSP      ROUTINE                                                        CCGA006    17
                                                  LX4    -D.USESP                                                MCG       662
           153  43563                             MX5    -D.USESL                                                MCG       663
                     16254                        BX2    -X4+X5                                                  MCG       664
                          43700                   MX7    0                                                       MCG       665
                               73621              SX6    X2+B1                                                   MCG       666
           154  5160000001 C                      SA6    N.SP        N.SP = -(USES[DI]-1)                        MCG       667
                          5170000014 C            SA7    STL         STL = 0                                     MCG       668
           155  23312                             AX3    B1,X2                                                   MCG       669
                     0303000152 +                 ZR     X3,SSP      IF N.SP @ 1                                 CCGA006    18
           156  7170737777                        SX7    -FX.X6                                                  MCG       671
                          54770                   SA7    A7          STL = -FX.X6                                MCG       672
           157  0400000152 +                      EQ     SSP                                                     CCGA006    19
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    15
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI 
  
                                        **        SNI - SELECT NEXT INSTRUCTION TO BE POSTED ( ISSUED ) FROM     MCG       676
                                        *         THE *ICL* ( ISSUE CANIDATE LIST ).                             MCG       677
                                        *         SCAN INSTRUCTIONS ON *ICL* FOR ONE THAT IS EXECUTABLE AT THE   MCG       678
                                        *         CURRENT TIME, OR ONE WITH THE BEST ISSUE ( T(IS) ) AND         MCG       679
                                        *         EXECUTE TIME ( T(EX) ) ( EARLIEST START TIME ).                MCG       680
                                        *         NOTE - PSEUDO INSTRUCTIONS AND BOUNDARY MARKERS ARE ISSUED     MCG       681
                                        *                FROM *DRR*.                                             MCG       682
                                        *                                                                        MCG       683
                                        *         EXIT   (B3) = REGNO OF ISSUABLE INST, < 0 IF NONE FOUND        MCG       684
                                        *                (B4,B5) = T(EX), T(IS)                                  MCG       685
                                        *                (A5) = LI ( ADDRESS OF LINK WORD OF ISSUABLE INSTRUCTIO MCG       686
                                        *                (A0) = *TXT* INDEX OF PREVIOUS INSTRUCTION              MCG       687
                                        *                PBI WORDS SET.                                          MCG       688
                                                                                                                 MCG       689
           160                     1     SNIA     BSS    1           TEMP TO SAVE FUNIT ORDINAL                  MCG       690
                                                                                                                 MCG       691
           161  0200400161 +             SNI      ROUTINE                                                        MCG       692
                                                                                                                 MCG       693
           162  5140000005 C             SNI0     SA4    PBI-1                                                   MCG       694
                          5130000003 C            SA3    ICL         CI = ICL                                    MCG       695
           163  56000                             S"PI"  B0          PI = 0                                      MCG       696
                     10644                        BX6    X4                                                      MCG       697
                          54641                   SA6    A4+B1       PBI = PB1(FALSE,0,INFINITY,INFINITY)        MCG       698
                               63640              SB6    X4          TIS[PBI] = INFINITY                         MCG       699
                                                                                                                 MCG       700
                                        *         GET INST DESCR, CHECK FOR FIT IN CURRENT WORD                  MCG       701
                                                                                                                 MCG       702
           164  63437                    SNI1     SB4    X3+"TB"     LI = CI + BASE                              MCG       703
                     5120000126 C                 SA2    T                                                       MCG       704
                               57441              SA4    B4-B1       DI = LI - 1  ( DESCR)                       MCG       705
           165  63520                             SB5    X2          T(IS) = T                                   MCG       706
                     20443                        LX4    58-D.SZP                                                MCG       707
                          0324000201 +            PL     X4,SNI4     IF SZ[DI] < 2 */ NO POSSIBLE SIZE FAULT     MCG       708
           166  5130000127 C                      SA3    PC                                                      MCG       709
                          43772                   MX7    -2                                                      MCG       710
                               12637              BX6    X3+X7                                                   MCG       711
           167  0316000201 +                      NZ     X6,SNI4     IF PC " 3     */ NOT IN LAST PARCEL OF WORD MCG       712
                          10244                   BX2    X4                                                      MCG       713
                               20202              LX2    1+D.SZP-D.SRP                                           MCG       714
           170  0322000200 +                      PL     X2,SNI3     IF ^SR[DI]    */ NOT SIZE REDUCABLE         MCG       715
                                                                                                                 MCG       716
                                        *         INSTRUCTION IS SIZE REDUCEABLE, CHECK A-REGISTERS TO SEE IF    MCG       717
                                        *         ADDRESS IS IN ONE OF THEM.                                     MCG       718
                                                                                                                 MCG       719
                          5120000105 C            SA2    ARA+7       I = ARA(8)                                  MCG       720
           171  55341                             SA3    "DI"-B1     R2 = DI - 1                                 MCG       721
                     6120000075 C                 SB2    ARA-1                                                   MCG       722
                               10633              BX6    X3                                                      MCG       723
           172  56621                             SA6    B2+B1       ARA(1) = [R2]                               MCG       724
                                                                                                                 MCG       725
           173  13732                    SNI2     BX7    X3-X2                                                   MCG       726
                     55221                        SA2    A2-B1       I = I - 1                                   MCG       727
                          0317000173 +            NZ     X7,SNI2     IF [I+1] " [R2]                             MCG       728
           174  65322                             SB3    A2-B2                                                   MCG       729
                     0430000200 +                 ZR     B3,SNI3     IF I = 0    */ MATCH WITH SEARCH TERMINATOR MCG       730
                                                                                                                 MCG       731
           175  5123000056 C                      SA2    TRA+RN.A0+B3              */ COMPUTE TRUE ISSUE TIME    MCG       732
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    16
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI 
  
                          63220                   SB2    X2                                                      MCG       733
           176  0652000201 +                      LE     B2,B5,SNI4                                              MCG       734
                          63520                   SB5    X2                                                      MCG       735
           177  0400000201 +                      EQ     SNI4                                                    MCG       736
                                                                                                                 MCG       737
           200  5110000011 C             SNI3     SA1    IWT               */ SET PENALITY FOR SIZE FAULT        MCG       738
                          73211                   SX2    X1+B1                                                   MCG       739
                               63525              SB5    X2+B5       T(IS) = T(IS) + IWT + 1                     MCG       740
                                                                                                                 MCG       741
                                        *         SELECT AN AVAILABLE FUNCTIONAL UNIT                            MCG       742
                                                                                                                 MCG       743
           201  20446                    SNI4     LX4    2+D.SZP-D.F1P                                           MCG       744
                     43670                        MX6    -D.F1L                                                  MCG       745
                          15746                   BX7    -X6*X4      F = F1[DI]                                  MCG       746
                                                                                                                 MCG       747
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG       748
                                                  SA3    TFU+X7      TFA = TFU(F)                                MCG       749
                                                  SB3    X3                                                      MCG       750
                                                  LE     B3,B5,SNI5  IF TFA @ T(IS)                              MCG       751
                                         #MDA     IFEQ   .CPU,74                                         ?6600   MCG       752
                                                  LX4    D.F1P-D.F2P                                             MCG       753
                                                  SX1    X7                        */ CHECK SECOND FUNIT         MCG       754
                                                  BX7    -X6*X4      F2 = F2[DI]                                 MCG       755
                                                  SA2    TFU+X7      TF2 = TFU(F2)                               MCG       756
                                                  LX4    D.F2P-D.F1P                                             MCG       757
                                                  SB4    X2                                                      MCG       758
                                                  LE     B4,B5,SNI5  IF TF2 @ T(IS)                              MCG       759
                                                  SB5    B4                                                      MCG       760
                                                  LE     B4,B3,SNI5  IF TF2 @ TF1                                MCG       761
                                                  BX7    X1                                                      MCG       762
                                         #MDA     ENDIF                                                  '6600   MCG       763
                                                  SB5    X3          T(IS) = TF1   */ MIN(TFA,TF2)               MCG       764
                                         #MD      ENDIF                                                  '66/76  MCG       765
                                                                                                                 MCG       766
                                        *         IF T(IS) @ TIS[PBI] THEN TRY TO GET A RESULT REG, CALC T(EX)   MCG       767
                                                                                                                 MCG       768
           202  0765000205 +             SNI5     GT     B5,B6,SNI6  IF T(IS) > TIS[PBI]                         MCG       769
                          5170000160 +            SA7    SNIA                                                    MCG       770
           203  20466                             LX4    D.F1P+59-D.NRP                                          MCG       771
                     0100000222 +                 RJ     DRR         CALL DRR( DI , T(IS) , T(EX) , REGNO )      MCG       772
           204  0703000206 +                      GT     B3,SNI7     IF REGNO > 0  */ INSTRUCTION IS ISSUABLE    MCG       773
                          0430000162 +            ZR     B3,SNI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION       MCG       774
                                                                                                                 MCG       775
           205  54541                    SNI6     SA5    "DI"+B1     LI = DI + 1                                 MCG       776
                     0400000215 +                 EQ     SNI9                      */ NO RESULT REG AVAIL        MCG       777
                                                                                                                 MCG       778
                                        *         COMPARE THIS INSTRUCTION TIMING WITH THAT OF *PBI*             MCG       779
                                                                                                                 MCG       780
           206  54541                    SNI7     SA5    "DI"+B1     LI = DI + 1                                 MCG       781
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG       782
                                                  GT     B5,B6,SNI9  IF T(IS) > TIS[PBI]                         MCG       783
                                                  SA3    PBI                                                     MCG       784
                                                  LT     B5,B6,SNI8  IF T(IS) < TIS[PBI]                         MCG       785
                                                  LX3    -PB.TEXP                                                MCG       786
                                                  SB2    X3                                                      MCG       787
                                                  GE     B4,B2,SNI9  IF T(EX) \ TEX[PBI]                         MCG       788
                                         #MD      ELSE                                                   '66?76  MCG       789
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    17
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI 
  
                     54440                        SA4    "DI"                                                    MCG       790
                          0646000215 +            GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                         MCG       791
                                         #MD      IFGT   .CPU,74                                         ?7600   MCG       792
                                                  LX4    -D.LDP                                                  MCG       793
                                         .D       BIT    D.^DP-D.LDP                                             MCG       794
                                                  SX6    .D+1                                                    MCG       795
                                                  SB5    B4          T(IS) = T(EX)                               MCG       796
                                                  BX7    X6*X4                                                   MCG       797
                                                  LX4    D.LDP-D.FTP                                             MCG       798
                                                  NZ     X7,SNI8     IF ^D[DI] ! LD[DI]                          MCG       799
                                                                                                                 MCG       800
                                        *         ADJUST T(EX) TO ACCOUNT FOR THE FUNIT TO REGISTER INPUT PATH   MCG       801
                                                                                                                 MCG       802
                                                  SA2    T                                                       MCG       803
                                                  SA1    TRS                                                     MCG       804
                                                  MX6    -D.FTL                                                  MCG       805
                                                  BX7    -X6*X4                                                  MCG       806
                                                  IX3    X7-X2                                                   MCG       807
                                                  SB2    X3+B5                                                   MCG       808
                                                  SB4    B4-B1       T(EX) = T(EX) - 1                           MCG       809
                                                  AX1    B2,X1       XSW = SHIFT(TRS, -(T(IS)+FT[DI]-T) )        MCG       810
                                                  MX3    1                                                       CCG0196     5
                                                  BX1    -X3*X1                                                  CCG0196     6
                                                                                                                 MCG       811
                                         SNI7A    LX1    -1          XSW = SHIFT( XSW , 59 )                     MCG       812
                                                  SB4    B4+B1       T(EX) = T(EX) + 1                           MCG       813
                                                  MI     X1,SNI7A    IF XSW < 0    */ RESULT STORED AT THIS TIME MCG       814
                                                  SB5    B4          T(IS) = T(EX)                               MCG       815
                                                  GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                         MCG       816
                                         #MD      ENDIF                                                  '7600   MCG       817
                                                                                                                 MCG       818
                                        *         INSTRUCTION BETTER THAN PREVIOUS BEST, SAVE INFO IN *PBI*      MCG       819
                                                                                                                 MCG       820
           207  76450                    SNI8     SX4    B5                                                      MCG       821
                     5110000160 +                 SA1    SNIA                                                    MCG       822
                               76340              SX3    B4                                                      MCG       823
                                                  LX4    PB.TISP                                                 MCG       824
           210  27634                             PX6    B3,X4                                                   MCG       825
                     74700                        SX7    "PI"                                                    MCG       826
                          20322                   LX3    PB.TEXP                                                 MCG       827
                               63210              SB2    X1                                                      MCG       828
           211  75257                             SX2    A5-"TB"                                                 MCG       829
                     12636                        BX6    X3+X6                                                   MCG       830
                          5110000126 C            SA1    T                                                       MCG       831
           212  20722                             LX7    PB.PIP                                                  MCG       832
                                                  LX2    PB.LIP                                                  MCG       833
                     27222                        PX2    B2,X2                                                   MCG       834
                          5160000006 C            SA6    PBI         PBI(0) = PBII(REG,T(EX),T(IS))              MCG       835
           213  36772                             IX7    X7+X2                                                   MCG       836
                     6221000000                   SB2    X1+                                                     MCG       837
                               54761              SA7    A6+B1       PBI(1) = PBII2(FU,PI,LI)                    MCG       838
                                                                                                                 MCG       839
           214  0442000161 +                      EQ     B4,B2,SNI   IF T(EX) = T  */ EXIT IF THIS INST IS EXEC  MCG       840
                                                                                                                 MCG       841
                          6165000000              SB6    B5+         TIS[PBI] = T(IS)                            MCG       842
                                                                                                                 MCG       843
                                        *         ADVANCE TO NEXT INSTRUCTION ON CHAIN                           MCG       844
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    18
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI 
  
                                                                                                                 MCG       845
           215  55057                    SNI9     S"PI"  A5-"TB"     PI = LI - BASE                              MCG       846
                                                  LX5    -I.LINKP                                                MCG       847
                     73350                        SX3    X5          CI = LINK[LI]                               MCG       848
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG       849
                                                  SA1    PBI                                                     MCG       850
                                                  ZR     X3,SNI10    IF CI = 0                                   MCG       851
                                                                                                                 MCG       852
                                        *         ONLY CONSIDER INSTRUCTIONS THAT ARE "LATE" SO WE DO NOT CLOG   MCG       853
                                        *         UP THE REGISTERS WITH RESULTS THAT CANNOT BE USED.             MCG       854
                                        *         I.E. DO NOT TRY TO CODE THE SEQUENCE IN A TIME LESS THAN THE   MCG       855
                                        *         CRITICAL PATH TIME ( AN IMPOSSABILITY ).                       MCG       856
                                                                                                                 MCG       857
                                                  SA5    "TB"+X3     LI = BASE + CI                              MCG       858
                                                  UX7    B3,X1                                                   MCG       859
                                                  MI     B3,SNI1     IF REG[PBI] < 0 */NO ISSUABLE INST FOUND    MCG       860
                                                  SA2    T                                                       MCG       861
                                                  MX6    -I.LSTL                                                 MCG       862
                                                  LX5    -I.LSTP                                                 MCG       863
                                                  BX7    -X6*X5                                                  MCG       864
                                                  IX6    X2-X7                                                   MCG       865
                                         SNI.P    SX6    X4+DELTAT                                               MCG       866
                                                  PL     X6,SNI1     IF IF LST[LI] @ T+DT  */ INST IS *LATE*     MCG       867
                                                                                                                 MCG       868
                                         SNI10    BSS    0                                                       MCG       869
                                         #MD      ELSE                                                   ?66/76  MCG       870
                          0313000164 +            NZ     X3,SNI1     IF CI " 0                                   MCG       871
                                                                                                                 MCG       872
           216  5110000006 C                      SA1    PBI                                                     MCG       873
                                         #MD      ENDIF                                                          MCG       874
                          54211                   SA2    A1+B1                                                   MCG       875
                               26331              UX3    B3,X1       REGNO = REG[PBI]                            MCG       876
                                                  LX2    -PB.LIP                                                 MCG       877
           217  0730000161 +                      MI     B3,SNI      IF REGNO < 0  */ NO ISSUABLE INST FOUND     MCG       878
                                                                                                                 MCG       879
                          53527                   SA5    X2+"TB"     LI = LI[PBI] + BASE                         MCG       880
                               20252              LX2    PB.LIP-PB.PIP                                           MCG       881
           220  53020                             S"PI"  X2          PI = PI[PBI]                                MCG       882
                                                  LX1    -PB.TISP                                                MCG       883
                     63510                        SB5    X1          T(IS) = TIS[PBI]                            MCG       884
                          20152                   LX1    PB.TISP-PB.TEXP                                         MCG       885
                               63410              SB4    X1          T(EX) = TEX[PBI]                            MCG       886
           221  0400000161 +                      EQ     SNI                                                     MCG       887
  
  
                                                  IFGE   .CPU,74,2                                               MCG       889
                                         SNIB     SX6    X4+0        SKELTON TO PLUG *SNI.P*                     MCG       890
                                                  PL     X4,SNI1                                                 MCG       891
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    19
        DRR - DETERMINE RESULT REGISTER / T(EX)                       DRR 
  
                                        **        DRR - DETERMINE RESULT REGISTER / T(EX) OF INSTRUCTION         MCG       893
                                        *                                                                        MCG       894
                                        *         ENTRY  (A4) = INSTRUCTION DESCRIPTOR ADDRESS ( DI )            MCG       895
                                        *                (X4) = SHIFT([DI],59-D.NRP)                             MCG       896
                                        *                                                                        MCG       897
                                        *         EXIT   (B5) = T(IS) UPDATED                                    MCG       898
                                        *                (B4) = T(EX)                                            MCG       899
                                        *                (B3) = ACT/REGNO, ACT = 0, THEN ISSUED PSEUDO INSTRUCTI MCG       900
                                        *                                  ACT < 0, IF NO RESULT REG AVAIL       MCG       901
                                        *                                  ACT > 0, REGNO = ACT                  MCG       902
                                        *                                                                        MCG       903
                                        *         CALLS - CRU, FXR , PPI                                         MCG       904
                                        *         PRESERVES A0, A4, X0, B6, B7                                   MCG       905
                                                                                                                 MCG       906
           222  0200400222 +             DRR      ROUTINE                                                        MCG       907
           223  24634                             NX6    B3,X4                                                   MCG       908
                     6145000000                   SB4    B5+         T(EX) = T(IS)                               MCG       909
                               20467              LX4    1+D.NRP-D.TYP             */ [DI] POS FOR TYPE EXTRACT  MCG       910
           224  0233000225 +                      JP     B3+DRR1     JUMP( NORMC( [X4] ) )                       MCG       911
                                                                                                                 MCG       912
           225                           DRR1     BSS    0                                                       MCG       913
                                                  QUAL   DRR                                                     MCG       914
                                                                                                                 MCG       915
           225  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG       916
                          0400000265 +            EQ     RJRS                                                    MCG       917
                                                                                                                 MCG       918
           226  0400000272 +                      EQ     PS                                                      MCG       919
                                                                                                                 MCG       920
           227  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG       921
                          0400000300 +            EQ     PRS                                                     MCG       922
                                                                                                                 MCG       923
           230  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 CCG3      117
                          0400000323 +            EQ     ECJ         EC JUMP                                     MCG       924
                                                                                                                 MCG       925
           231  0400000307 +                      EQ     LVL2                                                    MCG       926
                                                                                                                 MCG       927
           232  0400000311 +                      EQ     LD                                                      MCG       928
                                                                                                                 MCG       929
           233  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       930
                          0400000317 +            EQ     ST                                                      MCG       931
                                                                                                                 MCG       932
           234  0400000332 +                      EQ     JP                                                      MCG       933
                                                                                                                 MCG       934
           235  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       935
                          0400000334 +            EQ     XMT                                                     MCG       936
                                                                                                                 MCG       937
           236  55541                             SA5    "DI"-B1     R2 = DI - 1                                 MCG       938
                     0400000344 +                 EQ     KS                                                      MCG       939
                                                                                                                 MCG       940
           237  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG       941
                          0400000347 +            EQ     PI                        */ PSEUDO INSTRUCTION         MCG       942
                                                                                                                 MCG       943
           240  0400000257 +                      EQ     MUC                                                     MCG       944
                                                                                                                 MCG       945
                                        *         EQ     SCR         ANY X REGISTER                              MCG       946
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    20
        DRR - DETERMINE RESULT REGISTER / T(EX)                       SCR                 DRR 
  
                                        *         SCR - FIND AN X-REGISTER                                       MCG       948
                                                                                                                 MCG       949
           241  5130000014 C             SCR      SA3    STL                                                     MCG       950
                          7253777400              SX5    FX.XT+FX.SCR+X3   CLASS = SCR & ^STL                    MCG       951
                                                                                                                 MCG       952
           242  5110000012 C             SCR1     FXR    X5,DRR2     REGNO = FXR( ^STL )                         MCG       953
                                                                                                                 MCG       954
                                        *         NO REGISTER AVAILABLE, CHECK STORE LOCKOUT FLAG                MCG       955
                                                                                                                 MCG       956
           246  5150000012 C                      SA5    AXR         CLASS = AXR                                 MCG       957
                          5130000014 C            SA3    STL                                                     MCG       958
           247  12735                             BX7    X3+X5                                                   MCG       959
                     0307000242 +                 ZR     X7,SCR1     IF AXR & STL " 0  */ X6 LOCKOUT AND AVAIL   MCG       960
           250  0303000222 +                      ZR     X3,DRR      IF STL = 0    */ NO *ST* LOCKOUT            MCG       961
                          5130000000 X            SA3    L.OTI                                                   MCG       962
           251  0303000222 +                      ZR     X3,DRR      IF L.OTI = 0  */ NOT JAM MODE               MCG       963
                                                                                                                 MCG       964
                          5110000012 C            FXR    ST,DRR2     REGNO = FXR( ST )                           MCG       965
           256  0400000222 +                      EQ     DRR                                                     MCG       966
  
  
                                        *         MUC - MULTI USE COMPUTATION                                    MCG       968
                                                                                                                 MCG       969
           257  5110000012 C             MUC      FXR    ST,DRR2     REGNO = FXR( ST )                           MCG       970
           264  7150777400                        SX5    FX.XT+FX.SCR      CLASS = SCR                           MCG       971
                          0400000242 +            EQ     SCR1                                                    MCG       972
  
  
  
                                        **        INSTRUCTION PRECEDES AN RJ *RS*  ( UP / NR )                   MCG       974
                                                                                                                 MCG       975
           265  0100000412 +             RJRS     RJ     FBR         REGNO = FBR( R1RS )                         FCC0641    17
           266  0730000222 +                      MI     B3,DRR      IF ACT < 0    */ NO B-REG FOUND             FCC0641    18
                          5226000046 C            SA2    TRA+X6                    */ ADJUST ISSUE TIME          MCG       986
           267  63220                             SB2    X2                                                      MCG       987
                     0652000271 +                 LE     B2,B5,RJRS1 T(IS) = MAX( T(IS) , TRA(REGNO) )           MCG       988
                               63420              SB4    X2                                                      MCG       989
           270  66520                             SB5    B2                                                      MCG       990
                                                                                                                 MCG       991
           271  10744                    RJRS1    BX7    X4                                                      MCG       992
                     20722                        LX7    D.TYP-1-D.PSP                                           MCG       993
                          0327000241 +            PL     X7,SCR      IF ^PS[DI]                                  MCG       994
  
  
  
                                        *         INSTRUCTION PRECEDES A STORE                                   MCG       996
                                                                                                                 MCG       997
           272  5110000012 C             PS       FXR    ST,DRR2     REGNO = FXR( ST )                           MCG       998
           277  0400000222 +                      EQ     DRR                                                     MCG       999
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    21
        DRR - DETERMINE RESULT REGISTER / T(EX)                       PRS                 DRR 
  
                                        *         INSTRUCTION PRECEDES A *RS* ( REG STORE )                      MCG      1001
                                                                                                                 MCG      1002
           300  43266                    PRS      MX2    -SO.REGL                                                MCG      1003
                     20554                        LX5    -R1.SOP                                                 MCG      1004
                          15652                   BX6    -X2*X5      REGNO = SOREG[R1RS]                         MCG      1005
                               63360              SB3    X6                                                      MCG      1006
           301  0100000353 +                      RJ     CRU         ACT = CRU( REGNO )                          MCG      1007
           302  0730000222 +                      MI     B3,DRR      IF ACT < 0    */ REGNO NOT AVAIL NOW        MCG      1008
                                                                                                                 MCG      1009
                          10744                   BX7    X4                                                      FCC0881     8
                               20731              LX7    D.TYP-1-D.XMTP                                          FCC0881     9
           303  0337000304 +                      MI     X7,PRS1     IF XMT[DI]                                  FCC0881    10
                                                                                                                 FCC0881    11
                                                  IFEQ   .CPU,74,2                                       ?6600   FCC0881    12
                                                  LX7    D.XMTP-D.LDP                                            FCC0881    13
                                                  MI     X7,LD1      IF LD[DI]                                   FCC0881    14
                          0400000222 +            EQ     DRR2                                                    FCC0881    15
                                                                                                                 FCC0881    16
           304  5054777775               PRS1     SA5    "DI"-2      R1 = DI - 2                                 FCC0881    17
                          20534                   LX5    -R1.RJP                                                 FCC0881    18
                               15750              BX7    "RN"X5                                                  FCC0881    19
           305  53277                             SA2    "TB"+X7     LJ = BASE + RJ[R1]                          FCC0881    20
                                                  LX2    -I.REGP                                                 FCC0881    21
                     63220                        SB2    X2                                                      FCC0881    22
                          0523000222 +            NE     B2,B3,DRR2  IF REG[LJ] " REGNO                          FCC0881    23
                                                                                                                 FCC0881    24
           306  20540                             LX5    R1.RJP                                                  FCC0881    25
                                                  LX2    I.REGP            (X2) = LINK WORD OF PRED              CCGA006    20
                     15750                        BX7    "RN"X5      RI = RN[R1]                                 FCC0881    26
                          0400000340 +            EQ     XMT1                                                    FCC0881    27
  
  
  
                                        *         LEVEL 2 LD/ST  ( DRL/DWL )                                     MCG      1019
                                                                                                                 MCG      1020
           307  20616                    LVL2     LX6    D.L2P-47+59-D.STP                                       MCG      1021
                     0326000241 +                 PL     X6,SCR      IF ^ST[DI]                                  MCG      1022
           310  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1023
                          0400000317 +            EQ     ST                                                      MCG      1024
  
  
  
                                        *         LD - INSTRUCTION IS A LOAD                                     MCG      1026
                                                                                                                 MCG      1027
           311  5150000013 C             LD       SA5    ALR                                                     MCG      1028
                          5110000012 C            FXR    X5,LD1,DRR  REGNO = FXR( ALR )                          MCG      1029
           316                           LD1      BSS    0                                                       MCG      1030
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG      1031
                                                                                                                 MCG      1032
                                        *         INSTRUCTION CANNOT ISSUE UNTIL LAST STORE IS COMPLETE          MCG      1033
                                                                                                                 MCG      1034
                                                  SA2    LST                                                     MCG      1035
                                                  SB2    X2                                                      MCG      1036
                                                  LE     B2,B5,DRR2  T(IS) = MAX( T(IS) , LST )                  MCG      1037
                                                  SB5    X2                                                      MCG      1038
                                                  SB4    X2                                                      MCG      1039
                                         #MD      ENDIF                                                  '6600   MCG      1040
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    22
        DRR - DETERMINE RESULT REGISTER / T(EX)                       LD                  DRR 
  
           316  0400000222 +                      EQ     DRR2                                                    MCG      1041
  
  
  
                                        *         STORE INSTRUCTION                                              MCG      1043
                                                                                                                 MCG      1044
           317  15650                    ST       BX6    "RN"X5      RI = RN[R1]                                 MCG      1045
                     53367                        SA3    "TB"+X6     LP = BASE + RI                              MCG      1046
                                                  LX3    -I.REGP                                                 MCG      1047
                          63330                   SB3    X3          REGNO = REG[LP]                             MCG      1048
           320  5223000046 C                      SA2    TRA+X3                                                  MCG      1049
                          63220                   SB2    X2                                                      MCG      1050
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG      1051
                                                  LE     B2,B5,ST1   T(IS) = MAX( T(IS) , TRA(REGNO) )           MCG      1052
                                                  SB5    X2                                                      MCG      1053
                                                  SB4    X2                                                      MCG      1054
                                         ST1      SA1    LST                                                     MCG      1055
                                                  SA2    LLT                                                     MCG      1056
                                                  IX7    X1-X2                                                   MCG      1057
                                                  MI     X7,ST2      TLS = MAX( LST , LLT )                      MCG      1058
                                                  BX2    X1                                                      MCG      1059
                                         ST2      SB2    X2                                                      MCG      1060
                                         #MD      ENDIF                                                  '6600   MCG      1061
           321  0652000222 +                      LE     B2,B5,DRR2  T(IS/EX) = MAX( T(IS/EX) , TLS )            MCG      1062
                          63520                   SB5    X2                                                      MCG      1063
                               63420              SB4    X2                                                      MCG      1064
           322  0400000222 +                      EQ     DRR2                                                    MCG      1065
  
  
                                        *         CONDITIONAL RJ ( RJXJ )                                        CCG3      118
                                                                                                                 CCG3      119
           323  5120000127 C             ECJ      SA2    PC                                                      CCG3      120
                          0302000326 +            ZR     X2,ECJ1     IF PC = 0     */ AT BEGINNING OF A WORD     CCG3      121
           324  7222777774                        SX2    X2-3                                                    CCG3      122
                          0302000326 +            ZR     X2,ECJ1     IF PC = 3     */ SNI BUMPED T(IS)           CCG3      123
           325  5110000011 C                      SA1    IWT                                                     CCG3      124
                          37212                   IX2    X1-X2                                                   CCG3      125
                               63525              SB5    B5+X2       T(SI) = T(IS) + IWT + 3-PC                  CCG3      126
           326  66450                    ECJ1     SB4    B5          T(EX) = T(IS)                               CCG3      127
                     15650                        BX6    "RN"X5                                                  CCG3      128
                          53367                   SA3    "TB"+X6     LP = BASE + RI[R1]                          CCG3      129
                                                  LX3    -I.REGP                                                 CCG3      130
                               63330              SB3    X3          REGNO = REG[LP]                             CCG3      131
           327  5223000046 C                      SA2    TRA+X3                                                  CCG3      132
                          6222000000              SB2    X2+                                                     CCG3      133
           330  0642000222 +                      LE     B2,B4,DRR   T(EX) = MAX( T(EX) , TRA(REGNO) )           CCG3      134
                          6142000000              SB4    B2+                                                     CCG3      135
           331  0400000222 +                      EQ     DRR                                                     CCG3      136
                                                                                                                 CCG3      137
                                        *         JUMPS ( JPX, JPBB, JIN, UJP, RJX )                             CCG3      138
                                                                                                                 MCG      1071
           332  0100000470 +             JP       RJ     PJI         PROCESS THE JUMP                            MCG      1072
           333  66300                             SB3    B0          REGNO = 0                                   MCG      1073
                     0400000222 +                 EQ     DRR                                                     MCG      1074
  
  
                                        *         XMT/SXT INSTRUCTIONS                                           MCG      1076
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    23
        DRR - DETERMINE RESULT REGISTER / T(EX)                       XMT                 DRR 
  
                                                                                                                 MCG      1077
           334  15750                    XMT      BX7    "RN"X5      RI = RN[R1]                                 MCG      1078
                     20534                        LX5    -R1.RJP                                                 MCG      1079
                          15650                   BX6    "RN"X5      RJ = RJ[R1]                                 MCG      1080
                               53267              SA2    "TB"+X6     LJ = BASE + RJ                              CCGA006    21
           335  43164                             MX1    -I.USESL+1                                              CCGA006    22
                     63320                        SB3    X2          REGNO = REG[LJ]                             CCGA006    23
                          20161                   LX1    I.USESP+1                                               CCGA006    24
                               15321              BX3    -X1*X2                                                  CCGA006    25
           336  0313000241 +                      NZ     X3,SCR      IF USES[LJ] " 1                             CCGA006    26
                          5113000015 C            SA1    RVT+B3                                                  MCG      1087
           337  0331000241 +                      MI     X1,SCR      IF LOCK[RVT(REGNO)]                         MCG      1088
                                                                                                                 MCG      1089
                                        *         ISSUE THE INSTRUCTION                                          MCG      1090
                                                                                                                 MCG      1091
           340  5173000015 C             XMT1     SA7    RVT+B3      RVT(REGNO) = RI                             FCC0881    28
                          76310                   SX3    B1                                                      CCGA006    27
                               20360              LX3    I.USESP                                                 CCGA006    28
           341  37623                             IX6    X2-X3       USES[LJ] = USES[LJ] - 1                     CCGA006    29
                     54620                        SA6    A2                                                      CCGA006    30
                          54541                   SA5    "DI"+B1     LI = DI + 1                                 MCG      1093
           342  0100000612 +                      RJ     AIL         CALL AIL( PI , LI , REGNO )                 MCG      1094
                                                  PRINT  II,(* XMT X*O1*   OMITTED*),B3                          FCC0881    29
           343  66300                             SB3    B0          ACT = 0                                     MCG      1095
                     0400000222 +                 EQ     DRR                                                     MCG      1096
  
  
  
                                        *         CONSTANT SHIFT INSTRUCTION                                     MCG      1098
                                                                                                                 MCG      1099
           344  20530                    KS       LX5    -IH.RFP                                                 MCG      1100
                     53357                        SA3    "TB"+X5     LJ = BASE + RF[R2]                          MCG      1101
                                                  LX3    -I.REGP                                                 MCG      1102
                          5223000046 C            SA2    TRA+X3                                                  MCG      1103
           345  63330                             SB3    X3          REGNO = REG[LJ]                             MCG      1104
                     63220                        SB2    X2                                                      MCG      1105
                          0652000222 +            LE     B2,B5,DRR   T(IS/EX) = MAX( T(IS/EX) , TRA(REGNO) )     MCG      1106
           346  63420                             SB4    X2                                                      MCG      1107
                     63520                        SB5    X2                                                      MCG      1108
                          0400000222 +            EQ     DRR                                                     MCG      1109
  
  
  
                                        *         PSEUDO INSTRUCTIONS ( EOQ, BOS, EOS, DAR, DEF, RS, LAB, ENT )  MCG      1111
                                                                                                                 MCG      1112
           347  0100000530 +             PI       RJ     PPI                                                     MCG      1113
           350  66300                             SB3    B0          ACT = 0                                     MCG      1114
                     0400000222 +                 EQ     DRR                                                     MCG      1115
  
  
                                         #MD      IFLT   .CPU,74                                         '6400   MCG      1117
                                 222 +   DRR2     EQU    DRR                                                     MCG      1118
                                         #MD      ELSE                                                   '6400   MCG      1119
                                                                                                                 MCG      1120
                                        *         GET OPERAND AVAILABLE TIMES AND ADJUST T(EX) ( TYPES I & III ) MCG      1121
                                                                                                                 MCG      1122
                                         DRR2     MX1    -D.TYL                                                  MCG      1123
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    24
        DRR - DETERMINE RESULT REGISTER / T(EX)                       GOT                 DRR 
  
                                                  SA5    "DI"-2      R1 = DI - 2                                 MCG      1124
                                                  BX7    -X1*X4                                                  MCG      1125
                                                  NZ     X7,DRR5     IF TYPE[DI] " I                             MCG      1126
                                                                                                                 MCG      1127
                                                  AX5    R1.RIL                                                  MCG      1128
                                                  BX7    "RN"X5      R = RK[R1]                                  MCG      1129
                                                  SA2    "TB"+X7                                                 MCG      1130
                                                  AX5    R1.RIL                                                  MCG      1131
                                                  LX2    -I.REGP     REGNO = REG[BASE+RN]                        MCG      1132
                                                  SA1    TRA+X2                                                  MCG      1133
                                                  SB2    X1                                                      MCG      1134
                                                  LE     B2,B4,DRR3  T(EX) = MAX( T(EX) , TRA(REGNO) )           MCG      1135
                                                  SB4    X1                                                      MCG      1136
                                         DRR3     BX7    "RN"X5      R = RJ[R1]                                  MCG      1137
                                                  SA2    "TB"+X7                                                 MCG      1138
                                                  LX2    -I.REGP                                                 MCG      1139
                                                  SA1    TRA+X2                                                  MCG      1140
                                                  SB2    X1                                                      MCG      1141
                                                  LE     B2,B4,DRR   T(EX) = MAX( T(EX) , TRA(REGNO) )           MCG      1142
                                                  SB4    X1                                                      MCG      1143
                                                  EQ     DRR                                                     MCG      1144
                                                                                                                 MCG      1145
                                        *         PROCESS TYPE III INSTRUCTION, *RI* IS ALWAYS A DEFINATION      MCG      1146
                                                                                                                 MCG      1147
                                         DRR5     AX7    1                                                       MCG      1148
                                                  ZR     X7,DRR      IF TYPE[DI] = II  */ HAS NO OPERANDS        MCG      1149
                                                  SA2    "DI"-B1     R2 = DI - 1                                 MCG      1150
                                                  LX2    -IH.RFP                                                 MCG      1151
                                                  BX3    "RN"X2      RF = RF[R2]                                 MCG      1152
                                                  ZR     X3,DRR      IF RF = 0                                   MCG      1153
                                                  SA2    "TB"+X3                                                 MCG      1154
                                                  LX2    -I.REGP                                                 MCG      1155
                                                  SA3    TRA+X2                                                  MCG      1156
                                                  SB2    X3                                                      MCG      1157
                                                  LE     B2,B4,DRR   T(EX) = MAX( T(EX) , TRA(REGNO) )           MCG      1158
                                                  SB4    B2                                                      MCG      1159
                                                  EQ     DRR                                                     MCG      1160
                                                                                                                 MCG      1161
                                         #MD      ENDIF                                                          MCG      1162
                                                  QUAL                                                           MCG      1163
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    25
        CRU - CHECK REMAINING USES                                    CRU 
  
                                        **        CRU - CHECK REMAINING USES OF SPECIFIED REGISTER               MCG      1165
                                        *                TO SEE IF INSTRUCTION CAN BE ISSUED NOW                 MCG      1166
                                        *                                                                        MCG      1167
                                        *         ENTRY  (B3) = REGNO                                            MCG      1168
                                        *                (A4,X4) = DI, SHIFT([DI], -D.TYP )                      MCG      1169
                                        *                                                                        MCG      1170
                                        *         EXIT   (B3) = REGNO, IF AVAIL, ELSE < 0                        MCG      1171
                                        *                B4, B5 UPDATED                                          MCG      1172
                                                                                                                 MCG      1173
           351  5122000046 C             CRU0     SA2    TRA+B2                                                  MCG      1174
                          66320                   SB3    B2          REGNO = SAVE                                MCG      1175
                               63220              SB2    X2                                                      MCG      1176
           352  0652000353 +                      LE     B2,B5,CRU   T(IS/EX) = MAX( T(IS/EX) , TRA(REGNO) )     MCG      1177
                          63420                   SB4    X2                                                      MCG      1178
                               63520              SB5    X2                                                      MCG      1179
                                                                                                                 MCG      1180
           353  0200400353 +             CRU      ROUTINE                                                        MCG      1181
           354  7163777751                        SX6    B3-26B                                                  FCC1056     9
                          0336000363 +            MI     X6,CRU1     IF REGNO < 26B  */ ^ A ST-REGISTER          FCC1056    10
           355  5110000000 X                      SA1    L.OTI                                                   FCC1056    11
                          0311000363 +            NZ     X1,CRU1     IF L.OTI " 0  */ IN JAM MODE                FCC1056    12
           356  5120000001 C                      SA2    N.SP                                                    FCC1056    13
                          7262777776              SX6    X2-1                                                    FCC1056    14
           357  0306000363 +                      ZR     X6,CRU1     IF N.SP = 1   */ ALL STORES ISSUED          FCC1056    15
                          76110                   SX1    B1                                                      FCC1056    16
                               76230              SX2    B3                                                      FCC1056    17
           360  13321                             BX3    X2-X1       OSR = XOR(REGNO,1)                          FCC1056    18
                     5213000015 C                 SA1    RVT+X3                                                  FCC1056    19
                               67271              SB2    "TB"-B1                                                 FCC1056    20
           361  53212                             SA2    B2+X1       DOS = BASE-1 + RI[RVT(OSR)]                 FCC1056    21
                     20225                        LX2    59-D.PRSP                                               FCC1056    22
                          0322000363 +            PL     X2,CRU1     IF ^PRS[DOS]                                FCC1056    23
                                                                                                                 FCC1056    24
           362  67301                             SB3    -B1         REGNO = -1    */ INDICATE REG NOT AVAIL     FCC1056    25
                     0400000353 +                 EQ     CRU                                                     FCC1056    26
                                                                                                                 FCC1056    27
           363  5113000015 C             CRU1     SA1    RVT+B3      R = RVT(REGNO)                              FCC1056    28
                          66230                   SB2    B3          SAVE = REGNO                                MCG      1183
                               67301              SB3    -B1         REGNO = -1                                  MCG      1184
           364  5120000012 C                      SA2    AXR                                                     MCG      1185
                          5132000140 C            SA3    RBV+B2                                                  MCG      1186
           365  11623                             BX6    X2*X3                                                   MCG      1187
                     0316000351 +                 NZ     X6,CRU0     IF AXR & RBV(REGNO) " 0 */ REG IS AVAIL     MCG      1188
                               53317              SA3    "TB"+X1     LP = BASE + R                               MCG      1189
           366  43263                             MX2    -I.USESL                                                MCG      1190
                     20314                        LX3    -I.USESP                                                MCG      1191
                          73110                   SX1    X1                        */ REMOVE LOCK BIT            MCG      1192
                               15232              BX2    -X2*X3      U = USES[LP]                                MCG      1193
           367  43672                             MX6    -D.TYL                                                  MCG      1194
                     0302000406 +                 ZR     X2,CRU4     IF U = 0                                    FCC1555X    4
           370  7252777775                        SX5    X2-2                                                    MCG      1196
                          15746                   BX7    -X6*X4                                                  MCG      1197
           371  0335000376 +                      MI     X5,CRU2     IF U = 1                                    FCC1056    29
                          0315000353 +            NZ     X5,CRU      IF U > 2                                    MCG      1199
                                                                                                                 MCG      1200
                                        *         CHECK 2 USES CASE                                              MCG      1201
                                                                                                                 MCG      1202
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    26
        CRU - CHECK REMAINING USES                                    CRU 
  
           372  0317000353 +                      NZ     X7,CRU      IF TYPE[DI] " I                             MCG      1203
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      1204
           373  20534                             LX5    -R1.RJP                                                 MCG      1205
                     15750                        BX7    "RN"X5                                                  MCG      1206
                          20520                   LX5    R1.RJP-R1.RKP                                           MCG      1207
                               37271              IX2    X7-X1                                                   MCG      1208
           374  0312000353 +                      NZ     X2,CRU      IF RJ[R1] " R                               MCG      1209
                          15550                   BX5    "RN"X5                                                  MCG      1210
                               37275              IX2    X7-X5                                                   MCG      1211
           375  0302000351 +                      ZR     X2,CRU0     IF RJ[R1] = RK[R1]                          MCG      1212
                          0400000353 +            EQ     CRU                                                     MCG      1213
                                                                                                                 MCG      1214
           376  20773                    CRU2     LX7    -1                                                      FCC1056    30
                     0337000353 +                 MI     X7,CRU      IF TYPE[DI] = II ! IV                       MCG      1216
           377  0307000402 +                      ZR     X7,CRU3     IF TYPE[DI] = I                             FCC1056    31
  
                                        *         CHECK TYPE III INSTRUCTION                                     MCG      1219
                                                                                                                 MCG      1220
                          55541                   SA5    "DI"-B1     R2 = DI - 1                                 MCG      1221
                               20530              LX5    -IH.RFP                                                 MCG      1222
           400  15750                             BX7    "RN"X5                                                  MCG      1223
                     37271                        IX2    X7-X1                                                   MCG      1224
                          0302000351 +            ZR     X2,CRU0     IF RF[R2] = R                               MCG      1225
           401  0400000353 +                      EQ     CRU                                                     MCG      1226
                                                                                                                 MCG      1227
           402  5054777775               CRU3     SA5    "DI"-2      R1 = DI - 2                                 FCC1056    32
                          20534                   LX5    -R1.RJP                                                 MCG      1229
                               15750              BX7    "RN"X5                                                  MCG      1230
           403  37217                             IX2    X1-X7                                                   MCG      1231
                     0302000351 +                 ZR     X2,CRU0     IF RJ[R1] = R                               MCG      1232
                               20520              LX5    R1.RJP-R1.RKP                                           MCG      1233
           404  15750                             BX7    "RN"X5                                                  MCG      1234
                     37217                        IX2    X1-X7                                                   MCG      1235
                          0302000351 +            ZR     X2,CRU0     IF RK[R1] = R                               MCG      1236
           405  0400000353 +                      EQ     CRU                                                     MCG      1237
                                                                                                                 FCC1555X    5
                                        *         USES = 0, R-NUM IN REG MUST BE RESULT OF A FULL LOCK,          FCC1555X    6
                                        *         IF THIS INSTRUCTION *PRS* A TEMP LOCK, THEN TRY TO ASSIGN      FCC1555X    7
                                        *         ANOTHER B-REGISTER.                                            FCC1555X    8
                                                                                                                 FCC1555X    9
           406  5054000002               CRU4     SA5    A4+2        R1RS = R1 + 2                               FCC1555X   10
                          10655                   BX6    X5                                                      FCC1555X   11
                               20645              LX6    59-R1.SOP-SO.LKP                                        FCC1555X   12
           407  0326000351 +                      PL     X6,CRU0     IF SOLK[R1RS] " 1  */ NOT A TEMP LOCK       FCC1555X   13
                          0100000412 +            RJ     FBR         FIND ANOTHER B-REGISTER                     FCC1555X   14
           410  0730000353 +                      MI     B3,CRU      IF ACT < 0    */ NONE FOUND                 FCC1555X   15
                          66230                   SB2    B3                                                      FCC1555X   16
           411  0400000351 +                      EQ     CRU0                                                    FCC1555X   17
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    27
        FBR - FIND AN AVAILABLE B-REGISTER ( *RJRS* ONLY )            FBR 
  
                                        **        FBR - FIND AN AVAILABLE B-REGISTER FOR AN INSTRUCTION THAT     FCC0641    20
                                        *                            PRECEEDS A *RJRS*.                          FCC0641    21
                                        *                                                                        FCC0641    22
                                        *         ENTRY  (A5,X5) = R1RS, [R1RS] , R1 WORD OF THE RJ *RS*         FCC0641    23
                                        *                                                                        FCC0641    24
                                        *         EXIT   (B3) = ACT , < 0 IF NO B-REG WAS FOUND                  FCC0641    25
                                        *                (X6) = REGNO , OF THE B-REGISTER                        FCC0641    26
                                                                                                                 FCC0641    27
           412  0200400412 +             FBR      ROUTINE                                                        FCC0641    28
           413  20554                             LX5    -R1.SOP                                                 FCC0641    29
                     43266                        MX2    -SO.REGL                                                FCC0641    30
                          15652                   BX6    -X2*X5      REGNO = SOREG[R1RS]                         FCC0641    31
           414  0100000423 +                      RJ     CBR         ACT = CBR(REGNO)                            FCC0641    32
           415  0630000412 +                      PL     B3,FBR      IF ACT > 0                                  FCC0641    33
                                                                                                                 FCC0641    34
                          7160000007              SX6    7           REGNO = 7                                   FCC0641    35
           416  0100000423 +             FBR1     RJ     CBR         ACT = CBR(REGNO)                            FCC0641    36
           417  0630000421 +                      PL     B3,FBR2     IF ACT > 0                                  FCC0641    37
                          7266777776              SX6    X6-1        REGNO = REGNO - 1                           FCC0641    38
           420  0316000416 +                      NZ     X6,FBR1     IF REGNO " 0                                FCC0641    39
                          0400000412 +            EQ     FBR                                                     FCC0641    40
                                                                                                                 FCC0641    41
           421  11525                    FBR2     BX5    X2*X5                                                   FCC0641    42
                     12765                        BX7    X6+X5       SOREG[R1RS] = REGNO                         FCC0641    43
                          20720                   LX7    R1.SOP                                                  FCC0641    44
                               54750              SA7    A5                                                      FCC0641    45
                                                  PRINT  II,(* FBR, NEW REGNO =*Z2),X6                           FCC1555X   18
           422  0400000412 +                      EQ     FBR                                                     FCC0641    46
  
  
  
                                        **        CBR - CHECK B-REGISTER TO SEE IF IT IS AVAILABLE               FCC0641    48
                                        *                                                                        FCC0641    49
                                        *         ENTRY  (X6) = REGNO                                            FCC0641    50
                                        *                                                                        FCC0641    51
                                        *         EXIT   (B3) = ACT < 0 IF NOT AVAIL                             FCC0641    52
                                                                                                                 FCC0641    53
           423  0200400423 +             CBR      ROUTINE                                                        FCC0641    54
           424  6236000000                        SB3    X6+         ACT = REGNO                                 FCC0641    55
                          5216000015 C            SA1    RVT+X6                                                  FCC0641    56
           425  0301000423 +                      ZR     X1,CBR      IF RVT(I) = 0                               FCC0641    57
                          53117                   SA1    "TB"+X1     LIP = TB + RI[RVT(I)]                       FCC0641    58
                               43363              MX3    -I.USESL                                                FCC0641    59
           426  20360                             LX3    I.USESP                                                 FCC0641    60
                     15313                        BX3    -X3*X1                                                  FCC0641    61
                          0313000432 +            NZ     X3,CBR1     IF USES[LIP] " 0                            FCC0641    62
           427  55111                             SA1    A1-B1       DIP = LIP - 1                               FCC0641    63
                     20125                        LX1    59-D.PRSP                                               FCC0641    64
                          0321000432 +            PL     X1,CBR1     IF ^PRS[DIP]                                FCC0641    65
           430  5011000002                        SA1    A1+2        R1P = DIP + 2                               FCC0641    66
                          20141                   LX1    59-R1.SOP-SO.SFLP                                       FCC0641    67
           431  0331000423 +                      MI     X1,CBR      IF SFL[R1P]   */ CAN REUSE THE REGISTER     FCC0641    68
                                                                                                                 FCC0641    69
           432  67301                    CBR1     SB3    -B1         ACT = -1                                    FCC0641    70
                     0400000423 +                 EQ     CBR                                                     FCC0641    71
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    28
        FXR - FIND AN AVAILABLE X-REGISTER                            FXR 
  
                                        **        FXR - FIND A FREE X-REGISTER                                   MCG      1239
                                        *                                                                        MCG      1240
                                        *         ENTRY  (X5) = REGISTER CLASS BITS                              MCG      1241
                                        *                (X4) = SHIFT( [DI], -D.TYP )                            MCG      1242
                                        *                (X7) = AXR & REGS IN CLASS                              MCG      1243
                                        *                (B5) = T(IS)                                            MCG      1244
                                        *                                                                        MCG      1245
                                        *         EXIT   (X3) = 1/FOUND,NOT FOUND,41/REG BIT,18/REGISTER NUMBER  MCG      1246
                                        *                (B4,B5) = T(IS),T(EX) ARE UPDATED                       MCG      1247
                                        *                                                                        MCG      1248
                                        *         USES   B - 2, 3  , A - 2, 3                                    MCG      1249
                                        *                X - 1, 2, 3, 5, 6, 7                                    MCG      1250
                                                                                                                 MCG      1251
           433  63510                    FXR0     SB5    X1          T(IS) = BT                                  MCG      1252
                     10366                        BX3    X6                                                      MCG      1253
                          6241000000              SB4    X1+         T(EX) = BT                                  MCG      1254
                                                                                                                 MCG      1255
           434  0200400434 +             FXR      ROUTINE                                                        MCG      1256
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG      1257
                                                  MI     X3,FXR2     IF REGNO < 0  */ NOTHING AVAIL IN THIS CLAS MCG      1258
                                                                                                                 MCG      1259
                                        *         SEARCH FOR REGISTER IN CLASS WITH EARLIEST AVAILABLE TIME.     MCG      1260
                                                                                                                 MCG      1261
                                                  BX6    X3                                                      MCG      1262
                                                  SX1    B2          BT = TRA(REGNO)                             MCG      1263
                                                                                                                 MCG      1264
                                         FXR1     AX3    18                                                      MCG      1265
                                                  BX7    X7-X3       AVAIL = AVAIL - REGBIT(REGNO)               MCG      1266
                                                  NO                                                             MCG      1267
                                                  NX2    B2,X7                                                   MCG      1268
                                                  SA3    B2+FXRA+16-47   REGNO = FXRA( NORMC(AVAIL) )            MCG      1269
                                                  MI     X3,FXR0                                                 MCG      1270
                                                  SA2    TRA+X3                                                  MCG      1271
                                                  SB3    X2                                                      MCG      1272
                                                  IX5    X2-X1                                                   MCG      1273
                                                  LE     B3,B5,FXR   IF TRA(REGNO) < T(IS)                       MCG      1274
                                                                                                                 MCG      1275
                                                  PL     X5,FXR1     IF BT @ TRA(REGNO)                          MCG      1276
                                                  BX6    X3                                                      MCG      1277
                                                  SX1    B3          BT = TRA(REGNO)                             MCG      1278
                                                  EQ     FXR1                                                    MCG      1279
                                         #MD      ENDIF                                                  '66/76  MCG      1280
                                                                                                                 MCG      1281
                                        *         CHECK REMAINING USES OF OPERANDS, SEE IF THEY ARE IN THE       MCG      1282
                                        *         CLASS OF REGISTERS REQUESTED, AND WILL BE RELEASED BY ISSUE    MCG      1283
                                        *         OF THE CURRENT INSTRUCTION ( MAY BE REUSED ).                  MCG      1284
                                                                                                                 MCG      1285
           435  5120000124 C             FXR2     SA2    LXR                                                     MCG      1286
                          43772                   MX7    -D.TYL                                                  MCG      1287
                               15652              BX6    -X2*X5      CLASS = ^LXR & CLASS                        MCG      1288
           436  15547                             BX5    -X7*X4                                                  MCG      1289
                     0305000447 +                 ZR     X5,FXR3     IF TYPE[DI] = I                             MCG      1290
                               23715              AX7    B1,X5                                                   MCG      1291
           437  0307000434 +                      ZR     X7,FXR      IF TYPE[DI] = II  */ NO OPERANDS            MCG      1292
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    29
        FXR - FIND AN AVAILABLE X-REGISTER                            FXR 
  
                                        *         CHECK TYPE III INSTRUCTION ( NOTE - RI IS A DEF )              MCG      1294
                                                                                                                 MCG      1295
                          55541                   SA5    "DI"-B1     R2 = DI - 1                                 MCG      1296
                               20530              LX5    -IH.RFP                                                 MCG      1297
           440  15750                             BX7    "RN"X5      RF = RF[R2]                                 MCG      1298
                     0307000434 +                 ZR     X7,FXR      IF RF = 0                                   MCG      1299
                               53277              SA2    "TB"+X7     LP = BASE + RF                              MCG      1300
           441  5212000140 C                      SA1    RBV+X2      REGB = RBV( REG[LP] )                       MCG      1301
                          43364                   MX3    -I.USESL+1                                              MCG      1302
                               11616              BX6    X1*X6                                                   MCG      1303
           442  0306000434 +                      ZR     X6,FXR      IF REGB & CLASS = 0                         MCG      1304
                          63320                   SB3    X2                                                      MCG      1305
                               20213              LX2    -I.USESP-1                                              MCG      1306
           443  15723                             BX7    -X3*X2                                                  MCG      1307
                     0317000434 +                 NZ     X7,FXR      IF USES[LP] " 1                             MCG      1308
                                                                                                                 MCG      1309
           444  5123000046 C             FXR2A    SA2    TRA+B3                                                  MCG      1310
                          76330                   SX3    B3          REGNO = REG[LP]                             MCG      1311
                               63220              SB2    X2                                                      MCG      1312
           445  0652000434 +                      LE     B2,B5,FXR   T(IS/EX) = MAX( T(IS/EX) , TRA(REGNO) )     MCG      1313
                          63420                   SB4    X2                                                      MCG      1314
                               63520              SB5    X2                                                      MCG      1315
           446  0400000434 +                      EQ     FXR                                                     MCG      1316
                                                                                                                 MCG      1317
                                        *         CHECK OPERANDS OF TYPE I INSTRUCTION                           MCG      1318
                                                                                                                 MCG      1319
           447  10244                    FXR3     BX2    X4                                                      MCG      1320
                     5054777775                   SA5    "DI"-2      R1 = DI - 2                                 MCG      1321
                               20222              LX2    D.TYP-D.TYIOP                                           MCG      1322
           450  15727                             BX7    -X7*X2                                                  MCG      1323
                     5217000000 +                 SA1    TYIOM+X7                                                MCG      1324
                               43310              MX3    I.USESL-1                                               MCG      1325
           451  26221                             UX2    B2,X1                                                   MCG      1326
                     11525                        BX5    X2*X5                                                   MCG      1327
                          20371                   LX3    I.USESL+I.USESP                                         MCG      1328
                               23525              AX5    B2,X5       RNUMS = TYIOM[DI] & [R1]                    MCG      1329
           452  6130000000                        SB3    0           RG = 0                                      MCG      1330
                          6120400000              SB2    -T(INF)     TB = *INFINITY*                             MCG      1331
                                                                                                                 MCG      1332
           453  15750                    FXR4     BX7    "RN"X5      R = RN[RNUMS]                               MCG      1333
                     21520                        AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-16)                    MCG      1334
                          0307000456 +            ZR     X7,FXR5     IF R = 0                                    MCG      1335
           454  53277                             SA2    "TB"+X7     LP = BASE + R                               MCG      1336
                     11132                        BX1    X3*X2                                                   MCG      1337
                          0301000460 +            ZR     X1,FXR6     IF USES[LP] = 1                             MCG      1338
           455  13757                             BX7    X5-X7                                                   MCG      1339
                     0307000464 +                 ZR     X7,FXR7     IF RJ = RK                                  MCG      1340
           456  0315000453 +             FXR5     NZ     X5,FXR4     IF RNUMS " 0                                MCG      1341
                          0530000444 +            NZ     B3,FXR2A    IF RG " 0     */ WINNER FOUND               MCG      1342
           457  77301                             SX3    -B1         REGNO = -1                                  MCG      1343
                     0400000434 +                 EQ     FXR                                                     MCG      1344
                                                                                                                 MCG      1345
           460  5212000140 C             FXR6     SA1    RBV+X2                                                  MCG      1346
                          11716                   BX7    X1*X6                                                   MCG      1347
           461  0307000456 +                      ZR     X7,FXR5     IF CLASS & RBV(REG[LP]) = 0                 MCG      1348
                          5212000046 C            SA1    TRA+X2                                                  MCG      1349
           462  73712                             SX7    X1+B2                                                   MCG      1350
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION SELECTION          COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    30
        FXR - FIND AN AVAILABLE X-REGISTER                            FXR 
  
                     0327000456 +                 PL     X7,FXR5     IF TRA(REG[LP]) \ TB                        MCG      1351
                               14111              BX1    -X1                                                     MCG      1352
           463  63320                             SB3    X2          RG = REG[LP]                                MCG      1353
                     63210                        SB2    X1          TB = TRA(RG)                                MCG      1354
                          0400000456 +            EQ     FXR5                                                    MCG      1355
                                                                                                                 MCG      1356
                                        *         TYPE I  &  RJ = RK                                             MCG      1357
                                                                                                                 MCG      1358
           464  63320                    FXR7     SB3    X2          REGNO = REG[LP]                             MCG      1359
                     20214                        LX2    -I.USESP                                                MCG      1360
                          43363                   MX3    -I.USESL                                                MCG      1361
                               15223              BX2    -X3*X2                                                  MCG      1362
           465  7272777775                        SX7    X2-2                                                    MCG      1363
                          0317000434 +            NZ     X7,FXR      IF USES[LP] " 2                             MCG      1364
                                                                                                                 MCG      1365
           466  5123000140 C                      SA2    RBV+B3                                                  MCG      1366
                          11626                   BX6    X2*X6                                                   MCG      1367
           467  0306000434 +                      ZR     X6,FXR      IF RBV(REGNO) & CLASS = 0                   MCG      1368
                          0400000444 +            EQ     FXR2A                                                   MCG      1369
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    31
        PJI - PROCESS JUMP INSTRUCTION                                PJI 
  
                                        **        PJI - PROCESS JUMP INSTRUCTION                                 MCG      1372
                                        *                                                                        MCG      1373
                                        *         ENTRY  (A4,X4) = DI, SHIFT( [DI] , -D.TYP )                    MCG      1374
                                        *                                                                        MCG      1375
                                        *         EXIT   INSTRUCTION ISSUED, *ICL* UPDATED, CLOCK ADVANCED, ETC. MCG      1376
                                                                                                                 MCG      1377
           470  0200400470 +             PJI      ROUTINE                                                        MCG      1378
           471  43172                             MX1    -D.TYL                                                  MCG      1379
                     43700                        MX7    0                                                       MCG      1380
                          66300                   SB3    B0          REGNO = 0                                   MCG      1381
                               12614              BX6    X1+X4                                                   MCG      1382
           472  5170000130 C                      SA7    TRS         TRS = 0                                     MCG      1383
                          0306000502 +            ZR     X6,PJI2     IF TYPE[DI] = IV                            MCG      1384
                                                                                                                 MCG      1385
                                        *         DETERMINE EXECUTION TIME OF CONDITIONAL JP                     MCG      1386
                                                                                                                 MCG      1387
           473  55141                             SA1    "DI"-B1     R2 = DI - 1                                 MCG      1388
                     20130                        LX1    -IH.RFP                                                 MCG      1389
                          15610                   BX6    "RN"X1      R = RF[R2]                                  MCG      1390
           474  0306000477 +                      ZR     X6,PJI1     IF R = 0                                    MCG      1391
                          53367                   SA3    "TB"+X6     LJ = BASE + R                               MCG      1392
                                                  LX3    -I.REGP                                                 MCG      1393
           475  5223000046 C                      SA2    TRA+X3                                                  MCG      1394
                          63220                   SB2    X2                                                      MCG      1395
           476  0642000477 +                      LE     B2,B4,PJI1  T(EX) = MAX( T(EX) , TRA(REG[LJ]) )         MCG      1396
                          63420                   SB4    X2                                                      MCG      1397
           477  55111                    PJI1     SA1    A1-B1       R1 = R2 - 1                                 MCG      1398
                     15610                        BX6    "RN"X1      R = RI[R1]                                  MCG      1399
                          53367                   SA3    "TB"+X6     LJ = BASE + R                               MCG      1400
                                                  LX3    -I.REGP                                                 MCG      1401
                               63330              SB3    X3          REGNO = REG[LJ]                             MCG      1402
           500  5223000046 C                      SA2    TRA+X3                                                  MCG      1403
                          63220                   SB2    X2                                                      MCG      1404
           501  0642000502 +                      LE     B2,B4,PJI2  T(EX) = MAX( T(EX) , TRA(REGNO) )           MCG      1405
                          63420                   SB4    X2                                                      MCG      1406
                                                                                                                 MCG      1407
           502  54541                    PJI2     SA5    "DI"+B1     LI = DI + 1                                 MCG      1408
                     0100000612 +                 RJ     AIL         ADJUST THE ISSUE LIST                       MCG      1409
           503  0100000635 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      1410
           504  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1411
                          0100000765 +            RJ     SII         SAVE THE INSTRUCTION                        MCG      1412
                                                                                                                 MCG      1413
                                         DBG      IF     DEF,/DEBUG/II                                           MCG      1414
                                                  SX7    B4                                                      MCG      1415
                                                  PX6    B3,X7                                                   MCG      1416
                                                  LX7    PB.TEXP                                                 MCG      1417
                                                  BX6    X7+X6                                                   MCG      1418
                                                  SA6    PBI                                                     MCG      1419
                                                  PRNT   PJI,II,SAV                                              MCG      1420
                                         DBG      ENDIF                                                          MCG      1421
                                                                                                                 MCG      1422
           505  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1423
                          26525                   UX5    B2,X5                                                   MCG      1424
           506  7172777706                        SX7    B2-OC.JIN                                               MCG      1425
                          0337000520 +            MI     X7,PJI5     IF OC[R1] < OC.JIN  */ A CONDITIONAL JP     MCG      1426
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    32
        PJI - PROCESS JUMP INSTRUCTION                                PJI 
  
                                        *         PROCESS UNCONDITIONAL JUMPS ( UJP / RJX / JIN )                MCG      1428
                                                                                                                 MCG      1429
           507  54440                             S"DI"  "DI"                                                    CCGA006    31
                     0100000152 +                 RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE              CCGA006    32
           510  0100000740 +                      RJ     AVC         ADVANCE CLOCK                               MCG      1430
           511  5110000131 C                      SA1    JLR                                                     MCG      1431
                          5130000012 C            SA3    AXR                                                     FCC1442     6
           512  43600                             MX6    0                                                       FCC1442     7
                     5160000172 C                 SA6    /JAM/ISC    ISC = 0       */ CLEAR ISSUED STORE CHAIN   FCC1442     8
                               43715              MX7    13                                                      FCC1442     9
           513  0301000470 +                      ZR     X1,PJI      IF JLR = 0    */ NO UJP LOCKED REGISTERS    FCC1442    10
                                                                                                                 FCC1442    11
           514  27101                    PJI4     PX1    X1                                                      MCG      1437
                     24521                        NX5    B2,X1       REGNO = NORMC( JLR )                        MCG      1438
                          5122000140 C            SA2    RBV+B2                                                  MCG      1439
           515  23527                             AX5    B2,X7                                                   MCG      1440
                     12323                        BX3    X2+X3       AXR = RBV(REGNO) ! AXR                      MCG      1441
                          5162000015 C            SA6    RVT+B2      RVT(REGNO) = 0                              MCG      1442
           516  15115                             BX1    -X5*X1      JLR = ^MASK(13+REGNO) & JLR                 MCG      1443
                     0311000514 +                 NZ     X1,PJI4     IF JLR " 0                                  MCG      1444
                               10733              BX7    X3                                                      MCG      1445
           517  54730                             SA7    A3                                                      MCG      1446
                     54610                        SA6    A1                                                      MCG      1447
                          0400000470 +            EQ     PJI                                                     MCG      1448
                                                                                                                 MCG      1449
                                        *         CONDITIONAL JUMP, ADVANCE CLOCK, PARCEL COUNT                  MCG      1450
                                                                                                                 MCG      1451
           520  54440                    PJI5     SA4    "DI"                                                    MCG      1452
                     43167                        MX1    -D.FTL                                                  MCG      1453
                          5120000127 C            SA2    PC                                                      MCG      1454
           521  20407                             LX4    -D.FTP                                                  MCG      1455
                     15641                        BX6    -X1*X4                                                  MCG      1456
                          73764                   SX7    X6+B4       T = T(EX) + FT[DI]                          MCG      1457
                               76611              SX6    B1+B1                                                   MCG      1458
           522  7232777774                        SX3    X2-3                                                    MCG      1459
                          5170000126 C            SA7    T                                                       MCG      1460
           523  0323000525 +                      PL     X3,PJI6     PC = IF( PC = 3) 2 ; ELSE MOD( PC+2 , 4 )   MCG      1461
                          43372                   MX3    -2                                                      MCG      1462
                               36226              IX2    X2+X6                                                   MCG      1463
           524  15623                             BX6    -X3*X2                                                  MCG      1464
           525  54620                    PJI6     SA6    A2                                                      MCG      1465
                     0400000470 +                 EQ     PJI                                                     MCG      1466
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    33
        PPI - PROCESS PSEUDO INSTRUCTION                              PPI 
  
                                        **        PPI - PROCESS PSEUDO INSTRUCTION                               MCG      1468
                                        *         ENTRY  (A5,X5) = R1,[R1]                                       MCG      1469
                                        *                (A4,X4) = DI, SHIFT([DI], -D.TYP )                      MCG      1470
                                                                                                                 MCG      1471
           526                                    PROCESS (BOS,EOS)                                              MCG      1472
           526  54541                    PPI0     SA5    "DI"+B1     LI = DI + 1                                 MCG      1473
                     0100000612 +                 RJ     AIL         CALL AIL( PI , LI , REGNO )                 MCG      1474
           527  0100000152 +                      RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE              CCGA006    33
                                                                                                                 MCG      1475
           530  0200400530 +             PPI      ROUTINE                                                        MCG      1476
                                                  PRNT   PPI,II,SAVPBI                                           MCG      1477
           531  26725                             UX7    B2,X5                                                   MCG      1478
                     66300                        SB3    B0          REGNO = 0                                   MCG      1479
                          0222001055 +            JP     PPI.JT+B2   JUMP( PPI.JT( OC[R1] ) )                    MCG      1480
  
  
                                        *         DAR  RI,RJ - DEFINE A-REGISTER R-NUMBER                        MCG      1482
                                                                                                                 MCG      1483
           532                                    PROCESS DAR                                                    MCG      1484
           532  54440                             SA4    "DI"                                                    MCG      1485
                     20534                        LX5    -R1.RJP                                                 MCG      1486
                          15550                   BX5    "RN"X5      RJ = RJ[R1]                                 MCG      1487
                               53357              SA3    "TB"+X5     LJ = RJ + BASE                              MCG      1488
                                                  LX3    -I.REGP                                                 MCG      1489
           533  6233777767                        SB3    X3+AMX      REGNO = REG[LJ] + AMX  */ A-REGISTER NUMBER FCC0603    99
                          6140000000              SB4    0           T(EX) = 0     */ MAKE X-REG AVAIL AT T = 0  FCC0603   100
           534  0100000635 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      1500
           535  66450                             SB4    B5          T(EX) = T(IS)                               MCG      1501
                     0400000526 +                 EQ     PPI0                                                    MCG      1502
  
  
                                        *         DEF  RI,SOREG      DEFINE RI TO BE IN *SOREG*                  MCG      1504
                                                                                                                 MCG      1505
           536                                    PROCESS DEF                                                    MCG      1506
           536  15750                             BX7    "RN"X5      RI = RI[R1]                                 MCG      1507
                     20554                        LX5    -R1.SOP                                                 MCG      1508
                          43366                   MX3    -SO.RTL-SO.RNL                                          MCG      1509
                               15653              BX6    -X3*X5                                                  MCG      1510
           537  63360                             SB3    X6          REGNO = SOREG[R1]                           MCG      1511
                     5276000015 C                 SA7    RVT+X6      RVT(REGNO) = RI                             MCG      1512
                               20564              LX5    58-SO.LKP                                               MCG      1513
           540  5110000012 C                      SA1    AXR                                                     FCC0603   101
                          5123000140 C            SA2    RBV+B3                                                  FCC0603   102
           541  15612                             BX6    -X2*X1      AXR = ^RBV(REGNO) & AXR                     FCC0603   103
                     54610                        SA6    A1                                                      FCC0603   104
                          0325000526 +            PL     X5,PPI0     IF SOLK[R1] = 0  */ NOT FULL /A-REG LOCK    FCC0603   105
           542  20501                             LX5    1                                                       FCC0603   106
                     0335000545 +                 MI     X5,PPI4     IF SOLK[R1] = 3  */ A-REG LOCK              FCC0603   107
                                                                                                                 FCC0603   108
                               43301              MX3    1                                                       FCC0603   109
           543  5110000124 C                      SA1    LXR                                                     FCC0603   110
                          12737                   BX7    X3+X7       LOCK[RVT(REGNO)] = 1                        MCG      1519
                               54770              SA7    A7                                                      MCG      1520
           544  12612                             BX6    X1+X2       LXR = LXR ! RBV(REGNO)                      MCG      1521
                     54610                        SA6    A1                                                      MCG      1522
                          0400000526 +            EQ     PPI0                                                    FCC0603   111
                                                                                                                 FCC0603   112
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    34
        PPI - PROCESS PSEUDO INSTRUCTION                              DEF 
  
           545  5110000013 C             PPI4     SA1    ALR                                                     FCC0603   113
                          15612                   BX6    -X2*X1      ALR = ^RBV(REGNO) & ALR                     FCC0603   114
                               54610              SA6    A1                                                      FCC0603   115
           546  0400000526 +                      EQ     PPI0                                                    FCC0603   116
  
  
  
                                        *         LAB/ENT  IH,CA                                                 MCG      1530
                                                                                                                 MCG      1531
           547                                    PROCESS (LAB,ENT)                                              MCG      1532
           547  54541                             SA5    "DI"+B1     LI = DI + 1                                 MCG      1533
                     0100000612 +                 RJ     AIL         CALL AIL( PI , LI , 0 )                     MCG      1534
           550  0100000152 +                      RJ     SSP         SET N.SP FOR UPCOMING SEQUENCE              CCGA006    34
           551  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      1535
                          0100000765 +            RJ     SII         SAVE THE ISSUED INSTRUCTION                 MCG      1536
                                                  IFNE   .IWT,0                                                  MCG      1537
                                                  SA3    "DI"-B1     R2 = DI - 1                                 MCG      1538
                                                  LX3    59-IH.STKP                                              MCG      1539
                                                  PL     X3,PPI6     IF ^STK[R2]   */ LOOP NOT INSTACK           MCG      1540
                                                  MX6    0                                                       MCG      1541
                                                  SA6    IWT         IWT = 0                                     MCG      1542
                                                  ENDIF                                                  '6600   MCG      1544
           552  0100000740 +             PPI6     RJ     AVC         ADVANCE THE CLOCK                           CCGA006    35
           553  0400000530 +                      EQ     PPI                                                     MCG      1546
  
  
                                        *         RS  RI,LK,SOREG - REGISTER STORE PROCESSING                    MCG      1548
                                                                                                                 MCG      1549
           554                                    PROCESS RS                                                     MCG      1550
           554  15750                             BX7    "RN"X5      RI = RI[R1]                                 MCG      1551
                     20554                        LX5    -R1.SOP                                                 MCG      1552
                          43366                   MX3    -SO.RTL-SO.RNL                                          MCG      1553
                               15653              BX6    -X3*X5      REGNO = SOREG[R1]                           MCG      1554
           555  20566                             LX5    -SO.LKP                                                 MCG      1555
                     43372                        MX3    -SO.LKL                                                 MCG      1556
                          15253                   BX2    -X3*X5                                                  MCG      1557
                               63220              SB2    X2                                                      MCG      1558
           556  0222000557 +                      JP     PPI7+B2     JUMP( SOLK[R1] )                            FCC0603   117
                                                                                                                 FCC0603   118
           557                           PPI7     BSS    0                                                       FCC0603   119
      L      0                                    LOC    0                                                       MCG      1562
      L      0  5110000131 C                      SA1    JLR                                                     MCG      1563
                          0400000573 +            EQ     PPI10                                                   MCG      1564
      L      1  0400000526 +                      EQ     PPI0        */ TEMP LOCK                                MCG      1565
      L      2  0400000575 +                      EQ     PPI11                                                   MCG      1566
           562                                    LOC    *O                                                      MCG      1567
                                                                                                                 MCG      1568
                                        *         RJ REGISTER STORE                                              MCG      1569
                                                                                                                 MCG      1570
           562  5034777774                        SA3    "DI"-3      */ CHECK USES OF R-NUMBER OF X-REG OF PRED  MCG      1571
                                                  LX3    -I.REGP                                                 MCG      1572
                          5213000046 C            SA1    TRA+X3      XREG = REG[DI-3]                            MCG      1573
           563  43263                             MX2    -I.USESL                                                MCG      1574
                     20314                        LX3    I.REGP-I.USESP                                          MCG      1575
                          5276000015 C            SA7    RVT+X6      RVT(REGNO) = RI                             MCG      1576
           564  5276000172 C                      SA7    /JAM/LRN+X6 LRN(REGNO) = RI                             FCC0641    72
                          63360                   SB3    X6                                                      MCG      1577
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    35
        PPI - PROCESS PSEUDO INSTRUCTION                              RS
  
                               10611              BX6    X1                                                      MCG      1578
           565  5163000046 C                      SA6    TRA+B3      TRA(REGNO) = TRA(XREG)                      MCG      1579
                          15632                   BX6    -X2*X3                                                  MCG      1580
           566  0316000571 +                      NZ     X6,PPI8     IF USES[DI-3] " 0  */ X-RESULT USED         FCC0603   120
                          20360                   LX3    I.USESP-I.REGP                                          MCG      1582
           567  5213000140 C                      SA1    RBV+X3                                                  MCG      1583
                          5120000012 C            SA2    AXR                                                     MCG      1584
           570  5263000015 C                      SA6    RVT+X3      RVT( REG[DI-3] ) = 0                        MCG      1585
                          12712                   BX7    X1+X2                                                   MCG      1586
                               54720              SA7    A2          AXR = AXR ! RBV(XREG)                       MCG      1587
           571  5110000012 C             PPI8     SA1    AXR                                                     FCC0603   121
                          5123000140 C            SA2    RBV+B3                                                  FCC0603   122
           572  15612                             BX6    -X2*X1      AXR = ^RBV(REGNO) & AXR                     FCC0603   123
                     54610                        SA6    A1                                                      FCC0603   124
                          0400000526 +            EQ     PPI0                                                    FCC0603   125
  
  
                                        *         UJP LOCK - SET TO CLEAR WHEN NEXT UJP/RJX/JIN ENCOUNTERED      MCG      1590
                                                                                                                 MCG      1591
           573  6226777720               PPI10    SB2    X6-47                                                   MCG      1592
                          76310                   SX3    B1                                                      MCG      1593
                               23223              AX2    B2,X3                                                   MCG      1594
           574  12621                             BX6    X2+X1       JLR = SHIFT(1,47-REGNO) ! JLR               MCG      1595
                     54610                        SA6    A1                                                      MCG      1596
                          0400000526 +            EQ     PPI0                                                    MCG      1597
                                                                                                                 MCG      1598
                                        *         FULL LOCK - SET LOCK BITS IN *LXR* AND *RVT*                   MCG      1599
                                                                                                                 MCG      1600
           575  5256000015 C             PPI11    SA5    RVT+X6                                                  MCG      1601
                          5216000140 C            SA1    RBV+X6                                                  MCG      1602
           576  5130000124 C                      SA3    LXR                                                     MCG      1603
                          43201                   MX2    1                                                       MCG      1604
                               12625              BX6    X2+X5       LOCK[RVT(REGNO)] = 1                        MCG      1605
           577  54650                             SA6    A5                                                      MCG      1606
                     53577                        SA5    "TB"+X7     LI = BASE + RI                              MCG      1607
                          20261                   LX2    1+I.USESP                                               MCG      1608
                               12713              BX7    X1+X3       LXR = LXR ! RBV(REGNO)                      MCG      1609
           600  54730                             SA7    A3                                                      MCG      1610
                     37652                        IX6    X5-X2       USES[LI] = USES[LI] - 1                     MCG      1611
                          54650                   SA6    A5                                                      MCG      1612
           601  0400000526 +                      EQ     PPI0                                                    MCG      1613
  
  
                                        *         EOQ - TERMINATE *PIT* BUFFER, EXIT TO EOQ ADDRESS              MCG      1615
                                                                                                                 MCG      1616
           602                                    PROCESS EOQ                                                    MCG      1617
           602  5150000606 +                      SA5    PPIB                                                    MCG      1618
                          0100000765 +            RJ     SII         SII( NOP )                                  MCG      1619
           603  5130000135 C                      SA3    IIP                                                     MCG      1620
                          54431                   SA4    A3+B1                                                   MCG      1621
                               37634              IX6    X3-X4       L.PIT = IIP(1) - IIP(2)                     MCG      1622
           604  5110000134 C                      SA1    EOQA                                                    MCG      1623
                          5160000000 X            SA6    L.PIT                                                   MCG      1624
           605  63210                             SB2    X1                                                      MCG      1625
                     0222000000                   JP     B2          JUMP( EOQA )                                MCG      1626
                                                                                                                 MCG      1627
           606  20460000000000000000     PPIB     VFD    12/2000B+OC.NOP,48/0                                    MCG      1628
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    36
        AIL - ADJUST ISSUE LIST                                       AIL 
  
                                        **        AIL - ADJUST ISSUE CANDIDATE LIST TO REMOVE ISSUED INSTRUCTION MCG      1630
                                        *         FROM IT. NOTE THAT BECAUSE THE SUCCESSORS OF AN INSTRUCTION    MCG      1631
                                        *         ARE SORTED BY "LATE START TIME" IN THE USES INDEX TABLE, THE   MCG      1632
                                        *         *ICL* WILL ALSO BE SORTED BY "LST".                            MCG      1633
                                        *                                                                        MCG      1634
                                        *         ENTRY  (A5,X5) = LI,[LI] - LINK WORD OF ISSUED INSTRUCTION.    MCG      1635
                                        *                (B3) = REGNO ( NEW VALUE OF LINK FIELD )                MCG      1636
                                        *                                                                        MCG      1637
                                        *         EXIT   (A4,X4) = DI, [DI] - DESCRIPTOR OF ISSUED INSTRUCTION.  MCG      1638
                                        *                (X0) = R-NUMBER EXTRACTOR MASK                          MCG      1639
                                        *                LINK[LI] = REGNO                                        MCG      1640
                                        *                ICL = ISSUE CANDIDATE LIST POINTER UPDATED.             MCG      1641
                                        *                                                                        MCG      1642
                                        *         USES   B - 2, 6   , X - ALL  ( RESETS X0 )                     MCG      1643
                                                                                                                 MCG      1644
                                                                                                                 MCG      1645
                                        *         RESET *ICL* POINTER, AND SET EXIT CONDITIONS                   MCG      1646
                                                                                                                 MCG      1647
           607  55451                    AIL0     SA4    A5-B1       DI = LI - 1                                 CCG11     124
                     7100600001                   SX0    RN.MASK     (X0) = R-NUMBER MASK                        CCG11     125
                               56170              SA1    "TB"                                                    MCG      1651
           610  0560000612 +                      NZ     B6,AIL      IF PS " 0     */ DIDNT ISSUE FIRST ELEMENT  MCG      1652
                          73610                   SX6    X1          ICL = LINK[*BOS*]                           MCG      1653
                               37716              IX7    X1-X6                                                   MCG      1654
           611  5160000003 C                      SA6    ICL                                                     MCG      1655
                          5177000000              SA7    "TB"+       LINK[*BOS*] = 0                             MCG      1656
                                                                                                                 MCG      1657
           612  0200400612 +             AIL      ROUTINE                                                        MCG      1658
           613  54107                             SA1    "PI"+"TB"                                               MCG      1659
                     64600                        SB6    "PI"        PS = PI                                     MCG      1660
                          43752                   MX7    -I.LINKL                                                MCG      1661
                               54007              S"PI"  "PI"+"TB"   PI = PI + BASE                              MCG      1662
           614  73350                             SX3    X5                                                      MCG      1663
                     11271                        BX2    X7*X1                                                   MCG      1664
                          43401                   MX4    1                                                       MCG      1665
                               36623              IX6    X2+X3       LINK[PI] = LINK[LI]                         MCG      1666
                                                  LX4    I.IIP+1     II[LI] = 1    */ INDICATE ISSUED            MCG      1667
           615  53337                             SA3    "TB"+X3     NI = LINK[LI] + BASE                        MCG      1668
                     11575                        BX5    X7*X5                                                   MCG      1669
                          54610                   SA6    A1                                                      MCG      1670
                               76230              SX2    B3                                                      MCG      1671
                                                  LX2    I.REGP                                                  MCG      1672
           616  36424                             IX4    X2+X4       REG[LI] = REGNO                             MCG      1673
                     76010                        SX0    B1                                                      MCG      1674
                          12645                   BX6    X4+X5                                                   MCG      1675
                               54650              SA6    A5                                                      MCG      1676
           617  43755                             MX7    -I.INDXL                                                MCG      1677
                     5120000000 X                 SA2    O.TREE                                                  MCG      1678
                               20533              LX5    -I.INDXP                                                MCG      1679
           620  15157                             BX1    -X7*X5                                                  MCG      1680
                     20722                        LX7    I.LSTP                                                  MCG      1681
                          36212                   IX2    X1+X2                                                   MCG      1682
                               15437              BX4    -X7*X3      RN = LST[NI]                                MCG      1683
           621  53220                             SA2    X2          UI = O.TREE + INDX[LI]                      FCC1056    33
                     0400000626 +                 EQ     AIL3                                                    MCG      1685
                                                                                                                 MCG      1686
                                        *         LINK THIS TO NEXT, LAST TO THIS                                MCG      1687
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    37
        AIL - ADJUST ISSUE LIST                                       AIL 
  
                                                                                                                 MCG      1688
           622  75537                    AIL1     SX5    A3-"TB"                                                 MCG      1689
                     20072                        LX0    I.ICP                                                   MCG      1690
                          36505                   IX5    X0+X5       IC[SI] = 1                                  MCG      1691
                               12656              BX6    X5+X6       LINK[SI] = NI - BASE                        MCG      1692
           623  43552                             MX5    -I.LINKL                                                MCG      1693
                     54610                        SA6    A1                                                      MCG      1694
                          20002                   LX0    -I.ICP                                                  MCG      1695
                               54100              SA1    "PI"        LINK[PI] = SI - BASE                        MCG      1696
           624  54060                             S"PI"  A6          PI = SI                                     MCG      1697
                     11651                        BX6    X5*X1                                                   MCG      1698
                          75567                   SX5    A6-"TB"                                                 MCG      1699
                               36665              IX6    X6+X5                                                   MCG      1700
                                                                                                                 MCG      1701
                                        *         IF NOT LAST SUCCESSOR, ADVANCE TO NEXT                         MCG      1702
                                                                                                                 MCG      1703
           625  54610                    AIL2     SA6    A1                                                      MCG      1704
                     0332000607 +                 MI     X2,AIL0     IF LAST[UI]                                 MCG      1705
                               54221              SA2    A2+B1       UI = UI + 1                                 MCG      1706
                                                                                                                 MCG      1707
                                        *         REDUCE PRED COUNT OF SUCCESSORS OF INSTRUCTION.                MCG      1708
                                                                                                                 MCG      1709
           626  53127                    AIL3     SA1    "TB"+X2     SI = SUCC[UI] + BASE                        MCG      1710
                     37610                        IX6    X1-X0       NPRED[SI] = NPRED[SI] - 1                   MCG      1711
                          6221000000              SB2    X1+                                                     MCG      1712
           627  0521000625 +                      NE     B2,B1,AIL2  IF NPRED[SI] " 0                            MCG      1713
                                                                                                                 MCG      1714
                                        *         ADD SUCCESSOR TO LIST BEFORE NEXT WITH GREATER *LST*           MCG      1715
                                                                                                                 MCG      1716
                          15117                   BX1    -X7*X1                                                  MCG      1717
                               37514              IX5    X1-X4                                                   MCG      1718
           630  0335000622 +             AIL4     MI     X5,AIL1     IF LST[SI] < RN                             MCG      1719
                          54030                   S"PI"  A3          PI = NI                                     MCG      1720
                               53337              SA3    "TB"+X3     NI = LINK[NI] + BASE                        MCG      1721
           631  15437                             BX4    -X7*X3      RN = LST[NI]                                MCG      1722
                     37514                        IX5    X1-X4                                                   MCG      1723
                          0400000630 +            EQ     AIL4                                                    MCG      1724
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    38
        DUC - DECREMENT USES COUNTS                                   DUC 
  
                                        **        DUC - DECREMENT USES COUNTS                                    MCG      1726
                                        *                                                                        MCG      1727
                                        *         ENTRY  (A4,X4) = DI, [DI]                                      MCG      1728
                                        *                (B3) = REGNO  ( OF RESULT REGISTER )                    MCG      1729
                                        *                (B4) = T(EX) OF INSTRUCTION                             MCG      1730
                                        *                                                                        MCG      1731
                                        *         EXIT   RVT, AXR UPDATED                                        MCG      1732
                                        *                                                                        MCG      1733
                                        *         USES   B - 2, 6   X - 1 - 7                                    MCG      1734
                                                                                                                 MCG      1735
           632  0334000635 +             DUC0     MI     X4,DUC      IF ^D[DI] ! TYPE[DI] = IV                   MCG      1736
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      1737
           633  5113000140 C                      SA1    RBV+B3                                                  MCG      1738
                          5120000012 C            SA2    AXR                                                     MCG      1739
           634  15750                             BX7    "RN"X5                                                  MCG      1740
                     56763                        SA7    B6+B3       RVT(REGNO) = RI                             MCG      1741
                          15621                   BX6    -X1*X2      AXR = ^RBV(REGNO) & AXR                     MCG      1742
                               54620              SA6    A2                                                      MCG      1743
                                                                                                                 MCG      1744
           635  0200400635 +             DUC      ROUTINE                                                        MCG      1745
                                                  LX4    58-D.TYP                                                MCG      1746
           636  36744                             IX7    X4+X4                                                   MCG      1747
                     6160000015 C                 SB6    RVT                                                     MCG      1748
                               43672              MX6    -D.TYIOL                                                MCG      1749
           637  0337000632 +                      MI     X7,DUC0     IF TYPE[DI] = II ! IV                       MCG      1750
                                                                                                                 MCG      1751
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      1752
           640  0324000644 +                      PL     X4,DUC1     IF TYPE[DI] = I                             MCG      1753
                                                                                                                 MCG      1754
                                        *         TYPE III INSTRUCTION                                           MCG      1755
                                                                                                                 MCG      1756
                          55341                   SA3    "DI"-B1     R2 = DI - 1                                 MCG      1757
                               20422              LX4    1+D.TYP-D.^DP                                           MCG      1758
           641  15750                             BX7    "RN"X5      RI = RI[R1]                                 MCG      1759
                     20330                        LX3    -IH.RFP                                                 MCG      1760
                          15530                   BX5    "RN"X3      RNUMS = RF[R2]                              MCG      1761
           642  0324000646 +                      PL     X4,DUC2     IF DEF[DI]                                  MCG      1762
                          20720                   LX7    R1.RIL                                                  MCG      1763
                               12575              BX5    X7+X5       RNUMS = SHIFT(RI,16) ! RNUMS                MCG      1764
           643  0400000646 +                      EQ     DUC2                                                    MCG      1765
                                                                                                                 MCG      1766
                                        *         TYPE I INSTRUCTION                                             MCG      1767
                                                                                                                 MCG      1768
           644  20424                    DUC1     LX4    2+D.TYP-D.TYIOP                                         MCG      1769
                     15746                        BX7    -X6*X4                                                  MCG      1770
                          5237000000 +            SA3    TYIOM+X7                                                MCG      1771
           645  26223                             UX2    B2,X3                                                   MCG      1772
                     20472                        LX4    D.TYIOP+59-D.^DP                                        MCG      1773
                          11125                   BX1    X2*X5                                                   MCG      1774
                               23521              AX5    B2,X1       RNUMS = TYIOM[DI] & [R1]                    MCG      1775
                                                                                                                 MCG      1776
                                        *         SETUP REGISTERS FOR LOOP                                       MCG      1777
                                                                                                                 MCG      1778
           646  43110                    DUC2     MX1    I.USESL-1                                               MCG      1779
                     76710                        SX7    B1                                                      MCG      1780
                          20171                   LX1    I.USESL+I.USESP                                         MCG      1781
                               15350              BX3    "RN"X5      R = RI[RNUMS]                               MCG      1782
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    39
        DUC - DECREMENT USES COUNTS                                   DUC 
  
           647  20760                             LX7    I.USESP                                                 MCG      1783
                     0315000652 +                 NZ     X5,DUC4     IF RNUMS " 0                                MCG      1784
           650  0400000632 +                      EQ     DUC0                                                    MCG      1785
                                                                                                                 MCG      1786
                                        *         DECREMENT USES COUNTS OF OPERANDS, ADJUST *AXR*, *RVT*         MCG      1787
                                                                                                                 MCG      1788
           651  21520                    DUC3     AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                MCG      1789
                     0305000632 +                 ZR     X5,DUC0     IF RNUMS = 0                                MCG      1790
                               15350              BX3    "RN"X5      R = RI[RNUMS]                               MCG      1791
           652  53237                    DUC4     SA2    "TB"+X3     LP = BASE + R                               MCG      1792
                     0303000651 +                 ZR     X3,DUC3     IF R = 0                                    MCG      1793
                               37627              IX6    X2-X7       USES[LP] = USES[LP] - 1                     MCG      1794
           653  11312                             BX3    X1*X2                                                   MCG      1795
                     54620                        SA6    A2                                                      MCG      1796
                          0313000651 +            NZ     X3,DUC3     IF USES[LP] " 0                             MCG      1797
                                                  LX2    -I.REGP     REGP = REG[LP]                              MCG      1798
           654  53326                             SA3    B6+X2                                                   MCG      1799
                     0333000651 +                 MI     X3,DUC3     IF LOCK[RVT(REGP)]                          MCG      1800
                                                                                                                 MCG      1801
                                        *         RETURN REGISTER TO AVAILABLE LIST                              MCG      1802
                                                                                                                 MCG      1803
                               43600              MX6    0                                                       MCG      1804
           655  54630                             SA6    A3          RVT(REGP) = 0                               MCG      1805
                     76641                        SX6    B4+B1                                                   MCG      1806
                          5262000046 C            SA6    TRA+X2      TRA(REGNO) = T(EX) + 1                      MCG      1807
           656  5232000140 C                      SA3    RBV+X2                                                  MCG      1808
                          5120000012 C            SA2    AXR                                                     MCG      1809
           657  12632                             BX6    X3+X2                                                   MCG      1810
                     54620                        SA6    A2          AXR = RBV(REGP) ! AXR                       MCG      1811
                          0400000651 +            EQ     DUC3                                                    MCG      1812
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    40
        ASC - ADVANCE SIMULATION CLOCKS                               ASC 
  
                                        **        ASC - ADVANCE SIMULATION CLOCKS FOR ISSUED INSTRUCTION         MCG      1814
                                        *         ALSO DO LD/ST TO SLD/SST TRANSFORMATION AND ADJUST *SP* COUNT  MCG      1815
                                        *         ENTRY  (A4,X4) = DI, [DI]                                      MCG      1816
                                        *                (B4) = T(EX)                                            MCG      1817
                                        *                (B5) = T(IS)                                            MCG      1818
                                        *                (B3) = REGNO ( SOREGNO OF *RI* REGISTER )               MCG      1819
                                        *                                                                        MCG      1820
                                        *         EXIT   (B3) = CHANGED TO A-REG NUMBER FOR LD/ST INSTRUCTIONS   MCG      1821
                                        *                T, PC, TRA, TFU, LST, EXT. UPDATED.                     MCG      1822
                                                                                                                 MCG      1823
           660  54610                    ASC0     SA6    A1                                                      MCG      1824
                     36737                        IX7    X3+X7                                                   MCG      1825
                                                  PRNT   ASC,II                                                  MCG      1826
                                                  PRNT   ASC,ICL                                                 MCG      1827
                                                  PRNT   ASC,RUI                                                 MCG      1828
                          5170000126 C            SA7    T                                                       MCG      1829
                                                                                                                 MCG      1830
           661  0200400661 +             ASC      ROUTINE                                                        MCG      1831
           662  43772                             MX7    -D.LDSTL                                                MCG      1832
                     20432                        LX4    -D.LDSTP                                                MCG      1833
                          5120000007 C            SA2    PBI+1                                                   MCG      1834
           663  15147                             BX1    -X7*X4                                                  MCG      1835
                     0301000710 +                 ZR     X1,ASC7     IF LDST[DI] = 0                             MCG      1836
                                         #DAL     IFNE   .DAL,0                                                  MCG      1837
                               10344              BX3    X4                                                      MCG      1838
           664  20371                             LX3    D.LDSTP+59-D.L2P                                        MCG      1839
                     0333000710 +                 MI     X3,ASC6     IF L2[DI]                                   MCG      1840
                                         #DAL     ENDIF                                                          MCG      1841
                                                                                                                 MCG      1842
                                        *         COMMON HANDLING OF LD/ST INSTRUCTIONS                          MCG      1843
                                                                                                                 MCG      1844
                               43771              MX7    -SO.RNL                                                 MCG      1845
           665  76330                             SX3    B3                                                      MCG      1846
                     21101                        AX1    D.LDP-D.LDSTP     I = LD[DI]                            MCG      1847
                          26522                   UX5    B2,X2       F = FU[PBI+1]                               MCG      1848
                               15337              BX3    -X7*X3      RN = SORN[REGNO]                            MCG      1849
           666  7174000001                        SX7    B4+"INCT"   TFU(F) = T(EX) + INC TIME                   MCG      1850
                          20413                   LX4    D.LDSTP-D.SZP                                           MCG      1851
           667  5221000725 +                      SA2    TSL+X1                                                  MCG      1852
                          6233000010              SB3    X3+RN.A0    REGNO = A0 + RN                             MCG      1853
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG      1854
                                                  SA7    TFU+B2                                                  MCG      1855
                                                  SA7    TRA+RN.A0+X3      TRA(A0+RN) = T(EX) + INC TIME         MCG      1856
                                                  SX6    X2+B4                                                   MCG      1857
                                                  SA6    TRA+RN.X0+X3      TRA(X0+RN) = T(EX) + TSL(I)           MCG      1858
                                                  SA6    LST+X1      LST(I) = T(EX) + TSL(I)                     MCG      1859
                                         #MD      ENDIF                                                  '66/76  MCG      1860
                                                                                                                 MCG      1861
                                         #MD      IFEQ   .CPU,76                                         ?7600   MCG      1862
                                                  SA2    T                                                       MCG      1863
                                                  SA3    TRS         BIT = 0                                     MCG      1864
                                                  SX5    B1                        */ ADJUST BIT VECTOR BASE     MCG      1865
                                                  IX7    X5-X2                                                   MCG      1866
                                                  SB6    B4+X7                                                   MCG      1867
                                                  AX6    B6,X3       TRS = SHIFT( TRS , -( T(EX)+1-T ) )         MCG      1868
                                                  SA6    A3                                                      MCG      1869
                                         #MD      ENDIF                                                  '7600   MCG      1870
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    41
        ASC - ADVANCE SIMULATION CLOCKS                               ASC 
  
                                                                                                                 MCG      1871
                                        *         CHECK FOR TRANSFORMATION TO SHORT LD/ST                        MCG      1872
                                                                                                                 MCG      1873
           670  43502                             MX5    D.ARL                                                   MCG      1874
                                                  LX5    D.ARL+D.ARP-D.SZP                                       MCG      1875
                     55341                        SA3    "DI"-B1     R2 = DI - 1                                 MCG      1876
                          11154                   BX1    X5*X4                                                   MCG      1877
                               43701              MX7    1                                                       FCC0881    30
           671  15637                             BX6    -X7*X3      LD[R2W] = 0   */ CLEAR APL LD BIT           FCC0881    31
                     0301000707 +                 ZR     X1,ASC5     IF ^(SR[DI] ! FP[DI])                       MCG      1879
           672  6120000075 C                      SB2    ARA-1                                                   MCG      1880
                          56621                   SA6    B2+B1       ARA(0) = [R2] */ SET SEARCH TERMINATOR      MCG      1881
           673  0321000700 +                      PL     X1,ASC3     IF ^SR[DI]                                  MCG      1882
                                                                                                                 MCG      1883
                          5120000105 C            SA2    ARA+7       I = ARA(7)                                  MCG      1884
           674  13562                    ASC1     BX5    X6-X2                                                   MCG      1885
                     55221                        SA2    A2-B1       I = I - 1                                   MCG      1886
                          0315000674 +            NZ     X5,ASC1     IF [I] " [R2]                               MCG      1887
           675  75722                             SX7    A2-B2                                                   MCG      1888
                     0307000677 +                 ZR     X7,ASC2     IF I = 0      */ MATCH WITH SEARCH TERMIN   MCG      1889
                               76410              SX4    B1          SZ[DI] = 1                                  MCG      1890
           676  5170000004 C                      SA7    RMR         RMR = I - ARA(-1) */ SAVE A REG NUM         MCG      1891
                          0400000707 +            EQ     ASC5                                                    MCG      1892
                                                                                                                 MCG      1893
                                        *         CHECK FOR ELIMINATION OF F.P. ADDSUB                           MCG      1894
                                                                                                                 MCG      1895
           677  20101                    ASC2     LX1    D.SRP-D.FPP                                             MCG      1896
                     0321000707 +                 PL     X1,ASC5     IF ^FP[DI]                                  MCG      1897
           700  5120000105 C             ASC3     SA2    ARA+7                                                   MCG      1898
                          43752                   MX7    -IH.CAL                                                 MCG      1899
                               20722              LX7    IH.CAP                                                  MCG      1900
           701  13562                    ASC4     BX5    X6-X2                                                   MCG      1901
                     5022777776                   SA2    A2-1        I = I - 1                                   MCG      1902
                               11375              BX3    X7*X5                                                   MCG      1903
           702  0313000701 +                      NZ     X3,ASC4     IF RFIH[I] " RFIH[R2]                       MCG      1904
                                                                                                                 MCG      1905
                          75122                   SX1    A2-B2       I = I - ARA(-1)                             MCG      1906
                               54221              SA2    A2+B1                                                   MCG      1907
           703  0301000707 +                      ZR     X1,ASC5     IF I = 0                                    MCG      1908
                          5163000066 C            SA6    ARA+B3-RN.A0                                            MCG      1909
           704  20652                             LX6    -IH.CAP                                                 MCG      1910
                     63660                        SB6    X6                                                      MCG      1911
                          20252                   LX2    -IH.CAP                                                 MCG      1912
                               63220              SB2    X2                                                      MCG      1913
           705  77662                             SX6    B6-B2       CA[R2] = CA[R2] - CA[I]                     MCG      1914
                     20622                        LX6    IH.CAP                                                  MCG      1915
                          15767                   BX7    -X7*X6                                                  MCG      1916
                               36671              IX6    X7+X1                                                   MCG      1917
           706  5160000004 C                      SA6    RMR         RMR = IHINFO(0,CA,AREGNO)                   MCG      1918
                          0400000716 +            EQ     ASC9                                                    MCG      1919
                                                                                                                 MCG      1920
           707  5163000066 C             ASC5     SA6    ARA+B3-RN.A0                                            MCG      1921
                          0400000716 +            EQ     ASC9                                                    MCG      1922
                                                                                                                 MCG      1923
                                        *         LEVEL 2 LD/ST ( DRL/DWL )                                      MCG      1924
                                                                                                                 MCG      1925
                                         #DAL     IFNE   .DAL,0                                                  MCG      1926
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    42
        ASC - ADVANCE SIMULATION CLOCKS                               ASC 
  
           710                           ASC6     BSS    0                                                       FCCA546X    7
                                        #MD       IFGT   .CPU,74                                                 FCCA546X    8
                                                  SA1    L2T+X1-1                                                FCCA546X    9
                                                  BX6    X1                                                      MCG      1928
                                                  SA6    FUT+9       FUT(LCM) = L2T(LDST)  */ SET LD/ST TIME     MCG      1929
                                        #MD       ENDIF                                                          FCCA546X   10
                                         #DAL     ENDIF                                                          MCG      1930
  
  
  
                                        *         GENERAL INSTRUCTION                                            MCG      1932
                                                                                                                 MCG      1933
           710  20466                    ASC7     LX4    D.LDSTP+59-D.PSP                                        MCG      1934
                     26222                        UX2    B2,X2       F = FU[PBI+1]                               MCG      1935
                          0324000713 +            PL     X4,ASC8     IF ^PS[DI]                                  MCG      1936
           711  5130000001 C                      SA3    N.SP                                                    MCG      1937
                          73631                   SX6    X3+B1       N.SP = N.SP + 1                             MCG      1938
                               54630              SA6    A3                                                      MCG      1939
           712  0316000713 +                      NZ     X6,ASC8     IF N.SP " 0                                 MCG      1940
                          5160000014 C            SA6    STL         STL = 0       */ CLEAR STORE LOCKOUT FLAG   MCG      1941
                                                                                                                 MCG      1942
           713  20402                    ASC8     LX4    D.PSP-D.ECJP                                            CCG3      139
                     0334000723 +                 MI     X4,ASC10    IF ECJ[DI]                                  CCG3      140
                               20455              LX4    1+D.ECJP-D.FTP                                          CCG3      141
           714  43567                             MX5    -D.FTL                                                  MCG      1944
                     15345                        BX3    -X5*X4                                                  MCG      1945
                          73634                   SX6    B4+X3       TRA(REGNO) = T(EX) + FT[DI]                 MCG      1946
                               20436              LX4    D.FTP-D.SZP                                             MCG      1947
                                         #MD      IFLE   .CPU,74                                         ?6600   MCG      1948
           715  73761                             SX7    X6+B1       TFU(F) = T(EX) + FT[DI] + 1   */ 6600       MCG      1949
                                         #MD      ELSE                                                   '66?76  MCG      1950
                                                  SA2    T                                                       MCG      1951
                                                  SA1    TRS                                                     MCG      1952
                                                  SX5    B1                                                      MCG      1953
                                                  IX3    X6-X2                                                   MCG      1954
                                                  IX7    X5-X2                                                   MCG      1955
                                                  SB6    X3                                                      MCG      1956
                                                  LX5    B6,X5                                                   MCG      1957
                                                  SB6    B4+X7                                                   MCG      1958
                                                  BX1    X5+X1       TRS = TRS ! SHIFT( 1 , TRA(REGNO) - T )     MCG      1959
                                                  AX7    B6,X1       TRS = SHIFT( TRS , -( T(EX)+1 - T ) )       MCG      1960
                                                  SA2    FUT+B2-1                                                MCG      1961
                                                  SA7    A1                                                      MCG      1962
                                                  SX7    B4+X2       TFU(F) = T(EX) + FUT(F)       */ 7600       MCG      1963
                                         #MD      ENDIF                                                  '7600   MCG      1964
                                         #MD      IFGE   .CPU,74                                         ?66/76  MCG      1965
                                                  SA6    TRA+B3                                                  MCG      1966
                                                  SA7    TFU+B2                                                  MCG      1967
                                         #MD      ENDIF                                                          MCG      1968
                                                                                                                 MCG      1969
                                        *         ADVANCE SIMULATION CLOCK, AND PARCEL COUNT                     MCG      1970
                                                                                                                 MCG      1971
           716  5110000127 C             ASC9     SA1    PC                                                      MCG      1972
                          43572                   MX5    -2                                                      MCG      1973
                               15245              BX2    -X5*X4      NP = SZ[DI]                                 MCG      1974
           717  36612                             IX6    X1+X2       PC = PC + NP                                MCG      1975
                                         #MD      IFEQ   .CPU,76                                         ?7600   MCG      1976
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    43
        ASC - ADVANCE SIMULATION CLOCKS                               ASC 
  
                                                  SX7    B5+1        T = T(EX) + 1                               MCG      1977
                                         #MD      ELSE                                                   ?6600   MCG      1978
                     73725                        SX7    B5+X2       T = T(IS) + NP                              MCG      1979
                                         #MD      ENDIF                                                  '6600   MCG      1980
                          11356                   BX3    X5*X6                                                   MCG      1981
           720  0303000660 +                      ZR     X3,ASC0     IF PC < 4                                   MCG      1982
                          5130000011 C            SA3    IWT                                                     MCG      1983
           721  15665                             BX6    -X5*X6      PC = MOD( PC , 4 )                          MCG      1984
                     0306000660 +                 ZR     X6,ASC0     IF PC = 0                                   MCG      1985
                               10622              BX6    X2          PC = NP                                     MCG      1986
           722  43300                             MX3    0           */ INTERWORD DELAY TAKEN CARE OF IN *SNI*   MCG      1987
                     0400000660 +                 EQ     ASC0                                                    MCG      1988
                                                                                                                 CCG3      142
                                        *         RJXJ - ASSUME A JUMP TO *+1                                    CCG3      143
                                                                                                                 CCG3      144
           723                           ASC10    BSS    0                                                       CCG3      145
                                         #MD      IFLT   .CPU,75                                                 CCG3      146
           723  7174000011                        SX7    B4+9        T = T(EX) + 9                               CCG3      147
                                         #MD      ELSE                                                           CCG3      148
                                                  SA1    T                                                       CCG3      149
                                                  SA2    TRS                                                     CCG3      150
                                                  SX7    B4+3        T = T(EX) + 3                               CCG3      151
                                                  IX5    X7-X1                                                   CCG3      152
                                                  SB6    X5                                                      CCG3      153
                                                  LX6    -B6,X2      TRS = SHIFT( TRS , -(T(NEW)-T(OLD)) )       CCGA066     5
                                                  SA6    A2                                                      CCG3      155
                                         #MD      ENDIF                                                          CCG3      156
                                                                                                                 CCG3      157
                          5110000127 C            SA1    PC                                                      CCG3      158
           724  43600                             MX6    0           PC = 0                                      CCG3      159
                     43300                        MX3    0                                                       CCG3      160
                          0400000660 +            EQ     ASC0                                                    CCG3      161
                                                                                                                 MCG      1989
                                         #MD      IFGT   .CPU,74                                         ?7600   FCC1451     7
                                         TSL      CON    2,8         STORE/LOAD TIMES  *7600*                    MCG      1991
                                                                                                                 MCG      1992
                                         FUT      BSS    0           FUNCTION UNIT TIME TABLE                    MCG      1993
                                                  LOC    1                                                       MCG      1994
                                                  DATA   1,1,1,1,1                                               MCG      1995
                                                  CON    2           MULTIPLY                                    MCG      1996
                                                  CON    1           NORM                                        MCG      1997
                                                  CON    18          DIVIDE                                      MCG      1998
                                                  DATA   1,3,1                                                   MCG      1999
                                                  LOC    *O                                                      MCG      2000
                                                                                                                 MCG      2001
                                         L2T      DATA   3,15        LEVEL 2 STORE/LOAD TIMES                    MCG      2002
                                                                                                                 MCG      2003
                                         #MD      ELSE                                                   '7600   MCG      2004
           725  00000000000000000011     TSL      CON    9,8         STORE/LOAD TIMES  *6600*                    MCG      2005
           726  00000000000000000010
                                         #MD      ENDIF                                                  '6600   MCG      2006
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    44
        AVC - ADVANCE CLOCK FOR UJP/RJX/LAB INSTRUCTIONS              AVC 
  
                                        **        AVC - ADVANCE CLOCK AFTER ISSUE OF LAB/UJP/RJX                 MCG      2008
                                        *         ENTRY  (B4) = T(EX)                                            MCG      2009
                                        *         EXIT   T , PC UPDATED.  N.SP , STL SET IF STORES IN NEXT BLOCK MCG      2010
                                                                                                                 MCG      2011
                                        *         SET STORE LOCKOUT FLAG IF MORE THAN 1 STORE PRED IN NEXT BLOCK MCG      2012
                                                                                                                 MCG      2013
           727  54440                    AVC0     SA4    "DI"                                                    MCG      2014
                                                  LX4    -D.USESP                                                MCG      2015
                     43563                        MX5    -D.USESL                                                MCG      2016
                          5130000000 X            SA3    L.OTI                                                   MCG      2017
           730  0313000734 +                      NZ     X3,AVC1     IF L.OTI " 0  */ JAM MODE                   MCG      2018
                          16654                   BX6    -X4+X5                                                  MCG      2019
                               23316              AX3    B1,X6                                                   MCG      2020
           731  0303000734 +                      ZR     X3,AVC1     IF N.SP @ 1                                 MCG      2021
                          73661                   SX6    X6+B1                                                   MCG      2022
           732  5160000001 C                      SA6    N.SP        N.SP = -(USES[DI]-1)                        MCG      2023
                          7170737777              SX7    -FX.X6                                                  MCG      2024
           733  5170000014 C                      SA7    STL         STL = -FX.X6                                MCG      2025
                                                                                                                 MCG      2026
           734  5034777773               AVC1     SA3    "DI"-4      DL = DI - 4                                 MCG      2027
                          5110000755 +            SA1    AVCA                                                    MCG      2028
           735  16231                             BX2    -X1+X3                                                  MCG      2029
                     0302000740 +                 ZR     X2,AVC      IF BM[DL] & TYPE[DL] = IV                   MCG      2030
                               43600              SETZERO ARA+1,7    FOR I = 1 TO 7; ARA(I) = 0                  MCG      2031
                                                                                                                 MCG      2032
           740  0200400740 +             AVC      ROUTINE                                                        MCG      2033
           741  5110000003 C                      SA1    ICL                                                     MCG      2034
                          43255                   MX2    -I.LSTL                                                 MCG      2035
                               53317              SA3    "TB"+X1     L = BASE + ICL                              MCG      2036
           742  43700                             MX7    0                                                       MCG      2037
                     5170000127 C                 SA7    PC          PC = 0                                      MCG      2038
                               20352              LX3    -I.LSTP                                                 MCG      2039
           743  15632                             BX6    -X2*X3                                                  MCG      2040
                     5160000126 C                 SA6    T           T = LST[L]                                  MCG      2041
           744  5170000130 C                      SA7    TRS         TRS = 0                                     MCG      2042
                          5023777774              SA2    A3-3        R1 = L - 3                                  MCG      2043
           745  26322                             UX3    B2,X2                                                   MCG      2044
                     0420000740 +                 ZR     B2,AVC      IF OC[R1] = OC.EOQ                          MCG      2045
           746  6226777765                        SB2    X6-10                                                   MCG      2046
                          0742000727 +            GT     B2,B4,AVC0  IF T \ T(EX) + 10                           MCG      2047
           747  43207                             MX2    8-1                                                     MCG      2048
                     5170000075 C                 SA7    TRA+23                                                  MCG      2049
                               43600              MX6    0                                                       FCC1442    12
           750  20201                   +         LX2    1           FOR I = 16 TO 24, TRA(I) = 0                MCG      2050
                     55771                        SA7    A7-B1                                                   MCG      2051
                          5067777760              SA6    A7-22+7     TRA(I-8) = 0  */ CLEAR B-REG ASSOCIATES     FCC1442    13
           751  0332000750 +                      MI     X2,*-1                                                  FCC1442    14
                          43215                   MX2    14-1                                                    MCG      2053
           752  5170000106 C                      SA7    TFU                                                     MCG      2054
           753  20201                   +         LX2    1           FOR I = 1 TO 14, TFU(I) = 0                 MCG      2055
                     54771                        SA7    A7+B1                                                   MCG      2056
                          0332000753 +            MI     X2,*                                                    MCG      2057
           754  0400000727 +                      EQ     AVC0                                                    MCG      2058
                                                                                                                 MCG      2059
           755                           AVCA     BFMW   D,(TY,BM)                                               MCG      2060
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    45
        SII - SAVE ISSUED INSTRUCTION                                 SII 
  
                                        **        SII - SAVE ISSUED INSTRUCTION FOR LATER PROCESSING             MCG      2062
                                        *                I.E. FINAL CONVERSION OF INSTRUCTION TO MACHINE CODE.   MCG      2063
                                        *                                                                        MCG      2064
                                        *         ENTRY  (B3) = REG[RI]                                          MCG      2065
                                        *                (A5,X5) = R1, [R1]                                      MCG      2066
                                        *                                                                        MCG      2067
                                        *         EXIT   INSTRUCTION SAVED IN *PIT*, IIP UPDATED.                MCG      2068
                                        *                                                                        MCG      2069
                                        *         USES   B - 2, 6  ,  X - 1, 2, 3, 4, 5, 6, 7                    MCG      2070
                                                                                                                 MCG      2071
                                                  QUAL   SII                                                     MCG      2072
  
  
  
           756                                    PROCESS SA                                                     CCG2       38
           756  5045000002                        S"DI"  A5+2        DI = R1 + 2                                 CCG2       39
                          5110000003 +            SA1    REG=A0                                                  CCGA073    11
           757  20401                             LX4    59-D.TYP                                                CCG2       41
                     0324000761 +                 PL     X4,TYI      IF TYPE[DI] " II  */ NOT  *SA  RI,A0*       CCG2       42
                               20106              LX1    SI.RJP                                                  CCG2       43
           760  12717                             BX7    X1+X7       REG[RJ] = RN.A0                             CCG2       44
                     0400000764 +                 EQ     SII0                                                    CCG2       45
                                                                                                                 CCG2       46
                                        *         TYPE 1 INSTRUCTION WITH 2 OPERANDS                             MCG      2098
                                                                                                                 MCG      2099
           761  20534                    TYI      LX5    -R1.RJP                                                 MCG      2100
                     15650                        BX6    "RN"X5                                                  MCG      2101
                          53167                   SA1    "TB"+X6                                                 MCG      2102
                                                  LX1    -I.REGP                                                 MCG      2103
                               20520              LX5    R1.RJP-R1.RKP                                           MCG      2104
           762  15450                             BX4    "RN"X5                                                  MCG      2105
                     53247                        SA2    "TB"+X4                                                 MCG      2106
                                                  LX2    -I.REGP                                                 MCG      2107
                          73610                   SX6    X1                                                      MCG      2108
                               73420              SX4    X2                                                      MCG      2109
           763  20606                             LX6    SI.RJP                                                  MCG      2110
                     12167                        BX1    X6+X7       [IIP-1] = SI(OC,0,REG[RK],REG[RJ],REG[RI])  MCG      2111
                          20414                   LX4    SI.RKP                                                  MCG      2112
                               36714              IX7    X1+X4                                                   MCG      2113
                                                                                                                 MCG      2114
           764  5273000000               SII0     SA7    X3+                                                     MCG      2115
                                                                                                                 MCG      2116
           765  0200400765 +             SII      ROUTINE            ** ENTRY/EXIT **                            MCG      2117
           766  5130000135 C                      SA3    IIP                                                     MCG      2118
                          26425                   UX4    B2,X5                                                   MCG      2119
                               76230              SX2    B3                                                      MCG      2120
           767  5112001055 +                      SA1    SIIA+B2                                                 MCG      2121
                          73631                   SX6    X3+B1       IIP = IIP + 1                               MCG      2122
                               27722              PX7    B2,X2       SIW = PACK(OC[R1],0,0,REG[R])               MCG      2123
           770  63610                             SB6    X1                                                      MCG      2124
                     54630                        SA6    A3                                                      MCG      2125
                          0266000000              JP     B6          JUMP( SIIA( OC[R1] ) )                      MCG      2126
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    46
        SII - SAVE ISSUED INSTRUCTION                                 SII                 SII 
  
                                        *         TYPE 1 - RK = 0                                                MCG      2128
                                                                                                                 MCG      2129
           771                                    PROCESS (DRL,DWL)                                              CCG16     252
           771  5045000002                        SA4    A5+2        DI = R1 + 2                                 CCG16     253
                          20427                   LX4    59-D.L2P                                                CCG16     254
           772  0334000774 +                      MI     X4,XMT      IF L2[DI]     */ ^ A *SUB0*                 CCG16     255
                          54251                   SA2    A5+B1       R2 = R1 + 1                                 CCGA034     5
                               73220              SX2    X2                                                      CCGA034     6
           773  20214                             LX2    SI.IHP                                                  CCG16     258
                     12727                        BX7    X2+X7       IH[SIW] = IH[R2]                            CCG16     259
                                                                                                                 CCG16     260
           774                           XMT      PROCESS (XMT,XMTC)                                             CCGA093     7
           774  20534                             LX5    -R1.RJP                                                 MCG      2131
                     15650                        BX6    "RN"X5                                                  MCG      2132
                          53167                   SA1    "TB"+X6                                                 MCG      2133
                                                  LX1    -I.REGP                                                 MCG      2134
                               73210              SX2    X1                                                      MCG      2135
           775  20206                             LX2    SI.RJP                                                  MCG      2136
                     12727                        BX7    X2+X7       [IIP-1] = SI(OC,0,REG[RJ],REG[RI])          MCG      2137
                          0400000764 +            EQ     SII0                                                    MCG      2138
                                                                                                                 CCGA093     8
                                        *         TYPE 1 - SWITCH RJ TO RK                                       CCGA093     9
                                                                                                                 CCGA093    10
           776                                    PROCESS (CX)                                                   CCGA093    11
           776  20534                             LX5    -R1.RJP                                                 CCGA093    12
                     15650                        BX6    "RN"X5                                                  CCGA093    13
                          53167                   SA1    "TB"+X6                                                 CCGA093    14
                                                  LX1    -I.REGP                                                 CCGA093    15
                               73210              SX2    X1                                                      CCGA093    16
           777  20214                             LX2    SI.RKP                                                  CCGA093    17
                     12727                        BX7    X2+X7                                                   CCGA093    18
                          0400000764 +            EQ     SII0                                                    CCGA093    19
                                                                                                                 MCG      2139
                                        *         TYPE I - RJ IS A DEF                                           MCG      2140
                                                                                                                 MCG      2141
          1000                                    PROCESS (UP,NR,RNZ)                                            MCG      2142
          1000  20554                             LX5    -R1.RKP                                                 MCG      2143
                     15650                        BX6    "RN"X5                                                  MCG      2144
                          53167                   SA1    "TB"+X6                                                 MCG      2145
                               20554              LX5    R1.RKP-R1.RJP                                           MCG      2146
                                                  LX1    -I.REGP                                                 MCG      2147
          1001  73210                             SX2    X1                                                      MCG      2148
                     15650                        BX6    "RN"X5                                                  MCG      2149
                          20214                   LX2    SI.RKP                                                  MCG      2150
                               36727              IX7    X2+X7       [IIP-1] = SI(OC,REG[RK],0,REG[RI])          MCG      2151
          1002  0306000764 +                      ZR     X6,SII0     IF RJ[R1] = 0                               MCG      2152
                          5015000004              SA1    A5+4        R1S = R1 + 4                                MCG      2153
          1003  43566                             MX5    -SO.RTL-SO.RNL                                          MCG      2154
                     20154                        LX1    -R1.SOP                                                 MCG      2155
                          15215                   BX2    -X5*X1      REG[RJ] = SOREG[R1S]                        MCG      2156
                               20206              LX2    SI.RJP                                                  MCG      2157
          1004  36727                             IX7    X2+X7                                                   MCG      2158
                     0400000764 +                 EQ     SII0                                                    MCG      2159
                                                                                                                 MCG      2160
                                        *         TYPE II INSTRUCTION                                            MCG      2161
                                                                                                                 MCG      2162
          1005  21436                    TYII     AX4    R1.INP                                                  MCG      2163
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    47
        SII - SAVE ISSUED INSTRUCTION                                 SII                 SII 
  
                     20436                        LX4    SI.CAP                                                  MCG      2164
                          12747                   BX7    X4+X7       [IIP-1] = SI(OC,IN[R1],0,0,REG[RI])         MCG      2165
          1006  0400000764 +                      EQ     SII0                                                    MCG      2166
                                                                                                                 MCG      2167
          1007                                    PROCESS (KLS,KRS)                                              MCG      2168
          1007  54151                             SA1    A5+B1       R2 = R1 + 1                                 MCG      2169
                     20152                        LX1    -IH.CAP                                                 MCG      2170
                          73210                   SX2    X1                                                      MCG      2171
                               20236              LX2    SI.CAP                                                  MCG      2172
          1010  12727                             BX7    X2+X7       [IIP-1] = SI(OC,CA[R2],0,0,REG[RI])         MCG      2173
                     0400000764 +                 EQ     SII0                                                    MCG      2174
                                                                                                                 MCG      2175
                                        *         TYPE III JUMP INSTRUCTIONS                                     MCG      2176
                                                                                                                 MCG      2177
          1011  54551                    TYIII    SA5    A5+B1       R2 = R1 + 1                                 MCG      2178
                     43630                        MX6    -IH.CAIHL                                               MCG      2179
                                                  LX5    -IH.CAIHP                                               MCG      2180
                          15456                   BX4    -X6*X5                                                  MCG      2181
                               20530              LX5    IH.CAIHP-IH.RFP                                         MCG      2182
          1012  53157                             SA1    "TB"+X5                                                 MCG      2183
                                                  LX1    -I.REGP                                                 MCG      2184
                     20414                        LX4    SI.IHP                                                  MCG      2185
                          73210                   SX2    X1                                                      MCG      2186
                               20206              LX2    SI.RJP                                                  MCG      2187
          1013  12624                             BX6    X2+X4                                                   MCG      2188
                     36767                        IX7    X6+X7       [IIP-1] = SI(OC,0,IH[R2],REG[RF],REG[RI])   MCG      2189
                          0400000764 +            EQ     SII0                                                    MCG      2190
                                                                                                                 MCG      2191
                                        *         TYPE IV INSTRUCTIONS AND *NOP* ( BUFFER TERMINATOR )           MCG      2192
                                                                                                                 MCG      2193
          1014                                    PROCESS NOP                                                    MCG      2194
          1014  10755                    TYIV     BX7    X5          [IIP-1] = [R1]                              MCG      2195
                     0400000764 +                 EQ     SII0                                                    MCG      2196
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    48
        SII - SAVE ISSUED INSTRUCTION                                 SII                 SII 
  
                                        *         MEMORY REFERENCES                                              MCG      2198
                                                                                                                 MCG      2199
          1015                                    PROCESS (LD,ST,STT,TLD,TST,ILD,LDC,LDV)                        CCG16     262
          1015  5110000004 C                      SA1    RMR                                                     MCG      2201
                          43630                   MX6    -IH.CAIHL                                               MCG      2202
                               54251              SA2    A5+B1       R2 = R1 + 1                                 MCG      2203
          1016  0311001025 +                      NZ     X1,LSS2     IF RMR " 0    */ REDUCABLE MEMREF           MCG      2204
                                                  LX2    -IH.CAIHP                                               MCG      2205
                          15626                   BX6    -X6*X2                                                  MCG      2206
                               20230              LX2    IH.CAIHP-IH.RFP                                         MCG      2207
          1017  53127                             SA1    "TB"+X2                                                 MCG      2208
                     63620                        SB6    X2                                                      MCG      2209
                          43460                   MX4    -R1.H2L                                                 MCG      2210
                                                  LX1    -I.REGP                                                 MCG      2211
                               73210              SX2    X1                                                      MCG      2212
          1020  0561001021 +                      NE     B6,B1,LSS1  IF RF[R2] " 1                               MCG      2213
                          5120000003 +            SA2    REG=A0      REG[RF] = REG=A0                            CCGA073    12
          1021  20614                    LSS1     LX6    SI.IHP                                                  MCG      2215
                     12167                        BX1    X6+X7                                                   MCG      2216
                          20206                   LX2    SI.RJP                                                  MCG      2217
                               36712              IX7    X1+X2       [IIP-1] = SI(OC,CA,IH,REG[RF],REG[RI])      MCG      2218
          1022  20552                             LX5    -R1.H2P                                                 MCG      2219
                     15654                        BX6    -X4*X5                                                  MCG      2220
                          0306000764 +            ZR     X6,SII0     IF H2[R1] = 0                               MCG      2221
                                                                                                                 MCG      2222
          1023  43514                             MX5    12                                                      MCG      2223
                     53631                        SA6    X3+B1       [IIP] = H2[R1]                              MCG      2224
                          13757                   BX7    X5-X7       H2[IIP-1] = 1                               MCG      2225
                               53730              SA7    X3                                                      MCG      2226
          1024  74661                             SX6    A6+B1       IIP = IIP + 1                               MCG      2227
                     54630                        SA6    A3                                                      MCG      2228
                          0400000765 +            EQ     SII                                                     MCG      2229
                                                                                                                 MCG      2230
                                        *         REDUCABLE MEM REF                                              MCG      2231
                                                                                                                 MCG      2232
          1025  73210                    LSS2     SX2    X1                                                      MCG      2233
                     43600                        MX6    0                                                       MCG      2234
                          37112                   IX1    X1-X2                                                   MCG      2235
                               54610              SA6    A1          RMR = 0                                     MCG      2236
          1026  7242000010                        SX4    X2+RN.A0                                                MCG      2237
                          20114                   LX1    SI.CAP-IH.CAP                                           MCG      2238
                               12517              BX5    X1+X7                                                   MCG      2239
          1027  20406                             LX4    SI.RJP                                                  MCG      2240
                     36745                        IX7    X4+X5       [IIP-1] = SI(OC,CA[RMR],0,REG[RF],REG[RI])  MCG      2241
                          0400000764 +            EQ     SII0                                                    MCG      2242
  
  
          1030                                    PROCESS (PLD,PST)                                              MCG      2244
          1030  5120000003 +                      SA2    REG=A0                                                  CCGA073    13
                          73620                   SX6    X2          REGJ = REG=A0                               CCGA073    14
                               54251              SA2    A5+B1       R2 = R1 + 1                                 MCG      2245
          1031  20434                             LX4    -R1.RJP                                                 MCG      2246
                     63640                        SB6    X4                                                      MCG      2247
                          15440                   BX4    "RN"X4                                                  MCG      2248
                               53147              SA1    "TB"+X4     LJ = TB + RJ[R1]                            MCG      2249
          1032  20252                             LX2    -IH.CAP     C = CA[R2]                                  MCG      2250
                     0461001034 +                 EQ     B6,B1,PLD1  IF RJ[R1] = 1                               MCG      2252
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    49
        SII - SAVE ISSUED INSTRUCTION                                 PLD                 SII 
  
                                                  LX1    -I.REGP                                                 MCG      2253
          1033  7261000000                        SX6    X1+         REGJ = REG[LJ]                              MCG      2254
                                                                                                                 MCG      2255
          1034  55111                    PLD1     SA1    A1-B1       DJ = LJ - 1                                 MCG      2256
                     20606                        LX6    SI.RJP                                                  MCG      2257
                          65611                   SB6    A1-B1       R2P = DJ - 1                                MCG      2258
                               12767              BX7    X6+X7                                                   MCG      2259
          1035  20135                             LX1    59-D.PIP                                                MCG      2260
                     0331001037 +                 MI     X1,PLD2     IF PI[DJ]     */ PRED IS A *DEF*            MCG      2261
                               20164              LX1    D.PIP-D.PRSP                                            MCG      2262
          1036  0321001040 +                      PL     X1,PLD3     IF ^PRS[DI]   */ NOT REDEF OF REG           MCG      2263
                          6166000004              SB6    B6+4        R2P = R2P + 4 */ ADVANCE TO *RS*            MCG      2264
                                                                                                                 MCG      2265
                                        *         OPT=2 PLD/PST, BASE CA IS IN R2 WORD OF *DEF/RS*               MCG      2266
                                                                                                                 MCG      2267
          1037  56160                    PLD2     SA1    B6                                                      MCG      2268
                     20152                        LX1    -IH.CAP                                                 MCG      2269
                          63210                   SB2    X1                                                      MCG      2270
                               73222              SX2    X2+B2       C = CA[R2] + ( -CA[R2P] )                   MCG      2271
                                                                                                                 MCG      2272
          1040  43552                    PLD3     MX5    -IH.CAL                                                 MCG      2273
                     15225                        BX2    -X5*X2                                                  MCG      2274
                          20236                   LX2    SI.CAP                                                  MCG      2275
                               12727              BX7    X2+X7       [IIP-1] = SI(OC,C,0,REGJ,REG[RI])           MCG      2276
          1041  0400000764 +                      EQ     SII0                                                    MCG      2277
                                                                                                                 MCG      2278
                                        *         CLR - GENERATE A MXI 0  OR A  BXI XI-XI                        MCG      2279
                                                                                                                 MCG      2280
          1042                                    PROCESS CLR                                                    MCG      2281
          1042  5110000007 C                      SA1    PBI+1                                                   MCG      2282
                          6120000043              SB2    OC.FMA                                                  MCG      2283
          1043  26461                             UX4    B6,X1                                                   MCG      2284
                     7166777775                   SX6    B6-BOOL                                                 MCG      2285
                               27727              PX7    B2,X7       [IIP-1] = SI(FMA,0,0,0,0,REG[RI])           MCG      2286
          1044  0316000764 +                      NZ     X6,SII0     IF FU[PBI+1] " BOOL                         MCG      2287
                          6120000013              SB2    OC.XOR                                                  MCG      2288
          1045  76430                             SX4    B3          R = REG[RI]                                 MCG      2289
                     20406                        LX4    SI.RJP                                                  MCG      2290
                          12747                   BX7    X4+X7                                                   MCG      2291
                               20406              LX4    SI.RKP-SI.RJP                                           MCG      2292
          1046  12547                             BX5    X4+X7                                                   MCG      2293
                     27725                        PX7    B2,X5       [IIP-1] = SI(XOR,0,R,R,R)                   MCG      2294
                          0400000764 +            EQ     SII0                                                    MCG      2295
                                                                                                                 MCG      2296
                                        *         SXT -  - GENERATE AN *XMT* OR A NOMINAL LEFT SHIFT             MCG      2297
                                                                                                                 MCG      2298
          1047                                    PROCESS SXT                                                    MCG      2299
          1047  5110000007 C                      SA1    PBI+1                                                   MCG      2300
                          6120000010              SB2    OC.XMT      OC = OC.XMT                                 MCG      2301
          1050  26661                             UX6    B6,X1                                                   MCG      2302
                     7146777775                   SX4    B6-BOOL                                                 MCG      2303
                               27727              PX7    B2,X7                                                   MCG      2304
          1051  0304000774 +                      ZR     X4,.XMT     IF FU[PBI+1] = BOOL                         MCG      2305
                          20534                   LX5    -R1.RJP                                                 MCG      2306
                               15650              BX6    "RN"X5                                                  MCG      2307
          1052  53167                             SA1    "TB"+X6                                                 MCG      2308
                                                  LX1    -I.REGP                                                 MCG      2309
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    50
        SII - SAVE ISSUED INSTRUCTION                                 PLD                 SII 
  
                     6120000022                   SB2    OC.ILS      OC = OC.ILS                                 MCG      2310
                               27727              PX7    B2,X7                                                   MCG      2311
          1053  73210                             SX2    X1                                                      MCG      2312
                     20214                        LX2    SI.RKP                                                  MCG      2313
                          12727                   BX7    X2+X7       [IIP-1] = SI(OC,REG[RJ],0,REG[RI])          MCG      2314
          1054  0400000764 +                      EQ     SII0                                                    MCG      2315
  
  
  
                                        *         OPR - DEFINE MACRO TO FROM JUMP TABLES FOR *PPI* AND *SII*     MCG      2317
                                                                                                                 MCG      2318
                                                  MACRO  OPR,NAM,SS                                              MCG      2319
                                                  NOREF  .NAM                                                    MCG      2320
                                         TYP      MICRO  3,3,$SS$                                                MCG      2321
                                         X        IFLT   OC.NAM,OC.XMT                                           MCG      2322
                                                  EQ     //.NAM            NAM                                   MCG      2323
                                        -         JP     TY"TYP"                                                 MCG      2324
                                         X        ELSE                                                           MCG      2325
                                                  IF     DEF,.NAM,2                                              MCG      2326
                                                  CON    .NAM              NAM                                   MCG      2327
                                                  SKIP   1                                                       MCG      2328
                                                  CON    TY"TYP"     NAM                                         MCG      2329
                                         X        ENDIF                                                          MCG      2330
                                                  ENDM                                                           MCG      2331
  
  
          1055                           SIIA     BSS    0                                                       MCG      2333
      L      0                                    LOC    0                                                       MCG      2334
                                                  LIST   G                                                       MCG      2335
      L      0                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
      L      0  0400000602 +                      EQ     //.EOQ            EOQ                                  OPR     .1
                          0200001014 +  -         JP     TYIV                                                   OPR     .1
      L      1  0400000526 +                      EQ     //.BOS            BOS                                  OPR     .1
                          0200001014 +  -         JP     TYIV                                                   OPR     .1
      L      2  0400000526 +                      EQ     //.EOS            EOS                                  OPR     .1
                          0200001014 +  -         JP     TYIV                                                   OPR     .1
      L      3  0400000532 +                      EQ     //.DAR            DAR                                  OPR     .1
                          0200000761 +  -         JP     TYI                                                    OPR     .1
      L      4  0400000554 +                      EQ     //.RS            RS                                    OPR     .1
                          0200001005 +  -         JP     TYII                                                   OPR     .1
      L      5  0400000536 +                      EQ     //.DEF            DEF                                  OPR     .1
                          0200001005 +  -         JP     TYII                                                   OPR     .1
      L      6  0400000547 +                      EQ     //.LAB            LAB                                  OPR     .1
                          0200001014 +  -         JP     TYIV                                                   OPR     .1
      L      7  0400000547 +                      EQ     //.ENT            ENT                                  OPR     .1
                          0200001014 +  -         JP     TYIV                                                   OPR     .1
      L     10  00000000000000000774 +            CON    .XMT              XMT                                  OPR     .1
      L     11  00000000000000000761 +            CON    TYI       AND                                          OPR     .1
      L     12  00000000000000000761 +            CON    TYI       OR                                           OPR     .1
      L     13  00000000000000000761 +            CON    TYI       XOR                                          OPR     .1
      L     14  00000000000000000774 +            CON    .XMTC              XMTC                                OPR     .1
      L     15  00000000000000000761 +            CON    TYI       STR                                          OPR     .1
      L     16  00000000000000000761 +            CON    TYI       IMP                                          OPR     .1
      L     17  00000000000000000761 +            CON    TYI       EQV                                          OPR     .1
      L     20  00000000000000001007 +            CON    .KLS              KLS                                  OPR     .1
      L     21  00000000000000001007 +            CON    .KRS              KRS                                  OPR     .1
      L     22  00000000000000000761 +            CON    TYI       ILS                                          OPR     .1
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    51
        SII - SAVE ISSUED INSTRUCTION                                 SII                 SII 
  
      L     23  00000000000000000761 +            CON    TYI       IRS                                          OPR     .1
      L     24  00000000000000001000 +            CON    .NR              NR                                    OPR     .1
      L     25  00000000000000001000 +            CON    .RNZ              RNZ                                  OPR     .1
      L     26  00000000000000001000 +            CON    .UP              UP                                    OPR     .1
      L     27  00000000000000000761 +            CON    TYI       PK                                           OPR     .1
      L     30  00000000000000000761 +            CON    TYI       FA                                           OPR     .1
      L     31  00000000000000000761 +            CON    TYI       FS                                           OPR     .1
      L     32  00000000000000000761 +            CON    TYI       DFA                                          OPR     .1
      L     33  00000000000000000761 +            CON    TYI       DFS                                          OPR     .1
      L     34  00000000000000000761 +            CON    TYI       RFA                                          OPR     .1
      L     35  00000000000000000761 +            CON    TYI       RFS                                          OPR     .1
      L     36  00000000000000000761 +            CON    TYI       IA                                           OPR     .1
      L     37  00000000000000000761 +            CON    TYI       IS                                           OPR     .1
      L     40  00000000000000000761 +            CON    TYI       FM                                           OPR     .1
      L     41  00000000000000000761 +            CON    TYI       RFM                                          OPR     .1
      L     42  00000000000000000761 +            CON    TYI       DFM                                          OPR     .1
      L     43  00000000000000001005 +            CON    TYII      FMA                                          OPR     .1
      L     44  00000000000000000761 +            CON    TYI       FD                                           OPR     .1
      L     45  00000000000000000761 +            CON    TYI       RFD                                          OPR     .1
      L     46  00000000000000001014 +            CON    .NOP              NOP                                  OPR     .1
      L     47  00000000000000000776 +            CON    .CX              CX                                    OPR     .1
      L     50  00000000000000001015 +            CON    .LD              LD                                    OPR     .1
      L     51  00000000000000001015 +            CON    .ST              ST                                    OPR     .1
      L     52  00000000000000001015 +            CON    .STT              STT                                  OPR     .1
      L     53  00000000000000001030 +            CON    .PLD              PLD                                  OPR     .1
      L     54  00000000000000001030 +            CON    .PST              PST                                  OPR     .1
      L     55  00000000000000001005 +            CON    TYII      S                                            OPR     .1
      L     56  00000000000000000761 +            CON    TYI       SLD                                          OPR     .1
      L     57  00000000000000000761 +            CON    TYI       SST                                          OPR     .1
      L     60  00000000000000000756 +            CON    .SA              SA                                    OPR     .1
      L     61  00000000000000000761 +            CON    TYI       SDL                                          OPR     .1
      L     62  00000000000000000761 +            CON    TYI       SDS                                          OPR     .1
      L     63  00000000000000000761 +            CON    TYI       SS                                           OPR     .1
      L     64  00000000000000000771 +            CON    .DRL              DRL                                  OPR     .1
      L     65  00000000000000000771 +            CON    .DWL              DWL                                  OPR     .1
      L     66  00000000000000001011 +            CON    TYIII     RJXJ                                         OPR     .1
      L     67  00000000000000001011 +            CON    TYIII     JPX                                          OPR     .1
      L     70  00000000000000001011 +            CON    TYIII     JPBB                                         OPR     .1
      L     71  00000000000000001011 +            CON    TYIII     JIN                                          OPR     .1
      L     72  00000000000000001014 +            CON    TYIV      RJ3                                          OPR     .1
      L     73  00000000000000001014 +            CON    TYIV      RJ6                                          OPR     .1
      L     74  00000000000000001014 +            CON    TYIV      UJP                                          OPR     .1
      L     75  00000000000000001015 +            CON    .ILD              ILD                                  OPR     .1
      L     76  00000000000000001015 +            CON    .TLD              TLD                                  OPR     .1
      L     77  00000000000000001015 +            CON    .TST              TST                                  OPR     .1
      L    100  00000000000000000761 +            CON    TYI       IAZ                                          OPR     .1
      L    101  00000000000000000761 +            CON    TYI       ISZ                                          OPR     .1
      L    102  00000000000000000761 +            CON    TYI       IM                                           OPR     .1
      L    103  00000000000000001015 +            CON    .LDC              LDC                                  OPR     .1
      L    104  00000000000000001015 +            CON    .LDV              LDV                                  OPR     .1
      L    105  00000000000000001042 +            CON    .CLR              CLR                                  OPR     .1
      L    106  00000000000000001047 +            CON    .SXT              SXT                                  OPR     .1
                                                  LIST   -G                                                      MCG      2337
          1164                                    LOC    *O                                                      MCG      2338
                                                                                                                 MCG      2339
                                                  QUAL                                                           MCG      2340
                                                                                                                 MCG      2341
1       MCG - MACHINE CODE GENERATOR - INSTRUCTION ISSUE              COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    52
        SII - SAVE ISSUED INSTRUCTION                                 SII 
  
                                1055 +   PPI.JT   EQU    /SII/SIIA                                               MCG      2342
                                 765 +   SII      EQU    /SII/SII                                                MCG      2343
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    53
        JAM MODE / DOCUMENTION                                        JAM 
  
                                        **        JAM MODE - OVERVIEW/STRATEGY                                   MCG      2346
                                        *                                                                        MCG      2347
                                        *         THE GOAL OF THE JAM ALGORITHM IS TO CODE INSTRUCTION SEQUENCE  MCG      2348
                                        *         IN THE FINITE NUMBER OF REGISTERS ( 8 X-REGISTERS ) THAT WE    MCG      2349
                                        *         HAVE ON THE 6X/7X THOUSAND SERIES MACHINES.  THE INITIAL       MCG      2350
                                        *         SEQUENCE OF INSTRUCTIONS MAY REQUIRE MORE THAN 8 REGISTERS     MCG      2351
                                        *         TO CODE BECAUSE REDUNDANT OPERATION ELIMINATION HAS EXTENDED   MCG      2352
                                        *         THE RANGE OF THE USES OF INSTRUCTIONS, OR MAY REQUIRE LESS,    MCG      2353
                                        *         BUT THE SCHEDULER MAY HAVE PICKED AN ORDER FOR THE INSTRUCTION MCG      2354
                                        *         THAT BROUGHT ABOUT A DEADLOCK.                                 MCG      2355
                                        *         IN JAM MODE, SCHEDULING TAKES SECOND PRIORITY TO RESOURCE      MCG      2356
                                        *         ALLOCATION.  THE INPUT TO JAM IS THE SEQUENCE OF INSTRUCTIONS  MCG      2357
                                        *         LST[I] = (*TXT* INDEX[I])/2  ( INITIALLY ).                    MCG      2358
                                        *            THE *SIT* IS ASSUMED TO HAVE NO DUPLICATE ENTRIES           MCG      2359
                                        *         ( FOR *RIL* ) , AND OPERATIONS  WHICH PRECEED AN *RJX* REG     MCG      2360
                                        *         STORES ARE LINKED TO THE RJX.  MOREOVER THE REGW FIELD OF      MCG      2361
                                        *         THE DESCRIPTOR CONTAINS A COUNT OF THE NUMBER OF X-REGISTERS   MCG      2362
                                        *         IN USE AT ANY GIVEN POINT.                                     MCG      2363
                                        *         THE BASIC STRATEGY OF JAM MODE ASSUMES THAT THE ORDER OF THE   MCG      2364
                                        *         INSTRUCTIONS IS A REASONABLE ONE AND ATTEMPTS TO ISSUE THE     MCG      2365
                                        *         INSTRUCTIONS IN THAT ORDER.                                    MCG      2366
                                        *         SINCE MOST PROBLEMS FROM REGISTER JAMMING ARISE FROM           MCG      2367
                                        *         ATTEMPTING TO KEEP TOO MANY PARTIAL RESULTS IN THE REGISTERS   MCG      2368
                                        *         FOR TOO LONG, WE ADOPT THE FOLLOWING STRATEGY.                 MCG      2369
                                        *         ON ENTRY TO JAM THE INSTRUCTIONS HAVE BEEN TOTALLY ORDERED,    MCG      2370
                                        *         A SIT BUILT, AND THE NUMBER OF REGISTERS IN USE AT EACH POINT  MCG      2371
                                        *         COMPUTED.                                                      MCG      2372
                                        *         THE ALGORITHM THEN PROCEEDS TO ISSUE THE INSTRUCTIONS IN       MCG      2373
                                        *         THE GIVEN ORDER AND ADJUSTS IT AS FOLLOWS:                     MCG      2374
                                        *         WHEN A RESULT, R IN A REGISTER IS THE OPERAND OF AN            MCG      2375
                                        *         INSTRUCTION WHICH DOES NOT EXHAUST ITS USES, LOOK AT THE       MCG      2376
                                        *         DISTANCE AND REGISTER REQUIREMENTS BETWEEN THE ISSUED          MCG      2377
                                        *         INSTRUCTION AND THE NEXT USE OF R.  IF THE USE IS              MCG      2378
                                        *         "FAR AWAY" AND TOO MANY OTHER RESULTS ARE BEING EXTENDED       MCG      2379
                                        *         OVER THAT INTERVAL, THEN SAVE THE RESULT AND REISSUE THE       MCG      2380
                                        *         INSTRUCTION.  IN THIS MANNER MOST CRISIS SITUATIONS ARE        MCG      2381
                                        *         AVIODED AND THE SEQUENCE IS UNSQUEEZED IN A GRACEFUL FASHION.  MCG      2382
  
  
  
                                                  QUAL   JAM                                                     MCG      2384
                                                                                                                 MCG      2385
                                                  IF     DEF,/DEBUG/JAM,1                                        MCG      2386
                                                  TRACER (SSR,UJR)                                               MCG      2387
                                  11     N.UR0    EQU    9           NUMBER OF UNLOADED REGISTERS ( INIT VALUE ) MCG      2388
                                                                                                                 MCG      2389
                                        **        RV. - FORMAT OF *RVT* ENTRIES DURING JAM MODE                  MCG      2390
                                                                                                                 MCG      2391
                                                  DESCRIBE RV.,60                                                MCG      2392
      L     73  40000000000000000000     LOCK     DEFINE 1           LOCK BIT                                    MCG      2393
      L     60  37770000000000000000     COST     DEFINE 11          COST OF RESTORING RESULT IN REG             MCG      2394
                                                  DEFINE 11                                                      MCG      2395
      L     44  00000001000000000000     SRO      DEFINE 1           STORE REGISTER OUT ( UNSAVED RESULT )       MCG      2396
      L     22  00000000777777000000     NU       DEFINE 18          *TXT* INDEX OF NEXT USE                     MCG      2397
      L      0  00000000000000777777     RN       DEFINE 18          R-NUMBER IN THE REG                         MCG      2398
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    54
        JAM MODE / CONTROL                                            JAM                 JAM 
  
                                        **        JAM - REGISTER JAM CODE GENERATION MODE                        MCG      2400
                                                                                                                 MCG      2401
          1164  5110000170 C             JAM0     SA1    M.OT                                                    MCG      2402
                          7170000000              SX7    0                                                       CCG8      155
          1165  5170000000 X                      SA7    L.OTI       L.OTI = 0                                   CCG8      156
                                         .PLI     IFNE   HC.ID,3     ^ PL/I                                      CCG8      157
                          5120000000 X            SA2    =XN$OT                                                  CCG18     174
                                         .PLI     ELSE                                                           CCG8      159
                                                  SA4    =XHO$PN                                                 CCGNC     785
                                                  SA3    =XO$ADT                                                 CCGNC     786
                                                  IX7    X3+X4                                                   CCG8      162
                                                  SA2    X7                                                      CCG8      163
                                                  LX1    18                                                      CCG8      164
                                                  SX3    X2                                                      CCG8      165
                                                  BX1    X1+X3                                                   CCG8      166
                                         .PLI     ENDIF                                                          CCG8      167
          1166  37612                             MX6    X1+X2       N.OT = MAX( N.OT , M.OT )                   CCG8      168
                     54620                        SA6    A2                                                      MCG      2409
                                                                                                                 MCG      2410
          1170  0200401170 +             JAM      ROUTINE                                                        MCG      2411
          1171  43600                             SETZERO M.OT,10    SETZERO( M.OT , 10 )                        MCG      2412
                                                                                                                 MCG      2413
          1173  5140000000 X                      SA4    L.TXT                                                   MCG      2414
                          5120000000 X            SA2    O.TXT                                                   MCG      2415
          1174  6224777773                        SB2    X4-4                                                    MCG      2416
                          5262000003              SA6    X2+3        FOR I = 3 TO L.TXT BY 4; TXT(I) = 0         MCG      2417
          1175  6122777773              +         SB2    B2-4                                                    MCG      2418
                          5066000004              SA6    A6+4                                                    MCG      2419
          1176  0702001175 +                      GT     B2,*-1                                                  MCG      2420
                                                                                                                 MCG      2421
                                         .PLI     IFEQ   HC.ID,3     IF PL/I                                     CCGA006    36
                                                  MX6    0                                                       CCGA006    37
                                         .PLI     ELSE                                                           CCGA006    38
                          5110000000 X            SA1    =XHO$OPT                                                CCGNC     787
          1177  76610                             SX6    B1                                                      MCGF1       2
                     21172                        AX1    58                -1 OR 0                               MCGF1       3
                          36661                   IX6    X6+X1       MODE = IF( HO$OPT < 2 ) THEN 1 ELSE 0       CCGNC     788
                                         .PLI     ENDIF                                                          CCGA006    39
          1200  0100000000 X                      CALL   RIO#        RESET THE INSTRUCTION ORDER                 CCGNC     789
          1201  76610                             SX6    B1                                                      MCG      2423
                     0100000000 X                 CALL   BDT#        FORM THE DEPENDENCY INFO                    CCGNC     790
          1202  7170001164 +                      SX7    JAM0                                                    MCG      2425
                          76010                   SX0    B1                                                      MCG      2426
          1203  0100000117 +                      RJ     PRS         PRESET STORAGE                              MCG      2427
          1204  7170000011                        SX7    N.UR0                                                   MCG      2428
                          5170000214 C            SA7    UR          UR = N.UR0                                  MCG      2429
          1205  43600                             MX6    0                                                       MCG      2430
                     5160000001 C                 SA6    N.SP        N.SP = 0                                    MCG      2431
          1206  7170737777                        SX7    -FX.X6                                                  MCG      2432
                          5170000014 C            SA7    STL         STL = -FX.X6                                MCG      2433
          1207  0100002432 +                      RJ     SMB                                                     MCG      2434
                                                                                                                 MCG      2435
                                        *         MAIN LOOP                                                      MCG      2436
                                                                                                                 MCG      2437
          1210  5110000171 C             JAM1     SA1    SF                                                      MCG      2438
                          5120000012 C            SA2    AXR                                                     MCG      2439
          1211  11612                             BX6    X1*X2                                                   MCG      2440
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    55
        JAM MODE / CONTROL                                            JAM                 JAM 
  
                     0306001213 +                 ZR     X6,JAM2     IF SF & AXR = 0 */ NO UNSAVED STORES/ST REG MCG      2441
          1212  0100001420 +                      RJ     SUR         STORE UNSAVED RESULTS                       MCG      2442
                                                                                                                 MCG      2443
          1213  0100001236 +             JAM2     RJ     SNI         SELECT NEXT INSTRUCTION TO ISSUE            MCG      2444
          1214  0730001230 +                      MI     B3,JAM6     IF REGNO < 0  */ NO ISSUABLE INST FOUND     MCG      2445
                          0430001225 +            ZR     B3,JAM4     IF REGNO = 0  */ A ISSUED PSEUDO INST       MCG      2446
                                                  LX5    59-I.IIP                                                MCG      2447
          1215  0325001221 +                      PL     X5,JAM3     IF ^II[L]                                   MCG      2448
                          5110000214 C            SA1    UR                                                      MCG      2449
          1216  7170000011                        SX7    N.UR0                                                   MCG      2450
                          7261777776              SX6    X1-1                                                    MCG      2451
          1217  37367                   +         IX3    X6-X7                                                   MCG      2452
                     0323001220 +                 PL     X3,*+1      UR = MAX( UR-1 , N.UR0 )                    MCG      2453
                               10677              BX6    X7                                                      MCG      2454
          1220  54610                             SA6    A1                                                      MCG      2455
                                                                                                                 MCG      2456
                                         JAM3     LX5    1+I.IIP                                                 MCG      2457
          1221  0100000612 +                      RJ     AIL         ADJUST THE ISSUE LIST                       MCG      2458
          1222  0100000635 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      2459
          1223  54440                             S"DI"  "DI"                                                    MCG      2460
                     0100000661 +                 RJ     ASC         ADVANCE CLOCKS                              MCG      2461
          1224  5054777775                        SA5    "DI"-2                                                  MCG      2462
                          0100000765 +            RJ     SII         SAVE THE INSTRUCTION                        MCG      2463
                                                                                                                 MCG      2464
          1225  54440                    JAM4     S"DI"  "DI"                                                    MCG      2465
                     0100002504 +                 RJ     SNU         SET NEXT USE ADDRESS                        MCG      2466
                                                                                                                 MCG      2467
          1226  0307001210 +             JAM5     ZR     X7,JAM1     IF UOR = 0    */ NO UNCLEARED OPERAND REGS  MCG      2468
                          0100001337 +            RJ     CNU         CHECK NEXT USES OF OPERANDS                 MCG      2469
          1227  0400001210 +                      EQ     JAM1                                                    MCG      2470
                                                                                                                 MCG      2471
          1230  5130000003 C             JAM6     SA3    ICL                                                     MCG      2472
                          7170000000              SX7    0                                                       MCG      2473
          1231  5170000213 C                      SA7    UOR         UOR = 0                                     MCG      2474
                          0100001442 +            RJ     UJR         UNJAM THE REGISTERS                         MCG      2475
          1232  5110000213 C                      SA1    UOR                                                     MCG      2476
                          5120000204 C            SA2    T0                                                      MCG      2477
          1233  67671                             SB6    "TB"-B1                                                 MCG      2478
                     10711                        BX7    X1                                                      MCG      2479
                          53426                   S"DI"  B6+X2       DI = BASE-1 + T0                            MCG      2480
          1234  0400001226 +                      EQ     JAM5                                                    MCG      2481
  
  
  
                                                  USE    /MCG/                                                   MCG      2483
           170                     1     M.OT     BSS    1           MAX NUMBER OF OT.S IN CURRENT SEQUENCE      MCG      2484
           171                     1     SF       BSS    1           = FX.ST IF UNSAVED RESULTS NOT IN ST REGS   MCG      2485
           172                    10     LRN      BSS    8           LAST R-NUMBER IN B-REGISTER I               MCG      2486
                                 172 C   ISC      EQU    LRN         ISSUED STORE CHAIN                          MCG      2487
                                                                                                                 MCG      2488
           202                     1     CLASS    BSS    1           REGISTER CLASS                              MCG      2489
           203                     1     R0       BSS    1           *TXT* INDEX OF INSTRUCTION  REMOVED FROM RE MCG      2490
           204                     1     T0       BSS    1           *TXT* INDEX OF INSTRUCTION TO BE ISSUED     MCG      2491
           205                     1     T0C      BSS    1           COPY OF T0                                  MCG      2492
           206                     1     SIW      BSS    1           INDEX OF AVAIL WORD IN *SIT*                MCG      2493
           207                     4     DRI      BSS    4           DUMMY RLIST INSTRUCTION BUFFER              MCG      2494
           213                     1     UOR      BSS    1           LIST OF UNCLEARED OP REGISTERS ( *UJR* )    MCG      2495
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    56
        JAM MODE / CONTROL                                            JCG       MCG       JAM 
  
           214  00000000000000000011     UR       CON    9           COUNT OF UNLOADED REGISTERS                 MCG      2496
           215                     1     PIS      BSS    1           POINT IN SEQUENCE                           MCG      2497
           216                     1     TM       BSS    1           MAX *LST* OF ISSUABLE INST TO CONSIDER      MCG      2498
                                                  USE    0                                                       MCG      2499
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    57
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI                 JAM 
  
                                        **        SNI - SELECT NEXT INSTRUCTION TO BE POSTED ( ISSUED ) FROM     MCG      2501
                                        *         THE *ICL* ( ISSUE CANIDATE LIST ).                             MCG      2502
                                        *         SCAN INSTRUCTIONS ON *ICL* FOR WHICH LST[INST] < LST[ICL] + 7  MCG      2503
                                        *         OTHERWISE THIS ROUTINE IS IDENTICAL TO THE SCHEDULER           MCG      2504
                                        *         VERSION OF *SNI*.                                              MCG      2505
                                        *                                                                        MCG      2506
                                        *         EXIT   (B3) = REGNO OF ISSUABLE INST, < 0 IF NONE FOUND        MCG      2507
                                        *                (B4,B5) = T(EX), T(IS)                                  MCG      2508
                                        *                (A5) = LI ( ADDRESS OF LINK WORD OF ISSUABLE INSTRUCTIO MCG      2509
                                        *                (A0) = *TXT* INDEX OF PREVIOUS INSTRUCTION              MCG      2510
                                        *                PBI WORDS SET.                                          MCG      2511
                                                                                                                 MCG      2512
          1235  5054000001               SNI0     SA5    "DI"+1      LI = DI + 1                                 MCG      2513
                                                                                                                 MCG      2514
          1236  0200401236 +             SNI      ROUTINE                                                        MCG      2515
          1237  5140000005 C                      SA4    PBI-1                                                   MCG      2516
                          5130000003 C            SA3    ICL         CI = ICL                                    MCG      2517
          1240  56000                             S"PI"  B0          PI = 0                                      MCG      2518
                     10644                        BX6    X4                                                      MCG      2519
                          54641                   SA6    A4+B1       PBI = PB1(FALSE,0,INFINITY,INFINITY)        MCG      2520
                               63640              SB6    X4          TIS[PBI] = INFINITY                         MCG      2521
          1241  53537                             SA5    "TB"+X3     L = BASE + CI                               MCG      2522
                     43755                        MX7    -I.LSTL                                                 MCG      2523
                          20552                   LX5    -I.LSTP                                                 MCG      2524
                               15257              BX2    -X7*X5                                                  MCG      2525
          1242  7262000007                        SX6    X2+7        TM = LST[L] + 7  */ MAX LATE START TIME     MCG      2526
                          5160000216 C            SA6    TM                                                      MCG      2527
                                                                                                                 MCG      2528
                                        *         GET INST DESCR, CHECK FOR FIT IN CURRENT WORD                  MCG      2529
                                                                                                                 MCG      2530
          1243  63437                    SNI1     SB4    X3+"TB"     LI = CI + BASE                              MCG      2531
                     5120000126 C                 SA2    T                                                       MCG      2532
                               57441              SA4    B4-B1       DI = LI - 1  ( DESCR)                       MCG      2533
          1244  63520                             SB5    X2          T(IS) = T                                   MCG      2534
                     20443                        LX4    58-D.SZP                                                MCG      2535
                          0324001260 +            PL     X4,SNI4     IF SZ[DI] < 2 */ NO POSSIBLE SIZE FAULT     MCG      2536
          1245  5130000127 C                      SA3    PC                                                      MCG      2537
                          43772                   MX7    -2                                                      MCG      2538
                               12637              BX6    X3+X7                                                   MCG      2539
          1246  0316001260 +                      NZ     X6,SNI4     IF PC " 3     */ NOT IN LAST PARCEL OF WORD MCG      2540
                          10244                   BX2    X4                                                      MCG      2541
                               20202              LX2    1+D.SZP-D.SRP                                           MCG      2542
          1247  0322001257 +                      PL     X2,SNI3     IF ^SR[DI]    */ NOT SIZE REDUCABLE         MCG      2543
                                                                                                                 MCG      2544
                                        *         INSTRUCTION IS SIZE REDUCEABLE, CHECK A-REGISTERS TO SEE IF    MCG      2545
                                        *         ADDRESS IS IN ONE OF THEM.                                     MCG      2546
                                                                                                                 MCG      2547
                          5120000105 C            SA2    ARA+7       I = ARA(8)                                  MCG      2548
          1250  55341                             SA3    "DI"-B1     R2 = DI - 1                                 MCG      2549
                     6120000075 C                 SB2    ARA-1                                                   MCG      2550
                               10633              BX6    X3                                                      MCG      2551
          1251  56621                             SA6    B2+B1       ARA(1) = [R2]                               MCG      2552
                                                                                                                 MCG      2553
          1252  13732                    SNI2     BX7    X3-X2                                                   MCG      2554
                     55221                        SA2    A2-B1       I = I - 1                                   MCG      2555
                          0317001252 +            NZ     X7,SNI2     IF [I+1] " [R2]                             MCG      2556
          1253  65322                             SB3    A2-B2                                                   MCG      2557
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    58
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI                 JAM 
  
                     0430001257 +                 ZR     B3,SNI3     IF I = 0    */ MATCH WITH SEARCH TERMINATOR MCG      2558
                                                                                                                 MCG      2559
          1254  5123000056 C                      SA2    TRA+RN.A0+B3              */ COMPUTE TRUE ISSUE TIME    MCG      2560
                          63220                   SB2    X2                                                      MCG      2561
          1255  0652001260 +                      LE     B2,B5,SNI4                                              MCG      2562
                          63520                   SB5    X2                                                      MCG      2563
          1256  0400001260 +                      EQ     SNI4                                                    MCG      2564
                                                                                                                 MCG      2565
          1257  5110000011 C             SNI3     SA1    IWT               */ SET PENALITY FOR SIZE FAULT        MCG      2566
                          73211                   SX2    X1+B1                                                   MCG      2567
                               63525              SB5    X2+B5       T(IS) = T(IS) + IWT + 1                     MCG      2568
                                                                                                                 MCG      2569
                                        *         SELECT AN AVAILABLE FUNCTIONAL UNIT                            MCG      2570
                                                                                                                 MCG      2571
          1260  20446                    SNI4     LX4    2+D.SZP-D.F1P                                           MCG      2572
                     43670                        MX6    -D.F1L                                                  MCG      2573
                          15746                   BX7    -X6*X4      F = F1[DI]                                  MCG      2574
          1261  5237000106 C                      SA3    TFU+X7      TFA = TFU(F)                                MCG      2575
                          63330                   SB3    X3                                                      MCG      2576
          1262  0653001263 +                      LE     B3,B5,SNI5  IF TFA @ T(IS)                              MCG      2577
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG      2578
                                                  LX4    D.F1P-D.F2P                                             MCG      2579
                                                  SX1    X7                        */ CHECK SECOND FUNIT         MCG      2580
                                                  BX7    -X6*X4      F2 = F2[DI]                                 MCG      2581
                                                  SA2    TFU+X7      TF2 = TFU(F2)                               MCG      2582
                                                  LX4    D.F2P-D.F1P                                             MCG      2583
                                                  SB4    X2                                                      MCG      2584
                                                  LE     B4,B5,SNI5  IF TF2 @ T(IS)                              MCG      2585
                                                  SB5    B4                                                      MCG      2586
                                                  LE     B4,B3,SNI5  IF TF2 @ TF1                                MCG      2587
                                                  BX7    X1                                                      MCG      2588
                                         #MD      ENDIF                                                  '6600   MCG      2589
                          63530                   SB5    X3          T(IS) = TF1   */ MIN(TFA,TF2)               MCG      2590
                                                                                                                 MCG      2591
                                        *         IF T(IS) @ TIS[PBI] THEN TRY TO GET A RESULT REG, CALC T(EX)   MCG      2592
                                                                                                                 MCG      2593
          1263  0765001266 +             SNI5     GT     B5,B6,SNI6  IF T(IS) > TIS[PBI]                         MCG      2594
                          5170000160 +            SA7    SNIA                                                    MCG      2595
          1264  20466                             LX4    D.F1P+59-D.NRP                                          MCG      2596
                     0100000222 +                 RJ     DRR         CALL DRR( DI , T(IS) , T(EX) , REGNO )      MCG      2597
          1265  0703001267 +                      GT     B3,SNI7     IF REGNO > 0  */ INSTRUCTION IS ISSUABLE    MCG      2598
                          0430001235 +            ZR     B3,SNI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION       MCG      2599
                                                                                                                 MCG      2600
          1266  54541                    SNI6     SA5    "DI"+B1     LI = DI + 1                                 MCG      2601
                     0400001276 +                 EQ     SNI9                      */ NO RESULT REG AVAIL        MCG      2602
                                                                                                                 MCG      2603
                                        *         COMPARE THIS INSTRUCTION TIMING WITH THAT OF *PBI*             MCG      2604
                                                                                                                 MCG      2605
          1267  54541                    SNI7     SA5    "DI"+B1     LI = DI + 1                                 MCG      2606
                                         #MD      IFEQ   .CPU,74                                         ?6600   MCG      2607
                                                  GT     B5,B6,SNI9  IF T(IS) > TIS[PBI]                         MCG      2608
                                                  SA3    PBI                                                     MCG      2609
                                                  LT     B5,B6,SNI8  IF T(IS) < TIS[PBI]                         MCG      2610
                                                  LX3    -PB.TEXP                                                MCG      2611
                                                  SB2    X3                                                      MCG      2612
                                                  GE     B4,B2,SNI9  IF T(EX) \ TEX[PBI]                         MCG      2613
                                         #MD      ELSE                                                   '66?76  MCG      2614
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    59
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI                 JAM 
  
                     54440                        SA4    "DI"                                                    MCG      2615
                          0646001276 +            GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                         MCG      2616
                                         #MD      IFGT   .CPU,74                                         ?7600   MCG      2617
                                                  LX4    -D.LDP                                                  MCG      2618
                                         .D       BIT    D.^DP-D.LDP                                             MCG      2619
                                                  SX6    .D+1                                                    MCG      2620
                                                  SB5    B4          T(IS) = T(EX)                               MCG      2621
                                                  BX7    X6*X4                                                   MCG      2622
                                                  LX4    D.LDP-D.FTP                                             MCG      2623
                                                  NZ     X7,SNI8     IF ^D[DI] ! LD[DI]                          MCG      2624
                                                                                                                 MCG      2625
                                        *         ADJUST T(EX) TO ACCOUNT FOR THE FUNIT TO REGISTER INPUT PATH   MCG      2626
                                                                                                                 MCG      2627
                                                  SA2    T                                                       MCG      2628
                                                  SA1    TRS                                                     MCG      2629
                                                  MX6    -D.FTL                                                  MCG      2630
                                                  BX7    -X6*X4                                                  MCG      2631
                                                  IX3    X7-X2                                                   MCG      2632
                                                  SB2    X3+B5                                                   MCG      2633
                                                  SB4    B4-B1       T(EX) = T(EX) - 1                           MCG      2634
                                                  AX1    B2,X1       XSW = SHIFT(TRS, -(T(IS)+FT[DI]-T) )        MCG      2635
                                                  MX3    1                                                       CCG0157     4
                                                  BX1    -X3*X1                                                  CCG0157     5
                                                                                                                 MCG      2636
                                         SNI7A    LX1    -1          XSW = SHIFT( XSW , 59 )                     MCG      2637
                                                  SB4    B4+B1       T(EX) = T(EX) + 1                           MCG      2638
                                                  MI     X1,SNI7A    IF XSW < 0    */ RESULT STORED AT THIS TIME MCG      2639
                                                  SB5    B4          T(IS) = T(EX)                               MCG      2640
                                                  GE     B4,B6,SNI9  IF T(EX) \ TEX[PBI]                         MCG      2641
                                         #MD      ENDIF                                                  '7600   MCG      2642
                                                                                                                 MCG      2643
                                        *         INSTRUCTION BETTER THAN PREVIOUS BEST, SAVE INFO IN *PBI*      MCG      2644
                                                                                                                 MCG      2645
          1270  76450                    SNI8     SX4    B5                                                      MCG      2646
                     5110000160 +                 SA1    SNIA                                                    MCG      2647
                               76340              SX3    B4                                                      MCG      2648
                                                  LX4    PB.TISP                                                 MCG      2649
          1271  27634                             PX6    B3,X4                                                   MCG      2650
                     74700                        SX7    "PI"                                                    MCG      2651
                          20322                   LX3    PB.TEXP                                                 MCG      2652
                               63210              SB2    X1                                                      MCG      2653
          1272  75257                             SX2    A5-"TB"                                                 MCG      2654
                     12636                        BX6    X3+X6                                                   MCG      2655
                          5110000126 C            SA1    T                                                       MCG      2656
          1273  20722                             LX7    PB.PIP                                                  MCG      2657
                                                  LX2    PB.LIP                                                  MCG      2658
                     27222                        PX2    B2,X2                                                   MCG      2659
                          5160000006 C            SA6    PBI         PBI(0) = PBII(REG,T(EX),T(IS))              MCG      2660
          1274  36772                             IX7    X7+X2                                                   MCG      2661
                     6221000000                   SB2    X1+                                                     MCG      2662
                               54761              SA7    A6+B1       PBI(1) = PBII2(FU,PI,LI)                    MCG      2663
                                                                                                                 MCG      2664
          1275  0442001236 +                      EQ     B4,B2,SNI   IF T(EX) = T  */ EXIT IF THIS INST IS EXEC  MCG      2665
                                                                                                                 MCG      2666
                          66650                   SB6    B5          TIS[PBI] = T(IS)                            MCG      2667
                                                                                                                 MCG      2668
                                        *         ADVANCE TO NEXT INSTRUCTION ON CHAIN                           MCG      2669
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    60
        SNI - SELECT NEXT INSTRUCTION TO ISSUE                        SNI                 JAM 
  
                                                                                                                 MCG      2670
          1276  55057                    SNI9     S"PI"  A5-"TB"     PI = LI - BASE                              MCG      2671
                                                  LX5    -I.LINKP                                                MCG      2672
                     73350                        SX3    X5          CI = LINK[LI]                               MCG      2673
                          0303001302 +            ZR     X3,SNI10    IF CI = 0                                   MCG      2674
                                                                                                                 MCG      2675
                                        *         ONLY CONSIDER INSTRUCTIONS THAT ARE NEAR THE FIRST ON THE ISSU MCG      2676
                                        *         LIST, SO WE DO NOT GO TOO FAR ASTRAY FROM THE PREDETERMINED    MCG      2677
                                        *         ORDER.                                                         MCG      2678
                                                                                                                 MCG      2679
          1277  43655                             MX6    -I.LSTL                                                 MCG      2680
                     53537                        SA5    "TB"+X3     LI = BASE + CI                              MCG      2681
                          5120000216 C            SA2    TM                                                      MCG      2682
          1300  20552                             LX5    -I.LSTP                                                 MCG      2683
                     15756                        BX7    -X6*X5                                                  MCG      2684
                          37472                   IX4    X7-X2                                                   MCG      2685
          1301  0334001243 +                      MI     X4,SNI1     IF LST[LI] < TM  */ INSTRUCTION IS NEAR T0  MCG      2686
                                                                                                                 MCG      2687
          1302  5110000006 C             SNI10    SA1    PBI                                                     MCG      2688
                          54211                   SA2    A1+B1                                                   MCG      2690
                               26331              UX3    B3,X1       REGNO = REG[PBI]                            MCG      2691
                                                  LX2    -PB.LIP                                                 MCG      2692
          1303  0730001236 +                      MI     B3,SNI      IF REGNO < 0  */ NO ISSUABLE INST FOUND     MCG      2693
                                                                                                                 MCG      2694
                          53527                   SA5    X2+"TB"     LI = LI[PBI] + BASE                         MCG      2695
                               20252              LX2    PB.LIP-PB.PIP                                           MCG      2696
          1304  53020                             S"PI"  X2          PI = PI[PBI]                                MCG      2697
                                                  LX1    -PB.TISP                                                MCG      2698
                     63510                        SB5    X1          T(IS) = TIS[PBI]                            MCG      2699
                          20152                   LX1    PB.TISP-PB.TEXP                                         MCG      2700
                               63410              SB4    X1          T(EX) = TEX[PBI]                            MCG      2701
          1305  0400001236 +                      EQ     SNI                                                     MCG      2702
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    61
        ISI - ISSUE SELECTED INSTRUCTION                              ISI                 JAM 
  
                                        **        ISI - ISSUE SELECTED INSTRUCTION                               MCG      2704
                                        *                                                                        MCG      2705
                                        *         ENTRY  (X2) = R , *TXT* INDEX OF INSTRUCTION                   MCG      2706
                                        *                                                                        FCC0584     5
                                        *         EXIT   (B3) < IF INSTRUCTION WAS NOT ISSUED                    MCG      2707
                                        *                UOR SET                                                 FCC0584     6
                                                                                                                 MCG      2708
          1306  54440                    ISI0     SA4    "DI"                                                    MCG      2709
                     0100002504 +                 RJ     SNU         SET ADDR OF NEXT USES                       MCG      2710
          1307  5170000213 C                      SA7    UOR                                                     FCC0584     7
                                                                                                                 MCG      2711
          1310  0200401310 +             ISI      ROUTINE                                                        MCG      2712
          1311  5130000003 C                      SA3    ICL         NI = ICL                                    MCG      2713
                          53527                   SA5    "TB"+X2     LI = BASE + R                               CCGA023    11
                               56000              S"PI"  B0          PI = 0                                      MCG      2715
          1312  55451                             S"DI"  A5-B1       DI = LI - 1                                 CCGA023    12
                     20501                        LX5    59-I.ICP                                                CCGA023    13
                          37623                   IX6    X2-X3                                                   MCG      2717
          1313  0325401313 +                      PL     X5,*+1S17   IF ^IC[LI] BLOWUP                           CCGA023    14
                          0306001316 +            ZR     X6,ISI2     IF R = ICL                                  MCG      2718
                                                                                                                 MCG      2719
          1314  53537                    ISI1     SA5    "TB"+X3     L = BASE + NI                               MCG      2720
                     53030                        S"PI"  X3          PI = NI                                     MCG      2721
                          73350                   SX3    X5          NI = LINK[L]                                MCG      2722
                               37632              IX6    X3-X2                                                   MCG      2723
          1315  0316001314 +                      NZ     X6,ISI1     IF R " NI                                   MCG      2724
                                                                                                                 MCG      2725
          1316  5110000126 C             ISI2     SA1    T                                                       MCG      2726
                          20415                   LX4    -D.F1P                                                  MCG      2727
                               43570              MX5    -D.F1L                                                  MCG      2728
          1317  63510                             SB5    X1          T(IS) = T                                   MCG      2729
                     15645                        BX6    -X5*X4                                                  MCG      2730
                          63260                   SB2    X6          FU[PBI+1] = F1[DI]                          MCG      2731
                               27622              PX6    B2,X2       LI[PBI+1] = R                               MCG      2732
          1320  20466                             LX4    D.F1P+59-D.NRP                                          MCG      2733
                     5160000007 C                 SA6    PBI+1                                                   MCG      2734
          1321  0100000222 +                      RJ     DRR         REGNO = DRR( DI )                           MCG      2735
          1322  0430001306 +                      ZR     B3,ISI0     IF REGNO = 0  */ A PSEUDO INSTRUCTION       MCG      2736
                          0730001310 +            MI     B3,ISI      IF REGNO < 0  */ NO RESULT REG FOUND        MCG      2737
          1323  76350                             SX3    B5                                                      MCG      2738
                                                  LX3    PB.TISP     TIS[PBI] = T(IS)                            MCG      2739
                     76240                        SX2    B4                                                      MCG      2740
                          54541                   SA5    "DI"+B1     L = DI + 1                                  MCG      2741
                               20222              LX2    PB.TEXP                                                 MCG      2742
          1324  27333                             PX3    B3,X3       REG[PBI] = REGNO                            MCG      2743
                     12623                        BX6    X2+X3       TEX[PBI] = T(EX)                            MCG      2744
                          5160000006 C            SA6    PBI                                                     MCG      2745
                                                  LX5    59-I.IIP                                                MCG      2746
          1325  0325001331 +                      PL     X5,ISI3     IF ^II[L]     */ NOT PREVIOUSLY ISSUED      MCG      2747
                          5110000214 C            SA1    UR                                                      MCG      2748
          1326  7170000011                        SX7    N.UR0                                                   MCG      2749
                          7261777776              SX6    X1-1                                                    MCG      2750
          1327  37367                   +         IX3    X6-X7                                                   MCG      2751
                     0323001330 +                 PL     X3,*+1      UR = MAX( UR-1 , N.UR0 )                    MCG      2752
                               10677              BX6    X7                                                      MCG      2753
          1330  54610                             SA6    A1                                                      MCG      2754
                                                                                                                 MCG      2755
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    62
        ISI - ISSUE SELECTED INSTRUCTION                              ISI                 JAM 
  
                                         ISI3     LX5    1+I.IIP                                                 MCG      2756
          1331  0100000612 +                      RJ     AIL         ADVANCE THE ISSUE LIST                      MCG      2757
          1332  0100000635 +                      RJ     DUC         DECREMENT USES COUNTS                       MCG      2758
          1333  54440                             SA4    "DI"                                                    MCG      2759
                     0100000661 +                 RJ     ASC         ADVANCE CLOCKS                              MCG      2760
          1334  5054777775                        SA5    "DI"-2                                                  MCG      2761
                          0100000765 +            RJ     SII         SAVE INSTRUCTION                            MCG      2762
          1335  0400001306 +                      EQ     ISI0                                                    MCG      2763
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    63
        CNU - CHECK NEXT USE OF RESULTS IN REGISTERS                  CNU                 JAM 
  
                                        **        CNU - CHECK NEXT USE OF RESULTS IN REGISTERS OF OPERANDS       MCG      2765
                                        *                OF THE ISSUED INSTRUCTION AND RELEASE THE REGISTER      MCG      2766
                                        *                IF THEIR NEXT USE IS "FAR AWAY".                        MCG      2767
                                        *                                                                        MCG      2768
                                        *         ENTRY  (X7) = UOR = LIST OF UNCLEARED OPERAND REGISTERS        MCG      2769
                                        *                    UOR = 24/0,18/REG2,18/REG1,  REG1 " REG2 & REG1 " 0 MCG      2770
                                        *                (A4) = DI OF INSTRUCTION                                MCG      2771
                                        *                (UR) = COUNT OF UNLOADED REGISTERS                      MCG      2772
                                        *                                                                        MCG      2773
                                        *         USES   B - 2, 3, 4, 5, 6  X - 1, 2, 3, 4, 5, 6, 7              MCG      2774
                                                                                                                 MCG      2775
                                  70     MIN.D    EQU    14*4        MIN DISTANCE FOR UNLOAD CHECK ( 14 INST )   MCG      2776
                                                                                                                 MCG      2777
          1336  7160000000               CNU0     SX6    0                                                       FCC1580X    6
                          5160000213 C            SA6    UOR         UOR = 0                                     FCC1580X    7
          1337  0200401337 +             CNU      ROUTINE                                                        MCG      2778
          1340  54440                             SA4    "DI"                                                    FCC1580X    8
                     20435                        LX4    59-D.PIP                                                FCC1580X    9
                          0334001336 +            MI     X4,CNU0     IF PI[DI]     */ *DEF* OR *RS*              FCC1580X   10
          1341  54541                             SA5    "DI"+B1     L = DI + 1                                  MCG      2779
                     43455                        MX4    -I.LSTL                                                 MCG      2780
                          20552                   LX5    -I.LSTP                                                 MCG      2781
                               15354              BX3    -X4*X5                                                  MCG      2782
          1342  23613                             AX6    B1,X3       PIS = (LST[L]/2)*4  */ POINT IN SEQ         MCG      2783
                     20602                        LX6    2                                                       MCG      2784
                          5160000215 C            SA6    PIS                                                     MCG      2785
                                                                                                                 MCG      2786
                                        *         ORDER REG1,REG2 IN DECREASING DISTANCE OF NEXT USE             MCG      2787
                                                                                                                 MCG      2788
          1343  10377                             BX3    X7                                                      MCG      2789
                     21322                        AX3    18                                                      MCG      2790
                          0303001350 +            ZR     X3,CNU1     IF REG2 = 0                                 MCG      2791
          1344  5217000015 C                      SA1    RVT+X7                                                  MCG      2792
                          5223000015 C            SA2    RVT+X3                                                  MCG      2793
          1345  20152                             LX1    -RV.NUP                                                 MCG      2794
                     20252                        LX2    -RV.NUP                                                 MCG      2795
                          63210                   SB2    X1                                                      MCG      2796
                               63320              SB3    X2                                                      MCG      2797
          1346  0623001350 +                      GE     B2,B3,CNU1  IF NU[RVT(REG1)] \ NU[RVT(REG2)]            MCG      2798
                          73770                   SX7    X7                                                      MCG      2799
                               20722              LX7    18                                                      MCG      2800
          1347  12737                             BX7    X3+X7       SWAP( REG1 , REG2 )                         MCG      2801
                                                                                                                 MCG      2802
          1350  43163                    CNU1     MX1    -D.REGWL                                                MCG      2803
                     5120000214 C                 SA2    UR                                                      MCG      2804
                               20111              LX1    D.REGWP                                                 MCG      2805
          1351  5150000215 C                      SA5    PIS                                                     MCG      2806
                          20211                   LX2    D.REGWP                                                 MCG      2807
                               67671              SB6    "TB"-B1                                                 MCG      2808
          1352  6255000070                        SB5    X5+MIN.D    TMIN = PIS + MIN.D                          MCG      2809
                                                                                                                 MCG      2810
          1353  5257000015 C             CNU2     SA5    RVT+X7                                                  MCG      2811
                          7267777757              SX6    X7-RN.X0                                                MCG      2812
          1354  63370                             SB3    X7          REGNO = REG[UOR]                            MCG      2813
                     21722                        AX7    18          UOR = SHIFT( UOR , -18 )                    MCG      2814
                          12356                   BX3    X5+X6                                                   MCG      2815
                               20552              LX5    -RV.NUP                                                 MCG      2816
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    64
        CNU - CHECK NEXT USE OF RESULTS IN REGISTERS                  CNU                 JAM 
  
          1355  0333001362 +                      MI     X3,CNU4     IF LOCK[RVT(REGNO)] ! REGNO < RN.X0         MCG      2817
                          63450                   SB4    X5          NS = NU[RVT(REGNO)]  */ POINT OF NEXT USE   MCG      2818
                               53456              SA4    B6+X5       DI = BASE-1 + NS                            MCG      2819
          1356  0654001362 +                      LE     B4,B5,CNU4  IF NS @ TMIN  */ USE IS NEARBY              MCG      2820
                                                                                                                 MCG      2821
                                        *         SEARCH BACKWARDS FROM THE POINT OF NEXT USE FOR A "PEAK" IN    MCG      2822
                                        *         THE REG WIDTH"S, AND IF FOUND TRY TO DUMP THE REGISTER.        MCG      2823
                                                                                                                 MCG      2824
          1357  15541                    CNU3     BX5    -X1*X4                                                  MCG      2825
                     37625                        IX6    X2-X5       N = UR - REGW[DI]                           MCG      2826
                          0336001363 +            MI     X6,CNU5     IF N < 0      */ USE IS PAST A REG PEAK     MCG      2827
          1360  21607                             AX6    D.REGWP-2                                               MCG      2828
                     6226000004                   SB2    X6+4        N = 4*(N+1)   */ MIN DIST TO MAKE REGW > UR MCG      2829
                               67442              SB4    B4-B2       NS = NS - N                                 MCG      2830
          1361  55442                             SA4    A4-B2       DI = DI - N                                 MCG      2831
                     0645001357 +                 GE     B4,B5,CNU3  IF NS \ TMIN                                MCG      2832
                                                                                                                 MCG      2833
          1362  0317001353 +             CNU4     NZ     X7,CNU2     IF UOR " 0                                  MCG      2834
                          0400001337 +            EQ     CNU                                                     MCG      2835
                                                                                                                 MCG      2836
                                        *         POINT OF NEXT USE OVER A REG WIDTH PEAK, DUMP THE REG          MCG      2837
                                                                                                                 MCG      2838
          1363  5130000126 C             CNU5     SA3    T                                                       MCG      2839
                          5170000213 C            SA7    UOR                                                     MCG      2840
          1364  10633                             BX6    X3                                                      MCG      2841
                     5163000046 C                 SA6    TRA+B3      TRA(REGNO) = T                              MCG      2842
          1365  0100002011 +                      RJ     CRC         COMPUTE RESTORE COSTS FOR THIS REG          MCG      2843
          1366  0100001373 +                      RJ     SSR         SAVE THE RESULT                             MCG      2844
          1367  5110000213 C                      SA1    UOR                                                     MCG      2845
                          10711                   BX7    X1          UOR = CNUA                                  MCG      2846
          1370  0301001337 +                      ZR     X1,CNU      IF UOR = 0                                  MCG      2847
                          0400001350 +            EQ     CNU1                                                    MCG      2848
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    65
        SSR - SAVE SPECIFIED REGISTER                                 SSR                 JAM 
  
                                        **        SSR - SAVE SPECIFIED REGISTER                                  MCG      2850
                                        *                                                                        MCG      2851
                                        *         ENTRY  (B3) = REGNO , REGISTER TO BE FREED                     MCG      2852
                                        *                (B4) = COST ( OF SAVING RESULT IN REGNO )               MCG      2853
                                                                                                                 MCG      2854
          1371  5110000214 C             SSR0     SA1    UR                                                      MCG      2855
                          73611                   SX6    X1+B1       UR = UR + 1   */ INCREMENT COUNT OF UNL REG MCG      2856
                               54610              SA6    A1                                                      MCG      2857
          1372  0100002733 +                      RJ     AIS         ALLOCATE INSTRUCTION SPACE                  MCG      2858
                                                                                                                 MCG      2859
          1373  0200401373 +             SSR      ROUTINE                                                        MCG      2860
          1374  7164777774                        SX6    B4-3                                                    MCG      2861
                          0336001407 +            MI     X6,SSR3     IF COST < 3                                 MCG      2862
                                                                                                                 MCG      2863
                                        *         COST = 3, COMPUTATION NOT IN A STORE REG                       MCG      2864
                                                                                                                 MCG      2865
          1375  5110000012 C                      SA1    AXR                                                     MCG      2866
                          7170140000              SX7    FX.ST                                                   MCG      2867
          1376  11671                             BX6    X7*X1                                                   MCG      2868
                     0316001402 +                 NZ     X6,SSR1     IF AXR & FX.ST " 0  */ IF A STORE REG IS AV MCG      2869
                               76310              SX3    B1                                                      MCG      2870
          1377  5123000015 C                      SA2    RVT+B3                                                  MCG      2871
                          20344                   LX3    RV.SROP                                                 MCG      2872
                               12632              BX6    X3+X2       SRO[RVT(REGNO)] = 1                         MCG      2873
          1400  5170000171 C                      SA7    SF          SF = FX.ST    */ INDICATE UNSAVED RESULTS   MCG      2874
                          54620                   SA6    A2                                                      MCG      2875
          1401  0400001373 +                      EQ     SSR                                                     MCG      2876
                                                                                                                 MCG      2877
          1402  6143000000               SSR1     SB4    B3+         REGF = REGNO                                MCG      2878
                          6130000026              SB3    RN.X0+6                                                 MCG      2879
          1403  6120000010                        SB2    OC.XMT                                                  MCG      2880
                          5133000015 C            SA3    RVT+B3                                                  MCG      2881
          1404  0303001405 +                      ZR     X3,SSR2     REGR = IF( RVT(X6) = 0 ) THEN X6; ELSE X7   MCG      2882
                          6133000001              SB3    B3+1                                                    MCG      2883
          1405  0100002340 +             SSR2     RJ     OXI         MOVE RESULT TO A STORE REG                  MCG      2884
          1406  6140000002                        SB4    2           COST = 2                                    MCG      2885
                                                                                                                 MCG      2886
          1407  5113000015 C             SSR3     SA1    RVT+B3                                                  MCG      2887
                          15610                   BX6    "RN"X1      R0 = RI[RVT(REGNO)]                         MCG      2888
                               10166              BX1    X6                                                      MCG      2889
          1410  5160000203 C                      SA6    R0                                                      MCG      2890
                                                  PRINT  SSR,(* R0,UR = *,O6,I5),(R0,UR)                         MCG      2891
                          5120000012 C            SA2    AXR                                                     MCG      2892
          1411  5133000140 C                      SA3    RBV+B3                                                  MCG      2893
                          43600                   MX6    0                                                       MCG      2894
                               12723              BX7    X2+X3       AXR = AXR ! RBV(REGNO)  */ MAKE THE REG AVA MCG      2895
          1412  54610                             SA6    A1          RVT(REGNO) = 0                              MCG      2896
                     54720                        SA7    A2                                                      MCG      2897
                                                                                                                 MCG      2898
                          0714001415 +            GT     B4,B1,SSR4  IF COST > 1                                 MCG      2899
          1413  0100001702 +                      RJ     RII         REISSUE THE INSTRUCTION                     MCG      2900
          1414  0400001371 +                      EQ     SSR0                                                    MCG      2901
                                                                                                                 MCG      2902
          1415  7160000000               SSR4     SX6    0                                                       MCG      2903
                          5160000204 C            SA6    T0          T0 = 0                                      MCG      2904
          1416  0100002621 +                      RJ     SRM         SAVE RESULT IN MEMORY                       MCG      2905
          1417  0400001371 +                      EQ     SSR0                                                    MCG      2906
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    66
        SSR - SAVE SPECIFIED REGISTER                                 SUR                 JAM 
  
                                        **        SUR - STORE UNSAVED RESULTS                                    MCG      2908
                                        *                                                                        MCG      2909
                                        *         ENTRY  AXR & FX. ST " 0 ( STORE REGISTER FREE )                MCG      2910
                                        *                SF " 0 , UNSAVED RESULTS IN THE REGISTERS THAT          MCG      2911
                                        *                      HAVE NO IMMEDIATE USES.                           MCG      2912
                                                                                                                 MCG      2913
          1420  0200401420 +             SUR      ROUTINE                                                        MCG      2914
          1421  6130000026                        SB3    RN.X0+6                                                 MCG      2915
                          6140000020              SB4    RN.X0       I = RN.X0                                   MCG      2916
          1422  5113000015 C                      SA1    RVT+B3                                                  MCG      2917
                          7160000000              SX6    0           T0 = 0                                      MCG      2918
          1423  5160000204 C                      SA6    T0                                                      MCG      2919
                          0301001425 +            ZR     X1,SUR1     REGR = IF( RVT(X6) = 0 ) THEN X6; ELSE X7   MCG      2920
          1424  6133000001                        SB3    B3+1                                                    MCG      2921
                                                                                                                 MCG      2922
          1425  5114000015 C             SUR1     SA1    RVT+B4                                                  MCG      2923
                          15710                   BX7    "RN"X1                                                  MCG      2924
                               20127              LX1    59-RV.SROP                                              MCG      2925
          1426  0321001434 +                      PL     X1,SUR2     IF ^SRO[RVT(I)]                             MCG      2926
                                                                                                                 MCG      2927
                          6120000010              SB2    OC.XMT                                                  MCG      2928
          1427  5170000203 C                      SA7    R0          R0 = RI[RVT(I)]                             MCG      2929
                          76240                   SX2    B4                                                      MCG      2930
                               27632              PX6    B3,X2                                                   MCG      2931
          1430  5160001441 +                      SA6    SURA                                                    MCG      2932
                          0100002340 +            RJ     OXI         OUTPUT AND XMIT                             MCG      2933
          1431  5110000214 C                      SA1    UR                                                      MCG      2934
                          73611                   SX6    X1+B1       UR = UR + 1                                 MCG      2935
                               54610              SA6    A1                                                      MCG      2936
          1432  0100002621 +                      RJ     SRM         AND SAVE RESULT IN MEMORY                   MCG      2937
          1433  5120001441 +                      SA2    SURA                                                    MCG      2938
                          63420                   SB4    X2                                                      MCG      2939
                               26632              UX6    B3,X2                                                   MCG      2940
                                                                                                                 MCG      2941
          1434  66441                    SUR2     SB4    B4+B1       I = I + 1                                   MCG      2942
                     7164777751                   SX6    B4-RN.X0-6                                              MCG      2943
          1435  0336001425 +                      MI     X6,SUR1     IF I < RN.X6                                MCG      2944
                                                                                                                 MCG      2945
                          5110000012 C            SA1    AXR                                                     MCG      2946
          1436  5123000140 C                      SA2    RBV+B3                                                  MCG      2947
                          5163000015 C            SA6    RVT+B3      RVT(REGR) = 0 */ MAKE REG AVAIL             MCG      2948
          1437  5160000171 C                      SA6    SF          SF = 0                                      MCG      2949
                          12712                   BX7    X1+X2       AXR = AXR ! RBV(REGR)                       MCG      2950
                               54710              SA7    A1                                                      MCG      2951
          1440  0400001420 +                      EQ     SUR                                                     MCG      2952
                                                                                                                 MCG      2953
          1441                     1     SURA     BSS    1                                                       MCG      2954
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    67
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                                        **        UJR - UNJAM REGISTERS, FORCE ISSUE OF CURRENT INSTRUCTION      MCG      2956
                                        *                BY FREEING UP A REGISTER, CREATING AN *XMT*, ETC.       MCG      2957
                                        *                                                                        MCG      2958
                                        *         ENTRY  (X3) = T0 , *TXT* INDEX OF INSTRUCTION TO BE ISSUED     MCG      2959
                                        *                                                                        MCG      2960
                                        *         EXIT   (UOR) = EXIT VALUE FROM *SNU* IF *ISI* WAS CALLED       MCG      2961
                                                                                                                 MCG      2963
          1442  0200401442 +             UJR      ROUTINE                                                        MCG      2964
          1443  6167777776                        SB6    "TB"-1                                                  MCG      2965
                          53436                   S"DI"  X3+B6       DI = BASE-1 + T0                            MCG      2966
                               10633              BX6    X3                                                      MCG      2967
          1444  5160000205 C                      SA6    T0C         T0C = T0                                    MCG      2968
                          5160000204 C            SA6    T0                                                      MCG      2969
          1445  0100001743 +                      RJ     DRT         CLASS = DRT( DI ) */ DETERMINE REG CLASS    MCG      2970
                                                  PRINT  UJR,(* TO = *,O6),T0                                    MCG      2971
                                                  PRNT   UJR,RUI                                                 MCG      2972
          1446  5160000202 C                      SA6    CLASS                                                   MCG      2973
                          7170000000              SX7    0                                                       FCC1451     8
          1447  5170001310 +                      SA7    ISI         ISI = 0       */ INDICATE *ISI* NOT ENTERED FCC1451     9
                          0100001722 +            RJ     CSI         CHECK STORE REGISTERS                       FCC1451    10
          1450  5110001310 +                      SA1    ISI                                                     FCC1451    11
                          0301001453 +            ZR     X1,UJR0A    IF ISI = 0  */NO INSTRUCTIONS ISSUED        CCGA019    10
                                                                                                                 FCC1451    13
          1451  5120000204 C             UJR0     SA2    T0                                                      CCGA019    11
                          0100001310 +            RJ     ISI         TRY AND ISSUE T0                            FCC1451    15
                                                  PRINT  JAM,(* CSI ISSUED A ST, REGNO =*Z2),B3                  FCC1451    16
          1452  0630001442 +                      PL     B3,UJR      IF REGNO \ 0  */ ISI ISSUED THE INSTRUCTION FCC1451    17
                                                                                                                 FCC1451    18
          1453  0100002733 +             UJR0A    RJ     AIS         ALLOCATE INSTRUCTION SPACE                  CCGA019    12
          1454  5110000012 C                      SA1    AXR                                                     MCG      2976
                          7140377000              SX4    FX.SCR                                                  MCG      2977
          1455  11641                             BX6    X4*X1       AVAIL = AXR & FX.SCR                        MCG      2978
                     0306001462 +                 ZR     X6,UJR2     IF AVAIL = 0                                MCG      2979
          1456  5110000202 C                      SA1    CLASS                                                   MCG      2980
                          11716                   BX7    X1*X6                                                   MCG      2981
          1457  0317001442 +                      NZ     X7,UJR      IF AVAIL & CLASS " 0                        MCG      2982
                                                                                                                 MCG      2983
          1460  5110000202 C             UJR1     SA1    CLASS                                                   MCG      2984
                          0100002071 +            RJ     CRA         CHANGE REGISTER ASSIGNMENTS AND ISSUE *T0*  FCC0584     8
          1461  0400001442 +                      EQ     UJR                                                     MCG      2986
                                                                                                                 MCG      2987
          1462  5110000202 C             UJR2     SA1    CLASS                                                   MCG      2988
                          0100001773 +            RJ     FRR         REGF = FRR(RVT,MCOST)  */ FIND A RESULT REG MCG      2989
          1463  7174777774                        SX7    B4-3                                                    MCG      2990
                          43500                   MX5    0                                                       CCGA019    13
          1464  0337001472 +                      MI     X7,UJR3     IF MCOST < 3                                MCG      2991
                          5110000204 C            SA1    T0                                                      CCG0110     7
          1465  67671                             SB6    "TB"-B1                                                 CCG0110     8
                     53416                        S"DI"  B6+X1                                                   CCG0110     9
                          43502                   MX5    D.TYL                                                   CCG0110    10
                               11654              BX6    X5*X4                                                   CCG0110    11
          1466  0316001471 +                      NZ     X6,UJR2A    IF TY[DI] NE TYPE_I                         CCG0110    12
                          20425                   LX4    59-D.PRSP                                               CCG0110    13
          1467  0324001471 +                      PL     X4,UJR2A    IF NOT PRS[DI]                              CCG0110    14
                          0100001573 +            RJ     IIX         ISSUE INSTRUCTION AND XMT"S                 CCG0110    15
          1470  0303001442 +                      ZR     X3,UJR      IF ISSUED                                   CCG0110    16
                                                                                                                 MCG      2992
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    68
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                                        *         DUMP THE STORE REG WHOSE FIRST USE IS FURTHEST AWAY            MCG      2993
                                                                                                                 MCG      2994
          1471  0100001624 +             UJR2A    RJ     FSR         FIND A STORE REG                            CCG0110    17
                                                                                                                 MCG      3016
          1472  5113000015 C             UJR3     SA1    RVT+B3                                                  MCG      3017
                          15610                   BX6    "RN"X1      R0 = RI[RVT(REGF)]                          MCG      3018
          1473  5160000203 C                      SA6    R0                                                      MCG      3019
                                                  PRINT  UJR,(* R0 = *,O6),R0                                    MCG      3020
                          5110000012 C            SA1    AXR                                                     MCG      3021
          1474  5123000140 C                      SA2    RBV+B3                                                  MCG      3022
                          5130000202 C            SA3    CLASS                                                   MCG      3023
          1475  12612                             BX6    X1+X2       AXR = AXR ! RBV(REGF) */ MAKE REG AVAIL     MCG      3024
                     54610                        SA6    A1                                                      MCG      3025
                          43700                   MX7    0                                                       MCG      3026
          1476  5173000015 C                      SA7    RVT+B3                                                  CCGA019    14
                          0335001515 +            MI     X5,UJR10    IF BOTH X6 AND X7 LOCKED                    CCGA019    15
          1477  11523                             BX5    X2*X3                                                   MCG      3027
                     0315001507 +                 NZ     X5,UJR5     IF CLASS & RBV(REGF) " 0                    MCG      3029
                                                                                                                 MCG      3030
                                        *         REGF NOT IN *CLASS*, FREE IT UP AND OUTPUT AN *XMT*            MCG      3031
                                                                                                                 MCG      3032
          1500  0614001505 +                      LE     B4,B1,UJR4  IF MCOST @ 1                                MCG      3033
                          0100002556 +            RJ     TGL         SHOULD R0 BE TOGGLED                        CCGA023    18
          1501  0540001451 +                      NZ     B4,UJR0     IF B4 " 0 R0 WAS TOGGLED                    CCGA023    19
                          7160000000              SX6    0                                                       MCG      3034
          1502  5160000204 C                      SA6    T0          T0 = 0                                      MCG      3035
                          0100002621 +            RJ     SRM         SAVE RESULT IN MEMORY                       MCG      3036
          1503  5150000205 C                      SA5    T0C                                                     MCG      3037
                          7265000000              SX6    X5+         T0 = T0C      */ RESTORE T0                 MCG      3038
          1504  5160000204 C                      SA6    T0                                                      MCG      3039
                          0400001460 +            EQ     UJR1                                                    MCG      3040
                                                                                                                 MCG      3041
          1505  5110000203 C             UJR4     SA1    R0                                                      MCG      3042
                          0100001702 +            RJ     RII         RESET FOR REISSUE                           MCG      3043
          1506  0400001460 +                      EQ     UJR1                                                    MCG      3044
                                                                                                                 MCG      3045
                                        *         REGF IN *CLASS*, FREE IT UP                                    MCG      3046
                                                                                                                 MCG      3047
          1507  0614001512 +             UJR5     LE     B4,B1,UJR6  IF MCOST @ 1                                MCG      3048
                                                                                                                 MCG      3049
                          0100002556 +            RJ     TGL         SHOULD R0 BE TOGGLED                        CCGA023    20
          1510  0540001451 +                      NZ     B4,UJR0     IF B4 " 0 R0 WAS TOGGLED                    CCGA023    21
                          0100002621 +            RJ     SRM         SAVE RESULT IN MEMORY                       MCG      3050
          1511  0400001442 +                      EQ     UJR                                                     MCG      3051
                                                                                                                 MCG      3052
          1512  5120000204 C             UJR6     SA2    T0                                                      MCG      3053
                          0100001310 +            RJ     ISI         ISSUE T0                                    MCG      3054
          1513  5110000203 C                      SA1    R0                                                      MCG      3055
                          0100001702 +            RJ     RII         RESET FOR REISSUE                           MCG      3057
          1514  0400001442 +                      EQ     UJR                                                     MCG      3058
                                                                                                                 CCGA019    16
                                        *         BOTH X6 AND X7 LOCKED UP - FREE ONE OF THEM.                   CCGA019    17
                                                                                                                 CCGA019    18
          1515  5110000203 C             UJR10    SA1    R0                                                      CCGA019    19
                          5130000124 C            SA3    LXR                                                     CCGA019    20
          1516  6127777776                        SB2    "TB"-1                                                  CCGA019    21
                          15732                   BX7    -X2*X3                                                  CCGA019    22
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    69
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                               54730              SA7    A3          CLEAR LOCKOUT BIT FOR R0                    CCG0008     6
          1517  76630                             SX6    B3                                                      CCG0008     7
                     5160001571 +                 SA6    UJRA        UJRA = REGNO                                CCG0008     8
                                                                                                                 CCGA019    27
          1520  0100002672 +                      RJ     OTS         OUTPUT TEMP STORE                           CCGA019    28
                                                                                                                 CCGA019    29
          1521  5110000203 C                      SA1    R0                                                      CCGA019    30
                          0100002703 +            RJ     GLI         GENERATE LOAD OF TEMP                       CCGA019    31
                                                                                                                 CCGA019    32
          1522  5110000203 C                      SA1    R0                                                      CCGA019    35
                          53317                   SA3    "TB"+X1                                                 CCGA019    36
                               55431              SA4    A3-B1       DI = LI - 1                                 CCG0008     9
          1523  10744                             BX7    X4                                                      CCG0008    10
                     20725                        LX7    59-D.PRSP                                               CCG0008    11
                          0327001560 +            PL     X7,UJR40    IF ^PRS[DI]                                 CCG0008    12
                                                                                                                 CCG0008    13
                                        *         UPDATE DESCRIPTOR AND LINK WORDS OF R0.                        CCG0008    14
                                                                                                                 CCG0008    15
          1524  76210                             SX2    B1                                                      CCGA019    37
                     20314                        LX3    -I.USESP                                                CCGA019    38
                          36723                   IX7    X2+X3       USES = USES + 1                             CCGA019    39
                               20760              LX7    I.USESP                                                 CCGA019    41
          1525  54730                             SA7    A3                                                      CCGA019    42
                     20246                        LX2    D.PRSP                                                  CCGA019    43
                          15742                   BX7    -X2*X4      [DI] = [DI] AND ^PRS                        CCGA019    44
                               54740              SA7    A4                                                      CCGA019    45
                                                                                                                 CCGA019    46
                                        *         GENERATE XMT OF LOADED TEMP AT END OF TEXT                     CCGA019    47
                                                                                                                 CCGA019    48
          1526  7110000010                        ALLOC  TXT,8                                                   CCGA019    49
          1530  7110000003                        ALLOC  TREE,3      (B6) =  LTR = OLD(L.TREE)                   CCGA019    50
          1532  0100002743 +                      RJ     AIP                                                     CCGA019    51
          1533  5110000203 C                      SA1    R0                                                      CCGA019    52
                          5120000000 X            SA2    L.TXT                                                   CCGA019    53
          1534  7222777767                        SX2    X2-8        LT = L.TXT - 8                              CCGA019    54
                          76710                   SX7    B1                                                      CCGA019    55
                               76660              SX6    B6                                                      CCGA019    56
          1535  20641                             LX6    I.INDXP                                                 CCGA019    57
                     12667                        BX6    X6+X7                                                   CCGA019    58
                          53627                   SA6    "TB"+X2     [LIT] = LW(O,O,LTR,0,1)                     CCGA019    59
          1536  6130000010                        SB3    OC.XMT                                                  CCGA019    60
                          5143000000 X            SA4    F.RDT+B3                                                CCGA019    61
          1537  20746                             LX7    D.PRSP                                                  CCGA019    62
                     12647                        BX6    X4+X7                                                   CCGA019    63
                          55661                   SA6    A6-B1       DIT=LIT-1;[DIT]=RDT(OC.XMT)!PRS             CCGA019    64
                               43700              MX7    0                                                       CCGA019    65
          1540  55761                             SA7    A6-B1       R2T=DIT-1;[R2T]=0                           CCGA019    66
                     73110                        SX1    X1                                                      CCGA019    67
                          20140                   LX1    R1.RJP                                                  CCGA019    68
                               12712              BX7    X1+X2                                                   CCGA019    69
          1541  27637                             PX6    B3,X7                                                   CCGA019    70
                     55671                        SA6    A7-B1       R1T=R2T-1;[R1T]=TYI(OC.XMT,R0,0,LT)         CCGA019    71
                          20134                   LX1    -R1.RJP                                                 CCGA019    72
                                                                                                                 CCGA019    73
                                        *         GENERATE RS AFTER XMT.                                         CCGA019    74
                                                                                                                 CCGA019    75
          1542  6222000004                        SB2    X2+4        RSLT = LT + 4                               CCGA019    76
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    70
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                          66371                   SB3    "TB"+B1                                                 CCGA019    77
          1543  7166000002                        SX6    B6+2                                                    CCGA019    78
                          76710                   SX7    B1                                                      CCGA019    79
                               20641              LX6    I.INDXP                                                 CCGA019    80
          1544  12767                             BX7    X6+X7                                                   CCGA019    81
                     56772                        SA7    "TB"+B2     [LIT] = LW(0,0,LTR+2,0,1)                   CCGA019    82
                          5130000004 X            SA3    F.RDT+OC.RS                                             CCGA019    83
          1545  10733                             BX7    X3                                                      CCGA019    84
                     55771                        SA7    A7-B1       DIT=LIT-1;[LIT]=F.RDT(OC.RS)                CCGA019    85
                          43600                   MX6    0                                                       CCGA019    86
                               55671              SA6    A7-B1       R2T=DIT-1;[R2T]=0                           CCGA019    87
          1546  53313                             SA3    B3+X1       R1W OF RS OF R0                             CCGA019    88
                     11603                        BX6    X0*X3       MASK OUT RI                                 CCGA019    89
                          12762                   BX7    X6+X2       REPLACE IT WITH LT                          CCGA019    90
                               55761              SA7    A6-B1       R1T=R2T-1;[R1T]=TYII(OC.RS,IN,SO,LT)        CCGA019    91
                                                                                                                 CCGA019    92
                                        *         ADJUST *SIT* SO THAT XMT IS THE LAST SUCCESSOR OF R0.          CCGA019    93
                                                                                                                 CCGA019    94
          1547  53317                             SA3    "TB"+X1                                                 CCGA019    95
                     5140000000 X                 SA4    O.TREE                                                  CCGA019    96
                               20333              LX3    -I.INDXP                                                CCGA019    97
          1550  43755                             MX7    -I.INDXL                                                CCGA019    98
                     63240                        SB2    X4          =UO                                         CCGA019    99
                          15337                   BX3    -X7*X3                                                  CCGA019   100
                               53332              SA3    B2+X3       = UI                                        CCGA019   101
                                                                                                                 CCGA019   102
                                        *         SEARCH FOR LAST SUCCESSOR OF R0                                CCGA019   103
                                                                                                                 CCGA019   104
                                         UJR20    LX3    59-U.LASTP                                              CCGA019   105
          1551  0333001553 +                      MI     X3,UJR30    IF LAST                                     CCGA019   106
                          54331                   SA3    A3+B1                                                   CCGA019   107
          1552  0400001551 +                      EQ     UJR20       LOOP UNTIL LAST IS FOUND                    CCGA019   108
                                                                                                                 CCGA019   109
                                        *         MAKE LT THE LAST SUCCESSOR OF RO.                              CCGA019   110
                                                                                                                 CCGA019   111
                                         UJR30    LX3    U.LASTP-U.SUCCP+1                                       CCGA019   112
          1553  11703                             BX7    X0*X3       MASK OUT SUCC.                              CCGA019   113
                     12627                        BX6    X2+X7                                                   CCGA019   114
                                                  LX6    U.SUCCP                                                 CCGA019   115
                          54630                   SA6    A3          LAST SUCC OF R0 = LT                        CCGA019   116
                                                                                                                 CCGA019   117
                                        *         MAKE RS OF LT THE FIRST SUCCESSOR OF LT.                       CCGA019   118
                                                                                                                 CCGA019   119
          1554  7242000004                        SX4    X2+4        RSLT = LT + 4                               CCGA019   120
                          20244                   LX2    U.PREDP                                                 CCGA019   121
                                                  LX4    U.SUCCP                                                 CCGA019   122
                               12724              BX7    X2+X4                                                   CCGA019   123
          1555  56726                             SA7    B2+B6       [LTR] = USES(0,LT,0,RSLT)                   CCGA019   124
                                                                                                                 CCGA019   125
                                        *         MAKE THE PREVIOUS LAST SUCCESSOR OF RO THE LAST SUCCESSOR OF L CCGA019   126
                                                                                                                 CCGA019   127
                     15630                        BX6    "RN"X3      LSR0 = PREV. LAST SUCCESSOR OF R0           CCGA019   128
                          76710                   SX7    B1                                                      CCGA019   129
                               20773              LX7    U.LASTP                                                 CCGA019   130
          1556  12667                             BX6    X6+X7                                                   CCGA019   131
                     12726                        BX7    X2+X6                                                   CCGA019   132
                          54771                   SA7    A7+B1       [LTR+1] = USES(1,LT,0,LSR0)                 CCGA019   133
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    71
        UJR - UNJAM REGISTERS                                         UJR                 JAM 
  
                                                                                                                 CCGA019   134
                                        *         MAKE THE PREV. LAST SUCCESSOR OF RO THE LAST SUCCESSOR OF RSLT CCGA019   135
                                                                                                                 CCGA019   136
                               20444              LX4    U.PREDP-U.SUCCP                                         CCGA019   137
          1557  12746                             BX7    X4+X6                                                   CCGA019   138
                     54771                        SA7    A7+B1       [LTR+2] = USES(1,RSLT,0,LSR0)               CCGA019   139
                          0400001451 +            EQ     UJR0        TRY AGAIN                                   CCGA019   140
                                                                                                                 CCG0008    16
          1560  5120000204 C             UJR40    SA2    T0                                                      CCG0008    17
                          67271                   SB2    "TB"-B1                                                 CCG0008    18
                               53422              S"DI"  B2+X2                                                   CCG0008    19
          1561  20425                             LX4    59-D.PRSP                                               CCG0008    20
                     0324001572 +                 PL     X4,UJR.E1   IF ^PRS[DI(T0)]                             CCG0008    21
          1562  5034000002                        SA3    "DI"+2      R1RS = DI + 2                               CCG0008    22
                          20354                   LX3    -R1.SOP                                                 CCG0008    23
                               43766              MX7    -SO.RTL-SO.RNL                                          CCG0008    24
          1563  15637                             BX6    -X7*X3                                                  CCG0008    25
                     63460                        SB4    X6          REGF = SOREG[R1RS]                          CCG0008    26
                          5120001571 +            SA2    UJRA                                                    CCG0008    27
          1564  63320                             SB3    X2          REGR = UJRA  */ THE REGISTER WE FREED       CCG0008    28
                     6120000010                   SB2    OC.XMT                                                  CCG0008    29
          1565  0100002340 +                      RJ     OXI         OUTPUT AN XMT                               CCG0008    30
          1566  5120000203 C                      SA2    R0                                                      CCG0008    31
                          0100001310 +            RJ     ISI         RELOAD THE SAVED REGISTER                   CCG0008    32
          1567  5120000204 C                      SA2    T0                                                      CCG0008    33
                          0100001310 +            RJ     ISI         ISSUE T0                                    CCG0008    34
          1570  0400001442 +                      EQ     UJR                                                     CCG0008    35
                                                                                                                 CCG0008    36
          1571                     1     UJRA     BSS    1                                                       CCG0008    37
                                                                                                                 MCG      3059
                                        *         COMPILER ERROR, UNFORSEEN SITUATION                            MCG      3060
                                                                                                                 MCG      3061
          1572                           DRT0     BSS    0                                                       MCG      3062
          1572                           UJR.E1   BSS    0                                                       MCG      3063
                                                  PRNT   JAM,RUI                                                 MCG      3064
          1572  0400401572 +                      EQ     *+1S17                                                  FCC0641    73
  
  
  
                                        **        IIX - ISSUE INSTRUCTION AND TRANSMITS                          CCG0110    19
                                        *         ENTRY INSTRUCTION IN T0 IS TYPE I AND *PRS* AND REGS CLOGGED   CCG0110    20
                                        *         EXIT  (X3) = 0 IF ISSUED                                       CCG0110    21
                                                                                                                 CCG0110    22
          1573  0200401573 +             IIX      ROUTINE                                                        CCG0110    23
          1574  5014777775                        SA1    "DI"-2      R1 = DI - 2                                 CCG0110    24
                          20134                   LX1    -R1.RJP                                                 CCG0110    25
          1575  0100001617 +                      RJ     COA                                                     CCG0110    26
          1576  0313001573 +                      NZ     X3,IIX      IF NOT AVAIL                                CCG0110    27
                          20120                   LX1    R1.RJP-R1.RKP                                           CCG0110    28
          1577  0100001617 +                      RJ     COA                                                     CCG0110    29
          1600  0313001573 +                      NZ     X3,IIX                                                  CCG0110    30
                          43501                   MX5    1                                                       CCG0110    31
                               15645              BX6    -X5*X4      PRS[DI] = 0                                 CCG0110    32
          1601  20647                             LX6    1+D.PRSP                                                CCG0110    33
                     54640                        SA6    A4                                                      CCG0110    34
                          5120000204 C            SA2    T0                                                      CCG0110    35
          1602  0100001310 +                      RJ     ISI         ISSUE TO                                    CCG0110    36
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    72
        UJR - UNJAM REGISTERS                                         IIX                 JAM 
  
          1603  5120000204 C                      SA2    T0                                                      CCG0110    37
                          53527                   SA5    "TB"+X2     LI = TB + T0                                CCG0110    38
                               54351              SA3    A5+B1       R1RS = LI + 1                               CCG0110    39
          1604  20354                             LX3    -R1.SOP                                                 CCG0110    40
                     43666                        MX6    -SO.REGL                                                CCG0110    41
                          15736                   BX7    -X6*X3                                                  CCG0110    42
          1605  5170001616 +                      SA7    IIXA                                                    CCG0110    43
                          63470                   SB4    X7          SOURCE = SOREG[R1RS]                        CCG0110    44
          1606  5110000012 C                      SA1    AXR                                                     CCG0110    45
                          7160777400              SX6    FX.SCR+FX.XT                                            CCG0110    46
          1607  11716                             BX7    X1*X6                                                   CCG0110    47
                     24637                        NX6    B3,X7                                                   CCG0110    48
                          5123777745 +            SA2    B3+FXRA+16-47                                           CCG0110    49
          1610  63320                             SB3    X2          RESULT = FXR(SCR)                           CCG0110    50
                     6120000010                   SB2    OC.XMT                                                  CCG0110    51
          1611  0100002340 +                      RJ     OXI         MOVE SOURCE TO A FREE REG                   CCG0110    52
          1612  5110001616 +                      SA1    IIXA                                                    CCG0110    53
                          5120000204 C            SA2    T0                                                      CCG0110    54
          1613  53327                             SA3    "TB"+X2                                                 CCG0110    55
                     63430                        SB4    X3          SOURCE = REG[LI]                            CCG0110    56
                          63310                   SB3    X1          RESULT = SOREG[R1RS]                        CCG0110    57
          1614  6120000010                        SB2    OC.XMT                                                  CCG0110    58
                          0100002340 +            RJ     OXI         MOVE T0 TO SOREG[R1RS]                      CCG0110    59
          1615  43300                             MX3    0                                                       CCG0110    60
                     0400001573 +                 EQ     IIX                                                     CCG0110    61
                                                                                                                 CCG0110    62
          1616                     1     IIXA     BSS    1                                                       CCG0110    63
  
  
  
          1617  0200401617 +             COA      ROUTINE                                                        CCG0110    65
          1620  15610                             BX6    "RN"X1                                                  CCG0110    66
                     53267                        SA2    "TB"+X6     LI = TB + RI[R1]                            CCG0110    67
                          5232000015 C            SA3    RVT+X2                                                  CCG0110    68
          1621  0333001617 +                      MI     X3,COA      IF REG LOCKED                               CCG0110    69
                          55221                   SA2    A2-B1       DI = LI - 1                                 CCG0110    70
                               43363              MX3    -D.USESL                                                CCG0110    71
                                                  LX3    -D.USESP                                                CCG0110    72
          1622  15723                             BX7    -X3*X2                                                  CCG0110    73
                     7237777776                   SX3    X7-1        X3 = 0 IF ONLY 1 USE                        CCG0110    74
          1623  0400001617 +                      EQ     COA                                                     CCG0110    75
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    73
        UJR - UNJAM REGISTERS                                         FSR                 JAM 
  
                                        **        FSR - FIND STORE REGISTER, NO REGS AVAIL                       CCG19       4
                                        *                                                                        CCG19       5
                                        *         EXIT   (B3) = REGNO, = 0 IF NOTHING FOUND                      CCG19       6
                                        *                (B4) = MCOST                                            CCG19       7
                                        *         (X5) = NEG IF BOTH X6 AND X7 LOCKED.                           CCGA019   141
                                                                                                                 CCG19       8
          1624  0200401624 +             FSR      ROUTINE                                                        CCG19       9
          1625  5110000043 C                      SA1    RVT+RN.X0+6                                             CCG19      10
                          54211                   SA2    A1+B1                                                   CCG19      11
                               43501              MX5    1                                                       CCG19      12
          1626  11651                             BX6    X5*X1                                                   CCG19      13
                     11752                        BX7    X5*X2                                                   CCG19      14
                          5160001661 +            SA6    FSRA        FSRA(1) = LOCK[RVT(X6)]                     CCG19      15
          1627  54761                             SA7    A6+B1       FSRA(2) = LOCK[RVT(X7)]                     CCG19      16
                     5130000202 C                 SA3    CLASS                                                   CCG19      17
          1630  7243400777                        SX4    X3-FX.SCR                                               CCG19      18
                          0304001635 +            ZR     X4,FSR2     IF CLASS = FX.SCR                           CCG19      19
          1631  5120000204 C                      SA2    T0                                                      CCG19      20
                          0100001663 +            RJ     GOR         GET REGNO"S OF OPERANDS OF T0               CCG19      21
                                                                                                                 CCG19      22
          1632  0307001635 +             FSR1     ZR     X7,FSR2     IF END OF LIST                              CCG19      23
                          7247777751              SX4    X7-RN.X0-6                                              CCG19      24
          1633  21722                             AX7    18                                                      CCG19      25
                     0334001632 +                 MI     X4,FSR1     IF NOT A STORE REG                          CCG19      26
                               43601              MX6    1                                                       CCG19      27
          1634  5264001661 +                      SA6    FSRA+X4     INDICATE REGISTER IS NOT AVAIL              CCG19      28
                          0400001632 +            EQ     FSR1                                                    CCG19      29
                                                                                                                 CCG19      30
          1635  5110001661 +             FSR2     SA1    FSRA                                                    CCG19      31
                          54211                   SA2    A1+B1                                                   CCG19      32
                               11512              BX5    X1*X2                                                   CCGA019   142
          1636  6130000026                        SB3    RN.X0+6     REGNO = X6                                  CCGA019   143
                          66411                   SB4    B1+B1       MCOST = 2                                   CCG19      35
          1637  0335001642 +                      MI     X5,FSR3     IF BOTH X6 AND X7 LOCKED                    CCGA019   144
                          12712                   BX7    X1+X2                                                   CCG19      38
          1640  0307001642 +                      ZR     X7,FSR3     IF BOTH AVAILABLE                           CCG19      39
                          0301001624 +            ZR     X1,FSR      IF X6 IS AVAILABLE                          CCG19      40
          1641  66331                             SB3    B3+B1       REGNO = RN.X7                               CCG19      41
                     0400001624 +                 EQ     FSR                                                     CCG19      42
                                                                                                                 CCG19      43
                                        *         BOTH ST REGS AVAIL, SEARCH FOR NEXT USE OF EACH.               CCG19      44
                                                                                                                 CCG19      45
          1642  5130000000 X             FSR3     SA3    O.TREE                                                  CCG19      46
                          5110000043 C            SA1    RVT+RN.X0+6                                             CCG19      47
          1643  54211                             SA2    A1+B1                                                   CCG19      48
                     43755                        MX7    -I.INDXL                                                CCG19      49
                          6223777776              SB2    X3-1                                                    CCG19      50
          1644  53117                             SA1    "TB"+X1     LX6 = TB + RVT(X6)                          CCG19      51
                     53227                        SA2    "TB"+X2     LX7 = TB + RVT(X7)                          CCG19      52
                          20133                   LX1    -I.INDXP                                                CCG19      53
                               20233              LX2    -I.INDXP                                                CCG19      54
          1645  15117                             BX1    -X7*X1                                                  CCG19      55
                     15227                        BX2    -X7*X2                                                  CCG19      56
                          6160000002              SB6    59-U.EQVP                                               CCG19      57
          1646  53112                             SA1    B2+X1       UX6 = TREE-1 + INDX[LX6]                    CCG19      58
                     53222                        SA2    B2+X2       UX7 = TREE-1 + INDX[LX7]                    CCG19      59
                                                                                                                 CCG19      60
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    74
        UJR - UNJAM REGISTERS                                         FSR                 JAM 
  
          1647  54111                    FSR4     SA1    A1+B1       UX6 = UX6 + 1                               CCG19      61
                     22661                        LX6    B6,X1                                                   CCG19      62
                          0336001647 +            MI     X6,FSR4     IF EQV[UX6]                                 CCG19      63
                                                  LX1    -U.SUCCP                                                CCG19      64
          1650  53417                             SA4    "TB"+X1     LIS = TB + SUCC[UX6]                        CCG19      65
                                                  LX4    59-I.IIP                                                CCG19      66
                     0334001647 +                 MI     X4,FSR4     IF II[LIS]                                  CCG19      67
                                                                                                                 CCG19      68
          1651  54221                    FSR5     SA2    A2+B1       UX7 = UX7 + 1                               CCG19      69
                     22662                        LX6    B6,X2                                                   CCG19      70
                          0336001651 +            MI     X6,FSR5     IF EQV[UX7]                                 CCG19      71
                                                  LX1    -U.SUCCP                                                CCG19      72
          1652  53427                             SA4    "TB"+X2     LIST = TB + SUCC[UX7]                       CCG19      73
                                                  LX4    59-I.IIP                                                CCG19      74
                     0334001651 +                 MI     X4,FSR5     IF II[LIS]                                  CCG19      75
                                                                                                                 CCG19      76
                               63510              SB5    X1                                                      CCG19      77
          1653  63620                             SB6    X2                                                      CCG19      78
                     0765001624 +                 GT     B5,B6,FSR   IF ( SUCC[UI6] > SUCC[UI7] )                CCGA023    22
                               66331              SB3    B3+B1             THEN RN.X6   ELSE RN.X7               CCGA023    23
          1654  0556001624 +                      NE     B5,B6,FSR   IF SUCC[UX6] " SUCC[UX7]                    CCGA023    24
                          5123000015 C            SA2    RVT+B3      RX7 = RVT + RN.X7                           CCGA023    25
          1655  55121                             SA1    A2-B1       RX6 = RX7 - 1                               CCGA023    26
                     43763                        MX7    -I.USESL                                                CCGA023    27
                          53117                   SA1    "TB"+X1     LIX6 = BASE + RX6                           CCGA023    28
                               53227              SA2    "TB"+X2     LIX7 = BASE + RX7                           CCGA023    29
          1656  20114                             LX1    -I.USESP                                                CCGA023    30
                     20214                        LX2    -I.USESP                                                CCGA023    31
                          15117                   BX1    -X7*X1                                                  CCGA023    32
                               15227              BX2    -X7*X2                                                  CCGA023    33
          1657  63510                             SB5    X1                                                      CCGA023    34
                     63620                        SB6    X2                                                      CCGA023    35
                          0756001624 +            GT     B6,B5,FSR    IF USES[LIX7] > USES[LIX6]                 CCGA023    36
          1660  67331                             SB3    B3-B1       REGNO = RN.X6                               CCGA023    37
                     0400001624 +                 EQ     FSR                                                     CCG19      81
                                                                                                                 CCG19      82
          1661                     2     FSRA     BSS    2                                                       CCG19      83
  
  
  
                                        **        GOR - GET OPERAND REGISTERS OF INSTRUCTIONS THAT ARE           CCG19      85
                                        *                A) NOT LOCKED                                           CCG19      86
                                        *                B) NOT IN *CLASS*                                       CCG19      87
                                        *                                                                        CCG19      88
                                        *         ENTRY  (X2) = R-NUMBER OF INSTRUCTION TO CHECK OPERANDS OF     CCG19      89
                                        *                                                                        CCG19      90
                                        *         EXIT   (X7) = LOR, LIST OF REGISTERS                           CCG19      91
                                                                                                                 CCG19      92
          1663  0200401663 +             GOR      ROUTINE                                                        CCG19      93
          1664  67671                             SB6    "TB"-B1                                                 CCG19      94
                     53426                        S"DI"  B6+X2       DI = BASE-1 + T0                            CCG19      95
                                                  LX4    58-D.TYP                                                CCG19      96
                          43700                   MX7    0           LOR = 0                                     CCG19      97
                               36644              IX6    X4+X4                                                   CCG19      98
          1665  0336001663 +                      MI     X6,GOR      IF TYPE[DI] = II ! IV                       CCG19      99
                          0324001670 +            PL     X4,GOR1     IF TYPE[DI] = I                             CCG19     100
                                                                                                                 CCG19     101
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    75
        UJR - UNJAM REGISTERS                                         GOR                 JAM 
  
                                        *         ASSEMBLE OPERAND R-NUMBERS                                     CCG19     102
                                                                                                                 CCG19     103
          1666  55341                             SA3    "DI"-B1     R2 = DI - 1                                 CCG19     104
                     20330                        LX3    -IH.RFP                                                 CCG19     105
                          15530                   BX5    "RN"X3      RNUMS = RF[R2]                              CCG19     106
          1667  0400001673 +                      EQ     GOR2                                                    CCG19     107
                                                                                                                 CCG19     108
          1670  20424                    GOR1     LX4    2+D.TYP-D.TYIOP                                         CCG19     109
                     43672                        MX6    -D.TYIOL                                                CCG19     110
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 CCG19     111
          1671  15746                             BX7    -X6*X4                                                  CCG19     112
                     5237000000 +                 SA3    TYIOM+X7                                                CCG19     113
                               26623              UX6    B2,X3                                                   CCG19     114
          1672  11265                             BX2    X6*X5                                                   CCG19     115
                     23522                        AX5    B2,X2       RNUMS = TYIO[R1,DI]                         CCG19     116
                                                                                                                 CCG19     117
          1673  43401                    GOR2     MX4    1                                                       CCG19     118
                                                  LX4    1+RV.LOCKP                                              CCG19     119
                     5110000202 C                 SA1    CLASS                                                   CCG19     120
                                                                                                                 CCG19     121
          1674  15650                    GOR3     BX6    "RN"X5      R = RI[RNUMS]                               CCG19     122
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                CCG19     123
                          0306001701 +            ZR     X6,GOR4     IF R = 0                                    CCG19     124
          1675  53367                             SA3    "TB"+X6     L = BASE + R                                CCG19     125
                                                  LX3    -I.REGP     REGNO = REG[L]                              CCG19     126
                     5223000140 C                 SA2    RBV+X3                                                  CCG19     127
                               11621              BX6    X2*X1                                                   CCG19     128
          1676  0316001701 +                      NZ     X6,GOR4     IF RBV(REGNO) & CLASS " 0  */ REG IN CLASS  CCG19     129
                          5223000015 C            SA2    RVT+X3                                                  CCG19     130
          1677  0332001701 +                      MI     X2,GOR4     IF LOCK[RVT(REGNO)]                         CCG19     131
                          20722                   LX7    18                                                      CCG19     132
                               73330              SX3    X3                                                      CCG19     133
          1700  12737                             BX7    X3+X7       LOR = SHIFT(LOR,18) ! REGNO                 CCG19     134
          1701  0315001674 +             GOR4     NZ     X5,GOR3     IF RNUMS " 0                                CCG19     135
                                                                                                                 CCG19     136
                          0400001663 +            EQ     GOR                                                     CCG19     137
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    76
        RII - RESET ISSUED INSTRUCTION                                RII                 JAM 
  
                                        **        RII - RESET ISSUED INSTRUCTION FOR REISSUE                     MCG      3070
                                        *                                                                        MCG      3071
                                        *         ENTRY  (X1) = R , *TXT* INDEX OF INSTRUCTION                   MCG      3072
                                                                                                                 MCG      3073
          1702  0200401702 +             RII      ROUTINE                                                        MCG      3074
          1703  0100002356 +                      RJ     RIL         RESET ISSUE LIST FOR R                      MCG      3075
          1704  67671                             SB6    "TB"-B1                                                 MCG      3076
                     56463                        S"DI"  B6+B3       DI = BASE-1 + R0                            MCG      3077
                          20441                   LX4    59-D.ZPP                                                MCG      3078
          1705  0334001702 +                      MI     X4,RII      IF ZP[DI]     */ NOT A *LD* WITH OPERANDS   MCG      3079
                                                                                                                 MCG      3080
                                        *         ADJUST USES COUNTS OF OPERAND REGS, SET FOR REISSUE            MCG      3081
                                                                                                                 MCG      3082
                          20433                   LX4    1+D.ZPP+58-D.TYP                                        MCG      3083
          1706  0324001710 +                      PL     X4,RII1     IF TYPE[DI] = I                             MCG      3084
                          55341                   SA3    "DI"-B1     R2 = DI - 1                                 MCG      3085
                               20330              LX3    -IH.RFP                                                 MCG      3086
          1707  15530                             BX5    "RN"X3      RNUMS = RF[R2]                              MCG      3087
                     0400001712 +                 EQ     RII2                                                    MCG      3088
                                                                                                                 MCG      3089
          1710  5034777775               RII1     SA3    "DI"-2      R1 = DI - 2                                 MCG      3090
                          5120000000 +            SA2    TYIOM                                                   MCG      3091
          1711  26622                             UX6    B2,X2                                                   MCG      3092
                     11763                        BX7    X6*X3                                                   MCG      3093
                          23527                   AX5    B2,X7       RNUMS = TYIO[R1,0]                          MCG      3094
                                                                                                                 MCG      3095
          1712  76410                    RII2     SX4    B1                                                      MCG      3096
                     20460                        LX4    I.USESP                                                 MCG      3097
                                                                                                                 MCG      3098
          1713  15650                    RII3     BX6    "RN"X5      R = RI[RNUMS]                               MCG      3099
                     21520                        AX5    R1.RIL      RNUMS = SHIFT( RNUMS , -16 )                MCG      3100
                          0306001721 +            ZR     X6,RII4     IF R = 0                                    MCG      3101
          1714  53367                             SA3    "TB"+X6     L = BASE + R                                MCG      3102
                     36734                        IX7    X3+X4       USES[L] = USES[L] + 1                       MCG      3103
                          54730                   SA7    A3                                                      MCG      3104
                                                  LX3    -I.REGP     REGNO = REG[L]                              MCG      3105
                               63330              SB3    X3                                                      MCG      3106
          1715  5223000015 C                      SA2    RVT+X3                                                  MCG      3107
                          13126                   BX1    X2-X6                                                   MCG      3108
                               15310              BX3    "RN"X1                                                  MCG      3109
          1716  0303001721 +                      ZR     X3,RII4     IF RI[RVT(REGNO)] = R                       MCG      3110
                          5110000012 C            SA1    AXR                                                     MCG      3111
          1717  5133000140 C                      SA3    RBV+B3                                                  MCG      3112
                          54620                   SA6    A2          RVT(REGNO) = R                              MCG      3113
                               15713              BX7    -X3*X1      AXR = AXR & ^RBV(REGNO)                     MCG      3114
          1720  54710                             SA7    A1                                                      MCG      3115
          1721  0315001713 +             RII4     NZ     X5,RII3     IF RNUMS " 0                                MCG      3116
                                                                                                                 MCG      3117
                          0400001702 +            EQ     RII                                                     MCG      3118
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    77
        CSI - CHECK STORE ISSUE                                       CSI                 JAM 
  
                                        **        CSI - CHECK STORE REGS FOR ISSUE OF A STORE INSTRUCTION        MCG      3120
                                        *                RECOMPUTE PS BIT FOR RESULTS IN STORE REGS              MCG      3121
                                                                                                                 MCG      3122
          1722  0200401722 +             CSI      ROUTINE                                                        MCG      3123
          1723  6130000026                        SB3    RN.X0+6     I = RN.X6                                   MCG      3124
                                                                                                                 MCG      3125
          1724  5113000015 C             CSI1     SA1    RVT+B3      R = RVT(I)                                  MCG      3126
                          67671                   SB6    "TB"-B1                                                 MCG      3127
                               53416              SA4    B6+X1       DI = BASE-1 + R                             MCG      3128
          1725  20424                             LX4    59-D.PSP                                                MCG      3129
                     0324001737 +                 PL     X4,CSI4     IF ^PS[DI]    */ NOT A STORE PREDECESSOR    MCG      3130
                                                                                                                 MCG      3131
                                        *         CHECK FOR ISSUABLE STORES, ADJUST PS BIT                       MCG      3132
                                                                                                                 MCG      3133
                               54541              SA5    "DI"+B1     L = DI + 1                                  MCG      3134
          1726  43755                             MX7    -I.INDXL    ^P = 1                                      MCG      3135
                     5120000000 X                 SA2    O.TREE                                                  MCG      3136
                               20533              LX5    -I.INDXP                                                MCG      3137
          1727  15657                             BX6    -X7*X5                                                  MCG      3138
                     63220                        SB2    X2                                                      MCG      3139
                          43201                   MX2    1                                                       MCG      3140
                               53362              SA3    B2+X6       UI = O.TREE + INDX[L]                       MCG      3141
                                                                                                                 MCG      3142
                                         CSI2     LX3    -U.SUCCP                                                MCG      3143
          1730  53537                             SA5    "TB"+X3     SI = BASE + SUCC[UI]                        MCG      3144
                                                  LX5    59-I.IIP                                                MCG      3145
                     0335001734 +                 MI     X5,CSI3     IF II[SI]                                   MCG      3146
                               55151              SA1    A5-B1       D = SI - 1                                  MCG      3147
          1731  20501                             LX5    I.IIP-I.ICP                                             MCG      3148
                     20131                        LX1    59-D.STP                                                MCG      3149
                          11615                   BX6    X1*X5                                                   MCG      3150
          1732  0336001741 +                      MI     X6,CSI5     IF ST[D] & IC[SI]                           MCG      3151
                                         #DAL     IFNE   .DAL,0                                                  MCG      3152
                          11521                   BX5    X2*X1                                                   MCG      3153
                               20172              LX1    D.STP-D.L2P                                             MCG      3154
          1733  15151                             BX1    -X1*X5                                                  MCG      3155
                                         #DAL     ENDIF                                                          MCG      3156
                     15771                        BX7    -X1*X7      ^P = ^P & ^(ST[D] &^L2[D])                  MCG      3157
                                         CSI3     LX3    U.SUCCP+59-U.LASTP                                      MCG      3158
          1734  10633                             BX6    X3          UL = UI                                     MCG      3159
                     54331                        SA3    A3+B1       UI = UI + 1                                 MCG      3160
                          0326001730 +            PL     X6,CSI2     IF ^LAST[UL]                                MCG      3161
                                                                                                                 MCG      3162
          1735  0327001737 +                      PL     X7,CSI4     IF ^P = 0     */ RESULT STILL IS *PS*       MCG      3163
                          15742                   BX7    -X2*X4      PS[DI] = 0                                  MCG      3164
                               20750              LX7    1+D.PSP                                                 MCG      3165
          1736  54740                             SA7    A4                                                      MCG      3166
                                                                                                                 MCG      3167
          1737  66331                    CSI4     SB3    B3+B1       I = I + 1                                   MCG      3168
                     7163777750                   SX6    B3-RN.X0-7                                              MCG      3169
          1740  0306001724 +                      ZR     X6,CSI1     IF I = RN.X7                                MCG      3170
                          0400001722 +            EQ     CSI                                                     MCG      3171
                                                                                                                 MCG      3172
          1741  75257                    CSI5     SX2    A5-"TB"     R = SI - BASE                               MCG      3173
                     0100001310 +                 RJ     ISI         ISSUE THE STORE                             MCG      3174
          1742  6130000026                        SB3    RN.X0+6     I = RN.X6     */ RESET                      FCC2038     5
                          0400001724 +            EQ     CSI1                                                    MCG      3175
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    78
        DRT - DETERMINE RESULT REGISTER TYPE ( CLASS )                DRT                 JAM 
  
                                        **        DRT - DETERMINE RESULT REGISTER TYPE ( CLASS ) NEEDED          MCG      3177
                                        *                                                                        MCG      3178
                                        *         ENTRY  (A4,X4) = DI , [DI]                                     MCG      3179
                                        *                                                                        MCG      3180
                                        *         EXIT   (X6) = REGISTER CLASS BITS                              MCG      3181
                                                                                                                 MCG      3182
          1743  0200401743 +             DRT      ROUTINE                                                        MCG      3183
          1744  20407                             LX4    59-D.NRP                                                MCG      3184
                     7160377000                   SX6    FX.SCR      CLASS = FX.SCR                              MCG      3185
                               24724              NX7    B2,X4                                                   MCG      3186
          1745  0222001746 +                      JP     DRT1+B2     JUMP( NORMC[DI] )                           MCG      3187
                                                                                                                 MCG      3188
          1746                           DRT1     BSS    0                                                       MCG      3189
          1746  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG      3190
                          0400001763 +            EQ     DRT2                                                    MCG      3191
                                                                                                                 MCG      3192
          1747  7160140000                        SX6    FX.ST       CLASS = FX.ST                               MCG      3193
                          0400001743 +            EQ     DRT                                                     MCG      3194
                                                                                                                 MCG      3195
          1750  5054000002                        SA5    "DI"+2      R1RS = DI + 2                               MCG      3196
                          0400001767 +            EQ     DRT3                                                    MCG      3197
                                                                                                                 MCG      3198
          1751  0400001572 +                      EQ     DRT0        ECJ                                         MCG      3199
                                                                                                                 MCG      3200
          1752  0400001743 +                      EQ     DRT         LVL2                                        MCG      3201
                                                                                                                 MCG      3202
          1753  7160037000                        SX6    FX.LD       CLASS = LD                                  MCG      3203
                          0400001743 +            EQ     DRT                                                     MCG      3204
                                                                                                                 MCG      3205
          1754  0400001572 +                      EQ     DRT0        ST                                          MCG      3206
          1755  0400001572 +                      EQ     DRT0        JP                                          MCG      3207
          1756  0400001743 +                      EQ     DRT         SXT                                         MCG      3208
          1757  0400001572 +                      EQ     DRT0        KS                                          MCG      3209
          1760  0400001572 +                      EQ     DRT0        PI                                          MCG      3210
          1761  0400001743 +                      EQ     DRT         MUC                                         MCG      3211
          1762  0400001743 +                      EQ     DRT         SCR                                         MCG      3212
                                                                                                                 MCG      3213
                                        *         INSTRUCTION PRECEEDS AN *RJRS*, ENSURE B-REG IS AVAILABLE      MCG      3214
                                                                                                                 MCG      3215
          1763  0100000412 +             DRT2     RJ     FBR         REGNO = FBR( R1RS )                         FCC0641    74
          1764  0730001572 +                      MI     B3,DRT0     IF ACT < 0    */ NO AVAILABLE B-REG         FCC0641    75
                          20415                   LX4    D.NRP-D.PSP                                             FCC0641    76
          1765  7160377000                        SX6    FX.SCR      CLASS = FX.SCR                              FCC0641    77
                          0324001743 +            PL     X4,DRT      IF ^PS[DI]                                  MCG      3226
          1766  7160140000                        SX6    FX.ST       CLASS = FX.ST                               MCG      3227
                          0400001743 +            EQ     DRT                                                     MCG      3228
  
                                        *         INSTRUCTION PRECEEDS A *RS*                                    MCG      3230
                                                                                                                 MCG      3231
          1767  20554                    DRT3     LX5    -R1.SOP                                                 MCG      3232
                     43766                        MX7    -SO.REGL                                                MCG      3233
                          15357                   BX3    -X7*X5                                                  MCG      3234
          1770  5223000140 C                      SA2    RBV+X3                                                  MCG      3235
                          73620                   SX6    X2          CLASS = RBV( SOREG[R1RS] )                  MCG      3236
          1771  0400001743 +                      EQ     DRT                                                     MCG      3237
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    79
        FRR - FIND RESULT REGISTER                                    FRR                 JAM 
  
                                        **        FRR - FIND RESULT REGISTER                                     MCG      3239
                                        *                                                                        MCG      3240
                                        *         ENTRY  (X1) = CLASS OF REGISTERS WHICH RESULT SHOULD BE IN     MCG      3241
                                        *                (T0) = *TXT* INDEX OF INSTRUCTION TO BE ISSUED          MCG      3242
                                        *                                                                        MCG      3243
                                        *         EXIT   (B3) = REGF , REGNO OF REGISTER THAT IS CHEIPEST TO FRE MCG      3244
                                        *                (B4) = MCOST , COST OF RESTORING *REGF*                 MCG      3245
                                        *                                                                        MCG      3246
                                        *         CALLS  CRC                                                     MCG      3247
                                                                                                                 MCG      3248
          1772  66300                    FRR0     SB3    B0                                                      MCG      3249
                     66600                        SB6    B0          ABR = 0                                     MCG      3250
                          0100002011 +            RJ     CRC         REGF = CRC(RVT,MCOST)                       MCG      3251
                                                                                                                 MCG      3252
          1773  0200401773 +             FRR      ROUTINE                                                        MCG      3253
          1774  7261400777                        SX6    X1-FX.SCR                                               MCG      3254
                          0306001772 +            ZR     X6,FRR0     IF CLASS = FX.SCR                           MCG      3255
          1775  5120000204 C                      SA2    T0                                                      MCG      3256
                          0100001663 +            RJ     GOR         GET REGNO"S OF OPERANDS OF T0               CCG19     138
                                                                                                                 CCG19     139
                                        *         LOCKOUT THE OPERANDS OF *T0* THAT ARE NOT IN *CLASS* SO *CRC*  CCG19     140
                                        *         WON"T CONSIDER THEM.                                           CCG19     141
                                                                                                                 CCG19     142
          1776  5170002007 +                      SA7    FRRA        FRRA = LIST                                 CCG19     143
                          43501                   MX5    1                                                       CCG19     144
          1777  73370                    FRR1     SX3    X7          REGNO = SETX(I)                             CCG19     145
                     0303002002 +                 ZR     X3,FRR2     IF REGNO = 0  */ END OF LIST                CCG19     146
                               21722              AX7    18          I = SHIFT(I,-18)                            CCG19     147
          2000  5223000015 C                      SA2    RVT+X3                                                  CCG19     148
                          12625                   BX6    X2+X5       LOCK[RVT(REGNO)] = 1                        CCG19     149
                               54620              SA6    A2                                                      CCG19     150
          2001  0400001777 +                      EQ     FRR1                                                    CCG19     151
                                                                                                                 CCG19     152
          2002  66300                    FRR2     SB3    B0                                                      CCG19     153
                     66600                        SB6    B0          ABR = 0                                     MCG      3306
                          0100002011 +            RJ     CRC         REGF = CRC(RVT,MCOST)                       MCG      3307
                                                                                                                 MCG      3308
                                        *         UNLOCK THE LOCKED OPERAND REGISTERS                            MCG      3309
                                                                                                                 MCG      3310
          2003  5110002007 +                      SA1    FRRA        I = FRRA                                    MCG      3311
                          43401                   MX4    1                                                       MCG      3312
                                                  LX4    1+RV.LOCKP                                              MCG      3313
                                                                                                                 MCG      3314
          2004  5221000015 C             FRR5     SA2    RVT+X1                                                  MCG      3315
                          15624                   BX6    -X4*X2      LOCK[RVT(I)] = 0                            MCG      3316
                               21122              AX1    18          I = SHIFT( I , -18 )                        MCG      3317
          2005  54620                             SA6    A2                                                      MCG      3318
                     0311002004 +                 NZ     X1,FRR5                                                 MCG      3319
          2006  0400001773 +                      EQ     FRR                                                     MCG      3320
                                                                                                                 MCG      3321
          2007                     1     FRRA     BSS    1                                                       MCG      3322
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    80
        CRC - COMPUTE RESTORE COSTS                                   CRC                 JAM 
  
                                        **        CRC - COMPUTE RESTORE COSTS OF RESTABLISHING A RESULT IN A REG MCG      3324
                                        *                                                                        MCG      3325
                                        *         ENTRY  (B3) = REGNO, IF 0 THEN CHECK ALL X-REGS, ELSE CHECK    MCG      3326
                                        *                            ONLY "REGNO".                               MCG      3327
                                        *                (B6) = ABR " 0 IF B-REGISTERS AVAIL FOR A MOVE TO THEM  MCG      3328
                                        *                                                                        MCG      3329
                                        *         EXIT   (B3) = REGNO OF REGISTER WHICH IS CHEIPEST TO FREE      MCG      3330
                                        *                (B4) = RESTORATION COST                                 MCG      3331
                                        *                                                                        MCG      3332
                                        *         PRESERVES - X0, B1, B7                                         MCG      3333
                                        *                                                                        MCG      3334
                                        *         THE COST OF RESTORING A REGISTER ARE -                         MCG      3335
                                        *         COST   INSTRUCTION PROPERITIES / RESTORE ACTION                MCG      3336
                                        *                                                                        MCG      3337
                                        *         -1     RF[DI] " 0 / MOVE RESULT TO AN AVAILABLE B-REGISTER     MCG      3338
                                        *                                                                        MCG      3339
                                        *         0      ZP[DI] & ^LD[DI] / REISSUE INSTRUCTION                  MCG      3340
                                        *                                                                        MCG      3341
                                        *         1      LD[DI] & ^(L2[DI] ! FP[DI]) & NO INTERFERING STORE ISSU MCG      3342
                                        *                   IF ZP[DI] ! OPERANDS"S ARE IN B-REGS , THEN REISSUE  MCG      3343
                                        *                                                                        MCG      3344
                                        *         2      RESULT IN X6/X7 WITH NO SPECIAL PROPERTIES              MCG      3345
                                        *                   STORE THE RESULT IN A TEMP CELL AND SETUP A *LD*     MCG      3346
                                        *                   OF IT ( OT.+CA ).                                    MCG      3347
                                                                                                                 MCG      3348
                                   0     RF.SAV   EQU    0           TURN OFF *RF* LOGIC                         MCG      3349
                                                                                                                 MCG      3350
          2010  6160000015 C             CRC0     SB6    RVT                                                     MCG      3351
                          65306                   SB3    A0-B6       REGNO = IREG                                MCG      3352
                                                                                                                 MCG      3353
          2011  0200402011 +             CRC      ROUTINE                                                        MCG      3354
          2012  5130002750 +                      SA3    =22333333B                                              MCG      3355
                          5110002067 +            SA1    CRCA                                                    MCG      3356
          2013  5120000035 C                      SA2    RVT+RN.X0   I = RN.X0                                   MCG      3357
                          10733                   BX7    X3          RCOST = 22333333B                           MCG      3358
          2014  6140000004                        SB4    4           MCOST = 4                                   MCG      3359
                          66500                   SB5    B0          MAXD = 0                                    MCG      3360
          2015  0430002027 +                      ZR     B3,CRC4     IF REGNO = 0                                MCG      3361
                                                                                                                 MCG      3362
                          5123000015 C            SA2    RVT+B3      I = REGNO                                   MCG      3363
          2016  66600                             SB6    B0          ABR = 0                                     MCG      3364
                     7163777751                   SX6    B3-RN.X0-6                                              MCG      3365
                               76711              SX7    B1+B1                                                   MCG      3366
          2017  0326002027 +                      PL     X6,CRC4     RCOST = IF( REGNO \ X6 ) THEN 2 ELSE 3      MCG      3367
                          73771                   SX7    X7+B1                                                   MCG      3368
          2020  0400002027 +                      EQ     CRC4                                                    MCG      3369
                                                                                                                 MCG      3370
                                        *         SEARCH *RVT* TO FIND RESULT WHICH IS CHEIPEST TO RESTORE,      MCG      3371
                                        *         AND IS THE FURTHEST DISTANCE TO ITS NEXT USE.                  MCG      3372
                                                                                                                 MCG      3373
          2021  43471                    CRC1     MX4    -3                                                      MCG      3374
                     15674                        BX6    -X4*X7      COST = RCOST & 7                            MCG      3375
                          6226000000              SB2    X6+                                                     MCG      3376
                                                                                                                 MCG      3377
          2022  27622                    CRC2     PX6    B2,X2       COST[RVT(I)] = COST                         MCG      3378
                     54620                        SA6    A2                                                      MCG      3379
                          0742002026 +            GT     B2,B4,CRC3  IF COST > MCOST                             MCG      3380
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    81
        CRC - COMPUTE RESTORE COSTS                                   CRC                 JAM 
  
          2023  20252                             LX2    -RV.NUP                                                 MCG      3381
                     63320                        SB3    X2                                                      MCG      3382
                          0430002026 +            ZR     B3,CRC3     IF NU[RVT(I)] = 0  */ RESULT NOT USED YET   MCG      3383
          2024  0724002025 +                      LT     B2,B4,CRC2A IF COST < MCOST                             MCG      3384
                          0735002026 +            LT     B3,B5,CRC3  IF NU[RVT(I)] < MAXD                        MCG      3385
          2025  66420                    CRC2A    SB4    B2          MCOST = COST                                MCG      3386
                     54020                        SA0    A2          IREG = I                                    MCG      3387
                          66530                   SB5    B3          MAXD = NU[RVT(I)]                           MCG      3388
                                                                                                                 MCG      3389
          2026  21703                    CRC3     AX7    3           RCOST = SHIFT( RCOST , -3 )                 MCG      3390
                     54221                        SA2    A2+B1       I = I + 1                                   MCG      3391
                          0307002010 +            ZR     X7,CRC0     IF RCOST = 0                                MCG      3392
                                                                                                                 MCG      3393
          2027  0332002026 +             CRC4     MI     X2,CRC3     IF LOCK[RVT(I)]                             MCG      3394
                          67371                   SB3    "TB"-B1                                                 MCG      3395
                               53423              S"DI"  X2+B3       DI = BASE-1 + RI[RVT(I)]                    MCG      3396
          2030  0302002026 +                      ZR     X2,CRC3     IF RVT(I) = 0                               MCG      3397
                          11614                   BX6    X1*X4                                                   MCG      3398
                               20450              LX4    59-D.RFP                                                MCG      3399
          2031  0306002021 +                      ZR     X6,CRC1     IF (LD[DI]&ZP[DI]&RF[DI]) = 0               MCG      3400
                          0324002032 +            PL     X4,CRC5     IF ^RF[DI]                                  MCG      3401
                                                  IFNE   RF.SAV,0                                                MCG      3402
                                                                                                                 MCG      3403
                                                  ZR     B6,CRC5     IF ABR = 0    */ NO B-REGS AVAIL            MCG      3404
                                                  SB4    -B1         MCOST = -1                                  MCG      3405
                                                  SA0    A2          IREG = I                                    MCG      3406
                                                  EQ     CRC0                                                    MCG      3407
                                                  ENDIF                                                          MCG      3408
                                                                                                                 MCG      3409
          2032  20454                    CRC5     LX4    D.RFP-D.LDP                                             MCG      3410
                     66200                        SB2    B0          COST = 0                                    MCG      3411
                          0324002022 +            PL     X4,CRC2     IF ^LD[DI]    */ MUST BE ZEROP              MCG      3412
                                                                                                                 MCG      3413
                                        *         INSTRUCTION IS A *LD*, SEE IF IT CAN BE REISSUED               MCG      3414
                                        *         IF IT HAS OPERANDS, SEE IF THEY ARE IN B-REGISTERS.            MCG      3415
                                                                                                                 MCG      3416
          2033  5130002070 +                      SA3    CRCB                                                    MCG      3417
                          11634                   BX6    X3*X4                                                   MCG      3418
                               20411              LX4    D.LDP-D.ZPP                                             MCG      3419
          2034  0316002021 +                      NZ     X6,CRC1     IF FP[DI] ! L2[DI]                          MCG      3420
                          0334002043 +            MI     X4,CRC9     IF ZP[DI]     */ NO REG PRED                MCG      3421
          2035  10644                             BX6    X4                                                      FCC0584     9
                     20633                        LX6    1+D.ZPP+58-D.TYP                                        FCC0584    10
                          0326002037 +            PL     X6,CRC6     IF TYPE[DI] = I                             FCC0584    11
          2036  55341                             SA3    "DI"-B1     R2 = DI - 1                                 MCG      3424
                     20330                        LX3    -IH.RFP                                                 MCG      3425
                          0400002040 +            EQ     CRC7                                                    MCG      3426
                                                                                                                 MCG      3427
          2037  5034777775               CRC6     SA3    "DI"-2      R1 = DI - 2                                 MCG      3428
                          20334                   LX3    -R1.RJP                                                 MCG      3429
                                                                                                                 MCG      3430
          2040  15630                    CRC7     BX6    "RN"X3      RN = RI[RWORD]                              MCG      3431
                     53567                        SA5    "TB"+X6     L = BASE + R                                MCG      3432
                                                  LX5    -I.REGP                                                 MCG      3433
                          7235777767              SX3    X5-8                                                    MCG      3434
          2041  0323002021 +                      PL     X3,CRC1     IF REG[L] > 7 */ PRED NOT IN A B-REG        MCG      3435
                          5255000172 C            SA5    LRN+X5                                                  MCG      3436
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    82
        CRC - COMPUTE RESTORE COSTS                                   CRC                 JAM 
  
          2042  13665                             BX6    X6-X5                                                   MCG      3437
                     0316002021 +                 NZ     X6,CRC1     IF LRN( REG[L] ) " RN                       MCG      3438
  
  
  
                                        *         CHECK ISSUED STORE CHAIN FOR AN INTERFERING STORE              MCG      3440
                                                                                                                 MCG      3441
          2043  20441                    CRC9     LX4    D.ZPP-D.EQVP                                            MCG      3442
                     66210                        SB2    B1          COST = 1                                    MCG      3443
                          0324002022 +            PL     X4,CRC2     IF ^EQV[DI]                                 MCG      3444
          2044  5130000172 C                      SA3    ISC         J = ISC                                     MCG      3445
                          5054777776              SA5    "DI"-1      R2 = DI - 1                                 MCG      3446
                                                                                                                 MCG      3447
                                        *         IF NEXT USE IS AN EQUIV LINK TO A STORE, THEN CANNOT RELOAD    MCG      3448
                                                                                                                 MCG      3449
          2045  20252                             LX2    -RV.NUP                                                 MCG      3450
                     53423                        SA4    B3+X2       DS = BASE-1 + NU[RVT(I)]                    MCG      3451
                          20222                   LX2    RV.NUP                                                  MCG      3452
                               20431              LX4    59-D.STP                                                MCG      3453
          2046  0324002050 +                      PL     X4,CRC10    IF ^ST[DS]    */ NEXT USE NOT IN A STORE    MCG      3454
                          55441                   SA4    A4-B1       R2S = DS - 1                                MCG      3455
                               20430              LX4    -IH.RFP                                                 MCG      3456
          2047  13624                             BX6    X2-X4                                                   MCG      3457
                     15460                        BX4    "RN"X6                                                  MCG      3458
                          0314002021 +            NZ     X4,CRC1     IF RF[R2S] " RI[RVT(I)]  */ AN EQUIV LINK   MCG      3459
                                                                                                                 MCG      3460
          2050  73630                    CRC10    SX6    X3                                                      MCG      3461
                     0306002022 +                 ZR     X6,CRC2     IF J = 0      */ END OF CHAIN               FCC0584    12
                               53337              SA3    "TB"+X3     L  = BASE + J;  J = [L]                     MCG      3463
          2051  5043777775                        SA4    A3-2        R2J = L - 2                                 MCG      3464
                          13645                   BX6    X4-X5                                                   MCG      3465
                                                  LX6    -IH.IHP                                                 MCG      3466
                               63360              SB3    X6                                                      MCG      3467
          2052  0530002050 +                      NZ     B3,CRC10    IF IH[R2] " IH[R2J]                         MCG      3468
                          20630                   LX6    IH.IHP-IH.RFP                                           MCG      3469
                               63360              SB3    X6                                                      MCG      3470
          2053  0530002055 +                      NZ     B3,CRC11    IF RF[R2] " RF[R2J]                         FCC1656X    5
                          20622                   LX6    IH.RFP-IH.CAP                                           MCG      3472
                               63360              SB3    X6                                                      MCG      3473
          2054  0530002050 +                      NZ     B3,CRC10    IF CA[R2] " CA[R2J]                         MCG      3474
                                                                                                                 FCC1656X    6
          2055  75437                    CRC11    SX4    A3-"TB"                                                 FCC1656X    7
                     7262000000                   SX6    X2+                                                     FCC1656X    8
                               37646              IX6    X4-X6                                                   FCC1656X    9
          2056  0336002050 +                      MI     X6,CRC10    IF J < RI[RVT(I)]  */ ST BEFORE LD          FCC1656X   10
                                                                                                                 FCC1656X   11
                                        *         ISSUE OF AN INTERFERING STORE COUNTS AS A USE, UPDATE *NU*     FCC1656X   12
                                                                                                                 FCC1656X   13
                          20252                   LX2    -RV.NUP                                                 FCC1656X   14
                               73620              SX6    X2                                                      FCC1656X   15
          2057  37546                             IX5    X4-X6                                                   FCC1656X   16
                     20222                        LX2    RV.NUP                                                  FCC1656X   17
                          0335002021 +            MI     X5,CRC1     IF NU[RVT(I)] > J                           FCC1656X   18
                                                                                                                 FCC1656X   19
          2060  53527                             SA5    "TB"+X2     LI = BASE + RI[RVT(I)]                      FCC1656X   20
                     5140000000 X                 SA4    O.TREE                                                  FCC1656X   21
                               43355              MX3    -I.INDXL                                                FCC1656X   22
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    83
        CRC - COMPUTE RESTORE COSTS                                   CRC                 JAM 
  
          2061  20533                             LX5    -I.INDXP                                                FCC1656X   23
                     6234777776                   SB3    X4-1                                                    FCC1656X   24
                               15353              BX3    -X3*X5                                                  FCC1656X   25
          2062  53433                             SA4    B3+X3       UI = TREE-1 + INDX[LI]                      FCC1656X   26
                                                                                                                 FCC1656X   27
          2063  54441                    CRC12    SA4    A4+B1       UI = UI + 1                                 FCC1656X   28
                                                  LX4    -U.SUCCP                                                FCC1656X   29
                     53547                        SA5    "TB"+X4     SI = BASE + SUCC[UI]                        FCC1656X   30
                                                  LX5    59-I.IIP                                                FCC1656X   31
                          0335002063 +            MI     X5,CRC12    IF II[SI]                                   FCC1656X   32
                                                                                                                 FCC1656X   33
          2064  20252                             LX2    -RV.NUP                                                 FCC1656X   34
                     73440                        SX4    X4                                                      FCC1656X   35
                          13226                   BX2    X2-X6                                                   FCC1656X   36
                               12624              BX6    X2+X4       NU[RVT(I)] = SUCC[UI]                       FCC1656X   37
          2065  20622                             LX6    RV.NUP                                                  FCC1656X   38
                     10266                        BX2    X6                                                      FCC1656X   39
                          54620                   SA6    A2                                                      FCC1656X   40
          2066  0400002021 +                      EQ     CRC1                                                    MCG      3475
                                                                                                                 MCG      3476
                                                  IFEQ   RF.SAV,0,2                                              MCG      3477
          2067                           CRCA     BFMW   D,(LD,ZP)                                               MCG      3478
                                                  ELSE   1                                                       MCG      3479
                                         CRCA     BFMW   D,(LD,ZP,RF)                                            MCG      3480
          2070                           CRCB     BFMW   D,(L2,FP),59-D.LDP                                      MCG      3481
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    84
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
                                        **        CRA - CHANGE REGISTER ASSIGNMENT                               MCG      3483
                                        *                                                                        MCG      3484
                                        *         THOSE WISHING TO EXPRESS THEIR APPREATION FOR THE EXISTANCE OF MCG      3485
                                        *         THIS ROUTINE AND OTHERS WHICH GENERATE *XMT"S* , ETC MAY       MCG      3486
                                        *         THANK SEYMOUR CRAY.                                            MCG      3487
                                        *                                                                        MCG      3488
                                        *         ENTRY  AVAIL " 0 , AVAIL & CLASS = 0                           MCG      3489
                                        *                (X1) = CLASS                                            MCG      3490
                                        *                (T0) = TXT INDEX OF INSTRUCTION THAT CANNOT BE ISSUED   MCG      3491
                                                                                                                 MCG      3492
          2071  0200402071 +             CRA      ROUTINE                                                        MCG      3493
          2072  7271637777                        SX7    X1-FX.ST                                                MCG      3494
                          0317002115 +            NZ     X7,CRA4     IF CLASS " FX.ST                            MCG      3495
                                                                                                                 MCG      3496
                                        *         STORE REGISTERS JAMMED, FREE ONE OF THEM UP                    MCG      3497
                                                                                                                 MCG      3498
          2073  5110000012 C                      SA1    AXR                                                     MCG      3499
                          7150777400              SX5    FX.SCR+FX.XT                                            MCG      3500
          2074  11715                             BX7    X1*X5       AVAIL = AXR & FX.SCR                        MCG      3501
                     24637                        NX6    B3,X7                                                   MCG      3502
                          5133777745 +            SA3    B3+FXRA+16-47                                           MCG      3503
          2075  67671                             SB6    "TB"-B1                                                 MCG      3504
                     63330                        SB3    X3          REGR = FXRA( NORMC(AVAIL) )                 MCG      3505
                          6140000026              SB4    RN.X0+6     REGF = X6                                   FCC1056    34
          2076  5114000015 C                      SA1    RVT+B4      RX6 = RI[RVT(RN.X6)]                        MCG      3507
                          54211                   SA2    A1+B1       RX7 = RI[RVT(RN.X7)]                        MCG      3508
                               53316              SA3    B6+X1       DX6 = BASE-1 + RX6                          FCC1056    35
          2077  53426                             SA4    B6+X2       DX7 = BASE-1 + RX7                          FCC1056    36
                     43772                        MX7    -D.STRSL                                                FCC1056    37
                          20746                   LX7    D.STRSP                                                 FCC1056    38
                               15537              BX5    -X7*X3                                                  FCC1056    39
          2100  15647                             BX6    -X7*X4                                                  FCC1056    40
                     0305002102 +                 ZR     X5,CRA1     IF STRS[DX6] = 0                            FCC1056    41
          2101  0316002105 +                      NZ     X6,CRA2     IF STRS[DX7] " 0                            FCC1056    42
                          6144000001              SB4    B4+1        REGF = X7                                   FCC1056    43
                                                                                                                 MCG      3517
          2102  6120000010               CRA1     SB2    OC.XMT                                                  MCG      3518
                          0100002340 +            RJ     OXI         OUTPUT XMT REGF TO REGR                     MCG      3519
          2103  5120000204 C                      SA2    T0                                                      FCC0584    13
                          0100001310 +            RJ     ISI         ISSUE T0                                    FCC0584    14
          2104  0400002071 +                      EQ     CRA                                                     MCG      3520
                                                                                                                 MCG      3521
                                        *         BOTH RESULTS IN X6 & X7 PS!PRS, THIS IS A PATHALOGICAL CASE.   FCC1056    44
                                        *         U = A; V = B; IF(W) GO TO LAB; X(I) = C; X(J) = A; X(K) = B;   MCG      3523
                                                                                                                 MCG      3524
          2105  20152                    CRA2     LX1    -RV.NUP                                                 MCG      3525
                     20252                        LX2    -RV.NUP                                                 MCG      3526
                          63210                   SB2    X1          DX6 = NU[RVT(RN.X6)]                        MCG      3527
                               63520              SB5    X2          DX7 = NU[RVT(RN.X7)]                        FCC0393    15
          2106  0625002107 +                      GE     B2,B5,CRA3  REGF = IF( DX6 \ DX7 ) THEN RN.X6 ELSE X7   MCG      3529
                          66441                   SB4    B4+B1                                                   MCG      3530
                               10122              BX1    X2                                                      MCG      3531
                                                                                                                 MCG      3532
          2107  20122                    CRA3     LX1    RV.NUP                                                  MCG      3533
                     6120000010                   SB2    OC.XMT                                                  MCG      3534
                               15610              BX6    "RN"X1      R0 = RI[RVT(REGF)]                          MCG      3535
          2110  27736                             PX7    B3,X6                                                   MCG      3536
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    85
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
                     5170000203 C                 SA7    R0                                                      MCG      3537
          2111  0100002340 +                      RJ     OXI         OUTPUT XMT REGF TO REGR                     MCG      3538
          2112  5120000204 C                      SA2    T0                                                      MCG      3539
                          0100001310 +            RJ     ISI         ISSUE *T0*                                  MCG      3540
          2113  76600                             SX6    B0                                                      FCC0881    38
                     0100002222 +                 RJ     SXB         SETUP *XMT* BACK                            FCC0881    39
          2114  0400002071 +                      EQ     CRA                                                     MCG      3542
                                                                                                                 MCG      3543
                                        *         *LD* REGISTER NEEDED.                                          MCG      3544
                                                                                                                 MCG      3545
          2115  7271740777               CRA4     SX7    X1-FX.LD                                                MCG      3546
                          0317002145 +            NZ     X7,CRA10    IF CLASS " FX.LD                            MCG      3547
          2116  66300                             SB3    B0                                                      MCG      3548
                     66600                        SB6    B0          ABR = 0                                     MCG      3549
                          0100002011 +            RJ     CRC         COMPUTE RESTORE COSTS                       MCG      3550
          2117  5110000012 C                      SA1    AXR                                                     MCG      3551
                          7120140000              SX2    FX.ST                                                   MCG      3552
          2120  11321                             BX3    X2*X1                                                   MCG      3553
                     0303002140 +                 ZR     X3,CRA9     IF AXR & FX.ST = 0  */ NO STORE REG AVAIL   MCG      3554
                                                                                                                 MCG      3555
                                        *         STORE REG AVAIL, MOVE RESULT THAT HAS HIGHEST RESTORE COST     MCG      3556
                                        *         AND IS FURTHEST DISTANCE TO A NEXT USE TO IT, ON THE ASSUMPTIO MCG      3557
                                        *         THAT IT MAY BE SAVED LATER.                                    MCG      3558
                                                                                                                 MCG      3559
                               67401              SB4    -B1         MAXC = -1                                   MCG      3560
          2121  67501                             SB5    -B1         MAXD = -1                                   MCG      3561
                     6120000021                   SB2    RN.X0+1     I = X1                                      MCG      3562
                               56020              SA0    B2          REGF = X1     */ INCASE ALL LD-REGS LOCKED  FCC0448   150
                                                                                                                 MCG      3563
          2122  5112000015 C             CRA5     SA1    RVT+B2                                                  MCG      3564
                          0331002130 +            MI     X1,CRA7     IF LOCK[RVT(I)]                             MCG      3565
          2123  67671                             SB6    "TB"-B1                                                 FCC0625    10
                     53416                        SA4    B6+X1       DI = TB-1 + RI[RVT(I)]                      FCC0625    11
                          20425                   LX4    59-D.PRSP                                               FCC0625    12
          2124  0334002130 +                      MI     X4,CRA7     IF PRS[DI]                                  FCC0625    13
                          26631                   UX6    B3,X1                                                   MCG      3568
                               20152              LX1    -RV.NUP                                                 MCG      3569
          2125  0743002127 +                      GT     B3,B4,CRA6  IF COST[RVT(I)] > MAXC                      MCG      3570
                          0734002130 +            LT     B3,B4,CRA7  IF COST[RVT(I)] < MAXC                      MCG      3571
          2126  6261000000                        SB6    X1+                                                     MCG      3572
                          0765002130 +            LT     B6,B5,CRA7  IF NU[RVT(I)] < MAXD                        MCG      3573
          2127  56020                    CRA6     SA0    B2          REGF = I                                    MCG      3574
                     66430                        SB4    B3          MAXC = COST[RVT(I)]                         MCG      3575
                          66560                   SB5    B6          MAXD = NU[RVT(I)]                           MCG      3576
          2130  6122000001               CRA7     SB2    B2+1        I = I + 1                                   MCG      3577
                          7162777751              SX6    B2-RN.X0-6                                              MCG      3578
          2131  0336002122 +                      MI     X6,CRA5     IF I < RN.X6                                MCG      3579
                          6130000026              SB3    RN.X0+6                                                 MCG      3580
          2132  5113000015 C                      SA1    RVT+B3                                                  MCG      3581
                          64400                   SB4    A0                                                      MCG      3582
                               67671              SB6    "TB"-B1                                                 MCG      3583
          2133  0301002134 +                      ZR     X1,CRA8     REGR = IF( RVT(X6) = 0 ) THEN X6 ELSE X7    MCG      3584
                          66331                   SB3    B3+B1                                                   MCG      3585
                                                                                                                 MCG      3586
          2134  5114000015 C             CRA8     SA1    RVT+B4                                                  MCG      3587
                          53416                   S"DI"  B6+X1       DI = BASE-1 + RI[RVT(REGF)]                 MCG      3588
                               20425              LX4    59-D.PRSP                                               MCG      3589
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    86
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
          2135  0324002102 +                      PL     X4,CRA1     IF ^PRS[DI]                                 MCG      3590
                          20152                   LX1    -RV.NUP                                                 MCG      3591
          2136  5124000140 C                      SA2    RBV+B4                                                  FCC0881    40
                          5130000124 C            SA3    LXR                                                     FCC0881    41
          2137  15632                             BX6    -X2*X3      LXR = LXR & ^RBV(REGF)  */ CLEAR LOCK BIT   FCC0881    42
                     54630                        SA6    A3                                                      FCC0881    43
                          0400002107 +            EQ     CRA3                                                    MCG      3592
  
  
                                        *         LD REG NEEDED AND NO ST REG AVAILABLE, SEARCH FOR ^PRS LD-REG. FCC0502     5
                                                                                                                 FCC0502     6
          2140  6130000020               CRA9     SB3    RN.X0       REGR = RN.X0  */ RESULT REG                 FCC0502     7
                          67671                   SB6    "TB"-B1                                                 FCC0502     8
                               66431              SB4    B3+B1       REGF = RN.X1  */ OPERAND                    FCC0502     9
                                                                                                                 FCC0502    10
          2141  5114000015 C             CRA9A    SA1    RVT+B4                                                  FCC0502    11
                          53416                   S"DI"  B6+X1       DI = TB-1 + RN[RVT(REGF)]                   FCC0502    12
                               20425              LX4    59-D.PRSP                                               FCC0502    13
          2142  0324002102 +                      PL     X4,CRA1     IF ^PRS[DI]                                 FCC0502    14
                          66441                   SB4    B4+B1       REGF = REGF + 1                             FCC0502    15
          2143  7164777752                        SX6    B4-RN.X0-5                                              FCC0502    16
                          0336002141 +            MI     X6,CRA9A    IF REGF < RN.X5                             FCC0502    17
                                                                                                                 FCC0502    18
          2144  0400002134 +                      EQ     CRA8                                                    FCC0502    19
                                                                                                                 MCG      3600
                                        *         INSTRUCTION PRS AND CANNOT BE ISSUED                           MCG      3601
                                                                                                                 MCG      3602
          2145  5110000204 C             CRA10    SA1    T0                                                      MCG      3603
                          66671                   SB6    "TB"+B1                                                 MCG      3604
                               53216              SA2    X1+B6       R1RS = BASE + T0+4                          MCG      3605
          2146  43566                             MX5    -SO.REGL                                                MCG      3606
                     20254                        LX2    -R1.SOP                                                 MCG      3607
                          15625                   BX6    -X5*X2                                                  MCG      3608
                               63460              SB4    X6          REGF = SOREG[R1RS]                          MCG      3609
          2147  7276777767                        SX7    X6-8                                                    MCG      3610
                          0337002155 +            MI     X7,CRA11    IF REGF @ 7   */ A B-REGISTER               MCG      3611
          2150  5110000012 C                      SA1    AXR                                                     MCG      3612
                          7150777400              SX5    FX.SCR+FX.XT                                            MCG      3613
          2151  11715                             BX7    X1*X5       AVAIL = AXR & FX.SCR                        MCG      3614
                     24637                        NX6    B3,X7                                                   MCG      3615
                          5133777745 +            SA3    B3+FXRA+16-47                                           MCG      3616
          2152  63330                             SB3    X3          REGR = FXRA( NORMC(AVAIL) )                 MCG      3617
                     5114000015 C                 SA1    RVT+B4                                                  MCGF1       5
                               67671              SB6    "TB"-B1                                                 MCGF1       6
          2153  53216                             SA2    B6+X1       DI = BASE-1 + RN[RVT(REGF)]                 MCGF1       7
                     20224                        LX2    59-D.PSP                                                MCGF1       8
                          0322002102 +            PL     X2,CRA1     IF ^PS[DI]                                  MCGF1       9
          2154  20152                             LX1    -RV.NUP                                                 MCGF1      10
                     0400002107 +                 EQ     CRA3                                                    MCGF1      11
                                                                                                                 MCG      3619
                                        *         INSTRUCTION PRS TO A B-REGISTER AND IT CANNOT BE ISSUED, SEE   FCC1555X   20
                                        *         IF THE USES OF THE R-NUMBER IN THE B-REGISTER ARE SUCH THAT    FCC1555X   21
                                        *         WE CAN MOVE IT TO AN X-REGISTER.                               FCC1555X   22
                                                                                                                 FCC1555X   23
          2155  5114000015 C             CRA11    SA1    RVT+B4                                                  FCC1555X   24
                          5120000131 C            SA2    JLR                                                     FCC1555X   25
          2156  6134000014                        SB3    B4+12                                                   FCC1555X   26
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    87
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
                          22232                   LX2    B3                                                      FCC1555X   27
          2157  0332002202 +                      MI     X2,CRA15    IF SHIFT(JLR,REG+12) < 0 */ JUP LOCK        FCC1845X    7
                          53217                   SA2    "TB"+X1     LI = TB + RN[RVT(REGF)]                     FCC1555X   30
                               43755              MX7    -I.INDXL                                                FCC1555X   31
          2160  5130000000 X                      SA3    O.TREE                                                  FCC1555X   32
                          20233                   LX2    -I.INDXP                                                FCC1555X   33
                               15627              BX6    -X7*X2                                                  FCC1555X   34
          2161  63330                             SB3    X3                                                      FCC1555X   35
                     53363                        SA3    B3+X6       UI = TREE + INDX[LI]                        FCC1555X   36
                          0400002163 +            EQ     CRA13                                                   FCC1555X   37
                                                                                                                 FCC1555X   38
                                         CRA12    LX3    59-U.LASTP+U.SUCCP                                      FCC1555X   39
          2162  0333002203 +                      MI     X3,CRA21    IF LAST[UI]                                 FCC1555X   40
                          5033000001              SA3    A3+1        UI = UI + 1                                 FCC1555X   41
                                                                                                                 FCC1555X   42
                                         CRA13    LX3    -U.SUCCP                                                FCC1555X   43
          2163  53537                             SA5    "TB"+X3     LIS = TB + SUCC[UI]                         FCC1555X   44
                                                  LX5    59-I.IIP                                                FCC1555X   45
                     0335002162 +                 MI     X5,CRA12    IF II[LIS]    */ ISSUED                     FCC1555X   46
                               55551              SA5    A5-B1       DIS = LIS - 1                               FCC1555X   47
          2164  5025777775                        SA2    A5-2                                                    FCC1655X    4
                          22615                   LX6    B1,X5                                                   FCC1555X   48
                                   0              ERRNZ  59-D.TYP-1                                              FCC1555X   49
          2165  0336002162 +                      MI     X6,CRA12    IF TYPE[DIS] = II ! IV                      FCC1555X   50
                                                  LX5    58-D.TYP                                                FCC1555X   51
                          0325002170 +            PL     X5,CRA14    IF TYPE[DIS] = I                            FCC1555X   52
          2166  20532                             LX5    1+D.TYP-D.JPP                                           FCC1555X   53
                     0325002162 +                 PL     X5,CRA12    IF ^JP[DIS]   */ ^ B USE                    FCC1555X   54
          2167  0400002202 +                      EQ     CRA15                                                   FCC1555X   55
                                                                                                                 FCC1555X   56
                                        *         TYPE I INST, B-RESULT IS USED IN RJ OF ILS, IRS AND PK, AND    FCC1555X   57
                                        *         RJ, RK OF SA, SS, SLD, SST, SDL, SDS. SUFFICIENT TO CHECK      FCC1555X   58
                                        *         FOR RK[R1] = 0 TO IMPLY X-USE POSSIBLE                         FCC1555X   59
                                                                                                                 FCC1555X   60
          2170  5055777775               CRA14    SA5    A5-2        R1S = DIS - 2                               FCC1555X   61
                          26735                   UX7    B3,X5                                                   FCC1655X    5
                               20554              LX5    -R1.RKP                                                 FCC1555X   62
          2171  15650                             BX6    "RN"X5                                                  FCC1555X   63
                     0306002162 +                 ZR     X6,CRA12    IF RK[R1S] = 0  */ CAN MOVE TO AN X-REGISTE FCC1555X   64
          2172  6150000056                        SB5    OC.SLD                                                  FCC1655X    6
                          0735002202 +            LT     B3,B5,CRA15 IF OC[R1] < OC.SLD                          FCC1655X    7
          2173  6150000060                        SB5    OC.SA                                                   FCC1655X    8
                          0753002202 +            GT     B3,B5,CRA15 IF OC[R1] > OC.SA  */ NOT SLD, SST OR SA    FCC1655X    9
                                                                                                                 FCC1655X   10
                                        *         IF BOTH OPERANDS IN A B-REGISTER, THEN ONE CAN BE MOVED        FCC1655X   11
                                                                                                                 FCC1655X   12
          2174  73110                             SX1    X1          R = RN[RVT(REGF)]  */ RI IN B-REG           FCC1655X   13
                     13716                        BX7    X1-X6       ORN = RK[R1]                                FCC1655X   14
                          0317002176 +            NZ     X7,CRA14A   IF R " ORN                                  FCC1655X   15
          2175  20554                             LX5    R1.RKP-R1.RJP                                           FCC1655X   16
                     15650                        BX6    "RN"X5      ORN = RJ[R1]                                FCC1655X   17
          2176  6157777774               CRA14A   SB5    "TB"-3                                                  FCC1655X   18
                          53565                   SA5    B5+X6       R1P = TXT(ORN)                              FCC1655X   19
                               26735              UX7    B3,X5                                                   FCC1655X   20
          2177  6150000005                        SB5    OC.DEF                                                  FCC1655X   21
                          0535002202 +            NE     B3,B5,CRA15 IF OC[R1P] " OC.DEF                         FCC1655X   22
          2200  20551                             LX5    -R1.SOP-SO.RTP                                          FCC1655X   23
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    88
        CRA - CHANGE REGISTER ASSIGNMENT                              CRA                 JAM 
  
                     43771                        MX7    -SO.RTL                                                 FCC1655X   24
                          15657                   BX6    -X7*X5                                                  FCC1655X   25
          2201  0306002203 +                      ZR     X6,CRA21    IF RT[R1P] = 0  */ A B-REGISTER             FCC1655X   26
                                                                                                                 FCC1555X   65
                                        *         INSTRUCTION HAS B USES THAT CANNOT BE CHANGED TO X USES.       FCC1555X   66
                                                                                                                 FCC1555X   67
          2202  0400001572 +             CRA15    EQ     UJR.E1                                                  FCC1555X   68
                                                                                                                 FCC1555X   69
                                        *         ALL FUTURE USES OF INSTRUCTION CAN BE X-USES, MOVE INSTRUCTION FCC1555X   70
                                        *         TO AN X-REGISTER.                                              FCC1555X   71
                                                                                                                 FCC1555X   72
          2203  5110000012 C             CRA21    SA1    AXR                                                     FCC1555X   73
                          5120000126 C            SA2    T                                                       FCC1555X   74
          2204  7150777400                        SX5    FX.SCR+FX.XT                                            FCC1555X   75
                          11715                   BX7    X1*X5       AVAIL = AXR & FX.SCR                        FCC1555X   76
                               24637              NX6    B3,X7                                                   FCC1555X   77
          2205  63520                             SB5    X2                                                      FCC1555X   78
                     5133777745 +                 SA3    B3+FXRA+16-47                                           FCC1555X   79
          2206  5223000046 C                      SA2    TRA+X3                                                  FCC1555X   80
                          63220                   SB2    X2                                                      FCC1555X   81
                               63330              SB3    X3          REGR = FXR( SCR )                           FCC1555X   82
          2207  0652002210 +                      LE     B2,B5,CRA22 T(IS) = MAX( T , T(IS) )                    FCC1555X   83
                          66520                   SB5    B2                                                      FCC1555X   84
          2210  6120000060               CRA22    SB2    OC.SA                                                   FCC1555X   85
                          0100002340 +            RJ     OXI         OUTPUT A *SA*                               FCC1555X   86
          2211  5120000204 C                      SA2    T0                                                      FCC1555X   87
                                                                                                                 CCG0191     7
                                        *         CHECK IF REGR OF *SA* JUST ISSUED IS IN K FIELD OF T0.         CCG0191     8
                                        *         IF IT IS, SWITCH J AND K.                                      CCG0191     9
                                                                                                                 CCG0191    10
                          7222777774              SX2    X2-3                              */TXT INDEX OF T0     CCG0191    11
          2212  53527                             SA5    "TB"+X2                                                 CCG0191    12
                     26725                        UX7    B2,X5                                                   CCG0191    13
                          6122777717              SB2    B2-OC.SA                                                CCG0191    14
          2213  0520002220 +                      NZ     B2,CRA24              */ IF OC OF T0 NOT *SA*           CCG0191    15
                          20754                   LX7    -R1.RKP                                                 CCG0191    16
                               15670              BX6    "RN"X7                                                  CCG0191    17
          2214  14366                             BX3    -X6                                                     CCG0191    18
                     73333                        SX3    X3+B3                                                   CCG0191    19
                          0313002220 +            NZ     X3,CRA24       */IF REGR OF *SA* NOT IN K FIELD OF T0   CCG0191    20
          2215  20640                             LX6    R1.RJP                                */ K TO J         CCG0191    21
                     20754                        LX7    R1.RKP-R1.RJP                                           CCG0191    22
                          15770                   BX7    "RN"X7                                                  CCG0191    23
                               20720              LX7    R1.RKP                                 */ J TO K        CCG0191    24
          2216  43134                             MX1    R1.OCL+R1.RIL                                           CCG0191    25
                     12667                        BX6    X6+X7                                      */ J + K     CCG0191    26
                          20120                   LX1    R1.RIL                                                  CCG0191    27
                               11515              BX5    X1*X5                             */CLEAR OLD *JK*      CCG0191    28
          2217  12665                             BX6    X6+X5                             */ADD SWITCHED *JK*   CCG0191    29
                     54650                        SA6    A5                                                      CCG0191    30
                                                                                                                 CCG0191    31
          2220  5120000204 C             CRA24    SA2    T0                                                      CCG0191    32
                          0100001310 +            RJ     ISI         ISSUE T0                                    FCC1555X   88
          2221  0400002071 +                      EQ     CRA                                                     FCC1555X   89
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    89
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
                                        **        SXB - SETUP XMT BACK ( INSTRUCTION PS/PRS )                    MCG      3622
                                        *                                                                        MCG      3623
                                        *         ENTRY  (R0) = *TXT* INDEX OF INSTRUCTION                       MCG      3624
                                        *                (X6) = CALLF = 0 IF CALL FROM *CRA*                     FCC0881    44
                                                                                                                 MCG      3625
          2222  0200402222 +             SXB      ROUTINE                                                        MCG      3626
          2223  5120000203 C                      SA2    R0                                                      FCC0881    45
                          67671                   SB6    "TB"-B1                                                 FCC0881    46
                               53426              SA4    B6+X2       DI = BASE-1 + R0                            FCC0881    47
          2224  20424                             LX4    59-D.PSP                                                FCC0881    48
                     0334002257 +                 MI     X4,SXBS     IF PS[DI]                                   FCC0881    49
                                                                                                                 FCC0881    50
          2225  5150000000 X                      SA5    L.TXT       LT = L.TXT                                  MCG      3627
                          7110000004              ALLOC  TXT,4                                                   MCG      3628
          2227  5140000203 C                      SA4    R0                                                      MCG      3629
                          26634                   UX6    B3,X4                                                   MCG      3630
                               10755              BX7    X5                                                      MCG      3631
          2230  5173000015 C                      SA7    RVT+B3      RVT(REGR) = LT                              MCG      3632
                          15440                   BX4    "RN"X4                                                  MCG      3633
                               36325              IX3    X2+X5                                                   MCG      3634
          2231  36224                             IX2    X2+X4                                                   MCG      3635
                     0100000000 X                 MOVE   X1,X2,X3    MOVE( 4 , O.TXT+R0 , O.TXT+LT )             MCG      3636
          2232  0100002743 +                      RJ     AIP         ADJUST POINTERS                             MCG      3637
                                                                                                                 MCG      3638
                                        *         SETUP AN *XMT* WHERE THE ORIGINAL INSTRUCTION WAS              MCG      3639
                                                                                                                 MCG      3640
          2233  5110000203 C                      SA1    R0                                                      MCG      3641
                          6120000010              SB2    OC.XMT                                                  MCG      3642
          2234  67671                             SB6    "TB"-B1                                                 MCG      3643
                     5122000000 X                 SA2    F.RDT+B2                                                MCG      3644
                               43672              MX6    -D.STRSL                                                MCG      3645
          2235  53416                             S"DI"  B6+X1       D0 = BASE-1 + R0                            MCG      3646
                     20646                        LX6    D.STRSP                                                 MCG      3647
                          43700                   MX7    0                                                       MCG      3648
                               55741              SA7    "DI"-B1     [DI-1] = 0                                  MCG      3649
          2236  15446                             BX4    -X6*X4                                                  MCG      3650
                     20540                        LX5    R1.RJP                                                  MCG      3651
                          12551                   BX5    X5+X1                                                   MCG      3652
                               27625              PX6    B2,X5                                                   MCG      3653
          2237  55671                             SA6    A7-B1       [DI-2] = TYI(OC.XMT,LT,0,R0)                MCG      3654
                     12742                        BX7    X4+X2                                                   MCG      3655
                          54740                   SA7    A4          [DI] = RDT(OC.XMT) ! STRS[DI]               MCG      3656
                               54541              SA5    A4+B1                                                   FCC0881    51
          2240  43301                             MX3    1                                                       FCC0881    52
                                                  LX3    1+I.IIP                                                 FCC0881    53
                     15653                        BX6    -X3*X5      II[DI+1] = 0  */ CLEAR IN CASE STORED OUT   FCC0881    54
                          54650                   SA6    A5                                                      FCC0881    55
          2241  0100002356 +                      RJ     RIL         RESET THE ISSUE LIST                        MCG      3657
          2242  5130000206 C                      SA3    SIW                                                     MCG      3658
                          0313002246 +            NZ     X3,SXB0     IF SIW " 0                                  FCC0881    56
          2243  76110                             ALLOC  TREE,1                                                  MCG      3660
          2245  7233777776                        SX3    X3-1        SIW = L.TREE - 1                            MCG      3661
                          0100002743 +            RJ     AIP         ADJUST *PIT* POINTERS                       MCG      3662
                                                                                                                 MCG      3663
          2246  5110000000 X             SXB0     SA1    L.TXT                                                   FCC0881    57
                          5120002336 +            SA2    SXBA                                                    MCG      3665
          2247  5140000000 X                      SA4    O.TREE                                                  MCG      3666
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    90
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
                          6241777773              SB4    X1-4                                                    MCG      3667
          2250  56574                             SA5    "TB"+B4     L = BASE + L.TXT-4                          MCG      3668
                     63230                        SB2    X3                                                      MCG      3669
                          15652                   BX6    -X2*X5                                                  MCG      3670
                               20341              LX3    I.INDXP                                                 MCG      3671
          2251  76710                             SX7    B1                                                      MCG      3672
                     12663                        BX6    X6+X3       INDX[L] = SIW                               MCG      3673
                          20760                   LX7    I.USESP                                                 MCG      3674
                               36667              IX6    X6+X7       USES[L] = 1                                 MCG      3675
          2252  5120000203 C                      SA2    R0                                                      FCC0881    58
                          43555                   MX5    -I.LSTL                                                 FCC0881    59
                               53327              SA3    "TB"+X2     LI = BASE + R0                              FCC0881    60
          2253  20522                             LX5    I.LSTP                                                  FCC0881    61
                     15335                        BX3    -X5*X3      LST = LST[LI] */ LST OF *XMT* BACK          FCC0881    62
                          12636                   BX6    X3+X6       LST[L] = LST                                FCC0881    63
                               54650              SA6    A5                                                      MCG      3676
          2254  43172                             MX1    -D.STRSL                                                FCC0625    14
                     55551                        SA5    A5-B1       DI = L - 1                                  FCC0625    15
                          20146                   LX1    D.STRSP                                                 FCC0625    16
                               11615              BX6    X1*X5       STRS[DI] = 0  */ CLEAR *STRS* OF MOVED INST FCC0625    17
          2255  54650                             SA6    A5                                                      FCC0625    18
                                                                                                                 MCG      3677
                     20713                        LX7    U.LASTP-I.USESP                                         MCG      3678
                                                  LX3    U.LSTP-I.LSTP                                           FCC0881    64
                          73220                   SX2    X2                                                      FCC0881    65
                               12332              BX3    X3+X2                                                   FCC0881    66
          2256  12773                             BX7    X7+X3                                                   FCC0881    67
                     53742                        SA7    X4+B2       TREE(SIW) = SIT(1,0,LST,R0)                 FCC0881    68
                          0400002222 +            EQ     SXB                                                     MCG      3682
                                                                                                                 FCC0881    69
                                        *         INSTRUCTION *PS*, NOT ALL USES MAY BE STORES, SETUP *XMT LT,R0 FCC0881    70
                                        *         AT END OF *TXT*, CHANGE *RI"S* IN THE ST"S, ^ST USES WILL WORK FCC0881    71
                                        *         OFF ORIGINAL *RI* ( R0 ).                                      FCC0881    72
                                                                                                                 FCC0881    73
          2257  5160002337 +             SXBS     SA6    SXBB                                                    FCC0881    74
                          5120000203 C            SA2    R0                                                      FCC0881    75
          2260  5110000000 X                      SA1    L.TXT                                                   FCC0881    76
                          5140000000 X            SA4    O.TREE                                                  FCC0881    77
          2261  53527                             SA5    "TB"+X2     LI = BASE + R0                              FCC0881    78
                     43755                        MX7    -I.INDXL                                                FCC0881    79
                          66300                   SB3    B0          UST = 0       */ N.ST USES                  FCC0881    80
                               63440              SB4    X4                                                      FCC0881    81
          2262  66500                             SB5    B0          FSU = 0       */ FIRST ST USE               FCC0881    82
                     20533                        LX5    -I.INDXP                                                FCC0881    83
                          15657                   BX6    -X7*X5                                                  FCC0881    84
                               53364              SA3    B4+X6       UI = TREE + INDX[LI]                        FCC0881    85
          2263  15520                             BX5    "RN"X2                    (X5) = R0                     FCC1126     7
                     0400002265 +                 EQ     SXB2                                                    FCC0881    86
                                                                                                                 FCC0881    87
                                        *         SCAN *SIT*, COUNT USES OF *R0* AS A ST-PRED, CHANGE THEM TO    FCC0881    88
                                        *         USE AN *XMT* AT THE END OF *TXT* AS THEIR *RI*.                RSM2763X  369
                                                                                                                 FCC0881    90
                                         SXB1     LX3    59-U.LASTP                                              FCC0881    91
          2264  0333002275 +                      MI     X3,SXB3     IF LAST[UI]                                 FCC0881    92
                          5033000001              SA3    A3+1        UI = UI + 1                                 FCC0881    93
                                                                                                                 FCC0881    94
                                         SXB2     LX3    -U.SUCCP                                                FCC0881    95
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    91
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
          2265  53237                             SA2    "TB"+X3     LIS = BASE + SUCC[UI]                       FCC0881    96
                                                  LX3    U.SUCCP                                                 FCC0881    97
                                                  LX2    59-I.IIP                                                FCC0881    98
                     0332002264 +                 MI     X2,SXB1     IF II[LIS]                                  FCC0881    99
                               55421              SA4    A2-B1       DIS = LIS - 1                               FCC0881   100
          2266  20431                             LX4    59-D.STP                                                FCC0881   101
                     0324002264 +                 PL     X4,SXB1     IF ^ST[DIS]                                 FCC0881   102
                               20472              LX4    D.STP-D.L2P                                             FCC0881   103
          2267  0334002264 +                      MI     X4,SXB1     IF L2[DIS]                                  FCC0881   104
                          5044777775              SA4    A4-2        R1S = DIS - 2                               FCC1126     8
          2270  15640                             BX6    "RN"X4                                                  FCC1126     9
                     13756                        BX7    X5-X6                                                   FCC1126    10
                          0317002264 +            NZ     X7,SXB1     IF RI[R1S] " R0  */ NOT RI USE              FCC1126    11
                                                                                                                 FCC1126    12
          2271  11604                             BX6    X0*X4                                                   FCC0881   107
                     12761                        BX7    X6+X1       RI[R1S] = L.TXT  */ CHANGE *RI*             FCC0881   108
                          54740                   SA7    A4                                                      FCC0881   109
                               20330              LX3    -U.PREDP                                                FCC0881   110
          2272  11203                             BX2    X0*X3                                                   FCC0881   111
                     20344                        LX3    U.PREDP                                                 FCC0881   112
                          12621                   BX6    X2+X1       PRED[UI] = L.TXT                            FCC0881   113
                               20644              LX6    U.PREDP                                                 FCC0881   114
          2273  66331                             SB3    B3+B1       UST = UST + 1                               FCC0881   115
                     54630                        SA6    A3                                                      FCC0881   116
                          0550002264 +            NZ     B5,SXB1     IF FSU " 0                                  FCC0881   117
          2274  65527                             SB5    A2-"TB"     FSU = SUCC[UI]                              FCC0881   118
                     0400002264 +                 EQ     SXB1                                                    FCC0881   119
                                                                                                                 FCC0881   120
                                        *         UPDATE LINK WORD OF *R0*, FORM *XMT LT,R0* AT END OF *TXT*.    FCC0881   121
                                                                                                                 FCC0881   122
          2275  76550                    SXB3     SX5    B5                                                      FCC0881   123
                     27535                        PX5    B3,X5                                                   FCC0881   124
                          7110000004              ALLOC  TXT,4       ALLOC( TXT , 4 )                            FCC0881   125
          2277  26635                             UX6    B3,X5                                                   FCC0881   126
                     76130                        ALLOC  TREE,B3     ALLOC( TREE , UST );  LTR = OLD(L.TREE)     FCC0881   127
          2301  0100002743 +                      RJ     AIP         ADJUST POINTERS                             FCC0881   128
          2302  5110000203 C                      SA1    R0                                                      FCC0881   129
                          53317                   SA3    "TB"+X1     LI = BASE + R0                              FCC0881   130
                               26525              UX5    B2,X5                                                   FCC0881   131
          2303  63520                             SB5    X2                        (B5) = O.TREE                 FCC0881   132
                     77621                        SX6    B2-B1                                                   FCC0881   133
                          20660                   LX6    I.USESP                                                 FCC0881   134
                               55431              SA4    A3-B1                                                   FCC0881   135
          2304  37636                             IX6    X3-X6       USES[LI] = USES[LI] + 1 - UST               FCC0881   136
                     54630                        SA6    A3                                                      FCC0881   137
                          76710                   SX7    B1                                                      FCC0881   138
                               20747              LX7    D.PSP                                                   FCC0881   139
          2305  15747                             BX7    -X7*X4      PS[LI-1] = 0                                FCC0881   140
                     54740                        SA7    A4                                                      FCC0881   141
                                                                                                                 FCC0881   142
                          5120000000 X            SA2    L.TXT                                                   FCC0881   143
          2306  7222777773                        SX2    X2-4        LT = L.TXT - 4                              FCC0881   144
                          76720                   SX7    B2                                                      FCC0881   145
                               20760              LX7    I.USESP                                                 FCC0881   146
          2307  76660                             SX6    B6                                                      FCC0881   147
                     20641                        LX6    I.INDXP                                                 FCC0881   148
                          12767                   BX7    X6+X7                                                   FCC0881   149
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    92
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
                               20521              LX5    I.LSTP-1                                                FCC0881   150
          2310  12757                             BX7    X5+X7                                                   FCC0881   151
                     76610                        SX6    B1                                                      FCC0881   152
                          12767                   BX7    X6+X7       LIT = BASE + LT                             FCC0881   153
                               53727              SA7    "TB"+X2     [LIT] = LW(0,UST,LTR,FSU/2,1)               FCC0881   154
          2311  5140000010 X                      SA4    F.RDT+OC.XMT                                            FCC0881   155
                          20647                   LX6    D.PSP                                                   FCC0881   156
                               12746              BX7    X4+X6                                                   FCC0881   157
          2312  55771                             SA7    A7-B1       DIT = LIT - 1;  [DIT] = RDT(OC.XMT) ! PS    FCC0881   158
                     43600                        MX6    0                                                       FCC0881   159
                          55671                   SA6    A7-B1       R2T = DIT - 1;  [R2T] = 0                   FCC0881   160
          2313  6130000010                        SB3    OC.XMT                                                  FCC0881   161
                          73110                   SX1    X1                                                      FCC0881   162
                               20140              LX1    R1.RJP                                                  FCC0881   163
          2314  12712                             BX7    X1+X2                                                   FCC0881   164
                     27637                        PX6    B3,X7                                                   FCC0881   165
                          55661                   SA6    A6-B1       R1T = R2T - 1;  [R1T] = TYI(OC.XMT,R0,0,LT) FCC0881   166
                                                                                                                 FCC0881   167
                                        *         RESCAN *SIT* FOR *R0* AND SUBDIVIDE IT INTO 2 LISTS.           FCC0881   168
                                                                                                                 FCC0881   169
                               20333              LX3    -I.INDXP                                                FCC0881   170
          2315  43755                             MX7    -I.INDXL                                                FCC0881   171
                     15637                        BX6    -X7*X3                                                  FCC0881   172
                          53365                   SA3    B5+X6       UI = TREE + INDX[LI]                        FCC0881   173
                               64330              SB3    A3          UO = UI                                     FCC0881   174
          2316  66256                             SB2    B5+B6       UX = TREE + LTR                             FCC0881   175
                     66400                        SB4    B0          XI = 0        */ XMT LINK INSERTED          FCC0881   176
                                                  LX5    U.LSTP-I.LSTP                                           FCC0881   177
                          20134                   LX1    -R1.RJP                                                 FCC0881   178
          2317  6150000030                        SB5    60-U.PREDP                                              FCC0881   179
                          0400002322 +            EQ     SXB6                                                    FCC0881   180
                                                                                                                 FCC0881   181
          2320  10633                    SXB4     BX6    X3                                                      FCC0881   182
                     56630                        SA6    B3          [UO] = [UI]                                 FCC0881   183
                          6133000001              SB3    B3+1        UO = UO + 1                                 FCC0881   184
                                                                                                                 FCC0881   185
                                         SXB5     LX3    59-U.LASTP                                              FCC0881   186
          2321  0333002330 +                      MI     X3,SXB7     IF LAST[UI]                                 FCC0881   187
                          5033000001              SA3    A3+1        UI = UI + 1                                 FCC0881   188
                                                                                                                 FCC0881   189
                                         SXB6     LX3    -U.SUCCP                                                FCC0881   190
          2322  53437                             SA4    "TB"+X3     LIS = TB + SUCC[UI]                         FCC0881   191
                                                  LX3    U.SUCCP                                                 FCC0881   192
                                                  LX4    59-I.IIP                                                FCC0881   193
                     0334002321 +                 MI     X4,SXB5     IF II[LI]                                   FCC0881   194
                               22753              LX7    B5,X3                                                   FCC0881   195
          2323  13671                             BX6    X7-X1                                                   FCC0881   196
                     15760                        BX7    "RN"X6                                                  FCC0881   197
                          0307002320 +            ZR     X7,SXB4     IF PRED[UI] = R0                            FCC0881   198
                                                                                                                 FCC0881   199
                                        *         ADD EDGE TO *XMT* LIST                                         FCC0881   200
                                                                                                                 FCC0881   201
          2324  10633                             BX6    X3                                                      FCC0881   202
                     56620                        SA6    B2          [UX] = [UI]                                 FCC0881   203
                          66221                   SB2    B2+B1       UX = UX + 1                                 FCC0881   204
          2325  0540002321 +                      NZ     B4,SXB5     IF XI " 0     */ ^ FIRST *ST*               FCC0881   205
                          66410                   SB4    B1          XI = 1                                      FCC0881   206
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    93
        CRA - CHANGE REGISTER ASSIGNMENT                              SXB                 JAM 
  
                               12652              BX6    X5+X2                                                   FCC0881   207
          2326  20144                             LX1    U.PREDP                                                 FCC0881   208
                     12616                        BX6    X1+X6                                                   FCC0881   209
                          20130                   LX1    -U.PREDP                                                FCC0881   210
                               56630              SA6    B3          [UO] = SIT(0,R0,FST,LT)                     FCC0881   211
          2327  66331                             SB3    B3+B1       UO = UO + 1                                 FCC0881   212
                     0400002321 +                 EQ     SXB5                                                    FCC0881   213
                                                                                                                 FCC0881   214
          2330  57121                    SXB7     SA1    B2-B1                                                   FCC0881   215
                     57331                        SA3    B3-B1                                                   FCC0881   216
                          5140002337 +            SA4    SXBB                                                    FCC0881   217
          2331  43501                             MX5    1                                                       FCC0881   218
                                                  LX5    1+U.LASTP                                               FCC0881   219
                     12615                        BX6    X1+X5       LAST[UX-1] = 1  */ TERMINATE LISTS          FCC0881   220
                          54610                   SA6    A1                                                      FCC0881   221
                               12735              BX7    X3+X5       LAST[UO-1] = 1                              FCC0881   222
          2332  54730                             SA7    A3                                                      FCC0881   223
                     0314002222 +                 NZ     X4,SXB      IF CALLF " 0  */ NOT CALL FROM *CRA*        FCC0881   224
                               73120              SX1    X2                                                      FCC0881   225
          2333  53217                             SA2    "TB"+X1                                                 FCC0881   226
                     76310                        SX3    B1                                                      FCC0881   227
                          20372                   LX3    I.ICP                                                   FCC0881   228
                               12632              BX6    X3+X2       IC[BASE+LT] = 1                             FCC0881   229
          2334  54620                             SA6    A2                                                      FCC0881   230
                     0100002356 +                 RJ     RIL         PUT GENERATED XMT ON *ICL*                  FCC0881   231
          2335  0400002222 +                      EQ     SXB                                                     FCC0881   232
                                                                                                                 MCG      3683
          2336                           SXBA     BFMW   I,(USES,INDX,LST)                                       FCC0881   233
          2337                     1     SXBB     BSS    1                                                       FCC0881   234
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    94
        OXI - OUTPUT TRANSMIT INSTRUCTION                             OXI                 JAM 
  
                                        **        OXI - OUTPUT XMIT INSTRUCTION ( *XMT* OR *SA* )                MCG      3686
                                        *                                                                        MCG      3687
                                        *         ENTRY  (B3) = REGR ( RESULT REGISTER )                         MCG      3688
                                        *                (B4) = REGF ( FROM )                                    MCG      3689
                                        *                (B2) = OC , INSTRUCTION OPCODE                          MCG      3690
                                        *                                                                        MCG      3691
                                        *         EXIT   INSTRUCTION ISSUED, AXR AND RVT UPDATED                 MCG      3692
                                                                                                                 MCG      3693
          2340  0200402340 +             OXI      ROUTINE                                                        MCG      3694
          2341  5114000015 C                      SA1    RVT+B4                                                  MCG      3695
                          43700                   MX7    0                                                       MCG      3696
                               10611              BX6    X1          RVT(REGR) = RVT(REGF)                       MCG      3697
          2342  5163000015 C                      SA6    RVT+B3                                                  MCG      3698
                          5120000012 C            SA2    AXR                                                     MCG      3699
          2343  5134000140 C                      SA3    RBV+B4                                                  MCG      3700
                          5143000140 C            SA4    RBV+B3                                                  MCG      3701
          2344  54710                             SA7    A1          RVT(REGF) = 0                               MCG      3702
                     15524                        BX5    -X4*X2                                                  MCG      3703
                          12753                   BX7    X5+X3       AXR = AXR & ^RBV(REGR) ! RBV(REGF)          MCG      3704
                               54720              SA7    A2                                                      MCG      3705
          2345  5110000126 C                      SA1    T                                                       MCG      3706
                          5123000046 C            SA2    TRA+B3                                                  MCG      3707
          2346  37312                   +         IX3    X1-X2                                                   MCG      3708
                     0323002347 +                 PL     X3,*+1                                                  MCG      3709
                               10122              BX1    X2                                                      MCG      3710
          2347  73710                             SX7    X1          T = MAX( T , TRA(REGR) )                    MCG      3711
                     54710                        SA7    A1                                                      MCG      3712
                                                                                                                 MCG      3713
                          5122000000 X            SA2    F.RDT+B2                                                MCG      3714
          2350  15560                             BX5    "RN"X6      R = RI[RVT(REGR)]                           MCG      3715
                     20540                        LX5    R1.RJP                                                  MCG      3716
                          27725                   PX7    B2,X5                                                   MCG      3717
                               43600              MX6    0                                                       MCG      3718
          2351  5170000207 C                      SA7    DRI         [DRI] = TYI(OC,R,0,0)                       MCG      3719
                          54671                   SA6    A7+B1       [DRI+1] = 0                                 MCG      3720
                               10722              BX7    X2                                                      MCG      3721
          2352  54761                             SA7    A6+B1       [DRI+2] = RDT(OC)                           MCG      3722
                     54470                        SA4    A7                                                      MCG      3723
                          0100002721 +            RJ     OEI         OUTPUT THE INSTRUCTION                      MCG      3724
                                                                                                                 MCG      3725
                                        *         ADJUST THE *REG* FIELD OF THE OPERAND                          MCG      3726
                                                                                                                 MCG      3727
          2353  5113000015 C                      SA1    RVT+B3                                                  MCG      3728
                          43752                   MX7    -I.REGL                                                 MCG      3729
                               53217              SA2    "TB"+X1     L = BASE + RI[RVT(REGR)]                    MCG      3730
          2354  76430                             SX4    B3                                                      MCG      3731
                     11372                        BX3    X7*X2       REG[L] = REGR                               MCG      3732
                          36634                   IX6    X3+X4                                                   MCG      3733
                               54620              SA6    A2                                                      MCG      3734
          2355  0400002340 +                      EQ     OXI                                                     MCG      3735
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    95
        RIL - RESET ISSUE LIST                                        RIL                 JAM 
  
                                        **        RIL - RESET ISSUE LIST TO REMOVE ISSUED INSTRUCTION FROM       MCG      3737
                                        *                REGISTERS AND PLACE IT BACK ON THE ISSUE LIST.          MCG      3738
                                        *                                                                        MCG      3739
                                        *         ENTRY  (X1) = R , *TXT* INDEX OF THE INSTRUCTION               MCG      3740
                                        *                                                                        MCG      3741
                                        *         EXIT   (B4) = LST[R] , NEW *LST* OF THE INSTRUCTION            MCG      3742
                                        *                (B3) = R , *TXT* INDEX OF THE INSTRUCTION               MCG      3743
                                        *                (A0) = PI , *TXT* INDEX OF PREVIOUS INSTRUCTION ON *ICL MCG      3744
                                        *                (SIW) = *SIT* INDEX OF AN AVAIL WORD, 0 IF NONE.        MCG      3745
                                        *                                                                        MCG      3746
                                        *         PRESERVES - X0, B7                                             MCG      3747
                                                                                                                 MCG      3748
          2356  0200402356 +             RIL      ROUTINE                                                        MCG      3749
          2357  53517                             SA5    "TB"+X1     LI = BASE + R                               MCG      3750
                     5120000000 X                 SA2    O.TREE                                                  MCG      3751
                               43755              MX7    -I.INDXL                                                MCG      3752
          2360  63310                             SB3    X1                                                      MCG      3753
                     63220                        SB2    X2                                                      MCG      3754
                          20533                   LX5    -I.INDXP                                                MCG      3755
                               15457              BX4    -X7*X5                                                  MCG      3756
          2361  53342                             SA3    B2+X4       UI = O.TREE + INDX[LI]                      MCG      3757
                     20517                        LX5    I.INDXP-I.LSTP                                          MCG      3758
                          64430                   SB4    A3          US = UI                                     MCG      3759
                               43473              MX4    -1                                                      MCG      3760
          2362  64530                             SB5    A3          UF = UI                                     MCG      3761
                     11575                        BX5    X7*X5                                                   MCG      3762
                          76110                   SX1    B1                                                      MCG      3763
                               66600              SB6    B0          N = 0                                       MCG      3764
          2363  20172                             LX1    I.ICP                                                   MCG      3765
                     0400002366 +                 EQ     RIL3                                                    MCG      3766
                                                                                                                 MCG      3767
                                        *         REMOVE ISSUED SUCCESSORS OF R FROM *SIT*, ADJUST PRED COUNTS   MCG      3768
                                        *         OF UNISSUED SUCC.                                              MCG      3769
                                                                                                                 MCG      3770
          2364  37724                    RIL1     IX7    X2-X4       NPRED[SI] = NPRED[SI] + 1                   MCG      3771
                     54720                        SA7    A2                                                      MCG      3772
                                                                                                                 MCG      3773
                                         RIL2     LX3    59-U.LASTP                                              MCG      3774
          2365  0333002373 +                      MI     X3,RIL4     IF LAST[UI]                                 MCG      3775
                          5033000001              SA3    A3+1        UI = UI + 1                                 MCG      3776
                                                                                                                 MCG      3777
                                         RIL3     LX3    -U.SUCCP                                                MCG      3778
          2366  53237                             SA2    "TB"+X3     SI = BASE + SUCC[UI]                        MCG      3779
                     11712                        BX7    X1*X2                                                   MCG      3780
                                                  LX3    U.SUCCP                                                 MCG      3781
                                                  LX2    59-I.IIP                                                MCG      3782
                          0332002365 +            MI     X2,RIL2     IF II[SI]     */ IF ISSUED                  MCG      3783
          2367  22613                             LX6    B1,X3                                                   FCC0448   151
                                   0              ERRNZ  58-U.RDLP                                               FCC0448   152
                     0336002365 +                 MI     X6,RIL2     IF RDL[UI]    */ REMOVE REDEFINITION LINKS  FCC0448   153
                               10633              BX6    X3                                                      MCG      3784
          2370  56640                             SA6    B4          [US] = [UI]                                 MCG      3785
                     6144000001                   SB4    B4+1        US = US + 1                                 MCG      3786
          2371  0307002364 +                      ZR     X7,RIL1     IF ^IC[SI]                                  MCG      3787
                          15621                   BX6    -X1*X2      IC[SI] = 0                                  MCG      3788
                               66661              SB6    B6+B1       N = N + 1     */ COUNT NUM OF CHANGED IC"S  MCG      3789
          2372  54620                             SA6    A2                                                      MCG      3790
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    96
        RIL - RESET ISSUE LIST                                        RIL                 JAM 
  
                     0400002365 +                 EQ     RIL2                                                    MCG      3791
  
                                        *         FINISH RESET OF *SIT*                                          MCG      3793
                                                                                                                 MCG      3794
          2373  56250                    RIL4     SA2    B5                                                      MCG      3795
                     64531                        SB5    A3+B1       UL = UI + 1                                 MCG      3796
                          57341                   SA3    B4-B1                                                   MCG      3797
                               43401              MX4    1                                                       MCG      3798
                                                  LX4    1+U.LASTP                                               MCG      3799
          2374  12643                             BX6    X4+X3       LAST[US-1] = 1                              MCG      3800
                     54630                        SA6    A3                                                      MCG      3801
                          20252                   LX2    -U.LSTP                                                 MCG      3802
                               73120              SX1    X2          RN = LST[UF]                                MCG      3803
          2375  12751                             BX7    X5+X1       LST[LI] = RN  */ NEW LATE START TIME        MCG      3804
                     20722                        LX7    I.LSTP                                                  MCG      3805
                          54750                   SA7    A5                                                      MCG      3806
                                                                                                                 MCG      3807
          2376  77642                   +         SX6    B4-B2                                                   MCG      3808
                     0745002377 +                 LT     B4,B5,*+1   SIW = IF( US < UL ) THEN US-O.TREE; ELSE 0  MCG      3809
                               43600              MX6    0                                                       MCG      3810
          2377  5160000206 C                      SA6    SIW                                                     MCG      3811
                          6241000000              SB4    X1+                                                     MCG      3812
          2400  0460002416 +                      ZR     B6,RIL8     IF N = 0                                    MCG      3813
                                                                                                                 MCG      3814
                                        *         REMOVE INSTRUCTIONS THAT ARE NO LONGER *IC"S* FROM *ICL*       MCG      3815
                                                                                                                 MCG      3816
                          5130000003 C            SA3    ICL         CI = ICL                                    MCG      3817
          2401  43152                             MX1    -I.LINKL                                                MCG      3818
                     56000                        S"PI"  B0          PI = 0                                      MCG      3819
                          20473                   LX4    I.ICP-U.LASTP                                           MCG      3820
          2402  0400002404 +                      EQ     RIL6                                                    MCG      3821
                                                                                                                 MCG      3822
          2403  53030                    RIL5     S"PI"  X3          PI = CI                                     MCG      3823
                     73350                        SX3    X5          CI = LINK[L]                                MCG      3824
                          0303002414 +            ZR     X3,RIL7     IF CI = 0                                   MCG      3825
                                                                                                                 MCG      3826
          2404  53537                    RIL6     SA5    "TB"+X3     L = BASE + CI                               MCG      3827
                     11245                        BX2    X4*X5                                                   MCG      3828
                          0312002403 +            NZ     X2,RIL5     IF IC[L]                                    MCG      3829
                                                                                                                 MCG      3830
          2405  54207                             SA2    "TB"+"PI"                                               MCG      3831
                     15351                        BX3    -X1*X5      CI = LINK[L]                                MCG      3832
                          67661                   SB6    B6-B1       N = N - 1                                   MCG      3833
                               11612              BX6    X1*X2                                                   MCG      3834
          2406  36763                             IX7    X6+X3       LINK[BASE+PI] = CI                          MCG      3835
                     43673                        MX6    -1                                                      MCG      3836
                          54720                   SA7    A2                                                      MCG      3837
                               11515              BX5    X1*X5       LINK[L] = 0                                 MCG      3838
          2407  37656                             IX6    X5-X6       NPRED[L] = 1                                MCG      3839
                     54650                        SA6    A5                                                      MCG      3840
                          0560002404 +            NZ     B6,RIL6     IF N " 0      */ NOT END OF DELETES         MCG      3841
                                                                                                                 MCG      3842
          2410  0313002414 +                      NZ     X3,RIL7     IF CI " 0                                   MCG      3843
                          74300                   SX3    "PI"                                                    MCG      3844
          2411  0313002414 +                      NZ     X3,RIL7     IF PI " 0     */ ICL NOT EMPTY              MCG      3845
                          56573                   SA5    "TB"+B3     L = BASE + R                                MCG      3846
                               43152              MX1    -I.LINKL                                                MCG      3847
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    97
        RIL - RESET ISSUE LIST                                        RIL                 JAM 
  
          2412  11615                             BX6    X1*X5       LINK[L] = 0                                 MCG      3848
                     76730                        SX7    B3                                                      MCG      3849
                          54650                   SA6    A5                                                      MCG      3850
          2413  5170000003 C                      SA7    ICL         ICL = R                                     MCG      3851
                          0400002356 +            EQ     RIL                                                     MCG      3852
                                                                                                                 MCG      3853
          2414  56270                    RIL7     SA2    "TB"                                                    MCG      3854
                     73620                        SX6    X2                                                      MCG      3855
                          0306002416 +            ZR     X6,RIL8     IF LINK[BASE] = 0                           MCG      3856
          2415  5160000003 C                      SA6    ICL         ICL = LINK[BASE]                            MCG      3857
                          11712                   BX7    X1*X2       LINK[BASE] = 0                              MCG      3858
                               54720              SA7    A2                                                      MCG      3859
                                                                                                                 MCG      3860
                                        *         ADD THE REMOVED INSTRUCTION BACK ONTO *ICL*                    MCG      3861
                                                                                                                 MCG      3862
          2416  5130000003 C             RIL8     SA3    ICL         CI = ICL                                    MCG      3863
                          76240                   SX2    B4                                                      MCG      3864
                               56000              S"PI"  B0          PI = 0                                      MCG      3865
          2417  20222                             LX2    I.LSTP                                                  MCG      3866
                     43155                        MX1    -I.LSTL                                                 MCG      3867
                          53537                   SA5    "TB"+X3     L = BASE + CI                               MCG      3868
                               20122              LX1    I.LSTP                                                  MCG      3869
                                                                                                                 MCG      3870
          2420  15451                    RIL9     BX4    -X1*X5                                                  MCG      3871
                     37624                        IX6    X2-X4                                                   MCG      3872
                          0336002423 +            MI     X6,RIL10    IF LST[LI] > RN                             MCG      3873
          2421  53030                             S"PI"  X3          PI = CI                                     MCG      3874
                     73350                        SX3    X5          CI = LINK[L]                                MCG      3875
                          53557                   SA5    "TB"+X5     L = BASE + CI                               MCG      3876
          2422  0313002420 +                      NZ     X3,RIL9     IF CI " 0                                   MCG      3877
                                                                                                                 MCG      3878
          2423  56573                    RIL10    SA5    "TB"+B3     L = BASE + R                                MCG      3879
                     43152                        MX1    -I.LINKL                                                MCG      3880
                          64600                   SB6    "PI"                                                    MCG      3881
                               11415              BX4    X1*X5                                                   MCG      3882
          2424  0460002427 +                      ZR     B6,RIL11    IF PI = 0                                   MCG      3883
                          54207                   SA2    "TB"+"PI"                                               MCG      3884
                               36643              IX6    X4+X3       LINK[L] = CI                                MCG      3885
          2425  76330                             SX3    B3                                                      MCG      3886
                     54650                        SA6    A5                                                      MCG      3887
                          11112                   BX1    X1*X2                                                   MCG      3888
                               36713              IX7    X1+X3       LINK[BASE+PI] = R                           MCG      3889
          2426  54720                             SA7    A2                                                      MCG      3890
                     0400002356 +                 EQ     RIL                                                     MCG      3891
                                                                                                                 MCG      3892
          2427  5130000003 C             RIL11    SA3    ICL                                                     MCG      3893
                          36643                   IX6    X4+X3       LINK[L] = ICL                               MCG      3894
                               54650              SA6    A5                                                      MCG      3895
          2430  76730                             SX7    B3          ICL = R                                     MCG      3896
                     54730                        SA7    A3                                                      MCG      3897
                          0400002356 +            EQ     RIL                                                     MCG      3898
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    98
        SMB - SET MULTIPLE USE COMPUTATION BIT                        SMB                 JAM 
  
                                        **        SMB - SET *MUC* BIT FOR MULTIPLE USE COMPUTATIONS WHOSE        MCG      3900
                                        *         USES ARE SPREAD APART SO THAT *DRR* WILL TRY TO PUT THEM IN    MCG      3901
                                        *         STORE REGISTERS AND AVOID HAVING TO OUTPUT *XMT"S* WHEN THEY   MCG      3902
                                        *         ARE SAVED IN MEMORY LATER.                                     MCG      3903
                                                                                                                 MCG      3904
          2431  7100600001               SMB0     SX0    RN.MASK                                                 CCG11     129
                                                                                                                 MCG      3907
          2432  0200402432 +             SMB      ROUTINE                                                        MCG      3908
          2433  5120000000 X                      SA2    L.TXT                                                   MCG      3909
                          5150000000 X            SA5    O.TREE                                                  MCG      3910
          2434  43063                             MX0    -D.USESL                                                MCG      3911
                                                  LX0    D.USESP                                                 MCG      3912
                     6140000004                   SB4    4                                                       MCG      3913
                               43155              MX1    -I.INDXL                                                MCG      3914
          2435  6222777773                        SB2    X2-4        I = L.TXT - 4                               MCG      3915
                          63350                   SB3    X5                                                      MCG      3916
                               76710              SX7    B1                                                      MCG      3917
          2436  5130002452 +                      SA3    SMBA                                                    MCG      3918
                          20735                   LX7    D.MUCP                                                  MCG      3919
                               57471              S"DI"  "TB"-B1     DI = BASE - 1                               MCG      3920
          2437  0400002441 +                      EQ     SMB2                                                    MCG      3921
                                                                                                                 MCG      3922
          2440  12674                    SMB1     BX6    X7+X4       MUC[DI] = 1                                 MCG      3923
                     5064000000                   SA6    A4+                                                     MCG      3924
                                                                                                                 MCG      3925
          2441  67224                    SMB2     SB2    B2-B4       I = I - 4                                   MCG      3926
                     54444                        S"DI"  "DI"+B4     DI = DI + 4                                 MCG      3927
                          0420002431 +            ZR     B2,SMB0     IF I = 0                                    MCG      3928
          2442  15240                             BX2    -X0*X4                                                  MCG      3929
                     21201                        AX2    D.USESP+1                                               MCG      3930
                          0302002441 +            ZR     X2,SMB2     IF USES[DI] < 2                             MCG      3931
                                                                                                                 MCG      3932
          2443  11634                             BX6    X3*X4                                                   MCG      3933
                                         #DAL     IFEQ   .DAL,0                                                  MCG      3934
                                                  NZ     X6,SMB2     IF BITS[DI] " 0                             MCG      3935
                                         #DAL     ELSE                                                           MCG      3936
                     0306002445 +                 ZR     X6,SMB3     IF BITS[DI] = 0                             MCG      3937
                               20601              LX6    D.L2P-D.LDP                                             MCG      3938
          2444  11246                             BX2    X4*X6                                                   MCG      3939
                     20227                        LX2    59-D.L2P                                                MCG      3940
                          0322002441 +            PL     X2,SMB2     IF ^( L2[DI]&LD[DI] )                       MCG      3941
          2445                           SMB3     BSS    0                                                       MCG      3942
                                         #DAL     ENDIF                                                          MCG      3943
                                                                                                                 MCG      3944
                                        *         CHECK DISTANCE BETWEEN USES                                    MCG      3945
                                                                                                                 MCG      3946
          2445  54241                             SA2    "DI"+B1     LI = DI + 1                                 MCG      3947
                     20233                        LX2    -I.INDXP                                                MCG      3948
                          15621                   BX6    -X1*X2                                                  MCG      3949
                               53563              SA5    B3+X6       UI = O.TREE + INDX[LI]                      MCG      3950
                                                  LX5    -U.SUCCP                                                MCG      3951
          2446  6255000070                        SB5    X5+MIN.D    SL = SUCC[UI] + MIN.D                       MCG      3952
                                                  LX5    U.SUCCP+59-U.LASTP                                      MCG      3953
                          0335002441 +            MI     X5,SMB2     IF LAST[UI]   */ 2 USES IN 1 INSTRUCTION    MCG      3954
                                                                                                                 MCG      3955
          2447  54551                    SMB4     SA5    A5+B1       UI = UI + 1                                 MCG      3956
                                                  LX5    -U.SUCCP                                                MCG      3957
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE    99
        SMB - SET MULTIPLE USE COMPUTATION BIT                        SMB                 JAM 
  
                     63650                        SB6    X5          SI = SUCC[UI]                               MCG      3958
                          0756002440 +            GT     B6,B5,SMB1  IF SI > SL    */ DIST BETWEEN USES IS BIG   MCG      3959
                                                  LX5    U.SUCCP+59-U.LASTP                                      MCG      3960
          2450  6156000070                        SB5    B6+MIN.D    SL = SI + MIN.D                             MCG      3961
                          0325002447 +            PL     X5,SMB4     IF ^LAST[UI]                                MCG      3962
          2451  0400002441 +                      EQ     SMB2                                                    MCG      3963
                                                                                                                 MCG      3964
          2452                           SMBA     BFMW   D,(RJRS,PS,PRS,ECJ,LD,ST,JP,XMT,KS,PI,ZP)               MCG      3965
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   100
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                                        **        SNU - SET NEXT USE OF OPERANDS OF INSTRUCTION IN *RVT*         MCG      3967
                                        *         NOTE - *SNU* MAY ONLY BE CALLED AFTER A CALL TO *DUC*.         MCG      3968
                                        *                                                                        MCG      3969
                                        *         ENTRY  (A4,X4) = DI , [DI]                                     MCG      3970
                                        *                                                                        MCG      3971
                                        *         EXIT   *NU* FIELD UPDATED IN *RVT* OF OPERANDS OF INSTRUCTION  MCG      3972
                                        *                STORES ADDED TO ISSUED STORE CHAIN ( *ISC* )            MCG      3973
                                        *                (X7) = UOR = LIST OF UNCLEARED OPERAND REGISTERS        MCG      3974
                                        *                                                                        MCG      3975
                                        *         USES   B - 2, 6 , X - 1, 2, 3, 4, 5, 6, 7                      MCG      3976
                                                                                                                 MCG      3977
          2453  43700                    SNU0     MX7    0           UOR = 0                                     MCG      3978
                     0334002504 +                 MI     X4,SNU      IF TYPE[DI] = IV                            MCG      3979
                               20435              LX4    1+D.TYP-D.PIP                                           MCG      3980
          2454  0324002531 +                      PL     X4,SNU6     IF ^PI[DI]    */ NOT A PSEUDO INSTRUCTION   MCG      3981
                          5034777775              SA3    "DI"-2      R1 = DI - 2                                 MCG      3982
          2455  15530                             BX5    "RN"X3      R = RNUMS = RI[R1]                          MCG      3983
                     26623                        UX6    B2,X3                                                   MCG      3984
                          7172777772              SX7    B2-OC.DEF                                               MCG      3985
          2456  0317002517 +                      NZ     X7,SNU2     IF OC[R1] " OC.DEF                          MCG      3986
                                                                                                                 MCG      3987
                                        *         SEARCH *UIT* AND REMOVE LOGICAL LINKS FROM THE SUCCESSOR LIST  MCG      3988
                                                                                                                 MCG      3989
                          54241                   SA2    "DI"+B1     LI = DI + 1                                 MCG      3990
                               20437              LX4    1+D.PIP                                                 FCC0393    16
          2457  5130000000 X                      SA3    O.TREE                                                  MCG      3991
                          43755                   MX7    -I.INDXL                                                MCG      3992
                               20233              LX2    -I.INDXP                                                MCG      3993
          2460  63630                             SB6    X3                                                      MCG      3994
                     15627                        BX6    -X7*X2                                                  MCG      3995
                          53266                   SA2    B6+X6       UI = O.TREE + INDX[LI]                      MCG      3996
                               55321              SA3    A2-B1                                                   MCG      3997
          2461  64220                             SB2    A2          FLAG = UI     */ 0 IF SOMETHING STORED      MCG      3998
                     67671                        SB6    "TB"-B1     DB = BASE - 1                               MCG      3999
                          10633                   BX6    X3                                                      MCG      4000
                               54630              SA6    A3          US = UI - 1;  [US] = [UI-1]                 MCG      4001
                                                                                                                 MCG      4002
                                         RLL1     LX2    -U.SUCCP                                                MCG      4003
          2462  53326                             SA3    B6+X2       DJ = DB + SUCC[UI]                          MCG      4004
                                                  LX2    U.SUCCP                                                 MCG      4005
                                                  LX3    58-D.TYP                                                MCG      4006
                     22613                        LX6    B1,X3                                                   MCG      4007
                          0336002477 +            MI     X6,RLL4     IF TYPE[DJ] = II ! IV                       MCG      4008
          2463  5013777775                        SA1    A3-2        R1J = DJ - 2                                MCG      4009
                          13651                   BX6    X5-X1                                                   MCG      4010
                               15760              BX7    "RN"X6                                                  MCG      4011
          2464  0317002470 +                      NZ     X7,RLL1A    IF RI[R1J] " R                              FCC0393    17
                                                                                                                 FCC0393    18
                                        *         DEF USED IN *RI* OF ANOTHER INSTRUCTION, RESET *PS* IF A STORE FCC0393    19
                                                                                                                 FCC0393    20
                          20331                   LX3    1+D.TYP-D.STP                                           FCC0393    21
          2465  0323002476 +                      PL     X3,RLL3     IF ^ST[DJ]                                  FCC0393    22
                                         #DAL     IFNE   .DAL,0                                                  FCC0393    23
                          20372                   LX3    D.STP-D.L2P                                             FCC0393    24
          2466  0333002476 +                      MI     X3,RLL3     IF L2[DJ]                                   FCC0393    25
                                         #DAL     ENDIF                                                          FCC0393    26
                          76310                   SX3    B1                                                      FCC0393    27
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   101
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                               20347              LX3    D.PSP                                                   FCC0393    28
          2467  12734                             BX7    X3+X4       PS[DI] = 1    */ INDICATE THAT *DEF* IS *PS FCC0393    29
                     54740                        SA7    A4                                                      FCC0393    30
                          0400002476 +            EQ     RLL3                                                    FCC0393    31
                                                                                                                 FCC0393    32
          2470  0333002474 +             RLL1A    MI     X3,RLL2     IF TYPE[DJ] = III                           FCC0393    33
                          20134                   LX1    -R1.RJP                                                 MCG      4014
                               13651              BX6    X5-X1                                                   MCG      4015
          2471  20120                             LX1    R1.RJP-R1.RKP                                           MCG      4016
                     15760                        BX7    "RN"X6                                                  MCG      4017
                          0307002476 +            ZR     X7,RLL3     IF RJ[R1J] = R                              MCG      4018
          2472  13651                             BX6    X5-X1                                                   MCG      4019
                     15760                        BX7    "RN"X6                                                  MCG      4020
                          0307002476 +            ZR     X7,RLL3     IF RK[R1J] = R                              MCG      4021
          2473  0400002477 +                      EQ     RLL4                                                    MCG      4022
                                                                                                                 MCG      4023
          2474  54111                    RLL2     SA1    A1+B1       R2J = R1J + 1                               MCG      4024
                     20130                        LX1    -IH.RFP                                                 MCG      4025
                          13651                   BX6    X5-X1                                                   MCG      4026
                               15760              BX7    "RN"X6                                                  MCG      4027
          2475  0317002477 +                      NZ     X7,RLL4     IF RF[R2J] " R                              MCG      4028
          2476  10622                    RLL3     BX6    X2                                                      MCG      4029
                     54661                        SA6    A6+B1       US = US + 1;  [US] = [UI]                   MCG      4030
                          6120000000              SB2    0           FLAG = 0                                    MCG      4031
                                                                                                                 MCG      4032
          2477  10622                    RLL4     BX6    X2          UL = [UI]                                   MCG      4033
                     54221                        SA2    A2+B1       UI = UI + 1                                 MCG      4034
                                                  LX6    59-U.LASTP                                              MCG      4035
                          0326002462 +            PL     X6,RLL1     IF ^LAST[UL]                                MCG      4036
                                                                                                                 MCG      4037
          2500  43701                             MX7    1                                                       MCG      4038
                                                  LX7    1+U.LASTP                                               MCG      4039
                     0520002502 +                 NZ     B2,RLL5     IF FLAG " 0   */ NOTHING STORED             MCG      4040
                               54260              SA2    A6                                                      MCG      4041
          2501  12672                             BX6    X7+X2       LAST[US] = 1                                MCG      4042
                     54620                        SA6    A2                                                      MCG      4043
                          0400002517 +            EQ     SNU2                                                    MCG      4044
                                                                                                                 MCG      4045
          2502  5130000000 X             RLL5     SA3    L.TXT                                                   MCG      4046
                          7243777773              SX4    X3-4                                                    MCG      4047
          2503  12674                             BX6    X7+X4                                                   MCG      4048
                     56620                        SA6    B2          [FLAG] = UIT(1,0,0,L.TXT-4)                 MCG      4049
                          0400002517 +            EQ     SNU2                                                    MCG      4050
                                                                                                                 MCG      4051
          2504  0200402504 +             SNU      ROUTINE                                                        MCG      4052
                                                  LX4    58-D.TYP                                                MCG      4053
          2505  36744                             IX7    X4+X4                                                   MCG      4054
                     0337002453 +                 MI     X7,SNU0     IF TYPE[DI] = II ! IV                       MCG      4055
          2506  0324002512 +                      PL     X4,SNU1     IF TYPE[DI] = I                             MCG      4056
                                                                                                                 MCG      4057
                          55341                   SA3    "DI"-B1     R2 = DI - 1                                 MCG      4058
                               20422              LX4    1+D.TYP-D.^DP                                           MCG      4059
          2507  20330                             LX3    -IH.RFP                                                 MCG      4060
                     15530                        BX5    "RN"X3      RNUMS = RF[R2]                              MCG      4061
                          0324002517 +            PL     X4,SNU2     IF DEF[DI]                                  MCG      4062
          2510  55331                             SA3    A3-B1       R1 = R2 - 1                                 MCG      4063
                     20520                        LX5    R1.RIL                                                  MCG      4064
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   102
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                          15230                   BX2    "RN"X3                                                  MCG      4065
                               36525              IX5    X2+X5       RNUMS = SHIFT( RNUMS , 16) ! RI[R1]         MCG      4066
          2511  0400002517 +                      EQ     SNU2                                                    MCG      4067
                                                                                                                 MCG      4068
          2512  20424                    SNU1     LX4    2+D.TYP-D.TYIOP                                         MCG      4069
                     43672                        MX6    -D.TYIOL                                                MCG      4070
                          5054777775              SA5    "DI"-2      R1 = DI - 2                                 MCG      4071
          2513  15746                             BX7    -X6*X4                                                  MCG      4072
                     5237000000 +                 SA3    TYIOM+X7                                                FCC0719     5
                               26223              UX2    B2,X3                                                   MCG      4074
          2514  11125                             BX1    X2*X5                                                   MCG      4075
                     23521                        AX5    B2,X1       RNUMS = TYIO[R1,DI]                         MCG      4076
                          0317002517 +            NZ     X7,SNU2     IF TYIO[DI] " 0  */ NOT RJ,RK CASE          MCG      4077
          2515  23625                             AX6    B2,X5                                                   MCG      4078
                     13765                        BX7    X6-X5                                                   MCG      4079
                          15370                   BX3    "RN"X7                                                  MCG      4080
          2516  0313002517 +                      NZ     X3,SNU2     IF RJ[R1] " RK[R1]                          MCG      4081
                          23525                   AX5    B2,X5       RNUMS = RJ[R1]                              MCG      4082
                                                                                                                 MCG      4083
          2517  5130000000 X             SNU2     SA3    O.TREE                                                  MCG      4084
                          43163                   MX1    -I.USESL                                                MCG      4085
                               63630              SB6    X3                                                      MCG      4086
          2520  37777                             IX7    X7-X7       UOR = 0                                     MCG      4087
                     20160                        LX1    I.USESP                                                 MCG      4088
                          43455                   MX4    -I.INDXL                                                MCG      4089
                                                                                                                 MCG      4090
                                        *         SET *TXT* INDEX OF NEXT USE OF OPERANDS IN *RVT*               MCG      4091
                                                                                                                 MCG      4092
          2521  15650                    SNU3     BX6    "RN"X5      R = RI[RNUMS]                               MCG      4093
                     0306002530 +                 ZR     X6,SNU5     IF R = 0                                    MCG      4094
                               53367              SA3    "TB"+X6     L = BASE + R                                MCG      4095
          2522  15231                             BX2    -X1*X3                                                  MCG      4096
                     0302002530 +                 ZR     X2,SNU5     IF USES[L] = 0                              MCG      4097
                                                                                                                 MCG      4098
                                        *         SEARCH *SIT* TO FIND FIRST UNISSUED SUCCESSOR OF OPERAND       MCG      4099
                                                                                                                 MCG      4100
                               20333              LX3    -I.INDXP                                                MCG      4101
          2523  15634                             BX6    -X4*X3                                                  MCG      4102
                     20341                        LX3    I.INDXP-I.REGP                                          MCG      4103
                          53266                   SA2    B6+X6       UI = O.TREE + INDX[L]                       MCG      4104
                               73630              SX6    X3          REGNO = REG[L]                              MCG      4105
                                         SNU4     LX2    -U.SUCCP                                                MCG      4106
          2524  53327                             SA3    "TB"+X2     SI = BASE + SUCC[UI]                        MCG      4107
                                                  LX3    59-I.IIP                                                MCG      4108
                     20201                        LX2    59-U.RDLP+U.SUCCP                                       FCC0448   154
                          12323                   BX3    X2+X3                                                   FCC0448   155
                               54221              SA2    A2+B1       UI = UI + 1                                 FCC0448   156
          2525  0333002524 +                      MI     X3,SNU4     IF II[SI] ! RDL[UI-1]                       FCC0448   157
                                                                                                                 MCG      4111
                          5226000015 C            SA2    RVT+X6                                                  MCG      4112
          2526  20722                             LX7    18                                                      MCG      4113
                     36767                        IX7    X6+X7       UOR = SHIFT( UOR , 18 ) ! REGNO             MCG      4114
                          20252                   LX2    -RV.NUP                                                 MCG      4115
                               75637              SX6    A3-"TB"                                                 MCG      4116
          2527  11302                             BX3    X0*X2                                                   MCG      4117
                     36663                        IX6    X6+X3       NU[ RVT(REGNO) ] = SUCC[UI-1]               MCG      4118
                          20622                   LX6    RV.NUP                                                  MCG      4119
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   103
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                               54620              SA6    A2                                                      MCG      4120
                                                                                                                 MCG      4121
          2530  21520                    SNU5     AX5    R1.RIL      RNUMS = SHIFT( RNUMS , - 16 )               MCG      4122
                     0315002521 +                 NZ     X5,SNU3     IF RNUMS " 0                                MCG      4123
                                                                                                                 MCG      4124
                                        *         CHECK FOR STORES AND OPS THAT *PRS*, ADJUST APPROPIATE FLAGS   MCG      4125
                                                                                                                 MCG      4126
          2531  54440                    SNU6     S"DI"  "DI"                                                    MCG      4127
                     5110002554 +                 SA1    SNUA                                                    MCG      4128
                               11614              BX6    X1*X4                                                   MCG      4129
          2532  0306002504 +                      ZR     X6,SNU      IF ST[DI] & PRS[DI] = 0                     MCG      4130
                          20431                   LX4    59-D.STP                                                MCG      4131
          2533  0334002537 +                      MI     X4,SNU7     IF ST[DI]                                   MCG      4132
                                                                                                                 MCG      4133
                          5054000002              SA5    "DI"+2      R1RS = DI + 2                               MCG      4134
          2534  15650                             BX6    "RN"X5                                                  MCG      4135
                     20554                        LX5    -R1.SOP                                                 MCG      4136
                          43166                   MX1    -SO.RTL-SO.RNL                                          MCG      4137
                               15351              BX3    -X1*X5      RN = SOREG[R1RS]                            MCG      4138
          2535  7223777767                        SX2    X3-8                                                    MCG      4139
                          0322002504 +            PL     X2,SNU      IF RN > 7     */ IF NOT A B-REGISTER        MCG      4140
          2536  5263000172 C                      SA6    LRN+X3      LRN(RN) = R   */ SAVE LAST R-NUMBER IN B-RE MCG      4141
                          0400002504 +            EQ     SNU                                                     MCG      4142
                                                                                                                 MCG      4143
          2537  5110000172 C             SNU7     SA1    ISC                                                     MCG      4144
                          43352                   MX3    -I.LINKL                                                MCG      4145
                               54541              SA5    "DI"+B1     L = DI + 1                                  MCG      4146
          2540  11235                             BX2    X3*X5                                                   MCG      4147
                     12621                        BX6    X2+X1       LINK[L] = ISC */ POINT THIS TO LAST         MCG      4148
                          54650                   SA6    A5                                                      MCG      4149
                               75657              SX6    A5-"TB"                                                 MCG      4150
          2541  54610                             SA6    A1          ISC = L - BASE  */ CHAIN POINTS TO THIS     MCG      4151
                                                                                                                 MCG      4152
                                        *         ADJUST *PS* BIT FOR THE *RI* IN THE STORE                      MCG      4153
                                                                                                                 MCG      4154
                     5014777775                   SA1    "DI"-2      R1 = DI - 2                                 MCG      4155
                               15410              BX4    "RN"X1      R = RI[R1]                                  FCC0393    34
          2542  53547                             SA5    "TB"+X4     L = BASE + R                                FCC0393    35
                     43655                        MX6    -I.INDXL                                                MCG      4158
                          5130000000 X            SA3    O.TREE                                                  MCG      4159
          2543  20533                             LX5    -I.INDXP                                                MCG      4160
                     63230                        SB2    X3                                                      MCG      4161
                          15256                   BX2    -X6*X5                                                  MCG      4162
                               53322              SA3    B2+X2       UI = O.TREE + INDX[L]                       MCG      4163
                                                                                                                 MCG      4164
                                         SNU9     LX3    -U.SUCCP                                                MCG      4165
          2544  53237                             SA2    "TB"+X3     SI = BASE + SUCC[UI]                        MCG      4166
                                                  LX2    59-I.IIP                                                MCG      4167
                     0332002551 +                 MI     X2,SNU10    IF II[SI]                                   MCG      4168
          2545  5012777774                        SA1    A2-3        R1S = SI - 3                                FCC0393    36
                          13214                   BX2    X1-X4                                                   FCC0393    37
                               15620              BX6    "RN"X2                                                  FCC0393    38
          2546  0316002551 +                      NZ     X6,SNU10    IF RI[R1S] " R                              FCC0393    39
                          55121                   SA1    A2-B1       D = SI - 1                                  MCG      4169
                               20131              LX1    59-D.STP                                                MCG      4170
                                         #DAL     IFEQ   .DAL,0                                                  MCG      4171
                                                  MI     X1,SNU      IF ST[DI]     */ AN UNISSUED STORE          MCG      4172
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   104
        SNU - SET NEXT USE DISTANCE                                   SNU                 JAM 
  
                                         #DAL     ELSE                                                           MCG      4173
          2547  0321002551 +                      PL     X1,SNU10    IF ^ST[DI]                                  MCG      4174
                          20172                   LX1    D.STP-D.L2P                                             MCG      4175
          2550  0321002504 +                      PL     X1,SNU      IF ^L2[DI]                                  MCG      4176
                                         #DAL     ENDIF                                                          MCG      4177
                                         SNU10    LX3    U.SUCCP+59-U.LASTP                                      MCG      4178
          2551  10633                             BX6    X3          UL = UI                                     MCG      4179
                     54331                        SA3    A3+B1       UI = UI + 1                                 MCG      4180
                          0326002544 +            PL     X6,SNU9     IF ^LAST[UL]                                MCG      4181
                                                                                                                 MCG      4182
          2552  55551                             SA5    A5-B1       D = L - 1                                   MCG      4183
                     76410                        SX4    B1                                                      MCG      4184
                          20447                   LX4    D.PSP                                                   MCG      4185
                               15654              BX6    -X4*X5      PS[D] = 0     */ CLEAR *PS* BIT             MCG      4186
          2553  54650                             SA6    A5                                                      MCG      4187
                     0400002504 +                 EQ     SNU                                                     MCG      4188
                                                                                                                 MCG      4189
          2554                           SNUA     BFMW   D,(PRS,ST)                                              MCG      4190
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   105
        TGL - TOGGLE TWO REGISTERS.                                                       JAM 
  
                                        **        TGL - THIS ROUTINE WILL BE INOLKED BEFORE UJR                  CCGA023    40
                                        *         TRIES TO STORE OUT A REGISTER.  BASICALLY IT WILL              CCGA023    41
                                        *         CHECK TO SEE IF R0 IS AN OPERAND OF T0.  IF THIS               CCGA023    42
                                        *         HAPPENS R0 WILL NOT BE STORED TO MEMORY BUT WILL               CCGA023    43
                                        *         BE SIMPLY TOGGLED WITH AN AVAILABLE REGISTER OF THE            CCGA023    44
                                        *         CLASS SOUGHT BY T0.  THIS MODULE IS AN ANSWER TO               CCGA023    45
                                        *         FCC2207 WHERE SRM OF R0 REMOVED T0 FROM THE ISSUE              CCGA023    46
                                        *         CANDIDATE LIST.                                                CCGA023    47
                                        *                                                                        CCGA023    48
                                        *         ENTRY  (B3) = REGNO CURRENTLY ASSIGNED TO R0                   CCGA023    49
                                        *                (T0) = INSTRUCTION TO BE ISSUED                         CCGA023    50
                                        *                (R0) = RESULT TO BE STORED                              CCGA023    51
                                        *                (CLASS) = CLASS BITS FOR T0                             CCGA023    52
                                                                                                                 CCGA023    53
                                        *         EXIT   (B4) = REGNO. TOGGLED WITH R0 (= 0 NO TOGGLE)           CCGA023    54
                                                                                                                 CCGA023    55
                                        *         MAINTAINS B3,T0,CLASS,R0                                       CCGA023    56
                                                                                                                 CCGA023    57
          2555                     1     RTGL     BSS    1                                                       CCGA023    58
                                                                                                                 CCGA023    59
          2556  0200402556 +             TGL      ROUTINE                                                        CCGA023    60
                                                                                                                 CCGA023    61
                                        *         FIND OPERANDS OF T0.                                           CCGA023    62
                                                                                                                 CCGA023    63
          2557  66400                             SB4    B0                                                      CCGA023    64
                     5120000204 C                 SA2    T0                                                      CCGA023    65
          2560  0100001663 +                      RJ     GOR         GET OPERAND ROUTINE                         CCGA023    66
                                                                                                                 CCGA023    67
                                        *         LOOK IN OPERAND LIST FOR R0.                                   CCGA023    68
                                                                                                                 CCGA023    69
          2561  76130                             SX1    B3                                                      CCGA023    70
          2562  0307002556 +             TGL20    ZR     X7,TGL      IF ROP = 0  */EXIT                          CCGA023    71
                          13517                   BX5    X1-X7                                                   CCGA023    72
                               73650              SX6    X5                                                      CCGA023    73
          2563  0306002565 +                      ZR     X6,TGL40    IF ROP = REGR0                              CCGA023    74
                          21722                   AX7    18                                                      CCGA023    75
          2564  0400002562 +                      EQ     TGL20                                                   CCGA023    76
                                                                                                                 CCGA023    77
                                        *         R0 IS AN OPERAND OF T0 - TOGGLE IT.                            CCGA023    78
                                        *         CHECK IF R0 HAS MORE THAN ONE USE - IF SO FORGET IT.           CCGA023    79
                                                                                                                 CCGA023    80
          2565  5110000203 C             TGL40    SA1    R0                                                      CCGA023    81
                          15110                   BX1    "RN"X1                                                  CCGA023    82
                               53517              SA5    "TB"+X1     LT = BASE + R0                              CCGA023    83
          2566  43763                             MX7    -I.USESL                                                CCGA023    84
                     20513                        LX5    59-I.USESP                                              CCGA023    85
                          15657                   BX6    -X7*X5                                                  CCGA023    86
          2567  0316402567 +                      NZ     X6,*+1S17   IF USES[LT] > 1 BLOWUP                      CCGA023    87
                                                                                                                 CCGA023    88
                                        *         FIND A REGISTER TO TOGGLE WITH R0.                             CCGA023    89
                                                                                                                 CCGA023    90
                          5130000202 C            SA3    CLASS                                                   CCGA023    91
          2570  5120000124 C                      SA2    LXR                                                     CCGA023    92
                          15732                   BX7    -X2*X3      TRV = ^LXR & CLASS                          CCGA023    93
          2571  0307402571 +                      ZR     X7,*+1S17   IF TRV = 0 BLOWUP                           CCGA023    94
                          24647                   NX6    B4,X7                                                   CCGA023    95
          2572  5134777745 +                      SA3    B4+FXRA+16-47                                           CCGA023    96
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   106
        TGL - TOGGLE TWO REGISTERS.                                                       JAM 
  
                          63430                   SB4    X3          REGTGL = FIRST TRV                          CCGA023    97
                                                                                                                 CCGA023    98
                                        *         MAKE R0 UNAVAILABLE AND RESTORE RVT(REGR0)                     CCGA023    99
                                                                                                                 CCGA023   100
          2573  5123000140 C                      SA2    RBV+B3                                                  CCGA023   101
                          5130000012 C            SA3    AXR                                                     CCGA023   102
          2574  73710                             SX7    X1                                                      CCGA023   103
                     13632                        BX6    X3-X2                                                   CCGA023   104
                          5173000015 C            SA7    RVT+B3      RVT(REGRO) = R0                             CCGA023   105
          2575  54630                             SA6    A3          MAKE REGRO UNAVAIL.                         CCGA023   106
                                                                                                                 CCGA023   107
                                        *         TOGGLE REGTGL AND R0.                                          CCGA023   108
                                        *         OUTPUT THE FOLLOWING SEQUENCE.                                 CCGA023   109
                                        *         XOR    R0,R0,RTGL                                              CCGA023   110
                                        *         XOR    RTGL,R0,RTGL                                            CCGA023   111
                                        *         XOR    R0,R0,RTGL                                              CCGA023   112
                                                                                                                 CCGA023   113
                     5124000015 C                 SA2    RVT+B4                                                  CCGA023   114
                               27731              PX7    B3,X1                                                   CCGA023   115
          2576  15220                             BX2    "RN"X2                                                  CCGA023   116
                     27642                        PX6    B4,X2                                                   CCGA023   117
                          54710                   SA7    A1                                                      CCGA023   118
          2577  5160002555 +                      SA6    RTGL                                                    CCGA023   119
                          6120000013              SB2    OC.XOR                                                  CCGA023   120
          2600  5132000000 X                      SA3    =XF.RDT+B2                                              CCGA023   121
                          15110                   BX1    "RN"X1      R0                                          CCGA023   122
                               15220              BX2    "RN"X2      RTGL                                        CCGA023   123
          2601  20140                             LX1    R1.RJP                                                  CCGA023   124
                     20220                        LX2    R1.RKP                                                  CCGA023   125
                          12712                   BX7    X1+X2                                                   CCGA023   126
                               27627              PX6    B2,X7                                                   CCGA023   127
          2602  43700                             MX7    0                                                       CCGA023   128
                     5160000207 C                 SA6    DRI         DRI(0) = TYI(OC.XOR,R0,RTGL,0)              CCGA023   129
                               54761              SA7    A6+B1       DRI(1) = 0                                  CCGA023   130
          2603  10633                             BX6    X3                                                      CCGA023   131
                     54671                        SA6    A7+B1       DRI(2) = FX.RDT(OC.XOR)                     CCGA023   132
                          54460                   SA4    A6                                                      CCGA023   133
                               76730              SX7    B3                                                      CCGA023   134
          2604  54741                             SA7    A4+B1       DRI(3) = REGR0                              CCGA023   135
                     0100002721 +                 RJ     OEI         ISSUE XOR REGR0,R0,RTGL                     CCGA023   136
          2605  5110000203 C                      SA1    R0                                                      CCGA023   137
                          5120002555 +            SA2    RTGL                                                    CCGA023   138
          2606  26641                             UX6    B4,X1                                                   CCGA023   139
                     26732                        UX7    B3,X2                                                   CCGA023   140
                          5140000211 C            SA4    DRI+2                                                   CCGA023   141
          2607  76730                             SX7    B3                                                      CCGA023   142
                     54741                        SA7    A4+B1       DRI(3) = REGR0                              CCGA023   143
                          0100002721 +            RJ     OEI         ISSUE XOR REGTGL,R0,RTGL                    CCGA023   144
          2610  5110000203 C                      SA1    R0                                                      CCGA023   145
                          5120002555 +            SA2    RTGL                                                    CCGA023   146
          2611  26631                             UX6    B3,X1                                                   CCGA023   147
                     26742                        UX7    B4,X2                                                   CCGA023   148
                          5140000211 C            SA4    DRI+2                                                   CCGA023   149
          2612  76730                             SX7    B3                                                      CCGA023   150
                     54741                        SA7    A4+B1       DRI(3) = REGTGL                             CCGA023   151
                          0100002721 +            RJ     OEI         ISSUE XOR REGR0,R0,RTGL                     CCGA023   152
                                                                                                                 CCGA023   153
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   107
        TGL - TOGGLE TWO REGISTERS.                                                       JAM 
  
                                        *         TOGGLE RVT ENTRIES AND LINK WORDS.                             CCGA023   154
                                                                                                                 CCGA023   155
          2613  5110000203 C                      SA1    R0                                                      CCGA023   156
                          5120002555 +            SA2    RTGL                                                    CCGA023   157
          2614  26331                             UX3    B3,X1       (B3) = REGR0                                CCGA023   158
                     26442                        UX4    B4,X2       (B4) = REGTGL                               CCGA023   159
                          5113000015 C            SA1    RVT+B3                                                  CCGA023   160
          2615  5124000015 C                      SA2    RVT+B4                                                  CCGA023   161
                          10611                   BX6    X1                                                      CCGA023   162
                               10722              BX7    X2                                                      CCGA023   163
          2616  54620                             SA6    A2          RVT(REGR0) = RVT(REGTGL)                    CCGA023   164
                     54710                        SA7    A1          RVT(REGTGL) = RVT(REGR0)                    CCGA023   165
                          53137                   SA1    "TB"+X3     LIR0 = BASE + R0                            CCGA023   166
                               53247              SA2    "TB"+X4     LIRTGL = BASE + RTGL                        CCGA023   167
          2617  10622                             BX6    X2                                                      CCGA023   168
                     10711                        BX7    X1                                                      CCGA023   169
                          54610                   SA6    A1          LIR0 = LIRTGL                               CCGA023   170
                               54720              SA7    A2          LIRTGL = LIR0                               CCGA023   171
                                                                                                                 CCGA023   172
                                        *         RETURN                                                         CCGA023   173
          2620  0400002556 +                      EQ     TGL                                                     CCGA023   174
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   108
        SRM - SAVE RESULT IN MEMORY                                   SRM                 JAM 
  
                                        **        SRM - SAVE RESULT IN MEMORY AND SET FOR RELOAD OF INSTRUCTION  MCG      4195
                                        *                                                                        MCG      4196
                                        *         ENTRY  (B3) = REGNO , OF REGISTER TO BE STORED OUT             MCG      4197
                                        *                (R0) = *TXT* INDEX OF INSTRUCTION                       MCG      4198
                                        *                (T0) = *TXT* INDEX OF INSTRUCTION TO ISSUE              MCG      4199
                                                                                                                 MCG      4200
          2621  0200402621 +             SRM      ROUTINE                                                        MCG      4201
          2622  5110000203 C                      SA1    R0                                                      MCG      4202
                          5120000000 X            SA2    O.TREE                                                  MCG      4203
          2623  53517                             SA5    "TB"+X1     LI = BASE + R0                              MCG      4204
                     43755                        MX7    -I.INDXL                                                MCG      4205
                          63220                   SB2    X2                                                      MCG      4206
                               20533              LX5    -I.INDXP                                                MCG      4207
          2624  15657                             BX6    -X7*X5                                                  MCG      4208
                     55451                        SA4    A5-B1       DI = LI - 1                                 MCG      4209
                          63662                   SB6    B2+X6       U0 = O.TREE + INDX[LI]                      MCG      4210
                               20406              LX4    59-D.EQVP                                               MCG      4211
          2625  0324002632 +                      PL     X4,SRM3     IF ^EQV[DI]   */ NO EQUIV LINKS             MCG      4212
                                                                                                                 MCG      4213
                                        *         INSTRUCTION IS A PREDECESSOR OF INTERFERING STORES, REMOVE     MCG      4214
                                        *         THE LOGICAL LINKS FROM *SIT*                                   MCG      4215
                                                                                                                 MCG      4216
                          56360                   SA3    B6          UI = U0                                     MCG      4217
                               66560              SB5    B6          US = U0                                     MCG      4218
                                                                                                                 MCG      4219
          2626  10633                    SRM1     BX6    X3          UL = [UI]                                   MCG      4220
                     20302                        LX3    59-U.EQVP                                               MCG      4221
                          0333002630 +            MI     X3,SRM2     IF EQV[UI]                                  MCG      4222
          2627  5165000000                        SA6    B5+         [US] = UL                                   MCG      4223
                          6155000001              SB5    B5+1        US = US + 1                                 MCG      4224
          2630  54331                    SRM2     SA3    A3+B1       UI = UI + 1                                 MCG      4225
                                                  LX6    59-U.LASTP                                              MCG      4226
                     0326002626 +                 PL     X6,SRM1     IF ^LAST[UL]                                MCG      4227
                                                                                                                 MCG      4228
                               57351              SA3    B5-B1                                                   MCG      4229
          2631  43701                             MX7    1                                                       MCG      4230
                                                  LX7    1+U.LASTP                                               MCG      4231
                     12673                        BX6    X7+X3       LAST[US-1] = 1                              MCG      4232
                          5063000000              SA6    A3+                                                     MCG      4233
                                                                                                                 MCG      4234
                                        *         SEARCH SUCCESSORS OF *R0* FOR AN ISSUED STORE TO A             MCG      4235
                                        *         *CHEIP* ADDRESS.                                               MCG      4236
                                                                                                                 MCG      4237
          2632  56360                    SRM3     SA3    B6          UI = U0                                     MCG      4238
                     5110002651 +                 SA1    SRMA                                                    MCG      4239
                               66600              R=     B6,59-U.LASTP+U.SUCCP                                   MCG      4240
          2633  6120000031                        SB2    59-D.STP                                                MCG      4241
                          6150000044              SB5    IH.RFP                                                  MCG      4242
                                                                                                                 MCG      4243
                                         SRM4     LX3    -U.SUCCP                                                MCG      4244
          2634  53537                             SA5    "TB"+X3     SI = BASE + SUCC[UI]                        MCG      4245
                                                  LX5    59-I.IIP                                                MCG      4246
                     0325002641 +                 PL     X5,SRM6     IF ^II[SI]    */ NOT ISSUED                 MCG      4247
                               55451              SA4    A5-B1       DI = LI - 1                                 MCG      4248
          2635  22624                             LX6    B2,X4                                                   MCG      4249
                     0326002641 +                 PL     X6,SRM6     IF ^ST[DI]                                  MCG      4250
                               11714              BX7    X1*X4                                                   MCG      4251
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   109
        SRM - SAVE RESULT IN MEMORY                                   SRM                 JAM 
  
          2636  0317002641 +                      NZ     X7,SRM6     IF FP[DI] ! L2[DI] ! EQV[DI]                MCG      4252
                          55241                   SA2    A4-B1       R2 = DI - 1                                 MCG      4253
                               23752              AX7    B5,X2                                                   MCG      4254
          2637  63470                             SB4    X7                                                      MCG      4255
                     0641002641 +                 GE     B4,B1,SRM6  IF RF[R2] > 1                               MCG      4256
                                                  LX4    58-D.TYP                                                MCG      4257
          2640  0334002647 +                      MI     X4,SRM8     IF TYPE[DI] = III                           MCG      4258
                                                                                                                 MCG      4259
          2641  22663                    SRM6     LX6    B6,X3       UL = [UI]                                   MCG      4260
                     54331                        SA3    A3+B1       UI = UI + 1                                 MCG      4261
                          0326002634 +            PL     X6,SRM4     IF ^LAST[UL]                                MCG      4262
                                                                                                                 MCG      4263
          2642  0100002672 +                      RJ     OTS         OUTPUT A TEMP STORE                         MCG      4264
                                                                                                                 MCG      4265
          2643  5120000204 C             SRM7     SA2    T0                                                      MCG      4266
                          0302002645 +            ZR     X2,SRM7A    IF T0 = 0     */ NO INSTRUCTION TO ISSUE    MCG      4267
          2644  0100001310 +                      RJ     ISI         ISSUE SELECTED INSTRUCTION                  MCG      4268
                                                                                                                 MCG      4270
          2645  5110000203 C             SRM7A    SA1    R0                                                      MCG      4271
                          0100002703 +            RJ     GLI         GENERATE A *LD* OF SAVED RESULT             MCG      4272
          2646  0400002621 +                      EQ     SRM                                                     MCG      4273
                                                                                                                 MCG      4274
          2647  10622                    SRM8     BX6    X2                                                      MCG      4275
                     5160000210 C                 SA6    DRI+1       DRI(2) = [R2]                               MCG      4276
          2650  0400002643 +                      EQ     SRM7                                                    MCG      4277
                                                                                                                 MCG      4278
          2651                           SRMA     BFMW   D,(FP,L2,EQV)                                           MCG      4279
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   110
        GOT - GET OT. ORDINAL                                         GOT                 JAM 
  
                                        **        GOT - GET OT. CELL ( TEMPORARY LOCATION ) FOR STORE TO TEMP    MCG      4281
                                        *                                                                        MCG      4282
                                        *         ENTRY  (X5) = RN , R-NUMBER TO BE SAVED IN THE OT.             MCG      4283
                                        *                                                                        MCG      4284
                                        *         EXIT   (X6) = IHWORD ( R2 ) OF AN AVAILABLE LOCATION           MCG      4285
                                                                                                                 MCG      4286
          2652  0200402652 +             GOT      ROUTINE                                                        MCG      4287
          2653  5110000170 C                      SA1    M.OT                                                    MCG      4288
                          5120000000 X            SA2    L.OTI                                                   MCG      4289
          2654  37612                             IX6    X1-X2                                                   MCG      4290
                     0336002661 +                 MI     X6,GOT1     IF M.OT < L.OTI                             MCG      4291
          2655  7110000030                        ALLOC  OTI,30B     ALLOC( OTI , 30B )                          MCG      4292
          2657  0100002743 +                      RJ     AIP         ADJUST *PIT* POINTERS                       MCG      4293
          2660  5110000170 C                      SA1    M.OT                                                    MCG      4294
                                                                                                                 MCG      4295
          2661  5120000000 X             GOT1     SA2    O.OTI                                                   MCG      4296
                          63210                   SB2    X1                                                      MCG      4297
                               43763              MX7    -I.USESL                                                MCG      4298
          2662  5232777776                        SA3    X2-1        OI = O.OTI - 1                              MCG      4299
                          53722                   SA7    X2+B2       [O.OTI+M.OT] = -0  */ SEARCH TERMINATOR     MCG      4300
                               20760              LX7    I.USESP                                                 MCG      4301
                                                                                                                 MCG      4302
                                        *         SEARCH FOR AN OT. CELL THAT IS NO LONGER BEING USED            MCG      4303
                                                                                                                 MCG      4304
          2663  54331                    GOT2     SA3    A3+B1       OI = OI + 1                                 MCG      4305
                     0333002666 +                 MI     X3,GOT3     IF [OI] < 0   */ END OF TABLE               MCG      4306
                               53237              SA2    "TB"+X3     LI = BASE + RI[OI]                          MCG      4307
          2664  15127                             BX1    -X7*X2                                                  MCG      4308
                     0311002663 +                 NZ     X1,GOT2     IF USES[LI] " 0                             MCG      4309
                                                                                                                 MCG      4310
                               26323              UX3    B2,X3       CA = UEXP(OI)                               MCG      4311
          2665  0400002667 +                      EQ     GOT4                                                    MCG      4312
                                                                                                                 MCG      4313
          2666  76621                    GOT3     SX6    B2+B1       CA = M.OT                                   MCG      4314
                     5160000170 C                 SA6    M.OT        M.OT = CA + 1                               MCG      4315
                                                                                                                 MCG      4316
          2667  27725                    GOT4     PX7    B2,X5                                                   MCG      4317
                     76620                        SX6    B2                                                      MCG      4319
                          54730                   SA7    A3          [OI] = PACK( CA , R-NUM )                   MCG      4320
                                         .PLI     IFNE   HC.ID,3     ^ PL/I                                      CCG8      169
          2670  5140000000 X                      SA4    =XS$OT                                                  CCG11     130
                          20622                   LX6    IH.CAP                                                  MCG      4321
                                                  LX4    IH.IHP                                                  MCG      4322
                               12646              BX6    X4+X6       IHWORD = IHW(0,CA,IH)                       MCG      4323
                                         .PLI     ELSE                                                           CCG8      171
                                                  SA2    =XHO$PN                                                 CCGNC     791
                                                  SA3    =XO$ADT                                                 CCGNC     792
                                                  IX7    X2+X3                                                   CCG8      174
                                                  SA3    X7                                                      CCG8      175
                                                  SX4    B1                                                      CCG8      176
                                                  SX6    B2+X3       CA = CA + LOW18[ADT(HO$PN)]                 CCGNC     793
                                                  LX4    IH.RFP                                                  CCG8      178
                                                  LX6    IH.CAP                                                  CCG8      179
                                                  BX6    X4+X6       IHWORD = IHW(1,CA,0)                        CCG8      180
                                         .PLI     ENDIF                                                          CCG8      181
          2671  0400002652 +                      EQ     GOT                                                     MCG      4324
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   111
        OTS - OUTPUT TEMP STORE                                       OTS                 JAM 
  
                                        **        OTS - OUTPUT TEMP STORE                                        MCG      4327
                                        *                                                                        MCG      4328
                                        *         ENTRY  (B3) = REGNO OF REGISTER TO BE STORED OUT               MCG      4329
                                        *                (R0) = TXT INDEX OF INSTRUCTION                         MCG      4330
                                        *                                                                        MCG      4331
                                        *         EXIT   (DRI+1) = IH WORD OF SAVED RESULT                       MCG      4332
                                                                                                                 MCG      4333
          2672  0200402672 +             OTS      ROUTINE                                                        MCG      4334
          2673  6120000051                        SB2    OC.ST                                                   MCG      4335
                          5150000203 C            SA5    R0          R = [R0]                                    MCG      4336
          2674  5122000000 X                      SA2    =XF.RDT+B2                                              MCG      4337
                          27625                   PX6    B2,X5                                                   MCG      4338
                               76410              SX4    B1                                                      MCG      4339
          2675  5160000207 C                      SA6    DRI         DRI(0) = TYII(OC.ST,0,0,R)                  MCG      4340
                          20426                   LX4    D.SRP                                                   MCG      4341
                               12742              BX7    X4+X2                                                   MCG      4342
          2676  5076000002                        SA7    A6+2        DRI(2) = F.RDT(OC.ST) ! SR                  MCG      4343
                          76630                   SX6    B3                                                      MCG      4344
                               54671              SA6    A7+B1       DRI(3) = REGNO                              MCG      4345
          2677  0100002652 +                      RJ     GOT         DRI(1) = GOT(R)                             MCG      4346
          2700  5140000211 C                      S"DI"  DRI+2       DI = DRI(2)                                 MCG      4347
                          54541                   SA5    A4+B1                                                   MCG      4348
                               63350              SB3    X5                                                      MCG      4349
          2701  55641                             SA6    A4-B1                                                   MCG      4350
                     63450                        SB4    X5                                                      MCG      4351
                          0100002721 +            RJ     OEI         OUTPUT THE INSTRUCTION                      MCG      4352
          2702  0400002672 +                      EQ     OTS                                                     MCG      4353
  
  
  
                                        **        GLI - GENERATE A *LD* OF A SAVED RESULT                        MCG      4355
                                        *                                                                        MCG      4356
                                        *         ENTRY  (X1) = R , *TXT* INDEX OF INSTRUCTION                   MCG      4357
                                        *                (DRI+1) = IH WORD OF SAVED RESULT                       MCG      4358
                                                                                                                 MCG      4359
          2703  0200402703 +             GLI      ROUTINE                                                        MCG      4360
          2704  0100002356 +                      RJ     RIL         RESET R FOR REISSUE                         MCG      4361
          2705  67671                             SB6    "TB"-B1                                                 MCG      4362
                     5130000210 C                 SA3    DRI+1                                                   MCG      4363
                               56463              S"DI"  B6+B3       DI = BASE-1 + R                             MCG      4364
          2706  5120000000 X                      SA2    =XIT.                                                   FCC0584    15
                          6120000050              SB2    OC.LD                                                   FCC0584    16
          2707  13723                             BX7    X2-X3                                                   FCC0584    17
                     73270                        SX2    X7                                                      FCC0584    18
                          0312002711 +            NZ     X2,GLI1     OC = IF( IH[DRI+1] " IT. ) THEN OC.LD       FCC0584    19
          2710  6120000076                        SB2    OC.TLD                    ELSE OC.TLD                   FCC0584    20
          2711  76530                    GLI1     SX5    B3                                                      FCC0584    21
                     10733                        BX7    X3                                                      MCG      4367
                          5112000000 X            SA1    F.RDT+B2                                                MCG      4368
          2712  5120002720 +                      SA2    GLIA                                                    MCG      4369
                          27625                   PX6    B2,X5                                                   MCG      4370
                               55741              SA7    "DI"-B1     [DI-1] = [DRI+1]  */ IH WORD                MCG      4371
          2713  43572                             MX5    -D.STRSL                                                MCG      4372
                     55671                        SA6    A7-B1       [DI-1] = TYII(OC,0,0,R)                     FCC0584    22
                          12112                   BX1    X1+X2                                                   MCG      4374
                               20546              LX5    D.STRSP                                                 MCG      4375
          2714  15345                             BX3    -X5*X4                                                  MCG      4376
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   112
        OTS - OUTPUT TEMP STORE                                       GLI                 JAM 
  
                     12713                        BX7    X1+X3       [DI] = RDT(OC) ! ZP ! SR ! STRS[DI]         FCC0584    23
                          54740                   SA7    "DI"                                                    MCG      4378
                               20424              LX4    59-D.PSP                                                MCG      4379
          2715  0324002703 +                      PL     X4,GLI      IF ^PS[DI]                                  MCG      4380
  
                                        *         GENERATE AN *XMT* TO MOVE THE RESULT TO A STORE REGISTER       MCG      4382
                                                                                                                 FCC0881   235
                          5160000203 C            SA6    R0          R0 = R                                      FCC0881   236
          2716  0100002222 +                      RJ     SXB         SETUP A *XMT* BACK TO THE *ST-REG*          FCC0881   237
          2717  0400002703 +                      EQ     GLI                                                     MCG      4457
                                                                                                                 MCG      4458
          2720                           GLIA     BFMW   D,(ZP,SR)                                               MCG      4459
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   113
        OEI - OUTPUT EXTRA INSTRUCTION                                OEI                 JAM 
  
                                        **        OEI - OUTPUT EXTRA INSTRUCTION                                 MCG      4463
                                        *                                                                        MCG      4464
                                        *         ENTRY  (A4,X4) = DI, [DI] OF DUMMY INSTRUCTION                 MCG      4465
                                        *                (B3) = REGNO OF RESULT REG OF INSTRUCTION               MCG      4466
                                        *                (B4) = REGO , REGNO OF OPERAND REGISTER                 MCG      4467
                                        *                                                                        MCG      4468
                                        *         CALLS  ASC, SII                                                MCG      4469
                                                                                                                 MCG      4470
          2721  0200402721 +             OEI      ROUTINE                                                        MCG      4471
          2722  5120000126 C                      SA2    T                                                       MCG      4472
                          5134000046 C            SA3    TRA+B4                                                  MCG      4473
          2723  37623                   +         IX6    X2-X3                                                   MCG      4474
                     0326002724 +                 PL     X6,*+1      T(IS) = MAX( T , TRA(REGO) )                MCG      4475
                               10233              BX2    X3                                                      MCG      4476
          2724  20415                             LX4    -D.F1P                                                  MCG      4477
                     64641                        SB6    "DI"+B1                                                 MCG      4478
                          43770                   MX7    -D.F1L                                                  MCG      4479
                               15647              BX6    -X7*X4                                                  MCG      4480
          2725  63260                             SB2    X6                                                      MCG      4481
                     77167                        SX1    B6-"TB"                                                 MCG      4482
                          43552                   MX5    -18                                                     MCG      4483
                               63420              SB4    X2          T(EX) = T(IS)                               MCG      4484
          2726  15615                             BX6    -X5*X1                                                  MCG      4485
                     63520                        SB5    X2                                                      MCG      4486
                          27726                   PX7    B2,X6                                                   MCG      4487
          2727  5170000007 C                      SA7    PBI+1       FU[PBI(2)] = F1[DI]                         MCG      4488
                          20457                   LX4    D.F1P                                                   MCG      4489
                               27632              PX6    B3,X2       REG[PBI] = REGNO                            MCG      4490
          2730  55671                             SA6    A7-B1                                                   MCG      4491
                     0100000661 +                 RJ     ASC         ADVANCE THE CLOCK                           MCG      4492
          2731  5054777775                        SA5    "DI"-2      R1 = DI - 2                                 MCG      4493
                          0100000765 +            RJ     SII         SAVE THE INSTRUCTION IN *PIT*               MCG      4494
          2732  0400002721 +                      EQ     OEI                                                     MCG      4495
  
  
  
                                        **        AIS - ALLOCATE INSTRUCTION SPACE FOR EXTRA INSTRUCTIONS        MCG      4497
                                                                                                                 MCG      4498
          2733  0200402733 +             AIS      ROUTINE                                                        MCG      4499
          2734  5110000137 C                      SA1    EIW                                                     MCG      4500
                          73611                   SX6    X1+B1       EIW = EIW + 1                               MCG      4501
                               54610              SA6    A1                                                      MCG      4502
          2735  0336002733 +                      MI     X6,AIS      IF EIW < 0                                  MCG      4503
                          5110000000 C            SA1    N.INST                                                  MCG      4504
          2736  21102                             AX1    2                                                       MCG      4505
                     14611                        BX6    -X1                                                     MCG      4506
                          54660                   SA6    A6          EIW = -N.INST/4                             MCG      4507
          2737  5100000000 X                      ALLOC  PIT,X1      ALLOC( PIT , N.INST/4 )                     MCG      4508
          2740  0100002743 +                      RJ     AIP         ADJUST POINTERS                             MCG      4509
          2741  0400002733 +                      EQ     AIS                                                     MCG      4510
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   114
        OEI - OUTPUT EXTRA INSTRUCTION                                AIP                 JAM 
  
                                        **        AIP - ADJUST INSTRUCTION POINTERS ( AFTER A TABLE MANAGER CALL MCG      4512
                                        *                                                                        MCG      4513
                                        *         EXIT   (B7) = O.TXT + 3                                        MCG      4514
                                        *                                                                        MCG      4515
                                        *         USES   X - 1, 4, 6, 7 , A - 1, 4, 6, 7                         MCG      4516
                                                                                                                 MCG      4517
          2742  5110000000 X             AIP0     SA1    O.TXT                                                   MCG      4518
                          6271000003              SB7    X1+3        BASE = O.TXT + 3                            MCG      4519
                                                                                                                 MCG      4520
          2743  0200402743 +             AIP      ROUTINE                                                        MCG      4521
          2744  5110000000 X                      SA1    O.PIT                                                   MCG      4522
                          5140000136 C            SA4    IIP+1                                                   MCG      4523
          2745  37614                             IX6    X1-X4                                                   MCG      4524
                     0306002742 +                 ZR     X6,AIP0     IF IIP(2) = O.PIT  */ *PIT* NOT MOVED       MCG      4525
                               10711              BX7    X1                                                      MCG      4526
          2746  55141                             SA1    A4-B1                                                   MCG      4527
                     36616                        IX6    X1+X6       IIP = IIP - IIP(2) + O.PIT  */ RESET POINTE MCG      4528
                          54740                   SA7    A4          IIP(2) = O.PIT    */ SAVE NEW BASE          MCG      4529
                               54610              SA6    A1                                                      MCG      4530
          2747  0400002742 +                      EQ     AIP0                                                    MCG      4531
                                                                                                                 MCG      4532
                                                  QUAL                                                           MCG      4533
                                                                                                                 MCG      4534
          2751                                    END                                                            MCG      4535
  
                             57600B CM  STORAGE USED             8404 STATEMENTS     1461 SYMBOLS      000020 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            6.467 SECONDS        2286 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AIL           612   PROGRAM*       10/38     23/22     33/07     36/22     55/18
                                           14/16     31/38     34/12     36/28 L   62/02
        AIL0          607   PROGRAM*       36/19 L   37/18
        AIL1          622   PROGRAM*       37/02 L   37/32
        AIL2          625   PROGRAM*       37/17 L   37/26
        AIL3          626   PROGRAM*       36/55     37/23 L
        AIL4          630   PROGRAM*       37/32 L   37/37
        ALR            13   MCG             9/52     13/16 S   21/45     34/01
        AMX       7777767                  33/25
        ARA            76   MCG            15/45     41/11     41/29     41/52 S   57/48
                                           15/47     41/15     41/40 S   44/24 S   57/50
        ASC           661   PROGRAM*       10/41     40/18 L   55/21     62/05    113/30
        ASC0          660   PROGRAM*       40/11 L   43/06     43/09     43/12     43/32
        ASC1          674   PROGRAM*       41/16 L   41/18
        ASC10         723   PROGRAM*       42/23     43/16 L
        ASC2          677   PROGRAM*       41/20     41/27 L
        ASC3          700   PROGRAM*       41/13     41/29 L
        ASC4          701   PROGRAM*       41/32 L   41/35
        ASC5          707   PROGRAM*       41/10     41/23     41/28     41/39     41/52 L
        ASC6          710   PROGRAM*       40/27     42/01 L
        ASC7          710   PROGRAM*       40/23     42/13 L
        ASC8          713   PROGRAM*       42/15     42/19     42/22 L
        ASC9          716   PROGRAM*       41/50     41/53     42/53 L
        ATS$            0   EXTERNAL*      13/32     69/30     89/14     91/33    110/12
                                           13/34     69/31     89/51     91/35    113/48
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   115
        SYMBOLIC REFERENCE TABLE. 
  
        AVC           740   PROGRAM*       32/05     34/23     44/23     44/26 L   44/38
        AVCA          755   PROGRAM*       44/21     44/55 L
        AVC0          727   PROGRAM*       44/07 L   44/40     44/53
        AVC1          734   PROGRAM*       44/11     44/14     44/20 L
        AXR            12   MCG            10/51     20/10     21/46     35/07     54/56     67/30     84/17     94/14
                                           11/14     20/18     25/40     35/11     65/17     68/09     85/16    106/06
                                           13/14 S   20/24     32/07     38/14     65/43     72/09     86/37
                                           20/06     20/48     33/42     39/27     66/39     76/42     88/12
        BDT#            0   EXTERNAL*       9/41     54/41
        BOOL            2                  49/33     49/51
        B1=1            0 
        CBR           423   PROGRAM*       27/13     27/17     27/38 L   27/41     27/52     27/55
        CBR1          432   PROGRAM*       27/46     27/49     27/54 L
        CC$PC           0   EXTERNAL*      13/35
        CLR           114   PROGRAM*       10/09     10/24     12/44 L
        CLR1          112   PROGRAM*       12/40 L   12/43     12/49
        CRU           353   PROGRAM*       21/07     25/17 L   25/54     26/07     26/14     26/35
                                           25/13     25/35     26/01     26/11     26/24     26/46
        CRU0          351   PROGRAM*       25/10 L   25/43     26/10     26/23     26/30     26/34     26/44     26/48
        CRU1          363   PROGRAM*       25/19     25/21     25/24     25/32     25/37 L
        CRU2          376   PROGRAM*       25/53     26/13 L
        CRU3          402   PROGRAM*       26/15     26/26 L
        CRU4          406   PROGRAM*       25/50     26/41 L
        CSR            72   PROGRAM*       11/08     11/11     11/46 L   12/20     12/27     12/33
        CSR0           76   PROGRAM*       11/57 L   12/34
        CSR1          100   PROGRAM*       12/08 L   12/24
        CSR2          105   PROGRAM*       12/11     12/15     12/18     12/21 L
        CSR3          107   PROGRAM*       11/51     12/29 L
        CSR4           71   PROGRAM*       11/42 L   11/53
        DELTAT          4 
        DRR           222   PROGRAM*       16/40     20/16     20/49     22/46     23/25     23/48     61/37
                                           19/15 L   20/19     21/08     22/48     23/37     23/52
                                           20/14     20/33     21/46     22/54     23/40     58/40
        DRR1          225   PROGRAM*       19/19     19/21 L
        DT             10   MCG 
        DTT            16   PROGRAM*
        DUC           635   PROGRAM*       10/39     31/39     33/27     38/11     38/20 L   55/19     62/03
        DUC0          632   PROGRAM*       38/11 L   38/25     39/03     39/08
        DUC1          644   PROGRAM*       38/28     38/44 L
        DUC2          646   PROGRAM*       38/37     38/40     38/54 L
        DUC3          651   PROGRAM*       39/07 L   39/11     39/15     39/18     39/30
        DUC4          652   PROGRAM*       39/02     39/10 L
        D.ARL           2   GTX            41/04
        D.BML           1   GTX            44/55
        D.BMP          52   GTX            44/55
        D.ECJL          1   GTX            99/08
        D.ECJP         45   GTX            42/22     42/24     99/08
        D.EQVL          1   GTX           109/27
        D.EQVP         65   GTX            82/08    108/17    109/27
        D.FPL           1   GTX            83/25    109/27
        D.FPP          25   GTX            41/27     83/25    109/27
        D.FTL           5   GTX            32/29     42/25
        D.FTP          65   GTX            32/31     42/24     42/28
        D.F1L           4   GTX            16/13     58/16     61/30    113/17
        D.F1P          57   GTX            16/12     16/39     58/15     58/39     61/29     61/35    113/15    113/27
        D.JPL           1   GTX            99/08
        D.JPP          41   GTX            87/27     99/08
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   116
        SYMBOLIC REFERENCE TABLE. 
  
        D.KSL           1   GTX            99/08
        D.KSP          37   GTX            99/08
        D.LDL           1   GTX            83/22     99/08
        D.LDP          43   GTX            40/34     81/30     81/39     83/22     83/25     98/38     99/08
        D.LDSTL         2   GTX            40/19
        D.LDSTP        42   GTX            40/20     40/26     40/34     40/38     42/13
        D.L2L           1   GTX            83/25    109/27
        D.L2P          44   GTX            12/19     40/26     77/35     91/08     98/40    104/03
                                           21/36     46/05     83/25     98/38    100/54    109/27
        D.MUCP         35   GTX            98/19
        D.NRP          64   GTX            16/39     19/18     58/39     61/35     78/08     78/42
        D.PIL           1   GTX            99/08
        D.PIP          36   GTX            11/50     11/52     49/08     49/10     63/18     99/08    100/14    100/25
        D.PRSL          1   GTX            99/08    104/18
        D.PRSP         46   GTX            11/42     27/48     67/53     69/24     71/12     85/34     86/18    104/18
                                           25/31     49/10     69/14     69/43     71/54     85/57     99/08
        D.PSL           1   GTX            99/08
        D.PSP          47   GTX            11/42     20/41     42/22     77/46     86/46     91/47     99/08    104/13
                                           11/52     42/13     77/10     78/42     89/10     92/07    101/01    112/03
        D.REGWL        11   GTX            63/44
        D.REGWP        11   GTX            63/46     63/48     64/12
        D.RFP          23   GTX            81/19     81/30
        D.RJRSL         1   GTX            99/08
        D.RJRSP        50   GTX            99/08
        D.SRL           1   GTX           112/12
        D.SRP          26   GTX            15/39     41/27     57/42    111/15    112/12
        D.STL           1   GTX            99/08    104/18
        D.STP          42   GTX            12/17     21/36     77/35     91/06     99/08    100/54    103/55    104/18
                                           12/19     77/30     82/19     91/08    100/51    103/12    104/03    108/47
        D.STRSL         2   GTX            84/29     89/31     90/17    111/53
        D.STRSP        46   GTX            84/30     89/33     90/19    111/56
        D.SZP          27   GTX            15/32     15/39     16/12     40/38     42/28     57/35     57/42     58/15
        D.TYIOL         2   GTX            38/24     75/09    102/06
        D.TYIOP        50   GTX            29/29     38/44     38/48     75/08    102/05
        D.TYL           2   GTX            25/49     28/49     31/08     44/55     67/50
        D.TYP          72   GTX            19/18     29/29     44/55     76/14     87/27    101/52
                                           20/41     38/33     45/18     81/43    100/14    102/05
                                           21/11     38/44     75/08     87/23    100/51
        D.USESL        11   GTX            14/28     44/09     72/37     98/11
        D.USESP         0   GTX            98/30
        D.XMTL          1   GTX            99/08
        D.XMTP         40   GTX            21/11     99/08
        D.ZPL           1   GTX            83/22     99/08    112/12
        D.ZPP          32   GTX            76/09     76/14     81/39     81/43     82/08     83/22     99/08    112/12
        D.^DP          51   GTX            38/33     38/48    101/52
        EIW           137   MCG            13/31 S  113/40
        EOQA          134   MCG            13/07 S   35/52
        FB            377                  13/11
        FBR           412   PROGRAM*       20/32     26/45     27/09 L   27/14     27/21     27/28     78/40
        FBR1          416   PROGRAM*       27/17 L   27/20
        FBR2          421   PROGRAM*       27/18     27/23 L
        FX         377400                  13/11
        FXR           434   PROGRAM*       20/06     20/24     21/46     28/54     29/11     29/20     29/51     30/18
                                           20/18     20/48     28/18 L   29/06     29/15     29/23     30/14
        FXRA            5   PROGRAM*       11/20     20/18     20/48     72/13     86/41    105/57
                                           20/06     20/24     21/46     84/21     88/18
        FXR0          433   PROGRAM*       28/14 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   117
        SYMBOLIC REFERENCE TABLE. 
  
        FXR2          435   PROGRAM*       28/48 L
        FXR2A         444   PROGRAM*       29/17 L   29/49     30/19
        FXR3          447   PROGRAM*       28/52     29/27 L
        FXR4          453   PROGRAM*       29/40 L   29/48
        FXR5          456   PROGRAM*       29/42     29/48 L   29/55     30/01     30/05
        FXR6          460   PROGRAM*       29/45     29/53 L
        FXR7          464   PROGRAM*       29/47     30/09 L
        FX.B0           1 
        FX.B1           2 
        FX.B2           4 
        FX.B3          10 
        FX.B4          20 
        FX.B5          40 
        FX.B6         100 
        FX.B7         200 
        FX.LD       37000                   9/53     13/15     78/27     85/11
        FX.SCR     377000                  10/54     20/04     67/31     73/16     78/43     84/18     88/14
                                           11/16     20/25     72/10     78/09     79/16     86/38
        FX.ST      140000                  10/53     20/24     65/18     78/45     85/17
                                           20/18     20/48     78/17     84/12
        FX.XT      400400                  11/16     20/04     20/24     20/48     84/18     88/14
                                           13/15     20/18     20/25     72/10     86/38
        FX.X0      200000 
        FX.X1        1000 
        FX.X2        2000 
        FX.X3        4000 
        FX.X4       10000 
        FX.X5       20000 
        FX.X6       40000                  14/36     44/17     54/49
        FX.X7      100000 
        F$RDT           0   EXTERNAL*       1/37
        F.CLC          46   MCG            13/20 S
        F.RDT           0   EXTERNAL*       1/37 D   70/07     92/06    106/25    111/49
                                           69/42     89/30     94/29    111/11
        HC.ID           2   GTX            54/06 F   54/31 F  110/40 F
        HO$ER           0   EXTERNAL*      13/53
        HO$OPT          0   EXTERNAL*      54/34
        ICL             3   MCG            15/20     44/27     57/17     96/27     97/10 S   97/46
                                           36/25 S   55/32     61/13     97/04 S   97/16
        IH.CAIHL       44   GTX            47/16     48/05
        IH.CAIHP        0   GTX            47/19     48/10
        IH.CAL         22   GTX            41/30     49/21
        IH.CAP         22   GTX            41/31     41/43     47/07     48/56     82/38
                                           41/41     41/46     48/41     49/17    110/42
        IH.IHP          0   GTX            82/35
        IH.RFP         44   GTX            23/31     29/04     38/35     48/10     76/17     82/22     82/38    101/53
                                           26/20     31/18     47/19     75/04     81/46     82/35    101/18    108/48
        IIP           135   MCG            13/38 S   35/49     45/44    114/12
        IT.             0   EXTERNAL*       1/37 D  111/41
        IWT            11   MCG            16/06     22/36     43/07     58/09
        I.ICP          72                  37/03     37/08     61/17     77/29     93/22     95/29     96/30
        I.IIP          73                  77/29
        I.INDXL        17                  12/01     70/22     77/16     87/04     92/22     95/16    100/27    103/39
                                           36/47     73/46     82/57     90/40     93/28     98/14    102/25    108/11
        I.INDXP        41                  12/03     70/04     73/51     87/06     91/56     95/19    100/28    103/41
                                           36/49     70/21     77/18     90/05     92/21     95/22    102/37    108/13
                                           69/38     73/50     83/01     90/44     93/28     98/48    102/39
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   118
        SYMBOLIC REFERENCE TABLE. 
  
        I.LINKL        22                  36/31     37/06     96/28     96/57     97/33    103/26
        I.LINKP         0 
        I.LSTL         17                  44/28     57/23     60/11     63/21     90/11     93/28     97/20
        I.LSTP         22                  36/51     57/24     63/22     92/01     95/22     97/19
                                           44/32     60/14     90/13     93/28     96/15     97/22
        I.NPREDL       22 
        I.NPREDP        0 
        I.REGL         22                  94/44
        I.REGP          0                  34/54     35/05    102/39
        I.USESL        11                  23/06     27/43     29/32     30/11     38/54     74/24    102/21    110/18
                                           25/45     29/09     29/35     34/53     38/56     93/28    105/45
        I.USESP        60                  23/08     29/13     35/05     69/20     76/28     91/54    110/21
                                           23/18     29/35     35/36     69/22     90/08     93/28
                                           25/46     30/10     38/56     74/27     90/23    102/24
                                           27/44     34/54     39/01     74/28     91/42    105/46
        JLR           131   MCG            32/06     34/42     86/56
        LLT           123   MCG 
        LRM           132   MCG             8/13 S    9/47     10/21
        LST           122   MCG 
        LXR           124   MCG            10/05     28/48     33/51     35/31     68/55     86/04    105/53
        L$OTI           0   EXTERNAL*       1/37
        L$PIT           0   EXTERNAL*       1/37
        L$TREE          0   EXTERNAL*       1/37
        L$TXT           0   EXTERNAL*       1/37
        L.CLC          63                  13/12
        L.OTI           0   EXTERNAL*       1/37 D   20/15     25/20     44/10     54/05 S  110/09
        L.PIT           0   EXTERNAL*       1/37 D    8/11     10/23 S   35/53 S
        L.TREE          0   EXTERNAL*       1/37 D    9/50 S   10/07 S
        L.TXT           0   EXTERNAL*       1/37 D   69/34     89/55     91/51    101/39
                                           54/23     89/13     90/37     98/09
        MAX.GX          2                  11/02     13/34
        MCG            20   PROGRAM*        8/10 L    9/51      9/56     10/08     10/10
        MCG10          23   PROGRAM*        9/40 L
        MCG11          25   PROGRAM*        9/47 L
        MCG14          32   PROGRAM*        9/42     10/03 L
        MCG#           20   PROGRAM*        8/10 E    8/10 L
        MVE=            0   EXTERNAL*      89/22
        NGX           125   MCG            10/52     11/28
        N$OT            0   EXTERNAL*      54/07
        N.INST          0   MCG            13/27    113/44
        N.SP            1   MCG            14/32 S   25/22     42/16     44/16 S   54/48 S
        OC.DEF          5   GTX            87/55    100/19
        OC.FMA         43   GTX            49/31
        OC.ILS         22   GTX            50/01
        OC.JIN         71   GTX            31/54
        OC.LD          50   GTX           111/42
        OC.NOP         46   GTX            35/57
        OC.RS           4   GTX            70/07
        OC.SA          60   GTX            87/42     88/24     88/34
        OC.SLD         56   GTX            87/40
        OC.ST          51   GTX           111/09
        OC.STT         52   GTX            14/03
        OC.TLD         76   GTX           111/46
        OC.XMT         10   GTX            11/26     65/31     69/41     72/15     84/37     89/28     92/12
                                           49/49     66/21     71/21     72/22     84/55     92/06
        OC.XOR         13   GTX            49/36    106/24
        O$OTI           0   EXTERNAL*       1/37
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   119
        SYMBOLIC REFERENCE TABLE. 
  
        O$PIT           0   EXTERNAL*       1/37
        O$SYM           0   EXTERNAL*       1/37
        O$TREE          0   EXTERNAL*       1/37
        O$TXT           0   EXTERNAL*       1/37
        O.OTI           0   EXTERNAL*       1/37 D  110/16
        O.PIT           0   EXTERNAL*       1/37 D  114/11
        O.SYM           0   EXTERNAL*       1/37 D
        O.TREE          0   EXTERNAL*       1/37 D   36/48     73/43     82/56     89/57     95/15    100/26    103/40
                                           12/02     70/20     77/17     87/05     90/38     98/10    102/20    108/09
        O.TXT           0   EXTERNAL*       1/37 D   13/47     54/24    114/07
        PBI             6   MCG            15/19     18/29     49/30     57/16     60/19     61/47 S
                                           17/48 S   40/21     49/48     59/48 S   61/36 S  113/26 S
        PB.FUL         14 
        PB.FUP         60 
        PB.LIL         22 
        PB.LIP          0                  18/37     60/26
        PB.PIL         22 
        PB.PIP         22                  17/45     18/37     59/45     60/26
        PB.REGL        14 
        PB.REGP        60 
        PB.TEXL        22 
        PB.TEXP        22                  17/40     18/41     59/40     60/30     61/44
        PB.TISL        22 
        PB.TISP         0                  18/41     60/30
        PC            127   MCG            13/42 S   15/34     32/30     43/29     57/37
                                           14/12 S   22/32     42/53     44/31 S
        PC#           127   MCG 
        PJI           470   PROGRAM*       22/52     31/07 L   32/11     32/24     32/42
        PJI1          477   PROGRAM*       31/20     31/25     31/27 L
        PJI2          502   PROGRAM*       31/13     31/34     31/37 L
        PJI4          514   PROGRAM*       32/13 L   32/20
        PJI5          520   PROGRAM*       31/55     32/28 L
        PJI6          525   PROGRAM*       32/37     32/41 L
        PPI           530   PROGRAM*       23/46     33/10 L   34/24
        PPIB          606   PROGRAM*       35/47     35/57 L
        PPI0          526   PROGRAM*       33/06 L   33/46     34/04     35/15     35/41
                                           33/29     33/56     34/44     35/25
        PPI10         573   PROGRAM*       34/43     35/20 L
        PPI11         575   PROGRAM*       34/45     35/29 L
        PPI4          545   PROGRAM*       33/48     34/01 L
        PPI6          552   PROGRAM*       34/23 L
        PPI7          557   PROGRAM*       34/38     34/40 L
        PPI8          571   PROGRAM*       35/04     35/11 L
        PPI.JT       1055   PROGRAM*       33/14     52/01 D
        PRS           117   PROGRAM*       10/28     13/06 L   14/18     54/44
        PRS1          124   PROGRAM*       13/21 L   13/25
        PRS2          131   PROGRAM*       13/28     13/34 L
        PRS3          147   PROGRAM*       13/54     13/55     14/05     14/14 L
        RBV           140   MCG            25/41     30/16     35/06     38/13     66/40     76/43     94/15
                                           29/08     32/15     35/12     39/26     68/10     78/53     94/16
                                           29/53     33/43     35/30     65/44     75/26     86/03    106/05
        REG=A0          3   PROGRAM*       45/17     48/17     48/49
        RIO#            0   EXTERNAL*      54/39
        RMR             4   MCG            41/22 S   41/49 S   48/04
        RN.A0          10                  15/57     40/40     41/40 S   41/52 S   48/40     58/03
        RN.MASK    600001   GTX            36/20     98/06
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   120
        SYMBOLIC REFERENCE TABLE. 
  
        RN.X0          20                  11/07     66/08     73/08     73/44     77/56     84/24     85/48
                                           63/53     66/09     73/22     77/05     80/34     85/27     86/12
                                           65/30     66/36     73/32     77/50     80/42     85/46     86/21
        RVT            15   MCG            11/47     32/18 S   63/34     66/41 S   75/29     80/40     86/55    106/18
                                           12/48 S   33/40 S   63/52     68/05     76/38     84/25     89/18 S  107/07
                                           23/11     34/55 S   65/22     68/15 S   77/07     85/30     94/10    107/08
                                           23/16 S   35/08 S   65/32     72/34     79/29     85/49     94/13 S
                                           25/28     35/29     65/38     73/08     79/44     85/55     94/43
                                           25/37     38/23     66/10     73/44     80/28     86/16    102/50
                                           27/40     63/33     66/16     74/22     80/34     86/43    106/09 S
        R1.H2L         14   GTX            48/13
        R1.H2P         22   GTX            48/22
        R1.INP         36   GTX            13/57     46/57
        R1.OCL         14   GTX            88/45
        R1.RIL         20   GTX            29/41     39/07     76/31     88/47    103/03
                                           38/38     75/22     88/45    101/57
        R1.RJP         40   GTX            21/20     26/05     45/26     46/40     69/53     87/50     92/14    101/09
                                           21/27     26/27     45/30     48/52     71/46     88/41     92/29    106/28
                                           23/03     26/31     46/13     49/54     71/49     88/42     94/31
                                           26/03     33/21     46/25     69/49     81/50     89/37    101/07
        R1.RKP         20   GTX            26/05     45/30     46/40     87/37     88/36     88/44    106/29
                                           26/31     46/37     71/49     87/50     88/42    101/09
        R1.SOP         20   GTX            12/31     26/43     27/25     33/36     46/49     72/04     86/32    103/17
                                           21/04     27/10     27/51     34/31     71/15     78/50     87/57
        SEQTIME         2   MCG 
        SII           765   PROGRAM*       10/43     31/41     34/15     35/48     52/02 D   55/23     62/07    113/32
        SIS            40   PROGRAM*        9/43     10/26 L
        SIS0           36   PROGRAM*       10/21 L   10/57     11/01     11/03     11/12
        SIS1           43   PROGRAM*       10/38 L   10/46
        SIS2           47   PROGRAM*       10/36     10/45 L   11/31
        SIS3           61   PROGRAM*       11/09     11/14 L
        SIS4           66   PROGRAM*       11/24     11/26 L
        SI.CAP         36   GTX            47/01     47/09     48/41     49/23
        SI.IHP         14   GTX            46/09     47/22     48/18
        SI.RJP          6   GTX            45/20     46/18     47/24     48/43     49/38
                                           45/36     46/51     48/20     49/05     49/40
        SI.RKP         14   GTX            45/38     46/30     46/44     49/40     50/04
        SNI           161   PROGRAM*       10/45     15/17 L   17/53     18/34     18/43
        SNIA          160   PROGRAM*       15/15 L   16/38 S   17/35     58/38 S   59/35
        SNI0          162   PROGRAM*       15/19 L   16/42
        SNI1          164   PROGRAM*       15/28 L   18/27
        SNI2          173   PROGRAM*       15/51 L   15/53
        SNI3          200   PROGRAM*       15/40     15/55     16/06 L
        SNI4          201   PROGRAM*       15/33     15/37     16/02     16/04     16/12 L
        SNI5          202   PROGRAM*       16/37 L
        SNI6          205   PROGRAM*       16/37     16/44 L
        SNI7          206   PROGRAM*       16/41     16/49 L
        SNI8          207   PROGRAM*       17/34 L
        SNI9          215   PROGRAM*       16/45     17/02     18/02 L
        SO.LKL          2   GTX            34/35
        SO.LKP          6   GTX            12/31     26/43     33/41     34/34
        SO.REGL         6   GTX            21/03     27/11     72/05     78/51     86/31
        SO.RNL          3   GTX            33/37     34/32     40/32     46/48     71/16    103/18
        SO.RTL          3   GTX            33/37     34/32     46/48     71/16     88/01    103/18
        SO.RTP          3   GTX            87/57
        SO.SFLP        12   GTX            27/51
        SSP           152   PROGRAM*       14/17     14/26 L   14/35     14/38     32/04     33/08     34/13
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   121
        SYMBOLIC REFERENCE TABLE. 
  
        STL            14   MCG            14/33 S   20/03     20/11     42/20 S   44/18 S   54/50 S
        SVL             0   CCGSCR
        S$IT            0   EXTERNAL*       1/37
        S$OT            0   EXTERNAL*     110/41
        T             126   MCG            11/15     17/44     40/16 S   57/32     61/28     88/13    113/10
                                           15/29     32/36 S   44/34 S   59/44     64/23     94/21
        TFU           106   MCG            44/49 S   58/18
        TRA            46   MCG            11/21     22/11     25/10     31/23     35/02 S   58/03     94/22
                                           15/57     22/44     29/17     31/32     39/25 S   64/26 S  113/11
                                           20/34     23/34     29/56     34/52     44/42 S   88/19
        TRS           130   MCG            31/12 S   44/35 S
        TSL           725   PROGRAM*       40/39     43/49 L
        TYIOM           0   PROGRAM*       29/31     38/46     75/12     76/22    102/09
        TYIOM#          0   PROGRAM*
        T(INF)     377777                  29/38
        U.EQVP         71                  73/54    108/27
        U.LASTP        73                  70/54     90/23     96/30
        U.LSTL         22 
        U.LSTP         22                  96/12
        U.PREDL        22 
        U.PREDP        44                  70/45     71/04     91/18     91/20     91/22     92/30     93/02     93/04
        U.RDLP         72                  95/49    102/45
        U.SUCCL        22 
        U.SUCCP         0                  71/04    102/45
        Z$OTI           0   EXTERNAL*      13/32    110/12
        Z$PIT           0   EXTERNAL*      13/34    113/48
        Z$TREE          0   EXTERNAL*      69/31     89/51     91/35
        Z$TXT           0   EXTERNAL*      69/30     89/14     91/33
        .CPU          111   GTX             1/39     16/16 F   18/05 F   21/48 F   28/19 F   42/02 F   42/57 F   58/21 F
                                            8/16 F   16/50 F   18/46 F   22/13 F   40/41 F   42/29 F   43/17 F   58/50 F
                                           10/29 F   17/03 F   21/14 F   23/51 F   40/49 F   42/46 F   43/34 F   59/03 F
        .DAL            1   GTX            40/24 F   41/57 F   77/33 F   98/34 F  100/53 F  103/56 F
        .IWT            0   GTX            13/08 F   34/16 F
        .P             53                  44/55 D   44/55     44/55 D   44/55
        .Z              0                  44/55 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  JAM 
  
  
        AIP          2743   PROGRAM*       69/32     89/23     89/53     91/36    110/13    113/49    114/10 L
        AIP0         2742   PROGRAM*      114/07 L  114/14    114/20
        AIS          2733   PROGRAM*       65/09     67/29    113/39 L  113/43    113/50
        CLASS         202   MCG            55/51 L   67/34     67/42     73/15    105/52
                                           67/17 S   67/38     68/11     75/19
        CNU          1337   PROGRAM*       55/29     63/16 L   64/19     64/31
        CNU0         1336   PROGRAM*       63/14 L   63/19
        CNU1         1350   PROGRAM*       63/32     63/39     63/44 L   64/32
        CNU2         1353   PROGRAM*       63/52 L   64/18
        CNU3         1357   PROGRAM*       64/09 L   64/16
        CNU4         1362   PROGRAM*       64/01     64/04     64/18 L
        CNU5         1363   PROGRAM*       64/11     64/23 L
        COA          1617   PROGRAM*       71/47     71/50     72/31 L   72/35     72/41
        CRA          2071   PROGRAM*       67/39     84/11 L   84/41     85/07     88/54
        CRA1         2102   PROGRAM*       84/33     84/37 L   86/01     86/19     86/47
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   122
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        CRA10        2145   PROGRAM*       85/12     86/28 L
        CRA11        2155   PROGRAM*       86/36     86/55 L
        CRA12        2162   PROGRAM*       87/12 L   87/19     87/24     87/28     87/39
        CRA13        2163   PROGRAM*       87/10     87/16 L
        CRA14        2170   PROGRAM*       87/26     87/35 L
        CRA14A       2176   PROGRAM*       87/49     87/52 L
        CRA15        2202   PROGRAM*       87/02     87/29     87/41     87/43     87/56     88/07 L
        CRA2         2105   PROGRAM*       84/34     84/46 L
        CRA21        2203   PROGRAM*       87/13     88/03     88/12 L
        CRA22        2210   PROGRAM*       88/22     88/24 L
        CRA24        2220   PROGRAM*       88/35     88/40     88/52 L
        CRA3         2107   PROGRAM*       84/50     84/54 L   86/07     86/49
        CRA4         2115   PROGRAM*       84/13     85/11 L
        CRA5         2122   PROGRAM*       85/30 L   85/47
        CRA6         2127   PROGRAM*       85/38     85/42 L
        CRA7         2130   PROGRAM*       85/31     85/35     85/39     85/41     85/45 L
        CRA8         2134   PROGRAM*       85/52     85/55 L   86/24
        CRA9         2140   PROGRAM*       85/19     86/12 L
        CRA9A        2141   PROGRAM*       86/16 L   86/22
        CRC          2011   PROGRAM*       64/27     79/13     79/36     80/31 L   85/15
        CRCA         2067   PROGRAM*       80/33     83/22 L
        CRCB         2070   PROGRAM*       81/37     83/25 L
        CRC0         2010   PROGRAM*       80/28 L   81/12
        CRC1         2021   PROGRAM*       80/51 L   81/20     81/40     81/56     82/02     82/25     82/53     83/19
        CRC10        2050   PROGRAM*       82/20     82/27 L   82/34     82/40     82/45
        CRC11        2055   PROGRAM*       82/37     82/42 L
        CRC12        2063   PROGRAM*       83/06 L   83/10
        CRC2         2022   PROGRAM*       80/55 L   81/32     82/10     82/28
        CRC2A        2025   PROGRAM*       81/04     81/06 L
        CRC3         2026   PROGRAM*       80/57     81/03     81/05     81/10 L   81/14     81/17
        CRC4         2027   PROGRAM*       80/38     80/44     80/46     81/14 L
        CRC5         2032   PROGRAM*       81/21     81/30 L
        CRC6         2037   PROGRAM*       81/44     81/49 L
        CRC7         2040   PROGRAM*       81/47     81/52 L
        CRC9         2043   PROGRAM*       81/41     82/08 L
        CSI          1722   PROGRAM*       67/20     77/04 L   77/52
        CSI1         1724   PROGRAM*       77/07 L   77/51     77/57
        CSI2         1730   PROGRAM*       77/24 L   77/42
        CSI3         1734   PROGRAM*       77/27     77/39 L
        CSI4         1737   PROGRAM*       77/11     77/44     77/49 L
        CSI5         1741   PROGRAM*       77/32     77/54 L
        DRI           207   MCG            55/56 L  106/33 S  106/53    111/14 S  111/39
                                           94/34 S  106/45    109/24 S  111/21
        DRT          1743   PROGRAM*       67/14     78/18     78/28     78/35     78/44     78/55
                                           78/07 L   78/25     78/32     78/36     78/46
        DRT0         1572   PROGRAM*       71/33 L   78/23     78/30     78/31     78/33     78/34     78/41
        DRT1         1746   PROGRAM*       78/11     78/13 L
        DRT2         1763   PROGRAM*       78/15     78/40 L
        DRT3         1767   PROGRAM*       78/21     78/50 L
        FRR          1773   PROGRAM*       67/43     79/15 L   79/49
        FRRA         2007   PROGRAM*       79/24 S   79/40     79/51 L
        FRR0         1772   PROGRAM*       79/11 L   79/17
        FRR1         1777   PROGRAM*       79/26 L   79/32
        FRR2         2002   PROGRAM*       79/27     79/34 L
        FRR5         2004   PROGRAM*       79/44 L   79/48
        FSR          1624   PROGRAM*       68/03     73/07 L   73/37     73/39     74/19     74/21     74/33     74/35
        FSRA         1661   PROGRAM*       73/13 S   73/26 S   73/29     74/37 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   123
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        FSR1         1632   PROGRAM*       73/21 L   73/24     73/27
        FSR2         1635   PROGRAM*       73/17     73/21     73/29 L
        FSR3         1642   PROGRAM*       73/34     73/36     73/43 L
        FSR4         1647   PROGRAM*       74/01 L   74/03     74/07
        FSR5         1651   PROGRAM*       74/09 L   74/11     74/15
        GLI          2703   PROGRAM*       69/08    109/20    111/36 L  112/04    112/10
        GLIA         2720   PROGRAM*      111/50    112/12 L
        GLI1         2711   PROGRAM*      111/45    111/47 L
        GOR          1663   PROGRAM*       73/19     74/49 L   74/55     75/36     79/19    105/27
        GOR1         1670   PROGRAM*       74/56     75/08 L
        GOR2         1673   PROGRAM*       75/06     75/17 L
        GOR3         1674   PROGRAM*       75/21 L   75/34
        GOR4         1701   PROGRAM*       75/23     75/28     75/30     75/34 L
        GOT          2652   PROGRAM*      110/07 L  110/56    111/20
        GOT1         2661   PROGRAM*      110/11    110/16 L
        GOT2         2663   PROGRAM*      110/25 L  110/29
        GOT3         2666   PROGRAM*      110/26    110/34 L
        GOT4         2667   PROGRAM*      110/32    110/37 L
        IIX          1573   PROGRAM*       67/55     71/44 L   71/48     71/51     72/25
        IIXA         1616   PROGRAM*       72/07 S   72/17     72/27 L
        ISC           172   MCG            32/09 S   55/49 D   82/11    103/25
        ISI          1310   PROGRAM*       61/12 L   67/19 S   67/25     71/24     71/57     84/40     88/53
                                           61/39     67/21     68/47     71/26     77/55     85/04    109/17
        ISI0         1306   PROGRAM*       61/08 L   61/38     62/08
        ISI1         1314   PROGRAM*       61/22 L   61/26
        ISI2         1316   PROGRAM*       61/20     61/28 L
        ISI3         1331   PROGRAM*       61/49     62/01 L
        JAM          1170   PROGRAM*       10/01     54/20 L
        JAM0         1164   PROGRAM*       54/03 L   54/42
        JAM1         1210   PROGRAM*       54/55 L   55/28     55/30
        JAM2         1213   PROGRAM*       55/01     55/04 L
        JAM3         1221   PROGRAM*       55/08     55/17 L
        JAM4         1225   PROGRAM*       55/06     55/25 L
        JAM5         1226   PROGRAM*       55/28 L   55/41
        JAM6         1230   PROGRAM*       55/05     55/32 L
        LRN           172   MCG            34/56 S   55/48 L   55/49     81/57    103/22 S
        MIN.D          70                  63/12 D   63/50     98/52     99/04
        M.OT          170   MCG            54/03     54/21 S   55/46 L  110/08    110/14    110/35 S
        N.UR0          11                  53/45 D   54/45     55/10     61/51
        OEI          2721   PROGRAM*       94/39    106/40    106/48    106/56    111/26    113/09 L  113/33
        OTS          2672   PROGRAM*       69/05    109/13    111/08 L  111/27
        OXI          2340   PROGRAM*       11/27     66/26     72/16     84/38     88/25     94/50
                                           65/35     71/22     72/23     85/02     94/09 L
        PIS           215   MCG            56/02 L   63/26 S   63/47
        RF.SAV          0                  80/26 D   81/22 F   83/21 F
        RII          1702   PROGRAM*       65/51     68/34     68/49     76/05 L   76/10     76/49
        RII1         1710   PROGRAM*       76/15     76/21 L
        RII2         1712   PROGRAM*       76/19     76/27 L
        RII3         1713   PROGRAM*       76/30 L   76/47
        RII4         1721   PROGRAM*       76/32     76/41     76/47 L
        RIL          2356   PROGRAM*       76/06     89/48     93/25     95/13 L   97/05     97/44     97/51    111/37
        RIL1         2364   PROGRAM*       95/35 L   95/54
        RIL10        2423   PROGRAM*       97/26     97/32 L
        RIL11        2427   PROGRAM*       97/36     97/46 L
        RIL2         2365   PROGRAM*       95/38 L   95/47     95/50     96/01
        RIL3         2366   PROGRAM*       95/30     95/42 L
        RIL4         2373   PROGRAM*       95/39     96/05 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   124
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        RIL5         2403   PROGRAM*       96/33 L   96/39
        RIL6         2404   PROGRAM*       96/31     96/37 L   96/51
        RIL7         2414   PROGRAM*       96/35     96/53     96/55     97/07 L
        RIL8         2416   PROGRAM*       96/23     97/09     97/16 L
        RIL9         2420   PROGRAM*       97/24 L   97/30
        RLL1         2462   PROGRAM*      100/38 L  101/29
        RLL1A        2470   PROGRAM*      100/47    101/06 L
        RLL2         2474   PROGRAM*      101/06    101/17 L
        RLL3         2476   PROGRAM*      100/52    100/55    101/04    101/11    101/14    101/22 L
        RLL4         2477   PROGRAM*      100/43    101/15    101/21    101/26 L
        RLL5         2502   PROGRAM*      101/33    101/39 L
        RTGL         2555   PROGRAM*      105/19 L  106/23 S  106/42    106/50    107/04
        RV.COSTL       13                  53/51 D
        RV.COSTP       60                  53/51 D
        RV.LOCKP       73                  53/50 D
        RV.NUL         22                  53/54 D
        RV.NUP         22                  53/54 D   63/57     82/18     83/12     84/47     86/02    102/57
                                           63/35     81/01     82/49     83/16     84/54     86/48
                                           63/36     82/16     82/52     84/46     85/37    102/53
        RV.RNL         22                  53/55 D
        RV.RNP          0                  53/55 D
        RV.SROP        44                  53/53 D   65/23     66/18
        R0            203   MCG            55/52 L   68/33     69/10     89/07     90/36    106/49    111/10
                                           65/41 S   68/48     69/33     89/15     91/37    107/03    112/08 S
                                           66/22 S   68/54     71/23     89/27    105/42    108/08
                                           68/07 S   69/07     85/01 S   90/10    106/41    109/19
        SF            171   MCG            54/55     55/47 L   65/25 S   66/42 S
        SIW           206   MCG            55/55 L   89/49     96/21 S
        SMB          2432   PROGRAM*       54/51     98/08 L
        SMBA         2452   PROGRAM*       98/18     99/08 L
        SMB0         2431   PROGRAM*       98/06 L   98/28
        SMB1         2440   PROGRAM*       98/23 L   99/02
        SMB2         2441   PROGRAM*       98/21     98/26 L   98/31     98/41     98/54     99/06
        SMB3         2445   PROGRAM*       98/37     98/42 L
        SMB4         2447   PROGRAM*       98/56 L   99/05
        SNI          1236   PROGRAM*       55/04     57/15 L   59/53     60/23     60/32
        SNI0         1235   PROGRAM*       57/13 L   58/42
        SNI1         1243   PROGRAM*       57/31 L   60/17
        SNI10        1302   PROGRAM*       60/05     60/19 L
        SNI2         1252   PROGRAM*       57/54 L   57/56
        SNI3         1257   PROGRAM*       57/43     58/01     58/09 L
        SNI4         1260   PROGRAM*       57/36     57/40     58/05     58/07     58/15 L
        SNI5         1263   PROGRAM*       58/20     58/37 L
        SNI6         1266   PROGRAM*       58/37     58/44 L
        SNI7         1267   PROGRAM*       58/41     58/49 L
        SNI8         1270   PROGRAM*       59/34 L
        SNI9         1276   PROGRAM*       58/45     59/02     60/02 L
        SNU          2504   PROGRAM*       55/26    100/13    103/11    103/23    104/16
                                           61/09    101/45 L  103/21    104/04
        SNUA         2554   PROGRAM*      103/09    104/18 L
        SNU0         2453   PROGRAM*      100/12 L  101/48
        SNU1         2512   PROGRAM*      101/49    102/05 L
        SNU10        2551   PROGRAM*      103/49    103/53    104/02    104/06 L
        SNU2         2517   PROGRAM*      100/20    101/37    101/43    101/55    102/03    102/13    102/17    102/20 L
        SNU3         2521   PROGRAM*      102/29 L  103/04
        SNU4         2524   PROGRAM*      102/42 L  102/48
        SNU5         2530   PROGRAM*      102/30    102/33    103/03 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   125
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        SNU6         2531   PROGRAM*      100/15    103/08 L
        SNU7         2537   PROGRAM*      103/13    103/25 L
        SNU9         2544   PROGRAM*      103/46 L  104/09
        SRM          2621   PROGRAM*       65/56     66/30     68/27     68/43    108/07 L  109/21
        SRMA         2651   PROGRAM*      108/45    109/27 L
        SRM1         2626   PROGRAM*      108/26 L  108/33
        SRM2         2630   PROGRAM*      108/28    108/31 L
        SRM3         2632   PROGRAM*      108/18    108/44 L
        SRM4         2634   PROGRAM*      108/50 L  109/11
        SRM6         2641   PROGRAM*      108/53    108/56    109/01    109/05    109/09 L
        SRM7         2643   PROGRAM*      109/15 L  109/25
        SRM7A        2645   PROGRAM*      109/16    109/19 L
        SRM8         2647   PROGRAM*      109/07    109/23 L
        SSR          1373   PROGRAM*       64/28     65/11 L   65/27
        SSR0         1371   PROGRAM*       65/06 L   65/52     65/57
        SSR1         1402   PROGRAM*       65/20     65/29 L
        SSR2         1405   PROGRAM*       65/33     65/35 L
        SSR3         1407   PROGRAM*       65/13     65/38 L
        SSR4         1415   PROGRAM*       65/50     65/54 L
        SUR          1420   PROGRAM*       55/02     66/07 L   66/45
        SURA         1441   PROGRAM*       66/25 S   66/31     66/47 L
        SUR1         1425   PROGRAM*       66/13     66/16 L   66/37
        SUR2         1434   PROGRAM*       66/19     66/35 L
        SXB          2222   PROGRAM*       85/06     89/06 L   90/29     93/18     93/26    112/09
        SXBA         2336   PROGRAM*       89/56     93/28 L
        SXBB         2337   PROGRAM*       90/35 S   93/11     93/29 L
        SXBS         2257   PROGRAM*       89/11     90/35 L
        SXB0         2246   PROGRAM*       89/50     89/55 L
        SXB1         2264   PROGRAM*       90/53 L   91/04     91/07     91/09     91/13     91/25     91/27
        SXB2         2265   PROGRAM*       90/48     90/57 L
        SXB3         2275   PROGRAM*       90/54     91/31 L
        SXB4         2320   PROGRAM*       92/33 L   92/49
        SXB5         2321   PROGRAM*       92/37 L   92/45     92/56     93/07
        SXB6         2322   PROGRAM*       92/31     92/41 L
        SXB7         2330   PROGRAM*       92/38     93/09 L
        TGL          2556   PROGRAM*       68/23     68/41    105/21 L  105/32    107/21
        TGL20        2562   PROGRAM*      105/32 L  105/37
        TGL40        2565   PROGRAM*      105/35    105/42 L
        TM            216   MCG            56/03 L   57/27 S   60/13
        T0            204   MCG            55/37     66/12 S   67/47     68/46     71/56     73/18     85/03     88/52
                                           55/53 L   67/13 S   68/26 S   71/09     72/01     79/18     86/28    105/26
                                           65/55 S   67/24     68/30 S   71/25     72/18     84/39     88/26    109/15
        T0C           205   MCG            55/54 L   67/12 S   68/28
        UJR          1442   PROGRAM*       55/35     67/27     67/40     68/44     71/27
                                           67/08 L   67/36     67/56     68/50
        UJRA         1571   PROGRAM*       69/03 S   71/19     71/29 L
        UJR0         1451   PROGRAM*       67/24 L   68/24     68/42     71/07
        UJR0A        1453   PROGRAM*       67/22     67/29 L
        UJR1         1460   PROGRAM*       67/38 L   68/31     68/35
        UJR10        1515   PROGRAM*       68/16     68/54 L
        UJR2         1462   PROGRAM*       67/33     67/42 L
        UJR2A        1471   PROGRAM*       67/52     67/54     68/03 L
        UJR20        1551   PROGRAM*       70/29 L   70/32
        UJR3         1472   PROGRAM*       67/46     68/05 L
        UJR30        1553   PROGRAM*       70/30     70/36 L
        UJR4         1505   PROGRAM*       68/22     68/33 L
        UJR40        1560   PROGRAM*       69/15     71/09 L
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   126
        SYMBOLIC REFERENCE TABLE.                                     JAM 
  
        UJR5         1507   PROGRAM*       68/18     68/39 L
        UJR6         1512   PROGRAM*       68/39     68/46 L
        UJR.E1       1572   PROGRAM*       71/13     71/34 L   88/07
        UOR           213   MCG            55/34 S   55/36     55/57 L   61/10 S   63/15 S   64/24 S   64/29
        UR            214   MCG            54/46 S   55/09     56/01 L   61/50     63/45     65/06     66/27
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     II                                 31/43 F
  U     JAM                                53/43 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  DRR 
  
  
        DRR2          222   PROGRAM*       20/06     20/18     20/24     20/48     21/17     22/01     22/27
                                           20/06     20/18     20/24     20/48     21/25     22/24     23/52 D
        ECJ           323   PROGRAM*       19/33     22/32 L
        ECJ1          326   PROGRAM*       22/33     22/35     22/39 L
        JP            332   PROGRAM*       19/42     22/52 L
        KS            344   PROGRAM*       19/48     23/31 L
        LD            311   PROGRAM*       19/37     21/45 L
        LD1           316   PROGRAM*       21/46     21/47 L
        LVL2          307   PROGRAM*       19/35     21/36 L
        MUC           257   PROGRAM*       19/53     20/24 L
        PI            347   PROGRAM*       19/51     23/46 L
        PRS           300   PROGRAM*       19/30     21/03 L
        PRS1          304   PROGRAM*       21/12     21/19 L
        PS            272   PROGRAM*       19/27     20/48 L
        RJRS          265   PROGRAM*       19/25     20/32 L
        RJRS1         271   PROGRAM*       20/36     20/40 L
        SCR           241   PROGRAM*       20/03 L   20/42     21/37     23/10     23/12
        SCR1          242   PROGRAM*       20/06 L   20/13     20/26
        ST            317   PROGRAM*       19/40     21/39     22/07 L
        XMT           334   PROGRAM*       19/45     23/02 L
        XMT1          340   PROGRAM*       21/30     23/16 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  SII 
  
  
        LSS1         1021   PROGRAM*       48/16     48/18 L
        LSS2         1025   PROGRAM*       48/07     48/36 L
        PLD1         1034   PROGRAM*       48/57     49/04 L
        PLD2         1037   PROGRAM*       49/09     49/16 L
        PLD3         1040   PROGRAM*       49/11     49/21 L
        SII           765   PROGRAM*       45/43 L   48/32     52/02
        SIIA         1055   PROGRAM*       45/47     50/27 L   52/01
1       MCG - MACHINE CODE GENERATOR - JAM MODE                       COMPASS 3.7-871.     24/05/02. 13.13.07.      PAGE   127
        SYMBOLIC REFERENCE TABLE.                                     SII 
  
        SII0          764   PROGRAM*       45/22     46/20     46/46     47/03     47/27     48/24     49/25     49/43
                                           45/41 L   46/32     46/53     47/11     47/33     48/45     49/35     50/06
        TYI           761   PROGRAM*       45/19     45/26 L
        TYII         1005   PROGRAM*       46/57 L
        TYIII        1011   PROGRAM*       47/15 L
        TYIV         1014   PROGRAM*       47/32 L
        XMT           774   PROGRAM*       46/06     46/12 L
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1066              IDENT  BDT
                       1066              F$BRDGE  END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1066 
                                        MCG       COMMON          0         3 
                                        CCGSCR    COMMON          0        40 
  
  
                                        ENTRY POINTS. 
  
                                        B=BDT            0+           RIO#           464+           RNI#          1036+ 
                                        BDT#             1+           CRW#           761+           F$BRDGE       1066+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$IIT     L$TET     O$TXT     S$IT      MVE=      Z$TREE    NBIP# 
                                        L$IIT     O$TREE    L$TXT     O$SYM     SHL#      HBI#      GRASRF# 
                                        O$TET     L$TREE    F$RDT     TYIOM#    ATS$      SST#
  
  
  
  
                                                  IDENT  BDT                                                     BDT         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=BDT    RPVDEF                                                         BDT         5
                                         SNAP..   OPSYN  SNAP                                                    CCGA017     8
                                                  PURGMAC  SNAP                                                  CCGA017     9
                                                  MACRO  SNAP,NAME,FWA,LEN,LWA,AREG,LL,UL,INC,NUSE,UF            CCGA017    10
                                         NAME     SNAP.. FWA,LEN,LWA,NOREG,LL,UL,INC,NUSE,UF                     CCGA017    11
                                         SNAP     ENDM                                                           CCGA017    12
                                                                                                                 CCGA017    13
                                                                                                                 CCG1      286
                                                  TABLES (IIT,TET,TREE,TXT)                                      CCGNC     794
  
  
  
                                        **        BDT - BUILD DEPENDENCY TREE ( FORM DEPENDENCY GRAPH )          BDT        11
                                        *         BDT FORMS THE DEPENDENCY GRAPH OF A SEQUENCE OF *IL*           BDT        12
                                        *         INSTRUCTIONS WHICH TAKES INTO ACCOUNT THE OPERAND, DATA        BDT        13
                                        *         INTERFERENCE, REGISTER REDEFINITION AND BLOCK CONSTRAINT       BDT        14
                                        *         DEPENDENCIES ( LINKS ) OF THE INSTRUCTIONS.  IT ALSO COMPUTES  BDT        15
                                        *         THE PERT LATE START TIMES FOR EACH INSTRUCTION, AND SORTS THE  BDT        16
                                        *         THE SUCCESSOR INDEX LISTS ACCORDING TO THEM.                   BDT        17
                                        *                                                                        BDT        18
                                        *         S.I. JASIK - FEB 1973                                          BDT        19
                                        *                                                                        BDT        20
                                        *         ENTRY  (X6) = TREE MODE = 0/1 - PRIORITY CALC / JAM MODE       BDT        21
                                        *                (SIOCALL) = 1 IF CALL FROM *RIO* FOR A PARTIAL TREE     BDT        22
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     2
                                                                      BDT 
  
                                        *                *TXT* - INSTRUCTION SEQUENCE, LINK WORDS ARE ZERO.      BDT        23
                                        *                                                                        BDT        24
                                        *         EXIT   *TREE* = SUCCESSOR INDEX TABLE IN "U." FORMAT           BDT        25
                                        *                LINK WORDS OF INSTRUCTIONS IN "I." FORMAT               BDT        26
                                        *                N.INST, N.ST , SEQTIME SET                              BDT        27
  
  
  
                                                  USE    /MCG/                                                   BDT        29
             0                     1     N.INST   BSS    1           NUMBER OF INSTRUCTIONS ( L.TXT/4 )          BDT        30
             1                     1     N.ST     BSS    1           NUMBER OF STORES IN *TXT*                   BDT        31
             2                     1     SEQTIME  BSS    1           CRITICAL PATH TIME ( CALCULATED IN *CIP* )  BDT        32
                                                  USE    0                                                       BDT        33
  
  
  
                                        **        DEBUGGING FACILITIES                                           BDT        35
                                        *                                                                        BDT        36
                                        *         BASIC SNAPS - *IL* SEQUENCE AND *SIT* ON EXIT                  BDT        37
                                        *         TRACER BDT                                                     BDT        38
                                        *                                                                        BDT        39
                                        *         TO SNAP THE FINAL DEPENDENCY TREE                              BDT        40
                                        *         TRACER TREE                                                    BDT        41
                                        *                                                                        BDT        42
                                        *         TO TRACE EACH PHASE -                                          BDT        43
                                        *         TRACER (RNI,IH,FIL,FOL,FTL,FJL)                                BDT        44
                                                                                                                 BDT        45
                                        **        TREE - SNAPSHOT DUMP OF THE DEPENDENCY TREE                    BDT        46
                                        *         NOTE - TREE MACRO MAY BE CALLED BETWEEN FIL2 AND FTL5 ONLY     BDT        47
                                                                                                                 BDT        48
                                         TREE     MACRO  LAB                                                     BDT        49
                                                  IF     DEF,/DEBUG/LAB,1                                        BDT        50
                                         TREE-LAB SNAP   *A7,*TREEL,,,1,200,1                                    FEAT155F  261
                                                  ENDM                                                           BDT        52
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     3
        TABLE FORMATS                                                 TABLES
  
                                                  LIST   -R                                                      BDT        54
                                                                                                                 BDT        55
                                        **        DEPENDENCY TREE ( FIL,FOL,FTL, ETC)                            BDT        56
                                                                                                                 BDT        57
                                                  DESCRIBE T.,60     TREE(EQVL,SUCC,PRED)                        FCC0448   158
                                                  DEFINE 18                                                      BDT        59
      L     30  00000077777700000000     SUCC     DEFINE 18          INDEX TO *TXT* OF SUCCESSOR                 BDT        60
                                                  DEFINE 1                                                       BDT        61
      L     26  00000000000020000000     RDL      DEFINE 1           REGISTER REDEFINITION LINK                  FCC0448   159
      L     25  00000000000010000000     EQVL     DEFINE 1           DATA INTERFERENCE LINK                      FCC0448   160
                                                  DEFINE 3                                                       FCC0448   161
             0  00000000000000777777     PRED     DEFINE 18          INDEX TO *TXT* OF PREDECESSOR               BDT        64
  
  
  
                                        **        IH INFO TABLE ( FIL )                                          BDT        66
                                                                                                                 BDT        67
                                                  DESCRIBE IH.,60    IHINFO(BITS,R2W)                            BDT        68
      L     73  40000000000000000000     LD       DEFINE 1                                                       BDT        69
      L     72  20000000000000000000     ST       DEFINE 1                                                       BDT        70
      L     71  10000000000000000000     BM       DEFINE 1                                                       BDT        71
                                                  DEFINE 57          R2 WORD OF MEM REF INSTRUCTION              BDT        72
  
  
  
                                        **        USES INDEX TABLE ( FINAL FORMAT OF TREE )                      BDT        74
                                        *                SORTED ON *PRED* , *LST* AND *SUCC* FIELDS.             BDT        75
                                                                                                                 BDT        76
                                                  DESCRIBE U.,60     SIT(LAST,PRED,LST,SUCC)                     BDT        77
      L     73  40000000000000000000     LAST     DEFINE 1           "0 IF LAST EDGE OF A *PRED* GROUP           BDT        78
      L     72  20000000000000000000     RDL      DEFINE 1           REGISTER REDEFINITION LINK                  FCC0448   162
      L     71  10000000000000000000     EQV      DEFINE 1           DATA INTERFERENCE LINK                      FCC0448   163
                                                  DEFINE 3                                                       FCC0448   164
      L     44  00777777000000000000     PRED     DEFINE 18          INDEX TO *TXT* OF PREDECESSOR               BDT        81
      L     22  00000000777777000000     LST      DEFINE 18          LATE START TIME                             BDT        82
             0  00000000000000777777     SUCC     DEFINE 18          INDEX TO *TXT* OF SUCCESSOR                 BDT        83
  
  
  
                                        **        I. - LINK WORD FORMAT FOR INSTRUCTION SCHEDULING ( BDT EXIT )  BDT        85
                                                                                                                 BDT        86
                                                  DESCRIBE I.,60     UINFO(USES,INDX,PRI,NPRED)                  BDT        87
                                                  DEFINE 3                                                       BDT        88
      L     60  07770000000000000000     USES     DEFINE 9           USES COUNT                                  BDT        89
      L     41  00007777700000000000     INDX     DEFINE 15          ORDINAL TO SUCCESSOR LIST IN USES INDEX TBL BDT        90
      L     22  00000000077777000000     LST      DEFINE 15          LATE START TIME                             BDT        91
             0  00000000000000777777     NPRED    DEFINE 18          NUMBER OF UNISSUED PREDECESSORS             BDT        92
                                                                                                                 BDT        93
      L     22  00000000077777000000     PRIOR    DEQU   LST         PRIORITY ( NEGATIVE OF LATE START TIME )    BDT        94
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     4
        INITIALIZATION                                                INIT
  
                                        **        LOCAL STORAGE                                                  BDT        96
                                                                                                                 BDT        97
                                                  USE    /CCGSCR/                                                CCG18     175
             0                     1     BDTA     BSS    1           TREE BUILD MODE                             BDT        99
             1                     1     EQVL     BSS    1           "0 IF JAM MODE AND EQUIV LINKS              BDT       100
             2                     1     FBM      BSS    1           ORD OF FIRST BOUNDARY MARKER IN *TXT*       BDT       101
             3                     1     LBM      BSS    1           DESCR ADDRESS OF LAST *BM*                  BDT       102
             4                     1     FTREE    BSS    1           FWA OF TEMP TREE                            BDT       103
             5                     1     TF       BSS    1           LWA+1 OF THE OPERAND LINKS ( TEMP TREE )    BDT       104
             6                     1     TREEL    BSS    1           LWA+1 OF THE TREE                           BDT       105
             7                     1     TSTC     BSS    1           *TST* CHAIN ( NBIP " 0 & SIOCALL = 2 ONLY ) FCC0514   301
            10                    30     REGS     BSS    24          REGISTER STORE ADDRESS TABLE                BDT       106
                                                  USE    0                                                       BDT       107
                                                                                                                 BDT       108
                                                                                                                 BDT       109
             0                     1     SIOCALL  BSSZ   1           "0 IF CALL FROM *RIO*                       BDT       110
                                                                                                                 BDT       111
                                                  LIST   R                                                       BDT       112
                                                                                                                 FCC0514   302
                                  44     PI.CNP   EQU    36          IP. CLASS NUMBER                            FCC0514   303
                                  35     D.RDP    EQU    D.MUCP      REDEF ST (FIL10,SIO3)                       FCC1126    13
                                                                                                                 BDT       113
                                         OC       MICRO  1,,/B3/                                                 BDT       114
  
  
  
             1                           BDT      ENTRY. **,#                                                    CCGNC     795
                                                  QUAL   BDT                                                     BDT       117
             2  5110000000 X                      SA1    L.TXT                                                   BDT       118
                          5160000000 C            SA6    BDTA        SAVE TREE BUILD MODE                        BDT       119
             3  10711                             BX7    X1                                                      BDT       120
                     21702                        AX7    2                                                       BDT       121
                          5170000000 C            SA7    N.INST      N.INST = L.TXT/4                            BDT       122
             4  7211000144                        SX1    X1+100      L.TREE = L.TREE + 100  */ FUDGE FACTOR      CCG0188     6
                          0306000006 +            ZR     X6,BDT2     IF BDTA = 0   */ NOT JAM MODE               BDT       123
             5  7211000200                        SX1    X1+200B     L.TREE = L.TREE + 200B  */ FUDGE FACTOR     BDT       124
                                                                                                                 BDT       125
             6  5100000000 X             BDT2     ALLOC  TREE,X1     ALLOC( TREE , L.TREE )                      BDT       126
             7  7233777776                        SX3    X3-1                                                    BDT       127
                          5150000000 X            SA5    O.TXT                                                   BDT       128
            10  36623                             IX6    X2+X3                                                   BDT       129
                     5160000006 C                 SA6    TREEL       TREEL = LWA+1 OF THE TEMP TREE              BDT       130
                                                                                                                 BDT       131
                               53050              SA0    X5          (A0) = O.TXT                                BDT       132
            11  63720                             SB7    X2          (B7) = O.TREE                               BDT       133
                     66211                        SB2    B1+B1       (B2) = 2                                    BDT       134
                          6140000004              SB4    4           (B4) = 4                                    BDT       135
                                                                                                                 BDT       136
                                        *         THE TEMPORARY TREE IS FORMED IN *TREE* STARTING AT THE END     BDT       137
                                        *         OF THE TABLE AND WORKING TOWARDS THE BEGINNING.                BDT       138
                                        *         (A7) HOLDS THE ADDRESS OF THE LAST EDGE ADDED TO IT FROM       BDT       139
                                        *         *FIL3* TO *FTL7*.  DURING FIL THE *IHINFO* TABLE IS SETUP AT   BDT       140
                                        *         THE BEGINNING OF *TREE*.                                       BDT       141
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     5
        FIL - FORM DATA INTERFERENCE LINKS                            FIL                 BDT 
  
                                        **        FORM THE *IH* INFO TABLE                                       BDT       143
                                        *                60/*TXT* INDEX OF INSTRUCTION                           BDT       144
                                        *                60/*IH* INFO WORD                                       BDT       145
                                                                                                                 BDT       146
            12  5120000000 X             FIL      SA2    O.TREE                                                  BDT       147
                          43674                   MX6    60                                                      BDT       148
                               53620              SA6    X2          IH = O.TREE,  [IH] = -0                     BDT       149
            13  43073                             MX0    -1                                                      BDT       150
                     43172                        MX1    -D.LDSTL                                                BDT       151
                          64502                   SB5    A0+B2       BASE = O.TXT + 2                            BDT       152
                               20142              LX1    D.LDSTP                                                 BDT       153
            14  6160000021                        SB6    59-D.BMP                                                BDT       154
                          66700                   SB7    B0          N.ST = 0                                    BDT       155
                               54402              SA4    A0+B2       DI = O.TXT + 2                              BDT       156
            15  5120000006 C                      SA2    TREEL                                                   BDT       157
                          5130000000 C            SA3    BDTA                                                    BDT       158
            16  43700                             MX7    0                                                       BDT       159
                     5170000007 C                 SA7    TSTC        TSTC = 0                                    FCC1739X    5
                               53720              SA7    X2          T = TREEL;  [T] = 0                         BDT       160
            17  74600                             SX6    A0                                                      BDT       161
                     43503                        MX5    -IH.BMP                                                 BDT       162
                          12756                   BX7    X5+X6                                                   BDT       163
                               55771              SA7    A7-B1       T = T - 1;  [T] = BM[IH] ! O.TXT            BDT       164
                                                                                                                 BDT       165
                                        *         SET FLAG FOR FULL EQUIV LINKING ( BETWEEN CONDITIONAL JUMPS )  BDT       166
                                        *         IF JAM MODE OR CALLED FROM *RIO*.                              FCC1695X    5
                                                                                                                 BDT       168
            20  76210                             SX2    B1                                                      BDT       169
                     20272                        LX2    D.TYP       FET = TY      */TY IV BM"S ONLY             FCC1695X    6
                          0313000027 +            NZ     X3,FIL2     IF BDTA " 0                                 FCC1695X    7
            21  5130000000 +                      SA3    SIOCALL                                                 FCC1695X    8
                          0313000027 +            NZ     X3,FIL2     IF SIOCALL " 0                              FCC1695X    9
            22  20254                             LX2    D.BMP-D.TYP FEL = BM      */ DONT LINK ACROSS TY IIIJPS FCC1695X   10
                     0400000027 +                 EQ     FIL2                                                    BDT       173
                                                                                                                 BDT       174
                                        *         SCAN THE SEQUENCE AND FORM AN *IH* INFO TABLE ENTRY FOR EACH   BDT       175
                                        *         LD, ST AND BOUNDARY MARKER.                                    BDT       176
                                                                                                                 BDT       177
            23  55541                    FIL1     SA5    A4-B1       R2 = DI - 1                                 BDT       178
                     20432                        LX4    -D.STP                                                  BDT       179
                          15340                   BX3    -X0*X4                                                  BDT       180
                                                  IFNE   .DAL,0,2                                      LEVEL 2   BDT       181
                               20472              LX4    D.STP-D.L2P                                             BDT       182
            24  15334                             BX3    -X4*X3                                                  BDT       183
                                                                                                                 BDT       184
                     54661                        SA6    A6+B1       IH = IH + 1;  [IH] = DI - BASE              BDT       185
                          20730                   LX7    IH.STP-D.LDSTP                                          BDT       186
                               63737              SB7    B7+X3       N.ST = N.ST + (ST[DI]&^L2[DI])              BDT       187
            25  12675                             BX6    X7+X5                                                   BDT       188
                     54661                        SA6    A6+B1       IH = IH + 1;  [IH] = IHINFO(LDST[DI],[R2])  BDT       189
                          0303000027 +            ZR     X3,FIL2     IF (ST[DI]&^L2[DI]) = 0                     BDT       190
            26  75742                             SX7    A4-B2                                                   BDT       191
                     55771                        SA7    A7-B1       T = T - 1;  [T] = R1                        BDT       192
                                                                                                                 BDT       193
            27  54444                    FIL2     SA4    A4+B4       DI = DI + 4                                 BDT       194
                     15741                        BX7    -X1*X4                                                  BDT       195
                          75645                   SX6    A4-B5                                                   BDT       196
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     6
        FIL - FORM DATA INTERFERENCE LINKS                            FIL                 BDT 
  
                               22364              LX3    B6,X4                                                   BDT       197
            30  0317000023 +                      NZ     X7,FIL1     IF LDST[DI]                                 BDT       198
                          0323000027 +            PL     X3,FIL2     IF ^BM[DI]                                  BDT       199
            31  55542                             SA5    A4-B2       R1 = DI - 2                                 BDT       200
                     11324                        BX3    X2*X4                                                   BDT       201
                          0303000027 +            ZR     X3,FIL2     IF FEL[DI] = 0  */ JAM MODE & TY III BM     BDT       202
            32  75742                             SX7    A4-B2                                                   BDT       203
                     54661                        SA6    A6+B1       IH = IH + 1;  [IH] = DI - BASE              BDT       204
                          26335                   UX3    "OC",X5                                                 BDT       205
                               43603              MX6    -IH.BMP                                                 BDT       206
            33  12767                             BX7    X6+X7                                                   BDT       207
                     54661                        SA6    A6+B1       IH = IH + 1;  [IH] = IHINFO(BM,0)           BDT       208
                          55771                   SA7    A7-B1       T = T - 1;  [T] = BM[IH] ! R1               BDT       209
            34  0530000027 +                      NZ     "OC",FIL2   IF OC[R1] " 0                               BDT       210
                                                                                                                 BDT       211
                          64660                   SB6    A6          IHS = IH                                    BDT       212
                               76670              SX6    B7                                                      BDT       213
            35  5160000001 C                      SA6    N.ST                                                    BDT       214
                                                                                                                 BDT       215
                                                  IF     DEF,/DEBUG/IH,1                                         BDT       216
                                         IH-INFO  SNAP   *O.TREE,B6                                              FEAT155F  262
  
  
  
                                        **        CSP - COUNT NUMBER OF STORE PREDECESSORS PER BASIC BLOCK       BDT       219
                                        *         AND SAVE THE COUNTS IN THE USES FIELD OF THE DESCR OF THE      BDT       220
                                        *         BOS/UJP/RJX/LAB STARTING THE BLOCK.                            BDT       221
                                                                                                                 BDT       222
                          0470000055 +            ZR     B7,CSP6     IF N.ST = 0   */ IF NO STORE PREDECESSORS   BDT       223
            36  43054                             MX0    -R1.RIL                                                 BDT       224
                     66500                        SB5    B0          NSP = 0       */ NUMBER OF STORE PRED       BDT       225
                          54571                   SA5    A7+B1       TI = T + 1                                  BDT       226
                               14100              BX1    -X0         RMIN = 177777B                              BDT       227
            37  6130000072                        SB3    60-D.TYL                                                BDT       228
                          6170000030              SB7    T.SUCCP                                                 BDT       229
            40  0400000042 +                      EQ     CSP2                                                    BDT       230
                                                                                                                 BDT       231
            41  54551                    CSP1     SA5    A5+B1       TI = TI + 1                                 BDT       232
                     10133                        BX1    X3          RMIN = R                                    BDT       233
                          6155000001              SB5    B5+1        NSP = NSP + 1                               BDT       234
                                                                                                                 BDT       235
            42  0335000050 +             CSP2     MI     X5,CSP4     IF BM[TI]                                   BDT       236
                          53450                   SA4    X5          R1 = [TI]                                   BDT       237
                               15340              BX3    -X0*X4      R = RI[R1]                                  BDT       238
            43  22673                             LX6    B7,X3                                                   BDT       239
                     12765                        BX7    X6+X5       [TI] = TREE(R,R1)                           BDT       240
                          37431                   IX4    X3-X1                                                   BDT       241
                               54750              SA7    A5                                                      BDT       242
            44  0334000041 +                      MI     X4,CSP1     IF R < RMIN                                 BDT       243
                                                                                                                 BDT       244
                                        *         POSSIBLE PS REVERSAL, SCAN BACKWARDS TO FIND *RI* IN STORE.    BDT       245
                                                                                                                 BDT       246
                          55451                   SA4    A5-B1       TJ = TI - 1                                 BDT       247
                               54551              SA5    A5+B1       TI = TI + 1                                 BDT       248
            45  23674                    CSP3     AX6    B7,X4                                                   BDT       249
                     37763                        IX7    X6-X3                                                   BDT       250
                          0307000042 +            ZR     X7,CSP2     IF SUCC[TJ] = R                             BDT       251
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     7
        FIL - FORM DATA INTERFERENCE LINKS                            CSP                 BDT 
  
            46  55441                             SA4    A4-B1       TJ = TJ - 1                                 BDT       252
                     0324000045 +                 PL     X4,CSP3     IF ^BM[TJ]                                  BDT       253
                               66551              SB5    B5+B1       NSP = NSP + 1                               BDT       254
            47  0400000042 +                      EQ     CSP2                                                    BDT       255
                                                                                                                 BDT       256
                                        *         BOUNDARY MARKER ENCOUNTERED, SAVE *NSP* IN IT IF TYPE = IV     BDT       257
                                                                                                                 BDT       258
            50  53452                    CSP4     SA4    X5+B2       DI = [TI] + 2                               BDT       259
                     5055000001                   SA5    A5+1        TI = TI + 1                                 BDT       260
                                                  LX4    58-D.TYP                                                BDT       261
                               23634              AX6    B3,X4                                                   BDT       262
            51  0306000053 +                      ZR     X6,CSP5     IF TYPE[DI] = IV                            BDT       263
                          75742                   SX7    A4-B2                                                   BDT       264
                               55751              SA7    A5-B1       [TI-1] = DI - 2 */ REMOVE BM BITS           BDT       265
            52  0400000042 +                      EQ     CSP2                                                    BDT       266
                                                                                                                 BDT       267
            53  76350                    CSP5     SX3    B5          USES[DI] = NSP                              BDT       268
                     43763                        MX7    -D.USESL                                                BDT       269
                                                  LX4    2+D.TYP                                                 BDT       270
                          66500                   SB5    B0          NSP = 0                                     BDT       271
                               11474              BX4    X7*X4                                                   BDT       272
            54  12634                             BX6    X3+X4                                                   BDT       273
                     54640                        SA6    A4                                                      BDT       274
                          0315000042 +            NZ     X5,CSP2     IF [TI] " 0                                 BDT       275
                                                                                                                 BDT       276
            55  5110000006 C             CSP6     SA1    TREEL                     */ REINTIALIZE THE TREE       BDT       277
                          7170000000              SX7    0                                                       BDT       278
            56  5170000001 C                      SA7    EQVL        EQVL = 0                                    BDT       279
                          53710                   SA7    X1          T = TREEL;  [T] = 0                         BDT       280
                                                                                                                 FCC0977    39
                                        *         IF IN A LOOP, THEN CHECK *IHINFO* TABLE FOR *SRF* MEMORY       FCC0977    40
                                        *         REFERENCES, AND INVENT AN *RF* FOR THEM.                       FCC0977    41
                                        *         *SRF* MEMORY REFS ARE THE RESULT OF ADDRESS DIFFERENCING       FCC0977    42
                                        *         SIMILAR *IP"S*, AND REFERENCES TO THE NON-BASE MEMBERS OF      FCC0977    43
                                        *         THE CLASS DO NOT HAVE A REAL *RF* ASSOCIATED WITH THEM.        FCC0977    44
                                                                                                                 FCC0977    45
                                                                                                                 FCC0977    46
            57  5110000000 X                      SA1    =XGRASRF#                                               CCGNC     796
                          0301000075 +            ZR     X1,IRF5     IF GRASRF = 0 */ ^(IN LOOP & ADDR DIFF)     FCC0977    48
                                                                                                                 FCC0977    49
            60  43052                             MX0    -IH.RFL                                                 FCC0977    50
                     5110000000 +                 SA1    SIOCALL                                                 FCC0977    51
                               20044              LX0    IH.RFP                                                  FCC0977    52
            61  43734                             MX7    -2*R1.RIL                                               FCC0977    53
                     56560                        SA5    B6          IH = IHS                                    FCC0977    54
                          20720                   LX7    R1.RIL                                                  FCC0977    55
                               64300              SB3    A0                                                      FCC0977    56
            62  6150000005                        SB5    59-IH.SRFP                                              FCC0977    57
                          66710                   SB7    B1          IRN = 1       */ INVENTED R-NUMBER INDEX    FCC0977    58
                                                                                                                 FCC0977    59
                                        *         SEARCH *IHINFO* FOR *SRF* MEM REFS, AND INVENT A *RF*          FCC0977    60
                                        *         FOR EACH UNIQUE ORDERED PAIR - *(RJ,RK)* .                     FCC0977    61
                                                                                                                 FCC0977    62
            63  55552                    IRF1     SA5    A5-B2       IH = IH - 2                                 FCC0977    63
                     22655                        LX6    B5,X5                                                   FCC0977    64
                          0326000063 +            PL     X6,IRF1     IF ^SRF[IH]                                 FCC0977    65
            64  0305000075 +                      ZR     X5,IRF5     IF [IH] = 0   */ END OF *IHINFO*            FCC0977    66
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     8
        FIL - FORM DATA INTERFERENCE LINKS                            CSP                 BDT 
  
                                                                                                                 FCC0977    67
                          55451                   SA4    A5-B1       R = [IH-1]                                  FCC0977    68
                               53243              SA2    B3+X4       R1W = TXT(R)                                FCC0977    69
            65  15627                             BX6    -X7*X2      KEY = RJRK[R1W]                             FCC0977    70
                     55677                        SA6    A7-B7       T(-IRN) = KEY */ SET SEARCH TERMINATOR      FCC0977    71
                          11505                   BX5    X0*X5                                                   FCC0977    72
                               54370              SA3    A7          TJ = T                                      FCC0977    73
            66  55331                    IRF2     SA3    A3-B1       TJ = TJ - 1   */ SEARCH ORDERED PAIR LIST   FCC0977    74
                     13236                        BX2    X3-X6                                                   FCC0977    75
                          0312000066 +            NZ     X2,IRF2     IF [TJ] " KEY                               FCC0977    76
                                                                                                                 FCC0977    77
            67  64430                             SB4    A3                                                      FCC0977    78
                     65474                        SB4    A7-B4       J = T - TJ                                  FCC0977    79
                          0747000071 +            LT     B4,B7,IRF3  IF J < IRN                                  FCC0977    80
            70  66771                             SB7    B7+B1       IRN = IRN + 1                               FCC0977    81
            71  76240                    IRF3     SX2    B4                                                      FCC0977    82
                     20202                        LX2    2                                                       FCC0977    83
                          73222                   SX2    X2+B2                                                   FCC0977    84
                               20244              LX2    IH.RFP      JR = 4*J+2    */ INVENTED R-NUM             FCC0977    85
            72  12625                             BX6    X2+X5       RF[IH] = JR   */ SET IN *IHINFO*            FCC0977    86
                     54650                        SA6    A5                                                      FCC0977    87
                          54421                   SA4    A2+B1       R2 = TXT(R+1)                               FCC0977    88
                               11604              BX6    X0*X4       RF[R2] = 0                                  FCC0977    89
            73  54640                             SA6    A4                                                      FCC0977    90
                     0311000063 +                 NZ     X1,IRF1     IF SIOCALL " 0  */ CALL FROM *RIO*          FCC0977    91
                                                                                                                 FCC0977    92
                               12626              BX6    X2+X6       RF[R2] = JR                                 FCC0977    93
            74  54660                             SA6    A6                                                      FCC0977    94
                     0400000063 +                 EQ     IRF1                                                    FCC0977    95
                                                                                                                 FCC0977    96
            75                           IRF5     BSS    0                                                       FCC0977    97
                                                  TRACE  IRF,RLIST                                               FCC0977    98
                                                  IF     DEF,/DEBUG/IRF,1                                        FCC0977    99
                                         IH-IRFX  SNAP   *O.TREE,*B6                                             FCC0977   100
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE     9
        FIL - FORM DATA INTERFERENCE LINKS                            FIL                 BDT 
  
                                        **        SCAN THE *IH* INFO TABLE FOR INTERFERING LD/ST, ST/ST          BDT       282
                                        *         COMBINATIONS AND FORM TREE LINKS FOR THEM.                     BDT       283
                                                                                                                 BDT       284
            75  43052                             MX0    -IH.IHL                                                 BDT       285
                     56560                        SA5    B6          IH = IHS                                    BDT       286
                          6150000002              SB5    59-IH.BMP                                               BDT       287
            76  5110000000 C                      SA1    BDTA                                                    BDT       288
                          20125                   LX1    T.EQVLP     EQVB = SHIFT(BDTA,T.EQVLP)                  BDT       289
                                                                                                                 BDT       290
            77  55552                    FIL3     SA5    A5-B2       IH = IH - 2                                 BDT       291
                     22655                        LX6    B5,X5                                                   BDT       292
                          0305000111 +            ZR     X5,FIL6     IF [IH] = 0   */ IF TABLE TERMINATOR        BDT       293
           100  0336000077 +                      MI     X6,FIL3     IF BM[IH]                                   BDT       294
                          54450                   SA4    A5          J = IH                                      BDT       295
                               55351              SA3    A5-B1                                                   BDT       296
           101  20330                             LX3    T.SUCCP                                                 BDT       297
                     36213                        IX2    X1+X3                                                   BDT       298
                                                                                                                 BDT       299
           102  55442                    FIL4     SA4    A4-B2                                                   BDT       300
                     22354                        LX3    B5,X4                                                   BDT       301
                          0333000077 +            MI     X3,FIL3     IF BM[J]                                    BDT       302
           103  13645                             BX6    X4-X5       DIFF = XOR(IH,J)                            BDT       303
                                                  LX6    -IH.IHP                                                 BDT       304
                     15760                        BX7    -X0*X6                                                  BDT       305
                          0317000102 +            NZ     X7,FIL4     IF IH[DIFF] " 0                             BDT       306
           104  11345                             BX3    X4*X5                                                   BDT       307
                     20630                        LX6    IH.IHP-IH.RFP                                           BDT       308
                                                  LX3    59-IH.LDP                                               BDT       309
                          0333000102 +            MI     X3,FIL4     IF LD[IH] & LD[J]                           BDT       310
           105  15760                             BX7    -X0*X6                                                  BDT       311
                     55341                        SA3    A4-B1       R1[J]                                       BDT       312
                          0317000107 +            NZ     X7,FIL5     IF RF[DIFF] " 0                             BDT       313
           106  20622                             LX6    IH.RFP-IH.CAP                                           BDT       314
                     15760                        BX7    -X0*X6                                                  BDT       315
                          0317000102 +            NZ     X7,FIL4     IF CA[DIFF] " 0                             BDT       316
                                                                                                                 BDT       317
                                        *         THE MEMORY REFERENCES INTERFERE, FORM A LINK BETWEEN THEM      BDT       318
                                                                                                                 BDT       319
           107  36723                    FIL5     IX7    X2+X3                                                   BDT       320
                     64370                        SB3    A7                                                      BDT       321
                          5077777776              SA7    A7-1        T = T - 1;  [T] = TREE(EQVB,R1[IH],R1[J])   BDT       322
           110  0636000102 +                      GE     B3,B6,FIL4  IF STORE ADDR \ LOWER LIMIT                 BDT       323
                                                                                                                 BDT       324
           111  5110000000 X             FIL6     SA1    O.TREE                    */ CHECK WORKING STORAGE      BDT       325
                                                  TREE   FIL                                                     BDT       326
                          5120000000 C            SA2    N.INST                                                  BDT       327
           112  36112                             IX1    X1+X2                                                   BDT       328
                     20201                        LX2    1                                                       BDT       329
                          5130000001 C            SA3    N.ST                                                    BDT       330
           113  36112                             IX1    X1+X2                                                   BDT       331
                     36213                        IX2    X1+X3       TM = O.TREE + 3*N.INST + N.ST               BDT       332
                          75471                   SX4    A7-B1                                                   BDT       333
                               37124              IX1    X2-X4                                                   BDT       334
           114  0331000115 +                      MI     X1,FIL8     IF TM < T     */ ENOUGH SPACE FOR REST      BDT       335
                                                                                                                 BDT       336
                          0400000457 +            EQ     GAS         REALLOCATE                                  BDT       337
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    10
        FIL - FORM DATA INTERFERENCE LINKS                            FIL8                BDT 
  
                                        **        RESCAN THE *IH* INFO TABLE, SETUP INFORMATION FOR *MCG*        BDT       339
                                        *         SCAN FOR LD/ST COMBINATIONS INTO THE SAME MEMORY LOCATION      BDT       340
                                        *         WHEN THE SECOND HAS THE *SZ* BIT SET, AND SET THE *SR*         BDT       341
                                        *         ( SIZE REDUCABLE ) BIT FOR IT.                                 BDT       342
                                                                                                                 BDT       343
           115  56560                    FIL8     SA5    B6          I = IHS                                     BDT       344
                     76110                        SX1    B1                                                      BDT       345
                          43003                   MX0    -IH.BMP                                                 BDT       346
                               20126              LX1    D.SRP                                                   BDT       347
           116  5140000000 +                      SA4    SIOCALL                                                 FCC0514   306
                          6130000043              SB3    58-D.SZP                                                BDT       348
           117  64602                             SB6    A0+B2       BASE = O.TXT + 2                            BDT       349
                     21401                        AX4    1                                                       FCC0514   307
                          63440                   SB4    X4                        (B4) = SIOCALL - 1            FCC0514   308
                               64700              SB7    A0                        (B7) = TXT                    FCC0514   309
                                                                                                                 BDT       350
           120  55552                    FIL9     SA5    A5-B2       I = I - 2                                   BDT       351
                     0305000145 +                 ZR     X5,FIL11    IF [I] = 0                                  BDT       352
                               22655              LX6    B5,X5                                                   BDT       353
           121  0336000120 +                      MI     X6,FIL9     IF BM[I]                                    BDT       354
                                                                                                                 BDT       355
                          55351                   SA3    A5-B1                                                   BDT       356
                               53236              SA2    X3+B6       DI = BASE + [I-1]                           BDT       357
           122  22632                             LX6    B3,X2                                                   BDT       358
                     0326000120 +                 PL     X6,FIL9     IF SZ[DI] = 1 */ A 1 PARCEL INSTRCUTION     BDT       359
                                                  LX2    58-D.TYP                                                BDT       360
           123  0322000120 +                      PL     X2,FIL9     IF TYPE[DI] " III  */ NOT A *LD* OR *ST*    BDT       361
                                                  LX2    2+D.TYP                                                 FCC0448   165
                          5045000000              SA4    A5+         J = I                                       BDT       363
                                                                                                                 BDT       364
           124  55442                    FIL10    SA4    A4-B2       J = J - 2                                   BDT       365
                     13645                        BX6    X4-X5                                                   BDT       366
                          22354                   LX3    B5,X4                                                   BDT       367
                               15760              BX7    -X0*X6                                                  BDT       368
           125  0333000141 +                      MI     X3,FIL10C   IF BM[J]                                    FCC0514   310
                          0317000124 +            NZ     X7,FIL10    IF IHINFO[J] " IHINFO[I]                    BDT       370
                                                                                                                 BDT       371
                                        *         IH"S,RF"S AND CA"S MATCH, SET *SR* BIT FOR MASTER MEM REF.     BDT       372
                                                                                                                 BDT       373
           126  12612                             BX6    X1+X2                                                   BDT       374
                     54620                        SA6    A2          SR[DI] = 1                                  BDT       375
                          0440000120 +            ZR     B4,FIL9     IF SIOCALL < 2                              FCC0514   311
           127  20530                             LX5    -IH.RFP                                                 FCC0514   312
                     73750                        SX7    X5                                                      FCC0514   313
                          0317000120 +            NZ     X7,FIL9     IF RF[I] " 0  */ INDEXED ST                 FCC0514   314
                                                                                                                 FCC0514   315
                                        *         MASTER IS A REDEF OF J, I MUST BE A *ST*, SAVE *RI* THAT IS    FCC0514   316
                                        *         REDEFINED IN THE LINK WORD OF THE *ST* FOR *FTL*.              FCC0514   317
                                                                                                                 FCC0514   318
           130  55341                             SA3    A4-B1       R = [J-1]                                   FCC0514   319
                                                  LX4    59-IH.LDP                                               FCC0514   320
                     0334000131 +                 MI     X4,FIL10B   IF LD[J]                                    FCC0514   321
                               53337              SA3    B7+X3       R = RI[TXT+R]                               FCC0514   322
           131  55422                    FIL10B   SA4    A2-B2       R1 = DI - 2                                 FCC0514   323
                     73630                        SX6    X3                                                      FCC0514   324
                          73540                   SX5    X4                                                      FCC0514   325
                               37756              IX7    X5-X6                                                   FCC0514   326
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    11
        FIL - FORM DATA INTERFERENCE LINKS                            FIL8                BDT 
  
           132  0337000120 +                      MI     X7,FIL9     IF RI[R1] < R */ ST NOT A FUNCTION OF *LD*  FCC0514   327
                                                                                                                 FCC0514   328
                          54621                   SA6    A2+B1       [DI+1] = R    */ SAVE *RI* OF *LD*          FCC0514   329
                               54220              SA2    A2                                                      FCC1126    14
           133  20107                             LX1    D.RDP-D.SRP                                             FCC1126    15
                     12612                        BX6    X1+X2       RD[DI] = 1                                  FCC1126    16
                          54620                   SA6    A2                                                      FCC1126    17
                               20165              LX1    D.SRP-D.RDP                                             FCC1126    18
           134  73630                             SX6    X3                                                      FCC1126    19
                                                                                                                 FCC0514   330
                                        *         FORM CHAIN *TST*"S IF THEIR ARE ANY SIMILAR *IP*"S IN THE LOOP FCC0514   331
                                                                                                                 FCC0514   332
                     21460                        AX4    R1.OCP                                                  FCC0514   333
                          5130000000 X            SA3    =XNBIP#                                                 CCGNC     797
           135  7274775700                        SX7    X4-OC.TST-1S10                                          FCC0514   335
                          0317000120 +            NZ     X7,FIL9     IF OC[R1] " OC.TST                          FCC0514   336
           136  0303000120 +                      ZR     X3,FIL9     IF NBIP = 0   */ NO SIMILAR *IP*"S IN SEQ   FCC0514   337
                                                                                                                 FCC0514   338
                          5130000007 C            SA3    TSTC                                                    FCC0514   339
           137  12636                             BX6    X3+X6       [DI+1] = TSTC ! [DI+1]  */ ADD TO CHAIN     FCC0514   340
                     54621                        SA6    A2+B1                                                   FCC1126    20
                          74660                   SX6    A6                                                      FCC0514   342
                               20644              LX6    36          TSTC = SHIFT(DI+1,36)  */ CHAIN PTS TO THIS FCC0514   343
           140  5063000000                        SA6    A3+                                                     FCC0514   344
                          0400000120 +            EQ     FIL9                                                    BDT       376
                                                                                                                 FCC0448   167
                                        *         CONTINUE SCAN IF J IS A CONDITIONAL JUMP OR *EOS*              CCGA010     4
                                                                                                                 FCC0514   346
           141  55341                    FIL10C   SA3    A4-B1                                                   FCC0514   347
                     0304000120 +                 ZR     X4,FIL9     IF [J] = 0                                  FCC0448   169
                               53336              SA3    B6+X3       DJ = BASE + [I-1]                           FCC0448   170
           142  20301                             LX3    59-D.TYP                                                FCC0448   171
                     0323000124 +                 PL     X3,FIL10    IF TYPE[DJ] = III  */ JPX OR JIN            FCC0448   172
                               55332              SA3    A3-B2       R1J = DJ - 2                                CCGA010     5
           143  21360                             AX3    R1.OCP                                                  CCGA010     6
                     7263775775                   SX6    X3-OC.EOS-2000B                                         CCGA010     7
           144  0306000124 +                      ZR     X6,FIL10    IF OC[R1J] = OC.EOS                         CCGA010     8
                          0400000120 +            EQ     FIL9                                                    FCC0448   173
                                                                                                                 BDT       377
                                        **        SCAN THE EQV LINKS AND UP THE *FT* OF PREDECESSORS TO FORCE    BDT       378
                                        *         THEM TO START BEFORE OTHER COMPUTATIONS THAT WOULD HAVE        BDT       379
                                        *         THE SAME *LST* .                                               BDT       380
                                                                                                                 BDT       381
           145  54570                    FIL11    SA5    A7          TI = T                                      BDT       382
                     20137                        LX1    D.FTP-D.SRP                                             BDT       383
                                   0              ERRNZ  D.EQVP-D.FTP                                            FCC0514   348
                          0305000151 +            ZR     X5,IPL      IF [TI] = 0   */ NO EQUIV LINKS             FCC0514   349
                                                                                                                 BDT       385
           146  53456                    FIL12    SA4    B6+X5       DI = BASE + PRED[TI]                        BDT       386
                     54551                        SA5    A5+B1       TI = TI + 1                                 BDT       387
                          12641                   BX6    X4+X1       FT[DI] = FT[DI] ! 1                         BDT       388
                               54640              SA6    A4                                                      BDT       389
           147  0315000146 +                      NZ     X5,FIL12    IF [TI] " 0                                 BDT       390
                                                                                                                 BDT       391
                          5130000000 C            SA3    BDTA                                                    BDT       392
           150  7263000000                        SX6    X3+                                                     BDT       393
                          5160000001 C            SA6    EQVL        EQVL = BDTA   */ " 0 IF JAM AND EQV LINKS   BDT       394
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    12
        FIL - FORM DATA INTERFERENCE LINKS                            IPL                 BDT 
  
                                        **        IPL - FORM *IP* REDEFINITION LINKS BETWEEN MEMBERS OF A CLASS  FCC0514   351
                                        *         OF SIMILAR *IP*"S, SO ANY REORDERING THAT *RIO* DOES WILL NOT  FCC0514   352
                                        *         CAUSE INCORRECT CODE TO BE GENERATED IF GRA DOES ANY ADDRESS   FCC0514   353
                                        *         DIFFERENCING ( *MFA12* ).                                      FCC0514   354
                                                                                                                 FCC0514   355
           151  5110000007 C             IPL      SA1    TSTC                                                    FCC0514   356
                          0301000167 +            ZR     X1,FOL      IF TSTC = 0   */ NO INCREMENT TST"S         FCC0514   357
           152  5120000000 X                      SA2    =XO.TET                                                 FCC0514   359
                          5130000000 X            SA3    =XO.IIT                                                 FCC0514   360
           153  5140000000 X                      SA4    O.TREE                                                  FCC0514   361
                          63520                   SB5    X2                        (B5) = TET                    FCC0514   362
                               63630              SB6    X3                        (B6) = IIT                    FCC0514   363
           154  63740                             SB7    X4                        (B7) = TREE                   FCC0514   364
                     21144                        AX1    36          I = SHIFT(TSTC,-36)                         FCC0514   365
                          64402                   SB4    A0+B2       BASE = O.TXT + 2                            FCC1518X   23
                               43064              MX0    -D.USESL+1                                              FCC1518X   24
                                                                                                                 FCC0514   366
           155  53410                    IPL1     SA4    X1          LI = I;  LIW = [LI]                         FCC0514   367
                     55342                        SA3    A4-B2       R2W = [I-2]                                 FCC0514   368
                          55531                   SA5    A3-B1       R1W = [I-3]                                 FCC0514   369
                               20352              LX3    -IH.CAP                                                 FCC0514   370
           156  53235                             SA2    B5+X3       TETW = TET(CA[R2W])                         FCC0514   371
                     20230                        LX2    -T.ITIP                                                 FCC0514   372
                          73320                   SX3    X2          J = ITI[TETW]                               FCC0514   373
           157  0303000166 +                      ZR     X3,IPL3     IF J = 0      */INVARIANT TEMP              FCC0514   374
                                                                                                                 FCC0514   375
                          53336                   SA3    B6+X3       PIW = IIT(J)                                FCC0514   376
                               20251              LX2    59-T.BIPP+T.ITIP                                        FCC0514   377
           160  20330                             LX3    -PI.CNP     N = CN[PIW]   */ CLASS NUMBER               FCC0514   378
                     73650                        SX6    X5          R = RI[R1W]   */ RI OF INCREMENT            FCC0514   379
                          0322000162 +            PL     X2,IPL2     IF ^BIP[TETW]                               FCC0514   380
                                                                                                                 FCC0514   381
                                        *         BASE *IP* INCR, ALWAYS BEFORE ^BASE INCR BECAUSE OF *GPO*.     FCC0514   382
                                                                                                                 FCC0514   383
           161  53637                             SA6    B7+X3       TREE(N)  = R  */ SAVE *RI* OF INCR          FCC0514   384
                     0400000166 +                 EQ     IPL3                                                    FCC0514   385
                                                                                                                 FCC0514   386
                                        *         ^BASE INCR, SETUP LINK WORD TO FORM REDEF LINKS FROM USES OF   FCC0514   387
                                        *         *TLD* TO INCREMENT OF BASE IN *FTL* BY SETTING ALTERNATE       FCC0514   388
                                        *         SUCCESSOR FIELD IN LINK WORD IF THE *TLD* IS "USED".           FCC1518X   25
                                                                                                                 FCC0514   390
           162  53237                    IPL2     SA2    B7+X3       RB = TREE(N)  */ R-NUM OF BASE INCR         FCC0514   391
                     73220                        SX2     X2                                                     FCCA550X    5
                          20630                   LX6    T.SUCCP                                                 FCC0514   392
                               12762              BX7    X6+X2                                                   FCC0514   393
           163  55771                             SA7    A7-B1       T = T - 1;  [T] = TREE(0,R,RB)              FCC0514   394
                     53344                        SA3    B4+X4       DI = BASE + RI[LIW]  */ DESCR OF *TLD*      FCC1518X   26
                          20222                   LX2    18                                                      FCC1518X   27
                               20373              LX3    -D.USESP-1                                              FCC1518X   28
           164  15730                             BX7    -X0*X3                                                  FCC1518X   29
                     0307000166 +                 ZR     X7,IPL3     IF USES[DI] = 1  */ ONLY USED IN INCR INST  FCC1518X   30
                               12624              BX6    X2+X4       [LI] = [LI] ! SHIFT(RB,18)                  FCC1518X   31
           165  54640                             SA6    A4                                                      FCC1518X   32
                                                                                                                 FCC0514   402
           166  21444                    IPL3     AX4    36                                                      FCC0514   403
                     73140                        SX1    X4          I = SHIFT(LIW,-36)  */ ADVANCE TO NEXT      FCC0514   404
                          0311000155 +            NZ     X1,IPL1     IF I " 0      */ NOT END OF CHAIN           FCC0514   405
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    13
        FIL - FORM DATA INTERFERENCE LINKS                            IPL                 BDT 
  
                                                  TRACE  IPL,RLIST                                               FCC0514   407
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    14
        FOL - FORM OPERAND LINKS                                      FOL                 BDT 
  
                                        **        FOL - FORM OPERAND LINKS, FORM *BMC* ( INST LINKED TO *EOQ* )  BDT       396
                                                                                                                 BDT       397
           167  7100600001               FOL      SX0    RN.MASK     (X0) = R-NUMBER MASK  ( A0 => 0 )           CCG11     131
                          6140000004              SB4    OC.RS                                                   CCG11     132
           170  64502                             SB5    A0+B2       BASE = O.TXT + 2                            BDT       401
                     66600                        SB6    B0          ZPA = 0       */ ZERO PRED ADDRESS          BDT       402
                          66700                   SB7    B0          N.RS = 0      */ N. *RS"S*                  BDT       403
                               54402              SA4    A0+B2       DI = O.TXT + 2                              BDT       404
           171  74670                             SX6    A7                                                      BDT       405
                     5160000005 C                 SA6    TF          TF = T        */ LWA + 1 OF OPERAND LINKS   BDT       406
                               43102              MX1    D.TYL                                                   BDT       407
           172  5130000000 X                      SA3    O.TREE                                                  BDT       408
                          43600                   MX6    0                                                       BDT       409
                               53630              SA6    X3          BMC = O.TREE;  [BMC] = 0                    BDT       410
           173  53030                             SA0    X3                                                      BDT       411
                     0400000175 +                 EQ     FOL2                                                    BDT       412
                                                                                                                 BDT       413
                                        *         SAVE ADDR OF *SINK* INSTRUCTION ON *BMC* LIST                  BDT       414
                                                                                                                 BDT       415
           174  74740                    FOL1     SX7    A4                                                      BDT       416
                     27637                        PX6    "OC",X7                                                 BDT       417
                          54601                   SA6    A0+B1       BMC = BMC + 1;  [BMC] = PK(OC,DI)           BDT       418
                               54001              SA0    A0+B1                                                   BDT       419
                                                                                                                 BDT       420
                                        *         GET NEXT INSTRUCTION, AND JUMP TO APPROPIATE PROCESSOR         BDT       421
                                                                                                                 BDT       422
           175  54542                    FOL2     SA5    A4+B2       R1 = DI + 2                                 BDT       423
                     54452                        SA4    A5+B2       DI = R1 + 2                                 BDT       424
                                                  LX4    58-D.TYP                                                BDT       425
                          11714                   BX7    X1*X4                                                   BDT       426
                               75645              SX6    A4-B5       LA = DI - BASE                              BDT       427
           176  20630                             LX6    T.SUCCP                                                 BDT       428
                     0317000205 +                 NZ     X7,FOL5     IF TYPE[DI] " I                             BDT       429
                                                                                                                 BDT       430
                                        *         PROCESS TYPE I INSTRUCTION                                     BDT       431
                                                                                                                 BDT       432
                               20554              LX5    -R1.RKP                                                 BDT       433
           177  15350                             BX3    -X0*X5                                                  BDT       434
                     20554                        LX5    R1.RKP-R1.RJP                                           BDT       435
                          15250                   BX2    -X0*X5                                                  BDT       436
                               20540              LX5    R1.RJP-R1.RIP                                           BDT       437
           200  0303000201 +                      ZR     X3,FOL3     IF RK[R1] = 0                               BDT       438
                          36763                   IX7    X6+X3                                                   BDT       439
                               55771              SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RK[R1])           BDT       440
           201  37323                    FOL3     IX3    X2-X3                                                   BDT       441
                     20422                        LX4    1+D.TYP-D.^DP                                           BDT       442
                          0302000203 +            ZR     X2,FOL4     IF RJ[R1] = 0                               BDT       443
           202  0303000203 +                      ZR     X3,FOL4     IF RJ = RK                                  BDT       444
                          36762                   IX7    X6+X2                                                   BDT       445
                               55771              SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RJ[R1])           BDT       446
           203  0324000175 +             FOL4     PL     X4,FOL2     IF DEF[DI]                                  BDT       447
                          26335                   UX3    "OC",X5                                                 BDT       448
                               15550              BX5    -X0*X5                                                  BDT       449
           204  36765                             IX7    X6+X5                                                   BDT       450
                     55771                        SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])           BDT       451
                          0400000174 +            EQ     FOL1                                                    BDT       452
                                                                                                                 BDT       453
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    15
        FOL - FORM OPERAND LINKS                                      FOL                 BDT 
  
           205  26335                    FOL5     UX3    "OC",X5                                                 BDT       454
                     36744                        IX7    X4+X4                                                   BDT       455
                          0334000217 +            MI     X4,FOL8     IF TYPE[DI] = III ! IV                      BDT       456
                                                                                                                 BDT       457
                                        **        TYPE II PROCESSING ( S, FMA, CLR , DEF, RS )                   BDT       458
                                                                                                                 BDT       459
           206  20435                             LX4    1+D.TYP-D.PIP                                           BDT       460
                     0334000210 +                 MI     X4,FOL5A    IF PI[DI]     */ RS OR DEF                  BDT       461
                               76260              SX2    B6                                                      BDT       462
           207  36762                             IX7    X6+X2                                                   BDT       463
                     55771                        SA7    A7-B1       T = T - 1;  [T] = TREE(LA,ZPA)              BDT       464
                          0400000175 +            EQ     FOL2                                                    BDT       465
                                                                                                                 BDT       466
           210  15350                    FOL5A    BX3    -X0*X5                                                  BDT       467
                     0434000212 +                 EQ     "OC",B4,FOL6      IF OC[R1] = OC.RS                     BDT       468
                               65645              SB6    A4-B5       ZPA = LA                                    BDT       469
           211  0400000174 +                      EQ     FOL1                                                    BDT       470
                                                                                                                 BDT       471
                                        *         PROCESS REGISTER STORE                                         BDT       472
                                                                                                                 BDT       473
           212  20535                    FOL6     LX5    59-R1.INP                                               BDT       474
                     66771                        SB7    B7+B1       N.RS = N.RS + 1                             BDT       475
                          0325000215 +            PL     X5,FOL7     IF IN[R1] = 0                               BDT       476
                                                                                                                 BDT       477
           213  7233777773                        SX3    X3-4                                                    BDT       478
                          36763                   IX7    X6+X3                                                   BDT       479
                               54770              SA7    A7          T = TREE(LA,LA-4) */ ERASE BAD *RJ* LINK    BDT       480
           214  74670                             SX6    A7                                                      BDT       481
                     54641                        SA6    A4+B1       [DI+1] = T                                  BDT       482
                          0400000174 +            EQ     FOL1                                                    BDT       483
                                                                                                                 BDT       484
           215  36763                    FOL7     IX7    X6+X3                                                   BDT       485
                     55771                        SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])           BDT       486
                          74670                   SX6    A7                                                      BDT       487
                               54641              SA6    A4+B1       [DI+1] = T                                  BDT       488
           216  0400000174 +                      EQ     FOL1                                                    BDT       489
                                                                                                                 BDT       490
                                        *         PROCESS TYPE III / IV INSTRUCTIONS                             BDT       491
                                                                                                                 BDT       492
           217  0337000225 +             FOL8     MI     X7,FOL10    IF TYPE[DI] = IV                            BDT       493
                                                                                                                 BDT       494
                          54351                   SA3    A5+B1       R2 = R1 + 1                                 BDT       495
                               20422              LX4    1+D.TYP-D.^DP                                           BDT       496
           220  15550                             BX5    -X0*X5      RI = RI[R1]                                 BDT       497
                     20330                        LX3    -IH.RFP                                                 BDT       498
                          0334000223 +            MI     X4,FOL9     IF ^D[DI]                                   BDT       499
                                                                                                                 BDT       500
           221  15330                             BX3    -X0*X3      RN = (RF[R2]/2)*2                           BDT       501
                     0313000222 +                 NZ     X3,FOL8A    IF RN " 0                                   BDT       502
                               76360              SX3    B6          RN = ZPA                                    BDT       503
           222  36763                    FOL8A    IX7    X6+X3                                                   BDT       504
                     55771                        SA7    A7-B1       T = T + 1;  [T] = TREE(LA,RN)               BDT       505
                          0400000175 +            EQ     FOL2                                                    BDT       506
                                                                                                                 BDT       507
           223  15330                    FOL9     BX3    -X0*X3                                                  BDT       508
                     36765                        IX7    X6+X5                                                   BDT       509
                          20452                   LX4    1+D.^DP+58-D.TYP                                        BDT       510
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    16
        FOL - FORM OPERAND LINKS                                      FOL                 BDT 
  
                               55771              SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RI[R1])           BDT       511
           224  0303000225 +                      ZR     X3,FOL10    IF RF[R2] = 0                               BDT       512
                          36763                   IX7    X6+X3                                                   BDT       513
                               55771              SA7    A7-B1       T = T - 1;  [T] = TREE(LA,RF[R2])           BDT       514
                                                                                                                 BDT       515
           225  20421                    FOL10    LX4    1+D.TYP-D.BMP                                           BDT       516
                     0324000174 +                 PL     X4,FOL1     IF ^BM[DI]                                  BDT       517
                               65645              SB6    A4-B5       ZPA = LA                                    BDT       518
           226  0530000174 +                      NZ     "OC",FOL1   IF OC[R1] " 0                               BDT       519
                                                                                                                 BDT       520
                                                  TREE   FOL                                                     BDT       521
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    17
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
                                        **        FTL - FORM TERMINAL LINKS.                                     BDT       523
                                        *         LINK DATA SINKS ( STORES ) AND BOUNDARY MARKERS ( JUMPS, LAB   BDT       524
                                        *         DEFS, ETC ) TO LATER BOUNDARY MARKERS.                         BDT       525
                                        *         FORM REDEF LINKS FOR REG STORES THAT REDEFINE A REGISTER.      BDT       526
                                                                                                                 BDT       527
                          5110000000 C            SA1    N.INST                    */ CHECK WORKING STORAGE      BDT       528
           227  63310                             SB3    X1                                                      FCC1739X    6
                     64303                        SB3    A0+B3                                                   BDT       530
                          65373                   SB3    A7-B3                                                   BDT       531
                               77123              SX1    B2-B3                                                   BDT       532
           230  0321000457 +                      PL     X1,GAS      IF BMC + N.INST + 2 \ T                     BDT       533
                                                                                                                 BDT       534
                          54170                   SA1    A7          TFO = T       */ FWA OF OPERAND LINKS       FCC0514   408
                               76160              SX1    B6                                                      BDT       535
           231  54501                             SA5    A0+B1       II = BMC + 1                                BDT       536
                     20130                        LX1    T.SUCCP     LA = ZPA      */ LA = *EOQ* ADDR            BDT       537
                          54300                   SA3    A0                                                      BDT       538
                               56000              SA0    B0          FBM = 0                                     BDT       539
           232  10633                             BX6    X3                                                      BDT       540
                     5160000003 C                 SA6    LBM         LBM = [BMC]   */ DI OF LAST *BM*            BDT       541
                               43427              MX4    23                                                      BDT       542
           233  43600                             MX6    0                                                       BDT       543
                     0470000247 +                 ZR     B7,FTL3     IF N.RS = 0                                 BDT       544
                                                                                                                 BDT       545
           234  5130000000 C                      SA3    BDTA                                                    BDT       546
                          5160000010 C            SA6    REGS                                                    BDT       547
           235  20401                   +         LX4    1           FOR I = 0 TO 23;  REGS(I) = 0               BDT       548
                     54661                        SA6    A6+B1                                                   BDT       549
                          0334000235 +            MI     X4,*                                                    BDT       550
                                                                                                                 BDT       551
                                        *         IF JAM MODE, THEN LINK THE *RI* IN UJP AND FULL LOCK *RS"S*    FCC0448   174
                                        *         TO THE FOLLOWING RJX/EOQ SO *SNU* WILL CORRECTLY SET THE NEXT  FCC0448   175
                                        *         USE ADDRESS, IN CASE THE PRED HAS TO BE REISSUED.              FCC0448   176
                                                                                                                 BDT       554
           236  0303000247 +                      ZR     X3,FTL3     IF BDTA = 0   */ NOT JAM MODE               BDT       555
                          54450                   SA4    A5          I = II                                      BDT       556
                               10611              BX6    X1          JLA = LA                                    FCC0448   177
           237  6170000071                        SB7    OC.JIN                                                  FCC0448   178
                          0400000241 +            EQ     FTL1                                                    BDT       560
                                                                                                                 BDT       561
           240  63340                    FTL0     SB3    X4                                                      BDT       562
                     77635                        SX6    B3-B5       JLA = [I] - BASE                            BDT       563
                          20630                   LX6    T.SUCCP                                                 BDT       564
                                                                                                                 BDT       565
           241  55441                    FTL1     SA4    A4-B1       I = I - 1                                   BDT       566
                     0304000247 +                 ZR     X4,FTL3     IF [I] = 0                                  BDT       567
                               26534              UX5    "OC",X4                                                 BDT       568
           242  0637000240 +                      GE     "OC",B7,FTL0      IF OC[I] \ OC.JIN                     BDT       569
                          0534000241 +            NE     "OC",B4,FTL1      IF OC[I] " OC.RS                      BDT       570
                                                                                                                 BDT       571
           243  5234777775                        SA3    X4-2        R1 = [I] - 2                                BDT       572
                          15730                   BX7    -X0*X3      R = RI[R1]                                  BDT       573
                               20345              LX3    59-R1.SOP-SO.LKP                                        FCC0448   179
           244  0333000241 +                      MI     X3,FTL1     IF SOLK[R1] = 1!3  */ ^(UJP ! FULL LOCK)    FCC0448   180
                          36767                   IX7    X6+X7                                                   BDT       577
                               55771              SA7    A7-B1       T = T - 1;  [T] = TREE(JLA,R)               BDT       578
           245  0400000241 +                      EQ     FTL1                                                    BDT       579
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    18
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
                                        *         FORM THE BOUNDARY MARKER LINKS                                 BDT       581
                                                                                                                 BDT       582
           246  75145                    FTL2     SX1    A4-B5       LA = DI - BASE                              BDT       583
                     55045                        SA0    A4-B5       FBM = LA                                    BDT       584
                          20130                   LX1    T.SUCCP                                                 BDT       585
                                                                                                                 BDT       586
           247  55551                    FTL3     SA5    A5-B1       II = II - 1                                 BDT       587
                     53450                        SA4    X5          DI = [II]                                   BDT       588
                          0305000321 +            ZR     X5,FTL6     IF DI = 0                                   BDT       589
           250  26335                             UX3    "OC",X5                                                 BDT       590
                     75645                        SX6    A4-B5       LINK = DI - BASE                            BDT       591
                          36716                   IX7    X1+X6                                                   BDT       592
                               20421              LX4    59-D.BMP                                                BDT       593
           251  55771                             SA7    A7-B1       T = T - 1;  [T] = TREE(LA,LINK)             BDT       594
                     0334000246 +                 MI     X4,FTL2     IF BM[DI]                                   BDT       595
                               54241              SA2    A4+B1       LW = [DI+1]                                 FCC0514   409
           252  0434000300 +                      EQ     "OC",B4,FTL3C     IF OC[R1] = OC.RS                     FCC0514   410
                          0312000263 +            NZ     X2,FTL3AC   IF LW " 0     */ *ST* IS A REDEF            CCG3      162
           253  20405                             LX4    D.BMP-D.ECJP                                            CCG3      163
                     0324000247 +                 PL     X4,FTL3     IF ^ECJ[DI]   */ ^ AN RJXJ                  CCG3      164
                                                                                                                 CCG3      165
                                        *         RJXJ - FORCE ALL USES OF THE *RF* THAT APPEAR AFTER THE        CCG3      166
                                        *         *RJXJ* TO BE EXECUTED AFTER IT.                                CCG3      167
                                                                                                                 CCG3      168
                               55341              SA3    A4-B1       R2 = DI - 1                                 CCG3      169
           254  5120000000 C                      SA2    BDTA                                                    CCG3      170
                          20330                   LX3    -IH.RFP                                                 CCG3      171
                               63730              SB7    X3          R = RF[R2]                                  CCG3      172
           255  67707                             SB7    -B7                                                     CCG3      173
                     20226                        LX2    T.RDLP                                                  CCG3      174
                          12526                   BX5    X2+X6                                                   CCG3      175
                               54410              SA4    A1          TI = TFO                                    CCG3      176
           256  6160000030                        SB6    T.SUCCP                                                 CCG3      177
                          5160000001 C            SA6    EQVL        EQVL = 1                                    CCG3      178
                                                                                                                 CCG3      179
           257  23764                    FTL3AA   AX7    B6,X4       TL = [TI]                                   CCG3      180
                     73247                        SX2    X4+B7                                                   CCG3      181
                          54441                   SA4    A4+B1       TI = TI + 1                                 CCG3      182
                               37367              IX3    X6-X7                                                   CCG3      183
           260  0323000247 +                      PL     X3,FTL3     IF SUCC[TL] @ LINK                          CCG3      184
                          0312000257 +            NZ     X2,FTL3AA   IF PRED[TL] " R                             CCG3      185
           261  20730                             LX7    T.SUCCP                                                 CCG3      186
                     12775                        BX7    X7+X5                                                   CCG3      187
                          55771                   SA7    A7-B1       T = T - 1;  [T] = TREE(RDL,SUCC[TL],LINK)   CCG3      188
           262  0400000257 +                      EQ     FTL3AA                                                  CCG3      189
                                                                                                                 FCC0514   412
                                        *         ST IS A REDEFINITION OF PREVIOUS LD/ST, *RD* IS THE R-NUMBER   FCC0514   413
                                        *         BEING REDEFINED.  FORM REDEF LINKS TO FORCE ALL USES OF *RD*   FCC0514   414
                                        *         TO COME BEFORE THIS *ST*.                                      FCC0514   415
                                                                                                                 FCC0514   416
           263  55342                    FTL3AC   SA3    A4-B2       R1 = DI - 2                                 CCG3      190
                     63720                        SB7    X2          RD = RI[LW]   */ R-NUM BEING REDEF          FCC0514   418
                          21222                   AX2    18                                                      FCC0514   419
                               15530              BX5    -X0*X3      R = RI[R1]    */ SUCCESSOR                  FCC0514   420
           264  73220                             SX2    X2          ARD = SHIFT(LW,-18)  */ BASE INCR R-NUM     FCC0514   421
                     67707                        SB7    -B7                       (B7) = -RD                    FCC0514   422
                          6160000000              SB6    0           RD2 = 0                                     FCC0514   423
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    19
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
           265  0302000266 +                      ZR     X2,FTL3B    IF ARD = 0    */ NO ALTERNATE               FCC0514   424
                          63650                   SB6    X5          RD2 = R       */ NO LINKS FROM RD2 TO ARD   FCC0514   425
                               73520              SX5    X2          R = ARD                                     FCC0514   426
                                                                                                                 FCC0514   427
           266  43600                    FTL3B    MX6    0                                                       FCC0514   428
                     54620                        SA6    A2          [DI+1] = 0    */ CLEAR LINK WORD            FCC0514   429
                          76210                   SX2    B1                                                      FCC0514   430
                               20530              LX5    T.SUCCP                                                 FCC0514   431
           267  54410                             SA4    A1          TI = TFO                                    FCC0514   432
                     20226                        LX2    T.RDLP                                                  FCC0514   433
                          12652                   BX6    X5+X2                                                   FCC0514   434
                               20544              LX5    -T.SUCCP                                                FCC0514   435
           270  5160000001 C                      SA6    EQVL        EQVL = 1                                    FCC0514   436
                                                                                                                 FCC0514   437
                                        *         SEARCH OPERAND LINKS FOR USES OF *RD* AND FORM REDEF LINKS     FCC0514   438
                                                                                                                 FCC0514   439
           271  10744                    FTL3A    BX7    X4          TL = [TI]                                   FCC0514   440
                     73247                        SX2    X4+B7                                                   FCC0514   441
                          21730                   AX7    T.SUCCP                                                 FCC0514   442
                               54441              SA4    A4+B1       TI = TI + 1                                 FCC0514   443
           272  63377                             SB3    X7+B7                                                   CCGA010     9
                     0603000247 +                 LE     B3,FTL3     IF SUCC[TL] @ RD  */ END OF SEARCH          CCGA010    10
                               13357              BX3    X5-X7                                                   FCC0514   446
           273  0312000271 +                      NZ     X2,FTL3A    IF PRED[TL] " RD  */ NOT A USE OF *RD*      FCC0514   447
                          0303000271 +            ZR     X3,FTL3A    IF SUCC[TL] = R  */ DONT FORM LINKS TO SELF FCC0514   448
           274  63370                             SB3    X7                                                      FCC0514   449
                     0436000271 +                 EQ     B3,B6,FTL3A IF SUCC[TL] = RD2  */ NO LINK BACK TO INCR  FCC0514   450
                                                                                                                 FCC0514   451
                               12767              BX7    X6+X7                                                   FCC0514   452
           275  55771                             SA7    A7-B1       T = T - 1;  [T] = TREE(RDL,R,SUCC[TL])      FCC0514   453
                     0460000271 +                 ZR     B6,FTL3A    IF RD2 = 0    */ NO ALTERNATE               FCC1518X   33
                                                                                                                 FCC1518X   34
                                        *         FORM REDEF LINK FROM NON-BASE INCR TO USE                      FCC1518X   35
                                                                                                                 FCC1518X   36
                               20744              LX7    -T.SUCCP                                                FCC1518X   37
           276  13775                             BX7    X7-X5                                                   FCC1518X   38
                     76260                        SX2    B6                                                      FCC1518X   39
                          12727                   BX7    X2+X7                                                   FCC1518X   40
                               20730              LX7    T.SUCCP                                                 FCC1518X   41
           277  55771                             SA7    A7-B1       T = T - 1;  [T] = TREE(RDL,RD2,SUCC[TL])    FCC1518X   42
                     0400000271 +                 EQ     FTL3A                                                   FCC0514   454
  
                                        *         REGISTER STORE PROCESSING                                      BDT       598
                                                                                                                 BDT       599
           300  55342                    FTL3C    SA3    A4-B2       R1 = DI - 2                                 FCC0514   456
                     15530                        BX5    -X0*X3      R = RI[R1]                                  BDT       601
                          43266                   MX2    -SO.REGL                                                BDT       602
                               20354              LX3    -R1.SOP                                                 BDT       603
           301  15732                             BX7    -X2*X3      REGNO = SOREG[R1]                           BDT       604
                                                                                                                 BDT       613
           302  5237000010 C             FTL3D    SA3    REGS+X7     L = REGS(REGNO) */ ORD OF LAST RS INTO REGN FCC0514   460
                          54630                   SA6    A3          REGS(REGNO) = LINK                          BDT       615
                               54241              SA2    A4+B1       TA = [DI+1]                                 BDT       616
           303  55441                             SA4    A4-B1       R2 = DI - 1                                 BDT       617
                     43600                        MX6    0                                                       BDT       618
                          54620                   SA6    A2          [DI+1] = 0                                  BDT       619
                               20430              LX4    -IH.RFP                                                 BDT       620
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    20
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
           304  73440                             SX4    X4                                                      BDT       621
                     0304000307 +                 ZR     X4,FTL4     IF RF[R2] = 0                               BDT       622
                               10655              BX6    X5          LINK = R                                    BDT       623
           305  73540                             SX5    X4          R = RF[R2]                                  BDT       624
                     5120000005 C                 SA2    TF          TA = TF                                     BDT       625
           306  0400000312 +                      EQ     FTL4A                                                   BDT       626
                                                                                                                 BDT       627
           307  0303000247 +             FTL4     ZR     X3,FTL3     IF L = 0      */ NO PREVIOUS *RS* INTO REGN BDT       628
                          7263777773              SX6    X3-4        LINK = L - 4                                BDT       629
           310  20330                             LX3    T.SUCCP                                                 BDT       630
                     37731                        IX7    X3-X1                                                   BDT       631
                          0337000312 +            MI     X7,FTL4A    IF L < LA     */ LAST RS IN THIS BLOCK      BDT       632
                                                                                                                 BDT       633
           311  55441                             SA4    A4-B1       R1 = R2 - 1                                 BDT       634
                     20445                        LX4    59-R1.SOP-SO.LKP                                        BDT       635
                          0334000247 +            MI     X4,FTL3     IF SOLK[R1] = 1 ! 3  */ TEMP OR RJRS LOCK   BDT       636
                                                                                                                 BDT       637
                                        *         2 *RS*"S INTO THE SAME REGISTER IN A BLOCK, MAKE THE           BDT       638
                                        *         SECOND A REDEFINITION OF THE FIRST.                            BDT       639
                                                                                                                 BDT       640
           312  53220                    FTL4A    SA2    X2                                                      BDT       641
                     5130000000 C                 SA3    BDTA                                                    FCC0448   181
                               14555              BX5    -X5                                                     BDT       642
           313  20630                             LX6    T.SUCCP           (X6) = LINK                           BDT       643
                     63750                        SB7    X5                (B7) = R                              BDT       644
                          20326                   LX3    T.RDLP                                                  FCC0448   182
                               12663              BX6    X6+X3       EQVB = SHIFT(BDTA,T.RDLP)                   FCC0448   183
           314  5160000001 C                      SA6    EQVL        EQVL = 1                                    FCC0448   184
  
                                        *         SEARCH FOR USES OF THE R-NUMBER IN INSTRUCTIONS FOLLOWING THE  BDT       646
                                        *         CURRENT *RS*, AND FORM LINKS BETWEEN THEM AND THE INSTRUCTIION BDT       647
                                        *         PRECEEDING THE SECOND *RS*.                                    BDT       648
                                                                                                                 BDT       649
           315  55221                    FTL5     SA2    A2-B1       TA = TA - 1                                 BDT       650
                     13726                        BX7    X2-X6                                                   BDT       651
                          73327                   SX3    X2+B7                                                   BDT       652
                               21730              AX7    T.SUCCP                                                 BDT       653
           316  0307000247 +                      ZR     X7,FTL3     IF SUCC[TA] = LINK  */ END OF SEARCH        BDT       654
                          0313000315 +            NZ     X3,FTL5     IF PRED[TA] " R     */ IF NOT A USE         BDT       655
           317  21230                             AX2    T.SUCCP                                                 BDT       656
                     36762                        IX7    X6+X2                                                   BDT       657
                          55771                   SA7    A7-B1       T = T - 1;  [T] = TREE(EQVB,LINK,SUCC[TA])  FCC0448   185
           320  0400000315 +                      EQ     FTL5                                                    BDT       659
                                                                                                                 BDT       660
           321  5140000000 C             FTL6     SA4    N.INST                                                  FCC0514   461
                          10711                   BX7    X1                                                      BDT       664
                               55771              SA7    A7-B1       T = T - 1;  [T] = TREE(FBM,0)               BDT       665
                                                                                                                 BDT       666
           322  63640                             SB6    X4                        */ CHECK WORKING STORAGE      FCC0514   462
                     64656                        SB6    A5+B6                                                   BDT       668
                          64770                   SB7    A7          FTREE = T                                   BDT       669
                               77167              SX1    B6-B7                                                   BDT       670
           323  0667000457 +                      GE     B6,B7,GAS   IF O.TREE + N.INST \ T                      BDT       671
                                                  TREE   FTL                                                     BDT       672
                                                                                                                 BDT       673
                                        *         SORT THE TEMPORARY TREE TO GROUP EDGES BY SUCCESSOR            BDT       674
                                                                                                                 BDT       675
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    21
        FTL - FORM TERMINAL ( END OF SEQ ) LINKS                      FTL                 BDT 
  
                          5120000006 C            SA2    TREEL                                                   BDT       676
           324  5130000001 C                      SA3    EQVL                                                    BDT       677
                          74600                   SX6    A0                                                      BDT       678
                               74770              SX7    A7                                                      BDT       679
           325  5160000002 C                      SA6    FBM                                                     BDT       680
                          5170000004 C            SA7    FTREE       FTREE = T                                   BDT       681
           326  37127                             IX1    X2-X7       LEN = TREEL - FTREE                         BDT       682
                     0313000331 +                 NZ     X3,FTL8     IF EQVL " 0                                 BDT       683
           327  0100000000 X                      CALL   SHL#        SORT( TREE , [SUCC,PRED] )                  CCGNC     798
           330  0400000333 +                      EQ     FTL10                                                   BDT       685
                                                                                                                 BDT       686
                                        *         JAM MODE AND EQUIV LINKS, USE MASK SORT                        BDT       687
                                                                                                                 BDT       688
           331  43072                    FTL8     MX0    -2                                                      FCC0448   186
                     66600                        SB6    B0                                                      BDT       690
                          43500                   MX5    0                                                       BDT       691
                               20072              LX0    T.EQVP                                                  BDT       692
           332  0100000000 X                      CALL   SST#        SORT( TREE , [SUCC,PRED] )                  CCGNC     799
                                                                                                                 FCC0514   463
           333                           FTL10    BSS    0                                                       FCC0514   464
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    22
        FJL - FORM JUMP LINKS                                         FJL                 BDT 
  
                                        **        FJL - FORM LINKS TO JUMPS FROM BELOW TO CONSTRAIN INSTRUCTIION BDT       697
                                        *         TO BE TIED TO THE BLOCK THEY APPEAR IN.                        BDT       698
                                                                                                                 BDT       699
           333  5110000004 C                      SA1    FTREE                                                   BDT       700
                          5130000000 X            SA3    O.TREE                                                  BDT       701
           334  5140000002 C                      SA4    FBM                                                     BDT       702
                          5150000000 X            SA5    L.TXT                                                   BDT       703
           335  7264000010                        SX6    X4+8                                                    BDT       704
                          43700                   MX7    0                                                       BDT       705
                               37665              IX6    X6-X5                                                   BDT       706
           336  0304000337 +                      ZR     X4,FJL      IF FBM = 0    */ NO BOUNDARY MARKERS        BDT       707
                          0316000341 +            NZ     X6,FJL1     IF FBM+8 < L.TXT  */ SEQ HAS AN INTERIOR JP BDT       708
                                                                                                                 BDT       709
                                        *         NO JUMPS                                                       BDT       710
                                                                                                                 BDT       711
           337  10611                    FJL      BX6    X1                                                      BDT       712
                     54630                        SA6    A3          O.TREE = FTREE                              BDT       713
                          5271777776              SA7    X1-1        [FTREE-1] = 0                               BDT       714
           340  0400000360 +                      EQ     FJL6                                                    BDT       715
                                                                                                                 BDT       716
                                        *         MOVE THE TEMP TREE DOWN AND ADD JUMP LINKS WHERE NECESSARY     BDT       717
                                        *         ADD *JP* LINK IF ALL PREDECESSORS LIE BELOW THE *JP*           BDT       718
                                                                                                                 BDT       719
           341  5251777776               FJL1     SA5    X1-1        TI = FTREE - 1                              BDT       720
                          5120000000 X            SA2    O.TXT                                                   BDT       721
           342  43052                             MX0    -T.SUCCL                                                BDT       722
                     63740                        SB7    X4          JPL = FBM                                   BDT       723
                          6252000002              SB5    X2+2        BASE = O.TXT + 2                            BDT       724
           343  6160000044                        SB6    60-T.SUCCP                                              BDT       725
                          20030                   LX0    T.SUCCP                                                 BDT       726
                               53730              SA7    X3          TS = O.TREE;  [TS] = 0                      BDT       727
           344  73631                             SX6    X3+B1                                                   BDT       728
                     54630                        SA6    A3          O.TREE = O.TREE + 1                         BDT       729
                                                                                                                 BDT       730
                                        *         MOVE LINKS PRECEEDING THE FIRST *BM* DOWN                      BDT       731
                                                                                                                 BDT       732
           345  54551                    FJL2     SA5    A5+B1       TI = TI + 1                                 BDT       733
                     22465                        LX4    B6,X5                                                   BDT       734
                          10755                   BX7    X5                                                      BDT       735
                               63340              SB3    X4                                                      BDT       736
           346  54771                             SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                   BDT       737
                     0673000345 +                 LE     B3,B7,FJL2  IF SUCC[TI] @ JPL                           BDT       738
                                                                                                                 BDT       739
                                        *         SCAN THE SET OF EDGES FOR EACH INSTRUCTION ( GROUPED BY SUCC ) BDT       740
                                        *         AND IF THE MAX OF THE PRED < R, LINK TO A NODE BELOW THE       FCC0715A    4
                                        *         LAST ENCOUNTERED *BM* , FORM A LINK TO IT.                     BDT       742
                                                                                                                 BDT       743
           347  15650                    FJL3     BX6    -X0*X5      R = SUCC[TI]                                BDT       744
                     22465                        LX4    B6,X5                                                   BDT       745
                          63340                   SB3    X4                                                      FCC0715A    5
                               66400              SB4    B0          M = 0                                       FCC0715A    6
                                                                                                                 FCC0715A    7
           350  63250                    FJL4     SB2    X5                                                      FCC0715A    8
                     0732000351 +                 GT     B2,B3,FJL4A IF PRED[TI] > R  */ A REDEFINITION LINK     FCC0715A    9
                               63450              SB4    X5          M = PRED[TI]                                FCC0715A   10
           351  5055000001               FJL4A    SA5    A5+1        TI = TI + 1                                 FCC0715A   11
                          13465                   BX4    X6-X5                                                   BDT       750
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    23
        FJL - FORM JUMP LINKS                                         FJL                 BDT 
  
                               22705              LX7    X5                                                      BDT       751
           352  15340                             BX3    -X0*X4                                                  BDT       752
                     54771                        SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                   BDT       753
                          0303000350 +            ZR     X3,FJL4     IF SUCC[TI] = R                             BDT       754
                                                                                                                 BDT       755
           353  7137000000                        SX3    B7+                                                     BDT       756
                          56253                   SA2    B5+B3       DI = BASE + R                               BDT       757
                               36663              IX6    X6+X3                                                   BDT       758
           354  0647000355 +                      GE     B4,B7,FJL5  IF M \ JPL                                  BDT       759
                          54670                   SA6    A7          [TS] = TREE(R,JPL)                          BDT       760
                               54771              SA7    A7+B1       TS = TS + 1;  [TS] = [TI]                   BDT       761
                                                                                                                 BDT       762
           355  20221                    FJL5     LX2    59-D.BMP                                                BDT       763
                     0322000347 +                 PL     X2,FJL3     IF ^BM[DI]                                  BDT       764
                               66730              SB7    B3          JPL = R                                     BDT       765
           356  0315000347 +                      NZ     X5,FJL3     IF [TI] " 0                                 BDT       766
                                                                                                                 BDT       767
                          74670                   SX6    A7          TREEL = TS                                  BDT       768
           357  5160000006 C                      SA6    TREEL                                                   BDT       769
                                                                                                                 BDT       770
                                                  IF     DEF,/DEBUG/FJL,1                                        BDT       771
                                         TREE-FJL SNAP   *O.TREE,TREEL                                           CCG11     133
                                                                                                                 BDT       773
           360  5110000000 +             FJL6     SA1    SIOCALL                                                 BDT       774
                          0301000364 +            ZR     X1,CIP      IF SIOCALL = 0                              BDT       775
                                                                                                                 BDT       776
                                        *         BDT CALLED FROM *RIO*, SET *TREE* LENGTH AND EXIT              BDT       777
                                                                                                                 BDT       778
           361  5120000000 X                      SA2    O.TREE                                                  BDT       779
                          5130000006 C            SA3    TREEL                                                   BDT       780
           362  37632                             IX6    X3-X2                                                   BDT       781
                     5160000000 X                 SA6    L.TREE      L.TREE = TREEL - O.TREE                     BDT       782
                               43700              MX7    0                                                       BDT       783
           363  54710                             SA7    A1          SIOCALL = 0                                 BDT       784
                     0400000001 +                 EQ     BDT                                                     BDT       785
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    24
        CIP - CALCULATE INSTRUCTION PRIORITIES                        CIP                 BDT 
  
                                        **        CIP - CALCULATE INSTRUCTION PRIORITIES                         BDT       787
                                        *         CALCULATES TIME TO TRAVEL FROM *EOQ* TO *BOS* OF NETWORK       BDT       788
                                        *         THROUGH THE NODES. NODE TIME IS EITHER THE INSTRUCTION TIME    BDT       789
                                        *         FUN UNIT ) OR 1 ( FOR A NODE DEPTH CALCULATION ).              BDT       790
                                        *         THEN CHANGE THE THE "PRIORITIES" INTO "LATE START TIMES",      BDT       791
                                        *         WHERE  LST[LI] = SEQTIME - PRIOR[LI] , IS THE LATEST TIME      BDT       792
                                        *         THAT AN INSTRUCTION MAY START WITHOUT LENGTHING THE SCHEDULE.  BDT       793
                                                                                                                 BDT       794
           364  43067                    CIP      MX0    -D.FTL                                                  BDT       795
                     5110000000 C                 SA1    BDTA                                                    BDT       796
                               20065              LX0    D.FTP                                                   BDT       797
           365  5140000000 X                      SA4    O.TXT                                                   BDT       798
                          6140777734              SB4    I.PRIORP-D.FTP                                          BDT       799
           366  5204000003                        SA0    X4+3        BASE = O.TXT + 3                            BDT       800
                          0311000417 +            NZ     X1,CIP6     IF BDTA " 0   */ JAM MODE                   BDT       801
           367  5150000001 C                      SA5    N.ST                                                    CCG0207     5
                          21506                   AX5    6                                                       CCG0207     6
           370  0305000373 +                      ZR     X5,CIP1                      */ IF N.ST .LT. 64         CCG0207     7
                          54150                   SA1    A5                                                      CCG0207     8
           371  5130000000 C                      SA3    N.INST                                                  CCG0207     9
                          63310                   SB3    X1                                                      CCG0207    10
                               21301              AX3    1                                                       CCG0207    11
           372  63530                             SB5    X3                                                      CCG0207    12
                     0753000417 +                 GT     B3,B5,CIP6         */IF N.INST/2 .GT. N.ST, JAM MODE    CCG0207    13
                                                                                                                 BDT       802
           373  5130000006 C             CIP1     SA3    TREEL                                                   BDT       803
                          5071000000              SA7    A1+         LBM = JPA                                   BDT       804
           374  5253777776                        SA5    X3-1        TI = TREEL - 1                              BDT       805
                          43163                   MX1    -D.USESL                                                BDT       806
                                                  LX1    D.USESP                                                 BDT       807
           375  6170000044                        SB7    60-T.SUCCP                                              BDT       808
                          63650                   SB6    X5          P = PRED[TI]                                BDT       809
                               20544              LX5    -T.SUCCP                                                BDT       810
           376  63550                             SB5    X5          R = SUCC[TI]                                BDT       811
                     64350                        SB3    A5          TL = TI                                     BDT       812
                          54405                   SA4    A0+B5       PI = BASE + R                               BDT       813
                               54306              SA3    A0+B6       PTI = BASE + P                              BDT       814
           377  55241                             SA2    A4-B1       DI = PI - 1   */ FT[*EOQ*] = 1              BDT       815
                                                                                                                 BDT       816
                                        *         CALCULATE TIME TO REACH THIS INSTRUCTION                       BDT       817
                                                                                                                 BDT       818
           400  15620                    CIP2     BX6    -X0*X2                                                  BDT       819
                     22546                        LX5    B4,X6                                                   BDT       820
                          36745                   IX7    X4+X5       TOTIME = PRIOR[PI] + FT[DI]                 BDT       821
                               15621              BX6    -X1*X2                                                  BDT       822
                                                                                                                 BDT       823
                                        *         PROPAGATE TIME TO REACH THIS INSTRUCTION TO ITS PREDECESSORS   BDT       824
                                                                                                                 BDT       825
           401  55551                    CIP3     SA5    A5-B1       TI = TI - 1                                 BDT       826
                     37437                        IX4    X3-X7                                                   BDT       827
                          63650                   SB6    X5          P = PRED[TI]                                BDT       828
                               22375              LX3    B7,X5                                                   BDT       829
           402  63230                             SB2    X3                                                      BDT       830
                     0324000403 +                 PL     X4,CIP4     PRIOR[PTI] = MAX( PRIOR[PTI] , TOTIME )     BDT       831
                               54730              SA7    A3                                                      BDT       832
           403  54306                    CIP4     SA3    A0+B6       PTI = BASE + P                              BDT       833
                     0425000401 +                 EQ     B2,B5,CIP3  IF SUCC[TI] = R                             BDT       834
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    25
        CIP - CALCULATE INSTRUCTION PRIORITIES                        CIP                 BDT 
  
                                                                                                                 BDT       835
                                        *         SET PRIORITY INFO IN LAST WORD OF INSTRUCTION                  BDT       836
                                                                                                                 BDT       837
                               20660              LX6    I.USESP-D.USESP                                         BDT       838
           404  75453                             SX4    A5-B3       NPRED[PI] = -( TI - TL )                    BDT       839
                     12776                        BX7    X7+X6       USES[PI] = USES[DI]                         BDT       840
                                                  LX4    I.NPREDP                                                BDT       841
                          37674                   IX6    X7-X4                                                   BDT       842
                               54640              SA6    A4                                                      BDT       843
                                                                                                                 BDT       844
           405  66520                             SB5    B2          R = SUCC[TI]                                BDT       845
                     54402                        SA4    A0+B2       PI = BASE + R                               BDT       846
                          64350                   SB3    A5          TL = TI                                     BDT       847
                               55241              SA2    A4-B1       DI = PI - 1                                 BDT       848
           406  0315000400 +                      NZ     X5,CIP2     IF [TI] " 0                                 BDT       849
                          10744                   BX7    X4                                                      BDT       850
                               21722              AX7    I.PRIORP                                                BDT       851
           407  5170000002 C                      SA7    SEQTIME     SEQTIME = PRIOR[PI]  */ TIME TO REACH *BOS* BDT       852
                                                                                                                 BDT       853
                                        *         CONVERT THE PRIORITIES TO *LATE START TIMES*, SET THE *LST"S*  FCC0641    78
                                        *         OF *RS* INSTRUCTIONS TO ZERO TO FORCE THEM TO BE ISSUED        FCC0641    79
                                        *         IMMEDIATELY AFTER THEIR PREDECESSORS IN *MCG*.                 FCC0641    80
                                                                                                                 BDT       855
                          43055                   MX0    -I.PRIORL                                               BDT       856
                               20722              LX7    I.PRIORP                                                BDT       857
           410  5110000000 C                      SA1    N.INST                                                  BDT       858
                          6140000004              SB4    4                                                       BDT       859
           411  6221777776                        SB2    X1-1        I = N - 1                                   BDT       860
                          54444                   SA4    A4+B4       LI = BASE + 4                               BDT       861
                               20022              LX0    I.PRIORP                                                BDT       862
           412  6150000004                        SB5    OC.RS                                                   FCC0641    81
                          15540                   BX5    -X0*X4      PR = PRIOR[LI]                              FCC0641    82
                                                                                                                 FCC0641    83
           413  37275                    CIP5     IX2    X7-X5       LST[LI] = SEQTIME - PR                      FCC0641    84
                     54141                        SA1    A4+B1       R1 = LI + 1   */ R1 WORD OF NEXT            FCC0641    85
                          11304                   BX3    X0*X4                                                   FCC0641    86
                               54444              SA4    A4+B4       LI = LI + 4                                 FCC0641    87
           414  36623                             IX6    X2+X3                                                   FCC0641    88
                     67221                        SB2    B2-B1       I = I - 1                                   FCC0641    89
                          26131                   UX1    B3,X1                                                   FCC0641    90
                               15540              BX5    -X0*X4      PR = PRIOR[LI]                              FCC0641    91
           415  55644                             SA6    A4-B4                                                   FCC0641    92
                     0535000416 +                 NE     B3,B5,CIP5A IF OC[R1] " OC.RS                           FCC0641    93
                               10577              BX5    X7          PR = SEQTIME  */ FORCE LST = 0              FCC0641    94
           416  0520000413 +             CIP5A    NZ     B2,CIP5     IF I " 0                                    FCC0641    95
                                                                                                                 BDT       873
                                         DBG      IF     DEF,/DEBUG/TREE                                         BDT       874
                                                  SNAPRL BDT-X                                                   BDT       875
                                                  SA1    O.TREE                                                  BDT       876
                                                  SA5    TREEL                                                   BDT       877
                                                  IX6    X5-X1                                                   BDT       878
                                                  BX7    X1                                                      BDT       879
                                                  SA6    L.TREE      L.TREE = TREEL - O.TREE                     BDT       880
                                                  SA7    DTSA+1                                                  BDT       881
                                                  SX6    A0-3                                                    BDT       882
                                                  SA6    A7+2                                                    BDT       883
                                                  SA1    DTSA                                                    BDT       884
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    26
        CIP - CALCULATE INSTRUCTION PRIORITIES                        CIP                 BDT 
  
                                                  RJ     =XDMPTREE   SNAP THE DEPENDENCY TREE                    BDT       885
                                                  RJ     RSR=                                                    CCG11     134
                                         DBG      ENDIF                                                          BDT       887
                                                                                                                 BDT       888
                          0400000437 +            EQ     SIT                                                     BDT       889
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    27
        CIP - CALCULATE INSTRUCTION PRIORITIES                        CIP-JAM             BDT 
  
                                        **        JAM MODE "PRIORITY" CALCULATION                                BDT       891
                                        *         ELIMINATE DUPLICATE EDGES FROM THE TREE. ( FOR MCG/RIL )       BDT       892
                                        *         REFORMAT IT AS A USES INDEX TABLE.                             BDT       893
                                        *         SETUP THE USES, LST AND NPRED FIELDS IN THE LINK WORD.         BDT       894
                                                                                                                 BDT       895
           417  5130000000 X             CIP6     SA3    O.TREE                                                  BDT       896
                          43163                   MX1    -D.USESL                                                BDT       897
                               76011              SX0    B1+B1       PR = 2                                      BDT       898
                                                  LX1    D.USESP                                                 BDT       899
           420  63730                             SB7    X3          TF = O.TREE                                 BDT       900
                     43700                        MX7    0                                                       BDT       901
                          20022                   LX0    U.LSTP                                                  BDT       902
                               57771              SA7    B7-B1       UI = O.TREE - 1;  [UI] = 0 */ STORE ADDR    BDT       903
           421  6160000044                        SB6    60-T.SUCCP                                              BDT       904
                          53530                   SA5    X3          TI = O.TREE   */ FETCH ADDR                 BDT       905
                               67571              SB5    B7-B1       UF = O.TREE - 1                             BDT       906
           422  6120000000                        SB2    I.LSTP-U.LSTP                                           BDT       907
                          10200                   BX2    X0                                                      BDT       908
                               65301              SB3    A0-B1                                                   BDT       909
                                                                                                                 BDT       910
                                        *         COUNT PREDECESSORS OF CURRENT SUCCESSOR                        BDT       911
                                                                                                                 BDT       912
           423  10655                    CIP7     BX6    X5          TL = [TI]                                   BDT       913
                     54551                        SA5    A5+B1       TI = TI + 1                                 BDT       914
                          22766                   LX7    B6,X6                                                   BDT       915
                               13465              BX4    X6-X5                                                   BDT       916
           424  0304000423 +                      ZR     X4,CIP7     IF [TI] = TL  */ DUP EDGE                   BDT       917
                                                                                                                 BDT       918
                          36707                   IX7    X0+X7                                                   BDT       919
                               21430              AX4    T.SUCCP                                                 BDT       920
           425  54771                             SA7    A7+B1       UI = UI + 1;  [UI] = SIT(PRED[TL],PR,SUCC[T BDT       921
                     0304000423 +                 ZR     X4,CIP7     IF SUCC[TI] = SUCC[TL]                      BDT       922
                                                                                                                 BDT       923
                                        *         SETUP INFO IN LINK WORD                                        BDT       924
                                                                                                                 BDT       925
                               53373              SA3    B3+X7       DI = O.TXT+2 + SUCC[TL]                     BDT       926
           426  75475                             SX4    A7-B5       NPRED[LW] = UI - UF                         BDT       927
                     22720                        LX7    B2,X0       LST[LW] = PR                                BDT       928
                                                  LX4    I.NPREDP                                                BDT       929
                          15331                   BX3    -X1*X3                                                  BDT       930
                               36002              IX0    X0+X2       PR = PR + 2                                 BDT       931
           427  20360                             LX3    I.USESP-D.USESP   USES[LW] = USES[DI]                   BDT       932
                     12447                        BX4    X4+X7                                                   BDT       933
                          64570                   SB5    A7          UF = UI                                     BDT       934
                               36643              IX6    X4+X3                                                   BDT       935
           430  54631                             SA6    A3+B1       LW = DI + 1                                 BDT       936
                     0315000423 +                 NZ     X5,CIP7     IF [TI] " 0                                 BDT       937
                                                                                                                 BDT       938
                               10600              BX6    X0                                                      BDT       939
           431  54600                             SA6    A0          LST[BASE] = PR                              BDT       940
                     43700                        MX7    0                                                       BDT       941
                          54771                   SA7    A7+B1       UI = UI + 1;  [UI] = 0                      BDT       942
                               74670              SX6    A7                                                      BDT       943
           432  5160000006 C                      SA6    TREEL       TREEL = UI                                  BDT       944
                          75177                   SX1    A7-B7       L.TREE = UI - O.TREE                        BDT       945
                               10711              BX7    X1                                                      BDT       946
           433  5130000001 C                      SA3    EQVL                                                    BDT       947
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    28
        CIP - CALCULATE INSTRUCTION PRIORITIES                        CIP-JAM             BDT 
  
                          0303000445 +            ZR     X3,SIT1A    IF EQVL = 0                                 BDT       948
                                                                                                                 BDT       949
           434  43072                             MX0    -2                                                      FCC0448   187
                     66600                        SB6    B0                                                      BDT       951
                          43500                   MX5    0                                                       BDT       952
                               20071              LX0    U.EQVP                                                  BDT       953
           435  5170000000 X                      SA7    L.TREE                                                  BDT       954
                          0100000000 X            CALL   SST#        SORT( TREE , [PRED,SUCC] )                  CCGNC     800
           436  0400000446 +                      EQ     SIT1B                                                   BDT       956
  
  
                                        **        SIT - REFORMAT THE TREE AS A *USES INDEX* TABLE.               BDT       958
                                        *                24/PRED,18/LST[SUCC],18/SUCC                            BDT       959
                                                                                                                 BDT       960
           437  5110000006 C             SIT      SA1    TREEL                                                   BDT       961
                          5251777776              SA5    X1-1        UI = TREEL - 1                              BDT       962
           440  43055                             MX0    -I.LSTL                                                 BDT       963
                     64400                        SB4    A0          BASE = O.TXT + 3                            BDT       964
                          20022                   LX0    I.LSTP                                                  BDT       965
           441  6150000044                        SB5    60-T.SUCCP                                              BDT       966
                          22655                   LX6    B5,X5                                                   BDT       967
                                                                                                                 BDT       968
           442  53464                    SIT1     SA4    B4+X6       PW = BASE + SUCC[UI]                        BDT       969
                     55551                        SA5    A5-B1       UI = UI - 1                                 BDT       970
                          15340                   BX3    -X0*X4                                                  BDT       971
                                                  LX3    U.LSTP-I.LSTP                                           BDT       972
                               36736              IX7    X3+X6       LST[UI+1] = LST[PI]                         BDT       973
           443  22655                             LX6    B5,X5                                                   BDT       974
                     54751                        SA7    A5+B1                                                   BDT       975
                          0315000442 +            NZ     X5,SIT1     IF [UI] " 0                                 BDT       976
                                                                                                                 BDT       977
           444  74651                             SX6    A5+B1                                                   BDT       978
                     64751                        SB7    A5+B1       O.TREE = UI + 1                             BDT       979
                          37716                   IX7    X1-X6       L.TREE = TREEL - O.TREE                     BDT       980
                               10177              BX1    X7                                                      BDT       981
           445  5170000000 X             SIT1A    SA7    L.TREE                                                  BDT       982
                          0100000000 X            CALL   SHL#        SORT( TREE , [PRED,LST[SUCC],SUCC] )        CCGNC     801
  
  
                                        *         NOW SETUP THE USES INDEX INFO IN THE LINK WORD OF THE INST     BDT       985
                                                                                                                 BDT       986
           446  43001                    SIT1B    MX0    1                                                       BDT       987
                     6130000044                   SB3    U.PREDP                                                 BDT       988
                                                  LX0    1+U.LASTP                                               BDT       989
                               56570              SA5    B7          UI = O.TREE                                 BDT       990
           447  43152                             MX1    -U.PREDL                                                BDT       991
                     66670                        SB6    B7          UF = O.TREE                                 BDT       992
                          20144                   LX1    U.PREDP                                                 BDT       993
                               64500              SB5    A0          BASE = O.TXT + 3                            BDT       994
           450  0400000452 +                      EQ     SIT3                                                    BDT       995
                                                                                                                 BDT       996
           451  12623                    SIT2     BX6    X2+X3       [LW] = UINFO(USES,INDX,LST,NPRED)           BDT       997
                     5063000000                   SA6    A3+                                                     BDT       998
                                                                                                                 BDT       999
           452  22405                    SIT3     LX4    X5          UL = UI                                     BDT      1000
                     54551                        SA5    A5+B1       UI = UI + 1                                 BDT      1001
                          13645                   BX6    X4-X5                                                   BDT      1002
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    29
        CIP - CALCULATE INSTRUCTION PRIORITIES                        SIT                 BDT 
  
                               15761              BX7    -X1*X6                                                  BDT      1003
           453  0307000452 +                      ZR     X7,SIT3     IF PRED[UI] = PRED[UL]                      BDT      1004
                                                                                                                 BDT      1005
                          23634                   AX6    B3,X4                                                   BDT      1006
                               77267              SX2    B6-B7       INDX = UF - O.TREE                          BDT      1007
           454  12704                             BX7    X0+X4       LAST[UI-1] = 1                              BDT      1008
                     53365                        SA3    B5+X6       LW = BASE + PRED[UL]                        BDT      1009
                          20241                   LX2    I.INDXP                                                 BDT      1010
                               64650              SB6    A5          UF = UI                                     BDT      1011
           455  55751                             SA7    A5-B1                                                   BDT      1012
                     0315000451 +                 NZ     X5,SIT2     IF [UI] " 0                                 BDT      1013
                               12623              BX6    X2+X3                                                   BDT      1014
           456  54630                             SA6    A3                                                      BDT      1015
                                                                                                                 BDT      1016
                                         DBG      IF     DEF,/DEBUG/BDT                                          BDT      1017
                                                  SNAPRL BDT-X                                                   BDT      1018
                                                  SA2    O.TREE                                                  BDT      1019
                                                  SX7    A0-3                                                    BDT      1020
                                                  BX6    X2                                                      BDT      1021
                                                  SA6    DTSA+1                                                  BDT      1022
                                                  SA7    A6+2                                                    BDT      1023
                                                  SA1    DTSA                                                    BDT      1024
                                                  CALL   DMPSIT                                                  BDT      1025
                                                  RJ     RSR=                                                    CCG11     135
                                         DBG      ENDIF                                                          BDT      1027
                     0400000001 +                 EQ     BDT                                                     BDT      1028
                                                                                                                 BDT      1029
                                         .T       IFNE   TEST,0                                                  FCC1056    46
                                                  USE    DEBUG                                                   FCC1056    47
                                         DTSA     CON    DTSB,0,L.TREE                                           BDT      1032
                                                  BSSZ   2                                                       BDT      1033
                                         DTSB     BSSZ   1           SNAP COUNT                                  BDT      1034
                                                  USE    0                                                       BDT      1035
                                         .T       ENDIF                                                          FCC1056    48
  
  
  
                                        **        GAS - GET ADDITIONAL SPACE TO BUILD THE TREE AND RESTART       BDT      1038
                                        *         NOTE - THIS SUBROUTINE SHOULD ALMOST NEVER BE CALLED IF THE    BDT      1039
                                        *         INITIAL STORAGE REQUEST IS SUFFICIENT.                         BDT      1040
                                        *         ENTRY  (X1) = MIN SPACE NEEDED                                 BDT      1041
                                        *         EXIT   *TREE* SPACE INCREASED, POINTERS ADJUSTED, TO *FIL*     BDT      1042
                                                                                                                 BDT      1043
           457  7211000040               GAS      SX1    X1+40B                                                  BDT      1044
                          5100000000 X            ALLOC  TREE,X1     GET SPACE                                   BDT      1045
           461  5150000000 X                      SA5    O.TXT                                                   BDT      1046
                          7233777776              SX3    X3-1                                                    BDT      1047
           462  36623                             IX6    X2+X3                                                   BDT      1048
                     5160000006 C                 SA6    TREEL                                                   BDT      1049
                               53050              SA0    X5          (A0) = O.TXT                                BDT      1050
           463  66211                             SB2    B1+B1       (B2) = 2                                    BDT      1051
                     66422                        SB4    B2+B2       (B4) = 4                                    BDT      1052
                          0400000012 +            EQ     FIL                                                     BDT      1053
                                                                                                                 BDT      1054
                                                  QUAL                                                           BDT      1055
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    30
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                                        **        RIO - RESET INSTRUCTION ORDER                                  BDT      1057
                                        *                                                                        BDT      1058
                                        *         RIO REORDERS THE INSTRUCTIONS TO BRING THEM TO AN ORDER THAT   BDT      1059
                                        *         IS "MINIMUM" WIDTH WITH RESPECT TO ITS X-REGISTER              BDT      1060
                                        *         REQUIREMENTS.  THE ALGORITHM USED HERE IS STRAIGHT FROM        BDT      1061
                                        *         AHO-ULLMAN VOLUME II, AND ACHIEVES A MINIMUM ONLY IN THE       BDT      1062
                                        *         CASE OF NO MULTIPLE USES.                                      BDT      1063
                                        *                                                                        BDT      1064
                                        *         ENTRY  SEQUENCE TO BE REORDERED IN *TXT*, LINK WORDS ARE ZERO, BDT      1065
                                        *                USES COUNTS AND PRECEDENCE BITS SET IN DESCRIPTORS.     BDT      1066
                                        *                (X6) = RMODE, 0 IF CALL FROM MCG, 1 IF CALL FROM GPO    FCC0514   465
                                        *                                                                        BDT      1067
                                        *         EXIT   (X6) = MAX REG WIDTH OF THE SEQUENCE                    BDT      1068
                                        *                *REGW* FIELD SET IN THE DESCRIPTORS OF ALL INSTRUCTIONS BDT      1069
                                        *                LINK WORDS CLEARED.                                     BDT      1070
                                                                                                                 BDT      1071
                                        *         JT. - RIO TREE AFTER REFORMATTING                              BDT      1072
                                                                                                                 BDT      1073
                                                  DESCRIBE JT.,60    JT(SUCC,LVL,PRED)                           BDT      1074
      L     52  77777700000000000000     SUCC     DEFINE 18                                                      BDT      1075
                                                  DEFINE 6                                                       BDT      1076
      L     22  00000000777777000000     LVL      DEFINE 18          LEVEL OF PRED  ( NODE LABEL OR WEIGHT )     BDT      1077
      L      0  00000000000000777777     PRED     DEFINE 18                                                      BDT      1078
                                                                                                                 BDT      1079
                                        *         I. - FORMAT OF LINK WORD DURING DEPTH FIRST SEARCH ( *SIO* )   BDT      1080
                                                                                                                 BDT      1081
                                                  DESCRIBE I.,60     LW(FLAGS,PRI,LVL,NP)                        BDT      1082
      L     73  40000000000000000000     MI       DEFINE 1           MARKED INSTRCUTION ( VISITED )              BDT      1083
      L     72  20000000000000000000     II       DEFINE 1           ISSUED INSTRUCTION                          BDT      1084
      L     71  10000000000000000000     RDST     DEFINE 1           =1 IF A REDEF ST BELOW INST IN THE STACK    FCC0791     5
      L     70  04000000000000000000     STCP     DEFINE 1           =1 IF ST CHAIN PROCESSED                    FCC1126    22
                                                  DEFINE 2                                                       FCC1126    23
      L     44  00777777000000000000     PRI      DEFINE 18          ADDRESS OF PRED LIST IN *TREE*              BDT      1086
      L     22  00000000777777000000     LVL      DEFINE 18          LEVEL / ST CHAIN POINTER                    FCC0514   466
      L      0  00000000000000777777     NP       DEFINE 18          N.PRED NOT YET VISITED                      BDT      1088
                                                                                                                 BDT      1089
      L      0  00000000000000777777     OI       DEQU   NP          OUTPUT INDEX ( FINAL ORED OF INSTRUCTION )  BDT      1090
                                                                                                                 FCC1290     6
                                  10     MIN.PR   EQU    10B         MIN PRIORITY FOR NON-TERMINAL INSTRUCTIONS  FCC1290     7
  
  
           464                           RIO      ENTRY. **,#                                                    CCGNC     803
           465  0316000467 +                      NZ     X6,RIO1     IF RMODE " 0  */ CALL FROM *GPO*            FCC0514   467
                          5110000000 X            SA1    =XHBI#                                                  CCGNC     804
           466  0301000733 +                      ZR     X1,SIO10    IF HBI = 0    */ OUTSIDE OF ALL LOOPS       FCC0675   257
                                                                                                                 FCC0514   470
           467  5160000736 +             RIO1     SA6    RMODE                                                   FCC0514   471
                          73761                   SX7    X6+B1                                                   FCC0514   472
                               43600              MX6    0                                                       BDT      1095
           470  5170000000 +                      SA7    SIOCALL                                                 BDT      1096
                          0100000001 +            CALL   BDT         FORM THE DEPENDENCY GRAPH                   BDT      1097
                                                                                                                 BDT      1098
                                        *         ALLOCATE EXTRA SPACE IN *TREE* FOR THE STACK, AND MOVED INSTS. BDT      1099
                                                                                                                 BDT      1100
           471  5130000000 C                      SA3    N.INST                                                  BDT      1101
                          5140000000 X            SA4    L.TREE                                                  BDT      1102
           472  5150000000 X                      SA5    L.TXT                                                   BDT      1103
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    31
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                          63331                   SB3    X3+B1                                                   BDT      1104
                               37154              IX1    X5-X4                                                   BDT      1105
           473  63411                             SB4    X1+B1                                                   BDT      1106
                     0734000474 +                 GT     B4,B3,RIO2  L = MAX( N.INST+2 , L.TXT - L.TREE )        BDT      1107
                               76131              SX1    B3+B1                                                   BDT      1108
           474  5100000000 X             RIO2     ALLOC  TREE,X1     ALLOC( TREE , L )                           BDT      1109
           475  43600                             MX6    0                                                       BDT      1110
                     53020                        SA0    X2                        (A0) = TREE                   BDT      1111
                          53626                   SA6    X2+B6       TREE(OLD(LTREE)) = 0                        BDT      1112
  
  
                                        *         REFORMAT THE TREE, CALCULATE THE INSTRUCTION NODE LABELS AS    BDT      1114
                                        *         PER AHO-ULLMAN, SETUP LINK WORDS FOR DEPTH FIRST SEARCH.       BDT      1115
                                                                                                                 BDT      1116
                               43702              MX7    2                                                       BDT      1117
           476  5140000000 X                      SA4    O.TXT                                                   BDT      1118
                          6120000010              SB2    MIN.PR                    (B2) = MIN.PR                 FCC1290     8
           477  76620                             SX6    B2                                                      FCC1290     9
                     6274000003                   SB7    X4+3        TB = TXT + 3                                BDT      1120
                               20622              LX6    I.LVLP                                                  BDT      1121
           500  12776                             BX7    X7+X6                                                   BDT      1122
                     56770                        SA7    B7          [TB] = LW(II,MI,0,MIN.PR,0)                 FCC1290    10
                          43052                   MX0    -T.SUCCL                                                BDT      1124
                               64600              SB6    A0          TF = TREE                                   BDT      1125
           501  20030                             LX0    T.SUCCP                                                 BDT      1126
                     43100                        MX1    0           DLV = 0       */ DIFFERENCE OF LEVELS       BDT      1127
                          76220                   SX2    B2          LLV = MIN.PR  */ LAST *LV*                  FCC1290    11
                               66420              SB4    B2          MLV = MIN.PR  */ MAX LVL OF PRED            FCC1290    12
           502  54500                             SA5    A0          TI = TREE                                   BDT      1130
                     67571                        SB5    B7-B1       DB = TB - 1                                 BDT      1131
                          0400000505 +            EQ     RIO5                                                    BDT      1132
                                                                                                                 BDT      1133
                                        *         STORE REFORMATTED EDGE, ADVANCE TO NEXT EDGE                   BDT      1134
                                                                                                                 BDT      1135
           503  54750                    RIO4     SA7    A5          [TI] = TN                                   BDT      1136
                     10455                        BX4    X5          TL = [TI]                                   BDT      1137
                          66430                   SB4    B3          MLV = LV                                    BDT      1138
                               54551              SA5    A5+B1       TI = TI + 1                                 BDT      1139
           504  13645                             BX6    X4-X5                                                   BDT      1140
                     15760                        BX7    -X0*X6                                                  BDT      1141
                          0317000513 +            NZ     X7,RIO6     IF SUCC[TI] " SUCC[TL]                      BDT      1142
                                                                                                                 BDT      1143
                                        *         REFORMAT EDGE, UPDATE DLV, MLV                                 BDT      1144
                                                                                                                 BDT      1145
                                         RIO5     LX5    -T.PREDP    R = PRED[TI]                                BDT      1146
           505  53357                             SA3    B7+X5       LI = TB + R                                 BDT      1147
                     20352                        LX3    -I.LVLP     LV = LVL[LI]                                BDT      1148
                          13223                   BX2    X2-X3                                                   BDT      1149
                               12112              BX1    X1+X2       DLV = DLV ! XOR(LLV,LV)                     BDT      1150
           506  63330                             SB3    X3                                                      BDT      1151
                     73230                        SX2    X3          LLV = LV                                    BDT      1152
                          73650                   SX6    X5                                                      BDT      1153
                                                  LX5    T.PREDP                                                 BDT      1154
                                                  LX6    JT.PREDP                                                BDT      1155
                               15450              BX4    -X0*X5                                                  BDT      1156
           507  20422                             LX4    JT.SUCCP-T.SUCCP                                        BDT      1157
                     73330                        SX3    X3                                                      BDT      1158
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    32
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                          12646                   BX6    X4+X6                                                   BDT      1159
                               20322              LX3    JT.LVLP                                                 BDT      1160
           510  12763                             BX7    X6+X3       TN = JT(SUCC[TI],LV,R)                      BDT      1161
                     0634000503 +                 GE     B3,B4,RIO4  IF LV \ MLV                                 BDT      1162
                                                                                                                 BDT      1163
                                        *         LV < MLV , SWAP EDGES                                          BDT      1164
                                                                                                                 BDT      1165
                               55451              SA4    A5-B1       TLL = [TI-1]                                BDT      1166
           511  6134000000                        SB3    B4+         LV = MLV                                    BDT      1167
                          54740                   SA7    A4          [TI-1] = TN                                 BDT      1168
                               10744              BX7    X4          TN = TLL                                    BDT      1169
           512  0400000503 +                      EQ     RIO4                                                    BDT      1170
                                                                                                                 BDT      1171
                                        *         TERMINATE EDGE GROUP, INITIALIZE FOR NEW GROUP                 BDT      1172
                                                                                                                 BDT      1173
           513  76660                    RIO6     SX6    B6          PRI = TF                                    BDT      1174
                     75356                        SX3    A5-B6       NP = TI - TF  */ N.PRED                     BDT      1175
                          20644                   LX6    I.PRIP                                                  BDT      1176
                                                  LX3    I.NPP                                                   BDT      1177
                               73110              SX1    X1                                                      BDT      1178
           514  12763                             BX7    X6+X3                                                   BDT      1179
                     20444                        LX4    -T.SUCCP    S = SUCC[TI]                                BDT      1180
                          0311000516 +            NZ     X1,RIO7     IF DLV " 0    */ PRED AT DIFF LEVELS        BDT      1181
           515  21301                             AX3    I.NPP+1                                                 BDT      1182
                     0303000516 +                 ZR     X3,RIO7     IF NP = 1                                   BDT      1183
                               66441              SB4    B4+B1       MLV = MLV + 1                               BDT      1184
                                                                                                                 BDT      1185
                                        *         IF INSTRUCTION IS TERMINAL ( ST OR *PRS* ) THEN ADJUST *LVL*   FCC1290    13
                                        *         SO THE ORDER OF THE INSTRUCTIONS WILL BE - ST"S, PRS TO X0,6,7 FCC1290    14
                                        *         AND PRS TO A LD-REG. IF THE INSTRUCTION PRS TO A B-REG AND IT  FCC1290    15
                                        *         IS A TEMP LOCK, THEN SET *LVL* TO 0 TO FORCE IT TO COME        FCC1290    16
                                        *         JUST BEFORE ITS USES. THIS IS THE INDEXED SHIFT KLUDGE.        FCC1290    17
                                                                                                                 BDT      1189
           516  53345                    RIO7     SA3    B5+X4       DI = DB + S                                 BDT      1190
                     7124000000                   SX2    B4+                                                     BDT      1191
                               20325              LX3    59-D.PRSP                                               BDT      1192
           517  0333000522 +                      MI     X3,RIO7AA   IF PRS[DI]                                  FCC1056    53
                          20304                   LX3    D.PRSP-D.STP                                            FCC1056    54
           520  0323000532 +                      PL     X3,RIO7B    IF ^ST[DI]                                  FCC1056    55
                                                                                                                 FCC1056    56
                                        *         FORCE STORES TO COME BEFORE RS"S TO X-REGISTERS                FCC1056    57
                                                                                                                 FCC1056    58
                          0642000532 +            GE     B4,B2,RIO7B MLV = MAX( MLV, MIN.PR )                    FCC1290    18
           521  76220                             SX2    B2                                                      FCC1290    19
                     0400000532 +                 EQ     RIO7B                                                   FCC1056    61
                                                                                                                 FCC1056    62
           522  20314                    RIO7AA   LX3    D.PRSP-D.ZPP                                            FCC1825X   25
                     76200                        SX2    B0          SAVE = MLV;  MLV = 0  */ FORCE LATE OUTPUT  FCC1825X   26
                          0333000532 +            MI     X3,RIO7B    IF ZP[DI]                                   FCC1825X   27
           523  5013000002                        SA1    A3+2        R1RS = DI + 2                               FCC1825X   28
                          20147                   LX1    58-R1.SOP-SO.RTP                                        FCC1290    20
           524  0321000531 +                      PL     X1,RIO7A    IF SORT[R1RS] " 2  */ ^RS TO AN X-REGISTER  FCC1290    21
                                                                                                                 FCC0881   244
                          20105                   LX1    2+SO.RTP-SO.RNP                                         FCC0881   245
                               43371              MX3    -SO.RNL                                                 FCC0881   246
           525  15113                             BX1    -X3*X1                                                  FCC0881   247
                     63310                        SB3    X1                                                      FCC1290    22
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    33
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                          7130000301              SX3    301B                                                    FCC1290    23
           526  23333                             AX3    B3,X3                                                   FCC1290    24
                     43173                        MX1    -1                                                      FCC0881   251
                          15231                   BX2    -X1*X3      MLV = 1 & SHIFT(301B,-SORN[R1RS])           FCC0881   252
           527  7222000002                        SX2    X2+2        MLV = MLV + 2                               FCC1290    25
                          0530000532 +            NZ     B3,RIO7B    IF NOT X0                                   CCG28      43
           530  7222000001                        SX2    X2+1              MLV = MLV + 1                         CCG28      44
                          0400000532 +            EQ     RIO7B                                                   FCC0881   253
                                                                                                                 FCC0881   254
           531  20171                    RIO7A    LX1    SO.RTP-SO.LKP                                           FCC1290    26
                     0321000532 +                 PL     X1,RIO7B    IF SOLK[R1RS] < 2  */ IF TEMP OR UJP LOCK   FCC1322     7
                               76240              SX2    B4          MLV = SAVE                                  FCC1322    10
                                                                                                                 FCC0881   256
           532  20222                    RIO7B    LX2    I.LVLP                                                  FCC0881   257
                     12627                        BX6    X2+X7                                                   BDT      1200
                          53647                   SA6    B7+X4       [TB+S] = LW(0,PRI,MLV,NP)                   BDT      1201
                                                  LX5    -T.PREDP    R = PRED[TI]                                BDT      1202
                               53257              SA2    B7+X5                                                   BDT      1203
           533  64650                             SB6    A5          TF = TI                                     BDT      1204
                     20252                        LX2    -I.LVLP     LLV = LVL[TB+R]                             BDT      1205
                          43100                   MX1    0           DLV = 0                                     BDT      1206
                               63420              SB4    X2          MLV = LLV                                   BDT      1207
                                                  LX5    T.PREDP                                                 BDT      1208
           534  0315000505 +                      NZ     X5,RIO5     IF [TI] " 0   */ NOT END OF TREE            BDT      1209
  
                                        *         DETERMINE THE LIMITS OF THE TREE THAT HAVE TO BE SORTED, AND   BDT      1241
                                        *         SORT THAT SUBSET ( USUALLY THE NULL SET ).                     BDT      1242
                                                                                                                 BDT      1243
                          54100                   SA1    A0          TL = [TREE]                                 FCC1290    29
                               54201              SA2    A0+B1       TJ = TREE + 1                               BDT      1245
           535  66700                             SB7    B0          FWA = 0       */ FWA OF SORT SET            BDT      1246
                     66211                        SB2    B1+B1                                                   BDT      1247
                                                                                                                 BDT      1248
           536  37321                    RIO10    IX3    X2-X1       DIF = [TJ] - TL                             BDT      1249
                     10122                        BX1    X2          TL = [TJ]                                   BDT      1250
                          5022000001              SA2    A2+1        TJ = TJ + 1                                 BDT      1251
           537  0323000536 +                      PL     X3,RIO10    IF DIF \ 0    */ ELEMENTS IN ORDER          BDT      1252
                                                                                                                 BDT      1253
                          6062777776              SB6    A2-1        LWA = TJ - 1                                BDT      1254
           540  0301000542 +                      ZR     X1,RIO11    IF TL = 0     */ END OF TREE                BDT      1255
                          0570000536 +            NZ     B7,RIO10    IF FWA " 0    */ NOT FIRST REVERSAL         BDT      1256
           541  65722                             SB7    A2-B2       FWA = TJ - 2                                BDT      1257
                     0400000536 +                 EQ     RIO10                                                   BDT      1258
                                                                                                                 BDT      1259
           542                           RIO11    BSS    0                                                       BDT      1260
                                                  IF     DEF,/DEBUG/RIO,1                                        BDT      1261
                                         TREE-RIO SNAP   *A0,*A5                                                 FEAT155F  265
                                                  TRACE  RIO,RLIST                                               BDT      1263
                                                                                                                 BDT      1264
           542  56060                             SA0    B6          ST = LWA      */ STACK ADDR FOR SIO         BDT      1265
                     0470000546 +                 ZR     B7,RIO12    IF FWA = 0    */ NO REVERSALS               BDT      1266
                                                                                                                 FCC0514   482
                               56270              SA2    B7          T = [FWA]                                   FCC0514   483
           543  5130000000 X                      SA3    O.TXT                                                   FCC0514   484
                          6253000003              SB5    X3+3                                                    FCC0514   485
           544  20222                             LX2    -JT.SUCCP                                               FCC0514   486
                     53425                        SA4    B5+X2       LI = TB + SUCC[T]                           FCC0514   487
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    34
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                          20430                   LX4    -I.PRIP                                                 FCC0514   488
                               63740              SB7    X4          FWA = PRI[LI] */ FWA OF EDGE GROUP          FCC0514   489
           545  77167                             SX1    B6-B7                                                   BDT      1267
                     0100000000 X                 CALL   SHL#        SORT( FWA , LWA-FWA )                       CCGNC     805
                                                                                                                 FCC0514   490
                                        *         IF CALL FROM *GPO*, THEN LINK ST PRED TO ST"S SO THAT *SIO*    FCC0514   491
                                        *         CAN ARRANGE THE INSTRUCTIONS SO THAT THE ST,S FOLLOW THEIR RI. FCC0514   492
                                                                                                                 FCC0514   493
           546  5120000000 X             RIO12    SA2    O.TXT                                                   FCC0514   494
                          5110000736 +            SA1    RMODE                                                   FCC0514   495
           547  6272000003                        SB7    X2+3        TB = O.TXT + 3                              FCC0514   496
                          0301000623 +            ZR     X1,SIO      IF RMODE = 0                                FCC0514   497
                                                                                                                 FCC0514   498
           550  5130000000 X                      SA3    L.TXT                                                   FCC0514   499
                          6140000004              SB4    4                                                       FCC0514   500
           551  6233777773                        SB3    X3-4        I = L.TXT - 4                               FCC0514   501
                          43152                   MX1    -I.LVLL                                                 FCC0514   502
                               56570              SA5    B7          LI = TB                                     FCC0514   503
           552  20122                             LX1    I.LVLP                                                  FCC0514   504
                     67671                        SB6    B7-B1                                                   FCC0514   505
                                                                                                                 FCC0514   506
                                        *         CLEAR *LVL* FIELDS OF LINK WORDS                               FCC0514   507
                                                                                                                 FCC0514   508
           553  54554                    RIO13    SA5    A5+B4       LI = LI + 4                                 FCC0514   509
                     67334                        SB3    B3-B4       I = I - 4                                   FCC0514   510
                          11615                   BX6    X1*X5                                                   FCC0514   511
                               54650              SA6    A5          LVL[LI] = 0                                 FCC0514   512
           554  0530000553 +                      NZ     B3,RIO13    IF I " 0                                    FCC0514   513
                                                                                                                 FCC0514   514
                          57471                   SA4    B7-B1                                                   FCC0514   515
                               76710              SX7    B1                                                      FCC0514   516
           555  20752                             LX7    D.BMP                                                   FCC0514   517
                     12674                        BX6    X7+X4       BM[TXT+2] = 1                               FCC0514   518
                          54640                   SA6    A4                                                      FCC0514   519
                               43054              MX0    -R1.RIL                                                 FCC0514   520
                                                                                                                 FCC0514   521
                                        *         SCAN PRED OF BM"S FOR ST"S, AND FORM CHAIN FROM ST PRED TO ST" FCC0514   522
                                                                                                                 FCC0514   523
                                         RIO14    LX5    -I.NPP                                                  FCC0514   524
           556  63550                             SB5    X5          N = NP[LI]                                  FCC0514   525
                     20530                        LX5    I.NPP-I.PRIP                                            FCC0514   526
                          5235000000              SA3    X5+         TI = PRI[LI];  TE = [TI]                    FCC0514   527
                                                                                                                 FCC0514   528
                                        *         SCAN EDGE LIST FOR PREVIOUS *BM*                               FCC0514   529
                                                                                                                 FCC0514   530
                                         RIO15    LX3    -JT.PREDP                                               FCC0514   531
           557  53436                             SA4    B6+X3       DI = TB-1 + PRED[TE]                        FCC0514   532
                     63330                        SB3    X3          RMIN = PRED[TE]  */ TXT INDEX OF PREV *BM*  FCC0514   533
                          54331                   SA3    A3+B1       TI = TI + 1;  TE = [TI]                     FCC0514   534
                               20421              LX4    59-D.BMP                                                FCC0514   535
           560  0324000557 +                      PL     X4,RIO15    IF ^BM[DI]                                  FCC0514   536
                                                                                                                 FCC0514   537
                          5235777776              SA3    X5-1        TI = PRI[LI] - 1                            FCC2273X    9
           561  76730                             SX7    B3                                                      FCC2273X   10
                     5170000737 +                 SA7    RL          RL = RMIN                                   FCC2273X   11
                               20722              LX7    I.LVLP                                                  FCC2273X   12
                                                                                                                 FCC2273X   13
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    35
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                                        *         CHECK FOR MULTIPLE DEFS, AND LINK THEM TO LAST DEF             FCC2273X   14
                                                                                                                 FCC2273X   15
           562  20401                    RIO16    LX4    D.BMP-D.^DP                                             FCC2273X   16
                     0334000565 +                 MI     X4,RIO16A   IF ^D[DI] */NOT A DEF                       FCC2273X   17
                               55444              SA4    A4-B4       DI = DI - 4                                 FCC2273X   18
           563  54541                             SA5    A4+B1       LI = DI + 1                                 FCC2273X   19
                     67334                        SB3    B3-B4       RMIN = RMIN - 4                             FCC2273X   20
                          20421                   LX4    59-D.BMP                                                FCC2273X   21
                               12675              BX6    X7+X5       LVL[LI] = RL  */ LINK THIS DEF TO LAST DEF  FCC2273X   22
           564  54650                             SA6    A5                                                      FCC2273X   23
                     0334000562 +                 MI     X4,RIO16    IF BM[DI]     */ NOT END OF *BM*"S          FCC2273X   24
                                                                                                                 FCC2273X   25
           565  76730                    RIO16A   SX7    B3                                                      FCC2273X   26
                     54771                        SA7    A7+B1       RL(2) = RMIN                                FCC2273X   27
                          0400000567 +            EQ     RIO17                                                   FCC2273X   28
                                                                                                                 FCC2273X   29
                                        *         SCAN EDGE LIST OF *BM* FOR *ST*"S THAT ARE LINKED TO IT        FCC2273X   30
                                                                                                                 FCC2273X   31
           566  63330                    RIO16B   SB3    X3          RMIN = PRED[TI]                             FCC2273X   32
                                                                                                                 FCC2273X   33
           567  0450000613 +             RIO17    ZR     B5,RIO19    IF N = 0      */ END OF EDGE LIST           FCC2273X   34
                          54331                   SA3    A3+B1       TI = TI + 1;  TE = [TI]                     FCC2273X   35
                               67551              SB5    B5-B1       N = N - 1                                   FCC2273X   36
                                                  LX3    -JT.PREDP                                               FCC2273X   37
           570  53436                             SA4    B6+X3       DI = TB-1 + PRED[TE]                        FCC2273X   38
                     20421                        LX4    59-D.BMP                                                FCC2273X   39
                          0334000566 +            MI     X4,RIO16B   IF BM[DI]                                   FCC2273X   40
           571  20410                             LX4    D.BMP-D.STP                                             FCC2273X   41
                     0324000567 +                 PL     X4,RIO17    IF ^ST[DI]    */ NOT A STORE                FCC2273X   42
                                                  IFNE   .DAL,0,2                                                FCC2273X   43
                               20472              LX4    D.STP-D.L2P                                             FCC2273X   44
           572  0334000567 +                      MI     X4,RIO17    IF L2[DI]                                   FCC2273X   45
                          5044777775              SA4    A4-2        R1 = DI - 2                                 FCC2273X   46
           573  15640                             BX6    -X0*X4      R = RI[R1]                                  FCC2273X   47
                     63260                        SB2    X6                                                      FCC2273X   48
                          0723000567 +            LT     B2,B3,RIO17 IF R< RMIN */PRED BEFORE PREV *BM*          FCC2273X   49
                                                                                                                 FCC0514   571
                                        *         DO NOT ADD ST TO CHAIN IF IT IS LINKED TO AN INTERFERING       FCC0514   572
                                        *         LD OR ST BETWEEN IT AND ITS PRED ( RI ), OR AN RJXJ .          CCG14      10
                                                                                                                 FCC0514   574
           574  5054000003                        SA5    A4+3        LI = R1 + 3                                 FCC0514   575
                                                  LX5    -I.NPP                                                  FCC0514   576
                          63250                   SB2    X5          NSP = NP[LI]                                FCC0514   577
                               20530              LX5    I.NPP-I.PRIP                                            FCC0514   578
           575  43272                             MX2    -D.LDSTL                                                FCC0514   579
                     53550                        SA5    X5          TJ = PRI[LI]                                FCC0514   580
                          20242                   LX2    D.LDSTP                                                 FCC0514   581
                                                                                                                 FCC0514   582
                                         RIO17A   LX5    -JT.PREDP   J = PRED[TJ]                                FCC0514   583
           576  73550                             SX5    X5                                                      FCC0514   584
                     37765                        IX7    X6-X5                                                   FCC0514   585
                          0327000602 +            PL     X7,RIO17B   IF J @ R      */ PRED IS BEFORE RI          FCC0514   586
           577  53456                             SA4    B6+X5       DJ = TB-1 + J                               FCC0514   587
                     15742                        BX7    -X2*X4                                                  FCC0514   588
                          20426                   LX4    59-D.ECJP                                               CCG14      11
           600  0334000567 +                      MI     X4,RIO17    IF ECJ[DJ]    */ EC JUMP IN BETWEEN         CCG14      12
                          0307000602 +            ZR     X7,RIO17B   IF ^LDST[DJ]  */ NOT A MEM REF              FCC0514   589
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    36
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
           601  20454                             LX4    D.ECJP-D.EQVP                                           CCG14      13
                     0334000567 +                 MI     X4,RIO17    IF EQV[DJ]    */ INTERFERING MEM REF        FCC0514   591
           602  67221                    RIO17B   SB2    B2-B1       NSP = NSP - 1                               FCC0514   592
                     54551                        SA5    A5+B1       TJ = TJ + 1                                 FCC0514   593
                          0520000576 +            NZ     B2,RIO17A   IF NSP " 0                                  FCC0514   594
                                                                                                                 FCC0613     6
                                        *         DO NOT LINK *ST* TO PRED IF IT IS A *DEF*, AND RF IS AN EXPR   FCC0613     7
                                        *         SINCE WE MAY GET IN TROUBLE WHEN THERE ARE REDEFINITION LINKS. FCC0613     8
                                                                                                                 FCC0613     9
           603  53466                             SA4    B6+X6       DIP = TB-1 + R                              FCC0613    10
                     20435                        LX4    59-D.PIP                                                FCC0613    11
                          0324000610 +            PL     X4,RIO18    IF ^PI[DIP]   */ RI NOT A *DEF*             FCC0613    12
                                                                                                                 FCC0613    13
           604  53436                             SA4    B6+X3       DI = TB-1 + PRED[TI]                        FCC0613    14
                                                  LX4    58-D.TYP                                                FCC0613    15
                     55241                        SA2    A4-B1       R2 = DI - 1                                 FCC0613    16
                          20230                   LX2    -IH.RFP     RF = RF[R2]                                 FCC0613    17
           605  0334000606 +                      MI     X4,RIO17C   IF TYPE[DI] = III                           FCC0613    18
                          55221                   SA2    A2-B1       R1 = R2 - 1                                 FCC0613    19
                               20234              LX2    -R1.RJP     RF = RJ[R1]                                 FCC0613    20
           606  15220                    RIO17C   BX2    -X0*X2                                                  FCC0613    21
                     63220                        SB2    X2                                                      FCC0613    22
                          0612000610 +            LE     B2,B1,RIO18 IF RF @ 1     */ NO RF                      FCC0613    23
           607  56462                             SA4    B6+B2       DIF = TB-1 + RF                             FCC0613    24
                     20441                        LX4    59-D.ZPP                                                FCC0613    25
                          0324000567 +            PL     X4,RIO17    IF ^ZP[DIF]   */ NOT A SIMPLE *LD*          FCC0613    26
                                                                                                                 FCC0514   595
                                        *         SCAN ST PRED CHAIN FOR END, AND ADD ST TO IT.                  FCC0514   596
                                                                                                                 FCC0514   597
           610  53567                    RIO18    SA5    B7+X6       LI = TB + R                                 FCC0514   598
                     15651                        BX6    -X1*X5      R = LVL[LI]                                 FCC0514   599
                          20652                   LX6    -I.LVLP                                                 FCC0514   600
           611  0316000610 +                      NZ     X6,RIO18    IF R " 0      */ NOT END OF CHAIN           FCC0514   601
                                                                                                                 FCC0514   602
                          73730                   SX7    X3                                                      FCC0514   603
                               20722              LX7    I.LVLP                                                  FCC0514   604
           612  12675                             BX6    X7+X5       LVL[LI] = PRED[TE]                          FCC0514   605
                     54650                        SA6    A5                                                      FCC0514   606
                          0400000567 +            EQ     RIO17                                                   FCC0514   607
                                                                                                                 FCC0514   608
                                        *         CLEAR ST CHAIN PTRS FOR ALL BUT LAST DEF IN A SUB-SEQUENCE     FCC0514   609
                                                                                                                 FCC0514   610
           613  5130000737 +             RIO19    SA3    RL                                                      FCC0514   611
                          54431                   SA4    A3+B1                                                   FCC2157    11
                               63530              SB5    X3                                                      FCC2157    12
           614  63340                             SB3    X4          RMIN = RL(2)                                FCC2157    13
           615  0435000617 +             RIO20    EQ     B3,B5,RIO21 IF RL = RMIN                                FCC0514   613
                          67554                   SB5    B5-B4       RL = RL - 4                                 FCC0514   614
                               56475              SA4    B7+B5       LI = TB + RL                                FCC0514   615
           616  11714                             BX7    X1*X4       LVL[LI] = 0   */ CLEAR *ST* CHAIN LINK      FCC0514   616
                     54740                        SA7    A4                                                      FCC0514   617
                          0400000615 +            EQ     RIO20                                                   FCC0514   618
                                                                                                                 FCC0514   619
                                        *         ADVANCE TO PREVIOUS *BM*                                       FCC0514   620
                                                                                                                 FCC0514   621
           617  56573                    RIO21    SA5    B7+B3       LI = TB + RMIN                              FCC0514   622
                     0530000556 +                 NZ     B3,RIO14    IF RMIN " 0   */ NOT *BOS*                  FCC0514   623
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    37
        RIO - RESET INSTRUCTION ORDER                                 RIO 
  
                                                                                                                 FCC0514   624
                               57471              SA4    B7-B1                                                   FCC0514   625
           620  76710                             SX7    B1                                                      FCC0514   626
                     20752                        LX7    D.BMP                                                   FCC0514   627
                          15647                   BX6    -X7*X4      BM[TXT+2] = 0                               FCC0514   628
                               54640              SA6    A4                                                      FCC0514   629
           621  20771                             LX7    D.PSP-D.BMP                                             FCC0514   630
                     76610                        SX6    B1                                                      FCC0514   631
                          20636                   LX6    D.PIP                                                   FCC0514   632
                               12767              BX7    X6+X7                                                   FCC0514   633
           622  5170000736 +                      SA7    RMODE       RMODE = (PS,PI)                             FCC0514   634
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    38
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
                                        *         SIO - SET INSTRUCTION ORDER BY A DEPTH FIRST SEARCH            BDT      1271
                                                                                                                 BDT      1272
           623  5130000000 X             SIO      SA3    L.TXT                                                   FCC0514   635
                          6140000030              SB4    60-I.PRIP                                               BDT      1276
           624  7273777773                        SX7    X3-4        N = L.TXT - 4 */ CURRENT INSTRUCTION        BDT      1277
                          6150000004              SB5    4           ON = 4        */ OUTPUT INDEX               BDT      1278
           625  5140000736 +                      SA4    RMODE                                                   BDT      1279
                          43001                   MX0    1                                                       BDT      1280
                                                  LX0    1+I.MIP                                                 BDT      1281
                               76110              SX1    B1                                                      BDT      1282
           626  6160000000                        SB6    0           LII = 0       */ LAST ISSUED INSTRUCTION    BDT      1283
                          0314000633 +            NZ     X4,SIO2     IF RMODE " 0  */ CALL FROM *GPO/CBB*        FCC0514   636
                                                                                                                 BDT      1286
                                        *         SEARCH FOR NEXT TERMINAL INSTRUCTION                           BDT      1287
                                                                                                                 BDT      1289
           627  5120000735 +             SIO1     SA2    RIOA                                                    BDT      1290
                          6130000004              SB3    4                                                       BDT      1291
           630  67271                             SB2    B7-B1       DB = TB - 1                                 BDT      1292
                     56426                        SA4    B2+B6       DI = DB + LII                               BDT      1293
                                                                                                                 BDT      1294
           631  54443                    SIO1A    SA4    A4+B3       DI = DI + 4                                 BDT      1295
                     11624                        BX6    X2*X4                                                   BDT      1296
                          0306000631 +            ZR     X6,SIO1A    IF ^( BM[DI] ! ST[DI] )                     BDT      1297
                                                                                                                 BDT      1298
           632  65642                             SB6    A4-B2       LII = DI - DB                               BDT      1299
                     75742                        SX7    A4-B2       N = LII                                     BDT      1300
                                                                                                                 BDT      1301
                                        *         VISIT CURRENT INSTRUCTION                                      BDT      1302
                                                                                                                 BDT      1303
           633  53577                    SIO2     SA5    B7+X7       LI = TB + N                                 BDT      1304
                     5120000736 +                 SA2    RMODE                                                   FCC0514   637
                               55451              SA4    A5-B1       DI = LI - 1                                 FCC0514   638
           634  11624                             BX6    X2*X4                                                   FCC0514   639
                     0306000657 +                 ZR     X6,SIO2D    IF ^RMODE[DI] */ NOT *PS* ! *PI*            FCC1126    24
                               10655              BX6    X5                                                      FCC1126    25
           635  20603                             LX6    59-I.STCPP                                              FCC1126    26
                     0336000657 +                 MI     X6,SIO2D    IF STCP[LI]   */ STC PROCESSED              FCC1126    27
                               20647              LX6    1+I.STCPP-I.LVLP                                        FCC1126    28
           636  73260                             SX2    X6                                                      FCC1126    29
                     0302000657 +                 ZR     X2,SIO2D    IF LVL[LI] = 0  */ NO ST CHAIN (EOQ/EOS)    FCC1126    30
                                                                                                                 FCC0514   645
                                        *         ADD ST"S TO THE STACK SO WE OUTPUT THEM IMMEDIATELY AFTER      FCC0514   646
                                        *         THEIR PREDECESSORS ( RI AND RF )                               FCC0514   647
                                                                                                                 FCC0514   648
                               20170              LX1    I.STCPP                                                 FCC1126    31
           637  12615                             BX6    X1+X5       STCP[LI] = 1                                FCC1126    32
                     73170                        SX1    X7          T = N         */ SAVE N                     FCC1126    33
                          20652                   LX6    -I.LVLP                                                 FCC1126    34
                               73760              SX7    X6          N = LVL[LI]                                 FCC1126    35
           640  13667                             BX6    X6-X7                                                   FCC1126    36
                     20622                        LX6    I.LVLP      LVL[LI] = 0                                 FCC1126    37
                          54650                   SA6    A5                                                      FCC1126    38
                                                                                                                 FCC0514   654
           641  53577                    SIO2A    SA5    B7+X7       LI = TB + N                                 FCC0514   655
                     11605                        BX6    X0*X5                                                   FCC0514   656
                          0316000655 +            NZ     X6,SIO2C    IF MI[LI]     */ ST PROCESSED               FCC0514   657
                                                                                                                 FCC0514   658
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    39
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
           642  54701                             SA7    A0+B1       [SI+1] = N    */ STACK N                    FCC0514   659
                     54001                        SA0    A0+B1       SI = SI + 1                                 FCC0514   660
                                                                                                                 FCC0514   661
                          55451                   SA4    A5-B1       DI = LI - 1                                 FCC0514   662
                               55341              SA3    A4-B1       R2 = DI -1                                  FCC0514   663
                                                  LX4    58-D.TYP                                                FCC0514   664
           643  20330                             LX3    -IH.RFP     R = RF[R2]                                  FCC0514   665
                     0334000645 +                 MI     X4,SIO2AA   IF TYPE[DI] = III                           FCC0514   666
                               55331              SA3    A3-B1       R1 = R2 - 1                                 FCC0514   667
           644  43454                             MX4    -R1.RIL                                                 FCC0514   668
                     20334                        LX3    -R1.RJP                                                 FCC0514   669
                          15334                   BX3    -X4*X3      R = RJ[R1]                                  FCC0514   670
           645  63230                    SIO2AA   SB2    X3                                                      FCC0514   671
                     0612000655 +                 LE     B2,B1,SIO2C IF R @ 1      */ NO RF                      FCC0514   672
                                                                                                                 FCC0514   673
                               56472              SA4    B7+B2       LIP = TB + R                                FCC0514   674
                                                  LX4    59-I.MIP                                                FCC0514   675
           646  0334000651 +                      MI     X4,SIO2A1   IF M[LIP]                                   FCC1908     5
                          76420                   SX4    B2                                                      FCC1908     6
                               37441              IX4    X4-X1                                                   FCC1908     7
           647  0334000655 +                      MI     X4,SIO2C    IF T > R                                    FCC1908     8
                                                                                                                 FCC1908     9
                          55001                   SA0    A0-B1       SI = SI - 1   */ REMOVE N FROM STACK        FCC1908    10
                                                  PRINT  SIO,(* REMOVE STORE STACK --*)                          FCC1908    11
           650  0400000655 +                      EQ     SIO2C                                                   FCC1908    12
                                                                                                                 FCC1908    13
           651  20401                    SIO2A1   LX4    I.MIP-I.IIP                                             FCC1908    14
                     0334000655 +                 MI     X4,SIO2C    IF II[LIP]    */ ISSUED                     FCC0514   678
                                                                                                                 FCC0514   679
                                        *         RF MARKED BUT NOT OUTPUT, ADD *N* BELOW IT IN THE STACK        FCC0514   680
                                                                                                                 FCC0514   681
                               55401              SA4    A0-B1       SJ = SI - 1                                 FCC0514   682
           652  67202                             SB2    -B2                                                     FCC0514   683
           653  10644                    SIO2B    BX6    X4          S = [SJ]                                    FCC0514   684
                     73342                        SX3    B2+X4                                                   FCC0514   685
                          54641                   SA6    A4+B1       [SJ+1] = S                                  FCC0514   686
                               55441              SA4    A4-B1       SJ = SJ - 1                                 FCC0514   687
           654  0313000653 +                      NZ     X3,SIO2B    IF S " R                                    FCC0514   688
                          54741                   SA7    A4+B1       [SJ+1] = N    */ INSERT N BELOW R           FCC0514   689
                                                                                                                 FCC0514   690
           655  20552                    SIO2C    LX5    -I.LVLP                                                 FCC0514   691
                     73750                        SX7    X5          N = LVL[LI]                                 FCC0514   692
                          0317000641 +            NZ     X7,SIO2A    IF N " 0      */ NOT END OF ST CHAIN        FCC0514   693
                                                                                                                 FCC0514   694
           656  73710                             SX7    X1          N = T */ RESTORE N                          FCC0514   695
                     76110                        SX1    B1                                                      FCC0514   696
                          53577                   SA5    B7+X7       LI = TB + N                                 FCC0514   697
                                                                                                                 FCC0514   698
           657  22445                    SIO2D    LX4    B4,X5                                                   FCC0514   699
                     12505                        BX5    X0+X5       MI[LI] = 1                                  BDT      1306
                          22315                   LX3    B1,X5                                                   BDT      1307
                                   0              ERRNZ  58-I.IIP                                                BDT      1308
           660  6234777776                        SB3    X4-1        EI = PRI[LI] - 1  */ EDGE INDEX             BDT      1309
                          0333000711 +            MI     X3,SIO5     IF II[LI]     */ ISSUED                     BDT      1310
                                                                                                                 BDT      1311
                                        *         SEARCH PRED TO SEE IF ALL ARE MARKED                           BDT      1312
                                                                                                                 BDT      1313
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    40
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
           661  53253                    SIO3     SA2    B3+X5       TI = EI + NP[LI]                            BDT      1314
                     63250                        SB2    X5                                                      BDT      1315
                          0420000701 +            ZR     B2,SIO4     IF NP[LI] = 0                               BDT      1316
                                                                                                                 BDT      1317
           662  37551                             IX5    X5-X1       NP[LI] = NP[LI] - 1                         BDT      1318
                                                  LX2    -JT.PREDP   R = PRED[TI]                                BDT      1319
                     53327                        SA3    B7+X2       LIP = TB + R                                BDT      1320
                          22413                   LX4    B1,X3                                                   FCC0514   700
                               73220              SX2    X2                                                      FCC0514   701
           663  0334000661 +                      MI     X4,SIO3     IF II[LIP]    */ ISSUED                     FCC0514   702
                                                  LX3    59-I.MIP                                                FCC0514   703
                          0333000671 +            MI     X3,SIO3A    IF MI[LIP]                                  FCC0514   704
           664  37627                             IX6    X2-X7                                                   FCC0514   705
                     0326000671 +                 PL     X6,SIO3A    IF R > N      */ REDEF LINK                 FCC0514   706
                                                                                                                 BDT      1323
           665  54701                    SIO3H    SA7    A0+B1       [SI+1] = N    */ STACK CURRENT INST         FCC1126    39
                     54001                        SA0    A0+B1       SI = SI + 1                                 BDT      1325
                          10655                   BX6    X5                                                      BDT      1326
                               54650              SA6    A5                                                      BDT      1327
           666  73720                             SX7    X2          N = R         */ FOLLOW PRED                BDT      1328
                     0400000633 +                 EQ     SIO2                                                    BDT      1329
                                                                                                                 FCC1126    40
           667  37627                    SIO3G    IX6    X2-X7                                                   FCC1126    41
                     0326000661 +                 PL     X6,SIO3     IF R > N      */ REDEF LINK                 FCC1126    42
                                                  PRINT  SIO,(* STACK N --- MARKED INST ---*)                    FCC1126    43
           670  0400000665 +                      EQ     SIO3H                                                   FCC1126    44
                                                                                                                 FCC0514   707
                                        *         *R* NOT OUTPUT, IF TOP OF STACK IS A REDEF *ST*, THEN SET *XU* FCC0514   708
                                        *         BIT IN IT, OR MOVE IT DOWN IN THE STACK AFTER R, SO WE AVOID   FCC0514   709
                                        *         THE PROBLEM OF USES EXTENDING PAST A DEFINITION IN *GRA*.      FCC0514   710
                                        *         SEE SECTION ON DEADLOCKS IN THE *IMS* FOR FURTHER INFORMATION. FCC0514   711
                                                                                                                 FCC0514   712
           671  54300                    SIO3A    SA3    A0          SJ = SI;  S = [SJ]                          FCC0514   713
                     10455                        BX4    X5                                                      FCC0791     7
                          67271                   SB2    B7-B1                                                   FCC0791     8
                               20402              LX4    59-I.RDSTP                                              FCC0791     9
           672  0334000677 +                      MI     X4,SIO3B    IF RDST[LI]   */ NOT FIRST REDEF EDGE       FCC1908    15
                          53432                   SA4    B2+X3       DIS = TB-1 + S                              FCC1126    46
                               20436              LX4    59-D.RDP                                                FCC1126    47
           673  0324000667 +                      PL     X4,SIO3G    IF ^RD[DIS]   */ NOT A REDEF STORE          FCC1126    48
                          5044777775              SA4    A4-2                                                    FCC1126    49
           674  43654                             MX6    -R1.RIL                                                 FCC1126    50
                     15646                        BX6    -X6*X4                                                  FCC1126    51
                          13476                   BX4    X7-X6                                                   FCC1126    52
           675  0314000667 +                      NZ     X4,SIO3G    IF RI[R1S] " N  */ TOP OF STK ^ *ST N,,*    FCC1126    53
                                                                                                                 FCC1126    54
                          76410                   SX4    B1                                                      FCC1126    55
                               20471              LX4    I.RDSTP                                                 FCC1126    56
           676  12545                             BX5    X4+X5       RDST[LI] = 1  */ INDICATE REDEF ST ST IN ST FCC1126    57
                     20322                        LX3    I.LVLP                                                  FCC1126    58
                          12535                   BX5    X3+X5       LVL[LI] = S                                 FCC1126    59
                               20352              LX3    -I.LVLP                                                 FCC1126    60
                                                                                                                 FCC1126    61
           677  0100000741 +             SIO3B    RJ     MSD         MOVE THE STORE DOWN / SET THE *XU* BIT      FCC1908    16
           700  0400000661 +                      EQ     SIO3                                                    FCC1908    17
                                                                                                                 FCC0514   759
                                        *         OUTPUT INSTRUCTION                                             BDT      1331
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    41
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
                                                                                                                 BDT      1332
           701  20172                    SIO4     LX1    I.IIP       II[LI] = 1                                  BDT      1333
                     55451                        SA4    A5-B1       DI = LI - 1                                 BDT      1334
                          76250                   SX2    B5          OI[LI] = ON                                 BDT      1335
                                                  LX2    I.OIP                                                   BDT      1336
                               12312              BX3    X1+X2                                                   BDT      1337
           702  76110                             SX1    B1                                                      BDT      1338
                     12635                        BX6    X3+X5                                                   BDT      1339
                          20425                   LX4    59-D.PRSP                                               BDT      1340
                               54650              SA6    A5                                                      BDT      1341
           703  6155000004                        SB5    B5+4        ON = ON + 4                                 BDT      1342
                          0334000707 +            MI     X4,SIO4A    IF PRS[DI]                                  FCC0514   760
           704  20472                             LX4    D.PRSP-D.RJRSP                                          FCC0514   761
                     0334000707 +                 MI     X4,SIO4A    IF RJRS[DI]                                 FCC0642     5
                               20410              LX4    D.RJRSP-D.XMTP                                          FCC0642     6
           705  0324000711 +                      PL     X4,SIO5     IF ^XMT[DI]                                 FCC0642     7
                          5044000004              SA4    A4+4        DI = DI + 4   */ CHECK NEXT FOR *KS*        FCC0642     8
           706  20434                             LX4    59-D.KSP                                                FCC0642     9
                     0324000711 +                 PL     X4,SIO5     IF ^KS[DI]                                  FCC0642    10
                                                                                                                 FCC0642    11
                                        *         INSTRUCTION *PRS*, *RJRS* OR IS A *SXT*, OUTPUT THE NEXT INST  FCC0642    12
                                                                                                                 FCC0514   765
           707  5055000004               SIO4A    SA5    A5+4        LI = LI + 4                                 FCC0514   766
                          43252                   MX2    -I.OIL                                                  BDT      1348
                                                  LX2    I.OIP                                                   BDT      1349
                               11625              BX6    X2*X5                                                   BDT      1350
           710  12506                             BX5    X0+X6       MI[LI] = 1                                  BDT      1351
                     0400000701 +                 EQ     SIO4                                                    BDT      1352
                                                                                                                 BDT      1353
           711  54300                    SIO5     SA3    A0          N = [ST]                                    BDT      1354
                     5000777776                   SA0    A0-1        ST = ST - 1                                 BDT      1355
                               73730              SX7    X3                                                      BDT      1356
           712  0313000633 +                      NZ     X3,SIO2     IF N " 0                                    BDT      1357
                                                                                                                 BDT      1358
                          5045777774              SA4    A5-3        R1 = LI - 3                                 BDT      1359
           713  54001                             SA0    A0+B1       ST = ST + 1                                 BDT      1360
                     26624                        UX6    B2,X4                                                   BDT      1361
                          0520000627 +            NZ     B2,SIO1     IF OC[R1] " OC.EOQ                          BDT      1362
                                                                                                                 BDT      1363
                                                  TRACE  SIO,RLIST                                               BDT      1364
  
  
                                        *         MOVE THE INSTRUCTIONS TO THEIR FINAL ORDER                     BDT      1366
                                                                                                                 BDT      1367
           714  5110000000 X                      SA1    L.TXT                                                   BDT      1368
                          5130000000 X            SA3    O.TREE                                                  BDT      1369
           715  67671                             SB6    B7-B1                     (B6) = TXT + 2                BDT      1370
                     7211777767                   MOVE   X1-8,B7+B1,X3     MOVE( L.TXT-8 , TXT+4 , TREE )        BDT      1371
           717  5110000000 C                      SA1    N.INST                                                  BDT      1372
                          5120000000 X            SA2    O.TXT                                                   BDT      1373
           720  5130000000 X                      SA3    O.TREE                                                  BDT      1374
                          6130000003              SB3    3                                                       BDT      1375
           721  53533                             SA5    X3+B3       TI = TREE + 3                               BDT      1376
                     63730                        SB7    X3                        (B7) = TREE                   BDT      1377
                          7211777775              SX1    X1-2        N = N.INST - 2                              BDT      1378
           722  76010                             SX0    B1                                                      BDT      1379
                                                                                                                 BDT      1380
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    42
        RIO - RESET INSTRUCTION ORDER                                 SIO 
  
           723  55451                    SIO8     SA4    A5-B1       D = [TI-1]                                  BDT      1381
                     55341                        SA3    A4-B1       R2 = [TI-2]                                 BDT      1382
                          55253                   SA2    A5-B3       R1 = [TI-3]                                 BDT      1383
                                                  LX5    -I.OIP                                                  BDT      1384
           724  0335000725 +                      MI     X5,SIO9                    */ IF MARKED                 CCG0215     7
                          10522                   BX5    X2                           */ IF NOT MARKED, USE RI   CCG0215     8
                                                                                                                 CCG0215     9
           725  63550                    SIO9     SB5    X5          J = OI[TI]                                  CCG0215    10
                     5055000004                   SA5    A5+4        TI = TI + 4                                 BDT      1386
                               10644              BX6    X4                                                      BDT      1387
           726  22703                             LX7    X3                                                      BDT      1388
                     56665                        SA6    B6+B5       TXT(J+2) = D                                BDT      1389
                          37110                   IX1    X1-X0       N = N - 1                                   BDT      1390
                               55761              SA7    A6-B1       TXT(J+1) = R2                               BDT      1391
           727  10622                             BX6    X2                                                      BDT      1392
                     55671                        SA6    A7-B1       TXT(J) = R1                                 BDT      1393
                          0311000723 +            NZ     X1,SIO8     IF N " 0                                    BDT      1394
                                                                                                                 BDT      1395
           730  43700                             MX7    0                                                       BDT      1396
                     5170000000 X                 SA7    L.TREE      L.TREE = 0                                  BDT      1397
           731  5106777775                        SA0    B6-2                                                    BDT      1398
                          7120000000              SX2    0                                                       BDT      1399
           732  0100001036 +                      CALL   RNI         RENUMBER THE INSTRUCTIONS                   BDT      1400
                                                                                                                 FCC0514   768
           733  5150000000 X             SIO10    SA5    O.TXT                                                   FCC0514   769
                          0100000761 +            RJ     CRW         COMPUTE X-REGISTER WIDTH OF NEW ORDER       BDT      1402
           734  0400000464 +                      EQ     RIO                                                     BDT      1403
                                                                                                                 BDT      1404
           735                           RIOA     BFMW   D,(BM,ST)                                               BDT      1405
           736                     1     RMODE    BSS    1           *RIO* MODE                                  BDT      1406
           737                     2     RL        BSS    2                                                      FCC2157    14
  
  
  
                                        **        MSD - MOVE STORE ( TOP OF STACK ) DOWN TO A POINT BELOW *R*.   FCC1908    19
                                                                                                                 FCC1908    20
           741  0200400741 +             MSD      ROUTINE                                                        FCC1908    21
           742  53427                             SA4    B7+X2       LIP = TB + R                                FCC1908    22
                                                  LX4    59-I.MIP                                                FCC1908    23
                     0324000756 +                 PL     X4,MSD5     IF ^MI[LIP]   */ R NOT IN THE STACK         FCC1908    24
                                                                                                                 FCC1908    25
                                        *         SEE IF WE CAN MOVE *TOS* BELOW *R* SO IT COMES OUT AFTER IT    FCC1908    26
                                                                                                                 FCC1908    27
                               54400              SA4    A0          SJ = SI       */ SEARCH FOR STORE IN STK    FCC1908    28
           743  20552                             LX5    -I.LVLP                                                 FCC1908    29
                     73350                        SX3    X5          S = LVL[LI]   */ TXT INDEX OF *ST*          FCC1908    30
                          20522                   LX5    I.LVLP                                                  FCC1908    31
           744  13634                    MSD1     BX6    X3-X4                                                   FCC1908    32
                     55441                        SA4    A4-B1       SJ = SJ - 1                                 FCC1908    33
                          0316000744 +            NZ     X6,MSD1     IF [SJ+1] " S                               FCC1908    34
                                                                                                                 FCC1908    35
           745  74441                             SX4    A4+B1       SS = SJ + 1                                 FCC1908    36
                     5030000000                   SA3    A0+         SJ = SI       */ SEARCH FOR *R*             FCC1908    37
           746  13623                    MSD2     BX6    X2-X3                                                   FCC1908    38
                     55331                        SA3    A3-B1       SJ = SJ - 1                                 FCC1908    39
                          0316000746 +            NZ     X6,MSD2     IF [SJ+1] " R                               FCC1908    40
           747  74331                             SX3    A3+B1                                                   FCC1908    41
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    43
        RIO - RESET INSTRUCTION ORDER                                 MSD 
  
                     37643                        IX6    X4-X3                                                   FCC1908    42
                          0336000741 +            MI     X6,MSD      IF SS < SJ+1  */ S IS ALREADY BELOW R       FCC1908    43
                                                  PRINT  SIO,(21X*MOVE STORE DOWN*)                              FCC1908    44
                                                                                                                 FCC1908    45
           750  53340                             SA3    X4          SJ = SS       */ MOVE THE STORE DOWN        FCC1908    46
                     73130                        SX1    X3          S = [SJ]                                    FCC1908    47
           751  55331                    MSD3     SA3    A3-B1       SJ = SJ - 1                                 FCC1908    48
                     53432                        SA4    B2+X3       DIS = TB-1 + [SJ]                           FCC1908    49
                          10633                   BX6    X3                                                      FCC1908    50
                               54631              SA6    A3+B1       [SJ+1] = [SJ]                               FCC1908    51
           752  20421                             LX4    59-D.BMP                                                FCC1908    52
                     0334000755 +                 MI     X4,MSD4     IF BM[DIS]    */ CANT MOVE ST PAST A *BM*   FCC1908    53
                               37423              IX4    X2-X3                                                   FCC1908    54
           753  0314000751 +                      NZ     X4,MSD3     IF [SJ] " R   */ IF NOT FINISHED            FCC1908    55
                                                                                                                 FCC1908    56
                          73610                   SX6    X1                                                      FCC1908    57
                               54630              SA6    A3          [SJ] = S                                    FCC1908    58
           754  76110                             SX1    B1                                                      FCC1908    59
                     0400000741 +                 EQ     MSD                                                     FCC1908    60
                                                                                                                 FCC1908    61
           755  73610                    MSD4     SX6    X1                                                      FCC1908    62
                     54660                        SA6    A6          [SJ+1] = S                                  FCC1908    63
                          7110000001              SX1    1                                                       FCC1908    64
                                                                                                                 FCC1908    65
                                        *         REDEF CANNOT BE MOVED BACK, SET *XU* BIT IN DESCR FOR *GRA*    FCC1908    66
                                                                                                                 FCC1908    67
           756  10655                    MSD5     BX6    X5                                                      FCC1908    68
                     20652                        LX6    -I.LVLP                                                 FCC1908    69
                          53462                   SA4    B2+X6       DIS = TB-1 + LVL[LI]  */ DESCR OF STORE     FCC1908    70
                                                  PRINT  SIO,(21X*SET XU*Z5),X6                                  FCC1908    71
                               76310              SX3    B1                                                      FCC1908    72
           757  20324                             LX3    D.XUP                                                   FCC1908    73
                     12634                        BX6    X3+X4       XU[DIS] = 1                                 FCC1908    74
                          54640                   SA6    A4                                                      FCC1908    75
           760  0400000741 +                      EQ     MSD                                                     FCC1908    76
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    44
        CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                    CRW 
  
                                        **        CRW - COMPUTE THE X-REGISTER WIDTH OF A INSTRUCTION SEQUENCE   BDT      1408
                                        *         AND INSTALL IT IN THE DESCRIPTORS.                             BDT      1409
                                        *                                                                        BDT      1410
                                        *         ENTRY  (X5) = FWA OF RLIST INSTRUCTION BLOCK                   BDT      1411
                                        *                                                                        BDT      1412
                                        *         EXIT   (X6) = MAX REG WIDTH OF SEQUENCE                        BDT      1413
                                                                                                                 BDT      1414
           761                           CRW      ENTRY. **,#                                                    CCGNC     806
           762  66400                             SB4    B0          RW = 0        */ REG WIDTH                  BDT      1417
                     43163                        MX1    -D.REGWL                                                BDT      1418
                          7100600001              SX0    RN.MASK                                                 CCG11     136
           763  66500                             SB5    B0          MW = 0        */ MAX WIDTH                  BDT      1420
                     66600                        SB6    B0          LXW = 0       */ LOCKED X-REG WIDTH         CCG32       6
                          20111                   LX1    D.REGWP                                                 BDT      1421
                               43263              MX2    -D.USESL                                                BDT      1422
           764  6275000003                        SB7    X5+3        TB = TXT + 3                                BDT      1423
                          57471                   SA4    B7-B1       DI = TB - 1                                 BDT      1424
           765  6130000004                        SB3    OC.RS                                                   BDT      1425
                          43700                   MX7    0                                                       BDT      1426
                               56770              SA7    B7          [TB] = 0                                    BDT      1427
           766  0400000771 +                      EQ     CRW1                                                    BDT      1428
                                                                                                                 BDT      1429
                                        *         ^D OR PRS TO A B-REG, INSTALL REGW, CLEAR LINK WORD            BDT      1430
                                                                                                                 BDT      1431
           767  20452                    CRW0     LX4    1+D.^DP                                                 BDT      1432
                     76340                        SX3    B4                                                      BDT      1433
                          11414                   BX4    X1*X4                                                   BDT      1434
                               20311              LX3    D.REGWP                                                 BDT      1435
           770  43700                             MX7    0                                                       BDT      1436
                     12634                        BX6    X3+X4       REGW[DI] = RW                               BDT      1437
                          54640                   SA6    A4                                                      BDT      1438
                               54741              SA7    A4+B1       [DI+1] = 0                                  BDT      1439
                                                                                                                 BDT      1440
                                        *         ADVANCE TO NEXT INSTRUCTION, JUMP ON TYPE                      BDT      1441
                                                                                                                 BDT      1442
           771  5054000002               CRW1     SA5    A4+2        R1 = DI + 2                                 BDT      1443
                          5045000002              SA4    A5+2        DI = R1 + 2                                 BDT      1444
           772  26525                             UX5    B2,X5                                                   BDT      1445
                                                  LX4    58-D.TYP                                                BDT      1446
                     36744                        IX7    X4+X4                                                   BDT      1447
                          0334001010 +            MI     X4,CRW3     IF TYPE[DI] = III ! IV                      BDT      1448
           773  0337001003 +                      MI     X7,CRW2     IF TYPE[DI] = II                            BDT      1449
                                                                                                                 BDT      1450
                                        *         TYPE I                                                         BDT      1451
                                                                                                                 BDT      1452
                          20723                   LX7    1+D.TYP-D.TYIOP                                         BDT      1453
                               43372              MX3    -D.TYIOL                                                BDT      1454
           774  20422                             LX4    1+D.TYP-D.^DP                                           BDT      1455
                     0723000777 +                 LT     B2,B3,CRW1A IF OC[R1] < OC.RS  */ *DAR*                 BDT      1456
                               15673              BX6    -X3*X7                                                  BDT      1457
           775  5236000000 X                      SA3    =XTYIOM#+X6                                             CCGNC     807
                          26723                   UX7    B2,X3                                                   BDT      1459
                               11675              BX6    X7*X5                                                   BDT      1460
           776  23526                             AX5    B2,X6                                                   BDT      1461
                     23526                        AX5    B2,X6       RNUMS = TYIOM[DI,R1]                        BDT      1462
                          0400001017 +            EQ     CRW7                                                    BDT      1463
                                                                                                                 BDT      1464
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    45
        CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                    CRW 
  
                                        *         PROCESS *DAR*                                                  BDT      1465
                                                                                                                 BDT      1466
           777  21540                    CRW1A    AX5    R1.RJP                                                  BDT      1467
                     15750                        BX7    -X0*X5      R = RJ[R1]                                  BDT      1468
                          53377                   SA3    B7+X7       LI = TB + R                                 BDT      1469
          1000  7263777776                        SX6    X3-1        [LI] = [LI] - 1                             BDT      1470
                          54630                   SA6    A3                                                      BDT      1471
          1001  0316000767 +                      NZ     X6,CRW0     IF [LI] " 0   */ NOT LAST USE               BDT      1472
                          67441                   SB4    B4-B1       RW = RW - 1                                 BDT      1473
          1002  0400000767 +                      EQ     CRW0                                                    BDT      1474
                                                                                                                 BDT      1475
                                        *         TYPE II                                                        BDT      1476
                                                                                                                 BDT      1477
          1003  10644                    CRW2     BX6    X4                                                      BDT      1478
                     20422                        LX4    1+D.TYP-D.^DP                                           BDT      1479
                          20635                   LX6    1+D.TYP-D.PIP                                           BDT      1480
          1004  0326001022 +                      PL     X6,CRW9     IF ^PI[DI]                                  BDT      1481
                                                                                                                 BDT      1482
                          0423000767 +            EQ     B2,B3,CRW0  IF OC[R1] = OC.RS                           BDT      1483
          1005  20547                             LX5    58-R1.SOP-SO.RTP                                        BDT      1484
                     0325000767 +                 PL     X5,CRW0     IF SORT[R1] " 2  */ DEF NOT TO AN X-REG     BDT      1485
                                                                                                                 BDT      1486
                               20571              LX5    SO.RTP-SO.LKP                                           CCG32       7
          1006  0325001022 +                      PL     X5,CRW9     IF SOLK[R1] < 1 */ NOT FULL OR A-LOCK       CCG32       8
                          6166000001              SB6    B6+1        LXW = LXW + 1                               CCG32       9
          1007  0400001022 +                      EQ     CRW9                                                    BDT      1487
                                                                                                                 BDT      1488
                                        *         TYPE IV                                                        BDT      1489
                                                                                                                 BDT      1490
          1010  0327001014 +             CRW3     PL     X7,CRW4     IF TYPE[DI] " IV                            BDT      1491
                          0420001031 +            ZR     B2,CRW11    IF OC[R1] = OC.EOQ                          BDT      1492
                                                                                                                 BDT      1493
          1011  20422                             LX4    1+D.TYP-D.^DP                                           BDT      1494
                     7162777770                   SX6    B2-OC.ENT                                               FCC0883     4
          1012  0336000767 +                      MI     X6,CRW0     IF OC[R1] < OC.ENT  */ EOS OR LAB           FCC0883     5
                          66460                   SB4    B6          RW = LXW      */ RESET, CLEAR UJP LOCKS     CCG32      10
          1013  0400000767 +                      EQ     CRW0                                                    BDT      1498
                                                                                                                 BDT      1499
                                        *         TYPE III                                                       BDT      1500
                                                                                                                 BDT      1501
          1014  20422                    CRW4     LX4    1+D.TYP-D.^DP     RNUMS = RI[R1]                        BDT      1502
                     0334001015 +                 MI     X4,CRW5     IF ^D[DI]                                   BDT      1503
                               43500              MX5    0           RNUMS = 0                                   BDT      1504
          1015  54351                    CRW5     SA3    A5+B1       R2 = R1 + 1                                 BDT      1505
                     15550                        BX5    -X0*X5                                                  BDT      1506
                          20330                   LX3    -IH.RFP                                                 BDT      1507
                               15630              BX6    -X0*X3      R = RF[R2]                                  BDT      1508
          1016  0306001017 +                      ZR     X6,CRW7     IF R = 0                                    BDT      1509
                          20520                   LX5    R1.RIL                                                  BDT      1510
                               12565              BX5    X6+X5       RNUMS = SHIFT(RNUMS,R1.RIL) ! R             BDT      1511
                                                                                                                 BDT      1512
                                        *         DECREMENT USES OF OPERANDS ( RNUMS )                           BDT      1513
                                                                                                                 BDT      1514
          1017  15750                    CRW7     BX7    -X0*X5      R = RI[RNUMS]                               BDT      1515
                     53357                        SA3    B7+X5       LI = TB + R                                 BDT      1516
                          7263777776              SX6    X3-1        [LI] = [LI] - 1                             BDT      1517
          1020  21520                             AX5    R1.RIL      RNUMS = SHIFT(RNUMS,-R1.RIL)                BDT      1518
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    46
        CRW - COMPUTE REGISTER WIDTH OF A SEQUENCE                    CRW 
  
                     0316001021 +                 NZ     X6,CRW8     IF [LI] " 0   */ NOT LAST USE               BDT      1519
                               67441              SB4    B4-B1       RW = RW - 1                                 BDT      1520
          1021  54630                    CRW8     SA6    A3                                                      BDT      1521
                     0315001017 +                 NZ     X5,CRW7     IF RNUMS " 0                                BDT      1522
  
                                        *         ADVANCE *RW* TO ACCOUNT FOR THE NEW RESULT                     BDT      1524
                                                                                                                 BDT      1525
          1022  0334000767 +             CRW9     MI     X4,CRW0     IF ^D[DI]                                   BDT      1526
                          10644                   BX6    X4                                                      BDT      1527
                               20603              LX6    D.^DP-D.PRSP                                            BDT      1528
          1023  0326001025 +                      PL     X6,CRW10    IF ^PRS[DI]                                 BDT      1529
                          5034000002              SA3    A4+2        R1RS = DI + 2                               BDT      1530
          1024  20347                             LX3    58-R1.SOP-SO.RTP                                        BDT      1531
                     0323000767 +                 PL     X3,CRW0     IF SORT[R1RS] " 2  */ NOT TO AN X-REG       BDT      1532
                                                                                                                 BDT      1533
          1025  20452                    CRW10    LX4    1+D.^DP                                                 BDT      1534
                     66441                        SB4    B4+B1       RW = RW + 1                                 BDT      1535
                          11414                   BX4    X1*X4                                                   BDT      1536
                               76340              SX3    B4                                                      BDT      1537
          1026  15742                             BX7    -X2*X4                                                  BDT      1538
                     54741                        SA7    A4+B1       [DI+1] = USES[DI]                           BDT      1539
                          20311                   LX3    D.REGWP                                                 BDT      1540
                               12634              BX6    X3+X4       REGW[DI] = RW                               BDT      1541
          1027  54640                             SA6    A4                                                      BDT      1542
                     0654000771 +                 LE     B4,B5,CRW1  IF RW @ MW                                  BDT      1543
                                                                                                                 BDT      1544
                               66540              SB5    B4          MW = RW                                     BDT      1545
          1030  0400000771 +                      EQ     CRW1                                                    BDT      1546
  
                                        *         EOQ - SET MAX WIDTH IN DESCR OF *BOS* AND CLEAR LINK WORDS     BDT      1548
                                                                                                                 BDT      1549
          1031  57371                    CRW11    SA3    B7-B1       DI = TB - 1                                 BDT      1550
                     76650                        SX6    B5                                                      BDT      1551
                          20611                   LX6    D.REGWP                                                 BDT      1552
                               11313              BX3    X1*X3                                                   BDT      1553
          1032  43700                             MX7    0                                                       BDT      1554
                     12636                        BX6    X3+X6       REGW[TB-1] = MW  */ SET MAXW IN *BOS*       BDT      1555
                          54630                   SA6    A3                                                      BDT      1556
                                                                                                                 BDT      1557
                               54731              SA7    A3+B1                                                   BDT      1558
          1033  64231                             SB2    A3+B1                                                   BDT      1559
                     64341                        SB3    A4+B1                                                   BDT      1560
                          6140000004              SB4    4                                                       BDT      1561
          1034  66224                   +         SB2    B2+B4       FOR I = 3 TO L.TXT BY 4;  TXT(I) = 0        BDT      1562
                     54774                        SA7    A7+B4                                                   BDT      1563
                          0723001034 +            LT     B2,B3,*                                                 BDT      1564
                                                  TRACE  CRW,RLIST                                               BDT      1565
                                                                                                                 BDT      1566
          1035  76650                             SX6    B5          RIO.MAX = MW                                BDT      1567
                     0400000761 +                 EQ     CRW                                                     BDT      1568
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    47
        RNI - RENUMBER INSTRUCTIONS                                   RNI 
  
                                        **        RNI - RENUMBER INSTRUCTIONS                                    BDT      1570
                                        *         RELABEL THE R-NUMBERS IN THE INSTRUCTIONS SO THAT FOR EACH     BDT      1571
                                        *         *RI* WHICH DEFINES A RESULT, RI = R1 - O.TXT ( THE INDEX TO    BDT      1572
                                        *         *TXT* OF THE INSTRUCTION ). WITH THIS LABELING, R-NUMBERS      BDT      1573
                                        *         APPEARING AS OPERANDS ARE POINTERS TO THE INSTRUCTIONS WHICH   BDT      1574
                                        *         ARE THE OPERANDS.                                              BDT      1575
                                        *                                                                        BDT      1576
                                        *         ENTRY  (B7) = FWA OF SCRATCH TABLE USED FOR RENUMBERING        BDT      1577
                                        *                (A0) = (O.TXT)                                          BDT      1578
                                        *                (X2) = M = NEW BASE R-NUMBER                            BDT      1579
                                        *                                                                        BDT      1580
                                        *         EXIT   A0, B7 PRESERVED                                        BDT      1581
                                        *                (B2) = 2                                                BDT      1582
                                        *                (B4) = 4                                                BDT      1583
                                        *                (X0) = M(-R1.RIL)                                       BDT      1584
                                                                                                                 BDT      1585
          1036                           RNI      ENTRY. **,#                                                    CCGNC     808
                                                  TRACE  RNI,RLIST                                               BDT      1587
          1037  66211                             SB2    B1+B1       (B2) = 2                                    BDT      1588
                     43054                        MX0    -R1.RIL                                                 BDT      1589
                          6150000022              SB5    59-D.^DP                                                BDT      1590
          1040  66422                             SB4    B2+B2       (B4) = 4                                    BDT      1591
                     54402                        SA4    A0+B2       DI = O.TXT + 2                              BDT      1592
                          76140                   SX1    B4                                                      BDT      1593
                               10722              BX7    X2                                                      BDT      1594
          1041  27522                             PX5    B2,X2                                                   BDT      1595
                                                                                                                 BDT      1596
                                        *         SETUP THE EQUIVALENCE TABLE BETWEEN THE R-NUMBERS              BDT      1597
                                                                                                                 BDT      1598
          1042  26635                    RNI1     UX6    "OC",X5                                                 BDT      1599
                     0430001046 +                 ZR     "OC",RNI3   IF OC[R1] = 0 */ END OF *TXT*               BDT      1600
                                                                                                                 BDT      1601
          1043  54444                    RNI2     SA4    A4+B4       DI = DI + 4                                 BDT      1602
                     36221                        IX2    X2+X1       M = M + 4                                   BDT      1603
                          55542                   SA5    A4-B2       R1 = DI - 2                                 BDT      1604
                               22654              LX6    B5,X4                                                   BDT      1605
          1044  0336001042 +                      MI     X6,RNI1     IF ^D[DI]                                   BDT      1606
                          15350                   BX3    -X0*X5      RI = RI[R1]                                 BDT      1607
                               37623              IX6    X2-X3                                                   BDT      1608
          1045  22702                             LX7    X2          MAXR = M                                    BDT      1609
                     53637                        SA6    B7+X3       T(RI) = M - RI                              BDT      1610
                          0400001043 +            EQ     RNI2                                                    BDT      1611
  
  
  
                                        *         RELABEL THE R-NUMBERS IN THE INSTRUCTIONS USING THE EQV TABLE  BDT      1613
                                                                                                                 BDT      1614
          1046  43600                    RNI3     MX6    0                                                       BDT      1615
                     54402                        SA4    A0+B2       DI = O.TXT + 2                              BDT      1616
                          6160000020              SB6    R1.RIL                                                  BDT      1617
          1047  56670                             SA6    B7          T(0) = 0                                    BDT      1618
                     56671                        SA6    B7+B1       T(1) = 0                                    BDT      1619
                          0400001053 +            EQ     RNI5                                                    BDT      1620
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    48
        RNI - RENUMBER INSTRUCTIONS                                   RNI 
  
                                        *         PROCESS TYPE II / III INSTRUCTIONS                             BDT      1622
                                                                                                                 BDT      1623
          1050  54251                    RNI4     SA2    A5+B1       R2 = R1 + 1                                 BDT      1624
                     15750                        BX7    -X0*X5                                                  BDT      1625
                          53377                   SA3    B7+X7       RI = T(RI[R1])                              BDT      1626
                               36653              IX6    X5+X3                                                   BDT      1627
          1051  20230                             LX2    -IH.RFP                                                 BDT      1628
                     53327                        SA3    B7+X2                                                   BDT      1629
                          36723                   IX7    X2+X3       RF = T(RF[R2])                              BDT      1630
                               54650              SA6    A5                                                      BDT      1631
          1052  20744                             LX7    IH.RFP                                                  BDT      1632
                     5072000000                   SA7    A2+                                                     BDT      1633
                                                                                                                 BDT      1634
          1053  54444                    RNI5     SA4    A4+B4       DI = DI + 4                                 BDT      1635
                                                  LX4    58-D.TYP                                                BDT      1636
                     55542                        SA5    A4-B2       RI = DI - 2                                 BDT      1637
                          36644                   IX6    X4+X4                                                   BDT      1638
                               13746              BX7    X4-X6                                                   BDT      1639
          1054  0337001050 +                      MI     X7,RNI4     IF TYPE[DI] = II ! III                      BDT      1640
                          0334001064 +            MI     X4,RNI6     IF TYPE[DI] = IV                            BDT      1641
                                                                                                                 BDT      1642
                                        *         PROCESS TYPE I INSTRUCTIONS                                    BDT      1643
                                                                                                                 BDT      1644
          1055  20534                             LX5    -R1.RJP                                                 BDT      1645
                     15150                        BX1    -X0*X5                                                  BDT      1646
                          53217                   SA2    B7+X1                                                   BDT      1647
                               36352              IX3    X5+X2       RJ = T( RJ[R1] )                            BDT      1648
          1056  22463                             LX4    B6,X3                                                   BDT      1649
                     15540                        BX5    -X0*X4                                                  BDT      1650
                          53157                   SA1    B7+X5                                                   BDT      1651
                               36714              IX7    X1+X4       RK = T( RK[R1] )                            BDT      1652
          1057  54251                             SA2    A5+B1       R2 = R1 + 1                                 BDT      1653
                     22667                        LX6    B6,X7                                                   BDT      1654
                          15360                   BX3    -X0*X6                                                  BDT      1655
                               53137              SA1    B7+X3                                                   BDT      1656
          1060  36716                             IX7    X1+X6       RI = T( RI[R1] )                            BDT      1657
                     54750                        SA7    A5                                                      BDT      1658
                          0302001053 +            ZR     X2,RNI5     IF [R2] = 0                                 BDT      1659
          1061  20230                             LX2    -IH.RFP                                                 BDT      1660
                     15720                        BX7    -X0*X2                                                  FCC0643    81
                          53377                   SA3    B7+X7                                                   FCC0643    82
                               22703              LX7    X3                                                      CCG0177    11
          1062  21722                             AX7    IH.RFL                                                  CCG0177    12
                     0317001053 +                 NZ     X7,RNI5                */ IF NOTHING SETUP IN EQV TABLE CCG0177    13
                               36623              IX6    X2+X3       RF = T(RF[R2])                              BDT      1662
          1063  20644                             LX6    IH.RFP                                                  BDT      1663
                     54620                        SA6    A2                                                      BDT      1664
                          0400001053 +            EQ     RNI5                                                    BDT      1665
                                                                                                                 BDT      1666
          1064  26735                    RNI6     UX7    "OC",X5                                                 BDT      1667
                     0530001053 +                 NZ     "OC",RNI5   IF OC[R1] " 0                               BDT      1668
          1065  0400001036 +                      EQ     RNI                                                     BDT      1669
                                                                                                                 BDT      1670
                                                  ENTRY  F$BRDGE     FWA OF BRIDGE CODE ( OVERLAID )             CCG11     137
          1066                           F$BRDGE  END                                                            CCG11     138
  
                             56200B CM  STORAGE USED             3638 STATEMENTS     1072 SYMBOLS      000008 INVENTED SYMBOLS
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    49
        RNI - RENUMBER INSTRUCTIONS                                   RNI 
  
                               PARALLEL CPU ASSEMBLY            2.854 SECONDS         912 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ATS$            0   EXTERNAL*       4/38     29/45     31/06
        BDT             1   PROGRAM*        4/27 L   23/35     29/15 F   29/26     30/51
        BDTA            0   CCGSCR          4/30 S    5/16      9/07     11/55     17/25     18/26     20/22     24/10
        BDT#            1   PROGRAM*        4/27 E    4/27 L
        B1=1            0 
        CRW           761   PROGRAM*       42/26     44/08 L   46/50
        CRW0          767   PROGRAM*       44/25 L   45/10     45/21     45/37     46/14
                                           45/08     45/19     45/35     46/08
        CRW1          771   PROGRAM*       44/21     44/36 L   46/25     46/28
        CRW1A         777   PROGRAM*       44/49     45/03 L
        CRW10        1025   PROGRAM*       46/11     46/16 L
        CRW11        1031   PROGRAM*       45/31     46/32 L
        CRW2         1003   PROGRAM*       44/42     45/14 L
        CRW3         1010   PROGRAM*       44/41     45/30 L
        CRW4         1014   PROGRAM*       45/30     45/41 L
        CRW5         1015   PROGRAM*       45/42     45/44 L
        CRW7         1017   PROGRAM*       44/56     45/48     45/54 L   46/04
        CRW8         1021   PROGRAM*       46/01     46/03 L
        CRW9         1022   PROGRAM*       45/17     45/24     45/26     46/08 L
        CRW#          761   PROGRAM*       44/08 E   44/08 L
        D.BML           1   GTX            42/29
        D.BMP          52   GTX             5/12     16/06     18/19     34/32     35/03     35/26     37/04     42/29
                                            5/33     18/13     23/13     34/50     35/08     35/28     37/07     43/11
        D.ECJP         45   GTX            18/19     35/55     36/01
        D.EQVP         65   GTX            11/46     36/01
        D.FTL           5   GTX            24/09
        D.FTP          65   GTX            11/45     11/46     24/11     24/13
        D.KSP          37   GTX            41/18
        D.LDSTL         2   GTX             5/09     35/45
        D.LDSTP        42   GTX             5/11      5/47     35/47
        D.L2P          44   GTX             5/43     35/31
        D.MUCP         35   GTX             4/21
        D.PIP          36   GTX            15/07     36/11     37/09     45/16
        D.PRSP         46   GTX            32/36     32/38     32/47     41/09     41/13     46/10
        D.PSP          47   GTX            37/07
        D.RDP          35                   4/21 D   11/05     11/08     40/39
        D.REGWL        11   GTX            44/10
        D.REGWP        11   GTX            44/14     44/28     46/22     46/34
        D.RJRSP        50   GTX            41/13     41/15
        D.SRP          26   GTX            10/09     11/05     11/08     11/45
        D.STL           1   GTX            42/29
        D.STP          42   GTX             5/40      5/43     32/38     35/28     35/31     42/29
        D.SZP          27   GTX            10/11
        D.TYIOL         2   GTX            44/47
        D.TYIOP        50   GTX            44/46
        D.TYL           2   GTX             6/34     14/11
        D.TYP          72   GTX             5/29     11/32     15/07     15/57     44/46     45/15     45/33
                                            5/33     14/46     15/43     16/06     44/48     45/16     45/41
        D.USESL        11   GTX             7/18     12/16     24/29     27/07     44/15
        D.USESP         0   GTX            12/49     25/04     27/42
        D.XMTP         40   GTX            41/15
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        D.XUP          24   GTX            43/32
        D.ZPP          32   GTX            32/47     36/25
        D.^DP          51   GTX            14/46     15/57     44/25     45/15     45/41     46/16
                                           15/43     35/03     44/48     45/33     46/10     47/21
        EQVL            1   CCGSCR          7/28 S   11/57 S   18/34 S   19/13 S   20/28 S   21/02     27/57
        FBM             2   CCGSCR         21/05 S   22/06
        FTREE           4   CCGSCR         21/06 S   22/04
        F$BRDGE      1066   PROGRAM*       48/54 E   48/55 L
        F$RDT           0   EXTERNAL*       1/42
        F.RDT           0   EXTERNAL*       1/42 D
        GRASRF#         0   EXTERNAL*       7/38
        HBI#            0   EXTERNAL*      30/44
        IH.BMP         71   GTX             5/21      6/10      9/06     10/08
        IH.CAP         22   GTX             9/33     12/21
        IH.IHL         22   GTX             9/04
        IH.IHP          0   GTX             9/27
        IH.RFL         22   GTX             7/41     48/43
        IH.RFP         44   GTX             7/43      9/27     10/43     18/27     36/17     45/46     48/11     48/46
                                            8/19      9/33     15/45     19/57     39/07     48/07     48/39
        IH.SRFP        66   GTX             7/48
        IH.STP         72   GTX             5/47
        IT.             0   EXTERNAL*       1/42 D
        I.IIP          72                  30/29 D   39/27     39/52     41/02
        I.INDXL        17 
        I.INDXP        41                  29/08
        I.LSTL         17                  28/17
        I.LSTP         22                  27/17     28/19
        I.LVLL         22                  30/34 D   34/17
        I.LVLP         22                  30/34 D   33/14     34/56     38/38     39/41     42/45
                                           31/20     33/20     36/32     38/48     40/50     42/47
                                           31/47     34/19     36/36     38/51     40/52     43/28
        I.MIP          73                  30/28 D   39/27
        I.NPL          22                  30/35 D   30/37
        I.NPP           0                  30/35 D   30/37     32/24     34/41     35/44
        I.NPREDL       22 
        I.NPREDP        0 
        I.OIL          22                  30/37 D   41/24
        I.OIP           0                  30/37 D
        I.PRIL         22                  30/33 D
        I.PRIORL       17                  25/24
        I.PRIORP       22                  24/13     25/17     25/25     25/30
        I.PRIP         44                  30/33 D   32/18     34/01     34/41     35/44     38/04
        I.RDSTP        71                  30/30 D   40/36     40/48
        I.STCPP        70                  30/31 D   38/36     38/38     38/45
        I.USESL        11 
        I.USESP        60                  25/04     27/42
        JT.LVLL        22                  30/22 D
        JT.LVLP        22                  30/22 D   32/02
        JT.PREDL       22                  30/23 D
        JT.PREDP        0                  30/23 D
        JT.SUCCL       22                  30/20 D
        JT.SUCCP       52                  30/20 D   31/56     33/56
        LBM             3   CCGSCR         17/20 S
        L$IIT           0   EXTERNAL*       1/42
        L$TET           0   EXTERNAL*       1/42
        L$TREE          0   EXTERNAL*       1/42
        L$TXT           0   EXTERNAL*       1/42
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        L.IIT           0   EXTERNAL*       1/42 D
        L.TET           0   EXTERNAL*       1/42 D
        L.TREE          0   EXTERNAL*       1/42 D   23/32 S   28/07 S   28/36 S   30/56     42/20 S
        L.TXT           0   EXTERNAL*       1/42 D    4/29     22/07     30/57     34/14     38/03     41/45
        MIN.PR         10                  30/39 D   31/17
        MSD           741   PROGRAM*       40/54     42/37 L   43/02     43/19     43/35
        MSD1          744   PROGRAM*       42/48 L   42/50
        MSD2          746   PROGRAM*       42/54 L   42/56
        MSD3          751   PROGRAM*       43/07 L   43/14
        MSD4          755   PROGRAM*       43/12     43/21 L
        MSD5          756   PROGRAM*       42/40     43/27 L
        MVE=            0   EXTERNAL*      41/48
        NBIP#           0   EXTERNAL*      11/14
        N.INST          0   MCG             2/10 L    9/46     20/45     25/26     41/49
                                            4/33 S   17/06     24/20     30/55
        N.ST            1   MCG             2/11 L    6/18 S    9/49     24/16
        OC.ENT          7   GTX            45/34
        OC.EOS          2   GTX            11/36
        OC.JIN         71   GTX            17/38
        OC.RS           4   GTX            14/04     25/31     44/18
        OC.TST         77   GTX            11/15
        O$IIT           0   EXTERNAL*       1/42
        O$SYM           0   EXTERNAL*       1/42
        O$TET           0   EXTERNAL*       1/42
        O$TREE          0   EXTERNAL*       1/42
        O$TXT           0   EXTERNAL*       1/42
        O.IIT           0   EXTERNAL*       1/42 D   12/09
        O.SYM           0   EXTERNAL*       1/42 D
        O.TET           0   EXTERNAL*       1/42 D   12/08
        O.TREE          0   EXTERNAL*       1/42 D    9/44     14/12     23/29     41/46
                                            5/05     12/10     22/05     27/06     41/51
        O.TXT           0   EXTERNAL*       1/42 D   22/25     29/46     33/54     41/50
                                            4/40     24/12     31/16     34/09     42/25
        PI.CNP         44                   4/20 D   12/29
        REGS           10   CCGSCR         17/26 S   19/51
        RIO           464   PROGRAM*       30/42 L   33/46 F   42/27
        RIOA          735   PROGRAM*       38/16     42/29 L
        RIO1          467   PROGRAM*       30/43     30/47 L
        RIO10         536   PROGRAM*       33/34 L   33/37     33/41     33/43
        RIO11         542   PROGRAM*       33/40     33/45 L
        RIO12         546   PROGRAM*       33/51     34/09 L
        RIO13         553   PROGRAM*       34/24 L   34/28
        RIO14         556   PROGRAM*       34/39 L   36/57
        RIO15         557   PROGRAM*       34/46 L   34/51
        RIO16         562   PROGRAM*       35/03 L   35/11
        RIO16A        565   PROGRAM*       35/04     35/13 L
        RIO16B        566   PROGRAM*       35/19 L   35/27
        RIO17         567   PROGRAM*       35/15     35/29     35/36     36/02     36/39
                                           35/21 L   35/32     35/56     36/26
        RIO17A        576   PROGRAM*       35/49 L   36/05
        RIO17B        602   PROGRAM*       35/52     35/57     36/03 L
        RIO17C        606   PROGRAM*       36/18     36/21 L
        RIO18         610   PROGRAM*       36/12     36/23     36/30 L   36/33
        RIO19         613   PROGRAM*       35/21     36/43 L
        RIO2          474   PROGRAM*       31/04     31/06 L
        RIO20         615   PROGRAM*       36/47 L   36/52
        RIO21         617   PROGRAM*       36/47     36/56 L
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        RIO4          503   PROGRAM*       31/35 L   32/04     32/12
        RIO5          505   PROGRAM*       31/31     31/45 L   33/24
        RIO6          513   PROGRAM*       31/41     32/16 L
        RIO7          516   PROGRAM*       32/23     32/25     32/34 L
        RIO7A         531   PROGRAM*       32/52     33/10 L
        RIO7AA        522   PROGRAM*       32/37     32/47 L
        RIO7B         532   PROGRAM*       32/39     32/43     32/45     32/49     33/06     33/08     33/11     33/14 L
        RIO#          464   PROGRAM*       30/42 E   30/42 L
        RL            737   PROGRAM*       34/55 S   36/43     42/31 L
        RMODE         736   PROGRAM*       30/47 S   34/10     37/11 S   38/07     38/31     42/30 L
        RNI          1036   PROGRAM*       42/23     47/17 L   48/52
        RNI1         1042   PROGRAM*       47/30 L   47/37
        RNI2         1043   PROGRAM*       47/33 L   47/42
        RNI3         1046   PROGRAM*       47/31     47/48 L
        RNI4         1050   PROGRAM*       48/03 L   48/19
        RNI5         1053   PROGRAM*       47/53     48/14 L   48/38     48/44     48/48     48/51
        RNI6         1064   PROGRAM*       48/20     48/50 L
        RNI#         1036   PROGRAM*       47/17 E   47/17 L
        RN.MASK    600001   GTX            14/03     44/11
        R1.INP         36   GTX            15/21
        R1.OCP         60   GTX            11/13     11/35
        R1.RIL         20   GTX             6/30      7/46     39/10     45/49     47/20
                                            7/44     34/35     40/42     45/57     47/50
        R1.RIP          0   GTX            14/41
        R1.RJP         40   GTX            14/39     14/41     36/20     39/11     45/03     48/24
        R1.RKP         20   GTX            14/37     14/39
        R1.SOP         20   GTX            17/53     19/48     20/15     32/51     45/20     46/13
        SEQTIME         2   MCG             2/12 L   25/18 S
        SHL#            0   EXTERNAL*      21/09     28/37     34/04
        SIO           623   PROGRAM*       34/12     38/03 L
        SIOCALL         0   PROGRAM*        5/31      7/42     10/10     23/24     30/50 S
        SIO1          627   PROGRAM*       38/16 L   41/38
        SIO1A         631   PROGRAM*       38/21 L   38/23
        SIO10         733   PROGRAM*       30/45     42/25 L
        SIO2          633   PROGRAM*       38/12     38/30 L   40/21     41/33
        SIO2A         641   PROGRAM*       38/54 L   39/43
        SIO2AA        645   PROGRAM*       39/08     39/13 L
        SIO2A1        651   PROGRAM*       39/18     39/27 L
        SIO2B         653   PROGRAM*       39/34 L   39/38
        SIO2C         655   PROGRAM*       38/56     39/14     39/21     39/25     39/28     39/41 L
        SIO2D         657   PROGRAM*       38/34     38/37     38/40     39/49 L
        SIO3          661   PROGRAM*       40/01 L   40/10     40/24     40/55
        SIO3A         671   PROGRAM*       40/12     40/14     40/33 L
        SIO3B         677   PROGRAM*       40/37     40/54 L
        SIO3G         667   PROGRAM*       40/23 L   40/40     40/45
        SIO3H         665   PROGRAM*       40/16 L   40/26
        SIO4          701   PROGRAM*       40/03     41/02 L   41/28
        SIO4A         707   PROGRAM*       41/12     41/14     41/23 L
        SIO5          711   PROGRAM*       39/54     41/16     41/19     41/30 L
        SIO8          723   PROGRAM*       42/01 L   42/17
        SIO9          725   PROGRAM*       42/05     42/08 L
        SO.LKP          6   GTX            17/53     20/15     33/10     45/23
        SO.REGL         6   GTX            19/47
        SO.RNL          3   GTX            32/55
        SO.RNP          0   GTX            32/54
        SO.RTP          3   GTX            32/51     32/54     33/10     45/20     45/23     46/13
        SST#            0   EXTERNAL*      21/18     28/08
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        S$IT            0   EXTERNAL*       1/42
        TEST            0   GTX            29/28 F
        TF              5   CCGSCR         14/10 S   20/05
        TREEL           6   CCGSCR          4/42 S    7/26     23/19 S   24/26     28/15
                                            5/15     21/01     23/30     27/54 S   29/49 S
        TSTC            7   CCGSCR          5/18 S   11/19     12/06
        TYIOM#          0   EXTERNAL*      44/51
        T.BIPP         66   GTX            12/28
        T.EQVLP        25                   9/08
        T.EQVP         72   GTX            21/17
        T.ITIP         44   GTX            12/23     12/28
        T.PREDL        22 
        T.PREDP         0 
        T.RDLP         26                  18/30     19/10     20/26
        T.SUCCL        22                  22/26     31/23
        T.SUCCP        30                   6/35     17/16     18/42     19/35     20/37     24/31     28/20
                                            9/16     17/43     19/08     19/39     20/40     24/33     31/25
                                           12/44     18/05     19/12     20/10     22/29     27/14     31/56
                                           14/32     18/33     19/19     20/24     22/30     27/30     32/22
        U.EQVP         71                  28/06
        U.LASTP        73 
        U.LSTL         22 
        U.LSTP         22                  27/12     27/17
        U.PREDL        22                  28/46
        U.PREDP        44                  28/43     28/48
        U.RDLP         72 
        U.SUCCL        22 
        U.SUCCP         0 
        Z$TREE          0   EXTERNAL*       4/38     29/45     31/06
        .DAL            1   GTX             5/42 F   35/30 F
        .P             43                  42/29 D   42/29     42/29 D   42/29
        .Z              0                  42/29 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  BDT 
  
  
        BDT2            6   PROGRAM*        4/35      4/38 L
        CIP           364   PROGRAM*       23/25     24/09 L
        CIP1          373   PROGRAM*       24/18     24/26 L
        CIP2          400   PROGRAM*       24/42 L   25/15
        CIP3          401   PROGRAM*       24/49 L   24/57
        CIP4          403   PROGRAM*       24/54     24/56 L
        CIP5          413   PROGRAM*       25/34 L   25/45
        CIP5A         416   PROGRAM*       25/43     25/45 L
        CIP6          417   PROGRAM*       24/15     24/24     27/06 L
        CIP7          423   PROGRAM*       27/23 L   27/27     27/32     27/47
        CSP1           41   PROGRAM*        6/38 L    6/49
        CSP2           42   PROGRAM*        6/36      6/42 L    6/57      7/04      7/15      7/24
        CSP3           45   PROGRAM*        6/55 L    7/02
        CSP4           50   PROGRAM*        6/42      7/08 L
        CSP5           53   PROGRAM*        7/12      7/17 L
        CSP6           55   PROGRAM*        6/29      7/26 L
        FIL            12   PROGRAM*        5/05 L   29/53
        FIL1           23   PROGRAM*        5/39 L    6/02
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    54
        SYMBOLIC REFERENCE TABLE.                                     BDT 
  
        FIL10         124   PROGRAM*       10/31 L   10/36     11/33     11/37
        FIL10B        131   PROGRAM*       10/52     10/54 L
        FIL10C        141   PROGRAM*       10/35     11/29 L
        FIL11         145   PROGRAM*       10/18     11/44 L
        FIL12         146   PROGRAM*       11/49 L   11/53
        FIL2           27   PROGRAM*        5/30      5/32      5/34      5/51      5/55 L    6/03      6/06      6/14
        FIL3           77   PROGRAM*        9/10 L    9/13      9/21
        FIL4          102   PROGRAM*        9/19 L    9/25      9/29      9/35      9/42
        FIL5          107   PROGRAM*        9/32      9/39 L
        FIL6          111   PROGRAM*        9/12      9/44 L
        FIL8          115   PROGRAM*        9/54     10/06 L
        FIL9          120   PROGRAM*       10/17 L   10/25     10/42     11/01     11/17     11/30
                                           10/20     10/27     10/45     11/16     11/25     11/38
        FJL           337   PROGRAM*       22/11     22/16 L
        FJL1          341   PROGRAM*       22/12     22/24 L
        FJL2          345   PROGRAM*       22/37 L   22/42
        FJL3          347   PROGRAM*       22/48 L   23/14     23/16
        FJL4          350   PROGRAM*       22/53 L   23/04
        FJL4A         351   PROGRAM*       22/54     22/56 L
        FJL5          355   PROGRAM*       23/09     23/13 L
        FJL6          360   PROGRAM*       22/19     23/24 L
        FOL           167   PROGRAM*       12/07     14/03 L
        FOL1          174   PROGRAM*       14/20 L   14/56     15/17     15/30     15/36     16/07     16/09
        FOL10         225   PROGRAM*       15/40     16/02     16/06 L
        FOL2          175   PROGRAM*       14/16     14/27 L   14/51     15/12     15/53
        FOL3          201   PROGRAM*       14/42     14/45 L
        FOL4          203   PROGRAM*       14/47     14/48     14/51 L
        FOL5          205   PROGRAM*       14/33     15/01 L
        FOL5A         210   PROGRAM*       15/08     15/14 L
        FOL6          212   PROGRAM*       15/15     15/21 L
        FOL7          215   PROGRAM*       15/23     15/32 L
        FOL8          217   PROGRAM*       15/03     15/40 L
        FOL8A         222   PROGRAM*       15/49     15/51 L
        FOL9          223   PROGRAM*       15/46     15/55 L
        FTL0          240   PROGRAM*       17/41 L   17/48
        FTL1          241   PROGRAM*       17/39     17/45 L   17/49     17/54     17/57
        FTL10         333   PROGRAM*       21/10     21/20 L
        FTL2          246   PROGRAM*       18/03 L   18/15
        FTL3          247   PROGRAM*       17/23     17/46     18/20     19/22     20/16
                                           17/35     18/07 L   18/40     20/08     20/38
        FTL3A         271   PROGRAM*       19/17 L   19/24     19/25     19/27     19/31     19/41
        FTL3AA        257   PROGRAM*       18/36 L   18/41     18/45
        FTL3AC        263   PROGRAM*       18/18     18/51 L
        FTL3B         266   PROGRAM*       19/01     19/05 L
        FTL3C         300   PROGRAM*       18/17     19/45 L
        FTL3D         302   PROGRAM*       19/51 L
        FTL4          307   PROGRAM*       20/02     20/08 L
        FTL4A         312   PROGRAM*       20/06     20/12     20/21 L
        FTL5          315   PROGRAM*       20/34 L   20/39     20/43
        FTL6          321   PROGRAM*       18/09     20/45 L
        FTL8          331   PROGRAM*       21/08     21/14 L
        GAS           457   PROGRAM*        9/56     17/11     20/53     29/44 L
        IPL           151   PROGRAM*       11/47     12/06 L
        IPL1          155   PROGRAM*       12/18 L   12/57
        IPL2          162   PROGRAM*       12/31     12/42 L
        IPL3          166   PROGRAM*       12/25     12/36     12/51     12/55 L
        IRF1           63   PROGRAM*        7/54 L    7/56      8/25      8/29
1       BDT - FORM DEPENDENCY GRAPH                                   COMPASS 3.7-871.     24/05/02. 13.13.14.      PAGE    55
        SYMBOLIC REFERENCE TABLE.                                     BDT 
  
        IRF2           66   PROGRAM*        8/08 L    8/10
        IRF3           71   PROGRAM*        8/14      8/16 L
        IRF5           75   PROGRAM*        7/39      7/57      8/31 L
        SIT           437   PROGRAM*       26/05     28/15 L
        SIT1          442   PROGRAM*       28/23 L   28/30
        SIT1A         445   PROGRAM*       28/01     28/36 L
        SIT1B         446   PROGRAM*       28/09     28/42 L
        SIT2          451   PROGRAM*       28/52 L   29/11
        SIT3          452   PROGRAM*       28/50     28/55 L   29/02
  
  
  
  
                                                  SYMBOL QUALIFIER =  DEBUG 
  
  
  U     BDT                                29/15 F
  U     FJL                                23/21 F
  U     IH                                  6/20 F
  U     IRF                                 8/33 F
  U     RIO                                33/46 F
  U     TREE                               25/47 F
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      646              IDENT  CFA
                        646              F$CFA    END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       646 
                                        CCGSCR    COMMON          0        16 
  
  
                                        ENTRY POINTS. 
  
                                        B=CFA            0+           CG$LABD         66+ 
                                        DGS#            23+           F$CFA          646+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BST     L$GST     O$RND     GIC#      O.IST#    Z$RND     L.LCT#    Z$GST 
                                        L$BST     O$GLT     L$RND     M.GRL#    Z$OTI     HO$IE     Z$CFT     SBD#
                                        O$CFT     L$GLT     F$RDT     M.LP#     SHL#      HO$DC     CC$CBN
                                        L$CFT     O$OTI     S$IT      N.DG#     SST#      ATS$      CC$OPF
                                        O$GST     L$OTI     O$SYM     NPB#      HR$LDC  * N.FTH#    ADW$
  
  
  
  
                                                  IDENT  CFA                                                     CFA         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=CFA    RPVDEF                                                         CFA         5
  
  
                                        **        CFA - CONTROL FLOW ANALYSIS ROUTINES ( OPT=2 )                 CFA        11
                                        *         CFA PROCESSES THE CONTROL FLOW INFORMATION FORMED IN *PRE* TO  CFA        12
                                        *         FIND THE LOOPS IN THE PROGRAM, AND TO BUILD THE GRAPH/INTERVAL CFA        13
                                        *         STRUCTURE TABLES WHICH ARE USED BY THE OPTIMIZERS ( GPO/GRA )  CFA        14
                                        *         TO DIRECT THE GLOBAL OPTIMIZATION.                             CFA        15
                                        *                                                                        CFA        16
                                        *         S.I. JASIK - SEPT 11, 1973                                     CFA        17
                                                                                                                 CFA        18
                                                  LIST   -R,X                                                    CFA        19
                                                                                                                 CFA        20
                                                  TABLES (BST,CFT,GST,GLT,OTI,RND)  & LCT                        CCG18     178
                                   0 X   O.BIT    EQU    O.BST                                                   CFA        24
                                   0 X   L.BIT    EQU    L.BST                                                   CFA        25
                                                  EXT#   (GIC,M.GRL,M.LP,N.DG,NPB,O.IST)                         CCGNC     810
                                                                                                                 CFA        27
                                1400     MAX.GST  EQU    1400B       MAX GRAPH SPACE ( INCORE )                  CFA        28
                                                                                                                 CFA        29
                                        **        DEBUG FACILITIES                                               CFA        30
                                        *                                                                        CFA        31
                                        *         TRACER (FGS,FGS.X,FIS1,FIS.X,CBD.X,FDG.X)                      CFA        32
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     2
                                                                      SCRATCH 
  
                                        *         SCRATCH CELLS USED DURING GRAPH / INTERVAL FORMATION           CFA        34
                                                                                                                 CFA        35
                                                  USE    /CCGSCR/                                                CCG18     179
             0                     1     PBN      BSS    1           PREVIOUS BLOCK NUMBER ( *CBN* ON ENTRY )    CFA        37
             1                     2     LB       BSS    2           LINK BACKWARDS / L.GST AT START OF GRAPH    CFA        39
             3                     1     N.BLK    BSS    1           NUMBER OF BLOCKS IN GRAPH                   CFA        40
             4                     1     LC       BSS    1           SAVED LENGTH OF *CFT*                       CFA        42
             5                     2     EIB      BSS    2           EDGE INDEX BASE                             CFA        43
                                   5 C   EII      EQU    EIB         EDGE INDEX INDEX  ( RELATIVE TO O.GST )     CFA        44
                                   6 C   ETB      EQU    EIB+1       EDGE TABLE BASE                             CFA        45
             7                     1     ILB      BSS    1           INTERVAL LIST BASE                          CFA        46
                                                                                                                 CFA        47
            10                     1     HTL      BSS    1           HEADER TABLE LIST                           CFA        48
            11                     1     NPH      BSS    1           N.PRED OF HEADER AT BEGIN OF INTERVAL       CFA        49
            12                     1     FTH      BSS    1           FALL THROUGH TO HEADER FROM A LATCHING NODE FCC0408    92
            13                     1     SCR      BSS    1           "0 IF GRAPH CONTAINS LOOPS                  CFA        50
            14                     1     IP       BSS    1           INTERVAL POINTER ( CBD )                    CFA        52
            15                     1     NN       BSS    1           N.NODES REMAINING ( CBD12 )                 CFA        53
                                  15 C   I        EQU    NN                                                      CFA        54
                                                  USE    0                                                       CFA        55
  
  
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     3
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       CFTBLD
  
             0                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
                                                                                                                 CFTBLD      3
                                        **        THE GRAPH STRUCTURE TABLES CONSIST OF ( FOR EACH GRAPH ) -     CFTBLD     13
                                        *         GA, GB WORDS, THE EDGE INDEX TABLE, THE EDGE TABLE, AND        CFTBLD     14
                                        *         INTERVAL LISTS, WHICH ARE TERMINATED BY A ZERO WORD.           CFTBLD     15
                                                                                                                 CFTBLD     16
                                        **        GRAPH HEADER WORDS                                             CFTBLD     17
                                                                                                                 CFTBLD     18
                                                  DESCRIBE GA.,60                                                CFTBLD     19
                                                  DEFINE 24                                                      CFTBLD     20
      L     22  00000000777777000000     LB       DEFINE 18          LINK BACKWARDS ( LENGTH OF LAST GRAPH )     CFTBLD     21
             0  00000000000000777777     LF       DEFINE 18          LINK FOWARD ( LENGTH OF THIS GRAPH )        CFTBLD     22
                                                                                                                 CFTBLD     23
                                                  DESCRIBE GB.,60                                                CFTBLD     24
                                                  DEFINE 6                                                       CFTBLD     25
      L     44  00777777000000000000     NLP      DEFINE 18          N.LOOPS                                     CFTBLD     26
      L     22  00000000777777000000     NB       DEFINE 18          N.BLOCKS IN GRAPH                           CFTBLD     27
             0  00000000000000777777     ILI      DEFINE 18          INTERVAL LIST INDEX ( REL TO *EII* )        CFTBLD     28
  
  
                                        **        EI. - EDGE INDEX TABLE                                         CFTBLD     30
                                                                                                                 CFTBLD     31
                                                  DESCRIBE EI.,60                                                CFTBLD     32
      L     52  77777700000000000000     PRI      DEFINE 18          PREDECESSOR INDEX  ( REL TO EIB )           CFTBLD     33
      L     36  00000077770000000000     NP       DEFINE 12          N.PRED ( PACKED )                           CFTBLD     34
      L     14  00000000007777770000     SUI      DEFINE 18          SUCCESSOR INDEX                             CFTBLD     35
             0  00000000000000007777     NS       DEFINE 12          N.SUCC ( PACKED )                           CFTBLD     36
  
  
                                        **        ET. - EDGE TABLE FORMAT                                        CFTBLD     38
                                                                                                                 CFTBLD     39
                                                  DESCRIBE ET.,60                                                CFTBLD     40
      L     73  40000000000000000000     JP       DEFINE 1           JUMP EDGE ( SUCCESSOR EDGES )               CFTBLD     41
                                                  DEFINE 11                                                      CFTBLD     42
      L     36  00007777770000000000     PRED     DEFINE 18          BLOCK NUMBER OF PRED                        CFTBLD     43
                                                  DEFINE 12                                                      CFTBLD     44
             0  00000000000000777777     SUCC     DEFINE 18          BLOCK NUMBER OF SUCCESSOR                   CFTBLD     45
  
  
  
                                        **        IP. - INTERVAL PROPERTIES                                      CFTBLD     47
                                                                                                                 CFTBLD     48
                                                  DESCRIBE IP.,60                                                CFTBLD     49
      L     73  40000000000000000000     GL       DEFINE 1           SET IF REGION NEEDS A *GL* WHEN OPTIMIZED   CFTBLD     50
      L     72  20000000000000000000     FT       DEFINE 1           FALL THROUGH TO HEADER NODE                 FCC0408     7
                                                  DEFINE 4                                                       FCC0408     8
      L     44  00777777000000000000     NIP      DEFINE 18          N. INTERNAL PRED OF HEADER NODE             FCC0392    11
      L     22  00000000777777000000     PB       DEFINE 18          BLOCK NUMBER OF PROLOGUE BLOCK ( *SCR* " 0  CFTBLD     53
             0  00000000000000777777     NODE     DEFINE 18          NUMBER OF NODES IN INTERVAL                 CFTBLD     54
  
  
                                        **        IM. - INTERVAL MEMBER PROPERTIES                               CFTBLD     56
                                                                                                                 CFTBLD     57
                                                  DESCRIBE IM.,60                                                CFTBLD     58
      L     73  40000000000000000000     SCR      DEFINE 1           IN STRONGLY CONNECTED REGION                CFTBLD     59
      L     72  20000000000000000000     AP       DEFINE 1           ARTICULATION POINT                          CFTBLD     60
      L     71  10000000000000000000     LN       DEFINE 1           LATCHING NODE ( JUMPS BACK TO LOOP HEADER ) CFTBLD     61
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     4
        CFTBLD - CONTROL FLOW TABLE DEFINITIONS                       IM
  
      L     70  04000000000000000000     DOM      DEFINE 1           NODE IS A DOMINATOR                         CFTBLD     62
      L     67  02000000000000000000     EN       DEFINE 1           INTERVAL EXIT NODE                          CFTBLD     63
      L     66  01000000000000000000     HN       DEFINE 1           HEADER NODE                                 CFTBLD     64
      L     44  00777777000000000000     BI       DEFINE 18          INDEX TO BLOCK INFO IN *BIT*                CFTBLD     65
      L     22  00000000777777000000     IBD      DEFINE 18          IMMEDIATE BACK DOMINATOR ( REL TO *HN* )    CFTBLD     66
             0  00000000000000777777     BN       DEFINE 18          NODE NUMBER OF BLOCK                        CFTBLD     67
                                                                                                                 CFTBLD     68
      L     71  30000000000000000000     APLN     DEQU   LN,2        AP AND LN BITS                              CFTBLD     69
                                                                                                                 CFTBLD     70
                                                  ENDX                                                           CFTBLD     71
  
  
  
                                        **        I. - TEMPORARY TABLE FOR INTERVAL FORMATION                    CFA        59
                                                                                                                 CFA        60
                                                  DESCRIBE I.,60                                                 CFA        61
      L     73  40000000000000000000     INI      DEFINE 1           IN AN INTERVAL                              CFA        62
      L     72  20000000000000000000     INH      DEFINE 1           IN HEADER LIST                              CFA        63
      L     71  10000000000000000000     1P       DEFINE 1           =1 IF ONLY 1 PREDECESSOR                    FCC1191     6
                                                  DEFINE 3                                                       FCC1191     7
      L     44  00777777000000000000     HN       DEFINE 18          HEADER NODE NUMBER                          CFA        65
      L     22  00000000777777000000     IA       DEFINE 18          ADDRESS OF NODE IN INTERVAL LIST            CFA        66
             0  00000000000000777777     PC       DEFINE 18          PREDECESSOR COUNT                           CFA        67
  
  
                                        **        I. - TEMP TABLE FOR BACK DOMINATOR CALCULATION                 CFA        69
                                        *         NOTE - IF NODES IN INTERVAL @ 60 , THEN BITN = NI              CFA        70
                                                                                                                 CFA        71
                                                  DESCRIBE I.,60                                                 CFA        72
      L     60  77770000000000000000     BITN     DEFINE 12          PACKED BIT NUMBER                           CFA        73
      L     36  00007777770000000000     WI       DEFINE 18          WORD INDEX                                  CFA        74
      L     14  00000000007777770000     BVI      DEFINE 18          BIT VECTOR INDEX                            CFA        75
             0  00000000000000007777     NI       DEFINE 12          NODE INDEX ( REL TO INTERVAL BASE )         CFA        76
  
  
                                                  LIST   R                                                       CFA        78
                                                  QUAL   CODE                                                    CFA        79
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     5
        CGT - CHECK GRAPH TABLE LENGTH AND FLUSH IF NECESSARY         CGT                 CODE
  
                                        **        CGT - CHECK GRAPH TABLE LENGTH AND FLUSH TO DISK IF TOO BIG    CFA        81
                                                                                                                 CFA        82
             0  0200400000 +             CGT      ROUTINE                                                        CFA        83
             1  5110000000 X                      SA1    L.GST                                                   CFA        84
                          7221776377              SX2    X1-MAX.GST                                              CFA        85
             2  0332000000 +                      MI     X2,CGT      IF L.GST < MAX.GRS  */ SMALL ENOUGH FOR COR CFA        86
                          5150000000 X            SA5    N.DG                                                    CFA        87
             3  0305000000 +                      ZR     X5,CGT      IF N.DG = 0   */ NO DERIVED GRAPHS          CFA        88
                                                                                                                 CFA        89
                                        *         FLUSH GRAPHS TO DISK, SETUP RANDOM INDEX IN WORKING STORAGE.   CFA        90
                                                                                                                 CFA        91
                          5130000000 X            SA3    O.GST                                                   CFA        92
             4  73431                             SX4    X3+B1       FWA = O.GST + 1                             CFA        93
                     53540                        SA5    X4                                                      CFA        94
                                                  LX5    -GA.LFP     LEN = LF[FWA]                               CFA        95
                          43600                   MX6    0                                                       CFA        96
                               76710              SX7    B1                                                      CFA        97
             5  5160000015 C                      SA6    I           I = 0                                       CFA        98
                          5170000000 X            SA7    =XGIC       GIC = 1       */ INDEX                      CFA        99
                                                                                                                 CFA       100
             6  5120000000 X             CGT1     SA2    GIC                                                     CFA       101
                          36725                   IX7    X2+X5       GIC = GIC + LEN                             CFA       102
                               54720              SA7    A2                                                      CFA       103
             7  0100000000 X                      CALL   SBD#        SAVE GRAPH ON DISK                          CCGNC     811
            10  5150000000 X                      SA5    =XO.IST                                                 CFA       105
                          10711                   BX7    X1                                                      CFA       106
                               63250              SB2    X5                                                      CFA       107
            11  5110000015 C                      SA1    I                                                       CFA       108
                          53712                   SA7    B2+X1       IST(I) = RIW  */ SAVE MASS STORAGE ADDRESS  CFA       109
                               73611              SX6    X1+B1       I = I + 1                                   CFA       110
            12  5130000000 X                      SA3    O.GST                                                   CFA       111
                          5150000000 X            SA5    GIC                                                     CFA       112
            13  36435                             IX4    X3+X5       FWA = O.GST + GIC                           CFA       113
                     53240                        SA2    X4                                                      CFA       114
                                                  LX2    -GA.LFP                                                 CFA       115
                          73520                   SX5    X2          LEN = LF[FWA]                               CFA       116
                               54610              SA6    A1                                                      CFA       117
            14  0315000006 +                      NZ     X5,CGT1     IF LEN " 0                                  CFA       118
                                                                                                                 CFA       119
                          5140000000 X            SA4    =XM.GRL                                                 CFA       120
            15  76620                             SX6    B2                                                      CFA       121
                     74771                        SX7    A7+B1                                                   CFA       122
                          5160000000 X            SA6    GIC         GIC = O.IST   */ POINT TO FIRST GRAPH       CFA       123
            16  5170000000 X                      SA7    O.IST       O.IST = O.IST + I                           CFA       124
                          7264000001              SX6    X4+1                                                    CFA       125
            17  5160000000 X                      SA6    L.GST       L.GST = M.GRL + 1                           CFA       126
                          0400000000 +            EQ     CGT                                                     CFA       127
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     6
        DGS - DERIVE GRAPH STRUCTURE                                  DGS                 CODE
  
                                        **        DGS - DERIVE GRAPH STRUCTURE ( CONTROL FLOW INFORMATION )      CFA       129
                                                                                                                 CFA       130
            20  76100                    DGS0     ADDWRD GST,B0      ADDWRD( GST , 0 )                           CFA       131
            22  5160000000 X                      SA6    L.CFT       L.CFT = 0                                   CFA       132
                                                                                                                 CFA       133
                          0100000000 +            RJ     CGT         CHECK GRAPH TABLES                          CFA       134
                                                                                                                 CFA       135
            23  0200400023 +             DGS      ROUTINE                                                        CFA       136
            24  7160000001                        SX6    1                                                       CCG27      70
                          5160000000 X            SA6    =XCC$OPF    CC$OPF = 1    */ MARK END OF BRIDGE PHASE   CCG27      71
            25  0100000046 +                      CALL   AFT         ADJUST FLOW TABLE                           CFA       137
            26  43600                             MX6    0                                                       CFA       138
                     5160000000 X                 SA6    L.GST       L.GST = 0                                   CFA       139
                               76100              ADDWRD GST,B0      ADDWRD( GST , 0 )                           CFA       140
            30  5150000000 X                      SA5    =XCC$CBN                                                CCGNC     812
                          43600                   MX6    0                                                       CFA       142
                               10755              BX7    X5                                                      CFA       143
            31  5160000001 C                      SA6    LB          LB = 0        */ LINK BACKWARDS             CFA       144
                          5170000000 C            SA7    PBN         PBN = CG.CBN    */ CBN AT BEGIN OF GRAPH    CCG1      359
            32  7277777776                        SX7    X7-1                                                    CFA       146
                          5170000003 C            SA7    N.BLK       N.BLK = CBN - 1 */ NUMBER OF BLOCKS         CFA       147
            33  5170000000 X                      SA7    NPB         NPB  = CBN - 1  */ N.PROGRAM BLOCKS         CFA       148
                                                                                                                 CFA       149
                          0100000147 +            RJ     FGS         FORM GRAPH STRUCTURE                        CFA       150
            34  0100000232 +                      RJ     FIS         FORM INTERVAL STRUCTURE                     CFA       151
            35  0100000074 +                      RJ     MRB         MARK REACHABLE BLOCKS                       CFA       152
                                                                                                                 CFA       153
                                        *         FORM DERVIED GRAPH OF CURRENT GRAPH IT IT HAS LOOPS            CFA       154
                                                                                                                 CFA       155
            36  5110000013 C             DGS1     SA1    SCR                                                     CFA       156
                          0301000020 +            ZR     X1,DGS0     IF SCR = 0    */ NO LOOPS                   CFA       157
                                                                                                                 CFA       158
            37  0100000564 +                      RJ     FDG         FORM DERIVED GRAPH                          CFA       159
            40  5110000000 X                      SA1    N.DG                                                    CFA       160
                          5120000000 X            SA2    CC$CBN                                                  CCGNC     813
            41  73611                             SX6    X1+B1       N.DG = N.DG + 1                             CFA       162
                     22702                        LX7    X2                                                      CFA       163
                          5170000000 C            SA7    PBN         PBN = CBN                                   CFA       164
            42  54610                             SA6    A1                                                      CFA       165
                                                                                                                 CFA       166
                     0100000147 +                 RJ     FGS         FORM GRAPH STRUCTURE TABLES                 CFA       167
            43  0100000232 +                      RJ     FIS         FORM INTERVAL STRUCTURE                     CFA       168
            44  0400000036 +                      EQ     DGS1                                                    CFA       169
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     7
        AFT - ADJUST FLOW TABLE                                       AFT                 CODE
  
                                        **        AFT - ADJUST FLOW TABLE TO REPLACE *IH* ORDINALS WITH BLOCK    CFA       171
                                        *                NUMBERS IN *TO* FIELD ( FORWARD REFERENCES ).           CFA       172
                                                                                                                 CFA       173
            45  7164000000               AFT0     SX6    B4+                                                     CCG27      72
                          5160000000 X            SA6    L.CFT       L.CFT = J                                   CCG27      73
                                                                                                                 CCG27      74
            46  0200400046 +             AFT      ROUTINE                                                        CCG27      75
            47  77101                             ADDWRD CFT,-B1     ADDWRD( CFT , -1 )  */ LOOP TERMINATOR      CCG27      76
            51  63320                             SB3    X2                (B3) = CFT                            CCG27      77
                     66400                        SB4    B0          J = 0         */ STORE INDEX                CCG27      78
                          5130000000 X            SA3    =XO.SYM                                                 CCG27      79
            52  5140000000 X                      SA4    O.GLT                                                   CCG27      80
                          43036                   MX0    -CF.FROMP                                               CCG27      81
                               53030              SA0    X3                                                      CCG27      82
            53  6224677777                        SB2    X4-I.GL                                                 CCG27      83
                          6160100000              SB6    I.GL                                                    CCG27      84
            54  43760                             MX7    -12                                                     CCG27      85
                     57531                        SA5    B3-B1       CI = CFT - 1                                CCG27      86
                          0400000057 +            EQ     AFT3                                                    CCG27      87
                                                                                                                 CCG27      88
            55  56425                    AFT1     SA4    B2+B5       BN = GLT(H-1)                               CCG27      89
                     36564                        IX5    X6+X4       TO[CIW] = BN                                CCG27      90
                                                                                                                 CCG27      91
            56  10655                    AFT2     BX6    X5                                                      CCG27      92
                     56634                        SA6    B3+B4       CFT(J) = CIW                                CCG27      93
                          6144000001              SB4    B4+1        J = J + 1                                   CCG27      94
                                                                                                                 CCG27      95
            57  54551                    AFT3     SA5    A5+B1       CI = CI + 1;  CIW = [CI]                    CCG27      96
                                                  LX5    59-CF.JPP                                               CCG27      97
                     0305000057 +                 ZR     X5,AFT3     IF CIW = 0    */ DELETED ENTRY              CCG27      98
            60  0325000056 +                      PL     X5,AFT2     IF ^JP[CI]    */ *TO* IS A BLK NUMBER       CCG27      99
                                                  LX5    1+CF.JPP                                                CCG27     100
                          63550                   SB5    X5          H = TO[CI]                                  CCG27     101
            61  0750000045 +                      MI     B5,AFT0     IF TO[CI] < 0 */ END OF THE TABLE           CCG27     102
                          11605                   BX6    X0*X5                                                   CFA       199
            62  0656000055 +                      GE     B5,B6,AFT1  IF H \ I.GL                                 CFA       200
                                                                                                                 CFA       201
                          64705                   SB7    A0+B5                                                   CCG1      363
                               66555              SB5    B5+B5                                                   CCG1      364
            63  56475                             SA4    B7+B5       WORDA = SYM(3*IH)                           CCG1      365
                     15347                        BX3    -X7*X4                                                  CFA       204
                          36563                   IX5    X6+X3       TO[CIW] = BN[WORDA]                         CCG27     103
            64  0400000056 +                      EQ     AFT2                                                    CFA       207
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     8
        AFT - ADJUST FLOW TABLE                                       LABD                CODE
  
                                        **        CG$LABD - DEFINE BLOCK NUMBER ASSOCIATED WITH A LABEL          CCG16     264
                                        *                                                                        CCG16     265
                                        *         ENTRY  (X1) = IH, SYMTAB ORDINAL OF LABEL DEFINITION           CCG16     266
                                        *                (CC$CBN) = CURRENT BLOCK NUMBER                         CCG16     267
                                                                                                                 CCG16     268
            65  5120000000 X             LABD1    SA2    =XO$GLT                                                 CCG16     269
                          10655                   BX6    X5                                                      CCG16     270
                               53622              SA6    X2+B2       GLT(H[IH]) = CBN                            CCG16     271
                                                                                                                 CCG16     272
            66  0200400066 +             CG$LABD  ROUTINE                                                        CCG16     273
            67  5150000000 X                      SA5    CC$CBN                                                  CCG16     274
                          6221677777              SB2    X1-I.GL                                                 CCG16     275
            70  0620000065 +                      PL     B2,LABD1    IF I[IH] " 0  */ A GL                       CCG16     276
                          5120000000 X            SA2    O.SYM                                                   CCG16     277
            71  63210                             SB2    X1                                                      CCG16     278
                     20101                        LX1    1                                                       CCG16     279
                          36312                   IX3    X1+X2                                                   CCG16     280
                               53432              SA4    X3+B2                                                   CCG16     281
            72  43060                             MX0    -WA.BNL                                                 CCG16     282
                     11604                        BX6    X0*X4                                                   CCG16     283
                          12765                   BX7    X6+X5                                                   CCG16     284
                               54740              SA7    A4          BN[WA] = CBN                                CCG16     285
            73  0400000066 +                      EQ     CG$LABD                                                 CCG16     286
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE     9
        MRB - MARK REACHABLE BLOCKS                                   MRB                 CODE
  
                                        **        MRB - MARK REACHABLE BLOCKS                                    CFA       209
                                        *         SET *RB* BIT IN *BIT* FOR BLOCKS THAT ARE IN INTERVALS.        CFA       210
                                                                                                                 CFA       211
            74  0200400074 +             MRB      ROUTINE                                                        CFA       212
            75  5110000000 X                      SA1    O.GST                                                   CFA       213
                          5120000007 C            SA2    ILB                                                     CFA       214
            76  43001                             MX0    1                                                       CFA       215
                                                  LX0    1+BI.RBP                                                CFA       216
                     36712                        IX7    X1+X2                                                   CFA       217
                          5130000003 C            SA3    N.BLK                                                   CFA       218
            77  5140000000 X                      SA4    O.BIT                                                   CFA       219
                          63230                   SB2    X3          NB = N.BLK                                  CFA       220
                               63340              SB3    X4                                                      CFA       221
           100  53570                             SA5    X7          IP = O.GST + ILB                            CFA       222
                                                                                                                 CFA       223
                                         MRB1     LX5    -IP.NODEP                                               CFA       224
           101  63450                             SB4    X5          N = NODE[IP]                                CFA       225
                     67224                        SB2    B2-B4       NB = NB - N                                 CFA       226
                          54551                   SA5    A5+B1       IP = IP + 1                                 CFA       227
                                                                                                                 CFA       228
                                         MRB2     LX5    -IM.BNP                                                 CFA       229
           102  73750                             SX7    X5                                                      CFA       230
                     20701                        LX7    1                                                       CFA       231
                          53473                   SA4    B3+X7                                                   CFA       232
                               12604              BX6    X0+X4       RB[BIT(BN[IP])] = 1                         CFA       233
           103  54551                             SA5    A5+B1       IP = IP + 1                                 CFA       234
                     6144777776                   SB4    B4-1        N = N - 1                                   CFA       235
                               54640              SA6    A4                                                      CFA       236
           104  0540000102 +                      NZ     B4,MRB2     IF N " 0                                    CFA       237
                          0315000101 +            NZ     X5,MRB1     IF [IP] " 0                                 CFA       238
                                                                                                                 CFA       239
                                        *         PROGRAM GRAPH CONTAINS UNREACHABLE BLOCKS.                     CFA       240
                                        *         REFORM THE EDGE TABLES AND THE INTERVALS, SINCE THE DEAD CODE  CFA       241
                                        *         MAY CAUSE THE FORMATION OF SOME SUB-MAXIMAL INTERVALS.         CFA       242
                                                                                                                 CFA       243
           105  0420000074 +                      ZR     B2,MRB      IF NB = 0     */ ALL BLOCKS REACHABLE       CFA       244
                          5110000004 C            SA1    LC                                                      CFA       245
           106  43600                             MX6    0                                                       CFA       246
                     5160000000 X                 SA6    L.CFT       L.CFT = 0                                   CFA       247
           107  5160000000 X                      SA6    =XL.LCT#    L.LCT = 0                                   CCG18     181
                          5160000001 C            SA6    LB          LB = 0                                      CFA       248
           110  5160000000 X                      SA6    =XN.FTH#    N.FTH = 0                                   CCGA021    62
                          5100000000 X            ALLOC  CFT,X1      ALLOC( CFT , LC )                           CFA       249
           112  5110000000 X                      SA1    O.BIT                                                   CFA       250
                          63220                   SB2    X2          C0 = O.CFT                                  CFA       251
                               57521              SA5    B2-B1                                                   CFA       252
           113  10755                             BX7    X5                                                      CFA       253
                     54750                        SA7    A5          CI = C0 - 1                                 CFA       254
                          66410                   SB4    B1          BN = 1                                      CFA       255
           114  5140000003 C                      SA4    N.BLK                                                   CFA       256
                          5130000000 X            SA3    O.GST                                                   CFA       257
           115  63540                             SB5    X4                                                      CFA       258
                     6273000003                   SB7    X3+3        EIB = O.GST + 3                             CFA       259
                               43023              MX0    1+ET.SUCCL                                              CFA       260
           116  20022                             LX0    ET.SUCCL                                                CFA       261
                     5221000002                   SA2    X1+2        BI = O.BIT + 2                              CFA       262
                               76110              SX1    B1                                                      CFA       263
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    10
        MRB - MARK REACHABLE BLOCKS                                   MRB                 CODE
  
           117  20136                             LX1    CF.FROMP                                                CFA       264
                     76610                        SX6    B1                                                      CFA       265
                          5160000000 X            SA6    L.GST       L.GST = 1                                   CFA       266
           120  5160000000 X                      SA6    =XHO$DC     HO$DC = 1     */ INDICATE DEAD CODE EXISTS  CCGNC     814
                          0400000122 +            EQ     MRB4                                                    CFA       267
                                                                                                                 CFA       268
                                        *         UNREACHABLE BLOCK, SHOW FLOW TO EXIT NODE ( FOR *FGS* )        CFA       269
                                                                                                                 CFA       270
           121  10711                    MRB3     BX7    X1                                                      CFA       271
                     54771                        SA7    A7+B1       CI = CI + 1;  [CI] = CFTE( BN , 0 )         CFA       272
                          0400000126 +            EQ     MRB6                                                    CFA       273
                                                                                                                 CFA       274
                                         MRB4     LX2    59-BI.RBP                                               CFA       275
           122  0322000121 +                      PL     X2,MRB3     IF ^RB[BI]                                  CFA       276
                          56574                   SA5    B7+B4       EI = EIB + BN                               CFA       277
                               20560              LX5    -EI.SUIP                                                CFA       278
           123  26665                             UX6    B6,X5       NS = NS[EI]                                 CFA       279
                     53457                        SA4    B7+X5       SI = EIB + SUI[EI]                          CFA       280
                                                                                                                 CFA       281
           124  11304                    MRB5     BX3    X0*X4                                                   CFA       282
                     36713                        IX7    X1+X3                                                   CFA       283
                          54771                   SA7    A7+B1       CI = CI + 1;  [CI] = CFTE( BN , SUCC[SI] )  CFA       284
                               67661              SB6    B6-B1       NS = NS - 1                                 CFA       285
           125  54441                             SA4    A4+B1       SI = SI + 1                                 CFA       286
                     0560000124 +                 NZ     B6,MRB5     IF NS " 0                                   CFA       287
                                                                                                                 CFA       288
           126  66441                    MRB6     SB4    B4+B1       BN = BN + 1                                 CFA       289
                     5022000002                   SA2    A2+2        BI = BI + 2                                 CFA       290
                               76140              SX1    B4                                                      CFA       291
           127  20136                             LX1    CF.FROMP                                                CFA       292
                     0654000122 +                 LE     B4,B5,MRB4  IF BN @ N.BLK                               CFA       293
                                                                                                                 CFA       294
                               64671              SB6    A7+B1                                                   CFA       295
           130  77662                             SX6    B6-B2       L.CFT = CI + 1 - C0                         CFA       296
                     5160000000 X                 SA6    L.CFT                                                   CFA       297
                               76751              SX7    B5+B1       CBN = N.BLK + 1                             CFA       298
           131  5170000000 X                      SA7    CC$CBN                                                  CCGNC     815
                          0100000147 +            RJ     FGS         REFORM GRAPH STRUCTURE TABLES               CFA       300
           132  0100000232 +                      RJ     FIS         REFORM INTERVALS                            CFA       301
                                                                                                                 CFA       302
                                        *         SCAN *BIT* AND BUILD A TABLE OF UNREACHABLE BLOCKS IN *RND*    CCG26      51
                                        *         FOR THE HOST TO PRINT OUT.                                     CCG26      52
                                                                                                                 CCG26      53
           133  5110000000 X                      SA1    =XHO$IE                                                 CCG26      54
                          0301000074 +            ZR     X1,MRB      IF HO$IE = 0  */ NO INFORMATIVE ERRORS      CCG26      55
                                                                                                                 CCG26      56
           134  5150000000 X                      SA5    L.BIT                                                   CCG26      57
                          23115                   AX1    B1,X5                                                   CCG26      58
           135  5100000000 X                      ALLOC  RND,X1      ALLOC( RND , L.BIT/2 )                      CCG26      59
           136  5140000000 X                      SA4    O.BIT                                                   CCG26      60
                          66300                   SB3    B0          I = 0                                       CCG26      61
           137  6140000004                        SB4    4           J = 4                                       CCG26      62
                          63550                   SB5    X5                                                      CCG26      63
                                                                                                                 CCG26      64
           140  53344                    MRB8     SA3    X4+B4                                                   CCG26      65
                                                  LX3    59-BI.RBP                                               CCG26      66
                     0333000142 +                 MI     X3,MRB9     IF RB[BIT(J)]   */ BLOCK IS REACHABLE       CCG26      67
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    11
        MRB - MARK REACHABLE BLOCKS                                   MRB                 CODE
  
                               20352              LX3    1+BI.RBP-BI.FLNP                                        CCG27     104
           141  73630                             SX6    X3                                                      CCG27     105
                     53623                        SA6    X2+B3       RND(I) = FLN[BIT(J)]  */ SAVE LINE NUMBER   CCG26      69
                          66331                   SB3    B3+B1       I = I + 1                                   CCG26      70
           142  6144000002               MRB9     SB4    B4+2        J = J + 2                                   CCG26      71
                          0745000140 +            LT     B4,B5,MRB8  IF J < L.BIT                                CCG26      72
                                                                                                                 CCG26      73
           143  76630                             SX6    B3                                                      CCG26      74
                     5160000000 X                 SA6    L.RND       L.RND = I                                   CCG26      75
           144  0100000000 X                      RJ     =YHR$LDC    CALL HOST ROUTINE                           CCG26      76
           145  7160000000                        SX6    0                                                       CCG26      77
                          5160000000 X            SA6    L.RND       L.RND = 0                                   CCG26      78
           146  0400000074 +                      EQ     MRB                                                     CCG26      79
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    12
        FGS - FORM GRAPH STRUCTURE TABLES                             FGS                 CODE
  
                                        **        FGS - FORM GRAPH STRUCTURE TABLES                              CFA       365
                                        *         FORM EDGE INDEX AND COMPRESS EDGE TABLES FROM *CFT* .          CFA       366
                                                                                                                 CFA       367
           147  0200400147 +             FGS      ROUTINE                                                        CFA       368
           150  76110                             SX1    B1                                                      CFA       369
                     20136                        LX1    CF.FROMP                                                CFA       370
                          5100000000 X            ADDWRD CFT,X1      FLOW( 1 , 0 ) */ DUMMY EXIT EDGE            CFA       371
           152  76100                             ADDWRD CFT,B0      ADDWRD( CFT , 0 )                           CFA       372
           154  7213777776                        SX1    X3-1                                                    CFA       373
                          63720                   SB7    X2                                                      CFA       374
                               43001              MX0    60-CF.JPP                                               CFA       375
           155  10633                             BX6    X3                                                      CFA       376
                     66600                        SB6    B0                                                      CFA       377
                          14000                   BX0    -X0                                                     CFA       378
                               43500              MX5    0                                                       CFA       379
           156  5160000004 C                      SA6    LC          LC = L.CFT    */ SAVE IN CASE GRAPH REDONE  CFA       380
                          0100000000 X            CALL   SST#        SORT( CFT , [FROM,TO] )                     CCGNC     828
                                                  TRACE  FGS,CFT                                                 CFA       382
                                                                                                                 CFA       383
                                        *         ALLOCATE SPACE FOR EDGE INDEX AND EDGE TABLES                  CFA       384
                                                                                                                 CFA       385
           157  5150000003 C                      SA5    N.BLK                                                   CFA       386
                          5130000000 X            SA3    L.CFT                                                   CFA       387
           160  36653                             IX6    X5+X3                                                   CFA       388
                     7216000003                   SX1    X6+3                                                    CFA       389
           161  5100000000 X                      ALLOC  GST,X1      ALLOC( GST , 3+N.BLK+L.CFT )                CFA       390
           162  6156000002                        SB5    B6+2                                                    CFA       391
                          73625                   SX6    B5+X2       EIB = O.GST + OLD(L.GST) + 2                CFA       392
                               76760              SX7    B6                                                      CFA       393
           163  5170000002 C                      SA7    LB+1        LB(2) = OLD(L.GST)  */ BASE OF THIS GRAPH   CFA       394
                          5160000005 C            SA6    EIB                                                     CFA       395
           164  73451                             SX4    X5+B1                                                   CFA       396
                     36764                        IX7    X6+X4       ETB = EIB + 1 + N.BLK                       CFA       397
                          54761                   SA7    A6+B1                                                   CFA       398
                                                                                                                 CFA       399
                                        *         SCAN *CFT* AND SET SUCCESSOR INDEX INFO IN *GST*               CFA       400
                                        *         NOTE THAT EVERY BLOCK, EXCEPT THE EXIT BLOCK HAS A SUCCESSOR,  CFA       401
                                        *         EXCEPT LOOPS THAT HAVE NO EXITS.                               CFA       402
                                                                                                                 CFA       403
           165  5110000000 X                      SA1    O.CFT                                                   CFA       404
                          63260                   SB2    X6          E0 = EIB                                    CFA       405
                               63470              SB4    X7          EF = ETB                                    CFA       406
           166  63710                             SB7    X1          CF = [O.CFT]                                CFA       407
                     7160002000                   SX6    2000B                                                   CFA       408
                               53510              SA5    X1          CI = [O.CFT]                                CFA       409
                                                  LX6    EI.NSP                                                  CFA       410
           167  43423                             MX4    1+CF.TOL                                                CFA       411
                     20422                        LX4    CF.TOL                                                  CFA       412
                          43152                   MX1    -CF.FROML                                               CFA       413
                               67341              SB3    B4-B1                                                   CFA       414
                                                                                                                 CFA       415
           170  56630                    FGS0     SA6    B3          FOR I = ETB-1 TO EIB;  NS[I] = 0            CFA       416
                     67331                        SB3    B3-B1                                                   CFA       417
                          0632000170 +            GE     B3,B2,FGS0                                              CFA       418
           171  11745                             BX7    X4*X5                                                   CFA       419
                     20136                        LX1    CF.FROMP                                                CFA       420
                          43001                   MX0    -CF.JPP                                                 CFA       421
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    13
        FGS - FORM GRAPH STRUCTURE TABLES                             FGS                 CODE
  
                               56740              SA7    B4          ET = ETB;  [ET] = JPTO[CI]                  CFA       422
           172  7120002000                        SX2    2000B                                                   CFA       423
                          20236                   LX2    EI.NPP                                                  CFA       424
                                                                                                                 CFA       425
           173  10355                    FGS1     BX3    X5          CL = [CI]                                   CFA       426
                     54551                        SA5    A5+B1       CI = CI + 1                                 CFA       427
                          13735                   BX7    X3-X5                                                   CFA       428
                               15670              BX6    -X0*X7                                                  CFA       429
           174  0316000176 +                      NZ     X6,FGS1A    IF FROMTO[CI] " FROMTO[CL]                  FCC0448   189
                                                                                                                 FCC0448   190
                          54370                   SA3    A7                                                      FCC0448   191
                               11605              BX6    X0*X5                                                   FCC0448   192
           175  12763                             BX7    X6+X3       [ET] = [ET] ! JP[CI]  */ OR *JP* BIT        FCC0448   193
                     54770                        SA7    A7                                                      FCC0448   194
                          0400000173 +            EQ     FGS1                                                    FCC0448   195
                                                                                                                 FCC0448   196
           176  11745                    FGS1A    BX7    X4*X5                                                   FCC0448   197
                     54771                        SA7    A7+B1       ET = ET + 1;  [ET] = JPTO[CI]               CFA       433
                          15661                   BX6    -X1*X6                                                  CFA       434
           177  0306000173 +                      ZR     X6,FGS1     IF FROM[CI] = FROM[CL]                      CFA       435
                                                                                                                 CFA       436
                          65374                   SB3    A7-B4       NS = ET - EF                                CFA       437
                               77642              SX6    B4-B2       SUI = EF - E0                               CFA       438
           200  27736                             PX7    B3,X6                                                   CFA       439
                     20336                        LX3    -CF.FROMP   J = FROM[CL]                                CFA       440
                          64470                   SB4    A7          EF = ET                                     CFA       441
                               20714              LX7    EI.SUIP                                                 CFA       442
           201  12627                             BX6    X2+X7                                                   CFA       443
                     53632                        SA6    B2+X3       (NS,SUI)[EI+J] = (NS,SUI)                   CFA       444
                          0315000173 +            NZ     X5,FGS1     IF [CI] " 0                                 CFA       445
                                                                                                                 CFA       446
                                        *         SET INTERVAL LIST POINTERS IN GRAPH HEADER WORD                CFA       447
                                                                                                                 CFA       448
           202  5140000000 X                      SA4    O.GST                                                   CFA       449
                          5130000003 C            SA3    N.BLK                                                   CFA       450
           203  6254777776                        SB5    X4-1                                                    CFA       451
                          20322                   LX3    GB.NBP      NB[GB] = N.BLK                              CFA       452
                               75675              SX6    A7-B5                                                   CFA       453
           204  5160000000 X                      SA6    L.GST       L.GST = ET + 1 - O.GST                      CFA       454
                          5160000007 C            SA6    ILB         ILB = L.GST   */ INTERVAL LIST BASE         CFA       455
           205  75672                             SX6    A7-B2                                                   CFA       456
                     73661                        SX6    X6+B1       ILI[GB] = ET+1 - EIB  */ INTERVAL LIST INDE CFA       457
                                                  LX6    GB.ILIP                                                 CFA       458
                          36736                   IX7    X3+X6                                                   CFA       459
                               57721              SA7    B2-B1       GB= EIB - 1                                 CFA       460
                                                                                                                 CFA       461
                                        *         SWAP FROM, TO FIELDS IN *CFT* AND SORT TABLE                   CFA       462
                                                                                                                 CFA       463
           206  43001                             MX0    60-CF.JPP                                               CFA       464
                     56570                        SA5    B7          CI = CF                                     CFA       465
                          6150000036              SB5    CF.FROMP                                                CFA       466
           207  15650                    FGS2     BX6    -X0*X5      SWAP( FROM[CI] , TO[CI] )                   CFA       467
                     54551                        SA5    A5+B1       CI = CI + 1                                 CFA       468
                          22756                   LX7    B5,X6                                                   CFA       469
                               55751              SA7    A5-B1                                                   CFA       470
           210  0315000207 +                      NZ     X5,FGS2     IF [CI] " 0                                 CFA       471
                                                                                                                 CFA       472
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    14
        FGS - FORM GRAPH STRUCTURE TABLES                             FGS                 CODE
  
                          75157                   SX1    A5-B7       L.CFT = CI - CF  */ FOR SORT                CFA       473
           211  0100000000 X                      CALL   SHL#        SORT( CFT , [FROM,TO] )                     CCGNC     829
                                                                                                                 CFA       475
                                        *         ADD THE PREDECESSOR INFORMATION TO THE EDGE TABLES             CFA       476
                                                                                                                 CFA       477
           212  5110000000 X                      SA1    O.CFT                                                   CFA       478
                          5130000005 C            SA3    EIB                                                     CFA       479
           213  54231                             SA2    A3+B1                                                   CFA       480
                     43052                        MX0    -CF.TOL                                                 CFA       481
                          53510                   SA5    X1          CI = [O.CFT]                                CFA       482
                               53420              SA4    X2          ET = [ETB]                                  CFA       483
           214  63230                             SB2    X3          E0 = EIB                                    CFA       484
                     64440                        SB4    A4          EF = ET                                     CFA       485
                          15250                   BX2    -X0*X5                                                  CFA       486
                               20236              LX2    ET.PREDP                                                CFA       487
           215  43152                             MX1    -CF.FROML                                               CFA       488
                     12624                        BX6    X2+X4       PRED[ET] = TO[CI]                           CFA       489
                          20136                   LX1    CF.FROMP                                                CFA       490
                               54640              SA6    A4                                                      CFA       491
                                                                                                                 CFA       492
           216  10355                    FGS3     BX3    X5          CL = [CI]                                   CFA       493
                     54551                        SA5    A5+B1       CI = CI + 1                                 CFA       494
                          13735                   BX7    X3-X5                                                   CFA       495
           217  0307000216 +                      ZR     X7,FGS3     IF [CI] = CL                                CFA       496
                          54441                   SA4    A4+B1       ET = ET + 1                                 CFA       497
                               15250              BX2    -X0*X5                                                  CFA       498
           220  20236                             LX2    ET.PREDP                                                CFA       499
                     36624                        IX6    X2+X4                                                   CFA       500
                          54640                   SA6    A4          PRED[ET] = TO[CI]                           CFA       501
                               15271              BX2    -X1*X7                                                  CFA       502
           221  0302000216 +                      ZR     X2,FGS3     IF FROM[CI] = FROM[CL]                      CFA       503
                                                                                                                 CFA       504
                          20336                   LX3    -CF.FROMP                                               CFA       505
                               65544              SB5    A4-B4       NP = ET - EF                                CFA       506
           222  77642                             SX6    B4-B2       PRI = EF - E0                               CFA       507
                     53232                        SA2    B2+X3       EI = EIB + FROM[CL]                         CFA       508
                          27656                   PX6    B5,X6                                                   CFA       509
                               20652              LX6    EI.PRIP                                                 CFA       510
           223  64440                             SB4    A4          EF = ET                                     CFA       511
                     12726                        BX7    X2+X6                                                   CFA       512
                          54720                   SA7    A2          NP[EI] = NP;  PRI[EI] = PRI                 CFA       513
           224  0315000216 +                      NZ     X5,FGS3     IF [CI] " 0                                 CFA       514
                                                                                                                 CFA       515
                                        *         ADJUST GRAPH TABLES TO REMOVE DUMMY EXIT EDGE INFO             CFA       516
                                                                                                                 CFA       517
                          56221                   SA2    B2+B1       EI1 = EIT(1)                                CFA       518
                               56120              SA1    B2          EI0 = EIT(0)                                CFA       519
           225  76710                             SX7    B1                                                      CFA       520
                                                  LX7    EI.NSP                                                  CFA       521
                     37227                        IX2    X2-X7       NS[EI1] = NS[EI1] - 1                       CFA       522
                          20714                   LX7    EI.SUIP-EI.NSP                                          CFA       523
                               36627              IX6    X2+X7       SUI[EI1] = SUI[EI1] + 1                     CFA       524
           226  20722                             LX7    EI.NPP-EI.SUIP                                          CFA       525
                     54620                        SA6    A2                                                      CFA       526
                          37117                   IX1    X1-X7       NP[EI0] = NP[EI0] - 1                       CFA       527
                               20714              LX7    EI.PRIP-EI.NPP                                          CFA       528
           227  36617                             IX6    X1+X7       PRI[EI0] = PRI[EI0] + 1                     CFA       529
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    15
        FGS - FORM GRAPH STRUCTURE TABLES                             FGS                 CODE
  
                     54610                        SA6    A1                                                      CFA       530
                                                                                                                 CFA       531
                          5110000000 X            SA1    O.GST                                                   CFA       532
           230  76220                             SX2    B2                                                      CFA       533
                     37621                        IX6    X2-X1       EII = EIB - O.GST  */ MAKE RELATIVE         CFA       534
                          5160000005 C            SA6    EII                                                     CFA       535
                                                                                                                 CFA       536
                                                  TRACE  FGS.X,GST                                               CFA       537
           231  0400000147 +                      EQ     FGS                                                     CFA       538
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    16
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                                        **        FIS - FORM INTERVAL STRUCTURE OF A PROGRAM FLOW GRAPH          CFA       540
                                        *                                                                        CFA       541
                                        *         THE ALGORITHM FOR INTERVAL FORMATION USED HERE IS A VARIANT OF CFA       542
                                        *         THE ONE DESCRIBED IN AHO-ULLMAN, VOLUME II, PAGES 937 - 941 .  CFA       543
                                        *         THE BACK DOMINATOR CALCULATION IS DERIVED IN THE               CFA       544
                                        *         ARTICLE BY FRAN ALLEN IN THE JULY 1970 SIGPLAN.                CFA       545
                                                                                                                 CFA       546
                                        *         B-REGISTER ASSIGNMENT FOR INTERVAL FORMATION/ BACK DOMINATOR   CFA       547
                                        *         CALCULATION LOOPS                                              CFA       548
                                                                                                                 CFA       549
                                        *         B2, B3 - SCRATCH, LOOP COUNTS                                  CFA       550
                                         IB       MICRO  1,,/B4/     IBA - INTERVAL BASE ADDRESS                 CFA       551
                                         GS       MICRO  1,,/B5/     O.GST                                       CFA       552
                                         PC       MICRO  1,,/B6/     PC - TEMP SCRATCH TABLE                     CFA       553
                                         EI       MICRO  1,,/B7/     EIB - FWA OF EDGE INDEX TABLE               CFA       554
                                                                                                                 CFA       555
                                        *         FOR BACK DOMINATOR CALC B4, B7 AS ABOVE AND B5, B6  ARE BV , T CFA       556
                                         BV       MICRO  1,,/B5/     BV - O.RND , BIT VECTOR TABLE               CFA       557
                                         T        MICRO  1,,/B6/     T - TEMP SCRATCH TABLE                      CFA       558
                                                                                                                 CFA       559
           232  0200400232 +             FIS      ROUTINE                                                        CFA       560
           233  5150000003 C                      SA5    N.BLK                                                   CFA       561
                          7205000002              SX0    X5+2                                                    CFA       562
           234  10100                             BX1    X0                                                      CFA       563
                     20102                        LX1    2                                                       CFA       564
                          5100000000 X            ALLOC  GST,X1      ALLOC( GST , 4*(N.BLK+2) )                  CFA       565
           236  5140000005 C                      SA4    EII                                                     CFA       566
                          63250                   SB2    X5          N = N.BLK                                   CFA       567
                               63520              S"GS"  X2                                                      CFA       568
           237  63745                             S"EI"  "GS"+X4     EIB = O.GST + EII                           CFA       569
                     36323                        IX3    X2+X3                                                   CFA       570
                          37630                   IX6    X3-X0       HTL = O.GST + L.GST - ( N.BLK + 2 )         CFA       571
                               63661              S"PC"  X6+B1       O.PCT = HTL + 1                             CFA       572
           240  5160000010 C                      SA6    HTL                                                     CFA       573
                                                                                                                 CFA       574
                                        *         SETUP HEADER NODE LIST AND PRED COUNT TABLE                    CFA       575
                                                                                                                 CFA       576
                          76710                   SX7    B1                                                      CFA       577
                               53760              SA7    X6          HI = HTL;  [HI] = 1                         CFA       578
           241  55071                             SA0    A7-B1       HI = HI - 1                                 CFA       579
                                                                                                                 CFA       582
                     56571                        SA5    "EI"+B1     EI = EIB + 1                                CFA       583
                          5140000557 +            SA4    FISB                                                    CFA       584
           242  10644                             BX6    X4                                                      CFA       585
                     56660                        SA6    "PC"        PI = O.PCT;  INI[PI] = 1 */ EXIT NODE *INI* CFA       586
                          76010                   SX0    B1                                                      FCC1191     8
                               20071              LX0    I.1PP                                                   FCC1191     9
                                                                                                                 CFA       587
           243  20522                    FIS1     LX5    -EI.PRIP                                                CFA       588
                     26435                        UX4    B3,X5                                                   CFA       589
                          76630                   SX6    B3                                                      CFA       590
                                                  LX6    I.PCP                                                   CFA       591
           244  0531000245 +                      NE     B3,B1,FIS1A IF NP[EI] " 1                               FCC1191    10
                          12606                   BX6    X0+X6       1P[P2+1] = 1                                FCC1191    11
           245  54661                    FIS1A    SA6    A6+B1       PI = PI + 1]  PC[PI] = NP[EI]               FCC1191    12
                     67221                        SB2    B2-B1       N = N - 1                                   CFA       593
                          54551                   SA5    A5+B1       EI = EI + 1                                 CFA       594
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    17
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
           246  0520000243 +                      NZ     B2,FIS1     IF N " 0                                    CFA       595
  
  
                                        *         INTERVAL FORMATION LOOP                                        CFA       597
                                        *         SELECT NEXT HEADER NODE AS MIN OF NODES IN HEADER LIST NOT IN  CFA       598
                                        *         AN INTERVAL, TO AVOID BLOCK NUMBER REVERSALS AND EXCESSIVE     CFA       599
                                        *         RANDOM READS LATER ON IN *GPO*.                                CFA       600
                                                                                                                 CFA       601
                          5110000007 C            SA1    ILB                                                     CFA       602
           247  63415                             S"IB"  "GS"+X1     IBA = O.GST + ILB  */ INTERVAL BASE ADDRESS CFA       603
                                                  TRACE  FIS1,GST                                                CFA       604
                                                                                                                 CFA       605
           250  5130000010 C             FIS2     SA3    HTL                                                     CFA       606
                          43700                   MX7    0                                                       CFA       607
                               54700              SA7    A0          [HI] = 0      */ SEARCH TERMINATOR          CFA       608
           251  6130377777                        SB3    377777B     MHN = *INFINITY*  */ MIN *HN*               CFA       609
                          43000                   MX0    0           HNA = 0       */ HEADER NODE ADDRESS        CFA       610
                               53531              SA5    X3+B1       J = HTL + 1                                 CFA       611
                                                                                                                 CFA       612
           252  55551                    FIS3     SA5    A5-B1       J = J - 1;  HN = [J]                        CFA       613
                     63250                        SB2    X5                                                      CFA       614
                          0305000256 +            ZR     X5,FIS4     IF HN = 0                                   CFA       615
           253  0623000252 +                      GE     B2,B3,FIS3  IF HN > MHN                                 CFA       616
                          53456                   SA4    "PC"+X5                                                 CFA       617
                                                  LX4    59-I.INIP                                               CFA       618
           254  0334000252 +                      MI     X4,FIS3     IF INI[PCT(HN)]                             CFA       619
                          74050                   SX0    A5          HNA = J                                     CFA       620
                               66320              SB3    B2          MHN = HN                                    CFA       621
           255  0400000252 +                      EQ     FIS3                                                    CFA       622
                                                                                                                 CFA       623
           256  0300000345 +             FIS4     ZR     X0,FIS15    IF HNA = 0    */ NOTHING FOUND              CFA       624
                          53500                   SA5    X0          HN = [HLA]                                  CFA       625
                               54101              SA1    A0+B1                                                   CFA       626
           257  10611                             BX6    X1                                                      CFA       627
                     54650                        SA6    A5          SWAP( [HI+1] , [HLA] )                      CFA       628
                          10755                   BX7    X5                                                      CFA       629
                               54710              SA7    A1                                                      CFA       630
           260  54001                             SA0    A0+B1       HI = HI + 1                                 CFA       631
                     53456                        SA4    "PC"+X5     PCW = PCT(HN)                               CFA       632
                                                                                                                 CFA       633
                                        *         NOW REMOVE ANY ENTRIES THAT ARE *INI*                          CFA       634
                                                                                                                 CFA       635
           261  53230                    FIS4A    SA2    X3          J = [HTL]                                   CFA       636
                     53126                        SA1    "PC"+X2                                                 CFA       637
                          7233777776              SX3    X3-1        HTL = HTL - 1                               CFA       638
                                                  LX1    59-I.INIP                                               CFA       639
           262  0331000261 +                      MI     X1,FIS4A    IF INI[PCT(J)]                              CFA       640
                          73731                   SX7    X3+B1                                                   CFA       641
                               54730              SA7    A3          HTL = HTL + 1                               CFA       642
                                                                                                                 FCC0408    93
           263  43600                             MX6    0                                                       FCC0408    94
                     5160000012 C                 SA6    FTH         FTH = 0                                     FCC0408    95
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    18
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                                        *         PLACE HEADER NODE IN INTERVAL                                  CFA       644
                                                                                                                 CFA       645
                               43101              MX1    -ET.JPP                                                 CFA       646
           264  11615                             BX6    X1*X5                                                   CFA       647
                     56640                        SA6    "IB"        [IBA] = JP[HN]  */ SAVE *JP* INDICATOR      CFA       648
                          73550                   SX5    X5                                                      CFA       649
                                                  LX4    -I.PCP                                                  CFA       650
                               73640              SX6    X4                                                      CFA       651
           265  5120000556 +                      SA2    FISA                                                    CFA       652
                          12725                   BX7    X2+X5                                                   CFA       653
                               56741              SA7    "IB"+B1     II = IBA + 1;  [II] = INTM(AP,HN,0,0,HN)    CFA       654
           266  5160000011 C                      SA6    NPH         NPH = PC[PCW] */ N.PRED TO HN ON ENTRY      CFA       655
                                                                                                                 CFA       656
                                                  LX4    I.PCP                                                   CFA       657
                          76010                   SX0    B1                                                      CFA       658
                                                  LX0    I.PCP                                                   CFA       659
                               20544              LX5    I.HNP                                                   CFA       660
           267  43301                             MX3    1                                                       CFA       661
                                                  LX3    1+I.INIP                                                CFA       662
                     12135                        BX1    X3+X5                                                   CFA       663
                          20373                   LX3    I.INHP-I.INIP                                           CFA       664
                               12235              BX2    X3+X5                                                   CFA       665
           270  74770                             SX7    A7                                                      CFA       666
                     20722                        LX7    I.IAP                                                   CFA       667
                                                  LX6    I.PCP                                                   CFA       668
                          36367                   IX3    X6+X7                                                   CFA       669
                               12631              BX6    X3+X1       PCT(HN) = ITW(INI,0,HN,II,NPH)              CFA       670
           271  54640                             SA6    A4                                                      CFA       671
                                                                                                                 CFA       672
                                        *         SCAN THE ELEMENTS IN THE INTERVAL AND DECREMENT THE PRED COUNT CFA       673
                                        *         OF THEIR SUCCESSORS, AND ADD NODES TO INTERVAL IF ALL PRED     CFA       674
                                        *         ARE IN IT, AND NODE WAS FIRST REACHED IN THIS INTERVAL.        CFA       675
                                        *         (A5) = ICN, FETCH ADDR  , (A7) = II, STORE ADDR                CFA       676
                                        *         (X0) = 1, (X1) = *INI*+BN[HN], (X2) = *INH*+BN[HN]             CFA       677
                                                                                                                 CFA       678
                     54570                        SA5    A7          ICN = II      */ INDEX TO CURRENT NODE      CFA       679
                          14755                   BX7    -X5                                                     CFA       680
                               63270              SB2    X7          HN = BN[II]                                 CFA       681
                                                                                                                 CFA       682
                                         FIS5     LX5    -IM.BNP                                                 CFA       683
           272  53457                             SA4    "EI"+X5     EI = EIB + BN[ICN]                          CFA       684
                     20460                        LX4    -EI.SUIP                                                CFA       685
                          26734                   UX7    B3,X4       N = NS[EI]                                  CFA       686
                               53447              SA4    "EI"+X4     SI = EIB + SUI[EI]                          CFA       687
           273  0603000317 +                      LE     B3,FIS10A   IF N @ 0                                    CFA       688
                                                                                                                 CFA       689
                                         FIS6     LX4    -ET.SUCCP   I = SUCC[SI]                                CFA       690
           274  53346                             SA3    "PC"+X4     PW = PCT(I)                                 CFA       691
                     37630                        IX6    X3-X0       PC[PW] = PC[PW] - 1                         CFA       692
                                                  LX3    59-I.INIP                                               CFA       693
                          22713                   LX7    B1,X3                                                   CFA       694
                               54630              SA6    A3                                                      CFA       695
           275  0333000313 +                      MI     X3,FIS9     IF INI[PW]                                  CFA       696
                          0337000302 +            MI     X7,FIS7     IF INH[PW]                                  CFA       697
                                                                                                                 CFA       698
                                        *         CHECK ADD TO HEADER LIST                                       CFA       699
                                                                                                                 CFA       700
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    19
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
           276  73760                             SX7    X6                                                      CFA       701
                     0307000304 +                 ZR     X7,FIS8     IF PC[PW] = 0                               CFA       702
                               12626              BX6    X2+X6       INH[PW] = 1;  HN[PW] = HN                   CFA       703
           277  54660                             SA6    A6                                                      CFA       704
                     73640                        SX6    X4                                                      CFA       705
                                                  LX4    ET.SUCCP+59-ET.JPP                                      CFA       706
                          43701                   MX7    1                                                       CFA       707
                               11474              BX4    X7*X4                                                   CFA       708
           300  12646                             BX6    X4+X6       [HI] = JP[SI] ! I                           CFA       709
                     54600                        SA6    A0                                                      CFA       710
                          55001                   SA0    A0-B1       HI = HI - 1                                 CFA       711
           301  0400000316 +                      EQ     FIS10                                                   CFA       712
                                                                                                                 CFA       713
                                        *         IN HEADER LIST, CHECK ADD TO INTERVAL                          CFA       714
                                                                                                                 CFA       715
           302  73760                    FIS7     SX7    X6                                                      CFA       716
                     13362                        BX3    X6-X2                                                   CFA       717
                          0317000316 +            NZ     X7,FIS10    IF PC[PW] " 0                               CFA       718
           303  20330                             LX3    -I.HNP                                                  CFA       719
                     73730                        SX7    X3                                                      CFA       720
                          0317000316 +            NZ     X7,FIS10    IF HN[PW] " HN */ FIRST REACHED BY ANOTHER  CFA       721
                                                                                                                 CFA       722
                                        *         ADD NODE TO THIS INTERVAL                                      CFA       723
                                                                                                                 CFA       724
           304  73740                    FIS8     SX7    X4                                                      CFA       725
                     54771                        SA7    A7+B1       II = II + 1;  [II] = I                      CFA       726
                          74370                   SX3    A7                                                      CFA       727
                               20322              LX3    I.IAP                                                   CFA       728
           305  73760                             SX7    X6                        */ PRESERVE PRED COUNT        FCC1191    13
                     12337                        BX3    X3+X7                                                   FCC1191    14
                          12631                   BX6    X3+X1       INI[PW] = 1;  IA[PW] = II                   CFA       729
                               54630              SA6    A3                                                      FCC1191    15
                                                                                                                 FCC1191    16
                                        *         CHECK IMMEDIATE SUCC AND ADD IT TO THE INTERVAL IF IT          FCC1191    17
                                        *         IS THE ONLY EDGE BETWEEN THE ADDED NODE AND THE SUCCESSOR.     FCC1191    18
                                                                                                                 FCC1191    19
           306  53347                             SA3    "EI"+X4     EI = EIB + I                                FCC1191    20
                     20360                        LX3    -EI.SUIP                                                FCC1191    21
                          26713                   UX7    B1,X3                                                   FCC1191    22
           307  7161777776                        SX6    B1-1                                                    FCC1191    23
                          6110000001              SB1    1                                                       FCC1191    24
           310  0316000316 +                      NZ     X6,FIS10    IF NS[EI] > 1                               FCC1191    25
                          53337                   SA3    "EI"+X3     SIS = EIB + SUI[EI]                         FCC1191    26
                                                  LX3    -ET.SUCCP                                               FCC1191    27
                               73430              SX4    X3          I = SUCC[SIS]                               FCC1191    28
           311  53346                             SA3    "PC"+X4     PW = PCT(I)                                 FCC1191    29
                     20302                        LX3    59-I.1PP                                                FCC1191    30
                          76610                   SX6    B1          PC[PW] = 1                                  FCC1191    31
           312  0333000304 +                      MI     X3,FIS8     IF 1P[PW]     */ ONLY 1 PRED                FCC1191    32
                          0400000316 +            EQ     FIS10                                                   CFA       731
                                                                                                                 CFA       732
           313  73342                    FIS9     SX3    B2+X4                                                   CFA       733
                     0313000316 +                 NZ     X3,FIS10    IF SUCC[SI] " HN                            CFA       734
                                                                                                                 CFA       735
                               20071              LX0    IM.LNP                                                  CFA       736
           314  12605                             BX6    X0+X5       LN[ICN] = 1   */ INDICATE A LATCHING NODE   CFA       737
                     54650                        SA6    A5                                                      FCC0408    96
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    20
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                          76010                   SX0    B1                                                      FCC0408    97
                               76610              SX6    B1                                                      FCC0408    98
                                                  LX4    59-ET.JPP+ET.SUCCP                                      FCC0408    99
           315  0334000316 +                      MI     X4,FIS10    IF JP[SI]     */ REACHED BY A JUMP          FCC0408   100
                                                                                                                 FCC0408   101
                          5160000012 C            SA6    FTH         FTH = 1       */ INDICATE FALL THROUGH TO H FCC0408   102
                                                                                                                 CFA       740
           316  67331                    FIS10    SB3    B3-B1       N = N - 1                                   CFA       741
                     54441                        SA4    A4+B1       SI = SI + 1                                 CFA       742
                          0703000274 +            GT     B3,FIS6     IF N > 0                                    CFA       743
                                                                                                                 CFA       744
                                        *         CONTINUE THIS INTERVAL IF ELEMENTS WERE ADDED                  CFA       745
                                                                                                                 CFA       746
           317  64350                    FIS10A   SB3    A5                                                      CFA       747
                     75673                        SX6    A7-B3                                                   CFA       748
                          0306000321 +            ZR     X6,FIS11    IF II = ICN   */ END OF INTERVAL            CFA       749
                                                                                                                 CFA       750
           320  54551                             SA5    A5+B1       ICN = ICN + 1                               CFA       751
                     0400000272 +                 EQ     FIS5                                                    CFA       752
  
  
                                        *         TERMINATE THIS INTERVAL, SETUP HEADER WORD                     CFA       754
                                                                                                                 CFA       755
           321  56141                    FIS11    SA1    "IB"+B1     IHA = IBA + 1                               FCC0392   144
                     5120000011 C                 SA2    NPH                                                     CFA       766
                                                  LX1    -IM.BNP     HN = BN[IHA]  */ HEADER NODE                CFA       767
                               53316              SA3    "PC"+X1                                                 CFA       768
                                                  LX3    -I.PCP                                                  CFA       769
           322  73530                             SX5    X3                                                      CFA       770
                     37025                        IX0    X2-X5       N.LN = NPH - PC[ PCT(HN) ]                  CFA       771
                          53417                   SA4    "EI"+X1     EI = EIB + HN                               CFA       772
                                                  LX1    IM.BNP                                                  CFA       773
                               20422              LX4    -EI.PRIP                                                CFA       774
           323  56240                             SA2    "IB"        IB0 = IBA;  GLN = [IBA] */ GL NEEDED FLAG   CFA       775
                     26434                        UX4    B3,X4                                                   CFA       776
                          76530                   SX5    B3                                                      CFA       777
                               37350              IX3    X5-X0       N.XP = NP[EI] - N.LN                        CFA       778
           324  63230                             SB2    X3                                                      CFA       779
                     75754                        SX7    A5-"IB"     NODE[IBA] = ICN - IBA */ N.NODES IN INTERVA FCC0392   145
                          73671                   SX6    X7+B1                                                   FCC0392   146
                                                  LX7    IP.NODEP                                                FCC0392   147
                               63464              S"IB"  "IB"+X6     IBA = IBA + NODE[IBA] + 1  */ ADVANCE *IBA* CFA       780
           325  0421000326 +                      EQ     B2,B1,FIS11A      IF N.XP = 1                           CFA       781
                          43201                   MX2    1           GLN = 1                                     CFA       782
                                         FIS11A   LX2    1+IP.GLP                                                CFA       783
           326  12727                             BX7    X2+X7       GL[IB0] = GLN                               CFA       784
                     20044                        LX0    IP.NIPP                                                 FCC0392   148
                          12707                   BX7    X0+X7       NIP[IB0] = N.LN  */ N.INTERNAL PRED         FCC0392   149
                               54720              SA7    A2                                                      CFA       785
           327  0300000250 +                      ZR     X0,FIS2     IF N.LN = 0   */ NO LATCHING NODES          CFA       786
                                                                                                                 FCC0408   103
                          5130000000 X            SA3    L.LCT#                                                  CCG18     182
           330  20201                             LX2    -IP.GLP                                                 FCC1319   138
                     36623                        IX6    X2+X3       L.LCT = L.LCT + GLN                         FCC1319   139
                          54630                   SA6    A3                                                      FCC1319   140
           331  5130000012 C                      SA3    FTH                                                     FCC0408   104
                          5120000000 X            SA2    =XN.FTH#                                                CCGA021    63
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    21
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
           332  36623                             IX6    X2+X3       N.FTH = N.FTH + FTH                         CCGA021    64
                     54620                        SA6    A2                                                      CCGA021    65
                          20372                   LX3    IP.FTP                                                  FCC0408   105
                               12737              BX7    X3+X7       FT[IB0] = FTH                               FCC0408   106
           333  5120000000 X                      SA2    CC$CBN      PB[IB0] = CBN */ SET PROLOGUE BLOCK NUMBER  CCGNC     830
                          73621                   SX6    X2+B1       CBN = CBN + 1                               CFA       788
                               20222              LX2    IP.PBP                                                  CFA       789
           334  54620                             SA6    A2                                                      CFA       790
                     12727                        BX7    X2+X7                                                   CFA       791
                          54770                   SA7    A7                                                      CFA       792
                                                                                                                 CFA       793
                                        *         MARK NODES THAT ARE IN *SCR* OF INTERVAL                       CFA       794
                                        *         BY MARKING ALL PRED OF THE LN AS *SCR*                         CFA       795
                                                                                                                 CFA       796
                               54551              SA5    A5+B1       II = ICN + 1                                CFA       797
           335  43001                             MX0    1                                                       CFA       798
                                                  LX0    1+IM.SCRP                                               CFA       799
                     6120000002                   SB2    59-IM.LNP                                               CFA       800
                                                                                                                 CFA       801
           336  55551                    FIS12    SA5    A5-B1       II = II - 1                                 CFA       802
                     22625                        LX6    B2,X5                                                   CFA       803
                                                  LX5    59-IM.SCRP                                              CFA       804
                          12365                   BX3    X6+X5                                                   CFA       805
           337  0323000336 +                      PL     X3,FIS12    IF ^(LN[II] ! SCR[II])                      CFA       806
                                                  LX5    1+IM.SCRP                                               CFA       807
                          12705                   BX7    X0+X5       SCR[II] = 1   */ MARK NODE AS IN SCR        CFA       808
                               20603              LX6    IM.LNP-IM.HNP                                           CFA       809
           340  54750                             SA7    A5                                                      CFA       810
                     0336000250 +                 MI     X6,FIS2     IF HN[II]     */ END OF INTERVAL            CFA       811
                                                                                                                 CFA       812
                                                  LX5    -IM.BNP                                                 CFA       813
                               53457              SA4    "EI"+X5     EI = EIB + BN[II]                           CFA       814
           341  20422                             LX4    -EI.PRIP                                                CFA       815
                     26634                        UX6    B3,X4       N = NP[EI]                                  CFA       816
                          53347                   SA3    "EI"+X4     PI = EIB + PRI[EI]                          CFA       817
                                                                                                                 CFA       818
           342  20336                    FIS13    LX3    -ET.PREDP                                               CFA       819
                     53236                        SA2    "PC"+X3                                                 CFA       820
                          20252                   LX2    -I.IAP      NA = IA[PCT(PRED[PI])]                      CFA       821
                               53120              SA1    X2                                                      CFA       822
           343  12601                             BX6    X0+X1       SCR[NA] = 1                                 CFA       823
                     54610                        SA6    A1                                                      CFA       824
                          67331                   SB3    B3-B1       N = N - 1                                   CFA       825
                               54331              SA3    A3+B1       PI = PI + 1                                 CFA       826
           344  0530000342 +                      NZ     B3,FIS13    IF N " 0                                    CFA       827
                                                                                                                 CFA       828
                          0400000336 +            EQ     FIS12                                                   CFA       829
  
  
  
                                        *         TERMINATE INTERVAL LIST                                        CFA       831
                                                                                                                 CFA       832
           345  43600                    FIS15    MX6    0                                                       CFA       833
                     56640                        SA6    "IB"        [IBA] = 0     */ LIST TERMINATOR            CFA       834
                          5120000000 C            SA2    PBN                                                     CFA       835
           346  5130000000 X                      SA3    CC$CBN                                                  CCGNC     831
                          77145                   SX1    "IB"-"GS"                                               CFA       837
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    22
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                               57471              SA4    "EI"-B1     GB = EIB - 1                                CFA       838
           347  37632                             IX6    X3-X2       SCR = CBN - PBN */ NUMBER OF LOOPS          CFA       839
                     73260                        SX2    X6                                                      FCC0392   150
                          73711                   SX7    X1+B1       L.GST = IBA + 1 - O.GST                     CFA       840
           350  5170000000 X                      SA7    L.GST                                                   CFA       841
                          5160000013 C            SA6    SCR                                                     CFA       842
           351  20644                             LX6    GB.NLPP                                                 CFA       843
                     12664                        BX6    X6+X4       NLP[GB] = SCR */ N. LOOPS                   CFA       844
                          54640                   SA6    A4                                                      CFA       845
           352  5110000000 X                      SA1    =XM.LP                                                  FCC0392   151
                          37312                   IX3    X1-X2                                                   FCC0392   152
           353  0323000354 +            +         PL     X3,*+1      M.LP = MAX( M.LP , SCR )                    FCC0392   153
                          10622                   BX6    X2                                                      FCC0392   154
                               54610              SA6    A1                                                      FCC0392   155
                                                                                                                 CFA       846
                                        *         SETUP FOWARD/BACKWARD LINKS IN GRAPH                           CFA       847
                                                                                                                 CFA       848
           354  5120000001 C                      SA2    LB                                                      CFA       849
                          54321                   SA3    A2+B1                                                   CFA       850
                               37673              IX6    X7-X3       LF = L.GST - LB(2)                          CFA       851
           355  20222                             LX2    GA.LBP                                                  CFA       852
                                                  LX6    GA.LFP                                                  CFA       853
                     12762                        BX7    X6+X2                                                   CFA       854
                          5177777775              SA7    "EI"-2      [EIB-2] = GA(LB,LF)                         CFA       855
           356  5140000000 X                      SA4    M.GRL                                                   CFA       856
           357  37164                   +         IX1    X6-X4                                                   CFA       857
                     0331000360 +                 MI     X1,*+1      M.GRL = MAX( M.GRL , LF )                   CFA       858
                               54640              SA6    A4                                                      CFA       859
  
  
  
                                        *         MARK THE EXIT NODES OF THE INTERVALS. THEY ARE THE PRED OF THE CFA       861
                                        *         INTERVAL HEADER NODES.                                         CFA       862
                                                                                                                 CFA       863
           360  5110000007 C                      SA1    ILB                                                     CFA       864
                          76010                   SX0    B1                                                      CFA       865
                               20067              LX0    IM.ENP                                                  CFA       866
           361  67200                             SB2    -B0         HN = 0        */ START WITH PROG EXIT       CFA       867
                     53115                        SA1    "GS"+X1     NIP = O.GST + ILB  */ NEXT TO PROCESS       CFA       868
                                                                                                                 CFA       869
           362  57572                    FIS16    SA5    "EI"-B2     EI = EIB + HN                               CFA       870
                     20522                        LX5    -EI.PRIP                                                CFA       871
                          26635                   UX6    B3,X5       N = NP[EI]                                  CFA       872
                               53457              SA4    "EI"+X5     PI = EIB + PRI[EI]                          CFA       873
           363  0603000371 +                      LE     B3,FIS19    IF N @ 0                                    CFA       874
                                                                                                                 CFA       875
           364  20436                    FIS17    LX4    -ET.PREDP                                               CFA       876
                     53346                        SA3    "PC"+X4                                                 CFA       877
                          20352                   LX3    -I.IAP                                                  CFA       878
                               53230              SA2    X3          NA = IA[PCT(PRED[PI])]                      CFA       879
           365  20352                             LX3    I.IAP-I.HNP                                             CFA       880
                     73532                        SX5    X3+B2                                                   CFA       881
                          0305000370 +            ZR     X5,FIS18    IF HN[NA] = HN  */ PRED IN THIS INTERVAL    CFA       882
           366  74620                             SX6    A2                                                      CCG16     287
                     0306000370 +                 ZR     X6,FIS18    IF NA = 0                                   CCG16     288
                                        *[        CFA                                                            CCG16     289
                               12602              BX6    X0+X2                                                   CFA       883
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    23
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
           367  54620                             SA6    A2          EN[NA] = 1                                  CFA       884
                                                                                                                 CFA       885
           370  67331                    FIS18    SB3    B3-B1       N = N - 1                                   CFA       886
                     54441                        SA4    A4+B1       PI = PI + 1                                 CFA       887
                          0530000364 +            NZ     B3,FIS17    IF N " 0                                    CFA       888
                                                                                                                 CFA       889
                                         FIS19    LX1    -IP.NODEP                                               CFA       890
           371  63310                             SB3    X1                                                      CFA       891
                     0430000374 +                 ZR     B3,FIS20    IF NODE[NIP] = 0  */ END OF INTERVAL LIST   CFA       892
                               54211              SA2    A1+B1                                                   CFA       893
                                                  LX2    -IM.BNP                                                 CFA       894
           372  14322                             BX3    -X2                                                     CFA       895
                     63230                        SB2    X3          HN = BN[NIP+1]                              CFA       896
                          54123                   SA1    A2+B3       NIP = NIP + NODE[NIP]                       CFA       897
           373  0400000362 +                      EQ     FIS16                                                   CFA       898
                                                                                                                 CFA       899
                                                                                                                 CFA       900
                                        *         SETUP THE *BI* FIELD IN THE INTERVAL MEMBERS                   CFA       901
                                                                                                                 CFA       902
           374  5110000000 X             FIS20    SA1    L.OTI                                                   CFA       903
                          5120000007 C            SA2    ILB                                                     CFA       904
           375  0301000403 +                      ZR     X1,FIS23    IF L.OTI = 0  */ FIRST GRAPH                CFA       905
                                                                                                                 CFA       906
                          5130000000 X            SA3    O.OTI                                                   CFA       907
           376  53525                             SA5    "GS"+X2     IP = O.GST + ILB                            CFA       908
                     43600                        MX6    0                                                       CFA       909
                          63330                   SB3    X3          T = O.OTI                                   CFA       910
                               54610              SA6    A1          L.OTI = 0                                   CFA       911
                                                                                                                 CFA       912
                                         FIS21    LX5    -IP.NODEP                                               CFA       913
           377  6225000000                        SB2    X5+         N = NODE[IP]                                CFA       914
                          5055000001              SA5    A5+1        IP = IP + 1                                 CFA       915
                                                                                                                 CFA       916
                                         FIS22    LX5    -IM.BNP                                                 CFA       917
           400  53453                             SA4    B3+X5                                                   CFA       918
                                                  LX5    IM.BNP                                                  CFA       919
                     20445                        LX4    IM.BIP+1                                                CFA       920
                          12645                   BX6    X4+X5       BI[IP] = 2*T(BN[IP])                        CFA       921
                               54650              SA6    A5                                                      CFA       922
           401  67221                             SB2    B2-B1       N = N - 1                                   CFA       923
                     54551                        SA5    A5+B1       IP = IP + 1                                 CFA       924
                          0520000400 +            NZ     B2,FIS22    IF N " 0                                    CFA       925
           402  0315000377 +                      NZ     X5,FIS21    IF [IP] " 0                                 CFA       926
                                                                                                                 CFA       927
                          0400000410 +            EQ     FIS26                                                   CFA       928
                                                                                                                 CFA       929
                                        *         SET *BI* FIELD FOR *IM* IN FIRST GRAPH                         CFA       930
                                                                                                                 CFA       931
           403  53525                    FIS23    SA5    "GS"+X2     IP = O.GST + ILB                            CFA       932
                     6120000045                   SB2    IM.BIP+1                                                CFA       933
                                                                                                                 CFA       934
                                         FIS24    LX5    -IP.NODEP                                               CFA       935
           404  6235000000                        SB3    X5+         N = NODE[IP]                                CFA       936
                          5055000001              SA5    A5+1        IP = IP + 1                                 CFA       937
                                                                                                                 CFA       938
                                         FIS25    LX5    -IM.BNP                                                 CFA       939
           405  73450                             SX4    X5                                                      CFA       940
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    24
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                                                  LX5    IM.BNP                                                  CFA       941
                     22324                        LX3    B2,X4                                                   CFA       942
                          12635                   BX6    X3+X5       BI[IP] = 2*BN[IP]                           CFA       943
                               54650              SA6    A5                                                      CFA       944
           406  67331                             SB3    B3-B1       N = N - 1                                   CFA       945
                     54551                        SA5    A5+B1       IP = IP + 1                                 CFA       946
                          0530000405 +            NZ     B3,FIS25    IF N " 0                                    CFA       947
           407  0315000404 +                      NZ     X5,FIS24    IF [IP] " 0                                 CFA       948
  
  
  
                                        *         RESCAN THE INTERVALS AND REORDER THEM SO AS TO GET RID OF ANY  CFA       950
                                        *         REVERSALS WHICH ARE NOT CONSISTANT WITH PROGRAM ORDER.         CFA       951
                                                                                                                 CFA       952
           410  53525                    FIS26    SA5    "GS"+X2     IP = O.GST + ILB                            CFA       953
                                                                                                                 CFA       954
                                         FIS27    LX5    -IP.NODEP                                               CFA       955
           411  6225777775                        SB2    X5-2        N = NODE[IP] - 2                            CFA       956
                          0702000414 +            GT     B2,FIS28    IF N > 2                                    CFA       957
           412  63251                             SB2    X5+B1                                                   CFA       958
                     54552                        SA5    A5+B2       IP = IP + N+1                               CFA       959
                          0315000411 +            NZ     X5,FIS27    IF [IP] " 0                                 CFA       960
           413  0400000430 +                      EQ     CBD                                                     CFA       961
                                                                                                                 CFA       962
                                        *         SCAN INTERVAL AND CHECK FOR REVERSALS                          CFA       963
                                                                                                                 CFA       964
           414  54050                    FIS28    SA0    A5          IPF = IP                                    CFA       965
                     5055000002                   SA5    A5+2        IP = IP + 2   */ FIRST AFTER HEADER         CFA       966
                               66600              SB6    B0          SWAP = 0                                    CFA       967
           415  10755                             BX7    X5          LIW = [IP]                                  CFA       968
                                                  LX5    -IM.BNP                                                 CFA       969
                     63550                        SB5    X5                                                      CFA       970
                                                                                                                 CFA       971
           416  54551                    FIS29    SA5    A5+B1       IP = IP + 1                                 CFA       972
                     67221                        SB2    B2-B1       N = N - 1                                   CFA       973
                                                  LX5    -IM.BNP                                                 CFA       974
                          6245000000              SB4    X5+                                                     CFA       975
                                                  LX5    IM.BNP                                                  CFA       976
           417  0754000424 +                      GT     B4,B5,FIS31 IF BN[IP] > BN[LIW]  */ IN ORDER            CFA       977
                                                                                                                 CFA       978
                                        *         SWAP NODES IF *LIW* IS NOT A PRED OF *IP*                      CFA       979
                                                                                                                 CFA       980
                          53477                   SA4    "EI"+X7     EI = EIB + BN[LIW]                          CFA       981
                               67404              SB4    -B4                                                     CFA       982
           420  20460                             LX4    -EI.SUIP                                                CFA       983
                     53347                        SA3    "EI"+X4     SI = EIB + SUI[EI]                          CFA       984
                          26634                   UX6    B3,X4       NS = NS[EI]                                 CFA       985
                                                                                                                 CFA       986
                                         FIS30    LX3    -ET.SUCCP                                               CFA       987
           421  73634                             SX6    B4+X3                                                   CFA       988
                     0306000424 +                 ZR     X6,FIS31    IF SUCC[SI] = BN[IP]                        CFA       989
                               67331              SB3    B3-B1       NS = NS - 1                                 CFA       990
           422  54331                             SA3    A3+B1       SI = SI + 1                                 CFA       991
                     0530000421 +                 NZ     B3,FIS30    IF NS " 0                                   CFA       992
                                                                                                                 CFA       993
                               10655              BX6    X5                                                      CFA       994
           423  55651                             SA6    A5-B1       [IP-1] = [IP]                               CFA       995
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    25
        FIS - FORM INTERVAL STRUCTURE                                 FIS                 CODE
  
                     54750                        SA7    A5          [IP] = LIW                                  CFA       996
                          10577                   BX5    X7                                                      CFA       997
                               66610              SB6    B1          SWAP = 1                                    CFA       998
                                                                                                                 CFA       999
           424  10755                    FIS31    BX7    X5          LIW = [IP]                                  CFA      1000
                                                  LX5    -IM.BNP                                                 CFA      1001
                     63550                        SB5    X5                                                      CFA      1002
                          0520000416 +            NZ     B2,FIS29    IF N " 0                                    CFA      1003
           425  0460000427 +                      ZR     B6,FIS32    IF SWAP = 0   */ NO INTERCHANGES            CFA      1004
                          54500                   SA5    A0          IP = IPF                                    CFA      1005
                                                  LX5    -IP.NODEP                                               CFA      1006
           426  6225777775                        SB2    X5-2        N = NODE[IP] - 2                            CFA      1007
                          0400000414 +            EQ     FIS28                                                   CFA      1008
                                                                                                                 CFA      1009
           427  54551                    FIS32    SA5    A5+B1       IP = IP + 1                                 CFA      1010
                     0315000411 +                 NZ     X5,FIS27    IF [IP] " 0                                 CFA      1011
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    26
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                                        **        CBD - COMPUTE BACK DOMINATORS                                  CFA      1013
                                        *                                                                        CFA      1014
                                        *         RESCAN THE INTERVAL LIST AND COMPUTE THE BACK DOMINATORS AND   CFA      1015
                                        *         INTERVAL ARTICULATION POINTS. THE FORMULAS USED ARE -          CFA      1016
                                        *         BD(B) = & ( IP ! BD(IP) ) , IP  AN IMMEDIATE PRED OF B         CFA      1017
                                        *         AP(INT) = & ( B ! BD(B) ) , B AN EXIT NODE                     CFA      1018
                                        *         THE BIT VECTORS BVT(I) = I ! BD(I)                             CFA      1019
                                                                                                                 CFA      1020
                                        *         SETUP BLOCK TO INTERVAL TRANSITION TABLE                       CFA      1021
                                                                                                                 CFA      1022
           430  43600                    CBD      MX6    0                                                       CFA      1023
                                                  TRACE  FIS.X,GST                                               CFA      1024
                     5160000000 X                 SA6    L.CFT       L.CFT = 0                                   CFA      1025
           431  5120000003 C                      SA2    N.BLK                                                   CFA      1026
                          73121                   ALLOC  CFT,X2+B1   ALLOC( CFT , N.BLK + 1 )                    CFA      1027
           433  5140000000 X                      SA4    O.GST                                                   CFA      1028
                          5150000007 C            SA5    ILB                                                     CFA      1029
           434  63620                             S"T"   X2          T = O.CFT                                   CFA      1030
                     36645                        IX6    X4+X5                                                   CFA      1031
                          53560                   SA5    X6          II = O.GST + ILB                            CFA      1032
                               76010              SX0    B1                                                      CFA      1033
           435  66200                             SB2    B0          MB = 0        */ MAX N.BLOCKS IN INTERVAL   CFA      1034
                     20036                        LX0    I.WIP                                                   CFA      1035
                          76110                   SX1    B1                                                      CFA      1036
                                                  LX1    I.NIP                                                   CFA      1037
           436  6150000060                        SB5    48                                                      CFA      1038
                                                                                                                 CFA      1039
                                         CBD1     LX5    -IP.NODEP                                               CFA      1040
           437  63350                             SB3    X5          NN = NODE[II]                               CFA      1041
                     66400                        SB4    B0          BITN = 0                                    CFA      1042
                          43200                   MX2    0           WI = NI = 0                                 CFA      1043
                               54551              SA5    A5+B1       II = II + 1                                 CFA      1044
           440  0623000441 +                      GE     B2,B3,CBD2  MB = MAX( MB , NN )                         CFA      1045
                          6123000000              SB2    B3+                                                     CFA      1046
                                                                                                                 CFA      1047
           441  27642                    CBD2     PX6    B4,X2                                                   CFA      1048
                                                  LX5    -IM.BNP                                                 CFA      1049
                     53656                        SA6    "T"+X5      T(BN[II]) = TTW(BITN,WI,NI)                 CFA      1050
                          66441                   SB4    B4+B1       BITN = BITN + 1                             CFA      1051
                               36221              IX2    X2+X1       NI = NI + 1                                 CFA      1052
           442  0745000443 +                      LT     B4,B5,CBD3  IF BITN < 48                                CFA      1053
                          36220                   IX2    X2+X0       WI = WI + 1                                 CFA      1054
                               66400              SB4    B0          BITN = 0                                    CFA      1055
           443  67331                    CBD3     SB3    B3-B1       NN = NN - 1                                 CFA      1056
                     54551                        SA5    A5+B1       II = II + 1                                 CFA      1057
                          0530000441 +            NZ     B3,CBD2     IF NN " 0                                   CFA      1058
                                                                                                                 CFA      1059
           444  0315000437 +                      NZ     X5,CBD1     IF [II] " 0   */ NOT END OF INTERVALS       CFA      1060
                                                                                                                 CFA      1061
                                        *         ALLOCATE SPACE FOR A BIT VECTOR TABLE                          CFA      1062
                                                                                                                 CFA      1063
                          7112000057              SX1    B2+47                                                   CFA      1064
           445  76250                             SX2    B5                                                      CFA      1065
                     27101                        IX7    X1/X2,B6    VM = (MB+47) / 48                           CFA      1066
           447  76221                             SX2    B2+B1                                                   CFA      1067
                     42127                        IX1    X2*X7                                                   CFA      1068
                          5100000000 X            ALLOC  RND,X1      ALLOC( RND , (MB+1)*VM )                    CFA      1069
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    27
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                                                                                                                 CFA      1070
           451  5110000000 X                      SA1    O.GST                                                   CFA      1071
                          5130000007 C            SA3    ILB                                                     CFA      1072
           452  5150000005 C                      SA5    EII                                                     CFA      1073
                          63310                   SB3    X1                                                      CFA      1074
                               63520              S"BV"  X2          BV = O.RND    */ BASE OF BIT VECTOR TABLE   CFA      1075
           453  63753                             S"EI"  B3+X5       EIB = O.GST + EII                           CFA      1076
                     5120000000 X                 SA2    O.CFT                                                   CFA      1077
                               53433              SA4    B3+X3       IP = O.GST + ILB                            CFA      1078
           454  63620                             S"T"   X2          T = O.CFT                                   CFA      1079
                                                                                                                 CFA      1080
                                        *         PROCESS NEXT INTERVAL                                          CFA      1081
                                                                                                                 CFA      1082
                                         CBD4     LX4    -IP.NODEP                                               CFA      1083
           455  64441                             S"IB"  A4+B1       IBA = IP + 1  */ INTERVAL BASE ADDR ( ( HNA CFA      1084
                     63240                        SB2    X4          NN = NODE[IP]                               CFA      1085
                          76642                   SX6    "IB"+B2     IP = IBA + NN                               CFA      1086
           456  5160000014 C                      SA6    IP                                                      CFA      1087
                          0521000463 +            NE     B2,B1,CBD6  IF NN " 1                                   CFA      1088
                                                                                                                 CFA      1089
           457  5130000014 C             CBD5     SA3    IP                                                      CFA      1090
                          5243000000              SA4    X3+                                                     CFA      1091
           460  0314000455 +                      NZ     X4,CBD4     IF [IP] " 0   */ IF NOT END OF LIST         CFA      1092
                          43700                   MX7    0                                                       CFA      1093
           461  5170000000 X                      SA7    L.CFT       L.CFT = 0                                   CFA      1094
                          5170000000 X            SA7    L.RND                                                   CFA      1095
                                                  TRACE  CBD.X,GST                                               CFA      1096
           462  0400000232 +                      EQ     FIS                                                     CFA      1097
                                                                                                                 CFA      1098
                                        *         PROCESS INTERVAL WITH @ 48 NODES                               CFA      1099
                                                                                                                 CFA      1100
           463  6130000060               CBD6     SB3    48                                                      CFA      1101
                          0732000506 +            GT     B2,B3,CBD12 IF NN > 48                                  CFA      1102
                                                                                                                 CFA      1103
           464  57021                             SA0    B2-B1       NN = NN - 1                                 CFA      1104
                     56541                        SA5    "IB"+B1     II = IBA + 1  */ INDEX TO INTERVAL          CFA      1105
                          76010                   SX0    B1                                                      CFA      1106
                               43774              MX7    60          AN = -0                                     CFA      1107
           465  76610                             SX6    B1                                                      CFA      1108
                     56650                        SA6    "BV"        BV(0) = 1     */ HEADER NODE                CFA      1109
                                                                                                                 CFA      1110
                                        *         COMPUTE BACK DOMINATORS OF NODES                               CFA      1111
                                        *         BD = & BVT(IP)                                                 CFA      1112
                                                                                                                 CFA      1113
                                         CBD7     LX5    -IM.BNP                                                 CFA      1114
           466  53357                             SA3    "EI"+X5     EI = EIB + BN[II]                           CFA      1115
                     20322                        LX3    -EI.PRIP                                                CFA      1116
                          26633                   UX6    B3,X3       N = NP[EI]                                  CFA      1117
                               53437              SA4    "EI"+X3     PI = EIB + PRI[EI]                          CFA      1118
           467  65254                             SB2    A5-"IB"     I = II - IBA                                CFA      1119
                     43174                        MX1    60          BD = -0                                     CFA      1120
                                                                                                                 CFA      1121
           470  20436                    CBD8     LX4    -ET.PREDP                                               CFA      1122
                     53346                        SA3    "T"+X4                                                  CFA      1123
                                                  LX3    -I.NIP      J = NI[T(PRED[PI])]                         CFA      1124
                          53235                   SA2    "BV"+X3                                                 CFA      1125
                               67331              SB3    B3-B1       N = N - 1                                   CFA      1126
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    28
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
           471  11112                             BX1    X1*X2       BD = BD & BVT(J)                            CFA      1127
                     54441                        SA4    A4+B1       PI = PI + 1                                 CFA      1128
                          0530000470 +            NZ     B3,CBD8     IF N " 0                                    CFA      1129
                                                                                                                 CFA      1130
           472  22220                             LX2    B2,X0                                                   CFA      1131
                     12612                        BX6    X1+X2       BVT(I) = BD ! SHIFT(1,I)                    CFA      1132
                          20504                   LX5    IM.BNP+59-IM.ENP                                        CFA      1133
                               56652              SA6    "BV"+B2                                                 CFA      1134
           473  0325000474 +                      PL     X5,CBD9     IF ^EN[II]                                  CFA      1135
                          11767                   BX7    X6*X7       AN = AN & BVT(I)                            CFA      1136
                                                                                                                 CFA      1137
                                        *         CALCULATE IMMEDIATE BACK DOMINATOR ORDINAL                     CFA      1138
                                                                                                                 CFA      1139
           474  27101                    CBD9     PX1    X1                                                      CFA      1140
                     20570                        LX5    1+IM.ENP                                                CFA      1141
                          6130000057              SB3    47                                                      CFA      1142
           475  24221                             NX2    B2,X1       FBD = 47-NORMC( PACK(BD) )                  CFA      1143
                     77432                        SX4    B3-B2                                                   CFA      1144
                          53244                   SA2    "IB"+X4                                                 CFA      1145
                               20422              LX4    IM.IBDP                                                 CFA      1146
           476  12645                             BX6    X4+X5       IBD[II] = FBD                               CFA      1147
                     54650                        SA6    A5                                                      CFA      1148
                          20070                   LX0    IM.DOMP                                                 CFA      1149
                               12602              BX6    X0+X2       DOM[IBA+FBD] = 1                            CFA      1150
           477  20004                             LX0    -IM.DOMP                                                CFA      1151
                     54620                        SA6    A2                                                      CFA      1152
                                                                                                                 CFA      1153
                          65201                   SB2    A0-B1       NN = NN - 1                                 CFA      1154
                               55001              SA0    A0-B1                                                   CFA      1155
           500  54551                             SA5    A5+B1       II = II + 1                                 CFA      1156
                     0520000466 +                 NZ     B2,CBD7     IF NN " 0                                   CFA      1157
                                                                                                                 CFA      1158
                                        *         PROPAGATE *AN* BIT VECTOR TO INTERVAL LIST                     CFA      1159
                                                                                                                 CFA      1160
                               56440              SA4    "IB"                                                    CFA      1161
           501  20404                             LX4    59-IM.ENP                                               CFA      1162
                     0334000457 +                 MI     X4,CBD5     IF EN[IBA]    */ HEADER IS AN EXIT NODE     CFA      1163
           502  0307000457 +                      ZR     X7,CBD5     IF AN = 0                                   CFA      1164
                                                                                                                 CFA      1165
                          76110                   SX1    B1                                                      CFA      1166
                               20172              LX1    IM.APP                                                  CFA      1167
                                                                                                                 CFA      1168
           503  27507                    CBD11    PX5    X7                                                      CFA      1169
                     24625                        NX6    B2,X5                                                   CFA      1170
                          67232                   SB2    B3-B2       J = 47 - NORMC(AN)                          CFA      1171
                               56242              SA2    "IB"+B2                                                 CFA      1172
           504  22420                             LX4    B2,X0                                                   CFA      1173
                     12612                        BX6    X1+X2       AP[IBA+J] = 1                               CFA      1174
                          15774                   BX7    -X4*X7      AN = AN & ^SHIFT(1,J)                       CFA      1175
                               54620              SA6    A2                                                      CFA      1176
           505  0317000503 +                      NZ     X7,CBD11    IF AN " 0                                   CFA      1177
                                                                                                                 CFA      1178
                          0400000457 +            EQ     CBD5                                                    CFA      1179
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    29
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                                        *         NODE[INTERVAL] > 48 , MULTI WORD BIT VECTOR CALCULATION        CFA      1181
                                                                                                                 CFA      1182
                                         VL       MICRO  1,,/X1/     VECTOR LENGTH                               CFA      1183
                                         BI       MICRO  1,,/"BV"/   BVT(I) DURING MULTI WORD CALC               CFA      1184
                                                                                                                 CFA      1185
           506  77621                    CBD12    SX6    B2-B1       NN = NN - 1                                 CFA      1186
                     5160000015 C                 SA6    NN                                                      CFA      1187
                               76230              SX2    B3                                                      CFA      1188
           507  73163                             SX1    X6+B3                                                   CFA      1189
                     27101                        I"VL"  X1/X2,B3    VL = (NN+48)/48  */ VECTOR LENGTH           CFA      1190
                                                                                                                 CFA      1191
                                        *         INITIALIZE BIT VECTORS FOR ARTICULATION POINTS AND HEADER NODE CFA      1192
                                                                                                                 CFA      1193
           511  43674                             MX6    60                                                      CFA      1194
                     56650                        SA6    "BV"        BVT(0) = -0                                 CFA      1195
                          76710                   SX7    B1                                                      CFA      1196
                               53715              SA7    "BV"+"VL"   BVT(VL) = 1                                 CFA      1197
           512  43700                             MX7    0                                                       CFA      1198
                     63210                        SB2    X1          FOR I = 1 TO VL - 1,                        CFA      1199
                                                                                                                 CFA      1200
           513  54661                   +         SA6    A6+B1       BVT(I) = 0                                  CFA      1201
                     6122777776                   SB2    B2-1                                                    CFA      1202
                               54771              SA7    A7+B1       BVT(I+VL) = 0                               CFA      1203
           514  0712000513 +                      GT     B2,B1,*-1   END                                         CFA      1204
                                                                                                                 CFA      1205
                          56540                   SA5    "IB"                                                    CFA      1206
                               56050              SA0    "BV"                                                    CFA      1207
           515  63515                             S"BI"  "BV"+"VL"   BI = O.BVT + VL */ INDEX TO BIT VECTOR      CFA      1208
                                                  LX5    -IM.BNP                                                 CFA      1209
                     53456                        SA4    "T"+X5                                                  CFA      1210
                          76650                   SX6    "BI"                                                    CFA      1211
                               20614              LX6    I.BVIP                                                  CFA      1212
           516  12746                             BX7    X4+X6       BVI[T(BN[IBA])] = BI                        CFA      1213
                     54740                        SA7    A4                                                      CFA      1214
                          63515                   S"BI"  "BI"+"VL"   BI = BI + VL                                CFA      1215
                               54551              SA5    A5+B1       II = IBA + 1  */ INTERVAL INDEX             CFA      1216
                                                                                                                 CFA      1217
                                        *         CALCULATE BACK DOMINATOR OF THIS NODE                          CFA      1218
                                                                                                                 CFA      1219
                                         CBD14    LX5    -IM.BNP                                                 CFA      1220
           517  53357                             SA3    "EI"+X5     EI = EIB + BN[II]                           CFA      1221
                     20322                        LX3    -EI.PRIP                                                CFA      1222
                          26633                   UX6    B3,X3       N = NP[EI]                                  CFA      1223
                               53437              SA4    "EI"+X3     PI = EIB + PRI[EI]                          CFA      1224
           520  20436                             LX4    -ET.PREDP                                               CFA      1225
                     53346                        SA3    "T"+X4      TW = T(PRED[PI])                            CFA      1226
                          63210                   SB2    "VL"        I = VL                                      CFA      1227
                               20360              LX3    -I.BVIP                                                 CFA      1228
           521  53230                             SA2    X3          BJ = BVT[TW]                                CFA      1229
                     10622                        BX6    X2                                                      CFA      1230
                          56650                   SA6    "BI"        BK = BI;  [BK] = [BJ]                       CFA      1231
           522  54221                    CBD15    SA2    A2+B1       BJ = BJ + 1                                 CFA      1232
                     67221                        SB2    B2-B1       I = I - 1                                   CFA      1233
                          10622                   BX6    X2                                                      CFA      1234
                               54661              SA6    A6+B1       BK = BK + 1;  [BK] = [BJ]                   CFA      1235
           523  0712000522 +                      GT     B2,B1,CBD15 IF I > 1                                    CFA      1236
                          0431000527 +            EQ     B3,B1,CBD17 IF N = 1                                    CFA      1237
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    30
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                                                                                                                 CFA      1238
           524  54441                    CBD16    SA4    A4+B1       PI = PI + 1                                 CFA      1239
                     20436                        LX4    -ET.PREDP                                               CFA      1240
                          53346                   SA3    "T"+X4                                                  CFA      1241
                               20360              LX3    -I.BVIP                                                 CFA      1242
           525  63210                             SB2    "VL"                                                    CFA      1243
                     56250                        SA2    "BI"                                                    CFA      1244
                          0100000562 +            RJ     ABV         BD(I) = BD(I) & BVT(PRED)                   CFA      1245
           526  67331                             SB3    B3-B1       N = N - 1                                   CFA      1246
                     0713000524 +                 GT     B3,B1,CBD16 IF N > 1                                    CFA      1247
                                                                                                                 CFA      1248
                                        *         CALCULATE IMMEDIATE BACK DOMINATOR                             CFA      1249
                                                                                                                 CFA      1250
           527  53415                    CBD17    SA4    "BI"+"VL"   BJ = BI + VL                                CFA      1251
                     6130000057                   SB3    47                                                      CFA      1252
                                                                                                                 CFA      1253
           530  55441                    CBD18    SA4    A4-B1       BJ = BJ - 1                                 CFA      1254
                     0304000530 +                 ZR     X4,CBD18    IF [BJ] = 0                                 CFA      1255
                               27604              PX6    X4                                                      CFA      1256
           531  24326                             NX3    B2,X6                                                   CFA      1257
                     75245                        SX2    A4-"BI"                                                 CFA      1258
                          67232                   SB2    B3-B2                                                   CFA      1259
                               20204              LX2    4                                                       CFA      1260
           532  76010                             SX0    B1                                                      CFA      1261
                     22312                        LX3    B1,X2                                                   CFA      1262
                          36623                   IX6    X2+X3                                                   CFA      1263
                               20070              LX0    IM.DOMP                                                 CFA      1264
           533  73262                             SX2    B2+X6       FBD = 47 - NORMC([BJ]) + 48*( BJ - BI )     CFA      1265
                     53324                        SA3    "IB"+X2                                                 CFA      1266
                          12603                   BX6    X0+X3       DOM[IBA+FBD] = 1                            CFA      1267
                               54630              SA6    A3                                                      CFA      1268
                                                                                                                 CFA      1269
           534  53456                             SA4    "T"+X5      TW = T(BN[II])                              CFA      1270
                                                  LX5    IM.BNP                                                  CFA      1271
                     20222                        LX2    IM.IBDP                                                 CFA      1272
                          12625                   BX6    X2+X5       IBD[II] = FBD                               CFA      1273
                               54650              SA6    A5                                                      CFA      1274
           535  76350                             SX3    "BI"                                                    CFA      1275
                     20314                        LX3    I.BVIP                                                  CFA      1276
                          12634                   BX6    X3+X4       BVI[TW] = BI  */ INSTALL BIT VECTOR ADDRESS CFA      1277
                               54640              SA6    A4                                                      CFA      1278
           536  26434                             UX4    B3,X4                                                   CFA      1279
                     76010                        SX0    B1                                                      CFA      1280
                          20436                   LX4    -I.WIP      W = WI[TW]                                  CFA      1281
                               53245              SA2    "BI"+X4                                                 CFA      1282
           537  22030                             LX0    B3,X0                                                   CFA      1283
                     12702                        BX7    X0+X2       BVT(BI+W) = BVT(BI+W) ! SHIFT(1,BITN[TW])   CFA      1284
                          54720                   SA7    A2                                                      CFA      1285
                               20504              LX5    59-IM.ENP                                               CFA      1286
           540  0325000542 +                      PL     X5,CBD19    IF ^EN[II]    */ IF NOT AN EXIT NODE        CFA      1287
                          63210                   SB2    "VL"                                                    CFA      1288
                               54200              SA2    A0                                                      CFA      1289
           541  76350                             SX3    "BI"                                                    CFA      1290
                     0100000562 +                 RJ     ABV         AN = AN & BVT(BI)                           CFA      1291
                                                                                                                 CFA      1292
           542  5120000015 C             CBD19    SA2    NN                                                      CFA      1293
                          63515                   S"BI"  "BI"+"VL"   BI = BI + VL                                CFA      1294
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    31
        CBD - COMPUTE BACK DOMINATORS                                 CBD                 CODE
  
                               54551              SA5    A5+B1       II = II + 1                                 CFA      1295
           543  7262777776                        SX6    X2-1        NN = NN - 1                                 CFA      1296
                          5062000000              SA6    A2+                                                     CFA      1297
           544  0316000517 +                      NZ     X6,CBD14    IF NN " 0                                   CFA      1298
                                                                                                                 CFA      1299
                          64500                   S"BV"  A0                                                      CFA      1300
                               56240              SA2    "IB"                                                    CFA      1301
           545  20204                             LX2    59-IM.ENP                                               CFA      1302
                     0332000457 +                 MI     X2,CBD5     IF EN[IBA]    */ IF HEADER IS AN EXIT NODE  CFA      1303
                                                                                                                 CFA      1304
                                        *         PROPAGATE *AN* BIT VECTOR TO INTERVAL MEMBERS                  CFA      1305
                                                                                                                 CFA      1306
           546  6130000057                        SB3    47                                                      CFA      1307
                          53515                   SA5    "BV"+"VL"   BI = O.BVT + VL                             CFA      1308
                               76231              SX2    B3+B1                                                   CFA      1309
           547  76010                             SX0    B1                                                      CFA      1310
                     42212                        IX2    X1*X2       WA = 48 * VL  */ WORD ADDEND                CFA      1311
                          76710                   SX7    B1                                                      CFA      1312
                               20772              LX7    IM.APP                                                  CFA      1313
                                                                                                                 CFA      1314
           550  7222777717               CBD20    SX2    X2-48                                                   CFA      1315
                          0332000457 +            MI     X2,CBD5     IF WA < 0                                   CFA      1316
           551  55551                             SA5    A5-B1       BI = BI - 1;  AN = [BI]                     CFA      1317
                     0305000550 +                 ZR     X5,CBD20    IF AN = 0                                   CFA      1318
                                                                                                                 CFA      1319
           552  27605                    CBD21    PX6    X5                                                      CFA      1320
                     24426                        NX4    B2,X6                                                   CFA      1321
                          67232                   SB2    B3-B2       J = 47 - NORMC(AN)                          CFA      1322
                               22320              LX3    B2,X0                                                   CFA      1323
           553  63222                             SB2    B2+X2                                                   CFA      1324
                     15553                        BX5    -X3*X5      AN = ^SHIFT(1,J) & AN                       CFA      1325
                          56342                   SA3    "IB"+B2                                                 CFA      1326
                               12673              BX6    X7+X3       AP[IBA+WA+J] = 1                            CFA      1327
           554  54630                             SA6    A3                                                      CFA      1328
                     0315000552 +                 NZ     X5,CBD21    IF AN " 0                                   CFA      1329
           555  0400000550 +                      EQ     CBD20                                                   CFA      1330
                                                                                                                 CFA      1331
           556                           FISA     BFMW   IM,(AP,HN)                                              CFA      1332
           557  60000000000557 +         FISB     VFD    2/3,40/FISB,18/377777B                                  CFA      1333
                              377777
  
  
                                        **        ABV - *AND* BIT VECTORS                                        CFA      1335
                                        *                                                                        CFA      1336
                                        *         ENTRY  (B2) = VL , BIT VECTOR LENGTH                           CFA      1337
                                        *                (A2) = ADDRESS OF OPERAND/RESULT BIT VECTOR             CFA      1338
                                        *                (X3) = ADDRESS OF SECOND OPERAND                        CFA      1339
                                                                                                                 CFA      1340
           560  11623                    ABV1     BX6    X2*X3                                                   CFA      1341
                     54331                        SA3    A3+B1                                                   CFA      1342
                          67221                   SB2    B2-B1                                                   CFA      1343
                               54620              SA6    A2                                                      CFA      1344
           561  5022000001                        SA2    A2+1                                                    CFA      1345
                          0702000560 +            GT     B2,ABV1                                                 CFA      1346
           562  0200400562 +             ABV      ROUTINE                                                        CFA      1347
           563  53330                             SA3    X3                                                      CFA      1348
                     0400000560 +                 EQ     ABV1                                                    CFA      1349
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    32
        FDG - FORM DERIVED GRAPH                                      FDG                 CODE
  
                                        **        FDG - FORM DERIVED GRAPH OF A SET OF INTERVALS                 CFA      1351
                                        *         THIS ROUTINE DEVIATES FROM THE NORMAL PROCEDURE THAT REDUCES   CFA      1352
                                        *         EACH INTERVAL TO A POINT. INSTEAD IT REDUCES ONLY THE STRONGLY CFA      1353
                                        *         CONNECTED REGIONS OF AN INTERVAL TO A POINT AND LEAVES THE     CFA      1354
                                        *         REST OF THE BLOCKS ALONE.                                      CFA      1355
                                                                                                                 CFA      1356
                                                  DESCRIBE T.,60     T(OLD BN) = 30/NEW NODENUM,30/NEW BLOCK NUM CFA      1357
      L     36  77777777770000000000     NN       DEFINE 30          NEW NODE NUMBER                             CFA      1358
      L      0  00000000007777777777     NBN      DEFINE 30          NEW BLOCK NUMBER                            CFA      1359
                                                                                                                 CFA      1360
           564  0200400564 +             FDG      ROUTINE                                                        CFA      1361
           565  5150000003 C                      SA5    N.BLK                                                   CFA      1362
                          73151                   ALLOC  OTI,X5+B1   ALLOC( OTI , N.BLK+1 )  */ TRANSITION TBL   CFA      1363
           567  5140000004 C                      SA4    LC                                                      CFA      1364
                          7204000004              SX0    X4+4                                                    CFA      1365
           570  36101                             IX1    X0+X1                                                   FCC0408   107
                     5100000000 X                 ALLOC  CFT,X1      ALLOC( CFT , LC+5+N.BLK )                   CFA      1367
           572  36102                             IX1    X0+X2                                                   CFA      1368
                     63210                        SB2    X1          O.T = O.CFT + LC+4  */ TEMP TABLE           CFA      1369
                          5130000007 C            SA3    ILB                                                     CFA      1370
           573  5140000000 X                      SA4    O.GST                                                   CFA      1371
                          53020                   SA0    X2          C0 = O.CFT                                  CFA      1372
                               73621              SX6    X2+B1       O.CFT = O.CFT + 1                           CFA      1373
           574  54620                             SA6    A2                                                      CFA      1374
                     63440                        SB4    X4                                                      CFA      1375
                          5110000005 C            SA1    EII                                                     CFA      1376
           575  53534                             SA5    B4+X3       IP = O.GST + ILB                            CFA      1377
                     63414                        SB4    B4+X1       EIB = O.GST + EII                           CFA      1378
                          43600                   MX6    0                                                       CFA      1379
                               56620              SA6    B2          T(0) = 0                                    CFA      1380
           576  6160000030                        SB6    1+IM.SCRP-IM.BIP                                        CFA      1381
                                                                                                                 CFA      1382
                                        *         CLEAR OUT TRANSITION TABLE IN CASE OF UNREACHABLE CODE         CFA      1383
                                                                                                                 CFA      1384
                          5140000003 C            SA4    N.BLK       N = N.BLK;  I = 0                           CFA      1385
           577  43602                             MX6    2                                                       CFA      1386
           600  7244777776               FDG0     SX4    X4-1        N = N - 1                                   CFA      1387
                          5066000001              SA6    A6+1        I = I + 1;  T(I) = 1S58                     CFA      1388
           601  0314000600 +                      NZ     X4,FDG0     IF N " 0                                    CFA      1389
                                                                                                                 CFA      1390
                                        *         FORM THE TRANSITION TABLE, AND REASSIGN NODE NUMBERS TO THE    CFA      1391
                                        *         BLOCKS THAT ARE CONSISTANT WITH THEIR PROGRAM ORDER.           CFA      1392
                                        *         FIRST SCAN THE INTERVALS                                       CFA      1393
                                                                                                                 CFA      1394
                                         FTT1     LX5    -IP.NODEP                                               CFA      1395
           602  63350                             SB3    X5          N = NODE[IP]                                CFA      1396
                     20552                        LX5    IP.NODEP-IP.PBP                                         CFA      1397
                          73750                   SX7    X5          HB = PB[IP]   */ NEW *BN* OF *SCR*          CFA      1398
                               54551              SA5    A5+B1       IP = IP + 1                                 CFA      1399
           603  0307000606 +                      ZR     X7,FTT2     IF HB = 0     */ NO *SCR*                   CFA      1400
                                                                                                                 CFA      1401
                                                  LX5    -IM.BNP     HN = BN[IP]                                 CFA      1402
                          53752                   SA7    B2+X5       T(HN) = TTW(0,HB)                           CFA      1403
                               43001              MX0    1                                                       CFA      1404
           604  73450                             SX4    X5                                                      CFA      1405
                     12707                        BX7    X0+X7                                                   CFA      1406
                          20436                   LX4    T.NNP                                                   CFA      1407
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    33
        FDG - FORM DERIVED GRAPH                                      FDG                 CODE
  
                               12747              BX7    X4+X7       TSW = TTW(1S29+HN,HB)                       CFA      1408
           605  0400000611 +                      EQ     FTT4                                                    CFA      1409
                                                                                                                 CFA      1410
                                         FTT2     LX5    59-IM.SCRP                                              CFA      1411
           606  0325000610 +                      PL     X5,FTT3     IF ^SCR[IP]                                 CFA      1412
                                                  LX5    1+IM.SCRP-IM.BNP                                        CFA      1413
                          53752                   SA7    B2+X5       T(BN[IP]) = TSW                             CFA      1414
           607  0400000611 +                      EQ     FTT4                                                    CFA      1415
                                                                                                                 CFA      1416
           610  22365                    FTT3     LX3    B6,X5                                                   CFA      1417
                                                  LX5    1+IM.SCRP-IM.BNP                                        CFA      1418
                     73630                        SX6    X3                                                      CFA      1419
                          21601                   AX6    1                                                       CFA      1420
                               53652              SA6    B2+X5       T(BN[IP]) = TTW(0,BI[IP]/2)                 CFA      1421
                                                                                                                 CFA      1422
           611  67331                    FTT4     SB3    B3-B1       N = N - 1                                   CFA      1423
                     54551                        SA5    A5+B1       IP = IP + 1                                 CFA      1424
                          0530000606 +            NZ     B3,FTT2     IF N " 0                                    CFA      1425
           612  0315000602 +                      NZ     X5,FTT1     IF [IP] " 0                                 CFA      1426
                                                                                                                 CFA      1427
                                        *         RESCAN THE TEMP TABLE AND ASSIGN NEW NODE NUMBERS TO THE NODES CFA      1428
                                        *         THAT ARE ^SCR OR HEADER.                                       CFA      1429
                                                                                                                 CFA      1430
                          5120000003 C            SA2    N.BLK                                                   CFA      1431
           613  76010                             SX0    B1                                                      CFA      1432
                     66310                        SB3    B1          I = 1                                       CFA      1433
                          63520                   SB5    X2                                                      CFA      1434
                               20036              LX0    T.NNP       J = 1                                       CFA      1435
           614  10100                             BX1    X0                                                      CFA      1436
                                                                                                                 CFA      1437
           615  56423                    FTT5     SA4    B2+B3                                                   CFA      1438
                     0334000617 +                 MI     X4,FTT6     IF T(I) < 0   */ SCR AND NOT HEADER         CFA      1439
                               12604              BX6    X0+X4                                                   CFA      1440
           616  5064000000                        SA6    A4+         NN[T(I)] = J                                CFA      1441
                          36001                   IX0    X0+X1       J = J + 1                                   CFA      1442
           617  66331                    FTT6     SB3    B3+B1       I = I + 1                                   CFA      1443
                     0653000615 +                 LE     B3,B5,FTT5  IF I @ N.BLK                                CFA      1444
                                                                                                                 CFA      1445
                                        *         NOW SET THE *NN* OF THE ENTRIES THAT ARE SCR & ^HEADER         CFA      1446
                                                                                                                 CFA      1447
                               43601              MX6    1                                                       CFA      1448
           620  66310                             SB3    B1          I = 1                                       CFA      1449
                     20673                        LX6    -1                                                      CFA      1450
                          56620                   SA6    B2          T(0) = 1S58                                 CFA      1451
                                                                                                                 CFA      1452
           621  56423                    FTT7     SA4    B2+B3                                                   CFA      1453
                     0324000623 +                 PL     X4,FTT8     IF T(I) > 0                                 CFA      1454
                               20436              LX4    -T.NNP      OBN = NN[T(I)]                              CFA      1455
           622  53342                             SA3    B2+X4                                                   CFA      1456
                     10633                        BX6    X3          T(I) = T(OBN)                               CFA      1457
                          54640                   SA6    A4                                                      CFA      1458
           623  66331                    FTT8     SB3    B3+B1       I = I + 1                                   CFA      1459
                     0653000621 +                 LE     B3,B5,FTT7  IF I @ N.BLK                                CFA      1460
                                                                                                                 CFA      1461
                               43600              MX6    0                                                       CFA      1462
           624  56620                             SA6    B2          T(0) = 0                                    CFA      1463
                                                                                                                 CFA      1464
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    34
        FDG - FORM DERIVED GRAPH                                      FDG                 CODE
  
                                        *         SCAN TEMP TABLE AND SETUP *OTI* FOR USE BY *FIS*               CFA      1465
                                                                                                                 CFA      1466
                     5110000000 X                 SA1    O.OTI                                                   CFA      1467
                               21036              AX0    T.NNP                                                   CFA      1468
           625  10600                             BX6    X0                                                      CFA      1469
                     5160000000 X                 SA6    L.OTI       L.OTI = J                                   CFA      1470
           626  6160000036                        SB6    T.NNP                                                   CFA      1471
                          63310                   SB3    X1                                                      CFA      1472
                               53522              SA5    B2+X2       TI = O.T + NB                               CFA      1473
           627  7266777776                        SX6    X6-1                                                    CFA      1474
                          5160000003 C            SA6    N.BLK                                                   CFA      1475
           630  43700                             MX7    0                                                       CFA      1476
                     56730                        SA7    B3          OTI(0) = 0                                  CFA      1477
                                                                                                                 CFA      1478
           631  23465                    FDG5     AX4    B6,X5                                                   CFA      1479
                     73650                        SX6    X5                                                      CFA      1480
                          53643                   SA6    B3+X4       OTI(NN[TI]) = NBN[TI]                       CFA      1481
                               55551              SA5    A5-B1       TI = TI - 1                                 CFA      1482
           632  0315000631 +                      NZ     X5,FDG5     IF [TI] " 0                                 CFA      1483
                                                                                                                 CFA      1484
                                        *         REDUCE THE GRAPH BY REDUCING THE *SCR*"S OF THE INTERVALS TO   CFA      1485
                                        *         POINTS                                                         CFA      1486
                                                                                                                 CFA      1487
                          66710                   SB7    B1          I = 1                                       CFA      1488
                               54700              SA7    A0          CI = C0                                     CFA      1489
           633  43601                             MX6    -ET.JPP                                                 CFA      1490
                     6160000036                   SB6    T.NNP                                                   CFA      1491
                               43022              MX0    CF.FROML                                                CFA      1492
           634  20060                             LX0    CF.FROML+CF.FROMP                                       CFA      1493
                                                                                                                 CFA      1494
           635  56447                    FDG6     SA4    B4+B7       EI = EIB + I                                CFA      1495
                     56227                        SA2    B2+B7                                                   CFA      1496
                                                  LX2    CF.FROMP-T.NNP                                          CFA      1497
                          11102                   BX1    X0*X2       FE = NN[T(I)] */ FROM EDGE                  CFA      1498
                               20460              LX4    -EI.SUIP                                                CFA      1499
           636  26734                             UX7    B3,X4       N = NS[EI]                                  CFA      1500
                     53544                        SA5    B4+X4       SI = EIB + SUI[EI]                          CFA      1501
                          6177000001              SB7    B7+1        I = I + 1                                   CFA      1502
           637  0603000644 +                      LE     B3,FDG9     IF N @ 0                                    CFA      1503
                                                                                                                 CFA      1504
                                         FDG7     LX5    -ET.SUCCP                                               CFA      1505
           640  53352                             SA3    B2+X5                                                   CFA      1506
                                                  LX3    CF.FROMP-T.NNP                                          CFA      1507
                     11203                        BX2    X0*X3       TE = NN[T(SUCC[SI])]                        CFA      1508
                          37712                   IX7    X1-X2                                                   CFA      1509
                               20236              LX2    CF.TOP-CF.FROMP                                         CFA      1510
           641  0307000643 +                      ZR     X7,FDG8     IF FE = TE                                  CFA      1511
                                                                                                                 CFA      1512
                          11565                   BX5    X6*X5                                                   CFA      1513
                               36412              IX4    X1+X2                                                   CFA      1514
           642  12754                             BX7    X5+X4                                                   CFA      1515
                     54771                        SA7    A7+B1       CI = CI + 1;  [CI] = CFTE(JP[SI], FE , TE ) CFA      1516
                                                                                                                 CFA      1517
           643  67331                    FDG8     SB3    B3-B1       N = N - 1                                   CFA      1518
                     54551                        SA5    A5+B1       SI = SI + 1                                 CFA      1519
                          0530000640 +            NZ     B3,FDG7     IF N " 0                                    CFA      1520
                                                                                                                 CFA      1521
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    35
        FDG - FORM DERIVED GRAPH                                      FDG                 CODE
  
           644  0657000635 +             FDG9     LE     B7,B5,FDG6  IF I @ NB                                   CFA      1522
                                                                                                                 CFA      1523
                          64300                   SB3    A0                                                      CFA      1524
                               75673              SX6    A7-B3       L.CFT = CI - C0                             CFA      1525
           645  5160000000 X                      SA6    L.CFT                                                   CFA      1526
                                                                                                                 CFA      1527
                                                  TRACE  FDG.X,OTI                                               CFA      1528
                          0400000564 +            EQ     FDG                                                     CFA      1529
                                                                                                                 CFA      1530
                                                  QUAL                                                           CFA      1531
                                                                                                                 CFA      1532
                                         DGS#     EQENT  /CODE/DGS                                               CCGNC     832
                                         CG$LABD  EQENT  /CODE/CG$LABD                                           CCG16     290
                                                  ENTRY  F$CFA                                                   CCGNC     833
                                                                                                                 CCGNC     834
           646                           F$CFA    END                                                            CCGNC     835
  
                             56300B CM  STORAGE USED             3194 STATEMENTS     1079 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.489 SECONDS         524 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW$            0   EXTERNAL*       6/03      6/14      7/08     12/07     12/08
        ATS$            0   EXTERNAL*       9/43     10/49     12/26     16/26     26/15     26/57     32/13     32/17
        BI.FLNP        22   GTX            11/01
        BI.RBP         73   GTX            11/01
        B1=1            0 
        CC$CBN          0   EXTERNAL*       6/15      6/35      8/11     10/37 S   21/05     21/56
        CC$OPF          0   EXTERNAL*       6/10 S
        CF.FROML       22   GTX            12/49     14/16     34/28     34/29
        CF.FROMP       36   GTX             7/13     10/30     12/56     13/51     14/33     34/46
                                           10/01     12/06     13/25     14/18     34/29
        CF.JPP         73   GTX            12/11     12/57     13/49
        CF.TOL         22   GTX            12/47     12/48     14/09
        CF.TOP          0   GTX            34/46
        CG$LABD        66   PROGRAM*       35/13 E   35/13 D
        DGS#           23   PROGRAM*       35/12 E   35/12 D
        EIB             5   CCGSCR         12/31 S   14/07
        EII             5   CCGSCR         15/06 S   16/27     27/04     32/26
        EI.NPP         36                  13/03     14/53     14/56
        EI.NSP          0                  14/51
        EI.PRIP        52                  14/38     14/56     16/49     20/33     21/33     22/42     27/47     29/42
        EI.SUIP        14                  10/16     13/27     14/51     14/53     18/42     19/38     24/45     34/35
        ETB             6   CCGSCR
        ET.JPP         73                  18/03     34/26
        ET.PREDP       36                  14/15     14/27     21/37     22/47     27/53     29/45     30/03
        ET.SUCCL       22                   9/54      9/55
        FTH            12   CCGSCR         17/52 S   20/06 S   20/56
        F$CFA         646   PROGRAM*       35/14 E   35/16 L
        F$RDT           0   EXTERNAL* 
        F.RDT           0   EXTERNAL* 
        GA.LBP         22                  22/21
        GB.NBP         22                  13/37
        GB.NLPP        44                  22/07
        GIC             0   EXTERNAL*       5/19 S    5/21      5/32      5/43 S
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        GIC#            0   EXTERNAL* 
        HO$DC           0   EXTERNAL*      10/04 S
        HO$IE           0   EXTERNAL*      10/44
        HR$LDC          0   EXTERNAL*      11/10
        HTL            10   CCGSCR         16/34 S   17/13
        I              15   CCGSCR          5/18 S    5/28
        ILB             7   CCGSCR          9/06     13/40 S   17/09     22/35     23/21     26/17     27/03     32/20
        IM.APP         72                  28/41     31/19     31/38
        IM.BIP         44                  23/37     23/50     32/31
        IM.BNP          0                  28/07
        IM.DOMP        70                  28/23     28/25     30/27
        IM.ENP         67                  22/37     28/07     28/15     28/36     30/49     31/08
        IM.HNP         66                  21/27     31/38
        IM.IBDP        22                  28/20     30/35
        IM.LNP         71                  19/55     21/18     21/27
        IM.SCRP        73                  32/31
        IP             14   CCGSCR         27/18 S   27/21
        IP.FTP         72                  21/03
        IP.GLP         73                  20/53
        IP.NIPP        44                  20/47
        IP.NODEP        0                  32/47
        IP.PBP         22                  21/07     32/47
        IT.             0   EXTERNAL* 
        I.BITNL        14 
        I.BITNP        60 
        I.BVIL         22 
        I.BVIP         14                  29/32     29/48     30/05     30/39
        I.GL       100000   GTX             7/15      7/16      8/12
        I.HNL          22 
        I.HNP          44                  18/17     19/19     22/51
        I.IAL          22 
        I.IAP          22                  18/24     19/28     21/39     22/49     22/51
        I.INHP         72                  18/21
        I.INIP         73                  18/21
        I.NIL          14 
        I.NIP           0 
        I.PCL          22 
        I.PCP           0 
        I.WIL          22 
        I.WIP          36                  26/23     30/44
        I.1PP          71                  16/47     19/47
        LB              1   CCGSCR          6/18 S    9/41 S   12/30 S   22/18
        LC              4   CCGSCR          9/37     12/16 S   32/14
        L$BST           0   EXTERNAL* 
        L$CFT           0   EXTERNAL* 
        L$GLT           0   EXTERNAL* 
        L$GST           0   EXTERNAL* 
        L$OTI           0   EXTERNAL* 
        L$RND           0   EXTERNAL* 
        L.BIT           0   EXTERNAL*      10/47
        L.BST           0   EXTERNAL* 
        L.CFT           0   EXTERNAL*       6/04 S    7/05 S    9/39 S   10/35 S   12/23     26/13 S   27/25 S   35/05 S
        L.GLT           0   EXTERNAL* 
        L.GST           0   EXTERNAL*       5/04      5/46 S    6/13 S   10/03 S   13/39 S   22/05 S
        L.LCT#          0   EXTERNAL*       9/40 S   20/52
        L.OTI           0   EXTERNAL*      23/20     34/06 S
        L.RND           0   EXTERNAL*      11/09 S   11/12 S   27/26 S
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    37
        SYMBOLIC REFERENCE TABLE. 
  
        MAX.GST      1400                   5/05
        M.GRL           0   EXTERNAL*       5/40     22/25
        M.GRL#          0   EXTERNAL* 
        M.LP            0   EXTERNAL*      22/10
        M.LP#           0   EXTERNAL* 
        NN             15   CCGSCR         29/07 S   30/56
        NPB             0   EXTERNAL*       6/22 S
        NPB#            0   EXTERNAL* 
        NPH            11   CCGSCR         18/12 S   20/25
        N.BLK           3   CCGSCR          6/21 S    9/50     13/35     26/14     32/35     34/11 S
                                            9/10     12/22     16/22     32/12     33/24
        N.DG            0   EXTERNAL*       5/07      6/34
        N.DG#           0   EXTERNAL* 
        N.FTH#          0   EXTERNAL*       9/42 S   20/57
        O$BST           0   EXTERNAL* 
        O$CFT           0   EXTERNAL* 
        O$GLT           0   EXTERNAL*       8/06
        O$GST           0   EXTERNAL* 
        O$OTI           0   EXTERNAL* 
        O$RND           0   EXTERNAL* 
        O$SYM           0   EXTERNAL* 
        O.BIT           0   EXTERNAL*       9/11      9/44     10/50
        O.BST           0   EXTERNAL* 
        O.CFT           0   EXTERNAL*      12/40     14/06     27/08
        O.GLT           0   EXTERNAL*       7/12
        O.GST           0   EXTERNAL*       5/12      9/05     13/34     26/16     32/21
                                            5/31      9/51     15/03     27/02
        O.IST           0   EXTERNAL*       5/25      5/44 S
        O.IST#          0   EXTERNAL* 
        O.OTI           0   EXTERNAL*      23/24     34/03
        O.RND           0   EXTERNAL* 
        O.SYM           0   EXTERNAL*       7/11      8/14
        PBN             0   CCGSCR          6/19 S    6/38 S   21/55
        SBD#            0   EXTERNAL*       5/24
        SCR            13   CCGSCR          6/30     22/06 S
        SHL#            0   EXTERNAL*      14/02
        SST#            0   EXTERNAL*      12/17
        S$IT            0   EXTERNAL* 
        WA.BNL         14   GTX             8/19
        Z$CFT           0   EXTERNAL*       7/08      9/43     12/07     12/08     26/15     32/17
        Z$GST           0   EXTERNAL*       6/03      6/14     12/26     16/26
        Z$OTI           0   EXTERNAL*      32/13
        Z$RND           0   EXTERNAL*      10/49     26/57
  
  
  
  
                                                  SYMBOL QUALIFIER =  CODE
  
  
        ABV           562   PROGRAM*       30/08     30/54     31/55 L
        ABV1          560   PROGRAM*       31/49 L   31/54     31/57
        AFT            46   PROGRAM*        6/11      7/07 L
        AFT0           45   PROGRAM*        7/04 L    7/34
        AFT1           55   PROGRAM*        7/21 L    7/36
        AFT2           56   PROGRAM*        7/24 L    7/31      7/43
        AFT3           57   PROGRAM*        7/19      7/28 L    7/30
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    38
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        CBD           430   PROGRAM*       24/23     26/11 L
        CBD1          437   PROGRAM*       26/28 L   26/48
        CBD11         503   PROGRAM*       28/43 L   28/51
        CBD12         506   PROGRAM*       27/33     29/06 L
        CBD14         517   PROGRAM*       29/40 L   31/04
        CBD15         522   PROGRAM*       29/52 L   29/56
        CBD16         524   PROGRAM*       30/02 L   30/10
        CBD17         527   PROGRAM*       29/57     30/14 L
        CBD18         530   PROGRAM*       30/17 L   30/18
        CBD19         542   PROGRAM*       30/50     30/56 L
        CBD2          441   PROGRAM*       26/33     26/36 L   26/46
        CBD20         550   PROGRAM*       31/21 L   31/24     31/36
        CBD21         552   PROGRAM*       31/26 L   31/35
        CBD3          443   PROGRAM*       26/41     26/44 L
        CBD4          455   PROGRAM*       27/14 L   27/23
        CBD5          457   PROGRAM*       27/21 L   28/37     28/38     28/53     31/09     31/22
        CBD6          463   PROGRAM*       27/19     27/32 L
        CBD7          466   PROGRAM*       27/45 L   28/31
        CBD8          470   PROGRAM*       27/53 L   28/03
        CBD9          474   PROGRAM*       28/09     28/14 L
        CGT             0   PROGRAM*        5/03 L    5/06      5/08      5/47      6/06
        CGT1            6   PROGRAM*        5/21 L    5/38
        CG$LABD        66   PROGRAM*        8/10 L    8/23     35/13
        DGS            23   PROGRAM*        6/08 L   35/12
        DGS0           20   PROGRAM*        6/03 L    6/31
        DGS1           36   PROGRAM*        6/30 L    6/43
        FDG           564   PROGRAM*        6/33     32/11 L   35/08
        FDG0          600   PROGRAM*       32/37 L   32/39
        FDG5          631   PROGRAM*       34/15 L   34/19
        FDG6          635   PROGRAM*       34/31 L   35/01
        FDG7          640   PROGRAM*       34/41 L   34/56
        FDG8          643   PROGRAM*       34/47     34/54 L
        FDG9          644   PROGRAM*       34/39     35/01 L
        FGS           147   PROGRAM*        6/24      6/41     10/38     12/04 L   15/09
        FGS0          170   PROGRAM*       12/52 L   12/54
        FGS1          173   PROGRAM*       13/05 L   13/15     13/20     13/30
        FGS1A         176   PROGRAM*       13/09     13/17 L
        FGS2          207   PROGRAM*       13/52 L   13/56
        FGS3          216   PROGRAM*       14/21 L   14/24     14/31     14/42
        FIS           232   PROGRAM*        6/25      6/42     10/39     16/21 L   27/28
        FISA          556   PROGRAM*       18/09     31/38 L
        FISB          557   PROGRAM*       16/43     31/39 L   31/39
        FIS1          243   PROGRAM*       16/49 L   17/01
        FIS1A         245   PROGRAM*       16/53     16/55 L
        FIS10         316   PROGRAM*       19/12     19/18     19/21     19/42     19/50     19/53     20/04     20/08 L
        FIS10A        317   PROGRAM*       18/45     20/14 L
        FIS11         321   PROGRAM*       20/16     20/24 L
        FIS11A        326   PROGRAM*       20/43     20/45 L
        FIS12         336   PROGRAM*       21/20 L   21/24     21/47
        FIS13         342   PROGRAM*       21/37 L   21/45
        FIS15         345   PROGRAM*       17/31     21/53 L
        FIS16         362   PROGRAM*       22/41 L   23/15
        FIS17         364   PROGRAM*       22/47 L   23/05
        FIS18         370   PROGRAM*       22/53     22/55     23/03 L
        FIS19         371   PROGRAM*       22/45     23/07 L
        FIS2          250   PROGRAM*       17/13 L   20/50     21/29
        FIS20         374   PROGRAM*       23/09     23/20 L
1       CFA - CONTROL FLOW ANALYSIS ROUTINES                          COMPASS 3.7-871.     24/05/02. 13.13.17.      PAGE    39
        SYMBOLIC REFERENCE TABLE.                                     CODE
  
        FIS21         377   PROGRAM*       23/30 L   23/43
        FIS22         400   PROGRAM*       23/34 L   23/42
        FIS23         403   PROGRAM*       23/22     23/49 L
        FIS24         404   PROGRAM*       23/52 L   24/08
        FIS25         405   PROGRAM*       23/56 L   24/07
        FIS26         410   PROGRAM*       23/45     24/15 L
        FIS27         411   PROGRAM*       24/17 L   24/22     25/16
        FIS28         414   PROGRAM*       24/19     24/27 L   25/13
        FIS29         416   PROGRAM*       24/34 L   25/08
        FIS3          252   PROGRAM*       17/20 L   17/23     17/26     17/29
        FIS30         421   PROGRAM*       24/49 L   24/54
        FIS31         424   PROGRAM*       24/39     24/51     25/05 L
        FIS32         427   PROGRAM*       25/09     25/15 L
        FIS4          256   PROGRAM*       17/22     17/31 L
        FIS4A         261   PROGRAM*       17/43 L   17/47
        FIS5          272   PROGRAM*       18/40 L   20/19
        FIS6          274   PROGRAM*       18/47 L   20/10
        FIS7          302   PROGRAM*       18/54     19/16 L
        FIS8          304   PROGRAM*       19/02     19/25 L   19/49
        FIS9          313   PROGRAM*       18/53     19/52 L
        FTT1          602   PROGRAM*       32/45 L   33/19
        FTT2          606   PROGRAM*       32/50     33/04 L   33/18
        FTT3          610   PROGRAM*       33/05     33/10 L
        FTT4          611   PROGRAM*       33/02     33/08     33/16 L
        FTT5          615   PROGRAM*       33/31 L   33/37
        FTT6          617   PROGRAM*       33/32     33/36 L
        FTT7          621   PROGRAM*       33/46 L   33/53
        FTT8          623   PROGRAM*       33/47     33/52 L
        LABD1          65   PROGRAM*        8/06 L    8/13
        MRB            74   PROGRAM*        6/26      9/04 L    9/36     10/45     11/13
        MRB1          101   PROGRAM*        9/16 L    9/30
        MRB2          102   PROGRAM*        9/21 L    9/29
        MRB3          121   PROGRAM*       10/09 L   10/14
        MRB4          122   PROGRAM*       10/05     10/13 L   10/31
        MRB5          124   PROGRAM*       10/20 L   10/25
        MRB6          126   PROGRAM*       10/11     10/27 L
        MRB8          140   PROGRAM*       10/55 L   11/06
        MRB9          142   PROGRAM*       10/57     11/05 L
        T.NBNL         36                  32/09 D
        T.NBNP          0                  32/09 D
        T.NNL          36                  32/08 D
        T.NNP          36                  32/08 D   32/57     33/28     33/48     34/04     34/07     34/27
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      363              IDENT  UDT
                        363              F$UDT    END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       363 
                                        BVINFO    COMMON          0         4 
  
  
                                        ENTRY POINTS. 
  
                                        B=UDT            0+           CMR#           216+           F$UDT          363+ 
                                        CG$INIT          0+           CG$CPL         252+ 
                                        AUT#           101+           PBB#           316+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O$BST     O$RXI     O$SYM     M.BBL#    Z$UDI     SYS=      ATS$      HO$LCM
                                        L$BST     L$RXI     Z$BST     Z$IOL     ISC=      CIO=      Z$TXT 
                                        O$IOL     O$TXT     Z$RXI     N$FPS     HO$OBL    F.OPT     CWS#
                                        L$IOL     L$TXT     F.MEM     SHL#      LM#       CC$FT     THRESH# 
                                        O$LBT     O$UDI     SMB#      Z$MOD     IMPA#     CC$PC     ATSTOG# 
                                        L$LBT     L$UDI     CC$XR     CC$OPF    CP.AFLL   CC$BLEN   ATSNAT# 
                                        O$RND     F$RDT     L.PTXT#   ADW$      CO.EC     CC$LBO    HO$OPT
                                        L$RND     S$IT      MVE=      Z$CFT     MAX.LCM   F$LBT     LCM#G 
  
  
  
  
                                                  IDENT  UDT                                                     UDT         2
                                                                                                                 SSTCALL     2
             0                                    CCG.SST                                                        SSTCALL     3
                                                  LIST   F                                                       SSTCALL     4
                                                                                                                 SSTCALL     5
             0                           B=UDT    RPVDEF                                                         UDT         5
  
  
                                        **        UDT - USE/DEF TABLE INITIALIZATION                             UDT        11
                                        *                                                                        UDT        12
                                        *         MISCELLANEOUS ROUTINES FOR THE PREPROCESSING PHASE OF OPT=2 .  UDT        13
  
  
                                                  LIST   -R                                                      UDT        15
                                                                                                                 UDT        16
                                                  TABLES (BST,IOL,LBT,RND,RXI,TXT,UDI)                           CCGNC     836
                                                                                                                 UDT        18
                                                  ECHO   4,A=(BIT,BVT),B=(BST,RXI)                               UDT        19
                                                  EXT    Z$B                                                     CCGNC     837
                                         Z$A      EQU    Z$B                                                     CCGNC     838
                                         O.A      EQU    O.B                                                     UDT        22
                                         L.A      EQU    L.B                                                     UDT        23
  
  
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     2
  
  
                                                  EXT    F.MEM                                                   CCG18     183
                                   0 X   O.UDB    EQU    F.MEM                                                   CCG18     184
                                                                                                                 UDT        28
                                                  USE    /BVINFO/                                                UDT        29
             0                     1     VL       BSS    1           BIT VECTOR LENGTH                           UDT        30
             1                     1     N.VAR    BSS    1           N.VARIABLES IN *UDT*                        UDT        31
             2                     1     BVL      BSS    1           VL - 1                                      UDT        32
             3                     1     RCV      BSS    1           =1 IF REFERENCED COMMON VARIABLES           UDT        33
                                                  USE    0                                                       UDT        34
                                                                                                                 UDT        35
                                        *         BLOCK HEADER TRAILER WORD DEFINTIONS                           UDT        36
                                                                                                                 UDT        37
                                   0     BH.LENP  EQU    0                                                       UDT        38
                                  44     BH.BIP   EQU    36                                                      UDT        39
                                   0     BT.LENP  EQU    0                                                       UDT        40
                                                                                                                 UDT        41
             0                           CFTBLD   CTEXT  CFTBLD - CONTROL FLOW TABLE DEFINITIONS                 CFTBLD      2
                                                                                                                 UDT        43
                                                  LIST   X                                                       UDT        44
                                                                                                                 UDT        45
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     3
        UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS                     UDTBLD
  
             0                           UDTBLD   CTEXT  UDTBLD - USE/DEF TABLE FORMAT DEFINITIONS               UDTBLD      2
                                                                                                                 UDTBLD      3
                                        **        UA. - FORMAT OF USE/DEF INDEX TABLE DURING CHAINING PHASE      UDTBLD      4
                                                                                                                 UDTBLD      5
                                                  DESCRIBE UA.,60                                                UDTBLD      6
                                                  DEFINE 5                                                       UDTBLD      7
      L     66  01000000000000000000     CR       DEFINE 1                                                       UDTBLD      8
      L     44  00777777000000000000     HL       DEFINE 18          HASH LINK                                   UDTBLD      9
      L     22  00000000777777000000     CA       DEFINE 18          BIAS ( IF CR " 0, THEN CA = -0 )            UDTBLD     10
             0  00000000000000777777     IH       DEFINE 18          BASE ( SYMBOL ORDINAL )                     UDTBLD     11
                                                                                                                 UDTBLD     12
             0  00000000777777777777     CAIH     DEQU   IH,36                                                   UDTBLD     13
  
  
                                        **        UD. - FORMAT OF USE/DEF TABLE AFTER CHAINING                   UDTBLD     15
                                        *                                                                        UDTBLD     16
                                        *         ENTRY  0 - SPOIL ENTRY ( NO OPTIMIZATION POSSIBLE )            UDTBLD     17
                                        *                1 - LOAD ONLY VARIABLES ( A0+K )                        UDTBLD     18
                                        *                                                                        UDTBLD     19
                                        *         WORD 2 = 12/P(BITN),30/,18/WI ( WORD INDEX )                   UDTBLD     20
                                                                                                                 UDTBLD     21
                                                  DESCRIBE UD.,60                                                UDTBLD     22
      L     73  40000000000000000000     DEFR     DEFINE 1           DEFINED IN REGION                           UDTBLD     23
      L     72  20000000000000000000     DEF      DEFINE 1           IH/CA DEFINED IN BLOCK                      UDTBLD     24
      L     71  10000000000000000000     DBU      DEFINE 1           DEFINITION BEFORE USE                       UDTBLD     25
      L     70  04000000000000000000     USE      DEFINE 1           USE                                         UDTBLD     26
      L     67  02000000000000000000     ^RD      DEFINE 1           NOT RECURSIVELY DEFINED                     UDTBLD     27
      L     66  01000000000000000000     IST      DEFINE 1           INTERFERING STORE ( RJX, ETC. )             UDTBLD     28
                                                                                                                 UDTBLD     29
      L     55  00777000000000000000     STC      DEFINE 9           STORE COUNT                                 UDTBLD     30
      L     54  00000400000000000000     RF       DEFINE 1           SHORT USAGE IN A LOOP                       FCC1504X    7
      L     53  00000200000000000000     FP       DEFINE 1           IH/CA IS A F.P.                             UDTBLD     31
      L     52  00000100000000000000     COM      DEFINE 1           IH/CA IS IN COMMON                          UDTBLD     33
                                                  DEFINE 4                                                       CCG1        1
      L     24  00000003777774000000     BMI      DEFINE 18          INDEX TO BASE MEMBER ( CM " 0 )             UDTBLD     35
      L     23  00000000000002000000     CM       DEFINE 1           CLASS MEMBER ( NON BASE MEMBER OF EQV CLASS UDTBLD     36
      L     22  00000000000001000000     CR       DEFINE 1           CLASS REPRESENTATIVE                        UDTBLD     37
             0  00000000000000777777     ECL      DEFINE 18          EQUIV CHAIN LINK ( TO NEXT ON CHAIN )       UDTBLD     38
                                                                                                                 UDTBLD     39
      L     72  60000000000000000000     DEFB     DEQU   DEF,2       DEF BITS ( REGION AND BLOCK )               UDTBLD     40
      L     70  34000000000000000000     MV       DEQU   USE,3       MARKED VARIABLE ( USE, DBU, DEF )           UDTBLD     41
      L     22  00000000000003000000     CB       DEQU   CR,2        CLASS BITS                                  UDTBLD     42
      L     55  00003000000000000000     SMS      DEQU   STC,2       STORE MOTION SPOIL FOR VARS DEF IN INNERLP  UDTBLD     43
  
  
                                        **        R2. - FORMAT OF *R2* WORD OF *BOS* OF BLOCK WRITTEN TO MASS    UDTBLD     45
                                        *                STORAGE                                                 UDTBLD     46
                                                                                                                 UDTBLD     47
                                                  DESCRIBE R2.,60                                                UDTBLD     48
      L     73  40000000000000000000     UXR      DEFINE 1           =1 IF USER EXT REFS IN BLOCK                UDTBLD     49
      L     72  20000000000000000000     LONG     DEFINE 1           =1 IF INDEX VARIABLE IS LONG ( 21 BIT ARIT  CCG21       5
                                                  DEFINE 16                                                      CCG21       6
      L     22  00000077777777000000     MRA      DEFINE 24          MACHINE REGISTERS AVAIL                     UDTBLD     51
             0  00000000000000777777     TXTL     DEFINE 18          *TXT* LENGTH OF BLOCK                       UDTBLD     52
                                                                                                                 UDTBLD     53
                                                  ENDX                                                           UDTBLD     54
                                                  LIST   R                                                       UDT        47
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     4
        CG$INIT - INITIALIZE *CCG*                                    CG$INIT 
  
                                        **        CG$INIT - INITIALIZE *CCG* PROCESSING                          CCGNC     840
                                        *                                                                        CCG4       78
                                        *         ENTRY  HOST COMPILER STATIC TABLES INITIALIZED IN HIGH CORE    CCG4       79
                                        *                (X1) = *LBT* ORDINAL OF BLOCK THAT *SLIST* IS IN.       CCG4       80
                                                                                                                 CCG4       81
             0                           CG$INIT  ENTRY. **                                                      CCGNC     841
                                         .T       IFNE   TEST,0                                                  CCGNC     842
                                                  SX7    =XCG$PTC                                                CCGNC     843
                                                  SA7    =XHO$RDR    HO$RDR = LOCF(CG$PTC)                       CCGNC     844
                                         .T       ENDIF                                                          CCG4       88
                                         .LCM     IFNE   .DAL,0                                                  CCG21      74
             1  5120000000 X                      SA2    =XHO$LCM                                                CCG21      75
                          0322000003 +            PL     X2,INIT0    IF NOT LCM=G                                CCG21      76
             2  76610                             SX6    B1                                                      CCG21      77
                     20675                        LX6    D.L2P+59-D.STP                                          CCG35      70
                          5160000000 X            SA6    =XLCM#G           */  SET FLAG FOR *SQZ*                CCG21      79
             3                           INIT0    BSS    0                                                       CCG21      80
                                         .LCM     ENDIF                                                          CCG21      81
                                                                                                                 CCG4       89
                                        *         INITIALIZE TABLE MANAGER, ALLOCATE SPACE FOR *TXT*             CCG4       90
                                                                                                                 CCG4       91
             3  5120000000 X                      SA2    =XHO$OPT                                                CCGA025    11
                          0332000007 +            MI     X2,INIT0A   IF OPT = 2                                  CCGA025    12
             4  7160000007                        SX6    7                                                       CCGA025    13
                          5160000000 X            SA6    =XATSNAT#   NUMBER OF OPT1 *ACTIVE* TABLES              CCGA025    14
             5  7160000000                        SX6    0                                                       CCGA025    15
                          5160000000 X            SA6    =XATSTOG#   DONT TOGGLE                                 CCGA025    16
             6  7160001000                        SX6    1000B                                                   CCGA025    17
                          5160000000 X            SA6    =XTHRESH#   TABLE MANAGER SLOP                          CCGA025    18
                                                                                                                 CCGA025    19
             7                           INIT0A   BSS    0                                                       CCGA025    20
                                                  IFNE   HC.2OC,0,2                                              CCG16     291
                                                  SX6    O.UDB                                                   CCG16     292
                                                  SA6    =XLM#       LM = O.UDB                                  CCG16     293
             7  10011                             BX0    X1                                                      CCG4       92
                     0100000000 X                 CALL   CWS#                                                    CCGNC     845
            10  21602                             AX6    2                                                       CCG4       94
                     73160                        ALLOC  TXT,X6      ALLOC( TXT , CWS/4 )                        CCG4       95
            12  7160000004                        SX6    4                                                       CCG4       96
                          54630                   SA6    A3          L.TXT = 4                                   CCG4       97
            13  5110000000 X                      SA1    =XHO$OPT                                                CCGA011   112
                                                                                                                 CCG4       98
                                        *         INITIALIZE FLAGS FOR BLOCK PROCESSING                          CCG8      182
                                                                                                                 CCG8      183
                          10600                   BX6    X0                                                      CCGA025    21
            14  5240000000 X                      SA4    =XF$LBT+X0  GET INITIAL LENGTH OF BLOCK                 CCG31       2
                          73740                   SX7    X4                                                      CCG8      188
            15  5160000000 X                      SA6    =XCC$LBO    CC$LBO = PARAM                              CCGNC     846
                          5170000000 X            SA7    =XCC$BLEN                                               CCGNC     847
            16  21422                             AX4    18                                                      CCG8      191
                     73640                        SX6    X4                                                      CCG8      192
                          5160000000 X            SA6    =XCC$PC                                                 CCGNC     848
                                                                                                                 CCG4      119
            17  0321000067 +                      PL     X1,INIT2    IF HO$OPT " 2                               CCGNC     850
                                                                                                                 CCG4      122
                                        *         INITIALIZE TABLES FOR OPT=2                                    CCG4      123
                                        *         ALLOCATE AND CLEAR A BASE TABLE FOR *UDI*                      CCG4      124
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     5
        CG$INIT - INITIALIZE *CCG*                                    CG$INIT 
  
                                                                                                                 CCG4      125
                          5110000000 X            SA1    =XCC$FT                                                 CCG11     140
            20  0311000052 +                      NZ     X1,INIT1    IF CC$FT " 0  */ NOT FIRST TIME             CCG11     141
                          76610                   SX6    B1                                                      CCG11     142
                               54610              SA6    A1          CC$FT = 1                                   CCG11     143
            21  7120000000 X                      CLOSE  =XF.OPT,UNLOAD,RCL  ENSURE NO FILE FROM PREV. STEP      CCG35      71
                                                                                                                 CCGA012    10
                                        *         REQUEST ECS FL FOR OPT=2.                                      CCGA012    11
                                                                                                                 CCGA012    12
                                         #ECS     IFNE   CT.ECS,0                                                CCGA012    13
                                                                                                                 CCGA012    14
                                         #OS      IFEQ   .OS,2       IF SCOPE 2                                  CCGA012    15
                                                  MEMORY LCM,INITA,R                                             CCGA012    16
                                                  SA1    INITA                                                   CCGA012    17
                                                  BX6    X1                                                      CCGA012    18
                                                  AX1    30                                                      CCGA012    19
                                                  LX6    59-1        1S59 IF LCM REDUCE MODE                     CCGA012    20
                                                  PL     X6,INIT05   IF FIXED ECS FL MODE                        CCGA012    21
                                                  SX7    30000B                                                  CCGA012    22
                                         #OS      ELSE                                                           CCGA012    23
            23  7160150515                        MEMORY LCM,INITB,R                                             CCGA012    24
            27  5110000100 +                      SA1    INITB                                                   CCGA012    25
                          5120000000 X            SA2    =XMAX.LCM                                               CCGA012    26
            30  21136                             AX1    30          MAX OBTAINABLE LCM                          CCGA012    27
                     10011                        BX0    X1                                                      CCGA012    28
                          37602                   MX6    X0-X2                                                   CCGA012    29
                                         .FTN     IFEQ   HC.ID,2     IF FTN HOST                                 F1037CC    42
            32  5110000000 X                      SA1    =XCO.EC                                                 F1037CC    43
                          21173                   AX1    59                                                      F1037CC    44
                               11616              BX6    X1*X6       ALLOW ECS USE IFF EC ON                     F1037CC    45
                                         .FTN     ENDIF                                                          F1037CC    46
            33  54620                             SA6    A2          MAX.LCM = MIN(MAX OBT.,200000B)             CCGA012    30
                     7160150515                   MEMORY LCM,INITA,R                                             CCGA012    31
            37  5110000077 +                      SA1    INITA                                                   CCGA012    32
                          21136                   AX1    30          CURRENT LCM                                 CCGA012    33
            40  5120000000 X                      SA2    MAX.LCM                                                 CCGA012    34
                          7160030000              SX6    30000B                                                  CCGA012    35
            41  37726                             MX7    X2-X6       REQUEST MIN(MAX.LCM,30000B)                 CCGA012    36
                                                                                                                 CCGA012    37
                                         #OS      ENDIF                                                          CCGA012    38
                     37317                        IX3    X1-X7                                                   CCGA012    39
                          20736                   LX7    30                                                      CCGA012    40
            43  0323000051 +                      PL     X3,INIT05   IF WE ALREADY HAVE 30K ECS                  CCGA012    41
                          5170000077 +            SA7    INITA                                                   CCGA012    42
            44  7160150515                        MEMORY LCM,INITA,R,,NOABT      REQUEST 30K                     CCGA012    43
            50  5110000077 +                      SA1    INITA                                                   CCGA012    44
                          21136                   AX1    30                                                      CCGA012    45
                                                                                                                 CCGA012    46
            51  10711                    INIT05   BX7    X1                                                      CCGA012    47
                     5170000000 X                 SA7    =XCP.AFLL                                               CCGA012    48
                                         #ECS     ENDIF                                                          CCGA012    49
                                                                                                                 CCG11     145
            52  0100000000 X             INIT1    CALL   IMPA#       INITIALIZE MASS I/O PROCESSING              CCG11     146
            53  5150000000 X                      SA5    =XLM#                                                   CCGNC     852
                          7110000101 X            SX1    =XHO$OBL+101B     S = 101B + HO$OBL                     CCGNC     853
            54  5100000000 X                      ALLOC  TXT,X1      ALLOC( TXT , S )                            CCG4      128
            55  36615                             IX6    X1+X5                                                   CCG4      129
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     6
        CG$INIT - INITIALIZE *CCG*                                    CG$INIT 
  
                     54650                        SA6    A5          LM = LM + S                                 CCG4      130
                          7170000004              SX7    4                                                       CCG4      131
            56  54620                             SA6    A2          O.TXT = LM                                  CCG4      132
                     54730                        SA7    A3          L.TXT = 4                                   CCG4      133
                          43600                   SETZERO X5,100B    SETZERO( UDB , 100B )                       CCG4      134
            60  76111                             ALLOC UDI,2        ALLOC( UDI , 2 )                            CCG4      135
                                                                                                                 CCG4      136
            62  7110000004                        ALLOC  BST,4       ALLOC( BST , 4 )                            CCG4      137
            64  76110                             SX1    B1                                                      CCG4      138
                     76211                        SX2    B1+B1                                                   CCG4      139
                          20136                   LX1    CF.FROMP                                                CCG4      140
                                                  LX2    CF.TOP                                                  CCG4      141
                               12112              BX1    X1+X2                                                   CCG4      142
            65  5100000000 X                      ADDWRD CFT,X1      ADDWRD CFT , (1,2) )                        CCG4      143
            66  43600                             MX6    0                                                       CCG27     106
                     5160000000 X                 SA6    =XCC$OPF    CC$OPF = 0                                  CCG27     107
                                                                                                                 CCG4      147
                                        *         SETUP *BOS*"S AT THE BEGINNING OF *TXT* AND *MOD*              CCG4      148
                                                                                                                 CCG4      149
                                         SBOS     MACRO                                                          CCG4      150
                                                  SA4    F.RDT+OC.BOS                                            CCGNC     854
                                                  R=     B2,OC.BOS                                               CCG4      152
                                                  MX7    0                                                       CCG4      153
                                                  PX6    B2,X7                                                   CCG4      154
                                                  SA6    X2                                                      CCG4      155
                                                  SA7    X2+B1                                                   CCG4      156
                                                  BX6    X4                                                      CCG4      157
                                                  SA6    A7+B1                                                   CCG4      158
                                                  SA7    A6+B1                                                   CCG4      159
                                                  ENDM                                                           CCG4      160
                                                                                                                 CCG4      161
            67  5120000000 X             INIT2    SA2    =XO.TXT                                                 CCG4      162
                          5140000001 X            SBOS                                                           CCG4      163
            72  7110000004                        ALLOC  MOD,4       ALLOC( MOD , 4 )                            CCG4      164
            74  5140000001 X                      SBOS                                                           CCG4      165
                          0400000000 +            EQ     CG$INIT                                                 CCGNC     855
                                                                                                                 CCGA012    50
            77                     1     INITA    BSSZ   1                                                       CCGA012    51
           100  77777777760000000000     INITB    VFD    30/-1,30/0                                              CCGA012    52
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     7
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                                        **        AUT - ADJUST USE/DEF INEX TABLE TO BRING TO WORKING FORM       UDT        49
                                        *         SORT TABLE BY [IH,CR] TO CHAIN CLASS"S AND EXPAND TO 2 WDS/ENT UDT        50
                                                                                                                 UDT        51
                                        *         I. - TEMP SORT TABLE FORMAT                                    UDT        52
                                                                                                                 UDT        53
                                                  DESCRIBE I.,60                                                 UDT        54
                                                  DEFINE 12                                                      UDT        55
      L     36  00007777770000000000     IH       DEFINE 18                                                      UDT        56
                                                  DEFINE 11                                                      UDT        57
      L     22  00000000000001000000     CR       DEFINE 1                                                       UDT        58
      L      0  00000000000000777777     UI       DEFINE 18                                                      UDT        59
                                                                                                                 UDT        60
           101                           AUT      ENTRY. **,#                                                    CCGNC     856
           102  5150000000 X                      SA5    L.UDI                                                   UDT        62
                          7275777775              SX7    X5-2                                                    UDT        63
           103  0317000105 +                      NZ     X7,AUT0     IF L.UDI " 2  */ TABLE NON-EMPTY            UDT        64
                          76110                   ADDWRD UDI,1       ADDWRD( UDI , 1 )  */ DUMMY ENTRY           UDT        65
           105                           AUT0     BSS    0                                                       UDT        66
                                         .T       IFNE   TEST,0                                                  FCCT005     5
                                                  SA1    =XHO$SNAP                                               CCGNC     857
                                                  LX1    1R2                                                     FCCT005     7
                                                  PL     X1,AUTT     IF SNAP=2 NOT SELECTED                      FCCT005     8
                                                  DCALL  DMPUDI,([O.UDI],L.UDI)    PRINT SYMBOL DICTIONARY       UDT        68
                                         AUTT     BSS    0                                                       FCCT005     9
                                         .T       ENDIF                                                          FCCT005    10
           105  5150000000 X                      SA5    L.UDI                                                   UDT        70
                          10655                   BX6    X5                                                      UDT        71
                               20501              LX5    1                                                       UDT        72
           106  5160000001 C                      SA6    N.VAR       N.VAR = L.UDI                               UDT        73
                          7215000003              ALLOC  UDI,X5+3    ALLOC( UDI , 2*N.VAR + 3 )                  UDT        74
           110  6126777775                        SB2    B6-2        N = OLD(L.UDI-2)                            UDT        75
                          10655                   BX6    X5                                                      UDT        76
                               54630              SA6    A3          L.UDI = 2*N.VAR  */ EXTRA SPACE FOR SORT ON UDT        77
           111  63321                             SB3    X2+B1                                                   UDT        78
                     63753                        SB7    B3+X5       T0 = O.UDI+1 + 2*N.VAR                      UDT        79
                          76010                   SX0    B1                                                      UDT        80
                               43700              MX7    0                                                       UDT        81
           112  5252000002                        SA5    X2+2        UI = O.UDI + 2                              UDT        82
                          20066                   LX0    UA.CRP                                                  UDT        83
                               66411              SB4    B1+B1                                                   UDT        84
           113  57771                             SA7    B7-B1       TI = T0 - 1;  [TI] = 0                      UDT        85
                     76444                        SX4    B4+B4       I = 4                                       UDT        86
                          7112000000              SX1    B2+                                                     UDT        87
                                                                                                                 UDT        88
                                        *         FORM SORT TABLE SO AS TO GROUP BY *IH"S*                       UDT        89
                                                                                                                 UDT        90
           114  11305                    AUT1     BX3    X0*X5                                                   UDT        91
                                                  LX5    -UA.IHP                                                 UDT        92
                     20330                        LX3    I.CRP-UA.CRP                                            UDT        93
                          73250                   SX2    X5                                                      UDT        94
                               36634              IX6    X3+X4       SW = ITF(IH,CR,I)                           UDT        95
           115  20236                             LX2    I.IHP                                                   UDT        96
                     54551                        SA5    A5+B1       UI = UI + 1                                 UDT        97
                          12726                   BX7    X2+X6                                                   UDT        98
                               67221              SB2    B2-B1       N = N - 1                                   UDT        99
           116  73444                             SX4    X4+B4       I = I + 2                                   UDT       100
                     54771                        SA7    A7+B1       TI = TI + 1;  [TI] = SW                     UDT       101
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     8
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                          0520000114 +            NZ     B2,AUT1     IF N " 0                                    UDT       102
                                                                                                                 UDT       103
           117  54070                             SA0    A7          TL = TI                                     UDT       104
                     0100000000 X                 CALL   SHL#        SORT( UDI , [IH,CR,I] )                     CCGNC     858
  
  
  
                                        *         NOW SETUP FINAL FORM OF USE/DEF INDEX TABLE WHERE ALL          UDT       107
                                        *         CLASS MEMBERS POINT TO THEIR BASE MEMBER AND THE MEMBERS OF    UDT       108
                                        *         THE CLASS ARE CHAINED FROM THE BASE MEMBER TO THE CLASS.       UDT       109
                                                                                                                 UDT       110
           120  5120000000 X                      SA2    O.UDI                                                   UDT       111
                          5130000000 X            SA3    O.SYM                                                   CCGNC     859
           121  76010                             SX0    B1                                                      UDT       113
                     5110000135 +                 SA1    AUTA                                                    UDT       114
                               20022              LX0    I.CRP                                                   UDT       115
           122  54500                             SA5    A0          TI = TL                                     UDT       116
                     63220                        SB2    X2                                                      UDT       117
                          6243000001              SB4    X3+1                                                    CCG1      380
           123  6160000035                        SB6    I.IHP-1                                                 UDT       119
                          76310                   SX3    B1                                                      FCC0807    17
                               20322              LX3    WB.LOCFP                                                CCG1      381
                                                                                                                 UDT       120
           124  0305000136 +             AUT2     ZR     X5,AUT4     IF [TI] = 0   */ END OF TABLE               UDT       121
                          11705                   BX7    X0*X5       C = CR[TI]                                  UDT       122
                               73650              SX6    X5          I = UI[TI]                                  UDT       123
           125  23565                             AX5    B6,X5                                                   UDT       124
                     63354                        SB3    B4+X5       IHB = IH[TI]                                CCG1      382
                                                  LX7    UD.CRP-I.CRP                                            UDT       126
                          21501                   AX5    1                                                       CCG1      383
                               53253              SA2    B3+X5       WORDB = SYM(3*IHB+1)                        CCG1      384
           126  11532                             BX5    X3*X2                                                   CCG1      385
                     20571                        LX5    WB.COMP-WB.LOCFP                                        CCG1      386
                          11412                   BX4    X1*X2                                                   CCG1      387
                               12445              BX4    X4+X5       COM = COM ! LOCF                            CCG1      388
           127  20433                             LX4    UD.COMP-WB.COMP                                         CCG1      389
                     55551                        SA5    A5-B1       TI = TI - 1                                 UDT       130
                          22207                   LX2    X7                                                      UDT       131
                               12747              BX7    X4+X7                                                   UDT       132
           130  53762                             SA7    B2+X6       UDI(I) = UDIT(COM,C,0,0,0);  UL = UDI(I)    UDT       133
                     0302000124 +                 ZR     X2,AUT2     IF C = 0      */ NOT A CLASS REP            UDT       134
                                                                                                                 UDT       135
                                        *         CHAIN CLASS MEMBERS FROM BASE, AND POINT THEM TO THE BASE MEMB UDT       136
                                                                                                                 UDT       137
                               20201              LX2    UD.CMP-UD.CRP                                           UDT       138
           131  12424                             BX4    X2+X4                                                   UDT       139
                     20624                        LX6    UD.BMIP                                                 UDT       140
                          36646                   IX6    X4+X6                                                   UDT       141
                                                                                                                 UDT       142
           132  23465                    AUT3     AX4    B6,X5                                                   UDT       143
                     63744                        SB7    X4+B4                                                   CCG20      33
                          0573000124 +            NE     B7,B3,AUT2  IF IH[TI] " IHB                             UDT       145
           133  73250                             SX2    X5          J = UI[TI]                                  UDT       146
                     55551                        SA5    A5-B1       TI = TI - 1                                 UDT       147
                                                  LX2    UD.ECLP                                                 UDT       148
                          12727                   BX7    X2+X7       ECL[UL] = J   */ LINK LAST TO THIS          UDT       149
                               54770              SA7    A7                                                      UDT       150
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE     9
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                                                  LX2    -UD.ECLP                                                UDT       151
           134  10766                             BX7    X6                                                      UDT       152
                     53722                        SA7    B2+X2       UDI(J) = UDIT(COM,0,I,0);  UL = UDI(J)      UDT       153
                          0400000132 +            EQ     AUT3                                                    UDT       154
                                                                                                                 UDT       155
           135                           AUTA     BFMW   WB,(FP,COM)                                             CCG1      390
  
  
  
                                        *         FORM "SPOIL" BIT VECTOR FOR COMMON VARIABLES                   UDT       158
                                                                                                                 UDT       159
           136  5150000001 C             AUT4     SA5    N.VAR                                                   UDT       160
                          7120000074              SX2    60                                                      UDT       161
           137  7215000071                        SX1    X5+57                                                   UDT       162
                          27101                   IX7    X1/X2       L = (N.VAR+57) / 60                         UDT       163
                     22217                        LX2    B1,X7                                                   UDT       164
                          5170000000 C            SA7    VL          VL = L                                      UDT       165
           142  7267777776                        SX6    X7-1                                                    UDT       166
                          5160000002 C            SA6    BVL         BVL = L - 1                                 UDT       167
           143  20702                             LX7    2                                                       UDT       168
                     36127                        IX1    X2+X7                                                   UDT       169
                          5100000000 X            ALLOC  BVT,X1      ALLOC( BVT , 6*L )                          UDT       170
                                                                                                                 UDT       171
           145  5140000000 X                      SA4    O.UDI                                                   UDT       172
                          6225777775              SB2    X5-2        N = N.VAR - 2                               UDT       173
           146  67401                             SB4    -B1                                                     UDT       174
                     66600                        SB6    B0          BITN = 0                                    UDT       175
                          6170000074              SB7    60                                                      UDT       176
           147  43700                             MX7    0           WI = 0                                      UDT       177
                     27747                        PX7    B4,X7                                                   UDT       178
                          43606                   MX6    -UD.ISTP                                                UDT       179
                               53640              SA6    X4          UDI(0) = (DEFR,DEF,^RD,IST)                 UDT       180
           150  53741                             SA7    X4+B1       UDI(1) = PACK(-1,0) */ NO REP IN BIT VECT   UDT       181
                     5274000003                   SA7    X4+3        UDI(3) = PACK(-1,0) */ FOR FIRST 2 ENTRIES  UDT       182
                               43600              MX6    0           SV = 0                                      UDT       183
           151  55671                             SA6    A7-B1       UDI(2) = 0                                  UDT       184
                     7100000001                   SX0    1                                                       UDT       185
                               54571              SA5    A7+B1       UI = UDI(4)                                 UDT       186
           152  43100                             MX1    0           SVS = 0       */ SPOIL VECTOR SUM           UDT       187
                     20052                        LX0    UD.COMP                                                 UDT       188
                          6130000052              SB3    UD.COMP     J = 0                                       UDT       189
                                                                                                                 UDT       190
           153  27767                    AUT5     PX7    B6,X7                                                   UDT       191
                     11405                        BX4    X0*X5                                                   UDT       192
                          54751                   SA7    A5+B1       US = UI + 1;  [US] = PACK(BITN,WI)          UDT       193
                               67221              SB2    B2-B1       N = N - 1                                   UDT       194
           154  23334                             AX3    B3,X4       SV = SV ! SHIFT(1,COM[UI])                  UDT       195
                     67331                        SB3    B3-B1       J = J - 1                                   UDT       196
                          12636                   BX6    X3+X6                                                   UDT       197
                               54571              SA5    A7+B1       UI = US + 1                                 UDT       198
           155  66661                             SB6    B6+B1       BITN = BITN + 1                             UDT       199
                     0420000157 +                 ZR     B2,AUT6     IF N = 0                                    UDT       200
           156  0767000153 +                      LT     B6,B7,AUT5  IF BITN < 60                                UDT       201
                          6130000052              SB3    UD.COMP                                                 UDT       202
                                                                                                                 UDT       203
           157  53620                    AUT6     SA6    X2          [BI] = SV                                   UDT       204
                     12116                        BX1    X1+X6       SVS = SVS ! SV                              UDT       205
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    10
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                          73221                   SX2    X2+B1       BI = BI + 1                                 UDT       206
                               66600              SB6    B0          BITN = 0                                    UDT       207
           160  43600                             MX6    0           SV = 0                                      UDT       208
                     73771                        SX7    X7+B1       WI = WI + 1                                 UDT       209
                          0520000153 +            NZ     B2,AUT5     IF N " 0                                    UDT       210
                                                                                                                 UDT       211
           161  47711                             CX7    X1                                                      UDT       212
                     5170000003 C                 SA7    RCV         RCV = COUNT(SVS)  */ REFED COMMON VARS FLAG UDT       213
  
                                        *         FORM DEAD DEFINITION CANIDATE COMPLEMENT VECTOR                UDT       215
                                        *         ^DDC = CR ! CM .                                               UDT       216
                                                                                                                 UDT       217
           162  5150000002 C                      SA5    BVL                                                     UDT       219
                          5110000177 +            SA1    AUTB                                                    UDT       220
           163  63651                             SB6    X5+B1       INDX = BVL + 1                              UDT       221
                     53051                        SA0    X5+B1       L = BVL + 1                                 UDT       222
                          0100000201 +            RJ     FSV         FORM *DDC* VECTOR                           UDT       223
                                                                                                                 UDT       224
                                        *         FORM THE PROGRAM ENTRY/EXIT NODE BITS VECTORS FOR USE IN THE   UDT       225
                                        *         LIVE EXIT BIT VECTOR COMPUTATION.  LET S = THE SET OF COMMON   UDT       226
                                        *         VARIABLES ( LOCF VARS INCLUDED ) AND F.P.S .   I.E. THE SET    CCG1      391
                                        *         OF VARIABLES WHICH ARE LIVE ON EXIT FROM THE SUBPROGRAM.       UDT       228
                                        *         THEN DEF(0) = 0, AND UBD(0) = USE(0) = LX(0) = S .             UDT       229
                                                                                                                 UDT       230
           164  5120000000 X                      SA2    O.BIT                                                   UDT       231
                          76660                   SX6    B6                                                      UDT       232
                                                  LX6    BI.BVIP                                                 UDT       233
                               53620              SA6    X2          BVI[BIT(0)] = 2*L                           UDT       234
           165  5262000002                        SA6    X2+2        BVI[BIT(2)] = 2*L                           UDT       235
                          43700                   MX7    0                                                       UDT       236
                               64707              SB7    B7+A0                                                   UDT       237
           166  56756                   +         SA7    B5+B6       FOR I = 0 TO BVL; DEF(0) = 0                UDT       238
                     66661                        SB6    B6+B1                                                   UDT       239
                          0767000166 +            LT     B6,B7,*                                                 UDT       240
           167  5110000200 +                      SA1    AUTC                                                    CCG1      392
                          0100000201 +            RJ     FSV         FORM EXIT BLOCK *USE* VECTOR                UDT       248
                                                                                                                 UDT       249
                                        *         SET LX = USE AND UBD = USE                                     UDT       250
                                                                                                                 UDT       251
           170  64200                             SB2    A0                                                      UDT       252
                     67662                        SB6    B6-B2       I = 4*L;  UL = 5*L                          UDT       253
           171  56556                    AUT10    SA5    B5+B6       UVA = O.BVI + I;  VW = [UVA]                UDT       254
                     66661                        SB6    B6+B1       I = I + 1                                   UDT       255
                          22705                   LX7    X5                                                      UDT       256
                               54752              SA7    A5+B2       UFA = UVA + L       [UFA] = VW              CCGA026     6
           172  54772                             SA7    A7+B2       LXA = UFA + L       [LXA] = VW              CCGA026     7
                     0767000171 +                 LT     B6,B7,AUT10 IF I < UL                                   UDT       259
                                                                                                                 UDT       260
           173  5120000000 X                      SA2    =XN$FPS                                                 CCGNC     860
                          0302000101 +            ZR     X2,AUT      IF N$FPS = 0   */ NO F.P. S                 CCGNC     861
           174  5110000200 +                      SA1    AUTC                                                    UDT       263
                          76710                   SX7    B1                                                      UDT       265
                               66600              SB6    B0          INDX = 0                                    UDT       266
           175  5170000003 C                      SA7    RCV         RCV = 1                                     UDT       267
                          0100000201 +            RJ     FSV         INCLUDE F.P.S IN COMMON VAR SPOIL VECTOR    UDT       268
                                                                                                                 UDT       269
           176  0400000101 +                      EQ     AUT                                                     UDT       270
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    11
        AUT - ADJUST USE/DEF INDEX TABLE                              AUT 
  
                                                                                                                 UDT       271
           177                           AUTB     BFMW   UD,(CR,CM)                                              UDT       272
           200                           AUTC     BFMW   UD,(FP,COM)                                             UDT       273
  
  
  
                                        **        FSV - FORM SPECIAL BIT VECTOR FROM *UDI*                       UDT       275
                                        *                                                                        UDT       276
                                        *         ENTRY  (X1) = FM , MASK FOR BITS IN SET.                       UDT       277
                                        *                (A0) = L = BVL+1                                        UDT       279
                                        *                (B6) = *BVT* STORE INDEX                                UDT       280
                                        *                                                                        UDT       281
                                        *         EXIT   (B5) = [O.BVT]                                          UDT       282
                                        *                (B6) = INDX + L                                         UDT       283
                                                                                                                 UDT       284
           201  0200400201 +             FSV      ROUTINE                                                        UDT       285
           202  5120000001 C                      SA2    N.VAR                                                   UDT       286
                          5130000000 X            SA3    O.BVT                                                   UDT       287
           203  5140000000 X                      SA4    O.UDI                                                   UDT       288
                          6242777775              SB4    X2-2        N = N.VAR - 2                               UDT       289
           204  63530                             SB5    X3                                                      UDT       290
                     64706                        SB7    B6+A0       UL = INDX + L                               UDT       291
                          5254000004              SA5    X4+4        UI = [O.UDI] + 4                            UDT       292
           205  66200                             SB2    B0          BITN = 0                                    UDT       293
                     6130000074                   SB3    60                                                      UDT       294
                               76010              SX0    B1                                                      UDT       295
           206  7160000000                        SX6    0           VW = 0                                      CCG1      395
                                                                                                                 UDT       296
           207  11715                    FSV1     BX7    X1*X5       B = FM[UI]                                  UDT       297
                     5055000002                   SA5    A5+2        UI = UI + 2                                 UDT       298
                               67441              SB4    B4-B1       N = N - 1                                   UDT       299
           210  0307000211 +                      ZR     X7,FSV2     IF B = 0      */ VAR NOT IN SET             UDT       300
                          22420                   LX4    B2,X0                                                   UDT       301
                               12646              BX6    X4+X6       VW = VW ! SHIFT( 1 , BITN )                 UDT       302
           211  6122000001               FSV2     SB2    B2+1        BITN = BITN + 1                             UDT       303
                          0440000213 +            ZR     B4,FSV3     IF N = 0                                    UDT       304
           212  0723000207 +                      LT     B2,B3,FSV1  IF BITN < 60                                UDT       305
                          6120000000              SB2    0           BITN = 0                                    UDT       306
           213  56656                    FSV3     SA6    B5+B6       BVT(INDX) = VW                              UDT       307
                     6166000001                   SB6    B6+1        INDX = INDX + 1                             UDT       308
                               43600              MX6    0           VW = 0                                      UDT       309
           214  0767000207 +                      LT     B6,B7,FSV1  IF INDX < UL                                UDT       310
                                                                                                                 UDT       311
                          0400000201 +            EQ     FSV                                                     UDT       312
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    12
        CMR - CHAIN MEMORY REFERENCES TO *UDI*                        CMR 
  
                                        **        CMR - CHAIN MEMORY REFS IN *TXT* TO *UDI* BY THE *IN* FIELD    UDT       314
                                        *         SETUP LINKS FROM INSTRUCTIONS TO *UDI* FOR LATER USE/DEF PROCE UDT       315
                                        *                                                                        UDT       316
                                        *         AP AND IO LIST LD/ST"S ARE IGNORED                             UDT       317
                                        *         F.P. ADDRESS LOADS ARE CHAINED TO ENTRY 1                      UDT       318
                                                                                                                 UDT       319
           215  7166000000               CMR0     SX6    B6+         L.UDI  = UI                                 UDT       320
                          5160000000 X            SA6    L.UDI                                                   UDT       321
                                                                                                                 UDT       322
           216                           CMR      ENTRY. **,#                                                    CCGNC     862
           217  5110000000 X                      SA1    L.TXT                                                   UDT       324
                          21102                   AX1    2                                                       UDT       325
           220  5100000000 X                      ALLOC  UDI,X1      ALLOC( UDI , L.TXT/4 );  UI = OLD( L.UDI )  UDT       326
           221  5150000000 X                      SA5    O.TXT                                                   UDT       327
                          63720                   SB7    X2          UDI = O.UDI                                 UDT       328
                               43072              MX0    -D.LDSTL                                                UDT       329
           222  66211                             SB2    B1+B1                                                   UDT       330
                     20042                        LX0    D.LDSTP                                                 UDT       331
                          53452                   SA4    X5+B2       DI = O.TXT + 2                              UDT       332
                               43130              MX1    -IH.CAIHL                                               UDT       333
                                                  LX1    IH.CAIHP                                                UDT       334
           223  5120000000 X                      SA2    O.SYM                                                   FCC1088    27
                          6242000001              SB4    X2+1                      (B4) = SYM + 1                CCG1      396
                                                                                                                 UDT       335
                                        *         SCAN *TXT* FOR MEMORY REFS AND CHAIN THEM TO *UDI*             UDT       336
                                                                                                                 UDT       337
           224  54542                    CMR1     SA5    A4+B2       R1 = DI + 2                                 UDT       338
                     54452                        SA4    A5+B2       DI = R1 + 2                                 UDT       339
                          26735                   UX7    B3,X5                                                   UDT       340
                               15640              BX6    -X0*X4                                                  UDT       341
           225  0430000215 +                      ZR     B3,CMR0     IF OC[R1] = 0 */ END OF BLOCK               UDT       342
                          0306000224 +            ZR     X6,CMR1     IF LDST[DI] = 0  */ NOT A MEM REF           UDT       343
                                                                                                                 UDT       344
           226  54351                             SA3    A5+B1       R2 = R1 + 1                                 UDT       345
                     15731                        BX7    -X1*X3      IHF = CAIH[R2]                              UDT       346
                          43266                   MX2    -6                                                      UDT       347
                               20330              LX3    -IH.RFP                                                 UDT       348
                                                  LX7    -IH.IHP                                                 UDT       349
           227  15472                             BX4    -X2*X7      HI = IHF & 77B  */ HASH INDEX               UDT       350
                     63330                        SB3    X3          C0 = RF[R2]                                 UDT       351
                          73670                   SX6    X7                                                      CCG1      397
                               21617              AX6    IH.IP                                                   CCG1      398
           230  0316000224 +                      NZ     X6,CMR1     IF I[IH] " 0  */ REF TO GL/AP LIST          CCG1      399
                                                                                                                 CCG28      45
                          0530000246 +            NZ     B3,CMR6     IF C0 " 0     */ INDEXED REF                CCG28      46
           231  63574                             SB5    B4+X7                                                   CCG1      400
                     22617                        LX6    B1,X7                                                   CCG1      401
                          53265                   SA2    B5+X6       WORDB = SYM(3*IH[R2W]+1)                    CCG1      402
                               66510              SB5    B1          CL = 1                                      CCG1      403
           232  20247                             LX2    59-WB.LDOP                                              CCG1      404
                     0332000244 +                 MI     X2,CMR5     IF LDO[WORDB] */ VAR IS LOAD ONLY           FCC1088    34
                               20204              LX2    WB.LDOP-WB.FPP                                          CCG23     143
           233  0322000235 +                      PL     X2,CMR2     IF ^FP[DI]                                  CCG23     144
                          54221                   SA2    A2+B1       WORDC = WORDB + 1                           CCG23     145
                               76310              SX3    B1                                                      CCG23     146
           234  36623                             IX6    X2+X3       RA[WORDC] = RA[WORDC] + 1  */ COUNT REFS    CCG23     147
                     54620                        SA6    A2                                                      CCG23     148
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    13
        CMR - CHAIN MEMORY REFERENCES TO *UDI*                        CMR 
  
                                                                                                                 UDT       362
           235  5224000000 X             CMR2     SA2    O.UDB+X4    CI = UDB(HI)                                UDT       363
                          0302000242 +            ZR     X2,CMR4     IF CI = 0     */ BASE TABLE ENTRY IS EMPTY  UDT       364
                                                                                                                 UDT       365
                                        *         SEARCH HASH CHAIN                                              UDT       366
                                                                                                                 UDT       367
           236  56770                             SA7    B7          [UDI] = IHF   */ SEARCH TERMINATOR          UDT       368
                     63320                        SB3    X2          C0 = CI       */ INDEX TO LAST ON CHAIN     UDT       369
                                                                                                                 UDT       370
           237  53327                    CMR3     SA3    B7+X2       UDW = UDI(CI)                               UDT       371
                     63520                        SB5    X2          CL = CI                                     UDT       372
                          13637                   BX6    X3-X7                                                   UDT       373
                               20330              LX3    -UA.HLP                                                 UDT       374
           240  73230                             SX2    X3          CI = HL[UDW]                                UDT       375
                     15461                        BX4    -X1*X6                                                  UDT       376
                          0314000237 +            NZ     X4,CMR3     IF CAIH[UDW] " IHF                          UDT       377
                                                                                                                 UDT       378
           241  0550000244 +                      NZ     B5,CMR5     IF CL " 0     */ ENTRY IN TABLE             UDT       379
                                                                                                                 UDT       380
                                        *         ADD  *CAIH* TO *UDI*                                           UDT       381
                                                                                                                 UDT       382
           242  76430                    CMR4     SX4    B3                                                      UDT       383
                     76660                        SX6    B6          UL = UI                                     UDT       384
                          20444                   LX4    UA.HLP                                                  UDT       385
                               12747              BX7    X4+X7                                                   UDT       386
           243  56776                             SA7    B7+B6       UDI(UI) = UDIW(0,C0,IHF)                    UDT       387
                     66661                        SB6    B6+B1       UI = UI + 1                                 UDT       388
                          63560                   SB5    X6          CL = UL                                     UDT       389
                               54620              SA6    A2          UDB(HI) = UL  */ UPDATE BASE TABLE          UDT       390
                                                                                                                 UDT       391
                                        *         CHAIN ENTRY TO *UDI*                                           UDT       392
                                                                                                                 UDT       393
           244  76450                    CMR5     SX4    B5                                                      UDT       394
                     20437                        LX4    R1.INP+1                                                UDT       395
                          12645                   BX6    X4+X5       IN[R1] = 2*CL                               UDT       396
                               54650              SA6    A5                                                      UDT       397
           245  0400000224 +                      EQ     CMR1                                                    UDT       398
                                                                                                                 UDT       399
                                        *         INDEXED MEMORY REF                                             UDT       400
                                                                                                                 UDT       401
           246  66510                    CMR6     SB5    B1          CL = 1                                      UDT       402
                     0435000244 +                 EQ     B3,B5,CMR5  IF RF[R2] = 1                               UDT       403
           247  5130000251 +                      SA3    CMRA                                                    UDT       404
                          66300                   SB3    B0          C0 = 0                                      UDT       405
                               12737              BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                  UDT       406
           250  0400000235 +                      EQ     CMR2                                                    UDT       407
                                                                                                                 UDT       408
           251                           CMRA     BFMW   UA,(CR,CA)                                              UDT       409
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    14
        CG$CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                CG$CPL
  
                                        **        CG$CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                 CCGNC     864
                                        *                                                                        UDT       412
                                        *         ENTRY  (X5) = INDEX , TABLE INDEX OF PARAMETER LIST            UDT       413
                                        *                (X6) = TBL , ADDRESS OF TABLE POINTER                   UDT       414
                                        *                (B2) = LEN , NUMBER OF ENTRIES IN TABLE                 UDT       415
                                        *                                                                        UDT       416
                                        *         EXIT   (X1) = INDX , TO LIST IN *IOL*                          UDT       417
                                        *                (X0) = LEN , OF LIST IN *IOL*                           UDT       418
                                        *                (X7) = L.IOL                                            UDT       419
                                        *                (B5) = *UDI* INDEX OF LAST ENTRY IN ARG LIST            UDT       420
                                                                                                                 UDT       421
           252                           CG$CPL   ENTRY.                                                         CCGNC     865
           253  20522                             LX5    18                                                      UDT       423
                     27425                        PX4    B2,X5                                                   UDT       424
                          76122                   SX1    B2+B2                                                   UDT       425
                               12546              BX5    X4+X6                                                   UDT       426
           254  5100000000 X                      ALLOC  IOL,X1      ALLOC( IOL , 2*LEN )                        UDT       427
           255  76060                             SX0    B6                                                      UDT       428
                     5100000000 X                 ALLOC  UDI,X1      ALLOC( UDI , 2*LEN );  UI = OLD(L.UDI)      UDT       429
           257  63420                             SB4    X2          UDI = O.UDI                                 UDT       430
                     26725                        UX7    B2,X5       N = LEN                                     UDT       431
                          5120000000 X            SA2    O.IOL                                                   UDT       432
           260  36120                             IX1    X2+X0       S0 = O.IOL + OLD(L.IOL)                     UDT       433
                     53010                        SA0    X1          SI = S0       */ STORE INDEX                UDT       434
                          53450                   SA4    X5                                                      UDT       435
                               21722              AX7    18                                                      UDT       436
           261  36647                             IX6    X4+X7                                                   UDT       437
                     43030                        MX0    -IH.CAIHL                                               UDT       438
                          5130000000 X            SA3    O.SYM                                                   FCC1088    35
           262  5256000000                        SA5    X6+         TI = O.TBL + INDEX                          FCC1088    36
                          6273000001              SB7    X3+1                      (B7) = SYM + 1                CCG1      408
                                                                                                                 UDT       440
           263  15750                    CPL1     BX7    -X0*X5      IHF = CAIH[TI]                              UDT       441
                     20505                        LX5    59-AP.CRP                                               UDT       442
                          0325000266 +            PL     X5,CPL2     IF ^CR[TI]                                  UDT       443
           264  5130000251 +                      SA3    CMRA                                                    UDT       444
                          20567                   LX5    1+AP.CRP                                                UDT       445
                               12737              BX7    X3+X7       CR[IHF] = 1;  CA[IHF] = -0                  UDT       446
           265  0400000267 +                      EQ     CPL3                                                    UDT       447
                                                                                                                 UDT       448
           266  20571                    CPL2     LX5    AP.CRP-AP.P1P                                           UDT       449
                     0335000276 +                 MI     X5,CPL4     IF P1[TI]     */ DOUBLE / COMPLEX           UDT       450
                               20572              LX5    1+AP.P1P                                                UDT       451
                                                                                                                 UDT       452
           267  0100000303 +             CPL3     RJ     SUI                                                     UDT       453
           270  11225                             BX2    X2*X5                                                   UDT       454
                     67221                        SB2    B2-B1       N = N - 1                                   UDT       455
                          12626                   BX6    X2+X6                                                   UDT       456
                               54551              SA5    A5+B1       TI = TI + 1                                 UDT       457
           271  54600                             SA6    A0          [SI] = (IO,USE)[TI] ! SUI( IHF )            FCC0789    28
                     54001                        SA0    A0+B1       SI = SI + 1                                 UDT       459
                          0520000263 +            NZ     B2,CPL1     IF N " 0                                    UDT       460
                                                                                                                 UDT       461
                                        *         SET EXIT CONDITIONS                                            UDT       462
                                                                                                                 UDT       463
           272  5120000000 X                      SA2    O.IOL                                                   UDT       464
                          63560                   SB5    X6                                                      UDT       465
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    15
        CG$CPL - CHAIN PARAMETER LIST ENTRIES TO *UDI*                CG$CPL
  
                               74300              SX3    A0                                                      UDT       466
           273  76660                             SX6    B6                                                      UDT       467
                     5160000000 X                 SA6    L.UDI       L.UDI = UI                                  UDT       468
                               37732              IX7    X3-X2       L.IOL = SI - O.IOL                          UDT       469
           274  37031                             IX0    X3-X1       LEN = SI - S0 */ LIST LENGTH                UDT       470
                     5170000000 X                 SA7    L.IOL                                                   UDT       471
                               37112              IX1    X1-X2       INDX = S0 - O.IOL                           UDT       472
           275  0400000252 +                      EQ     CG$CPL                                                  CCGNC     866
                                                                                                                 UDT       474
                                        *         DOUBLE/COMPLEX ENTRY                                           UDT       475
                                                                                                                 UDT       476
           276  20572                    CPL4     LX5    1+AP.P1P                                                UDT       477
                     0100000303 +                 RJ     SUI                                                     UDT       478
           277  11225                             BX2    X2*X5                                                   UDT       479
                     76410                        SX4    B1                                                      UDT       480
                          12626                   BX6    X2+X6                                                   UDT       481
                               20422              LX4    IH.CAP                                                  UDT       482
           300  54600                             SA6    A0          [SI] = (IO,USE)[TI] ! SUI( IHF )            FCC0789    29
                     54001                        SA0    A0+B1       SI = SI + 1                                 UDT       484
                          36747                   IX7    X4+X7       CA[IHF] = CA[IHF] + 1 */ CA ALWAYS POSITIVE UDT       485
           301  0400000267 +                      EQ     CPL3                                                    UDT       486
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    16
        SUI - SET *UDI* INDEX                                         SUI 
  
                                        **        SUI - SET *UDI* INDEX                                          UDT       488
                                        *                                                                        UDT       489
                                        *         ENTRY  (X0) = MASK(-UA.CAIHL)                                  UDT       490
                                        *                (X7) = IHF , CA,IH OF LOCATION                          UDT       491
                                        *                (B4) = O.UDI                                            UDT       492
                                        *                (B6) = UI , NEXT AVAIL LOC IN *UDI*                     UDT       493
                                        *                (B7) = O.SYM - 1                                        FCC1088    38
                                        *                                                                        UDT       494
                                        *         EXIT   (X6) = U0 = INDEX TO IHF IN *UDI*                       UDT       495
                                        *                (X2) = MASK(60-AP.USEP)  ( 3S58 )                       FCC0789    30
                                        *                                                                        UDT       497
                                        *         USES   B - 3, 5                                                UDT       498
                                        *                A - 2, 3, 6                                             UDT       499
                                        *                X - 2, 3, 4, 6                                          UDT       500
                                                                                                                 UDT       501
           302  76655                    SUI0     SX6    B5+B5       U0 = 2*CL                                   UDT       502
                     43202                        MX2    -AP.USEP                                                FCC0789    31
                                                                                                                 UDT       504
           303  0200400303 +             SUI      ROUTINE                                                        UDT       505
           304  22617                             LX6    B1,X7                                                   FCC1088    39
                     63367                        SB3    B7+X6                                                   CCG1      410
                          53273                   SA2    B3+X7       WORDB = SYM(3*IH+1)                         CCG1      411
                               66510              SB5    B1          CL = 1                                      CCG1      412
           305  20247                             LX2    59-WB.LDOP                                              CCG1      413
                     0332000302 +                 MI     X2,SUI0     IF LDO[WORDB] */ VAR IS LD ONLY             FCC1088    44
                               43466              MX4    -6                                                      UDT       506
           306  15674                             BX6    -X4*X7      HI = IHF & 77B                              UDT       507
                     56740                        SA7    B4          [UDI] = IHF   */ SET SEARCH TERMINATOR      UDT       508
                          5226000000 X            SA2    O.UDB+X6    CI = UDB(HI)                                UDT       510
           307  76400                             SX4    B0          C0 = 0                                      FCC1088    45
                     0302000313 +                 ZR     X2,SUI2     IF CI = 0     */ BASE TABLE ENTRY IS EMPTY  UDT       512
                               63320              SB3    X2          C0 = CI                                     FCC1088    46
                                                                                                                 UDT       514
                                        *         SEARCH HASH CHAIN                                              UDT       515
                                                                                                                 UDT       516
           310  53324                    SUI1     SA3    B4+X2       UDW = UDI(CI)                               UDT       517
                     63520                        SB5    X2          CL = CI                                     UDT       518
                          13637                   BX6    X3-X7                                                   UDT       519
                               20330              LX3    -UA.HLP                                                 UDT       520
           311  73230                             SX2    X3          CI = HL[UDW]                                UDT       521
                     15460                        BX4    -X0*X6                                                  UDT       522
                          0314000310 +            NZ     X4,SUI1     IF CAIH[UDW] " IHF                          UDT       523
                                                                                                                 UDT       524
           312  0550000302 +                      NZ     B5,SUI0     IF CL " 0     */ ENTRY IN TABLE             UDT       525
                                                                                                                 UDT       526
                                        *         ADD ENTRY TO *UDI*                                             UDT       527
                                                                                                                 UDT       528
                          76430                   SX4    B3                                                      UDT       529
                               20444              LX4    UA.HLP                                                  UDT       530
           313  12647                    SUI2     BX6    X4+X7       UDI(UI) = UDIW(0,C0,IHF)                    UDT       531
                     56646                        SA6    B4+B6                                                   UDT       532
                          76660                   SX6    B6          U0 = UI                                     UDT       533
                               43202              MX2    -AP.USEP                                                FCC0789    32
           314  66661                             SB6    B6+B1       UI = UI + 1                                 UDT       535
                     54620                        SA6    A2          UDB(HI) = U0                                UDT       536
                          20601                   LX6    1           U0 = 2*U0                                   UDT       537
           315  0400000303 +                      EQ     SUI                                                     UDT       538
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    17
        PBB - PROCESS BASIC BLOCK FOR OPT = 2                         PBB 
  
                                        **        PBB - PROCESS BASIC BLOCK FOR OPT = 2                          UDT       540
                                        *                                                                        UDT       541
                                        *         SETUP *BIT* ENTRY FOR *TXT* IN BLOCK AND DUMP BLOCK TO MASS    UDT       542
                                        *         STORAGE.                                                       UDT       543
                                        *                                                                        UDT       544
                                        *         ENTRY  *TXT* - SQUEEZED BASIC BLOCK                            UDT       545
                                        *                *IOL* - PARAMETER LIST INFO                             UDT       546
                                        *                                                                        UDT       547
                                        *         EXIT   BLOCK WRITTEN TO MASS STORAGE                           UDT       548
                                        *                RI[*BOS*] = *BIT* INDEX OF BLOCK                        UDT       549
                                        *                R2[*BOS*] = 42/0,18/L.TXT, INSTRUCTION LENGTH           UDT       550
                                                                                                                 UDT       551
           316                           PBB      ENTRY. **,#                                                    CCGNC     867
           317  0100000216 +                      CALL   CMR         CHAIN MEMORY REFS TO *UDI*                  UDT       553
                                                                                                                 UDT       554
                                        *         SET INFO IN R1, R2 WORDS OF *BOS*                              UDT       555
                                                                                                                 UDT       556
           320  5130000000 X                      SA3    O.TXT                                                   UDT       557
                          5120000000 X            SA2    L.TXT                                                   UDT       558
           321  5110000000 X                      SA1    L.IOL                                                   UDT       559
                          53530                   SA5    X3          R1 = [O.TXT]                                UDT       560
                               43052              MX0    -IH.IHL                                                 UDT       561
           322  5140000000 X                      SA4    L.BIT                                                   UDT       562
                          11505                   BX5    X0*X5                                                   UDT       563
                               36745              IX7    X4+X5       IH[R1] = L.BIT  */ SAVE BLOCK NUMBER        UDT       564
           323  54750                             SA7    A5                                                      UDT       565
                     10622                        BX6    X2                                                      UDT       566
                                                  LX6    R2.TXTLP                                                UDT       567
                          54671                   SA6    A7+B1       R2 = R1 + 1;  TXTL[R2] = L.TXT              UDT       568
                                                                                                                 UDT       569
                               36712              IX7    X1+X2                                                   UDT       570
           324  5130000000 X                      SA3    =XM.BBL#                                                CCGNC     868
                          37037                   IX0    X3-X7                                                   UDT       572
           325  0320000326 +                      PL     X0,PBB0     M.BBL = MAX( M.BBL , L.TXT + L.IOL )        UDT       573
                          5073000000              SA7    A3+                                                     UDT       574
                                                                                                                 UDT       575
           326  0301000333 +             PBB0     ZR     X1,PBB1     IF L.IOL = 0  */ NO PARAMETER LISTS         UDT       576
                          5100000000 X            ALLOC  TXT,X1                                                  UDT       577
           330  73326                             SX3    X2+B6                                                   UDT       578
                     5120000000 X                 SA2    O.IOL                                                   UDT       579
           331  0100000000 X                      MOVE   X1,X2,X3    MOVE( L.IOL , O.IOL , O.TXT + OLD(L.TXT) )  UDT       580
           332  43600                             MX6    0                                                       UDT       581
                     5160000000 X                 SA6    L.IOL       L.IOL = 0                                   UDT       582
                                                                                                                 UDT       584
                                        *         SETUP *BIT* ENTRY, AND DUMP BLOCK TO MASS STORAGE              UDT       585
                                                                                                                 UDT       586
           333  76110                    PBB1     ALLOC  BIT,1       ALLOC( BIT , 1 )                            UDT       587
           335  5140000000 X                      SA4    O.TXT       FSCM = [O.TXT]  */ FWA OF BLOCK             UDT       588
                          63526                   SB5    X2+B6       BI = O.BIT + OLD(L.BIT)                     UDT       589
                               53340              SA3    X4          R1 = [O.TXT]                                UDT       590
           336  20336                             LX3    -R1.INP                                                 UDT       591
                     73630                        SX6    X3                                                      UDT       592
                          20622                   LX6    BI.FLNP     FLN[BI] = IN[R1]                            UDT       593
           337  5214000004                        SA1    X4+4        R1 = R1 + 4   */ LOOKAT FIRST INSTRUCTION   UDT       594
                          26721                   UX7    B2,X1                                                   UDT       595
           340  6132777771                        SB3    B2-OC.LAB                                               UDT       596
                          0530000342 +            NZ     B3,PBB2     IF OC[R1] " OC.LAB                          UDT       597
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    18
        PBB - PROCESS BASIC BLOCK FOR OPT = 2                         PBB 
  
           341  76010                             SX0    B1                                                      UDT       598
                     63410                        SB4    X1          LIH = IH[R1]                                UDT       599
                          20071                   LX0    BI.ILP      IL[BI] = 1                                  UDT       600
                               12606              BX6    X0+X6                                                   UDT       601
                                                                                                                 UDT       602
           342  53241                    PBB2     SA2    X4+B1       LTXT = [O.TXT+1]                            UDT       603
                     6272777767                   SB7    X2-8                                                    UDT       604
                               53547              SA5    X4+B7       R1L = O.TXT + LTXT-8                        UDT       605
           343  26725                             UX7    B2,X5                                                   UDT       606
                     7102777703                   SX0    B2-OC.UJP                                               UDT       607
           344  0300000346 +                      ZR     X0,PBB2A    IF OC[RI] = OC.UJP                          FCC1755X    5
                          7102777706              SX0    B2-OC.JIN                                               FCC1755X    6
           345  0310000351 +                      NZ     X0,PBB3      IF OC[R1L] " OC.JIN                        FCC1755X    7
           346  76010                    PBB2A    SX0    B1                                                      FCC1755X    8
                     20070                        LX0    BI.FJP                                                  UDT       610
                          12606                   BX6    X0+X6       FJ[BI] = 1    */ INDICATE FINAL *UJP*       UDT       611
           347  7272777763                        SX7    X2-12                                                   UDT       612
                          0317000351 +            NZ     X7,PBB3     IF LTXT " 12  */ NOT 2 INSTRUCTION BLOCK    UDT       613
           350  0530000351 +                      NZ     B3,PBB3     IF OC[R1] " OC.LAB                          UDT       614
                          20073                   LX0    BI.LJPP-BI.FJP                                          UDT       615
                               12606              BX6    X0+X6       LJP[BI] = 1   */ INDICATE LAB/JP ONLY       UDT       616
                                                                                                                 UDT       617
           351  5150000000 X             PBB3     SA5    L.TXT                                                   UDT       618
                          5130000000 X            SA3    =XL.PTXT#                                               CCGNC     869
           352  36735                             IX7    X3+X5       L.PTXT = L.PTXT + L.TXT                     UDT       620
                     54730                        SA7    A3                                                      UDT       621
                                                                                                                 UDT       622
                                        *         INHIBIT COMBINATION OF LARGE BLOCKS WITH EXTERNAL REFS IN CBB  UDT       623
                                                                                                                 UDT       624
                          7275775773              SX7    X5-2004B                                                UDT       625
           353  5130000000 X                      SA3    =XCC$XR                                                 CCGNC     870
                          0337000355 +            MI     X7,PBB4     IF L.TXT < 2000B                            UDT       627
           354  20371                             LX3    1+BI.FJP                                                UDT       628
                     12636                        BX6    X3+X6       FJ[BI] = XR                                 UDT       629
                                                                                                                 UDT       630
           355  7275000002               PBB4     SX7    X5+2        L = L.TXT + 2                               UDT       631
                          36045                   IX0    X4+X5       LTXT = O.TXT + L.TXT                        UDT       632
                               56650              SA6    B5                                                      UDT       633
                                                  LX7    BT.LENP                                                 UDT       634
           356  53700                             SA7    X0          [LTXT] = BTW(0,0,0,L)  */ TRAILER WORD      UDT       635
                     76360                        SX3    B6                                                      UDT       636
                          20344                   LX3    BH.BIP                                                  UDT       637
                                                  LX7    BH.LENP-BT.LENP                                         UDT       638
                               12737              BX7    X3+X7                                                   UDT       639
           357  5274777776                        SA7    X4-1        [O.TXT-1] = BHW(0,OLD(L.BIT),0,L)           UDT       640
                          6120000000              SB2    0           FLCM = 0                                    UDT       641
           360  0100000000 X                      CALL   SMB#        SMB( O.TXT , L. TXT )                       CCGNC     871
           361  5100000000 X                      ADDWRD BIT,X1      ADDWRD( BIT , RIW )                         UDT       643
           362  0400000316 +                      EQ     PBB                                                     UDT       644
                                                                                                                 UDT       645
                                                  ENTRY  F$UDT                                                   CCGNC     872
                                                                                                                 CCGNC     873
           363                           F$UDT    END                                                            CCGNC     874
  
                             55400B CM  STORAGE USED             2791 STATEMENTS     1058 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.167 SECONDS         342 REFERENCES
  
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        ADW$            0   EXTERNAL*       6/14      7/17     18/48
        AP.CRP         66   GTX            14/34     14/37     14/41
        AP.P1P         71   GTX            14/41     14/43     15/12
        AP.USEP        72   GTX            16/17     16/53
        ATSNAT#         0   EXTERNAL*       4/25 S
        ATSTOG#         0   EXTERNAL*       4/27 S
        ATS$            0   EXTERNAL*       4/38      6/06      6/34      9/22     14/17     17/38
                                            5/56      6/08      7/30     12/13     14/19     17/47
        AUT           101   PROGRAM*        7/13 L   10/50     10/57
        AUTA          135   PROGRAM*        8/15      9/06 L
        AUTB          177   PROGRAM*       10/14     11/02 L
        AUTC          200   PROGRAM*       10/35     10/51     11/03 L
        AUT0          105   PROGRAM*        7/16      7/18 L
        AUT1          114   PROGRAM*        7/47 L    8/01
        AUT10         171   PROGRAM*       10/42 L   10/47
        AUT2          124   PROGRAM*        8/24 L    8/41      8/52
        AUT3          132   PROGRAM*        8/50 L    9/04
        AUT4          136   PROGRAM*        8/24      9/12 L
        AUT5          153   PROGRAM*        9/43 L    9/53     10/05
        AUT6          157   PROGRAM*        9/52      9/56 L
        AUT#          101   PROGRAM*        7/13 E    7/13 L
        BH.BIP         44                  18/42
        BH.LENP         0 
        BI.FJP         70   GTX            18/15     18/20     18/33
        BI.FLNP        22   GTX            17/53
        BI.ILP         71   GTX            18/03
        BI.LJPP        67   GTX            18/20
        BT.LENP         0 
        BVL             2   BVINFO          9/19 S   10/13
        B1=1            0 
        CC$BLEN         0   EXTERNAL*       4/49 S
        CC$FT           0   EXTERNAL*       5/02
        CC$LBO          0   EXTERNAL*       4/48 S
        CC$OPF          0   EXTERNAL*       6/16 S
        CC$PC           0   EXTERNAL*       4/52 S
        CC$XR           0   EXTERNAL*      18/31
        CF.FROMP       36   GTX             6/11
        CG$CPL        252   PROGRAM*       14/12 E   14/12 L   15/08
        CG$INIT         0   PROGRAM*        4/06 E    4/06 L    6/36
        CIO=            0   EXTERNAL*       5/06
        CMR           216   PROGRAM*       12/10 L   17/14
        CMRA          251   PROGRAM*       13/43     13/48 L   14/36
        CMR0          215   PROGRAM*       12/07 L   12/31
        CMR1          224   PROGRAM*       12/27 L   12/32     12/43     13/37
        CMR2          235   PROGRAM*       12/53     13/02 L   13/46
        CMR3          237   PROGRAM*       13/10 L   13/16
        CMR4          242   PROGRAM*       13/03     13/22 L
        CMR5          244   PROGRAM*       12/51     13/18     13/33 L   13/42
        CMR6          246   PROGRAM*       12/45     13/41 L
        CMR#          216   PROGRAM*       12/10 E   12/10 L
        CO.EC           0   EXTERNAL*       5/28
        CPL1          263   PROGRAM*       14/33 L   14/52
        CPL2          266   PROGRAM*       14/35     14/41 L
        CPL3          267   PROGRAM*       14/39     14/45 L   15/21
        CPL4          276   PROGRAM*       14/42     15/12 L
        CP.AFLL         0   EXTERNAL*       5/50 S
        CT.ECS          1   GTX             5/10 F
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        CWS#            0   EXTERNAL*       4/36
        D.LDSTL         2   GTX            12/16
        D.LDSTP        42   GTX            12/18
        D.L2P          44   GTX             4/15
        D.STP          42   GTX             4/15
        FSV           201   PROGRAM*       10/17     10/36     10/55     11/16 L   11/44
        FSV1          207   PROGRAM*       11/29 L   11/37     11/42
        FSV2          211   PROGRAM*       11/32     11/35 L
        FSV3          213   PROGRAM*       11/36     11/39 L
        F$LBT           0   EXTERNAL*       4/46
        F$RDT           0   EXTERNAL* 
        F$UDT         363   PROGRAM*       18/51 E   18/53 L
        F.MEM           0   EXTERNAL* 
        F.OPT           0   EXTERNAL*       5/06
        F.RDT           0   EXTERNAL*       6/33      6/35
        HC.ID           2   GTX             5/27 F
        HC.2OC          0   GTX             4/32 F
        HO$LCM          0   EXTERNAL*       4/12
        HO$OBL          0   EXTERNAL*       5/55
        HO$OPT          0   EXTERNAL*       4/22      4/41
        IH.CAIHL       44   GTX            12/20     14/28
        IH.CAP         22   GTX            15/17
        IH.IHL         22   GTX            17/22
        IH.IP          17   GTX            12/42
        IH.RFP         44   GTX            12/37
        IMPA#           0   EXTERNAL*       5/53
        INITA          77   PROGRAM*        5/33      5/34      5/44 S    5/45      5/46      6/38 L
        INITB         100   PROGRAM*        5/21      5/22      6/39 L
        INIT0           3   PROGRAM*        4/13      4/17 L
        INIT0A          7   PROGRAM*        4/23      4/31 L
        INIT05         51   PROGRAM*        5/43      5/49 L
        INIT1          52   PROGRAM*        5/03      5/53 L
        INIT2          67   PROGRAM*        4/54      6/32 L
        ISC=            0   EXTERNAL*       6/05
        IT.             0   EXTERNAL* 
        I.CRP          22                   7/10 D    7/49      8/16
        I.IHL          22                   7/08 D
        I.IHP          36                   7/08 D    7/52      8/20
        I.UIL          22                   7/11 D
        I.UIP           0                   7/11 D
        LCM#G           0   EXTERNAL*       4/16 S
        LM#             0   EXTERNAL*       5/54
        L$BST           0   EXTERNAL* 
        L$IOL           0   EXTERNAL* 
        L$LBT           0   EXTERNAL* 
        L$RND           0   EXTERNAL* 
        L$RXI           0   EXTERNAL* 
        L$TXT           0   EXTERNAL* 
        L$UDI           0   EXTERNAL* 
        L.BIT           0   EXTERNAL*      17/23
        L.BST           0   EXTERNAL* 
        L.BVT           0   EXTERNAL* 
        L.IOL           0   EXTERNAL*      15/06 S   17/20     17/43 S
        L.LBT           0   EXTERNAL* 
        L.PTXT#         0   EXTERNAL*      18/24
        L.RND           0   EXTERNAL* 
        L.RXI           0   EXTERNAL* 
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        L.TXT           0   EXTERNAL*      12/11     17/19     18/23
        L.UDI           0   EXTERNAL*       7/14      7/26     12/08 S   15/03 S
        MAX.LCM         0   EXTERNAL*       5/23      5/36
        MVE=            0   EXTERNAL*      17/41
        M.BBL#          0   EXTERNAL*      17/32
        N$FPS           0   EXTERNAL*      10/49
        N.VAR           1   BVINFO          7/29 S    9/12     11/17
        OC.BOS          1   GTX             6/33      6/35
        OC.JIN         71   GTX            18/12
        OC.LAB          6   GTX            17/56
        OC.UJP         74   GTX            18/10
        O$BST           0   EXTERNAL* 
        O$IOL           0   EXTERNAL* 
        O$LBT           0   EXTERNAL* 
        O$RND           0   EXTERNAL* 
        O$RXI           0   EXTERNAL* 
        O$SYM           0   EXTERNAL* 
        O$TXT           0   EXTERNAL* 
        O$UDI           0   EXTERNAL* 
        O.BIT           0   EXTERNAL*      10/25
        O.BST           0   EXTERNAL* 
        O.BVT           0   EXTERNAL*      11/18
        O.IOL           0   EXTERNAL*      14/22     14/56     17/40
        O.LBT           0   EXTERNAL* 
        O.RND           0   EXTERNAL* 
        O.RXI           0   EXTERNAL* 
        O.SYM           0   EXTERNAL*       8/13     12/22     14/29
        O.TXT           0   EXTERNAL*       6/32     12/14     17/18     17/48
        O.UDB           0   EXTERNAL*      13/02     16/29
        O.UDI           0   EXTERNAL*       8/12      9/24     11/19
        PBB           316   PROGRAM*       17/13 L   18/49
        PBB0          326   PROGRAM*       17/34     17/37 L
        PBB1          333   PROGRAM*       17/37     17/47 L
        PBB2          342   PROGRAM*       17/57     18/06 L
        PBB2A         346   PROGRAM*       18/11     18/14 L
        PBB3          351   PROGRAM*       18/13     18/18     18/19     18/23 L
        PBB4          355   PROGRAM*       18/32     18/36 L
        PBB#          316   PROGRAM*       17/13 E   17/13 L
        RCV             3   BVINFO         10/08 S   10/54 S
        R1.INP         36   GTX            13/34     17/51
        SHL#            0   EXTERNAL*       8/04
        SMB#            0   EXTERNAL*      18/47
        SUI           303   PROGRAM*       14/45     15/13     16/19 L   16/57
        SUI0          302   PROGRAM*       16/16 L   16/25     16/44
        SUI1          310   PROGRAM*       16/36 L   16/42
        SUI2          313   PROGRAM*       16/31     16/50 L
        SYS=            0   EXTERNAL*       5/21      5/33      5/45
        S$IT            0   EXTERNAL* 
        TEST            0   GTX             4/07 F    7/19 F
        THRESH#         0   EXTERNAL*       4/29 S
        UA.CAL         22                  13/48
        UA.CAP         22                  13/48
        UA.CRP         66                   7/39      7/49     13/48
        UA.HLP         44                  13/13     13/24     16/39     16/49
        UD.BMIP        24                   8/47
        UD.CMP         23                   8/45     11/02
        UD.COMP        52                   8/36      9/40      9/41      9/54     11/03
1       UDT - USE/DEF TABLE PROCESSING                                COMPASS 3.7-871.     24/05/02. 13.13.20.      PAGE    22
        SYMBOLIC REFERENCE TABLE. 
  
        UD.CRP         22                   8/45     11/02
        UD.FPP         53                  11/03
        UD.ISTP        66                   9/31
        VL              0   BVINFO          9/17 S
        WB.COML         1   GTX             9/06
        WB.COMP        17   GTX             8/33      8/36      9/06
        WB.FPL          1   GTX             9/06
        WB.FPP         20   GTX             9/06     12/52
        WB.LDOP        24   GTX            12/50     12/52     16/24
        WB.LOCFP       22   GTX             8/22      8/33
        Z$BIT           0   EXTERNAL*      17/47     18/48
        Z$BST           0   EXTERNAL*       6/08
        Z$BVT           0   EXTERNAL*       9/22
        Z$CFT           0   EXTERNAL*       6/14
        Z$IOL           0   EXTERNAL*      14/17
        Z$MOD           0   EXTERNAL*       6/34
        Z$RXI           0   EXTERNAL* 
        Z$TXT           0   EXTERNAL*       4/38      5/56     17/38
        Z$UDI           0   EXTERNAL*       6/06      7/17      7/30     12/13     14/19
        .DAL            1   GTX             4/11 F
        .OS             1   GTX             5/12 F
        .P             44                   9/06 D    9/06 D   11/02 D   11/02 D   11/03 D   11/03 D   13/48 D   13/48 D
                                            9/06      9/06     11/02     11/02     11/03     11/03     13/48     13/48
        .Z              0                   9/06 D   11/02 D   11/03 D   13/48 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      241              IDENT  FTN5TXT
                        241                       END 
  
  
  
  
                                                  IDENT  FTN5TXT                                                 FTN5TXT     2
                                                  STEXT                                                          FTN5TXT     3
             0                                    SYSCOM                                                         FTN5TXT     4
                                                  LIST   F,X                                                     FTN5TXT     5
                                                  COMMENT          FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.         FTN5TXT     7
  
  
  
  
                                        ***       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.                FTN5TXT     9
                                        *                                                                        FTN5TXT    10
                                        *                FTN5TXT IS THE GLOBAL TEXT FOR ASSEMBLY/INSTALLATION    FTN5TXT    11
                                        *         OF THE FORTRAN 5 COMPILER.  IT CONTAINS DEFINITIONS OF         FTN5TXT    12
                                        *         MACROS, MICROS, SYMBOLS AND OPDEFS, ORGANIZED AS FOLLOWS ...   FTN5TXT    13
                                        *                                                                        FTN5TXT    14
                                        *         (OPTIONS)  COMPILER INSTALLATION OPTIONS.                      FTN5TXT    15
                                        *                    ASSEMBLY CONSTANTS.                                 FTN5TXT    16
                                        *         (FA=DEFS)  I/O MACROS (FOR UPPER AND LOWER CYBER).             FTN5TXT    17
                                        *         (COMADEF)  STRUCTURED WORD DECLARATION MACROS.                 FTN5TXT    18
                                        *         (COMAIDP)  IDP ACCESS MACROS (TEST MODE ONLY).                 FTN5TXT    19
                                        *         (COMACPU)  GENERAL CPU MACROS.                                 FTN5TXT    20
                                        *         (COMAMGM)  MORE (LESS) GENERAL MACROS.                         FTN5TXT    21
                                        *                    COMPILER-SPECIFIC MACROS.                           FTN5TXT    22
                                        *                    SYMBOL AND MICRO DEFINITIONS.                       FTN5TXT    23
                                        *         (COMSIOC)  I/O CONTROL CODE DEFINITIONS.                       FTN5TXT    24
                                        *         (COMSPSU)  PSEUDO INSTRUCTION DEFINITIONS.                     FTN5TXT    25
                                        *         (COMSPBD)  PREBINARY STRUCTURE DECLARATIONS.                   FTN5TXT    26
                                        *         (COMSSYM)  SYMBOL TABLE STRUCTURE DECLARATIONS.                FTN5TXT    27
                                        *                    STRUCTURE DECLARATIONS AND TABLE DESCRIPTIONS.      FTN5TXT    28
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     2
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ****                                                                     OPTIONS     4
                                        ***       O P T I O N S - FORTRAN EXTENDED INSTALLATION PARAMETERS.      OPTIONS     5
                                        *                                                                        OPTIONS     6
                                        *         REVISED AUGUST 1975 FOR THE CYBER 170 SERIES MACHINES.         OPTIONS     7
                                        *                                                                        OPTIONS     8
                                        *         THE PARAMETERS DEFINED IN THIS DECK DETERMINE THE SPECIFIC     OPTIONS     9
                                        *         CONFIGURATION OF THE FORTRAN EXTENDED COMPILER.  WHEN INSTAL-  OPTIONS    10
                                        *         LING THE COMPILER, PARAMETERS SHOULD BE REVISED AS NECESSARY   OPTIONS    11
                                        *         TO DESCRIBE THE INSTALLATION'S EXACT HARDWARE CONFIGURATION    OPTIONS    12
                                        *         AND SPECIFIC FUNCTIONAL REQUIREMENTS.                          OPTIONS    13
                                        *                                                                        OPTIONS    14
                                        *         ADDITIONAL INSTALLATION OPTION PARAMETERS WILL BE FOUND IN     OPTIONS    15
                                        *         THE PROGRAM DECK  < FTN > .                                    OPTIONS    16
  
  
  
  
                                        *         ************************************************************** OPTIONS    18
                                        *         *                                                            * OPTIONS    19
                                        *         *                                                            * OPTIONS    20
                                        *         *   I N S T A L L A T I O N   W A R N I N G   N O T I C E    * OPTIONS    21
                                        *         *                                                            * OPTIONS    22
                                        *         *                                                            * OPTIONS    23
                                        *         *      AN ASTERISKED BOX SIMILAR TO THIS ENCLOSES EACH       * OPTIONS    24
                                        *         *      PARAMETER THAT IS INTENDED TO BE CHANGED WHEN         * OPTIONS    25
                                        *         *      INSTALLING THE FORTRAN EXTENDED COMPILER.             * OPTIONS    26
                                        *         *                                                            * OPTIONS    27
                                        *         *      NO OTHER PARAMETER IN THE *OPTIONS* DECK SHOULD       * OPTIONS    28
                                        *         *      BE CHANGED.                                           * OPTIONS    29
                                        *         *                                                            * OPTIONS    30
                                        *         *      CONTROL DATA CORPORATION ACCEPTS NO RESPONSIBILITY    * OPTIONS    31
                                        *         *      FOR SATISFACTORY PERFORMANCE OF THE FORTRAN           * OPTIONS    32
                                        *         *      EXTENDED COMPILER IF THIS NOTICE IS DISREGARDED.      * OPTIONS    33
                                        *         *                                                            * OPTIONS    34
                                        *         *                                                            * OPTIONS    35
                                        *         ************************************************************** OPTIONS    36
  
  
  
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     3
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        ***                                                                      OPTIONS    59
                                        *                                                                        OPTIONS    60
                                        *         CROSS-MODEL COMPILER - DEFINITION AND INSTALLATION PROCEDURE   OPTIONS    61
                                        *                                                                        OPTIONS    62
                                        *                THE FORTRAN EXTENDED COMPILER MAY BE INSTALLED IN A     OPTIONS    63
                                        *                CONFIGURATION THAT PERMITS FORTRAN SOURCE PROGRAMS      OPTIONS    64
                                        *                TO BE COMPILED ON  A CYBER 76 (OR 7600) USING THE       OPTIONS    65
                                        *                SCOPE 2 OPERATING SYSTEM FOR LATER LOADING AND          OPTIONS    66
                                        *                EXECUTION ON A LOWER CYBER (OR 6000 SERIES) MACHINE.    OPTIONS    67
                                        *                                                                        OPTIONS    68
                                        *                TO BUILD AND INSTALL THE FORTRAN EXTENDED COMPILER      OPTIONS    69
                                        *                IN THIS CROSS-MODEL CONFIGURATION, USE THE NORMAL       OPTIONS    70
                                        *                7600 INSTALLATION PROCEDURE NOTING THE FOLLOWING        OPTIONS    71
                                        *                REQUIREMENTS.                                           OPTIONS    72
                                        *                   1.  INSURE THAT THE TEXT CONTAINING THE              OPTIONS    73
                                        *                       INSTALLATION PARAMETERS CONTAINS CYBER 76        OPTIONS    74
                                        *                       VALUES.                                          OPTIONS    75
                                        *                   2.  SELECT THE DESIRED VALUE FOR THE "MODEL" MICRO   OPTIONS    76
                                        *                       DEFINED IN THE BOX ENTITLED -                    OPTIONS    77
                                        *                       "TARGET (I.E. OBJECT-TIME) CYBER 70/ SERIES      OPTIONS    78
                                        *                       MODEL."                                          OPTIONS    79
                                        *                                                                        OPTIONS    80
                                        *         CAUTIONS -                                                     OPTIONS    81
                                        *                1.  THE CROSS-MODEL COMPILER MUST BE INSTALLED USING    OPTIONS    82
                                        *                    THE "FTNTEXT"  BUILT WITH THE ABOVE PROCEDURE.      OPTIONS    83
                                        *                2.  AN "OPTIONS" COMDECK CONFIGURED FOR CROSS-MODEL     OPTIONS    84
                                        *                    COMPILATION CAN NOT BE USED WHEN BUILDING "FTNMAC". OPTIONS    85
                                        *                    THE STANDARD "OPTIONS" COMDECK MUST BE USED.        OPTIONS    86
                                        *                                                                        OPTIONS    87
                                        ***                                                                      OPTIONS    88
  
  
  
                                        ***       PROCESSOR NAME, VERSION AND MODIFICATION LEVEL.                OPTIONS    90
                                        *                                                                        OPTIONS    91
                                         PSR      MICRO  1,,$871$                                                PSRLEVEL    1
                                         LPNAME   MICRO  1,7,/FTN    /     LANGUAGE PROCESSOR NAME               OPTIONS    92
                                         VER      MICRO  1,3,/5.1/                                               F1037F5A    5
                                                  IF     MIC,PSR,2                                               OPTIONS    94
                                         MODLVL   MICRO  1,9,$"PSR"         $                                    OPTIONS    95
                                                  SKIP   1                                                       OPTIONS    96
                                         MODLVL   MICRO  1,9,$"MODLEVEL"         $                               OPTIONS    97
  
  
                                        **        VALMDL - VALIDATE MODEL MICRO                                  OPTIONS    99
                                                                                                                 OPTIONS   100
                                                  MACRO  VALMDL,MDL,HFP                                          F2950F5     4
                                         .1       MICCNT HFP                                                     F2950F5     5
                                         .2       MICRO  .1,1,/"HFP"/                                            F2950F5     6
                                                  IFC    EQ,/".2"/S/                                             F2950F5     7
                                         MDL      MICRO  1,,/73/                                                 F2950F5     8
                                                  ELSE                                                           F2950F5     9
                                         MDL      MICRO  1,,/7".2"/                                              F2950F5    10
                                                  ENDIF                                                          F2950F5    11
                                                  IFC    NE,/"HFP"/P740/                                         FC5A446     7
                                                  IFC    NE,/"HFP"/P750/                                         FC5A446     8
                                                  IFC    NE,/"HFP"/P760/                                         FC5A446     9
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     4
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         VALMDL
  
                                                  ELSE                                                           FC5A446    10
                                         MDL      MICRO  1,,/74/                                                 FC5A446    11
                                                  ENDIF                                                          FC5A446    12
                                                  IFC    NE,/"HFP"/P990/                                         FC5A478     7
                                                  IFC    NE,/"HFP"/P994/                                         FC5A521     6
                                                  IFC    NE,/"HFP"/P995/                                         FC5A521     7
                                                  ELSE                                                           FC5A478     8
                                         MDL      MICRO  1,,/76/                                                 FC5A478     9
                                         CPU990   MICRO  1,,/990/                                                FC5A495     6
                                                  ENDIF                                                          FC5A478    10
                                                  ENDM                                                           F2950F5    12
  
  
  
                                        ***       CALL OPERATING SYSTEM INSTALLATION PARAMETERS.                 OPTIONS   121
                                        *                                                                        OPTIONS   122
                                        *         CAUTION - THE TEXT CONTAINING THE INSTALLATION PARAMETERS      OPTIONS   123
                                        *                SHOULD CONTAIN PARAMETER VALUES WHICH ARE CONSISTANT    OPTIONS   124
                                        *                WITH THE CYBER MODEL THAT THIS COMPILER WILL BE         OPTIONS   125
                                        *                INSTALLED AND EXECUTED ON.                              OPTIONS   126
                                        *                                                                        OPTIONS   127
                                                  QUAL   IPARAM                                                  OPTIONS   128
                                                  IPARAMS                                                        OPTIONS   129
                                                  IF     -DEF,IP.PD,1                                            OPTIONS   130
                                         IP.PD    EQU    6           TEMPORARY UNTIL OPERATING SYSTEM CONFORMS   OPTIONS   131
                                                  IF     -DEF,IP.PS,1                                            OPTIONS   132
                                         IP.PS    EQU    60          TEMPORARY UNTIL OPERATING SYSTEM CONFORMS   OPTIONS   133
                                                  DEFINHF                                                        F2950F5    13
                                                  QUAL   *                                                       OPTIONS   134
                                        *                                                                        OPTIONS   135
                                        *         THE FOLLOWING SYMBOLS ARE SET USING VALUES OBTAINED FROM THE   OPTIONS   136
                                        *         PRECEDING CALL TO IPARAMS.                                     OPTIONS   137
                                        *                                                                        OPTIONS   138
                                        *         CT.CPU IS THE COMPILE-TIME MACHINE.  IT HAS A VALUE EQUAL TO   OPTIONS   139
                                        *                THE FIRST TWO CHARACTERS OF THE CYBER "MODEL", I.E.     OPTIONS   140
                                        *                72, 73, 74, OR 76.  IT IS REFERENCED WHENEVER THE       OPTIONS   141
                                        *                MACHINE THAT IS COMPILING THE FORTRAN PROGRAM MUST      OPTIONS   142
                                        *                BE KNOWN.                                               OPTIONS   143
                                        *         .OS    IS THE COMPILE-TIME OPERATING SYSTEM.  IT IS SET TO 1   OPTIONS   144
                                        *                FOR NOS 1 OPERATING SYSTEMS, 2 FOR SCOPE 2 OPERATING    OPTIONS   145
                                        *                SYSTEMS AND 3 FOR SCOPE 3  OPERATING SYSTEMS.           OPTIONS   146
                                        *                IT IS USED FOR CONDITIONAL ASSEMBLY OF CODE THAT IS     OPTIONS   147
                                        *                OPERATING SYSTEM DEPENDENT.  IT SHOULD NOT BE USED TO   OPTIONS   148
                                        *                DETERMINE MACHINE DIFFERENCES.                          OPTIONS   149
                                                                                                                 OPTIONS   150
                              140000     IP.MFL   =      /IPARAM/IP.MFL    MAXIMUM JOB FIELD LENGTH              OPTIONS   151
                                   0     IP.CSET  =      /IPARAM/IP.CSET                                         OPTIONS   152
                                   2     IP.C63   =      /IPARAM/IP.C63                                          OPTIONS   153
                                                                                                                 OPTIONS   154
                                   0     TPD      SET    0                                                       OPTIONS   155
                                                  ECHO   2,A=(3,4,6,8),B=(6,8,6,8)                               OPTIONS   156
                                                  IFEQ   A,/IPARAM/IP.PD,1                                       OPTIONS   157
                                         TPD      SET    B                                                       OPTIONS   158
                                   6              ERRZR  TPD         IP.PD MUST BE 3, 4, 6, OR 8                 OPTIONS   159
                                   6     IP.PD    =      TPD         DEFAULT PRINT DENSITY                       OPTIONS   160
                                  74     IP.PS    =      /IPARAM/IP.PS     DEFAULT PAGE SIZE                     OPTIONS   161
                                                                                                                 OPTIONS   162
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     5
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                         MDL      VALMDL HF.P                                                    F2950F5    14
                                 111     CT.CPU   EQU    "MDL"       COMPILE-TIME CPU                            OPTIONS   164
                                                                                                                 OPTIONS   165
                                   1     .OT      SET    1           SET FOR NOS                                 OPTIONS   166
                                         #OS      IFC    EQ,/"OS.NAME"/SCOPE /                                   OPTIONS   167
                                         .VER     MICRO  1,1,/"OS.VER"/                                          OPTIONS   168
                                         .OT      SET    ".VER"      SET FOR SCOPE "OS.VER"                      OPTIONS   169
                                         #OS      ENDIF                                                          OPTIONS   170
                                   1     .OS      EQU    .OT         COMPILE-TIME OPERATING SYSTEM               OPTIONS   171
                                        *                                                                        OPTIONS   172
                                        ***                                                                      OPTIONS   173
  
  
  
                                        ***       CENTRAL PROCESSOR CONFIGURATION DECLARATIONS.                  OPTIONS   175
                                                                                                                 OPTIONS   176
                                                                                                                 OPTIONS   177
                                        *         ************************************************************** OPTIONS   178
                                        *         *                                                            * OPTIONS   179
                                        *         *      TARGET ( OBJECT TIME ) CYBER 70/170 SERIES MODEL.     * OPTIONS   180
                                        *         *                                                            * OPTIONS   181
                                        *         *      ACCEPTABLE VALUES       OLDER MACHINE CROSS-REF       * OPTIONS   182
                                        *         *            ----                       ----                 * OPTIONS   183
                                        *         *                                                            * OPTIONS   184
                                        *         *            71                         6400                 * OPTIONS   185
                                        *         *            72                         6200                 * OPTIONS   186
                                        *         *            73                         6400                 * OPTIONS   187
                                        *         *            73-2                       6500                 * OPTIONS   188
                                        *         *            74                         6600                 * OPTIONS   189
                                        *         *            74-2                       6700                 * OPTIONS   190
                                        *         *            76                         7600                 * OPTIONS   191
                                        *         *            171                        6400                 * OPTIONS   192
                                        *         *            172                        6400                 * OPTIONS   193
                                        *         *            173                        6400                 * OPTIONS   194
                                        *         *            174                        6400                 * OPTIONS   195
                                        *         *            175                        CYBER 175 CPU        * OPTIONS   196
                                        *         *            176                        7600                 * OPTIONS   197
                                        *         *                                                            * OPTIONS   198
                                        *         *      IN A STANDARD INSTALLATION PROCEDURE THIS BOX MAY BE  * OPTIONS   199
                                        *         *      IGNORED. TO BUILD A CROSS-MODEL COMPILER, DO ONE     *  F1037F5    82
                                        *         *      OF THE FOLLOWING :                                   *  F1037F5    83
                                        *         *                                                           *  F1037F5    84
                                        *         *      A) SELECT A VALUE FROM THE LIST ABOVE, REMOVE BOTH   *  F1037F5    85
                                        *         *         ASTERISKS, AND INSERT THE PROPER VALUE ON THE     *  F1037F5    86
                                        *         *         FOLLOWING LINE.                                      F1037F5    87
                                        *         DEFMOD 74                                                      F1037F5    88
                                        *         DEFINHF                                                        F1037F5    89
                                        *         *                                                           *  F1037F5    90
                                        *         *      B) EQUATE THE FOLLOWING PARAMETER TO 1. THIS WILL    *  F1037F5    91
                                        *         *         CAUSE A MODEL-INDEPENDENT COMPILER TO BE BUILT.   *  F1037F5    92
                                        *         *         (NOTE - THIS BUILD PROCEDURE IS INCOMPATIBLE      *  F1037F5    93
                                        *         *         WITH THE SCOPE 2 OPERATING SYSTEM)                *  F1037F5    94
                                   0     .MI      EQU    0                                                       F1037F5    95
                                        *         *                                                           *  F1037F5    96
                                        *         ************************************************************** OPTIONS   205
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     6
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   207
                                        *         *                                                            * OPTIONS   208
                                        *         *      INTER-WORD TIME PARAMETER (MODEL 6600 ONLY).          * OPTIONS   209
                                        *         *                                                            * OPTIONS   210
                                        *         *      WHEN THE TARGET, I.E., OBJECT-TIME, CPU IS A 6600     * OPTIONS   211
                                        *         *      WITHOUT THE RNI ( READ NEXT INSTRUCTION ) AT P+2      * OPTIONS   212
                                        *         *      EQUATE THE FOLLOWING PARAMETER TO FOUR (4).  FOR ALL  * OPTIONS   213
                                        *         *      OTHER MACHINES, INCLUDING THE CYBER 74, EQUATE THE    * OPTIONS   214
                                        *         *      PARAMETER TO ZERO.                                    * OPTIONS   215
                                   0     .IWT     EQU    0                                                       OPTIONS   216
                                        *         *                                                            * OPTIONS   217
                                        *         ************************************************************** OPTIONS   218
  
  
  
                                        *         ************************************************************** OPTIONS   220
                                        *         *                                                            * OPTIONS   221
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING COMPILATION.   * OPTIONS   222
                                        *         *      VALUE CHOSEN MUST AGREE WITH OPERATING SYSTEM         * OPTIONS   223
                                        *         *      CAPABILITIES AND COMPILER INSTALLATION PROCEDURES.    * OPTIONS   224
                                        *         *      VALUES ARE --                                         * OPTIONS   225
                                        *         *                                                            * OPTIONS   226
                                        *         *                  0 = USE CIO. (DEFAULT FOR LOWER CYBER)    * OPTIONS   227
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   228
                                        *         *                                                            * OPTIONS   229
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   230
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   231
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   232
                                        *CP#RM    =      0                                                     * OPTIONS   233
                                        *         *                                                            * OPTIONS   234
                                        *         ************************************************************** OPTIONS   235
  
  
  
  
                                        *         ************************************************************** OPTIONS   237
                                        *         *                                                            * OPTIONS   238
                                        *         *      SELECT USE OF *ECS* DURING COMPILATION FOR OPT=2 .    * OPTIONS   239
                                        *         *      CHOSEN VALUE MUST AGREE WITH HARDWARE AVAILABILITY.   * OPTIONS   240
                                        *         *      VALUES ARE -                                          * OPTIONS   241
                                        *         *                                                            * OPTIONS   242
                                        *         *                  1 = ECS AVAILABLE                         * OPTIONS   243
                                        *         *                  0 = NO ECS AVAILABLE                      * OPTIONS   244
                                        *         *                                                            * OPTIONS   245
                                        *         *                  LOWER CYBER DEFAULT =                     * OPTIONS   246
                                        *         *                        0  FOR KRONOS OPERATING SYSTEM      * OPTIONS   247
                                        *         *                        /IPARAM/IP.MECS  FOR SCOPE          * OPTIONS   248
                                        *         *                  CYBER 76 DEFAULT IS 1                     * OPTIONS   249
                                        *         *                                                            * OPTIONS   250
                                        *         *      TO SELECT A VALUE DIFFERENT THAN THE ABOVE DEFAULT    * OPTIONS   251
                                        *         *      REMOVE THE ASTERISK AND INSERT THE PROPER VALUE ON    * OPTIONS   252
                                        *         *      THE FOLLOWING LINE.                                   * OPTIONS   253
                                        *CT.ECS   EQU    0                                                     * OPTIONS   254
                                        *         *                                                            * OPTIONS   255
                                        *         ************************************************************** OPTIONS   256
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     7
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   258
                                        *         *                                                            * OPTIONS   259
                                        *         *      .CDCLIB - SPECIFY THAT THE FORTRAN OBJECT LIBRARY IS  * OPTIONS   260
                                        *         *      THE CURRENT VERSION OF *CDC* *FCL*.  IF .CDCLIB IS    * OPTIONS   261
                                        *         *      NOT ZERO, THEN WHEN OPT = 3 IS SELECTED, THE            OPTIONS   262
                                        *         *      COMPILER MAY ASSIGN B-REGISTERS IN LOOPS THAT CONTAIN * OPTIONS   263
                                        *         *      REFERENCES TO THE BASIC FORTRAN LIBRARY FUNCTIONS     * OPTIONS   264
                                        *         *      SUCH AS SIN, SQRT, EXP, ETC.                            OPTIONS   265
                                        *         *                                                            * OPTIONS   266
                                   1     .CDCLIB  EQU    1           MATH LIBRARY IS CURRENT *CDC* LIBRARY       OPTIONS   267
                                        *         *                                                            * OPTIONS   268
                                        *         ************************************************************** OPTIONS   269
  
  
  
  
                                        *         ************************************************************** OPTIONS   271
                                        *         *                                                            * OPTIONS   272
                                        *         *      SELECT INPUT/OUTPUT SYSTEM USED DURING EXECUTION.     * OPTIONS   273
                                        *         *      VALUE CHOSEN MUST AGREE WITH THE CAPABILITIES OF THE  * OPTIONS   274
                                        *         *      OPERATING SYSTEM THAT THE OBJECT PROGRAM WILL BE      * OPTIONS   275
                                        *         *      LOADED ON. IT MAY ONLY BE 7 ON A CYBER 76 THAT IS RUN * OPTIONS   276
                                        *         *      WITH A SCOPE 2.X OPERATING SYSTEM.                    * OPTIONS   277
                                        *         *      VALUES ARE --                                         * OPTIONS   278
                                        *         *                                                            * OPTIONS   279
                                        *         *                  6 = USE 6RM. (DEFAULT FOR LOWER CYBER)    * OPTIONS   280
                                        *         *                  7 = USE 7RM. (DEFAULT FOR CYBER 76)       * OPTIONS   281
                                        *         *                                                            * OPTIONS   282
                                        *         *      THE DEFAULT FOR A CROSS-MODEL COMPILER IS "6".        * OPTIONS   283
                                        *         *      TO SELECT A  VALUE DIFFERENT THAN THE ABOVE DEFAULT   * OPTIONS   284
                                        *         *      VALUES, REMOVE THE ASTERISK AND INSERT THE DESIRED    * OPTIONS   285
                                        *         *      VALUE ON THE FOLLOWING LINE.                          * OPTIONS   286
                                        *OT#RM    =      6                                                       OPTIONS   287
                                        *         *                                                            * OPTIONS   288
                                        *         ************************************************************** OPTIONS   289
  
  
  
  
                                        *         ************************************************************** FC5A180    12
                                        *         *                                                            * FC5A180    13
                                        *         *      SELECT MINIMUM FIELD LENGTH INSTALLATION.             * FC5A180    14
                                        *         *      THIS OPTION FORCES ALL BUFFERS INTO MINIMAL           * FC5A180    15
                                        *         *      ALLOCATIONS IN ORDER TO COMPILE IN AN                 * FC5A180    16
                                        *         *      ABSOLUTE MINIMUM FIELD LENGTH.  THIS IS               * FC5A180    17
                                        *         *      ACCOMPLISHED AT THE EXPENSE OF COMPILE SPEED, AND     * FC5A180    18
                                        *         *      IS RECOMMENDED ONLY FOR 32K SCM 7600-STYLE SYSTEMS.   * FC5A180    19
                                        *         *                                                            * FC5A180    20
                                        *         *      TO SELECT THIS OPTION, SET .MINFL TO 1 ON THE         * FC5A180    21
                                        *         *      FOLLOWING LINE.                                       * FC5A180    22
                                   0     .MINFL   =      0                                                       FC5A180    23
                                        *         *                                                            * FC5A180    24
                                        *         ************************************************************** FC5A180    25
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     8
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         ************************************************************** OPTIONS   291
                                        *         *                                                            * OPTIONS   292
                                        *         *      CHARACTER APPENDED TO FILE NAMES FOR UNIQUENESS.      * OPTIONS   293
                                        *         *                                                            * OPTIONS   294
                                         FC       MICRO  1,,/#/                                                  OPTIONS   295
                                        *         *                                                            * OPTIONS   296
                                        *         ************************************************************** OPTIONS   297
  
  
  
                                        *         ************************************************************** OPTIONS   299
                                        *         *                                                            * OPTIONS   300
                                        *         *      DEFINE OBJECT-TIME FILE TABLE SIZES.                  * OPTIONS   301
                                        *         *                                                            * OPTIONS   302
                                        *         *                  6RM VALUES                                * OPTIONS   303
                                  34     L.FIT6   =      19D+9D      FIT LENGTH                                  OPTIONS   304
                                  15     L.FET6   =      13D         FET LENGTH                                  OPTIONS   305
                                2003     L.IOBUF6 =      2003B       DEFAULT CIO BUFFER LENGTH                   OPTIONS   306
                                 101     L.TIN    =      101B        DEFAULT BUFFER FOR *INPUT* ON TERMINAL JOB  OPTIONS   307
                                 401     L.TOUT   =      401B        DEFAULT BUFFER FOR *OUTPUT* OF TERMINAL JOB OPTIONS   308
                                        *         *                                                            * OPTIONS   309
                                        *         *                  7RM VALUES                                * OPTIONS   310
                                  26     L.FIT7   =      22D         FIT LENGTH                                  FC50729     6
                                   0     L.FET7   =      0           FET LENGTH                                  OPTIONS   312
                                   0     L.IOBUF7 =      0           DEFAULT CIO BUFFER LENGTH                   OPTIONS   313
                                        *         *                                                            * OPTIONS   314
                                        *         ************************************************************** OPTIONS   315
  
  
  
                                        *         ************************************************************** OPTIONS   317
                                        *         *                                                            * OPTIONS   318
                                        *         *      SELECT DIVISION BY RECIPROCAL MULTIPLICATION.         * OPTIONS   319
                                        *         *                                                            * OPTIONS   320
                                        *         *      WHEN THE FOLLOWING PARAMETER IS ZERO, *CONRED* WILL   * OPTIONS   321
                                        *         *      ATTEMPT TO REPLACE X/C BY X*(1/C), WHERE [X] IS AN    * OPTIONS   322
                                        *         *      EXPRESSION AND [C] IS A CONSTANT (REDUCTION IN        * OPTIONS   323
                                        *         *      STRENGTH).  SET NON-ZERO TO DEFEAT THE FEATURE.       * OPTIONS   324
                                        *         *                                                            * OPTIONS   325
                                   0     NOINVERT EQU    0                                                       OPTIONS   326
                                        *         *                                                            * OPTIONS   327
                                        *         ************************************************************** OPTIONS   328
  
  
  
                                        *         ************************************************************** FC5A483    10
                                        *         *                                                            * FC5A483    11
                                        *         *      SELECT RUN TIME CHECK FOR INTEGER DIVIDE BY ZERO      * FC5A483    12
                                        *         *                                                            * FC5A483    13
                                        *         *      WHEN THE FOLLOWING PARAMETER IS SET TO 1, INTEGER     * FC5A483    14
                                        *         *      DIVIDE BY ZERO WILL BE TRAPPED AT RUN TIME AND        * FC5A483    15
                                        *         *      THE RUNNING JOB WILL BE STOPPED. THE COST FOR         * FC5A483    16
                                        *         *      THIS WILL BE TWO ADDITIONAL INSTRUCTIONS FOR          * FC5A483    17
                                        *         *      EVERY INTEGER DIVIDE. THIS FEATURE SHOULD NOT BE      * FC5A483    18
                                        *         *      USED FOR AN APPLICATION JOB THAT IS INTEGER DIVIDE    * FC5A483    19
                                        *         *      INTENSIVE OR IF IT IS FELT THAT PERFORMANCE           * FC5A483    20
                                        *         *      OF THE APPLICATION JOB WILL BE ADVERSELY AFFECTED.    * FC5A483    21
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE     9
        O P T I O N S  -  FORTRAN EXT INSTALLATION PARAMETERS         OPTIONS 
  
                                        *         *                                                            * FC5A483    22
                                   0     .IDC     EQU    0                                                       FC5A483    23
                                        *         *                                                            * FC5A483    24
                                        *         ************************************************************** FC5A483    25
  
  
                                        ***   ***   THERE ARE NO INSTALLATION OPTIONS BELOW THIS LINE ***   ***  OPTIONS   330
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    10
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        ***                                                                      OPTIONS   332
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT COMPILE-TIME.  IF     OPTIONS   333
                                        *         THEY HAVE NOT BEEN DEFINED ABOVE BY THE INSTALLER, THEY ARE    OPTIONS   334
                                        *         GIVEN DEFAULT VALUES WHICH ARE CONSISTENT WITH THE VALUE OF    OPTIONS   335
                                        *         THE *MODEL* MICRO OBTAINED FROM A CALL TO *IPARAMS* AT THE     OPTIONS   336
                                        *         BEGINNING OF *OPTIONS*.                                        OPTIONS   337
                                        *                                                                        OPTIONS   338
                                        *         CP#RM  IS THE COMPILE-TIME I/O FLAG.  IT IS DESCRIBED IN THE   OPTIONS   339
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   340
                                        *                                                                        OPTIONS   341
                                        *         CT.ECS INDICATES WHETHER OR NOT ECS MIGHT BE AVAILABLE FOR     OPTIONS   342
                                        *                OPT=2 USE DURING COMPILATIONS.                          OPTIONS   343
                                                                                                                 OPTIONS   344
                                         #MD      IFEQ   CT.CPU,76   COMPILE-TIME CPU                            OPTIONS   345
                                         #MD      IFEQ   .OS,2                                                   OPTIONS   346
                                                                                                                 OPTIONS   347
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   348
                                                                                                                 OPTIONS   349
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   350
                                         CP#RM    EQU    7           USE 7RM AT COMPILE-TIME                     OPTIONS   351
                                         #RM      ENDIF                                                          OPTIONS   352
                                                                                                                 OPTIONS   353
                                         #ECS     IF     -DEF,CT.ECS                                             OPTIONS   354
                                         CT.ECS   EQU    1           USE LCM AT COMPILE TIME                     OPTIONS   355
                                         #ECS     ENDIF                                                          OPTIONS   356
                                                                                                                 FC5A158A   54
                                         .FID     EQU    0           DO NOT ASSEMBLE INTERACTIVE DEBUG CODE      FC5A158A   55
                                                                                                                 OPTIONS   357
                                         #MD      ELSE                                                           OPTIONS   358
                                                                                                                 OPTIONS   359
                                        *         LOWER CYBER AND CYBER 170 SERIES DEFAULT VALUES.               OPTIONS   360
                                                                                                                 OPTIONS   361
                                         #RM      IF     -DEF,CP#RM                                              OPTIONS   362
                                   0     CP#RM    EQU    0           USE CIO AT COMPILE-TIME                     OPTIONS   363
                                         #RM      ENDIF                                                          OPTIONS   364
                                                                                                                 OPTIONS   365
                                         #ECS     IF     -DEF,CT.ECS,4                                           OPTIONS   366
                                         #ECS     IF     DEF,/IPARAM/IP.MECS,2                                   OPTIONS   367
                                   1     CT.ECS   EQU    /IPARAM/IP.MECS                                         OPTIONS   368
                                         #ECS     SKIP   1                                                       OPTIONS   369
                                         CT.ECS   EQU    0                                                       OPTIONS   370
                                         #ECS     ENDIF                                                          OPTIONS   371
                                                                                                                 FC5A158A   56
                                   1     .FID     EQU    1           ASSEMBLE INTERACTIVE DEBUG CODE             FC5A158A   57
                                                                                                                 OPTIONS   372
                                         #MD      ENDIF                                                          OPTIONS   373
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    11
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        **        IF .MI HAS BEEN EQUATED TO 1, FORCE A 176 STYLE BUILD, AND     F1037F5    98
                                        *         CAUSE AN ASSEMBLY ERROR IF .OS = 2 (SCOPE 2).                  F1037F5    99
                                                                                                                 F1037F5   100
                                                  IFEQ   .MI,1,3                                                 F1037F5   101
                                                  ERRZR  .OS-2                                                   F1037F5   102
                                                  DEFMOD 176                                                     F1037F5   103
                                                  DEFINHF                                                        F1037F5   104
                                                                                                                 F1037F5   105
  
  
  
  
                                        *         SELECT SYSTEM- OR TEST-MODE COMPILER CONFIGURATION.            OPTIONS   375
                                                                                                                 OPTIONS   376
                                   0     TEST     =      0           ASSEMBLE COMPILER IN SYSTEM MODE            OPTIONS   380
                                                                                                                 OPTIONS   381
                                  -1     SC2ZERO  SET    .OS-2                                                   FC5A158A   58
                                   0     .SPY     =      SC2ZERO/SC2ZERO*TEST                                    FC5A158A   59
                                        *                                                                        OPTIONS   383
                                        ***                                                                      OPTIONS   384
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    12
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                        ***                                                                      OPTIONS   386
                                        *         THE FOLLOWING SYMBOLS ARE SIGNIFICANT AT OBJECT-TIME.  IF      OPTIONS   387
                                        *         THEY HAVE NOT BEEN DEFINED BY THE  INSTALLER THEY ARE GIVEN    OPTIONS   388
                                        *         DEFAULT VALUES CONSISTENT WITH THE OBJECT-TIME *MODEL* IF      OPTIONS   389
                                        *         DEFINED ABOVE BY THE INSTALLER, OR IF THE OBJECT-TIME          OPTIONS   390
                                        *         MODEL IS NOT DEFINED THEY ARE GIVEN VALUES CONSISTANT WITH     OPTIONS   391
                                        *         THE COMPILE-TIME MACHINE OBTAINED FROM *IPARAMS*.              OPTIONS   392
                                        *                                                                        OPTIONS   393
                                        *         .CPU   IS THE OBJECT-TIME CPU.  IT HAS A VALUE EQUAL TO THE    OPTIONS   394
                                        *                FIRST TWO CHARACTERS OF THE *MODEL* MICRO, I.E. 72,     OPTIONS   395
                                        *                73, 74, OR 76.  IT IS TO BE USED FOR OBJECT-TIME        OPTIONS   396
                                        *                HARDWARE DIFFERENCES ONLY.                              OPTIONS   397
                                        *         .DAL   IS A FLAG USED TO DETERMINE IF DIRECT ACCESS LCM IS     OPTIONS   398
                                        *                AVAILABLE.  IT IS SET TO 1 TO ALLOW DIRECT ACCESS OF    OPTIONS   399
                                        *                LCM FOR FORTRAN *LEVEL 2* VARIABLES.  IF SET TO 0,      OPTIONS   400
                                        *                FORTRAN *LEVEL 2* VARIABLES WILL BE CENTRAL MEMORY      OPTIONS   401
                                        *                RESIDENT,  AND ACCESSED WITH SCM/CM OBJECT CODE.        OPTIONS   402
                                        *         OT#RM  IS THE OBJECT-TIME I/O FLAG.  IT IS DESCRIBED IN THE    OPTIONS   403
                                        *                *OPTIONS* COMDECK.                                      OPTIONS   404
                                                                                                                 OPTIONS   405
                                         MDL      VALMDL HF.P                                                    F2950F5    18
                                                                                                                 OPTIONS   407
                                 111     .CPU     EQU    "MDL"       OBJECT TIME CPU                             OPTIONS   408
                                                  IF     -MIC,HF.S                                               F2950F5    19
                                   0     L.STACK  EQU    0                                                       F2950F5    20
                                                  ELSE                                                           F2950F5    21
                                         .1       MICRO  2,,/"HF.S"/                                             F2950F5    22
                                         L.STACK  EQU    ".1"+1                                                  F2950F5    23
                                                  ENDIF                                                          F2950F5    24
                                                  IF     MIC,HF.L                                                F2950F5    25
                                   1     .DAL     EQU    1                                                       F2950F5    26
                                                  ELSE                                                           F2950F5    27
                                         .DAL     EQU    0                                                       F2950F5    28
                                                  ENDIF                                                          F2950F5    29
                                                                                                                 OPTIONS   413
                                         #MD      IFEQ   .CPU,76                                                 OPTIONS   414
                                                                                                                 OPTIONS   415
                                        *         CYBER 76 DEFAULT VALUES.                                       OPTIONS   416
                                                                                                                 OPTIONS   417
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   418
                                         #OS      IFEQ   .OS,2                                                   OPTIONS   419
                                         OT#RM    EQU    7           USE 7RM FOR OBJECT TIME I/O                 OPTIONS   420
                                         #OS      ELSE                                                           OPTIONS   421
                                         OT#RM    =      6                                                       OPTIONS   422
                                         #OS      ENDIF                                                          OPTIONS   423
                                         #RM      ENDIF                                                          OPTIONS   424
                                                                                                                 OPTIONS   425
                                         SCM      MICRO  1,,/SCM/                                                OPTIONS   426
                                         LCM      MICRO  1,,/LCM/                                                OPTIONS   427
                                                                                                                 OPTIONS   428
                                         #MD      ELSE                                                           OPTIONS   429
                                                                                                                 OPTIONS   430
                                        *         LOWER CYBER DEFAULT VALUES.                                    OPTIONS   431
                                                                                                                 OPTIONS   432
                                         #RM      IF     -DEF,OT#RM                                              OPTIONS   433
                                   6     OT#RM    EQU    6           USE 6RM FOR OBJECT TIME I/O                 OPTIONS   434
                                         #RM      ENDIF                                                          OPTIONS   435
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    13
        INITIALIZE OPTIONS NOT PREVIOUSLY DEFINED.                    DEFAULTS
  
                                                                                                                 OPTIONS   436
                                         SCM      MICRO  1,,/CM/                                                 OPTIONS   437
                                         LCM      MICRO  1,,/ECS/                                                OPTIONS   438
                                                                                                                 OPTIONS   439
                                         #MD      ENDIF                                                          OPTIONS   440
                                        ****                                                                     OPTIONS   441
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    14
        ASSEMBLY CONSTANTS.                                           CONSTS
  
                                        **        ASSEMBLY CONSTANTS.                                            FTN5TXT    32
                                                                                                                 FTN5TXT    33
                                                                                                                 FTN5TXT    34
                                  36              COL    30          COLUMN FOR COMMENT FIELD.                   FTN5TXT    35
                                                                                                                 FTN5TXT    36
                                  12     FLSZ     EQU    10          SAFETY ZONE BET. CURRENT FL AND CP.NFLS     FTN5TXT    37
                               30000     IN.LCM   EQU    30000B      INITIAL LCM FL REQUEST                      FC5A119     7
                                   7     MAX.DIM  EQU    7           MAXIMUM NUMBER OF DIMENSIONS PERMITTED      FTN5TXT    38
                                  27     MAX.SPAN EQU    23          BIT COUNT - MAXIMUM DIMENSION SPAN SIZE     FTN5TXT    39
                              377777     MAX.SPCM EQU    1S17-1      MAXIMUM DIMENSION SPAN - SCM                FTN5TXT    40
                             3777770     MAX.SPLC EQU    1S20-8      MAXIMUM DIMENSION SPAN - LCM                FTN5TXT    41
                               77777     MAX.REPL EQU    77777B      MAXIMUM REPLICATION COUNT (DATA CONSTANTS)  FC50336     7
                                                                                                                 FTN5TXT    42
                                  23     ANS.CONT EQU    19D         MAX. NO. OF CONTIN. CARDS PERMITTED BY ANSI FTN5TXT    43
                                  12     MAX.CDL  EQU    10          MAXIMUM INPUT LINE (WORDS)                  FTN5TXT    44
                                                                                                                 FTN5TXT    45
                                 764     MAX.BLK  =      500D        MAXIMUM NUMBER OF COMMON BLOCKS             FTN5TXT    46
                                                                                                                 FTN5TXT    47
                                 764     MAX.SARG   =    500         MAXIMUM NUMBER OF ARGUMENTS TO A SUBPROGRAM FTN5TXT    48
                                  61     MAX.PARG EQU    49          MAXIMUM NUMBER OF FILES ON *PROGRAM* STMT   FC5A183     4
                                                                                                                 FTN5TXT    50
                                   5     MAX.STN  EQU    5           NUMBER OF DIGITS TO ASSEMBLE FOR STMT. NO.  FTN5TXT    51
                                   7     MAX.VAR  EQU    7           NUMBER OF CHARACTERS TO ASSEMBLE FOR        FTN5TXT    52
                                                                     TABBING PROCESS.                            FTN5TXT    53
                                   7     MAX.LFN  EQU    7           NUMBER OF CHARACTERS ALLOWED IN LOGICAL     FTN5TXT    54
                                                                     FILE NAME                                   FTN5TXT    55
                                1003     BUFL.SM  EQU    1003B       DEFAULT BUFL (STATIC MODE)                  F1037F5   106
                                2003     BUFL.DM  EQU    2003B       DEFAULT BUFL (DYNAMIC MODE)                 F1037F5   107
                                   3     BUFL.ADD EQU    3           BUFFER LENGTH ADDENDUM                      F1037F5   108
                              360000     MAX.BUFL EQU    360000B                                                 FTN5TXT    56
                              377777     MAX.RECL EQU    1S17-1                                                  FTN5TXT    57
                                 211     NOR.RECL EQU    137D        NOROMAL RECORD LENGTH                       FTN5TXT    58
                                                                                                                 FTN5TXT    59
                               77777     MAX.CL   EQU    1S15-1      MAXIMUM CHARACTER LENGTH (TYPE CHARACTER)   FTN5TXT    60
                                                                                                                 FTN5TXT    61
                              377777     MAX.SDL  EQU    1S17-1      MAXIMUM SHORT DO LOOP TRIP COUNT            FTN5TXT    62
                               34000     MEM.GOFL EQU    34000B      MEM DOWN FL FOR *GO* MODE                   FC5A158A   60
                                3000     MIN.TABS =      3000B                                                   FC5A184     7
                                3000     NOM.INC  EQU    3000B       NOMINAL FL INCREMENT                        FC5A119     8
                                                                                                                 FTN5TXT    64
                                         EXT      MICRO  1,, .       SUFFIX FOR LIBRARY EXTERNALS                FTN5TXT    65
                                         XBYNAM   MICRO  1,, =       SUFFIX FOR CALL BY NAME EXTERNAL INTRINSIC  FTN5TXT    66
                                         XBYVAL   MICRO  1,, .       SUFFIX FOR CALL BY VALUE EXTERNAL INTRINSIC FTN5TXT    67
                                         XUPNAM   MICRO  1,, $       SUFFIX FOR CALL BY NAME EXPONENTATION       FTN5TXT    68
                                                                                                                 FTN5TXT    69
                                                                                                                 FTN5TXT    70
                                   6     CHAR     =      6           BITS PER CHARACTER                          FTN5TXT    71
                                   1     ON       =      1           CONDITIONAL SWITCH                          FTN5TXT    72
                                   0     OFF      =      0           CONDITIONAL SWITCH                          FTN5TXT    73
                                         BLOWUP   MICRO  1,, *O+4S15       OUT OF BOUNDS JUMP ADDRESS            FTN5TXT    74
                                                                                                                 FTN5TXT    75
                                        **        ERROR LEVEL OPTION TRANSFORMATIONS                             FTN5TXT    76
                                                                                                                 FTN5TXT    77
      L      2                                    LOC    2                                                       F1037F5   109
                                                  IFEQ   TEST,ON,1                                               FTN5TXT    79
                                         EL=D     BSS    1           DEBUG                                       FTN5TXT    80
      L      2                     1     EL=T     BSS    1           TRIVIAL                                     FTN5TXT    81
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    15
        ASSEMBLY CONSTANTS.                                           CONSTS
  
      L      3                     1     EL=W     BSS    1           WARNING                                     FTN5TXT    82
      L      4                     1     EL=F     BSS    1           FATAL                                       FTN5TXT    83
      L      5                     1     EL=C     BSS    1           CATASTROPHIC                                FTN5TXT    84
             4                                    LOC    *O                                                      FTN5TXT    85
  
  
  
  
                                        **        USAGE OF CELLS IN JOB COMMUNICATIONS AREA.                     FTN5TXT    87
                                                                                                                 FTN5TXT    88
                                                                                                                 FTN5TXT    89
                                  17     RA.LDP   =      RA.SSW+17B - 21B  3 WORDS FOR LOADER CALL PARAM LIST    FTN5TXT    90
                                  66     RA.JOT   =      66B         JOB ORIGIN TYPE BITS 24-35 OF RA+66         FTN5TXT    91
  
  
  
  
                                        **        LOADER 54 TABLE OFFSETS.                                       FTN5TXT    93
                                                                                                                 FTN5TXT    94
                                                                                                                 FTN5TXT    95
                                  11     L54.00   =      11B         LENGTH OF (0,0) 54 TABLE                    FTN5TXT    96
                                   5     L54.NN   =      5           LENGTH OF (N,N) 54 TABLES                   FTN5TXT    97
                                   0     L54.HDR  =      0           54 TABLE HEADER WORD                        FTN5TXT    98
                                   4     L54.HHA  =      4           HIGHEST HIGH ADDRESS, BITS 0-17             FTN5TXT    99
  
  
  
  
                                        **        MEMORY MANAGEMENT CONSTANTS.                                   FTN5TXT   101
                                                                                                                 FTN5TXT   102
                                                                                                                 FTN5TXT   103
                                   0     .CMLOD   EQU    0           NO COMPILE TO CORE                          FTN5TXT   104
                                   1     FUDGE    EQU    1           AMOUNT OF SLOP SPACE BETWEEN TABLES         FTN5TXT   105
                                   4     FLSLOP   =      4           AMOUNT OF SLOP FOR MANAGER =                FTN5TXT   106
                                        *                            (1/2**N)*(WIDTH OF TABLE AREA)              FTN5TXT   107
                                1000     FLSLUP   =      1000B       AMOUNT OF SLOP (INITIAL FIELD LENGTH)       FC5A128    24
                                1400     FLSLUP2  =      1400B       AMOUNT OF SLOP (AFTER *ALLOC* MEM)          FC5A128    25
                                        *                            (THRESH) = FLSLUP +  SLOP[PER FLSLOP]       FTN5TXT   109
                                2000     INC.LTN  =      2000B       FIELD LENGTH INCREMENT WHEN FL .LT. NOM.FL  FTN5TXT   110
                                4000     INC.GTN  =      4000B       FIELD LENGTH INCREMENT WHEN FL .GT. NOM.FL  FTN5TXT   111
                                                                                                                 FTN5TXT   112
                                 240     N.OPSTK  EQU    240B        NUM WORDS RESERVED FOR OPERAND STACK        FTN5TXT   113
                                 240     N.ELSTK  EQU    240B        NUM WORDS RESERVED FOR ELEMENT STACK        FTN5TXT   114
                                                                                                                 FC5A348     8
                                         #ECS     IFNE   CT.ECS,0                                                FC5A348     9
                                         CT.EC    MICRO  1,, ON                                                  FC5A348    10
                                         #ECS     ELSE                                                           FC5A348    11
                                         CT.EC    MICRO  1,, OFF                                                 FC5A348    12
                                         #ECS     ENDIF                                                          FC5A348    13
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    16
        I/O CODING CONVENTIONS                                        FA=DEFS 
  
                                        **        I/O MACRO CODING CONVENTIONS.                                  FA=DEFS     3
                                        *                                                                        FA=DEFS     4
                                        *         1.  MACRO DEFINITIONS THAT ACCEPT NULL CALLING PARAMETERS      FA=DEFS     5
                                        *         SHOULD BE AVOIDED, PARTICULARLY WHEN A NULL PARAMETER IMPLIES  FA=DEFS     6
                                        *         THAT A REGISTER IS ALREADY PROPERLY LOADED.  THE ASSUMPTIONS   FA=DEFS     7
                                        *         OR REGISTERS MAY HAVE TO BE CHANGED IN THE FUTURE, WHICH COULD FA=DEFS     8
                                        *         COMPEL RECODING OF ALL CALLS TO THE MACRO IF NULL PARAMETERS   FA=DEFS     9
                                        *         HAVE SPECIFIC MEANINGS.                                        FA=DEFS    10
                                        *             THE PREFERRED TECHNIQUE IS TO REQUIRE EXPLICIT CALL        FA=DEFS    11
                                        *         PARAMETERS, AND THEN SQUEEZE OUT REDUNDANT CODE WITH THE       FA=DEFS    12
                                        *         (R=) PSEUDO-OP OR OTHER METHOD.                                FA=DEFS    13
                                        *                                                                        FA=DEFS    14
                                        *         2.  *USES* LISTS ONLY THE REGISTERS DESTROYED BY THE MACRO     FA=DEFS    15
                                        *         CALL EXPANSION.  REGISTERS DESTROYED BY INNER MACRO OR         FA=DEFS    16
                                        *         SUBROUTINE CALLS ARE LISTED IN THE DESCRIPTION OF THE CALLED   FA=DEFS    17
                                        *         ITEM.                                                          FA=DEFS    18
                                        *             THE ONLY EXCEPTION TO THIS IS THAT REGISTERS DESTROYED BY  FA=DEFS    19
                                        *         THE (R=) PSEUDO-OP SHOULD BE LISTED IN THE *USES* BLOCK OF     FA=DEFS    20
                                        *         THE CALLER.                                                    FA=DEFS    21
                                        *                                                                        FA=DEFS    22
                                        *         3.  BOTH MACRO AND SUBROUTINE CALLS ARE LISTED IN *CALLS*.     FA=DEFS    23
                                        *                                                                        FA=DEFS    24
                                        *         4.  CONDITIONAL ASSEMBLY PSEUDO-OPS (IF.., ELSE, SKIP, ENDIF)  FA=DEFS    25
                                        *         ARE ALWAYS EITHER COUNT-CONTROLLED OR LABELED, TO AVOID MACRO  FA=DEFS    26
                                        *         NESTING PROBLEMS.                                              FA=DEFS    27
                                        *             COUNT CONTROL IS PREFERRED WHERE THE LINE COUNTS ARE       FA=DEFS    28
                                        *         SMALL (.LE. 9), TO REDUCE ASSEMBLY TIME.                       FA=DEFS    29
                                        *             LABELING IS PREFERRED FOR LARGER LINE COUNTS, TO REDUCE    FA=DEFS    30
                                        *         THE CHANCE OF COUNT ERRORS AND TO ENHANCE CODE READABILITY.    FA=DEFS    31
                                        *                                                                        FA=DEFS    32
                                        *         5.  ADDRESS TERMINOLOGY.                                       FA=DEFS    33
                                        *                THE FOLLOWING CONVENTIONS ARE ADOPTED FOR REFERRING     FA=DEFS    34
                                        *         TO A GROUP OF CONTIGUOUS STORAGE LOCATIONS.                    FA=DEFS    35
                                        *             A.  *FWA* OR FIRST WORD ADDRESS IS THE SMALLEST STORAGE    FA=DEFS    36
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    37
                                        *             B.  *LWA* OR LAST WORD ADDRESS IS THE LARGEST STORAGE      FA=DEFS    38
                                        *             ADDRESS FOR THE GROUP.                                     FA=DEFS    39
                                        *             C.  *ADDRESS*, IF NOT OTHERWISE QUALIFIED, IS THE FIRST    FA=DEFS    40
                                        *             WORD ADDRESS.                                              FA=DEFS    41
                                        *             D. *FWA* IS PREFERRED WHEN BOTH *FWA* AND *LWA* ARE        FA=DEFS    42
                                        *             BEING MENTIONED, TO AVOID CONFUSION.  OTHERWISE,           FA=DEFS    43
                                        *             *ADDRESS* IS PREFERRED.                                    FA=DEFS    44
                                        *             E.  *LWA+1* IS NEVER, NEVER ABBREVIATED AS *LWA*.          FA=DEFS    45
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    17
        I/O SYSTEM SYMBOLS
  
                                         #RM      IFEQ   CP#RM,0                                                 FA=DEFS    48
  
  
  
  
                                        ****      FET STRUCTURE AND WORD OFFSETS.                                FA=DEFS    50
                                        *                                                                        FA=DEFS    51
                                        *                                                                        FA=DEFS    52
                                        *              OFFSET        CONTENTS                                    FA=DEFS    53
                                        *              ------        --------                                    FA=DEFS    54
                                                                                                                 FA=DEFS    55
                                   0     I.FET    =      0           42/EXTERNAL LFN, 18/CIO CODE AND STATUS     FA=DEFS    56
                                   1     I.FIRST  =      1           36/0, 6/FET LEN - 5, 18/FIRST               FA=DEFS    57
                                   1     I.DT     =      1           12/DEVICE TYPE,48/0                         FA=DEFS    58
                                   2     I.IN     =      2           60/IN                                       FA=DEFS    59
                                   3     I.OUT    =      3           60/OUT                                      FA=DEFS    60
                                   4     I.LIMIT  =      4           42/0,18/LIMIT                               FA=DEFS    61
                                   4     I.PRU    =      4           26/0,16/PRU SIZE,18/0                       FA=DEFS    62
                                   5     I.CBSET  =      5           24/0, 18/PASS 1 LEN, 18/PASS 1 FWA          FA=DEFS    63
                                   6     I.RAN1   =      6           RANDOM FILE INFORMATION                     FA=DEFS    64
                                   7     I.RAN2   =      7           RANDOM FILE INFORMATION                     FA=DEFS    65
                                        ****                                                                     FA=DEFS    66
  
  
  
  
                                         #RM      ELSE                                                           FA=DEFS    68
                                                  SPACE  4                                                       FA=DEFS    69
                                        ****      PSEUDO-FET STRUCTURE AND WORD OFFSETS.                         FA=DEFS    70
                                        *                                                                        FA=DEFS    71
                                        *                                                                        FA=DEFS    72
                                        *              OFFSET        CONTENTS                                    FA=DEFS    73
                                        *              ------        --------                                    FA=DEFS    74
                                                                                                                 FA=DEFS    75
                                         I.CBSET  =      -1          CIO BUFFER PASS 1 PARAMS - 42/LEN, 18/FWA   FA=DEFS    76
                                         I.FIT    =      0           1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR  FA=DEFS    77
                                         I.FIRST  =      1           60/FIRST                                    FA=DEFS    78
                                         I.IN     =      2           60/IN                                       FA=DEFS    79
                                         I.OUT    =      3           60/OUT                                      FA=DEFS    80
                                         I.LIMIT  =      4           60/LIMIT                                    FA=DEFS    81
                                         I.HBSET  =      5           HOLDING BUF PASS 1 PARAMS - 42/LEN, 18/FWA  FA=DEFS    82
                                        ****                                                                     FA=DEFS    83
                                                  SPACE  4                                                       FA=DEFS    84
                                         #RM      ENDIF                                                          FA=DEFS    85
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    18
        I/O GENERAL MACROS                                            SETFIL
  
                                        **        SETFIL - SET PARAMS IN FILE MANAGEMENT TABLES.                 FA=DEFS    88
                                        *                                                                        FA=DEFS    89
                                        *                                                                        FA=DEFS    90
                                        *         TO SET INITIAL PARAMETER VALUES IN FILE TABLES,                FA=DEFS    91
                                        *         SETFIL    FILE=FNAM,MODE=INIT,FWA=ADDR                         FA=DEFS    92
                                        *          OR                                                            FA=DEFS    93
                                        *         SETFIL    FILE=FNAM,MODE=INIT,LWA1=ADDR                        FA=DEFS    94
                                        *                                                                        FA=DEFS    95
                                        *         TO RESTORE FILE TABLES TO INITIAL (PASS 1) CONDITIONS,         FA=DEFS    96
                                        *         SETFIL    FILE=FNAM,MODE=RESET                                 FA=DEFS    97
                                        *                                                                        FA=DEFS    98
                                        *         ENTRY  *FNAM* = FILE NAME                                      FA=DEFS    99
                                        *                 MODE  = *INIT* OR *RESET*                              FA=DEFS   100
                                        *                *ADDR* = BUFFER FWA OR LWA+1, TO MATCH EQUIV PARAM      FA=DEFS   101
                                        *                                                                        FA=DEFS   102
                                        *         USES   X - 1, 2                                                FA=DEFS   103
                                        *                B - 2, 3                                                FA=DEFS   104
                                        *                                                                        FA=DEFS   105
                                        *         CALLS  FA=SET                                                  FA=DEFS   106
                                                                                                                 FA=DEFS   107
                                                                                                                 FA=DEFS   108
                                                  PURGMAC   SETFIL                                               FA=DEFS   109
                                                                                                                 FA=DEFS   110
                                         SETFIL   MACROE FILE,MODE,FWA,LWA1                                      FA=DEFS   111
                                                  LOCAL  CHECK                                                   FA=DEFS   112
                                         CHECK    SET    0                                                       FA=DEFS   113
                                                  IFC    NE, LWA1  ,1                                            FA=DEFS   114
                                         CHECK    SET    CHECK+1                                                 FA=DEFS   115
                                                  IFC    NE, FWA  ,1                                             FA=DEFS   116
                                         CHECK    SET    CHECK+2                                                 FA=DEFS   117
                                        *                            SET FILE ADDRESS.                           FA=DEFS   118
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   119
                                                  R=     X2,FILE                                                 FA=DEFS   120
                                                  SKIP   1                                                       FA=DEFS   121
                                                  R=     A2,FILE                                                 FA=DEFS   122
                                         .M       IFC    NE, MODE INIT                                           FA=DEFS   123
                                        *                            VALIDATE MODE PARAMETER.                    FA=DEFS   124
                                                  IFC    NE, MODE RESET ,1                                       FA=DEFS   125
                                                  ERR    (MODE) BAD MODE# "SEQUENCE"                             FA=DEFS   126
                                        *                            RESET MODE.                                 FA=DEFS   127
                                                  IFNE   CHECK,0,1                                               FA=DEFS   128
                                         7        ERR    MODE#RESET, FWA#/LWA1# IGNORED "SEQUENCE"               FA=DEFS   129
                                                  IFEQ   CP#RM,0,2                                               FA=DEFS   130
                                                  SA1    X2+I.CBSET                                              FA=DEFS   131
                                                  SKIP   1                                                       FA=DEFS   132
                                                  SA1    A2+I.HBSET                                              FA=DEFS   133
                                                  SB3    B0                                                      FA=DEFS   134
                                                  SB2    X1                                                      FA=DEFS   135
                                         .M       ELSE                                                           FA=DEFS   136
                                        *                            INITIALIZE MODE.                            FA=DEFS   137
                                                  IFGE   CHECK,2,5                                               FA=DEFS   138
                                                  IFGE   CHECK,3,1                                               FA=DEFS   139
                                         7        ERR    BOTH FWA# AND LWA1# SPECIFIED, LWA1# IGNORED "SEQUENCE" FA=DEFS   140
                                        *                            SET FWA.                                    FA=DEFS   141
                                                  R=     B2,FWA                                                  FA=DEFS   142
                                                  SB3    B0                                                      FA=DEFS   143
                                                  SKIP   5                                                       FA=DEFS   144
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    19
        I/O GENERAL MACROS                                            SETFIL
  
                                                  IFLE   CHECK,0,2                                               FA=DEFS   145
                                                  ERR    NO FWA#/LWA1# "SEQUENCE"                                FA=DEFS   146
                                                  SKIP   2                                                       FA=DEFS   147
                                        *                            SET LWA1.                                   FA=DEFS   148
                                                  R=     B3,LWA1                                                 FA=DEFS   149
                                                  SB2    B0                                                      FA=DEFS   150
                                         .M       ENDIF                                                          FA=DEFS   151
                                        *                            CALL PROCESSING SUBROUTINE.                 FA=DEFS   152
                                                  RJ     =XFA=SET                                                FA=DEFS   153
                                         SETFIL   ENDM                                                           FA=DEFS   154
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    20
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   156
                                         BKSP     SPACE  4,8                                                     FA=DEFS   157
                                        **        BKSP - BACKSPACE FILE ONE RECORD.                              FA=DEFS   158
                                        *                                                                        FA=DEFS   159
                                        *                                                                        FA=DEFS   160
                                        *         BKSP      FILE                                                 FA=DEFS   161
                                        *                                                                        FA=DEFS   162
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   163
                                        *                                                                        FA=DEFS   164
                                        *         USES   X2, A2                                                  FA=DEFS   165
                                        *                                                                        FA=DEFS   166
                                        *         CALLS  SKIPBL                                                  FA=DEFS   167
                                                                                                                 FA=DEFS   168
                                                                                                                 FA=DEFS   169
                                                  PURGMAC   BKSP                                                 FA=DEFS   170
                                                                                                                 FA=DEFS   171
                                         BKSP     MACRO  F                                                       FA=DEFS   172
                                                  R=     A2,F                                                    FA=DEFS   173
                                                  SKIPBL X2,1                                                    FA=DEFS   174
                                         BKSP     ENDM                                                           FA=DEFS   175
                                         CLOSE    SPACE  4,8                                                     FA=DEFS   176
                                        **        CLOSE - CLOSE FILE.                                            FA=DEFS   177
                                        *                                                                        FA=DEFS   178
                                        *         CLOSES *FILE*, USING POSITIONING PARAMETER (CF) CURRENTLY      FA=DEFS   179
                                        *         IN THE FIT.                                                    FA=DEFS   180
                                        *                                                                        FA=DEFS   181
                                        *                                                                        FA=DEFS   182
                                        *         CLOSE     FILE                                                 FA=DEFS   183
                                        *                                                                        FA=DEFS   184
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   185
                                        *                                                                        FA=DEFS   186
                                        *         USES   X2, A2                                                  FA=DEFS   187
                                        *                                                                        FA=DEFS   188
                                        *         CALLS  FA=CLO                                                  FA=DEFS   189
                                                                                                                 FA=DEFS   190
                                                                                                                 FA=DEFS   191
                                                  PURGMAC   CLOSE                                                FA=DEFS   192
                                                                                                                 FA=DEFS   193
                                         CLOSE    MACRO  F                                                       FA=DEFS   194
                                                  R=     A2,F                                                    FA=DEFS   195
                                                  RJ     =XFA=CLO                                                FA=DEFS   196
                                         CLOSE    ENDM                                                           FA=DEFS   197
                                         OPEN     SPACE  4,8                                                     FA=DEFS   198
                                        **        OPEN - OPEN FILE.                                              FA=DEFS   199
                                        *                                                                        FA=DEFS   200
                                        *         OPENS *FILE*, USING PROCESSING DIRECTION (PD) AND POSITIONING  FA=DEFS   201
                                        *         (OF) PARAMETERS CURRENTLY IN THE FIT.                          FA=DEFS   202
                                        *                                                                        FA=DEFS   203
                                        *                                                                        FA=DEFS   204
                                        *         OPEN      FILE                                                 FA=DEFS   205
                                        *                                                                        FA=DEFS   206
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   207
                                        *                                                                        FA=DEFS   208
                                        *         USES   X2, A2                                                  FA=DEFS   209
                                        *                                                                        FA=DEFS   210
                                        *         CALLS  FA=OPE                                                  FA=DEFS   211
                                                                                                                 FA=DEFS   212
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    21
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                                                                                                 FA=DEFS   213
                                                  PURGMAC   OPEN                                                 FA=DEFS   214
                                                                                                                 FA=DEFS   215
                                         OPEN     MACRO  F                                                       FA=DEFS   216
                                                  R=     A2,F                                                    FA=DEFS   217
                                                  RJ     =XFA=OPE                                                FA=DEFS   218
                                         OPEN     ENDM                                                           FA=DEFS   219
                                         READ     SPACE  3                                                       FA=DEFS   220
                                        *         EMPTY MACRO DEFINITIONS FOR READ AND RECALL FUNCTIONS          FA=DEFS   221
                                        *         SO THE CONDITIONAL CODE STAYS IN THE TEXTS.                    FA=DEFS   222
                                                                                                                 FA=DEFS   223
                                                  PURGMAC  READ,RECALL                                           FA=DEFS   224
                                                                                                                 FA=DEFS   225
                                         READ     MACRO  F                                                       FA=DEFS   226
                                                  ENDM                                                           FA=DEFS   227
                                                                                                                 FA=DEFS   228
                                         RECALL   OPSYN  READ                                                    FA=DEFS   229
                                         REWIND   SPACE  3,8                                                     FA=DEFS   230
                                        **        REWIND- REWIND A FILE/BUFFER.                                  FA=DEFS   231
                                        *                                                                        FA=DEFS   232
                                        *         THIS EXTENSION OF A NORMAL *REWIND* PREVENTS UNNECESSARY I/O   FA=DEFS   233
                                        *         TRANSFERS OF SMALL INTERNAL SCRATCH FILES BETWEEN CENTRAL      FA=DEFS   234
                                        *         MEMORY AND MASS STORAGE.                                       FA=DEFS   235
                                        *                                                                        FA=DEFS   236
                                        *                                                                        FA=DEFS   237
                                        *         REWIND    FILE,RECALL                                          FA=DEFS   238
                                        *                                                                        FA=DEFS   239
                                        *         ENTRY  *FILE*    = FILE NAME                                   FA=DEFS   240
                                        *                *RECALL*  = IGNORED; INCLUDED FOR CIO COMPATIBILITY     FA=DEFS   241
                                        *                                                                        FA=DEFS   242
                                        *         USES   X2, A2                                                  FA=DEFS   243
                                        *                                                                        FA=DEFS   244
                                        *         CALLS  FA=RWX                                                  FA=DEFS   245
                                                                                                                 FA=DEFS   246
                                                                                                                 FA=DEFS   247
                                                  PURGMAC   REWIND                                               FA=DEFS   248
                                                                                                                 FA=DEFS   249
                                         REWIND   MACRO  F                                                       FA=DEFS   250
                                                  R=     A2,F                                                    FA=DEFS   251
                                                  RJ     =XFA=RWX                                                FA=DEFS   252
                                         REWIND   ENDM                                                           FA=DEFS   253
                                         WRITEF   SPACE  4,8                                                     FA=DEFS   254
                                        **        WRITEF - WRITE END-OF-FILE/PARTITION ON FILE.                  FA=DEFS   255
                                        *                                                                        FA=DEFS   256
                                        *         WRITES END-OF-FILE/PARTITION ON *FILE*.  THE HOLDING BUFFER,   FA=DEFS   257
                                        *         IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-F.            FA=DEFS   258
                                        *                                                                        FA=DEFS   259
                                        *                                                                        FA=DEFS   260
                                        *         WRITEF    FILE                                                 FA=DEFS   261
                                        *                                                                        FA=DEFS   262
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   263
                                        *                                                                        FA=DEFS   264
                                        *         USES   X2, A2                                                  FA=DEFS   265
                                        *                                                                        FA=DEFS   266
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   267
                                                                                                                 FA=DEFS   268
                                                                                                                 FA=DEFS   269
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    22
        FILE ACTION MACROS (RECORD MANAGER I/O) 
  
                                                  PURGMAC   WRITEF                                               FA=DEFS   270
                                                                                                                 FA=DEFS   271
                                         WRITEF   MACRO  F                                                       FA=DEFS   272
                                                  R=     A2,F                                                    FA=DEFS   273
                                                  RJ     =XFA=EOF                                                FA=DEFS   274
                                         WRITEF   ENDM                                                           FA=DEFS   275
                                         WRITER   SPACE  4,8                                                     FA=DEFS   276
                                        **        WRITER - WRITE END-OF-RECORD/SECTION ON FILE.                  FA=DEFS   277
                                        *                                                                        FA=DEFS   278
                                        *         WRITES LEVEL 0 END-OF-RECORD/SECTION ON *FILE*.  THE HOLDING   FA=DEFS   279
                                        *         BUFFER, IF ONE EXISTS, IS FLUSHED BEFORE WRITING THE E-O-R.    FA=DEFS   280
                                        *                                                                        FA=DEFS   281
                                        *                                                                        FA=DEFS   282
                                        *         WRITER    FILE                                                 FA=DEFS   283
                                        *                                                                        FA=DEFS   284
                                        *         ENTRY  *FILE* = FILE NAME                                      FA=DEFS   285
                                        *                                                                        FA=DEFS   286
                                        *         USES   X2, A2                                                  FA=DEFS   287
                                        *                                                                        FA=DEFS   288
                                        *         CALLS  FA=FLSH, RECORD MANAGER                                 FA=DEFS   289
                                                                                                                 FA=DEFS   290
                                                                                                                 FA=DEFS   291
                                                  PURGMAC   WRITER                                               FA=DEFS   292
                                                                                                                 FA=DEFS   293
                                         WRITER   MACRO  F                                                       FA=DEFS   294
                                                  R=     A2,F                                                    FA=DEFS   295
                                                  RJ     =XFA=EOR                                                FA=DEFS   296
                                         WRITER   ENDM                                                           FA=DEFS   297
                                         #RM      ENDIF                                                          FA=DEFS   298
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    23
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                         #RM      IFNE   CP#RM,0                                                 FA=DEFS   300
                                         READC    SPACE  4,8                                                     FA=DEFS   301
                                        **        READC - READ ONE CODED LINE IN -C- FORMAT.                     FA=DEFS   302
                                        *                                                                        FA=DEFS   303
                                        *                                                                        FA=DEFS   304
                                        *         READC     FILE,TO,WORDS                                        FA=DEFS   305
                                        *                                                                        FA=DEFS   306
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   307
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   308
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   309
                                        *                                                                        FA=DEFS   310
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   311
                                        *                                                                        FA=DEFS   312
                                        *         CALLS  FA=RDC                                                  FA=DEFS   313
                                                                                                                 FA=DEFS   314
                                                                                                                 FA=DEFS   315
                                                  PURGMAC   READC                                                FA=DEFS   316
                                                                                                                 FA=DEFS   317
                                         READC    MACRO  F,S,N                                                   FA=DEFS   318
                                                  R=     B6,S                                                    FA=DEFS   319
                                                  R=     B7,N                                                    FA=DEFS   320
                                                  R=     A2,F                                                    FA=DEFS   321
                                                  RJ     =XFA=RDC                                                FA=DEFS   322
                                         READC    ENDM                                                           FA=DEFS   323
                                         READW    SPACE  4,8                                                     FA=DEFS   324
                                        **        READW - READ WORDS TO WORKING STORAGE AREA.                    FA=DEFS   325
                                        *                                                                        FA=DEFS   326
                                        *                                                                        FA=DEFS   327
                                        *         READW     FILE,TO,WORDS                                        FA=DEFS   328
                                        *                                                                        FA=DEFS   329
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   330
                                        *                *TO*    = WSA ADDRESS                                   FA=DEFS   331
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   332
                                        *                                                                        FA=DEFS   333
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   334
                                        *                                                                        FA=DEFS   335
                                        *         CALLS  FA=RDW                                                  FA=DEFS   336
                                                                                                                 FA=DEFS   337
                                                                                                                 FA=DEFS   338
                                                  PURGMAC   READW                                                FA=DEFS   339
                                                                                                                 FA=DEFS   340
                                         READW    MACRO  F,S,N                                                   FA=DEFS   341
                                                  R=     B6,S                                                    FA=DEFS   342
                                                  R=     B7,N                                                    FA=DEFS   343
                                                  R=     A2,F                                                    FA=DEFS   344
                                                  RJ     =XFA=RDW                                                FA=DEFS   345
                                         READW    ENDM                                                           FA=DEFS   346
                                         WRITEC   SPACE  4,8                                                     FA=DEFS   347
                                        **        WRITEC - WRITE ONE CODED LINE IN -C- FORMAT.                   FA=DEFS   348
                                        *                                                                        FA=DEFS   349
                                        *                                                                        FA=DEFS   350
                                        *         WRITEC    FILE,FROM,WORDS                                      FA=DEFS   351
                                        *                                                                        FA=DEFS   352
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   353
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   354
                                        *                *WORDS* = LINE LENGTH (WORDS).  IF ZERO OR OMITTED,     FA=DEFS   355
                                        *                            LENGTH WILL BE DETERMINED BY SCANNING TO    FA=DEFS   356
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    24
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                        *                            AN END-OF-LINE MARKER -- SLOWLY.            FA=DEFS   357
                                        *                                                                        FA=DEFS   358
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   359
                                        *                                                                        FA=DEFS   360
                                        *         CALLS  FA=WTC                                                  FA=DEFS   361
                                                                                                                 FA=DEFS   362
                                                                                                                 FA=DEFS   363
                                                  PURGMAC   WRITEC                                               FA=DEFS   364
                                                                                                                 FA=DEFS   365
                                         WRITEC   MACRO  F,S,N                                                   FA=DEFS   366
                                                  R=     B6,S                                                    FA=DEFS   367
                                                  IFC    NE, N  ,2                                               FA=DEFS   368
                                        *                            SET GIVEN LENGTH.                           FA=DEFS   369
                                                  R=     B7,N                                                    FA=DEFS   370
                                                  SKIP   1                                                       FA=DEFS   371
                                        *                            SET LENGTH OMITTED.                         FA=DEFS   372
                                                  SB7    B0                                                      FA=DEFS   373
                                                  R=     A2,F                                                    FA=DEFS   374
                                                  RJ     =XFA=WTC                                                FA=DEFS   375
                                         WRITEC   ENDM                                                           FA=DEFS   376
                                         WRITEH   SPACE  4,10                                                    CCGA018    41
                                        **        WRITEH - WRITE ONE CODED LINE IN -H- FORMAT.                   CCGA018    42
                                        *                                                                        CCGA018    43
                                        *         WRITEH FILE,FROM,WORDS                                         CCGA018    44
                                        *                                                                        CCGA018    45
                                        *         ENTRY  *FILE* = FILE NAME                                      CCGA018    46
                                        *                *FROM* = WSA ADDRESS                                    CCGA018    47
                                        *                *WORDS* = LINE LENGTH (WORDS) MUST BE SPECIFIED.        CCGA018    48
                                        *                                                                        CCGA018    49
                                        *         THIS IS A *TEMPORARY* REDEFINITION OF THE SYSTEM WRITEH MACRO  CCGA018    50
                                        *                                                                        CCGA018    51
                                        *         USES   X2,A2,B3,B6,B7                                          CCGA018    52
                                        *                                                                        CCGA018    53
                                        *         CALLS  FA=WTH                                                  CCGA018    54
                                                                                                                 CCGA018    55
                                                                                                                 CCGA018    56
                                                  PURGMAC WRITEH                                                 CCGA018    57
                                                                                                                 CCGA018    58
                                         WRITEH   MACRO  F,S,N                                                   CCGA018    59
                                                  SB3    X2          PRESERVE X2                                 CCGA018    60
                                                  R=     B6,S                                                    CCGA018    61
                                                  IFC    NE, N  ,2                                               CCGA018    62
                                        *                            SET GIVEN LENGTH                            CCGA018    63
                                                  R=     B7,N                                                    CCGA018    64
                                                  SKIP   1                                                       CCGA018    65
                                        *                            LENGTH OMITTED - ERROR                      CCGA018    66
                                         A        ERR                                                            CCGA018    67
                                                  R=     A2,F                                                    CCGA018    68
                                                  RJ     =XFA=WTH                                                CCGA018    69
                                                  SX2    B3          RESTORE X2                                  CCGA018    70
                                         WRITEH   ENDM                                                           CCGA018    71
                                         WRITEW   SPACE  4,8                                                     FA=DEFS   377
                                        **        WRITEW - WRITE WORDS FROM WORKING STORAGE AREA.                FA=DEFS   378
                                        *                                                                        FA=DEFS   379
                                        *                                                                        FA=DEFS   380
                                        *         WRITEW    FILE,FROM,WORDS                                      FA=DEFS   381
                                        *                                                                        FA=DEFS   382
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    25
        I/O DATA TRANSFER MACROS (RECORD MANAGER I/O) 
  
                                        *         ENTRY  *FILE*  = FILE NAME                                     FA=DEFS   383
                                        *                *FROM*  = WSA ADDRESS                                   FA=DEFS   384
                                        *                *WORDS* = WSA LENGTH (WORDS)                            FA=DEFS   385
                                        *                                                                        FA=DEFS   386
                                        *         USES   X2, A2, B6, B7                                          FA=DEFS   387
                                        *                                                                        FA=DEFS   388
                                        *         CALLS  FA=WTW                                                  FA=DEFS   389
                                                                                                                 FA=DEFS   390
                                                                                                                 FA=DEFS   391
                                                  PURGMAC   WRITEW                                               FA=DEFS   392
                                                                                                                 FA=DEFS   393
                                         WRITEW   MACRO  F,S,N                                                   FA=DEFS   394
                                                  R=     B6,S                                                    FA=DEFS   395
                                                  R=     B7,N                                                    FA=DEFS   396
                                                  R=     A2,F                                                    FA=DEFS   397
                                                  RJ     =XFA=WTW                                                FA=DEFS   398
                                         WRITEW   ENDM                                                           FA=DEFS   399
                                                  SPACE  4                                                       FA=DEFS   400
                                         #RM      ENDIF                                                          FA=DEFS   401
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    26
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.
  
             4                                    CTEXT  COMADEF - STRUCTURED FIELD DECLARATION MACROS.          COMADEF     2
  
  
  
  
                                        ***       COMADEF - STRUCTURED FIELD DECLARATION MACROS.                 COMADEF     4
                                        *                                                                        COMADEF     5
                                        *         S. I. JASIK        73-01-00.                                   COMADEF     6
                                        *         P. H. MCQUESTEN    76-12-29.                                   COMADEF     7
                                        *                                                                        COMADEF     8
                                        *         COPYRIGHT CONTROL DATA CORPORATION. 1976, 1977.                COMADEF     9
  
  
  
  
                                        ***              THE STRUCTURED FIELD DECLARATION MACROS PROVIDE A       COMADEF    11
                                        *         FACILITY TO DEFINE SYMBOLS DESCRIBING THE POSITION AND SIZE    COMADEF    12
                                        *         OF FIELDS WITHIN A WORD.                                       COMADEF    13
                                        *                                                                        COMADEF    14
                                        *         USERS SHOULD AVOID NAMES OF THE FORM *'?DEF#XX* WHERE *XX* IS  COMADEF    15
                                        *         ANY TWO CHARACTERS.  NAMES OF THIS FORM ARE USED INTERNALLY.   COMADEF    16
                                        *                                                                        COMADEF    17
                                        *         ALL NUMERIC CONSTANTS GREATER THAN 7 IN THESE MACROS HAVE      COMADEF    18
                                        *         AN EXPLICIT RADIX, SO THE *BASE* MODE IS IMMATERIAL.           COMADEF    19
                                        *                                                                        COMADEF    20
                                        *         THIS COMMON DECK CONTAINS NO UNLABELED *ELSE* OR *ENDIF*       COMADEF    21
                                        *         STATEMENTS, SO IT CAN BE ASSEMBLED CONDITIONALLY.              COMADEF    22
  
  
  
  
                                        ***              THE 'DESCRIBE' MACRO IS USED TO PROVIDE A PREFIX        COMADEF    24
                                        *         FOR NAMES SUPPLIED IN SUBSEQUENT 'DEFINE' REFERENCES.          COMADEF    25
                                        *         FOR EACH NAME SPECIFIED, THE FOLLOWING SYMBOLS WILL BE         COMADEF    26
                                        *         DEFINED:                                                       COMADEF    27
                                        *                                                                        COMADEF    28
                                        *                PFX_NAME_P -- THE BIT POSITION OF THE RIGHT MOST BIT    COMADEF    29
                                        *                              WHICH COMPRISES THE NAMED FIELD (WITHIN   COMADEF    30
                                        *                              A WORD BITS ARE NUMBERED ACCORDING TO     COMADEF    31
                                        *                              THE POWER OF TWO WHICH THEY REPRESENT)    COMADEF    32
                                        *                PFX_NAME_L -- THE LENGTH IN BITS OF THE FIELD           COMADEF    33
                                        *                                                                        COMADEF    34
                                        *         FIELDS ARE NOT PERMITTED TO SPAN WORD BOUNDARIES (A FATAL-TO-  COMADEF    35
                                        *         ASSEMBLY ERROR WILL RESULT) OR TO GO BEYOND THE TOTAL NUMBER   COMADEF    36
                                        *         OF BITS WHICH THE ENTIRE SET OF FIELDS IS SUPPOSED TO OCCUPY.  COMADEF    37
                                        *                                                                        COMADEF    38
                                        *         UNLESS THE 'RESET' PARAMETER OCCURS, EACH 'DEFINE' IS          COMADEF    39
                                        *         CONSIDERED TO REFERENCE A FIELD BEGINNING TO THE IMMEDIATE     COMADEF    40
                                        *         RIGHT OF THE PRECEDING FIELD.  A 'REDEF' MACRO IS ALSO         COMADEF    41
                                        *         PROVIDED TO DECLARE OVERLAPPING STRUCTURES, AND IS USUALLY     COMADEF    42
                                        *         MORE APPROPRIATE THAN THE 'RESET' PARAMETER OF 'DEFINE'.       COMADEF    43
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    27
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                DESCRIBE
  
                                        ***       DESCRIBE - DECLARE BEGINNING OF STRUCTURE.                     COMADEF    45
                                        *                                                                        COMADEF    46
                                        *         DESCRIBE PFX,BITSLONG,TOPBIT,WORDNR                            COMADEF    47
                                        *                                                                        COMADEF    48
                                        *         ENTRY  PFX = THE PREFIX FOR THE STRUCTURE, AS MENTIONED ABOVE. COMADEF    49
                                        *                BITSLONG = THE TOTAL LENGTH IN BITS OF THE STRUCTURE,   COMADEF    50
                                        *                     IF NOT PRESENT A VALUE OF 60 IS ASSUMED.           COMADEF    51
                                        *                TOPBIT = THE BEGINNING (LEFTMOST) BIT OF THE STRUCTURE, COMADEF    52
                                        *                     IF ABSENT "BITSLONG-1" IS THE DEFAULT VALUE.       COMADEF    53
                                        *                WORDNR = WORD NUMBER OF THE STRUCTURE BEING DESCRIBE-D. COMADEF    54
                                        *                     ZERO IF OMITTED.  SHOULD BE OMITTED FOR            COMADEF    55
                                        *                     SINGLE-WORD STRUCTURES.                            COMADEF    56
                                                                                                                 COMADEF    57
                                                                                                                 COMADEF    58
                                         DESCRIBE MACRO  PREFIX,BITSLONG,TOPBIT,WORDNR                           COMADEF    59
                                         '?DEF#PX    MICRO 1,,/PREFIX/                                           COMADEF    60
                                         '?DEF#BL   SET   BITSLONG   60                                          COMADEF    61
                                         '?DEF#TB   SET   TOPBIT     '?DEF#BL-1                                  COMADEF    62
                                         '?DEF#WN   SET   WORDNR     0                                           COMADEF    63
                                        *                            INITIALIZE COUNTERS.                        COMADEF    64
                                         '?DEF#LI   SET   '?DEF#BL                                               COMADEF    65
                                         '?DEF#BI   SET   '?DEF#TB                                               COMADEF    66
                                                  IFC    NE, WORDNR  ,1                                          COMADEF    67
                                         "'?DEF#PX"W  EQU  '?DEF#WN                                              COMADEF    68
                                         DESCRIBE ENDM                                                           COMADEF    69
  
  
  
  
                                        ***       DEFINE - DECLARE A FIELD WITHIN THE STRUCTURE.                 COMADEF    71
                                        *                                                                        COMADEF    72
                                        *  NAME   DEFINE LENGTH,R                                                COMADEF    73
                                        *                                                                        COMADEF    74
                                        *         ENTRY  NAME = THE NAME OF THE FIELD MENTIONED ABOVE.  IF NOT   COMADEF    75
                                        *                    PRESENT THEN THE REFERENCE WILL ACT AS FILLER.      COMADEF    76
                                        *                LENGTH = THE BIT LENGTH OF THIS FIELD (OR FILLER).      COMADEF    77
                                        *                    IF OMITTED, LENGTH = ONE IS ASSUMED.                COMADEF    78
                                        *                R = IF PRESENT, WILL CAUSE THE NAMED FIELD TO BE        COMADEF    79
                                        *                    DEFINED RELATIVE TO BIT POSITION 'R' AS THE         COMADEF    80
                                        *                    TOPMOST (LEFTMOST) BIT.  THE 'REDEF' MACRO WILL     COMADEF    81
                                        *                    USUALLY BE MORE APPROPRIATE, ESPECIALLY WHEN THE    COMADEF    82
                                        *                    OVERLAP IS TO BEGIN AT A SYMBOLICALLY DEFINED       COMADEF    83
                                        *                    POSITION.                                           COMADEF    84
                                                                                                                 COMADEF    85
                                                                                                                 COMADEF    86
                                                  MACRO  DEFINE,N,LONG,RESET                                     COMADEF    87
                                         '?DEF#LL SET   LONG  1                                                  COMADEF    88
                                                  IFC   NE,//RESET/,2                                            COMADEF    89
                                         '?DEF#LI SET   1000    ** KLUDGE **     '?DEF#LI-'?DEF#BI+RESET         COMADEF    90
                                         '?DEF#BI SET   RESET                                                    COMADEF    91
                                        *                                                                        COMADEF    92
                                                  IFC   NE,  N ,1                                                COMADEF    93
                                         N        DEQU  *,'?DEF#LL,'?DEF#BI-'?DEF#LL+1                           COMADEF    94
                                        *                            ADVANCE COUNTERS, CHECK OVERFLOW.           COMADEF    95
                                         '?DEF#LI SET   '?DEF#LI-'?DEF#LL                                        COMADEF    96
                                         '?DEF#BI SET   '?DEF#BI-'?DEF#LL                                        COMADEF    97
                                             ERRMI '?DEF#LI    TOTAL LENGTH OF "'?DEF#PX" LONGER THAN SPECIFIED  COMADEF    98
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    28
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                DEFINE
  
                                                  IFLT  '?DEF#BI,,3                                              COMADEF    99
                                                  IFNE  '?DEF#BI,-1,1                                            COMADEF   100
                                                  ERR    FIELD SPANS A WORD BOUNDARY    ["SEQUENCE"]___________  COMADEF   101
                                         '?DEF#BI SET    59                                                      COMADEF   102
                                         DEFINE   ENDM                                                           COMADEF   103
  
  
  
  
                                        ***       DEQU - DECLARE EQUIVALENCED FIELD.                             COMADEF   105
                                        *                                                                        COMADEF   106
                                        *  NAM    DEQU   FLD,LEN                                                 COMADEF   107
                                        *                                                                        COMADEF   108
                                        *         ENTRY  NAM = A NEW FIELD NAME TO BE DECLARED.                  COMADEF   109
                                        *                FLD = A PREVIOUSLY DEFINED FIELD IN THIS STRUCTURE.     COMADEF   110
                                        *                LEN = (OPTIONAL) EXPLICIT BIT LENGTH OF NEW FIELD.      COMADEF   111
                                        *                      IF 'LEN' IS OMITTED, LENGTH OF THE NEW FIELD      COMADEF   112
                                        *                      WILL BE SAME AS LENGTH OF OLD FIELD.              COMADEF   113
                                                                                                                 COMADEF   114
                                                                                                                 COMADEF   115
                                                  MACRO  DEQU,N,B,LEN,V                                          COMADEF   116
                                         '?DEF#LL SET    LEN  "'?DEF#PX"B_L                                      COMADEF   117
                                         '?DEF#PP SET    V    "'?DEF#PX"B_P                                      COMADEF   118
                                         "'?DEF#PX"N_P EQU  '?DEF#PP                                             COMADEF   119
                                         "'?DEF#PX"N_L EQU  '?DEF#LL                                             COMADEF   120
                                        *                            LIST FIELD MASK PRETTILY.                   COMADEF   121
                                                  LOC    '?DEF#WN*100B+'?DEF#PP                                  COMADEF   122
                                                  POS    1+'?DEF#TB                                              COMADEF   123
                                         '?DEF#BB SET    *P-'?DEF#LL-'?DEF#PP                                    COMADEF   124
                                         '?DEF#DD SET    '?DEF#BL-'?DEF#LL-'?DEF#BB                              COMADEF   125
                                                  VFD    '?DEF#BB/,'?DEF#LL/-0,'?DEF#DD/                         COMADEF   126
                                                  ORG    *O-*P/60D                                               COMADEF   127
                                        *                            DEFINE MASK VALUE FOR SINGLE BIT FIELDS.    COMADEF   128
                                                  IFEQ   '?DEF#LL,1,4                                            COMADEF   129
                                                  NOREF  /"QUAL"/"'?DEF#PX"N_L                                   COMADEF   130
                                                  IFLE   '?DEF#PP,17,2                                           COMADEF   131
                                         '?DEF#PP DECMIC '?DEF#PP                                                COMADEF   132
                                         "'?DEF#PX"N_M EQU  1S"'?DEF#PP"                                         COMADEF   133
                                                  ENDM                                                           COMADEF   134
  
  
  
  
                                        ***       REDEF - DECLARE OVERLAPPING SUB-STRUCTURES.                    COMADEF   136
                                        *                                                                        COMADEF   137
                                        *         REDEF  NAME                                                    COMADEF   138
                                        *                                                                        COMADEF   139
                                        *         ENTRY  NAME = THE NAME OF A PREVIOUSLY DECLARED FIELD.         COMADEF   140
                                        *                                                                        COMADEF   141
                                        *         CAUSES SUBSEQUENT FIELD TO BE DEFINED BEGINNING AT THE TOP     COMADEF   142
                                        *         (LEFTMOST) BIT OF FIELD 'NAME'.  IF 'NAME' IS OMITTED,         COMADEF   143
                                        *         REDEFINITION BEGINS AT THE TOP OF THE ENTIRE STRUCTURE.        COMADEF   144
                                                                                                                 COMADEF   145
                                                                                                                 COMADEF   146
                                         REDEF    MACRO  N                                                       COMADEF   147
                                                  IFC    EQ, N  ,3                                               COMADEF   148
                                         '?DEF#LL SET    '?DEF#TB                                                COMADEF   149
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    29
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                REDEF 
  
                                         '?DEF#LI SET    '?DEF#BL                                                COMADEF   150
                                                  SKIP   2                                                       COMADEF   151
                                         '?DEF#LL SET    "'?DEF#PX"N_P+"'?DEF#PX"N_L-1                           COMADEF   152
                                         '?DEF#LI SET    1000  ** KLUDGE **  '?DEF#LI+'?DEF#LL-'?DEF#BI+1        COMADEF   153
                                        *                                                                        COMADEF   154
                                         '?DEF#BI SET    '?DEF#LL                                                COMADEF   155
                                                  ENDM                                                           COMADEF   156
  
  
  
  
                                        ***       CONSIDER THE FOLLOWING EXAMPLE --                              COMADEF   158
                                        *                                                                        COMADEF   159
                                        *         TABLE X      .------.-------.------.                           COMADEF   160
                                        *                      . TYPE   VALUE . SUBV .  (SAY FOR TYPE .LE. 100)  COMADEF   161
                                        *                      .------.-------.------.                           COMADEF   162
                                        *                       '      '       '     '                           COMADEF   163
                                        *                      59     47      17     0                           COMADEF   164
                                        *                                                                        COMADEF   165
                                        *                 OR   .------.--------------.                           COMADEF   166
                                        *                      . TYPE . MESSAGE      .  (FOR TYPE > 100)         COMADEF   167
                                        *                      .------.--------------.                           COMADEF   168
                                        *                       '      '             '                           COMADEF   169
                                        *                      59     47             0                           COMADEF   170
                                        *                                                                        COMADEF   171
                                        *                DESCRIBE X.,60    TABLE X, THE PREFIX TO BE USED IS THE COMADEF   172
                                        *                                  TWO CHARACTERS 'X.'                   COMADEF   173
                                        *         TYPE   DEFINE  12                                              COMADEF   174
                                        *         MSG    DEFINE  48                                              COMADEF   175
                                        *                REDEF   MSG                                             COMADEF   176
                                        *         VALUE  DEFINE  30                                              COMADEF   177
                                        *         SUBV   DEFINE  18                                              COMADEF   178
                                        *                                                                        COMADEF   179
                                        *       THE SYMBOLS DEFINED WOULD BE                                     COMADEF   180
                                        *                                                                        COMADEF   181
                                        *                X.TYPEP   EQU  48                                       COMADEF   182
                                        *                X.TYPEL   EQU  12                                       COMADEF   183
                                        *                X.MSGP    EQU   0                                       COMADEF   184
                                        *                X.MSGL    EQU  48                                       COMADEF   185
                                        *                X.VALUEP  EQU  18                                       COMADEF   186
                                        *                X.VALUEL  EQU  30                                       COMADEF   187
                                        *                X.SUBVP   EQU   0                                       COMADEF   188
                                        *                X.SUBVL   EQU  18                                       COMADEF   189
  
  
  
  
                                        ***       BFLIT - CREATE BIT FIELD MASK LITERAL.                         COMADEF   191
                                        *                                                                        COMADEF   192
                                        * LOC     BFLIT  PFX,(FIELD1,FIELD2,...,FIELDN)                          COMADEF   193
                                        *                                                                        COMADEF   194
                                        *         SEE *BFMIC* FOR PARAMETERS.                                    COMADEF   195
                                                                                                                 COMADEF   196
                                                                                                                 COMADEF   197
                                                  MACRO  BFLIT,LOC,PFX,BITS                                      COMADEF   198
                                         '?DEF#TT BFMIC  PFX,(BITS)                                              COMADEF   199
                                         LOC      LIT    "'?DEF#TT"                                              COMADEF   200
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    30
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                BFLIT 
  
                                                  ENDM                                                           COMADEF   201
  
  
  
  
                                        ***       BFMIC - CREATE BIT FIELD MASK MICRO.                           COMADEF   203
                                        *                                                                        COMADEF   204
                                        * LOC     BFMIC  PFX,(FIELD1,FIELD2,...,FIELDN)                          COMADEF   205
                                        *                                                                        COMADEF   206
                                        *         ENTRY  LOC = NAME OF THE MICRO TO BE CREATED.                  COMADEF   207
                                        *                PFX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.       COMADEF   208
                                        *                FIELD(I) = SYMBOLIC NAMES OF FIELDS TO BE SET.          COMADEF   209
                                        *         EXIT   LOC = MICRO CONTAINING THE 20-OCTAL DIGIT VALUE         COMADEF   210
                                        *                            (WITH *B* SUFFIX PRESENT).                  COMADEF   211
                                        *                                                                        COMADEF   212
                                        *         GENERATES A MICRO WITH 1-BITS IN SPECIFIED FIELDS, AND 0-BITS  COMADEF   213
                                        *         ELSEWHERE.  THE DESIGNATED FIELDS MUST HAVE BEEN DECLARED VIA  COMADEF   214
                                        *         DESCRIBE/DEFINE.                                               COMADEF   215
                                                                                                                 COMADEF   216
                                                                                                                 COMADEF   217
                                                  MACRO  BFMIC,LOC,PFX,FLD                                       COMADEF   218
                                         '?DEF#CC MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000 COMADEF   219
                                        ,00000_0000000000                                                        COMADEF   220
                                        *                                                                        COMADEF   221
                                                  IRP    FLD                                                     COMADEF   222
                                        *                            NUMBER OF BITS IN THIS FIELD                COMADEF   223
                                         '?DEF#LL SET    PFX.FLD_L                                               COMADEF   224
                                         '?DEF#11 MICRO  1,'?DEF#LL, 1111111111_1111111111_1111111111_1111111111 COMADEF   225
                                        ,_1111111111_1111111111                                                  COMADEF   226
                                        *                            EXTRACT TRAILING BITS                       COMADEF   227
                                         '?DEF#BB MICRO  61-PFX.FLD_P,,/"'?DEF#CC" /                             COMADEF   228
                                        *                            EXTRACT LEADING BITS                        COMADEF   229
                                         '?DEF#DD MICRO                                                          COMADEF   230
                                                  IFNE   60-PFX.FLD_P-'?DEF#LL,,1                                COMADEF   231
                                         '?DEF#DD MICRO  1,60-PFX.FLD_P-'?DEF#LL, "'?DEF#CC"                     COMADEF   232
                                        *                                                                        COMADEF   233
                                        *                            MERGE NEW PIECES                            COMADEF   234
                                         '?DEF#CC MICRO  1,60, "'?DEF#DD""'?DEF#11""'?DEF#BB"                    COMADEF   235
                                                  IRP                                                            COMADEF   236
                                        *                            CONVERT BINARY TO OCTAL                     COMADEF   237
                                         LOC       MICRO                                                         COMADEF   238
                                         '?DEF#EE  SET                                                           COMADEF   239
                                         '?DEF#.1  DUP   60D/3                                                   COMADEF   240
                                         '?DEF#EE SET    1+'?DEF#EE                                              COMADEF   241
                                         '?DEF#FF MICRO  3*'?DEF#EE-2,1, "'?DEF#CC"                              COMADEF   242
                                         '?DEF#GG MICRO  3*'?DEF#EE-1,1, "'?DEF#CC"                              COMADEF   243
                                         '?DEF#HH MICRO  3*'?DEF#EE-0,1, "'?DEF#CC"                              COMADEF   244
                                         '?DEF#HH OCTMIC "'?DEF#FF"*4+"'?DEF#GG"*2+"'?DEF#HH",1                  COMADEF   245
                                         LOC      MICRO  1,, "LOC""'?DEF#HH"                                     COMADEF   246
                                         '?DEF#.1 ENDD                                                           COMADEF   247
                                        *                                                                        COMADEF   248
                                         LOC      MICRO  1,, "LOC"B                                              COMADEF   249
                                         BFMIC    ENDM                                                           COMADEF   250
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    31
        COMADEF - STRUCTURED FIELD DECLARATION MACROS.                BMFW
  
                                        ***       BFMW - CREATE A BIT FIELD MASK WORD.                           COMADEF   252
                                        *                                                                        COMADEF   253
                                        * LAB     BFMW   PREFIX,(BITLIST),SHFT                                   COMADEF   254
                                        *                                                                        COMADEF   255
                                        *         ENTRY  PREFIX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.    COMADEF   256
                                        *                BITLIST = LIST OF BIT FIELDS TO APPEAR IN MASK.         COMADEF   257
                                        *                SHFT = AMOUNT BY WHICH WORD IN REGISTERS HAS ALREADY    COMADEF   258
                                        *                       BEEN SHIFTED.                                    COMADEF   259
                                                                                                                 COMADEF   260
                                                                                                                 COMADEF   261
                                                  MACRO  BFMW,LAB,PR,BIT,SHFT                                    COMADEF   262
                                         LAB      BSS                                                            COMADEF   263
                                         '?DEF#ZZ  SET                                                           COMADEF   264
                                                  IRP    BIT                                                     COMADEF   265
                                         '?DEF#PP  SET   PR.BIT_P+PR.BIT_L+SHFT                                  COMADEF   266
                                                  IFGT  '?DEF#PP,60,1                                            COMADEF   267
                                         '?DEF#PP  SET   '?DEF#PP-60                                             COMADEF   268
                                                  IFNE  '?DEF#PP,PR.BIT_L,3                                      COMADEF   269
                                                  POS   '?DEF#PP                                                 COMADEF   270
                                                  VFD    PR.BIT_L/-0                                             COMADEF   271
                                                  SKIP  1                                                        COMADEF   272
                                         '?DEF#ZZ   SET   '?DEF#PP                                               COMADEF   273
                                                  IRP                                                            COMADEF   274
                                        *                                                                        COMADEF   275
                                                  IFNE  '?DEF#ZZ,0,3                                             COMADEF   276
                                                  POS   '?DEF#ZZ                                                 COMADEF   277
                                                  VFD   '?DEF#ZZ/-0                                              COMADEF   278
                                                  SKIP   1                                                       COMADEF   279
                                                  VFD    *P/0                                                    COMADEF   280
                                        *                                                                        COMADEF   281
                                                  ENDM                                                           COMADEF   282
                                                                                                                 COMADEF   283
                                                                                                                 COMADEF   284
                                         COMADEF  ENDX                                                           COMADEF   285
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    32
        DEBUG MACROS. 
  
                                         .TEST    IFEQ   TEST,OFF    IF NOT TEST MODE                            FTN5TXT   118
                                                                                                                 FTN5TXT   119
                                                                                                                 FTN5TXT   120
                                        **        SNAP MACROS  - IF NO SNAP REQUESTED                            FTN5TXT   121
                                                                                                                 FTN5TXT   122
                                                                                                                 FTN5TXT   123
                                         BREAK    OPSYN  NIL                                                     FTN5TXT   124
                                         CORE     OPSYN  NIL                                                     FTN5TXT   125
                                         DUMPT    OPSYN  NIL                                                     FTN5TXT   126
                                         REG      OPSYN  NIL                                                     FTN5TXT   127
                                         REGS     OPSYN  NIL                                                     FTN5TXT   128
                                         SNAP     OPSYN  NIL                                                     FTN5TXT   129
                                         STRING   OPSYN  NIL                                                     FTN5TXT   130
                                                                                                                 FTN5TXT   131
                                         .TEST    ELSE               IF TEST MODE                                FTN5TXT   132
                                                                                                                 FTN5TXT   133
                                                                                                                 FTN5TXT   134
                                         CORE     SPACE  4,10                                                    FTN5TXT   135
                                        **        CORE - MACRO TO SNAPSHOT CORE.                                 FTN5TXT   136
                                        *                                                                        FTN5TXT   137
                                        *                                                                        FTN5TXT   138
                                        * LABEL   CORE   FWA,LENGTH                                              FTN5TXT   139
                                        *                                                                        FTN5TXT   140
                                        *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                       FTN5TXT   141
                                        *         CALLS  SNP=                                                    FTN5TXT   142
                                                                                                                 FTN5TXT   143
                                                                                                                 FTN5TXT   144
                                                  MACRO  CORE,NAM,FWA,LNG                                        FTN5TXT   145
                                         NAM      SNAP   FWA,,LNG,NR                                             FTN5TXT   146
                                         CORE     ENDM                                                           FTN5TXT   147
                                         DUMPT    SPACE  4,10                                                    FTN5TXT   148
                                        **        DUMPT- MACRO TO DUMP COMPILER TABLES.                          FTN5TXT   149
                                        *                                                                        FTN5TXT   150
                                        *         CALLS THE *SNAP* PACKAGE TO DUMP SPECIFIED TABLES.             FTN5TXT   151
                                        *                                                                        FTN5TXT   152
                                        * NAME    DUMPT  (P1,P2,...,PN)                                          FTN5TXT   153
                                        *                                                                        FTN5TXT   154
                                        *                EACH PARAMETER IS THE NAME OF A TABLE.                  FTN5TXT   155
                                        *                                                                        FTN5TXT   156
                                        *  EXAMPLE --                                                            FTN5TXT   157
                                        *         DUMPT  (DO,REF,SYM)                                            FTN5TXT   158
                                        *                                                                        FTN5TXT   159
                                        *         USES   NONE (OR IT WOULDNT BE ANY GOOD).                       FTN5TXT   160
                                        *         CALLS  DMT=                                                    FTN5TXT   161
                                                                                                                 FTN5TXT   162
                                                                                                                 FTN5TXT   163
                                                  MACRO  DUMPT,NAME,TAB,LL,UL,INC,NUSE                           FTN5TXT   164
                                                  LOCAL  RTN                                                     FTN5TXT   165
                                                  LOCAL  APL                                                     FTN5TXT   166
                                        *                                                                        FTN5TXT   167
                                         +        RJ     =XDMT=                                                  FTN5TXT   168
                                         -        VFD    30/APL                                                  FTN5TXT   169
                                        *                                                                        FTN5TXT   170
                                         #NUSE    IFC    EQ,/NUSE//                                              FTN5TXT   171
                                                  USE    DEBUG                                                   FTN5TXT   172
                                        *                                                                        FTN5TXT   173
                                         #NUSE    ELSE                                                           FTN5TXT   174
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    33
        DEBUG MACROS. 
  
                                                  EQ     RTN                                                     FTN5TXT   175
                                         #NUSE    ENDIF                                                          FTN5TXT   176
                                        *                                                                        FTN5TXT   177
                                         APL      BSS    0                                                       FTN5TXT   178
                                                  FRK=   (NAME),LL,UL,INC                                        FTN5TXT   179
                                                  IRP    TAB                                                     FTN5TXT   180
                                         A        MICRO  1,,/TAB /                                               FTN5TXT   181
                                         B        MICRO  1,2,/"A"  /                                             FTN5TXT   182
                                                  IFC    EQ,/"B"/=X/,2                                           FTN5TXT   183
                                         A        MICRO  3,,/"A"   /                                             FTN5TXT   184
                                         B        MICRO  1,2,/"A"  /                                             FTN5TXT   185
                                                  IFC    EQ,/"B"/T./,1                                           FTN5TXT   186
                                         A        MICRO  3,,/"A"   /                                             FTN5TXT   187
                                         A        MICRO  1,7,/"A"       /                                        FTN5TXT   188
                                                  VFD    42/7L"A",18/0                                           FTN5TXT   189
                                                  IRP                                                            FTN5TXT   190
                                                  VFD    60/0                                                    FTN5TXT   191
                                        *                                                                        FTN5TXT   192
                                         #NUSE    IFC    EQ,/NUSE//                                              FTN5TXT   193
                                                  USE    *                                                       FTN5TXT   194
                                        *                                                                        FTN5TXT   195
                                         #NUSE    ELSE                                                           FTN5TXT   196
                                         RTN      BSS    0                                                       FTN5TXT   197
                                         #NUSE    ENDIF                                                          FTN5TXT   198
                                        *                                                                        FTN5TXT   199
                                         DUMPT    ENDM                                                           FTN5TXT   200
                                         STRING   SPACE  4,10                                                    FTN5TXT   201
                                        **        STRING - FORMATTED SNAPSHOT OF STRING BUFFER.                  FTN5TXT   202
                                        *                                                                        FTN5TXT   203
                                        *                                                                        FTN5TXT   204
                                        * NAME    STRING LL,UL,INC                                               FTN5TXT   205
                                        *                                                                        FTN5TXT   206
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   FTN5TXT   207
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    FTN5TXT   208
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         FTN5TXT   209
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       FTN5TXT   210
                                        *                INC  =  INCREMENT   (DEFAULT=1)                         FTN5TXT   211
                                        *                          SEE *FRK=* MACRO.                             FTN5TXT   212
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    FTN5TXT   213
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     FTN5TXT   214
                                        *                          ASSEMBLED AFTER *RJ*                          FTN5TXT   215
                                        *                                                                        FTN5TXT   216
                                        *         EXIT   NONE                                                    FTN5TXT   217
                                        *                                                                        FTN5TXT   218
                                        *         USES   NONE                                                    FTN5TXT   219
                                        *                                                                        FTN5TXT   220
                                        *         CALLS  FRK=,SBD                                                FTN5TXT   221
                                                                                                                 FTN5TXT   222
                                                                                                                 FTN5TXT   223
                                                  PURGMAC STRING                                                 FTN5TXT   224
                                                                                                                 FTN5TXT   225
                                                  MACRO  STRING,NAME,LL,UL,INC,NUSE                              FTN5TXT   226
                                                  LOCAL  RTN                                                     FTN5TXT   227
                                                  LOCAL  APL                                                     FTN5TXT   228
                                        *                                                                        FTN5TXT   229
                                         +        RJ     =XSBD                                                   FTN5TXT   230
                                         -        VFD    30/APL                                                  FTN5TXT   231
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    34
        DEBUG MACROS. 
  
                                        *                                                                        FTN5TXT   232
                                         #NUSE    IFC    EQ,/NUSE//                                              FTN5TXT   233
                                                  USE    DEBUG                                                   FTN5TXT   234
                                        *                                                                        FTN5TXT   235
                                         #NUSE    ELSE                                                           FTN5TXT   236
                                                  EQ     RTN                                                     FTN5TXT   237
                                         #NUSE    ENDIF                                                          FTN5TXT   238
                                        *                                                                        FTN5TXT   239
                                         APL      BSS    0                                                       FTN5TXT   240
                                                  FRK=   (NAME),LL,UL,INC                                        FTN5TXT   241
                                        *                                                                        FTN5TXT   242
                                         #NUSE    IFC    EQ,/NUSE//                                              FTN5TXT   243
                                                  USE    *                                                       FTN5TXT   244
                                        *                                                                        FTN5TXT   245
                                         #NUSE    ELSE                                                           FTN5TXT   246
                                         RTN      BSS    0                                                       FTN5TXT   247
                                         #NUSE    ENDIF                                                          FTN5TXT   248
                                        *                                                                        FTN5TXT   249
                                         STRING   ENDM                                                           FTN5TXT   250
                                                                                                                 FTN5TXT   251
                                         .TEST    ENDIF                                                          FTN5TXT   252
  
  
  
  
                                        **        PRINT - PRINT THE CONTENTS OF A LIST OF LOCATIONS.             FTN5TXT   254
                                        *                                                                        FTN5TXT   255
                                        *                                                                        FTN5TXT   256
                                        *         PRINT  LAB,FMT,(LIST)                                          FTN5TXT   257
                                        *                                                                        FTN5TXT   258
                                        *         LAB - STATEMENT PRINTED IF *LAB* MENTIONED ON A *TRACER* LIST  FTN5TXT   259
                                        *                IF BLANK, THEN UNCONDITIONALLY PRINT.                   FTN5TXT   260
                                        *         FMT - PARENTHESIED FORTRAN FORMAT                              FTN5TXT   261
                                        *         LIST - PARENTHESIZED LIST OF NAMES AND OR REGISTERS TO BE      FTN5TXT   262
                                        *                PRINTED.                                                FTN5TXT   263
                                        *                                                                        FTN5TXT   264
                                        *         SAMPLE CALL --                                                 FTN5TXT   265
                                        *         PRINT XXX,(* SIP,IIP =*,2I6),(SIP,IIP)   WILL PRODUCE -        FTN5TXT   266
                                        *         XXX SIP,IIP = NNNNNN NNNNNN                                    FTN5TXT   267
                                        *                                                                        FTN5TXT   268
                                        *         THIS MACRO IS FOR INTERNAL DEBUGGING ONLY ( TEST MODE ).       FTN5TXT   269
                                                                                                                 FTN5TXT   270
                                                                                                                 FTN5TXT   271
                                                  PURGMAC PRINT                                                  FTN5TXT   272
                                                                                                                 FTN5TXT   273
                                         PRINT    MACRO  LAB,FMT,LIST                                            FTN5TXT   274
                                                  LOCAL  APL,LFMT                                                FTN5TXT   275
                                         .P       IFC    NE,/LAB//,2                                             FTN5TXT   276
                                         .P       IF     -DEF,)LAB,1                                             FTN5TXT   277
                                         .P       IF     DEF,/DEBUG/LAB                                          FTN5TXT   278
                                        *                                                                        FTN5TXT   279
                                                  USE    DEBUG                                                   FTN5TXT   280
                                         APL      CON    =XOUTPUT#                                               FTN5TXT   281
                                                  CON    LFMT                                                    FTN5TXT   282
                                                  IRP    LIST                                                    FTN5TXT   283
                                                  IF     REG,LIST,4                                              FTN5TXT   284
                                         L        MICRO  1,1,/LIST/                                              FTN5TXT   285
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    35
        DEBUG MACROS.                                                 PRINT 
  
                                         N        MICRO  2,1,/LIST/                                              FTN5TXT   286
                                                  VFD    12/2,30/1S6,18/=XSV="L"+"N"                             FTN5TXT   287
                                                  SKIP   1                                                       FTN5TXT   288
                                                  VFD    12/2,30/1S6,18/LIST                                     FTN5TXT   289
                                                  IRP                                                            FTN5TXT   290
                                        *                                                                        FTN5TXT   291
                                         LFMT     CON    0                                                       FTN5TXT   292
                                                  DIS    ,$(* LAB *,FMT)$                                        FTN5TXT   293
                                                  USE    *                                                       FTN5TXT   294
                                        *                                                                        FTN5TXT   295
                                                  RJ     =XSVR=                                                  FTN5TXT   296
                                                  SA1    APL                                                     FTN5TXT   297
                                                  RJ     =XOUTCI.                                                FTN5TXT   298
                                                  RJ     =XRSR=                                                  FTN5TXT   299
                                         .P       ENDIF                                                          FTN5TXT   300
                                         PRINT    ENDM                                                           FTN5TXT   301
                                                                                                                 FTN5TXT   302
  
  
  
  
                                        **        USF= - GENERATE USER FLAG PARAMETER CELL                       FTN5TXT   304
                                        *                                                                        FTN5TXT   305
                                        *         USED BY REG AND SNAP MACROS.                                   FTN5TXT   306
                                        *         USO= AND/OR URO= MUST ALSO BE DEFINED FOR *COMCIDP* CODE.      FTN5TXT   307
                                        *                                                                        FTN5TXT   308
                                        *         USF=   (ABCDEFG)                                               FTN5TXT   309
                                        *                                                                        FTN5TXT   310
                                        *         ENTRY  (ABCDEFG) = STRING OF *SNAP=* CHARACTERS.               FTN5TXT   311
                                        *                                                                        FTN5TXT   312
                                        *         EXIT   USER SNAP/IDP PARAMETER WORD GENERATED.                 FTN5TXT   313
                                        *                                                                        FTN5TXT   314
                                        *         USES   NONE                                                    FTN5TXT   315
                                        *                                                                        FTN5TXT   316
                                        *         CALLS  LETMIC                                                  FTN5TXT   317
                                                                                                                 FTN5TXT   318
                                                                                                                 FTN5TXT   319
                                                  PURGMAC USF=                                                   FTN5TXT   320
                                                                                                                 FTN5TXT   321
                                         USF=     MACRO  USF                                                     FTN5TXT   322
                                         '?ID#001 IFC    NE, USF                                                 FTN5TXT   323
                                         '?IDCS01 LETMIC (USF)                                                   FTN5TXT   324
                                                  CON    "'?IDCS01"                                              FTN5TXT   325
                                         '?ID#001 ELSE                                                           FTN5TXT   326
                                                  CON    0                                                       FTN5TXT   327
                                         '?ID#001 ENDIF                                                          FTN5TXT   328
                                         USF=     ENDM                                                           FTN5TXT   329
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    36
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         COMAIDP 
  
             4                           COMAIDP  CTEXT  COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.   COMAIDP     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMAIDP     4
                                                  QUAL   COMAIDP                                                 COMAIDP     5
                                 D_D              BASE   D                                                       COMAIDP     6
  
  
  
  
                                        **        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.          COMAIDP     8
                                        *                                                                        COMAIDP     9
                                        *                                                                        COMAIDP    10
                                        *                CONTAINS THE MACROS USED TO ACCESS THE ROUTINES IN      COMAIDP    11
                                        *         *COMCIDP*--                                                    COMAIDP    12
                                        *                                                                        COMAIDP    13
                                        * NAME    BREAK  LL,UL,INC   TO PLACE A BREAKPOINT                       COMAIDP    14
                                        * NAME    REG                TO PROVIDE A SNAPSHOT OF ALL REGISTERS      COMAIDP    15
                                        * NAME    REG    (X1,X2,A4)  TO PROVIDE A SNAPSHOT OF SELECTED REGISTERS COMAIDP    16
                                        * NAME    SNAP   FWA,LWA,LEN TO PROVIDE A SNAPSHOT OF CENTRAL MEMORY     COMAIDP    17
  
  
  
  
                                        **        BREAK - PLACE A BREAKPOINT.                                    COMAIDP    19
                                        *                                                                        COMAIDP    20
                                        *                                                                        COMAIDP    21
                                        *                THIS MACRO DOES A RETURN JUMP TO THE INTERACTIVE        COMAIDP    22
                                        *         DEBUG PACKAGE *IDP*.                                           COMAIDP    23
                                        *                                                                        COMAIDP    24
                                        * NAME    BREAK  LL,UL,INC                                               COMAIDP    25
                                        *                                                                        COMAIDP    26
                                        *         ENTRY  NAME = DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH    COMAIDP    27
                                        *                         EACH SNAP. (NR CHARS.LE.8)                     COMAIDP    28
                                        *                LL   = LOWER LIMIT (DEFAULT=1)                          COMAIDP    29
                                        *                UL   = UPPER LIMIT (DEFAULT=100)                        COMAIDP    30
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    COMAIDP    31
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     COMAIDP    32
                                        *                          ASSEMBLED AFTER *RJ*                          COMAIDP    33
                                        *                UF   = A STRING OF USER SNAP FLAGS PROCESSED BY         COMAIDP    34
                                        *                       INSTALLER SUPPLIED USF= MACRO IF DESIRED.        COMAIDP    35
                                        *                       USF= SHOULD GENERATE 1 WORD.                     COMAIDP    36
                                        *                                                                        COMAIDP    37
                                        *         EXIT   NONE                                                    COMAIDP    38
                                        *                                                                        COMAIDP    39
                                        *         USES   NONE                                                    COMAIDP    40
                                        *                                                                        COMAIDP    41
                                        *         CALLS  IDP=                                                    COMAIDP    42
                                                                                                                 COMAIDP    43
                                                                                                                 COMAIDP    44
                                                  PURGMAC BREAK                                                  COMAIDP    45
                                                                                                                 COMAIDP    46
                                                  MACRO  BREAK,NAME,LL,UL,INC,NUSE,UF                            COMAIDP    47
                                                  LOCAL  '?ID#001,'?ID#004                                       COMAIDP    48
                                                  LOCAL  RTN                                                     COMAIDP    49
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    37
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         BREAK               COMAIDP 
  
                                                  LOCAL  APL                                                     COMAIDP    50
                                        *                                                                        COMAIDP    51
                                         +        RJ     =XIDP=                                                  COMAIDP    52
                                         -        VFD    30/APL                                                  COMAIDP    53
                                        *                                                                        COMAIDP    54
                                         #NUSE    IFC    EQ,/NUSE//                                              COMAIDP    55
                                                  USE    DEBUG                                                   COMAIDP    56
                                        *                                                                        COMAIDP    57
                                         #NUSE    ELSE                                                           COMAIDP    58
                                                  EQ     RTN                                                     COMAIDP    59
                                         #NUSE    ENDIF                                                          COMAIDP    60
                                         APL      BSS    0                                                       COMAIDP    61
                                                  FRK=   (NAME),LL,UL,INC                                        COMAIDP    62
                                        *                                                                        COMAIDP    63
                                         '?ID#001 BSS 0                                                          COMAIDP    64
                                                  USF=   (UF)                                                    COMAIDP    65
                                        *                                                                        COMAIDP    66
                                         '?ID#002 IFNE *P,60D                                                    COMAIDP    67
                                                  IFNE *P,0,2                                                    COMAIDP    68
                                                  POS 0                                                          COMAIDP    69
                                         '?ID#003 SKIP                                                           COMAIDP    70
                                        *                                                                        COMAIDP    71
                                         '?ID#002 ENDIF                                                          COMAIDP    72
                                         '?ID#004 BSS 0                                                          COMAIDP    73
                                        *                                                                        COMAIDP    74
                                                  IFNE   '?ID#004-'?ID#001,1,2                                   COMAIDP    75
                                         '?ID#003 ENDIF                                                          COMAIDP    76
                                         P        ERR    *USF=* DID NOT GENERATE EXACTLY 60D BITS. "SEQUENCE"    COMAIDP    77
                                        *                                                                        COMAIDP    78
                                                  CON    0                                                       COMAIDP    79
                                        *                                                                        COMAIDP    80
                                         #NUSE    IFC    EQ,/NUSE//                                              COMAIDP    81
                                                  USE    *                                                       COMAIDP    82
                                        *                                                                        COMAIDP    83
                                         #NUSE    ELSE                                                           COMAIDP    84
                                         RTN      BSS    0                                                       COMAIDP    85
                                         #NUSE    ENDIF                                                          COMAIDP    86
                                        *                                                                        COMAIDP    87
                                         BREAK    ENDM                                                           COMAIDP    88
  
  
  
  
                                        **        FRK= - GENERATE FREQUENCY PARAMETER LIST.                      COMAIDP    90
                                        *                                                                        COMAIDP    91
                                        *                                                                        COMAIDP    92
                                        *         FRK=   (NAME),LL,UL,INC                                        COMAIDP    93
                                        *                                                                        COMAIDP    94
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   COMAIDP    95
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    COMAIDP    96
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         COMAIDP    97
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       COMAIDP    98
                                        *                INC  =  INCREMENT (DEFAULT=1)                           COMAIDP    99
                                        *                          LL, UL, AND INC ARE THE SNAP FREQUENCY PAR-   COMAIDP   100
                                        *                          AMETERS AND ARE RELATED AS FOLLOWS--  THE 1ST COMAIDP   101
                                        *                          SNAP PRINTED WILL OCCUR THE LLTH TIME THIS    COMAIDP   102
                                        *                          SNAP IS EXECUTED. THE 2ND SNAP PRINTED WILL   COMAIDP   103
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    38
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         FRK=                COMAIDP 
  
                                        *                          OCCUR THE (LL+INC)TH TIME THIS SNAP IS EXEC-  COMAIDP   104
                                        *                          UTED, AND SO ON. THE LAST SNAP PRINTED WILL   COMAIDP   105
                                        *                          OCCUR THE ULTH TIME THIS SNAP IS EXECUTED.    COMAIDP   106
                                        *                                                                        COMAIDP   107
                                        *         EXIT   NONE                                                    COMAIDP   108
                                        *                                                                        COMAIDP   109
                                        *         USES   NONE                                                    COMAIDP   110
                                        *                                                                        COMAIDP   111
                                        *         CALLS  NONE                                                    COMAIDP   112
                                                                                                                 COMAIDP   113
                                                                                                                 COMAIDP   114
                                                  PURGMAC FRK=                                                   COMAIDP   115
                                                                                                                 COMAIDP   116
                                         FRK=     MACRO  NAME,LL,UL,INC                                          COMAIDP   117
                                                  CON    LL  1                                                   COMAIDP   118
                                                  CON    UL  100                                                 COMAIDP   119
                                                  CON    INC 1                                                   COMAIDP   120
                                         .1       IFC    EQ,/NAME//                                              COMAIDP   121
                                                  CON    0                                                       COMAIDP   122
                                         .1       ELSE                                                           COMAIDP   123
                                                  CON    10H_NAME                                                COMAIDP   124
                                         .1       ENDIF                                                          COMAIDP   125
                                                  CON    0                                                       COMAIDP   126
                                        *                            USED BY *FRK=/TSNAP* TO KEEP SNAP COUNT     COMAIDP   127
                                         FRK=     ENDM                                                           COMAIDP   128
  
  
  
  
                                        **        REG - REGISTER SNAPSHOT.                                       COMAIDP   130
                                        *                                                                        COMAIDP   131
                                        *                                                                        COMAIDP   132
                                        * NAME    REG    RG,LL,UL,INC,NUSE,UF                                    COMAIDP   133
                                        *                                                                        COMAIDP   134
                                        *         REG                                                            COMAIDP   135
                                        *         REG    (X1,B3,A4)                                              COMAIDP   136
                                        *         REG    NOREG                                                   COMAIDP   137
                                        *                                                                        COMAIDP   138
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   COMAIDP   139
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    COMAIDP   140
                                        *                     =  NULL IF NO SNAP HEADER                          COMAIDP   141
                                        *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          COMAIDP   142
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    COMAIDP   143
                                        *                          DESIRED TO BE DUMPED                          COMAIDP   144
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     COMAIDP   145
                                        *                          DUMPED                                        COMAIDP   146
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         COMAIDP   147
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       COMAIDP   148
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    COMAIDP   149
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     COMAIDP   150
                                        *                          ASSEMBLED AFTER *RJ*                          COMAIDP   151
                                        *                UF   =  A STRING OF USER SNAP FLAGS PROCESSED BY        COMAIDP   152
                                        *                        INSTALLER SUPPLIED USF= MACRO IF DESIRED.       COMAIDP   153
                                        *                        USF= SHOULD GENERATE 1 WORD.                    COMAIDP   154
                                        *                                                                        COMAIDP   155
                                        *         EXIT   NONE                                                    COMAIDP   156
                                        *                                                                        COMAIDP   157
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    39
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         REG                 COMAIDP 
  
                                        *         USES   NONE                                                    COMAIDP   158
                                        *                                                                        COMAIDP   159
                                        *         CALLS  FRK=,REG=,RGR=,USF=(IF DEF)                             COMAIDP   160
                                                                                                                 COMAIDP   161
                                                                                                                 COMAIDP   162
                                                  PURGMAC REG                                                    COMAIDP   163
                                                                                                                 COMAIDP   164
                                                  MACRO  REG,NAME,RG,LL,UL,INC,NUSE,UF                           COMAIDP   165
                                                  LOCAL  '?ID#001,'?ID#004                                       COMAIDP   166
                                                  LOCAL  RTN                                                     COMAIDP   167
                                                  LOCAL  APL                                                     COMAIDP   168
                                        *                                                                        COMAIDP   169
                                         +        RJ     =XREG=                                                  COMAIDP   170
                                         -        VFD    30/APL                                                  COMAIDP   171
                                        *                                                                        COMAIDP   172
                                         #NUSE    IFC    EQ,/NUSE//                                              COMAIDP   173
                                                  USE    DEBUG                                                   COMAIDP   174
                                        *                                                                        COMAIDP   175
                                         #NUSE    ELSE                                                           COMAIDP   176
                                                  EQ     RTN                                                     COMAIDP   177
                                         #NUSE    ENDIF                                                          COMAIDP   178
                                         APL      BSS    0                                                       COMAIDP   179
                                                  FRK=   (NAME),LL,UL,INC                                        COMAIDP   180
                                         '?ID#001 BSS 0                                                          COMAIDP   181
                                                  USF=   (UF)                                                    COMAIDP   182
                                        *                                                                        COMAIDP   183
                                         '?ID#002 IFNE *P,60D                                                    COMAIDP   184
                                                  IFNE *P,0,2                                                    COMAIDP   185
                                                  POS 0                                                          COMAIDP   186
                                         '?ID#003 SKIP                                                           COMAIDP   187
                                        *                                                                        COMAIDP   188
                                         '?ID#002 ENDIF                                                          COMAIDP   189
                                         '?ID#004 BSS 0                                                          COMAIDP   190
                                        *                                                                        COMAIDP   191
                                                  IFNE   '?ID#004-'?ID#001,1,2                                   COMAIDP   192
                                         '?ID#003 ENDIF                                                          COMAIDP   193
                                         P        ERR    *USF=* DID NOT GENERATE EXACTLY 60D BITS. "SEQUENCE"    COMAIDP   194
                                        *                                                                        COMAIDP   195
                                                  RGR=   (RG)                                                    COMAIDP   196
                                        *                                                                        COMAIDP   197
                                         #NUSE    IFC    EQ,/NUSE//                                              COMAIDP   198
                                                  USE    *                                                       COMAIDP   199
                                        *                                                                        COMAIDP   200
                                         #NUSE    ELSE                                                           COMAIDP   201
                                         RTN      BSS    0                                                       COMAIDP   202
                                         #NUSE    ENDIF                                                          COMAIDP   203
                                        *                                                                        COMAIDP   204
                                         REG      ENDM                                                           COMAIDP   205
                                                                                                                 COMAIDP   206
                                                  PURGMAC REGS                                                   COMAIDP   207
                                         REGS     OPSYN  REG                                                     COMAIDP   208
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    40
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         RGR=                COMAIDP 
  
                                        **        RGR= - GENERATE REGISTER PARAMETER LIST.                       COMAIDP   210
                                        *                                                                        COMAIDP   211
                                        *                                                                        COMAIDP   212
                                        *                SEE *DSR/COMCIDP*.                                      COMAIDP   213
                                        *                                                                        COMAIDP   214
                                        *         RGR=   RG                                                      COMAIDP   215
                                        *                                                                        COMAIDP   216
                                        *         RGR=                                                           COMAIDP   217
                                        *         RGR=   (X1,X2,A3,B4)                                           COMAIDP   218
                                        *         RGR=   NOREG                                                   COMAIDP   219
                                        *                                                                        COMAIDP   220
                                        *         ENTRY  RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          COMAIDP   221
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    COMAIDP   222
                                        *                          DESIRED TO BE DUMPED                          COMAIDP   223
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     COMAIDP   224
                                        *                          DUMPED                                        COMAIDP   225
                                        *                                                                        COMAIDP   226
                                        *         EXIT   NONE                                                    COMAIDP   227
                                        *                                                                        COMAIDP   228
                                        *         USES   NONE                                                    COMAIDP   229
                                        *                                                                        COMAIDP   230
                                        *         CALLS  NONE                                                    COMAIDP   231
                                                                                                                 COMAIDP   232
                                                                                                                 COMAIDP   233
                                                  PURGMAC RGR=                                                   COMAIDP   234
                                                                                                                 COMAIDP   235
                                         RGR=     MACRO  RG                                                      COMAIDP   236
                                        *                                                                        COMAIDP   237
                                         .1       IFC    EQ,/RG//                                                COMAIDP   238
                                                  DATA   -1                                                      COMAIDP   239
                                         .1       ELSE                                                           COMAIDP   240
                                        *                                                                        COMAIDP   241
                                         .2       IRP    RG                                                      COMAIDP   242
                                         .3       IF     -REG,RG                                                 COMAIDP   243
                                                  DATA   0                                                       COMAIDP   244
                                         .3       ELSE                                                           COMAIDP   245
                                         .T       MICRO  1,1,/RG/                                                COMAIDP   246
                                         .R       MICRO  2,1,/RG/                                                COMAIDP   247
                                                  VFD    60/=XIDP=SV_".T"+".R"                                   COMAIDP   248
                                         .3       ENDIF                                                          COMAIDP   249
                                         .2       IRP                                                            COMAIDP   250
                                        *                                                                        COMAIDP   251
                                                  DATA   0                                                       COMAIDP   252
                                         .1       ENDIF                                                          COMAIDP   253
                                        *                                                                        COMAIDP   254
                                         RGR=     ENDM                                                           COMAIDP   255
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    41
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         SNAP                COMAIDP 
  
                                        **        SNAP - SNAPSHOT OF REGISTERS AND CORE.                         COMAIDP   257
                                        *                                                                        COMAIDP   258
                                        *                                                                        COMAIDP   259
                                        * NAME    SNAP   FWA,LWA,LNG,RG,LL,UL,INC,NUSE,UF                        COMAIDP   260
                                        *         SNAP   *FWA,,**LNG,(X1,X2,B5,A1)                               COMAIDP   261
                                        *                                                                        COMAIDP   262
                                        *         ENTRY  NAME =  DISPLAY CODE (DPC) MESSAGE TO BE PRINTED WITH   COMAIDP   263
                                        *                          EACH SNAP. (NR CHARS.LE.8)                    COMAIDP   264
                                        *                     =  NULL IF NO SNAP HEADER                          COMAIDP   265
                                        *                FWA  =  FWA OF CORE TO BE DUMPED. THIS PARAMETER MUST   COMAIDP   266
                                        *                          APPEAR IF A CORE DUMP IS DESIRED.             COMAIDP   267
                                        *                LWA  =  LWA OF CORE TO BE DUMPED. (OPTIONAL)            COMAIDP   268
                                        *                LNG  =  NR OF WORDS TO BE DUMPED. *LWA* AND *LNG* ARE   COMAIDP   269
                                        *                          RELATED AS FOLLOWS--  DUMP IS FROM            COMAIDP   270
                                        *                          FWA TO FWA+LNG UNLESS LNG IS NULL OR ZERO.    COMAIDP   271
                                        *                          IN THAT CASE, DUMP IS FROM FWA TO LWA.        COMAIDP   272
                                        *                RG   =  NULL IF ALL REGISTERS ARE TO BE DUMPED          COMAIDP   273
                                        *                     =  A LIST OF THE REGISTERS (ENCLOSED IN PARENS)    COMAIDP   274
                                        *                          DESIRED TO BE DUMPED                          COMAIDP   275
                                        *                     =  NON-REGISTER/NON-NULL IF NO REGISTERS TO BE     COMAIDP   276
                                        *                          DUMPED                                        COMAIDP   277
                                        *                LL   =  LOWER LIMIT (DEFAULT=1)                         COMAIDP   278
                                        *                UL   =  UPPER LIMIT (DEFAULT=100)                       COMAIDP   279
                                        *                INC  =  INCREMENT (DEFAULT=1)                           COMAIDP   280
                                        *                NUSE =  USE BLOCK FLAG. IF *NUSE* IS NULL, THE PARA-    COMAIDP   281
                                        *                          METER LIST EXISTS IN *USE DEBUG*, ELSE IS     COMAIDP   282
                                        *                          ASSEMBLED AFTER *RJ*                          COMAIDP   283
                                        *                UF   =  A STRING OF USER SNAP FLAGS PROCESSED BY        COMAIDP   284
                                        *                        INSTALLER SUPPLIED USF= MACRO IF DESIRED.       COMAIDP   285
                                        *                        USF= SHOULD GENERATE 1 WORD.                    COMAIDP   286
                                        *                                                                        COMAIDP   287
                                        *         NOTES-- AN INDIRECT ADDRESSING SYNTAX IS PROVIDED FOR THE FWA, COMAIDP   288
                                        *         LWA, AND LNG PARAMETERS. ANY OF THESE PARAMETERS PRECEDED BY   COMAIDP   289
                                        *         AN ASTERICK (*) DENOTES ONE LEVEL OF INDIRECT ADDRESSING.      COMAIDP   290
                                        *         N LEVELS OF INDIRECT ADDRESSING ARE POSSIBLE (N.LE.2**21-1)    COMAIDP   291
                                        *         BY STACKING ASTERICKS. (E.G.  SNAP  **X1,***LWA)               COMAIDP   292
                                        *                                                                        COMAIDP   293
                                        *                A SINGLE REGISTER OR AN ADDRESS EXPRESSION CAN BE USED  COMAIDP   294
                                        *         FOR THE FWA, LWA, OR LNG PARAMETER, BUT A MIX (E.G. SNAP X1+1) COMAIDP   295
                                        *         IS NOT ALLOWED.                                                COMAIDP   296
                                        *                                                                        COMAIDP   297
                                        *         EXIT   NONE                                                    COMAIDP   298
                                        *                                                                        COMAIDP   299
                                        *         USES   NONE        (ALL REGISTERS ARE SAVED AND RESTORED)      COMAIDP   300
                                        *                                                                        COMAIDP   301
                                        *         CALLS  FRK=,RGR=,SNG=,SNP=,USF=(IF DEF)                        COMAIDP   302
                                                                                                                 COMAIDP   303
                                                                                                                 COMAIDP   304
                                                  PURGMAC SNAP                                                   COMAIDP   305
                                                                                                                 COMAIDP   306
                                                  MACRO  SNAP,NAME,FWA,LWA,LNG,RG,LL,UL,INC,NUSE,UF              COMAIDP   307
                                                  LOCAL  '?ID#005,'?ID#008                                       COMAIDP   308
                                                  LOCAL  RTN                                                     COMAIDP   309
                                                  LOCAL  APL                                                     COMAIDP   310
                                        *                                                                        COMAIDP   311
                                         +        RJ     =XSNP=                                                  COMAIDP   312
                                         -        VFD    30/APL                                                  COMAIDP   313
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    42
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         SNAP                COMAIDP 
  
                                        *                                                                        COMAIDP   314
                                         #NUSE    IFC    EQ,/NUSE//                                              COMAIDP   315
                                                  USE    DEBUG                                                   COMAIDP   316
                                        *                                                                        COMAIDP   317
                                         #NUSE    ELSE                                                           COMAIDP   318
                                                  EQ     RTN                                                     COMAIDP   319
                                         #NUSE    ENDIF                                                          COMAIDP   320
                                         APL      BSS    0                                                       COMAIDP   321
                                                  FRK=   (NAME),LL,UL,INC                                        COMAIDP   322
                                                  SNG=   (FWA)                                                   COMAIDP   323
                                                  SNG=   (LWA)                                                   COMAIDP   324
                                                  SNG=   (LNG)                                                   COMAIDP   325
                                         '?ID#005 BSS 0                                                          COMAIDP   326
                                                  USF=   (UF)                                                    COMAIDP   327
                                        *                                                                        COMAIDP   328
                                         '?ID#006 IFNE *P,60D                                                    COMAIDP   329
                                                  IFNE *P,0,2                                                    COMAIDP   330
                                                  POS 0                                                          COMAIDP   331
                                         '?ID#007 SKIP                                                           COMAIDP   332
                                        *                                                                        COMAIDP   333
                                         '?ID#006 ENDIF                                                          COMAIDP   334
                                         '?ID#008 BSS 0                                                          COMAIDP   335
                                        *                                                                        COMAIDP   336
                                                  IFNE   '?ID#008-'?ID#005,1,2                                   COMAIDP   337
                                         '?ID#007 ENDIF                                                          COMAIDP   338
                                         P        ERR    *USF= DID NOT GENERATE EXACTLY 60D BITS. "SEQUENCE"     COMAIDP   339
                                        *                                                                        COMAIDP   340
                                                  RGR=   (RG)                                                    COMAIDP   341
                                        *                                                                        COMAIDP   342
                                         #NUSE    IFC    EQ,/NUSE//                                              COMAIDP   343
                                                  USE    *                                                       COMAIDP   344
                                        *                                                                        COMAIDP   345
                                         #NUSE    ELSE                                                           COMAIDP   346
                                         RTN      BSS    0                                                       COMAIDP   347
                                         #NUSE    ENDIF                                                          COMAIDP   348
                                        *                                                                        COMAIDP   349
                                         SNAP     ENDM                                                           COMAIDP   350
  
  
  
  
                                        **        SNG= - GENERATE INDIRECT/ADDRESS FIELDS.                       COMAIDP   352
                                        *                                                                        COMAIDP   353
                                        *                                                                        COMAIDP   354
                                        *         GENERATES--                                                    COMAIDP   355
                                        *                                                                        COMAIDP   356
                                        *         VFD    18/0                                                    COMAIDP   357
                                        *         VFD    21/NR OF LEVELS OF INDIRECT ADDRESSING (0=DIRECT)       COMAIDP   358
                                        *         VFD    21/ADDRESS AT BEGINNING OF INDIRECT CHAIN               COMAIDP   359
                                        *                                                                        COMAIDP   360
                                        *         SNG=   (*ADDR)                                                 COMAIDP   361
                                        *                                                                        COMAIDP   362
                                        *         ENTRY  *        =  A LEVEL OF INDIRECT ADDRESSING.             COMAIDP   363
                                        *                              NO * MEANS DIRECT ADDRESSING.             COMAIDP   364
                                        *                              E.G. *ADDR MEANS THE CONTENTS OF ADDR     COMAIDP   365
                                        *                              CONTAIN AN ADDRESS THAT IS TO BE USED BY  COMAIDP   366
                                        *                              SNAP UTILITY.                             COMAIDP   367
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    43
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         SNG=                COMAIDP 
  
                                        *                ADDR     =  THE BEGINNING OF THE ADDRESS CHAIN.         COMAIDP   368
                                                                                                                 COMAIDP   369
                                                                                                                 COMAIDP   370
                                                  PURGMAC SNG=                                                   COMAIDP   371
                                                                                                                 COMAIDP   372
                                         SNG=     MACRO  ARG                                                     COMAIDP   373
                                         .9       SET    -1                                                      COMAIDP   374
                                         +        VFD    18/0                                                    COMAIDP   375
                                        *                                                                        COMAIDP   376
                                         .D       DUP    -1                                                      COMAIDP   377
                                         .9       SET    .9+1                                                    COMAIDP   378
                                         .1       MICRO  .9+1,1,/ARG/                                            COMAIDP   379
                                                  IFC    NE,/".1"/*/,1                                           COMAIDP   380
                                                  STOPDUP                                                        COMAIDP   381
                                         .D       ENDD                                                           COMAIDP   382
                                        *                                                                        COMAIDP   383
                                         .2       MICRO  .9+1,,/ARG/                                             COMAIDP   384
                                        *                                                                        COMAIDP   385
                                         #RG      IF     REG,".2"                                                COMAIDP   386
                                                  IFEQ   .9,0,1                                                  COMAIDP   387
                                         .9       SET    .9+1                                                    COMAIDP   388
                                         .3       MICRO  1,1,/".2"/                                              COMAIDP   389
                                         .4       MICRO  2,1,/".2"/                                              COMAIDP   390
                                         .2       MICRO  1,,/=XIDP=SV".3"+".4"/                                  COMAIDP   391
                                        *                                                                        COMAIDP   392
                                         #RG      ELSE                                                           COMAIDP   393
                                         .5       MICRO  1,2,/".2"/                                              COMAIDP   394
                                                  IFC    EQ,/".5"/=X/,1                                          COMAIDP   395
                                         .2       MICRO  3,,/".2"/                                               COMAIDP   396
                                                  IF     -DEF,".2",1                                             COMAIDP   397
                                                  SKIP   1                                                       COMAIDP   398
                                                  IF     -ABS,".2",1                                             COMAIDP   399
                                         .2       MICRO  1,,/=X".2"/                                             COMAIDP   400
                                         #RG      ENDIF                                                          COMAIDP   401
                                        *                                                                        COMAIDP   402
                                                  VFD    21/.9                                                   COMAIDP   403
                                                  VFD    21/".2"                                                 COMAIDP   404
                                         SNG=     ENDM                                                           COMAIDP   405
  
  
  
  
                                        **        USF= - GENERATE USER FLAG PARAMETER CELL.                      COMAIDP   407
                                        *                                                                        COMAIDP   408
                                        *                                                                        COMAIDP   409
                                        *         THIS IS A DUMMY TO CREATE A ZERO WORD IF THE USER              COMAIDP   410
                                        *         DOES NOT DESIRE OWN CODE.                                      COMAIDP   411
                                        *                                                                        COMAIDP   412
                                        *         USF=   USF                                                     COMAIDP   413
                                        *                                                                        COMAIDP   414
                                        *         ENTRY  USF  = ANY LEGAL STRING OF CHARACTERS                   COMAIDP   415
                                        *                                                                        COMAIDP   416
                                        *         EXIT   NONE                                                    COMAIDP   417
                                        *                                                                        COMAIDP   418
                                        *         USES   NONE                                                    COMAIDP   419
                                        *                                                                        COMAIDP   420
                                        *         CALLS  NONE                                                    COMAIDP   421
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    44
        COMAIDP - INTERACTIVE AND BATCH DEBUG PACKAGE MACROS.         USF=                COMAIDP 
  
                                                                                                                 COMAIDP   422
                                         .1       IF     -MAC,USF=                                               COMAIDP   423
                                         USF=     MACRO  USF                                                     COMAIDP   424
                                                  CON    0                                                       COMAIDP   425
                                         USF=     ENDM                                                           COMAIDP   426
                                         .1       ENDIF                                                          COMAIDP   427
  
  
  
  
                                 D_D              BASE   *                                                       COMAIDP   429
                                         QUAL$    IF     -DEF,QUAL$                                              COMAIDP   430
                                                  QUAL   *                                                       COMAIDP   431
                                         QUAL$    ENDIF                                                          COMAIDP   432
                                         COMAIDP  ENDX                                                           COMAIDP   433
                                                                                                                 FTN5TXT   331
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    45
        COMACPU - GENERAL CPU MACROS. 
  
             4                                    CTEXT  COMACPU - GENERAL CPU MACROS.                           COMACPU     2
  
  
  
  
                                        ***       COMACPU - GENERAL CPU MACROS.                                  COMACPU     4
                                        *                                                                        COMACPU     5
                                        *         G. R. MANSFIELD.   70/09/21.                                   COMACPU     6
                                        *         R. H. GOODELL.     73/04/05.                                   COMACPU     7
                                        *         T. R. RAMSEY.      76/05/05. MODIFIED FOR JETTEXT.             COMACPU     8
                                        *                                                                        COMACPU     9
                                        *         COPYRIGHT CONTROL DATA CORPORATION. 1970-1976.                 COMACPU    10
  
  
  
  
                                        ***              THE GENERAL CPU MACROS PROVIDE THE USER WITH COMMONLY   COMACPU    12
                                        *         USED MACRO AND OPDEF DEFINITIONS.                              COMACPU    13
                                        *                                                                        COMACPU    14
                                        *         USERS SHOULD AVOID NAMES OF THE FORM *'?CPU#XX* WHERE *XX* IS  COMACPU    15
                                        *         ANY TWO CHARACTERS. NAMES OF THIS FORM ARE USED INTERNALLY.    COMACPU    16
                                        *                                                                        COMACPU    17
                                        *         ALL NUMERIC CONSTANTS GREATER THAN 7 IN THESE MACROS HAVE      COMACPU    18
                                        *         AN EXPLICIT RADIX, SO THE *BASE* MODE IS IMMATERIAL.           COMACPU    19
                                        *                                                                        COMACPU    20
                                        *         THIS COMMON DECK CONTAINS NO UNLABELED *ELSE* OR *ENDIF*       COMACPU    21
                                        *         STATEMENTS, SO IT CAN BE ASSEMBLED CONDITIONALLY.              COMACPU    22
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    46
        COMACPU - GENERAL CPU MACROS.                                 BITMIC
  
                                        ***       BITMIC - MACRO TO GENERATE BIT MASKS FOR CHARACTER STRINGS.    COMACPU    25
                                        *                                                                        COMACPU    26
                                        * MIKE    BITMIC (BITS),OFFSET                                           COMACPU    27
                                        * MIKE    LETMIC (LETS),OFFSET          (ALTERNATE FORM)                 COMACPU    28
                                        *                                                                        COMACPU    29
                                        *         ENTRY  *MIKE* = THE NAME OF THE MICRO TO BE GENERATED          COMACPU    30
                                        *                *BITS* = (BIT1,BIT2,...,BITN)  WHERE EACH BIT(I) IS A   COMACPU    31
                                        *                         VALUE OF A BIT THAT IS TO BE SET               COMACPU    32
                                        *                *LETS* = A CHARACTER STRING, (ABC...N) IMPLIES THAT     COMACPU    33
                                        *                         THE BIT VALUES ARE (1RA,1RB,1RC,...,1RN)       COMACPU    34
                                        *                *OFFSET* = OFFSET, IF OTHER THAN 59                     COMACPU    35
                                        *                                                                        COMACPU    36
                                        *         EXIT   GENERATES A MICRO WHICH IS A 20 OCTAL DIGIT INTEGER     COMACPU    37
                                        *                (WITH *B* SUFFIX PRESENT) WHICH REPRESENTS THE SUM OF   COMACPU    38
                                        *                2**(OFFSET-BIT(N))  TAKEN OVER ALL *N* PARAMETERS       COMACPU    39
                                        *                                                                        COMACPU    40
                                        *         NOTE   SUPPOSE, FOR EXAMPLE, IT IS DESIRED TO TEST IF THE      COMACPU    41
                                        *                CHARACTER IN B7 IS A LEGAL COMPASS LIST OPTION          COMACPU    42
                                        *                CHARACTER. THE FOLLOWING WOULD ACCOMPLISH THIS TEST -   COMACPU    43
                                        *                                                                        COMACPU    44
                                        *         LOP    LETMIC (ABCDEFGLMNRSTX)                                 COMACPU    45
                                        *                SA1    ="LOP"                                           COMACPU    46
                                        *                LX2    X1,B7                                            COMACPU    47
                                        *                MI     X2,O.K.        IF LEGAL LIST OPTION              COMACPU    48
                                        *                                                                        COMACPU    49
                                        *                ALTERNATIVELY, THE MICRO COULD HAVE BEEN DEFINED        COMACPU    50
                                        *                (EQUIVALENTLY, ALBEIT MORE CUMBERSOME) AS -             COMACPU    51
                                        *         LOP    BITMIC (1RA,1RB,1RC,1RD,1RE,1RF,1RG,1RL,1RM,...,1RX)    COMACPU    52
                                        *                                                                        COMACPU    53
                                        *                *BITMIC* IS USUALLY MORE CONVENIENT WHEN THE BITS TO    COMACPU    54
                                        *                BE SET HAVE SYMBOLIC DEFINITIONS.                       COMACPU    55
                                                                                                                 COMACPU    56
                                                                                                                 COMACPU    57
                                                  PURGMAC BITMIC,LETMIC                                          COMACPU    58
                                                                                                                 COMACPU    59
                                                  MACRO  BITMIC,LOC,BITS,OFF                                     COMACPU    60
                                         '?CPU#LO OCTMIC ,10D                                                    COMACPU    61
                                         '?CPU#HI OCTMIC ,10D                                                    COMACPU    62
                                         '?CPU#OF SET    OFF 59D                                                 COMACPU    63
                                                  IRP    BITS                                                    COMACPU    64
                                         '?CPU#.2 IFLE   '?CPU#OF-BITS,29D                                       COMACPU    65
                                         '?CPU#DD DECMIC '?CPU#OF-BITS,2                                         COMACPU    66
                                         '?CPU#LO OCTMIC 1S"'?CPU#DD"+"'?CPU#LO"B,10D                            COMACPU    67
                                         '?CPU#.2 ELSE                                                           COMACPU    68
                                         '?CPU#DD DECMIC '?CPU#OF-30D-BITS,2                                     COMACPU    69
                                         '?CPU#HI OCTMIC 1S"'?CPU#DD"+"'?CPU#HI"B,10D                            COMACPU    70
                                         '?CPU#.2 ENDIF                                                          COMACPU    71
                                                  IRP                                                            COMACPU    72
                                         LOC      MICRO  1,, "'?CPU#HI""'?CPU#LO"B                               COMACPU    73
                                         BITMIC   ENDM                                                           COMACPU    74
                                                                                                                 COMACPU    75
                                                                                                                 COMACPU    76
                                                  MACRO  LETMIC,LOC,BITS,OFF                                     COMACPU    77
                                         '?CPU#CH MICRO  1,,^_BITS_^                                             COMACPU    78
                                         '?CPU#LO OCTMIC ,10D                                                    COMACPU    79
                                         '?CPU#HI OCTMIC ,10D                                                    COMACPU    80
                                         '?CPU#OF SET    OFF 59D                                                 COMACPU    81
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    47
        COMACPU - GENERAL CPU MACROS.                                 BITMIC
  
                                         '?CPU#CX MICCNT '?CPU#CH                                                COMACPU    82
                                         '?CPU#CN SET    0                                                       COMACPU    83
                                         '?CPU#.1 DUP    '?CPU#CX                                                COMACPU    84
                                         '?CPU#CN SET    '?CPU#CN+1                                              COMACPU    85
                                         '?CPU#CH MICRO  '?CPU#CN,1,^_BITS_^                                     COMACPU    86
                                         '?CPU#.2 IFLE   '?CPU#OF-1R"'?CPU#CH",29D                               COMACPU    87
                                         '?CPU#DD DECMIC '?CPU#OF-1R"'?CPU#CH",2                                 COMACPU    88
                                         '?CPU#LO OCTMIC 1S"'?CPU#DD"+"'?CPU#LO"B,10D                            COMACPU    89
                                         '?CPU#.2 ELSE                                                           COMACPU    90
                                         '?CPU#DD DECMIC '?CPU#OF-30D-1R"'?CPU#CH",2                             COMACPU    91
                                         '?CPU#HI OCTMIC 1S"'?CPU#DD"+"'?CPU#HI"B,10D                            COMACPU    92
                                         '?CPU#.2 ENDIF                                                          COMACPU    93
                                         '?CPU#.1 ENDD                                                           COMACPU    94
                                         LOC      MICRO  1,, "'?CPU#HI""'?CPU#LO"B                               COMACPU    95
                                         LETMIC   ENDM                                                           COMACPU    96
  
  
  
  
                                        ***       BXQ - CONVENIENCE OPDEF TO ZERO AN *X* REGISTER.               COMACPU    98
                                        *                                                                        COMACPU    99
                                        *         BXI    Q                                                       COMACPU   100
                                        *                                                                        COMACPU   101
                                        *         ENTRY  *Q* = 0  SET XI TO ALL ZEROS                            COMACPU   102
                                        *                *Q* = -0  SET XI TO ALL ONES                            COMACPU   103
                                                                                                                 COMACPU   104
                                                                                                                 COMACPU   105
                                                  PURGDEF BXQ                                                    COMACPU   106
                                                                                                                 COMACPU   107
                                         BXQ      OPDEF  I,V                                                     COMACPU   108
                                          ERRNZ V   BXQ - Q MUST BE ZERO, IS (V)                                 COMACPU   109
                                          IFMI V,2                                                               COMACPU   110
                                          BX.I -X.I+X.I                                                          COMACPU   111
                                          SKIP 1                                                                 COMACPU   112
                                          BX.I X.I-X.I                                                           COMACPU   113
                                          ENDM                                                                   COMACPU   114
  
  
  
  
                                        ***       IXI XJ/XK - INTEGER DIVISION.                                  COMACPU   116
                                        *                                                                        COMACPU   117
                                        *         IXI    XJ/XK                                                   COMACPU   118
                                        *                                                                        COMACPU   119
                                        *         USES   B7  XJ,XK                                               COMACPU   120
                                                                                                                 COMACPU   121
                                                                                                                 COMACPU   122
                                                  PURGDEF IXX/X                                                  COMACPU   123
                                                                                                                 COMACPU   124
                                         IXX/X    OPDEF  I,J,K                                                   COMACPU   125
                                          PX.J                                                                   COMACPU   126
                                          PX.K                                                                   COMACPU   127
                                          NX.J                                                                   COMACPU   128
                                          NX.K                                                                   COMACPU   129
                                          FX.I X.J/X.K                                                           COMACPU   130
                                          UX.I,B7                                                                COMACPU   131
                                          AX.I -B7                                                               COMACPU   132
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    48
        COMACPU - GENERAL CPU MACROS.                                 IXX/X 
  
                                          ENDM                                                                   COMACPU   133
  
  
  
  
                                        ***       IXI XJ/XK,BN - INTEGER DIVISION.                               COMACPU   135
                                        *                                                                        COMACPU   136
                                        *         IXI    XJ/XK,BN                                                COMACPU   137
                                        *                                                                        COMACPU   138
                                        *         USES   BN  XJ,XK                                               COMACPU   139
                                                                                                                 COMACPU   140
                                                                                                                 COMACPU   141
                                                  PURGDEF IXX/X,B                                                COMACPU   142
                                                                                                                 COMACPU   143
                                         IXX/X,B  OPDEF  I,J,K,N                                                 COMACPU   144
                                          PX.J                                                                   COMACPU   145
                                          PX.K                                                                   COMACPU   146
                                          NX.J                                                                   COMACPU   147
                                          NX.K                                                                   COMACPU   148
                                          FX.I X.J/X.K                                                           COMACPU   149
                                          UX.I,B.N                                                               COMACPU   150
                                          AX.I -B.N                                                              COMACPU   151
                                          ENDM                                                                   COMACPU   152
  
  
  
  
                                        ***       MOVE - MOVE DATA BLOCK.                                        COMACPU   154
                                        *                                                                        COMACPU   155
                                        *         MOVE   COUNT,FROM,TO                                           COMACPU   156
                                        *                                                                        COMACPU   157
                                        *         ENTRY  *COUNT* = WORD COUNT OF BLOCK TO BE MOVED               COMACPU   158
                                        *                *FROM* = ADDRESS OF FIRST WORD OF BLOCK                 COMACPU   159
                                        *                *TO* = ADDRESS OF FIRST WORD OF DESTINATION             COMACPU   160
                                        *                                                                        COMACPU   161
                                        *         USES   X1,X2,X3                                                COMACPU   162
                                        *                                                                        COMACPU   163
                                        *         CALLS  MVE=  (COMCMVE)                                         COMACPU   164
                                                                                                                 COMACPU   165
                                                                                                                 COMACPU   166
                                                  PURGMAC MOVE                                                   COMACPU   167
                                                                                                                 COMACPU   168
                                         MOVE     MACRO  C,F,T                                                   COMACPU   169
                                          =X1 C                                                                  COMACPU   170
                                          =X2 F                                                                  COMACPU   171
                                          =X3 T                                                                  COMACPU   172
                                          RJ =XMVE=                                                              COMACPU   173
                                          ENDM                                                                   COMACPU   174
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    49
        COMACPU - GENERAL CPU MACROS.                                 SUBR
  
                                        ***       SUBR - SUBROUTINE ENTRY/EXIT DEFINITION.                       COMACPU   176
                                        *                                                                        COMACPU   177
                                        * TAG     SUBR               DEFINE *EXIT.* AND *TAG_X*                  COMACPU   178
                                        * TAG     SUBR   0           SAME                                        COMACPU   179
                                        * TAG     SUBR   =           SAME, AND DECLARE *TAG* AS ENTRY POINT      COMACPU   180
                                        * TAG     SUBR   -           DEFINE *EXIT.* BUT NOT *TAG_X*              COMACPU   181
                                        * TAG     SUBR   LETTER      DEFINE *TAG_LETTER* BUT NOT *EXIT.*         COMACPU   182
                                        *                                                                        COMACPU   183
                                        *         ENTRY  *TAG* = SUBROUTINE ENTRY NAME                           COMACPU   184
                                        *                                                                        COMACPU   185
                                        *         EXIT   CODE GENERATED -                                        COMACPU   186
                                        *                TAG    EQ    *+1S17    ALWAYS                           COMACPU   187
                                        *                       ENTRY TAG       IF = SPECIFIED                   COMACPU   188
                                        *                EXIT.  SET   *         IF BLANK, 0, =, OR - SPECIFIED   COMACPU   189
                                        *                       NOREF EXIT.     IF BLANK, 0, =, OR - SPECIFIED   COMACPU   190
                                        *                TAG_X  EQU   *         IF BLANK, 0, OR = SPECIFIED      COMACPU   191
                                        *                       NOREF TAG_X     IF BLANK, 0, OR = SPECIFIED      COMACPU   192
                                        *                TAG_LETTER  EQU  *     IF LETTER SPECIFIED              COMACPU   193
                                                                                                                 COMACPU   194
                                                                                                                 COMACPU   195
                                                  PURGMAC SUBR                                                   COMACPU   196
                                                                                                                 COMACPU   197
                                                  MACRO  SUBR,T,A                                                COMACPU   198
                                        T  EQ *+1S17D                                                            COMACPU   199
                                        '?CPU#EN MICRO 1,,=T=                                                    COMACPU   200
                                          IFC NE, A  ,3                                                          COMACPU   201
                                          IFC LT, A 0 ,2                                                         COMACPU   202
                                        "'?CPU#EN"A EQU *                                                        COMACPU   203
                                          SKIP 7                                                                 COMACPU   204
                                          IFC NE, A - ,4                                                         COMACPU   205
                                          IFC EQ, A = ,1                                                         COMACPU   206
                                          ENTRY T                                                                COMACPU   207
                                        "'?CPU#EN"X EQU *                                                        COMACPU   208
                                          NOREF "'?CPU#EN"X                                                      COMACPU   209
                                        EXIT. SET *                                                              COMACPU   210
                                          NOREF EXIT.                                                            COMACPU   211
                                          ENDM                                                                   COMACPU   212
                                                                                                                 COMACPU   213
                                                                                                                 COMACPU   214
                                         COMACPU  ENDX                                                           COMACPU   215
                                                                                                                 FTN5TXT   333
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    50
        COMAMGM - MORE (LESS) GENERAL MACROS. 
  
             4                                    CTEXT  COMAMGM - MORE (LESS) GENERAL MACROS.                   COMAMGM     2
  
  
  
  
                                        **        COMAMGM - MORE (LESS) GENERAL MACROS.                          COMAMGM     4
                                        *                                                                        COMAMGM     5
                                        *         FTN 5 PROJECT.     77/06/29.                                   COMAMGM     6
                                        *                                                                        COMAMGM     7
                                        *         COPYRIGHT CONTROL DATA CORPORATION. 1977.                      COMAMGM     8
  
  
  
  
                                        ***       THE MORE (LESS) GENERAL MACROS PROVIDE THE USER WITH           COMAMGM    10
                                        *         MACROS WHICH ARE LESS COMMONLY USED THAN THOSE IN              COMAMGM    11
                                        *         COMDECK *COMACPU*.                                             COMAMGM    12
  
  
  
  
                                        **        BSSENT - DEFINE A BSS ENTRY POINT.                             COMAMGM    14
                                        *                                                                        COMAMGM    15
                                        * SYM     BSSENT AEXP                                                    COMAMGM    16
                                        *                                                                        COMAMGM    17
                                        *         ENTRY  *SYM* = ENTRY POINT NAME.                               COMAMGM    18
                                        *                *AEXP* = NUMBER OF WORDS TO RESERVE.                    COMAMGM    19
                                                                                                                 COMAMGM    20
                                                                                                                 COMAMGM    21
                                                  PURGMAC BSSENT                                                 COMAMGM    22
                                                                                                                 COMAMGM    23
                                                  MACRO  BSSENT,S,A                                              COMAMGM    24
                                         S BSS A                                                                 COMAMGM    25
                                          ENTRY S                                                                COMAMGM    26
                                          ENDM                                                                   COMAMGM    27
  
  
  
  
                                        **        BSZENT - DEFINE A BSSZ ENTRY POINT.                            COMAMGM    29
                                        *                                                                        COMAMGM    30
                                        * SYM     BSZENT AEXP                                                    COMAMGM    31
                                        *                                                                        COMAMGM    32
                                        *         ENTRY  *SYM* = ENTRY POINT NAME.                               COMAMGM    33
                                        *                *AEXP* = NUMBER OF ZERO WORDS TO RESERVE.               COMAMGM    34
                                                                                                                 COMAMGM    35
                                                                                                                 COMAMGM    36
                                                  PURGMAC BSZENT                                                 COMAMGM    37
                                                                                                                 COMAMGM    38
                                                  MACRO  BSZENT,S,A                                              COMAMGM    39
                                         S BSSZ A                                                                COMAMGM    40
                                          ENTRY S                                                                COMAMGM    41
                                          ENDM                                                                   COMAMGM    42
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    51
        COMAMGM - MORE (LESS) GENERAL MACROS.                         CALL
  
                                        **        CALL - CALL A ROUTINE.                                         COMAMGM    44
                                        *                                                                        COMAMGM    45
                                        *         GENERATES--    RJ  =X*ROUTINE*.                                COMAMGM    46
                                        *                                                                        COMAMGM    47
                                        *                                                                        COMAMGM    48
                                        *         CALL      ROUTINE                                              COMAMGM    49
                                        *                                                                        COMAMGM    50
                                        *         ENTRY  *ROUTINE* = NAME OF CALLED ROUTINE                      COMAMGM    51
                                        *                                                                        COMAMGM    52
                                        *         USES   NONE                                                    COMAMGM    53
                                                                                                                 COMAMGM    54
                                                                                                                 COMAMGM    55
                                                  PURGMAC CALL                                                   COMAMGM    56
                                                                                                                 COMAMGM    57
                                         CALL     MACRO  R                                                       COMAMGM    58
                                          RJ =X_R                                                                COMAMGM    59
                                          ENDM                                                                   COMAMGM    60
  
  
  
  
                                        **        BC - CONVERT CHARACTER COUNT TO BIT COUNT.                     COMAMGM    62
                                        *                                                                        COMAMGM    63
                                        *         COMPUTES --  BIT COUNT = 6 * CHARACTER COUNT                   COMAMGM    64
                                        *                                                                        COMAMGM    65
                                        *         BC       X.RESULT,X.OPERAND                                    COMAMGM    66
                                        *                                                                        COMAMGM    67
                                        *         ENTRY  *X.RESULT*   =  X-REG TO RECEIVE BIT COUNT              COMAMGM    68
                                        *                *X.OPERAND*  =  X-REG CONTAINING CHARACTER COUNT        COMAMGM    69
                                        *                                                                        COMAMGM    70
                                        *         USES   X.RESULT,X.OPERAND                                      COMAMGM    71
                                                                                                                 COMAMGM    72
                                                                                                                 COMAMGM    73
                                                  PURGDEF   BC,X,X                                               COMAMGM    74
                                                                                                                 COMAMGM    75
                                         BC,X,X   OPDEF  R,P                                                     COMAMGM    76
                                          LX.R X.P,B1                                                            COMAMGM    77
                                          LX.P 3                                                                 COMAMGM    78
                                          IX.R X.P-X.R                                                           COMAMGM    79
                                          ENDM                                                                   COMAMGM    80
  
  
  
  
                                        **        CONENT - DEFINE A CON ENTRY POINT.                             COMAMGM    82
                                        *                                                                        COMAMGM    83
                                        * SYM     CONENT EXP                                                     COMAMGM    84
                                        *                                                                        COMAMGM    85
                                        *         ENTRY  *SYM* = ENTRY POINT NAME.                               COMAMGM    86
                                        *                *EXP* = EXPRESSION VALUE.                               COMAMGM    87
                                                                                                                 COMAMGM    88
                                                                                                                 COMAMGM    89
                                                  PURGMAC CONENT                                                 COMAMGM    90
                                                                                                                 COMAMGM    91
                                                  MACRO  CONENT,S,E                                              COMAMGM    92
                                        S CON E                                                                  COMAMGM    93
                                          ENTRY S                                                                COMAMGM    94
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    52
        COMAMGM - MORE (LESS) GENERAL MACROS.                         CONENT
  
                                          ENDM                                                                   COMAMGM    95
  
  
  
  
                                        **        CW - CONVERT CHARACTER COUNT TO WORD COUNT.                    COMAMGM    97
                                        *                                                                        COMAMGM    98
                                        *         COMPUTES--  WORD COUNT = (CHAR COUNT + 9) / 10                 COMAMGM    99
                                        *                                                                        COMAMGM   100
                                        *                                                                        COMAMGM   101
                                        *         CW        X.RESULT,X.OPERAND                                   COMAMGM   102
                                        *                                                                        COMAMGM   103
                                        *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER WORD COUNT       COMAMGM   104
                                        *                *X.OPERAND* = X-REG CONTAINING INTEGER CHARACTER COUNT  COMAMGM   105
                                        *                                                                        COMAMGM   106
                                        *         USES   A.RESULT, X.RESULT, X.OPERAND                           COMAMGM   107
                                                                                                                 COMAMGM   108
                                                                                                                 COMAMGM   109
                                                  PURGDEF   CW,X,X                                               COMAMGM   110
                                                                                                                 COMAMGM   111
                                         CW,X,X   OPDEF  R,P                                                     COMAMGM   112
                                          SX.R 9D                                                                COMAMGM   113
                                          IX.P X.R+X.P                                                           COMAMGM   114
                                          SA.R =00000631463146314632B                                            COMAMGM   115
                                          FX.R X.P*X.R                                                           COMAMGM   116
                                          ENDM                                                                   COMAMGM   117
  
  
  
  
                                        **        EQUENT - DEFINE A EQU ENTRY POINT.                             COMAMGM   119
                                        *                                                                        COMAMGM   120
                                        * SYM     EQUENT EXP                                                     COMAMGM   121
                                        *                                                                        COMAMGM   122
                                        *                *SYM* = ENTRY POINT NAME.                               COMAMGM   123
                                        *                *EXP* = EVALUATABLE EXPRESSION.                         COMAMGM   124
                                                                                                                 COMAMGM   125
                                                                                                                 COMAMGM   126
                                                  PURGMAC EQUENT                                                 COMAMGM   127
                                                                                                                 COMAMGM   128
                                                  MACRO  EQUENT,S,E                                              COMAMGM   129
                                        S EQU E                                                                  COMAMGM   130
                                          ENTRY S                                                                COMAMGM   131
                                          ENDM                                                                   COMAMGM   132
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    53
        COMAMGM - MORE (LESS) GENERAL MACROS.                         EQUEXT
  
                                        **        EQUEXT - DEFINE AN EQU EXTERNAL.                               COMAMGM   134
                                        *                                                                        COMAMGM   135
                                        *                                                                        COMAMGM   136
                                        * SYM     EQUEXT EXT                                                     COMAMGM   137
                                        *                                                                        COMAMGM   138
                                        *         ENTRY  SYM = LOCATION FIELD FOR SYMBOL TO EQU.                 COMAMGM   139
                                        *                EXT = EXTERNAL SYMBOL TO EQUATE TO.                     COMAMGM   140
                                                                                                                 COMAMGM   141
                                                                                                                 COMAMGM   142
                                                  PURGMAC EQUEXT                                                 COMAMGM   143
                                                                                                                 COMAMGM   144
                                                  MACRO  EQUEXT,S,E                                              COMAMGM   145
                                          EXT E                                                                  COMAMGM   146
                                         S = E                                                                   COMAMGM   147
                                         EQUEXT   ENDM                                                           COMAMGM   148
  
  
  
  
                                        **        HXQ - SHIFT FIELD TO HIGH ORDER.                               COMAMGM   150
                                        *                                                                        COMAMGM   151
                                        *         THIS OPDEF WILL SHIFT A FIELD TO THE HIGH ORDER PART           COMAMGM   152
                                        *         OF A WORD.  THE FIELD MUST HAVE BEEN DECLARED BY               COMAMGM   153
                                        *         DESCRIBE/DEFINE.  IN PARTICULAR, THE SYMBOLS "FLD_L",          COMAMGM   154
                                        *         AND "FLD_P" MUST BE THE LENGTH AND LOW-BIT POSITION,           COMAMGM   155
                                        *         OF THE FIELD.                                                  COMAMGM   156
                                        *                                                                        COMAMGM   157
                                        *         HXI    FLD                                                     COMAMGM   158
                                        *                                                                        COMAMGM   159
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED.                             COMAMGM   160
                                        *                *FLD* = A FIELD DESCRIPTOR SYMBOL.                      COMAMGM   161
                                        *                                                                        COMAMGM   162
                                        *         FOR MAXIMUM UTILITY, THE *LX,Q* NULL-SHIFT SUPPRESSION         COMAMGM   163
                                        *         OPDEF SHOULD ALSO BE DEFINED.                                  COMAMGM   164
                                                                                                                 COMAMGM   165
                                                                                                                 COMAMGM   166
                                                  PURGDEF HXQ                                                    COMAMGM   167
                                                                                                                 COMAMGM   168
                                         HX,Q     OPDEF  I,FLD                                                   COMAMGM   169
                                          LX.I -FLD_L-FLD_P                                                      COMAMGM   170
                                          ENDM                                                                   COMAMGM   171
  
  
  
  
                                        **        ISUSE AND ISUSE$ - ISSUE USE PSEUDO.                           COMAMGM   173
                                        *                                                                        COMAMGM   174
                                        *                                                                        COMAMGM   175
                                        *         ISUSE  BLOCK       =   I.USE  BN=BLOCK                         COMAMGM   176
                                        *         ISUSE$ BLOCK       =  OC$USE  BN=BLOCK                         COMAMGM   177
                                        *                                                                        COMAMGM   178
                                        *         CALLS  WIN VIA WCODE.                                          COMAMGM   179
                                                                                                                 COMAMGM   180
                                                                                                                 COMAMGM   181
                                                  PURGMAC ISUSE                                                  COMAMGM   182
                                                                                                                 COMAMGM   183
                                         ISUSE    MACRO  BLOCK                                                   COMAMGM   184
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    54
        COMAMGM - MORE (LESS) GENERAL MACROS.                         ISUSE 
  
                                                  =X1    =XBN=BLOCK                                              COMAMGM   185
                                                  =X7    I.USE                                                   COMAMGM   186
                                                  LX1    PB.BIASP                                                COMAMGM   187
                                                  LX7    PB.GHIJP                                                COMAMGM   188
                                                  WCODE  X1+X7                                                   COMAMGM   189
                                         ISUSE    ENDM                                                           COMAMGM   190
                                                                                                                 COMAMGM   191
                                                                                                                 COMAMGM   192
                                                  PURGMAC ISUSE$                                                 COMAMGM   193
                                                                                                                 COMAMGM   194
                                         ISUSE$   MACRO  BLOCK                                                   COMAMGM   195
                                                  =X1    =XBN=BLOCK                                              COMAMGM   196
                                                  =X7    OC$USE                                                  COMAMGM   197
                                                  LX1    PB.BIASP                                                COMAMGM   198
                                                  LX7    PB.GHIJP                                                COMAMGM   199
                                                  WCODE  X1+X7                                                   COMAMGM   200
                                         ISUSE$   ENDM                                                           COMAMGM   201
  
  
  
  
                                        ***       LDBIT - SET ONE BIT IN A REGISTER.                             COMAMGM   203
                                        *                                                                        COMAMGM   204
                                        *         LDBIT  REG,BIT                                                 COMAMGM   205
                                        *                                                                        COMAMGM   206
                                        *         IF (BIT) IS .GT. 17, THEN (REG) MUST BE AN X-REGISTER.         COMAMGM   207
                                                                                                                 COMAMGM   208
                                                                                                                 COMAMGM   209
                                         LDBIT    MACRO  G,V                                                     COMAMGM   210
                                          IF    DEF,V,6                                                          COMAMGM   211
                                          IFGT  V,1,2                                                            COMAMGM   212
                                          IFGE  *P,30,4                                                          COMAMGM   213
                                          IFLT  V,17,3                                                           COMAMGM   214
                                        A DECMIC V                                                               COMAMGM   215
                                          =G    1S"A"                                                            COMAMGM   216
                                          SKIP  2                                                                COMAMGM   217
                                          M_G   1                                                                COMAMGM   218
                                          L_G   1+V                                                              COMAMGM   219
                                          ENDM                                                                   COMAMGM   220
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    55
        COMAMGM - MORE (LESS) GENERAL MACROS.                         LDX 
  
                                        ***       LDX - LOAD A REGISTER WITH A VALUE.                            COMAMGM   222
                                        *                                                                        COMAMGM   223
                                        *         LDX    REG,VAL                                                 COMAMGM   224
                                        *                                                                        COMAMGM   225
                                        *         IF (VAL) IS .GE. 4S15, THEN (REG) MUST BE ONE OF [X1 .. X5],   COMAMGM   226
                                        *         AND THE CORRESPONDING A-REGISTER WILL BE USED TO LOAD A        COMAMGM   227
                                        *         LITERAL.                                                       COMAMGM   228
                                                                                                                 COMAMGM   229
                                                                                                                 COMAMGM   230
                                         LDX      MACRO  REG,VAL                                                 COMAMGM   231
                                           IFEQ  VAL/1S17,,2                                                     COMAMGM   232
                                           =REG  VAL                                                             COMAMGM   233
                                        .1 SKIP                                                                  COMAMGM   234
                                        *                            LOAD LARGE VALUE VIA A LITERAL.             COMAMGM   235
                                        T  MICRO 1,1,.REG.                                                       COMAMGM   236
                                           IFC   NE, X "T" ,1                                                    COMAMGM   237
                                           ERR  (REG) WONT HOLD (VAL)      "SEQUENCE"                            COMAMGM   238
                                        *                                                                        COMAMGM   239
                                        N  MICRO 2,, REG                                                         COMAMGM   240
                                           IFNE  "N",0,1                                                         COMAMGM   241
                                           IFGE  "N",6,1                                                         COMAMGM   242
                                           ERR   (REG) MUST BE IN [X1 .. X5]          "SEQUENCE"                 COMAMGM   243
                                        *                                                                        COMAMGM   244
                                           SA"N"  =VAL                                                           COMAMGM   245
                                        .1 ENDIF                                                                 COMAMGM   246
                                           ENDM                                                                  COMAMGM   247
  
  
  
  
                                        **        LXQ - REDEFINE THE LEFT SHIFT INSTRUCTION.                     COMAMGM   249
                                        *                                                                        COMAMGM   250
                                        *         THIS OPDEF REDEFINES THE LEFT SHIFT INSTRUCTION TO SUPPRESS    COMAMGM   251
                                        *         CODE GENERATION WHEN THE SHIFT COUNT IS 0, +60D OR -60D.       COMAMGM   252
                                        *         THE INSTRUCTION IS OTHERWISE UNCHANGED.                        COMAMGM   253
                                        *                                                                        COMAMGM   254
                                        *         LXI    JK                                                      COMAMGM   255
                                        *                                                                        COMAMGM   256
                                        *         ENTRY  *XI* = X-REG TO BE SHIFTED                              COMAMGM   257
                                        *                *JK* = SHIFT COUNT EXPRESSION                           COMAMGM   258
                                        *                                                                        COMAMGM   259
                                        *         USES   XI                                                      COMAMGM   260
                                                                                                                 COMAMGM   261
                                                                                                                 COMAMGM   262
                                                  PURGDEF   ^XQ                                                  COMAMGM   263
                                                  PURGDEF   LXQ                                                  COMAMGM   264
                                         ^XQ      CPOP      0,200B,100B                                          COMAMGM   265
                                                                                                                 COMAMGM   266
                                         LXQ      OPDEF     I,JK                                                 COMAMGM   267
                                          IFNE JK,0,2                                                            COMAMGM   268
                                          IFNE JK_&60D,0,1                                                       COMAMGM   269
                                          ^X.I JK                                                                COMAMGM   270
                                          ENDM                                                                   COMAMGM   271
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    56
        COMAMGM - MORE (LESS) GENERAL MACROS.                         MOVEB 
  
                                        **        MOVEB -  MOVE BIT STRING.                                      COMAMGM   273
                                        *                                                                        COMAMGM   274
                                        *         MOVEB  BITCOUNT,SFWA,SFB,DFWA,DFB                              COMAMGM   275
                                        *                                                                        COMAMGM   276
                                        *         ENTRY  *BITCOUNT* = BIT COUNT OF STRING                        COMAMGM   277
                                        *                *SFWA* = SOURCE FIRST WORD ADDRESS                      COMAMGM   278
                                        *                *SFB* = SOURCE FIRST BIT (0-9)                          COMAMGM   279
                                        *                *DFWA* = DESTINATION FIRST WORD ADDRESS                 COMAMGM   280
                                        *                *DFB* = DESTINATION FIRST BIT (0-9)                     COMAMGM   281
                                        *                                                                        COMAMGM   282
                                        *         USES   X0,X2,X4,B2,B4                                          COMAMGM   283
                                        *                                                                        COMAMGM   284
                                        *         CALLS  MNS=        (CPU.MNX)                                   COMAMGM   285
                                                                                                                 COMAMGM   286
                                                                                                                 COMAMGM   287
                                                  PURGMAC MOVEB                                                  COMAMGM   288
                                         MOVEB    MACRO  B,SFA,SFB,DFA,DFB                                       COMAMGM   289
                                          =X0 B                                                                  COMAMGM   290
                                          =X2 SFA                                                                COMAMGM   291
                                          =X4 DFA                                                                COMAMGM   292
                                          =B2 SFB                                                                COMAMGM   293
                                          =B4 DFB                                                                COMAMGM   294
                                          RJ =XMNS=                                                              COMAMGM   295
                                          ENDM                                                                   COMAMGM   296
  
  
  
  
                                        **        MXX+X  - SELECT GREATER (MAXIMUM FUNCTION) OF TWO INTEGERS.    COMAMGM   298
                                        *                                                                        COMAMGM   299
                                        *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES  COMAMGM   300
                                        *         THE ALGEBRAICALLY GREATER VALUE IN *XI*.                       COMAMGM   301
                                        *                                                                        COMAMGM   302
                                        *         MXI    XJ+XK                                                   COMAMGM   303
                                        *                                                                        COMAMGM   304
                                        *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*             COMAMGM   305
                                        *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED   COMAMGM   306
                                        *                                                                        COMAMGM   307
                                        *         EXIT   (X.LARGER) = 0                                          COMAMGM   308
                                        *                (X.SMALLER) = UNCHANGED                                 COMAMGM   309
                                        *         IF ON ENTRY (XJ)=(XK),                                         COMAMGM   310
                                        *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                      COMAMGM   311
                                        *                (XI) = MAX(XJ,XK)                                       COMAMGM   312
                                        *                                                                        COMAMGM   313
                                        *         USES   XI, XJ, XK                                              COMAMGM   314
                                                                                                                 COMAMGM   315
                                                                                                                 COMAMGM   316
                                                  PURGDEF   MXX+X                                                COMAMGM   317
                                                                                                                 COMAMGM   318
                                         MXX+X    OPDEF  I,J,K                                                   COMAMGM   319
                                          IX.I X.J-X.K                                                           COMAMGM   320
                                          AX.I -1                                                                COMAMGM   321
                                          BX.J -X.I*X.J                                                          COMAMGM   322
                                          BX.K X.I*X.K                                                           COMAMGM   323
                                          IX.I X.J+X.K                                                           COMAMGM   324
                                         MXX+X    ENDM                                                           COMAMGM   325
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    57
        COMAMGM - MORE (LESS) GENERAL MACROS.                         MXX-X 
  
                                        **        MXX-X  - SELECT LESSER (MINIMUM FUNCTION) OF TWO INTEGERS.     COMAMGM   327
                                        *                                                                        COMAMGM   328
                                        *         THIS OPDEF COMPARES TWO INTEGERS IN *XJ* AND *XK*, AND PLACES  COMAMGM   329
                                        *         THE ALGEBRAICALLY LESSER VALUE IN *XI*.                        COMAMGM   330
                                        *                                                                        COMAMGM   331
                                        *         MXI    XJ-XK                                                   COMAMGM   332
                                        *                                                                        COMAMGM   333
                                        *         ENTRY  *XI* = RESULT X-REG, CANNOT BE *XJ* OR *XK*             COMAMGM   334
                                        *                *XJ*,*XK* = X-REGS CONTAINING INTEGERS TO BE COMPARED   COMAMGM   335
                                        *                                                                        COMAMGM   336
                                        *         EXIT   (X.LARGER) = 0                                          COMAMGM   337
                                        *                (X.SMALLER) = UNCHANGED                                 COMAMGM   338
                                        *                IF ON ENTRY (XJ)=(XK)                                   COMAMGM   339
                                        *            THEN ON EXIT (XJ)=0 AND (XK)=UNCHANGED                      COMAMGM   340
                                        *                XI = MIN(XJ,XK)                                         COMAMGM   341
                                        *                                                                        COMAMGM   342
                                        *         USES   XI, XJ, XK                                              COMAMGM   343
                                                                                                                 COMAMGM   344
                                                                                                                 COMAMGM   345
                                                  PURGDEF   MXX-X                                                COMAMGM   346
                                                                                                                 COMAMGM   347
                                         MXX-X    OPDEF  I,J,K                                                   COMAMGM   348
                                          IX.I X.J-X.K                                                           COMAMGM   349
                                          AX.I  -1                                                               COMAMGM   350
                                          BX.J X.I*X.J                                                           COMAMGM   351
                                          BX.K -X.I*X.K                                                          COMAMGM   352
                                          IX.I X.J+X.K                                                           COMAMGM   353
                                         MXX-X    ENDM                                                           COMAMGM   354
  
  
  
  
                                        **        RMT= - MACRO TO FORCE MICRO EVALUATION FOR REMOTES.            COMAMGM   356
                                        *                                                                        COMAMGM   357
                                        * BLOCK   RMT=   (S)                                                     COMAMGM   358
                                        *                                                                        COMAMGM   359
                                        *         *BLOCK* IS THE RMT BLOCK LABEL, IF ANY.                        COMAMGM   360
                                        *         (S) IS THE STATEMENT TO BE ENTERED INTO THAT RMT BLOCK.        COMAMGM   361
                                                                                                                 COMAMGM   362
                                                                                                                 COMAMGM   363
                                                  MACRO  RMT=,BLK,S                                              COMAMGM   364
                                         BLK      RMT                                                            COMAMGM   365
                                         S                                                                       COMAMGM   366
                                         BLK      RMT                                                            COMAMGM   367
                                         RMT=     ENDM                                                           COMAMGM   368
  
  
  
  
                                        **        RPVDEF - DEFINE FWA OF ROUTINE FOR REPRIEVE UTILITY.           COMAMGM   370
                                        *                                                                        COMAMGM   371
                                        *         DEFINES THE FIRST WORD ADDRESS OF A ROUTINE AND DECLARES       COMAMGM   372
                                        *         IT AS AN ENTRY POINT, FOR FORMING THE ROUTINE NAME/ADDRESS     COMAMGM   373
                                        *         TABLES USED BY THE UTILITY ROUTINE *RPV=*.                     COMAMGM   374
                                        *         FOR PROPER OPERATION, THIS MACRO MUST BE CALLED AT THE         COMAMGM   375
                                        *         BEGINNING OF EACH ROUTINE, BEFORE ANY OTHER INSTRUCTION OR     COMAMGM   376
                                        *         PSEUDO-OP THAT WOULD CAUSE THE LOCATION COUNTER TO BE          COMAMGM   377
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    58
        COMAMGM - MORE (LESS) GENERAL MACROS.                         RPVDEF
  
                                        *         ADVANCED BY COMPASS.                                           COMAMGM   378
                                        *                                                                        COMAMGM   379
                                        * RNAM    RPVDEF ENAM                                                    COMAMGM   380
                                        *                                                                        COMAMGM   381
                                        *         ENTRY  RNAM = ROUTINE NAME                                     COMAMGM   382
                                        *                ENAM = ENTRY POINT WILL BE B=*ENAM*.  IF *ENAM* IS      COMAMGM   383
                                        *                       NULL, THE FIRST 5 CHARACTERS OF *RNAM* ARE       COMAMGM   384
                                        *                       APPENDED TO *B=*.                                COMAMGM   385
                                                                                                                 COMAMGM   386
                                                                                                                 COMAMGM   387
                                                  PURGMAC RPVDEF                                                 COMAMGM   388
                                                                                                                 COMAMGM   389
                                                  MACRO  RPVDEF,R,E                                              COMAMGM   390
                                          IFC EQ,/E//,2                                                          COMAMGM   391
                                         '?RPV=A MICRO 1,7,/B=R     /                                            COMAMGM   392
                                          SKIP 1                                                                 COMAMGM   393
                                         '?RPV=A MICRO 1,7,/B=E     /                                            COMAMGM   394
                                          NOREF "'?RPV=A"                                                        COMAMGM   395
                                          ENTRY "'?RPV=A"                                                        COMAMGM   396
                                         "'?RPV=A" BSS 0                                                         COMAMGM   397
                                          ENDM                                                                   COMAMGM   398
  
  
  
  
                                        **        RPVFWA - DEFINE ENTRY FOR *RPV* NAME/ADDRESS TABLE.            COMAMGM   400
                                        *                                                                        COMAMGM   401
                                        *         RPVFWA NAM,FWA                                                 COMAMGM   402
                                        *                                                                        COMAMGM   403
                                        *         ENTRY  NAM = ROUTINE NAME                                      COMAMGM   404
                                        *                FWA = ROUTINE FWA.  IF NULL, *B=XXXXX* IS USED, WHERE   COMAMGM   405
                                        *                      XXXXX ARE THE FIRST 5 CHARACTERS OF *NAM*.        COMAMGM   406
                                                                                                                 COMAMGM   407
                                                                                                                 COMAMGM   408
                                                  PURGMAC RPVFWA                                                 COMAMGM   409
                                                                                                                 COMAMGM   410
                                         RPVFWA   MACRO  NAM,FWA                                                 COMAMGM   411
                                          VFD 42/0L_NAM                                                          COMAMGM   412
                                          IFC EQ,/FWA//,4                                                        COMAMGM   413
                                        '?RPV=A MICRO 1,5,/NAM     /                                             COMAMGM   414
                                          VFD 18/=XB="'?RPV=A"                                                   COMAMGM   415
                                          NOREF B="'?RPV=A"                                                      COMAMGM   416
                                          SKIP 1                                                                 COMAMGM   417
                                          VFD 18/FWA                                                             COMAMGM   418
                                          ENDM                                                                   COMAMGM   419
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    59
        COMAMGM - MORE (LESS) GENERAL MACROS.                         RPVON 
  
                                        **        RPVON - TURN ON REPRIEVE PROCESSING.                           COMAMGM   421
                                        *                                                                        COMAMGM   422
                                        *         RPVON  FLAGS                                                   COMAMGM   423
                                        *                                                                        COMAMGM   424
                                        *         ENTRY  FLAGS = REPRIEVE FLAGS AS SPECIFIED IN THE NOS/BE       COMAMGM   425
                                        *                MANUAL.  NO B SUFFIX SHOULD BE USED.  IF NULL, 37B IS   COMAMGM   426
                                        *                ASSUMED.                                                COMAMGM   427
                                                                                                                 COMAMGM   428
                                                                                                                 COMAMGM   429
                                         RPVON    MACRO  FLAGS                                                   COMAMGM   430
                                          MX1 59                                                                 COMAMGM   431
                                          SA2 =XRPV=                                                             COMAMGM   432
                                          BX6 X1*X2                                                              COMAMGM   433
                                          SA6 A2+                                                                COMAMGM   434
                                          IFNE .OS,2,5                                                           COMAMGM   435
                                         '?RPV=A SET 37B                                                         COMAMGM   436
                                          IFC  NE,/FLAGS//,1                                                     COMAMGM   437
                                         '?RPV=A SET FLAGS_B                                                     COMAMGM   438
                                          SYSTEM RPV,R,=XRPV=,'?RPV=A*1S6                                        COMAMGM   439
                                          SKIP 1                                                                 COMAMGM   440
                                          REPRIEVE =XRPV=                                                        COMAMGM   441
                                          ENDM                                                                   COMAMGM   442
  
  
  
  
                                        **        RPVOFF - TURN OFF REPRIEVE PROCESSING.                         COMAMGM   444
                                        *                                                                        COMAMGM   445
                                        *         RPVOFF CELL                                                    COMAMGM   446
                                        *                                                                        COMAMGM   447
                                        *         CELL   IF SPECIFIED, A CELL TO USE FOR SYSTEM CALL,            COMAMGM   448
                                        *                  OTHERWISE, WORD 2 OF RPV EXCHANGE AREA IS USED.       COMAMGM   449
                                                                                                                 COMAMGM   450
                                                                                                                 COMAMGM   451
                                         RPVOFF   MACRO  CELL                                                    COMAMGM   452
                                          MX7 0                                                                  COMAMGM   453
                                          SA7 CELL  =XRPV=+1                                                     COMAMGM   454
                                          IFNE .OS,2,2                                                           COMAMGM   455
                                          SYSTEM RPV,R,A7                                                        COMAMGM   456
                                          SKIP 1                                                                 COMAMGM   457
                                                  REPRIEVE   CELL                                                FC5A158A    9
                                          ENDM                                                                   COMAMGM   459
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    60
        COMAMGM - MORE (LESS) GENERAL MACROS.                         SBIT
  
                                        **        SBIT - MACRO TO SHIFT A BIT INTO SIGN POSITION.                COMAMGM   461
                                        *                                                                        COMAMGM   462
                                        *         SBIT   XN,WHICH/OFFSET                                         COMAMGM   463
                                        *                                                                        COMAMGM   464
                                        *         SHIFTS *XN* LEFT CIRCULAR UNTIL BIT 2**WHICH IS IN SIGN BIT,   COMAMGM   465
                                        *                POSITION.  *WHICH* MAY BE PRECEDED BY A MINUS SIGN.     COMAMGM   466
                                        *                IF THE REGISTER HAS ALREADY BEEN SHIFTED, THEN          COMAMGM   467
                                        *                BIT 2**OFFSET IS THE BIT NOW AT 2**59.                  COMAMGM   468
                                        *                                                                        COMAMGM   469
                                        *         TO RESTORE A REGISTER AFTER USING SBIT, DO A                   COMAMGM   470
                                        *         --     LXN    WHICH+1    --                                    COMAMGM   471
                                        *                                                                        COMAMGM   472
                                        *         OF COURSE, THE MACRO MAY BE USED TO POSITION TO ANY POSITION,  COMAMGM   473
                                        *                (NOT JUST 2**59).  TO POSITION TO BIT *OTHER*,          COMAMGM   474
                                        *         --     SBIT   XN,WHICH/OFFSET+A    --,                         COMAMGM   475
                                        *                               WHERE *A* = MOD (OTHER+1,60).            COMAMGM   476
                                        *                IN THIS CASE, HOWEVER, THE CODER MUST INSURE THAT THE   COMAMGM   477
                                        *                FINAL SHIFT COUNT IS IN THE RANGE COMPASS WILL ASSEMBLE COMAMGM   478
                                        *                PROPERLY (I.E...  -60 .LE. COUNT .LE. 60).              COMAMGM   479
                                        *                                                                        COMAMGM   480
                                        *         IF THE FINAL SHIFT COUNT IS ZERO (AND PREVIOUSLY DEFINED),     COMAMGM   481
                                        *                NO INSTRUCTION WILL BE GENERATED.                       COMAMGM   482
                                        *                                                                        COMAMGM   483
                                        *         NOTE THAT *IFBIT* MAKES ASSUMPTIONS ABOUT SOME OF THE SCRATCH  COMAMGM   484
                                        *                SYMBOLS USED BY *SBIT* -- USE CAUTION.                  COMAMGM   485
                                                                                                                 COMAMGM   486
                                                                                                                 COMAMGM   487
                                         SBIT     MACRO  XN,WHICH                                                COMAMGM   488
                                         A        MICRO  1,1, WHICH                                              COMAMGM   489
                                         B        SET    1                                                       COMAMGM   490
                                                  IFC    EQ, - "A" ,1                                            COMAMGM   491
                                         B        SET    2                                                       COMAMGM   492
                                         C        MICRO  B,,/WHICH/                                              COMAMGM   493
                                         D        MICCNT C                                                       COMAMGM   494
                                         E        MICRO  B+D+1,, WHICH                                           COMAMGM   495
                                                  IFC    EQ,/"E"//,1                                             COMAMGM   496
                                         E        MICRO  1,,/59/                                                 COMAMGM   497
                                                  L_XN   "E"-"C"                                                 COMAMGM   498
                                         SBIT     ENDM                                                           COMAMGM   499
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    61
        COMAMGM - MORE (LESS) GENERAL MACROS.                         SETMEM
  
                                        **        SETMEM - SET BLOCK OF MEMORY TO A GIVEN VALUE.                 COMAMGM   501
                                        *                                                                        COMAMGM   502
                                        *         SETMEM FWA,LEN,VAL                                             COMAMGM   503
                                        *                                                                        COMAMGM   504
                                        *         ENTRY  *FWA* = BLOCK ADDRESS                                   COMAMGM   505
                                        *                *LEN* = BLOCK LENGTH (IF NULL LEN=1)                    COMAMGM   506
                                        *                *VAL* = VALUE TO SET (IF NULL VAL=0)                    COMAMGM   507
                                        *                                                                        COMAMGM   508
                                        *         EXIT   (B1) = 1                                                COMAMGM   509
                                        *                                                                        COMAMGM   510
                                        *         USES   X6, A6     (LEN .GT. 0)                                 COMAMGM   511
                                        *                X1         (LEN .GT. 2)                                 COMAMGM   512
                                        *                X2, X7, A7 (LEN .GE. 60, OR NOT ABS)                    COMAMGM   513
                                        *                                                                        COMAMGM   514
                                        *         CALLS  SBM=       (LEN .GT. 60, OR NOT ABS)                    COMAMGM   515
                                                                                                                 COMAMGM   516
                                                                                                                 COMAMGM   517
                                                  PURGMAC SETMEM                                                 COMAMGM   518
                                                                                                                 COMAMGM   519
                                         SETMEM   MACRO  F,L,V                                                   COMAMGM   520
                                          IF -DEF,B1=1,1                                                         COMAMGM   521
                                          SB1 1                                                                  COMAMGM   522
                                        *                                                                        COMAMGM   523
                                        .1 IFC NE, L                                                             COMAMGM   524
                                        .2 IF DEF,L                                                              COMAMGM   525
                                        .2 IF ABS,L                                                              COMAMGM   526
                                        .2 IF -REG,L                                                             COMAMGM   527
                                        .2 IFLT L,60                                                             COMAMGM   528
                                          IFGT L,0,2                                                             COMAMGM   529
                                          =X6 V                                                                  COMAMGM   530
                                          SA6 F                                                                  COMAMGM   531
                                          IFEQ L,2,1                                                             COMAMGM   532
                                          SA6 A6+B1                                                              COMAMGM   533
                                          IFGT L,2,4                                                             COMAMGM   534
                                          MX1 L-1                                                                COMAMGM   535
                                        + LX1 1                                                                  COMAMGM   536
                                          SA6 A6+B1                                                              COMAMGM   537
                                          MI X1,*                                                                COMAMGM   538
                                        .2 ELSE                                                                  COMAMGM   539
                                          =X6 V                                                                  COMAMGM   540
                                          SA6 F                                                                  COMAMGM   541
                                          =X1 L                                                                  COMAMGM   542
                                          RJ =XSBM=                                                              COMAMGM   543
                                        .2 ENDIF                                                                 COMAMGM   544
                                        .1 ELSE                                                                  COMAMGM   545
                                          =X6 V                                                                  COMAMGM   546
                                          SA6 F                                                                  COMAMGM   547
                                        .1 ENDIF                                                                 COMAMGM   548
                                          ENDM                                                                   COMAMGM   549
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    62
        COMAMGM - MORE (LESS) GENERAL MACROS.                         WC
  
                                        **        WC - CONVERT WORD COUNT TO CHARACTER COUNT.                    COMAMGM   551
                                        *                                                                        COMAMGM   552
                                        *         COMPUTES-- CHAR COUNT = WORD COUNT * 10                        COMAMGM   553
                                        *                                                                        COMAMGM   554
                                        *                                                                        COMAMGM   555
                                        *         WC        X.RESULT,X.OPERAND                                   COMAMGM   556
                                        *                                                                        COMAMGM   557
                                        *         ENTRY  *X.RESULT*  = X-REG TO RECEIVE INTEGER CHARACTER COUNT  COMAMGM   558
                                        *                *X.OPERAND* = X-REG CONTAINING INTEGER WORD COUNT       COMAMGM   559
                                        *                                                                        COMAMGM   560
                                        *         USES   X.OPERAND, X.RESULT                                     COMAMGM   561
                                                                                                                 COMAMGM   562
                                                                                                                 COMAMGM   563
                                                  PURGDEF   WC,X,X                                               COMAMGM   564
                                                                                                                 COMAMGM   565
                                         WC,X,X   OPDEF  R,O                                                     COMAMGM   566
                                          IX.R X.O+X.O                                                           COMAMGM   567
                                          LX.O 3                                                                 COMAMGM   568
                                          IX.R X.O+X.R                                                           COMAMGM   569
                                          ENDM                                                                   COMAMGM   570
                                                                                                                 COMAMGM   571
  
  
  
  
                                        **        WXX - CONVERT CHARACTER COUNT TO WORD COUNT AND REMAINING      COMAMGM   573
                                        *                CHARACTER COUNT.                                        COMAMGM   574
                                        *         COMPUTES --  WORD COUNT = CHAR COUNT / 10                      COMAMGM   575
                                        *                      REMIN CHAR COUNT = CHAR COUNT - WORD COUNT * 10   COMAMGM   576
                                        *                                                                        COMAMGM   577
                                        *         WX.WORDCNT         X.CHARCNT,X.REMAINCNT                       COMAMGM   578
                                        *                                                                        COMAMGM   579
                                        *         ENTRY  *X.C* = X-REG TO RECEIVE CHARACTER COUNT                COMAMGM   580
                                        *         EXIT   *X.W* = X-REG CONTAINING INTEGER WORD COUNT             COMAMGM   581
                                        *                *X.R* = X-REG CONTAINING REMAINING CHAR COUNT           COMAMGM   582
                                        *         USES   *X.C*, *X.W*, *X.R*, *A.W*                              COMAMGM   583
                                                                                                                 COMAMGM   584
                                                                                                                 COMAMGM   585
                                                  PURGDEF            WXX,X                                       COMAMGM   586
                                                                                                                 COMAMGM   587
                                         WXX,X  OPDEF    W,C,R                                                   COMAMGM   588
                                          LOCAL TAG                                                              COMAMGM   589
                                          SA.W =00000631463146314632B                                            COMAMGM   590
                                          FX.W X.C*X.W                                                           COMAMGM   591
                                          IX.R X.W+X.W                                                           COMAMGM   592
                                          IX.C X.C-X.R                                                           COMAMGM   593
                                          LX.R 2                                                                 COMAMGM   594
                                          IX.R X.C-X.R                                                           COMAMGM   595
                                          PL X.R,TAG                                                             COMAMGM   596
                                          =X.C 1                                                                 COMAMGM   597
                                          IX.W X.W-X.C                                                           COMAMGM   598
                                          SX.R X.R+10                                                            COMAMGM   599
                                        TAG BSS 0                                                                COMAMGM   600
                                          ENDM                                                                   COMAMGM   601
                                                                                                                 COMAMGM   602
                                         COMAMGM  ENDX                                                           COMAMGM   603
                                                                                                                 FTN5TXT   335
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    63
        COMPILER-SPECIFIC MACROS.                                     ACTTAB
  
                                        **        ACTTAB - ACTIVATE A TABLE.                                     FC5A128    27
                                        *                                                                        FC5A128    28
                                        *                                                                        FC5A128    29
                                        *         ACTTAB TAB,PHASE                                               FC5A128    30
                                        *         (TAB) = TABLE TO BE ACTIVATED.                                 FC5A128    31
                                        *         (PHASE) = PHASE WHERE TABLES ARE TO BE ACTIVATED.              FC5A128    32
                                        *                                                                        FC5A128    33
                                        *         USES   A2,A7                                                   FC5A128    34
                                        *         USES   X2,X3,X7                                                FC5A128    35
                                        *         USES   B7                                                      FC5A128    36
                                        *                                                                        FC5A128    37
                                                                                                                 FC5A128    38
                                         ACTTAB   MACRO  TAB,PHASE                                               FC5A128    39
                                                  SX3    B0                                                      FC5A128    40
                                                  IRP    TAB                                                     FC5A128    41
                                                  SA2    =XT.TAB                                                 FC5A128    42
                                                  SB7    =XBASES                                                 FC5A128    43
                                                  SX2    B1                                                      FC5A128    44
                                                  SB7    A2-B7                                                   FC5A128    45
                                                  LX2    B7,X2                                                   FC5A128    46
                                                  BX3    X2+X3                                                   FC5A128    47
                                                  IRP                                                            FC5A128    48
                                                  IRP    PHASE                                                   FC5A128    49
                                                  SA2    =XTV=_PHASE                                             FC5A128    50
                                                  BX7    X3+X2                                                   FC5A128    51
                                                  SA7    A2                                                      FC5A128    52
                                                  IRP                                                            FC5A128    53
                                         ACTTAB   ENDM                                                           FC5A128    54
  
  
  
  
                                        **        ADDREF - ADD REFERENCE TO TABLE.                               FTN5TXT   338
                                        *                                                                        FTN5TXT   339
                                        *                                                                        FTN5TXT   340
                                        *         ADDREF TAG,TYPE,RETURN                                         FTN5TXT   341
                                        *         (TAG) = X-REGISTER CONTAINING THE TAG (X6)                     FTN5TXT   342
                                        *                18/TAG,42/IGNORED                                       FTN5TXT   343
                                        *                                                                        FTN5TXT   344
                                        *         (TYPE) = TYPE OF REFERENCE (X1).                               FTN5TXT   345
                                        *                1R FORMAT CHARACTERS.  CALL SHOULD USE ONE OF THE       FTN5TXT   346
                                        *                CR.XXX SYMBOLS.                                         FTN5TXT   347
                                        *                                                                        FTN5TXT   348
                                        *         (RETURN) = RETURN ADDRESS (B7).                                FTN5TXT   349
                                        *                *+1 IF OMITTED.                                         FTN5TXT   350
                                                                                                                 FTN5TXT   351
                                                                                                                 FTN5TXT   352
                                         ADDREF   MACRO  TAG,TYPE,RETURN                                         FTN5TXT   353
                                                  =X6    TAG                                                     FTN5TXT   354
                                                  =X1    TYPE                                                    FTN5TXT   355
                                                  =B7    RETURN  *+2-*P/60D                                      FTN5TXT   356
                                                  EQ     =XERT                                                   FTN5TXT   357
                                         ADDREF   ENDM                                                           FTN5TXT   358
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    64
        COMPILER-SPECIFIC MACROS.                                     ADSYM 
  
                                        **        ADSYM - ADD ENTRY TO SYMBOL TABLE.                             FTN5TXT   360
                                        *                                                                        FTN5TXT   361
                                        *         ADSYM  T.SYM                                                   FTN5TXT   362
                                        *                                                                        FTN5TXT   363
                                        *         ENTRY  (X6) =  42/ SYMBOL TO ENTER,  12/ 0                     FTN5TXT   364
                                        *                (X7) =  SECOND WORD OF ENTRY                            FTN5TXT   365
                                        *                (T.SYM) = ADDRESS OF T.SYM REQUIRED                     FTN5TXT   366
                                        *         CALLS  ESY                                                     FTN5TXT   367
                                                                                                                 FTN5TXT   368
                                                                                                                 FTN5TXT   369
                                         ADSYM    MACRO  TABL                                                    FTN5TXT   370
                                                  =A1    TABL                                                    FTN5TXT   371
                                                  RJ     =XESY                                                   FTN5TXT   372
                                         ADSYM    ENDM                                                           FTN5TXT   373
  
  
  
  
                                        **        ADDWD- ADD WORD TO MANAGED TABLE                               FTN5TXT   375
                                        *                                                                        FTN5TXT   376
                                        *         ADDWD  TNAM                                                    FTN5TXT   377
                                        *                                                                        FTN5TXT   378
                                        *         ENTRY  (X6) = WORD TO ADD.                                     FTN5TXT   379
                                        *         CALLS  ADW.                                                    FTN5TXT   380
                                                                                                                 FTN5TXT   381
                                                                                                                 FTN5TXT   382
                                         ADDWD    MACRO  TNAM                                                    FTN5TXT   383
                                                  =A1    TNAM                                                    FTN5TXT   384
                                                  RJ     =XADW                                                   FTN5TXT   385
                                         ADDWD    ENDM                                                           FTN5TXT   386
  
  
  
  
                                        **        ALLOC - ALLOCATE ROOM FOR TABLE.                               FTN5TXT   388
                                        *                                                                        FTN5TXT   389
                                        *                                                                        FTN5TXT   390
                                        *         ALLOC  TNAM,ROOM         SCM TABLE                             FTN5TXT   391
                                        *         ALLOX  TNAM,ROOM         LCM TABLE                             FTN5TXT   392
                                        *                                                                        FTN5TXT   393
                                        *         *TNAM* _ ORIGIN WORD OF TABLE TO BE ALLOCATED.                 FTN5TXT   394
                                        *         *ROOM* = NUMBER OF WORDS TO EXPAND (OR SHRINK, IF NEGATIVE).   FTN5TXT   395
                                                                                                                 FTN5TXT   396
                                                                                                                 FTN5TXT   397
                                         ALLOC    MACRO  T,R                                                     FTN5TXT   398
                                                  =A1    T                                                       FTN5TXT   399
                                                  =X0    R                                                       FTN5TXT   400
                                                  RJ     =XALC                                                   FTN5TXT   401
                                         ALLOC    ENDM                                                           FTN5TXT   402
                                                                                                                 FTN5TXT   403
                                         ALLOX    MACRO  T,R                                                     FTN5TXT   404
                                                  =A1    T                                                       FTN5TXT   405
                                                  =X0    R                                                       FTN5TXT   406
                                                  RJ     =XALE                                                   FTN5TXT   407
                                         ALLOX    ENDM                                                           FTN5TXT   408
                                                                                                                 FC5A128    55
                                        **        INATAB - INACTIVATE A TABLE.                                   FC5A128    56
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    65
        COMPILER-SPECIFIC MACROS.                                     ALLOC 
  
                                        *                                                                        FC5A128    57
                                        *                                                                        FC5A128    58
                                        *         INATAB TAB,PHASE                                               FC5A128    59
                                        *                                                                        FC5A128    60
                                        *         (TAB) = TABLE TO BE DEACTIVATED.                               FC5A128    61
                                        *         (PHASE) = PHASES WHERE DEACTIVATION WILL TAKE PLACE.           FC5A128    62
                                        *                                                                        FC5A128    63
                                        *         USES   A2,A7                                                   FC5A128    64
                                        *         USES   X2,X3,X7                                                FC5A128    65
                                        *         USES   B7                                                      FC5A128    66
                                        *                                                                        FC5A128    67
                                                                                                                 FC5A128    68
                                         INATAB   MACRO  TAB,PHASE                                               FC5A128    69
                                                  SX3    B0                                                      FC5A128    70
                                                  IRP    TAB                                                     FC5A128    71
                                                  SA2    =XT.TAB                                                 FC5A128    72
                                                  SB7    =XBASES                                                 FC5A128    73
                                                  SX2    B1                                                      FC5A128    74
                                                  SB7    A2-B7                                                   FC5A128    75
                                                  LX2    B7,X2                                                   FC5A128    76
                                                  BX3    X2+X3                                                   FC5A128    77
                                                  IRP                                                            FC5A128    78
                                                  IRP    PHASE                                                   FC5A128    79
                                                  SA2    =XTV=_PHASE                                             FC5A128    80
                                                  BX7    -X3*X2      TURN OFF BIT                                FC5A128    81
                                                  SA7    A2                                                      FC5A128    82
                                                  IRP                                                            FC5A128    83
                                         INATAB   ENDM                                                           FC5A128    84
                                                                                                                 FC5A128    85
  
  
  
  
                                        **        ANSI - MACRO TO PROCESS *ANSI* DIAGNOSTICS.                    FTN5TXT   410
                                        *                                                                        FTN5TXT   411
                                        *         ANSI   ARG                                                     FTN5TXT   412
                                        *                                                                        FTN5TXT   413
                                        *         *ARG*  = ADDRESS OF ERROR.                                     FTN5TXT   414
                                                                                                                 FTN5TXT   415
                                                                                                                 FTN5TXT   416
                                         ANSI     MACRO  ARG                                                     FTN5TXT   417
                                        *                                                                        FTN5TXT   418
                                         A MICRO 1,, =X                                                          FTN5TXT   419
                                          IF -REG,ARG,2                                                          FTN5TXT   420
                                         B MICRO 1,2, ARG                                                        FTN5TXT   421
                                          IFC EQ, "B" =X ,1                                                      FTN5TXT   422
                                         A MICRO                                                                 FTN5TXT   423
                                        *                                                                        FTN5TXT   424
                                                  =B7    "A"ARG                                                  FTN5TXT   425
                                                  RJ     =XANSI=                                                 FTN5TXT   426
                                         ANSI     ENDM                                                           FTN5TXT   427
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    66
        COMPILER-SPECIFIC MACROS.                                     CLAS= 
  
                                        ***       CLAS= - LOAD "CLASS" BITS INTO A REGISTER.                     FTN5TXT   429
                                        *                                                                        FTN5TXT   430
                                        *         CLAS=  REG,PFX,(BITS),TYPE                                     FTN5TXT   431
                                        *                                                                        FTN5TXT   432
                                        *         ENTRY  REG = REGISTER TO BE LOADED.                            FTN5TXT   433
                                        *                PFX = BIT FIELD PREFIX CHARACTERS WITH NO PERIOD.       FTN5TXT   434
                                        *                BITS = NAMES OF BITS TO BE SET.                         FTN5TXT   435
                                        *                TYPE = (OPTIONAL) TYPE TO SET INTO (PFX.MODE) FIELD.    FTN5TXT   436
                                                                                                                 FTN5TXT   437
                                                                                                                 FTN5TXT   438
                                         CLAS=    MACRO  REG,PFX,(BITS),TYPE                                     FTN5TXT   439
                                         T        MICRO  1,, 0                                                   FTN5TXT   440
                                                  IFC    NE, TYPE  ,3                                            FTN5TXT   441
                                                  ERRNZ  PFX.MODEP   ["SEQUENCE"]_____________________           FTN5TXT   442
                                                  ERRMI  7-M.TYPE    ["SEQUENCE"]_____________________           FTN5TXT   443
                                         T        OCTMIC M.TYPE,1                                                FTN5TXT   444
                                        *                            COUNT NUMBER OF BITS TO BE SET.             FTN5TXT   445
                                         A        SET                                                            FTN5TXT   446
                                                  IRP    BITS                                                    FTN5TXT   447
                                         A        SET    A+1                                                     FTN5TXT   448
                                                  IF     -DEF,PFX.BITS_P,2                                       FTN5TXT   449
                                                  ERR    (PFX.BITS) NOT DECLARED.    ["SEQUENCE"]_______________ FTN5TXT   450
                                         A        SET    100                                                     FTN5TXT   451
                                                  IRP                                                            FTN5TXT   452
                                         .1       IFLT   A,100                                                   FTN5TXT   453
                                        *                            CHECK FOR SIMPLE LOAD STYLE.                FTN5TXT   454
                                                  IFEQ   A,0,2                                                   FTN5TXT   455
                                                  =REG   M.TYPE                                                  FTN5TXT   456
                                         .1       SKIP                                                           FTN5TXT   457
                                                  IFEQ   "T",,4                                                  FTN5TXT   458
                                                  IFEQ   A,1,3                                                   FTN5TXT   459
                                                  IFEQ   PFX.BITS_L,1,2                                          FTN5TXT   460
                                                  LDBIT  REG,PFX.BITS_P                                          FTN5TXT   461
                                         .1       SKIP                                                           FTN5TXT   462
                                        *                            BIG VALUE, EVALUATE BITSTRING AND LOAD.     FTN5TXT   463
                                         C        BFMIC  PFX,(BITS)                                              FTN5TXT   464
                                                  IFC    NE, TYPE  ,2                                            FTN5TXT   465
                                         C        MICRO  1,19, "C"                                               FTN5TXT   466
                                         C        MICRO  1,, "C""T"B                                             FTN5TXT   467
                                                  LDX    REG,"C"                                                 FTN5TXT   468
                                         .1       ENDIF                                                          FTN5TXT   469
                                         CLAS=    ENDM                                                           FTN5TXT   470
  
  
  
  
                                        **        EMIT - EMIT TURPLE TO IL.                                      FTN5TXT   472
                                        *                                                                        FTN5TXT   473
                                        *         EMIT   V=SKEL,USE,TAB        OR,                               FTN5TXT   474
                                        *         EMIT   SETOP,*,TAB                                             FTN5TXT   475
                                        *                                                                        FTN5TXT   476
                                        *                SKEL = NAME OF A SKELETON.                              FTN5TXT   477
                                        *                SETOP = ADDRESS OF A SETOP WORD.                        FTN5TXT   478
                                        *                USE = DUCABILITY OF OPERANDS.  PICK ONE OF --           FTN5TXT   479
                                        *                            [NONE, 1ST, 2ND, BOTH]                      FTN5TXT   480
                                        *                TAB = TABLE TO EMIT TO.  IF OMITTED, (T.PAR) ASSUMED.   FTN5TXT   481
                                        *                                                                        FTN5TXT   482
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    67
        COMPILER-SPECIFIC MACROS.                                     EMIT
  
                                        *         CALLS  EMT.                                                    FTN5TXT   483
                                                                                                                 FTN5TXT   484
                                                                                                                 FTN5TXT   485
                                         EMIT     MACRO  SK,DU,TABLE                                             FTN5TXT   486
                                                  IFC    NE,/TABLE//,3                                           FTN5TXT   487
                                         .A       SET    2S15                                                    FTN5TXT   488
                                                  =A1    TABLE                                                   FTN5TXT   489
                                                  SKIP   1                                                       FTN5TXT   490
                                         .A       SET                                                            FTN5TXT   491
                                        *                                                                        FTN5TXT   492
                                                  IFC    EQ,/DU/*/,2                                             FTN5TXT   493
                                                  SB3    4S15+.A+SK                                              FTN5TXT   494
                                                  SKIP   1                                                       FTN5TXT   495
                                                  SB3    DUC=DU*1S12+.A+=X_SK                                    FTN5TXT   496
                                        *                                                                        FTN5TXT   497
                                                  RJ     =XEMT                                                   FTN5TXT   498
                                                  ENDM                                                           FTN5TXT   499
  
  
  
  
                                        **        FATAL - MACRO TO PRINT FATAL ERROR MESSAGES                    FTN5TXT   501
                                        *                                                                        FTN5TXT   502
                                        *         FATAL  E.ERR                                                   FTN5TXT   503
                                        *                                                                        FTN5TXT   504
                                        *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                  FTN5TXT   505
                                        *                                                                        FTN5TXT   506
                                        *         WILL PRINT THE SPECIFIED ERROR AND RETURN, WITHOUT CLOBBERING  FTN5TXT   507
                                        *                MANY REGISTERS, PROVIDED THE EXIT ADDRESS FOR THAT      FTN5TXT   508
                                        *                ERROR IS *PWE1*.  CALLS *PWE*.                          FTN5TXT   509
                                        *         SEE *PWE* FOR DETAILS.                                         FTN5TXT   510
                                                                                                                 FTN5TXT   511
                                                                                                                 FTN5TXT   512
                                         FATAL    MACRO  ADDR                                                    FTN5TXT   513
                                        *                                                                        FTN5TXT   514
                                         A MICRO 1,, =X                                                          FTN5TXT   515
                                          IF -REG,ADDR,2                                                         FTN5TXT   516
                                         B MICRO 1,2, ADDR                                                       FTN5TXT   517
                                          IFC EQ, "B" =X ,1                                                      FTN5TXT   518
                                         A MICRO                                                                 FTN5TXT   519
                                        *                                                                        FTN5TXT   520
                                                  =B7    "A"ADDR                                                 FTN5TXT   521
                                                  RJ     =XPDM                                                   FTN5TXT   522
                                         FATAL    ENDM                                                           FTN5TXT   523
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    68
        COMPILER-SPECIFIC MACROS.                                     HEREIF
  
                                        **        HEREIF - DECLARE ENTRY TO KEYWORD STATEMENT SCANNER.           FTN5TXT   525
                                                                                                                 FTN5TXT   526
                                                                                                                 FTN5TXT   527
                                                  MACRO  HEREIF,LOCN,KEY                                         FTN5TXT   528
                                         .1       IFC    NE,/LOCN//                                              FTN5TXT   529
                                         KW=LOCN  BSSENT                                                         FTN5TXT   530
                                         .1       ELSE                                                           FTN5TXT   531
                                         A        MICRO  1,2,/KEY   /                                            FTN5TXT   532
                                         .2       IFC    EQ,/"A"/C$/                                             FTN5TXT   533
                                         B        MICRO  3,4,/KEY   /                                            FTN5TXT   534
                                         K$="B"   BSSENT                                                         FTN5TXT   535
                                         .2       ELSE                                                           FTN5TXT   536
                                         B        MICRO  1,4,/KEY   /                                            FTN5TXT   537
                                         KW="B"   BSSENT                                                         FTN5TXT   538
                                         .2       ENDIF                                                          FTN5TXT   539
                                         .1       ENDIF                                                          FTN5TXT   540
                                         HEREIF   ENDM                                                           FTN5TXT   541
  
  
  
  
                                        **        INTF= - MACRO TO CREATE INTRINSIC TABLE ENTRY.                 FC5A227    16
                                        *                                                                        FC5A227    17
                                        *         ENTRY  ".D" = (IT.JPAD) FIELD.                                 FC5A227    18
                                                                                                                 FC5A227    19
                                                                                                                 FC5A227    20
                                         INTF=    MACRO  NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                         FC5A227    21
                                         .A       SET    2                                                       FC5A227    22
                                         .B       SET    NOARGS                                                  FC5A227    23
                                                  IFC    EQ, NOARGS  ,1                                          FC5A227    24
                                         .B       SET    -0                                                      FC5A227    25
                                        *                                                                        FC5A227    26
                                                  IRP    FLAGS                                                   FC5A227    27
                                         .E       MICRO  1,3,/FLAGS/                                             FC5A227    28
                                         .G       SET    7777B                                                   FC5A227    29
                                         .1       ECHO   ,KY=(,PAR,NON,NAN,EXT,GEN,BYN,CHA,GNO),VL=(,1,-2,-2,4,_ FC5A227    30
                                        ,1S3,1S4,1S5,1S6)                                                        FC5A227    31
                                                  IFC    EQ,/".E"/KY/,2                                          FC5A227    32
                                         .G       SET    VL                                                      FC5A227    33
                                         .1       STOPDUP                                                        FC5A227    34
                                         .1       ENDD                                                           FC5A227    35
                                                  IFNE   .G,7777B,2                                              FC5A227    36
                                         .A       SET    .A+.G                                                   FC5A227    37
                                                  SKIP   1                                                       FC5A227    38
                                                  ERR    NAME (FLAGS) ILLEGAL FLAG.                              FC5A227    39
                                                  IRP                                                            FC5A227    40
                                        *                                                                        FC5A227    41
                                         .C       MICRO  1,,$NAME$                                               FC5A227    42
                                                  VFD    IT.DPCL/0L".C",7/.A,3/.B,8/".D",3/M.ARGTYP,3/M.FUNTYP   FC5A227    43
                                        *                                                                        FC5A227    44
                                        *                            RESERVE SLOT FOR GENERIC MODE SELECTOR      FC5A227    45
                                         .G       SET    .A/1S3                                                  FC5A227    46
                                                  BSS    .G-.G/2*2                                               FC5A227    47
                                         INTF=    ENDM                                                           FC5A227    48
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    69
        COMPILER-SPECIFIC MACROS.                                     JPQ 
  
                                        **        JPQ -  REDEFINE *JP* AS A *FAST JUMP* (04)                     FTN5TXT   563
                                                                                                                 FTN5TXT   564
                                                                                                                 FTN5TXT   565
                                         JPQ      CPSYN  EQQ                                                     FTN5TXT   566
  
  
  
  
                                        **        LITKEY - GENERATE KEYWORD LITERAL.                             FTN5TXT   568
                                        *                                                                        FTN5TXT   569
                                        *                                                                        FTN5TXT   570
                                        * LAB     LITKEY                                                         FTN5TXT   571
                                        *                                                                        FTN5TXT   572
                                        *         ENTRY  '?KWCKEY = MICRO CONTAINING KEYWORD.                    FTN5TXT   573
                                        *                '?KWSKEY = LEN OF '?KWCKEY (IN CHARS, I.E. *MICCNT*).   FTN5TXT   574
                                        *                LAB      = LABEL FIELD FOR THIS KEYWORD.                FTN5TXT   575
                                        *                                                                        FTN5TXT   576
                                        *         EXIT   NONE                                                    FTN5TXT   577
                                        *                                                                        FTN5TXT   578
                                        *         USES   NONE                                                    FTN5TXT   579
                                        *                                                                        FTN5TXT   580
                                        *         CALLS  NONE                                                    FTN5TXT   581
                                                                                                                 FTN5TXT   582
                                                                                                                 FTN5TXT   583
                                                  PURGMAC LITKEY                                                 FTN5TXT   584
                                                                                                                 FTN5TXT   585
                                                  MACRO  LITKEY,LAB                                              FTN5TXT   586
                                                  LOCAL  '?KW#001                                                FTN5TXT   587
                                        *                                                                        FTN5TXT   588
                                         '?KWCS02 MICRO 1,, 0L                                                   FTN5TXT   589
                                         '?KWS001 SET    '?KWSKEY/7+1                                            FTN5TXT   590
                                         '?KWS002 SET    1                                                       FTN5TXT   591
                                        *                                                                        FTN5TXT   592
                                         '?KW#001 DUP    '?KWS001                                                FTN5TXT   593
                                         '?KWCS01 MICRO  '?KWS002,7, "'?KWCKEY"                                  FTN5TXT   594
                                         '?KWCS02 MICRO  1,, "'?KWCS02",0L"'?KWCS01"                             FTN5TXT   595
                                         '?KWS002 SET    '?KWS002+7                                              FTN5TXT   596
                                        *                                                                        FTN5TXT   597
                                         '?KW#001 ENDD                                                           FTN5TXT   598
                                        *                                                                        FTN5TXT   599
                                         LAB LIT "'?KWCS02"                                                      FTN5TXT   600
                                        *                                                                        FTN5TXT   601
                                         LITKEY   ENDM                                                           FTN5TXT   602
  
  
  
  
                                        **        LOVER - LOAD FTN OVERLAY.                                      FTN5TXT   604
                                        *                                                                        FTN5TXT   605
                                        *         FORMS 3-WORD LOADER CALL AND EXITS TO LOAD REQUEST ROUTINE.    FTN5TXT   606
                                        *                                                                        FTN5TXT   607
                                        *                                                                        FTN5TXT   608
                                        *         LOVER  (P,S),LDA                                               FTN5TXT   609
                                        *         LOVER  XR,LDA      LEVELS IN X-REG                             FTN5TXT   610
                                        *                                                                        FTN5TXT   611
                                        *         ENTRY  P = OVERLAY PRIMARY LEVEL NUMBER                        FTN5TXT   612
                                        *                S = OVERLAY SECONDARY LEVEL NUMBER                      FTN5TXT   613
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    70
        COMPILER-SPECIFIC MACROS.                                     LOVER 
  
                                        *                LDA = FWA TO LOAD OVERLAY                               FTN5TXT   614
                                        *                XR = P*64+S       LEVELS IN X-REG                       FTN5TXT   615
                                        *                (CP.NFLS) = LWA+1 OF LOAD                               FTN5TXT   616
                                        *                (FTNLFN) = LIBRARY OR FILE NAME 0L FORMAT               FTN5TXT   617
                                        *                (FTNLDR) = LOADER REQUEST FLAGS                         FTN5TXT   618
                                        *                                                                        FTN5TXT   619
                                        *         EXIT   TO *LOVER* WITH --                                      FTN5TXT   620
                                        *                (X2) = P*64+S = OVERLAY LEVELS.                         FTN5TXT   621
                                        *                (X7) = FWA LOAD.                                        FTN5TXT   622
                                                                                                                 FTN5TXT   623
                                                                                                                 FTN5TXT   624
                                                  PURGMAC LOVER                                                  FTN5TXT   625
                                                                                                                 FTN5TXT   626
                                         LOVER    MACRO  PS,LDA                                                  FTN5TXT   627
                                                  LOCAL  P,S                                                     FTN5TXT   628
                                         P        MICRO  1,,,PS,                                                 FTN5TXT   629
                                         A        MICCNT P                                                       FTN5TXT   630
                                         S        MICRO  A+2,,/PS/                                               FTN5TXT   631
                                         .1       IFC    EQ,//"S"/   IF PS CONTAINED NO COMMA                    FTN5TXT   632
                                                  =X2    PS                                                      FTN5TXT   633
                                         .1       ELSE                                                           FTN5TXT   634
                                                  SX2    0"P"0"S"B                                               FTN5TXT   635
                                         .1       ENDIF                                                          FTN5TXT   636
                                        *                            SET (X7) = FWA OF LOAD                      FTN5TXT   637
                                                  =X7    LDA                                                     FTN5TXT   638
                                                  IFC    EQ,/LDA//,1                                             FTN5TXT   639
                                         8        ERR    LOAD ADDRESS REQUIRED ON LOVER CALL                     FTN5TXT   640
                                                  EQ     =XLOVER                                                 FTN5TXT   641
                                         LOVER    ENDM                                                           FTN5TXT   642
  
  
  
  
                                        **        MDERR - MACRO TO PROCESS MACHINE DEPENDENT DIAGNOSTICS.        F1037F5   111
                                        *                                                                        F1037F5   112
                                        *         MDERR  ARG                                                     F1037F5   113
                                        *                                                                        F1037F5   114
                                        *         *ARG* = ADDRESS OF ERROR.                                      F1037F5   115
                                                                                                                 F1037F5   116
                                         MDERR    MACRO  ARG                                                     F1037F5   117
                                        *                                                                        F1037F5   118
                                         A        MICRO  1,, =X                                                  F1037F5   119
                                                  IF     -REG,ARG,2                                              F1037F5   120
                                         B        MICRO  1,2, ARG                                                F1037F5   121
                                                  IFC    EQ, "B" =X ,1                                           F1037F5   122
                                         A        MICRO                                                          F1037F5   123
                                        *                                                                        F1037F5   124
                                                  =B7    "A"ARG                                                  F1037F5   125
                                                  RJ     =XMDERR=                                                F1037F5   126
                                         MDERR    ENDM                                                           F1037F5   127
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    71
        COMPILER-SPECIFIC MACROS.                                     PIA 
  
                                        **        PIA -  MACRO TO CONVERT INSTRUCTION ADDRESS FOR LISTING.       FTN5TXT   644
                                        *                                                                        FTN5TXT   645
                                        *         PIA    FROM,TO                                                 FTN5TXT   646
                                        *                                                                        FTN5TXT   647
                                        *         FROM   = ADDRESS OF VALUE TO BE CONVERTED.                     FTN5TXT   648
                                        *                  *SA1 FROM* GENERATED IF NOT NULL                      FTN5TXT   649
                                        *         TO     = ADDRESS OF CELL TO RECEIVE RESULT                     FTN5TXT   650
                                        *                  *SA6 TO* GENERATED IF NOT NULL                        FTN5TXT   651
                                        *         ENTRY  X1 = VALUE, @ 2**17-1                                   FTN5TXT   652
                                        *         EXIT   X6 = DPC CONVERSION, SUITABLE FOR LISTING, LEADING      FTN5TXT   653
                                        *                     ZEROES SUPPRESSED,                                 FTN5TXT   654
                                        *                     FORMAT  " 123456B  "                               FTN5TXT   655
                                        *         CALLS PIA                                                      FTN5TXT   656
                                                                                                                 FTN5TXT   657
                                                                                                                 FTN5TXT   658
                                                  PURGMAC PIA                                                    FTN5TXT   659
                                                                                                                 FTN5TXT   660
                                         PIA      MACRO  F,T                                                     FTN5TXT   661
                                                  IFC    NE,**F*,1                                               FTN5TXT   662
                                                  SA1    F                                                       FTN5TXT   663
                                                  RJ     =XPIA                                                   FTN5TXT   664
                                                  IFC    NE,**T*,1                                               FTN5TXT   665
                                                  SA6    T                                                       FTN5TXT   666
                                         PIA      ENDM                                                           FTN5TXT   667
  
  
  
  
                                        **        PLINE- PRINT CODED LINE ON OUTPUT FILE.                        FTN5TXT   669
                                        *                                                                        FTN5TXT   670
                                        *         PLINE  ADDR,L,N                                                FTN5TXT   671
                                        *                                                                        FTN5TXT   672
                                        *         *ADDR* = FWA OF LINE IN *C* FORMAT.                            FTN5TXT   673
                                        *         *L*    = NUMBER OF WORDS TO BE PRINTED                         FTN5TXT   674
                                        *         *N*    = NUMBER OF BLANK LINES BEFORE LINE.                    FTN5TXT   675
                                        *                                                                        FTN5TXT   676
                                        *         CALLS  WBL, WOF.                                               FTN5TXT   677
                                                                                                                 FTN5TXT   678
                                                                                                                 FTN5TXT   679
                                         PLINE    MACRO  ADDR,L,N                                                FTN5TXT   680
                                                  =X1    ADDR                                                    FTN5TXT   681
                                                  =X2    L                                                       FTN5TXT   682
                                                  =B5    N+1                                                     FTN5TXT   683
                                                  RJ     =XWOF                                                   FTN5TXT   684
                                         PLINE    ENDM                                                           FTN5TXT   685
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    72
        COMPILER-SPECIFIC MACROS.                                     PLUG
  
                                        **        PLUG - MODIFY COMPILER CODE DURING EXECUTION.                  FTN5TXT   687
                                        *                                                                        FTN5TXT   688
                                        *         SELF-MODIFYING (PLUGGING) CODE MAY SEEMINGLY FAIL ON CYBER     FTN5TXT   689
                                        *         74 / 6600 AND LARGER MODELS, DUE TO THE HARDWARE INSTRUCTION   FTN5TXT   690
                                        *         STACK AND 1- OR 2-WORD INSTRUCTION LOOKAHEAD.  BECAUSE OF THIS FTN5TXT   691
                                        *         PROBLEM, AND THE UNREADABILITY OF PLUGGED CODE, THE TECHNIQUE  FTN5TXT   692
                                        *         IS NOT DESIRABLE FOR WIDE USAGE.  EFFICIENCY CONSIDERATIONS    FTN5TXT   693
                                        *         ARE OCCASIONALLY MORE IMPORTANT, HOWEVER, SO WE FORMALIZE      FTN5TXT   694
                                        *         PLUGGING WITH THE FOLLOWING MACRO.  IT INCLUDES A SAFEGUARD    FTN5TXT   695
                                        *         AGAINST THE STACK/LOOKAHEAD PROBLEM, AND IS PREFERABLE TO      FTN5TXT   696
                                        *         DIRECT CODE FOR READABILITY AND DEBUGGING EASE.                FTN5TXT   697
                                        *                                                                        FTN5TXT   698
                                        *         TWO FORMS OF *PLUG* ARE AVAILABLE ...                          FTN5TXT   699
                                        *                                                                        FTN5TXT   700
                                        *                                                                        FTN5TXT   701
                                        *         FORM 1 - PLUGS A CALLER-PROVIDED WORD OF CODE.                 FTN5TXT   702
                                        *                                                                        FTN5TXT   703
                                        *         PLUG      AT=,FROM=,FREG=,SREG=,VOID=                          FTN5TXT   704
                                        *                                                                        FTN5TXT   705
                                        *                                                                        FTN5TXT   706
                                        *         FORM 2 - FABRICATES AND PLUGS AN -EQ- JUMP.                    FTN5TXT   707
                                        *         RESTRICTION - THE 1-REGISTER METHOD USED FOR FORMING THE -EQ-  FTN5TXT   708
                                        *         JUMP IS NOT VALID IF *TO* IS .GT. 177777B ABSOLUTE.  THIS IS   FTN5TXT   709
                                        *         NOT A PROBLEM IN FTN, SINCE ALL ADDRESSES ARE .LT. 100000B.    FTN5TXT   710
                                        *                                                                        FTN5TXT   711
                                        *         PLUG      AT=,TO=,SREG=,VOID=                                  FTN5TXT   712
                                        *                                                                        FTN5TXT   713
                                        *                                                                        FTN5TXT   714
                                        *         ENTRY  *AT*   = ADDRESS WHERE PLUG TO BE STORED.               FTN5TXT   715
                                        *                *FREG* = (FORM 1 ONLY) (OPTIONAL)  NUMBER OF A,X REG    FTN5TXT   716
                                        *                         TO USE FOR FETCHING CODE WORD.  MUST BE 1-5.   FTN5TXT   717
                                        *                         USES A1 AND X1 IF OMITTED.  IGNORED IF *FROM*  FTN5TXT   718
                                        *                         SPECIFIES AN X-REGISTER.                       FTN5TXT   719
                                        *                *FROM* = (FORM 1 ONLY)  SOURCE OF CODE WORD TO PLUG.    FTN5TXT   720
                                        *                         MAY BE AN X-REGISTER CONTAINING THE CODE WORD  FTN5TXT   721
                                        *                         ( E.G., FROM=X3 ), OR AN ADDRESS EXPRESSION.   FTN5TXT   722
                                        *                *SREG* = (OPTIONAL)  NUMBER OF A,X REG TO USE FOR       FTN5TXT   723
                                        *                         STORING PLUG.  MUST BE 6 OR 7.  USES X6 AND A6 FTN5TXT   724
                                        *                         IF OMITTED.                                    FTN5TXT   725
                                        *                *TO*   = (FORM 2 ONLY)  -EQ- JUMP ADDRESS.              FTN5TXT   726
                                        *                *VOID* = (OPTIONAL)                                     FTN5TXT   727
                                        *                         *NO* = DO NOT GENERATE STACK-VOIDING CODE.     FTN5TXT   728
                                        *                         ELSE OR OMITTED = GENERATE VOIDING CODE IF     FTN5TXT   729
                                        *                            "MODEL" IS CYBER 74 / 6600 OR LARGER.       FTN5TXT   730
                                        *                                                                        FTN5TXT   731
                                        *         CALLS  NONE                                                    FTN5TXT   732
                                        *                                                                        FTN5TXT   733
                                        *         USES   AS ABOVE                                                FTN5TXT   734
                                                                                                                 FTN5TXT   735
                                                                                                                 FTN5TXT   736
                                                  PURGMAC PLUG                                                   FTN5TXT   737
                                                                                                                 FTN5TXT   738
                                         PLUG     MACROE AT,TO,FROM,FREG,SREG,VOID                               FTN5TXT   739
                                                  LOCAL  FN,SN                                                   FTN5TXT   740
                                         SN       SET    SREG  6                                                 FTN5TXT   741
                                                  IFLT   SN,6,1                                                  FTN5TXT   742
                                                  ERR    STORE REG MUST BE 6 OR 7.   ["SEQUENCE"]_______________ FTN5TXT   743
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    73
        COMPILER-SPECIFIC MACROS.                                     PLUG
  
                                         .F1      IFC    EQ, TO                                                  FTN5TXT   744
                                         .F1A     IF     REG,FROM                                                FTN5TXT   745
                                        *                            FORM 1A - CODE WORD IN AN X-REGISTER.       FTN5TXT   746
                                         SN       OCTMIC SN,1                                                    FTN5TXT   747
                                         SN       MICRO  1,, X"SN"                                               FTN5TXT   748
                                                  IFC    NE, FROM "SN" ,1                                        FTN5TXT   749
                                                  BX.SN  FROM                                                    FTN5TXT   750
                                         .F1A     ELSE                                                           FTN5TXT   751
                                        *                            FORM 1B - FETCH CODE WORD FROM *FROM*.      FTN5TXT   752
                                         FN       SET    FREG  1                                                 FTN5TXT   753
                                                  IFGE   FN,1,2                                                  FTN5TXT   754
                                                  IFLE   FN,5,1                                                  FTN5TXT   755
                                                  SKIP   1                                                       FTN5TXT   756
                                                  ERR    FETCH REG NOT 1-5.  ["SEQUENCE"]____________________    FTN5TXT   757
                                                  SA.FN  FROM                                                    FTN5TXT   758
                                                  BX.SN  X.FN                                                    FTN5TXT   759
                                         .F1A     ENDIF                                                          FTN5TXT   760
                                         .F1      ELSE                                                           FTN5TXT   761
                                        *                            FORM 2 - FABRICATE -EQ- JUMP TO *TO*.       FTN5TXT   762
                                                  SX.SN  TO                                                      FTN5TXT   763
                                                  LX.SN  2+30D                                                   FTN5TXT   764
                                        *                            2000BS48+*JPADR*S32                         FTN5TXT   765
                                                  PX.SN  X.SN,B0                                                 FTN5TXT   766
                                        *                            0400BS48+*JPADR*S30                         FTN5TXT   767
                                                  LX.SN  -2                                                      FTN5TXT   768
                                         .F1      ENDIF                                                          FTN5TXT   769
                                        *                            STORE THE PLUG.                             FTN5TXT   770
                                                  SA.SN  AT                                                      FTN5TXT   771
                                        *                            GENERATE STACK-VOIDING CODE.                FTN5TXT   772
                                                  IFC    NE, VOID NO ,3                                          FTN5TXT   773
                                                  RJ     *+1                                                     FTN5TXT   774
                                                  EQ     *+1S17                                                  FTN5TXT   775
                                                  BSS    0                                                       FTN5TXT   776
                                         PLUG     ENDM                                                           FTN5TXT   777
  
  
  
  
                                        **        SCAN - MACRO TO CALL SCAN ROUTINES                             FTN5TXT   779
                                        *                                                                        FTN5TXT   780
                                        *         SCAN   TABLE,TYPE                                              FTN5TXT   781
                                        *                                                                        FTN5TXT   782
                                        *         ENTRY  TABLE = ORIGIN WORD OF TABLE TO BE SCANNED.             FTN5TXT   783
                                        *                TYPE = TYPE OF SCAN TO PERFORM (NAME OF ROUTINE).       FTN5TXT   784
                                        *                                                                        FTN5TXT   785
                                        *         FOR EXAMPLE,       SCAN   TS.NAM,BTR                           FTN5TXT   786
                                        *         GENERATES --       SA1    TS.NAM                               FTN5TXT   787
                                        *                            RJ     =XBTR                                FTN5TXT   788
                                                                                                                 FTN5TXT   789
                                                                                                                 FTN5TXT   790
                                         SCAN     MACRO  TABLE,TYPE                                              FTN5TXT   791
                                                  =A1    TABLE                                                   FTN5TXT   792
                                                  RJ     =X_TYPE                                                 FTN5TXT   793
                                         SCAN     ENDM                                                           FTN5TXT   794
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    74
        COMPILER-SPECIFIC MACROS.                                     SECT
  
                                        **        SECT - MACRO TO FORM COMMON GROUP 1 INSTRUCTIONS.              FTN5TXT   796
                                        *                                                                        FTN5TXT   797
                                        *                SEE MACRO FOR GROUP 1 INSTRUCTIONS GENERATED.           FTN5TXT   798
                                        *                                                                        FTN5TXT   799
                                        * NAM     SECT   (HEAD),RNAM,NOB1                                        FTN5TXT   800
                                        *                                                                        FTN5TXT   801
                                        *         *NAM*  NAME OF THIS DECK                                       FTN5TXT   802
                                        *         *HEAD* TITLE FOR THIS DECK AND FOR LOADER COMMENT              FTN5TXT   803
                                        *         *RNAM* RPVDEF NAME IF DIFFERENT FROM DECK NAME                 FTN5TXT   804
                                        *         *NOB1* IF NOT NULL, B1=1 WILL NOT BE DEFINED                   FTN5TXT   805
                                                                                                                 FTN5TXT   806
                                                                                                                 FTN5TXT   807
                                         RPVDEF.  OPSYN  RPVDEF                                                  FTN5TXT   808
                                                  PURGMAC SECT                                                   FTN5TXT   809
                                                                                                                 FTN5TXT   810
                                                  MACRO  SECT,NAM,HEAD,RNAM,NOB1                                 FTN5TXT   811
                                                  IFC    NE,/NOB1//,2                                            FTN5TXT   812
                                                  SYSCOM                                                         FTN5TXT   813
                                                  SKIP   1                                                       FTN5TXT   814
                                                  SYSCOM B1                                                      FTN5TXT   815
                                                  LIST   F,X                                                     FTN5TXT   816
                                         NAM      TITLE  NAM - HEAD                                              FTN5TXT   817
                                                  COMMENT  HEAD                                                  FTN5TXT   818
                                         NAM      RPVDEF. RNAM                                                   FTN5TXT   819
                                                  NOREF  A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z     FTN5TXT   820
                                                  NOREF  ON,OFF                                                  FTN5TXT   821
                                         SECT     ENDM                                                           FTN5TXT   822
  
  
  
  
                                        **        SHRINK - COLLAPSE TABLE TO GIVEN LENGTH.                       FTN5TXT   824
                                        *                                                                        FTN5TXT   825
                                        *         SHRINK TNAM,SIZE                                               FTN5TXT   826
                                        *                                                                        FTN5TXT   827
                                        *         TNAM   _ LENGTH WORD FOR TABLE TO BE COLLAPSED.                FTN5TXT   828
                                        *         SIZE   = NEW SIZE.  (DISASTER IF SIZE .GT. CURRENT LENGTH.)    FTN5TXT   829
                                                                                                                 FTN5TXT   830
                                                                                                                 FTN5TXT   831
                                         SHRINK   MACRO  TNAM,SIZE                                               FTN5TXT   832
                                                  =X6    SIZE                                                    FTN5TXT   833
                                        *                                                                        FTN5TXT   834
                                         A MICRO 1,, =X                                                          FTN5TXT   835
                                          IF -REG,TNAM,2                                                         FTN5TXT   836
                                         B MICRO 1,2, TNAM                                                       FTN5TXT   837
                                          IFC EQ, "B" =X ,1                                                      FTN5TXT   838
                                         A MICRO                                                                 FTN5TXT   839
                                        *                                                                        FTN5TXT   840
                                                  =A6 "A"TNAM                                                    FTN5TXT   841
                                         SHRINK   ENDM                                                           FTN5TXT   842
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    75
        COMPILER-SPECIFIC MACROS.                                     SUBKEY
  
                                        **        SUBKEY - DEFINE SUB-KEYWORD.                                   FTN5TXT   844
                                        *                                                                        FTN5TXT   845
                                        *                                                                        FTN5TXT   846
                                        *         THIS MACRO IS USED TO DEFINE ENTRIES IN THE VARIOUS            FTN5TXT   847
                                        *         SUB-KEYWORD TABLES.                                            FTN5TXT   848
                                        *                                                                        FTN5TXT   849
                                        *         EXAMPLES --                                                    FTN5TXT   850
                                        *                                                                        FTN5TXT   851
                                        *         SUBKEY REAL,TYP=REAL                                           FTN5TXT   852
                                        *         SUBKEY INTEGER,TYP=INT                                         FTN5TXT   853
                                        *                                                                        FTN5TXT   854
                                        *         FORM --                                                        FTN5TXT   855
                                        *                                                                        FTN5TXT   856
                                        *         SUBKEY KEY,INFO                                                FTN5TXT   857
                                        *                                                                        FTN5TXT   858
                                        *         ENTRY  KEY  = KEYWORD.                                         FTN5TXT   859
                                        *                INFO = INFORMATION.  THE *INFO* FIELD CONTAINS          FTN5TXT   860
                                        *                       INFORMATION THAT CAN BE USED SOME WAY            FTN5TXT   861
                                        *                       TO UNIQUELY DISTINGUISH THIS SUB-KEYWORD,        FTN5TXT   862
                                        *                       E.G. A SUB-KEYWORD TYPE CODE, OR A PROCESSOR     FTN5TXT   863
                                        *                       ADDRESS.  THAT IS TO SAY, THE MEANING OF THE     FTN5TXT   864
                                        *                       *INFO* FIELD IS DETERMINED ARBITRARILY BY        FTN5TXT   865
                                        *                       ITS USER.                                        FTN5TXT   866
                                        *                                                                        FTN5TXT   867
                                        *         EXIT   NONE                                                    FTN5TXT   868
                                        *                                                                        FTN5TXT   869
                                        *         USES   NONE                                                    FTN5TXT   870
                                        *                                                                        FTN5TXT   871
                                        *         CALLS  LITKEY                                                  FTN5TXT   872
                                                                                                                 FTN5TXT   873
                                                                                                                 FTN5TXT   874
                                                  PURGMAC SUBKEY                                                 FTN5TXT   875
                                                                                                                 FTN5TXT   876
                                         SUBKEY   MACRO  KEY,INFO                                                FTN5TXT   877
                                                  LOCAL  '?KW#001                                                FTN5TXT   878
                                        *                                                                        FTN5TXT   879
                                         '?KWCKEY MICRO 1,, KEY                                                  FTN5TXT   880
                                         '?KWSKEY MICCNT '?KWCKEY                                                FTN5TXT   881
                                        *                                                                        FTN5TXT   882
                                         '?KWS001 SET 60-KW.INFOP-KW.INFOL                                       FTN5TXT   883
                                         '?KWS002 SET KW.INFOP-KW.LENP-KW.LENL                                   FTN5TXT   884
                                        *                                                                        FTN5TXT   885
                                          VFD '?KWS001/0,KW.INFOL/INFO,'?KWS002/0,KW.LENL/'?KWSKEY*CHAR,________ FTN5TXT   886
                                        ,KW.KEYL/'?KW#001                                                        FTN5TXT   887
                                        *                                                                        FTN5TXT   888
                                         '?KW#001 LITKEY                                                         FTN5TXT   889
                                        *                                                                        FTN5TXT   890
                                         SUBKEY   ENDM                                                           FTN5TXT   891
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    76
        COMPILER-SPECIFIC MACROS.                                     SYMASK
  
                                        **        SYMASK - MACRO TO GENERATE MASKS OF SYMBOLIC FIELDS.           FTN5TXT   893
                                        *                                                                        FTN5TXT   894
                                        * LOC     SYMASK (FIELD1,FIELD2,...,FIELDN)                              FTN5TXT   895
                                        *                                                                        FTN5TXT   896
                                        *         *LOC*  = NAME OF THE LITERAL TO BE GENERATED.                  FTN5TXT   897
                                        *                IF LOCATION FIELD IS BLANK, LITERAL WILL NOT BE CREATED FTN5TXT   898
                                        *                AND MICRO NAMED "E" CONTAINS THE 20-OCTAL DIGIT VALUE.  FTN5TXT   899
                                        *         FIELD(I) ARE SYMBOLIC NAMES OF FIELDS TO BE SET.               FTN5TXT   900
                                        *                GENERATES A LITERAL WITH 1-BITS IN SPECIFIED FIELDS,    FTN5TXT   901
                                        *                AND 0-BITS ELSEWHERE.  THE DESIGNATED FIELDS MUST HAVE  FTN5TXT   902
                                        *                FIELD_P DEFINITIONS (SEE *DEFINE* MACRO).               FTN5TXT   903
                                                                                                                 FTN5TXT   904
                                                                                                                 FTN5TXT   905
                                                  MACRO  SYMASK,LOC,FLD                                          FTN5TXT   906
                                         C        MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000 FTN5TXT   907
                                        ,00000_0000000000                                                        FTN5TXT   908
                                        *                                                                        FTN5TXT   909
                                                  IRP    FLD                                                     FTN5TXT   910
                                        *                            NUMBER OF BITS IN THIS FIELD                FTN5TXT   911
                                         A        SET    1                                                       FTN5TXT   912
                                                  IF     DEF,FLD_L,1                                             FTN5TXT   913
                                         A        SET    FLD_L                                                   FTN5TXT   914
                                         A        MICRO  1,A, 1111111111_1111111111_1111111111_1111111111_111111 FTN5TXT   915
                                        ,1111_1111111111                                                         FTN5TXT   916
                                        *                            EXTRACT TRAILING BITS                       FTN5TXT   917
                                         .1       IFEQ   FLD_P                                                   FTN5TXT   918
                                         B        MICRO                                                          FTN5TXT   919
                                         .1       ELSE                                                           FTN5TXT   920
                                         B        MICRO  61-FLD_P,, "C"                                          FTN5TXT   921
                                         .1       ENDIF                                                          FTN5TXT   922
                                        *                            EXTRACT LEADING BITS                        FTN5TXT   923
                                         .1       IFEQ   60-FLD_P-A                                              FTN5TXT   924
                                         D        MICRO                                                          FTN5TXT   925
                                         .1       ELSE                                                           FTN5TXT   926
                                         D        MICRO  1,60-FLD_P-A "C"                                        FTN5TXT   927
                                         .1       ENDIF                                                          FTN5TXT   928
                                        *                            MERGE NEW PIECES                            FTN5TXT   929
                                         C        MICRO  1,60, "D""A""B"                                         FTN5TXT   930
                                                  IRP                                                            FTN5TXT   931
                                        *                            CONVERT BINARY TO OCTAL                     FTN5TXT   932
                                         E        MICRO                                                          FTN5TXT   933
                                         E        SET    0                                                       FTN5TXT   934
                                         .1       DUP    60D/3                                                   FTN5TXT   935
                                         E        SET    E+1                                                     FTN5TXT   936
                                         F        MICRO  3*E-2,1, "C"                                            FTN5TXT   937
                                         G        MICRO  3*E-1,1, "C"                                            FTN5TXT   938
                                         H        MICRO  3*E-0,1, "C"                                            FTN5TXT   939
                                         F        OCTMIC "F"*4+"G"*2+"H",1                                       FTN5TXT   940
                                         E        MICRO  1,, "E""F"                                              FTN5TXT   941
                                         .1       ENDD                                                           FTN5TXT   942
                                        *                                                                        FTN5TXT   943
                                                  IFC    NE,  LOC ,1                                             FTN5TXT   944
                                         LOC      LIT    "E"B                                                    FTN5TXT   945
                                         SYMASK   ENDM                                                           FTN5TXT   946
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    77
        COMPILER-SPECIFIC MACROS.                                     TAGSEX
  
                                        **        TAGSEX - TAG INVENTED EXTERNAL.                                FTN5TXT   948
                                        *                                                                        FTN5TXT   949
                                        *         TAGSEX (=0LNAME"EXT")                                          FTN5TXT   950
                                        *         TAGSEX ADDR                                                    FTN5TXT   951
                                        *                                                                        FTN5TXT   952
                                        *         ENTRY  ADDR = ADDRESS OF WORD CONTAINING NAME OF EXTERNAL      FTN5TXT   953
                                        *                            WITH THE "EXT" SUFFIX PRESENT.              FTN5TXT   954
                                        *                            (-L- FORMAT).                               FTN5TXT   955
                                        *                IF *ADDR* IS *A1*, THEN (X1) MUST CONTAIN THE NAME.     FTN5TXT   956
                                        *                                                                        FTN5TXT   957
                                        *         TO BE USED FOR ENTERING ALL "INVISIBLE" EXTERNALS IN           FTN5TXT   958
                                        *         THE SYMBOL TABLE.                                              FTN5TXT   959
                                        *                                                                        FTN5TXT   960
                                        *         CALLS  FEC/TSX.                                                FTN5TXT   961
                                                                                                                 FTN5TXT   962
                                                                                                                 FTN5TXT   963
                                         TAGSEX   MACRO  ADDR                                                    FTN5TXT   964
                                                  =A1    ADDR                                                    FTN5TXT   965
                                                  RJ     =XTSX                                                   FTN5TXT   966
                                         TAGSEX   ENDM                                                           FTN5TXT   967
  
  
  
  
                                        **        TRIV  - MACRO TO PRINT TRIVIAL ERROR MESSAGES                  FTN5TXT   969
                                        *                                                                        FTN5TXT   970
                                        *         TRIV   E.ERR                                                   FTN5TXT   971
                                        *                                                                        FTN5TXT   972
                                        *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                  FTN5TXT   973
                                        *                                                                        FTN5TXT   974
                                        *         SEE *FATAL* MACRO.                                             FTN5TXT   975
                                                                                                                 FTN5TXT   976
                                                                                                                 FTN5TXT   977
                                         TRIV     OPSYN  FATAL                                                   FTN5TXT   978
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    78
        COMPILER-SPECIFIC MACROS.                                     TRUBL 
  
                                        **        TRUBL - COMPILER MAL-FUNCTION FLAG.                            FTN5TXT   980
                                        *                                                                        FTN5TXT   981
                                        *         TRUBL                                                          FTN5TXT   982
                                        *                                                                        FTN5TXT   983
                                        *         GENERATES A JUMP OUT OF BOUNDS.                                FTN5TXT   984
                                                                                                                 FTN5TXT   985
                                                                                                                 FTN5TXT   986
                                         TRUBL    MACRO  NAM                                                     FTN5TXT   987
                                                  EQ     "BLOWUP"                                                FTN5TXT   988
                                         TRUBL    ENDM                                                           FTN5TXT   989
  
  
  
  
                                        **        WARN  - MACRO TO PRINT WARN ERROR MESSAGES                     FTN5TXT   991
                                        *                                                                        FTN5TXT   992
                                        *         WARN   E.ERR                                                   FTN5TXT   993
                                        *                                                                        FTN5TXT   994
                                        *         *ERR*  = THE NAME OF THE ERROR TO BE PRINTED.                  FTN5TXT   995
                                        *                                                                        FTN5TXT   996
                                        *         SEE *FATAL* MACRO.                                             FTN5TXT   997
                                                                                                                 FTN5TXT   998
                                                                                                                 FTN5TXT   999
                                         WARN     OPSYN  FATAL                                                   FTN5TXT  1000
  
  
  
  
                                        **        WCODE - WRITE CODE TO PREBIN.                                  FTN5TXT  1002
                                        *                                                                        FTN5TXT  1003
                                        *         WCODE  XR                                                      FTN5TXT  1004
                                        *         WCODE  XR,RETURN                                               FTN5TXT  1005
                                        *                                                                        FTN5TXT  1006
                                        *         ENTRY  *XR* = AN *X* REGISTER IN (PB.) FORMAT.                 FTN5TXT  1007
                                        *                       CAN ALSO BE ANY X-REG BOOLEAN EXPRESSION         FTN5TXT  1008
                                        *                       PERMITTED BY THE HARDWARE.                       FTN5TXT  1009
                                        *                            (X7) IS NATURAL REGISTER.                   FTN5TXT  1010
                                        *                *RETURN* = OPTIONAL RETURN ADDRESS.                     FTN5TXT  1011
                                        *                *RETURN* OMITTED = CONTINUE IN LINE.                    FTN5TXT  1012
                                        *                            (B2) IS NATURAL REGISTER.                   FTN5TXT  1013
                                        *         CALLS  WIN.                                                    FTN5TXT  1014
                                                                                                                 FTN5TXT  1015
                                                                                                                 FTN5TXT  1016
                                         WCODE    MACRO  XR,RET                                                  FTN5TXT  1017
                                                  IFC    NE,/X7/XR/,1                                            FTN5TXT  1018
                                                  BX7    XR                                                      FTN5TXT  1019
                                                  =B2    RET  *+2-*P/60D                                         FTN5TXT  1020
                                                  JP     =XWIN                                                   FTN5TXT  1021
                                         WCODE    ENDM                                                           FTN5TXT  1022
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    79
        COMPILER-SPECIFIC MACROS.                                     =XLIB 
  
                                        **        =XLIB - DEFINE EXTERNAL ROUTINE NAME                           FTN5TXT  1024
                                        *                                                                        FTN5TXT  1025
                                        *         APPENDS "EXT" TO  EXTERNAL ROUTINES THAT ARE USED BY GENERATED FTN5TXT  1026
                                        *         OBJECT CODE TO PROCESS FORTRAN STATEMENTS, IN ORDER TO ELIM-   FTN5TXT  1027
                                        *         INATE RESERVED WORDS.                                          FTN5TXT  1028
                                                                                                                 FTN5TXT  1029
                                                                                                                 FTN5TXT  1030
                                                  MACRO  =XLIB,LOC,NAME                                          FTN5TXT  1031
                                         LOC      DATA   L/NAME"EXT"/                                            FTN5TXT  1032
                                         =XLIB    ENDM                                                           FTN5TXT  1033
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    80
        SYMBOL DEFINITIONS.                                           PASS= 
  
                                        **        PASS= - CONTROL ACTIONS OF TABLE MANAGER.                      FTN5TXT  1036
                                                                                                                 FTN5TXT  1037
                                                                                                                 FTN5TXT  1038
      L      0                                    LOC    0                                                       FTN5TXT  1039
      L      0                     1     PASS=FE  BSS    1           FRONT END PROCESSING                        FTN5TXT  1040
      L      1                     1     PASS=QCG BSS    1           CODE GENERATION WITH QUICK CODE GENERATOR   FTN5TXT  1041
      L      2                     1     PASS=CCG BSS    1           CODE GENERATION WITH CYBER CODE GENERATOR   FTN5TXT  1042
      L      3                     1     PASS=END BSS    1           RELOCATE SYMBOL TABLES                      FTN5TXT  1043
      L      4                     1     PASS=MAP BSS    1           DURING REFERENCE MAP PROCESSING             FTN5TXT  1044
      L      5                     1     PASS=FAS BSS    1           ASSEMBLING PREBINARY                        FTN5TXT  1045
            12                                    LOC    *O                                                      FTN5TXT  1046
  
  
  
  
                                        **        ICDEF - CREATE AN I/O CONTROL VALUE AND LABEL.                 FTN5TXT  1048
                                        *                                                                        FTN5TXT  1049
                                        *         ICDEF  ICN                                                     FTN5TXT  1050
                                        *                                                                        FTN5TXT  1051
                                        *         ENTRY  ICN = NAME OF I/O CODE TO BE DEFINED.                   FTN5TXT  1052
                                                                                                                 FTN5TXT  1053
                                                                                                                 FTN5TXT  1054
                                                  MACRO  ICDEF,NAME,NULL                                         FTN5TXT  1055
                                                  IFC    EQ,  NAME ,2                                            FTN5TXT  1056
                                                  BSS    1                                                       FTN5TXT  1057
                                                  SKIP   1                                                       FTN5TXT  1058
                                         IC.NAME  BSS    1                                                       FTN5TXT  1059
                                         ICDEF    ENDM                                                           FTN5TXT  1060
                                                                                                                 FTN5TXT  1061
  
  
  
  
                                        **        DEFINE I/O CONTROL CODES.                                      COMSIOC     3
                                                                                                                 COMSIOC     4
                                                                                                                 COMSIOC     5
      L      1                                    LOC    1                                                       COMSIOC     6
                                  12 +   IOCAD    EQU    *O                                                      COMSIOC     7
      L      1                     1     UNT      ICDEF  UNIT=                                                   COMSIOC     8
      L      2                     1     END      ICDEF  END=                                                    COMSIOC     9
      L      3                     1     ERR      ICDEF  ERR=                                                    COMSIOC    10
      L      4                     1     FMT      ICDEF  FMT=                                                    COMSIOC    11
      L      5                     1     IOS      ICDEF  IOSTAT=                                                 COMSIOC    12
      L      6                     1     REC      ICDEF  REC=                                                    COMSIOC    13
      L      7                     1     SKP      ICDEF  SKIP                                                    COMSIOC    14
      L     10                     1     NML      ICDEF  NAMELIST NAME (GROUP)                                   COMSIOC    15
      L     11                     1              ICDEF                                                          COMSIOC    16
      L     12                     1              ICDEF                                                          COMSIOC    17
      L     13                     1              ICDEF                                                          COMSIOC    18
      L     14                     1     ACC      ICDEF  ACCESS=                                                 COMSIOC    19
      L     15                     1     BLK      ICDEF  BLANK=                                                  COMSIOC    20
      L     16                     1     BFL      ICDEF  BUFL=                                                   COMSIOC    21
      L     17                     1     DIR      ICDEF  DIRECT=                                                 COMSIOC    22
      L     20                     1     EXS      ICDEF  EXIST=                                                  COMSIOC    23
      L     21                     1     FIL      ICDEF  FILE=                                                   COMSIOC    24
      L     22                     1     FOR      ICDEF  FORM=                                                   COMSIOC    25
      L     23                     1     FMD      ICDEF  FORMATTED=                                              COMSIOC    26
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    81
        SYMBOL DEFINITIONS.                                           COMSIOC 
  
      L     24                     1     NAM      ICDEF  NAME=                                                   COMSIOC    27
      L     25                     1     NMD      ICDEF  NAMED=                                                  COMSIOC    28
      L     26                     1     NXT      ICDEF  NEXTREC=                                                COMSIOC    29
      L     27                     1     NUM      ICDEF  NUMBER=                                                 COMSIOC    30
      L     30                     1     OPE      ICDEF  OPENED=                                                 COMSIOC    31
      L     31                     1     RCL      ICDEF  RECL=                                                   COMSIOC    32
      L     32                     1     SEQ      ICDEF  SEQUENTIAL=                                             COMSIOC    33
      L     33                     1     STA      ICDEF  STATUS=                                                 COMSIOC    34
      L     34                     1     UNF      ICDEF  UNFORMATTED=                                            COMSIOC    35
      L     35                     1     BUF      ICDEF  BFFER I/O FWA AND LWA                                   COMSIOC    36
      L     36                     1     CNT      ICDEF  ENCODE/DECODE COUNT                                     COMSIOC    37
      L     37                     1     MOD      ICDEF  BUFFER I/O MODE                                         COMSIOC    38
      L     40                     1     STR      ICDEF  ENCODE/DECODE STRING ADDRESS                            COMSIOC    39
      L     41                     1     FMTA     ICDEF  ASSIGNED FORMAT                                         COMSIOC    40
                                                                                                                 COMSIOC    41
            53                                    LOC    *O                                                      COMSIOC    42
                                                                                                                 FTN5TXT  1063
                                  42     IC=LEN   EQU    IC.FMTA+1                                               FTN5TXT  1064
  
  
  
  
                                        **        ODEF - DEFINE TOKEN VALUES.                                    FTN5TXT  1066
                                        *                                                                        FTN5TXT  1067
                                        *         TOKENS ARE THE PRIMARY FORM OF INPUT TO THE FRONT END OF THE   FTN5TXT  1068
                                        *         COMPILER PROPER.  *LEX* READS SOURCE LINES AND GENERATES       FTN5TXT  1069
                                        *         THE TOKENS COMPRISING A STATEMENT INTO (T.TB), THE TOKEN       FTN5TXT  1070
                                        *         BUFFER.  SEE GID AND LEX IMS FOR DETAIL CONTENTS OF TOKENS.    FTN5TXT  1071
                                        *                                                                        FTN5TXT  1072
                                        *         NOTICE THAT NOT ALL TOKENS CORRESPOND DIRECTLY TO FORTRAN      FTN5TXT  1073
                                        *         SOURCE LANGUAGE CONSTRUCTS.  SOME ARE INVENTED INTERNALLY,     FTN5TXT  1074
                                        *         BUT THEY ARE QUITE REAL TO THE PARSER.                         FTN5TXT  1075
                                        *                                                                        FTN5TXT  1076
                                        *         SEVERAL PARALLEL TABLES MUST BE KEPT IN SYNCH WITH THESE       FTN5TXT  1077
                                        *         VALUES:        (  LO  ..  HI  )         DECK --                FTN5TXT  1078
                                        *                CHARMAP (O.DEF .. O.ERR)         FEC                    FTN5TXT  1079
                                        *                F.CONO  (O.DEF .. O.ILL)         PAR                    FTN5TXT  1080
                                        *                F.POPNX (O.DEF .. O.ILL)         PAR                    FTN5TXT  1081
                                        *                F.PRIOR (O.SEP .. O.ILL)         PAR                    FTN5TXT  1082
                                                                                                                 FTN5TXT  1083
                                  52     MAX.ORD  EQU    42D         BITS AVAILABLE IN (F.CONO)                  FTN5TXT  1084
                                                                                                                 FTN5TXT  1085
                                                                                                                 FTN5TXT  1086
                                                  MACRO  ODEF,NAME,EQUATE                                        FTN5TXT  1087
                                                  IFC    NE,  EQUATE ,2                                          FTN5TXT  1088
                                         O.NAME   EQU    O.EQUATE                                                FTN5TXT  1089
                                                  SKIP   1                                                       FTN5TXT  1090
                                         O.NAME   BSS    1                                                       FTN5TXT  1091
                                         ODEF     ENDM                                                           FTN5TXT  1092
                                                                                                                 FTN5TXT  1093
      L      0                                    LOC    0           INITIALIZE DEFINITION ORDINAL COUNTER       FTN5TXT  1094
                                                                                                                 FTN5TXT  1095
      L      0                     1     DEF      ODEF               ---- BEGINNING OF TOKENS                    FTN5TXT  1096
                                         EOS      ODEF   DEF                                                     FTN5TXT  1097
                                         BOS      ODEF   DEF                                                     FTN5TXT  1098
                                        *                            FOLLOWING ARE OPERANDS                      FTN5TXT  1099
      L      1                     1     HOLL     ODEF               NH...       HOLLERITH CONSTANT              FC5A258     6
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    82
        SYMBOL DEFINITIONS.                                           O.
  
      L      2                     1     QHOLL    ODEF               "           QUOTE HOLLERITH CONSTANT        FC5A258     7
      L      3                     1     RLCON    ODEF               R"          RIGHT ZERO FILLED HOLLERITH     FC5A258     8
                                                                     L"          LEFT ZERO FILLED HOLLERITH      FC5A258     9
      L      4                     1     CHAR     ODEF               '           CHARACTER CONSTANT              FTN5TXT  1101
      L      5                     1     CONS     ODEF               0 .. 9      DECIMAL DIGITS                  FTN5TXT  1102
      L      6                     1     OCT      ODEF               O"          OCTAL DIGITS                    FTN5TXT  1103
      L      7                     1     HEX      ODEF               X"          HEXADECIMAL DIGITS              FTN5TXT  1104
      L     10                     1     PERIOD   ODEF               .                                           FTN5TXT  1105
      L     11                     1     VAR      ODEF               A .. Z      ALPHABETIC                      FTN5TXT  1106
      L     12                     1     TRUE     ODEF               .TRUE.      LOGICAL CONSTANTS               FTN5TXT  1107
      L     13                     1     FALSE    ODEF               .FALSE.                                     FTN5TXT  1108
                                                                                                                 FTN5TXT  1109
      L     14                     1     SEP      ODEF               ---- BEGINNING OF SEPARATORS                FTN5TXT  1110
                                        *                            FOLLOWING ARE OPERATORS TO CONRED           FTN5TXT  1111
                                         PL       ODEF   SEP                                                     FTN5TXT  1112
      L     15                     1     MIN      ODEF                                                           FTN5TXT  1113
      L     16                     1     STAR     ODEF                                                           FTN5TXT  1114
                                         MULT     ODEF   STAR                                                    FTN5TXT  1115
      L     17                     1     SLASH    ODEF                                                           FTN5TXT  1116
                                         DIV      ODEF   SLASH                                                   FTN5TXT  1117
      L     20                     1     UMIN     ODEF               UNARY -                                     FTN5TXT  1118
      L     21                     1     EXP      ODEF               **                                          FTN5TXT  1119
      L     22                     1     LT       ODEF                                                           FTN5TXT  1120
      L     23                     1     GE       ODEF                                                           FTN5TXT  1121
      L     24                     1     EQ       ODEF                                                           FTN5TXT  1122
      L     25                     1     NE       ODEF                                                           FTN5TXT  1123
      L     26                     1     LE       ODEF                                                           FTN5TXT  1124
      L     27                     1     GT       ODEF                                                           FTN5TXT  1125
      L     30                     1     NOT      ODEF                                                           FTN5TXT  1126
      L     31                     1     AND      ODEF                                                           FTN5TXT  1127
      L     32                     1     XOR      ODEF                                                           FC51485    16
      L     33                     1     NEQV     ODEF                                                           FC51485    17
      L     34                     1     EQV      ODEF                                                           FTN5TXT  1129
      L     35                     1     OR       ODEF                                                           FTN5TXT  1130
      L     36                     1     CAT      ODEF               //                                          FTN5TXT  1131
                                                                                                                 FTN5TXT  1132
                                        *                            FOLLOWING DELIMIT EXPRESSIONS               FTN5TXT  1133
      L     37                     1     LP       ODEF                                                           FTN5TXT  1134
                                         (        ODEF   LP                                                      FTN5TXT  1135
      L     40                     1     RP       ODEF                                                           FTN5TXT  1136
                                         )        ODEF   RP                                                      FTN5TXT  1137
      L     41                     1     =        ODEF                                                           FTN5TXT  1138
      L     42                     1     COMMA    ODEF                                                           FTN5TXT  1139
                                         SDEF     ODEF   COMMA                                                   FTN5TXT  1140
      L     43                     1     COLON    ODEF               :                                           FTN5TXT  1141
      L     44                     1     SLP      ODEF               SPECIAL LEFT PAREN                          FTN5TXT  1142
                                         FLP      ODEF   SLP                                                     FTN5TXT  1143
                                         ILP      ODEF   SLP                                                     FTN5TXT  1144
      L     45                     1     STFA     ODEF               FORMAL PARAMETER TO USER STATEMENT FUNCTION FTN5TXT  1146
      L     46                     1     ILL      ODEF               ---- END OF SEPARATORS                      FTN5TXT  1147
                                                                                                                 FTN5TXT  1148
                                        *         FOLLOWING TOKENS ARE NEVER PARSER INPUT, BUT CAN VALIDLY       FTN5TXT  1149
                                        *         APPEAR FOLLOWING A LEGAL INPUT TOKEN.                          FTN5TXT  1150
                                                                                                                 FTN5TXT  1151
      L     47                     1     DOBI     ODEF               I/O DO BEGIN                                FTN5TXT  1152
                                         ENDNX    ODEF   DOBI        ---- END OF VALID FOLLOWERS                 FTN5TXT  1153
                                                                                                                 FTN5TXT  1154
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    83
        SYMBOL DEFINITIONS.                                           O.
  
                                        *         FOLLOWING TOKENS ARE NEVER SEEN AS PARSER INPUT, NOR ON        FTN5TXT  1155
                                        *         THE PARSING STACKS.                                            FTN5TXT  1156
                                                                                                                 FTN5TXT  1157
      L     50                     1     DOCI     ODEF               I/O DO CONCLUSION                           FTN5TXT  1158
      L     51                     1     DCBI     ODEF               I/O DO COLLAPSE BEGIN                       FTN5TXT  1159
      L     52                     1     DCCI     ODEF               I/O DO COLLAPSE CONCLUSION                  FTN5TXT  1160
      L     53                     1     SPACE    ODEF                                                           FTN5TXT  1161
      L     54                     1     NONE     ODEF               (QCG) = NEITHER     OPERAND USE-COUNTED     FTN5TXT  1162
      L     55                     1     1ST      ODEF               (QCG) = ONLY FIRST  OPERAND USE-COUNTED     FTN5TXT  1163
      L     56                     1     2ND      ODEF               (QCG) = ONLY SECOND OPERAND USE-COUNTED     FTN5TXT  1164
      L     57                     1     BOTH     ODEF               (QCG) = BOTH       OPERANDS USE-COUNTED     FTN5TXT  1165
      L     60                     1     ARY      ODEF               SUBSCRIPTED ARRAY LOAD (PAR TO QCG)         FTN5TXT  1166
      L     61                     1     MODC     ODEF               MODE CONVERSION (INFERNAL TO PARSER)        FTN5TXT  1167
      L     62                     1     MXP      ODEF               BOUNDARY MARKER (INTERNAL TO PARSER)        FTN5TXT  1168
      L     63                     1     SQOT     ODEF               SINGLE QUOTE    (INTERNAL TO LEX)           FTN5TXT  1169
      L     64                     1     DQOT     ODEF               DOUBLE QUOTE    (INTERNAL TO LEX)           FTN5TXT  1170
      L     65                     1     ERR      ODEF               SOURCE PROGRAM FATAL ERROR                  FTN5TXT  1171
                                                                     ---- O.ERR MUST BE LAST TOKEN VALUE         FTN5TXT  1172
           141                                    LOC    *O                                                      FTN5TXT  1173
                                  65     .1       SET    O.ERR-O.DEF       TOTAL NUMBER OF TOKENS                FTN5TXT  1174
                                   7              ERRMI  60-.1       TOO MANY TOTAL TOKEN TYPES                  FTN5TXT  1175
                                  47     .1       SET    O.ENDNX-O.DEF     NUMBER OF PARSABLE TOKENS             FTN5TXT  1176
                                   3              ERRMI  MAX.ORD-.1  TOO MANY TOKEN TYPES                        FTN5TXT  1177
  
  
  
  
                                        **        CHARMAP DESCRIPTORS                                            FTN5TXT  1179
                                        *                                                                        FTN5TXT  1180
                                                                                                                 FTN5TXT  1181
                                                  DESCRIBE CH.                                                   FTN5TXT  1182
      L     22  77777777777777000000     DPC      DEFINE 7*CHAR      ALPHA DESCRIPTION OF CHARACTER              FTN5TXT  1183
      L      0  00000000000000777777     OPC      DEFINE 18          TOKEN TYPE                                  FTN5TXT  1184
  
  
  
  
                                        **        ALL GLOBAL MICROS.                                             FTN5TXT  1186
                                                                                                                 FTN5TXT  1187
                                                                                                                 FTN5TXT  1188
                                         CCROPS   BITMIC (O.PL,O.MIN,O.STAR,O.SLASH,O.UMIN)                      FTN5TXT  1189
                                         C$*      LETMIC C$*         BIT MASK FOR CONTINUATION CARDS.            FTN5TXT  1190
                                         NUM09    LETMIC 0123456789  BIT MASK FOR NUMBERS *0 - 9*                FTN5TXT  1191
                                                                                                                 FTN5TXT  1192
                                         INT      LETMIC IJKLMN                                                  FTN5TXT  1193
                                         REAL     LETMIC ABCDEFGHOPQRSTUVWXYZ                                    FTN5TXT  1194
                                                                                                                 FTN5TXT  1195
                                         IOSEP    BITMIC (O.EOS,O.COMMA)                                         FTN5TXT  1196
                                         SPOP     BITMIC (O.SLP,O.LP)                                            FTN5TXT  1197
                                                                                                                 FTN5TXT  1198
                                         O.BOS    MICRO  1,, B0                                                  FTN5TXT  1199
                                                  IFEQ   O.HOLL,1,1                                              FTN5TXT  1200
                                         O.HOLL   MICRO  1,, B1                                                  FTN5TXT  1201
                                                                                                                 FTN5TXT  1202
                                         M.SEP    BITMIC (O.COMMA,O.SLASH,O.RP)                                  FTN5TXT  1204
                                         M.SEP1   BITMIC (O.COMMA,O.SLASH,O.LP)                                  FTN5TXT  1205
                                                                                                                 FTN5TXT  1206
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    84
        SYMBOL DEFINITIONS.                                           MICROS
  
                                         LEGT     BITMIC (O.LE,O.GT)                                             FTN5TXT  1207
  
  
  
  
                                        **        SOME SYMBOLS FOR EMIT MACRO.                                   FTN5TXT  1211
                                                                                                                 FTN5TXT  1212
                                                                                                                 FTN5TXT  1213
                                   0     DUC=     =      0           DUC.NONE                                    FTN5TXT  1214
                                   0     DUC=NONE =      0           DUC.NONE                                    FTN5TXT  1215
                                   1     DUC=1ST  =      1           DUC.1ST                                     FTN5TXT  1216
                                   2     DUC=2ND  =      2           DUC.2ND                                     FTN5TXT  1217
                                   3     DUC=BOTH =      3           DUC.BOTH                                    FTN5TXT  1218
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    85
        PSEUDO-INSTRUCTION DEFINITIONS.                               PSUD
  
                                        **        PSUD - CREATE A PSEUDO INSTRUCTION LABEL AND VALUE.            FTN5TXT  1221
                                        *                                                                        FTN5TXT  1222
                                        *         PSUD   PSN                                                     FTN5TXT  1223
                                        *                                                                        FTN5TXT  1224
                                        *         PSN -  NAME OF PSEUDO TO BE DEFINED.                           FTN5TXT  1225
                                        *                                                                        FTN5TXT  1226
                                        *         SAMPLE CALL --                                                 FTN5TXT  1227
                                        *                                                                        FTN5TXT  1228
                                        *         PSUD   APL         WILL PRODUCE   OC$APL, WHERE  0<OC$APL<77B. FTN5TXT  1229
                                                                                                                 FTN5TXT  1230
                                                                                                                 FTN5TXT  1231
                                                  PURGMAC PSUD                                                   FTN5TXT  1232
                                                                                                                 FTN5TXT  1233
                                         PSUD     MACRO  PSN                                                     FTN5TXT  1234
                                         OC$PSN   BSS    1                                                       FTN5TXT  1235
                                         PSUD     ENDM                                                           FTN5TXT  1236
                                                                                                                 FTN5TXT  1237
  
  
  
  
                                        **        IPSUD -            CREATE A PSEUDO INSTRUCTION LABEL AND VALUE FTN5TXT  1239
                                        *                                                                        FTN5TXT  1240
                                        *         IPSUD  PSNAME                                                  FTN5TXT  1241
                                        *                                                                        FTN5TXT  1242
                                        *         PSNAME -           NAME OF PSEUDO TO BE DEFINED.               FTN5TXT  1243
                                        *                                                                        FTN5TXT  1244
                                        *         SAMPLE CALL--                                                  FTN5TXT  1245
                                        *                                                                        FTN5TXT  1246
                                        *         IPSUD  UJP         WILL PRODUCE   I.UJP, WHERE  0<I.UJP<77B.   FTN5TXT  1247
                                                                                                                 FTN5TXT  1248
                                                                                                                 FTN5TXT  1249
                                                  PURGMAC IPSUD                                                  FTN5TXT  1250
                                                                                                                 FTN5TXT  1251
                                         IPSUD    MACRO  PSNAME                                                  FTN5TXT  1252
                                         I.PSNAME BSS    1                                                       FTN5TXT  1253
                                         IPSUD    ENDM                                                           FTN5TXT  1254
                                                                                                                 FTN5TXT  1255
  
  
  
  
                                        *         PSEUDO INSTRUCTION DEFINITIONS ARE GIVEN BELOW.                COMSPSU     3
                                                                                                                 COMSPSU     4
      L      0                                    LOC    0                                                       COMSPSU     5
                                 141 +   OCPSUD   EQU    *O                                                      COMSPSU     6
      L      0                     1              PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD               COMSPSU     7
      L      1                     1              PSUD   BSS                                                     COMSPSU     8
      L      2                     1              PSUD   APL         APLIST                                      COMSPSU     9
      L      3                     1              PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                COMSPSU    10
      L      4                     1              PSUD   CON         *READ* CONSTANT TABLE PSEUDO                COMSPSU    14
      L      5                     1              PSUD   END                                                     COMSPSU    17
      L      6                     1              PSUD   EQUN        NEGATIVE RELOCATION MACRO                   COMSPSU    18
      L      7                     1              PSUD   FMT         FORMAT/FMT MACRO                            COMSPSU    19
      L     10                     1              PSUD   FVEC        FILE POINTER WORD                           COMSPSU    20
      L     11                     1              PSUD   IDNT                                                    COMSPSU    22
      L     12                     1              PSUD   IOM                                                     COMSPSU    23
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    86
        PSEUDO-INSTRUCTION DEFINITIONS.                               PSUD
  
      L     13                     1              PSUD   LCC                                                     COMSPSU    24
      L     14                     1              PSUD   LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    25
      L     15                     1              PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                COMSPSU    26
      L     16                     1              PSUD   PLIM                                                    FC50049     6
      L     17                     1              PSUD   TRAC        GENERATE (TRACE.) WORD                      COMSPSU    30
      L     20                     1              PSUD   USE                                                     COMSPSU    31
                                                                                                                 COMSPSU    32
                                                                                                                 COMSPSU    33
                                 162 +   IPSUD    EQU    *O                                                      COMSPSU    34
      L     21                     1              IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                  COMSPSU    35
      L     22                     1              IPSUD  BOS         BEGINNING OF STATEMENT                      COMSPSU    36
      L     23                     1              IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                  COMSPSU    37
      L     24                     1              IPSUD  BSS         GENERATE A BSS                              COMSPSU    38
      L     25                     1              IPSUD  DATA        DATA SUB-TABLE HEADER                       COMSPSU    39
      L     26                     1              IPSUD  ECI         END CCG TYPE INSTRUCTION                    COMSPSU    40
      L     27                     1              IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                COMSPSU    41
      L     30                     1              IPSUD  JPI         GENERATE INDEXED JUMP                       COMSPSU    42
      L     31                     1              IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                COMSPSU    43
      L     32                     1              IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0            COMSPSU    44
      L     33                     1              IPSUD  LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    45
      L     34                     1              IPSUD  OTR         GENERATE  SB0    B0 + LINENUM               COMSPSU    46
      L     35                     1              IPSUD  RJ3         GENERATE  RJ                                COMSPSU    47
      L     36                     1              IPSUD  RJ6         GENERATE  RJT                               COMSPSU    48
      L     37                     1              IPSUD  SUBI        CREATE A SUB INDEX WORD                     COMSPSU    49
      L     40                     1              IPSUD  SB0I        CREATE A SUB0 INDEX WORD                    COMSPSU    50
      L     41                     1              IPSUD  UJP         GENERATE  EQ                                COMSPSU    51
      L     42                     1              IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK             COMSPSU    52
      L     43                     1              IPSUD  ZERO        OUTPUT A ZERO WORD                          COMSPSU    53
                                                                                                                 COMSPSU    54
                                  44     Z.PSUD   =      *L                                                      COMSPSU    55
                                  33              ERRMI  77B-*L      TOO MANY PSEUDOS                            COMSPSU    56
           205                                    LOC    *O                                                      COMSPSU    57
                                                                                                                 COMSPSU    58
                                        * PSU     ENDX                                                           COMSPSU    59
                                                                                                                 FTN5TXT  1257
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    87
        PREBINARY STRUCTURE DECLARATIONS                              K.TAG 
  
                                        **        K.TAG - VALUES OF TAG PREFIXES.                                COMSPBD     4
                                        *                                                                        COMSPBD     5
                                        *         IN THE BACK END (PASSES 2 + 3), OPERANDS ARE REPRESENTED       COMSPBD     6
                                        *         AS "TAGS".  A TAG CONSISTS OF TWO PARTS, A PREFIX AND AN       COMSPBD     7
                                        *         ORDINAL.  THE PREFIX DETERMINES HOW THE ORDINAL IS TO BE       COMSPBD     8
                                        *         INTERPRETED.                                                   COMSPBD     9
                                                                                                                 COMSPBD    10
                                                                                                                 COMSPBD    11
                                  17     P=PFX    EQU    15          POSITION OF PREFIX RELATIVE TO TAG FIELD    COMSPBD    12
                                  17     P=PFX    DECMIC P=PFX                                                   COMSPBD    13
                              100000     K=PFX    EQU    1S"P=PFX"   PREFIX MULTIPLIER FOR SHIFT                 COMSPBD    14
                                                                                                                 COMSPBD    15
                                                                                                                 COMSPBD    16
      L      0                                    LOC    0                         -- ORD FIELD IS --            COMSPBD    17
      L      0                     1     K=SYM    BSS    1                 T.SYM   SYMBOL TABLE ORDINAL          COMSPBD    18
      L      1                     1     K=GL     BSS    1                 T.GL    GENERATED LABEL               COMSPBD    19
      L      2                     1     K=AP     BSS    1                 T.API   AP-LIST INDEX                 COMSPBD    20
      L      3                     1     K=IO     BSS    1                 T.IOI   I/O APL INDEX                 COMSPBD    21
      L      4                     1     K=LC     BSS    1                 T.LCA   LCM POINTER WORD INDEX        COMSPBD    22
      L      5                           K=END    BSS    0                                                       COMSPBD    23
           212                                    LOC    *O                                                      COMSPBD    24
                                                                                                                 COMSPBD    25
                                                                                                                 COMSPBD    26
                                   0     K.SYM    EQU    K=SYM*K=PFX                                             COMSPBD    27
                              100000     K.GL     EQU    K=GL*K=PFX                                              COMSPBD    28
                              200000     K.AP     EQU    K=AP*K=PFX                                              COMSPBD    29
                              300000     K.IO     EQU    K=IO*K=PFX                                              COMSPBD    30
                              400000     K.LC     EQU    K=LC*K=PFX                                              COMSPBD    31
  
  
  
  
                                        **        T.PB - PREBINARY TABLE.                                        COMSPBD    33
                                        *                                                                        COMSPBD    34
                                        *         AS INSTRUCTIONS ARE COMPILED THEY ARE ENTERED INTO THE         COMSPBD    35
                                        *         *PREBINARY* ONE INSTRUCTION PER WORD.  THE *K* PORTION OF A    COMSPBD    36
                                        *         30 BIT INSTRUCTION WILL CONTAIN A *SHORT CONSTANT* OR A TAG.   COMSPBD    37
                                        *         WHEN THE END OF A SOURCE PROGRAM UNIT IS ENCOUNTERED, THE      COMSPBD    38
                                        *         *PREBINARY* (AND CONTENTS OF APPROPRIATE TABLES) ARE USED TO   COMSPBD    39
                                        *         GENERATE ACTUAL LOADER TEXT.                                   COMSPBD    40
                                        *                                                                        COMSPBD    41
                                        *         THE DIFFERENT ENTRY FORMATS ARE DESCRIBED BELOW --             COMSPBD    42
  
  
  
  
                                        *  1.     15 BIT INSTRUCTIONS                                            COMSPBD    44
                                        *         +--------------+---------------------------------------------+ COMSPBD    45
                                        *         +              +/////////////////////////////////////////////+ COMSPBD    46
                                        *         +   I N S T    +/////////////////////////////////////////////+ COMSPBD    47
                                        *         +              +/////////////////////////////////////////////+ COMSPBD    48
                                        *         +--------------+---------------------------------------------+ COMSPBD    49
                                        *                15                         45                           COMSPBD    50
                                        *         THE *BXI  XJ* (10B) INSTRUCTION IS COMPILED AS 10IJ0 AND       COMSPBD    51
                                        *         CHANGED LATER TO 10IJJ.                                        COMSPBD    52
                                                                                                                 COMSPBD    53
                                                  DESCRIBE PB.       PB(GH,I,J,K)                                COMSPBD    54
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    88
        PREBINARY STRUCTURE DECLARATIONS                              PB/SHORT
  
      L     55  77777000000000000000     INST     DEFINE 15          (GHIJK) = SHORT INSTRUCTION                 COMSPBD    55
                                                  DEFINE 45                                                      COMSPBD    56
                                                                                                                 COMSPBD    57
                                                  REDEF INST                                                     COMSPBD    58
      L     66  77000000000000000000     GH       DEFINE 6           OPCODE                                      COMSPBD    59
      L     63  00700000000000000000     I        DEFINE 3           I-REG                                       COMSPBD    60
      L     60  00070000000000000000     J        DEFINE 3           J-REG                                       COMSPBD    61
      L     55  00007000000000000000     K        DEFINE 3           K-REG                                       COMSPBD    62
  
  
  
  
                                        **  2.    LONG INSTRUCTIONS.                                             COMSPBD    64
                                        *         +-----------+-----------------+-----------------+------------+ COMSPBD    65
                                        *         +           +                 +                 +////////////+ COMSPBD    66
                                        *         +  G,H,I,J  +                 +                 +////////////+ COMSPBD    67
                                        *         +  OP-CODE  +     T  A  G     +    B  I  A  S   +////////////+ COMSPBD    68
                                        *         +           +                 +                 +////////////+ COMSPBD    69
                                        *         +-----------+-----------------+-----------------+------------+ COMSPBD    70
                                        *              12             18                 18             12       COMSPBD    71
                                                                                                                 COMSPBD    72
                                                                                                                 COMSPBD    73
                                                  REDEF                                                          COMSPBD    74
      L     60  77770000000000000000     GHIJ     DEFINE 12          OPCODE                                      COMSPBD    75
      L     36  00007777770000000000     TAG      DEFINE 18          SYMBOL (*IH* AND ORDINAL)                   COMSPBD    76
      L     14  00000000007777770000     BIAS     DEFINE 18                                                      COMSPBD    77
      L      0  00000000000000007777     H2       DEFINE 12          SYMORD OF ADDRESS DECREMENT                 COMSPBD    78
      L      0  00000000000000000007     BJR      DEQU   H2,3        B-REG FOR INDEXED JUMP                      COMSPBD    79
                                                                                                                 COMSPBD    80
                                                                                                                 COMSPBD    81
                                        **        (PB.TAG) IS THE REPRESENTATION OF AN OPERAND.                  COMSPBD    82
                                        *         SEE DEFINITION OF (K.TAG) ABOVE.                               COMSPBD    83
                                                                                                                 COMSPBD    84
                                                                                                                 COMSPBD    85
                                                  REDEF  TAG                                                     COMSPBD    86
      L     55  00007000000000000000     PFX      DEFINE 3           PREFIX                                      COMSPBD    87
                                                  DEFINE 1                                                       FC51078     6
      L     36  00000377770000000000     ORD      DEFINE 14          ORDINAL                                     FC51078     7
                                   0              ERRNZ  PB.PFXP-PB.ORDP-P=PFX                                   COMSPBD    90
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    89
        PREBINARY STRUCTURE DECLARATIONS                              PB/PSU
  
                                        **  3.    PSEUDO-INSTRUCTIONS.                                           COMSPBD    92
                                        *                                                                        COMSPBD    93
                                        *         WHEN (PB.GH) = 0, IT DOES NOT REPRESENT A "PS" INSTRUCTION     COMSPBD    94
                                        *         (HARDWARE 00), RATHER IT IS A DIRECTIVE TO THE ASSEMBLER,      COMSPBD    95
                                        *         COMMONLY TERMED A "PSEUDO-INSTRUCTION".                        COMSPBD    96
                                        *                                                                        COMSPBD    97
                                        *         THE FORMAT OF A PSEUDO-INSTRUCTION IS THE SAME AS FOR LONG     COMSPBD    98
                                        *         INSTRUCTIONS.  THE TAG, BIAS, AND BJR FIELDS CONTAIN THE       COMSPBD    99
                                        *         VARIOUS PARAMETERS.  SEE THE GID FOR PARTICULARS.              COMSPBD   100
  
  
  
  
                                        ***       T.IOA - I/O APLIST TABLE.                                      COMSPBD   102
                                        *                FORMAT DEFINED AS IA. .                                 COMSPBD   103
                                                                                                                 COMSPBD   104
                                   2     Z=IOA    EQU    2           WORDS PER ENTRY                             COMSPBD   105
                                                                                                                 COMSPBD   106
                                                                                                                 COMSPBD   107
                                        ***       T.CLW - I/O CHARACTER LENGTH ARRAY ITEM LENGTH.                COMSPBD   108
                                        *                FORMAT DEFINED AS IA. .                                 COMSPBD   109
                                                                                                                 COMSPBD   110
                                   2     Z=CLW    EQU    2           WORDS PER ENTRY                             COMSPBD   111
                                                                                                                 FTN5TXT  1259
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    90
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              COMSSYM 
  
                                        ***       COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.               COMSSYM     4
                                        *                                                                        COMSSYM     5
                                        *         THIS COMDECK CONTAINS SYMBOL DEFINITIONS FOR THE               COMSSYM     6
                                        *         FORTRAN 5 SYMBOL TABLE.                                        COMSSYM     7
  
  
  
  
                                        ***       T.SYM - SYMBOL NAMES AND ATTRIBUTES.                           COMSSYM     9
                                        *                                                                        COMSSYM    10
                                        *         THE SYMBOL TABLE CONTAINS ALL SYMBOLS REFERENCED BY THE        COMSSYM    11
                                        *         PROGRAMMER OR INVENTED BY THE COMPILER, AS WELL AS ALL         COMSSYM    12
                                        *         STATEMENT LABELS.                                              COMSSYM    13
                                        *                                                                        COMSSYM    14
                                        *         A SYMBOL TABLE ENTRY CONSISTS OF 3 WORDS, CALLED THE           COMSSYM    15
                                        *         (WA.), (WB.), AND (WC.) WORDS.  THE FIRST WORD IS              COMSSYM    16
                                        *         THE SAME FOR SYMBOLS AND STATEMENT LABELS.  INTERPRETATION     COMSSYM    17
                                        *         OF THE SECOND AND THIRD WORDS DEPENDS ON WB.LAB -- IT IS ZERO  COMSSYM    18
                                        *         FOR A SYMBOL, AND ONE FOR A LABEL.  THE FIELDS CONTAINED IN A  COMSSYM    19
                                        *         SYMBOL ENTRY ARE DESCRIBED BELOW, FOLLOWED BY THE DESCRIPTION  COMSSYM    20
                                        *         OF A LABEL ENTRY.                                              COMSSYM    21
                                        *                                                                        COMSSYM    22
                                        *                                                                        COMSSYM    23
                                        *         SYMBOL TABLE - SYMBOL FORMAT                                   COMSSYM    24
                                        *                                                                        COMSSYM    25
                                        *                                                                        COMSSYM    26
                                        *         1ST WORD - WA.                                                 COMSSYM    27
                                        *                                                                        COMSSYM    28
                                        *         +-----------------------------------------+-----------------+  COMSSYM    29
                                        *         +                                         +                 +  COMSSYM    30
                                        *         +      S  Y  M  B  O  L                   +  HASH POINTER   +  COMSSYM    31
                                        *         +                                         +                 +  COMSSYM    32
                                        *         +-----------------------------------------+-----------------+  COMSSYM    33
                                        *                             42                             18          COMSSYM    34
                                        *                                                                        COMSSYM    35
                                        *                                                                        COMSSYM    36
                                        *         2ND WORD - WB.                                                 COMSSYM    37
                                        *                                                                        COMSSYM    38
                                        *         +------------+--+-----------+-----------------------+-+-+---+  COMSSYM    39
                                        *         +            + L+    BASE   +                       +C+L+ M +  COMSSYM    40
                                        *         +   POINTER  + E+ --------- +   C L A S S   B I T S +G+A+ O +  COMSSYM    41
                                        *         +            + V+    FPNO   +                       +S+B+ D +  COMSSYM    42
                                        *         +------------+--+-----------+-----------------------+-+-+---+  COMSSYM    43
                                        *               13       2      12                28           1 1  3    COMSSYM    44
                                        *                                                                        COMSSYM    45
                                        *                                                                        COMSSYM    46
                                        *         3RD WORD - WC.                                                 COMSSYM    47
                                        *                                                                        COMSSYM    48
                                        *         +----------+-----------------+-+-+---+----------------------+  COMSSYM    49
                                        *         +   FUNI   +   CHAR LENGTH   +C+/+ B +                      +  COMSSYM    50
                                        *         + -------- + --------------- +T+/+ C +         RA           +  COMSSYM    51
                                        *         + REL BLK  +    ENTRY GL     +Y+/+ P +                      +  COMSSYM    52
                                        *         +----------+-----------------+-+-+---+----------------------+  COMSSYM    53
                                        *              12             18        1 1  4           24              COMSSYM    54
                                        *                                                                        COMSSYM    55
                                        *                                                                        COMSSYM    56
                                        *                                                                        COMSSYM    57
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    91
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              T.SYM 
  
                                        *         SYMBOL TABLE - STATEMENT LABEL FORMAT                          COMSSYM    58
                                        *                                                                        COMSSYM    59
                                        *                                                                        COMSSYM    60
                                        *         1ST WORD - WA.                                                 COMSSYM    61
                                        *                                                                        COMSSYM    62
                                        *         +-----------------------------------------+-----------------+  COMSSYM    63
                                        *         +                                         +                 +  COMSSYM    64
                                        *         +   S T A T E M E N T       L A B E L     +   HASH POINTER  +  COMSSYM    65
                                        *         +                                         +                 +  COMSSYM    66
                                        *         +-----------------------------------------+-----------------+  COMSSYM    67
                                        *                             42                             18          COMSSYM    68
                                        *                                                                        COMSSYM    69
                                        *                                                                        COMSSYM    70
                                        *         2ND WORD - WB. (NON FORMAT LABEL)                              FC50096     6
                                        *                                                                        COMSSYM    72
                                        *         +------------------+--------+------------------------+-+-+--+  FC50096     7
                                        *         +    LINE NUMBER   +////////+                        +C+L+//+  FC50096     8
                                        *         +    OF FIRST      +////////+         CLASS          +G+A+//+  FC50096     9
                                        *         +    REFERENCE     +////////+                        +S+B+//+  FC50096    10
                                        *         +------------------+--------+------------------------+-+-+--+  FC50096    11
                                        *                   18           9               28              1 1  3  FC50096    12
                                                                                                                 FC50096    13
                                        *         2ND WORD - WB. (FORMAT LABEL)                                  FC50096    14
                                                                                                                 FC50096    15
                                        *         +--------------+------------+------------------------+-+-+--+  FC50096    16
                                        *         +//////////////+   FORMAT   +                        +C+L+//+  FC50096    17
                                        *         +//////////////+   LENGTH   +         CLASS          +G+A+//+  FC50096    18
                                        *         +//////////////+            +                        +S+B+//+  FC50096    19
                                        *         +--------------+------------+------------------------+-+-+--+  FC50096    20
                                        *                15            12                28              1 1  3  FC50096    21
                                        *                                                                        COMSSYM    79
                                        *                                                                        COMSSYM    80
                                        *         3RD WORD - WC.                                                 COMSSYM    81
                                        *                                                                        COMSSYM    82
                                        *         +-----------+-----------------+-----+-----------------------+  COMSSYM    83
                                        *         +           +                 +/////+                       +  COMSSYM    84
                                        *         +  REL BLK  +  LINE NUMBER    +/////+         RA            +  FC50096    22
                                        *         +           +                 +/////+                       +  FC50096    23
                                        *         +-----------+-----------------+-----+-----------------------+  COMSSYM    87
                                        *              12             18           6            24               COMSSYM    88
                                                                                                                 COMSSYM    89
                                                                                                                 COMSSYM    90
                                   7     PSYM     EQU    7           LOG(2) OF SYMBOL TABLE HASH BASE            COMSSYM    91
                                   7     PSYM     DECMIC PSYM        ( = NUMBER OF BITS TO HASH)                 COMSSYM    92
                                 200     Z.HASH   EQU    1S"PSYM"    LENGTH OF HASH TABLE                        COMSSYM    93
                                                                                                                 COMSSYM    94
                                   3     Z=SYM    EQU    3           WORDS PER ENTRY                             COMSSYM    95
                                   6     CHAR     EQU    6                                                       COMSSYM    96
                                                                                                                 COMSSYM    97
                                                                                                                 COMSSYM    98
                                                  DESCRIBE WA.,,,0                                               COMSSYM    99
                                                                                                                 COMSSYM   100
      L     22  77777777777777000000     SYM      DEFINE 7*CHAR      SYMBOL NAME     (-0L- FORMAT)               COMSSYM   101
      L     22  77777777777777000000     NAME     DEQU   SYM                                                     COMSSYM   102
                                                  REDEF  SYM                                                     COMSSYM   103
                                                  DEFINE 1*CHAR                                                  COMSSYM   104
      L     30  00777777777700000000     STL      DEFINE 5*CHAR      STATEMENT LABEL (-0R- FORMAT)               COMSSYM   105
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    92
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              T.SYM 
  
                                                  DEFINE 1*CHAR                                                  COMSSYM   106
      L     21  00000000000000400000     NFP      DEFINE 1           CANNOT BE AN FP                             FC5A192     5
                                                  DEFINE 5                                                       FC5A192     6
      L      0  00000000000000007777     HASH     DEFINE 12                                                      FC5A192     7
                                                  REDEF  HASH                                                    COMSSYM   108
      L      0  00000000000000007777     BN       DEFINE 12                                                      COMSSYM   110
                                                                                                                 COMSSYM   111
                                                                                                                 COMSSYM   112
                                         VERR.    MICRO  1,, ILL-SYM       NO SUCH USER SYMBOL                   COMSSYM   113
  
  
  
  
                                        **        SYM/WB - ATTRIBUTE WORD.                                       COMSSYM   115
                                                                                                                 COMSSYM   116
                                                                                                                 COMSSYM   117
                                                  DESCRIBE WB.,,,1                                               COMSSYM   118
                                                                                                                 COMSSYM   119
      L    152  77777700000000000000     FR       DEFINE 18          (LAB) = LINE NUMBER OF FIRST REFERENCE      FC50096    24
                                                                                                                 FC50096    25
                                                  REDEF  FR                                                      FC50096    26
      L    155  77777000000000000000     STFP     DEFINE 15          (STF) = T.STF INDEX OF DEFINITION SKELETON  COMSSYM   120
      L    155  77777000000000000000     DI       DEQU   STFP        (DOGL) DO INDEX VARIABLE ORDINAL            COMSSYM   122
                                                                                                                 COMSSYM   123
                                                  REDEF  STFP                                                    COMSSYM   124
      L    157  77774000000000000000     PNT      DEFINE 13          (ARY)  = T.DIM INDEX OF DIMS                COMSSYM   125
                                                                     (NLST GRP NAME) = T.NLST INDEX OF GROUP     COMSSYM   126
      L    157  03774000000000000000     JPF      DEQU   PNT,9       (INTF) = F.INTF INDEX                       COMSSYM   127
      L    155  00003000000000000000     LEVN     DEFINE 2           LEVEL NUMBER                                COMSSYM   128
      L    141  00000777700000000000     BASE     DEFINE 12          SYMORD OF EQUIVALENCE CLASS BASE MEMBER     COMSSYM   129
      L    141  00000077700000000000     FPNO     DEQU   BASE,9      FORMAL PARAMETER NUMBER                     COMSSYM   130
      L    141  00000077700000000000     FPO      DEQU   FPNO                                                    COMSSYM   131
      L    141  00000777700000000000     FMTL     DEQU   BASE        (FDEF) = FORMAT LENGTH, CHARACTERS          COMSSYM   132
      L    141  00000777700000000000     TL       DEQU   BASE        (DOGL) ORDINAL OF DO TERMINAL LABEL         COMSSYM   133
      L    105  00000000077777777740     CLAS     DEFINE 28          SYMBOL CLASS BITS (SEE BELOW)               COMSSYM   134
      L    104  00000000000000000020     CGS      DEFINE             COMPILER GENERATED SYMBOL                   COMSSYM   135
      L    103  00000000000000000010     LAB      DEFINE             = 0 FOR A SYMBOL                            COMSSYM   136
                                                                     = 1 FOR A LABEL   (SEE BELOW)               COMSSYM   137
      L    100  00000000000000000007     MODE     DEFINE 3           MODE (TYPE)       (SEE BELOW)               COMSSYM   138
                                                                                                                 FC50096    27
                                                  REDEF  PNT,8       *PROPERTY* BITS FOR FILES                   COMSSYM   139
      L    173  40000000000000000000     FMT      DEFINE             A FORMATTED OPERATION APPEARED              COMSSYM   140
      L    172  20000000000000000000     BIN      DEFINE             A NON-FORMATTED OPERATION APPEARED          COMSSYM   141
      L    171  10000000000000000000     DIR      DEFINE             A DIRECT-ACCESS OPERATION APPEARED          COMSSYM   142
      L    170  04000000000000000000     SEQ      DEFINE             A SEQUENTIAL OPERATION APPEARED             COMSSYM   143
      L    167  02000000000000000000     BUF      DEFINE             A BUFFER-IN OR BUFFER-OUT OPERATION         COMSSYM   144
      L    166  01000000000000000000     EQU      DEFINE             AN EQUIVALENCED FILE                        COMSSYM   145
      L    165  00400000000000000000     AUX      DEFINE             AN AUXILLARY I/O OPERATION APPEARED         COMSSYM   146
      L    164  00200000000000000000     UDC      DEFINE             FILE UNIT DESIGNATOR IS CONSTANT            COMSSYM   147
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    93
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              WB.CLAS 
  
                                        **        WB.CLAS - CLASSIFICATION OF SYMBOL.                            COMSSYM   149
                                        *                                                                        COMSSYM   150
                                        *         WHEN (WB.LAB) = 0, THE (WB.CLAS) IS INTERPRETED AS FOLLOWS --  COMSSYM   151
                                        *                                                                        COMSSYM   152
                                        *         IF ANY OF THESE ARE SET, (WB.VAR) WILL BE SET --               COMSSYM   153
                                        *                BMEM, EQV, ARY, COM, MAT, SAVE, LCM, LEV, VDS           FC50252     6
                                        *         IF ANY OF THESE ARE SET, (WB.NVAR) WILL BE SET --              COMSSYM   156
                                        *                INTF, GENF, XTER, DEXT, SUB, FUN, NLST, ENT, PARM       FC50252     7
                                        *         ATTRIBUTE OR PROPERTY.                                         COMSSYM   158
                                                                                                                 COMSSYM   159
                                                                                                                 COMSSYM   160
                                                  REDEF  CLAS                                                    COMSSYM   161
      L    140  00000000040000000000     SFA      DEFINE             STATEMENT FUNCTION DUMMY ARGUMENT           FC50326     7
      L    137  00000000020000000000     1REF     DEFINE             STRAY NAME                                  COMSSYM   163
      L    136  00000000010000000000     MAT      DEFINE             MATERIALIZED, STORAGE REQUIRED              COMSSYM   164
      L    135  00000000004000000000     SAVE     DEFINE             DECLARED *SAVE*                             COMSSYM   165
      L    134  00000000002000000000     NLST     DEFINE             NAMELIST GROUP NAME                         COMSSYM   166
                                                                                                                 COMSSYM   167
                                        *         DATR - ATTRIBUTES DURING DECLARATIVES                          COMSSYM   168
      L    133  00000000001000000000     LEV      DEFINE             LEVELED -- (WB.LEVN) = LEVEL NUMBER         COMSSYM   169
      L    132  00000000000400000000     VDS      DEFINE             VARIABLE DIMENSION MUST BE INTEGER, FP/COM  FC50252     8
      L    131  00000000000200000000     TYP      DEFINE             WAS EXPLICITLY TYPED                        COMSSYM   171
      L    130  00000000000100000000     AGN      DEFINE             VARIABLE APPEARED IN *ASSIGN* STATEMENT     FC5A184     5
                                                                                                                 COMSSYM   173
      L    127  00000000000040000000     INTF     DEFINE             DECLARED *INTRINSIC*                        COMSSYM   174
      L    126  00000000000020000000     DEXT     DEFINE             DECLARED *EXTERNAL*                         COMSSYM   175
      L    125  00000000000010000000     GENF     DEFINE             GENERIC FUNCTION NAME                       COMSSYM   176
      L    124  00000000000004000000     LDO      DEFINE             LOAD-ONLY VARIABLE                (CCG DAP) COMSSYM   177
      L    124  00000000000004000000     SFX      DEQU   LDO         USED WHILE PARSING ST. FUNCTIONS            COMSSYM   178
      L    124  00000000000004000000     AGO2     DEQU   LDO         VARIABLE WAS OBJECT OF ASSIGNED GOTO        FC50252     9
      L    124  00000000000004000000     AL       DEQU   LDO         LEVN SET AUTOMATICALLY(DECL PHASE ONLY)     FC5A444    30
      L    123  00000000000002000000     BMEM     DEFINE             BASE MEMBER OF AN EQUIVALENCE CLASS         COMSSYM   179
      L    122  00000000000001000000     LOCF     DEFINE             IRREDUCIBLE REFS                  (CCG DAP) COMSSYM   180
                                                                                                                 COMSSYM   181
      L    115  00000000000000760000     CCGV     DEFINE 5           ORDERED FIELD                     (CCG DAP) COMSSYM   182
                                                  REDEF  CCGV                                                    COMSSYM   183
      L    121  00000000000000400000     LCM      DEFINE             RESIDES IN LARGE CORE                       COMSSYM   184
      L    120  00000000000000200000     FP       DEFINE             IS A FORMAL PARAMETER                       COMSSYM   185
      L    120  00000000000000600000     AET      DEQU   FP,2                                                    COMSSYM   186
      L    117  00000000000000100000     COM      DEFINE             IS IN A /COMMON/ BLOCK                      COMSSYM   187
      L    116  00000000000000040000     EXT      DEFINE             EXTERNAL NAME                               COMSSYM   188
      L    115  00000000000000020000     ENT      DEFINE             ENTRY POINT                                 COMSSYM   189
                                                                                                                 COMSSYM   190
      L    114  00000000000000010000     FUN      DEFINE             FUNCTION = SEE (WC.FUNT)                    COMSSYM   191
      L    113  00000000000000004000     SUB      DEFINE             SUBROUTINE                                  COMSSYM   192
      L    112  00000000000000002000     ARY      DEFINE             ARRAY                                       COMSSYM   193
      L    111  00000000000000001000     EQV      DEFINE                                                         COMSSYM   194
      L    110  00000000000000000400     PARM     DEFINE             NAME IS A *PARAMETER*                       COMSSYM   195
      L    110  00000000000000000400     MDF      DEQU   PARM        *MUST DEFINE* FLAG (VALUE. SYMBOLS ONLY)    FC5A191     5
      L    107  00000000000000000200     DEF      DEFINE             (VAR) = GETS STORED INTO                    COMSSYM   196
                                                                     (SUB, FUN) = ARG COUNT DETERMINED           COMSSYM   197
      L    106  00000000000000000100     NVAR     DEFINE             NOT A VARIABLE                              COMSSYM   198
      L    105  00000000000000000040     VAR      DEFINE             IS A VARIABLE                               COMSSYM   199
                                                                                                                 COMSSYM   200
                                         M.SYSXT  MICRO  1,, NVAR,EXT,CGS  ATTRIBUTES FOR FCL ROUTINES           COMSSYM   201
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    94
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              WB.MODE 
  
                                        **        WB.MODE - FORTRAN TYPE OF SYMBOL.                              COMSSYM   203
                                                                                                                 COMSSYM   204
                                                                                                                 COMSSYM   205
                                   7     MD.MODE  EQU    7           UPPER LIMIT VALUE OF MODE                   COMSSYM   206
                                                                                                                 COMSSYM   207
                                   0     M.BOOL   EQU    0           BOOLEAN                                     COMSSYM   208
                                   1     M.LOG    EQU    1           LOGICAL                                     COMSSYM   209
                                   2     M.INT    EQU    2           INTEGER                                     COMSSYM   210
                                   3     M.REAL   EQU    3           REAL                                        COMSSYM   211
                                   4     M.DBL    EQU    4           DOUBLE PRECISION                            COMSSYM   212
                                   5     M.CPLX   EQU    5           COMPLEX                                     COMSSYM   213
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          COMSSYM   214
                                   6     M.CHAR   EQU    6           CHARACTER                                   COMSSYM   215
                                                                                                                 COMSSYM   216
                                   7     N.TYPE   EQU    M.CHAR+1    NUMBER OF TYPES                             COMSSYM   217
  
  
  
  
                                        **        WB.CLAS - CLASSIFICATION OF STATEMENT LABEL.                   COMSSYM   219
                                        *                                                                        COMSSYM   220
                                        *         WHEN (WB.LAB) = 1, THE (WB.CLAS) IS INTERPRETED AS FOLLOWS --  COMSSYM   221
                                                                                                                 COMSSYM   222
                                                                                                                 COMSSYM   223
                                                  REDEF  CLAS                                                    COMSSYM   224
                                                  DEFINE             (RESERVED FOR UNTERM DO LAB)                COMSSYM   225
      L    137  00000000020000000000     1REF     DEFINE             STRAY NAME                                  COMSSYM   226
      L    136  00000000010000000000     ALRN     DEFINE 1           LABEL REFERENCED BY A *ALTERNATE RETURN*    FC51356     7
      L    135  00000000004000000000     GOTO     DEFINE 1           LABEL REFERENCED(NOT AN *ALTERNATE RETURN*) FC51356     8
      L    134  00000000002000000000     INDO     DEFINE             LABEL IN DO WHICH HAS EXIT                  FC50015     8
      L    133  00000000001000000000     NIN      DEFINE             DO LOOP HAS (POSSIBLE) NEG. INCREMENT       COMSSYM   228
      L    132  00000000000400000000     DLPE     DEFINE             LABEL IS POSSIBLE ENTRY OF DO LOOP          COMSSYM   229
      L    131  00000000000200000000     DLC      DEFINE             DO LOOP HAS BEEN CLOSED                     COMSSYM   230
      L    130  00000000000100000000     LC       DEFINE             CCG INTERNAL                      (CCG DAP) COMSSYM   231
      L    127  00000000000040000000     NDEF     DEFINE             APPEARED AS LABEL ON NON-EXECUTABLE         COMSSYM   232
      L    126  00000000000020000000     UDEF     DEFINE             UNDEFINED                                   COMSSYM   233
                                                                                                                 COMSSYM   234
                                        *                                  (ATTRIBUTES OF FORMATS)               COMSSYM   235
      L    125  00000000000010000000     FREF     DEFINE             REFERENCED AS FORMAT                        COMSSYM   236
      L    124  00000000000004000000     FDEF     DEFINE             DEFINED AS FORMAT                           COMSSYM   237
      L    123  00000000000002000000     PRD      DEFINE             DO PARAMETER RE-DEFINED IN THIS LOOP        COMSSYM   238
                                                                                                                 COMSSYM   239
                                        *                                  (DO-LOOP PROPERTIES)                  COMSSYM   240
      L    116  00000000000001740000     DLNO     DEFINE 5           (CCG)  LOOP IS NOT OPTIMIZABLE              COMSSYM   241
                                                  REDEF  DLNO                                                    COMSSYM   242
      L    122  00000000000001000000     DLBB     DEFINE             LOOP CONTAINS A BACKWARD BRANCH             COMSSYM   243
      L    121  00000000000000400000     DLEN     DEFINE             LOOP CONTAINS AN ENTRY                      COMSSYM   244
      L    120  00000000000000200000     DLEX     DEFINE             LOOP HAS AN EXIT                            COMSSYM   245
      L    117  00000000000000100000     DLNI     DEFINE             LOOP IS NOT INNERMOST                       COMSSYM   246
      L    116  00000000000000040000     DLER     DEFINE             LOOP CONTAINS EXTERNAL REFERENCES           COMSSYM   247
      L    115  00000000000000020000     DOGL     DEFINE             GENERATED LABEL FOR DO-TOP                  COMSSYM   248
      L    114  00000000000000010000     DMAT     DEFINE             (CCG)  LOOP INDEX TO BE MATERIALIZED        COMSSYM   249
      L    113  00000000000000004000     ACT      DEFINE             LABEL IS ACTIVE (WILL BE EXECUTED)          COMSSYM   250
      L    112  00000000000000002000     INA      DEFINE             LABEL IS INACTIVE (CANNOT BE REFERENCED)    COMSSYM   251
                                                                                                                 COMSSYM   252
                                        *                                  (NORMAL STATEMENT LABELS)             COMSSYM   253
      L    111  00000000000000001000     SLEN     DEFINE             IS ENTRY TO A DO-LOOP                       COMSSYM   254
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    95
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              LABELS
  
      L    110  00000000000000000400     SLEX     DEFINE             IS EXIT FROM A DO-LOOP                      COMSSYM   255
      L    107  00000000000000000200     DEF      DEFINE             INSURE SAME POSITION                        COMSSYM   256
      L    107  00000000000000000200     SDEF     DEQU   DEF         DEFINED AS EXECUTABLE LABEL                 COMSSYM   257
      L    106  00000000000000000100     SREF     DEFINE             REFERENCED AS EXECUTABLE LABEL              COMSSYM   258
      L    105  00000000000000000040     DOT      DEFINE             LABEL IS A DO-TERMINAL                      COMSSYM   259
                                                                                                                 COMSSYM   260
                                   0              ERRNZ  WB.DOTP-WB.CLASP                                        COMSSYM   261
  
  
  
  
                                        **        SYM/WC - THIRD WORD.                                           COMSSYM   263
                                                                                                                 COMSSYM   264
                                                                                                                 COMSSYM   265
                                                  DESCRIBE WC.,,,2                                               COMSSYM   266
                                                                                                                 COMSSYM   267
      L    260  77770000000000000000     FUNI     DEFINE 12          FUNCTION INFO         (SEE BELOW)           COMSSYM   268
      L    260  77770000000000000000     RLRB     DEQU   FUNI        RELOCATION GROUP      (SEE BELOW)           COMSSYM   269
      L    235  00007777774000000000     CLIF     DEFINE 19          CHARACTER LENGTH INFORMATION                COMSSYM   270
                                                  REDEF  CLIF                                                    COMSSYM   271
      L    236  00007777770000000000     CLEN     DEFINE 18          CHARACTER LENGTH                            COMSSYM   272
      L    236  00007777770000000000     LINE     DEQU   CLEN        (LAB) = LINE NUMBER OF DEFINITION           COMSSYM   273
      L    236  00007777770000000000     DVP      DEQU   CLEN        DATA VALUE POINTER (TO T.DVV)               COMSSYM   274
      L    236  00007777770000000000     MRL      DEQU   CLEN        FILE MAXIMUM RECORD LENGTH                  COMSSYM   275
      L    236  00000777770000000000     EGL      DEQU   CLEN,15     GL FOR ENTRY POINT                          COMSSYM   276
      L    235  00000000004000000000     CTYP     DEFINE             CHARACTER LENGTH TYPE                       COMSSYM   277
                                                                     0 = CONSTANT LENGTH                         COMSSYM   278
                                                                     1 = *                                       COMSSYM   279
                                                  DEFINE                                                         COMSSYM   280
      L    230  00000000001700000000     BCP      DEFINE 4           BEGINNING CHARACTER POSITION                COMSSYM   281
      L    200  00000000000077777777     RA       DEFINE 24          BLOCK-RELATIVE ADDRESS                      COMSSYM   282
      L    200  00000000000000777777     BRAD     DEQU   RA,18       BRANCH ADDRESS FOR DO. (CONRED/*SED*)       COMSSYM   283
      L    200  00000000000000777777     BFL      DEQU   RA,18       FILE BUFFER LENGTH                          COMSSYM   284
      L    200  00000000000000777777     IEF      DEQU   RA,18       SYMTAB INDEX OF EQUIVALENCED FILE           COMSSYM   285
      L    200  00000000000000017777     LDTL     DEQU   RA,13       LINK (SYMORD) TO DO-TOP LABEL (LABELS ONLY) COMSSYM   286
  
  
  
  
                                        **        WC.FUNI - FUNCTION INFORMATION.                                COMSSYM   288
                                        *                                                                        COMSSYM   289
                                        *         INTERPRET WHEN (WB.FUN) SET.                                   COMSSYM   290
                                                                                                                 COMSSYM   291
                                                                                                                 COMSSYM   292
                                                  REDEF  FUNI                                                    COMSSYM   293
      L    271  70000000000000000000     FUNT     DEFINE 3           FUNCTION TYPE  (SEE MF.XXX)                 COMSSYM   294
      L    260  07770000000000000000     ARGC     DEFINE 9                                                       COMSSYM   295
                                                                                                                 COMSSYM   296
                                   0     MF.USER  EQU    0           USER EXTERNAL FUNCTION                      COMSSYM   297
                                   1     MF.STF   EQU    1           USER STATEMENT FUNCTION                     COMSSYM   298
                                   2     MF.LIB   EQU    2           LIBRARY FUNCTION   (..QQ..)                 COMSSYM   299
                                   3     MF.BEF   EQU    3           INTRINSIC EXTERNAL FUNCTION                 COMSSYM   300
                                   4     MF.INL   EQU    4           INTRINSIC INLINE FUNCTION                   COMSSYM   301
                                                                                                                 COMSSYM   302
                                                                                                                 COMSSYM   303
                                        *         FOR AN EXTERNAL INTRINSIC (MF.BEF), THE FOLLOWING              COMSSYM   304
                                        *         FIELDS ARE ALSO USED.                                          COMSSYM   305
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    96
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              WC.FUNI 
  
                                                                                                                 COMSSYM   306
                                                                                                                 COMSSYM   307
                                                  REDEF  RA                                                      COMSSYM   308
      L    222  00000000000077000000     SHC      DEFINE 6           SHIFT COUNT FOR APPENDING SUFFIX            COMSSYM   309
                                                  DEFINE 10                                                      COMSSYM   310
      L    200  00000000000000000377     BRP      DEFINE 8           +/ 2**(B-REG PRESERVED)                     COMSSYM   311
  
  
  
  
                                        **        WC.RLRB - RELOCATION GROUP INFO.                               COMSSYM   313
                                        *                                                                        COMSSYM   314
                                        *         THIS FIELD PER CCG SPEC.                                       COMSSYM   315
                                                                                                                 COMSSYM   316
                                                                                                                 COMSSYM   317
                                                  REDEF  RLRB                                                    COMSSYM   318
      L    272  60000000000000000000     RL       DEFINE 2           RELOCATION TYPE       (SEE ML.XXX)          COMSSYM   319
      L    260  17770000000000000000     RB       DEFINE 10          RELOCATION BASE = BLOCK INDEX               FC50933     7
                                                                                                                 COMSSYM   322
                                   0     ML.ABS   EQU    0           ABSOLUTE                                    COMSSYM   323
                                   1     ML.PROG  EQU    1           PROGRAM                                     COMSSYM   324
                                   2     ML.COM   EQU    2           COMMON                                      COMSSYM   325
                                   3     ML.EXT   EQU    3           EXTERNAL                                    COMSSYM   326
  
  
  
  
                                        **        VD. - VARDIM TABLE.                                            COMSSYM   328
                                        *         DEFINE VD. (FORMAT OF VARDIM INFORMATION TABLE)                COMSSYM   329
                                                                                                                 COMSSYM   330
                                                                                                                 COMSSYM   331
                                        *         +-+-+----+----------------+----------------+----------------+  COMSSYM   332
                                        *         +M+A+////+   INDEX (FE)   +     FIRST      +     NUMBER     +  COMSSYM   333
                                        *         +A+L+////+----------------+     TURPLE     +       OF       +  COMSSYM   334
                                        *         +T+O+////+   BIAS  (CG)   +     ORDINAL    +     TURPLES    +  COMSSYM   335
                                        *         +-+-+----+----------------+----------------+----------------+  COMSSYM   336
                                        *          1 1   4         18               18               18          COMSSYM   337
                                                                                                                 COMSSYM   338
                                                                                                                 COMSSYM   339
                                                  DESCRIBE VD.                                                   COMSSYM   340
      L     73  40000000000000000000     MAT      DEFINE 1           THIS VD. CELL USED BY GEN. CODE             COMSSYM   341
      L     72  20000000000000000000     ALO      DEFINE 1           THIS CELL ALLOWED IN THIS ENTRY (*OTC*/*OVC COMSSYM   342
      L     72  60000000000000000000     MA       DEQU   ALO,2                                                   COMSSYM   343
                                                  DEFINE 4                                                       COMSSYM   344
      L     44  00777777000000000000     CA       DEFINE 18          ACTUAL BIAS FOR THIS CELL (CODE GENERATOR)  COMSSYM   345
      L     44  00777777000000000000     IND      DEQU   CA          INDEX OF VD. STORE OPERAND (FRONT END)      COMSSYM   346
      L     22  00000000777777000000     PNT      DEFINE 18          ORDINAL TO VARDIM TURPLE TABLE              COMSSYM   347
      L      0  00000000000000777777     LEN      DEFINE 18          NUMBER OF TURPLES                           COMSSYM   348
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    97
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              FORPAR
  
                                        **        FP. - FORMAL PARAMETER TABLE.                                  COMSSYM   350
                                        *         DEFINE FP. (FORMAT OF FORMAL PARAMETER INFORMATION TABLE).     COMSSYM   351
                                                                                                                 FC5A231    13
                                                                                                                 FC5A231    14
                                        *         +-+-+-+-+-----+-------------+-----------------+--------------+ FC50252    10
                                        *         +V+L+V+L+     +             +                 +              + FC50252    11
                                        *         +D+C+D+E+ CA  +     LEN     +       SUB0      +     PNT      + FC50252    12
                                        *         +S+ + +V+     +             +                 +              + FC50252    13
                                        *         +-+-+-+-+-----+-------------+-----------------+--------------+ FC50252    14
                                        *          1 1 1 1   6         14              18              18        FC50252    15
                                                                                                                 FC5A231    21
                                                                                                                 COMSSYM   352
                                                  DESCRIBE FP.                                                   COMSSYM   353
      L     73  40000000000000000000     VDS      DEFINE 1           USED IN VARDIM                              COMSSYM   354
      L     72  20000000000000000000     LC       DEFINE 1           IF CCG MADE LOCAL COPY                      COMSSYM   355
      L     71  10000000000000000000     VD       DEFINE 1           USED IN ISSUED VARDIM                       COMSSYM   356
      L     70  04000000000000000000     LEV0     DEFINE 1           IF LEVEL 0 F.P.                             COMSSYM   357
      L     62  03740000000000000000     CA       DEFINE 6           BIAS OF LOCAL COPY (CCG ASSIGNED)           FC50252    16
      L     44  00037777000000000000     LEN      DEFINE 14          NUMBER OF SUB REFERENCES FOR THIS FP        FC50252    17
      L     44  00037777000000000000     SUB      DEQU   LEN         INDEX INTO SUB TABLE                        COMSSYM   360
      L     22  00000000777777000000     SUB0     DEFINE 18          NUMBER OF LEVEL 0 REFERENCES                COMSSYM   362
      L      0  00000000000000777777     PNT      DEFINE 18          SYMBOL TABLE ORDINAL OF THIS FP.            COMSSYM   363
  
  
  
  
                                        ***       T.BLKS - COMMON BLOCK NAME TABLE.                              COMSSYM   365
                                        *                                                                        COMSSYM   366
                                        *         CONTAINS COMMON BLOCK NAMES AND LENGTHS.                       COMSSYM   367
                                        *         ZEROTH ENTRY IS NOT USED:  IT IS A PSUEDO-BLOCK FOR PROGRAM-   COMSSYM   368
                                        *                RELATIVE ADDRESS GAMES.                                 COMSSYM   369
                                        *                                                                        COMSSYM   370
                                        *         THERE IS 1 POINTER WORD FOR EACH ECS/LCM COMMON BLOCK.  IT     COMSSYM   371
                                        *                IS REFERENCED VIA THE LCA TAG STORED IN *CB.TAG*.       COMSSYM   372
                                        *         THE CNFL BIT IS ON IF NAMES IN THE COMMON BLOCK ARE ASSIGNED   COMSSYM   373
                                        *                TO CONFLICTING LEVELS.                                  COMSSYM   374
                                        *         THE DFLT BIT IS ON IF ONE OR MORE NAMES ARE DEFAULTED TO THE   COMSSYM   375
                                        *                LEVEL ESTABLISHED FOR THE BLOCK.                        COMSSYM   376
                                        *         THE CHAR BIT IS ON IF FIRST MEMBER OF THE COMMON BLOCK IS      COMSSYM   377
                                        *                DECLARED MODE CHARACTER.                                COMSSYM   378
                                        *         THE NAC BIT IS ON IF SUBSEQUENT NAMES IN THE COMMON BLOCK      COMSSYM   379
                                        *                HAVE CONFLICTING CHAR/ NON-CHAR MODES WITH THE FIRST.   COMSSYM   380
                                        *                                                                        COMSSYM   381
                                        *                                                                        COMSSYM   382
                                        *         1ST WORD - CA.                                                 COMSSYM   383
                                        *                                                                        COMSSYM   384
                                        *         +--------------------------------------+-+-+----+-----------+  COMSSYM   385
                                        *         +                                      +C+N+ L  +   LAST    +  COMSSYM   386
                                        *         +                BLOCK NAME            +H+A+ V  +  MEMBER   +  COMSSYM   387
                                        *         +                                      +R+C+ L  +   INDEX   +  COMSSYM   388
                                        *         +--------------------------------------+-+-+----+-----------+  COMSSYM   389
                                        *                              42                 1 1  4        12       COMSSYM   390
                                        *                                                                        COMSSYM   391
                                        *                                                                        COMSSYM   392
                                        *         2ND WORD - CB.                                                 COMSSYM   393
                                        *                                                                        COMSSYM   394
                                        *         +-+-+----+-----------+---------------+----------------------+  COMSSYM   395
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    98
        COMSSYM - SYMBOL NAME AND ATTRIBUTE DESCRIPTORS.              T.BLKS
  
                                        *         +L+S+  R +   FIRST   +      LCM      +                      +  COMSSYM   396
                                        *         +C+A+  N +   MEMBER  +    POINTER    +       LENGTH         +  COMSSYM   397
                                        *         +M+V+  C +   INDEX   +      TAG      +                      +  COMSSYM   398
                                        *         +-+-+----+-----------+---------------+----------------------+  COMSSYM   399
                                        *          1 1   4       12            18                24              COMSSYM   400
                                                                                                                 COMSSYM   401
                                                                                                                 COMSSYM   402
                                   2     Z=BLKS   EQU    2           WORDS PER BLOCK TABLE ENTRY                 COMSSYM   403
                                                                                                                 COMSSYM   404
                                                                                                                 COMSSYM   405
                                                  DESCRIBE CA.,,,0                                               COMSSYM   406
      L     22  77777777777777000000     BNAM     DEFINE 7*6         BLOCK NAME                                  COMSSYM   407
      L     21  00000000000000400000     CHAR     DEFINE 1           BLOCK HAS CHARACTER ENTITIES                COMSSYM   408
      L     20  00000000000000200000     NAC      DEFINE 1           CHARACTER CONFLICT                          COMSSYM   409
      L     14  00000000000000170000     LVL      DEFINE 4           LEVEL FIELDS                                COMSSYM   410
                                                  REDEF  LVL                                                     COMSSYM   411
      L     17  00000000000000100000     CNFL     DEFINE 1           LEVEL CONFLICT                              COMSSYM   412
      L     16  00000000000000040000     DFLT     DEFINE 1           LEVEL DEFAULT                               COMSSYM   413
      L     14  00000000000000030000     BLVL     DEFINE 2           BLOCK LEVEL                                 COMSSYM   414
      L      0  00000000000000007777     LMI      DEFINE 12          INDEX OF LAST MEMBER OF BLOCK IN T.COMM     COMSSYM   415
                                                                                                                 COMSSYM   416
                                                                                                                 COMSSYM   417
                                                  DESCRIBE CB.,,,1                                               COMSSYM   418
      L    173  40000000000000000000     LCM      DEFINE 1           BLOCK RESIDES IN ECS/LCM                    COMSSYM   419
      L    172  20000000000000000000     SAVE     DEFINE 1           BLOCK APPEARED IN SAVE DECLARATION          COMSSYM   420
      L    166  17000000000000000000     RNC      DEFINE 4           REMAIN. CHAR CNT BEFORE ROUNDING BLK LEN    COMSSYM   421
      L    152  00777700000000000000     FMI      DEFINE 12          INDEX OF FIRST MEMBER OF BLOCK IN T.COMM    COMSSYM   422
      L    130  00000077777700000000     TAG      DEFINE 18          ECS/LCM POINTER TAG (K=LC)                  COMSSYM   423
      L    100  00000000000077777777     BLEN     DEFINE 24          LENGTH (WORDS IN BLOCK, ROUNDED)            COMSSYM   424
                                                                                                                 FTN5TXT  1261
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE    99
        TABLE AND STRUCTURE DECLARATIONS.                             TG. 
  
                                        **        TG. - GENERAL TAG FIELD LAYOUT.                                FTN5TXT  1264
                                        *                                                                        FTN5TXT  1265
                                        *         ****   THIS FORMAT IS OBSOLETE (AS OF FRAG 4).  SEE (PB.)      FTN5TXT  1266
                                        *                DEFINITION FOR TAG FIELD LAYOUT.                        FTN5TXT  1267
                                        *                THE (TG.) DEFINITIONS MAY BE REMOVED WHEN *QCG*         FTN5TXT  1268
                                        *                CONVERTS TO THE NEW WORLD.                              FTN5TXT  1269
                                                                                                                 FTN5TXT  1270
                                                                                                                 FTN5TXT  1271
                                                  DESCRIBE  TG.,18                                               FTN5TXT  1272
                              760000     PFX      DEFINE 5                                                       FTN5TXT  1273
                              017777     ORD      DEFINE 13                                                      FTN5TXT  1274
  
  
  
  
                                        **        T.TB - TOKEN BUFFER.                                           FTN5TXT  1276
                                                                                                                 FTN5TXT  1277
                                                                                                                 FTN5TXT  1278
                                                  DESCRIBE TB.                                                   FTN5TXT  1279
      L     22  77777777777777000000     TOC      DEFINE 42          TOKEN CHARACTER STRING                      FTN5TXT  1280
      L      0  00000000000000777777     TOT      DEFINE 18          TOKEN TYPE (VALUE)                          FTN5TXT  1281
                                                                                                                 FTN5TXT  1282
                                        *         FOR HOLLERITH CONSTANTS.                                       FTN5TXT  1283
                                                                                                                 FTN5TXT  1284
                                                  REDEF                                                          FTN5TXT  1285
      L     52  77777700000000000000     SHC      DEFINE 18          HOLLERITH CONSTANT TAG                      FTN5TXT  1286
      L     33  00000077777000000000     CLCN     DEFINE 15          LENGTH (IN CHARACTERS)                      FTN5TXT  1287
      L     22  00000000000777000000     LCON     DEFINE 9           LENGTH (IN WORDS)                           FTN5TXT  1288
      L      0  00000000000000777777     TOT      DEFINE 18          TOKEN TYPE (VALUE)                          FTN5TXT  1289
                                                                                                                 FTN5TXT  1290
                                        *         FOR STATEMENT FUNCTION DUMMY ARG. TOKENS (O=STFA).             FTN5TXT  1291
                                                                                                                 FTN5TXT  1292
                                                  REDEF                                                          FTN5TXT  1293
      L     60  77770000000000000000     ORD      DEFINE 12          SYMORD OF FORMAL PARAMETER                  FTN5TXT  1294
      L     44  00007777000000000000     DAC      DEFINE 12          DUMMY ARG. REFERENCE CHAIN                  FTN5TXT  1295
      L     22  00000000777777000000     ACTE     DEFINE 18          ACTUAL PARAM. ADDRESS IN ESTACK             FTN5TXT  1296
      L      0  00000000000000777777     TOT      DEFINE 18          TOKEN TYPE (= O.STFA)                       FTN5TXT  1297
                                                                                                                 FTN5TXT  1298
                                        *         FOR PARENTHESES.                                               FTN5TXT  1299
                                        *                'IOIX' ONLY ON I/O LOOP LPAREN.                         FTN5TXT  1300
                                        *                'IOSP' ONLY ON I/O LOOP RPAREN.                         FTN5TXT  1301
                                        *                RPAREN HAS ONLY 'IOSP' AND 'TOT'.                       FTN5TXT  1302
                                                                                                                 FTN5TXT  1303
                                                  REDEF                                                          FTN5TXT  1304
      L     73  40000000000000000000     COL      DEFINE             THIS PAREN LEVEL INCLUDES A COLON           FTN5TXT  1305
      L     72  20000000000000000000     EQL      DEFINE             THIS PAREN LEVEL INCLUDES AN EQUAL SIGN     FTN5TXT  1306
      L     71  10000000000000000000     SBS      DEFINE             THIS IS AN ARRAY SUBSTRING LPAREN           FTN5TXT  1307
                                                  DEFINE 3                                                       FTN5TXT  1308
      L     44  00777777000000000000     IOCP     DEFINE 18          POINTER TO MATCHING PAREN                   FTN5TXT  1309
      L     22  00000000777777000000     LLP      DEFINE 18          POINTER TO NEXT OUTER LEFT PAREN            FTN5TXT  1310
      L     22  00000000777777000000     IOIX     DEQU   LLP         POINTER TO LOOP INDEX                       FTN5TXT  1311
      L     22  00000000777777000000     IOSP     DEQU   LLP         MARKS I/O LOOP RPAREN FOR PAR               FTN5TXT  1312
      L      0  00000000000000777777     TOT      DEFINE 18          TOKEN TYPE (VALUE)                          FTN5TXT  1313
                                                                                                                 FTN5TXT  1314
                                        *         FOR I/O DO-COLLAPSE BEGIN.                                     FTN5TXT  1315
                                                                                                                 FTN5TXT  1316
                                                  REDEF                                                          FTN5TXT  1317
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   100
        TABLE AND STRUCTURE DECLARATIONS.                             TB. 
  
                                                  DEFINE 6                                                       FTN5TXT  1318
      L     44  00777777000000000000     IBCP     DEFINE 18          POINTER TO CLOSING RIGHT PAREN              FTN5TXT  1319
      L     22  00000000777777000000     IBCC     DEFINE 18          POINTER TO COLLAPSE CONCLUSION TOKEN        FTN5TXT  1320
      L      0  00000000000000777777     TOT      DEFINE 18          TOKEN TYPE (VALUE)                          FTN5TXT  1321
                                                                                                                 FTN5TXT  1322
                                        *         FOR I/O DO-COLLAPSE CONCLUSION.                                FTN5TXT  1323
                                                                                                                 FTN5TXT  1324
                                                  REDEF                                                          FTN5TXT  1325
                                                  DEFINE 6                                                       FTN5TXT  1326
      L     44  00777777000000000000     ICIX     DEFINE 18          INDEX (INTO TABLE OF CONTROL INDICIES)      FC5A211     9
      L     22  00000000777777000000     ICCP     DEFINE 18          POINTER TO CLOSING RIGHT PAREN              FTN5TXT  1328
      L      0  00000000000000777777     TOT      DEFINE 18          TOKEN TYPE (VALUE)                          FTN5TXT  1329
  
  
  
  
                                        **        T.COMM - COMMON TAG TABLE.                                     FTN5TXT  1331
                                        *                                                                        FTN5TXT  1332
                                        *         CONTAINS TRANSLATED *COMMON* STATEMENTS.  VARIABLE TAGS ARE    FTN5TXT  1333
                                        *         ENTERED INTO (T.COMM) IN THE SAME ORDER AS THEY OCCUR IN THE   FTN5TXT  1334
                                        *         *COMMON* STATEMENT(S).  AT CLOSE OF DECLARATIVES, THIS TABLE   FTN5TXT  1335
                                        *         IS PROCESSED (BY DECL/MCA) TO YIELD ADDRESSES OF VARIABLES IN  FTN5TXT  1336
                                        *         COMMON, AND TO RESOLVE LEVEL INFO FOR BLOCKS.  IT IS THEN      FTN5TXT  1337
                                        *         THROWN AWAY.                                                   FTN5TXT  1338
                                                                                                                 FC5A231    24
                                                                                                                 FC5A231    25
                                        *         +-----------------+------+------------+----------------------+ FC5A231    26
                                        *         +                 +//////+            +                      + FC5A231    27
                                        *         +   SYMBOL TAG    +//////+   LINK     +          RA          + FC5A231    28
                                        *         +                 +//////+            +                      + FC5A231    29
                                        *         +-----------------+------+------------+----------------------+ FC5A231    30
                                        *                  18           6        12                 24           FC5A231    31
                                                                                                                 FTN5TXT  1339
                                                                                                                 FTN5TXT  1340
                                                  DESCRIBE CT.                                                   FTN5TXT  1341
      L     52  77777700000000000000     TAG      DEFINE 18          SYMBOL TAG                                  FTN5TXT  1342
                                                  DEFINE 6           MUST BE ZERO                                FTN5TXT  1343
      L     30  00000000777700000000     LNK      DEFINE 12          POINTER TO NEXT MEMBER IN THIS BLOCK        FTN5TXT  1344
      L      0  00000000000077777777     RA       DEFINE WC.RAL      BLOCK REL ADDR                              FTN5TXT  1345
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   101
        TABLE AND STRUCTURE DECLARATIONS.                             T.DIM 
  
                                        **        T.DIM - DIMENSION TABLE.                                       FTN5TXT  1347
                                        *                                                                        FTN5TXT  1348
                                        *         FOR EACH UNIQUE DIMENSIONALITY DESCRIPTION, ONE HEADER WORD    FTN5TXT  1349
                                        *         WILL BE PRODUCED.                                              FTN5TXT  1350
                                        *                                                                        FTN5TXT  1351
                                        *         FOR EACH DIMENSION OF A DESCRIPTOR, A PAIR OF DIMENSION WORDS  FTN5TXT  1352
                                        *         WILL BE PRODUCED.                                              FTN5TXT  1353
                                        *                                                                        FTN5TXT  1354
                                        *         HEADER WORD                                                    FTN5TXT  1355
                                        *                                                                        FTN5TXT  1356
                                        *         +-+-+-+-+--+----------------------+-------------------+-----+  FTN5TXT  1357
                                        *         +V+A+V+M+//+                      +                   +     +  FTN5TXT  1358
                                        *         +D+S+P+A+//+   PRODUCT OF SPANS   +        RA         + DIM +  FTN5TXT  1359
                                        *         + + + +T+//+                      +                   +     +  FTN5TXT  1360
                                        *         +-+-+-+-+--+----------------------+-------------------+-----+  FTN5TXT  1361
                                        *          1 1 1 1 2             24                  24            6     FTN5TXT  1362
                                        *                                                                        FTN5TXT  1363
                                        *         DIMENSION WORD ONE                                             FTN5TXT  1364
                                        *                                                                        FTN5TXT  1365
                                        *         +-----------------------------+-+-----+---------------------+  FTN5TXT  1366
                                        *         +/////////////////////////////+T+/////+                     +  FTN5TXT  1367
                                        *         +/////////////////////////////+D+/////+        SPAN         +  FTN5TXT  1368
                                        *         +/////////////////////////////+M+/////+                     +  FTN5TXT  1369
                                        *         +-----------------------------+-+-----+---------------------+  FTN5TXT  1370
                                        *                        30              1   5            24             FTN5TXT  1371
                                        *                                                                        FTN5TXT  1372
                                        *         DIMENSION WORD TWO                                             FTN5TXT  1373
                                        *                                                                        FTN5TXT  1374
                                        *         +-+-----+---------------------+-+-----+---------------------+  FTN5TXT  1375
                                        *         +T+/////+                     +T+/////+                     +  FTN5TXT  1376
                                        *         +D+/////+     LOWER BOUND     +D+/////+     UPPER BOUND     +  FTN5TXT  1377
                                        *         +M+/////+                     +M+/////+                     +  FTN5TXT  1378
                                        *         +-+-----+---------------------+-+-----+---------------------+  FTN5TXT  1379
                                        *          1   5             24          1                 24            FTN5TXT  1380
  
  
  
  
                                        **        DIM/DH - HEADER WORD.                                          FTN5TXT  1382
                                                                                                                 FTN5TXT  1383
                                                                                                                 FTN5TXT  1384
                                                  DESCRIBE  DH.                                                  FTN5TXT  1385
                                                                                                                 FTN5TXT  1386
      L     66  77000000000000000000     ATTR     DEFINE 6           DIMENSION TABLE ENTRY ATTRIBUTES            FTN5TXT  1387
      L     36  00777777770000000000     PS       DEFINE 24          PRODUCT OF SPANS                            FTN5TXT  1388
      L      6  00000000007777777700     RA       DEFINE 24          RELATIVE ADDRESS OF RUN TIME DIM TABLE      FTN5TXT  1389
      L      0  00000000000000000077     DIM      DEFINE 6           NUMBER OF DIMENSIONS                        FTN5TXT  1390
                                                                                                                 FTN5TXT  1391
                                                  REDEF  ATTR                                                    FTN5TXT  1392
      L     73  40000000000000000000     VD       DEFINE             INDICATES ADJUSTABLE DIMENSION PRESENT      FTN5TXT  1393
      L     72  20000000000000000000     AS       DEFINE             INDICATES ASSUMED SIZE ARRAY                FTN5TXT  1394
      L     71  10000000000000000000     VP       DEFINE             INDICATES VARIABLE PRODUCT OF SPANS         FTN5TXT  1395
      L     70  04000000000000000000     MAT      DEFINE             RUN TIME DIMENSION TABLE MUST MATERIALIZE   FTN5TXT  1396
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   102
        TABLE AND STRUCTURE DECLARATIONS.                             DIM/D1. 
  
                                        **        DIM/D1 - DIMENSION WORD ONE.                                   FTN5TXT  1398
                                                                                                                 FTN5TXT  1399
                                                                                                                 FTN5TXT  1400
                                                  DESCRIBE  D1.,,,0                                              FTN5TXT  1401
                                                                                                                 FTN5TXT  1402
                                                  DEFINE 30                                                      FTN5TXT  1403
      L      0  00000000007777777777     SPAN     DEFINE 30          UB-LB+1      (DI. FORMAT)                   FTN5TXT  1404
  
  
  
  
                                        **        DIM/D2 - DIMENSION WORD TWO.                                   FTN5TXT  1406
                                                                                                                 FTN5TXT  1407
                                                                                                                 FTN5TXT  1408
                                                  DESCRIBE  D2.,,,1                                              FTN5TXT  1409
                                                                                                                 FTN5TXT  1410
      L    136  77777777770000000000     LB       DEFINE 30          LOWER BOUND  (DI. FORMAT)                   FTN5TXT  1411
      L    100  00000000007777777777     UB       DEFINE 30          UPPER BOUND  (DI. FORMAT)                   FTN5TXT  1412
  
  
  
  
                                        **        DI. - DIMENSION INFORMATION LAYOUT                             FTN5TXT  1414
                                                                                                                 FTN5TXT  1415
                                                                                                                 FTN5TXT  1416
                                                  DESCRIBE  DM.,30                                               FC5A231    32
                                                                                                                 FTN5TXT  1418
                          4000000000     TD       DEFINE             =1 IF THIS DIMENSION VARIABLE               FTN5TXT  1419
                                                                     =0 IF NOT                                   FTN5TXT  1420
                                                  DEFINE 5                                                       FTN5TXT  1421
                          0077777777     INF      DEFINE 24          DIMENSION INFORMATION                       FTN5TXT  1422
                                                                     = CONSTANT IF TD=0                          FTN5TXT  1423
                                                                     = VD. BIAS POINTER IF TD=1                  FTN5TXT  1424
                                                                                                                 FTN5TXT  1425
                                   2     Z=DD     EQU    2           LENGTH OF DIMENSION DESCRIPTOR              FTN5TXT  1426
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   103
        TABLE AND STRUCTURE DECLARATIONS.                             T.BLST
  
                                        **        T.BLST - BLOCK STRUCTURE TABLE (DO LOOPS AND BLOCK IFS)        FTN5TXT  1428
                                        *                                                                        FTN5TXT  1429
                                        *         T.BLST IS A PARTITIONED TABLE, EACH SEGMENT PERTAINING TO A    FTN5TXT  1430
                                        *         BLOCK STRUCTURE, WITH NESTING DEFINED BY THIS TABLE.  EACH     FTN5TXT  1431
                                        *         SEGMENT CONSISTS OF THREE PARTS:                               FTN5TXT  1432
                                        *                                                                        FTN5TXT  1433
                                        *         1. BLOCK DEFINITION TABLE (Z=BLST LENGTH)                      FTN5TXT  1434
                                        *         2. LABEL LIST (VARIABLE LENGTH. ONE WORD FOR EACH LABEL        FTN5TXT  1435
                                        *            DEFINED OR REFERENCED WITHIN THE BLOCK)                     FTN5TXT  1436
                                        *         3. COUNT/ORIGIN WORD (ONE WORD)                                FTN5TXT  1437
                                                                                                                 FTN5TXT  1438
                                                                                                                 FTN5TXT  1439
                                        *         BLOCK DEFINITION TABLE.                                        FTN5TXT  1440
                                                                                                                 FTN5TXT  1441
                                        *         DO LOOP INFORMATION TABLE.                                     FTN5TXT  1442
                                        *         (DOCI) MUST BE A SYMBOL TABLE ORDINAL.                         FTN5TXT  1443
                                        *         (DORT) IS SYMBOL TABLE ORDINAL OF CGS "DO.NNN".                FTN5TXT  1444
                                        *         (DOSI,DOLI AND DOII) ARE CGS TRIP COUNT SYMBOLS.               FTN5TXT  1445
                                                                                                                 FTN5TXT  1446
      L      0                                    LOC    0                                                       FTN5TXT  1447
      L      0                     1     DOSI.W   BSS    1           (TP.)     M1  INITIAL VALUE                 FTN5TXT  1448
      L      1                     1     DOLI.W   BSS    1           (TP.)     M2  LIMIT VALUE                   FTN5TXT  1449
      L      2                     1     DOII.W   BSS    1           (TP.)     M3  INCREMENT VALUE, THEN (DI.N)  FTN5TXT  1450
      L      3                     1     DOCI.W   BSS    1           (TP.)         CONTROL INDEX                 FTN5TXT  1451
      L      4                     1     DORT.W   BSS    1           (TP.)         INVENTED LABEL OF LOOP-TOP    FTN5TXT  1452
      L      5                     1     DO.W     BSS    1           (DO.)         DO TERMINATING LABEL          FTN5TXT  1453
      L      6                     1     DOTC.W   BSS    1           (TP.)         TRIP COUNT                    FTN5TXT  1454
      L      7                     1     DP.W     BSS    1           (DP.)         DOXL / DOTI / TURC            FTN5TXT  1455
                                                                                                                 FTN5TXT  1456
      L     10                           Z=BLST   BSS                LENGTH OF BLOCK STRUCTION BASIC ENTRY       FTN5TXT  1457
           222                                    LOC    *O                                                      FTN5TXT  1458
                                                                                                                 FTN5TXT  1459
                                                                                                                 FTN5TXT  1460
                                                                                                                 FTN5TXT  1461
                                        *         EQUIVALENCED SYMBOLS FOR BLOCK IF USAGE                        FTN5TXT  1462
                                                                                                                 FTN5TXT  1463
                                   0     BLIB.W   EQU    DOSI.W      (TP.) INVENTED LABEL OF BLOCK BOTTOM        FTN5TXT  1464
                                                                           (ENDIF)                               FTN5TXT  1465
                                   1     BLIA.W   EQU    DOLI.W      (TP.) INVENTED LABEL OF NEXT FALSE BRANCH   FTN5TXT  1466
                                                                           (ELSEIF, ELSE, ENDIF)                 FTN5TXT  1467
                                   5     BLIC.W   EQU    DO.W        USED TO ZERO THIS LOCATION FOR BLOCK *IFS*  FC51501     7
                                                                                                                 FTN5TXT  1468
                                                  DESCRIBE  DO.,,,DO.W                                           FTN5TXT  1469
      L    552  77777700000000000000     FLG      DEFINE 18          DO BEGIN TURPLE RELATIVE ADDRESS            FTN5TXT  1470
                                                  DEFINE 6                                                       FTN5TXT  1471
      L    522  00000000777777000000     TAG      DEFINE 18          DO TERMINATING LABEL, IF NOT I/O LOOP       FTN5TXT  1472
      L    500  00000000000000777777     IOD      DEFINE 18          .NZ.,                 IF I/O LOOP           FTN5TXT  1473
                                                                                                                 FTN5TXT  1474
                                                                                                                 FTN5TXT  1475
                                                  DESCRIBE  DP.,,,DP.W                                           FTN5TXT  1476
      L    752  77777700000000000000     DOXL     DEFINE 18          GL ORDINAL OF DO-EXIT, IF ZERO TRIP         FTN5TXT  1477
                                                  DEFINE 6                                                       FTN5TXT  1478
      L    722  00000000777777000000     DOTI     DEFINE 18          SYMORD OF TRIP COUNT VARIABLE               FTN5TXT  1479
      L    700  00000000000000777777     TURC     DEFINE 18          CONCLUSION SKELETON                         FTN5TXT  1480
                                                                                                                 FTN5TXT  1481
                                                                                                                 FTN5TXT  1482
                                        *         COUNT/ORIGIN WORD - LC.                                        FTN5TXT  1483
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   104
        TABLE AND STRUCTURE DECLARATIONS.                             T.BLST
  
                                                                                                                 FTN5TXT  1484
                                        *         +-+----+----------------+-----------------+-----------------+  FC5A127     5
                                        *         +G+////+                +                 +    SEGMENT      +  FC5A127     6
                                        *         +L+////+    DO INDEX    +   ORIGIN LINE   +      WORD       +  FC5A127     7
                                        *         +M+////+                +                 +     COUNT       +  FC5A127     8
                                        *         +-+----+----------------+-----------------+-----------------+  FC5A127     9
                                        *          1   5        18                 18                18          FC5A127    10
                                                                                                                 FTN5TXT  1491
                                                                                                                 FTN5TXT  1492
                                        *         LABEL WORD - LA.                                               FTN5TXT  1493
                                                                                                                 FTN5TXT  1494
                                        *         +-+-+-+-+---------------------------------+-----------------+  FTN5TXT  1495
                                        *         +D+R+E+E+/////////////////////////////////+                 +  FTN5TXT  1496
                                        *         +E+E+X+N+/////////////////////////////////+  LABEL ORDINAL  +  FTN5TXT  1497
                                        *         +F+F+T+T+/////////////////////////////////+                 +  FTN5TXT  1498
                                        *         +-+-+-+-+---------------------------------+-----------------+  FTN5TXT  1499
                                        *          1 1 1 1              38                           18          FTN5TXT  1500
                                                                                                                 FTN5TXT  1501
                                                                                                                 FTN5TXT  1502
                                        **        COUNT/ORIGIN WORD - LC.                                        FC50299     6
                                                                                                                 FTN5TXT  1504
                                                  DESCRIBE LC.                                                   FTN5TXT  1505
                                                                                                                 FTN5TXT  1506
      L     73  40000000000000000000     GLM      DEFINE             GENERATED LABEL MATERIALIZE (BOTTOM)        FC5A127    11
                                                  DEFINE 5                                                       FC5A127    12
      L     44  00777777000000000000     DO       DEFINE 18          DO LOOP HEADER LABEL INDEX                  FTN5TXT  1508
      L     22  00000000777777000000     LINE     DEFINE 18          BLOCK ORIGIN SOURCE LINE                    FTN5TXT  1509
      L      0  00000000000000777777     CNT      DEFINE 18          WORDS IN CURRENT SEGMENT                    FTN5TXT  1510
                                                                     (Z=BLST + 1 + NO. OF LABELS IN BLOCK)       FTN5TXT  1511
                                                                                                                 FTN5TXT  1512
                                        **        LABEL WORD - LA.                                               FTN5TXT  1513
                                                                                                                 FTN5TXT  1514
                                                  DESCRIBE LA.                                                   FTN5TXT  1515
                                                                                                                 FTN5TXT  1516
      L     73  40000000000000000000     DEF      DEFINE 1           LABEL DEFINED IN STRUCTURE                  FTN5TXT  1517
      L     72  20000000000000000000     REF      DEFINE 1           LABEL REFERENCED IN STRUCTURE               FTN5TXT  1518
      L     71  10000000000000000000     EXT      DEFINE 1           LABEL IS EXIT FOR DO LOOP                   FTN5TXT  1519
      L     70  04000000000000000000     ENT      DEFINE 1           LABEL IS ENTRY FOR DO LOOP                  FTN5TXT  1520
      L     67  02000000000000000000     ALRN     DEFINE 1           LABEL REFERENCED BY A *ALTERNATE RETURN*    FC51356     9
      L     66  01000000000000000000     GOTO     DEFINE 1           LABEL REFERENCED(NOT AN *ALTERNATE RETURN*) FC51356    10
                                                  DEFINE 36                                                      FC51356    11
      L      0  00000000000000777777     ORD      DEFINE 18          LABEL SYMBOL TABLE ORDINAL                  FTN5TXT  1522
  
  
  
  
                                        **        T.ECT - EQUIVALENCE CLASS TABLE.                               FC50299     7
                                        *                                                                        FTN5TXT  1525
                                        *         USED TO ACCUMULATE FINAL EQUIVALENCE CLASS INFORMATION DURING  FTN5TXT  1526
                                        *         EQUIVALENCE PROCESSING AND KEPT UNTIL REFMAP TIME.             FTN5TXT  1527
                                                                                                                 FTN5TXT  1528
                                                                                                                 FTN5TXT  1529
                                                  DESCRIBE EC.,60                                                FTN5TXT  1530
      L     60  77770000000000000000     SYM      DEFINE 12          ORDINAL OF SYMTAB WORD B                    FTN5TXT  1531
      L     30  00007777777700000000     BIAS     DEFINE WC.RAL      BIAS OF MEMBER FROM CLASS BASE              FTN5TXT  1532
      L     30  00007777777700000000     SPAN     DEQU   BIAS        SPAN OF EQUIVALENCE CLASS                   FTN5TXT  1533
      L      0  00000000000077777777     SIZE     DEFINE 24          LENGTH OF MEMBER                            FTN5TXT  1534
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   105
        TABLE AND STRUCTURE DECLARATIONS.                             T.EC
  
      L      0  00000000000077777777     NM       DEQU   SIZE        NUMBER OF MEMBERS IN THIS CLASS             FTN5TXT  1535
  
  
  
  
                                        **        T.EQUS - EQUIVALENCE TAG TABLE.                                FTN5TXT  1537
                                        *                                                                        FTN5TXT  1538
                                        *         USED TO ACCUMULATE EQUIVALENCE INFORMATION DURING DECLARATIVE  FTN5TXT  1539
                                        *         PROCESSING.  THROWN AWAY AFTER IT IS PROCESSED INTO THE        FTN5TXT  1540
                                        *         THE SYMTAB AT CLOSE OF DECLARATIVE STATEMENT PROCESSING.       FTN5TXT  1541
                                                                                                                 FTN5TXT  1542
                                                                                                                 FTN5TXT  1543
                                                  DESCRIBE EQ.,60                                                FTN5TXT  1544
      L     60  77770000000000000000     LINK     DEFINE 12          INDEX OF MEMBER IN SOURCE GROUP             FC50757     9
      L      0  00007777777777777777     SUBS     DEFINE 48          ITH SUBSCRIPT OF THIS EQUIVALENCED ITEM     FTN5TXT  1546
                                                  REDEF  SUBS                                                    FTN5TXT  1547
      L     36  00007777770000000000     STF      DEFINE WC.CLENL    SUBSTRING-FIRST (FOR CHARACTER ITEM)        FTN5TXT  1548
      L     35  00000000004000000000     ISUB     DEFINE 1           IF ITEM SUBSCRIPTED                         FC50299     8
      L      0  00000000003777777777     SYMI     DEFINE 29          SYMBOL TABLE WB INDEX                       FC50299     9
  
  
  
                                        **        T.ECT - TEMPORARY EQUIVALENCE CLASS TABLE                      FTN5TXT  1551
                                        *                 FOR REFMAP GENERATION.                                 FTN5TXT  1552
                                                                                                                 FTN5TXT  1553
                                                  DESCRIBE  TE.,60                                               FTN5TXT  1554
      L     60  77770000000000000000     EOI      DEFINE 12          INDEX TO T.EOT OA.                          FTN5TXT  1555
                                                  DEFINE 5           0                                           FTN5TXT  1556
      L     52  00000100000000000000     NB       DEFINE 1           NON - BASE BIT, .EQ. 1 IF NOT BASE MEMBER   FTN5TXT  1557
      L     22  00000077777777000000     BIAS     DEFINE WC.RAL      BIAS OF MEMBER FROM CLASS BASE              FTN5TXT  1558
      L      0  00000000000000777777     SYMI     DEFINE 18          INDEX OF SYMTAB WA                          FTN5TXT  1559
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   106
        TABLE AND STRUCTURE DECLARATIONS.                             T.PAR 
  
                                        **        T.PAR - PARSED FILE (IL).                                      FTN5TXT  1561
                                        *                                                                        FTN5TXT  1562
                                        *         (T.PAR) ACCUMULATES THE INTERMEDIATE LANGUAGE TURPLES          FTN5TXT  1563
                                        *         GENERATED BY THE FRONT END.                                    FTN5TXT  1564
                                                                                                                 FTN5TXT  1565
                                                                                                                 FTN5TXT  1566
                                        **        PARSED FILE ENTRY ORDINAL DEFINITIONS.                         FTN5TXT  1567
                                        *         ORDINALS ARE GIVEN RELATIVE TO EACH TURPLE.                    FTN5TXT  1568
                                                                                                                 FTN5TXT  1569
      L      0                                    LOC    0                                                       FTN5TXT  1570
      L      0                     1     OR.OPR   BSS    1           (TH.)     OPERATOR                          FTN5TXT  1571
      L      1                     1     OR.1OP   BSS    1           (TP.)     (P1) = LEFT (OR ONLY) OPERAND     FTN5TXT  1572
      L      2                     1     OR.2OP   BSS    1           (TP.)     (P2) = RIGHT OPERAND              FTN5TXT  1573
                                                                                                                 FTN5TXT  1574
      L      3                           Z=TURP   BSS                LENGTH OF EACH TURPLE                       FTN5TXT  1575
           225                                    LOC    *O                                                      FTN5TXT  1576
  
  
  
  
                                        **        TH. - TURPLE HEADER FORMAT.                                    FTN5TXT  1578
                                        *                                                                        FTN5TXT  1579
                                        *         THE HEADER WORD OF EACH TURPLE DESCRIBES THE OPERATOR.         FTN5TXT  1580
                                                                                                                 FTN5TXT  1581
                                                                                                                 FTN5TXT  1582
                                                  DESCRIBE  TH.,,,0                                              FTN5TXT  1583
      L     56  77776000000000000000     SKEL     DEFINE 14          SKELETON INDEX OR RELATIVE ADDRESS          FC50104    14
      L     34  00001777776000000000     LINE     DEFINE 18          LINE/SEQUENCE NO. (1ST TURPLE OF STATEMENT) FC50104    15
      L     30  00000000001700000000     QATR     DEFINE 4           ATTRIBUTES FOR QCG                          FTN5TXT  1587
      L     26  00000000000060000000     CATR     DEFINE 2           ATTRIBUTES FOR BRIDGE                       FTN5TXT  1588
      L     22  00000000000017000000     MODE     DEFINE 4           TYPE OF RESULT                              FTN5TXT  1589
                                                  DEFINE 9                                                       FC50104    16
      L      0  00000000000000000777     OVAL     DEFINE 9           OPERATOR VALUE INDEX (O.DEF)                FC50104    17
                                                                                                                 FTN5TXT  1593
                                                  REDEF  LINE                                                    FC50104    18
      L     26  00001777777760000000     DVAL     DEFINE 24          DATA CONSTANT REDUCTION VALUE (T.DAR)       FTN5TXT  1595
      L     25  00000000000010000000     DDEF     DEFINE             DATA DEFINED                                FC5A111     5
                                                                                                                 FTN5TXT  1596
                                                  REDEF  CATR                                                    FTN5TXT  1597
      L     27  00000000000040000000     PAP      DEFINE             FIRST TURPLE OF AN ARGUMENT                 FTN5TXT  1598
      L     26  00000000000020000000     PFP      DEFINE             FIRST PAP OF AN ARGUMENT LIST               FTN5TXT  1599
                                                                                                                 FTN5TXT  1600
                                                  REDEF  QATR                                                    FTN5TXT  1601
      L     33  00000000001000000000     NSTD     DEFINE             (SKEL) IS A ROUTINE, NOT AN EXPANSION       FTN5TXT  1602
      L     32  00000000000400000000     PLC      DEFINE             OPERAND IS CONCAT OF PASSED LENGTH ITEM     FTN5TXT  1603
      L     31  00000000000200000000     1DUC     DEFINE             (1OP) IS REGISTER ALLOCATED                 FTN5TXT  1604
      L     30  00000000000100000000     2DUC     DEFINE             (2OP) IS REGISTER ALLOCATED                 FTN5TXT  1605
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   107
        TABLE AND STRUCTURE DECLARATIONS.                             SP. 
  
                                        **        SP. - STACK (SETOP) TURPLE HEADER FORMAT.                      FC50104    20
                                        *                                                                        FC50104    21
                                        *         SP. IS THE FORMAT OF THE HEADER WORD USED DURING PARSING.      FC50104    22
                                        *         THE SP. FORMAT WORD IS TRANSFORMED TO TH. FORMAT WHEN A TURPLE FC50104    23
                                        *         IS EMITTED.                                                    FC50104    24
                                                                                                                 FC50104    25
                                                                                                                 FC50104    26
                                                  DESCRIBE  SP.,,,0                                              FC50104    27
      L     52  77777700000000000000     SKEL     DEFINE 18          SKELETON INDEX OR RELATIVE ADDRESS          FC50104    28
      L     34  00000077776000000000     1ATR     DEFINE 14          PARSING ATTRIBUTES                          FC50104    29
                                                  DEFINE 6                                                       FC50104    30
      L     22  00000000000017000000     MODE     DEFINE 4           TYPE OF RESULT (FROM POPPER)                FC50104    31
      L     11  00000000000000777000     STPR     DEFINE 9           STACK PRIORITY                              FC50104    32
      L     11  00000000000000777000     MODC     DEQU   STPR        MODE COERCION (IN POP)                      FC50104    33
      L      0  00000000000000000777     TBPR     DEFINE 9           TOKEN BUFFER PRIORITY INDEX (O.DEF)         FC50104    34
                                                                                                                 FC50104    35
                                                  REDEF  1ATR                                                    FC50104    36
      L     51  00000040000000000000     NSQZ     DEFINE             TURPLE IS NOT SQUEEZABLE                    FC50104    37
      L     50  00000020000000000000     UNAR     DEFINE             UNARY OPERATOR                              FC50104    38
      L     47  00000010000000000000     MDLS     DEFINE             MODELESS OPERATOR                           FC50104    39
      L     46  00000004000000000000     DIS      DEFINE             ALGEBRAICALLY DISTRIBUTIVE                  FC50104    40
      L     45  00000002000000000000     COM      DEFINE             ALGEBRAICALLY COMMUTATIVE                   FC50104    41
      L     44  00000001000000000000     AS       DEFINE             ALGEBRAICALLY ASSOCIATIVE                   FC50104    42
      L     43  00000000400000000000     MASK     DEFINE             MASKING/LOGICAL OPERATOR                    FC50104    43
      L     42  00000000200000000000     CHAR     DEFINE             CHARACTER OPERANDS ALLOWED                  FC50104    44
      L     41  00000000100000000000     SMD      DEFINE             SPECIFIC MODE DETERMINED                    FC50104    45
      L     40  00000000040000000000     BND      DEFINE             TURPLE OK FOR DIMENSION BOUND EXPRESSION    FC50104    46
  
  
  
  
                                        **        TP. - TURPLE PARAMETER FORMAT.                                 FTN5TXT  1619
                                        *                                                                        FTN5TXT  1620
                                        *         A (TP.) WORD IS THE REPRESENTATION OF AN OPERAND IN THE IL.    FTN5TXT  1621
                                                                                                                 FTN5TXT  1622
                                                                                                                 FTN5TXT  1623
                                                  DESCRIBE  TP.                                                  FTN5TXT  1624
      L     54  77777400000000000000     ORD      DEFINE 16          ORDINAL OF OPERAND                          FTN5TXT  1625
      L     54  77777400000000000000     TAG      DEQU   ORD                                                     FTN5TXT  1626
      L     24  00000377777774000000     BIAS     DEFINE 24          CONSTANT ADDEND (CA)                        FTN5TXT  1627
      L     24  00000377777774000000     IOC      DEQU   BIAS        I/O CONTROL CODE                            FTN5TXT  1628
      L     24  77777777777774000000     ORBI     DEQU   BIAS,TP.ORDL+TP.BIASL                                   FTN5TXT  1629
                                   0              ERRNZ  TP.BIASL+TP.BIASP-TP.ORDP                               FTN5TXT  1630
      L      7  00000000000003777600     ATTR     DEFINE 13          ATTRIBUTES XMITTED TO IL                    FTN5TXT  1631
      L      0  00000000000000000177     1ATR     DEFINE 7           ATTRIBUTES DURING PASS 1    (SEE BELOW)     FTN5TXT  1632
                                                                                                                 FTN5TXT  1633
                                                                                                                 FTN5TXT  1634
                                  22     TP.SHRTB EQU    18          NUMBER OF BITS ALLOWED IN A SHORT CONSTANT  FTN5TXT  1635
                                   6              ERRMI  TP.BIASL-TP.SHRTB                                       FTN5TXT  1636
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   108
        TABLE AND STRUCTURE DECLARATIONS.                             TP.ATTR 
  
                                        **        TP.ATTR - ATTRIBUTES OF OPERANDS.                              FTN5TXT  1638
                                        *                                                                        FTN5TXT  1639
                                        *         THESE ATTRIBUTES ARE TRANSMITTED TO THE INTERMEDIATE LANGUAGE  FTN5TXT  1640
                                        *         FILE.  THEY SHOULD ALL BE DEFINED IN THE FTN 5 GID.            FTN5TXT  1641
                                                                                                                 FTN5TXT  1642
                                                  REDEF  ATTR                                                    FTN5TXT  1643
                                                                                                                 FTN5TXT  1644
      L     23  00000000000002000000     LCM      DEFINE             ECS/LCM RESIDENT                            FTN5TXT  1645
      L     22  00000000000001000000     FP       DEFINE             FORMAL PARAMETER                            FTN5TXT  1646
      L     21  00000000000000400000     EQV      DEFINE             OPERAND EQUIVALENCED                        FTN5TXT  1647
      L     16  00000000000000340000     CPFX     DEFINE 3           TAG PREFIX FIELD                            FTN5TXT  1648
      L     15  00000000000000020000     ARR      DEFINE             ARRAY REFERENCE                             FTN5TXT  1649
      L     15  00000000000000020000     ARY      DEQU   ARR         ARRAY REFERENCE FOR BRIDGE                  FTN5TXT  1650
      L     14  00000000000000010000     SHRT     DEFINE             SHORT CONSTANT IN BIAS                      FTN5TXT  1651
      L     13  00000000000000004000     ADDR     DEFINE             ADDRESS REFERENCE (E.G. LOCF)               FTN5TXT  1652
      L     12  00000000000000002000     INTR     DEFINE             INTERMEDIATE OPERAND                        FTN5TXT  1653
      L     11  00000000000000001000     CAT      DEFINE             CONCAT. OPERAND                             FTN5TXT  1654
      L      7  00000000000000000600     IODP     DEFINE 2                                                       FTN5TXT  1655
                                                  REDEF  IODP                                                    FTN5TXT  1656
      L     10  00000000000000000400     IOD      DEFINE             I/O DEFINITION (SET FOR INPUT)              FTN5TXT  1657
      L      7  00000000000000000200     IOP      DEFINE             POTENTIALLY DEFINED (NAMELIST READ, ETC)    FTN5TXT  1658
                                                                                                                 FTN5TXT  1659
                                                                                                                 FTN5TXT  1660
                                                  REDEF  CPFX                                                    FTN5TXT  1661
                                                  DEFINE 2                                                       FTN5TXT  1662
      L     16  00000000000000040000     GL       DEFINE             GENERATED LABEL =  CPFX = 1                 FTN5TXT  1663
  
  
  
  
                                        **        TP.1ATR - PASS 1 ATTRIBUTES.                                   FTN5TXT  1665
                                        *                                                                        FTN5TXT  1666
                                        *         THESE ARE DISCARDED AT *DUC* TIME, AND SO ARE NOT USED BY      FTN5TXT  1667
                                        *         THE CODE GENERATOR PROPER.                                     FTN5TXT  1668
                                                                                                                 FTN5TXT  1669
                                                                                                                 FTN5TXT  1670
                                                  REDEF  1ATR                                                    FTN5TXT  1671
      L      6  00000000000000000100     ARS      DEFINE             ARRAY SUBSCRIPT OPERAND                     FTN5TXT  1672
      L      5  00000000000000000040     ARE      DEFINE             REFERENCE TO ENTIRE ARRAY                   FTN5TXT  1673
      L      4  00000000000000000020     LCF      DEFINE             REFERENCE FOR *LOCF* INTRINSIC              FTN5TXT  1674
      L      3  00000000000000000010     EXPR     DEFINE             OPERAND WAS AN EXPRESSION (E.G., UNARY +)   FTN5TXT  1675
      L      0  00000000000000000007     MODE     DEFINE WB.MODEL    MODE (TYPE) OF OPERAND                      FTN5TXT  1676
  
  
  
  
                                        **        T.ASG - TABLE OF "ASSIGN"ED STATEMENT LABELS.                  FTN5TXT  1678
                                        *                                                                        FTN5TXT  1679
                                        *         CONTAINS ONE ENTRY FOR EACH "ASSIGN" STATEMENT.                FTN5TXT  1680
                                        *         USED IN OPT > 0 TO DETERMINE FLOW CONTROL --                   FTN5TXT  1681
                                        *         MUST KNOW ALL POSSIBLE TARGETS OF AN ASSIGNED                  FTN5TXT  1682
                                        *         "GOTO" STATEMENT.                                              FTN5TXT  1683
                                                                                                                 FTN5TXT  1684
                                                                                                                 FTN5TXT  1685
                                                  DESCRIBE  AG.                                                  FTN5TXT  1686
      L     24  77777777777774000000     ORBI     DEFINE TP.ORBIL                                                FTN5TXT  1687
                                   0              ERRNZ  TP.ORBIP-AG.ORBIP                                       FTN5TXT  1688
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   109
        TABLE AND STRUCTURE DECLARATIONS.                             T.ASG 
  
                                                  REDEF  ORBI                                                    FTN5TXT  1689
      L     54  77777400000000000000     ORD      DEFINE TP.ORDL     SYMORD OF ASSIGNED VARIABLE                 FTN5TXT  1690
                                   0              ERRNZ  TP.ORDP-AG.ORDP                                         FTN5TXT  1691
      L     24  00000377777774000000     BIAS     DEFINE TP.BIASL    BIAS (FOR EQUIVALENCED VAR)                 FTN5TXT  1692
                                   0              ERRNZ  AG.ORBIP-AG.BIASP                                       FTN5TXT  1693
                                                  DEFINE 4                                                       FTN5TXT  1694
      L      0  00000000000000177777     LAB      DEFINE TP.ORDL     SYMORD OF LABEL ASSIGNED                    FTN5TXT  1695
  
  
  
  
                                        **        T.NLST - TABLE OF "NAMELIST" GROUPS.                           FTN5TXT  1697
                                                                                                                 FTN5TXT  1698
                                        *         NAMELIST GROUP DEFINITIONS ARE STORED IN HERE.                 FTN5TXT  1699
                                        *                                                                        FTN5TXT  1700
                                        *         THE (WB.PNT) FIELD OF THE SYMTAB ENTRY FOR A NAMELIST          FTN5TXT  1701
                                        *         GROUP-NAME CONTAINS AN INDEX INTO THIS TABLE.                  FTN5TXT  1702
                                        *                                                                        FTN5TXT  1703
                                        *         THE ENTRY FOR EACH GROUP CONSISTS OF A SEQUENCE OF             FTN5TXT  1704
                                        *         BYTES.  AFTER THE (NMEM AND GROP) BYTES, THERE FOLLOWS         FTN5TXT  1705
                                        *         A SYMORD PER MEMBER.  A NEW GROUP STARTS ON A WORD             FTN5TXT  1706
                                        *         BOUNDARY.  ANY UNUSED (NG.ORD) BYTES CONTAIN ZERO.             FTN5TXT  1707
                                                                                                                 FTN5TXT  1708
                                                                                                                 FTN5TXT  1709
                                                  DESCRIBE  NG.                                                  FTN5TXT  1710
      L     55  77777000000000000000     NMEM     DEFINE 15          NUMBER OF MEMBERS                           FTN5TXT  1711
      L     36  00000777770000000000     GROP     DEFINE 15          SYMORD OF GROUP-NAME                        FTN5TXT  1712
                                                  DEFINE 15          SYMORD OF MEMBER 1                          FTN5TXT  1713
                                                  DEFINE 15          SYMORD OF MEMBER 2                          FTN5TXT  1714
                                                                                                                 FTN5TXT  1715
                                  17     NG.ORDL  EQU    NG.GROPL    LENGTH OF NAMELIST MEMBER SYMORDS           FTN5TXT  1716
  
  
  
  
                                        **        T.APL - TABLE OF ACTUAL PARAMETER LISTS.                       FTN5TXT  1718
                                        *         ORDINALS OF *AL-TAGS* POINT INTO THIS TABLE.                   FTN5TXT  1719
                                                                                                                 FTN5TXT  1720
                                                                                                                 FTN5TXT  1721
                                        *         TAG AND BIAS FIELDS MUST HAVE SAME POSITION RELATIVE TO EACH   FTN5TXT  1722
                                        *                OTHER AS THEY DO IN THE LONG FILE.  MUST ALSO BE SAME   FTN5TXT  1723
                                        *                LENGTH.                                                 FTN5TXT  1724
                                        *         I/O  /  NON-I/O AP LIST FORMATS INPUT TO THE ASSEMBLER.        FTN5TXT  1725
                                        *                                                                        FTN5TXT  1726
                                                                                                                 FTN5TXT  1727
                                                                                                                 FTN5TXT  1728
                                                  DESCRIBE   IA.,60                                              FTN5TXT  1729
      L     52  77777700000000000000     TAG      DEFINE PB.TAGL     SYMBOL (*IH* + ORD)                         FTN5TXT  1730
      L     52  77777700000000000000     LEFT     DEQU   TAG         LEFT SIDE ARGUMENT OF RELATIONAL HEADER     FTN5TXT  1731
      L     22  00000077777777000000     BIAS     DEFINE 24                                                      FTN5TXT  1732
      L     22  00000077777777000000     RITE     DEQU   BIAS        RIGHT SIDE ARGUMENT OF RELATIONAL HEADER    FTN5TXT  1733
      L     22  77777777777777000000     ORBI     DEQU   BIAS,IA.TAGL+IA.BIASL   TAG+BIAS FIELD                  FTN5TXT  1734
      L     14  00000000000000770000     MODE     DEFINE 6           MODE / I/O CONTROL CODE                     FTN5TXT  1735
      L     13  00000000000000004000     IOC      DEFINE 1           THIS ENTRY IS CONTROL ITEM                  FTN5TXT  1736
      L     12  00000000000000002000     ST       DEFINE 1           FWA STORED TO THIS ITEM                     FTN5TXT  1737
      L     11  00000000000000001000     CHAR     DEFINE 1           GET (BCP,CLEN,BIAS) FROM T.CAC ENTRY        FTN5TXT  1738
      L     10  00000000000000000400     CRH      DEFINE 1           CHARACTER RELATIONAL HEADER INDICATOR       FTN5TXT  1739
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   110
        TABLE AND STRUCTURE DECLARATIONS.                             T.APL 
  
      L      7  00000000000000000200     ASG      DEFINE 1           ASSIGNED FORMAT SPECIFIER                   FTN5TXT  1740
      L      6  00000000000000000100     FP       DEFINE 1           ITEM IS F.P.                                FC50299    10
      L      5  00000000000000000040     VAR      DEFINE 1           VAR BIT (DOTRIP INDICATOR) FOR I/O DATA     FTN5TXT  1742
                                                  DEFINE 5                                                       FTN5TXT  1743
  
  
  
  
                                        **        AN OBJECT-LIBRARY (I/O) AP-LIST ENTRY HAS THE FOLLOWING FORMAT FTN5TXT  1745
                                        *                IN THE BINARY --                                        FTN5TXT  1746
                                                                                                                 FTN5TXT  1747
                                                                                                                 FTN5TXT  1748
                                                  DESCRIBE   OA.,60                                              FTN5TXT  1749
      L     73  40000000000000000000     LCM      DEFINE 1           ITEM IS LCM/ECS RESIDENT                    FTN5TXT  1750
      L     72  20000000000000000000     FP       DEFINE 1           ITEM IS FORMAL PARAMETER                    FTN5TXT  1751
      L     71  10000000000000000000     IND      DEFINE 1           LENGTH FIELD IS POINTER                     FC50299    11
      L     70  04000000000000000000     LST      DEFINE 1           ITEM IS CONTROL INFO SPECIFIER              FTN5TXT  1753
      L     67  02000000000000000000     VAR      DEFINE 1           INDICATION OF TYPE LOOP IN FORCE            FC50299    12
                                                  DEFINE 1                                                       FTN5TXT  1755
      L     60  00770000000000000000     TYP      DEFINE 6           MODE/UNIT CODE OF ITEM                      FTN5TXT  1756
      L     36  00007777770000000000     LEN      DEFINE 18          LENGTH OF ITEM (NUMBER OF ELEMENTS)         FTN5TXT  1757
      L      0  00000000007777777777     ADDR     DEFINE 30                                                      FTN5TXT  1758
                                                                                                                 FTN5TXT  1759
                                                  REDEF  ADDR        ---   IF TYP=CHAR                           FTN5TXT  1760
                                                  DEFINE 2                                                       FTN5TXT  1761
      L     30  00000000001700000000     BCP      DEFINE 4           BEGINNING CHARACTER POSITION OF ITEM        FTN5TXT  1762
      L      0  00000000000077777777     ADR      DEFINE 24          ADDRESS OF ITEM                             FTN5TXT  1763
                                                                                                                 FTN5TXT  1764
                                                  REDEF  ADDR        ---   IF FP                                 FTN5TXT  1765
      L     11  00000000007777777000     SUBS     DEFINE 21          OFFSET TO FORMAL PARAMETERS                 FTN5TXT  1766
      L      0  00000000000000000777     ARG      DEFINE 9           FORMAL PARAMETER NUMBER OF ITEM - 1         FTN5TXT  1767
                                                                                                                 FTN5TXT  1768
                                  36     OA.LEFTP EQU    OA.LENP                                                 FTN5TXT  1769
                                   0     OA.RITEP EQU    OA.ADDRP                                                FTN5TXT  1770
  
  
  
  
                                        **        T.DATS - DATA STATEMENT TABLE.                                 FTN5TXT  1772
                                        *                                                                        FTN5TXT  1773
                                        *         THE ENTRIES IN THIS TABLE ARE DIRECTIVES TO PASS 3 TO          FTN5TXT  1774
                                        *         OUTPUT THE NECESSARY LOADER TEXT.                              FTN5TXT  1775
                                        *                                                                        FTN5TXT  1776
                                        *         EACH ENTRY CONSISTS OF A HEADER, FOLLOWED BY (WC) WORDS OF     FTN5TXT  1777
                                        *         DATA.  THE HEADER IS ONE OR TWO WORDS LONG.  ALWAYS A (DA.)    FTN5TXT  1778
                                        *         WORD, AND THEN A (DB.) WORD IF (DA.RP)=1.                      FTN5TXT  1779
                                                                                                                 FTN5TXT  1780
                                                                                                                 FTN5TXT  1781
                                                  DESCRIBE DA.,,,0                                               FTN5TXT  1782
                                                                                                                 FTN5TXT  1783
      L     73  40000000000000000000     CH       DEFINE 1           IF CHARACTER FORMAT                         FTN5TXT  1784
      L     72  20000000000000000000     RP       DEFINE 1           IF REPLICATION NEEDED (DB. WORD PRESENT)    FTN5TXT  1785
      L     52  17777700000000000000     ORD      DEFINE 16          SYMTAB ORDINAL OF FWA                       FTN5TXT  1786
      L     22  00000077777777000000     BIAS     DEFINE 24          BIAS OF FWA (CHARS OR WORDS)                FTN5TXT  1787
      L      0  00000000000000777777     WC       DEFINE 18          WORD COUNT OF FOLLOWING DATA (NOT COUNTING  FTN5TXT  1788
                                                                           DB. WORD, CHARS OR WORDS)             FTN5TXT  1789
                                                                                                                 FTN5TXT  1790
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   111
        TABLE AND STRUCTURE DECLARATIONS.                             T.DATS
  
                                                  DESCRIBE DB.,,,1   ---   PRESENT WHEN RP=1                     FTN5TXT  1791
                                                  DEFINE 6                                                       FTN5TXT  1792
      L    136  00777777770000000000     INC      DEFINE 24          INCREMENT (CHARS OR WORDS)                  FTN5TXT  1793
                                                  DEFINE 6                                                       FTN5TXT  1794
      L    100  00000000000077777777     CNT      DEFINE 24          NUMBER OF COPIES + 1                        FTN5TXT  1795
  
  
  
  
                                        **        T.DATI -  DATA CONSTANT TABLE.                                 FTN5TXT  1797
                                        *                BUILT BY *BIT* IN DATA.                                 FTN5TXT  1798
                                        *                FORM (2) IS ALSO USED BY *PRM* OF DECL.                 FTN5TXT  1799
                                        *                                                                        FTN5TXT  1800
                                        *         FORM (1), (DI.REP) = 1  -  FOR REPLICATION HEADER.             FTN5TXT  1801
                                        *         FORM (2), (DI.REP) = 0  -  FOR DATA CONSTANT.                  FTN5TXT  1802
                                                                                                                 FTN5TXT  1803
                                                                                                                 FTN5TXT  1804
                                                  DESCRIBE DI.,60          FORM (1)                              FTN5TXT  1805
                                                                                                                 FTN5TXT  1806
      L     73  40000000000000000000     REP      DEFINE 1           1 = REPETITION FLAG ENTRY                   FTN5TXT  1807
                                                  DEFINE 17                                                      FC5A132    23
      L     30  00000077777700000000     RL       DEFINE 18          REPETITION LIST LENGTH                      FC5A132    24
      L      0  00000000000077777777     RC       DEFINE 24          REPETITION COUNT                            FC5A132    25
                                                                                                                 FTN5TXT  1812
                                                                                                                 FTN5TXT  1813
                                                  REDEF                    FORM (2)                              FTN5TXT  1814
                                                                                                                 FTN5TXT  1815
      L     73  40000000000000000000     REP      DEFINE 1           0 = CONSTANT ITEM ENTRY                     FTN5TXT  1816
                                                  DEFINE 2           0                                           FTN5TXT  1817
      L     66  07000000000000000000     MODE     DEFINE WB.MODEL    MODE OF CONSTANT                            FTN5TXT  1818
                                                  DEFINE 18          0                                           FTN5TXT  1819
      L     22  00000000777777000000     PNT      DEFINE 18          POINTER INTO TABLE CONTAINING CONSTANT      FTN5TXT  1820
      L      0  00000000000000777777     DLEN     DEFINE 18          CONSTANT LENGTH (WORDS OR CHARACTERS)       FTN5TXT  1821
  
  
  
  
                                        **        T.FPO -  TABLE OF SUB/ SUB0 ORGINS FOR FORMAL PARAMETERS.      FTN5TXT  1823
                                        *                                                                        FTN5TXT  1824
                                        *         CREATED IN PASS 3 OF REC, CATAINS FOR EACH FORMAL PARAMETER,   FTN5TXT  1825
                                        *         ITS POINTER INTO SUB/SUB0 TALBE.                               FTN5TXT  1826
                                        *         FORMATTED AS FP. .                                             FTN5TXT  1827
                                                                                                                 FTN5TXT  1828
                                                                                                                 FTN5TXT  1829
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   112
        TABLE AND STRUCTURE DECLARATIONS.                             T.ILI 
  
                                        **        T.ILI -  TABLE OF INPUT LIST ITEMS.                            FC5A141     8
                                        *                                                                        FC5A141     9
                                        *         TP. OPERANDS OF INPUT ITEMS ARE REFORMATTED                    FC5A141    10
                                        *         FOR ENTRY INTO THIS TABLE.                                     FC5A141    11
                                                                                                                 FC5A141    12
                                                  DESCRIBE  II.                                                  FC5A141    13
      L     54  77777400000000000000     ORD      DEFINE  16         ORDINAL OF OPERAND                          FC5A141    14
      L     24  00000377777774000000     BIAS     DEFINE  24         BIAS OF OPERAND                             FC5A141    15
                                                  DEFINE  18                                                     FC5A141    16
      L      1  00000000000000000002     CHAR     DEFINE  1          OPERAND IS TYPE CHARACTER                   FC5A141    17
      L      0  00000000000000000001     ARY      DEFINE  1          OPERAND IS INDEXED ARRAY OR SUBSTRING       FC5A141    18
  
  
  
  
                                        **        T.REF - CROSS REFERENCE TABLE.                                 FTN5TXT  1831
                                                                                                                 FTN5TXT  1832
                                                                                                                 FTN5TXT  1833
                                                  DESCRIBE XR.                                                   FTN5TXT  1834
      L     52  77777700000000000000     TAG      DEFINE 18                                                      FTN5TXT  1835
      L     51  00000040000000000000     MEDF     DEFINE 1           MAP ENTRY POINT DEFINITION FLAG             FTN5TXT  1836
                                                  DEFINE 13                                                      FTN5TXT  1837
      L      6  00000000001777777700     LINE     DEFINE 22          LINE NUM OF REF                             FTN5TXT  1838
      L      0  00000000000000000077     USE      DEFINE 6           USAGE LETTER                                FTN5TXT  1839
                                                                                                                 FTN5TXT  1840
                                        **        POSSIBLE VALUES OF XR.USE                                      FTN5TXT  1841
                                                                                                                 FTN5TXT  1842
                                        *         STATEMENT LABELS                                               FTN5TXT  1843
                                                                                                                 FTN5TXT  1844
                                   1     CR.AGN   EQU    1RA                                                     FTN5TXT  1845
                                  55     CR.GOTO  EQU    1R                                                      FTN5TXT  1846
                                   4     CR.DO    EQU    1RD                                                     FTN5TXT  1847
                                  55     CR.IFN   EQU    1R          CONDITIONAL USAGE                           FTN5TXT  1848
                                  22     CR.DECD  EQU    1RR         DECODE STATEMENT                            FTN5TXT  1849
                                  27     CR.ENC   EQU    1RW         ENCODE STATEMENT                            FTN5TXT  1850
                                  55     CR.CNTL  EQU    1R                                                      FTN5TXT  1851
                                  14     CR.LAB   EQU    1RL         LABEL DEFINITION                            FC50514     6
                                                                                                                 FTN5TXT  1852
                                        *         VARIABLES/FUNCTIONS                                            FTN5TXT  1853
                                                                                                                 FTN5TXT  1854
                                  55     CR.REF   EQU    1R                                                      FTN5TXT  1855
                                  23     CR.STR   EQU    1RS         STORE                                       FTN5TXT  1856
                                   1     CR.PAR   EQU    1RA                                                     FTN5TXT  1857
                                   1     CR.CALL  EQU    1RA         CALL ARGUMENT.                              FTN5TXT  1858
                                  55     CR.DEC   EQU    1R          DECLARATIVE STATEMENT                       FTN5TXT  1859
                                  11     CR.DAT   EQU    1RI         DATA INITIALIZED                            FTN5TXT  1860
                                  55     CR.VGOTO EQU    1R          VARIABLE USED IN GOTO                       FTN5TXT  1861
                                   1     CR.INF   EQU    1RA         INSIDE FUNCTION.                            FTN5TXT  1862
                                  22     CR.INP   EQU    1RR         INPUT  STATEMENT                            FTN5TXT  1863
                                  27     CR.OUT   EQU    1RW         OUTPUT STATEMENT                            FTN5TXT  1864
                                  55     CR.SUB   EQU    1R                                                      FTN5TXT  1865
                                   3     CR.DOI   EQU    1RC         DO LOOP CONTROL                             FTN5TXT  1866
                                  55     CR.IF    EQU    1R                                                      FTN5TXT  1867
                                  25     CR.IOU   EQU    1RU         I/O UNIT                                    FTN5TXT  1868
                                  23     CR.SRC   EQU    1RS         SOURCE LINE                                 FTN5TXT  1869
                                   4     CR.DEF   EQU    1RD                                                     FTN5TXT  1870
                                  22     CR.RET   EQU    1RR         SUBROUTINE RETURN                           FC50451     5
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   113
        TABLE AND STRUCTURE DECLARATIONS.                             T.ENT 
  
                                        **        T.ENT - ENTRY POINT TABLE.                                     FTN5TXT  1872
                                                                                                                 FTN5TXT  1873
                                                                                                                 FTN5TXT  1874
                                                  DESCRIBE EP.                                                   FTN5TXT  1875
      L     22  77777777777777000000     NAME     DEFINE 42          ENTRY POINT NAME                            FTN5TXT  1876
      L      0  00000000000000777777     ORD      DEFINE 18          ORDINAL IN SYMTAB                           FTN5TXT  1877
  
  
  
  
                                        **        T.ENTP - ENTRY PARAMETER LISTS.                                FTN5TXT  1879
                                        *                                                                        FTN5TXT  1880
                                        *         EACH UNIQUE PARAMETER LIST IN THE PROGRAM-UNIT IS              FTN5TXT  1881
                                        *         REPRESENTED BY A (T.ENTP) ENTRY.  EACH ENTRY CONSISTS          FTN5TXT  1882
                                        *         OF A HEADER WORD (EH.), FOLLOWED BY A SERIES OF (EF.)          FTN5TXT  1883
                                        *         BYTES (4 PER WORD).  AN (EF.) BYTE CONTAINS THE SYMTAB         FTN5TXT  1884
                                        *         ORDINAL OF A FORMAL PARAMETER WHICH IS INCLUDED IN THIS        FTN5TXT  1885
                                        *         PARAMETER LIST, IN ORDER.  THE LIST OF FP'S IS TERMINATED      FTN5TXT  1886
                                        *         BY ZERO (EF.) BYTE(S).                                         FTN5TXT  1887
                                                                                                                 FTN5TXT  1888
                                                                                                                 FTN5TXT  1889
                                                  DESCRIBE EH.                                                   FTN5TXT  1890
      L     60  77770000000000000000     FPC      DEFINE 12          FORMAL PARAMETER COUNT                      FTN5TXT  1891
      L     41  00007777700000000000     SUBI     DEFINE 15          *SUBI* (SUB INDEX TABLE) BIAS               FTN5TXT  1892
      L     22  00000000077777000000     SB0I     DEFINE 15          *SB0I* (LEVEL 0 SUB INDEX TABLE) BIAS       FTN5TXT  1893
      L      0  00000000000000777777     BIAS     DEFINE 18          CPL. BIAS OF THIS LIST                      FTN5TXT  1894
                                                                                                                 FTN5TXT  1895
                                                                                                                 FTN5TXT  1896
                                                  DESCRIBE EF.                                                   FTN5TXT  1897
      L     55  77777000000000000000     ORD      DEFINE 15          SYMORD OF FP(I)                             FTN5TXT  1898
                                                  DEFINE 3*15                                                    FTN5TXT  1899
  
  
  
  
                                        **        T.SUB - *SUB*  BLOCK TABLE.                                    FTN5TXT  1901
                                        *                                                                        FTN5TXT  1902
                                        *         BUILT BY THE ASSEMBLER.  CONTAIN  *SUB*  BLOCKS FOR THE        FTN5TXT  1903
                                        *         CURRENT PROGRAM UNIT.                                          FTN5TXT  1904
                                                                                                                 FTN5TXT  1905
                                                                                                                 FTN5TXT  1906
                                                  DESCRIBE SB.,60                                                FTN5TXT  1907
      L     60  77770000000000000000     POS      DEFINE 12          INSTRUCTION PARCEL SHIFT COUNT + 2000B      FTN5TXT  1908
                                        *                            = $+2001B - $/59*61                         FTN5TXT  1909
                                        *                            = POSITIVE FOR THE FIRST ENTRY FOR A PARAM, FTN5TXT  1910
                                        *                              OR IF A *DELAY* PRECEDED THIS *SUB*.      FTN5TXT  1911
                                        *                              OTHERWISE POSC = POSC * -1.               FTN5TXT  1912
      L     47  00007770000000000000     FPNO     DEFINE WB.FPNOL    FORMAL PARAMETER NUMBER                     FTN5TXT  1913
                                                  DEFINE 3                                                       FTN5TXT  1914
      L     22  00000000777777000000     BIAS     DEFINE PB.BIASL    BIAS ADDED                                  FTN5TXT  1915
      L      0  00000000000000777777     ORG      DEFINE 18          ADDRESS OF INSTRUCTION TO *ADDSUB*          FTN5TXT  1916
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   114
        TABLE AND STRUCTURE DECLARATIONS.                             T.SUB0
  
                                        **        T.SUB0 - *SUB0* BLOCK TABLE.                                   FTN5TXT  1918
                                        *                                                                        FTN5TXT  1919
                                        *         BUILT BY THE ASSEMBLER. CONTAIN *SUB0* BLOCKS FOR THE          FTN5TXT  1920
                                        *         CURRENT PROGRAM UNIT.                                          FTN5TXT  1921
                                                                                                                 FTN5TXT  1922
                                                                                                                 FTN5TXT  1923
                                                  DESCRIBE SZ.,60                                                FTN5TXT  1924
      L     60  77770000000000000000     POS      DEFINE 12          2036B + INSTRUCTION PARCEL SHIFT COUNT      FTN5TXT  1925
                                                  DEFINE 3           0                                           FTN5TXT  1926
      L     36  00000777770000000000     SLI      DEFINE 15          SCMI .XOR. LCMI                             FTN5TXT  1927
                                        *                            SCMI = SCM LOAD/STORE INSTRUCTION (53IJ0)   FTN5TXT  1928
                                        *                            LCMI = LCM LOAD/STORE INSTRU.(014IJ ,015IJ) FTN5TXT  1929
                                                  DEFINE 12          0                                           FTN5TXT  1930
      L      0  00000000000000777777     ORG      DEFINE 18          ADDRESS OF INSTRUCTION                      FTN5TXT  1931
  
  
  
  
                                        **        T.SBI - *SUB* BLOCK INDEX TABLE.                               FTN5TXT  1933
                                        *                                                                        FTN5TXT  1934
                                        *         BUILT BY THE ASSEMBLER.  CONTAINS INDICIES INTO THE *SUB*      FTN5TXT  1935
                                        *         BLOCK FOR THE CURRENT PROGRAM UNIT.                            FTN5TXT  1936
                                                                                                                 FTN5TXT  1937
                                                                                                                 FTN5TXT  1938
                                                  DESCRIBE IS.,60                                                FTN5TXT  1939
      L     60  77770000000000000000     FPN      DEFINE 12          PACKED FPNO                                 FTN5TXT  1940
      L      0  00007777777777777777     AD       DEFINE 48          ADDRESS (INDEX) OF  SUB  , THIS FP.         FTN5TXT  1941
  
  
  
  
                                        **        F.LBT - LOCAL BLOCK TABLE (A FIXED TABLE).                     FTN5TXT  1943
                                        *                                                                        FTN5TXT  1944
                                        *         LB.ORG IS CALCULATED FROM  LB.PARC  AND  LB.BLEN  BY THE       FTN5TXT  1945
                                        *         ASSEMBLER.                                                     FTN5TXT  1946
                                        *         ROUTINE  *PIG*  KEEPS *LB.BLEN* STORED IN *LB.TBLN/LB.ORG*.    FTN5TXT  1947
                                        *         ROUTINE  *END*  MOVES *LB.TBLN*  TO *LB.BLEN* BEFORE MERGING   FTN5TXT  1948
                                        *         THE CALCULATED *LB.ORG* INTO THE WORD.                         FTN5TXT  1949
                                                                                                                 FTN5TXT  1950
                                                                                                                 FTN5TXT  1951
                                                  DESCRIBE LB.,60                                                FTN5TXT  1952
      L     66  77000000000000000000     PARC     DEFINE 6           PARCEL COUNT                                FTN5TXT  1953
                                                  DEFINE 18                                                      FTN5TXT  1954
      L     22  00000000777777000000     BLEN     DEFINE 18          LENGTH OF BLOCK                             FTN5TXT  1955
      L      0  00000000000000777777     ORG      DEFINE 18          PROGRAM RELATIVE ADDRESS / ORG COUNTER      FTN5TXT  1956
      L      0  00000000000000777777     TBLN     DEQU   ORG         TEMP BLEN STORAGE FOR PASS 2 (PIG)          FTN5TXT  1957
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   115
        TABLE AND STRUCTURE DECLARATIONS.                             F.PIK 
  
                                        **        F.PIK - MACHINE OPERATION DESCRIPTION TABLE.                   FTN5TXT  1959
                                        *                                                                        FTN5TXT  1960
                                        *         EACH ENTRY DESCRIBES HOW TO FORMAT THE OBJECT LISTING, AS      FTN5TXT  1961
                                        *         WELL AS ATTRIBUTES OF THE INSTRUCTION.                         FTN5TXT  1962
                                        ** FV     ****   NOTE - DO NOT BE MISLEAD BY SYMBOLIC DESCRIPTION;       FTN5TXT  1963
                                        *                MANY HARD-NUMBER REFERENCES EXIST IN COMPILER.          FTN5TXT  1964
                                        *         IN PARTICULAR, (Q, BJMP, FUPA) SHOULD BE INSIDE THE (OD.ATR)   FTN5TXT  1965
                                        *         FIELD, BUT THEY ARE NOT YET REFERRED TO SYMBOLICALLY.          FTN5TXT  1966
                                                                                                                 FTN5TXT  1967
                                                                                                                 FTN5TXT  1968
                                   4     OD.EDL   EQU    4           WIDTH OF EACH EDIT DESCRIPTOR               FTN5TXT  1969
                                  11     OD.EDN   EQU    9           NUMBER OF EDIT DESCRIPTORS ALLOWED          FTN5TXT  1970
                                                                                                                 FTN5TXT  1971
                                                                                                                 FTN5TXT  1972
                                                  DESCRIBE OD.             OPERATION DESCRIPTION                 FTN5TXT  1973
                                                                                                                 FTN5TXT  1974
      L     73  40000000000000000000     Q        DEFINE             30-BIT INSTRUCTION                          FTN5TXT  1975
      L     72  20000000000000000000     BJMP     DEFINE             B-REGISTER JUMP INST                        FTN5TXT  1976
      L     71  10000000000000000000     FUPA     DEFINE             FORCE UPPER AFTER                           FTN5TXT  1977
                                                  DEFINE OD.EDN*OD.EDL                                           FTN5TXT  1978
      L     14  00000000000007770000     ATR      DEFINE 9           ATTRIBUTES      (SEE BELOW)                 FTN5TXT  1979
      L      0  00000000000000007777     GH       DEFINE 2*6         LETTERS FOR COL 11+12                       FTN5TXT  1980
                                   0              ERRNZ  OD.GHP                                                  FTN5TXT  1981
                                                                                                                 FTN5TXT  1982
                                                                                                                 FTN5TXT  1983
                                                  REDEF  ATR                                                     FTN5TXT  1984
      L     24  00000000000004000000     IM       DEFINE             INTEGER MULTIPLY INSTRUCTION                FTN5TXT  1985
      L     23  00000000000002000000     UP       DEFINE             UNPACK INSTRUCTION                          FTN5TXT  1986
      L     22  00000000000001000000     PK       DEFINE             PACK INSTRUCTION                            FTN5TXT  1987
      L     21  00000000000000400000     BJ       DEFINE             (J) IS A *B* REGISTER                       FTN5TXT  1988
      L     20  00000000000000200000     JKV      DEFINE             (JK) IS A 6-BIT VALUE                       FTN5TXT  1989
      L     17  00000000000000100000     KJ       DEFINE             NEEDS (K) AND (J) INTERCHANGED              FTN5TXT  1990
      L     16  00000000000000040000     DIV      DEFINE             DIVIDE:  (X.J) CANNOT BE ZERO               FTN5TXT  1991
      L     15  00000000000000020000     FPA      DEFINE             FLOATING POINT ARITH (DO LEGVAR CHECK)      FTN5TXT  1992
      L     14  00000000000000010000     COPY     DEFINE             NEEDS (K) SET TO (J)                        FTN5TXT  1993
                                   0              ERRNZ  OD.COPYP-OD.ATRP                                        FTN5TXT  1994
  
  
  
  
                                        **        MOD - MODE OF PROGRAM-UNIT BEING COMPILED.                     FTN5TXT  1996
                                        *                                                                        FTN5TXT  1997
                                        *         THE FOLLOWING ARE USED IN CONJUNCTION WITH THE CELL *MOD* AND  FTN5TXT  1998
                                        *         REFER TO MODE OF COMPILATION FOR THE CURRENT PROGRAM UNIT.     FTN5TXT  1999
                                                                                                                 FTN5TXT  2000
                                                                                                                 FTN5TXT  2001
                                                  DESCRIBE  MO.,60                                               FTN5TXT  2002
                                                                                                                 FTN5TXT  2003
                                                  DEFINE 12                                                      FTN5TXT  2004
      L     35  00007777774000000000     CLIF     DEFINE 19          CHARACTER LENGTH INFORMATION                FTN5TXT  2005
                                                  REDEF  CLIF                                                    FTN5TXT  2006
      L     36  00007777770000000000     CLEN     DEFINE 18          CHARACTER LENGTH (CHARACTER FUNCTIONS ONLY) FTN5TXT  2007
      L     35  00000000004000000000     CTYP     DEFINE             CHARACTER LENGTH TYPE (AS PER WC.CTYP)      FTN5TXT  2008
                                                  DEFINE 17                                                      FTN5TXT  2009
      L     11  00000000000000007000     PTYP     DEFINE 3           PROGRAM TYPE                                FTN5TXT  2010
      L     10  00000000000000000400     BLK      DEFINE 1           BLOCK DATA                                  FTN5TXT  2011
      L      7  00000000000000000200     TYP      DEFINE             EXPLICITLY TYPED FUNCTION                   FTN5TXT  2012
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   116
        TABLE AND STRUCTURE DECLARATIONS.                             MOD 
  
                                                  DEFINE 4                                                       FTN5TXT  2013
      L      0  00000000000000000007     MODE     DEFINE WB.MODEL    MODE, IF FUNCTION                           FTN5TXT  2014
                                                                                                                 FTN5TXT  2015
                                                                                                                 FTN5TXT  2016
                                        *         (MO.PTYP) HAS TO CONFORM TO PMDUMP INTERFACE SPEC.             FTN5TXT  2017
                                        *         SEE DAP S2762.  CODE IN FAS/DFD.                               FTN5TXT  2018
                                        *                (BT.TYP) = (MO.PTYP) / 2                                FTN5TXT  2019
                                                                                                                 FTN5TXT  2020
                                                  REDEF  PTYP                                                    FTN5TXT  2021
      L     13  00000000000000004000     FUN      DEFINE 1           FUNCTION                                    FTN5TXT  2022
      L     12  00000000000000002000     SUB      DEFINE 1           SUBROUTINE                                  FTN5TXT  2023
      L     11  00000000000000001000     PRO      DEFINE 1           MAIN PROGRAM                                FTN5TXT  2024
  
  
  
  
                                        **        PARMODE - SELECT SPECIAL PARSING MODE.                         FTN5TXT  2026
                                        *                                                                        FTN5TXT  2027
                                        *         PARSER ALWAYS RESETS THIS CELL = 'EXPR' BEFORE EXITING.        FTN5TXT  2028
                                                                                                                 FTN5TXT  2029
                                                                                                                 FTN5TXT  2030
      L      0                                    LOC    0                                                       FTN5TXT  2031
      L      0                     1     PM=EXPR  BSS    1           NORMAL EXECUTABLE EXPRESSION                FTN5TXT  2032
      L      1                     1     PM=ICE   BSS    1           INTEGER CONSTANT EXPRESSION                 FTN5TXT  2033
      L      2                     1     PM=CXP   BSS    1           CONSTANT EXPRESSION                         FTN5TXT  2034
      L      3                     1     PM=DIM   BSS    1           DIMENSION BOUND                             FTN5TXT  2035
      L      4                     1     PM=IOD   BSS    1           PRE-SCAN OF IMPLIED LOOPS                   FTN5TXT  2036
      L      5                     1     PM=DATA  BSS    1           DATA ITEM LIST                              FTN5TXT  2037
      L      6                     1     PM=DCON  BSS    1           DATA CONSTANT LIST                          FTN5TXT  2038
      L      7                     1     PM=PARM  BSS    1           *PARAMETER* STATEMENT PROCESSING            FC5A156     6
           235                                    LOC    *O                                                      FC5A156     7
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   117
        TABLE AND STRUCTURE DECLARATIONS.                             ARGMODE 
  
                                        **        ARGMODE - PARSER CONTEXT STACK.                                FTN5TXT  2042
                                        *                                                                        FTN5TXT  2043
                                        *         THE PARSER MAINTAINS THREE CELLS FOR CURRENT CONTEXT INFO.     FTN5TXT  2044
                                        *         ALL THREE ARE PUSHED AND POPPED ON T.PCS AS PARENS,            FC51075     8
                                        *         ETC, ARE ENCOUNTERED.                                          FTN5TXT  2046
                                                                                                                 FTN5TXT  2047
                                                                                                                 FTN5TXT  2048
      L      0                                    LOC    0                                                       FTN5TXT  2049
                                                  QUAL   PSTACK                                                  FTN5TXT  2050
      L      0                     1     ARGMODE  BSS    1                                                       FTN5TXT  2051
      L      1                     1     ARGCOMA  BSS    1                                                       FTN5TXT  2052
      L      2                     1     ARGMISC  BSS    1                                                       FTN5TXT  2053
                                                  QUAL   *                                                       FTN5TXT  2054
      L      3                           Z=PSTACK BSS                LENGTH OF PAREN STACK FRAME                 FTN5TXT  2055
           240                                    LOC    *O                                                      FTN5TXT  2056
                                                                                                                 FTN5TXT  2057
                                                                                                                 FTN5TXT  2058
                                                  DESCRIBE  AM.,,,/PSTACK/ARGMODE                                FTN5TXT  2059
                                                                                                                 FTN5TXT  2060
      L     60  77770000000000000000     REF      DEFINE 12                                                      FTN5TXT  2061
      L     44  00007777000000000000     ATR      DEFINE 12          ATTRIBUTES (SEE BELOW)                      FTN5TXT  2062
      L     22  00000000777777000000     COM      DEFINE 18                                                      FTN5TXT  2063
      L      0  00000000000000777777     PAD      DEFINE 18                                                      FTN5TXT  2064
                                                                                                                 FTN5TXT  2065
                                                  REDEF  ATR                                                     FTN5TXT  2066
                                                  DEFINE 5                                                       FTN5TXT  2067
      L     52  00000100000000000000     ARE      DEFINE             ALLOW UNSUBSCRIPTED ARRAY NAME              FTN5TXT  2068
      L     51  00000040000000000000     LEV3     DEFINE             ALLOW LEVEL 3 NAME                          FTN5TXT  2069
      L     50  00000020000000000000     COL      DEFINE             ALLOW COLON                                 FTN5TXT  2070
      L     47  00000010000000000000     EQ       DEFINE             ALLOW *=*                                   FTN5TXT  2071
      L     46  00000004000000000000     RP       DEFINE             INDICATE SPECIAL RIGHT PAREN PROCESSING     FTN5TXT  2072
      L     45  00000002000000000000     EOS      DEFINE             ALLOW *EOS* TO UNSTACK LEFT PAREN           FTN5TXT  2073
      L     44  00000001000000000000     FUN      DEFINE             ALLOW FUNCTION REFERENCE WITHOUT *(*        FTN5TXT  2074
                                                                                                                 FTN5TXT  2075
                                                                                                                 FTN5TXT  2076
                                                  DESCRIBE  AC.,,,/PSTACK/ARGCOMA                                FTN5TXT  2077
                                                                                                                 FTN5TXT  2078
                                                                                                                 FTN5TXT  2079
                                        *                            -- WHEN PARSING ARRAY SUBSCRIPTS (C=ARRAY). FTN5TXT  2080
      L    173  40000000000000000000     VSUB     DEFINE 1           =1 IF ARRAY SUBSCR NOT CONST, =0 IF CONST   FTN5TXT  2081
                                                  DEFINE 5                                                       FTN5TXT  2082
      L    144  00777777000000000000     SYM      DEFINE 18          T.SYM ORDINAL OF ARRAY                      FTN5TXT  2083
      L    122  00000000777777000000     DIMI     DEFINE 18          T.DIM INDEX OF ARRAY                        FTN5TXT  2084
      L    100  00000000000000777777     CNT      DEFINE 18          COUNT OF SUBSCR EXPR PARSED IN ARRAY REF    FTN5TXT  2085
                                                                                                                 FTN5TXT  2086
                                                  REDEF              -- WHEN PARSING CALL OR FUNCTION ARG LIST,  FTN5TXT  2087
                                                                        ( C=CALL, C=FUN ).                       FC5A411    27
                                                  DEFINE 24                                                      FTN5TXT  2089
      L    122  00000000777777000000     MODE     DEFINE 18                                                      FTN5TXT  2090
      L    100  00000000000000777777     CNT      DEFINE AC.CNTL     COUNT-1 OF ARGUMENTS                        FTN5TXT  2091
                                                                                                                 FC5A411    28
                                                  REDEF              -- WHEN PARSING INTRINSIC ARG LIST.         FC5A411    29
      L    173  40000000000000000000     BOOL     DEFINE 1           =1 IF BOOLEAN ARGUMENT OCCURRED             FC5A411    30
                                                  DEFINE 5                                                       FC5A411    31
      L    144  00777777000000000000     MAXM     DEFINE 18          MAXIMUM ARGUMENT MODE                       FC5A411    32
      L    122  00000000777777000000     MODE     DEFINE AC.MODEL    MODE OF INTRINSIC                           FC5A411    33
      L    100  00000000000000777777     CNT      DEFINE AC.CNTL     COUNT-1 OF ARGUMENTS                        FC5A411    34
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   118
        TABLE AND STRUCTURE DECLARATIONS.                             ARGMODE 
  
                                                                                                                 FTN5TXT  2092
                                                  REDEF              -- WHEN PARSING ST. FUNCT. ARGS.            FTN5TXT  2093
                                                                                                                 FTN5TXT  2094
                                                  DEFINE 24                                                      FTN5TXT  2095
      L    122  00000000777777000000     EARG     DEFINE 18          ADDRESS OF ACTUAL ARG ON ESTACK             FTN5TXT  2096
      L    100  00000000000000777777     CNT      DEFINE AC.CNTL                                                 FTN5TXT  2097
                                                                                                                 FTN5TXT  2098
                                                  REDEF              -- WHEN PARSING ST. FUNCT. BODY             FTN5TXT  2099
                                                                                                                 FTN5TXT  2100
                                                  DEFINE 42                                                      FTN5TXT  2101
      L    100  00000000000000777777     TBR      DEFINE 18          B4 RESTORE                                  FTN5TXT  2102
                                                                                                                 FTN5TXT  2103
                                                  REDEF              -- WHEN PARSING *DO* LOOP INDICES  ( C=DO ) FTN5TXT  2104
                                                  DEFINE 42          MUST CONTAIN ZERO  (SEE *PAR.PL*)           FTN5TXT  2105
      L    100  00000000000000777777     CNT      DEFINE AC.CNTL     *DO* PARAMETER INDEX  ( SEE *PAR/C=DO* )    FTN5TXT  2106
                                                                                                                 FTN5TXT  2107
                                                  REDEF              -- WHEN PARSING CHARAC SUBSTRING  ( C=SBS ) FTN5TXT  2108
                                                  DEFINE 24                                                      FTN5TXT  2109
      L    122  00000000777777000000     MODE     DEFINE AC.MODEL    MODE OF VARIABLE = M.CHAR                   FTN5TXT  2110
                                                  DEFINE AC.CNTL                                                 FTN5TXT  2111
                                                                                                                 FTN5TXT  2112
                                                                                                                 FTN5TXT  2113
                                                  DESCRIBE AS.,,,/PSTACK/ARGMISC                                 FTN5TXT  2114
                                                                                                                 FTN5TXT  2115
                                                  REDEF              -- WHEN C=BIF --                            FTN5TXT  2116
      L    230  77777777777700000000     SYM      DEFINE 6*CHAR      NAME OF INTRINSIC                           FTN5TXT  2117
                                                  DEFINE 1*CHAR                                                  FTN5TXT  2118
      L    200  00000000000000777777     ORD      DEFINE 18          SYMTAB ORDINAL                              FTN5TXT  2119
                                   2              ERRMI  AS.ORDL-TP.ORDL                                         FTN5TXT  2120
                                                                                                                 FTN5TXT  2121
                                                  REDEF              -- WHEN PARSING ARRAY SUBSCRIPTS  (C=ARRAY) FTN5TXT  2122
      L    222  77777777777777000000     NAME     DEFINE WA.NAMEL    ARRAY NAME  ( -L- FORMAT )                  FTN5TXT  2123
                                                  DEFINE 60-WA.NAMEL MUST =0 FOR *PAR/A=ARRAY*, *FERRS/OSE*      FTN5TXT  2124
  
  
  
  
                                        **        KW. - STATEMENT *KEYW* TABLE STRUCTURE DEFINITIONS.            FTN5TXT  2126
                                        *                                                                        FTN5TXT  2127
                                        *                                                                        FTN5TXT  2128
                                        *         THE STATEMENT KEYWORD TABLE (DEFINED IN DECK *LEX* VIA         FTN5TXT  2129
                                        *         *KEYW* MACRO) CONTAINS INFORMATION THAT DEFINES ALL THE        FTN5TXT  2130
                                        *         POSSIBLE TYPES OF STMTS THAT CAN OCCUR IN *FTN*, AND HOW       FTN5TXT  2131
                                        *         CERTAIN STMT TYPES RELATE TO ONE ANOTHER.                      FTN5TXT  2132
                                        *                                                                        FTN5TXT  2133
                                        *         FIELDS WITHIN EACH INDIVIDUAL *KEYW* ENTRY ARE                 FTN5TXT  2134
                                        *         DESCRIBE/DEFINED IN THE USUAL MANNER VIA SYMBOLS               FTN5TXT  2135
                                        *         OF THE FORM --                                                 FTN5TXT  2136
                                        *                                                                        FTN5TXT  2137
                                        *                KW.XXXL  AND  KW.XXXP                                   FTN5TXT  2138
                                        *                                                                        FTN5TXT  2139
                                        *         WHERE *KW.* IS A COMMON PREFIX AND *XXX* IS A UNIQUE FIELD     FTN5TXT  2140
                                        *         NAME.                                                          FTN5TXT  2141
                                        *                                                                        FTN5TXT  2142
                                        *         FIELDS *XXX* WITHIN *KW.* STRUCTURE ARE DESCRIBED BRIEFLY      FTN5TXT  2143
                                        *         BELOW.  FOR MORE THOROUGH INFORMATION, SEE FTN KEYWORD         FTN5TXT  2144
                                        *         TABLE DEFINITION IN DECK *LEX* (AT ADDR *FW.KEYW*).            FTN5TXT  2145
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   119
        TABLE AND STRUCTURE DECLARATIONS.                             KW. 
  
                                        *                                                                        FTN5TXT  2146
                                        *         KEY  = ADDR OF *LITKEY* LITERAL STRING FOR THIS KEYWORD.       FTN5TXT  2147
                                        *                                                                        FTN5TXT  2148
                                        *                NOTE THAT FOR SYNTACTICALLY DEFINED STMTS SUCH AS       FTN5TXT  2149
                                        *                *DO*, *IF*, AND REPLACEMENT, THAT A KEYWORD SEARCH      FTN5TXT  2150
                                        *                IS MEANINGLESS.  THEREFORE, THE *KEY* FIELD IS SET TO   FTN5TXT  2151
                                        *                .MI. SO THAT INTERESTED PARTIES CAN KNOW THAT THIS IS   FTN5TXT  2152
                                        *                A SYNTACTICALLY DEFINED STMT.                           FTN5TXT  2153
                                        *                                                                        FTN5TXT  2154
                                        *         JMP  = ADDR OF THE STMT PROCESSOR THAT IS TO PROCESS A STMT    FTN5TXT  2155
                                        *                DEFINED BY THIS *KEYW* ENTRY.                           FTN5TXT  2156
                                        *                                                                        FTN5TXT  2157
                                        *         FEC  = *FEC* (FRONT END CONTROLLER) STAGE THAT A STMT          FTN5TXT  2158
                                        *                WITH THIS *KEYW* ENTRY CAN OCCUR IN.                    FTN5TXT  2159
                                        *                                                                        FTN5TXT  2160
                                        *         INFO = SPECIAL INFORMATION FIELD FOR REFERENCES TO A *SUBKEY*  FTN5TXT  2161
                                        *                KEYWORD TABLE.  THIS FIELD COEXISTS (DEQU) WITH THE     FTN5TXT  2162
                                        *                *JMP* FIELD, AND IS INTENDED FOR USE BY KEYWORD         FTN5TXT  2163
                                        *                PROCESSORS THAT REQUIRE MORE CONTROL OVER WHAT WE       FTN5TXT  2164
                                        *                WILL CALL THE *KEYWORD TYPE*.                           FTN5TXT  2165
                                        *                                                                        FTN5TXT  2166
                                        *         ATTR = ATTRIBUTES OF THIS STATEMENT.  *ATTR* FIELD CONSISTS    FTN5TXT  2167
                                        *                OF A NUMBER OF BIT FLAGS THAT CONTAIN MISCELLANEOUS     FTN5TXT  2168
                                        *                INFORMATION ABOUT THIS STMT.  SEE BELOW.                FTN5TXT  2169
                                        *                                                                        FTN5TXT  2170
                                        *                                                                        FTN5TXT  2171
                                        *         *ATTR* BIT FLAGS ARE --                                        FTN5TXT  2172
                                        *                                                                        FTN5TXT  2173
                                        *         DON  = 1 IF THIS STMT MAY NOT BE A *DO* TERMINAL, ELSE 0.      FTN5TXT  2174
                                        *                                                                        FTN5TXT  2175
                                        *         NIF  = 1 IF THIS STMT MAY NOT BE THE OBJECT OF A LOGICAL       FTN5TXT  2176
                                        *                  *IF*, ELSE 0.                                         FTN5TXT  2177
                                        *                                                                        FTN5TXT  2178
                                        *         LBL  = 1 IF THIS STMT MAY HAVE A REFERRABLE LABEL, ELSE 0.     FTN5TXT  2179
                                        *                                                                        FTN5TXT  2180
                                        *         GEN  = 1 IF THIS STMT GENERATES CODE, ELSE 0.                  FTN5TXT  2181
                                        *                                                                        FTN5TXT  2182
                                        *         BKD  = 1 IF THIS STMT IS LEGAL WITH A *BLOCKDATA*              FTN5TXT  2183
                                        *                  SUBPROGRAM, ELSE 0.                                   FTN5TXT  2184
                                        *                                                                        FTN5TXT  2185
                                        *         PWS  = 1 IF THIS STMT IS TO BE PROCESSED WHILE SKIPPING,       FTN5TXT  2186
                                        *                  (STAGE = FEC=BY), ELSE 0.                             FTN5TXT  2187
                                        *                                                                        FTN5TXT  2188
                                        *         IL   = 1 IF THIS STMT HAS IMPLIED LABEL (NOPATH INVALID),      FTN5TXT  2189
                                        *                  ELSE 0.                                               FTN5TXT  2190
                                        *                                                                        FC50785     7
                                        *         NBS  = 1 IF THIS STMT GENERATES TURPLES AND NO BOS IS TO BE    FC50785     8
                                        *                  OUTPUT.  RELEVANT ONLY WHEN GEN=1.                    FC50785     9
                                                                                                                 FTN5TXT  2191
                                                  DESCRIBE KW.                                                   FTN5TXT  2192
      L     52  77777700000000000000     JMP      DEFINE 18                                                      FTN5TXT  2193
      L     52  77777700000000000000     INFO     DEQU   JMP                                                     FTN5TXT  2194
      L     36  00000077770000000000     ATTR     DEFINE 12                                                      FTN5TXT  2195
      L     31  00000000007600000000     FEC      DEFINE 5                                                       FTN5TXT  2196
      L     22  00000000000177000000     LEN      DEFINE 7                                                       FTN5TXT  2197
      L      0  00000000000000777777     KEY      DEFINE 18                                                      FTN5TXT  2198
                                                                                                                 FTN5TXT  2199
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   120
        TABLE AND STRUCTURE DECLARATIONS.                             KW. 
  
                                                  REDEF  ATTR                                                    FTN5TXT  2200
      L     51  00000040000000000000     DON      DEFINE 1                                                       FTN5TXT  2201
      L     50  00000020000000000000     NIF      DEFINE 1                                                       FTN5TXT  2202
      L     47  00000010000000000000     LBL      DEFINE 1                                                       FTN5TXT  2203
      L     46  00000004000000000000     GEN      DEFINE 1                                                       FTN5TXT  2204
      L     45  00000002000000000000     BKD      DEFINE 1                                                       FTN5TXT  2205
      L     44  00000001000000000000     PWS      DEFINE 1                                                       FTN5TXT  2206
      L     43  00000000400000000000     IL       DEFINE 1                                                       FTN5TXT  2207
      L     42  00000000200000000000     NBS      DEFINE 1                                                       FC50785    10
  
  
  
  
                                        **        LF. - *LEXFLG* FIELD DEFINITIONS.                              FTN5TXT  2209
                                        *                                                                        FTN5TXT  2210
                                        *                                                                        FTN5TXT  2211
                                        *         *LF.* SYMBOLS DEFINE FIELDS WITHIN *LEXFLG*, THE LEXICAL       FTN5TXT  2212
                                        *         SCANNER MASTER CONTROL FLAG.  SEE *LEXFLG* IN DECK *LEX*.      FTN5TXT  2213
                                        *                                                                        FTN5TXT  2214
                                        *         FIELDS WITHIN *LEXFLG* ARE DESCRIBE/DEFINED VIA SYMBOLS        FTN5TXT  2215
                                        *         OF THE FORM --                                                 FTN5TXT  2216
                                        *                                                                        FTN5TXT  2217
                                        *                LF.XXXP  AND  LF.XXXL                                   FTN5TXT  2218
                                        *                                                                        FTN5TXT  2219
                                        *         SEE *LEXFLG* IN DECK *LEX* FOR A DESCRIPTION OF *LF.*          FTN5TXT  2220
                                        *         FIELDS.                                                        FTN5TXT  2221
                                                                                                                 FTN5TXT  2222
                                                                                                                 FTN5TXT  2223
                                                  DESCRIBE LF.                                                   FTN5TXT  2224
      L     73  40000000000000000000     HDR      DEFINE 1                                                       FTN5TXT  2225
                                                  DEFINE 2                                                       FTN5TXT  2226
      L     70  04000000000000000000     INI      DEFINE 1                                                       FTN5TXT  2227
                                                  DEFINE 2                                                       FTN5TXT  2228
      L     65  00400000000000000000     LAC      DEFINE 1                                                       FTN5TXT  2229
                                                  DEFINE 2                                                       FTN5TXT  2230
      L     62  00040000000000000000     CHR      DEFINE 1           'CHARACTER *' FLAG                          FTN5TXT  2231
                                                  DEFINE 2                                                       FTN5TXT  2232
      L     57  00004000000000000000     TDE      DEFINE 1           TERMINAL DELIMITER ENCOUNTERED              FC5A110     5
                                                  DEFINE 2                                                       FTN5TXT  2234
      L     54  00000400000000000000     FMT      DEFINE 1           FORMAT STATEMENT FLAG                       FTN5TXT  2235
  
  
  
  
                                        **        LM. - *LEXMODE* SYMBOL DEFINITIONS.                            FTN5TXT  2237
                                        *                                                                        FTN5TXT  2238
                                        *                                                                        FTN5TXT  2239
                                        *         *LM.* SYMBOLS DEFINE THE VARIOUS MODES THAT THE LEXICAL        FTN5TXT  2240
                                        *         SCANNER, *LEX*, MAY BE PLACED IN.  A DESCRIPTION OF THESE      FTN5TXT  2241
                                        *         MODES IS CONTAINED IN THE DECK *LEX*, AS IT WAS THOUGHT TO     FTN5TXT  2242
                                        *         BE MORE APPROPRIATE/USEFUL PLACED THERE.                       FTN5TXT  2243
                                                                                                                 FTN5TXT  2244
                                                                                                                 FTN5TXT  2245
                                   0     LM.NORM  =      0           *NORMAL* MODE                               FTN5TXT  2246
                                   1     LM.NTR   =      1           *NEED TO READ* MODE                         FTN5TXT  2247
                                   2     LM.1ST   =      2           *1ST LINE IN PROGRAM UNIT* MODE             FTN5TXT  2248
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   121
        TABLE AND STRUCTURE DECLARATIONS.                             SF. 
  
                                        **        SF. - FORMAT OF STATEMENT FUNCTION HEADER.                     FTN5TXT  2250
                                                                                                                 FTN5TXT  2251
                                                                                                                 FTN5TXT  2252
                                                  DESCRIBE SF.                                                   FTN5TXT  2253
                                                  DEFINE 6                                                       FC5A172     7
      L     44  00777777000000000000     PEAR     DEFINE 18          PREVIOUS ELIST BASE FOR ACTUAL ARGS.        FTN5TXT  2255
      L     22  00000000777777000000     DACP     DEFINE 18          DUMMY ARGUMENT REF. CHAIN HEAD              FTN5TXT  2256
      L      0  00000000000000777777     TOK      DEFINE 18          DUMMY TOKEN FOR PAR                         FC5A172     8
  
  
  
  
                                        **        VS. - FORMAT OF SKELETON CONTROL TABLE.                        FTN5TXT  2258
                                                                                                                 FTN5TXT  2259
                                                                                                                 FTN5TXT  2260
                                                  DESCRIBE VS.                                                   FTN5TXT  2261
                                                                                                                 FTN5TXT  2262
      L     73  40000000000000000000     NKIL     DEFINE             TURPLE NOT KILLABLE IN QCGC/*KUT*           FTN5TXT  2263
      L     72  20000000000000000000     1DUC     DEFINE             USE COUNT 1OP                               FTN5TXT  2264
      L     71  10000000000000000000     2DUC     DEFINE             USE COUNT 2OP                               FTN5TXT  2265
                                                  DEFINE 3                                                       FTN5TXT  2266
      L     44  00777777000000000000     SBI      DEFINE 18          SKELETON START INDEX (U=)                   FTN5TXT  2267
      L     22  00000000777777000000     DRA      DEFINE 18          DATA REDUCTION ADDRESS                      FTN5TXT  2268
      L      0  00000000000000777777     CRA      DEFINE 18          CONSTANT REDUCTION ADDRESS (U=)             FTN5TXT  2269
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   122
        TABLE AND STRUCTURE DECLARATIONS.                             IT. 
  
                                        ***       IT. - INTRINSIC FUNCTION DEFINITION.                           FTN5TXT  2271
                                        *                                                                        FTN5TXT  2272
                                        *         TABLE INCLUDES BOTH INLINE AND EXTERNAL INTRINSICS.            FTN5TXT  2273
                                        *         THERE IS ONE WORD PER NAME, IN (IT.) FORMAT --                 FTN5TXT  2274
                                        *                                                                        FTN5TXT  2275
                                        *         +----------------------------------+-------+---+-------+--+--+ FC5A227    49
                                        *         +                                  +   A   + A +       +A + M+ FC5A227    50
                                        *         +    F U N C T I O N     N A M E   +   T   + R +  JPAD +R + O+ FC5A227    51
                                        *         +                                  +       + G +       +G + D+ FC5A227    52
                                        *         +                                  +OCNGXAP+ C +       +M + E+ FC5A227    53
                                        *         +----------------------------------+-------+---+-------+--+--+ FC5A227    54
                                        *                        36                      7     3     8    3  3   FC5A227    55
                                        *                                                                        FTN5TXT  2283
                                        *         (NAME) = NAME OF FUNCTION (-L- FORMAT).                        FTN5TXT  2284
                                        *         (AT)   = 1/O, 1/C, 1/N, 1/G, 1/X, 1/A, 1/P                     FC5A227    56
                                        *                O = GENERIC INTRINSIC ONLY                              FC5A227    57
                                        *                C = CHARACTER INTRINSIC (SUFFIX DEPENDING ON COLLATE)   FC5A227    58
                                        *                N = ALWAYS CALL-BY-NAME                                 FTN5TXT  2286
                                        *                G = GENERIC NAME.                                       FTN5TXT  2287
                                        *                X = EXTERNAL INTRINSIC.                                 FTN5TXT  2288
                                        *                A = DEFINED IN ANS FORTRAN.                             FTN5TXT  2289
                                        *                P = PARSER HAS SPECIAL PROCESSING.                      FTN5TXT  2290
                                        *         (ARGC) = NUMBER OF ARGUMENTS REQUIRED.                         FC5A227    59
                                        *                  OMITTED IF INDETERMINATE ( 0 MEANS NO ARGUMENTS).     FC5A227    60
                                        *         (JPAD) = HOW (WHERE) FUNCTION IS DESCRIBED.  DEPENDS ON (AT).  FC5A227    61
                                        *                P -- INDEX OF PROCESSOR IN PARSER.                      FTN5TXT  2292
                                        *                G -- INDEX OF DMOD VECTOR               (UNLESS *P*).   FTN5TXT  2293
                                        *                X -- B REGS PRESERVED             (UNLESS *G* OR *P*).  FTN5TXT  2294
                                        *         (ARGM) = REQUIRED MODE OF ARGUMENT.                            FTN5TXT  2295
                                        *         (MODE) = RESULT MODE OF SPECIFIC FUNCTION.                     FTN5TXT  2299
                                        *                                                                        FTN5TXT  2300
                                        *         A GENERIC FUNCTION HAS A SELECTOR WORD INSERTED IN THIS        FTN5TXT  2304
                                        *         TABLE IMMEDIATELY FOLLOWING ITS ENTRY.                         FTN5TXT  2305
                                        *                                                                        FTN5TXT  2306
                                        *         THE TABLE ITSELF IS LOCATED IN PARSKEL.                        FTN5TXT  2307
                                                                                                                 FTN5TXT  2308
                                                                                                                 FTN5TXT  2309
                                                  DESCRIBE IT.                                                   FTN5TXT  2310
                                                                                                                 FTN5TXT  2311
      L     30  77777777777700000000     DPC      DEFINE 6*6         NAME OF FUNCTION                            FTN5TXT  2312
      L     21  00000000000077400000     ATTR     DEFINE 7           ATTRIBUTES OF FUNCTION  (SEE BELOW)         FC5A227    62
      L     16  00000000000000340000     ARGC     DEFINE 3           REQUIRED NUMBER OF ARGUMENTS (-0 = INDEF)   FC5A227    63
      L      6  00000000000000037700     JPAD     DEFINE 8           WHERE FUNC IS DEFINED                       FTN5TXT  2315
      L      3  00000000000000000070     ARGM     DEFINE WB.MODEL    REQUIRED MODE OF ARGS                       FTN5TXT  2316
      L      0  00000000000000000007     MODE     DEFINE WB.MODEL    RESULT MODE OF FUNCTION                     FTN5TXT  2317
                                                                                                                 FTN5TXT  2318
                                                                                                                 FTN5TXT  2319
                                                  REDEF  ATTR                                                    FTN5TXT  2320
      L     27  00000000000040000000     GNO      DEFINE             GENERIC ONLY                                FC5A227    64
      L     26  00000000000020000000     CHAR     DEFINE             CHAR OR ICHAR (SUFFIX F IFF COLLATE=FIXED)  FTN5TXT  2321
      L     25  00000000000010000000     BYN      DEFINE             ALWAYS CALL-BY-NAME                         FTN5TXT  2322
      L     24  00000000000004000000     GENF     DEFINE             GENERIC NAME                                FTN5TXT  2323
      L     23  00000000000002000000     XTER     DEFINE             EXTERNAL INTRINSIC                          FTN5TXT  2324
      L     22  00000000000001000000     ANSI     DEFINE             DEFINED IN ANS FORTRAN                      FTN5TXT  2325
      L     21  00000000000000400000     PAR      DEFINE             PARSER HAS SPECIAL PROCESSING               FTN5TXT  2326
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   123
        TABLE AND STRUCTURE DECLARATIONS. 
  
           241                                    END                                                            FTN5TXT  2364
  
                             65400B CM  STORAGE USED            18079 STATEMENTS     1410 SYMBOLS      000001 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           12.111 SECONDS        1491 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AC.BOOLP       73                 117/53 D
        AC.CNTL        22                 117/44 D  117/50 D  117/57 D  118/06 D  118/15 D
                                          117/50    117/57    118/06    118/15    118/20
        AC.CNTP         0                 117/44 D  117/50 D  117/57 D  118/06 D  118/15 D
        AC.DIMIL       22                 117/43 D
        AC.DIMIP       22                 117/43 D
        AC.EARGL       22                 118/05 D
        AC.EARGP       22                 118/05 D
        AC.MAXML       22                 117/55 D
        AC.MAXMP       44                 117/55 D
        AC.MODEL       22                 117/49 D  117/56    117/56 D  118/19    118/19 D
        AC.MODEP       22                 117/49 D  117/56 D  118/19 D
        AC.SYML        22                 117/42 D
        AC.SYMP        44                 117/42 D
        AC.TBRL        22                 118/11 D
        AC.TBRP         0                 118/11 D
        AC.VSUBP       73                 117/40 D
        AC.W            1                 117/36 D
        AG.BIASL       30                 109/04 D
        AG.BIASP       24                 109/04 D  109/05
        AG.LABL        20                 109/07 D
        AG.LABP         0                 109/07 D
        AG.ORBIL       50                 108/56 D  109/01
        AG.ORBIP       24                 108/56 D  108/57    109/01    109/05
        AG.ORDL        20                 109/02 D
        AG.ORDP        54                 109/02 D  109/03
        AM.AREP        52                 117/27 D
        AM.ATRL        14                 117/21 D  117/25
        AM.ATRP        44                 117/21 D  117/25
        AM.COLP        50                 117/29 D
        AM.COML        22                 117/22 D
        AM.COMP        22                 117/22 D
        AM.EOSP        45                 117/32 D
        AM.EQP         47                 117/30 D
        AM.FUNP        44                 117/33 D
        AM.LEV3P       51                 117/28 D
        AM.PADL        22                 117/23 D
        AM.PADP         0                 117/23 D
        AM.REFL        14                 117/20 D
        AM.REFP        60                 117/20 D
        AM.RPP         46                 117/31 D
        AM.W            0                 117/18 D
        ANS.CONT       23                  14/14 D
        AS.NAMEL       52                 118/32 D
        AS.NAMEP       22                 118/32 D
        AS.ORDL        22                 118/28 D  118/29
        AS.ORDP         0                 118/28 D
        AS.SYML        44                 118/26 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   124
        SYMBOLIC REFERENCE TABLE. 
  
        AS.SYMP        30                 118/26 D
        AS.W            2                 118/23 D
        BLIA.W          1                 103/39 D
        BLIB.W          0                 103/37 D
        BLIC.W          5                 103/41 D
        BUFL.ADD        3                  14/29 D
        BUFL.DM      2003                  14/28 D
        BUFL.SM      1003                  14/27 D
        CA.BLVLL        2                  98/19 D
        CA.BLVLP       14                  98/19 D
        CA.BNAML       52                  98/12 D
        CA.BNAMP       22                  98/12 D
        CA.CHARM   400000                  98/13 D
        CA.CHARP       21                  98/13 D
        CA.CNFLM   100000                  98/17 D
        CA.CNFLP       17                  98/17 D
        CA.DFLTM    40000                  98/18 D
        CA.DFLTP       16                  98/18 D
        CA.LMIL        14                  98/20 D
        CA.LMIP         0                  98/20 D
        CA.LVLL         4                  98/15 D   98/16
        CA.LVLP        14                  98/15 D   98/16
        CA.NACM    200000                  98/14 D
        CA.NACP        20                  98/14 D
        CA.W            0                  98/11 D
        CB.BLENL       30                  98/29 D
        CB.BLENP        0                  98/29 D
        CB.FMIL        14                  98/27 D
        CB.FMIP        52                  98/27 D
        CB.LCMP        73                  98/24 D
        CB.RNCL         4                  98/26 D
        CB.RNCP        66                  98/26 D
        CB.SAVEP       72                  98/25 D
        CB.TAGL        22                  98/28 D
        CB.TAGP        30                  98/28 D
        CB.W            1                  98/23 D
        CHAR            6                  14/47 D   91/48 D   91/56     92/01    118/27
                                           83/32     91/53     91/57    118/26
        CH.DPCL        52                  83/32 D
        CH.DPCP        22                  83/32 D
        CH.OPCL        22                  83/33 D
        CH.OPCP         0                  83/33 D
        CP#RM           0                  10/33 F   10/34 D   17/01 F   20/01 F   23/01 F
        CR.AGN          1                 112/30 D
        CR.CALL         1                 112/44 D
        CR.CNTL        55                 112/36 D
        CR.DAT         11                 112/46 D
        CR.DEC         55                 112/45 D
        CR.DECD        22                 112/34 D
        CR.DEF          4                 112/56 D
        CR.DO           4                 112/32 D
        CR.DOI          3                 112/52 D
        CR.ENC         27                 112/35 D
        CR.GOTO        55                 112/31 D
        CR.IF          55                 112/53 D
        CR.IFN         55                 112/33 D
        CR.INF          1                 112/48 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   125
        SYMBOLIC REFERENCE TABLE. 
  
        CR.INP         22                 112/49 D
        CR.IOU         25                 112/54 D
        CR.LAB         14                 112/37 D
        CR.OUT         27                 112/50 D
        CR.PAR          1                 112/43 D
        CR.REF         55                 112/41 D
        CR.RET         22                 112/57 D
        CR.SRC         23                 112/55 D
        CR.STR         23                 112/42 D
        CR.SUB         55                 112/51 D
        CR.VGOTO       55                 112/47 D
        CT.CPU        111                   5/02 D   10/14 F
        CT.ECS          1                  10/37 F   10/39 D   15/45 F
        CT.LNKL        14                 100/38 D
        CT.LNKP        30                 100/38 D
        CT.RAL         30                 100/39 D
        CT.RAP          0                 100/39 D
        CT.TAGL        22                 100/36 D
        CT.TAGP        52                 100/36 D
        DA.BIASL       30                 110/54 D
        DA.BIASP       22                 110/54 D
        DA.CHP         73                 110/51 D
        DA.ORDL        20                 110/53 D
        DA.ORDP        52                 110/53 D
        DA.RPP         72                 110/52 D
        DA.W            0                 110/49 D
        DA.WCL         22                 110/55 D
        DA.WCP          0                 110/55 D
        DB.CNTL        30                 111/05 D
        DB.CNTP         0                 111/05 D
        DB.INCL        30                 111/03 D
        DB.INCP        36                 111/03 D
        DB.W            1                 111/01 D
        DH.ASP         72                 101/51 D
        DH.ATTRL        6                 101/44 D  101/49
        DH.ATTRP       66                 101/44 D  101/49
        DH.DIML         6                 101/47 D
        DH.DIMP         0                 101/47 D
        DH.MATP        70                 101/53 D
        DH.PSL         30                 101/45 D
        DH.PSP         36                 101/45 D
        DH.RAL         30                 101/46 D
        DH.RAP          6                 101/46 D
        DH.VDP         73                 101/50 D
        DH.VPP         71                 101/52 D
        DI.DLENL       22                 111/33 D
        DI.DLENP        0                 111/33 D
        DI.MODEL        3                 111/30 D
        DI.MODEP       66                 111/30 D
        DI.PNTL        22                 111/32 D
        DI.PNTP        22                 111/32 D
        DI.RCL         30                 111/23 D
        DI.RCP          0                 111/23 D
        DI.REPP        73                 111/20 D  111/28 D
        DI.RLL         22                 111/22 D
        DI.RLP         30                 111/22 D
        DM.INFL        30                 102/31 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   126
        SYMBOLIC REFERENCE TABLE. 
  
        DM.INFP         0                 102/31 D
        DM.TDP         35                 102/28 D
        DOCI.W          3                 103/24 L
        DOII.W          2                 103/23 L
        DOLI.W          1                 103/22 L  103/39
        DORT.W          4                 103/25 L
        DOSI.W          0                 103/21 L  103/37
        DOTC.W          6                 103/27 L
        DO.FLGL        22                 103/44 D
        DO.FLGP        52                 103/44 D
        DO.IODL        22                 103/47 D
        DO.IODP         0                 103/47 D
        DO.TAGL        22                 103/46 D
        DO.TAGP        22                 103/46 D
        DO.W            5                 103/26 L  103/41    103/43    103/43 D
        DP.DOTIL       22                 103/53 D
        DP.DOTIP       22                 103/53 D
        DP.DOXLL       22                 103/51 D
        DP.DOXLP       52                 103/51 D
        DP.TURCL       22                 103/54 D
        DP.TURCP        0                 103/54 D
        DP.W            7                 103/28 L  103/50    103/50 D
        DUC=            0                  84/09 D
        DUC=BOTH        3                  84/13 D
        DUC=NONE        0                  84/10 D
        DUC=1ST         1                  84/11 D
        DUC=2ND         2                  84/12 D
        D1.SPANL       36                 102/07 D
        D1.SPANP        0                 102/07 D
        D1.W            0                 102/04 D
        D2.LBL         36                 102/17 D
        D2.LBP         36                 102/17 D
        D2.UBL         36                 102/18 D
        D2.UBP          0                 102/18 D
        D2.W            1                 102/15 D
        EC.BIASL       30                 104/55 D  104/56
        EC.BIASP       30                 104/55 D  104/56
        EC.NML         30                 105/01 D
        EC.NMP          0                 105/01 D
        EC.SIZEL       30                 104/57 D  105/01
        EC.SIZEP        0                 104/57 D  105/01
        EC.SPANL       30                 104/56 D
        EC.SPANP       30                 104/56 D
        EC.SYML        14                 104/54 D
        EC.SYMP        60                 104/54 D
        EF.ORDL        17                 113/30 D
        EF.ORDP        55                 113/30 D
        EH.BIASL       22                 113/26 D
        EH.BIASP        0                 113/26 D
        EH.FPCL        14                 113/23 D
        EH.FPCP        60                 113/23 D
        EH.SB0IL       17                 113/25 D
        EH.SB0IP       22                 113/25 D
        EH.SUBIL       17                 113/24 D
        EH.SUBIP       41                 113/24 D
        EL=C            5                  15/03 L
        EL=F            4                  15/02 L
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   127
        SYMBOLIC REFERENCE TABLE. 
  
        EL=T            2                  14/57 L
        EL=W            3                  15/01 L
        EP.NAMEL       52                 113/05 D
        EP.NAMEP       22                 113/05 D
        EP.ORDL        22                 113/06 D
        EP.ORDP         0                 113/06 D
        EQ.ISUBP       35                 105/18 D
        EQ.LINKL       14                 105/14 D
        EQ.LINKP       60                 105/14 D
        EQ.STFL        22                 105/17 D
        EQ.STFP        36                 105/17 D
        EQ.SUBSL       60                 105/15 D  105/16
        EQ.SUBSP        0                 105/15 D  105/16
        EQ.SYMIL       35                 105/19 D
        EQ.SYMIP        0                 105/19 D
        FLSLOP          4                  15/34 D
        FLSLUP       1000                  15/36 D
        FLSLUP2      1400                  15/37 D
        FLSZ           12                  14/06 D
        FP.CAL          6                  97/18 D
        FP.CAP         62                  97/18 D
        FP.LCP         72                  97/15 D
        FP.LENL        16                  97/19 D   97/20
        FP.LENP        44                  97/19 D   97/20
        FP.LEV0P       70                  97/17 D
        FP.PNTL        22                  97/22 D
        FP.PNTP         0                  97/22 D
        FP.SUBL        16                  97/20 D
        FP.SUBP        44                  97/20 D
        FP.SUB0L       22                  97/21 D
        FP.SUB0P       22                  97/21 D
        FP.VDP         71                  97/16 D
        FP.VDSP        73                  97/14 D
        FUDGE           1                  15/33 D
        IA.ASGM       200                 110/01 D
        IA.ASGP         7                 110/01 D
        IA.BIASL       30                 109/50 D  109/51    109/52
        IA.BIASP       22                 109/50 D  109/51    109/52
        IA.CHARM     1000                 109/56 D
        IA.CHARP       11                 109/56 D
        IA.CRHM       400                 109/57 D
        IA.CRHP        10                 109/57 D
        IA.FPM        100                 110/02 D
        IA.FPP          6                 110/02 D
        IA.IOCM      4000                 109/54 D
        IA.IOCP        13                 109/54 D
        IA.LEFTL       22                 109/49 D
        IA.LEFTP       52                 109/49 D
        IA.MODEL        6                 109/53 D
        IA.MODEP       14                 109/53 D
        IA.ORBIL       52                 109/52 D
        IA.ORBIP       22                 109/52 D
        IA.RITEL       30                 109/51 D
        IA.RITEP       22                 109/51 D
        IA.STM       2000                 109/55 D
        IA.STP         12                 109/55 D
        IA.TAGL        22                 109/48 D  109/49    109/52
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   128
        SYMBOLIC REFERENCE TABLE. 
  
        IA.TAGP        52                 109/48 D  109/49
        IA.VARM        40                 110/03 D
        IA.VARP         5                 110/03 D
        IC=LEN         42                  81/18 D
        IC.ACC         14                  80/50 L
        IC.BFL         16                  80/52 L
        IC.BLK         15                  80/51 L
        IC.BUF         35                  81/10 L
        IC.CNT         36                  81/11 L
        IC.DIR         17                  80/53 L
        IC.END          2                  80/40 L
        IC.ERR          3                  80/41 L
        IC.EXS         20                  80/54 L
        IC.FIL         21                  80/55 L
        IC.FMD         23                  80/57 L
        IC.FMT          4                  80/42 L
        IC.FMTA        41                  81/14 L   81/18
        IC.FOR         22                  80/56 L
        IC.IOS          5                  80/43 L
        IC.MOD         37                  81/12 L
        IC.NAM         24                  81/01 L
        IC.NMD         25                  81/02 L
        IC.NML         10                  80/46 L
        IC.NUM         27                  81/04 L
        IC.NXT         26                  81/03 L
        IC.OPE         30                  81/05 L
        IC.RCL         31                  81/06 L
        IC.REC          6                  80/44 L
        IC.SEQ         32                  81/07 L
        IC.SKP          7                  80/45 L
        IC.STA         33                  81/08 L
        IC.STR         40                  81/13 L
        IC.UNF         34                  81/09 L
        IC.UNT          1                  80/39 L
        II.ARYM         1                 112/11 D
        II.ARYP         0                 112/11 D
        II.BIASL       30                 112/08 D
        II.BIASP       24                 112/08 D
        II.CHARM        2                 112/10 D
        II.CHARP        1                 112/10 D
        II.ORDL        20                 112/07 D
        II.ORDP        54                 112/07 D
        INC.GTN      4000                  15/40 D
        INC.LTN      2000                  15/39 D
        IN.LCM      30000                  14/07 D
        IOCAD          12   PROGRAM*       80/38 D
        IPSUD         162   PROGRAM*       86/09 D
        IP.CSET         0                   4/47 D
        IP.C63          2                   4/48 D
        IP.MFL     140000                   4/46 D
        IP.PD           6                   4/55 D
        IP.PS          74                   4/56 D
        IS.ADL         60                 114/27 D
        IS.ADP          0                 114/27 D
        IS.FPNL        14                 114/26 D
        IS.FPNP        60                 114/26 D
        IT.ANSIP       22                 122/54 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   129
        SYMBOLIC REFERENCE TABLE. 
  
        IT.ARGCL        3                 122/42 D
        IT.ARGCP       16                 122/42 D
        IT.ARGML        3                 122/44 D
        IT.ARGMP        3                 122/44 D
        IT.ATTRL        7                 122/41 D  122/48
        IT.ATTRP       21                 122/41 D  122/48
        IT.BYNP        25                 122/51 D
        IT.CHARP       26                 122/50 D
        IT.DPCL        44                 122/40 D
        IT.DPCP        30                 122/40 D
        IT.GENFP       24                 122/52 D
        IT.GNOP        27                 122/49 D
        IT.JPADL       10                 122/43 D
        IT.JPADP        6                 122/43 D
        IT.MODEL        3                 122/45 D
        IT.MODEP        0                 122/45 D
        IT.PARM    400000                 122/55 D
        IT.PARP        21                 122/55 D
        IT.XTERP       23                 122/53 D
        I.BCI          21                  86/10 L
        I.BOS          22                  86/11 L
        I.BSS          24                  86/13 L
        I.CBSET         5                  17/19 D
        I.CPL          23                  86/12 L
        I.DATA         25                  86/14 L
        I.DT            1                  17/14 D
        I.ECI          26                  86/15 L
        I.EMI          27                  86/16 L
        I.FET           0                  17/12 D
        I.FIRST         1                  17/13 D
        I.IN            2                  17/15 D
        I.JPI          30                  86/17 L
        I.LD0          31                  86/18 L
        I.LIMIT         4                  17/17 D
        I.LOO          33                  86/20 L
        I.OTR          34                  86/21 L
        I.OUT           3                  17/16 D
        I.PRU           4                  17/18 D
        I.RAN1          6                  17/20 D
        I.RAN2          7                  17/21 D
        I.RJ3          35                  86/22 L
        I.RJ6          36                  86/23 L
        I.SB0I         40                  86/25 L
        I.ST0          32                  86/19 L
        I.SUBI         37                  86/24 L
        I.UJP          41                  86/26 L
        I.USE          42                  86/27 L
        I.ZERO         43                  86/28 L
        KW.ATTRL       14                 119/53 D  120/01
        KW.ATTRP       36                 119/53 D  120/01
        KW.BKDP        45                 120/06 D
        KW.DONP        51                 120/02 D
        KW.FECL         5                 119/54 D
        KW.FECP        31                 119/54 D
        KW.GENP        46                 120/05 D
        KW.ILP         43                 120/08 D
        KW.INFOL       22                 119/52 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   130
        SYMBOLIC REFERENCE TABLE. 
  
        KW.INFOP       52                 119/52 D
        KW.JMPL        22                 119/51 D  119/52
        KW.JMPP        52                 119/51 D  119/52
        KW.KEYL        22                 119/56 D
        KW.KEYP         0                 119/56 D
        KW.LBLP        47                 120/04 D
        KW.LENL         7                 119/55 D
        KW.LENP        22                 119/55 D
        KW.NBSP        42                 120/09 D
        KW.NIFP        50                 120/03 D
        KW.PWSP        44                 120/07 D
        K=AP            2                  87/17 L   87/26
        K=END           5                  87/20 L
        K=GL            1                  87/16 L   87/25
        K=IO            3                  87/18 L   87/27
        K=LC            4                  87/19 L   87/28
        K=PFX      100000                  87/11 D   87/24     87/25     87/26     87/27     87/28
        K=SYM           0                  87/15 L   87/24
        K.AP       200000                  87/26 D
        K.GL       100000                  87/25 D
        K.IO       300000                  87/27 D
        K.LC       400000                  87/28 D
        K.SYM           0                  87/24 D
        LA.ALRNP       67                 104/39 D
        LA.DEFP        73                 104/35 D
        LA.ENTP        70                 104/38 D
        LA.EXTP        71                 104/37 D
        LA.GOTOP       66                 104/40 D
        LA.ORDL        22                 104/42 D
        LA.ORDP         0                 104/42 D
        LA.REFP        72                 104/36 D
        LB.BLENL       22                 114/44 D
        LB.BLENP       22                 114/44 D
        LB.ORGL        22                 114/45 D  114/46
        LB.ORGP         0                 114/45 D  114/46
        LB.PARCL        6                 114/42 D
        LB.PARCP       66                 114/42 D
        LB.TBLNL       22                 114/46 D
        LB.TBLNP        0                 114/46 D
        LC.CNTL        22                 104/28 D
        LC.CNTP         0                 104/28 D
        LC.DOL         22                 104/26 D
        LC.DOP         44                 104/26 D
        LC.GLMP        73                 104/24 D
        LC.LINEL       22                 104/27 D
        LC.LINEP       22                 104/27 D
        LF.CHRP        62                 120/36 D
        LF.FMTP        54                 120/40 D
        LF.HDRP        73                 120/30 D
        LF.INIP        70                 120/32 D
        LF.LACP        65                 120/34 D
        LF.TDEP        57                 120/38 D
        LM.NORM         0                 120/54 D
        LM.NTR          1                 120/55 D
        LM.1ST          2                 120/56 D
        L54.HDR         0                  15/23 D
        L54.HHA         4                  15/24 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   131
        SYMBOLIC REFERENCE TABLE. 
  
        L54.NN          5                  15/22 D
        L54.00         11                  15/21 D
        L.FET6         15                   8/17 D
        L.FET7          0                   8/24 D
        L.FIT6         34                   8/16 D
        L.FIT7         26                   8/23 D
        L.IOBUF6     2003                   8/18 D
        L.IOBUF7        0                   8/25 D
        L.STACK         0                  12/25 D
        L.TIN         101                   8/19 D
        L.TOUT        401                   8/20 D
        MAX.BLK       764                  14/17 D
        MAX.BUFL   360000                  14/30 D
        MAX.CDL        12                  14/15 D
        MAX.CL      77777                  14/34 D
        MAX.DIM         7                  14/08 D
        MAX.LFN         7                  14/25 D
        MAX.ORD        52                  81/41 D   83/23
        MAX.PARG       61                  14/20 D
        MAX.RECL   377777                  14/31 D
        MAX.REPL    77777                  14/12 D
        MAX.SARG      764                  14/19 D
        MAX.SDL    377777                  14/36 D
        MAX.SPAN       27                  14/09 D
        MAX.SPCM   377777                  14/10 D
        MAX.SPLC  3777770                  14/11 D
        MAX.STN         5                  14/22 D
        MAX.VAR         7                  14/23 D
        MD.MODE         7                  94/04 D
        MEM.GOFL    34000                  14/37 D
        MF.BEF          3                  95/52 D
        MF.INL          4                  95/53 D
        MF.LIB          2                  95/51 D
        MF.STF          1                  95/50 D
        MF.USER         0                  95/49 D
        MIN.TABS     3000                  14/38 D
        ML.ABS          0                  96/20 D
        ML.COM          2                  96/22 D
        ML.EXT          3                  96/23 D
        ML.PROG         1                  96/21 D
        MO.BLKM       400                 115/56 D
        MO.BLKP        10                 115/56 D
        MO.CLENL       22                 115/52 D
        MO.CLENP       36                 115/52 D
        MO.CLIFL       23                 115/50 D  115/51
        MO.CLIFP       35                 115/50 D  115/51
        MO.CTYPP       35                 115/53 D
        MO.FUNM      4000                 116/10 D
        MO.FUNP        13                 116/10 D
        MO.MODEL        3                 116/02 D
        MO.MODEP        0                 116/02 D
        MO.PROM      1000                 116/12 D
        MO.PROP        11                 116/12 D
        MO.PTYPL        3                 115/55 D  116/09
        MO.PTYPP       11                 115/55 D  116/09
        MO.SUBM      2000                 116/11 D
        MO.SUBP        12                 116/11 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   132
        SYMBOLIC REFERENCE TABLE. 
  
        MO.TYPM       200                 115/57 D
        MO.TYPP         7                 115/57 D
        M.BOOL          0                  94/06 D
        M.CHAR          6                  94/13 D   94/15
        M.CPLX          5                  94/11 D   94/12
        M.DBL           4                  94/10 D   94/12
        M.INT           2                  94/08 D
        M.LOG           1                  94/07 D
        M.REAL          3                  94/09 D
        NG.GROPL       17                 109/27 D  109/31
        NG.GROPP       36                 109/27 D
        NG.NMEML       17                 109/26 D
        NG.NMEMP       55                 109/26 D
        NG.ORDL        17                 109/31 D
        NOINVERT        0                   8/40 D
        NOM.INC      3000                  14/39 D
        NOR.RECL      211                  14/32 D
        N.ELSTK       240                  15/43 D
        N.OPSTK       240                  15/42 D
        N.TYPE          7                  94/15 D
        OA.ADDRL       36                 110/22 D  110/24    110/29
        OA.ADDRP        0                 110/22 D  110/24    110/29    110/34
        OA.ADRL        30                 110/27 D
        OA.ADRP         0                 110/27 D
        OA.ARGL        11                 110/31 D
        OA.ARGP         0                 110/31 D
        OA.BCPL         4                 110/26 D
        OA.BCPP        30                 110/26 D
        OA.FPP         72                 110/15 D
        OA.INDP        71                 110/16 D
        OA.LCMP        73                 110/14 D
        OA.LEFTP       36                 110/33 D
        OA.LENL        22                 110/21 D
        OA.LENP        36                 110/21 D  110/33
        OA.LSTP        70                 110/17 D
        OA.RITEP        0                 110/34 D
        OA.SUBSL       25                 110/30 D
        OA.SUBSP       11                 110/30 D
        OA.TYPL         6                 110/20 D
        OA.TYPP        60                 110/20 D
        OA.VARP        67                 110/18 D
        OCPSUD        141   PROGRAM*       85/46 D
        OC$ADDR         0                  85/47 L
        OC$APL          2                  85/49 L
        OC$BMI          3                  85/50 L
        OC$BSS          1                  85/48 L
        OC$CON          4                  85/51 L
        OC$END          5                  85/52 L
        OC$EQUN         6                  85/53 L
        OC$FMT          7                  85/54 L
        OC$FVEC        10                  85/55 L
        OC$IDNT        11                  85/56 L
        OC$IOM         12                  85/57 L
        OC$LCC         13                  86/01 L
        OC$LOO         14                  86/02 L
        OC$NLST        15                  86/03 L
        OC$PLIM        16                  86/04 L
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   133
        SYMBOLIC REFERENCE TABLE. 
  
        OC$TRAC        17                  86/05 L
        OC$USE         20                  86/06 L
        OD.ATRL        11                 115/21 D  115/26
        OD.ATRP        14                 115/21 D  115/26    115/36
        OD.BJM     400000                 115/30 D
        OD.BJMPP       72                 115/18 D
        OD.BJP         21                 115/30 D
        OD.COPYM    10000                 115/35 D
        OD.COPYP       14                 115/35 D  115/36
        OD.DIVM     40000                 115/33 D
        OD.DIVP        16                 115/33 D
        OD.EDL          4                 115/11 D  115/20
        OD.EDN         11                 115/12 D  115/20
        OD.FPAM     20000                 115/34 D
        OD.FPAP        15                 115/34 D
        OD.FUPAP       71                 115/19 D
        OD.GHL         14                 115/22 D
        OD.GHP          0                 115/22 D  115/23
        OD.IMP         24                 115/27 D
        OD.JKVM    200000                 115/31 D
        OD.JKVP        20                 115/31 D
        OD.KJM     100000                 115/32 D
        OD.KJP         17                 115/32 D
        OD.PKP         22                 115/29 D
        OD.QP          73                 115/17 D
        OD.UPP         23                 115/28 D
        OFF             0                  14/49 D   32/01 F
        ON              1                  14/48 D   14/55 F
        OR.OPR          0                 106/11 L
        OR.1OP          1                 106/12 L
        OR.2OP          2                 106/13 L
        OT#RM           6                  12/55 F   12/56 D
        O.AND          31                  82/30 L
        O.ARY          60                  83/12 L
        O.BOS           0                  81/55 D
        O.BOTH         57                  83/11 L
        O.CAT          36                  82/35 L
        O.CHAR          4                  82/04 L
        O.COLON        43                  82/45 L
        O.COMMA        42                  82/43 L   82/44
        O.CONS          5                  82/05 L
        O.DCBI         51                  83/05 L
        O.DCCI         52                  83/06 L
        O.DEF           0                  81/53 L   81/54     81/55     83/20     83/22
        O.DIV          17                  82/20 D
        O.DOBI         47                  82/55 L   82/56
        O.DOCI         50                  83/04 L
        O.DQOT         64                  83/16 L
        O.ENDNX        47                  82/56 D   83/22
        O.EOS           0                  81/54 D
        O.EQ           24                  82/25 L
        O.EQV          34                  82/33 L
        O.ERR          65                  83/17 L   83/20
        O.EXP          21                  82/22 L
        O.FALSE        13                  82/11 L
        O.FLP          44                  82/47 D
        O.GE           23                  82/24 L
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   134
        SYMBOLIC REFERENCE TABLE. 
  
        O.GT           27                  82/28 L
        O.HEX           7                  82/07 L
        O.HOLL          1                  81/57 L   83/52 F
        O.ILL          46                  82/50 L
        O.ILP          44                  82/48 D
        O.LE           26                  82/27 L
        O.LP           37                  82/38 L   82/39
        O.LT           22                  82/23 L
        O.MIN          15                  82/16 L
        O.MODC         61                  83/13 L
        O.MULT         16                  82/18 D
        O.MXP          62                  83/14 L
        O.NE           25                  82/26 L
        O.NEQV         33                  82/32 L
        O.NONE         54                  83/08 L
        O.NOT          30                  82/29 L
        O.OCT           6                  82/06 L
        O.OR           35                  82/34 L
        O.PERIOD       10                  82/08 L
        O.PL           14                  82/15 D
        O.QHOLL         2                  82/01 L
        O.RLCON         3                  82/02 L
        O.RP           40                  82/40 L   82/41
        O.SDEF         42                  82/44 D
        O.SEP          14                  82/13 L   82/15
        O.SLASH        17                  82/19 L   82/20
        O.SLP          44                  82/46 L   82/47     82/48
        O.SPACE        53                  83/07 L
        O.SQOT         63                  83/15 L
        O.STAR         16                  82/17 L   82/18
        O.STFA         45                  82/49 L
        O.TRUE         12                  82/10 L
        O.UMIN         20                  82/21 L
        O.VAR          11                  82/09 L
        O.XOR          32                  82/31 L
        O.1ST          55                  83/09 L
        O.2ND          56                  83/10 L
        O.(            37                  82/39 D
        O.)            40                  82/41 D
        O.=            41                  82/42 L
        PASS=CCG        2                  80/07 L
        PASS=END        3                  80/08 L
        PASS=FAS        5                  80/10 L
        PASS=FE         0                  80/05 L
        PASS=MAP        4                  80/09 L
        PASS=QCG        1                  80/06 L
        PB.BIASL       22                  88/26 D  113/50
        PB.BIASP       14                  88/26 D
        PB.BJRL         3                  88/28 D
        PB.BJRP         0                  88/28 D
        PB.GHIJL       14                  88/24 D
        PB.GHIJP       60                  88/24 D
        PB.GHL          6                  88/05 D
        PB.GHP         66                  88/05 D
        PB.H2L         14                  88/27 D
        PB.H2P          0                  88/27 D   88/28
        PB.IL           3                  88/06 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   135
        SYMBOLIC REFERENCE TABLE. 
  
        PB.INSTL       17                  88/01 D   88/04
        PB.INSTP       55                  88/01 D   88/04
        PB.IP          63                  88/06 D
        PB.JL           3                  88/07 D
        PB.JP          60                  88/07 D
        PB.KL           3                  88/08 D
        PB.KP          55                  88/08 D
        PB.ORDL        16                  88/38 D
        PB.ORDP        36                  88/38 D   88/39
        PB.PFXL         3                  88/36 D
        PB.PFXP        55                  88/36 D   88/39
        PB.TAGL        22                  88/25 D   88/35    109/48
        PB.TAGP        36                  88/25 D   88/35
        PM=CXP          2                 116/25 L
        PM=DATA         5                 116/28 L
        PM=DCON         6                 116/29 L
        PM=DIM          3                 116/26 L
        PM=EXPR         0                 116/23 L
        PM=ICE          1                 116/24 L
        PM=IOD          4                 116/27 L
        PM=PARM         7                 116/30 L
        PSYM            7                  91/43 D   91/44
        P=PFX          17                  87/09 D   87/10     88/39
  U     QUAL$                              36/06 F   44/12 F
        RA.JOT         66                  15/13 D
        RA.LDP         17                  15/12 D
        RA.SSW          0   CPUTEXT        15/12
        SB.BIASL       22                 113/50 D
        SB.BIASP       22                 113/50 D
        SB.FPNOL       11                 113/48 D
        SB.FPNOP       47                 113/48 D
        SB.ORGL        22                 113/51 D
        SB.ORGP         0                 113/51 D
        SB.POSL        14                 113/43 D
        SB.POSP        60                 113/43 D
        SC2ZERO   7777776                  11/17 D   11/18
        SF.DACPL       22                 121/07 D
        SF.DACPP       22                 121/07 D
        SF.PEARL       22                 121/06 D
        SF.PEARP       44                 121/06 D
        SF.TOKL        22                 121/08 D
        SF.TOKP         0                 121/08 D
        SP.ASP         44                 107/23 D
        SP.BNDP        40                 107/27 D
        SP.CHARP       42                 107/25 D
        SP.COMP        45                 107/22 D
        SP.DISP        46                 107/21 D
        SP.MASKP       43                 107/24 D
        SP.MDLSP       47                 107/20 D
        SP.MODCL       11                 107/14 D
        SP.MODCP       11                 107/14 D
        SP.MODEL        4                 107/12 D
        SP.MODEP       22                 107/12 D
        SP.NSQZP       51                 107/18 D
        SP.SKELL       22                 107/09 D
        SP.SKELP       52                 107/09 D
        SP.SMDP        41                 107/26 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   136
        SYMBOLIC REFERENCE TABLE. 
  
        SP.STPRL       11                 107/13 D  107/14
        SP.STPRP       11                 107/13 D  107/14
        SP.TBPRL       11                 107/15 D
        SP.TBPRP        0                 107/15 D
        SP.UNARP       50                 107/19 D
        SP.W            0                 107/08 D
        SP.1ATRL       16                 107/10 D  107/17
        SP.1ATRP       34                 107/10 D  107/17
        SZ.ORGL        22                 114/14 D
        SZ.ORGP         0                 114/14 D
        SZ.POSL        14                 114/08 D
        SZ.POSP        60                 114/08 D
        SZ.SLIL        17                 114/10 D
        SZ.SLIP        36                 114/10 D
        TB.ACTEL       22                  99/36 D
        TB.ACTEP       22                  99/36 D
        TB.CLCNL       17                  99/27 D
        TB.CLCNP       33                  99/27 D
        TB.COLP        73                  99/45 D
        TB.DACL        14                  99/35 D
        TB.DACP        44                  99/35 D
        TB.EQLP        72                  99/46 D
        TB.IBCCL       22                 100/03 D
        TB.IBCCP       22                 100/03 D
        TB.IBCPL       22                 100/02 D
        TB.IBCPP       44                 100/02 D
        TB.ICCPL       22                 100/11 D
        TB.ICCPP       22                 100/11 D
        TB.ICIXL       22                 100/10 D
        TB.ICIXP       44                 100/10 D
        TB.IOCPL       22                  99/49 D
        TB.IOCPP       44                  99/49 D
        TB.IOIXL       22                  99/51 D
        TB.IOIXP       22                  99/51 D
        TB.IOSPL       22                  99/52 D
        TB.IOSPP       22                  99/52 D
        TB.LCONL       11                  99/28 D
        TB.LCONP       22                  99/28 D
        TB.LLPL        22                  99/50 D   99/51     99/52
        TB.LLPP        22                  99/50 D   99/51     99/52
        TB.ORDL        14                  99/34 D
        TB.ORDP        60                  99/34 D
        TB.SBSP        71                  99/47 D
        TB.SHCL        22                  99/26 D
        TB.SHCP        52                  99/26 D
        TB.TOCL        52                  99/20 D
        TB.TOCP        22                  99/20 D
        TB.TOTL        22                  99/21 D   99/29 D   99/37 D   99/53 D  100/04 D  100/12 D
        TB.TOTP         0                  99/21 D   99/29 D   99/37 D   99/53 D  100/04 D  100/12 D
        TEST            0                  11/15 D   11/18     14/55 F   32/01 F
        TE.BIASL       30                 105/30 D
        TE.BIASP       22                 105/30 D
        TE.EOIL        14                 105/27 D
        TE.EOIP        60                 105/27 D
        TE.NBP         52                 105/29 D
        TE.SYMIL       22                 105/31 D
        TE.SYMIP        0                 105/31 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   137
        SYMBOLIC REFERENCE TABLE. 
  
        TG.ORDL        15                  99/11 D
        TG.ORDP         0                  99/11 D
        TG.PFXL         5                  99/10 D
        TG.PFXP        15                  99/10 D
        TH.CATRL        2                 106/30 D  106/39
        TH.CATRP       26                 106/30 D  106/39
        TH.DDEFP       25                 106/37 D
        TH.DVALL       30                 106/36 D
        TH.DVALP       26                 106/36 D
        TH.LINEL       22                 106/28 D  106/35
        TH.LINEP       34                 106/28 D  106/35
        TH.MODEL        4                 106/31 D
        TH.MODEP       22                 106/31 D
        TH.NSTDP       33                 106/44 D
        TH.OVALL       11                 106/33 D
        TH.OVALP        0                 106/33 D
        TH.PAPP        27                 106/40 D
        TH.PFPP        26                 106/41 D
        TH.PLCP        32                 106/45 D
        TH.QATRL        4                 106/29 D  106/43
        TH.QATRP       30                 106/29 D  106/43
        TH.SKELL       16                 106/27 D
        TH.SKELP       56                 106/27 D
        TH.W            0                 106/26 D
        TH.1DUCP       31                 106/46 D
        TH.2DUCP       30                 106/47 D
        TPD             6                   4/50 D    4/53 D    4/54      4/55
        TP.ADDRM     4000                 108/15 D
        TP.ADDRP       13                 108/15 D
        TP.AREM        40                 108/39 D
        TP.AREP         5                 108/39 D
        TP.ARRM     20000                 108/12 D
        TP.ARRP        15                 108/12 D  108/13
        TP.ARSM       100                 108/38 D
        TP.ARSP         6                 108/38 D
        TP.ARYM     20000                 108/13 D
        TP.ARYP        15                 108/13 D
        TP.ATTRL       15                 107/44 D  108/06
        TP.ATTRP        7                 107/44 D  108/06
        TP.BIASL       30                 107/40 D  107/41    107/42    107/43    107/49    109/04
        TP.BIASP       24                 107/40 D  107/41    107/42    107/43
        TP.CATM      1000                 108/17 D
        TP.CATP        11                 108/17 D
        TP.CPFXL        3                 108/11 D  108/24
        TP.CPFXP       16                 108/11 D  108/24
        TP.EQVM    400000                 108/10 D
        TP.EQVP        21                 108/10 D
        TP.EXPRM       10                 108/41 D
        TP.EXPRP        3                 108/41 D
        TP.FPP         22                 108/09 D
        TP.GLM      40000                 108/26 D
        TP.GLP         16                 108/26 D
        TP.INTRM     2000                 108/16 D
        TP.INTRP       12                 108/16 D
        TP.IOCL        30                 107/41 D
        TP.IOCP        24                 107/41 D
        TP.IODM       400                 108/20 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   138
        SYMBOLIC REFERENCE TABLE. 
  
        TP.IODP        10                 108/20 D
        TP.IODPL        2                 108/18 D  108/19
        TP.IODPP        7                 108/18 D  108/19
        TP.IOPM       200                 108/21 D
        TP.IOPP         7                 108/21 D
        TP.LCFM        20                 108/40 D
        TP.LCFP         4                 108/40 D
        TP.LCMP        23                 108/08 D
        TP.MODEL        3                 108/42 D
        TP.MODEP        0                 108/42 D
        TP.ORBIL       50                 107/42 D  108/56
        TP.ORBIP       24                 107/42 D  108/57
        TP.ORDL        20                 107/38 D  107/39    107/42    109/02    109/07    118/29
        TP.ORDP        54                 107/38 D  107/39    107/43    109/03
        TP.SHRTB       22                 107/48 D  107/49
        TP.SHRTM    10000                 108/14 D
        TP.SHRTP       14                 108/14 D
        TP.TAGL        20                 107/39 D
        TP.TAGP        54                 107/39 D
        TP.1ATRL        7                 107/45 D  108/37
        TP.1ATRP        0                 107/45 D  108/37
        VD.ALOP        72                  96/42 D   96/43
        VD.CAL         22                  96/45 D   96/46
        VD.CAP         44                  96/45 D   96/46
        VD.INDL        22                  96/46 D
        VD.INDP        44                  96/46 D
        VD.LENL        22                  96/48 D
        VD.LENP         0                  96/48 D
        VD.MAL          2                  96/43 D
        VD.MAP         72                  96/43 D
        VD.MATP        73                  96/41 D
        VD.PNTL        22                  96/47 D
        VD.PNTP        22                  96/47 D
        VS.CRAL        22                 121/24 D
        VS.CRAP         0                 121/24 D
        VS.DRAL        22                 121/23 D
        VS.DRAP        22                 121/23 D
        VS.NKILP       73                 121/18 D
        VS.SBIL        22                 121/22 D
        VS.SBIP        44                 121/22 D
        VS.1DUCP       72                 121/19 D
        VS.2DUCP       71                 121/20 D
        WA.BNL         14                  92/06 D
        WA.BNP          0                  92/06 D
        WA.HASHL       14                  92/04 D   92/05
        WA.HASHP        0                  92/04 D   92/05
        WA.NAMEL       52                  91/54 D  118/32    118/33
        WA.NAMEP       22                  91/54 D
        WA.NFPM    400000                  92/02 D
        WA.NFPP        21                  92/02 D
        WA.STLL        36                  91/57 D
        WA.STLP        30                  91/57 D
        WA.SYML        52                  91/53 D   91/54     91/55
        WA.SYMP        22                  91/53 D   91/54     91/55
        WA.W            0                  91/51 D
        WB.ACTM      4000                  94/53 D
        WB.ACTP        13                  94/53 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   139
        SYMBOLIC REFERENCE TABLE. 
  
        WB.AETL         2                  93/39 D
        WB.AETP        20                  93/39 D
        WB.AGNP        30                  93/23 D
        WB.AGO2P       24                  93/30 D
        WB.ALP         24                  93/31 D
        WB.ALRNP       36                  94/28 D
        WB.ARYM      2000                  93/46 D
        WB.ARYP        12                  93/46 D
        WB.AUXP        65                  92/48 D
        WB.BASEL       14                  92/30 D   92/33     92/34
        WB.BASEP       41                  92/30 D   92/31     92/33     92/34
        WB.BINP        72                  92/43 D
        WB.BMEMP       23                  93/32 D
        WB.BUFP        67                  92/46 D
        WB.CCGVL        5                  93/35 D   93/36
        WB.CCGVP       15                  93/35 D   93/36
        WB.CGSM        20                  92/36 D
        WB.CGSP         4                  92/36 D
        WB.CLASL       34                  92/35 D   93/12     94/25
        WB.CLASP        5                  92/35 D   93/12     94/25     95/07
        WB.COMM    100000                  93/40 D
        WB.COMP        17                  93/40 D
        WB.DEFM       200                  93/50 D   95/02 D
        WB.DEFP         7                  93/50 D   95/02 D   95/03
        WB.DEXTP       26                  93/26 D
        WB.DIL         17                  92/23 D
        WB.DIP         55                  92/23 D
        WB.DIRP        71                  92/44 D
        WB.DLBBP       22                  94/46 D
        WB.DLCP        31                  94/33 D
        WB.DLENM   400000                  94/47 D
        WB.DLENP       21                  94/47 D
        WB.DLERM    40000                  94/50 D
        WB.DLERP       16                  94/50 D
        WB.DLEXM   200000                  94/48 D
        WB.DLEXP       20                  94/48 D
        WB.DLNIM   100000                  94/49 D
        WB.DLNIP       17                  94/49 D
        WB.DLNOL        5                  94/44 D   94/45
        WB.DLNOP       16                  94/44 D   94/45
        WB.DLPEP       32                  94/32 D
        WB.DMATM    10000                  94/52 D
        WB.DMATP       14                  94/52 D
        WB.DOGLM    20000                  94/51 D
        WB.DOGLP       15                  94/51 D
        WB.DOTM        40                  95/05 D
        WB.DOTP         5                  95/05 D   95/07
        WB.ENTM     20000                  93/42 D
        WB.ENTP        15                  93/42 D
        WB.EQUP        66                  92/47 D
        WB.EQVM      1000                  93/47 D
        WB.EQVP        11                  93/47 D
        WB.EXTM     40000                  93/41 D
        WB.EXTP        16                  93/41 D
        WB.FDEFP       24                  94/40 D
        WB.FMTLL       14                  92/33 D
        WB.FMTLP       41                  92/33 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   140
        SYMBOLIC REFERENCE TABLE. 
  
        WB.FMTP        73                  92/42 D
        WB.FPM     200000                  93/38 D
        WB.FPNOL       11                  92/31 D   92/32    113/48
        WB.FPNOP       41                  92/31 D   92/32
        WB.FPOL        11                  92/32 D
        WB.FPOP        41                  92/32 D
        WB.FPP         20                  93/38 D   93/39
        WB.FREFP       25                  94/39 D
        WB.FRL         22                  92/19 D   92/21
        WB.FRP         52                  92/19 D   92/21
        WB.FUNM     10000                  93/44 D
        WB.FUNP        14                  93/44 D
        WB.GENFP       25                  93/27 D
        WB.GOTOP       35                  94/29 D
        WB.INAM      2000                  94/54 D
        WB.INAP        12                  94/54 D
        WB.INDOP       34                  94/30 D
        WB.INTFP       27                  93/25 D
        WB.JPFL        11                  92/28 D
        WB.JPFP        57                  92/28 D
        WB.LABM        10                  92/37 D
        WB.LABP         3                  92/37 D
        WB.LCMM    400000                  93/37 D
        WB.LCMP        21                  93/37 D
        WB.LCP         30                  94/34 D
        WB.LDOP        24                  93/28 D   93/29     93/30     93/31
        WB.LEVNL        2                  92/29 D
        WB.LEVNP       55                  92/29 D
        WB.LEVP        33                  93/20 D
        WB.LOCFP       22                  93/33 D
        WB.MATP        36                  93/15 D
        WB.MDFM       400                  93/49 D
        WB.MDFP        10                  93/49 D
        WB.MODEL        3                  92/39 D  108/42    111/30    116/02    122/44    122/45
        WB.MODEP        0                  92/39 D
        WB.NDEFP       27                  94/35 D
        WB.NINP        33                  94/31 D
        WB.NLSTP       34                  93/17 D
        WB.NVARM      100                  93/52 D
        WB.NVARP        6                  93/52 D
        WB.PARMM      400                  93/48 D
        WB.PARMP       10                  93/48 D   93/49
        WB.PNTL        15                  92/26 D   92/41
        WB.PNTP        57                  92/26 D   92/28     92/41
        WB.PRDP        23                  94/41 D
        WB.SAVEP       35                  93/16 D
        WB.SDEFM      200                  95/03 D
        WB.SDEFP        7                  95/03 D
        WB.SEQP        70                  92/45 D
        WB.SFAP        40                  93/13 D
        WB.SFXP        24                  93/29 D
        WB.SLENM     1000                  94/57 D
        WB.SLENP       11                  94/57 D
        WB.SLEXM      400                  95/01 D
        WB.SLEXP       10                  95/01 D
        WB.SREFM      100                  95/04 D
        WB.SREFP        6                  95/04 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   141
        SYMBOLIC REFERENCE TABLE. 
  
        WB.STFPL       17                  92/22 D   92/23     92/25
        WB.STFPP       55                  92/22 D   92/23     92/25
        WB.SUBM      4000                  93/45 D
        WB.SUBP        13                  93/45 D
        WB.TLL         14                  92/34 D
        WB.TLP         41                  92/34 D
        WB.TYPP        31                  93/22 D
        WB.UDCP        64                  92/49 D
        WB.UDEFP       26                  94/36 D
        WB.VARM        40                  93/53 D
        WB.VARP         5                  93/53 D
        WB.VDSP        32                  93/21 D
        WB.W            1                  92/17 D
        WB.1REFP       37                  93/14 D   94/27 D
        WC.ARGCL       11                  95/47 D
        WC.ARGCP       60                  95/47 D
        WC.BCPL         4                  95/30 D
        WC.BCPP        30                  95/30 D
        WC.BFLL        22                  95/33 D
        WC.BFLP         0                  95/33 D
        WC.BRADL       22                  95/32 D
        WC.BRADP        0                  95/32 D
        WC.BRPL        10                  96/06 D
        WC.BRPP         0                  96/06 D
        WC.CLENL       22                  95/21 D   95/22     95/23     95/24    105/17
        WC.CLENP       36                  95/21 D   95/22     95/23     95/24     95/25
        WC.CLIFL       23                  95/19 D   95/20
        WC.CLIFP       35                  95/19 D   95/20
        WC.CTYPP       35                  95/26 D
        WC.DVPL        22                  95/23 D
        WC.DVPP        36                  95/23 D
        WC.EGLL        17                  95/25 D
        WC.EGLP        36                  95/25 D
        WC.FUNIL       14                  95/17 D   95/18     95/45
        WC.FUNIP       60                  95/17 D   95/18     95/45
        WC.FUNTL        3                  95/46 D
        WC.FUNTP       71                  95/46 D
        WC.IEFL        22                  95/34 D
        WC.IEFP         0                  95/34 D
        WC.LDTLL       15                  95/35 D
        WC.LDTLP        0                  95/35 D
        WC.LINEL       22                  95/22 D
        WC.LINEP       36                  95/22 D
        WC.MRLL        22                  95/24 D
        WC.MRLP        36                  95/24 D
        WC.RAL         30                  95/31 D   96/03    100/39    104/55    105/30
        WC.RAP          0                  95/31 D   95/32     95/33     95/34     95/35     96/03
        WC.RBL         12                  96/18 D
        WC.RBP         60                  96/18 D
        WC.RLL          2                  96/17 D
        WC.RLP         72                  96/17 D
        WC.RLRBL       14                  95/18 D   96/16
        WC.RLRBP       60                  95/18 D   96/16
        WC.SHCL         6                  96/04 D
        WC.SHCP        22                  96/04 D
        WC.W            2                  95/15 D
        XR.LINEL       26                 112/23 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   142
        SYMBOLIC REFERENCE TABLE. 
  
        XR.LINEP        6                 112/23 D
        XR.MEDFP       51                 112/21 D
        XR.TAGL        22                 112/20 D
        XR.TAGP        52                 112/20 D
        XR.USEL         6                 112/24 D
        XR.USEP         0                 112/24 D
        Z=BLKS          2                  98/08 D
        Z=BLST         10                 103/30 L
        Z=CLW           2                  89/23 D
        Z=DD            2                 102/35 D
        Z=IOA           2                  89/17 D
        Z=PSTACK        3                 117/14 L
        Z=SYM           3                  91/47 D
        Z=TURP          3                 106/15 L
        Z.HASH        200                  91/45 D
        Z.PSUD         44                  86/30 D
        .CDCLIB         1                   7/10 D
        .CMLOD          0                  15/32 D
        .CPU          111                  12/23 D   12/36 F
        .DAL            1                  12/31 D
        .FID            1                  10/44 D
        .IDC            0                   9/02 D
        .IWT            0                   6/10 D
        .MI             0                   5/53 D   11/04 F
        .MINFL          0                   7/51 D
        .OS             1                   5/09 D   11/17
        .OT             1                   5/04 D    5/09
        .SPY            0                  11/18 D
        .1             47                   5/01 D    5/01     12/21 D   12/21     83/20 D   83/21     83/22 D   83/23
  
  
  
  
                                                  SYMBOL QUALIFIER =  IPARAM
  
  
        IP.ACNT         0                   4/23 D
        IP.ARCH         1                   4/23 D
        IP.BCFAP        2                   4/23 D
        IP.CC7          1                   4/23 D
        IP.CHTIM        1                   4/23 D
        IP.CMU          0                   4/23 D
        IP.CP           6                   4/23 D
        IP.CPLM         5                   4/23 D
        IP.CR         105                   4/23 D
        IP.CSET         0                   4/23 D    4/47
        IP.C176         0                   4/23 D
        IP.C63          2                   4/23 D    4/48
        IP.C64.1        0                   4/23 D    4/23
        IP.C64.2        1                   4/23 D
        IP.DBAL      3777                   4/23 D
        IP.DEBUG        1                   4/23 D
        IP.ECSB         0                   4/23 D
        IP.FT           1                   4/23 D
        IP.HT           0                   4/23 D    4/23
        IP.IACES       13                   4/23 D
        IP.IDFM         1                   4/23 D
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   143
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        IP.ILCMD        1                   4/23 D
        IP.ILR          0                   4/23 D
        IP.IMUL         1                   4/23 D
        IP.INTCM        1                   4/23 D
        IP.IOLM       100                   4/23 D
        IP.IQD          6                   4/23 D
        IP.IQPW         3                   4/23 D
        IP.IUSID      201                   4/23 D
        IP.LINK         1                   4/23 D
        IP.LVF         70                   4/23 D
        IP.MCPU         1                   4/23 D
        IP.MECS         1                   4/23 D   10/38 F   10/39
        IP.MFL     140000                   4/23 D    4/46
        IP.MMS        100                   4/23 D
        IP.MPPU        12                   4/23 D
        IP.MPR         20                   4/23 D
        IP.MREWR        0                   4/23 D
        IP.MSCT         0                   4/23 D
        IP.MSLM       200                   4/23 D
        IP.MTL      77777                   4/23 D
        IP.NDFS         1                   4/23 D
        IP.NJFL        20                   4/23 D
        IP.OPRI         0                   4/23 D
        IP.OQD         10                   4/23 D
        IP.PD           6                   4/23 D    4/24 F
        IP.PFAC         0                   4/23 D
        IP.PFRP         5                   4/23 D
        IP.POSFL        5                   4/23 D
        IP.PPS2X        2                   4/23 D
        IP.PS          74                   4/23 D    4/26 F    4/56
        IP.RM           0                   4/23 D
        IP.RPMAX     1747                   4/23 D
        IP.RTMTR        0                   4/23 D
        IP.SCHDE        0                   4/23 D
        IP.SECS         0                   4/23 D
        IP.SEP          1                   4/23 D
        IP.SFL      50000                   4/23 D
        IP.SIDLE        1                   4/23 D
        IP.SIOL         0                   4/23 D
        IP.SMS          0                   4/23 D
        IP.SPR         10                   4/23 D
        IP.SPT          0                   4/23 D
        IP.SRMS         0                   4/23 D
        IP.STL        100                   4/23 D
        IP.TCPUB        4                   4/23 D
        IP.TF           0                   4/23 D
        IP.TYPE     14710                   4/23 D
        IP.UP          10                   4/23 D
        IP.US           0                   4/23 D
        IP.XJ           1                   4/23 D
        IP.1M1          3                   4/23 D
        IP.1WB          2                   4/23 D
        IP.1ZZ          0                   4/23 D
        IP.819          0                   4/23 D
        PR.BATCH        1                   4/23 D    4/23
        PR.IDLE         0                   4/23 D
        PR.INT          2                   4/23 D    4/23
1       FTN5TXT - FORTRAN 5 ASSEMBLY/INSTALLATION TEXT.               COMPASS 3.7-871.     24/05/02. 13.13.23.      PAGE   144
        SYMBOLIC REFERENCE TABLE.                                     IPARAM
  
        PR.SCP          3                   4/23 D    4/23
        PR.SYS          4                   4/23 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  PSTACK
  
  
        ARGCOMA         1                 117/11 L  117/36
        ARGMISC         2                 117/12 L  118/23
        ARGMODE         0                 117/10 L  117/18
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1355              IDENT  FTN
                       1355                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       353 
                                        COMPCOM   COMMON          0       140 
                                        BUFFERS   LOCAL         353      1002 
  
  
                                        ENTRY POINTS. 
  
                                        B=FTN            0+           CO.DBER        107+           HO$MFLS         72+ 
                                        CP.ABT           3+/COMPCOM/  CO.DBID        110+           HO$OBL        1001
                                        CP.ERCT          4+/COMPCOM/  CO.DBPM        111+           HO$UO          144+ 
                                        CP.FLIN         26+/COMPCOM/  CO.DBSB        112+           HO$ARGC        105+ 
                                        CP.IFMT         17+/COMPCOM/  CO.DBSL        113+           FTNLFN         163+ 
                                        CP.LSTF          5+/COMPCOM/  CO.DBST        114+           FTNLDR         164+ 
                                        CP.MXFL         15+/COMPCOM/  CO.DBTB        115+           FTNHHA         166+ 
                                        CP.STXT         50+/COMPCOM/  CO.DS          116+           O.TITL         167+ 
                                        CP.XTXT         16+/COMPCOM/  CO.EC          117+           TL.EJCT        167+ 
                                        CP.ILFL         22+/COMPCOM/  CO.EL          120+           TL.PTYP        170+ 
                                        CP.AFLL         72+/COMPCOM/  CO.ET          121+           TL.PNAM        171+ 
                                        CP.AFLS         70+/COMPCOM/  CO.GO          122+           TL.CPU         172+ 
                                        CP.BLF          10+/COMPCOM/  CO.LCM         123+           TL.CSOP        173+ 
                                        CP.CARD         30+/COMPCOM/  CO.LL          124+           O.TTLA         176+ 
                                        CP.CPU          14+/COMPCOM/  CO.MD          125+           TL.DATE        200+ 
                                        CP.LCOM        135            CO.OPT         126+           TL.TIME        201+ 
                                        CP.LIB          60+/COMPCOM/  CO.PS          127+           TL.PAGE        203+ 
                                        CP.MODL         74+/COMPCOM/  CO.PW          130+           O.CPV          204+ 
                                        CP.NFLL         73+/COMPCOM/  CO.PWE         131+           O.TA           211+ 
                                        CP.NFLS         71+/COMPCOM/  CO.PWT         110            L.PWA          217+ 
                                        CP.PAGE          6+/COMPCOM/  CO.REWB        132+           L.TWO           14
                                        CP.PCOM         75+/COMPCOM/  CO.REWE        133+           L.TA             5
                                        CP.PD           11+/COMPCOM/  CO.REWI        134+           L.TB             7
                                        CP.PS           12+/COMPCOM/  CO.REWL        135+           O.CC           220+ 
                                        CP.PW           13+/COMPCOM/  CO.RNDA        136+           O.C            227+ 
                                        CP.EPAG          7+/COMPCOM/  CO.RNDS        137+           L.PWB          235+ 
                                        SYS=             2+           CO.RNDM        140+           L.TITL          15
                                        RCL=            15+           CO.RNDD        141+           L.TTLA           5
                                        WNB=            21+           CO.SEQ         142+           L.TTLB           6
                                        MSG=            31+           CO.STAT        143+           L.CC            15
                                        INT.FL          37+           CO.UO          144+           L.CCA            7
                                        F.IN           100+/COMPCOM/  CO.WPL         145+           L.CCB            7
                                        F.OUT          110+/COMPCOM/  CO.WPE         146+           ERFO            47
                                        F.ERRS         120+/COMPCOM/  CO.C$          147+           LDCOM          253+ 
                                        F.LGO          130+/COMPCOM/  CO.CS          147+           LOVER          260+ 
                                        F.PB            40+           CO.DOLG        150+           LDPRI          307+ 
                                        F.SLST          40+           CO.DOOT        151+           ABTFTN         327+ 
                                        F.IL            50+           CO.LOA         152+           MEMERR         332+ 
                                        F.REF           60+           CO.LOM         153+           COD            344+ 
                                        FTIFL           70+           CO.LOO         154+           COD=           344+ 
                                        JOT             71+           CO.LOR         155+           IBUF           353+ 
                                        MAX.FL          72+           CO.LOS         156+           OBUF          1355+ 
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        NOM.FL          73+           CO.QC          157+           FIN.FTN       1355+ 
                                        OT.DAL          74+           L.C$            11            FVTBL          353+ 
                                        OT.RM           75+           LCM.OA         160+           RPV=FVT          2
                                        RAPFLAG         76+           LCM.MM         161+           FV.IN            2
                                        RS.PD           77+           LCM.MU         162+           FV.OUT           3
                                        TIME0          100+           LCM.FL          72+/COMPCOM/  FV.ERRS          4
                                        TIME1          101+           GT1             24+/COMPCOM/  FV.LGO           5
                                        ENOT=L         102+           GT2             25+/COMPCOM/  FV.PB            6
                                        CO.AL          103+           HO$ER          107+           FV.IL            7
                                        CO.ANSI        104+           HO$TB          115+           FV.REF          10
                                        CO.ARGC        105+           HO$IE          120+           FVLEN           16
                                        CO.ARGF        106+           HO$LCM         123+ 
                                        CO.DBB           4+/COMPCOM/  HO$LO$S        156+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        FWA20 
  
  
  
  
                                                  IDENT  FTN                                                     FTN         2
                                         FTN      SECT   (GLOBAL CELLS AND SYSTEM INTERFACE.)                    FTN         3
  
  
  
  
  
                                        ***       FORTRAN EXTENDED COMPILER - VERSION 5.                         FTN         5
                                        *                                                                        FTN         6
                                        *         BASED ON ANSI X3.9-1978 FORTRAN.                               FTN         7
                                        *                                                                        FTN         8
                                        *         CONTROL DATA  PROPRIETARY PRODUCT.                             FTN         9
                                        *         COPYRIGHT CONTROL DATA CORP. 1979, 1980, 1981, 1982.           FC5*82      4
  
  
  
  
                                        ***       FTN - 0.0 OVERLAY OF THE FORTRAN EXTENDED COMPILER             FTN        12
                                        *                                                                        FTN        13
                                        *         CONTENTS                                                       FTN        14
                                        *                COMPILER INSTALLATION PARAMETERS                        FTN        15
                                        *                INTERMIXED COMPASS COMMUNICATION CELLS                  FTN        16
                                        *                SYSTEM INTERFACE SUBROUTINES                            FTN        17
                                        *                FILE MANAGEMENT TABLES                                  FTN        18
                                        *                COMPILER GLOBAL CELLS                                   FTN        19
                                        *                CONTROL STATEMENT OPTION CELLS                          FTN        20
                                        *                COMPILER OVERLAY LOADER                                 FTN        21
                                        *                COMPILER TERMINATION ROUTINES                           FTN        22
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     3
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        ***       COMPILER INSTALLATION PARAMETERS.                              FTN        24
                                        *                                                                        FTN        25
                                        *         THE FOLLOWING OPTIONS MAY BE CHANGED TO MEET INSTALLATION      FTN        26
                                        *         NEEDS.  THEY ARE LOCATED HERE (RATHER THAN IN THE *OPTIONS*    FTN        27
                                        *         COMDECK) TO REDUCE THE SIZE OF THE GLOBAL ASSEMBLY TEXT        FTN        28
                                        *         *FTN5TXT* AND MINIMIZE THE FIELD LENGTH NEEDED FOR ASSEMBLY.   FTN        29
  
  
  
  
                                        ***       COMPILER CONFIGURATION.                                        FTN        31
                                        *                                                                        FTN        32
                                        *                                                                        FTN        33
                                        *         FTN CAN BE ASSEMBLED IN A *SYSTEM* OR A *TEST* CONFIGURATION.  FTN        34
                                        *                                                                        FTN        35
                                        *         THE SYSTEM CONFIGURATION IS STANDARD, AND IS INTENDED FOR      FTN        36
                                        *         CUSTOMER INSTALLATION.                                         FTN        37
                                        *                                                                        FTN        38
                                        *         THE TEST CONFIGURATION IS INTENDED FOR COMPILER INTERNAL       FTN        39
                                        *         DEBUGGING.  IT IS NOT STRUCTURED FOR SYSTEM INSTALLATION,      FTN        40
                                        *         REQUIRES MORE FIELD LENGTH, AND COMPILES MORE SLOWLY IN THIS   FTN        41
                                        *         MODE.  THUS, IT IS NEITHER SUITED TO NOR INTENDED FOR USE BY   FTN        42
                                        *         CUSTOMERS.  CONTROL DATA CORP. WILL NOT BE RESPONSIBLE FOR     FTN        43
                                        *         DEFICIENCIES IN TEST MODE COMPILER PERFORMANCE.                FTN        44
                                        *                                                                        FTN        45
                                        *         COMPILER CONFIGURATION IS CONTROLLED BY THE DEFINITION OR      FTN        46
                                        *         UNDEFINITION OF THE *UPDATE* SYMBOL *TESTFTN* AT COMPILER      FTN        47
                                        *         INSTALLATION TIME.  NON-STANDARD PROCEDURES ARE NECESSARY FOR  FTN        48
                                        *         INSTALLATION IN THE TEST CONFIGURATION.                        FTN        49
  
  
  
  
                                        ***       FTN CONTROL STATEMENT.                                         FTN        51
                                        *                                                                        FTN        52
                                        *                                                                        FTN        53
                                        *                                                                        FTN        54
                                        *  THE  FTN CONTROL STATEMENT CONFORMS TO OPERATING SYSTEM REQUIREMENTS  FTN        55
                                        *  FOR CONTROL STATEMENTS, HAVING  THE  KEYWORD  FTN  AND  AN  OPTIONAL  FTN        56
                                        *  PARAMETER LIST.                                                       FTN        57
                                        *                                                                        FTN        58
                                        *         TERMINOLOGY                                                    FTN        59
                                        *                                                                        FTN        60
                                        *         -  PARAMETER   -  THE  KEYWORD  USED  IN  SPECIFYING  CONTROL  FTN        61
                                        *            STATEMENT INFORMATION.                                      FTN        62
                                        *                                                                        FTN        63
                                        *         -  OPTION - ONE OF A SET OF VALUES ASSIGNED TO A PARAMETER.    FTN        64
                                        *                                                                        FTN        65
                                        *         -  FIRST DEFAULT (ABBREVIATED FD) - THE  DEFAULT  VALUE  USED  FTN        66
                                        *            FOR  A PARAMETER WHEN THE PARAMETER DOES NOT APPEAR IN THE  FTN        67
                                        *            CONTROL STATEMENT.  IT IS INSTALLATION CHANGEABLE.          FTN        68
                                        *                                                                        FTN        69
                                        *         -  SECOND DEFAULT (ABBREVIATED SD) - THE DEFAULT  VALUE  USED  FTN        70
                                        *            FOR  A  PARAMETER  WHEN  ONLY THE KEYWORD APPEARS ON THE    FTN        71
                                        *            CONTROL STATEMENT.  IT IS NOT INSTALLATION CHANGEABLE.      FTN        72
                                        *                                                                        FTN        73
                                        *         -  INITIAL VALUE  (ABBREVIATED  IV)  -  THE  VALUE  INITIALLY  FTN        74
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     4
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *            ASSIGNED TO A MULTIPLE BINARY VALUE PARAMETER (SEE BELOW).  FTN        75
                                        *            IT IS INSTALLATION CHANGEABLE.                              FTN        76
                                        *                                                                        FTN        77
                                        *         TYPES OF PARAMETERS                                            FTN        78
                                        *                                                                        FTN        79
                                        *         THE CONTROL STATEMENT MAY CONTAIN THREE TYPES OF  PARAMETERS.  FTN        80
                                        *                                                                        FTN        81
                                        *         BINARY VALUE PARAMETER                                         FTN        82
                                        *                                                                        FTN        83
                                        *         A  BINARY  VALUE  PARAMETER  HAS TWO POSSIBLE SETTINGS (ON OR  FTN        84
                                        *         OFF).  THE FIRST DEFAULT IS USED  IF  THE  PARAMETER  IS  NOT  FTN        85
                                        *         SPECIFIED  ON  THE  CONTROL  STATEMENT.  SPECIFICATION OF THE  FTN        86
                                        *         KEYWORD ALONE  TURNS  THE  PARAMETER  ON  REGARDLESS  OF  THE  FTN        87
                                        *         DEFAULT.   SPECIFICATION OF "PARAMETER=0" TURNS THE PARAMETER  FTN        88
                                        *         OFF REGARDLESS OF THE DEFAULT.                                 FTN        89
                                        *                                                                        FTN        90
                                        *         SPECIFIED VALUE PARAMETER                                      FTN        91
                                        *                                                                        FTN        92
                                        *         SPECIFIED VALUE PARAMETERS PROVIDE THE PROCESSOR WITH  VALUES  FTN        93
                                        *         FOR  SUCH  THINGS  AS  FILE  NAMES, PAGE SIZE, ETC.  MULTIPLE  FTN        94
                                        *         VALUES ARE SEPARATED BY SLASHES.                               FTN        95
                                        *                                                                        FTN        96
                                        *         IF A SPECIFIED VALUE PARAMETER IS OMITTED THE  FIRST  DEFAULT  FTN        97
                                        *         IS  USED.   IF  ONLY  THE  PARAMETER NAME IS SPECIFIED ON THE  FTN        98
                                        *         CONTROL  STATEMENT  THE  SECOND  DEFAULT  IS  USED.  IF   THE  FTN        99
                                        *         PARAMETER IS SPECIFIED WITH A VALUE, THE VALUE IS USED.        FTN       100
                                        *                                                                        FTN       101
                                        *         MULTIPLE BINARY VALUE PARAMETERS                               FTN       102
                                        *                                                                        FTN       103
                                        *         IT  IS  CONVENIENT  TO  COMBINE  A  NUMBER  OF RELATED BINARY  FTN       104
                                        *         PARAMETERS AS OPTIONS OF A SINGLE PARAMETER.   THIS  TYPE  OF  FTN       105
                                        *         PARAMETER IS CALLED A MULTIPLE BINARY VALUE PARAMETER.         FTN       106
                                        *                                                                        FTN       107
                                        *         THE FORM OF A MULTIPLE BINARY VALUE PARAMETER IS               FTN       108
                                        *                                                                        FTN       109
                                        *             PARAMETER=OP/OP/OP...                                      FTN       110
                                        *                                                                        FTN       111
                                        *         IF THE  PARAMETER IS OMITTED THE FIRST DEFAULT VALUE IS USED.  FTN       112
                                        *         IF ONLY THE PARAMETER NAME IS SPECIFIED, THE  SECOND  DEFAULT  FTN       113
                                        *         IS  USED.   IF  THE  FULL  FORM  IS  PRESENT,  THE  FOLLOWING  FTN       114
                                        *         ALGORITHM IS APPLIED                                           FTN       115
                                        *                                                                        FTN       116
                                        *             1.  INITIALLY, INITIAL VALUE OPTIONS ARE SELECTED.         FTN       117
                                        *                                                                        FTN       118
                                        *             2.  THE OPTION LIST IS SCANNED FROM LEFT TO RIGHT.         FTN       119
                                        *                                                                        FTN       120
                                        *             3.  "-OP" DESELECTS THE SPECIFIED OPTION.                  FTN       121
                                        *                                                                        FTN       122
                                        *             4.  "OP" ADDS TO THE OPTIONS SELECTED.                     FTN       123
                                        *                                                                        FTN       124
                                        *             5.  "0" (ZERO) DESELECTS ALL PREVIOUSLY SELECTED OPTIONS.  FTN       125
                                        *                                                                        FTN       126
                                        *         MULTIPLE APPEARANCES                                           FTN       127
                                        *                                                                        FTN       128
                                        *         IF A PARAMETER APPEARS MORE THAN ONCE IN A CONTROL STATEMENT,  FTN       129
                                        *         THE CONTROL STATEMENT IS IN ERROR.  THE  PROCESSOR  WILL  NOT  FTN       130
                                        *         PERFORM  THE  REQUESTED  ACTION  AND WILL ABORT TO AN EXIT(S)  FTN       131
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     5
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *         WITH NO DUMP IF THE SYSTEM SUPPORTS THAT FACILITY.  THE  ONLY  FTN       132
                                        *         EXCEPTIONS  TO  THIS  RULE  ARE THE G AND S PARAMETERS, WHERE  FTN       133
                                        *         MULTIPLE APPEARANCES ADD TO THE SET OF TEXTS SPECIFIED.        FTN       134
                                        *                                                                        FTN       135
                                        *         THE FOLLOWING PARAMETERS ARE DEFINED.                          FTN       136
                                        *                                                                        FTN       137
                                        *          PARAMETER                   DESCRIPTION                       FTN       138
                                        *                                                                        FTN       139
                                        *           AL       THIS PARAMETER SELECTS PLACEMENT OF ALL COMMON      FC5A444    31
                                        *                    BLOCKS IN LCM OR UEM UNLESS OVERRIDDEN BY AN EXPLIC FC5A444    32
                                        *                    *LEVEL* STATEMENT.  ALL ELEMENTS OF SUCH A COMMON   FC5A444    33
                                        *                    BLOCK ARE TREATED AS LEVEL 2 ITEMS. ALL DUMMY ARGS  FC5A444    34
                                        *                    OF SUBROUTINES AND FUNCTIONS WILL BE TREATED AS IF  FC5A444    35
                                        *                    LEVEL 0 HAD BEEN SPECIFIED FOR THEM UNLESS AN EXPLI FC5A444    36
                                        *                    *LEVEL* DECLARATION OVERRIDES.                      FC5A444    37
                                        *                                                                        FC5A444    38
                                        *                    BINARY VALUE PARAMETER: FD=0, SD=AUTOMATIC LEVEL 2  FC5A444    39
                                        *                                                                        FC5A444    40
                                        *           ANSI=OP  ANSI DIAGNOSTICS.                                   FTN       140
                                        *                    THIS PARAMETER SPECIFIES WHETHER USE OF NON ANSI    FTN       141
                                        *                    EXTENSIONS IS TO BE DIAGNOSED AND IF SO, HOW        FTN       142
                                        *                    SEVERELY.  THE DEFINED VALUES OF "OP" ARE:          FTN       143
                                        *                                                                        FTN       144
                                        *                     0   NO ANSI DIAGNOSTICS.                           FTN       145
                                        *                                                                        FTN       146
                                        *                     T   TRIVIAL ERROR. ANSI ERRORS ARE TREATED AS      FTN       147
                                        *                         ERRORS WITH THIS SEVERITY.                     FTN       148
                                        *                                                                        FTN       149
                                        *                     F   FATAL ERROR. NON-ANSI USAGES RESULT IN A FATAL FTN       150
                                        *                         ERROR.                                         FTN       151
                                        *                                                                        FTN       152
                                        *                    SPECIFIED VALUE PARAMETER: FD=0, SD=T.              FTN       153
                                        *                                                                        FTN       154
                                        *           ARG=ATTR ARGUMENT LIST ATTRIBUTES.                           FTN       155
                                        *                    THIS PARAMETER SPECIFIES ATTRIBUTES OF EXTERNAL     FTN       156
                                        *                    PROCEDURE ARGUMENT LISTS GENERATED BY THE PROCESSOR FTN       157
                                        *                    THE DEFINED OPTIONS ARE:                            FTN       158
                                        *                                                                        FTN       159
                                        *                    COMMON  ARGUMENT LISTS GENERATED FOR EXTERNAL       FTN       160
                                        *                            PROCEDURES WILL BE OF THE FORM SPECIFIED    FTN       161
                                        *                            FOR INTER-LANGUAGE COMMUNICATION. (SEE      FTN       162
                                        *                            DAP DCS S1518)                              FTN       163
                                        *                                                                        FTN       164
                                        *                    FIXED   FOR EACH EXTERNAL PROCEDURE IN THE          FTN       165
                                        *                            EXECUTABLE PROGRAM, ALL ITS REFERENCES HAVE FTN       166
                                        *                            THE SAME NUMBER OF ARGUMENTS.  (THE         FTN       167
                                        *                            PROCESSOR GENERATED ARGUMENT LISTS WILL NOT FTN       168
                                        *                            CONTAIN A ZERO TERMINATOR.)                 FTN       169
                                        *                                                                        FTN       170
                                        *                    MULTIPLE BINARY VALUE PARAMETER:  FD=0, SD=-COMMON/ FTN       171
                                        *                    FIXED, IV=0.  COMMON IMPLIES -FIXED.  SPECIFICATION FTN       172
                                        *                    OF BOTH COMMON AND FIXED IS NOT PERMITTED.          FTN       173
                                        *                                                                        FTN       174
                                        *           B=LFN    BINARY OUTPUT FILE.                                 FTN       175
                                        *                    THIS PARAMETER SPECIFIES THE FILE WHICH IS TO CONT- FTN       176
                                        *                    AIN THE BINARY OUTPUT INFORMATION.  B=0 INDICATES   FTN       177
                                        *                    THAT NO BINARY SHOULD BE WRITTEN.                   FTN       178
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     6
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                                                                        FTN       179
                                        *                    SPECIFIED VALUE PARAMETER: FD=LGO, SD=BIN.          FTN       180
                                        *                                                                        FTN       181
                                        *           BL       BURSTABLE LISTING.                                  FTN       182
                                        *                    THIS PARAMETER CONTROLS PAGE EJECTS IN THE LISTING  FTN       183
                                        *                    PRODUCED BY THE PROCESSOR. SETTING BL OFF MINIMIZES FTN       184
                                        *                    PAGE EJECTS AND CONSERVES PAPER. SETTING BL ON      FTN       185
                                        *                    CAUSES PAGE EJECTS BETWEEN THE PROGRAM UNIT SOURCE  FTN       186
                                        *                    LISTING, THE CROSS REFERENCE-ATTRIBUTES-MAP LISTING FTN       187
                                        *                    AND THE OBJECT CODE LISTING. IT ALSO ENSURES THAT   FTN       188
                                        *                    EACH PROGRAM UNIT LISTING CONTAINS AN EVEN NUMBER   FTN       189
                                        *                    OF PAGES, ISSUING A BLANK PAGE AT THE END, IF       FTN       190
                                        *                    NECESSARY.                                          FTN       191
                                        *                                                                        FTN       192
                                        *                    BINARY VALUE PARAMETER: FD=0, SD=ISSUE ALL PAGE     FTN       193
                                        *                    EJECTS.                                             FTN       194
                                        *                                                                        FTN       195
                                        *           CS=SEQ   COLLATING SEQUENCE.                                 FTN       196
                                        *                    THIS PARAMETER SPECIFIES THE WEIGHT TABLE TO BE     FTN       197
                                        *                    USED FOR THE EVALUATION OF CHARACTER RELATIONAL     FTN       198
                                        *                    EXPRESSIONS.  (SEE SECTION 3.1.5 AND APPENDIX A,    FTN       199
                                        *                    ERS). THE DEFINED VALUES OF "SEQ" ARE:              FTN       200
                                        *                                                                        FTN       201
                                        *                    USER     USER SPECIFIED WEIGHT TABLE.               FTN       202
                                        *                                                                        FTN       203
                                        *                    FIXED    FIXED WEIGHT TABLE.                        FTN       204
                                        *                                                                        FTN       205
                                        *                    SPECIFIED VALUE PARAMETER: FD=USER, SD=FIXED.  THE  FTN       206
                                        *                    EFFECT OF THIS PARAMETER CAN BE OVERRIDDEN BY USE   FTN       207
                                        *                    OF THE COLLATE DIRECTIVE (3.7.3).                   FTN       208
                                        *                                                                        FTN       209
                                        *           DB=OP    DEBUGGING OPTION.                                   FTN       210
                                        *                    THIS PARAMETER SELECTS DEBUGGING OPTIONS.  MULTIPLE FTN       211
                                        *                    OPTIONS MAY BE SPECIFIED.  THE FOLLOWING OPTIONS    FTN       212
                                        *                    ARE AVAILABLE:                                      FTN       213
                                        *                                                                        FTN       214
                                        *                    TB  ERROR TRACEBACK.  THIS OPTION SELECTS ERROR     FTN       215
                                        *                        TRACEBACK UPON DETECTION OF AN ERROR IN A       FTN       216
                                        *                        LIBRARY ROUTINE.                                FTN       217
                                        *                                                                        FTN       218
                                        *                    SB  SUBSCRIPT BOUNDS CHECK.  THIS OPTION SELECTS    FTN       219
                                        *                        CHECKING OF ARRAY ELEMENT REFERENCES TO ENSURE  FTN       220
                                        *                        THAT ALL REFERENCES ARE WITHIN THE ARRAY.       FTN       221
                                        *                                                                        FTN       222
                                        *                    SL  SUBSTRING LIMITS CHECK.  THIS OPTION SELECTS    FTN       223
                                        *                        CHECKING OF CHARACTER SUBSTRING EXPRESSIONS     FTN       224
                                        *                        TO ENSURE THAT THE SUBSTRING REFERENCES ARE     FTN       225
                                        *                        WITHIN THE STRING.                              FTN       226
                                        *                                                                        FTN       227
                                        *                    ER  ERROR RECOVERY.  THIS OPTION SELECTS OBJECT     FTN       228
                                        *                        TIME REPRIEVE OF EXECUTION ERRORS DETECTED BY   FTN       229
                                        *                        THE OPERATING SYSTEM.  THE ERROR MESSAGE IDENT- FTN       230
                                        *                        IFIES THE PROGRAM UNIT AND LINE NUMBER CONTAIN- FTN       231
                                        *                        ING THE ERROR.                                  FTN       232
                                        *                                                                        FTN       233
                                        *                    ID  INTERACTIVE DEBUG.  THIS OPTION SELECTS BOTH    FTN       234
                                        *                        THE OBJECT CODE AND THE SYMBOL AND LINE NUMBER  FTN       235
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     7
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                        TABLES REQUIRED BY INTERACTIVE DEBUG.  THE      FTN       236
                                        *                        TABLES ARE PRODUCED ON THE BINARY OUTPUT FILE.  FTN       237
                                        *                        THESE ACTIONS ALSO TAKE PLACE IF THE PROCESSOR  FTN       238
                                        *                        ENVIRONMENT HAS INTERACTIVE DEBUG SELECTED.     FTN       239
                                        *                        DB=-ID WILL SUPPRESS THESE ACTIONS REGARDLESS   FTN       240
                                        *                        OF THE PROCESSOR ENVIRONMENT.                   FTN       241
                                        *                                                                        FTN       242
                                        *                    PMD POST MORTEM DUMP.                               FTN       243
                                        *                                                                        FTN       244
                                        *                    ST  SYMBOL TABLE TO BINARY.  THIS OPTION SPECIFIES  FTN       245
                                        *                        THAT THE SYMBOL AND LINE NUMBER TABLES REQUIRED FTN       246
                                        *                        BY INTERACTIVE DEBUG ARE TO BE PRODUCED IN THE  FTN       247
                                        *                        BINARY OUTPUT FILE.  THIS ACTION ALSO TAKES     FTN       248
                                        *                        PLACE IF THE PROCESSOR ENVIRONMENT HAS INTER-   FTN       249
                                        *                        ACTIVE DEBUG SELECTED.  DB=-ST WILL SUPPRESS    FTN       250
                                        *                        SYMBOL AND LINE NUMBER TABLES REGARDLESS OF THE FTN       251
                                        *                        PROCESSOR ENVIRONMENT.                          FTN       252
                                        *                                                                        FTN       253
                                        *                    MULTIPLE BINARY VALUE PARAMETER:  FD=0,             FTN       254
                                        *                    SD=TB/SB/SL/ER/PMD,                                 FC5A275     6
                                        *                    IV=TB/SB/SL/ER/PMD.                                 FC5A275     7
                                        *                                                                        FTN       257
                                        *           DO=OP    DO LOOP CONTROL.                                    FTN       258
                                        *                    THIS PARAMETER SPECIFIES THE MANNER IN WHICH DO     FTN       259
                                        *                    LOOPS ARE TO BE INTERPRETED BY THE PROCESSOR.  THE  FTN       260
                                        *                    FOLLOWING OPTIONS ARE AVAIABLE:                     FTN       261
                                        *                                                                        FTN       262
                                        *                    LONG  LONG LOOPS. THIS OPTION SELECTS THE PROCESS-  FTN       263
                                        *                          ING OF DO LOOPS THAT PERMITS THE TRIP COUNT   FTN       264
                                        *                          COUNT TO EXCEED 131,071.                      FTN       265
                                        *                                                                        FTN       266
                                        *                    OT    ONE TRIP LOOPS. THIS OPTION SELECTS THE MINI- FTN       267
                                        *                          MUM TRIP COUNT FOR DO LOOPS TO BE ONE. SET-   FTN       268
                                        *                          TING THIS OPTION FREQUENTLY RESULTS IN MORE   FTN       269
                                        *                          EFFICIENT PROGRAM EXECUTION.  MOST DO LOOPS   FTN       270
                                        *                          HAVE AN ITERATION COUNT OF AT LEAST ONE AND   FTN       271
                                        *                          EXECUTE CORRECTLY UNDER EITHER SETTING OF THE FTN       272
                                        *                          DO PARAMETER, HOWEVER, IF A DO LOOP HAS AN    FTN       273
                                        *                          ITERATION COUNT OF ZERO AND DO=OT IS SPECI-   FTN       274
                                        *                          IFIED, THE PROGRAM MAY NOT EXECUTE CORRECTLY. FTN       275
                                        *                                                                        FTN       276
                                        *                    MULTIPLE BINARY VALUE  PARAMETER:  FD=0, SD=OT,     FTN       277
                                        *                    IV=0.  THE EFFECTS OF THESE OPTIONS CAN BE OVER-    FTN       278
                                        *                    RIDDEN BY USE OF THE DO DIRECTIVE (ERS, 3.4.5).     FTN       279
                                        *                                                                        FTN       280
                                        *           DS       DIRECTIVE SUPPRESSION.                              FTN       281
                                        *                    THIS PARAMETER SUPPRESSES THE RECOGNITION OF C$     FTN       282
                                        *                    DIRECTIVES, SO THAT THEY ARE TREATED AS COMMENTS.   FTN       283
                                        *                                                                        FTN       284
                                        *                    BINARY VALUE  PARAMETER:  FD=0,  SD=SUPPRESS        FTN       285
                                        *                    DIRECTIVE RECOGNITION.                              FTN       286
                                        *                                                                        F1037F5   128
                                        *           EC       USE EXTENDED MEMORY FOR OPT=2 COMPILE TIME TABLES.  F1037F5   129
                                        *                    THIS OPTION ALLOWS CCG TO USE ECS/LCM AT COMPILE    F1037F5   130
                                        *                    TIME TO AVOID RANDOM I/O MANAGEMENT FOR PROGRAM     F1037F5   131
                                        *                    BLOCKS. CT.ECS MUST BE NONZERO (SEE *OPTIONS*) AT   F1037F5   132
                                        *                    BUILD TIME FOR THIS OPTION TO BE MEANINGFUL.        F1037F5   133
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     8
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                                                                        F1037F5   134
                                        *                    BINARY VALUE PARAMETER:  FD=USE AS AVAIL,  SD=FD.   F1037F5   135
                                        *                                                                        FTN       287
                                        *           E=LFN    ERROR FILE.                                         FTN       288
                                        *                    THIS PARAMETER SPECIFIES THE FILE NAME TO RECEIVE   FTN       289
                                        *                    ERROR LISTING INFORMATION.  IN THE EVENT OF AN      FTN       290
                                        *                    ERROR (OF EL SPECIFIED SEVERITY OR HIGHER) THE      FTN       291
                                        *                    ERROR LINE AND DIAGNOSTIC ARE WRITTEN TO THE E      FTN       292
                                        *                    FILE.  IF FULL LISTING IS ON (L PARAMETER), THE     FTN       293
                                        *                    ERROR LINE AND DIAGNOSTIC ARE ALSO WRITTEN TO THE L FTN       294
                                        *                    FILE.  IF THE LFN OF THE E FILE IS THE SAME LFN AS  FTN       295
                                        *                    THE L FILE, THEN THE ERROR LINE AND DIAGNOSTIC ARE  FTN       296
                                        *                    NOT WRITTEN TO THE E FILE.                          FTN       297
                                        *                                                                        FTN       298
                                        *                    SPECIFIED VALUE PARAMETER:  FD=OUTPUT, SD=ERRS.     FTN       299
                                        *                    E=0 IS AN ERROR.                                    FTN       300
                                        *                                                                        FTN       301
                                        *           EL=OP    ERROR LEVEL.                                        FTN       302
                                        *                    THIS OPTION INDICATES THE SEVERITY LEVEL OF ERRORS  FTN       303
                                        *                    TO BE PRINTED ON THE USER'S LISTING.  THE LEVELS    FTN       304
                                        *                    ARE ORDERED BY INCREASING SERVERITY.  SPECIFICATION FTN       305
                                        *                    OF A PARTICULAR LEVEL SELECTS THAT LEVEL AND ALL    FTN       306
                                        *                    MORE SEVERE LEVELS.  THE LEVELS IN INCREASING ORDER FTN       307
                                        *                    OF SEVERITY ARE:                                    FTN       308
                                        *                                                                        FTN       309
                                        *                    D   DEBUG.  THIS IS USED BY THE MAINTENANCE PROJECT FTN       310
                                        *                        TO FLAG COMPILER OPERATION.  TEST MODE ONLY.    FTN       311
                                        *                                                                        FTN       312
                                        *                    T   TRIVIAL.   THIS IS USED TO FLAG A SUSPICIOUS    FTN       313
                                        *                        USAGE.  THE SYNTAX IS CORRECT BUT THE USAGE IS  FTN       314
                                        *                        QUESTIONABLE.                                   FTN       315
                                        *                                                                        FTN       316
                                        *                    W   WARNING.  THIS IS AN ERROR WHERE THE SYNTAX IS  FTN       317
                                        *                        INCORRECT BUT THE PROCESSOR HAS MADE AN ASSUMP- FTN       318
                                        *                        TION (SUCH AS ADDING A COMMA) AND CONTINUED.    FTN       319
                                        *                                                                        FTN       320
                                        *                    F   FATAL.  THIS IS AN ERROR WHICH PREVENTS THE     FTN       321
                                        *                        PROCESSOR FROM PROCESSING THE STATEMENT IN      FTN       322
                                        *                        WHICH IT OCCURS.  UNRESOLVABLE SEMANTIC ERRORS  FTN       323
                                        *                        ALSO FALL INTO THIS CLASS. SUCH ERRORS MAY NOT  FTN       324
                                        *                        RELATE TO A SPECIFIC STATEMENT IN THE PROGRAM   FTN       325
                                        *                        UNIT.                                           FTN       326
                                        *                                                                        FTN       327
                                        *                    C   CATASTROPHIC.  THIS CLASS OF ERROR IS FATAL TO  FTN       328
                                        *                        COMPILATION. THE PROCESSOR IS UNABLE TO CONTIN- FTN       329
                                        *                        UE PROCESSING THE CURRENT PROGRAM UNIT. HOWEVER FTN       330
                                        *                        IT WILL ADVANCE TO THE END OF THE CURRENT PRO-  FTN       331
                                        *                        GRAM UNIT AND ATTEMPT TO PROCESS A SUBSEQUENT   FTN       332
                                        *                        UNIT.                                           FTN       333
                                        *                                                                        FTN       334
                                        *                    SPECIFIED VALUE PARAMETER:  FD=T, SD=F.             FTN       335
                                        *                    EL=0 IS AN ERROR.                                   FTN       336
                                        *                    ERROR.                                              FTN       337
                                        *                                                                        FTN       338
                                        *           ET=OP    ERROR TERMINATE.                                    FTN       339
                                        *                    THIS PARAMETER SPECIFIES THE ACTION TO BE TAKEN BY  FTN       340
                                        *                    THE PROCESSOR WHEN IT IS FINISHED  COMPILING.   ET  FTN       341
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE     9
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                    MAY  BE  SPECIFIED  WITH  A VALUE OF T, W, F, OR C  FTN       342
                                        *                    (SEE EL FOR MEANINGS).  IF  ET  IS  SELECTED,  AND  FTN       343
                                        *                    THERE  WERE  ERRORS  OF  THE SPECIFIED SEVERITY OR  FTN       344
                                        *                    HIGHER, ABORT THE JOB STEP TO AN EXIT(S).  IF ET=0  FTN       345
                                        *                    IS  SELECTED,  DO  NOT  ABORT THE JOB STEP EVEN IF  FTN       346
                                        *                    ERRORS ARE ENCOUNTERED.  T OR W ERRORS WILL ALWAYS  FTN       347
                                        *                    PRODUCE  A  GOOD BINARY BUT THE ET PARAMETER STILL  FTN       348
                                        *                    ALLOWS THE JOB STEP TO BE  ABORTED  IF  ERRORS  OF  FTN       349
                                        *                    THIS  SEVERITY  OCCUR.   F  OR C LEVEL ERRORS WILL  FTN       350
                                        *                    PRODUCE A SHORT, BAD BINARY  SUFFICIENT  TO  ABORT  FTN       351
                                        *                    THE LOADER UNLESS THE B OPTION OF DB IS SPECIFIED.  FTN       352
                                        *                                                                        FTN       353
                                        *                    BINARY VALUE PARAMETER : FD=0, SD=F.                FTN       354
                                        *                                                                        FTN       355
                                        *           G=GT     GET SYSTEMS TEXT FROM A FILE.                       FTN       356
                                        *                    THE OPTION "GT" SPECIFIES THE NAME OF THE FILE TO   FTN       357
                                        *                    BE READ TO OBTAIN A SYSTEM TEXT. THE OPTION "GT"    FTN       358
                                        *                    MAY HAVE ONE OF THE FORMS:                          FTN       359
                                        *                                                                        FTN       360
                                        *                        1.  LFN                                         FTN       361
                                        *                        2.  LFN-RECNAME                                 FTN       362
                                        *                        3.  0                                           FTN       363
                                        *                                                                        FTN       364
                                        *                    FORM 1 SPECIFIES THE FILE "LFN" AS THE SOURCE OF    FTN       365
                                        *                    THE SYSTEMS TEXT. FORM 2 SPECIFIES THE NAME OF THE  FTN       366
                                        *                    RECORD "RECNAME") ON FILE "LFN" WHIGH IS TO BE THE  FTN       367
                                        *                    SOURCE OF THE SYSTEMS TEXT. MULTIPLE TEXT NAMES ARE FTN       368
                                        *                    SPECIFIED BY SEPARATING THEM WITH SLASHES.  NOTE    FTN       369
                                        *                    THAT THE TOTAL NUMBER OF SYSTEM TEXTS ALLOWED (SEE  FTN       370
                                        *                    S PARAMETER) FROM FILES AND THE SYSTEM IS RESTRICT- FTN       371
                                        *                    ED BY THE PROCESSOR TO SEVEN. IF G=0 IS SPECIFIED   FTN       372
                                        *                    AND ANY OTHER G=GT IS SPECIFIED (IN ANY ORDER), THE FTN       373
                                        *                    G=0 IS IGNORED.                                     FTN       374
                                        *                                                                        FTN       375
                                        *                    SPECIFIED VALUE PARAMETER WITH MULTIPLE VALUES:     FTN       376
                                        *                    FD=0, SD=SYSTEXT AND NO RECORD NAME.                FTN       377
                                        *                                                                        FTN       378
                                        *           GO       COMPILE AND EXECUTE.                                FTN       379
                                        *                    THIS PARAMETER SPECIFIES A COMPILE AND GO MODE OF   FTN       380
                                        *                    OPERATION.  GO=0 SPECIFIES NO EXECUTION.  GO MEANS  FTN       381
                                        *                    COMPILE AND GO.                                     FTN       382
                                        *                                                                        FTN       383
                                        *                    BINARY VALUE PARAMETER: FD=0, SD=COMPILE AND GO.    FTN       384
                                        *                                                                        FTN       385
                                        *           I=LFN    INPUT FILE.                                         FTN       386
                                        *                    THIS PARAMETER SPECIFIES THE SOURCE INPUT FILE TO   FTN       387
                                        *                    THE PROCESSOR.                                      FTN       388
                                        *                                                                        FTN       389
                                        *                    SPECIFIED VALUE PARAMETER:  FD=INPUT,  SD=COMPILE.  FTN       390
                                        *                    I=0 IS AN ERROR.                                    FTN       391
                                        *                                                                        FTN       392
                                        *           L=LFN    LISTING FILE.                                       FTN       393
                                        *                    THIS PARAMETER SPECIFIES THE FILE WHERE THE PROCES- FTN       394
                                        *                    SOR WRITES THE SOURCE LISTING, DIAGNOSTICS, AND ANY FTN       395
                                        *                    ADDITIONAL LIST INFORMATION (SEE LO PARAMETER).     FTN       396
                                        *                                                                        FTN       397
                                        *                    SPECIFIED VALUE PARAMETER: FD=OUTPUT, SD=LIST.      FTN       398
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    10
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                    (L=0 SURPRESSES ALL LISTING).                       FTN       399
                                        *                                                                        FTN       400
                                        *           LCM=MODE LCM OR ECS STORAGE ACCESS.                          FTN       401
                                        *                    THIS PARAMETER SPECIFIES THE REQUIREMENTS ON ADDR-  FTN       402
                                        *                    ESS SIZE FOR DATA IN LCM OR ECS STORAGE. (SEE SECT. FTN       403
                                        *                    8.10 LEVEL STATEMENT.) THE DEFINED VALUES OF "MODE" FTN       404
                                        *                    ARE:                                                FTN       405
                                        *                                                                        FTN       406
                                        *                    D   DIRECT MODE ADDRESSING. THIS IS THE MOST EFFIC- FTN       407
                                        *                        IENT MODE WHEN LCM OR ECS FIELD LENGTH DOES NOT FTN       408
                                        *                        EXCEED 131,071 WORDS.  IF LCM OR ECS FIELD      FTN       409
                                        *                        LENGTH EXCEEDS 131,071 WORDS, D MODE ADDRESSING FTN       410
                                        *                        IS AN ERROR.                                    FTN       411
                                        *                                                                        FTN       412
                                        *                    I   INDIRECT MODE ADDRESSING. THIS IS THE MOST EFF- FTN       413
                                        *                        ICIENT MODE WHEN LCM OR ECS FIELD LENGTH EXCEED FTN       414
                                        *                        131,071 WORDS BUT NO SINGLE COMMON BLOCK IS     FTN       415
                                        *                        LARGER THAN 131,071 WORDS. IF ANY COMMON BLOCK  FTN       416
                                        *                        IS LARGER THAN 131,071 WORDS, I MODE ADDRESSING FTN       417
                                        *                        IS AN ERROR.                                    FTN       418
                                        *                                                                        FTN       419
                                        *                    G   GIANT MODE ADDRESSING. THIS IS THE MODE REQUIR- FTN       420
                                        *                        ED IF ANY SINGLE COMMON BLOCK IS LARGER THAN    FTN       421
                                        *                        131,071 WORDS.  LCM=G IMPLIES DO=LONG.          FTN       422
                                        *                                                                        FTN       423
                                        *                    SPECIFIED VALUE PARAMETER: FD=D, SD=I.              FTN       424
                                        *                                                                        FTN       425
                                        *           LO=OP    LISTING OPTIONS.                                    FTN       426
                                        *                    THE OPTIONS OF THIS PARAMETER SPECIFY WHAT INFORM-  FTN       427
                                        *                    ATION WILL APPEAR ON THE LIST FILE (L PARAMETER).   FTN       428
                                        *                    MULTIPLE OPTIONS MAY BE SPECIFIED.  THE DEFINED     FTN       429
                                        *                    OPTIONS ARE:                                        FTN       430
                                        *                                                                        FTN       431
                                        *                    A   ATTRIBUTES.  A LIST OF PROGRAM ENTITIES AND     FTN       432
                                        *                        THEIR ATTRIBUTES (DATA TYPE, CLASS, ETC.)       FTN       433
                                        *                                                                        FTN       434
                                        *                    C   COMDECK.  LISTING CONTROL FOR COMDECKS.         FTN       435
                                        *                                                                        FTN       436
                                        *                    M   MAP.  A CORRELATION OF PROGRAM ENTITIES AND     FTN       437
                                        *                        PHYSICAL STORAGE.                               FTN       438
                                        *                                                                        FTN       439
                                        *                    O   OBJECT CODE LISTING. A LISTING OF THE GENERATED FTN       440
                                        *                        OBJECT CODE WITH COMPASS MNEMONICS.             FTN       441
                                        *                                                                        FTN       442
                                        *                    R   CROSS REFERENCE LISTING.  A CROSS REFERENCE OF  FTN       443
                                        *                        PROGRAM ENTITIES SHOWING LOCATIONS OF DEFIN-    FTN       444
                                        *                        ITION AND USE WITHIN THE PROGRAM.               FTN       445
                                        *                                                                        FTN       446
                                        *                    S   SOURCE.  SOURCE LISTING OF THE PROGRAM.         FTN       447
                                        *                                                                        FTN       448
                                        *                    MULTIPLE BINARY VALUE PARAMETER: FD=S/A, SD=S/A/R,  FTN       449
                                        *                    IV=S/A.  THE EFFECTS OF THE SPECIFIED OPTIONS CAN   FTN       450
                                        *                    BE CONTROLLED BY USE OF THE LIST DIRECTIVE (3.7.1). FTN       451
                                        *                                                                        FTN       452
                                        *           ML=STR   MODLEVEL MICRO VALUE.                               FTN       453
                                        *                    THIS PARAMETER SPECIFIES THE VALUE OF THE MODLEVEL  FTN       454
                                        *                    MICRO USED BY COMPASS. THE STRING "STR" CONSISTS OF FTN       455
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    11
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                    1 TO 9 LETTERS AND DIGITS. IF ML IS SPECIFIED WITH  FTN       456
                                        *                    NO STRING, THE VALUE USED IS THE CURRENT JULIAN     FTN       457
                                        *                    DATE IN THE FORM YYDDD, WHERE YY IS THE YEAR AND    FTN       458
                                        *                    DDD IS THE NUMBER OF DAYS WITHIN THE YEAR.          FTN       459
                                        *                                                                        FTN       460
                                        *                    SPECIFIED VALUE PARAMETER: FD=JULIAN DATE,          FTN       461
                                        *                    SD=JULIAN DATE.                                     FTN       462
                                        *                                                                        F1037F5   136
                                        *           MD=OP    MACHINE DEPENDENT DIAGNOSTICS.                      F1037F5   137
                                        *                    THIS PARAMETER SPECIFIES WHETHER USE OF MACHINE     F1037F5   138
                                        *                    DEPENDENT LANGUAGE FEATURES IS TO BE DIAGNOSED,     F1037F5   139
                                        *                    AND IF SO, HOW SEVERLY. THE DEFINED VALUES          F1037F5   140
                                        *                    OF "OP" ARE :                                       F1037F5   141
                                        *                                                                        F1037F5   142
                                        *                    0   NO MACHINE DEPENDENT DIAGNOSTICS                F1037F5   143
                                        *                                                                        F1037F5   144
                                        *                    T   TRIVIAL ERROR.  USES OF MACHINE DEPENDENT       F1037F5   145
                                        *                        FEATURES ARE TREATED AS ERRORS WITH THIS        F1037F5   146
                                        *                        SEVERITY.                                       F1037F5   147
                                        *                                                                        F1037F5   148
                                        *                    F   FATAL ERROR. USE OF MACHINE DEPENDENT           F1037F5   149
                                        *                        FEATURE RESULTS IN A FATAL ERROR.               F1037F5   150
                                        *                                                                        F1037F5   151
                                        *                    SPECIFIED VALUE PARAMETER : FD=0, SD=T.             F1037F5   152
                                        *                                                                        FTN       463
                                        *           OPT=N    OPTIMIZATION LEVEL.                                 FTN       464
                                        *                    THIS PARAMETER SPECIFIES THE LEVEL OF OPTIMIZATION  FTN       465
                                        *                    PERFORMED BY THE PROCESSOR.  THE FOLLOWING OPTIONS  FTN       466
                                        *                    ARE AVAILABLE:                                      FTN       467
                                        *                                                                        FTN       468
                                        *                    0   MINIMUM OPTIMIZATION.  FASTEST COMPILATION.     FTN       469
                                        *                                                                        FTN       470
                                        *                    1   INTERMEDIATE OPTIMIZATION.                      FTN       471
                                        *                                                                        FTN       472
                                        *                    2   MAXIMUM OPTIMIZATION.  SLOWEST COMPILATION.     FTN       473
                                        *                                                                        FTN       474
                                        *                    3   OPT 2, PLUS POTENTIALLY UNSAFE OPTIMIZATIONS.   FTN       475
                                        *                                                                        FTN       476
                                        *                    SPECIFIED VALUE PARAMETER: FD=0,SD=2.               FTN       477
                                        *                                                                        FTN       478
                                        *           PD=N     PRINT DENSITY.                                      FTN       479
                                        *                    THIS PARAMETER SPECIFIES THE PRINT DENSITY FOR ALL  FTN       480
                                        *                    PRINTABLE OUTPUT (L AND E FILES).  THE DESTINATION  FTN       481
                                        *                    PRINTER MUST BE CAPABLE OF SUPPORTING THE SELECTED  FTN       482
                                        *                    DENSITY. FOR CONNECTED INTERACTIVE TERMINALS, DEN-  FTN       483
                                        *                    SITY SELECTION IS SUPPRESSED. THE DEFINED VALUES OF FTN       484
                                        *                    "N" ARE:                                            FTN       485
                                        *                                                                        FTN       486
                                        *                        6   SIX LINES/INCH - SINGLE SPACED.             FTN       487
                                        *                                                                        FTN       488
                                        *                        8   EIGHT LINES/INCH - SINGLE SPACED.           FTN       489
                                        *                                                                        FTN       490
                                        *                    SPECIFIED VALUE PARAMETER: FD=JOB DEFAULT, SD=8.    FC5A426    15
                                        *                                                                        FTN       492
                                        *           PL       PRINT LIMIT.                                        FTN       493
                                        *                    THIS PARAMETER SPECIFIES THE MAXIMUM NUMBER OF      FTN       494
                                        *                    RECORDS (PRINT LINES) THAT THE EXECUTING PROGRAM    FTN       495
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    12
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                    MAY WRITE TO THE FILE OUTPUT.  THE LL PARAMETER IS  FTN       496
                                        *                    OPERATIVE ONLY WHEN THE PROCESSOR RECEIVES A MAIN   FTN       497
                                        *                    PROGRAM.                                            FTN       498
                                        *                                                                        FTN       499
                                        *                    SPECIFIED VALUE PARAMETER: FD=5000, SD=50000.       FTN       500
                                        *                                                                        FTN       501
                                        *                                                                        FTN       502
                                        *           PN       PAGINATION.                                         FTN       503
                                        *                    THIS PARAMETER SPECIFIES THAT PAGE NUMBERING OF THE FTN       504
                                        *                    OUTPUT LISTING IS CONTINUOUS FROM PROGRAM UNIT TO   FTN       505
                                        *                    PROGRAM UNIT (INCLUDING INTERMIXED COMPASS OUTPUT). FTN       506
                                        *                    P=0  MEANS THAT PAGE NUMBERS BEGIN AT 1 FOR EACH    FTN       507
                                        *                    PROGRAM UNIT.                                       FTN       508
                                        *                                                                        FTN       509
                                        *                    BINARY VALUE PARAMETER: FD=0, SD=CONTINUOUS PAGE    FTN       510
                                        *                    NUMBERING.                                          FTN       511
                                        *                                                                        FTN       512
                                        *           PS=N     PAGE SIZE.                                          FTN       513
                                        *                    THIS PARAMETER SPECIFES THE NUMBER OF LINES ON A    FTN       514
                                        *                    PRINTER PAGE. THE VALUE OF "N" DOES NOT INCLUDE     FTN       515
                                        *                    SPACE FOR TOP AND BOTTOM MARGINS. A VALUE OF "N"    FTN       516
                                        *                    LESS THAN 4 IS AN ERROR.                            FTN       517
                                        *                                                                        FTN       518
                                        *                    SPECIFIED VALUE PARAMETER: FD=JOB DEFAULT, SD       FC5A426    16
                                        *                    IS AN ERROR.                                        FTN       520
                                        *                                                                        FTN       521
                                        *           PW=N     PAGE WIDTH.                                         FTN       522
                                        *                    THIS PARAMETER SPECIFIES THE WIDTH OF THE OUTPUT    FTN       523
                                        *                    LINE. THE PROCESSOR WILL ACCOMODATE THE SHORTER     FTN       524
                                        *                    LINE LENGTH BY REFORMATTING RATHER THAN STRICT      FTN       525
                                        *                    TRUNCATION.  A VALUE OF "N" LESS THAN 50 OR GREATER FTN       526
                                        *                    THAN 136 IS AN ERROR.                               FTN       527
                                        *                                                                        FTN       528
                                        *                    SPECIFIED VALUE PARAMETER: FD=JOB DEFAULT, SD=72.   FC5A426    17
                                        *                                                                        FTN       530
                                        *           QC       QUICK SYNTAX CHECK.                                 FTN       531
                                        *                    THIS PARAMETER SPECIFIES THAT THE PROCESSOR IS TO   FTN       532
                                        *                    PERFORM A SYNTAX CHECK OF THE PROGRAM. NO OBJECT    FTN       533
                                        *                    CODE IS PRODUCED.                                   FTN       534
                                        *                                                                        FTN       535
                                        *                    BINARY  VALUE  PARAMETER:  FD=0,  SD=QUICK  SYNTAX  FTN       536
                                        *                    CHECK.                                              FTN       537
                                        *                                                                        FTN       538
                                        *           REW=P    REWIND FILES.                                       FTN       539
                                        *                    THIS PARAMETER SPECIFIES WHICH FILES ARE TO BE RE-  FTN       540
                                        *                    WOUND PRIOR TO PROCESSOR INVOCATION. EACH OPTION IS FTN       541
                                        *                    THE CONTROL STATEMENT PARAMETER ASSOCIATED WITH A   FTN       542
                                        *                    FILE.  THE DEFINED OPTIONS ARE:                     FTN       543
                                        *                                                                        FTN       544
                                        *                    I  REWIND INPUT FILE.                               FTN       545
                                        *                                                                        FTN       546
                                        *                    E  REWIND ERROR FILE.                               FTN       547
                                        *                                                                        FTN       548
                                        *                    B  REWIND BINARY OUTPUT FILE.                       FTN       549
                                        *                                                                        FTN       550
                                        *                    L  REWIND OUTPUT FILE.                              FTN       551
                                        *                                                                        FTN       552
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    13
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                    MULTIPLE BINARY VALUE PARAMETER: FD=0, SD=I/B.      FTN       553
                                        *                    IV=I/E/B.                                           FTN       554
                                        *                                                                        FTN       555
                                        *           ROUND    ROUNDED ARITHMETIC.                                 FTN       556
                                        *                    THIS PARAMETER SPECIFIES WHICH ARITHMETIC OPER-     FTN       557
                                        *                    ATIONS ARE TO BE PERFORMED USING ROUNDED ARITHMETIC FTN       558
                                        *                    THE OPERATIONS CONTROLLED ARE THE ACTUAL MACHINE    FTN       559
                                        *                    OPERATIONS, WHICH DO NOT IN ALL CASES CORRESPOND TO FTN       560
                                        *                    FTN LANGUAGE OPERATORS.  (FOR EXAMPLE, SOME EXPON-  FTN       561
                                        *                    ENTIATIONS ARE TREATED AS MULTIPLICATIONS.)  THE    FTN       562
                                        *                    DEFINED OPTIONS ARE:                                FTN       563
                                        *                                                                        FTN       564
                                        *                    A   ADDITION.                                       FTN       565
                                        *                                                                        FTN       566
                                        *                    S   SUBTRACTION.                                    FTN       567
                                        *                                                                        FTN       568
                                        *                    M   MULTIPLICATION.                                 FTN       569
                                        *                                                                        FTN       570
                                        *                    D   DIVISION.                                       FTN       571
                                        *                                                                        FTN       572
                                        *                    MULTIPLE BINARY VALUE PARAMETER: FD=A/S/M, SD=A/S/  FTN       573
                                        *                    M/D, IV=0.                                          FTN       574
                                        *                                                                        FTN       575
                                        *           S=ST     SYSTEMS TEXT.                                       FTN       576
                                        *                    THE OPTION "ST" SPECIFIES THE NAME OF THE SYSTEMS   FTN       577
                                        *                    TEXT TO BE READ BY THE PROCESSOR. THE OPTION "ST"   FTN       578
                                        *                    MAY HAVE ONE OF THE FORMS:                          FTN       579
                                        *                                                                        FTN       580
                                        *                        1.  SNAME                                       FTN       581
                                        *                        2.  LIB-SNAME                                   FTN       582
                                        *                        3.  0                                           FTN       583
                                        *                                                                        FTN       584
                                        *                    FORM 1 SPECIFIES THE SYSTEMS TEXT NAME TO BE        FTN       585
                                        *                    "SNAME" AND SEARCHES THE GLOBAL LIBRARY SET.  FORM  FTN       586
                                        *                    2 SPECIFIES THE NAME OF THE LIBRARY "LIB") IN WHICH FTN       587
                                        *                    SYSTEMS TEXT "SNAME" CAN BE FOUND.  MULTIPLE TEXT   FTN       588
                                        *                    NAMES ARE SPECIFIED BY SEPARATING THEM WITH SLASHES FTN       589
                                        *                    NOTE THAT THE TOTAL NUMBER OF SYSTEM TEXTS ALLOWED  FTN       590
                                        *                    (SEE G PARAMETER) FROM FILES AND THE SYSTEM IS RE-  FTN       591
                                        *                    STRICTED TO SEVEN.  APPEARANCE OF A G PARAMETER     FTN       592
                                        *                    WILL CHANGE THE FIRST DEFAULT OF S TO ZERO.  IF S=0 FTN       593
                                        *                    S=0 IS SPECIFIED AND ANY OTHER S=ST IS SPECIFIED    FTN       594
                                        *                    (IN ANY ORDER) THE S=0 IS IGNORED.                  FTN       595
                                        *                                                                        FTN       596
                                        *                    SPECIFIED VALUE PARAMETER WITH MULTIPLE VALUES:     FTN       597
                                        *                    FD=SYSTEXT FOR "SNAME" AND GLOBAL LIBRARY SET, SD   FTN       598
                                        *                    IS THE SAME AS FD.                                  FTN       599
                                        *                                                                        FTN       600
                                        *           SEQ      SEQUENCED INPUT.                                    FTN       601
                                        *                    THIS PARAMETER SPECIFIES THAT THE PROGRAM IS IN     FTN       602
                                        *                    SEQUENCED LINE FORMAT.                              FTN       603
                                        *                                                                        FTN       604
                                        *                    BINARY VALUE  PARAMETER: FD=0, SD=SEQUENCED INPUT.  FTN       605
                                        *                                                                        F1037F5   153
                                        *           TM=OP    TARGET MACHINE.                                     F1037F5   154
                                        *                    THE OPTIONS OF THIS PARAMETER SPECIFY ATTRIBUTES    F1037F5   155
                                        *                    OF THE OBJECT TIME MACHINE.                         F1037F5   156
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    14
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                                                                        F1037F5   157
                                        *                    NOTE - THE TM PARAMETER IS AVAILABLE ONLY IF THE    F1037F5   158
                                        *                           INSTALLATION PARAMETER .MI IS EQUATED TO 1 . F1037F5   159
                                        *                                                                        F1037F5   160
                                        *                    THE DEFINED OPTIONS ARE :                           F1037F5   161
                                        *                                                                        F1037F5   162
                                        *                    LCM   THE OBJECT TIME MACHINE WILL HAVE LCM.        F1037F5   163
                                        *                          (I.E. LEVEL 2 VARIABLES WILL RESIDE IN LCM)   F1037F5   164
                                        *                                                                        F1037F5   165
                                        *                    MULTIPLE BINARY VALUE PARAMETER : SD=0, IV=0.       F1037F5   166
                                        *                                                                        F1037F5   167
                                        *                    FD CAUSES NO ACTION, I.E. THE ATTRIBUTES OF THE     F1037F5   168
                                        *                    TARGET MACHINE ARE THE SAME AS THOSE OF THE COMPILE F1037F5   169
                                        *                    TIME MACHINE.                                       F1037F5   170
                                        *                                                                        FTN       606
                                        *           X=LFN    EXTERNAL TEXT FILE.                                 FTN       607
                                        *                    THIS PARAMETER SPECIFIES THE NAME OF THE EXTERNAL   FTN       608
                                        *                    TEXT FILE WHICH A PROCESSOR READS FROM WHEN IT EN-  FTN       609
                                        *                    COUNTERS A DIRECTIVE IN THE SOURCE WHICH REQUIRES   FTN       610
                                        *                    READING FROM SUCH AN EXTERNAL FILE.                 FTN       611
                                        *                                                                        FTN       612
                                        *                    SPECIFIED VALUE PARAMETER, FD=OLDPL, SD=OPL.        FTN       613
                                        *                                                                        F1037F5   171
                                        *           STATIC   STATIC LOADING MODE.                                F1037F5   172
                                        *                    THIS PARAMETER SPECIFIES STATIC LOADING OF          F1037F5   173
                                        *                    FORTRAN LIBRARY ROUTINES.                           F1037F5   174
                                        *                                                                        F1037F5   175
                                        *                    BINARY VALUE PARAMETER : FD=0, SD= STATIC LOADING.  F1037F5   176
  
  
  
  
                                        **        INTERNAL DEBUGGING OPTIONS (TEST MODE ONLY)                    FTN       615
                                        *                                                                        FTN       616
                                        *         THE FOLLOWING OPTIONS ARE AVAILABLE IN TEST MODE ONLY.         FTN       617
                                        *                                                                        FTN       618
                                        *         CONTROL STATEMENT PARAMETER OPTIONS --                         FTN       619
                                        *                                                                        FTN       620
                                        *         BREAK=NN           CALLS INTERACTIVE DEBUG PACKAGE ON ENTRY    FTN       621
                                        *                TO OVERLAY NN.  VALUES ARE -                            FTN       622
                                        *                00 - BREAK ON ENTRY TO QCG FRONT END, AFTER             FTN       623
                                        *                       FIRST TIME ONLY INITIALIZATION                   FTN       624
                                        *                10 - BREAK ON ENTRY TO QCG FRONT END, AFTER             FTN       625
                                        *                       COMPASS CALLS                                    FTN       626
                                        *                20 - BREAK ON LOADING CCG CRADLE                        FTN       627
                                        *                21 - BREAK ON LOADING CCG FRONT END                     FTN       628
                                        *                22 - BREAK ON LOADING CCG                               FTN       629
                                        *                23 - BREAK ON LOADING CCG REAR END                      FTN       630
                                        *                OVERLAY NUMBERS MAY BE CONCATENATED.                    FTN       631
                                        *                FD = NO BREAKS,  SD = ALL OVERLAYS                      FTN       632
                                        *                                                                        FTN       633
                                        *         CPL=N  COMPILE TIME PAGE LIMIT. USEFUL FOR UNPREDICTABLE       FTN       634
                                        *                SNAPS AND LOOPS.  FD=200, SD=999 PAGES.                 FTN       635
                                        *                IF (LO=O) IS ON, FD=500.                                FTN       636
                                        *                                                                        FTN       637
                                        *         IDP=AANN   ENABLE COMPILER BREAKS                              FTN       638
                                        *                SAME AS *SNAP* BELOW BUT IF ENABLED, IDP IS CALLED      FTN       639
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    15
        COMPILER INSTALLATION PARAMETERS                              OPTIONS 
  
                                        *                FOR AN INTERACTIVE SESSION.                             FTN       640
                                        *                                                                        FTN       641
                                        *         RFL=NN INITIAL FIELD LENGTH (ASSUMED OCTAL).                   FTN       642
                                        *                FD=(DEPENDS ON LOADER), SD=(MIN FL FOR CURRENT MODE)    FTN       643
                                        *                                                                        FTN       644
                                        *         SNAP=AANN          ENABLES COMPILER SNAPS                      FTN       645
                                        *                AA - STRING OF ALPHABETICS DESIGNATING WHICH SNAPS      FTN       646
                                        *                     TO ENABLE.                                         FTN       647
                                        *                NN - STRING OF NUMERICS DESIGNATING THE AREA TO SNAP.   FTN       648
                                        *                (EG. SNAP=AB2, ENABLES SNAPS A AND B IN CCG)            FTN       649
                                        *                FD = NO SNAPS,  SD = SET BIT 59 OF CO.SNAP              FTN       650
                                        *                                                                        FTN       651
                                        *         SPY=LL/UL    INVOKES SPY AND CALLS PRNTSPY TO PROCESS DOSSIER  FTN       652
                                        *                LL - FWA OF AREA TO SPY (OCTAL)                         FTN       653
                                        *                UL - LWA OF AREA TO SPY (OCTAL)                         FTN       654
                                        *                FD = NO SPY,  SD = RA.ORG/100000                        FTN       655
                                        *                     LL AND UL WILL BE TRUNCATED TO NEAREST 100B.       FTN       656
                                        *                     THE SPY BINWIDTH WILL BE THE SMALLEST POWER OF 2   FTN       657
                                        *                     WHICH WILL ALLOW THE RANGE BEING SPIED TO FIT      FTN       658
                                        *                     IN THE 2046B SPY BINS.  I.E.  -BW-   -RANGE-       FTN       659
                                        *                                                    1     1 TO 2046 WDS FTN       660
                                        *                                                    2     TO 4114       FTN       661
                                        *                                                    10    TO 20460      FTN       662
                                        *                                                    20    TO 41140      FTN       663
                                        *                                                    40    TO 102300     FTN       664
                                        *                                                                        FTN       665
                                        *         SENSE SWITCH USAGES -                                          FTN       666
                                        *                                                                        FTN       667
                                        *         SWITCH,5           CALL IDP IN (0,0) OVERLAY INITIALIZATION    FTN       668
                                        *                IMMEDIATELY AFTER LOADER ENTRY AND X0,A0 HAVE           FTN       669
                                        *                BEEN SAVED.                                             FTN       670
                                        *         SWITCH,6           INHIBIT COMPILE TIME RPV.                   FTN       671
  
  
  
  
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    16
        COMFCIP - COMPILE INSTALLATION PARAMETERS                     CIP 
  
             0                           CIP      CTEXT  COMFCIP - COMPILE INSTALLATION PARAMETERS               COMFCIP     2
  
  
  
  
                                        **        SELECT DEFAULT CONTROL STATEMENT OPTIONS.                      COMFCIP     4
                                        *                                                                        COMFCIP     5
                                        *         THERE ARE THREE TYPES OF CONTROL STATEMENT PARAMETERS (BINARY  COMFCIP     6
                                        *         VALUE, MULTIPLE BINARY VALUE, SPECIFIED VALUE).  A COMPLETE    COMFCIP     7
                                        *         EXPLANATION OF THESE TYPES AND THE USE OF DEFAULTS (FIRST      COMFCIP     8
                                        *         DEFAULT, SECOND DEFAULT, AND INITIAL VALUE) IS GIVEN AT THE    COMFCIP     9
                                        *         START OF THE DECK *FTN* AND IN THE *FTN* REFERENCE MANUAL.     COMFCIP    10
                                        *         SECOND DEFAULT VALUES ARE NOT INSTALLATION CHANGABLE.  INITIAL COMFCIP    11
                                        *         VALUES ARE CHANGABLE ONLY ON MULTIPLE BINARY VALUE PARAMETERS. COMFCIP    12
  
  
  
  
                                        **        BINARY VALUE PARAMETERS - FIRST DEFAULTS.                      COMFCIP    14
                                        *                                                                        COMFCIP    15
                                        *         TO SELECT A FIRST DEFAULT VALUE DIFFERENT FROM THE STANDARD,   COMFCIP    16
                                        *         SET THE APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE       COMFCIP    17
                                        *         FOLLOWING TABLE.                                               COMFCIP    18
                                                                                                                 COMFCIP    19
                                        *                VALUE       PARAMETER                                   COMFCIP    20
                                                                                                                 COMFCIP    21
                                         BV.AL    MICRO  1,, OFF     AL                                          FC5A444    29
                                         BV.BL    MICRO  1,, OFF     BL                                          COMFCIP    22
                                         BV.DS    MICRO  1,, OFF     DS                                          COMFCIP    23
                                         BV.EC    MICRO  1,, "CT.EC" EC                                          FC5A348     7
                                         BV.GO    MICRO  1,, OFF     GO                                          COMFCIP    24
                                         BV.PN    MICRO  1,, OFF     PN                                          COMFCIP    25
                                         BV.QC    MICRO  1,, OFF     QC                                          COMFCIP    26
                                         BV.SEQ   MICRO  1,, OFF     SEQ                                         COMFCIP    27
                                         BV.STAT  MICRO  1,, OFF     STATIC                                      F1037F5     8
                                         BV.UO    MICRO  1,, OFF     UO                                          COMFCIP    28
  
  
  
  
                                        **        MULTIPLE BINARY VALUE PARAMETERS - FIRST DEFAULTS.             COMFCIP    30
                                        *                                                                        COMFCIP    31
                                        *         TO SELECT A FIRST DEFAULT VALUE DIFFERENT FROM THE STANDARD,   COMFCIP    32
                                        *         SET THE APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE       COMFCIP    33
                                        *         FOLLOWING TABLE.                                               COMFCIP    34
                                                                                                                 COMFCIP    35
                                        *                VALUE       PARAMETER                                   COMFCIP    36
                                                                                                                 COMFCIP    37
                                         BV.ARGC  MICRO  1,, OFF     ARG=COMMON                                  COMFCIP    38
                                         BV.ARGF  MICRO  1,, OFF     ARG=FIXED                                   COMFCIP    39
                                        *BV.ARGF  MICRO  1,, ON      ARG=FIXED                                   COMFCIP    40
                                         BV.DBB   MICRO  1,, OFF     DB=B                                        COMFCIP    41
                                         BV.DBER0 MICRO  1,, ON      DB=ER, OPT=0                                COMFCIP    42
                                         BV.DBER1 MICRO  1,, OFF     DB=ER, OPT=1                                COMFCIP    43
                                         BV.DBER2 MICRO  1,, OFF     DB=ER, OPT=2                                COMFCIP    44
                                         BV.DBID  MICRO  1,, OFF     DB=ID                                       COMFCIP    45
                                         BV.DBPM  MICRO  1,, OFF     DB=PMD                                      COMFCIP    46
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    17
        COMFCIP - COMPILE INSTALLATION PARAMETERS                     MBV 
  
                                         BV.DBSB  MICRO  1,, OFF     DB=SB                                       COMFCIP    47
                                         BV.DBSL  MICRO  1,, OFF     DB=SL                                       COMFCIP    48
                                         BV.DBST  MICRO  1,, OFF     DB=ST                                       COMFCIP    49
                                         BV.DBTB  MICRO  1,, OFF     DB=TB                                       COMFCIP    50
                                         BV.DOLG  MICRO  1,, OFF     DO=LONG                                     COMFCIP    51
                                         BV.DOOT  MICRO  1,, OFF     DO=OT                                       COMFCIP    52
                                         BV.LOA   MICRO  1,, ON      LO=A                                        COMFCIP    53
                                         BV.LOM   MICRO  1,, OFF     LO=M                                        COMFCIP    55
                                         BV.LOO   MICRO  1,, OFF     LO=O                                        COMFCIP    56
                                         BV.LOR   MICRO  1,, OFF     LO=R                                        COMFCIP    57
                                         BV.LOS   MICRO  1,, ON      LO=S                                        COMFCIP    58
                                         BV.REWB  MICRO  1,, OFF     REW=B                                       COMFCIP    59
                                         BV.REWE  MICRO  1,, OFF     REW=E                                       COMFCIP    60
                                         BV.REWI  MICRO  1,, OFF     REW=I                                       COMFCIP    61
                                         BV.REWL  MICRO  1,, OFF     REW=L                                       COMFCIP    62
                                         BV.RNDA  MICRO  1,, ON      ROUND=A                                     COMFCIP    63
                                         BV.RNDS  MICRO  1,, ON      ROUND=S                                     COMFCIP    64
                                         BV.RNDM  MICRO  1,, ON      ROUND=M                                     COMFCIP    65
                                         BV.RNDD  MICRO  1,, OFF     ROUND=D                                     COMFCIP    66
                                         BV.TMLC  MICRO  1,, OFF     TM=LCM                                      F1037F5     9
  
  
  
  
                                        **        MULTIPLE BINARY VALUE PARAMETERS - INITIAL VALUES.             COMFCIP    68
                                        *                                                                        COMFCIP    69
                                        *         TO SELECT AN INITIAL VALUE DIFFERENT FROM THE STANDARD,        COMFCIP    70
                                        *         SET THE APPROPRIATE MICRO TO EITHER *ON* OR *OFF* IN THE       COMFCIP    71
                                        *         FOLLOWING TABLE.                                               COMFCIP    72
                                                                                                                 COMFCIP    73
                                        *                VALUE       PARAMETER                                   COMFCIP    74
                                                                                                                 COMFCIP    75
                                         IV.ARGC  MICRO  1,, OFF     ARG=COMMON                                  COMFCIP    76
                                         IV.ARGF  MICRO  1,, OFF     ARG=FIXED                                   COMFCIP    77
                                         IV.DBB   MICRO  1,, OFF     DB=B                                        COMFCIP    78
                                         IV.DBER0 MICRO  1,, ON      DB=ER, OPT=0                                COMFCIP    79
                                         IV.DBER1 MICRO  1,, ON      DB=ER, OPT=1                                COMFCIP    80
                                         IV.DBER2 MICRO  1,, ON      DB=ER, OPT=2                                COMFCIP    81
                                         IV.DBID  MICRO  1,, OFF     DB=ID                                       COMFCIP    82
                                         IV.DBPM  MICRO  1,, ON      DB=PMD                                      COMFCIP    83
                                         IV.DBSB  MICRO  1,, ON      DB=SB                                       COMFCIP    84
                                         IV.DBSL  MICRO  1,, ON      DB=SL                                       COMFCIP    85
                                         IV.DBST  MICRO  1,, OFF     DB=ST                                       FC5A155     4
                                         IV.DBTB  MICRO  1,, ON      DB=TB                                       COMFCIP    87
                                         IV.DOLG  MICRO  1,, OFF     DO=LONG                                     COMFCIP    88
                                         IV.DOOT  MICRO  1,, OFF     DO=OT                                       COMFCIP    89
                                         IV.LOA   MICRO  1,, ON      LO=A                                        COMFCIP    90
                                         IV.LOM   MICRO  1,, OFF     LO=M                                        COMFCIP    92
                                         IV.LOO   MICRO  1,, OFF     LO=O                                        COMFCIP    93
                                         IV.LOR   MICRO  1,, OFF     LO=R                                        COMFCIP    94
                                         IV.LOS   MICRO  1,, ON      LO=S                                        COMFCIP    95
                                         IV.REWB  MICRO  1,, ON      REW=B                                       COMFCIP    96
                                         IV.REWE  MICRO  1,, ON      REW=E                                       COMFCIP    97
                                         IV.REWI  MICRO  1,, ON      REW=I                                       COMFCIP    98
                                         IV.REWL  MICRO  1,, OFF     REW=L                                       COMFCIP    99
                                         IV.RNDA  MICRO  1,, OFF     ROUND=A                                     COMFCIP   100
                                         IV.RNDS  MICRO  1,, OFF     ROUND=S                                     COMFCIP   101
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    18
        COMFCIP - COMPILE INSTALLATION PARAMETERS                     MBV 
  
                                         IV.RNDM  MICRO  1,, OFF     ROUND=M                                     COMFCIP   102
                                         IV.RNDD  MICRO  1,, OFF     ROUND=D                                     COMFCIP   103
                                         IV.TMLC  MICRO  1,, OFF     TM=LCM                                      F1037F5    10
  
  
  
  
                                        **        SPECIFIED VALUE PARAMETERS - FIRST DEFAULTS.                   COMFCIP   105
                                        *                                                                        COMFCIP   106
                                        *         TO SELECT A FIRST DEFAULT VALUE DIFFERENT FROM THE STANDARD,   COMFCIP   107
                                        *         SET THE APPROPRIATE MICRO TO ONE OF THE ALLOWED VALUES IN THE  COMFCIP   108
                                        *         FOLLOWING TABLE.                                               COMFCIP   109
                                                                                                                 COMFCIP   110
                                        *                    VALUE    PARAMETER     ALLOWED VALUES               COMFCIP   111
                                                                                                                 COMFCIP   112
                                         SV.ANSI  MICRO  1,, 0        ANSI          0, T, F                      COMFCIP   113
                                         SV.B     MICRO  1,, LGO      B             0, FILENAME                  COMFCIP   114
                                         SV.CS    MICRO  1,, USER     CS            USER, FIXED                  COMFCIP   115
                                         SV.E     MICRO  1,, OUTPUT   E             FILENAME (NOT 0)             COMFCIP   116
                                                  IFEQ   TEST,ON,2                                               COMFCIP   117
                                         SV.EL    MICRO  1,, D        EL            D, T, W, F, C                COMFCIP   118
                                                  SKIP   1                                                       COMFCIP   119
                                         SV.EL    MICRO  1,, T        EL            T, W, F, C                   COMFCIP   120
                                         SV.ET    MICRO  1,, 0        ET            0, T, W, F, C                COMFCIP   121
                                         SV.I     MICRO  1,, INPUT    I             FILENAME (NOT 0)             COMFCIP   122
                                         SV.L     MICRO  1,, OUTPUT   L             0, FILENAME                  COMFCIP   123
                                         SV.LCM   MICRO  1,, D        LCM           I, D, G                      COMFCIP   124
                                         SV.LL    MICRO  1,, 5000     LL            LINE LIMIT                   COMFCIP   125
                                         SV.MD    MICRO  1,, 0       MD    0,T,F                                 F1037F5    11
                                         SV.ML    MICRO  1,, 0        ML            0, STRING .LE. 9 CHARACTERS  COMFCIP   126
                                         SV.OPT   MICRO  1,, 0        OPT           0, 1, 2                      COMFCIP   127
                                         SV.PW    MICRO  1,, 0        PW            PAGE WIDTH FROM 50 TO 136    COMFCIP   131
                                                                                    0 MEANS STANDARD (126-136)   COMFCIP   132
                                         SV.PWT   MICRO  1,, 72       PW FOR TTY    PAGE WIDTH FROM 50 TO 136    COMFCIP   133
  
  
  
  
                                        **        FILE CIO BUFFER LENGTHS.                                       COMFCIP   135
                                                                                                                 COMFCIP   136
                                         .RM      IFNE   CP#RM,7                                                 COMFCIP   137
                                                                                                                 COMFCIP   138
                                         BUFL     MICRO  1,, 1002B   NOMINAL CIO BUFFER LENGTH                   COMFCIP   139
                                         MBUFL    MICRO  1,, 401B    MINIMUM BUFFER LENGTH                       COMFCIP   140
                                                                                                                 COMFCIP   141
                                   0     Z.ERRSB  =      0                                                       COMFCIP   142
                                2004     Z.ILB    =      "BUFL"*2                                                COMFCIP   143
                                1002     Z.INB    =      "BUFL"      ALWAYS = "BUFL" = IBUFL IN COMPCOM          COMFCIP   144
                                 401     Z.INSB   =      "MBUFL"     BUFFER REDUCE IN SHORT OVERLAY MODE         COMFCIP   145
                                2004     Z.LGOB   =      "BUFL"*2                                                COMFCIP   146
                                 500     Z.LGOQB  =      N.OPSTK+N.ELSTK                                         FC5A171A    5
                                1002     Z.OPTB   =      "BUFL"                                                  COMFCIP   148
                                1002     Z.OUTB   =      "BUFL"                                                  COMFCIP   149
                                 401     Z.OUTSB  =      "MBUFL"     BUFFER REDUCE IN SHORT OVERLAY MODE         COMFCIP   150
                                2004     Z.PBB    =      "BUFL"*2                                                COMFCIP   151
                                 701     Z.PBQB   =      701B        BUFFER IN QCG(LT 1000B FOR FLUSH AVOID)     COMFCIP   152
                                1002     Z.REFB   =      "BUFL"                                                  COMFCIP   153
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    19
        COMFCIP - COMPILE INSTALLATION PARAMETERS                     BUFFERS 
  
                                 401     Z.REFQB  =      "MBUFL"     BUFFER REDUCE IN QCG TO MINIMIZE FL         COMFCIP   154
                                                                                                                 COMFCIP   155
                                         .RM      ELSE                                                           COMFCIP   156
                                                                                                                 COMFCIP   157
                                        **        FILE HOLDING BUFFER LENGTHS.                                   COMFCIP   158
                                        *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)            COMFCIP   159
                                                                                                                 COMFCIP   160
                                                                                                                 COMFCIP   161
                                         BUFL     MICRO  1,, 0       NO CIO BUFFERS WITH 7RM I/0                 COMFCIP   162
                                                                                                                 FC5A180     4
                                         .MINFL   IFNE   .MINFL,0,2                                              FC5A180     5
                                         HBUFL    MICRO  1,, 100B    SHORT HOLDING BUFFER                        FC5A180     6
                                                  SKIP   1                                                       FC5A180     7
                                         HBUFL    MICRO  1,, 400B    HOLDING BUFFER LENGTH                       COMFCIP   163
                                         EBUFL    =      0                                                       FC5A158A   21
                                         OBUFL    =      0                                                       FC5A158A   22
                                                                                                                 FC5A158A   23
                                         Z.ERRSB  =      0                                                       FC5A158A   24
                                         Z.CMPSB  =      "BUFL"                                                  COMFCIP   165
                                         .MINFL   IFNE   .MINFL,0,2                                              FC5A180     8
                                         Z.ILB    =      1002B                                                   FC5A180     9
                                                  SKIP   1                                                       FC5A180    10
                                         Z.ILB    =      1002B*2                                                 FC5A158A   25
                                         Z.INB    =      0                                                       COMFCIP   167
                                         Z.LGOB   =      "HBUFL"                                                 COMFCIP   168
                                         Z.LGOQB  =      "HBUFL"                                                 COMFCIP   169
                                         Z.OPTB   =      0                                                       COMFCIP   170
                                         Z.OUTB   =      0                                                       COMFCIP   171
                                         Z.PBB    =      "HBUFL"                                                 COMFCIP   172
                                         Z.PBQB   =      "HBUFL"                                                 COMFCIP   173
                                         Z.REFB   =      "HBUFL"                                                 COMFCIP   174
                                         Z.REFQB  =      "HBUFL"                                                 COMFCIP   175
                                         .RM      ENDIF                                                          COMFCIP   176
  
  
  
  
                                        ***       MISCELLANEOUS OPTIONS.                                         COMFCIP   178
  
  
  
  
  
  
  
  
                                        **        FTN OVERLAY LIBRARY NAMES.                                     COMFCIP   191
                                                                                                                 COMFCIP   192
                                         FTNMAIN  MICRO  1,, NUCLEUS       FTN(0,0) OVERLAY                      COMFCIP   193
                                         FTNOVL   MICRO  1,, SYSOVL        FTN PRIMARY AND SECONDARY OVERLAYS    COMFCIP   194
  
  
  
  
                                        ***   *** THERE ARE NO INSTALLATION OPTIONS BEYOND THIS LINE ***   ***   COMFCIP   196
                                                                                                                 COMFCIP   197
                                         COMFCIP  ENDX                                                           COMFCIP   198
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    20
        INTERNAL FILE NAMES                                           FILES 
  
                                        **        INTERNAL FILE NAMES.                                           FTN       675
                                                                                                                 FTN       676
                                         IN       MICRO  1,, "SV.I"                                              FTN       677
                                         ERRS     MICRO  1,, "SV.E"                                              FTN       678
                                                                                                                 FTN       679
                                                  IFC    EQ,/"SV.L"/0/,2                                         FTN       680
                                         OUT      MICRO  1,,                                                     FTN       681
                                                  SKIP   1                                                       FTN       682
                                         OUT      MICRO  1,, "SV.L"                                              FTN       683
                                                                                                                 FTN       684
                                                                                                                 FTN       685
                                         EOUT     MICRO  1,, "SV.E"                                              FTN       686
                                                                                                                 FTN       687
                                         LGO      MICRO  1,, "SV.B"                                              FTN       688
                                                                                                                 FTN       689
                                         .TEST    IFEQ   TEST,OFF   IF NOT TEST MODE                             FTN       690
                                         IL       MICRO  1,, ZZZZZSA                                             FTN       691
                                         PB       MICRO  1,, ZZZZZSB                                             FTN       692
                                         REF      MICRO  1,, ZZZZZSC                                             FTN       693
                                         OPT      MICRO  1,, ZZZZZSD                                             FTN       694
                                         .TEST    ELSE                                                           FTN       695
                                         IL       MICRO  1,, FTNIL                                               FTN       696
                                         PB       MICRO  1,, FTNPB                                               FTN       697
                                         REF      MICRO  1,, FTNREF                                              FTN       698
                                         OPT      MICRO  1,, FTNOPT                                              FTN       699
                                         .TEST    ENDIF                                                          FTN       700
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    21
        /COMPCOM/ INTERFACE                                           COMPCOM 
  
                                        **        PROVIDE DEFINITIONS FOR /COMPCOM/.                             FTN       702
                                                                                                                 FTN       703
                                        **        DEFINE MICROS FOR /COMPCOM/.                                   FTN       704
                                                                                                                 FTN       705
                                                  IFC    EQ,/"SV.ET"/0/,2                                        FTN       706
                                         CP.ABORT MICRO  1,, 0                                                   FTN       707
                                                  SKIP   1                                                       FTN       708
                                         CP.ABORT MICRO  1,, 1                                                   FTN       709
                                                                                                                 FTN       710
                                         CP.BLF   MICRO  1,, 1S59*"BV.BL"                                        FTN       711
                                         CP.F=    MICRO  1,, -3      VALUE OF PROCESSOR *F                       FC50322     5
                                                                                                                 FTN       713
                                                  IFC    EQ,/"BV.PN"/OFF/,2                                      FTN       714
                                         CP.PAGE  MICRO  1,, 0       DO NOT PROPAGATE PAGE NUMBERS               FTN       715
                                                  SKIP   1                                                       FTN       716
                                         CP.PAGE  MICRO  1,, 1S59    PROPAGATE PAGE NUMBERS                      FTN       717
                                                                                                                 FTN       718
                                                  IFC    EQ,/"SV.L"/OFF/,2                                       FTN       719
                                         CP.LISTF MICRO  1,, 0                                                   FTN       720
                                                  SKIP   1                                                       FTN       721
                                         CP.LISTF MICRO  1,, 1                                                   FTN       722
                                                                                                                 FTN       723
                                         LISTRM   MICRO  1,, -       DO NOT LIST I/O SUBROUTINES                 FTN       724
  
  
  
  
                                        **        DEFINE FET MACRO FOR /COMPCOM/.                                FTN       726
                                                                                                                 FTN       727
                                         .RM      IFEQ   CP#RM,0                                                 FTN       728
                                         FET      MACRO                                                          FTN       729
                                                  BSS    8                                                       FTN       730
                                          ENDM                                                                   FTN       731
                                                                                                                 FTN       732
                                         .RM      ENDIF                                                          FTN       733
  
  
  
  
                                                  USE    /COMPCOM/                                               FTN       735
                                                                                                                 FTN       736
                                        **        THE FOLLOWING BSS ALIGNS COMPCOM AND RESERVES 3 WORDS FOR      FTN       737
                                        *         FUTURE 54 TABLE ENTRY POINTS.  PLEASE NOTE THAT ANY CHANGES    FTN       738
                                        *         WILL AFFECT INTERMIXED COMPASS SUBPROGRAMS.                    FTN       739
                                                                                                                 FTN       740
                                   3     LDR.EP   =      3           RESERVED FOR ENTRY POINTS                   FTN       741
             0                     3              BSS    LDR.EP                                                  FTN       742
                                                  LIST   -F                                                      FTN       743
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    22
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
                                                                                                                 COMPCOM     3
                                        **        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.             COMPCOM     4
                                        *                                                                        COMPCOM     5
                                        *                                                                        COMPCOM     6
                                        *                COMPCOM  CONTAINS ALL INFORMATION PASSED BETWEEN        COMPCOM     7
                                        *         COMPASS AND A COMPILER CALLING COMPASS AS A LEVEL (1,0)        COMPCOM     8
                                        *         OVERLAY TO PROCESS COMPASS SOURCE SUBPROGRAMS OCCURRING        COMPCOM     9
                                        *         BETWEEN COMPILER LANGUAGE  SUBPROGRAMS,  OR TO ASSEMBLE        COMPCOM    10
                                        *         OBJECT PROGRAMS PRODUCED BY THE COMPILER IN THE FORM OF        COMPCOM    11
                                        *         COMPASS SOURCE STATEMENTS.  COMPCOM IS A COMMON DECK IN        COMPCOM    12
                                        *         THE  COMPASS  PROGRAM LIBRARY FILE,  AND IS ACCESSED BY        COMPCOM    13
                                        *         COMPASS VIA AN UPDATE  *CALL  CARD AND BY COMPILERS VIA        COMPCOM    14
                                        *         COMPASS  XTEXT  PSEUDO INSTRUCTIONS.                           COMPCOM    15
                                        *                                                                        COMPCOM    16
                                        *                                                                        COMPCOM    17
                                        *         R. H. GOODELL.     71/05/21.                                   COMPCOM    18
                                        *         R. H. GOODELL.     75/10/23.     54-TABLE, BL, PD, PS, PW.     CP139CP    10
                                                                                                                 COMPCOM    19
                                                                                                                 COMPCOM    20
                                        **        THE FOLLOWING MUST BE ESTABLISHED WHEN COMPCOM IS CALLED.      COMPCOM    21
                                        *                                                                        COMPCOM    22
                                        *         IN AN ABSOLUTE ASSEMBLY, THE LOCATION COUNTER MUST EQUAL       COMPCOM    23
                                        *         114B IF 54-TABLES ARE USED, ELSE 104B.  IN A RELOCATABLE       CP139CP    11
                                        *         ASSEMBLY, THE LOCATION COUNTER MUST BE AT THE LOCATION         CP139CP    12
                                        *         THAT WILL CORRESPOND TO 114B OR 104B AFTER RELOCATION BY       CP139CP    13
                                        *         THE OVERLAY GENERATOR.                                         CP139CP    14
                                        *                                                                        COMPCOM    27
                                        *         THE FOLLOWING MACROS, MICROS, AND SYMBOLS MUST BE DEFINED.     COMPCOM    28
                                        *                                                                        COMPCOM    29
                                        *         BUFL      MICRO    STANDARD CIO BUFFER SIZE.                   COMPCOM    30
                                        *                                                                        COMPCOM    31
                                        *         CP.ABORT  MICRO    DEFAULT CONTENT OF BIT 29 OF WORD           CPS150      3
                                        *                            CP.ABORT MAY BE *0* OR */*.                 CPS150      4
                                        *                                                                        CP139CP    15
                                        *         CP.BLF    MICRO    DEFAULT CONTENT OF WORD CP.BLF.             CP139CP    16
                                        *                            MAY BE *0* OR *1S59*.                       CP139CP    17
                                        *                                                                        COMPCOM    34
                                        *         CP.F=     MICRO    DEFAULT CONTENT OF WORD CP.BATCH.           COMPCOM    35
                                        *                            MAY BE *0*, *-1*, *-2*, ETC.                COMPCOM    36
                                        *                                                                        COMPCOM    37
                                        *         CP.LISTF  MICRO    DEFAULT CONTENT OF WORD CP.LISTF.           COMPCOM    38
                                        *                            MAY BE *0* OR *1*.                          COMPCOM    39
                                        *                                                                        COMPCOM    40
                                        *         CP.PAGE   MICRO    DEFAULT CONTENT OF WORD CP.PAGE.            COMPCOM    41
                                        *                            MAY BE *0* OR *1S59*.                       COMPCOM    42
                                        *                                                                        COMPCOM    46
                                        *         CP#RM     SYMBOL   0 = ASSEMBLE DIRECT *CIO* CALLS FOR I/O.    COMPCOM    47
                                        *                            6 = ASSEMBLE 6RM USAGE FOR I/O.             CPS028      2
                                        *                            7 = ASSEMBLE 7RM USAGE FOR I/O.             CPS028      3
                                        *                                                                        COMPCOM    49
                                        *         FET       MACRO    USED IF CP#RM = 0 TO DEFINE FET"S.          COMPCOM    50
                                        *                            CALL -   LOCSYM  FET  LFN,BUF,SIZE          COMPCOM    51
                                        *                                                                        COMPCOM    52
                                        *         IBUF      SYMBOL   FWA OF SOURCE INPUT FILE CIO BUFFER.        COMPCOM    53
                                        *                            NEED NOT BE PREVIOUSLY DEFINED.             COMPCOM    54
                                        *                                                                        COMPCOM    55
                                        *         LISTRM    MICRO    CONTROLS LISTING OF I/O SUBROUTINES.        COMPCOM    56
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    23
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
                                        *                            * * = LIST,  *-* = DO NOT LIST.             COMPCOM    57
                                        *                                                                        COMPCOM    58
                                        *         MIN.FL    SYMBOL   MINIMUM SCM FIELD LENGTH REQUIRED.          COMPCOM    59
                                        *                            INITIAL CONTENT OF WORD CP.MAXFL.           COMPCOM    60
                                        *                            NEED NOT BE PREVIOUSLY DEFINED.             COMPCOM    61
                                        *                                                                        COMPCOM    62
                                        *         MODEL     MICRO    CYBER 70/ MODEL ON WHICH PROCESSOR IS USED. COMPCOM    63
                                        *                            MAY BE *72*, *73*, *74*, *76*, OR *17X*.    CP139CP    18
                                        *                                                                        COMPCOM    65
                                        *         OBUF      SYMBOL   FWA OF LISTING OUTPUT FILE CIO BUFFER.      COMPCOM    66
                                        *                            NEED NOT BE PREVIOUSLY DEFINED.             COMPCOM    67
                                        *                                                                        COMPCOM    68
                                        *         OBUFL     SYMBOL   LISTING OUTPUT FILE CIO BUFFER LENGTH.      COMPCOM    69
                                        *                            NEED NOT BE PREVIOUSLY DEFINED.             COMPCOM    70
                                        *                                                                        COMPCOM    71
                                        *         STOP      SYMBOL   ADDRESS FOR RETURN FROM COMPASS TO CALLING  COMPCOM    72
                                        *                            COMPILER.  NEED NOT BE PREVIOUSLY DEFINED.  COMPCOM    73
                                                                                                                 COMPCOM    74
                                                                                                                 COMPCOM    75
                                                                                                                 COMPCOM    76
                                        ****                                                                     COMPCOM    77
                                                                                                                 COMPCOM    78
                                                                                                                 COMPCOM    79
                                                                                                                 COMPCOM    80
                                        **        REDEFINE "BUFL" = *0* IF APPROPRIATE.                          COMPCOM    81
                                                                                                                 COMPCOM    82
                                                  IFEQ   CP#RM,7,1                                               CPS028      4
                                                                                                                 COMPCOM    86
                                                                                                                 COMPCOM    87
                                                                                                                 COMPCOM    88
                                        **        SOURCE INPUT FILE BUFFER LENGTH.                               COMPCOM    89
                                                                                                                 COMPCOM    90
                                1002     IBUFL    EQU    "BUFL"                                                  COMPCOM    91
                                                                                                                 CPS028      5
                                                                                                                 CPS028      6
                                                                                                                 CPS028      7
                                        **        LIBRARY CONTAINING COMPASS OVERLAYS.                           CPS028      8
                                        *         USED WHEN COMPASS (0,0) IS LOADED FROM LIBRARY *NUCLEUS*.      CPS064      1
                                                                                                                 CPS028      9
                                         CP.OVLIB MICRO              SEARCH GLOBAL LIBRARY SET                   CPS028     10
                                                                                                                 COMPCOM    92
                                                                                                                 COMPCOM    93
                                                                                                                 COMPCOM    94
                                        **        NAME OF COMPASS (1,0) OVERLAY.                                 COMPCOM    95
                                                                                                                 COMPCOM    96
                                         CP.NAME  MICRO  1,, COMP3$                                              CPS064      2
                                                                                                                 COMPCOM    98
                                                                                                                 COMPCOM    99
                                                                                                                 COMPCOM   100
                                        **        ORIGIN OF COMPASS (1,0) OVERLAY.                               COMPCOM   101
                                                                                                                 COMPCOM   102
                                                  IFEQ   CP#RM,0,1                                               CPS028     11
                                2777     CP.ORG   EQU    2777B                                                   COMPCOM   104
                                                  IFEQ   CP#RM,6,1                                               CPS028     12
                                                  IFEQ   CP#RM,7,1                                               CPS028     14
                                                                                                                 COMPCOM   111
                                                                                                                 COMPCOM   112
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    24
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
                                                                                                                 COMPCOM   113
                                        **        THE ABSOLUTE ADDRESS CP.BASE MUST EQUAL 114B IF                CP139CP    19
                                        *         54-TABLES ARE USED, ELSE 104B.                                 CP139CP    20
                                                                                                                 COMPCOM   115
             3                           CP.BASE  BSS    0           BASE ADDRESS OF COMMUNICATION REGION        CP139CP    21
                                                                                                                 CP139CP    22
                                                                                                                 CP139CP    23
                                                                                                                 CP139CP    24
                                        **        EXIT FROM COMPASS TO THE CALLING COMPILER.                     CP139CP    25
                                                                                                                 CP139CP    26
             3  0400000305 +             CP.STOP  EQ     =XSTOP                                                  CP139CP    27
                                                                                                                 CP139CP    28
                                                                                                                 CP139CP    29
                                                                                                                 CP139CP    30
                                        **        ABORT FLAG.  SPECIFIES WHETHER PROCESSOR SHOULD ABORT JOB      CP139CP    31
                                        *         AFTER COMPILATION/ASSEMBLY ERRORS, OR WAIT UNTIL THE USER      CP139CP    32
                                        *         ATTEMPTS TO EXECUTE THE BAD PROGRAM.                           CP139CP    33
                                        *         0 = NO ABORT.                                                  CP139CP    34
                                        *         1 = ABORT TO EXIT(S) CARD IF SOURCE PROGRAM ERRORS.            CP139CP    35
                                                                                                                 CP139CP    36
                                   3 C   CP.ABORT EQU    *                                                       CP139CP    37
                          0000           -        VFD    1/"CP.ABORT",11/0                                       CP139CP    38
                                                                                                                 COMPCOM   117
                                                                                                                 COMPCOM   118
                                                                                                                 COMPCOM   119
                                        **        COMPILER CALL FLAG.  INDICATES WHICH COMPILER CALLED COMPASS.  COMPCOM   120
                                        *         THE VALUE OF THE COMPASS SPECIAL SYMBOL *F IS THE MAGNITUDE    COMPCOM   121
                                        *         OF (CP.BATCH).  ASSIGNED VALUES ARE --                         COMPCOM   122
                                        *                                                                        COMPCOM   123
                                        *                    0       COMPASS.                                    COMPCOM   124
                                        *                   -1       RUN 2.3.                                    COMPCOM   125
                                        *                   -2       FTN4 AND FTN(TS).                           CPSA216     5
                                        *                   -3       FTN5.                                       CPSA216     6
                                        *                                                                        COMPCOM   128
                                        *         VALUES -4 TO -99 ARE RESERVED TO CDC.                          COMPCOM   129
                                                                                                                 COMPCOM   130
                                   3 C   CP.BATCH EQU    *                                                       CP139CP    40
                               77774     -        VFD    *P/"CP.F="                                              CP139CP    41
                                                                                                                 COMPCOM   142
                                                                                                                 COMPCOM   143
                                                                                                                 COMPCOM   144
                                        **        BATCH ERROR COUNT.  FORMAT --                                  COMPCOM   145
                                        *                   VFD    1/D, 59/COUNT                                 COMPCOM   146
                                        *         D = 1 TO FORCE BINARY OUTPUT REGARDLESS OF ASSEMBLY ERRORS.    COMPCOM   147
                                                                                                                 COMPCOM   148
             4  00000000000000000000     CP.ERRCT CON    0                                                       COMPCOM   149
                                                                                                                 COMPCOM   150
                                                                                                                 COMPCOM   151
                                                                                                                 COMPCOM   152
                                        **        LONG LISTING FLAG.                                             COMPCOM   153
                                        *         0 = NO LONG LISTING (ERROR LINES ONLY).                        COMPCOM   154
                                        *         1 = NORMAL LONG LISTING.                                       COMPCOM   155
                                                                                                                 COMPCOM   156
             5  00000000000000000001     CP.LISTF CON    "CP.LISTF"                                              COMPCOM   157
                                                                                                                 COMPCOM   158
                                                                                                                 COMPCOM   159
                                                                                                                 COMPCOM   160
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    25
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
                                        **        LISTING PAGE NUMBER PROPAGATION CONTROL.                       COMPCOM   161
                                        *         IF BIT 59 IS SET - DO NOT PROPAGATE AND DO NOT CHANGE.         CPS236      6
                                        *         IF BIT 59 IS NOT SET - CURRENT PAGE NUMBER IS IN BITS 0-29.    CPS236      7
                                        *         IF BIT 58 IS SET - LISTING FILE HAS BEEN WRITTEN TO (OPEN).    CPS236      8
                                                                                                                 COMPCOM   164
             6  00000000000000000000     CP.PAGE  CON    "CP.PAGE"                                               COMPCOM   165
                                                                                                                 CPSA142     5
                                                                                                                 CPSA142     6
                                                                                                                 CPSA142     7
                                        **        ERROR LISTING PAGE NUMBER PROPAGATION CONTROL                  CPSA142     8
                                        *         IF BIT 59 IS SET - DO NOT PROPAGATE AND DO NOT CHANGE.         CPS236      9
                                        *         IF BIT 59 IS NOT SET - CURRENT PAGE NUMBER IS IN BITS 0-29.    CPS236     10
                                        *         IF BIT 58 IS SET - ERROR FILE HAS BEEN WRITTEN TO (OPEN).      CPS236     11
                                                                                                                 CPSA142    11
             7  00000000000000000000     CP.EPAG  CON    "CP.PAGE"                                               CPSA142    12
                                                                                                                 CP139CP    42
                                                                                                                 CP139CP    43
                                                                                                                 CP139CP    44
                                        **        BIG (BURSTABLE) LISTING FLAG.                                  CP139CP    45
                                        *         0 = NO UNNECESSARY PAGE EJECTS.                                CP139CP    46
                                        *         1S59 = PAGE EJECTS BETWEEN PORTIONS OF LISTING.                CP139CP    47
                                                                                                                 CP139CP    48
            10  00000000000000000000     CP.BLF   CON    "CP.BLF"                                                CP139CP    49
                                                                                                                 CP139CP    50
                                                                                                                 CP139CP    51
                                                                                                                 CP139CP    52
                                        **        PRINT DENSITY (LINES PER INCH).                                CP139CP    53
                                        *         PD = 3     (CP.PD) = 1LS+1S17                                  CP139CP    54
                                        *         PD = 4     (CP.PD) = 1LT+1S17                                  CP139CP    55
                                        *         PD = 6     (CP.PD) = 1LS                                       CP139CP    56
                                        *         PD = 8     (CP.PD) = 1LT                                       CP139CP    57
                                        *         OMITTED    (CP.PD) = 0                                         CP139CP    58
                                                                                                                 CP139CP    59
            11  00000000000000000000     CP.PD    CON    0                                                       CP139CP    60
                                                                                                                 CP139CP    61
                                                                                                                 CP139CP    62
                                                                                                                 CP139CP    63
                                        **        PAGE SIZE (LINES PER PAGE).                                    CP139CP    64
                                                                                                                 CP139CP    65
            12  00000000000000000000     CP.PS    CON    0                                                       CP139CP    66
                                                                                                                 CP139CP    67
                                                                                                                 CP139CP    68
                                                                                                                 CP139CP    69
                                        **        PAGE WIDTH (CHARACTERS PER LINE).                              CP139CP    70
                                        *         IF *PW* SPECIFIED, (CP.PW) = 30/REMAINDER, 30/QUOTIENT         CP139CP    71
                                        *                            OF *PW* VALUE DIVIDED BY 10.                CP139CP    72
                                        *         OTHERWISE, ASSUME PW = 72 IF PRINT FILE IS A TERMINAL          CP139CP    73
                                        *                            OR PW = IP.PW IF IT IS NOT.                 CP139CP    74
                                        *         HOWEVER, (CP.PW) = 0 WHEN PW .GE. 126 IS SPECIFIED OR          CP139CP    75
                                        *                            ASSUMED.                                    CP139CP    76
                                                                                                                 CP139CP    77
            13  00000000000000000000     CP.PW    CON    0                                                       CP139CP    78
                                                                                                                 COMPCOM   166
                                                                                                                 COMPCOM   167
                                                                                                                 COMPCOM   168
                                        **        CYBER 70/ MODEL NUMBER ON WHICH PROCESSOR IS EXECUTING.        COMPCOM   169
                                                                                                                 COMPCOM   170
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    26
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
            14  43364000000000000000     CP.CPU   CON    0L"MODEL"                                               S3143CP     5
                                                                                                                 COMPCOM   172
                                                                                                                 COMPCOM   173
                                                                                                                 COMPCOM   174
                                        **        STORAGE USED FOR CURRENT BATCH OF COMPILATIONS/ASSEMBLIES.     COMPCOM   175
                                                                                                                 COMPCOM   176
            15  00000000000000006000     CP.MAXFL CON    =XMIN.FL                                                COMPCOM   177
                                                                                                                 COMPCOM   178
                                                                                                                 COMPCOM   179
                                                                                                                 COMPCOM   180
                                        **        FILE NAME FOR *XTEXT* CARDS WITH BLANK LOCATION FIELD.         COMPCOM   181
                                                                                                                 COMPCOM   182
            16  17140420140000000000     CP.XNAME CON    0LOLDPL                                                 COMPCOM   183
                                                                                                                 COMPCOM   184
                                                                                                                 COMPCOM   185
                                                                                                                 COMPCOM   186
                                        **        SOURCE INPUT FILE FORMAT.                                      COMPCOM   187
                                        *         0 = NORMAL INPUT.                                              COMPCOM   188
                                        *         1 = MODIFY COMPRESSED COMPILE FILE (63 CHAR SET).              CP114       5
                                        *         2 = UPDATE COMPRESSED COMPILE FILE (64 CHAR SET).              CP114       6
                                        *         3 = MODIFY COMPRESSED COMPILE FILE (64 CHAR SET).              CP114       7
                                        *         1S59 = END OF INPUT SECTION.                                   CP139CP    79
                                                                                                                 COMPCOM   191
            17  00000000000000000000     CP.IFORM CON    0                                                       COMPCOM   192
                                                                                                                 COMPCOM   193
                                                                                                                 COMPCOM   194
                                                                                                                 COMPCOM   195
                                        **        THIS SPACE FOR RENT (RESERVED TO USER).                        CP139CP    80
                                                                                                                 COMPCOM   197
            20  00000000000000000000     CP.USER  CON    0                                                       CP139CP    81
            21  00000000000000000000              CON    0                                                       CP139CP    82
                                                                                                                 COMPCOM   199
                                                                                                                 COMPCOM   200
                                                                                                                 COMPCOM   201
                                        **        THIS SPACE FOR RENT (RESERVED TO CDC).                         CP139CP    83
                                                                                                                 COMPCOM   203
            22  00000000000000000000     CP.CDC   CON    0                                                       CP139CP    84
            23  00000000000000000000              CON    0                                                       CP139CP    85
                                                                                                                 COMPCOM   205
                                                                                                                 COMPCOM   206
                                                                                                                 COMPCOM   207
                                        **        FOUR WORDS PRECEDING SOURCE INPUT CARD AREA.                   COMPCOM   208
                                        *         MAY BE USED AS BEGINNING OF PRINT LINE AREA.                   COMPCOM   209
                                                                                                                 COMPCOM   210
            24  55555555555555555555     CP.LINE  DIS    4,                                                      COMPCOM   211
                                                                                                                 COMPCOM   212
                                                                                                                 COMPCOM   213
                                                                                                                 COMPCOM   214
                                        **        SOURCE INPUT CARD AREA.  HOLDS NEXT CARD TO BE PROCESSED.      COMPCOM   215
                                        *         (CP.CARD) = 0 AT END OF SECTION ON SOURCE INPUT FILE.          COMPCOM   216
                                                                                                                 COMPCOM   217
            30  55031716242217145504     CP.CARD  DATA   H* CONTROL DATA PROPRIETARY PRODUCT.*                   CPSCPRT     4
            34  55031720312211071024              DATA   H* COPYRIGHT CONTROL DATA CORP. 1971, 1972, 1973, 1974, CPSCPRT     5
                                        , 1975, 1976,, 1977, 1978, 1979, 1980, 1981, 1982.*                      CPS*82      4
            47  55555555555555555555              DIS    16-*+CP.CARD,                                           CPSCPRT     7
                                                                                                                 COMPCOM   221
                                                                                                                 COMPCOM   222
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    27
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
                                                                                                                 COMPCOM   223
                                        **        SYSTEM TEXT OVERLAY NAMES.                                     COMPCOM   224
                                        *         (CP.STEXT) = NUMBER OF SYSTEM TEXTS (UP TO 7).                 COMPCOM   225
                                        *         SUBSEQUENT WORDS HAVE THE FOLLOWING FORMAT --                  COMPCOM   226
                                        *                   VFD    42/NAME, 17/0, 1/G                            COMPCOM   227
                                        *         G = 0 FOR SYSTEM TEXT FROM A LIBRARY.                          COMPCOM   228
                                        *         G = 1 FOR SYSTEM TEXT FROM A NON-LIBRARY FILE.                 COMPCOM   229
                                        *         NAME MAY BE NULL IF G = 1.                                     COMPCOM   230
                                                                                                                 COMPCOM   231
            50  00000000000000000000     CP.STEXT CON    0                                                       COMPCOM   232
            51  23312324053024000000              CON    0LSYSTEXT   DEFAULT SYSTEM TEXT                         COMPCOM   233
            52                     6              BSSZ   6                                                       COMPCOM   234
                                                                                                                 COMPCOM   235
                                                                                                                 COMPCOM   236
                                                                                                                 COMPCOM   237
                                        **        SYSTEM TEXT LIBRARY/FILE NAMES.                                COMPCOM   238
                                        *         (CP.LIB) = 0 IF *S=0* SPECIFIED ON CONTROL CARD.               COMPCOM   239
                                        *                  = 1 OTHERWISE.                                        COMPCOM   240
                                        *         SUBSEQUENT WORDS CONTAIN LIBRARY NAME OR NULL IF G = 0 IN      COMPCOM   241
                                        *         CORRESPONDING WORD OF CP.STEXT, OR FILE NAME IF G = 1.         COMPCOM   242
                                                                                                                 COMPCOM   243
            60  00000000000000000001     CP.LIB   CON    1                                                       COMPCOM   244
            61                     7              BSSZ   7                                                       COMPCOM   245
                                                                                                                 COMPCOM   246
                                                                                                                 COMPCOM   247
                                                                                                                 COMPCOM   248
                                        **        SCM FIELD LENGTHS, ACTUAL AND NOMINAL.                         COMPCOM   249
                                        *         (CP.AFLS) = CURRENT ACTUAL FIELD LENGTH.                       COMPCOM   250
                                        *         (CP.NFLS) = AMOUNT OF SPACE AVAILABLE TO COMPASS.              COMPCOM   251
                                        *         IF THEY ARE NOT EQUAL, COMPASS DOES NOT DESTROY THE AREA       COMPCOM   252
                                        *         ABOVE NOMINAL FIELD LENGTH.  BEFORE RETURNING TO CALLING       COMPCOM   253
                                        *         COMPILER, COMPASS RESTORES THESE WORDS, AND THE ACTUAL         COMPCOM   254
                                        *         FIELD LENGTH, TO THE VALUES THEY HAD UPON ENTRY.               COMPCOM   255
                                                                                                                 COMPCOM   256
            70  00000000000000000000     CP.AFLS  CON    0                                                       COMPCOM   257
            71  00000000000000000000     CP.NFLS  CON    0                                                       COMPCOM   258
                                                                                                                 COMPCOM   259
                                                                                                                 COMPCOM   260
                                                                                                                 COMPCOM   261
                                        **        LCM FIELD LENGTHS, ACTUAL AND NOMINAL.                         COMPCOM   262
                                        *         USAGE IS SIMILAR TO THE ABOVE TWO WORDS.                       COMPCOM   263
                                                                                                                 COMPCOM   264
            72  00000000000000000000     CP.AFLL  CON    0                                                       COMPCOM   265
            73  00000000000000000000     CP.NFLL  CON    0                                                       COMPCOM   266
                                                                                                                 COMPCOM   267
                                                                                                                 COMPCOM   268
                                                                                                                 COMPCOM   269
                                        **        VALUE OF COMPASS BUILT-IN MICRO *MODLEVEL*.                    COMPCOM   270
                                        *         UP TO 9 CHARACTERS, LEFT JUSTIFIED WITH 00 FILL.               COMPCOM   271
                                        *         IF (CP.MODL) = 0, COMPASS USES "JDATE".                        COMPCOM   272
                                                                                                                 COMPCOM   273
            74  00000000000000000000     CP.MODL  CON    0                                                       COMPCOM   274
                                                                                                                 COMPCOM   275
                                                                                                                 COMPCOM   276
                                                                                                                 COMPCOM   277
                                        **        VALUE OF COMPASS BUILT-IN MICRO *PCOMMENT*.                    COMPCOM   278
                                        *         UP TO 30 CHARACTERS WITH BLANK FILL.                           COMPCOM   279
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    28
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            COMPCOM   COMPCOM 
  
                                                                                                                 COMPCOM   280
            75  55555555555555555555     CP.PCOM  DIS    3,                                                      COMPCOM   281
                                                                                                                 COMPCOM   288
                                                                                                                 COMPCOM   289
                                        ****                                                                     COMPCOM   290
                                                                                                                 COMPCOM   291
                                                                                                                 COMPCOM   292
                                         RM       IFNE   CP#RM,0                                                 COMPCOM   293
                                         RM       ENDIF                                                          COMPCOM   313
  
  
  
  
                                        **        FET/FIT FOR SOURCE INPUT FILE.                                 COMPCOM   315
                                                                                                                 COMPCOM   316
                                                                                                                 COMPCOM   317
           100                    10     CP.IFET  FET    INPUT,IBUF,IBUFL                                        COMPCOM   318
           110                                    BSSZ   CP.IFET+8-*                                             CP139CP    88
                                                                                                                 COMPCOM   320
                                         RM       IFNE   CP#RM,0                                                 COMPCOM   321
                                         RM       ENDIF                                                          COMPCOM   329
  
  
  
  
                                        **        FET/FIT FOR LISTING OUTPUT FILE.                               COMPCOM   331
                                                                                                                 COMPCOM   332
                                                                                                                 COMPCOM   333
           110                    10     CP.OFET  FET    OUTPUT,OBUF,OBUFL                                       COMPCOM   334
           120                                    BSSZ   CP.OFET+8-*                                             CP139CP    90
                                                                                                                 COMPCOM   336
                                         RM       IFNE   CP#RM,0                                                 COMPCOM   337
                                         RM       ENDIF                                                          COMPCOM   344
  
  
  
  
                                        **        FET/FIT FOR ERROR LISTING FILE                                 CPSA142    14
                                                                                                                 CPSA142    15
                                                                                                                 CPSA142    16
           120                    10     CP.EFET  FET    OUTPUT,,EBUFL,5                                         CPSA142    17
           130                                    BSSZ   CP.EFET+8-*                                             CPSA142    18
                                                                                                                 CPSA142    19
                                         RM       IFNE   CP#RM,0                                                 CPSA142    20
                                         RM       ENDIF                                                          CPSA142    27
  
  
  
  
                                        **        FET/FIT FOR BINARY OUTPUT FILE.                                COMPCOM   346
                                                                                                                 COMPCOM   347
                                                                                                                 COMPCOM   348
           130                    10     CP.BFET  FET    LGO,OBUF,OBUFL                                          COMPCOM   349
           140                                    BSSZ   CP.BFET+8-*                                             CP139CP    92
                                                                                                                 COMPCOM   351
                                         RM       IFNE   CP#RM,0                                                 COMPCOM   352
                                         RM       ENDIF                                                          COMPCOM   359
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    29
        COMPCOM - COMPILER / ASSEMBLER COMMUNICATION AREA.            JUMPS     COMPCOM 
  
                                        **        JUMP TABLE FOR LINKING TO RECORD MANAGER ROUTINES.             COMPCOM   361
                                                                                                                 COMPCOM   362
                                                                                                                 COMPCOM   363
                                         RM       IFEQ   CP#RM,6                                                 CPS028     24
                                         RM       ENDIF                                                          COMPCOM   378
  
  
  
  
                                        **        END OF COMMUNICATION AREA.                                     COMPCOM   380
                                                                                                                 COMPCOM   381
                                                                                                                 COMPCOM   382
           140                                    BSS    0                                                       CPS028     34
                                 135     CP.LCOM  EQU    *-CP.BASE   LENGTH OF COMMUNICATION REGION              CP139CP    94
                                                  USE    *           LEAVE COMMON BLOCK IF ANY                   COMPCOM   384
  
  
  
  
                                        **        SYSTEM COMMUNICATION ROUTINES.                                 COMPCOM   386
                                                                                                                 COMPCOM   387
                                                                                                                 COMPCOM   388
                                                  LIST   -F                                                      COMPCOM   389
                                                                                                                 COMPCOM   390
                                         RM       IFNE   CP#RM,7                                                 CPS028     35
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    30
        PROCESS SYSTEM REQUEST.                                       COMCSYS 
  
             0                           COMCSYS  CTEXT  PROCESS SYSTEM REQUEST.                                 COMPCOM   393
                                                                                                                 COMPCOM   394
                                                                                                                 COMPCOM   395
                                        ***              COMCSYS CONTAINS ROUTINES FOR PROCESSING CERTAIN        COMPCOM   396
                                        *         SYSTEM REQUESTS.                                               COMPCOM   397
                                        *                                                                        COMPCOM   398
                                        *                                                                        COMPCOM   399
                                        *         G. R. MANSFIELD.   70/09/12.                                   COMPCOM   400
                                        *         R. H. GOODELL.     71/04/01.                                   COMPCOM   401
                                                                                                                 COMPCOM   402
                                                                                                                 COMPCOM   403
                                                  IF     -DEF,QUAL$,1                                            COMPCOM   404
                                                  QUAL   COMCSYS                                                 COMPCOM   405
                                 D_D              BASE   D                                                       COMPCOM   406
  
  
  
  
                                        ***       SYS - PROCESS SYSTEM REQUEST.                                  COMPCOM   408
                                        *                                                                        COMPCOM   409
                                        *         ENTRY  (X6) = SYSTEM REQUEST.                                  COMPCOM   410
                                        *                                                                        COMPCOM   411
                                        *         EXIT   REQUEST PROCESSED.                                      COMPCOM   412
                                        *                                                                        COMPCOM   413
                                        *         USES   A1, A6, X1.                                             COMPCOM   414
                                        *                                                                        COMPCOM   415
                                        *         CALLS  NONE.                                                   COMPCOM   416
                                                                                                                 COMPCOM   417
                                                                                                                 COMPCOM   418
             0  54110                    SYSA     SA1    A1          WAIT (RA.MTR) CLEAR IF AUTO RECALL          COMPCOM   419
                     20123                        LX1    59-40                                                   COMPCOM   420
                          0331000001 +            MI     X1,SYS1                                                 COMPCOM   421
                                                                                                                 COMPCOM   422
             1  0400000005 +             SYS1     EQ     SYS2        FIRST ENTRY                                 COMPCOM   423
                                                                                                                 COMPCOM   424
             2  0400400002 +             SYS=     EQ     *+1S17      ENTRY/EXIT                                  COMPCOM   425
                                                                                                                 COMPCOM   426
             3  5110000001               +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMPCOM   427
                          0311000003 +            NZ     X1,*                                                    COMPCOM   428
             4  54610                             SA6    A1          ENTER REQUEST                               COMPCOM   429
                     0400000001 +                 EQ     SYS1                                                    COMPCOM   430
                                                                                                                 COMPCOM   431
                                        *         INITIAL ENTRY TO SET TYPE OF CALL.                             COMPCOM   432
                                                                                                                 COMPCOM   433
             5  5110000066               SYS2     SA1    RA.CEJ      TEST FOR CENTRAL EXCHANGE JUMP SUPPORT      COMPCOM   434
                          0331000007 +            MI     X1,SYS3                                                 COMPCOM   435
             6  5110000000 +                      SA1    SYSA        NO, USE WAIT LOOP                           COMPCOM   436
                          0400000010 +            EQ     SYS4                                                    COMPCOM   437
             7  7110000130               SYS3     SX1    0130B       YES, USE XJ INSTRUCTION                     COMPCOM   438
                          20160                   LX1    48                                                      COMPCOM   439
            10  13616                    SYS4     BX6    X1-X6       SWAP REGISTERS                              COMPCOM   440
                     13116                        BX1    X1-X6                                                   COMPCOM   441
                          13616                   BX6    X1-X6                                                   COMPCOM   442
            11  5160000001 +                      SA6    SYS1        SET MONITOR CALL                            COMPCOM   443
                          10611                   BX6    X1          RESTORE (X6)                                COMPCOM   444
            12  5110000001                        SA1    RA.MTR      RESET (A1)                                  COMPCOM   445
                          0100000000 +            RJ     SYSA        CLEAR STACK                                 COMPCOM   446
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    31
        PROCESS SYSTEM REQUEST.                                       RCL                 COMCSYS 
  
                                        ***       RCL - PLACE PROGRAM ON RECALL.                                 COMPCOM   448
                                        *                                                                        COMPCOM   449
                                        *         ENTRY  NONE.                                                   COMPCOM   450
                                        *                                                                        COMPCOM   451
                                        *         EXIT   REQUEST PROCESSED.                                      COMPCOM   452
                                        *                                                                        COMPCOM   453
                                        *         USES   A1, X1, X6.                                             COMPCOM   454
                                        *                                                                        COMPCOM   455
                                        *         CALLS  SYS=.                                                   COMPCOM   456
                                                                                                                 COMPCOM   457
                                                                                                                 COMPCOM   458
            13  20652                    RCL1     LX6    42          PROCESS REQUEST                             COMPCOM   459
                     0100000002 +                 RJ     =XSYS=                                                  COMPCOM   460
            14  5110000001               +        SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMPCOM   461
                          0311000014 +            NZ     X1,*                                                    COMPCOM   462
                                                                                                                 COMPCOM   463
            15  0400400015 +             RCL=     EQ     *+1S17      ENTRY/EXIT                                  COMPCOM   464
                                                                                                                 COMPCOM   465
            16  5110000001                        SA1    RA.MTR                                                  COMPCOM   466
                          0311000015 +            NZ     X1,RCL=     RETURN IF (RA.MTR) NOT CLEAR                COMPCOM   467
            17  7160220314                        SX6    3RRCL       FORM RECALL REQUEST                         COMPCOM   468
                          0400000013 +            EQ     RCL1                                                    COMPCOM   469
  
  
  
  
                                        ***       WNB - WAIT NOT BUSY.                                           COMPCOM   471
                                        *                                                                        COMPCOM   472
                                        *         WAIT FOR STATUS WORD BIT 0 TO BE SET.                          COMPCOM   473
                                        *         IF WORD IS INITIALLY 0, RETURN.                                COMPCOM   474
                                        *                                                                        COMPCOM   475
                                        *         ENTRY  (X2) = ADDRESS OF STATUS WORD.                          COMPCOM   476
                                        *                                                                        COMPCOM   477
                                        *         EXIT   RETURN WHEN BIT 0 OF STATUS WORD IS SET.                COMPCOM   478
                                        *                                                                        COMPCOM   479
                                        *         USES   A1, X1, X6.                                             COMPCOM   480
                                        *                                                                        COMPCOM   481
                                        *         CALLS  SYS=.                                                   COMPCOM   482
                                                                                                                 COMPCOM   483
                                                                                                                 COMPCOM   484
            20  20150                    WNB2     LX1    40          SET AUTO RECALL FLAG                        COMPCOM   485
                     36661                        IX6    X6+X1                                                   COMPCOM   486
                          0100000002 +            RJ     =XSYS=      PROCESS REQUEST                             COMPCOM   487
                                                                                                                 COMPCOM   488
            21  0400400021 +             WNB=     EQ     *+1S17      ENTRY/EXIT                                  COMPCOM   489
                                                                                                                 COMPCOM   490
            22  7160220314                        SX6    3RRCL       FORM RECALL REQUEST                         COMPCOM   491
                          20652                   LX6    42                                                      COMPCOM   492
                               36662              IX6    X6+X2                                                   COMPCOM   493
            23  53160                    WNB1     SA1    X6          CHECK STATUS WORD                           COMPCOM   494
                     20173                        LX1    59                                                      COMPCOM   495
                          0331000021 +            MI     X1,WNB=     RETURN IF COMPLETE BIT SET                  COMPCOM   496
            24  0301000021 +                      ZR     X1,WNB=     RETURN IF BLANK STATUS                      COMPCOM   497
                          5110000001              SA1    RA.MTR      WAIT (RA.MTR) CLEAR                         COMPCOM   498
            25  0311000023 +                      NZ     X1,WNB1                                                 COMPCOM   499
                          7110000001              SX1    1           CONTINUE RECALL                             COMPCOM   500
            26  0400000020 +                      EQ     WNB2                                                    COMPCOM   501
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    32
        PROCESS SYSTEM REQUEST.                                       MSG                 COMCSYS 
  
                                        ***       MSG - SEND MESSAGE.                                            COMPCOM   503
                                        *                                                                        COMPCOM   504
                                        *         ENTRY  (X1) = ADDRESS OF MESSAGE.                              COMPCOM   505
                                        *                (X6) = MESSAGE OPTION(S).                               COMPCOM   506
                                        *                            BIT 16 = AUTO RECALL.                       F7820CP    44
                                        *                            BITS 11 - 0 = MESSAGE OPTION CODE.          F7820CP    45
                                        *                                                                        COMPCOM   509
                                        *         EXIT   RETURN WHEN OPERATION COMPLETE.                         COMPCOM   510
                                        *                                                                        COMPCOM   511
                                        *         USES   A1, A6, X1, X6.                                         COMPCOM   512
                                        *                                                                        COMPCOM   513
                                        *         CALLS  SYS=.                                                   COMPCOM   514
                                                                                                                 COMPCOM   515
                                                                                                                 COMPCOM   516
            27  7160324616               MSG1     SX6    3RMSG*2     FORM MESSAGE REQUEST                        COMPCOM   517
                          12661                   BX6    X6+X1                                                   COMPCOM   518
                               20651              LX6    40-59                                                   COMPCOM   519
            30  0100000002 +                      RJ     =XSYS=      PROCESS REQUEST                             COMPCOM   520
                                                                                                                 COMPCOM   521
            31  0400400031 +             MSG=     EQ     *+1S17      ENTRY/EXIT                                  COMPCOM   522
                                                                                                                 COMPCOM   523
            32  20630                             LX6    24          MERGE OPTION(S) AND ADDRESS                 F7820CP    46
                     12161                        BX1    X6+X1                                                   COMPCOM   525
                          73610                   SX6    X1                                                      COMPCOM   526
                               20123              LX1    59-40                                                   COMPCOM   527
            33  0321000027 +                      PL     X1,MSG1     IF NO AUTO RECALL                           COMPCOM   528
                          20151                   LX1    40-59                                                   COMPCOM   529
                               13116              BX1    X1-X6       REMOVE MESSAGE ADDRESS                      COMPCOM   530
            34  20636                             LX6    30                                                      COMPCOM   531
                     5160000036 +                 SA6    MSGA        STORE STATUS WORD                           COMPCOM   532
                               74660              SX6    A6                                                      COMPCOM   533
            35  36116                             IX1    X1+X6       SET INDIRECT ADDRESS                        COMPCOM   534
                     20123                        LX1    59-40                                                   COMPCOM   535
                          0400000027 +            EQ     MSG1                                                    COMPCOM   536
                                                                                                                 COMPCOM   537
            36  00000000000000000000     MSGA     VFD    30/**,30/0  STATUS WORD FOR MESSAGE WITH AUTO RECALL    COMPCOM   538
  
  
  
  
                                 D_D              BASE   *                                                       COMPCOM   540
                                         QUAL$    IF     -DEF,QUAL$                                              COMPCOM   541
                                                  QUAL   *                                                       COMPCOM   542
                                   2 +   SYS=     EQU    /COMCSYS/SYS=                                           COMPCOM   543
                                  15 +   RCL=     EQU    /COMCSYS/RCL=                                           COMPCOM   544
                                  21 +   WNB=     EQU    /COMCSYS/WNB=                                           COMPCOM   545
                                  31 +   MSG=     EQU    /COMCSYS/MSG=                                           COMPCOM   546
                                         QUAL$    ENDIF                                                          COMPCOM   547
                                                                                                                 COMPCOM   548
                                                                                                                 COMPCOM   549
                                         COMCSYS  ENDX                                                           COMPCOM   550
                                                                                                                 COMPCOM   551
                                         RM       ENDIF                                                          COMPCOM   552
                                                                                                                 COMPCOM   553
                                                  LIST   *                                                       COMPCOM   554
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    33
        PROCESS SYSTEM REQUEST.                                       6RM 
  
                                        **        RECORD MANAGER ROUTINES.                                       COMPCOM   556
                                                                                                                 COMPCOM   557
                                                                                                                 COMPCOM   558
                                         RM       IFEQ   CP#RM,6                                                 CPS028     36
                                         RM       ENDIF                                                          COMPCOM   619
                                                                                                                 COMPCOM   620
                                                                                                                 COMPCOM   621
                                        **        END OF COMPCOM.                                                COMPCOM   622
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    34
        /COMPCOM/ INTERFACE                                           COMPCOM 
  
                                        **        LINK FTN TO /COMPCOM/.                                         FTN       746
                                                                                                                 FTN       747
                                                  LIST   F,X                                                     FTN       748
  
  
  
  
                                        **        EQUATE FTN AND /COMPCOM/ LOCATIONS.                            FTN       750
                                                                                                                 FTN       751
                                                                                                                 FTN       752
                                         CP.ABT   EQUENT CP.ABORT    *ABORT IF FATAL ERRORS* FLAG                FTN       753
                                         CP.ERCT  EQUENT CP.ERRCT    TOTAL NUMBER OF (ET=) RELEVANT ERRORS       FTN       754
                                         CP.FLIN  EQUENT CP.LINE+2   FTN SOURCE LISTING LINE FWA                 FTN       755
                                         CP.IFMT  EQUENT CP.IFORM    SOURCE FILE FORMAT                          FTN       756
                                         CP.LSTF  EQUENT CP.LISTF    MASTER OUTPUT LISTING FLAG                  FTN       757
                                         CP.MXFL  EQUENT CP.MAXFL    MAXIMUM FIELD LENGTH USED                   FTN       758
                                         CP.STXT  EQUENT CP.STEXT    LIST OF SYSTEM TEXTS USED BY COMPASS        FTN       759
                                         CP.XTXT  EQUENT CP.XNAME    COMPASS XTEXT NAME                          FTN       760
                                         CP.ILFL  EQUENT CP.CDC      INITIAL LCM FIELD LENGTH                    FC5A119     9
                                                                                                                 FTN       761
                                                  ENTRY  CP.AFLL                                                 FTN       762
                                                  ENTRY  CP.AFLS                                                 FTN       763
                                                  ENTRY  CP.BLF                                                  FTN       764
                                                  ENTRY  CP.CARD                                                 FTN       765
                                                  ENTRY  CP.CPU                                                  FTN       766
                                                  ENTRY  CP.LCOM                                                 FTN       767
                                                  ENTRY  CP.LIB                                                  FTN       768
                                                  ENTRY  CP.MODL                                                 FTN       769
                                                  ENTRY  CP.NFLL                                                 FTN       770
                                                  ENTRY  CP.NFLS                                                 FTN       771
                                                  ENTRY  CP.PAGE                                                 FTN       772
                                                  ENTRY  CP.PCOM                                                 FTN       773
                                                  ENTRY  CP.PD                                                   FTN       774
                                                  ENTRY  CP.PS                                                   FTN       775
                                                  ENTRY  CP.PW                                                   FTN       776
                                                  ENTRY  CP.EPAG                                                 FC5A115     4
                                                  ENTRY  CP.ILFL                                                 FC5A119    10
                                                                                                                 FTN       777
                                                  IFNE   CP#RM,7,1                                               FTN       778
                                                  ENTRY  SYS=,RCL=,WNB=,MSG=                                     FTN       779
  
  
  
  
                                        **        DEFINE LOCAL NAMES FOR /COMPCOM/ FETS AND FITS.                FTN       781
                                                                                                                 FTN       782
                                                                                                                 FTN       783
                                         .RM      IFEQ   CP#RM,0     IF USING CIO I/O                            FTN       784
                                 100 C   F.IN     =      CP.IFET                                                 FTN       785
                                 130 C   F.LGO    =      CP.BFET                                                 FTN       786
                                 110 C   F.OUT    =      CP.OFET                                                 FTN       787
                                 120 C   F.ERRS   =      CP.EFET                                                 FC5A115     5
                                                                                                                 FTN       788
                                         .RM      ELSE               IF USING 7RM I/O                            FTN       789
                                                                                                                 FTN       790
                                         FI.ERRS  =      CP.EFIT                                                 FC5A158A   61
                                         FI.IN    =      CP.IFIT                                                 FTN       791
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    35
        /COMPCOM/ INTERFACE                                           COMPCOM 
  
                                         FI.LGO   =      CP.BFIT                                                 FTN       792
                                         FI.OUT   =      CP.OFIT                                                 FTN       793
                                         FI.ERRS  =      CP.EFIT                                                 FC5A115     6
                                         .RM      ENDIF                                                          FTN       794
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    36
        COMPILER FIELD LENGTH REQUIREMENTS                            FLREQ 
  
                                        **        COMPILER FIELD LENGTH REQUIREMENTS.                            FTN       796
                                        *                                                                        FTN       797
                                        *         THE FOLLOWING SYMBOLS AND MICROS SPECIFY THE MINIMUM CM/SCM    FTN       798
                                        *         FIELD LENGTH REQUIREMENTS (WHICH VARY WITH COMPILER CONFIGU-   FTN       799
                                        *         RATION) AND THE NOMINAL DEFAULT AND MAXIMUM FIELD LENGTHS      FTN       800
                                        *         REQUESTED WHEN JOB FL IS SYSTEM-CONTROLLED.                    FTN       801
                                                                                                                 FTN       802
                                                                                                                 FTN       803
                                2004     IB.FL    SET    Z.INB+Z.OUTB      ADD FOR CIO BUFFERS                   FTN       804
                                2000     IB.FL    SET    IB.FL/100B*100B   TRUNCATE TO NEAREST 100B              FTN       805
                                                                                                                 FTN       806
                                   0     IT.FL    =      12000B*TEST       INCREMENT FOR TEST MODE               FTN       807
                                                                                                                 FTN       808
                                6000     MIN.FL   EQU    MIN.TABS+NOM.INC                                        FC5A119    11
                                                                                                                 FTN       837
                                                                                                                 FTN       841
                                        **        PROGRAM UNIT INITIAL FIELD LENGTH                              FTN       842
                                                                                                                 FTN       843
            37                     1     INT.FL   BSZENT            1                                            FTN       844
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    37
        FILE MANAGEMENT TABLES                                        FETS
  
                                        **        FET - A MACRO TO FORM FETS AND PSEUDO FETS                     FTN       846
                                                                                                                 FTN       847
                                                                                                                 FTN       848
                                                  PURGMAC FET                                                    FTN       849
                                                                                                                 FTN       850
                                         FET      MACRO  NAME,FIRST,MODE                                         FTN       851
                                                  LOCAL  REORG                                                   FTN       852
                                        *                                                                        FTN       853
                                        *                                                                        FTN       854
                                        **        FET FOR CIO I/O.                                               FTN       855
                                        *                                                                        FTN       856
                                        *                                                                        FTN       857
                                         .RM      IFEQ   CP#RM,0                                                 FTN       858
                                         REORG    SET    0                                                       FTN       859
                                        *         CHECK FOR EXISTING /COMPCOM/ FET DEFINITION.                   FTN       860
                                         .CD      IF     DEF,F.NAME                                              FTN       861
                                         REORG    SET    1                                                       FTN       862
                                        *         TO REDEFINE /COMPCOM/ FET.                                     FTN       863
                                                  ORG    F.NAME                                                  FTN       864
                                         .CD      ELSE                                                           FTN       865
                                         F.NAME   BSS    0                                                       FTN       866
                                         .CD      ENDIF                                                          FTN       867
                                        *                                                                        FTN       868
                                        *         FORM FET.                                                      FTN       869
                                        *                                                                        FTN       870
                                                  VFD    42/0L"NAME",18/MODE+1                                   FTN       871
                                                  VFD    36/0,6/3,18/FIRST                                       FTN       872
                                                  CON    FIRST                                                   FTN       873
                                                  CON    FIRST                                                   FTN       874
                                                  CON    FIRST+Z.NAME_B                                          FTN       875
                                        *         (I.CBSET)          PASS 1 BUFFER RESET PARAMS.                 FTN       876
                                                  VFD    24/0,18/Z.NAME_B,18/FIRST                               FTN       877
                                                  BSSZ   2                 RANDOM FILE INFO                      FTN       878
                                         .CD      IFEQ   REORG,1                                                 FTN       879
                                        *         RETURN TO NOMINAL BLOCK.                                       FTN       880
                                                  USE    *                                                       FTN       881
                                         .CD      ENDIF                                                          FTN       882
                                         .RM      ENDIF                                                          FTN       883
                                        *                                                                        FTN       884
                                        *                                                                        FTN       885
                                        **        PSEUDO FET FOR RECORD MANAGER I/O.                             FTN       886
                                        *                                                                        FTN       887
                                        *                                                                        FTN       888
                                         .RM      IFEQ   CP#RM,7                                                 FTN       889
                                        *                            DEFINE PSEUDO-FET BASE ADDRESS.             FTN       890
                                         F.NAME   BSS    0                                                       FTN       891
                                        *         (I.FIT)            FLAGS AND FIT POINTER.                      FTN       892
                                        *                            1/HOLD BUF FLAG, 1/SPILL FLAG, 58/FIT ADDR  FTN       893
                                        *                *HOLDING BUFFER EXISTS* FLAG  ( 1=YES, 0=NO )           FTN       894
                                                  VFD    1/1*Z.NAME_B/Z.NAME_B                                   FTN       895
                                        *                *FILE SPILLED* FLAG           ( 1=YES, 0=NO )           FTN       896
                                                  VFD    1/0                                                     FTN       897
                                        *                RESERVED FOR CDC.                                       FTN       898
                                                  VFD    1/1         *UNCONDITIONAL FLUSH FLAG*                  FC5A158A   62
                                                  VFD    39/0        *RESERVED FOR CDC*                          FC5A158A   63
                                        *                FIT ADDRESS.                                            FTN       900
                                                  VFD    18/FI.NAME                                              FTN       901
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    38
        FILE MANAGEMENT TABLES                                        FETS
  
                                        *                            HOLDING BUFFER CONTROL PARAMETERS.          FTN       902
                                         .HB      IFNE   Z.NAME_B,0                                              FTN       903
                                        *         (I.FIRST), (I.IN), (I.OUT), (I.LIMIT)                          FTN       904
                                                  DUP    4,1                                                     FTN       905
                                                  VFD    42/0,18/**                                              FTN       906
                                        *         (I.HBSET)          HOLDING BUFFER RESET VALUES.                FTN       907
                                                  VFD    24/0,18/Z.NAME_B,18/**                                  FTN       908
                                         .HB      ENDIF                                                          FTN       909
                                         .RM      ENDIF                                                          FTN       910
                                        *                                                                        FTN       911
                                        *         DECLARE GLOBAL FILE SYMBOLS AS ENTRY POINTS.                   FTN       912
                                                  ENTRY  F.NAME                                                  FTN       913
                                        *                                                                        FTN       914
                                        *         FORM FILE VECTOR TABLE FOR JOB COMMUNICATIONS AREA (RA.ARG).   FTN       915
                                        *                                                                        FTN       916
                                        *         /FVEC-HERE/ APPEARS AT *FVTBL*.                                FTN       917
                                         FVEC     RMT                                                            FTN       918
                                                  FVEC   NAME                                                    FTN       919
                                         FVEC     RMT                                                            FTN       920
                                        *                                                                        FTN       921
                                         FET      ENDM                                                           FTN       922
  
  
  
  
                                                                                                                 FTN       924
                                        **        CIO CODE VALUES FOR FILE MODES.                                FTN       925
                                                                                                                 FTN       926
                                                                                                                 FTN       927
                                   2     BINARY   EQU    2                                                       FTN       928
                                   0     CODED    EQU    0                                                       FTN       929
  
  
  
  
                                        **        SCRATCH FILE DISPOSITION.                                      FTN       931
                                        *         (APPLIES ONLY WHEN RECORD MANAGER I/O IS SELECTED.)            FTN       932
                                        *                                                                        FTN       933
                                        *         SELECT *CLOSE FLAG* (CF) PARAMETER FOR EACH SCRATCH FILE FIT.  FTN       934
                                        *         THE PARAMETER MAY BE ALTERED DURING COMPILER INITIALIZATION,   FTN       935
                                        *         TO COMPLY WITH CONTROL STATEMENT OPTION SELECTIONS.            FTN       936
                                                                                                                 FTN       937
                                                                                                                 FTN       938
                                         .RM      IFGE   CP#RM,6                                                 FTN       939
                                         .TEST    IFEQ   TEST,OFF   IF NOT TEST MODE                             FTN       940
                                        *                SYSTEM MODE COMPILER - UNLOAD SCRATCH FILES.            FTN       941
                                         SFD      MICRO  1,, U                                                   FTN       942
                                         .TEST    ELSE                                                           FTN       943
                                        *                TEST MODE COMPILER - REWIND SCRATCH FILES.              FTN       944
                                         SFD      MICRO  1,, R                                                   FTN       945
                                         .TEST    ENDIF                                                          FTN       946
                                         .RM      ENDIF                                                          FTN       947
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    39
        FILE MANAGEMENT TABLES                                        FET/FIT 
  
                                        **        FET/FIT AREAS.                                                 FTN       949
                                        *                                                                        FTN       950
                                        *                                                                        FTN       951
  
  
  
  
                                        **        INPUT  -  FORTRAN SOURCE INPUT FILE.                           FTN       953
                                                                                                                 FTN       954
                                                                                                                 FTN       955
           100  11162025240000000001              FET    IN,IBUF,CODED                                           FTN       956
  
  
  
  
                                        **        OUTPUT  -  LISTABLE OUTPUT FILE.                               FTN       958
                                                                                                                 FTN       959
                                                                                                                 FTN       960
           110  17252420252400000001              FET    OUT,OBUF,CODED                                          FTN       961
  
  
  
  
                                        **        ERRS - ERROR LISTING FILE                                      FTN       963
                                                                                                                 FTN       964
                                                                                                                 FTN       965
           120  17252420252400000001              FET    ERRS,0,CODED                                            FTN       966
  
  
  
  
                                        **        LGO  -  EXECUTABLE BINARY (LOAD-AND-GO) FILE.                  FTN       968
                                                                                                                 FTN       969
                                                                                                                 FTN       970
           130  14071700000000000003              FET    LGO,0,BINARY                                            FTN       971
  
  
  
  
                                        **        PB - PRE BINARY FILE.                                          FTN       973
                                                                                                                 FTN       974
                                                                                                                 FTN       975
            40                                    FET    PB,0,BINARY                                             FTN       976
                                         .RM      IFEQ   CP#RM,7                                                 FTN       977
                                         FI.PB    FILE   LFN="PB",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=W  FTN       978
                                                  BSSZ   FI.PB+20D-*                                             FTN       979
                                         .RM      ENDIF                                                          FTN       980
                                         F.SLST   EQUENT F.PB        CCG INTERFACE NAME                          FTN       981
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    40
        FILE MANAGEMENT TABLES                                        IL
  
                                        **        IL - INTERMEDIATE LANGUAGE.                                    FTN       983
                                                                                                                 FTN       984
                                                                                                                 FTN       985
            50                                    FET    IL,0,BINARY                                             FTN       986
                                         .RM      IFEQ   CP#RM,7                                                 FTN       987
                                         FI.IL    FILE   LFN="IL",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=W  FTN       988
                                                  BSSZ   FI.IL+20D-*                                             FC5A158A   64
                                         .RM      ENDIF                                                          FTN       990
  
  
  
  
                                        **        REFMAP  -  LONG REFERENCE MAP SCRATCH FILE.                    FTN       992
                                                                                                                 FTN       993
                                                                                                                 FTN       994
            60                                    FET    REF,0,BINARY                                            FTN       995
                                         .RM      IFEQ   CP#RM,7                                                 FTN       996
                                         FI.REF   FILE   LFN="REF",FO=SQ,OF=R,CF="SFD",PD=IO,EO=T,CM=NO,BT=,RT=W FTN       997
                                                  BSSZ   FI.REF+20D-*                                            FC5A158A   65
                                         .RM      ENDIF                                                          FTN       999
  
  
  
  
                                        **        DEFINE OUTPUT FILE NAME FOR FORTRAN-CODED I/O.                 FTN      1001
                                                                                                                 FTN      1002
                                                                                                                 FTN      1003
                                                  IFEQ   TEST,ON,1   IF TEST MODE                                FTN      1004
                                         OUTPUT"FC" EQUENT F.OUT                                                 FTN      1005
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    41
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          CELLS 
  
                                        **        MISCELLANEOUS FLAGS.                                           FTN      1008
                                                                                                                 FTN      1009
                                                                                                                 FTN      1010
                                                  ENTRY  FTIFL                                                   FTN      1011
            70  00000000000000000000     FTIFL    VFD    12/0,18/**,30/0   INITIAL CM/SCM FIELD LENGTH           FTN      1012
            71  00000000000000000000     JOT      CONENT 0           JOB ORIGIN TYPE (0 - BATCH, 1 - TERMINAL)   FTN      1013
            72  77777777760000000000     MAX.FL   CONENT 7777777776BS30    JOB STEP MAX FL (-1 FOR MEMORY CALL)  FTN      1015
            73  00000000000000000000     NOM.FL   CONENT 0           NOMINAL FL FOR THIS MODE                    FTN      1016
            74  00000000000000000001     OT.DAL   CONENT .DAL        OBJECT TIME DIRECT-ACCESS LCM (0=NO, 1=YES) FTN      1017
            75  00000000000000000000     OT.RM    CONENT OT#RM-6     OBJECT TIME I/O (0=6RM, 1=7RM)              FTN      1018
            76  00000000000000000000     RAPFLAG  CONENT 0           1S59 IF READ ALREADY PERFORMED, ELSE 0      FTN      1024
            77  00000000000000000000     RS.PD    CONENT 0           JOB DEFAULT PRINT DENSITY IMAGE             FC5A426    18
           100  00000000000000000000     TIME0    CONENT 0           COMPILATION START TIME IN MILLISECONDS      FTN      1025
           101  00000000000000000000     TIME1    CONENT 0           PROGRAM UNIT START TIME IN MILLISECONDS     FTN      1026
           102  00000000000000000000     ENOT=L   CONENT 0           1 IF EFILE .NE. LFILE. 0 OTHERWISE          FTN      1027
  
  
  
  
                                        **        FLAGS ASSOCIATED WITH THE CONTROL STATEMENT OPTIONS.           FTN      1029
                                        *                                                                        FTN      1030
                                        *         UNLESS OTHERWISE SPECIFIED, A FLAG IS *ON* (1S59) OR           FTN      1031
                                        *         *OFF* (0).                                                     FTN      1032
                                                                                                                 FTN      1033
                                                                                                                 FTN      1034
           103  00000000000000000000     CO.AL    CONENT 1S59*"BV.AL"      ON IF AUTOMATIC LEVEL                 FC5A444    41
           104  00000000000000000033     CO.ANSI  CONENT 1R"SV.ANSI"       ANSI (1R0,1RT,1RF)                    FTN      1035
           105  00000000000000000000     CO.ARGC  CONENT 1S59*"BV.ARGC"    ON IF COMMON ARGUMENT LISTS           FTN      1036
           106  00000000000000000000     CO.ARGF  CONENT 1S59*"BV.ARGF"    ON IF FIXED LENGTH ARGUMENT LISTS     FTN      1037
                                         CO.DBB   EQUENT CP.ERCT           ON IF BINARY REGARDLESS               FTN      1038
           107  00000000000000000522     CO.DBER  CONENT 2RER              ON IF ERROR RECOVERY                  FTN      1039
           110  00000000000000000000     CO.DBID  CONENT 1S59*"BV.DBID"    ON IF INTERACTIVE DEBUG               FTN      1040
           111  00000000000000000000     CO.DBPM  CONENT 1S59*"BV.DBPM"    ON IF POST MORTEM DUMP                FTN      1041
           112  00000000000000000000     CO.DBSB  CONENT 1S59*"BV.DBSB"    ON IF SUBSCRIPT BOUNDS CHECKING       FTN      1042
           113  00000000000000000000     CO.DBSL  CONENT 1S59*"BV.DBSL"    ON IF SUBSTRING LIMITS CHECKING       FTN      1043
           114  00000000000000000000     CO.DBST  CONENT 1S59*"BV.DBST"    ON IF SYMBOL TABLE TO BINARY          FTN      1044
           115  00000000000000000000     CO.DBTB  CONENT 1S59*"BV.DBTB"    ON IF ERROR TRACEBACK                 FTN      1045
           116  00000000000000000000     CO.DS    CONENT 1S59*"BV.DS"      ON IF DIRECTIVE SUPPRESSION           FTN      1046
           117  40000000000000000000     CO.EC    CONENT 1S59*"BV.EC"      ON IF ECS USE AT COMPILE TIME OK      F1037F5   177
           120  00000000000000000024     CO.EL    CONENT 1R"SV.EL"         ERROR LEVEL (1RT,1RW,1RF,1RC)         FTN      1047
           121  00000000000000000033     CO.ET    CONENT 1R"SV.ET"         ERROR TERMINATE (1R0,1RT,1RW,1RF,1RC) FTN      1048
           122  00000000000000000000     CO.GO    CONENT 1S59*"BV.GO"      LFN IF GO SELECTED, ELSE 0            FTN      1049
           123  00000000000000000004     CO.LCM   CONENT 1R"SV.LCM"        LCM=(G,D,I) = (-1,0,+1)               FTN      1050
           124  00000000000000011610     CO.LL    CONENT "SV.LL"           OBJECT TIME LINE LIMIT                FTN      1051
           125  00000000000000000033     CO.MD    CONENT 1R"SV.MD"         MD=(1R0,1RT,1RF)                      F1037F5   178
           126  00000000000000000000     CO.OPT   CONENT "SV.OPT"          (0, 1, 2)                             FTN      1052
           127  40000000000000000000     CO.PS    CONENT 1S59              1S59 IF PS NOT SELECTED               FC5A107     6
           130  00000000000000000000     CO.PW    CONENT "SV.PW"           PAGE WIDTH (NUMBER OF CHARS)          FTN      1053
           131  00000000000000000000     CO.PWE   CONENT "SV.PW"           MUST FOLLOW CO.PW                     FC5A107     7
                                         CO.PWT   EQUENT "SV.PWT"          PAGE WIDTH FOR TTY                    FTN      1055
           132  00000000000000000000     CO.REWB  CONENT 1S59*"BV.REWB"    ON IF REWIND B FILE                   FTN      1056
           133  00000000000000000000     CO.REWE  CONENT 1S59*"BV.REWE"    ON IF REWIND E FILE                   FTN      1057
           134  00000000000000000000     CO.REWI  CONENT 1S59*"BV.REWI"    ON IF REWIND I FILE                   FTN      1058
           135  00000000000000000000     CO.REWL  CONENT 1S59*"BV.REWL"    ON IF REWIND L FILE                   FTN      1059
           136  40000000000000000000     CO.RNDA  CONENT 1S59*"BV.RNDA"    ON IF ROUNDING ADDS                   FTN      1060
           137  40000000000000000000     CO.RNDS  CONENT 1S59*"BV.RNDS"    ON IF ROUNDING SUBTRACTS              FTN      1061
           140  40000000000000000000     CO.RNDM  CONENT 1S59*"BV.RNDM"    ON IF ROUNDING MULTIPLIES             FTN      1062
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    42
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          CO.CELLS
  
           141  00000000000000000000     CO.RNDD  CONENT 1S59*"BV.RNDD"    ON IF ROUNDING DIVIDES                FTN      1063
           142  00000000000000000000     CO.SEQ   CONENT 1S59*"BV.SEQ"     ON IF SEQUENCED INPUT                 FTN      1064
           143  00000000000000000000     CO.STAT  CONENT 1S59*"BV.STAT"    ON IF STATIC, ELSE 0                  F1037F5   179
                                                  IFEQ   .MI,1,1                                                 F1037F5   180
                                         CO.TMLC  CONENT "BV.TMLC"+1       NZ IF TARGET MACHINE HAS LCM          F1037F5   181
           144  00000000000000000000     CO.UO    CONENT 1S59*"BV.UO"      ON IF UNSAFE OPT OK                   FTN      1065
           145  00000000000000000000     CO.WPL   CONENT 0           PAGE WIDTH CONTROL WORD FOR L FILE          FC5A426    19
           146  00000000000000000000     CO.WPE   CONENT 0           PAGE WIDTH CONTROL WORD FOR E FILE          FC5A426    20
  
  
  
  
                                        **        FLAGS ASSOCIATED WITH THE CONTROL STATEMENT OPTIONS WHICH MAY  FTN      1067
                                        *         BE RESET BY C$ DIRECTIVES.                                     FTN      1068
                                        *                                                                        FTN      1069
                                        *         THESE FLAGS MUST STAY IN SYNCH WITH CORRESPONDING VALUES IN    FTN      1070
                                        *         WO.C$ IN PUC.                                                  FTN      1071
                                                                                                                 FTN      1072
                                                                                                                 FTN      1073
           147                           CO.C$    BSSENT 0                                                       FTN      1074
                                                                                                                 FTN      1075
           147  25230522000000000000     CO.CS    CONENT 0L"SV.CS"         COLLATING SEQUENCE 0=FIXED,1=USER     FTN      1076
           150  00000000000000000000     CO.DOLG  CONENT 1S59*"BV.DOLG"    ON IF LONG DO LOOPS                   FTN      1077
           151  00000000000000000000     CO.DOOT  CONENT 1S59*"BV.DOOT"    ON IF ONE TRIP DO LOOPS               FTN      1078
           152  40000000000000000000     CO.LOA   CONENT 1S59*"BV.LOA"     ON IF ATTRIBUTE LIST                  FTN      1079
           153  00000000000000000000     CO.LOM   CONENT 1S59*"BV.LOM"     ON IF ADDRESS MAP                     FTN      1081
           154  00000000000000000000     CO.LOO   CONENT 1S59*"BV.LOO"     ON IF OBJECT LIST                     FTN      1082
           155  00000000000000000000     CO.LOR   CONENT 1S59*"BV.LOR"     ON IF CROSS REFERENCE                 FTN      1083
           156  40000000000000000000     CO.LOS   CONENT 1S59*"BV.LOS"     ON IF SOURCE LISTING                  FTN      1084
           157  00000000000000000000     CO.QC    CONENT 1S59*"BV.QC"      ON IF QUICK CHECK                     FTN      1085
                                                                                                                 FTN      1086
                                         L.C$     EQUENT *-CO.C$                                                 FTN      1087
  
  
  
  
                                        **        TEST MODE ONLY FLAGS.                                          FTN      1089
                                                                                                                 FTN      1090
                                                                                                                 FTN      1091
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                FTN      1092
                                         .OS2     IFNE   .OS,2                                                   FTN      1093
                                         CO.BRK   CONENT 0           LIST OF OVERLAY NRS (0L FMT) AS SET UP BY   FTN      1094
                                        *                              *BREAK* CS OPTION.                        FTN      1095
                                        *                              E.G.  BREAK=2122  WOULD BE  4L2122        FTN      1096
                                        *                              (CO.BRK) = 1 FOR BREAK *ALL*              FTN      1097
                                         .OS2     ENDIF                                                          FTN      1098
                                                                                                                 FTN      1099
                                         CO.CPL   CONENT 200         COMPILE TIME PAGE LIMIT                     FTN      1100
                                         CO.IDP   CONENT 0           IDP BREAK FLAGS                             FTN      1101
                                         CO.RFL   CONENT 0           COMPILER INITIAL FL                         FTN      1102
                                         CO.SNAP  CONENT 0           .NZ. IF SNAPS DESIRED                       FTN      1103
                                         CO.SPP   CONENT 0           SYSTEM PROGRAMMER PACKAGE FLAG              FTN      1104
                                         .TEST    ENDIF                                                          FTN      1105
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    43
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          LCMFLAGS
  
                                        **        FLAGS ASSOCIATED WITH LCM USAGE ( OPT .GE. 2 )                 FTN      1107
                                                                                                                 FTN      1108
                                                                                                                 FTN      1109
           160  00000000000000000000     LCM.OA   CONENT 0           ORIGIN OF ALLOCATABLE LCM                   FTN      1110
           161  00000000000000000000     LCM.MM   CONENT 0           MEMORY MODE ( = 1S59 IF REDUCE MODE )       FTN      1111
           162  00000000000000000000     LCM.MU   CONENT 0           MEMORY USED                                 FTN      1112
                                         LCM.FL   EQUENT CP.AFLL     LCM FIELD LENGTH ( ACTUAL )                 FTN      1113
  
  
  
  
                                        **        GLOBAL TEMPORARY STORAGE CELLS.                                FTN      1115
                                        *                                                                        FTN      1116
                                        *         THESE SCRATCH CELLS ARE AVAILABLE TO ANY USER AT ANY TIME.     FTN      1117
                                        *         THEY ARE INTENDED FOR USE WITH IN-LINE CODE, AND SHOULD NOT    FTN      1118
                                        *         BE EXPECTED TO SURVIVE OVER SUBROUTINE CALLS.                  FTN      1119
                                                                                                                 FTN      1120
                                                                                                                 FTN      1121
                                         GT1      EQUENT CP.LINE                                                 FTN      1122
                                         GT2      EQUENT CP.LINE+1                                               FTN      1123
  
  
  
  
                                        **        CCG INTERFACE NAMES FOR VARIOUS CELLS.                         FTN      1125
                                                                                                                 FTN      1126
                                                                                                                 FTN      1127
                                         HO$ER    EQUENT CO.DBER                                                 FTN      1128
                                         HO$TB    EQUENT CO.DBTB                                                 FC5A275     8
                                         HO$IE    EQUENT CO.EL                                                   FTN      1129
                                         HO$LCM   EQUENT CO.LCM                                                  FTN      1130
                                         HO$LO$S  EQUENT CO.LOS                                                  FTN      1131
                                         HO$MFLS  EQUENT MAX.FL                                                  FTN      1132
                                         HO$OBL   EQUENT Z.ILB/2-1                                               FTN      1133
                                                  IFEQ   TEST,ON,1                                               FTN      1134
                                         HO$SNAP  EQUENT CO.SNAP                                                 FTN      1135
                                         HO$UO    EQUENT CO.UO                                                   FTN      1136
                                         HO$ARGC  EQUENT CO.ARGC                                                 FC50818     5
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    44
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          OVERLAY 
  
                                        **        NAMES/FLAGS FOR OVERLAYS LOADED BY FTN.                        FTN      1138
                                                                                                                 FTN      1139
                                                                                                                 FTN      1140
           163  23312317261400000000     FTNLFN   CONENT 0L"FTNOVL"  FTN LIBRARY OR FILE NAME                    FTN      1141
                                                  ENTRY  FTNLDR                                                  FTN      1142
           164  00002140000000000000     FTNLDR   VFD    6/**,6/**,12/2140B,18/**,18/**    LOAD REQUEST WORD     FTN      1143
           165  01000140000000002777     CMPSLDR  VFD    6/01,6/00,12/0140B,18/**,18/CP.ORG                      FTN      1144
           166  00000000000000000000     FTNHHA   CONENT 0           OVERLAY HHA                                 FTN      1145
  
  
  
  
                                        **        DEFINE MAIN TITLE LINE.                                        FTN      1148
                                                                                                                 FTN      1149
                                                                                                                 FTN      1150
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                FTN      1151
                                         MODLVL   MICRO  1,, "MODLVL"                                            FTN      1152
                                         MODLVL   MICRO  1,9,$"MODLVL"*T*      $                                 FTN      1153
                                         .TEST    ENDIF                                                          FTN      1154
                                                                                                                 FTN      1155
                                         TARGET   MICRO  1,4,$"MODEL"    $                                       FTN      1156
                                                                                                                 FTN      1157
           167                           O.TITL   BSSENT 0                                                       FTN      1158
                                                                                                                 FTN      1159
                                                  LIST   A                                                       FTN      1160
           167                                    CTEXT              COMFTTL - ALLOCATE TITLE LINE.              COMFTTL     2
           167  34555555555555555555     TL.EJCT  CONENT 10H1                            PRINTER SPACE CODE      COMFTTL     3
           170  55555555555555555555     TL.PTYP  CONENT 10H                             PROGRAM UNIT TYPE       COMFTTL     4
           171  55555555555555555555     TL.PNAM  CONENT 10H                             PROGRAM UNIT NAME       COMFTTL     5
                                         TL.CPU   CONENT (10H  70/"TARGET"    )          PROCESSING CPUS         COMFTTL     6
           172  55554233504336405555     TL.CPU   CONENT (10H  70/835     )          PROCESSING CPUS             COMFTTL     6
           173                           TL.CSOP  BSSENT 0                                                       F1039      27
           173  17202454555622172516              DATA   10HOPT= ,ROUN                   CONTROL STMT OPTIONS    F1039      28
           174  04545501505523505515              DATA   10HD= A/ S/ M                                           F1039      29
           175  50550456550423555555              DATA   10H/ D, DS                                              F1039      30
                                                                                                                 F1039      31
                                         O.TTLA   CONENT (10H  FTN "VER"+)                PROCESSOR NAME         COMFTTL    10
           176  55550624165540573445     O.TTLA   CONENT (10H  FTN 5.1+)                PROCESSOR NAME           COMFTTL    10
                                                  DATA   10H"MODLVL"                     PROCESSOR MOD LEVEL     COMFTTL    11
           177  43423455555555555555              DATA   10H871                           PROCESSOR MOD LEVEL    COMFTTL    11
                                        ,                                                                        COMFTTL    11
                                         TL.DATE  CONENT 10H"DATE"                       DATE                    COMFTTL    12
           200  55555555555555555555     TL.DATE  CONENT 10H 24/05/02.                       DATE                COMFTTL    12
                                        ,                                                                        COMFTTL    12
                                         TL.TIME  CONENT 10H"TIME"                       TIME OF DAY             COMFTTL    13
           201  55555555555555555555     TL.TIME  CONENT 10H 13.13.37.                       TIME OF DAY         COMFTTL    13
                                        ,                                                                        COMFTTL    13
           202  55555555555520010705              DATA    4APAGE                                                 COMFTTL    14
           203  00000000000000000000     TL.PAGE  CONENT 0                               PAGE NUMBER             COMFTTL    15
                                                  ENDX                                                           COMFTTL    16
                                                  LIST   *                                                       FTN      1162
                                                                                                                 FTN      1163
                                                                                                                 F1039      32
                                        *         TEMPLET TO LIST CURRENT VALUES OF THE FOLLOWING FORTRAN        F1039      33
                                        *         CONTROL CARD PARAMETERS.  (DO,ARG,CS,DB,PL)                    F1039      34
                                        *         THESE VALUES APPEAR ON THE SECOND LINE OF THE FIRST PAGE       F1039      35
                                        *         OF EACH PROGRAM UNIT OUTPUT LISTING.                           F1039      36
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    45
        CONSTANTS, DATA, FLAGS, TEMP STORAGE                          TITLE 
  
                                                                                                                 F1039      37
           204  55555555555555555555     O.CPV    CONENT 10H                             SKIP TO NEXT LINE       F1039      38
           205  04175455141716075055              DIS    2,DO= LONG/ OT,ARG= CO                                  F1039      39
           207  15151716505506113005              DIS    2,MMON/ FIXED,CS= USER                                  F1039      40
           211                           O.TA     BSSENT 0                                                       F1039      41
           211  50550611300504560402              DIS    2,/ FIXED,DB= TB/ SB/                                   F1039      42
           213  23145055052250551104              DIS    2,SL/ ER/ ID/ PMD/ ST,                                  F1039      43
           215  00011456201454000000              VFD    6/0,36/6HAL,PL=,18/0                                    FC5A444    42
           216  55555555555555555555              DATA   10H                             PRINT LIMIT             F1039      45
           217  55555555555555555555     L.PWA    CONENT 10H                             USED WHEN IN PW MODE    F1039      46
                                                                                                                 F1039      47
                                         L.TWO    EQUENT *-O.CPV                                                 F1039      48
                                         L.TA     EQUENT O.TA-O.CPV                      PW MODE                 F1039      49
                                         L.TB     EQUENT *-O.TA                          PW MODE                 F1039      50
                                                                                                                 F1039      51
                                        *         THIRD LINE OF FIRST PAGE                                       F1039      52
                                        *         OF EACH PROGRAM UNIT.    - FORTRAN CALL CARD                   F1039      53
                                                                                                                 F1039      54
           220  55555555555555555555     O.CC     CONENT 1H                             SKIP TO NEXT LINE        F1039      55
           221  55555555555555555555              DATA   1H ,1H ,1H ,1H ,1H ,1H         FORTRAN CALL CARD        F1039      56
           227                           O.C      BSSENT 0                              FIRST 120                F1039      57
           227  55555555555555555555              DATA   1H ,1H ,1H ,1H ,1H ,1H         CHARACTERS               F1039      58
           235  55555555555555555555     L.PWB    CONENT 1H                             USED WHEN IN PW MODE     F1039      59
                                                                                                                 F1039      60
                                         L.TITL   EQUENT TL.PAGE+1-O.TITL                                        F1039      61
                                         L.TTLA   EQUENT TL.PAGE+1-O.TTLA-1                                      F1039      62
                                         L.TTLB   EQUENT O.TTLA-TL.PTYP     2ND TITLE LENGTH IN PW MODE          F1039      63
                                                                                                                 F1039      64
                                         L.CC     EQUENT L.PWB-O.CC                                              F1039      65
                                         L.CCA    EQUENT O.C-O.CC                       PW MODE                  F1039      66
                                         L.CCB    EQUENT *-O.C                          PW MODE                  F1039      67
                                                                                                                 F1039      68
                                        *         COMPUTE OFFSET INTO ERROR FILE                                 F1039      69
                                                                                                                 F1039      70
                                         ERFO     EQUENT L.TITL+L.TWO+L.CC+1                                     F1039      71
                                                                                                                 F1039      72
  
  
  
  
                                        **        DEFINE ERROR LIST TITLE LINE.                                  FTN      1168
                                                                                                                 FTN      1169
      L    167                                    LOC    O.TITL                                                  FTN      1170
                                                                                                                 FTN      1171
                                                  LIST   A                                                       FTN      1172
      L    167                                    CTEXT              COMFTTL - ALLOCATE TITLE LINE.              COMFTTL     2
      L    167  34555555555555555555     TL.EJCT  CONENT 10H1                            PRINTER SPACE CODE      COMFTTL     3
      L    170  55555555555555555555     TL.PTYP  CONENT 10H                             PROGRAM UNIT TYPE       COMFTTL     4
      L    171  55555555555555555555     TL.PNAM  CONENT 10H                             PROGRAM UNIT NAME       COMFTTL     5
                                         TL.CPU   CONENT (10H  70/"TARGET"    )          PROCESSING CPUS         COMFTTL     6
      L    172  55554233504336405555     TL.CPU   CONENT (10H  70/835     )          PROCESSING CPUS             COMFTTL     6
      L    173                           TL.CSOP  BSSENT 0                                                       F1039      27
      L    173  17202454555622172516              DATA   10HOPT= ,ROUN                   CONTROL STMT OPTIONS    F1039      28
      L    174  04545501505523505515              DATA   10HD= A/ S/ M                                           F1039      29
      L    175  50550456550423555555              DATA   10H/ D, DS                                              F1039      30
                                                                                                                 F1039      31
                                         O.TTLA   CONENT (10H  FTN "VER"+)                PROCESSOR NAME         COMFTTL    10
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    46
        CONSTANTS, DATA, FLAGS, TEMP STORAGE
  
      L    176  55550624165540573445     O.TTLA   CONENT (10H  FTN 5.1+)                PROCESSOR NAME           COMFTTL    10
                                                  DATA   10H"MODLVL"                     PROCESSOR MOD LEVEL     COMFTTL    11
      L    177  43423455555555555555              DATA   10H871                           PROCESSOR MOD LEVEL    COMFTTL    11
                                        ,                                                                        COMFTTL    11
                                         TL.DATE  CONENT 10H"DATE"                       DATE                    COMFTTL    12
      L    200  55555555555555555555     TL.DATE  CONENT 10H 24/05/02.                       DATE                COMFTTL    12
                                        ,                                                                        COMFTTL    12
                                         TL.TIME  CONENT 10H"TIME"                       TIME OF DAY             COMFTTL    13
      L    201  55555555555555555555     TL.TIME  CONENT 10H 13.13.37.                       TIME OF DAY         COMFTTL    13
                                        ,                                                                        COMFTTL    13
      L    202  55555555555520010705              DATA    4APAGE                                                 COMFTTL    14
      L    203  00000000000000000000     TL.PAGE  CONENT 0                               PAGE NUMBER             COMFTTL    15
                                                  ENDX                                                           COMFTTL    16
           253                                    LOC    *O                                                      FTN      1174
                                                  LIST   *                                                       FTN      1175
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    47
        LOAD OVERLAYS                                                 LOVER 
  
                                        **        LOAD OVERLAYS.                                                 FTN      1177
  
  
  
  
                                        **        FORM LOADER REQUEST FOR LOADING *COMPASS* ASSEMBLER            FTN      1179
                                        *         (1,0) OVERLAY.                                                 FTN      1180
                                                                                                                 FTN      1181
                                                                                                                 FTN      1182
           253                           LDCOM    BSSENT 0                                                       FTN      1183
           253  5150000072 C                      SA5    LCM.FL                                                  FTN      1184
                          5140000256 +            SA4    CPOVL       NAME OF COMPASS (1,0) OVERLAY               FC5A262     8
           254  10655                             BX6    X5                                                      FTN      1185
                     5160000073 C                 SA6    CP.NFLL     CP.NFLL = CP.AFLL , SO WE KEEP OUR LCM      FTN      1186
                               10644              BX6    X4                                                      FC5A119    13
           255  5110000165 +                      SA1    CMPSLDR     OVERLAY LEVEL, LDR FLAGS, FWA LOAD          FTN      1188
                          0400000263 +            EQ     LOV                                                     FTN      1190
                                                                                                                 FC5A262     9
           256  03171520365300000000     CPOVL    DATA   0L"CP.NAME"                                             FC5A262    10
           257  06241640333300000000     FTN5OVL  DATA   6LFTN500                                                FC5A262    11
  
  
  
  
                                        **        LOVER - LOAD COMPILER OVERLAY.                                 FTN      1192
                                        *                                                                        FTN      1193
                                        *         ENTRY  (X2) = 64*P+S                                           FTN      1194
                                        *                (X7) = FWA LOAD.                                        FTN      1195
                                        *                P = PRIMARY OVERLAY LEVEL.                              FTN      1196
                                        *                S = SECONDARY.                                          FTN      1197
                                        *                (FTNLDR) = LOADER REQUEST FLAGS.                        FTN      1198
                                        *                (FTNLFN) = FILE OR LIBRARY NAME.                        FTN      1199
                                                                                                                 FTN      1200
                                                                                                                 FTN      1201
           260                           LOVER    BSSENT             ENTRY...                                    FTN      1202
           260  5150000257 +                      SA5    FTN5OVL                                                 FC5A262    12
                          5130000164 +            SA3    FTNLDR                                                  FTN      1204
           261  20230                             LX2    4*6                                                     FTN      1205
                     36652                        IX6    X5+X2       FORM OVERLAY NAME                           FTN      1206
                          5140000163 +            SA4    FTNLFN                                                  FTN      1207
           262  20230                             LX2    -4*6+48     POSITION OVERLAY LEVELS                     FTN      1208
                     12773                        BX7    X7+X3                                                   FTN      1209
                          12127                   BX1    X2+X7       (X1) = 12/ 0P0S,  9/ FLAGS,  39/ FWA        FTN      1210
                                        *         EQ     LOV                                                     FTN      1211
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    48
        LOAD OVERLAYS                                                 LOV 
  
                                        **        LOV - REQUEST OVERLAY LOAD.                                    FTN      1213
                                        *                                                                        FTN      1214
                                        *         ENTRY  (X4) = LIBRARY OR FILE NAME, 0L FORMAT                  FTN      1215
                                        *                        (OVERLAY NAME IF COMPASS OVERLAY)               FTN      1216
                                        *                (X6) = OVERLAY NAME, 0L FORMAT                          FTN      1217
                                        *                (X1) = LOADER REQUEST WORD 1, FORMAT --                 FTN      1218
                                        *                       12/OVERLAY LEVEL (0P0S),                         FTN      1219
                                        *                        9/LOADER REQUEST FLAGS,                         FTN      1220
                                        *                        3/0,                                            FTN      1221
                                        *                       18/0       SET TO LWA+1 FOR LOAD                 FTN      1222
                                        *                       18/FWA LOAD                                      FTN      1223
                                        *                (CP.NFLS) = LWA+1 OF LOAD.                              FTN      1224
                                                                                                                 FTN      1225
                                                                                                                 FTN      1226
           263  5150000071 C             LOV      SA5    CP.NFLS                                                 FTN      1227
                          20522                   LX5    18          SET LWA+1 AVAILABLE FOR LOAD                FTN      1228
                               12715              BX7    X1+X5                                                   FTN      1229
           264  5170000100                        SA7    RA.ORG      SAVE (X7) = LDR REQUEST WORD 1              FTN      1230
                          5160000304 +            SA6    LOVOVR      SAVE OVERLAY NAME                           FTN      1231
           265  5170000020                        SA7    RA.LDP+1    OVL LVL, FLAGS, ADDR TO LDR REQUEST WORD 1  FTN      1236
                          54671                   SA6    A7+B1       OVERLAY NAME TO LDR REQUEST WORD 2          FTN      1237
                               10744              BX7    X4                                                      FTN      1238
           266  55771                             SA7    A7-B1       LIBRARY OR FILE NAME TO LDR REQUEST WORD 0  FTN      1239
                     76600                        =X6    0                                                       FTN      1240
                          5160000067              SA6    RA.LDR      CLEAR LOADER COMMUNICATIONS CELL            FTN      1241
                                                                                                                 FTN      1242
                                                                                                                 FTN      1243
                                        **        CANCEL REPRIEVE REQUEST                                        FTN      1244
                                                                                                                 FTN      1245
           267  43700                             RPVOFF GT1         TURN OFF REPRIEVE                           FTN      1246
                                                                                                                 FTN      1247
                                                                                                                 FTN      1248
                                        **        TURN OFF SPY.                                                  FTN      1249
                                                                                                                 FTN      1250
                                                  IFEQ   .SPY,ON,1   IF SPY OPTION                               FTN      1251
                                                  CALL   OFFSPY      TURN *SPY* OFF                              FTN      1252
                                                                                                                 FTN      1253
                                                                                                                 FTN      1254
                                        **        LOAD OVERLAY.                                                  FTN      1255
                                                                                                                 FTN      1256
           272  7160140426                        LOADREQ  RA.LDP,RCL  REQUEST OVERLAY LOAD                      FTN      1257
           275  5120000020                        SA2    RA.LDP+1                                                FTN      1258
                          63720                   SB7    X2          (B7) = ENTRY POINT ADDRESS IN NEW OVERLAY   FTN      1259
                               20227              LX2    59-36       LOADER ERROR STATUS BIT TO B59              FTN      1260
           276  0332000300 +                      MI     X2,LOV3     IF LOADER COULD NOT LOAD OVERLAY            FTN      1261
                                                                                                                 FTN      1262
                                                                                                                 FTN      1263
                                        **        CALL P-MONITOR PPU PROGRAM *SPY*.                              FTN      1264
                                                                                                                 FTN      1265
                                         .SPY     IFEQ   .SPY,ON     IF SPY OPTION                               FTN      1266
                                                  SA1    LOVOVR      NAME OF OVERLAY LOADED                      FTN      1267
                                                  SA2    CPOVL       NAME OF COMPASS (1,0) OVERLAY               FC5A262    13
                                                  IX6    X1-X2                                                   FTN      1269
                                                  ZR     X6,LOV2     IF COMPASS OVERLAY                          FTN      1270
                                                  CALL   ONSPY                                                   FTN      1271
                                         .SPY     ENDIF                                                          FTN      1272
                                                                                                                 FTN      1273
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    49
        LOAD OVERLAYS                                                 LOV 
  
                                                                                                                 FTN      1274
                                        **        TRANSFER CONTROL TO NEWLY-LOADED OVERLAY.                      FTN      1275
                                                                                                                 FTN      1276
           277  0277000000               LOV2     JP     B7          TO NEW OVERLAY                              FTN      1277
                                                                                                                 FTN      1278
                                                                                                                 FTN      1279
                                        **        PROCESS ERROR IN LOADING OVERLAY.                              FTN      1280
                                                                                                                 FTN      1281
           300  7110000303 +             LOV3     MESSAGE LOVERM                                                 FTN      1282
           302  0400000327 +                      EQ     ABTFTN      ABORT                                       FTN      1283
                                                                                                                 FTN      1284
           303  55030116245514170104     LOVERM   DIS    1, CANT LOAD                                            FTN      1285
           304                     1     LOVOVR   BSSZ   1           SAVED NAME OF OVERLAY TO BE LOADED (0L FMT) FTN      1286
  
  
  
  
                                        **        *COMPASS* ASSEMBLER RETURN POINT.                              FTN      1288
                                                                                                                 FTN      1289
           305  6110000001               STOP     SB1    1                                                       FC5A158A   66
                          43601                   MX6    1                                                       FTN      1292
           306  5160000076 +                      SA6    RAPFLAG     SET READ ALREADY PERFORMED FLAG             FTN      1293
  
  
  
  
                                        **        LOAD *FTN* PRIMARY OVERLAY.                                    FTN      1300
                                                                                                                 FTN      1301
           307                           LDPRI    BSSENT 0                                                       FTN      1302
           307  5120000071 C                      SA2    CP.NFLS                                                 FC5A244     6
                          5110000166 +            SA1    FTNHHA                                                  FTN      1305
           310  73111                             =X1    X1+1                                                    FTN      1306
                     37221                        IX2    X2-X1                                                   FTN      1307
                          0322000324 +            PL     X2,LDP7     IF ROOM FOR PRIMARY                         FTN      1308
           311  5120000072 +                      SA2    MAX.FL                                                  FTN      1309
                          21236                   AX2    30                                                      FTN      1310
                               37221              IX2    X2-X1                                                   FTN      1311
           312  0332000332 +                      MI     X2,MEMERR   IF NOT ENOUGH MEMORY                        FTN      1312
                          7211000024              SX1    X1+2*FLSZ                                               FTN      1313
           313  20136                             LX1    30                                                      FTN      1314
                     10611                        BX6    X1                                                      FTN      1315
                          5160000024 C            SA6    GT1                                                     FTN      1316
           314  7160150515                        MEMORY SCM,GT1,RCL                                             FTN      1317
           317  5120000024 C                      SA2    GT1         NEW FL                                      FTN      1318
                          21236                   AX2    30                                                      FTN      1319
                               10622              BX6    X2                                                      FC5A119    14
           320  7272777765                        SX7    X2-FLSZ     LEAVE A SAFETY ZONE                         FTN      1323
                          5170000071 C            SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL             FTN      1324
           321  5160000070 C                      SA6    CP.AFLS     UPDATE TO CURRENT FL                        FTN      1326
                          5120000015 C            SA2    CP.MXFL     CURRENT MAX FL USED                         FTN      1327
           322  37726                             MX7    X2+X6       SELECT LARGER OF CP.AFLS, CP.MXFL           FTN      1328
                     5170000015 C                 SA7    CP.MXFL     UPDATE IT                                   FTN      1329
                                                                                                                 FTN      1330
           324  7120000100               LDP7     SX2    0100B       (1,0)                                       FTN      1331
                          5140000126 +            SA4    CO.OPT                                                  FC5A119    15
                                        *         SX7    FWA10       (ASSUMES FWA10 = FWA20)                     FTN      1332
           325  0304000326 +                      ZR     X4,LDP10    IF CALLING QCG                              FTN      1333
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    50
        LOAD OVERLAYS                                                 LDPRI 
  
                          7120000200              SX2    0200B       (2,0)                                       FTN      1334
                                                                                                                 FTN      1335
           326  7170000000 X             LDP10    LOVER  X2,=XFWA20                                              FTN      1336
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    51
        TERMINATE COMPILATION                                         ENDFTN
  
                                                                                                                 FTN      1380
           327                           ABTFTN   BSSENT 0           HERE TO DIE...                              FTN      1381
           327  7160041121                        ABORT  ,NODUMP,S   TO *EXIT(S)* (WITHOUT DUMP)                 FTN      1382
                                                                                                                 FTN      1383
                                                                                                                 FTN      1384
  
  
  
  
                                        **        MEMERR - OUTPUT INSUFFICIENT MEMORY ERROR MESSAGE              FTN      1448
                                        *                                                                        FTN      1449
                                        *         ENTRY  (X1) = AMOUNT OF MEMORY NEEDED                          FTN      1450
                                        *                                                                        FTN      1451
                                        *         CALLS  COD                                                     FTN      1452
                                        *                                                                        FTN      1453
                                        *         USES   X - 1,2,6  A - 2,6                                      FTN      1454
                                                                                                                 FTN      1455
           332                           MEMERR   BSSENT                                                         FTN      1456
           332  0100000344 +                      CALL   COD                                                     FTN      1457
           333  5120000342 +                      SA2    MSG.FL+2                                                FTN      1458
                          43130                   MX1    60-36                                                   FC5A244     7
                               15161              BX1    -X1*X6                                                  FC5A244     8
           334  20114                             LX1    12                                                      FC5A244     9
                     36621                        IX6    X2+X1                                                   FTN      1460
                          54620                   SA6    A2          INSERT MIN FL IN ERROR MSG TEXT             FTN      1461
           335  7110000340 +                      MESSAGE MSG.FL     ISSUE DAYFILE MESSAGE                       FTN      1462
           337  0400000327 +                      EQ     ABTFTN      ABORT                                       FTN      1463
                                                                                                                 FTN      1464
           340  55550624164055160505     MSG.FL   DIS    2,  FTN5 NEEDS AT LEAS                                  FC5A244    10
           342  24550000000000000255              VFD    12/2RT ,36/0,12/2RB                                     FC5A244    11
           343  03155506145700000000              DIS    ,/"SCM" FL./                                            FC5A244    12
  
  
  
  
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    52
        TESTMODE SUBROUTINES                                          TESTMODE
  
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                FTN      1518
                                         .OS      IFNE   .OS,2       IF NOT SCOPE 2                              FTN      1519
                                        IDPCHK    SPACE  4,10                                                    FTN      1520
                                        **        IDPCHK - CHECKS IF CALL TO *IDP* VIA *BREAK=PS*                FTN      1521
                                        *                                                                        FTN      1522
                                        *         ENTRY  (CO.BRK) = OVERLAY NRS (0P0S) FORM                      FTN      1523
                                        *                (RA.ORG) = OVERLAY LAST LOADED                          FTN      1524
                                        *                                                                        FTN      1525
                                        *         EXIT   (B7) = 0 IF IDP NOT REQUESTED, -1 IF REQUESTED          FTN      1526
                                        *                                                                        FTN      1527
                                        *         USES   X - 0-4, 6, 7                                           FTN      1528
                                        *                A - 1, 2                                                FTN      1529
                                        *                B - NONE                                                FTN      1530
                                                                                                                 FTN      1531
                                                                                                                 FTN      1532
                                         IDPCHK   SUBR   =           ENTRY/EXIT...                               FTN      1533
                                                  SA1    CO.BRK                                                  FTN      1534
                                                  =B7    0                                                       FC5A115     7
                                                  MX0    -2*CHAR                                                 FC5A115     8
                                                  ZR     X1,EXIT.    IF NO BREAKS                                FTN      1536
                                                  =X6    X1-1                                                    FTN      1537
                                                  ZR     X6,IDP2     IF BREAK *ALL*                              FTN      1538
                                                  SA2    RA.ORG                                                  FTN      1539
                                                  AX2    48-0                                                    FTN      1540
                                                  SX4    2R00                                                    FTN      1541
                                                  MX3    1                                                       FTN      1542
                                         IDP1     LX1    2*CHAR                                                  FTN      1544
                                                  BX6    -X0*X1                                                  FTN      1545
                                                  LX3    2*CHAR                                                  FTN      1546
                                                  ZR     X6,EXIT.    IF END OF OVR LIST OR (BREAK=PS) NOT SELECT FTN      1547
                                                  MI     X3,EXIT.    IF FINISHED CHECKING ENTIRE WORD            FTN      1548
                                                  IX7    X6-X4       (X7) = OVERLAY NRS IN (0P0S) FORM           FTN      1549
                                                  BX6    X7-X2                                                   FTN      1550
                                                  NZ     X6,IDP1     IF NOT CALLING *IDP* FOR THIS OVERLAY       FTN      1551
                                         IDP2     SB7    -1          SET TO *CALL IDP BEFORE OVERLAY START*      FTN      1552
                                                  EQ     EXIT.                                                   FTN      1553
                                                                                                                 FTN      1554
                                                                                                                 FTN      1555
                                         .TEST    ENDIF                                                          FTN      1556
  
  
  
  
                                        **        OFFSPY - TURN OFF P-MONITOR PPU PROGRAM *SPY*.                 FTN      1558
                                        *                                                                        FTN      1559
                                        *         ENTRY  NO REGISTER REQUIREMENTS.                               FTN      1560
                                        *                                                                        FTN      1561
                                        *         EXIT   *SPY* IS TURNED OFF.                                    FTN      1562
                                        *                                                                        FTN      1563
                                        *         USES   X - 1, 2, 6                                             FTN      1564
                                        *                A - 1, 6                                                FTN      1565
                                        *                B - NONE                                                FTN      1566
                                        *                                                                        FTN      1567
                                        *         CALLS  RECALL (WNB=)                                           FTN      1568
                                                                                                                 FTN      1569
                                                                                                                 FTN      1570
                                         .SPY     IFEQ   .SPY,ON     IF SPY OPTION INSTALLED                     FTN      1571
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    53
        TESTMODE SUBROUTINES                                          OFFSPY
  
                                                                                                                 FTN      1572
                                         OFFSPY   SUBR   =           ENTRY/EXIT...                               FC5A158A   67
                                                  SA1    SPYP+1                                                  FTN      1574
                                                  ZR     X1,EXIT.    IF *SPY* NOT ON, EXIT...                    FTN      1575
                                                  MX6    1                                                       FTN      1576
                                                  SA6    A1          TELL *SPY* TO STOP                          FTN      1577
                                                  RECALL A1                                                      FTN      1578
                                                  BX6    X6-X6                                                   FTN      1579
                                                  SA6    SPYP+1                                                  FTN      1580
                                                  EQ     EXIT.       EXIT...                                     FTN      1581
                                         ONSPY    SPACE  4,11                                                    FTN      1582
                                        **        ONSPY - TURN ON P-MONTITOR PPU PROGRAM *SPY*.                  FTN      1583
                                        *                                                                        FTN      1584
                                        *         ENTRY  NONE                                                    FTN      1585
                                        *                                                                        FTN      1586
                                        *         EXIT   *SPY* IS TURNED ON.                                     FTN      1587
                                        *                                                                        FTN      1588
                                        *         USES   X - 1, 2, 6, 7                                          FTN      1589
                                        *                A - 1, 2, 6, 7                                          FTN      1590
                                        *                B - NONE                                                FTN      1591
                                        *                                                                        FTN      1592
                                        *         CALLS  SYS=                                                    FTN      1593
                                                                                                                 FTN      1594
                                                                                                                 FTN      1595
                                         ONSPY    SUBR   =           ENTRY/EXIT...                               FTN      1596
                                                  SA1    SPYW                                                    FTN      1597
                                                  SA2    RA.ORG      (X2) = SAVED OVERLAY CONTROL FLAGS, ETC.    FTN      1598
                                                  ZR     X1,EXIT.    IF *SPY* OPTION NOT SELECTED                FTN      1599
                                                  AX2    48-0        (X2) = OVERLAY LEVEL                        FTN      1600
                                                  BX6    X1                                                      FTN      1601
                                                  SA1    SPYO                                                    FTN      1602
                                                  ZR     X2,SPY1     IF (0,0) OVERLAY                            FTN      1603
                                                  SX2    X2+2R00                                                 FTN      1604
                                                  LX2    30                                                      FTN      1605
                                         SPY1     BX7    X1+X2       5LFTN_P_S (3LFTN FOR (0,0))                 FTN      1606
                                                  SA6    A1-B1       LIMITS TO SPY PARAMETER LIST                FTN      1607
                                                  SA7    SPYP        OVERLAY LEVEL TO LIST (SPYP)                FTN      1608
                                                  SYSTEM SPY,RCL,A6                                              FTN      1609
                                                  EQ     EXIT.                                                   FTN      1610
                                                                                                                 FTN      1611
                                         SPYW     BSZENT 1           CONTROL STATEMENT SPY PARAMS                FTN      1612
                                        *         *SPY* REQUEST PARAMETER LIST                                   FTN      1613
                                         SPYP     BSSZ   1           7LOVL0P0S                                   FTN      1614
                                                  BSSZ   1           12/BINW,12/:,12/LO,12/HI,12/0               FTN      1615
                                         SPYO     DATA   3LFTN                                                   FTN      1616
                                                                                                                 FTN      1617
                                         .SPY     ENDIF                                                          FTN      1618
                                         .OS      ENDIF                                                          FTN      1619
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    54
        COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.          COD 
  
           344                           COD      CTEXT  COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.    COMCCOD     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCCOD     4
                                                  QUAL   COMCCOD                                                 COMCCOD     5
                                 D_D              BASE   D                                                       COMCCOD     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCOD     7
  
  
  
  
                                        ***       COD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.               COMCCOD     9
                                        *                                                                        COMCCOD    10
                                        *         G. R. MANSFIELD.   70/12/18.                                   COMCCOD    11
                                        *                                                                        CPSA245    32
                                        *         *******************************************************        CPSA245    33
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245    34
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245    35
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245    36
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245    37
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245    38
                                        *         *******************************************************        CPSA245    39
                                        *                                                                        CPSA245    40
                                        *                                                                        COMCCOD    12
                                        *         COD CONVERTS AN INTEGER CONSTANT TO OCTAL DISPLAY CODE.        COMCCOD    13
  
  
  
  
                                        ***       COD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH              COMCCOD    15
                                        *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCOD    16
                                        *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCOD    17
                                        *                                                                        COMCCOD    18
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCOD    19
                                        *                (B1) = 1.                                               COMCCOD    20
                                        *                                                                        COMCCOD    21
                                        *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCOD    22
                                        *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCOD    23
                                        *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCOD    24
                                        *                                                                        COMCCOD    25
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCOD    26
                                        *                B - 2, 3, 4.                                            COMCCOD    27
                                        *                A - 4.                                                  COMCCOD    28
                                        *                                                                        COMCCOD    29
                                        *         CALLS  NONE.                                                   COMCCOD    30
                                                                                                                 COMCCOD    31
                                                                                                                 COMCCOD    32
           344  0400400344 +             COD      SUBR               ENTRY/EXIT                                  COMCCOD    33
           345  5140000352 +                      SA4    CODA        =1H                                         COMCCOD    34
                          6130000006              SB3    6           (B3) = SHIFT INCREMENT                      COMCCOD    35
           346  43271                             MX2    -3          (X2) = DIGIT MASK                           COMCCOD    36
                     66200                        SB2    B0          CLEAR JUSTIFY COUNT                         COMCCOD    37
                          6140777755              SB4    1R0-1R      (B4) = CONVERSION COUNT                     COMCCOD    38
           347  15712                    COD1     BX7    -X2*X1      EXTRACT DIGIT                               COMCCOD    39
                     20466                        LX4    -6          SHIFT ASSEMBLY                              COMCCOD    40
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    55
        COMCCOD - CONSTANT TO OCTAL DISPLAY CODE CONVERSION.          COD                 COMCCOD 
  
                          66223                   SB2    B2+B3                                                   COMCCOD    41
                               73374              SX3    X7+B4       CONVERT DIGIT                               COMCCOD    42
           350  21103                             AX1    3           SHIFT OFF DIGIT                             COMCCOD    43
                     36443                        IX4    X4+X3       ADD DIGIT TO ASSEMBLY                       COMCCOD    44
                          0311000347 +            NZ     X1,COD1     LOOP TO ZERO DIGIT                          COMCCOD    45
           351  20466                             LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCOD    46
                     22624                        LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCOD    47
                          0400000344 +            EQ     CODX        RETURN                                      COMCCOD    48
                                                                                                                 COMCCOD    49
           352  55555555555555555555     CODA     CON    1H                                                      COMCCOD    50
  
  
  
  
                                 D_D              BASE   *                                                       COMCCOD    52
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCOD    53
                                                  QUAL   *                                                       COMCCOD    54
                                 344 +   COD      EQU    /COMCCOD/COD                                            COMCCOD    55
                                 344 +   COD=     EQU    /COMCCOD/COD                                            F4720D      8
                                         QUAL$    ENDIF                                                          COMCCOD    56
                                         COD      ENDX                                                           COMCCOD    57
                                                  ENTRY  COD                                                     FTN      1622
                                         COD=     EQUENT COD                                                     FTN      1623
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    56
        BUFFERS AND FILE VECTOR SETUP AREA.                           BUFFERS 
  
                                        **        ALLOCATE SPACE FOR INPUT/OUTPUT BUFFERS.                       FTN      1626
                                                                                                                 FTN      1627
                                                                                                                 FTN      1628
                                                  USE    BUFFERS                                                 FTN      1629
           353                           BUFFERS  BSS    0           START OF BUFFER AREA                        FTN      1630
                                                                                                                 FTN      1631
                                         .RM      IFEQ   CP#RM,0     IF USING CIO                                FTN      1632
           353                  1002     IBUF     BSSENT "BUFL"                                                  FTN      1633
          1355                           OBUF     BSSENT 0                                                       FTN      1634
                                         .RM      ELSE                                                           FC5A158A   68
                                         IBUF     EQUENT 0                                                       FC5A158A   69
                                         OBUF     EQUENT 0                                                       FC5A158A   70
                                         .RM      ENDIF                                                          FC5A158A   71
          1355                           FIN.FTN  BSSENT 0                                                       FC5A158A   72
           353                                    ORG    BUFFERS     RESET TO START OF BUFFER AREA               FTN      1636
  
  
  
  
                                        **        FILE VECTOR TABLE.                                             FTN      1638
                                        *                                                                        FTN      1639
                                        *         GENERATE TABLE OF DEFAULT FILE NAMES, FET/FIT POINTERS, AND    FTN      1640
                                        *         TABLE ORDINALS.  THE TABLE IS MOVED TO THE JOB COMMUNICATIONS  FTN      1641
                                        *         AREA, BEGINNING AT *RA.ARG*.                                   FTN      1642
                                        *                                                                        FTN      1643
                                        *         AFTER THE TABLE IS MOVED TO LOW CORE, THE ENTRY FOR A FILE     FTN      1644
                                        *         CAN BE REFERENCED BY THE SYMBOL *FV.NAME*, WHERE *NAME* IS     FTN      1645
                                        *         THE FILE NAME.                                                 FTN      1646
                                        *                                                                        FTN      1647
                                        *         THE TABLE IS FORMED BY THE *FVEC* MACRO, USING REMOTE CALLS    FTN      1648
                                        *         ISSUED FROM THE *FET* MACRO.                                   FTN      1649
  
  
  
  
                                        **        FVEC - MACRO TO FORM FILE VECTOR TABLE ENTRIES.                FTN      1651
                                        *                                                                        FTN      1652
                                        *                                                                        FTN      1653
                                        *         FVEC      FILE                                                 FTN      1654
                                        *                                                                        FTN      1655
                                        *         ENTRY  *FILE* = FILE NAME                                      FTN      1656
                                        *                                                                        FTN      1657
                                        *         EXIT   TABLE ENTRY IS FORMED.                                  FTN      1658
                                        *                FV.*FILE* IS DEFINED AND DECLARED AN ENTRY POINT.       FTN      1659
                                        *                                                                        FTN      1660
                                        *         USES   NONE                                                    FTN      1661
                                        *                                                                        FTN      1662
                                        *         CALLS  NONE                                                    FTN      1663
                                                                                                                 FTN      1664
                                                                                                                 FTN      1665
                                                  PURGMAC FVEC                                                   FTN      1666
                                                                                                                 FTN      1667
                                         FVEC     MACRO  FILE                                                    FTN      1668
                                         FV.FILE  BSSENT                                                         FTN      1669
                                         .RM      IFEQ   CP#RM,0                                                 FTN      1670
                                                  VFD    42/0L"FILE",18/F.FILE                                   FTN      1671
                                         .RM      ELSE                                                           FTN      1672
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    57
        BUFFERS AND FILE VECTOR SETUP AREA.                           FVEC      BUFFERS 
  
                                                  VFD    42/0L"FILE",18/FI.FILE                                  FTN      1673
                                         .RM      ENDIF                                                          FTN      1674
                                         FVEC     ENDM                                                           FTN      1675
                                                                                                                 FTN      1676
                                        *         FORM TABLE ENTRIES.                                            FTN      1677
                                                                                                                 FTN      1678
           353                           FVTBL    BSSENT 0           DEFINE FILE VECTOR TABLE BASE ADDRESS       FTN      1679
      L      2                                    LOC    RA.ARG      ULTIMATE TABLE ADDRESS (AFTER MOVE)         FTN      1680
      L      2                           RPV=FVT  BSSENT             DEFINE FWA VECTOR FOR RPV                   FTN      1681
                                                                                                                 FTN      1682
                                                  LIST   D                                                       FTN      1683
                                         FVEC     HERE               *RMT* GENERATED BY *FET* MACRO              FTN      1684
      L      2                                    FVEC   IN                                                     FVEC    .1
      L      3                                    FVEC   OUT                                                    FVEC    .1
      L      4                                    FVEC   ERRS                                                   FVEC    .1
      L      5                                    FVEC   LGO                                                    FVEC    .1
      L      6                                    FVEC   PB                                                     FVEC    .1
      L      7                                    FVEC   IL                                                     FVEC    .1
      L     10                                    FVEC   REF                                                    FVEC    .1
      L     11  77777777777777777776              CON    -1          END OF FILE VECTOR TABLE                    FTN      1685
                                                  LIST   *                                                       FTN      1686
                                                                                                                 FTN      1687
      L     12  55031720312211071024              DIS    6, COPYRIGHT CONTROL DATA CORP. 1979, 1980, 1981, 1982  FC5*82      5
           371                                    LOC    *O                                                      FTN      1688
                                                  USE    *                                                       FTN      1689
                                                                                                                 FTN      1690
                                        *         FVLEN, AS FOLLOWS, SHOULD ONLY BE USED BY INIT00               FTN      1691
                                        *         AS THE TABLE IS DYNAMIC.                                       FTN      1692
                                                                                                                 FTN      1693
                                         FVLEN    EQUENT *-FVTBL     DEFINE TABLE LENGTH                         FC5A158A   73
                                -147              ERRPL  RA.ORG+L54.00+LDR.EP+CP.LCOM+FIN.FTN-B=FTN+"BUFL"-CP.OR FC5A158A   74
                                        ,G                                                                       FC5A262    14
  
  
  
  
                                                  LIST   D                                                       FTN      1696
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        FWA20 
  
          1355                                    END                                                            FTN      1697
  
                             74300B CM  STORAGE USED             3434 STATEMENTS     1578 SYMBOLS      000009 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.642 SECONDS         636 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABTFTN        327   PROGRAM*       49/10     51/02 L   51/02 E   51/27
        BINARY          2                  38/30 D   39/35     39/43     40/04     40/16
        BUFFERS       353   PROGRAM*       56/05 L   56/15
        B1=1            0 
        CMPSLDR       165   PROGRAM*       44/07 L   47/16
        COD           344   PROGRAM*       51/19     55/18 D   55/22 E   55/23
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        CODED           0                  38/31 D   39/11     39/19     39/27
        COD=          344   PROGRAM*       55/19 D   55/23 D   55/23 E
        CO.AL         103   PROGRAM*       41/26 L   41/26 E
        CO.ANSI       104   PROGRAM*       41/27 L   41/27 E
        CO.ARGC       105   PROGRAM*       41/28 L   41/28 E   43/38
        CO.ARGF       106   PROGRAM*       41/29 L   41/29 E
        CO.CS         147   PROGRAM*       42/22 L   42/22 E
        CO.C$         147   PROGRAM*       42/20 L   42/20 E   42/32
        CO.DBB          4   COMPCOM        41/30 D   41/30 E
        CO.DBER       107   PROGRAM*       41/31 L   41/31 E   43/28
        CO.DBID       110   PROGRAM*       41/32 L   41/32 E
        CO.DBPM       111   PROGRAM*       41/33 L   41/33 E
        CO.DBSB       112   PROGRAM*       41/34 L   41/34 E
        CO.DBSL       113   PROGRAM*       41/35 L   41/35 E
        CO.DBST       114   PROGRAM*       41/36 L   41/36 E
        CO.DBTB       115   PROGRAM*       41/37 L   41/37 E   43/29
        CO.DOLG       150   PROGRAM*       42/23 L   42/23 E
        CO.DOOT       151   PROGRAM*       42/24 L   42/24 E
        CO.DS         116   PROGRAM*       41/38 L   41/38 E
        CO.EC         117   PROGRAM*       41/39 L   41/39 E
        CO.EL         120   PROGRAM*       41/40 L   41/40 E   43/30
        CO.ET         121   PROGRAM*       41/41 L   41/41 E
        CO.GO         122   PROGRAM*       41/42 L   41/42 E
        CO.LCM        123   PROGRAM*       41/43 L   41/43 E   43/31
        CO.LL         124   PROGRAM*       41/44 L   41/44 E
        CO.LOA        152   PROGRAM*       42/25 L   42/25 E
        CO.LOM        153   PROGRAM*       42/26 L   42/26 E
        CO.LOO        154   PROGRAM*       42/27 L   42/27 E
        CO.LOR        155   PROGRAM*       42/28 L   42/28 E
        CO.LOS        156   PROGRAM*       42/29 L   42/29 E   43/32
        CO.MD         125   PROGRAM*       41/45 L   41/45 E
        CO.OPT        126   PROGRAM*       41/46 L   41/46 E   49/55
        CO.PS         127   PROGRAM*       41/47 L   41/47 E
        CO.PW         130   PROGRAM*       41/48 L   41/48 E
        CO.PWE        131   PROGRAM*       41/49 L   41/49 E
        CO.PWT        110                  41/50 D   41/50 E
        CO.QC         157   PROGRAM*       42/30 L   42/30 E
        CO.REWB       132   PROGRAM*       41/51 L   41/51 E
        CO.REWE       133   PROGRAM*       41/52 L   41/52 E
        CO.REWI       134   PROGRAM*       41/53 L   41/53 E
        CO.REWL       135   PROGRAM*       41/54 L   41/54 E
        CO.RNDA       136   PROGRAM*       41/55 L   41/55 E
        CO.RNDD       141   PROGRAM*       42/01 L   42/01 E
        CO.RNDM       140   PROGRAM*       41/57 L   41/57 E
        CO.RNDS       137   PROGRAM*       41/56 L   41/56 E
        CO.SEQ        142   PROGRAM*       42/02 L   42/02 E
        CO.STAT       143   PROGRAM*       42/03 L   42/03 E
        CO.UO         144   PROGRAM*       42/06 L   42/06 E   43/37
        CO.WPE        146   PROGRAM*       42/08 L   42/08 E
        CO.WPL        145   PROGRAM*       42/07 L   42/07 E
        CPOVL         256   PROGRAM*       47/12     47/19 L
        CP.ABORT        3   COMPCOM        24/21 D   34/11
        CP.ABT          3   COMPCOM        34/11 D   34/11 E
        CP.AFLL        72   COMPCOM        27/43 L   34/21 E   43/07
        CP.AFLS        70   COMPCOM        27/35 L   34/22 E   49/49 S
        CP.BASE         3   COMPCOM        24/05 L   29/14
        CP.BATCH        3   COMPCOM        24/37 D
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        CP.BFET       130   COMPCOM        28/53 L   28/54     34/50
        CP.BLF         10   COMPCOM        25/23 L   34/23 E
        CP.CARD        30   COMPCOM        26/52 L   26/55     34/24 E
        CP.CDC         22   COMPCOM        26/37 L   34/19
        CP.CPU         14   COMPCOM        26/01 L   34/25 E
        CP.EFET       120   COMPCOM        28/41 L   28/42     34/52
        CP.EPAG         7   COMPCOM        25/15 L   34/36 E
        CP.ERCT         4   COMPCOM        34/12 D   34/12 E   41/30
        CP.ERRCT        4   COMPCOM        24/46 L   34/12
        CP.FLIN        26   COMPCOM        34/13 D   34/13 E
        CP.IFET       100   COMPCOM        28/17 L   28/18     34/49
        CP.IFMT        17   COMPCOM        34/14 D   34/14 E
        CP.IFORM       17   COMPCOM        26/24 L   34/14
        CP.ILFL        22   COMPCOM        34/19 D   34/19 E   34/37 E
        CP.LCOM       135                  29/14 D   34/26 E   57/31
        CP.LIB         60   COMPCOM        27/22 L   34/27 E
        CP.LINE        24   COMPCOM        26/45 L   34/13     43/19     43/20
        CP.LISTF        5   COMPCOM        24/54 L   34/15
        CP.LSTF         5   COMPCOM        34/15 D   34/15 E
        CP.MAXFL       15   COMPCOM        26/07 L   34/16
        CP.MODL        74   COMPCOM        27/52 L   34/28 E
        CP.MXFL        15   COMPCOM        34/16 D   34/16 E   49/50     49/52 S
        CP.NFLL        73   COMPCOM        27/44 L   34/29 E   47/14 S
        CP.NFLS        71   COMPCOM        27/36 L   34/30 E   48/15     49/30     49/48 S
        CP.OFET       110   COMPCOM        28/29 L   28/30     34/51
        CP.ORG       2777                  23/53 D   44/07     57/31
        CP.PAGE         6   COMPCOM        25/06 L   34/31 E
        CP.PCOM        75   COMPCOM        28/02 L   34/32 E
        CP.PD          11   COMPCOM        25/34 L   34/33 E
        CP.PS          12   COMPCOM        25/40 L   34/34 E
        CP.PW          13   COMPCOM        25/52 L   34/35 E
        CP.STEXT       50   COMPCOM        27/10 L   34/17
        CP.STOP         3   COMPCOM        24/11 L
        CP.STXT        50   COMPCOM        34/17 D   34/17 E
        CP.USER        20   COMPCOM        26/30 L
        CP.XNAME       16   COMPCOM        26/13 L   34/18
        CP.XTXT        16   COMPCOM        34/18 D   34/18 E
        CP#RM           0   FTX            18/41 F   34/39 F   38/44 F   40/05 F   56/07 F
                                           21/30 F   34/48 F   39/44 F   40/17 F
        ENOT=L        102   PROGRAM*       41/15 L   41/15 E
        ERFO           47                  45/35 D   45/35 E
        FIN.FTN      1355   PROGRAM*       56/14 L   56/14 E   57/31
        FLSZ           12   FTX            49/39     49/47
        FTIFL          70   PROGRAM*       41/04 E   41/05 L
        FTNHHA        166   PROGRAM*       44/08 L   44/08 E   49/31
        FTNLDR        164   PROGRAM*       44/05 E   44/06 L   47/37
        FTNLFN        163   PROGRAM*       44/04 L   44/04 E   47/40
        FTN5OVL       257   PROGRAM*       47/20 L   47/36
        FVLEN          16                  57/30 D   57/30 E
        FVTBL         353   PROGRAM*       57/07 L   57/07 E   57/30
        FV.ERRS         4                  57/15 L   57/15 E
        FV.IL           7                  57/18 L   57/18 E
        FV.IN           2                  57/13 L   57/13 E
        FV.LGO          5                  57/16 L   57/16 E
        FV.OUT          3                  57/14 L   57/14 E
        FV.PB           6                  57/17 L   57/17 E
        FV.REF         10                  57/19 L   57/19 E
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        FWA20           0   EXTERNAL*      50/03
        F.ERRS        120   COMPCOM        34/52 D   39/27     39/27 E   57/15
        F.IL           50   PROGRAM*       40/04 L   40/04 E   57/18
        F.IN          100   COMPCOM        34/49 D   39/11     39/11 E   57/13
        F.LGO         130   COMPCOM        34/50 D   39/35     39/35 E   57/16
        F.OUT         110   COMPCOM        34/51 D   39/19     39/19 E   57/14
        F.PB           40   PROGRAM*       39/43 L   39/43 E   39/48     57/17
        F.REF          60   PROGRAM*       40/16 L   40/16 E   57/19
        F.SLST         40   PROGRAM*       39/48 D   39/48 E
        GT1            24   COMPCOM        43/19 D   43/19 E   48/30 S   49/42 S   49/43     49/44
        GT2            25   COMPCOM        43/20 D   43/20 E
        HO$ARGC       105   PROGRAM*       43/38 D   43/38 E
        HO$ER         107   PROGRAM*       43/28 D   43/28 E
        HO$IE         120   PROGRAM*       43/30 D   43/30 E
        HO$LCM        123   PROGRAM*       43/31 D   43/31 E
        HO$LO$S       156   PROGRAM*       43/32 D   43/32 E
        HO$MFLS        72   PROGRAM*       43/33 D   43/33 E
        HO$OBL       1001                  43/34 D   43/34 E
        HO$TB         115   PROGRAM*       43/29 D   43/29 E
        HO$UO         144   PROGRAM*       43/37 D   43/37 E
        IBUF          353   PROGRAM*       39/11     39/11     39/11     39/11     39/11     56/08 L   56/08 E
        IBUFL        1002                  23/33 D
        IB.FL        2000                  36/09 D   36/10     36/10 D
        INT.FL         37   PROGRAM*       36/19 L   36/19 E
        IT.FL           0                  36/12 D
        JOT            71   PROGRAM*       41/06 L   41/06 E
        LCM.FL         72   COMPCOM        43/07 D   43/07 E   47/11
        LCM.MM        161   PROGRAM*       43/05 L   43/05 E
        LCM.MU        162   PROGRAM*       43/06 L   43/06 E
        LCM.OA        160   PROGRAM*       43/04 L   43/04 E
        LDCOM         253   PROGRAM*       47/10 L   47/10 E
        LDPRI         307   PROGRAM*       49/29 L   49/29 E
        LDP10         326   PROGRAM*       49/57     50/03 L
        LDP7          324   PROGRAM*       49/34     49/54 L
        LDR.EP          3                  21/46 D   21/47     57/31
        LOV           263   PROGRAM*       47/17     48/15 L
        LOVER         260   PROGRAM*       47/35 L   47/35 E   50/03
        LOVERM        303   PROGRAM*       49/09     49/12 L
        LOVOVR        304   PROGRAM*       48/19 S   49/13 L
        LOV2          277   PROGRAM*       49/04 L
        LOV3          300   PROGRAM*       48/45     49/09 L
        L54.00         11   FTX            57/31
        L.CC           15                  45/29 D   45/29 E   45/35
        L.CCA           7                  45/30 D   45/30 E
        L.CCB           7                  45/31 D   45/31 E
        L.C$           11                  42/32 D   42/32 E
        L.PWA         217   PROGRAM*       45/10 L   45/10 E
        L.PWB         235   PROGRAM*       45/23 L   45/23 E   45/29
        L.TA            5                  45/13 D   45/13 E
        L.TB            7                  45/14 D   45/14 E
        L.TITL         15                  45/25 D   45/25 E   45/35
        L.TTLA          5                  45/26 D   45/26 E
        L.TTLB          6                  45/27 D   45/27 E
        L.TWO          14                  45/12 D   45/12 E   45/35
        MAX.FL         72   PROGRAM*       41/07 L   41/07 E   43/33     49/35
        MEMERR        332   PROGRAM*       49/38     51/18 L   51/18 E
        MIN.FL       6000                  26/07     36/14 D
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        MIN.TABS     3000   FTX            36/14
        MSG=           31   PROGRAM*       32/47 D   34/40 E   49/09     51/26
        MSG.FL        340   PROGRAM*       51/20     51/26     51/29 L
        NOM.FL         73   PROGRAM*       41/08 L   41/08 E
        NOM.INC      3000   FTX            36/14
        N.ELSTK       240   FTX            18/51
        N.OPSTK       240   FTX            18/51
        OBUF         1355   PROGRAM*       39/19     39/19     39/19     39/19     39/19     56/09 L   56/09 E
        OT.DAL         74   PROGRAM*       41/09 L   41/09 E
        OT.RM          75   PROGRAM*       41/10 L   41/10 E
        OT#RM           6   FTX            41/10
        O.C           227   PROGRAM*       45/21 L   45/21 E   45/30     45/31
        O.CC          220   PROGRAM*       45/19 L   45/19 E   45/29     45/30
        O.CPV         204   PROGRAM*       45/02 L   45/02 E   45/12     45/13
        O.TA          211   PROGRAM*       45/05 L   45/05 E   45/13     45/14
        O.TITL        167   PROGRAM*       44/23 L   44/23 E   45/25     45/43
        O.TTLA        176   PROGRAM*       44/38 L   44/38 E   45/26     45/27     46/01 L   46/01 E
  U     QUAL$                              54/06 F   55/16 F
        RAPFLAG        76   PROGRAM*       41/11 L   41/11 E   49/22 S
        RA.ARG          2   CPUTEXT        57/08
        RA.CEJ         66   CPUTEXT        30/45
        RA.LDP         17   FTX            48/20 S   48/41     48/42
        RA.LDR         67   CPUTEXT        48/25 S
        RA.MTR          1   CPUTEXT        30/38     30/56     31/14     31/19     31/54
        RA.ORG        100   CPUTEXT        48/18 S   57/31
        RCL=           15   PROGRAM*       32/45 D   34/40 E
        RPV=FVT         2                  57/09 L   57/09 E
        RS.PD          77   PROGRAM*       41/12 L   41/12 E
        STOP          305   PROGRAM*       24/11     49/20 L
        SYS=            2   PROGRAM*       32/44 D   34/40 E   48/30     48/41     49/43     51/03
        TEST            0   FTX            18/20 F   20/16 F   36/12     40/28 F   42/40 F   43/35 F   44/16 F   52/01 F
        TIME0         100   PROGRAM*       41/13 L   41/13 E
        TIME1         101   PROGRAM*       41/14 L   41/14 E
        TL.CPU        172   PROGRAM*       44/31 L   44/31 E   45/51 L   45/51 E
        TL.CSOP       173   PROGRAM*       44/32 L   44/32 E   45/52 L   45/52 E
        TL.DATE       200   PROGRAM*       44/43 L   44/43 E   46/06 L   46/06 E
        TL.EJCT       167   PROGRAM*       44/27 L   44/27 E   45/47 L   45/47 E
        TL.PAGE       203   PROGRAM*       44/49 L   44/49 E   45/25     45/26     46/12 L   46/12 E
        TL.PNAM       171   PROGRAM*       44/29 L   44/29 E   45/49 L   45/49 E
        TL.PTYP       170   PROGRAM*       44/28 L   44/28 E   45/27     45/48 L   45/48 E
        TL.TIME       201   PROGRAM*       44/46 L   44/46 E   46/09 L   46/09 E
        WNB=           21   PROGRAM*       32/46 D   34/40 E
        Z.ERRSB         0                  18/46 D   39/27     39/27
        Z.ILB        2004                  18/47 D   40/04     40/04     43/34
        Z.INB        1002                  18/48 D   36/09     39/11     39/11
        Z.INSB        401                  18/49 D
        Z.LGOB       2004                  18/50 D   39/35     39/35
        Z.LGOQB       500                  18/51 D
        Z.OPTB       1002                  18/52 D
        Z.OUTB       1002                  18/53 D   36/09     39/19     39/19
        Z.OUTSB       401                  18/54 D
        Z.PBB        2004                  18/55 D   39/43     39/43
        Z.PBQB        701                  18/56 D
        Z.REFB       1002                  18/57 D   40/16     40/16
        Z.REFQB       401                  19/01 D
        .DAL            1   FTX            41/09
        .MI             0   FTX            42/04 F
1       FTN - GLOBAL CELLS AND SYSTEM INTERFACE.                      COMPASS 3.7-871.     24/05/02. 13.13.37.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        .SPY            0   FTX            48/35 F   48/50 F   52/57 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCSYS 
  
  
        MSGA           36   PROGRAM*       32/30 S   32/36 L
        MSG1           27   PROGRAM*       32/15 L   32/26     32/34
        MSG=           31   PROGRAM*       32/20 L   32/47
        RCL1           13   PROGRAM*       31/12 L   31/22
        RCL=           15   PROGRAM*       31/17 L   31/20     32/45
        SYSA            0   PROGRAM*       30/30 L   30/47     30/57
        SYS1            1   PROGRAM*       30/32     30/34 L   30/41     30/54 S
        SYS2            5   PROGRAM*       30/34     30/45 L
        SYS3            7   PROGRAM*       30/46     30/49 L
        SYS4           10   PROGRAM*       30/48     30/51 L
        SYS=            2   PROGRAM*       30/36 L   31/13     31/43     32/18     32/44
        WNB1           23   PROGRAM*       31/50 L   31/55
        WNB2           20   PROGRAM*       31/41 L   31/57
        WNB=           21   PROGRAM*       31/45 L   31/52     31/53     32/46
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCOD 
  
  
        COD           344   PROGRAM*       54/50 L   55/18     55/19
        CODA          352   PROGRAM*       54/51     55/10 L
        COD1          347   PROGRAM*       54/56 L   55/05
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1052              IDENT  UTILITY
                       1052                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=UTILI          0+           MNS=           332+           CIO=           474+ 
                                        CDD              3+           SBM=           411+           RDC=           502+ 
                                        CDD=             3+           SFN            416+           RDW=           527+ 
                                        DXB             22+           SFN=           416+           WTH=           666+ 
                                        FA=SET          31+           SST            434+           WTO=           721+ 
                                        MVE=            72+           WOD            437+           WTW=           743+ 
                                        FRA=           257+           ZTB            455+           DCB=          1043+ 
                                        RPV=           130+           ZTB=           455+           WTX=          1030+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        MSG=      RPV=FVT   WNB=      RPV=CLN   RPV=URP   COD 
                                        RCL=      SYS=      IDP=COD   RPV=MSG   RPV=RNA 
  
  
  
  
                                                  IDENT  UTILITY                                                 UTILITY     2
                                         UTILITY  SECT   (COMMON UTILITY ROUTINES.)                              UTILITY     3
  
  
  
  
  
                                        *         IN FTN                                                         UTILITY     5
                                                  EXT    MSG=,RCL=,RPV=FVT,SYS=,WNB=                             UTILITY     6
                                                                                                                 UTILITY     7
                                        *         IN IDP                                                         UTILITY     8
                                                  EXT    IDP=COD                                                 UTILITY     9
                                                                                                                 UTILITY    10
                                        *         IN PUC                                                         UTILITY    11
                                                  EXT    RPV=CLN,RPV=MSG,RPV=URP                                 UTILITY    12
                                                                                                                 UTILITY    13
                                        *         IN RPV10                                                       UTILITY    14
                                                  EXT    RPV=RNA                                                 UTILITY    15
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     2
        COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.        CDD 
  
             0                           CDD      CTEXT  COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.  COMCCDD     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCCDD     4
                                                  QUAL   COMCCDD                                                 COMCCDD     5
                                 D_D              BASE   D                                                       COMCCDD     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCDD     7
  
  
  
  
                                        ***       CDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.             COMCCDD     9
                                        *                                                                        COMCCDD    10
                                        *         G. R. MANSFIELD.   70/12/18.                                   COMCCDD    11
                                        *                                                                        CPSA245    14
                                        *         *******************************************************        CPSA245    15
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245    16
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245    17
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245    18
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245    19
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245    20
                                        *         *******************************************************        CPSA245    21
                                        *                                                                        CPSA245    22
                                        *                                                                        COMCCDD    12
                                        *         CDD CONVERTS AN INTEGER CONSTANT TO DECIMAL DISPLAY CODE.      COMCCDD    13
  
  
  
  
                                        ***       CDD CONVERTS UP TO 10 DIGITS TO DISPLAY CODE WITH              COMCCDD    15
                                        *         LEADING ZERO SUPPRESSION.  CONVERSION CONTAINS SPACE FILL      COMCCDD    16
                                        *         AND IS RIGHT AND LEFT JUSTIFIED.                               COMCCDD    17
                                        *                                                                        COMCCDD    18
                                        *         ENTRY  (X1) = NUMBER TO BE CONVERTED.                          COMCCDD    19
                                        *                (B1) = 1.                                               COMCCDD    20
                                        *                                                                        COMCCDD    21
                                        *         EXIT   (X6) = DPC CONVERSION RIGHT JUSTIFIED.                  COMCCDD    22
                                        *                (X4) = DPC CONVERSION LEFT JUSTIFIED.                   COMCCDD    23
                                        *                (B2) = 6*COUNT OF DIGITS CONVERTED.                     COMCCDD    24
                                        *                                                                        COMCCDD    25
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCDD    26
                                        *                B - 2, 3, 4.                                            COMCCDD    27
                                        *                A - 2, 3, 4.                                            COMCCDD    28
                                        *                                                                        COMCCDD    29
                                        *         CALLS  NONE.                                                   COMCCDD    30
                                                                                                                 COMCCDD    31
                                                                                                                 COMCCDD    32
             0  42612                    CDD1     DX6    X1*X2       COMPUTE QUOTIENT                            COMCCDD    33
                     40112                        FX1    X1*X2                                                   COMCCDD    34
                          26701                   UX7    X1          CHECK QUOTIENT                              COMCCDD    35
                               20466              LX4    -6          SHIFT ASSEMBLY                              COMCCDD    36
             1  66224                             SB2    B2+B4                                                   COMCCDD    37
                     40663                        FX6    X6*X3       EXTRACT REMAINDER DIGIT                     COMCCDD    38
                          73663                   SX6    X6+B3       CONVERT DIGIT                               COMCCDD    39
                               36464              IX4    X6+X4                                                   COMCCDD    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     3
        COMCCDD - CONSTANT TO DECIMAL DISPLAY CODE CONVERSION.        CDD                 COMCCDD 
  
             2  0317000000 +                      NZ     X7,CDD1     LOOP TO ZERO QUOTIENT                       COMCCDD    41
                          20466                   LX4    -6          LEFT JUSTIFY ASSEMBLY                       COMCCDD    42
                               22624              LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCDD    43
                                                                                                                 COMCCDD    44
             3  0400400003 +             CDD      SUBR               ENTRY/EXIT                                  COMCCDD    45
             4  5120000007 +                      SA2    CDDA        =.1P48+1                                    COMCCDD    46
                          54321                   SA3    A2+B1       =10.P                                       COMCCDD    47
                               27101              PX1    X1                                                      COMCCDD    48
             5  66200                             SB2    B0          CLEAR JUSTIFY COUNT                         COMCCDD    49
                     54431                        SA4    A3+B1       =1H                                         COMCCDD    50
                          6130777755              SB3    1R0-1R      (B3) = CONVERSION CONSTANT                  COMCCDD    51
             6  6140000006                        SB4    6           (B4) = SHIFT INCREMENT                      COMCCDD    52
                          0400000000 +            EQ     CDD1                                                    COMCCDD    53
                                                                                                                 COMCCDD    54
             7  17170631463146314632     CDDA     CON    0.1P48+1                                                COMCCDD    55
            10  20000000000000000012              CON    10.P                                                    COMCCDD    56
            11  55555555555555555555              CON    1H                                                      COMCCDD    57
  
  
  
  
                                 D_D              BASE   *                                                       COMCCDD    59
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCDD    60
                                                  QUAL   *                                                       COMCCDD    61
                                   3 +   CDD      EQU    /COMCCDD/CDD                                            COMCCDD    62
                                   3 +   CDD=     EQU    /COMCCDD/CDD                                            F4720D      6
                                         QUAL$    ENDIF                                                          COMCCDD    63
                                         CDD      ENDX                                                           COMCCDD    64
                                                  ENTRY  CDD                                                     UTILITY    17
                                         CDD=     EQUENT CDD                                                     UTILITY    18
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     4
        COMCDXB - CONVERT DISPLAY CODE TO BINARY.                     DXB 
  
            12                           DXB      CTEXT  COMCDXB - CONVERT DISPLAY CODE TO BINARY.               COMCDXB     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCDXB     4
                                                  QUAL   COMCDXB                                                 COMCDXB     5
                                 D_D              BASE   D                                                       COMCDXB     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCDXB     7
  
  
  
  
                                        ***       DXB - CONVERT DISPLAY CODE TO BINARY.                          COMCDXB     9
                                        *                                                                        COMCDXB    10
                                        *         G. R. MANSFIELD.   70/10/09.                                   COMCDXB    11
                                        *         G. M. TOWNSEND.    77/05/25.                                   COMCDXB    12
                                        *                                                                        CPSA245    50
                                        *         *******************************************************        CPSA245    51
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245    52
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245    53
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245    54
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245    55
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245    56
                                        *         *******************************************************        CPSA245    57
                                        *                                                                        CPSA245    58
                                        *                                                                        COMCDXB    13
                                        *         DXB CONVERTS A STRING OF DECIMAL OR OCTAL DIGITS INTO          COMCDXB    14
                                        *         INTERNAL INTEGER FORM.                                         COMCDXB    15
  
  
  
  
                                        ***       DXB CONVERTS A STRING OF DISPLAY CODE DIGITS CONTAINED WITHIN  CPS0279     5
                                        *         ONE WORD, LEFT-JUSTIFIED, ZERO-FILLED                          CPS0279     6
                                        *         INTEGER VALUE.  CONVERSION ASSUMES EITHER BASE 8 OR 10 AS      COMCDXB    18
                                        *         SPECIFIED IN THE CALL, BUT THIS IS OVERRIDDEN IF AN EXPLICIT   COMCDXB    19
                                        *         *B* (OCTAL) OR *D* (DECIMAL) IS THE LAST CHARACTER.            COMCDXB    20
                                        *                                                                        COMCDXB    21
                                        *         THE ASSEMBLY OPTION *DXB1$* CONTROLS THE PROCESSING OF         COMCDXB    22
                                        *         AN 8 OR 9 IN AN ASSUMED OCTAL VALUE WHERE NO EXPLICIT *B* OR   COMCDXB    23
                                        *         *D* APPEARS.  IF *DXB1$* IS NOT DEFINED, THIS CASE IS TREATED  COMCDXB    24
                                        *         AS AN ERROR;  IF *DXB1$* IS DEFINED, THE VALUE IS INTERPRETED  COMCDXB    25
                                        *         AS DECIMAL.                                                    COMCDXB    26
                                        *                                                                        COMCDXB    27
                                        *         THE FOLLOWING ARE ALWAYS ERRORS -                              COMCDXB    28
                                        *         (1.)  PRESENCE OF NON-DIGIT IN STRING, EXCEPT IN POST-RADIX.   CPS0279     7
                                        *         (2.)  PRESENCE OF CHARACTER AFTER POST RADIX.                  COMCDXB    30
                                        *         (3.)  PRESENCE OF 8 OR 9 WITH POST RADIX = B.                  COMCDXB    31
                                        *                                                                        COMCDXB    32
                                        *                                                                        COMCDXB    33
                                        *         ENTRY  (X5) = WORD TO CONVERT.                                 COMCDXB    34
                                        *                (B7) .GT. 0 IF DECIMAL BASE ASSUMED.                    COMCDXB    35
                                        *                (B7) = 0 IF OCTAL BASE ASSUMED.                         COMCDXB    36
                                        *                (B1) = 1.                                               COMCDXB    37
                                        *                                                                        COMCDXB    38
                                        *         EXIT   (X6) = CONVERTED DIGITS.                                COMCDXB    39
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     5
        COMCDXB - CONVERT DISPLAY CODE TO BINARY.                     DXB                 COMCDXB 
  
                                        *                (X4) .NE. 0 IF ERROR IN ASSEMBLY.                       COMCDXB    40
                                        *                                                                        COMCDXB    41
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCDXB    42
                                        *                B - 2, 3, 4, 5.                                         COMCDXB    43
                                        *                A - NONE.                                               COMCDXB    44
                                        *                                                                        COMCDXB    45
                                        *         CALLS  NONE.                                                   COMCDXB    46
                                                                                                                 COMCDXB    47
                                                                                                                 COMCDXB    48
            12  22227                    DXB1     LX2    X7,B2       DECIMAL * 10                                COMCDXB    49
                     36727                        IX7    X2+X7                                                   COMCDXB    50
                          20603                   LX6    3           OCTAL * 8                                   COMCDXB    51
                               15213              BX2    -X3*X1      8/9 PRESENCE                                COMCDXB    52
            13  20701                             LX7    1                                                       COMCDXB    53
                     12661                        BX6    X6+X1       OCTAL + NEW DIGIT                           COMCDXB    54
                          36771                   IX7    X7+X1       DECIMAL + NEW DIGIT                         COMCDXB    55
                               63525              SB5    B5+X2       NOTE 8/9                                    COMCDXB    56
            14  20506                    DXB2     LX5    6           NEXT CHARACTER                              COMCDXB    57
                     15150                        BX1    -X0*X5                                                  COMCDXB    58
                          63410                   SB4    X1          CHECK CHARACTER                             COMCDXB    59
                               22244              LX2    X4,B4                                                   COMCDXB    60
            15  73113                             SX1    X1+B3       CONVERT CHARACTER                           COMCDXB    61
                     11505                        BX5    X0*X5       CLEAR CHARACTER                             COMCDXB    62
                          0332000012 +            NG     X2,DXB1     LOOP IF DIGIT                               COMCDXB    63
                                                                                                                 COMCDXB    64
                                        *         CHECK FOR POST RADIX SPECIFICATION.                            COMCDXB    65
                                                                                                                 COMCDXB    66
                                         DXB1$    IF     -DEF,DXB1$                                              COMCDXB    67
            16  66370                             SB3    B7          OCTAL/DECIMAL FLAG                          COMCDXB    68
                     0440000020 +                 ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB    69
                               67342              SB3    B4-B2                                                   COMCDXB    70
            17  0430000020 +                      ZR     B3,DXB3     IF EXPLICIT *B*                             COMCDXB    71
                          0532000022 +            NE     B3,B2,DXBX  IF OTHER BUT NOT *D* (ERROR), RETURN        COMCDXB    72
            20  0315000022 +             DXB3     NZ     X5,DXBX     IF MORE CHARACTERS (ERROR), RETURN          COMCDXB    73
                          7145000000              SX4    B5+         CLEAR ERROR FLAG UNLESS 8 OR 9 PRESENT      COMCDXB    74
            21  0430000022 +                      ZR     B3,DXBX     IF BASE = OCTAL, RETURN                     COMCDXB    75
                          10677                   BX6    X7          SET DECIMAL                                 COMCDXB    76
                               76400              SX4    B0          CLEAR ERROR FLAG                            COMCDXB    77
                                         DXB1$    ELSE                                                           COMCDXB    78
                                                  SB3    B5+B7       SET BASE (ASSUMED OR 8/9)                   COMCDXB    79
                                                  ZR     B4,DXB3     IF END OF ASSEMBLY                          COMCDXB    80
                                                  SB3    B4-B2                                                   CPS0279     8
                                                  NZ     X5,DXBX     IF NOT LAST CHARACTER, RETURN               COMCDXB    82
                                                  EQ     B3,B2,DXB3  IF *D*                                      CPS0279     9
                                                  NZ     B3,DXBX     IF NOT *B*                                  CPS0279    10
                                                  NZ     B5,DXBX     IF 8/9 PRESENT.                             CPS0279    11
                                                  SB3    B0          SET OCTAL                                   COMCDXB    86
                                         DXB3     MX4    0           CLEAR ERROR                                 COMCDXB    87
                                                  ZR     B3,DXBX     IF BASE = OCTAL, RETURN                     COMCDXB    88
                                                  BX6    X7          SET DECIMAL                                 COMCDXB    89
                                         DXB1$    ENDIF                                                          COMCDXB    90
                                                                                                                 COMCDXB    91
            22  0400400022 +             DXB      SUBR               ENTRY/EXIT                                  COMCDXB    92
            23  7140007774                        SX4    7774B       MASK FOR (0123456789)                       COMCDXB    93
                          43066                   MX0    -6          (X0) = CHARACTER MASK                       COMCDXB    94
                               76600              SX6    B0          CLEAR OCTAL                                 COMCDXB    95
            24  66211                             SB2    B1+B1       (B2) = 2                                    COMCDXB    96
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     6
        COMCDXB - CONVERT DISPLAY CODE TO BINARY.                     DXB                 COMCDXB 
  
                     13777                        BX7    X7-X7       CLEAR DECIMAL                               COMCDXB    97
                          6130777744              SB3    -1R0        (B3) = CONVERSION CONSTANT                  COMCDXB    98
            25  6150000006                        SB5    6           TEST FIRST CHARACTER                        COMCDXB    99
                          22255                   LX2    X5,B5                                                   COMCDXB   100
                               15320              BX3    -X0*X2                                                  COMCDXB   101
            26  0303000020 +                      ZR     X3,DXB3     IF ZERO WORD                                COMCDXB   102
                          73233                   SX2    X3+B3                                                   COMCDXB   103
                               20425              LX4    21                                                      COMCDXB   104
            27  0332000022 +                      NG     X2,DXBX     IF FIRST CHARACTER ALPHABETIC, RETURN       COMCDXB   105
                          6150000000              SB5    B0+         CLEAR 8/9 PRESENT                           COMCDXB   106
            30  7130000007                        SX3    7           MASK FOR 8/9                                COMCDXB   107
                          0400000014 +            EQ     DXB2        ENTER CONVERSION LOOP                       COMCDXB   108
  
  
  
  
                                 D_D              BASE   *                                                       COMCDXB   110
                                         QUAL$    IF     -DEF,QUAL$                                              COMCDXB   111
                                                  QUAL   *                                                       COMCDXB   112
                                  22 +   DXB      EQU    /COMCDXB/DXB                                            COMCDXB   113
                                  22 +   DXB=     EQU    /COMCDXB/DXB                                            F4720D     10
                                         QUAL$    ENDIF                                                          COMCDXB   114
                                         DXB      ENDX                                                           COMCDXB   115
                                                  ENTRY  DXB                                                     UTILITY    20
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     7
        FA=SET - SET FILE TABLES
  
            31                                    CTEXT  FA=SET - SET FILE TABLES                                FA=SET      2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            FA=SET      4
                                                  QUAL   FA=SET                                                  FA=SET      5
                                                                                                                 FA=SET      6
                                                                                                                 FA=SET      7
                                         #RM      IFEQ   CP#RM,0                                                 FA=SET      8
                                                                                                                 FA=SET      9
                                        **        FA=SET - SET FILE ENVIRONMENT TABLE  (CIO DIRECT I/O).         FA=SET     10
                                        *                                                                        FA=SET     11
                                        *         SETS CIO BUFFER ADDRESSES IN FET.  EITHER THE FWA OR LWA+1 OF  FA=SET     12
                                        *         THE BUFFER SPACE IS REQUIRED AS AN INPUT PARAMETER.  THE OTHER FA=SET     13
                                        *         ADDRESS IS COMPUTED.  BOTH ADDRESSES ARE IN REGISTERS ON EXIT. FA=SET     14
                                        *         BUFFER LENGTH IS OBTAINED FROM THE FET (I.CBSET).              FA=SET     15
                                        *                                                                        FA=SET     16
                                        *                                                                        FA=SET     17
                                        *         ENTRY  (X2) = FET ADDRESS                                      FA=SET     18
                                        *                (B1) = 1                                                FA=SET     19
                                        *                (B2) = BUFFER FWA OR 0                                  FA=SET     20
                                        *                (B3) = 0 OR BUFFER LWA+1                                FA=SET     21
                                        *                                                                        FA=SET     22
                                        *         EXIT   (X2) = FET ADDRESS                                      FA=SET     23
                                        *                (B1) = 1                                                FA=SET     24
                                        *                (B2) = BUFFER FWA                                       FA=SET     25
                                        *                (B3) = BUFFER LWA+1                                     FA=SET     26
                                        *                                                                        FA=SET     27
                                        *         USES   X - 1, 3, 4, 6, 7                                       FA=SET     28
                                        *                A - 1, 4, 6, 7                                          FA=SET     29
                                        *                B - 2, 3                                                FA=SET     30
                                        *                                                                        FA=SET     31
                                        *         CALLS  NONE                                                    FA=SET     32
                                                                                                                 FA=SET     33
                                                                                                                 FA=SET     34
            31  0400400031 +             FA=SET   JP     *+4S15      ** ENTRY/EXIT **                            FA=SET     35
            32  53120                             SA1    X2          (X1) = FET WORD 1                           FA=SET     36
                     20173                        LX1    59-0                                                    FA=SET     37
                          0331000034 +            MI     X1,SET2     IF FILE QUIET                               FA=SET     38
            33  0100000000 X                      RECALL X2          WAIT FOR FILE QUIET; RETURNS (X2) = FET ADR FA=SET     39
                                                                                                                 FA=SET     40
                                        *         NEXT SEQUENCE SETS (X6)=FWA AND (X7)=LWA+1, GIVEN EITHER       FA=SET     41
                                        *         (B2)=FWA AND (B3)=0,  OR,  (B2)=0 AND (B3)=LWA+1.              FA=SET     42
                                                                                                                 FA=SET     43
            34  5212000005               SET2     SA1    X2+I.CBSET                                              FA=SET     44
                          77323                   SX3    B2-B3                                                   FA=SET     45
                               21373              AX3    59D                                                     FA=SET     46
            35  21122                             AX1    18          (X1) = CIO BUFFER LENGTH                    FA=SET     47
                     15631                        BX6    -X1*X3                                                  FA=SET     48
                          46000                   NO                                                             FA=SET     49
                               15713              BX7    -X3*X1                                                  FA=SET     50
            36  76323                             SX3    B2+B3       FWA OR LWA+1                                FA=SET     51
                     36663                        IX6    X6+X3       (X6) = BUFFER FWA                           FA=SET     52
                          20122                   LX1    18                                                      FA=SET     53
                               63260              SB2    X6          (B2) = BUFFER FWA                           FA=SET     54
            37  36773                             IX7    X7+X3       (X7) = BUFFER LWA+1                         FA=SET     55
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     8
        FA=SET - SET FILE TABLES                                      SET                 FA=SET
  
                                                                                                                 FA=SET     56
                                        *         STORE VALUES IN FET.                                           FA=SET     57
                                                                                                                 FA=SET     58
                     5262000003                   SA6    X2+I.OUT    OUT                                         FA=SET     59
                               63370              SB3    X7          (B3) = BUFFER LWA+1                         FA=SET     60
            40  5242000004                        SA4    X2+I.LIMIT  FET+4                                       FA=SET     61
                          43352                   MX3    42                                                      FA=SET     62
                               11443              BX4    X4*X3       SAVE PRU SIZE ETC.                          FA=SET     63
            41  12774                             BX7    X7+X4                                                   FA=SET     64
                     54740                        SA7    A4          LIMIT                                       FA=SET     65
                          55661                   SA6    A6-B1       IN                                          FA=SET     66
                               12716              BX7    X1+X6       24/0, 18/PASS 1 LEN, 18/PASS 1 FWA          FA=SET     67
            42  55161                             SA1    A6-B1       FET+1                                       FA=SET     68
                     11113                        BX1    X1*X3       SAVE FET LENGTH ETC.                        FA=SET     69
                          12661                   BX6    X6+X1                                                   FA=SET     70
                               54610              SA6    A1          FIRST                                       FA=SET     71
            43  54771                             SA7    A7+B1       CBSET                                       FA=SET     72
                     0400000031 +                 JP     FA=SET      EXIT                                        FA=SET     73
                                                                                                                 FA=SET     74
                                         #RM      ELSE                                                           FA=SET     75
                                                                                                                 FA=SET     76
                                        **        FA=SET - SET FILE BUFFER ADDRESSES (RECORD MANAGER I/O).       FA=SET     77
                                        *                                                                        FA=SET     78
                                        *         INITIALIZES HOLDING BUFFER ADDRESSES IN FIT AND PSEUDO-FET.    FA=SET     79
                                        *         EITHER THE FWA OR LWA+1 OF THE BUFFER SPACE IS REQUIRED AS AN  FA=SET     80
                                        *         INPUT PARAMETER.  THE OTHER ADDRESS WILL BE COMPUTED.  BOTH    FA=SET     81
                                        *         ADDRESSES ARE IN REGISTERS ON EXIT.  BUFFER LENGTH IS          FA=SET     82
                                        *         OBTAINED FROM THE PSEUDO-FET (I.HBSET).                        FA=SET     83
                                        *                                                                        FA=SET     84
                                        *                                                                        FA=SET     85
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1                                FA=SET     86
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=SET     87
                                        *                (B1) = 1                                                FA=SET     88
                                        *                (B2) = BUFFER FWA OR 0                                  FA=SET     89
                                        *                (B3) = 0 OR BUFFER LWA+1                                FA=SET     90
                                        *                                                                        FA=SET     91
                                        *         EXIT   (X2) = PSEUDO-FET WORD 1                                FA=SET     92
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=SET     93
                                        *                (B1) = 1                                                FA=SET     94
                                        *                (B2) = BUFFER FWA                                       FA=SET     95
                                        *                (B3) = BUFFER LWA+1                                     FA=SET     96
                                        *                                                                        FA=SET     97
                                        *         USES   X - 1, 6, 7                                             FA=SET     98
                                        *                A - 1, 6, 7                                             FA=SET     99
                                        *                B - 2, 3, 4                                             FA=SET    100
                                        *                                                                        FA=SET    101
                                        *         SAVES  (A5), (X5)                                              FA=SET    102
                                        *                                                                        FA=SET    103
                                        *         CALLS  SAR, STORE                                              FA=SET    104
                                                                                                                 FA=SET    105
                                                                                                                 FA=SET    106
                                         FA=SET   JP     *+4S15      ** ENTRY/EXIT **                            FA=SET    107
                                                                                                                 FA=SET    108
                                        *         INITIALIZE -FILE SPILLED- FLAG TO -UNCONDITIONAL FLUSH-        FA=SET    109
                                        *         FLAG VALUE.  THIS ALLOWS SMALL FILES TO BE FLUSHED TO DISK,    FA=SET    110
                                        *         EVEN THOUGH THE RELATED HOLDING BUFFER MAY HAVE NEVER BEEN     FA=SET    111
                                        *         COMPLETELY FILLED.                                             FA=SET    112
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE     9
        FA=SET - SET FILE TABLES                                      SET                 FA=SET
  
                                                                                                                 FA=SET    113
                                                  MX1    1                                                       FA=SET    114
                                                  LX6    X2,B1                                                   FA=SET    115
                                                  LX1    -59D+58D                                                FA=SET    116
                                                  BX7    -X1*X2      CLEAR OLD SPILL FLAG                        FA=SET    117
                                                  BX6    X1*X6       EXTRACT FLUSH FLAG                          FA=SET    118
                                                  BX7    X6+X7                                                   FA=SET    119
                                                  SA7    A2          RESET SPILL FLAG = FLUSH FLAG               FA=SET    120
                                                                                                                 FA=SET    121
                                        *         DETERMINE IF FWA-UP OR LWA-DOWN MODE.                          FA=SET    122
                                                                                                                 FA=SET    123
                                                  SB4    B1          (B4) = +1 = MODE SWITCH TO FWA-UP           FA=SET    124
                                                  NZ     B2,SET2     IF (B2) .NZ., MODE IS FWA-UP                FA=SET    125
                                                  SB4    -B1         (B4) = -1 = MODE SWITCH TO LWA-DOWN         FA=SET    126
                                                                                                                 FA=SET    127
                                         SET2     PL     X2,SET3     IF FILE HAS NO HOLDING BUFFER               FA=SET    128
                                                  SA1    A2+I.HBSET  (X1) = HOLDING BUFFER RESET PARAMS          FA=SET    129
                                                  RJ     SAR                                                     FA=SET    130
                                                  BX7    X1+X6                                                   FA=SET    131
                                                  SA6    A2+B1       HOLD BUF FWA   TO (P-FET+I.FIRST)           FA=SET    132
                                                  SA7    A1          ADD FWA TO RESET PARAM WORD                 FA=SET    133
                                                  SA6    A6+B1                      TO (P-FET+I.IN)              FA=SET    134
                                                  SX7    B3                                                      FA=SET    135
                                                  SA6    A6+B1                      TO (P-FET+I.OUT)             FA=SET    136
                                                  SA7    A6+B1       HOLD BUF LWA+1 TO (P-FET+I.LIMIT)           FA=SET    137
                                                  STORE  X2,WSA=X6,X1                                            FA=SET    138
                                                  SX7    B3-B2       (X7) = HOLDING BUFFER LENGTH (WORDS)        FA=SET    139
                                                  IX6    X7+X7                                                   FA=SET    140
                                                  LX7    3                                                       FA=SET    141
                                                  IX6    X6+X7       (X6) = LENGTH (CHARACTERS)                  FA=SET    142
                                                  STORE  X2,PTL=X6,X1                                            FA=SET    143
                                                  JP     FA=SET      EXIT                                        FA=SET    144
                                                                                                                 FA=SET    145
                                         SET3     MX1    0           DUMMY LENGTH = 0 TO FORCE FWA = LWA+1       FA=SET    146
                                                  RJ     SAR                                                     FA=SET    147
                                                  JP     FA=SET      EXIT                                        FA=SET    148
                                         SAR      SPACE  4,8                                                     FA=SET    149
                                        **        SAR - SET ADDRESSES IN REGISTERS.                              FA=SET    150
                                        *                                                                        FA=SET    151
                                        *                                                                        FA=SET    152
                                        *         ENTRY  (X1) = LEN * 1S18                                       FA=SET    153
                                        *                (B2) = FWA OR 0                                         FA=SET    154
                                        *                (B3) = 0 OR LWA+1                                       FA=SET    155
                                        *                (B4) = +1 IF FWA-UP MODE AND (B2) = FWA                 FA=SET    156
                                        *                     = -1 IF LWA-DOWN MODE AND (B3) = LWA+1             FA=SET    157
                                        *                                                                        FA=SET    158
                                        *         EXIT   (X1) = LEN * 1S18  (LOWER 18 BITS CLEAR)                FA=SET    159
                                        *                (X6) = FWA                                              FA=SET    160
                                        *                (B2) = FWA                                              FA=SET    161
                                        *                (B3) = LWA+1                                            FA=SET    162
                                        *                                                                        FA=SET    163
                                        *         USES   X - 1, 6                                                FA=SET    164
                                        *                A - NONE                                                FA=SET    165
                                        *                B - 2, 3                                                FA=SET    166
                                        *                                                                        FA=SET    167
                                        *         CALLS  NONE                                                    FA=SET    168
                                                                                                                 FA=SET    169
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    10
        FA=SET - SET FILE TABLES                                      SET                 FA=SET
  
                                                                                                                 FA=SET    170
                                         SAR2     BX6    -X1         (X6) = - BUFFER LENGTH                      FA=SET    171
                                                  LX1    18D                                                     FA=SET    172
                                                  SB2    X6+B3       (B2) = BUFFER FWA                           FA=SET    173
                                                  SX6    X6+B3                                                   FA=SET    174
                                                                                                                 FA=SET    175
                                         SAR      JP     *+4S15      ** ENTRY/EXIT **                            FA=SET    176
                                                  AX1    18D                                                     FA=SET    177
                                                  MI     B4,SAR2     IF LWA-DOWN MODE                            FA=SET    178
                                                  SB3    X1+B2       (B3) = BUFFER LWA+1                         FA=SET    179
                                                  LX1    18D                                                     FA=SET    180
                                                  SX6    B2                                                      FA=SET    181
                                                  EQ     SAR         EXIT                                        FA=SET    182
                                                  SPACE  4                                                       FA=SET    183
                                         #RM      ENDIF                                                          FA=SET    184
                                                                                                                 FA=SET    185
                                                                                                                 FA=SET    186
                                                  IF     -DEF,QUAL$,2                                            FA=SET    187
                                                  QUAL   *                                                       FA=SET    188
                                  31 +   FA=SET   EQU    /FA=SET/FA=SET                                          FA=SET    189
                                                                                                                 FA=SET    190
                                                  IF     -ABS,FA=SET,1                                           FA=SET    191
                                                  ENTRY  FA=SET                                                  FA=SET    192
                                                                                                                 FA=SET    193
                                                  ENDX                                                           FA=SET    194
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    11
        COMCMVE - MOVE BLOCK OF DATA.                                 MVE 
  
            43                           MVE      CTEXT  COMCMVE - MOVE BLOCK OF DATA.                           COMCMVE     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCMVE     4
                                                  QUAL   COMCMVE                                                 COMCMVE     5
                                 D_D              BASE   D                                                       COMCMVE     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCMVE     7
  
  
  
  
                                        ***       MVE - MOVE BLOCK OF DATA.                                      COMCMVE     9
                                        *                                                                        COMCMVE    10
                                        *         G. R. MANSFIELD.   70/10/09.                                   COMCMVE    11
                                        *         R. E. TATE.        73/11/04.                                   COMCMVE    12
                                        *                                                                        CPSA245    95
                                        *         *******************************************************        CPSA245    96
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245    97
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245    98
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245    99
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   100
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   101
                                        *         *******************************************************        CPSA245   102
                                        *                                                                        CPSA245   103
                                        *                                                                        COMCMVE    13
                                        *         MVE MOVES A SPECIFIED BLOCK OF DATA TO A SPECIFIED             COMCMVE    14
                                        *         LOCATION.                                                      COMCMVE    15
  
  
  
  
                                        ***       MVE - MOVES A BLOCK OF DATA. GIVEN A SOURCE                    COMCMVE    17
                                        *         ADDRESS, WORD COUNT, AND DESTINATION ADDRESS, MVE MOVES        COMCMVE    18
                                        *         THE DATA FROM SOURCE ADDRESS THROUGH (SOURCE ADDRESS +         COMCMVE    19
                                        *         WORD COUNT - 1) TO DESTINATION ADDRESS THROUGH                 COMCMVE    20
                                        *         (DESTINATION ADDRESS + WORD COUNT - 1).  THE MOVE MAY          COMCMVE    21
                                        *         BE IN EITHER DIRECTION.                                        COMCMVE    22
                                        *                                                                        COMCMVE    23
                                        *         NOTE-  UPWARD MOVE MEANS TOWARD RA.                            COMCMVE    24
                                        *                                                                        COMCMVE    25
                                        *         ENTRY  (X1) = WORD COUNT.                                      COMCMVE    26
                                        *                (X2) = SOURCE ADDRESS.                                  COMCMVE    27
                                        *                (X3) = DESTINATION ADDRESS.                             COMCMVE    28
                                        *                (B1) = 1.                                               COMCMVE    29
                                        *                                                                        COMCMVE    30
                                        *         EXIT   NONE.                                                   COMCMVE    31
                                        *                                                                        COMCMVE    32
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCMVE    33
                                        *                B - 7.                                                  COMCMVE    34
                                        *                A - 2, 4, 6, 7.                                         COMCMVE    35
                                        *                                                                        COMCMVE    36
                                        *         CALLS  NONE.                                                   COMCMVE    37
                                                                                                                 COMCMVE    38
                                                                                                                 COMCMVE    39
                                        *         COMPARE MOVE UNIT BUFFER AREA/PRESET.                          COMCMVE    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    12
        COMCMVE - MOVE BLOCK OF DATA.                                 MVE                 COMCMVE 
  
                                        *         MVEB IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID     COMCMVE    41
                                        *         THE INSTRUCTION STACK.  LATER MVEB IS USED FOR THE CMU         COMCMVE    42
                                        *         DESCRIPTOR WORD.                                               COMCMVE    43
                                                                                                                 COMCMVE    44
            44                           MVE11    BSS    0           ENTRY FOR PRESET                            COMCMVE    45
            44  37423                    MVEB     IX4    X2-X3       CHECK DIRECTION OF MOVE  (NO CMU)           COMCMVE    46
                     43773                        MX7    59                                                      COMCMVE    47
                          0400000053 +            EQ     MVE13                                                   COMCMVE    48
                                                                                                                 COMCMVE    49
            45  10722                    MVEC     BX7    X2          CHECK IF CMU AVAILABLE (BUFFER AREA FWA)    COMCMVE    50
                     5120000065                   SA2    RA.CMU                                                  COMCMVE    51
            46  0322000047 +                      PL     X2,MVE12    IF NO CMU                                   COMCMVE    52
                          5140000052 +            SA4    MVED                                                    COMCMVE    53
            47  10644                    MVE12    BX6    X4                                                      COMCMVE    54
                     22207                        LX2    X7          RESTORE X2                                  COMCMVE    55
                          5160000073 +            SA6    MVEA                                                    COMCMVE    56
            50  0100000050 +                      RJ     *           VOID INSTRUCTION STACK.                     CPSA163     6
            51  0400000073 +                      EQ     MVE1        RESTART LOOP                                COMCMVE    57
                                                                                                                 COMCMVE    58
            52  37423                    MVED     IX4    X2-X3       CHECK DIRECTION OF MOVE (CMU)               COMCMVE    59
                     10711                        BX7    X1          SET WORD COUNT                              COMCMVE    60
                          10100                   BX1    X0          SAVE X0                                     COMCMVE    61
                               20236              LX2    30                                                      COMCMVE    62
                                                                                                                 COMCMVE    63
                                        *         DETERMINE MOVE DIRECTION.                                      COMCMVE    64
                                                                                                                 COMCMVE    65
            53  15617                    MVE13    BX6    -X7*X1                                                  COMCMVE    66
                     37116                        IX1    X1-X6       REDUCE WORD COUNT TO EVEN NUMBER            COMCMVE    67
                          0324000060 +            PL     X4,MVE15    IF MOVE UP                                  COMCMVE    68
                                                                                                                 COMCMVE    69
                                        *         BEGIN DOWNWARD MOVE.                                           COMCMVE    70
                                                                                                                 COMCMVE    71
            54  0306000056 +                      ZR     X6,MVE14    IF WORD COUNT EVEN                          COMCMVE    72
                          63710                   SB7    X1                                                      COMCMVE    73
                               53427              SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE    74
            55  10644                             BX6    X4                                                      COMCMVE    75
                     53637                        SA6    X3+B7                                                   COMCMVE    76
            56  36221                    MVE14    IX2    X2+X1                                                   COMCMVE    77
                     36331                        IX3    X3+X1                                                   COMCMVE    78
                          6170777775              SB7    -2                                                      COMCMVE    79
            57  0400000063 +                      EQ     MVE16                                                   COMCMVE    80
                                                                                                                 COMCMVE    81
                                        *         BEGIN UPWARD MOVE.                                             COMCMVE    82
                                                                                                                 COMCMVE    83
            60  6170777775               MVE15    SB7    -2          UPWARD MOVE                                 COMCMVE    84
                          73227                   SX2    X2+B7                                                   COMCMVE    85
                               73337              SX3    X3+B7                                                   COMCMVE    86
            61  66711                             SB7    B1+B1                                                   COMCMVE    87
                     0306000063 +                 ZR     X6,MVE16    IF WORD COUNT EVEN                          COMCMVE    88
                               53427              SA4    X2+B7       MOVE INITIAL WORD                           COMCMVE    89
            62  36226                             IX2    X2+X6                                                   COMCMVE    90
                     10744                        BX7    X4                                                      COMCMVE    91
                          53737                   SA7    X3+B7                                                   COMCMVE    92
                               36336              IX3    X3+X6                                                   COMCMVE    93
                                                                                                                 COMCMVE    94
                                        *         INITIALIZE MOVE LOOP.                                          COMCMVE    95
                                                                                                                 COMCMVE    96
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    13
        COMCMVE - MOVE BLOCK OF DATA.                                 MVE                 COMCMVE 
  
            63  0301000072 +             MVE16    ZR     X1,MVE=     IF MOVE COMPLETE, RETURN                    CPSA104    18
                          53227                   SA2    X2+B7       MOVE FIRST 2 WORDS                          COMCMVE    98
                               54421              SA4    A2+B1                                                   COMCMVE    99
            64  10622                             BX6    X2                                                      COMCMVE   100
                     22704                        LX7    X4                                                      COMCMVE   101
                          53637                   SA6    X3+B7                                                   COMCMVE   102
                               54761              SA7    A6+B1                                                   COMCMVE   103
            65  76311                             SX3    B1+B1                                                   COMCMVE   104
                     37113                        IX1    X1-X3                                                   COMCMVE   105
                          0301000072 +            ZR     X1,MVE=     IF MOVE COMPLETE, RETURN                    CPSA104    19
            66  54227                             SA2    A2+B7       NEXT 2 WORDS                                COMCMVE   107
                     54447                        SA4    A4+B7                                                   COMCMVE   108
                                                                                                                 COMCMVE   109
                                        *         MOVE LOOP.                                                     COMCMVE   110
                                                                                                                 COMCMVE   111
            67  10622                    MVE17    BX6    X2                                                      COMCMVE   112
                     54227                        SA2    A2+B7                                                   COMCMVE   113
                          22704                   LX7    X4                                                      COMCMVE   114
                               54447              SA4    A4+B7                                                   COMCMVE   115
            70  37113                             IX1    X1-X3                                                   COMCMVE   116
                     46000                        NO                                                             COMCMVE   117
                          54667                   SA6    A6+B7                                                   COMCMVE   118
                               54777              SA7    A7+B7                                                   COMCMVE   119
            71  0311000067 +                      NZ     X1,MVE17                                                COMCMVE   120
                                                                                                                 COMCMVE   121
            72                           MVEE     BSS    0           END OF CMU BUFFER AREA                      COMCMVE   122
                                  25     MVELL    EQU    MVEE-MVEC   NUMBER OF WORDS IN BUFFER                   COMCMVE   123
                                                                                                                 COMCMVE   124
            72  0400400072 +             MVE=     SUBR               ENTRY/EXIT                                  COMCMVE   125
            73                           MVEA     BSS    0                                                       COMCMVE   126
            73  5140000044 +             MVE1     SA4    MVEB        INITIALIZE FOR CMU                          COMCMVE   127
                          0100000044 +            RJ     MVE11                                                   COMCMVE   128
                                        *         IX4    X2-X3       CHECK DIRECTION OF MOVE (NO CMU)            COMCMVE   129
                                        *         MX7    59          (NO CMU)                                    COMCMVE   130
                                        *         EQ     MVE13       (NO CMU)                                    COMCMVE   131
                                        *                                                                        COMCMVE   132
                                        *         IX4    X2-X3       CHECK DIRECTION OF MOVE (CMU)               COMCMVE   133
                                        *         BX7    X1          (CMU)                                       COMCMVE   134
                                        *         BX1    X0          SAVE X0 (CMU)                               COMCMVE   135
                                        *         LX2    30          (CMU)                                       COMCMVE   136
                                                                                                                 COMCMVE   137
                                        *         MOVE DATA WITH CMU.                                            COMCMVE   138
                                                                                                                 COMCMVE   139
            74  0307000072 +                      ZR     X7,MVE=     IF NO DATA TO MOVE, RETURN                  CPSA104    20
                          7267776314              SX6    X7-819                                                  COMCMVE   141
            75  10044                             BX0    X4                                                      COMCMVE   142
                     0334000076 +                 NG     X4,MVE2     IF MOVE DOWNWARD                            COMCMVE   143
                               14044              BX0    -X4                                                     COMCMVE   144
            76  36007                    MVE2     IX0    X0+X7                                                   COMCMVE   145
                     11606                        BX6    X0*X6                                                   COMCMVE   146
                          0326000101 +            PL     X6,MVE3     IF BLOCK TOO LONG FOR 1 MOVE OR BLOCKS LAP  COMCMVE   147
            77  10077                             BX0    X7          SET UP FOR 1 MOVE                           COMCMVE   148
                     12223                        BX2    X2+X3                                                   COMCMVE   149
                          13777                   BX7    X7-X7       SET TO FORCE EXIT                           COMCMVE   150
                               43470              MX4    -4                                                      COMCMVE   151
           100  6170000121 +                      SB7    MVE9                                                    COMCMVE   152
                          0400000123 +            EQ     MVE10                                                   COMCMVE   153
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    14
        COMCMVE - MOVE BLOCK OF DATA.                                 MVE                 COMCMVE 
  
                                                                                                                 COMCMVE   154
           101  7160000045 +             MVE3     SX6    MVEC        SET INTERMEDIATE BUFFER ADDRESS             COMCMVE   155
                          0334000112 +            NG     X4,MVE6     IF MOVE DOWNWARD                            COMCMVE   156
                                                                                                                 COMCMVE   157
                                        *         MOVE UPWARD.                                                   COMCMVE   158
                                                                                                                 COMCMVE   159
           102  12226                             BX2    X2+X6                                                   COMCMVE   160
                     20636                        LX6    30                                                      COMCMVE   161
                          12336                   BX3    X3+X6                                                   COMCMVE   162
           103  10077                    MVE4     BX0    X7                                                      COMCMVE   163
                     7277777752                   SX7    X7-MVELL    DECREMENT WORD COUNT                        COMCMVE   164
                               43470              MX4    -4                                                      COMCMVE   165
           104  0337000105 +                      NG     X7,MVE5     IF LAST BLOCK TO MOVE                       COMCMVE   166
                          7100000025              SX0    MVELL                                                   COMCMVE   167
           105  6170000106 +             MVE5     SB7    *+1         SET TO RETURN HERE                          COMCMVE   168
                          0400000123 +            EQ     MVE10                                                   COMCMVE   169
           106  4640000044 +                      IM     MVEB                                                    COMCMVE   170
           107  63770                             SB7    X7                                                      COMCMVE   171
                     10011                        BX0    X1          RESTORE X0                                  COMCMVE   172
                          0771000072 +            LT     B7,B1,MVE=  IF MOVE COMPLETE, RETURN                    CPSA104    21
           110  7140777752                        SX4    -MVELL      UPDATE ADDRESSES                            COMCMVE   174
                          37334                   IX3    X3-X4                                                   COMCMVE   175
                               20436              LX4    30                                                      COMCMVE   176
           111  37224                             IX2    X2-X4                                                   COMCMVE   177
                     0400000103 +                 EQ     MVE4                                                    COMCMVE   178
                                                                                                                 COMCMVE   179
                                        *         MOVE DOWNWARD.                                                 COMCMVE   180
                                                                                                                 COMCMVE   181
           112  20636                    MVE6     LX6    30          SET LAST WORD ADDRESSES OF DATA AREAS       COMCMVE   182
                     12676                        BX6    X7+X6                                                   COMCMVE   183
                          36336                   IX3    X3+X6                                                   COMCMVE   184
                               20636              LX6    30                                                      COMCMVE   185
           113  36226                             IX2    X2+X6                                                   COMCMVE   186
           114  7160000025               MVE7     SX6    MVELL                                                   COMCMVE   187
                          73070                   SX0    X7                                                      COMCMVE   188
                               37776              IX7    X7-X6                                                   COMCMVE   189
           115  43470                             MX4    -4                                                      COMCMVE   190
                     0337000116 +                 NG     X7,MVE8     IF LAST BLOCK TO MOVE                       COMCMVE   191
                               10066              BX0    X6                                                      COMCMVE   192
           116  10600                    MVE8     BX6    X0          ADJUST DESTINATION AND SOURCE ADDRESSES     COMCMVE   193
                     37330                        IX3    X3-X0                                                   COMCMVE   194
                          20636                   LX6    30                                                      COMCMVE   195
                               37226              IX2    X2-X6                                                   COMCMVE   196
           117  6170000120 +                      SB7    *+1         SET TO RETURN HERE                          COMCMVE   197
                          0400000123 +            EQ     MVE10                                                   COMCMVE   198
           120  4640000044 +                      IM     MVEB        MOVE DATA TO DESTINATION BUFFER             COMCMVE   199
           121  63770                    MVE9     SB7    X7                                                      COMCMVE   200
                     10011                        BX0    X1          RESTORE X0                                  COMCMVE   201
                          0771000072 +            LT     B7,B1,MVE=  IF MOVE COMPLETE, RETURN                    CPSA104    22
           122  0400000114 +                      EQ     MVE7        LOOP                                        COMCMVE   203
                                                                                                                 COMCMVE   204
                                        *         SETUP MOVE WORD.                                               COMCMVE   205
                                        *         (X0) = NUMBER OF WORDS TO MOVE.                                COMCMVE   206
                                        *         (X4) = 56 BIT MASK.                                            COMCMVE   207
                                                                                                                 COMCMVE   208
           123  22610                    MVE10    LX6    X0,B1       10 * WORD COUNT = CHARACTER COUNT           COMCMVE   209
                     20003                        LX0    3                                                       COMCMVE   210
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    15
        COMCMVE - MOVE BLOCK OF DATA.                                 MVE                 COMCMVE 
  
                          36606                   IX6    X0+X6                                                   COMCMVE   211
                               15064              BX0    -X4*X6      EXTRACT LOWER PORTION                       COMCMVE   212
           124  11446                             BX4    X4*X6       EXTRACT UPPER PORTION                       COMCMVE   213
                     20032                        LX0    26                                                      COMCMVE   214
                          20454                   LX4    48-4                                                    COMCMVE   215
                               12040              BX0    X4+X0                                                   COMCMVE   216
           125  12620                             BX6    X2+X0                                                   COMCMVE   217
                     5160000044 +                 SA6    MVEB        STORE FIRST DESCRIPTOR WORD                 COMCMVE   218
                               12630              BX6    X3+X0                                                   COMCMVE   219
           126  4640000044 +                      IM     MVEB        MOVE DATA TO INTERMEDIATE BUFFER            COMCMVE   220
           127  54660                             SA6    A6          STORE SECOND DESCRIPTOR WORD                COMCMVE   221
                     0277000000                   JP     B7                                                      COMCMVE   222
  
  
  
  
                                 D_D              BASE   *                                                       COMCMVE   224
                                         QUAL$    IF     -DEF,QUAL$                                              COMCMVE   225
                                                  QUAL   *                                                       COMCMVE   226
                                  72 +   MVE=     EQU    /COMCMVE/MVE=                                           COMCMVE   227
                                         QUAL$    ENDIF                                                          COMCMVE   228
                                         MVE      ENDX                                                           COMCMVE   229
                                                  ENTRY  MVE=                                                    UTILITY    23
  
  
  
  
                                 100     RPV=LOL  =      RA.ORG      DEFINE *LAST OVERLAY LOADED* WORD           UTILITY    25
                                                                                                                 UTILITY    26
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                UTILITY    27
                                                  QUAL   CCOMRPV                                                 UTILITY    28
                                         COD      EQUEXT IDP=COD                                                 UTILITY    29
                                                  QUAL   *                                                       UTILITY    30
                                         .TEST    ENDIF                                                          UTILITY    31
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    16
        CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.
  
           127                                    CTEXT  CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.              CCOMRPV     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            CCOMRPV     4
                                                  QUAL   CCOMRPV                                                 CCOMRPV     5
  
  
  
  
                                        **        RPV= - REPRIEVE PROCESSOR.                                     CCOMRPV     7
                                        *                                                                        CCOMRPV     8
                                        *         IF THE PROGRAM IS INTERRUPTED BY THE SYSTEM, *RPV=* GAINS      CCOMRPV     9
                                        *         CONTROL TO ISSUE DAYFILE MESSAGES THAT IDENTIFY THE PROGRAM    CCOMRPV    10
                                        *         UNIT BEING COMPILED AND WHERE THE ERROR OCCURED.  A USER       CCOMRPV    11
                                        *         ROUTINE IS CALLED FOR POST PROCESSING AND ALL FILES IN AN      CCOMRPV    12
                                        *         OUTPUT MODE ARE FLUSHED.  FINALLY, THE ORIGINAL ERROR          CCOMRPV    13
                                        *         CONDITION IS RESTORED TO PERMIT NORMAL *EXIT*                  CCOMRPV    14
                                        *         CONDITION PROCESSING.                                          CCOMRPV    15
                                        *                                                                        CCOMRPV    16
                                        *         ENTRY  (RPV=CLN) = CURRENT LINE NUMBER IN BINARY               CCOMRPV    17
                                        *                            IF DEF, LINE NUMBER MESSAGE ISSUED          CCOMRPV    18
                                        *                (RPV=FVT) = FIRST ENTRY OF A FILE VECTOR --             CCOMRPV    19
                                        *                            42/0LLFN, 18/FET ADDRESS                    CCOMRPV    20
                                        *                            TERMINATED BY A -1 WORD                     CCOMRPV    21
                                        *                            IF DEF, OUTPUT FILES ARE FLUSHED            CCOMRPV    22
                                        *                (RPV=LOL) = LAST OVERLAY LOADED                         CCOMRPV    23
                                        *                            6/PRIMARY,6/SECONDARY,48/UNUSED             CCOMRPV    24
                                        *                            IF DEF, OVERLAY LOADED MESSAGE ISSUED       CCOMRPV    25
                                        *                (RPV=MSG) = IF DEF AND .NE. 0, FIRST WORD OF DAYFILE    CCOMRPV    26
                                        *                             MESSAGE (=C FORMAT) TO BE ISSUED BY RPV=.  CCOMRPV    27
                                        *                (RPV=RNA) = FIRST WORD OF A ROUTINE NAME/ADDRESS TABLE  CCOMRPV    28
                                        *                            BLOCKS OF THE FORM --                       CCOMRPV    29
                                        *                            42/0LNAME, 18/FWA                           CCOMRPV    30
                                        *                            ENDED BY -                                  CCOMRPV    31
                                        *                            1/1,41/UNUSED,18/NEXT BLOCK FWA OR ZERO IF  CCOMRPV    32
                                        *                              LAST BLOCK.                               CCOMRPV    33
                                        *                            IF -DEF, ABS ADDRESS IS USED.               CCOMRPV    34
                                        *                (RPV=URP) = ADDRESS OF USER REPRIEVE PROCESSING,        CCOMRPV    35
                                        *                            42/0,18/ADDRESS TO RJ TO                    CCOMRPV    36
                                        *                                                                        CCOMRPV    37
                                        *                CP#RM = 0 FOR DIRECT CIO, 7 FOR SCOPE 2 RECORD MANGLER  CCOMRPV    38
                                        *                .OS = 1 FOR NOS, 2 FOR SCOPE 2, 3 FOR NOS/BE            CCOMRPV    39
                                        *                                                                        CCOMRPV    40
                                        *         EXIT   MESSAGES POSTED AND BUFFERS FLUSHED.  REINSTATES THE    CCOMRPV    41
                                        *                ERROR CONDITION AND RETURNS CONTROL TO THE OPERATING    CCOMRPV    42
                                        *                SYSTEM.                                                 CCOMRPV    43
                                        *                                                                        CCOMRPV    44
                                        *         CALLS  CDD, CIO=, COD, FRA=, MSG=, SYS=, WNB=                  CCOMRPV    45
                                                                                                                 CCOMRPV    46
                                                                                                                 CCOMRPV    47
           130                           RPV=     BSS    0           SYSTEM ENTRY AT THIS ADDRESS + 21B          CCOMRPV    48
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CCOMRPV    49
           130  0000000271 +             XJP      VFD    12/0,18/LWARPV,30/0                                     CCOMRPV    50
                          0000000000
                                         #OS      ELSE                                                           CCOMRPV    51
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    17
        CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.                    RPV=                CCOMRPV 
  
                                         XJP      VFD    12/0,18/LWARPV,6/0,24/77770014B                         CCOMRPV    52
                                         #OS      ENDIF                                                          CCOMRPV    53
                                                                                                                 CCOMRPV    54
           131                    20              BSSZ   16          EXCHANGE PACKAGE AND RA+1                   CCOMRPV    55
  
  
  
  
                                        **        RPV - REPRIEVE PROCESSOR SYSTEM ENTRY POINT.                   CCOMRPV    57
                                        *                                                                        CCOMRPV    58
                                        *         ENTRY  (XJP TO XJP+15) = EXCHANGE PACKAGE AT TIME OF ERROR     CCOMRPV    59
                                        *                (XJP+16) = CONTENTS OF RA+1 AT THE TIME OF THE ERROR    CCOMRPV    60
                                                                                                                 CCOMRPV    61
           151  6110000001               RPV      SB1    1           SYSTEM RPV ENTRY                            CCOMRPV    62
                                                                                                                 CCOMRPV    63
                                        *         SAVE CONTENTS OF ENTRY POINTS THAT *RPV=* WILL USE.            CCOMRPV    64
                                                                                                                 CCOMRPV    65
                          5110000003 +            SA1    =XCDD                                                   CCOMRPV    66
           152  5120000000 X                      SA2    =XCOD                                                   CCOMRPV    67
                          10611                   BX6    X1                                                      CCOMRPV    68
                               22702              LX7    X2                                                      CCOMRPV    69
           153  5160000250 +                      SA6    RPVE                                                    CCOMRPV    70
                          5076000001              SA7    A6+1                                                    CCOMRPV    71
                                                                                                                 CCOMRPV    72
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CCOMRPV    73
           154  5110000000 X                      SA1    =XSYS=                                                  CCOMRPV    74
                          5120000000 X            SA2    =XWNB=                                                  CCOMRPV    75
           155  5130000000 X                      SA3    =XMSG=                                                  CCOMRPV    76
                          10611                   BX6    X1                                                      CCOMRPV    77
                               22702              LX7    X2                                                      CCOMRPV    78
           156  54671                             SA6    A7+B1                                                   CCOMRPV    79
                     54761                        SA7    A6+B1                                                   CCOMRPV    80
                          10633                   BX6    X3                                                      CCOMRPV    81
                               54671              SA6    A7+B1                                                   CCOMRPV    82
                                                                                                                 CCOMRPV    83
                                         #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                           CCOMRPV    84
           157  5110000474 +                      SA1    =XCIO=                                                  CCOMRPV    85
                          10611                   BX6    X1                                                      CCOMRPV    86
                               54661              SA6    A6+B1                                                   CCOMRPV    87
                                         #RM      ENDIF                                                          CCOMRPV    88
                                         #OS      ENDIF                                                          CCOMRPV    89
                                                                                                                 CCOMRPV    90
                                                                                                                 CCOMRPV    91
                                        *         EXTRACT ERROR ADDRESS.                                         CCOMRPV    92
                                                                                                                 CCOMRPV    93
           160  5150000130 +                      SA5    XJP                                                     CCOMRPV    94
                          43053                   MX0    -17                                                     CCOMRPV    95
                               20530              LX5    24                                                      CCOMRPV    96
           161  15150                             BX1    -X0*X5      EXTRACT P REGISTER                          CCOMRPV    97
                     63210                        SB2    X1                                                      CCOMRPV    98
                          0712000163 +            GT     B2,B1,RPV2  IF P-REGISTER NOT CLEARED                   CCOMRPV    99
           162  5150000000                        SA5    0+                                                      CCOMRPV   100
                          20536                   LX5    59-47+18                                                CCOMRPV   101
                               15150              BX1    -X0*X5      EXTRACT P FROM RA+0                         CCOMRPV   102
           163                           RPV2     BSS    0                                                       CCOMRPV   103
                                                                                                                 CCOMRPV   104
                                                                                                                 CCOMRPV   105
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    18
        CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.                    RPV=                CCOMRPV 
  
                                        *         DETERMINE ROUTINE RELATIVE ADDRESS, IF *RNA* TABLE EXISTS.     CCOMRPV   106
                                                                                                                 CCOMRPV   107
                                         #RPV=    IF DEF,RPV=RNA                                                 CCOMRPV   108
           163  6170000164 +                      SB7    RPV3        (B7) = RETURN ADDRESS                       CCOMRPV   109
                          0400000257 +            EQ     FRA=        FIND RELATIVE ADDRESS                       CCOMRPV   110
                                                                                                                 CCOMRPV   111
           164  0317000165 +             RPV3     NZ     X7,RPV3A    IF RELATIVE                                 CCOMRPV   112
                          43052                   MX0    42                                                      CCOMRPV   113
                               11604              BX6    X0*X4                                                   CCOMRPV   114
           165  5160000243 +             RPV3A    SA6    RPVC+1                                                  CCOMRPV   115
                          5076000001              SA7    A6+1                                                    CCOMRPV   116
                                                                                                                 CCOMRPV   117
                                        *         CONVERT ABS ADDRESS IF NO *RNA* TABLE.                         CCOMRPV   118
                                                                                                                 CCOMRPV   119
                                         #RPV=    ELSE                                                           CCOMRPV   120
                                                  RJ     =XCOD       CONVERT OCTAL DIGITS                        CCOMRPV   121
                                                  MX0    42                                                      CCOMRPV   122
                                                  BX6    X0*X4       ADD ZERO BYTE TERMINATOR                    CCOMRPV   123
                                                  SA6    RPVC+1                                                  CCOMRPV   124
                                         #RPV=    ENDIF                                                          CCOMRPV   125
                                                                                                                 CCOMRPV   126
                                        *         DETERMINE LAST OVERLAY LOADED.                                 CCOMRPV   127
                                                                                                                 CCOMRPV   128
                                         #RPV=    IF     DEF,RPV=LOL                                             CCOMRPV   129
           166  5110000100                        SA1    RPV=LOL     (X1) = LAST OVERLAY 6/PRI,6/SEC,48/UNUSED   CCOMRPV   130
                          43066                   MX0    -6                                                      CCOMRPV   131
                               20106              LX1    6                                                       CCOMRPV   132
           167  15610                             BX6    -X0*X1      PRIMARY LEVEL                               CCOMRPV   133
                     20106                        LX1    6                                                       CCOMRPV   134
                          15710                   BX7    -X0*X1      SECONDARY LEVEL                             CCOMRPV   135
                               20614              LX6    12                                                      CCOMRPV   136
           170  63270                             SB2    X7          (B2) = SECONDARY OVERLAY LEVEL NUMBER       CCOMRPV   137
                     12767                        BX7    X6+X7                                                   CCOMRPV   138
                          5120000247 +            SA2    RPVD+2      * - (0,0)  *                                CCOMRPV   139
           171  20722                             LX7    18                                                      CCOMRPV   140
                     36627                        IX6    X2+X7                                                   CCOMRPV   141
                          5062000000              SA6    A2+                                                     CCOMRPV   142
                                         #RPV=    ENDIF                                                          CCOMRPV   143
                                                                                                                 CCOMRPV   144
                                        *         DETERMINE LAST SOURCE STATEMENT PROCESSED.                     CCOMRPV   145
                                                                                                                 CCOMRPV   146
                                         #RPV=    IF     DEF,RPV=CLN                                             CCOMRPV   147
           172  5110000000 X                      SA1    RPV=CLN     CURRENT LINE NUMBER                         CCOMRPV   148
                          10211                   BX2    X1                                                      CCOMRPV   149
                               21273              AX2    59                                                      CCOMRPV   150
           173  15112                             BX1    -X2*X1      INSURE POSITIVE NUMBER                      CCOMRPV   151
                     0100000003 +                 RJ     =XCDD       CONVERT DECIMAL DIGITS                      CCOMRPV   152
           174  43060                             MX0    48                                                      CCOMRPV   153
                     11604                        BX6    X0*X4       CREATE 12-BIT ZERO BYTE MSG TERMINATOR      CCOMRPV   154
                          5160000241 +            SA6    RPVB+3      LINE NUMBER TO MESSAGE TEXT                 CCOMRPV   155
                                         #RPV=    ENDIF                                                          CCOMRPV   156
                                                                                                                 CCOMRPV   157
                                        *         ISSUE THE DAYFILE MESSAGES.                                    CCOMRPV   158
                                                                                                                 CCOMRPV   159
                                                  IF     DEF,RPV=MSG,1                                           CCOMRPV   160
           175  7110000000 X                      MESSAGE  RPV=MSG,,RCL    *COMPILING NAME*                      CCOMRPV   161
                                                                                                                 CCOMRPV   162
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    19
        CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.                    RPV=                CCOMRPV 
  
                                                  IF     DEF,RPV=CLN,1                                           CCOMRPV   163
           177  7110000236 +                      MESSAGE   RPVB,,RCL      * LAST STATEMENT BEGAN AT LINE NNNN*  CCOMRPV   164
                                                                                                                 CCOMRPV   165
           201  7110000242 +                      MESSAGE   RPVC,,RCL      * ERROR AT XXXXXX IN YYYYYYY*         CCOMRPV   166
                                                                                                                 CCOMRPV   167
                                                  IF     DEF,RPV=LOL,1                                           CCOMRPV   168
           203  7110000245 +                      MESSAGE   RPVD,,RCL      * LAST OVERLAY LOADED - (P,S)*        CCOMRPV   169
                                                                                                                 CCOMRPV   170
                                        *         CALL USER REPRIEVE PROCESSOR.                                  CCOMRPV   171
                                                                                                                 CCOMRPV   172
                                         #RPV=    IF     DEF,RPV=URP                                             CCOMRPV   173
           205  5110000000 X                      SA1    RPV=URP     USER REPRIEVE PROCESSOR                     CCOMRPV   174
                          0301000212 +            ZR     X1,RPV4     IF NO USER ROUTINE SPECIFIED                CCOMRPV   175
                                                                                                                 CCOMRPV   176
           206  43053                             MX0    43                                                      CCOMRPV   177
                     11301                        BX3    X0*X1                                                   CCOMRPV   178
                          0313000212 +            NZ     X3,RPV4     IF BAD ADDRESS                              CCOMRPV   179
                                                                                                                 CCOMRPV   180
           207  7120000212 +                      SX2    RPV4                                                    CCOMRPV   181
                          63710                   SB7    X1                                                      CCOMRPV   182
                               20240              LX2    32                                                      CCOMRPV   183
           210  0770000212 +                      MI     B7,RPV4     IF BAD ADDRESS                              CCOMRPV   184
                                                                                                                 CCOMRPV   185
                          27602                   PX6    X2                                                      CCOMRPV   186
                               20672              LX6    -2          (X6) = *EQ RPV4*                            CCOMRPV   187
           211  56670                             SA6    B7          STORE FOR USER PROCESSOR RETURN             CCOMRPV   188
                     0277000001                   JP     B7+1        CALL USER PROCESSOR...                      CCOMRPV   189
           212                           RPV4     BSS    0           ...RETURN FROM USER PROCESSOR               CCOMRPV   190
                                         #RPV=    ENDIF                                                          CCOMRPV   191
                                                                                                                 CCOMRPV   192
                                        *         FLUSH FILE I/O BUFFERS (DIRECT CIO I/O ONLY).                  CCOMRPV   193
                                                                                                                 CCOMRPV   194
                                         #RPV=    IF     DEF,RPV=FVT IF FILE VECTOR TABLE EXISTS                 CCOMRPV   195
                                         #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                           CCOMRPV   196
           212  5100000000 X                      SA0    RPV=FVT                                                 CCOMRPV   197
                          6170000000              SB7    +                                                       CCOMRPV   198
           213  54207                    RPV5     SA2    A0+B7       (X2) = NEXT FILE FET ADDRESS                CCOMRPV   199
                     63621                        SB6    X2+B1                                                   CCOMRPV   200
                          0460000222 +            ZR     B6,RPV7     IF END OF TABLE                             CCOMRPV   201
           214  0302000221 +                      ZR     X2,RPV6     IF FILE DESELECTED BY CONTROL CARD OPTION   CCOMRPV   202
                          53120                   SA1    X2          (X1) = FET WORD 1                           CCOMRPV   203
                               43066              MX0    -6                                                      CCOMRPV   204
           215  76610                             SX6    B1                                                      CCOMRPV   205
                     12716                        BX7    X1+X6                                                   CCOMRPV   206
                          5130000235 +            SA3    RPVA        (X3) = SHIFT TEST MASK FOR CIO CODE         CCOMRPV   207
           216  21102                             AX1    2                                                       CCOMRPV   208
                     15010                        BX0    -X0*X1      EXTRACT CIO CODE                            CCOMRPV   209
                          63200                   SB2    X0                                                      CCOMRPV   210
                               22323              LX3    B2                                                      CCOMRPV   211
           217  0323000221 +                      PL     X3,RPV6     IF LAST CIO OP NOT OPEN OR WRITE            CCOMRPV   212
                          54710                   SA7    A1          INSURE CIO COMPLETE BIT IS ON               CCOMRPV   213
                               74210              WRITER A1,,RCL     FLUSH BUFFER                                CCOMRPV   214
           221  6177000001               RPV6     SB7    B7+1                                                    CCOMRPV   215
                          0400000213 +            EQ     RPV5        CHECK NEXT ENTRY                            CCOMRPV   216
           222                           RPV7     BSS    0                                                       CCOMRPV   217
                                         #RM      ENDIF                                                          CCOMRPV   218
                                         #RPV=    ENDIF                                                          CCOMRPV   219
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    20
        CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.                    RPV=                CCOMRPV 
  
                                                                                                                 CCOMRPV   220
                                        *         RESTORE SAVED ENTRY POINT CONTENTS.                            CCOMRPV   221
                                                                                                                 CCOMRPV   222
           222  5110000250 +                      SA1    RPVE                                                    CCOMRPV   223
                          5021000001              SA2    A1+1                                                    CCOMRPV   224
           223  10611                             BX6    X1                                                      CCOMRPV   225
                     22702                        LX7    X2                                                      CCOMRPV   226
                          5160000003 +            SA6    =XCDD                                                   CCOMRPV   227
           224  5170000000 X                      SA7    =XCOD                                                   CCOMRPV   228
                                                                                                                 CCOMRPV   229
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CCOMRPV   230
                          54121                   SA1    A2+B1       SYS=                                        CCOMRPV   231
                               54211              SA2    A1+B1       WNB=                                        CCOMRPV   232
           225  10611                             BX6    X1                                                      CCOMRPV   233
                     22702                        LX7    X2                                                      CCOMRPV   234
                          5012000001              SA1    A2+1        MSG=                                        CCOMRPV   235
           226  5160000000 X                      SA6    =XSYS=                                                  CCOMRPV   236
                          5170000000 X            SA7    =XWNB=                                                  CCOMRPV   237
           227  10711                             BX7    X1                                                      CCOMRPV   238
                     5170000000 X                 SA7    =XMSG=                                                  CCOMRPV   239
                                                                                                                 CCOMRPV   240
                                         #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                           CCOMRPV   241
                               54121              SA1    A2+B1                                                   CCOMRPV   242
           230  10611                             BX6    X1                                                      CCOMRPV   243
                     5160000474 +                 SA6    =XCIO=                                                  CCOMRPV   244
                                         #RM      ENDIF                                                          CCOMRPV   245
                                         #OS      ENDIF                                                          CCOMRPV   246
                                                                                                                 CCOMRPV   247
                                        *         REINSTATE THE ERROR CONDITON.                                  CCOMRPV   248
                                                                                                                 CCOMRPV   249
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CCOMRPV   250
           231  5110000256 +                      SA1    RPVF        RPV RESET WORD                              CCOMRPV   251
                          10611                   BX6    X1                                                      CCOMRPV   252
           232  5110000001               +        SA1    RA.MTR                                                  CCOMRPV   253
                          0311000232 +            NZ     X1,*        WAIT FOR ALL CLEAR                          CCOMRPV   254
           233  54610                             SA6    A1          REQUEST RPV RESET                           CCOMRPV   255
           234  0400000234 +             +        EQ     *           WAIT FOR OP SYS TO PICK UP ERROR            CCOMRPV   256
                                                                                                                 CCOMRPV   257
                                         #OS      ELSE                                                           CCOMRPV   258
                                         .TEST    IFEQ   TEST,ON,2                                               FC5A158A    8
                                                  SA1    XJP         EXCHANGE JUMP PACKAGE                       CCOMRPV   259
                                                  RJ     =XDXP=      DUMP EXCHANGE PACKAGE                       CCOMRPV   260
                                                  ABORT              *** TEMPORARY UNTIL SCOPE 2.0 REPRIEVE      CCOMRPV   261
                                        *                            *** RESET METHOD IS AVAILABLE.              CCOMRPV   262
                                         #OS      ENDIF                                                          CCOMRPV   263
                                                                                                                 CCOMRPV   264
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CCOMRPV   265
           235                           RPVA     BSS    0                                                       CCOMRPV   266
                                                  ECHO   2,CIOCODE=(4B,14B,104B,120B,144B,160B)                  CCOMRPV   267
                                                  POS    60-CIOCODE_S-2                                          CCOMRPV   268
                                                  VFD    1/1                                                     CCOMRPV   269
                                  00              POS    0                                                       CCOMRPV   270
           236                                    BSS    0                                                       CCOMRPV   271
                                         #OS      ENDIF                                                          CCOMRPV   272
                                                                                                                 CCOMRPV   273
                                                  IF     DEF,RPV=CLN,1                                           CCOMRPV   274
           236  55140123245523240124     RPVB     DIS    ,* LAST STATEMENT BEGAN AT LINE ........*               CCOMRPV   275
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    21
        CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.                    RPV=                CCOMRPV 
  
                                                                                                                 CCOMRPV   276
           242  55052222172255012455     RPVC     DIS    ,* ERROR AT 000000 IN XXXXXXX*                          CCOMRPV   277
                                                                                                                 CCOMRPV   278
                                                  IF     DEF,RPV=LOL,1                                           CCOMRPV   279
           245  55140123245517260522     RPVD     DIS    ,* LAST OVERLAY LOADED - (0,0)*                         CCOMRPV   280
                                                                                                                 CCOMRPV   281
           250                     2     RPVE     BSSZ   2           TO SAVE (CDD) AND (COD)                     CCOMRPV   282
                                                                                                                 CCOMRPV   283
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              CCOMRPV   284
           252                     3              BSSZ   3           TO SAVE (SYS=), (WNB=) AND (MSG=)           CCOMRPV   285
                                                                                                                 CCOMRPV   286
                                         #RM      IFEQ   CP#RM,0     IF DIRECT CIO I/O                           CCOMRPV   287
           255                     1              BSSZ   1           TO SAVE (CIO=)                              CCOMRPV   288
                                         #RM      ENDIF                                                          CCOMRPV   289
           256  22202600400000000000     RPVF     VFD    18/3RRPV,6/0,1/1,35/0    RPV RESET REQUEST WORD         CCOMRPV   290
                                         #OS      ENDIF                                                          CCOMRPV   291
  
  
  
  
                                        **        FRA - FIND RELATIVE ADDRESS.                                   CCOMRPV   293
                                        *                                                                        CCOMRPV   294
                                        *                GIVEN AN ABSOLUTE ADDRESS, *FRA=* FINDS THE ROUTINE     CCOMRPV   295
                                        *         NAME AND ABSOLUTE ADDRESS BY SEARCHING THE TABLES INSTALLED    CCOMRPV   296
                                        *         ORIGINALLY FOR *RPV=* PROCESSING.                              CCOMRPV   297
                                        *                                                                        CCOMRPV   298
                                        *                *FRA* DOES NOT USE A RETURN JUMP CALLING SEQUENCE       CCOMRPV   299
                                        *         BECAUSE IT IS LOCATED IN CODE SPACE CHECKSUMMED BY *RPV=*.     CCOMRPV   300
                                        *                                                                        CCOMRPV   301
                                        *                                                                        CCOMRPV   302
                                        *         ENTRY  (X1) = ADDRESS RELATIVE TO RA+0                         CCOMRPV   303
                                        *                (B7) = EXIT ADDRESS                                     CCOMRPV   304
                                        *                                                                        CCOMRPV   305
                                        *         EXIT   TO (B7), WITH ...                                       CCOMRPV   306
                                        *                (A1,X1) = ADDRESS,CONTENTS OF RPV=RNA ENTRY             CCOMRPV   307
                                        *                (X4) = ABSOLUTE ADDRESS, H FORMAT                       CCOMRPV   308
                                        *                (X6) = ABSOLUTE ADDRESS, DPC, *NNNNNN IN *              CCOMRPV   309
                                        *                (X7) = ROUTINE NAME, DPC, L FORMAT                      CCOMRPV   310
                                        *                                                                        CCOMRPV   311
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    CCOMRPV   312
                                        *                A - 2, 4                                                CCOMRPV   313
                                        *                B - 2, 3, 4, 5                                          CCOMRPV   314
                                        *                                                                        CCOMRPV   315
                                        *         CANNOT DESTROY  B1  X0,5  A0,5,6,7                             CCOMRPV   316
                                        *                                                                        CCOMRPV   317
                                        *         CALLS  COD                                                     CCOMRPV   318
                                                                                                                 CCOMRPV   319
                                                                                                                 CCOMRPV   320
                                         #RPV=    IF     DEF,RPV=RNA IF ROUTINE NAME ADDRESS TABLE EXISTS        CCOMRPV   321
           257                           FRA=     BSS    0           ...ENTRY                                    CCOMRPV   322
           257  5120000000 X                      SA2    RPV=RNA     (X2) = FWA OF 1ST RNA TABLE                 CCOMRPV   323
                          63210                   SB2    X1          (B2) = ADDRESS RELATIVE TO RA+0             CCOMRPV   324
                               53220              SA2    X2          (A2,X2) = A+C OF 1ST ENTRY IN RNA TABLE     CCOMRPV   325
           260  63320                             SB3    X2                                                      CCOMRPV   326
                     66400                        SB4    B0                                                      CCOMRPV   327
                          6052000000              SB5    A2+                                                     CCOMRPV   328
                                                                                                                 CCOMRPV   329
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    22
        CCOMRPV - COMPILE TIME REPRIEVE PROCESSOR.                    FRA                 CCOMRPV 
  
                                        *         SEARCH ROUTINE NAME ADDRESS TABLE.                             CCOMRPV   330
                                                                                                                 CCOMRPV   331
           261                           FRA2     BSS                                                            CCOMRPV   332
           261  0302000264 +                      ZR     X2,FRA3     IF END OF BLOCK                             CCOMRPV   333
                          63320                   SB3    X2                                                      CCOMRPV   334
                               54221              SA2    A2+B1       (X2) = NEXT TABLE ENTRY                     CCOMRPV   335
           262  0723000261 +                      GT     B3,B2,FRA2  IF CURRENT ENTRY BEYOND ABS ADDR            CCOMRPV   336
                          0643000261 +            GE     B4,B3,FRA2  IF CURRENT NOT CLOSER                       CCOMRPV   337
           263  65521                             SB5    A2-B1       CLOSEST SO FAR                              CCOMRPV   338
                     66430                        SB4    B3                                                      CCOMRPV   339
                          0400000261 +            EQ     FRA2        KEEP LOOKING                                CCOMRPV   340
                                                                                                                 CCOMRPV   341
                                        *         CHECK FOR TABLE CONTINUATION LINK.                             CCOMRPV   342
                                                                                                                 CCOMRPV   343
           264                           FRA3     BSS                                                            CCOMRPV   344
           264  54221                             SA2    A2+B1       END OF TABLE/TABLE LINK WORD                CCOMRPV   345
                     0302000266 +                 ZR     X2,FRA4     IF END OF TABLE                             CCOMRPV   346
                               53220              SA2    X2          (A2,X2) = A+C OF 1ST WORD IN NEXT BLOCK     CCOMRPV   347
           265  0400000261 +                      EQ     FRA2        CONTINUE TABLE SEARCH...                    CCOMRPV   348
                                                                                                                 CCOMRPV   349
                                        *         EXTRACT ROUTINE NAME AND FORMAT ABSOLUTE ADDRESS.              CCOMRPV   350
                                                                                                                 CCOMRPV   351
           266                           FRA4     BSS                                                            CCOMRPV   352
           266  77124                             SX1    B2-B4       (X1) = BIN ADDR, RELATIVE TO CLOSEST FIND   CCOMRPV   353
                     0100000000 X                 RJ     =XCOD       CONVERT TO OCTAL DISPLAY CODE               CCOMRPV   354
           267  56150                             SA1    B5          (X1) = 42/0LNAME,18/ADDRESS                 CCOMRPV   355
                     43752                        MX7    42                                                      CCOMRPV   356
                          7130004443              SX3    2R  &2RIN                                               CCOMRPV   357
           270  11771                             BX7    X7*X1       (X7) = ROUTINE NAME, 0L FORMAT              CCOMRPV   358
                     20306                        LX3    6                                                       CCOMRPV   359
                          13643                   BX6    X4-X3       (X6) = RELATIVE ADDRESS, *NNNNNN IN *       CCOMRPV   360
           271  0277000000                        JP     B7          EXIT ...                                    CCOMRPV   361
                                         #RPV=    ENDIF                                                          CCOMRPV   362
  
  
  
  
  
  
  
  
           272                                    BSS    0                                                       CCOMRPV   365
                                 271 +   LWARPV   =      *-1         *** END OF CHECKSUMMED REPRIEVE CODE ***    CCOMRPV   366
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              CCOMRPV   368
                                                  QUAL   *                                                       CCOMRPV   369
                                 130 +   RPV=     EQU    /CCOMRPV/RPV=                                           CCOMRPV   370
                                 257 +   FRA=     EQU    /CCOMRPV/FRA=                                           CCOMRPV   371
                                         QUAL$    ENDIF                                                          CCOMRPV   372
                                         CCOMRPV  ENDX                                                           CCOMRPV   373
                                                  ENTRY  FRA=,RPV=                                               UTILITY    33
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    23
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS 
  
           272                           MNS      CTEXT  COMCMNS - MOVE NON-OVERLAPPING STRING.                  F4720C      6
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            F4720C      8
                                                  QUAL   COMCMNS                                                 F4720C      9
                                 D_D              BASE   D                                                       F4720C     10
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION 1978.               F4720C     11
  
  
  
  
                                        ***       MNS - MOVE NON-OVERLAPPING BIT STRING.                         F4720C     13
                                        *                                                                        F4720C     14
                                        *         R. E. JAMES.       77/09/09.                                   F4720C     15
                                        *         L. D. HARE.        78/04/12.                                   F4720C     16
                                        *         L. D. HARE.        79/11/15 (CMU CODE).                        F233CMU     6
                                        *                                                                        CPSA245    59
                                        *         *******************************************************        CPSA245    60
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245    61
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245    62
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245    63
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245    64
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245    65
                                        *         *******************************************************        CPSA245    66
                                        *                                                                        CPSA245    67
                                        *                                                                        F4720C     17
                                        *         MNS WILL MOVE A BIT STRING FROM ONE CM LOCATION TO ANOTHER,    F4720C     18
                                        *         NO-OVERLAP ALLOWED.                                            F4720C     19
  
  
  
  
                                        ***       MNS WILL MOVE A SPECIFIED SOURCE STRING FROM ONE LOCATION      F4720C     21
                                        *         TO ANOTHER IN CENTRAL MEMORY.  THE ONLY BITS DISTURBED IN      F4720C     22
                                        *         THE DESTINATION FIELD WILL BE THOSE EXTRACTED TO ACCEPT        F4720C     23
                                        *         THE SOURCE. THE DESTINATION FIELD MAY NOT OVERLAP THE SOURCE   F4720C     24
                                        *         FIELD IN ANY RESPECT, RESULTS ARE UNDEFINED IF THIS OCCURS.    F4720C     25
                                        *         THE COMDECK *COMCMOS* IS PROVIDED FOR OVERLAPPING MOVES.       F4720C     26
                                        *                                                                        F4720C     27
                                        *         ENTRY  (B1) = 1.                                               F4720C     28
                                        *                (B2) = SOURCE FIRST BIT (0,1,..,59).                    F4720C     29
                                        *                (B4) = DESTINATION FIRST BIT (0,1,..,59).               F4720C     30
                                        *                (X0) = NUMBER OF BITS TO MOVE.                          F4720C     31
                                        *                (X2) = SOURCE FIRST WORD ADDRESS.                       F4720C     32
                                        *                (X4) = DESTINATION FIRST WORD ADDRESS.                  F4720C     33
                                        *                                                                        F4720C     34
                                        *         EXIT   (B1) = 1.                                               F4720C     35
                                        *                (B2) = SOURCE NEXT BIT (0,1,..,59).                     F4720C     36
                                        *                (B4) = DESTINATION NEXT BIT (0,1,..,59).                F4720C     37
                                        *                (X2) = SOURCE NEXT WORD ADDRESS.                        F4720C     38
                                        *                (X4) = DESTINATION NEXT WORD ADDRESS.                   F4720C     39
                                        *                                                                        F4720C     40
                                        *         USES   X0, X1, X2, X3, X4, X5, X6, X7.                         F4720C     41
                                        *                B1, B2, B3, B4, B5, B6.                                 F4720C     42
                                        *                A1, A2, A3, A5, A6, A7.                                 F4720C     43
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    24
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS                 COMCMNS 
  
                                        *                                                                        F4720C     44
                                        *         CALLS  NONE.                                                   F4720C     45
                                                                                                                 F4720C     46
                                        *         THE COMMENTING SCHEME INVOLVED HEREIN COULD ALSO USE           F4720C     47
                                        *         SOME EXPLANATION.  IT IS BASED ON A SIX BIT WORD, EACH BIT     F4720C     48
                                        *         IDENTIFIED BY A LETTER IN THE 64 CHARACTER CHARACTER SET.      F4720C     49
                                        *         THE OVERALL ASSUMPTION IS THAT THE SOURCE STARTS AT BIT 0,     F4720C     50
                                        *         (LEFT MOST), AND THE DESTINATION COMMENCES AT BIT 3 (THE       F4720C     51
                                        *         MIDDLE).  THIS ASSUMPTION IS MODIFIED FOR THE BIT ALIGNED      F4720C     52
                                        *         MOVE (MNS10 ET SEQ.), AND FOR THE FIRST BIT SOURCE GREATER     F4720C     53
                                        *         THAN FIRST BIT DESTINATION CASE (MNS50 ET SEQ.).  THE          F4720C     54
                                        *         COMMENTS EXPLAIN THE DIFFERENCE FOR THESE CASES.               F4720C     55
  
  
  
  
                                        *         ONE TIME INITIALIZATION CODE BASED ON THE PRESENCE             F233CMU     8
                                        *         OF *CMU*.                                                      F233CMU     9
                                                                                                                 F233CMU    10
           272  6150000074               MNS32    SB5    60          BITS PER WORD                               F233CMU    11
                          5110000404 +            SA1    MNSD        1S48/6 + 1                                  F233CMU    12
                                                                                                                 F233CMU    13
           273  5110000065                        SA1    RA.CMU                                                  F233CMU    14
                          5150000403 +            SA5    MNSC                                                    F233CMU    15
           274  21173                             AX1    59          SIGN EXTEND CMU FLAG                        F233CMU    16
                     11613                        BX6    X1*X3                                                   F233CMU    17
                          15551                   BX5    -X1*X5                                                  F233CMU    18
                               36756              IX7    X5+X6                                                   F233CMU    19
           275  5170000333 +                      SA7    MNSB        SET CORRECT INITIALIZATION CODE             F233CMU    20
                                                                                                                 F233CMU    21
                          0100000275 +            RJ     *                                                       F233CMU    22
                                                                                                                 F233CMU    23
           276  0400000333 +                      EQ     MNS02       RESTART                                     F233CMU    24
                                                                                                                 F4720C     56
                                        *         MNS - MOVE BIT STRING WITH NO OVERLAP.                         F4720C     57
                                        *                                                                        F4720C     58
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C     59
                                        *                            /ABCDEF/      /XXXXXX/  X4 =(XXX...)      / F4720C     60
                                                                                                                 F4720C     61
           277  0742000303 +             MNS40    GT     B2,B4,MNS50  IF 1*ST BIT SOURCE .GT. 1*ST BIT DEST.     F4720C     62
                          66435                   SB4    B3+B5       CORRECT SHIFT COUNT                         F4720C     63
                               22741              LX7    X1,B4       /      /      /      /      /      /DEFABC/ F4720C     64
           300  15676                             BX6    -X6*X7      /      /      /      /      /...ABC/      / F4720C     65
                     12646                        BX6    X4+X6       /      /      /      /      /XXXABC/      / F4720C     66
                          0330000327 +            MI     X0,MNS120   IF BOTH FINISH IN ONE WORD                  F4720C     67
           301  76110                             SX1    B1                                                      F4720C     68
                     22241                        LX2    X1,B4                                                   F4720C     69
                          66335                   SB3    B3+B5       CORRECT SHIFT COUNT                         F4720C     70
                               37412              IX4    X1-X2       MASK                                        F4720C     71
           302  11347                             BX3    X4*X7       /      /      /DEF.../      /      /      / F4720C     72
                     0400000307 +                 EQ     MNS60       CONTINUE                                    F4720C     73
                                                                                                                 F4720C     74
                                        *         FIRST BIT SOURCE .GT. FIRST BIT DESTINATION.                   F4720C     75
                                        *                                                                        F4720C     76
                                        *         SITUATION FOR      /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C     77
                                        *         THIS CASE IS:      /YYYYAB/      /XXXXXX/  X4 =(XXX...)      / F4720C     78
                                                                                                                 F4720C     79
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    25
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS                 COMCMNS 
  
           303  22731                    MNS50    LX7    X1,B3       /      /      /      /      /      /YYYABY/ F4720C     80
                     15676                        BX6    -X6*X7      /      /      /      /      /...ABY/      / F4720C     81
                          76110                   SX1    B1                                                      F4720C     82
                               22231              LX2    X1,B3                                                   F4720C     83
           304  12646                             BX6    X4+X6       /      /      /      /      /XXXABY/      / F4720C     84
                     37412                        IX4    X1-X2       MASK                                        F4720C     85
                          54111                   SA1    A1+B1       /CDEFGH/      /      /      /      /      / F4720C     86
                               11246              BX2    X4*X6       /      /XXXAB./      /      /      /      / F4720C     87
           305  22731                             LX7    X1,B3       /      /      /      /      /      /DEFGHC/ F4720C     88
                     15174                        BX1    -X4*X7      /.....C/      /      /      /      /      / F4720C     89
                          12621                   BX6    X2+X1       /      /      /      /      /XXXABC/      / F4720C     90
           306  0330000325 +                      MI     X0,MNS110   IF ALL FITS IN ONE WORD                     F4720C     91
                          11347                   BX3    X4*X7       /      /      /DEFGH./      /      /      / F4720C     92
                                                                                                                 F4720C     93
                                        *         DESTINATION FIELD EXTENDS OVER A WORD BOUNDARY.                F4720C     94
                                        *         NOTE: COMMENTS CONTINUE FROM *MNS40* CODE.                     F4720C     95
                                        *                                                                        F4720C     96
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C     97
                                        *                            /      /      /DEF.../      /XXXABC/      / F4720C     98
                                                                                                                 F4720C     99
           307  76755                    MNS60    SX7    B5+B5                                                   F4720C    100
                     54630                        SA6    A3          /      /      /      /      /*STOR*/      / F4720C    101
                          37007                   IX0    X0-X7       /      /      /DEF.../      /      /      / F4720C    102
                               54111              SA1    A1+B1       /GHIJKL/      /      /      /      /      / F4720C    103
           310  0330000321 +                      MI     X0,MNS90    IF 2 WORD FIT                               F4720C    104
                                                                                                                 F4720C    105
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    106
                                        *                            /GHIJKL/      /DEF.../      /      /      / F4720C    107
                                                                                                                 F4720C    108
                          54211                   SA2    A1+B1       /      /MNOPQR/      /      /      /      / F4720C    109
                               22531              LX5    X1,B3       /      /      /      /JKLGHI/      /      / F4720C    110
           311  54121                             SA1    A2+B1       /STUVWX/      /      /      /      /      / F4720C    111
                     37007                        IX0    X0-X7                                                   F4720C    112
                          15754                   BX7    -X4*X5      /      /      /      /      /      /...GHI/ F4720C    113
                               37557              IX5    X5-X7       /      /      /      /JKL.../      /      / F4720C    114
           312  12737                             BX7    X3+X7       /      /      /      /      /      /DEFGHI/ F4720C    115
                     22232                        LX2    X2,B3       /      /PQRMNO/      /      /      /      / F4720C    116
                          0330000317 +            MI     X0,MNS80    IF 3 WORD FIT                               F4720C    117
                                                                                                                 F4720C    118
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    119
                                        *                            /STUVWX/PQRMNO/DEF.../JKL.../      /DEFGHI/ F4720C    120
                                                                                                                 F4720C    121
           313  54761                    MNS70    SA7    A6+B1       /      /      /      /      /      /*STOR*/ F4720C    122
                     15624                        BX6    -X4*X2      /      /      /      /      /...MNO/      / F4720C    123
                          22131                   LX1    X1,B3       /VWXSTU/      /      /      /      /      / F4720C    124
                               76755              SX7    B5+B5                                                   F4720C    125
           314  37326                             IX3    X2-X6       /      /      /PQR.../      /      /      / F4720C    126
                     54211                        SA2    A1+B1       /      /YZ0123/      /      /      /      / F4720C    127
                          12656                   BX6    X5+X6       /      /      /      /      /JKLMNO/      / F4720C    128
                               37007              IX0    X0-X7                                                   F4720C    129
           315  54671                             SA6    A7+B1       /      /      /      /      /*STOR*/      / F4720C    130
                     15714                        BX7    -X4*X1      /      /      /      /      /      /...STU/ F4720C    131
                          37517                   IX5    X1-X7       /      /      /      /VWX.../      /      / F4720C    132
                               54121              SA1    A2+B1       /456789/      /      /      /      /      / F4720C    133
           316  22232                             LX2    X2,B3       /      /123WX0/      /      /      /      / F4720C    134
                     12737                        BX7    X3+X7       /      /      /      /      /      /PQRSTU/ F4720C    135
                          0320000313 +            PL     X0,MNS70    IF MORE TO GO                               F4720C    136
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    26
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS                 COMCMNS 
  
                                                                                                                 F4720C    137
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    138
                                        *         JUMPED:            /STUVWX/PQRMNO/      /JKL.../      /DEFGHI/ F4720C    139
                                        *         FALL THROUGH:      /456789/123YZ0/      /VWX.../      /PQRSTU/ F4720C    140
                                                                                                                 F4720C    141
           317  15624                    MNS80    BX6    -X4*X2      /      /      /      /      /...YZ0/      / F4720C    142
                     37326                        IX3    X2-X6       /      /      /123.../      /      /      / F4720C    143
                          5076000001              SA7    A6+1        /      /      /      /      /      /*STOR*/ F4720C    144
           320  12656                             BX6    X5+X6       /      /      /      /      /VWXYZ0/      / F4720C    145
                     43501                        MX5    1                                                       F4720C    146
                          5067000001              SA6    A7+1        /      /      /      /      /*STOR*/      / F4720C    147
                                                                                                                 F4720C    148
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    149
                                        *         JUMPED:            /GHIJKL/      /DEF.../      /      /      / F4720C    150
                                        *         FALL THROUGH:      /456789/      /123.../      /      /      / F4720C    151
                                                                                                                 F4720C    152
           321  7200000074               MNS90    SX0    X0+60                                                   F4720C    153
                          0330000324 +            MI     X0,MNS100   IF NO MORE SOURCE WORDS                     F4720C    154
           322  22231                             LX2    X1,B3       /      /789456/      /      /      /      / F4720C    155
                     54111                        SA1    A1+B1       /+-*/()/      /      /      /      /      / F4720C    156
                          15724                   BX7    -X4*X2      /      /      /      /      /      /...456/ F4720C    157
                               12637              BX6    X3+X7       /      /      /      /      /123456/      / F4720C    158
           323  7200777703                        SX0    X0-60                                                   F4720C    159
                          37327                   IX3    X2-X7       /      /      /789.../      /      /      / F4720C    160
                               54661              SA6    A6+B1       /      /      /      /      /*STOR*/      / F4720C    161
                                                                                                                 F4720C    162
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    163
                                        *         JUMPED:            /456789/      /123.../      /      /      / F4720C    164
                                        *         FALL THROUGH:      /+-*/()/      /789.../      /      /      / F4720C    165
                                                                                                                 F4720C    166
           324  22731                    MNS100   LX7    X1,B3       /      /      /      /      /      //()+-*/ F4720C    167
                     15274                        BX2    -X4*X7      /      /...+-*/      /      /      /      / F4720C    168
                          12632                   BX6    X3+X2       /      /      /      /      /789+-*/      / F4720C    169
                               54361              SA3    A6+B1       /      /      /XXXXXX/      /      /      / F4720C    170
                                                                                                                 F4720C    171
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    172
                                        *         JUMPED:            /      /      /XXXXXX/      /XXXABC/DEFABC/ F4720C    173
                                        *         FALL THROUGH:      /+-*/()/...+-*/XXXXXX/      /789+-*//()+-*/ F4720C    174
                                                                                                                 F4720C    175
           325  63203                    MNS110   SB2    X0+B3                                                   F4720C    176
                     75211                        SX2    A1-B1       COMPENSATE FOR READ AHEAD                   F4720C    177
                          0720000327 +            LT     B2,MNS120   IF LAST WORD WAS FROM READ AHEAD            F4720C    178
           326  74210                             SX2    A1                                                      F4720C    179
                     67335                        SB3    B3-B5                                                   F4720C    180
           327  63405                    MNS120   SB4    X0+B5       DESTINATION BIT POSITION                    F4720C    181
                     74430                        SX4    A3          DESTINATION WORD ADDRESS                    F4720C    182
                          66243                   SB2    B4+B3       SOURCE BIT POSITION                         F4720C    183
           330  0440000332 +                      ZR     B4,MNS      IF FINISHED                                 F4720C    184
                          67341                   SB3    B4-B1                                                   F4720C    185
                               23035              AX0    X5,B3       MASK                                        F4720C    186
           331  11106                             BX1    X0*X6       /789.../      /      /      /      /      / F4720C    187
                     15730                        BX7    -X0*X3      /      /      /      /      /      /...XXX/ F4720C    188
                          12617                   BX6    X1+X7       /      /      /      /      /789XXX/      / F4720C    189
                               54630              SA6    A3          /      /      /      /      /*STOR*/      / F4720C    190
                                                                                                                 F4720C    191
                                        *         ENTER HERE, DETERMINE PRESENCE OF *CMU*.                       F233CMU    25
                                                                                                                 F233CMU    26
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    27
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS                 COMCMNS 
  
           332  0400400332 +             MNS      SUBR               ENTRY/EXIT..                                F233CMU    27
                                                                                                                 F233CMU    28
           333  5130000272 +             MNS02    SA3    MNSA        INITIAL *WITH CMU* CODE                     F233CMU    29
                          0100000272 +            RJ     MNS32       PERFORM ONE TIME INITIALIZATION             F233CMU    30
                                                                                                                 F233CMU    31
                                        *         THE ABOVE INSTRUCTIONS WILL BE REPLACED BY:                    F233CMU    32
                                        *                                                                        F233CMU    33
                                        *         WITH CMU:-  SB5  60     BITS PER WORD                          F233CMU    34
                                        *                     SA1  MNSC   1S48/6 + 1                             F233CMU    35
                                        *                                                                        F233CMU    36
                                        *         NO CMU:-    SB5  60                                            F233CMU    37
                                        *                     EQ   MNS06  IGNORE CMU CODE                        F233CMU    38
                                                                                                                 F233CMU    39
           334  7130000264                        SX3    3*60                                                    F233CMU    40
                          53540                   SA5    X4                                                      F233CMU    41
                               76720              SX7    B2          SF = FIRST SOURCE BIT                       F233CMU    42
           335  37530                             IX5    X3-X0                                                   F233CMU    43
                     40301                        FX3    X0*X1       L6 = LENGTH / 6                             F233CMU    44
                          0325000366 +            PL     X5,MNS06    IF QUICKER NOT TO USE CMU                   F233CMU    45
           336  76640                             SX6    B4          DF = DESTINATION FIRST BIT                  F233CMU    46
                     40571                        FX5    X7*X1       S6 = SF / 6 = SOURCE FIRST CHARACTER        F233CMU    47
                          63330                   SB3    X3                                                      F233CMU    48
                               63650              SB6    X5                                                      F233CMU    49
           337  66333                             SB3    B3+B3       L2 = L6 * 2                                 F233CMU    50
                     66666                        SB6    B6+B6       S2 = S6 * 2                                 F233CMU    51
                          40161                   FX1    X6*X1       D6 = DF / 6 = DESTINATION FIRST CHARACTER   F233CMU    52
                               22705              LX7    X5                                                      F233CMU    53
           340  10633                             BX6    X3                                                      F233CMU    54
                     20702                        LX7    2           S4 = S6 * 4                                 F233CMU    55
                          20602                   LX6    2           L4 = L6 * 4                                 F233CMU    56
                               63676              SB6    B6+X7       SX = S2 + S4                                F233CMU    57
           341  63510                             SB5    X1                                                      F233CMU    58
                     73663                        SX6    B3+X6       LX = L2 + L4                                F233CMU    59
                          66555                   SB5    B5+B5       D2 = D6 * 2                                 F233CMU    60
                               37706              IX7    X0-X6       ML = LENGTH - LX = MOD(LENGTH,6)            F233CMU    61
           342  66355                             SB3    B5+B5       D4 = D2 + D2                                F233CMU    62
                     77626                        SX6    B2-B6       MS = SF - SX = MOD(SF,6)                    F233CMU    63
                          66535                   SB5    B3+B5       DX = D4 + D2                                F233CMU    64
                               12776              BX7    X7+X6       REMAINDER = ML .OR. MS                      F233CMU    65
           343  77645                             SX6    B4-B5       MD = DF - DX = MOD(DF,6)                    F233CMU    66
                     6150000074                   SB5    60          BITS PER WORD                               F233CMU    67
                               12767              BX7    X6+X7       REMAINDER = REMAINDER .OR. MD               F233CMU    68
           344  46000                             NO                                                             F233CMU    69
                     0317000366 +                 NZ     X7,MNS06    IF NOT CHARACTER ORIENTED                   F233CMU    70
                                                                                                                 F233CMU    71
                               53220              SA2    X2                                                      F233CMU    72
                                                                                                                 F233CMU    73
                                        *         SET UP CMU INSTRUCTION AND EXECUTE IT.                         F233CMU    74
                                                                                                                 F233CMU    75
           345  7120017777               MNS04    SX2    8191        MAX CMU CHARACTERS TRANSFERABLE             F233CMU    76
                          74720                   SX7    A2          SA = SOURCE ADDRESS                         F233CMU    77
                               37032              IX0    X3-X2                                                   F233CMU    78
           346  20736                             LX7    30          POSITION SOURCE ADDRESS                     F233CMU    79
                     21074                        AX0    60                                                      F233CMU    80
                          74650                   SX6    A5          DA = DESTINATION ADDRESS                    F233CMU    81
                               15420              BX4    -X0*X2                                                  F233CMU    82
           347  36767                             IX7    X6+X7       SA + DA                                     F233CMU    83
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    28
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS                 COMCMNS 
  
                     11003                        BX0    X0*X3                                                   F233CMU    84
                          73610                   SX6    X1          DF = D6                                     F233CMU    85
                               36404              IX4    X0+X4       CHARS TO TRANSMIT = MIN(8191,L6)            F233CMU    86
           350  20622                             LX6    18          POSITION DF                                 F233CMU    87
                     43070                        MX0    -4                                                      F233CMU    88
                          12767                   BX7    X6+X7       SA + DF + DA                                F233CMU    89
                               15240              BX2    -X0*X4      LO BITS L6                                  F233CMU    90
           351  22605                             LX6    X5          SF = S6                                     F233CMU    91
                     11004                        BX0    X0*X4       HI BITS L6                                  F233CMU    92
                          20626                   LX6    22          POSITION SF                                 F233CMU    93
                               20232              LX2    26          POSITION LO L6                              F233CMU    94
           352  36767                             IX7    X6+X7       SA + SF + DF + DA                           F233CMU    95
                     20054                        LX0    48-4        POSITION HI L6                              F233CMU    96
                          12727                   BX7    X2+X7       SA + LO L6 + SF + DF + DA                   F233CMU    97
                               37234              IX2    X3-X4                                                   F233CMU    98
           353  12607                             BX6    X0+X7       HI L6 + SA + LO L6 + SF + DF + DA           F233CMU    99
                     63520                        SB5    X2          REMAINING CHARACTERS                        F233CMU   100
                          5160000406 +            SA6    MNSF                                                    F233CMU   101
                                                                                                                 F233CMU   102
           354  4640000406 +                      IM     MNSF        INDIRECT CMU MOVE                           F233CMU   103
                                                                                                                 F233CMU   104
                                        *         SET UP EXIT CONDITION IN CHARACTERS.                           F233CMU   105
                                                                                                                 F233CMU   106
           355  36114                             IX1    X1+X4       D6 + TRANSMITTED CHARACTERS                 F233CMU   107
                     5130000405 +                 SA3    MNSE        IS48E-1 + 1                                 F233CMU   108
                               36554              IX5    X5+X4       S6 + TRANSMITTED CHARACTERS                 F233CMU   109
           356  40613                             FX6    X1*X3       D10 = D6 / 10                               F233CMU   110
                     40753                        FX7    X5*X3       S10 = S6 / 10                               F233CMU   111
                          22016                   LX0    B1,X6       D10 * 2                                     F233CMU   112
                               22217              LX2    B1,X7       S10 * 2                                     F233CMU   113
           357  10400                             BX4    X0                                                      F233CMU   114
                     10322                        BX3    X2                                                      F233CMU   115
                          20402                   LX4    2           D10 * 8                                     F233CMU   116
                               63660              SB6    X6                                                      F233CMU   117
           360  20302                             LX3    2           S10 * 8                                     F233CMU   118
                     63270                        SB2    X7                                                      F233CMU   119
                          36404                   IX4    X0+X4       D10 * 10                                    F233CMU   120
                               10755              BX7    X5                                                      F233CMU   121
           361  36323                             IX3    X2+X3       S10 * 10                                    F233CMU   122
                     54222                        SA2    A2+B2       NEW FWA SOURCE                              F233CMU   123
                          54556                   SA5    A5+B6       NEW FWA DESTINATION                         F233CMU   124
                               37114              IX1    X1-X4       NEW FIRST CHARACTER DESTINATION             F233CMU   125
           362  37573                             IX5    X7-X3       NEW FIRST CHARACTER SOURCE                  F233CMU   126
                     76350                        SX3    B5          CHARACTERS LEFT TO TRANSMIT                 F233CMU   127
                                                                                                                 F233CMU   128
                          0705000345 +            GT     B5,B0,MNS04 IF MORE TO TRANSMIT                         F233CMU   129
                                                                                                                 F233CMU   130
                                        *         EXIT PROCESSING, CONVERT CHARACTERS TO BITS                    F233CMU   131
                                        *         AND RESET ADDRESS REGISTERS.                                   F233CMU   132
                                                                                                                 F233CMU   133
           363  22611                             LX6    B1,X1       D6 * 2                                      F233CMU   134
                     36755                        IX7    X5+X5       S6 * 2                                      F233CMU   135
                          20102                   LX1    2           D6 * 4                                      F233CMU   136
                               20502              LX5    2           S6 * 4                                      F233CMU   137
           364  36661                             IX6    X6+X1       D6 * 6                                      F233CMU   138
                     74220                        SX2    A2                                                      F233CMU   139
                          63460                   SB4    X6                                                      F233CMU   140
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    29
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS                 COMCMNS 
  
                               36775              IX7    X7+X5       S6 * 6                                      F233CMU   141
           365  74450                             SX4    A5                                                      F233CMU   142
                     63270                        SB2    X7                                                      F233CMU   143
                                                                                                                 F233CMU   144
                          0400000332 +            EQ     MNS         EXIT..                                      F233CMU   145
                                                                                                                 F233CMU   146
                                        *         DETERMINE IF A BIT ALIGNED MOVE IS POSSIBLE (DESTINATION       F4720C    192
                                        *         STRING WILL OCCUPY SAME WORD RELATIVE POSITION AS SOURCE       F4720C    193
                                        *         STRING).                                                       F4720C    194
                                        *                                                                        F4720C    195
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    196
                                        *                            /      /      /      /      /      /      / F4720C    197
                                                                                                                 F4720C    198
           366  43501                    MNS06    MX5    1                                                       F233CMU   147
                     53340                        SA3    X4          /      /      /XXXXXX/      /      /      / F4720C    202
                          53120                   SA1    X2          /ABCDEF/      /      /      /      /      / F4720C    203
                               77745              SX7    B4-B5                                                   F4720C    204
           367  23645                             AX6    X5,B4                                                   F4720C    205
                     67324                        SB3    B2-B4       SHIFT COUNT                                 F4720C    206
                          15465                   BX4    -X5*X6                                                  F4720C    207
                               22614              LX6    X4,B1       MASK FOR FIRST DESTINATION WORD             F4720C    208
           370  36070                             IX0    X7+X0                                                   F4720C    209
                     11463                        BX4    X6*X3       /      /  X4 =(XXX...)      /      /      / F4720C    210
                          0524000277 +            NE     B2,B4,MNS40 IF NOT A BIT ALIGNED MOVE                   F4720C    211
                                                                                                                 F4720C    212
                                        *         PROCESS BIT ALIGNED MOVE.  NOTE THAT FOR OUR COMMENTING        F4720C    213
                                        *         EXAMPLE A BIT ALIGNED MOVE WOULD IMPLY A ZERO BIT MASK,        F4720C    214
                                        *         HENCE:                                                         F4720C    215
                                        *                                                                        F4720C    216
                                        *         SITUATION:         /  X1  /  X2  /  X3  /  X5  /  X6  /  X7  / F4720C    217
                                        *                            /ABCDEF/  X4 =(......)      /....../      / F4720C    218
                                                                                                                 F4720C    219
           371  15716                             BX7    -X6*X1      /      /      /      /      /      /ABCDEF/ F4720C    220
                     12674                        BX6    X7+X4       /      /      /      /      /ABCDEF/      / F4720C    221
                          0330000327 +            MI     X0,MNS120   IF ALL FITS IN ONE WORD                     F4720C    222
           372  54111                             SA1    A1+B1       /GHIJKL/      /      /      /      /      / F4720C    223
                     54630                        SA6    A3          /      /      /      /      /*STOR*/      / F4720C    224
                          76455                   SX4    B5+B5                                                   F4720C    225
                               54311              SA3    A1+B1       /      /      /MNOPQR/      /      /      / F4720C    226
           373  37004                             IX0    X0-X4                                                   F4720C    227
                     10711                        BX7    X1          /      /      /      /      /      /GHIJKL/ F4720C    228
                          0330000377 +            MI     X0,MNS20    IF ALL FITS IN TWO WORDS                    F4720C    229
           374  54761                    MNS10    SA7    A6+B1       /      /      /      /      /      /*STOR*/ F4720C    230
                     10633                        BX6    X3          /      /      /      /      /MNOPQR/      / F4720C    231
                          37004                   IX0    X0-X4                                                   F4720C    232
                               54131              SA1    A3+B1       /STUVWX/      /      /      /      /      / F4720C    233
           375  5033000002                        SA3    A3+2        /      /      /Z01234/      /      /      / F4720C    234
                          10711                   BX7    X1          /      /      /      /      /      /STUVWX/ F4720C    235
                               54671              SA6    A7+B1       /      /      /      /      /*STOR*/      / F4720C    236
           376  0320000374 +                      PL     X0,MNS10    IF NEXT WORD IS A 60 BIT MOVE               F4720C    237
           377  7200000074               MNS20    SX0    X0+60                                                   F4720C    238
                          74210                   SX2    A1                                                      F4720C    239
                               10677              BX6    X7          /      /      /      /      /STUVWX/      / F4720C    240
           400  0330000402 +                      MI     X0,MNS30    IF LAST WORD FETCHED NOT LAST TO MOVE       F4720C    241
                          5066000001              SA6    A6+1        /      /      /      /      /*STOR*/      / F4720C    242
           401  7200777703                        SX0    X0-60                                                   F4720C    243
                          74230                   SX2    A3                                                      F4720C    244
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    30
        COMCMNS - MOVE NON-OVERLAPPING STRING.                        MNS                 COMCMNS 
  
                               10633              BX6    X3          /      /      /      /      /Z01234/      / F4720C    245
           402  54361                    MNS30    SA3    A6+B1       FETCH LAST DESTINATION WORD                 F4720C    246
                     0400000327 +                 EQ     MNS120      GO TO HANDLE THE MASKING                    F4720C    247
  
  
  
  
                                        *         STORAGE.                                                       F233CMU   149
                                                                                                                 F233CMU   150
                                 272 +   MNSA     EQU    MNS32                                                   F233CMU   151
                                 333 +   MNSB     EQU    MNS02                                                   F233CMU   152
           403  6150000074               MNSC     SB5    60                                                      F233CMU   153
                          0400000366 +            EQ     MNS06       IGNORE CMU CODE                             F233CMU   154
           404  00001252525252525253     MNSD     CON    1252525252525253B  1S48/6 + 1                           F233CMU   155
           405  00000631463146314632     MNSE     CON    1S48E-1+1   ONE TENTH + 1                               F233CMU   156
           406                     1     MNSF     BSS    1           CMU *IM* INDIRECT WORD                      F233CMU   157
  
  
  
  
                                 D_D              BASE   *                                                       F4720C    249
                                         QUAL$    IF     -DEF,QUAL$                                              F4720C    250
                                                  QUAL   *                                                       F4720C    251
                                 332 +   MNS      EQU    /COMCMNS/MNS                                            F4720C    252
                                 332 +   MNS=     EQU    MNS                                                     F4720C    253
                                         QUAL$    ENDIF                                                          F4720C    254
                                         MNS      ENDX                                                           F4720C    255
                                                  ENTRY  MNS=                                                    UTILITY    35
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    31
        SET BLOCK OF MEMORY TO A GIVEN VALUE                          SBM 
  
           407                           SBM      CTEXT  SET BLOCK OF MEMORY TO A GIVEN VALUE                    COMCSBM     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCSBM     4
                                                  QUAL   COMCSBM                                                 COMCSBM     5
                                 D_D              BASE   D                                                       COMCSBM     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1976.                     COMCSBM     7
  
  
  
  
                                        **        SBM - SET BLOCK OF MEMORY TO A GIVEN VALUE.                    COMCSBM     9
                                        *                                                                        COMCSBM    10
                                        *         ENTRY  (X1) = BLOCK LENGTH                                     COMCSBM    11
                                        *                (X6) = VALUE TO SET                                     COMCSBM    12
                                        *                (A6) = BLOCK FWA (WORD 1 ALREADY STORED)                COMCSBM    13
                                        *                                                                        COMCSBM    14
                                        *         EXIT   (X6) = UNCHANGED                                        COMCSBM    15
                                        *                (X7) = (X6)                                             COMCSBM    16
                                        *                (A6) = BLOCK LWA                                        COMCSBM    17
                                        *                (B1) = 1                                                COMCSBM    18
                                        *                                                                        COMCSBM    19
                                        *         USES   X - 1, 2, 7                                             COMCSBM    20
                                        *                A - 6, 7                                                COMCSBM    21
                                        *                B - 1                                                   COMCSBM    22
                                        *                                                                        COMCSBM    23
                                        *         CALLS  NONE                                                    COMCSBM    24
                                                                                                                 COMCSBM    25
                                                                                                                 COMCSBM    26
           407  5076000001               SBM2     SA7    A6+1                                                    COMCSBM    27
                          37112                   IX1    X1-X2                                                   COMCSBM    28
                               54671              SA6    A7+B1                                                   COMCSBM    29
           410  0321000407 +                      PL     X1,SBM2     IF ALL OF BLOCK NOT SET                     COMCSBM    30
                                                                                                                 COMCSBM    31
           411  0400400411 +             SBM=     SUBR   0           ENTRY/EXIT...                               COMCSBM    32
           412  7120000001                        SX2    1                                                       COMCSBM    33
                          46000                   NO                                                             COMCSBM    34
                               15721              BX7    -X1*X2      EXTRACT COMPLEMENT OF LSB                   COMCSBM    35
           413  63170                             SB1    X7          (B1) = 1 IF LENGTH EVEN, = 0 IF ODD         COMCSBM    36
                     7211777774                   SX1    X1-3        DECREMENT LENGTH                            COMCSBM    37
                               54661              SA6    A6+B1       SET 2ND WORD IF LENGTH WAS EVEN             COMCSBM    38
           414  20201                             LX2    1           (X2) = 2                                    COMCSBM    39
                     6110000001                   SB1    1                                                       COMCSBM    40
                               10766              BX7    X6                                                      COMCSBM    41
           415  0321000407 +                      PL     X1,SBM2     IF ALL OF BLOCK NOT SET                     COMCSBM    42
                          0400000411 +            EQ     EXIT.       EXIT...                                     COMCSBM    43
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    32
        SET BLOCK OF MEMORY TO A GIVEN VALUE                          SBM                 COMCSBM 
  
                                 D_D              BASE   *                                                       COMCSBM    45
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSBM    46
                                                  QUAL   *                                                       COMCSBM    47
                                 411 +   SBM=     EQU    /COMCSBM/SBM=                                           COMCSBM    48
                                         QUAL$    ENDIF                                                          COMCSBM    49
                                                  ENDX                                                           COMCSBM    50
                                                  ENTRY  SBM=                                                    UTILITY    37
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    33
        COMCSFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.            SFN 
  
           416                           SFN      CTEXT  COMCSFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.      COMCSFN     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCSFN     4
                                                  QUAL   COMCSFN                                                 COMCSFN     5
                                 D_D              BASE   D                                                       COMCSFN     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1974, 1978.        COMCSFN     7
  
  
  
  
                                        ***       SFN - SPACE FILL NAME.                                         COMCSFN     9
                                        *                                                                        COMCSFN    10
                                        *         G. R. MANSFIELD.   70/12/08.                                   COMCSFN    11
                                        *         S. R. MCPHERSON.   74/11/15.                                   COMCSFN    12
                                        *                                                                        CPSA245   149
                                        *         *******************************************************        CPSA245   150
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   151
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   152
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   153
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   154
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   155
                                        *         *******************************************************        CPSA245   156
                                        *                                                                        CPSA245   157
                                        *                                                                        COMCSFN    13
                                        *         SFN CONVERTS TRAILING 00 CHARACTERS IN A WORD TO BLANKS.       COMCSFN    14
  
  
  
  
                                        ***       SFN CONVERTS TRAILING 00 CHARACTERS IN A WORD TO BLANKS.       COMCSFN    16
                                        *                                                                        COMCSFN    17
                                        *         ENTRY  (X1) = NAME LEFT JUSTIFIED, ZERO FILL.                  COMCSFN    18
                                        *                (B1) = 1.                                               COMCSFN    19
                                        *                                                                        COMCSFN    20
                                        *         EXIT   (X6) = NAME SPACE FILLED.                               COMCSFN    21
                                        *                (X7) = FINAL CHARACTER MASK.                            COMCSFN    22
                                        *                                                                        COMCSFN    23
                                        *         USES   X - 3, 6, 7.                                            COMCSFN    24
                                        *                A - 3.                                                  COMCSFN    25
                                        *                B - 2.                                                  COMCSFN    26
                                        *                                                                        COMCSFN    27
                                        *         CALLS  NONE.                                                   COMCSFN    28
                                                                                                                 COMCSFN    29
                                                                                                                 COMCSFN    30
           416  0400400416 +             SFN      SUBR               ENTRY/EXIT                                  COMCSFN    31
           417  76710                             SX7    B1                                                      COMCSFN    32
                     5130000423 +                 SA3    SFNA        =40404040404040404040B                      COMCSFN    33
                               37717              IX7    X1-X7       FIND LOWEST BIT SET                         COMCSFN    34
           420  16617                             BX6    -X7+X1                                                  COMCSFN    35
                     6120000067                   SB2    60-5                                                    COMCSFN    36
                               11736              BX7    X3*X6       BUILD MASK OF NON-ZERO CHARACTERS           COMCSFN    37
           421  54331                             SA3    A3+B1       =10H                                        COMCSFN    38
                     22627                        LX6    X7,B2                                                   COMCSFN    39
                          37676                   IX6    X7-X6                                                   COMCSFN    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    34
        COMCSFN - SPACE FILL NAME, RIGHT JUSTIFIED ZEROES.            SFN                 COMCSFN 
  
                               12776              BX7    X7+X6                                                   COMCSFN    41
           422  15337                             BX3    -X7*X3                                                  COMCSFN    42
                     36613                        IX6    X1+X3                                                   COMCSFN    43
                          0400000416 +            EQ     SFNX        RETURN                                      COMCSFN    44
                                                                                                                 COMCSFN    45
           423  40404040404040404040     SFNA     DATA   40404040404040404040B                                   COMCSFN    46
           424  55555555555555555555              DATA   10H                                                     COMCSFN    47
  
  
  
  
                                 D_D              BASE   *                                                       COMCSFN    49
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSFN    50
                                                  QUAL   *                                                       COMCSFN    51
                                 416 +   SFN      EQU    /COMCSFN/SFN                                            COMCSFN    52
                                 416 +   SFN=     EQU    /COMCSFN/SFN                                            F4720D     13
                                         QUAL$    ENDIF                                                          COMCSFN    53
                                         SFN      ENDX                                                           COMCSFN    54
                                                  ENTRY  SFN                                                     UTILITY    39
                                         SFN=     EQUENT SFN                                                     UTILITY    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    35
        COMCSST - SHELL SORT TABLE.                                   SST 
  
           425                           SST      CTEXT  COMCSST - SHELL SORT TABLE.                             COMCSST     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCSST     4
                                                  QUAL   COMCSST                                                 COMCSST     5
                                 D_D              BASE   D                                                       COMCSST     6
  
  
  
  
                                        ***       SST - SHELL SORT TABLE.                                        COMCSST     8
                                        *                                                                        COMCSST     9
                                        *         R. HOTCHKISS.                                                  COMCSST    10
                                        *         L. A. LIDDIARD.                                                COMCSST    11
                                        *         E. J. MUNDSTOCK.   70/10/07.  UNIVERSITY OF MINNESOTA.         COMCSST    12
                                        *                                                                        CPSA245   158
                                        *         *******************************************************        CPSA245   159
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   160
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   161
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   162
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   163
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   164
                                        *         *******************************************************        CPSA245   165
                                        *                                                                        CPSA245   166
                                        *                                                                        COMCSST    13
                                        *         SST SORTS A TABLE USING A SHELL SORTING TECHNIQUE.             COMCSST    14
  
  
  
  
                                        ***       SST SORTS A TABLE OF ONE-WORD ENTRIES INTO ASCENDING ORDER.    COMCSST    16
                                        *         ALL ENTRIES SHOULD BE OF THE SAME SIGN.                        COMCSST    17
                                        *                                                                        COMCSST    18
                                        *         ORIGIN OF TECHNIQUE IS *COMMUNICATIONS OF THE ACM*             COMCSST    19
                                        *         VOLUME 6, NUMBER 5 (MAY 1963), PAGE 209.                       COMCSST    20
                                        *                                                                        COMCSST    21
                                        *         ENTRY  (B1) = 1.                                               COMCSST    22
                                        *                (B7) = ADDRESS OF TABLE TO BE SORTED.                   COMCSST    23
                                        *                (X1) = NUMBER OF ELEMENTS IN ARRAY.                     COMCSST    24
                                        *                                                                        COMCSST    25
                                        *         EXIT   TABLE SORTED.                                           COMCSST    26
                                        *                                                                        COMCSST    27
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCSST    28
                                        *                B - 2, 3, 4, 5.                                         COMCSST    29
                                        *                A - 1, 2, 6, 7.                                         COMCSST    30
                                        *                                                                        COMCSST    31
                                        *         CALLS  NONE.                                                   COMCSST    32
                                                                                                                 COMCSST    33
                                                                                                                 COMCSST    34
           425  57754                    SST1     SA7    B5-B4       T(J+K) = S                                  COMCSST    35
                     66221                        SB2    B2+B1       I = I+1                                     COMCSST    36
                          0423000432 +            EQ     B2,B3,SST4  IF END OF TABLE                             COMCSST    37
           426  56220                    SST2     SA2    B2          S = T(I)                                    COMCSST    38
                     46000                        NO                                                             COMCSST    39
                          66524                   SB5    B2+B4       J = I-K                                     COMCSST    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    36
        COMCSST - SHELL SORT TABLE.                                   SST                 COMCSST 
  
                               10722              BX7    X2                                                      COMCSST    41
           427  56150                    SST3     SA1    B5          T(J)                                        COMCSST    42
                     37321                        IX3    X2-X1       COMPARE S AND T(J)                          COMCSST    43
                          0323000425 +            PL     X3,SST1     IF ELEMENTS IN ORDER                        COMCSST    44
           430  10611                             BX6    X1          T(J+K) = T(J)                               COMCSST    45
                     66554                        SB5    B5+B4       J = J-K                                     COMCSST    46
                          55614                   SA6    A1-B4                                                   COMCSST    47
           431  0657000427 +                      GE     B5,B7,SST3  IF J .NE. FIRST                             COMCSST    48
                          0400000425 +            EQ     SST1                                                    COMCSST    49
                                                                                                                 COMCSST    50
                                                                                                                 COMCSST    51
           432  21401                    SST4     AX4    1           K = K/2                                     COMCSST    52
                     46000                        NO                                                             COMCSST    53
                          63440                   SB4    X4          (B4) = -K                                   COMCSST    54
                               67274              SB2    B7-B4       I = FIRST+K                                 COMCSST    55
           433  0314000426 +                      NZ     X4,SST2     IF K .NE. 0                                 COMCSST    56
                                                                                                                 COMCSST    57
           434  0400400434 +             SST      SUBR               ENTRY/EXIT                                  COMCSST    58
           435  43414                             MX4    12          K = 2**(ENTIER(LOG2(COUNT)+1)               COMCSST    59
                     63317                        SB3    B7+X1       (B3) = LAST+1                               COMCSST    60
                          24621                   NX6,B2 X1                                                      COMCSST    61
                               23424              AX4    X4,B2                                                   COMCSST    62
           436  0400000432 +                      EQ     SST4        ENTER SORT LOOP                             COMCSST    63
  
  
  
  
                                 D_D              BASE   *                                                       COMCSST    65
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSST    66
                                                  QUAL   *                                                       COMCSST    67
                                 434 +   SST      EQU    /COMCSST/SST                                            COMCSST    68
                                 434 +   SST=     EQU    /COMCSST/SST                                            F4720D     15
                                         QUAL$    ENDIF                                                          COMCSST    69
                                         SST      ENDX                                                           COMCSST    70
                                                  ENTRY  SST                                                     UTILITY    42
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    37
        COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.                 WOD 
  
           436                           WOD      CTEXT  COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.           COMCWOD     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCWOD     4
                                                  QUAL   COMCWOD                                                 COMCWOD     5
                                 D_D              BASE   D                                                       COMCWOD     6
  
  
  
  
                                        ***       WOD - CONVERT WORD TO OCTAL DISPLAY CODE.                      COMCWOD     8
                                        *                                                                        COMCWOD     9
                                        *         C. R. WILLIS.      UNIVERSITY OF MINNESOTA.                    COMCWOD    10
                                        *                                                                        CPSA245   194
                                        *         *******************************************************        CPSA245   195
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   196
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   197
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   198
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   199
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   200
                                        *         *******************************************************        CPSA245   201
                                        *                                                                        CPSA245   202
                                        *                                                                        COMCWOD    11
                                        *         WOD CONVERTS A WORD INTO OCTAL DISPLAY CODE.                   COMCWOD    12
  
  
  
  
                                        ***       ENTRY  (X1) = WORD TO BE CONVERTED.                            COMCWOD    14
                                        *                                                                        COMCWOD    15
                                        *         EXIT   (X6,X7) = CONVERSION.                                   COMCWOD    16
                                        *                (B1) = 1.                                               COMCWOD    17
                                        *                                                                        COMCWOD    18
                                        *         USES   X - 0, 1, 2, 3, 4, 5, 6, 7.                             COMCWOD    19
                                        *                B - NONE.                                               COMCWOD    20
                                        *                A - 2, 3, 4, 5.                                         COMCWOD    21
                                        *                                                                        COMCWOD    22
                                        *         CALLS  NONE.                                                   COMCWOD    23
                                                                                                                 COMCWOD    24
                                                                                                                 COMCWOD    25
           437  0400400437 +             WOD      SUBR               ENTRY/EXIT                                  COMCWOD    26
                                                  IF     -DEF,B1=1,1                                             COMCWOD    27
                                                  SB1    1                                                       COMCWOD    28
                                                                                                                 COMCWOD    29
                                        *         (X1)   =           ABCDE FGHIJ KLMNO PQRST                     COMCWOD    30
                                                                                                                 COMCWOD    31
           440  5120000451 +                      SA2    WODA        7.... 7.... 7.... 7....                     COMCWOD    32
                          11721                   BX7    X2*X1       A.... F.... K.... P....                     COMCWOD    33
                               20103              LX1    3           BCDEF GHIJK LMNOP QRSTA                     COMCWOD    34
           441  11621                             BX6    X2*X1       B.... G.... L.... Q....                     COMCWOD    35
                     20103                        LX1    3           CDEFG HIJKL MNOPQ RSTAB                     COMCWOD    36
                          20733                   LX7    27          .K... .P... .A... .F...                     COMCWOD    37
                               11021              BX0    X2*X1       C.... H.... M.... R....                     COMCWOD    38
           442  20625                             LX6    21          ...L. ...Q. ...B. ...G.                     COMCWOD    39
                     20103                        LX1    3           DEFGH IJKLM NOPQR STABC                     COMCWOD    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    38
        COMCWOD - CONVERT WORD TO OCTAL DISPLAY CODE.                 WOD                 COMCWOD 
  
                          36767                   IX7    X6+X7       .K.L. .P.Q. .A.B. .F.G.                     COMCWOD    41
                               11521              BX5    X2*X1       D.... I.... N.... S....                     COMCWOD    42
           443  20103                             LX1    3           EFGHI JKLMN OPQRS TABCD                     COMCWOD    43
                     20017                        LX0    15          H.... M.... R.... C....                     COMCWOD    44
                          11621                   BX6    X2*X1       E.... J.... O.... T....                     COMCWOD    45
                               36770              IX7    X7+X0       HK.L. MP.Q. RA.B. CF.G.                     COMCWOD    46
           444  20511                             LX5    9           ..I.. ..N.. ..S.. ..D..                     COMCWOD    47
                     20603                        LX6    3           ....J ....O ....T ....E                     COMCWOD    48
                          36776                   IX7    X7+X6       HK.LJ MP.QO RA.BT CF.GE                     COMCWOD    49
                               54421              SA4    A2+B1       .7.7. 7.7.7 ..... .....                     COMCWOD    50
           445  54341                             SA3    A4+B1       ..... .7.7. 7.7.7 .....                     COMCWOD    51
                     12775                        BX7    X7+X5       HKILJ MPNQO RASBT CFDGE                     COMCWOD    52
                          11274                   BX2    X7*X4       .K.L. M.N.O ..... .....                     COMCWOD    53
                               54531              SA5    A3+B1       00000 00000 00000 00000                     COMCWOD    54
           446  11173                             BX1    X7*X3       ..... .P.Q. R.S.T .....                     COMCWOD    55
                     20736                        LX7    30          RASBT CFDGE HKILJ MPNQO                     COMCWOD    56
                          36252                   IX2    X5+X2       .K.L. M.N.O 00000 00000                     COMCWOD    57
                               11074              BX0    X7*X4       .A.B. C.D.E ..... .....                     COMCWOD    58
           447  36005                             IX0    X0+X5       .A.B. C.D.E 00000 00000                     COMCWOD    59
                     20155                        LX1    45          ..... ..... .P.Q. R.S.T                     COMCWOD    60
                          11373                   BX3    X7*X3       ..... .F.G. H.I.J .....                     COMCWOD    61
                               36712              IX7    X1+X2       .K.L. M.N.O .P.Q. R.S.T                     COMCWOD    62
           450  20355                             LX3    45          ..... ..... .F.G. H.I.J                     COMCWOD    63
                     36603                        IX6    X0+X3       .A.B. C.D.E .F.G. H.I.J                     COMCWOD    64
                          0400000437 +            EQ     WODX        RETURN                                      COMCWOD    65
                                                                                                                 COMCWOD    66
           451  70000700007000070000     WODA     CON    70000700007000070000B                                   COMCWOD    67
           452  07070707070000000000              CON    07070707070000000000B                                   COMCWOD    68
           453  00000070707070700000              CON    00000070707070700000B                                   COMCWOD    69
           454  33333333333333333333              CON    10H0000000000                                           COMCWOD    70
  
  
  
  
                                 D_D              BASE   *                                                       COMCWOD    72
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWOD    73
                                                  QUAL   *                                                       COMCWOD    74
                                 437 +   WOD      EQU    /COMCWOD/WOD                                            COMCWOD    75
                                 437 +   WOD=     EQU    /COMCWOD/WOD                                            F4720D     19
                                         QUAL$    ENDIF                                                          COMCWOD    76
                                         WOD      ENDX                                                           COMCWOD    77
                                                  ENTRY  WOD                                                     UTILITY    44
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    39
        COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.                  ZTB 
  
           455                           ZTB      CTEXT  COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.            COMCZTB     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCZTB     4
                                                  QUAL   COMCZTB                                                 COMCZTB     5
                                 D_D              BASE   D                                                       COMCZTB     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1974, 1978.        COMCZTB     7
  
  
  
  
                                        ***       ZTB - CONVERT ZEROES TO BLANKS IN A WORD.                      COMCZTB     9
                                        *                                                                        COMCZTB    10
                                        *         G. R. MANSFIELD.   70/12/08.                                   COMCZTB    11
                                        *         S. R. MCPHERSON.   74/11/15.                                   COMCZTB    12
                                        *                                                                        CPSA245   212
                                        *         *******************************************************        CPSA245   213
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   214
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   215
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   216
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   217
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   218
                                        *         *******************************************************        CPSA245   219
                                        *                                                                        CPSA245   220
                                        *                                                                        COMCZTB    13
                                        *         ZTB CONVERTS ALL 00 CHARACTERS IN A WORD TO BLANKS.            COMCZTB    14
  
  
  
  
                                        ***       ZTB CONVERTS ALL 00 CHARACTERS IN A WORD TO BLANKS.            COMCZTB    16
                                        *                                                                        COMCZTB    17
                                        *         ENTRY  (X1) = WORD TO BE CONVERTED.                            COMCZTB    18
                                        *                (B1) = 1.                                               COMCZTB    19
                                        *                                                                        COMCZTB    20
                                        *         EXIT   (X6) = CONVERTED WORD.                                  COMCZTB    21
                                        *                (X7) = FINAL CHARACTER MASK.                            COMCZTB    22
                                        *                                                                        COMCZTB    23
                                        *         USES   X - 3, 6, 7.                                            COMCZTB    24
                                        *                A - 3.                                                  COMCZTB    25
                                        *                B - NONE.                                               COMCZTB    26
                                        *                                                                        COMCZTB    27
                                        *         CALLS  NONE.                                                   COMCZTB    28
                                                                                                                 COMCZTB    29
                                                                                                                 COMCZTB    30
           455  0400400455 +             ZTB      SUBR               ENTRY/EXIT                                  COMCZTB    31
           456  5130000462 +                      SA3    ZTBA                                                    COMCZTB    32
                          11631                   BX6    X3*X1       EXTRACT UPPER BIT FROM ALL CHARACTERS       COMCZTB    33
                               15713              BX7    -X3*X1                                                  COMCZTB    34
           457  36663                             IX6    X6+X3       ANY NON-ZERO CHARACTER PRODUCES CARRY       COMCZTB    35
                     12667                        BX6    X6+X7       MERGE UPPER BITS AND CARRIES                COMCZTB    36
                          15763                   BX7    -X3*X6      ALL NON ZERO CHARACTERS = 40B               COMCZTB    37
                               54331              SA3    A3+B1                                                   COMCZTB    38
           460  10677                             BX6    X7                                                      COMCZTB    39
                     20767                        LX7    -5          GENERATE SPACE MASK                         COMCZTB    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    40
        COMCZTB - CONVERT ZEROS TO BLANKS IN A WORD.                  ZTB                 COMCZTB 
  
                          37767                   IX7    X6-X7                                                   COMCZTB    41
                               12767              BX7    X6+X7                                                   COMCZTB    42
           461  15337                             BX3    -X7*X3      SELECT SPACE CODES                          COMCZTB    43
                     36613                        IX6    X1+X3       MERGE SPACES                                COMCZTB    44
                          0400000455 +            EQ     ZTB                                                     COMCZTB    45
                                                                                                                 COMCZTB    46
           462  37373737373737373737     ZTBA     CON    37373737373737373737B                                   COMCZTB    47
           463  55555555555555555555              CON    1H                                                      COMCZTB    48
  
  
  
  
                                 D_D              BASE   *                                                       COMCZTB    50
                                         QUAL$    IF     -DEF,QUAL$                                              COMCZTB    51
                                                  QUAL   *                                                       COMCZTB    52
                                 455 +   ZTB      EQU    /COMCZTB/ZTB                                            COMCZTB    53
                                 455 +   ZTB=     EQU    /COMCZTB/ZTB                                            F4720D     21
                                         QUAL$    ENDIF                                                          COMCZTB    54
                                         ZTB      ENDX                                                           COMCZTB    55
                                                  ENTRY  ZTB                                                     UTILITY    47
                                         ZTB=     EQUENT ZTB         CCG INTERFACE                               UTILITY    48
                                         #RM      IFEQ   CP#RM,0                                                 FC5A158A   77
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    41
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO 
  
           464                           CIO      CTEXT  COMCCIO - I/O FUNCTION PROCESSOR.                       COMCCIO     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCCIO     4
                                                  QUAL   COMCCIO                                                 COMCCIO     5
                                 D_D              BASE   D                                                       COMCCIO     6
                                 D_D              CODE   D                                                       COMCCIO     7
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCCIO     8
  
  
  
  
                                        ***       CIO - I/O FUNCTION PROCESSOR.                                  COMCCIO    10
                                        *                                                                        COMCCIO    11
                                        *         G. R. MANSFIELD.   70/10/09.                                   COMCCIO    12
                                        *                                                                        CPSA245    23
                                        *         *******************************************************        CPSA245    24
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245    25
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245    26
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245    27
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245    28
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245    29
                                        *         *******************************************************        CPSA245    30
                                        *                                                                        CPSA245    31
                                        *                                                                        COMCCIO    13
                                        *         CIO ISSUES SYSTEM REQUESTS FOR I/O OPERATIONS.                 COMCCIO    14
  
  
  
  
                                        ***       CIO PERFORMS I/O FUNCTIONS VIA THE PP PROGRAM *CIO*.           COMCCIO    16
                                        *         THE OPERATION WILL BE PROCESSED WHEN THE BUFFER IS NOT BUSY.   COMCCIO    17
                                        *         IF THE FILE STATUS WORD = 0, THE OPERATION WILL NOT BE         COMCCIO    18
                                        *         PROCESSED AND IN AND OUT WILL BE SET TO FIRST.                 COMCCIO    19
                                        *                                                                        COMCCIO    20
                                        *         ENTRY  (X2) (BITS 17 - 0) = ADDRESS OF FET FOR FILE.           COMCCIO    21
                                        *                (X2) (BITS 35 - 18) = SKIP COUNT TO CIO.                COMCCIO    22
                                        *                (X2) (BIT 59) = 1 IF ASTERISK OPTION SPECIFIED ON       CPS0307     7
                                        *                     *CPCOM* MACRO FOR WHICH THE FUNCTION CODE IS       CPS0307     8
                                        *                     SET IN THE FET BUT *CIO* IS NOT CALLED (THAT       CPS0307     9
                                        *                     IS, THE I/O FUNCTION IS NOT PERFORMED).            CPS0307    10
                                        *                (X7) = FUNCTION CODE.                                   COMCCIO    23
                                        *                IF (X7) .LT. 0, (X7) IS COMPLEMENT OF REQUEST, AND      COMCCIO    24
                                        *                AUTO RECALL WILL BE REQUESTED.                          COMCCIO    25
                                        *                                                                        COMCCIO    26
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCCIO    27
                                        *                (X7) = 0.                                               COMCCIO    28
                                        *                                                                        COMCCIO    29
                                        *                IF *ERP$* IS DEFINED -                                  COMCCIO    30
                                        *                (X2) = FET ADDRESS.                                     COMCCIO    31
                                        *                (X7) = 0 IF NO ERROR CODE IN FET.  FUNCTION ISSUED.     COMCCIO    32
                                        *                       NORMAL EXIT.                                     COMCCIO    33
                                        *                (X7) = ERROR CODE FROM FET.  FUNCTION NOT ISSUED.       COMCCIO    34
                                        *                       EXIT TO *ERP$*.                                  COMCCIO    35
                                        *                                                                        COMCCIO    36
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    42
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO                 COMCCIO 
  
                                        *                IF *ERP1$* IS DEFINED -                                 COMCCIO    37
                                        *                (X2) = FET ADDRESS.                                     COMCCIO    38
                                        *                (X7) = 0 IF NO ERROR CODE IN FET.  FUNCTION ISSUED.     COMCCIO    39
                                        *                       NORMAL EXIT.                                     COMCCIO    40
                                        *                (X7) = ERROR CODE FROM FET.  FUNCTION NOT ISSUED.       COMCCIO    41
                                        *                       NORMAL EXIT.                                     COMCCIO    42
                                        *                                                                        COMCCIO    43
                                        *         USES   X - 1, 2, 6, 7.                                         COMCCIO    44
                                        *                B - NONE.                                               COMCCIO    45
                                        *                A - 1, 6, 7.                                            COMCCIO    46
                                        *                                                                        COMCCIO    47
                                        *         MACROS RECALL, SYSTEM.                                         CPS0303     4
                                                                                                                 COMCCIO    49
                                                                                                                 COMCCIO    50
                                         ERP$     IF     DEF,ERP$                                                COMCCIO    51
                                         CIO1     BX7    X1          SET ERROR STATUS                            COMCCIO    52
                                                  SX2    X2          UNPACK FET ADDRESS                          COMCCIO    53
                                                  EQ     ERP$        EXIT TO ERROR PROCESSOR                     COMCCIO    54
                                         ERP$     ELSE                                                           COMCCIO    55
                                         ERP$     IF     DEF,ERP1$                                               COMCCIO    56
                                         CIO1     BX7    X1          SET ERROR STATUS                            COMCCIO    57
                                                  SX2    X2          UNPACK FET ADDRESS                          COMCCIO    58
                                                  EQ     CIO=        RETURN                                      CPSA104    12
                                         ERP$     ENDIF                                                          COMCCIO    60
                                                                                                                 COMCCIO    61
           464  0100000000 X             CIO2     RECALL X2          WAIT COMPLETION OF LAST REQUEST             COMCCIO    62
           465  43652                    CIO3     MX6    42          FILE NAME MASK                              COMCCIO    63
                                         ERP$     IF     -DEF,ERP$                                               COMCCIO    64
                                         ERP$     IF     -DEF,ERP1$                                              COMCCIO    65
                     7110000002                   SX1    2           FILE MODE MASK                              COMCCIO    66
                                         ERP$     ELSE                                                           COMCCIO    67
                                                  SX1    36002B      ERROR CODE AND FILE MODE MASK               COMCCIO    68
                                         ERP$     ENDIF                                                          COMCCIO    69
                               12661              BX6    X6+X1                                                   COMCCIO    70
           466  53120                             SA1    X2          SET FILE NAME, MODE AND ERROR CODE          COMCCIO    71
                     11161                        BX1    X6*X1                                                   COMCCIO    72
                          7160031117              SX6    3RCIO       SET *CIO* REQUEST                           COMCCIO    73
           467  0322000471 +                      PL     X2,CIO4     IF NOT ASTERISK OPTION                      CPS0307    11
                          12717                   BX7    X1+X7       MERGE FUNCTION CODE WITH FILE NAME          CPS0307    12
                               73220              SX2    X2          CLEAR BIT 2**59                             CPS0307    13
           470  54710                             SA7    A1          STORE FET STATUS                            CPS0307    14
                     13777                        BX7    X7-X7       CLEAR ERROR STATUS                          CPS0307    15
                          0400000474 +            EQ     CIO=        RETURN                                      CPS0307    16
                                                                                                                 CPS0307    17
           471  0327000472 +             CIO4     PL     X7,CIO5     IF NO AUTO RECALL WITH REQUEST              CPS0307    18
                          14777                   BX7    -X7                                                     COMCCIO    75
                               27606              PX6    X6          SET AUTO RECALL                             COMCCIO    76
           472  12717                    CIO5     BX7    X1+X7       MERGE FUNCTION CODE WITH FILE NAME          CPS0307    19
                     20652                        LX6    42                                                      COMCCIO    78
                                         ERP$     IF     -DEF,ERP$                                               COMCCIO    79
                                         ERP$     IF     -DEF,ERP1$                                              COMCCIO    80
                          53720                   SA7    X2          STORE FET STATUS                            COMCCIO    81
                               12662              BX6    X6+X2       MERGE *CIO* REQUEST AND FET ADDRESS         COMCCIO    82
                                         ERP$     ELSE                                                           COMCCIO    83
                                                  SX1    X1          UNPACK ERROR CODE                           COMCCIO    84
                                                  BX6    X6+X2       MERGE *CIO* REQUEST AND FET ADDRESS         COMCCIO    85
                                                  AX1    10                                                      COMCCIO    86
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    43
        COMCCIO - I/O FUNCTION PROCESSOR.                             CIO                 COMCCIO 
  
                                                  NZ     X1,CIO1     IF ERROR ON LAST OPERATION                  COMCCIO    87
                                                  SA7    X2          STORE FET STATUS                            COMCCIO    88
                                         ERP$     ENDIF                                                          COMCCIO    89
           473  73220                             SX2    X2          UNPACK FET ADDRESS                          COMCCIO    90
                     13777                        BX7    X7-X7       CLEAR ERROR STATUS                          COMCCIO    91
                          0100000000 X            SYSTEM             MAKE REQUEST TO *CIO*                       COMCCIO    92
                                                                                                                 COMCCIO    93
           474  0400400474 +             CIO=     SUBR               ENTRY/EXIT                                  COMCCIO    94
           475  53120                             SA1    X2          CHECK FET STATUS                            COMCCIO    95
                     20173                        LX1    59-0                                                    COMCCIO    96
                          0331000465 +            NG     X1,CIO3     IF FET NOT BUSY                             COMCCIO    97
           476  0311000464 +                      NZ     X1,CIO2     IF NOT BLANK FET STATUS                     COMCCIO    98
                                         QUAL$    IF     DEF,B1=1                                                COMCCIO    99
                          53121                   SA1    X2+B1       SET FIRST = IN = OUT                        COMCCIO   100
                               73610              SX6    X1                                                      COMCCIO   101
           477  54611                             SA6    A1+B1                                                   COMCCIO   102
                     54661                        SA6    A6+B1                                                   COMCCIO   103
                                         QUAL$    ELSE                                                           COMCCIO   104
                                                  SA1    X2+1        SET FIRST = IN = OUT                        COMCCIO   105
                                                  SX6    X1+                                                     CPS0307    20
                                                  SA6    X2+2                                                    COMCCIO   107
                                                  SA6    X2+3                                                    COMCCIO   108
                                         QUAL$    ENDIF                                                          COMCCIO   109
                          7222000000              SX2    X2+         SET FET ADDRESS                             CPS0307    21
           500  0400000474 +                      EQ     CIO=        RETURN                                      CPSA104    13
  
  
  
  
                                 D_D              BASE   *                                                       COMCCIO   112
                                 D_D              CODE   *                                                       COMCCIO   113
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCIO   114
                                                  QUAL   *                                                       COMCCIO   115
                                 474 +   CIO=     EQU    /COMCCIO/CIO=                                           COMCCIO   116
                                         QUAL$    ENDIF                                                          COMCCIO   117
                                         CIO      ENDX                                                           COMCCIO   118
                                                  ENTRY  CIO=                                                    UTILITY    50
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    44
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC 
  
           500                           RDC      CTEXT  COMCRDC - READ CODED LINE, -C- FORMAT.                  COMCRDC     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCRDC     4
                                                  QUAL   COMCRDC                                                 COMCRDC     5
                                 D_D              BASE   D                                                       COMCRDC     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970, 1978.               COMCRDC     7
  
  
  
  
                                        ***       RDC - READ CODED LINE, -C- FORMAT.                             COMCRDC     9
                                        *                                                                        COMCRDC    10
                                        *         G. R. MANSFIELD.   70/10/09.                                   COMCRDC    11
                                        *         R. R. RAGAN.       77/07/24.                                   COMCRDC    12
                                        *                                                                        CPSA245   104
                                        *         *******************************************************        CPSA245   105
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA245   106
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA245   107
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA245   108
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA245   109
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA245   110
                                        *         *******************************************************        CPSA245   111
                                        *                                                                        CPSA245   112
                                        *                                                                        COMCRDC    13
                                        *         RDC READS A CODED LINE TERMINATED BY A ZERO BYTE FROM          COMCRDC    14
                                        *         A CIO BUFFER TO A WORKING STORAGE AREA.                        COMCRDC    15
  
  
  
  
                                        ***       RDC READS 1 CODED LINE FROM A CIO BUFFER TO A                  COMCRDC    17
                                        *         WORKING BUFFER.                                                COMCRDC    18
                                        *                                                                        COMCRDC    19
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC    20
                                        *                (B6) = FWA WORKING BUFFER.                              COMCRDC    21
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDC    22
                                        *                IF (B7) .LT. 0 THEN -(B7) = WORD COUNT OF WORKING       COMCRDC    23
                                        *                BUFFER AND RDC WILL NOT READ AND DISCARD WORDS          COMCRDC    24
                                        *                UNTIL AN END OF LINE FOR LINES LONGER THAN THE          COMCRDC    25
                                        *                WORKING BUFFER.                                         COMCRDC    26
                                        *                                                                        COMCRDC    27
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDC    28
                                        *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDC    29
                                        *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDC    30
                                        *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDC    31
                                        *                             TRANSFER WAS COMPLETED.                    COMCRDC    32
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDC    33
                                        *                             WORKING BUFFER.                            COMCRDC    34
                                        *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDC    35
                                        *                (X4) = CONTENTS OF LAST DATA WORD TRANSFERRED           COMCRDC    36
                                        *                            BEFORE EOL GUARANTEED. IF TRANSFER          COMCRDC    37
                                        *                            COMPLETED ((X1)  = 0).                      COMCRDC    38
                                        *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDC    39
                                        *                (B1) = 1.                                               COMCRDC    40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    45
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC                 COMCRDC 
  
                                        *                                                                        COMCRDC    41
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDC    42
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDC    43
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDC    44
                                        *                                                                        COMCRDC    45
                                        *         CALLS  LCB=, RDX=.                                             COMCRDC    46
                                                                                                                 COMCRDC    47
                                                                                                                 COMCRDC    48
           501  0400000507 +             +        EQ     RDC2                                                    COMCRDC    49
                                                                                                                 COMCRDC    50
           502  0400400502 +             RDC=     SUBR               ENTRY/EXIT                                  COMCRDC    51
           503  5140000502 +                      SA4    RDC=        SET RETURN ADDRESS                          CPSA104    23
                                                  IF     -DEF,B1=1,1                                             COMCRDC    53
                                                  SB1    1                                                       COMCRDC    54
                          5212000004              SA1    X2+4        (B5) = LIMIT                                COMCRDC    55
           504  66270                             SB2    B7          (B2) = ORIGINAL (B7)                        COMCRDC    56
                     0670000505 +                 PL     B7,RDC1     IF (B7) = POSITIVE WORD COUNT               COMCRDC    57
                               67707              SB7    -B7                                                     COMCRDC    58
           505  0520000506 +             RDC1     NZ     B2,RDC1A    IF ORIGINAL (B7) IS NON-ZERO                CPSA123     5
                          67701                   SB7    -B1         ENSURE TRANSFER TILL END OF LINE            CPSA123     6
           506  53321                    RDC1A    SA3    X2+B1       (X3) = FIRST                                CPSA123     7
                     66767                        SB7    B6+B7       (B7) = LWA+1 WORKING BUFFER                 COMCRDC    60
                          43460                   MX4    -12         (X4) = BYTE MASK                            COMCRDC    61
                               63510              SB5    X1                                                      COMCRDC    62
                                                                                                                 COMCRDC    63
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDC    64
                                                                                                                 COMCRDC    65
           507  54131                    RDC2     SA1    A3+B1       (B3) = IN                                   COMCRDC    66
                     54211                        SA2    A1+B1       (B4) = OUT                                  COMCRDC    67
                          63310                   SB3    X1                                                      COMCRDC    68
                               63420              SB4    X2                                                      COMCRDC    69
                                                                                                                 COMCRDC    70
                                        *         TRANSFER DATA FROM CIRCULAR BUFFER TO WORKING BUFFER.          COMCRDC    71
                                                                                                                 COMCRDC    72
           510  0443000641 +             RDC3     EQ     B4,B3,=XLCB= LOAD CIRCULAR BUFFER IF OUT = IN           COMCRDC    73
                          56140                   SA1    B4          READ WORD                                   COMCRDC    74
                               66441              SB4    B4+B1       (OUT+1)                                     COMCRDC    75
           511  15714                             BX7    -X4*X1      CHECK LAST BYTE                             COMCRDC    76
                     0445000517 +                 EQ     B4,B5,RDC6  IF (OUT+1) = LIMIT                          COMCRDC    77
                               10611              BX6    X1                                                      COMCRDC    78
           512  0307000515 +             RDC4     ZR     X7,RDC5     IF END OF LINE                              COMCRDC    79
                          0467000510 +            EQ     B6,B7,RDC3  IF WORKING BUFFER FILLED                    COMCRDC    80
           513  56660                             SA6    B6          STORE WORD                                  COMCRDC    81
                     66661                        SB6    B6+B1                                                   COMCRDC    82
                          0567000510 +            NE     B6,B7,RDC3  IF WORKING BUFFER NOT FULL                  COMCRDC    83
           514  0620000510 +                      PL     B2,RDC3     IF REST OF LINE TO BE SKIPPED               COMCRDC    84
                          11646                   BX6    X4*X6       CLEAR LAST BYTE                             COMCRDC    85
                               67661              SB6    B6-B1                                                   COMCRDC    86
                                                                                                                 COMCRDC    87
                                        *         STORE LAST WORD TO WORKING BUFFER.                             COMCRDC    88
                                                                                                                 COMCRDC    89
           515  0467000520 +             RDC5     EQ     B6,B7,RDC7  IF WORKING BUFFER FULL                      COMCRDC    90
                          56660                   SA6    B6          STORE LAST WORD                             COMCRDC    91
                               66661              SB6    B6+B1                                                   COMCRDC    92
           516  10411                             BX4    X1          RETURN LAST WORD BEFORE EOL CLEARED         COMCRDC    93
                     0400000626 +                 EQ     =XRDX=      EXIT                                        COMCRDC    94
                                                                                                                 COMCRDC    95
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    46
        COMCRDC - READ CODED LINE, -C- FORMAT.                        RDC                 COMCRDC 
  
           517  63430                    RDC6     SB4    X3          (OUT+1) = FIRST                             COMCRDC    96
                     10611                        BX6    X1                                                      COMCRDC    97
                          0400000512 +            EQ     RDC4        LOOP                                        COMCRDC    98
                                                                                                                 COMCRDC    99
           520  57161                    RDC7     SA1    B6-B1       READ LAST WORD IN WORKING BUFFER            COMCRDC   100
                     11641                        BX6    X4*X1       CLEAR LAST BYTE                             COMCRDC   101
                          10411                   BX4    X1          RETURN LAST WORD BEFORE EOL CLEARED         COMCRDC   102
                               54610              SA6    A1                                                      COMCRDC   103
           521  0400000626 +                      EQ     =XRDX=      EXIT                                        COMCRDC   104
  
  
  
  
                                 D_D              BASE   *                                                       COMCRDC   106
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRDC   107
                                                  QUAL   *                                                       COMCRDC   108
                                 502 +   RDC=     EQU    /COMCRDC/RDC=                                           COMCRDC   109
                                         QUAL$    ENDIF                                                          COMCRDC   110
                                         RDC      ENDX                                                           COMCRDC   111
                                                  ENTRY  RDC=                                                    UTILITY    52
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    47
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW 
  
           521                           RDW      CTEXT  COMCRDW - READ WORDS TO WORKING BUFFER.                 COMCRDW     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCRDW     4
                                                  QUAL   COMCRDW                                                 COMCRDW     5
                                 D_D              BASE   D                                                       COMCRDW     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970, 1978.               COMCRDW     7
  
  
  
  
                                        ***       RDW - READ WORDS TO WORKING BUFFER.                            COMCRDW     9
                                        *                                                                        COMCRDW    10
                                        *         D. A. CAHLANDER.   70/11/29.                                   COMCRDW    11
                                        *         R. E. TATE.        73/11/04.                                   COMCRDW    12
                                        *         R. R. RAGAN.       77/07/21.                                   COMCRDW    13
                                        *         C. J. CONRAD.      81/08/06.                                   CPSA242    10
                                        *                                                                        CPSA242    11
                                        *         *******************************************************        CPSA242    12
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA242    13
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA242    14
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA242    15
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA242    16
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA242    17
                                        *         *******************************************************        CPSA242    18
                                        *                                                                        CPSA242    19
                                        *                                                                        COMCRDW    14
                                        *         RDW READS A GIVEN NUMBER OF WORDS FROM A CIO BUFFER            COMCRDW    15
                                        *         TO A WORKING STORAGE AREA.  IT ALSO CONTAINS THE LOAD CIO      COMCRDW    16
                                        *         BUFFER AND READ EXIT ROUTINES REQUIRED BY RDC,RDH, AND RDS.    COMCRDW    17
  
  
  
  
                                        ***       RDW READS A GIVEN NUMBER OF WORDS FROM A CIO BUFFER TO         COMCRDW    19
                                        *         A WORKING BUFFER.  THIS DECK ALSO CONTAINS LCB=, RDX=.         COMCRDW    20
                                        *                                                                        COMCRDW    21
                                        *         THE THRESHOLD CONDITION TO ISSUE READ FUNCTIONS                CPSA242    20
                                        *         IS BUFFER HALF EMPTY FOR BUFFERS LARGER                        CPSA242    21
                                        *         THAN 511 DECIMAL WORDS, AND BUFFER TOTALLY                     CPSA242    22
                                        *         EMPTY FOR SMALLER BUFFERS.  IF THE SYMBOL                      CPSA242    23
                                        *         RDX$ IS DEFINED, THEN THE THRESHOLD IS                         CPSA242    24
                                        *         BUFFER EMPTY FOR ALL BUFFER SIZES.                             CPSA242    25
                                        *                                                                        CPSA242    26
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW    22
                                        *                (B6) = FWA WORKING BUFFER.                              COMCRDW    23
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCRDW    24
                                        *                                                                        COMCRDW    25
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         COMCRDW    26
                                        *                (X1) = -1 IF EOF DETECTED ON FILE.                      COMCRDW    27
                                        *                (X1) = -2 IF EOI DETECTED ON FILE.                      COMCRDW    28
                                        *                (X1) = -3 IF *CIO=* WAS CALLED TO READ MORE DATA AND    COMCRDW    29
                                        *                       RETURNED AN ERROR STATUS.                        COMCRDW    30
                                        *                (X1) = (B6) IF EOR WAS DETECTED ON FILE BEFORE          COMCRDW    31
                                        *                             TRANSFER WAS COMPLETED.                    COMCRDW    32
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    48
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 COMCRDW 
  
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     COMCRDW    33
                                        *                             WORKING BUFFER.                            COMCRDW    34
                                        *                (B7) = WORD COUNT REMAINING TO BE TRANSFERRED.          COMCRDW    35
                                        *                (X2) = ADDRESS OF FET FOR FILE.                         COMCRDW    36
                                        *                (X7) = ERROR STATUS IF (X1) = -3.                       COMCRDW    37
                                        *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDW    38
                                        *                (B1) = 1.                                               COMCRDW    39
                                        *                                                                        COMCRDW    40
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCRDW    41
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCRDW    42
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCRDW    43
                                        *                                                                        COMCRDW    44
                                        *         CALLS  CIO=.                                                   COMCRDW    45
                                                                                                                 COMCRDW    46
                                                                                                                 COMCRDW    47
                                        *         PROCESS 1 WORD OR BUFFER EMPTY.                                COMCRDW    48
                                                                                                                 COMCRDW    49
           522  0430000573 +             RDW18    ZR     B3,RDW11    IF NO DATA                                  COMCRDW    50
                          10711                   BX7    X1          STORE 1 WORD                                COMCRDW    51
                               56760              SA7    B6                                                      COMCRDW    52
           523  76643                    RDW19    SX6    B4+B3       ADVANCE OUT                                 COMCRDW    53
                     66443                        SB4    B4+B3                                                   COMCRDW    54
                          66663                   SB6    B6+B3                                                   COMCRDW    55
                               67773              SB7    B7-B3                                                   COMCRDW    56
           524  0545000525 +                      NE     B4,B5,RDW20 IF OUT .NE. LIMIT                           COMCRDW    57
                          53121                   SA1    X2+B1       READ FIRST                                  COMCRDW    58
                               73610              SX6    X1          OUT = FIRST                                 COMCRDW    59
           525  54630                    RDW20    SA6    A3          UPDATE OUT                                  COMCRDW    60
           526                           RDW21    BSS    0                                                       CPSA187     5
           526  13111                             BX1    X1-X1       RESPONSE = 0                                COMCRDW    61
                     0570000531 +                 NZ     B7,RDW1     IF NOT END OF TRANSFER                      COMCRDW    62
                                                                                                                 COMCRDW    63
           527  0400400527 +             RDW=     SUBR               ENTRY/EXIT                                  COMCRDW    64
           530  0470000526 +                      ZR     B7,RDW21    IF ZERO WORD COUNT, SET COMPLETE AND EXIT.  CPSA187     6
           531  5232000003               RDW1     SA3    X2+3        (B4) = OUT                                  COMCRDW    65
                          5212000002              SA1    X2+2        (B3) = IN                                   COMCRDW    66
                                                  IF     -DEF,B1=1,1                                             COMCRDW    67
                                                  SB1    1                                                       COMCRDW    68
           532  54431                             SA4    A3+B1       (B5) = LIMIT                                COMCRDW    69
                     63430                        SB4    X3                                                      COMCRDW    70
                          63310                   SB3    X1                                                      COMCRDW    71
                               53130              SA1    X3          READ FIRST WORD                             COMCRDW    72
           533  63540                             SB5    X4                                                      COMCRDW    73
                     0634000534 +                 GE     B3,B4,RDW2  IF NO END AROUND                            COMCRDW    74
                               66350              SB3    B5                                                      COMCRDW    75
           534  67334                    RDW2     SB3    B3-B4       FREE DATA LENGTH                            COMCRDW    76
                     0673000535 +                 LE     B3,B7,RDW3  IF NOT ENOUGH ROOM                          COMCRDW    77
                               66370              SB3    B7                                                      COMCRDW    78
           535                           RDWA     BSS    0                                                       COMCRDW    79
           535  5130000620 +             RDW3     SA3    RDWB        PRESET CMU CODE                             COMCRDW    80
                          0100000620 +            RJ     RDW16       PRESET CMU CODE                             COMCRDW    81
                                        *         LE     B3,B1,RDW18 IF 1 WORD OR LESS OF DATA (NO CMU)          COMCRDW    82
                                        *         BX7    X1          (NO CMU)                                    COMCRDW    83
                                        *         SA1    A1+B1       (NO CMU)                                    COMCRDW    84
                                        *                                                                        COMCRDW    85
                                        *         LE     B3,B1,RDW18 IF 1 WORD OR LESS OF DATA (CMU)             COMCRDW    86
                                        *         EQ     RDW14       (CMU)                                       COMCRDW    87
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    49
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 COMCRDW 
  
                                                                                                                 COMCRDW    88
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCRDW    89
                                                                                                                 COMCRDW    90
           536  77431                    RDW4     SX4    B3-B1                                                   COMCRDW    91
                     43671                        MX6    -3                                                      COMCRDW    92
                          56760                   SA7    B6                                                      COMCRDW    93
                               15346              BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCRDW    94
           537  21403                             AX4    3           NUMBER OF BLOCKS                            COMCRDW    95
                                                                                                                 COMCRDW    96
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCRDW    97
                                                                                                                 COMCRDW    98
                     0303000542 +                 ZR     X3,RDW6     IF NO ODD WORDS                             COMCRDW    99
                               63230              SB2    X3                                                      COMCRDW   100
           540  67221                    RDW5     SB2    B2-B1                                                   COMCRDW   101
                     10711                        BX7    X1                                                      COMCRDW   102
                          54111                   SA1    A1+B1                                                   COMCRDW   103
                               54771              SA7    A7+B1                                                   COMCRDW   104
           541  0520000540 +                      NZ     B2,RDW5     IF MORE WORDS                               COMCRDW   105
                                                                                                                 COMCRDW   106
                                        *         PRE-READ REGISTERS.                                            COMCRDW   107
                                                                                                                 COMCRDW   108
           542  0304000523 +             RDW6     ZR     X4,RDW19    IF NO BLOCKS                                COMCRDW   109
                          63520                   SB5    X2                                                      COMCRDW   110
                               54211              SA2    A1+B1                                                   COMCRDW   111
           543  66211                             SB2    B1+B1       (B2) = 2                                    COMCRDW   112
                     54321                        SA3    A2+B1                                                   COMCRDW   113
                          63440                   SB4    X4          (B4) = LOOP COUNT                           COMCRDW   114
                               54431              SA4    A3+B1                                                   COMCRDW   115
                                                                                                                 COMCRDW   116
                                        *         TRANSFER 8 WORD BLOCKS.                                        COMCRDW   117
                                                                                                                 COMCRDW   118
           544  10611                    RDW7     BX6    X1                                                      COMCRDW   119
                     22702                        LX7    X2                                                      COMCRDW   120
                          54132                   SA1    A3+B2                                                   COMCRDW   121
                               54242              SA2    A4+B2                                                   COMCRDW   122
           545  54671                             SA6    A7+B1                                                   COMCRDW   123
                     67441                        SB4    B4-B1                                                   COMCRDW   124
                          54761                   SA7    A6+B1                                                   COMCRDW   125
                               10633              BX6    X3                                                      COMCRDW   126
           546  22704                             LX7    X4                                                      COMCRDW   127
                     54312                        SA3    A1+B2                                                   COMCRDW   128
                          54422                   SA4    A2+B2                                                   COMCRDW   129
                               54662              SA6    A6+B2                                                   COMCRDW   130
           547  54772                             SA7    A7+B2                                                   COMCRDW   131
                     10611                        BX6    X1                                                      COMCRDW   132
                          22702                   LX7    X2                                                      COMCRDW   133
                               54132              SA1    A3+B2                                                   COMCRDW   134
           550  54242                             SA2    A4+B2                                                   COMCRDW   135
                     54662                        SA6    A6+B2                                                   COMCRDW   136
                          54772                   SA7    A7+B2                                                   COMCRDW   137
                               10633              BX6    X3                                                      COMCRDW   138
           551  22704                             LX7    X4                                                      COMCRDW   139
                     54312                        SA3    A1+B2                                                   COMCRDW   140
                          54422                   SA4    A2+B2                                                   COMCRDW   141
                               54662              SA6    A6+B2                                                   COMCRDW   142
           552  54772                             SA7    A7+B2                                                   COMCRDW   143
                     0540000544 +                 NZ     B4,RDW7     LOOP                                        COMCRDW   144
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    50
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 COMCRDW 
  
                                                                                                                 COMCRDW   145
                                        *         READ EXIT.                                                     COMCRDW   146
                                                                                                                 COMCRDW   147
                               76250              SX2    B5          RESET FET ADDRESS                           COMCRDW   148
           553  5135000003                        SA3    B5+3        OUT                                         COMCRDW   149
                          54131                   SA1    A3+B1       (B5) = LIMIT                                COMCRDW   150
                               63510              SB5    X1                                                      COMCRDW   151
           554  53420                    RDW8     SA4    X2          CHECK BUFFER STATUS                         COMCRDW   152
                     66663                        SB6    B6+B3                                                   COMCRDW   153
                          67773                   SB7    B7-B3                                                   COMCRDW   154
                               63433              SB4    X3+B3       ADVANCE OUT                                 COMCRDW   155
           555  73633                             SX6    X3+B3                                                   COMCRDW   156
                     20473                        LX4    59-0                                                    COMCRDW   157
                          5212000001              SA1    X2+1        READ FIRST                                  COMCRDW   158
           556  0545000557 +                      NE     B4,B5,RDW9  IF OUT .NE. LIMIT                           COMCRDW   159
                          7261000000              SX6    X1+         OUT = FIRST                                 COMCRDW   160
                                         RDX$     IF     DEF,RDX$                                                CPSA242    27
                                         RDW9     EQ     RDW20       CLEAN UP AND RETURN                         CPSA242    28
                                         RDX$     ELSE                                                           CPSA242    29
                                                                                                                 COMCRDW   161
                                        *         TRY TO BUFFER AHEAD.                                           COMCRDW   162
                                                                                                                 COMCRDW   163
           557  0324000525 +             RDW9     PL     X4,RDW20    IF BUFFER BUSY                              COMCRDW   164
                          20470                   LX4    59-4-59-0                                               COMCRDW   165
           560  0334000525 +                      NG     X4,RDW20    IF EOR/EOF SET                              COMCRDW   166
                          5242000002              SA4    X2+2        READ IN                                     COMCRDW   167
           561  63210                             SB2    X1          (LIMIT - FIRST)                             COMCRDW   168
                     77152                        SX1    B5-B2                                                   COMCRDW   169
                          37746                   IX7    X4-X6       (IN-OUT)                                    COMCRDW   170
                               22317              LX3    X7,B1       2*(IN-OUT)                                  COMCRDW   171
           562  21774                             AX7    60          SIGN OF (IN-OUT)                            COMCRDW   172
                     13471                        BX4    X7-X1       INVERT BUFFER IF OUT .GE. IN                COMCRDW   173
                          37743                   IX7    X4-X3       BUFFER SIZE - 2*(IN-OUT)                    COMCRDW   174
                               21111              AX1    9                                                       COMCRDW   175
           563  0337000525 +                      NG     X7,RDW20    IF BUFFER THRESHOLD NOT REACHED             COMCRDW   176
                          0301000525 +            ZR     X1,RDW20    IF BUFFER NOT BIG ENOUGH TO READ AHEAD      COMCRDW   177
           564  5063000000                        SA6    A3+         UPDATE OUT                                  COMCRDW   178
                                         RDX$     ENDIF                                                          CPSA242    30
           565  54110                    RDW10    SA1    A1          REREAD FIRST                                COMCRDW   179
                     21166                        AX1    54                                                      COMCRDW   180
                          7170360374              SX7    740770B/2                                               COMCRDW   181
           566  6221000016                        SB2    X1+77B-61B  CHECK FOR NOS/BE TERMINAL                   COMCRDW   182
                          53120                   SA1    X2                                                      COMCRDW   183
                               22417              LX4    X7,B1                                                   COMCRDW   184
           567  0420000525 +                      ZR     B2,RDW20    IF A TERMINAL SUPPRESS READ AHEAD           COMCRDW   185
                          22417                   LX4    X7,B1                                                   COMCRDW   186
                               11741              BX7    X4*X1                                                   COMCRDW   187
           570  0100000474 +                      RJ     =XCIO=                                                  COMCRDW   188
           571  43172                             MX1    -2          RESPONSE = -3                               COMCRDW   189
                     0317000527 +                 NZ     X7,RDW=     IF ERROR ON LAST *CIO* REQUEST, RETURN      CPSA104    33
                               13111              BX1    X1-X1       RESPONSE = 0                                COMCRDW   191
           572  0570000531 +                      NZ     B7,RDW1     IF NOT DONE                                 COMCRDW   192
                          0400000527 +            EQ     RDW=        RETURN                                      CPSA104    34
                                                                                                                 COMCRDW   194
                                        *         LOAD CIRCULAR BUFFER.                                          COMCRDW   195
                                                                                                                 COMCRDW   196
           573  53120                    RDW11    SA1    X2          CHECK BUFFER STATUS                         COMCRDW   197
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    51
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 COMCRDW 
  
                     5232000002                   SA3    X2+2        READ IN                                     COMCRDW   198
                               20173              LX1    59-0                                                    COMCRDW   199
           574  0321000604 +                      PL     X1,RDW13    IF BUFFER BUSY                              COMCRDW   200
                          63330                   SB3    X3                                                      COMCRDW   201
                               20170              LX1    59-4-59+0                                               COMCRDW   202
           575  0534000531 +                      NE     B3,B4,RDW1  IF BUFFER NOT EMPTY                         COMCRDW   203
                          0321000565 +            PL     X1,RDW10    IF NOT EOR SET                              COMCRDW   204
           576  53321                             SA3    X2+B1       SET IN = OUT = FIRST                        COMCRDW   205
                     43770                        MX7    -4                                                      COMCRDW   206
                          22611                   LX6    X1,B1                                                   COMCRDW   207
                               20163              LX1    60+0-14-59+4                                            COMCRDW   208
           577  15717                             BX7    -X7*X1      (X7) = LEVEL NUMBER                         COMCRDW   209
                     76160                        SX1    B6                                                      COMCRDW   210
                          0326000602 +            PL     X6,RDW12    IF NOT EOF                                  COMCRDW   211
           600  20666                             LX6    59-9-59+3                                               COMCRDW   212
                     43173                        MX1    -1                                                      COMCRDW   213
                          0326000602 +            PL     X6,RDW12    IF NOT EOI                                  COMCRDW   214
           601  7110777775                        SX1    -2                                                      COMCRDW   215
           602  7263000000               RDW12    SX6    X3+                                                     COMCRDW   216
                          54631                   SA6    A3+B1       STORE IN                                    COMCRDW   217
                               54661              SA6    A6+B1       STORE OUT                                   COMCRDW   218
           603  0400000527 +                      EQ     RDW=        RETURN                                      CPSA104    35
                                                                                                                 COMCRDW   220
                                        *         RECALL WAITING FOR I/O.                                        COMCRDW   221
                                                                                                                 COMCRDW   222
           604  0100000000 X             RDW13    RECALL                                                         COMCRDW   223
           605  0400000531 +                      EQ     RDW1                                                    COMCRDW   224
                                                                                                                 COMCRDW   225
                                        *         MOVE DATA WITH CMU.                                            COMCRDW   226
                                                                                                                 COMCRDW   227
           606  7143776314               RDW14    SX4    B3-819                                                  COMCRDW   228
                          0324000617 +            PL     X4,RDW15    IF MOVE TOO BIG FOR CMU                     COMCRDW   229
           607  76430                             SX4    B3          10 * WORDS = CHARACTERS                     COMCRDW   230
                     22614                        LX6    X4,B1                                                   COMCRDW   231
                          10100                   BX1    X0          SAVE X0                                     COMCRDW   232
                               20403              LX4    3                                                       COMCRDW   233
           610  36646                             IX6    X4+X6                                                   COMCRDW   234
                     76760                        SX7    B6          SET DESTINATION ADDRESS                     COMCRDW   235
                          20336                   LX3    30                                                      COMCRDW   236
                               43470              MX4    -4                                                      COMCRDW   237
           611  12773                             BX7    X7+X3                                                   COMCRDW   238
                     11346                        BX3    X4*X6       EXTRACT UPPER PORTION OF CHARACTER COUNT    COMCRDW   239
                          20354                   LX3    48-4                                                    COMCRDW   240
                               15464              BX4    -X4*X6                                                  COMCRDW   241
           612  12737                             BX7    X3+X7                                                   COMCRDW   242
                     20432                        LX4    26                                                      COMCRDW   243
                          12747                   BX7    X4+X7                                                   COMCRDW   244
                               21363              AX3    51                                                      COMCRDW   245
           613  5170000620 +                      SA7    RDWB        STORE DESCRIPTOR WORD                       COMCRDW   246
           614  4640000620 +                      IM     RDWB        MOVE DATA                                   COMCRDW   247
           615  10011                             BX0    X1          RESTORE X0                                  COMCRDW   248
                     0303000523 +                 ZR     X3,RDW19    IF NO READ EXIT CHECK                       COMCRDW   249
                               76340              SX3    B4          SET OUT                                     COMCRDW   250
           616  0400000554 +                      EQ     RDW8                                                    COMCRDW   251
                                                                                                                 COMCRDW   252
           617  10711                    RDW15    BX7    X1                                                      COMCRDW   253
                     54111                        SA1    A1+B1                                                   COMCRDW   254
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    52
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDW                 COMCRDW 
  
                          0400000536 +            EQ     RDW4                                                    COMCRDW   255
                                                                                                                 COMCRDW   256
                                        *         PRESET FOR CMU.                                                COMCRDW   257
                                        *         RDWB IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID     COMCRDW   258
                                        *         THE INSTRUCTION STACK.                                         COMCRDW   259
                                                                                                                 COMCRDW   260
           620  0613000522 +             RDWB     LE     B3,B1,RDW18  IF 1 WORD OR LESS (CMU)                    COMCRDW   261
                          0400000606 +            EQ     RDW14                                                   COMCRDW   262
                                                                                                                 COMCRDW   263
                                 620 +   RDW16    EQU    RDWB        USED TO VOID STACK AT PRESET                COMCRDW   264
                                                                                                                 COMCRDW   265
                                        *         PRESET FOR CMU.                                                COMCRDW   266
                                                                                                                 COMCRDW   267
           621  5140000065                        SA4    RA.CMU      CHECK IF CMU AVAILABLE                      COMCRDW   268
                          6130000535 +            SB3    RDWA                                                    COMCRDW   269
           622  0334000623 +                      NG     X4,RDW17    IF CMU                                      COMCRDW   270
                          5130000625 +            SA3    RDWC                                                    COMCRDW   271
           623  10633                    RDW17    BX6    X3                                                      COMCRDW   272
                     56630                        SA6    B3                                                      COMCRDW   273
                          0100000623 +            RJ     *           VOID INSTRUCTION STACK.                     CPSA163     7
           624  0400000531 +                      EQ     RDW1                                                    COMCRDW   274
                                                                                                                 COMCRDW   275
           625  0613000522 +             RDWC     LE     B3,B1,RDW18  IF 1 WORD OR LESS (NO CMU)                 COMCRDW   276
                          10711                   BX7    X1                                                      COMCRDW   277
                               54111              SA1    A1+B1                                                   COMCRDW   278
  
  
  
  
                                        **        RDX - READ EXIT.                                               COMCRDW   280
                                        *         EXIT FROM READ SUBROUTINE TO CALLER.                           COMCRDW   281
                                        *         IF CIRCULAR BUFFER IS BUSY, OR EOR/EOF IS SENSED, NO ACTION    COMCRDW   282
                                        *         IS TAKEN.                                                      COMCRDW   283
                                        *         OTHERWISE, THE WORD COUNT REMAINING IN THE BUFFER IS CHECKED   COMCRDW   284
                                        *         AND PREVIOUS READ FUNCTION ISSUED IF NECESSARY.                COMCRDW   285
                                        *                                                                        COMCRDW   286
                                        *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW   287
                                        *                (A3) = ADDRESS OF FIRST.                                COMCRDW   288
                                        *                (A4) = RETURN ADDRESS.                                  COMCRDW   289
                                        *                (X3) = FIRST.                                           COMCRDW   290
                                        *                (B3) = IN.                                              COMCRDW   291
                                        *                (B4) = OUT.                                             COMCRDW   292
                                        *                (B5) = LIMIT.                                           COMCRDW   293
                                        *                (B1) = 1.                                               COMCRDW   294
                                        *                                                                        COMCRDW   295
                                        *         EXIT   TO RETURN ADDRESS.                                      COMCRDW   296
                                        *                (X2) = FET ADDRESS.                                     COMCRDW   297
                                        *                (X1) = 0.                                               COMCRDW   298
                                        *                (B1) = 1.                                               COMCRDW   299
                                        *                                                                        COMCRDW   300
                                        *         USES   A - 1, 6.                                               COMCRDW   301
                                        *                B - 2.                                                  COMCRDW   302
                                        *                X - 1, 2, 3, 6, 7.                                      COMCRDW   303
                                        *                                                                        COMCRDW   304
                                        *         CALLS  CIO=.                                                   COMCRDW   305
                                                                                                                 COMCRDW   306
                                                                                                                 COMCRDW   307
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    53
        COMCRDW - READ WORDS TO WORKING BUFFER.                       RDX                 COMCRDW 
  
           626  55131                    RDX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   308
                     76640                        SX6    B4          STORE OUT                                   COMCRDW   309
                          20173                   LX1    59-0                                                    COMCRDW   310
                               54620              SA6    A2                                                      COMCRDW   311
           627  75231                             SX2    A3-B1       RESET (X2)                                  COMCRDW   312
                                         RDX$     IF     -DEF,RDX$                                               CPSA242    31
                     0321000640 +                 PL     X1,RDX1     IF BUFFER BUSY                              COMCRDW   313
                               20170              LX1    59-4-59+0                                               COMCRDW   314
           630  0331000640 +                      NG     X1,RDX1     IF EOR/EOF SET                              COMCRDW   315
                                                                                                                 COMCRDW   316
                                        *         IF BUFFER IS NOT BUSY, CHECK BUFFER SIZE.                      COMCRDW   317
                                        *         ISSUE READ IF BUFFER THRESHOLD IS REACHED.                     COMCRDW   318
                                                                                                                 COMCRDW   319
                          55121                   SA1    A2-B1       REREAD IN                                   CPSA242    32
                               63310              SB3    X1                                                      CPSA242    33
           631  77634                             SX6    B3-B4       (IN-OUT)                                    COMCRDW   320
                     63230                        SB2    X3          (LIMIT-FIRST)                               COMCRDW   321
                          21366                   AX3    54                                                      COMCRDW   322
           632  7273000016                        SX7    X3+77B-61B  CHECK IF NOS/BE TERMINAL                    COMCRDW   323
                          22316                   LX3    X6,B1       2*(IN-OUT)                                  COMCRDW   324
           633  0307000640 +                      ZR     X7,RDX1     IF TERMINAL SUPPRESS READ AHEAD             COMCRDW   325
                          77752                   SX7    B5-B2                                                   COMCRDW   326
                               21674              AX6    60          SIGN OF (IN-OUT)                            COMCRDW   327
           634  13667                             BX6    X6-X7       INVERT BUFFER IF OUT .GE. IN                COMCRDW   328
                     37663                        IX6    X6-X3       BUFFER SIZE - 2 * ( IN - OUT )              COMCRDW   329
                          21711                   AX7    9                                                       CPSA242    34
           635  0336000640 +                      NG     X6,RDX1     IF BUFFER THRESHOLD NOT REACHED             COMCRDW   330
                          0307000640 +            ZR     X7,RDX1     IF BUFFER NOT BIG ENOUGH TO READ AHEAD      COMCRDW   332
           636  53120                             SA1    X2          ISSUE PREVIOUS READ FUNCTION                CPSA242    35
                     7160360374                   SX6    740770B/2                                               COMCRDW   334
                               20601              LX6    1                                                       CPSA242    36
           637  11761                             BX7    X6*X1                                                   COMCRDW   335
                     0100000474 +                 RJ     =XCIO=                                                  COMCRDW   337
           640  76100                    RDX1     SX1    B0          RESPONSE = 0                                COMCRDW   338
                                         RDX$     ELSE                                                           CPSA242    37
                                                  SX1    B0+         RESPONSE = 0                                CPSA242    38
                                         RDX$     ENDIF                                                          CPSA242    39
                     64240                        SB2    A4          SET RETURN ADDRESS                          COMCRDW   339
                          0222000000              JP     B2          RETURN                                      COMCRDW   340
  
  
  
  
                                        **        LCB - LOAD CIRCULAR BUFFER.                                    COMCRDW   342
                                        *         REQUEST READ IF BUFFER IS EMPTY, NOT BUSY AND NOT EOR/EOF.     COMCRDW   343
                                        *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCRDW   344
                                        *                                                                        COMCRDW   345
                                        *         ENTRY  (A2) = ADDRESS OF OUT.                                  COMCRDW   346
                                        *                (A3) = ADDRESS OF FIRST.                                COMCRDW   347
                                        *                (A4) = RETURN ADDRESS.                                  COMCRDW   348
                                        *                (B4) = OUT.                                             COMCRDW   349
                                        *                                                                        COMCRDW   350
                                        *         EXIT   TO RETURN ADDRESS - 1 IF CONTINUATION READ.             COMCRDW   351
                                        *                TO RETURN ADDRESS IF EOR/EOF.                           COMCRDW   352
                                        *                (X1) = LAST WORD ADDRESS OF WORKING BUFFER.             COMCRDW   353
                                        *                (X1) = -1 IF EOF.                                       COMCRDW   354
                                        *                (X1) = -2 IF EOI.                                       COMCRDW   355
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    54
        COMCRDW - READ WORDS TO WORKING BUFFER.                       LCB                 COMCRDW 
  
                                        *                (X2) = FET ADDRESS.                                     COMCRDW   356
                                        *                (X7) = LEVEL NUMBER ON EOR.                             COMCRDW   357
                                        *                (B1) = 1.                                               COMCRDW   358
                                        *                                                                        COMCRDW   359
                                        *         USES   A - 1, 6, 7.                                            COMCRDW   360
                                        *                B - 3.                                                  COMCRDW   361
                                        *                X - 1, 2, 6, 7.                                         COMCRDW   362
                                        *                                                                        COMCRDW   363
                                        *         CALLS  CIO=.                                                   COMCRDW   364
                                        *                                                                        CPS0303     7
                                        *         MACROS READ, RECALL.                                           CPS0303     8
                                                                                                                 COMCRDW   365
                                                                                                                 COMCRDW   366
           641  55131                    LCB=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   367
                     76640                        SX6    B4          STORE OUT                                   COMCRDW   368
                          20173                   LX1    59-0                                                    COMCRDW   369
                               54620              SA6    A2                                                      COMCRDW   370
           642  0331000644 +                      NG     X1,LCB2     IF BUFFER NOT BUSY                          COMCRDW   371
                          0100000000 X            RECALL                                                         COMCRDW   372
           643  65341                    LCB1     SB3    A4-B1       CONTINUE READ                               COMCRDW   373
                     75231                        SX2    A3-B1       RESET (X2)                                  COMCRDW   374
                          0233000000              JP     B3                                                      COMCRDW   375
                                                                                                                 COMCRDW   376
           644  55121                    LCB2     SA1    A2-B1       RE-READ IN                                  COMCRDW   377
                     63310                        SB3    X1                                                      COMCRDW   378
                          0534000643 +            NE     B3,B4,LCB1  IF BUFFER NOT EMPTY                         COMCRDW   379
           645  55131                             SA1    A3-B1       CHECK BUFFER STATUS                         COMCRDW   380
                     20167                        LX1    59-4                                                    COMCRDW   381
                          0331000651 +            NG     X1,LCB3     IF EOR SET                                  COMCRDW   382
           646  7160360374                        SX6    740770B/2   ISSUE PREVIOUS READ FUNCTION                COMCRDW   383
                          20104                   LX1    4                                                       COMCRDW   384
                               75231              SX2    A3-B1                                                   COMCRDW   385
           647  11761                             BX7    X6*X1                                                   COMCRDW   386
                     20701                        LX7    1                                                       COMCRDW   387
                          0100000474 +            RJ     =XCIO=                                                  COMCRDW   388
           650  65341                             SB3    A4-B1       CONTINUE READ                               COMCRDW   389
                     0233000000                   JP     B3                                                      COMCRDW   390
                                                                                                                 COMCRDW   391
           651  22211                    LCB3     LX2    B1,X1                                                   COMCRDW   392
                     54130                        SA1    A3          SET IN = OUT = FIRST                        COMCRDW   393
                          73610                   SX6    X1                                                      COMCRDW   394
                               21160              AX1    48                                                      COMCRDW   395
           652  6231775353                        SB3    X1-2RTT     CHECK FOR NOS TERMINAL                      COMCRDW   396
                          54611                   SA6    A1+B1                                                   COMCRDW   397
                               77101              SX1    -B1         RESPONSE = -1                               COMCRDW   398
           653  0332000656 +                      NG     X2,LCB4     IF EOF                                      COMCRDW   399
                          43770                   MX7    -4                                                      COMCRDW   400
                               76160              SX1    B6          RESPONSE = LAST WORD ADDRESS                COMCRDW   401
           654  20262                             LX2    60+0-14-59+3                                            COMCRDW   402
                     15727                        BX7    -X7*X2      (X7) = LEVEL NUMBER                         COMCRDW   403
                          0530000656 +            NZ     B3,LCB4     IF NOT A NOS TERMINAL                       COMCRDW   404
           655  63370                             SB3    X7                                                      COMCRDW   405
                     0431000660 +                 EQ     B3,B1,LCB6  IF LEVEL 1                                  COMCRDW   406
           656  54661                    LCB4     SA6    A6+B1       STORE OUT                                   CPSA107     4
                     0331000663 +                 NG     X1,LCB7     IF EOF/EOI                                  COMCRDW   409
           657  64340                    LCB5     SB3    A4          SET RETURN ADDRESS                          COMCRDW   410
                     75231                        SX2    A3-B1       RESET (X2)                                  CPSA107     5
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    55
        COMCRDW - READ WORDS TO WORKING BUFFER.                       LCB                 COMCRDW 
  
                          0233000000              JP     B3          RETURN                                      COMCRDW   411
                                                                                                                 COMCRDW   412
           660  54661                    LCB6     SA6    A6+B1       STORE OUT                                   COMCRDW   413
                     75231                        READ   A3-B1       RESTART READ                                COMCRDW   414
           662  65341                             SB3    A4-B1       CONTINUE READ                               COMCRDW   415
                     0233000000                   JP     B3                                                      COMCRDW   416
                                                                                                                 COMCRDW   417
           663  20266                    LCB7     LX2    59-9-59+3                                               CPSA107     6
                     0322000657 +                 PL     X2,LCB5     IF NOT EOI                                  CPSA107     7
                               20101              LX1    1           RESPONSE= -2                                COMCRDW   420
           664  64340                             SB3    A4          SET RETURN ADDRESS                          COMCRDW   421
                     75231                        SX2    A3-B1       RESET (X2)                                  CPSA107     8
                          0233000000              JP     B3          RETURN                                      COMCRDW   422
  
  
  
  
                                 D_D              BASE   *                                                       COMCRDW   424
                                         QUAL$    IF     -DEF,QUAL$                                              COMCRDW   425
                                                  QUAL   *                                                       COMCRDW   426
                                 527 +   RDW=     EQU    /COMCRDW/RDW=                                           COMCRDW   427
                                 626 +   RDX=     EQU    /COMCRDW/RDX=                                           COMCRDW   428
                                 641 +   LCB=     EQU    /COMCRDW/LCB=                                           COMCRDW   429
                                         QUAL$    ENDIF                                                          COMCRDW   430
                                         RDW      ENDX                                                           COMCRDW   431
                                                  ENTRY  RDW=                                                    UTILITY    54
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    56
        COMCWTH - WRITE CODED LINE, -H- FORMAT.                       WTH 
  
           665                           WTH      CTEXT  COMCWTH - WRITE CODED LINE, -H- FORMAT.                 COMCWTH     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCWTH     4
                                                  QUAL   COMCWTH                                                 COMCWTH     5
                                 D_D              BASE   D                                                       COMCWTH     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTH     7
  
  
  
  
                                        ***       WTH - WRITE CODED LINE, *H* FORMAT.                            COMCWTH     9
                                        *                                                                        COMCWTH    10
                                        *         G. R. MANSFIELD.   70/10/09.                                   COMCWTH    11
                                        *         S. R. MCPHERSON.   74/09/30.                                   COMCWTH    12
                                        *         C. J. CONRAD.      81/08/06.                                   CPSA242    53
                                        *                                                                        CPSA242    54
                                        *         *******************************************************        CPSA242    55
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA242    56
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA242    57
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA242    58
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA242    59
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA242    60
                                        *         *******************************************************        CPSA242    61
                                        *                                                                        CPSA242    62
                                        *                                                                        COMCWTH    13
                                        *         WTH TRIMS TRAILING SPACES AND WRITES A LINE TO A FILE.         COMCWTH    14
  
  
  
  
                                        ***       WTH TRANSFERS 1 CODED LINE IN -H- FORMAT FROM A                COMCWTH    16
                                        *         WORKING BUFFER TO A CIO BUFFER.  TRAILING SPACES ARE DELETED.  COMCWTH    17
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTH    18
                                        *         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTH    19
                                        *         WTH WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTH    20
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTH    21
                                        *         WILL BE RE-ISSUED.                                             COMCWTH    22
                                        *         IF THE LINE TO BE WRITTEN TERMINATES WITH 6 BITS OF ZERO A     COMCWTH    23
                                        *         WORD CONTAINING A BLANK BYTE WILL BE APPENDED TO PRESERVE      COMCWTH    24
                                        *         THE  *00*  CHARACTER AS A COLON.  IF THE LINE TERMINATES       COMCWTH    25
                                        *         ON AN END-OF-LINE IT WILL BE WRITTEN AS IS.                    COMCWTH    26
                                        *                                                                        COMCWTH    27
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTH    28
                                        *                (B6) = FWA WORKING BUFFER.                              COMCWTH    29
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCWTH    30
                                        *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.             COMCWTH    31
                                        *                                                                        COMCWTH    32
                                        *         EXIT   (X2) = ADDRESS OF FET FOR FILE.                         COMCWTH    33
                                        *                (B1) = 1.                                               COMCWTH    34
                                        *                                                                        COMCWTH    35
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTH    36
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCWTH    37
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTH    38
                                        *                                                                        COMCWTH    39
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    57
        COMCWTH - WRITE CODED LINE, -H- FORMAT.                       WTH                 COMCWTH 
  
                                        *         CALLS  DCB=, WTX=.                                             COMCWTH    40
                                                                                                                 COMCWTH    41
                                                                                                                 COMCWTH    42
           665  0400000674 +             +        EQ     WTH3        ENTRY FROM DCB= ON A WRITE REQUEST          COMCWTH    43
                                                                                                                 COMCWTH    44
           666  0400400666 +             WTH=     SUBR               ENTRY/EXIT                                  COMCWTH    45
           667  5140000666 +                      SA4    WTH=        SET RETURN ADDRESS                          CPSA104    43
                          0470000666 +            ZR     B7,WTH=     IF WORKING BUFFER EMPTY, RETURN             CPSA104    44
                                                  IF     -DEF,B1=1,1                                             COMCWTH    48
                                                  SB1    1                                                       COMCWTH    49
                                                                                                                 COMCWTH    50
                                        *         DELETE TRAILING BLANK WORDS.                                   COMCWTH    51
                                                                                                                 COMCWTH    52
           670  5130000715 +                      SA3    WTHA        =1H                                         COMCWTH    53
                          56167                   SA1    B6+B7       PRESET (A1)                                 COMCWTH    54
                               66771              SB7    B7+B1                                                   COMCWTH    55
           671  55111                    WTH1     SA1    A1-B1                                                   COMCWTH    56
                     37613                        IX6    X1-X3                                                   COMCWTH    57
                          67771                   SB7    B7-B1                                                   COMCWTH    58
           672  0471000673 +                      EQ     B7,B1,WTH2                                              COMCWTH    59
                          0306000671 +            ZR     X6,WTH1                                                 COMCWTH    60
           673  5212000004               WTH2     SA1    X2+4        (B5) = LIMIT                                COMCWTH    61
                          53321                   SA3    X2+B1       (X3) = FIRST                                COMCWTH    62
                               63510              SB5    X1                                                      COMCWTH    63
                                                                                                                 COMCWTH    64
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTH    65
                                                                                                                 COMCWTH    66
           674  53220                    WTH3     SA2    X2          (B2) = FET STATUS                           CPSA242    63
                     5013000002                   SA1    A3+2        (B4) = OUT                                  CPSA242    64
                               63220              SB2    X2                                                      CPSA242    65
           675  54231                             SA2    A3+B1       (X2) = IN                                   COMCWTH    68
                     63410                        SB4    X1                                                      COMCWTH    69
                                                                                                                 COMCWTH    70
                                        *         TRANSFER DATA FROM WORKING BUFFER TO CIRCULAR BUFFER.          COMCWTH    71
                                                                                                                 COMCWTH    72
           676  6232000001               WTH4     SB3    X2+1        (IN+1)                                      COMCWTH    73
                          0435000714 +            EQ     B3,B5,WTH9  IF (IN+1) = LIMIT                           COMCWTH    74
           677  0434001043 +             WTH5     EQ     B3,B4,=XDCB= DUMP CIRCULAR BUFFER IF (IN+1) = OUT       COMCWTH    75
                          56160                   SA1    B6          READ WORD                                   COMCWTH    76
                               67771              SB7    B7-B1       DECREMENT WORD COUNT                        COMCWTH    77
           700  10611                             BX6    X1                                                      COMCWTH    78
                     53620                        SA6    X2          STORE WORD                                  COMCWTH    79
                          66661                   SB6    B6+B1       ADVANCE WORKING BUFFER                      COMCWTH    80
                               76230              SX2    B3          IN = (IN+1)                                 COMCWTH    81
           701  0671000676 +                      GE     B7,B1,WTH4  LOOP TO LAST WORD                           COMCWTH    82
                                                                                                                 COMCWTH    83
                          43160                   MX1    -12         CHECK LAST BYTE                             COMCWTH    84
                               15761              BX7    -X1*X6                                                  COMCWTH    85
           702  0307001030 +                      ZR     X7,=XWTX=   EXIT IF 0000 BYTE                           COMCWTH    86
                          6160000716 +            SB6    WTHB        PREPARE ZERO WORD                           COMCWTH    87
           703  7277772222                        SX7    X7-2R                                                   COMCWTH    88
                          0307000706 +            ZR     X7,WTH6     IF *  * BYTE                                COMCWTH    89
           704  43466                             MX4    -6          SET CHARACTER MASK                          COMCWTH    90
                     15464                        BX4    -X4*X6      GET LAST CHARACTER OF WORD                  COMCWTH    91
                          0314000676 +            NZ     X4,WTH4     IF LAST CHARACTER NOT  *00*                 COMCWTH    92
           705  6160000717 +                      SB6    WTHC        PRESERVE *00* CHARACTER WITH *  *           COMCWTH    93
                          0400000676 +            EQ     WTH4                                                    COMCWTH    94
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    58
        COMCWTH - WRITE CODED LINE, -H- FORMAT.                       WTH                 COMCWTH 
  
                                                                                                                 COMCWTH    95
                                        *         DELETE TRAILING SPACE BYTES.                                   COMCWTH    96
                                                                                                                 COMCWTH    97
           706  43466                    WTH6     MX4    -6          SINGLE CHARACTER MASK                       COMCWTH    98
                     20414                        LX4    12                                                      COMCWTH    99
                          15764                   BX7    -X4*X6      GET RIGHT CHARACTER OF BYTE                 COMCWTH   100
           707  0307000676 +                      ZR     X7,WTH4     IF  *00*  CHARACTER ADD BLANK BYTE          COMCWTH   101
                          7120005555              SX2    2R          SET SPACE BYTE                              COMCWTH   102
           710  11616                    WTH7     BX6    X1*X6       ZERO OUT SPACE BYTE                         COMCWTH   103
                     20114                        LX1    12          CHECK NEXT BYTE                             COMCWTH   104
                          20214                   LX2    12                                                      COMCWTH   105
                               15761              BX7    -X1*X6      GET BYTE                                    COMCWTH   106
           711  20414                             LX4    12                                                      COMCWTH   107
                     13772                        BX7    X7-X2       CHECK FOR SPACE BYTE                        COMCWTH   108
                          0317000713 +            NZ     X7,WTH8     IF NOT SPACE BYTE                           COMCWTH   109
           712  15764                             BX7    -X4*X6      CHECK CHARACTER BEFORE BYTE                 COMCWTH   110
                     0317000710 +                 NZ     X7,WTH7     IF NOT  *00*  CHARACTER                     COMCWTH   111
           713  54660                    WTH8     SA6    A6                                                      COMCWTH   112
                     76230                        SX2    B3                                                      COMCWTH   113
                          0400001030 +            EQ     =XWTX=      EXIT                                        COMCWTH   114
                                                                                                                 COMCWTH   115
           714  63330                    WTH9     SB3    X3          (IN+1) = FIRST                              COMCWTH   116
                     0400000677 +                 EQ     WTH5                                                    COMCWTH   117
                                                                                                                 COMCWTH   118
           715  55555555555555555555     WTHA     DATA   1H                                                      COMCWTH   119
           716  00000000000000000000     WTHB     CON    0                                                       COMCWTH   120
           717  55550000000000000000     WTHC     DATA   2L                                                      COMCWTH   121
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTH   123
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTH   124
                                                  QUAL   *                                                       COMCWTH   125
                                 666 +   WTH=     EQU    /COMCWTH/WTH=                                           COMCWTH   126
                                         QUAL$    ENDIF                                                          COMCWTH   127
                                         WTH      ENDX                                                           COMCWTH   128
                                                  ENTRY  WTH=                                                    UTILITY    56
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    59
        COMCWTO - WRITE ONE WORD.                                     WTO 
  
           720                           WTO      CTEXT  COMCWTO - WRITE ONE WORD.                               COMCWTO     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCWTO     4
                                                  QUAL   COMCWTO                                                 COMCWTO     5
                                 D_D              BASE   D                                                       COMCWTO     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTO     7
  
  
  
  
                                        ***       WTO - WRITE ONE WORD.                                          COMCWTO     9
                                        *                                                                        COMCWTO    10
                                        *         D. A. CAHALANDER.  70/10/09.                                   COMCWTO    11
                                        *         C. J. CONRAD.      81/08/06.                                   CPSA242    66
                                        *                                                                        CPSA242    67
                                        *         *******************************************************        CPSA242    68
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA242    69
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA242    70
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA242    71
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA242    72
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA242    73
                                        *         *******************************************************        CPSA242    74
                                        *                                                                        CPSA242    75
                                        *                                                                        COMCWTO    12
                                        *         WTO WRITES ONE WORD TO A FILE FROM X6.                         COMCWTO    13
  
  
  
  
                                        ***       WTO WRITES ONE WORD TO A CIO BUFFER FROM X6.                   COMCWTO    15
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTO    16
                                        *         WTO WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTO    17
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTO    18
                                        *         WILL BE RE-ISSUED.                                             COMCWTO    19
                                        *                                                                        COMCWTO    20
                                        *         ENTRY  (A1) = ADDRESS OF IN POINTER.                           COMCWTO    21
                                        *                (X1) = IN.                                              COMCWTO    22
                                        *                (X6) = WORD TO WRITE.                                   COMCWTO    23
                                        *                                                                        COMCWTO    24
                                        *         EXIT   (X2) = ADDRESS OF FET OF FILE.                          COMCWTO    25
                                        *                (B1) = 1.                                               COMCWTO    26
                                        *                                                                        COMCWTO    27
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTO    28
                                        *                B - 1.                                                  COMCWTO    29
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTO    30
                                        *                                                                        COMCWTO    31
                                        *         MACROS RECALL, WRITE.                                          CPS0303    13
                                                                                                                 COMCWTO    33
                                                                                                                 COMCWTO    34
           720  53610                    WTO1     SA6    X1          STORE WORD                                  COMCWTO    35
                     7021777775                   SX2    A1-2                                                    COMCWTO    36
                               54710              SA7    A1          UPDATE IN                                   COMCWTO    37
                                                                                                                 COMCWTO    38
           721  0400400721 +             WTO=     SUBR               ENTRY/EXIT                                  COMCWTO    39
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    60
        COMCWTO - WRITE ONE WORD.                                     WTO                 COMCWTO 
  
           722                           WTO2     BSS    0                                                       COMCWTO    40
                                                  IF     -DEF,B1=1,1                                             COMCWTO    41
                                                  SB1    1                                                       COMCWTO    42
           722  5021777775                        SA2    A1-2        READ FET+0                                  CPSA242    76
                          54311                   SA3    A1+B1       READ OUT                                    COMCWTO    43
                               73711              SX7    X1+B1       IN+1                                        COMCWTO    44
           723  37473                             IX4    X7-X3       IN+1 - OUT                                  COMCWTO    46
                     0334000720 +                 NG     X4,WTO1     IF NO WRAP AROUND                           COMCWTO    47
                               54331              SA3    A3+B1       READ LIMIT                                  COMCWTO    48
           724  0304000727 +                      ZR     X4,WTO3     IF BUFFER FULL                              COMCWTO    50
                          73330                   SX3    X3                                                      CPSA242    77
                               37473              IX4    X7-X3       IN+1 - LIMIT                                CPSA242    78
           725  55311                             SA3    A1-B1       READ FIRST                                  CPSA242    79
                     0314000720 +                 NZ     X4,WTO1     IF IN+1 .NE. LIMIT                          CPSA242    80
                               73730              SX7    X3          IN+1 = FIRST                                CPSA242    81
           726  54311                             SA3    A1+B1       READ OUT                                    CPSA242    82
                     37473                        IX4    X7-X3                                                   CPSA242    83
                          0314000720 +            NZ     X4,WTO1     IF IN+1 .NE. OUT                            CPSA242    84
                                                                                                                 COMCWTO    58
                                        *         DUMP CIRCULAR BUFFER.                                          COMCWTO    59
                                                                                                                 COMCWTO    60
           727  10122                    WTO3     BX1    X2                                                      CPSA242    85
                     10466                        BX4    X6          SAVE WORD                                   CPSA242    86
                          20173                   LX1    59-0                                                    CPSA242    87
                               74220              SX2    A2                                                      CPSA242    88
           730  0331000734 +                      NG     X1,WTO5     IF NOT BUSY                                 COMCWTO    65
                          0301000734 +            ZR     X1,WTO5     IF BLANK FET                                CPSA242    89
           731  0100000000 X                      RECALL X2                                                      COMCWTO    67
           732  5212000002               WTO4     SA1    X2+2        READ IN                                     COMCWTO    68
                          10644                   BX6    X4                                                      COMCWTO    69
           733  0400000722 +                      EQ     WTO2        CONTINUE WRITE                              COMCWTO    71
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTO    72
                                         WTO5     SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTO    73
                                                  SX6    774B                                                    COMCWTO    74
                                                  BX7    X6*X1                                                   COMCWTO    75
                                                  RJ     =XCIO=                                                  COMCWTO    76
                                         WRIF$    ELSE   1                                                       COMCWTO    77
           734  7170000014               WTO5     WRITE  X2                                                      COMCWTO    78
           735  0400000732 +                      EQ     WTO4        CONTINUE WRITE                              COMCWTO    79
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTO    81
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTO    82
                                                  QUAL   *                                                       COMCWTO    83
                                 721 +   WTO=     EQU    /COMCWTO/WTO=                                           COMCWTO    84
                                         QUAL$    ENDIF                                                          COMCWTO    85
                                         WTO      ENDX                                                           COMCWTO    86
                                                  ENTRY  WTO=                                                    UTILITY    58
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    61
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW 
  
           735                           WTW      CTEXT  COMCWTW - WRITE WORDS FROM WORKING BUFFER.              COMCWTW     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCWTW     4
                                                  QUAL   COMCWTW                                                 COMCWTW     5
                                 D_D              BASE   D                                                       COMCWTW     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1970, 1978.        COMCWTW     7
  
  
  
  
                                        ***       WTW - WRITE WORDS FROM WORKING BUFFER.                         COMCWTW     9
                                        *                                                                        COMCWTW    10
                                        *         D. A. CAHLANDER.   70/11/29.                                   COMCWTW    11
                                        *         R. E. TATE.        73/11/04.                                   COMCWTW    12
                                        *         G. M. TOWNSEND.    77/06/15.                                   COMCWTW    13
                                        *         C. J. CONRAD.      81/08/06.                                   CPSA242   113
                                        *                                                                        CPSA242   114
                                        *         *******************************************************        CPSA242   115
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA242   116
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA242   117
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA242   118
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA242   119
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA242   120
                                        *         *******************************************************        CPSA242   121
                                        *                                                                        CPSA242   122
                                        *                                                                        COMCWTW    14
                                        *         WTW TRANSFERS DATA FROM A WORKING BUFFER TO A CIO              COMCWTW    15
                                        *         BUFFER.  IT ALSO CONTAINS THE DUMP CIO BUFFER AND WRITE EXIT   COMCWTW    16
                                        *         ROUTINES REQUIRED BY WTC, WTH, AND WTS.                        COMCWTW    17
  
  
  
  
                                        ***       WTW TRANSFERS DATA FROM A WORKING BUFFER TO A CIO              COMCWTW    19
                                        *         BUFFER.  THIS DECK ALSO CONTAINS DCB=, AND WTX=.               COMCWTW    20
                                        *         IF THE BUFFER BECOMES SUFFICIENTLY FULL TO REQUIRE WRITING,    COMCWTW    21
                                        *         OR THE DEVICE TYPE INDICATES A NOS/BE TERMINAL,                COMCWTW    22
                                        *         WTW WILL PERFORM A *WRITE* FUNCTION UNLESS THE SYMBOL *WRIF$*  COMCWTW    23
                                        *         IS DEFINED. IN THIS CASE, THE CIO FUNCTION THAT IS IN THE FET  COMCWTW    24
                                        *         WILL BE RE-ISSUED.                                             COMCWTW    25
                                        *                                                                        COMCWTW    26
                                        *         WHEN CALLING CIO= FROM THIS ROUTINE B6 AND B7                  COMCWTW    27
                                        *         MUST CONTAIN WORKING STORAGE BUFFER ADDRESS,                   COMCWTW    28
                                        *         AND NUMBER OF WORDS TO TRANSFER RESPECTIVELY                   COMCWTW    29
                                        *         AS ERROR PROCESSING ROUTINES DEPEND UPON                       COMCWTW    30
                                        *         THESE REGISTERS.                                               COMCWTW    31
                                        *                                                                        COMCWTW    32
                                        *         THE THRESHOLD CONDITION TO ISSUE WRITE FUNCTIONS               CPSA242   123
                                        *         IS BUFFER HALF FULL FOR BUFFERS LARGER                         CPSA242   124
                                        *         THAN 511 DECIMAL WORDS, AND BUFFER TOTALLY                     CPSA242   125
                                        *         FULL FOR SMALLER BUFFERS.  IF THE SYMBOL                       CPSA242   126
                                        *         WTX$ IS DEFINED, THEN THE THRESHOLD IS                         CPSA242   127
                                        *         BUFFER FULL FOR ALL BUFFER SIZES.                              CPSA242   128
                                        *                                                                        CPSA242   129
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    62
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 COMCWTW 
  
                                        *         ENTRY  (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW    33
                                        *                (B6) = FWA WORKING BUFFER.                              COMCWTW    34
                                        *                (B7) = WORD COUNT OF WORKING BUFFER.                    COMCWTW    35
                                        *                IF (B7) = 0, NO TRANSFER WILL BE PERFORMED.             COMCWTW    36
                                        *                                                                        COMCWTW    37
                                        *         EXIT   (B1) = 1.                                               COMCWTW    38
                                        *                (X2) = ADDRESS OF FET FOR FILE.                         COMCWTW    39
                                        *                (B6) = ADDRESS OF NEXT WORD TO BE TRANSFERRED FROM      COMCWTW    40
                                        *                       WORKING BUFFER.                                  COMCWTW    41
                                        *                (B7) = 0 IF TRANSFER COMPLETE.                          COMCWTW    42
                                        *                     = REMAINING WORD COUNT IF *CIO=* WAS CALLED TO     COMCWTW    43
                                        *                       WRITE DATA AND RETURNED AN ERROR STATUS.         COMCWTW    44
                                        *                (X7) = ERROR STATUS IF (B7) = 0.                        COMCWTW    45
                                        *                                                                        COMCWTW    46
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCWTW    47
                                        *                B - 1, 2, 3, 4, 5, 6, 7.                                COMCWTW    48
                                        *                A - 1, 2, 3, 4, 6, 7.                                   COMCWTW    49
                                        *                                                                        COMCWTW    50
                                        *         CALLS  CIO=.                                                   COMCWTW    51
                                        *                                                                        CPS0303    14
                                        *         MACROS RECALL, WRITE.                                          CPS0303    15
                                                                                                                 COMCWTW    52
                                                                                                                 COMCWTW    53
           736  76634                    WTW18    SX6    B3+B4       ADVANCE IN                                  COMCWTW    54
                     66334                        SB3    B3+B4                                                   COMCWTW    55
                          66664                   SB6    B6+B4                                                   COMCWTW    56
                               67774              SB7    B7-B4                                                   COMCWTW    57
           737  53121                             SA1    X2+B1                                                   COMCWTW    58
                     0535000740 +                 NE     B3,B5,WTW19 IF IN .NE. LIMIT                            COMCWTW    59
                               73610              SX6    X1          IN = FIRST                                  COMCWTW    60
           740  54611                    WTW19    SA6    A1+B1       UPDATE IN                                   COMCWTW    61
                     0570000744 +                 NZ     B7,WTW1     IF NOT END OF TRANSFER                      COMCWTW    62
                               53420              SA4    X2                                                      COMCWTW    63
           741  20473                             LX4    59-0                                                    COMCWTW    64
                     0324000743 +                 PL     X4,WTW=     IF BUFFER BUSY, RETURN                      CPSA104    48
                               21166              AX1    54          CHECK FOR DT = 61XX (NOS/BE TERMINAL)       COMCWTW    66
           742  7211000016                        SX1    X1+77B-61B                                              COMCWTW    67
                          0301001002 +            ZR     X1,WTW11    IF NOS/BE TERMINAL, FLUSH BUFFER            COMCWTW    68
                                                                                                                 COMCWTW    69
           743  0400400743 +             WTW=     SUBR               ENTRY/EXIT                                  COMCWTW    70
           744  5212000003               WTW1     SA1    X2+3        (B4) = OUT                                  COMCWTW    71
                          5232000002              SA3    X2+2        (B3) = IN                                   COMCWTW    72
                                                  IF     -DEF,B1=1,1                                             COMCWTW    73
                                                  SB1    1                                                       COMCWTW    74
           745  54411                             SA4    A1+B1       (B5) = LIMIT                                COMCWTW    75
                     0470000743 +                 ZR     B7,WTW=     IF WORKING BUFFER EMPTY, RETURN             CPSA104    49
                               63410              SB4    X1                                                      COMCWTW    77
           746  53121                             SA1    X2+B1       (B2) = FIRST                                COMCWTW    78
                     63330                        SB3    X3                                                      COMCWTW    79
                          63540                   SB5    X4                                                      COMCWTW    80
                               63210              SB2    X1                                                      COMCWTW    81
           747  56160                             SA1    B6          READ FIRST WORD                             COMCWTW    82
                     0524000750 +                 NE     B2,B4,WTW2  IF OUT .NE. FIRST                           COMCWTW    83
                               66450              SB4    B5                                                      COMCWTW    84
           750  0734000751 +             WTW2     LT     B3,B4,WTW3  IF NO END AROUND                            COMCWTW    85
                          6145000001              SB4    B5+1                                                    COMCWTW    86
           751  67441                    WTW3     SB4    B4-B1       CALCULATE FREE DATA SPACE                   COMCWTW    87
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    63
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 COMCWTW 
  
                     67443                        SB4    B4-B3       (B4) = TRANSFER LENGTH                      COMCWTW    88
                          0440001005 +            ZR     B4,WTW13    IF NO ROOM                                  COMCWTW    89
           752  10711                             BX7    X1                                                      COMCWTW    90
                     0674000753 +                 LE     B4,B7,WTW4  IF NOT ENOUGH ROOM                          COMCWTW    91
                               66470              SB4    B7                                                      COMCWTW    92
                                                                                                                 COMCWTW    93
                                        *         INITIALIZE REGISTERS FOR TRANSFER.                             COMCWTW    94
                                                                                                                 COMCWTW    95
           753                           WTWA     BSS    0                                                       COMCWTW    96
           753  5130001023 +             WTW4     SA3    WTWC        PRESET CMU CODE AND VOID STACK              COMCWTW    97
                          0100001023 +            RJ     WTW16                                                   COMCWTW    98
                                        *         SA1    A1+B1       (NO CMU)                                    COMCWTW    99
                                        *         SX4    B4-B1       (NO CMU)                                    COMCWTW   100
                                        *         MX6    -3          (NO CMU)                                    COMCWTW   101
                                        *         SA7    B3          (NO CMU)                                    COMCWTW   102
                                        *                                                                        COMCWTW   103
                                        *         GT     B4,B1,WTW14 IF MORE THAN 1 WORD  (CMU)                  COMCWTW   104
                                        *         BX4    X4-X4       (CMU)                                       COMCWTW   105
                                        *         SA7    B3          (CMU)                                       COMCWTW   106
                                                                                                                 COMCWTW   107
           754  15346                    WTW5     BX3    -X6*X4      NUMBER OF ODD WORDS                         COMCWTW   108
                     21403                        AX4    3           NUMBER OF BLOCKS                            COMCWTW   109
                          0303000757 +            ZR     X3,WTW7     IF NO ODD WORDS                             COMCWTW   110
                                                                                                                 COMCWTW   111
                                        *         TRANSFER UP TO 7 WORDS.                                        COMCWTW   112
                                                                                                                 COMCWTW   113
           755  7233777776               WTW6     SX3    X3-1                                                    COMCWTW   114
                          10711                   BX7    X1                                                      COMCWTW   115
                               54111              SA1    A1+B1                                                   COMCWTW   116
           756  54771                             SA7    A7+B1                                                   COMCWTW   117
                     0313000755 +                 NZ     X3,WTW6     LOOP                                        COMCWTW   118
                                                                                                                 COMCWTW   119
                                        *         PRE-READ REGISTERS.                                            COMCWTW   120
                                                                                                                 COMCWTW   121
           757  0304000736 +             WTW7     ZR     X4,WTW18    IF NO BLOCKS                                COMCWTW   122
                          63520                   SB5    X2          (B5) = FET ADDRESS                          COMCWTW   123
                               54211              SA2    A1+B1                                                   COMCWTW   124
           760  66211                             SB2    B1+B1       (B2) = 2                                    COMCWTW   125
                     54321                        SA3    A2+B1                                                   COMCWTW   126
                          63340                   SB3    X4          (B3) = BLOCK COUNT                          COMCWTW   127
                               54431              SA4    A3+B1                                                   COMCWTW   128
                                                                                                                 COMCWTW   129
                                        *         TRANSFER 8 WORD BLOCKS.                                        COMCWTW   130
                                                                                                                 COMCWTW   131
           761  10611                    WTW8     BX6    X1                                                      COMCWTW   132
                     22702                        LX7    X2                                                      COMCWTW   133
                          54132                   SA1    A3+B2                                                   COMCWTW   134
                               54242              SA2    A4+B2                                                   COMCWTW   135
           762  54671                             SA6    A7+B1                                                   COMCWTW   136
                     67331                        SB3    B3-B1                                                   COMCWTW   137
                          54761                   SA7    A6+B1                                                   COMCWTW   138
                               10633              BX6    X3                                                      COMCWTW   139
           763  22704                             LX7    X4                                                      COMCWTW   140
                     54312                        SA3    A1+B2                                                   COMCWTW   141
                          54422                   SA4    A2+B2                                                   COMCWTW   142
                               54662              SA6    A6+B2                                                   COMCWTW   143
           764  54772                             SA7    A7+B2                                                   COMCWTW   144
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    64
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 COMCWTW 
  
                     10611                        BX6    X1                                                      COMCWTW   145
                          22702                   LX7    X2                                                      COMCWTW   146
                               54132              SA1    A3+B2                                                   COMCWTW   147
           765  54242                             SA2    A4+B2                                                   COMCWTW   148
                     54662                        SA6    A6+B2                                                   COMCWTW   149
                          54772                   SA7    A7+B2                                                   COMCWTW   150
                               10633              BX6    X3                                                      COMCWTW   151
           766  22704                             LX7    X4                                                      COMCWTW   152
                     54312                        SA3    A1+B2                                                   COMCWTW   153
                          54422                   SA4    A2+B2                                                   COMCWTW   154
                               54662              SA6    A6+B2                                                   COMCWTW   155
           767  54772                             SA7    A7+B2                                                   COMCWTW   156
                     0530000761 +                 NZ     B3,WTW8     LOOP                                        COMCWTW   157
                                                                                                                 COMCWTW   158
                                        *         WRITE EXIT.                                                    COMCWTW   159
                                                                                                                 COMCWTW   160
                               56352              SA3    B5+B2       READ IN                                     COMCWTW   161
           770  54132                             SA1    A3+B2       (B5) = LIMIT                                COMCWTW   162
                     76250                        SX2    B5                                                      COMCWTW   163
                          63510                   SB5    X1                                                      COMCWTW   164
                               53420              SA4    X2          CHECK BUFFER STATUS                         COMCWTW   165
           771  66664                    WTW9     SB6    B6+B4                                                   COMCWTW   166
                     67774                        SB7    B7-B4                                                   COMCWTW   167
                          63334                   SB3    X3+B4       ADVANCE IN                                  COMCWTW   168
                               73634              SX6    X3+B4                                                   COMCWTW   169
           772  20473                             LX4    59-0                                                    COMCWTW   170
                     53321                        SA3    X2+B1       READ FIRST                                  COMCWTW   171
                          6223000000              SB2    X3+                                                     COMCWTW   172
           773  0535000774 +                      NE     B3,B5,WTW10 IF IN .NE. LIMIT                            COMCWTW   173
                          7263000000              SX6    X3+         IN = FIRST                                  COMCWTW   174
                                         WTX$     IF     DEF,WTX$                                                CPSA242   130
                                         WTW10    EQ     WTW19       CLEAN UP AND RETURN                         CPSA261     5
                                         WTX$     ELSE                                                           CPSA242   132
                                                                                                                 COMCWTW   175
                                        *         TRY TO BUFFER AHEAD.                                           COMCWTW   176
                                                                                                                 COMCWTW   177
           774  54631                    WTW10    SA6    A3+B1       STORE IN                                    COMCWTW   178
                     0324001004 +                 PL     X4,WTW12    IF BUFFER BUSY                              COMCWTW   179
                               21366              AX3    54          CHECK FOR DT = 61XX (NOS/BE TERMINAL)       COMCWTW   180
           775  7233000016                        SX3    X3+77B-61B                                              COMCWTW   181
                          0303001002 +            ZR     X3,WTW11    IF NOS/BE TERMINAL, FLUSH BUFFER            COMCWTW   182
           776  5212000003                        SA1    X2+3        READ OUT                                    COMCWTW   183
                          37616                   IX6    X1-X6       (OUT-IN)                                    COMCWTW   184
                               77752              SX7    B5-B2       (LIMIT-FIRST)                               COMCWTW   185
           777  22316                             LX3    X6,B1       2*(OUT-IN)                                  COMCWTW   186
                     21674                        AX6    60          SIGN OF (OUT-IN)                            COMCWTW   187
                          13467                   BX4    X6-X7       INVERT BUFFER IF IN .GE. OUT                COMCWTW   188
                               37643              IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN)                    COMCWTW   189
          1000  0336001004 +                      NG     X6,WTW12    IF BUFFER THRESHOLD NOT REACHED             COMCWTW   190
                          21711                   AX7    9                                                       COMCWTW   191
          1001  0307001004 +                      ZR     X7,WTW12    IF BUFFER NOT BIG ENOUGH TO WRITE AHEAD     COMCWTW   192
                                         WTX$     ENDIF                                                          CPSA242   133
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   193
                                         WTW11    SA1    X2          RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   194
                                                  SX6    774B                                                    COMCWTW   195
                                                  BX7    X6*X1                                                   COMCWTW   196
                                                  RJ     =XCIO=                                                  COMCWTW   197
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    65
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 COMCWTW 
  
                                         WRIF$    ELSE   1                                                       COMCWTW   198
          1002  7170000014               WTW11    WRITE  X2                                                      COMCWTW   199
          1003  0317000743 +                      NZ     X7,WTW=     IF ERROR IN LAST *CIO* REQUEST, RETURN      CPSA104    50
          1004  0570000744 +             WTW12    NZ     B7,WTW1     IF NOT DONE                                 COMCWTW   201
                          0400000743 +            EQ     WTW=        RETURN                                      CPSA104    51
                                                                                                                 COMCWTW   203
                                        *         DUMP CIRCULAR BUFFER.                                          COMCWTW   204
                                                                                                                 COMCWTW   205
          1005  53120                    WTW13    SA1    X2          CHECK BUFFER STATUS                         COMCWTW   206
                     20173                        LX1    59-0                                                    COMCWTW   207
                          0331001002 +            NG     X1,WTW11    IF NOT BUSY                                 COMCWTW   208
          1006  0301001002 +                      ZR     X1,WTW11    IF BLANK FET                                COMCWTW   209
                          0100000000 X            RECALL                                                         COMCWTW   210
          1007  0400000744 +                      EQ     WTW1        CONTINUE WRITE                              COMCWTW   211
                                                                                                                 COMCWTW   212
                                        *         MOVE DATA WITH CMU.                                            COMCWTW   213
                                                                                                                 COMCWTW   214
          1010  7144776314               WTW14    SX4    B4-819                                                  COMCWTW   215
                          0324001021 +            PL     X4,WTW15    IF TOO BIG FOR CMU                          COMCWTW   216
          1011  76440                             SX4    B4          10 * WORDS = CHARACTERS                     COMCWTW   217
                     22614                        LX6    X4,B1                                                   COMCWTW   218
                          10100                   BX1    X0          SAVE X0                                     COMCWTW   219
                               20403              LX4    3                                                       COMCWTW   220
          1012  36646                             IX6    X4+X6                                                   COMCWTW   221
                     76760                        SX7    B6          SET SOURCE ADDRESS                          COMCWTW   222
                          76430                   SX4    B3          SET DESTINATION ADDRESS                     COMCWTW   223
                               20736              LX7    30                                                      COMCWTW   224
          1013  12447                             BX4    X4+X7                                                   COMCWTW   225
                     43770                        MX7    -4                                                      COMCWTW   226
                          11376                   BX3    X7*X6       EXTRACT UPPER PORTION                       COMCWTW   227
                               15667              BX6    -X7*X6      EXTRACT LOWER PORTION                       COMCWTW   228
          1014  20354                             LX3    48-4                                                    COMCWTW   229
                     12443                        BX4    X4+X3                                                   COMCWTW   230
                          20632                   LX6    26                                                      COMCWTW   231
                               12646              BX6    X4+X6                                                   COMCWTW   232
          1015  21363                             AX3    51                                                      COMCWTW   233
                     5160001023 +                 SA6    WTWC        STORE DESCRIPTOR WORD                       COMCWTW   234
          1016  4640001023 +                      IM     WTWC        MOVE DATA                                   COMCWTW   235
          1017  10011                             BX0    X1          RESTORE X0                                  COMCWTW   236
                     0303000736 +                 ZR     X3,WTW18    IF NO WRITE EXIT                            COMCWTW   237
                               53420              SA4    X2                                                      COMCWTW   238
          1020  76330                             SX3    B3          RESET IN                                    COMCWTW   239
                     0400000771 +                 EQ     WTW9                                                    COMCWTW   240
                                                                                                                 COMCWTW   241
          1021                           WTWB     BSS    0                                                       COMCWTW   242
          1021  54111                    WTW15    SA1    A1+B1       MOVE DATA WITHOUT CMU                       COMCWTW   243
                     77441                        SX4    B4-B1                                                   COMCWTW   244
                          43671                   MX6    -3                                                      COMCWTW   245
                               56730              SA7    B3                                                      COMCWTW   246
          1022  0400000754 +                      EQ     WTW5                                                    COMCWTW   247
                                                                                                                 COMCWTW   248
                                        *         CMU PRESET CODE.                                               COMCWTW   249
                                        *         WTWC IS READ UP AND THEN RETURN JUMPED TO IN ORDER TO VOID     COMCWTW   250
                                        *         THE INSTRUCTION STACK. WTWC IS ALSO USED AS THE CMU            COMCWTW   251
                                        *         DESCRIPTOR WORD.                                               COMCWTW   252
                                                                                                                 COMCWTW   253
          1023  0714001010 +             WTWC     GT     B4,B1,WTW14 IF MORE THAN 1 WORD TO MOVE  (CMU)          COMCWTW   254
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    66
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTW                 COMCWTW 
  
                          13444                   BX4    X4-X4                                                   COMCWTW   255
                               56730              SA7    B3                                                      COMCWTW   256
                                1023 +   WTW16    EQU    WTWC        USED TO VOID STACK                          COMCWTW   257
                                                                                                                 COMCWTW   258
                                        *         PRESET FOR CMU CODE.                                           COMCWTW   259
                                                                                                                 COMCWTW   260
          1024  5140000065                        SA4    RA.CMU      CHECK IF CMU AVAILABLE                      COMCWTW   261
                          6140000753 +            SB4    WTWA                                                    COMCWTW   262
          1025  0334001026 +                      NG     X4,WTW17    IF CMU                                      COMCWTW   263
                          5130001021 +            SA3    WTWB                                                    COMCWTW   264
          1026  10633                    WTW17    BX6    X3                                                      COMCWTW   265
                     56640                        SA6    B4                                                      COMCWTW   266
                          0100001026 +            RJ     *           VOID INSTRUCTION STACK.                     CPSA163     8
          1027  0400000744 +                      EQ     WTW1                                                    COMCWTW   267
                                                                                                                 COMCWTW   268
  
  
  
  
                                        **        WTX - WRITE EXIT.                                              COMCWTW   270
                                        *         IF BUFFER IS BUSY, RETURN.                                     COMCWTW   271
                                        *         IF DEVICE TYPE = 61XX (NOS/BE TERMINAL), ALWAYS ISSUE WRITE.   COMCWTW   272
                                        *         OTHERWISE, WORD COUNT OF BUFFER IS CHECKED, AND A WRITE        COMCWTW   273
                                        *         FUNCTION IS REQUESTED IF NECESSARY.                            COMCWTW   274
                                        *                                                                        COMCWTW   275
                                        *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW   276
                                        *                (A3) = ADDRESS OF FIRST.                                COMCWTW   277
                                        *                (A4) = RETURN ADDRESS.                                  COMCWTW   278
                                        *                (B3) = IN+1.                                            COMCWTW   279
                                        *                (B4) = OUT.                                             COMCWTW   280
                                        *                (B5) = LIMIT.                                           COMCWTW   281
                                        *                (X2) = IN                                               COMCWTW   282
                                        *                (B1) = 1.                                               COMCWTW   283
                                        *                                                                        COMCWTW   284
                                        *         EXIT   TO RETURN ADDRESS.                                      COMCWTW   285
                                        *                                                                        COMCWTW   286
                                        *         CALLS  CIO=.                                                   COMCWTW   287
                                        *                                                                        CPS0303    16
                                        *         MACROS WRITE.                                                  CPS0303    17
                                                                                                                 COMCWTW   288
                                                                                                                 COMCWTW   289
          1030  55131                    WTX=     SA1    A3-B1       CHECK BUFFER STATUS                         COMCWTW   290
                     73620                        SX6    X2          STORE IN                                    COMCWTW   291
                          20173                   LX1    59                                                      COMCWTW   292
                               54620              SA6    A2                                                      COMCWTW   293
                                         WTX$     IF     -DEF,WTX$                                               CPSA242   134
          1031  0321001042 +                      PL     X1,WTX1     IF BUFFER BUSY                              COMCWTW   294
                          54330                   SA3    A3          CHECK DEVICE TYPE                           COMCWTW   295
                               10633              BX6    X3                                                      COMCWTW   296
          1032  21666                             AX6    54                                                      COMCWTW   297
                     7266000016                   SX6    X6+77B-61B                                              COMCWTW   298
          1033  0306001040 +                      ZR     X6,WTX0     IF NOS/BE TERMINAL                          COMCWTW   299
                                                                                                                 COMCWTW   300
                                        *         IF BUFFER IS NOT BUSY, CHECK SIZE OF BUFFER.                   COMCWTW   301
                                        *         ISSUE WRITE IF THRESHOLD IS REACHED.                           COMCWTW   302
                                                                                                                 COMCWTW   303
                          54121                   SA1    A2+B1       REREAD OUT                                  CPSA242   135
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    67
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    WTX                 COMCWTW 
  
                               63410              SB4    X1                                                      CPSA242   136
          1034  77643                             SX6    B4-B3       (OUT-IN+1)                                  COMCWTW   304
                     63230                        SB2    X3          (LIMIT-FIRST)                               COMCWTW   305
                          22316                   LX3    X6,B1       2*(OUT-IN+1)                                COMCWTW   306
                               77752              SX7    B5-B2                                                   COMCWTW   307
          1035  21674                             AX6    60          SIGN OF (OUT-IN+1)                          COMCWTW   308
                     13467                        BX4    X6-X7       INVERT BUFFER IF IN+1 .GE. OUT              COMCWTW   309
                          37643                   IX6    X4-X3       BUFFER SIZE - 2*(OUT-IN+1)                  COMCWTW   310
          1036  0336001042 +                      NG     X6,WTX1     IF BUFFER THRESHOLD NOT REACHED             COMCWTW   311
                          21711                   AX7    9                                                       COMCWTW   312
          1037  0307001042 +                      ZR     X7,WTX1     IF BUFFER NOT BIG ENOUGH TO WRITE AHEAD     COMCWTW   313
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   314
                                         WTX0     SA1    A3-B1       REISSUE CURRENT WRITE FUNCTION              COMCWTW   315
                                                  SX6    774B                                                    COMCWTW   316
                                                  BX7    X6*X1                                                   COMCWTW   317
                                                  SX2    A1          SET FET ADDRESS                             COMCWTW   318
                                                  RJ     =XCIO=                                                  COMCWTW   319
                                         WRIF$    ELSE   1                                                       COMCWTW   320
          1040  75231                    WTX0     WRITE  A3-B1                                                   COMCWTW   321
                                         WTX$     ENDIF                                                          CPSA242   137
                                                                                                                 CPSA242   138
          1042  64240                    WTX1     SB2    A4          SET RETURN ADDRESS                          COMCWTW   322
                     75231                        SX2    A3-B1       RESET (X2)                                  COMCWTW   323
                          0222000000              JP     B2          RETURN                                      COMCWTW   324
  
  
  
  
                                        **        DCB - DUMP CIRCULAR BUFFER.                                    COMCWTW   326
                                        *         IF BUFFER IS BUSY, RECALL AND RETURN.                          COMCWTW   327
                                        *         IF BUFFER IS NOT BUSY, REQUEST WRITE FUNCTION AND RETURN.      COMCWTW   328
                                        *                                                                        COMCWTW   329
                                        *         ENTRY  (A2) = ADDRESS OF IN.                                   COMCWTW   330
                                        *                (A3) = ADDRESS OF FIRST.                                COMCWTW   331
                                        *                (A4) = RETURN ADDRESS.                                  COMCWTW   332
                                        *                (X2) = IN.                                              COMCWTW   333
                                        *                (B1) = 1.                                               COMCWTW   334
                                        *                (B2) = FET STATUS READ PRIOR TO READ OF OUT.            CPSA242   139
                                        *                                                                        COMCWTW   335
                                        *         EXIT   TO RETURN ADDRESS - 1.                                  COMCWTW   336
                                        *                (X2) = FET ADDRESS.                                     CPSA242   140
                                        *                                                                        COMCWTW   337
                                        *         CALLS  CIO=.                                                   CPS0303    18
                                        *                                                                        CPS0303    19
                                        *         MACROS RECALL, WRITE.                                          CPS0303    20
                                                                                                                 COMCWTW   339
                                                                                                                 COMCWTW   340
          1043  76120                    DCB=     SX1    B2          CHECK BUFFER STATUS                         CPSA242   141
                     73620                        SX6    X2          STORE IN                                    COMCWTW   342
                          20173                   LX1    59                                                      COMCWTW   343
                               54620              SA6    A2                                                      COMCWTW   344
          1044  0331001047 +                      NG     X1,DCB1     IF NOT BUSY                                 COMCWTW   345
                          0301001047 +            ZR     X1,DCB1     IF BLANK FET                                COMCWTW   346
          1045  75231                             SX2    A3-B1       RESET FET ADDRESS                           CPSA242   142
                     0100000000 X                 RECALL                                                         COMCWTW   347
          1046  65241                             SB2    A4-B1       CONTINUE WRITE                              COMCWTW   348
                     0222000000                   JP     B2                                                      COMCWTW   349
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    68
        COMCWTW - WRITE WORDS FROM WORKING BUFFER.                    DCB                 COMCWTW 
  
                                         WRIF$    IF     DEF,WRIF$                                               COMCWTW   350
                                         DCB1     SA1    A3-B1       RE-ISSUE CURRENT WRITE FUNCTION             COMCWTW   351
                                                  SX6    774B                                                    COMCWTW   352
                                                  BX7    X6*X1                                                   COMCWTW   353
                                                  SX2    A1          SET FET ADDRESS                             COMCWTW   354
                                                  RJ     =XCIO=                                                  COMCWTW   355
                                         WRIF$    ELSE   1                                                       COMCWTW   356
          1047  75231                    DCB1     WRITE  A3-B1                                                   COMCWTW   357
          1051  65241                             SB2    A4-B1       CONTINUE WRITE                              COMCWTW   358
                     0222000000                   JP     B2                                                      COMCWTW   359
  
  
  
  
                                 D_D              BASE   *                                                       COMCWTW   361
                                         QUAL$    IF     -DEF,QUAL$                                              COMCWTW   362
                                                  QUAL   *                                                       COMCWTW   363
                                 743 +   WTW=     EQU    /COMCWTW/WTW=                                           COMCWTW   364
                                1030 +   WTX=     EQU    /COMCWTW/WTX=                                           COMCWTW   365
                                1043 +   DCB=     EQU    /COMCWTW/DCB=                                           COMCWTW   366
                                         QUAL$    ENDIF                                                          COMCWTW   367
                                         WTW      ENDX                                                           COMCWTW   368
                                                  ENTRY  WTW=                                                    UTILITY    60
                                                  ENTRY  DCB=,WTX=                                               UTILITY    61
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    69
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                         #RM      ELSE                                                           UTILITY    63
                                                  CTEXT  FA=CLO - CLOSE FILE                                     FA=CLO      2
                                         CLO      SPACE  4                                                       FA=CLO      3
                                                  IF     -DEF,QUAL$,1                                            FA=CLO      4
                                                  QUAL   FA=CLO                                                  FA=CLO      5
                                                                                                                 FA=CLO      6
                                                                                                                 FA=CLO      7
                                        **        FA=CLO - CLOSE FILE.                                           FA=CLO      8
                                        *                                                                        FA=CLO      9
                                        *                                                                        FA=CLO     10
                                        *         CLOSES A FILE IF OPEN.                                         FA=CLO     11
                                        *                                                                        FA=CLO     12
                                        *         ENTRY  (X2) = FIT ADDRESS                                      FA=CLO     13
                                        *                                                                        FA=CLO     14
                                        *         EXIT   (X2) = FIT ADDRESS                                      FA=CLO     15
                                        *                                                                        FA=CLO     16
                                        *         USES   X - 3, 6                                                FA=CLO     17
                                        *                A - 3                                                   FA=CLO     18
                                        *                B - NONE                                                FA=CLO     19
                                        *                                                                        FA=CLO     20
                                        *         CALLS CLOSEM, FETCH                                            FA=CLO     21
                                                                                                                 FA=CLO     22
                                                                                                                 FA=CLO     23
                                         FA=CLO   JP     *+4S15      ** ENTRY/EXIT **                            FA=CLO     24
                                                  FETCH  X2,OC,X6,X3                                             FA=CLO     25
                                                  SX6    X6-#OPE#                                                FA=CLO     26
                                                  NZ     X6,FA=CLO   IF NOT OPEN, EXIT                           FA=CLO     27
                                                  CLOSEM X2                                                      FA=CLO     28
                                                  JP     FA=CLO      EXIT                                        FA=CLO     29
                                                                                                                 FA=CLO     30
                                                                                                                 FA=CLO     31
                                                  IF     -DEF,QUAL$,2                                            FA=CLO     32
                                                  QUAL   *                                                       FA=CLO     33
                                         FA=CLO   EQU    /FA=CLO/FA=CLO                                          FA=CLO     34
                                                  IF     -ABS,FA=CLO,1                                           FA=CLO     35
                                                  ENTRY  FA=CLO                                                  FA=CLO     36
                                                                                                                 FA=CLO     37
                                                  ENDX                                                           FA=CLO     38
                                                  ENTRY  FA=CLO                                                  UTILITY    65
                                                  CTEXT  FA=EOF - WRITE END-OF-FILE/PARTITION                    FA=EOF      2
                                         EOF      SPACE  4                                                       FA=EOF      3
                                                  IF     -DEF,QUAL$,1                                            FA=EOF      4
                                                  QUAL   FA=EOF                                                  FA=EOF      5
                                                                                                                 FA=EOF      6
                                                                                                                 FA=EOF      7
                                        **        FA=EOF - WRITE END-OF-FILE/PARTITION.                          FA=EOF      8
                                        *                                                                        FA=EOF      9
                                        *                                                                        FA=EOF     10
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1                                FA=EOF     11
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=EOF     12
                                        *                (B1) = 1                                                FA=EOF     13
                                        *                                                                        FA=EOF     14
                                        *         EXIT   (X2) = PSEUDO-FET WORD 1                                FA=EOF     15
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=EOF     16
                                        *                (B1) = 1                                                FA=EOF     17
                                        *                                                                        FA=EOF     18
                                        *         USES   X - 7                                                   FA=EOF     19
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    70
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                        *                A - NONE                                                FA=EOF     20
                                        *                B - NONE                                                FA=EOF     21
                                        *                                                                        FA=EOF     22
                                        *         CALLS  ENDFILE, FA=FLSH                                        FA=EOF     23
                                                                                                                 FA=EOF     24
                                                                                                                 FA=EOF     25
                                         FA=EOF   JP     *+4S15      ** ENTRY/EXIT **                            FA=EOF     26
                                                  PL     X2,EOF2     IF NO HOLDING BUFFER                        FA=EOF     27
                                                                                                                 FA=EOF     28
                                                  IFEQ   TEST,0,2                                                FA=EOF     29
                                                  IX7    X2+X2       LEFT ADJUST SPILL FLAG                      FA=EOF     30
                                                  PL     X7,FA=EOF   IF FILE NOT SPILLED TO DISK, EXIT           FA=EOF     31
                                                                                                                 FA=EOF     32
                                                  RJ     FA=FLSH                                                 FA=EOF     33
                                         EOF2     ENDFILE   X2                                                   FA=EOF     34
                                                  JP     FA=EOF      EXIT                                        FA=EOF     35
                                                                                                                 FA=EOF     36
                                                                                                                 FA=EOF     37
                                                  IF     -DEF,QUAL$,2                                            FA=EOF     38
                                                  QUAL   *                                                       FA=EOF     39
                                         FA=EOF   EQU    /FA=EOF/FA=EOF                                          FA=EOF     40
                                                                                                                 FA=EOF     41
                                                  IF     -ABS,FA=EOF,1                                           FA=EOF     42
                                                  ENTRY  FA=EOF                                                  FA=EOF     43
                                                                                                                 FA=EOF     44
                                                  ENDX                                                           FA=EOF     45
                                                  ENTRY  FA=EOF                                                  UTILITY    67
                                                  CTEXT  FA=EOR - WRITE END-OF-RECORD/SECTION                    FA=EOR      2
                                         EOR      SPACE  4                                                       FA=EOR      3
                                                  IF     -DEF,QUAL$,1                                            FA=EOR      4
                                                  QUAL   FA=EOR                                                  FA=EOR      5
                                                                                                                 FA=EOR      6
                                                                                                                 FA=EOR      7
                                        **        FA=EOR - WRITE END-OF-RECORD/SECTION.                          FA=EOR      8
                                        *                                                                        FA=EOR      9
                                        *                                                                        FA=EOR     10
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1                                FA=EOR     11
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=EOR     12
                                        *                (B1) = 1                                                FA=EOR     13
                                        *                                                                        FA=EOR     14
                                        *         EXIT   (X2) = PSEUDO-FET WORD 1                                FA=EOR     15
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=EOR     16
                                        *                (B1) = 1                                                FA=EOR     17
                                        *                                                                        FA=EOR     18
                                        *         USES   X - 7                                                   FA=EOR     19
                                        *                A - NONE                                                FA=EOR     20
                                        *                B - NONE                                                FA=EOR     21
                                        *                                                                        FA=EOR     22
                                        *         CALLS  FA=FLSH, WEOR                                           FA=EOR     23
                                                                                                                 FA=EOR     24
                                                                                                                 FA=EOR     25
                                         FA=EOR   JP     *+4S15      ** ENTRY/EXIT **                            FA=EOR     26
                                                  PL     X2,EOR2     IF NO HOLDING BUFFER                        FA=EOR     27
                                                                                                                 FA=EOR     28
                                                  IFEQ   TEST,0,2                                                FA=EOR     29
                                                  IX7    X2+X2       LEFT ADJUST SPILL FLAG                      FA=EOR     30
                                                  PL     X7,FA=EOR   IF FILE NOT SPILLED TO DISK, EXIT           FA=EOR     31
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    71
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                                                                                 FA=EOR     32
                                                  RJ     FA=FLSH                                                 FA=EOR     33
                                         EOR2     WEOR   X2                                                      FA=EOR     34
                                                  JP     FA=EOR      EXIT                                        FA=EOR     35
                                                                                                                 FA=EOR     36
                                                                                                                 FA=EOR     37
                                                  IF     -DEF,QUAL$,2                                            FA=EOR     38
                                                  QUAL   *                                                       FA=EOR     39
                                         FA=EOR   EQU    /FA=EOR/FA=EOR                                          FA=EOR     40
                                                                                                                 FA=EOR     41
                                                  IF     -ABS,FA=EOR,1                                           FA=EOR     42
                                                  ENTRY  FA=EOR                                                  FA=EOR     43
                                                                                                                 FA=EOR     44
                                                  ENDX                                                           FA=EOR     45
                                                  ENTRY  FA=EOR                                                  UTILITY    69
                                                  CTEXT  FA=FLSH - FLUSH FILE HOLDING BUFFER                     FA=FLSH     2
                                         FLSH     SPACE  4                                                       FA=FLSH     3
                                                  IF     -DEF,QUAL$,1                                            FA=FLSH     4
                                                  QUAL   FA=FLSH                                                 FA=FLSH     5
                                                                                                                 FA=FLSH     6
                                                                                                                 FA=FLSH     7
                                        **        FA=FLSH - FLUSH FILE HOLDING BUFFER.                           FA=FLSH     8
                                        *                                                                        FA=FLSH     9
                                        *         SEQUENTIAL BINARY FILE -                                       FA=FLSH    10
                                        *           CALLS RECORD MANAGER TO EMPTY THE HOLDING BUFFER.            FA=FLSH    11
                                        *           SETS (IN) = (OUT) = (FIRST) IN PSEUDO-FET.                   FA=FLSH    12
                                        *           TURNS SPILL FLAG ON IN PSEUDO-FET.                           FA=FLSH    13
                                        *                                                                        FA=FLSH    14
                                        *         OTHER FILE TYPE -                                              FA=FLSH    15
                                        *           EXITS WITHOUT ACTION (HOLDING BUFFER DOES NOT EXIST).        FA=FLSH    16
                                        *                                                                        FA=FLSH    17
                                        *                                                                        FA=FLSH    18
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1                                FA=FLSH    19
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=FLSH    20
                                        *                (B1) = 1                                                FA=FLSH    21
                                        *                                                                        FA=FLSH    22
                                        *         EXIT   (X2) = PSEUDO-FET WORD 1                                FA=FLSH    23
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=FLSH    24
                                        *                (B1) = 1                                                FA=FLSH    25
                                        *                                                                        FA=FLSH    26
                                        *         USES   X - 1, 3, 4, 6, 7                                       FA=FLSH    27
                                        *                A - 1, 3, 4, 6, 7                                       FA=FLSH    28
                                        *                B - 7                                                   FA=FLSH    29
                                        *                                                                        FA=FLSH    30
                                        *         CALLS  PUTW                                                    FA=FLSH    31
                                                                                                                 FA=FLSH    32
                                                                                                                 FA=FLSH    33
                                         FA=FLSH  JP     *+4S15      ** ENTRY/EXIT **                            FA=FLSH    34
                                                  PL     X2,FA=FLSH  IF NO HOLDING BUFFER, EXIT                  FA=FLSH    35
                                                  SA1    A2+B1       (X1) = HOLDING BUFFER -FIRST-               FA=FLSH    36
                                                  MX7    1                                                       FA=FLSH    37
                                                  SA3    A1+B1       (X3) = HOLDING BUFFER -IN-                  FA=FLSH    38
                                                  LX7    -59D+58D                                                FA=FLSH    39
                                                  SX6    X1                                                      FA=FLSH    40
                                                  BX7    X7+X2                                                   FA=FLSH    41
                                                  SA6    A3          RESET -IN- = -FIRST-                        FA=FLSH    42
                                                  IX3    X3-X1       NR WORDS IN BUFFER                          FA=FLSH    43
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    72
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                  SA7    A2          TURN SPILL FLAG ON                          FA=FLSH    44
                                                  SA6    A6+B1       RESET -OUT- = -FIRST-                       FA=FLSH    45
                                                  ZR     X3,FA=FLSH  IF HOLDING BUFFER EMPTY, EXIT               FA=FLSH    46
                                                  FETCH  X2,RT,X4,X4                                             FA=FLSH    47
                                                  SB7    X4-#ST#                                                 FA=FLSH    48
                                                  ZR     B7,FLSH1    IF S TYPE RECORD                            FA=FLSH    49
                                                  PUTW   X2,X1,X3                                                FA=FLSH    50
                                                  JP     FA=FLSH     EXIT                                        FA=FLSH    51
                                                                                                                 FA=FLSH    52
                                         FLSH1    PUTWP  X2,X1,X3                                                FA=FLSH    53
                                                  JP     FA=FLSH     EXIT                                        FA=FLSH    54
                                                                                                                 FA=FLSH    55
                                                                                                                 FA=FLSH    56
                                                  IF     -DEF,QUAL$,2                                            FA=FLSH    57
                                                  QUAL   *                                                       FA=FLSH    58
                                         FA=FLSH  EQU    /FA=FLSH/FA=FLSH                                        FA=FLSH    59
                                                  ENDX                                                           FA=FLSH    60
                                                  ENTRY  FA=FLSH                                                 UTILITY    71
                                                  CTEXT  FA=OPE - OPEN FILE                                      FA=OPE      2
                                         OPE      SPACE  4                                                       FA=OPE      3
                                                  IF     -DEF,QUAL$,1                                            FA=OPE      4
                                                  QUAL   FA=OPE                                                  FA=OPE      5
                                                                                                                 FA=OPE      6
                                                                                                                 FA=OPE      7
                                        **        FA=OPE - OPEN FILE.                                            FA=OPE      8
                                        *                                                                        FA=OPE      9
                                        *                OPENS A FILE, RELIABLY.  PREVENTS REDUNDANT OPEN        FA=OPE     10
                                        *         ERRORS.  HONORS AND PRESERVES *PD*, *OF* AND *CF* IN FIT.      FA=OPE     11
                                        *                                                                        FA=OPE     12
                                        *                                                                        FA=OPE     13
                                        *         ENTRY  (X2) = FIT ADDRESS                                      FA=OPE     14
                                        *                                                                        FA=OPE     15
                                        *         EXIT   (X2) = FIT ADDRESS                                      FA=OPE     16
                                        *                                                                        FA=OPE     17
                                        *         USES   X - 3, 6                                                FA=OPE     18
                                        *                A - 3                                                   FA=OPE     19
                                        *                B - 2                                                   FA=OPE     20
                                        *                                                                        FA=OPE     21
                                        *         SAVES  (A5), (X5)                                              FA=OPE     22
                                        *                                                                        FA=OPE     23
                                        *         CALLS  CLOSEM, FETCH, OPENM, SETFIT, STORE                     FA=OPE     24
                                                                                                                 FA=OPE     25
                                                                                                                 FA=OPE     26
                                         FA=OPE   JP     *+4S15      ** ENTRY/EXIT **                            FA=OPE     27
                                                                                                                 FA=OPE     28
                                        *         CHECK FILE OPEN/CLOSED STATUS.                                 FA=OPE     29
                                                                                                                 FA=OPE     30
                                                  FETCH  X2,PD,X6,X3                                             FA=OPE     31
                                                  SB2    X6          TEMP SAVE *PD* (*SETFIT* WILL DESTROY)      FA=OPE     32
                                                  SETFIT X2          FDT PARAMETERS TO FIT                       FA=OPE     33
                                                  FETCH  X2,OC,X6,X3                                             FA=OPE     34
                                                  SX6    X6-#OPE#                                                FA=OPE     35
                                                  NZ     X6,OPE2     IF FILE NOT OPEN                            FA=OPE     36
                                                                                                                 FA=OPE     37
                                        *         HERE IF FILE LEFT OPEN BY PREVIOUS JOB STEP.  SOME ATTRIBUTES  FA=OPE     38
                                        *         OF AN OPEN FILE, SUCH AS *PD*, CANNOT BE CHANGED, SO WE CLOSE  FA=OPE     39
                                        *         IT FIRST (SIGH).                                               FA=OPE     40
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    73
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                                                                                 FA=OPE     41
                                                  FETCH  X2,CF,X6,X3 TEMP SAVE *CF* (*CLOSEM* WILL DESTROY)      FA=OPE     42
                                                  CLOSEM X2,N                                                    FA=OPE     43
                                                  STORE  X2,CF=X6,X3                                             FA=OPE     44
                                                                                                                 FA=OPE     45
                                        *         (RE)OPEN FILE.                                                 FA=OPE     46
                                                                                                                 FA=OPE     47
                                         OPE2     SX6    B2                                                      FA=OPE     48
                                                  STORE  X2,PD=X6,X3                                             FA=OPE     49
                                                                                                                 CCGA018    72
                                        **        ** NASTY (TEMPORARY) KLUDGE ** FOLLOWS                         CCGA018    73
                                                                                                                 CCGA018    74
                                                  SA3    =XCO.REWI                                               CCGA018    75
                                                  PL     X3,OPE5     IF REW OPTION NOT ON                        CCGA018    76
                                                  SA3    =XF.IN                                                  CCGA018    77
                                                  BX3    X3-X2                                                   CCGA018    78
                                                  SX3    X3                                                      CCGA018    79
                                                  NZ     X3,OPE5     IF NOT FILE INPUT                           CCGA018    80
                                                  STORE  X2,OF=R                                                 CCGA018    81
                                                                                                                 CCGA079     6
                                         OPE5     SA3    =XCO.REWB                                               CCGA079     7
                                                  PL     X3,OPE6     IF REW OPTION NOT ON                        CCGA079     8
                                                  SA3    =XF.LGO                                                 CCGA079     9
                                                  BX3    X3-X2                                                   CCGA079    10
                                                  SX3    X3                                                      CCGA079    11
                                                  NZ     X3,OPE6     IF NOT FILE LGO                             CCGA079    12
                                                  STORE  X2,OF=R                                                 CCGA079    13
                                                                                                                 CCGA018    82
                                        **        END OF NASTY KLUDGE                                            CCGA018    83
                                                                                                                 CCGA018    84
                                         OPE6     OPENM  X2                                                      CCGA079    14
                                                  JP     FA=OPE      EXIT                                        FA=OPE     51
                                                                                                                 FA=OPE     52
                                                                                                                 FA=OPE     53
                                                  IF     -DEF,QUAL$,2                                            FA=OPE     54
                                                  QUAL   *                                                       FA=OPE     55
                                         FA=OPE   EQU    /FA=OPE/FA=OPE                                          FA=OPE     56
                                                                                                                 FA=OPE     57
                                                  IF     -ABS,FA=OPE,1                                           FA=OPE     58
                                                  ENTRY  FA=OPE                                                  FA=OPE     59
                                                                                                                 FA=OPE     60
                                                  ENDX                                                           FA=OPE     61
                                                  ENTRY  FA=OPE                                                  UTILITY    73
                                                  CTEXT  FA=RDC - READ CODED LINE, -C- FORMAT                    FA=RDC      2
                                         RDC      SPACE  4                                                       FA=RDC      3
                                                  IF     -DEF,QUAL$,1                                            FA=RDC      4
                                                  QUAL   FA=RDC                                                  FA=RDC      5
                                                                                                                 FA=RDC      6
                                                                                                                 FA=RDC      7
                                        **        FA=RDC - READ ONE CODED LINE FROM FILE, IN -C- FORMAT.         FA=RDC      8
                                        *                                                                        FA=RDC      9
                                        *                                                                        FA=RDC     10
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1.                               FA=RDC     11
                                        *                (A2) = PSEUDO-FET ADDRESS.                              FA=RDC     12
                                        *                (B1) = 1                                                FA=RDC     13
                                        *                (B6) = WSA ADDRESS.                                     FA=RDC     14
                                        *                (B7) = WSA LENGTH (WORDS).                              FA=RDC     15
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    74
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                        *                                                                        FA=RDC     16
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         FA=RDC     17
                                        *                (X1) = -1 IF EOP/EOI DETECTED ON FILE.                  FA=RDC     18
                                        *                (X1) = (B6) IF EOS DETECTED ON FILE BEFORE TRANSFER     FA=RDC     19
                                        *                            WAS COMPLETED.                              FA=RDC     20
                                        *                (X2) = ADDRESS OF FIT FOR FILE.                         FA=RDC     21
                                        *                (B1) = 1                                                FA=RDC     22
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     FA=RDC     23
                                        *                            WORKING STORAGE AREA.                       FA=RDC     24
                                        *                                                                        FA=RDC     25
                                        *         USES   X - 1, 3, 4, 6, 7                                       FA=RDC     26
                                        *                A - 1, 3, 6, 7                                          FA=RDC     27
                                        *                B - 2, 6                                                FA=RDC     28
                                        *                                                                        FA=RDC     29
                                        *         CALLS  FETCH, GETW, STORE                                      FA=RDC     30
                                                                                                                 CCGA018    86
                                         RDCA     BSS    1           PRESERVE X5 HERE                            CCGA018    87
                                         RDCB     BSS    1           PRESERVE A5 HERE                            CCGA018    88
                                                                                                                 FA=RDC     31
                                                                                                                 FA=RDC     32
                                         FA=RDC   JP     *+4S15      ** ENTRY/EXIT **                            FA=RDC     33
                                                                                                                 FA=RDC     34
                                                  IFNE   TEST,0,1                                                FA=RDC     35
                                                  LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=RDC     36
                                                                                                                 FA=RDC     37
                                                  SX3    B6          (X3) = WSA ADDRESS                          FA=RDC     38
                                                  SX4    B7          (X4) = WSA LENGTH                           FA=RDC     39
                                                  GETW   X2,X3,X4,RDC2                                           FA=RDC     40
                                                  SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    FA=RDC     41
                                                  AX4    18D         (X4) = UNUSED BIT COUNT                     FA=RDC     42
                                                  SA3    B6-B1       LAST WORD OF LINE                           FA=RDC     43
                                                  MX6    1                                                       FA=RDC     44
                                                  SB2    X4-59D                                                  FA=RDC     45
                                                  MX7    0                                                       FA=RDC     46
                                                  AX4    X6,-B2                                                  FA=RDC     47
                                                  MX1    0           *TRANSFER COMPLETE* STATUS                  FA=RDC     48
                                                  BX6    X4*X3       DISCARD UNUSED BITS                         FA=RDC     49
                                                  AX4    6                                                       FA=RDC     50
                                                  SA6    A3          TERMINATE LAST WORD READ                    FA=RDC     51
                                                  NZ     X4,FA=RDC   IF AT LEAST 12-BIT LINE TERMINATOR, EXIT    FA=RDC     52
                                                  SB6    B6+B1       INCREMENT LWA+1 OF TRANSFER                 FA=RDC     53
                                                  SA7    A6+B1       TERMINATE LINE                              FA=RDC     54
                                                  JP     FA=RDC      EXIT                                        FA=RDC     55
                                                                                                                 FA=RDC     56
                                        *         HERE IF END-OF-DATA ENCOUNTERED.                               FA=RDC     57
                                                                                                                 FA=RDC     58
                                         RDC2     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **  FA=RDC     59
                                                  BX6    X5                                                      CCGA018    89
                                                  SA6    RDCA        PRESERVE X5                                 CCGA018    90
                                                  SX6    A5                                                      CCGA018    91
                                                  SA6    RDCB        PRESERVE A5                                 CCGA018    92
                                                  FETCH  X2,FP,X7,X1                                             CCGA018    93
                                                  SA3    RDCB                                                    CCGA018    94
                                                  SA5    X3          RESTORE A5                                  CCGA018    95
                                                  SA3    RDCA                                                    CCGA018    96
                                                  BX5    X3          RESTORE X5                                  CCGA018    97
                                                  SX7    X7-#EOS#                                                CCGA018    98
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    75
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                  SB6    B6+X4       (B6) = LWA+1 OF TRANSFER                    CCGA018    99
                                                  SX1    B6          TO RETURN *EOS* STATUS                      CCGA018   100
                                                  ZR     X7,FA=RDC   IF EOS, EXIT                                CCGA018   101
                                                  MX1    -1          RETURN EOP/EOI STATUS                       FA=RDC     65
                                                  JP     FA=RDC      EXIT                                        FA=RDC     66
                                                                                                                 FA=RDC     67
                                                                                                                 FA=RDC     68
                                                  IF     -DEF,QUAL$,2                                            FA=RDC     69
                                                  QUAL   *                                                       FA=RDC     70
                                         FA=RDC   EQU    /FA=RDC/FA=RDC                                          FA=RDC     71
                                                                                                                 FA=RDC     72
                                                  IF     -ABS,FA=RDC,1                                           FA=RDC     73
                                                  ENTRY  FA=RDC                                                  FA=RDC     74
                                                                                                                 FA=RDC     75
                                                  ENDX                                                           FA=RDC     76
                                                  ENTRY  FA=RDC                                                  UTILITY    75
                                                  CTEXT  FA=RDW - READ WORDS TO WORKING BUFFER                   FA=RDW      2
                                         RDW      SPACE  4                                                       FA=RDW      3
                                                  IF     -DEF,QUAL$,1                                            FA=RDW      4
                                                  QUAL   FA=RDW                                                  FA=RDW      5
                                                                                                                 FA=RDW      6
                                                                                                                 FA=RDW      7
                                        **        FA=RDW - READ WORDS TO WORKING BUFFER.                         FA=RDW      8
                                        *                                                                        FA=RDW      9
                                        *                *FA=RDW* PARALLELS ITS KRONOS MODEL, *COMCRDW* AS       FA=RDW     10
                                        *         CLOSELY AS POSSIBLE.  RECORD MANAGER COMPLICATED THINGS BY     FA=RDW     11
                                        *         ADDING A NEW LEVEL, *RECORD*, TO THE LOGICAL STRUCTURE         FA=RDW     12
                                        *         HIERARCHY OF FILES.  SINCE CIO-STYLED I/O HAS NO SUCH LEVEL    FA=RDW     13
                                        *         (A CIO *RECORD* RESEMBLES A RECORD MANAGER *SECTION*),         FA=RDW     14
                                        *         *FA=RDW* IGNORES 7RM RECORD BOUNDARIES AND RETURNS AN          FA=RDW     15
                                        *         END-OF-DATA STATUS ONLY WHEN END-OF-SECTION IS SENSED.         FA=RDW     16
                                        *                                                                        FA=RDW     17
                                        *                                                                        FA=RDW     18
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1.                               FA=RDW     19
                                        *                (A2) = PSEUDO-FET ADDRESS.                              FA=RDW     20
                                        *                (B1) = 1                                                FA=RDW     21
                                        *                (B6) = WSA ADDRESS.                                     FA=RDW     22
                                        *                (B7) = WSA LENGTH (WORDS).                              FA=RDW     23
                                        *                                                                        FA=RDW     24
                                        *         EXIT   (X1) = 0 FOR TRANSFER COMPLETE.                         FA=RDW     25
                                        *                (X1) = -1 IF EOP/EOI DETECTED ON FILE.                  FA=RDW     26
                                        *                (X1) = (B6) IF EOS DETECTED ON FILE BEFORE TRANSFER     FA=RDW     27
                                        *                            WAS COMPLETED.                              FA=RDW     28
                                        *                (X2) = PSEUDO-FET WORD 1.                               FA=RDW     29
                                        *                (A2) = PSEUDO-FET ADDRESS.                              FA=RDW     30
                                        *                (B1) = 1                                                FA=RDW     31
                                        *                (B6) = ADDRESS PLUS ONE OF LAST WORD TRANSFERRED TO     FA=RDW     32
                                        *                            WORKING STORAGE AREA.                       FA=RDW     33
                                        *                                                                        FA=RDW     34
                                        *         USES   X - 1, 2, 3, 4, 6, 7                                    FA=RDW     35
                                        *                A - 2, 3, 4, 6, 7                                       FA=RDW     36
                                        *                B - 2, 3, 4, 6, 7                                       FA=RDW     37
                                        *                                                                        FA=RDW     38
                                        *         CALLS  FETCH, GETWP, MOVE                                      FA=RDW     39
                                                                                                                 CCGA018   102
                                         RDWA     BSS    1           PRESERVE X5 HERE                            CCGA018   103
                                         RDWB     BSS    1           PRESERVE A5 HERE                            CCGA018   104
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    76
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                                                                                 FA=RDW     40
                                                                                                                 FA=RDW     41
                                         FA=RDW   JP     *+4S15      ** ENTRY/EXIT **                            FA=RDW     42
                                                                                                                 FA=RDW     43
                                                  IFNE   TEST,0,1                                                FA=RDW     44
                                                  LE     B7,B0,*+4S15      IF LENGTH ERROR, ABORT JOB            FA=RDW     45
                                                                                                                 FA=RDW     46
                                                  SB2    A2          (B2) = PSEUDO-FET ADDRESS                   FA=RDW     47
                                                  SB3    B7+         (B3) = NR UNTRANSFERRED WORDS               FA=RDW     48
                                                  SB4    B6          (B4) = FWA OF TRANSFER                      FA=RDW     49
                                         RDW2     SA3    B2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER          FA=RDW     50
                                                  SA2    A3+B1       (X2) = HOLDING BUFFER -OUT- POINTER         FA=RDW     51
                                                  SX6    B3          NR WORDS REQUESTED                          FA=RDW     52
                                                  IX7    X3-X2       NR WORDS IN HOLDING BUFFER                  FA=RDW     53
                                                  ZR     X7,RDW6     IF HOLDING BUFFER EMPTY                     FA=RDW     54
                                                                                                                 FA=RDW     55
                                        *         COMPUTE MINIMUM OF NUMBER OF WORDS REQUESTED VS. WORDS IN      FA=RDW     56
                                        *         HOLDING BUFFER.  TRANSFER *MIN* WORDS TO WORKING STORAGE AREA. FA=RDW     57
                                                                                                                 FA=RDW     58
                                                  IX1    X6-X7                                                   FA=RDW     59
                                                  SX3    B6          (X3) = FWA OF TRANSFER                      FA=RDW     60
                                                  AX1    59D                                                     FA=RDW     61
                                                  BX6    X1*X6                                                   FA=RDW     62
                                                  BX7    -X1*X7                                                  FA=RDW     63
                                                  IX1    X6+X7       (X1) = MIN (REQUESTED, AVAILABLE) NR WORDS  FA=RDW     64
                                                  SB7    X1                                                      FA=RDW     65
                                                  IX6    X2+X1                                                   FA=RDW     66
                                                  SB3    B3-B7                                                   FA=RDW     67
                                                  SB6    B6+X1       (B6) = LWA+1 OF TRANSFER                    FA=RDW     68
                                                  SA6    A2          UPDATE -OUT-                                FA=RDW     69
                                                  MOVE   X1,X2,X3                                                FA=RDW     70
                                                  SA2    B2          RESTORE (X2) = FILE CONTROL WORD            FA=RDW     71
                                                  MX1    0           *TRANSFER COMPLETE* STATUS                  FA=RDW     72
                                                  ZR     B3,FA=RDW   IF TRANSFER COMPLETE, EXIT                  FA=RDW     73
                                                  LX3    X2,B1       LEFT ADJUST SPILL FLAG                      FA=RDW     74
                                                  SX1    B6          *EOS DETECTED* STATUS                       FA=RDW     75
                                                  PL     X3,FA=RDW   IF FILE NOT SPILLED TO DISK, EXIT           FA=RDW     76
                                                  BX6    X5                                                      CCGA018   105
                                                  SA6    RDWA        PRESERVE X5                                 CCGA018   106
                                                  SX6    A5                                                      CCGA018   107
                                                  SA6    RDWB        PRESERVE A5                                 CCGA018   108
                                                  FETCH  X2,FP,X3,X4                                             CCGA018   109
                                                  SA4    RDWB                                                    CCGA018   110
                                                  SA5    X4          RESTORE A5                                  CCGA018   111
                                                  SA4    RDWA                                                    CCGA018   112
                                                  BX5    X4          RESTORE X5                                  CCGA018   113
                                                  SX4    #EOS#+#EOP#+#EOI#                                       FA=RDW     78
                                                  BX3    X4*X3                                                   FA=RDW     79
                                                  NZ     X3,RDW5     IF FILE AT EOS/EOP/EOI                      FA=RDW     80
                                                                                                                 FA=RDW     81
                                        *         REFILL HOLDING BUFFER.                                         FA=RDW     82
                                                                                                                 FA=RDW     83
                                         RDW3     SA3    B2+B1       -FIRST-                                     FA=RDW     84
                                                  SA4    B2+I.LIMIT  -LIMIT-                                     FA=RDW     85
                                                  IX1    X4-X3       HOLDING BUFFER LENGTH                       FA=RDW     86
                                                  GETWP  X2,X3,X1,RDW7     RETURNS (X1) = TRANSFER LENGTH        FA=RDW     87
                                         RDW4     ZR     X1,RDW5     IF NO DATA RECEIVED                         FA=RDW     88
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    77
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                  BX6    X3                                                      FA=RDW     89
                                                  IX7    X3+X1                                                   FA=RDW     90
                                                  SA6    A4-B1       RESET -OUT- = -FIRST-                       FA=RDW     91
                                                  SA7    A3+B1       SET NEW -IN-                                FA=RDW     92
                                                  JP     RDW2        CONTINUE TRANSFER                           FA=RDW     93
                                                                                                                 FA=RDW     94
                                        *         PROCESS END-OF-DATA CONDITION.                                 FA=RDW     95
                                                                                                                 FA=RDW     96
                                         RDW5     SA3    B2+B1       -FIRST-                                     FA=RDW     97
                                                  SX1    B6          *EOS DETECTED* STATUS                       FA=RDW     98
                                                  BX6    X3                                                      FA=RDW     99
                                                  SA6    A3+B1       RESET -IN- = -FIRST-                        FA=RDW    100
                                                  SA6    A6+B1       RESET -OUT- = -FIRST-                       FA=RDW    101
                                                  GT     B6,B4,FA=RDW      IF ANY DATA TRANSFERRED TO WSA        FA=RDW    102
                                                  MX1    -1          *EOP/EOI* STATUS                            FA=RDW    103
                                                  JP     FA=RDW      EXIT                                        FA=RDW    104
                                                                                                                 FA=RDW    105
                                        *         PROCESS EMPTY HOLDING BUFFER.                                  FA=RDW    106
                                                                                                                 FA=RDW    107
                                         RDW6     SA2    B2          RESTORE (X2) = PSEUDO-FET WORD 1            FA=RDW    108
                                                  LX1    X2,B1       LEFT ADJUST SPILL FLAG                      FA=RDW    109
                                                  PL     X1,RDW5     IF FILE NOT SPILLED TO DISK                 FA=RDW    110
                                                  JP     RDW3        GO REFILL HOLDING BUFFER                    FA=RDW    111
                                                                                                                 FA=RDW    112
                                        *         PROCESS RECORD MANAGER DATA EXIT.                              FA=RDW    113
                                                                                                                 FA=RDW    114
                                         RDW7     JP     *+4S15      ** REC MGR SIMULATES -RJ- HERE IF E-O-D **  FA=RDW    115
                                                  JP     RDW4        CONTINUE (IGNORE 7RM *RECORD* END)          FA=RDW    116
                                                                                                                 FA=RDW    117
                                                                                                                 FA=RDW    118
                                                  IF     -DEF,QUAL$,2                                            FA=RDW    119
                                                  QUAL   *                                                       FA=RDW    120
                                         FA=RDW   EQU    /FA=RDW/FA=RDW                                          FA=RDW    121
                                                                                                                 FA=RDW    122
                                                  IF     -ABS,FA=RDW,1                                           FA=RDW    123
                                                  ENTRY  FA=RDW                                                  FA=RDW    124
                                                                                                                 FA=RDW    125
                                                  ENDX                                                           FA=RDW    126
                                                  ENTRY  FA=RDW                                                  UTILITY    77
                                                  CTEXT  FA=RWX - REWIND FILE (FANCY)                            FA=RWX      2
                                         RWX      SPACE  4                                                       FA=RWX      3
                                                  IF     -DEF,QUAL$,1                                            FA=RWX      4
                                                  QUAL   FA=RWX                                                  FA=RWX      5
                                                                                                                 FA=RWX      6
                                                                                                                 FA=RWX      7
                                        **        FA=RWX - REWIND FILE (SUPPRESSED FOR SCRATCH FILES).           FA=RWX      8
                                        *                                                                        FA=RWX      9
                                        *         SEQUENTIAL BINARY FILE -                                       FA=RWX     10
                                        *           REWINDS THE FILE, UNLESS THE HOLDING BUFFER HAS NOT          FA=RWX     11
                                        *           OVERFLOWED AND THE COMPILER IS ASSEMBLED IN SYSTEM MODE.     FA=RWX     12
                                        *                                                                        FA=RWX     13
                                        *         OTHER FILE TYPE -                                              FA=RWX     14
                                        *           REWINDS THE FILE UNCONDITIONALLY.                            FA=RWX     15
                                        *                                                                        FA=RWX     16
                                        *                                                                        FA=RWX     17
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1                                FA=RWX     18
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=RWX     19
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    78
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                        *                                                                        FA=RWX     20
                                        *         EXIT   (X2) = PSEUDO-FET WORD 1                                FA=RWX     21
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=RWX     22
                                        *                                                                        FA=RWX     23
                                        *         USES   X - 1, 6, 7                                             FA=RWX     24
                                        *                A - 1, 6                                                FA=RWX     25
                                        *                B - NONE                                                FA=RWX     26
                                        *                                                                        FA=RWX     27
                                        *         CALLS  REWINDM                                                 FA=RWX     28
                                                                                                                 FA=RWX     29
                                                                                                                 FA=RWX     30
                                         FA=RWX   JP     *+4S15      ** ENTRY/EXIT **                            FA=RWX     31
                                                  PL     X2,RWX2     IF FILE HAS NO HOLDING BUFFER               FA=RWX     32
                                                  SA1    A2+I.FIRST                                              FA=RWX     33
                                                  IX7    X2+X2       LEFT ADJUST SPILL FLAG                      FA=RWX     34
                                                  BX6    X1                                                      FA=RWX     35
                                                  SA6    A2+I.OUT    SET -OUT- = -FIRST-                         FA=RWX     36
                                                                                                                 FA=RWX     37
                                                  IFEQ   TEST,0,1                                                FA=RWX     38
                                                  PL     X7,FA=RWX   IF HOLDING BUFFER HAS NOT SPILLED, EXIT     FA=RWX     39
                                                                                                                 FA=RWX     40
                                                  SA6    A2+I.IN     SET -IN- = -FIRST-                          FA=RWX     41
                                         RWX2     REWINDM   X2                                                   FA=RWX     42
                                                  JP     FA=RWX      EXIT                                        FA=RWX     43
                                                                                                                 FA=RWX     44
                                                                                                                 FA=RWX     45
                                                  IF     -DEF,QUAL$,2                                            FA=RWX     46
                                                  QUAL   *                                                       FA=RWX     47
                                         FA=RWX   EQU    /FA=RWX/FA=RWX                                          FA=RWX     48
                                                                                                                 FA=RWX     49
                                                  IF     -ABS,FA=RWX,1                                           FA=RWX     50
                                                  ENTRY  FA=RWX                                                  FA=RWX     51
                                                                                                                 FA=RWX     52
                                                  ENDX                                                           FA=RWX     53
                                                  ENTRY  FA=RWX                                                  UTILITY    79
                                                  CTEXT  FA=WTH - WRITE CODED LINE, -H- FORMAT                   FA=WTH      2
                                         WTH      SPACE  4                                                       FA=WTH      3
                                                  IF     -DEF,QUAL$,1                                            FA=WTH      4
                                                  QUAL   FA=WTH                                                  FA=WTH      5
                                                                                                                 FA=WTH      6
                                                                                                                 FA=WTH      7
                                        **        FA=WTH - WRITE CODED LINE TO FILE, IN -H- FORMAT.              FA=WTH      8
                                        *                                                                        FA=WTH      9
                                        *                *FA=WTH* PARALLELS ITS KRONOS MODEL, *COMCWTH*.         FA=WTH     10
                                        *         LINE LENGTH IN WORDS MUST BE PROVIDED IN (B7) ON ENTRY.        FA=WTH     11
                                        *         IF (B7) CONTAINS ZERO, NO TRANSFER WILL BE MADE.               FA=WTH     12
                                        *                                                                        FA=WTH     13
                                        *                                                                        FA=WTH     14
                                        *         ENTRY  (X2) = FIT ADDRESS                                      FA=WTH     15
                                        *                (B1) = 1                                                FA=WTH     16
                                        *                (B6) = LINE ADDRESS                                     FA=WTH     17
                                        *                (B7) = LINE LENGTH IN WORDS, OR ZERO - SEE ABOVE        FA=WTH     18
                                        *                                                                        FA=WTH     19
                                        *         EXIT   (X2) = FIT ADDRESS                                      FA=WTH     20
                                        *                (B1) = 1                                                FA=WTH     21
                                        *                                                                        FA=WTH     22
                                        *         USES   X - 1, 3, 4, 6, 7                                       FA=WTH     23
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    79
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                        *                A - 1, 4                                                FA=WTH     24
                                        *                B - 2, 7                                                FA=WTH     25
                                        *                                                                        FA=WTH     26
                                        *         CALLS  PUT                                                     FA=WTH     27
                                                                                                                 FA=WTH     28
                                                                                                                 FA=WTH     29
                                         FA=WTH   JP     *+4S15      ** ENTRY/EXIT **                            FA=WTH     30
                                                  LE     B7,B0,FA=WTH IF NO LENGTH, NO TRANSFER                  FA=WTH     31
                                                                                                                 FA=WTH     32
                                        *         TEST FOR NO TRAILING BLANKS                                    FA=WTH     33
                                                                                                                 FA=WTH     34
                                                  SA1    B6+B7                                                   FA=WTH     35
                                                  MX4    48                                                      FA=WTH     36
                                                  SA1    A1-B1       FETCH LAST WORD                             FA=WTH     37
                                                  BX4    -X4*X1                                                  FA=WTH     38
                                                  ZR     X4,WTH2     IF ZERO BYTE TERMINATION                    FA=WTH     39
                                                  SA4    WTHB        =1H                                         FA=WTH     40
                                                  IX1    X1-X4                                                   FA=WTH     41
                                                  NZ     X1,WTH2     IF NO TRAILING BLANK WORDS                  FA=WTH     42
                                                                                                                 FA=WTH     43
                                        *         DELETE TRAILING BLANK WORDS.                                   FA=WTH     44
                                                                                                                 FA=WTH     45
                                                  SA1    B6+B7       PRESET (A1)                                 FA=WTH     46
                                                  SB7    B7+B1                                                   FA=WTH     47
                                                                                                                 FA=WTH     48
                                         WTH1     SA1    A1-B1                                                   FA=WTH     49
                                                  IX6    X1-X4                                                   FA=WTH     50
                                                  SB7    B7-B1                                                   FA=WTH     51
                                                  EQ     B7,B1,WTH2                                              FA=WTH     52
                                                  ZR     X6,WTH1                                                 FA=WTH     53
                                                                                                                 FA=WTH     54
                                        *         DETERMINE LINE LENGTH (CHARACTERS).                            FA=WTH     55
                                                                                                                 FA=WTH     56
                                         WTH2     SB2    B7-B1                                                   FA=WTH     57
                                                  SX6    B7                                                      FA=WTH     58
                                                  SA1    B6+B2       (X1) = LAST WORD OF LINE                    FA=WTH     59
                                                  IX7    X6+X6                                                   FA=WTH     60
                                                  LX6    3                                                       FA=WTH     61
                                                  SA4    WTHA        (X4) = CHARACTER BYTE MASK                  FA=WTH     62
                                                  IX7    X6+X7       (X7) = LINE LENGTH (CHARACTERS)             FA=WTH     63
                                                                                                                 FA=WTH     64
                                        *         LOCATE AND COUNT LINE TERMINATING ZERO BYTES.  ADJUST LINE     FA=WTH     65
                                        *         LENGTH (IN CHARACTERS) ACCORDINGLY.                            FA=WTH     66
                                                                                                                 FA=WTH     67
                                                  CX6    X1          MINUS ZERO PROTECT                          FA=WTH     68
                                                  MX3    -1                                                      FA=WTH     69
                                                  NZ     X6,WTH3     IF LAST WORD NOT NULL                       FA=WTH     70
                                                  SA1    A1-1        (X1) = LAST NON-NULL WORD OF LINE           FA=WTH     71
                                                  SX7    X7-10D                                                  FA=WTH     72
                                                                                                                 FA=WTH     73
                                         WTH3     IX6    X1+X3       BORROW PROPAGATES LEFT THRU ALL ZERO BYTES  FA=WTH     74
                                                  NO                                                             FA=WTH     75
                                                  BX1    -X1*X6                                                  FA=WTH     76
                                                  SX3    B6          (X3) = LINE ADDRESS                         FA=WTH     77
                                                  BX6    X4*X1       RETAIN *40* IN EACH NULL CHAR BYTE POSITION FA=WTH     78
                                                  NO                                                             FA=WTH     79
                                                  CX1    X6          (X1) = NR OF NULL CHARACTERS                FA=WTH     80
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    80
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                  IX4    X7-X1       (X4) = LINE LENGTH (NON-NULL CHARACTERS)    FA=WTH     81
                                                  PUT    X2,X3,X4                                                FA=WTH     82
                                                  JP     FA=WTH      EXIT                                        FA=WTH     83
                                                                                                                 FA=WTH     84
                                         WTHA     DATA   40404040404040404040B                                   FA=WTH     85
                                         WTHB     DATA   1H                                                      FA=WTH     86
                                                                                                                 FA=WTH     87
                                                  IF     -DEF,QUAL$,2                                            FA=WTH     88
                                                  QUAL   *                                                       FA=WTH     89
                                         FA=WTH   EQU    /FA=WTH/FA=WTH                                          FA=WTH     90
                                                                                                                 FA=WTH     91
                                                  IF     -ABS,FA=WTH,1                                           FA=WTH     92
                                                  ENTRY  FA=WTH                                                  FA=WTH     93
                                                                                                                 FA=WTH     94
                                                  ENDX                                                           FA=WTH     95
                                                                                                                 FC50467     8
                                                  ENTRY  FA=WTH                                                  FC50467     9
                                                  CTEXT  FA=WTW - WRITE WORDS FROM WORKING BUFFER                FA=WTW      2
                                         WTW      SPACE  4                                                       FA=WTW      3
                                                  IF     -DEF,QUAL$,1                                            FA=WTW      4
                                                  QUAL   FA=WTW                                                  FA=WTW      5
                                                                                                                 FA=WTW      6
                                                                                                                 FA=WTW      7
                                        **        FA=WTW - WRITE WORDS FROM WORKING BUFFER TO SEQUENTIAL FILE.   FA=WTW      8
                                        *                                                                        FA=WTW      9
                                        *                                                                        FA=WTW     10
                                        *         ENTRY  (X2) = PSEUDO-FET WORD 1                                FA=WTW     11
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=WTW     12
                                        *                (B1) = 1                                                FA=WTW     13
                                        *                (B6) = WSA ADDRESS                                      FA=WTW     14
                                        *                (B7) = WSA LENGTH (WORDS)                               FA=WTW     15
                                        *                                                                        FA=WTW     16
                                        *         EXIT   (X2) = PSEUDO-FET WORD 1                                FA=WTW     17
                                        *                (A2) = PSEUDO-FET ADDRESS                               FA=WTW     18
                                        *                (B1) = 1                                                FA=WTW     19
                                        *                                                                        FA=WTW     20
                                        *         USES   X - 1, 2, 3, 4, 6                                       FA=WTW     21
                                        *                A - 1, 2, 3, 4, 6                                       FA=WTW     22
                                        *                B - 2, 3, 6, 7                                          FA=WTW     23
                                        *                                                                        FA=WTW     24
                                        *         CALLS  MOVE, PUTW                                              FA=WTW     25
                                                                                                                 FA=WTW     26
                                         FA=WTWA  BSS    1           STORAGE FOR (X5)                            FA=WTW     27
                                         FA=WTWB  BSS    1           STORAGE FOR (A5)                            FA=WTW     28
                                                                                                                 FA=WTW     29
                                                                                                                 FA=WTW     30
                                         FA=WTW   JP     *+4S15      ** ENTRY/EXIT **                            FA=WTW     31
                                                                                                                 FA=WTW     32
                                                  IFNE   TEST,0,1                                                FA=WTW     33
                                                  LT     B7,B0,*+4S15  IF LENGTH ERROR, ABORT JOB                FA=WTW     34
                                                                                                                 FA=WTW     35
                                                  ZR     B7,FA=WTW   IF ZERO LENGTH WRITE                        FA=WTW     36
                                         WTW2     SA3    A2+I.IN     (X3) = HOLDING BUFFER -IN- POINTER          FA=WTW     37
                                                  SA4    A2+I.LIMIT  (X4) = HOLDING BUFFER -LIMIT- POINTER       FA=WTW     38
                                                  SX6    X3+B7       UPDATED -IN-                                FA=WTW     39
                                                  IX1    X6-X4       DATA LENGTH .MI. EMPTY BUFFER SPACE         FA=WTW     40
                                                  MI     X1,WTW4     IF DATA WILL NOT OVERFLOW BUFFER            FA=WTW     41
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    81
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                                                                                 FA=WTW     42
                                        *         FILL HOLDING BUFFER.  CALL RECORD MANAGER TO WRITE IT TO FILE. FA=WTW     43
                                                                                                                 FA=WTW     44
                                                  MX6    1                                                       FA=WTW     45
                                                  SB2    A2          (B2) = PSEUDO-FET ADDRESS                   FA=WTW     46
                                                  LX6    -59D+58D                                                FA=WTW     47
                                                  SB3    X1          (B3) = LENGTH OF EXCESS DATA                FA=WTW     48
                                                  BX6    X2+X6                                                   FA=WTW     49
                                                  IX1    X4-X3                                                   FA=WTW     50
                                                  SX2    B6                                                      FA=WTW     51
                                                  SA6    A2          FILE SPILLED FLAG .ON.                      FA=WTW     52
                                                  SB6    B6+X1       (B6) = FWA EXCESS DATA                      FA=WTW     53
                                                  ZR     X1,WTW3     IF ZERO LENGTH MOVE                         FA=WTW     54
                                                  MOVE   X1,X2,X3                                                FA=WTW     55
                                         WTW3     SA2    B2          (X2) = FILE CONTROL WORD                    FA=WTW     56
                                                                                                                 FA=WTW     57
                                        *         NOTE,  ***  COLOSSAL KLUGE  ***.                               FA=WTW     58
                                        *                                                                        FA=WTW     59
                                        *         A5 AND X5 SAVED FOR 7RM *FETCH* MACRO. THIS CODE IS TO         FA=WTW     60
                                        *         BE REMOVED AT THE EARLIEST OPPORTUNITY TO BE SUBSTITUTED       FA=WTW     61
                                        *         BY A MORE *CHIC* METHOD.                                       FA=WTW     62
                                                                                                                 FA=WTW     63
                                                  BX6    X5                                                      FA=WTW     64
                                                  SA6    FA=WTWA     SAVE (X5)                                   FA=WTW     65
                                                  SX6    A5                                                      FA=WTW     66
                                                  SA6    FA=WTWB     SAVE (A5)                                   FA=WTW     67
                                                                                                                 FA=WTW     68
                                                  FETCH  X2,RT,X4,X1,X3,X6                                       FA=WTW     69
                                                                                                                 FA=WTW     70
                                                  SA3    FA=WTWB                                                 FA=WTW     71
                                                  SA5    X3          RESTORE (A5)                                FA=WTW     72
                                                  SA3    FA=WTWA                                                 FA=WTW     73
                                                  BX5    X3          RESTORE (X5)                                FA=WTW     74
                                                                                                                 FA=WTW     75
                                        *         END OF KLUGE.                                                  FA=WTW     76
                                                                                                                 FA=WTW     77
                                                  SA3    B2+I.LIMIT  (X3) = -LIMIT-                              FA=WTW     78
                                                  SA1    B2+B1       (X1) = -FIRST-                              FA=WTW     79
                                                  IX3    X3-X1       (X3) = HOLDING BUFFER LENGTH                FA=WTW     80
                                                  BX6    X1                                                      FA=WTW     81
                                                  SA6    A1+B1       RESET -IN- = -FIRST-                        FA=WTW     82
                                                  SB7    X4-#ST#                                                 FA=WTW     83
                                                  ZR     B7,WTW3A    IF S TYPE RECORD                            FA=WTW     84
                                                  PUTW   X2,X1,X3    WRITE HOLDING BUFFER TO FILE                FA=WTW     85
                                                  SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA         FA=WTW     86
                                                  JP     WTW2        CONTINUE FILLING HOLDING BUFFER             FA=WTW     87
                                                                                                                 FA=WTW     88
                                         WTW3A    PUTWP  X2,X1,X3                                                FA=WTW     89
                                                  SB7    B3          (B7) = LENGTH OF UNTRANSFERRED DATA         FA=WTW     90
                                                  JP     WTW2        CONTINUE FILLING HOLDING BUFFER             FA=WTW     91
                                                                                                                 FA=WTW     92
                                        *         MOVE DATA TO HOLDING BUFFER AND EXIT.                          FA=WTW     93
                                                                                                                 FA=WTW     94
                                         WTW4     SB2    A2          TEMP SAVE PSEUDO-FET ADDRESS                FA=WTW     95
                                                  SX1    B7          WSA LENGTH                                  FA=WTW     96
                                                  SX2    B6          WSA ADDRESS                                 FA=WTW     97
                                                  SA6    A3          UPDATE -IN-                                 FA=WTW     98
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    82
        FA= - MACE I/O SIMULATOR FOR RECORD MANGLER.
  
                                                  MOVE   X1,X2,X3                                                FA=WTW     99
                                                  SA2    B2          RESTORE (A2), (X2) FOR EXIT                 FA=WTW    100
                                                  JP     FA=WTW      EXIT                                        FA=WTW    101
                                                                                                                 FA=WTW    102
                                                                                                                 FA=WTW    103
                                                  IF     -DEF,QUAL$,2                                            FA=WTW    104
                                                  QUAL   *                                                       FA=WTW    105
                                         FA=WTW   EQU    /FA=WTW/FA=WTW                                          FA=WTW    106
                                                                                                                 FA=WTW    107
                                                  IF     -ABS,FA=WTW,1                                           FA=WTW    108
                                                  ENTRY  FA=WTW                                                  FA=WTW    109
                                                                                                                 FA=WTW    110
                                                  ENDX                                                           FA=WTW    111
                                                  ENTRY  FA=WTW                                                  UTILITY    83
                                         #RM      ENDIF                                                          UTILITY    84
                                                  LIST   D                                                       UTILITY    85
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        COD 
  
          1052                                    END                                                            UTILITY    86
  
                             74400B CM  STORAGE USED             4298 STATEMENTS     1601 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            3.457 SECONDS         685 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0                  37/44 F   43/13 F   45/13 F   48/37 F   57/09 F   60/02 F   62/43 F
        CDD             3   PROGRAM*        3/25 D    3/29 E    3/30     17/18     18/47     20/08 S
        CDD=            3   PROGRAM*        3/26 D    3/30 D    3/30 E
        CIO=          474   PROGRAM*       17/37     20/25 S   43/37 E   53/33     55/04     65/02     68/08
                                           19/52     43/34 D   50/48     54/35     60/38     67/19
        COD             0   EXTERNAL*      17/19     20/09 S   22/25
        CP#RM           0   FTX             7/10 F   17/36 F   19/34 F   20/22 F   21/12 F   40/22 F
        DCB=         1043   PROGRAM*       57/38     68/20 D   68/24 E
        DXB            22   PROGRAM*        6/20 D    6/24 E
        DXB=           22   PROGRAM*        6/21 D
        FA=SET         31   PROGRAM*       10/20 D   10/22 F   10/23 E
        FRA=          257   PROGRAM*       22/51 D   22/54 E
        IDP=COD         0   EXTERNAL*       1/38 X
        I.CBSET         5   FTX             7/46
        I.LIMIT         4   FTX             8/06
        I.OUT           3   FTX             8/04 S
        LCB=          641   PROGRAM*       45/35     55/23 D
        MNS           332   PROGRAM*       30/24 D   30/25
        MNS=          332   PROGRAM*       30/25 D   30/28 E
        MSG=            0   EXTERNAL*       1/35 X   17/28     18/56     19/02     19/04     19/07     20/20 S
        MVE=           72   PROGRAM*       15/20 D   15/23 E
  U     QUAL$                               2/06 F   10/18 F   23/06 F   34/13 F   39/06 F   46/15 F   59/06 F
                                            3/23 F   11/06 F   30/22 F   35/06 F   40/14 F   47/06 F   60/45 F
                                            4/06 F   15/18 F   31/06 F   36/29 F   41/06 F   55/19 F   61/06 F
                                            6/18 F   16/06 F   32/02 F   37/06 F   43/32 F   56/06 F   68/16 F
                                            7/06 F   22/48 F   33/06 F   38/36 F   44/06 F   58/33 F
        RA.CMU         65   CPUTEXT        12/11     24/23     52/14     66/07
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        RA.MTR          1   CPUTEXT        20/34
        RA.ORG        100   CPUTEXT        15/28
        RCL=            0   EXTERNAL*       1/35 X   51/26     54/19     65/13     67/55
        RDC=          502   PROGRAM*       46/17 D   46/20 E
        RDW=          527   PROGRAM*       55/21 D   55/26 E
        RDX=          626   PROGRAM*       45/56     46/09     55/22 D
        RPV=          130   PROGRAM*       22/50 D   22/54 E
        RPV=CLN         0   EXTERNAL*       1/41 X   18/42 F   18/43     19/01 F   20/56 F
        RPV=FVT         0   EXTERNAL*       1/35 X   19/33 F   19/35
        RPV=LOL       100                  15/28 D   18/24 F   18/25     19/06 F   21/04 F
        RPV=MSG         0   EXTERNAL*       1/41 X   18/55 F   18/56
        RPV=RNA         0   EXTERNAL*       1/44 X   18/03 F   21/49 F   21/51
        RPV=URP         0   EXTERNAL*       1/41 X   19/11 F   19/12
        SBM=          411   PROGRAM*       32/04 D   32/07 E
        SFN           416   PROGRAM*       34/15 D   34/19 E   34/20
        SFN=          416   PROGRAM*       34/16 D   34/20 D   34/20 E
        SST           434   PROGRAM*       36/31 D   36/35 E
        SST=          434   PROGRAM*       36/32 D
        SYS=            0   EXTERNAL*       1/35 X   17/26     20/17 S   43/06
        TEST            0   FTX            15/30 F
        WNB=            0   EXTERNAL*       1/35 X    7/41     17/27     20/18 S   42/26     60/28
        WOD           437   PROGRAM*       38/38 D   38/42 E
        WOD=          437   PROGRAM*       38/39 D
        WTH=          666   PROGRAM*       58/35 D   58/38 E
        WTO=          721   PROGRAM*       60/47 D   60/50 E
        WTW=          743   PROGRAM*       68/18 D   68/23 E
        WTX=         1030   PROGRAM*       57/49     58/20     68/19 D   68/24 E
        ZTB           455   PROGRAM*       40/16 D   40/20 E   40/21
        ZTB=          455   PROGRAM*       40/17 D   40/21 D   40/21 E
        .OS             1   FTX            16/54 F   17/25 F   20/11 F   20/31 F   20/47 F   21/09 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCDD 
  
  
        CDD             3   PROGRAM*        3/05 L    3/25      3/26
        CDDA            7   PROGRAM*        3/06      3/15 L
        CDD1            0   PROGRAM*        2/50 L    3/01      3/13
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCDXB 
  
  
        DXB            22   PROGRAM*        5/53 L    6/20      6/21
        DXB1           12   PROGRAM*        5/10 L    5/24
  U     DXB1$                               5/28 F
        DXB2           14   PROGRAM*        5/18 L    6/12
        DXB3           20   PROGRAM*        5/30      5/32      5/34 L    6/06
  
  
  
  
                                                  SYMBOL QUALIFIER =  FA=SET
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    84
        SYMBOLIC REFERENCE TABLE.                                     FA=SET
  
        FA=SET         31   PROGRAM*        7/37 L    8/18     10/20
        SET2           34   PROGRAM*        7/40      7/46 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCMVE 
  
  
        MVEA           73   PROGRAM*       12/16 S   13/30 L
        MVEB           44   PROGRAM*       12/06 L   13/31     14/17     14/46     15/08 S   15/10
        MVEC           45   PROGRAM*       12/10 L   13/27     14/02
        MVED           52   PROGRAM*       12/13     12/20 L
        MVEE           72   PROGRAM*       13/26 L   13/27
        MVELL          25                  13/27 D   14/11     14/14     14/21     14/34
        MVE1           73   PROGRAM*       12/18     13/31 L
        MVE10         123   PROGRAM*       13/57     14/16     14/45     14/56 L
        MVE11          44   PROGRAM*       12/05 L   13/32
        MVE12          47   PROGRAM*       12/12     12/14 L
        MVE13          53   PROGRAM*       12/08     12/27 L
        MVE14          56   PROGRAM*       12/33     12/38 L
        MVE15          60   PROGRAM*       12/29     12/45 L
        MVE16          63   PROGRAM*       12/41     12/49     13/01 L
        MVE17          67   PROGRAM*       13/16 L   13/24
        MVE2           76   PROGRAM*       13/47     13/49 L
        MVE3          101   PROGRAM*       13/51     14/02 L
        MVE4          103   PROGRAM*       14/10 L   14/25
        MVE5          105   PROGRAM*       14/13     14/15 L
        MVE6          112   PROGRAM*       14/03     14/29 L
        MVE7          114   PROGRAM*       14/34 L   14/50
        MVE8          116   PROGRAM*       14/38     14/40 L
        MVE9          121   PROGRAM*       13/56     14/47 L
        MVE=           72   PROGRAM*       13/01     13/10     13/29 L   13/44     14/20     14/49     15/20
  
  
  
  
                                                  SYMBOL QUALIFIER =  CCOMRPV 
  
  
        FRA2          261   PROGRAM*       22/03 L   22/07     22/08     22/11     22/19
        FRA3          264   PROGRAM*       22/04     22/15 L
        FRA4          266   PROGRAM*       22/17     22/23 L
        FRA=          257   PROGRAM*       18/05     21/50 L   22/51
        LWARPV        271   PROGRAM*       16/55     22/43 D
        RPV           151   PROGRAM*       17/14 L
        RPVA          235   PROGRAM*       19/45     20/48 L
        RPVB          236   PROGRAM*       18/50 S   19/02     20/57 L
        RPVC          242   PROGRAM*       18/10 S   19/04     21/02 L
        RPVD          245   PROGRAM*       18/34     19/07     21/05 L
        RPVE          250   PROGRAM*       17/22 S   20/04     21/07 L
        RPVF          256   PROGRAM*       20/32     21/15 L
        RPV2          163   PROGRAM*       17/51     17/55 L
        RPV3          164   PROGRAM*       18/04     18/07 L
        RPV3A         165   PROGRAM*       18/07     18/10 L
        RPV4          212   PROGRAM*       19/13     19/17     19/19     19/22     19/28 L
        RPV5          213   PROGRAM*       19/37 L   19/54
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    85
        SYMBOLIC REFERENCE TABLE.                                     CCOMRPV 
  
        RPV6          221   PROGRAM*       19/40     19/50     19/53 L
        RPV7          222   PROGRAM*       19/39     19/55 L
        RPV=          130   PROGRAM*       16/53 L   22/50
        XJP           130   PROGRAM*       16/55 L   17/46
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCMNS 
  
  
        MNS           332   PROGRAM*       26/48     27/01 L   29/05     30/24
        MNSA          272   PROGRAM*       27/03     30/10 D
        MNSB          333   PROGRAM*       24/29 S   30/11 D
        MNSC          403   PROGRAM*       24/24     30/12 L
        MNSD          404   PROGRAM*       24/21     30/14 L
        MNSE          405   PROGRAM*       28/25     30/15 L
        MNSF          406   PROGRAM*       28/18 S   28/20     30/16 L
        MNS02         333   PROGRAM*       24/33     27/03 L   30/11
        MNS04         345   PROGRAM*       27/50 L   28/46
        MNS06         366   PROGRAM*       27/19     27/44     29/14 L   30/13
        MNS10         374   PROGRAM*       29/43 L   29/50
        MNS100        324   PROGRAM*       26/18     26/31 L
        MNS110        325   PROGRAM*       25/12     26/40 L
        MNS120        327   PROGRAM*       24/45     26/42     26/45 L   29/35     30/03
        MNS20         377   PROGRAM*       29/42     29/51 L
        MNS30         402   PROGRAM*       29/54     30/02 L
        MNS32         272   PROGRAM*       24/20 L   27/04     30/10
        MNS40         277   PROGRAM*       24/40 L   29/24
        MNS50         303   PROGRAM*       24/40     25/01 L
        MNS60         307   PROGRAM*       24/51     25/21 L
        MNS70         313   PROGRAM*       25/43 L   25/57
        MNS80         317   PROGRAM*       25/38     26/06 L
        MNS90         321   PROGRAM*       25/25     26/17 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCSBM 
  
  
        SBM2          407   PROGRAM*       31/32 L   31/35     31/47
        SBM=          411   PROGRAM*       31/37 L   32/04
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCSFN 
  
  
        SFN           416   PROGRAM*       33/48 L   34/15     34/16
        SFNA          423   PROGRAM*       33/50     34/06 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCSST 
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    86
        SYMBOLIC REFERENCE TABLE.                                     COMCSST 
  
        SST           434   PROGRAM*       36/18 L   36/31     36/32
        SST1          425   PROGRAM*       35/52 L   36/04     36/09
        SST2          426   PROGRAM*       35/55 L   36/16
        SST3          427   PROGRAM*       36/02 L   36/08
        SST4          432   PROGRAM*       35/54     36/12 L   36/23
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWOD 
  
  
        WOD           437   PROGRAM*       37/43 L   38/38     38/39
        WODA          451   PROGRAM*       37/49     38/27 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCZTB 
  
  
        ZTB           455   PROGRAM*       39/48 L   40/05     40/16     40/17
        ZTBA          462   PROGRAM*       39/49     40/07 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCIO 
  
  
        CIO2          464   PROGRAM*       42/26 L   43/12
        CIO3          465   PROGRAM*       42/27 L   43/11
        CIO4          471   PROGRAM*       42/38     42/45 L
        CIO5          472   PROGRAM*       42/45     42/48 L
        CIO=          474   PROGRAM*       42/43     43/08 L   43/25     43/34
  U     ERP1$                              42/20 F   42/29 F   42/51 F
  U     ERP$                               42/15 F   42/28 F   42/50 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCRDC 
  
  
        RDC1          505   PROGRAM*       45/17     45/19 L
        RDC1A         506   PROGRAM*       45/19     45/21 L
        RDC2          507   PROGRAM*       45/09     45/28 L
        RDC3          510   PROGRAM*       45/35 L   45/42     45/45     45/46
        RDC4          512   PROGRAM*       45/41 L   46/03
        RDC5          515   PROGRAM*       45/41     45/52 L
        RDC6          517   PROGRAM*       45/39     46/01 L
        RDC7          520   PROGRAM*       45/52     46/05 L
        RDC=          502   PROGRAM*       45/11 L   45/12     46/17
  
  
  
  
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    87
        SYMBOLIC REFERENCE TABLE.                                     COMCRDW 
  
                                                  SYMBOL QUALIFIER =  COMCRDW 
  
  
        LCB1          643   PROGRAM*       54/20 L   54/26
        LCB2          644   PROGRAM*       54/18     54/24 L
        LCB3          651   PROGRAM*       54/29     54/39 L
        LCB4          656   PROGRAM*       54/46     54/51     54/54 L
        LCB5          657   PROGRAM*       54/56 L   55/09
        LCB6          660   PROGRAM*       54/53     55/03 L
        LCB7          663   PROGRAM*       54/55     55/08 L
        LCB=          641   PROGRAM*       54/14 L   55/23
        RDWA          535   PROGRAM*       48/49 L   52/15
        RDWB          620   PROGRAM*       48/50     51/49 S   51/50     52/07 L   52/10
        RDWC          625   PROGRAM*       52/17     52/23 L
        RDW1          531   PROGRAM*       48/31     48/35 L   50/52     51/06     51/27     52/21
        RDW10         565   PROGRAM*       50/39 L   51/07
        RDW11         573   PROGRAM*       48/18     50/57 L
        RDW12         602   PROGRAM*       51/14     51/17     51/19 L
        RDW13         604   PROGRAM*       51/03     51/26 L
        RDW14         606   PROGRAM*       51/31 L   52/08
        RDW15         617   PROGRAM*       51/32     51/56 L
        RDW16         620   PROGRAM*       48/51     52/10 D
        RDW17         623   PROGRAM*       52/16     52/18 L
        RDW18         522   PROGRAM*       48/18 L   52/07     52/23
        RDW19         523   PROGRAM*       48/21 L   49/22     51/52
        RDW2          534   PROGRAM*       48/44     48/46 L
        RDW20         525   PROGRAM*       48/25     48/28 L   50/23     50/25     50/35     50/36     50/45
        RDW21         526   PROGRAM*       48/29 L   48/34
        RDW3          535   PROGRAM*       48/47     48/50 L
        RDW4          536   PROGRAM*       49/04 L   52/01
        RDW5          540   PROGRAM*       49/14 L   49/18
        RDW6          542   PROGRAM*       49/12     49/22 L
        RDW7          544   PROGRAM*       49/32 L   49/57
        RDW8          554   PROGRAM*       50/08 L   51/54
        RDW9          557   PROGRAM*       50/15     50/23 L
        RDW=          527   PROGRAM*       48/33 L   50/50     50/53     51/22     55/21
        RDX1          640   PROGRAM*       53/07     53/09     53/21     53/27     53/28     53/34 L
  U     RDX$                               50/17 F   53/06 F
        RDX=          626   PROGRAM*       53/01 L   55/22
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTH 
  
  
        WTHA          715   PROGRAM*       57/14     58/25 L
        WTHB          716   PROGRAM*       57/50     58/26 L
        WTHC          717   PROGRAM*       57/56     58/27 L
        WTH1          671   PROGRAM*       57/17 L   57/21
        WTH2          673   PROGRAM*       57/20     57/22 L
        WTH3          674   PROGRAM*       57/04     57/28 L
        WTH4          676   PROGRAM*       57/36 L   57/45     57/55     57/57     58/07
        WTH5          677   PROGRAM*       57/38 L   58/23
        WTH6          706   PROGRAM*       57/52     58/04 L
        WTH7          710   PROGRAM*       58/09 L   58/17
        WTH8          713   PROGRAM*       58/15     58/18 L
1       UTILITY - COMMON UTILITY ROUTINES.                            COMPASS 3.7-871.     24/05/02. 13.13.41.      PAGE    88
        SYMBOLIC REFERENCE TABLE.                                     COMCWTH 
  
        WTH9          714   PROGRAM*       57/37     58/22 L
        WTH=          666   PROGRAM*       57/06 L   57/07     57/08     58/35
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTO 
  
  
  U     WRIF$                              60/32 F
        WTO1          720   PROGRAM*       59/53 L   60/08     60/14     60/18
        WTO2          722   PROGRAM*       60/01 L   60/31
        WTO3          727   PROGRAM*       60/10     60/22 L
        WTO4          732   PROGRAM*       60/29 L   60/39
        WTO5          734   PROGRAM*       60/26     60/27     60/38 L
        WTO=          721   PROGRAM*       59/57 L   60/47
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCWTW 
  
  
        DCB1         1047   PROGRAM*       67/52     67/53     68/08 L
        DCB=         1043   PROGRAM*       67/48 L   68/20
  U     WRIF$                              64/53 F   67/12 F   68/01 F
        WTWA          753   PROGRAM*       63/09 L   66/08
        WTWB         1021   PROGRAM*       65/45 L   66/10
        WTWC         1023   PROGRAM*       63/10     65/37 S   65/38     65/57 L   66/03
        WTW1          744   PROGRAM*       62/32     62/41 L   65/04     65/14     66/14
        WTW10         774   PROGRAM*       64/29     64/37 L
        WTW11        1002   PROGRAM*       62/38     64/41     65/02 L   65/11     65/12
        WTW12        1004   PROGRAM*       64/38     64/49     64/51     65/04 L
        WTW13        1005   PROGRAM*       63/02     65/09 L
        WTW14        1010   PROGRAM*       65/18 L   65/57
        WTW15        1021   PROGRAM*       65/19     65/46 L
        WTW16        1023   PROGRAM*       63/11     66/03 D
        WTW17        1026   PROGRAM*       66/09     66/11 L
        WTW18         736   PROGRAM*       62/24 L   63/35     65/40
        WTW19         740   PROGRAM*       62/29     62/31 L
        WTW2          750   PROGRAM*       62/53     62/55 L
        WTW3          751   PROGRAM*       62/55     62/57 L
        WTW4          753   PROGRAM*       63/04     63/10 L
        WTW5          754   PROGRAM*       63/21 L   65/50
        WTW6          755   PROGRAM*       63/27 L   63/31
        WTW7          757   PROGRAM*       63/23     63/35 L
        WTW8          761   PROGRAM*       63/45 L   64/13
        WTW9          771   PROGRAM*       64/22 L   65/43
        WTW=          743   PROGRAM*       62/35     62/40 L   62/46     65/03     65/05     68/18
        WTX0         1040   PROGRAM*       66/52     67/19 L
        WTX1         1042   PROGRAM*       66/47     67/09     67/11     67/22 L
  U     WTX$                               64/31 F   66/46 F
        WTX=         1030   PROGRAM*       66/42 L   68/19
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/02. 13.13.44.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      171              IDENT  LISTLNK
                        171                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       165 
                                        LITERALS* LOCAL         165         4 
  
  
                                        ENTRY POINTS. 
  
                                        B=LISTL          0+           LUS              0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        TIME1     CPTIM     COMSIZ    PIA       T.BLKS    LCNT      WOF 
                                        TIMER     BLNKCOM   CO.PS     SUM.LBT   WO.LOA    CDD 
  
  
  
  
                                                  IDENT  LISTLNK                                                 FC5A150    37
                                         LISTLNK  SECT   (MISC OUTPUT ROUTINES)                                  FC5A150    38
  
                                        **        LISTLNK EXISTS TO SHORTEN THE (0,0) OVERLAY, I.E., IT          FC5A150    39
                                        *         RESIDES ON THE (1,0) AND THE (2,0) AFTER *UTILITY*.            FC5A150    40
                                                                                                                 FC5A150    41
                                                                                                                 FC5A150    42
                                                                                                                 FC5A150    43
                                        *         IN FTN                                                         FC5A150    44
                                                  EXT    TIME1,TIMER,CPTIM                                       FC5A150    45
                                                                                                                 FC5A150    46
                                        *         IN PUC                                                         FC5A150    47
                                                  EXT    BLNKCOM,COMSIZ,CO.PS,PIA,SUM.LBT,T.BLKS,WO.LOA,LCNT     FC5A150    48
                                                                                                                 FC5A150    49
                                        *         IN UTILITY                                                     FC5A150    50
                                                  EXT    CDD                                                     FC5A150    51
  
  
  
  
                                        **        OCTAL - CONVERT AND FORMAT OCTAL STATISTIC.                    FC5A150    53
                                        *                                                                        FC5A150    54
                                        *         CONVERT NUMBER STORED AT *FROM* TO OCTAL DPC,FORMAT THE        FC5A150    55
                                        *         RESULT FOR PRINTING, STORE IT AT *TO*.                         FC5A150    56
                                        *                                                                        FC5A150    57
                                        *         OCTAL  FROM,TO                                                 FC5A150    58
                                        *                                                                        FC5A150    59
                                        *         USES   A1-2,6,  X0-2,6-7,  B7.                                 FC5A150    60
                                        *         CALLS  PIA                                                     FC5A150    61
                                                                                                                 FC5A150    62
                                                                                                                 FC5A150    63
                                         OCTAL    MACRO  FROM,TO                                                 FC5A150    64
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/02. 13.13.44.      PAGE     2
                                                                      OCTAL 
  
                                                  =A1    FROM        FETCH NUMBER                                FC5A150    65
                                                  PIA                CONVERT IT                                  FC5A150    66
                                                  =X0    1R=&1R                                                  FC5A150    68
                                                  BX6    X0-X6       CHANGE LAST BLANK TO =                      FC5A150    69
                                                  SA6    TO                                                      FC5A150    70
                                         OCTAL    ENDM                                                           FC5A150    71
  
  
  
  
                                        **        DECML - CONVERT AND FORMAT DECIMAL STATISTIC.                  FC5A150    73
                                        *                                                                        FC5A150    74
                                        *         CONVERT NUMBER STORED AT *FROM* TO DECML DPC, FORMAT           FC5A150    75
                                        *         RESULT FOR PRINTING, STORE IT AT *TO*.                         FC5A150    76
                                        *                                                                        FC5A150    77
                                        *         DECML  FROM,TO                                                 FC5A150    78
                                        *                                                                        FC5A150    79
                                        *         USES   X1,X4,X6,A1                                             FC5A150    80
                                        *         CALLS  CDD                                                     FC5A150    81
                                                                                                                 FC5A150    82
                                                                                                                 FC5A150    83
                                         DECML    MACRO  FROM,TO                                                 FC5A150    84
                                                  =A1    FROM                                                    FC5A150    85
                                                  CALL   CDD                                                     FC5A150    86
                                                  LX4    -2*CHAR                                                 FC5A150    87
                                                  BX6    X4                                                      FC5A150    88
                                                  SA6    TO                                                      FC5A150    89
                                         DECML    ENDM                                                           FC5A150    90
  
  
  
  
                                        **        LUS -  LIST UNIT STATISTICS.                                   FC5A150    92
                                        *                                                                        FC5A150    93
                                        *         ENTRY  (X1) = MAX CORE REQUIRED BY CURRENT PROGRAM UNIT.       FC5A150    94
                                        *                                                                        FC5A150    95
                                        *         USES   A0-4,A6-7,  X0-7,  B1-2,B6.                             FC5A150    96
                                        *         CALLS  PLINE,CDD,PIA,CPTIM,TIMER,OCTAL,DECML                   FC5A150    97
                                                                                                                 FC5A150    98
                                                                                                                 FC5A150    99
             0  0400400000 +             LUS      SUBR   =           ENTRY/EXIT...                               FC5A150   100
             1  5120000000 X                      SA2    WO.LOA                                                  FC5A150   101
                          0302000000 +            ZR     X2,EXIT.    IF LO=-A                                    FC5A150   102
             2  43700                             MX7    0                                                       FC5A150   103
                     5170000164 +                 SA7    LUSTL                                                   FC5A150   104
             3  5170000163 +                      SA7    LUSTS       INITIALIZE COMMON LENGTH STORAGE CELLS      FC5A150   105
                          10611                   BX6    X1                                                      FC5A150   106
             4  5160000152 +                      SA6    LUSD+3      SAVE X1                                     FC5A150   107
                          6170000007              SB7    7           BASE LENGTH OF STATISTICS                   FC50492     7
                                                                                                                 FC50492     8
                                         .TEST    IFEQ   TEST,ON     ACCOUNT FOR TEST MODE MESSAGES              FC50492     9
                                                  SB7    B7+B1       NR OF ALLOCS                                FC50492    10
                                                  SA1    MOVES                                                   FC50492    11
                                                  ZR     X1,LUS02    IF NO TABLE CRASHES                         FC50492    12
                                                  SB7    B7+B1       NR OF TABLE CRASHES                         FC50492    13
                                                                                                                 FC50492    14
                                         LUS02    SB7    B7+B1       LARGEST PARSED FILE LENGTH                  FC50492    15
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/02. 13.13.44.      PAGE     3
                                                                      LUS 
  
                                         .TEST    ENDIF                                                          FC50492    16
                                                                                                                 FC50492    17
             5  5110000000 X                      SA1    BLNKCOM                                                 FC50492    18
                          43200                   MX2    0           SCM BLANK COMMON LENGTH                     FC50492    19
                               43300              MX3    0           LCM BLANK COMMON LENGTH                     FC50492    20
             6  0301000014 +                      ZR     X1,LUS06    IF NO BLANK COMMON                          FC50492    21
                          7211777775              SX1    X1-2                                                    FC50492    22
             7  5120000000 X                      SA2    T.BLKS                                                  FC50492    23
                          7222000002              SX2    X2+Z=BLKS   FWA OF COMMON BLOCKS                        FC50492    24
            10  36321                             IX3    X2+X1       ADDRESS OF BLANK COMMON                     FC50492    25
                     5243000001                   SA4    X3+CB.W     FETCH WORD B                                FC50492    26
                               10544              BX5    X4          SAVE COPY                                   FC50492    27
            11  43044                             MX0    -CB.BLENL                                               FC50492    28
                                                  LX4    -CB.BLENP                                               FC50492    29
                     15240                        BX2    -X0*X4      ISOLATE SCM BLOCK LENGTH                    FC50492    30
                          43300                   MX3    0                                                       FC50492    31
                                                  HX5    CB.LCM                                                  FC50492    32
            12  0325000013 +                      PL     X5,LUS04    IF SCM                                      FC50492    33
                          10322                   BX3    X2          SET LCM LENGTH                              FC50492    34
                               43200              MX2    0           SET SCM LENGTH                              FC50492    35
                                                                                                                 FC50492    36
            13  66771                    LUS04    SB7    B7+B1       BLANK COMMON MESSAGE                        FC50492    37
                                                                                                                 FC50492    38
            14  5110000000 X             LUS06    SA1    COMSIZ                                                  FC50492    39
                          37112                   IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                FC50492    40
            15  0301000016 +                      ZR     X1,LUS08    IF NO LABELLED SCM                          FC50492    41
                          66771                   SB7    B7+B1       SCM LABELLED COMMON MSG                     FC50492    42
                                                                                                                 FC50492    43
            16  5111000000 X             LUS08    SA1    COMSIZ+B1                                               FC50492    44
                          37113                   IX1    X1-X3       SUBTRACT BLANK COMMON LENGTH                FC50492    45
            17  0301000020 +                      ZR     X1,LUS09    IF NO LABELLED LCM                          FC50492    46
                          66771                   SB7    B7+B1       LCM LABELLED COMMON MSG                     FC50492    47
                                                                                                                 FC50492    48
            20  5110000000 X             LUS09    SA1    LCNT                                                    FC50492    49
                          5120000000 X            SA2    CO.PS                                                   FC5A150   109
            21  37112                             IX1    X1-X2                                                   FC5A150   110
                     63217                        SB2    X1+B7       ADD NUMBER OF LINES REQUIRED                FC50492    50
                          0720000023 +            MI     B2,LUS10    IF SUFFICIENT ROOM                          FC5A150   112
            22  73721                             SX7    X2+B1                                                   FC5A150   113
                     54710                        SA7    A1                                                      FC5A150   114
            23  7110000161 +             LUS10    PLINE  LUSF,2,2    PRINT HEADING                               FC5A150   115
            25  6120000165 +                      SB2    =10H                                                    FC5A150   116
                          76120                   PLINE  B2,1        PRINT BLANK LINE                            FC5A150   117
                                         .TEST    IFEQ   TEST,ON     TEST MODE MESSAGES                          FC5A150   118
                                                  SA1    ALC=CNT     (X1) = NR OF *ALLOC*S                       FC5A150   119
                                                  CALL   CDD         CONVERT BINARY TO DECIMAL DPC               FC5A150   120
                                                  LX4    -2*CHAR                                                 FC5A150   121
                                                  BX6    X4                                                      FC5A150   122
                                                  SA6    A1                                                      FC5A150   123
                                                  PLINE  LUSAL,5     PRINT NR OF ALLOCS                          FC5A150   124
                                                                                                                 FC5A150   125
                                                  SA1    MOVES                                                   FC5A150   126
                                                  ZR     X1,LUS20    IF NO TABLE CRASHES                         FC5A150   127
                                                  CALL   CDD                                                     FC5A150   128
                                                  LX4    -2*CHAR     FORMAT PROPERLY                             FC5A150   129
                                                  BX6    X4                                                      FC5A150   130
                                                  SA6    A1                                                      FC5A150   131
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/02. 13.13.44.      PAGE     4
                                                                      LUS 
  
                                                  PLINE  LUSTC,5      PRINT TABLE CRASHES                        FC5A150   132
                                         LUS20    DECML  PARSLEN,PARSLEN+B1   CONVERT PARSLEN TO DECML DPC       FC5A150   133
                                                  OCTAL  PARSLEN,PARSLEN   CONVERT IT TO  OCTAL DPC              FC5A150   134
                                                  PLINE  LUSPF,5      OUTPUT THE MESSAGE                         FC5A150   135
                                         .TEST    ENDIF                                                          FC5A150   136
                                                                                                                 FC5A150   137
                                        **        PIECE TOGETHER AND OUTPUT PROGRAM UNIT LENGTH MESSAGE          FC5A150   138
                                                                                                                 FC5A150   139
            27  5110000000 X                      OCTAL  SUM.LBT,LUSA+3   FORMAT AND PLACE OCTAL CONVERSION      FC5A150   140
            31  5110000000 X                      DECML SUM.LBT,LUSA+4   SAME FOR DECML CONVERSION               FC5A150   141
            33  7110000116 +                      PLINE  LUSA,5                                                  FC5A150   142
                                                                                                                 FC5A150   143
                                        **        PIECE TOGETHER AND OUTPUT BLANK COMMON LENGTH MESSAGE          FC5A150   144
                                                                                                                 FC5A150   145
            35  5110000000 X                      SA1    BLNKCOM                                                 FC5A150   146
                          0301000054 +            ZR     X1,LUS35    IF NO BLANK COMMON                          FC5A150   147
            36  7211777775                        SX1    X1-2                                                    FC5A150   148
                          5120000000 X            SA2    T.BLKS                                                  FC5A150   149
            37  7222000002                        SX2    X2+Z=BLKS   FWA OF COMMON BLOCKS                        FC5A150   150
                          36321                   IX3    X2+X1       ADDRESS OF BLANK COMMON                     FC5A150   151
            40  5243000001                        SA4    X3+CB.W     FETCH WORD B                                FC5A150   152
                          10544                   BX5    X4          KEEP EXTRA COPY                             FC5A150   153
                               43044              MX0    -CB.BLENL                                               FC5A150   154
                                                  LX4    -CB.BLENP                                               FC5A150   155
            41  15140                             BX1    -X0*X4      ISOLATE BLOCK LENGTH                        FC5A150   156
                     10611                        BX6    X1                                                      FC5A150   157
                          5160000163 +            SA6    LUSTS      SAVE COPY FOR LATER USE                      FC5A150   158
                                                  HX5    CB.LCM                                                  FC5A150   159
            42  6150000123 +                      SB5    LUSB                                                    FC5A150   160
                          6165000003              SB6    B5+3        ASSUME BLOCK IS CM/SCM                      FC5A150   161
            43  0325000046 +                      PL     X5,LUS30    IF ASSUMPTION CORRECT...                    FC5A150   162
                          6150000130 +            SB5    LUSBB                                                   FC5A150   163
            44  6165000003                        SB6    B5+3        IF NOT                                      FC5A150   164
                          5160000164 +            SA6    LUSTL                                                   FC5A150   165
            45  43600                             MX6    0                                                       FC5A150   166
                     5160000163 +                 SA6    LUSTS                                                   FC5A150   167
            46  10311                    LUS30    BX3    X1          SAVE COPY OF LENGTH                         FC5A150   168
                     0100000000 X                 OCTAL  A1,B6                                                   FC5A150   169
                               10133              BX1    X3                                                      FC5A150   170
            50  0100000000 X                      DECML  A1,B6+B1                                                FC5A150   171
                               76150              PLINE  B5,5      OUTPUT MESSAGE                                FC5A150   172
                                                                                                                 FC5A150   173
                                        **        PIECE TOGETHER AND OUTPUT LABELED COMMON LENGTH MESSAGE        FC5A150   174
                                                                                                                 FC5A150   175
            54  5110000000 X             LUS35    SA1    COMSIZ                                                  FC5A150   176
                          5120000163 +            SA2    LUSTS                                                   FC5A150   177
            55  37112                             IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                FC5A150   178
                     0301000064 +                 ZR     X1,LUS40    IF NO SCM COMMON                            FC5A150   179
                               10311              BX3    X1          PIA WONT DESTROY THIS REGISTER              FC5A150   180
            56  0100000000 X                      OCTAL  A1,LUSC+3                                               FC5A150   181
            60  10133                             BX1    X3                                                      FC5A150   182
                     0100000000 X                 DECML  A1,LUSC+4                                               FC5A150   183
            62  7110000135 +                      PLINE  LUSC,5                                                  FC5A150   184
            64  5111000000 X             LUS40    SA1    COMSIZ+B1                                               FC5A150   185
                          5120000164 +            SA2    LUSTL                                                   FC5A150   186
            65  37112                             IX1    X1-X2       SUBTRACT BLANK COMMON LENGTH                FC5A150   187
                     0301000074 +                 ZR     X1,LUS50    IF NO LCM COMMON                            FC5A150   188
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/02. 13.13.44.      PAGE     5
                                                                      LUS 
  
                               10311              BX3    X1          PIA WONT DESTROY THIS REG                   FC5A150   189
            66  0100000000 X                      OCTAL  A1,LUSCC+3                                              FC5A150   190
            70  10133                             BX1    X3                                                      FC5A150   191
                     0100000000 X                 DECML  A1,LUSCC+4                                              FC5A150   192
            72  7110000142 +                      PLINE  LUSCC,5                                                 FC5A150   193
                                                                                                                 FC5A150   194
                                        **        PIECE TOGETHER AND OUTPUT STORAGE USED MESSAGE                 FC5A150   195
                                                                                                                 FC5A150   196
            74  5110000152 +             LUS50    DECML  LUSD+3,LUSD+4                                           FC5A150   197
            76  5110000152 +                      OCTAL  LUSD+3,LUSD+3                                           FC5A150   198
           100  7110000147 +                      PLINE  LUSD,5                                                  FC5A150   199
                                                                                                                 FC5A150   200
                                        **        PIECE TOGETHER AND OUTPUT CP TIME MESSAGE                      FC5A150   201
                                                                                                                 FC5A150   202
           102  5120000000 X                      SA2    TIME1       PROGRAM UNIT START TIME                     FC5A150   203
                          0100000000 X            CALL   CPTIM       ELAPSED TIME F10.3 FORMAT IN X6             FC5A150   204
           103  10766                             BX7    X6                                                      FC5A150   205
                     0100000000 X                 CALL   TIMER                                                   FC5A150   206
           104  5160000000 X                      SA6    TIME1       RESET START TIME                            FC5A150   207
                          10677                   BX6    X7                                                      FC5A150   208
                               43700              MX7    0                                                       FC5A150   209
           105  5170000156 +                      SA7    LUSE+2                                                  FC5A150   210
                          54771                   SA7    A7+B1                                                   FC5A150   211
                               54771              SA7    A7+B1       ERASE PREVIOUS MESSAGE                      FC5A150   212
           106  43022                             MX0    3*CHAR                                                  FC5A150   213
                     11706                        BX7    X0*X6       GRAB 3 LEFTMOST CHARACTERS                  FC5A150   214
                          20722                   LX7    3*CHAR                                                  FC5A150   215
           107  5110000166 +                      SA1    =7L                                                     FC5A150   216
                          12771                   BX7    X7+X1                                                   FC5A150   217
           110  5170000156 +                      SA7    LUSE+2      STORE THEM IN MESSAGE                       FC5A150   218
                          15660                   BX6    -X0*X6      GRAB LAST 7 CHARACTERS                      FC5A150   219
                               20622              LX6    3*CHAR                                                  FC5A150   220
           111  5110000167 +                      SA1    =3R SE                                                  FC5A150   221
                          12661                   BX6    X6+X1                                                   FC5A150   222
                               54671              SA6    A7+B1       STORE THEM IN MESSAGE                       FC5A150   223
           112  5110000170 +                      SA1    =10HCONDS                                               FC5A150   224
                          10611                   BX6    X1                                                      FC5A150   225
                               54661              SA6    A6+B1       COMPLETE THE MESSAGE                        FC5A150   226
           113  7110000154 +                      PLINE  LUSE,5      OUTPUT IT                                   FC5A150   227
           115  0400000000 +                      EQ     EXIT.       EXIT...                                     FC5A150   228
                                                                                                                 FC5A150   229
                                                                                                                 FC5A150   230
                                        **        MESSAGES AND CONSTANTS NEEDED TO PRODUCE STATISTICS OUTPUT     FC5A150   231
                                                                                                                 FC5A150   232
                                                                                                                 FC5A150   233
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                FC5A150   234
                                         LUSAL    DIS    4,   NR OF ALLOCS                                       FC5A150   235
                                         ALC=CNT  CONENT 0                                                       FC5A150   236
                                         LUSTC    DIS    4,   TABLE CRASHES                                      FC5A150   237
                                         MOVES    CONENT 0                                                       FC5A150   238
                                         LUSPF    DIS    3,   LARGEST PARSED FILE LENGTH                         FC5A150   239
                                         PARSLEN  CONENT 0                                                       FC5A150   240
                                                  CON    0                                                       FC5A150   241
                                         .TEST    ENDIF                                                          FC5A150   242
                                                                                                                 FC5A150   243
           116  55555520221707220115     LUSA     DIS    3,   PROGRAM-UNIT LENGTH                                FC5A150   244
           121                     2              BSS    2                                                       FC5A231    33
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/02. 13.13.44.      PAGE     6
                                                                      LUS 
  
                                                                                                                 FC5A150   246
           123  55555503155502140116     LUSB     DIS    3,   "SCM" BLANK COMMON LENGTH                          FC5A150   247
           126                     2              BSS    2                                                       FC5A150   248
           130  55555505032355021401     LUSBB    DIS    3,   "LCM" BLANK COMMON LENGTH                          FC5A150   249
           133                     2              BSS    2                                                       FC5A150   250
                                                                                                                 FC5A150   251
           135  55555503155514010205     LUSC     DIS    3,   "SCM" LABELLED COMMON LENGTH                       FC5A150   252
           140                     2              BSS    2                                                       FC5A150   253
           142  55555505032355140102     LUSCC    DIS    3,   "LCM" LABELLED COMMON LENGTH                       FC5A150   254
           145                     2              BSS    2                                                       FC5A150   255
                                                                                                                 FC5A150   256
           147  55555503155523241722     LUSD     DIS    3,   "SCM" STORAGE USED                                 FC5A150   257
           152                     2              BSS    2                                                       FC5A150   258
                                                                                                                 FC5A150   259
           154  55555503171520111405     LUSE     DIS    2,   COMPILE TIME                                       FC5A150   260
           156                     3              BSS    3                                                       FC5A150   261
                                                                                                                 FC5A150   262
           161  55464623240124112324     LUSF     DIS    2, --STATISTICS--                                       FC5A150   263
                                                                                                                 FC5A150   264
                                         .TEST    IFEQ   TEST,ON                                                 FC5A150   265
                                         NUMLINES EQU    12                                                      FC5A150   266
                                         .TEST    ELSE                                                           FC5A150   267
                                  12     NUMLINES EQU    10                                                      FC5A150   268
                                         .TEST    ENDIF                                                          FC5A150   269
           163                     1     LUSTS    BSSZ   1           TEMPORARY FOR LENGTH SCM BLANK COMMON       FC5A150   270
           164                     1     LUSTL    BSSZ   1           TEMPORARY FOR LENGTH LCM BLANK COMMON       FC5A150   271
           171                                    END                                                            FC5A150   272
  
                             73600B CM  STORAGE USED              767 STATEMENTS     1371 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.959 SECONDS         126 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BLNKCOM         0   EXTERNAL*       1/38 X    3/03      4/15
        B1=1            0 
        CB.BLENL       30   FTX             3/13      4/23
        CB.W            1   FTX             3/11      4/21
        CDD             0   EXTERNAL*       1/41 X    4/10      4/40      4/52      5/04      5/09
        CHAR            6   FTX             4/10      4/40      4/52      5/04      5/09      5/25      5/27      5/32
        COMSIZ          0   EXTERNAL*       1/38 X    3/24      3/29      4/45      4/54
        CO.PS           0   EXTERNAL*       1/38 X    3/35
        CPTIM           0   EXTERNAL*       1/35 X    5/16
        LCNT            0   EXTERNAL*       1/38 X    3/34
        LUS             0   PROGRAM*        2/41 L    2/41 E
        LUSA          116   PROGRAM*        4/09 S    4/10 S    4/11      5/56 L
        LUSB          123   PROGRAM*        4/29      6/02 L
        LUSBB         130   PROGRAM*        4/32      6/04 L
        LUSC          135   PROGRAM*        4/50 S    4/52 S    4/53      6/07 L
        LUSCC         142   PROGRAM*        5/02 S    5/04 S    5/05      6/09 L
        LUSD          147   PROGRAM*        2/48 S    5/09      5/09 S    5/10      5/10 S    5/11      6/12 L
        LUSE          154   PROGRAM*        5/22 S    5/30 S    5/39      6/15 L
        LUSF          161   PROGRAM*        3/41      6/18 L
        LUSTL         164   PROGRAM*        2/45 S    4/34 S    4/55      6/26 L
        LUSTS         163   PROGRAM*        2/46 S    4/27 S    4/36 S    4/46      6/25 L
        LUS04          13   PROGRAM*        3/18      3/22 L
1       LISTLNK - MISC OUTPUT ROUTINES                                COMPASS 3.7-871.     24/05/02. 13.13.44.      PAGE     7
        SYMBOLIC REFERENCE TABLE. 
  
        LUS06          14   PROGRAM*        3/06      3/24 L
        LUS08          16   PROGRAM*        3/26      3/29 L
        LUS09          20   PROGRAM*        3/31      3/34 L
        LUS10          23   PROGRAM*        3/38      3/41 L
        LUS30          46   PROGRAM*        4/31      4/37 L
        LUS35          54   PROGRAM*        4/16      4/45 L
        LUS40          64   PROGRAM*        4/48      4/54 L
        LUS50          74   PROGRAM*        4/57      5/09 L
        NUMLINES       12                   6/23 D
        PIA             0   EXTERNAL*       1/38 X    4/09      4/38      4/50      5/02      5/10
        SUM.LBT         0   EXTERNAL*       1/38 X    4/09      4/09      4/10
        TEST            0   FTX             2/51 F    3/44 F    5/46 F    6/20 F
        TIMER           0   EXTERNAL*       1/35 X    5/18
        TIME1           0   EXTERNAL*       1/35 X    5/15      5/19 S
        T.BLKS          0   EXTERNAL*       1/38 X    3/08      4/18
        WOF             0   EXTERNAL*       3/41      3/43      4/11      4/41      4/53      5/05      5/11      5/39
        WO.LOA          0   EXTERNAL*       1/38 X    2/42
        Z=BLKS          2   FTX             3/09      4/19
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1431              IDENT  PUC
                       1431                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1407 
                                        LITERALS* LOCAL        1407        22 
  
  
                                        ENTRY POINTS. 
  
                                        B=PUC            0+           T=C$IF          64+           N$VD           277+ 
                                        L=TABLE        632            L.P2USE         65+           O.STITL        300+ 
                                        N.TABLE         47            T=CLW           65+           PU.MFL         301+ 
                                        ORIGINS          0+           L=CLW           65+           HO$PMLS        301+ 
                                        BASES            0+           T=CAC           66+           PASS           302+ 
                                        O.P2NUL          0+           L=CAC           66+           PWBUF          303+ 
                                        T.TB             0+           T=APL           67+           WOF=ERR        320+ 
                                        T.LGOB           0+           L=APL           67+           REFIO          321+ 
                                        T.ARG            1+           T=IOA           70+           RPV=CLN        251+ 
                                        T.PTXTR          1+           L=IOA           70+           RPV=MSG        221+ 
                                        T.STF            2+           T=API           71+           RPV=URP        322+ 
                                        T.EQUS           2+           L=API           71+           HO$RDR         322+ 
                                        T.LINK           2+           T=IOI           72+           SAVE           323+ 
                                        T.COMM           3+           L=IOI           72+           THRESH         324+ 
                                        T.BLST           4+           T=GL            73+           USAVE          325+ 
                                        T.FPO            3+           L=GL            73+           L.TABS         326+ 
                                        T.DVV            3+           T=ASG           74+           SCR            327+ 
                                        T.SLARG          3+           L=ASG           74+           WO.C$          341+ 
                                        T.IOARG          3+           T=CON           75+           WO.CS          341+ 
                                        T.DATI           5+           L=CON           75+           WO.DOLG        342+ 
                                        T.OUS            5+           T=CUT           76+           WO.DOOT        343+ 
                                        T.SCR            5+           L=CUT           76+           WO.LOA         344+ 
                                        T.PTXT           5+           T=SYM           77+           WO.LOM         345+ 
                                        T.DATL           6+           L=SYM           77+           WO.LOO         346+ 
                                        T.EOT            6+           T=BLKS         100+           WO.LOR         347+ 
                                        T.FILL           6+           L=BLKS         100+           WO.LOS         350+ 
                                        T.ILI            6+           T=NLST         101+           WO.QC          351+ 
                                        T.SAP            7+           L=NLST         101+           WO.LCM         352+ 
                                        T.DATS           7+           T=DIM          102+           CONONE         353+ 
                                        T.IOLC           7+           L=DIM          102+           CONZER         354+ 
                                        T.PAR           10+           T=ENTP         103+           CONZERI        355+ 
                                        T.DAR           10+           L=ENTP         103+           VTRUE          356+ 
                                        T.XFIL          10+           T=FPI          104+           VFALSE         357+ 
                                        T.PCS           11+           L=FPI          104+           F.SORD         360+ 
                                        T.STMT          12+           T=VDI          105+           S=AEXIT        360+ 
                                        T.CLWB          12+           L=VDI          105+           S=BU           361+ 
                                        T.SUB           13+           T=LA            76+           S=BUFIN        362+ 
                                        T.VDIM          14+           L.P2SAV        106+           S=BUF          363+ 
                                        T.SUB0          14+           T=REF          106+           S=CES          364+ 
                                        T.C$IF          15+           T=LCA          107+           S=CL           365+ 
                                        O.P2USE         16+           T=ECT          110+           S=CON          366+ 
                                        T.CLW           16+           T=ENT          111+           S=CP           367+ 
                                        O=CLW           16+           T=LNT          112+           S=CPL          370+ 
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        T.CAC           17+           T=LCC          113+           S=CT           371+ 
                                        O=CAC           17+           T=FMT          114+           S=ENTRY        372+ 
                                        T.APL           20+           T=END          115+           S=ERR          373+ 
                                        O=APL           20+           RATES          116+           S=EXIT         374+ 
                                        T.IOA           21+           TV=DECL        165+           S=FAR          375+ 
                                        O=IOA           21+           TV=EXU         166+           S=FAS          376+ 
                                        T.API           22+           TV=END         167+           S=FID          377+ 
                                        O=API           22+           TV=CUR         170+           S=FMC          400+ 
                                        T.IOI           23+           F.LBT          171+           S=FVS          402+ 
                                        O=IOI           23+           BN=STRT          0            S=FILES        403+ 
                                        T.GL            24+           BN=CODE          1            S=GPL          404+ 
                                        O=GL            24+           BN=CON           2            S=LA           405+ 
                                        T.ASG           25+           BN=FMT           3            S=LC           406+ 
                                        O=ASG           25+           BN=TEM           4            S=LENP         407+ 
                                        T.CON           26+           BN=APL           5            S=LMC          410+ 
                                        O=CON           26+           BN=IOAP          6            S=MMC          411+ 
                                        T.CUT           27+           BN=NLST          7            S=IT           412+ 
                                        O=CUT           27+           BN=VAR          10            S=INIT         413+ 
                                        T.SYM           30+           BN=SUB          11            S=OT           414+ 
                                        O=SYM           30+           BN=SUB0         12            S=RD           415+ 
                                        T.BLKS          31+           BN=BUF          13            S=SA1          416+ 
                                        O=BLKS          31+           Z.LBT           14            S=SA0          417+ 
                                        T.NLST          32+           SUM.LBT        205+           S=SLI          420+ 
                                        O=NLST          32+           COMSIZ         206+           S=SPA          421+ 
                                        T.DIM           33+           F$LBT          171+           S=ST           422+ 
                                        O=DIM           33+           Z$LBT           14            S=SUB          423+ 
                                        T.ENTP          34+           N$LBT           14            S=SUBI         424+ 
                                        O=ENTP          34+           ALC.PAR        210+           S=SUB0I        425+ 
                                        T.FPI           35+           BINIO          211+           S=TRACE        426+ 
                                        O=FPI           35+           BLNKCOM        212+           S=TA0          427+ 
                                        T.VDI           36+           CBI            213+           S=UPW          430+ 
                                        O=VDI           36+           CHARDCL        214+           S=VALUE        431+ 
                                        T.LA            27+           ERRORS         215+           S=VD           432+ 
                                        O.P2SAV         37+           ENTRJ          216+           Z.SORD          53
                                        T.REF           37+           N$FERR         215+           S$CON          366+ 
                                        T.LCA           40+           FAILSFT        217+           S$IT           412+ 
                                        T.ECT           41+           O.TABS         220+           S$LC           406+ 
                                        T.ENT           42+           IDENT1         221+           S$OT           414+ 
                                        T.LNT           43+           HO$MSG         222+           S$VD           432+ 
                                        T.LCC           44+           IDENT          223+           ERRTYP         433+ 
                                        T.FMT           45+           HO$PRGN        223+           ERR.A            0
                                        T.END           46+           IO.TEM         224+           ERR.M            1
                                        SIZES           47+           LCNT           225+           ERR.T            2
                                        L.P2NUL         47+           N$LINES        225+           ERR.W            3
                                        T=TB            47+           LEVEL          227+           ERR.F            4
                                        T=LGOB          47+           LEVEL0         230+           ERR.K            5
                                        T=ARG           50+           LEVEL2         231+           ERR.C            6
                                        T=PTXTR         50+           HO$LVL2        231+           N.ERRT           7
                                        T=STF           51+           LINEBUF        233+           ERR=A          442+ 
                                        T=EQUS          51+           LINES          251+           ERR=M          443+ 
                                        T=LINK          51+           CARDS          251+           ERR=T          444+ 
                                        T=COMM          52+           LINENR         251+           ERR=W          445+ 
                                        T=BLST          53+           HO$CSN         251+           ERR=F          446+ 
                                        T=FPO           52+           LOSTREF        252+           ERR=K          447+ 
                                        T=DVV           52+           MOD            253+           ERR=C          450+ 
                                        T=SLARG         52+           NARGS          254+           E=TOTAL        451+ 
                                        T=IOARG         52+           NOLIST         255+           PUC            453+ 
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        T=DATI          54+           NREXT          256+           ENDFTN         577+ 
                                        T=OUS           54+           NSQZLH         257+           CPTIM          667+ 
                                        T=SCR           54+           N.AP           260+           TIMER          673+ 
                                        T=PTXT          54+           N.ARP          261+           CAF            741+ 
                                        T=DATL          55+           N.BUF          262+           ECB            777+ 
                                        T=EOT           55+           N.CPL          263+           ECS           1031+ 
                                        T=FILL          55+           N.CON          264+           GCL           1044+ 
                                        T=ILI           55+           N.CT           265+           GMC           1051+ 
                                        T=SAP           56+           N.CTMAX        266+           LJS           1070+ 
                                        T=DATS          56+           N.DOB          267+           MTD           1075+ 
                                        T=IOLC          56+           N.EPL          270+           MTU           1104+ 
                                        T=PAR           57+           N$SEP          270+           PIA           1132+ 
                                        T=DAR           57+           N.FP           271+           WOF           1233+ 
                                        T=XFIL          57+           N$FPS          271+           HDRBL         1425+ 
                                        T=PCS           60+           N.GL           272+           F.PIK         1271+ 
                                        T=STMT          61+           N.MAXIL        273+           PIK=PS        1271+ 
                                        T=CLWB          61+           N$LC           274+           PIK=EQ        1275+ 
                                        T=SUB           62+           N.ST           275+           PIK=LCM       1371+ 
                                        T=VDIM          63+           N.STMAX        276+           PIK=XJP       1373+ 
                                        T=SUB0          63+           N.VD           277+           PIK=PI        1403+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ABTFTN    CP.AFLL   CP.NFLS   F.OUT     L.TB      O.CPV     TL.EJCT   FA=SET
                                        COD       CP.AFLS   CP.PAGE   F.PB      L.TITL    O.TA      TL.PAGE   MVE=
                                        CO.ANSI   CP.BLF    CP.PD     F.REF     L.TTLA    O.TITL    TL.PTYP   RDC=
                                        CO.GO     CP.CARD   ERFO      GT1       L.TTLB    O.TTLA    WNB=      SFN 
                                        CO.LOO    CP.EPAG   FV.LGO    INT.FL    L.TWO     RAPFLAG   LUS       WTH=
                                        CO.OPT    CP.ERCT   FV.OUT    LDCOM     MAX.FL    RS.PD     CGL 
                                        CO.PS     CP.IFMT   F.ERRS    L.CC      MSG=      SPYW      FEL 
                                        CO.PW     CP.ILFL   F.IL      L.CCA     OFFSPY    SYS=      REL 
                                        CO.PWE    CP.LSTF   F.IN      L.CCB     O.C       TIME0     CDD 
                                        CP.ABT    CP.MXFL   F.LGO     L.TA      O.CC      TIME1     CIO=
  
  
  
  
                                                  IDENT  PUC                                                     PUC         2
                                         PUC      SECT   (PROGRAM UNIT CONTROLLER AND SUPPORT.)                  PUC         3
  
  
  
  
  
                                        *         IN FTN                                                         FC5A158A   80
                                                  EXT    ABTFTN,COD,CO.ANSI,CO.GO,CO.LOO,CO.OPT,CO.PS,CO.PW      F1039      73
                                                  EXT    CO.PWE,CP.ABT,CP.AFLL,CP.AFLS,CP.BLF,CP.CARD,CP.EPAG    F1039      74
                                                  EXT    CP.ERCT,CP.IFMT,CP.ILFL,CP.LSTF,CP.MXFL,CP.NFLS,CP.PAGE F1039      75
                                                  EXT    CP.PD,ERFO,FV.LGO,FV.OUT,F.ERRS,F.IL,F.IN,F.LGO,F.OUT   F1039      76
                                                  EXT    F.PB,F.REF,GT1,INT.FL,LDCOM,L.CC,L.CCA,L.CCB,L.TA,L.TB  F1039      77
                                                  EXT    L.TITL,L.TTLA,L.TTLB,L.TWO,MAX.FL,MSG=,OFFSPY,O.C,O.CC  F1039      78
                                                  EXT    O.CPV,O.TA,O.TITL,O.TTLA,RAPFLAG,RS.PD,SPYW,SYS=,       FC5A426    21
                                                  EXT    TIME0,TIME1,TL.EJCT,TL.PAGE,TL.PTYP,WNB=                FC5A426    22
                                                                                                                 PUC        12
                                        *         IN LISTLNK                                                     FC5A150   273
                                                  EXT    LUS                                                     FC5A150   274
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     4
                                                                      PUC 
  
                                                                                                                 FC5A150   275
                                        *         IN QCGLINK                                                     PUC        13
                                                  EXT    CGL,FEL,REL                                             PUC        14
                                                                                                                 PUC        15
                                        *         IN UTILITY                                                     PUC        16
                                                  EXT    CDD,CIO=,FA=SET,MVE=,RDC=,SFN,WTH=                      F1039      81
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     5
        GLOBAL TABLE DEFINITIONS.                                     SIZES 
  
                                        **        SIZES - AUX. MACRO FOR TABLE SIZE REMOTES.                     PUC        20
                                        *                (FORCES MICRO EVALUATION)                               PUC        21
                                                                                                                 PUC        22
                                                                                                                 PUC        23
                                         SIZES    MACRO  NAME,RATE,INIT,DEFENT                                   PUC        24
                                        *                                                                        PUC        25
                                         TABLE    RMT                                                            PUC        26
                                         T.NAME  DEFENT INIT                                                     PUC        27
                                         TABLE    RMT                                                            PUC        28
                                        *                                                                        PUC        29
                                         SIZES    RMT                                                            PUC        30
                                         T=NAME  DEFENT N.TABLES+T.NAME                                          PUC        31
                                         SIZES    RMT                                                            PUC        32
                                        *                                                                        PUC        33
                                        .2        IFC    NE, = RATE                                              PUC        34
                                         RATES    RMT                                                            PUC        35
                                         X        OCTMIC RATE_BS30/L.TABLES,10                                   PUC        36
                                         A        OCTMIC INIT,6                                                  PUC        37
                                                  VFD    60/0."X"B+"A"B    (NAME)   _______________________      PUC        38
                                         RATES    RMT                                                            PUC        39
                                        *                                                                        PUC        40
                                         NAMES    RMT                                                            PUC        41
                                                  VFD    42/7L_NAME  ,18/-BASES+T.NAME         ____________      PUC        42
                                         NAMES    RMT                                                            PUC        43
                                         .2       ELSE                                                           PUC        44
                                         ALTNAM   RMT                                                            PUC        45
                                                  VFD    42/7L_NAME  ,18/INIT-BASES            ____________      PUC        46
                                         ALTNAM   RMT                                                            PUC        47
                                        *                                                                        PUC        48
                                         .2       ENDIF                                                          PUC        49
                                        *                                                                        PUC        50
                                         SIZES    ENDM                                                           PUC        51
  
  
  
  
                                        **        TABLE - MACRO TO FORM TABLE PARAMETER WORD FOR COMPILER TABLES PUC        53
                                        *                                                                        PUC        54
                                        * TNAM    TABLE  RATE,INIT         (OR),                                 PUC        55
                                        * TNAM    TABLE  =,SHARE                                                 PUC        56
                                        *                                                                        PUC        57
                                        * TNAM    =      TABLE NAME (WITHOUT PREFIX)                             PUC        58
                                        *         RATE   =  RELATIVE EXPANSION RATE OF TABLE.                    PUC        59
                                        *                = 5   SUPER TABLE.  PLEASE USE DISCRETION.              PUC        60
                                        *                = 4   FAST EXPANDER.                                    PUC        61
                                        *                = 3   NORMAL RATE.                                      PUC        62
                                        *                = 2   SLOWER THAN MOST.                                 PUC        63
                                        *                = 1   VERY INFREQUENTLY EXPANDED.                       PUC        64
                                        *         INIT   =  INITIAL LENGTH OF TABLE IN EACH PROGRAM-UNIT.        PUC        65
                                        *         SHARE  =  NAME OF TABLE TO SHARE SPACE WITH.                   PUC        66
                                                                                                                 PUC        67
                                                                                                                 PUC        68
                                                  MACRO  TABLE,NAM,RATE,INIT,PHASE                               FC5A128    86
                                         A        MICRO  1,5,/NAM     /                                          PUC        70
                                        *                                                                        PUC        71
                                         .1       IFC    NE, RATE =                                              PUC        72
                                         R        DECMIC RATE                                                    PUC        73
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     6
        GLOBAL TABLE DEFINITIONS.                                     TABLE 
  
                                         R        OCTMIC "R"*16                                                  PUC        74
                                         MCNTAB   DECMIC   N.TABLES                                              FC5A128    87
                                                  IRP    PHASE                                                   FC5A128    88
                                         MC_PHASE MICRO    1,,/1S"MCNTAB"+"MC_PHASE"/                            FC5A128    89
                                                  IRP                                                            FC5A128    90
                                         N.TABLES SET    N.TABLES+1                                              PUC        75
                                         L.TABLES SET    L.TABLES+"R"B                                           PUC        76
                                         L=TABLES SET    L=TABLES+INIT                                           PUC        77
                                                  SIZES  ("A"),"R",INIT,CONENT                                   PUC        78
                                        *                                                                        PUC        79
                                         .1       ELSE                                                           PUC        80
                                        *                                                                        PUC        81
                                                  SIZES  ("A"),=,T.INIT,EQUENT                                   PUC        82
                                         .1       ENDIF                                                          PUC        83
                                         TABLE    ENDM                                                           PUC        84
  
  
  
  
                                        **        TSECT - MACRO TO MARK START OF TABLE SECTIONS.                 PUC        86
                                        *                                                                        PUC        87
                                        *         TSECT  SECTNAM,COMMENT                                         PUC        88
                                                                                                                 PUC        89
                                                                                                                 PUC        90
                                                  MACRO  TSECT,NAM,COMMENT                                       PUC        91
                                         AAA      MICRO  1,5,/NAM    /                                           PUC        92
                                         TABLE    RMT=   (O."AAA"  BSSENT             COMMENT)                   PUC        93
                                         SIZES    RMT=   (L."AAA"  BSSENT             COMMENT)                   PUC        94
                                         TSECT    ENDM                                                           PUC        95
  
  
  
  
                                   0     L.TABLES SET    0                                                       PUC        97
                                   0     L=TABLES SET    0                                                       PUC        98
                                   0     N.TABLES SET    0           INITIALIZE TABLE ORDINAL                    PUC        99
                                         MCDECL   MICRO                                                          FC5A128    91
                                         MCEXU    MICRO                                                          FC5A128    92
                                         MCEND    MICRO              INITIALIZE TABLE VECTOR MICROS              FC5A128    93
  
  
  
  
                                        **        TABLE DEFINITIONS.                                             PUC       101
                                        *                                                                        PUC       102
                                        *         THE TABLE VECTORS ARE DIVIDED INTO THREE SECTIONS.             PUC       103
                                        *         THE SECTION IN WHICH A TABLE PARAMETER RESIDES IS DEPENDENT    PUC       104
                                        *         UPON THAT TABLES STATUS ACROSS CALLS TO THE CCG.               PUC       105
                                        *                                                                        PUC       106
                                        *         SECTION 1 -- CONTAINS TABLES WHICH ARE NOT PRESERVED ACROSS    PUC       107
                                        *                      CALLS TO CCG. *O.P2NUL*, *L.P2NUL* ARE THE        PUC       108
                                        *                      ORIGIN AND LENGTH OF THE FIRST TABLE IN THIS      PUC       109
                                        *                      SECTION.                                          PUC       110
                                        *                                                                        PUC       111
                                        *         SECTION 2 -- CONTAINS TABLES WHICH ARE USED DURING CCG.        PUC       112
                                        *                      *O.P2USE*, *L.P2USE* ARE THE ORIGIN AND LENGTH    PUC       113
                                        *                      OF THE FIRST TABLE IN THIS SECTION.               PUC       114
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     7
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
                                        *                                                                        PUC       115
                                        *         SECTION 3 -- CONTAINS TABLES WHICH ARE PRESERVED ACROSS CALLS  PUC       116
                                        *                      TO THE CCG.  *O.P2SAV*, *L.P2SAV* ARE THE ORIGIN  PUC       117
                                        *                      AND LENGTH OF THE FIRST TABLE IN THIS SECTION.    PUC       118
                                                                                                                 PUC       119
                                                                                                                 PUC       120
                                        **        SECTION 1 -- TABLES NOT PRESERVED ACROSS CCG.                  PUC       121
                                                                                                                 PUC       122
             0                           P2NUL    TSECT  (SECTION 1 -- NOT PRESERVED BY CCG)                     PUC       123
  
  
  
  
                                        **        T.TB - TOKEN BUFFER.                                           PUC       125
                                        *                                                                        PUC       126
                                        *                THIS TABLE MUST BE FIRST BECAUSE A0 POINTS TO THE       PUC       127
                                        *                ORIGIN OF THE TABLE.  BEING THE FIRST TABLE THE ORIGIN  PUC       128
                                        *                WILL ALWAYS REMAIN CONSTANT.                            PUC       129
                                        *                ITS SPACE IS REUSED FOR THE LGO BUFFER AT END TIME.     PUC       130
                                                                                                                 PUC       131
                                                                                                                 PUC       132
                                         TB       TABLE  1,401B            TOKEN BUFFER                          FC5A128    94
                                         LGOB     TABLE  =,TB        LGO BUFFER                                  PUC       134
  
  
  
  
                                         ARG      TABLE  2,,(DECL,EXU,END) STACK OF ACTUAL PARAMETER TURPLES     FC5A128    95
                                         PTXTR    TABLE  =,ARG       LOADER PTEXTR (3500) TABLE INFORMATION      PUC       137
                                         STF      TABLE  2,,(DECL,END)     STATEMENT FUNCTION SKELETONS          FC5A128    96
                                         EQUS     TABLE  =,STF       TRANSLATED EQUIVALENCE STATEMENTS           PUC       139
                                         LINK     TABLE  =,STF       LOADER LINK (4400) TABLE INFORMATION        PUC       140
                                         COMM     TABLE  2,1,(DECL,EXU)    COMMON TAGS                           FC5A128    97
                                         BLST     TABLE  2,,(DECL,EXU)    BLOCK STRUCTURE (DO AND BLOCK IF) INFO FC5A128    98
                                         FPO      TABLE  =,COMM      SUB/SUB0 ORGINS FOR FORMAL PARAMETERS       PUC       144
                                         DVV      TABLE  =,COMM      DATA VARIABLE VALUES IN CONRED/SED          PUC       145
                                         SLARG    TABLE  =,COMM      STATEMENT LABEL ARGUMENTS                   PUC       146
                                         IOARG    TABLE  =,COMM      IO ARGUMENTS                                PUC       147
                                         DATI     TABLE  3,,(DECL,EXU,END) AUX DATA TABLE,LOCAL TO               FC5A128    99
                                                                           DATA STATEMENT                        FC5A128   100
                                                                     CONTAINS CONSTANTS FOUND IN THE STATEMENT   PUC       149
                                                                     AND REP FACTORS, PLUS OTHER GOODIES.        PUC       150
                                         OUS      TABLE  =,DATI      OPERAND USAGE STATUS                        PUC       151
                                         SCR      TABLE  =,DATI      SCRATCH TABLE.                              PUC       152
                                         PTXT     TABLE  =,DATI      LOADER PTEXT (3500) TABLE INFORMATION       PUC       153
                                         DATL     TABLE  2,,(DECL,EXU,END) AUX DATA TABLE,LOCAL TO               FC5A128   101
                                                                           DATA STATEMENT                        FC5A128   102
                                         EOT      TABLE  =,DATL      EQUIVALENCE OVERLAP TABLE                   PUC       155
                                         FILL     TABLE  =,DATL      LOADER FILL BYTES  (PASS 3)                 PUC       156
                                         ILI      TABLE  =,DATL      INPUT LIST ITEMS                            PUC       157
                                         SAP      TABLE  1,,(DECL,EXU,END)      STACKED APLIST TABLE             FC5A128   103
                                         DATS     TABLE  =,SAP       DATA ACCUMULATION TABLE                     PUC       159
                                         IOLC     TABLE  =,SAP       I/O LIST COLLAPSE *CV* DEFINITION TURPLES   FC5A218    32
                                         PAR      TABLE  3,,(DECL,EXU,END) I.L.(WRITTEN TO F.IL IN CCG)          FC5A128   104
                                         DAR      TABLE  =,PAR       DATA EXPANSION COPY OF (T.PAR)              PUC       161
                                         XFIL     TABLE  =,PAR       LOADER XFIL(4100) TABLE.                    PUC       162
                                         PCS      TABLE  2,,(DECL,EXU)      PARSER CONTEXT STACK                 FC51075     9
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     8
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
                                         STMT     TABLE  1,,(DECL,EXU)     SOURCE STATEMENTS,DEFER LIST BUFFER   FC5A128   105
                                         CLWB     TABLE  =,STMT      IO CHAR ARRAY ITEM LENGTH BINARY (FAS/LIST) FC5A219     4
                                         SUB      TABLE  1           *SUB*  BLOCK TABLE                          PUC       165
                                         VDIM     TABLE  1           VARIABLE DIMENSION TURPLES.                 PUC       166
                                         SUB0     TABLE  =,VDIM      SUB0 BLOCK TABLE                            PUC       167
                                         C$IF     TABLE  1           C$ CONDITIONAL DIRECTIVE TABLE              PUC       168
  
  
  
  
                                        **        SECTION 2 -- TABLES USED DURING CCG.                           PUC       170
                                                                                                                 PUC       171
                                                                                                                 PUC       172
             0                           P2USE    TSECT  (SECTION 2 -- USED BY CCG)                              PUC       173
                                                                                                                 PUC       174
                                                  MACRO  TABSH,PASS1,RATE,INIT,PASS2,PHASE                       FC5A128   106
                                         PASS1    TABLE  RATE,INIT,(PHASE)                                       FC5A128   107
                                         TABLE    RMT=   (O=PASS1  EQUENT T.PASS1)                               PUC       177
                                         SIZES    RMT=   (L=PASS1  EQUENT T=PASS1)                               PUC       178
                                                  ENDM                                                           PUC       179
                                                                                                                 PUC       180
             0                           COMSTAB  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAB     2
                                                                                                                 COMSTAB     3
             0                           COMSTAD  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAD     2
                                                                                                                 COMSTAD     3
                                        ***       COMSTAD CONTAINS A "TABSH" MACRO CALL FOR EACH TABLE           COMSTAD     4
                                        *         WHICH IS SHARED WITH CCG.                                      COMSTAD     5
                                        *                                                                        COMSTAD     6
                                        * FEN     TABSH  RATE,INIT,CGN                                           COMSTAD     7
                                        *                                                                        COMSTAD     8
                                        *         WHERE  *FEN* = FRONT END NAME (SUFFIX) FOR THE TABLE.          COMSTAD     9
                                        *                *RATE* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    10
                                        *                *INIT* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    11
                                        *                *CGN* = CCG NAME (SUFFIX) FOR TABLE.                    COMSTAD    12
                                        *                IF *CGN* IS OMITTED, THE CCG SUFFIX IS SAME AS *FEN*.   COMSTAD    13
                                                                                                                 COMSTAD    14
                                                                                                                 COMSTAD    15
             0                           CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
             0                           CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
             0                           APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
             0                           IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
             0                           API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
             0                           IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)        FC5A128    10
             0                           GL       TABSH  2,,GLT      GENERATED LABELS                            COMSTAD    22
             0                           ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
             0                           CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
             0                           CUT      TABSH  0           CON. BIASES FOR PASS 3                      COMSTAD    25
                                                                                                                 COMSTAD    26
                                         COMSTAD  ENDX                                                           COMSTAD    27
             0                           COMSTAS  CTEXT              DEFINE STATIC TABLES SHARED WITH CCG.       COMSTAS     2
                                                                                                                 COMSTAS     3
                                        *         A STATIC TABLE IS ONE WHICH DOES NOT GROW OR SHRINK IN         COMSTAS     4
                                        *         BRIDGE/PASS 2.                                                 COMSTAS     5
                                                                                                                 COMSTAS     6
             0                           SYM      TABSH  3,50*Z=SYM,,(DECL,EXU)  SYMBOL TABLE                    FC5A128    12
                                        *         (INITIAL LENGTH IS AD HOC BUT SHOULD NOT EXCEED Z.SYMIL)       FC5A128    13
             0                           BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE     9
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
             0                           NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
             0                           DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
             0                           ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
             0                           FPI      TABSH  1           FORMAL PARAMETER INFORMATION                COMSTAS    13
             0                           VDI      TABSH  1           VARDIM INFORMATION                          COMSTAS    14
                                                                                                                 COMSTAS    15
                                         COMSTAS  ENDX                                                           COMSTAS    16
                                                                                                                 COMSTAB     6
                                         COMSTAB  ENDX                                                           COMSTAB     7
                                         LA       TABLE  =,CUT       (QCG ONLY)  LABELS ASSIGN-ED TO             PUC       182
  
  
  
  
                                        **        SECTION 3 -- TABLES PRESERVED BY CCG.                          PUC       184
                                                                                                                 PUC       185
             0                           P2SAV    TSECT  (SECTION 3 -- PRESERVED BY CCG)                         PUC       186
                                                                                                                 PUC       187
                                         REF      TABLE  1           CROSS-REFERENCE TABLE (REFMAP FILE)         PUC       188
                                                                     MAY SPILL TO DISK AND SHRINK TO 0           PUC       189
                                         LCA      TABLE  1           LCM POINTER CELLS                           PUC       190
                                         ECT      TABLE  1           EQUIVALENCE CLASS TABLE                     PUC       191
                                         ENT      TABLE  1                                                       PUC       192
                                         LNT      TABLE  2           LINE NUMBER TABLE (FOR  FID)                PUC       193
                                         LCC      TABLE  0           LOADER DIRECTIVES                           PUC       194
                                         FMT      TABLE  3,,(DECL,EXU)     FORMAT                                FC5A128   108
                                         END      TABLE  0           DUMMY FOR MANAGER                           PUC       196
                                                                                                                 PUC       197
                                                  PURGMAC SIZES                                                  PUC       198
                                                  PURGMAC TABLE                                                  PUC       199
                                                  PURGMAC TSECT                                                  PUC       200
                                                                                                                 PUC       201
                                        *         USED FOR EXTERNAL REFERENCE INTERFACES                         PUC       202
                                                                                                                 PUC       203
                                         L=TABLE  EQUENT L=TABLES                                                PUC       204
                                         N.TABLE  EQUENT N.TABLES                                                PUC       205
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    10
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
                                        **        TABLES - ACTUAL TABLE PARAMETER WORDS ARE HERE.                PUC       207
                                                                                                                 PUC       208
                                                  LIST   D           *ORIGINS*                                   PUC       209
                                                                                                                 PUC       210
             0                           ORIGINS  BSSENT 0           ORIGINS OF TABLES                           PUC       211
             0                           BASES    BSSENT 0           BASE ADDRESSES OF TABLES                    PUC       212
                                                                                                                 PUC       213
                                         TABLE    HERE               ACTUAL TABLE PARAMETER WORDS                PUC       214
             0                           O.P2NUL  BSSENT             SECTION 1 -- NOT PRESERVED BY CCG          TABLE   .1
             0  00000000000000000401     T.TB     CONENT 401B                                                   TABLE   .1
                                         T.LGOB   EQUENT T.TB                                                   TABLE   .1
             1  00000000000000000000     T.ARG    CONENT                                                        TABLE   .1
                                         T.PTXTR  EQUENT T.ARG                                                  TABLE   .1
             2  00000000000000000000     T.STF    CONENT                                                        TABLE   .1
                                         T.EQUS   EQUENT T.STF                                                  TABLE   .1
                                         T.LINK   EQUENT T.STF                                                  TABLE   .1
             3  00000000000000000001     T.COMM   CONENT 1                                                      TABLE   .1
             4  00000000000000000000     T.BLST   CONENT                                                        TABLE   .1
                                         T.FPO    EQUENT T.COMM                                                 TABLE   .1
                                         T.DVV    EQUENT T.COMM                                                 TABLE   .1
                                         T.SLARG  EQUENT T.COMM                                                 TABLE   .1
                                         T.IOARG  EQUENT T.COMM                                                 TABLE   .1
             5  00000000000000000000     T.DATI   CONENT                                                        TABLE   .1
                                         T.OUS    EQUENT T.DATI                                                 TABLE   .1
                                         T.SCR    EQUENT T.DATI                                                 TABLE   .1
                                         T.PTXT   EQUENT T.DATI                                                 TABLE   .1
             6  00000000000000000000     T.DATL   CONENT                                                        TABLE   .1
                                         T.EOT    EQUENT T.DATL                                                 TABLE   .1
                                         T.FILL   EQUENT T.DATL                                                 TABLE   .1
                                         T.ILI    EQUENT T.DATL                                                 TABLE   .1
             7  00000000000000000000     T.SAP    CONENT                                                        TABLE   .1
                                         T.DATS   EQUENT T.SAP                                                  TABLE   .1
                                         T.IOLC   EQUENT T.SAP                                                  TABLE   .1
            10  00000000000000000000     T.PAR    CONENT                                                        TABLE   .1
                                         T.DAR    EQUENT T.PAR                                                  TABLE   .1
                                         T.XFIL   EQUENT T.PAR                                                  TABLE   .1
            11  00000000000000000000     T.PCS    CONENT                                                        TABLE   .1
            12  00000000000000000000     T.STMT   CONENT                                                        TABLE   .1
                                         T.CLWB   EQUENT T.STMT                                                 TABLE   .1
            13  00000000000000000000     T.SUB    CONENT                                                        TABLE   .1
            14  00000000000000000000     T.VDIM   CONENT                                                        TABLE   .1
                                         T.SUB0   EQUENT T.VDIM                                                 TABLE   .1
            15  00000000000000000000     T.C$IF   CONENT                                                        TABLE   .1
            16                           O.P2USE  BSSENT             SECTION 2 -- USED BY CCG                   TABLE   .1
            16  00000000000000000000     T.CLW    CONENT                                                        TABLE   .1
                                         O=CLW  EQUENT T.CLW                                                    TABLE   .1
            17  00000000000000000000     T.CAC    CONENT                                                        TABLE   .1
                                         O=CAC  EQUENT T.CAC                                                    TABLE   .1
            20  00000000000000000000     T.APL    CONENT                                                        TABLE   .1
                                         O=APL  EQUENT T.APL                                                    TABLE   .1
            21  00000000000000000000     T.IOA    CONENT                                                        TABLE   .1
                                         O=IOA  EQUENT T.IOA                                                    TABLE   .1
            22  00000000000000000000     T.API    CONENT                                                        TABLE   .1
                                         O=API  EQUENT T.API                                                    TABLE   .1
            23  00000000000000000000     T.IOI    CONENT                                                        TABLE   .1
                                         O=IOI  EQUENT T.IOI                                                    TABLE   .1
            24  00000000000000000000     T.GL     CONENT                                                        TABLE   .1
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    11
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
                                         O=GL  EQUENT T.GL                                                      TABLE   .1
            25  00000000000000000000     T.ASG    CONENT                                                        TABLE   .1
                                         O=ASG  EQUENT T.ASG                                                    TABLE   .1
            26  00000000000000000000     T.CON    CONENT                                                        TABLE   .1
                                         O=CON  EQUENT T.CON                                                    TABLE   .1
            27  00000000000000000000     T.CUT    CONENT                                                        TABLE   .1
                                         O=CUT  EQUENT T.CUT                                                    TABLE   .1
            30  00000000000000000226     T.SYM    CONENT 50*Z=SYM                                               TABLE   .1
                                         O=SYM  EQUENT T.SYM                                                    TABLE   .1
            31  00000000000000000002     T.BLKS   CONENT Z=BLKS                                                 TABLE   .1
                                         O=BLKS  EQUENT T.BLKS                                                  TABLE   .1
            32  00000000000000000000     T.NLST   CONENT                                                        TABLE   .1
                                         O=NLST  EQUENT T.NLST                                                  TABLE   .1
            33  00000000000000000000     T.DIM    CONENT                                                        TABLE   .1
                                         O=DIM  EQUENT T.DIM                                                    TABLE   .1
            34  00000000000000000000     T.ENTP   CONENT                                                        TABLE   .1
                                         O=ENTP  EQUENT T.ENTP                                                  TABLE   .1
            35  00000000000000000000     T.FPI    CONENT                                                        TABLE   .1
                                         O=FPI  EQUENT T.FPI                                                    TABLE   .1
            36  00000000000000000000     T.VDI    CONENT                                                        TABLE   .1
                                         O=VDI  EQUENT T.VDI                                                    TABLE   .1
                                         T.LA     EQUENT T.CUT                                                  TABLE   .1
            37                           O.P2SAV  BSSENT             SECTION 3 -- PRESERVED BY CCG              TABLE   .1
            37  00000000000000000000     T.REF    CONENT                                                        TABLE   .1
            40  00000000000000000000     T.LCA    CONENT                                                        TABLE   .1
            41  00000000000000000000     T.ECT    CONENT                                                        TABLE   .1
            42  00000000000000000000     T.ENT    CONENT                                                        TABLE   .1
            43  00000000000000000000     T.LNT    CONENT                                                        TABLE   .1
            44  00000000000000000000     T.LCC    CONENT                                                        TABLE   .1
            45  00000000000000000000     T.FMT    CONENT                                                        TABLE   .1
            46  00000000000000000000     T.END    CONENT                                                        TABLE   .1
                                                                                                                 PUC       215
                                                                                                                 PUC       216
            47                           SIZES    BSSENT 0           SIZES OF TABLES                             PUC       217
                                                                                                                 PUC       218
                                         SIZES    HERE                                                           PUC       219
            47                           L.P2NUL  BSSENT             SECTION 1 -- NOT PRESERVED BY CCG          SIZES   .1
            47  00000000000000000047 +   T=TB     CONENT N.TABLES+T.TB                                          SIZES   .1
                                         T=LGOB   EQUENT N.TABLES+T.LGOB                                        SIZES   .1
            50  00000000000000000050 +   T=ARG    CONENT N.TABLES+T.ARG                                         SIZES   .1
                                         T=PTXTR  EQUENT N.TABLES+T.PTXTR                                       SIZES   .1
            51  00000000000000000051 +   T=STF    CONENT N.TABLES+T.STF                                         SIZES   .1
                                         T=EQUS   EQUENT N.TABLES+T.EQUS                                        SIZES   .1
                                         T=LINK   EQUENT N.TABLES+T.LINK                                        SIZES   .1
            52  00000000000000000052 +   T=COMM   CONENT N.TABLES+T.COMM                                        SIZES   .1
            53  00000000000000000053 +   T=BLST   CONENT N.TABLES+T.BLST                                        SIZES   .1
                                         T=FPO    EQUENT N.TABLES+T.FPO                                         SIZES   .1
                                         T=DVV    EQUENT N.TABLES+T.DVV                                         SIZES   .1
                                         T=SLARG  EQUENT N.TABLES+T.SLARG                                       SIZES   .1
                                         T=IOARG  EQUENT N.TABLES+T.IOARG                                       SIZES   .1
            54  00000000000000000054 +   T=DATI   CONENT N.TABLES+T.DATI                                        SIZES   .1
                                         T=OUS    EQUENT N.TABLES+T.OUS                                         SIZES   .1
                                         T=SCR    EQUENT N.TABLES+T.SCR                                         SIZES   .1
                                         T=PTXT   EQUENT N.TABLES+T.PTXT                                        SIZES   .1
            55  00000000000000000055 +   T=DATL   CONENT N.TABLES+T.DATL                                        SIZES   .1
                                         T=EOT    EQUENT N.TABLES+T.EOT                                         SIZES   .1
                                         T=FILL   EQUENT N.TABLES+T.FILL                                        SIZES   .1
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    12
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
                                         T=ILI    EQUENT N.TABLES+T.ILI                                         SIZES   .1
            56  00000000000000000056 +   T=SAP    CONENT N.TABLES+T.SAP                                         SIZES   .1
                                         T=DATS   EQUENT N.TABLES+T.DATS                                        SIZES   .1
                                         T=IOLC   EQUENT N.TABLES+T.IOLC                                        SIZES   .1
            57  00000000000000000057 +   T=PAR    CONENT N.TABLES+T.PAR                                         SIZES   .1
                                         T=DAR    EQUENT N.TABLES+T.DAR                                         SIZES   .1
                                         T=XFIL   EQUENT N.TABLES+T.XFIL                                        SIZES   .1
            60  00000000000000000060 +   T=PCS    CONENT N.TABLES+T.PCS                                         SIZES   .1
            61  00000000000000000061 +   T=STMT   CONENT N.TABLES+T.STMT                                        SIZES   .1
                                         T=CLWB   EQUENT N.TABLES+T.CLWB                                        SIZES   .1
            62  00000000000000000062 +   T=SUB    CONENT N.TABLES+T.SUB                                         SIZES   .1
            63  00000000000000000063 +   T=VDIM   CONENT N.TABLES+T.VDIM                                        SIZES   .1
                                         T=SUB0   EQUENT N.TABLES+T.SUB0                                        SIZES   .1
            64  00000000000000000064 +   T=C$IF   CONENT N.TABLES+T.C$IF                                        SIZES   .1
            65                           L.P2USE  BSSENT             SECTION 2 -- USED BY CCG                   SIZES   .1
            65  00000000000000000065 +   T=CLW    CONENT N.TABLES+T.CLW                                         SIZES   .1
                                         L=CLW  EQUENT T=CLW                                                    SIZES   .1
            66  00000000000000000066 +   T=CAC    CONENT N.TABLES+T.CAC                                         SIZES   .1
                                         L=CAC  EQUENT T=CAC                                                    SIZES   .1
            67  00000000000000000067 +   T=APL    CONENT N.TABLES+T.APL                                         SIZES   .1
                                         L=APL  EQUENT T=APL                                                    SIZES   .1
            70  00000000000000000070 +   T=IOA    CONENT N.TABLES+T.IOA                                         SIZES   .1
                                         L=IOA  EQUENT T=IOA                                                    SIZES   .1
            71  00000000000000000071 +   T=API    CONENT N.TABLES+T.API                                         SIZES   .1
                                         L=API  EQUENT T=API                                                    SIZES   .1
            72  00000000000000000072 +   T=IOI    CONENT N.TABLES+T.IOI                                         SIZES   .1
                                         L=IOI  EQUENT T=IOI                                                    SIZES   .1
            73  00000000000000000073 +   T=GL     CONENT N.TABLES+T.GL                                          SIZES   .1
                                         L=GL  EQUENT T=GL                                                      SIZES   .1
            74  00000000000000000074 +   T=ASG    CONENT N.TABLES+T.ASG                                         SIZES   .1
                                         L=ASG  EQUENT T=ASG                                                    SIZES   .1
            75  00000000000000000075 +   T=CON    CONENT N.TABLES+T.CON                                         SIZES   .1
                                         L=CON  EQUENT T=CON                                                    SIZES   .1
            76  00000000000000000076 +   T=CUT    CONENT N.TABLES+T.CUT                                         SIZES   .1
                                         L=CUT  EQUENT T=CUT                                                    SIZES   .1
            77  00000000000000000077 +   T=SYM    CONENT N.TABLES+T.SYM                                         SIZES   .1
                                         L=SYM  EQUENT T=SYM                                                    SIZES   .1
           100  00000000000000000100 +   T=BLKS   CONENT N.TABLES+T.BLKS                                        SIZES   .1
                                         L=BLKS  EQUENT T=BLKS                                                  SIZES   .1
           101  00000000000000000101 +   T=NLST   CONENT N.TABLES+T.NLST                                        SIZES   .1
                                         L=NLST  EQUENT T=NLST                                                  SIZES   .1
           102  00000000000000000102 +   T=DIM    CONENT N.TABLES+T.DIM                                         SIZES   .1
                                         L=DIM  EQUENT T=DIM                                                    SIZES   .1
           103  00000000000000000103 +   T=ENTP   CONENT N.TABLES+T.ENTP                                        SIZES   .1
                                         L=ENTP  EQUENT T=ENTP                                                  SIZES   .1
           104  00000000000000000104 +   T=FPI    CONENT N.TABLES+T.FPI                                         SIZES   .1
                                         L=FPI  EQUENT T=FPI                                                    SIZES   .1
           105  00000000000000000105 +   T=VDI    CONENT N.TABLES+T.VDI                                         SIZES   .1
                                         L=VDI  EQUENT T=VDI                                                    SIZES   .1
                                         T=LA     EQUENT N.TABLES+T.LA                                          SIZES   .1
           106                           L.P2SAV  BSSENT             SECTION 3 -- PRESERVED BY CCG              SIZES   .1
           106  00000000000000000106 +   T=REF    CONENT N.TABLES+T.REF                                         SIZES   .1
           107  00000000000000000107 +   T=LCA    CONENT N.TABLES+T.LCA                                         SIZES   .1
           110  00000000000000000110 +   T=ECT    CONENT N.TABLES+T.ECT                                         SIZES   .1
           111  00000000000000000111 +   T=ENT    CONENT N.TABLES+T.ENT                                         SIZES   .1
           112  00000000000000000112 +   T=LNT    CONENT N.TABLES+T.LNT                                         SIZES   .1
           113  00000000000000000113 +   T=LCC    CONENT N.TABLES+T.LCC                                         SIZES   .1
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    13
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
           114  00000000000000000114 +   T=FMT    CONENT N.TABLES+T.FMT                                         SIZES   .1
           115  00000000000000000115 +   T=END    CONENT N.TABLES+T.END                                         SIZES   .1
                                                                                                                 PUC       220
                                                  LIST   *           *SIZES*                                     PUC       221
           116                           RATES    BSSENT 0           EXPANSION RATES OF TABLES                   PUC       222
                                                  LIST   G           *RATES*                                     PUC       223
                                                                                                                 PUC       224
                                         RATES    HERE                                                           PUC       225
           116  17124517101100000401              VFD    60/0.0112362022B+000401B    (TB   )                    RATES   .1
           117  17134517101120000000              VFD    60/0.0224744045B+000000B    (ARG  )                    RATES   .1
           120  17134517101120000000              VFD    60/0.0224744045B+000000B    (STF  )                    RATES   .1
           121  17134517101120000001              VFD    60/0.0224744045B+000001B    (COMM )                    RATES   .1
           122  17134517101120000000              VFD    60/0.0224744045B+000000B    (BLST )                    RATES   .1
           123  17136766541560000000              VFD    60/0.0337326067B+000000B    (DATI )                    RATES   .1
           124  17134517101120000000              VFD    60/0.0224744045B+000000B    (DATL )                    RATES   .1
           125  17124517101100000000              VFD    60/0.0112362022B+000000B    (SAP  )                    RATES   .1
           126  17136766541560000000              VFD    60/0.0337326067B+000000B    (PAR  )                    RATES   .1
           127  17134517101120000000              VFD    60/0.0224744045B+000000B    (PCS  )                    RATES   .1
           130  17124517101100000000              VFD    60/0.0112362022B+000000B    (STMT )                    RATES   .1
           131  17124517101100000000              VFD    60/0.0112362022B+000000B    (SUB  )                    RATES   .1
           132  17124517101100000000              VFD    60/0.0112362022B+000000B    (VDIM )                    RATES   .1
           133  17124517101100000000              VFD    60/0.0112362022B+000000B    (C$IF )                    RATES   .1
           134  00000000000000000000              VFD    60/0.0000000000B+000000B    (CLW  )                    RATES   .1
           135  00000000000000000000              VFD    60/0.0000000000B+000000B    (CAC  )                    RATES   .1
           136  17136766541560000000              VFD    60/0.0337326067B+000000B    (APL  )                    RATES   .1
           137  17136766541560000000              VFD    60/0.0337326067B+000000B    (IOA  )                    RATES   .1
           140  17124517101100000000              VFD    60/0.0112362022B+000000B    (API  )                    RATES   .1
           141  17124517101100000000              VFD    60/0.0112362022B+000000B    (IOI  )                    RATES   .1
           142  17134517101120000000              VFD    60/0.0224744045B+000000B    (GL   )                    RATES   .1
           143  17124517101100000000              VFD    60/0.0112362022B+000000B    (ASG  )                    RATES   .1
           144  17136766541560000000              VFD    60/0.0337326067B+000000B    (CON  )                    RATES   .1
           145  00000000000000000000              VFD    60/0.0000000000B+000000B    (CUT  )                    RATES   .1
           146  17136766541560000226              VFD    60/0.0337326067B+000226B    (SYM  )                    RATES   .1
           147  17124517101100000002              VFD    60/0.0112362022B+000002B    (BLKS )                    RATES   .1
           150  00000000000000000000              VFD    60/0.0000000000B+000000B    (NLST )                    RATES   .1
           151  17124517101100000000              VFD    60/0.0112362022B+000000B    (DIM  )                    RATES   .1
           152  17124517101100000000              VFD    60/0.0112362022B+000000B    (ENTP )                    RATES   .1
           153  17124517101100000000              VFD    60/0.0112362022B+000000B    (FPI  )                    RATES   .1
           154  17124517101100000000              VFD    60/0.0112362022B+000000B    (VDI  )                    RATES   .1
           155  17124517101100000000              VFD    60/0.0112362022B+000000B    (REF  )                    RATES   .1
           156  17124517101100000000              VFD    60/0.0112362022B+000000B    (LCA  )                    RATES   .1
           157  17124517101100000000              VFD    60/0.0112362022B+000000B    (ECT  )                    RATES   .1
           160  17124517101100000000              VFD    60/0.0112362022B+000000B    (ENT  )                    RATES   .1
           161  17134517101120000000              VFD    60/0.0224744045B+000000B    (LNT  )                    RATES   .1
           162  00000000000000000000              VFD    60/0.0000000000B+000000B    (LCC  )                    RATES   .1
           163  17136766541560000000              VFD    60/0.0337326067B+000000B    (FMT  )                    RATES   .1
           164  00000000000000000000              VFD    60/0.0000000000B+000000B    (END  )                    RATES   .1
                                                                                                                 PUC       226
                                                  LIST   *           *RATES*                                     PUC       227
                                                                                                                 PUC       228
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                PUC       229
                                         NAMES    BSSENT 0           TABLE NAMES (TEST MODE ONLY)                PUC       230
                                                  LIST   G                                                       PUC       231
                                                                                                                 PUC       232
                                         NAMES    HERE                                                           PUC       233
                                                                                                                 PUC       234
                                         ALTNAM   BSSENT 0           ALTERNATE TABLE NAMES                       PUC       235
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    14
        GLOBAL TABLE DEFINITIONS.                                     TABLES
  
                                                                                                                 PUC       236
                                         ALTNAM   HERE                                                           PUC       237
                                                  DATA   0           END OF TABLE MARKER                         PUC       238
                                                                                                                 PUC       239
                                                  LIST   *           TABLE NAMES                                 PUC       240
                                         .TEST    ENDIF                                                          PUC       241
                                                                                                                 FC5A128   109
                                        *                TABLE VECTORS                                           FC5A128   110
                                                                                                                 FC5A128   111
           165  00000002001500003776     TV=DECL  CONENT "MCDECL"                                                FC5A128   112
           166  00000002000100603772     TV=EXU   CONENT "MCEXU"                                                 FC5A128   113
           167  00000000000000000746     TV=END   CONENT "MCEND"                                                 FC5A128   114
           170  00000000000000000000     TV=CUR   CONENT 0                                                       FC5A128   115
                                                                                                                 FC5A128   116
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    15
        GLOBAL SYMBOL DEFINITIONS.                                    LBT 
  
                                        **        LBT - LOCAL BLOCK TABLE.                                       PUC       244
                                        *                                                                        PUC       245
                                        *         N.B. --  ORDER MUST BE MAINTAINED.                             PUC       246
                                        *                (LOCAL) MUST BE FIRST CELL AFTER (LBT).                 PUC       247
                                                                                                                 PUC       248
                                                                                                                 PUC       249
                                                  MACRO  LBLK,NR,NAM                                             PUC       250
                                         NR   BSSENT 1         (NAM)                                             PUC       251
                                                  ENDM                                                           PUC       252
                                                                                                                 PUC       253
                                                                                                                 PUC       254
           171                           F.LBT    BSSENT 0           FWA LOCAL BLOCK TABLE                       PUC       255
      L      0                                    LOC    0                                                       PUC       256
                                                  LIST   -X,G                                                    PUC       257
      L      0                                    CTEXT  COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS.              COMSLBT     2
      L      0                     1     BN=STRT BSS 1                                                          BSSENT  .2
      L      1                     1     BN=CODE BSS 1                                                          BSSENT  .2
      L      2                     1     BN=CON BSS 1                                                           BSSENT  .2
      L      3                     1     BN=FMT BSS 1                                                           BSSENT  .2
      L      4                     1     BN=TEM BSS 1                                                           BSSENT  .2
      L      5                     1     BN=APL BSS 1                                                           BSSENT  .2
      L      6                     1     BN=IOAP BSS 1                                                          BSSENT  .2
      L      7                     1     BN=NLST BSS 1                                                          BSSENT  .2
      L     10                     1     BN=VAR BSS 1                                                           BSSENT  .2
      L     11                     1     BN=SUB BSS 1                                                           BSSENT  .2
      L     12                     1     BN=SUB0 BSS 1                                                          BSSENT  .2
      L     13                     1     BN=BUF BSS 1                                                           BSSENT  .2
                                                  LIST   *                                                       PUC       259
      L     14                           Z.LBT    BSSENT 0           NUMBER OF LOCAL BLOCKS                      PUC       260
           205                                    LOC    *O                                                      PUC       261
           205  00000000000000000000     SUM.LBT  CONENT 0           LOCAL LENGTH OF PROGRAM-UNIT                PUC       262
           206  00000000000000000000     COMSIZ   CONENT 0           LENGTH OF SCM COMMON                        PUC       263
           207  00000000000000000000              CON    0           LENGTH OF LCM COMMON                        PUC       264
                                         F$LBT    EQUENT F.LBT       CCG INTERFACE NAME                          PUC       265
                                         Z$LBT    EQUENT Z.LBT       CCG INTERFACE NAME                          PUC       266
                                         N$LBT    EQUENT Z.LBT       CCG INTERFACE NAME                          FC5A399     5
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    16
        GLOBAL SYMBOL DEFINITIONS.                                    CELLS 
  
                                        **        COMMON CELL DEFINITIONS.                                       PUC       268
                                                                                                                 PUC       269
           210  00000000000000000000     ALC.PAR  CONENT 0           MINIMUM ALLOCATION FOR PAR                  FC5A128   117
                                                                                                                 PUC       270
           211  77777777777777777776     BINIO    CONENT -1          -1 = CCG MODE OR F.PB FLUSHED               PUC       271
                                                                      0 = OTHERWISE                              PUC       272
                                                                                                                 PUC       273
           212  00000000000000000000     BLNKCOM  CONENT 0           BLOCK NUMBER OF BLANK COMMON                PUC       274
                                                                                                                 PUC       275
           213  00000000000000000000     CBI      CONENT 0           CURRENT INDEX TO  T.BLKS                    PUC       276
                                                                                                                 PUC       277
           214  00000000000000000000     CHARDCL  CONENT 0           CHARACTER DECLARATION PRESENT               PUC       278
                                                                                                                 PUC       279
           215  00000000000000000000     ERRORS   CONENT 0           NUMBER OF FATAL ERRORS APPEARING IN CURRENT PUC       280
                                                                     SUBPROGRAM.  CP.ERCT CONTAINS TOTAL ERROR   PUC       281
                                                                     COUNT.  INCLUDING ALL OF ET=LEVEL.          PUC       282
                                                                                                                 F2950F5A   12
           216  00000000000000000000     ENTRJ    CONENT 0           NZ IF THIS ENTRY POINT CODE HAS RJ YET      F2950F5A   13
                                                                                                                 PUC       283
                                         N$FERR   EQUENT ERRORS      CCG INTERFACE NAME                          PUC       284
                                                                                                                 PUC       285
           217  00000000000000000000     FAILSFT  CONENT 0           NON-ZERO IF TABLES OVERLAP CATASTROPHICALLY PUC       286
                                                                                                                 PUC       287
           220                     1     O.TABS   BSSENT  1          FWA OF MANAGED TABLE AREA                   PUC       288
                                                                                                                 PUC       289
           221  55555555555555555555     IDENT1   CONENT 10H         USED TO DISPLAY *COMPILING* MESSAGE         PUC       290
           222  03171520111411160755     HO$MSG   CONENT 10HCOMPILING                                            PUC       291
           223  00000000000000000000     IDENT    CONENT 0           ROUTINE NAME 0L FORMAT                      PUC       292
                                         HO$PRGN  EQUENT IDENT       CCG INTERFACE NAME                          PUC       293
                                                                                                                 PUC       294
           224  00000000000000000000     IO.TEM   CONENT 0           MAX TEMPORARY USED BY IO IN EACH PROGRAM    PUC       295
                                        *                            UNIT.                                       PUC       296
                                                                                                                 PUC       297
           225                     2     LCNT     BSZENT 2           LINE COUNT  L/E FILES                       PUC       298
                                         N$LINES  EQUENT LCNT        CCG INTERFACE NAME                          PUC       299
                                                                                                                 PUC       300
           227                     1     LEVEL    BSSENT 1           LEVEL STATEMENT ENCOUNTERED                 PUC       301
           230                     1     LEVEL0   BSSENT 1           LEVEL0 STATEMENT ENCOUNTERED                PUC       302
           231  00000000000000000000     LEVEL2   CONENT 0           IF ANY LCM/ECS RESIDENT DECLARATIONS        PUC       303
                                         HO$LVL2  EQUENT LEVEL2                                                  PUC       304
                                                                                                                 PUC       305
           232                     1              BSSZ   1           LINEBUF-1 USED BY *MAP*                     PUC       306
           233                    16     LINEBUF  BSZENT 14          GENERAL PRINT LINE WORKING AREA             PUC       307
                                                                                                                 PUC       308
           251  00000000000000000000     LINES    CONENT 0           CURRENT SOURCE LINE NUMBER                  PUC       309
                                         CARDS    EQUENT LINES                                                   PUC       310
                                         LINENR   EQUENT LINES                                                   PUC       311
                                         HO$CSN   EQUENT LINES       CCG INTERFACE NAME                          PUC       312
                                                                                                                 PUC       313
           252  00000000000000000000     LOSTREF  CONENT 0           1.  BEFORE REF-MAP PROCESSING, IT IS A      PUC       314
                                                                     COUNT OF NUM OF REFS FOUND.                 PUC       315
                                                                     2.  DURING REF-MAP, IT WILL BE SET TO NUM   PUC       316
                                                                     OF REFS LOST DUE TO CORE LIMITATIONS.       PUC       317
                                                                                                                 PUC       318
           253  00000000000000000000     MOD      CONENT 0           SUBPROGRAM MODE  (SET BY *1ST CARD* SCANS)  PUC       319
                                                                                                                 PUC       320
           254  00000000000000000000     NARGS    CONENT 0           PROGRAM-UNIT ARGUMENT COUNT.                PUC       321
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    17
        GLOBAL SYMBOL DEFINITIONS.                                    CELLS 
  
                                                                                                                 PUC       322
           255  40000000000000000000     NOLIST   CONENT 1S59        =1S59 IF C/-LIST,ALL ACTIVE                 PUC       323
                                                                     =0    IF C/-LIST,NONE ACTIVE                PUC       324
                                                                                                                 PUC       325
           256  00000000000000000000     NREXT    CONENT 0           COUNT OF EXTERNALS REFERENCED IN CURRENT    PUC       326
                                                                     PROGRAM-UNIT.  COMPUTED BY *END*.           PUC       327
                                                                                                                 PUC       328
           257                     1     NSQZLH   BSSENT 1           CCG DONT SQUEEZE LONG HOLLERITHS FLAG       FC5A415     7
                                                                                                                 FC5A415     8
           260                     1     N.AP     BSSENT 1           NUMBER OF ACTUAL-PARAMETER LISTS            PUC       329
                                                                                                                 PUC       330
           261  00000000000000000000     N.ARP    CONENT 0           .NZ. = AN ALTERNATE RETURN PARAMETER LIST   PUC       331
                                                                     OCCURRED IN THIS PROGRAM UNIT.  NOT SET     PUC       332
                                                                     UNTIL PASS 1 IS COMPLETE.                   PUC       333
                                                                                                                 PUC       334
           262                     1     N.BUF    BSZENT 1           FIT LENGTHS, BUFL'S, MRL'S FOR USER FILES   F1037F5   183
           263                     1     N.CPL    BSSENT 1           LENGTH OF (CP.) ARRAY                       PUC       335
                                                                                                                 PUC       336
           264                     1     N.CON    BSSENT 1           LENGTH OF RUN-TIME CONSTANT TABLE           PUC       337
           265                     1     N.CT     BSSENT 1           LENGTH OF (CT.) AREA, IN WORDS              PUC       338
           266                     1     N.CTMAX  BSSENT 1           MAX (CT.) WORDS IN ANY SEGMENT              PUC       339
                                                                                                                 PUC       340
           267                     1     N.DOB    BSSENT 1           NUMBER OF INVENTED DO-BEGIN LABELS          PUC       341
                                                                                                                 PUC       342
           270  00000000000000000000     N.EPL    CONENT 0           .NZ. IF MULTIPLE UNIQUE PARAMETER LISTS     PUC       343
                                         N$SEP    EQUENT N.EPL       CCG INTERFACE NAME                          PUC       344
                                                                                                                 PUC       345
           271  00000000000000000000     N.FP     CONENT 0           NUMBER OF FORMAL PARAMETER                  PUC       346
                                                                     .ZR. IF NOT PROCEDURAL SUBPROGRAM           PUC       347
                                         N$FPS    EQUENT N.FP        CCG INTERFACE NAME                          PUC       348
                                                                                                                 PUC       349
           272                     1     N.GL     BSSENT 1           NUMBER OF GENERATED LABELS                  PUC       350
                                                                                                                 PUC       351
           273  00000000000000000454     N.MAXIL  CONENT 100*Z=TURP  THRESHOLD SIZE OF IL SEGMENT                PUC       352
                                                                     TRY TO FLUSH WHEN IT GETS THIS BIG          PUC       353
                                        ** FV            SHOULD ABOVE DEPEND ON FL??                             PUC       354
                                                                                                                 PUC       355
           274  00000000000000000000     N$LC     CONENT 0           NUMBER OF FP LOCAL COPY CELLS               PUC       356
                                                                                                                 PUC       357
           275                     1     N.ST     BSSENT 1           NUMBER OF TEMPS IN ONE STATEMENT            PUC       358
           276                     1     N.STMAX  BSSENT 1           MAX NUMBER OF STATEMENT TEMPS               PUC       359
                                                                                                                 PUC       360
           277                     1     N.VD     BSSENT 1           NUMBER OF VARDIM EXPRESSIONS                PUC       361
                                         N$VD     EQUENT N.VD        CCG INTERFACE NAME                          PUC       362
                                                                                                                 PUC       363
           300  00000000000000000000     O.STITL  CONENT 0           ADDR AND LEN OF SUBTITLE - 30/LEN,30/ADDR   PUC       364
                                                                                                                 PUC       365
           301  00000000000000000000     PU.MFL   CONENT 0           PROGRAM UNIT MAX FL                         PUC       366
                                         HO$PMLS  EQUENT PU.MFL      CCG INTERFACE NAME                          PUC       367
                                                                                                                 PUC       368
           302  00000000000000000000     PASS     CONENT 0           CONTROLS ACTIONS OF TABLE MANAGER.          PUC       369
                                                                                                                 PUC       370
           303                    15     PWBUF    BSSENT 13          LIST BUFFER FOR PW MODE                     PUC       371
                                                                                                                 PUC       372
           320                     1     WOF=ERR  BSZENT 1           0 = LIST TO L  1 = LIST TO E                PUC       373
                                                                                                                 PUC       374
                                                                                                                 PUC       375
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    18
        GLOBAL SYMBOL DEFINITIONS.                                    CELLS 
  
           321  77777777777777777776     REFIO    CONENT -1          -1 = T.REF TABLE IS ON DISK                 PUC       376
                                                                     0  = T.REF TABLE IS IN SCM                  PUC       377
                                                                                                                 PUC       378
                                         RPV=CLN  EQUENT LINES       CURRENT LINE NUMBER                         PUC       379
                                         RPV=MSG  EQUENT IDENT1      RPV COMPILING MESSAGE                       PUC       380
           322  00000000000000000000     RPV=URP  CONENT 0           USER REPRIEVE PROCESSOR                     PUC       381
                                         HO$RDR   EQUENT RPV=URP     CCG INTERFACE NAME                          PUC       382
                                                                                                                 PUC       383
           323  00000000000000000000     SAVE     CONENT  0          SAVE INDICATOR                              PUC       384
                                                                                                                 PUC       385
           324  00000000000000000000     THRESH   CONENT 0           THRESHHOLD FOR ALLOC BEFORE MEM REQUEST     PUC       386
                                                                                                                 PUC       387
           325  00000000000000000000     USAVE    CONENT 0           UNIVERSAL SAVE INDICATOR                    PUC       388
                                                                                                                 PUC       389
           326  00000000000000400000     L.TABS   CONENT 1S17        WIDTH OF MANAGED TABLE AREA                 PUC       390
  
  
  
  
                                        **        SCRATCH AREA.                                                  PUC       392
                                                                                                                 PUC       393
           327                    12     SCR      BSSENT 10          GENERAL SCRATCH AREA. NEVER TO BE USED BY   PUC       394
                                        *                            TABLE SECTION. SHOULD BE USED ONLY BY LOCAL PUC       395
                                        *                            ROUTINES.                                   PUC       396
  
  
  
  
                                        **        WORKING COPY OF OPTIONS RESET BY C$ DIRECTIVES.                PUC       398
                                        *                                                                        PUC       399
                                        *         THESE CELLS MUST MAINTAIN THE SAME ORDER AS THE CO. CELLS IN   PUC       400
                                        *         CO.C$.                                                         PUC       401
                                                                                                                 PUC       402
                                                                                                                 PUC       403
           341                           WO.C$    BSSENT 0           DIRECTIVE CONTROL                           PUC       404
                                                                                                                 PUC       405
           341                     1     WO.CS    BSSENT 1           COLLATE = USER WEIGHT TABLE                 PUC       406
           342                     1     WO.DOLG  BSSENT 1           DO = LONG                                   PUC       407
           343                     1     WO.DOOT  BSSENT 1           DO = OT (ONE TRIP)                          PUC       408
           344                     1     WO.LOA   BSSENT 1           LO = S                                      PUC       409
           345                     1     WO.LOM   BSSENT 1           LO = M                                      PUC       411
           346                     1     WO.LOO   BSSENT 1           LO = O                                      PUC       412
           347                     1     WO.LOR   BSSENT 1           LO = R                                      PUC       413
           350                     1     WO.LOS   BSSENT 1           LO = S                                      PUC       414
           351                     1     WO.QC    BSSENT 1           QC - SET TO QUICK CHECK AFTER FATAL ERRORS  PUC       415
           352                     1     WO.LCM   BSSENT 1                                                       FC5A132    26
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    19
        GLOBAL SYMBOL DEFINITIONS.                                    CELLS 
  
                                        **        MISCELLANEOUS SHORT CONSTANTS USED WHEN PROCESSING A STATEMENT PUC       417
                                                                                                                 PUC       418
                                                                                                                 PUC       419
                                                  MACRO  CONST,LAB,NUM,CMOD                                      PUC       420
                                                  IFC    NE,/LAB//,1                                             PUC       421
                                         LAB      BSSENT 0                                                       PUC       422
                                                  VFD    TP.ORDL/0,TP.BIASL/NUM                                  PUC       423
                                                  POS    TP.SHRTP+1                                              PUC       424
                                                  VFD    1/1                                                     PUC       425
                                                  POS    TP.MODEL                                                PUC       426
                                                  VFD    TP.MODEL/M._CMOD                                        PUC       427
                                         CONST    ENDM                                                           PUC       428
                                                                                                                 PUC       429
                                                                                                                 PUC       430
           353                           CONONE   CONST  1,INT                                                   PUC       431
           354                           CONZER   CONST  0,BOOL                                                  PUC       432
           355                           CONZERI  CONST  0,INT                                                   PUC       433
           356                           VTRUE    CONST  -1,LOG                                                  PUC       434
           357                           VFALSE   CONST  0,LOG                                                   PUC       435
                                                  PURGMAC CONST                                                  PUC       436
  
  
  
  
                                        **        F.SORD - CELLS CONTAINING SYMTAB ORDINALS.                     PUC       438
                                        *                                                                        PUC       439
                                        *         SEE TABLE (SYM.NAM) IN FEC FOR LIST OF CELLS WHICH ARE ALWAYS  PUC       440
                                        *         PRESET IN SYMBOL TABLE.  NAMES NOT IN THAT LIST ARE OPTIONAL,  PUC       441
                                        *         BEING CREATED IN RESPONSE TO SOME FEATURE OF THE SOURCE        PUC       442
                                        *         PROGRAM.  IF A NAME HAS NOT YET BEEN ENTERED IN THE SYMTAB,    PUC       443
                                        *         THE CORRESPONDING (S=CELL) WILL CONTAIN ZERO.                  PUC       444
                                        *         THESE CELLS ARE INITIALIZED BY FEC/PUP.                        PUC       445
                                        *                                                                        PUC       446
                                        *         (S$NAME) CELLS ARE FOR USE ONLY BY THE COMMON CODE GENERATOR.  PUC       447
                                        *         (S=NAME) WILL BE USED BY ALL FORTRAN CODE (INCLUDING BRIDGE).  PUC       448
                                                                                                                 PUC       449
                                                                                                                 PUC       450
           360                           F.SORD   BSSENT                                                         PUC       451
                                                                                                                 PUC       452
           360                     1     S=AEXIT  BSSENT 1           AEXIT.    ALTERNATE RETURN EXIT LABEL       PUC       453
           361                     1     S=BU     BSSENT 1           *O+4S15   "BLOWUP"                          PUC       454
           362                     1     S=BUFIN  BSSENT 1           BUFIN.    FCL - BUFFER IN ROUTINE           PUC       455
           363                     1     S=BUF    BSSENT 1           FITS, BUFFERS, ETC. FOR USER FILES          F1037F5   184
           364                     1     S=CES    BSSENT 1           CES.      FCL - CHECK + EVALUATE SUBSCRIPT  PUC       456
           365                     1     S=CL     BSSENT 1           CL.       CHARACTER LENGTH DESCRIPTORS      PUC       457
           366                     1     S=CON    BSSENT 1           CON.      NUMERIC LITERALS                  PUC       458
           367                     1     S=CP     BSSENT 1           CP.       APL FOR COPY AP CALL              PUC       459
           370                     1     S=CPL    BSSENT 1           CPL.      FCL - COPY AP LIST                PUC       460
           371                     1     S=CT     BSSENT 1           CT.         CHARACTER TEMPS                 PUC       461
           372                     1     S=ENTRY  BSSENT 1           ENTRY.    MAIN ENTRY POINT                  PUC       462
           373  00000000000000000000     S=ERR    CONENT 0           FERR.     SOURCE PROGRAM FATAL ERROR        PUC       463
           374  00000000000000000000     S=EXIT   CONENT 0           EXIT.     SUBROUTINE EXIT LABEL             PUC       464
           375                     1     S=FAR    BSSENT 1           FARC.     FCL - FORM ARRAY REFERENCE        PUC       465
           376                     1     S=FAS    BSSENT 1           FASC.     FCL - FORM ARRAY SUBSTRING        PUC       466
           377                     1     S=FID    BSSENT 1           FID.      CID - FORTRAN INTERACTIVE DEBUG   PUC       467
           400                     1     S=FMC    BSSENT 1           FMC.      FCL - FIXED MULTIPLE COMPARE      PUC       468
           401                     1              BSSENT 1           UMC.      FCL - USER MULTIPLE COMPARE       PUC       469
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    20
        GLOBAL SYMBOL DEFINITIONS.                                    F.SORD
  
           402                     1     S=FVS    BSSENT 1           FVSC.     FCL - FORM VARIABLE SUBSTRING     PUC       470
           403                     1     S=FILES  BSSENT 1           FILVEC.   VECTOR OF FILE POINTERS           PUC       471
           404                     1     S=GPL    BSSENT 1           GPL.      GLOBAL PARAMETER LIST             PUC       472
           405                     1     S=LA     BSSENT 1           LA.       LABEL ASSIGN-ED WORDS             PUC       473
           406                     1     S=LC     BSSENT 1           LC.       LOCAL COPIES OF FP VALUES         PUC       474
           407                     1     S=LENP   BSSENT 1           LENP.     PROGRAM-UNIT LENGTH               PUC       475
           410                     1     S=LMC    BSSENT 1           LMC.      FCL - LEXICAL MULTIPLE COMPARE    PUC       476
           411                     1     S=MMC    BSSENT 1           MMC.      FCL - MOVE MULTIPLE CHARACTER     PUC       477
           412                     1     S=IT     BSSENT 1           IT.       OPTIMIZER TEMPS                   PUC       478
           413                     1     S=INIT   BSSENT 1           QXNTRY    FCL - INITIALIZATION              PUC       479
           414                     1     S=OT     BSSENT 1           OT.       OPTIMIZER TEMPS                   PUC       480
           415                     1     S=RD     BSSENT 1           RD.       RUN-TIME DIM TABLE                PUC       481
           416                     1     S=SA1    BSSENT 1           SAVEA1                                      PUC       482
           417                     1     S=SA0    BSSENT 1           SAVEA0                                      FC5A436    16
           420                     1     S=SLI    BSSENT 1           SLI.  FCL - SUB LEVEL0 INSTRUCTS.           PUC       483
           421                     1     S=SPA    BSSENT 1           SP5.      FCL - SUBSTITUTE PARAMETER ADDRS  PUC       484
           422                     1     S=ST     BSSENT 1           ST.       STATEMENT TEMPORARIES             PUC       485
           423                     1     S=SUB    BSSENT 1           SUB.      ARRAY OF ADDSUB DESCRIPTORS       PUC       486
           424                     1     S=SUBI   BSSENT 1           SUBI.     ARRAY OF ADDSUB INDICES           PUC       487
           425                     1     S=SUB0I  BSSENT 1           SUB0I.    ARRAY OF ADDSUB0 INDICES          PUC       488
           426                     1     S=TRACE  BSSENT 1           TRACE.    TRACEBACK WORD                    PUC       489
           427  00000000000000000000     S=TA0    CONENT 0           TEMPA0.   REMEMBER (A0) FROM ENTRY          PUC       490
           430                     1     S=UPW    BSSENT 1           UNIT POINTER WORD                           PUC       491
           431                     1     S=VALUE  BSSENT 1           VALUE.    FUNCTION RESULT                   PUC       492
           432  00000000000000000000     S=VD     CONENT 0           VD.       VARDIM TEMPS                      PUC       493
                                                                                                                 PUC       494
                                         Z.SORD   EQUENT *-F.SORD                                                PUC       495
                                                                                                                 PUC       496
                                                                                                                 PUC       497
                                         S$CON    EQUENT S=CON       THESE SYNONYMS FOR CCG                      PUC       498
                                         S$IT     EQUENT S=IT                                                    PUC       499
                                         S$LC     EQUENT S=LC                                                    PUC       500
                                         S$OT     EQUENT S=OT                                                    PUC       501
                                         S$VD     EQUENT S=VD                                                    PUC       502
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    21
        ERROR TYPE DEFINITIONS.                                       ERRTYP
  
                                        **        ERRTYP - MACRO TO SETUP ERROR TYPES AND LISTING FLAGS          PUC       505
                                        *                                                                        PUC       506
                                        *                                                                        PUC       507
                                        * TYPE    ERRTYP EL,(WORD)                                               PUC       508
                                        *                                                                        PUC       509
                                        *         *TYPE* = TYPE OF THE ERROR AS USED IN *ERROR* MACRO CALLS.     PUC       510
                                        *                  ONLY THE FIRST LETTER WILL BE USED.                   PUC       511
                                        *         *EL*   = ERROR LEVEL VALUE FOR THE CLASS OF ERROR.  COMPARED   PUC       512
                                        *                  WITH CO.EL TO DETERMINE IF THE *TYPE* OF ERROR JUST   PUC       513
                                        *                  SELECTED IS TO BE PRINTED.                            PUC       514
                                        *         (WORD) = BANNER WORD PRINTED WITH ERROR OF THIS *TYPE*.        PUC       515
                                                                                                                 PUC       516
                                                                                                                 PUC       517
                                                  MACRO  ERRTYP,T,E,W                                            PUC       518
                                         A        MICRO  1,9,$_W         $                                       PUC       519
                                         B        MICRO  1,1, T                                                  PUC       520
                                         C        MICRO  1,1,/"A" /                                              PUC       521
                                                  ENTRY  ERR."B"                                                 PUC       522
                                         ERR."B"  VFD    24/4R"C" * ,18/=10H "A",18/E                            PUC       523
                                         ERRTYP   RMT=   (ERR="B"    CONENT 0)                                   PUC       524
                                         ERRTYP   ENDM                                                           PUC       525
  
  
  
  
                                        **        ERRTYP - TABLE OF ERROR FLAG WORDS.                            PUC       527
                                                                                                                 PUC       528
           433                           ERRTYP   BSSENT 0           TABLE OF ERROR FLAG WORDS                   PUC       529
      L      0                                    LOC    0                                                       PUC       530
                                        ****                                                                     PUC       531
      L      0  01554755001407 +         ANSI     ERRTYP ,(ANSI)                                                 PUC       532
      L      1  15554755001410 +         MDERR    ERRTYP ,(MDEP)                                                 F1037F5   185
      L      2                                    IFEQ   TEST,ON,1                                               PUC       533
                                         DEBUG    ERRTYP EL=D,(DEBUG)                                            PUC       534
      L      2  24554755001411 +         TRIVIAL  ERRTYP EL=T,(TRIVIAL)                                          PUC       535
      L      3  27554755001412 +         WARNING  ERRTYP EL=W,(WARNING)                                          PUC       536
      L      4  06554755001413 +         FATAL    ERRTYP EL=F,(FATAL)                                            PUC       537
      L      5  03554755001414 +         KILL     ERRTYP EL=C,(CATASTROPH)                                       PUC       538
      L      6  55554755001415 +         CONTINUE ERRTYP ,( )                                                    PUC       539
      L      7                          ****                                                                     PUC       540
      L      7                           N.ERRT   BSSENT 0           NUMBER OF ERROR TYPES                       PUC       541
           442                                    LOC    *O                                                      PUC       542
                                         ERRTYP   HERE                                                           PUC       543
           451  00000000000000000000     E=TOTAL  CONENT 0           COUNT OF ALL ERRORS IN STATEMENT            PUC       544
                                                  PURGMAC ERRTYP                                                 PUC       545
                                                                                                                 FC5A158A   87
                                        **        MEM DOWN FIELD LENGTH FOR *GO* MODE.                           FC5A158A   88
                                                                                                                 FC5A158A   89
           452  00000340000000000000     LDRFL    VFD    12/0,18/MEM.GOFL,30/0                                   FC5A158A   90
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    22
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
                                        **        PUC - PROGRAM UNIT CONTROLLER.                                 PUC       548
                                        *                                                                        PUC       549
                                        *         ENTRY - FROM OVERLAY INITIALIZATION OR WHEN PREVIOUS           PUC       550
                                        *                COMPILATION IS COMPLETE OR ABANDONED.                   PUC       551
                                        *                DECIDES WHETHER TO TERMINATE COMPILATION,               PUC       552
                                        *                PASS CONTROL TO COMPASS, OR BEGIN ANOTHER               PUC       553
                                        *                PROGRAM UNIT.                                           PUC       554
                                        *                                                                        PUC       555
                                        *         EXITS  TO *ENDFTN* - IF END OF RECORD.                         PUC       556
                                        *                TO *LDCOM* - IF INTERMIXED ASSEMBLY.                    PUC       557
                                        *                                                                        PUC       558
                                        *         CALLS  CAF,CDD,CGL,CLOSE,FEL,MESSAGE,                          PUC       559
                                        *                PLINE,PUP,RECALL,REL,WRITER,WRITEC                      PUC       560
                                                                                                                 PUC       561
                                                                                                                 PUC       562
           453                           PUC      BSSENT 0           ENTRY...                                    PUC       563
                                                                                                                 PUC       564
                                                                                                                 PUC       565
                                        **        SET UP LISTING PAGE FOR NEXT PROGRAM UNIT.                     PUC       566
                                                                                                                 PUC       567
           453  5140000000 X                      SA4    CO.PS                                                   FC5A107     9
                          5120000000 X            SA2    CP.LSTF                                                 PUC       569
           454  5130000000 X                      SA3    CP.PAGE                                                 PUC       570
                          5110000000 X            SA1    CP.BLF                                                  FC5A261     5
           455  73741                             SX7    X4+B1                                                   PUC       571
                     5170000225 +                 SA7    LCNT        SET EMPTY PAGE                              PUC       572
                               54771              SA7    A7+B1       EMPTY PAGE ON E-FILE                        PUC       573
           456  20101                             LX1    1                                                       FC5A261     6
                     11223                        BX2    X2*X3       EXTRACT EVEN/ODD PAGE COUNT IF LISTING ON   PUC       575
                          11112                   BX1    X1*X2                                                   PUC       576
                               36631              IX6    X3+X1                                                   PUC       577
           457  0323000460 +                      PL     X3,PUC1     IF PROPAGATING PAGE COUNT                   PUC       578
                          43602                   MX6    2                                                       FC5A164    19
                               11663              BX6    X6*X3                                                   FC5A164    20
                                                                                                                 F1039      82
           460  54630                    PUC1     SA6    A3          UPDATE/RESET PAGE COUNT                     PUC       580
                     76710                        SX7    B1                                                      F1039      83
                          5170001230 +            SA7    NPU         RESET NEXT PROGRAM UNIT FLAG                F1039      84
           461  0301000464 +                      ZR     X1,PUC2     IF (EVEN PAGE COUNT) OR (SHORT/NO LIST)     PUC       581
                          6160001416 +            WRITEH F.OUT,(=2L1 ),1  MAINTAIN PAGE PARITY                   PUC       582
                                                                                                                 PUC       583
                                                                                                                 PUC       584
                                        **        CLEAN UP SCRATCH FILES.                                        PUC       585
                                                                                                                 PUC       586
           464  5110000000 X             PUC2     SA1    CP.IFMT                                                 PUC       587
                          0331000472 +            MI     X1,PUC3     IF EOR ON LAST READ                         PUC       588
           465  13666                             BX6    0                                                       PUC       589
                     5120000000 X                 SA2    RAPFLAG     READ ALREADY PERFORMED FLAG                 PUC       590
                               54620              SA6    A2          RESET RAP FLAG                              PUC       591
           466  0312000474 +                      NZ     X2,PUC4     IF READ ALREADY PERFORMED                   PUC       592
                          6160000000 X            READC  F.IN,CP.CARD,16  GET NEXT INPUT LINE                    PUC       594
           471  0301000474 +                      ZR     X1,PUC4     IF NOT EOR ON INPUT                         PUC       595
                                                                                                                 F1039      85
           472                           PUC3     BSS                                                            PUC       596
           472  0100000741 +                      RJ     CAF         CLOSE ALL FILES                             PUC       597
           473  0400000577 +                      EQ     ENDFTN      TERMINATE COMPILATION                       PUC       598
                                                                                                                 PUC       599
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    23
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
           474  5120000000 X             PUC4     SA2    CO.OPT                                                  FC50090     5
                          0302000477 +            ZR     X2,PUC4A    IF NOT CCG MODE                             FC50090     6
           475  7120000000 X                      CLOSE  F.IL,UNLOAD                                             FC50090     7
                                                                                                                 F1039      86
                                         .RM      IFNE   CP#RM,0,1                                               FC50090     8
                                                  OPEN   F.IL                                                    FC50090     9
                                                                                                                 FC50090    10
           477  5120000000 X             PUC4A    SA2    FV.LGO                                                  FC50090    11
                          5110000000 X            SA1    CO.LOO                                                  PUC       601
           500  12312                             BX3    X1+X2                                                   PUC       602
                     0303000514 +                 ZR     X3,PUC7     IF NEITHER BINARY NOR OBJECT LISTING        PUC       603
           501  0302000503 +                      ZR     X2,PUC5     IF NO BINARY                                PUC       604
                                                                                                                 PUC       605
                                                  IFEQ   CP#RM,0,1   IF USING DIRECT CIO                         PUC       606
                          7120000000 X            RECALL F.LGO                                                   PUC       607
                                                                                                                 PUC       608
           503  5140000211 +             PUC5     SA4    BINIO                                                   PUC       609
                          5120000000 X            SA2    CO.OPT                                                  PUC       610
           504  7160000000                        SX6    0                                                       PUC       611
                          0302000506 +            ZR     X2,PUC6     IF NOT CCG MODE                             PUC       612
           505  7160777776                        SX6    -1                                                      FC50090    12
                                                                                                                 F1039      87
           506  54640                    PUC6     SA6    A4          RESET (BINIO)                               PUC       615
                     10044                        BX0    X4                                                      PUC       616
                          5110000000 X            SA1    CO.OPT                                                  FC5A158A   93
           507  0311000512 +                      NZ     X1,PUC6A    IF NOT QCG MODE                             FC5A158A   94
                          7120000000 X            SETFIL FILE=F.PB,MODE=RESET    MAKE F.PB LOOK REWOUND          PUC       617
                                                                                                                 F1039      88
           512  0300000514 +             PUC6A    ZR     X0,PUC7     IF ACTUAL I/O NOT PERFORMED                 FC5A261     7
                          7120000000 X            CLOSE  F.PB,UNLOAD                                             PUC       619
                                                                                                                 F1039      89
                                         .RM      IFNE   CP#RM,0,1                                               FC5A158A   96
                                                  OPEN   F.PB                                                    FC5A158A   97
                                                                                                                 FC5A132    27
           514  5120000321 +             PUC7     SA2    REFIO                                                   FC5A132    28
                          0322000522 +            PL     X2,PUC8     IF REF NOT SPILLED TO DISK                  PUC       623
           515  43600                             MX6    0                                                       PUC       624
                     54620                        SA6    A2                                                      PUC       625
                          7120000000 X            CLOSE  F.REF,UNLOAD                                            PUC       626
                                                                                                                 F1039      90
                                         .RM      IFNE   CP#RM,0,1                                               FC5A158A   98
                                                  OPEN   F.REF                                                   FC5A158A   99
                                                                                                                 F1039      91
           517  5110000000 X                      SA1    CO.OPT                                                  FC5A158A  100
                          0311000522 +            NZ     X1,PUC8     IF NOT QCG MODE                             FC5A158A  101
           520  7120000000 X                      SETFIL FILE=F.REF,MODE=RESET   MAKE F.REF LOOK REWOUND         FC5A109     4
                                                                                                                 PUC       627
                                                                                                                 PUC       628
                                        **        CHECK FOR COMPASS *IDENT*.                                     PUC       629
                                                                                                                 PUC       630
           522  5150001415 +             PUC8     SA5    =1H                                                     PUC       631
                          5120000000 X            SA2    CP.CARD                                                 PUC       632
           523  43044                             MX0    6*CHAR                                                  PUC       633
                     54321                        SA3    A2+B1                                                   PUC       634
                          5140001417 +            SA4    =6LIDENT                                                PUC       635
           524  37125                             IX1    X2-X5                                                   PUC       636
                     0311000535 +                 NZ     X1,PUC9     IF COLS. 1-10 NOT BLANK                     PUC       637
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    24
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
                               11603              BX6    X0*X3                                                   PUC       638
           525  37446                             IX4    X4-X6                                                   PUC       639
                     0314000535 +                 NZ     X4,PUC9     IF COL 11-16 NOT *IDENT *                   PUC       640
           526  5120000000 X                      SA2    CP.PAGE                                                 FC5A164    21
                          20201                   LX2    59-58                                                   FC5A164    22
           527  0322000531 +                      PL     X2,PUC85    IF NOT LIST OUTPUT                          FC5A164    23
                          7120000000 X            WRITER F.OUT,RCL                                               FC5A164    24
                                                                                                                 FC5A164    25
           531  5120000000 X             PUC85    SA2    CP.EPAG                                                 FC5A164    26
                          20201                   LX2    59-58                                                   FC5A164    27
           532  0322000000 X                      PL     X2,LDCOM    IF NO ERROR LIST OUTPUT                     FC5A164    28
                          7120000000 X            WRITER =XF.ERRS,RCL                                            PUC       647
           534  0400000000 X                      EQ     LDCOM       LOAD COMPASS (1,0)...                       PUC       648
                                                                                                                 PUC       649
                                                                                                                 PUC       650
                                                                                                                 PUC       651
                                        **        ADJUST CARRIAGE CONTROL FOR EFILE.                             FC5A115    16
                                                                                                                 FC5A115    17
           535  5150000000 X             PUC9     SA5    CP.EPAG                                                 FC5A115    18
                          0305000545 +            ZR     X5,PUC11    IF EFILE NOT WRITTEN ON BY COMPASS          FC5A115    19
           536  5150000000 X                      SA5    CO.PWE                                                  FC5A115    20
                          5120001420 +            SA2    =10H-                                                   FC5A115    21
           537  10622                             BX6    X2                                                      FC5A115    22
                     7120000000 X                 SX2    TL.EJCT                                                 FC5A115    23
           540  7222000000 X                      SX2    X2+ERFO     X2 = ADDRESS FOR STORE                      F1039      92
                          7255777601              SX5    X5-126                                                  FC5A420    11
           541  0325000544 +                      PL     X5,PUC10    IF EFILE NOT IN PW MODE                     FC5A115    26
                          7120000000 X            SX2    O.TTLA                                                  FC5A115    27
           542  5222000000 X                      SA2    X2+ERFO                                                 F1039      93
                          43614                   MX6    2*CHAR                                                  FC5A115    29
                               15626              BX6    -X6*X2      ERASE PREVIOUS CARRIAGE CONTROL             FC5A115    30
           543  5130001421 +                      SA3    =2L-                                                    FC5A115    31
                          12663                   BX6    X6+X3       MERGE NEW ONE                               FC5A115    32
                               74220              SX2    A2          X2 = ADDRESS FOR STORE                      FC5A115    33
                                                                                                                 FC5A115    34
           544  53620                    PUC10    SA6    X2          UPDATE CARRIAGE CONTROL                     FC5A115    35
                                                                                                                 FC5A115    36
                                                                                                                 FC5A115    37
                                        **        PROCESS NEXT PROGRAM UNIT.                                     FC5A115    38
                                                                                                                 FC5A115    39
           545  0100000000 X             PUC11    CALL   FEL         FRONT END LOADER                            FC5A115    40
           546  0100000000 X                      CALL   CGL         CODE GENERATOR LOADER                       PUC       655
           547  0100000000 X                      CALL   REL         REAR END LOADER                             PUC       656
                                                                                                                 PUC       657
                                                                                                                 PUC       658
                                        **        UPDATE STORAGE USED.                                           PUC       659
                                                                                                                 PUC       660
           550  5110000000 X                      SA1    CP.AFLS                                                 PUC       661
                          5120000301 +            SA2    PU.MFL      PROGRAM UNIT MAX FL                         PUC       662
           551  37612                             MX6    X1+X2       MAX USED FOR PROGRAM UNIT                   PUC       663
                     5130000000 X                 SA3    CP.MXFL                                                 PUC       664
           553  7216000077                        SX1    X6+77B                                                  PUC       665
                          21106                   AX1    6                                                       PUC       666
                               20106              LX1    6           ROUND UP TO NEAREST 100B                    PUC       667
           554  10211                             BX2    X1                                                      PUC       668
                     37623                        MX6    X2+X3       MAX CORE USED BY ANY PROGRAM UNIT           PUC       669
                          54630                   SA6    A3                                                      PUC       670
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    25
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
                                                                                                                 PUC       671
                                         .SPY     IFEQ   .SPY,ON     IF SPYING                                   PUC       672
                                                  SA1    SPYW                                                    PUC       673
                                                  ZR     X1,PUC13    IF NOT SPYING THIS TIME                     FC5A115    41
                                                  SA1    CP.AFLS                                                 PUC       675
                                                  CALL   COD                                                     PUC       676
                                                  LX6    12                                                      PUC       677
                                                  SX5    2R  -2RB                                                PUC       678
                                                  IX6    X6-X5                                                   PUC       679
                                                  SA6    PUCA+1      FL USED                                     PUC       680
                                                  SA1    IDENT                                                   PUC       681
                                                  CALL   SFN         SPACE FILE PROGRAM NAME                     PUC       682
                                                  SA6    PUCA                                                    PUC       683
                                                  MESSAGE PUCA,,R    PROGNAM  NNNNNNB CM USED                    PUC       684
                                                                                                                 F1039      94
                                         PUC13    BSS                                                            FC5A115    42
                                         .SPY     ENDIF                                                          PUC       686
                                                                                                                 PUC       687
                                                                                                                 PUC       688
                                        **        LIST PROGRAM UNIT STATISTICS.                                  PUC       689
                                                                                                                 PUC       690
           556  5110000000 X                      SA1    CP.AFLS                                                 PUC       691
                          0100000000 X            CALL   LUS         LIST UNIT STATISTICS                        PUC       692
                                                                                                                 PUC       693
                                                                                                                 PUC       694
                                        **        RESET PROGRAM UNIT START TIME.                                 FC5A132    29
                                                                                                                 FC5A132    30
           557  0100000673 +                      CALL   TIMER                                                   F1039      95
           560  5160000000 X                      SA6    TIME1                                                   FC5A132    32
                                                                                                                 FC5A132    33
                                        **        RETURN TO INITIAL FIELD LENGTH.                                FC5A132    34
                                                                                                                 FC5A132    35
                          5130000000 X            SA3    INT.FL                                                  FC5A132    36
           561  5120000220 +                      SA2    O.TABS                                                  PUC       698
                          7222003012              SX2    X2+MIN.TABS+10                                          FC5A132    37
           562  37123                             MX1    X2+X3       SELECT MAX OF TWO VALUES                    PUC       700
                     7211000077                   SX1    X1+77B                                                  FC5A132    38
                               21106              AX1    6                                                       FC5A132    39
           564  20106                             LX1    6           ROUND UP TO NEXT 100B                       FC5A132    40
                     5120000000 X                 SA2    CP.AFLS     CURRENT FL                                  PUC       701
                               37612              IX6    X1-X2                                                   PUC       702
           565  0306000571 +                      ZR     X6,PUC20    IF CURRENT = INITIAL                        PUC       703
                          0100001051 +            RJ     GMC         RETURN TO INITIAL FL                        PUC       704
                                                                                                                 PUC       705
                                                  IFEQ   TEST,ON,1   IF TEST MODE                                PUC       706
                                                  NE     B7,B1,"BLOWUP"    IF REQUEST NOT HONORED                PUC       707
                                                                                                                 PUC       708
           566  5110000220 +                      SA1    O.TABS      ORIGIN OF TABLE AREA                        PUC       709
                          37661                   IX6    X6-X1                                                   PUC       710
           567  5160000326 +                      SA6    L.TABS      LENGTH OF TABLE AREA                        PUC       711
                          21604                   AX6    FLSLOP                                                  PUC       712
           570  7266001000                        SX6    X6+FLSLUP                                               PUC       713
                          5160000324 +            SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                  PUC       714
                                                                                                                 PUC       715
                                                                                                                 PUC       716
                                        **        SEND ANSI AND MACHINE DEPENDENT ERROR                          F1037F5   186
                                        *         SUMMARIES TO DAYFILE AND CONSOLE.                              F1037F5   187
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    26
        PROGRAM UNIT CONTROLLER.                                      PUC 
  
                                                                                                                 F1037F5   188
           571  76500                    PUC20    =X5    ERR.A       STARTING OFFSET                             F1037F5   189
                     5110000000 X                 SA1    CO.ANSI                                                 F1037F5   190
           572  0311000573 +                      NZ     X1,PUC30    IF ANSI DIAGNOSTICS DESIRED                 F1037F5   191
                          7150000001              SX5    ERR.M       AVOID ANSI DIAGNOSTICS                      F1037F5   192
                                                                                                                 F1037F5   193
           573  76610                    PUC30    =X6    ERR.M       ENDING OFFSET                               F1037F5   194
                                   0              ERRNZ  ERR.M-ERR.A-1     MUST BE CONSECUTIVE                   F1037F5   195
                     0100001112 +                 RJ     PES         PRINT ERROR SUMMARY                         F1037F5   196
                                                                                                                 F1037F5   197
                                        **        SEND REST OF ERROR SUMMARIES TO DAYFILE AND CONSOLE.           F1037F5   198
                                                                                                                 F1037F5   199
           574  76511                             =X5    ERR.M+1     STARTING OFFSET                             F1037F5   200
                     7160000006                   =X6    ERR.C       ENDING OFFSET                               F1037F5   201
                                  -4              ERRPL  ERR.T-ERR.C                                             F1037F5   202
           575  0100001112 +                      RJ     PES         PRINT ERROR SUMMARY                         F1037F5   203
           576  0400000453 +                      EQ     PUC         LOOP FOR NEXT PROGRAM UNIT...               PUC       773
                                                                                                                 PUC       774
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    27
        TERMINATE COMPILATION                                         ENDFTN
  
                                        **        TERMINATE COMPILATION.                                         FC5A158A  103
                                                                                                                 FC5A158A  104
                                                                                                                 FC5A158A  105
           577                           ENDFTN   BSSENT 0           ...ENTER HERE TO TERMINATE COMPILATION      FC51347     6
  
  
  
  
                                        **        SEND FL USED TO DAYFILE.                                       FC5A158A  108
                                                                                                                 FC5A158A  109
           577  5110000000 X                      SA1    CP.MXFL     MAX FL USED                                 FC5A158A  110
                          0100000000 X            CALL   COD         CONVERT OCTAL DIGITS                        FC5A158A  111
           600  5160000664 +                      SA6    FLUSED                                                  FC5A158A  112
                          7110000664 +            MESSAGE FLUSED,,RCL                                            FC5A158A  113
                                                                                                                 FC5A158A  114
                                                                                                                 FC5A158A  115
                                        **        SEND COMPILATION TIME TO DAYFILE.                              FC5A158A  116
                                                                                                                 FC5A158A  117
           603  5120000000 X                      SA2    TIME0       START OF COMPILATION TIME                   FC5A158A  118
                          0100000667 +            CALL   CPTIM       COMPUTE/CONVERT ELAPSED CPU TIME            FC5A158A  119
           604  5160000657 +                      SA6    CPTMSG      TIME TO DAYFILE MESSAGE TEXT                FC5A158A  120
                          7110000657 +            MESSAGE CPTMSG,,RCL                                            FC5A158A  121
                                                                                                                 FC5A158A  122
                                                                                                                 FC5A158A  123
                                        **        TURN OFF PPU PROGRAM SPY.                                      FC5A158A  124
                                                                                                                 FC5A158A  125
                                         .SPY     IFEQ   .SPY,ON     IF SPY OPTION                               FC5A158A  126
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              FC5A158A  127
                                                  CALL   OFFSPY                                                  FC5A158A  128
                                         .SPY     ENDIF                                                          FC5A158A  129
                                                                                                                 FC5A158A  130
                                                                                                                 FC5A158A  131
                                        **        PROCESS ABNORMAL TERMINATION CONDITIONS.                       FC5A158A  132
                                                                                                                 FC5A158A  133
           607  5110000000 X                      SA1    CP.ERCT                                                 FC5A158A  134
                          5120000000 X            SA2    CP.ABT                                                  FC5A158A  135
           610  43301                             MX3    1                                                       FC5A158A  136
                     15113                        BX1    -X3*X1      CLEAR BINARY REGARDLESS FLAG                FC5A158A  137
                          20336                   LX3    59-29                                                   FC5A158A  138
                               11223              BX2    X2*X3                                                   FC5A158A  139
           611  0301000614 +                      ZR     X1,END4     IF NO COMPILATION OR ASSEMBLY ERRORS        FC5A158A  140
                          0302000614 +            ZR     X2,END4     IF ABORT (ET=0) OPTION OFF                  FC5A158A  141
                                                                                                                 FC5A158A  142
                                                  IFEQ   CP#RM,0,1   IF USING CIO I/O                            FC5A158A  143
           612  0100000703 +                      CALL   WFA         WAIT FILE ACTIONS                           FC5A158A  144
           613  0400000000 X                      EQ     =XABTFTN                                                FC5A158A  145
                                                                                                                 FC5A158A  146
                                        **        PROCESS AUTO EXECUTE (GO-OPTION) REQUEST.                      FC5A158A  147
                                                                                                                 FC5A158A  148
           614  5110000000 X             END4     SA1    CO.GO                                                   FC5A158A  149
                          0301000637 +            ZR     X1,END5     IF GO-OPTION OFF                            FC5A158A  150
                                                                                                                 FC5A158A  151
           615  10611                             BX6    X1                                                      FC5A158A  152
                     5160000064                   SA6    RA.PGN      POST FILE/PROGRAM NAME FOR MSG AND LOADER   FC5A158A  153
                                                                                                                 FC5A158A  154
                                         .RM      IFEQ   CP#RM,0     IF USING *CIO* DIRECT I/O                   FC5A158A  155
           616  0100000703 +                      CALL   WFA         WAIT FILE ACTIONS -- ALL QUIET              FC5A158A  156
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    28
        TERMINATE COMPILATION                                         ENDFTN
  
                                         .RM      ENDIF                                                          FC5A158A  157
                                                                                                                 FC5A158A  158
                                         .OS      IFNE   .OS,2       IF NOT SCOPE 2                              FC5A158A  159
           617  7160150515                        MEMORY SCM,LDRFL,RCL     RFL DOWN BEFORE CALLING LOADER        FC5A158A  160
                                         .EC      IFNE   CT.ECS,0                                                FC5A404     6
           622  5110000000 X                      SA1    CP.ILFL                                                 FC5A404     7
                          10611                   BX6    X1                                                      FC5A404     8
                               20636              LX6    30                                                      FC5A404     9
           623  5160000000 X                      SA6    GT1         INITIAL LCM FIELD LENGTH                    FC5A404    10
                          7160150515              MEMORY LCM,GT1,R,,NOABT  RETURN TO INITIAL LCM FL              FC5A404    11
                                         .EC      ENDIF                                                          FC5A404    12
                                         .OS      ENDIF                                                          FC5A158A  161
                                                                                                                 FC5A158A  162
           627  43700                             RPVOFF GT1         CANCEL REPRIEVE REQUEST                     FC5A158A  163
                                                                                                                 FC5A158A  164
           632  7110000064                        MESSAGE RA.PGN,,RCL                                            FC5A158A  165
           634  7160140426                        LOADREQ   0                                                    FC5A158A  166
           636  0400000636 +            +         EQ     *           WAIT FOR OP SYS TO PICK UP REQUEST          FC5A158A  167
                                                                                                                 FC5A158A  168
                                                                                                                 FC5A158A  169
                                        **        TERMINATE COMPILATION NORMALLY.                                FC5A158A  170
                                                                                                                 FC5A158A  171
           637                           END5     BSS    0                                                       FC5A158A  172
                                                  IFEQ   CP#RM,0,1   IF USING CIO I/O                            FC5A158A  173
           637  0100000703 +                      CALL   WFA         WAIT FILE ACTIONS                           FC5A158A  174
           640  5110000000 X                      SA1    INT.FL      INITIAL FL                                  FC5A158A  175
                          5120000000 X            SA2    CP.AFLS     CURRENT FL                                  FC5A158A  176
           641  37612                             IX6    X1-X2                                                   FC5A158A  177
                     0306000646 +                 ZR     X6,END10    IF CURRENT = INITIAL FL                     FC5A158A  178
                               10611              BX6    X1                                                      FC5A158A  179
           642  20636                             LX6    30                                                      FC5A158A  180
                     5160000000 X                 SA6    GT1                                                     FC5A158A  181
           643  7160150515                        MEMORY SCM,GT1,RCL RETURN TO INITIAL FL                        FC5A158A  182
                                                                                                                 FC5A158A  183
           646  5110000000 X             END10    SA1    CP.ILFL     INITIAL LCM FL                              FC5A158A  184
                          5120000000 X            SA2    CP.AFLL     CURRENT LCM FL                              FC5A158A  185
           647  37612                             IX6    X1-X2                                                   FC5A158A  186
                     0306000655 +                 ZR     X6,END15    IF CURRENT = INITIAL LCM FL                 FC50314     6
                               10611              BX6    X1                                                      FC5A158A  188
           650  20636                             LX6    30                                                      FC5A158A  189
                     5160000000 X                 SA6    GT1                                                     FC5A158A  190
           651  7160150515                        MEMORY LCM,GT1,R,,NOABT  RETURN TO INITIAL LCM FL              FC5A158A  191
                                                                                                                 FC5A158A  192
           655  7160247021               END15    ENDRUN                                                         FC50314     7
                                                                                                                 FC5A158A  195
                                                                                                                 FC5A158A  196
                                        **        DAYFILE MESSAGES.                                              FC5A158A  197
                                                                                                                 FC5A158A  198
           657  55555516161657161616     CPTMSG   DIS    ,/   NNN.NNN CP SECONDS COMPILATION TIME./              FC5A158A  199
           664  00000000000000000000     FLUSED   CON    0                                                       FC5A158A  200
           665  55031555232417220107              DIS    ,/ "SCM" STORAGE USED./                                 FC5A158A  201
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    29
        TERMINATE COMPILATION                                         CPTIME
  
                                        **        CPTIME - COMPUTE AND CONVERT ELAPSED CPU TIME.                 FC5A158A  203
                                        *                                                                        FC5A158A  204
                                        *         ENTRY  (X2) = CPU START TIME IN MILLISECONDS                   FC5A158A  205
                                        *                                                                        FC5A158A  206
                                        *         EXIT   (X6) = DPC ELAPSED TIME, F10.3 FORMAT                   FC5A158A  207
                                        *                                                                        FC5A158A  208
                                        *         CALLS  TIMER, CFD                                              FC5A158A  209
                                                                                                                 FC5A158A  210
                                                                                                                 FC5A158A  211
           667  0400400667 +             CPTIM    SUBR   =           ENTRY/EXIT...                               FC5A158A  212
           670  0100000673 +                      CALL   TIMER       RETURNS (X6) = CURRENT CPTIME               FC5A158A  213
           671  37162                             IX1    X6-X2       (X1) = ELAPSED TIME (BINARY)                FC5A158A  214
                     0100000712 +                 CALL   CFD         CONVERT FLOATING DIGITS TO F10.3            FC5A158A  215
           672  0400000667 +                      EQ     EXIT.       EXIT...                                     FC5A158A  216
  
  
  
  
                                        **        TIMER - OBTAIN ACCUMULATED CPU TIME.                           FC5A158A  218
                                        *                                                                        FC5A158A  219
                                        *         TIME IS CONVERTED INTO AN INTEGRAL NUMBER OF MILLISECONDS.     FC5A158A  220
                                        *                                                                        FC5A158A  221
                                        *         ENTRY  NO REQUIREMENTS                                         FC5A158A  222
                                        *                                                                        FC5A158A  223
                                        *         EXIT   (X6) = CURRENT CPU TIME IN MILLISECONDS                 FC5A158A  224
                                        *                                                                        FC5A158A  225
                                        *         USES   X - 0, 3, 4, 5, 6                                       FC5A158A  226
                                        *                A - 5                                                   FC5A158A  227
                                        *                B - NONE                                                FC5A158A  228
                                        *                                                                        FC5A158A  229
                                        *         CALLS  TIME                                                    FC5A158A  230
                                                                                                                 FC5A158A  231
                                                                                                                 FC5A158A  232
           673  0400400673 +             TIMER    SUBR   =           ENTRY/EXIT...                               FC5A158A  233
           674  7160241115                        TIME   GT1                                                     FC5A158A  234
           677  5150000000 X                      SA5    GT1                                                     FC5A158A  235
                          43060                   MX0    60-12                                                   FC5A158A  236
                               15450              BX4    -X0*X5      MSEC                                        FC5A158A  237
           700  21514                             AX5    12                                                      FC5A158A  238
                     7130001750                   SX3    1000D       SEC * 1000                                  FC5A158A  239
                               43044              MX0    60-24                                                   FC5A158A  240
           701  15550                             BX5    -X0*X5                                                  FC5A158A  241
                     42353                        IX3    X5*X3                                                   FC5A158A  242
                          36634                   IX6    X3+X4                                                   FC5A158A  243
           702  0400000673 +                      EQ     EXIT.       EXIT...                                     FC5A158A  244
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    30
        TERMINATE COMPILATION                                         WFA 
  
                                        **        WFA - WAIT FILE ACTIONS.                                       FC5A158A  246
                                        *                                                                        FC5A158A  247
                                        *         WAIT FOR ALL FILES IDLE.                                       FC5A158A  248
                                        *                                                                        FC5A158A  249
                                        *         ENTRY  (RA.ARG) = FIRST WORD OF FILE VECTOR TABLE.             FC5A158A  250
                                        *                                                                        FC5A158A  251
                                        *         CALLS  RECALL                                                  FC5A158A  252
                                                                                                                 FC5A158A  253
                                                                                                                 FC5A158A  254
                                         .RM      IFEQ   CP#RM,0     IF USING CIO I/O                            FC5A158A  255
                                                                                                                 FC5A158A  256
           703  0400400703 +             WFA      SUBR   0           ENTRY/EXIT...                               FC5A158A  257
           704  66200                             =B2    0                                                       FC5A158A  258
           705  5152000002               WFA1     SA5    B2+RA.ARG   (X5) = FILE VECTOR ENTRY                    FC5A158A  259
                          66221                   =B2    B2+1                                                    FC5A158A  260
           706  0335000703 +                      MI     X5,EXIT.    IF END OF TABLE, EXIT...                    FC5A158A  261
                          0305000705 +            ZR     X5,WFA1     IF FILE DESELECTED                          FC5A158A  262
           707  73250                             SX2    X5                                                      FC5A158A  263
                     0100000000 X                 RECALL X2                                                      FC5A158A  264
           710  0400000705 +                      EQ     WFA1        LOOP FOR MORE                               FC5A158A  265
                                         .RM      ENDIF                                                          FC5A158A  266
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    31
        COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.                   CFD 
  
           710                           CFD      CTEXT  COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.             COMCCFD     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCCFD     4
                                                  QUAL   COMCCFD                                                 COMCCFD     5
                                 D_D              BASE   D                                                       COMCCFD     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1971, 1978.        COMCCFD     7
  
  
  
  
                                        ***       CFD - CONVERT CONSTANT TO F10.3 FORMAT.                        COMCCFD     9
                                        *                                                                        COMCCFD    10
                                        *         J. C. BOHNHOFF.    71/08/15.                                   COMCCFD    11
                                        *         C. J. CONRAD.      81/08/06.                                   CPSA243     5
                                        *                                                                        CPSA243     6
                                        *         *******************************************************        CPSA243     7
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA243     8
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA243     9
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA243    10
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA243    11
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA243    12
                                        *         *******************************************************        CPSA243    13
                                        *                                                                        CPSA243    14
                                        *                                                                        COMCCFD    12
                                        *         CFD CONVERTS AN INTEGER TO DISPLAY CODE WITH A DECIMAL POINT.  COMCCFD    13
  
  
  
  
                                        ***       *CFD* CONVERTS A 30 BIT INTEGER TO DISPLAY CODE IN *FORTRAN*   CPSA243    15
                                        *         F10.34 FORMAT.  THE VALUE RETURNED IS EQUAL TO THE INPUT       CPSA243    16
                                        *         VALUE DIVIDED BY 1000D, THE RESULT IS RETURNED BOTH LEFT       CPSA243    17
                                        *         AND RIGHT JUSTIFIED AND LEADING ZEROS IN THE INTEGER PORTION   CPSA243    18
                                        *         ARE SUPPRESSED.  IF THE 30 BIT NUMBER EXCEEDS 999999.999       CPSA243    19
                                        *         (INPUT EXCEEDS 7346544777B) THE RESULT WILL BE **********.     CPSA243    20
                                        *         AN INPUT VALUE GREATER THAN 30 BITS IS TRUNCATED TO THE        CPSA243    21
                                        *         LOWER 30 BITS.                                                 CPSA243    22
                                        *                                                                        COMCCFD    20
                                        *         ENTRY  (X1) = INTEGER TO BE CONVERTED.                         COMCCFD    21
                                        *                (B1) = 1.                                               COMCCFD    22
                                        *                                                                        COMCCFD    23
                                        *         EXIT   (X6)= CONVERSION RIGHT JUSTIFIED.                       COMCCFD    24
                                        *                (X4)= CONVERSION LEFT JUSTIFIED.                        COMCCFD    25
                                        *                (B3) = -(NUMBER OF BLANK FILL BITS IN RESULT).          COMCCFD    26
                                        *                                                                        COMCCFD    27
                                        *         USES   X - 1, 2, 3, 4, 6, 7.                                   COMCCFD    28
                                        *                B - 2, 3, 4, 5.                                         COMCCFD    29
                                        *                A - 2, 3, 4.                                            CPSA243    23
                                        *                                                                        COMCCFD    31
                                        *         CALLS  NONE.                                                   COMCCFD    32
                                                                                                                 COMCCFD    33
                                                                                                                 COMCCFD    34
           711  5140000737 +             CFD3     SA4    CFDC                                                    CPSA243    24
                          66300                   SB3    B0                                                      CPSA243    25
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    32
        COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.                   CFD                 COMCCFD 
  
                               10644              BX6    X4                                                      CPSA243    26
                                                                                                                 COMCCFD    40
           712  0400400712 +             CFD      SUBR               ENTRY/EXIT                                  COMCCFD    41
           713  5120000732 +                      SA2    CFDA        =.1P48+1                                    COMCCFD    42
                          5130000734 +            SA3    CFDB        =10.0P                                      COMCCFD    43
           714  54421                             SA4    A2+B1       =7346544777B                                CPSA243    27
                     43636                        MX6    -30                                                     CPSA243    28
                          6150000006              SB5    6                                                       COMCCFD    45
           715  15616                             BX6    -X6*X1      DISCARD UPPER BITS                          CPSA243    29
                     7170001750                   SX7    1000                                                    COMCCFD    47
                               37446              IX4    X4-X6                                                   CPSA243    30
           716  0334000711 +                      MI     X4,CFD3     IF INPUT .GT. 999999.999                    CPSA243    31
                          6140777755              SB4    1R0-1R      (B4) = CONVERSION                           COMCCFD    49
           717  54431                             SA4    A3+B1       (X4) = BACKGROUND                           COMCCFD    50
                     27106                        PX1    X6                                                      COMCCFD    51
                          37767                   IX7    X6-X7                                                   COMCCFD    52
                               67205              SB2    -B5                                                     COMCCFD    53
           720  0327000721 +                      PL     X7,CFD1     IF INTEGER PRESENT                          COMCCFD    54
                          66400                   SB4    B0                                                      CPSA243    32
                               54441              SA4    A4+B1                                                   CPSA243    33
           721  42621                    CFD1     DX6    X2*X1       EXTRACT REMAINDER                           COMCCFD    57
                     40121                        FX1    X2*X1                                                   COMCCFD    58
                          26701                   UX7    X1          CHECK QUOTIENT                              COMCCFD    59
                               20466              LX4    -6          SHIFT ASSEMBLY                              COMCCFD    60
           722  66225                             SB2    B2+B5       ADVANCE SHIFT COUNT                         COMCCFD    61
                     40636                        FX6    X3*X6       EXTRACT DIGIT                               COMCCFD    62
                          73664                   SX6    X6+B4       CONVERT DIGIT                               COMCCFD    63
                               36464              IX4    X6+X4                                                   COMCCFD    64
           723  0317000721 +                      NZ     X7,CFD1     LOOP TO ZERO QUOTIENT                       COMCCFD    65
                          7130000057              SX3    1R.         INSERT DECIMAL POINT                        COMCCFD    66
           724  43252                             MX2    -18         FRACTION MASK                               COMCCFD    67
                     22624                        LX6    X4,B2       RIGHT JUSTIFY ASSEMBLY                      COMCCFD    68
                          6122000014              SB2    B2+12       CALCULATE SHIFT TO LEFT JUSTIFY             COMCCFD    69
           725  20322                             LX3    18                                                      COMCCFD    70
                     15162                        BX1    -X2*X6      EXTRACT FRACTION                            COMCCFD    71
                          6130000036              SB3    6*5                                                     COMCCFD    72
           726  36713                             IX7    X1+X3       ADD DECIMAL POINT                           COMCCFD    73
                     11426                        BX4    X2*X6       EXTRACT INTEGER                             COMCCFD    74
                          20406                   LX4    6                                                       COMCCFD    75
                               36647              IX6    X4+X7       ADD INTEGER INTO RESULT                     COMCCFD    76
           727  0723000730 +                      LT     B2,B3,CFD2  LEFT JUSTIFY RESULT                         COMCCFD    77
                          6132000000              SB3    B2+                                                     COMCCFD    78
           730  6133777703               CFD2     SB3    B3-60                                                   COMCCFD    79
                          23436                   AX4    X6,B3                                                   COMCCFD    80
           731  0400000712 +                      EQ     CFDX        RETURN                                      COMCCFD    81
                                                                                                                 COMCCFD    82
           732  17170631463146314632     CFDA     CON    0.1P48+1                                                COMCCFD    83
           733  00000000007346544777              CON    7346544777B OVERFLOW BOUNDARY                           CPSA243    34
           734  20000000000000000012     CFDB     CON    10.0P                                                   COMCCFD    84
           735  55555555555555555500              CON    9L                                                      COMCCFD    85
           736  55555555553333333300              CON    9L     0000                                             COMCCFD    86
           737  47474747474747474747     CFDC     DATA   10R**********                                           CPSA243    35
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    33
        COMCCFD - CONVERT CONSTANT TO F10.3 FORMAT.                   CFD                 COMCCFD 
  
                                 D_D              BASE   *                                                       COMCCFD    90
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCFD    91
                                                  QUAL   *                                                       COMCCFD    92
                                 712 +   CFD      EQU    /COMCCFD/CFD                                            COMCCFD    93
                                 712 +   CFD=     EQU    /COMCCFD/CFD                                            F4720D      7
                                         QUAL$    ENDIF                                                          COMCCFD    94
                                         CFD      ENDX                                                           COMCCFD    95
                                                  IFEQ   .SPY,ON,1                                               PUC       775
                                         PUCA     DATA   0,0,7LCM USED                                           PUC       776
           740                     1     PUCB     BSS    1                                                       PUC       777
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    34
        PUC SUPPORT ROUTINES                                          CAF 
  
                                        **        CAF - CLOSE ALL FILES.                                         PUC       780
                                        *                                                                        PUC       781
                                        *         ENTRY  EOR ON INPUT                                            PUC       782
                                        *                                                                        PUC       783
                                        *         CALLS  CLOSE,FA=CLO,RECALL,WRITEC,WRITER                       PUC       784
                                                                                                                 PUC       785
                                                                                                                 PUC       786
           741  0400400741 +             CAF      SUBR   =           ...ENTRY/EXIT...                            FC51347     7
                                                                                                                 PUC       788
           742  76000                             =X0    0                                                       PUC       789
                     0100000763 +                 RJ     COF         CLOSE OUTPUT FILE                           PUC       790
           743  76010                             =X0    1                                                       PUC       791
                     0100000763 +                 RJ     COF         CLOSE ERROR FILE                            PUC       792
                                                                                                                 PUC       793
                                                                                                                 PUC       794
                                        **        WRITE EOR ON LGO.                                              PUC       795
                                                                                                                 PUC       796
           744  5120000000 X                      SA2    FV.LGO                                                  F1039      96
                          0302000751 +            ZR     X2,CAF3     IF BINARY OUTPUT SUPPRESSED (B=0)           PUC       798
           745  7120000000 X                      WRITEF F.LGO                                                   FC50055     5
           747  7120000000 X                      BKSP   F.LGO                                                   PUC       800
                                                                                                                 PUC       801
                                                                                                                 PUC       802
                                        **        EVICT SCRATCH FILES                                            PUC       803
                                                                                                                 PUC       804
           751                           CAF3     BSS    0                                                       PUC       805
                                                                                                                 PUC       806
                                         .TEST    IFEQ   TEST,OFF    IF NOT TEST MODE                            PUC       807
           751  5110000211 +                      SA1    BINIO                                                   PUC       808
                          0321000754 +            PL     X1,CAF35    IF PREBIN FILE NOT USED                     PUC       809
           752  7120000000 X                      CLOSE  F.PB,UNLOAD                                             PUC       810
                                                                                                                 FC5A132    41
           754  5110000000 X             CAF35    SA1    CO.OPT                                                  FC5A132    42
                          0301000757 +            ZR     X1,CAF36    IF QCG MODE                                 FC5A132    43
           755  7120000000 X                      CLOSE  F.IL,UNLOAD                                             FC5A132    44
                                                                                                                 FC5A132    45
           757                           CAF36    BSS    0                                                       FC5A132    46
           757  5120000321 +                      SA2    REFIO                                                   PUC       816
                          0322000762 +            PL     X2,CAF4     IF REF FILE NOT USED                        PUC       817
           760  7120000000 X                      CLOSE  F.REF,UNLOAD                                            PUC       818
           762                           CAF4     BSS    0                                                       PUC       819
                                         .TEST    ENDIF                                                          PUC       820
                                                                                                                 PUC       821
                                         #RM      IFEQ   CP#RM,7     IF 7RM I/O                                  PUC       822
                                                  =B2    0                                                       PUC       823
                                         CAF5     SA2    RA.ARG+B2   (X2) = FIT ADDRESS FROM FILE VECTOR TABLE   PUC       824
                                                  =B2    B2+1                                                    PUC       825
                                                  MI     X2,CAF6     IF END OF TABLE                             PUC       826
                                                  ZR     X2,CAF5     IF FILE DESELECTED                          PUC       827
                                                  CLOSE  A2                                                      PUC       828
                                                  EQ     CAF5        LOOP FOR MORE                               PUC       829
                                                                                                                 PUC       830
                                         CAF6     BSS    0                                                       PUC       831
                                         #RM      ENDIF                                                          PUC       832
                                                                                                                 PUC       833
                                                                                                                 PUC       834
           762  0400000741 +                      EQ     EXIT.       EXIT...                                     PUC       835
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    35
        PUC SUPPORT ROUTINES
  
                                        **        COF - CLOSE OUTPUT FILE.                                       PUC       837
                                        *                                                                        PUC       838
                                        *         ENTRY  X0 = 0/1  OUTPUT/ERRS                                   PUC       839
                                                                                                                 PUC       840
           763  0400400763 +             COF      SUBR                                                           PUC       841
                                                                                                                 PUC       842
                                        *         RESET PRINT DENSITY IF NECESSARY.                              FC50353     6
                                                                                                                 PUC       844
           764  5210001226 +                      SA1    PAGELOC+X0  TOTAL NUMBER OF PAGES ON OUTPUT             FC5A164    29
                          53110                   SA1    X1                                                      FC5A164    30
                               20101              LX1    59-58                                                   FC5A164    31
           765  0321000763 +                      PL     X1,EXIT.    IF NO LINES WRITTEN                         FC5A164    32
                          5220000000 X            SA2    FV.OUT+X0                                               PUC       847
                                         .RM      IFEQ   CP#RM,0                                                 FC5A158A  268
           766  73220                             SX2    X2                                                      FC5A158A  269
                                         .RM      ELSE                                                           FC5A158A  270
                                                  SX2    A2                                                      FC5A158A  271
                                         .RM      ENDIF                                                          FC5A158A  272
                     5210000000 X                 SA1    CO.PW+X0                                                FC5A187     7
           767  0331000775 +                      MI     X1,COF10    IF FILE CONNECTED                           FC5A187     8
                                                                                                                 PUC       851
                          5110000000 X            SA1    CP.PD                                                   FC5A426    23
           770  5130000000 X                      SA3    RS.PD       JOB DEFAULT PRINT DENSITY CHAR              FC5A426    24
                          13113                   BX1    X1-X3                                                   FC5A426    25
           771  0301000775 +                      ZR     X1,COF10    IF JOB DEFAULT IN USE                       FC5A426    26
                          10633                   BX6    X3                                                      FC5A426    27
           772  5160000000 X                      SA6    GT1                                                     PUC       859
                                         .RM      IFEQ   CP#RM,0                                                 FC5A158A  273
                          5220000000 X            SA2    FV.OUT+X0                                               FC5A158A  274
                                         .RM      ELSE                                                           FC5A158A  275
                                                  SX2    FV.OUT+X0                                               FC5A158A  276
                                         .RM      ENDIF                                                          FC5A158A  277
           773  6160000000 X                      WRITEH X2,GT1,1    RESET DENSITY                               PUC       861
                                                                                                                 PUC       862
           775  7170000024               COF10    WRITER X2                                                      PUC       863
           776  0400000763 +                      EQ     EXIT.                                                   PUC       864
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    36
        COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING
  
           776                                    CTEXT  COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING          COMFECB     2
                                        **        ECB - EVALUATE CONSTANT CHARACTER BIAS.                        COMFECB     3
                                        *         FORM WC. WORD INCLUDING OPERAND BIAS AND EQUIV. OFFSET.        COMFECB     4
                                        *                                                                        COMFECB     5
                                        *         ENTRY  (X2) = SYMTAB ORD                                       COMFECB     6
                                        *                (X5) = BIAS, 60-BIT SIGNED                              COMFECB     7
                                        *                (B2) = SYMTAB FWA                                       COMFECB     8
                                        *                                                                        COMFECB     9
                                        *         EXIT   (X6) = WCA, WC. FORMAT                                  COMFECB    10
                                        *                (B7) = SYMBOL TABLE POINTER TO WHICH WCA APPLIES.       COMFECB    11
                                        *                                                                        COMFECB    12
                                        *         PRESERVES  B4,B5,B6                                            COMFECB    13
                                                                                                                 COMFECB    14
           777  0400400777 +             ECB      SUBR   =                                                       COMFECB    15
          1000  63720                             SB7    X2                                                      COMFECB    16
                     22412                        LX4    B1,X2                                                   COMFECB    17
                          36242                   IX2    X4+X2                                                   COMFECB    18
                               73022              SX0    B2+X2                                                   COMFECB    19
          1001  53401                             =A4    X0+WB.W                                                 COMFECB    20
                     54241                        =A2    A4+WC.W-WB.W                                            COMFECB    21
                          10144                   BX1    X4                                                      COMFECB    22
                               20462              HX4    WB.EQV                                                  COMFECB    23
          1002  43052                             MX0    -WC.CLENL                                               COMFECB    24
                                                  LX1    -WB.MODEP                                               COMFECB    25
                     43671                        MX6    -WB.MODEL                                               COMFECB    26
                          20236                   LX2    -WC.CLENP                                               COMFECB    27
                               15320              BX3    -X0*X2      CLEN                                        COMFECB    28
          1003  15116                             BX1    -X6*X1      MODE[WB(ORD)]                               COMFECB    29
                     7201777771                   SX0    X1-M.CHAR                                               COMFECB    30
          1004  0300001005 +                      ZR     X0,ECB5     IF MODE = CHAR                              COMFECB    31
                          7130000012              SX3    10          SIMULATE CHAR*10                            COMFECB    32
                                                                                                                 COMFECB    33
          1005  42553                    ECB5     IX5    X5*X3                                                   COMFECB    34
                     20206                        LX2    WC.CLENP-WC.BCPP                                        COMFECB    35
                          43070                   MX0    -WC.BCPL                                                COMFECB    36
                               15320              BX3    -X0*X2                                                  COMFECB    37
          1006  36653                             IX6    X5+X3                                                   COMFECB    38
                     20230                        LX2    WC.BCPP                                                 COMFECB    39
                          0334001016 +            MI     X4,ECB10    IF WB.EQV[ORD[OPD]]                         COMFECB    40
          1007  5150001422 +                      WX5    X6,X7                                                   COMFECB    41
          1013  43044                             MX0    -WC.RAL                                                 COMFECB    42
                     15550                        BX5    -X0*X5                                                  COMFECB    43
                          43040                   MX0    -WC.BCPL-WC.RAL                                         COMFECB    44
                                                  LX5    WC.RAP                                                  COMFECB    45
                               20730              LX7    WC.BCPP                                                 COMFECB    46
          1014  12157                             BX1    X5+X7                                                   COMFECB    47
                     11202                        BX2    X0*X2       CLEAR BCP AND RA                            COMFECB    48
                          12621                   BX6    X2+X1       INSTALL NEW BCP AND RA                      COMFECB    49
          1015  0400000777 +                      EQ     EXIT.                                                   COMFECB    50
                                                                                                                 COMFECB    51
          1016  20445                    ECB10    LX4    1+WB.EQVP-WB.BASEP                                      COMFECB    52
                     43060                        MX0    -WB.BASEL                                               COMFECB    53
                          15340                   BX3    -X0*X4                                                  COMFECB    54
                               63730              SB7    X3                                                      COMFECB    55
          1017  22413                             LX4    B1,X3                                                   COMFECB    56
                     43070                        MX0    -WC.BCPL                                                COMFECB    57
                          36434                   IX4    X3+X4                                                   COMFECB    58
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    37
        COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING
  
                               73442              SX4    B2+X4                                                   COMFECB    59
          1020  5244000002                        SA4    X4+WC.W                                                 COMFECB    60
                          20444                   LX4    -WC.BCPP                                                COMFECB    61
                               15040              BX0    -X0*X4                                                  COMFECB    62
          1021  36660                             IX6    X6+X0                                                   COMFECB    63
                     5150001422 +                 WX5    X6,X7                                                   COMFECB    64
          1025  20544                             LX5    -WC.RAL                                                 COMFECB    65
                     21544                        AX5    -WC.RAL     SIGN EXTEND CONSTANT RA                     COMFECB    66
                          43022                   MX0    WC.CLENL                                                COMFECB    67
                               20060              LX0    WC.CLENL+WC.CLENP                                       COMFECB    68
          1026  11102                             BX1    X0*X2       CLEN                                        COMFECB    69
                     20244                        LX2    -WC.RAL                                                 COMFECB    70
                          21244                   AX2    -WC.RAL     SIGN EXTEND                                 COMFECB    71
                               36252              IX2    X5+X2                                                   COMFECB    72
          1027  20730                             LX7    WC.BCPP                                                 COMFECB    73
                     43044                        MX0    -WC.RAL                                                 COMFECB    74
                          12171                   BX1    X7+X1                                                   COMFECB    75
                               15220              BX2    -X0*X2                                                  COMFECB    76
          1030  12612                             BX6    X1+X2                                                   COMFECB    77
                     0400000777 +                 EQ     EXIT.                                                   COMFECB    78
  
  
  
  
                                        **        ECS - EVALUATE CONSTANT SUBSTRING.                             COMFECB    80
                                        *                                                                        COMFECB    81
                                        *         ENTRY  X3 = SUBSTRING START CONSTANT                           COMFECB    82
                                        *                X4 = SUBSTRING END CONSTANT                             COMFECB    83
                                        *                X6 = WCA FOR BASE                                       COMFECB    84
                                        *                B7 = SYMTAB POINTER TO WHICH WCA APPLIES                COMFECB    85
                                        *                                                                        COMFECB    86
                                        *         EXIT   X6 = WCA FOR SUBSTRING                                  COMFECB    87
                                        *                B7 - PRESERVED                                          COMFECB    88
                                        *                X7 = SUBSTRING LENGTH                                   COMFECB    89
                                        *                                                                        COMFECB    90
                                        *         PRESERVES X5, A5, B4, B5, B6, B7                               COMFECB    91
                                                                                                                 COMFECB    92
          1031  0400401031 +             ECS      SUBR   =                                                       COMFECB    93
          1032  6233777776                        SB3    X3-1                                                    COMFECB    94
                          63240                   SB2    X4                                                      COMFECB    95
                               77723              SX7    B2-B3                                                   COMFECB    96
          1033  43044                             MX0    -WC.RAL                                                 COMFECB    97
                     10177                        BX1    X7                                                      COMFECB    98
                                                  LX6    -WC.RAP                                                 COMFECB    99
                          15360                   BX3    -X0*X6                                                  COMFECB   100
                               20344              LX3    -WC.RAL                                                 COMFECB   101
          1034  21344                             AX3    -WC.RAL                                                 COMFECB   102
                     43070                        MX0    -WC.BCPL                                                COMFECB   103
                          20644                   LX6    WC.RAP-WC.BCPP                                          COMFECB   104
                               15460              BX4    -X0*X6                                                  COMFECB   105
          1035  73643                             SX6    X4+B3                                                   COMFECB   106
                     5140001422 +                 WX4    X6,X2                                                   COMFECB   107
          1041  36343                             IX3    X4+X3                                                   COMFECB   108
                     20230                        LX2    WC.BCPP                                                 COMFECB   109
                          20136                   LX1    WC.CLENP                                                COMFECB   110
                               12212              BX2    X1+X2                                                   COMFECB   111
          1042  43044                             MX0    -WC.RAL                                                 COMFECB   112
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    38
        COMFECB - EVALUATE CONSTANT BIAS AND SUBSTRING                ECS 
  
                     15330                        BX3    -X0*X3                                                  COMFECB   113
                                                  LX3    WC.RAP                                                  COMFECB   114
                          12623                   BX6    X2+X3                                                   COMFECB   115
          1043  0400001031 +                      EQ     EXIT.                                                   COMFECB   116
                                         COMFECB  ENDX                                                           COMFECB   117
  
  
  
  
                                        **        GCL - GET CHARACTER LENGTH.                                    PUC       907
                                        *                                                                        PUC       908
                                        *         ENTRY  X1 = ORD, SYMTAB ORDINAL                                PUC       909
                                        *                                                                        PUC       910
                                        *         EXIT   X1 = WC.CLEN[ORD]                                       PUC       911
                                        *                X2 = -0 IF CTYP=1, ELSE +0                              PUC       912
                                        *                X3 = VD. TAG IF CTYP=1, ELSE 0                          PUC       913
                                        *                                                                        PUC       914
                                        *         USES   A2,A3, X0,X2,X1,X3,X5, B2                               PUC       915
                                                                                                                 PUC       916
          1044  0400401044 +             GCL      SUBR   =                                                       PUC       917
          1045  22211                             LX2    B1,X1                                                   PUC       918
                     5130000030 +                 SA3    =XT.SYM                                                 PUC       919
                               36512              IX5    X1+X2                                                   PUC       920
          1046  43052                             MX0    -WC.CLENL                                               PUC       921
                     6223000002                   SB2    X3+WC.W                                                 PUC       922
                               53252              SA2    B2+X5                                                   PUC       923
          1047  20236                             LX2    -WC.CLENP                                               PUC       924
                     15120                        BX1    -X0*X2                                                  PUC       925
                          5130000432 +            SA3    =XS=VD                                                  PUC       926
                                                  LX2    WC.CLENP-1-WC.CTYPP                                     PUC       927
          1050  21273                             AX2    59                                                      PUC       928
                     11323                        BX3    X2*X3                                                   PUC       929
                          0400001044 +            EQ     EXIT.                                                   PUC       930
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    39
        PROGRAM UNIT SUPPORT ROUTINES                                 GMC 
  
                                        **        GMC - GET MORE CORE.                                           PUC      1115
                                        *                                                                        PUC      1116
                                        *         IF THE CURRENT FL + INCREMENT IS .LE. THE MAX FL FOR           PUC      1117
                                        *         THIS JOBSTEP, THE REQUEST IS HONORED. IF THE REQUEST           PUC      1118
                                        *         IS GREATER THAN MAX FL, THEN MAX FL IS REQUESTED. IF           PUC      1119
                                        *         MAX FL = CURRENT FL THE CALLER IS INFORMED. IN ANY             PUC      1120
                                        *         CASE, CP.AFLS AND CP.NFLS ARE UPDATED.                         PUC      1121
                                        *                                                                        PUC      1122
                                        *         ENTRY  (X6) = INCREMENT                                        PUC      1123
                                        *                                                                        PUC      1124
                                        *         EXIT   (B7) = -1 IF MAXFL WAS REACHED THIS TIME                PUC      1125
                                        *                        0 IF CURRENT FL ALREADY WAS MAXFL               PUC      1126
                                        *                       +1 IF REQUESTED INCREMENT HONORED                PUC      1127
                                        *                (X6) = ACTUAL FL                                        PUC      1128
                                        *                (X7) = NOMINAL FL (ACTUAL - 10)                         PUC      1129
                                        *                (CP.AFLS) = ACTUAL FL                                   PUC      1130
                                        *                (CP.NFLS) = NOMINAL FL (ACTUAL - 10)                    PUC      1131
                                        *                                                                        PUC      1132
                                        *         CALLS  MEMORY, PCS                                             PUC      1133
                                                                                                                 PUC      1134
                                                                                                                 PUC      1135
          1051  0400401051 +             GMC      SUBR   =           ...ENTRY/EXIT...                            PUC      1136
          1052  5110000000 X                      SA1    MAX.FL      MAX FL FOR JOB STEP                         PUC      1137
                          5130000000 X            SA3    CP.AFLS     ACTUAL CURRENT FL                           PUC      1138
          1053  21136                             AX1    30                                                      PUC      1139
                     36636                        IX6    X3+X6       CURRENT FL + INCREMENT                      PUC      1140
                          66710                   =B7    1           FLAG HONORED REQUEST                        PUC      1141
                               37416              IX4    X1-X6       MAXFL - NEWFL                               PUC      1142
          1054  0324001056 +                      PL     X4,GMC10    IF NEWFL .LE. MAXFL                         PUC      1143
                                                                                                                 PUC      1144
                          6170777776              SB7    -1          FLAG MAXFL REQUESTED                        PUC      1145
          1055  37231                             IX2    X3-X1       CURRENT FL - MAXFL                          PUC      1146
                     0322001065 +                 PL     X2,GMC20    IF MAXFL .LE. CURRENT FL, DIE               PUC      1147
                                                                                                                 PUC      1148
                               10611              BX6    X1          NEWFL = MAXFL                               PUC      1149
          1056  20636                    GMC10    LX6    30                                                      PUC      1150
                     5160000000 X                 SA6    GT1                                                     PUC      1151
          1057  7160150515                        MEMORY SCM,GT1,RCL                                             PUC      1152
                                                                                                                 PUC      1153
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                PUC      1154
                                                  RJ     PCS         PRINT CORE STATISTICS                       PUC      1155
                                                                                                                 PUC      1156
          1062  5110000000 X                      SA1    GT1                                                     PUC      1157
                          21136                   AX1    30                                                      PUC      1158
                               10611              BX6    X1                                                      PUC      1159
          1063  5160000000 X                      SA6    CP.AFLS     SET ACTUAL FL                               PUC      1160
                          7266777765              SX6    X6-10                                                   PUC      1161
          1064  5160000000 X                      SA6    CP.NFLS     SET NOMINAL FL                              PUC      1162
                          0400001051 +            EQ     EXIT.       EXIT...                                     PUC      1163
                                                                                                                 PUC      1164
                                        *         HERE IF NO MORE ROOM.                                          PUC      1165
                                                                                                                 PUC      1166
          1065  66700                    GMC20    =B7    0           FLAG NO MORE ROOM                           PUC      1167
                     5110000000 X                 SA1    CP.AFLS                                                 PUC      1168
                               10611              BX6    X1          SET ACTUAL FL                               PUC      1169
          1066  5120000000 X                      SA2    CP.NFLS                                                 PUC      1170
                          10722                   BX7    X2          SET NOMINAL FL                              PUC      1171
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    40
        PROGRAM UNIT SUPPORT ROUTINES                                 GMC 
  
          1067  0400001051 +                      EQ     EXIT.       EXIT...                                     PUC      1172
  
  
  
  
                                        **        LJS -  LEFT JUSTIFY (AND REFORMAT) STATEMENT LABEL.            PUC      1174
                                        *                                                                        PUC      1175
                                        *         ENTRY  (X5) = DPC STATEMENT LABEL (0RNNNNN).                   PUC      1176
                                        *                                                                        PUC      1177
                                        *         EXIT   (X6) = DPC STATEMENT LABEL (0H.NNNNN).                  PUC      1178
                                        *                                                                        PUC      1179
                                        *         USES   A1,A2,A3,A6  B2,B3,B7  X1,X2,X3,X5,X6                   PUC      1180
                                        *                                                                        PUC      1181
                                        *         CALLS  SFN.                                                    PUC      1182
                                                                                                                 PUC      1183
                                                                                                                 PUC      1184
          1070  0400401070 +             LJS      SUBR   =           ...ENTRY/EXIT...                            PUC      1185
                                                                                                                 PUC      1186
                                                  IFEQ   TEST,ON,1                                               PUC      1187
                                                  ZR     X5,"BLOWUP" IF ZERO -- COMPILER ERROR                   PUC      1188
                                                                                                                 PUC      1189
          1071  43206                             MX2    CHAR                                                    PUC      1190
                     7130005700                   SX3    2R.*-1R*    (X3) = 1R. SHIFTED 6                        PUC      1191
          1072  11625                    LJS4     BX6    X2*X5                                                   PUC      1192
                     20506                        LX5    CHAR                                                    PUC      1193
                          0306001072 +            ZR     X6,LJS4     IF (X5) NOT LEFT JUSTIFIED                  PUC      1194
          1073  12153                             BX1    X5+X3       PREFIX PERIOD TO LABEL                      PUC      1195
                     20160                        LX1    -2*CHAR     0L.NNNNN  FORMAT                            PUC      1196
                          0100000000 X            CALL   SFN         SPACE FILL NAME                             PUC      1197
          1074  0400001070 +                      EQ     EXIT.                                                   PUC      1198
  
  
  
  
                                        **        MTD -  MOVE ALL TABLES TO LOW CORE.                            PUC      1200
                                        *                                                                        PUC      1201
                                        *         PACKS UP ALL TABLES AT LOWER END OF MANAGED SPACE.             PUC      1202
                                        *                                                                        PUC      1203
                                        *         ENTRY  (X0) = ADDRESS TO PLACE LOWEST TABLE                    PUC      1204
                                        *                                                                        PUC      1205
                                        *         EXIT   (X0) = LWA+1 OF LAST TABLE                              PUC      1206
                                        *                                                                        PUC      1207
                                        *         USES   A1,2,4,6,7  X0-4,6,7  B3,7                              PUC      1208
                                        *                                                                        PUC      1209
                                        *         CALLS  MOVE                                                    PUC      1210
                                                                                                                 PUC      1211
                                                                                                                 PUC      1212
          1075  0400401075 +             MTD      SUBR   =           ...ENTRY/EXIT...                            PUC      1213
          1076  6130000046                        SB3    N.TABLE-1                                               PUC      1214
                          67303                   SB3    -B3                                                     PUC      1215
                                                                                                                 PUC      1216
          1077  7113000046               MTD1     SX1    B3+N.TABLE-1      NEXT ORDINAL IN TABLE VECTOR          PUC      1217
                          5221000000 +            SA2    X1+BASES    (X2) = FWA OF CURRENT TABLE                 PUC      1218
          1100  5211000047 +                      SA1    X1+SIZES    (X1) = LENGTH OF CURRENT TABLE              PUC      1219
                          22300                   LX3    X0          (X3) = NEW FWA OF CURRENT TABLE             PUC      1220
                               36001              IX0    X0+X1       (X0) = FUTURE FWA OF NEXT TABLE             PUC      1221
          1101  22703                             LX7    X3                                                      PUC      1222
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    41
        PROGRAM UNIT SUPPORT ROUTINES                                 MTD 
  
                     54720                        SA7    A2          UPDATE FWA OF CURRENT TABLE                 PUC      1223
                          6133000001              SB3    B3+1        POINT TO NEXT HIGHER TABLE                  PUC      1224
          1102  0100000000 X                      MOVE   X1,X2,X3    MOVE CURRENT TABLE DOWN                     PUC      1225
          1103  0530001077 +                      NZ     B3,MTD1     IF MORE TABLES TO MOVE                      PUC      1226
                          0400001075 +            EQ     EXIT.       DONE...                                     PUC      1227
  
  
  
  
                                        **        MTU - MOVE ALL TABLES TO HIGH CORE.                            PUC      1229
                                        *                                                                        PUC      1230
                                        *         PACKS ALL TABLES TOWARD HIGHER END OF MANAGED SPACE.           PUC      1231
                                        *                                                                        PUC      1232
                                        *         ENTRY  (X0) = LWA OF NEW TABLE AREA                            PUC      1233
                                        *                                                                        PUC      1234
                                        *         EXIT   (X0) = FWA-1 OF LOWEST TABLE                            PUC      1235
                                        *                                                                        PUC      1236
                                        *         USES   A1,2,4,6,7 X0-4,6,7 B3,7                                PUC      1237
                                        *                                                                        PUC      1238
                                        *         CALLS  MOVE                                                    PUC      1239
                                                                                                                 PUC      1240
                                                                                                                 PUC      1241
          1104  0400401104 +             MTU      SUBR   =           ...ENTRY/EXIT...                            PUC      1242
          1105  6130000046                        SB3    N.TABLE-1   NUMBER OF TABLES TO MOVE                    PUC      1243
                                                                                                                 PUC      1244
          1106  5123777776 +             MTU1     SA2    B3+BASES-1  (X2) = FWA OF CURRENT TABLE                 PUC      1245
                          5113000046 +            SA1    B3+SIZES-1  (X1) = LENGTH OF CURRENT TABLE              PUC      1246
          1107  37001                             IX0    X0-X1       (X0) = FUTURE LWA OF NEXT TABLE             PUC      1247
                     7230000001                   SX3    X0+1        (X3) = NEW FWA OF CURRENT TABLE             PUC      1248
                               22703              LX7    X3                                                      PUC      1249
          1110  54720                             SA7    A2          UPDATE FWA OF CURRENT TABLE                 PUC      1250
                     67331                        =B3    B3-1        POIN TO NEXT LOWER TABLE                    PUC      1251
                          0100000000 X            MOVE   X1,X2,X3    MOVE CURRENT TABLE UP                       PUC      1252
          1111  0530001106 +                      NZ     B3,MTU1     IF MOVE TABLES TO MOVE                      PUC      1253
                          0400001104 +            EQ     EXIT.       DONE...                                     PUC      1254
  
  
  
  
                                        **        PES - PRINT ERROR SUMMARY.                                     F1037F5   205
                                        *                                                                        F1037F5   206
                                        *         SENDS SUMMARIES OF THE VARIOUS ERROR TYPES                     F1037F5   207
                                        *         THAT OCCURED IN THE CURRENT PROGRAM UNIT TO                    F1037F5   208
                                        *         THE DAYFILE AND THE CONSOLE.                                   F1037F5   209
                                        *                                                                        F1037F5   210
                                        *         ENTRY  (X5) = STARTING OFFSET INTO *ERRTYP* .                  F1037F5   211
                                        *                (X6) = ENDING OFFSET INTO *ERRTYP* .                    F1037F5   212
                                        *                                                                        F1037F5   213
                                        *         EXIT   ERROR SUMMARIES OUTPUT.                                 F1037F5   214
                                        *                                                                        F1037F5   215
                                        *         CALLS  CDD,MESSAGE,PLINE.                                      F1037F5   216
                                        *                                                                        F1037F5   217
                                        *         USES   ALL REGISTERS.                                          F1037F5   218
                                                                                                                 F1037F5   219
                                                                                                                 F1037F5   220
          1112  0400401112 +             PES      SUBR               ENTRY/EXIT...                               F1037F5   221
          1113  5160000327 +                      SA6    PESA        PRESERVE ENDING OFFSET                      F1037F5   222
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    42
        PROGRAM UNIT SUPPORT ROUTINES                                 PES 
  
                                                                                                                 F1037F5   223
          1114  5215000442 +             PES10    SA1    ERR=A+X5    X1 = ERROR COUNT THIS LEVEL                 F1037F5   224
                          0301001130 +            ZR     X1,PES30    IF NO ERRORS THIS LEVEL                     F1037F5   225
          1115  63610                             SB6    X1          SAVE NUMBER OF ERRORS                       F1037F5   226
                     0100000000 X                 CALL   CDD         CONVERT TO DPC                              F1037F5   227
          1116  20606                             LX6    CHAR                                                    F1037F5   228
                     5225000433 +                 SA2    X5+ERRTYP   X2 = ERROR TYPE INFO                        F1037F5   229
                               21222              AX2    18                                                      F1037F5   230
          1117  53120                             SA1    X2          ERROR TYPE DPC                              F1037F5   231
                     5160000233 +                 SA6    LINEBUF                                                 F1037F5   232
          1120  5130001423 +                      SA3    =20L ERROR IN  ERRORS IN                                F1037F5   233
                          5120000223 +            SA2    IDENT                                                   F1037F5   234
          1121  10711                             BX7    X1                                                      F1037F5   235
                     0616001122 +                 LE     B6,B1,PES20 IF ONLY ONE ERROR                           F1037F5   236
                               54331              =A3    A3+1                                                    F1037F5   237
                                                                                                                 F1037F5   238
          1122  54761                    PES20    =A7    A6+1        +1 = (ERROR TYPE DPC)                       F1037F5   239
                     7110000055                   SX1    1R                                                      F1037F5   240
                               22603              LX6    X3                                                      F1037F5   241
          1123  12721                             BX7    X2+X1                                                   F1037F5   242
                     54671                        =A6    A7+1        +2 = ERROR(S) IN                            F1037F5   243
                          20766                   LX7    -CHAR                                                   F1037F5   244
                               54761              =A7    A6+1        +3 = (IDENT)                                F1037F5   245
          1124  7110000233 +                      MESSAGE  LINEBUF,,RCL                                          F1037F5   246
          1126  7110000233 +                      PLINE  LINEBUF,4,1                                             F1037F5   247
                                                                                                                 F1037F5   248
          1130  5110000327 +             PES30    SA1    PESA                                                    F1037F5   249
                          73551                   =X5    X5+1                                                    F1037F5   250
                               37615              IX6    X1-X5                                                   F1037F5   251
          1131  0326001114 +                      PL     X6,PES10    IF MORE ERROR TYPES                         F1037F5   252
                          0400001112 +            EQ     EXIT.                                                   F1037F5   253
                                                                                                                 F1037F5   254
                                 327 +   PESA     EQU    SCR         PRESERVE LOOP LIMIT HERE                    F1037F5   255
  
  
  
  
                                        **        PIA - PROCESS INSTRUCTION ADDRESS.                             PUC      1256
                                        *                                                                        PUC      1257
                                        *                CONVERTS A BINARY NUMBER TO OCTAL DPC WITH LEADING      PUC      1258
                                        *         ZERO SUPPRESSION.                                              PUC      1259
                                        *                                                                        PUC      1260
                                        *         NOTE-- INTENDED FOR CONVERTING A NUMBER WITH .LE. TO 6 BINARY  PUC      1261
                                        *         (3 BIT) DIGITS. NO ERROR CONDITION IS FLAGGED IF .GT. 6 DIGITS PUC      1262
                                        *         ARE CONVERTED.                                                 PUC      1263
                                        *                                                                        PUC      1264
                                        *         ENTRY  (X1) = BINARY NR TO BE CONVERTED                        PUC      1265
                                        *                                                                        PUC      1266
                                        *         EXIT   (X2) = NR CONVERTED TO OCTAL DPC, RIGHT JUSTIFIED TO    PUC      1267
                                        *                         BIT 18, WITH BLANK FILL--  (.=BLANK(55B))      PUC      1268
                                        *                         CHAR POS 10 9 8 7 6 5 4 3 2 1                  PUC      1269
                                        *                         CONV NR   . 1 2 3 4 5 6 . . .                  PUC      1270
                                        *                (X6) = SAME AS ABOVE WITH -B- SUFFIX--                  PUC      1271
                                        *                                   . 1 2 3 4 5 6 B . .                  PUC      1272
                                        *                (B7) = NR OF DIGITS*6 CONVERTED + 2*6  (NOT INCLUDING   PUC      1273
                                        *                         -B- SUFFIX). TO LEFT JUSTIFY NR IN X2 OR X6 -- PUC      1274
                                        *                SB7    B7-9*CHAR                                        PUC      1275
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    43
        PROGRAM UNIT SUPPORT ROUTINES                                 PIA 
  
                                        *                AX2    X2,B7                                            PUC      1276
                                        *                                                                        PUC      1277
                                        *         USES   X - 1,2,6,7                                             PUC      1278
                                        *                A - 2                                                   PUC      1279
                                        *                B - 7                                                   PUC      1280
                                        *                                                                        PUC      1281
                                        *         CALLS  NONE                                                    PUC      1282
                                                                                                                 PUC      1283
          1132  0400401132 +             PIA      SUBR   =           ** ENTRY/EXIT **                            PUC      1284
          1133  5120001415 +                      SA2    =10H                                                    PUC      1285
                          6170000014              SB7    2*CHAR                                                  PUC      1286
                                                                                                                 PUC      1287
          1134  43771                    PIA2     MX7    -3                                                      PUC      1288
                     6177000006                   SB7    B7+CHAR                                                 PUC      1289
                               15617              BX6    -X7*X1                                                  PUC      1290
          1135  20266                             LX2    -CHAR                                                   PUC      1291
                     7266777755                   SX6    X6+1R0-1R                                               PUC      1292
                               21103              AX1    3                                                       PUC      1293
          1136  36226                             IX2    X2+X6                                                   PUC      1294
                     0311001134 +                 NZ     X1,PIA2     IF NOT FINISHED ASSEMBLING NR               PUC      1295
                               22272              LX2    X2,B7       (X2) = NR IN OCTAL DPC, RT JUST TO BIT 18   PUC      1296
          1137  7110000053                        SX1    1R -1RB                                                 PUC      1297
                          20114                   LX1    2*CHAR                                                  PUC      1298
                               37621              IX6    X2-X1       (X6) = SAME AS (X2) W/ -B- SUFFIX           PUC      1299
          1140  0400001132 +                      EQ     EXIT.                                                   PUC      1300
  
  
  
  
                                        **        PCS - PRINT CORE STATISTICS.                                   PUC      1302
                                        *                                                                        PUC      1303
                                        *         PRINT REQUESTED CORE EACH ALLOC MEMORY REQUEST.                PUC      1304
                                        *                                                                        PUC      1305
                                        *         ENTRY  (GT1) = 30/FL, 30/UNUSED                                PUC      1306
                                        *                                                                        PUC      1307
                                        *         USES   ALL BUT (B7).                                           PUC      1308
                                                                                                                 PUC      1309
                                                                                                                 PUC      1310
                                         .TEST    IFEQ   TEST,ON                                                 FC5A128   118
                                         PCS      SUBR               ...ENTRY/EXIT...                            PUC      1311
                                                  SA1    GT1                                                     PUC      1312
                                                  SX5    B7          REMEMBER (B7)                               PUC      1313
                                                  AX1    30                                                      PUC      1314
                                                  CALL   COD         CONVERT OCTAL DIGITS                        PUC      1315
                                                  BX6    X4                                                      PUC      1316
                                                  SA6    PCSB                                                    PUC      1317
                                                  PLINE  PCSA,PCSC                                               PUC      1318
                                                  SB7    X5          RESTORE (B7)                                PUC      1319
                                                  EQ     EXIT.       EXIT...                                     PUC      1320
                                                                                                                 PUC      1321
                                         PCSA     DIS    3, -----    *         NEW FL IS                         PUC      1322
                                         PCSB     CON    0           FL                                          PUC      1323
                                         PCSC     EQU    *-PCSA                                                  PUC      1324
                                         .TEST    ENDIF                                                          FC5A128   119
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    44
        PROGRAM UNIT SUPPORT ROUTINES                                 WHL 
  
                                        **        WHL - WRITE HEADER LINES.                                      PUC      1326
                                        *                                                                        PUC      1327
                                        *         USES   A1-A4,A6,A7                                             PUC      1328
                                        *                X1-X4,X6,X7                                             PUC      1329
                                        *                B1-B7                                                   PUC      1330
                                                                                                                 PUC      1331
                                                                                                                 PUC      1332
          1141  0400401141 +             WHL      SUBR   0           ENTRY/EXIT...                               PUC      1333
          1142  5110000320 +                      SA1    WOF=ERR                                                 PUC      1334
                          7120000000 X            SX2    ERFO                                                    F1039      97
          1143  42612                             IX6    X1*X2                                                   PUC      1336
                     5160001225 +                 SA6    TTLOFF                                                  PUC      1337
          1144  5221001226 +                      SA2    PAGELOC+X1                                              FC5A164    33
                          53220                   SA2    X2                                                      FC5A164    34
                               20201              LX2    59-58                                                   FC5A164    35
          1145  0332001153 +                      MI     X2,WHL1     IF NOT FIRST TIME IN                        FC5A164    36
                          43601                   MX6    1                                                       FC5A164    37
                               12662              BX6    X6+X2                                                   FC5A164    38
          1146  20673                             LX6    58-59                                                   FC5A164    39
                     54620                        SA6    A2                                                      FC5A164    40
                          5211000000 X            SA1    CO.PW+X1                                                FC5A187    13
          1147  0331001153 +                      MI     X1,WHL1     IF FILE CONNECTED                           FC5A187    14
                          5110000000 X            SA1    CP.PD                                                   PUC      1342
          1150  0301001153 +                      ZR     X1,WHL1     IF PD NOT ON CONTROL CARD                   PUC      1343
                          5120001270 +            SA2    WOFB                                                    PUC      1344
          1151  6160000000 X                      WRITEH X2,CP.PD,1  SET PAGE DENSITY                            PUC      1345
                                                                                                                 FC50029     4
          1153  76600                    WHL1     =X6    0                                                       FC50029     5
                     5110000320 +                 SA1    WOF=ERR                                                 PUC      1347
          1154  5241001226 +                      SA4    PAGELOC+X1                                              PUC      1348
                          53440                   SA4    X4                                                      PUC      1349
          1155  5261000225 +                      SA6    LCNT+X1     RESET LINE COUNT                            PUC      1350
                          76310                   =X3    1                                                       PUC      1351
                               36743              IX7    X4+X3                                                   PUC      1352
          1156  73170                             SX1    X7                                                      PUC      1353
                     54740                        SA7    A4          UPDATE PAGE COUNT                           PUC      1354
                          0100000000 X            CALL   CDD         CONVERT PAGE NUMBER                         PUC      1366
          1157  5130000320 +                      SA3    WOF=ERR                                                 PUC      1367
                          5213000000 X            SA1    CO.PW+X3                                                PUC      1368
          1160  7211777601                        SX1    X1-126                                                  FC50353     7
                          5120001270 +            SA2    WOFB                                                    PUC      1370
          1161  5130001225 +                      SA3    TTLOFF                                                  PUC      1371
                          0331001201 +            MI     X1,WHL5     IF PW MODE                                  FC50353     8
          1162  20630                             LX6    10*CHAR-6*CHAR                                          PUC      1373
                     5263000000 X                 =A6    TL.PAGE+X3                                              PUC      1374
          1163  6263000000 X                      WRITEH X2,O.TITL+X3,L.TITL                                     PUC      1375
          1165  5110000320 +                      SA1    WOF=ERR                                                 F1039      98
                          5231001230 +            SA3    NPU+X1                                                  F1039      99
          1166  0303001174 +                      ZR     X3,WHL2     IF SECOND PAGE OF PROGRAM UNIT              F1039     100
                          0311001174 +            NZ     X1,WHL2     IF E FILE WRITE                             F1039     101
          1167  7160000002                        SX6    2                                                       F1039     102
                          5130001225 +            SA3    TTLOFF                                                  F1039     103
          1170  5160001232 +                      SA6    HLC         SET HEADER LINE COUNT                       F1039     104
                          6263000000 X            WRITEH X2,O.CPV+X3,L.TWO  SECOND LINE                          F1039     105
          1172  5130001225 +                      SA3    TTLOFF                                                  F1039     106
                          6263000000 X            WRITEH X2,O.CC+X3,L.CC    THIRD LINE                           F1039     107
                                                                                                                 F1039     108
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    45
        PROGRAM UNIT SUPPORT ROUTINES                                 WHL 
  
          1174                           WHL2     BSS    0                                                       F1039     109
          1174  5130000320 +                      SA3    WOF=ERR                                                 PUC      1376
                          0313001222 +            NZ     X3,WHL7     IF E-FILE WRITE                             PUC      1377
          1175  5120000300 +                      SA2    O.STITL                                                 PUC      1378
                          63220                   SB2    X2                                                      PUC      1379
                               21236              AX2    30                                                      PUC      1380
          1176  63420                             SB4    X2                                                      FC5A158A  278
                     7120000000 X                 SX2    F.OUT                                                   FC5A158A  279
                               66620              WRITEH X2,B2,B4                                                FC5A158A  280
          1200  0400001222 +                      EQ     WHL7                                                    PUC      1383
                                                                                                                 PUC      1384
          1201  5213777776 X             WHL5     SA1    TL.PAGE-1+X3                                            PUC      1385
                          43430                   MX4    -6*6                                                    PUC      1386
                               11141              BX1    X4*X1                                                   PUC      1387
          1202  15664                             BX6    -X4*X6                                                  PUC      1388
                     12661                        BX6    X6+X1                                                   PUC      1389
                          54610                   SA6    A1          10HPAGE 12345                               PUC      1390
          1203  6263000000 X                      WRITEH X2,O.TTLA+X3,L.TTLA                                     PUC      1391
          1205  5130001225 +                      SA3    TTLOFF                                                  PUC      1392
                          6263000000 X            WRITEH X2,TL.PTYP+X3,L.TTLB                                    PUC      1393
          1207  5110000320 +                      SA1    WOF=ERR                                                 F1039     110
                          5231001230 +            SA3    NPU+X1                                                  F1039     111
          1210  0303001222 +                      ZR     X3,WHL7     IF SECOND PAGE OF PROGRAM UNIT              F1039     112
                          0311001222 +            NZ     X1,WHL7     IF E FILE WRITE                             F1039     113
          1211  7160000004                        SX6    4           HEADER LINE COUNT                           F1039     114
                          5130001225 +            SA3    TTLOFF                                                  F1039     115
          1212  5160001232 +                      SA6    HLC         SET HEADER LINE COUNT                       F1039     116
                          6263000000 X            WRITEH X2,O.CPV+X3,L.TA                                        F1039     117
          1214  5130001225 +                      SA3    TTLOFF                                                  F1039     118
                          6263000000 X            WRITEH X2,O.TA+X3,L.TB                                         F1039     119
          1216  5130001225 +                      SA3    TTLOFF                                                  F1039     120
                          6263000000 X            WRITEH X2,O.CC+X3,L.CCA                                        F1039     121
          1220  5130001225 +                      SA3    TTLOFF                                                  F1039     122
                          6263000000 X            WRITEH X2,O.C+X3,L.CCB                                         F1039     123
                                                                                                                 PUC      1394
          1222  6160001425 +             WHL7     WRITEH X2,HDRBL,1                                              PUC      1395
          1224  0400001141 +                      EQ     EXIT.       EXIT...                                     PUC      1396
                                                                                                                 PUC      1397
          1225                     1     TTLOFF   BSS    1                                                       PUC      1398
          1226  00000000000000000000 X   PAGELOC  CON    CP.PAGE,CP.EPAG   LOCS OF PAGE COUNTS                   PUC      1399
          1227  00000000000000000000 X
          1230  00000000000000000000     NPU      CON    0,1         NEXT PROGRAM UNIT FLAG // HEADER LINE FLAG  F1039     124
          1231  00000000000000000001
                                        *                            FOR ERROR FILE.                             F1039     125
          1232  00000000000000000000     HLC      CON    0           HEADER LINE COUNT - 2 OR 4                  F1039     126
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    46
        PROGRAM UNIT SUPPORT ROUTINES                                 WOF 
  
                                        **        WOF -  WRITE OUTPUT FILE                                       PUC      1401
                                        *                                                                        PUC      1402
                                        *         ENTRY  (X1) _ FWA OF LINE IN H FORMAT                          PUC      1403
                                        *                (X2) = LINE LENGTH IN WORDS                             PUC      1404
                                        *         (B5) = 1 + NUMBER OF BLANK LINES TO OUTPUT BEFORE LINE         PUC      1405
                                        *                                                                        PUC      1406
                                        *         USES   A1-4,A6,A7                                              PUC      1407
                                        *                X1-4,X6,X7                                              PUC      1408
                                        *                B1-7                                                    PUC      1409
                                        *                                                                        PUC      1410
                                        *         CALLS  WHL, WRITEH                                             PUC      1411
                                                                                                                 PUC      1412
                                                                                                                 PUC      1413
          1233  0400401233 +             WOF      SUBR   =           ENTRY/EXIT...                               PUC      1414
          1234  76640                             SX6    B4                                                      PUC      1415
                     5160001266 +                 SA6    WOFC                                                    PUC      1416
          1235  5140000320 +                      SA4    WOF=ERR                                                 PUC      1417
                          5234000000 X            SA3    FV.OUT+X4                                               PUC      1418
          1236  10633                             BX6    X3                                                      PUC      1419
                     0303001233 +                 ZR     X3,EXIT.    IF L=0                                      PUC      1420
                                         #RM      IFNE   CP#RM,0,1                                               FC5A158A  281
                                                  SX6    A3          POINT TO FIT FOR RM MACRO                   FC5A158A  282
          1237  5160001270 +                      SA6    WOFB        FET FOR OUT/ERR                             PUC      1421
                          5234000225 +            SA3    LCNT+X4                                                 PUC      1422
          1240  5140000000 X                      SA4    CO.PS                                                   FC5A107    11
                          73635                   SX6    X3+B5                                                   PUC      1424
                               37746              IX7    X4-X6                                                   PUC      1425
          1241  54630                             SA6    A3          UPDATE LINE COUNT                           PUC      1426
                     63610                        SB6    X1                                                      PUC      1427
                          0327001252 +            PL     X7,WOF1     IF PAGE NOT FULL                            PUC      1428
                                                                                                                 PUC      1429
                                        *         WRITE HEADER LINE.                                             PUC      1430
                                                                                                                 PUC      1431
          1242  20236                             LX2    30                                                      PUC      1432
                     36612                        IX6    X1+X2                                                   PUC      1433
                          5160001267 +            SA6    WOFA        SAVE FWA AND LENGTH OF LINE                 PUC      1434
          1243  0100001141 +                      RJ     WHL         WRITE HEADER LINES                          PUC      1435
          1244  5110000320 +                      SA1    WOF=ERR                                                 PUC      1436
                          22401                   LX4    X1                                                      F1039     127
          1245  5211000225 +                      SA1    LCNT+X1                                                 PUC      1437
                          73611                   =X6    X1+1                                                    PUC      1438
          1246  5224001230 +                      SA2    NPU+X4     X4  =  WOF=ERR                               F1039     128
                          0302001251 +            ZR     X2,WOF0    IF NOT FIRST PAGE OF PROGRAM UNIT            F1039     129
          1247  7272777776                        SX7    X2-1                                                    F1039     130
                          54720                   SA7    A2         NEXT PROGRAM UNIT FLAG                       F1039     131
          1250  5120001232 +                      SA2    HLC        HEADER LINE COUNT                            F1039     132
                          36662                   IX6    X6+X2      ACCOUNT FOR HEADER LINES                     F1039     133
                                                                                                                 F1039     134
          1251                           WOF0     BSS    0                                                       F1039     135
          1251  54610                             SA6    A1                                                      PUC      1439
                     0400001256 +                 EQ     WOF3        WRITE REQUESTED LINES                       PUC      1440
                                                                                                                 PUC      1441
                                        *         WRITE BLANK LINES BEFORE REQUESTED LINE.                       PUC      1442
                                                                                                                 PUC      1443
          1252  0451001257 +             WOF1     EQ     B5,B1,WOF4  IF NO BLANKS TO WRITE                       PUC      1444
                          20236                   LX2    30                                                      PUC      1445
                               36612              IX6    X1+X2                                                   PUC      1446
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    47
        PROGRAM UNIT SUPPORT ROUTINES                                 WOF 
  
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                PUC      1447
                                                  SB7    4                                                       PUC      1448
                                                  GT     B5,B7,"BLOWUP" ONLY 4 BLANK LINES PROVIDED              PUC      1449
                                                                                                                 PUC      1450
          1253  6175777776                        SB7    B5-1                                                    PUC      1451
                                                                                                                 PUC      1452
                          5160001267 +            SA6    WOFA        SAVE FWA AND LENGTH                         PUC      1453
          1254  5120001270 +                      SA2    WOFB                                                    PUC      1454
                          6160001425 +            WRITEH X2,HDRBL,B7                                             PUC      1455
          1256  5120001267 +             WOF3     SA2    WOFA                                                    PUC      1456
                          63620                   SB6    X2          RESTORE FWA                                 PUC      1457
                               21236              AX2    30          RESTORE LENGTH                              PUC      1458
                                                                                                                 PUC      1459
                                        *         WRITE REQUESTED LINE.                                          PUC      1460
                                                                                                                 PUC      1461
          1257  0560001262 +             WOF4     NZ     B6,WOF5     IF LINE TO WRITE                            PUC      1462
                          5110000320 +            SA1    WOF=ERR                                                 PUC      1463
          1260  5211000225 +                      SA1    LCNT+X1                                                 PUC      1464
                          7261777776              =X6    X1-1                                                    PUC      1465
          1261  54610                             SA6    A1                                                      PUC      1466
                     0400001264 +                 EQ     WOF7                                                    PUC      1467
                                                                                                                 PUC      1468
          1262  6272000000               WOF5     SB7    X2+                                                     PUC      1469
                                                                                                                 PUC      1470
                                         .T       IFEQ   TEST,ON                                                 PUC      1471
                                                  ZR     B7,"BLOWUP" REQUEST WITHOUT LENGTH NFG                  PUC      1472
                                         .T       ENDIF                                                          PUC      1473
                                                                                                                 PUC      1474
                          5120001270 +            SA2    WOFB                                                    PUC      1475
          1263  0100000000 X                      WRITEH X2,B6,B7                                                PUC      1476
          1264  5110001266 +             WOF7     SA1    WOFC                                                    PUC      1477
                          6241000000              SB4    X1+         RESTORE B4                                  PUC      1478
          1265  0400001233 +                      EQ     EXIT.       DONE...                                     PUC      1479
                                                                                                                 PUC      1480
          1266                     1     WOFC     BSS    1           SAVE B4                                     PUC      1481
          1267                     1     WOFA     BSS    1           SAVE FWA AND LENGTH                         PUC      1482
          1270                     1     WOFB     BSS    1           FET FOR OUTPUT/ERRORS                       PUC      1483
                                                                                                                 PUC      1484
                                                                                                                 PUC      1485
                                1425 +   HDRBL    LIT    2L  ,2L  ,2L  ,2L                                       PUC      1486
                                                  ENTRY  HDRBL                                                   PUC      1487
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    48
        INSTRUCTION SKELETON TABLE.                                   INST
  
                                        **        INST - MACRO TO GENERATE INSTRUCTION SKELETONS.                PUC      1490
                                        *                                                                        PUC      1491
                                        *         GENERATES TABLE OF INSTRUCTION SKELETONS USED TO BY *LIST*     PUC      1492
                                        *                TO CONVERT INSTRUCTIONS TO HUMAN-READABLE FORM FOR      PUC      1493
                                        *                THE OBJECT CODE LISTING.                                PUC      1494
                                        *                                                                        PUC      1495
                                        *         INST   (KEY),(ATTRS)                                           PUC      1496
                                        *                                                                        PUC      1497
                                        *         *KEY*  = INSTRUCTION DESCRIPTOR.  EACH CHARACTER OF THE *KEY*  PUC      1498
                                        *                  HAS MEANING AS FOLLOWS --                             PUC      1499
                                        *                            I   I-PORTION OF INSTRUCTION                PUC      1500
                                        *                            J   J-PORTION OF INSTRUCTION                PUC      1501
                                        *                            K   K-PORTION OF INSTRUCTION (3 BITS ONLY)  PUC      1502
                                        *                            Q   18-BIT *K* ADDRESS FIELD (MUST BE LAST) PUC      1503
                                        *                            C   OUTPUT A *B* IF THE NEXT REGISTER IS    PUC      1504
                                        *                                            NOT A ZERO,                 PUC      1505
                                        *                                            ELSE, SKIP THE NEXT 2 ITEMS PUC      1506
                                        *                            + - * / A B X , AND BLANK ALL STAND FOR     PUC      1507
                                        *                                            THEMSELVES.                 PUC      1508
                                        *         *ATTRS* = LIST OF ATTRIBUTES.  SEE (OD.) DATA STRUCTURE.       PUC      1509
                                                                                                                 PUC      1510
                                                                                                                 PUC      1511
                                  11     M        EQU    OD.ATRL                                                 PUC      1512
                                   0              ERRNZ  59-OD.QP    ASSUMPTIONS IN MACRO                        PUC      1513
                                   0              ERRNZ  58-OD.BJMPP                                             PUC      1514
                                   0              ERRNZ  57-OD.FUPAP                                             PUC      1515
                                   0              ERRNZ  4-OD.EDL                                                PUC      1516
                                   0              ERRNZ  12-OD.GHL                                               PUC      1517
                                  25              ERRMI  30-OD.ATRL  OCTMIC WON'T WORK RIGHT                     PUC      1518
                                                                                                                 PUC      1519
                                                                                                                 PUC      1520
                                         INST     MACRO  KEY,ATTRS                                               PUC      1521
                                        *                            INIT AND SET (C) = NUMBER OF DESCRIPTORS.   PUC      1522
                                         A        MICRO  3,1,=KEY=                                               PUC      1523
                                         B        MICRO  5,,=KEY=                                                PUC      1524
                                         B        MICRO  1,,="A""B"=                                             PUC      1525
                                         C        MICCNT B                                                       PUC      1526
                                         1        ERRPL  C-OD.EDN    DESCRIPTOR (KEY) IS TOO LONG                PUC      1527
                                         E        MICRO  1,,-3/L-                                                PUC      1528
                                        *                            MARK AS LONG IF LAST DESRIPTOR IS Q         PUC      1529
                                         A        MICRO  C+3,1,=KEY=                                             PUC      1530
                                         L        SET    0                                                       PUC      1531
                                                  IFC    EQ,="A"=Q=,1                                            PUC      1532
                                         L        SET    L+4                                                     PUC      1533
                                        *                            DECODE EXPLICIT ATTRIBUTES.                 PUC      1534
                                         F        MICRO  1,, 0                                                   PUC      1535
                                                  IRP    ATTRS                                                   PUC      1536
                                                  IFC    EQ,=ATTRS=BJMP=,2                                       PUC      1537
                                         L        SET    L+2                                                     PUC      1538
                                         .3       SKIP                                                           PUC      1539
                                                  IFC    EQ,=ATTRS=FUPA=,2                                       PUC      1540
                                         L        SET    L+1                                                     PUC      1541
                                         .3       SKIP                                                           PUC      1542
                                         G        DECMIC OD.ATTRS_P-OD.ATRP                                      PUC      1543
                                         F        OCTMIC "F"B+1S"G"                                              PUC      1544
                                         .3       ENDIF                                                          PUC      1545
                                                  IRP                                                            PUC      1546
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    49
        INSTRUCTION SKELETON TABLE.                                   INST
  
                                        *                            TRANSLATE EDIT DESCRIPTORS INTO NUMBERS.    PUC      1547
                                         D        SET    0                                                       PUC      1548
                                         .1       DUP    OD.EDN                                                  PUC      1549
                                         D        SET    D+1                                                     PUC      1550
                                         A        MICRO  D,1,="B"...........=                                    PUC      1551
                                         A        MICRO  2*1R"A"-1,2,/101112-D-E-F-G-H010203-L-M-N-O-P04-R-S-T-U PUC      1552
                                        ,-V-W13-Y-Z-0-1-2-3-4-5-6-7-8-905060708-(-)-$-=140900/                   PUC      1553
                                         E        MICRO  1,,="E",4/"A"=                                          PUC      1554
                                        .1        ENDD                                                           PUC      1555
                                        *                            PASTE IT ALL TOGETHER.                      PUC      1556
                                         A        MICRO  1,2, KEY                                                PUC      1557
                                         +        VFD    "E",M/"F"B,12/2R"A"                                     PUC      1558
                                         INST     ENDM                                                           PUC      1559
  
  
  
  
                                        **        F.PIK - INSTRUCTION DESCRIPTION VECTOR.                        PUC      1561
                                                                                                                 PUC      1562
                                                                                                                 PUC      1563
          1271                           F.PIK    BSSENT 0           MACHINE OP DESCRIPTION VECTOR               PUC      1564
          1271                           PIK=PS   BSSENT 0           **** OLD NAME TEMP ****                     PUC      1565
      L      0                                    LOC    00                                                      PUC      1566
      L      0  47100000000000002023              INST   (PS  Q)                 00    (FAKE)                    PUC      1567
      L      1  00722472300000002227              INST   (RWI XJ,XK)             01    (FAKE)  LCM DIRECT ONLY   PUC      1568
      L      2  57301250000000001220              INST   (JP  CI+Q),(FUPA)       02                              PUC      1569
      L      3  40722450000000001230              INST   (JXI XJ,Q)              03I    (FAKE)                   PUC      1570
      L      4  67301470245000000521     PIK.EQ   INST   (EQ  CI,CJ,Q),(BJMP)    04                              PUC      1571
      L      5  67301470245000001605              INST   (NE  CI,CJ,Q),(BJMP)    05                              PUC      1572
      L      6  67301470245000000705              INST   (GE  CI,CJ,Q),(BJMP)    06                              PUC      1573
      L      7  67301470245000001424              INST   (LT  CI,CJ,Q),(BJMP)    07                              PUC      1574
      L                                                                                                          PUC      1575
      L     10  00722000000000010230              INST   (BXI XJ),(COPY)         10                              PUC      1576
      L     11  00722372300000000230              INST   (BXI XJ*XK)             11                              PUC      1577
      L     12  00722272300000000230              INST   (BXI XJ+XK)             12                              PUC      1578
      L     13  00722332300000000230              INST   (BXI XJ-XK)             13                              PUC      1579
      L     14  00555100000000010230              INST   (BXI -XJ),(COPY)        14                              PUC      1580
      L     15  00555157510000100230              INST   (BXI -XK*XJ),(KJ)       15                              PUC      1581
      L     16  00555153510000100230              INST   (BXI -XK+XJ),(KJ)       16                              PUC      1582
      L     17  00555155510000100230              INST   (BXI -XK-XJ),(KJ)       17                              PUC      1583
      L                                                                                                          PUC      1584
      L     20  00443540000000201430              INST   (LXI JKB),(JKV)         20                              PUC      1585
      L     21  00443540000000200130              INST   (AXI JKB),(JKV)         21                              PUC      1586
      L     22  00702472300000401430              INST   (LXI CJ,XK),(BJ)        22                              PUC      1587
      L     23  00702472300000400130              INST   (AXI CJ,XK),(BJ)        23                              PUC      1588
      L     24  00702472300000401630              INST   (NXI CJ,XK),(BJ)        24                              PUC      1589
      L     25  00702472300000403230              INST   (ZXI CJ,XK),(BJ)        25                              PUC      1590
      L     26  00702472300002402530              INST   (UXI CJ,XK),(BJ,UP)     26                              PUC      1591
      L     27  00702472300001402030              INST   (PXI CJ,XK),(BJ,PK)     27                              PUC      1592
      L                                                                                                          PUC      1593
      L     30  00722272300000020630              INST   (FXI XJ+XK),(FPA)       30                              PUC      1594
      L     31  00722332300000020630              INST   (FXI XJ-XK),(FPA)       31                              PUC      1595
      L     32  00722272300000020430              INST   (DXI XJ+XK),(FPA)       32                              PUC      1596
      L     33  00722332300000020430              INST   (DXI XJ-XK),(FPA)       33                              PUC      1597
      L     34  00722272300000022230              INST   (RXI XJ+XK),(FPA)       34                              PUC      1598
      L     35  00722332300000022230              INST   (RXI XJ-XK),(FPA)       35                              PUC      1599
      L     36  00722272300000001130              INST   (IXI XJ+XK)             36                              PUC      1600
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    50
        INSTRUCTION SKELETON TABLE.                                   F.PIK 
  
      L     37  00722332300000001130              INST   (IXI XJ-XK)             37                              PUC      1601
      L                                                                                                          PUC      1602
      L     40  00722372300000020630              INST   (FXI XJ*XK),(FPA)       40                              PUC      1603
      L     41  00722372300000022230              INST   (RXI XJ*XK),(FPA)       41                              PUC      1604
      L     42  00722372300004020430              INST   (DXI XJ*XK),(FPA,IM)    42                              PUC      1605
      L     43  00443540000000201530              INST   (MXI JKB),(JKV)         43                              PUC      1606
      L     44  00722432300000060630              INST   (FXI XJ/XK),(FPA,DIV)   44                              PUC      1607
      L     45  00722432300000062230              INST   (RXI XJ/XK),(FPA,DIV)   45                              PUC      1608
      L     46  07022166000000001617              INST   (NO  IJKB)              46                              PUC      1609
      L     47  00723000000000010330              INST   (CXI XK),(COPY)         47                              PUC      1610
      L                                                                                                          PUC      1611
      L     50  40642250000000002301              INST   (SAI AJ+Q)            50                                PUC      1612
      L     51  40702250000000002301              INST   (SAI CJ+Q)            51                                PUC      1613
      L     52  40722250000000002301              INST   (SAI XJ+Q)            52                                PUC      1614
      L     53  00703272200000002301              INST   (SAI CK+XJ)           53                                PUC      1615
      L     54  00703264200000002301              INST   (SAI CK+AJ)           54                                PUC      1616
      L     55  00642326300000002301              INST   (SAI AJ-BK)           55                                PUC      1617
      L     56  00703266200000002301              INST   (SAI CK+BJ)           56                                PUC      1618
      L     57  00662326300000002301              INST   (SAI BJ-BK)             57                              PUC      1619
      L                                                                                                          PUC      1620
      L     60  40642250000000002302              INST   (SBI AJ+Q)            60                                PUC      1621
      L     61  40702250000000002302              INST   (SBI CJ+Q)            61                                PUC      1622
      L     62  40722250000000002302              INST   (SBI XJ+Q)            62                                PUC      1623
      L     63  00703272200000002302              INST   (SBI CK+XJ)           63                                PUC      1624
      L     64  00703264200000002302              INST   (SBI CK+AJ)           64                                PUC      1625
      L     65  00642326300000002302              INST   (SBI AJ-BK)           65                                PUC      1626
      L     66  00703266200000002302              INST   (SBI CK+BJ)           66                                PUC      1627
      L     67  00662326300000002302              INST   (SBI BJ-BK)             67                              PUC      1628
      L                                                                                                          PUC      1629
      L     70  40642250000000002330              INST   (SXI AJ+Q)            70                                PUC      1630
      L     71  40702250000000002330              INST   (SXI CJ+Q)            71                                PUC      1631
      L     72  40722250000000002330              INST   (SXI XJ+Q)            72                                PUC      1632
      L     73  00703272200000002330              INST   (SXI CK+XJ)           73                                PUC      1633
      L     74  00703264200000002330              INST   (SXI CK+AJ)           74                                PUC      1634
      L     75  00642326300000002330              INST   (SXI AJ-BK)           75                                PUC      1635
      L     76  00703266200000002330              INST   (SXI CK+BJ)           76                                PUC      1636
      L     77  00662326300000002330              INST   (SXI BJ-BK)             77                              PUC      1637
      L   1371                                    LOC    *O                                                      PUC      1638
                                         PIK=EQ   EQUENT PIK.EQ+F.PIK                                            PUC      1639
                                                                                                                 PUC      1640
                                         .DAL     IFEQ   .DAL,.DAL   DIRECT ACCESS LCM INSTRUCTIONS              PUC      1641
          1371                           PIK=LCM  BSSENT 0                                                       PUC      1642
          1371  01323000000000002230              INST   (RXJ XK)                014   DRL                       PUC      1643
          1372  01323000000000002730              INST   (WXJ XK)                015   DWL                       PUC      1644
                                         .DAL     ENDIF                                                          PUC      1645
                                                                                                                 PUC      1646
          1373                           PIK=XJP  BSSENT 0           X-REGISTER JUMPS                            PUC      1647
          1373  47322450000000003222              INST   (ZR  XJ,Q)              030                             PUC      1648
          1374  47322450000000001632              INST   (NZ  XJ,Q)            031                               PUC      1649
          1375  47322450000000002014              INST   (PL  XJ,Q)            032                               PUC      1650
          1376  47322450000000001511              INST   (MI  XJ,Q)            033                               PUC      1651
          1377  47322450000000001122              INST   (IR  XJ,Q)            034                               PUC      1652
          1400  47322450000000001722              INST   (OR  XJ,Q)            035                               PUC      1653
          1401  47322450000000000406              INST   (DF  XJ,Q)            036                               PUC      1654
          1402  47322450000000001104              INST   (ID  XJ,Q)            037                               PUC      1655
                                                                                                                 PUC      1656
          1403                           PIK=PI   BSSENT 0           PSEUDO-INST SKELETON TABLE                  PUC      1657
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    51
        INSTRUCTION SKELETON TABLE.                                   F.PIK 
  
          1403  51500000000000002212              INST   (RJK Q),(FUPA)          0001  RJT                       PUC      1658
          1404  57100000000000002212              INST   (RJ  Q),(FUPA)          0002  SHORT RJ                  PUC      1659
          1405  57301250000000001220              INST   (JP  CI+Q),(FUPA)       0003                            PUC      1660
          1406  57100000000000000521              INST   (EQ  Q),(FUPA)          0004                            PUC      1661
                                                                                                                 PUC      1681
                                                  PURGMAC INST                                                   PUC      1682
  
  
  
  
                                                  LIST   D                                                       PUC      1684
  
                                        CONTENT OF LITERALS BLOCK.
  
          1407  55011623115555555555     ANSI 
          1410  55150405205555555555     MDEP 
          1411  55242211261101145555     TRIVIAL
          1412  55270122161116075555     WARNING
          1413  55060124011455555555     FATAL
          1414  55030124012324221720     CATASTROP
          1415  55555555555555555555
          1416  34550000000000000000    1 
          1417  11040516245500000000    IDENT 
          1420  46555555555555555555    - 
          1421  46550000000000000000    - 
          1422  00000631463146314632      FY-Y-Y-Z
          1423  55052222172255111655     ERROR IN 
          1424  55052222172223551116     ERRORS IN
          1425  55550000000000000000
          1426  55550000000000000000
          1427  55550000000000000000
          1430  55550000000000000000
  
          1431                                    END                                                            PUC      1685
  
                             75500B CM  STORAGE USED             9124 STATEMENTS     1873 SYMBOLS      000005 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            9.328 SECONDS        1856 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABTFTN          0   EXTERNAL*       3/47 X   27/46
        ALC.PAR       210   PROGRAM*       16/03 L   16/03 E
        BASES           0   PROGRAM*       10/06 L   10/06 E   40/53     41/26
        BINIO         211   PROGRAM*       16/05 L   16/05 E   23/17     34/29
        BLNKCOM       212   PROGRAM*       16/08 L   16/08 E
        B1=1            0 
        CAF           741   PROGRAM*       22/55     34/08 L   34/08 E
        CAF3          751   PROGRAM*       34/19     34/26 L
        CAF35         754   PROGRAM*       34/30     34/33 L
        CAF36         757   PROGRAM*       34/34     34/37 L
        CAF4          762   PROGRAM*       34/39     34/41 L
        CARDS         251   PROGRAM*       16/46 D   16/46 E
        CBI           213   PROGRAM*       16/10 L   16/10 E
        CDD             0   EXTERNAL*       4/06 X   42/05     44/37
        CFD           712   PROGRAM*       29/13     33/04 D
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        CFD=          712   PROGRAM*       33/05 D
        CGL             0   EXTERNAL*       4/03 X   24/42
        CHAR            6   FTX            23/53     40/22     40/28     42/22     43/14     43/23
                                           24/30     40/25     42/06     43/11     43/16     44/44
        CHARDCL       214   PROGRAM*       16/12 L   16/12 E
        CIO=            0   EXTERNAL*       4/06 X   23/30     24/07     34/20     34/31     34/40
                                           23/03     23/39     24/12     34/21     34/35     35/35
        COD             0   EXTERNAL*       3/47 X   27/12
        COF           763   PROGRAM*       34/11     34/13     35/05 L
        COF10         775   PROGRAM*       35/20     35/25     35/35 L
        COMSIZ        206   PROGRAM*       15/32 L   15/32 E
        CONONE        353   PROGRAM*       19/15 L   19/15 E
        CONZER        354   PROGRAM*       19/16 L   19/16 E
        CONZERI       355   PROGRAM*       19/17 L   19/17 E
        CO.ANSI         0   EXTERNAL*       3/47 X   26/03
        CO.GO           0   EXTERNAL*       3/47 X   27/50
        CO.LOO          0   EXTERNAL*       3/47 X   23/09
        CO.OPT          0   EXTERNAL*       3/47 X   23/01     23/18     23/25     23/44     34/33
        CO.PS           0   EXTERNAL*       3/47 X   22/21     46/25
        CO.PW           0   EXTERNAL*       3/47 X   35/19     44/21     44/39
        CO.PWE          0   EXTERNAL*       3/48 X   24/21
        CPTIM         667   PROGRAM*       27/20     29/10 L   29/10 E
        CPTMSG        657   PROGRAM*       27/21 S   27/22     28/49 L
        CP.ABT          0   EXTERNAL*       3/48 X   27/36
        CP.AFLL         0   EXTERNAL*       3/48 X   28/36
        CP.AFLS         0   EXTERNAL*       3/48 X   24/48     25/22     25/40     28/27     39/24     39/46 S   39/54
        CP.BLF          0   EXTERNAL*       3/48 X   22/24
        CP.CARD         0   EXTERNAL*       3/48 X   22/51     23/52
        CP.EPAG         0   EXTERNAL*       3/48 X   24/09     24/19     45/40
        CP.ERCT         0   EXTERNAL*       3/49 X   27/35
        CP.IFMT         0   EXTERNAL*       3/49 X   22/45
        CP.ILFL         0   EXTERNAL*       3/49 X   28/06     28/35
        CP.LSTF         0   EXTERNAL*       3/49 X   22/22
        CP.MXFL         0   EXTERNAL*       3/49 X   24/51     27/11
        CP.NFLS         0   EXTERNAL*       3/49 X   39/48 S   39/56
        CP.PAGE         0   EXTERNAL*       3/49 X   22/23     24/04     45/40
        CP.PD           0   EXTERNAL*       3/50 X   35/22     44/23     44/26
        CP#RM           0   FTX            23/05 F   23/32 F   27/44 F   28/24 F   34/44 F   35/28 F
                                           23/14 F   23/41 F   27/56 F   30/10 F   35/14 F   46/21 F
        CT.ECS          1   FTX            28/05 F
        ECB           777   PROGRAM*       36/14 L   36/14 E
        ECB10        1016   PROGRAM*       36/39     36/51 L
        ECB5         1005   PROGRAM*       36/30     36/33 L
        ECS          1031   PROGRAM*       37/38 L   37/38 E
        EL=C            5   FTX            21/38
        EL=F            4   FTX            21/37
        EL=T            2   FTX            21/35
        EL=W            3   FTX            21/36
        ENDFTN        577   PROGRAM*       22/56     27/04 L   27/04 E
        END10         646   PROGRAM*       28/29     28/35 L
        END15         655   PROGRAM*       28/38     28/44 L
        END4          614   PROGRAM*       27/41     27/42     27/50 L
        END5          637   PROGRAM*       27/51     28/23 L
        ENTRJ         216   PROGRAM*       16/18 L   16/18 E
        ERFO            0   EXTERNAL*       3/50 X   24/25     24/29     44/10
        ERRORS        215   PROGRAM*       16/14 L   16/14 E   16/20
        ERRTYP        433   PROGRAM*       21/28 L   21/28 E   42/07
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        ERR=A         442   PROGRAM*       21/43 L   21/43 E   42/02
        ERR=C         450   PROGRAM*       21/43 L   21/43 E
        ERR=F         446   PROGRAM*       21/43 L   21/43 E
        ERR=K         447   PROGRAM*       21/43 L   21/43 E
        ERR=M         443   PROGRAM*       21/43 L   21/43 E
        ERR=T         444   PROGRAM*       21/43 L   21/43 E
        ERR=W         445   PROGRAM*       21/43 L   21/43 E
        ERR.A           0                  21/31 E   21/31 L   26/02     26/08
        ERR.C           6                  21/39 E   21/39 L   26/14     26/15
        ERR.F           4                  21/37 E   21/37 L
        ERR.K           5                  21/38 E   21/38 L
        ERR.M           1                  21/32 E   21/32 L   26/05     26/07     26/08     26/13
        ERR.T           2                  21/35 E   21/35 L   26/15
        ERR.W           3                  21/36 E   21/36 L
        E=TOTAL       451   PROGRAM*       21/44 L   21/44 E
        FAILSFT       217   PROGRAM*       16/22 L   16/22 E
        FA=SET          0   EXTERNAL*       4/06 X   23/27     23/46
        FEL             0   EXTERNAL*       4/03 X   24/41
        FLSLOP          4   FTX            25/51
        FLSLUP       1000   FTX            25/52
        FLUSED        664   PROGRAM*       27/13 S   27/14     28/50 L
        FV.LGO          0   EXTERNAL*       3/50 X   23/08     34/18
        FV.OUT          0   EXTERNAL*       3/50 X   35/13     35/29     46/18
        F$LBT         171   PROGRAM*       15/34 D   15/34 E
        F.ERRS          0   EXTERNAL*       3/50 X   24/12
        F.IL            0   EXTERNAL*       3/50 X   23/03     34/35
        F.IN            0   EXTERNAL*       3/50 X   22/51
        F.LBT         171   PROGRAM*       15/12 L   15/12 E   15/34
        F.LGO           0   EXTERNAL*       3/50 X   23/15     34/20     34/21     34/21
        F.OUT           0   EXTERNAL*       3/50 X   22/40     24/07     45/08
        F.PB            0   EXTERNAL*       3/51 X   23/27     23/30     34/31
        F.PIK        1271   PROGRAM*       49/21 L   49/21 E   50/39
        F.REF           0   EXTERNAL*       3/51 X   23/39     23/46     34/40
        F.SORD        360   PROGRAM*       19/38 L   19/38 E   20/27
        GCL          1044   PROGRAM*       38/20 L   38/20 E
        GMC          1051   PROGRAM*       25/43     39/22 L   39/22 E
        GMC10        1056   PROGRAM*       39/29     39/36 L
        GMC20        1065   PROGRAM*       39/33     39/53 L
        GT1             0   EXTERNAL*       3/51 X   28/10     28/32 S   28/41 S   29/35     35/27 S   39/37 S   39/43
                                           28/09 S   28/14 S   28/33     28/42     29/36     35/33     39/38
        HDRBL        1425   PROGRAM*       45/36     47/09     47/40 L   47/41 E
        HLC          1232   PROGRAM*       44/53 S   45/27 S   45/45 L   46/46
        HO$CSN        251   PROGRAM*       16/48 D   16/48 E
        HO$LVL2       231   PROGRAM*       16/40 D   16/40 E
        HO$MSG        222   PROGRAM*       16/27 L   16/27 E
        HO$PMLS       301   PROGRAM*       17/49 D   17/49 E
        HO$PRGN       223   PROGRAM*       16/29 D   16/29 E
        HO$RDR        322   PROGRAM*       18/07 D   18/07 E
        IDENT         223   PROGRAM*       16/28 L   16/28 E   16/29     42/12
        IDENT1        221   PROGRAM*       16/26 L   16/26 E   18/05
        INT.FL          0   EXTERNAL*       3/51 X   25/33     28/26
        IO.TEM        224   PROGRAM*       16/31 L   16/31 E
        I.CBSET         5   FTX            23/27     23/46
        LCNT          225   PROGRAM*       16/34 L   16/34 E   16/35     22/26 S   44/32 S   46/24     46/40     47/18
        LDCOM           0   EXTERNAL*       3/51 X   24/11     24/13
        LDRFL         452   PROGRAM*       21/49 L   28/04
        LEVEL         227   PROGRAM*       16/37 L   16/37 E
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        LEVEL0        230   PROGRAM*       16/38 L   16/38 E
        LEVEL2        231   PROGRAM*       16/39 L   16/39 E   16/40
        LINEBUF       233   PROGRAM*       16/43 L   16/43 E   42/10 S   42/24     42/25
        LINENR        251   PROGRAM*       16/47 D   16/47 E
        LINES         251   PROGRAM*       16/45 L   16/45 E   16/46     16/47     16/48     18/04
        LJS          1070   PROGRAM*       40/17 L   40/17 E
        LJS4         1072   PROGRAM*       40/24 L   40/26
        LOSTREF       252   PROGRAM*       16/50 L   16/50 E
        LUS             0   EXTERNAL*       3/57 X   25/23
        L=API          71   PROGRAM*       12/25 D   12/25 E
        L=APL          67   PROGRAM*       12/21 D   12/21 E
        L=ASG          74   PROGRAM*       12/31 D   12/31 E
        L=BLKS        100   PROGRAM*       12/39 D   12/39 E
        L=CAC          66   PROGRAM*       12/19 D   12/19 E
        L=CLW          65   PROGRAM*       12/17 D   12/17 E
        L=CON          75   PROGRAM*       12/33 D   12/33 E
        L=CUT          76   PROGRAM*       12/35 D   12/35 E
        L=DIM         102   PROGRAM*       12/43 D   12/43 E
        L=ENTP        103   PROGRAM*       12/45 D   12/45 E
        L=FPI         104   PROGRAM*       12/47 D   12/47 E
        L=GL           73   PROGRAM*       12/29 D   12/29 E
        L=IOA          70   PROGRAM*       12/23 D   12/23 E
        L=IOI          72   PROGRAM*       12/27 D   12/27 E
        L=NLST        101   PROGRAM*       12/41 D   12/41 E
        L=SYM          77   PROGRAM*       12/37 D   12/37 E
        L=TABLE       632                   9/35 D    9/35 E
        L=TABLES      632                   6/35 D    7/34 D    7/57 D    8/38 D    8/43 D    8/55 D    9/04 D    9/23 D
                                            7/22      7/39      8/01      8/39      8/44      8/57      9/05      9/24
                                            7/22 D    7/39 D    8/01 D    8/39 D    8/44 D    8/57 D    9/05 D    9/24 D
                                            7/28      7/46      8/03      8/40      8/45      9/01      9/19      9/25
                                            7/28 D    7/46 D    8/03 D    8/40 D    8/45 D    9/01 D    9/19 D    9/25 D
                                            7/30      7/51      8/04      8/41      8/46      9/02      9/21      9/26
                                            7/30 D    7/51 D    8/04 D    8/41 D    8/46 D    9/02 D    9/21 D    9/26 D
                                            7/33      7/54      8/06      8/42      8/47      9/03      9/22      9/27
                                            7/33 D    7/54 D    8/06 D    8/42 D    8/47 D    9/03 D    9/22 D    9/27 D
                                            7/34      7/57      8/38      8/43      8/55      9/04      9/23      9/35
        L=VDI         105   PROGRAM*       12/49 D   12/49 E
        L.CC            0   EXTERNAL*       3/51 X   44/56
        L.CCA           0   EXTERNAL*       3/51 X   45/32
        L.CCB           0   EXTERNAL*       3/51 X   45/34
        L.P2NUL        47   PROGRAM*       11/37 L   11/37 E
        L.P2SAV       106   PROGRAM*       12/51 L   12/51 E
        L.P2USE        65   PROGRAM*       12/15 L   12/15 E
        L.TA            0   EXTERNAL*       3/51 X   45/28
        L.TABLES     1560                   6/34 D    7/34 D    7/57 D    8/38 D    8/43 D    8/55 D    9/04 D    9/23 D
                                            7/22      7/39      8/01      8/39      8/44      8/57      9/05      9/24
                                            7/22 D    7/39 D    8/01 D    8/39 D    8/44 D    8/57 D    9/05 D    9/24 D
                                            7/28      7/46      8/03      8/40      8/45      9/01      9/19      9/25
                                            7/28 D    7/46 D    8/03 D    8/40 D    8/45 D    9/01 D    9/19 D    9/25 D
                                            7/30      7/51      8/04      8/41      8/46      9/02      9/21      9/26
                                            7/30 D    7/51 D    8/04 D    8/41 D    8/46 D    9/02 D    9/21 D    9/26 D
                                            7/33      7/54      8/06      8/42      8/47      9/03      9/22      9/27
                                            7/33 D    7/54 D    8/06 D    8/42 D    8/47 D    9/03 D    9/22 D    9/27 D
                                            7/34      7/57      8/38      8/43      8/55      9/04      9/23
        L.TABS        326   PROGRAM*       18/15 L   18/15 E   25/50 S
        L.TB            0   EXTERNAL*       3/51 X   45/30
        L.TITL          0   EXTERNAL*       3/52 X   44/46
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        L.TTLA          0   EXTERNAL*       3/52 X   45/18
        L.TTLB          0   EXTERNAL*       3/52 X   45/20
        L.TWO           0   EXTERNAL*       3/52 X   44/54
        MAX.FL          0   EXTERNAL*       3/52 X   39/23
        MEM.GOFL    34000   FTX            21/49
        MIN.TABS     3000   FTX            25/35
        MOD           253   PROGRAM*       16/55 L   16/55 E
        MSG=            0   EXTERNAL*       3/52 X   27/14     27/22     28/16     42/24
        MTD          1075   PROGRAM*       40/48 L   40/48 E
        MTD1         1077   PROGRAM*       40/52 L   41/04
        MTU          1104   PROGRAM*       41/23 L   41/23 E
        MTU1         1106   PROGRAM*       41/26 L   41/34
        MVE=            0   EXTERNAL*       4/06 X   41/03     41/33
        M.BOOL          0   FTX            19/16
        M.CHAR          6   FTX            36/29
        M.INT           2   FTX            19/15     19/17
        M.LOG           1   FTX            19/18     19/19
        NARGS         254   PROGRAM*       16/57 L   16/57 E
        NOLIST        255   PROGRAM*       17/02 L   17/02 E
        NPU          1230   PROGRAM*       22/38 S   44/48     45/22     45/42 L   46/42
        NREXT         256   PROGRAM*       17/05 L   17/05 E
        NSQZLH        257   PROGRAM*       17/08 L   17/08 E
        N$FERR        215   PROGRAM*       16/20 D   16/20 E
        N$FPS         271   PROGRAM*       17/30 D   17/30 E
        N$LBT          14                  15/36 D   15/36 E
        N$LC          274   PROGRAM*       17/38 L   17/38 E
        N$LINES       225   PROGRAM*       16/35 D   16/35 E
        N$SEP         270   PROGRAM*       17/26 D   17/26 E
        N$VD          277   PROGRAM*       17/44 D   17/44 E
        N.AP          260   PROGRAM*       17/10 L   17/10 E
        N.ARP         261   PROGRAM*       17/12 L   17/12 E
        N.BUF         262   PROGRAM*       17/16 L   17/16 E
        N.CON         264   PROGRAM*       17/19 L   17/19 E
        N.CPL         263   PROGRAM*       17/17 L   17/17 E
        N.CT          265   PROGRAM*       17/20 L   17/20 E
        N.CTMAX       266   PROGRAM*       17/21 L   17/21 E
        N.DOB         267   PROGRAM*       17/23 L   17/23 E
        N.EPL         270   PROGRAM*       17/25 L   17/25 E   17/26
        N.ERRT          7                  21/41 L   21/41 E
        N.FP          271   PROGRAM*       17/28 L   17/28 E   17/30
        N.GL          272   PROGRAM*       17/32 L   17/32 E
        N.MAXIL       273   PROGRAM*       17/34 L   17/34 E
        N.ST          275   PROGRAM*       17/40 L   17/40 E
        N.STMAX       276   PROGRAM*       17/41 L   17/41 E
        N.TABLE        47                   9/36 D    9/36 E   40/49     40/52     41/24
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        N.TABLES       47                   6/36 D    7/54 D    8/41 D    9/01 D    9/24 D   11/48     12/09     12/40
                                            7/22      7/57      8/42      9/02      9/25     11/49     12/10     12/42
                                            7/22 D    7/57 D    8/42 D    9/02 D    9/25 D   11/50     12/11     12/44
                                            7/28      8/01      8/43      9/03      9/26     11/51     12/12     12/46
                                            7/28 D    8/01 D    8/43 D    9/03 D    9/26 D   11/52     12/13     12/48
                                            7/30      8/03      8/44      9/04      9/27     11/53     12/14     12/50
                                            7/30 D    8/03 D    8/44 D    9/04 D    9/27 D   11/54     12/16     12/52
                                            7/33      8/04      8/45      9/05      9/36     11/55     12/18     12/53
                                            7/33 D    8/04 D    8/45 D    9/05 D   11/38     11/56     12/20     12/54
                                            7/34      8/06      8/46      9/19     11/39     11/57     12/22     12/55
                                            7/34 D    8/06 D    8/46 D    9/19 D   11/40     12/01     12/24     12/56
                                            7/39      8/38      8/47      9/21     11/41     12/02     12/26     12/57
                                            7/39 D    8/38 D    8/47 D    9/21 D   11/42     12/03     12/28     13/01
                                            7/46      8/39      8/55      9/22     11/43     12/04     12/30     13/02
                                            7/46 D    8/39 D    8/55 D    9/22 D   11/44     12/05     12/32
                                            7/51      8/40      8/57      9/23     11/45     12/06     12/34
                                            7/51 D    8/40 D    8/57 D    9/23 D   11/46     12/07     12/36
                                            7/54      8/41      9/01      9/24     11/47     12/08     12/38
        N.VD          277   PROGRAM*       17/43 L   17/43 E   17/44
        OD.ATRL        11   FTX            48/23     48/29
        OD.BJMPP       72   FTX            48/25
        OD.EDL          4   FTX            48/27
        OD.EDN         11   FTX            49/24     49/35     49/46     49/57     50/12     50/23     50/34     50/52
                                           49/25     49/36     49/47     50/01     50/13     50/24     50/35     50/53
                                           49/26     49/37     49/48     50/03     50/14     50/25     50/36     50/54
                                           49/27     49/38     49/49     50/04     50/15     50/26     50/37     50/55
                                           49/28     49/39     49/51     50/05     50/16     50/27     50/43     51/01
                                           49/29     49/40     49/52     50/06     50/17     50/28     50/44     51/02
                                           49/30     49/42     49/53     50/07     50/18     50/30     50/48     51/03
                                           49/31     49/43     49/54     50/08     50/19     50/31     50/49     51/04
                                           49/33     49/44     49/55     50/09     50/21     50/32     50/50
                                           49/34     49/45     49/56     50/10     50/22     50/33     50/51
        OD.FUPAP       71   FTX            48/26
        OD.GHL         14   FTX            48/28
        OD.QP          73   FTX            48/24
        OFFSPY          0   EXTERNAL*       3/52 X
        ORIGINS         0   PROGRAM*       10/05 L   10/05 E
        O=API          22   PROGRAM*       10/54 D   10/54 E
        O=APL          20   PROGRAM*       10/50 D   10/50 E
        O=ASG          25   PROGRAM*       11/03 D   11/03 E
        O=BLKS         31   PROGRAM*       11/11 D   11/11 E
        O=CAC          17   PROGRAM*       10/48 D   10/48 E
        O=CLW          16   PROGRAM*       10/46 D   10/46 E
        O=CON          26   PROGRAM*       11/05 D   11/05 E
        O=CUT          27   PROGRAM*       11/07 D   11/07 E
        O=DIM          33   PROGRAM*       11/15 D   11/15 E
        O=ENTP         34   PROGRAM*       11/17 D   11/17 E
        O=FPI          35   PROGRAM*       11/19 D   11/19 E
        O=GL           24   PROGRAM*       11/01 D   11/01 E
        O=IOA          21   PROGRAM*       10/52 D   10/52 E
        O=IOI          23   PROGRAM*       10/56 D   10/56 E
        O=NLST         32   PROGRAM*       11/13 D   11/13 E
        O=SYM          30   PROGRAM*       11/09 D   11/09 E
        O=VDI          36   PROGRAM*       11/21 D   11/21 E
        O.C             0   EXTERNAL*       3/52 X   45/34
        O.CC            0   EXTERNAL*       3/52 X   44/56     45/32
        O.CPV           0   EXTERNAL*       3/53 X   44/54     45/28
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        O.P2NUL         0   PROGRAM*       10/09 L   10/09 E
        O.P2SAV        37   PROGRAM*       11/23 L   11/23 E
        O.P2USE        16   PROGRAM*       10/44 L   10/44 E
        O.STITL       300   PROGRAM*       17/46 L   17/46 E   45/04
        O.TA            0   EXTERNAL*       3/53 X   45/30
        O.TABS        220   PROGRAM*       16/24 L   16/24 E   25/34     25/48
        O.TITL          0   EXTERNAL*       3/53 X   44/46
        O.TTLA          0   EXTERNAL*       3/53 X   24/28     45/18
        PAGELOC      1226   PROGRAM*       35/09     44/13     44/30     45/40 L
        PASS          302   PROGRAM*       17/51 L   17/51 E
        PES          1112   PROGRAM*       26/09     26/16     41/56 L
        PESA          327   PROGRAM*       41/57 S   42/27     42/33 D
        PES10        1114   PROGRAM*       42/02 L   42/30
        PES20        1122   PROGRAM*       42/14     42/17 L
        PES30        1130   PROGRAM*       42/03     42/27 L
        PIA          1132   PROGRAM*       43/09 L   43/09 E
        PIA2         1134   PROGRAM*       43/13 L   43/20
        PIK=EQ       1275   PROGRAM*       50/39 D   50/39 E
        PIK=LCM      1371   PROGRAM*       50/42 L   50/42 E
        PIK=PI       1403   PROGRAM*       50/57 L   50/57 E
        PIK=PS       1271   PROGRAM*       49/22 L   49/22 E
        PIK=XJP      1373   PROGRAM*       50/47 L   50/47 E
        PIK.EQ          4                  49/28 L   50/39
        PUC           453   PROGRAM*       22/16 L   22/16 E   26/17
        PUCB          740   PROGRAM*       33/10 L
        PUC1          460   PROGRAM*       22/32     22/36 L
        PUC10         544   PROGRAM*       24/27     24/36 L
        PUC11         545   PROGRAM*       24/20     24/41 L
        PUC2          464   PROGRAM*       22/39     22/45 L
        PUC20         571   PROGRAM*       25/42     26/02 L
        PUC3          472   PROGRAM*       22/46     22/54 L
        PUC30         573   PROGRAM*       26/04     26/07 L
        PUC4          474   PROGRAM*       22/50     22/52     23/01 L
        PUC4A         477   PROGRAM*       23/02     23/08 L
        PUC5          503   PROGRAM*       23/12     23/17 L
        PUC6          506   PROGRAM*       23/20     23/23 L
        PUC6A         512   PROGRAM*       23/26     23/29 L
        PUC7          514   PROGRAM*       23/11     23/29     23/35 L
        PUC8          522   PROGRAM*       23/36     23/45     23/51 L
        PUC85         531   PROGRAM*       24/06     24/09 L
        PUC9          535   PROGRAM*       23/57     24/03     24/19 L
        PU.MFL        301   PROGRAM*       17/48 L   17/48 E   17/49     24/49
        PWBUF         303   PROGRAM*       17/53 L   17/53 E
  U     QUAL$                              31/06 F   33/02 F
        RAPFLAG         0   EXTERNAL*       3/53 X   22/48
        RATES         116   PROGRAM*       13/05 L   13/05 E
        RA.ARG          2   CPUTEXT        30/14
        RA.PGN         64   CPUTEXT        27/54 S   28/16
        RDC=            0   EXTERNAL*       4/06 X   22/51
        REFIO         321   PROGRAM*       18/01 L   18/01 E   23/35     34/38
        REL             0   EXTERNAL*       4/03 X   24/43
        RPV=CLN       251   PROGRAM*       18/04 D   18/04 E
        RPV=MSG       221   PROGRAM*       18/05 D   18/05 E
        RPV=URP       322   PROGRAM*       18/06 L   18/06 E   18/07
        RS.PD           0   EXTERNAL*       3/53 X   35/23
        SAVE          323   PROGRAM*       18/09 L   18/09 E
        SCR           327   PROGRAM*       18/22 L   18/22 E   42/33
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        SFN             0   EXTERNAL*       4/06 X   40/29
        SIZES          47   PROGRAM*       11/34 L   11/34 E   40/54     41/27
        SPYW            0   EXTERNAL*       3/53 X
        SUM.LBT       205   PROGRAM*       15/31 L   15/31 E
        SYS=            0   EXTERNAL*       3/53 X   28/10     28/17     28/42     29/35
                                           28/04     28/14     28/33     28/44     39/38
        S$CON         366   PROGRAM*       20/30 D   20/30 E
        S$IT          412   PROGRAM*       20/31 D   20/31 E
        S$LC          406   PROGRAM*       20/32 D   20/32 E
        S$OT          414   PROGRAM*       20/33 D   20/33 E
        S$VD          432   PROGRAM*       20/34 D   20/34 E
        S=AEXIT       360   PROGRAM*       19/40 L   19/40 E
        S=BU          361   PROGRAM*       19/41 L   19/41 E
        S=BUF         363   PROGRAM*       19/43 L   19/43 E
        S=BUFIN       362   PROGRAM*       19/42 L   19/42 E
        S=CES         364   PROGRAM*       19/44 L   19/44 E
        S=CL          365   PROGRAM*       19/45 L   19/45 E
        S=CON         366   PROGRAM*       19/46 L   19/46 E   20/30
        S=CP          367   PROGRAM*       19/47 L   19/47 E
        S=CPL         370   PROGRAM*       19/48 L   19/48 E
        S=CT          371   PROGRAM*       19/49 L   19/49 E
        S=ENTRY       372   PROGRAM*       19/50 L   19/50 E
        S=ERR         373   PROGRAM*       19/51 L   19/51 E
        S=EXIT        374   PROGRAM*       19/52 L   19/52 E
        S=FAR         375   PROGRAM*       19/53 L   19/53 E
        S=FAS         376   PROGRAM*       19/54 L   19/54 E
        S=FID         377   PROGRAM*       19/55 L   19/55 E
        S=FILES       403   PROGRAM*       20/02 L   20/02 E
        S=FMC         400   PROGRAM*       19/56 L   19/56 E
        S=FVS         402   PROGRAM*       20/01 L   20/01 E
        S=GPL         404   PROGRAM*       20/03 L   20/03 E
        S=INIT        413   PROGRAM*       20/10 L   20/10 E
        S=IT          412   PROGRAM*       20/09 L   20/09 E   20/31
        S=LA          405   PROGRAM*       20/04 L   20/04 E
        S=LC          406   PROGRAM*       20/05 L   20/05 E   20/32
        S=LENP        407   PROGRAM*       20/06 L   20/06 E
        S=LMC         410   PROGRAM*       20/07 L   20/07 E
        S=MMC         411   PROGRAM*       20/08 L   20/08 E
        S=OT          414   PROGRAM*       20/11 L   20/11 E   20/33
        S=RD          415   PROGRAM*       20/12 L   20/12 E
        S=SA0         417   PROGRAM*       20/14 L   20/14 E
        S=SA1         416   PROGRAM*       20/13 L   20/13 E
        S=SLI         420   PROGRAM*       20/15 L   20/15 E
        S=SPA         421   PROGRAM*       20/16 L   20/16 E
        S=ST          422   PROGRAM*       20/17 L   20/17 E
        S=SUB         423   PROGRAM*       20/18 L   20/18 E
        S=SUBI        424   PROGRAM*       20/19 L   20/19 E
        S=SUB0I       425   PROGRAM*       20/20 L   20/20 E
        S=TA0         427   PROGRAM*       20/22 L   20/22 E
        S=TRACE       426   PROGRAM*       20/21 L   20/21 E
        S=UPW         430   PROGRAM*       20/23 L   20/23 E
        S=VALUE       431   PROGRAM*       20/24 L   20/24 E
        S=VD          432   PROGRAM*       20/25 L   20/25 E   20/34     38/29
        TEST            0   FTX            13/51 F   25/45 F   39/40 F   43/39 F   47/25 F
                                           21/33 F   34/28 F   40/19 F   47/01 F
        THRESH        324   PROGRAM*       18/11 L   18/11 E   25/53 S
        TIMER         673   PROGRAM*       25/28     29/11     29/34 L   29/34 E
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        TIME0           0   EXTERNAL*       3/54 X   27/19
        TIME1           0   EXTERNAL*       3/54 X   25/29 S
        TL.EJCT         0   EXTERNAL*       3/54 X   24/24
        TL.PAGE         0   EXTERNAL*       3/54 X   44/45     44/45 S   45/12
        TL.PTYP         0   EXTERNAL*       3/54 X   45/20
        TP.BIASL       30   FTX            19/15     19/16     19/17     19/18     19/19
        TP.MODEL        3   FTX            19/15     19/16     19/17     19/18     19/19
        TP.ORDL        20   FTX            19/15     19/16     19/17     19/18     19/19
        TP.SHRTP       14   FTX            19/15     19/16     19/17     19/18     19/19
        TTLOFF       1225   PROGRAM*       44/12 S   44/52     45/19     45/29     45/33
                                           44/42     44/55     45/26     45/31     45/39 L
        TV=CUR        170   PROGRAM*       14/13 L   14/13 E
        TV=DECL       165   PROGRAM*       14/10 L   14/10 E
        TV=END        167   PROGRAM*       14/12 L   14/12 E
        TV=EXU        166   PROGRAM*       14/11 L   14/11 E
        T=API          71   PROGRAM*       12/24 L   12/24 E   12/25
        T=APL          67   PROGRAM*       12/20 L   12/20 E   12/21
        T=ARG          50   PROGRAM*       11/40 L   11/40 E
        T=ASG          74   PROGRAM*       12/30 L   12/30 E   12/31
        T=BLKS        100   PROGRAM*       12/38 L   12/38 E   12/39
        T=BLST         53   PROGRAM*       11/46 L   11/46 E
        T=CAC          66   PROGRAM*       12/18 L   12/18 E   12/19
        T=CLW          65   PROGRAM*       12/16 L   12/16 E   12/17
        T=CLWB         61   PROGRAM*       12/10 D   12/10 E
        T=COMM         52   PROGRAM*       11/45 L   11/45 E
        T=CON          75   PROGRAM*       12/32 L   12/32 E   12/33
        T=CUT          76   PROGRAM*       12/34 L   12/34 E   12/35
        T=C$IF         64   PROGRAM*       12/14 L   12/14 E
        T=DAR          57   PROGRAM*       12/06 D   12/06 E
        T=DATI         54   PROGRAM*       11/51 L   11/51 E
        T=DATL         55   PROGRAM*       11/55 L   11/55 E
        T=DATS         56   PROGRAM*       12/03 D   12/03 E
        T=DIM         102   PROGRAM*       12/42 L   12/42 E   12/43
        T=DVV          52   PROGRAM*       11/48 D   11/48 E
        T=ECT         110   PROGRAM*       12/54 L   12/54 E
        T=END         115   PROGRAM*       13/02 L   13/02 E
        T=ENT         111   PROGRAM*       12/55 L   12/55 E
        T=ENTP        103   PROGRAM*       12/44 L   12/44 E   12/45
        T=EOT          55   PROGRAM*       11/56 D   11/56 E
        T=EQUS         51   PROGRAM*       11/43 D   11/43 E
        T=FILL         55   PROGRAM*       11/57 D   11/57 E
        T=FMT         114   PROGRAM*       13/01 L   13/01 E
        T=FPI         104   PROGRAM*       12/46 L   12/46 E   12/47
        T=FPO          52   PROGRAM*       11/47 D   11/47 E
        T=GL           73   PROGRAM*       12/28 L   12/28 E   12/29
        T=ILI          55   PROGRAM*       12/01 D   12/01 E
        T=IOA          70   PROGRAM*       12/22 L   12/22 E   12/23
        T=IOARG        52   PROGRAM*       11/50 D   11/50 E
        T=IOI          72   PROGRAM*       12/26 L   12/26 E   12/27
        T=IOLC         56   PROGRAM*       12/04 D   12/04 E
        T=LA           76   PROGRAM*       12/50 D   12/50 E
        T=LCA         107   PROGRAM*       12/53 L   12/53 E
        T=LCC         113   PROGRAM*       12/57 L   12/57 E
        T=LGOB         47   PROGRAM*       11/39 D   11/39 E
        T=LINK         51   PROGRAM*       11/44 D   11/44 E
        T=LNT         112   PROGRAM*       12/56 L   12/56 E
        T=NLST        101   PROGRAM*       12/40 L   12/40 E   12/41
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        T=OUS          54   PROGRAM*       11/52 D   11/52 E
        T=PAR          57   PROGRAM*       12/05 L   12/05 E
        T=PCS          60   PROGRAM*       12/08 L   12/08 E
        T=PTXT         54   PROGRAM*       11/54 D   11/54 E
        T=PTXTR        50   PROGRAM*       11/41 D   11/41 E
        T=REF         106   PROGRAM*       12/52 L   12/52 E
        T=SAP          56   PROGRAM*       12/02 L   12/02 E
        T=SCR          54   PROGRAM*       11/53 D   11/53 E
        T=SLARG        52   PROGRAM*       11/49 D   11/49 E
        T=STF          51   PROGRAM*       11/42 L   11/42 E
        T=STMT         61   PROGRAM*       12/09 L   12/09 E
        T=SUB          62   PROGRAM*       12/11 L   12/11 E
        T=SUB0         63   PROGRAM*       12/13 D   12/13 E
        T=SYM          77   PROGRAM*       12/36 L   12/36 E   12/37
        T=TB           47   PROGRAM*       11/38 L   11/38 E
        T=VDI         105   PROGRAM*       12/48 L   12/48 E   12/49
        T=VDIM         63   PROGRAM*       12/12 L   12/12 E
        T=XFIL         57   PROGRAM*       12/07 D   12/07 E
        T.API          22   PROGRAM*       10/53 L   10/53 E   10/54     12/24
        T.APL          20   PROGRAM*       10/49 L   10/49 E   10/50     12/20
        T.ARG           1   PROGRAM*       10/12 L   10/12 E   10/13     11/40
        T.ASG          25   PROGRAM*       11/02 L   11/02 E   11/03     12/30
        T.BLKS         31   PROGRAM*       11/10 L   11/10 E   11/11     12/38
        T.BLST          4   PROGRAM*       10/18 L   10/18 E   11/46
        T.CAC          17   PROGRAM*       10/47 L   10/47 E   10/48     12/18
        T.CLW          16   PROGRAM*       10/45 L   10/45 E   10/46     12/16
        T.CLWB         12   PROGRAM*       10/39 D   10/39 E   12/10
        T.COMM          3   PROGRAM*       10/17 L   10/17 E   10/19     10/20     10/21     10/22     11/45
        T.CON          26   PROGRAM*       11/04 L   11/04 E   11/05     12/32
        T.CUT          27   PROGRAM*       11/06 L   11/06 E   11/07     11/22     12/34
        T.C$IF         15   PROGRAM*       10/43 L   10/43 E   12/14
        T.DAR          10   PROGRAM*       10/35 D   10/35 E   12/06
        T.DATI          5   PROGRAM*       10/23 L   10/23 E   10/24     10/25     10/26     11/51
        T.DATL          6   PROGRAM*       10/27 L   10/27 E   10/28     10/29     10/30     11/55
        T.DATS          7   PROGRAM*       10/32 D   10/32 E   12/03
        T.DIM          33   PROGRAM*       11/14 L   11/14 E   11/15     12/42
        T.DVV           3   PROGRAM*       10/20 D   10/20 E   11/48
        T.ECT          41   PROGRAM*       11/26 L   11/26 E   12/54
        T.END          46   PROGRAM*       11/31 L   11/31 E   13/02
        T.ENT          42   PROGRAM*       11/27 L   11/27 E   12/55
        T.ENTP         34   PROGRAM*       11/16 L   11/16 E   11/17     12/44
        T.EOT           6   PROGRAM*       10/28 D   10/28 E   11/56
        T.EQUS          2   PROGRAM*       10/15 D   10/15 E   11/43
        T.FILL          6   PROGRAM*       10/29 D   10/29 E   11/57
        T.FMT          45   PROGRAM*       11/30 L   11/30 E   13/01
        T.FPI          35   PROGRAM*       11/18 L   11/18 E   11/19     12/46
        T.FPO           3   PROGRAM*       10/19 D   10/19 E   11/47
        T.GL           24   PROGRAM*       10/57 L   10/57 E   11/01     12/28
        T.ILI           6   PROGRAM*       10/30 D   10/30 E   12/01
        T.IOA          21   PROGRAM*       10/51 L   10/51 E   10/52     12/22
        T.IOARG         3   PROGRAM*       10/22 D   10/22 E   11/50
        T.IOI          23   PROGRAM*       10/55 L   10/55 E   10/56     12/26
        T.IOLC          7   PROGRAM*       10/33 D   10/33 E   12/04
        T.LA           27   PROGRAM*       11/22 D   11/22 E   12/50
        T.LCA          40   PROGRAM*       11/25 L   11/25 E   12/53
        T.LCC          44   PROGRAM*       11/29 L   11/29 E   12/57
        T.LGOB          0   PROGRAM*       10/11 D   10/11 E   11/39
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        T.LINK          2   PROGRAM*       10/16 D   10/16 E   11/44
        T.LNT          43   PROGRAM*       11/28 L   11/28 E   12/56
        T.NLST         32   PROGRAM*       11/12 L   11/12 E   11/13     12/40
        T.OUS           5   PROGRAM*       10/24 D   10/24 E   11/52
        T.PAR          10   PROGRAM*       10/34 L   10/34 E   10/35     10/36     12/05
        T.PCS          11   PROGRAM*       10/37 L   10/37 E   12/08
        T.PTXT          5   PROGRAM*       10/26 D   10/26 E   11/54
        T.PTXTR         1   PROGRAM*       10/13 D   10/13 E   11/41
        T.REF          37   PROGRAM*       11/24 L   11/24 E   12/52
        T.SAP           7   PROGRAM*       10/31 L   10/31 E   10/32     10/33     12/02
        T.SCR           5   PROGRAM*       10/25 D   10/25 E   11/53
        T.SLARG         3   PROGRAM*       10/21 D   10/21 E   11/49
        T.STF           2   PROGRAM*       10/14 L   10/14 E   10/15     10/16     11/42
        T.STMT         12   PROGRAM*       10/38 L   10/38 E   10/39     12/09
        T.SUB          13   PROGRAM*       10/40 L   10/40 E   12/11
        T.SUB0         14   PROGRAM*       10/42 D   10/42 E   12/13
        T.SYM          30   PROGRAM*       11/08 L   11/08 E   11/09     12/36     38/22
        T.TB            0   PROGRAM*       10/10 L   10/10 E   10/11     11/38
        T.VDI          36   PROGRAM*       11/20 L   11/20 E   11/21     12/48
        T.VDIM         14   PROGRAM*       10/41 L   10/41 E   10/42     12/12
        T.XFIL         10   PROGRAM*       10/36 D   10/36 E   12/07
        USAVE         325   PROGRAM*       18/13 L   18/13 E
        VFALSE        357   PROGRAM*       19/19 L   19/19 E
        VTRUE         356   PROGRAM*       19/18 L   19/18 E
        WB.BASEL       14   FTX            36/52
        WB.BASEP       41   FTX            36/51
        WB.EQVL         1   FTX            36/22
        WB.EQVP        11   FTX            36/22     36/51
        WB.MODEL        3   FTX            36/25
        WB.W            1   FTX            36/19     36/20
        WC.BCPL         4   FTX            36/35     36/43     36/56     37/48
        WC.BCPP        30   FTX            36/34     36/38     36/45     37/03     37/15     37/49     37/54
        WC.CLENL       22   FTX            36/23     37/09     37/10     38/24
        WC.CLENP       36   FTX            36/26     36/34     37/10     37/55     38/27
        WC.RAL         30   FTX            36/41     37/07     37/12     37/16     37/46     37/57
                                           36/43     37/08     37/13     37/42     37/47
        WC.RAP          0   FTX            37/49
        WC.W            2   FTX            36/20     37/02     38/25
        WFA           703   PROGRAM*       27/45     27/57     28/25     30/12 L
        WFA1          705   PROGRAM*       30/14 L   30/17     30/20
        WHL          1141   PROGRAM*       44/08 L   46/37
        WHL1         1153   PROGRAM*       44/16     44/22     44/24     44/28 L
        WHL2         1174   PROGRAM*       44/49     44/50     45/01 L
        WHL5         1201   PROGRAM*       44/43     45/12 L
        WHL7         1222   PROGRAM*       45/03     45/10     45/23     45/24     45/36 L
        WNB=            0   EXTERNAL*       3/54 X   23/15     30/19
        WOF          1233   PROGRAM*       42/25     46/14 L   46/14 E
        WOFA         1267   PROGRAM*       46/36 S   47/07 S   47/10     47/36 L
        WOFB         1270   PROGRAM*       44/25     44/41     46/23 S   47/08     47/29     47/37 L
        WOFC         1266   PROGRAM*       46/16 S   47/31     47/35 L
        WOF0         1251   PROGRAM*       46/43     46/49 L
        WOF1         1252   PROGRAM*       46/30     46/55 L
        WOF3         1256   PROGRAM*       46/51     47/10 L
        WOF4         1257   PROGRAM*       46/55     47/16 L
        WOF5         1262   PROGRAM*       47/16     47/23 L
        WOF7         1264   PROGRAM*       47/21     47/31 L
1       PUC - PROGRAM UNIT CONTROLLER AND SUPPORT.                    COMPASS 3.7-871.     24/05/02. 13.13.45.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        WOF=ERR       320   PROGRAM*       17/55 L   44/09     44/38     45/02     46/17     47/17
                                           17/55 E   44/29     44/47     45/21     46/38
        WO.CS         341   PROGRAM*       18/37 L   18/37 E
        WO.C$         341   PROGRAM*       18/35 L   18/35 E
        WO.DOLG       342   PROGRAM*       18/38 L   18/38 E
        WO.DOOT       343   PROGRAM*       18/39 L   18/39 E
        WO.LCM        352   PROGRAM*       18/46 L   18/46 E
        WO.LOA        344   PROGRAM*       18/40 L   18/40 E
        WO.LOM        345   PROGRAM*       18/41 L   18/41 E
        WO.LOO        346   PROGRAM*       18/42 L   18/42 E
        WO.LOR        347   PROGRAM*       18/43 L   18/43 E
        WO.LOS        350   PROGRAM*       18/44 L   18/44 E
        WO.QC         351   PROGRAM*       18/45 L   18/45 E
        WTH=            0   EXTERNAL*       4/06 X   44/26     44/56     45/20     45/32     47/09
                                           22/40     44/46     45/09     45/28     45/34     47/30
                                           35/33     44/54     45/18     45/30     45/36
        Z$LBT          14                  15/35 D   15/35 E
        Z=BLKS          2   FTX             8/57     11/10
        Z=SYM           3   FTX             8/55     11/08
        Z=TURP          3   FTX            17/34
        Z.LBT          14                  15/29 L   15/29 E   15/35     15/36
        Z.SORD         53                  20/27 D   20/27 E
        .DAL            1   FTX            50/41 F
        .OS             1   FTX            28/03 F
        .SPY            0   FTX            25/02 F   27/27 F   33/08 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCFD 
  
  
        CFD           712   PROGRAM*       32/03 L   33/04     33/05
        CFDA          732   PROGRAM*       32/04     32/47 L
        CFDB          734   PROGRAM*       32/05     32/49 L
        CFDC          737   PROGRAM*       31/56     32/52 L
        CFD1          721   PROGRAM*       32/18     32/21 L   32/29
        CFD2          730   PROGRAM*       32/41     32/43 L
        CFD3          711   PROGRAM*       31/56 L   32/12
1       QCGLINK - QCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       23              IDENT  QCGLINK
                         23                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=QCGLI          0+           MDD              3+           CGL              3+ 
                                        FEL              0+           PDC              3+           REL              5+ 
                                        FEL.RTN          2+           BCT              3+           REL.RTN         13+ 
                                        CGE              3+           MAL              3+           PDI             14+ 
                                        DER              3+           PCA              3+           PIS             17+ 
                                        LPE              3+           PAT              3+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        FEC       F.PB      PASS      CAI       CIO=
                                        OIL       BINIO     CO.QC     REC 
  
  
  
  
                                                  IDENT  QCGLINK                                                 QCGLINK     2
                                         QCGLINK  SECT   (QCG MODE LINKAGE ROUTINES.)                            QCGLINK     3
  
  
  
  
  
                                        *         IN FEC                                                         QCGLINK     5
                                                  EXT    FEC,OIL                                                 QCGLINK     6
                                                                                                                 QCGLINK     7
                                        *         IN FTN                                                         QCGLINK     8
                                                  EXT    F.PB                                                    QCGLINK     9
                                                                                                                 QCGLINK    10
                                        *         IN PUC                                                         QCGLINK    11
                                                  EXT    BINIO,PASS,CO.QC                                        FC5A158A  283
                                                                                                                 QCGLINK    13
                                        *         IN QCGC                                                        QCGLINK    14
                                                  EXT    CAI                                                     QCGLINK    15
                                                                                                                 QCGLINK    16
                                        *         IN REC                                                         QCGLINK    17
                                                  EXT    REC                                                     QCGLINK    18
                                                                                                                 QCGLINK    19
                                        *         IN UTILITY                                                     QCGLINK    20
                                                  EXT    CIO=                                                    QCGLINK    21
1       QCGLINK - QCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     2
        FRONT END LOADER                                              FEL 
  
                                        **        FEL - FRONT END LOADER.                                        QCGLINK    24
                                        *                                                                        QCGLINK    25
                                        *         THE QCG FRONT END RESIDES IN THE SAME OVERLAY                  QCGLINK    26
                                        *         AS THE PROGRAM UNIT CONTROLLER.                                QCGLINK    27
                                                                                                                 QCGLINK    28
                                                                                                                 QCGLINK    29
             0  0400400000 +             FEL      SUBR   =           ...ENTRY/EXIT...                            QCGLINK    30
             1  0400000000 X                      EQ     FEC         TRANSFER TO FRONT END CONTROLLER            QCGLINK    31
             2                           FEL.RTN  BSSENT 0           ...RETURN FROM FRONT END CONTROLLER         QCGLINK    32
             2  0400000000 +                      EQ     EXIT.       THATS ALL FOLKS...                          QCGLINK    33
  
  
  
  
                                        **        CGE -  CHECK (CODE) GENERATOR ERRORS                           QCGLINK    35
                                        *                                                                        QCGLINK    36
                                        *         THIS IS A STUB FOR OPT=0 PROCESSING.  NO ACTION                QCGLINK    37
                                                                                                                 QCGLINK    38
                                                                                                                 QCGLINK    39
             3  0400400003 +             CGE      SUBR   =           ...ENTRY/EXIT...                            QCGLINK    40
             4  0400000003 +                      EQ     EXIT.                                                   QCGLINK    41
  
  
  
  
                                        **        DER -  DETECT EXTENDED RANGE DO LOOPS.                         QCGLINK    50
                                        *                                                                        QCGLINK    51
                                        *         THIS IS A STUB FOR OPT = 0 PROCESSING. NO ACTION               QCGLINK    52
                                                                                                                 QCGLINK    53
                                                                                                                 QCGLINK    54
                                         DER      EQUENT CGE                                                     QCGLINK    55
  
  
  
  
                                        **        LPE -  LINK POSSIBLE ENTRY DO LOOPS.                           QCGLINK    57
                                        *                                                                        QCGLINK    58
                                        *         THIS IS A STUB FOR OPT = 0 PROCESSING. NO ACTION.              QCGLINK    59
                                                                                                                 QCGLINK    60
                                                                                                                 QCGLINK    61
                                         LPE      EQUENT CGE                                                     QCGLINK    62
  
  
  
  
                                        **        MDD -  MARK DO PARAMETERS DEFINED.                             QCGLINK    64
                                        *                                                                        QCGLINK    65
                                        *         THIS IS A STUB FOR OPT = 0 PROCESSING.                         QCGLINK    66
                                                                                                                 QCGLINK    67
                                                                                                                 QCGLINK    68
                                         MDD      EQUENT CGE                                                     QCGLINK    69
1       QCGLINK - QCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     3
        FRONT END LOADER                                              PDC 
  
                                        **        PDC - PROCESS DIVIDE BY CONSTANT.                              FC5A150   277
                                        *                                                                        FC5A150   278
                                        *         THIS IS A STUB FOR OPT=0 PROCESSING.                           FC5A150   279
                                                                                                                 FC5A150   280
                                         PDC      EQUENT CGE                                                     FC5A150   281
  
  
  
  
                                        **        BCT - BLANCH CONSTANT TABLE.  DUMMY FOR OPT=0.                 FC5A128   121
                                                                                                                 FC5A128   122
                                         BCT      EQUENT CGE                                                     FC5A128   123
  
  
  
  
                                        **        MAL - MARK LOOPS POSSIBLY ENTERED VIA ASSIGNED GOTO.           FC5A177     6
                                                                                                                 FC5A177     7
                                         MAL      EQUENT CGE                                                     FC5A177     8
  
  
  
  
                                        **        PCA - PROCESS *CAC* TABLE.  DUMMY FOR OPT=0.                   FC5A128   125
                                                                                                                 FC5A128   126
                                         PCA      EQUENT CGE                                                     FC5A128   127
  
  
  
  
                                        **        PAT - PREPROCESS APLIST TABLE.  DUMMY FOR OPT=0.               FC5A128   129
                                                                                                                 FC5A128   130
                                         PAT      EQUENT CGE                                                     FC5A128   131
1       QCGLINK - QCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     4
        CODE GENERATOR LOADER                                         CGL 
  
                                        **        CGL - CODE GENERATOR LOADER.                                   QCGLINK    72
                                        *                                                                        QCGLINK    73
                                        *         IN QCG MODE EVERYTHING RESIDES IN ONE OVERLAY.                 QCGLINK    74
                                        *         THE FRONT END CONTROLLER *FEC* HAS BEEN PASSING                QCGLINK    75
                                        *         IL OFF TO THE CODE GENERATOR A LITTLE AT A                     QCGLINK    76
                                        *         TIME. THE CODE GENERATOR THEREFORE HAS BEEN LOADED             QCGLINK    77
                                        *         AND ALL THAT IS LEFT IS A LITTLE CLEANUP.                      QCGLINK    78
                                                                                                                 QCGLINK    79
                                                                                                                 QCGLINK    80
                                         CGL      EQUENT CGE                                                     FC5A128   132
1       QCGLINK - QCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     5
        REAR END LOADER                                               REL 
  
                                        **        REL - REAR END LOADER.                                         QCGLINK    85
                                        *                                                                        QCGLINK    86
                                        *         THIS IS THE LOADER FOR THE END, MAP, OBJECT LIST,              QCGLINK    87
                                        *         AND ASSEMBLY PROCESSORS.                                       QCGLINK    88
                                        *         THERE IS ONLY ONE OVERLAY IN QCG MODE. THEREFORE, CONTROL      QCGLINK    89
                                        *         GOES TO THE REAR END CONTROLLER.                               QCGLINK    90
                                                                                                                 QCGLINK    91
                                                                                                                 QCGLINK    92
             5  0400400005 +             REL      SUBR   =           ...ENTRY/EXIT...                            QCGLINK    93
                                         .RM      IFNE   CP#RM,7                                                 FC5A158A  284
             6  5110000000 X                      SA1    F.PB+I.FET  X1 = CODE/STATUS WORD OF F.PB FET           QCGLINK    94
                          20171                   LX1    59-2                                                    QCGLINK    95
                               76600              =X6    0                                                       QCGLINK    96
             7  0321000012 +                      PL     X1,REL5     IF PHYSICAL I/O HAS NOT OCCURED             QCGLINK    97
                                         .RM      ELSE                                                           FC5A158A  285
                                                  SA1    CO.QC                                                   FC5A158A  286
                                                  MX6    0                                                       FC5A158A  287
                                                  MI     X1,REL5     IF IN *QC* MODE                             FC5A158A  288
                                         .RM      ENDIF                                                          FC5A158A  289
                          7120000000 X            WRITER F.PB        FLUSH PRE-BINARY                            QCGLINK    98
            11  77601                             =X6    -1                                                      QCGLINK    99
            12  5160000000 X             REL5     SA6    BINIO                                                   QCGLINK   100
                          0400000000 X            EQ     REC                                                     QCGLINK   101
                                                                                                                 QCGLINK   102
            13                           REL.RTN  BSSENT 0           ...RETURN FROM REAR END CONTROLLER          QCGLINK   103
            13  0400000005 +                      EQ     EXIT.       EXIT...                                     QCGLINK   104
  
  
  
  
                                        **        PDI - PUBLISH DATA TO IL FILE.                                 QCGLINK   106
                                        *                                                                        QCGLINK   107
                                        *         LIKE *PIS*, BELOW, THIS ROUTINE EXISTS IN QCG AND CCG.         QCGLINK   108
                                        *         IN QCG MODE, CAI IS CALLED TO COPY (T.DATS) TO (F.PB).         QCGLINK   109
                                                                                                                 QCGLINK   110
                                                                                                                 QCGLINK   111
            14  0400400014 +             PDI      SUBR   =           ENTRY/EXIT...                               QCGLINK   112
            15  0100000000 X                      CALL   OIL         OUTPUT IL SEGMENT                           QCGLINK   113
            16  0400000014 +                      EQ     EXIT.                                                   QCGLINK   114
  
  
  
  
                                        **        PIS - PUBLISH IL SEGMENT.                                      QCGLINK   116
                                        *                                                                        QCGLINK   117
                                        *         THERE ARE TWO VERSIONS OF THIS ROUTINE.                        QCGLINK   118
                                        *         IN QCG MODE, CAI IS CALLED TO COMPILE ALL INSTRUCTIONS         QCGLINK   119
                                        *            TO T.PB.                                                    QCGLINK   120
                                        *         IN CCG MODE, THE IL IS WRITTEN TO A FILE FOR LATER             QCGLINK   121
                                        *            PROCESSING BY THE BRIDGE.                                   QCGLINK   122
                                                                                                                 QCGLINK   123
                                                                                                                 QCGLINK   124
            17  0400400017 +             PIS      SUBR   =           ENTRY/EXIT...                               QCGLINK   125
            20  76610                             =X6    PASS=QCG                                                QCGLINK   126
                     5160000000 X                 SA6    PASS                                                    QCGLINK   127
            21  0100000000 X                      CALL   CAI         COMPILE ALL INSTRUCTIONS                    QCGLINK   128
            22  0400000017 +                      EQ     EXIT.                                                   QCGLINK   129
1       QCGLINK - QCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     6
        REAR END LOADER                                               PIS 
  
                                                                                                                 QCGLINK   130
                                                                                                                 QCGLINK   131
                                                  LIST   D                                                       QCGLINK   132
            23                                    END                                                            QCGLINK   133
  
                             73600B CM  STORAGE USED              301 STATEMENTS     1367 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.587 SECONDS          65 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BCT             3   PROGRAM*        3/12 D    3/12 E
        BINIO           0   EXTERNAL*       1/39 X    5/22 S
        B1=1            0 
        CAI             0   EXTERNAL*       1/42 X    5/56
        CGE             3   PROGRAM*        2/20 L    2/31      2/51      3/12      3/26      4/10
                                            2/20 E    2/41      3/05      3/19      3/33
        CGL             3   PROGRAM*        4/10 D    4/10 E
        CIO=            0   EXTERNAL*       1/48 X    5/20
        CO.QC           0   EXTERNAL*       1/39 X
        CP#RM           0   FTX             5/10 F
        DER             3   PROGRAM*        2/31 D    2/31 E
        FEC             0   EXTERNAL*       1/33 X    2/08
        FEL             0   PROGRAM*        2/07 L    2/07 E
        FEL.RTN         2   PROGRAM*        2/09 L    2/09 E
        F.PB            0   EXTERNAL*       1/36 X    5/11      5/20
        I.FET           0   FTX             5/11
        LPE             3   PROGRAM*        2/41 D    2/41 E
        MAL             3   PROGRAM*        3/19 D    3/19 E
        MDD             3   PROGRAM*        2/51 D    2/51 E
        OIL             0   EXTERNAL*       1/33 X    5/38
        PASS            0   EXTERNAL*       1/39 X    5/55 S
        PASS=QCG        1   FTX             5/54
        PAT             3   PROGRAM*        3/33 D    3/33 E
        PCA             3   PROGRAM*        3/26 D    3/26 E
        PDC             3   PROGRAM*        3/05 D    3/05 E
        PDI            14   PROGRAM*        5/37 L    5/37 E
        PIS            17   PROGRAM*        5/53 L    5/53 E
        REC             0   EXTERNAL*       1/45 X    5/23
        REL             5   PROGRAM*        5/09 L    5/09 E
        REL5           12   PROGRAM*        5/14      5/22 L
        REL.RTN        13   PROGRAM*        5/25 L    5/25 E
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      125              IDENT  CCGLINK
                        125                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=CCGLI          0+           L=FE             4+           CGL.RTN         41+ 
                                        N$EXST           0+           ERR22            5+           REL             52+ 
                                        APCON            1+           FEL              6+           REL.RTN         60+ 
                                        N.IL             2+           FEL.RTN         11+ 
                                        O=FE             3+           CGL             12+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.LOO    F.REF     FWA23     O.P2USE   T=BLKS    T=REF     T=ENTP    CIO=
                                        CO.LOR    LOVER     BASES     O.TABS    T=CON     T=SYM     T=FPI     WTW=
                                        CO.SNAP   N.TABLE   GMC       REFIO     T=END     T.END     T=VDI 
                                        CP.NFLS   WNB=      L.P2SAV   SIZES     T=GL      T=CAC     T.REF 
                                        FV.LGO    PTO       MTD       T=API     T=IOA     T=CLW     WOF 
                                        F.IL      FWA21     MTU       T=APL     T=IOI     T=CUT     WO.QC 
                                        F.PB      FWA22     O.P2SAV   T=ASG     T=NLST    T=DIM     BINIO 
  
  
  
  
                                                  IDENT  CCGLINK                                                 CCGLINK     2
                                         CCGLINK  SECT   (CCG MODE LINKAGE ROUTINES.)                            CCGLINK     3
  
  
  
  
  
                                        *         IN FTN                                                         FC50616     5
                                                  EXT    CO.LOO,CO.LOR,CO.SNAP,CP.NFLS,FV.LGO,F.IL,F.PB          FC50616     6
                                                  EXT    F.REF,LOVER,N.TABLE,WNB=                                CCGLINK     6
                                                                                                                 CCGLINK     7
                                        *         IN IDP                                                         CCGLINK     8
                                                  EXT    PTO                                                     CCGLINK     9
                                                                                                                 CCGLINK    10
                                        *         IN INIT20                                                      CCGLINK    11
                                                  EXT    FWA21,FWA22,FWA23                                       CCGLINK    12
                                                                                                                 CCGLINK    13
                                        *         IN PUC                                                         CCGLINK    14
                                                  EXT    BASES,GMC,L.P2SAV,MTD,MTU,O.P2SAV,O.P2USE               CCGLINK    15
                                                  EXT    O.TABS,REFIO,SIZES,T=API,T=APL,T=ASG,T=BLKS,T=CON       CCGLINK    16
                                                  EXT    T=END,T=GL,T=IOA,T=IOI,T=NLST,T=REF,T=SYM,T.END         CCGLINK    17
                                                  EXT    T=CAC,T=CLW,T=CUT,T=DIM,T=ENTP,T=FPI,T=VDI,T.REF,WOF    CCGLINK    18
                                                  EXT    WO.QC,BINIO                                             CCGLINK    19
                                                                                                                 CCGLINK    20
                                        *         IN UTILITY                                                     CCGLINK    21
                                                  EXT    CIO=,WTW=                                               CCGLINK    22
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     2
                                                                      VALUES
  
                                        **        CCG LINKAGE VALUES.                                            CCGLINK    24
                                                                                                                 CCGLINK    25
                                                                                                                 CCGLINK    26
             0  00000000000000000000     N$EXST   CONENT 0           NUMBER OF *BOS*ES IN ENTIRE IL              CCGLINK    27
             1  00000000000000000000     APCON    CONENT 0           NZ IFF CON. IN APLIST                       CCGLINK    28
                                                                                                                 CCGLINK    29
             2  00000000000000000000     N.IL     CONENT 0           LENGTH OF IL FILE (WORDS)                   CCGLINK    30
                                                                                                                 CCGLINK    31
             3  00000000000000000000     O=FE     CONENT 0           ORIGIN OF TABLES PRESERVED ACROSS PASS 2.   CCGLINK    32
             4  00000000000000000000     L=FE     CONENT 0           LENGTH DITTO                                CCGLINK    33
                                                                                                                 CCGLINK    34
                                                                                                                 CCGLINK    36
             5  00000000000000000000     ERR22    CONENT 0           NZ WHEN ERROR DIAGNOSED IN (2,2) OVERLAY    CCGLINK    37
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     3
        FRONT END LOADER                                              FEL 
  
                                        **        FEL - FRONT END LOADER.                                        CCGLINK    40
                                        *                                                                        CCGLINK    41
                                        *         THIS ROUTINE LOADS THE CCG FRONT END WHICH RESIDES             CCGLINK    42
                                        *         IN THE (2,1) OVERLAY.  CONTROL IS GIVEN TO THE                 CCGLINK    43
                                        *         OVERLAY INITIALIZER WHICH TRANSFERS TO                         CCGLINK    44
                                        *         THE FRONT END CONTROLLER WHO RETURNS HERE                      CCGLINK    45
                                        *         AT FEL.RTN.                                                    CCGLINK    46
                                                                                                                 CCGLINK    47
                                                                                                                 CCGLINK    48
             6  0400400006 +             FEL      SUBR   =           ...ENTRY/EXIT...                            CCGLINK    49
                                                                                                                 CCGLINK    50
             7  7120000201                        LOVER  (2,1),=XFWA21                                           CCGLINK    51
                                                                                                                 CCGLINK    52
            11                           FEL.RTN  BSSENT 0           ...RETURN FROM FRONT END CONTROLLER         CCGLINK    53
            11  0400000006 +                      EQ     EXIT.       EXIT...                                     CCGLINK    54
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     4
        CODE GENERATOR LOADER                                         CGL 
  
                                        **        CGL - CODE GENERATOR LOADER.                                   CCGLINK    57
                                        *                                                                        CCGLINK    58
                                        *         *CGL* DOES THE FOLLOWING --                                    CCGLINK    59
                                        *         FLUSH FILES AND MOVE TABLES TO HIGH CORE.                      CCGLINK    60
                                        *         LOAD CCG OVERLAY AND GIVE CONTROL TO INIT22 WHICH              CCGLINK    61
                                        *         TRANSFERS TO CCG CONTROLLER (*CCGC*) WHO RETURNS               CCGLINK    62
                                        *         TO     CGL.RTN.                                                CCGLINK    63
                                                                                                                 CCGLINK    64
                                                                                                                 CCGLINK    65
            12  0400400012 +             CGL      SUBR   =           ...ENTRY/EXIT...                            CCGLINK    66
                                                                                                                 CCGLINK    67
                                        *         CHECK IF CCG LOAD CAN BE SKIPPED.                              CCGLINK    68
                                                                                                                 CCGLINK    69
            13  5110000000 X                      SA1    WO.QC                                                   CCGLINK    70
                          0331000043 +            MI     X1,CGL6     IF QUICK CHECK (OR ERRORS), SKIP CCG        CCGLINK    71
            14  5110000000 X                      SA1    FV.LGO                                                  FC50616     7
                          5140000000 X            SA4    CO.LOO                                                  FC50616     8
            15  12114                             BX1    X1+X4                                                   FC50616     9
                     0301000043 +                 ZR     X1,CGL6     IF LO=-O AND B=0                            FC50616    10
                                                                                                                 CCGLINK    72
                                        *         CCG MUST BE LOADED.                                            CCGLINK    73
                                        *         FLUSH IL AND REF FILES.                                        CCGLINK    74
                                                                                                                 CCGLINK    75
            16  7120000000 X                      WRITER F.IL                                                    CCGLINK    76
            20  5140000000 X                      SA4    CO.LOR      FETCH MASTER REFERENCE FLAG                 CCGLINK    77
                          0304000031 +            ZR     X4,CGL3     IF REFMAP NOT SELECTED                      CCGLINK    78
            21  5110000000 X                      SA1    =XREFIO                                                 CCGLINK    79
                          0331000023 +            MI     X1,CGL2     IF ALREADY ON DISK                          CCGLINK    80
            22  43773                             MX7    -1                                                      CCGLINK    81
                     54710                        SA7    A1          INDICATE (T.REF) ON DISK                    CCGLINK    82
                                                                                                                 CCGLINK    83
                                                  IFEQ   CP#RM,7,1   IF 7RM I/O                                  CCGLINK    84
                                                  OPEN   =XF.REF                                                 CCGLINK    85
                                                                                                                 CCGLINK    86
            23  5130000000 X             CGL2     SA3    =XT=REF                                                 CCGLINK    87
                          5110000000 X            SA1    =XT.REF                                                 CCGLINK    88
            24  63610                             WRITEW F.REF,X1,X3                                             CCGLINK    89
            26  7120000000 X                      WRITER =XF.REF     FLUSH REF                                   CCGLINK    90
            30  76600                             SHRINK T=REF,0                                                 CCGLINK    91
                                                                                                                 CCGLINK    92
                                        *         MOVE TABLES UP AND LOAD CCG                                    CCGLINK    93
                                                                                                                 CCGLINK    94
            31  5110000000 X             CGL3     SA1    =XO.P2SAV                                               CCGLINK    95
                          10611                   BX6    X1                                                      CCGLINK    96
            32  5160000003 +                      SA6    O=FE                                                    CCGLINK    97
                          0100000061 +            RJ     MAT         MOVE ALL TABLES                             CCGLINK    98
            33  5110000005 +                      SA1    ERR22                                                   CCGLINK    99
                          0311000012 +            NZ     X1,EXIT.    IF ERROR IN MAT                             CCGLINK   100
            34  7120000000 X                      RECALL =XF.REF                                                 CCGLINK   101
            35  7120000000 X                      REWIND =XF.IL,RCL                                              CCGLINK   102
            37  7120000202                        LOVER  (2,2),=XFWA22                                           CCGLINK   103
                                                                                                                 CCGLINK   104
            41                           CGL.RTN  BSSENT 0           ...RETURN FROM CCG CONTROLLER               CCGLINK   105
            41  0100000113 +                      CALL   UTP         UPDATE TABLE POINTERS                       CCGLINK   106
            42  0400000012 +                      EQ     EXIT.       EXIT...                                     CCGLINK   107
                                                                                                                 CCGLINK   108
                                        *         SKIP CCG.  PREPARE FOR GOING DIRECTLY TO (2,3).                CCGLINK   109
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     5
        CODE GENERATOR LOADER                                         CGL 
  
                                                                                                                 CCGLINK   110
            43  5140000000 X             CGL6     SA4    CO.LOR      FETCH MASTER REFERENCE FLAG                 CCGLINK   111
                          5110000000 X            SA1    REFIO                                                   CCGLINK   112
            44  0304000051 +                      ZR     X4,CGL7     IF REFMAP NOT SELECTED                      CCGLINK   113
                          0321000051 +            PL     X1,CGL7     IF REFMAP NOT ON DISK                       CCGLINK   114
            45  5130000000 X                      SA3    T=REF                                                   CCGLINK   115
                          5110000000 X            SA1    T.REF                                                   CCGLINK   116
            46  63610                             WRITEW F.REF,X1,X3                                             CCGLINK   117
            50  7170777753                        WRITER X2,RCL                                                  CCGLINK   118
            51                           CGL7     BSS                                                            CCGLINK   119
            51  0400000012 +                      EQ     EXIT.                                                   CCGLINK   120
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     6
        REAR END LOADER                                               REL 
  
                                        **        REL - REAR END LOADER.                                         CCGLINK   123
                                        *                                                                        CCGLINK   124
                                        *         LOAD END, MAP, ASSEMBLY PROCESSORS.                            CCGLINK   125
                                                                                                                 CCGLINK   126
                                                                                                                 CCGLINK   127
            52  0400400052 +             REL      SUBR   =           ...ENTRY/EXIT...                            CCGLINK   128
            53  77601                             =X6    -1                                                      CCGLINK   129
                     5160000000 X                 SA6    BINIO                                                   CCGLINK   130
                                                                                                                 FC50616    11
                                         #RM      IFEQ   CP#RM,7                                                 FC50616    12
                                                  SA1    WO.QC                                                   FC50616    13
                                                  MI     X1,REL10    IF FATAL ERRORS OR *QC* MODE                FC5A158A  292
                                                  SA1    CO.LOO                                                  FC50616    14
                                                  SA2    FV.LGO                                                  FC50616    15
                                                  BX1    X1+X2                                                   FC50616    16
                                                  ZR     X1,REL10    IF LO=-O AND B=0                            FC50616    17
                                         #RM      ENDIF                                                          FC50616    18
                                                                                                                 FC50616    19
            54  7120000000 X                      WRITER =XF.PB,RCL  FLUSH PREBINARY                             CCGLINK   131
                                                                                                                 FC5A158A  293
            56  7120000203               REL10    LOVER  (2,3),=XFWA23                                           FC5A158A  294
            60                           REL.RTN  BSSENT 0           ...RETURN FROM REAR END CONTROLLER          CCGLINK   133
            60  0400000052 +                      EQ     EXIT.       EXIT...                                     CCGLINK   134
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     7
        LINKAGE SUPPORT                                               MAT 
  
                                        **        MAT - MOVE ALL TABLES.                                         CCGLINK   137
                                        *                                                                        CCGLINK   138
                                        *         PACKS ALL TABLES AND MOVES THEM ABOVE HIGHEST HIGH ADDRESS,    CCGLINK   139
                                        *         RESERVING (2/3)*L(SYM) BETWEEN HIGHEST TABLE AND NOMINAL FL.   CCGLINK   140
                                                                                                                 CCGLINK   141
                                                                                                                 CCGLINK   142
            61  0400400061 +             MAT      SUBR               ...ENTRY/EXIT...                            CCGLINK   143
                                                                                                                 CCGLINK   144
                                        *         CHECK TRASHED TABLE SIZES.                                     CCGLINK   145
                                                                                                                 CCGLINK   146
            62  6160000000 X                      SB6    =XSIZES     START OF TABLE SIZE VECTOR                  CCGLINK   147
                          6170000000 X            SB7    =XL.P2SAV   START OF TABLES SAVED ACROSS CCG            CCGLINK   148
            63  7160000000                        SX6    0+          INITIALIZE LENGTH                           CCGLINK   149
            64  56160                    MAT1     SA1    B6          (X1) = NEXT TABLE SIZE                      CCGLINK   150
                     6166000001                   SB6    B6+1        POINT TO NEXT TABLE SIZE                    CCGLINK   151
                               36661              IX6    X6+X1       ADD SIZE TO TOTAL                           CCGLINK   152
            65  0767000064 +                      LT     B6,B7,MAT1  IF MORE TABLES TO GO                        CCGLINK   153
                          5160000112 +            SA6    MATA        SAVE SIZE OF COMMUNICATED TABLES            CCGLINK   154
                                                                                                                 CCGLINK   155
                                         .TEST    IFEQ   TEST,ON     IF TESTMODE                                 CCGLINK   156
                                                                                                                 CCGLINK   157
                                                                                                                 CCGLINK   158
                                        *         SUBTRACT TABLES PASSED TO CCG.                                 CCGLINK   159
                                                                                                                 CCGLINK   160
                                                  MACRO  TABSH,PASS1,D1,D2,PASS2                                 CCGLINK   161
                                                  SA1    =XT=PASS1                                               CCGLINK   162
                                                  IX6    X6-X1                                                   CCGLINK   163
                                                  ENDM                                                           CCGLINK   164
                                                                                                                 CCGLINK   165
                                         COMSTAB  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAB     2
                                                                                                                 COMSTAB     3
                                         COMSTAD  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAD     2
                                                                                                                 COMSTAD     3
                                        ***       COMSTAD CONTAINS A "TABSH" MACRO CALL FOR EACH TABLE           COMSTAD     4
                                        *         WHICH IS SHARED WITH CCG.                                      COMSTAD     5
                                        *                                                                        COMSTAD     6
                                        * FEN     TABSH  RATE,INIT,CGN                                           COMSTAD     7
                                        *                                                                        COMSTAD     8
                                        *         WHERE  *FEN* = FRONT END NAME (SUFFIX) FOR THE TABLE.          COMSTAD     9
                                        *                *RATE* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    10
                                        *                *INIT* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    11
                                        *                *CGN* = CCG NAME (SUFFIX) FOR TABLE.                    COMSTAD    12
                                        *                IF *CGN* IS OMITTED, THE CCG SUFFIX IS SAME AS *FEN*.   COMSTAD    13
                                                                                                                 COMSTAD    14
                                                                                                                 COMSTAD    15
                                         CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
                                         CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
                                         APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
                                         IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
                                         API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
                                         IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)        FC5A128    10
                                         GL       TABSH  2,,GLT      GENERATED LABELS                            COMSTAD    22
                                         ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
                                         CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
                                         CUT      TABSH  0           CON. BIASES FOR PASS 3                      COMSTAD    25
                                                                                                                 COMSTAD    26
                                         COMSTAD  ENDX                                                           COMSTAD    27
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     8
        LINKAGE SUPPORT                                               MAT 
  
                                         COMSTAS  CTEXT              DEFINE STATIC TABLES SHARED WITH CCG.       COMSTAS     2
                                                                                                                 COMSTAS     3
                                        *         A STATIC TABLE IS ONE WHICH DOES NOT GROW OR SHRINK IN         COMSTAS     4
                                        *         BRIDGE/PASS 2.                                                 COMSTAS     5
                                                                                                                 COMSTAS     6
                                         SYM      TABSH  3,50*Z=SYM,,(DECL,EXU)  SYMBOL TABLE                    FC5A128    12
                                        *         (INITIAL LENGTH IS AD HOC BUT SHOULD NOT EXCEED Z.SYMIL)       FC5A128    13
                                         BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
                                         NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
                                         DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
                                         ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
                                         FPI      TABSH  1           FORMAL PARAMETER INFORMATION                COMSTAS    13
                                         VDI      TABSH  1           VARDIM INFORMATION                          COMSTAS    14
                                                                                                                 COMSTAS    15
                                         COMSTAS  ENDX                                                           COMSTAS    16
                                                                                                                 COMSTAB     6
                                         COMSTAB  ENDX                                                           COMSTAB     7
                                                                                                                 CCGLINK   167
                                                  ZR     X6,MAT2     IF ALL TRASHED TABLES EMPTY                 CCGLINK   168
                                                  PLINE  MATB,5                                                  CCGLINK   169
                                                  EQ     MAT3        PRINT TABLE STATISTICS                      CCGLINK   170
                                                                                                                 CCGLINK   171
                                         MAT2     SA1    =XCO.SNAP                                               CCGLINK   172
                                                  LX1    1RT                                                     CCGLINK   173
                                                  PL     X1,MAT4     IF SNAP NOT DESIRED                         CCGLINK   174
                                         MAT3     PLINE  MATC,5                                                  CCGLINK   175
                                                  CALL   PTO         PRINT TABLE ORIGINS                         CCGLINK   176
                                         MAT4     BSS                                                            CCGLINK   177
                                         .TEST    ENDIF                                                          CCGLINK   178
                                                                                                                 CCGLINK   179
                                        *         SUM PRESERVED TABLE SIZES.                                     CCGLINK   180
                                                                                                                 CCGLINK   181
            66  6160000000 X                      SB6    =XL.P2SAV   START OF TABLES SAVED ACROSS CCG            CCGLINK   182
                          6170000000 X            SB7    =XT=END     LAST TABLE SIZE WORD                        CCGLINK   183
            67  7160000000                        SX6    0+          INITIALIZE LENGTH                           CCGLINK   184
            70  56160                    MAT5     SA1    B6          (X1) = NEXT TABLE SIZE                      CCGLINK   185
                     6166000001                   SB6    B6+1        POIN TO NEXT TABLE SIZE                     CCGLINK   186
                               36661              IX6    X6+X1       ADD SIZE TO LENGTH                          CCGLINK   187
            71  0767000070 +                      LT     B6,B7,MAT5  IF MORE TABLES TO GO                        CCGLINK   188
                          5160000004 +            SA6    L=FE        SAVE LENGTH OF PRESERVED TABLES             CCGLINK   189
            72  5110000112 +                      SA1    MATA                                                    CCGLINK   190
                          36616                   IX6    X1+X6       ROOM FOR PRESERVED AND COMMUNICATED TABLES  CCGLINK   191
                                                                                                                 CCGLINK   194
                                        *         INSURE ENOUGH ROOM ABOVE HHA.                                  CCGLINK   195
                                                                                                                 CCGLINK   196
            73  5120000104                        SA2    RA.ORG+L54.HHA    (X2) = HIGHEST HIGH ADDRESS           CCGLINK   197
                          5130000000 X            SA3    =XCP.NFLS   (X3) = NOMINAL FL                           CCGLINK   198
            74  37432                             IX4    X3-X2       (X4) = AVAILABLE SPACE                      CCGLINK   199
                     37664                        IX6    X6-X4       (X5) = NEEDED-AVAILABLE                     CCGLINK   200
                          0336000100 +            MI     X6,MAT6     IF ENOUGH ROOM                              CCGLINK   201
            75  0100000000 X                      CALL   GMC         GET MORE CORE                               CCGLINK   202
            76  0707000100 +                      GT     B7,MAT6     IF REQUEST HONORED                          CCGLINK   203
                          7160000002              SX6    2                                                       CCGLINK   204
            77  5160000005 +                      SA6    ERR22       INDICATE FL TYPE ERROR                      CCGLINK   205
                          0400000061 +            EQ     EXIT.                                                   CCGLINK   206
                                                                                                                 CCGLINK   207
                                        *         PACK TABLES UP ABOVE HHA.                                      CCGLINK   208
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE     9
        LINKAGE SUPPORT                                               MAT 
  
                                                                                                                 CCGLINK   209
           100  5120000000 X             MAT6     SA2    =XCP.NFLS                                               CCGLINK   210
                          7202777776              SX0    X2-1        FUTURE LWA OF RESERVED TABLES               CCGLINK   211
           101  5140777776 X                      SA4    =XT.END-1   (X4) = FWA OF LAST TABLE                    CCGLINK   212
                          5120777776 X            SA2    =XT=END-1   (X2) = LENGTH OF LAST TABLE                 CCGLINK   213
           102  36442                             IX4    X4+X2       (X4) = LWA+1 OF LAST TABLE                  CCGLINK   214
                     37604                        IX6    X0-X4                                                   CCGLINK   215
                          0326000107 +            PL     X6,MAT7     IF NO MOVE DOWN NEEDED                      CCGLINK   216
           103  10700                             BX7    X0                                                      CCGLINK   217
                     5120000000 X                 SA2    =XO.TABS    (X2) = START OF TABLE AREA                  CCGLINK   218
           104  5170000112 +                      SA7    MATA        SAVE FUTURE LWA OF PRESERVED TABLES         CCGLINK   219
                          10022                   BX0    X2          (X0) = FWA TO MOVE TO                       CCGLINK   220
           105  0100000000 X                      CALL   MTD         MOVE TABLES DOWN                            CCGLINK   221
           106  5120000112 +                      SA2    MATA                                                    CCGLINK   222
                          10022                   BX0    X2          (X0) = LWA FOR MOVE UP                      CCGLINK   223
           107  0100000000 X             MAT7     CALL   MTU         MOVE TABLES UP                              CCGLINK   224
           110  5110000000 X                      SA1    =XO.P2SAV                                               CCGLINK   225
                          10611                   BX6    X1                                                      CCGLINK   226
           111  5160000003 +                      SA6    O=FE        START OF PRESERVED TABLES                   CCGLINK   227
                          0400000061 +            EQ     EXIT.                                                   CCGLINK   228
                                                                                                                 CCGLINK   229
           112  00000000000000000000     MATA     CON    0           TEMP SAVE CELL                              CCGLINK   230
                                                                                                                 CCGLINK   231
                                         .T       IFEQ   TEST,ON                                                 CCGLINK   232
                                         MATB     DIS    5,  -----    *         TRASHED TABLES NOT ALL EMPTY     CCGLINK   233
                                         MATC     DIS    5,   TABLE STATISTICS ON ENTRY TO THE BRIDGE --         CCGLINK   234
                                         .T       ENDIF                                                          CCGLINK   235
  
  
  
  
                                        **        UTP - UPDATE TABLE POINTERS.                                   CCGLINK   237
                                        *                                                                        CCGLINK   238
                                        *         UPDATES POINTER FOR TABLES NOT USED DURING CCG.                CCGLINK   239
                                                                                                                 CCGLINK   241
                                                                                                                 CCGLINK   242
           113  0400400113 +             UTP      SUBR               ...ENTRY/EXIT...                            CCGLINK   243
                                                                                                                 CCGLINK   244
                                        *         SET FWA OF ALL TABLES BELOW O.P2USE TO SAME ORIGIN.            CCGLINK   245
                                                                                                                 CCGLINK   246
           114  6160000000 X                      SB6    =XO.P2USE                                               CCGLINK   247
                          6170000000 X            SB7    =XBASES                                                 CCGLINK   248
           115  56160                             SA1    B6          (X1) = FWA OF FIRST (USED) TABLE            CCGLINK   249
                     10611                        BX6    X1                                                      CCGLINK   250
           116  56670                    UTP1     SA6    B7                                                      CCGLINK   251
                     66771                        =B7    B7+1                                                    CCGLINK   252
                          0776000116 +            LT     B7,B6,UTP1  IF MORE TO GO                               CCGLINK   253
                                                                                                                 CCGLINK   254
                                        *         UPDATE FWA OF PRESERVED TABLES.                                CCGLINK   255
                                                                                                                 CCGLINK   256
           117  5110000003 +                      SA1    O=FE                                                    CCGLINK   257
                          6170000000 X            SB7    =XO.P2SAV                                               CCGLINK   258
           120  6160000000 X                      SB6    =XBASES                                                 CCGLINK   259
                          73610                   SX6    X1                                                      CCGLINK   260
                               67776              SB7    B7-B6                                                   CCGLINK   261
           121  6160000000 X                      SB6    =XN.TABLE                                               CCGLINK   262
           122  5167000000 X             UTP2     SA6    B7+=XBASES                                              CCGLINK   263
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE    10
        LINKAGE SUPPORT                                               UTP 
  
                          5117000000 X            SA1    B7+=XSIZES                                              CCGLINK   264
           123  66771                             =B7    B7+1                                                    CCGLINK   265
                     36661                        IX6    X6+X1                                                   CCGLINK   266
                          0776000122 +            LT     B7,B6,UTP2                                              CCGLINK   267
           124  0400000113 +                      EQ     EXIT.       DONE...                                     CCGLINK   290
                                                                                                                 CCGLINK   291
                                                                                                                 CCGLINK   292
                                                  LIST   D                                                       CCGLINK   293
           125                                    END                                                            CCGLINK   294
  
                             73600B CM  STORAGE USED              640 STATEMENTS     1418 SYMBOLS      000006 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.815 SECONDS         183 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        APCON           1   PROGRAM*        2/05 L    2/05 E
        BASES           0   EXTERNAL*       1/47 X    9/42      9/53      9/57 S
        BINIO           0   EXTERNAL*       1/51 X    6/08 S
        B1=1            0 
        CGL            12   PROGRAM*        4/10 L    4/10 E
        CGL2           23   PROGRAM*        4/28      4/35 L
        CGL3           31   PROGRAM*        4/26      4/43 L
        CGL6           43   PROGRAM*        4/15      4/19      5/02 L
        CGL7           51   PROGRAM*        5/04      5/05      5/10 L
        CGL.RTN        41   PROGRAM*        4/53 L    4/53 E
        CIO=            0   EXTERNAL*       1/54 X    4/24      4/38      4/50      5/09      6/19
        CO.LOO          0   EXTERNAL*       1/37 X    4/17
        CO.LOR          0   EXTERNAL*       1/37 X    4/25      5/02
        CO.SNAP         0   EXTERNAL*       1/37 X
        CP.NFLS         0   EXTERNAL*       1/37 X    8/47      9/02
        CP#RM           0   FTX             4/32 F    6/10 F
        ERR22           5   PROGRAM*        2/13 L    2/13 E    4/47      8/54 S
        FEL             6   PROGRAM*        3/10 L    3/10 E
        FEL.RTN        11   PROGRAM*        3/14 L    3/14 E
        FV.LGO          0   EXTERNAL*       1/37 X    4/16
        FWA21           0   EXTERNAL*       1/44 X    3/12
        FWA22           0   EXTERNAL*       1/44 X    4/51
        FWA23           0   EXTERNAL*       1/44 X    6/21
        F.IL            0   EXTERNAL*       1/37 X    4/24      4/24      4/50
        F.PB            0   EXTERNAL*       1/37 X    6/19      6/19
        F.REF           0   EXTERNAL*       1/38 X    4/37      4/38      4/38      4/49      5/08
        GMC             0   EXTERNAL*       1/47 X    8/51
        LOVER           0   EXTERNAL*       1/38 X    3/12      4/51      6/21
        L54.HHA         4   FTX             8/46
        L=FE            4   PROGRAM*        2/10 L    2/10 E    8/40 S
        L.P2SAV         0   EXTERNAL*       1/47 X    7/12      8/33
        MAT            61   PROGRAM*        4/46      7/07 L
        MATA          112   PROGRAM*        7/18 S    8/41      9/11 S    9/14      9/22 L
        MAT1           64   PROGRAM*        7/14 L    7/17
        MAT5           70   PROGRAM*        8/36 L    8/39
        MAT6          100   PROGRAM*        8/50      8/52      9/02 L
        MAT7          107   PROGRAM*        9/08      9/16 L
        MTD             0   EXTERNAL*       1/47 X    9/13
        MTU             0   EXTERNAL*       1/47 X    9/16
        N$EXST          0   PROGRAM*        2/04 L    2/04 E
1       CCGLINK - CCG MODE LINKAGE ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.13.56.      PAGE    11
        SYMBOLIC REFERENCE TABLE. 
  
        N.IL            2   PROGRAM*        2/07 L    2/07 E
        N.TABLE         0   EXTERNAL*       1/38 X    9/56
        O=FE            3   PROGRAM*        2/09 L    2/09 E    4/45 S    9/19 S    9/51
        O.P2SAV         0   EXTERNAL*       1/47 X    4/43      9/17      9/52
        O.P2USE         0   EXTERNAL*       1/47 X    9/41
        O.TABS          0   EXTERNAL*       1/48 X    9/10
        PTO             0   EXTERNAL*       1/41 X
        RA.ORG        100   CPUTEXT         8/46
        REFIO           0   EXTERNAL*       1/48 X    4/27      5/03
        REL            52   PROGRAM*        6/06 L    6/06 E
        REL10          56   PROGRAM*        6/21 L
        REL.RTN        60   PROGRAM*        6/22 L    6/22 E
        SIZES           0   EXTERNAL*       1/48 X    7/11     10/01
        TEST            0   FTX             7/20 F    9/24 F
        T=API           0   EXTERNAL*       1/48 X
        T=APL           0   EXTERNAL*       1/48 X
        T=ASG           0   EXTERNAL*       1/48 X
        T=BLKS          0   EXTERNAL*       1/48 X
        T=CAC           0   EXTERNAL*       1/50 X
        T=CLW           0   EXTERNAL*       1/50 X
        T=CON           0   EXTERNAL*       1/48 X
        T=CUT           0   EXTERNAL*       1/50 X
        T=DIM           0   EXTERNAL*       1/50 X
        T=END           0   EXTERNAL*       1/49 X    8/34      9/05
        T=ENTP          0   EXTERNAL*       1/50 X
        T=FPI           0   EXTERNAL*       1/50 X
        T=GL            0   EXTERNAL*       1/49 X
        T=IOA           0   EXTERNAL*       1/49 X
        T=IOI           0   EXTERNAL*       1/49 X
        T=NLST          0   EXTERNAL*       1/49 X
        T=REF           0   EXTERNAL*       1/49 X    4/35      4/39      4/39 S    5/06
        T=SYM           0   EXTERNAL*       1/49 X
        T=VDI           0   EXTERNAL*       1/50 X
        T.END           0   EXTERNAL*       1/49 X    9/04
        T.REF           0   EXTERNAL*       1/50 X    4/36      5/07
        UTP           113   PROGRAM*        4/54      9/37 L
        UTP1          116   PROGRAM*        9/45 L    9/47
        UTP2          122   PROGRAM*        9/57 L   10/04
        WNB=            0   EXTERNAL*       1/38 X    4/49
        WOF             0   EXTERNAL*       1/50 X
        WO.QC           0   EXTERNAL*       1/51 X    4/14
        WTW=            0   EXTERNAL*       1/54 X    4/37      5/08
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      330              IDENT  PEM
                        330                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       326 
                                        LITERALS* LOCAL         326         2 
  
  
                                        ENTRY POINTS. 
  
                                        B=PEM            0+           MDERR=           4+           PEMV            23+ 
                                        ANSI=            1+           MDER.SW          5+           PEM             42+ 
                                        ANSI.SW          2+           PEMS             6+           PDM            173+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CHARMAP   CO.EL     CO.WPE    BLL       ERR.C     PASS      WOF=ERR   SFN 
                                        DICT      CO.ET     CP.ERCT   LDB       E=TOTAL   PWBUF     WO.LOS
                                        FILL.     CO.PW     CP.PW     ERRORS    LINEBUF   T.CON     WO.QC 
                                        L.FILL    CO.WPL    ENOT=L    ERRTYP    N.ERRT    WOF       MVE=
  
  
  
  
                                        **IF DEF,TEST                                                            FC5A388     6
                                                  IDENT  PEM                                                     PEM         2
                                         PEM      SECT   (PRINT ERROR MESSAGES.)                                 PEM         3
  
  
  
  
  
                                        *         IN FEC                                                         PEM         5
                                                  EXT    CHARMAP                                                 PEM         6
                                                                                                                 PEM         7
                                        *         IN FERRS                                                       PEM         8
                                                  EXT    DICT,FILL.,L.FILL                                       PEM         9
                                                                                                                 PEM        10
                                        *         IN FTN                                                         PEM        11
                                                  EXT    CO.EL,CO.ET,CO.PW,CO.WPL,CO.WPE,CP.ERCT,CP.PW,ENOT=L    FC5A426    28
                                                                                                                 PEM        13
                                        *         IN LEX                                                         PEM        14
                                                  EXT    BLL,LDB                                                 PEM        15
                                                                                                                 PEM        16
                                        *         IN PUC                                                         PEM        17
                                                  EXT    ERRORS,ERRTYP,ERR.C,E=TOTAL,LINEBUF,N.ERRT,PASS,PWBUF   PEM        18
                                                  EXT    T.CON,WOF,WOF=ERR,WO.LOS,WO.QC                          PEM        19
                                                                                                                 PEM        20
                                        *         IN UTILITY                                                     PEM        21
                                                  EXT    MVE=,SFN                                                PEM        22
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     2
        COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR
  
             0                                    CTEXT  COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR        COMSERR     2
  
  
  
  
                                        **        DISPLAY CODE VALUES OF ASSEMBLY CONSTANTS.                     COMSERR     4
                                                                                                                 COMSERR     5
                                                                                                                 COMSERR     6
                                  23     ANS.CONT DECMIC ANS.CONT    MAX CONTINUATION LINES ALLOWED BY ANSI      COMSERR     7
                                2003     L.IOBUF6 OCTMIC L.IOBUF6    DEFAULT IO BUFFER LENGTH                    COMSERR     8
                                 764     MAX.BLK  DECMIC MAX.BLK     MAX COMMON BLOCKS ALLOWED                   COMSERR     9
                              360000     MAX.BUFL OCTMIC MAX.BUFL    MAX IO BUFFER LENGTH                        COMSERR    10
                                   7     MAX.DIM  DECMIC MAX.DIM     MAX DIMENSIONS ALLOWED                      COMSERR    11
                                 764     MAX.SARG DECMIC MAX.SARG    MAX SUBPROGRAM ARGUMENTS                    COMSERR    12
                                  61     MAX.PARG DECMIC MAX.PARG    MAX MAIN PROGRAM ARGUMENTS                  COMSERR    13
                                   7     MAX.LFN  DECMIC MAX.LFN     MAX CHARACTERS IN LOGICAL FILE NAME         COMSERR    14
                              377777     MAX.RECL OCTMIC MAX.RECL    MAX RECORD LENGTH                           FC5A145     4
                                 211     NOR.RECL DECMIC NOR.RECL    NORMAL RECORD LENGTH                        COMSERR    17
                                         MAX.CL   MICRO  1,, 2**15-1 MAX CHARACTER LENGTH                        COMSERR    18
                                   0              ERRNZ  1S15-1-MAX.CL     MAX.CL OUT OF SYNCH WITH TEXT         COMSERR    19
                                         MAX.SPAN MICRO  1,, 2**23-1 MAX DIMENSION SPAN                          COMSERR    20
                                   0              ERRNZ  23-MAX.SPAN                                             COMSERR    21
                              377777     MAX.SPCM DECMIC MAX.SPCM                                                COMSERR    22
                             3777770     MAX.SPLC DECMIC MAX.SPLC                                                COMSERR    23
  
  
  
  
                                        ****      ERRSKEL - ERROR MESSAGE SKELETON TABLE FORMAT.                 COMSERR    25
                                        *                                                                        COMSERR    26
                                        *         IN ORDER TO REDUCE CORE REQUIREMENTS AND STILL PRINT FULL-LINE COMSERR    27
                                        *         NARRATIVE DIAGNOSTICS BENEATH THE STATEMENT, ERROR MESSAGE     COMSERR    28
                                        *         TEXT IS KEPT IN A SKELETAL FORM, WHEREIN EACH WORD IS          COMSERR    29
                                        *         REPRESENTED BY AN ORDINAL INTO A DICTIONARY.                   COMSERR    30
                                                                                                                 COMSERR    31
                                                                                                                 COMSERR    32
                                   4     N.ER1ST  EQU    4                                                       COMSERR    33
                                   6     N.ERREST EQU    6                                                       COMSERR    34
                                                  DESCRIBE ER.,60                                                COMSERR    35
      L     23  00000000000076000000     TYP      DEFINE 5,23        ERROR TYPE INDICATOR                        COMSERR    36
      L      1  00000000000001777776     XIT      DEFINE 18          EXIT ADDRESS                                COMSERR    37
                                  11     ER.WORDL EQU    9           LENGTH OF EACH ORDINAL BYTE                 COMSERR    38
      L      5  00000000000000000040     MORE     DEFINE 1,5         CONTINUATION FLAG                           COMSERR    39
                                        ****                                                                     COMSERR    40
                                  11     L=ERWORD EQU    ER.WORDL                                                COMSERR    41
                                   5     L=ERTYPE EQU    ER.TYPL                                                 COMSERR    42
                                  30     P=ERTYPE EQU    ER.TYPP+ER.TYPL                                         COMSERR    43
                                   5     L=ERMORE EQU    ER.TYPL                                                 COMSERR    44
                                  22     L=ERXIT  EQU    ER.XITL                                                 COMSERR    45
                                                  NOREF  L=ERWORD,L=ERTYPE,P=ERTYPE,L=ERMORE,L=ERXIT             COMSERR    46
                                  65     DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC            COMSERR    47
                                         COMSERR  ENDX                                                           COMSERR    48
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     3
        FORMAT AND PRINT ROUTINES.
  
                                        **        ANSI - CHECK ANSI-LISTING FLAG.                                PEM        25
                                        *         ENTRY  (B7) _ ERROR ADDRESS.                                   PEM        26
                                        *         USES   SAME AS *PWE*.                                          PEM        27
                                        *         CALLS  PWE.                                                    PEM        28
                                                                                                                 PEM        29
                                                                                                                 PEM        30
             0  0100000173 +             ANSI8    RJ     PDM         PRINT ANSI DIAGNOSTIC                       PEM        31
                                                                                                                 PEM        32
             1  0400400001 +             ANSI=    SUBR   =           ENTRY/EXIT...                               PEM        33
             2                           ANSI.SW  BSSENT 0           FLIP-FLOP FOR *EL=A* OPTION                 PEM        34
             2  0400000001 +                      EQ     ANSIX       IF OFF                                      PEM        35
                          0400000000 +   -        EQ     ANSI8       IF ON                                       PEM        36
  
  
  
  
                                        **        MDERR= - CHECK MDERR-LISTING FLAG.                             F1037F5   257
                                        *         ENTRY  (B7) = ERROR ADDRESS.                                   F1037F5   258
                                        *         USES   SAME AS *PDM*.                                          F1037F5   259
                                        *         CALLS  PDM.                                                    F1037F5   260
                                                                                                                 F1037F5   261
             3  0100000173 +             MDERR5   RJ     PDM         PRINT MACHINE DEPENDENT DIAGNOSTIC          F1037F5   262
                                                                                                                 F1037F5   263
             4  0400400004 +             MDERR=   SUBR   =           ENTRY/EXIT...                               F1037F5   264
             5                           MDER.SW  BSSENT 0           FLIP-FLOP FOR *MD* OPTION                   F1037F5   265
             5  0400000004 +                      EQ     EXIT.       IF OFF                                      F1037F5   266
                          0400000003 +  -         EQ     MDERR5      IF ON                                       F1037F5   267
  
  
  
  
                                        **        PEM -  PRINT ERROR MESSAGES.                                   PEM        38
                                        *                                                                        PEM        39
                                        *         CALLING CODE FOR DIAGNOSTIC OUTPUT EXPECTS NO TABLE MOVEMENT   PEM        40
                                        *         TO OCCUR IN THIS ROUTINE.                                      PEM        41
                                        *                                                                        PEM        42
                                        *         PEM    IF NORMAL ERROR.                                        PEM        43
                                        *         PEMS   IF DIAGNOSTIC PRESETS *FILL.N*.                         PEM        44
                                        *         PEMV   IF NEEDS FILLER FROM *TB*                               PEM        45
                                        *                                                                        PEM        46
                                        *         ENTRY  (B7) _ FWA OF MESSAGE TO BE PRINTED.                    PEM        47
                                        *                IF ENTERED THRU *PEMV*, (B4) _ START OF FILLER.         PEM        48
                                        *                UP TO 10 CHARACTERS WILL BE PUT INTO "FILL.".           PEM        49
                                        *                IF ENTERED THRU *PEMS*, *FILL.N* WORDS WILL BE          PEM        50
                                        *                FORMATTED FOR ERROR.                                    PEM        51
                                        *         EXIT   FWA OF MESSAGE (B7) POINTS TO EXIT ADDRESS              PEM        52
                                        *                ALL REGISTERS SAVED AND RESTORED                        PEM        53
                                        *         CALLS  WOF                                                     PEM        54
                                                                                                                 PEM        55
                                                                                                                 PEM        56
                                        **        HERE IF DIAGNOSTIC _S TYPE.                                    PEM        57
                                        *         *FILL.N* WORDS WILL BE CONVERTED TO PROPER FORM FOR ERROR      PEM        58
                                        *                SKELETON.                                               PEM        59
                                                                                                                 PEM        60
             6                           PEMS     BSSENT 0           ...ENTRY                                    PEM        61
             6  0100000244 +                      RJ     SVR=       SAVE ALL REGS (RJ MUST BE ALONE IN 1ST WORD) PEM        62
             7  43552                   +         MX5    WA.SYML                                                 PEM        63
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     4
        FORMAT AND PRINT ROUTINES.                                    PEM 
  
                     6130000000 X                 SB3    L.FILL                                                  PEM        64
                               43066              MX0    -CHAR                                                   PEM        65
                                                                                                                 FC50353     9
            10  5113777776 X             PEMS1    SA1    B3+FILL.-1                                              PEM        66
                          11351                   BX3    X5*X1                                                   PEM        67
                               76400              SX4    B0                                                      PEM        68
            11  15210                             BX2    -X0*X1                                                  PEM        69
                     22601                        LX6    X1                                                      PEM        70
                          0312000021 +            NZ     X2,PEMS5    IF WORD ALREADY PACKED.                     PEM        71
            12  7120000065                        SX2    65B         FIRST CHARACTER FOR FILL.                   PEM        72
                          46000                   NO                                                             PEM        73
                               36623              IX6    X2+X3                                                   PEM        74
            13  7140000100                        SX4    DT.BIAS+11                                              PEM        75
                          20666                   LX6    60-CHAR                                                 PEM        76
            14  0301000017 +                      ZR     X1,PEMS4    IF EMPTY WORD                               PEM        77
                                                                                                                 FC50353    10
            15  15210                    PEMS3    BX2    -X0*X1                                                  PEM        78
                     21106                        AX1    CHAR                                                    PEM        79
                          0312000021 +            NZ     X2,PEMS5    IF END                                      PEM        80
            16  7244777776                        SX4    X4-1        UPDATE BIAS                                 PEM        81
                          0400000015 +            EQ     PEMS3       LOOP                                        PEM        82
                                                                                                                 PEM        83
            17  7160000055               PEMS4    SX6    1R                                                      PEM        84
                          7140000066              SX4    DT.BIAS+1                                               PEM        85
            20  20666                             LX6    -CHAR                                                   PEM        86
                                        *         EQ     PEMS5                                                   PEM        87
                                                                                                                 PEM        88
                                        *         PUT BIASED WORD BACK INTO FILL. REGION                         PEM        89
                                                                                                                 PEM        90
            21  12646                    PEMS5    BX6    X4+X6                                                   PEM        91
                     67331                        SB3    B3-B1                                                   PEM        92
                          54610                   SA6    A1          RESET FILL.                                 PEM        93
            22  0530000010 +                      NZ     B3,PEMS1    IF NOT END OF *FILL.S*                      PEM        94
                          0400000043 +            EQ     PEM1        CONTINUE...                                 PEM        95
                                                                                                                 PEM        96
                                                                                                                 PEM        97
                                        **        HERE IF DIAGNOSTIC _V TYPE.                                    PEM        98
                                        *         NEXT 10 CHARACTERS FROM *TB*, STARTING AT (B4) WILL BE         PEM        99
                                        *         ASSEMBLED INTO *FILL.*                                         PEM       100
                                        *                                                                        PEM       101
                                        *         NOTE -                                                         PEM       102
                                        *                WORKS ONLY ON A NORMALIZED *TB*                         PEM       103
                                                                                                                 PEM       104
            23                           PEMV     BSSENT 0           ...ENTRY                                    PEM       105
            23  0100000244 +                      RJ     SVR=       SAVE ALL REGS (RJ MUST BE ALONE IN 1ST WORD) PEM       106
            24  56340                             SA3    B4                                                      PEM       107
                     6160000066                   SB6    9*CHAR                                                  PEM       108
                               43066              MX0    -CHAR                                                   PEM       109
            25  6120000066                        SB2    DT.BIAS+1                                               PEM       110
                          63330                   SB3    X3                                                      PEM       111
            26  7160000065                        SX6    65B         FIRST CHARACTER FOR FILL. = _.              PEM       112
                          5113000000 X            SA1    B3+CHARMAP                                              PEM       113
            27  10211                             BX2    X1                                                      PEM       114
                     10133                        BX1    X3                                                      PEM       115
                          0302000034 +            ZR     X2,PEMV10   IF O.(VAR,CONS,OCT,HEX,ILL)                 PEM       116
            30  5140000326 +                      SA4    =0LSTRING                                               PEM       117
                          13424                   BX4    X2-X4                                                   PEM       118
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     5
        FORMAT AND PRINT ROUTINES.                                    PEM 
  
                               10122              BX1    X2                                                      PEM       119
            31  0314000034 +                      NZ     X4,PEMV10   IF NOT O.(HOLL,CHAR)                        PEM       120
                          5120000000 X            SA2    T.CON                                                   PEM       121
            32  20322                             LX3    -TB.SHCP                                                PEM       122
                     43452                        MX4    -TB.SHCL                                                PEM       123
                          15434                   BX4    -X4*X3      EXTRACT DPC OF TOKEN                        PEM       124
                               63340              SB3    X4                                                      PEM       125
            33  53123                             SA1    X2+B3       X1 = DPC OF TOKEN                           PEM       126
                                                                                                                 PEM       127
            34  43252                    PEMV10   MX2    7*CHAR                                                  PEM       128
                     11121                        BX1    X2*X1       X1 = 7 CHARS MAXIMUM                        PEM       129
                                                                                                                 PEM       130
            35  20106                    PEMV20   LX1    CHAR                                                    PEM       131
                     15210                        BX2    -X0*X1                                                  PEM       132
                          0302000040 +            ZR     X2,PEMV30   IF END OF DPC                               PEM       133
            36  20606                             LX6    CHAR                                                    PEM       134
                     12626                        BX6    X2+X6                                                   PEM       135
                          6166777771              SB6    B6-CHAR                                                 PEM       136
            37  66221                             =B2    B2+1                                                    PEM       137
                     0400000035 +                 EQ     PEMV20                                                  PEM       138
                                                                                                                 PEM       139
            40  76020                    PEMV30   SX0    B2          BIAS ADD-ON                                 PEM       140
                     22666                        LX6    B6,X6       LEFT JUSTIFY                                PEM       141
                          12660                   BX6    X6+X0                                                   PEM       142
            41  5160000000 X                      SA6    FILL.       SET FILLER                                  PEM       143
                          0400000043 +            EQ     PEM1                                                    PEM       144
                                                                                                                 PEM       145
                                                                                                                 PEM       146
                                        **        HERE TO PRINT ALL DIAGNOSTICS.                                 PEM       147
                                                                                                                 PEM       148
            42                           PEM      BSSENT 0           ...ENTRY                                    PEM       149
            42  0100000244 +                      RJ     SVR=       SAVE ALL REGS (RJ MUST BE ALONE IN 1ST WORD) PEM       150
                                                                                                                 PEM       151
            43  56170                    PEM1     SA1    B7                                                      PEM       152
                     76670                        SX6    B7                                                      PEM       153
                          5160000167 +            SA6    PEMA        SAVE ERROR WORD ADDRESS.                    PEM       154
            44  20151                             LX1    -ER.TYPP                                                PEM       155
                     54661                        =A6    A6+1                                                    PEM       156
                          43067                   MX0    -ER.TYPL                                                PEM       157
                               15410              BX4    -X0*X1      ISOLATE ERROR TYPE ORDINAL                  PEM       158
            45  5234000000 X                      SA3    X4+ERRTYP                                               PEM       159
                          5120000000 X            SA2    CO.EL                                                   PEM       160
            46  63330                             SB3    X3          ERROR LEVEL OF CURRENT DIAGNOSTIC           PEM       161
                     63220                        SB2    X2          ERROR LEVEL FOR THE CURRENT COMPILATION     PEM       162
                          21322                   AX3    18                                                      PEM       163
                               53130              SA1    X3          FETCH TYPE BANNER WORD                      PEM       164
            47  6160000000 X                      SB6    ERR.C                                                   PEM       165
                          5146000000 X            SA4    B6+ERRTYP                                               PEM       166
            50  43052                             MX0    -18                                                     PEM       167
                     11604                        BX6    X0*X4       CLEAR OLD ERROR LEVEL                       PEM       168
                          12662                   BX6    X6+X2       INSERT CURRENT VALUE                        PEM       169
                               54640              SA6    A4          RESET CONTINUATION ERROR SELECTOR           PEM       170
            51  5053000000 X                      SA5    A3+N.ERRT                                               PEM       171
                          73751                   =X7    X5+1                                                    FC50636     5
                               76630              SX6    B3                                                      PEM       174
            52  5160000213 +                      SA6    UECA        SAVE CURRENT ERROR LEVEL                    PEM       175
                          0732000162 +            LT     B3,B2,PEM72 IF THIS TYPE NOT SELECTED                   PEM       176
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     6
        FORMAT AND PRINT ROUTINES.                                    PEM 
  
            53  10611                             BX6    X1                                                      PEM       177
                     54750                        SA7    A5          INCREMENT COUNT OF THIS TYPE                FC50636     6
                          5110000327 +            SA1    =1H*                                                    PEM       178
            54  5160000000 X                      SA6    LINEBUF                                                 PEM       179
                          10611                   BX6    X1                                                      PEM       180
                               54661              SA6    A6+B1                                                   PEM       181
            55  43600                             MX6    0                                                       PEM       182
                     54661                        SA6    A6+B1       POINT TO 1ST WORD FOR ERROR MESSAGE         PEM       183
                          66300                   SB3    B0          SET TO NO CHARACTERS USED IN WORD           PEM       184
                                                                                                                 PEM       185
                                        *         OUTPUT THE ERROR LINE                                          PEM       186
                                                                                                                 PEM       187
                               56170              SA1    B7          RELOAD FIRST POINTER WORD                   PEM       188
            56  7170000004                        SX7    N.ER1ST                                                 PEM       189
                          6160000074              SB6    10*CHAR                                                 PEM       190
            57  22001                             LX0    X1                                                      PEM       191
                                                                                                                 PEM       192
            60  43411                    PEM30    MX4    ER.WORDL                                                PEM       193
                     66200                        SB2    B0                                                      PEM       194
                          11340                   BX3    X4*X0       LOAD NEXT POINTER WORD BYTE                 PEM       195
            61  0303000117 +                      ZR     X3,PEM65    IF ZERO BYTE POINTER                        PEM       196
                          20311                   LX3    ER.WORDL                                                PEM       197
            62  5213777776 X                      SA1    X3+DICT-1                                               PEM       198
                          43366                   MX3    -CHAR                                                   PEM       199
                               15413              BX4    -X3*X1                                                  PEM       200
            63  7244777712                        SX4    X4-DT.BIAS  GET CHARACTER COUNT                         PEM       201
                          0324000067 +            PL     X4,PEM35    IF LESS THAN 10 CHARACTERS                  PEM       202
            64  7234000065                        SX3    X4+DT.BIAS-1R:                                          FC5A144     6
                          0303000066 +            ZR     X3,PEM33    IF GREATER THAN 10 CHARACTERS               PEM       204
            65  7140000012                        SX4    10                                                      PEM       205
                          0400000067 +            EQ     PEM35       EXACTLY 10 CHARACTERS                       PEM       206
                                                                                                                 PEM       207
            66  66210                    PEM33    SB2    B1          FLAG CONTINUED WORD                         PEM       208
                     7140000011                   SX4    9                                                       PEM       209
                                                                                                                 FC50353    11
            67  10344                    PEM35    BX3    X4                                                      PEM       210
                     20402                        LX4    2           MULT BY 4                                   PEM       211
                          20301                   LX3    1           MULT BY 2                                   PEM       212
                               36634              IX6    X3+X4       NUMBER OF BITS IN DATA                      PEM       213
            70  54560                             SA5    A6                                                      PEM       214
                                                                                                                 PEM       215
                                        *         PROCESS DATA WORD INTO OUTPUT BUFFER                           PEM       216
                                                                                                                 PEM       217
                     67563                        SB5    B6-B3                                                   PEM       218
                          63760                   SB7    X6                                                      PEM       219
            71  0757000076 +                      LT     B5,B7,PEM45       IF SPLIT NECESSARY                    PEM       220
                                                                                                                 PEM       221
                                        *         PROCESS DATA WORD ( NO SPLIT NECESSARY )                       PEM       222
                                                                                                                 PEM       223
            72  43401                    PEM40    MX4    1                                                       PEM       224
                     67771                        SB7    B7-B1                                                   PEM       225
                          23674                   AX6    X4,B7       BUILD MASK FOR DATA WORD                    PEM       226
                               11361              BX3    X6*X1       GET DATA WORD ONLY                          PEM       227
            73  22535                             LX5    X5,B3                                                   PEM       228
                     66737                        SB7    B3+B7                                                   PEM       229
                          15456                   BX4    -X6*X5      MASK IN PAST PARCEL                         PEM       230
                               66371              SB3    B7+B1                                                   PEM       231
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     7
        FORMAT AND PRINT ROUTINES.                                    PEM 
  
            74  12343                             BX3    X4+X3       ADD PAST AND PRESENT TOGETHER               PEM       232
                     22653                        LX6    X3,B5                                                   PEM       233
                          0420000102 +            ZR     B2,PEM50    ADD BLANK IF END OF WORD                    PEM       234
            75  54650                             SA6    A5                                                      PEM       235
                     0400000110 +                 EQ     PEM60       CONTINUE..                                  PEM       236
                                                                                                                 PEM       237
                                        *         PROCESS SPLIT WORD                                             PEM       238
                                                                                                                 PEM       239
            76  43401                    PEM45    MX4    1                                                       PEM       240
                     67331                        SB3    B3-B1                                                   PEM       241
                          22151                   LX1    X1,B5                                                   PEM       242
                               67775              SB7    B7-B5                                                   PEM       243
            77  66560                             SB5    B6                                                      PEM       244
                     23334                        AX3    X4,B3                                                   PEM       245
                          15613                   BX6    -X3*X1                                                  PEM       246
                               66300              SB3    B0                                                      PEM       247
           100  11335                             BX3    X3*X5                                                   PEM       248
                     54551                        SA5    A5+B1                                                   PEM       249
                          12636                   BX6    X3+X6                                                   PEM       250
                               54660              SA6    A6                                                      PEM       251
           101  13555                             BX5    0           PRESET FOR PROCESSING REMAINDER             PEM       252
                     0400000072 +                 EQ     PEM40       PROCESS REMAINDER                           PEM       253
                                                                                                                 PEM       254
                                        *         ADD IN SPACE BETWEEN WORDS                                     PEM       255
                                                                                                                 PEM       256
           102  7150000055               PEM50    SX5    1R                                                      PEM       257
                          6150000066              SB5    9*CHAR                                                  PEM       258
           103  20566                             LX5    9*CHAR                                                  PEM       259
                     0653000106 +                 LE     B3,B5,PEM55 IF ENOUGH ROOM FOR SPACE                    PEM       260
                               54650              SA6    A5                                                      PEM       261
           104  10655                             BX6    X5                                                      PEM       262
                     6130000006                   SB3    CHAR        SET NUMBER OF BITS IN OUTPUT WORD           PEM       263
                               54661              SA6    A6+B1       STORE IN OUTPUT BUFFER                      PEM       264
           105  0400000110 +                      EQ     PEM60       CONTINUE..                                  PEM       265
                                                                                                                 PEM       266
           106  67563                    PEM55    SB5    B6-B3                                                   PEM       267
                     22455                        LX4    B5,X5       ADJUST 1R                                   PEM       268
                          36664                   IX6    X6+X4                                                   PEM       269
                               54650              SA6    A5                                                      PEM       270
           107  6133000006                        SB3    B3+CHAR     ADJUST BIT COUNT                            PEM       271
                                                                                                                 FC50353    12
           110  20011                    PEM60    LX0    9                                                       PEM       272
                     7277777776                   SX7    X7-1                                                    PEM       273
           111  0317000060 +                      NZ     X7,PEM30    LOOP ON PRESENT POINTER WORD                PEM       274
                                                                                                                 PEM       275
                                        *         CHECK FOR CONTINUATION CARDS                                   PEM       276
                                                                                                                 PEM       277
                          20005                   LX0    ER.MOREP                                                PEM       278
           112  0320000117 +                      PL     X0,PEM65    IF NO CONTINUATION CARDS                    PEM       279
                          5130000170 +            SA3    PEMA+1                                                  PEM       282
           113  74470                             SX4    A7                                                      PEM       283
                     73731                        =X7    X3+1                                                    PEM       284
                          53131                   =A1    X3+1        LOAD NEXT POINTER WORD                      PEM       285
                               54730              SA7    A3                                                      PEM       286
           114  53240                             SA2    X4                                                      PEM       287
                     10722                        BX7    X2          RESTORE (A7)                                PEM       288
                          54720                   SA7    A2                                                      PEM       289
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     8
        FORMAT AND PRINT ROUTINES.                                    PEM 
  
           115  7170000006                        SX7    N.ERREST    RESET NUMBER OF BYTES PER WORD              PEM       290
                          10011                   BX0    X1                                                      PEM       291
           116  0400000060 +                      EQ     PEM30       PROCESS NTH CARD                            PEM       292
                                                                                                                 PEM       293
                                        *         END OF THIS MESSAGE, PRINT IT.                                 PEM       294
                                                                                                                 PEM       295
           117  54160                    PEM65    SA1    A6                                                      PEM       296
                     0100000000 X                 CALL   SFN         SPACE FILL LAST WORD                        PEM       297
           120  54610                             SA6    A1                                                      PEM       298
                     54510                        SA5    A1          REMEMBER (A5) = LWA OF DIAGNOSTIC           PEM       299
                          76600                   =X6    0                                                       PEM       300
           121  5160000171 +                      SA6    PEMB                                                    PEM       301
                          5110000000 X            SA1    ENOT=L                                                  PEM       302
           122  10611                             BX6    X1                                                      PEM       303
                     5160000000 X                 SA6    WOF=ERR     LIST TO E-FILE IF UNIQUE                    PEM       304
                               74650              SX6    A5                                                      PEM       305
           123  5160000172 +                      SA6    PEMC        SAVE LWA OF MESSAGE                         PEM       306
                                                                                                                 PEM       307
                                        *         LIST THE STATEMENT THAT WAS FOUND TO BE IN ERROR.              PEM       308
                                                                                                                 PEM       309
           124  5110000000 X             PEM66    SA1    PASS                                                    PEM       310
                          0311000126 +            NZ     X1,PEM67    IF NOT FRONT END                            PEM       311
                                   0              ERRNZ  PASS=FE                                                 PEM       312
           125  0100000000 X                      CALL   LDB         LIST DEFERRED BUFFER                        PEM       313
                                                                                                                 FC50353    13
           126  6120777776 X             PEM67    SB2    LINEBUF-1                                               PEM       314
                          75252                   SX2    A5-B2                                                   PEM       315
           127  5140000000 X                      SA4    WOF=ERR                                                 PEM       316
                          5244000000 X            SA4    CO.PW+X4                                                PEM       317
           130  7244777601                        SX4    X4-126                                                  FC50353    14
                          76121                   SX1    B2+B1       FWA OF DIAGNOSTIC                           PEM       319
           131  0324000154 +                      PL     X4,PEM71    IF NOT PW MODE                              FC50353    15
                          5140000000 X            SA4    WOF=ERR                                                 PEM       321
           132  7212777775                        SX1    X2-2                                                    PEM       322
                          0304000136 +            ZR     X4,PEM68    IF NOT LISTING TO E-FILE                    PEM       323
           133  10522                             BX5    X2          SAVE LENGTH                                 PEM       324
                     7120000002 X                 MOVE   X1,LINEBUF+2,PWBUF+1  MOVE LINE TO PWBUF                PEM       325
           135  10255                             BX2    X5          RESTORE FULL LINE LENGTH                    PEM       326
                     6120777775 X                 SB2    PWBUF-2     FWA OF LINE - 2                             PEM       327
                                                                                                                 PEM       328
           136  5110000000 X             PEM68    SA1    LINEBUF                                                 PEM       329
                          43060                   MX0    8*CHAR                                                  PEM       330
           137  7140004755                        SX4    2R*                                                     PEM       331
                          11601                   BX6    X0*X1                                                   PEM       332
                               12746              BX7    X4+X6                                                   PEM       333
           140  66221                             =B2    B2+1                                                    PEM       334
                     56721                        =A7    B2+1        SHORT SEVERITY HEADER                       PEM       335
                          74170                   SX1    A7                                                      PEM       336
           141  7222777776                        =X2    X2-1                                                    PEM       337
                                        *         EQ     PEM71                                                   PEM       338
                          5140000000 X            SA4    WOF=ERR                                                 FC5A426    29
           142  5244000000 X                      SA4    CO.WPL+X4   GET WIDTH CONTROL WORD                      FC5A426    30
                          6232777776              SB3    X2-1                                                    PEM       340
           143  63540                             SB5    X4          PAGE WIDTH IN WORDS                         PEM       341
                     67335                        SB3    B3-B5                                                   PEM       342
                          0603000154 +            LE     B3,PEM71    IF LENGTH LESS THAN PAGE WIDTH              PEM       343
           144  63622                             SB6    B2+X2       LWA = FWA-1+LEN                             PEM       344
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE     9
        FORMAT AND PRINT ROUTINES.                                    PEM 
  
                     53242                        SA2    X4+B2                                                   PEM       345
                          10322                   BX3    X2                                                      PEM       346
           145  6130777722                        SB3    -1R                                                     PEM       347
                          43066                   MX0    9*CHAR                                                  PEM       348
           146  6150000066                        SB5    9*CHAR                                                  PEM       349
                                                                                                                 FC50353    16
           147  15630                    PEM69    BX6    -X0*X3                                                  PEM       350
                     73463                        SX4    X6+B3                                                   PEM       351
                          0304000153 +            ZR     X4,PEM70    IF BLANK CHARACTER                          PEM       352
           150  22352                             LX3    B5,X2                                                   PEM       353
                     6155777771                   SB5    B5-CHAR                                                 PEM       354
           151  0650000147 +                      GE     B5,PEM69    IF STILL MORE CHARACTERS IN WORD            PEM       355
                          55221                   SA2    A2-B1                                                   PEM       356
           152  0400000147 +                      EQ     PEM69       TRY NEXT WORD BACK                          PEM       357
                                                                                                                 PEM       358
           153  0100000000 X             PEM70    CALL   BLL         BREAK LONG LINE                             PEM       359
                                                                                                                 PEM       360
           154  66510                    PEM71    PLINE  X1,X2                                                   PEM       361
           155  5140000000 X                      SA4    WO.LOS                                                  PEM       362
                          5120000000 X            SA2    ENOT=L                                                  PEM       363
           156  5150000172 +                      SA5    PEMC                                                    PEM       364
                          53550                   SA5    X5                                                      PEM       365
                               76600              =X6    0                                                       PEM       366
           157  5160000000 X                      SA6    WOF=ERR     LIST TO L-FILE                              PEM       367
                          0302000162 +            ZR     X2,PEM72    IF NO UNIQUE E-FILE                         PEM       368
           160  0304000162 +                      ZR     X4,PEM72    IF NOT LISTING SOURCE                       PEM       369
                          5140000171 +            SA4    PEMB                                                    PEM       370
           161  43601                             MX6    1                                                       PEM       371
                     54640                        SA6    A4                                                      PEM       372
                          0304000124 +            ZR     X4,PEM66    IF FIRST TIME THROUGH                       PEM       373
                                                                                                                 PEM       374
                                        *         EXIT.                                                          PEM       375
                                                                                                                 PEM       376
           162  0100000201 +             PEM72    RJ     UEC         UPDATE ERROR COUNTS                         PEM       377
           163  5110000167 +                      SA1    PEMA                                                    PEM       378
                          53210                   SA2    X1                                                      PEM       379
                               63720              SB7    X2          SET *EXIT* ADDRESS.                         PEM       380
           164  76670                             SX6    B7                                                      PEM       381
                     5160000223 +                 SA6    SV=B+7                                                  PEM       382
           165  0770000177 +                      MI     B7,PDM1     IF *RJ* STYLE ERROR                         PEM       383
                          0100000267 +            RJ     RSR=        RESTORE ALL REGS                            PEM       384
           166  0277000000                        JP     B7          EXIT                                        PEM       385
                                                                                                                 PEM       386
           167                     1     PEMA     BSS    1           SAVE ERROR WORD ADDRESS                     PEM       387
           170  00000000000000000000              CON    0                                                       PEM       388
           171                     1     PEMB     BSS    1                                                       PEM       389
           172                     1     PEMC     BSS    1                                                       PEM       390
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    10
        FORMAT AND PRINT ROUTINES.                                    PDM 
  
                                        **        PDM - PRINT DIAGNOSTIC MESSAGE                                 PEM       392
                                        *                                                                        PEM       393
                                        *                                                                        PEM       394
                                        *         ENTRY  (B7) = ADDR OF DIAGNOSTIC TO ISSUE                      PEM       395
                                        *                                                                        PEM       396
                                        *         EXIT   NONE                                                    PEM       397
                                        *                                                                        PEM       398
                                        *         USES   B7          (ALL OTHER REGISTERS SAVED AND RESTORED)    PEM       399
                                        *                                                                        PEM       400
                                        *         CALLS  RSR=,SVR=                                               PEM       401
                                                                                                                 PEM       402
                                                                                                                 PEM       403
           173  0400400173 +             PDM      SUBR   =           ** ENTRY/EXIT **                            PEM       404
           174  0100000244 +                      RJ     SVR=        SAVE ALL REGISTERS                          PEM       405
           175  5110000223 +                      SA1    SV=B+7      (X1) = ADDR OF ERR MSG                      PEM       406
                          63710                   SB7    X1                                                      PEM       407
                               53210              SA2    X1          (X2) = ADDR OF ERROR PROCESSOR              PEM       408
           176  63220                             SB2    X2                                                      PEM       409
                     0222400000                   JP     B2-4S15+1   BEGIN APPROPRIATE ERROR FORMATTER...        PEM       410
                                                                                                                 PEM       411
           177                           PDM1     BSS    0           ** RETURN FROM ERROR PROCESSING **          PEM       412
           177  0100000267 +                      RJ     RSR=        RESTORE ALL REGISTERS                       PEM       413
           200  0400000173 +                      EQ     EXIT.                                                   PEM       414
  
  
  
  
                                        **        UEC -  UPDATE ERROR COUNT.                                     PEM       416
                                        *                                                                        PEM       417
                                        *         ENTRY  (UECA)    = ERROR LEVEL OF CURRENT DIAGNOSTIC           PEM       418
                                        *                (ERRORS)  = COUNT OF PROGRAM UNIT BINARY FATAL ERRORS   PEM       419
                                        *                (E=TOTAL) = COUNT OF STATEMENT BINARY FATAL ERRORS      PEM       420
                                        *                (CP.ERCT) = COUNT OF ET= ERRORS                         PEM       421
                                        *                                                                        PEM       422
                                        *         EXIT   (ERRORS), (E=TOTAL), (CP.ERCT) UPDATED AS RELEVANT      PEM       423
                                        *                                                                        PEM       424
                                        *         USES   A1,A2,A3,A6,A7  X1,X2,X3,X6,X7                          PEM       425
                                                                                                                 PEM       426
                                                                                                                 PEM       427
           201  0400400201 +             UEC      SUBR               ...ENTRY/EXIT...                            PEM       428
           202  5110000213 +                      SA1    UECA                                                    PEM       429
                          5120000000 X            SA2    ERRORS                                                  PEM       430
           203  5130000000 X                      SA3    E=TOTAL                                                 PEM       431
                          6221777773              SB2    X1-EL=F                                                 PEM       432
           204  0720000207 +                      MI     B2,UEC1     IF DIAGNOSTIC NOT FATAL TO BINARY           PEM       433
                          73621                   =X6    X2+1                                                    PEM       434
                               73731              =X7    X3+1                                                    PEM       435
           205  54620                             SA6    A2          UPDATE ERRORS                               PEM       436
                     54730                        SA7    A3          UPDATE E=TOTAL                              PEM       437
                          43601                   MX6    1                                                       PEM       438
           206  5160000000 X                      SA6    WO.QC       GO INTO QUICK CHECK MODE AFTER FATAL ERROR  PEM       439
                                                                                                                 PEM       440
           207  5120000000 X             UEC1     SA2    CO.ET                                                   PEM       441
                          0302000201 +            ZR     X2,EXIT.    IF NO ERROR TERMINATION                     PEM       442
           210  37112                             IX1    X1-X2                                                   PEM       443
                     0331000201 +                 MI     X1,EXIT.    IF NOT ET=LEVEL OR HIGHER                   PEM       444
                               76110              =X1    1                                                       PEM       445
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    11
        FORMAT AND PRINT ROUTINES.                                    UEC 
  
           211  5120000000 X                      SA2    CP.ERCT                                                 PEM       446
                          36612                   IX6    X1+X2                                                   PEM       447
                               54620              SA6    A2          UPDATE CP.ERCT                              PEM       448
           212  0400000201 +                      EQ     EXIT.                                                   PEM       449
                                                                                                                 PEM       450
           213                     1     UECA     BSS    1           ERROR LEVEL OF CURRENT DIAGNOSTIC           PEM       451
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    12
        COMQSVR - SAVE AND RESTORE REGISTERS.                         SVR=
  
           214                           SVR=     CTEXT  COMQSVR - SAVE AND RESTORE REGISTERS.                   COMQSVR     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMQSVR     4
                                                  QUAL   COMQSVR                                                 COMQSVR     5
                                 D_D              BASE   D                                                       COMQSVR     6
  
  
  
  
                                        ***       SVR - SAVE AND RESTORE REGISTERS.                              COMQSVR     8
                                        *                                                                        COMQSVR     9
                                        *                                                                        COMQSVR    10
                                        *                CONTAINS THE ROUTINES *SVR=* TO SAVE ALL REGISTERS,     COMQSVR    11
                                        *         AND *RSR=* TO RESTORE ALL REGISTERS. MINUS ZERO (-0) IS PRE-   COMQSVR    12
                                        *         SERVED IN ALL REGISTERS, PARTICULARLY -A- AND -B- REGISTERS.   COMQSVR    13
                                        *         EACH REGISTER IS SAVED IN A FULL CM WORD (-A- AND -B-          COMQSVR    14
                                        *         REGISTERS ARE SIGN EXTENDED TO BIT 59). A REGISTER BLOCK IS    COMQSVR    15
                                        *         DEFINED TO BE ALL THE -B- REGISTERS, ALL THE -A- REGISTERS, OR COMQSVR    16
                                        *         ALL THE -X- REGISTERS. ALL REGISTERS IN A REGISTER BLOCK ARE   COMQSVR    17
                                        *         SAVED CONTIGUOUSLY IN ASCENDING ORDER.                         COMQSVR    18
                                        *                                                                        COMQSVR    19
                                        *         ASSEMBLY-TIME OPTIONS--                                        COMQSVR    20
                                        *                                                                        COMQSVR    21
                                        *            IF THE SYMBOL *BN=1* (N=1 THRU 7) IS DEFINED, (B.N) ARE     COMQSVR    22
                                        *         ASSUMED TO BE EQUAL TO 1. IF *BN=1* IS NOT DEFINED, (B1)       COMQSVR    23
                                        *         ARE CHECKED FOR 1 TO TRY TO AVOID EXECUTING THE *SAVE (B1)     COMQSVR    24
                                        *         VIA RJ SEQUENCE* CODE.                                         COMQSVR    25
                                        *                                                                        COMQSVR    26
                                        *            IF THE SYMBOL *#SVR* IS DEFINED (DEF), THEN THE CALLER      COMQSVR    27
                                        *         WILL PROVIDE THE FWA OF THE REGISTER SAVE AREA IN THE LOWER    COMQSVR    28
                                        *         30 BITS OF THE CALLING *RJ* FOR *SVR=*--                       COMQSVR    29
                                        *                30/RJ SVR, 30/FWA OF REGISTER SAVE AREA                 COMQSVR    30
                                        *         AND IN (X1) FOR *RSR=*.                                        COMQSVR    31
                                        *            IF THE SYMBOL *#SVR* IS NOT DEFINED (-DEF), THEN A LOCAL    COMQSVR    32
                                        *         REGISTER SAVE AREA, (SVREG) ET SEQ, WILL BE USED AND NO        COMQSVR    33
                                        *         PARAMETERS NEED TO BE PASSED.                                  COMQSVR    34
                                        *                                                                        COMQSVR    35
                                        *            THE MICRO "SVBAX" DEFINES THE ORDER IN WHICH THE -B-, -A-,  COMQSVR    36
                                        *         AND -X- REGISTER BLOCKS ARE SAVED IN CM.                       COMQSVR    37
                                        *         I.E.   SVBAX    MICRO  1,,/BAX/        (DEFAULT) MEANS         COMQSVR    38
                                        *                SV=B     BSSZ   8                                       COMQSVR    39
                                        *                SV=A     BSSZ   8                                       COMQSVR    40
                                        *                SV=X     BSSZ   8                                       COMQSVR    41
                                        *         OR     SVBAX    MICRO  1,,/ABX/        MEANS                   COMQSVR    42
                                        *                SV=A     BSSZ   8                                       COMQSVR    43
                                        *                SV=B     BSSZ   8                                       COMQSVR    44
                                        *                SV=X     BSSZ   8                                       COMQSVR    45
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    13
        COMQSVR - SAVE AND RESTORE REGISTERS.                         SVR=                COMQSVR 
  
                                                  IF     -MIC,SVBAX,1                                            COMQSVR    47
                                         SVBAX    MICRO  1,,/BAX/                                                COMQSVR    48
                                                                                                                 COMQSVR    49
                                         .1       MICRO  1,1,/"SVBAX"/                                           COMQSVR    50
                                         .2       MICRO  2,1,/"SVBAX"/                                           COMQSVR    51
                                         .3       MICRO  3,1,/"SVBAX"/                                           COMQSVR    52
                                                                                                                 COMQSVR    53
                                   0     SV".1"   =      0                                                       COMQSVR    54
                                  10     SV".2"   =      0+8                                                     COMQSVR    55
                                  20     SV".3"   =      0+8+8                                                   COMQSVR    56
                                                                                                                 COMQSVR    57
                                         .SVR     IF     -DEF,#SVR                                               COMQSVR    58
           214                    30     SVREG    BSSZ   3*8                                                     COMQSVR    59
                                                                                                                 COMQSVR    60
                                         .SVR     ELSE                                                           COMQSVR    61
                                         SVX7     BSSZ   1           TEMPORARY SAVE (X7)                         COMQSVR    62
                                         SVA5     BSSZ   1           TEMPORARY SAVE (A5)                         COMQSVR    63
                                         SVX5     BSSZ   1           TEMPORARY SAVE (X5)                         COMQSVR    64
                                         .SVR     ENDIF                                                          COMQSVR    65
                                                                                                                 COMQSVR    66
  
  
  
  
                                        **        SVR - SAVE ALL REGISTERS.                                      COMQSVR    68
                                        *                                                                        COMQSVR    69
                                        *                                                                        COMQSVR    70
                                        *         ENTRY  IF *#SVR* DEFINED--                                     COMQSVR    71
                                        *                LOWER 30 BITS OF CALLING *RJ* CONTAINS FWA OF           COMQSVR    72
                                        *                 REGISTER SAVE AREA (RSA)--   30/RJ SVR=, 30/FWA OF RSA COMQSVR    73
                                        *                                                                        COMQSVR    74
                                        *                IF *#SVR* NOT DEFINED-- NONE                            COMQSVR    75
                                        *                                                                        COMQSVR    76
                                        *                IF *BN=1* DEFINED-- (B.N) = 1                           COMQSVR    77
                                        *                                                                        COMQSVR    78
                                        *         EXIT   (B1) = 1                                                COMQSVR    79
                                        *                                                                        COMQSVR    80
                                        *         USES   ALL                                                     COMQSVR    81
                                        *                                                                        COMQSVR    82
                                        *         CALLS  NONE                                                    COMQSVR    83
                                                                                                                 COMQSVR    84
                                                                                                                 COMQSVR    85
           244  0400400244 +             SVR=     EQ     *+4S15      ** ENTRY/EXIT **                            COMQSVR    86
                                                                                                                 COMQSVR    87
                                        *         CHECK TO SEE IF ANY REGISTER HAS BEEN DEFINED TO BE EQUAL      COMQSVR    88
                                        *           TO 1 AT ASSEMBLY TIME VIA *BN=1* SYMBOL. IF NOT, CHECK FOR   COMQSVR    89
                                        *           (B1) = 1. IF (B1).NE.1, SAVE (B1) THE HARD WAY BY EXECUTING  COMQSVR    90
                                        *           THE *SAVE (B1)* RJ SEQUENCE AT *SVR2*. IF BIT 2**N WAS ON    COMQSVR    91
                                        *           IN (B1), THEN THE *RJ* AT (SVR2+2*N+1) WILL BE EXECUTED,     COMQSVR    92
                                        *           RESULTING IN AN /EQ SVR2+2*N+2/. IF BIT 2**N WAS NOT ON      COMQSVR    93
                                        *           IN (B1), THEN THE *RJ* WILL NOT BE  EXECUTED. BY QUERYING    COMQSVR    94
                                        *           (SVR2+2*N+1), ONE CAN DETERMINE WHETHER OR NOT BIT 2**N      COMQSVR    95
                                        *           WAS ON IN (B1) BY THE PRESENCE OF AN *EQ* (BIT WAS ON), OR   COMQSVR    96
                                        *           AN *RJ* (BIT WAS OFF) INSTRUCTION.                           COMQSVR    97
                                                                                                                 COMQSVR    98
                                         B=1      MICRO  1,,/B0/                                                 COMQSVR    99
                                                  ECHO   4,BN=(B1,B7,B5,B2,B3,B4,B6)                             COMQSVR   100
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    14
        COMQSVR - SAVE AND RESTORE REGISTERS.                         SVR=                COMQSVR 
  
                                                  IF     DEF,BN=1,3                                              COMQSVR   101
                                         B=1      MICRO  1,,/BN/                                                 COMQSVR   102
                                                  STOPDUP                                                        COMQSVR   103
                                         B.EQ.1   SKIP                                                           COMQSVR   104
                                                                                                                 COMQSVR   105
                                                  LE     B1,B0,SVR2  IF (B1).LE.0 (INSURES -0 WILL BE HONORED)   COMQSVR   106
                                                  SB1    B1-1                                                    COMQSVR   107
                                                  ZR     B1,SVR4     IF (B1) = 1                                 COMQSVR   108
                                                  SB1    B1+1        RESTORE (B1)                                COMQSVR   109
                                                                                                                 COMQSVR   110
                                         SVR2     BSS    0                                                       COMQSVR   111
                                                  PL     B1,*+2                                                  COMQSVR   112
                                         +        RJ     *                                                       COMQSVR   113
                                                                                                                 COMQSVR   114
                                         B.NE.1   DUP    17                                                      COMQSVR   115
                                         +        SB1    B1+B1                                                   COMQSVR   116
                                                  NO                                                             COMQSVR   117
                                                  PL     B1,*+2                                                  COMQSVR   118
                                         +        RJ     *                                                       COMQSVR   119
                                         B.NE.1   ENDD                                                           COMQSVR   120
                                                                                                                 COMQSVR   121
                                         +        SB0    B0+         FILLER BECAUSE /RJ */S MUST BE 2 WORDS      COMQSVR   122
                                        *                              APART FOR RESTORE                         COMQSVR   123
                                                                                                                 COMQSVR   124
                                         SVR3     RJ     *           (B1)=1/(B1).NE.1 FLAG                       COMQSVR   125
                                                                                                                 COMQSVR   126
                                         SVR4     BSS    0                                                       COMQSVR   127
                                                                                                                 COMQSVR   128
                                         B.EQ.1   ELSE                                                           COMQSVR   129
           245  0710400245 +                      MI     "B=1",*+4S15  IF ("B=1") IS BAD (SHOULD BE EQUAL TO 1)  COMQSVR   130
                          6111777776              S"B=1" "B=1"-1                                                 COMQSVR   131
           246  0410000250 +                      ZR     "B=1",SVR2  IF ("B=1") = 1                              COMQSVR   132
                          6111000001              S"B=1" "B=1"+1     RESTORE ("B=1")                             COMQSVR   133
           247  0400400247 +                      EQ     *+4S15                                                  COMQSVR   134
                                                                                                                 COMQSVR   135
           250                           SVR2     BSS    0                                                       COMQSVR   136
                                                  IFC    NE,/"B=1"/B1/,1                                         COMQSVR   137
                                                  S"B=1" B1-B0       SAVE (B1)                                   COMQSVR   138
                                         B.EQ.1   ENDIF                                                          COMQSVR   139
                                                                                                                 COMQSVR   140
                                        *         SAVE   A - 4,5,6,7                                             COMQSVR   141
                                        *                X - 4,5,6,7                                             COMQSVR   142
                                                                                                                 COMQSVR   143
                                         .SVR1    IF     -DEF,#SVR   IF USING LOCAL REGISTER SAVE AREA           COMQSVR   144
           250  65170                             SB1    A7-B0                                                   COMQSVR   145
                     5170000243 +                 SA7    SVREG+SVX+7                                             COMQSVR   146
                               77710              SX7    B1-B0                                                   COMQSVR   147
           251  5170000233 +                      SA7    SVREG+SVA+7                                             COMQSVR   148
                          6110000001              SB1    1                                                       COMQSVR   149
           252  75760                             SX7    A6-B0                                                   COMQSVR   150
                     5160000242 +                 SA6    SVREG+SVX+6                                             COMQSVR   151
                               55771              SA7    A7-B1                                                   COMQSVR   152
           253  10655                             BX6    X5                                                      COMQSVR   153
                     75750                        SX7    A5-B0                                                   COMQSVR   154
                          55661                   SA6    A6-B1                                                   COMQSVR   155
                               55771              SA7    A7-B1                                                   COMQSVR   156
           254  10644                             BX6    X4                                                      COMQSVR   157
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    15
        COMQSVR - SAVE AND RESTORE REGISTERS.                         SVR=                COMQSVR 
  
                     75740                        SX7    A4-B0                                                   COMQSVR   158
                          55661                   SA6    A6-B1                                                   COMQSVR   159
                               55771              SA7    A7-B1                                                   COMQSVR   160
           255  7150000214 +                      SX5    SVREG       (X5) = FWA OF SAVED REGISTER AREA           COMQSVR   161
                                                                                                                 COMQSVR   162
                                         .SVR1    ELSE               IF USING USER DEFINED SAVE AREA             COMQSVR   163
                                                  SB1    A7-B0       SAVE (A7) ** TEMPORARY **                   COMQSVR   164
                                                  SA7    SVX7        SAVE (X7) ** TEMPORARY **                   COMQSVR   165
                                                  SX7    A5-B0                                                   COMQSVR   166
                                                  SA7    SVA5        SAVE (A5) ** TEMPORARY **                   COMQSVR   167
                                                  BX7    X5                                                      COMQSVR   168
                                                  SA7    SVX5        SAVE (X5) ** TEMPORARY **                   COMQSVR   169
                                                                                                                 COMQSVR   170
                                                  SA5    SVR=        (X5) = 30/EQ CALLER+1, 30/0                 COMQSVR   171
                                                  LX5    30                                                      COMQSVR   172
                                                  SA5    X5-1        (X5) = 30/RJ SVR=, 30/FWA OF RSA            COMQSVR   173
                                                  SX7    B1-B0                                                   COMQSVR   174
                                                  SB1    1                                                       COMQSVR   175
                                                  SA7    X5+SVA+7                                                COMQSVR   176
                                                  SX7    A6-B0                                                   COMQSVR   177
                                                  SA6    X5+SVX+6                                                COMQSVR   178
                                                  SA7    A7-B1                                                   COMQSVR   179
                                                  BX6    X4                                                      COMQSVR   180
                                                  SX7    A4-B0                                                   COMQSVR   181
                                                  SA6    A6-2                                                    COMQSVR   182
                                                  SA7    A7-2                                                    COMQSVR   183
                                         .SVR1    ENDIF                                                          COMQSVR   184
                                                                                                                 COMQSVR   185
                                        *         SAVE   A - 0,1,2,3                                             COMQSVR   186
                                        *                X - 0,1,2,3                                             COMQSVR   187
                                                                                                                 COMQSVR   188
                                         SV=AX    ECHO   ,N=(3,2,1,0)                                            COMQSVR   189
                                                  BX6    X.N                                                     COMQSVR   190
                                                  SX7    A.N-B0                                                  COMQSVR   191
                                                  SA6    A6-B1                                                   COMQSVR   192
                                                  SA7    A7-B1                                                   COMQSVR   193
                                         SV=AX    ENDD                                                           COMQSVR   194
                                                                                                                 COMQSVR   195
                                        *         IF USING USER DEFINED SAVE AREA, SAVE (X7),(A5),(X5) FINALLY.  COMQSVR   196
                                                                                                                 COMQSVR   197
                                         .SVR2    IF     DEF,#SVR                                                COMQSVR   198
                                                  SA2    SVX7        (X2) = SAVED (X7)                           COMQSVR   199
                                                  SA3    A2+B1       (X3) = SAVED (A5)                           COMQSVR   200
                                                  SA4    A3+B1       (X4) = SAVED (X5)                           COMQSVR   201
                                                  BX6    X2                                                      COMQSVR   202
                                                  LX7    X3                                                      COMQSVR   203
                                                  SA6    X5+SVX+7                                                COMQSVR   204
                                                  SA7    X5+SVA+5                                                COMQSVR   205
                                                  BX6    X4                                                      COMQSVR   206
                                                  SA6    X5+SVX+5                                                COMQSVR   207
                                         .SVR2    ENDIF                                                          COMQSVR   208
                                                                                                                 COMQSVR   209
                                        *         SAVE   B - 0,2,3,4,5,6,7                                       COMQSVR   210
                                                                                                                 COMQSVR   211
                          13666                   BX6    X6-X6                                                   COMQSVR   212
           262  5265000000                        SA6    X5+SVB+0                                                COMQSVR   213
                                                                                                                 COMQSVR   214
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    16
        COMQSVR - SAVE AND RESTORE REGISTERS.                         SVR=                COMQSVR 
  
                                         B=1      IFC    NE,/"B=1"/B0/                                           COMQSVR   215
                          77710                   SX7    "B=1"-B0                                                COMQSVR   216
                               66110              S"B=1" B1          RESET ("B=1") = 1                           COMQSVR   217
                                                                                                                 COMQSVR   218
                                         B=1      ELSE                                                           COMQSVR   219
                                                  SX7    B1                                                      COMQSVR   220
                                         B=1      ENDIF                                                          COMQSVR   221
                                                                                                                 COMQSVR   222
           263  54761                             SA7    A6+B1                                                   COMQSVR   223
                                                                                                                 COMQSVR   224
                                         SV=B     ECHO   ,U=(2,4,6),L=(3,5,7)                                    COMQSVR   225
                                                  SX6    B.U-B0                                                  COMQSVR   226
                                                  SX7    B.L-B0                                                  COMQSVR   227
                                                  SA6    A7+B1                                                   COMQSVR   228
                                                  SA7    A6+B1                                                   COMQSVR   229
                                         SV=B     ENDD                                                           COMQSVR   230
                                                                                                                 COMQSVR   231
                                        *         SAVE (B1)                                                      COMQSVR   232
                                                                                                                 COMQSVR   233
                                         B.NE.1   IFC    EQ,/"B=1"/B0/                                           COMQSVR   234
                                                  SA5    SVR3        (X5) = (B1)=1/(B1).NE.1 FLAG                COMQSVR   235
                                                  SX4    0100B       (X4) = *RJ* OP CODE                         COMQSVR   236
                                                  SX3    B1                                                      COMQSVR   237
                                                  LX3    42-0-1                                                  COMQSVR   238
                                                  SX6    A5                                                      COMQSVR   239
                                                  LX4    29-11                                                   COMQSVR   240
                                                  BX6    X4+X6       (X6) = 30/0, 30/RJ *                        COMQSVR   241
                                                  LX6    30                                                      COMQSVR   242
                                                  SA6    A5          RESTORE .RJ *.                              COMQSVR   243
                                                  LX5    59-56                                                   COMQSVR   244
                                                  BX7    X7-X7                                                   COMQSVR   245
                                                  PL     X5,SVR=     IF (B1) = 1, NO NEED TO ASSEMBLE (B1)       COMQSVR   246
                                                  SB2    B1+B1                                                   COMQSVR   247
                                                                                                                 COMQSVR   248
                                        *         ASSEMBLE ORIGINAL (B1) INTO (X7).                              COMQSVR   249
                                                                                                                 COMQSVR   250
                                         SVR5     SA5    A5-B2                                                   COMQSVR   251
                                                  IX3    X3+X3                                                   COMQSVR   252
                                                  SX6    A5                                                      COMQSVR   253
                                                  LX5    59-56                                                   COMQSVR   254
                                                  BX6    X4+X6                                                   COMQSVR   255
                                                  PL     X5,SVR6     IF BIT WAS CLEAR                            COMQSVR   256
                                                  BX7    X7+X3                                                   COMQSVR   257
                                                                                                                 COMQSVR   258
                                         SVR6     LX6    59-29                                                   COMQSVR   259
                                                  SA6    A5                                                      COMQSVR   260
                                                  PL     X3,SVR5     IF MORE BITS TO ASSEMBLE                    COMQSVR   261
                                                                                                                 COMQSVR   262
                                        *         HERE FOR FINAL SAVE OF (B1).                                   COMQSVR   263
                                                                                                                 COMQSVR   264
                                                  AX7    42          SIGN EXTEND                                 COMQSVR   265
                                                  SA7    A7-7+1                                                  COMQSVR   266
                                         B.NE.1   ENDIF                                                          COMQSVR   267
                                                                                                                 COMQSVR   268
                     0400000244 +                 EQ     SVR=        EXIT...                                     COMQSVR   269
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    17
        COMQSVR - SAVE AND RESTORE REGISTERS.                         RSR=                COMQSVR 
  
                                        **        RSR - RESTORE ALL REGISTERS.                                   COMQSVR   271
                                        *                                                                        COMQSVR   272
                                        *                                                                        COMQSVR   273
                                        *         ENTRY  IF *#SVR* NOT DEFINED-- NONE                            COMQSVR   274
                                        *                                                                        COMQSVR   275
                                        *                IF *#SVR* DEFINED-- (X1) = FWA OF REGISTER SAVE AREA    COMQSVR   276
                                        *                                                                        COMQSVR   277
                                        *         EXIT   ALL REGISTERS SET TO THE CONTENTS OF REGISTER SAVE AREA COMQSVR   278
                                        *                                                                        COMQSVR   279
                                        *         USES   ALL                                                     COMQSVR   280
                                        *                                                                        COMQSVR   281
                                        *         CALLS  NONE                                                    COMQSVR   282
                                                                                                                 COMQSVR   283
                                                                                                                 COMQSVR   284
           267  0400400267 +             RSR=     EQ     *+4S15      ** ENTRY/EXIT **                            COMQSVR   285
           270  6110000001                        SB1    1                                                       COMQSVR   286
                                                                                                                 COMQSVR   287
                                        *         SET UP FINAL -B- REGISTERS RESTORE AT (RSR4) ET SEQ.           COMQSVR   288
                                                                                                                 COMQSVR   289
                                         .RSR     IF     DEF,#SVR    IF USING USER DEFINED REGISTER SAVE AREA    COMQSVR   290
                                                  SB7    X1+         (B7) = FWA OF REGISTER SAVE AREA            COMQSVR   291
                                                                                                                 COMQSVR   292
                                         .RSR     ELSE               IF USING LOCAL REGISTER SAVE AREA           COMQSVR   293
                          6170000214 +            SB7    SVREG                                                   COMQSVR   294
                                         .RSR     ENDIF                                                          COMQSVR   295
                                                                                                                 COMQSVR   296
           271  43452                             MX4    -18                                                     COMQSVR   297
                     5117000007                   SA1    B7+SVB+7    (X1) = SAVED (B7)                           COMQSVR   298
                               10544              BX5    X4                                                      COMQSVR   299
           272  20436                             LX4    30                                                      COMQSVR   300
                     6140000004                   SB4    4                                                       COMQSVR   301
                               11045              BX0    X4*X5       (X0) = 77770000007777000000B                COMQSVR   302
                                                                                                                 COMQSVR   303
           273  55211                    RSR2     SA2    A1-B1       (X2) = SAVED (B.N-1)                        COMQSVR   304
                     5134000320 +                 SA3    RSR4+B4-1                                               COMQSVR   305
                               15115              BX1    -X5*X1                                                  COMQSVR   306
           274  67441                             SB4    B4-B1                                                   COMQSVR   307
                     15225                        BX2    -X5*X2                                                  COMQSVR   308
                          20136                   LX1    30                                                      COMQSVR   309
                               11303              BX3    X0*X3                                                   COMQSVR   310
           275  36612                             IX6    X1+X2                                                   COMQSVR   311
                     12763                        BX7    X6+X3       (X7) = 30/SB.N B7+K, 30/SB.N-1 B7+K         COMQSVR   312
                          54730                   SA7    A3                                                      COMQSVR   313
                               55121              SA1    A2-B1       (X1) = SAVED (B.N)                          COMQSVR   314
           276  0704000273 +                      GT     B4,B0,RSR2  IF STILL MORE -B- REGS TO GO...             COMQSVR   315
                                                                                                                 COMQSVR   316
                          5127000016              SA2    B7+SVA+6    (X2) = SAVED (A6)                           COMQSVR   317
           277  0100000300 +                      RJ     *+1         VOID INSTRUCTION STACK                      CCGA090     6
           300  0400000300 +             +        EQ     *                                                       CCGA090     7
                                                                                                                 COMQSVR   318
                                        *         THE MOST LIKELY CANDIDATE FOR THE DANGER DISCUSSED IN THE NEXT COMQSVR   319
                                        *           PARAGRAPH IS THE SYSTEM COMMUNICATION CELL (RA.MTR).         COMQSVR   320
                                        *           ACCORDINGLY, WE WAIT FOR IT TO CLEAR BEFORE PROCEEDING.      COMQSVR   321
                                                                                                                 COMQSVR   322
           301  56110                    RSR3     SA1    B1                                                      COMQSVR   323
                     0311000301 +                 NZ     X1,RSR3     IF (RA.MTR) NOT CLEAR                       COMQSVR   324
                                                                                                                 COMQSVR   325
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    18
        COMQSVR - SAVE AND RESTORE REGISTERS.                         RSR=                COMQSVR 
  
                                        *         A SLIGHT BIT OF CARE IS SPENT ON RESTORATION OF (A6) AND (A7). COMQSVR   326
                                        *           WE WISH TO AVOID HAVING THE CONTENTS OF THE WORD THAT THE    COMQSVR   327
                                        *           STORE REGISTER IS POINTING TO TO GET CHANGED (I.E. BY A PP)  COMQSVR   328
                                        *           WHILE WE ARE RESTORING (A6) OR (A7). ABOUT THE ONLY THING    COMQSVR   329
                                        *           THAT CAN BE DONE TO MINIMIZE THIS POSSIBILITY IS TO GET THE  COMQSVR   330
                                        *           LOAD AND THE STORE AS CLOSE TOGETHER AS POSSIBLE. BY KEEPING COMQSVR   331
                                        *           THEM IN THE SAME WORD, WE HAVE AT LEAST INSURED THAT WE WILL COMQSVR   332
                                        *           NOT BE EXCHANGED AFTER THE LOAD BUT BEFORE THE STORE.        COMQSVR   333
                                        *           BARRING DELAYS IN THE HOPPER, THIS SHOULD REDUCE THE DANGER  COMQSVR   334
                                        *           PERIOD TO A FEW MINOR CYCLES. SUGGESTIONS ARE WELCOME.       COMQSVR   335
                                                                                                                 COMQSVR   336
                               54321              SA3    A2+B1       (X3) = SAVED (A7)                           COMQSVR   337
                                                                                                                 COMQSVR   338
           302  5242777777               +        SA4    X2-0                                                    COMQSVR   339
                          10644                   BX6    X4                                                      COMQSVR   340
                               55640              SA6    A4-B0       RESTORE (A6)                                COMQSVR   341
                                                                                                                 COMQSVR   342
           303  5253777777               +        SA5    X3-0                                                    COMQSVR   343
                          10755                   BX7    X5                                                      COMQSVR   344
                               55750              SA7    A5-B0       RESTORE (A7)                                COMQSVR   345
                                                                                                                 COMQSVR   346
           304  5117000026                        SA1    B7+SVX+6                                                COMQSVR   347
                          54411                   SA4    A1+B1                                                   COMQSVR   348
                               10611              BX6    X1          RESTORE (X6)                                COMQSVR   349
           305  22704                             LX7    X4          RESTORE (X7)                                COMQSVR   350
                     17000                        BX0    -X0-X0                                                  COMQSVR   351
                          6260777777              SB6    X0-0        (B6) = -0                                   COMQSVR   352
                                                                                                                 COMQSVR   353
                                        *         RESTORE (A0),(X0).                                             COMQSVR   354
                                                                                                                 COMQSVR   355
           306  5147000010                        SA4    B7+SVA+0                                                COMQSVR   356
                          5157000020              SA5    B7+SVX+0                                                COMQSVR   357
           307  53046                             SA0    X4+B6                                                   COMQSVR   358
                     10055                        BX0    X5                                                      COMQSVR   359
                                                                                                                 COMQSVR   360
                                        *         RESTORE A - 1,2,3,4                                            COMQSVR   361
                                        *                 X - 1,2,3,4                                            COMQSVR   362
                                                                                                                 COMQSVR   363
                                                  ECHO   4,N=(1,2,3,4)                                           COMQSVR   364
                                                  SA4    A4+B1       (X4) = SAVED (A.N)                          COMQSVR   365
                                                  SA5    A5+B1       (X5) = SAVED (X.N)                          COMQSVR   366
                                                  SA.N   X4+B6                                                   COMQSVR   367
                                                  BX.N   X5                                                      COMQSVR   368
                                                                                                                 COMQSVR   369
                                        *         RESTORE (A5),(X5)-- THE ORIGINAL (X5) ARE BROKEN APART INTO    COMQSVR   370
                                        *           (B1) THRU (B5) AS DISPLAYED BELOW. THIS ALLOWS US TO RESTORE COMQSVR   371
                                        *           (A5).                                                        COMQSVR   372
                                        *           DISASSEMBLY IS FROM LEFT TO RIGHT, TOP TO BOTTOM.            COMQSVR   373
                                        *           REASSEMBLY IS FROM RIGHT TO LEFT, BOTTOM TO TOP.             COMQSVR   374
                                        *         5          4          3          2          1               55 COMQSVR   375
                                        *         9          8          7          6          5              098 COMQSVR   376
                                        *         .............................................................. COMQSVR   377
                                        *         ++++++++++++                                                   COMQSVR   378
                                        *             (B1)   ++++++++++++                                        COMQSVR   379
                                        *                        (B2)   ++++++++++++                             COMQSVR   380
                                        *                                   (B3)   ++++++++++++                  COMQSVR   381
                                        *                                              (B4)   ++++++++++++++++++ COMQSVR   382
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    19
        COMQSVR - SAVE AND RESTORE REGISTERS.                         RSR=                COMQSVR 
  
                                        *         ++                                                 (B5)        COMQSVR   383
                                                                                                                 COMQSVR   384
                          54551                   SA5    A5+B1       (X5) = SAVED (X5)                           COMQSVR   385
                                                                                                                 COMQSVR   386
                                                  ECHO   2,N=(1,2,3)                                             COMQSVR   387
                                                  UX5    X5,B.N                                                  COMQSVR   388
                                                  LX5    11                                                      COMQSVR   389
                                                                                                                 COMQSVR   390
                     26545                        UX5    X5,B4                                                   COMQSVR   391
                          20535                   LX5    11+18                                                   COMQSVR   392
                               63556              SB5    X5+B6                                                   COMQSVR   393
                                                                                                                 COMQSVR   394
           316  5157000015                        SA5    B7+SVA+5    (X5) = SAVED (A5)                           COMQSVR   395
                          53556                   SA5    X5+B6       RESTORE (A5)                                COMQSVR   396
                                                                                                                 COMQSVR   397
                                        *         REASSEMBLE (X5).                                               COMQSVR   398
                                                                                                                 COMQSVR   399
                               76556              SX5    B5+B6                                                   COMQSVR   400
           317  20537                             LX5    60-11-18                                                COMQSVR   401
                     27545                        PX5    X5,B4                                                   COMQSVR   402
                                                                                                                 COMQSVR   403
                                                  ECHO   2,N=(3,2,1)                                             COMQSVR   404
                                                  LX5    -11                                                     COMQSVR   405
                                                  PX5    X5,B.N                                                  COMQSVR   406
                                                                                                                 COMQSVR   407
                                        *         RESTORE B - 0,1,2,3,4,5,6,7                                    COMQSVR   408
                                                                                                                 COMQSVR   409
           321                           RSR4     BSS    0                                                       COMQSVR   410
                                                  ECHO   2,U=(1,3,5,7),L=(0,2,4,6)                               COMQSVR   411
                                                  SB.U   B6+*                                                    COMQSVR   412
                                                  SB.L   B6+*                                                    COMQSVR   413
                                                                                                                 COMQSVR   414
           325  0400000267 +                      EQ     RSR=        EXIT...                                     COMQSVR   415
  
  
  
  
                                 D_D              BASE   *                                                       COMQSVR   417
                                                                                                                 COMQSVR   418
                                         #SVR     IF     -DEF,#SVR                                               COMQSVR   419
                                 214 +   SV=B     =      SVREG+SVB                                               COMQSVR   420
                                 224 +   SV=A     =      SVREG+SVA                                               COMQSVR   421
                                 234 +   SV=X     =      SVREG+SVX                                               COMQSVR   422
                                         #SVR     ENDIF                                                          COMQSVR   423
                                                                                                                 COMQSVR   424
                                         QUAL$    IF     -DEF,QUAL$                                              COMQSVR   425
                                                  QUAL   *                                                       COMQSVR   426
                                 244 +   SVR=     =      /COMQSVR/SVR=                                           COMQSVR   427
                                 267 +   RSR=     =      /COMQSVR/RSR=                                           COMQSVR   428
                                                                                                                 COMQSVR   429
                                         #SVR     IF     -DEF,#SVR                                               COMQSVR   430
                                 214 +   SV=B     =      /COMQSVR/SV=B                                           COMQSVR   431
                                 224 +   SV=A     =      /COMQSVR/SV=A                                           COMQSVR   432
                                 234 +   SV=X     =      /COMQSVR/SV=X                                           COMQSVR   433
                                         #SVR     ENDIF                                                          COMQSVR   434
                                         QUAL$    ENDIF                                                          COMQSVR   435
                                                  ENDX                                                           COMQSVR   436
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    20
        COMQSVR - SAVE AND RESTORE REGISTERS.                         SVR=
  
                                                                                                                 PEM       453
                                                  LIST   D                                                       PEM       454
  
                                        CONTENT OF LITERALS BLOCK.
  
           326  23242211160700000000    STRING
           327  47555555555555555555    * 
  
           330                                    END                                                            PEM       455
  
                             73700B CM  STORAGE USED             1356 STATEMENTS     1456 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.358 SECONDS         302 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI8           0   PROGRAM*        3/07 L    3/12
        ANSI=           1   PROGRAM*        3/09 L    3/09 E
        ANSI.SW         2   PROGRAM*        3/10 L    3/10 E
        ANS.CONT       23   FTX             2/09
        BLL             0   EXTERNAL*       1/48 X    9/16
        B1=1            0 
        CHAR            6   FTX             4/02      4/25      5/10      5/18      7/27      7/40      9/05
                                            4/14      4/47      5/13      6/15      7/28      8/42      9/11
                                            4/18      4/48      5/16      6/24      7/32      9/04
        CHARMAP         0   EXTERNAL*       1/39 X    4/52
        CO.EL           0   EXTERNAL*       1/45 X    5/42
        CO.ET           0   EXTERNAL*       1/45 X   10/53
        CO.PW           0   EXTERNAL*       1/45 X    8/29
        CO.WPE          0   EXTERNAL*       1/45 X
        CO.WPL          0   EXTERNAL*       1/45 X    8/52
        CP.ERCT         0   EXTERNAL*       1/45 X   11/01
        CP.PW           0   EXTERNAL*       1/45 X
        DICT            0   EXTERNAL*       1/42 X    6/23
        DT.BIAS        65                   2/51 D    4/13      4/24      4/49      6/26      6/28
        EL=F            4   FTX            10/44
        ENOT=L          0   EXTERNAL*       1/45 X    8/13      9/20
        ERRORS          0   EXTERNAL*       1/51 X   10/42
        ERRTYP          0   EXTERNAL*       1/51 X    5/41      5/48
        ERR.C           0   EXTERNAL*       1/51 X    5/47
        ER.MOREM       40                   2/43 D
        ER.MOREP        5                   2/43 D    7/48
        ER.TYPL         5                   2/40 D    2/46      2/47      2/48      5/39
        ER.TYPP        23                   2/40 D    2/47      5/37
        ER.WORDL       11                   2/42 D    2/45      6/18      6/22
        ER.XITL        22                   2/41 D    2/49
        ER.XITP         1                   2/41 D
        E=TOTAL         0   EXTERNAL*       1/51 X   10/43
        FILL.           0   EXTERNAL*       1/42 X    4/04      5/25 S
        LDB             0   EXTERNAL*       1/48 X    8/24
        LINEBUF         0   EXTERNAL*       1/51 X    6/04 S    8/26      8/37      8/41
        L.FILL          0   EXTERNAL*       1/42 X    4/01
        L.IOBUF6     2003   FTX             2/10
        MAX.BLK       764   FTX             2/11
        MAX.BUFL   360000   FTX             2/12
        MAX.CL      77777   FTX             2/20
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    21
        SYMBOLIC REFERENCE TABLE. 
  
        MAX.DIM         7   FTX             2/13
        MAX.LFN         7   FTX             2/16
        MAX.PARG       61   FTX             2/15
        MAX.RECL   377777   FTX             2/17
        MAX.SARG      764   FTX             2/14
        MAX.SPAN       27   FTX             2/22
        MAX.SPCM   377777   FTX             2/23
        MAX.SPLC  3777770   FTX             2/24
        MDERR5          3   PROGRAM*        3/22 L    3/27
        MDERR=          4   PROGRAM*        3/24 L    3/24 E
        MDER.SW         5   PROGRAM*        3/25 L    3/25 E
        MVE=            0   EXTERNAL*       1/55 X    8/37
        NOR.RECL      211   FTX             2/18
        N.ERREST        6                   2/38 D    8/01
        N.ERRT          0   EXTERNAL*       1/51 X    5/53
        N.ER1ST         4                   2/37 D    6/14
        PASS            0   EXTERNAL*       1/51 X    8/21
        PASS=FE         0   FTX             8/23
        PDM           173   PROGRAM*        3/07      3/22     10/13 L   10/13 E
        PDM1          177   PROGRAM*        9/40     10/21 L
        PEM            42   PROGRAM*        5/31 L    5/31 E
        PEMA          167   PROGRAM*        5/36 S    7/50      9/35      9/44 L
        PEMB          171   PROGRAM*        8/12 S    9/27      9/46 L
        PEMC          172   PROGRAM*        8/17 S    9/21      9/47 L
        PEMS            6   PROGRAM*        3/55 L    3/55 E
        PEMS1          10   PROGRAM*        4/04 L    4/33
        PEMS3          15   PROGRAM*        4/17 L    4/21
        PEMS4          17   PROGRAM*        4/15      4/23 L
        PEMS5          21   PROGRAM*        4/09      4/19      4/30 L
        PEMV           23   PROGRAM*        4/44 L    4/44 E
        PEMV10         34   PROGRAM*        4/55      5/02      5/10 L
        PEMV20         35   PROGRAM*        5/13 L    5/20
        PEMV30         40   PROGRAM*        5/15      5/22 L
        PEM1           43   PROGRAM*        4/34      5/26      5/34 L
        PEM30          60   PROGRAM*        6/18 L    7/44      8/03
        PEM33          66   PROGRAM*        6/29      6/33 L
        PEM35          67   PROGRAM*        6/27      6/31      6/36 L
        PEM40          72   PROGRAM*        6/50 L    7/22
        PEM45          76   PROGRAM*        6/46      7/09 L
        PEM50         102   PROGRAM*        7/03      7/26 L
        PEM55         106   PROGRAM*        7/29      7/36 L
        PEM60         110   PROGRAM*        7/05      7/34      7/42 L
        PEM65         117   PROGRAM*        6/21      7/49      8/07 L
        PEM66         124   PROGRAM*        8/21 L    9/30
        PEM67         126   PROGRAM*        8/22      8/26 L
        PEM68         136   PROGRAM*        8/35      8/41 L
        PEM69         147   PROGRAM*        9/07 L    9/12      9/14
        PEM70         153   PROGRAM*        9/09      9/16 L
        PEM71         154   PROGRAM*        8/32      8/56      9/18 L
        PEM72         162   PROGRAM*        5/57      9/25      9/26      9/34 L
        PWBUF           0   EXTERNAL*       1/51 X    8/37      8/37      8/39
  U     QUAL$                              12/06 F   19/46 F
        RSR=          267   PROGRAM*        9/41     10/22     19/49 D
        SFN             0   EXTERNAL*       1/55 X    8/08
        SVR=          244   PROGRAM*        3/56      4/45      5/32     10/14     19/48 D
        SV=A          224   PROGRAM*       19/53 D
        SV=B          214   PROGRAM*        9/39 S   10/15     19/52 D
1       PEM - PRINT ERROR MESSAGES.                                   COMPASS 3.7-871.     24/05/02. 13.13.57.      PAGE    22
        SYMBOLIC REFERENCE TABLE. 
  
        SV=X          234   PROGRAM*       19/54 D
        TB.SHCL        22   FTX             5/05
        TB.SHCP        52   FTX             5/04
        T.CON           0   EXTERNAL*       1/52 X    5/03
        UEC           201   PROGRAM*        9/34     10/40 L
        UECA          213   PROGRAM*        5/56 S   10/41     11/06 L
        UEC1          207   PROGRAM*       10/45     10/53 L
        WA.SYML        52   FTX             3/57
        WOF             0   EXTERNAL*       1/52 X    9/18
        WOF=ERR         0   EXTERNAL*       1/52 X    8/15 S    8/28      8/33      8/51      9/24 S
        WO.LOS          0   EXTERNAL*       1/52 X    9/19
        WO.QC           0   EXTERNAL*       1/52 X   10/51 S
  U     #SVR                               19/51 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMQSVR 
  
  
        RSR2          273   PROGRAM*       17/34 L   17/45
        RSR3          301   PROGRAM*       17/55 L   17/56
        RSR4          321   PROGRAM*       17/35     19/28 L
        RSR=          267   PROGRAM*       17/15 L   19/33     19/49
        SVA            10                  13/09 D   14/48 S   17/47     18/31     19/13     19/42
        SVB             0                  13/08 D   15/56 S   17/28     19/41
        SVREG         214   PROGRAM*       13/13 L   14/48 S   15/04     19/41     19/43
                                           14/46 S   14/51 S   17/24     19/42
        SVR2          250   PROGRAM*       14/32     14/36 L
        SVR=          244   PROGRAM*       13/43 L   16/55     19/48
        SVX            20                  13/10 D   14/46 S   14/51 S   18/22     18/32     19/43
        SV=A          224   PROGRAM*       19/42 D   19/53
        SV=B          214   PROGRAM*       19/41 D   19/52
        SV=X          234   PROGRAM*       19/43 D   19/54
  U     #SVR                               13/12 F   14/44 F   15/41 F   17/20 F   19/40 F
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      302              IDENT  ALLOC
                        302                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=ALLOC          0+           ADWT            12+           ALC.00         157+ 
                                        ADW              0+           ALC             16+           ALC.STF        160+ 
                                        ADW.ALC         10+           ALC.REG        155+           ALC.CAI        161+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        DLF       FILL.     MAX.FL    BINIO     PASS      T=ENT     T=STF     WTW=
                                        FEC=BY    FILL.2    MSG=      FAILSFT   REFIO     T=EQUS    T=STMT    T.END 
                                        FEC.RTN   ABTFTN    NOM.FL    GMC       SIZES     T=FILL    T=XFIL    TV=EXU
                                        STAGE     COD       PTO       IDENT     THRESH    T=FMT     T.PAR     TV=DECL 
                                        E.MO2     CO.SNAP   LDB       L.TABS    T=APL     T=GL      T.REF     ALC.PAR 
                                        E.MO4     CP.AFLS   LEXFLG    MTD       T=BLKS    T=LINK    T.STF     TV=CUR
                                        E.MO5     F.LGO     ALC=CNT   NAMES     T=BLST    T=NLST    WOF 
                                        E.MO6     F.OUT     MOVES     NREXT     T=CON     T=PAR     CIO=
                                        E.MO7     F.PB      PDM       N.TABLE   T=DATS    T=REF     FRA=
                                        E.TC1     F.REF     BASES     O.TABS    T=DIM     T=SCR     MVE=
  
  
  
  
                                                  IDENT  ALLOC                                                   ALLOC       2
                                         ALLOC    SECT   (TABLE ALLOCATION.)                                     ALLOC       3
  
  
  
  
  
                                        *         IN FAS/INIT21                                                  ALLOC       5
                                                  EXT    DLF                                                     ALLOC       6
                                                                                                                 ALLOC       7
                                        *         IN FEC                                                         ALLOC       8
                                                  EXT    FEC=BY,FEC.RTN,STAGE                                    ALLOC       9
                                                                                                                 ALLOC      10
                                        *         IN FERRS                                                       ALLOC      11
                                                  EXT    E.MO2,E.MO4,E.MO5,E.MO6,E.MO7,E.TC1,FILL.,FILL.2        ALLOC      12
                                                                                                                 ALLOC      13
                                        *         IN FTN                                                         ALLOC      14
                                                  EXT    ABTFTN,COD,CO.SNAP,CP.AFLS,F.LGO,F.OUT,F.PB,F.REF       ALLOC      15
                                                  EXT    MAX.FL,MSG=,NOM.FL                                      ALLOC      16
                                                                                                                 ALLOC      17
                                        *         IN IDP                                                         ALLOC      18
                                                  EXT    PTO                                                     ALLOC      19
                                                                                                                 FC50889     5
                                        *         IN LEX                                                         FC50889     6
                                                  EXT    LDB,LEXFLG                                              FC50889     7
                                                                                                                 ALLOC      20
                                        *         IN LISTLNK                                                     FC5A150   282
                                                  EXT    ALC=CNT,MOVES                                           FC5A150   283
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     2
                                                                      ALLOC 
  
                                                                                                                 FC5A150   284
                                        *         IN PEM                                                         ALLOC      21
                                                  EXT    PDM                                                     ALLOC      22
                                                                                                                 ALLOC      23
                                        *         IN PUC                                                         ALLOC      24
                                                  EXT    BASES,BINIO,FAILSFT,GMC,IDENT,L.TABS,MTD                FC5A150   285
                                                  EXT    NAMES,NREXT,N.TABLE,O.TABS,PASS,REFIO,SIZES,THRESH      ALLOC      26
                                                  EXT    T=APL,T=BLKS,T=BLST,T=CON,T=DATS,T=DIM,T=ENT,T=EQUS     ALLOC      27
                                                  EXT    T=FILL,T=FMT,T=GL,T=LINK,T=NLST,T=PAR,T=REF,T=SCR       ALLOC      28
                                                  EXT    T=STF,T=STMT,T=XFIL,T.PAR,T.REF,T.STF,WOF               FC50889     8
                                                                                                                 ALLOC      30
                                        *         IN UTILITY                                                     ALLOC      31
                                                  EXT    CIO=,FRA=,MVE=,WTW=                                     ALLOC      32
  
  
  
  
                                        **        ADW -  ADD ONE WORD TO END OF MANAGED TABLE.                   ALLOC      34
                                        *                                                                        ALLOC      35
                                        *         THE MACRO CALL *ADDWD* SHOULD ALWAYS BE USED.                  ALLOC      36
                                        *                                                                        ALLOC      37
                                        *         ENTRY  (X6) = DATUM.                                           ALLOC      38
                                        *                (A1) _ ORIGIN WORD OF TABLE.                            ALLOC      39
                                        *                                                                        ALLOC      40
                                        *         EXIT   (X1) = ORIGIN OF TABLE.                                 ALLOC      41
                                        *                (X2) = NEW LENGTH OF TABLE                              ALLOC      42
                                        *                (X3) = DATUM.                                           ALLOC      43
                                        *                (X6) = DATUM.                                           ALLOC      44
                                        *                (A1) _ ORIGIN WORD OF TABLE.                            ALLOC      45
                                        *                (A2) _ LENGTH WORD OF TABLE.                            ALLOC      46
                                        *                (A6) _ LWA OF TABLE, WHERE *DATUM* WAS JUST STORED.     ALLOC      47
                                        *                (B7) = LWA + 1 OF TABLE                                 ALLOC      48
                                        *                                                                        ALLOC      49
                                        *         USES   A1,A2,A3,A6,A7  B7  X0,X1,X2,X3,X6,X7                   ALLOC      50
                                        *                                                                        ALLOC      51
                                        *         CALLS  ALC                                                     ALLOC      52
                                                                                                                 ALLOC      53
                                                                                                                 ALLOC      54
             0  0400400000 +             ADW      SUBR   =           ...ENTRY/EXIT...                            ALLOC      55
             1  5021000000 X                      SA2    A1+N.TABLE  L(T), CURRENT SIZE                          FC5A112     4
                          54311                   =A3    A1+1        F(T+1), ORIGIN OF NEXT                      FC5A112     5
                               73221              =X2    X2+1        L(T)=L(T)+D, NEW SIZE                       FC5A112     6
             2  7271000001                        SX7    X1+FUDGE    F(T)+K                                      FC5A112     7
                          37037                   IX0    X3-X7       F(T+1)-(F(T)+K)                             FC5A112     8
                               10722              BX7    X2          (X7) = L(T)+D                               FC5A112     9
             3  36312                             IX3    X1+X2       F(T)+L(T)+D                                 FC5A112    10
                     37002                        IX0    X0-X2       F(T+1)-(F(T)+K+L(T)+D)                      FC5A112    11
                          63730                   SB7    X3          (B7) = LWA+1 OF TABLE                       FC5A112    12
             4  0330000006 +                      MI     X0,ADW10    IF CRASH                                    FC5A112    13
                          57671                   =A6    B7-1                                                    FC5A112    14
                               10366              BX3    X6                                                      FC5A112    15
             5  54720                             SA7    A2                                                      FC5A112    16
                     0400000000 +                 EQ     EXIT.                                                   FC5A112    17
                                                                                                                 FC5A112    18
             6                           ADW10    BSS    0                                                       FC5A112    19
             6  7100000001                        SX0    1                                                       ALLOC      56
                          5160000012 +            SA6    ADWT        SAVE DATUM                                  ALLOC      57
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     3
                                                                      ADW 
  
             7  0100000016 +                      RJ     ALC                                                     ALLOC      58
            10                           ADW.ALC  BSSENT 0           USED BY SNAP TO DETERMINE ALC CALLER        ALLOC      59
            10  5130000012 +                      SA3    ADWT                                                    ALLOC      60
                          10633                   BX6    X3                                                      ALLOC      61
                               57671              =A6    B7-1                                                    ALLOC      62
            11  0400000000 +                      EQ     EXIT.       EXIT...                                     ALLOC      63
                                                                                                                 ALLOC      64
            12                     4     ADWT     BSSENT 4           TEMPORARY SAVE CELLS FOR ADWT AND CALLERS   ALLOC      65
  
  
  
  
                                        **        ALC -  TABLE MANAGER AND ALLOCATOR.                            ALLOC      67
                                        *                                                                        ALLOC      68
                                        *         ALLOCATOR WILL MOVE TABLES TO ACQUIRE ROOM.  ALSO MAY DUMP     ALLOC      69
                                        *         PREBINARY OR CROSS-REFERENCES ONTO SCRATCH FILE.               ALLOC      70
                                        *         A MEMORY REQUEST WILL BE PERFORMED IF NECESSARY.               ALLOC      71
                                        *         THE MACRO CALL *ALLOC* SHOULD ALWAYS BE USED.                  ALLOC      72
                                        *         ALLOC WILL DIFFERENTIATE BETWEEN HIGH AND LOW ACTIVITY TABLES. FC5A128   133
                                        *         THE HIGH ACTIVITY TABLES WIIL RECIEVE 13/16 OF THE AVAILABLE   FC5A128   134
                                        *         SPACE.  THREE TABLE VECTORS CORRESPONDING TO THREE COMPILATION FC5A128   135
                                        *         PHASES INDICATE WHICH TABLES ARE ACTIVE (SEE PUC).  TV=CUR     FC5A128   136
                                        *         WILL ALWAYS CONTAIN THE TABLE VECTOR OF THE CURRENT PHASE.     FC5A128   137
                                        *                                                                        ALLOC      73
                                        *         STOLEN FROM *COMPASS VER 2.0*                                  ALLOC      74
                                        *                                                                        ALLOC      75
                                        *         ENTRY  (A1) _ ORIGIN WORD OF TABLE.                            ALLOC      76
                                        *                (X0) = CHANGE (+ OR -) TO TABLE SIZE.                   ALLOC      77
                                        *                                                                        ALLOC      78
                                        *         EXIT   (X1) = ORIGIN OF TABLE.                                 ALLOC      79
                                        *                (X2) = NEW LENGTH OF TABLE.                             ALLOC      80
                                        *                (A1) _ ORIGIN WORD OF TABLE.                            ALLOC      81
                                        *                (A2) _ LENGTH WORD OF TABLE.                            ALLOC      82
                                        *                (B7) = LWA + 1 OF TABLE                                 ALLOC      83
                                        *                                                                        ALLOC      84
                                        *         NOTE SPECIAL DEAL FOR REGISTER RELOCATION --                   ALLOC      85
                                        *                AT CERTAIN TIMES A PARTICULAR REGISTER MAY BE           ALLOC      86
                                        *                POINTING TO SOME TABLE, WHICH WE ARE ABOUT TO MOVE.     ALLOC      87
                                        *                TO AVOID THE EMBARASSMENT WHICH MIGHT OTHERWISE OCCUR,  ALLOC      88
                                        *                THE MANAGER WILL RELOCATE A REGISTER RELATIVE TO A      ALLOC      89
                                        *                DESIGNATED TABLE.  THIS IS INDICATED BY SETTING         ALLOC      90
                                        *                (ALC.REG) =  24/ 0,  18/ REG,  18/ TABLE                ALLOC      91
                                        *                    (REG) = ADDRESS OF CELL WHERE DESIRED REGISTER IS   ALLOC      92
                                        *                            SAVED BY *ALC*.                             ALLOC      93
                                        *                    (TAB) = ADDRESS OF TABLE ORIGIN WORD.               ALLOC      94
                                        *                THIS CAN ONLY BE DONE FOR A REGISTER WHICH IS SAVED AND ALLOC      95
                                        *                RESTORED BY THE MANAGER.                                ALLOC      96
                                        *                                                                        ALLOC      97
                                        *         COMMENTS WILL USE THE FOLLOWING CONVENTIONS -                  ALLOC      98
                                        *                                                                        ALLOC      99
                                        *                A = AMOUNT OF AVAILABLE (UNUSED) CORE.                  ALLOC     100
                                        *                F = FWA OF MANAGABLE STORAGE (O.TABS).                  ALLOC     101
                                        *                K = NUMBER OF UNUSED WORDS GUARANTEED BETWEEN           ALLOC     102
                                        *                      TABLES (FUDGE).                                   ALLOC     103
                                        *                N = NUMBER OF TABLES TO MANAGE (N.TABLE)-1              ALLOC     104
                                        *                NACT = NUMBER OF HIGH ACTIVITY TABLES.                  FC5A128   138
                                        *                S = SIZE OF MANAGABLE STORAGE (L.TABS).                 ALLOC     105
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     4
                                                                      ALC 
  
                                        *                                                                        ALLOC     106
                                        *                TWO VECTORS OF LENGTH N+1 (0.LE.I.LE.N-1) --            ALLOC     107
                                        *                F(I) = I-TH TABLE ORDINAL (SIZES)                       ALLOC     108
                                        *                L(I) = I-TH TABLE LENGTH (BASES)                        ALLOC     109
                                        *                F(N) = F+S                                              ALLOC     110
                                        *                L(N) = 0                                                ALLOC     111
                                        *                L = TOTAL LENGTH OF ALL TABLES (SUM L(I))               ALLOC     112
                                        *                LACT = LENGTH OF ACTIVE TABLES.                         FC5A128   139
                                        *                F(T), L(T) = REQUESTING TABLE ORIGIN AND LENGTH.        ALLOC     113
                                        *                D = NUMBER OF WORDS DEMANDED FOR L(T).                  ALLOC     114
                                        *                                                                        ALLOC     115
                                        *         USES   A1-A3,A6,A7  B7  X0-X3,X6,X7                            FC5A128   140
                                        *                                                                        ALLOC     117
                                        *         KEEPS  A0,A4,A5  B2-B6  X4,X5                                  ALLOC     118
                                        *                                                                        ALLOC     119
                                        *         CALLS  GMR, MTD, MOVE, PTS                                     ALLOC     120
                                                                                                                 ALLOC     121
                                                                                                                 ALLOC     122
            16  0400400016 +             ALC      SUBR   =           ...ENTRY/EXIT...                            ALLOC     123
                                                                                                                 ALLOC     124
                                         .T       IFEQ   TEST,ON                                                 ALLOC     125
                                                  SA2    ALC=CNT                                                 ALLOC     126
                                                  SX6    X2+B1                                                   ALLOC     127
                                                  SA6    A2                                                      ALLOC     128
                                        .T        ENDIF                                                          ALLOC     129
                                                                                                                 ALLOC     130
            17  5021000000 X                      SA2    A1+N.TABLE  L(T), CURRENT SIZE                          ALLOC     131
                          54311                   =A3    A1+1        F(T+1), ORIGIN OF NEXT                      ALLOC     132
                               36202              IX2    X0+X2       L(T)=L(T)+D, NEW SIZE                       ALLOC     133
            20  7261000001                        SX6    X1+FUDGE    F(T)+K                                      ALLOC     134
                          37736                   IX7    X3-X6       F(T+1)-(F(T)+K)                             ALLOC     135
                               10622              BX6    X2          (X6) = L(T)+D                               ALLOC     136
            21  36312                             IX3    X1+X2       F(T)+L(T)+D                                 ALLOC     137
                     54620                        SA6    A2          UPDATE L(T)                                 ALLOC     138
                          37772                   IX7    X7-X2       F(T+1)-(F(T)+K+L(T)+D)                      ALLOC     139
                               63730              SB7    X3          (B7) = LWA+1 OF TABLE                       ALLOC     140
                                                                                                                 ALLOC     141
                                                                                                                 ALLOC     142
                                        **               TABLES HAVE CRASHED WHEN --                             ALLOC     143
                                        *         F(T) + L(T) + D + K .GT. F(T+1)                                ALLOC     144
                                                                                                                 ALLOC     145
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     146
                                                  MI     X2,"BLOWUP" IF L(T) .LT. 0                              ALLOC     147
            22  0327000016 +                      PL     X7,EXIT.    IF NO CRASH, EXIT...                        ALLOC     148
                                                                                                                 ALLOC     149
                                                                                                                 ALLOC     150
                                        **        WE HAVE A CRASH AND MUST REALLOCATE -- PREPARE TO DO SO.       ALLOC     151
                                        *                SAVE REGISTERS.                                         ALLOC     152
                                                                                                                 ALLOC     153
                          37620                   IX6    X2-X0       L(T)=L(T)-D (BACK AGAIN)                    ALLOC     154
                               10755              BX7    X5                                                      ALLOC     155
            23  54620                             SA6    A2          RESTORE ORIGINAL SIZE, TEMPORARILY          ALLOC     156
                     22604                        LX6    X4                                                      ALLOC     157
                                        *                            (ALCA)                                      ALLOC     158
                          5170000154 +            SA7    ALCA+8      +8 = (X5)                                   ALLOC     159
            24  55671                             =A6    A7-1        +7 = (X4)                                   ALLOC     160
                     74750                        SX7    A5                                                      ALLOC     161
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     5
                                                                      ALC 
  
                          74640                   SX6    A4                                                      ALLOC     162
                               55761              =A7    A6-1        +6 = (A5)                                   ALLOC     163
            25  55671                             =A6    A7-1        +5 = (A4)                                   ALLOC     164
                     77760                        SX7    B6-B0                                                   ALLOC     165
                          77650                   SX6    B5-B0                                                   ALLOC     166
                               55761              =A7    A6-1        +4 = (B6)                                   ALLOC     167
            26  55671                             =A6    A7-1        +3 = (B5)                                   ALLOC     168
                     77740                        SX7    B4-B0                                                   ALLOC     169
                          77630                   SX6    B3-B0                                                   ALLOC     170
                               55761              =A7    A6-1        +2 = (B4)                                   ALLOC     171
            27  55671                             =A6    A7-1        +1 = (B3)                                   ALLOC     172
                     77720                        SX7    B2-B0                                                   ALLOC     173
                          6120000000 X            SB2    BASES                                                   ALLOC     174
            30  65212                             SB2    A1-B2                                                   ALLOC     175
                     55761                        =A7    A6-1        +0 = (B2)                                   ALLOC     176
                                                                                                                 ALLOC     177
                                        **        SAVE THE BASE ADDRESS OF THE TABLE DESIGNATED BY (ALC.REG) FOR ALLOC     178
                                        *                THE *RELATIVE-REGISTER* FEATURE.                        ALLOC     179
                                                                                                                 ALLOC     180
                          5120000155 +            SA2    ALC.REG                                                 ALLOC     181
            31  53120                             SA1    X2          FETCH OLD BASE                              ALLOC     182
                     10611                        BX6    X1                                                      ALLOC     183
                          54621                   =A6    A2+1                                                    ALLOC     184
                                                                                                                 ALLOC     185
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     186
                                                  CALL   PTS         PRINT TABLE STATISTICS                      ALLOC     187
                                                                                                                 ALLOC     188
                                                                                                                 ALLOC     189
                                        **        COMPUTE --                                                     ALLOC     190
                                        *                (L) = SPACE CURRENTLY OCCUPIED BY TABLES.               ALLOC     191
                                        *                    = SIGMA(0.LT. I .LT. N, L(I)) + D                   FC5A158A  295
                                        *                (LACT) =LENGTH OF HIGH ACTIVITY TABLES(+ D,IF T ACTIVE) FC5A128   142
                                        *                (A) = ALLOCATABLE SPACE CURRENTLY UNNEEDED.             ALLOC     193
                                        *                    = S - N*K - (L + D) - 168                           FC5A128   143
                                        *                      168 IS ADDITIONAL SLOP ALLOCATED FOR TB           FC5A128   144
                                                                                                                 FC5A128   145
            32  5120000000 X             ALC10    SA2    =XTV=CUR    TV */TABLE VECTOR,=1 IF ACTIVE              FC5A128   146
                          76310                   SX3    B1                                                      FC5A128   147
                               43700              MX7    0                                                       FC5A128   148
            33  22323                             LX3    B2,X3       (X3) = TV MASK FOR BIT POSITION T           FC5A128   149
                     11123                        BX1    X2*X3                                                   FC5A128   150
                          0301000035 +            ZR     X1,ALC14    IF T NOT ACTIVE                             FC5A128   151
            34  10700                             BX7    X0          LACT = D                                    FC5A128   152
                                                                                                                 FC5A128   153
            35  22300                    ALC14    LX3    X0          L = D                                       FC5A128   154
                     6150000073                   SB5    59                                                      FC5A128   155
            36  6170777776 X                      SB7    N.TABLE-1   I=N,NUMBER OF TABLES                        FC5A128   156
                          67457                   SB4    B5-B7                                                   FC5A128   157
                               22242              LX2    B4,X2       LEFT SHIFT 59-N                             FC5A128   158
                                                                                                                 FC5A128   159
            37  5117000000 X             ALC20    SA1    SIZES+B7    = L(I)                                      FC5A128   160
                          67771                   SB7    B7-B1       I = I - 1                                   FC5A128   161
                               36331              IX3    X3+X1       L = L + L(I)                                FC5A128   162
            40  0322000041 +                      PL     X2,ALC22    IF I NOT ACTIVE                             FC5A128   163
                          36771                   IX7    X7+X1       LACT = LACT + L(I)                          FC5A128   164
                                                                                                                 FC5A128   165
            41  20201                    ALC22    LX2    1                                                       FC5A128   166
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     6
                                                                      ALC 
  
                     0670000037 +                 PL     B7,ALC20    LOOP FOR ALL TABLES                         FC5A128   167
                                                                                                                 FC5A128   168
            42  5120000000 X                      SA2    L.TABS      = S                                         FC5A128   169
                          63370                   SB3    X7          (B3) = LACT                                 FC5A128   170
            43  7273000247 X                      SX7    X3+N.TABLE*FUDGE-FUDGE+84+84  +2 STATEMENTS OF TB SLOP  FC5A128   171
                          37627                   IX6    X2-X7       (X6) = A = S - N*K - (L+D) - 168            FC5A128   172
                               63430              SB4    X3          (B4) = L                                    FC5A128   173
                                                                                                                 ALLOC     207
                                        *         RESERVE SPACE FOR MINIMUM ALLOCATION OF T.PAR .                ALLOC     208
                                                                                                                 ALLOC     209
            44  43700                             MX7    0                                                       ALLOC     210
                     6150000000 X                 SB5    SIZES                                                   FC5A128   174
            45  5120000000 X                      SA2    T=PAR                                                   ALLOC     211
                          5130000000 X            SA3    =XALC.PAR                                               FC5A128   175
            46  37223                             IX2    X2-X3                                                   FC5A128   176
                     65525                        SB5    A2-B5       (B5) = INDEX FOR PAR                        FC5A128   177
                          0322000050 +            PL     X2,ALC26    IF T=PAR GT ALCPAR                          FC5A128   178
            47  14722                             BX7    -X2                                                     ALLOC     214
                                                                                                                 ALLOC     215
            50  5120000000 X             ALC26    SA2    THRESH                                                  FC5A128   179
                          36227                   IX2    X2+X7       RESERVED FOR T.PAR MIN                      ALLOC     217
            51  5170000301 +                      SA7    =SALCB                                                  ALLOC     218
                          37162                   IX1    X6-X2       SUBTRACT THRESHOLD AMOUNT                   ALLOC     219
            52  0321000054 +                      PL     X1,ALC30    IF ENOUGH ROOM FOR TABLE                    ALLOC     220
                                                                                                                 ALLOC     221
                          0100000166 +            RJ     GMR         GET MORE ROOM                               ALLOC     222
            53  0400000032 +                      EQ     ALC10       CHECK IF ENOUGH NOW                         ALLOC     223
                                                                                                                 ALLOC     224
                                        *                ADJUST L,LACT,AND A FOR T.PAR ADJUSTMENT                FC5A128   180
                                                                                                                 FC5A128   181
            54  5120000000 X             ALC30    SA2    =XTV=CUR                                                FC5A128   182
                          76110                   SX1    B1                                                      FC5A128   183
                               63474              SB4    B4+X7       L = L + P                                   FC5A128   184
            55  22151                             LX1    B5,X1                                                   FC5A128   185
                     37667                        IX6    X6-X7       A = A - P                                   FC5A128   186
                          11312                   BX3    X1*X2                                                   FC5A128   187
            56  0303000057 +                      ZR     X3,ALC32    IF PAR NOT ACTIVE                           FC5A128   188
                          63373                   SB3    B3+X7       LACT = LACT + P                             FC5A128   189
                                                                                                                 FC5A128   190
                                        *         PARTITION AVAILABLE SPACE BETWEEN ACTIVE AND INACTIVE TABLES.  FC5A128   191
                                        *                AA = A * 13/16    */AVAILABLE SPACE FOR ACTIVE TABLES   FC5A128   192
                                        *                AI = A * 3/16     */AVAILABLE SPACE FOR INACTIVE TABS   FC5A128   193
                                                                                                                 FC5A128   194
            57  10366                    ALC32    BX3    X6                                                      FC5A128   195
                     21303                        AX3    3                                                       FC5A128   196
                          23113                   AX1    B1,X3                                                   FC5A128   197
                               36113              IX1    X1+X3       (X1) = AI = 3/16 * A                        FC5A128   198
            60  37661                             IX6    X6-X1       (X6) = AA = 13/16 * A                       FC5A128   199
                                                                                                                 FC5A128   200
                                        *         SLOP SPACE ALLOCATED TO A TABLE IS EQUALLY DEPENDENT ON TWO    FC5A128   201
                                        *         FACTORS, D1 AND D2.  FOR A GIVEN PERCENTAGE OF AVAILABLE       FC5A128   202
                                        *         MEMORY AM, D1 IS A FUNCTION OF THE TOTAL NUMBER OF TABLES THAT FC5A128   203
                                        *         SHARE AM.  WHILE D2 IS A FUNCTION OF THE RELATIVE LENGTHS OF   FC5A128   204
                                        *         OF THE TABLES THAT SHARE AM.  THEREFORE HALF OF AM IS EQUALLY  FC5A128   205
                                        *         SHARED BETWEEN ALL TABLES ACCORDING TO D1, AND  THE OTHER HALF FC5A128   206
                                        *         OF AM IS SHARED ACCORDING TO THE RELATIVE LENGTHS OF THE       FC5A128   207
                                        *         TABLES BY D2, THE LARGER RECIEVING THE MOST OF AM.             FC5A128   208
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     7
                                                                      ALC 
  
                                                                                                                 FC5A128   209
                                        *         CALCULATE D1 AND D2 FOR ACTIVE TABLES.                         FC5A128   210
                                        *         IF LACT = 0        D1 = AA * 1/NAT                             FC5A128   211
                                        *                            D2 = 0                                      FC5A128   212
                                        *         OTHERWISE          D1 = AA * 1/2 * 1/NAT                       FC5A128   213
                                        *                            D2 = AA * 1/2 * 1/LACT                      FC5A128   214
                                                                                                                 FC5A128   215
                     47322                        CX3    X2          = NAT                                       FC5A128   216
                          0430000066 +            ZR     B3,ALC33    IF LACT = 0                                 FC5A128   217
            61  21601                             AX6    1                                                       FC5A128   218
                     27606                        IX7    X6/X3                                                   FC5A128   219
            63  76530                             SX5    B3                                                      FC5A128   220
                     5170000163 +                 SA7    ALCD1+1     D1 = AA * 1/2 * 1/NAT                       FC5A128   221
                               27505              PX5    X5                                                      FC5A128   222
            64  24505                             NX5    X5                                                      FC5A128   223
                     44765                        FX7    X6/X5                                                   FC5A128   224
                          5170000165 +            SA7    ALCD2+1     D2 = AA * 1/2 * 1/LACT                      FC5A128   225
            65  0400000072 +                      EQ     ALC36                                                   FC5A128   226
                                                                                                                 FC5A128   227
            66  27606                    ALC33    IX7    X6/X3                                                   FC5A128   228
                               43600              MX6    0                                                       FC5A128   229
            70  5170000163 +                      SA7    ALCD1+1     D1 = AA * 1/NAT                             FC5A128   230
                          27606                   PX6    X6                                                      FC5A128   231
            71  5160000165 +                      SA6    ALCD2+1     D2 = 0                                      FC5A128   232
                                                                                                                 FC5A128   233
                                        *         CALCULATE D1 AND D2 FOR INACTIVE TABLES.                       FC5A128   234
                                        *         IF L - LACT = 0    D1 = AI * 1/(N-NAT)                         FC5A128   235
                                        *                            D2 = 0                                      FC5A128   236
                                        *         OTHERWISE          D1 = AI * 1/2 * 1/(N-NAT)                   FC5A128   237
                                        *                            D2 = AI * 1/2 * 1/(L-LACT)                  FC5A128   238
                                                                                                                 FC5A128   239
            72  7170777776 X             ALC36    SX7    N.TABLE-1                                               FC5A128   240
                          47322                   CX3    X2                                                      FC5A128   241
                               77543              SX5    B4-B3       = L - LACT                                  FC5A128   242
            73  37373                             IX3    X7-X3       N - NAT                                     FC5A128   243
                     0305000100 +                 ZR     X5,ALC37    IF L - LACT = 0                             FC5A128   244
                               21101              AX1    1                                                       FC5A128   245
            74  27101                             IX7    X1/X3                                                   FC5A128   246
                               27505              PX5    X5                                                      FC5A128   247
            76  5170000162 +                      SA7    ALCD1       D1 = AI * 1/2 * 1/(N-NAT)                   FC5A128   248
                          24505                   NX5    X5                                                      FC5A128   249
                               44715              FX7    X1/X5                                                   FC5A128   250
            77  5170000164 +                      SA7    ALCD2       D2 = AI * 1/2 * 1/(L-LACT)                  FC5A128   251
                          0400000104 +            EQ     ALC38                                                   FC5A128   252
                                                                                                                 FC5A128   253
           100  43600                    ALC37    MX6    0                                                       FC5A128   254
                     27101                        IX7    X1/X3                                                   FC5A128   255
           102  27606                             PX6    X6                                                      FC5A128   256
                     5170000162 +                 SA7    ALCD1       D1 = AI * 1/(N-NAT)                         FC5A128   257
           103  5160000164 +                      SA6    ALCD2       D2 = 0                                      FC5A128   258
                                                                                                                 FC5A128   259
                                        **               PACK ALL TABLES DOWN TO BOTTOM OF TABLE SPACE           FC5A128   260
                                                                                                                 FC5A128   261
           104  63600                    ALC38    SB6    X0          (B6) = D, DEMANDED CHANGE                   FC5A128   262
                     5120000000 X                 SA2    O.TABS                                                  ALLOC     232
                               10022              BX0    X2                                                      ALLOC     233
           105  0100000000 X                      RJ     MTD         MOVE TABLES DOWN TO LOW CORE                ALLOC     234
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     8
                                                                      ALC 
  
           106  5132000000 X                      SA3    B2+SIZES    (X3) = L(T), REQUESTING TABLE SIZE          ALLOC     235
                          73636                   SX6    X3+B6       L(T)=L(T)+D                                 ALLOC     236
                               54630              SA6    A3          UPDATE L(T)                                 ALLOC     237
           107  5110000000 X                      SA1    T=PAR                                                   ALLOC     238
                          5120000301 +            SA2    ALCB                                                    ALLOC     239
           110  36612                             IX6    X1+X2                                                   ALLOC     240
                     54610                        SA6    A1          ALLOCATE MIN FOR T.PAR                      ALLOC     241
                          5110000000 X            SA1    O.TABS                                                  ALLOC     242
           111  5120000000 X                      SA2    L.TABS                                                  ALLOC     243
                          36512                   IX5    X1+X2       (X5) = F+S, LWA+1 OF CORE                   ALLOC     244
           112  6130777776 X                      SB3    N.TABLE-1                                               ALLOC     245
                                                                                                                 ALLOC     246
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     247
                                                  ZR     B4,"BLOWUP" IF NO LENGTH                                ALLOC     248
                                                                                                                 ALLOC     249
                                                                                                                 ALLOC     250
                                        **        REALLOCATE AND MOVE TABLE (I) TO ITS NEW POSITION.             ALLOC     251
                                        *                --  N .GT. I .GT. 0   --                                ALLOC     252
                                        *                F(I) = F(I+1) - L(I) - D1 - D2 * L(I) - FUDGE           FC5A128   263
                                                                                                                 FC5A128   264
                          5130000000 X            SA3    =XTV=CUR                                                FC5A128   265
           113  6150000075                        SB5    61                                                      FC5A128   266
                          67453                   SB4    B5-B3                                                   FC5A128   267
                               22043              LX0    B4,X3       SHIFT 60-N+1                                FC5A128   268
                                                                                                                 FC5A128   269
                                                                                                                 ALLOC     256
           114  67331                    ALC40    SB3    B3-B1       DECREMENT TABLE POINTER                     ALLOC     257
                     5123000000 X                 SA2    B3+BASES    (X2) = F(I),  TABLE ORIGIN                  ALLOC     258
           115  5012000000 X                      SA1    A2+N.TABLE  (X1) = L(I)                                 ALLOC     260
                          76710                   SX7    B1                                                      FC5A128   270
                               11607              BX6    X0*X7       = 1 IF ACTIVE, = 0 IF INACTIVE              FC5A128   271
           116  5236000164 +                      SA3    ALCD2+X6    = D2                                        FC5A128   272
                          27101                   PX1    X1                                                      FC5A128   273
           117  5246000162 +                      SA4    ALCD1+X6                                                FC5A128   274
                          24101                   NX1    X1                                                      FC5A128   275
                               40731              FX7    X3*X1       = D2 * L(I)                                 FC5A128   276
           120  20001                             LX0    1           SHIFT VECTOR FOR NEXT ITERATION             FC5A128   277
                     26747                        UX7    B4,X7                                                   FC5A128   278
                          22747                   LX7    B4,X7                                                   FC5A128   279
                               36674              IX6    X7+X4       = D1 + D2 * L(I)                            FC5A128   280
           121  73661                             =X6    X6+FUDGE    = K, AMOUNT OF SLOP ABOVE THIS TABLE        ALLOC     269
                     37656                        IX6    X5-X6       = F(I+1) - (K + (A*L(I)/(L+D)/2) + (A/2/N)  ALLOC     270
                          26141                   UX1    B4,X1                                                   FC5A128   281
                               22141              LX1    B4,X1                                                   FC5A128   282
           122  37761                             IX7    X6-X1       F(I) = (X6) - L(I)                          ALLOC     272
                     10377                        BX3    X7                                                      ALLOC     273
                          54720                   SA7    A2          SET NEW ORIGIN                              ALLOC     274
                               22507              LX5    X7                                                      ALLOC     275
           123  0301000124 +                      ZR     X1,ALC50    IF EMPTY TABLE                              ALLOC     276
                          0100000000 X            MOVE   X1,X2,X3                                                ALLOC     277
           124  0531000114 +             ALC50    NE     B3,B1,ALC40 IF MORE TABLES TO ALLOCATE                  ALLOC     278
                                                                                                                 ALLOC     279
                                                                                                                 ALLOC     280
                                        **        SET THE LOWEST TABLE TO THE BEGINNING OF TABLE SPACE, TO       ALLOC     281
                                        *                RECLAIM THE SPACE LOST THRU TRUNCATION --               ALLOC     282
                                        *                F(0) = F = (LOCORE)                                     ALLOC     283
                                                                                                                 ALLOC     284
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE     9
                                                                      ALC 
  
                          5130000000 X            SA3    T=PAR                                                   ALLOC     285
           125  5120000301 +                      SA2    ALCB                                                    ALLOC     286
                          37632                   IX6    X3-X2       DEALLOCATE T.PAR FUDGE                      ALLOC     287
                               54630              SA6    A3                                                      ALLOC     288
           126  5130000000 X                      SA3    O.TABS                                                  ALLOC     289
                          5120000000 X            SA2    BASES       FETCH FWA                                   ALLOC     290
           127  5110000000 X                      SA1    SIZES       FETCH SIZE                                  ALLOC     291
                          22603                   LX6    X3                                                      ALLOC     292
                               13432              BX4    X3-X2                                                   ALLOC     293
           130  54620                             SA6    A2                                                      ALLOC     294
                     0304000132 +                 ZR     X4,ALC60    IF LOWEST TABLE NOT MOVED                   ALLOC     295
           131  0100000000 X                      MOVE   X1,X2,X3                                                ALLOC     296
                                                                                                                 ALLOC     297
                                                                                                                 ALLOC     298
                                        **        RESTORE THE BASE ADDRESS OF THE TABLE DESIGNATED BY (ALC.REG)  ALLOC     299
                                                                                                                 ALLOC     300
           132  5120000155 +             ALC60    SA2    ALC.REG                                                 ALLOC     301
                          54121                   =A1    A2+1        = OLD ORIGIN                                ALLOC     302
                               53320              SA3    X2          = NEW ORIGIN                                ALLOC     303
           133  21222                             AX2    18                                                      ALLOC     304
                     37631                        IX6    X3-X1       = DISPLACEMENT                              ALLOC     305
                          53220                   SA2    X2          = OLD REGISTER VALUE                        ALLOC     306
                               36626              IX6    X2+X6                                                   ALLOC     307
           134  54620                             SA6    A2          STORE NEW REGISTER VALUE                    ALLOC     308
                                                                                                                 ALLOC     309
                                         .TEST    IFEQ   TEST,ON                                                 ALLOC     310
                                                  SA1    CO.SNAP                                                 ALLOC     311
                                                  LX1    1RU                                                     ALLOC     312
                                                  PL     X1,ALC61    IF SNAP=U NOT SELECTED                      ALLOC     313
                                                  SA1    B2+NAMES                                                ALLOC     314
                                                  MX6    42                                                      ALLOC     315
                                                  BX6    X6*X1                                                   ALLOC     316
                                                  SA6    FILL.                                                   ALLOC     317
                                                  TRIV   E.TC1       ISSUE CRASH MESSAGE                         ALLOC     318
                                                                                                                 ALLOC     319
                                         ALC61    BSS    0                                                       ALLOC     320
                                         .TEST    ENDIF                                                          ALLOC     321
                                                                                                                 ALLOC     322
                     5112000000 X                 SA1    B2+BASES    RECLAIM F(T), TABLE ORIGIN WORD             ALLOC     323
                                                                                                                 ALLOC     324
                                        **        WE PROMISED TO PRESERVE MANY REGISTERS.  IT IS TIME TO RESTORE ALLOC     325
                                        *                THEM.                                                   ALLOC     326
                                                                                                                 ALLOC     327
                                        *                            (ALCA)                                      ALLOC     328
                                                                                                                 ALLOC     329
           135  5150000144 +                      SA5    ALCA        +0 = (B2)                                   ALLOC     330
                          63250                   SB2    X5                                                      ALLOC     331
                               54451              =A4    A5+1        +1 = (B3)                                   ALLOC     332
           136  63340                             SB3    X4                                                      ALLOC     333
                     54341                        =A3    A4+1        +2 = (B4)                                   ALLOC     334
                          63430                   SB4    X3                                                      ALLOC     335
                               54231              =A2    A3+1        +3 = (B5)                                   ALLOC     336
           137  63520                             SB5    X2                                                      ALLOC     337
                     54521                        =A5    A2+1        +4 = (B6)                                   ALLOC     338
                          63650                   SB6    X5                                                      ALLOC     339
                                                                                                                 ALLOC     340
                               54451              =A4    A5+1        +5 = (A4)                                   ALLOC     341
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    10
                                                                      ALC 
  
           140  54341                             =A3    A4+1        +6 = (A5)                                   ALLOC     342
                     54231                        =A2    A3+1        +7 = (X4)                                   ALLOC     343
                          53440                   SA4    X4                                                      ALLOC     344
                               53530              SA5    X3                                                      ALLOC     345
           141  54321                             =A3    A2+1        +8 = (X5)                                   ALLOC     346
                     10422                        BX4    X2                                                      ALLOC     347
                          22503                   LX5    X3                                                      ALLOC     348
                                                                                                                 ALLOC     349
           142  5021000000 X                      SA2    A1+N.TABLE  RECLAIM L(T), TABLE LENGTH WORD             ALLOC     350
                          36612                   IX6    X1+X2       F(T)+L(T)                                   ALLOC     351
                               63760              SB7    X6          (B7) = LWA + 1 OF TABLE                     ALLOC     352
           143  0400000016 +                      EQ     EXIT.       EXIT...                                     ALLOC     353
                                                                                                                 ALLOC     354
                                        *                            SAVE CELLS DURING TABLE MOVES --            ALLOC     355
           144                     1     ALCA     BSS    1           (B2)                                        ALLOC     356
           145                     1              BSS    1           (B3)                                        ALLOC     357
           146                     1     ALC=B4   BSS    1           (B4)                                        ALLOC     358
           147                     1     ALC=B5   BSS    1           (B5)                                        ALLOC     359
           150                     1              BSS    1           (B6)                                        ALLOC     360
           151                     1              BSS    1           (A4)                                        ALLOC     361
           152                     1     ALC=A5   BSS    1           (A5)                                        ALLOC     362
           153                     1              BSS    1           (X4)                                        ALLOC     363
           154                     1              BSS    1           (X5)                                        ALLOC     364
                                                                                                                 ALLOC     365
                                 143 +   ALC=00   EQU    ALCA-1      FAKE, USED TO NO-OP RELATIVE REGISTER       ALLOC     366
                                                                                                                 ALLOC     367
           155  00000000000143 +         ALC.REG  VFD    24/0,18/ALC=00,18/BASES                                 ALLOC     368
                              000000 X
                                                  ENTRY  ALC.REG                                                 ALLOC     369
           156                     1              BSS    1           SAVE CELL FOR ORIGIN OF RELATIVE TABLE      ALLOC     370
                                                                                                                 ALLOC     371
           157  00000000000143 +         ALC.00   VFD    24/0,18/ALC=00,18/BASES                                 ALLOC     372
                              000000 X
                                                  ENTRY  ALC.00                                                  ALLOC     373
           160  00000000000146 +         ALC.STF  VFD    24/0,18/ALC=B4,18/T.STF                                 ALLOC     374
                              000000 X
                                                  ENTRY  ALC.STF                                                 ALLOC     375
           161  00000000000146 +         ALC.CAI  VFD    24/0,18/ALC=B4,18/T.PAR                                 ALLOC     376
                              000000 X
                                                  ENTRY  ALC.CAI                                                 ALLOC     377
           162                     2     ALCD1    BSS    2           CELL FOR D1 (ACTIVE AND INACTIVE)           FC5A128   283
                                                                                                                 FC5A128   284
           164                     2     ALCD2    BSS    2           CELL FOR D2 (ACTIVE AND INACTIVE)           FC5A128   285
  
  
  
  
                                        **        GMR - GET MORE ROOM.                                           ALLOC     379
                                        *                                                                        ALLOC     380
                                        *         CORE OVERFLOW -- IT BECOMES NECESSARY (OR DESIRABLE) TO SPILL  ALLOC     381
                                        *         TO DISK OR ASK FOR MORE CORE.  IF FIELD LENGTH IS GREATER      ALLOC     382
                                        *         THAN NOMINAL FIELD LENGTH WE WILL SPILL TO DISK.  IF NOT       ALLOC     383
                                        *         OR IF WE ALREADY SPILLED WE GET MORE CORE.                     ALLOC     384
                                        *                                                                        ALLOC     385
                                        *         ENTRY  (X1) = -(AMOUNT OF CORE NEEDED) INCLUDING THRESHOLD     ALLOC     386
                                        *                                                                        ALLOC     387
                                        *         KEEPS  B2, X0                                                  ALLOC     388
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    11
                                                                      GMR 
  
                                        *                                                                        ALLOC     389
                                        *         CALLS  DLF, GMC, NOTE, OPEN, READ, REWIND, WRITER, WRITEW      ALLOC     390
                                                                                                                 ALLOC     391
                                                                                                                 ALLOC     392
           166  0400400166 +             GMR      SUBR   ...ENTRY/EXIT...                                        ALLOC     393
           167  76620                             SX6    B2          SAVE ENTRY CALL VALUES                      ALLOC     394
                     10700                        BX7    X0                                                      ALLOC     395
                          5160000273 +            SA6    GMRA        REQUESTING TABLE ORIGIN WORD ORDINAL        ALLOC     396
           170  54761                             =A7    A6+1        CHANGE TO TABLE SIZE                        ALLOC     397
                     10611                        BX6    X1                                                      ALLOC     398
                          54671                   =A6    A7+1        -(AMOUNT OF CORE REQUIRED) INCLUDES THRESH  ALLOC     399
                                                                                                                 ALLOC     400
                                        *         IF WE ARE IN END PROCESSING (ASSEMBLY PHASE) TRY DUMPING       ALLOC     401
                                        *         THE LINK AND FILL TABLES.                                      ALLOC     402
                                                                                                                 ALLOC     403
           171  5110000000 X                      SA1    PASS                                                    ALLOC     404
                          5120000000 X            SA2    T=LINK                                                  ALLOC     405
           172  6221777772                        =B2    X1-PASS=FAS                                             ALLOC     406
                          5130000000 X            SA3    T=FILL                                                  ALLOC     407
           173  0520000201 +                      NZ     B2,GMR20    IF NOT IN ASSEMBLY PHASE                    ALLOC     408
                                                                                                                 ALLOC     409
                          5110000000 X            SA1    NREXT                                                   ALLOC     410
           174  36023                             IX0    X2+X3                                                   ALLOC     411
                     37701                        IX7    X0-X1                                                   ALLOC     412
                          5130000000 X            SA3    T=XFIL                                                  ALLOC     413
           175  36773                             IX7    X7+X3                                                   ALLOC     414
                     6277777775                   SB7    X7-2                                                    ALLOC     415
           176  0607000201 +                      LE     B7,GMR20    IF NO ROOM TO BUY                           ALLOC     416
                                                                                                                 ALLOC     417
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                ALLOC     418
                                                  SA1    CO.SNAP                                                 ALLOC     419
                                                  LX1    1RT                                                     ALLOC     420
                                                  PL     X1,GMR10    IF NO TABLE SNAP REQUESTED                  ALLOC     421
                                                  TRIV   E.MO7       LINK AND FILL DUMPED                        ALLOC     422
                                         .TEST    ENDIF                                                          ALLOC     423
                                                                                                                 ALLOC     424
           177  0100000000 X             GMR10    CALL   DLF         DUMP LINK AND FILL                          ALLOC     425
           200  0400000227 +                      EQ     GMR80       TRY AGAIN...                                ALLOC     426
                                                                                                                 ALLOC     427
                                                                                                                 ALLOC     428
                                        **        NO HELP ON LINK/FILL.  TRY TO OVERFLOW PREBINARY.              ALLOC     429
                                        *                IF IN MAP PROCESSING, WE ARE AT THE END OF OUR ROPE.    ALLOC     430
                                                                                                                 ALLOC     431
           201  5140000000 X             GMR20    SA4    NOM.FL                                                  FC5A132    47
                          5130000000 X            SA3    CP.AFLS     TOTAL FIELD LENGTH                          FC5A132    48
           202  7160002000                        SX6    INC.LTN     FIELD LENGTH INCREMENT WHEN FL .LT. NOMINAL FC5A132    49
                          37243                   IX2    X4-X3                                                   FC5A132    50
           203  0322000204 +                      PL     X2,GMR30    IF FL .LT. NOMINAL                          FC5A132    51
                          7160004000              SX6    INC.GTN     FIELD LENGTH INCREMENT WHEN FL .GT. NOMINAL FC5A132    52
                                                                                                                 FC5A132    53
           204  67701                    GMR30    =B7    PASS=MAP-PASS=FAS                                       FC5A132    54
                     0472000222 +                 EQ     B7,B2,GMR70 IF IN REF MAP PASS, GET MORE CORE           FC5A132    55
           205  5120000000 X                      SA2    T=REF                                                   FC5A132    56
                          5110000275 +            SA1    GMRA+2      (X1) = - (AMOUNT NEEDED)                    ALLOC     445
           206  36221                             IX2    X2+X1                                                   ALLOC     446
                     0332000222 +                 MI     X2,GMR70    IF NO ROOM TO BUY                           ALLOC     447
                                                                                                                 ALLOC     448
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    12
                                                                      GMR 
  
           207  5110000000 X                      SA1    REFIO                                                   ALLOC     449
                          0331000222 +            MI     X1,GMR70    IF REFS ALREADY SPILLED                     ALLOC     450
           210  43773                             MX7    -1                                                      ALLOC     451
                     54710                        SA7    A1          INDICATE (T.REF) ON DISK                    ALLOC     452
                          76300                   INATAB REF,(DECL,EXU,CUR)      DEACTIVATE REF                  FC5A128   286
                                                                                                                 ALLOC     453
                                         .RM      IFEQ   CP#RM,7,1   IF 7RM I/O                                  ALLOC     454
                                                  OPEN   F.REF                                                   ALLOC     455
                                                                                                                 ALLOC     456
           216  5130000000 X             GMR60    SA3    T=REF                                                   ALLOC     457
                          5110000000 X            SA1    T.REF                                                   ALLOC     458
           217  13666                             SHRINK A3                                                      ALLOC     459
                          63610                   WRITEW F.REF,X1,X3                                             ALLOC     460
                                                                                                                 ALLOC     461
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     462
                                                  TRIV   E.MO5       CROSS REFERENCE GOES TO DISK                ALLOC     463
                                                                                                                 ALLOC     464
           221  0400000227 +                      EQ     GMR80       TRY AGAIN...                                ALLOC     465
                                                                                                                 ALLOC     466
                                                                                                                 ALLOC     467
                                        **        WE NEED MORE CORE.                                             ALLOC     468
                                                                                                                 ALLOC     469
           222  0100000000 X             GMR70    RJ     GMC         GET MORE CORE                               ALLOC     470
           223  0470000231 +                      ZR     B7,GMR90    IF REQUEST FAILED                           ALLOC     471
                                                                                                                 ALLOC     472
                          5110000000 X            SA1    O.TABS      BEGINNING OF TABLES                         ALLOC     473
           224  5160000000 X                      SA6    =XT.END                                                 FC5A128   287
                          37661                   IX6    X6-X1                                                   ALLOC     474
           225  5160000000 X                      SA6    L.TABS      AMOUNT OF CORE TO BE MANAGED                ALLOC     475
                          21604                   AX6    FLSLOP                                                  ALLOC     476
           226  7266001400                        SX6    X6+FLSLUP2                                              FC5A128   288
                          5160000000 X            SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                  ALLOC     478
                                                                                                                 ALLOC     479
                                                                                                                 ALLOC     480
                                        **        SOMETHING WAS SUCCESSFULLY DUMPED --                           ALLOC     481
                                        *                RETRIEVE ENTRY VALUES AND TRY AGAIN.                    ALLOC     482
                                                                                                                 ALLOC     483
           227  5130000274 +             GMR80    SA3    GMRA+1      RESTORE TABLE SIZE                          ALLOC     484
                          55231                   =A2    A3-1        AND ORDINAL                                 ALLOC     485
                               10033              BX0    X3                                                      ALLOC     486
           230  63220                             SB2    X2                                                      ALLOC     487
                     0400000166 +                 EQ     EXIT.       EXIT...                                     ALLOC     488
                                                                                                                 ALLOC     489
                                                                                                                 ALLOC     490
                                        **        IT WAS ALL TO NO AVAIL.  REPORT FAILURE AND ABORT.             ALLOC     491
                                                                                                                 ALLOC     492
           231  5110000275 +             GMR90    SA1    GMRA+2      -(AMOUNT NEEDED)                            ALLOC     493
                          5120000000 X            SA2    THRESH                                                  ALLOC     494
           232  36121                             IX1    X2+X1                                                   ALLOC     495
                     0331000234 +                 MI     X1,GMR92    IF NOT THRESHOLD ALARM                      ALLOC     496
                                                                                                                 ALLOC     497
                                         .TEST    IFEQ   TEST,ON,1   IF TEST MODE                                ALLOC     498
                                                  CALL   PTA         PRINT THRESHOLD ALARM                       ALLOC     499
                                                                                                                 ALLOC     500
                               43600              MX6    0                                                       ALLOC     501
           233  5160000000 X                      SA6    THRESH      ALLOW USE OF THRESH AREA                    ALLOC     502
                          0400000227 +            EQ     GMR80                                                   FC50007     6
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    13
                                                                      GMR 
  
                                                                                                                 ALLOC     504
           234  5120000000 X             GMR92    SA2    FAILSFT                                                 ALLOC     505
                          0312000260 +            NZ     X2,GMR94    IF ALREADY HAD OVERFLOW                     ALLOC     506
           235  5110000000 X                      SA1    PASS                                                    FC50889     9
                          0311000243 +            NZ     X1,GMR93    IF NOT FRONT END PROCESSING                 FC50889    10
                                   0              ERRNZ  PASS=FE                                                 FC50889    11
           236  5110000000 X                      SA1    LEXFLG                                                  FC50889    12
                                                  HX1    LF.HDR                                                  FC50889    13
                          0321000243 +            PL     X1,GMR93    IF NOT HEADER DELAY                         FC50889    14
           237  5110000000 X                      SA1    T=STMT                                                  FC50889    15
                          0301000243 +            ZR     X1,GMR93    IF NOTHING TO TRASH                         FC50889    16
           240  0100000000 X                      CALL   LDB         LIST THE DEFFERED BUFFER                    FC50889    17
           241  76600                             SHRINK T=STMT,0                                                FC50889    18
           242  0400000227 +                      EQ     GMR80                                                   FC50889    19
                                                                                                                 ALLOC     507
           243  13666                    GMR93    BX6    0                                                       FC50889    20
                     73721                        =X7    X2+1                                                    ALLOC     509
                          5160000000 X            SHRINK T=STF,X6                                                ALLOC     510
           244  54720                             SA7    A2          SET FAILSOFT FLAG                           ALLOC     511
                     5160000000 X                 SHRINK T=DIM,X6                                                ALLOC     512
           245  5160000000 X                      SHRINK T=SCR,X6                                                ALLOC     513
                          5160000000 X            SHRINK T=CON,X6                                                ALLOC     514
           246  5160000000 X                      SHRINK T=BLST,X6                                               ALLOC     515
                          5160000000 X            SHRINK T=EQUS,X6                                               ALLOC     516
           247  5160000000 X                      SHRINK T=FMT,X6                                                ALLOC     517
                          5160000000 X            SHRINK T=PAR,X6                                                ALLOC     518
           250  5160000000 X                      SHRINK T=NLST,X6                                               ALLOC     519
                          5160000000 X            SHRINK T=APL,X6                                                ALLOC     520
           251  5160000000 X                      SHRINK T=GL,X6                                                 ALLOC     521
                          5160000000 X            SHRINK T=DATS,X6                                               ALLOC     522
           252  5160000000 X                      SHRINK T=REF,X6                                                ALLOC     523
                          7170000000 X            =X7    FEC=BY                                                  ALLOC     524
           253  5160000000 X                      SHRINK T=BLKS,X6                                               ALLOC     525
                          5160000000 X            SHRINK T=ENT,X6                                                ALLOC     526
           254  5170000000 X                      SA7    STAGE       BYPASS REST OF PROGRAM                      ALLOC     527
                          6170000000 X            FATAL  E.MO2                                                   ALLOC     528
           256  5110000000 X                      SA1    PASS                                                    ALLOC     529
                          7211777774              SX1    X1-PASS=END                                             ALLOC     530
           257  0331000000 X                      MI     X1,FEC.RTN  IF NOT IN END OR MAP PROCESSING             ALLOC     531
                                                                                                                 ALLOC     534
                                                                                                                 ALLOC     535
                                        **        NOT EVEN ENOUGH ROOM TO SKIP TO AN *END* CARD --               ALLOC     536
                                        *                DAYFILE MESSAGE AND ABORT JOB                           ALLOC     537
                                                                                                                 ALLOC     538
           260  5110000000 X             GMR94    SA1    IDENT       ROUTINE NAME 0L FORMAT                      ALLOC     539
                          10611                   BX6    X1                                                      ALLOC     540
           261  5160000300 +                      SA6    GMRC                                                    ALLOC     541
                          7110000276 +            PLINE  GMRB,3,2                                                ALLOC     542
           264  7110000276 +                      MESSAGE GMRB,,RCL                                              ALLOC     543
           266  7120000000 X                      WRITER F.OUT                                                   ALLOC     544
           270  7120000000 X                      WRITER F.LGO                                                   ALLOC     545
           272  0400000000 X                      EQ     ABTFTN      EXIT TO ABORT JOBSTEP...                    ALLOC     546
                                                                                                                 ALLOC     547
           273  00000000000000000000     GMRA     DATA   0,0         TEMPORARY STORAGE FOR OVERFLOW              ALLOC     548
           275  00000000000000000000              CON    0           SAVE CORE REQUIRED                          ALLOC     549
           276  55240102140555172605     GMRB     DIS    2, TABLE OVERFLOW IN                                    ALLOC     550
           300  00000000000000000000     GMRC     CON    0           ROUTINE NAME 0L FORMAT                      ALLOC     551
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    14
                                                                      PTA 
  
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                ALLOC     553
                                        **        PTA - PRINT THRESHOLD ALARM.                                   ALLOC     554
                                        *                                                                        ALLOC     555
                                        *         CALLED WHEN ONLY SPACE ABOVE THRESHOLD IS AVAILABLE.           ALLOC     556
                                        *                                                                        ALLOC     557
                                        *         ENTRY  (THRESH) = CORE LEFT                                    ALLOC     558
                                        *                (MAX.FL) = FL NOW IN USE                                ALLOC     559
                                        *                                                                        ALLOC     560
                                        *         USES   ALL                                                     ALLOC     561
                                                                                                                 ALLOC     562
                                                                                                                 ALLOC     563
                                         PTA      SUBR   =           ...ENTRY/EXIT...                            ALLOC     564
                                                  SA1    THRESH                                                  ALLOC     565
                                                  CALL   COD         CONVERT OCTAL DIGITS                        ALLOC     566
                                                  BX6    X4                                                      ALLOC     567
                                                  SA6    FILL.                                                   ALLOC     568
                                                  SA1    MAX.FL                                                  ALLOC     569
                                                  AX1    30                                                      ALLOC     570
                                                  CALL   COD         CONVERT OCTAL DIGITS                        ALLOC     571
                                                  BX6    X4                                                      ALLOC     572
                                                  SA6    FILL.2                                                  ALLOC     573
                                                  TRIV   E.MO6       THRESHOLD REACHED                           ALLOC     574
                                                  EQ     EXIT.       EXIT...                                     ALLOC     575
                                         PTS      SPACE  4,8                                                     ALLOC     576
                                        **        PTS -  PRINT TABLE STATISTICS.                                 ALLOC     577
                                        *                                                                        ALLOC     578
                                        *         ENTRY  (B2) = CURRENT TABLE ORDINAL                            ALLOC     579
                                        *                (X0) = INCREMENT TO TABLE                               ALLOC     580
                                        *                                                                        ALLOC     581
                                        *         KEEPS  A0, B2, X0                                              ALLOC     582
                                                                                                                 ALLOC     583
                                                                                                                 ALLOC     584
                                         PTS      SUBR   =           ** ENTRY/EXIT **                            ALLOC     585
                                                  BX6    X0                                                      ALLOC     586
                                                  SA6    PTSA        SAVE X0                                     ALLOC     587
                                                  SX6    B2                                                      ALLOC     588
                                                  =A6    A6+1        SAVE B2                                     ALLOC     589
                                                  SX6    A0                                                      ALLOC     590
                                                  =A6    A6+1        SAVE A0                                     ALLOC     591
                                                  SA3    MOVES                                                   ALLOC     592
                                                  SA2    CO.SNAP                                                 ALLOC     593
                                                  LX2    1RT                                                     ALLOC     594
                                                  SX6    X3+B1       COUNT TABLE CRASHES                         ALLOC     595
                                                  SA6    A3                                                      ALLOC     596
                                                  PL     X2,EXIT.    IF SNAP NOT DESIRED                         ALLOC     597
                                                  SA2    ALC                                                     ALLOC     598
                                                  AX2    30                                                      ALLOC     599
                                                  SB7    ADW.ALC     SEE IF CALLED BY ADW                        ALLOC     600
                                                  SB7    -B7                                                     ALLOC     601
                                                  SB7    X2+B7                                                   ALLOC     602
                                                  NZ     B7,PTS2     IF NOT CALLED FROM ADDWORD                  ALLOC     603
                                                  PLINE  PTSB,PTSBL                                              ALLOC     604
                                                  SA2    ADW                                                     ALLOC     605
                                                  AX2    30                                                      ALLOC     606
                                         PTS2     SX1    X2                                                      ALLOC     607
                                                  SB7    PTS3        RETURN ADDRESS                              ALLOC     608
                                                  EQ     FRA=        FIND RELATIVE ADDRESS                       ALLOC     609
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    15
                                                                      PTA 
  
                                         PTS3     SA6    PTSC1                                                   ALLOC     610
                                                  =A7    A6+1                                                    ALLOC     611
                                                  PLINE  PTSC,PTSCL                                              ALLOC     612
                                                                                                                 ALLOC     613
                                                  SA1    PTSA+1      (X1) = TABLE ORDINAL                        ALLOC     614
                                                  SB5    X1                                                      ALLOC     615
                                                  CALL   COD         CONVERT OCTAL DIGITS                        ALLOC     616
                                                  SA6    PTSE1       TABLE NUMBER                                ALLOC     617
                                                  SA1    PTSA        (X1) = INCREMENT TO TABLE SIZE              ALLOC     618
                                                  RJ     COD         CONVERT INCREMENT                           ALLOC     619
                                                  SA6    PTSE2                                                   ALLOC     620
                                                  SA1    B5+SIZES                                                ALLOC     621
                                                  RJ     COD         CONVERT PREVIOUS SIZE                       ALLOC     622
                                                  SA6    PTSE3                                                   ALLOC     623
                                                  PLINE  PTSE,PTSEL                                              ALLOC     624
                                                  CALL   PTO         PRINT TABLE ORIGINS                         ALLOC     625
                                                  SA2    PTSA        (X2) = INCREMENT                            ALLOC     626
                                                  IX1    X0+X2       TOTAL TABLE SPACE USED                      ALLOC     627
                                                  RJ     COD         CONVERT NECESSARY STORAGE                   ALLOC     628
                                                  SA6    PTSF1                                                   ALLOC     629
                                                  SA1    L.TABS                                                  ALLOC     630
                                                  RJ     COD                                                     ALLOC     631
                                                  SA6    PTSF2                                                   ALLOC     632
                                                  PLINE  PTSF,PTSFL                                              ALLOC     633
                                                  SA1    PTSA                                                    ALLOC     634
                                                  BX0    X1          RESTORE X0                                  ALLOC     635
                                                  =A2    A1+1                                                    ALLOC     636
                                                  SB2    X2          RESTORE B2                                  ALLOC     637
                                                  =A1    A2+1                                                    ALLOC     638
                                                  SA0    X1          RESTORE A0                                  ALLOC     639
                                                  EQ     EXIT.       EXIT...                                     ALLOC     640
                                                                                                                 ALLOC     641
                                         PTSA     BSS    3           X0, B2, A0                                  ALLOC     642
                                                                                                                 ALLOC     643
                                         PTSB     DATA   H/          CALLED FROM *ADDWD*./                       ALLOC     644
                                         PTSBL    EQU    *-PTSB                                                  ALLOC     645
                                                                                                                 ALLOC     646
                                         PTSC     DATA   H/          CALLED FROM /                               ALLOC     647
                                         PTSC1    DATA   0,0         *NNNNNN IN ROUTINENAME*                     ALLOC     648
                                         PTSCL    EQU    *-PTSC                                                  ALLOC     649
                                                                                                                 ALLOC     650
                                         PTSE     DIS    2,  TABLE NUMBER                                        ALLOC     651
                                         PTSE1    DATA   0           TABLE ORDINAL                               ALLOC     652
                                                  DIS    1, ADDING                                               ALLOC     653
                                         PTSE2    DATA   0           INCREMENT TO SIZE                           ALLOC     654
                                                  DIS    1, TO PREV                                              ALLOC     655
                                         PTSE3    DATA   0           ORIGINAL TABLE LENGTH                       ALLOC     656
                                         PTSEL    EQU    *-PTSE                                                  ALLOC     657
                                                                                                                 ALLOC     658
                                         PTSF     DIS    2,  NOW USING                                           ALLOC     659
                                         PTSF1    DATA   0           TOTAL USED, INCLUDING INCREMENT             ALLOC     660
                                                  DIS    1, OUT OF                                               ALLOC     661
                                         PTSF2    DATA   0           SIZE OF TABLE AREA                          ALLOC     662
                                         PTSFL    EQU    *-PTSF                                                  ALLOC     663
                                         .TEST    ENDIF                                                          ALLOC     664
                                                                                                                 ALLOC     665
                                                                                                                 ALLOC     666
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    16
                                                                      PTA 
  
                                                  LIST   D                                                       ALLOC     667
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        TV=CUR
             0 X                        ALC.PAR 
           301                          ALCB
             0 X                        TV=DECL 
             0 X                        TV=EXU
             0 X                        T.END 
  
           302                                    END                                                            ALLOC     668
  
                             74000B CM  STORAGE USED             1584 STATEMENTS     1462 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.449 SECONDS         329 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABTFTN          0   EXTERNAL*       1/47 X   13/52
        ADW             0   PROGRAM*        2/39 L    2/39 E
        ADWT           12   PROGRAM*        2/57 S    3/03      3/08 L    3/08 E
        ADW10           6   PROGRAM*        2/49      2/55 L
        ADW.ALC        10   PROGRAM*        3/02 L    3/02 E
        ALC            16   PROGRAM*        3/01      4/19 L    4/19 E
        ALCA          144   PROGRAM*        4/55 S    9/46     10/15 L   10/25
        ALCB          301   PROGRAM*        6/22 S    8/05      9/02
        ALCD1         162   PROGRAM*        7/13 S    7/22 S    7/40 S    7/49 S    8/34     10/41 L
        ALCD2         164   PROGRAM*        7/17 S    7/24 S    7/43 S    7/50 S    8/32     10/43 L
        ALC10          32   PROGRAM*        5/37 L    6/27
        ALC14          35   PROGRAM*        5/42      5/45 L
        ALC20          37   PROGRAM*        5/51 L    6/01
        ALC22          41   PROGRAM*        5/54      5/57 L
        ALC26          50   PROGRAM*        6/17      6/20 L
        ALC30          54   PROGRAM*        6/24      6/31 L
        ALC32          57   PROGRAM*        6/37      6/44 L
        ALC33          66   PROGRAM*        7/09      7/20 L
        ALC36          72   PROGRAM*        7/18      7/32 L
        ALC37         100   PROGRAM*        7/36      7/46 L
        ALC38         104   PROGRAM*        7/44      7/54 L
        ALC40         114   PROGRAM*        8/27 L    8/51
        ALC50         124   PROGRAM*        8/49      8/51 L
        ALC60         132   PROGRAM*        9/11      9/17 L
        ALC=A5        152   PROGRAM*       10/21 L
        ALC=B4        146   PROGRAM*       10/17 L   10/35     10/38
        ALC=B5        147   PROGRAM*       10/18 L
        ALC=CNT         0   EXTERNAL*       1/57 X
        ALC=00        143   PROGRAM*       10/25 D   10/27     10/32
        ALC.CAI       161   PROGRAM*       10/38 L   10/40 E
        ALC.PAR         0   EXTERNAL*       6/14
        ALC.REG       155   PROGRAM*        5/20      9/17     10/27 L   10/29 E
        ALC.STF       160   PROGRAM*       10/35 L   10/37 E
        ALC.00        157   PROGRAM*       10/32 L   10/34 E
        BASES           0   EXTERNAL*       2/06 X    5/13      8/28      9/06      9/39     10/27     10/32     12/05
        BINIO           0   EXTERNAL*       2/06 X
        B1=1            0 
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    17
        SYMBOLIC REFERENCE TABLE. 
  
        CIO=            0   EXTERNAL*       2/13 X   13/50     13/51
        COD             0   EXTERNAL*       1/47 X
        CO.SNAP         0   EXTERNAL*       1/47 X
        CP.AFLS         0   EXTERNAL*       1/47 X   11/45
        CP#RM           0   FTX            12/07 F
        DLF             0   EXTERNAL*       1/38 X   11/37
        E.MO2           0   EXTERNAL*       1/44 X   13/36
        E.MO4           0   EXTERNAL*       1/44 X
        E.MO5           0   EXTERNAL*       1/44 X
        E.MO6           0   EXTERNAL*       1/44 X
        E.MO7           0   EXTERNAL*       1/44 X
        E.TC1           0   EXTERNAL*       1/44 X
        FAILSFT         0   EXTERNAL*       2/06 X   13/02
        FEC=BY          0   EXTERNAL*       1/41 X   13/32
        FEC.RTN         0   EXTERNAL*       1/41 X   13/39
        FILL.           0   EXTERNAL*       1/44 X
        FILL.2          0   EXTERNAL*       1/44 X
        FLSLOP          4   FTX            12/30
        FLSLUP2      1400   FTX            12/31
        FRA=            0   EXTERNAL*       2/13 X
        FUDGE           1   FTX             2/43      4/30      6/05      8/41
        F.LGO           0   EXTERNAL*       1/47 X   13/51     13/51
        F.OUT           0   EXTERNAL*       1/47 X   13/50
        F.PB            0   EXTERNAL*       1/47 X
        F.REF           0   EXTERNAL*       1/47 X   12/13
        GMC             0   EXTERNAL*       2/06 X   12/23
        GMR           166   PROGRAM*        6/26     11/05 L
        GMRA          273   PROGRAM*       11/08 S   11/54     12/38     12/47     13/54 L
        GMRB          276   PROGRAM*       13/48     13/49     13/56 L
        GMRC          300   PROGRAM*       13/47 S   13/57 L
        GMR10         177   PROGRAM*       11/37 L
        GMR20         201   PROGRAM*       11/20     11/28     11/44 L
        GMR30         204   PROGRAM*       11/48     11/51 L
        GMR60         216   PROGRAM*       12/10 L
        GMR70         222   PROGRAM*       11/52     11/56     12/02     12/23 L
        GMR80         227   PROGRAM*       11/38     12/18     12/38 L   12/57     13/14
        GMR90         231   PROGRAM*       12/24     12/47 L
        GMR92         234   PROGRAM*       12/50     13/02 L
        GMR93         243   PROGRAM*       13/05     13/09     13/11     13/16 L
        GMR94         260   PROGRAM*       13/03     13/45 L
        IDENT           0   EXTERNAL*       2/06 X   13/45
        INC.GTN      4000   FTX            11/49
        INC.LTN      2000   FTX            11/46
        LDB             0   EXTERNAL*       1/54 X   13/12
        LEXFLG          0   EXTERNAL*       1/54 X   13/07
        L.TABS          0   EXTERNAL*       2/06 X    6/03      8/09     12/29 S
        MAX.FL          0   EXTERNAL*       1/48 X
        MOVES           0   EXTERNAL*       1/57 X
        MSG=            0   EXTERNAL*       1/48 X   13/49
        MTD             0   EXTERNAL*       2/06 X    7/57
        MVE=            0   EXTERNAL*       2/13 X    8/50      9/12
        NAMES           0   EXTERNAL*       2/07 X
        NOM.FL          0   EXTERNAL*       1/48 X   11/44
        NREXT           0   EXTERNAL*       2/07 X   11/22
        N.TABLE         0   EXTERNAL*       2/07 X    4/27      6/05      8/11     10/09
                                            2/40      5/47      7/32      8/29
        O.TABS          0   EXTERNAL*       2/07 X    7/55      8/08      9/05     12/26
1       ALLOC - TABLE ALLOCATION.                                     COMPASS 3.7-871.     24/05/02. 13.13.59.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        PASS            0   EXTERNAL*       2/07 X   11/16     13/04     13/37
        PASS=END        3   FTX            13/38
        PASS=FAS        5   FTX            11/18     11/51
        PASS=FE         0   FTX            13/06
        PASS=MAP        4   FTX            11/51
        PDM             0   EXTERNAL*       2/03 X   13/36
        PTO             0   EXTERNAL*       1/51 X
        REFIO           0   EXTERNAL*       2/07 X   12/01
        SIZES           0   EXTERNAL*       2/07 X    5/51      6/12      8/01      9/07
        STAGE           0   EXTERNAL*       1/41 X   13/35 S
        TEST            0   FTX             4/21 F    5/25 F    9/26 F   12/15 F   14/01 F
                                            4/42 F    8/13 F   11/30 F   12/52 F
        THRESH          0   EXTERNAL*       2/07 X    6/20     12/32 S   12/48     12/56 S
        TV=CUR          0   EXTERNAL*       5/37      6/31      8/21     12/05
        TV=DECL         0   EXTERNAL*      12/05
        TV=EXU          0   EXTERNAL*      12/05
        T=APL           0   EXTERNAL*       2/08 X   13/28     13/28 S
        T=BLKS          0   EXTERNAL*       2/08 X   13/33     13/33 S
        T=BLST          0   EXTERNAL*       2/08 X   13/23     13/23 S
        T=CON           0   EXTERNAL*       2/08 X   13/22     13/22 S
        T=DATS          0   EXTERNAL*       2/08 X   13/30     13/30 S
        T=DIM           0   EXTERNAL*       2/08 X   13/20     13/20 S
        T=ENT           0   EXTERNAL*       2/08 X   13/34     13/34 S
        T=EQUS          0   EXTERNAL*       2/08 X   13/24     13/24 S
        T=FILL          0   EXTERNAL*       2/09 X   11/19
        T=FMT           0   EXTERNAL*       2/09 X   13/25     13/25 S
        T=GL            0   EXTERNAL*       2/09 X   13/29     13/29 S
        T=LINK          0   EXTERNAL*       2/09 X   11/17
        T=NLST          0   EXTERNAL*       2/09 X   13/27     13/27 S
        T=PAR           0   EXTERNAL*       2/09 X    6/13      8/04      9/01     13/26     13/26 S
        T=REF           0   EXTERNAL*       2/09 X   11/53     12/10     13/31     13/31 S
        T=SCR           0   EXTERNAL*       2/09 X   13/21     13/21 S
        T=STF           0   EXTERNAL*       2/10 X   13/18     13/18 S
        T=STMT          0   EXTERNAL*       2/10 X   13/10     13/13     13/13 S
        T=XFIL          0   EXTERNAL*       2/10 X   11/25
        T.END           0   EXTERNAL*      12/27 S
        T.PAR           0   EXTERNAL*       2/10 X   10/38
        T.REF           0   EXTERNAL*       2/10 X   12/05     12/11
        T.STF           0   EXTERNAL*       2/10 X   10/35
        WOF             0   EXTERNAL*       2/10 X   13/48
        WTW=            0   EXTERNAL*       2/13 X   12/13
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2337              IDENT  INIT00 
                       2337              B=LWA00  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2135 
                                        LITERALS* LOCAL        2135       202 
  
  
                                        ENTRY POINTS. 
  
                                        B=INIT0          0+           FTN              0+           B=LWA00       2337+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        OSTACK    CO.EL     CO.REWI   CP.CPU    FTNLFN    L.PWB     TL.PAGE   WTE 
                                        CO.AL     CO.ET     CO.REWL   CP.ILFL   FVLEN     MAX.FL    TL.PNAM   F.SKEL
                                        ABTFTN    CO.GO     CO.RFL    CP.LIB    FVTBL     MSG=      TL.TIME   CDD 
                                        CO.ANSI   CO.IDP    CO.RNDA   CP.LSTF   FV.IN     MEMERR    WNB=      CIO=
                                        CO.ARGC   CO.LCM    CO.RNDD   CP.MODL   FV.ERRS   NOM.FL    IDP=      DXB 
                                        CO.ARGF   CO.LL     CO.RNDM   CP.MXFL   FV.LGO    ONSPY     IDP=USY   FA=SET
                                        CO.BRK    CO.LOA    CO.RNDS   CP.NFLL   FV.OUT    O.C       UKT=FE    MVE=
                                        CO.CPL    CO.LOC    CO.SEQ    CP.NFLS   F.IN      O.CC      UKT=LNK   RDC=
                                        CO.CS     CO.LOM    CO.SNAP   CP.PAGE   F.ERRS    O.CPV     FIN.OL    RPV=
                                        CO.DBER   CO.LOO    CO.SPP    CP.PCOM   F.LGO     O.TA      FIN       SFN=
                                        CO.DBID   CO.LOR    CO.STAT   CP.PD     F.OUT     O.TTLA    FIN.MAP   F.SYMIL 
                                        CO.DBPM   CO.LOS    CO.TMLC   CP.PS     F.PB      RAPFLAG   ANSI.SW   Z.SYMDB 
                                        CO.DBSB   CO.MD     CO.UO     CP.PW     F.REF     SPYW      ERRTYP    Z.SYMIL 
                                        CO.DBSL   CO.OPT    CO.WPL    CP.STXT   GT1       SYS=      L.TABS    Z.SYMVP 
                                        CO.DBST   CO.PS     CO.WPE    CP.XTXT   IBUF      TIMER     O.TABS    MDER.SW 
                                        CO.DBTB   CO.PW     CP.ABT    ENOT=L    IDPCHK    TIME0     PUC       WO.LCM
                                        CO.DOLG   CO.PWT    CP.AFLL   ERFO      INT.FL    TIME1     SCR       WOF=ERR 
                                        CO.DOOT   CO.QC     CP.AFLS   FTIFL     JOT       TL.CPU    THRESH
                                        CO.DS     CO.REWB   CP.BLF    FTNHHA    LDPRI     TL.CSOP   RS.PD 
                                        CO.EC     CO.REWE   CP.CARD   FTNLDR    L.PWA     TL.DATE   WIN 
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    10
                                                  IDENT  INIT00                                                  INIT00      2
                                         INIT00   SECT   (FIRST TIME ONLY INITIALIZATION.)                       INIT00      3
  
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     2
                                                                      INIT00
  
                                        *         IN FEC                                                         INIT00      5
                                                  EXT    OSTACK                                                  FC50744    10
                                                                                                                 INIT00      7
                                        *         IN FTN                                                         INIT00      8
                                                  EXT    CO.AL,ABTFTN,CO.ANSI,CO.ARGC,CO.ARGF,CO.BRK,CO.CPL      FC5A444    43
                                                  EXT    CO.CS,CO.DBER,CO.DBID,CO.DBPM                           FC5A444    44
                                                  EXT    CO.DBSB,CO.DBSL,CO.DBST,CO.DBTB                         FC5A444    45
                                                  EXT    CO.DOLG,CO.DOOT,CO.DS,CO.EC,CO.EL,CO.ET,CO.GO,CO.IDP    F1039     139
                                                  EXT    CO.LCM,CO.LL,CO.LOA,CO.LOC,CO.LOM,CO.LOO,CO.LOR,CO.LOS  F1039     140
                                                  EXT    CO.MD,CO.OPT,CO.PS,CO.PW,CO.PWT,CO.QC,CO.REWB,CO.REWE   F1039     141
                                                  EXT    CO.REWI,CO.REWL,CO.RFL,CO.RNDA,CO.RNDD,CO.RNDM,CO.RNDS  F1039     142
                                                  EXT    CO.SEQ,CO.SNAP,CO.SPP,CO.STAT,CO.TMLC,CO.UO             FC5A426    31
                                                  EXT    CO.WPL,CO.WPE,CP.ABT                                    FC5A426    32
                                                  EXT    CP.AFLL,CP.AFLS,CP.BLF,CP.CARD,CP.CPU,CP.ILFL,CP.LIB    F1039     144
                                                  EXT    CP.LSTF,CP.MODL,CP.MXFL,CP.NFLL,CP.NFLS,CP.PAGE,CP.PCOM F1039     145
                                                  EXT    CP.PD,CP.PS,CP.PW,CP.STXT,CP.XTXT,ENOT=L,ERFO,FTIFL     F1039     146
                                                  EXT    FTNHHA,FTNLDR,FTNLFN,FVLEN,FVTBL,FV.IN,FV.ERRS          F1039     147
                                                  EXT    FV.LGO,FV.OUT,F.IN,F.ERRS,F.LGO,F.OUT,F.PB,F.REF,GT1    F1039     148
                                                  EXT    IBUF,IDPCHK,INT.FL,JOT,LDPRI,L.PWA,L.PWB,MAX.FL,MSG=    F1039     149
                                                  EXT    MEMERR,NOM.FL,ONSPY,O.C,O.CC,O.CPV,O.TA,O.TTLA,RAPFLAG  F1039     150
                                                  EXT    SPYW,SYS=,TIMER,TIME0,TIME1,TL.CPU,TL.CSOP,TL.DATE      F1039     151
                                                  EXT    TL.PAGE,TL.PNAM,TL.TIME,WNB=                            F1039     152
                                                                                                                 INIT00     24
                                        *         IN IDP                                                         INIT00     25
                                                  EXT    IDP=,IDP=USY,UKT=FE,UKT=LNK                             INIT00     26
                                                                                                                 INIT00     27
                                        *         IN LIST                                                        INIT00     28
                                                  EXT    FIN.OL                                                  INIT00     29
                                                                                                                 INIT00     30
                                        *         IN MAP                                                         INIT00     31
                                                  EXT    FIN,FIN.MAP                                             INIT00     32
                                                                                                                 INIT00     33
                                        *         IN PEM                                                         INIT00     34
                                                  EXT    ANSI.SW                                                 INIT00     35
                                                                                                                 INIT00     36
                                        *         IN PUC                                                         INIT00     37
                                                  EXT    ERRTYP,L.TABS,O.TABS,PUC,SCR,THRESH                     FC50844     8
                                                  EXT    RS.PD                                                   FC5A426    33
                                                                                                                 INIT00     39
                                        *         IN QCGC                                                        INIT00     40
                                                  EXT    WIN,WTE                                                 F1039     153
                                                                                                                 INIT00     42
                                        *         IN QSKEL                                                       INIT00     43
                                                  EXT    F.SKEL                                                  INIT00     44
                                                                                                                 INIT00     45
                                        *         IN UTILITY                                                     INIT00     46
                                                  EXT    CDD,CIO=,DXB,FA=SET,MVE=,RDC=,RPV=,SFN=                 F1039     154
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     3
                                                                      INIT00
  
                                        **        (DC.) - BITS IN O.S. LOADER CONTROL WORD.                      INIT00     49
                                                                                                                 INIT00     51
                                                  DESCRIBE  DC.                                                  INIT00     52
                                                  DEFINE 24                                                      INIT00     53
      L     43  00000000400000000000     FID      DEFINE             SYSTEM GLOBAL DEBUG SWITCH                  INIT00     54
                                                  DEFINE 35                                                      INIT00     55
                                                                                                                 INIT00     56
                                                                                                                 FC50844     9
                                        **        (MC.) - BITS IN REPLY FROM *GETMC* MACRO CALL.                 FC50844    10
                                                                                                                 FC50844    11
                                                  DESCRIBE  MC.                                                  FC50844    12
                                                  DEFINE 39                                                      FC50844    13
      L     24  00000000000004000000     800      DEFINE             SET IF CPU IS MODEL 800                     FC50844    14
      L     22  00000000000003000000     176      DEFINE 2           NZ IF CPU IS MODEL 176                      FC50844    15
                                                  DEFINE 18                                                      FC50844    16
                                                                                                                 FC50844    17
                                                                                                                 FC50844    18
                                                  LIST   -X          COMFCIP IS LISTED IN DECK *FTN*             INIT00     57
             0                           CIP      CTEXT  COMFCIP - COMPILE INSTALLATION PARAMETERS               COMFCIP     2
                                                  LIST   *                                                       INIT00     59
  
  
  
  
                                        **        FTN - INITIALIZATION MAIN LOOP.                                INIT00     61
                                        *                                                                        INIT00     62
                                        *         THE OPERATING SYSTEM RESPONDS TO AN *FTN* CONTROL STATEMENT    INIT00     63
                                        *         BY LOADING THE (0,0) OVERLAY AND TRANSFERRING CONTROL HERE.    INIT00     64
                                        *                                                                        INIT00     65
                                        *         THIS CONTROLLER CALLS A SERIES OF INITIALIZATION SUBROUTINES   INIT00     66
                                        *         AND TRANSFERS CONTROL TO THE PRIMARY OVERLAY.  IF OPT=0 A      INIT00     67
                                        *         COPY OF THE PRIMARY HAS ALREADY BEEN LOADED AS AN EXTENSION    INIT00     68
                                        *         TO THE MAIN OVERLAY.                                           INIT00     69
                                        *                                                                        INIT00     70
                                        *         ENTRY  (A0) =  CM/SCM FIELD LENGTH                             INIT00     71
                                        *                (X0) = ECS/LCM FIELD LENGTH                             INIT00     72
                                        *                                                                        INIT00     73
                                        *         EXIT   TO PRIMARY OVERLAY LOADER (OPT=1,2)                     INIT00     74
                                        *                TO MAIN BATCH CONTROL (OPT=0)                           INIT00     75
                                        *                (B1) = 1                                                INIT00     76
                                        *                                                                        INIT00     77
                                        *         CALLS  CFL, GOI, IDPCHK, MIA, MIB, ONSPY, PAC                  INIT00     78
                                                                                                                 INIT00     79
                                                                                                                 INIT00     80
             0                           FTN      BSSENT 0           ** SYSTEM LOADER ENTRY POINT **             INIT00     81
                                                                                                                 INIT00     82
             0  6110000001                        SB1    1                                                       INIT00     83
                          5110000000 X            SA1    CP.NFLS     LWA                                         FC5A146    10
             1  5120000000 X                      SA2    FTNLDR      LOADER BITS                                 FC5A146    11
                          20122                   LX1    18                                                      FC5A146    12
                               12721              BX7    X2+X1                                                   FC5A146    13
             2  5170000100                        SA7    RA.ORG      DUMMY LOADER REQUEST FOR (0,0)              FC5A146    14
                          0100001101 +            RJ     MIA         MISCELLANEOUS INITIALIZATION, PART A        INIT00     84
             3  0100001553 +                      RJ     GPP         INITIATE PRINT PARAMETERS                   FC5A426    34
                                                                                                                 F1039     155
                                        **        MOVE CONTROL CARD IMAGE TO TEMPLET FOR OUTPUT ON THIRD LINE    F1039     156
                                                                                                                 F1039     157
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     4
                                                                      FTN 
  
             4  6130000007                        SB3    8-1                                                     F1039     158
                          5120000070              SA2    RA.CCD                                                  F1039     159
             5  22602                             LX6    X2                                                      F1039     160
                     5160000001 X                 SA6    O.CC+1                                                  F1039     161
                                                                                                                 F1039     162
             6  5022000001               FTN.1    SA2    A2+1                                                    F1039     163
                          0302000011 +            ZR     X2,FTN.2    IF ZERO WORD                                F1039     164
             7  22602                             LX6    X2                                                      F1039     165
                     67331                        SB3    B3-B1                                                   F1039     166
                          5066000001              SA6    A6+1                                                    F1039     167
            10  0530000006 +                      NZ     B3,FTN.1    IF NOT EIGHT WORDS                          F1039     168
                                                                                                                 F1039     169
            11  43066                    FTN.2    MX0    9*CHAR                                                  F1039     170
                     15260                        BX2    -X0*X6                                                  F1039     171
                          0302000013 +            ZR     X2,FTN.3    IF AT LEAST ONE ZERO BYTE                   F1039     172
            12  43600                             MX6    0                                                       F1039     173
                     5066000001                   SA6    A6+1                                                    F1039     174
                                                                                                                 F1039     175
            13  74760                    FTN.3    SX7    A6                                                      F1039     176
                     5170001734 +                 SA7    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET   F1039     177
                                                                                                                 F1039     178
            14  7110000427 +                      SX1    KEYS        PARAMETER TABLE FWA                         INIT00     85
                          7120000154              SX2    Z.KEYS      PARAMETER TABLE LENGTH                      INIT00     86
            15  13555                             BX5    0           STANDARD FIRST PARAMETER PROCESSOR          INIT00     87
                     43600                        MX6    0           STANDARD ERROR PROCESSING                   INIT00     88
                          7170000000              SX7    0           STANDARD CONTINUATION PROCESSING            INIT00     89
            16  0100000035 +                      RJ     PAC         PROCESS ARGUMENTS FROM CONTROL STATEMENT    INIT00     90
                                                                                                                 F1039     179
                                        **        BLANK FILL LAST WORD OF CONTROL CARD IN TEMPLET                F1039     180
                                                                                                                 F1039     181
            17  5120001734 +                      SA2    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET   F1039     182
                          53320                   SA3    X2                                                      F1039     183
            20  6140000067                        SB4    60-6+1                                                  F1039     184
                          43673                   MX6    -1                                                      F1039     185
                               36436              IX4    X3+X6                                                   F1039     186
            21  5120002135 +                      SA2    =40404040404040404040B                                  F1039     187
                          5110002136 +            SA1    =10H                                                    F1039     188
            22  16634                             BX6    -X4+X3                                                  F1039     189
                     11462                        BX4    X6*X2                                                   F1039     190
                          22644                   LX6    X4,B4                                                   F1039     191
                               37246              IX2    X4-X6                                                   F1039     192
            23  12642                             BX6    X4+X2                                                   F1039     193
                     15116                        BX1    -X6*X1                                                  F1039     194
                          36631                   IX6    X3+X1                                                   F1039     195
                               54630              SA6    A3                                                      F1039     196
            24  5110000000 X                      SA1    CO.OPT                                                  INIT00     91
                          6231777773              SB3    X1-4                                                    INIT00     92
            25  0630001010 +                      PL     B3,E.OPT    IF OPT .GT. 3                               INIT00     93
                                                                                                                 F1039     197
            26  0100001043 +             FTN1     RJ     CFL         CHECK FIELD LENGTH                          INIT00     94
            27  0100001150 +                      RJ     MIB         MISCELLANEOUS INITIALIZATION, PART B        INIT00     95
            30  0100001575 +                      RJ     CPV         UPDATE CURRENT VALUES OF SELECTED CONTROL   F1039     198
                                                                     CARD PARAMETERS                             F1039     199
            31  5110000034 +                      SA1    FTNOVM      OVERLAY MODE FLAG                           INIT00     96
                          0311000000 X            NZ     X1,LDPRI    EXIT TO LOAD PRIMARY OVERLAY...             INIT00     97
                                                                                                                 INIT00     98
                                                                                                                 INIT00     99
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     5
                                                                      FTN 
  
                                        **        FOR OPT=0 A COPY OF THE (1,0) EXISTS ON THE (0,0)              INIT00    100
                                        *         OVERLAY.  THEREFORE NO OVERLAY LOAD NEED BE DONE.              INIT00    101
                                                                                                                 INIT00    102
                                                  IFEQ   .SPY,ON,1   IF USING SPY                                INIT00    109
                                                  CALL   ONSPY       TURN ON PP PROGRAM SPY                      INIT00    110
                                                                                                                 INIT00    111
            32  0100002007 +                      RJ     GOI         GLOBAL OVERLAY INITIALIZATION (QCG ONLY)    INIT00    112
                                                                                                                 INIT00    113
                                        *         CHECK FOR IDP BREAK REQUEST.                                   INIT00    114
                                        *                                                                        INIT00    115
                                        *         LINK *FRONT END* IDP USER KEYWORD TABLE.                       INIT00    116
                                                                                                                 INIT00    117
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT00    118
                                         #OS      IFNE   .OS,2                                                   FC5A158A  383
                                                  SX6    UKT=FE      FWA OF *FRONT END* IDP KEYWORD TABLE        INIT00    119
                                                  SA6    UKT=LNK                                                 INIT00    120
                                                  SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT00    121
                                                  SA6    IDP=USY                                                 INIT00    122
                                                  CALL   IDPCHK                                                  INIT00    123
                                                  PL     B7,FTN2     IF IDP NOT REQUESTED                        INIT00    124
                                         FTN00    BREAK                                                          INIT00    125
                                         FTN2     BSS    0                                                       INIT00    126
                                         #OS      ENDIF                                                          FC5A158A  384
                                         .TEST    ENDIF                                                          INIT00    127
                                                                                                                 INIT00    128
            33  0400000000 X                      EQ     PUC         EXIT TO PROGRAM UNIT CONTROLLER...          INIT00    129
                                                                                                                 F1039     200
            34                     1     FTNOVM   BSS    1           OVERLAY MODE                                F1039     201
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     6
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC 
  
            35                           PAC      CTEXT  COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.     COMCPAC     2
  
  
  
  
                                        ***       COMCPAC -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.           COMCPAC     4
                                        *                                                                        COMCPAC     5
                                        *         R. H. GOODELL      71/07/01       COMPASS 3.0                  COMCPAC     6
                                        *         P. H. MCQUESTEN    71/11/05       COMQARG                      COMCPAC     7
                                        *         G. E. LOGG         74/07/26       COMQARG VERSION  2.          COMCPAC     8
                                        *         D. MONTAGNA        77/09/26       COMCPAC                      COMCPAC     9
                                        *                                                                        COMCPAC    10
                                        *         COPYRIGHT CONTROL DATA CORP. 1977.                             COMCPAC    11
                                        *         CONTROL DATA  PROPRIETARY PRODUCT.                             COMCPAC    12
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCPAC    14
                                                  QUAL   COMCPAC                                                 COMCPAC    15
                                 D_D              BASE   D                                                       COMCPAC    16
  
  
  
  
                                        ***       COMCPAC -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.           COMCPAC    18
                                        *                                                                        COMCPAC    19
                                        *         PAC CAN BE USED TO PROCESS ANY STATEMENT WHICH IS MADE UP      COMCPAC    20
                                        *         OF A VERB FOLLOWED BY A LIST OF ITEMS DELIMITTED BY            COMCPAC    21
                                        *         SEPARATORS AND ENDED BY A TERMINATOR. THE PARAMETERS MAY       COMCPAC    22
                                        *         HAVE THE FOLLOWING FORMS.                                      COMCPAC    23
                                        *                PARAMETER                                               COMCPAC    24
                                        *                -PARAMETER                                              COMCPAC    25
                                        *                PARAMETER=0                                             COMCPAC    26
                                        *                PARAMETER=SOP1/../SOPN (WHERE S IS *-* OR NULL)         COMCPAC    27
                                        *                PARAMETER=STRING                                        COMCPAC    28
                                        *         EACH OPTION MUST BE LESS THAN 11 CHARACTERS.  A STRING MAY     COMCPAC    29
                                        *         ANY LENGTH.  MORE THAN ONE OCCURENCE OF A PARAMETER MAY        COMCPAC    30
                                        *         BE ALLOWED.                                                    COMCPAC    31
                                        *         IF THE VERB IS *EXECUTE* AND (RA.PGN) DOES NOT CONTAIN         COMCPAC    32
                                        *         *EXECUTE*, THE LOADER *EXECUTE* DIRECTIVE IS ASSUMED AND       COMCPAC    33
                                        *         SKIPPED.  *PAC* WILL TREAT A *NOS* LABEL AS THE VERB.          COMCPAC    34
                                        *         THEREFORE, CALLERS HAVING AN *ARG=* ENTRY POINT MUST           COMCPAC    35
                                        *         PREPROCESS THE LABEL BEFORE CALLING *PAC*.                     COMCPAC    36
                                        *                                                                        COMCPAC    37
                                        *         TERMINOLOGY --                                                 COMCPAC    38
                                        *           PARAMETER - THE KEYWORD USED IN SPECIFYING INFORMATION.      COMCPAC    39
                                        *           OPTION - A VALUE ASSIGNED TO A PARAMETER.                    COMCPAC    40
                                        *           FIRST DEFAULT - (FD) THE DEFAULT VALUE USED FOR A PARAMETER  COMCPAC    41
                                        *              WHEN IT DOES NOT APPEAR IN THE CONTROL STATEMENT.         COMCPAC    42
                                        *           SECOND DEFAULT - (SD) THE DEFAULT VALUES USED WHEN ONLY THE  COMCPAC    43
                                        *              PARAMETER APPEARS (NO = IS PRESENT).                      COMCPAC    44
                                        *           INITIAL VALUES - (IV) THE VALUES PUT INTO EFFECT WHEN AN     COMCPAC    45
                                        *              = IS ENCOUNTERED IN THE FORM *PARAMETER=OP/.../OP* OR     COMCPAC    46
                                        *              *PARAMETER=*.  EXPLICIT VALUES *OP* ADD OR DELETE FROM    COMCPAC    47
                                        *              THIS INITIAL VALUE.                                       COMCPAC    48
                                        *                                                                        COMCPAC    49
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     7
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           COMCPAC             COMCPAC 
  
                                        *         ** CONTROL STATEMENT SYNTAX **                                 COMCPAC    50
                                        *                                                                        COMCPAC    51
                                        *         PARAMETERS MAY BE SEPARATED BY ANY NON-ALPHANUMERIC CHARACTER  COMCPAC    52
                                        *         EXCEPT :,-,*,/,=,$,),. AND BLANK.                              COMCPAC    53
                                        *         A BLANK MAY BE USED AS A SEPARATOR AFTER THE VERB.             COMCPAC    54
                                        *         IN ALL OTHER CASES BLANKS ARE IGNORED. THE CHARACTERS ) AND    COMCPAC    55
                                        *         PERIOD (.) ARE THE TERMINATOR CHARACTERS.  ANY CHARACTERS      COMCPAC    56
                                        *         FOLLOWING THE TERMINATOR ARE IGNORED.  CONTINUATION LINES ARE  COMCPAC    57
                                        *         ALLOWED.  COLUMN 1 OF A CONTINUATION LINE LOGICALLY FOLLOWS    COMCPAC    58
                                        *         THE LAST CHARACTER OF THE PREVIOUS LINE.                       COMCPAC    59
                                        *         THE CHARACTERS -,*,/,= HAVE SPECIAL MEANING AND SHOULD         COMCPAC    60
                                        *         ONLY BE USED AS SPECIFIED BELOW.                               COMCPAC    61
                                        *         SEPARATORS AND SPECIAL CHARACTERS MAY BE SPECIFIED IN ANY      COMCPAC    62
                                        *         OPTION BY PLACING THE DESIRED CHARACTERS BETWEEN DOLLAR        COMCPAC    63
                                        *         SIGNS.  DOLLAR SIGNS MAY BE USED TO DELIMIT ANY SET OF         COMCPAC    64
                                        *         CHARACTERS AND MAY OCCUR ANYWHERE WITHIN AN OPTION (E.G.       COMCPAC    65
                                        *         A$&$B IS EQUIVALENT TO $A&B$).  TO SPECIFY A DOLLAR SIGN       COMCPAC    66
                                        *         IN A DELIMITED FIELD USE TWO CONSECUTIVE DOLLAR SIGNS.         COMCPAC    67
                                        *         THE OPERATING SYSTEM MAY IMPOSE MORE SEVERE RESTRICTIONS       COMCPAC    68
                                        *         ON CONTROL STATEMENT SYNTAX. THE APPROPRIATE OPERATING         COMCPAC    69
                                        *         SYSTEM REFERENCE MANUAL SHOULD BE CONSULTED.                   COMCPAC    70
                                        *                                                                        COMCPAC    71
                                        *         THERE ARE THREE TYPES OF PARAMETERS.                           COMCPAC    72
                                        *                                                                        COMCPAC    73
                                        *         BINARY VALUE PARAMETER - (BV) THE PARAMETER MAY BE EITHER      COMCPAC    74
                                        *            ON OR OFF.  *PARAMETER* TURNS IT ON AND *-PARAMETER*,       COMCPAC    75
                                        *            *PARAMETER=0*, OR *PARAMETER=* TURNS IT OFF.                COMCPAC    76
                                        *         SPECIFIED VALUE PARAMETER - (SV) *PARAMETER=OP/.../OP*         COMCPAC    77
                                        *            WHERE OP ARE VALUES FOR THIS PARAMETER.  THE NUMBER OF      COMCPAC    78
                                        *            OPTIONS MAY BE RESTRICTED (TO A MINIMUM OF 1).  IF ONLY     COMCPAC    79
                                        *            THE PARAMETER APPEARS, THE SECOND DEFAULT IS USED.  IF      COMCPAC    80
                                        *            *-PARAMETER* OR *PARAMETER=* IS SPECIFIED, *PARAMETER=0*    COMCPAC    81
                                        *            IS ASSUMED.                                                 COMCPAC    82
                                        *         MULTIPLE BINARY VALUE PARAMETERS - (MBV)                       COMCPAC    83
                                        *            *PARAMETER=SOP/.../SOP* WHERE S IS EITHER *-* OR NULL       COMCPAC    84
                                        *            AND OP IS THE NAME OF AN ON OFF SWITCH.  IF THE             COMCPAC    85
                                        *            PARAMETER IS OMITTED FIRST DEFAULTS ARE USED.  IF ONLY      COMCPAC    86
                                        *            THE PARAMETER APPEARS, SECOND DEFAULTS ARE USED.  IF        COMCPAC    87
                                        *            IF AN EQUAL SIGN IS PRESENT THE INTIAL VALUES ARE FIRST     COMCPAC    88
                                        *            SET AND THE OPTION LIST (IF ANY) IS SCANNED FROM LEFT       COMCPAC    89
                                        *            RIGHT TO SELECT (IF *OP*) OR DESELECT (IF *-OP*) THE        COMCPAC    90
                                        *            OPTIONS.  A ZERO (0) DESELECTS ALL OPTIONS AND MAY BE       COMCPAC    91
                                        *            FOLLOWED BY NEW SELECTIONS.  *-PARAMETER* DESELECTS         COMCPAC    92
                                        *            ALL OPTIONS.                                                COMCPAC    93
                                        *                                                                        COMCPAC    94
                                        *         ** USING PAC **                                                COMCPAC    95
                                        *                                                                        COMCPAC    96
                                        *         PAC IS CALLED BY PERFORMING AN RJ TO THE MAIN ROUTINE *PAC*.   COMCPAC    97
                                        *         THE FOLLOWING IS A LIST OF ROUTINES, CELLS, MICROS AND MACROS  COMCPAC    98
                                        *         WHICH ARE AVAILABLE TO THE USER.  A COMPLETE DEFINITION OF     COMCPAC    99
                                        *         USAGE IS GIVEN IN THE CODE.  THAT DESCRIPTION SHOULD BE        COMCPAC   100
                                        *         CONSULTED FOR APPROPRIATE DETAIL.                              COMCPAC   101
                                        *                                                                        COMCPAC   102
                                        *         PAC = PROCESS ARGUMENTS FROM CONTROL STATEMENT.                COMCPAC   103
                                        *         PAC.RET = RETURN FOR USER FIRST PARAMETER PROCESSOR            COMCPAC   104
                                        *                (SEE *PAC.UFP*) AND USER NON-STANDARD ARGUMENT          COMCPAC   105
                                        *                PROCESSOR (SEE *PAC.UAP*).                              COMCPAC   106
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     8
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           COMCPAC             COMCPAC 
  
                                        *         CFV = CHECK FILE NAME VALIDITY.                                COMCPAC   107
                                        *         DEM = DISPLAY ERROR MESSAGES.                                  COMCPAC   108
                                        *         DEM.RET = RETURN FOR USER SUPPLEMENTAL ERROR PROCESSOR         COMCPAC   109
                                        *                (SEE *DEM.UEP*).                                        COMCPAC   110
                                        *         (ERR.CNT) = NUMBER OF ERRORS IN CONTROL STATEMENT.             COMCPAC   111
                                        *         (ERR.FLD) = ADDRESS OF A WORD CONTAINING THE BAD FIELD         COMCPAC   112
                                        *                WITHIN THE CONTROL STATEMENT.                           COMCPAC   113
                                        *         ERR.RET = RETURN FOR USER ERROR PROCESSOR (SEE *DEM.UEP*).     COMCPAC   114
                                        *         GNC = GET NEXT CHARACTER OF CONTROL STATEMENT.                 COMCPAC   115
                                        *         GNC.RET = RETURN FOR USER CONTINUATION LINE PROCESSOR          COMCPAC   116
                                        *                (SEE *GNC.UCP*).                                        COMCPAC   117
                                        *         GNA = GET NEXT ARTIFACT FROM CONTROL STATEMENT.                COMCPAC   118
                                        *         "PAC.NAME" = NAME OF PROCESSOR FOR ERROR MESSAGES (OPTIONAL).  COMCPAC   119
                                        *         CSERR = MACRO FOR CALLING DEFAULT ERROR MESSAGE PROCESSOR.     COMCPAC   120
                                        *         MBVOP = MACRO FOR DEFINING MULTIPLE BINARY VALUE OPTIONS.      COMCPAC   121
                                        *         PARAM = MACRO FOR DEFINING PARAMETER KEYWORDS.                 COMCPAC   122
                                        *                                                                        COMCPAC   123
                                        *         EXITS TO USER WHEN --                                          COMCPAC   124
                                        *                THE FIRST PARAMETER IS ENCOUNTERED AND A USER FIRST     COMCPAC   125
                                        *                  PARAMETER PROCESSOR EXISTS;                           COMCPAC   126
                                        *                A PARAMETER SPECIFIES NON-STANDARD PROCESSING;          COMCPAC   127
                                        *                A CONTINUATION LINE IS NEEDED AND A USER CONTINUATION   COMCPAC   128
                                        *                  PROCESSOR EXISTS;                                     COMCPAC   129
                                        *                AN ERROR OCCURS AND A USER ERROR PROCESSOR EXISTS;      COMCPAC   130
                                        *                CONTROL STATEMENT PROCESSING IS COMPLETE.               COMCPAC   131
                                        *                                                                        COMCPAC   132
                                        *         COMMON DECKS *COMADEF*, *COMCDXB*, *COMCSFN* AND *COMCSYS*     COMCPAC   133
                                        *         ARE REQUIRED.                                                  COMCPAC   134
  
  
  
  
                                        **        CONTROL STATEMENT CHARACTER MAPPINGS.                          COMCPAC   136
                                                                                                                 COMCPAC   137
                                  -1     O.EOS    EQU    -1          TERMINATOR (PERIOD, RPAREN)                 COMCPAC   138
                                   0     O.VAL    EQU    0           ALPHANUMERIC  (A-Z, 0-9, *)                 COMCPAC   139
                                   1     O.SEP    EQU    1           SEPARATOR (PLUS, ET SEQ)                    COMCPAC   140
                                   2     O.SLASH  EQU    2           SLASH                                       COMCPAC   141
                                   3     O.EQUAL  EQU    3           EQUAL SIGN                                  COMCPAC   142
                                   4     O.MINUS  EQU    4           MINUS SIGN (MUST BE GREATEST VALUE)         COMCPAC   143
  
  
  
  
                                        **        PARAMETER TABLE DESCRIPTION.                                   COMCPAC   145
                                                                                                                 COMCPAC   146
                                                  DESCRIBE KA.,,,0   PARAMETER TABLE WORD A                      COMCPAC   147
                                                                                                                 COMCPAC   148
      L     22  77777777777777000000     KEY      DEFINE 7*6         PARAMETER KEYWORD NAME (0L FORMAT)          COMCPAC   149
      L      0  00000000000000777777     POA      DEFINE 18          FWA PARAM OPTION AREA (- IF PROCESSOR ADDR) COMCPAC   150
                                                                                                                 COMCPAC   151
                                                                                                                 COMCPAC   152
                                                  DESCRIBE KB.,,,1   PARAMETER TABLE WORD B                      COMCPAC   153
                                                                                                                 COMCPAC   154
      L    150  77777760000000000000     MBV      DEFINE 20          MULTIPLE BINARY VALUE TABLE FWA             COMCPAC   155
                                                  REDEF  MBV                                                     COMCPAC   156
      L    150  77777760000000000000     SD       DEFINE 20          SECOND DEFAULT TABLE FWA                    COMCPAC   157
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE     9
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           DEFS                COMCPAC 
  
      L    124  00000017777774000000     NOC      DEFINE 20          NUMBER OF OCCURENCES                        COMCPAC   158
      L    100  00000000000003777777     NOP      DEFINE 20          NUMBER OF OPTIONS PER OCCURENCE             COMCPAC   159
                                                                                                                 COMCPAC   160
                                                                                                                 COMCPAC   161
                                                  DESCRIBE KC.,,,2   PARAMETER TABLE WORD C                      COMCPAC   162
                                                                                                                 COMCPAC   163
      L    200  77777777777777777777     STR      DEFINE 60          STRING ATTRIBUTE (-BITS IN LAST WORD)       COMCPAC   164
                                                  REDEF  STR                                                     COMCPAC   165
                                                  DEFINE 3                                                       COMCPAC   166
      L    266  07000000000000000000     AT       DEFINE 3           1ST ATTRIBUTE                               COMCPAC   167
                                                  DEFINE 18*3        REMAINING ATTRIBUTES (18 MORE FIELDS)       COMCPAC   168
                                                                                                                 COMCPAC   169
                                                                                                                 COMCPAC   170
                                   3     Z.KEY    =      3           LENGTH OF PARAMETER TABLE ENTRY             COMCPAC   171
  
  
  
  
                                        **        MULTIPLE BINARY VALUE OPTION TABLE DESCRIPTION.                COMCPAC   173
                                                                                                                 COMCPAC   174
                                                  DESCRIBE KD.,,,0   MULTIPLE BINARY VALUE TABLE WORD A          COMCPAC   175
                                                                                                                 COMCPAC   176
      L     22  77777777777777000000     KOP      DEFINE 7*6         MBV KEYWORD OPTION NAME (0L FORMAT)         COMCPAC   177
      L      0  00000000000000777777     KOA      DEFINE 18          KEYWORD OPTION ADDRESS                      COMCPAC   178
                                                                                                                 COMCPAC   179
                                                                                                                 COMCPAC   180
                                                  DESCRIBE KE.,,,1   MULTIPLE BINARY VALUE TABLE WORD B          COMCPAC   181
                                                                                                                 COMCPAC   182
      L    173  40000000000000000000     SD       DEFINE 1           SECOND DEFAULT (ON=1)                       COMCPAC   183
      L    172  20000000000000000000     IV       DEFINE 1           INITIAL VALUE (ON=1)                        COMCPAC   184
      L    171  10000000000000000000     OFF      DEFINE 1           ALWAYS OFF FLAG                             COMCPAC   185
                                                  DEFINE 57                                                      COMCPAC   186
                                                                                                                 COMCPAC   187
                                                                                                                 COMCPAC   188
                                   2     Z.MBV    =      2           LENGTH OF MULTIPLE BINARY VALUE TABLE ENTRY COMCPAC   189
  
  
  
  
                                   1     ON       =      1                                                       COMCPAC   191
                                   0     OFF      =      0                                                       COMCPAC   192
  
  
  
  
                                        **        PAC -  PROCESS ARGUMENTS FROM CONTROL STATEMENT.               COMCPAC   194
                                        *                                                                        COMCPAC   195
                                        *         THIS IS THE *PAC* MAIN PROCESSOR.  A COMPLETE DESCRIPTION OF   COMCPAC   196
                                        *         *PAC* IS GIVEN AT THE START OF THIS COMDECK.                   COMCPAC   197
                                        *                                                                        COMCPAC   198
                                        *         ENTRY  FIRST LINE OF CONTROL STATEMENT IS IN RA.CCD ET SEQ.    COMCPAC   199
                                        *                (B1) = 1                                                COMCPAC   200
                                        *                (X1) = ADDRESS OF PARAMETER TABLE                       COMCPAC   201
                                        *                (X2) = LENGTH OF PARAMETER TABLE                        COMCPAC   202
                                        *                (X5) = ADDRESS OF USER FIRST PARAMETER PROCESSOR        COMCPAC   203
                                        *                       OR ZERO IF NONE                                  COMCPAC   204
                                        *                (X6) = ADDRESS USER ERROR PROCESSOR OR ZERO IF NONE     COMCPAC   205
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    10
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                        *                (X7) = ADDRESS OF USER CONTINUATION LINE PROCESSOR      COMCPAC   206
                                        *                       OR ZERO IF NONE.  THE *CONTRLC* MACRO WILL BE    COMCPAC   207
                                        *                       USED TO READ THE NEXT CONTROL STATEMENT IF NO    COMCPAC   208
                                        *                       USER CONTINUATION LINE PROCESSOR IS SPECIFIED.   COMCPAC   209
                                        *                                                                        COMCPAC   210
                                        *         EXIT   (B1) = 1                                                COMCPAC   211
                                        *                (B3) = MODE:  -1 = NORMAL,  0 = QUOTE ($)               COMCPAC   212
                                        *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)           COMCPAC   213
                                        *                (A5) _ CURRENT WORD OF LINE IMAGE                       COMCPAC   214
                                        *                (X5) = CURRENT WORD OF LINE IMAGE                       COMCPAC   215
                                        *                       I.E. (B5,A5,X5) POINT TO THE CHARACTER FOLLOWING COMCPAC   216
                                        *                       THE TERMINATOR.                                  COMCPAC   217
                                        *                (ERR.CNT) = NUMBER OF ERRORS ENCOUNTERED                COMCPAC   218
                                        *                ARGUMENTS PROCESSED                                     COMCPAC   219
                                        *                                                                        COMCPAC   220
                                        *         USES   ALL                                                     COMCPAC   221
                                        *                RA.CCD TO RA.CCD+7                                      COMCPAC   222
                                        *                                                                        COMCPAC   223
                                        *         CALL   CFV, DEM, DXB=, GNA, GNC, MSG=, SFN=, SYS=              COMCPAC   224
                                                                                                                 COMCPAC   225
                                                                                                                 COMCPAC   226
            35  0400400035 +             PAC      SUBR               ...ENTRY/EXIT...                            COMCPAC   227
            36  5160000266 +                      SA6    DEMA        SAVE USER ERROR PROCESSOR                   COMCPAC   228
                          5170000426 +            SA7    GNCC        SAVE USER CONTINUATION LINE PROCESSOR ADDR  COMCPAC   229
            37  10611                             BX6    X1                                                      COMCPAC   230
                     22702                        LX7    X2                                                      COMCPAC   231
                          5160000234 +            SA6    PACB        SAVE ADDRESS OF PARAMETER TABLE             COMCPAC   232
            40  66500                             SB5    B0                                                      COMCPAC   233
                     10655                        BX6    X5                                                      COMCPAC   234
                          54761                   SA7    A6+B1       SAVE LENGTH OF PARAMETER TABLE              COMCPAC   235
                               54671              SA6    A7+B1       SAVE USER FIRST PARAMETER PROCESSOR         COMCPAC   236
                                                                                                                 COMCPAC   237
                                        *         SKIP LEADING BLANKS.                                           COMCPAC   238
                                                                                                                 COMCPAC   239
            41  66300                    PAC2     SB3    B0                                                      COMCPAC   240
                     0100000356 +                 RJ     GNC                                                     COMCPAC   241
            42  6274777722                        SB7    X4-1R                                                   COMCPAC   242
                          0470000041 +            ZR     B7,PAC2     IF STILL BLANK                              COMCPAC   243
                                                                                                                 COMCPAC   244
                                        *         SKIP VERB OR LOADER *EXECUTE* DIRECTIVE.                       COMCPAC   245
                                                                                                                 COMCPAC   246
            43  7160000000                        SX6    0+                                                      COMCPAC   247
                          6130000000              SB3    0+                                                      COMCPAC   248
            44  20606                    PAC4     LX6    6                                                       COMCPAC   249
                     12664                        BX6    X6+X4       COLLECT NEXT CHARACTER                      COMCPAC   250
                          0100000356 +            RJ     GNC                                                     COMCPAC   251
            45  6274777732                        SB7    X4-1R9-1                                                COMCPAC   252
                          0770000044 +            MI     B7,PAC4     IF STILL VERB                               COMCPAC   253
                                                                                                                 COMCPAC   254
                                        *         RETURN IF TERMINATOR.                                          COMCPAC   255
                                                                                                                 COMCPAC   256
            46  6130777776                        SB3    -1          SET NORMAL MODE                             COMCPAC   257
                          6274777720              SB7    X4-1R.                                                  COMCPAC   258
            47  6264777725                        SB6    X4-1R)                                                  COMCPAC   259
                          0470000035 +            ZR     B7,EXIT.    IF TERMINATOR, DONE...                      COMCPAC   260
            50  0460000035 +                      ZR     B6,EXIT.    IF TERMINATOR, DONE...                      COMCPAC   261
                                                                                                                 COMCPAC   262
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    11
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                        *         CHECK FOR LOADER *EXECUTE* DIRECTIVE.                          COMCPAC   263
                                                                                                                 COMCPAC   264
                          5120002137 +            SA2    =7REXECUTE                                              COMCPAC   265
            51  37626                             IX6    X2-X6                                                   COMCPAC   266
                     0316000055 +                 NZ     X6,PAC6     IF NOT EXECUTE                              COMCPAC   267
                               20222              LX2    3*6         7LEXECUTE                                   COMCPAC   268
            52  5130000064                        SA3    RA.PGN      PROGRAM NAME                                COMCPAC   269
                          43052                   MX0    7*6                                                     COMCPAC   270
                               11303              BX3    X0*X3                                                   COMCPAC   271
            53  37623                             IX6    X2-X3                                                   COMCPAC   272
                     0306000055 +                 ZR     X6,PAC6     IF VERB IS EXECUTE                          COMCPAC   273
                               76010              SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   274
            54  0100000342 +                      RJ     GNA         SKIP THE VERB                               COMCPAC   275
                                                                                                                 COMCPAC   276
                                        *         CHECK FOR USER FIRST PARAMETER PROCESSOR.                      COMCPAC   277
                                                                                                                 COMCPAC   278
            55  5110000236 +             PAC6     SA1    PACB+2                                                  COMCPAC   279
                          0301000063 +            ZR     X1,PAC10    IF NO USER PROCESSOR                        COMCPAC   280
  
  
  
  
                                        **        PAC.UFP - USER FIRST PARAMETER PROCESSING.                     COMCPAC   282
                                        *                                                                        COMCPAC   283
                                        *         EXIT   (B3,B4,B5,A5,X5) = AS IN *PAC.RET* (SEE BELOW)          COMCPAC   284
                                        *                                                                        COMCPAC   285
                                        *         REENTRY AT *PAC.RET* (SEE BELOW)                               COMCPAC   286
                                                                                                                 COMCPAC   287
                                                                                                                 COMCPAC   288
            56                           PAC.UFP  BSS                                                            COMCPAC   289
            56  63610                             SB6    X1                                                      COMCPAC   290
                     0266000000                   JP     B6          JUMP TO USER FIRST PARAMETER PROCESSOR      COMCPAC   291
  
  
  
  
                                        **        PAC.RET - PROCESS NEXT PARAMETER.                              COMCPAC   293
                                        *                                                                        COMCPAC   294
                                        *         THIS IS THE PAC MAIN LOOP NODE.  ALL PARAMETER PROCESSORS,     COMCPAC   295
                                        *         INCLUDING USER FIRST PARAMETER AND NON-STANDARD PROCESSORS,    COMCPAC   296
                                        *         RE-ENTER HERE.  IF REQUESTED, THE PREVIOUS PARAMETER TABLE     COMCPAC   297
                                        *         IS UPDATED BEFORE PROCESSING THE NEXT PARAMETER.               COMCPAC   298
                                        *                                                                        COMCPAC   299
                                        *         ENTRY  (B1) = 1                                                COMCPAC   300
                                        *                (B2) = NUMBER OF OPTION SUBFIELDS REMAINING (OR 0 IF    COMCPAC   301
                                        *                       RETURNING FROM PROCESSOR)                        COMCPAC   302
                                        *                (B3) = MODE:  -1 = NORMAL,  0= QUOTE ($)                COMCPAC   303
                                        *                (B4) = TYPE OF CHARACTER AFTER THE PRECEEDING PARAMETER COMCPAC   304
                                        *                (B5) = NUMBER OF CHARACTERS REMAINING IN X5             COMCPAC   305
                                        *                (B7) = ADDRESS+1 OF LAST OPTION STORED (OR - ADDRESS    COMCPAC   306
                                        *                       OF USER PROCESSOR).  IF (B7) = 0, THE PARAMETER  COMCPAC   307
                                        *                       TABLE WILL NOT BE UPDATED AND (B2), (A0) ARE     COMCPAC   308
                                        *                       IGNORED.                                         COMCPAC   309
                                        *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                  COMCPAC   310
                                        *                (A5) _ CURRENT WORD OF LINE IMAGE                       COMCPAC   311
                                        *                (X5) = CURRENT WORD OF LINE IMAGE                       COMCPAC   312
                                                                                                                 COMCPAC   313
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    12
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
            57                           PAC.RET  BSS                ...MAIN LOOP NODE                           COMCPAC   314
            57  0470000063 +                      ZR     B7,PAC10    IF NOTHING TO UPDATE                        COMCPAC   315
                          5010777776              SA1    A0-KB.W+KA.W      WORD A                                COMCPAC   316
            60  43452                             MX4    -KA.POAL                                                COMCPAC   317
                     54200                        SA2    A0          WORD B                                      COMCPAC   318
                          43301                   MX3    1                                                       COMCPAC   319
                               11641              BX6    X4*X1       (X6) = 0LKEYWORD                            COMCPAC   320
            61  20325                             LX3    KB.NOCP-59                                              COMCPAC   321
                     76172                        SX1    B7+B2       ADDRESS TO STORE NEXT OPTION GROUP          COMCPAC   322
                          37723                   IX7    X2-X3       DECREMENT NUMBER OF OCCURENCES              COMCPAC   323
                               15114              BX1    -X4*X1      TRUNCATE TO KA.POAL                         COMCPAC   324
            62  54720                             SA7    A2          UPDATE WORD B                               COMCPAC   325
                     12661                        BX6    X6+X1                                                   COMCPAC   326
                          5061000000              SA6    A1+         UPDATE POA FIELD                            COMCPAC   327
                                                                                                                 COMCPAC   328
                                                                                                                 COMCPAC   329
                                        **        PROCESS NEXT PARAMETER.                                        COMCPAC   330
                                                                                                                 COMCPAC   331
            63                           PAC10    BSS                                                            COMCPAC   332
            63  7164777773                        SX6    B4-O.MINUS                                              COMCPAC   333
                          0740000035 +            MI     B4,EXIT.    IF TERMINATOR, DONE...                      COMCPAC   334
            64  5160000231 +                      SA6    PACA        INDICATE POSSIBLE MINUS SIGN PREFIX         COMCPAC   335
                          7100000001              SX0    1           DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   336
            65  0100000342 +                      RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   337
            66  0306000063 +                      ZR     X6,PAC10    IF EMPTY ARGUMENT, IGNORE                   COMCPAC   338
                          5110000234 +            SA1    PACB        START OF PARAMETER TABLE                    COMCPAC   339
            67  43352                             MX3    KA.KEYL                                                 COMCPAC   340
                     54411                        SA4    A1+B1                                                   COMCPAC   341
                          5221000000              SA2    X1+         LENGTH OF PARAMETER TABLE                   COMCPAC   342
            70  6274000000                        SB7    X4+                                                     COMCPAC   343
                          5160000273 +            SA6    ERR.FLD     SAVE SEARCHED FOR PARAMETER                 COMCPAC   344
                                                                                                                 COMCPAC   345
                                        *         SEARCH PARAMETER TABLE.                                        COMCPAC   346
                                                                                                                 COMCPAC   347
            71  11432                    PAC12    BX4    X3*X2       EXTRACT KEY                                 COMCPAC   348
                                   0              ERRNZ  60-KA.KEYL-KA.KEYP                                      COMCPAC   349
                     6177777774                   SB7    B7-Z.KEY                                                COMCPAC   350
                               13746              BX7    X4-X6                                                   COMCPAC   351
            72  0307000074 +                      ZR     X7,PAC14    IF FOUND                                    COMCPAC   352
                          5022000003              SA2    A2+Z.KEY    NEXT TABLE ENTRY                            COMCPAC   353
            73  0707000071 +                      GT     B7,PAC12    IF MORE KEYS TO CHECK                       COMCPAC   354
                          0400000333 +            EQ     E.UA        ** UNRECOGNIZED ARGUMENT **                 COMCPAC   355
                                                                                                                 COMCPAC   356
                                        *         PROCESS PARAMETER ITEM.                                        COMCPAC   357
                                                                                                                 COMCPAC   358
                                         PAC14    LX2    -KA.POAP                                                COMCPAC   359
            74  63720                             SB7    X2          PARAMETER OPTION ADDRESS                    COMCPAC   360
                                   0              ERRMI  KA.POAL-18  FIELD .GE. 18 ASSUMED                       COMCPAC   361
                     5022000001                   SA2    A2+KB.W     WORD B                                      COMCPAC   362
            75  7134777774                        SX3    B4-O.EQUAL                                              COMCPAC   363
                                                  LX2    -KB.NOPP                                                COMCPAC   364
                          54020                   SA0    A2          SAVE WORD B POINTER                         COMCPAC   365
                               63220              SB2    X2          NUMBER OF OPTIONS                           COMCPAC   366
                                   2              ERRMI  KB.NOPL-18  FIELD .GE. 18 ASSUMED                       COMCPAC   367
            76  20224                             LX2    KB.NOPP-KB.SDP                                          COMCPAC   368
                     73120                        SX1    X2          SECOND DEFAULT                              COMCPAC   369
                                   2              ERRMI  KB.SDL-18   FIELD .GE. 18 ASSUMED                       COMCPAC   370
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    13
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                          20224                   LX2    KB.SDP-KB.NOCP                                          COMCPAC   371
            77  7222000000                        SX2    X2+         NUMBER OF OCCURENCES                        COMCPAC   372
                                   2              ERRMI  KB.NOCL-18  FIELD .GE. 18 ASSUMED                       COMCPAC   373
                                                                                                                 COMCPAC   374
                                                                                                                 COMCPAC   375
                                        **        TRANSFER TO PARAMETER PROCESSOR.                               COMCPAC   376
                                        *                                                                        COMCPAC   377
                                        *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                        COMCPAC   378
                                        *                (B7) = FWA PARAMETER OPTION AREA (- IF PROCESSOR)       COMCPAC   379
                                        *                (A0) _ WORD B OF PARAMETER TABLE                        COMCPAC   380
                                        *                (X1) = FWA SECOND DEFAULT TABLE (- IF BV, 0 IF NONE)    COMCPAC   381
                                        *                (X2) = NUMBER OF OCCURENCES ALLOWED                     COMCPAC   382
                                        *                (X3) = 0 IF *=* FOLLOWS THIS KEY                        COMCPAC   383
                                                                                                                 COMCPAC   384
                          0302000327 +            ZR     X2,E.TMOC   IF ** TOO MANY OCCURENCES **                COMCPAC   385
           100  0770000230 +                      MI     B7,PAC.UAP  IF SPECIAL, CALL USER ARGUMENT PROCESSOR    COMCPAC   386
                          0470000172 +            ZR     B7,PAC60    IF MULTIPLE BINARY VALUE PARAMETER          COMCPAC   387
           101  0331000161 +                      MI     X1,PAC50    IF BINARY VALUE PARAMETER                   COMCPAC   388
                          0303000107 +            ZR     X3,PAC30    IF = FOLLOWS PARAMETER KEYWORD              COMCPAC   389
           102  0301000320 +                      ZR     X1,E.NE     IF ** = REQUIRED **                         COMCPAC   390
                          5211000000              SA1    X1+                                                     COMCPAC   391
                                                                                                                 COMCPAC   392
                                                                                                                 COMCPAC   393
                                        **        PROCESS *PARAM* OR *-PARAM* SYNTAX FOR SPECIFIED VALUE PARAM.  COMCPAC   394
                                        *                                                                        COMCPAC   395
                                        *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                        COMCPAC   396
                                        *                (B7) = FWA PARAMETER OPTION AREA                        COMCPAC   397
                                        *                (A1) = FWA SECOND DEFAULT LIST                          COMCPAC   398
                                                                                                                 COMCPAC   399
                                                                                                                 COMCPAC   400
           103  5120000231 +                      SA2    PACA        MINUS FLAG                                  COMCPAC   401
                          0302000226 +            ZR     X2,PAC100   IF MINUS PRESENT, ZERO ALL OPTIONS          COMCPAC   402
                                                                                                                 COMCPAC   403
                                                                                                                 COMCPAC   404
                                        **        PROCESS SECOND DEFAULT FOR SPECIFIED VALUE PARAMETERS.         COMCPAC   405
                                                                                                                 COMCPAC   406
           104                           PAC20    BSS                                                            COMCPAC   407
           104  10611                             BX6    X1                                                      COMCPAC   408
                     67221                        SB2    B2-B1                                                   COMCPAC   409
                          56670                   SA6    B7          UPDATE NEXT OPTION                          COMCPAC   410
                               54111              SA1    A1+B1                                                   COMCPAC   411
           105  6177000001                        SB7    B7+1                                                    COMCPAC   412
                          0520000104 +            NZ     B2,PAC20    IF MORE OPTIONS                             COMCPAC   413
           106  0400000057 +                      EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   414
                                                                                                                 COMCPAC   415
                                                                                                                 COMCPAC   416
                                        **        PROCESS SPECIFIED VALUE PARAMETER OPTIONS.                     COMCPAC   417
                                                                                                                 COMCPAC   418
           107                           PAC30    BSS                                                            COMCPAC   419
           107  5040000001                        SA4    A0-KB.W+KC.W      GET WORD C                            COMCPAC   420
                          5120000231 +            SA2    PACA        MINUS FLAG                                  COMCPAC   421
           110  10744                             BX7    X4                                                      COMCPAC   422
                     0302000316 +                 ZR     X2,E.ME     IF ** - AND = NOT ALLOWED **                COMCPAC   423
           111  0327000124 +                      PL     X7,PAC36    IF NOT A STRING OPTION                      FC5A284     5
                                                                                                                 COMCPAC   425
                                                                                                                 COMCPAC   426
                                        **        PROCESS STRING ATTRIBUTES.                                     COMCPAC   427
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    14
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                        *                                                                        COMCPAC   428
                                        *         ENTRY  (B2) = NUMBER OF OPTIONS LEFT                           COMCPAC   429
                                        *                (B7) = NEXT PARAMETER STORE ADDRESS                     COMCPAC   430
                                        *                (A0) _ WORD B                                           COMCPAC   431
                                        *                (X7) = -(NUMBER OF BITS ALLOWED IN LAST WORD OF STRING) COMCPAC   432
                                                                                                                 COMCPAC   433
           112                           PAC32    BSS                                                            COMCPAC   434
           112  76000                             SX0    B0          ALLOW .GT. 10 CHARACTERS                    COMCPAC   435
                     0100000342 +                 RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   436
           113  56670                             SA6    B7          STORE THIS WORD                             COMCPAC   437
                     67221                        SB2    B2-B1                                                   COMCPAC   438
                          6177000001              SB7    B7+1                                                    COMCPAC   439
           114  0540000117 +                      NZ     B4,PAC34    IF END OF STRING                            COMCPAC   440
                          0520000112 +            NZ     B2,PAC32    IF NOT END OF SUBFIELDS                     COMCPAC   441
                                                                                                                 FC5A284     6
           115  43152                    PAC33    MX1    KA.KEYL                                                 COMCPAC   442
                     5020777776                   SA2    A0-KB.W+KA.W                                            COMCPAC   443
                               11612              BX6    X1*X2       EXTRACT PARAMETER NAME                      COMCPAC   444
           116  5160000273 +                      SA6    ERR.FLD     STORE PARAMETER NAME                        COMCPAC   445
                          0400000322 +            EQ     E.STL       ** STRING TOO LONG **                       COMCPAC   446
                                                                                                                 COMCPAC   447
                                        *         CHECK FOR STRING TOO LONG.                                     COMCPAC   448
                                                                                                                 COMCPAC   449
           117  0520000226 +             PAC34    NZ     B2,PAC100   IF NOT LAST WORD                            COMCPAC   450
                          6120000066              SB2    9*6                                                     COMCPAC   451
           120  67626                             SB6    B2-B6       NUMBER OF BITS IN X6                        COMCPAC   452
                     63276                        SB2    B6+X7       NUMBER OF EXCESS BITS IN X6                 COMCPAC   453
                          0702000122 +            GT     B2,PAC35    IF TOO LONG                                 COMCPAC   454
           121  66200                             SB2    B0                                                      COMCPAC   455
                     0400000057 +                 EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   456
                                                                                                                 COMCPAC   457
           122  63671                    PAC35    SB6    X7+B1                                                   COMCPAC   458
                     43101                        MX1    1                                                       COMCPAC   459
                          22061                   LX0    X1,B6       FORM MASK                                   COMCPAC   460
                               11606              BX6    X0*X6       TRUNCATE STRING                             COMCPAC   461
           123  57671                             SA6    B7-B1       RESTORE LAST WORD OF STRING                 COMCPAC   462
                     0400000115 +                 EQ     PAC33       FLAG THE ERROR                              COMCPAC   463
                                                                                                                 COMCPAC   464
                                                                                                                 COMCPAC   465
                                        **        PROCESS SPECIFIED VALUE OPTIONS SEPARATED BY /.                COMCPAC   466
                                        *                                                                        COMCPAC   467
                                        *         ENTRY  (B2) = NUMBER OF OPTIONS REMAINING                      COMCPAC   468
                                        *                (B7) = NEXT ADDRESS TO STORE ARGUMENT                   COMCPAC   469
                                        *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                  COMCPAC   470
                                        *                (X7) = WORD C OF PARAMETER TABLE ENTRY                  COMCPAC   471
                                                                                                                 COMCPAC   472
           124  20703                    PAC36    LX7    KC.ATL      POSITION FIRST ATTRIBUTE                    FC5A284     7
                                   0              ERRNZ  60-2*KC.ATL-KC.ATP                                      COMCPAC   475
                                                                                                                 COMCPAC   476
           125  76010                    PAC38    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             FC5A284     8
                     0100000342 +                 RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   478
           126  0316000127 +                      NZ     X6,PAC39    IF ARTIFACT NOT SEPERATOR, ETC.             FC5A284     9
                          20406                   LX4    6           SHIFT CHARACTER                             FC5A284    10
                               10644              BX6    X4                                                      FC5A284    11
                                                                                                                 FC5A284    12
           127  5160000273 +             PAC39    SA6    ERR.FLD                                                 FC5A284    13
                          0420000331 +            ZR     B2,E.TMOP   IF ** TOO MANY OPTIONS **                   COMCPAC   480
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    15
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
           130  67221                             SB2    B2-B1                                                   COMCPAC   481
                     20703                        LX7    KC.ATL                                                  COMCPAC   482
                          0306000140 +            ZR     X6,PAC42    IF NULL PARAMETER                           COMCPAC   483
           131  43471                             MX4    -KC.ATL                                                 COMCPAC   484
                     15474                        BX4    -X4*X7      EXTRACT NEXT ATTRIBUTE                      COMCPAC   485
                          77106                   SX1    -B6                                                     COMCPAC   486
           132  6264000133 +                      SB6    X4+PAC40                                                COMCPAC   487
                          0266000000              JP     B6          PROCESS NEXT OPTION                         COMCPAC   488
                                                                                                                 COMCPAC   489
                                        *         ATTRIBUTE JUMP TABLE.                                          COMCPAC   490
                                                                                                                 COMCPAC   491
           133                           PAC40    BSS                                                            COMCPAC   492
           133  0400000140 +             +        EQ     PAC42       0 = CHARACTER FIELD 0L FORMAT               COMCPAC   493
           134  0400000143 +             +        EQ     PAC44       1 = CHARACTER FIELD 0R FORMAT               COMCPAC   494
           135  0400000145 +             +        EQ     PAC46       2 = FILE NAME                               COMCPAC   495
           136  66670                    +        SB6    B7                                                      COMCPAC   496
                     66710                        SB7    B1                                                      COMCPAC   497
                          0400000147 +            EQ     PAC48       3 = NUMERIC FIELD (DECIMAL ASSUMED)         COMCPAC   498
           137  66670                    +        SB6    B7                                                      COMCPAC   499
                     66700                        SB7    B0                                                      COMCPAC   500
                          0400000147 +            EQ     PAC48       4 = NUMERIC FIELD (OCTAL ASSUMED)           COMCPAC   501
                                                                                                                 COMCPAC   502
                                                                                                                 COMCPAC   503
                                        **        STORE OPTION VALUE.                                            COMCPAC   504
                                        *                                                                        COMCPAC   505
                                        *         ENTRY  (B7) = ADDRESS TO STORE OPTION VALUE                    COMCPAC   506
                                        *                (X6) = OPTION VALUE                                     COMCPAC   507
                                        *                (B2,A0,X7) = AS *PAC38*                                 COMCPAC   508
                                                                                                                 COMCPAC   509
           140                           PAC42    BSS                                                            COMCPAC   510
           140  5167000000                        SA6    B7+         PROCESS CHARACTER FIELD                     COMCPAC   511
                          7114777775              SX1    B4-O.SLASH                                              COMCPAC   512
           141  6177000001                        SB7    B7+1                                                    COMCPAC   513
                          0301000125 +            ZR     X1,PAC38    IF MORE OPTIONS                             FC5A284    14
           142  0400000226 +                      EQ     PAC100      ZERO REMAINING OPTION SUBFIELDS             COMCPAC   515
                                                                                                                 COMCPAC   516
                                                                                                                 COMCPAC   517
                                        **        RIGHT JUSTIFY CHARACTER FIELD.                                 COMCPAC   518
                                        *                                                                        COMCPAC   519
                                        *         ENTRY  (X1) = 6 - NUMBER OF UNUSED BIT IN (X6)                 COMCPAC   520
                                        *                (X6) = CHARACTER FIELD, LEFT JUSTIFIED                  COMCPAC   521
                                                                                                                 COMCPAC   522
           143                           PAC44    BSS                                                            COMCPAC   523
           143  6261000066                        SB6    60+X1-6                                                 COMCPAC   524
                          22666                   LX6    X6,B6                                                   COMCPAC   525
           144  0400000140 +                      EQ     PAC42       STORE OPTION VALUE                          COMCPAC   526
                                                                                                                 COMCPAC   527
                                                                                                                 COMCPAC   528
                                        **        CHECK FILE NAME OPTION.                                        COMCPAC   529
                                        *                                                                        COMCPAC   530
                                        *         ENTRY  (X6) = FILENAME 0L FORMAT                               COMCPAC   531
                                                                                                                 COMCPAC   532
           145                           PAC46    BSS                                                            COMCPAC   533
           145  10166                             BX1    X6                                                      COMCPAC   534
                     0100000237 +                 RJ     CFV         CHECK FILE NAME VALIDITY                    COMCPAC   535
           146  0304000140 +                      ZR     X4,PAC42    IF NAME OK                                  COMCPAC   536
                          0400000312 +            EQ     E.IFN       ** ILLEGAL FILE NAME **                     COMCPAC   537
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    16
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                                                                                                 COMCPAC   538
                                                                                                                 COMCPAC   539
                                        **        CONVERT NUMERIC OPTION.                                        COMCPAC   540
                                        *                                                                        COMCPAC   541
                                        *         ENTRY  (B6) = SAVED (B7)                                       COMCPAC   542
                                        *                (B7) = 1 IF ASSUMED DECIMAL, 0 IF OCTAL                 COMCPAC   543
                                        *                (X6) = VALUE TO CONVERT                                 COMCPAC   544
                                                                                                                 COMCPAC   545
           147                           PAC48    BSS                SAVE REGISTERS                              COMCPAC   546
           147  5170000231 +                      SA7    PACA        (X7)                                        COMCPAC   547
                          10755                   BX7    X5                                                      COMCPAC   548
                               22506              LX5    X6                                                      COMCPAC   549
           150  54771                             SA7    A7+B1       (X5)                                        COMCPAC   550
                     43052                        MX0    -18                                                     COMCPAC   551
                          76620                   SX6    B2                                                      COMCPAC   552
                               76740              SX7    B4                                                      COMCPAC   553
           151  15770                             BX7    -X0*X7                                                  COMCPAC   554
                     20650                        LX6    40                                                      COMCPAC   555
                          20724                   LX7    20                                                      COMCPAC   556
                               12667              BX6    X6+X7                                                   COMCPAC   557
           152  76750                             SX7    B5                                                      COMCPAC   558
                     15770                        BX7    -X0*X7                                                  COMCPAC   559
                          12667                   BX6    X6+X7                                                   COMCPAC   560
                               54671              SA6    A7+B1       (B2,B4,B5)                                  COMCPAC   561
           153  0100000000 X                      RJ     =XDXB       CHECK AND CONVERT NUMBER                    COMCPAC   562
           154  5110000231 +                      SA1    PACA        RESTORE REGISTERS                           COMCPAC   563
                          54211                   SA2    A1+B1                                                   COMCPAC   564
                               10711              BX7    X1          (X7)                                        COMCPAC   565
           155  54321                             SA3    A2+B1                                                   COMCPAC   566
                     22502                        LX5    X2          (X5)                                        COMCPAC   567
                          63530                   SB5    X3          (B5)                                        COMCPAC   568
                               21324              AX3    20                                                      COMCPAC   569
           156  63430                             SB4    X3          (B4)                                        COMCPAC   570
                     67301                        SB3    -B1         (B3)                                        COMCPAC   571
                          21324                   AX3    20                                                      COMCPAC   572
                               63230              SB2    X3          (B2)                                        COMCPAC   573
           157  6176000000                        SB7    B6+         (B7)                                        COMCPAC   574
                          0304000140 +            ZR     X4,PAC42    IF NUMBER OK                                COMCPAC   575
           160  0400000314 +                      EQ     E.IN        ** ILLEGAL NUMERIC **                       COMCPAC   576
                                                                                                                 COMCPAC   577
                                                                                                                 COMCPAC   578
                                        **        PROCESS BINARY VALUE PARAMETER.                                COMCPAC   579
                                        *                                                                        COMCPAC   580
                                        *         ENTRY  (B7) = ADDRESS TO STORE SWITCH:  ON=1S59, OFF=0         COMCPAC   581
                                        *                (X3) = 0 IF *=* AFTER PARAMETER KEYWORD                 COMCPAC   582
                                        *                (PACA) = 0 IF MINUS BEFORE KEYWORD, ELSE .NE. 0         COMCPAC   583
                                                                                                                 COMCPAC   584
           161                           PAC50    BSS                                                            COMCPAC   585
           161  5120000231 +                      SA2    PACA        MINUS FLAG                                  COMCPAC   586
                          7170000000              SX7    OFF                                                     COMCPAC   587
           162  0302000164 +                      ZR     X2,PAC52    IF MINUS PRESENT                            COMCPAC   588
                          0303000165 +            ZR     X3,PAC54    IF EQUAL PRESENT                            COMCPAC   589
           163  43701                             MX7    ON                                                      COMCPAC   590
                     0400000171 +                 EQ     PAC56       SET SWITCH                                  COMCPAC   591
                                                                                                                 COMCPAC   592
           164  0303000316 +             PAC52    ZR     X3,E.ME     IF ** - AND = NOT ALLOWED **                COMCPAC   593
                          0400000171 +            EQ     PAC56       SET SWITCH                                  COMCPAC   594
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    17
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                                                                                                 COMCPAC   595
           165  76010                    PAC54    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   596
                     0100000342 +                 RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   597
           166  0306000171 +                      ZR     X6,PAC56    IF NULL, OK                                 COMCPAC   598
                          20614                   LX6    2*6                                                     COMCPAC   599
           167  7246774477                        SX4    X6-2R0 +1R                                              COMCPAC   600
                          0304000171 +            ZR     X4,PAC56    IF 0, OK                                    COMCPAC   601
           170  0400000304 +                      EQ     E.IBV       ** ILLEGAL BINARY VALUE **                  COMCPAC   602
                                                                                                                 COMCPAC   603
           171  56770                    PAC56    SA7    B7                                                      COMCPAC   604
                     0400000057 +                 EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   605
                                                                                                                 COMCPAC   606
                                                                                                                 COMCPAC   607
                                        **        PROCESS MULTIPLE BINARY VALUE PARAMETER.                       COMCPAC   608
                                        *                                                                        COMCPAC   609
                                        *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                        COMCPAC   610
                                        *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                  COMCPAC   611
                                        *                (X1) = MBV TABLE ADDRESS                                COMCPAC   612
                                        *                (X3) = 0 IF *=* FOLLOWS PARAMETER KEYWORD               COMCPAC   613
                                                                                                                 COMCPAC   614
           172                           PAC60    BSS                                                            COMCPAC   615
                                   0              ERRNZ  KB.MBVP-KB.SDP    MBV FIELD = SD FIELD ASSUMED          COMCPAC   616
           172  6172000000                        SB7    B2+                                                     COMCPAC   617
                          6160000000              SB6    59-KE.SDP   SECOND DEFAULT                              COMCPAC   618
           173  0313000175 +                      NZ     X3,PAC62    IF NO =                                     COMCPAC   619
                          5120000231 +            SA2    PACA        MINUS FLAG                                  COMCPAC   620
           174  6160000001                        SB6    59-KE.IVP   INITIAL VALUE                               COMCPAC   621
                          0302000316 +            ZR     X2,E.ME     IF ** - AND = NOT ALLOWED **                COMCPAC   622
                                                                                                                 COMCPAC   623
                                        *         INITIALIZE TO SECOND DEFAULT OR INITIAL VALUE.                 COMCPAC   624
                                                                                                                 COMCPAC   625
           175  5221000000               PAC62    SA2    X1+KD.W     MBV WORD A                                  COMCPAC   626
           176  5042000001               PAC64    SA4    A2-KD.W+KE.W      MBV WORD B                            COMCPAC   627
                          43701                   MX7    ON                                                      COMCPAC   628
                               22464              LX4    X4,B6                                                   COMCPAC   629
           177  0334000200 +                      MI     X4,PAC66    IF ON                                       COMCPAC   630
                          7170000000              SX7    OFF                                                     COMCPAC   631
           200  5272000000               PAC66    SA7    X2+         STORE BINARY VALUE                          COMCPAC   632
                                   0              ERRNZ  KD.KOAP     LOWER 18 BITS ASSUMED                       COMCPAC   633
                          6177777776              SB7    B7-1                                                    COMCPAC   634
           201  0470000203 +                      ZR     B7,PAC68    IF DONE                                     COMCPAC   635
                          5022000002              SA2    A2+Z.MBV                                                COMCPAC   636
           202  0400000176 +                      EQ     PAC64       SETUP NEXT ENTRY                            COMCPAC   637
                                                                                                                 COMCPAC   638
                                        *         SET SELECTED OPTIONS IF PRESENT.                               COMCPAC   639
                                                                                                                 COMCPAC   640
           203  0313000225 +             PAC68    NZ     X3,PAC80    IF NO =                                     COMCPAC   641
                          43701                   MX7    ON                                                      COMCPAC   642
                               63710              SB7    X1          SAVE MBV TABLE ADDRESS                      COMCPAC   643
                                                                                                                 COMCPAC   644
                                        *         GET NEXT OPTION.                                               COMCPAC   645
                                                                                                                 COMCPAC   646
           204  7100000001               PAC70    SX0    1           DO NOT ALLOW .GT. 10 CHARACTERS             COMCPAC   647
                          0100000342 +            RJ     GNA         GET NEXT ARTIFACT                           COMCPAC   648
           205  0316000213 +                      NZ     X6,PAC74    IF AN OPTION                                COMCPAC   649
                                                                                                                 COMCPAC   650
                                        *         CHECK FOR MINUS.                                               COMCPAC   651
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    18
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                                                                                                                 COMCPAC   652
                          7134777773              SX3    B4-O.MINUS                                              COMCPAC   653
           206  0313000211 +                      NZ     X3,PAC72    IF NOT A MINUS                              COMCPAC   654
                          5110000231 +            SA1    PACA        MINUS FLAG                                  COMCPAC   655
           207  0301000225 +                      ZR     X1,PAC80    IF ALREADY A MINUS                          COMCPAC   656
                          7170000000              SX7    OFF                                                     COMCPAC   657
           210  0400000204 +                      EQ     PAC70       GO FOR MORE                                 COMCPAC   658
                                                                                                                 COMCPAC   659
                                        *         CHECK FOR SLASH.                                               COMCPAC   660
                                                                                                                 COMCPAC   661
           211  7134777775               PAC72    SX3    B4-O.SLASH                                              COMCPAC   662
                          0313000225 +            NZ     X3,PAC80    IF NOT A SLASH                              COMCPAC   663
           212  43701                             MX7    ON                                                      COMCPAC   664
                     0400000204 +                 EQ     PAC70       GO FOR MORE                                 COMCPAC   665
                                                                                                                 COMCPAC   666
                                        *         FIND THE OPTION.                                               COMCPAC   667
                                        *                                                                        COMCPAC   668
                                        *         ENTRY  (B2) = NUMBER OF OPTIONS ALLOWED                        COMCPAC   669
                                        *                (B7) = FWA MBV TABLE AREA                               COMCPAC   670
                                        *                (X6) = 0L OPTION                                        COMCPAC   671
                                        *                (X7) = ON OR OFF SWITCH VALUE                           COMCPAC   672
                                                                                                                 COMCPAC   673
           213  43052                    PAC74    MX0    KD.KOPL                                                 COMCPAC   674
                                   0              ERRNZ  60-KD.KOPL-KD.KOPP    ASSUMES UPPER 42                  COMCPAC   675
                     5127000000                   SA2    B7+                                                     COMCPAC   676
                               66620              SB6    B2                                                      COMCPAC   677
           214  5160000273 +                      SA6    ERR.FLD                                                 COMCPAC   678
           215  11402                    PAC76    BX4    X0*X2                                                   COMCPAC   679
                     6166777776                   SB6    B6-1                                                    COMCPAC   680
                               13446              BX4    X4-X6                                                   COMCPAC   681
           216  0304000224 +                      ZR     X4,PAC78    IF FOUND                                    COMCPAC   682
                          5022000002              SA2    A2+Z.MBV    NEXT TABLE ENTRY                            COMCPAC   683
           217  0706000215 +                      GT     B6,PAC76    IF MORE OPTIONS TO CHECK                    FC5A321     7
                          20614                   LX6    2*6                                                     COMCPAC   685
           220  7246774477                        SX4    X6-2R0 +1R                                              COMCPAC   686
                          0314000335 +            NZ     X4,E.UOP    ** UNKNOWN OPTION **                        COMCPAC   687
                                                                                                                 COMCPAC   688
                                        *         OPTION IS *0*.  OFF ALL OPTIONS.                               COMCPAC   689
                                                                                                                 COMCPAC   690
           221  76170                             SX1    B7          MBV TABLE FWA                               COMCPAC   691
                     66620                        SB6    B2          MBV TABLE LENGTH                            COMCPAC   692
                          43700                   MX7    OFF                                                     COMCPAC   693
                               53210              =A2    X1+KD.W     MBV 1ST WORD                                COMCPAC   694
           222  53720                    PAC77    SA7    X2                                                      COMCPAC   695
                     67661                        =B6    B6-1                                                    COMCPAC   696
                          0460000211 +            ZR     B6,PAC72    IF DONE                                     COMCPAC   697
           223  5022000002                        SA2    A2+Z.MBV                                                COMCPAC   698
                          0400000222 +            EQ     PAC77       CONTINUE OFFING                             COMCPAC   699
                                                                                                                 COMCPAC   700
                                        *         UPDATE THE OPTION.                                             COMCPAC   701
                                                                                                                 COMCPAC   702
           224  53720                    PAC78    SA7    X2                                                      COMCPAC   703
                                   0              ERRNZ  KD.KOAP     ASSUMES ADDRESS IN LOWER 18                 COMCPAC   704
                     43701                        MX7    ON                                                      COMCPAC   705
                          0400000211 +            EQ     PAC72       GO FOR MORE                                 COMCPAC   706
                                                                                                                 COMCPAC   707
           225  66710                    PAC80    SB7    B1                                                      COMCPAC   708
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    19
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           PAC                 COMCPAC 
  
                     67207                        SB2    -B7         SO B7+B2 = 0                                COMCPAC   709
                          0400000057 +            EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   710
                                                                                                                 COMCPAC   711
                                                                                                                 COMCPAC   712
                                        **        ZERO THE REMAINING OPTION SUBFIELDS.                           COMCPAC   713
                                        *                                                                        COMCPAC   714
                                        *         ENTRY  (B2) = NUMBER OF SUBFIELDS TO ZERO                      COMCPAC   715
                                        *                (B7) = ADDRESS OF NEXT SUBFIELD                         COMCPAC   716
                                                                                                                 COMCPAC   717
           226                           PAC100   BSS                                                            COMCPAC   718
           226  0420000057 +                      ZR     B2,PAC.RET  IF DONE, RE-ENTER MAIN LOOP...              COMCPAC   719
                          13666                   BX6    X6-X6                                                   COMCPAC   720
                               67221              SB2    B2-B1                                                   COMCPAC   721
           227  56670                             SA6    B7                                                      COMCPAC   722
                     66771                        SB7    B7+B1                                                   COMCPAC   723
                          0400000226 +            EQ     PAC100      MORE TO ZERO                                COMCPAC   724
  
  
  
  
                                        **        PAC.UAP - USER ARGUMENT PROCESSOR.                             COMCPAC   726
                                        *                                                                        COMCPAC   727
                                        *         EXITS TO USER ARGUMENT PROCESSOR.  USER RE-ENTERS AT           COMCPAC   728
                                        *         *PAC.RET*.  SEE *PAC.RET* FOR RE-ENTRY CONDITIONS.  THE        COMCPAC   729
                                        *         VALUE OF B7 WILL OVERRIDE THE VALUE DEFINED BY THE *POA*       COMCPAC   730
                                        *         PARAMETER ON THE *PARAM* MACRO.                                COMCPAC   731
                                        *                                                                        COMCPAC   732
                                        *         EXIT   (B1) = 1                                                COMCPAC   733
                                        *                (B2) = NUMBER OF OPTION SUBFIELDS ALLOWED               COMCPAC   734
                                        *                (B4) = CHARACTER TYPE (SEE *GNC*)                       COMCPAC   735
                                        *                (B7) = ADDRESS OF USER PROCESSOR                        COMCPAC   736
                                        *                (A0) _ WORD B OF PARAMETER TABLE ENTRY                  COMCPAC   737
                                        *                (X1) = FWA OF SECOND DEFAULT LIST                       COMCPAC   738
                                        *                (X2) = NUMBER OF OCCURENCES ALLOWED                     COMCPAC   739
                                        *                (X3) = 0 IF *=* FOLLOWS KEYWORD                         COMCPAC   740
                                        *                                                                        COMCPAC   741
                                        *         REENTRY TO *PAC.RET* (SEE FOR REQUIREMENTS)                    COMCPAC   742
                                                                                                                 COMCPAC   743
                                                                                                                 COMCPAC   744
           230                           PAC.UAP  BSS                                                            COMCPAC   745
           230  67707                             SB7    -B7                                                     COMCPAC   746
                     0277000000                   JP     B7          PROCESS SPECIAL ARGUMENTS                   COMCPAC   747
  
  
  
  
           231  00000000000000000000     PACA     CON    0           SWITCH VALUE AND USED TO SAVE X7            COMCPAC   749
           232  00000000000000000000              CON    0           SAVE X5                                     COMCPAC   750
           233  00000000000000000000              CON    0           SAVE B2,B4,B5                               COMCPAC   751
           234  00000000000000000000     PACB     CON    0           FWA OF PARAMETER TABLE                      COMCPAC   752
           235  00000000000000000000              CON    0           LENGTH OF PARAMETER TABLE                   COMCPAC   753
           236  00000000000000000000              CON    0           ADDRESS OF USER FIRST PARAMETER PROCESSOR   COMCPAC   754
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    20
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           CFV                 COMCPAC 
  
                                        **        CFV -  CHECK LOGICAL FILE NAME VALIDITY.                       COMCPAC   756
                                        *                                                                        COMCPAC   757
                                        *         A LEGAL FILE NAME MAY CONTAIN FROM ONE TO SEVEN                COMCPAC   758
                                        *         ALPHANUMERIC CHARACTERS.                                       COMCPAC   759
                                        *                                                                        COMCPAC   760
                                        *         ENTRY  (X1) = NAME TO BE CHECKED (0L FORMAT)                   COMCPAC   761
                                        *                                                                        COMCPAC   762
                                        *         EXIT   (X6) = NAME, TRUNCATED TO 7 CHARACTERS IF NECESSARY     COMCPAC   763
                                        *                       IF NAME WAS *0*, REPLY IS BINARY ZERO.           COMCPAC   764
                                        *                (X4) = 0 IF NAME WAS VALID, ELSE .NE. 0                 COMCPAC   765
                                        *                                                                        COMCPAC   766
                                        *         USES   X - 1, 2, 4, 6                                          COMCPAC   767
                                                                                                                 COMCPAC   768
                                                                                                                 COMCPAC   769
           237  0400400237 +             CFV      SUBR               ...ENTRY/EXIT...                            COMCPAC   770
           240  7221000000                        SX2    X1+                                                     COMCPAC   771
                          37666                   IX6    X6-X6                                                   COMCPAC   772
                               20114              LX1    2*6                                                     COMCPAC   773
           241  7241774477                        SX4    X1-2R0 +1R                                              COMCPAC   774
                          0304000237 +            ZR     X4,EXIT.    IF *0*                                      COMCPAC   775
                                                                                                                 FC5A146     5
                                         .OS      IFNE   .OS,1       IF NOT NOS                                  FC5A146     6
                                                  PL     X4,EXIT.    IF FIRST CHARACTER NOT ALPHABETIC           FC5A146     7
                                         .OS      ENDIF                                                          FC5A146     8
                                                                                                                 FC5A146     9
           242  20160                             LX1    -2*6        RESTORE (X1)                                COMCPAC   776
                     13621                        BX6    X2-X1                                                   COMCPAC   777
                          0312000237 +            NZ     X2,EXIT.    IF MORE THAN 7 CHARS                        COMCPAC   778
           243  43400                             MX4    0                                                       COMCPAC   779
                     0400000237 +                 EQ     EXIT.       DONE...                                     COMCPAC   780
  
  
  
  
                                        **        DEM - DAYFILE ERROR MESSAGES.                                  COMCPAC   782
                                        *                                                                        COMCPAC   783
                                        *         ENTRY  (B6) _ DAYFILE MESSAGE                                  COMCPAC   784
                                        *                (DEMA) = 0 TO DAYFILE THE ERROR MESSAGE ELSE, ADDRESS   COMCPAC   785
                                        *                        OF USER ERROR PROCESSOR TO CALL.  IF (DEMA)=0,  COMCPAC   786
                                        *                        * "PAC.NAME" CONTROL STATEMENT ERRORS --* WILL  COMCPAC   787
                                        *                        BE DISPLAYED THE FIRST TIME IN.                 COMCPAC   788
                                        *                (ERR.FLD) = ARGUMENT FIELD WHICH IS IN ERROR IF ANY.    COMCPAC   789
                                        *                        IF .NE. 0, (ERR.FLD) WILL BE PREFIXED TO        COMCPAC   790
                                        *                        THE MESSAGE IN (B6) (WHICH MUST BE .LE.         COMCPAC   791
                                        *                        3 WORDS LONG).                                  COMCPAC   792
                                        *                                                                        COMCPAC   793
                                        *         USES   B - 6                                                   COMCPAC   794
                                        *                A - 1-3, 6                                              COMCPAC   795
                                        *                X - 0-4, 6                                              COMCPAC   796
                                        *                                                                        COMCPAC   797
                                        *         CALLS  MSG=, SFN= (OR USER ERROR PROCESSOR)                    COMCPAC   798
                                                                                                                 COMCPAC   799
                                                                                                                 COMCPAC   800
           244                           ERR.RET  BSS                ...USER PROCESSOR RETURN                    COMCPAC   801
                                                                                                                 COMCPAC   802
           244  0400400244 +             DEM      SUBR               ...ENTRY/EXIT...                            COMCPAC   803
           245  5120000266 +                      SA2    DEMA                                                    COMCPAC   804
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    21
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           DEM                 COMCPAC 
  
                          0312000265 +            NZ     X2,DEM.UEP  IF USER ERROR PROCESSOR SHOULD BE CALLED    COMCPAC   805
                                                                                                                 COMCPAC   806
           246                           DEM.RET  BSS                ...USER SUPPLEMENTAL PROCESSOR RETURN       COMCPAC   807
           246  5120000300 +                      SA2    ERR.CNT     ERROR COUNT                                 COMCPAC   808
                          73621                   SX6    X2+B1                                                   COMCPAC   809
                               54620              SA6    A2          UPDATE ERROR COUNT                          COMCPAC   810
           247  0312000252 +                      NZ     X2,DEM1     IF NOT FIRST TIME                           COMCPAC   811
                          7110000267 +            MESSAGE  DEMB,,RCL                                             COMCPAC   812
           252  5110000273 +             DEM1     SA1    ERR.FLD                                                 COMCPAC   813
                          0311000256 +            NZ     X1,DEM2     IF ARGUMENT FIELD EXISTS                    COMCPAC   814
           253  76160                             SX1    B6                                                      FC5A158A   10
                     73110                        MESSAGE   X1,,RCL                                              FC5A158A   11
           255  0400000244 +                      EQ     EXIT.       DONE...                                     COMCPAC   816
                                                                                                                 COMCPAC   817
           256  76020                    DEM2     SX0    B2          SAVE B2                                     COMCPAC   818
                     10477                        BX4    X7          SAVE X7                                     COMCPAC   819
                          0100000000 X            RJ     =XSFN=      SPACE FILL NAME                             COMCPAC   820
           257  54610                             SA6    A1          (ERR.FLD)                                   COMCPAC   821
                     56160                        SA1    B6          MESSAGE WORD 1                              COMCPAC   822
                          10611                   BX6    X1                                                      COMCPAC   823
                               54661              SA6    A6+B1                                                   COMCPAC   824
           260  54111                             SA1    A1+B1       MESSAGE WORD 2                              COMCPAC   825
                     10611                        BX6    X1                                                      COMCPAC   826
                          54661                   SA6    A6+B1                                                   COMCPAC   827
           261  5011000001                        SA1    A1+1        MESSAGE WORD 3                              COMCPAC   828
                          10611                   BX6    X1                                                      COMCPAC   829
                               54661              SA6    A6+B1                                                   COMCPAC   830
           262  7110000273 +                      MESSAGE ERR.FLD,,RCL                                           COMCPAC   831
           264  63200                             SB2    X0          RESTORE B2                                  COMCPAC   832
                     10744                        BX7    X4          RETORE X7                                   COMCPAC   833
                          0400000244 +            EQ     EXIT.       DONE...                                     COMCPAC   834
  
  
  
  
                                        **        CALL USER ERROR PROCESSOR.                                     COMCPAC   836
                                        *                                                                        COMCPAC   837
                                        *         EXIT   (A1) = FWA OF DAYFILE MESSAGE OR ZERO IF NONE           COMCPAC   838
                                        *                (ERR.FLD) = SAME AS *DEM* ABOVE                         COMCPAC   839
                                        *                (DEMA) = SAME AS *DEM* ABOVE                            COMCPAC   840
                                        *                                                                        COMCPAC   841
                                        *         REENTRY TO *ERR.RET* IF ONLY USER PROCESSING DESIRED,          COMCPAC   842
                                        *                   (ERR.CNT) UPDATED IF DESIRED                         COMCPAC   843
                                        *                 ELSE, TO *DEM.RET* FOR *DEM* STANDARD PROCESSING.      COMCPAC   844
                                        *                                                                        COMCPAC   845
                                        *         USES   SAME AS *DEM* ABOVE                                     COMCPAC   846
                                                                                                                 COMCPAC   847
                                                                                                                 COMCPAC   848
           265                           DEM.UEP  BSS                                                            COMCPAC   849
           265  56160                             SA1    B6                                                      COMCPAC   850
                     63620                        SB6    X2                                                      COMCPAC   851
                          0266000000              JP     B6          USE USER ERROR PROCESSOR                    COMCPAC   852
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    22
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           DEM                 COMCPAC 
  
                                                  IF     -MIC,PAC.NAME,1                                         COMCPAC   854
                                         PAC.NAME MICRO  1,,                                                     COMCPAC   855
                                                                                                                 COMCPAC   856
           266  00000000000000000000     DEMA     CON    0           ADDRESS OF USER ERROR PROCESSOR IF ANY      COMCPAC   857
           267  55550317162422171455     DEMB     DIS    ,* "PAC.NAME" CONTROL STATEMENT ERRORS --*              COMCPAC   858
           273  00000000000000000000     ERR.FLD  CON    0           BAD FIELD OR ZERO IF NONE                   COMCPAC   859
           274                     4              BSSZ   4           MESSAGE/END-OF-MESSAGE MARK                 COMCPAC   860
           300  00000000000000000000     ERR.CNT  CON    0           ERROR COUNT                                 COMCPAC   861
  
  
  
  
                                        **        CSERR - CONTROL STATEMENT ERROR MESSAGES.                      COMCPAC   863
                                        *                                                                        COMCPAC   864
                                        *         CSERR  (TEXT)                                                  COMCPAC   865
                                        *                                                                        COMCPAC   866
                                        *                *TEXT* = ERROR MESSAGE TEXT.  A BLANK WILL BE           COMCPAC   867
                                        *                         PREFIXED AND A PERIOD SUFFIXED. THE TEXT       COMCPAC   868
                                        *                         IS DISPLAYED 40 CHARACTERS PER LINE.  ON       COMCPAC   869
                                        *                         LONG MESSAGES, SPACES SHOULD BE PROVIDED       COMCPAC   870
                                        *                         SO THAT WORDS ARE NOT SPLIT ACROSS LINES.      COMCPAC   871
                                        *                         IF (ERR.FLD) .NE. 0, IT WILL BE SPACE FILLED   COMCPAC   872
                                        *                         AND PREFIXED TO THE TEXT.  IN THIS CASE *TEXT* COMCPAC   873
                                        *                         MUST BE .LE. 28 CHARACTERS.  EXCESS TEXT WILL  COMCPAC   874
                                        *                         BE IGNORED WITHOUT WARNING.                    COMCPAC   875
                                        *                                                                        COMCPAC   876
                                        *         USES   B - 6                                                   COMCPAC   877
                                        *                A - 1-3, 6                                              COMCPAC   878
                                        *                X - 0-4, 6                                              COMCPAC   879
                                        *                                                                        COMCPAC   880
                                        *         CALLS  DEM                                                     COMCPAC   881
                                                                                                                 COMCPAC   882
                                                  PURGMAC CSERR                                                  COMCPAC   883
                                                                                                                 COMCPAC   884
                                         CSERR    MACRO  TEXT                                                    COMCPAC   885
                                                  SB6    =C$ TEXT.$                                              COMCPAC   886
                                                  RJ     DEM                                                     COMCPAC   887
                                         CSERR    ENDM                                                           COMCPAC   888
                                                                                                                 COMCPAC   889
                                                                                                                 COMCPAC   890
           301  5160000273 +             E.GT10   SA6    ERR.FLD                                                 COMCPAC   891
                          6160002140 +            CSERR  (.GT. 10 CHAR)                                          COMCPAC   892
           303  0400000352 +                      EQ     GNA2        SKIP EXCESS CHARACTERS                      COMCPAC   893
                                                                                                                 COMCPAC   894
           304  6160002142 +             E.IBV    CSERR  (HAS ILLEGAL BINARY VALUE)                              COMCPAC   895
           305  66700                             SB7    B0          NO PARAMETER TO UPDATE                      COMCPAC   896
                     0400000337 +                 EQ     E.SKIP1     SKIP TO SEPARATOR                           COMCPAC   897
                                                                                                                 COMCPAC   898
           306  10066                    E.IC     BX0    X6                                                      COMCPAC   899
                     43600                        MX6    0                                                       COMCPAC   900
                          6146000000              SB4    B6+                                                     COMCPAC   901
           307  5160000273 +                      SA6    ERR.FLD                                                 COMCPAC   902
                          6160002145 +            CSERR  (ILLEGAL CHARACTER)                                     COMCPAC   903
           311  66640                             SB6    B4          RESTORE (B6)                                COMCPAC   904
                     10600                        BX6    X0          RESTORE (X6)                                COMCPAC   905
                          0400000357 +            EQ     GNC1        GET NEXT CHARACTER                          COMCPAC   906
                                                                                                                 COMCPAC   907
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    23
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           CSERR               COMCPAC 
  
           312  6160002150 +             E.IFN    CSERR  (ILLEGAL FILENAME)                                      COMCPAC   908
           313  43600                             MX6    0                                                       COMCPAC   909
                     0400000140 +                 EQ     PAC42       PROCESS NEXT OPTION SUBFIELD                COMCPAC   910
                                                                                                                 COMCPAC   911
           314  6160002152 +             E.IN     CSERR  (ILLEGAL NUMERIC)                                       COMCPAC   912
           315  43600                             MX6    0                                                       COMCPAC   913
                     0400000140 +                 EQ     PAC42       PROCESS NEXT OPTION SUBFIELD                COMCPAC   914
                                                                                                                 COMCPAC   915
           316  6160002154 +             E.ME     CSERR  (- AND = NOT BOTH ALLOWED)                              COMCPAC   916
           317  66700                             SB7    B0          NO PARAMETER TO UPDATE                      COMCPAC   917
                     0400000340 +                 EQ     E.SKIP2     SKIP TO SEPARATOR                           COMCPAC   918
                                                                                                                 COMCPAC   919
           320  6160002157 +             E.NE     CSERR  (MUST BE EQUIVALENCED)                                  COMCPAC   920
           321  0400000063 +                      EQ     PAC10       RE-ENTER MAIN LOOP                          COMCPAC   921
                                                                                                                 COMCPAC   922
           322  6160002162 +             E.STL    CSERR  (STRING TOO LONG)                                       COMCPAC   923
           323  0400000337 +                      EQ     E.SKIP1     SKIP TO NEXT SEPARATOR                      COMCPAC   924
                                                                                                                 COMCPAC   925
           324  7160000000               E.TM     SX6    0                                                       COMCPAC   926
                          5160000273 +            SA6    ERR.FLD                                                 COMCPAC   927
           325  6160002164 +                      CSERR  (TERMINATOR MISSING)                                    COMCPAC   928
           326  0400000035 +                      EQ     PACX                                                    COMCPAC   929
                                                                                                                 COMCPAC   930
           327  6160002167 +             E.TMOC   CSERR  (TOO MANY OCCURENCES)                                   COMCPAC   931
           330  66700                             SB7    B0          NO PARAMETER TO UPDATE                      COMCPAC   932
                     0400000340 +                 EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                      COMCPAC   933
                                                                                                                 COMCPAC   934
           331  6160002172 +             E.TMOP   CSERR  (TOO MANY OPTIONS)                                      COMCPAC   935
           332  0400000340 +                      EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                      COMCPAC   936
                                                                                                                 COMCPAC   937
           333  6160002174 +             E.UA     CSERR  (UNRECOGNIZABLE)                                        COMCPAC   938
           334  66700                             SB7    B0          DO NO PARAMETER TABLE TO UPDATE             COMCPAC   939
                     0400000340 +                 EQ     E.SKIP2     SKIP TO NEXT SEPARATOR                      COMCPAC   940
                                                                                                                 COMCPAC   941
           335  6160002176 +             E.UOP    CSERR  (UNKNOWN OPTION)                                        FC5A284    15
           336  0400000211 +                      EQ     PAC72       GET NEXT OPTION                             COMCPAC   944
                                                                                                                 COMCPAC   945
                                                                                                                 COMCPAC   946
                                        *         SKIP TO NEXT SEPARATOR OR TERMINATOR.                          COMCPAC   947
                                                                                                                 COMCPAC   948
           337  76000                    E.SKIP1  SX0    B0          ALLOW .GT. 10 CHARACTERS                    COMCPAC   949
                     0100000342 +                 RJ     GNA         SKIP                                        COMCPAC   950
           340  0714000337 +             E.SKIP2  GT     B4,B1,E.SKIP1     IF /, =, OR -                         COMCPAC   951
                                   0              ERRNZ  O.SEP-1                                                 COMCPAC   952
                          0440000337 +            ZR     B4,E.SKIP1  IF ALPHANUMERIC                             COMCPAC   953
                                   0              ERRNZ  O.VAL                                                   COMCPAC   954
           341  0400000057 +                      EQ     PAC.RET     RE-ENTER MAIN LOOP...                       COMCPAC   955
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    24
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNA                 COMCPAC 
  
                                        **        GNA - GET NEXT ARTIFACT.                                       COMCPAC   957
                                        *                                                                        COMCPAC   958
                                        *         THE NEXT ALPHANUMERIC STRING (FIRST 10 CHARACTERS WITH         COMCPAC   959
                                        *         QUOTES ($) REMOVED), SEPARATOR OR TERMINATOR IS OBTAINED.      COMCPAC   960
                                        *         AN ASTRISK (*) IS INTERPRETED AS AN ALPHANUMERIC CHARACTER.    COMCPAC   961
                                        *         BLANKS ARE SKIPPED.                                            COMCPAC   962
                                        *                                                                        COMCPAC   963
                                        *         ENTRY  (B3) = MODE:  -1 = NORMAL,  0 = QUOTE ($)               COMCPAC   964
                                        *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)           COMCPAC   965
                                        *                (A5) = ADDRESS OF (X5)                                  COMCPAC   966
                                        *                (X0) = 0 IF STRING .GT. 10 CHARACTERS IS ALLOWED        COMCPAC   967
                                        *                (X5) = CURRENT WORD OF LINE IMAGE                       COMCPAC   968
                                        *                                                                        COMCPAC   969
                                        *         EXIT   (X5, A5,B3, B5) UPDATED AND --                          COMCPAC   970
                                        *                                                                        COMCPAC   971
                                        *                IF NEXT ARTIFACT WAS A SEPARATOR OR TERMINATOR --       COMCPAC   972
                                        *                (B4) = TYPE OF ARTIFACT.  SEE *GNC* FOR TYPE.           COMCPAC   973
                                        *                (B6) = 9*6                                              COMCPAC   974
                                        *                (X4) = THE ARTIFACT (SEPARATOR OR TERMINATOR) 1R FORMAT COMCPAC   975
                                        *                (X6) = 0                                                COMCPAC   976
                                        *                                                                        COMCPAC   977
                                        *                IF NEXT ARTIFACT WAS AN ALPHANUMERIC STRING --          COMCPAC   978
                                        *                (B4) = TYPE OF CHARACTER IN (X4).  SEE *GNC* FOR TYPE.  COMCPAC   979
                                        *                       IF (B4) = 0, (X6) = 1ST 10 CHARACTERS OF A       COMCPAC   980
                                        *                       LONGER STRING.                                   COMCPAC   981
                                        *                (B6) = 9*6-(NUMBER OF CHAR IN X6)*6                     COMCPAC   982
                                        *                       I.E. (B6)+6 = NUMBER OF UNUSED BITS IN X6        COMCPAC   983
                                        *                       RANGE (B6) = 9*6 TO -6                           COMCPAC   984
                                        *                (X4) = CHARACTER FOLLOWING (X6), 1R FORMAT              COMCPAC   985
                                        *                (X6) = NEXT ALPHANUMERIC VALUE, 0L FORMAT               COMCPAC   986
                                        *                                                                        COMCPAC   987
                                        *         USES   B - 3-6                                                 COMCPAC   988
                                        *                A - 1-3, 5, 6                                           COMCPAC   989
                                        *                X - 0-6                                                 COMCPAC   990
                                        *                                                                        COMCPAC   991
                                        *         CALLS  DEM, GNC                                                COMCPAC   992
                                                                                                                 COMCPAC   993
                                                                                                                 COMCPAC   994
           342  0400400342 +             GNA      SUBR               ...ENTRY/EXIT...                            COMCPAC   995
           343  7160000000                        SX6    B0+                                                     COMCPAC   996
                          6160000066              SB6    9*6         INDICATE EMPTY ACCUMULATOR                  COMCPAC   997
                                                                                                                 COMCPAC   998
           344  0100000356 +             GNA1     RJ     GNC         GET NEXT CHARACTER                          COMCPAC   999
           345  0540000342 +                      NZ     B4,EXIT.    IF SEPARATOR OR TERMINATOR                  COMCPAC  1000
                          22464                   LX4    B6                                                      COMCPAC  1001
                               12664              BX6    X6+X4                                                   COMCPAC  1002
           346  6166777771                        SB6    B6-6                                                    COMCPAC  1003
                          0660000344 +            PL     B6,GNA1     IF .LE. 10 CHARACTERS ACCUMULATED           COMCPAC  1004
           347  0100000356 +                      RJ     GNC         CHECK FOR 11TH CHARACTER OR SEPARATOR       COMCPAC  1005
           350  0540000342 +                      NZ     B4,EXIT.    IF NOT .GT. 10 CHARACTERS                   COMCPAC  1006
                          0300000342 +            ZR     X0,EXIT.    IF .GT. 10 CHARACTERS ALLOWED               COMCPAC  1007
           351  0400000301 +                      EQ     E.GT10      ** .GT. 10 CHARACTERS **                    COMCPAC  1008
                                                                                                                 COMCPAC  1009
                                        *         SKIP EXCESS CHARACTERS UNTIL SEPARATOR.                        COMCPAC  1010
                                                                                                                 COMCPAC  1011
           352  0100000356 +             GNA2     RJ     GNC         SKIP EXCESS                                 COMCPAC  1012
           353  0440000352 +                      ZR     B4,GNA2     IF STILL ALPHNUMERIC                        COMCPAC  1013
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    25
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNA                 COMCPAC 
  
                          5110000273 +            SA1    ERR.FLD                                                 COMCPAC  1014
           354  6160777771                        SB6    -6          FLAG LENGTH OF 10                           COMCPAC  1015
                          10611                   BX6    X1          RESTORE X6 = 10 CHARACTERS OF PAC           COMCPAC  1016
           355  0400000342 +                      EQ     EXIT.       DONE...                                     COMCPAC  1017
  
  
  
  
                                        **        GNC - GET NEXT CHARACTER.                                      COMCPAC  1019
                                        *                                                                        COMCPAC  1020
                                        *         THE NEXT CHARACTER OF THE CONTROL STATEMENT IS                 COMCPAC  1021
                                        *         OBTAINED.  IF THIS CHARACTER IS A $, THE CHARACTER             COMCPAC  1022
                                        *         FOLLOWING IT IS RETURNED.  A CONTINUATION LINE WILL            COMCPAC  1023
                                        *         BE OBTAINED IF NEEDED.                                         COMCPAC  1024
                                        *                                                                        COMCPAC  1025
                                        *         ENTRY  (B3) = MODE:  -1 = NORMAL,  0 = QUOTE ($)               COMCPAC  1026
                                        *                (B5) = NUMBER OF CHARACTERS REMAINING IN (X5)           COMCPAC  1027
                                        *                (A5) = ADDRESS OF (X5)                                  COMCPAC  1028
                                        *                (X5) = CURRENT WORD OF LINE IMAGE                       COMCPAC  1029
                                        *                                                                        COMCPAC  1030
                                        *         EXIT   (B4) = CHARACTER TYPE --                                COMCPAC  1031
                                        *                       -1 = TERMINATOR                                  COMCPAC  1032
                                        *                        0 = ALPHANUMERIC OR *                           COMCPAC  1033
                                        *                       +1 = SEPARATOR                                   COMCPAC  1034
                                        *                       +2 = /                                           COMCPAC  1035
                                        *                       +3 = =                                           COMCPAC  1036
                                        *                       +4 = -                                           COMCPAC  1037
                                        *                       IF QUOTE MODE, ALL CHARACTERS ARE TYPE 0.        COMCPAC  1038
                                        *                (X4) = CHARACTER 1R FORMAT                              COMCPAC  1039
                                        *                (X5, A5, B3, B5)  UPDATED                               COMCPAC  1040
                                        *                                                                        COMCPAC  1041
                                        *         USES   B - 3-5                                                 COMCPAC  1042
                                        *                A - 1-3, 5, 6                                           COMCPAC  1043
                                        *                X - 0-5                                                 COMCPAC  1044
                                        *                                                                        COMCPAC  1045
                                        *         CALLS  DEM, SYS=                                               COMCPAC  1046
                                                                                                                 COMCPAC  1047
                                                                                                                 COMCPAC  1048
           356  0400400356 +             GNC      SUBR               ...ENTRY/EXIT...                            COMCPAC  1049
                                                                                                                 COMCPAC  1050
                                        *         GET NEXT CHARACTER.                                            COMCPAC  1051
                                                                                                                 COMCPAC  1052
           357  0450000373 +             GNC1     ZR     B5,GNC5     IF (X5) IS EMPTY                            COMCPAC  1053
                          20506                   LX5    6                                                       COMCPAC  1054
                               43066              MX0    -6                                                      COMCPAC  1055
           360  67551                             SB5    B5-B1       EXTRACT NEXT CHARACTER                      COMCPAC  1056
                     15450                        BX4    -X0*X5                                                  COMCPAC  1057
                          6244777724              SB4    X4-1R$                                                  COMCPAC  1058
           361  0440000371 +                      ZR     B4,GNC3     IF $                                        COMCPAC  1059
                          0430000372 +            ZR     B3,GNC4     IF IN QUOTE MODE                            COMCPAC  1060
           362  66400                             SB4    B0          CHECK VALUE                                 COMCPAC  1061
                                   0              ERRNZ  O.VAL       CODE ASSUMES 0 VALUE                        COMCPAC  1062
                     0730000363 +                 MI     B3,GNC2     IF NOT LEAVING QUOTE MODE                   COMCPAC  1063
                               67301              SB3    -B1                                                     COMCPAC  1064
                                                                                                                 COMCPAC  1065
                                        *         HERE IF NOT $ AND NOT QUOTE MODE.                              COMCPAC  1066
                                                                                                                 COMCPAC  1067
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    26
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNC                 COMCPAC 
  
           363  7224777732               GNC2     SX2    X4-1R9-1    CLASSIFY CHARACTER                          COMCPAC  1068
                          7234777717              SX3    X4-1R.-1                                                COMCPAC  1069
           364  0304000306 +                      ZR     X4,E.IC     IF ** ILLEGAL CHARACTER ** (COLON)          COMCPAC  1070
                          0332000356 +            MI     X2,EXIT.    IF ALPHANUMERIC, RETURN                     COMCPAC  1071
           365  66410                             SB4    B1          CHECK SEPARATOR                             COMCPAC  1072
                                   0              ERRNZ  O.SEP-1     CODE ASSUMES O.SEP=1                        COMCPAC  1073
                     20202                        LX2    2                                                       COMCPAC  1074
                          0323000356 +            PL     X3,EXIT.    IF .GT. 1R.                                 COMCPAC  1075
           366  5130000424 +                      SA3    GNCA                                                    COMCPAC  1076
                          63420                   SB4    X2                                                      COMCPAC  1077
                               22243              LX2    X3,B4       GET CHARACTER TYPE CODE                     COMCPAC  1078
           367  21270                             AX2    -4                                                      COMCPAC  1079
                     63420                        SB4    X2                                                      COMCPAC  1080
                          0312000356 +            NZ     X2,EXIT.    IF SEPARATOR, RETURN                        COMCPAC  1081
           370  0322000356 +                      PL     X2,EXIT.    IF *, TREAT AS ALPHANUMERIC                 COMCPAC  1082
                          0400000357 +            EQ     GNC1        IGNORE BLANK                                COMCPAC  1083
                                                                                                                 COMCPAC  1084
                                        *         HERE IF $.                                                     COMCPAC  1085
                                                                                                                 COMCPAC  1086
           371  66331                    GNC3     SB3    B3+B1                                                   COMCPAC  1087
                     0613000357 +                 LE     B3,B1,GNC1  IF NOT SECOND $ OF A PAIR IN QUOTE MODE     COMCPAC  1088
                               66300              SB3    B0                                                      COMCPAC  1089
                                                                                                                 COMCPAC  1090
                                        *         HERE IF IN QUOTE ($) MODE.                                     COMCPAC  1091
                                                                                                                 COMCPAC  1092
           372  6140000000               GNC4     SB4    O.VAL       QUOTE MODE, RETURN WITH CHARACTER TYPE = 0  COMCPAC  1093
                          0400000356 +            EQ     EXIT.       DONE...                                     COMCPAC  1094
                                                                                                                 COMCPAC  1095
                                        *         HERE IF CURRENT WORD OF LINE IMAGE IS EXAUSTED.                COMCPAC  1096
                                                                                                                 COMCPAC  1097
           373  5110000425 +             GNC5     SA1    GNCB                                                    COMCPAC  1098
                          5055000001              SA5    A5+1        GET NEXT LINE                               COMCPAC  1099
           374  6150000012                        SB5    10                                                      COMCPAC  1100
                          0301000412 +            ZR     X1,GNC7     IF INITIAL ENTRY                            COMCPAC  1101
           375  6045777700                        SB4    A5-RA.CCD-7                                             COMCPAC  1102
                          0704000377 +            GT     B4,GNC6     IF END OF LINE IMAGE                        COMCPAC  1103
           376  0315000357 +                      NZ     X5,GNC1     IF NOT END OF LINE                          COMCPAC  1104
                          0335000357 +            MI     X5,GNC1     IF NOT END OF LINE (10 SEMICOLONS)          COMCPAC  1105
                                                                                                                 COMCPAC  1106
                                        *         HERE IF CONTINUATION LINE NEEDED.                              COMCPAC  1107
                                                                                                                 COMCPAC  1108
           377  5120000426 +             GNC6     SA2    GNCC                                                    COMCPAC  1109
                          10566                   BX5    X6          SAVE (X6)                                   COMCPAC  1110
           400  0312000423 +                      NZ     X2,GNC.UCP  CALL USER CONTINUATION LINE PROCESSOR       COMCPAC  1111
                          7160000010              CONTRLC  GNCB,READ                                             FC50345     6
           404  53160                             SA1    X6                                                      COMCPAC  1113
                     20167                        LX1    59-4                                                    COMCPAC  1114
                          0331000324 +            MI     X1,E.TM     IF ** TERMINATOR MISSING **                 COMCPAC  1115
           405  7110000070                        MESSAGE RA.CCD,,RCL                                            FC50345     7
                                                                                                                 COMCPAC  1116
                                                                                                                 F1039      10
                                        **        IF FIRST TIME FIND NEXT AVAILABLE CHARACTER ADDRESS            F1039      11
                                        *         IN CONTROL CARD TEMPLET.                                       F1039      12
                                                                                                                 F1039      13
           407  5110000422 +                      SA1    CAF                                                     F1039      14
                          0311000411 +            NZ     X1,GNC6A    IF ADDRESS OF NEXT CHARACTER STORE IN       F1039      15
                                        *                            TEMPLET RESOLVED.                           F1039      16
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    27
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNC                 COMCPAC 
  
           410  43601                             MX6    1                                                       F1039      17
                     54610                        SA6    A1                                                      F1039      18
                          0100001712 +            RJ     FCA         FIND NEXT AVAILABLE CHARACTER ADDRESS       F1039      19
                                        *                            IN CONTROL CARD TEMPLET.                    F1039      20
           411  0100001735 +             GNC6A    RJ     TCC         TRANSFER CONTINUATION CARD TO TEMPLET       F1039      21
                                                                                                                 F1039      22
                                        *         HERE TO BLANK FILL LAST WORD OF LINE IMAGE.                    COMCPAC  1117
                                                                                                                 COMCPAC  1118
           412  6140000077               GNC7     SB4    RA.CCD+7                                                COMCPAC  1119
           413  56340                    GNC8     SA3    B4                                                      COMCPAC  1120
                     67441                        SB4    B4-B1                                                   COMCPAC  1121
                          0303000413 +            ZR     X3,GNC8                                                 COMCPAC  1122
           414  6140000067                        SB4    60-6+1                                                  COMCPAC  1123
                          43673                   MX6    -1                                                      COMCPAC  1124
                               36436              IX4    X3+X6                                                   COMCPAC  1125
           415  5120002135 +                      SA2    =40404040404040404040B                                  COMCPAC  1126
                          5110002136 +            SA1    =10H                                                    COMCPAC  1127
           416  16634                             BX6    -X4+X3                                                  COMCPAC  1128
                     11462                        BX4    X6*X2                                                   COMCPAC  1129
                          22644                   LX6    X4,B4                                                   COMCPAC  1130
                               37246              IX2    X4-X6                                                   COMCPAC  1131
           417  12642                             BX6    X4+X2                                                   COMCPAC  1132
                     15116                        BX1    -X6*X1                                                  COMCPAC  1133
                          36631                   IX6    X3+X1                                                   COMCPAC  1134
                               54630              SA6    A3          BLANK FILL LAST WORD                        COMCPAC  1135
  
  
  
  
                                        **        GNC.RET - RETURN FROM USER CONTINUATION LINE PROCESSOR.        COMCPAC  1137
                                        *                                                                        COMCPAC  1138
                                        *         ENTRY  RA.CCD TO RA.CCD+7 CONTAINS THE NEXT LINE IMAGE.        COMCPAC  1139
                                        *                THE LAST USABLE WORD IS BLANK FILLED.  UNUSED           COMCPAC  1140
                                        *                WORDS ARE ZERO.                                         COMCPAC  1141
                                                                                                                 COMCPAC  1142
                                                                                                                 COMCPAC  1143
           420                           GNC.RET  BSS                                                            COMCPAC  1144
           420  76610                             SX6    B1          NOT FIRST TIME THRU FLAG                    COMCPAC  1145
                     5160000425 +                 SA6    GNCB        INDICATE NOT FIRST TIME IN                  COMCPAC  1146
                               10655              BX6    X5          RESTORE (X6)                                COMCPAC  1147
           421  5150000070                        SA5    RA.CCD      SCAN NEW LINE                               COMCPAC  1148
                          0400000357 +            EQ     GNC1                                                    COMCPAC  1149
                                                                                                                 F1039      23
           422  00000000000000000000     CAF      CON    0           CHARACTER ADDRESS FLAG - ZERO INDICATES -   F1039      24
                                        *                            CALL *FCA* TO FIND NEXT AVAILABLE CHARACTER F1039      25
                                        *                            ADDRESS IN CONTROL CARD TEMPLET.            F1039      26
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    28
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           GNC.UCP             COMCPAC 
  
                                        **        GNC.UCP - CALL USER CONTINUATION LINE PROCESSOR.               COMCPAC  1151
                                        *                                                                        COMCPAC  1152
                                        *         USER PROCESSOR MAY USE  B4  A1,2,3,5,6  X1,2,3,4,6             COMCPAC  1153
                                        *                                                                        COMCPAC  1154
                                        *         REENTRY AT *GNC.RET*                                           COMCPAC  1155
                                                                                                                 COMCPAC  1156
                                                                                                                 COMCPAC  1157
           423                           GNC.UCP  BSS                                                            COMCPAC  1158
           423  63420                             SB4    X2                                                      COMCPAC  1159
                     0244000000                   JP     B4                                                      COMCPAC  1160
  
  
  
  
                                        *                  +   -   *   /   (    )   $   =   BL   ,    .          COMCPAC  1162
           424  05001036007707400000     GNCA     VFD    4/1,4/4,4/0,4/2,4/1,4/-1,4/0,4/3,4/-0,4/1,4/-1,*P/0     COMCPAC  1163
           425  00000000000000000000     GNCB     CON    0           STATUS WORD FOR CONTRLC + FIRST TIME FLAG   COMCPAC  1164
           426  00000000000000000000     GNCC     CON    0           ADDRESS OF USER CONTINUATION LINE PROCESSOR COMCPAC  1165
  
  
  
  
                                 D_D              BASE   *                                                       COMCPAC  1167
                                         QUAL$    IF     -DEF,QUAL$                                              COMCPAC  1168
                                                  QUAL   *                                                       COMCPAC  1169
                                  35 +   PAC      EQU    /COMCPAC/PAC                                            COMCPAC  1170
                                  57 +   PAC.RET  EQU    /COMCPAC/PAC.RET                                        COMCPAC  1171
                                 237 +   CFV      EQU    /COMCPAC/CFV                                            COMCPAC  1172
                                 244 +   DEM      EQU    /COMCPAC/DEM                                            COMCPAC  1173
                                 246 +   DEM.RET  EQU    /COMCPAC/DEM.RET                                        COMCPAC  1174
                                 300 +   ERR.CNT  EQU    /COMCPAC/ERR.CNT                                        COMCPAC  1175
                                 273 +   ERR.FLD  EQU    /COMCPAC/ERR.FLD                                        COMCPAC  1176
                                 244 +   ERR.RET  EQU    /COMCPAC/ERR.RET                                        COMCPAC  1177
                                 342 +   GNA      EQU    /COMCPAC/GNA                                            COMCPAC  1178
                                 356 +   GNC      EQU    /COMCPAC/GNC                                            COMCPAC  1179
                                 420 +   GNC.RET  EQU    /COMCPAC/GNC.RET                                        COMCPAC  1180
                                         QUAL$    ENDIF                                                          COMCPAC  1181
                                                                                                                 COMCPAC  1182
                                                                                                                 COMCPAC  1183
                                         COMCPAC  ENDX                                                           COMCPAC  1184
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    29
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           KEYS
  
                                        ***       PARAM - DEFINE KEYWORD PARAMETER.                              COMCPAC  1186
                                        *                                                                        COMCPAC  1187
                                        *         PARAMETER KEYWORDS ARE DEFINED BY MACRO CALLS, AS FOLLOWS --   COMCPAC  1188
                                        *                                                                        COMCPAC  1189
                                        * KEY     PARAM  POA=XXX,MBV=YYY,SD=ZZZ,NOP=MMM,NOC=NNN,AT=AAA           COMCPAC  1190
                                        *                                                                        COMCPAC  1191
                                        *         THE PARAMETERS MAY BE IN ANY ORDER.  THE ONLY REQUIRED         COMCPAC  1192
                                        *         PARAMETERS ARE KEY AND POA OR MBV.  THE THREE TYPES OF         COMCPAC  1193
                                        *         PARAMETER KEYWORDS ARE DESCRIBED AT *PAC*.  THE TYPES OF       COMCPAC  1194
                                        *         KEYWORDS (SB,BV,MBV) WHICH MAY USE A PARTICULAR MACRO          COMCPAC  1195
                                        *         PARAMETER ARE LISTED IN PARENTHESIS AFTER THAT PARAMETER       COMCPAC  1196
                                        *         BELOW.                                                         COMCPAC  1197
                                        *                                                                        COMCPAC  1198
                                        *         KEY      PARAMETER KEYWORD (REQUIRED ALWAYS)                   COMCPAC  1199
                                        *                FROM ONE TO SEVEN ALPHANUMERIC CHARACTERS.  *KEY*       COMCPAC  1200
                                        *                WILL BE THE ADDRESS OF THE PARAMETER TABLE ENTRY.       COMCPAC  1201
                                        *                                                                        COMCPAC  1202
                                        *         POA=XXX  PARAMETER OPTION AREA (REQUIRED FOR SB OR BV)         COMCPAC  1203
                                        *         XXX = ADDRESS OF A PARAMETER AREA WITH A LENGTH OF NNN*MMM     COMCPAC  1204
                                        *                OR - THE ADDRESS OF A USER PROCESSOR TO BE CALLED       COMCPAC  1205
                                        *                IF THIS KEYWORD IS ENCOUNTERED.  IF THIS FIELD IS .GT.  COMCPAC  1206
                                        *                ZERO *PAC* WILL EXIT WITH THIS FIELD CONTAINING THE     COMCPAC  1207
                                        *                LWA+1 USED WITHIN THE PARAMETER AREA.  IN THIS WAY IT   COMCPAC  1208
                                        *                IS POSSIBLE TO DETERMINE THE NUMBER OF OCCURENCES OF    COMCPAC  1209
                                        *                THIS KEYWORD ON THE CONTROL STATEMENT.                  COMCPAC  1210
                                        *  NOTE:         RESET THE ADDRESS OF THE PARAMETER AREA IF PAC IS       COMCPAC  1211
                                        *                CALLED MORE THAN ONCE WITH THE SAME PARAMETER TABLE.    COMCPAC  1212
                                        *                                                                        COMCPAC  1213
                                        *         MBV=YYY  MULTIPLE BINARY VALUE (REQUIRED FOR MBV)              COMCPAC  1214
                                        *         YYY = ADDRESS OF MULTIPLE BINARY VALUE OPTION TABLE.           COMCPAC  1215
                                        *                SEE *MPVOP* MACRO BELOW.  THIS PARAMETER IS             COMCPAC  1216
                                        *                REQUIRED FOR ALL MBV KEYWORDS.                          COMCPAC  1217
                                        *                                                                        COMCPAC  1218
                                        *         SD=ZZZ   SECOND DEFAULT (SV,BV)                                COMCPAC  1219
                                        *         ZZZ = ADDRESS OF A LIST OF SECOND DEFAULT VALUES.  THE LENGTH  COMCPAC  1220
                                        *                OF THE LIST MUST BE MMM (SEE NOC BELOW).  IF OMITTED    COMCPAC  1221
                                        *                THERE  WILL BE NO SECOND DEFAULT LIST AND THE KEYWORD   COMCPAC  1222
                                        *                MUST BE EQUIVALENCED.  IF ZZZ IS NEGATIVE, THE KEYWORD  COMCPAC  1223
                                        *                IS A BINARY VALUE PARAMETER.  THE SECOND DEFAULT LIST   COMCPAC  1224
                                        *                MUST BE IN THE DESIRED FORMAT BECAUSE *PAC* WILL NOT    COMCPAC  1225
                                        *                CONVERT OR ATTEMPT TO CHECK FOR PARAMETER VALIDITY.     COMCPAC  1226
                                        *                                                                        COMCPAC  1227
                                        *         NOP=MMM  NUMBER OF OPTIONS PER OCCURENCE (SV,MBV)              COMCPAC  1228
                                        *         MMM = MAXIMUM NUMBER OF OPTION SUBFIELDS FOR EACH OCCURENCE.   COMCPAC  1229
                                        *                THE MINIMUM ALLOWED IS 1.  THE MAXIMUM ALLOWED IS 19    COMCPAC  1230
                                        *                UNLESS ATT=STRING.  IF AT=STRING, MMM IS THE MAXIMUM    COMCPAC  1231
                                        *                NUMBER OF CHARACTERS (NOT WORDS) IN THE STRING.  IF     COMCPAC  1232
                                        *                OMITTED NOP=1 IS ASSUMED.                               COMCPAC  1233
                                        *                                                                        COMCPAC  1234
                                        *         NOC=NNN  NUMBER OF OCCURENCES (SV)                             COMCPAC  1235
                                        *         NNN = MAXIMUM NUMBER OF OCCURENCES OF THE KEYWORD. IF OMITTED  COMCPAC  1236
                                        *                NOC=1 WILL BE ASSUMED.  EACH OCCURENCE WILL BE STORED   COMCPAC  1237
                                        *                STARTING AT XXX+(N-1)*MMM WHERE N IS THE NUMBER OF      COMCPAC  1238
                                        *                THE OCCURENCE.                                          COMCPAC  1239
                                        *  NOTE:         RESET THE OCCURENCE COUNT IF PAC IS CALLED              COMCPAC  1240
                                        *                MORE THAN ONCE WITH THE SAME PARAMETER TABLE.           COMCPAC  1241
                                        *                                                                        COMCPAC  1242
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    30
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           KEYS
  
                                        *         AT=AAA   ATTRIBUTES (SV)                                       COMCPAC  1243
                                        *         AAA = LIST OF ATTRIBUTES ASSOCIATED WITH EACH OPTION           COMCPAC  1244
                                        *                SUBFIELD.  THE NTH ENTRY IS THE ATTRIBUTE FOR THE NTH   COMCPAC  1245
                                        *                SUBFIELD.  THE MAXIMUM NUMBER OF ATTRIBUTES IS MMM.     COMCPAC  1246
                                        *                IF AN ATTRIBUTE IS OMITTED THE LAST MENTIONED VALUE     COMCPAC  1247
                                        *                (FOR THIS CALL) IS ASSUMED.  IF AT IS OMITTED AT=0      COMCPAC  1248
                                        *                IS ASSUMED.                                             COMCPAC  1249
                                        *                   ATTRIBUTE      MEANING                               COMCPAC  1250
                                        *                       0          10 CHARACTER FIELD, 0L FORMAT.        COMCPAC  1251
                                        *                       1          10 CHARACTER FIELD, 0R FORMAT.        COMCPAC  1252
                                        *                       2          CHECK FOR FILE NAME VALIDITY.         COMCPAC  1253
                                        *                       3          CHECK AND CONVERT NUMERIC ARGUMENT    COMCPAC  1254
                                        *                                  (DECIMAL ASSUMED).                    COMCPAC  1255
                                        *                       4          CHECK AND CONVERT NUMERIC ARGUMENT    COMCPAC  1256
                                        *                                  (OCTAL ASSUMED).                      COMCPAC  1257
                                        *         AAA = *STRING* (OR ANY TRUNCATION DOWN TO *S*) IS A SPECIAL    COMCPAC  1258
                                        *                ATTRIBUTE WHICH ALLOWS A STRING OF UP TO MMM            COMCPAC  1259
                                        *                CHARACTERS.  THE STRING WILL BE STORED LEFT JUSTIFIED   COMCPAC  1260
                                        *                WITH ZERO FILL.  MMM MAY BE AS LARGE AS DESIRED.        COMCPAC  1261
                                        *                                                                        COMCPAC  1262
                                        *         EACH ENTRY IN THE PARAMETER TABLE WILL HAVE THE FOLLOWING FORM COMCPAC  1263
                                        **T A  KEY       42/0L_KEY,18/POA                                        COMCPAC  1264
                                        *   IF (AT.NE.*STRING*) --                                               COMCPAC  1265
                                        *                                                                        COMCPAC  1266
                                        **T B            20/(MBV OR SD), 20/NOC, 20/NOP                          COMCPAC  1267
                                        **T C            3/0,57/(3 BITS PER ATTRIBUTE, LEFT JUSTIFIED)           COMCPAC  1268
                                        *   IF (AT.EQ.*STRING*) --                                               COMCPAC  1269
                                        **T B            20/SD, 20/NOC, 20/(NUMBER OF WORDS IN NOP CHARACTERS)   COMCPAC  1270
                                        **T C            60/-(NUMBER OF BITS IN LAST WORD OF NOP CHARACTERS)     COMCPAC  1271
                                                                                                                 COMCPAC  1272
                                                                                                                 COMCPAC  1273
                                                  PURGMAC PARAM                                                  COMCPAC  1274
                                                                                                                 COMCPAC  1275
                                                  MACROE PARAM,KEY,POA,NOC,NOP,SD,AT,MBV                         COMCPAC  1276
                                        *         WORD A.                                                        COMCPAC  1277
                                        *                                                                        COMCPAC  1278
                                         KEY      VFD    42/0L_KEY,18/POA                                        COMCPAC  1279
                                                  IFC    EQ,\_MBV_\\,3                                           COMCPAC  1280
                                                  IFC    EQ,\_POA_\\,1                                           COMCPAC  1281
                                                  ERR    PARAMETER OPTION AREA (POA) MUST BE DEFINED             COMCPAC  1282
                                                  SKIP   2                                                       COMCPAC  1283
                                                  IFC    NE,\_POA_SD_AT_\\,1                                     COMCPAC  1284
                                                  ERR    ONLY NOP OR NOC MAY OCCUR WITH MBV                      COMCPAC  1285
                                         '?PAC#02 SET    NOC 1                                                   COMCPAC  1286
                                         '?PAC#03 SET    NOP 1                                                   COMCPAC  1287
                                         '?PAC#04 MICRO  1,,\_SD_MBV_\                                           COMCPAC  1288
                                                  IF     DEF,SD,3                                                COMCPAC  1289
                                                  IFMI   SD,2                                                    COMCPAC  1290
                                                  ERRNZ  '?PAC#02-1  BINARY VALUE PARAMETER MAY ONLY OCCUR ONCE  COMCPAC  1291
                                                  ERRNZ  '?PAC#03-1  BINARY VALUE PARAMETER MAY ONLY OCCUR ONCE  COMCPAC  1292
                                         '?PAC#05 MICRO  1,,\_AT_\                                               COMCPAC  1293
                                         '?PAC#05 MICCNT '?PAC#05                                                COMCPAC  1294
                                         '?PAC#05 MAX    '?PAC#05,1                                              COMCPAC  1295
                                         '?PAC#05 MICRO  1,'?PAC#05,\STRING\                                     COMCPAC  1296
                                                  IFC    EQ,\"'?PAC#05"\_AT_\,6                                  COMCPAC  1297
                                         '?PAC#01 SET    '?PAC#03+9                                              COMCPAC  1298
                                         '?PAC#01 SET    '?PAC#01/10                                             COMCPAC  1299
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    31
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           KEYS
  
                                         '?PAC#06 SET    '?PAC#03+10-'?PAC#01*10                                 COMCPAC  1300
                                        *                                                                        COMCPAC  1301
                                        *         WORD B (AT.EQ.*STRING*).  20/SD,20/NOC,20/NOWDS                COMCPAC  1302
                                        *                                                                        COMCPAC  1303
                                         +        VFD    20/"'?PAC#04",20/'?PAC#02,20/'?PAC#01                   COMCPAC  1304
                                        *                                                                        COMCPAC  1305
                                        *         WORD C (STRING).  60/-(BITS IN LAST WORD)                      COMCPAC  1306
                                        *                                                                        COMCPAC  1307
                                         +        VFD    60/-6*'?PAC#06                                          COMCPAC  1308
                                                  SKIP   8                                                       COMCPAC  1309
                                        *                                                                        COMCPAC  1310
                                        *         WORD B (AT.NE.*STRING*). 20/(MBV OR SD), 20/NOC, 20/NOP        COMCPAC  1311
                                        *                                                                        COMCPAC  1312
                                         +        VFD    20/"'?PAC#04",20/'?PAC#02,20/'?PAC#03                   COMCPAC  1313
                                        *                                                                        COMCPAC  1314
                                        *         WORD C (ATTRIBUTES). 3/0,57/(3 BITS PER ATTRIBUTE)             COMCPAC  1315
                                        *                                                                        COMCPAC  1316
                                         +        VFD    3/0                                                     COMCPAC  1317
                                         '?PAC#06 SET    0                                                       COMCPAC  1318
                                                  ECHO   2,A=(AT)                                                COMCPAC  1319
                                         '?PAC#06 SET    A '?PAC#06                                              COMCPAC  1320
                                                  VFD    3/A                                                     COMCPAC  1321
                                                  IFNE   *P,60,1                                                 COMCPAC  1322
                                                  VFD    *P/0                                                    COMCPAC  1323
                                         PARAM    ENDM                                                           COMCPAC  1324
  
  
  
  
                                        ***       MBVOP - MULTIPLE BINARY VALUE OPTIONS.                         COMCPAC  1326
                                        *                                                                        COMCPAC  1327
                                        *         THIS MACRO IS USED TO DEFINE THE SUBKEYWORD TABLE USED         COMCPAC  1328
                                        *         FOR MULTIPLE BINARY VALUE OPTION PROCESSING.                   COMCPAC  1329
                                        *                                                                        COMCPAC  1330
                                        * KOP     MBVOP  KOA,SD,IV                                               COMCPAC  1331
                                        *                                                                        COMCPAC  1332
                                        *         KOP    SUBKEYWORD NAME (REQUIRED)                              COMCPAC  1333
                                        *                ONE TO SEVEN ALPHANUMERIC CHARACTERS.  *KOP* MAY BE     COMCPAC  1334
                                        *                THE SAME CHARACTERS AS ANY PARAMETER KEYWORD (*KEY*).   COMCPAC  1335
                                        *         KOA    SUBKEYWORD OPTION ADDRESS (REQUIRED)                    COMCPAC  1336
                                        *                ADDRESS OF A WORD TO STORE BINARY VALUE FOR THIS        COMCPAC  1337
                                        *                OPTION.  IF THE OPTION IS *ON* THEN 1S59 IS STORED.     COMCPAC  1338
                                        *                IF IT IS *OFF*, A 0 IS STORED.                          COMCPAC  1339
                                        *         SD     SECOND DEFAULT                                          COMCPAC  1340
                                        *                *ON* OR *OFF*.  VALUE TO USE FOR THIS SUBKEYWORD        COMCPAC  1341
                                        *                WHEN THE MBV PARAMETER OCCURES WITHOUT MINUS OR         COMCPAC  1342
                                        *                EQUIVALENCE.  DEFAULT SD=OFF.                           COMCPAC  1343
                                        *         IV     INITIAL VALUE                                           COMCPAC  1344
                                        *                *ON* OR *OFF*. VALUE USED WHEN AN *=* IS ENCOUNTERED    COMCPAC  1345
                                        *                AFTER THE MBV PARAMETER.  DEFAULT IV=OFF.               COMCPAC  1346
                                                                                                                 COMCPAC  1347
                                                                                                                 COMCPAC  1348
                                                  PURGMAC MBVOP                                                  COMCPAC  1349
                                                                                                                 COMCPAC  1350
                                                  MACRO  MBVOP,KOP,KOA,SD,IV                                     COMCPAC  1351
                                         '?PAC#01 SET    0                                                       COMCPAC  1352
                                         '?PAC#02 SET    0                                                       COMCPAC  1353
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    32
        COMCPAC - PROCESS ARGUMENTS FROM CONTROL STATEMENT.           MBVOP 
  
                                                  IFC    EQ,/SD/ON/,1                                            COMCPAC  1354
                                         '?PAC#01 SET    1                                                       COMCPAC  1355
                                                  IFC    EQ,/IV/ON/,1                                            COMCPAC  1356
                                         '?PAC#02 SET    1                                                       COMCPAC  1357
                                                  VFD    42/0L_KOP,18/KOA                                        COMCPAC  1358
                                                  VFD    1/'?PAC#01,1/'?PAC#02,58/0                              COMCPAC  1359
                                         MBVOP    ENDM                                                           COMCPAC  1360
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    33
        CONTROL STATEMENT PARAMETER TABLE                             KEYS
  
                                        **        KEYS - CONTROL CARD PARAMETER KEYWORD DEFINITIONS.             INIT00    133
                                                                                                                 INIT00    134
                                                                                                                 INIT00    135
                                         LFN      MICRO  1,, AT=2                                                INIT00    136
                                         DECIMAL  MICRO  1,, AT=3                                                INIT00    137
                                         OCTAL    MICRO  1,, AT=4                                                INIT00    138
                                         SWITCH   MICRO  1,, SD=-1                                               INIT00    139
                                         MBV      MICRO  1,, MBV=/MBV/                                           INIT00    140
                                         CO       MICRO  1,, POA==XCO.                                           INIT00    141
                                         SPECIAL  MICRO  1,, POA=-PAC=                                           INIT00    142
                                         IGNORE   MICRO  1,, POA=IGNORE                                          INIT00    143
                                                                                                                 INIT00    144
           427                           KEYS     BSS                START OF PARAMETER KEYWORD TABLE            INIT00    145
                                                  QUAL   KEYS                                                    INIT00    146
                                                                                                                 INIT00    147
           427  01140000000000000000 X   AL       PARAM  "CO"AL,"SWITCH"                                         FC5A444    46
           432  01162311000000000000 X   ANSI     PARAM  "CO"ANSI,SD=(=1RT),AT=1                                 INIT00    148
           435  01220700000000000000     ARG      PARAM  "MBV"ARG,NOP=2                                          INIT00    149
           440  02000000000000000663 +   B        PARAM  "CO"B,SD=(=3LBIN),"LFN"                                 INIT00    150
           443  02140000000000000000 X   BL       PARAM  POA=CP.BLF,"SWITCH"                                     INIT00    151
           446  03230000000000000000 X   CS       PARAM  "CO"CS,SD=(=5LFIXED)                                    INIT00    152
           451  04020000000000000000     DB       PARAM  "MBV"DB,NOP=7                                           FC5A282     4
           454  04170000000000000000     DO       PARAM  "MBV"DO,NOP=2                                           INIT00    154
           457  04230000000000000000 X   DS       PARAM  "CO"DS,"SWITCH"                                         INIT00    155
           462  05030000000000000000 X   EC       PARAM  "CO"EC,"SWITCH"                                         F1037F5   269
           465  05000000000000000664 +   E        PARAM  "CO"E,SD=(=4LERRS),"LFN"                                INIT00    156
           470  05140000000000000000 X   EL       PARAM  "CO"EL,SD=(=1RF),AT=1                                   INIT00    157
           473  05240000000000000000 X   ET       PARAM  "CO"ET,SD=(=1RF),AT=1                                   INIT00    158
           476  07000000000000777102 -   G        PARAM  "SPECIAL"G,SD=(=7LSYSTEXT)                              INIT00    159
           501  07170000000000000000 X   GO       PARAM  "CO"GO,"SWITCH"                                         INIT00    160
           504  11000000000000000665 +   I        PARAM  "CO"I,SD=(=7LCOMPILE),"LFN"                             INIT00    161
                                                                                                                 INIT00    162
                                                  IFEQ   TEST,ON,2                                               INIT00    163
                                         L        PARAM  "CO"L,SD=(=7LZZZZZVO),"LFN"                             INIT00    164
                                                  SKIP   1                                                       INIT00    165
           507  14000000000000000666 +   L        PARAM  "CO"L,SD=(=4LLIST),"LFN"                                INIT00    166
                                                                                                                 INIT00    167
           512  14031500000000000000 X   LCM      PARAM  "CO"LCM,SD=(=1RI),AT=1                                  INIT00    168
           515  20140000000000000000 X   PL       PARAM  "CO"LL,SD=(=50000),"DECIMAL"                            INIT00    169
           520  14170000000000000000     LO       PARAM  "MBV"LO,NOP=5                                           FC5A321     8
           523  15040000000000000000 X   MD       PARAM  "CO"MD,SD=(=1RT),AT=1                                   F1037F5   270
           526  15140000000000000000 X   ML       PARAM  POA=CP.MODL,SD=CP.MODL,AT=STRING,NOP=9                  INIT00    171
           531  17202400000000000000 X   OPT      PARAM  "CO"OPT,SD=(=2),"DECIMAL"                               INIT00    172
           534  20030000000000000000 X   PC       PARAM  POA=CP.PCOM,SD=CP.PCOM,AT=STRING,NOP=30                 INIT00    173
           537  20040000000000000667 +   PD       PARAM  "CO"PD,SD=(=8),"DECIMAL"                                INIT00    174
           542  20160000000000000000 X   PN       PARAM  POA=CP.PAGE,"SWITCH"                                    INIT00    175
           545  20230000000000000000 X   PS       PARAM  "CO"PS,"DECIMAL"                                        INIT00    176
           550  20270000000000000000 X   PW       PARAM  "CO"PW,SD=(=72),"DECIMAL"                               INIT00    177
           553  21030000000000000000 X   QC       PARAM  "CO"QC,"SWITCH"                                         INIT00    178
           556  22052700000000000000     REW      PARAM  "MBV"REW,NOP=4                                          INIT00    179
           561  22172516040000000000     ROUND    PARAM  "MBV"ROUND,NOP=4                                        INIT00    180
           564  23000000000000777057 -   S        PARAM  "SPECIAL"S,SD=(=7LSYSTEXT)                              INIT00    181
           567  23052100000000000000 X   SEQ      PARAM  "CO"SEQ,"SWITCH"                                        INIT00    182
           572  23240124110300000000 X   STATIC   PARAM  "CO"STAT,"SWITCH"                                       F1037F5   271
                                                  IFEQ   .MI,1,1                                                 F1037F5   272
                                         TM       PARAM  "MBV"TM,NOP=1                                           F1037F5   273
           575  30000000000000000000 X   X        PARAM  POA=CP.XTXT,SD=(=3LOPL),"LFN"                           INIT00    183
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    34
        CONTROL STATEMENT PARAMETER TABLE                             KEYS                KEYS
  
                                                                                                                 INIT00    184
                                        *         TEST MODE ONLY KEYWORDS.                                       INIT00    185
                                                                                                                 INIT00    186
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT00    187
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              INIT00    188
                                         BREAK    PARAM  "CO"BRK,SD=(=1)                                         INIT00    189
                                         CPL      PARAM  "CO"CPL,SD=(=999),"DECIMAL"                             INIT00    190
                                         IDP      PARAM  "SPECIAL"IDP,SD=(=1)                                    INIT00    191
                                         RFL      PARAM  "CO"RFL,SD=(=0),"OCTAL"                                 INIT00    192
                                         SNAP     PARAM  "SPECIAL"SNAP,SD=(=1)                                   INIT00    193
                                         SPP      PARAM  "CO"SPP,"SWITCH"                                        INIT00    194
                                                                                                                 INIT00    195
                                        ** FV            REMOVE FOR RELEASE.                                     INIT00    196
                                         .TEST    ELSE               **** FOR SVL ONLY ****                      INIT00    197
           600  03201400000000000670 +   CPL      PARAM  "IGNORE",SD=(=999),"DECIMAL"                            INIT00    198
                                         .TEST    ENDIF                                                          INIT00    199
                                                                                                                 INIT00    200
                                                  IFEQ   .SPY,ON,2   IF USING SPY OPTION                         INIT00    201
                                                  IFNE   .OS,2,1     IF NOT SCOPE 2                              INIT00    202
                                         SPY      PARAM  "CO"SPY,SD=SD.SPY,AT=(4,4),NOP=2                        INIT00    203
                                                                                                                 INIT00    204
                                                  QUAL   *                                                       INIT00    205
                                 154     Z.KEYS   EQU    *-KEYS      LENGTH OF KEYWORD TABLE                     INIT00    206
                                                                                                                 INIT00    207
                                                  PURGMAC PARAM                                                  INIT00    208
  
  
  
  
                                        **        MULTIPLE BINARY VALUE OPTION DESCRIPTIONS.                     INIT00    210
                                                                                                                 INIT00    211
                                                                                                                 INIT00    212
                                                  QUAL   MBV                                                     INIT00    213
                                                                                                                 INIT00    214
           603                           ARG      BSS                                                            INIT00    215
           603  03171515171600000000 X   COMMON   MBVOP  CO.ARGC,OFF,"IV.ARGC"                                   INIT00    216
           605  06113005040000000000 X   FIXED    MBVOP  CO.ARGF,ON,"IV.ARGF"                                    INIT00    217
                                                                                                                 INIT00    218
           607                           DB       BSS                                                            INIT00    219
           607  05220000000000000000 X   ER       MBVOP  CO.DBER,ON,"IV.DBER0"                                   INIT00    221
           611  11040000000000000000 X   ID       MBVOP  CO.DBID,OFF,"IV.DBID"                                   INIT00    222
           613  20150400000000000000 X   PMD      MBVOP  CO.DBPM,ON,"IV.DBPM"                                    INIT00    223
           615  23020000000000000000 X   SB       MBVOP  CO.DBSB,ON,"IV.DBSB"                                    INIT00    224
           617  23140000000000000000 X   SL       MBVOP  CO.DBSL,ON,"IV.DBSL"                                    INIT00    225
           621  23240000000000000000 X   ST       MBVOP  CO.DBST,OFF,"IV.DBST"                                   FC5A155     5
           623  24020000000000000000 X   TB       MBVOP  CO.DBTB,ON,"IV.DBTB"                                    INIT00    227
                                                                                                                 INIT00    228
           625                           DO       BSS                                                            INIT00    229
           625  14171607000000000000 X   LONG     MBVOP  CO.DOLG,OFF,"IV.DOLG"                                   INIT00    230
           627  17240000000000000000 X   OT       MBVOP  CO.DOOT,ON,"IV.DOOT"                                    INIT00    231
                                                                                                                 INIT00    232
           631                           LO       BSS                                                            INIT00    233
           631  01000000000000000000 X   A        MBVOP  CO.LOA,ON,"IV.LOA"                                      INIT00    234
           633  15000000000000000000 X   M        MBVOP  CO.LOM,OFF,"IV.LOM"                                     INIT00    236
           635  17000000000000000000 X   O        MBVOP  CO.LOO,OFF,"IV.LOO"                                     INIT00    237
           637  22000000000000000000 X   R        MBVOP  CO.LOR,ON,"IV.LOR"                                      INIT00    238
           641  23000000000000000000 X   S        MBVOP  CO.LOS,ON,"IV.LOS"                                      INIT00    239
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    35
        CONTROL STATEMENT PARAMETER TABLE                             MBVOPS              MBV 
  
                                                                                                                 INIT00    240
           643                           REW      BSS                                                            INIT00    241
           643  02000000000000000000 X   B        MBVOP  CO.REWB,ON,"IV.REWB"                                    INIT00    242
           645  05000000000000000000 X   E        MBVOP  CO.REWE,OFF,"IV.REWE"                                   INIT00    243
           647  11000000000000000000 X   I        MBVOP  CO.REWI,ON,"IV.REWI"                                    INIT00    244
           651  14000000000000000000 X   L        MBVOP  CO.REWL,OFF,"IV.REWL"                                   INIT00    245
                                                                                                                 INIT00    246
           653                           ROUND    BSS                                                            INIT00    247
           653  01000000000000000000 X   A        MBVOP  CO.RNDA,ON,"IV.RNDA"                                    INIT00    248
           655  23000000000000000000 X   S        MBVOP  CO.RNDS,ON,"IV.RNDS"                                    INIT00    249
           657  15000000000000000000 X   M        MBVOP  CO.RNDM,ON,"IV.RNDM"                                    INIT00    250
           661  04000000000000000000 X   D        MBVOP  CO.RNDD,ON,"IV.RNDD"                                    INIT00    251
                                                                                                                 F1037F5   274
                                                  IFEQ   .MI,1,2                                                 F1037F5   275
                                         TM       BSS                                                            F1037F5   276
                                         LCM      MBVOP  =XCO.TMLC,OFF,"IV.TMLC"                                 F1037F5   277
                                                                                                                 INIT00    252
                                                  QUAL   *                                                       INIT00    253
                                                  PURGMAC MBVOP                                                  INIT00    254
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    36
        PROCESS SPECIAL ARGUMENTS                                     ARGDEFS 
  
                                        **        VARIOUS CELLS/VALUES NEEDED BY THE ARGUMENT PROCESSORS.        INIT00    257
                                                                                                                 INIT00    258
                                                  IFC    NE,/"SV.B"/0/,2                                         INIT00    259
           663  14071700000000000000     CO.B     CON    0L"SV.B"    LGO FILE NAME                               INIT00    260
                                                  SKIP   1                                                       INIT00    261
                                         CO.B     CON    0           (NO LGO FILE)                               INIT00    262
                                                                                                                 INIT00    263
           664  17252420252400000000     CO.E     CON    0L"SV.E"    ERROR FILE NAME                             INIT00    264
           665  11162025240000000000     CO.I     CON    0L"SV.I"    INPUT FILE NAME                             INIT00    265
                                                                                                                 INIT00    266
                                                  IFC    NE,/"SV.L"/0/,2                                         INIT00    267
           666  17252420252400000000     CO.L     CON    0L"SV.L"    LISTING FILE NAME                           INIT00    268
                                                  SKIP   1                                                       INIT00    269
                                         CO.L     CON    0                                                       INIT00    270
           667  00000000000000000000     CO.PD    CON    0                                                       INIT00    275
                                                                                                                 INIT00    276
                                         .SPY     IFEQ   .SPY,ON     IF SPY OPTION                               INIT00    279
                                         CO.SPY   DATA   -1,-1       SPY LOW, HIGH                               INIT00    280
                                         SD.SPY   CON    RA.ORG      LOWER LIMIT                                 INIT00    281
                                                  CON    FIN.OL      UPPER LIMIT                                 INIT00    282
                                         Z.BINS   =      2046B       NUMBER OF SPY BINS                          INIT00    283
                                         .SPY     ENDIF                                                          INIT00    284
                                                                                                                 INIT00    285
           670                     1     IGNORE   BSS    1           GENERAL WASTE CELL                          INIT00    286
                                                                                                                 INIT00    287
           671  55270122161116070000     WARN     CON    8L WARNING                                              FC5A426    35
                                                                                                                 FC5A426    36
           672                           GP.PAGE  BSS    0           PRINT PARAMETER BLOCK                       FC5A426    37
           672                     1     GP.JPD   BSSZ   1           JOB DEFAULT PD                              FC5A480     8
           673                     1     GP.JPS   BSSZ   1                       PS                              FC5A480     9
           674                     1     GP.JPW   BSSZ   1                       PW                              FC5A480    10
                                                                                                                 FC5A426    41
                                   7     Z.TXTS   EQU    7           NUMBER OF S AND G TEXTS ALLOWED             INIT00    288
  
  
  
  
                                        **        PROCESS G PARAMETER.                                           INIT00    290
                                        *                                                                        INIT00    291
                                        *         1.  G                                                          INIT00    292
                                        *         2.  G=0                                                        INIT00    293
                                        *         3.  G=ST1/.../STN                                              INIT00    294
                                        *               WHERE ST(I) IS EITHER *LFN* OR *LFN-OVL1...-OVLN*        INIT00    295
                                                                                                                 INIT00    296
                                                                                                                 INIT00    297
           675                           PAC=G    BSS                                                            INIT00    298
           675  53110                             SA1    X1          DEFAULT LFN                                 INIT00    299
                     43600                        MX6    0           DEFAULT OVL NAME = NONE                     INIT00    300
                          10711                   BX7    X1                                                      INIT00    301
           676  0313000711 +                      NZ     X3,PACG3    IF NO =                                     INIT00    302
                          76010                   SX0    B1          .GT. 10 CHAR NOT ALLOWED                    FC5A173     4
           677  0100000342 +                      RJ     GNA         GET NEXT ITEM                               FC5A173     5
           700  66700                             SB7    B0                                                      FC5A173     6
                     0316000704 +                 NZ     X6,PACG1A   IF NOT FOLLOWED BY SEP. OR TERM.            FC5A173     7
           701  0441000057 +                      EQ     B4,B1,PAC.RET     IF G=,                                FC5A173     8
                          0400000704 +            EQ     PACG1A                                                  FC5A173     9
           702  76010                    PACG1    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             INIT00    303
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    37
        PROCESS SPECIAL ARGUMENTS                                     PAC=G 
  
                     0100000342 +                 RJ     GNA         GET FILE NAME                               INIT00    304
           703  0306000776 +                      ZR     X6,E.IGS    IF NO LFN                                   INIT00    305
                                                                                                                 FC5A173    10
           704  10166                    PACG1A   BX1    X6                                                      FC5A173    11
                     0100000237 +                 RJ     CFV         CHECK FILENAME VALIDITY                     INIT00    307
           705  0314000776 +                      NZ     X4,E.IGS    IF ILLEGAL FILE NAME                        INIT00    308
                          10766                   BX7    X6          LFN                                         INIT00    309
           706  6170000004                        SB7    /COMCPAC/O.MINUS                                        INIT00    310
                          43600                   MX6    0           OVL                                         INIT00    311
           707  0574000711 +                      NE     B7,B4,PACG3 IF NO *-*                                   INIT00    312
                          0307000776 +            ZR     X7,E.IGS    IF ILLEGAL SYNTAX                           INIT00    313
           710  76010                    PACG2    SX0    B1          DO NOT ALLOW .GT. 10 CHARACTERS             INIT00    314
                     0100000342 +                 RJ     GNA         GET OVERLAY NAME                            INIT00    315
           711  0307000715 +             PACG3    ZR     X7,PACG4    IF G=0, IGNORE                              INIT00    316
                          76210                   SX2    B1                                                      INIT00    317
                               12662              BX6    X6+X2       SET *G* FLAG                                INIT00    318
           712  5120000000 X                      SA2    CP.STXT     COUNT OF TEXTS                              INIT00    319
                          6262777770              SB6    X2-Z.TXTS                                               INIT00    320
           713  63721                             SB7    X2+B1                                                   INIT00    321
                     0460001040 +                 ZR     B6,E.S7     IF MORE THAN 7 TEXTS SPECIFIED              INIT00    322
                               54627              SA6    A2+B7       STORE OVERLAY NAME                          INIT00    323
           714  5177000000 X                      SA7    CP.LIB+B7   STORE FILE NAME                             INIT00    324
                          76670                   SX6    B7                                                      INIT00    325
                               54620              SA6    A2          UPDATE COUNT                                INIT00    326
           715  6170000004               PACG4    SB7    /COMCPAC/O.MINUS                                        INIT00    327
                          0474000710 +            EQ     B7,B4,PACG2 IF *-* IS NEXT                              INIT00    328
           716  6170000002                        SB7    /COMCPAC/O.SLASH                                        INIT00    329
                          0474000702 +            EQ     B7,B4,PACG1 IF */* IS NEXT                              INIT00    330
           717  66700                             SB7    B0                                                      INIT00    331
                     0400000057 +                 EQ     PAC.RET     RETURN TO MAIN LOOP...                      INIT00    332
  
  
  
  
                                        **        PROCESS IDP OPTION (TEST MODE ONLY).                           INIT00    334
                                                                                                                 INIT00    335
                                                                                                                 INIT00    336
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT00    337
                                         PAC=IDP  SA1    X1                                                      INIT00    338
                                                  BX6    X1          GET DEFAULT                                 INIT00    339
                                                  NZ     X3,PACIDP2  IF NO =                                     INIT00    340
                                                  BX6    0                                                       INIT00    341
                                                  MX7    1                                                       INIT00    342
                                         PACIDP1  RJ     GNC         GET NEXT CHARACTER                          INIT00    343
                                                  NZ     B4,PACIDP3  IF SEPARATOR                                INIT00    344
                                                  SB7    X4-60                                                   INIT00    345
                                                  AX3    X7,B7       SET BIT 2**(59-CHARACTER)                   INIT00    346
                                                  BX6    X6+X3                                                   INIT00    347
                                                  EQ     PACIDP1                                                 INIT00    348
                                                                                                                 INIT00    349
                                         PACIDP2  LX6    59-0                                                    INIT00    350
                                         PACIDP3  SA6    CO.IDP                                                  INIT00    351
                                                  SB7    B0                                                      INIT00    352
                                                  EQ     PAC.RET     RETURN MAIN LOOP...                         INIT00    353
                                         .TEST    ENDIF                                                          INIT00    354
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    38
        PROCESS SPECIAL ARGUMENTS                                     PAC=S 
  
                                        **        PROCESS S PARAMETER.                                           INIT00    356
                                        *                                                                        INIT00    357
                                        *         1.  S                                                          INIT00    358
                                        *         2.  S=0                                                        INIT00    359
                                        *         3.  S=ST1/.../STN                                              INIT00    360
                                        *               WHERE ST(I) IS EITHER *OVL* OR *LIB-OVL1...-OVLN*        INIT00    361
                                                                                                                 INIT00    362
                                                                                                                 INIT00    363
           720                           PAC=S    BSS                                                            INIT00    364
           720  53110                             SA1    X1          DEFAULT OVL                                 INIT00    365
                     43700                        MX7    0           DEFAULT LIB = NONE                          INIT00    366
                          10611                   BX6    X1                                                      INIT00    367
           721  0313000734 +                      NZ     X3,PACS3    IF NO *=*                                   INIT00    368
                          76010                   SX0    B1          .GT. 10 CHAR NOT ALLOWED                    FC5A173    12
           722  0100000342 +                      RJ     GNA         GET NEXT ITEM                               FC5A173    13
           723  66700                             SB7    B0                                                      FC5A173    14
                     0316000727 +                 NZ     X6,PACS1A   IF NOT FOLLOWD BY SEP. OR TERM.             FC5A173    15
           724  0441000057 +                      EQ     B4,B1,PAC.RET     IF S=,                                FC5A173    17
                          0400000727 +            EQ     PACS1A                                                  FC50626     6
                                                                                                                 FC50626     7
           725  76010                    PACS1    SX0    B1          .GT. 10 CHAR NOT ALLOWED                    INIT00    369
                     0100000342 +                 RJ     GNA         GET LIB OR OVL NAME                         INIT00    370
           726  0306001001 +                      ZR     X6,E.ISS    IF NULL OPTION                              INIT00    371
                                                                                                                 FC5A173    18
           727  10166                    PACS1A   BX1    X6                                                      FC5A173    19
                     0100000237 +                 RJ     CFV         CHECK FILENAME VALIDITY                     INIT00    373
           730  0314001001 +                      NZ     X4,E.ISS    IF ILLEGAL FILE NAME                        INIT00    374
                          7170000000              SX7    0           DEFAULT = NO LIB                            FC50626     8
           731  6170000004                        SB7    /COMCPAC/O.MINUS                                        INIT00    375
                          0574000734 +            NE     B7,B4,PACS3 IF NO *-*                                   INIT00    376
           732  0306001001 +                      ZR     X6,E.ISS    IF NO LIB (S=-OVL)                          INIT00    377
                          10766                   BX7    X6          SET LIB NAME                                INIT00    378
                                                                                                                 FC50626     9
           733  76010                    PACS2    SX0    B1          .GT. 10 CHAR NOT ALLOWED                    INIT00    379
                     0100000342 +                 RJ     GNA         GET OVL NAME                                INIT00    380
                                                                                                                 FC50626    10
           734  0316000736 +             PACS3    NZ     X6,PACS4    IF NOT S=0                                  INIT00    381
                          5160000000 X            SA6    CP.LIB      SET S=0 FLAG                                INIT00    382
           735  0400000741 +                      EQ     PACS5       CONTINUE                                    INIT00    383
                                                                                                                 INIT00    384
           736  5120000000 X             PACS4    SA2    CP.STXT                                                 INIT00    385
                          6262777770              SB6    X2-Z.TXTS                                               INIT00    386
           737  63721                             SB7    X2+B1                                                   INIT00    387
                     0460001040 +                 ZR     B6,E.S7     IF MORE THAN 7 TEXTS SPECIFIED              INIT00    388
                               54627              SA6    A2+B7       STORE OVERLAY NAME                          INIT00    389
           740  5177000000 X                      SA7    CP.LIB+B7   STORE LIB NAME                              INIT00    390
                          76670                   SX6    B7                                                      INIT00    391
                               54620              SA6    A2          UPDATE COUNT                                INIT00    392
                                                                                                                 FC50626    11
           741  6170000004               PACS5    SB7    /COMCPAC/O.MINUS                                        INIT00    393
                          0474000733 +            EQ     B7,B4,PACS2 IF *-* IS NEXT                              INIT00    394
           742  6170000002                        SB7    /COMCPAC/O.SLASH                                        INIT00    395
                          0474000725 +            EQ     B7,B4,PACS1 IF */* IS NEXT                              INIT00    396
           743  66700                             SB7    B0                                                      INIT00    397
                     0400000057 +                 EQ     PAC.RET     RETURN TO MAIN LOOP...                      INIT00    398
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    39
        PROCESS SPECIAL ARGUMENTS                                     PAC=SNAP
  
                                        **        PROCESS SNAP OPTION (TEST MODE ONLY).                          INIT00    400
                                                                                                                 INIT00    401
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT00    402
                                         PAC=SNAP BSS                                                            INIT00    403
                                                  SA1    X1                                                      INIT00    404
                                                  BX6    X1          GET DEFAULT                                 INIT00    405
                                                  NZ     X3,PACSNP2  IF NO =                                     INIT00    406
                                                  BX6    0                                                       INIT00    407
                                                  MX7    1                                                       INIT00    408
                                         PACSNP1  RJ     GNC         GET NEXT CHARACTER                          INIT00    409
                                                  NZ     B4,PACSNP3  IF SEPARATOR                                INIT00    410
                                                  SB7    X4-60                                                   INIT00    411
                                                  AX3    X7,B7       SET BIT 2**(59-CHARACTER)                   INIT00    412
                                                  BX6    X6+X3                                                   INIT00    413
                                                  EQ     PACSNP1                                                 INIT00    414
                                                                                                                 INIT00    415
                                         PACSNP2  LX6    59-0                                                    INIT00    416
                                         PACSNP3  SA6    CO.SNAP                                                 INIT00    417
                                                  SB7    B0                                                      INIT00    418
                                                  EQ     PAC.RET     RETURN MAIN LOOP...                         INIT00    419
                                         .TEST    ENDIF                                                          INIT00    420
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    40
        CONTROL STATEMENT ERRORS                                      CSERRS
  
                                        *         ERROR MESSAGES.                                                INIT00    422
                                                                                                                 INIT00    423
                                                                                                                 INIT00    424
           744  6160002217 +             E.ANSI   CSERR  (ANSI MUST BE 0, T OR F)                                INIT00    425
           745  0400001171 +                      EQ     MIB4        CONTINUE INITIALIZATION                     INIT00    426
                                                                                                                 INIT00    427
           746  5160000273 +             E.ARG    SA6    ERR.FLD                                                 FC5A333     5
                          6160002222 +            CSERR  (ARG CANT BE BOTH COMMON AND FIXED)                     FC5A333     6
           750  0400001175 +                      EQ     MIB7                                                    F1037F5   278
                                                                                                                 INIT00    430
           751  5160000273 +             E.BGO    SA6    ERR.FLD                                                 FC5A333     7
                          6160002226 +            CSERR  (B=0 AND GO IS INCONSISTENT)                            FC5A333     8
           753  0400001251 +                      EQ     MIB35                                                   INIT00    432
                                                                                                                 INIT00    433
           754  5160000273 +             E.CS     SA6    ERR.FLD                                                 FC5A333     9
                          6160002231 +            CSERR  (CS MUST BE USER OR FIXED)                              FC5A333    10
           756  7160000001                        SX6    1                                                       INIT00    435
                          0400001300 +            EQ     MIB55                                                   INIT00    436
                                                                                                                 INIT00    437
           757  43600                    E.ID     MX6    0                                                       FC5A155     6
                     5160000273 +                 SA6    ERR.FLD                                                 FC5A155     7
           760  6160002234 +                      CSERR  (INTERACTIVE DEBUG REQUIRES OPT=0)                      FC5A155     8
           761  0400001324 +                      EQ     MIB100                                                  FC5A155     9
                                                                                                                 FC5A333    11
           762  6160002240 +             E.EF     CSERR  (E=0 IS ILLEGAL)                                        INIT00    438
           763  0400001427 +                      EQ     MIB125                                                  INIT00    439
                                                                                                                 INIT00    440
                                                  IFEQ   TEST,ON,2                                               INIT00    441
                                         E.EL     CSERR  (EL MUST BE D, T, W, F, OR C)                           INIT00    442
                                                  SKIP   1                                                       INIT00    443
           764  6160002242 +             E.EL     CSERR  (EL MUST BE T, W, F, OR C)                              INIT00    444
           765  0400001162 +                      EQ     MIB2        CONTINUE INITIALIZATION                     INIT00    445
                                                                                                                 INIT00    446
           766  6160002245 +             E.ET     CSERR  (ET MUST BE 0, T, W, F, OR C)                           INIT00    447
           767  0400001233 +                      EQ     MIB22       CONTINUE INITIALIZATION                     INIT00    448
                                                                                                                 FC5A333    12
           770  6160002251 +             E.LFNC   CSERR  (FILE USE CONFLICT)                                     FC50022     5
           771  0400001427 +                      EQ     MIB125                                                  FC50022     6
                                                                                                                 FC50022     7
                                                                                                                 FC5A173    20
           772  6160002254 +             E.IZ     CSERR  (I=0 IS NOT ALLOWED)                                    FC5A173    21
           773  0400001427 +                      EQ     MIB125                                                  FC5A173    22
                                                                                                                 FC5A173    23
           774  6160002257 +             E.XZ     CSERR  (X=0 IS NOT ALLOWED)                                    FC5A173    24
           775  0400001427 +                      EQ     MIB125                                                  FC5A173    25
                                                                                                                 INIT00    449
           776  7160000000               E.IGS    SX6    0                                                       FC5A333    13
                          5160000273 +            SA6    ERR.FLD                                                 FC5A333    14
           777  6160002262 +                      CSERR  (ILLEGAL G OPTION SYNTAX)                               FC5A333    15
          1000  0400000057 +                      EQ     PAC.RET                                                 INIT00    451
                                                                                                                 INIT00    452
          1001  7160000000               E.ISS    SX6    0                                                       FC5A333    16
                          5160000273 +            SA6    ERR.FLD                                                 FC5A333    17
          1002  6160002265 +                      CSERR  (ILLEGAL S OPTION SYNTAX)                               FC5A333    18
          1003  0400000057 +                      EQ     PAC.RET                                                 INIT00    454
                                                                                                                 INIT00    455
          1004  6160002270 +             E.LCM    CSERR  (LCM OPTION MUST BE G, I OR D)                          INIT00    456
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    41
        CONTROL STATEMENT ERRORS                                      CSERRS
  
          1005  0400001274 +                      EQ     MIB53                                                   INIT00    457
                                                                                                                 INIT00    458
          1006  6160002274 +             E.MD     CSERR  (MD MUST BE 0, T OR F)                                  F1037F5   279
          1007  0400001204 +                      EQ     MIB10                                                   F1037F5   280
                                                                                                                 F1037F5   281
          1010  76611                    E.OPT    =X6    2                                                       INIT00    459
                     54610                        SA6    A1          RESET CO.OPT TO OPT=2                       INIT00    460
                          7160000000              SX6    0                                                       FC5A333    19
          1011  5160000273 +                      SA6    ERR.FLD                                                 FC5A333    20
                          6160002277 +            CSERR  (OPT LEVEL NOT 0,1,2, OR 3)                             INIT00    461
          1013  0400000026 +                      EQ     FTN1                                                    INIT00    462
                                                                                                                 INIT00    463
          1014  5160000273 +             E.PD     SA6    ERR.FLD                                                 FC5A333    21
                          6160002302 +            CSERR  (PD ARGUMENT NOT 6 OR 8)                                FC5A333    22
          1016  0400001311 +                      EQ     MIB72                                                   INIT00    465
                                                                                                                 FC50049     8
          1017  7160000000               E.PL     SX6    0                                                       FC5A333    23
                          5160000273 +            SA6    ERR.FLD                                                 FC5A333    24
          1020  6160002305 +                      CSERR  (PL MUST NOT EXCEED 999999999)                          FC5A333    25
          1021  0400001317 +                      EQ     MIB80                                                   FC50049    10
                                                                                                                 INIT00    466
          1022  5110000671 +             E.PS     SA1    WARN                                                    FC5A426    42
                          10611                   BX6    X1                                                      FC5A426    43
          1023  5160000273 +                      SA6    ERR.FLD     ADD WARN MESSAGE                            FC5A426    44
                          6160002311 +            CSERR  (PAGE SIZE RANGE .GT. 3)                                FC5A426    45
          1025  7160000000                        SX6    0                                                       FC5A426    46
                          5160000273 +            SA6    ERR.FLD                                                 FC5A426    47
          1026  5110000300 +                      SA1    ERR.CNT                                                 FC5A426    48
                          7261777776              SX6    X1-1                                                    FC5A426    49
          1027  54610                             SA6    A1          DONT COUNT IT                               FC5A426    50
                     7160000004                   SX6    4           SET TO LOW LIMIT                            FC5A426    51
          1030  0400001314 +                      EQ     MIB75                                                   INIT00    469
                                                                                                                 INIT00    470
          1031  63260                    E.PW     SB2    X6          SAVE FILE ORDINAL                           FC5A426    52
                     63310                        SB3    X1          NEG. IF VALUE TO LOW                        FC5A426    53
                          5110000671 +            SA1    WARN                                                    FC5A426    54
          1032  10611                             BX6    X1                                                      FC5A426    55
                     5160000273 +                 SA6    ERR.FLD                                                 FC5A426    56
          1033  6160002314 +                      CSERR  (PAGE WIDTH RANGE 50 - 136)                             FC5A426    57
          1034  5110000300 +                      SA1    ERR.CNT                                                 FC5A426    58
                          7261777776              SX6    X1-1                                                    FC5A426    59
          1035  54610                             SA6    A1                                                      FC5A426    60
                     76620                        SX6    B2                                                      FC5A426    61
                          7120000062              SX2    50          LOW LIMIT OF WIDTH                          FC5A426    62
          1036  0730001524 +                      MI     B3,PPW60.1  IF TOO LOW                                  FC5A426    63
                          7120000210              SX2    136         SET TO HIGH LIMIT                           FC5A426    64
          1037  0400001524 +                      EQ     PPW60.1                                                 FC5A426    65
                                                                                                                 INIT00    473
          1040  7160000000               E.S7     SX6    0                                                       FC5A333    29
                          5160000273 +            SA6    ERR.FLD                                                 FC5A333    30
          1041  6160002317 +                      CSERR  (ONLY 7 SYSTEMS TEXTS ALLOWED)                          FC5A333    31
          1042  0400000057 +                      EQ     PAC.RET                                                 INIT00    478
                                                  PURGMAC CSERR                                                  INIT00    479
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    42
        COMPILER INITIALIZATION SUBROUTINES                           CFL 
  
                                        **        CFL - CHECK FIELD LENGTH.                                      INIT00    482
                                        *                                                                        INIT00    483
                                        *         COMPARES CURRENT FIELD LENGTH VS. MINIMUM FIELD LENGTH.        INIT00    484
                                        *         EXITS IF CURRENT FL IS ABOVE MINIMUM. OTHERWISE, REQUESTS      INIT00    485
                                        *         FIELD LENGTH EQUAL TO THE NOMINAL FIELD LENGTH FOR THIS MODE   INIT00    486
                                        *         (I.E. OPT=0,1,2) OR THE MAXIMUM FOR THIS JOB STEP - WHICHEVER  INIT00    487
                                        *         IS SMALLER.                                                    INIT00    488
                                        *                                                                        INIT00    489
                                        *         ENTRY  (CP.AFLS) = CURRENT FL.                                 INIT00    490
                                        *                                                                        INIT00    491
                                        *         EXITS  NORMAL--    RETURNS TO CALLER VIA ENTRY POINT.          INIT00    492
                                        *                            (CP.AFLS) = NEW CURRENT FL.                 INIT00    493
                                        *                            (CP.NFLS) = (CP.AFLS)-10                    INIT00    494
                                        *                            (CP.MXFL) = (CP.AFLS)                       INIT00    495
                                        *                                                                        INIT00    496
                                        *                ERROR--     ABORTS JOB.                                 INIT00    497
                                        *                                                                        INIT00    498
                                        *         USES   ALL                                                     INIT00    499
                                        *                                                                        INIT00    500
                                        *         CALLS  ABTFTN, COD, DXB, MEMORY, MESSAGE                       INIT00    501
                                                                                                                 INIT00    502
                                                                                                                 INIT00    503
          1043  0400401043 +             CFL      SUBR               ...ENTRY/EXIT...                            INIT00    504
                                                                                                                 INIT00    505
          1044  7160150515                        MEMORY SCM,MAX.FL,RCL    GET MAXIMUM FL                        INIT00    506
          1047  5110000000 X                      SA1    CP.AFLS                                                 INIT00    507
                          63610                   SB6    X1          INITIAL FL                                  INIT00    508
                               76660              SX6    B6                                                      INIT00    509
                                                                                                                 INIT00    510
                                        *         IF TEST MODE - SUBSTITUTE RFL VALUE IF REQUESTED.              INIT00    511
                                                                                                                 INIT00    512
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT00    513
                                                  SA5    CO.RFL                                                  INIT00    514
                                                  ZR     X5,CFL5     IF NO RFL ON CONTROL STATEMENT              INIT00    515
                                                  SB7    0           ASSUME OCTAL FOR DXB                        INIT00    516
                                                  CALL   DXB         CONVERT REQUESTED FL                        INIT00    517
                                                  ZR     X6,CFL3     IF DEFAULT RFL                              INIT00    518
                                                  SB6    X6          NEW FL                                      INIT00    519
                                         .TEST    ENDIF                                                          INIT00    520
                                                                                                                 INIT00    521
          1050  5110000000 X             CFL3     SA1    MAX.FL                                                  INIT00    522
                          21136                   AX1    30                                                      INIT00    523
                               63710              SB7    X1                                                      INIT00    524
          1051  77676                             SX6    B7-B6                                                   INIT00    525
                     0336000000 X                 MI     X6,MEMERR   IF NOT ENOUGH MEMORY                        INIT00    526
                               76660              SX6    B6                                                      INIT00    527
                                                                                                                 INIT00    528
                                        *         REQUEST MORE MEMORY.                                           INIT00    529
                                                                                                                 INIT00    530
          1052  20636                             LX6    30                                                      INIT00    531
                     5160000000 X                 SA6    GT1                                                     INIT00    532
          1053  7160150515                        MEMORY SCM,GT1,RCL                                             INIT00    533
          1056  5110000000 X                      SA1    GT1           GET NEW FL                                INIT00    534
                          21136                   AX1    30                                                      INIT00    535
                               10611              BX6    X1                                                      INIT00    536
                                                                                                                 INIT00    537
                                        *         UPDATE FIELD LENGTH CELLS.                                     INIT00    538
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    43
        COMPILER INITIALIZATION SUBROUTINES                           CFL 
  
                                                                                                                 INIT00    539
          1057  7276777765               CFL5     SX7    X6-FLSZ     LEAVE 10 WORD SAFETY ZONE                   INIT00    540
                          5170000000 X            SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL             INIT00    541
          1060  5160000000 X                      SA6    CP.AFLS     UPDATE TO CURRENT FL                        INIT00    542
                          5160000000 X            SA6    CP.MXFL     INITIALIZE MAX FL USED                      INIT00    543
                                                                                                                 FC5A348    14
                                        *         CHECK LCM AVAILABILITY.                                        FC5A348    15
                                                                                                                 FC5A348    16
          1061  5110000000 X                      SA1    CO.EC                                                   FC5A348    17
                          0301001043 +            ZR     X1,EXIT.    IF NO OPT=2 LCM REQUIRED                    FC5A348    18
          1062  43635                             MX6    29          (-1, BITS 50-30)                            FC5A348    19
                     5160000000 X                 SA6    GT1         MEMORY REQUEST WORD                         FC5A348    20
          1063  7160150515                        MEMORY LCM,GT1,RCL                                             FC5A348    21
          1067  5110000000 X                      SA1    GT1                                                     FC5A348    22
                          21136                   AX1    30                                                      FC5A348    23
                               10611              BX6    X1                                                      FC5A348    24
          1070  0311001043 +                      NZ     X1,EXIT.    IF LCM AVAILABLE                            FC5A348    25
                          5160000000 X            SA6    CO.EC       OTHERWISE, TURN OFF                         FC5A348    26
          1071  0400001043 +                      EQ     EXIT.       EXIT...                                     INIT00    571
  
  
  
  
                                        **        CFN - CHANGE FILE NAME.                                        INIT00    573
                                        *                                                                        INIT00    574
                                        *         CHANGES OR CLEARS ENTRY IN THE FILE VECTOR TABLE .             INIT00    575
                                        *         EXITS WITHOUT ACTION IF THE VECTOR TABLE ENTRY IS ZERO.        INIT00    576
                                        *                                                                        INIT00    577
                                        *         (CIO I/O) - CHANGES OR CLEARS FILE NAME IN FET.                INIT00    578
                                        *         FOR A NAME CHANGE, THE EXISTING FET FILE MODE BIT IS RETAINED  INIT00    579
                                        *         AND THE CIO COMPLETE BIT IS SET.                               INIT00    580
                                        *         FOR A NAME CLEAR, FET WORD 1 IS CLEARED TO ZERO.               INIT00    581
                                        *                                                                        INIT00    582
                                        *         (7RM I/O) - CHANGES OR CLEARS FILE NAME IN FIT.                INIT00    583
                                        *                                                                        INIT00    584
                                        *         ENTRY  (X2) = FILE VECTOR TABLE ENTRY                          INIT00    585
                                        *                (A2) = ADDRESS OF (X2) ENTRY                            INIT00    586
                                        *                (X6) = NEW NAME, MAX 7 CHARACTERS, LEFT ADJUSTED        INIT00    587
                                        *                       ACTION REQUEST --                                INIT00    588
                                        *                       .ZR. = CLEAR ENTRY                               INIT00    589
                                        *                       .NZ. = CHANGE NAME; KEEP PREVIOUS FET/FIT ADDR   INIT00    590
                                        *                                                                        INIT00    591
                                        *         USES   B - 6                                                   INIT00    592
                                        *                A - 1, 3, 6, 7                                          INIT00    593
                                        *                X - 1, 3, 6, 7                                          INIT00    594
                                        *                                                                        INIT00    595
                                        *         CALLS  STORE (7RM I/O ONLY)                                    INIT00    596
                                                                                                                 INIT00    597
                                                                                                                 INIT00    598
          1072  0400401072 +             CFN      SUBR               ...ENTRY/EXIT...                            INIT00    599
          1073  0302001072 +                      ZR     X2,EXIT.    IF EMPTY TABLE ENTRY, DONE...               INIT00    600
                          43700                   MX7    0                                                       INIT00    601
                               73320              SX3    X2          FET/FIT ADDRESS                             INIT00    602
          1074  0306001075 +                      ZR     X6,CFN2     IF CLEARING NAME                            INIT00    603
                          36763                   IX7    X6+X3       42/NEW NAME, 18/FET OR FIT ADDRESS          INIT00    604
          1075  54720                    CFN2     SA7    A2          UPDATE TABLE                                INIT00    605
                                                                                                                 INIT00    606
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    44
        COMPILER INITIALIZATION SUBROUTINES                           CFN 
  
                                         .RM      IFEQ   CP#RM,0     IF CIO I/O                                  INIT00    607
                     0306001100 +                 ZR     X6,CFN3     IF NAME TO BE CLEARED                       INIT00    608
                               53320              SA3    X2          (X3) = FET WORD 1                           INIT00    609
          1076  7170000002                        SX7    2                                                       INIT00    610
                          11373                   BX3    X7*X3       EXTRACT FILE MODE BIT                       INIT00    611
          1077  7273000001                        SX7    X3+1        TURN CIO COMPLETE BIT ON                    INIT00    612
                          36667                   IX6    X6+X7       42/NEW FILE NAME,16/0,1/OLD MODE BIT,1/1    INIT00    613
          1100  53620                    CFN3     SA6    X2          UPDATE FET WORD 1                           INIT00    614
                                                                                                                 INIT00    615
                                         .RM      ELSE               IF 7RM I/O                                  INIT00    616
                                                                                                                 INIT00    617
                                                  SA1    A5          SAVE (A5) AND (X5)                          INIT00    618
                                                  BX3    X5                                                      INIT00    619
                                                  SB6    B5          SAVE (B5)                                   INIT00    620
                                                  STORE  X2,LFN=X6   NEW NAME TO FIT                             INIT00    621
                                                  SA5    A1          RESTORE (A5) AND (X5)                       INIT00    622
                                                  BX5    X3                                                      INIT00    623
                                                  SB5    B6          RESTORE (B5)                                INIT00    624
                                         .RM      ENDIF                                                          INIT00    625
                                                                                                                 INIT00    626
                     0400001072 +                 EQ     EXIT.       DONE...                                     INIT00    627
  
  
  
  
                                        **        MIA - MISCELLANEOUS INITIALIZATION, PART A.                    INIT00    629
                                        *                                                                        INIT00    630
                                        *         ENTRY  (X0) = ECS/LCM FIELD LENGTH                             INIT00    631
                                        *                (A0) = CM /SCM FIELD LENGTH                             INIT00    632
                                        *                (B1) = 1                                                INIT00    633
                                        *                                                                        INIT00    634
                                        *         EXIT   (B1) = 1                                                INIT00    635
                                        *                                                                        INIT00    636
                                        *         USES   X - 0, 1, 6, 7                                          INIT00    637
                                        *                A - 1, 6, 7                                             INIT00    638
                                        *                B - 2, 3                                                INIT00    639
                                        *                                                                        INIT00    640
                                        *         CALLS  TIMER, DATE, CLOCK                                      INIT00    641
                                                                                                                 INIT00    642
                                                                                                                 INIT00    643
          1101  0400401101 +             MIA      SUBR               ...ENTRY/EXIT...                            INIT00    644
                                                                                                                 INIT00    645
                                        **        SAVE HHA                                                       INIT00    646
                                                                                                                 INIT00    647
          1102  5110000104                        SA1    RA.ORG+4    FWA 5400 TABLE + 4 (HHA)                    FC5A262    15
                          43652                   MX6    -18                                                     INIT00    649
                               15616              BX6    -X6*X1      X6 = HHA                                    INIT00    650
          1103  5160000000 X                      SA6    FTNHHA                                                  INIT00    651
                                                                                                                 INIT00    652
                                        **        SAVE FIELD LENGTHS.                                            INIT00    653
                                                                                                                 INIT00    654
                          74600                   SX6    A0          CM/SCM FIELD LENGTH                         INIT00    655
                               10700              BX7    X0          ECS/LCM FIELD LENGTH                        FC5A158A  385
          1104  5160000000 X                      SA6    CP.AFLS                                                 INIT00    657
                          5170000000 X            SA7    CP.AFLL     SAVE FOR *COMPASS*                          INIT00    658
          1105  5160000000 X                      SA6    CP.NFLS                                                 INIT00    659
                          5170000000 X            SA7    CP.NFLL     SAVE FOR *COMPASS*                          INIT00    660
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    45
        COMPILER INITIALIZATION SUBROUTINES                           MIA 
  
          1106  5170000000 X                      SA7    CP.ILFL                                                 FC5A119    28
                          46000                   NO                                                             INIT00    661
                               20636              LX6    30                                                      INIT00    662
          1107  5160000000 X                      SA6    FTIFL       SAVE FOR EXIT RESTORATION                   INIT00    663
                                                                                                                 INIT00    664
                                                                                                                 INIT00    665
                                        **        OBTAIN CURRENT SENSE SWITCH VALUES (CYBER 76/ 7600 ONLY.)      INIT00    666
                                                                                                                 INIT00    667
                                         .OS      IFEQ   .OS,2       IF SCOPE 2                                  INIT00    668
                                                  SSW                UPDATE RA.SSW                               INIT00    669
                                         .OS      ENDIF                                                          INIT00    670
                                                                                                                 INIT00    671
                                                                                                                 INIT00    672
                                        **        IF SWITCH 5 IS SET - CALL IDP                                  INIT00    673
                                                                                                                 INIT00    674
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT00    675
                                                  SA1    RA.SSW                                                  INIT00    676
                                                  LX1    59-5-5                                                  INIT00    677
                                                  PL     X1,MIA2     IF SWITCH 5 IS OFF                          INIT00    678
                                                                                                                 INIT00    679
                                         #OS      IFNE   .OS,2,1                                                 FC5A158A  386
                                         INIT00   BREAK                                                          INIT00    680
                                                                                                                 INIT00    681
                                         MIA2     BSS    0                                                       INIT00    682
                                                  LX1    10-5-6                                                  INIT00    683
                                                  MI     X1,MIA4     IF SWITCH 6 ON, SKIP *RPV* REQUEST          INIT00    684
                                         .TEST    ENDIF                                                          INIT00    685
                                                                                                                 INIT00    686
                          43173                   RPVON              TURN ON REPRIEVE                            INIT00    687
          1115                           MIA4     BSS    0                                                       INIT00    688
                                                                                                                 INIT00    689
                                                                                                                 INIT00    690
                                        **        INSERT DATE AND TIME IN HEADER LINE                            INIT00    691
                                                                                                                 INIT00    692
          1115  7160241115                        DATE   TL.DATE                                                 INIT00    693
          1120  7160241115                        CLOCK  TL.TIME                                                 INIT00    694
                                                                                                                 INIT00    695
                                        *         INSERT DATE AND TIME IN ERR-LIST HEADER.                       INIT00    696
                                                                                                                 INIT00    697
          1123  5110000000 X                      SA1    TL.DATE                                                 INIT00    698
                          5120000000 X            SA2    TL.TIME                                                 INIT00    699
          1124  10611                             BX6    X1                                                      INIT00    700
                     22702                        LX7    X2                                                      INIT00    701
                          5061000000 X            SA6    A1+ERFO                                                 F1039     202
          1125  5062000000 X                      SA6    A2+ERFO                                                 F1039     203
                                                                                                                 INIT00    704
                                                                                                                 INIT00    705
                                        **        SAVE CPU START TIME.                                           INIT00    706
                                                                                                                 INIT00    707
                          0100000000 X            CALL   TIMER                                                   INIT00    708
          1126  5160000000 X                      SA6    TIME0       SAVE COMPILATION START TIME                 FC5A132    57
                                                                                                                 INIT00    711
                                                                                                                 INIT00    712
                                        **        CHANGE NAME OF FTN OVERLAY LIBRARY IF (0,0) OVERLAY LOADED     INIT00    713
                                        *         FROM A NON-STANDARD LIBRARY OR FILE.                           INIT00    714
                                                                                                                 INIT00    715
                          5110000065              SA1    RA.LWP      (X1) = LOADER REPLY WORD                    INIT00    716
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    46
        COMPILER INITIALIZATION SUBROUTINES                           MIA 
  
          1127  5120000064                        SA2    RA.PGN      (X2) = ACTUAL LIBRARY NAME                  INIT00    717
                          20151                   LX1    59-18       LIBRARY FLAG TO B59                         INIT00    718
                               43652              MX6    42                                                      INIT00    719
          1130  0331001132 +                      MI     X1,MIA6     IF FTN LOADED FROM LIBRARY FILE             INIT00    720
                          7170002040              SX7    2040B       CLEAR LIBRARY BIT                           INIT00    721
          1131  20744                             LX7    36                                                      INIT00    722
                     5170000000 X                 SA7    FTNLDR      RESET LOAD REQUEST WORD                     INIT00    723
          1132  5130002323 +             MIA6     SA3    =0L"FTNMAIN"      (X3) = STANDARD SYSTEM LIBRARY NAME   INIT00    724
                          11662                   BX6    X6*X2                                                   INIT00    725
                               37263              IX2    X6-X3                                                   INIT00    726
          1133  0302001134 +                      ZR     X2,MIA8     IF USER DID NOT CHANGE NAME                 INIT00    727
                          5160000000 X            SA6    FTNLFN      SAVE FOR *LOVER* CALLS                      INIT00    728
          1134                           MIA8     BSS    0                                                       INIT00    729
                                                                                                                 INIT00    730
                                                                                                                 INIT00    731
                                        **        MOVE FILE VECTOR TABLE TO JOB COMMUNICATIONS AREA, BEGINNING   INIT00    732
                                        *         AT *RA.ARG*.                                                   INIT00    733
                                                                                                                 INIT00    734
          1134  7110000000 X                      MOVE   FVLEN,FVTBL,RA.ARG                                      INIT00    735
                                                                                                                 INIT00    736
                                                                                                                 INIT00    737
                                        **        DEFAULT (CO.DBID) = VALUE OF SYSTEM GLOBAL DEBUG SWITCH.       INIT00    738
                                                                                                                 INIT00    739
                                         #FID     IFEQ   .FID,ON                                                 FC5A158A  387
          1136  7160032015                        GETLC  CO.DBID                                                 INIT00    740
          1142  5110000000 X                      SA1    CO.DBID                                                 INIT00    741
                          43701                   MX7    1                                                       INIT00    742
                               20130              HX1    DC.FID      EXTRACT VALUE OF SWITCH                     INIT00    743
          1143  11671                             BX6    X7*X1                                                   INIT00    744
                     54610                        SA6    A1                                                      INIT00    745
                                         #FID     ENDIF                                                          FC5A158A  388
                                                                                                                 INIT00    746
                                                                                                                 INIT00    747
                                        **        OBTAIN  JOB ORIGIN TYPE FROM BITS 24-35 OF RA+66.  IF VALUE IS INIT00    748
                                        *         0, 1, OR 2, JOT IS TYPE BATCH.  IF GREATER, JOT IS TYPE        INIT00    749
                                        *         TERMINAL.                                                      INIT00    750
                                                                                                                 INIT00    751
                          5110000066              SA1    RA.JOT                                                  INIT00    752
          1144  43060                             MX0    -12                                                     INIT00    753
                     21130                        AX1    24          RIGHT JUSTIFY JOT                           INIT00    754
                          15110                   BX1    -X0*X1      ISOLATE THAT FIELD                          INIT00    755
                               43700              MX7    0                                                       INIT00    756
          1145  7211777774                        SX1    X1-3                                                    INIT00    757
                          0331001147 +            MI     X1,MIA10    IF JOT LESS THAN 3 (BATCH)                  INIT00    758
          1146  7170000001                        SX7    1           JOT FOR TERMINAL JOB                        INIT00    759
          1147  5170000000 X             MIA10    SA7    JOT         STORE JOB ORIGIN TYPE                       INIT00    760
                          0400001101 +            EQ     EXIT.       DONE...                                     INIT00    761
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    47
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                                        **        MIB - MISCELLANEOUS INITIALIZATION, PART B.                    INIT00    763
                                        *                                                                        INIT00    764
                                        *         ENTRY  (B1) = 1                                                INIT00    765
                                        *                                                                        INIT00    766
                                        *         EXIT   (B1) = 1                                                INIT00    767
                                        *                                                                        INIT00    768
                                        *         USES   ALL                                                     INIT00    769
                                                                                                                 INIT00    770
                                                                                                                 INIT00    771
          1150  0400401150 +             MIB      SUBR               ...ENTRY/EXIT...                            INIT00    772
                                                                                                                 F1037F5   282
                                        **        SET A FLAG THAT INDICATES WHETHER OR NOT THE OBJECT TIME       F1037F5   283
                                        *         MACHINE WILL HAVE LCM. (ONLY IF .MI = 1)                       F1037F5   284
                                                                                                                 F1037F5   285
                                         #MI      IFEQ   .MI,1                                                   F1037F5   286
                                                  MX6    0                                                       FC50844    19
                                                  SA6    MIBA        (*GETMC* EXPECTS CELL TO CONTAIN ZERO)      FC50844    20
                                                  GETMC  MIBA        GET MACHINE CHARACTERISTICS                 FC50844    21
                                                  SA2    MIBA                                                    FC50844    22
                                                  HX2    MC.800                                                  FC50844    23
                                                  MX6    -3*CHAR                                                 FC50844    24
                                                  PL     X2,MIB.5    IF NOT 800-SERIES MODEL                     FC50844    25
                                                  SX3    3R800       CHANGE TITLE LINE TO INDICATE               FC50844    26
                                                  BX3    -X6*X3       TARGET MACHINE OF 800-SERIES               FC50844    27
                                                  LX6    2*CHAR                                                  FC50844    28
                                                  SA1    TL.CPU      *  70/176  *                                FC50844    29
                                                  BX6    X6*X1                                                   FC50844    30
                                                  LX3    2*CHAR                                                  FC50844    31
                                                  BX6    X6+X3                                                   FC50844    32
                                                  SA6    A1                                                      FC50844    33
                                                                                                                 FC50844    34
                                         MIB.5    SA1    CO.TMLC                                                 FC50844    35
                                                  ZR     X1,MIB0     IF TM= OR TM OR TM=-LCM APPEARED            F1037F5   288
                                                  MI     X1,MIB0     IF TM=LCM APPEARED ON CONTROL CARD          F1037F5   289
                                                  SA2    MIBA                                                    FC50844    36
                                                  MX0    -MC.176L-1  MASK SIZE OF (MC.176L + 1)                  FC50844    37
                                                  LX0    MC.176P                                                 FC50844    38
                                                  BX6    -X0*X2      NZ IF EITHER 176 OR 800-SERIES              FC50844    39
                                                  SA6    A1                                                      FC50844    40
                                         #MI      ENDIF                                                          F1037F5   298
                                                                                                                 INIT00    773
                                        **        PROCESS EL OPTION.  TRANSFORM EL= T, W, F OR C INTO NUMERIC    INIT00    781
                                        *         VALUES.                                                        INIT00    782
                                                                                                                 INIT00    783
          1151  5110000000 X             MIB0     SA1    CO.EL       ERROR LEVEL (ALPHABETIC)                    F1037F5   299
                          10711                   BX7    X1                                                      FC5A333    32
                               20766              LX7    -CHAR                                                   FC5A333    33
          1152  5170000273 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    34
                          7160000005              SX6    EL=C                                                    INIT00    785
          1153  7231777774                        SX3    X1-1RC                                                  INIT00    786
                          0303001161 +            ZR     X3,MIB1     IF EL=CATISTROPHIC                          INIT00    787
          1154  7266777776                        =X6    X6-EL=C+EL=F                                            INIT00    788
                          7231777771              SX3    X1-1RF                                                  INIT00    789
          1155  0303001161 +                      ZR     X3,MIB1     IF EL=FATAL                                 INIT00    790
                          7266777776              =X6    X6-EL=F+EL=W                                            INIT00    791
          1156  7231777750                        SX3    X1-1RW                                                  INIT00    792
                          0303001161 +            ZR     X3,MIB1     IF EL=WARNING                               INIT00    793
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    48
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1157  7266777776                        =X6    X6-EL=W+EL=T                                            INIT00    794
                          7231777753              SX3    X1-1RT                                                  INIT00    795
                                                                                                                 INIT00    796
                                         .T       IFEQ   TEST,ON                                                 INIT00    797
                                                  ZR     X3,MIB1     IF EL=TRIVIAL                               INIT00    798
                                                  =X6    X6-EL=T+EL=D                                            INIT00    799
                                                  SX3    X1-1RD                                                  INIT00    800
                                         .T       ENDIF                                                          INIT00    801
                                                                                                                 INIT00    802
          1160  0313000764 +                      NZ     X3,E.EL     IF EL= IS IN ERROR                          INIT00    803
                                                                                                                 FC5A333    35
          1161  54610                    MIB1     SA6    A1          RESET CO.EL WITH NUMERIC TRANSFORMATION     INIT00    804
                                                                                                                 INIT00    805
                                        **        PROCESS ANSI OPTION.  TRANSFORM ANSI= 0, T OR F INTO NUMERIC   INIT00    806
                                        *         VALUES.                                                        INIT00    807
                                                                                                                 INIT00    808
          1162  5110000000 X             MIB2     SA1    CO.ANSI     ANSI OPTION (ALPHANUMERIC)                  INIT00    809
                          10711                   BX7    X1                                                      FC5A333    36
                               20766              LX7    -CHAR                                                   FC5A333    37
          1163  5170000273 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    38
                          76600                   =X6    OFF                                                     INIT00    810
          1164  7231777744                        SX3    X1-1R0                                                  INIT00    811
                          0303001170 +            ZR     X3,MIB3     IF ANSI=0 (OFF)                             INIT00    812
          1165  76611                             =X6    EL=T                                                    INIT00    813
                     7231777753                   SX3    X1-1RT                                                  INIT00    814
          1166  0303001170 +                      ZR     X3,MIB3     IF ANSI=T                                   INIT00    815
                          7160000004              =X6    EL=F                                                    INIT00    816
          1167  7231777771                        SX3    X1-1RF                                                  INIT00    817
                          0313000744 +            NZ     X3,E.ANSI   IF ANSI= IN ERROR                           INIT00    818
                                                                                                                 FC5A333    39
          1170  54610                    MIB3     SA6    A1          RESET CO.ANSI WITH NUMERIC TRANSFORMATION   INIT00    819
                                                                                                                 INIT00    820
                                        **        IF QUICK CHECK (QC OPTION) SELECTED, CLEAR BINARY              INIT00    821
                                        *         OUTPUT FILE NAME.                                              INIT00    822
                                                                                                                 INIT00    823
          1171  5110000000 X             MIB4     SA1    CO.QC                                                   INIT00    824
                          0301001173 +            ZR     X1,MIB5     IF QC OPTION OFF                            INIT00    825
          1172  13666                             BX6    OFF                                                     INIT00    826
                     5160000663 +                 SA6    CO.B        CLEAR BINARY OUTPUT FILE NAME               INIT00    827
                                                                                                                 INIT00    828
                                        **        RESOLVE ANY CONFLICT IN ARG=COMMON/FIXED.                      INIT00    829
                                                                                                                 INIT00    830
          1173  5110000000 X             MIB5     SA1    CO.ARGC                                                 INIT00    831
                          5120000000 X            SA2    CO.ARGF                                                 INIT00    832
          1174  43600                             MX6    0                                                       FC5A333    40
                     11112                        BX1    X1*X2                                                   INIT00    833
                          0311000746 +            NZ     X1,E.ARG    IF BOTH COMMON AND FIXED SPECIFIED          INIT00    834
                                                                                                                 INIT00    835
                                        **        PROCESS THE MD OPTION. TRANSFORM MD= 0, T, OR F INTO           F1037F5   300
                                        *         NUMERIC VALUES.                                                F1037F5   301
                                                                                                                 F1037F5   302
          1175  5110000000 X             MIB7     SA1    CO.MD       MD OPTION (ALPHANUMERIC)                    F1037F5   303
                          10711                   BX7    X1                                                      FC5A333    41
                               20766              LX7    -CHAR                                                   FC5A333    42
          1176  5170000273 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    43
                          76600                   =X6    OFF                                                     F1037F5   304
          1177  7231777744                        SX3    X1-1R0                                                  F1037F5   305
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    49
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                          0303001203 +            ZR     X3,MIB9     IF MD = 0  (OFF)                            F1037F5   306
          1200  76611                             =X6    EL=T                                                    F1037F5   307
                     7231777753                   SX3    X1-1RT                                                  F1037F5   308
          1201  0303001203 +                      ZR     X3,MIB9     IF MD = T                                   F1037F5   309
                          7160000004              =X6    EL=F                                                    F1037F5   310
          1202  7231777771                        SX3    X1-1RF                                                  F1037F5   311
                          0313001006 +            NZ     X3,E.MD     IF MD= IN ERROR                             F1037F5   312
                                                                                                                 F1037F5   313
          1203  54610                    MIB9     SA6    A1          RESET CO.MD WITH NUMERIC TRANSFORMATION     F1037F5   314
                                                                                                                 F1037F5   315
                                        **        IF L=0 TURN OFF ALL LIST OPTIONS.                              INIT00    836
                                                                                                                 INIT00    837
          1204                           MIB10    BSS                                                            INIT00    838
          1204  5110000666 +                      SA1    CO.L                                                    INIT00    839
                          0311001211 +            NZ     X1,MIB12    IF L NOT 0                                  INIT00    840
          1205  13666                             BX6    OFF                                                     INIT00    841
                     5160000000 X                 SA6    CP.LSTF                                                 INIT00    842
          1206  5160000000 X                      SA6    CO.LOA                                                  INIT00    843
                          5160000000 X            SA6    CO.LOM                                                  INIT00    844
          1207  5160000000 X                      SA6    CO.LOO                                                  INIT00    845
                          5160000000 X            SA6    CO.LOR                                                  INIT00    846
          1210  5160000000 X                      SA6    CO.LOS                                                  INIT00    847
                          0400001212 +            EQ     MIB20                                                   INIT00    848
                                                                                                                 INIT00    849
          1211  7160000001               MIB12    SX6    1                                                       INIT00    850
                          5160000000 X            SA6    CP.LSTF                                                 INIT00    851
                                                                                                                 INIT00    852
                                                                                                                 INIT00    853
                                        **        SET OVERLAY MODE                                               INIT00    854
                                                                                                                 INIT00    855
          1212  5110000000 X             MIB20    SA1    CO.OPT                                                  INIT00    856
                          5120000000 X            SA2    CO.LOO                                                  INIT00    857
          1213  5130000000 X                      SA3    CO.LOM                                                  INIT00    858
                          5140000000 X            SA4    CO.LOA                                                  INIT00    859
          1214  5150000000 X                      SA5    CO.LOR                                                  INIT00    860
                          12612                   BX6    X1+X2                                                   INIT00    861
                               12663              BX6    X6+X3                                                   INIT00    862
          1215  12664                             BX6    X6+X4                                                   INIT00    863
                     12665                        BX6    X6+X5                                                   INIT00    864
                          5160000034 +            SA6    FTNOVM      .EQ. 0 IF SHORT MODE, .NZ. IF LONG MODE     INIT00    865
                                                                                                                 INIT00    866
                                                                                                                 INIT00    867
                                        **        PROCESS ET OPTION.  TRANSFORM ET= 0, T, W, F OR C INTO NUMERIC INIT00    868
                                        *         VALUES.                                                        INIT00    869
                                                                                                                 INIT00    870
          1216  5110000000 X                      SA1    CO.ET       ERROR TERMINATION (ALPHANUMERIC)            INIT00    871
                          43700                   MX7    OFF                                                     INIT00    872
                               76600              =X6    OFF                                                     INIT00    873
          1217  7231777744                        SX3    X1-1R0                                                  INIT00    874
                          0303001230 +            ZR     X3,MIB21    IF ET=0 (OFF)                               INIT00    875
          1220  10611                             BX6    X1                                                      FC5A333    44
                     20666                        LX6    -CHAR                                                   FC5A333    45
                          5160000273 +            SA6    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    46
          1221  43701                             MX7    ON                                                      INIT00    876
                     7160000005                   SX6    EL=C                                                    INIT00    877
          1222  7231777774                        SX3    X1-1RC                                                  INIT00    878
                          0303001230 +            ZR     X3,MIB21    IF ET=CATASTROPHIC                          INIT00    879
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    50
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1223  7266777776                        SX6    X6-EL=C+EL=F                                            INIT00    880
                          7231777771              SX3    X1-1RF                                                  INIT00    881
          1224  0303001230 +                      ZR     X3,MIB21    IF ET=FATAL                                 INIT00    882
                          7266777776              SX6    X6-EL=F+EL=W                                            INIT00    883
          1225  7231777750                        SX3    X1-1RW                                                  INIT00    884
                          0303001230 +            ZR     X3,MIB21    IF ET=WARNING                               INIT00    885
          1226  7266777776                        SX6    X6-EL=W+EL=T                                            INIT00    886
                          7231777753              SX3    X1-1RT                                                  INIT00    887
          1227  0313000766 +                      NZ     X3,E.ET     IF ET= IS IN ERROR                          INIT00    888
                                                                                                                 FC5A333    47
          1230  54610                    MIB21    SA6    A1          RESET CO.ET WITH NUMERIC TRANSFORMATION     INIT00    889
                     20736                        LX7    59-29                                                   INIT00    890
                          5110000000 X            SA1    CP.ABT                                                  INIT00    891
          1231  43373                             MX3    59                                                      INIT00    892
                     20335                        LX3    29                                                      INIT00    893
                          11131                   BX1    X3*X1                                                   INIT00    894
                               12717              BX7    X1+X7       ADD IN ABORT FLAG                           INIT00    895
          1232  54710                             SA7    A1                                                      INIT00    896
                                                                                                                 INIT00    897
                                        **        CHANGE FILE NAMES.                                             INIT00    898
                                                                                                                 INIT00    899
          1233                           MIB22    BSS                                                            INIT00    900
                                                                                                                 INIT00    901
                                                                                                                 INIT00    902
                                         .CFN     ECHO   ,A=(B,I,L,E),B=(LGO,IN,OUT,ERRS)                        INIT00    903
                                                  SA1    =XCO._A                                                 INIT00    904
                                                  SA2    =XFV._B                                                 INIT00    905
                                                  BX6    X1                                                      INIT00    906
                                                  RJ     CFN                                                     INIT00    907
                                         .CFN     ENDD                                                           INIT00    908
                                                                                                                 INIT00    909
                                                                                                                 INIT00    910
                                        **        ADJUST OPT LEVEL                                               INIT00    911
                                                                                                                 INIT00    912
          1243  5120000000 X                      SA2    CO.OPT                                                  INIT00    913
                          7222777774              SX2    X2-3                                                    INIT00    914
          1244  0312001246 +                      NZ     X2,MIB30    IF OPT .NE. 3                               INIT00    915
                          76610                   =X6    ON                                                      INIT00    916
          1245  5160000000 X                      SA6    CO.UO       TURN UO ON                                  INIT00    917
                          76611                   =X6    2                                                       INIT00    918
                               54620              SA6    A2          SET OPT = 2                                 INIT00    919
                                                                                                                 INIT00    920
                                                                                                                 INIT00    921
                                        **        CHECK FOR B=0 AND GO SELECTION.                                INIT00    922
                                                                                                                 INIT00    923
          1246                           MIB30    BSS                                                            INIT00    924
          1246  5120000000 X                      SA2    CO.GO                                                   INIT00    925
                          0302001253 +            ZR     X2,MIB40    IF GO NOT SELECTED                          INIT00    926
          1247  5130000000 X                      SA3    FV.LGO                                                  INIT00    927
                          0313001251 +            NZ     X3,MIB35    IF B SELECTED                               INIT00    928
          1250  7160000000                        SX6    0                                                       FC5A333    48
                          0400000751 +            EQ     E.BGO       B=0 AND GO IS INCONSISTENT                  INIT00    929
                                                                                                                 INIT00    930
                                                                                                                 INIT00    931
                                        **        IF AUTOMATIC EXECUTION (GO) SELECTED, MOVE THE BINARY          INIT00    932
                                        *         OUTPUT FILE NAME TO THE GO FLAG CELL.                          INIT00    933
                                                                                                                 INIT00    934
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    51
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1251  5120000000 X             MIB35    SA2    FV.LGO                                                  INIT00    935
                          43152                   MX1    7*CHAR                                                  INIT00    936
                               11612              BX6    X1*X2                                                   INIT00    937
          1252  5160000000 X                      SA6    CO.GO       UPDATE GO NAME                              INIT00    938
                                                                                                                 INIT00    939
                                                                                                                 INIT00    940
                                        **        SET UP DB=ER OPTION.                                           INIT00    941
                                                                                                                 INIT00    942
          1253                           MIB40    BSS                                                            INIT00    943
          1253  7100000522                        SX0    2RER                                                    INIT00    944
                          5110000000 X            SA1    CO.DBER                                                 INIT00    945
          1254  37201                             IX2    X0-X1                                                   INIT00    946
                     0302001256 +                 ZR     X2,MIB41    IF DB=ER NOT ON CONTROL STATEMENT           INIT00    947
                               10611              BX6    X1                                                      INIT00    948
          1255  0400001263 +                      EQ     MIB43       SET ER OPTION                               INIT00    949
                                                                                                                 INIT00    950
          1256  5120000000 X             MIB41    SA2    CO.OPT                                                  INIT00    951
                          6272001260 +            SB7    X2+MIB42                                                INIT00    952
          1257  0277000000                        JP     B7                                                      INIT00    953
                                                                                                                 INIT00    954
          1260                           MIB42    BSS                                                            INIT00    955
          1260  43601                   +         MX6    "BV.DBER0"  OPT=0                                       INIT00    956
                     0400001263 +                 EQ     MIB43                                                   INIT00    957
          1261  43600                   +         MX6    "BV.DBER1"  OPT=1                                       INIT00    958
                     0400001263 +                 EQ     MIB43                                                   INIT00    959
          1262  43600                   +         MX6    "BV.DBER2"  OPT=2                                       INIT00    960
                                                                                                                 INIT00    961
          1263  5160000000 X             MIB43    SA6    CO.DBER                                                 INIT00    962
                                                                                                                 INIT00    963
                                                                                                                 INIT00    964
                                        **        CONVERT LCM OPTION VALUE. (G,D,I) = (-1,0,+1)                  INIT00    965
                                                                                                                 INIT00    966
          1264                           MIB50    BSS                                                            INIT00    967
          1264  5110000000 X                      SA1    CO.LCM                                                  INIT00    968
                          10711                   BX7    X1                                                      FC5A333    49
                               20766              LX7    -CHAR                                                   FC5A333    50
          1265  5170000273 +                      SA7    ERR.FLD     FOR POSSIBLE DIAGNOSTIC                     FC5A333    51
                          7160000001              SX6    1                                                       INIT00    969
          1266  7231777766                        SX3    X1-1RI                                                  INIT00    970
                          0303001272 +            ZR     X3,MIB51    IF I                                        INIT00    971
          1267  13666                             BX6    0                                                       INIT00    972
                     7231777773                   SX3    X1-1RD                                                  INIT00    973
          1270  0303001272 +                      ZR     X3,MIB51    IF D                                        INIT00    974
                          7160777776              SX6    -1                                                      INIT00    975
          1271  7231777770                        SX3    X1-1RG                                                  INIT00    976
                          0313001004 +            NZ     X3,E.LCM    IF NOT G                                    INIT00    977
                                                                                                                 FC5A333    52
          1272  5160000000 X             MIB51    SA6    CO.LCM      STORE CONVERTED VALUE                       INIT00    978
                          63261                   =B2    X6+1                                                    INIT00    980
                               43601              MX6    ON                                                      INIT00    981
          1273  0520001274 +                      NZ     B2,MIB53    IF NOT LCM=G                                INIT00    982
                          5160000000 X            SA6    CO.DOLG     LCM=G IMPLIES DO=LONG                       INIT00    983
                                                                                                                 INIT00    984
                                        **        CONVERT CS OPTION VALUE.  USER=1, FIXED=0.                     INIT00    985
                                                                                                                 INIT00    986
          1274  5110000000 X             MIB53    SA1    CO.CS                                                   INIT00    987
                          5120002324 +            SA2    =4LUSER                                                 INIT00    988
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    52
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1275  76610                             =X6    1                                                       INIT00    989
                     37312                        IX3    X1-X2                                                   INIT00    990
                          0303001300 +            ZR     X3,MIB55    IF USER                                     INIT00    991
          1276  5120002202 +                      SA2    =5LFIXED                                                INIT00    992
                          76600                   =X6    0                                                       INIT00    993
                               37312              IX3    X1-X2                                                   INIT00    994
          1277  0313000754 +                      NZ     X3,E.CS     IF NOT FIXED                                INIT00    995
                                                                                                                 FC5A333    53
          1300  5160000000 X             MIB55    SA6    CO.CS       STORE CONVERTED VALUE                       INIT00    996
                                                                                                                 INIT00    997
                                        **        TOGLE CP.PAGE BIT 59 TO KEEP COMPASS PAGINATION CONSISTENT     INIT00    998
                                        *         WITH FTN5 PAGINATION.                                          INIT00    999
                                                                                                                 INIT00   1000
          1301  5140000000 X             MIB70    SA4    CP.PAGE                                                 INIT00   1001
                          43701                   MX7    1                                                       INIT00   1002
                               13774              BX7    X7-X4                                                   INIT00   1003
          1302  54740                             SA7    A4                                                      INIT00   1004
                                                                                                                 INIT00   1005
                                                                                                                 INIT00   1006
                                                                                                                 INIT00   1007
                                        **        CONVERT PD AND PS OPTIONS.                                     INIT00   1008
                                                                                                                 INIT00   1009
                     5140000667 +                 SA4    CO.PD                                                   INIT00   1010
          1303  7110000023                        SX1    1RS                                                     FC5A426    66
                          7130000006              SX3    6                                                       INIT00   1013
          1304  37243                             IX2    X4-X3                                                   INIT00   1014
                     0302001310 +                 ZR     X2,MIB71    IF PD = 6                                   INIT00   1015
          1305  7110000024                        SX1    1RT                                                     INIT00   1016
                          7130000010              SX3    8                                                       INIT00   1017
          1306  37243                             IX2    X4-X3                                                   INIT00   1018
                     43600                        MX6    0                                                       FC5A333    54
                          0302001310 +            ZR     X2,MIB71    IF PD = 8                                   INIT00   1019
          1307  0400001014 +                      EQ     E.PD                                                    INIT00   1020
                                                                                                                 INIT00   1021
          1310  20166                    MIB71    LX1    -CHAR                                                   INIT00   1022
                     10611                        BX6    X1                                                      INIT00   1023
                          5160000000 X            SA6    CP.PD                                                   INIT00   1024
          1311  5120000000 X             MIB72    SA2    CO.PS                                                   FC5A426    67
                          10622                   BX6    X2                                                      INIT00   1026
                               14766              BX7    -X6         FOR COMPASS                                 FC5A426    68
          1312  7266777774                        SX6    X6-3        ALLOW FOR HEADER (FTN5)                     FC5A107    15
                          0306001022 +            ZR     X6,E.PS     IF PS .LT. 4                                FC5A282     5
          1313  0336001022 +                      MI     X6,E.PS     IF PS .LT. 4                                INIT00   1038
                                                                                                                 FC5A333    57
          1314  5160000000 X             MIB75    SA6    CO.PS                                                   FC5A107    16
                          5170000000 X            SA7    CP.PS                                                   FC5A107    17
                                                                                                                 INIT00   1040
                                        *         DIAGNOSE OUT-OF-RANGE PRINT LIMIT.                             FC50049    11
                                                                                                                 FC50049    12
          1315  5110000000 X                      SA1    CO.LL                                                   FC50049    13
                          5120002325 +            SA2    =999999999                                              FC50049    14
          1316  37621                             IX6    X2-X1                                                   FC50049    15
                     0336001017 +                 MI     X6,E.PL     IF PL GT 999999999                          FC50049    16
                                                                                                                 FC50049    17
          1317                           MIB80    BSS    0                                                       FC50049    18
                                                                                                                 INIT00   1041
                                        **        CONVERT DO OPTION FLAGS FROM SWITCHES TO VALUES.               INIT00   1042
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    53
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                                                                                                                 INIT00   1043
          1317  5110000000 X                      SA1    CO.DOLG                                                 INIT00   1044
                          5120000000 X            SA2    CO.DOOT                                                 INIT00   1045
          1320  22611                             LX6    X1,B1                                                   INIT00   1046
                     22712                        LX7    X2,B1                                                   INIT00   1047
                          54610                   SA6    A1                                                      INIT00   1048
                               54720              SA7    A2                                                      INIT00   1049
                                                                                                                 INIT00   1050
                                                                                                                 FC5A155    10
                                        **        DETECT INTERACTIVE DEBUG WITHOUT OPT=0.                        FC5A155    11
                                                                                                                 FC5A155    12
          1321  5120000000 X                      SA2    CO.OPT                                                  FC5A155    13
                          0302001324 +            ZR     X2,MIB100   IF OPT=0                                    FC5A155    14
          1322  5120000000 X                      SA2    CO.DBID                                                 FC5A155    15
                          5130000000 X            SA3    CO.DBST                                                 FC5A155    16
          1323  12323                             BX3    X2+X3                                                   FC5A155    17
                     0313000757 +                 NZ     X3,E.ID     ** INTERACTIVE DEBUG REQUIRES OPT=0         FC5A155    18
                                                                                                                 FC5A155    19
                                                                                                                 INIT00   1051
                                        **        MOVE OPT LEVEL TO TITLE LINE.                                  INIT00   1052
                                                                                                                 INIT00   1053
          1324                           MIB100   BSS                                                            INIT00   1054
          1324  5130000000 X                      SA3    TL.CSOP                                                 F1039     204
                          5120000000 X            SA2    CO.OPT      OPTIMIZATION LEVEL                          INIT00   1056
          1325  5110000000 X                      SA1    CO.UO                                                   INIT00   1057
                          0301001327 +            ZR     X1,MIB102   IF OPT = 3 NOT SELECTED                     INIT00   1058
          1326  7120000003                        SX2    3                                                       INIT00   1059
                                                                                                                 INIT00   1060
          1327  7110000033               MIB102   SX1    1R0                                                     INIT00   1061
                          43006                   MX0    1*CHAR                                                  F1039     205
                               36112              IX1    X1+X2                                                   INIT00   1062
          1330  20044                             LX0    6*CHAR                                                  F1039     206
                     20136                        LX1    5*CHAR                                                  INIT00   1063
                          15330                   BX3    -X0*X3                                                  F1039     207
                               12631              BX6    X3+X1                                                   INIT00   1064
          1331  5160000000 X                      SA6    TL.CSOP                                                 INIT00   1067
                          5066000000 X            SA6    A6+ERFO     INSERT OPTIONS INTO E-LIST HEADER           F1039     208
                                                                                                                 INIT00   1069
                                                                                                                 INIT00   1070
                                        **        DETERMINE PRESENT COMPUTER MODEL AND PLACE IN TITLE LINE.      INIT00   1071
                                                                                                                 INIT00   1072
          1332  43101                             MX1    1                                                       INIT00   1073
                     6120000100                   SB2    1S6                                                     INIT00   1074
                               23121              AX1    B2                                                      INIT00   1075
          1333  7130000006                        SX3    6                                                       INIT00   1076
                          0331001340 +            MI     X1,MIB112   IF MODEL 76 / 7600                          INIT00   1077
          1334  7160000220                        SX6    0220B                                                   INIT00   1078
                          6120001340 +            SB2    MIB112                                                  INIT00   1079
          1335  20660                             LX6    48                                                      INIT00   1080
                     10466                        BX4    X6          FORM  +         JP     B2                   FC5A464    10
                          20436                   LX4    30                -         JP     B2                   FC5A464    11
                               12646              BX6    X4+X6                                                   FC5A464    12
          1336  5160001337 +            +         SA6    *+1         STORE *JP B2* (BOTH UPPER AND LOWER)        FC5A464    13
                          7130000003              SX3    3                                                       INIT00   1082
          1337  7130000004              +         SX3    4           EXECUTE IF MODEL 74/6600, JUMP IF 73/6400   INIT00   1083
                                                                                                                 FC5A333    58
          1340  5110000000 X             MIB112   SA1    TL.CPU        *  70/7X   *                              INIT00   1084
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    54
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                          20344                   LX3    6*6                                                     INIT00   1085
                               36613              IX6    X1+X3                                                   INIT00   1086
          1341  54610                             SA6    A1          CURRENT CPU TYPE TO TITLE LINE              INIT00   1087
                     5066000000 X                 SA6    A6+ERFO     INSERT TYPE INTO ERROR LIST HEADER          F1039     209
          1342  7140004233                        SX4    2R70                                                    INIT00   1089
                          20460                   LX4    8*CHAR                                                  INIT00   1090
                               20314              LX3    2*CHAR                                                  INIT00   1091
          1343  36634                             IX6    X3+X4                                                   INIT00   1092
                     5160000000 X                 SA6    CP.CPU                                                  INIT00   1093
                                                                                                                 INIT00   1094
                                                                                                                 INIT00   1095
                                        **        REMOVE PERIOD FROM END OF TIME IN TITLE LINE.                  INIT00   1096
                                                                                                                 INIT00   1097
          1344  5110000000 X                      SA1    TL.TIME                                                 INIT00   1098
                          7120000055              SX2    1R                                                      INIT00   1099
          1345  43366                             MX3    9*CHAR                                                  INIT00   1100
                     11131                        BX1    X3*X1                                                   INIT00   1101
                          12612                   BX6    X1+X2                                                   INIT00   1102
                               54610              SA6    A1          BLANK FINAL PERIOD IN TIME                  INIT00   1103
          1346  5066000000 X                      SA6    A6+ERFO     ALSO IN ERROR LIST HEADER                   F1039     210
                                                                                                                 INIT00   1105
                                                                                                                 INIT00   1106
                                         .RM      IFEQ   CP#RM,0     IF CIO I/O                                  INIT00   1107
                                                                                                                 INIT00   1108
                                                                                                                 INIT00   1109
                                        *         IF IN SHORT OVERLAY MODE, MINIMIZE INPUT AND OUTPUT BUFFER LEN INIT00   1110
                                                                                                                 INIT00   1111
                          5110000034 +            SA1    FTNOVM                                                  INIT00   1112
          1347  0311001356 +                      NZ     X1,MIB120   IF LONG MODE                                INIT00   1113
                          7170000401              SX7    Z.INSB      INPUT BUFFER LENGTH                         INIT00   1114
          1350  7160000401                        SX6    Z.OUTSB     OUTPUT BUFFER LENGTH                        INIT00   1115
                          20722                   LX7    18                                                      INIT00   1116
                               20622              LX6    18                                                      INIT00   1117
          1351  5170000005 X                      SA7    F.IN+I.CBSET                                            INIT00   1118
                          5160000005 X            SA6    F.OUT+I.CBSET                                           INIT00   1119
          1352  6120000401 X                      SB2    IBUF+Z.INSB                                             INIT00   1120
                          7120000000 X            SETFIL FILE=F.OUT,MODE=INIT,FWA=B2                             INIT00   1121
          1354  7120000000 X                      SETFIL FILE=F.IN,MODE=INIT,FWA=IBUF                            INIT00   1122
                                         .RM      ENDIF                                                          FC5A158A  389
                                                                                                                 INIT00   1123
                                                                                                                 INIT00   1124
                                        *         CARVE SPACE FOR EFILE BUFFER IF EFILE .NE. LFILE.              INIT00   1125
                                                                                                                 INIT00   1126
                                         CLFN     MACRO  LFN1,LFN2                                               FC50022     8
                                                  LOCAL  EXIT                                                    FC50022     9
                                                  SA1    CO.LFN1                                                 FC50022    10
                                                  SA2    CO.LFN2                                                 FC50022    11
                                                  ZR     X1,EXIT     IF LFN1 = 0                                 FC50022    12
                                                  ZR     X2,EXIT     IF LFN2 = 0                                 FC50022    13
                                                  BX1    X1-X2                                                   FC50022    14
                                                  ZR     X1,E.LFNC   IF LFN1 = LFN2                              FC50022    15
                                         EXIT     BSS    0                                                       FC50022    16
                                         CLFN     ENDM                                                           FC50022    17
                                                                                                                 FC50022    18
                                   0 X   CO.X     EQU    CP.XTXT                                                 FC50022    19
                                                                                                                 FC50022    20
          1356                           MIB120   BSS    0                                                       FC50022    21
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    55
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1356  7160000000                        SX6    0                                                       FC5A333    59
                          5160000273 +            SA6    ERR.FLD     CLEAR FOR DIAGNOSTICS                       FC5A333    60
          1357  5110000663 +                      CLFN   B,I                                                     FC50022    22
          1362  5110000663 +                      CLFN   B,L                                                     FC50022    23
          1365  5110000663 +                      CLFN   B,E                                                     FC50022    24
          1370  5110000665 +                      CLFN   I,L                                                     FC50022    25
          1373  5110000665 +                      CLFN   I,E                                                     FC50022    26
          1376  5110000000 X                      CLFN   X,B                                                     FC50022    27
          1401  5110000000 X                      CLFN   X,L                                                     FC50022    28
          1404  5110000000 X                      CLFN   X,I                                                     FC50022    29
          1407  5110000000 X                      CLFN   X,E                                                     FC50022    30
          1412  5110000666 +                      SA1    CO.L                                                    FC50022    31
                          5120000664 +            SA2    CO.E                                                    INIT00   1128
          1413  0302000762 +                      ZR     X2,E.EF     E=0 IS ILLEGAL                              INIT00   1129
                          5130000665 +            SA3    CO.I                                                    FC5A173    26
          1414  0303000772 +                      ZR     X3,E.IZ     E=0 ILLEGAL                                 FC5A173    27
                          5130000000 X            SA3    CP.XTXT                                                 FC5A173    28
          1415  0303000774 +                      ZR     X3,E.XZ     X=0 ILLEGAL                                 FC5A173    29
                          13112                   BX1    X1-X2                                                   INIT00   1130
                               76610              =X6    1                                                       INIT00   1131
          1416  0301001427 +                      ZR     X1,MIB125   IF EFILE = LFILE                            INIT00   1132
                          5160000000 X            SA6    ENOT=L      SET FLAG                                    INIT00   1133
                                                                                                                 FC5A158A  390
                                         .RM      IFEQ   CP#RM,0     IF CIO I/O                                  FC5A158A  391
          1417  5110000005 X                      SA1    F.OUT+I.CBSET     X1 = OLD LENGTH OF LFILE BUFFER       INIT00   1134
                          20152                   LX1    -18                                                     INIT00   1135
                               73110              SX1    X1                                                      INIT00   1136
          1420  5021777773                        SA2    A1-I.CBSET+I.FIRST                                      INIT00   1137
                          73220                   SX2    X2          X2 = FWA OF LFILE BUFFER                    INIT00   1138
                               10711              BX7    X1                                                      INIT00   1139
          1421  21701                             AX7    1           X7 =  LENGTH OF EFILE BUFFER                INIT00   1140
                     37617                        IX6    X1-X7       X6 = NEW LENGTH OF LFILE BUFFER             INIT00   1141
                          36526                   IX5    X2+X6       X5 = FWA OF EFILE BUFFER, LWA+1 OF LFILE    INIT00   1142
                               20622              LX6    18                                                      INIT00   1143
          1422  20722                             LX7    18                                                      INIT00   1144
                     5160000005 X                 SA6    F.OUT+I.CBSET                                           INIT00   1145
          1423  5170000005 X                      SA7    F.ERRS+I.CBSET                                          INIT00   1146
                          7120000000 X            SETFIL FILE=F.ERRS,MODE=INIT,FWA=X5                            INIT00   1147
          1425  7120000000 X                      SETFIL FILE=F.OUT,MODE=INIT,LWA1=X5                            INIT00   1148
                                        .RM       ENDIF                                                          INIT00   1149
                                                                                                                 INIT00   1150
                                                                                                                 INIT00   1151
                                        *         IF QCG WAS SELECTED, RESET BUFFER SIZES.                       INIT00   1152
                                                                                                                 INIT00   1153
          1427  5110000000 X             MIB125   SA1    CO.OPT                                                  INIT00   1154
                          0311001435 +            NZ     X1,MIB130   IF CCG SELECTED                             INIT00   1155
          1430  7160000500                        SX6    Z.LGOQB     QCG MINIMAL BUFFER LENGTH                   INIT00   1156
                          20622                   LX6    18                                                      INIT00   1157
                                                                                                                 INIT00   1158
                                                  IFEQ   CP#RM,0,2   IF CIO I/O                                  INIT00   1159
          1431  5160000005 X                      SA6    F.LGO+I.CBSET                                           INIT00   1160
                                                  SKIP   1           SKIP 7RM CODE                               INIT00   1161
                                                  SA6    F.LGO+I.HBSET                                           INIT00   1162
                                                                                                                 INIT00   1163
                          7160000701              SX6    Z.PBQB      QCG MINIMAL BUFFER LENGTH                   INIT00   1164
          1432  20622                             LX6    18                                                      INIT00   1165
                                                  IFEQ   CP#RM,0,2   IF CIO I/O                                  FC50735     4
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    56
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                     5160000005 X                 SA6    F.PB+I.CBSET                                            INIT00   1166
                                                  SKIP   1           SKIP 7RM CODE                               INIT00   1167
                                                  SA6    F.PB+I.HBSET                                            INIT00   1168
          1433  7160000401                        SX6    Z.REFQB     MINIMAL QCG BUFFER LENGTH                   INIT00   1169
                          20622                   LX6    18                                                      INIT00   1170
                                                                                                                 INIT00   1171
                                                  IFEQ   CP#RM,0,2   IF CIO I/O                                  INIT00   1172
          1434  5160000005 X                      SA6    F.REF+I.CBSET                                           INIT00   1173
                                                  SKIP   1           SKIP 7RM CODE                               INIT00   1174
                                                  SA6    F.REF+I.HBSET                                           INIT00   1175
                                                                                                                 INIT00   1176
          1435                           MIB130   BSS                                                            INIT00   1182
                                                                                                                 INIT00   1183
                                        *         PROCESS PW OPTION FOR L AND E FILES.                           INIT00   1184
                                                                                                                 INIT00   1185
          1435  5110000000 X                      SA1    CO.PW                                                   INIT00   1186
                          0311001440 +            NZ     X1,MIB135   IF PW OPTION ON CONTROL STATEMENT           FC50982    10
          1436  5110000674 +                      SA1    GP.JPW      INSTALLATION JOB DEFAULT                    FC50982    11
                          10611                   BX6    X1                                                      FC50982    12
          1437  5160000000 X                      SA6    CO.PW       SET JOB DEFAULT                             FC50982    13
                          0400001441 +            EQ     MIB136                                                  FC50982    14
          1440  7160000001               MIB135   SX6    1           FLAG FOR PW OPTION ON CONTROL CARD          FC50982    15
                          5160001550 +            SA6    CO.PWU                                                  FC50982    16
                                                                                                                 FC50982    17
          1441  5110000000 X             MIB136   SA1    CO.PW                                                   FC50982    18
                          10611                   BX6    X1                                                      INIT00   1187
                               54611              =A6    A1+1        CO.PWE = CO.PW                              INIT00   1188
          1442  76600                             =X6    0                                                       INIT00   1189
                     0100001504 +                 RJ     PPW         PROCESS PW (L=FILE)                         INIT00   1190
          1443  5110000000 X                      SA1    ENOT=L                                                  INIT00   1191
                          0301001445 +            ZR     X1,MIB140   IF NO UNIQUE EFILE                          INIT00   1192
          1444  76610                             =X6    1                                                       INIT00   1193
                     0100001504 +                 RJ     PPW         PROCESS PW (E=FILE)                         INIT00   1194
                                                                                                                 INIT00   1195
                                                                                                                 INIT00   1196
                                        *         OPEN INPUT AND OUTPUT FILES (SCOPE 2 ONLY).                    INIT00   1197
                                                                                                                 INIT00   1198
          1445                           MIB140   BSS                                                            INIT00   1199
                                                                                                                 INIT00   1200
                                        **        CHECK FOR CONTROL STATEMENT ERRORS.                            FC5A158A  392
                                                                                                                 FC5A158A  393
          1445  5110000300 +                      SA1    ERR.CNT                                                 FC5A158A  394
                          0301001451 +            ZR     X1,MIB140A  IF NO ERRORS                                FC5A158A  395
          1446  7110002326 +                      MESSAGE (=C/**  NO COMPILATION./),,RCL                         FC5A158A  396
          1450  0400000000 X                      EQ     ABTFTN      ABORT                                       FC50314     9
                                                                                                                 FC5A158A  398
          1451                           MIB140A  BSS    0                                                       FC5A158A  399
                                         .RM      IFNE   CP#RM,0                                                 INIT00   1201
                                                  OPEN   F.IN                                                    INIT00   1202
                                                  STORE  X2,MRL=100D                                             INIT00   1203
                                                  SA1    FV.OUT                                                  FC5A158A  400
                                                  ZR     X1,MIB141   IF NO OUTPUT FILE                           FC5A158A  401
                                                  OPEN   F.OUT                                                   INIT00   1204
                                         MIB141   BSS    0                                                       FC5A158A  402
                                                  OPEN   F.ERRS                                                  INIT00   1205
                                         .RM      ENDIF                                                          INIT00   1206
                                                                                                                 INIT00   1207
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    57
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                                        *         IF *REW* OPTION IS ON, REWIND INPUT, OUTPUT, AND ERROR FILES.  INIT00   1208
                                                                                                                 INIT00   1209
          1451  5110000000 X                      SA1    CO.REWI                                                 INIT00   1210
                          0321001455 +            PL     X1,MIB142   NO REW OF I                                 INIT00   1211
                                                                                                                 FC5A433     6
                                         .RM      IFEQ   CP#RM,0                                                 FC5A433     7
          1452  7120000000 X                      SX2    F.IN                                                    FC50735     5
                          0100001775 +            RJ     STF         SEE IF INPUT FILE CONNECTED                 FC50735     6
          1453  0306001455 +                      ZR     X6,MIB142   IF CONNECTED INPUT                          FC50735     7
                          7170000050              REWIND X2                                                      FC50735     8
                                         .RM      ELSE                                                           FC5A433     8
                                                  REWIND F.IN                                                    FC5A433     9
                                         .RM      ENDIF                                                          FC5A433    10
                                                                                                                 FC5A333    61
          1455  5110000000 X             MIB142   SA1    CO.REWL                                                 INIT00   1213
                          0321001461 +            PL     X1,MIB143   IF NO REW OF L                              INIT00   1214
                                                                                                                 FC5A433    11
                                         .RM      IFEQ   CP#RM,0                                                 FC5A433    12
          1456  7120000000 X                      SX2    F.OUT                                                   FC50735     9
                          0100001775 +            RJ     STF         SEE IF OUTPUT FILE CONNECTED                FC50735    10
          1457  0306001461 +                      ZR     X6,MIB143   IF CONNECTED OUTPUT                         FC50735    11
                          7170000050              REWIND X2                                                      FC50735    12
                                         .RM      ELSE                                                           FC5A433    13
                                                  REWIND F.OUT                                                   FC5A433    14
                                         .RM      ENDIF                                                          FC5A433    15
                                                                                                                 FC5A333    62
          1461  5110000000 X             MIB143   SA1    CO.REWE                                                 INIT00   1216
                          5120000000 X            SA2    ENOT=L                                                  FC5A173    30
          1462  0302001466 +                      ZR     X2,MIB144   IF NO UNIQUE E-FILE                         FC5A173    31
                          0321001466 +            PL     X1,MIB144   IF NO REW OF E                              INIT00   1217
                                                                                                                 FC5A433    16
                                         .RM      IFEQ   CP#RM,0                                                 FC5A433    17
          1463  7120000000 X                      SX2    F.ERRS                                                  FC50735    13
                          0100001775 +            RJ     STF         SEE IF ERRORS FILE CONNECTED                FC50735    14
          1464  0306001466 +                      ZR     X6,MIB144   IF ERRORS CONNECTED                         FC50735    15
                          7170000050              REWIND X2                                                      FC50735    16
                                         .RM      ELSE                                                           FC5A433    18
                                                  REWIND F.ERRS                                                  FC5A433    19
                                         .RM      ENDIF                                                          FC5A433    20
                                                                                                                 INIT00   1219
                                        *         OPEN LGO AND REWIND IF REQUESTED.                              INIT00   1220
                                                                                                                 INIT00   1221
          1466  5110000000 X             MIB144   SA1    FV.LGO                                                  INIT00   1222
                          0301001472 +            ZR     X1,MIB150   IF B=0                                      INIT00   1223
                                                                                                                 INIT00   1224
                                                  IFNE   CP#RM,0,1                                               INIT00   1225
                                                  OPEN   F.LGO                                                   INIT00   1226
                                                                                                                 INIT00   1227
          1467  5110000000 X                      SA1    CO.REWB                                                 INIT00   1228
                          0321001472 +            PL     X1,MIB150   IF NO REWIND                                INIT00   1229
          1470  7120000000 X                      REWIND F.LGO                                                   INIT00   1230
                                                                                                                 INIT00   1231
                                                                                                                 INIT00   1232
                                        **        IF *SPY* IS SELECTED, SET UP PARAMETER LIST.                   INIT00   1233
                                                                                                                 INIT00   1234
          1472                           MIB150   BSS                                                            INIT00   1235
                                                                                                                 INIT00   1236
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    58
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
                                         .SPY     IFEQ   .SPY,ON     IF USING SPY OPTION                         INIT00   1237
                                         .OS      IFNE   .OS,2       IF NOT SCOPE 2                              INIT00   1238
                                                  SA1    CO.SPY      SPY LOWER LIMIT                             INIT00   1239
                                                  MI     X1,MIB166   IF NO SPY                                   INIT00   1240
                                                  NZ     X1,MIB162   IF LOWER LIMIT GIVEN                        INIT00   1241
                                                  SA1    SD.SPY      USE SECOND DEFAULT                          INIT00   1242
                                                                                                                 FC5A333    63
                                         MIB162   AX1    6           IN HUNDREDS                                 INIT00   1243
                                                  SA2    CO.SPY+1    UPPER LIMIT                                 INIT00   1244
                                                  NZ     X2,MIB163   IF UPPER LIMIT GIVEN                        INIT00   1245
                                                  SA2    SD.SPY+1    USE SECOND DEFAULT                          INIT00   1246
                                                                                                                 FC5A333    64
                                         MIB163   AX2    6           IN HUNDREDS                                 INIT00   1247
                                                  IX3    X2-X1       HIGH-LOW                                    INIT00   1248
                                                  LX3    6           TIMES 100                                   INIT00   1249
                                                  SX4    Z.BINS      MAX NUMBER OF BINS                          INIT00   1250
                                                  SX3    X3+Z.BINS-1                                             INIT00   1251
                                                  IX5    X3/X4       BIN WIDTH (NOT POWER OF 2 YET)              INIT00   1252
                                                  MX0    9                                                       INIT00   1253
                                                  LX5    59-8                                                    INIT00   1254
                                                  BX5    X0*X5                                                   INIT00   1255
                                                  SB6    8+48        POSITION FOR BINWIDTH FIELD                 INIT00   1256
                                                  ZR     X5,"BLOWUP" IF BINWIDTH BAD                             INIT00   1257
                                                                                                                 FC5A333    65
                                         MIB164   LX5    1                                                       INIT00   1258
                                                  SB6    B6-1                                                    INIT00   1259
                                                  PL     X5,MIB164   IF NOT SET YET                              INIT00   1260
                                                  CX3    X5                                                      INIT00   1261
                                                  SB7    X3                                                      INIT00   1262
                                                  EQ     B7,B1,MIB165      IF POWER OF 2                         INIT00   1263
                                                  SB6    B6+1        NEXT POWER OF 2                             INIT00   1264
                                                                                                                 FC5A333    66
                                         MIB165   SX5    1                                                       INIT00   1265
                                                  LX5    B6          POSITION BINWIDTH                           INIT00   1266
                                                  LX1    24          POSITION LOWER                              INIT00   1267
                                                  BX7    X1+X5                                                   INIT00   1268
                                                  LX2    12          POSITION UPPER                              INIT00   1269
                                                  BX7    X7+X2                                                   INIT00   1270
                                                  SA2    =0LPRNTSPY  NAME OF REPORT GENERATOR                    INIT00   1271
                                                  SA7    SPYW        STORE PARAMETER WORD                        INIT00   1272
                                                  BX6    X2                                                      INIT00   1273
                                                  SA6    CO.GO       POST CALL (SIMULATED GO OPTION)             INIT00   1274
                                                                                                                 FC5A333    67
                                         MIB166   BSS                                                            INIT00   1275
                                         .OS      ENDIF                                                          INIT00   1276
                                         .SPY     ENDIF                                                          INIT00   1277
                                                                                                                 INIT00   1286
                                                                                                                 INIT00   1287
                                        **        READ IN FIRST LINE.                                            INIT00   1288
                                                                                                                 INIT00   1289
          1472                           MIB200   BSS                                                            INIT00   1290
                                                  IFEQ   CP#RM,0,2                                               INIT00   1291
          1472  7120000000 X                      RECALL F.IN                                                    INIT00   1292
          1473  7120000000 X                      READ   F.IN        PRIME THE PUMP                              INIT00   1293
          1475  6160000000 X                      READC  F.IN,CP.CARD,16                                         INIT00   1295
          1477  43601                             MX6    1                                                       INIT00   1296
                     5160000000 X                 SA6    RAPFLAG     SET READ ALREADY PERFORMED FLAG             INIT00   1297
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    59
        COMPILER INITIALIZATION SUBROUTINES                           MIB 
  
          1500  0301001150 +                      ZR     X1,EXIT.    IF NOT EOR, EXIT...                         INIT00   1298
                          7110002331 +            MESSAGE (=C/ EMPTY INPUT FILE.  NO COMPILATION./),,RCL         INIT00   1300
                                                                                                                 FC50657     5
                                         .RM      IFNE   CP#RM,0                                                 FC50657     6
                                                  CLOSE  F.IN                                                    FC50657     7
                                                  SA1    FV.OUT                                                  FC50657     8
                                                  ZR     X1,MIB201   IF NO OUTPUT FILE                           FC50657     9
                                                  CLOSE  F.OUT                                                   FC50657    10
                                                  EQ     MIB202                                                  FC50657    11
                                                                                                                 FC50657    12
                                         MIB201   CLOSE  F.ERRS                                                  FC50657    13
                                                                                                                 FC50657    14
                                         MIB202   SA1    FV.LGO                                                  FC50657    15
                                                  ZR     X1,ABTFTN   IF NO LGO FILE, ABORT EXIT                  FC50657    16
                                                  CLOSE  F.LGO                                                   FC50657    17
                                         .RM      ENDIF                                                          FC50657    18
                                                                                                                 FC50657    19
          1503  0400000000 X                      EQ     ABTFTN      ABORT                                       FC50314    10
                                                                                                                 FC50844    41
                                                  IFEQ   .MI,1,1                                                 FC50844    42
                                         MIBA     EQU    SCR         TEMPORARY STORAGE                           FC50844    43
  
  
  
  
                                        **        PPW - PROCESS PW OPTION FOR AN OUTPUT FILE.                    INIT00   1303
                                        *                                                                        INIT00   1304
                                        *         ENTRY  X6 = 0 FOR L FILE, 1 FOR E FILE                         INIT00   1305
                                                                                                                 INIT00   1306
          1504  0400401504 +             PPW      SUBR                                                           INIT00   1307
          1505  5160001547 +                      SA6    PPWA        SAVE FLAG                                   INIT00   1308
                          5226000000 X            SA2    CO.PW+X6                                                INIT00   1309
                                                                                                                 INIT00   1310
                                         #OS      IFNE   .OS,2       IF NOT SCOPE 2                              INIT00   1311
          1506  5226001551 +                      SA2    PPWB+X6                                                 INIT00   1313
                          0100000000 X            RECALL X2                                                      INIT00   1314
          1507  0100001775 +                      CALL   STF         SEE IF TERMINAL FILE                        INIT00   1315
          1510  5120001547 +                      SA2    PPWA                                                    INIT00   1316
                          5222000000 X            SA2    CO.PW+X2                                                INIT00   1317
          1511  0306001512 +                      ZR     X6,PPW57    IF TTY                                      INIT00   1318
                          0400001521 +            EQ     PPW60       SET JOB DEFAULT                             FC5A426    69
                                                                                                                 INIT00   1322
          1512  5130001550 +             PPW57    SA3    CO.PWU                                                  FC50982    19
                          0313001514 +            NZ     X3,PPW58    IF PW OPTION ON CONTROL STATEMENT           FC50982    20
          1513  7120000000 X                      SX2    CO.PWT      SET JOB DEFAULT FOR TTY                     FC50982    21
          1514                           PPW58    BSS                                                            FC50982    22
                                                  IFEQ   .OS,1,4     IF OPERATING SYSTEM IS NOS                  FC50982    23
          1514  7232777715                        SX3    X2-50       LOW LIMIT BOUNDARY CHECK                    FC50982    24
                          0313001516 +            NZ     X3,PPW59    IF NOT ON THE LOW BOUNDARY                  FC50982    25
          1515  7120000063                        SX2    51          ALLOW SPACE FOR CARRIAGE RETURN             FC50982    26
          1516  7222777776               PPW59    SX2    X2-1        ADJUST FOR LACK OF CARRIAGE RETURN          FC50982    27
                          7262000001              SX6    X2+1                                                    INIT00   1326
          1517  43301                             MX3    1                                                       FC5A187    16
                     12636                        BX6    X3+X6       MARK FILE CONNECTED                         FC5A187    17
                          54620                   SA6    A2          PUTS CO.PW IN FORM NEEDED BY REFMAP         INIT00   1327
                                                                                                                 INIT00   1328
          1520  0400001521 +                      EQ     PPW60                                                   FC50982    28
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    60
        COMPILER INITIALIZATION SUBROUTINES                           PPW 
  
                                         #OS      ELSE                                                           INIT00   1330
                                                  SX6    136         ASSUME PW NOT ON CONTROL CARD               INIT00   1331
                                                  NZ     X2,PPW60    IF ASSUMPTION WRONG                         INIT00   1332
                                                  SA6    A2          PUTS CO.PW IN FORM NEEDED BY REFMAP         INIT00   1333
                                                  EQ     EXIT.                                                   INIT00   1334
                                         #OS      ENDIF                                                          INIT00   1335
                                                                                                                 INIT00   1336
          1521  7212777715               PPW60    SX1    X2-50                                                   INIT00   1337
                          0331001031 +            MI     X1,E.PW     IF .LT. 50                                  INIT00   1338
          1522  7212777566                        SX1    X2-137                                                  FC5A174     9
                          0321001031 +            PL     X1,E.PW     IF PW .GE. 137                              FC5A174    10
          1523  0400001527 +                      EQ     PPW60.2                                                 FC51015     7
                                                                                                                 FC51015     8
          1524  10622                    PPW60.1  BX6    X2          (X6) -> DEFAULT LIMIT                       FC51015     9
                     5110001547 +                 SA1    PPWA                                                    FC51015    10
          1525  5261000000 X                      SA6    CO.PW+X1    DEFAULT LIMIT TO CO.PW                      FC51015    11
                          5110000000 X            SA1    CO.PW                                                   FC50982    29
          1526  54611                             =A6    A1+1        MAKE THE ADJUSTMENT FOR E FILE              FC50982    30
                                                                                                                 FC51015    12
          1527  7212777601               PPW60.2  SX1    X2-126                                                  FC51015    13
                          0321001504 +            PL     X1,EXIT.    IF PW .GE. 126                              FC50353    17
                                                                                                                 FC50353    18
          1530  5130001547 +             PPW61    SA3    PPWA                                                    INIT00   1341
                          43014                   MX0    2*CHAR                                                  INIT00   1342
          1531  7110000000 X                      SX1    ERFO                                                    F1039     211
                          5211000001 X            SA1    TL.PNAM+1+X1                                            INIT00   1344
          1532  7160000000 X                      SX6    ERFO                                                    F1039     212
                          0313001536 +            NZ     X3,PPW62     IF ERROR FILE CALL                         INIT00   1346
          1533  5110777776 X                      SA1    O.TTLA-1                                                INIT00   1347
                          5140002335 +            SA4    =2L1         SET FOR PAGE EJECT                         INIT00   1348
          1534  54311                             =A3    A1+1                                                    INIT00   1349
                     15530                        BX5    -X0*X3                                                  INIT00   1350
                          12654                   BX6    X5+X4                                                   INIT00   1351
                               54630              SA6    A3          ADD CARRIAGE CONTROL TO O.TTLA              INIT00   1352
          1535  43600                             MX6    0                                                       INIT00   1353
                                                                                                                 INIT00   1354
          1536  5140002335 +             PPW62    SA4    =2L1        SET FOR PAGE EJECT                          FC5A115    43
                          5236000000 X            =A3    O.TTLA+X6                                               FC5A115    44
          1537  15530                             BX5    -X0*X3                                                  FC5A115    45
                     12754                        BX7    X5+X4                                                   FC5A115    46
                          54730                   SA7    A3          ADD CARRIAGE CONTROL TO O.TTLA              FC5A115    47
          1540  7100146315                        SX0    52429                                                   INIT00   1356
                          5216777776 X            SA1    TL.PAGE-1+X6   (X1) = ......PAGE   (.=BLANK(55B))       INIT00   1357
          1541  42320                             IX3    X2*X0                                                   INIT00   1358
                     21323                        AX3    19          (X3) = [PAGE WIDTH/10]                      INIT00   1359
                          7140000012              SX4    10                                                      INIT00   1360
          1542  42543                             IX5    X4*X3                                                   INIT00   1361
                     20144                        LX1    10*CHAR-4*CHAR                                          INIT00   1362
                          37225                   IX2    X2-X5       (X2) = REMAINDER AFTER DIVIDE BY 10         INIT00   1363
          1543  7140000006                        SX4    CHAR                                                    INIT00   1364
                          42224                   IX2    X2*X4       (X2) = REMAINDER IN BITS                    INIT00   1365
                               10711              BX7    X1          (X7) = PAGE......   (.=BLANK(55B))          INIT00   1366
          1544  20236                             LX2    30                                                      INIT00   1367
                     12632                        BX6    X3+X2                                                   INIT00   1368
                          54710                   SA7    A1                                                      INIT00   1369
          1545  5130001547 +                      SA3    PPWA        GET FILE ORDINAL (E/L)                      FC5A426    71
                          5263000000 X            SA6    CO.WPL+X3   (X6) = 30/CHAR,30 WORDS                     FC5A426    72
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    61
        COMPILER INITIALIZATION SUBROUTINES                           PPW 
  
          1546  0400001504 +                      EQ     EXIT.       DONE...                                     INIT00   1371
                                                                                                                 INIT00   1372
          1547                     1     PPWA     BSS    1                                                       INIT00   1377
          1550                     1     CO.PWU   BSSZ   1                                                       FC50982    31
          1551  00000000000000000000 X   PPWB     CON    F.OUT,F.ERRS                                            INIT00   1378
          1552  00000000000000000000 X
  
  
  
  
                                        **        GPP - INITIALIZE PAGE SIZE PARAMETER BLOCK, GP.PAGE            FC5A426    74
                                        *               AND SET INITIAL VALUES FOR PD, PS, AND PW.               FC5A426    75
                                        *                                                                        FC5A426    76
                                        *         ENTRY  (B1) = 1                                                FC5A426    77
                                        *                                                                        FC5A426    78
                                        *         EXIT   PS, PD, AND PW INITIALIZED WITH JOB DEFAULT VALUES      FC5A426    79
                                        *                                                                        FC5A426    80
                                        *         CALLS  CPM=                                                    FC5A426    81
                                                                                                                 FC5A426    82
          1553  0400401553 +             GPP      SUBR               ...ENTRY/EXIT...                            FC5A426    83
          1554  7110000672 +                      GETPAGE GP.PAGE    GET PAGE SIZE PARAMETERS                    FC5A426    84
          1556  5110000672 +                      SA1    GP.PAGE                                                 FC5A426    85
                          43064                   MX0    -8                                                      FC5A426    86
                               21114              AX1    12          POSITION FOR *PW*                           FC5A426    87
          1557  15610                             BX6    -X0*X1                                                  FC5A426    88
                     5160000674 +                 SA6    GP.JPW                                                  FC5A426    90
                               21110              AX1    8           POSITION FOR *PS*                           FC5A426    91
          1560  15610                             BX6    -X0*X1                                                  FC5A426    92
                     5160000000 X                 SA6    CO.PS                                                   FC5A426    93
          1561  5160000673 +                      SA6    GP.JPS                                                  FC5A426    94
                          43070                   MX0    -4                                                      FC5A426    95
                               21110              AX1    8           POSITION FOR *PD*                           FC5A426    96
          1562  15610                             BX6    -X0*X1                                                  FC5A426    97
                     5160000667 +                 SA6    CO.PD                                                   FC5A426    98
          1563  5160000672 +                      SA6    GP.JPD                                                  FC5A426    99
                          7170000023              SX7    1RS         6LPI                                        FC5A426   100
          1564  7266777771                        SX6    X6-6                                                    FC5A426   101
                          0306001566 +            ZR     X6,GPP1     IF 6LPI                                     FC5A426   102
          1565  7170000024                        SX7    1RT         8LPI                                        FC5A426   103
                                                                                                                 FC5A426   104
          1566  20766                    GPP1     LX7    -CHAR                                                   FC5A426   105
                     5170000000 X                 SA7    RS.PD       STORE *RESTORE* PD                          FC5A426   106
          1567  0400001553 +                      EQ     EXIT.       RETURN                                      FC5A426   107
                                                                                                                 FC5A426   108
                                         #OS      IFNE   .OS,2                                                   FC5A445     5
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    62
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.
  
          1567                                    CTEXT  COMCCPM - CONTROL POINT MANAGER PROCESSOR.              COMCCPM     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCCPM     4
                                                  QUAL   COMCCPM                                                 COMCCPM     5
                                 D_D              BASE   D                                                       COMCCPM     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.                     COMCCPM     7
  
  
  
  
                                        ***       CPM - CONTROL POINT MANAGER PROCESSOR.                         COMCCPM     9
                                        *                                                                        COMCCPM    10
                                        *         G. R. MANSFIELD.  70/10/09.                                    COMCCPM    11
                                        *                                                                        COMCCPM    12
                                        *         *******************************************************        COMCCPM    13
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        COMCCPM    14
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        COMCCPM    15
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        COMCCPM    16
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        COMCCPM    17
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        COMCCPM    18
                                        *         *******************************************************        COMCCPM    19
                                        *                                                                        COMCCPM    20
                                        *                                                                        COMCCPM    21
                                        *         CPM CALLS THE PP PROGRAM *CPM*.                                COMCCPM    22
  
  
  
  
                                        ***       CPM CALLS THE PP PROGRAM *CPM* TO PERFORM TASKS                COMCCPM    24
                                        *         INVOLVING CONTROL POINT ACTIVITY.                              COMCCPM    25
                                        *                                                                        COMCCPM    26
                                        *         ENTRY  (X1) = PARAMETER.                                       COMCCPM    27
                                        *                (X2) = REQUEST.                                         COMCCPM    28
                                        *                                                                        COMCCPM    29
                                        *         EXIT   NONE.                                                   COMCCPM    30
                                        *                                                                        COMCCPM    31
                                        *         USES   X - 1, 2, 6.                                            COMCCPM    32
                                        *                B - NONE.                                               COMCCPM    33
                                        *                A - NONE.                                               COMCCPM    34
                                        *                                                                        COMCCPM    35
                                        *         CALLS  SYS=.                                                   COMCCPM    36
                                                                                                                 COMCCPM    37
                                                                                                                 COMCCPM    38
          1570  0100000000 X             CPM1     RJ     =XSYS=      ISSUE REQUEST                               COMCCPM    39
                                                                                                                 COMCCPM    40
          1571  0000000000               CPM=     PS                 ENTRY/EXIT                                  COMCCPM    41
          1572  43644                             MX6    -24         FORM REQUEST                                COMCCPM    42
                     15116                        BX1    -X6*X1                                                  COMCCPM    43
                          20230                   LX2    24                                                      COMCCPM    44
          1573  7160150065                        SX6    4RCPMP/16                                               COMCCPM    45
                          12121                   BX1    X2+X1                                                   COMCCPM    46
                               20650              LX6    40                                                      COMCCPM    47
          1574  12661                             BX6    X6+X1                                                   COMCCPM    48
                     0400001570 +                 EQ     CPM1                                                    COMCCPM    49
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    63
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                                        COMCCPM 
  
                                 D_D              BASE   *                                                       COMCCPM    51
                                         QUAL$    IF     -DEF,QUAL$                                              COMCCPM    52
                                                  QUAL   *                                                       COMCCPM    53
                                1571 +   CPM=     EQU    /COMCCPM/CPM=                                           COMCCPM    54
                                         QUAL$    ENDIF                                                          COMCCPM    55
                                                  ENDX                                                           COMCCPM    56
                                         #OS      ENDIF                                                          FC5A445     6
  
  
  
  
                                        **        CPV - CURRENT PARAMETER VALUES                                 F1039     214
                                        *                                                                        F1039     215
                                        *         UPDATE CURRENT VALUES OF THE FOLLOWING FORTRAN CALL CARD       F1039     216
                                        *         PARAMETERS - ARG,CS,DB,DO,DS,PL AND ROUND ON THE FIRST AND     F1039     217
                                        *         SECOND LINES OF THE FIRST PAGE AND THE FIRST 120 CHARACTERS    F1039     218
                                        *         OF THE FORTRAN CALL CARD ON THE THIRD LINE OF THE FIRST PAGE   F1039     219
                                        *         OF EACH PROGRAM UNIT OUTPUT LISTING.                           F1039     220
                                        *                                                                        F1039     221
                                        *         ENTRY - NO ENTRY REQUIRENTS                                    F1039     222
                                        *                                                                        F1039     223
                                        *         USES   B - 3                                                   F1039     224
                                        *                A - 1,4                                                 F1039     225
                                        *                X - 2,3,4,6,7                                           FC5A444    47
                                        *                                                                        F1039     227
                                        *         CALLS  NONE                                                    F1039     228
                                                                                                                 F1039     229
                                                                                                                 F1039     230
                                         IFON     MACRO  CCOPT,ADD                                               F1039     231
                                                  SA4    =X_CCOPT                                                F1039     232
                                                  NZ     X4,ADD                                                  F1039     233
                                                  ENDM                                                           F1039     234
                                                                                                                 F1039     235
                                         SETOFF   MACRO  SHIFT                                                   F1039     236
                                                  BX4    X3          X3 PRESET TO 7                              F1039     237
                                                  IFNE   SHIFT,0,1   IF SHIFT COUNT NOT ZERO                     F1039     238
                                                  LX4    SHIFT_*CHAR                                             F1039     239
                                                  BX6    X6+X4                                                   F1039     240
                                                  ENDM                                                           F1039     241
                                                                                                                 F1039     242
          1575  0400401575 +             CPV      SUBR               ...ENTRY/EXIT...                            F1039     243
          1576  43600                             MX6    0                                                       F1039     244
                     7130000007                   SX3    7                                                       F1039     245
                                                                                                                 F1039     246
                                        **        CURRENT VALUES OF ROUNDING OPTIONS                             F1039     247
                                                                                                                 F1039     248
          1577  5140000000 X                      IFON   CO.RNDA,CPV2     IF ROUNDING ADDS IS ON                 F1039     249
          1600  10433                             SETOFF 7                ELSE SET CURRENT VALUE TO OFF          F1039     250
                                                                                                                 F1039     251
          1601  5140000000 X             CPV2     IFON  CO.RNDS,CPV4      IF ROUNDING SUBTRACT IS ON             F1039     252
          1602  10433                             SETOFF 4                ELSE SET CURRENT VALUE TO OFF          F1039     253
                                                                                                                 F1039     254
          1603  5140000000 X             CPV4     IFON  CO.RNDM,CPV6      IF ROUNDING MULTIPLY IS ON             F1039     255
          1604  10433                             SETOFF 1                ELSE SET CURRENT VALUE TO OFF          F1039     256
                                                                                                                 F1039     257
          1605  0306001610 +             CPV6     ZR     X6,CPV8          IF CURRENT VALUES ON                   F1039     258
                          5110000001 X            SA1    TL.CSOP+1                                               F1039     259
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    64
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    CPV 
  
          1606  37616                             IX6    X1-X6            MERGE VALUES WITH TEMPLET              F1039     260
                     54610                        SA6    A1                                                      F1039     261
                          5066000000 X            SA6    A6+ERFO          E-LIST                                 F1039     262
          1607  43600                             MX6    0                                                       F1039     263
                                                                                                                 F1039     264
                                        **        CURRENT VALUES OF ROUNDING DIVIDE AND DIRECTIVE SUPPRESSION    F1039     265
                                                                                                                 F1039     266
          1610  5140000000 X             CPV8     IFON   CO.RNDD,CPV10    IF ROUNDING DIVIDE IS ON               F1039     267
          1611  10433                             SETOFF 8                ELSE SET CURRENT VALUE TO OFF          F1039     268
                                                                                                                 F1039     269
          1612  5140000000 X             CPV10    IFON   CO.DS,CPV12      IF DIRECTIVE SUPPRESSION IS ON         F1039     270
          1613  10433                             SETOFF 5                ELSE SET CURRENT VALUE TO OFF          F1039     271
                                                                                                                 F1039     272
          1614  0306001617 +             CPV12    ZR     X6,CPV14         IF VALUES ON                           F1039     273
                          5110000002 X            SA1    TL.CSOP+2                                               F1039     274
          1615  37616                             IX6    X1-X6            MERGE CURRENT VALUES WITH TEMPLET      F1039     275
                     54610                        SA6    A1                                                      F1039     276
                          5066000000 X            SA6    A6+ERFO          E-LIST                                 F1039     277
          1616  43600                             MX6    0                                                       F1039     278
                                                                                                                 F1039     279
                                        **        CURRENT DO PARAMETER VALUES                                    F1039     280
                                                                                                                 F1039     281
          1617  5140000000 X             CPV14    IFON   CO.DOLG,CPV16    IF DO LOOP TRIP COUNT LESS THEN 131072 F1039     282
          1620  10433                             SETOFF 6                ELSE SET CURRENT VALUE OFF             F1039     283
                                                                                                                 F1039     284
          1621  5140000000 X             CPV16    IFON   CO.DOOT,CPV18    IF ONE TRIP DO LOOPS                   F1039     285
          1622  10433                             SETOFF 0                ELSE SET CURRENT VALUE OFF             F1039     286
                                                                                                                 F1039     287
          1623  0306001625 +             CPV18    ZR     X6,CPV20         IF VALUES ON                           F1039     288
                          5110000001 X            SA1    O.CPV+1                                                 F1039     289
          1624  37616                             IX6    X1-X6            MERGE VALUES WITH TEMPLET              F1039     290
                     54610                        SA6    A1                                                      F1039     291
                          43600                   MX6    0                                                       F1039     292
                                                                                                                 F1039     293
                                        **        CURRENT ARG VALUES                                             F1039     294
                                                                                                                 F1039     295
          1625  5140000000 X             CPV20    IFON   CO.ARGC,CPV22    IF NOT COMMON ARGUMENT LISTS           F1039     296
          1626  10433                             SETOFF 2                ELSE SET CURRENT VALUE OFF             F1039     297
          1627  5110000002 X                      SA1    O.CPV+2                                                 F1039     298
                          37616                   IX6    X1-X6            MERGE WITH TEMPLET                     F1039     299
                               54610              SA6    A1                                                      F1039     300
          1630  43600                             MX6    0                                                       F1039     301
                                                                                                                 F1039     302
          1631  5140000000 X             CPV22    IFON   CO.ARGF,CPV24    IF NOT FIXED LENGTH ARGUMENT LISTS     F1039     303
          1632  10433                             SETOFF 4                ELSE SET CURRENT VALUE OFF             F1039     304
          1633  5110000003 X                      SA1    O.CPV+3                                                 F1039     305
                          37616                   IX6    X1-X6            MERGE WITH TEMPLET                     F1039     306
                               54610              SA6    A1                                                      F1039     307
          1634  43600                             MX6    0                                                       F1039     308
                                                                                                                 F1039     309
                                        **        CURRENT COLLATING SEQUENCE VALUE                               F1039     310
                                                                                                                 F1039     311
          1635  5140000000 X             CPV24    IFON   CO.CS,CPV26      IF COLLATING SEQUENCE USER             F1039     312
          1636  5110000004 X                      SA1    O.CPV+4                                                 F1039     313
                          10433                   SETOFF 4                USER COLLATING SEQUENCE IS OFF         F1039     314
                     0400001642 +                 EQ     CPV28                                                   F1039     315
                                                                                                                 F1039     316
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    65
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    CPV 
  
          1640  10433                    CPV26    SETOFF 8                FIXED COLLATING SEQUENCE IS OFF        F1039     317
          1641  5110000000 X                      SA1    O.TA                                                    F1039     318
                                                                                                                 F1039     319
          1642  37616                    CPV28    IX6    X1-X6            MERGE WITH TEMPLET                     F1039     320
                     54610                        SA6    A1                                                      F1039     321
                          43600                   MX6    0                                                       F1039     322
                                                                                                                 F1039     323
                                        **        CURRENT VALUES OF DEBUG OPTIONS                                F1039     324
                                                                                                                 F1039     325
          1643  5140000000 X                      IFON   CO.DBTB,CPV30    IF FULL ERROR TRACEBACK ON             F1039     326
          1644  10433                             SETOFF 8                ELSE SET CURRENT VALUE OFF             F1039     327
                                                                                                                 F1039     328
          1645  5140000000 X             CPV30    IFON   CO.DBSB,CPV32    IF SUBSCRIPT BOUNDS CHECKING IS ON     F1039     329
          1646  10433                             SETOFF 4                ELSE SET CURRENT VALUE OFF             F1039     330
                                                                                                                 F1039     331
          1647  5140000000 X             CPV32    IFON   CO.DBSL,CPV34    IF SUBSTRING LIMITS CHECKING IS ON     F1039     332
          1650  10433                             SETOFF 0                ELSE SET CURRENT VALUE OFF             F1039     333
                                                                                                                 F1039     334
          1651  0306001653 +             CPV34    ZR     X6,CPV36         IF VALUES ON                           F1039     335
                          5110000001 X            SA1    O.TA+1                                                  F1039     336
          1652  37616                             IX6    X1-X6            MERGE VALUES WITH TEMPLET              F1039     337
                     54610                        SA6    A1                                                      F1039     338
                          43600                   MX6    0                                                       F1039     339
                                                                                                                 F1039     340
          1653  5140000000 X             CPV36    IFON   CO.DBER,CPV38    IF OBJECT TIME REPRIEVE OF EXCUTION    F1039     341
                                                                          ERRORS IS ON                           F1039     342
          1654  10433                             SETOFF 6                ELSE SET CURRENT VALUE OFF             F1039     343
                                                                                                                 F1039     344
          1655  5140000000 X             CPV38    IFON   CO.DBID,CPV40    IF INTERACTIVE DEBUG IS ON             F1039     345
          1656  10433                             SETOFF 2                ELSE SET CURRENT VALUE OFF             F1039     346
                                                                                                                 F1039     347
          1657  0306001661 +             CPV40    ZR     X6,CPV42         IF CURRENT VALUES ON                   F1039     348
                          5110000002 X            SA1    O.TA+2                                                  F1039     349
          1660  37616                             IX6    X1-X6            MERGE CURRENT VALUES WITH TEMPLET      F1039     350
                     54610                        SA6    A1                                                      F1039     351
                          43600                   MX6    0                                                       F1039     352
                                                                                                                 F1039     353
          1661  5140000000 X             CPV42    IFON   CO.DBPM,CPV44    IF POST MORTEM DUMP ON                 F1039     354
          1662  10433                             SETOFF 8                ELSE SET CURRENT VALUE OFF             F1039     355
                                                                                                                 F1039     356
          1663  5140000000 X             CPV44    IFON   CO.DBST,CPV46    IF SYMBOL TABLE TO BINARY              F1039     357
          1664  10433                             SETOFF 3                ELSE SET CURRENT VALUE OFF             F1039     358
                                                                                                                 F1039     359
          1665  0306001667 +             CPV46    ZR     X6,CPV48         IF CURRENT VALUES ON                   F1039     360
                          5110000003 X            SA1    O.TA+3                                                  F1039     361
          1666  37616                             IX6    X1-X6            MERGE CURRENT VALUES WITH TEMPLET      F1039     362
                     54610                        SA6    A1                                                      F1039     363
                                                                                                                 F1039     364
                                        **        CURRENT PRINT LIMIT                                            F1039     365
                                                                                                                 F1039     366
          1667  5110000000 X             CPV48    SA1    CO.LL                                                   F1039     367
                          0100000000 X            CALL   CDD                                                     F1039     368
          1670  21406                             AX4    1*CHAR      XXXXXXXXX0  -  !XXXXXXXXX                   F1039     369
                     43052                        MX0    7*CHAR      XXXXXXX000                                  FC5A444    48
                          20044                   LX0    6*CHAR      X000XXXXXX                                  FC5A444    49
                               15240              BX2    -X0*X4      0XXX000000                                  FC5A444    50
          1671  21244                             AX2    6*CHAR      0000000XXX                                  FC5A444    51
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    66
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    CPV 
  
                     7160000055                   SX6    1R                                                      FC5A444    52
          1672  5110000000 X                      SA1    CO.AL                                                   FC5A444    53
                          0311001674 +            NZ     X1,CPV50    IF AUTOMATIC LEVEL IS ON                    FC5A444    54
          1673  7160000046                        SX6    1R-                                                     FC5A444    55
          1674  20666                    CPV50    LX6    -CHAR                                                   FC5A444    56
                     5110000004 X                 SA1    O.TA+4       AL,PL=000                                  FC5A444    57
                               12721              BX7    X2+X1        AL,PL=XXX                                  FC5A444    58
          1675  12776                             BX7    X7+X6       ?AL,PL=XXX                                  FC5A444    59
                     54710                        SA7    A1                                                      FC5A444    60
                          43030                   MX0    4*CHAR      XXXX000000                                  FC5A444    61
                               15640              BX6    -X0*X4      0000XXXXXX                                  FC5A444    62
          1676  20630                             LX6    4*CHAR      XXXXXX0000                                  FC5A444    63
                     5110002336 +                 SA1    =4R         000000BBBB                                  FC5A444    64
                               12761              BX7    X6+X1       XXXXXXBBBB                                  FC5A444    65
          1677  5170000005 X                      SA7    O.TA+5                                                  F1039     382
                                                                                                                 F1039     383
                                        **        CHECK FOR PAGE WIDTH MODE                                      F1039     384
                                                                                                                 F1039     385
                          5120000000 X            SA2    =XWOF=ERR                                               F1039     386
          1700  5212000000 X                      SA1    CO.PW+X2                                                F1039     387
                          7211777601              SX1    X1-126                                                  F1039     388
          1701  0321001575 +                      PL     X1,EXIT.    IF NOT PAGE WIDTH MODE                      F1039     389
                                                                                                                 F1039     390
                                        *         PW MODE BREAK UP SECOND LINE.                                  F1039     391
                                                                                                                 F1039     392
                          5120000000 X            SA2    L.PWA       PRELOAD                                     F1039     393
          1702  22702                             LX7    X2          BLANKS                                      F1039     394
                     6120000006                   SB2    6           LOOP CONTROL                                F1039     395
                                                                                                                 F1039     396
          1703  5022777776               CPV52    SA2    A2-1                                                    F1039     397
                          10622                   BX6    X2                                                      F1039     398
                               67221              SB2    B2-B1                                                   F1039     399
          1704  54621                             SA6    A2+B1                                                   F1039     400
                     0520001703 +                 NE     B2,B0,CPV52 IF NOT FINISHED                             F1039     401
          1705  5170000000 X                      SA7    O.TA        FIRST WORD = 1H  FOR CARRAGE CONTROL        F1039     402
                                                                                                                 F1039     403
                                        *         PW MODE BREAK UP THIRD LINE                                    F1039     404
                                                                                                                 F1039     405
                          5120000000 X            SA2    L.PWB                                                   F1039     406
          1706  22702                             LX7    X2                                                      F1039     407
                     6120000006                   SB2    6          LOOP CONTROL                                 F1039     408
                                                                                                                 F1039     409
          1707  5022777776               CPV54    SA2    A2-1                                                    F1039     410
                          10622                   BX6    X2                                                      F1039     411
                               67221              SB2    B2-B1                                                   F1039     412
          1710  54621                             SA6    A2+B1                                                   F1039     413
                     0520001707 +                 NE     B2,B0,CPV54  IF NOT FINISHED                            F1039     414
          1711  5170000000 X                      SA7    O.C                                                     F1039     415
                          0400001575 +            EQ     EXIT.                                                   F1039     416
                                                                                                                 F1039     417
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    67
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    FCA 
  
                                        **        FIND CHARACTER ADDRESS                                         F1039     419
                                        *                                                                        F1039     420
                                        *         FIND NEXT AVAILABLE CHARACTER POSITION IN CONTROL CARD TEMPLET F1039     421
                                        *                                                                        F1039     422
                                        *         ENTRY - CELL NXA CONTAINS LAST WORD ADDRESS STORED IN TEMPLET  F1039     423
                                        *                                                                        F1039     424
                                        *         USES   B - 3                                                   F1039     425
                                        *                A - 2,3,6                                               F1039     426
                                        *                X - 0,1,2,3,6                                           F1039     427
                                        *                                                                        F1039     428
                                        *         CALLS  NONE                                                    F1039     429
                                                                                                                 F1039     430
                                                                                                                 F1039     431
          1712  0400401712 +             FCA      SUBR               ...ENTRY/EXIT...                            F1039     432
          1713  43066                             MX0    9*CHAR                                                  F1039     433
                     66400                        SB4    B0                                                      F1039     434
                          5120001734 +            SA2    NXA         LWA OF LAST STORE IN CONTROL CARD TEMPLET   F1039     435
          1714  53320                             SA3    X2                                                      F1039     436
                     0303001725 +                 ZR     X3,FCA7     IF LAST WORD STORED IS ZERO                 F1039     437
                                                                                                                 F1039     438
          1715  22140                    FCA1     LX1    X0,B4                                                   F1039     439
                     15231                        BX2    -X1*X3                                                  F1039     440
                          0312001717 +            NZ     X2,FCA2     IF NON ZERO BYTE                            F1039     441
          1716  6144000006                        SB4    B4+CHAR                                                 F1039     442
                          0400001715 +            EQ     FCA1                                                    F1039     443
                                                                                                                 F1039     444
          1717  23242                    FCA2     LX2    X2,-B4                                                  F1039     445
                     7222777722                   SX2    X2-1R                                                   F1039     446
          1720  0312001723 +                      NZ     X2,FCA4     IF NOT BLANK                                F1039     447
                          11613                   BX6    X1*X3       BLANK GET RID OF IT.                        F1039     448
                               54630              SA6    A3                                                      F1039     449
          1721  76640                             SX6    B4                                                      F1039     450
                                                                                                                 F1039     451
          1722  5160001733 +             FCA3     SA6    CP          SHIFT REQUIRED TO STORE NEXT CHARACTER.     F1039     452
                          0400001712 +            EQ     EXIT.                                                   F1039     453
                                                                                                                 F1039     454
          1723  7164777771               FCA4     SX6    B4-CHAR                                                 F1039     455
                          0400001722 +            EQ     FCA3                                                    F1039     456
                                                                                                                 F1039     457
          1724  7160000066               FCA6     SX6    9*CHAR                                                  F1039     458
                          0400001722 +            EQ     FCA3                                                    F1039     459
                                                                                                                 F1039     460
          1725  5033777776               FCA7     SA3    A3-1        GET PREVIOUS WORD                           F1039     461
                          15230                   BX2    -X0*X3                                                  F1039     462
          1726  7222777722                        SX2    X2-1R                                                   F1039     463
                          0312001724 +            NZ     X2,FCA6     IF NOT BLANK                                F1039     464
          1727  11603                             BX6    X0*X3       GET RID OF BLANK                            F1039     465
                     54630                        SA6    A3          STORE LAST WORD                             F1039     466
                          5120002136 +            SA2    =10H                                                    F1039     467
          1730  22602                             LX6    X2                                                      F1039     468
                     5063000001                   SA6    A3+1        BLANKS TO LWA + 1                           F1039     469
                               74630              SX6    A3                                                      F1039     470
          1731  5160001734 +                      SA6    NXA         LWA OF LAST STORE IN TEMPLET                F1039     471
                          43600                   MX6    0           SHIFT REQUIRED TO STORE NEXT CHARACTER      F1039     472
          1732  0400001722 +                      EQ     FCA3                                                    F1039     473
                                                                                                                 F1039     474
          1733  00000000000000000000     CP       CON    0           SHIFT REQUIRED TO STORE NEXT CHARACTER      F1039     475
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    68
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    FCA 
  
                                        *                            IN CONTROL CARD TEMPLET.                    F1039     476
          1734  00000000000000000000     NXA      CON    0           LWA STORED IN CONTROL CARD TEMPLET          F1039     477
  
  
  
  
                                        **        TRANSFER CONTINUATION CONTROL CARD TO TEMPLET                  F1039     479
                                        *                                                                        F1039     480
                                        *         ENTRY - NO ENTRY REQUIRENTS                                    F1039     481
                                        *                                                                        F1039     482
                                        *         USES   B - 4,5    RESTORES B5                                  F1039     483
                                        *                A - 0,1,2,3,4,6    RESTORES A0                          F1039     484
                                        *                X - 0,1,2,3,4,6                                         F1039     485
                                        *                                                                        F1039     486
                                        *         CALLS NONE                                                     F1039     487
                                                                                                                 F1039     488
                                                                                                                 F1039     489
          1735  0400401735 +             TCC      SUBR               ...ENTRY/EXIT...                            F1039     490
          1736  5120001772 +                      SA2    TFF                                                     F1039     491
                          0312001735 +            NZ     X2,EXIT.    IF TEMPLET FULL                             F1039     492
          1737  76650                             SX6    B5                                                      F1039     493
                     5160001773 +                 SA6    SB5         SAVE B5                                     F1039     494
                               74600              SX6    A0                                                      F1039     495
          1740  5160001774 +                      SA6    SA0         SAVE A0                                     F1039     496
                          5110000070              SA1    RA.CCD                                                  F1039     497
          1741  6150000066                        SB5    9*CHAR                                                  F1039     498
                          43066                   MX0    9*CHAR                                                  F1039     499
          1742  5130001733 +                      SA3    CP                                                      F1039     500
                          63430                   SB4    X3          SHIFT REQUIRED TO STORE NEXT CHARACTER      F1039     501
                                        *                            IN CONTROL CARD TEMPLET.                    F1039     502
          1743  5130001734 +                      SA3    NXA                                                     F1039     503
                          53430                   SA4    X3          LWA OF STORE IN TEMPLET                     F1039     504
          1744  5004777776                        SA0    A4-1        NEXT LOCATION - 1 TO STORE IN TEMPLET       F1039     505
                          22604                   LX6    X4                                                      F1039     506
                                                                                                                 F1039     507
          1745  23251                    TCC2     AX2    X1,B5                                                   F1039     508
                     15220                        BX2    -X0*X2                                                  F1039     509
                          0705001747 +            GT     B5,B0,TCC4  IF MORE CHARACTERS IN WORD                  F1039     510
          1746  5011000001                        SA1    A1+1                                                    F1039     511
                          6150000074              SB5    10*CHAR                                                 F1039     512
                                                                                                                 F1039     513
          1747  6155777771               TCC4     SB5    B5-CHAR                                                 F1039     514
                          23351                   AX3    X1,B5                                                   F1039     515
                               15330              BX3    -X0*X3                                                  F1039     516
          1750  0313001752 +                      NZ     X3,TCC5     IF CHARACTER FOLLOWING CURRENT CHARACTER    F1039     517
                                        *                            NOT ZERO.                                   F1039     518
                          7232777722              SX3    X2-1R                                                   F1039     519
          1751  0303001760 +                      ZR     X3,TCC6     IF CURRENT CHARACTER BLANK - FINISHED       F1039     520
                                                                                                                 F1039     521
          1752  0302001760 +             TCC5     ZR     X2,TCC6     IF CURRENT CHARACTER ZERO  - FINISHED.      F1039     522
                          22242                   LX2    X2,B4                                                   F1039     523
                               12662              BX6    X6+X2                                                   F1039     524
          1753  6144777771                        SB4    B4-CHAR                                                 F1039     525
                          0640001745 +            PL     B4,TCC2     IF CURRENT WORD NOT FULL                    F1039     526
          1754  6140777776 X                      SB4    L.PWB-1                                                 F1039     527
                          75204                   SX2    A0-B4                                                   F1039     528
          1755  0322001765 +                      PL     X2,TCC8     IF CONTROL CARD TEMPLET FULL                F1039     529
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    69
        COMCCPM - CONTROL POINT MANAGER PROCESSOR.                    TCC 
  
                          6140000066              SB4    9*CHAR                                                  F1039     530
          1756  5000000001                        SA0    A0+1                                                    F1039     531
                          54600                   SA6    A0          STORE CURRENT WORD IN CC TEMPLET            F1039     532
                               43600              MX6    0                                                       F1039     533
          1757  0400001745 +                      EQ     TCC2                                                    F1039     534
                                                                                                                 F1039     535
          1760  6150777776 X             TCC6     SB5    L.PWB-1                                                 F1039     536
                          75205                   SX2    A0-B5                                                   F1039     537
          1761  0322001765 +                      PL     X2,TCC8     IF CC TEMPLET FULL                          F1039     538
                          5000000001              SA0    A0+1                                                    F1039     539
          1762  54600                             SA6    A0          SAVE CURRENT WORD                           F1039     540
                                                                                                                 F1039     541
          1763  74600                    TCC7     SX6    A0                                                      F1039     542
                     5160001734 +                 SA6    NXA         SAVE CURRENT ADDRESS                        F1039     543
                               76640              SX6    B4                                                      F1039     544
          1764  5160001733 +                      SA6    CP          SAVE CURRENT CHARACTER POSITION             F1039     545
                          0400001767 +            EQ     TCC10                                                   F1039     546
                                                                                                                 F1039     547
          1765  74600                    TCC8     SX6    A0                                                      F1039     548
                     5160001734 +                 SA6    NXA         SAVE CURRENT ADDRESS                        F1039     549
                               43601              MX6    1                                                       F1039     550
          1766  5160001772 +                      SA6    TFF         TEMPLET FULL FLAG                           F1039     551
                                                                                                                 F1039     552
          1767  5120001773 +             TCC10    SA2    SB5                                                     F1039     553
                          63520                   SB5    X2          RESTORE B5                                  F1039     554
          1770  5120001774 +                      SA2    SA0                                                     F1039     555
                          53020                   SA0    X2          RESTORE A0                                  F1039     556
          1771  0400001735 +                      EQ     EXIT.                                                   F1039     557
                                                                                                                 F1039     558
          1772  00000000000000000000     TFF      CON    0           TEMPLET FULL FLAG                           F1039     559
          1773  00000000000000000000     SB5      CON    0           B5 SAVED HERE                               F1039     560
          1774  00000000000000000000     SA0      CON    0           A0 SAVED HERE                               F1039     561
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    70
        COMCSTF - SET TERMINAL FILE.                                  STF 
  
          1775                           STF      CTEXT  COMCSTF - SET TERMINAL FILE.                            COMCSTF     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCSTF     4
                                                  QUAL   COMCSTF                                                 COMCSTF     5
                                 D_D              BASE   D                                                       COMCSTF     6
                                        *         COMMENT COPYRIGHT CONTROL DATA CORP. 1971, 1978.               COMCSTF     7
  
  
  
  
                                        ***       STF - SET TERMINAL FILE.                                       COMCSTF     9
                                        *                                                                        COMCSTF    10
                                        *         J. L. WARDELL.     71/01/29.                                   COMCSTF    11
                                        *         R. E. TATE.        73/04/08.                                   COMCSTF    12
                                        *         G. M. TOWNSEND.    77/05/26.                                   COMCSTF    13
                                        *         C. J. CONRAD.      81/08/06.                                   CPSA244     6
                                        *                                                                        CPSA244     7
                                        *         *******************************************************        CPSA244     8
                                        *         * THIS COMMON DECK IS PART OF THE COMMON COMMON DECKS *        CPSA244     9
                                        *         * RESIDING ON THE COMPASS PROGRAM LIBRARY, AND BEING  *        CPSA244    10
                                        *         * MAINTAINED BY THE COMPASS PROJECT.  ANY CHANGES     *        CPSA244    11
                                        *         * REQUIRED SHOULD BE DIRECTED TO THE COMPASS PROJECT  *        CPSA244    12
                                        *         * THROUGH THE PROPER PROCEDURE.                       *        CPSA244    13
                                        *         *******************************************************        CPSA244    14
                                        *                                                                        CPSA244    15
                                        *                                                                        COMCSTF    14
                                        *         STF DETERMINES WHETHER A FILE IS ASSIGNED TO AN INTERACTIVE    COMCSTF    15
                                        *         TERMINAL.                                                      COMCSTF    16
  
  
  
  
                                        ***       STF DETECTS IF A FILE IS ASSIGNED TO A TERMINAL.               COMCSTF    18
                                        *                                                                        COMCSTF    19
                                        *         ENTRY  (X2) = ADDRESS OF FET.                                  COMCSTF    20
                                        *                (B1) = 1.                                               COMCSTF    21
                                        *                FET MUST BE GREATER THAN FIVE WORDS IN LENGTH.          COMCSTF    22
                                        *                                                                        COMCSTF    23
                                        *         EXIT   (X6) = 0 IF FILE IS TERMINAL FILE.                      COMCSTF    24
                                        *                (X2) = ADDRESS OF FET.                                  COMCSTF    25
                                        *                                                                        COMCSTF    26
                                        *         USES   A - 1, 4, 6.                                            CPSA244    16
                                        *                B - NONE.                                               COMCSTF    28
                                        *                X - 1, 3, 4, 6.                                         COMCSTF    29
                                        *                                                                        COMCSTF    30
                                        *         MACROS OPEN.                                                   CPS0303     9
                                                                                                                 COMCSTF    32
                                                                                                                 COMCSTF    33
          1775  0400401775 +             STF      SUBR               ENTRY/EXIT                                  COMCSTF    34
          1776  53120                             SA1    X2          CHECK FILE NAME AND STATUS                  CPSA244    17
                     7160000001                   SX6    1                                                       CPSA244    18
                               12661              BX6    X6+X1       SET PREVIOUS STATUS COMPLETE                CPSA244    19
          1777  0301001775 +                      ZR     X1,STFX     IF NULL FILE, RETURN                        CPSA244    20
                          5160002006 +            SA6    STFA        SAVE FET STATUS                             CPSA244    21
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    71
        COMCSTF - SET TERMINAL FILE.                                  STF                 COMCSTF 
  
          2000  7170777657                        OPEN   X2,ALTERNR,R                                            COMCSTF    35
          2001  5110002006 +                      SA1    STFA        RESTORE PREVIOUS FUNCTION CODE              CPSA244    22
                          43360                   MX3    -12                                                     CPSA244    23
                               10611              BX6    X1                                                      CPSA244    24
          2002  53121                             SA1    X2+B1                                                   CPSA244    25
                     53620                        SA6    X2                                                      CPSA244    26
                          20114                   LX1    -48                                                     COMCSTF    38
                               15413              BX4    -X3*X1                                                  COMCSTF    39
          2003  7264775353                        SX6    X4-2RTT     CHECK FOR DEVICE TYPE *TT*                  COMCSTF    40
                          0306001775 +            ZR     X6,STFX                                                 COMCSTF    41
          2004  21406                             AX4    6                                                       COMCSTF    42
                     7264777716                   SX6    X4-61B      CHECK FOR DEVICE TYPE 61B                   COMCSTF    43
          2005  0400001775 +                      EQ     STFX        RETURN                                      COMCSTF    44
                                                                                                                 CPSA244    27
          2006  00000000000000000000     STFA     CON    0           SAVE FET FUNCTION CODE                      CPSA244    28
  
  
  
  
                                 D_D              BASE   *                                                       COMCSTF    46
                                         QUAL$    IF     -DEF,QUAL$                                              COMCSTF    47
                                                  QUAL   *                                                       COMCSTF    48
                                1775 +   STF      EQU    /COMCSTF/STF                                            COMCSTF    49
                                1775 +   STF=     EQU    /COMCSTF/STF                                            F4720D     16
                                         QUAL$    ENDIF                                                          COMCSTF    50
                                         STF      ENDX                                                           COMCSTF    51
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    72
        COMFGOI - GLOBAL OVERLAY INITIALIZATION 
  
          2007                                    CTEXT  COMFGOI - GLOBAL OVERLAY INITIALIZATION                 COMFGOI     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFGOI     4
                                                  QUAL   COMFGOI                                                 COMFGOI     5
  
  
  
  
                                        **        GOI -  GLOBAL OVERLAY INITIALIZATION.                          COMFGOI     7
                                        *                                                                        COMFGOI     8
                                        *         OVERLAY INITIALIZATION COMMON TO BOTH QCG OVERLAYS.            COMFGOI     9
                                        *                                                                        COMFGOI    10
                                        *         CALLS  ROR (COMFROR),                                          COMFGOI    11
                                        *                FEI (COMFFEI).                                          COMFGOI    12
                                                                                                                 COMFGOI    13
                                                                                                                 COMFGOI    14
          2007  0400402007 +             GOI      SUBR               ENTRY/EXIT...                               COMFGOI    15
          2010  5110000000 X                      SA1    CP.AFLS     CURRENT FL                                  COMFGOI    16
                          10611                   BX6    X1                                                      COMFGOI    17
          2011  5160000000 X                      SA6    INT.FL      SAVE INITIAL FL                             COMFGOI    18
                          6130000000 X            SB3    FIN.OL      LWA+1 OF (1,0) OVERLAY (LWA OF LIST)        COMFGOI    19
          2012  5120000000 X                      SA2    CO.LOO      MASTER OBJECT LIST FLAG                     COMFGOI    20
                          0332002017 +            MI     X2,GOI1     IF OBJECT LIST ON                           COMFGOI    21
          2013  6130000000 X                      SB3    FIN.MAP     TRASH LIST CODE (LWA OF MAP)                COMFGOI    22
                          5120000000 X            SA2    CO.LOA                                                  COMFGOI    23
          2014  5140000000 X                      SA4    CO.LOM                                                  COMFGOI    24
                          5150000000 X            SA5    CO.LOR                                                  COMFGOI    25
          2015  12224                             BX2    X2+X4                                                   COMFGOI    26
                     12225                        BX2    X2+X5                                                   COMFGOI    27
                          0332002017 +            MI     X2,GOI1     IF MAP ON                                   COMFGOI    28
          2016  6130000000 X                      SB3    FIN         TRASH LIST AND MAP CODE (FWA OF MAP)        COMFGOI    29
          2017  5120000000 X             GOI1     SA2    CO.LOR      MASTER REFERENCE MAP FLAG                   COMFGOI    30
                          0322002022 +            PL     X2,GOI2     IF SHORT OR NO REF MAP                      COMFGOI    31
          2020  7120000000 X                      SETFIL FILE=F.REF,MODE=INIT,FWA=B3                             COMFGOI    32
          2022  5110000000 X             GOI2     SA1    FV.LGO                                                  COMFGOI    33
                          5120000000 X            SA2    CO.LOO                                                  COMFGOI    34
          2023  12112                             BX1    X1+X2                                                   COMFGOI    35
                     76630                        SX6    B3          LWA+1 OF REF BUFFER                         COMFGOI    36
                          0301002033 +            ZR     X1,GOI3     IF BINARY SUPRESSED AND NO OBJECT LISTING   COMFGOI    37
          2024  7120000000 X                      SETFIL FILE=F.PB,MODE=INIT,FWA=B3                              COMFGOI    38
          2026  76630                             SX6    B3          LWA+1 OF PB BUFFER                          COMFGOI    39
                     5120000000 X                 SA2    FV.LGO                                                  COMFGOI    40
          2027  0302002033 +                      ZR     X2,GOI3     IF BINARY SUPRESSED                         COMFGOI    41
                          66530                   SB5    B3                                                      FC5A171A    6
          2030  7120000000 X                      SETFIL FILE=F.LGO,MODE=INIT,FWA==XOSTACK                       FC5A171A    7
          2032  76650                             SX6    B5                                                      FC5A171A    8
          2033  5160000000 X             GOI3     SA6    O.TABS      FWA OF TABLES                               COMFGOI    44
                          7276006000              SX7    X6+MIN.TABS+NOM.INC                                     FC5A119     5
          2034  5170000000 X                      SA7    NOM.FL                                                  FC5A119     6
                          5120000000 X            SA2    CP.NFLS     CM FIELD LENGTH                             COMFGOI    45
          2035  37626                             IX6    X2-X6                                                   COMFGOI    46
                     7246774777                   SX4    X6-MIN.TABS                                             COMFGOI    47
          2036  0324002051 +                      PL     X4,GOI4     IF .GE. 1K OF TABLE SPACE                   COMFGOI    48
                          7130003000              SX3    MIN.TABS                                                COMFGOI    49
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    73
        COMFGOI - GLOBAL OVERLAY INITIALIZATION                       COMFGOI             COMFGOI 
  
          2037  37124                             IX1    X2-X4                                                   COMFGOI    50
                     5120000000 X                 SA2    MAX.FL                                                  COMFGOI    51
                               21236              AX2    30                                                      COMFGOI    52
          2040  37221                             IX2    X2-X1                                                   COMFGOI    53
                     0332000000 X                 MI     X2,MEMERR   IF NOT ENOUGH MEMORY                        COMFGOI    54
          2041  7271000111                        SX7    X1+10+77B                                               FC5A132    20
                          21706                   AX7    6                                                       FC5A132    21
                               20744              LX7    30+6        ROUND UP TO NEXT 100, SHIFT INTO PLACE      FC5A132    22
          2042  5170000000 X                      SA7    L.TABS                                                  COMFGOI    57
                          7160150515              MEMORY SCM,L.TABS,RCL                                          COMFGOI    58
          2045  5110000000 X                      SA1    L.TABS      NEW FL                                      COMFGOI    59
                          21136                   AX1    30                                                      COMFGOI    60
          2046  7271777765                        SX7    X1-10       LEAVE 10-WORD SAFETY ZONE                   COMFGOI    65
                          5170000000 X            SA7    CP.NFLS     UPDATE TO CURRENT UNRESERVED FL             COMFGOI    66
          2047  10711                             BX7    X1                                                      COMFGOI    67
                     5170000000 X                 SA7    CP.AFLS     UPDATE TO CURRENT FL                        COMFGOI    68
          2050  5170000000 X                      SA7    CP.MXFL     SET MAX FL                                  COMFGOI    69
                          10633                   BX6    X3          SETUP X6                                    COMFGOI    70
                                                                                                                 COMFGOI    71
          2051  5160000000 X             GOI4     SA6    L.TABS                                                  COMFGOI    72
                          21604                   AX6    FLSLOP                                                  COMFGOI    73
          2052  7266001000                        SX6    X6+FLSLUP                                               COMFGOI    74
                          5160000000 X            SA6    THRESH      GIVE ALLOC ENOUGH ELBOW ROOM                COMFGOI    75
          2053  5140000000 X                      SA4    FV.LGO                                                  COMFGOI    76
                          5120000000 X            SA2    CO.LOO                                                  COMFGOI    77
          2054  12424                             BX4    X2+X4                                                   COMFGOI    78
                     0314002057 +                 NZ     X4,GOI5     IF PREBINARY OR OBJECT LISTING REQUESTED    COMFGOI    79
          2055  7170000220                        SX7    0220B       *JP B2*                                     COMFGOI    80
                          20760                   LX7    48                                                      COMFGOI    81
          2056  5170000000 X                      SA7    WIN         WIRE OFF PREBINARY                          COMFGOI    82
                          5170000000 X            SA7    =XWTE       WIRE OFF *DATA* PREBINARY                   FC5A108     4
                                                                                                                 COMFGOI    83
          2057  0100002062 +             GOI5     RJ     FEI         FRONT END INITIALIZATION                    COMFGOI    84
          2060  6120000000 X                      SB2    F.SKEL                                                  COMFGOI    85
                          0100002120 +            RJ     ROR         RESET OPCODE OF ROUNDABLES                  COMFGOI    86
                                                                                                                 COMFGOI    87
          2061  0400002007 +                      EQ     EXIT.                                                   COMFGOI    88
  
  
  
  
                                                  IF     -DEF,QUAL$,2                                            COMFGOI    90
                                                  QUAL   *                                                       COMFGOI    91
                                2007 +   GOI      EQU    /COMFGOI/GOI                                            COMFGOI    92
                                                                                                                 COMFGOI    93
                                         COMFGOI  ENDX                                                           COMFGOI    94
                                                                                                                 INIT00   1381
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    74
        COMFFEI - FRONT END INITIALIZATION.                           FEI 
  
          2061                           FEI      CTEXT  COMFFEI - FRONT END INITIALIZATION.                     COMFFEI     2
                                                                                                                 COMFFEI     3
                                                                                                                 COMFFEI     4
                                        *         IN FEC                                                         COMFFEI     5
                                                  EXT    F.SYMIL,Z.SYMDB,Z.SYMIL,Z.SYMVP                         FC50744     8
                                                                                                                 COMFFEI     7
                                        *         IN FTN                                                         COMFFEI     8
                                                  EXT    CO.ANSI,CO.MD,CO.DBSL,CO.LOR,CO.OPT,CO.LCM              F1037F5    12
                                                                                                                 COMFFEI    10
                                        *         IN PEM                                                         COMFFEI    11
                                                  EXT    ANSI.SW,MDER.SW                                         F1037F5    13
                                                                                                                 COMFFEI    13
                                        *         IN PUC                                                         COMFFEI    14
                                                  EXT    TIMER,TIME1,ERRTYP,WO.LCM                               F1037F5    14
  
  
  
  
                                        **        FEI - FRONT END INITIALIZATION.                                COMFFEI    17
                                        *                                                                        COMFFEI    18
                                        *         PERFORMS OVERLAY INITIALIATION FOR FRONT-END.                  COMFFEI    19
                                        *         NEEDED BY (0,0), (1,0), AND (2,1).                             COMFFEI    20
                                        *         OTHER CODE WILL BE FOUND IN FEC/PUP, FOR STRANGE REASONS.      COMFFEI    21
                                        *                                                                        COMFFEI    22
                                        *         RESET CHARACTER SUBSTRING ROUTINES TO NON-CHECKING FORM,       COMFFEI    23
                                        *         DEPENDING ON (CO.DBSL).                                        COMFFEI    24
                                                                                                                 COMFFEI    25
                                                                                                                 COMFFEI    26
          2062  0400402062 +             FEI      SUBR               ...ENTRY/EXIT...                            COMFFEI    27
                                                                                                                 FC5A132     8
                                        **        RESET PROGRAM UNIT START TIME                                  FC5A132     9
                                                                                                                 FC5A132    10
          2063  0100000000 X                      CALL   TIMER                                                   FC5A132    11
          2064  5160000000 X                      SA6    TIME1                                                   FC5A132    12
                          7150000003              SX5    Z=SYM                                                   COMFFEI    28
          2065  7160000000 X                      SX6    Z.SYMVP                                                 COMFFEI    29
                          27606                   IX6    X6/X5                                                   COMFFEI    30
                     7110000000 X                 SX1    F.SYMIL                                                 COMFFEI    31
          2070  5211000001 X                      SA1    X1+Z.SYMVP+1                                            COMFFEI    32
                          7150000001              SX5    M.LOG                                                   COMFFEI    33
          2071  7130000007                        SX3    N.TYPE      LOOP LIMIT                                  COMFFEI    34
                          20641                   LX6    WB.BASEP                                                COMFFEI    35
          2072  5011000003               FEI10    SA1    A1+Z=SYM                                                F1037F5    15
                          12115                   BX1    X1+X5       FILL IN WB.MODE                             COMFFEI    37
                               12716              BX7    X1+X6       FILL IN WB.BASE                             COMFFEI    38
          2073  54710                             SA7    A1                                                      COMFFEI    39
                     73551                        =X5    X5+1                                                    COMFFEI    40
                          37253                   IX2    X5-X3                                                   COMFFEI    41
          2074  0332002072 +                      MI     X2,FEI10    IF NOT DONE                                 F1037F5    16
                          5130000000 X            SA3    CO.DBSL                                                 COMFFEI    43
          2075  6120000000 X                      SB2    Z.SYMDB                                                 COMFFEI    44
                          0313002103 +            NZ     X3,FEI30    IF SUBSTRING LIMIT CHECKING ENABLED         F1037F5    17
          2076  7130005457                        SX3    2R..-1R.&2RC.                                           FC5A163     5
                          76410                   =X4    MF.LIB&MF.BEF                                           COMFFEI    47
                               20336              LX3    WA.SYMP+2*6                                             COMFFEI    48
          2077  6170000000 X                      SB7    Z.SYMIL                                                 COMFFEI    49
                          20471                   LX4    WC.FUNTP                                                COMFFEI    50
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    75
        COMFFEI - FRONT END INITIALIZATION.                           FEI 
  
          2100  5112000000 X             FEI20    SA1    B2+F.SYMIL+WA.W                                         F1037F5    18
                          5021000002              SA2    A1-WA.W+WC.W                                            COMFFEI    52
          2101  13631                             BX6    X3-X1       CHANGE (C.) INTO (.:)                       COMFFEI    53
                     13742                        BX7    X4-X2       CHANGE (MF.LIB) INTO (MF.BEF)               COMFFEI    54
                          6122000003              SB2    B2+Z=SYM                                                COMFFEI    55
          2102  54610                             SA6    A1                                                      COMFFEI    56
                     54720                        SA7    A2                                                      COMFFEI    57
                          0527002100 +            NE     B2,B7,FEI20 IF MORE ENTRIES TO CONVERT                  F1037F5    19
                                                                                                                 COMFFEI    59
          2103  5110000000 X             FEI30    SA1    CO.ANSI                                                 FC50744     9
                          5120000000 X            SA2    ERRTYP                                                  COMFFEI    67
          2104  5130000000 X                      SA3    CO.MD                                                   F1037F5    23
                          54421                   =A4    A2+1                                                    F1037F5    24
                               12612              BX6    X1+X2                                                   F1037F5    25
          2105  12734                             BX7    X3+X4                                                   F1037F5    26
                     54620                        SA6    A2          SET ERROR LEVEL FOR ANSI DIAGNOSTICS        F1037F5    27
                          54740                   SA7    A4          SET ERROR LEVEL FOR MACHINE DEPENDENT DIAG. F1037F5    28
          2106  0301002113 +                      ZR     X1,FEI50    IF ANSI DIAGNOSTICS NOT DESIRED             F1037F5    29
                          5120000000 X            SA2    ANSI.SW                                                 F1037F5    30
          2107  20236                             LX2    30                                                      F1037F5    31
                     10722                        BX7    X2                                                      F1037F5    32
                          54720                   SA7    A2          ENABLE ANSI DIAGNOSTICS                     F1037F5    33
          2110  7211777773                        SX1    X1-EL=F                                                 F1037F5    34
                          0311002113 +            NZ     X1,FEI50    IF ERROR LEVEL NOT FATAL                    F1037F5    35
          2111  5110000003 X                      SA1    ERRTYP+EL=W                                             COMFFEI    77
                          7120000004              SX2    EL=F                                                    COMFFEI    78
          2112  43052                             MX0    -18                                                     COMFFEI    79
                     11101                        BX1    X0*X1       ERASE EL=W                                  COMFFEI    80
                          12621                   BX6    X2+X1                                                   COMFFEI    81
                               54610              SA6    A1          REPLACE WITH EL=F                           COMFFEI    82
                                                                                                                 F1037F5    36
          2113  0303002115 +             FEI50    ZR     X3,FEI60    IF MACHINE DEPENDENT DIAG. NOT DESIRED      F1037F5    37
                          5120000000 X            SA2    MDER.SW                                                 F1037F5    38
          2114  20236                             LX2    30                                                      F1037F5    39
                     10722                        BX7    X2                                                      F1037F5    40
                          54720                   SA7    A2          ENABLE MACHINE DEPENDENT DIAGNOSTICS        F1037F5    41
                                                                                                                 F1037F5    42
          2115                           FEI60    BSS    0                                                       F1037F5    43
          2115  5110000000 X                      SA1    CO.OPT                                                  FC5A132    13
                          5120000000 X            SA2    CO.LCM                                                  FC5A132    14
          2116  77601                             =X6    -1                                                      FC5A132    15
                     0301002117 +                 ZR     X1,FEI70    IF OPT = 0                                  F1037F5    44
                               10622              BX6    X2                                                      FC5A132    17
                                                                                                                 FC5A132    18
          2117  5160000000 X             FEI70    SA6    WO.LCM      FORCE LCM=G FOR OPT=0                       F1037F5    45
                          0400002062 +            EQ     EXIT.                                                   COMFFEI    84
                                                                                                                 COMFFEI    85
                                                                                                                 COMFFEI    86
                                         COMFFEI  ENDX                                                           COMFFEI    87
                                                                                                                 INIT00   1383
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    76
        COMSEIS - SKELETON DESCRIPTION FOR QCG. 
  
          2120                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
  
  
  
  
                                        **        SKELETON OP-CODE TYPE VALUES.                                  COMSEIS     4
                                                                                                                 COMSEIS     5
                                                                                                                 COMSEIS     6
                                   0     M.COND   EQU    0           CONDITIONAL                                 COMSEIS     7
                                   1     M.NORM   EQU    1           ARITHMETIC OP-CODES                         COMSEIS     8
                                   2     M.INCR   EQU    2           LOAD REGISTER OP-CODES                      COMSEIS     9
                                   3     M.BRAN   EQU    3           BRANCH OP-CODES                             COMSEIS    10
                                   4     M.SHIF   EQU    4           REGISTER SHIFT OP-CODES                     COMSEIS    11
                                   5     M.ICALL  EQU    5           IF NEEDS TO CALL A EXTERNAL PROCESSOR TO    COMSEIS    12
                                   6     M.INOOP  EQU    6           SPECIAL TYPE FOR NOOPS                      COMSEIS    13
                                   7     M.ISBRN  EQU    7           TYPE FOR A BRANCH TO OTHER SKELS            COMSEIS    14
                                  10     M.LOAD   EQU    10B         LOAD/STORE INSTRUCTIONS                     COMSEIS    15
                                  21     M.RND    EQU    21B         M.NORM + THE ROUNDABLE BIT.                 COMSEIS    16
                                  40     M.IEND   EQU    40B         END OF SKELETON                             COMSEIS    17
                                  73     P.IEND   EQU    59                                                      COMSEIS    18
  
  
  
  
                                        **        SK. - WORD FORMAT OF SKELETON INSTRUCTION.                     COMSEIS    20
                                                                                                                 COMSEIS    21
                                                                                                                 COMSEIS    22
                                                  DESCRIBE  SK.,60                                               COMSEIS    23
      L     73  40000000000000000000     END      DEFINE 1                                                       COMSEIS    24
      L     72  20000000000000000000     RND      DEFINE 1                                                       COMSEIS    25
      L     66  77000000000000000000     TYP      DEFINE 6,59                                                    COMSEIS    26
      L     60  00770000000000000000     GH       DEFINE 6                                                       COMSEIS    27
      L     55  00777000000000000000     OPC      DEFINE 9,53                                                    COMSEIS    28
      L     42  00000777600000000000     IF       DEFINE 11                                                      COMSEIS    29
      L     27  00000000177740000000     JF       DEFINE 11                                                      COMSEIS    30
      L     14  00000000000037770000     KF       DEFINE 11                                                      COMSEIS    31
      L      0  00000000000000007777     QF       DEFINE 12                                                      COMSEIS    32
      L     44  00777777000000000000     ATTR     DEFINE 18,53                                                   COMSEIS    33
      L     22  00000000777777000000     ARG      DEFINE 18                                                      COMSEIS    34
      L      0  00000000000000777777     JPAD     DEFINE 18                                                      COMSEIS    35
  
  
  
  
                                        **        SR.      -- SKELETON REGISTER/CONSTANT FIELD --                COMSEIS    37
                                        *                THE SR. STRUCTURE IS A SUB-STRUCTURE OF SK. IT          COMSEIS    38
                                        *                RESIDES IN THE SK.I, SK.J, AND SK.K FIELDS.             COMSEIS    39
                                        *                THESE FIELDS CONTROL THE CONSTRUCTION IF THE            COMSEIS    40
                                        *                I, J, AND K/Q PORTION OF A PREBINARY WORD.              COMSEIS    41
                                                                                                                 COMSEIS    42
                                                  DESCRIBE   SR.,11                                              COMSEIS    43
                                3700     OAD      DEFINE 5                                                       COMSEIS    44
                                0077     NUM      DEFINE 6                                                       COMSEIS    45
                                                                                                                 COMSEIS    46
                                                  ENDX                                                           COMSEIS    47
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    77
        COMFROR - ROUNDABLE OPCODE RESET.                             ROR 
  
          2120                           ROR      CTEXT  COMFROR - ROUNDABLE OPCODE RESET.                       COMFROR     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFROR     4
                                                  QUAL   COMFROR                                                 COMFROR     5
  
  
  
  
                                        **        ROR    RESET OPCODES OF ROUNDABLES                             COMFROR     7
                                        *                THIS SUBROUTINE RECORDS THE ROUND OPTIONS SELECTED      COMFROR     8
                                        *                BY THE USER. IF NEEDED, IT THEN CHANGES THE EFFECTED    COMFROR     9
                                        *                OPCODE FIELDS OF ROUNDABLE SKELETONS FROM FLOATING      COMFROR    10
                                        *                TO ROUNDED OPCODES.                                     COMFROR    11
                                        *                                                                        COMFROR    12
                                        *         ENTRY  CO.RNDA - 1S59 IF + MUST BE ROUNDED, ELSE 0             COMFROR    13
                                        *                CO.RNDS - 1S59 IF - MUST BE ROUNDED, ELSE 0             COMFROR    14
                                        *                CO.RNDM - 1S59 IF * MUST BE ROUNDED, ELSE 0             COMFROR    15
                                        *                CO.RNDD - 1S59 IF / MUST BE ROUNDED, ELSE 0             COMFROR    16
                                        *                                                                        COMFROR    17
                                        *                (B2) = FWA OF CODE SKELETONS                            COMFROR    18
                                        *                                                                        COMFROR    19
                                        *         EXIT   SKELETON OPCODES CHANGED AS THE CO.RND CELLS INDICATE   COMFROR    20
                                        *                                                                        COMFROR    21
                                        *         USES   A1,6  X0,1,2,3,6  B3                                    COMFROR    22
                                                                                                                 COMFROR    23
          2120  0400402120 +             ROR      SUBR               ENTRY/EXIT                                  COMFROR    24
                                                                                                                 COMFROR    25
                                        **        FORM THE SKELETON MODIFICATION MASK IN X2, WITH THE VALUES OF  COMFROR    26
                                        *         59-OPCODE FOR THOSE OPERATIONS WHICH ARE TO BE ROUNDED.        COMFROR    27
                                                                                                                 COMFROR    28
                                        **        PROCESS FOR +                                                  COMFROR    29
                                                                                                                 COMFROR    30
          2121  5130000000 X                      SA3    =XCO.RNDA                                               COMFROR    31
                          20344                   LX3    -30B        SHIFT TO BIT 59-FADD OPCODE                 COMFROR    32
                               10233              BX2    X3          INITIALIZE                                  COMFROR    33
                                                                                                                 COMFROR    34
                                        **        PROCESS FOR -                                                  COMFROR    35
                                                                                                                 COMFROR    36
          2122  5130000000 X                      SA3    =XCO.RNDS                                               COMFROR    37
                          20343                   LX3    -31B        POSITION IN BIT 59-FSUB OPCODE.             COMFROR    38
                               36223              IX2    X2+X3       ADD INTO OPCODE BIT ACUMULATOR.             COMFROR    39
                                                                                                                 COMFROR    40
                                        **        REPEAT PROCESS FOR *                                           COMFROR    41
                                                                                                                 COMFROR    42
          2123  5130000000 X                      SA3    =XCO.RNDM                                               COMFROR    43
                          20334                   LX3    -40B        SHIFT TO 59-FMULT OPCODE                    COMFROR    44
                               36223              IX2    X2+X3                                                   COMFROR    45
                                                                                                                 COMFROR    46
                                        **        REPEAT PROCESS FOR /                                           COMFROR    47
                                                                                                                 COMFROR    48
          2124  5130000000 X                      SA3    =XCO.RNDD                                               COMFROR    49
                          20330                   LX3    -44B        SHIFT TO 59-FDIV OPCODE                     COMFROR    50
                               36223              IX2    X2+X3                                                   COMFROR    51
          2125  0302002120 +                      ZR     X2,EXIT.    IF NO ROUNDED OPERATIONS                    COMFROR    52
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    78
        COMFROR - ROUNDABLE OPCODE RESET.                                                 COMFROR 
  
                                                                                                                 COMFROR    53
                                        **        HERE WE LOOP THROUGH CODE SKELETONS,                           COMFROR    54
                                        *         CHANGING ROUNDABLE OPCODES.                                    COMFROR    55
                                                                                                                 COMFROR    56
                          5112777776              SA1    B2-1                                                    COMFROR    57
                                                                                                                 COMFROR    58
                                        **        (A1) _ CURRENT SKELETON                                        COMFROR    59
                                        *         (X0) = SKELETON OPCODE MASK                                    COMFROR    60
                                        *         (X1) = CURRENT SKELETON                                        COMFROR    61
                                        *         (X2) = 59-OPCODE BITS FOR ROUNDED OPERATIONS.                  COMFROR    62
                                                                                                                 COMFROR    63
          2126  54111                    ROR2     =A1    A1+1        FETCH NEXT SKELETON WORD                    COMFROR    64
                     43066                        MX0    -SK.GHL     OPCODE MASK                                 COMFROR    65
                          10311                   BX3    X1                                                      COMFROR    66
                               20314              LX3    -SK.GHP     POSITION OPCODE FIELD.                      COMFROR    67
          2127  0301002120 +                      ZR     X1,EXIT.    IF DONE                                     COMFROR    68
                          15030                   BX0    -X0*X3      EXTRACT OPCODE.                             COMFROR    69
                               20101              HX1    SK.RND      SIGN BIT OF X1 = ROUNDABLE BIT              COMFROR    70
          2130  63300                             SB3    X0          SHIFT COUNT = OPCODE                        COMFROR    71
                     22332                        LX3    B3,X2                                                   COMFROR    72
                          0321002126 +            PL     X1,ROR2     IF NOT A ROUNDABLE SKELETON.                COMFROR    73
          2131  0323002126 +                      PL     X3,ROR2     IF OPERATOR NOT SELECTED FOR ROUNDING       COMFROR    74
                          20113                   LX1    1+SK.RNDP-SK.GHP  READY SKEL WORD FOR OPCODE CHANGE.    COMFROR    75
                                                                                                                 COMFROR    76
                                        **        NOW CHANGE OPCODE USING A SNEEKY TRICK. OPCODES 30,31 BECOME   COMFROR    77
                                        *         34,35 RESP, AND 40,44 BECOME 41,45 RESP. THAT IS WE INCREMENT  COMFROR    78
                                        *         OPCODE BY 1 IF BIT 5 IS ON OR INCREMENT BY 4 IF BIT 3 IS ON    COMFROR    79
                                        *         (IN OPCODE FIELD). THE FOLLOWING INSTRUCTIONS ACOMPLISH THIS.  COMFROR    80
                                        *                                                                        COMFROR    81
                                        *         (X0) = OPCODE OF SKELETON WORD                                 COMFROR    82
                                        *         (X1) = SKELETON  LEFT SHIFTED BY SK.GHP                        COMFROR    83
                                                                                                                 COMFROR    84
          2132  7130000050                        SX3    50B         3,5 BIT MASK                                COMFROR    85
                          11030                   BX0    X3*X0       EXTRACT BIT 3 OR 5                          COMFROR    86
                               13330              BX3    X3-X0       REVERSE THE BITS                            COMFROR    87
          2133  21303                             AX3    3           (X3) = 4 FOR 3X OPCODES, 1 FOR 4X OPCODES   COMFROR    88
                     36613                        IX6    X1+X3       INCREMENT OPCODE.                           COMFROR    89
                          20660                   LX6    SK.GHP      RESET SKELETON WORD                         COMFROR    90
                               54610              SA6    A1          RESET SKELETON.                             COMFROR    91
          2134  0400002126 +                      EQ     ROR2                                                    COMFROR    92
  
  
  
  
                                                  IF     -DEF,QUAL$,2                                            COMFROR    94
                                                  QUAL   *                                                       COMFROR    95
                                2120 +   ROR      EQU    /COMFROR/ROR                                            COMFROR    96
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    79
        COMFROR - ROUNDABLE OPCODE RESET. 
  
                                         COMFROR  ENDX                                                           COMFROR    98
                                                  LIST   D                                                       INIT00   1386
                                                  ENTRY  B=LWA00                                                 INIT00   1387
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        WOF=ERR 
  
                                        CONTENT OF LITERALS BLOCK.
  
          2135  40404040404040404040    5555555555
          2136  55555555555555555555
          2137  00000005300503252405       EXECUTE
          2140  55570724575534335503     .GT. 10 C
          2141  10012257000000000000    HAR.
          2142  55100123551114140507     HAS ILLEG
          2143  01145502111601223155    AL BINARY 
          2144  26011425055700000000    VALUE.
          2145  55111414050701145503     ILLEGAL C
          2146  10012201032405225700    HARACTER. 
          2147  00000000000000000000
          2150  55111414050701145506     ILLEGAL F
          2151  11140516011505570000    ILENAME.
          2152  55111414050701145516     ILLEGAL N
          2153  25150522110357000000    UMERIC. 
          2154  55465501160455545516     - AND = N
          2155  17245502172410550114    OT BOTH AL
          2156  14172705045700000000    LOWED.
          2157  55152523245502055505     MUST BE E
          2160  21251126011405160305    QUIVALENCE
          2161  04570000000000000000    D.
          2162  55232422111607552417     STRING TO
          2163  17551417160757000000    O LONG. 
          2164  55240522151116012417     TERMINATO
          2165  22551511232311160757    R MISSING.
          2166  00000000000000000000
          2167  55241717551501163155     TOO MANY 
          2170  17030325220516030523    OCCURENCES
          2171  57000000000000000000    . 
          2172  55241717551501163155     TOO MANY 
          2173  17202411171623570000    OPTIONS.
          2174  55251622050317071611     UNRECOGNI
          2175  32010214055700000000    ZABLE.
          2176  55251613161727165517     UNKNOWN O
          2177  20241117165700000000    PTION.
          2200  00000000000000000024             T
          2201  02111600000000000000    BIN 
          2202  06113005040000000000    FIXED 
          2203  05222223000000000000    ERRS
          2204  00000000000000000006             F
          2205  23312324053024000000    SYSTEXT 
          2206  03171520111405000000    COMPILE 
          2207  14112324000000000000    LIST
          2210  00000000000000000011             I
          2211  00000000000000141520           LMP
          2212  00000000000000000002             B
          2213  00000000000000000010             H
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    80
        COMFROR - ROUNDABLE OPCODE RESET.                             LITERALS
  
          2214  00000000000000000110            AH
          2215  17201400000000000000    OPL 
          2216  00000000000000001747            O*
          2217  55011623115515252324     ANSI MUST
          2220  55020555335655245517     BE 0, T O
          2221  22550657000000000000    R F.
          2222  55012207550301162455     ARG CANT 
          2223  02055502172410550317    BE BOTH CO
          2224  15151716550116045506    MMON AND F
          2225  11300504570000000000    IXED. 
          2226  55025433550116045507     B=0 AND G
          2227  17551123551116031716    O IS INCON
          2230  23112324051624570000    SISTENT.
          2231  55032355152523245502     CS MUST B
          2232  05552523052255172255    E USER OR 
          2233  06113005045700000000    FIXED.
          2234  55111624052201032411     INTERACTI
          2235  26055504050225075522    VE DEBUG R
          2236  05212511220523551720    EQUIRES OP
          2237  24543357000000000000    T=0.
          2240  55055433551123551114     E=0 IS IL
          2241  14050701145700000000    LEGAL.
          2242  55051455152523245502     EL MUST B
          2243  05552456552756550656    E T, W, F,
          2244  55172255035700000000     OR C.
          2245  55052455152523245502     ET MUST B
          2246  05553356552456552756    E 0, T, W,
          2247  55065655172255035700     F, OR C. 
          2250  00000000000000000000
          2251  55061114055525230555     FILE USE 
          2252  03171606141103245700    CONFLICT. 
          2253  00000000000000000000
          2254  55115433551123551617     I=0 IS NO
          2255  24550114141727050457    T ALLOWED.
          2256  00000000000000000000
          2257  55305433551123551617     X=0 IS NO
          2260  24550114141727050457    T ALLOWED.
          2261  00000000000000000000
          2262  55111414050701145507     ILLEGAL G
          2263  55172024111716552331     OPTION SY
          2264  16240130570000000000    NTAX. 
          2265  55111414050701145523     ILLEGAL S
          2266  55172024111716552331     OPTION SY
          2267  16240130570000000000    NTAX. 
          2270  55140315551720241117     LCM OPTIO
          2271  16551525232455020555    N MUST BE 
          2272  07565511551722550457    G, I OR D.
          2273  00000000000000000000
          2274  55150455152523245502     MD MUST B
          2275  05553356552455172255    E 0, T OR 
          2276  06570000000000000000    F.
          2277  55172024551405260514     OPT LEVEL
          2300  55161724553356345635     NOT 0,1,2
          2301  56551722553657000000    , OR 3. 
          2302  55200455012207251505     PD ARGUME
          2303  16245516172455415517    NT NOT 6 O
          2304  22554357000000000000    R 8.
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    81
        COMFROR - ROUNDABLE OPCODE RESET.                             LITERALS
  
          2305  55201455152523245516     PL MUST N
          2306  17245505300305050455    OT EXCEED 
          2307  44444444444444444457    999999999.
          2310  00000000000000000000
          2311  55200107055523113205     PAGE SIZE
          2312  55220116070555570724     RANGE .GT
          2313  57553657000000000000    . 3.
          2314  55200107055527110424     PAGE WIDT
          2315  10552201160705554033    H RANGE 50
          2316  55465534364157000000     - 136. 
          2317  55171614315542552331     ONLY 7 SY
          2320  23240515235524053024    STEMS TEXT
          2321  23550114141727050457    S ALLOWED.
          2322  00000000000000000000
          2323  16250314052523000000    NUCLEUS 
          2324  25230522000000000000    USER
          2325  00000000007346544777         >-=*;
          2326  47475555161755031715    **  NO COM
          2327  20111401241117165700    PILATION. 
          2330  00000000000000000000
          2331  55051520243155111620     EMPTY INP
          2332  25245506111405575555    UT FILE.
          2333  16175503171520111401    NO COMPILA
          2334  24111716570000000000    TION. 
          2335  34550000000000000000    1 
          2336  00000000000055555555
  
          2337                           B=LWA00  END                MARK LWA OF OVERLAY FOR RPV                 INIT00   1388
  
                             76100B CM  STORAGE USED             7480 STATEMENTS     2004 SYMBOLS      000016 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            6.140 SECONDS        1743 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABTFTN          0   EXTERNAL*       2/05 X   56/45     59/18
        ANSI.SW         0   EXTERNAL*       2/34 X   74/11 X   75/19
        B1=1            0 
        B=LWA00      2337   PROGRAM*       79/03 E   79/04 L
        CDD             0   EXTERNAL*       2/47 X   65/52
        CFL          1043   PROGRAM*        4/50     42/23 L
        CFL3         1050   PROGRAM*       42/41 L
        CFL5         1057   PROGRAM*       43/02 L
        CFN          1072   PROGRAM*       43/50 L   50/30     50/30     50/30     50/30
        CFN2         1075   PROGRAM*       43/54     43/56 L
        CFN3         1100   PROGRAM*       44/02     44/08 L
        CFV           237   PROGRAM*       28/28 D   37/05     38/26
        CHAR            6   FTX             4/13     52/35     60/24     64/09     65/11     65/54     67/24     68/53
                                           47/47     53/30     60/48     64/12     65/14     65/55     67/37     69/01
                                           48/19     53/32     60/50     64/24     65/27     65/57     67/40
                                           48/54     53/33     61/41     64/38     65/30     66/05     68/26
                                           49/52     54/06     63/48     64/45     65/39     66/10     68/27
                                           51/02     54/07     63/51     64/55     65/42     66/12     68/40
                                           51/36     54/16     63/54     65/01     65/53     67/15     68/42
        CIO=            0   EXTERNAL*       2/47 X   57/10     57/22     57/36     57/51     58/54     71/01
        CO.AL           0   EXTERNAL*       2/05 X   33/16     66/02
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    82
        SYMBOLIC REFERENCE TABLE. 
  
        CO.ANSI         0   EXTERNAL*       2/05 X   33/17     48/17     74/08 X   75/10
        CO.ARGC         0   EXTERNAL*       2/05 X   34/36     48/43     64/37
        CO.ARGF         0   EXTERNAL*       2/05 X   34/37     48/44     64/44
        CO.B          663   PROGRAM*       33/19     36/04 L   48/39 S   50/30     55/03     55/04     55/05     55/08
        CO.BRK          0   EXTERNAL*       2/05 X
        CO.CPL          0   EXTERNAL*       2/05 X
        CO.CS           0   EXTERNAL*       2/06 X   33/21     51/56     52/09 S   64/53
        CO.DBER         0   EXTERNAL*       2/06 X   34/40     51/11     51/28 S   65/25
        CO.DBID         0   EXTERNAL*       2/06 X   34/41     46/25     46/26     53/14     65/29
        CO.DBPM         0   EXTERNAL*       2/06 X   34/42     65/38
        CO.DBSB         0   EXTERNAL*       2/07 X   34/43     65/13
        CO.DBSL         0   EXTERNAL*       2/07 X   34/44     65/16     74/08 X   74/50
        CO.DBST         0   EXTERNAL*       2/07 X   34/45     53/15     65/41
        CO.DBTB         0   EXTERNAL*       2/07 X   34/46     65/10
        CO.DOLG         0   EXTERNAL*       2/08 X   34/49     51/52 S   53/02     64/23
        CO.DOOT         0   EXTERNAL*       2/08 X   34/50     53/03     64/26
        CO.DS           0   EXTERNAL*       2/08 X   33/24     64/11
        CO.E          664   PROGRAM*       33/26     36/08 L   50/30     55/05     55/07     55/11     55/13
        CO.EC           0   EXTERNAL*       2/08 X   33/25     43/09     43/18 S
        CO.EL           0   EXTERNAL*       2/08 X   33/27     47/45
        CO.ET           0   EXTERNAL*       2/08 X   33/28     49/46
        CO.GO           0   EXTERNAL*       2/08 X   33/30     50/47     51/04 S
        CO.I          665   PROGRAM*       33/31     36/09 L   50/30     55/03     55/06     55/07     55/10     55/15
        CO.IDP          0   EXTERNAL*       2/08 X
        CO.L          666   PROGRAM*       33/36     36/12 L   49/14     50/30     55/04     55/06     55/09     55/12
        CO.LCM          0   EXTERNAL*       2/09 X   33/38     51/34     51/48 S   74/08 X   75/40
        CO.LL           0   EXTERNAL*       2/09 X   33/39     52/50     65/51
        CO.LOA          0   EXTERNAL*       2/09 X   34/53     49/18 S   49/34     72/28
        CO.LOC          0   EXTERNAL*       2/09 X
        CO.LOM          0   EXTERNAL*       2/09 X   34/54     49/19 S   49/33     72/29
        CO.LOO          0   EXTERNAL*       2/09 X   34/55     49/20 S   49/32     72/25     72/39     73/25
        CO.LOR          0   EXTERNAL*       2/09 X   34/56     49/21 S   49/35     72/30     72/35     74/08 X
        CO.LOS          0   EXTERNAL*       2/09 X   34/57     49/22 S
        CO.MD           0   EXTERNAL*       2/10 X   33/41     48/52     74/08 X   75/12
        CO.OPT          0   EXTERNAL*       2/10 X   33/43     50/35     53/12     55/45     75/39
                                            4/46     49/31     51/17     53/24     74/08 X
        CO.PD         667   PROGRAM*       33/45     36/15 L   52/23     61/34 S
        CO.PS           0   EXTERNAL*       2/10 X   33/47     52/38     52/45 S   61/29 S
        CO.PW           0   EXTERNAL*       2/10 X   56/16     56/25     59/39     60/17
                                           33/48     56/20 S   59/32     60/16 S   66/20
        CO.PWT          0   EXTERNAL*       2/10 X   59/45
        CO.PWU       1550   PROGRAM*       56/23 S   59/43     61/04 L
        CO.QC           0   EXTERNAL*       2/10 X   33/49     48/36
        CO.REWB         0   EXTERNAL*       2/10 X   35/03     57/49
        CO.REWE         0   EXTERNAL*       2/10 X   35/04     57/27
        CO.REWI         0   EXTERNAL*       2/11 X   35/05     57/03
        CO.REWL         0   EXTERNAL*       2/11 X   35/06     57/15
        CO.RFL          0   EXTERNAL*       2/11 X
        CO.RNDA         0   EXTERNAL*       2/11 X   35/09     63/47     77/36
        CO.RNDD         0   EXTERNAL*       2/11 X   35/12     64/08     77/54
        CO.RNDM         0   EXTERNAL*       2/11 X   35/11     63/53     77/48
        CO.RNDS         0   EXTERNAL*       2/11 X   35/10     63/50     77/42
        CO.SEQ          0   EXTERNAL*       2/12 X   33/53
        CO.SNAP         0   EXTERNAL*       2/12 X
        CO.SPP          0   EXTERNAL*       2/12 X
        CO.STAT         0   EXTERNAL*       2/12 X   33/54
        CO.TMLC         0   EXTERNAL*       2/12 X
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        CO.UO           0   EXTERNAL*       2/12 X   50/39 S   53/25
        CO.WPE          0   EXTERNAL*       2/13 X
        CO.WPL          0   EXTERNAL*       2/13 X   60/57 S
        CO.X            0   EXTERNAL*      54/55 D   55/08     55/09     55/10     55/11
        CP           1733   PROGRAM*       67/34 S   67/57 L   68/28     69/16 S
        CPM=         1571   PROGRAM*       61/21     63/04 D
        CPV          1575   PROGRAM*        4/52     63/41 L
        CPV10        1612   PROGRAM*       64/08     64/11 L
        CPV12        1614   PROGRAM*       64/11     64/14 L
        CPV14        1617   PROGRAM*       64/14     64/23 L
        CPV16        1621   PROGRAM*       64/23     64/26 L
        CPV18        1623   PROGRAM*       64/26     64/29 L
        CPV2         1601   PROGRAM*       63/47     63/50 L
        CPV20        1625   PROGRAM*       64/29     64/37 L
        CPV22        1631   PROGRAM*       64/37     64/44 L
        CPV24        1635   PROGRAM*       64/44     64/53 L
        CPV26        1640   PROGRAM*       64/53     65/01 L
        CPV28        1642   PROGRAM*       64/56     65/04 L
        CPV30        1645   PROGRAM*       65/10     65/13 L
        CPV32        1647   PROGRAM*       65/13     65/16 L
        CPV34        1651   PROGRAM*       65/16     65/19 L
        CPV36        1653   PROGRAM*       65/19     65/25 L
        CPV38        1655   PROGRAM*       65/25     65/29 L
        CPV4         1603   PROGRAM*       63/50     63/53 L
        CPV40        1657   PROGRAM*       65/29     65/32 L
        CPV42        1661   PROGRAM*       65/32     65/38 L
        CPV44        1663   PROGRAM*       65/38     65/41 L
        CPV46        1665   PROGRAM*       65/41     65/44 L
        CPV48        1667   PROGRAM*       65/44     65/51 L
        CPV50        1674   PROGRAM*       66/03     66/05 L
        CPV52        1703   PROGRAM*       66/30 L   66/34
        CPV54        1707   PROGRAM*       66/43 L   66/47
        CPV6         1605   PROGRAM*       63/53     63/56 L
        CPV8         1610   PROGRAM*       63/56     64/08 L
        CP.ABT          0   EXTERNAL*       2/13 X   50/13
        CP.AFLL         0   EXTERNAL*       2/14 X   44/55 S
        CP.AFLS         0   EXTERNAL*       2/14 X   42/26     43/04 S   44/54 S   72/21     73/16 S
        CP.BLF          0   EXTERNAL*       2/14 X   33/20
        CP.CARD         0   EXTERNAL*       2/14 X   58/55
        CP.CPU          0   EXTERNAL*       2/14 X   54/09 S
        CP.ILFL         0   EXTERNAL*       2/14 X   45/01 S
        CP.LIB          0   EXTERNAL*       2/14 X   37/22 S   38/38 S   38/46 S
        CP.LSTF         0   EXTERNAL*       2/15 X   49/17 S   49/26 S
        CP.MODL         0   EXTERNAL*       2/15 X   33/42     33/42
        CP.MXFL         0   EXTERNAL*       2/15 X   43/05 S   73/17 S
        CP.NFLL         0   EXTERNAL*       2/15 X   44/57 S
        CP.NFLS         0   EXTERNAL*       2/15 X    3/48     43/03 S   44/56 S   72/53     73/14 S
        CP.PAGE         0   EXTERNAL*       2/15 X   33/46     52/14
        CP.PCOM         0   EXTERNAL*       2/15 X   33/44     33/44
        CP.PD           0   EXTERNAL*       2/16 X   52/37 S
        CP.PS           0   EXTERNAL*       2/16 X   52/46 S
        CP.PW           0   EXTERNAL*       2/16 X
        CP.STXT         0   EXTERNAL*       2/16 X   37/17     38/41
        CP.XTXT         0   EXTERNAL*       2/16 X   33/57     54/55     55/17
        CP#RM           0   FTX            44/01 F   55/24 F   55/57 F   56/48 F   57/18 F   57/46 F   59/04 F
                                           54/23 F   55/50 F   56/07 F   57/06 F   57/32 F   58/52 F
        DC.FIDP        43                   3/05 D   46/28
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        DEM           244   PROGRAM*       28/29 D   40/12     40/25     40/37     40/49     41/03     41/19     41/51
                                           40/04     40/16     40/31     40/41     40/54     41/10     41/25
                                           40/08     40/22     40/34     40/44     40/57     41/14     41/39
        DEM.RET       246   PROGRAM*       28/30 D
        DXB             0   EXTERNAL*       2/47 X   16/25
        EL=C            5   FTX            47/49     47/52     49/55     50/01
        EL=F            4   FTX            47/52     47/55     48/27     49/05     50/01     50/04     75/23     75/26
        EL=T            2   FTX            48/01     48/24     49/02     50/07
        EL=W            3   FTX            47/55     48/01     50/04     50/07     75/25
        ENOT=L          0   EXTERNAL*       2/16 X   55/22 S   56/30     57/28
        ERFO            0   EXTERNAL*       2/16 X   45/45 S   54/04 S   60/25     64/03 S
                                           45/44 S   53/37 S   54/20 S   60/27     64/18 S
        ERRTYP          0   EXTERNAL*       2/37 X   74/14 X   75/11     75/25
        ERR.CNT       300   PROGRAM*       28/31 D   41/28     41/40     56/42
        ERR.FLD       273   PROGRAM*       28/32 D   40/15 S   40/53 S   41/18 S   41/38 S   48/20 S   51/37 S
                                           40/07 S   40/21 S   41/09 S   41/24 S   41/50 S   48/55 S   55/02 S
                                           40/11 S   40/48 S   41/13 S   41/27 S   47/48 S   49/53 S
        ERR.RET       244   PROGRAM*       28/33 D
        E.ANSI        744   PROGRAM*       40/04 L   48/29
        E.ARG         746   PROGRAM*       40/07 L   48/47
        E.BGO         751   PROGRAM*       40/11 L   50/52
        E.CS          754   PROGRAM*       40/15 L   52/07
        E.EF          762   PROGRAM*       40/25 L   55/14
        E.EL          764   PROGRAM*       40/31 L   48/10
        E.ET          766   PROGRAM*       40/34 L   50/09
        E.ID          757   PROGRAM*       40/20 L   53/17
        E.IGS         776   PROGRAM*       37/02     37/06     37/11     40/47 L
        E.ISS        1001   PROGRAM*       38/23     38/27     38/31     40/52 L
        E.IZ          772   PROGRAM*       40/41 L   55/16
        E.LCM        1004   PROGRAM*       40/57 L   51/46
        E.LFNC        770   PROGRAM*       40/37 L   55/04     55/06     55/08     55/10
                                           55/03     55/05     55/07     55/09     55/11
        E.MD         1006   PROGRAM*       41/03 L   49/07
        E.OPT        1010   PROGRAM*        4/48     41/06 L
        E.PD         1014   PROGRAM*       41/13 L   52/33
        E.PL         1017   PROGRAM*       41/17 L   52/53
        E.PS         1022   PROGRAM*       41/22 L   52/42     52/43
        E.PW         1031   PROGRAM*       41/34 L   60/09     60/11
        E.S7         1040   PROGRAM*       37/20     38/44     41/49 L
        E.XZ          774   PROGRAM*       40/44 L   55/18
        FA=SET          0   EXTERNAL*       2/47 X   54/37     54/38     55/38     55/39     72/37     72/43     72/48
        FCA          1712   PROGRAM*       27/03     67/14 L
        FCA1         1715   PROGRAM*       67/21 L   67/25
        FCA2         1717   PROGRAM*       67/23     67/27 L
        FCA3         1722   PROGRAM*       67/34 L   67/38     67/41     67/55
        FCA4         1723   PROGRAM*       67/29     67/37 L
        FCA6         1724   PROGRAM*       67/40 L   67/46
        FCA7         1725   PROGRAM*       67/19     67/43 L
        FEI          2062   PROGRAM*       73/33     74/29 L
        FEI10        2072   PROGRAM*       74/43 L   74/49
        FEI20        2100   PROGRAM*       75/01 L   75/08
        FEI30        2103   PROGRAM*       74/52     75/10 L
        FEI50        2113   PROGRAM*       75/18     75/24     75/32 L
        FEI60        2115   PROGRAM*       75/32     75/38 L
        FEI70        2117   PROGRAM*       75/42     75/45 L
        FIN             0   EXTERNAL*       2/31 X   72/34
        FIN.MAP         0   EXTERNAL*       2/31 X   72/27
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        FIN.OL          0   EXTERNAL*       2/28 X   72/24
        FLSLOP          4   FTX            73/21
        FLSLUP       1000   FTX            73/22
        FLSZ           12   FTX            43/02
        FTIFL           0   EXTERNAL*       2/16 X   45/04 S
        FTN             0   PROGRAM*        3/45 L    3/45 E
        FTNHHA          0   EXTERNAL*       2/17 X   44/48 S
        FTNLDR          0   EXTERNAL*       2/17 X    3/49     46/07 S
        FTNLFN          0   EXTERNAL*       2/17 X   46/12 S
        FTNOVM         34   PROGRAM*        4/54      5/28 L   49/40 S   54/28
        FTN1           26   PROGRAM*        4/50 L   41/11
        FTN.1           6   PROGRAM*        4/06 L    4/11
        FTN.2          11   PROGRAM*        4/07      4/13 L
        FTN.3          13   PROGRAM*        4/15      4/19 L
        FVLEN           0   EXTERNAL*       2/17 X   46/19
        FVTBL           0   EXTERNAL*       2/17 X   46/19
        FV.ERRS         0   EXTERNAL*       2/17 X   50/30
        FV.IN           0   EXTERNAL*       2/17 X   50/30
        FV.LGO          0   EXTERNAL*       2/18 X   50/30     50/49     51/01     57/43     72/38     72/45     73/24
        FV.OUT          0   EXTERNAL*       2/18 X   50/30
        F.ERRS          0   EXTERNAL*       2/18 X   55/37 S   55/38     57/33     61/05
        F.IN            0   EXTERNAL*       2/18 X   54/34 S   54/38     57/07     58/53     58/54     58/55
        F.LGO           0   EXTERNAL*       2/18 X   55/51 S   57/51     72/48
        F.OUT           0   EXTERNAL*       2/18 X   54/35 S   54/37     55/25     55/36 S   55/39     57/19     61/05
        F.PB            0   EXTERNAL*       2/18 X   56/01 S   72/43
        F.REF           0   EXTERNAL*       2/18 X   56/08 S   72/37
        F.SKEL          0   EXTERNAL*       2/44 X   73/34
        F.SYMIL         0   EXTERNAL*      74/05 X   74/38     75/01
        GNA           342   PROGRAM*       28/34 D   36/52     37/01     37/13     38/15     38/22     38/35
        GNC           356   PROGRAM*       28/35 D
        GNC.RET       420   PROGRAM*       28/36 D
        GOI          2007   PROGRAM*        5/07     73/44 D
        GPP          1553   PROGRAM*        3/54     61/20 L
        GPP1         1566   PROGRAM*       61/38     61/41 L
        GP.JPD        672   PROGRAM*       36/29 L   61/35 S
        GP.JPS        673   PROGRAM*       36/30 L   61/30 S
        GP.JPW        674   PROGRAM*       36/31 L   56/18     61/26 S
        GP.PAGE       672   PROGRAM*       36/28 L   61/21     61/22
        GT1             0   EXTERNAL*       2/18 X   42/51 S   42/52     42/53     43/12 S   43/13     43/14
        IBUF            0   EXTERNAL*       2/19 X   54/36     54/38
        IDPCHK          0   EXTERNAL*       2/19 X
        IDP=            0   EXTERNAL*       2/25 X
        IDP=USY         0   EXTERNAL*       2/25 X
        IGNORE        670   PROGRAM*       34/15     36/24 L
        INT.FL          0   EXTERNAL*       2/19 X   72/23 S
        I.CBSET         5   FTX            54/34 S   55/25     55/36 S   55/51 S   56/08 S
                                           54/35 S   55/28     55/37 S   56/01 S
        I.FIRST         1   FTX            55/28
        JOT             0   EXTERNAL*       2/19 X   46/46 S
        KEYS          427   PROGRAM*        4/22     33/13 L   34/23
        LDPRI           0   EXTERNAL*       2/19 X    4/55
        L.PWA           0   EXTERNAL*       2/19 X   66/26
        L.PWB           0   EXTERNAL*       2/19 X   66/39     68/55     69/07
        L.TABS          0   EXTERNAL*       2/37 X   73/09 S   73/10     73/11     73/20 S
        MAX.FL          0   EXTERNAL*       2/19 X   42/25     42/41     73/02
        MC.176L         2                   3/14 D
        MC.176P        22                   3/14 D
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        MC.800P        24                   3/13 D
        MDER.SW         0   EXTERNAL*      74/11 X   75/33
        MEMERR          0   EXTERNAL*       2/20 X   42/45     73/05
        MF.BEF          3   FTX            74/54
        MF.LIB          2   FTX            74/54
        MIA          1101   PROGRAM*        3/53     44/41 L
        MIA10        1147   PROGRAM*       46/44     46/46 L
        MIA4         1115   PROGRAM*       45/30 L
        MIA6         1132   PROGRAM*       46/04     46/08 L
        MIA8         1134   PROGRAM*       46/11     46/13 L
        MIB          1150   PROGRAM*        4/51     47/10 L
        MIB0         1151   PROGRAM*       47/45 L
        MIB1         1161   PROGRAM*       47/51     47/54     47/57     48/12 L
        MIB10        1204   PROGRAM*       41/04     49/13 L
        MIB100       1324   PROGRAM*       40/23     53/13     53/22 L
        MIB102       1327   PROGRAM*       53/26     53/29 L
        MIB112       1340   PROGRAM*       53/46     53/48     53/57 L
        MIB12        1211   PROGRAM*       49/15     49/25 L
        MIB120       1356   PROGRAM*       54/29     54/57 L
        MIB125       1427   PROGRAM*       40/26     40/38     40/42     40/45     55/21     55/45 L
        MIB130       1435   PROGRAM*       55/46     56/12 L
        MIB135       1440   PROGRAM*       56/17     56/22 L
        MIB136       1441   PROGRAM*       56/21     56/25 L
        MIB140       1445   PROGRAM*       56/31     56/38 L
        MIB140A      1451   PROGRAM*       56/43     56/47 L
        MIB142       1455   PROGRAM*       57/04     57/09     57/15 L
        MIB143       1461   PROGRAM*       57/16     57/21     57/27 L
        MIB144       1466   PROGRAM*       57/29     57/30     57/35     57/43 L
        MIB150       1472   PROGRAM*       57/44     57/50     57/56 L
        MIB2         1162   PROGRAM*       40/32     48/17 L
        MIB20        1212   PROGRAM*       49/23     49/31 L
        MIB200       1472   PROGRAM*       58/51 L
        MIB21        1230   PROGRAM*       49/50     49/57     50/03     50/06     50/11 L
        MIB22        1233   PROGRAM*       40/35     50/22 L
        MIB3         1170   PROGRAM*       48/23     48/26     48/31 L
        MIB30        1246   PROGRAM*       50/37     50/46 L
        MIB35        1251   PROGRAM*       40/13     50/50     51/01 L
        MIB4         1171   PROGRAM*       40/05     48/36 L
        MIB40        1253   PROGRAM*       50/48     51/09 L
        MIB41        1256   PROGRAM*       51/13     51/17 L
        MIB42        1260   PROGRAM*       51/18     51/21 L
        MIB43        1263   PROGRAM*       51/15     51/23     51/25     51/28 L
        MIB5         1173   PROGRAM*       48/37     48/43 L
        MIB50        1264   PROGRAM*       51/33 L
        MIB51        1272   PROGRAM*       51/40     51/43     51/48 L
        MIB53        1274   PROGRAM*       41/01     51/51     51/56 L
        MIB55        1300   PROGRAM*       40/18     52/03     52/09 L
        MIB7         1175   PROGRAM*       40/09     48/52 L
        MIB70        1301   PROGRAM*       52/14 L
        MIB71        1310   PROGRAM*       52/27     52/32     52/35 L
        MIB72        1311   PROGRAM*       41/15     52/38 L
        MIB75        1314   PROGRAM*       41/32     52/45 L
        MIB80        1317   PROGRAM*       41/20     52/55 L
        MIB9         1203   PROGRAM*       49/01     49/04     49/09 L
        MIN.TABS     3000   FTX            72/51     72/55     72/57
        MSG=            0   EXTERNAL*       2/19 X   21/08     21/12     21/28     26/49     56/44     59/02
        MVE=            0   EXTERNAL*       2/47 X   46/19
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        M.BRAN          3                  76/12 D
        M.COND          0                  76/09 D
        M.ICALL         5                  76/14 D
        M.IEND         40                  76/19 D
        M.INCR          2                  76/11 D
        M.INOOP         6                  76/15 D
        M.ISBRN         7                  76/16 D
        M.LOAD         10                  76/17 D
        M.LOG           1   FTX            74/40
        M.NORM          1                  76/10 D
        M.RND          21                  76/18 D
        M.SHIF          4                  76/13 D
        NOM.FL          0   EXTERNAL*       2/20 X   72/52 S
        NOM.INC      3000   FTX            72/51
        NXA          1734   PROGRAM*        4/20 S    4/31     67/17     67/53 S   68/02 L   68/31     69/14 S   69/20 S
        N.TYPE          7   FTX            74/41
        ONSPY           0   EXTERNAL*       2/20 X
        OSTACK          0   EXTERNAL*       2/02 X   72/48
        O.C             0   EXTERNAL*       2/20 X   66/48 S
        O.CC            0   EXTERNAL*       2/20 X    4/04 S
        O.CPV           0   EXTERNAL*       2/20 X   64/30     64/39     64/46     64/54
        O.TA            0   EXTERNAL*       2/20 X   65/02     65/20     65/33     65/45     66/06     66/15 S   66/35 S
        O.TABS          0   EXTERNAL*       2/37 X   72/50 S
        O.TTLA          0   EXTERNAL*       2/20 X   60/29     60/38
        PAC            35   PROGRAM*        4/27     28/26 D
        PACG1         702   PROGRAM*       36/57 L   37/28
        PACG1A        704   PROGRAM*       36/54     36/56     37/04 L
        PACG2         710   PROGRAM*       37/12 L   37/26
        PACG3         711   PROGRAM*       36/50     37/10     37/14 L
        PACG4         715   PROGRAM*       37/14     37/25 L
        PACS1         725   PROGRAM*       38/21 L   38/53
        PACS1A        727   PROGRAM*       38/17     38/19     38/25 L
        PACS2         733   PROGRAM*       38/34 L   38/51
        PACS3         734   PROGRAM*       38/13     38/30     38/37 L
        PACS4         736   PROGRAM*       38/37     38/41 L
        PACS5         741   PROGRAM*       38/39     38/50 L
        PAC=G         675   PROGRAM*       33/29     36/46 L
        PAC=S         720   PROGRAM*       33/52     38/09 L
        PAC.RET        57   PROGRAM*       28/27 D   36/55     37/30     38/18     38/55     40/50     40/55     41/52
        PPW          1504   PROGRAM*       56/29     56/33     59/30 L
        PPWA         1547   PROGRAM*       59/31 S   59/38     60/15     60/23     60/56     61/03 L
        PPWB         1551   PROGRAM*       59/35     61/05 L
        PPW57        1512   PROGRAM*       59/40     59/43 L
        PPW58        1514   PROGRAM*       59/44     59/46 L
        PPW59        1516   PROGRAM*       59/49     59/51 L
        PPW60        1521   PROGRAM*       59/41     59/57     60/08 L
        PPW60.1      1524   PROGRAM*       41/45     41/47     60/14 L
        PPW60.2      1527   PROGRAM*       60/12     60/20 L
        PPW61        1530   PROGRAM*       60/23 L
        PPW62        1536   PROGRAM*       60/28     60/37 L
        PUC             0   EXTERNAL*       2/37 X    5/26
        P.IEND         73                  76/20 D
  U     QUAL$                               6/19 F   62/06 F   70/06 F   72/06 F   77/06 F
                                           28/24 F   63/02 F   71/21 F   73/42 F   78/45 F
        RAPFLAG         0   EXTERNAL*       2/20 X   58/57 S
        RA.ARG          2   CPUTEXT        46/19
        RA.CCD         70   CPUTEXT         4/02     26/35     26/49     27/09     27/41     68/25
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        RA.JOT         66   FTX            46/38
        RA.LWP         65   CPUTEXT        45/57
        RA.ORG        100   CPUTEXT         3/52 S   44/45
        RA.PGN         64   CPUTEXT        11/07     46/01
        RDC=            0   EXTERNAL*       2/47 X   58/55
        ROR          2120   PROGRAM*       73/35     78/47 D
        RPV=            0   EXTERNAL*       2/47 X   45/29     45/29
        RS.PD           0   EXTERNAL*       2/38 X   61/42 S
        SA0          1774   PROGRAM*       68/24 S   69/26     69/32 L
        SB5          1773   PROGRAM*       68/22 S   69/24     69/31 L
        SCR             0   EXTERNAL*       2/37 X
        SFN=            0   EXTERNAL*       2/47 X   21/17
        SK.ARGL        22                  76/39 D
        SK.ARGP        22                  76/39 D
        SK.ATTRL       22                  76/38 D
        SK.ATTRP       44                  76/38 D
        SK.ENDP        73                  76/29 D
        SK.GHL          6                  76/32 D   78/13
        SK.GHP         60                  76/32 D   78/15     78/23     78/38
        SK.IFL         13                  76/34 D
        SK.IFP         42                  76/34 D
        SK.JFL         13                  76/35 D
        SK.JFP         27                  76/35 D
        SK.JPADL       22                  76/40 D
        SK.JPADP        0                  76/40 D
        SK.KFL         13                  76/36 D
        SK.KFP         14                  76/36 D
        SK.OPCL        11                  76/33 D
        SK.OPCP        55                  76/33 D
        SK.QFL         14                  76/37 D
        SK.QFP          0                  76/37 D
        SK.RNDP        72                  76/30 D   78/18     78/23
        SK.TYPL         6                  76/31 D
        SK.TYPP        66                  76/31 D
        SPYW            0   EXTERNAL*       2/21 X
        SR.NUML         6                  76/53 D
        SR.NUMP         0                  76/53 D
        SR.OADL         5                  76/52 D
        SR.OADP         6                  76/52 D
        STF          1775   PROGRAM*       57/08     57/20     57/34     59/37     71/23 D
        STF=         1775   PROGRAM*       71/24 D
        SYS=            0   EXTERNAL*       2/21 X   42/25     43/13     45/35     46/25     73/10
                                           26/45     42/52     45/29     45/36     62/47
        TCC          1735   PROGRAM*       27/05     68/18 L
        TCC10        1767   PROGRAM*       69/17     69/24 L
        TCC2         1745   PROGRAM*       68/36 L   68/54     69/05
        TCC4         1747   PROGRAM*       68/38     68/42 L
        TCC5         1752   PROGRAM*       68/45     68/50 L
        TCC6         1760   PROGRAM*       68/48     68/50     69/07 L
        TCC7         1763   PROGRAM*       69/13 L
        TCC8         1765   PROGRAM*       68/57     69/09     69/19 L
        TEST            0   FTX             5/13 F   34/04 F   39/03 F   42/32 F   48/04 F
                                           33/33 F   37/38 F   40/28 F   45/16 F
        TFF          1772   PROGRAM*       68/19     69/22 S   69/30 L
        THRESH          0   EXTERNAL*       2/37 X   73/23 S
        TIMER           0   EXTERNAL*       2/21 X   45/50     74/14 X   74/33
        TIME0           0   EXTERNAL*       2/21 X   45/51 S
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        TIME1           0   EXTERNAL*       2/21 X   74/14 X   74/34 S
        TL.CPU          0   EXTERNAL*       2/21 X   53/57
        TL.CSOP         0   EXTERNAL*       2/21 X   53/23     53/36 S   63/57     64/15
        TL.DATE         0   EXTERNAL*       2/21 X   45/35     45/40
        TL.PAGE         0   EXTERNAL*       2/22 X   60/43
        TL.PNAM         0   EXTERNAL*       2/22 X   60/26
        TL.TIME         0   EXTERNAL*       2/22 X   45/36     45/41     54/14
        UKT=FE          0   EXTERNAL*       2/25 X
        UKT=LNK         0   EXTERNAL*       2/25 X
        WARN          671   PROGRAM*       36/26 L   41/22     41/36
        WA.SYMP        22   FTX            74/55
        WA.W            0   FTX            75/01     75/02
        WB.BASEP       41   FTX            74/42
        WC.FUNTP       71   FTX            74/57
        WC.W            2   FTX            75/02
        WIN             0   EXTERNAL*       2/41 X   73/30 S
        WNB=            0   EXTERNAL*       2/22 X   58/53     59/36
        WOF=ERR         0   EXTERNAL*      66/19
        WO.LCM          0   EXTERNAL*      74/14 X   75/45 S
        WTE             0   EXTERNAL*       2/41 X   73/31 S
        Z=SYM           3   FTX            74/35     74/43     75/05
        Z.INSB        401                  54/30     54/36
        Z.KEYS        154                   4/23     34/23 D
        Z.LGOQB       500                  55/47
        Z.OUTSB       401                  54/31
        Z.PBQB        701                  55/55
        Z.REFQB       401                  56/04
        Z.SYMDB         0   EXTERNAL*      74/05 X   74/51
        Z.SYMIL         0   EXTERNAL*      74/05 X   74/56
        Z.SYMVP         0   EXTERNAL*      74/05 X   74/36     74/39
        Z.TXTS          7                  36/33 D   37/18     38/42
        .FID            1   FTX            46/24 F
        .MI             0   FTX            33/55 F   35/14 F   47/15 F   59/20 F
        .OS             1   FTX            20/22 F   45/09 F   59/34 F   59/47 F   61/45 F
        .SPY            0   FTX             5/04 F   34/18 F   36/17 F   58/01 F
        '?RPV=A        37                  45/29 D   45/29
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCPAC 
  
  
        CAF           422   PROGRAM*       26/55     27/44 L
        CFV           237   PROGRAM*       15/55     20/15 L   28/28
        DEM           244   PROGRAM*       20/56 L   22/45     23/01     23/09     23/16     23/24     23/31     28/29
                                           22/42     22/53     23/05     23/13     23/21     23/28     23/35
        DEMA          266   PROGRAM*       10/23 S   20/57     22/04 L
        DEMB          267   PROGRAM*       21/08     22/05 L
        DEM1          252   PROGRAM*       21/07     21/09 L
        DEM2          256   PROGRAM*       21/10     21/15 L
        DEM.RET       246   PROGRAM*       21/03 L   28/30
        DEM.UEP       265   PROGRAM*       21/01     21/49 L
        ERR.CNT       300   PROGRAM*       21/04     22/08 L   28/31
        ERR.FLD       273   PROGRAM*       12/31 S   14/56 S   21/09     22/06 L   22/52 S   25/01
                                           14/19 S   18/27 S   21/28     22/41 S   23/20 S   28/32
        ERR.RET       244   PROGRAM*       20/54 L   28/33
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    90
        SYMBOLIC REFERENCE TABLE.                                     COMCPAC 
  
        E.GT10        301   PROGRAM*       22/41 L   24/52
        E.IBV         304   PROGRAM*       17/08     22/45 L
        E.IC          306   PROGRAM*       22/49 L   26/03
        E.IFN         312   PROGRAM*       15/57     23/01 L
        E.IN          314   PROGRAM*       16/39     23/05 L
        E.ME          316   PROGRAM*       13/53     16/56     17/28     23/09 L
        E.NE          320   PROGRAM*       13/20     23/13 L
        E.SKIP1       337   PROGRAM*       22/47     23/17     23/41 L   23/43     23/45
        E.SKIP2       340   PROGRAM*       23/11     23/26     23/29     23/33     23/43 L
        E.STL         322   PROGRAM*       14/20     23/16 L
        E.TM          324   PROGRAM*       23/19 L   26/48
        E.TMOC        327   PROGRAM*       13/15     23/24 L
        E.TMOP        331   PROGRAM*       14/57     23/28 L
        E.UA          333   PROGRAM*       12/42     23/31 L
        E.UOP         335   PROGRAM*       18/36     23/35 L
        GNA           342   PROGRAM*       11/13     14/09     17/03     23/42     28/34
                                           12/24     14/51     17/54     24/39 L
        GNA1          344   PROGRAM*       24/43 L   24/48
        GNA2          352   PROGRAM*       22/43     24/56 L   24/57
        GNC           356   PROGRAM*       10/36     10/46     24/43     24/49     24/56     25/39 L   28/35
        GNCA          424   PROGRAM*       26/09     28/16 L
        GNCB          425   PROGRAM*       26/31     26/45 S   26/45     27/39 S   28/17 L
        GNCC          426   PROGRAM*       10/24 S   26/42     28/18 L
        GNC1          357   PROGRAM*       22/56     25/43 L   26/16     26/21     26/37     26/38     27/42
        GNC2          363   PROGRAM*       25/53     26/01 L
        GNC3          371   PROGRAM*       25/49     26/20 L
        GNC4          372   PROGRAM*       25/50     26/26 L
        GNC5          373   PROGRAM*       25/43     26/31 L
        GNC6          377   PROGRAM*       26/36     26/42 L
        GNC6A         411   PROGRAM*       26/56     27/05 L
        GNC7          412   PROGRAM*       26/34     27/09 L
        GNC8          413   PROGRAM*       27/10 L   27/12
        GNC.RET       420   PROGRAM*       27/37 L   28/36
        GNC.UCP       423   PROGRAM*       26/44     28/08 L
        KA.KEYL        52                   8/49 D   12/27     12/36     14/16
        KA.KEYP        22                   8/49 D   12/36
        KA.POAL        22                   8/50 D   12/04     12/48
        KA.POAP         0                   8/50 D
        KA.W            0                   8/47 D   12/03     14/17
        KB.MBVL        24                   8/55 D    8/56
        KB.MBVP        50                   8/55 D    8/56     17/22
        KB.NOCL        24                   9/01 D   13/03
        KB.NOCP        24                   9/01 D   12/08     13/01
        KB.NOPL        24                   9/02 D   12/54
        KB.NOPP         0                   9/02 D   12/55
        KB.SDL         24                   8/57 D   12/57
        KB.SDP         50                   8/57 D   12/55     13/01     17/22
        KB.W            1                   8/53 D   12/03     12/49     13/50     14/17
        KC.ATL          3                   9/10 D   14/47     14/48     15/02     15/04
        KC.ATP         66                   9/10 D   14/48
        KC.STRL        74                   9/07 D    9/08
        KC.STRP         0                   9/07 D    9/08
        KC.W            2                   9/05 D   13/50
        KD.KOAL        22                   9/24 D
        KD.KOAP         0                   9/24 D   17/39     18/53
        KD.KOPL        52                   9/23 D   18/23     18/24
        KD.KOPP        22                   9/23 D   18/24
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    91
        SYMBOLIC REFERENCE TABLE.                                     COMCPAC 
  
        KD.W            0                   9/21 D   17/32     17/33     18/43
        KE.IVP         72                   9/30 D   17/27
        KE.OFFP        71                   9/31 D
        KE.SDP         73                   9/29 D   17/24
        KE.W            1                   9/27 D   17/33
        OFF             0                   9/41 D   16/50     17/37     18/06     18/42
        ON              1                   9/40 D   16/53     17/34     17/48     18/13     18/54
        O.EOS     7777776                   8/35 D
        O.EQUAL         3                   8/39 D   12/50
        O.MINUS         4                   8/40 D   12/20     18/02     37/08     37/25     38/29     38/50
        O.SEP           1                   8/37 D   23/44     26/06
        O.SLASH         2                   8/38 D   15/32     18/11     37/27     38/52
        O.VAL           0                   8/36 D   23/46     25/52     26/26
        PAC            35   PROGRAM*       10/22 L   28/26
        PACA          231   PROGRAM*       12/22 S   13/51     16/26     17/26     19/47 L
                                           13/31     16/10 S   16/49     18/04
        PACB          234   PROGRAM*       10/27 S   11/17     12/26     19/50 L
        PAC10          63   PROGRAM*       11/18     12/02     12/19 L   12/25     23/14
        PAC100        226   PROGRAM*       13/32     14/24     15/35     19/10 L   19/16
        PAC12          71   PROGRAM*       12/35 L   12/41
        PAC14          74   PROGRAM*       12/39     12/46 L
        PAC2           41   PROGRAM*       10/35 L   10/38
        PAC20         104   PROGRAM*       13/37 L   13/43
        PAC30         107   PROGRAM*       13/19     13/49 L
        PAC32         112   PROGRAM*       14/07 L   14/14
        PAC33         115   PROGRAM*       14/16 L   14/37
        PAC34         117   PROGRAM*       14/13     14/24 L
        PAC35         122   PROGRAM*       14/28     14/32 L
        PAC36         124   PROGRAM*       13/54     14/47 L
        PAC38         125   PROGRAM*       14/50 L   15/34
        PAC39         127   PROGRAM*       14/52     14/56 L
        PAC4           44   PROGRAM*       10/44 L   10/48
        PAC40         133   PROGRAM*       15/07     15/12 L
        PAC42         140   PROGRAM*       15/03     15/13     15/30 L   15/46     15/56     16/38     23/03     23/07
        PAC44         143   PROGRAM*       15/14     15/43 L
        PAC46         145   PROGRAM*       15/15     15/53 L
        PAC48         147   PROGRAM*       15/18     15/21     16/09 L
        PAC50         161   PROGRAM*       13/18     16/48 L
        PAC52         164   PROGRAM*       16/51     16/56 L
        PAC54         165   PROGRAM*       16/52     17/02 L
        PAC56         171   PROGRAM*       16/54     16/57     17/04     17/07     17/10 L
        PAC6           55   PROGRAM*       11/05     11/11     11/17 L
        PAC60         172   PROGRAM*       13/17     17/21 L
        PAC62         175   PROGRAM*       17/25     17/32 L
        PAC64         176   PROGRAM*       17/33 L   17/43
        PAC66         200   PROGRAM*       17/36     17/38 L
        PAC68         203   PROGRAM*       17/41     17/47 L
        PAC70         204   PROGRAM*       17/53 L   18/07     18/14
        PAC72         211   PROGRAM*       18/03     18/11 L   18/46     18/55     23/36
        PAC74         213   PROGRAM*       17/55     18/23 L
        PAC76         215   PROGRAM*       18/28 L   18/33
        PAC77         222   PROGRAM*       18/44 L   18/48
        PAC78         224   PROGRAM*       18/31     18/52 L
        PAC80         225   PROGRAM*       17/47     18/05     18/12     18/57 L
        PAC.RET        57   PROGRAM*       12/01 L   13/44     14/30     17/11     19/02     19/11     23/47     28/27
        PAC.UAP       230   PROGRAM*       13/16     19/40 L
        PAC.UFP        56   PROGRAM*       11/30 L
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    92
        SYMBOLIC REFERENCE TABLE.                                     COMCPAC 
  
        Z.KEY           3                   9/14 D   12/37     12/40
        Z.MBV           2                   9/35 D   17/42     18/32     18/47
  
  
  
  
                                                  SYMBOL QUALIFIER =  KEYS
  
  
        AL            427   PROGRAM*       33/16 L
        ANSI          432   PROGRAM*       33/17 L
        ARG           435   PROGRAM*       33/18 L
        B             440   PROGRAM*       33/19 L
        BL            443   PROGRAM*       33/20 L
        CPL           600   PROGRAM*       34/15 L
        CS            446   PROGRAM*       33/21 L
        DB            451   PROGRAM*       33/22 L
        DO            454   PROGRAM*       33/23 L
        DS            457   PROGRAM*       33/24 L
        E             465   PROGRAM*       33/26 L
        EC            462   PROGRAM*       33/25 L
        EL            470   PROGRAM*       33/27 L
        ET            473   PROGRAM*       33/28 L
        G             476   PROGRAM*       33/29 L
        GO            501   PROGRAM*       33/30 L
        I             504   PROGRAM*       33/31 L
        L             507   PROGRAM*       33/36 L
        LCM           512   PROGRAM*       33/38 L
        LO            520   PROGRAM*       33/40 L
        MD            523   PROGRAM*       33/41 L
        ML            526   PROGRAM*       33/42 L
        OPT           531   PROGRAM*       33/43 L
        PC            534   PROGRAM*       33/44 L
        PD            537   PROGRAM*       33/45 L
        PL            515   PROGRAM*       33/39 L
        PN            542   PROGRAM*       33/46 L
        PS            545   PROGRAM*       33/47 L
        PW            550   PROGRAM*       33/48 L
        QC            553   PROGRAM*       33/49 L
        REW           556   PROGRAM*       33/50 L
        ROUND         561   PROGRAM*       33/51 L
        S             564   PROGRAM*       33/52 L
        SEQ           567   PROGRAM*       33/53 L
        STATIC        572   PROGRAM*       33/54 L
        X             575   PROGRAM*       33/57 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  MBV 
  
  
        ARG           603   PROGRAM*       33/18     34/35 L
        DB            607   PROGRAM*       33/22     34/39 L
        DO            625   PROGRAM*       33/23     34/48 L
        LO            631   PROGRAM*       33/40     34/52 L
        REW           643   PROGRAM*       33/50     35/02 L
1       INIT00 - FIRST TIME ONLY INITIALIZATION.                      COMPASS 3.7-871.     24/05/02. 13.14.00.      PAGE    93
        SYMBOLIC REFERENCE TABLE.                                     MBV 
  
        ROUND         653   PROGRAM*       33/51     35/08 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  MACRO$
  
  
        GETPAGE      1553   PROGRAM*       61/21 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCCPM 
  
  
        CPM1         1570   PROGRAM*       62/47 L   62/57
        CPM=         1571   PROGRAM*       62/49 L   63/04
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCSTF 
  
  
        STF          1775   PROGRAM*       70/52 L   71/23     71/24
        STFA         2006   PROGRAM*       70/57 S   71/02     71/15 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFGOI 
  
  
        GOI          2007   PROGRAM*       72/20 L   73/44
        GOI1         2017   PROGRAM*       72/26     72/33     72/35 L
        GOI2         2022   PROGRAM*       72/36     72/38 L
        GOI3         2033   PROGRAM*       72/42     72/46     72/50 L
        GOI4         2051   PROGRAM*       72/56     73/20 L
        GOI5         2057   PROGRAM*       73/27     73/33 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFROR 
  
  
        ROR          2120   PROGRAM*       77/29 L   78/47
        ROR2         2126   PROGRAM*       78/12 L   78/21     78/22     78/40
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/02. 13.14.08.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      136              IDENT  INIT10 
                        136              B=LWA10  END                MARK END OF OVERLAY FOR RPV
  
  
                                        ENTRY POINTS. 
  
                                        B=INIT1          0+           FTN10            0+           B=LWA10        136+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        OSTACK    CO.RNDM   F.PB      CO.OPT    IDP=USY   ANSI.SW   RPV=      CO.LCM
                                        CO.ANSI   CO.RNDS   F.REF     CP.MXFL   UKT=FE    ERRTYP    F.SYMIL   MDER.SW 
                                        CO.LOA    CP.AFLS   IDPCHK    MAX.FL    UKT=LNK   L.TABS    Z.SYMDB   TIMER 
                                        CO.LOO    CP.IFMT   SYS=      MEMERR    WIN       O.TABS    Z.SYMIL   TIME1 
                                        CO.LOR    CP.NFLS   WNB=      NOM.FLS   FIN.OL    PUC       Z.SYMVP   WO.LCM
                                        CO.RNDA   FV.LGO    CO.LOM    INT.FL    FIN.MAP   THRESH    CO.MD     WTE 
                                        CO.RNDD   F.LGO     NOM.FL    IDP=      FIN       F.SKEL    CO.DBSL   FA=SET
  
  
  
  
                                                  IDENT  INIT10                                                  INIT10      2
                                         INIT10   SECT   (REINITIALIZATION / AFTER COMPASS ASSEMBLY.)            INIT10      3
  
  
  
  
  
                                        *         IN FEC                                                         INIT10      5
                                                  EXT    OSTACK                                                  FC50744    11
                                                                                                                 INIT10      7
                                        *         IN FTN                                                         INIT10      8
                                                  EXT    CO.ANSI,CO.LOA,CO.LOO,CO.LOR,CO.RNDA,CO.RNDD,CO.RNDM    INIT10      9
                                                  EXT    CO.RNDS,CP.AFLS,CP.IFMT,CP.NFLS,FV.LGO,F.LGO,F.PB,F.REF INIT10     10
                                                  EXT    IDPCHK,SYS=,WNB=,CO.LOM,NOM.FL                          FC5A119    29
                                                  EXT    CO.OPT,CP.MXFL,MAX.FL,MEMERR,NOM.FLS,INT.FL             INIT10     12
                                                                                                                 INIT10     13
                                        *         IN IDP                                                         INIT10     14
                                                  EXT    IDP=,IDP=USY,UKT=FE,UKT=LNK                             INIT10     15
                                                                                                                 INIT10     16
                                        *         IN LABEL                                                       INIT10     17
                                                  EXT    WIN                                                     INIT10     18
                                                                                                                 INIT10     19
                                        *         IN LIST                                                        INIT10     20
                                                  EXT    FIN.OL                                                  INIT10     21
                                                                                                                 INIT10     22
                                        *         IN MAP                                                         INIT10     23
                                                  EXT    FIN.MAP,FIN                                             INIT10     24
                                                                                                                 INIT10     25
                                        *         IN PEM                                                         INIT10     26
                                                  EXT    ANSI.SW                                                 INIT10     27
                                                                                                                 INIT10     28
                                        *         IN PUC                                                         INIT10     29
                                                  EXT    ERRTYP,L.TABS,O.TABS,PUC,THRESH                         INIT10     30
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/02. 13.14.08.      PAGE     2
                                                                      INIT10
  
                                                                                                                 INIT10     31
                                        *         IN QSKEL                                                       INIT10     32
                                                  EXT    F.SKEL                                                  INIT10     33
                                                                                                                 INIT10     34
                                        *         IN UTILITY                                                     INIT10     35
                                                  EXT    RPV=                                                    INIT10     36
  
  
  
  
                                        **        FCA -  FINISHED WITH COMPASS ASSEMBLY.                         INIT10     38
                                        *                                                                        INIT10     39
                                        *         ENTRY  THE (1,0) HAS JUST BEEN RELOADED AFTER RETURNING FROM   INIT10     40
                                        *                *COMPASS*, AND THE INPUT FILE IS NOT FINISHED.          INIT10     41
                                        *                                                                        INIT10     42
                                        *         EXIT   TO PROGRAM UNIT CONTROLLER *PUC*.                       INIT10     43
                                        *                                                                        INIT10     44
                                        *         CALLS  FNL, GOI                                                INIT10     45
                                                                                                                 INIT10     46
                                                                                                                 INIT10     47
             0                           FTN10    BSSENT 0                                                       INIT10     48
                                                                                                                 INIT10     49
                                        *         TURN ON REPRIEVE.                                              INIT10     50
                                                                                                                 INIT10     51
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT10     52
                                                  SA1    RA.SSW      SENSE SWITCH WORD                           INIT10     53
                                                  LX1    59-5-6      GET SWITCH 6                                INIT10     54
                                                  MI     X1,INI1     IF SWITCH 6 ON                              INIT10     55
                                         .TEST    ENDIF                                                          INIT10     56
                                                                                                                 INIT10     57
             0  43173                             RPVON              TURN ON REPRIEVE                            INIT10     58
                                                                                                                 INIT10     59
                                        *         CHECK FOR IDP BREAK REQUEST.                                   INIT10     60
                                        *                                                                        INIT10     61
                                        *         LINK *FRONT END* IDP USER KEYWORD TABLE.                       INIT10     62
                                                                                                                 INIT10     63
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT10     64
                                         INI1     BSS    0                                                       FC5A158A  403
                                         #OS      IFNE   .OS,2                                                   FC5A158A  404
                                                  SX6    =XUKT=FE    (X6) = FWA OF *FRONT END* IDP KEYWORD TBL   FC5A158A  405
                                                  SA6    =XUKT=LNK                                               INIT10     66
                                                  SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT10     67
                                                  SA6    =XIDP=USY                                               INIT10     68
                                                  CALL   IDPCHK      CHECK FOR IDP REQUEST                       INIT10     69
                                                  PL     B7,INI2     IF IDP NOT REQUESTED                        INIT10     70
                                         FTN10    BREAK                                                          INIT10     71
                                         #OS      ENDIF                                                          FC5A158A  406
                                         .TEST    ENDIF                                                          INIT10     72
                                                                                                                 INIT10     73
                                        *         INITIALIZE OVERLAY.                                            INIT10     74
                                                                                                                 INIT10     75
             5  5110000000 X             INI2     SA1    =XCP.IFMT                                               INIT10     76
                          0331000000 X            MI     X1,=XPUC    IF EOR, LET PUC CLEAN UP...                 INIT10     77
                                                                                                                 INIT10     78
             6  0100000010 +                      RJ     GOI         GLOBAL OVERLAY INITIALIZATION               INIT10     79
             7  0400000000 X                      EQ     =XPUC       EXIT TO PROGRAM UNIT CONTROLLER...          INIT10     80
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/02. 13.14.08.      PAGE     3
  
  
                                                  LIST   -X          COMFGOI, COMFFEI, COMSEIS, COMFROR AND      INIT10     82
                                                                     FA=SET ARE LISTED IN DECK INIT00.           INIT10     83
                                                                                                                 INIT10     84
             7                                    CTEXT  COMFGOI - GLOBAL OVERLAY INITIALIZATION                 COMFGOI     2
                                                                                                                 INIT10     86
            62                           FEI      CTEXT  COMFFEI - FRONT END INITIALIZATION.                     COMFFEI     2
                                                                                                                 INIT10     88
           121                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
                                                                                                                 INIT10     90
           121                           ROR      CTEXT  COMFROR - ROUNDABLE OPCODE RESET.                       COMFROR     2
                                                                                                                 INIT10     92
  
  
  
  
                                                  LIST   D                                                       INIT10     94
                                                  ENTRY  B=LWA10                                                 INIT10     95
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        FA=SET
             0 X                        WTE 
  
           136                           B=LWA10  END                MARK END OF OVERLAY FOR RPV                 INIT10     96
  
                             74000B CM  STORAGE USED              882 STATEMENTS     1471 SYMBOLS      000003 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            1.030 SECONDS          59 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI.SW         0   EXTERNAL*       1/54 X
        B1=1            0 
        B=LWA10       136   PROGRAM*        3/17 E    3/18 L
        CO.ANSI         0   EXTERNAL*       1/36 X
        CO.DBSL         0   EXTERNAL* 
        CO.LCM          0   EXTERNAL* 
        CO.LOA          0   EXTERNAL*       1/36 X
        CO.LOM          0   EXTERNAL*       1/38 X
        CO.LOO          0   EXTERNAL*       1/36 X
        CO.LOR          0   EXTERNAL*       1/36 X
        CO.MD           0   EXTERNAL* 
        CO.OPT          0   EXTERNAL*       1/39 X
        CO.RNDA         0   EXTERNAL*       1/36 X
        CO.RNDD         0   EXTERNAL*       1/36 X
        CO.RNDM         0   EXTERNAL*       1/36 X
        CO.RNDS         0   EXTERNAL*       1/37 X
        CP.AFLS         0   EXTERNAL*       1/37 X
        CP.IFMT         0   EXTERNAL*       1/37 X    2/52
        CP.MXFL         0   EXTERNAL*       1/39 X
        CP.NFLS         0   EXTERNAL*       1/37 X
        ERRTYP          0   EXTERNAL*       1/57 X
        FA=SET          0   EXTERNAL* 
        FIN             0   EXTERNAL*       1/51 X
        FIN.MAP         0   EXTERNAL*       1/51 X
        FIN.OL          0   EXTERNAL*       1/48 X
1       INIT10 - REINITIALIZATION / AFTER COMPASS ASSEMBLY.           COMPASS 3.7-871.     24/05/02. 13.14.08.      PAGE     4
        SYMBOLIC REFERENCE TABLE. 
  
        FTN10           0   PROGRAM*        2/21 L    2/21 E
        FV.LGO          0   EXTERNAL*       1/37 X
        F.LGO           0   EXTERNAL*       1/37 X
        F.PB            0   EXTERNAL*       1/37 X
        F.REF           0   EXTERNAL*       1/37 X
        F.SKEL          0   EXTERNAL*       2/03 X
        F.SYMIL         0   EXTERNAL* 
        GOI            10   PROGRAM*        2/55
        IDPCHK          0   EXTERNAL*       1/38 X
        IDP=            0   EXTERNAL*       1/42 X
        IDP=USY         0   EXTERNAL*       1/42 X
        INI2            5   PROGRAM*        2/52 L
        INT.FL          0   EXTERNAL*       1/39 X
        L.TABS          0   EXTERNAL*       1/57 X
        MAX.FL          0   EXTERNAL*       1/39 X
        MDER.SW         0   EXTERNAL* 
        MEMERR          0   EXTERNAL*       1/39 X
        NOM.FL          0   EXTERNAL*       1/38 X
        NOM.FLS         0   EXTERNAL*       1/39 X
        OSTACK          0   EXTERNAL*       1/33 X
        O.TABS          0   EXTERNAL*       1/57 X
        PUC             0   EXTERNAL*       1/57 X    2/53      2/56
        RPV=            0   EXTERNAL*       2/06 X    2/31      2/31
        SYS=            0   EXTERNAL*       1/38 X    2/31
        TEST            0   FTX             2/25 F    2/37 F
        THRESH          0   EXTERNAL*       1/57 X
        TIMER           0   EXTERNAL* 
        TIME1           0   EXTERNAL* 
        UKT=FE          0   EXTERNAL*       1/42 X
        UKT=LNK         0   EXTERNAL*       1/42 X
        WIN             0   EXTERNAL*       1/45 X
        WNB=            0   EXTERNAL*       1/38 X
        WO.LCM          0   EXTERNAL* 
        WTE             0   EXTERNAL* 
        Z.SYMDB         0   EXTERNAL* 
        Z.SYMIL         0   EXTERNAL* 
        Z.SYMVP         0   EXTERNAL* 
        '?RPV=A        37                   2/31 D    2/31
1       INIT20 - INITIALIZE CONTROLLER OVERLAY.                       COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       14              IDENT  INIT20 
                         14              B=LWA20  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        ENTRY POINTS. 
  
                                        B=INI20          0+           FWA22         4010+           FWA23            0+ 
                                        FTN20            0+           FW.ILB           0+           B=LWA20         14+ 
                                        FWA21            0+           FW.PBB        2004+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CP.AFLS   FV.LGO    IDPCHK    INT.FL    PUC       FA=SET
                                        CP.IFMT   F.LGO     SYS=      IDP=      RPV=
  
  
  
  
                                                  IDENT  INIT20                                                  INIT20      2
                                         INIT20   SECT   (INITIALIZE CONTROLLER OVERLAY.),INI20                  INIT20      3
  
  
  
  
  
                                        *         IN FTN                                                         INIT20      5
                                                  EXT    CP.AFLS,CP.IFMT,FV.LGO,F.LGO,IDPCHK,SYS=,INT.FL         FC50518     7
                                                                                                                 INIT20      7
                                        *         IN IDP                                                         INIT20      8
                                                  EXT    IDP=                                                    INIT20      9
                                                                                                                 INIT20     10
                                        *         IN PUC                                                         INIT20     11
                                                  EXT    PUC                                                     INIT20     12
                                                                                                                 INIT20     13
                                        *         IN UTILITY                                                     INIT20     14
                                                  EXT    RPV=                                                    INIT20     15
  
  
  
  
             0                           END20    BSS    0           ALL CODE PAST HERE IS OVERLAYED             INIT20     17
1       INIT20 - INITIALIZE CONTROLLER OVERLAY.                       COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     2
                                                                      INIT20
  
                                        **        INIT20 - INITIALIZE CONTROLLER OVERLAY.                        INIT20     19
                                        *                                                                        INIT20     20
                                        *         ENTRY  THE (2,0) HAS JUST BEEN LOADED.                         INIT20     21
                                        *                                                                        INIT20     22
                                        *         EXIT   TO *PUC* TO BEGIN NEXT PROGRAM UNIT.                    INIT20     23
                                                                                                                 INIT20     24
             0                           FTN20    BSSENT                                                         INIT20     25
                                                                                                                 INIT20     26
                                        *         TURN ON REPRIEVE.                                              INIT20     27
                                                                                                                 INIT20     28
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT20     29
                                                  SA1    RA.SSW      SENSE SWITCH WORD                           INIT20     30
                                                  LX1    59-5-6      GET SWITCH 6                                INIT20     31
                                                  MI     X1,INI1     IF SWITCH 6 ON                              INIT20     32
                                         .TEST    ENDIF                                                          INIT20     33
                                                                                                                 INIT20     34
             0  43173                             RPVON              TURN ON REPRIEVE                            INIT20     35
                                                                                                                 INIT20     36
                                        *         CHECK FOR IDP BREAK REQUEST.                                   INIT20     37
                                                                                                                 INIT20     38
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT20     39
                                         INI1     BSS    0                                                       FC5A158A  407
                                         #OS      IFNE   .OS,2                                                   FC5A158A  408
                                                  CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  409
                                                  PL     B7,INI2     IF IDP NOT REQUESTED                        INIT20     41
                                         FTN20    BREAK                                                          INIT20     42
                                         #OS      ENDIF                                                          FC5A158A  410
                                         .TEST    ENDIF                                                          INIT20     43
                                                                                                                 INIT20     44
                                        *         INITIALIZE OVERLAY.                                            INIT20     45
                                                                                                                 INIT20     46
             5  5110000000 X             INI2     SA1    CP.AFLS     CURRENT FL                                  INIT20     47
                          10611                   BX6    X1                                                      INIT20     48
             6  5160000000 X                      SA6    INT.FL      SAVE INITIAL FL                             INIT20     49
                          5110000000 X            SA1    CP.IFMT                                                 FC50518     8
             7  0321000000 X                      PL     X1,PUC      IF NOT EOR, LAST READ                       FC50518     9
                          5110000000 X            SA1    FV.LGO                                                  FC50518    10
            10  0301000000 X                      ZR     X1,PUC      IF NO BINARY FILE                           FC50518    11
                          7120000000 X            SETFIL FILE=F.LGO,MODE=INIT,FWA=END20                          FC50518    12
            13  0400000000 X                      EQ     PUC         EXIT TO PROGRAM UNIT CONTROLLER...          INIT20     50
  
  
  
  
                                                  LIST   -X          COMFCIP IS LISTED IN *FTN*                  INIT20     52
            13                           CIP      CTEXT  COMFCIP - COMPILE INSTALLATION PARAMETERS               COMFCIP     2
                                                  LIST   *                                                       INIT20     54
1       INIT20 - INITIALIZE CONTROLLER OVERLAY.                       COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     3
                                                                      OVERLAY 
  
                                        **        SET UP FWA OF SECONDARY OVERLAYS.                              INIT20     56
                                                                                                                 INIT20     57
                                                                                                                 INIT20     58
                                         FWA21    EQUENT END20       SET START OF (2,1) TO END OF (2,0)          INIT20     59
                                         FWA22    EQUENT END20+Z.ILB+Z.PBB SET START OF (2,2) AFTER BUFFERS      INIT20     60
                                         FW.ILB   EQUENT END20       SET IL BUFFER TO END OF (2,0)               INIT20     61
                                         FW.PBB   EQUENT FW.ILB+Z.ILB      PUT PB BUFFER AFTER IL BUFFER         INIT20     62
                                         FWA23    EQUENT END20       SET START OF (2,3) TO END OF (2,0)          INIT20     63
                                                                                                                 INIT20     64
                                                                                                                 INIT20     65
                                                  LIST   D                                                       INIT20     66
                                                  ENTRY  B=LWA20                                                 INIT20     67
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        FA=SET
  
            14                           B=LWA20  END                MARK LWA OF OVERLAY FOR RPV                 INIT20     68
  
                             73600B CM  STORAGE USED              274 STATEMENTS     1369 SYMBOLS      000001 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.647 SECONDS          51 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=LWA20        14   PROGRAM*        3/12 E    3/13 L
        CP.AFLS         0   EXTERNAL*       1/30 X    2/32
        CP.IFMT         0   EXTERNAL*       1/30 X    2/35
        END20           0   PROGRAM*        1/44 L    2/39      3/04      3/05      3/06      3/08
        FA=SET          0   EXTERNAL*       2/39
        FTN20           0   PROGRAM*        2/07 L    2/07 E
        FV.LGO          0   EXTERNAL*       1/30 X    2/37
        FWA21           0   PROGRAM*        3/04 D    3/04 E
        FWA22        4010   PROGRAM*        3/05 D    3/05 E
        FWA23           0   PROGRAM*        3/08 D    3/08 E
        FW.ILB          0   PROGRAM*        3/06 D    3/06 E    3/07
        FW.PBB       2004   PROGRAM*        3/07 D    3/07 E
        F.LGO           0   EXTERNAL*       1/30 X    2/39
        IDPCHK          0   EXTERNAL*       1/30 X
        IDP=            0   EXTERNAL*       1/33 X
        INI2            5   PROGRAM*        2/32 L
        INT.FL          0   EXTERNAL*       1/30 X    2/34 S
        PUC             0   EXTERNAL*       1/36 X    2/36      2/38      2/40
        RPV=            0   EXTERNAL*       1/39 X    2/17      2/17
        SYS=            0   EXTERNAL*       1/30 X    2/17
        TEST            0   FTX             2/11 F    2/21 F
        Z.ILB        2004                   3/05      3/07
        Z.PBB        2004                   3/05
        '?RPV=A        37                   2/17 D    2/17
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       76              IDENT  INIT21 
                         76              B=LWA21  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        ENTRY POINTS. 
  
                                        B=INI21          0+           DLF             23+ 
                                        FTN21            0+           B=LWA21         76+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        FEC       CO.RNDS   IDPCHK    SQZ       THRESH    Z.SYMIL   MDER.SW 
                                        UKT=FE    CO.RNDM   SYS=      ANSI.SW   RPV2N     Z.SYMVP   TIMER 
                                        F.SKEL    CO.RNDD   WNB=      ERRTYP    RPV21     CO.MD     TIME1 
                                        CO.ANSI   CP.NFLS   IDP=      L.TABS    RPV=      CO.DBSL   WO.LCM
                                        CO.LOR    F.IL      IDP=USY   N.MAXIL   F.SYMIL   CO.OPT    FA=SET
                                        CO.RNDA   F.REF     UKT=LNK   O.TABS    Z.SYMDB   CO.LCM
  
  
  
  
                                                  IDENT  INIT21                                                  INIT21      2
                                         INIT21   SECT   (INITIALIZE FRONT END OVERLAY.),INI21                   INIT21      3
  
  
  
  
  
                                        *         IN FEC                                                         FC50744    12
                                                  EXT    FEC                                                     FC50744    13
                                                                                                                 FC50744    14
                                        *         IN FSNAP                                                       INIT21      5
                                                  EXT    UKT=FE                                                  FC50744    15
                                                                                                                 INIT21      7
                                        *         IN FSKEL                                                       INIT21      8
                                                  EXT    F.SKEL                                                  INIT21      9
                                                                                                                 INIT21     10
                                        *         IN FTN                                                         INIT21     11
                                                  EXT    CO.ANSI,CO.LOR,CO.RNDA,CO.RNDS,CO.RNDM,CO.RNDD,CP.NFLS  INIT21     12
                                                  EXT    F.IL,F.REF,IDPCHK,SYS=,WNB=                             INIT21     13
                                                                                                                 INIT21     14
                                        *         IN IDP                                                         INIT21     15
                                                  EXT    IDP=,IDP=USY,UKT=LNK                                    INIT21     16
                                                                                                                 INIT21     17
                                        *         IN PAR                                                         INIT21     18
                                                  EXT    SQZ                                                     INIT21     19
                                                                                                                 INIT21     20
                                        *         IN PEM                                                         INIT21     21
                                                  EXT    ANSI.SW,ERRTYP                                          INIT21     22
                                                                                                                 INIT21     23
                                        *         IN PUC                                                         INIT21     24
                                                  EXT    L.TABS,N.MAXIL,O.TABS,THRESH                            INIT21     25
                                                                                                                 INIT21     26
                                        *         IN RPV20                                                       INIT21     27
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     2
                                                                      INIT21
  
                                                  EXT    RPV2N                                                   INIT21     28
                                                                                                                 INIT21     29
                                        *         IN RPV21                                                       INIT21     30
                                                  EXT    RPV21                                                   INIT21     31
                                                                                                                 INIT21     32
                                        *         IN UTILITY                                                     INIT21     33
                                                  EXT    RPV=                                                    INIT21     34
  
  
  
  
                                        **        INIT21 - INITIALIZE FRONT END OVERLAY.                         INIT21     36
                                        *                                                                        INIT21     37
                                        *         ENTRY  THE (2,1) HAS JUST BEEN LOADED.                         INIT21     38
                                        *                                                                        INIT21     39
                                        *         EXIT   TO FRONT END CONTROLLER *FEC* TO BEGIN                  INIT21     40
                                        *                NEXT PROGRAM UNIT.                                      INIT21     41
                                                                                                                 INIT21     42
             0                           FTN21    BSSENT                                                         INIT21     43
                                                                                                                 INIT21     44
                                        *         LINK RPV TABLES.                                               INIT21     45
                                                                                                                 INIT21     46
             0  13666                             BX6    X6-X6                                                   INIT21     47
                     7170000000 X                 SX7    RPV21       (X7) = FWA OF (2,1) RNA TABLE               INIT21     48
             1  5160000000 X                      SA6    RPV2N       MARK END-OF-(2,0) RNA TABLE                 INIT21     49
                          5076000001              SA7    A6+1        STORE LINK TO (2,1) RNA TABLE               INIT21     50
                                                                                                                 INIT21     51
                                        *         TURN ON REPRIEVE.                                              INIT21     52
                                                                                                                 INIT21     53
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT21     54
                                                  SA1    RA.SSW      SENSE SWITCH WORD                           INIT21     55
                                                  LX1    59-5-6      GET SWITCH 6                                INIT21     56
                                                  MI     X1,INI1     IF SWITCH 6 ON                              INIT21     57
                                         .TEST    ENDIF                                                          INIT21     58
                                                                                                                 INIT21     59
             2  43173                             RPVON              TURN ON REPRIEVE                            INIT21     60
                                                                                                                 INIT21     61
                                        *         CHECK FOR IDP BREAK REQUEST.                                   INIT21     62
                                        *                                                                        INIT21     63
                                        *         IF THERE ARE ANY IDP KEYWORDS THAT ARE (2,1) SPECIFIC,         INIT21     64
                                        *         THEN THIS IS THE PLACE TO LINK IDP TO THEM BY STORING          INIT21     65
                                        *         THE FWA OF THE (2,1) IDP KEYWORD TABLE AT (UKT=LNK).           INIT21     66
                                        *         SEE *UKT=LNK* IN DECK *IDP*.                                   INIT21     67
                                                                                                                 INIT21     68
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT21     69
                                         INI1     BSS    0                                                       FC5A158A  411
                                         #OS      IFNE   .OS,2                                                   FC5A158A  412
                                                  SX6    UKT=FE                                                  INIT21     70
                                                  SA6    UKT=LNK                                                 INIT21     71
                                                  SX6    =YUSY=FE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT21     72
                                                  SA6    =XIDP=USY                                               INIT21     73
                                                  CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  413
                                                  PL     B7,INI2     IF IDP NOT REQUESTED                        INIT21     75
                                         FTN21    BREAK                                                          INIT21     76
                                         #OS      ENDIF                                                          FC5A158A  414
                                         .TEST    ENDIF                                                          INIT21     77
                                                                                                                 INIT21     78
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     3
                                                                      INIT21
  
                                        *         INITIALIZE OVERLAY.                                            INIT21     79
                                                                                                                 INIT21     80
             7  6130000000 +             INI2     SB3    FTN21       END OF CODE IN OVERLAY                      INIT21     81
                          5120000000 X            SA2    CO.LOR      MASTER REFERENCE MAP FLAG                   INIT21     82
            10  0322000012 +                      PL     X2,INI3     IF NO MAP                                   INIT21     83
                          7120000000 X            SETFIL FILE=F.REF,MODE=INIT,FWA=B3  SET MAP BUFFER             INIT21     84
            12  7120000000 X             INI3     SETFIL FILE=F.IL,MODE=INIT,FWA=B3   SET IL BUFFER              INIT21     85
            14  76630                             SX6    B3          LWA+1 OF IL BUFFER                          INIT21     86
                     5160000000 X                 SA6    O.TABS      SET ORIGIN OF MANAGED TABLES                INIT21     87
            15  5120000000 X                      SA2    CP.NFLS                                                 INIT21     88
                          37626                   IX6    X2-X6                                                   INIT21     89
            16  5160000000 X                      SA6    L.TABS      SET SIZE OF TABLE AREA                      INIT21     90
                          21604                   AX6    FLSLOP                                                  INIT21     91
            17  5160000000 X                      SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                  INIT21     92
                          0100000023 +            RJ     FEI         FRONT END INITIALIZATION                    INIT21     93
            20  6120000000 X                      SB2    F.SKEL                                                  INIT21     94
                          0100000061 +            RJ     ROR         RESET OPCODE OF ROUNDABLES                  INIT21     95
                                                                                                                 INIT21     96
                                        **        SET (N.MAXIL) = ZERO IN CCG MODE.  THIS CAUSES AN IL           INIT21     97
                                        *         SEGMENT FLUSH AS OFTEN AS POSSIBLE.  CCG DIES IF SQUEEZE       INIT21     98
                                        *         CROSSES STATEMENT BOUNDARIES.                                  INIT21     99
                                                                                                                 INIT21    100
            21  43700                    INI5     MX7    0                                                       INIT21    101
                     5170000000 X                 SA7    N.MAXIL     FORCE MINIMAL IL SEGMENTS                   INIT21    102
            22  0400000000 X                      EQ     FEC         TRANSFER TO FRONT END CONTROLLER            INIT21    103
  
  
  
  
                                        **        DLF - DUMP LINK AND FILL TABLES.                               INIT21    105
                                        *                                                                        INIT21    106
                                        *         THIS IS A DUMMY ENTRY POINT FOR ALLOC.                         INIT21    107
                                                                                                                 INIT21    108
            23                           DLF      BSSENT 0           SATISFY EXTERNAL FOR ALLOC                  INIT21    109
                                                  IFEQ   TEST,ON,1   IF TEST MODE                                INIT21    110
                                                  EQ     "BLOWUP"    CAN'T CALL DLF IN PASS 1.                   INIT21    111
                                                                                                                 INIT21    112
                                                                                                                 INIT21    113
                                                  LIST   -X          FA=SET, COMFFEI, COMSEIS AND COMFROR ARE    INIT21    114
                                                                     LISTED IN DECK INIT00.                      INIT21    115
                                                                                                                 INIT21    116
                                                                                                                 INIT21    117
            23                           FEI      CTEXT  COMFFEI - FRONT END INITIALIZATION.                     COMFFEI     2
                                                                                                                 INIT21    119
            61                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
                                                                                                                 INIT21    121
            61                           ROR      CTEXT  COMFROR - ROUNDABLE OPCODE RESET.                       COMFROR     2
                                                                                                                 INIT21    123
                                                                                                                 INIT21    124
                                                  LIST   D                                                       INIT21    125
                                                  ENTRY  B=LWA21                                                 INIT21    126
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        FA=SET
  
            76                           B=LWA21  END                MARK LWA OF OVERLAY FOR RPV                 INIT21    127
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     4
  
  
                             73700B CM  STORAGE USED              785 STATEMENTS     1449 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.909 SECONDS          64 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI.SW         0   EXTERNAL*       1/52 X
        B1=1            0 
        B=LWA21        76   PROGRAM*        3/51 E    3/52 L
        CO.ANSI         0   EXTERNAL*       1/42 X
        CO.DBSL         0   EXTERNAL* 
        CO.LCM          0   EXTERNAL* 
        CO.LOR          0   EXTERNAL*       1/42 X    3/04
        CO.MD           0   EXTERNAL* 
        CO.OPT          0   EXTERNAL* 
        CO.RNDA         0   EXTERNAL*       1/42 X
        CO.RNDD         0   EXTERNAL*       1/42 X
        CO.RNDM         0   EXTERNAL*       1/42 X
        CO.RNDS         0   EXTERNAL*       1/42 X
        CP.NFLS         0   EXTERNAL*       1/42 X    3/10
        DLF            23   PROGRAM*        3/34 L    3/34 E
        ERRTYP          0   EXTERNAL*       1/52 X
        FA=SET          0   EXTERNAL*       3/06      3/07
        FEC             0   EXTERNAL*       1/33 X    3/25
        FEI            23   PROGRAM*        3/15
        FLSLOP          4   FTX             3/13
        FTN21           0   PROGRAM*        2/19 L    2/19 E    3/03
        F.IL            0   EXTERNAL*       1/43 X    3/07
        F.REF           0   EXTERNAL*       1/43 X    3/06
        F.SKEL          0   EXTERNAL*       1/39 X    3/16
        F.SYMIL         0   EXTERNAL* 
        IDPCHK          0   EXTERNAL*       1/43 X
        IDP=            0   EXTERNAL*       1/46 X
        IDP=USY         0   EXTERNAL*       1/46 X
        INI2            7   PROGRAM*        3/03 L
        INI3           12   PROGRAM*        3/05      3/07 L
        INI5           21   PROGRAM*        3/23 L
        L.TABS          0   EXTERNAL*       1/55 X    3/12 S
        MDER.SW         0   EXTERNAL* 
        N.MAXIL         0   EXTERNAL*       1/55 X    3/24 S
        O.TABS          0   EXTERNAL*       1/55 X    3/09 S
        ROR            61   PROGRAM*        3/17
        RPV2N           0   EXTERNAL*       2/01 X    2/25 S
        RPV21           0   EXTERNAL*       2/04 X    2/24
        RPV=            0   EXTERNAL*       2/07 X    2/36      2/36
        SQZ             0   EXTERNAL*       1/49 X
        SYS=            0   EXTERNAL*       1/43 X    2/36
        TEST            0   FTX             2/30 F    2/45 F    3/35 F
        THRESH          0   EXTERNAL*       1/55 X    3/14 S
        TIMER           0   EXTERNAL* 
        TIME1           0   EXTERNAL* 
        UKT=FE          0   EXTERNAL*       1/36 X
        UKT=LNK         0   EXTERNAL*       1/46 X
        WNB=            0   EXTERNAL*       1/43 X
        WO.LCM          0   EXTERNAL* 
        Z.SYMDB         0   EXTERNAL* 
1       INIT21 - INITIALIZE FRONT END OVERLAY.                        COMPASS 3.7-871.     24/05/02. 13.14.09.      PAGE     5
        SYMBOLIC REFERENCE TABLE. 
  
        Z.SYMIL         0   EXTERNAL* 
        Z.SYMVP         0   EXTERNAL* 
        '?RPV=A        37                   2/36 D    2/36
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/02. 13.14.10.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       24              IDENT  INIT23 
                         24              B=LWA23  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        ENTRY POINTS. 
  
                                        B=INI23          0+           FTN23            0+           B=LWA23         24+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CO.LOR    F.LGO     SYS=      PTO       O.TABS    WOF       UKT=RE
                                        CO.SNAP   F.PB      WNB=      UKT=LNK   RPV=URP   REC       RPV=
                                        CP.NFLS   F.REF     IDP=      BASES     SIZES     RPV2N     FA=SET
                                        FV.LGO    IDPCHK    IDP=USY   L.TABS    THRESH    RPV23 
  
  
  
  
                                                  IDENT  INIT23                                                  INIT23      2
                                         INIT23   SECT   (INITIALIZE REAR END OVERLAY.),INI23                    INIT23      3
  
  
  
  
  
                                        *         IN FTN                                                         INIT23      5
                                                  EXT    CO.LOR,CO.SNAP,CP.NFLS,FV.LGO,F.LGO,F.PB,F.REF,IDPCHK   INIT23      6
                                                  EXT    SYS=,WNB=                                               INIT23      7
                                                                                                                 INIT23      8
                                        *         IN IDP                                                         INIT23      9
                                                  EXT    IDP=,IDP=USY,PTO,UKT=LNK                                INIT23     10
                                                                                                                 INIT23     11
                                        *         IN PUC                                                         INIT23     12
                                                  EXT    BASES,L.TABS,O.TABS,RPV=URP,SIZES,THRESH,WOF            INIT23     13
                                                                                                                 INIT23     14
                                        *         IN REC                                                         INIT23     15
                                                  EXT    REC                                                     INIT23     16
                                                                                                                 INIT23     17
                                        *         IN RPV20                                                       INIT23     18
                                                  EXT    RPV2N                                                   INIT23     19
                                                                                                                 INIT23     20
                                        *         IN RPV23                                                       INIT23     21
                                                  EXT    RPV23                                                   INIT23     22
                                                                                                                 INIT23     23
                                        *         IN RSNAP                                                       INIT23     24
                                                  EXT    UKT=RE                                                  INIT23     25
                                                                                                                 INIT23     26
                                        *         IN UTILITY                                                     INIT23     27
                                                  EXT    RPV=                                                    INIT23     28
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/02. 13.14.10.      PAGE     2
                                                                      INIT23
  
                                        **        INIT23 - INITIALIZE REAR END OVERLAY.                          INIT23     30
                                        *                                                                        INIT23     31
                                        *         ENTRY  THE (2,3) HAS JUST BEEN LOADED.                         INIT23     32
                                        *                                                                        INIT23     33
                                        *         EXIT   TO *REC* TO BEGIN ASSEMBLY AND MAP PROCESSING.          INIT23     34
                                                                                                                 INIT23     35
             0                           FTN23    BSSENT                                                         INIT23     36
                                                                                                                 INIT23     37
                                        *         LINK RPV TABLES.                                               INIT23     38
                                                                                                                 INIT23     39
             0  7160000000                        SX6    0                                                       INIT23     40
                          7170000000 X            SX7    RPV23       (X7) = FWA OF (2,3) RNA TABLE               INIT23     41
             1  5160000000 X                      SA6    RPV2N       MARK END-OF-(2,0) RNA TABLE                 INIT23     42
                          5076000001              SA7    A6+1        STORE LINK TO (2,3) RNA TABLE               INIT23     43
                                                                                                                 INIT23     44
                                        *         TURN ON REPRIEVE.                                              INIT23     45
                                                                                                                 INIT23     46
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT23     47
                                                  =X6    0                                                       INIT23     48
                                                  SA6    RPV=URP     CLEAR USER REPRIEVE PROCESSING              INIT23     49
                                                  SA1    RA.SSW      SENSE SWITCH WORD                           INIT23     50
                                                  LX1    59-5-6      GET SWITCH 6                                INIT23     51
                                                  MI     X1,INI1     IF SWITCH 6 ON                              INIT23     52
                                         .TEST    ENDIF                                                          INIT23     53
                                                                                                                 INIT23     54
             2  43173                             RPVON              TURN ON REPRIEVE                            INIT23     55
                                                                                                                 INIT23     56
                                        *         CHECK FOR IDP BREAK REQUEST.                                   INIT23     57
                                        *         LINK (2,3) SPECIFIC IDP KEYWORDS TO ROOT LIST.                 INIT23     58
                                        *         SEE *UKT=LNK* IN (2,0) DECK *IDP*.                             INIT23     59
                                                                                                                 INIT23     60
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT23     61
                                         INI1     BSS    0                                                       FC5A158A  415
                                         #OS      IFNE   .OS,2                                                   FC5A158A  416
                                                  SX6    UKT=RE                                                  INIT23     62
                                                  SA6    UKT=LNK                                                 INIT23     63
                                                                                                                 INIT23     64
                                                  SX6    =YUSY=RE    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT23     65
                                                  SA6    IDP=USY                                                 INIT23     66
                                                                                                                 INIT23     67
                                                  CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  417
                                                  PL     B7,INI2     IF IDP NOT REQUESTED                        INIT23     69
                                         FTN23    BREAK                                                          INIT23     70
                                         #OS      ENDIF                                                          FC5A158A  418
                                         .TEST    ENDIF                                                          INIT23     71
                                                                                                                 INIT23     72
                                        *         INITIALIZE OVERLAY.                                            INIT23     73
                                                                                                                 INIT23     74
             7  6130000000 +             INI2     SB3    FTN23       END OF CODE IN OVERLAY                      INIT23     75
                          5120000000 X            SA2    CO.LOR      MASTER REFERENCE MAP FLAG                   INIT23     76
            10  0322000012 +                      PL     X2,INI3     IF NO MAP                                   INIT23     77
                          7120000000 X            SETFIL FILE=F.REF,MODE=INIT,FWA=B3  SET MAP BUFFER             INIT23     78
            12  7120000000 X             INI3     SETFIL FILE=F.PB,MODE=INIT,FWA=B3   SET PB BUFFER              INIT23     79
            14  5110000000 X                      SA1    FV.LGO                                                  INIT23     80
                          76630                   SX6    B3                                                      INIT23     81
            15  0301000020 +                      ZR     X1,INI3A    IF NO LGO                                   INIT23     82
                          7120000000 X            SETFIL FILE=F.LGO,MODE=INIT,FWA=B3  SET LGO BUFFER             INIT23     83
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/02. 13.14.10.      PAGE     3
                                                                      INIT23
  
            17  76620                             SX6    B2          FWA OF LGO                                  INIT23     84
            20  5160000000 X             INI3A    SA6    O.TABS      SET ORIGIN OF MANAGED TABLES                INIT23     85
                          5160000000 X            SA6    BASES       SET START OF FIRST TABLE                    INIT23     86
                                                                                                                 INIT23     87
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT23     88
                                                  SA1    SIZES                                                   INIT23     89
                                                  ZR     X1,INI4     IF FIRST TABLE EMPTY                        INIT23     90
                                                  PLINE  INIA,5                                                  INIT23     91
                                                  EQ     INI5        PRINT TABLE STATISTICS                      INIT23     92
                                                                                                                 INIT23     93
                                         INI4     SA1    CO.SNAP                                                 INIT23     94
                                                  LX1    1RT                                                     INIT23     95
                                                  PL     X1,INI6     IF NO SNAP DESIRED                          INIT23     96
                                         INI5     PLINE  INIB,5                                                  INIT23     97
                                                  CALL   PTO         PRINT TABLE ORIGINS                         INIT23     98
                                         INI6     SA1    O.TABS                                                  INIT23     99
                                                  BX6    X1          RESTORE (X6) AFTER SNAPS                    INIT23    100
                                         .TEST    ENDIF                                                          INIT23    101
                                                                                                                 INIT23    102
            21  5120000000 X                      SA2    CP.NFLS                                                 INIT23    103
                          37626                   IX6    X2-X6                                                   INIT23    104
            22  5160000000 X                      SA6    L.TABS      SET SIZE OF TABLE AREA                      INIT23    105
                          21604                   AX6    FLSLOP                                                  INIT23    106
            23  5160000000 X                      SA6    THRESH      GIVE ALLOC SOME ELBOW ROOM                  INIT23    107
                          0400000000 X            EQ     REC         TRANSFER TO REAR END CONTROLLER...          INIT23    114
                                                                                                                 INIT23    115
                                         .T       IFEQ   TEST,ON                                                 INIT23    116
                                         INIA     DIS    5,  -----    *         TRASHED TABLES NOT ALL EMPTY.    INIT23    117
                                         INIB     DIS    5,   TABLE STATISTICS ON ENTRY TO PASS THREE --         INIT23    118
                                         .T       ENDIF                                                          INIT23    119
                                                                                                                 INIT23    120
                                                                                                                 INIT23    121
                                                                                                                 INIT23    122
                                                                                                                 INIT23    123
                                                  LIST   D                                                       INIT23    124
                                                  ENTRY  B=LWA23                                                 INIT23    125
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        FA=SET
  
            24                           B=LWA23  END                MARK LWA OF OVERLAY FOR RPV                 INIT23    126
  
                             73600B CM  STORAGE USED              234 STATEMENTS     1370 SYMBOLS      000003 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.543 SECONDS          62 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        BASES           0   EXTERNAL*       1/37 X    3/03 S
        B1=1            0 
        B=LWA23        24   PROGRAM*        3/36 E    3/37 L
        CO.LOR          0   EXTERNAL*       1/30 X    2/50
        CO.SNAP         0   EXTERNAL*       1/30 X
        CP.NFLS         0   EXTERNAL*       1/30 X    3/20
        FA=SET          0   EXTERNAL*       2/52      2/53      2/57
1       INIT23 - INITIALIZE REAR END OVERLAY.                         COMPASS 3.7-871.     24/05/02. 13.14.10.      PAGE     4
        SYMBOLIC REFERENCE TABLE. 
  
        FLSLOP          4   FTX             3/23
        FTN23           0   PROGRAM*        2/07 L    2/07 E    2/49
        FV.LGO          0   EXTERNAL*       1/30 X    2/54
        F.LGO           0   EXTERNAL*       1/30 X    2/57
        F.PB            0   EXTERNAL*       1/30 X    2/53
        F.REF           0   EXTERNAL*       1/30 X    2/52
        IDPCHK          0   EXTERNAL*       1/30 X
        IDP=            0   EXTERNAL*       1/34 X
        IDP=USY         0   EXTERNAL*       1/34 X
        INI2            7   PROGRAM*        2/49 L
        INI3           12   PROGRAM*        2/51      2/53 L
        INI3A          20   PROGRAM*        2/56      3/02 L
        L.TABS          0   EXTERNAL*       1/37 X    3/22 S
        O.TABS          0   EXTERNAL*       1/37 X    3/02 S
        PTO             0   EXTERNAL*       1/34 X
        REC             0   EXTERNAL*       1/40 X    3/25
        RPV2N           0   EXTERNAL*       1/43 X    2/13 S
        RPV23           0   EXTERNAL*       1/46 X    2/12
        RPV=            0   EXTERNAL*       1/52 X    2/26      2/26
        RPV=URP         0   EXTERNAL*       1/37 X
        SIZES           0   EXTERNAL*       1/37 X
        SYS=            0   EXTERNAL*       1/31 X    2/26
        TEST            0   FTX             2/18 F    2/32 F    3/05 F    3/27 F
        THRESH          0   EXTERNAL*       1/37 X    3/24 S
        UKT=LNK         0   EXTERNAL*       1/34 X
        UKT=RE          0   EXTERNAL*       1/49 X
        WNB=            0   EXTERNAL*       1/31 X
        WOF             0   EXTERNAL*       1/37 X
        '?RPV=A        37                   2/26 D    2/26
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1772              IDENT  FEC
                       1772                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1750 
                                        LITERALS* LOCAL        1750        22 
                                        RGFILE    COMMON          0       500 
                                        HASH      COMMON          0       200 
  
  
                                        ENTRY POINTS. 
  
                                        B=FEC            0+           WANFP           31+           FEC.RTF        406+ 
                                        ARGCOMA          1+           SCR2            32+           ASK            440+ 
                                        ARGMODE          0+           ZLEQUAL         42+           ASL            475+ 
                                        ARGMIS           2+           ZLCOMMA         43+           CSB            606+ 
                                        ASSTAG           3+           ZLPAREN         44+           CUS.RET        726+ 
                                        CALLTAG          3+           ZLE             45+           OIL           1044+ 
                                        CSLTAG           4+           ZLCOLON         46+           BBC           1332+ 
                                        DATFLG           5+           F.SYMIL         47+           CCT           1345+ 
                                        DTI              6+           Z.SYMVP        105            CT1           1354+ 
                                        OSTACK           0+/RGFILE/   Z.SYMDB        132            STY           1374+ 
                                        ESTACK         240+/RGFILE/   Z.SYMIL        143            NAT.TYP       1402+ 
                                        FLOW             7+           HASHTBL          0+/HASH/     NAT.LEN       1411+ 
                                        FORSKEL          0+/RGFILE/   CHARMAP        213+           TLV           1426+ 
                                        HANGER          10+           Z.CHMAP         66            TRV           1435+ 
                                        IFLEVEL         11+           FEC=1ST          0            TRVA          1502+ 
                                        INSTF           12+           FEC=IMP          1            TSX           1504+ 
                                        LDEAD           13+           FEC=DEC          2            TSY           1516+ 
                                        L.CARD          14+           FEC=STF          3            ERT           1535+ 
                                        NOPATH          15+           FEC=EXU          4            ERT=ON        1555+ 
                                        NTRCNT          16+           FEC=END          5            ERT=OFF       1556+ 
                                        PARMODE         17+           FEC=BY           6            ESY           1557+ 
                                        PARAMC          20+           FEC=DAT          7            INN           1612+ 
                                        REFLIN          21+           FEC=FMT         10            NCM           1624+ 
                                        REFNUM          22+           FEC=ENT         11            SCS           1664+ 
                                        REFVAR          23+           FEC=TYP         12            SCSA          1673+ 
                                        ROUTNAM         24+           FEC=PRM         13            SCT           1674+ 
                                        RTNCNT          25+           FEC=OK          14            SLT           1703+ 
                                        STAGE           26+           FEC            316+           SSY           1730+ 
                                        TRLINE          27+           FEC.RTN        321+ 
                                        T=CONB          30+           FEC.RIF        403+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADWT      E.SU06    PSF       PDM       N.CPL     S=FID     T=TB      DUC.BTH 
                                        ALC.REG   E.TY7     IDP=SVX   BASES     N.CT      S=FMC     T=VDIM    DUC.1ST 
                                        ALC.00    E.VA00    IDP=      BLNKCOM   N.CTMAX   S=FVS     T.BLKS    DUC.2ND 
                                        ALC       E.VA02    REG=      CHARDCL   N.DOB     S=IT      T.BLST    QCP 
                                        PCD       E.VA09    INIF      ERRORS    N.EPL     S=LA      T.COMM    FEL.RTN 
                                        CLASS     E.VA10    KW=CONT   ERRTYP    N.ERRT    S=LC      T.DIM     PIS 
                                        E.ANS1    FILL.     GSL       ERR=K     N.GL      S=LENP    T.END     F.INTF
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        E.ANS2    FILL.2    PDA       E=TOTAL   N.MAXIL   S=LMC     T.FPI     V=BVD 
                                        E.AS6     MOD.DPC   LDB       FAILSFT   N.ST      S=MMC     T.PAR     V=EVD 
                                        E.CM8     E.STO     LEX       F.LBT     N.STMAX   S=OT      T.REF     V=FIN 
                                        E.C$15    FI=BRLI   LEXFLG    F.SORD    N.TABLE   S=RD      T.SYM     V=NOOP
                                        E.DM03    SN.PAR    LEXMODE   HDRBL     N.VD      S=SA1     T.VDIM    Z.INTF
                                        E.DM04    CO.ANSI   SB=LINC   IO.TEM    O.STITL   S=ST      USAVE     TYPD
                                        E.DO09    CO.C$     SB=LORD   LEVEL     O.TABS    S=TA0     WO.C$     CDD 
                                        E.FM      CO.LOS    TB=LABL   LEVEL0    PASS      S=TRACE   WO.LOR    DXB 
                                        E.IF17    CO.SEQ    TB=LABR   LEVEL2    RATES     S=VD      WO.LOS    MVE=
                                        E.LV6     CO.SNAP   TB=NUML   LINES     REFIO     S=VALUE   WO.QC     SBM=
                                        E.MA      CP.FLIN   TB=TYPE   LJS       SAVE      T=BLKS    Z.LBT     WTW=
                                        E.MB      F.REF     TB=1ST    LOSTREF   SCR       T=BLST    Z.SORD    OVCFLG
                                        E.MD      L.C$      ALC=CNT   L=TABLE   SIZES     T=CON     S=SA0     ALC.PAR 
                                        E.MDO     L.TITL    MOVES     L.TABS    S=BU      T=C$IF    ENDFTN    TV=DECL 
                                        E.MH      TL.PTYP   PARSLEN   MOD       S=CL      T=PAR     CAF       CO.LOR
                                        E.MI      ERFO      CURST     NARGS     S=CON     T=REF     NSQZLH    MAL 
                                        E.MS      BN=CON    EMT       N.FP      S=CT      T=SCR     N.BUF     TV=CUR
                                        E.NP      BN=FMT    OPBSS     NOLIST    S=ENTRY   T=STMT    N$LC      TV=EXU
                                        E.SEQ     BN=IOAP   PARNOW    N.AP      S=FAR     T=STF     S=BUF 
                                        E.SU04    BN=NLST   ANSI=     N.ARP     S=FAS     T=SYM     DUC.
  
  
  
  
                                                  IDENT  FEC                                                     FEC         2
                                         FEC      SECT   (FRONT END CONTROLLER AND SUPPORT.)                     FEC         3
  
  
  
  
  
                                        *         IN ALLOC                                                       FEC         5
                                                  EXT    ADWT,ALC.REG,ALC.00,ALC                                 FEC         6
                                                                                                                 FEC         7
                                        *         IN DECL                                                        FEC         8
                                                  EXT    PCD                                                     FEC         9
                                                                                                                 FEC        10
                                        *         IN FERRS                                                       FEC        11
                                                  EXT    CLASS,E.ANS1,E.ANS2,E.AS6,E.CM8,E.C$15,E.DM03,E.DM04    FC5A335     4
                                                  EXT    E.DO09,E.FM,E.IF17,E.LV6,E.MA,E.MB,E.MD,E.MDO,E.MH,E.MI FC5A335     5
                                                  EXT    E.MS,E.NP,E.SEQ,E.SU04,E.SU06,E.TY7,E.VA00,E.VA02       FC5A335     6
                                                  EXT    E.VA09,E.VA10,FILL.,FILL.2,MOD.DPC,E.STO                FC51347     8
                                                                                                                 FEC        16
                                        *         IN FSNAP                                                       FEC        17
                                                  EXT    FI=BRLI,SN.PAR                                          FEC        18
                                                                                                                 FEC        19
                                        *         IN FTN                                                         FEC        20
                                                  EXT    CO.ANSI,CO.C$,CO.LOS,CO.SEQ,CO.SNAP,CP.FLIN,F.REF,L.C$  FC5A255     6
                                                  EXT    L.TITL,TL.PTYP                                          FC5A255     7
                                                  EXT    ERFO                                                    F1039     562
                                                                                                                 FEC        23
                                        *         IN GEN/BRIDGE                                                  FEC        24
                                                  EXT    BN=CON,BN=FMT,BN=IOAP,BN=NLST                           FEC        25
                                                                                                                 FEC        26
                                        *         IN HEADER                                                      FEC        27
                                                  EXT    PSF                                                     FEC        28
                                                                                                                 FEC        29
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     3
                                                                      FEC 
  
                                        *         IN IDP                                                         FEC        30
                                                  EXT    IDP=SVX,IDP=,REG=                                       FEC        31
                                                                                                                 FEC        32
                                        *         IN KEY                                                         FEC        33
                                                  EXT    INIF,KW=CONT                                            FEC        34
                                                                                                                 FEC        35
                                        *         IN LABEL                                                       FEC        36
                                                  EXT    GSL,PDA                                                 FC50110     6
                                                                                                                 FEC        38
                                        *         IN LEX                                                         FEC        39
                                                  EXT    LDB,LEX,LEXFLG,LEXMODE,SB=LINC,SB=LORD,TB=LABL,TB=LABR  FEC        40
                                                  EXT    TB=NUML,TB=TYPE,TB=1ST                                  FEC        41
                                                                                                                 FEC        42
                                        *         IN LISTLNK                                                     FC5A150   286
                                                  EXT    ALC=CNT,MOVES,PARSLEN                                   FC5A150   287
                                                                                                                 FC5A150   288
                                        *         IN PAR                                                         FEC        43
                                                  EXT    CURST,EMT,OPBSS,PARNOW                                  FC50104    47
                                                                                                                 FEC        45
                                        *         IN PEM                                                         FEC        46
                                                  EXT    ANSI=,PDM                                               FEC        47
                                                                                                                 FEC        48
                                        *         IN PUC                                                         FEC        49
                                                  EXT    BASES,BLNKCOM,CHARDCL,ERRORS,ERRTYP,ERR=K               FC5A150   289
                                                  EXT    E=TOTAL,FAILSFT,F.LBT,F.SORD,HDRBL,IO.TEM,LEVEL,LEVEL0  FEC        51
                                                  EXT    LEVEL2,LINES,LJS,LOSTREF,L=TABLE,L.TABS,MOD,NARGS,N.FP  FC50567     5
                                                  EXT    NOLIST,N.AP,N.ARP,N.CPL,N.CT,N.CTMAX,N.DOB,N.EPL,N.ERRT FEC        53
                                                  EXT    N.GL,N.MAXIL,N.ST,N.STMAX,N.TABLE,N.VD,O.STITL,O.TABS   FEC        54
                                                  EXT    PASS,RATES,REFIO,SAVE,SCR,SIZES,S=BU,S=CL,S=CON         FC5A150   291
                                                  EXT    S=CT,S=ENTRY,S=FAR,S=FAS,S=FID,S=FMC,S=FVS,S=IT,S=LA    FEC        56
                                                  EXT    S=LC,S=LENP,S=LMC,S=MMC,S=OT,S=RD,S=SA1,S=ST,S=TA0      FEC        57
                                                  EXT    S=TRACE,S=VD,S=VALUE,T=BLKS,T=BLST,T=CON,T=C$IF,T=PAR   FEC        58
                                                  EXT    T=PAR,T=REF,T=SCR,T=STMT,T=STF,T=SYM,T=TB,T=VDIM,T.BLKS FEC        59
                                                  EXT    T.BLST,T.COMM,T.DIM,T.END,T.FPI,T.PAR,T.REF,T.SYM       FEC        60
                                                  EXT    T.VDIM,USAVE,WO.C$,WO.LOR,WO.LOS,WO.QC,Z.LBT,Z.SORD     FEC        61
                                                  EXT    S=SA0,ENDFTN,CAF                                        FC51347     9
                                                  EXT    NSQZLH,N.BUF,N$LC,S=BUF                                 FC5A415     9
                                                                                                                 FEC        62
                                        *         IN QCGC                                                        FEC        63
                                                  EXT    DUC.,DUC.BTH,DUC.1ST,DUC.2ND,QCP                        FEC        64
                                                                                                                 FEC        65
                                        *         IN QCGLINK                                                     FEC        66
                                                  EXT    FEL.RTN,PIS                                             FEC        67
                                                                                                                 FEC        68
                                        *         IN QSKEL/FSKEL                                                 FC50104    48
                                                  EXT    F.INTF,V=BVD,V=EVD,V=FIN,V=NOOP,Z.INTF                  FC50104    49
                                                                                                                 FEC        71
                                        *         IN TYPE                                                        FEC        72
                                                  EXT    TYPD                                                    FEC        73
                                                                                                                 FEC        74
                                        *         IN UTILITY                                                     FEC        75
                                                  EXT    CDD,DXB,MVE=,SBM=,WTW=                                  FEC        76
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     4
        FRONT END TABLE/SYMBOL DEFINITIONS.                           CELLS 
  
                                        **        DEFINITIONS OF CELLS USED BY THE FRONT END.                    FEC        79
                                                                                                                 FEC        80
                                                                                                                 FEC        81
             0                     3     PSTACK   BSS    Z=PSTACK    TOP STACK FRAME FOR LEFT PARENTHESIS        FEC        82
                                         ARGCOMA  EQUENT AC.W+PSTACK       SEE TEXT FOR FORMAT                   FEC        83
                                         ARGMODE  EQUENT AM.W+PSTACK       SEE PAR  FOR USAGE                    FEC        84
                                         ARGMIS   EQUENT AS.W+PSTACK                                             FEC        85
                                                                                                                 FEC        86
             3                     1     ASSTAG   BSSENT 1           *ASSIGN* STATEMENT LABEL                    FEC        87
                                                                                                                 FEC        88
                                         CALLTAG  EQUENT ASSTAG      *CALL* STATEMENT LABEL                      FEC        89
                                                                                                                 FEC        90
             4  00000000000000000000     CSLTAG   CONENT 0           CURRENT STATEMENT LABEL SYMTAB ORDINAL      FC5A337     9
                                                                                                                 FEC        92
             5                     1     DATFLG   BSSENT 1           DATA-STATEMENT FLAG.  ROYAL KLUDGE.         FEC        93
                                                                     AFFECTS MISCELLANEOUS ACTIVITIES INVOLVED   FEC        94
                                                                     IN ISSUING (T.DATS).                        FEC        95
                                                                                                                 FEC        96
             6  00000000000000000000     DTI      CONENT 0           DO-TERMINATION INDICATOR                    FEC        99
                                                                     CONTAINS TAG OF THIS STATEMENTS LABEL, IF   FEC       100
                                                                     IT IS A DO-TERMINATOR.                      FEC       101
                                                                     = 0  IF THIS STATEMENT IS NOT A DO-TERMINAL FEC       102
                                                                                                                 FEC       103
                                                  USE    /RGFILE/                                                FC5A171A    9
             0                   240     OSTACK   BSSENT N.OPSTK     OPERATOR STACK  (BEFORE ESTACK)             FEC       104
                                                                                                                 FEC       105
           240                   240     ESTACK   BSSENT N.ELSTK     ELEMENT STACK   (AFTER OSTACK)              FEC       106
                                                  USE    0                                                       FC5A171A   10
                                                                                                                 FEC       107
             7                     1     FLOW     BSSENT 1           = 0  IF CONTROL FLOWS INTO THIS STATEMENT.  FEC       108
                                                                     " 0  IF THIS IS IN-ACCESSIBLE CODE.         FEC       109
                                                                     SET FROM (NOPATH) OF PREVIOUS STATEMENT.    FEC       110
                                                                                                                 FEC       111
                                         FORSKEL  EQUENT OSTACK      SKELETON AREA FOR PACKING FORMAT            FEC       112
                                                                                                                 FEC       113
            10  00000000000000000000     HANGER   CONENT 0           HANGING COMPILATION INDICATOR.              FEC       114
                                                                     = 0  PREVIOUS STATEMENT COMPLETELY          FEC       115
                                                                           PROCESSED ALREADY.                    FEC       116
                                                                     " 0  ADDRESS OF ROUTINE WHO WILL BE ENTERED FEC       117
                                                                           WHEN THE NEXT CODE-GENERATING STATE-  FEC       118
                                                                           MENT IS ENCOUNTERED AND IT IS KNOWN   FEC       119
                                                                           WHAT THE STATEMENT LABEL IS.          FEC       120
                                                                                                                 FEC       121
            11  00000000000000000000     IFLEVEL  CONENT 0           CURRENT BLOCK IF LEVEL                      FEC       122
                                                                                                                 FEC       123
            12  00000000000000000000     INSTF    CONENT 0           INDICATES FROM WHERE PARSER INPUT IS COMING FEC       124
                                                                     = 0 -- FROM *TB* (NORMAL)                   FEC       125
                                                                     " 0 -- FROM *STF* (STMT FUNCT EXPANSION)    FEC       126
                                                                                                                 FEC       127
            13  00000000000000000000     LDEAD    CONENT 0           INITIAL LENGTH OF PARSED FILE UPON ENTRY TO FEC       133
                                                                     *PAR*.  USED WHEN *FLOW* = 0 TO RESET       FEC       134
                                                                     LENGTH OF PARSED FILE UPON EXIT -- THUS     FEC       135
                                                                     ELIMINATING PARSED CODE FOR DEAD REGIONS OF FEC       136
                                                                     SOURCE CODE.                                FEC       137
                                                                                                                 FEC       138
            14  00000000000000000000     L.CARD   CONENT 0           NR OF WORDS IN SOURCE LINE IMAGE AT         FEC       139
                                        *                              (CP.CARD) ET SEQ  (INCLUDES FULL ZERO     FEC       140
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     5
        FRONT END TABLE/SYMBOL DEFINITIONS.                           CELLS 
  
                                        *                              WORD EOL MARK)                            FEC       141
                                                                                                                 FEC       142
            15  00000000000000000000     NOPATH   CONENT 0           IF " 0 INDICATES STATEMENT MUST HAVE A      FEC       143
                                                                     STATEMENT LABEL FIELD.  IF SET AND NO LABEL FEC       144
                                        *                            *GSN* WILL OUTPUT *NO PATH* WARNING MESSAGE FEC       145
                                                                                                                 FEC       146
            16  00000000000000000000     NTRCNT   CONENT 0           COUNT OF *ENTRY* STATEMENTS WHICH APPEARED  FEC       147
                                                                     IN THIS SUBPROGRAM.  USED TO DETERMINE WHAT FEC       148
                                                                     SUBPROGRAM EXIT CODE TO COMPILE.            FEC       149
                                                                                                                 FEC       150
            17  00000000000000000000     PARMODE  CONENT 0           PARSE MODE = 0, NORMAL PROCESSING           FEC       151
                                                                                " 0, SPECIAL PROCESSING          FEC       152
                                                                                                                 FEC       153
            20                     1     PARAMC   BSSENT 1           COUNT OF PARAMETERS (SYMBOLIC CONSTANTS)    FC5A225     5
                                                                                                                 FC5A225     6
            21  00000000000000000000     REFLIN   CONENT 0           REFERENCE LINE NUMBER                       FEC       154
                                                                                                                 FEC       155
            22                     2     REFNUM   BSZENT 2           STATEMENT LABEL REFERENCE.                  FEC       156
                                                                     TYPE OF CROSS REFERENCE SYMBOL PROCESSING.  FEC       157
                                                                     SHOULD BE PRESET FOR ALL PROCESSORS THAT    FEC       158
                                                                     CALL *ISN* TO TRANSLATE A STATEMENT LABEL   FEC       159
                                                                     REFERENCE.                                  FEC       160
                                         REFVAR   EQUENT REFNUM+1    SYMBOL REFERENCE.                           FEC       161
                                                                     TYPE OF CROSS REFERENCE SYMBOL PROCESSING.  FEC       162
                                                                     SHOULD BE PRESET FOR ALL PROCESSORS THAT    FEC       163
                                                                     CALL *TRE* TO TRANSLATE A STATEMENT LABEL   FEC       164
                                                                     REFERENCE.                                  FEC       165
                                                                     (*TRE* = *TRV*,*TNK* AND *TSF*)             FEC       166
                                                                                                                 FEC       167
            24  00000000000000000000     ROUTNAM  CONENT 0           NAME OF ROUTINE TO BE CALLED. USED BY       FEC       168
                                                                     I/O STATEMENT PROCESSORS.                   FEC       169
                                                                                                                 FEC       170
            25  00000000000000000000     RTNCNT   CONENT 0           COUNT OF NUMBER OF *RETURN* STATEMENTS IN   FEC       171
                                                                     SUBPROGRAM.  COMPLEMENTED IF *END* IS       FEC       172
                                                                     IMMEDIATELY PRECEDED BY *RETURN*.  USED BY  FEC       173
                                                                     *RTU* TO DETERMINE WHAT CODE NEED BE        FEC       174
                                                                     GENERATED.                                  FEC       175
                                                                                                                 FEC       176
            26  00000000000000000000     STAGE    CONENT 0           CURRENT SOURCE PROGRAM STAGE.  VALUES ARE   FEC       177
                                                                     *FEC=XXX*.  SEE DISCUSSION IN *FEC*.        FEC       178
                                                                                                                 FEC       179
            27  00000000000000000000     TRLINE   CONENT 0           LINE NO. (OCTAL) FOR TRACEBACK ON RJT.      FEC       180
                                                                                                                 FEC       181
            30                     1     T=CONB   BSSENT 1           SAVE CON LEN AT BOS                         FEC       182
            31                     1     WANFP    BSSENT 1           OR'ED INTO *WA* BY *SSY* AND *ESY*          FC5A192     8
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     6
        FRONT END TABLE/SYMBOL DEFINITIONS.                           CELLS 
  
                                        **        SCRATCH AREA.                                                  FEC       184
                                                                                                                 FEC       185
            32                    10     SCR2     BSSENT MAX.DIM+1   GENERAL SCRATCH AREA 2                      FEC       186
  
  
  
  
                                        **        CELLS SET UP BY *TAB* FOR CLASSIFYING A STATEMENT.             FEC       188
                                                                                                                 FEC       189
            42  00000000000000000000     ZLEQUAL  CONENT 0           IF = 0 NO ZERO LEVEL *=* FOUND.             FEC       190
            43  00000000000000000000     ZLCOMMA  CONENT 0           IF = 0 NO ZERO LEVEL *,* FOUND.             FEC       191
            44  00000000000000000000     ZLPAREN  CONENT 0           1ST ZERO LEVEL *)* FOUND.                   FEC       192
            45  00000000000000000000     ZLE      CONENT 0           LOCAL *ZLEQUAL* POINTER USED DURING PARSE.  FEC       193
            46  00000000000000000000     ZLCOLON  CONENT 0           .NZ. IF A COLON AT PAREN LEVEL 1 OCCURRED,  FEC       194
                                                                     ELSE .ZR.  SEE *CST* (CLASSIFY STMT)        FEC       195
                                                                     IN DECK *LEX*.                              FEC       196
  
  
  
  
                                        **        SYMBOL TABLE INITIALIZATION DATA.                              FEC       198
                                        *                                                                        FEC       199
                                        *         WHEN A NEW PROGRAM-UNIT IS STARTED, FEC/PUP PRESTORES THE      FEC       200
                                        *         FOLLOWING ENTRIES IN THE SYMBOL TABLE.                         FEC       201
                                                                                                                 FEC       202
                                                                                                                 FEC       203
                                                  MACRO  SYMT,NAM,CELL,ATTR,BLOCK,FUNK                           FEC       204
                                                  LOCAL  ORD                                                     FEC       205
                                         ORD      EQU    */Z=SYM                                                 FEC       206
                                         .B       BFMIC  WB,(ATTR)                                               FEC       207
                                                  DATA   L-NAM-,".B"                                             FEC       208
                                                  IFC    NE,/BLOCK//,2                                           FEC       209
                                                  VFD    WC.RLL/ML.PROG,WC.RBL/=XBN=BLOCK,*P/0                   FC50933     8
                                                  SKIP   4                                                       FEC       211
                                                  IFC    NE,/FUNK//,2                                            FEC       212
                                                  VFD    WC.FUNTL/MF.FUNK,*P/0                                   FEC       213
                                                  SKIP   1                                                       FEC       214
                                                  CON    0                                                       FEC       215
                                        *                            SAVE CODE TO STORE ORDINAL                  FEC       216
                                                  IFC    NE,/CELL//,4                                            FEC       217
                                         SORD     RMT                                                            FEC       218
                                                  =X6    ORD                                                     FEC       219
                                                  SA6    =XS=CELL                                                FEC       220
                                         SORD     RMT                                                            FEC       221
                                                  ENDM                                                           FEC       222
                                                                                                                 FEC       223
                                                                                                                 FEC       224
            47                           F.SYMIL  BSSENT 0           BASE OF INITIAL SYMBOL TABLE IMAGE          FEC       225
      L      0                                    LOC    0                                                       FEC       226
      L      0                     3              BSSZ   Z=SYM             ORDINAL 0 = ALWAYS CLEAR              FEC       227
      L      3  47174537233440000000     *O+4S15  SYMT   BU,(CGS,NVAR)                                           FEC       228
      L      6  02250657000000000000     BUF.     SYMT   BUF,(CGS,VAR,DEF)                                       F1037F5   317
      L     11  03145700000000000000     CL.      SYMT   CL,(CGS,VAR,DEF,ARY),IOAP                               FEC       229
      L     14  03171657000000000000     CON.     SYMT   CON,(CGS,VAR,DEF,ARY),CON                               FEC       230
      L     17  03245700000000000000     CT.      SYMT   CT,(CGS,VAR,DEF)                                        FEC       231
      L     22  14015700000000000000     LA.      SYMT   LA,(CGS,VAR,DEF,ARY),FMT                                FEC       232
      L     25  14051620570000000000     LENP.    SYMT   LENP,(CGS,LAB,DEF)                                      FEC       233
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     7
        FRONT END TABLE/SYMBOL DEFINITIONS.                           SYMTAB
  
      L     30  23012605013457000000     SAVEA1.  SYMT   SA1,(CGS,VAR,DEF)                                       FEC       234
      L     33  23012605013357000000     SAVEA0.  SYMT  SA0,(CGS,VAR,DEF)                                        FC5A436    18
      L     36  23245700000000000000     ST.      SYMT   ST,(CGS,VAR,DEF,ARY)                                    FEC       235
      L     41  24051520013357000000     TEMPA0.  SYMT   TA0,(CGS,VAR,DEF)                                       FEC       236
      L     44  24220103055700000000     TRACE.   SYMT   TRACE,(CGS,VAR,DEF)                                     FEC       237
      L     47  26045700000000000000     VD.      SYMT   VD,(CGS,VAR,DEF,ARY)                                    FEC       238
      L     52  11245700000000000000     IT.      SYMT   IT,(CGS,VAR,DEF,ARY)                                    FEC       239
      L     55  17245700000000000000     OT.      SYMT   OT,(CGS,VAR,DEF,ARY)                                    FEC       240
      L     60  14035700000000000000     LC.      SYMT   LC,(CGS,VAR,DEF,ARY)                                    FEC       241
      L     63  22045700000000000000     RD.      SYMT   RD,(CGS,VAR,DEF,ARY,MAT),NLST                           FEC       242
                                                                                                                 FEC       243
      L     66  04022507571416000000     DBUG.LN  SYMT   FID,(CGS,NVAR,DEF,SUB,EXT),,LIB                         FEC       244
      L     71  06150357000000000000     FMC.     SYMT   FMC,(CGS,NVAR,DEF,SUB,EXT),,BEF                         FEC       245
      L     74  25150357000000000000     UMC.     SYMT   FMC+1,(CGS,NVAR,DEF,SUB,EXT),,BEF                       FEC       246
      L     77  15150357000000000000     MMC.     SYMT   MMC,(CGS,NVAR,DEF,SUB,EXT),,BEF                         FEC       247
      L    102  14150357000000000000     LMC.     SYMT   LMC,(CGS,NVAR,DEF,SUB,EXT),,BEF                         FEC       248
                                                                                                                 FEC       249
      L    105                           Z.SYMVP  BSSENT 0           FIRST VALUE. SYMBOL                         FEC       250
      L    105  26011425055700000000     VALUE.   SYMT   VALUE,(CGS,VAR,BMEM)                                    FEC       251
      L    110  26011425145700000000     VALUL.   SYMT   ,(VAR,EQV,CGS)                                          FEC       252
      L    113  26011425115700000000     VALUI.   SYMT   ,(VAR,EQV,CGS)                                          FEC       253
      L    116  26011425225700000000     VALUR.   SYMT   ,(VAR,EQV,CGS)                                          FEC       254
      L    121  26011425045700000000     VALUD.   SYMT   ,(VAR,EQV,CGS)                                          FEC       255
      L    124  26011425035700000000     VALUC.   SYMT   ,(VAR,EQV,CGS)                                          FEC       256
      L    127  26011425105700000000     VALUH.   SYMT   ,(VAR,EQV,CGS)                                          FEC       257
                                                                                                                 FEC       258
      L    132                           Z.SYMDB  BSSENT 0           FIRST ENTRY WHICH DEPENDS ON (CO.DBSL)      FEC       259
      L    132  06012303570000000000     FASC.    SYMT   FAS,(CGS,NVAR,DEF,SUB,EXT),,LIB                         FEC       260
      L    135  06012203570000000000     FARC.    SYMT   FAR,(CGS,NVAR,DEF,SUB,EXT),,LIB                         FEC       261
      L    140  06262303570000000000     FVSC.    SYMT   FVS,(CGS,NVAR,DEF,SUB,EXT),,LIB                         FEC       262
                                                                                                                 FEC       263
      L    143                     1     Z.SYMIL  BSSENT 1           LENGTH OF INITIAL SYMTAB LOAD               FEC       264
           213                                    LOC    *O                                                      FEC       265
  
  
  
  
                                        *         HASH VECTOR FOR T.SYM.                                         FEC       267
                                                  USE    /HASH/                                                  FEC       268
             0                   200     HASHTBL  BSSENT Z.HASH                                                  FEC       269
                                                  USE    *                                                       FEC       270
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     8
        FRONT END TABLE/SYMBOL DEFINITIONS.                           CHARMAP 
  
                                        **        CHARMAP - CHARACTER MAPPING FOR OUTPUT OF ORIGINAL SYMBOL.     FEC       272
                                        *                                                                        FEC       273
                                        *         MAPPING FOR CHARACTERS/OPERATORS USED THRU-OUT THE COMPILER.   FEC       274
                                        *                                                                        FEC       275
                                        *         ANY ONE WISHING TO CHANGE THESE EQUS SHOULD LOOK AT            FEC       276
                                        *         GENERAL LEXICAL ROUTINES LIKE --                               FEC       277
                                        *         A.  TAB - NORMALIZE STATEMENT.                                 FEC       278
                                        *         B.  ASN - ASSEMBLE NUMBER.                                     FEC       279
                                        *         C.  ASV - ASSEMBLE VARIABLE.(NOTE SPECIAL MASK FOR KLUDGED 64  FEC       280
                                        *                   CHARACTER SET).                                      FEC       281
                                        *                                                                        FEC       282
                                        *         ALSO NOTE ROUTINES LIKE --                                     FEC       283
                                        *                                                                        FEC       284
                                        *         A.  PAR - PARSE STATEMENT.                                     FEC       285
                                        *         B.  TRE,TRV,TNK,TSF - TRANSLATE ELEMENT.                       FEC       286
                                        *         C.  LST, IOL, ETC. -- I/O LISTS.                               FEC       287
                                        *                                                                        FEC       288
                                        *         MOST OF MAPPING CRITERIA IS FOR CONVENIENCE OF JUMP TABLES AND FEC       289
                                        *         PROCESSING OF THE GIVEN OPERATOR WITH THESE ROUTINES.          FEC       290
                                                                                                                 FEC       291
                                                                                                                 FEC       292
                                         CHMAP    MACRO  DPC,OPERS                                               FEC       293
                                         .3       IFC    EQ, DPC                                                 FEC       294
                                                  CON    0                                                       FEC       295
                                         .3       ELSE                                                           FEC       296
                                         A        MICRO  1,,\_DPC_\                                              FEC       297
                                         B        MICCNT A                                                       FEC       298
                                         B        DECMIC B                                                       FEC       299
                                                  VFD    CH.DPCL/"B"L_DPC,CH.OPCL/DUC.OPERS                      FEC       300
                                         .3       ENDIF                                                          FEC       301
                                         CHMAP    ENDM                                                           FEC       302
                                                                                                                 FEC       303
                                                                                                                 FEC       304
                                         CH=      MACRO                                                          FEC       305
                                                  BSS    0                                                       FEC       306
                                         CH=      ENDM                                                           FEC       307
                                                                                                                 FEC       308
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE     9
        FRONT END TABLE/SYMBOL DEFINITIONS.                           CHARMAP 
  
                                        **        CHARMAP - CHARACTER MAPPING FOR PRINTING/ DISPLAYING.          FEC       310
                                                                                                                 FEC       311
                                        *                                                                        FEC       312
                                        *         *FORTRAN* DEFINED OPERATORS.                                   FEC       313
                                                                                                                 FEC       314
                                         CHARMAP  EQUENT *-O.DEF                                                 FEC       315
      L      0                                    LOC    O.DEF                                                   FEC       316
                                                                                                                 FEC       317
      L      0  46051723460000000000 X   O.EOS    CHMAP  -EOS-       END OF STATEMENT                            FEC       318
      L      1  23242211160700000000 X   O.HOLL   CHMAP  STRING      HOLLERITH CONSTANTS                         FC5A258    10
      L      2  23242211160700000000 X   O.QHOLL  CHMAP  STRING      "" DELIMITED HOLLERITHS                     FC5A258    11
      L      3  23242211160700000000 X   O.RLCON  CHMAP  STRING      R"" OR L"" HOLLERITHS                       FC5A258    12
      L      4  23242211160700000000 X   O.CHAR   CHMAP  STRING      TYPE CHARACTER CONSTANTS                    FC5A258    13
      L      5  00000000000000000000     O.CONS   CHMAP              ALL NUMERIC STRINGS                         FEC       321
      L      6  00000000000000000000     O.OCT    CHMAP                                                          FEC       322
      L      7  00000000000000000000     O.HEX    CHMAP                                                          FEC       323
      L     10  57000000000000000000 X   PERIOD   CHMAP  .           DECIMAL POINT                               FEC       324
      L     11  00000000000000000000     O.VAR    CHMAP              ALL ALPHANUMERIC STRINGS                    FEC       325
      L     12  57242225055700000000 X   O.TRUE   CHMAP  .TRUE.      LOGICAL CONSTANTS                           FEC       326
      L     13  57060114230557000000 X   O.FALSE  CHMAP  .FALSE.                                                 FEC       327
      L                                                                                                          FEC       328
      L     14                           O.SEP    CH=                ---- BEGINNING OF SEPARATORS                FEC       329
      L     14  45000000000000000000 X   O.PL     CHMAP  +,BTH                                                   FEC       330
      L     15  46000000000000000000 X   O.MIN    CHMAP  -,BTH                                                   FEC       331
      L     16  47000000000000000000 X   O.STAR   CHMAP  *,BTH                                                   FEC       332
      L     17  50000000000000000000 X   O.SLASH  CHMAP  /,BTH                                                   FEC       333
      L     20  46000000000000000000 X   O.UMIN   CHMAP  -,1ST                                                   FEC       334
      L     21  47470000000000000000 X   O.EXP    CHMAP  **,BTH                                                  FEC       335
      L     22  57142457000000000000 X   O.LT     CHMAP  .LT.,BTH                                                FEC       336
      L     23  57070557000000000000 X   O.GE     CHMAP  .GE.,BTH                                                FEC       337
      L     24  57052157000000000000 X   O.EQ     CHMAP  .EQ.,BTH                                                FEC       338
      L     25  57160557000000000000 X   O.NE     CHMAP  .NE.,BTH                                                FEC       339
      L     26  57140557000000000000 X   O.LE     CHMAP  .LE.,BTH    REVERSED TO O.GE                            FEC       340
      L     27  57072457000000000000 X   O.GT     CHMAP  .GT.,BTH    REVERSED TO O.LT                            FEC       341
      L     30  57161724570000000000 X   O.NOT    CHMAP  .NOT.,1ST                                               FEC       342
      L     31  57011604570000000000 X   O.AND    CHMAP  .AND.,BTH                                               FEC       343
      L     32  57301722570000000000 X   O.XOR    CHMAP  .XOR.,BTH                                               FC51485    18
      L     33  57160521265700000000 X   O.NEQV   CHMAP  .NEQV.,BTH                                              FC51485    19
      L     34  57052126570000000000 X   O.EQV    CHMAP  .EQV.,BTH                                               FEC       345
      L     35  57172257000000000000 X   O.OR     CHMAP  .OR.,BTH                                                FEC       346
      L     36  50500000000000000000 X   O.CAT    CHMAP  //,BTH                                                  FEC       347
      L                                 *                            ---- FOLLOWING DELIMIT EXPRESSIONS          FEC       348
      L     37  51000000000000000000 X   O.LP     CHMAP  ()(                                                     FEC       349
      L     40  52000000000000000000 X   O.RP     CHMAP  )                                                       FEC       350
      L     41  54000000000000000000 X   O.=      CHMAP  (=),BTH                                                 FEC       351
      L                                                                                                          FEC       352
      L     42                           O.SDEF   CH=                START OF SPECIAL OPERATORS                  FEC       353
      L     42  56000000000000000000 X   O.COMMA  CHMAP  (,),1ST                                                 FEC       354
      L     43  00550000000000000000 X   O.COLON  CHMAP  (: ),BTH                                                FEC       355
      L     44  51000000000000000000 X   O.SLP    CHMAP  ()(                                                     FEC       356
      L     45  23240646012207000000 X   O.STFA   CHMAP  STF-ARG     STATEMENT FUNCTION ARGUMENT                 FEC       357
      L     46  00000000000000000000     O.ILL    CHMAP                                                          FEC       358
                                                                                                                 FEC       359
                                        *         FOLLOWING CHARACTERS SERVE MISCELLEANOUS PURPOSES              FEC       360
                                                                                                                 FEC       361
      L     47  11170417020000000000 X   O.DOBI   CHMAP  IODOB       I/O DO BEGIN                                FEC       362
      L     50  11170417030000000000 X   O.DOCI   CHMAP  IODOC       I/O DO CONCLUSION                           FEC       363
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    10
        FRONT END TABLE/SYMBOL DEFINITIONS.                           CHARMAP 
  
      L     51  11170403020000000000 X   O.DCBI   CHMAP  IODCB       I/O DO COLLAPSE BEGIN                       FEC       364
      L     52  11170403030000000000 X   O.DCCI   CHMAP  IODCC       I/O DO COLLAPSE CONCLUSION                  FEC       365
      L     53  23200103050000000000 X   O.SPACE  CHMAP  SPACE                                                   FEC       366
      L     54  46161716054600000000 X   O.NONE   CHMAP  -NONE-                                                  FEC       367
      L     55  46342324460000000000 X   O.1ST    CHMAP  -1ST-,1ST                                               FEC       368
      L     56  46351604460000000000 X   O.2ND    CHMAP  -2ND-,2ND                                               FEC       369
      L     57  46021724104600000000 X   O.BOTH   CHMAP  -BOTH-,BTH                                              FEC       370
      L     60  01223146141704000000 X   O.ARY    CHMAP  ARY-LOD,2ND       SUBSCRIPTED ARRAY LOAD                FEC       371
      L     61  15170405460326000000 X   O.MODC   CHMAP  MODE-CV,1ST       MODE CONVERSION                       FEC       372
      L     62  57571530205757000000 X   O.MXP    CHMAP  ..MXP..     BOUNDARY MARKER (INTERNAL TO PARSER)        FEC       373
      L     63  70000000000000000000 X   O.SQOT   CHMAP  (')         SINGLE QUOTE (INTERNAL TO LEX)              FEC       374
      L     64  64000000000000000000 X   O.DQOT   CHMAP  (")         DOUBLE QUOTE (INTERNAL TO LEX)              FEC       375
      L     65  05222217220000000000 X   O.ERR    CHMAP  ERROR       SOURCE PROGRAM FATAL ERROR                  FEC       376
      L                                                                                                          FEC       377
           301                                    LOC    *O                                                      FEC       378
                                                                                                                 FEC       379
                                                                                                                 FEC       380
                                         Z.CHMAP  EQUENT *-CHARMAP                                               FEC       381
                                                                                                                 FEC       382
                                                  PURGMAC CH=                                                    FEC       383
                                                  PURGMAC CHMAP                                                  FEC       384
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    11
        FRONT END CONTROLLER.                                         FEC=
  
                                        **        FEC= - STAGE VECTORS ARE ROWS IN A TRANSITION TABLE WHICH      FEC       387
                                        *                DESCRIBES THE ACTION NECESSARY (AS A JUMP ADDRESS) UPON FEC       388
                                        *                ENCOUNTERING A STATEMENT WITH (SFEC) = ROW WHEN         FEC       389
                                        *                (STAGE) = COLUMN.                                       FEC       390
                                        *         THE FIRST 7 ENTRIES ARE ORDER DEPENDENT (ONE FOR EACH VALUE OF FEC       391
                                        *                *STAGE*).  FURTHER ENTRIES ARE ADDED FOR STATEMENTS NOT FEC       392
                                        *                ACCURATELY DESCRIBED BY ANY PREVIOUS ROW.               FEC       393
                                        *                                                                        FEC       394
                                        *         SEE ANSI 3.5, AND FIGURE 1.                                    FEC       395
                                                                                                                 FEC       396
                                                                                                                 FEC       397
                                                  MACRO  FEC=,NAM,FST,IMP,DEC,STF,EXU                            FEC       398
                                         FEC=NAM  VFD    4/0,8/FEC.BY,8/FEC.BY,8/FEC.EXU,8/FEC.STF,8/FEC.DEC,___ FEC       399
                                        ,8/FEC.IMP,8/FEC.FST                                                     FEC       400
                                                  ENTRY  FEC=NAM                                                 FEC       401
                                         FEC=     ENDM                                                           FEC       402
                                                                                                                 FEC       403
           301                           FEC=     BSS    0                                                       FEC       404
      L      0                                    LOC    0                                                       FEC       405
                                        ****             (1ST IMP DEC STF EXU)                                   FEC       406
      L      0  00160340601403006020     1ST      FEC=    OK_,EMH,EMH,EMH,EMH                                    FEC       407
      L      1  00160340641503210000     IMP      FEC=    IMP,OK_,EMI,EMI,EMI                                    FEC       408
      L      2  00160340541304001000     DEC      FEC=    IMP,DEC,OK_,EMD,EMD                                    FEC       409
      L      3  00160340502000601000     STF      FEC=    IMP,DEC,STF,OK_,EMA                                    FEC       410
      L      4  00160341000600601000     EXU      FEC=    IMP,DEC,STF,EXU,OK_                                    FEC       411
      L      5  00160341000600601000     END      FEC=    IMP,DEC,STF,EXU,OK_                                    FEC       412
      L      6  00160340701603407016     BY       FEC=    BY_,BY_,BY_,BY_,BY_                                    FEC       413
                                                                                                                 FEC       414
      L      7  00160341002000601000     DAT      FEC=    IMP,DEC,STF,OK_,OK_                                    FEC       415
      L     10  00160341002004010000     FMT      FEC=    IMP,FMT,FMT,FMT,FMT                                    FEC       416
      L     11  00160341002004010000     ENT      FEC=    IMP,OK_,OK_,OK_,OK_                                    FEC       417
      L     12  00160340541304001020     TYP      FEC=    OK_,DEC,OK_,EMD,EMD                                    FEC       418
      L     13  00160340541304010000     PRM      FEC=    IMP,OK_,OK_,EMD,EMD                                    FEC       419
      L     14  00160341002004010020     OK       FEC=    OK_,OK_,OK_,OK_,OK_                                    FEC       420
                                        ****                                                                     FEC       421
           316                                    LOC    *O                                                      FEC       422
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    12
        FRONT END CONTROLLER.                                         FEC 
  
                                        **        FEC - FRONT END CONTROLLER.                                    FEC       424
                                        *                                                                        FEC       425
                                        *         CALLED BY OVERLAY INITIALIZER.                                 FEC       426
                                        *                                                                        FEC       427
                                        *         EXITS TO FRONT END LOADER.                                     FEC       428
                                        *                                                                        FEC       429
                                        *         PROGRAM UNIT PRESETS (PUP) SHOULD HAVE LOGICALLY BEEN          FEC       430
                                        *         CALLED BY THE PROGRAM UNIT CONTROLLER (PUC), BUT,              FEC       431
                                        *         CERTAIN HIGHER LEVEL OVERLAY INITIALIZATION HAD TO BE          FEC       432
                                        *         DONE FIRST SO DO IT NOW.                                       FEC       433
                                        *         THEN, FOR THE SAME REASON, CALL QUICK CODEGENERATOR            FEC       434
                                        *         PRESETS (QCP). THIS IS A NOOP IN CCG MODE. FRAP.               FEC       435
                                                                                                                 FEC       436
                                                                                                                 FEC       437
           316                           FEC      BSSENT 0           ...ENTRY                                    FEC       438
           316  0100001063 +                      CALL   PUP         PROGRAM UNIT PRESETS                        FEC       439
           317  0100000000 X                      CALL   QCP         QUICK CODE PRESETS                          FEC       440
           320  0100000763 +                      RJ     FEP         FRONT END PRESETS                           FEC       441
  
  
  
  
                                        **        FEC.RTN - RETURN FROM STATEMENT PROCESSING.                    FEC       443
                                        *                                                                        FEC       444
                                        *         MOST STATEMENT PROCESSORS RETURN TO THE FRONT END CONTROLLER.  FEC       445
                                                                                                                 FEC       446
                                                                                                                 FEC       447
           321                           FEC.RTN  BSSENT 0                                                       FEC       448
           321  0100001301 +                      RJ     RSC         RESET STATEMENT CELLS                       FEC       449
                                                                                                                 FEC       450
                                        *         CHECK FOR *BRLI* REQUEST.                                      FEC       451
                                                                                                                 FEC       452
                                         .T       IFEQ   TEST,ON                                                 FEC       453
                                                  SA1    LINES       (X1) = LINE NR WITHIN THIS PGM UNIT         FEC       454
                                                  SA2    FI=BRLI     (X2) = *BRLI* LINE NR, IF REQUESTED         FEC       455
                                                  IX3    X1-X2                                                   FEC       456
                                                  BX6    X6-X6                                                   FEC       457
                                                  ZR     X2,FEC1     IF NO *BRLI* REQUESTED                      FEC       458
                                                  MI     X3,FEC1     IF NOT AT OR PAST SELECTED LINE NR          FEC       459
                                                  SA6    A2+         CLEAR *BRLI* LINE NR                        FEC       460
                                                                                                                 FEC       461
                                         BRLI     BREAK                                                          FEC       462
                                         FEC1     BSS    0                                                       FEC       463
                                         .T       ENDIF                                                          FEC       464
                                                                                                                 FEC       465
                                        *         CHECK TO SEE IF WE NEED TO LIST ANY LINES IN *T.STMT*          FEC       466
                                        *         THAT WERE SAVED IN *BEFORE HEADER* MODE.                       FEC       467
                                        *         SEE *LEXFLG/HDR* IN DECK *LEX* FOR MORE INFORMATION.           FEC       468
                                                                                                                 FEC       469
           322  5110000026 +                      SA1    STAGE                                                   FEC       470
                          5120000000 X            SA2    LEXFLG                                                  FEC       471
           323  7261777777                        SX6    X1-FEC=1ST                                              FEC       472
                                                  LX2    59-LF.HDRP                                              FEC       473
                          0306000325 +            ZR     X6,FEC1A    IF WE ARE IN *HEADER* STAGE                 FEC       474
           324  0322000325 +                      PL     X2,FEC1A    IF NOT IN *HEADER DELAY* MODE               FEC       475
                          0100000000 X            CALL   LDB         LIST DEFERRED BUFFER                        FEC       476
                                                                                                                 FEC       477
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    13
        FRONT END CONTROLLER.                                         FEC.RTN 
  
                                        *         CALL THE LEXICAL SCANNER TO ENTOKEN THE NEXT SOURCE STATEMENT. FEC       478
                                                                                                                 FEC       479
           325  0100000000 X             FEC1A    CALL   LEX         LEXICAL SCANNER                             FEC       480
                                                                                                                 FEC       481
                                        *         SET UP REFERENCE LINE NUMBER OF INITIAL LINE OF STMT           FEC       482
                                        *         FOR REF MAP GENERATION  (SEE *ERT*).                           FEC       483
                                                                                                                 FEC       484
           326  5150000000 X                      SA5    TB=NUML     (X5) = LINE NR OF INITIAL LINE OF STMT,     FEC       485
                                        *                                   -L- FORMAT                           FEC       486
                          6171000000              SB7    B1+         SET TO *DECIMAL CONVERSION*                 FEC       487
           327  0100000000 X                      CALL   DXB         CONVERT DECIMAL DPC TO BINARY               FEC       488
                                                                                                                 FEC       489
                                                  IFEQ   TEST,ON,1                                               FEC       490
                                                  NZ     X4,"BLOWUP" IF ERROR IN CONVERSION                      FEC       491
                                                                                                                 FEC       492
           330  5110000021 +                      SA1    REFLIN                                                  FC50096    28
                          20606                   LX6    XR.LINEP-0                                              FEC       493
                               37116              IX1    X1-X6                                                   FC50096    29
           331  0331000334 +                      MI     X1,FEC1B    IF SEQUENCE/LINE NUMBER IS ASCENDING        FC50096    30
                          6170000000 X            FATAL  E.SEQ       ** SEQUENCE NUMBER OUT OF ORDER             FC50096    31
           333  7160000000                        SX6    0           RESTART THE SEQUENCE NUMBERS                FC50096    32
                                                                                                                 FC50096    33
           334  5160000021 +             FEC1B    SA6    REFLIN                                                  FC50096    34
                          5110000026 +            SA1    STAGE                                                   FC50798     6
           335  7211777771                        SX1    X1-FEC=BY                                               FC50798     7
                          0301000370 +            ZR     X1,FEC.+FEC.BY  IF IN BYPASS MODE                       FC50798     8
           336  5150000000 X                      SA5    TB=TYPE                                                 FEC       495
                          0315000341 +            NZ     X5,FEC2     IF NOT UNTYPED                              FEC       496
           337  5110000030 +                      SA1    T=CONB                                                  FEC       497
                          10611                   BX6    X1                                                      FEC       498
           340  5160000000 X                      SHRINK T=CON,X6    RESTORE T=CON                               FEC       499
                          0400000000 X            EQ     E.FM        UNRECOGNIZED STATEMENT DIAG.                FEC       500
  
  
  
  
                                        ***       NOW FOR MISCELLANEOUS CHECKS ON THE PROPERTIES OF THE STMT.    FEC       502
                                        *                                                                        FEC       503
                                        *         SEE *KEYW* MACRO (IN DECK *LEX*) AND *KW.* STRUCTURE           FEC       504
                                        *         DEFINITIONS (IN *FTN5TXT*) FOR DEFINITIONS AND A DESCRIPTION   FEC       505
                                        *         OF ATTRIBUTES.                                                 FEC       506
                                                                                                                 FEC       507
                                                                                                                 FEC       508
                                        **        DIAGNOSE ILLEGAL STATEMENTS IN *BLOCKDATA* SUBPROGRAMS.        FEC       509
                                                                                                                 FEC       510
           341  5110000000 X             FEC2     SA1    MOD                                                     FEC       511
                          7140000400              SX4    MO.BLKM                                                 FEC       512
           342  11441                             BX4    X4*X1       FORM MASK (=1 IF BLOCKDATA)                 FEC       513
                     20435                        SBIT   X4,MO.BLKP/KW.BKDP                                      FEC       514
                          15445                   BX4    -X5*X4      ISOLATE *LEGAL IN BKD* BIT (IF IN BKD)      FEC       515
           343  0304000345 +                      ZR     X4,FEC3     IF NO BLOCK DATA PROBLEM                    FEC       516
                          6170000000 X            FATAL  E.MB                                                    FEC       517
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    14
        FRONT END CONTROLLER.                                         FEC.
  
                                        **        FEC. - STATEMENT TRANSITION TABLE EXECUTIVE.                   FEC       519
                                        *                                                                        FEC       520
                                        *         INSURE THAT THIS STATEMENT IS IN ITS PROPER PLACE.             FEC       521
                                                                                                                 FEC       522
                                                                                                                 FEC       523
           345  5150000000 X             FEC3     SA5    TB=TYPE                                                 FEC       524
                          10355                   BX3    X5                                                      FEC       525
                               43067              MX0    -KW.FECL                                                FEC       526
           346  5140000026 +                      SA4    STAGE                                                   FEC       527
                          20343                   LX3    -KW.FECP                                                FEC       528
                               15230              BX2    -X0*X3      ISOLATE STATEMENT STAGE NUMBER              FEC       529
           347  5212000301 +                      SA1    X2+FEC=     FETCH STAGE VECTOR                          FEC       530
                          20403                   LX4    3           = ACTUAL (STAGE) * 8                        FEC       531
                               63740              SB7    X4                                                      FEC       532
           350  43064                             MX0    -8                                                      FEC       533
                     23171                        AX1    B7                                                      FEC       534
                          15210                   BX2    -X0*X1      ISOLATE COLUMN                              FEC       535
                               63220              SB2    X2                                                      FEC       536
           351  0222000352 +                      JP     B2+FEC.                                                 FEC       537
                                                                                                                 FEC       538
           352                           FEC.     BSS    0           BASE OF STAGE ACTIONS TABLE.                FEC       539
      L      0                                    LOC    0                                                       FEC       540
                                                                                                                 FEC       541
      L      0  0100000000 X             FEC.IMP  CALL   PSF         SET STAGE = IMP                             FEC       542
      L      1  0400000345 +                      EQ     FEC3                                                    FEC       543
                                                                                                                 FEC       544
      L      2  76611                    FEC.DEC  =X6    FEC=DEC     SET STAGE = DEC                             FEC       545
                     54640                        SA6    A4                                                      FEC       546
                          0400000345 +            EQ     FEC3                                                    FEC       547
                                                                                                                 FEC       548
      L      3  0100000000 X             FEC.STF  CALL   PCD         SET STAGE = STF                             FEC       549
      L      4  0100001044 +                      RJ     OIL         OUTPUT IL FOR PRE-EXECUTABLES               FEC       550
      L      5  0400000345 +                      EQ     FEC3                                                    FEC       551
                                                                                                                 FEC       552
      L      6  7160000004               FEC.EXU  =X6    FEC=EXU     SET STAGE = EXU                             FEC       553
                          54640                   SA6    A4                                                      FEC       554
      L      7  5110000000 X                      SA1    =XTV=EXU                                                FC5A128   289
                          10711                   BX7    X1                                                      FC5A128   290
      L     10  5170000000 X                      SA7    =XTV=CUR    SET CURRENT PHASE TO EXU (FOR ALLOC)        FC5A128   291
                          43601                   MX6    1                                                       FC51554     6
                               20622              LX6    1+WA.NFPP                                               FC51554     7
      L     11  5160000031 +                      SA6    WANFP       SET CANNOT BE *FP* FLAG                     FC51554     8
                          0400000345 +            EQ     FEC3                                                    FEC       555
                                                                                                                 FEC       556
                                                                                                                 FEC       557
      L     12  0400000000 X             FEC.EMA  EQ     E.MA        MISPLACED STATEMENT FUNCTION                FEC       558
      L     13  0400000000 X             FEC.EMD  EQ     E.MD        MISPLACED DECLARATIVE STATEMENT             FEC       559
      L     14  0400000000 X             FEC.EMH  EQ     E.MH        MISPLACED HEADER STATEMENT                  FEC       560
      L     15  0400000000 X             FEC.EMI  EQ     E.MI        MISPLACED IMPLICIT STATEMENT                FEC       561
                                                                                                                 FEC       562
      L     16  5110000000 X             FEC.BY   SA1    TB=TYPE                                                 FC50600     4
                          20127                   SBIT   X1,KW.PWSP                                              FEC       567
      L     17  0321000321 +                      PL     X1,FEC.RTN  IF NOT PROCESS ALWAYS STATEMENT             FEC       568
                                                                                                                 FEC       569
      L     20                           FEC.FMT  BSS    0                                                       FEC       570
      L     20                           FEC.OK   BSS    0           PROPERLY POSITIONED.                        FEC       571
           372                                    LOC    *O                                                      FEC       572
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    15
        FRONT END CONTROLLER.                                         FEC.
  
           372  5110000000 X                      SA1    TB=LABR                                                 FEC       573
                          0301000375 +            ZR     X1,FEC3A    IF NO LABEL                                 FEC       574
           373  5130000000 X                      SA3    TB=LABL                                                 FEC       575
                          10611                   BX6    X1                                                      FEC       576
                               10733              BX7    X3                                                      FEC       577
           374  5170000000 X                      SA7    FILL.                                                   FEC       578
                          0100000000 X            CALL   GSL         GET STATEMENT LABEL                         FEC       579
                                                                                                                 FEC       580
                                        **               IF THIS IS A CODE-GENERATING STATEMENT, INVOKE *CUS* TO FEC       581
                                        *         FINISH UP ANY INCOMPLETE STUFF FROM PREVIOUS STATEMENT,        FEC       582
                                        *         AND PROCESS THE LABEL.                                         FEC       583
                                                                                                                 FEC       584
           375  5150000000 X             FEC3A    SA5    TB=TYPE                                                 FEC       585
                          20525                   SBIT   X5,KW.GENP                                              FEC       586
           376  0325000377 +                      PL     X5,FEC4     IF STATEMENT DOES NOT GENERATE TURPLES      FC50069     5
                          0100000716 +            RJ     CUS         CHECK UPCOMING STATEMENT                    FEC       589
                                                                                                                 FC50069     6
           377  5150000000 X             FEC4     SA5    TB=TYPE                                                 FEC       590
                          5110000006 +            SA1    DTI                                                     FEC       591
           400  20522                             SBIT   X5,KW.DONP                                              FEC       592
                     0301000403 +                 ZR     X1,FEC5     IF NO DO TERMINATION                        FEC       593
           401  0325000403 +                      PL     X5,FEC5     IF NOT DO TERMINAL                          FEC       594
                          6170000000 X            FATAL  E.MDO       *ILLEGAL DO TERMINAL*                       FEC       595
           403                           FEC5     BSS    0                                                       FEC       596
                                                                                                                 FEC       597
                                                                                                                 FEC       598
                                        **               LOGICAL (1-BRANCH) IF PROCESSOR RETURNS TO HERE AFTER   FEC       599
                                        *         DETERMINING STATEMENT TYPE AND LEGALITY.                       FEC       600
                                                                                                                 FEC       601
           403                           FEC.RIF  BSSENT 0           ...RETURN FROM 1-BRANCH IF.                 FEC       602
           403  5110000000 X                      SA1    TB=1ST                                                  FEC       603
                          63410                   =B4    X1                                                      FEC       604
                                                                                                                 FEC       605
                                                                                                                 FEC       606
                                        **        JUMP - TO COMPILE THE STATEMENT.                               FEC       607
                                                                                                                 FEC       608
           404  5150000000 X                      SA5    TB=TYPE                                                 FEC       609
                          20522                   LX5    0-KW.JMPP                                               FEC       610
                               63650              SB6    X5                                                      FEC       611
           405  0266000000                        JP     B6          COMPILE STATEMENT, RETURN TO FEC THROUGH    FEC       612
                                                                     ENTRIES OF THE FORM *FEC.RXX*               FEC       613
  
  
  
  
                                        **        FEC.RTF - RETURN TO TERMINATE FRONT END PROCESSING.            FEC       615
                                                                                                                 FEC       616
                                                                                                                 FEC       617
           406                           FEC.RTF  BSSENT 0           ...RETURN TO TERMINATE FRONT END            FEC       618
           406  5110000000 X                      SA1    WO.LOS      SOURCE LISTING FLAG (WORKING)               FEC       619
                          0301000410 +            ZR     X1,FEC7     IF NOT IN *LIST* MODE                       FEC       620
           407  0100000000 X                      CALL   LDB         LIST DEFERRED BUFFER                        FEC       621
                                                                                                                 FEC       622
           410  0100001044 +             FEC7     RJ     OIL         FLUSH I.L.                                  FEC       623
           411  0100000561 +                      RJ     CLU         CHECK LEVEL USAGE                           FC5A129     4
           412  0100001016 +                      CALL   FVD         FLUSH VARIABLE DIMENSIONS                   FEC       624
           413  13444                             BX4    0                                                       FEC       625
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    16
        FRONT END CONTROLLER.                                         FEC.RTF 
  
                     43500                        MX5    0                                                       FEC       626
                          6130000000 X            EMIT   V=FIN       OUTPUT FINIS TURPLE                         FEC       627
           415  0100001044 +                      CALL   OIL         OUTPUT REMAINING IL                         FEC       628
           416  76600                             SHRINK T=STF,0                                                 FEC       629
           417  5160000000 X                      SHRINK T=TB,X6                                                 FEC       630
                          5160000000 X            SHRINK T=SCR,X6                                                FEC       631
           420  0100000517 +                      RJ     CAC         CHECK ASSUMED LENGTH CHARACTER              FEC       632
           421  0100000621 +                      RJ     CUF         CHECK UNDEFINED FUNCTION                    FEC       633
           422  0100000647 +                      RJ     CUL         CHECK UNDEFINED LABELS                      FEC       634
           423  0100001316 +                      RJ     SSU         SET SAVE BIT FOR UNIVERSAL SAVE             FEC       635
           424  0100001222 +                      RJ     RLS         RELOCATE LOCAL SAVED VARIABLES              FEC       636
           425  0100000747 +                      RJ     CVD         CHECK VARIABLE DIMENSION IRREGULARITIES     FEC       638
           426  0100000000 X                      CALL   MAL         MARK ASSIGN GOTO/ED LOOPS WITH ENTRIES      FC5A177     9
           427  76600                             SHRINK T=STMT,0                                                FEC       639
           430  5160000000 X                      SA6    SB=LINC                                                 FEC       640
                          5160000000 X            SA6    SB=LORD                                                 FEC       641
           431  5110000000 X                      SA1    CO.ANSI                                                 FC5A255     8
                          0301000000 X            ZR     X1,FEL.RTN  IF ANSI NOT REQUESTED                       FC5A255     9
           432  0100000542 +                      RJ     CBN         CHECK COMMON BLOCK NAME MISUSE              FC5A255    10
           433  5110000000 X                      SA1    CO.SEQ                                                  FC5A335     8
                          0301000000 X            ZR     X1,FEL.RTN  IF NOT SEQ MODE                             FC5A335     9
           434  6170000000 X                      ANSI   E.ANS1      **SEQ MODE NON ANSI                         FC5A335    10
           435  0400000000 X                      EQ     FEL.RTN     EXIT TO FRONT END LOADER...                 FEC       642
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    17
        SUBROUTINES.                                                  ASK 
  
                                        **        ASK -  ADJUST STATEMENT KEYWORD.                               FEC       645
                                        *                                                                        FEC       646
                                        *         REMOVES A KEYWORD FROM THE TOKEN BUFFER, *T.TB*,               FEC       647
                                        *         AND ADJUSTS THE REMAINING CHARACTERS.                          FEC       648
                                        *                                                                        FEC       649
                                        *                ** IMPORTANT MESSAGE **                                 FEC       650
                                        *                                                                        FEC       651
                                        *         THIS ROUTINE EXISTS ONLY SO THAT *ASL* CAN CALL IT             FEC       652
                                        *         TO STRIP OFF THE LABEL FOR THE *DO* AND *ASSIGN* STMTS.        FEC       653
                                        *         THE NEW SCANNER (LEX) DOES NOT REQUIRE *ASK* AND IT EXISTS     FEC       654
                                        *         ONLY BECAUSE I (PXC) DID NOT WANT TO DEAL WITH THIS            FEC       655
                                        *         SPECIAL *ASL/ASK* INTERFACE AT THE CURRENT TIME.  THAT IS,     FEC       656
                                        *         I INTEND ON CLEANING THIS UP, AND REMOVING *ASK* ALL TOGETHER. FEC       657
                                        *                                                                        FEC       658
                                        *         **NOTE - MRR**  ASK IS CALLED BY ASSIGN AND TYPE DECLARATIONS  FEC       659
                                        *         TO ADJUST IMBEDDED KEYWORDS (*TO* AND *FUNCTION*). THUS ASK,   FEC       660
                                        *         OR SOME SUBSTITUTE WILL BE NEEDED.                             FEC       661
                                        *         ***************                                                FEC       662
                                        *                                                                        FEC       663
                                        *         V E R Y   I M P O R T A N T   M E S S A G E                    FEC       664
                                        *                                                                        FEC       665
                                        *         IF U CALL THIS ROUTINE, U ***MUST*** MANUFACTURE A DUMMY       FEC       666
                                        *         *JUMPTO.* WORD.  ***DONT*** USE THIS ROUTINE.                  FEC       667
                                        *                                                                        FEC       668
                                        *         ***************                                                FEC       669
                                        *                                                                        FEC       670
                                        *                           * * *                                        FEC       671
                                        *                                                                        FEC       672
                                        *         ENTRY  (X5) = (JUMPTO. TABLE ENTRY)                            FEC       673
                                        *                (B4) _ KEYWORD IN *TB*                                  FEC       674
                                        *                                                                        FEC       675
                                        *         EXIT   (B4) _ *TB* ENTRY PAST KEYWORD                          FEC       676
                                        *                (B3) = JUMP ADDRESS FOR THE STATEMENT PROCESSOR         FEC       677
                                        *                (X3) = 0 IFF KEYWORD WAS CORRECTLY SPELLED.             FEC       678
                                        *                                                                        FEC       679
                                        *         USES   X - ALL                                                 FEC       680
                                        *                A - 2,4,6                                               FEC       681
                                        *                B - ALL BUT B5                                          FEC       682
                                        *                                                                        FEC       683
                                        *         CALLS  NONE                                                    FEC       684
                                                                                                                 FEC       685
                                                                                                                 FEC       686
                                        *         HERE WE THROW AWAY INTEGERAL WORDS (MULTIPLES OF 7 CHARS).     FEC       687
                                                                                                                 FEC       688
           436  67271                    ASK8     SB2    B7-B1       BIT COUNT = BITCOUNT MINUS 7CHARS           FEC       689
                     66441                        SB4    B4+B1                                                   FEC       690
                          11672                   BX6    X7*X2                                                   FEC       691
                               37336              IX3    X3-X6       COMPARE KEYWORD (1ST 7 CHAR)                FEC       692
           437  0570000451 +                      NZ     B7,ASK2     IF MORE THAN 7 CHARACTERS IN KEY            FEC       693
                                                                                                                 FEC       694
           440  0400400440 +             ASK      SUBR   =           ENTRY/EXIT...                               FEC       695
           441  43030                             MX0    4*CHAR                                                  FEC       696
                     63350                        SB3    X5                                                      FEC       697
                          57431                   SA4    B3-B1       HIJKLMNEFG  WHERE A-N ARE CHARS IN KEYWORD  FEC       698
                               11305              BX3    X0*X5       ABCD------                                  FEC       699
           442  20552                             LX5    -18         *** KLUDGE ***                              FEC       700
                     73140                        SX1    X4          -------EFG                                  FEC       701
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    18
        SUBROUTINES.                                                  ASK 
  
                          43263                   MX2    -9          *** KLUDGE ***                              FEC       702
                               37641              IX6    X4-X1       HIJKLMN---                                  FEC       703
           443  15752                             BX7    -X2*X5      ISOLATE BIT COUNT                           FEC       704
                     6227777747                   SB2    X7-4*CHAR                                               FEC       705
           444  0720000446 +                      MI     B2,ASK1     IF 4 CHARACTER KEYWORD (OR LESS)            FEC       706
                          43052                   MX0    7*CHAR                                                  FEC       707
                               56240              SA2    B4                                                      FEC       708
           445  11202                             BX2    X0*X2                                                   FEC       709
                     13223                        BX2    X2-X3                                                   FEC       710
                          0302000000 X            ZR     X2,E.FM     IF NOT ACTUALLY KEYWORD                     FEC       711
           446  63270                    ASK1     SB2    X7                                                      FEC       712
                     20122                        LX1    3*CHAR      ----EFG---                                  FEC       713
                          12413                   BX4    X1+X3       ABCDEFG---                                  FEC       714
           447  5160000000 X                      SA6    FILL.2      SAVE KEYWORD FOR POSSIBLE ERROR MSG         FEC       715
                          36346                   IX3    X4+X6                                                   FEC       716
                               43752              MX7    7*CHAR                                                  FEC       717
           450  10644                             BX6    X4                                                      FEC       718
                     55661                        SA6    A6-B1                                                   FEC       719
                                                                                                                 FEC       720
           451  56240                    ASK2     SA2    B4                                                      FEC       721
                     6172777726                   SB7    B2-7*CHAR+1                                             FEC       722
           452  6262777766                        SB6    X2-O.VAR                                                FEC       723
                          7212777772              SX1    X2-O.CONS                                               FEC       724
           453  0460000455 +                      ZR     B6,ASK3     IF ALPHA STRING                             FEC       725
                          0301000455 +            ZR     X1,ASK3     IF DIGIT STRING                             FEC       726
           454  0400000440 +                      EQ     EXIT.                                                   FEC       727
                                                                                                                 FEC       728
           455  0670000436 +             ASK3     PL     B7,ASK8     IF SEVEN OR MORE CHARACTERS                 FEC       729
                          43401                   MX4    1                                                       FEC       730
                               66640              SB6    B4                                                      FEC       731
           456  23024                             AX0    X4,B2       MASK FOR UPPER PART                         FEC       732
                     11102                        BX1    X0*X2                                                   FEC       733
                          37331                   IX3    X3-X1       COMPARE KEYWORD                             FEC       734
           457  6172000023                        SB7    B2+18+1                                                 FEC       735
                          66221                   SB2    B2+B1                                                   FEC       736
                               13770              BX7    X7-X0       MASK FOR MIDDLE PART                        FEC       737
           460  11172                             BX1    X7*X2                                                   FEC       738
                     22621                        LX6    X1,B2                                                   FEC       739
                          10166                   BX1    X6                                                      FEC       740
                               20606              LX6    6                                                       FEC       741
           461  7140000011                        =X4    O.VAR                                                   FEC       742
                          7266777744              SX6    X6-1R0                                                  FEC       743
           462  0336000463 +                      MI     X6,ASK4     IF LETTER                                   FEC       744
                          7140000005              =X4    O.CONS                                                  FEC       745
                                                                                                                 FEC       746
                                        *         NOW AN OFFSET CHARACTER MOVE UNTIL WE RUN INTO A SEPARATOR.    FEC       747
                                                                                                                 FEC       748
           463  56261                    ASK4     SA2    B6+B1                                                   FEC       749
                     7262777766                   SX6    X2-O.VAR                                                FEC       750
           464  0306000466 +                      ZR     X6,ASK5     IF ALPHA STRING                             FEC       751
                          7262777772              SX6    X2-O.CONS                                               FEC       752
           465  0306000466 +                      ZR     X6,ASK5     IF DIGIT STRING                             FEC       753
                          0400000471 +            EQ     ASK6                                                    FEC       754
                                                                                                                 FEC       755
           466  11602                    ASK5     BX6    X0*X2                                                   FEC       756
                     22676                        LX6    B7          MOVE NEXT UPPER TO RESULT MIDDLE            FEC       757
                          36661                   IX6    X6+X1                                                   FEC       758
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    19
        SUBROUTINES.                                                  ASK 
  
                               66661              SB6    B6+B1                                                   FEC       759
           467  12664                             BX6    X6+X4       RESTORE O.VAR (OR O.CONS)                   FEC       760
                     57661                        SA6    B6-B1                                                   FEC       761
                          11672                   BX6    X7*X2                                                   FEC       762
                               22126              LX1    X6,B2       MOVE CURRENT MIDDLE TO RESULT UPPER         FEC       763
           470  0400000463 +                      EQ     ASK4                                                    FEC       764
                                                                                                                 FEC       765
                                        *         HAVE FOUND A STOPPER, IS A MOVE NEEDED QQQ.                    FEC       766
                                                                                                                 FEC       767
           471  12641                    ASK6     BX6    X4+X1                                                   FEC       768
                     56660                        SA6    B6          STORE ANY REMAINING PARTIAL WORD            FEC       769
                          0311000440 +            NZ     X1,EXIT.    IF THERE WAS ANYTHING IN THE PARTIAL WORD   FEC       770
                                                                                                                 FEC       771
           472  66441                             =B4    B4+1        *TB* MUST BE ADJUSTED                       FEC       772
           473  57261                    ASK7     SA2    B6-B1                                                   FEC       773
                     67661                        SB6    B6-B1       COUNT DOWN THE AUXILLARY COUNTER            FEC       774
                          10622                   BX6    X2                                                      FEC       775
                               54621              SA6    A2+B1                                                   FEC       776
           474  0664000473 +                      GE     B6,B4,ASK7        IF NOT YET TO FRONT OF STRING         FEC       777
                          0400000440 +            EQ     EXIT.                                                   FEC       778
  
  
  
  
                                        **        ASL -  ADJUST STATEMENT LABEL.                                 FEC       780
                                        *                                                                        FEC       781
                                        *         SPECIAL KLUDGE FOR *DO* AND *ASSIGN* STATEMENTS.  DETERMINES   FEC       782
                                        *         LENGTH OF STATEMENT LABEL IN *TB*, AND CALLS *ASK* TO REMOVE   FEC       783
                                        *         IT FROM THE STRING.  THUS, THESE POOR STATEMENTS CAN GET AT    FEC       784
                                        *         THE NEXT ELEMENT OF THE STATEMENT IN THE USUAL FASHION.        FEC       785
                                        *                                                                        FEC       786
                                        *         ENTRY  (B4) _ LABEL IN *TB*                                    FEC       787
                                        *                                                                        FEC       788
                                        *         EXIT   (B4) _ TOKEN (LOGICAL) FOLLOWING STATEMENT LABEL        FEC       789
                                        *                (X1) = 0L_LABEL + O.CON.                                FEC       790
                                        *                *TB* ADJUSTED, AS DEFINED BY *ASK*                      FEC       791
                                        *                                                                        FEC       792
                                        *         USES   ALL BUT A0.                                             FEC       793
                                        *                (SCR).                                                  FEC       794
                                        *         CALLS  ASK.                                                    FEC       795
                                                                                                                 FEC       796
                                                                                                                 FEC       797
           475  0400400475 +             ASL      SUBR   =           ENTRY/EXIT...                               FEC       798
           476  6150777772                        SB5    -O.CONS                                                 FEC       799
                          5120001750 +            SA2    =05050505050505BS18                                     FEC       800
           477  5130001751 +                      SA3    =40404040404040BS18                                     FEC       801
                          66600                   SB6    B0          INITIALIZE *SB* POINTER                     FEC       802
                               56140              SA1    B4          (X1) = START OF LABEL                       FEC       803
           500  36412                    ASL1     IX4    X1+X2       SET SIGN BITS OF DIGITS                     FEC       804
                     16743                        BX7    -X3+X4      ISOLATE NON-DIGITS                          FEC       805
                          0317000504 +            NZ     X7,ASL2     IF NOT 7-DIGITS                             FEC       806
           501  66661                             =B6    B6+B1       UPDATE *SB* POINTER                         FEC       807
                     56146                        SA1    B4+B6       PICK UP NEXT *SB* ENTRY                     FEC       808
                          73515                   SX5    X1+B5                                                   FEC       809
           502  0305000500 +                      ZR     X5,ASL1     IF STILL A CONSTANT                         FEC       810
                          67201                   =B2    -1                                                      FEC       811
           503  0400000506 +                      EQ     ASL3                                                    FEC       812
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    20
        SUBROUTINES.                                                  ASL 
  
                                                                                                                 FEC       813
           504  20760                    ASL2     LX7    -12                                                     FEC       814
                     24227                        NX2,B2 X7          LOCATE FIRST NON-DIGIT                      FEC       815
                          67221                   =B2    B2-1                                                    FEC       816
                               43001              MX0    1                                                       FEC       817
           505  23420                             AX4    X0,B2       MASK LENGTH = DIGIT LENGTH                  FEC       818
                     0460000507 +                 ZR     B6,ASL4     IF LABEL ONLY 1 WORD LONG                   FEC       819
           506  43452                    ASL3     MX4    7*CHAR                                                  FEC       820
                     56140                        SA1    B4          RESET (X1) = START OF LABEL                 FEC       821
                          66446                   SB4    B4+B6       SET B4 TO LAST WORD OF LABEL                FEC       822
           507  11641                    ASL4     BX6    X4*X1                                                   FEC       823
                     0720000514 +                 MI     B2,ASL5     IF LABEL MULTIPLE OF 7 CHARACTERS           FEC       824
                               76320              SX3    B2                                                      FEC       825
           510  43463                             MX4    -9          *** KLUDGE ***                              FEC       826
                     7150001753 +                 SX5    1+=0                                                    FEC       827
                               15334              BX3    -X4*X3                                                  FEC       828
           511  20322                             LX3    18          *** KLUDGE ***                              FEC       829
                     5160000000 X                 SA6    SCR                                                     FEC       830
                               36553              IX5    X5+X3       MANUFACTURE DUMMY *SATTR* WORD FOR *ASK*    FEC       831
           512  0100000440 +                      RJ     ASK         ADJUST OFF THE LABEL                        FEC       832
           513  5110000000 X                      SA1    SCR                                                     FEC       833
                          0400000475 +            EQ     EXIT.                                                   FEC       834
                                                                                                                 FEC       835
           514  56140                    ASL5     SA1    B4                                                      FEC       836
                     73515                        SX5    X1+B5                                                   FEC       837
                          0315000516 +            NZ     X5,ASL6     IF NOT CONSTANT                             FEC       838
           515  7140000004                        SX4    O.VAR-O.CONS                                            FEC       839
                          36714                   IX7    X1+X4                                                   FEC       840
                               56740              SA7    B4                                                      FEC       841
           516  10166                    ASL6     BX1    X6                                                      FEC       842
                     0400000475 +                 EQ     EXIT.                                                   FEC       843
  
  
  
  
                                        **        CAC -  CHECK ASSUMED LENGTH CHARACTER DECLARATIONS             FEC       845
                                        *                                                                        FEC       846
                                        *         OUTPUTS DIAGNOSTIC FOR ILLEGAL ASSUMED LENGTH CHARACTER.       FEC       847
                                                                                                                 FEC       848
                                                                                                                 FEC       849
           517  0400400517 +             CAC      SUBR   0           ...ENTRY/EXIT...                            FEC       850
           520  5110000000 X                      SA1    CHARDCL                                                 FEC       851
                          0301000517 +            ZR     X1,EXIT.    IF NO TYPE CHARACTER DECLARATIONS           FEC       852
           521  5130000000 X                      SA3    T.SYM                                                   FEC       853
                          5120000000 X            SA2    T=SYM                                                   FEC       854
           522  6130000003                        SB3    Z=SYM                                                   FEC       855
                          5243777775              SA4    X3-Z=SYM+WB.W     INITIALIZE FETCH REGISTER             FEC       856
           523  63420                             SB4    X2                                                      FEC       857
                     43071                        MX0    -WB.MODEL                                               FEC       858
                          5110000000 X            SA1    S=VALUE                                                 FEC       865
           524  63510                             SB5    X1                                                      FEC       866
                     20101                        LX1    1                                                       FEC       867
                          73115                   SX1    X1+B5       CONVERT ORDINAL TO INDEX                    FEC       868
                                   0              ERRNZ  3-Z=SYM                                                 FEC       869
                               63511              =B5    X1-WA.W+WB.W                                            FEC       870
           525  63535                             SB5    B5+X3       ADD IN T.SYM ADDR                           FEC       871
                                                                                                                 FEC       873
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    21
        SUBROUTINES.                                                  CAC 
  
           526  54443                    CAC1     SA4    A4+B3                                                   FEC       874
                     0440000517 +                 ZR     B4,EXIT.    IF TABLE EXHAUSTED                          FEC       875
                               67443              SB4    B4-B3                                                   FEC       876
                                                  LX4    -WB.MODEP                                               FEC       877
           527  15340                             BX3    -X0*X4      EXTRACT MODE                                FEC       878
                                                  LX4    WB.MODEP                                                FEC       879
                     6223777771                   SB2    X3-M.CHAR                                               FEC       880
           530  0520000526 +                      NZ     B2,CAC1     IF NOT TYPE CHARACTER                       FEC       881
                          54141                   =A1    A4-WB.W+WC.W                                            FEC       882
                               20136              HX1    WC.CTYP                                                 FEC       883
           531  0321000526 +                      PL     X1,CAC1     IF NOT ASSUMED LENGTH                       FEC       884
                          20453                   HX4    WB.FP                                                   FEC       885
           532  0334000526 +                      MI     X4,CAC1     IF FORMAL PARAMETER                         FEC       886
                          20403                   SBIT   X4,WB.ENTP/WB.FPP                                       FC51048     8
           533  0334000526 +                      MI     X4,CAC1     IF ENTRY POINT                              FC51048     9
                          65745                   SB7    A4-B5                                                   FEC       888
           534  0570000536 +                      NZ     B7,CAC5     IF NOT 1ST VALUE. SYMBOL                    FEC       890
                          5044000022              SA4    A4+Z=SYM*M.CHAR   SKIP OVER REST OF VALUE. SYMBOLS      FEC       891
           535  0400000526 +                      EQ     CAC1                                                    FEC       892
                                                                                                                 FEC       893
           536  55141                    CAC5     =A1    A4-WB.W+WA.W                                            FEC       894
                     43352                        MX3    WA.SYML                                                 FEC       895
                          11631                   BX6    X3*X1       NAME ONLY                                   FEC       896
           537  5160000000 X                      SA6    FILL.                                                   FEC       897
                          6170000000 X            FATAL  E.TY7                                                   FEC       898
           541  0400000526 +                      EQ     CAC1                                                    FEC       899
  
  
  
  
                                        **        CBN -  CHECK COMMON BLOCK NAMES                                FC5A255    12
                                        *                                                                        FC5A255    13
                                        *         CHECK FOR NON-ANSI USAGE OF COMMON BLOCK NAMES IN PROGRAM UNIT FC5A255    14
                                        *                                                                        FC5A255    15
                                        *         CALLS  SSY                                                     FC5A255    16
                                                                                                                 FC5A255    17
                                                                                                                 FC5A255    18
           542  0400400542 +             CBN      SUBR               ...ENTRY/EXIT...                            FC5A255    19
           543  5110000000 X                      SA1    T=BLKS                                                  FC5A255    20
                          6231777775              SB3    X1-Z=BLKS                                               FC5A255    21
           544  5150000000 X                      SA5    T.BLKS                                                  FC5A255    22
                                                                                                                 FC5A255    23
           545  53153                    CBN1     SA1    X5+B3                                                   FC5A255    24
                     0430000542 +                 ZR     B3,EXIT.    IF FINISHED                                 FC5A255    25
           546  6133777775                        SB3    B3-Z=BLKS                                               FC5A255    26
                          43052                   MX0    CA.BNAML                                                FC5A255    27
                               11601              BX6    X0*X1                                                   FC5A255    28
                                   0              ERRNZ  CA.BNAML-WA.SYML                                        FC5A255    29
           547  5160000000 X                      SA6    FILL.                                                   FC5A255    30
                          0100001730 +            RJ     SSY         SCAN SYMBOL TABLE                           FC5A255    31
           550  0770000545 +                      MI     B7,CBN1     IF SYMBOL NOT USED (EXCEPT AS COMMON BLOCK) FC5A255    32
                          5130001753 +            CLAS=  X3,WB,(INTF,DEXT,GENF,EXT,ENT,FUN,SUB,PARM)             FC5A255    33
           551  11332                             BX3    X3*X2                                                   FC5A255    34
                     0303000545 +                 ZR     X3,CBN1     IF NO INVALID USAGE                         FC5A255    35
                               24373              NX3,B7                                                         FC5A255    36
           552  20257                             SBIT   X2,WB.FUNP                                              FC50608     5
                     0322000555 +                 PL     X2,CBN2     IF NOT FUNCTION                             FC50608     6
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    22
        SUBROUTINES.                                                  CBN 
  
                               54221              =A2    A2-WB.W+WC.W                                            FC50608     7
           553  43071                             MX0    -WC.FUNTL                                               FC50608     8
                     20203                        LX2    -WC.FUNTP                                               FC50608     9
                          15220                   BX2    -X0*X2      EXTRACT FUNCTION TYPE                       FC50608    10
           554  7222777776                        SX2    X2-MF.STF                                               FC50608    11
                          0302000545 +            ZR     X2,CBN1     IF STATEMENT FUNCTION, NO CONFLICT          FC50608    12
                                                                                                                 FC50608    13
           555  6120000057 X             CBN2     SB2    CLASS+47                                                FC50608    14
                          57327                   SA3    B2-B7       FETCH ERRLIT OF INVALID USAGE               FC5A255    38
                               10633              BX6    X3                                                      FC5A255    39
           556  5160000000 X                      SA6    FILL.2                                                  FC5A255    40
                          6170000000 X            ANSI   E.CM8                                                   FC5A255    41
           560  0400000545 +                      EQ     CBN1                                                    FC5A255    42
  
  
  
  
                                        **        CLU  - CHECK "LEVEL" USAGE.                                    FEC       901
                                        *         CHECKS THAT EACH LEVELED NON- COMMON NAME IS A FORMAL          FEC       902
                                        *         PARAMETER.                                                     FEC       903
                                        *         SETS LEV0[FPI] FOR LEVEL 0 FORMAL PARAMS.                      FEC       904
                                        *         CALLS  NONE                                                    FEC       905
                                                                                                                 FEC       906
                                                                                                                 FEC       907
           561  0400400561 +             CLU      SUBR   0                                                       FEC       908
           562  5110000000 X                      SA1    LEVEL                                                   FEC       909
                          5120000000 X            SA2    T=SYM                                                   FEC       910
           563  0301000561 +                      ZR     X1,EXIT.    IF NO LEVEL STATEMENTS                      FEC       911
                          5130000000 X            SA3    T.SYM                                                   FEC       912
           564  5140000000 X                      SA4    T.FPI                                                   FEC       913
                          63620                   SB6    X2          (B6) = NO. OF T.SYM WORDS TO EXAMINE        FEC       914
           565  6274777776                        SB7    X4-1                                                    FEC       915
                          6130000003              =B3    Z=SYM                                                   FEC       916
           566  5233777775                        =A3    X3-Z=SYM+WB.W                                           FEC       917
                          5150001754 +            CLAS=  X5,WB,(LEVN)                                            FEC       918
           567  5140001755 +                      CLAS=  X4,WB,(LEV,LEVN)                                        FEC       919
                          7110300000              CLAS=  X1,WB,(FP,COM)                                          FEC       920
           570  0400000576 +                      EQ     CLU10                                                   FEC       921
                                                                                                                 FEC       922
           571  20356                    CLU5     LX3    WB.LABP-WB.LCMP                                         FC5A135     4
                     43601                        MX6    1                                                       FEC       924
                          0323000576 +            PL     X3,CLU10    IF NOT LCM                                  FEC       925
           572  20322                             LX3    1+WB.LCMP                                               FEC       926
                     11053                        BX0    X5*X3                                                   FEC       927
                          20671                   LX6    1+FP.LEV0P                                              FEC       928
           573  0310000576 +                      NZ     X0,CLU10    IF LEVEL NE 0                               FEC       929
                          43063                   MX0    -WB.FPNOL                                               FEC       930
                               20333              LX3    -WB.FPNOP                                               FEC       931
           574  15030                             BX0    -X0*X3                                                  FEC       932
                     53207                        SA2    B7+X0                                                   FEC       933
                          12662                   BX6    X6+X2                                                   FEC       934
                               54620              SA6    A2          SET LEV0[FPI ENTRY]                         FEC       935
           575  5160000000 X                      SA6    LEVEL0      LEVEL0 NZ FOR PASS 2                        FEC       936
                                                                                                                 FEC       937
           576  54333                    CLU10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                     FEC       938
                     55231                        =A2    A3-WB.W+WA.W      WAI = WA ENTRY OF T.SYM               FEC       939
                          43652                   MX6    WA.SYML                                                 FEC       940
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    23
        SUBROUTINES.                                                  CLU 
  
                               11662              BX6    X6*X2                                                   FEC       941
           577  0460000561 +                      ZR     B6,EXIT.    IF DONE                                     FEC       942
                          11013                   BX0    X1*X3                                                   FEC       943
                               15734              BX7    -X4*X3                                                  FEC       944
           600  67663                             SB6    B6-B3                                                   FEC       945
                     20340                        HX3    WB.LEV                                                  FEC       946
                          5160000000 X            SA6    FILL.       STORE NAME IN MESSAGE                       FEC       947
           601  0323000576 +                      PL     X3,CLU10    IF NOT LEVELED                              FEC       948
                          20330                   LX3    WB.LEVP-WB.LABP                                         FC5A135     5
           602  0333000576 +                      MI     X3,CLU10    IF LABEL LEVEL BITS NOT DEFINED             FC5A135     6
                          20054                   HX0    WB.COM                                                  FEC       949
           603  0330000576 +                      MI     X0,CLU10    IF COMMON                                   FEC       950
                          0310000571 +            NZ     X0,CLU5     IF F.P.                                     FEC       951
           604  6170000000 X                      FATAL  E.LV6       LEVEL DECLARATION ON NON F.P. ITEM          FEC       952
           605  54730                             SA7    A3          (LEV,LEVN) [WBI] = 0                        FEC       953
                     0400000576 +                 EQ     CLU10                                                   FEC       954
  
  
  
  
                                        **        CSB -  CHECK SEQUENCE BREAK.                                   FEC       956
                                        *                                                                        FEC       957
                                        *                DECIDES WHETHER A SEQUENCE BREAK (END OF BASIC BLOCK)   FEC       958
                                        *         IS NECESSARY. IF SO, CALLS *OIL* TO OUTPUT THE IL.             FEC       959
                                        *         IF A LABEL IS TO BE DEFINED, THE IL WILL BE FLUSHED.           FEC       960
                                        *                                                                        FEC       961
                                        *         IF THE CURRENT ACCUMULATED IL SEGMENT IS LARGE, IT WILL        FEC       962
                                        *         BE FLUSHED.  THEREFORE CSB MUST NOT BE CALLED IF THE IL        FEC       963
                                        *         IS NOT IN A FLUSHABLE STATE.                                   FEC       964
                                        *                                                                        FEC       965
                                        *         EVEN IF THE SEGMENT IS NOT FLUSHED, IT MAY BE TOO LONG         FEC       966
                                        *         FOR SQUEEZE TO BE PROFITABLE.  IF SO, (CURST) IS RESET         FEC       967
                                        *         TO LIMIT THE REGION EXAMINED BY PAR/SQZ.                       FEC       968
                                        *                                                                        FEC       969
                                        *         ENTRY  (X2) = LABEL TO BE COMPILED (TP. FORMAT).               FEC       970
                                        *                     .ZR. IF NO LABEL DEFINITION.                       FEC       971
                                        *         USES   ALL BUT A0.                                             FEC       972
                                                                                                                 FEC       973
                                                                                                                 FEC       974
                                 226     PAR.TH   EQU    50*Z=TURP                                               FEC       975
                                                                                                                 FEC       976
           606  0400400606 +             CSB      SUBR   =           ENTRY/EXIT...                               FEC       977
           607  0312000615 +                      NZ     X2,CSB4     IF LABEL TO BE DEFINED                      FEC       978
                          5110000000 X            SA1    T=PAR                                                   FEC       979
           610  5130000000 X                      SA3    N.MAXIL                                                 FEC       980
                          37013                   IX0    X1-X3                                                   FEC       981
           611  0320000617 +                      PL     X0,CSB6     IF SEGMENT LENGTH EXCEEDS THRESHOLD         FEC       982
                          7261777551              SX6    X1-PAR.TH                                               FEC       983
           612  5130000000 X                      SA3    CURST                                                   FEC       984
                          37036                   IX0    X3-X6                                                   FEC       985
           613  0320000606 +                      PL     X0,EXIT.    IF SQUEEZE LENGTH WITHIN LIMIT              FEC       986
                          54630                   SA6    A3          INDICATE NO SQUEEZING PAST HERE             FEC       987
           614  0400000606 +                      EQ     EXIT.                                                   FEC       988
                                                                                                                 FEC       989
                                        *         EMIT TURPLE TO DEFINE THE LABEL, AND FLUSH THIS                FEC       990
                                        *         IL SEGMENT.                                                    FEC       991
                                                                                                                 FEC       992
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    24
        SUBROUTINES.                                                  CSB 
  
           615  10422                    CSB4     BX4    X2          (P1) = LABEL                                FEC       993
                     43500                        MX5    0           (P2) = NIL                                  FEC       994
                          6130400000 X            EMIT   OPBSS,*                                                 FEC       995
           617  0100001044 +             CSB6     CALL   OIL         OUTPUT INTERMEDIATE LANGUAGE SEGMENT        FEC       996
           620  0400000606 +                      EQ     EXIT.       EXIT...                                     FEC       997
  
  
  
  
                                        **        CUF - CHECK UNDEFINED FUNCTION.                                FEC       999
                                        *                                                                        FEC      1000
                                        *         USES   X - 1,2,3,6,7  A - 1,2,3,6  B - 2,3                     FEC      1001
                                                                                                                 FEC      1002
           621  0400400621 +             CUF      SUBR   0           ENTRY/EXIT...                               FEC      1003
           622  5120000000 X                      SA2    MOD                                                     FEC      1004
                          5110000000 X            SA1    S=VALUE                                                 FEC      1005
           623  20260                             HX2    MO.FUN                                                  FEC      1006
                     0322000621 +                 PL     X2,EXIT.    IF NOT COMPILING A FUNCTION                 FEC      1007
                               63210              SB2    X1                                                      FEC      1008
           624  20101                             LX1    1                                                       FEC      1009
                     63212                        SB2    X1+B2       CONVERT TO INDEX                            FEC      1010
                          5110000000 X            SA1    T.SYM                                                   FEC      1011
           625  73112                             SX1    X1+B2                                                   FEC      1012
                     53111                        =A1    X1+WB.W     A1 = ADDRESS OF *WB*                        FEC      1013
                          10211                   BX2    X1                                                      FEC      1014
                               20263              SBIT   X2,WB.MDFP                                              FC5A191     6
           626  0322000634 +                      PL     X2,CUF10    IF NO BOOLEAN ENTRY POINTS                  FEC      1016
                          5021000006              SA2    A1+M.INT*Z=SYM    X2 = *WB* VALUI.                      FEC      1017
           627  5031000011                        SA3    A1+M.REAL*Z=SYM   X3 = *WB* VALUR.                      FEC      1018
                          7100000200              LDBIT  X0,WB.DEFP                                              FEC      1019
           630  11701                             BX7    X0*X1       ISOLATE DEF BIT OF VALUE.                   FEC      1020
                     11602                        BX6    X0*X2       ISOLATE DEF BIT OF VALUI.                   FEC      1021
                          12767                   BX7    X6+X7                                                   FEC      1022
                               11603              BX6    X0*X3       ISOLATE DEF BIT OF VALUR.                   FEC      1023
           631  12767                             BX7    X6+X7       X7 = LOGICAL SUM OF DEF BITS                FEC      1024
                     7100000400                   LDBIT  X0,WB.MDFP                                              FC5A191     7
                               12770              BX7    X7+X0       SET *MUST DEFINE* BIT                       FC5A116     6
           632  12617                             BX6    X1+X7                                                   FEC      1025
                     54610                        SA6    A1          UPDATE VALUE. *WB*                          FEC      1026
                          12627                   BX6    X2+X7                                                   FEC      1027
                               54620              SA6    A2          UPDATE VALUI. *WB*                          FEC      1028
           633  12637                             BX6    X3+X7                                                   FEC      1029
                     54630                        SA6    A3          UPDATE VALUR. *WB*                          FEC      1030
                                                                                                                 FEC      1031
           634  66200                    CUF10    =B2    0                                                       FEC      1032
                     6130000025                   SB3    Z=SYM*N.TYPE      LOOP LIMIT                            FEC      1033
                               43301              LDBIT  X3,WB.DEFP                                              FEC      1034
                     7140000400                   LDBIT  X4,WB.MDFP                                              FC5A191     8
                                                                                                                 FEC      1036
           636  54212                    CUF20    SA2    A1+B2                                                   FEC      1037
                     11632                        BX6    X3*X2       ISOLATE DEF BIT                             FEC      1038
                          20601                   LX6    WB.MDFP-WB.DEFP                                         FC5A191     9
                               11742              BX7    X4*X2       ISOLATE 1REF BIT                            FEC      1040
           637  13776                             BX7    X7-X6                                                   FEC      1041
                     0307000645 +                 ZR     X7,CUF30    IF NO ERROR                                 FEC      1042
                               76120              SX1    B2                                                      FEC      1043
           640  7120000003                        SX2    Z=SYM                                                   FEC      1044
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    25
        SUBROUTINES.                                                  CUF 
  
                          27101                   IX1    X1/X2       X1 = OFFSET INTO MOD.DPC TABLE              FEC      1045
                     5221000000 X                 SA2    X1+MOD.DPC                                              FEC      1046
                               10622              BX6    X2                                                      FEC      1047
           643  5160000000 X                      SA6    FILL.                                                   FEC      1048
                          6170000000 X            FATAL  E.SU06                                                  FEC      1049
                                                                                                                 FEC      1050
           645  6122000003               CUF30    SB2    B2+Z=SYM                                                FEC      1051
                          0623000621 +            GE     B2,B3,EXIT. IF DONE                                     FEC      1052
           646  0400000636 +                      EQ     CUF20                                                   FEC      1053
  
  
  
  
                                        **        CUL - CHECK UNDEFINED LABELS.                                  FEC      1055
                                        *                                                                        FEC      1056
                                        *         CALLS  CDD, LJS, PDM                                           FEC      1057
                                                                                                                 FEC      1058
                                                                                                                 FEC      1059
           647  0400400647 +             CUL      SUBR               ENTRY/EXIT...                               FEC      1060
           650  5130000000 X                      SA3    T.SYM                                                   FEC      1061
                          5120000000 X            SA2    T=SYM                                                   FEC      1062
           651  6130000003                        SB3    Z=SYM                                                   FEC      1063
                          5243777775              SA4    X3-Z=SYM+WB.W  INITIALIZE FETCH REGISTER                FEC      1064
           652  63420                             SB4    X2                                                      FEC      1065
                                                                                                                 FEC      1066
           653  54443                    CUL2     SA4    A4+B3       FETCH SYMBOL                                FEC      1067
                     0440000671 +                 ZR     B4,CUL6     IF TABLE EXHAUSTED                          FEC      1068
                               67443              SB4    B4-B3       DECREMENT TABLE LENGTH                      FEC      1069
           654  5110001756 +                      CLAS=  X1,WB,(SDEF,FDEF,NDEF)                                  FEC      1070
                          11614                   BX6    X1*X4                                                   FEC      1071
                               20470              HX4    WB.LAB                                                  FEC      1072
           655  0334000664 +                      MI     X4,CUL4     IF THIS ENTRY IS A STATEMENT LABEL          FC5A184     9
                          20404                   LX4    WB.LABP+1                                               FC5A184    10
           656  5110001757 +                      CLAS=  X1,WB,(AGN,AGO2)                                        FC5A184    11
                          15641                   BX6    -X1*X4                                                  FC5A184    12
                               54640              SA6    A4          CLEAR THE BITS                              FC5A184    13
           657  20447                             HX4    WB.AGO2                                                 FC5A184    14
                     0324000653 +                 PL     X4,CUL2     IF VAR NOT OBJECT OF *GO TO*                FC5A184    15
                               20470              LX4    WB.AGO2P-WB.AGNP                                        FC5A184    16
           660  0334000653 +                      MI     X4,CUL2     IF VAR APPEARED IN *ASSIGN* STATEMENT       FC5A184    17
                          55141                   =A1    A4-WB.W+WA.W      X1 = *WA*                             FC5A184    18
                               43752              MX7    WA.SYML                                                 FC5A184    19
           661  11771                             BX7    X7*X1       X7 = 0LSYMBOL                               FC5A184    20
                                   0              ERRNZ  WA.SYMP+WA.SYML-60D                                     FC5A184    21
                     5170000000 X                 SA7    FILL.                                                   FC5A184    22
           662  6170000000 X                      FATAL  E.AS6       ** GOTO I WITHOUT ASSIGN 10 TO I            FC5A184    23
           663  0400000653 +                      EQ     CUL2                                                    FC5A184    24
                                                                                                                 FC5A184    25
           664  0316000653 +             CUL4     NZ     X6,CUL2     IF LABEL DEFINED                            FC5A184    26
                          55541                   =A5    A4-WB.W+WA.W                                            FEC      1075
                               21530              AX5    WA.STLP     EXTRACT LABEL                               FEC      1076
           665  0100000000 X                      CALL   LJS         LEFT JUSTIFY STATEMENT LABEL                FEC      1077
           666  5160000000 X                      SA6    FILL.                                                   FEC      1078
                          6170000000 X            FATAL  E.MS        ** MISSING STATEMENT NUMBER **              FEC      1079
           670  0400000653 +                      EQ     CUL2                                                    FEC      1080
                                                                                                                 FEC      1081
                                        **        CHECK FOR UNTERMINATED DO LOOPS AND IF BLOCKS                  FEC      1082
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    26
        SUBROUTINES.                                                  CUL 
  
                                                                                                                 FEC      1083
           671  5120000000 X             CUL6     SA2    T=BLST                                                  FEC      1084
                          0302000711 +            ZR     X2,CUL9     IF NO UNTERMINATED BLOCK STRUCTURES         FEC      1085
                                                                                                                 FEC      1086
           672  5110000000 X             CUL7     SA1    T.BLST                                                  FEC      1087
                          6242777776              SB4    X2-1                                                    FEC      1088
           673  53414                             SA4    X1+B4       FETCH COUNT WORD                            FEC      1089
                                                  LX4    -LC.CNTP                                                FEC      1090
                     73040                        SX0    X4          EXTRACT SEGMENT SIZE                        FEC      1091
                                   0              ERRNZ  18-LC.CNTL                                              FEC      1092
                          20430                   LX4    LC.CNTP-LC.DOP                                          FEC      1093
                               73440              SX4    X4          EXTRACT DO INDEX                            FEC      1094
                                   0              ERRNZ  18-LC.DOL                                               FEC      1095
           674  0304000703 +                      ZR     X4,CUL8     IF UNTERMINATED BLOCK IF                    FEC      1096
                          37220                   IX2    X2-X0                                                   FEC      1097
                               36412              IX4    X1+X2                                                   FEC      1098
           675  5244000005                        SA4    X4+DO.W                                                 FEC      1099
                          21422                   AX4    DO.TAGP                                                 FEC      1100
                               43352              MX3    -DO.TAGL                                                FEC      1101
           676  15443                             BX4    -X3*X4                                                  FEC      1102
                     0304000703 +                 ZR     X4,CUL8     IF I/O DO                                   FEC      1103
                               63540              SB5    X4                                                      FEC      1104
                                   0              ERRNZ  18-DO.TAGP                                              FEC      1105
           677  76455                             SX4    B5+B5                                                   FEC      1106
                     63545                        SB5    X4+B5       CONVERT ORDINAL TO INDEX                    FEC      1107
                                   0              ERRNZ  3-Z=SYM                                                 FEC      1108
                          5130000000 X            SA3    T.SYM                                                   FEC      1109
           700  53535                             SA5    X3+B5       FETCH DPC OF STATEMENT LABEL                FEC      1110
                     21530                        AX5    WA.STLP     EXTRACT LABEL                               FEC      1111
                          0100000000 X            CALL   LJS         LEFT JUSTIFY STATEMENT LABEL                FEC      1112
           701  5160000000 X                      SA6    FILL.                                                   FEC      1113
                          6170000000 X            FATAL  E.DO09      UNTERMINATED DO LOOP                        FEC      1114
           703  5120000000 X             CUL8     SA2    T=BLST                                                  FEC      1115
                          37220                   IX2    X2-X0                                                   FEC      1116
                               10622              SHRINK A2,X2       SCRATCH PROCESSED SEGMENT                   FEC      1117
                     0312000672 +                 NZ     X2,CUL7     IF MORE TO PROCESS                          FEC      1118
           705  5110000011 +                      SA1    IFLEVEL                                                 FEC      1119
                          0301000711 +            ZR     X1,CUL9     IF NO UNTERMINATED BLOCK IFS                FEC      1120
           706  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FEC      1121
           707  5160000000 X                      SA6    FILL.                                                   FEC      1122
                          6170000000 X            FATAL  E.IF17                                                  FEC      1123
                                                                                                                 FEC      1124
           711  5110000000 X             CUL9     SA1    T=C$IF                                                  FEC      1125
                          0301000647 +            ZR     X1,EXIT.    IF NO UNTERMINATED C$ IFS                   FEC      1126
           712  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FEC      1127
           713  5160000000 X                      SA6    FILL.                                                   FEC      1128
                          76600                   SHRINK A1,B0                                                   FEC      1129
           714  6170000000 X                      FATAL  E.C$15                                                  FEC      1130
           715  0400000647 +                      EQ     EXIT.                                                   FEC      1131
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    27
        SUBROUTINES.                                                  CUS 
  
                                        **        CUS -  CHECK UPCOMING STATEMENT.                               FEC      1133
                                        *                                                                        FEC      1134
                                        *                ROUTINE IS ENTERED BY THE FRONT END CONTROLLER (*FEC*)  FEC      1135
                                        *         WHENEVER A STATEMENT WHICH MAY GENERATE CODE IS ENCOUNTERED.   FEC      1136
                                        *                                                                        FEC      1137
                                        *         OUTPUT OBJECT TIME REPRIEVE TURPLE, WHEN NECESSARY             FEC      1138
                                        *                                                                        FEC      1139
                                        *         IF (HANGER) " 0 -- JUMP TO IT TO COMPLETE ANY HANGING PARTS OF FEC      1140
                                        *                PREVIOUS STATEMENT.                                     FEC      1141
                                        *                                                                        FEC      1142
                                        *                NOTE THAT A "CONTINUE" WITHOUT A LABEL CAN NEVER CAUSE  FEC      1143
                                        *         ANY CODE TO BE GENERATED, AND IS THEREFORE IGNORED.            FEC      1144
                                        *                                                                        FEC      1145
                                        *         ENTRY  (X5) = (TB=KEY) SHIFTED TO KW.GENP IN BIT 59.           FEC      1146
                                        *                ("SB.STN") =  COLUMNS 1-5 OF STATEMENT.                 FEC      1147
                                        *                                                                        FEC      1148
                                        *         EXIT   INTO *FEC*.                                             FEC      1149
                                        *                                                                        FEC      1150
                                        *         USES   ALL BUT  A0.                                            FEC      1151
                                        *                                                                        FEC      1152
                                        *         CALLS  ALC, CSB, GSL                                           FEC      1153
                                                                                                                 FEC      1154
                                                                                                                 FEC      1155
           716  0400400716 +             CUS      SUBR   0           ...ENTRY/EXIT...                            FEC      1156
           717  5110000000 X                      SA1    TB=LABR                                                 FEC      1157
                          0311000723 +            NZ     X1,CUS3     IF LABEL PRESENT, CHECK HANGER              FEC      1158
           720  5120000000 X                      SA2    TB=TYPE                                                 FEC      1159
                          6170000000 X            SB7    KW=CONT                                                 FEC      1160
           721  20222                             LX2    -KW.JMPP                                                FEC      1161
                     67707                        SB7    -B7                                                     FEC      1162
                          63727                   SB7    X2+B7                                                   FEC      1163
                                   0              ERRNZ  18-KW.JMPL                                              FEC      1164
           722  0470000716 +                      ZR     B7,EXIT.    IGNORE NULL *CONTINUE* STATEMENTS           FEC      1165
                                                                                                                 FEC      1166
                                                                                                                 FEC      1167
                                        **        IF COMPILATION OF THE PRECEDING STATEMENT WAS DEPENDENT UPON   FEC      1168
                                        *         THE NEXT STATEMENT (I.E., THIS ONE), IT HAS BEEN LEFT HANGING. FEC      1169
                                        *         IT IS NOW TIME TO FINISH IT UP --                              FEC      1170
                                        *                WE JUMP TO WHOMSOEVER HATH PUT HIS ADDRESS IN (HANGER). FEC      1171
                                        *                HE DOES HIS THING AND RETURNS TO *CUS.RET*.             FEC      1172
                                        *         NOTE THAT ONLY STATEMENTS WHICH MAKE PARSED FILE ENTRIES MAY   FEC      1173
                                        *                BE *HUNG*.                                              FEC      1174
                                                                                                                 FEC      1175
           723  5130000010 +             CUS3     SA3    HANGER                                                  FEC      1176
                          0303000726 +            ZR     X3,CUS.RET  IF NO *HANGING* COMPILATION                 FEC      1177
           724  13666                             =X6                                                            FEC      1178
                     63730                        SB7    X3                                                      FEC      1179
                          54630                   SA6    A3          CLEAR *HANGER* FLAG                         FEC      1180
           725  0277000000                        JP     B7          COMPILE ANY HANGING PIECES                  FEC      1181
                                                                                                                 FEC      1182
                                                                                                                 FEC      1183
                                        **        CUS.RET -  RETURN TO *CUS* FROM *HANGER* PROCESSING.           FEC      1184
                                        *                                                                        FEC      1185
                                        *         SET (TRLINE) = CURRENT LINE NUMBER, TO BE ADDED TO THE         FEC      1186
                                        *         NEXT TURPLE OUT.                                               FEC      1187
                                        *                PREPARE TO EXIT --                                      FEC      1188
                                        *         IF THIS IS THE END OF A BASIC BLOCK (SEQUENCE BREAK), THEN WE  FEC      1189
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    28
        SUBROUTINES.                                                  CUS 
  
                                        *                FLUSH THE PARSED FILE BY CALLING *ARITH*.               FEC      1190
                                        *         IF THERE WAS A LABEL, COMPILE THE BSS TO DEFINE IT,            FEC      1191
                                        *         CHECK (NOPATH) AND ISSUE APPROPRIATE WARNING, AND SET (FLOW)   FEC      1192
                                        *                TO INDICATE DEAD CODE.                                  FEC      1193
                                                                                                                 FEC      1194
           726                           CUS.RET  BSSENT 0           ...RETURN FROM *HANGERS*.                   FEC      1195
           726  5110000000 X                      SA1    TB=TYPE                                                 FC5A337    10
                          20131                   SBIT   X1,KW.NBSP                                              FC50785    11
           727  0331000735 +                      MI     X1,CUS4     IF NO BEGINNING-OF-STATEMENT TO ISSUE       FC50785    12
                          5110000000 X            ALLOC  T.PAR,Z=TURP                                            FEC      1196
           731  5140000021 +                      SA4    REFLIN      EMIT BEGINNING-OF-STATEMENT                 FEC      1197
                          7120000000 X            SX2    V=NOOP                                                  FC50104    50
           732  13777                             BX7    0           (1OP) = (2OP) = NIL                         FEC      1199
                     20426                        LX4    -XR.LINEP+TH.LINEP                                      FEC      1200
                          57771                   =A7    B7-Z=TURP+OR.2OP                                        FEC      1201
                               20256              LX2    TH.SKELP                                                FC50104    51
           733  7160000053                        SX6    O.SPACE                                                 FC50104    52
                          12626                   BX6    X2+X6       LINE NUMBER/OPERAND VALUE                   FC50104    53
                               12646              BX6    X4+X6       AND NOOP SKELETON = BOS TURPLE HEADER       FC50104    54
           734  55771                             =A7    A7-OR.2OP+OR.1OP                                        FEC      1203
                     55671                        =A6    A7-OR.1OP+OR.OPR                                        FEC      1204
                                                                                                                 FEC      1212
           735                           CUS4     BSS    0                                                       FC5A337    17
           735  5120000004 +                      SA2    CSLTAG                                                  FEC      1213
                          20254                   LX2    TP.ORDP                                                 FEC      1214
           736  0100000606 +                      RJ     CSB         CHECK FOR SEQUENCE BREAK                    FEC      1215
           737  5120000015 +                      SA2    NOPATH                                                  FEC      1216
                          5140000004 +            SA4    CSLTAG                                                  FEC      1217
           740  5130000007 +                      SA3    FLOW                                                    FEC      1218
                          12623                   BX6    X2+X3                                                   FEC      1219
           741  0304000742 +                      ZR     X4,CUS6     IF NO LABEL PRESENT                         FEC      1220
                          13666                   BX6    0           CLEAR (FLOW) IF LABEL                       FEC      1221
                                                                                                                 FC5A337    18
           742  54630                    CUS6     SA6    A3          RESET (FLOW)                                FEC      1222
                     54620                        SA6    A2          RESET (NOPATH)                              FEC      1223
                          0306000716 +            ZR     X6,EXIT.    IF NO STATEMENT NUMBER REQUIRED             FEC      1224
           743  5130000000 X                      SA3    TB=TYPE                                                 FEC      1225
                          20330                   SBIT   X3,KW.ILP                                               FEC      1226
           744  0333000716 +                      MI     X3,EXIT.    IF IMPLIED LABEL ON THIS STATEMENT          FEC      1227
                          6170000000 X            WARN   E.NP        *NO PATH TO THIS STATEMENT*                 FEC      1228
           746  0400000716 +                      EQ     EXIT.       EXIT...                                     FEC      1229
  
  
  
  
                                        **        CVD -  CHECK VARIABLE DIMENSION IRREGULARITIES                 FEC      1231
                                        *                                                                        FEC      1232
                                        *         CHECK ALL VARIABLES IN SYMBOL TABLE FOR THOSE WITH WB.VDS      FEC      1233
                                        *         STILL SET.  THIS INDICATES THAT AN AJUSTABLE OR ASSUMED SIZE   FEC      1234
                                        *         ARRAY DIDNT APPEAR AS A FORMAL PARAMETER OR THAT A VARIABLE    FEC      1235
                                        *         USED AS A VARIABLE SUBSCRIPT WAS NOT A FORMAL PARAMETER OR IN  FEC      1236
                                        *         COMMON.                                                        FEC      1237
                                                                                                                 FEC      1238
                                                                                                                 FEC      1239
           747  0400400747 +             CVD      SUBR               ...ENTRY/EXIT...                            FEC      1240
           750  5120000000 X                      SA2    T.SYM                                                   FEC      1242
                          5130000000 X            SA3    T=SYM                                                   FEC      1244
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    29
        SUBROUTINES.                                                  CVD 
  
           751  6263777775                        =B6    X3-Z=SYM+WB.W                                           FEC      1245
           752  0760000747 +             CVD1     MI     B6,EXIT.    IF LIST IS EXHAUSTED                        FEC      1246
                          53326                   SA3    X2+B6                                                   FEC      1247
           753  6166777774                        =B6    B6-Z=SYM                                                FEC      1248
                          20370                   SBIT   X3,WB.LABP                                              FEC      1249
           754  0333000752 +                      MI     X3,CVD1     IF STATEMENT LABEL                          FEC      1250
                          20345                   SBIT   X3,WB.VDSP/WB.LABP                                      FEC      1251
           755  0323000752 +                      PL     X3,CVD1     IF NOT USED AS VARIABLE SUBSCRIPT OR ARRAY  FEC      1252
                          20320                   SBIT   X3,WB.ARYP/WB.VDSP                                      FEC      1253
           756  6170000000 X                      SB7    E.DM03                                                  FEC      1254
                          0333000760 +            MI     X3,CVD2     IF ARRAY                                    FEC      1255
           757  6170000000 X                      SB7    E.DM04                                                  FEC      1256
           760  43152                    CVD2     MX1    WA.SYML                                                 FEC      1257
                     55431                        =A4    A3-WB.W+WA.W                                            FEC      1258
                          11614                   BX6    X1*X4                                                   FEC      1259
           761  5160000000 X                      SA6    FILL.                                                   FEC      1260
                          0100000000 X            FATAL  B7                                                      FEC      1261
           762  0400000752 +                      EQ     CVD1                                                    FEC      1262
  
  
  
  
                                        **        FEP - FRONT END PRESETS.                                       FEC      1264
                                        *                                                                        FEC      1265
                                        *         PRESET FRONT END CELLS.                                        FEC      1266
                                                                                                                 FEC      1267
                                                                                                                 FEC      1268
           763  0400400763 +             FEP      SUBR   0           ...ENTRY/EXIT...                            FEC      1269
           764  7160000000                        SX6    0                                                       FC5A225     7
                          5160000000 X            SA6    TYPD        IMPLICIT STATEMENT LETTERS                  FEC      1271
           765  5160000000 X                      SA6    CURST       CURRENT START FOR PARSED FILE SQUEEZE       FEC      1272
                          5160000007 +            SA6    FLOW        DEAD CODE FLAG                              FEC      1273
           766  5160000010 +                      SA6    HANGER      HANGING COMPILATION INDICATOR               FEC      1274
                          5160000000 X            SA6    IO.TEM      I/O TEMP USE COUNT                          FEC      1275
           767  5160000000 X                      SA6    NARGS       NUMBER OF ARGUMENTS                         FEC      1276
                          5160000015 +            SA6    NOPATH      STATEMENT LABEL REQUIRED FLAG               FEC      1277
           770  5160000016 +                      SA6    NTRCNT      COUNT OF *ENTRY* STATEMENT                  FEC      1278
                          5160000025 +            SA6    RTNCNT      COUNT OF *RETURN* STATEMENTS                FEC      1279
           771  5160000000 X                      SA6    BLNKCOM     BLOCK NUMBER OF BLANK COMMON                FEC      1280
                          5160000000 X            SA6    CHARDCL     CHARACTER DECLARATION PRESENT               FEC      1281
           772  5160000000 X                      SA6    SAVE        SAVE INDICATOR                              FEC      1282
                          5160000000 X            SA6    USAVE       UNIVERSAL SAVE INDICATOR                    FEC      1283
           773  5160000000 X                      SA6    LEVEL       NO LEVEL STATEMENTS                         FEC      1284
                          5160000000 X            SA6    LEVEL0      NO LEVEL 0 STATEMENTS                       FEC      1285
           774  5160000000 X                      SA6    LEVEL2      NO LCM/ECS                                  FEC      1286
                          5160000000 X            SA6    N.EPL       NO ENTRIES WITH UNIQUE FP LISTS             FEC      1287
           775  5160000020 +                      SA6    PARAMC      COUNT OF PARAMETERS (SYMBOLIC CONSTANTS)    FC5A225     8
                          7160000002              SX6    LM.1ST                                                  FEC      1288
           776  5160000000 X                      SA6    LEXMODE     SET TO 1ST TIME IN                          FEC      1289
                                                                                                                 FEC      1290
                          76700                   =X7    FEC=1ST                                                 FEC      1291
                               76600              =X6    PASS=FE     INDICATE IN FRONT END PROCESSING            FC5A225     9
           777  5170000026 +                      SA7    STAGE       SIGNAL THAT A *FIRST CARD* IS NEEDED.       FEC      1292
                          5160000000 X            SA6    PASS                                                    FEC      1294
          1000  5120000000 X                      SA2    CO.SEQ                                                  FEC      1295
                          54771                   SA7    A7+B1                                                   FEC      1296
          1001  0312001004 +                      NZ     X2,FEP1     IF SEQ MODE                                 FEC      1297
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    30
        SUBROUTINES.                                                  FEP 
  
                                                                                                                 FEC      1298
                          43600                   MX6    0                                                       FEC      1299
          1002  5160000000 X                      SA6    LINES       SET TO *1ST LINE IS IN (CP.BUF)*            FEC      1300
                          5120001760 +            SA2    =10H        1                                           FEC      1301
          1003  10622                             BX6    X2                                                      FEC      1302
                     5160000000 X                 SA6    CP.FLIN     NUMBER FIRST LINE OF SOURCE                 FEC      1303
                                                                                                                 FEC      1304
                                                                                                                 FEC      1305
                                        **        RE-SET NATURAL TYPE TABLE TO --                                FEC      1306
                                        *                IMPLICIT REAL (A-H), INTEGER (I-N), REAL (O-Z)          FEC      1307
                                                                                                                 FEC      1308
          1004  5110001014 +             FEP1     SA1    FEPA        NATURAL TYPE PRESETS                        FEC      1309
                          54211                   SA2    A1+B1                                                   FEC      1310
                               76600              =X6    M.BOOL                                                  FEC      1311
          1005  76710                             =X7    M.LOG                                                   FEC      1312
                     5160001402 +                 SA6    NAT.TYP     BOOLEAN                                     FEC      1313
                               22601              LX6    X1                                                      FEC      1314
          1006  54761                             =A7    A6+1        LOGICAL                                     FEC      1315
                     10722                        BX7    X2                                                      FEC      1316
                          54671                   =A6    A7+1        INTEGER                                     FEC      1317
                               73671              =X6    X7+1                                                    FEC      1318
          1007  54761                             =A7    A6+1        REAL                                        FEC      1319
                     73761                        =X7    X6+1                                                    FEC      1320
                          54671                   =A6    A7+1        DOUBLE                                      FEC      1321
                               73671              =X6    X7+1                                                    FEC      1322
          1010  54761                             =A7    A6+1        COMPLEX                                     FEC      1323
                     54671                        =A6    A7+1        CHARACTER                                   FEC      1324
                                                                                                                 FEC      1325
                          13666                   SETMEM NAT.LEN,26/2                                            FEC      1326
                                                                                                                 FEC      1327
          1013  0400000763 +                      EQ     EXIT.       EXIT...                                     FEC      1328
                                                                                                                 FEC      1329
          1014  00077000000000000002     FEPA     CON    "INT"+M.INT NATURAL TYPE PRESETS                        FEC      1330
          1015  37700777700000000003              CON    "REAL"+M.REAL                                           FEC      1331
  
  
  
  
                                        **        FVD -  FLUSH VARIABLE DIMENSION CODE.                          FEC      1333
                                        *                                                                        FEC      1334
                                        *         COMPILES CODE TO PRE-COMPUTE VARIABLE DIMENSION ADDRESS        FEC      1335
                                        *         FUNCTIONS, WHEN NECESSARY.  WILL NOT COMPILE ANYTHING IF NO    FEC      1336
                                        *         VARIABLE DIMENSIONS OCCURRED IN THE SUBPROGRAM.                FEC      1337
                                        *         FINISHES OPERAND ENTRIES OF TURPLES WITH INFORMATION           FC50069     7
                                        *         WHICH MAY HAVE BEEN DECLARED AFTER THE DIMENSION BOUNDS        FC50069     8
                                        *         EXPRESSIONS WERE COMPILED.                                     FC50069     9
                                        *                                                                        FEC      1338
                                        *         ENTRY  T.VDIM TABLE CONTAINS *TURPLES* TO BE PROCESSED.        FEC      1339
                                        *                T.PAR IS A NULL TABLE.                                  FEC      1340
                                        *                                                                        FEC      1341
                                        *         EXIT   T.VDIM LENGTH = 0.                                      FEC      1342
                                        *                CODE DEFINED BY *TURPLES* IN *T.VDIM* SENT TO           FEC      1343
                                        *                INTERMEDIATE FILE.                                      FEC      1344
                                        *                                                                        FEC      1345
                                        *         USES   ALL                                                     FEC      1346
                                        *                                                                        FC50069    10
                                        *         CALLS  ALC, CT1, MVE=                                          FC50069    11
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    31
        SUBROUTINES.                                                  FVD 
  
                                                                                                                 FEC      1348
                                                                                                                 FEC      1349
          1016  0400401016 +             FVD      SUBR   0           ENTRY/EXIT...                               FEC      1350
          1017  5130000000 X                      SA3    T=VDIM                                                  FEC      1352
                          7203777773              SX0    X3-Z=TURP-1                                             FC50558     6
          1020  0320001022 +                      PL     X0,FVD0     IF VARDIM CODE PRESENT                      FC50558     7
                          76600                   SHRINK A3,B0       TRASH V=BVT TURPLE                          FC50558     8
          1021  0400001016 +                      EQ     EXIT.                                                   FC50558     9
                                                                                                                 FEC      1357
                                        *         ADD IN ALL TP. ATTRIBUTES (THESE MAY HAVE BEEN DECLARED AFTER  FC50069    12
                                        *         THE DIMENSION INFORMATION CONSTRUCTION).                       FC50069    13
                                                                                                                 FC50069    14
          1022  5150000000 X             FVD0     SA5    T.VDIM                                                  FC50558    10
                          63231                   =B2    X3+OR.1OP                                               FC50069    16
                               63350              SB3    X5                                                      FC50069    17
          1023  5140001761 +                      CLAS=  X4,TP,(BIAS,ATTR)                                       FC50137     7
                          7170012000              CLAS=  X7,TP,(INTR,SHRT)                                       FC50069    19
                                                                                                                 FC50069    21
          1024  6122777774               FVD1     SB2    B2-Z=TURP                                               FC50069    22
                          0720001033 +            MI     B2,FVD4     IF FINISHED                                 FC50069    23
          1025  56323                             SA3    B2+B3       FETCH 1OP                                   FC50069    24
                     66400                        =B4    0           INDICATE 1OP                                FC50069    25
                                                                                                                 FC50069    26
          1026  11273                    FVD2     BX2    X7*X3                                                   FC50069    27
                     0312001031 +                 NZ     X2,FVD3     IF TP.INTR OR TP.SHRT                       FC50069    28
                               11543              BX5    X4*X3       PRESERVE BIAS AND EXISTING ATTRIBUTES       FC50137     8
                                                  HX3    TP.ORD                                                  FC50069    30
          1027  21354                             AX3    -TP.ORDL    EXTRACT ORDINAL                             FC50069    31
                     22003                        LX0    X3                                                      FC50069    32
                          0100001354 +            RJ     CT1         GET TP. FORMAT (WITH COMPLETE INFORMATION)  FC50069    33
          1030  12665                             BX6    X6+X5       RESTORE BIAS                                FC50069    34
                     54630                        SA6    A3                                                      FC50069    35
                                                                                                                 FC50069    36
          1031  0540001024 +             FVD3     NZ     B4,FVD1     IF JUST PROCESSED 2OP                       FC50069    37
                          54331                   =A3    A3-OR.1OP+OR.2OP                                        FC50069    38
                               66410              =B4    1           INDICATE 2OP                                FC50069    39
          1032  0400001026 +                      EQ     FVD2        LOOP FOR 2OP                                FC50069    40
                                                                                                                 FC50069    41
                                        *         FLUSH T.VDIM IL TO T.PAR                                       FC50069    42
                                                                                                                 FEC      1359
          1033  43400                    FVD4     MX4    0                                                       FC50069    43
                     13555                        BX5    0                                                       FEC      1361
                          5110000000 X            EMIT   V=EVD,,T.VDIM  END VARDIM INDICATOR                     FEC      1362
          1035  5130000000 X                      SA3    T=VDIM                                                  FEC      1363
                          63630                   SB6    X3                                                      FEC      1364
          1036  5110000000 X                      ALLOC  T.PAR,X3    ALLOCATE SPACE FOR TURPLES                  FEC      1365
          1040  77376                             SX3    B7-B6       DESTINATION ADDRESS                         FEC      1366
                     5110000000 X                 SA1    T=VDIM      WC                                          FEC      1367
          1041  5120000000 X                      SA2    T.VDIM      SOURCE ADDRESS                              FEC      1368
                          0100000000 X            MOVE   X1,X2,X3    MOVE *TURPLES* TO PARSER TABLE              FEC      1369
          1042  13666                             SHRINK T=VDIM      COLLAPSE T.VDIM                             FEC      1370
          1043  0400001016 +                      EQ     EXIT.       EXIT...                                     FEC      1371
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    32
        SUBROUTINES.                                                  OIL 
  
                                        **        OIL - OUTPUT IL.                                               FEC      1373
                                        *                                                                        FEC      1374
                                        *         OIL PASSES THE CURRENT SAVED INTERMEDIATE LANGUAGE (IL)        FEC      1375
                                        *         OFF TO A CODE GENERATOR.  THE HANDOFF IS ACCOMPLISHED BY       FEC      1376
                                        *         CALLING *PIS - PUBLISH IL SEGMENT*.  THERE ARE TWO VERSIONS    FEC      1377
                                        *         OF PIS --                                                      FEC      1378
                                        *                                                                        FEC      1379
                                        *         IN QCG MODE, PIS ACTUALLY CRANKS UP AND ISSUES                 FEC      1380
                                        *                THE PREBINARY.                                          FEC      1381
                                        *         IN CCG MODE, THE IL IS WRITTEN TO A FILE (F.IL) TO             FEC      1382
                                        *                AWAIT LATER EXPANSION BY THE BRIDGE.                    FEC      1383
                                        *                                                                        FEC      1384
                                        *         THE MAIN FUNCTIONS OF OIL ARE ADMINISTRATIVE.                  FEC      1385
                                        *         (A)  STATISTICS, SNAPS, AND TEST MODE CHECKS.                  FEC      1386
                                        *         (B)  DECIDE WHETHER IL IS OR CAN BE SUPPRESSED.                FEC      1387
                                        *         (C)  CALL PIS.                                                 FEC      1388
                                        *         (D)  RESET PARSER FOR NEXT SEGMENT.                            FEC      1389
                                        *         USES   ALL (REALLY).                                           FEC      1390
                                        *                                                                        FEC      1391
                                        *         USES   ALL.                                                    FEC      1392
                                        *         CALLS  PIS, SN.PAR .                                           FEC      1393
                                                                                                                 FEC      1394
                                                                                                                 FEC      1395
          1044  0400401044 +             OIL      SUBR   =           ...ENTRY/EXIT...                            FEC      1396
                                                                                                                 FEC      1397
                                         .TEST    IFEQ   TEST,ON                                                 FEC      1398
                                                  SA2    CO.SNAP                                                 FEC      1399
                                                  LX2    1RO                                                     FEC      1400
                                                  PL     X2,OIL2     IF *SNAP=O* NOT SELECTED                    FEC      1401
                                                  CALL   SN.PAR      PRINT IL SEGMENT                            FEC      1402
                                                                                                                 FEC      1403
                                         OIL2     SA5    PARSLEN                                                 FEC      1404
                                                  SA4    T=PAR                                                   FEC      1405
                                                  MX6    X4+X5                                                   FEC      1406
                                                  SA6    A5          RESET MAXIMUM PARSED FILE LENGTH            FEC      1407
                                         .TEST    ENDIF                                                          FEC      1408
          1045  5120000000 X                      SA2    N.CT                                                    FEC      1409
                          5130000000 X            SA3    N.CTMAX                                                 FEC      1410
          1046  13666                             BX6    0                                                       FEC      1411
                     37723                        MX7    X2+X3       RESET MAX CHAR TEMPS                        FEC      1412
                          54620                   SA6    A2                                                      FEC      1413
                               54730              SA7    A3                                                      FEC      1414
                                                                                                                 FEC      1415
          1050  5110000000 X                      SA1    ERR=K                                                   FEC      1416
                          0311001057 +            NZ     X1,OIL4     IF CATASTROPHIC ERRORS IN IL SEGMENT        FEC      1417
          1051  5110000000 X                      SA1    WO.QC                                                   FEC      1418
                          5120000000 X            SA2    T=PAR                                                   FEC      1419
          1052  0331001057 +                      MI     X1,OIL4     IF CODE GENERATION SUPPRESSED               FEC      1420
                          0302001057 +            ZR     X2,OIL4     IF PARSED FILE EMPTY                        FEC      1421
          1053  5110000000 X                      SA1    PASS        CURRENT PASS                                FEC      1422
                          10711                   BX7    X1                                                      FEC      1423
          1054  5170001061 +                      SA7    OILA        SAVE CURRENT PASS                           FEC      1424
                          0100000000 X            CALL   PIS         PUBLISH IL SEGMENT                          FEC      1425
          1055  5110001061 +                      SA1    OILA                                                    FEC      1426
                          10611                   BX6    X1                                                      FEC      1427
          1056  5160000000 X                      SA6    PASS        RESTORE FORMER PASS                         FEC      1428
          1057  13666                    OIL4     BX6    0                                                       FEC      1429
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    33
        SUBROUTINES.                                                  OIL 
  
                     5160000000 X                 SA6    CURST       RESET STARTING PASS 1 BLOCK                 FEC      1430
          1060  5160000000 X                      SHRINK T=PAR,X6    CLEAR OUT PARSED FILE                       FEC      1431
                                                                                                                 FEC      1432
                                         .TEST    IFEQ   TEST,ON                                                 FEC      1433
                                                  SA2    OILB                                                    FEC      1434
                                                  SX7    X2+B1       COUNT SEGMENTS PROCESSED                    FEC      1435
                                                  SA7    A2                                                      FEC      1436
                                         .TEST    ENDIF                                                          FEC      1437
                          0400001044 +            EQ     EXIT.                                                   FEC      1438
                                                                                                                 FEC      1439
          1061  00000000000000000000     OILA     CON    0           SAVE CURRENT PASS                           FEC      1440
          1062  00000000000000000000     OILB     CON    0           NUMBER OF SEGMENTS PROCESSED                FEC      1441
  
  
  
  
                                        **        PUP - PROGRAM UNIT PRESETS.                                    FEC      1443
                                        *                                                                        FEC      1444
                                        *         PERFORMS INITIALIZATION FOR EACH PROGRAM-UNIT OF THE BATCH.    FEC      1445
                                        *         PUP LOGICALLY SHOULD BE CALLED BY THE                          FEC      1446
                                        *         PROGRAM UNIT CONTROLLER (PUC), BUT, CERTAIN                    FEC      1447
                                        *         HIGHER OVERLAY INITIALIZATION MUST BE DONE FIRST               FEC      1448
                                        *         THEREFORE, IT IS CALLED BY FEC AND RESIDES HERE.               FEC      1449
                                        *                                                                        FEC      1450
                                        *         EXIT   ALL APPROPRIATE CELLS, COUNTERS AND TABLES HAVE BEEN    FEC      1451
                                        *                SET TO THEIR INITIAL VALUES.                            FEC      1452
                                                                                                                 FEC      1453
                                 200     PARMIN   EQU    200B        MINIMUM ALLOCATION FOR PAR                  FC5A128   292
                                                                                                                 FEC      1454
          1063  0400401063 +             PUP      SUBR   0           ENTRY/EXIT...                               FEC      1455
                                                                                                                 FEC      1456
                                        *         IF X-REF SELECTED ACTIVATE REF.                                FC5A128   293
                                                                                                                 FC5A128   294
          1064  5120000000 X                      SA2    =XCO.LOR                                                FC5A128   295
                          0302001072 +            ZR     X2,PUP1     IF CO.LOR = 0 */X-REF NOT SELECTED.         FC5A128   296
          1065  76300                             ACTTAB REF,(DECL,EXU)    ACTIVATE REF ON DECL AND EXU PHASES   FC5A128   297
                                                                                                                 FC5A128   298
                                        *         TURN ON DECL PHASE.                                            FC5A128   299
                                                                                                                 FC5A128   300
          1072  5110000000 X             PUP1     SA1    =XTV=DECL                                               FC5A128   301
                          7170000200              SX7    PARMIN                                                  FC5A128   302
          1073  5170000000 X                      SA7    =XALC.PAR   SET MIN. ALLOC FOR PAR                      FC5A128   303
                          10711                   BX7    X1                                                      FC5A128   304
          1074  5170000000 X                      SA7    =XTV=CUR    TURN ON DECL PHASE                          FC5A128   305
                                                                                                                 FC5A128   306
                                        **        COLLAPSE TABLES TO INITIAL LENGTHS                             FEC      1457
                                                                                                                 FEC      1458
                          5140000000 X            SA4    O.TABS                                                  FEC      1459
          1075  5120000000 X                      SA2    L.TABS                                                  FEC      1460
                          6120000000 X            SB2    N.TABLE*FUDGE                                           FEC      1461
          1076  6122000000 X                      SB2    B2+L=TABLE                                              FEC      1462
                          67202                   SB2    -B2                                                     FEC      1463
                               73522              SX5    X2+B2                                                   FEC      1464
          1077  22702                             LX7    X2                                                      FEC      1465
                     6120777776 X                 SB2    N.TABLE-1                                               FEC      1466
                                                                                                                 FEC      1467
                                                                                                                 FEC      1468
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    34
        SUBROUTINES.                                                  PUP 
  
                                        **        INITIALLY, AMOUNT OF AVAILABLE SPACE IS --                     FEC      1469
                                        *         A = (SIZCORE) - N*FUDGE - L=TABLES                             FEC      1470
                                                                                                                 FEC      1471
                               27205              PX2    X5          (X2) = AVAILABLE                            FEC      1472
          1100  36774                             IX7    X7+X4       (X7) = LWA TABLES                           FEC      1473
                     24102                        NX1    X2                                                      FEC      1474
                          5170000000 X            SA7    T.END                                                   FEC      1475
                                                                                                                 FC50567     6
          1101  5132000000 X             PUP2     SA3    B2+RATES                                                FEC      1476
                          40231                   FX2    X3*X1                                                   FEC      1477
                               73630              SX6    X3                                                      FEC      1478
          1102  26072                             UX0,B7 X2                                                      FEC      1479
                     67221                        =B2    B2-1                                                    FEC      1480
                          73331                   =X3    X3+FUDGE    = INIT(I) + FUDGE                           FEC      1481
                               22270              LX2    X0,B7                                                   FEC      1482
          1103  36523                             IX5    X2+X3                                                   FEC      1483
                     37775                        IX7    X7-X5                                                   FEC      1484
                          5162000001 X            SA6    B2+SIZES+1  SET INITIAL SIZE                            FEC      1485
          1104  5172000001 X                      SA7    B2+BASES+1  SET INITIAL ORIGIN                          FEC      1486
                          0620001101 +            PL     B2,PUP2     LOOP THRU TABLES                            FEC      1487
          1105  10744                             BX7    X4                                                      FEC      1488
                     54770                        SA7    A7          RESET ORIGIN OF LOWEST TABLE                FEC      1489
                          43600                   MX6    0                                                       FEC      1490
          1106  5160000000 X                      SA6    NSQZLH      SQUEEZE LONG HOLLERITH FLAG                 FC5A415    10
                          5160000000 X            SA6    N.AP        COUNT OF AP-LISTS                           FEC      1491
          1107  5160000000 X                      SA6    N.ARP       INDICATE NO ALTERNATE RETURN YET            FEC      1492
                          5160000000 X            SA6    N.BUF       SPACE ALLOCATED TO BUFFERS (STATIC MODE)    F1037F5   318
          1110  5160000000 X                      SA6    N.CPL       LENGTH OF COPY AP AREA                      FEC      1493
                          5160000000 X            SA6    N.FP        NUMBER OF FORMAL PARAMETERS                 FC50567     7
          1111  5160000000 X                      SA6    N$LC        NUMBER OF FP LOCAL COPY CELLS               FC50686     8
                          5160000000 X            SA6    N.CT                                                    FEC      1494
          1112  5160000000 X                      SA6    N.CTMAX     MAX CHAR TEMP AREA                          FEC      1495
                          5160000000 X            SA6    N.DOB       COUNT OF DO-BEGIN LABELS                    FEC      1496
          1113  5160000000 X                      SA6    N.ST        COUNT OF STATEMENT TEMPS                    FEC      1497
                          5160000000 X            SA6    N.STMAX     MAX TEMPS IN ANY STATEMENT                  FEC      1498
          1114  5160000000 X                      SA6    N.VD        COUNT OF VARDIM EXPRESSIONS                 FEC      1499
                          5160000000 X            SA6    FAILSFT     CATASTROPHE IN TABLES                       FEC      1500
          1115  5160000000 X                      SA6    LOSTREF     REFERENCE COUNT                             FEC      1501
                          5160000000 X            SA6    MOD         PROGRAM UNIT MODE                           FEC      1502
          1116  5160000011 +                      SA6    IFLEVEL     BLOCK IF LEVEL                              FEC      1503
                          76610                   =X6    1                                                       FEC      1504
          1117  5160000000 X                      SA6    N.GL        COUNT OF GENERATED LABELS                   FEC      1505
                                                                                                                 FEC      1506
                                                                                                                 FEC      1507
                                        **        PRESET T.SYM WITH SOME SPECIAL SYMBOLS.                        FEC      1508
                                        *         ORDINAL ZERO OF T.SYM WILL CONTAIN ZEROS AT ALL TIMES.         FEC      1509
                                        *         INITIALIZE VALUES OF SYMORD CELLS.                             FEC      1510
                                                                                                                 FEC      1511
                          13666                   SHRINK T=SYM                                                   FEC      1512
                          5110000000 X            ALLOC  T.SYM,Z.SYMIL                                           FEC      1513
          1122  10311                             BX3    X1          DESTINATION = FWA (T.SYM)                   FEC      1514
                     22102                        LX1    X2          WORD COUNT = LENGTH OF (T.SYM)              FEC      1515
                          7120000047 +            SX2    F.SYMIL     SOURCE                                      FEC      1516
          1123  0100000000 X                      MOVE   X1,X2,X3                                                FEC      1517
                                                                                                                 FEC      1518
          1124  7160000041                        SX6    Z.SYMIL/Z=SYM     NUMBER OF ENTRIES (ORDINALS) PRESET   FEC      1519
                          5160001747 +            SA6    NEXTORD     PRESET SYM. TAB. ORDINAL COUNTER            FEC      1520
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    35
        SUBROUTINES.                                                  PUP 
  
                                                                                                                 FEC      1521
          1125  43601                             MX6    1           MARK ALL HASH VECTOR ENTRIES AS EMPTY       FEC      1522
                     5160000000 C                 SETMEM HASHTBL,Z.HASH,X6                                       FEC      1523
                                                                                                                 FEC      1524
          1127  13666                             SETMEM F.SORD,Z.SORD  CLEAR SYMORD CELLS                       FEC      1525
                                                  LIST   G                                                       FEC      1526
                                         SORD     HERE               SET KNOWN SYMORDS                           FEC      1527
          1131  76610                     SX.6 B1                                                               '?REG#S2.3
                     5160000000 X                 SA6    =XS=BU                                                 SORD    .1
                               76611      SX.6 B1+B1                                                            '?REG#S2.3
          1132  5160000000 X                      SA6    =XS=BUF                                                SORD    .1
                          7160000003      SX.6 '?000003                                                         '?REG#S2.3
          1133  5160000000 X                      SA6    =XS=CL                                                 SORD    .1
                          7160000004      SX.6 '?000004                                                         '?REG#S2.3
          1134  5160000000 X                      SA6    =XS=CON                                                SORD    .1
                          7160000005      SX.6 '?000005                                                         '?REG#S2.3
          1135  5160000000 X                      SA6    =XS=CT                                                 SORD    .1
                          7160000006      SX.6 '?000006                                                         '?REG#S2.3
          1136  5160000000 X                      SA6    =XS=LA                                                 SORD    .1
                          7160000007      SX.6 '?000007                                                         '?REG#S2.3
          1137  5160000000 X                      SA6    =XS=LENP                                               SORD    .1
                          7160000010      SX.6 '?000008                                                         '?REG#S2.3
          1140  5160000000 X                      SA6    =XS=SA1                                                SORD    .1
                          7160000011      SX.6 '?000009                                                         '?REG#S2.3
          1141  5160000000 X                      SA6    =XS=SA0                                                SORD    .1
                          7160000012      SX.6 '?000010                                                         '?REG#S2.3
          1142  5160000000 X                      SA6    =XS=ST                                                 SORD    .1
                          7160000013      SX.6 '?000011                                                         '?REG#S2.3
          1143  5160000000 X                      SA6    =XS=TA0                                                SORD    .1
                          7160000014      SX.6 '?000012                                                         '?REG#S2.3
          1144  5160000000 X                      SA6    =XS=TRACE                                              SORD    .1
                          7160000015      SX.6 '?000013                                                         '?REG#S2.3
          1145  5160000000 X                      SA6    =XS=VD                                                 SORD    .1
                          7160000016      SX.6 '?000014                                                         '?REG#S2.3
          1146  5160000000 X                      SA6    =XS=IT                                                 SORD    .1
                          7160000017      SX.6 '?000015                                                         '?REG#S2.3
          1147  5160000000 X                      SA6    =XS=OT                                                 SORD    .1
                          7160000020      SX.6 '?000016                                                         '?REG#S2.3
          1150  5160000000 X                      SA6    =XS=LC                                                 SORD    .1
                          7160000021      SX.6 '?000017                                                         '?REG#S2.3
          1151  5160000000 X                      SA6    =XS=RD                                                 SORD    .1
                          7160000022      SX.6 '?000018                                                         '?REG#S2.3
          1152  5160000000 X                      SA6    =XS=FID                                                SORD    .1
                          7160000023      SX.6 '?000019                                                         '?REG#S2.3
          1153  5160000000 X                      SA6    =XS=FMC                                                SORD    .1
                          7160000024      SX.6 '?000020                                                         '?REG#S2.3
          1154  5160000001 X                      SA6    =XS=FMC+1                                              SORD    .1
                          7160000025      SX.6 '?000021                                                         '?REG#S2.3
          1155  5160000000 X                      SA6    =XS=MMC                                                SORD    .1
                          7160000026      SX.6 '?000022                                                         '?REG#S2.3
          1156  5160000000 X                      SA6    =XS=LMC                                                SORD    .1
                          7160000027      SX.6 '?000023                                                         '?REG#S2.3
          1157  5160000000 X                      SA6    =XS=VALUE                                              SORD    .1
                          7160000036      SX.6 '?000030                                                         '?REG#S2.3
          1160  5160000000 X                      SA6    =XS=FAS                                                SORD    .1
                          7160000037      SX.6 '?000031                                                         '?REG#S2.3
          1161  5160000000 X                      SA6    =XS=FAR                                                SORD    .1
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    36
        SUBROUTINES.                                                  PUP 
  
                          7160000040      SX.6 '?000032                                                         '?REG#S2.3
          1162  5160000000 X                      SA6    =XS=FVS                                                SORD    .1
                                                  LIST   *                                                       FEC      1528
                                                                                                                 FEC      1529
                                                                                                                 FEC      1530
                                        **        PRESET DIM TABLE WITH A FAKE ENTRY WHICH SAYS --               FEC      1531
                                        *                (NUMBER OF DIMS ) = 1                                   FEC      1532
                                        *                (LENGTH OF ARRAY) = 1                                   FEC      1533
                                                                                                                 FEC      1534
                          5110000000 X            ALLOC  T.DIM,1+Z=DD  HEADER + DIMENSION DESCRIPTOR             FEC      1535
          1164  10311                             BX3    X1                                                      FEC      1536
                     22102                        LX1    X2          WORD COUNT = LENGTH OF (T.DIM)              FEC      1537
                          7120001217 +            MOVE   X1,PUPA,X3                                              FEC      1538
                                                                                                                 FEC      1539
                                                                                                                 FEC      1540
                                        **        PRESET VARDIM TABLE WITH A BEGIN-VAR-DIM TURPLE.               FEC      1541
                                                                                                                 FEC      1544
          1166  43400                             MX4    0                                                       FEC      1545
                     13555                        BX5    0                                                       FEC      1546
                          5110000000 X            EMIT   V=BVD,,T.VDIM                                           FEC      1547
                                                                                                                 FEC      1548
                                                                                                                 FEC      1549
                                        **        PRE-ENTER COMMON BLOCK TABLE WITH --                           FEC      1550
                                        *                0.  PROGRAM RELOCATION BLOCK                            FEC      1551
                                                                                                                 FEC      1552
          1170  5110000000 X                      SA1    T.BLKS                                                  FEC      1553
                          13666                   SETMEM X1,Z=BLKS                                               FEC      1554
                                                                                                                 FEC      1555
                                        *         PRE-ENTER COMMON TAG TABLE WITH NULL ENTRY.                    FEC      1556
                                                                                                                 FEC      1557
                     5110000000 X                 SA1    T.COMM                                                  FEC      1558
                               13666              SETMEM X1,1                                                    FEC      1559
                                                                                                                 FEC      1560
                                         .T       IFEQ   TEST,ON                                                 FEC      1561
                                                  SA6    =XALC=CNT                                               FEC      1562
                                                  SA6    MOVES       NUMBER OF STORAGE MOVES                     FEC      1563
                                         .T       ENDIF                                                          FEC      1564
                                                                                                                 FEC      1565
                                                                                                                 FEC      1566
                     5160000000 X                 SETMEM F.LBT,Z.LBT,X6    SET ALL LOCAL BLOCKS EMPTY            FEC      1567
                                                                                                                 FEC      1568
                                                                                                                 FEC      1569
                                        **        SET UP MISCELLANEOUS CELLS.                                    FEC      1570
                                                                                                                 FEC      1571
          1174  43700                             MX7    0                                                       F1037F5   319
                     5170000000 X                 SA7    =XOVCFLG                                                F1037F5   320
                               43701              MX7    1                                                       FEC      1572
          1175  5170000000 X                      SA7    NOLIST      SET TO *LIST,ALL* DEFAULT                   FEC      1573
                          43700                   MX7    0                                                       FC5A192     9
                               77601              =X6    -1                                                      FC50096    35
          1176  5170000031 +                      SA7    WANFP       INITIALIZE WA.NFP CELL                      FC5A192    10
                          5160000021 +            SA6    REFLIN                                                  FC50096    36
          1177  5120001762 +                      SA2    =1H                                                     FEC      1574
                          22702                   LX7    X2                                                      FEC      1575
                               76510              SX5    B1                                                      FEC      1576
          1200  7160000000 X                      SX6    HDRBL                                                   FEC      1577
                          20536                   LX5    30                                                      FEC      1578
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    37
        SUBROUTINES.                                                  PUP 
  
                               12665              BX6    X6+X5                                                   FEC      1579
          1201  5160000000 X                      SA6    O.STITL                                                 FEC      1580
                          5170000000 X            SA7    TL.PTYP     BLANK OUT PROGRAM TYPE                      FEC      1581
          1202  54771                             =A7    A7+1        BLANK OUT NAME                              FEC      1582
                     5077777776 X                 SA7    A7-1+ERFO   BLANK OUT IN E-FILE HEADER                  F1039     563
                               54771              =A7    A7+1                                                    FEC      1584
                                                                                                                 FEC      1585
                                        *         PRESET ERROR COUNT CELLS                                       FEC      1586
                                                                                                                 FEC      1587
          1203  6120000000 X                      SB2    N.ERRT                                                  FEC      1588
                          13666                   SETMEM B2+ERRTYP,B2                                            FEC      1589
          1206  5160000000 X                      SA6    E=TOTAL                                                 FEC      1590
                          5160000000 X            SA6    ERRORS                                                  FEC      1591
                                                                                                                 FEC      1592
                                        *         INITIALIZE WORKING COPY OF DIRECTIVE OPTIONS, EQUAL TO THEIR   FEC      1593
                                        *         CONTROL STATEMENT VALUES.                                      FEC      1594
                                                                                                                 FEC      1595
          1207  7110000000 X                      MOVE   L.C$,CO.C$,WO.C$                                        FEC      1596
          1211  5110000000 X                      SA1    CO.LOR                                                  FC50744    16
                          5120001555 +            SA2    ERT=ON                                                  FC50744    17
          1212  0331001213 +                      MI     X1,PUP60    IF REFERENCE MAP SELECTED                   FC50744    18
                          5120001556 +            SA2    ERT=OFF                                                 FC50744    19
                                                                                                                 FC50744    20
          1213  10722                    PUP60    BX7    X2                                                      FC50744    21
                     5170001535 +                 SA7    ERT         SET REFERENCE MAP SWITCH TO ON/OFF          FC50744    22
          1214  5110000000 X                      SA1    CO.LOS                                                  FEC      1597
                          5120000000 X            SA2    LEXFLG                                                  FEC      1598
          1215  43301                             MX3    1           SET TO *HEADER DELAY*                       FEC      1599
                     0331001216 +                 MI     X1,PUP70    IF PROGRAMMER SELECTED A LISTING            FEC      1600
                               13333              BX3    0           SET TO *NO HEADER DELAY*                    FEC      1601
                                                                                                                 FEC      1602
                                         PUP70    LX3    LF.HDRP-59                                              FEC      1603
          1216  12623                             BX6    X2+X3       MERGE *HDR* BIT FLAG                        FEC      1604
                     54620                        SA6    A2                                                      FEC      1605
                          0400001063 +            EQ     EXIT.       EXIT...                                     FEC      1606
                                                                                                                 FEC      1607
          1217  00000000010000000001     PUPA     VFD    DH.ATTRL/0,DH.PSL/1,DH.RAL/0,DH.DIML/1                  FEC      1608
          1220  00000000000000000001              VFD    30/0,D1.SPANL/1                                         FEC      1609
          1221  00000000010000000001              VFD    D2.LBL/1,D2.UBL/1                                       FEC      1610
  
  
  
  
                                        **        RLS - RELOCATE LOCAL SAVE VARIABLES.                           FEC      1612
                                        *                                                                        FEC      1613
                                        *         RELOCATE EACH LOCAL SAVE VARIABLE WITH RESPECT                 FEC      1614
                                        *         TO THE LOCAL SAVE BLOCK. (S$A$V$E)                             FEC      1615
                                        *                                                                        FEC      1616
                                        *         ENTRY  END OF PROGRAM UNIT HAS BEEN ENCOUNTERED                FEC      1617
                                        *                                                                        FEC      1618
                                        *         EXIT   LOCAL SAVE VARIABLES HAVE BEEN RELOCATED                FEC      1619
                                        *                                                                        FEC      1620
                                        *         USES   ALL                                                     FEC      1621
                                        *                                                                        FEC      1622
                                        *         CALLS  ALC                                                     FEC      1623
                                                                                                                 FEC      1624
                                                                                                                 FEC      1625
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    38
        SUBROUTINES.                                                  RLS 
  
          1222  0400401222 +             RLS      SUBR   0           ENTRY/EXIT.                                 FEC      1626
          1223  5110000000 X                      SA1    SAVE                                                    FEC      1627
                          5120000000 X            SA2    USAVE                                                   FEC      1628
          1224  12112                             BX1    X1+X2                                                   FEC      1629
                     0301001222 +                 ZR     X1,EXIT.    IF NO SAVE STATEMENTS APPEARED              FEC      1630
                                                                                                                 FC50870     7
                                        **        THE FOLLOWING CODE SOLVES THE VALUE. STORAGE ALLOCATION        FC50870     8
                                        *         PROBLEM BY SEARCHING THE LIST OF VALUE. SYMBOLS IN REVERSE     FC50870     9
                                        *         ORDER AND ASSIGNING THE BASE MEMBER THE TYPE OF THE FIRST      FC50870    10
                                        *         ONE WHICH HAS WB.DEF SET. IF NONE OF THEM ARE DEFINED, A       FC50870    11
                                        *         ZERO WILL BE STORED AT S=VALUE.                                FC50870    12
                                                                                                                 FC50870    13
          1225  5110000000 X                      SA1    S=VALUE                                                 FC50870    14
                          63210                   SB2    X1                                                      FC50870    15
                               20101              LX1    1                                                       FC50870    16
          1226  63212                             SB2    X1+B2       CONVERT TO INDEX                            FC50870    17
                     5120000000 X                 SA2    T.SYM                                                   FC50870    18
          1227  6122000001                        SB2    B2+WB.W                                                 FC50870    19
                          63722                   SB7    X2+B2       SAVE ADDRESS OF BASE MEMBER                 FC50870    20
          1230  6122000025                        SB2    B2+Z=SYM*N.TYPE                                         FC50870    21
                          53222                   SA2    X2+B2       INITIALIZE FETCH REG                        FC50870    22
          1231  7170000006                        SX7    M.CHAR                                                  FC50870    23
                                                                                                                 FC50870    24
          1232  5022777774               RLS5     SA2    A2-Z=SYM                                                FC50870    25
                          20264                   SBIT   X2,WB.DEFP                                              FC50870    26
          1233  0332001236 +                      MI     X2,RLS6     IF A VALUE. IS DEFINED                      FC50870    27
                          7277777776              =X7    X7-1                                                    FC50870    28
          1234  0327001232 +                      PL     X7,RLS5     IF NOT DONE                                 FC50870    29
                                                                                                                 FC50870    30
                                        **        HERE IF NO VALUE. HAS BEEN DEFINED.                            FC50870    31
                                                                                                                 FC50870    32
                          43600                   MX6    0                                                       FC50870    33
                               54610              SA6    A1                                                      FC50870    34
          1235  0400001240 +                      EQ     RLS7                                                    FC50870    35
                                                                                                                 FC50870    36
                                         RLS6     LX7    WB.MODEP    POSITION NEW MODE                           FC50870    37
          1236  43071                             MX0    -WB.MODEL                                               FC50870    38
                                                  LX0    WB.MODEP                                                FC50870    39
                     56270                        SA2    B7          *WB* OF BASE MEMBER                         FC50870    40
                          11202                   BX2    X0*X2       ERASE PREVIOUS MODE                         FC50870    41
                               12627              BX6    X2+X7       FILL IN NEW MODE                            FC50870    42
          1237  54620                             SA6    A2          UPDATE *WB*                                 FC50870    43
                                                                                                                 FEC      1631
                                        *         ALLOCATE FOR A SPECIAL LOCAL SAVE BLOCK (S$A$V$E).             FEC      1632
                                                                                                                 FEC      1633
          1240  5110000000 X             RLS7     ALLOC  T.BLKS,Z=BLKS                                           FC50870    44
          1242  5110001763 +                      SA1    =7LS$A$V$E                                              FEC      1635
                          7252777775              SX5    X2-Z=BLKS                                               FEC      1636
          1243  20560                             LX5    WC.RBP      RBS =  LEN(T.BLKS) - Z=BLKS                 FEC      1637
                     10611                        BX6    X1                                                      FEC      1638
                          5167777775              SA6    B7-Z=BLKS   BNAME[CA.] = 7LS$A$V$E                      FEC      1639
                                                                                                                 FEC      1640
                                        *         SAVLEN = 0.                                                    FEC      1641
                                        *         FOR EACH SAVED UNIQUE LOCAL VARIABLES, RELOCATE ITS RA         FEC      1642
                                        *         BY SETTING:                                                    FEC      1643
                                        *                RA[WC.] = RA[WC.] + SAVLEN                              FEC      1644
                                        *                RB[WC.] = RBS                                           FEC      1645
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    39
        SUBROUTINES.                                                  RLS 
  
                                        *                (COM,SAVE) [WB.] = (1,1)                                FEC      1646
                                        *         SAVLEN = SAVLEN + SIZE                                         FEC      1647
                                                                                                                 FEC      1648
          1244  5110000000 X                      SA1    T.SYM                                                   FEC      1649
                          5120000000 X            SA2    T=SYM                                                   FEC      1650
          1245  6130000003                        SB3    Z=SYM                                                   FEC      1651
                          53311                   =A3    X1+WB.W                                                 FEC      1652
          1246  5110000000 X                      SA1    T.DIM                                                   FEC      1653
                          63720                   SB7    X2                                                      FEC      1654
                               13777              BX7    0           SAVLEN = 0                                  FEC      1655
          1247  63510                             SB5    X1                                                      FEC      1656
                                                                                                                 FEC      1657
                                        *         PROCESS NEXT WB ENTRY OF T.SYM                                 FEC      1658
                                        *         A3 = WBI ENTRY OF T.SYM                                        FEC      1659
                                        *         (X5) = RBS                                                     FEC      1660
                                        *         (X7) = SAVLEN                                                  FEC      1661
                                        *         (B5) = FWA(T.DIM)                                              FEC      1662
                                        *         (B7) = SYMLEN                                                  FEC      1663
                                                                                                                 FEC      1664
          1250  54333                    RLS10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                     FEC      1665
                     67773                        SB7    B7-B3                                                   FEC      1666
                          0470001274 +            ZR     B7,RLS30    IF END OF T.SYM                             FEC      1667
          1251  5140001764 +                      CLAS=  X4,WB,(LAB,FP,EXT,NVAR,NLST,PARM,ENT,COM,EQV)           FEC      1668
                          11634                   BX6    X3*X4                                                   FEC      1669
                               43001              CLAS=  X0,WB,(SAVE)                                            FEC      1670
                     0316001250 +                 NZ     X6,RLS10    IF NOT UNIQUE LOCAL                         FEC      1671
          1253  5110000000 X                      SA1    USAVE                                                   FEC      1672
                          5120001765 +            CLAS=  X2,WB,(COM,SAVE,MAT)                                    FEC      1673
          1254  43401                             CLAS=  X4,WB,(BMEM)                                            FEC      1674
                          11030                   BX0    X3*X0       SAVEI = SAVE[WBI]                           FEC      1675
                               12101              BX1    X0+X1       (OR SAVEI WITH UNIVERSAL SAVE FLAG)         FEC      1676
          1255  12632                             BX6    X3+X2                                                   FEC      1677
                     0301001250 +                 ZR     X1,RLS10    IF NOT SAVED LOCAL                          FEC      1678
                               11434              BX4    X3*X4       BMEMI = BMEM[WBI]                           FEC      1679
          1256  20367                             SBIT   X3,WB.CGSP                                              FEC      1680
                     0323001260 +                 PL     X3,RLS15    IF NOT COMPILER GENERATED SYMBOL            FEC      1681
          1257  0304001250 +                      ZR     X4,RLS10    IF NOT BASE MEMBER                          FEC      1682
                                                                                                                 FEC      1683
          1260  54630                    RLS15    SA6    A3          (COM,SAVE)[WBI] = (1,1) [WB.]               FEC      1684
                     43471                        MX4    -WB.MODEL                                               FEC      1685
                          20322                   LX3    1+WB.CGSP-WB.PNTP                                       FEC      1686
                               43057              MX0    -WB.PNTL                                                FEC      1687
          1261  54131                             =A1    A3-WB.W+WC.W      WCI = WC ENTRY OF T.SYM               FEC      1688
                     15630                        BX6    -X0*X3      DTIND = PNT[WBI]                            FEC      1689
                          53265                   SA2    X6+B5       TDI = T.DIM(DTIND)                          FEC      1690
                               20206              HX2    DH.PS                                                   FEC      1691
          1262  21244                             AX2    -DH.PSL     SIZE = PS[TDI]                              FEC      1692
                     20357                        LX3    WB.PNTP-WB.MODEP                                        FEC      1693
                          15634                   BX6    -X4*X3      MODEI = MODE[WBI]                           FEC      1694
          1263  6246777771                        SB4    X6-M.CHAR                                               FEC      1695
                          43374                   MX3    -0          INDICATE TWO WORD ELEMENT                   FEC      1696
          1264  6226777773                        SB2    X6-M.DBL                                                FEC      1697
                          0420001271 +            EQ     B2,B0,RLS20 IF MODE = DOUBLE                            FEC      1698
          1265  0421001271 +                      EQ     B2,B1,RLS20 IF MODE = COMPLEX                           FEC      1699
                                   0              ERRNZ  M.CPLX-M.DBL-1                                          FEC      1700
                          7130000000              SX3    0           INDICATE SIGLE WORD ELEMENT                 FEC      1701
          1266  0540001271 +                      NZ     B4,RLS20    IF NOT MODE CHARACTER                       FEC      1702
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    40
        SUBROUTINES.                                                  RLS 
  
                          10611                   BX6    X1                                                      FEC      1703
                               20614              HX6    WC.CLEN                                                 FEC      1704
          1267  21652                             AX6    -WC.CLENL   CLENI = CLEN[WCI]                           FEC      1705
                     42626                        IX6    X2*X6       SIZE = SIZE *CLENI                          FEC      1706
                          7120000011              CW     X2,X6       SIZE = SIZE / 10                            FEC      1707
          1271  12115                    RLS20    BX1    X1+X5                                                   FEC      1708
                     22007                        LX0    X7                                                      FEC      1709
                          11332                   BX3    X3*X2                                                   FEC      1710
                               36223              IX2    X2+X3       SIZE = 2 * SIZE ( IF DOUBLE WORD)           FEC      1711
                                                  LX0    WC.RAP                                                  FEC      1712
          1272  12610                             BX6    X1+X0                                                   FEC      1713
                     36772                        IX7    X7+X2       SAVLEN = SAVLEN + SIZE                      FEC      1714
                          54610                   SA6    A1          (RB,RA) [WCI] = (RBS,SAVLEN) [WC.]          FEC      1715
          1273  0400001250 +                      EQ     RLS10                                                   FEC      1716
                                                                                                                 FEC      1717
                                        *         UPDATE LENGTH OF S$A$V$E BLOCK.                                FEC      1718
                                                                                                                 FEC      1719
          1274  0307001277 +             RLS30    ZR     X7,RLS40    IF SAVLEN .EQ. 0                            FEC      1720
                          5110000000 X            SA1    T.BLKS                                                  FEC      1721
          1275  43201                             CLAS=  X2,CB,(SAVE)                                            FEC      1722
                          20514                   LX5    -WC.RBP                                                 FEC      1723
                                                  LX7    CB.BLENP                                                FEC      1724
                               63411              =B4    X1+CB.W                                                 FEC      1725
          1276  12772                             BX7    X7+X2                                                   FEC      1726
                     53754                        SA7    X5+B4       (SAVE,BLEN) [T.BLKS(RBS)] = (1,SAVLEN)[CB.] FEC      1727
                          0400001222 +            EQ     EXIT.                                                   FEC      1728
                                                                                                                 FEC      1729
                                        *         LOCAL SAVE BLOCK LENGTH .EQ. 0...                              FEC      1730
                                        *         SHRINK BLOCK TABLE TO ORIGINAL SIZE.                           FEC      1731
                                                                                                                 FEC      1732
          1277  5110000000 X             RLS40    SA1    T=BLKS                                                  FEC      1733
                          7261777775              SHRINK A1,X1-Z=BLKS                                            FEC      1734
                     0400001222 +                 EQ     EXIT.                                                   FEC      1735
  
  
  
  
                                        **        RSC -  RESET INTRA-STATEMENT CELLS.                            FEC      1737
                                        *                                                                        FEC      1738
                                        *         EXIT   (ALC.00) = NO REGISTER IS LOCKED.                       FEC      1739
                                        *                (T=CONB) = LENGTHS OF CON AND CHAR TABLES, AT BEGINNING FEC      1740
                                        *                            OF STATEMENT.  USED TO THROW AWAY CONSTANTS FEC      1741
                                        *                            APPEARING IN A DATA STATEMENT.              FEC      1742
                                        *                RESET OF CELLS.                                         FEC      1743
                                                                                                                 FEC      1744
                                                                                                                 FEC      1745
          1301  0400401301 +             RSC      SUBR   0                                                       FEC      1746
          1302  13666                             BX6    0                                                       FEC      1747
                     7170000055                   =X7    CR.REF                                                  FEC      1748
          1303  5160000005 +                      SA6    DATFLG      CLEAR DATA-KLUDGE 'FLAG'                    FEC      1749
                          5160000006 +            SA6    DTI         CLEAR DO-TERMINATION INDICATOR              FEC      1750
          1304  5170000022 +                      SA7    REFNUM        -   CURRENT VALUE FOR REFS TO STAT. NO.   FEC      1751
                          5160000004 +            SA6    CSLTAG        -   CURRENT STATEMENT LABEL TAG           FEC      1752
          1305  5160000000 X                      SA6    E=TOTAL       -   CURRENT STATEMENT ERROR COUNT         FEC      1753
                          5160000000 X            SA6    INIF          -   LOGICAL IF INDICATOR                  FEC      1754
          1306  5160000017 +                      SA6    PARMODE       -   PARSE MODE                            FEC      1755
                          5160000000 X            SA6    PARNOW        -   CURRENT PARSE MODE                    FC50128     7
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    41
        SUBROUTINES.                                                  RSC 
  
          1307  5160000045 +                      SA6    ZLE                                                     FEC      1756
                          5160000042 +            SA6    ZLEQUAL                                                 FEC      1757
          1310  5160000043 +                      SA6    ZLCOMMA                                                 FEC      1758
                          5160000044 +            SA6    ZLPAREN                                                 FEC      1759
          1311  5160000046 +                      SA6    ZLCOLON                                                 FEC      1760
                          5160000000 X            SHRINK T=SCR,X6    RESET TO ZERO                               FC51512     7
          1312  5170000023 +                      SA7    REFVAR                                                  FEC      1761
                          5120000000 X            SA2    T=CON                                                   FEC      1762
          1313  5110000000 X                      SA1    ALC.00      POINTER TO NO REGISTERS TO RESTORE          FEC      1763
                          22701                   LX7    X1                                                      FEC      1764
                               10622              SHRINK T=CONB,X2   RESET TO START OF CONSTANTS FOR THIS STAT.  FEC      1765
                          5170000000 X            SA7    ALC.REG     RESET SO NO REGISTERS WILL BE RELOCATED     FEC      1766
          1315  0400001301 +                      EQ     RSCX        EXIT..                                      FEC      1767
  
  
  
  
                                        **        SSU - SET SAVE BIT FOR UNIVERSAL SAVE.                         FEC      1769
                                        *         FOR UNIVERSAL SAVE, SET SAVE[WB.] FOR ALL LOCAL AND            FEC      1770
                                        *         COMMON VARIABLES.                                              FEC      1771
                                                                                                                 FEC      1772
                                                                                                                 FEC      1773
          1316  0400401316 +             SSU      SUBR   0           ENTRY/EXIT.                                 FEC      1774
          1317  5110000000 X                      SA1    USAVE                                                   FEC      1775
                          5120000000 X            SA2    T=SYM                                                   FEC      1776
          1320  0301001316 +                      ZR     X1,EXIT.    IF NO UNIVERSAL SAVE                        FEC      1777
                          5130000000 X            SA3    T.SYM                                                   FEC      1778
          1321  63620                             SB6    X2                                                      FEC      1779
                     43001                        CLAS=  X0,WB,(SAVE)                                            FEC      1780
          1322  6130000003                        SB3    Z=SYM                                                   FEC      1781
                          53331                   =A3    X3+WB.W                                                 FEC      1782
          1323  5120001767 +                      CLAS=  X2,WB,(LAB,FP,EXT,NVAR,NLST,PARM,ENT)                   FEC      1783
                          43401                   CLAS=  X4,WB,(BMEM)                                            FEC      1784
          1324  7150000020                        CLAS=  X5,WB,(CGS)                                             FEC      1785
                                                                                                                 FC50776     5
          1325  54333                    SSU10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                     FEC      1786
                     67663                        SB6    B6-B3                                                   FEC      1787
                          0460001316 +            ZR     B6,EXIT.    IF END OF T.SYM                             FEC      1788
          1326  11132                             BX1    X3*X2                                                   FEC      1789
                     11734                        BX7    X3*X4       BMEMI = BMEM[WBI]                           FEC      1790
                          0311001325 +            NZ     X1,SSU10    IF NOT LOCAL OR COMMON                      FEC      1791
          1327  11635                             BX6    X3*X5       CGSI = CGS[WBI]                             FEC      1792
                     20750                        HX7    WB.BMEM                                                 FC50776     6
                          20667                   HX6    WB.CGS                                                  FC50776     7
                               13776              BX7    X7-X6                                                   FC50776     8
          1330  0317001325 +                      NZ     X7,SSU10    IF CGS AND NOT BMEM [EQ.]                   FC50776     9
                          12603                   BX6    X0+X3                                                   FEC      1795
                               54630              SA6    A3          SAVE[WBI] = 1                               FEC      1796
          1331  0400001325 +                      EQ     SSU10                                                   FEC      1797
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    42
        FRONT END SUPPORT ROUTINES.                                   BBC 
  
                                        **        BBC -  BASE/BIAS CONVERSION.                                   FC5A141    20
                                        *                                                                        FC5A141    21
                                        *         WILL CONVERT A TP. FORMAT OPERAND TO BASE/BIAS FORM.           FC5A141    22
                                        *                                                                        FC5A141    23
                                        *         ENTRY  (X5) = TP.FORMAT OPERAND.                               FC5A141    24
                                        *                                                                        FC5A141    25
                                        *         EXIT   (X5) = BASE/BIAS CONVERSION.                            FC5A141    26
                                        *                                                                        FC5A141    27
                                        *         USES   X - 1,2,5,6,7  A - 1,2  B - 2.                          FC5A141    28
                                                                                                                 FC5A141    29
                                                                                                                 FC5A141    30
          1332  0400401332 +             BBC      SUBR   =           ENTRY/EXIT...                               FC5A141    31
          1333  10655                             BX6    X5                                                      FC5A141    32
                     20652                        HX6    TP.EQV                                                  FC5A141    33
                          0326001332 +            PL     X6,EXIT.    IF ALREADY IN BASE/BIAS FORM                FC5A141    34
          1334  43754                             MX7    -TP.ORDL                                                FC5A141    35
                     20642                        LX6    TP.EQVP+1-TP.ORDP                                       FC5A141    36
                          15667                   BX6    -X7*X6      X6 = SYMTAB ORDINAL                         FC5A141    37
          1335  5120000000 X                      SA2    T.SYM                                                   FC5A141    38
                          63260                   SB2    X6                                                      FC5A141    39
                               20601              LX6    1                                                       FC5A141    40
          1336  63262                             SB2    B2+X6                                                   FC5A141    41
                     66221                        =B2    B2+WB.W     CONVERT TO *WB* INDEX                       FC5A141    42
                          53122                   SA1    X2+B2       *WB*                                        FC5A141    43
                               43760              MX7    -WB.BASEL                                               FC5A141    44
          1337  20133                             LX1    -WB.BASEP                                               FC5A141    45
                     15117                        BX1    -X7*X1      X1 = SYMORD OF EQUIV. CLASS BASE            FC5A141    46
                          10611                   BX6    X1          SAVE IT FOR LATER                           FC5A141    47
                               54111              =A1    A1+WC.W-WB.W      *WC*                                  FC5A141    48
          1340  43744                             MX7    -WC.RAL                                                 FC5A141    49
                                                  LX1    -WC.RAP                                                 FC5A141    50
                     15117                        BX1    -X7*X1      X1 = RA OF OPERAND                          FC5A141    51
                          43744                   MX7    -TP.BIASL                                               FC5A141    52
                               10255              BX2    X5                                                      FC5A141    53
          1341  20220                             HX2    TP.BIAS                                                 FC5A141    54
                     21244                        AX2    -TP.BIASL   EXTRACT OPERAND BIAS WITH SIGN EXTEND       FC5A141    55
                          36112                   IX1    X1+X2       X1 = NEW BIAS                               FC5A141    56
                               15117              BX1    -X7*X1                                                  FC5A141    57
          1342  5120001770 +                      CLAS=  X2,TP,(BIAS,ORD,EQV)                                    FC5A141    58
                          20654                   LX6    TP.ORDP                                                 FC5A141    59
                               20124              LX1    TP.BIASP                                                FC5A141    60
          1343  15552                             BX5    -X2*X5      CLEAR OLD BIAS AND ORD                      FC5A141    61
                     12556                        BX5    X5+X6                                                   FC5A141    62
                          12551                   BX5    X5+X1       X5 = OPERAND IN BASE/BIAS FORM              FC5A141    63
          1344  0400001332 +                      EQ     EXIT.                                                   FC5A141    64
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    43
        FRONT END SUPPORT ROUTINES.                                   CCT 
  
                                        **        CCT -  CHECK CONFLICTING TYPES.                                FEC      1800
                                        *                                                                        FEC      1801
                                        *         POST AN ERROR IF ELEMENT IS GIVEN CONFLICTING TYPE.            FEC      1802
                                        *                                                                        FEC      1803
                                        *         ENTRY  (X0) = ORDINAL OF SYMBOL.                               FEC      1804
                                        *                (X1) = BIT NUMBER OF NEW CLASS.                         FEC      1805
                                        *                       (CAN ONLY BE ONE BIT AND NEVER BE EITHER --      FEC      1806
                                        *                            A.  NOT-VAR                                 FEC      1807
                                        *                       OR   B.  VAR                                     FEC      1808
                                        *                (X3) = MASK OF FORBIDDEN CLASSES.                       FEC      1809
                                        *                (A2) = ADDRESS OF SYMTAB WORD (WB).                     FEC      1810
                                        *                                                                        FEC      1811
                                        *                FILL.= SET TO ELEMENT CURRENTLY BEING CHECKED.          FEC      1812
                                        *                                                                        FEC      1813
                                        *         EXIT   IF NO ERROR --                                          FEC      1814
                                        *                ONLY (X3) DESTROYED.                                    FEC      1815
                                        *                                                                        FEC      1816
                                        *                IF CONFLICT --                                          FEC      1817
                                        *                (X0) = .LT. ZERO                                        FEC      1818
                                        *                ONLY (B4, B5, B6) PRESERVED.                            FEC      1819
                                                                                                                 FEC      1820
                                                                                                                 FEC      1821
          1345  0400401345 +             CCT      SUBR   =           ENTRY/EXIT...                               FEC      1822
          1346  11332                             BX3    X3*X2                                                   FEC      1823
                     0303001345 +                 ZR     X3,EXIT.    IF NO CONFLICT                              FEC      1824
                               24373              NX3,B7             LOCATE LEADING BIT IN CONTENTION            FEC      1825
          1347  6120000057 X                      SB2    CLASS+47                                                FEC      1826
                          5211000000 X            SA1    X1+CLASS    FETCH ERRLIT FOR CANNOT-BE                  FEC      1827
          1350  57327                             SA3    B2-B7       FETCH ERRLIT FOR CURRENT CLASS              FEC      1828
                     10633                        BX6    X3                                                      FEC      1829
                          5160000000 X            SA6    FILL.2                                                  FEC      1830
          1351  22701                             LX7    X1                                                      FEC      1831
                     54761                        SA7    A6+B1                                                   FEC      1832
                          6170000000 X            FATAL  E.VA02                                                  FEC      1833
          1353  43073                             MX0    -1          INDICATE ERROR                              FEC      1834
                     0400001345 +                 EQ     EXIT.       EXIT...                                     FEC      1835
  
  
  
  
                                        **        CT1 - CONSTRUCT PASS ONE TAG FORM.                             FEC      1837
                                        *                                                                        FEC      1838
                                        *         ENTRY  (X0) = SYMTAB ORDINAL.                                  FEC      1839
                                        *                                                                        FEC      1840
                                        *         EXIT   (X0) = SYMTAB ORDINAL.                                  FEC      1841
                                        *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                  FEC      1842
                                        *                (X6) = PASS ONE TAG FORM.                               FEC      1843
                                        *                (B7) = SYMTAB WB INDEX.                                 FEC      1844
                                        *         USES   A1  X3.                                                 FEC      1845
                                                                                                                 FEC      1846
                                                                                                                 FEC      1847
          1354  0400401354 +             CT1      SUBR   =           ENTRY/EXIT...                               FEC      1848
          1355  22210                             LX2    X0,B1                                                   FEC      1849
                     36320                        IX3    X2+X0                                                   FEC      1850
                                   0              ERRNZ  3-Z=SYM                                                 FEC      1851
                                         .TEST    IFNE   TEST                                                    FEC      1852
                                                  MI     X0,"BLOWUP"       IF NEGATIVE ORDINAL                   FEC      1853
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    44
        FRONT END SUPPORT ROUTINES.                                   CT1 
  
                                                  SA1    T=SYM                                                   FEC      1854
                                                  IX2    X3-X1                                                   FEC      1855
                                                  PL     X2,"BLOWUP"       IF INDEX .GE. SYMTAB LENGTH           FEC      1856
                                         .TEST    ENDIF                                                          FEC      1857
                          5110000000 X            SA1    T.SYM                                                   FEC      1858
          1356  63731                             =B7    X3+WB.W     RETURN (B7) = INDEX OF WB                   FEC      1859
                     53217                        SA2    X1+B7       RETURN (A2, X2) = SYMTAB ATTRIBUTE WORD     FEC      1860
                                                                                                                 FEC      1861
                                        *         FORM *P2 TAG* WORD.                                            FEC      1862
                                                                                                                 FEC      1863
                          73600                   SX6    X0                                                      FEC      1864
                                   2              ERRMI  18-TP.ORDL  IF TRUNCATION PROBLEMS                      FEC      1865
                               20654              LX6    TP.ORDP                                                 FEC      1866
                                                                                                                 FEC      1867
                                        *         TEST FOR STATEMENT LABEL                                       FEC      1868
                                                                                                                 FEC      1869
          1357  10322                             BX3    X2                                                      FEC      1870
                     20370                        SBIT   X3,WB.LABP                                              FEC      1871
                          0333001354 +            MI     X3,EXIT.    IF STATEMENT LABEL                          FEC      1872
                                                                                                                 FEC      1873
                                        *         COPY FP BIT.                                                   FEC      1874
                                                                                                                 FEC      1875
          1360  7130200000                        CLAS=  X3,WB,(FP)                                              FEC      1876
                          11132                   BX1    X3*X2       EXTRACT (FP)                                FEC      1877
                               20102              LX1    -WB.FPP+TP.FPP                                          FEC      1878
          1361  36616                             IX6    X1+X6       MERGE (FP) INTO TAG                         FEC      1879
                                                                                                                 FEC      1880
                                        *         COPY MODE FIELD.                                               FEC      1881
                                                                                                                 FEC      1882
                                                  LX2    -WB.MODEP                                               FEC      1883
                     43371                        MX3    -WB.MODEL                                               FEC      1884
                                   0              ERRNZ  WB.MODEL-TP.MODEL                                       FEC      1885
                          15123                   BX1    -X3*X2                                                  FEC      1886
                                                  LX1    TP.MODEP                                                FEC      1887
                               36661              IX6    X6+X1                                                   FEC      1888
                                                                                                                 FEC      1889
                                        *         COPY EQUIVALENCE BIT.                                          FEC      1890
                                        *                FOR NON-BASE MEMBERS ONLY, SET (TP.EQV).                FEC      1891
                                                                                                                 FEC      1892
          1362  20262                             LX2    WB.MODEP+59-WB.EQVP                                     FEC      1893
                     43301                        MX3    1                                                       FEC      1894
                          11132                   BX1    X3*X2                                                   FEC      1895
                               20122              LX1    TP.EQVP+1                                               FEC      1896
          1363  36661                             IX6    X6+X1                                                   FEC      1897
                                                                                                                 FEC      1898
                                        *         COPY LCM BIT.                                                  FEC      1899
                                                                                                                 FEC      1900
                     20264                        LX2    WB.EQVP-WB.LCMP                                         FEC      1901
                          11132                   BX1    X3*X2       EXTRACT (LCM) BIT                           FEC      1902
                               20124              LX1    1+TP.LCMP                                               FEC      1903
          1364  36661                             IX6    X6+X1                                                   FEC      1904
                                                                                                                 FEC      1905
                     20222                        LX2    WB.LCMP-59  RESTORE (X2)                                FEC      1906
                          0400001354 +            EQ     EXIT.                                                   FEC      1907
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    45
        FRONT END SUPPORT ROUTINES.                                   STY 
  
                                        **        STY  - SET NATURAL (IMPLICIT) TYPE                             FEC      1909
                                        *                                                                        FEC      1910
                                        *         ENTRY- NAME IN X6 (LEFT JUST, ZERO FILL)                       FEC      1911
                                        *                                                                        FEC      1912
                                        *         EXIT   (X1) = MODE.                                            FEC      1913
                                        *                (X2) = CHARACTER LENGTH (0 IF TYPE NOT CHARACTER)       FEC      1914
                                        *                (X6) = PRESERVED.                                       FEC      1915
                                        *                (B7) = 1ST CHARACTER OF NAME.                           FEC      1916
                                        *                                                                        FEC      1917
                                        *         DESTROYS  A1.                                                  FEC      1918
                                                                                                                 FEC      1919
                                                                                                                 FEC      1920
          1365  23171                    STY2     AX1    X1,B7       REPOSITION                                  FEC      1921
                     20666                        LX6    -6          RESTORE X6                                  FEC      1922
                          7221777771              SX2    X1-M.CHAR                                               FEC      1923
          1366  73110                             SX1    X1          ISOLATE MODE                                FEC      1924
                     0302001370 +                 ZR     X2,STY3     IF TYPE CHARACTER                           FEC      1925
                               43200              MX2    0                                                       FEC      1926
          1367  0400001374 +                      EQ     STYX                                                    FEC      1927
                                                                                                                 FEC      1928
          1370  77271                    STY3     =X2    B7-1                                                    FEC      1929
                     20273                        LX2    -1                                                      FEC      1930
                          0332001373 +            MI     X2,STY4     IF ODD LETTER (LOWER HALF OF PAIR)          FEC      1931
          1371  5222001411 +                      SA2    X2+NAT.LEN  FETCH PAIR                                  FEC      1932
                          21236                   AX2    30          UPPER HALF ONLY                             FEC      1933
                               20236              LX2    WC.CLENP                                                FEC      1934
          1372  0400001374 +                      EQ     STYX                                                    FEC      1935
                                                                                                                 FEC      1936
          1373  5222001411 +             STY4     SA2    X2+NAT.LEN  FETCH PAIR                                  FEC      1937
                          73220                   SX2    X2          LOWER HALF ONLY                             FEC      1938
                               20236              LX2    WC.CLENP                                                FEC      1939
                                                                                                                 FEC      1940
          1374  0400401374 +             STY      SUBR   =           ENTRY/EXIT...                               FEC      1941
          1375  20606                             LX6    CHAR                                                    FEC      1942
                     7120000006                   =X2    N.TYPE-1                                                FEC      1943
                               43166              MX1    -CHAR                                                   FEC      1944
          1376  15161                             BX1    -X1*X6      ISOLATE FIRST CHARACTER                     FEC      1945
                     6271000000                   SB7    X1+                                                     FEC      1946
          1377  5212001402 +             STY1     SA1    X2+NAT.TYP                                              FEC      1947
                          7222777776              SX2    X2-1                                                    FEC      1948
          1400  22171                             LX1    X1,B7                                                   FEC      1949
                     0331001365 +                 MI     X1,STY2     IF HIT                                      FEC      1950
          1401  0322001377 +                      PL     X2,STY1     IF NO TABLE EXHAUSTION                      FEC      1951
                          0400401401 +            TRUBL  E.ZA                                                    FEC      1952
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    46
        FRONT END SUPPORT ROUTINES.                                   NAT.TYPE
  
                                        **        NAT.TYPE - TABLE OF NATURAL (IMPLICIT) TYPES.                  FEC      1954
                                                                                                                 FEC      1955
                                                                                                                 FEC      1956
          1402                           NAT.TYP  BSSENT 0                                                       FEC      1957
      L      0                                    LOC    0                                                       FEC      1958
      L      0  00000000000000000000     M.BOOL   VFD    27/000000000B,15/0,18/M.BOOL                            FEC      1959
      L      1  00000000000000000001     M.LOG    VFD    27/000000000B,15/0,18/M.LOG                             FEC      1960
      L      2  00077000000000000002     M.INT    VFD    27/000770000B,15/0,18/M.INT                             FEC      1961
      L      3  37700777700000000003     M.REAL   VFD    27/377007777B,15/0,18/M.REAL                            FEC      1962
      L      4  00000000000000000004     M.DBL    VFD    27/000000000B,15/0,18/M.DBL                             FEC      1963
      L      5  00000000000000000005     M.CPLX   VFD    27/000000000B,15/0,18/M.CPLX                            FEC      1964
      L      6  00000000000000000006     M.CHAR   VFD    27/000000000B,15/0,18/M.CHAR                            FEC      1965
      L   1411                                    LOC    *O                                                      FEC      1966
                                                                                                                 FEC      1967
          1411                    15     NAT.LEN  BSZENT 26/2                                                    FEC      1968
  
  
  
  
                                        **        TLV - TRUNCATE LONG VARIABLE.                                  FEC      1970
                                        *                                                                        FEC      1971
                                        *         WHEN A VARIABLE NAME (TYPE O.VAR) OCCUPIES MORE THAN ONE       FEC      1972
                                        *         TOKEN, B4 IS RESET TO POINT TO THE LAST TOKEN IN THE           FEC      1973
                                        *         STRING AND THE VALUE OF THIS TOKEN IS CHANGED TO THE SAME      FEC      1974
                                        *         AS THE FIRST TOKEN.  THIS EVIDENTLY FOOLS PAR INTO THINKING    FEC      1975
                                        *         THE NAME DOES NOT EXCEED 7 CHARACTERS.                         FEC      1976
                                        *                                                                        FEC      1977
                                        *         CALLED BY - PAR,CST,TRV,ETC,ETC                                FEC      1978
                                        *                                                                        FEC      1979
                                        *         ENTRY  (B4) _ FIRST TOKEN IN VARIABLE.                         FEC      1980
                                        *                IT IS KNOWN THAT THE NEXT TOKEN IS OF TYPE O.VAR.       FEC      1981
                                        *                                                                        FEC      1982
                                        *         EXIT   (B4) _ LAST TOKEN IN VARIABLE.                          FEC      1983
                                        *                CONTENTS OF LAST TOKEN = CONTENTS OF FIRST TOKEN.       FEC      1984
                                        *                                                                        FEC      1985
                                        *         USES   A2,A7   X0,X2,X7   B4,B7                                FEC      1986
                                        *                                                                        FEC      1987
                                        *         CALLS  NONE                                                    FEC      1988
                                                                                                                 FEC      1989
                                                                                                                 FEC      1990
          1426  0400401426 +             TLV      SUBR   =           ** ENTRY/EXIT **                            FEC      1991
          1427  56240                             SA2    B4                                                      FEC      1992
                     10722                        BX7    X2          SAVE FIRST TOKEN OF NAME                    FEC      1993
                          43052                   MX0    WA.SYML                                                 FEC      1994
          1430  66441                    TLV5     =B4    B4+1                                                    FEC      1995
                     56241                        =A2    B4+1                                                    FEC      1996
                          6272777766              SB7    X2-O.VAR                                                FEC      1997
          1431  0470001430 +                      ZR     B7,TLV5     IF MORE CHARACTERS IN NAME                  FEC      1998
                          56740                   SA7    B4          SET LAST TOKEN=FIRST TOKEN                  FEC      1999
                               11707              BX7    X0*X7                                                   FEC      2000
          1432  5170000000 X                      SA7    FILL.                                                   FEC      2001
                          6170000000 X            FATAL  E.VA10      ** NAME TOO LONG, TRUNCATED                 FEC      2002
          1434  0400001426 +                      EQ     EXIT.                                                   FEC      2003
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    47
        FRONT END SUPPORT ROUTINES.                                   TRV 
  
                                        **        TRV -  TRANSLATE VARIABLE.                                     FEC      2005
                                        *                                                                        FEC      2006
                                        *         ENTRY  (B2) = 1 ENTRY (FUNCTION) ALLOWED AS VARIABLE (VALUE.)  FEC      2007
                                        *                     = 0 DISALLOWED                                     FEC      2008
                                        *                (B4) _ VARIABLE TO BE TRANSLATED                        FEC      2009
                                        *                                                                        FEC      2010
                                        *         EXIT   (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                  FEC      2011
                                        *                (X6) = PASS 2 TAG FORM.                                 FEC      2012
                                        *                (B7) = INDEX OF *WB*                                    FEC      2013
                                        *                (X0) = ORDINAL IF NO ERROR DETECTED                     FEC      2014
                                        *                     = -1 OTHERWISE                                     FEC      2015
                                        *         NOTE   *TRV* VALIDATES THE *ENTRY* BEFORE EXIT TO MAKE SURE    FEC      2016
                                        *                NO USAGE CONFLICT EXIST.                                FEC      2017
                                        *         USES   A1,A2,A3,A6 X0 B2,B3,B7                                 FEC      2018
                                        *                (TRVA, TRVA+1)                                          FEC      2019
                                                                                                                 FEC      2020
                                                                                                                 FEC      2021
                                                                                                                 FEC      2022
          1435  0400401435 +             TRV      SUBR   =           ENTRY/EXIT...                               FEC      2023
          1436  76620                             SX6    B2                                                      FEC      2024
                     5160001503 +                 SA6    TRVB        SAVE ENTRY INDICATOR                        FEC      2025
                               56140              SA1    B4                                                      FEC      2026
          1437  43052                             MX0    WA.SYML                                                 FEC      2027
                     11601                        BX6    X0*X1       SYMBOL ONLY                                 FEC      2028
                          6221777766              SB2    X1-O.VAR                                                FEC      2029
          1440  5160000000 X                      SA6    FILL.                                                   FEC      2030
                          0520000000 X            NZ     B2,E.VA09   IF NOT *VARIABLE*                           FC50110     7
          1441  5124000001                        SA2    B4+1                                                    FC50110     8
                          6272777766              SB7    X2-O.VAR                                                FEC      2038
          1442  0570001443 +                      NZ     B7,TRV5     IF NAME LESS THAN 8 CHAR                    FEC      2039
                          0100001426 +            CALL   TLV         TRUNCATE LONG VARIABLE NAME                 FEC      2040
          1443  0100001730 +             TRV5     RJ     SSY                                                     FEC      2041
          1444  63300                             SB3    X0          (B3) = ORDINAL                              FEC      2042
                     76730                        SX7    B3                                                      FEC      2043
                          5170001502 +            SA7    TRVA                                                    FEC      2044
          1445  0670001452 +                      PL     B7,TRV10    IF FOUND IN TABLE                           FEC      2045
                          0100001374 +            RJ     STY         SET MODE                                    FEC      2047
          1446  7170000040                        CLAS=  X7,WB,(VAR)                                             FEC      2048
                          12717                   BX7    X1+X7       ADD MODE                                    FEC      2049
          1447  5110000000 X                      ADSYM  T.SYM       ADD SYMBOL + TAG TO TABLE.                  FEC      2050
          1450  63300                             SB3    X0          ORDINAL                                     FEC      2051
                     76730                        SX7    B3                                                      FEC      2052
                          5170001502 +            SA7    TRVA                                                    FEC      2053
          1451  0400001474 +                      EQ     TRV12                                                   FEC      2054
                                                                                                                 FEC      2055
          1452  10066                    TRV10    BX0    X6                                                      FEC      2056
                     20070                        SBIT   X0,WB.LABP                                              FEC      2057
                          7110000003 X            SX1    CLASS+WB.LABP                                           FEC      2058
          1453  0330001470 +                      MI     X0,TRV11E   IF STATEMENT LABEL                          FEC      2059
                          20071                   LX0    WB.LABP-WB.NVARP                                        FEC      2060
          1454  0320001474 +                      PL     X0,TRV12    IF NOT A *NOT VARIABLE*                     FEC      2061
                          7120014410              CLAS=  X2,WB,(SUB,FUN,LAB,PARM)                                FEC      2062
          1455  11026                             BX0    X2*X6                                                   FEC      2063
                     0310001467 +                 NZ     X0,TRV11    IF NASTY NVAR                               FEC      2064
                               43001              CLAS=  X0,WB,(ENT)                                             FEC      2065
                     11206                        BX2    X0*X6                                                   FEC      2066
                          7110000006 X            SX1    CLASS+WB.NVARP                                          FEC      2067
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    48
        FRONT END SUPPORT ROUTINES.                                   TRV 
  
          1457  0302001470 +                      ZR     X2,TRV11E   IF NOT ENTRY POINT                          FEC      2068
                          5110000000 X            SA1    MOD                                                     FEC      2069
          1460  20160                             SBIT   X1,MO.FUNP                                              FEC      2070
                     0321001467 +                 PL     X1,TRV11    IF NOT FUNCTION SUBPROGRAM                  FEC      2071
          1461  5110001503 +                      SA1    TRVB                                                    FEC      2072
                          0301001467 +            ZR     X1,TRV11    IF MAIN ENTRY POINT ILLEGAL AS VARIABLE     FEC      2073
          1462  5110000000 X                      SA1    S=VALUE     X1 = SYMORD OF VALUE.                       FEC      2074
                          43071                   MX0    -WB.MODEL                                               FEC      2075
                                                  LX2    -WB.MODEP                                               FEC      2076
                               15020              BX0    -X0*X2      ISOLATE MODE OF ENTRY POINT                 FEC      2077
          1463  36701                             IX7    X0+X1                                                   FEC      2078
                     5170001502 +                 SA7    TRVA                                                    FEC      2079
                               63370              SB3    X7                                                      FEC      2080
          1464  22117                             LX1    B1,X7                                                   FEC      2081
                     73113                        SX1    X1+B3       CONVERT TO INDEX                            FEC      2082
                          63711                   =B7    X1+WB.W                                                 FEC      2083
          1465  5110000000 X                      SA1    T.SYM                                                   FEC      2084
                          53217                   SA2    X1+B7       *WB* OF PROPER VALUE. SYMBOL                FEC      2085
          1466  0400001474 +                      EQ     TRV12                                                   FEC      2086
                                                                                                                 FEC      2087
                                        *         CLASS CONFLICT.  GET PROPER MESSAGE.                           FEC      2088
                                                                                                                 FEC      2089
          1467  24220                    TRV11    NX2,B2 X0          LOCATE LEADING BIT OF CONTENTION            FEC      2090
                     77002                        SX0    -B2                                                     FEC      2091
                          7210000057 X            SX1    X0+47+CLASS                                             FEC      2092
                                                                                                                 FEC      2093
          1470  53310                    TRV11E   SA3    X1          FETCH ERRLIT FOR CLASS NAME                 FEC      2094
                     6170000000 X                 SB7    E.VA00      USAGE CONFLICT ERROR                        FEC      2095
                               10633              BX6    X3                                                      FEC      2096
          1471  5160000000 X                      SA6    FILL.2      SET NAME OF CONFLICTING CLASS               FEC      2097
                          0100000000 X            FATAL  B7                                                      FEC      2098
          1472  76030                             SX0    B3                                                      FEC      2099
                     0100001354 +                 RJ     CT1         CONSTRUCT OPERAND (TP.)                     FEC      2100
          1473  43073                             MX0    -1          INDICATE ERROR                              FEC      2101
                                                                                                                 FEC      2102
                                        **               (B3) = SYMTAB ORDINAL.                                  FEC      2103
                                                                                                                 FEC      2104
          1474  5110000000 X             TRV12    SA1    WO.LOR                                                  FEC      2105
                          0321001477 +            PL     X1,TRV20    IF NO CROSS-REFERENCE SELECTED.             FEC      2106
          1475  76630                             SX6    B3                                                      FEC      2107
                     20652                        LX6    XR.TAGP     CONSTRUCT XREF TAG                          FEC      2108
                          5110000023 +            SA1    REFVAR      TYPE OF REFERENCE                           FEC      2109
          1476  6170001477 +                      ADDREF X6,X1                                                   FEC      2110
                                                                                                                 FEC      2111
                                        **        SET-UP EXIT CONDITIONS.                                        FEC      2112
                                                                                                                 FEC      2113
          1477  5110001502 +             TRV20    SA1    TRVA                                                    FEC      2114
                          10011                   BX0    X1                                                      FEC      2115
          1500  0100001354 +                      RJ     CT1         CONSTRUCT PASS 1 TAG                        FEC      2116
          1501  5160001502 +                      SA6    TRVA                                                    FEC      2117
                          0400001435 +            EQ     EXIT.       EXIT...                                     FEC      2118
                                                                                                                 FEC      2119
          1502  00000000000000000000     TRVA     CONENT 0                                                       FEC      2120
          1503                     1     TRVB     BSS    1           SAVE ENTRY POINT TEST SWITCH                FEC      2121
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    49
        FRONT END SUPPORT ROUTINES.                                   TSX 
  
                                        **        TSX - TAG SYSTEM EXTERNAL.                                     FEC      2123
                                        *                                                                        FEC      2124
                                        *         MUST BE USED TO ENTER ALL "INVISIBLE" SYSTEM EXTERNALS IN      FEC      2125
                                        *         SYMBOL TABLE.  IF NAME IS ALREADY IN SYMTAB, NO CHECK FOR      FEC      2126
                                        *         ATTRIBUTE CONFLICTS IS PERFORMED.  IF NAME IS ENTERED, ITS     FEC      2127
                                        *         ATTRIBUTES WILL BE SET TO "M.SYSXT".  THE TYPE FIELD           FEC      2128
                                        *         (WB.MODE) WILL BE ZERO.                                        FEC      2129
                                        *         NO XREF ENTRY IS MADE.                                         FEC      2130
                                        *         THE "TAGSEX" MACRO SHOULD ALWAYS BE USED TO CALL TSX.          FEC      2131
                                        *                                                                        FEC      2132
                                        *         ENTRY  (X1) = NAME (-L- FORMAT).                               FEC      2133
                                        *                                                                        FEC      2134
                                        *         EXIT   (X0) = SYMBOL ORDINAL.                                  FEC      2135
                                        *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                  FEC      2136
                                        *                (X6) = OPERAND FORM (TP).                               FEC      2137
                                        *                (B7) = INDEX OF SYMTAB WORD (WB).                       FEC      2138
                                        *                                                                        FEC      2139
                                        *         USES   A1,A2,A3,A6,A7  X0-3,X6,X7  B2,B3,B7.                   FEC      2140
                                        *         CALLS  ADSYM, CT1, SSY.                                        FEC      2141
                                                                                                                 FEC      2142
                                                                                                                 FEC      2143
          1504  0400401504 +             TSX      SUBR   =           ENTRY/EXIT...                               FEC      2144
          1505  43052                             MX0    WA.SYML                                                 FEC      2145
                     11601                        BX6    X0*X1                                                   FEC      2146
                          0100001730 +            CALL   SSY         SCAN SYMBOL TABLE                           FEC      2147
          1506  0670001510 +                      PL     B7,TSX3     IF ALREADY IN TABLE                         FEC      2148
                          7130040120              CLAS=  X3,WB,("M.SYSXT")                                       FEC      2149
                                   0              ERRNZ  M.BOOL                                                  FEC      2150
          1507  10733                             BX7    X3                                                      FEC      2151
                     43200                        MX2    0                                                       FEC      2152
                          0100001557 +            ADSYM  A1                                                      FEC      2153
                                                                                                                 FEC      2154
          1510  5120000000 X             TSX3     SA2    T=BLST                                                  FEC      2155
                          0302001514 +            ZR     X2,TSX4     IF NOT IN BLOCK STRUCTURE                   FEC      2156
          1511  22600                             LX6    X0          PRESERVE ORDINAL                            FEC      2157
                     7100040000                   CLAS=  X0,WB,(DLER)                                            FEC      2158
          1512  0100000000 X                      CALL   PDA         PROPOGATE DO LOOP ATTRIBUTE                 FEC      2159
          1513  22006                             LX0    X6                                                      FEC      2160
                                                                                                                 FEC      2161
          1514  0100001354 +             TSX4     RJ     CT1         CONSTRUCT (TP.) OPERAND                     FEC      2162
          1515  0400001504 +                      EQ     EXIT.                                                   FEC      2163
  
  
  
  
                                        **        TSY - TAG COMPILER SYMBOL.                                     FEC      2165
                                        *                                                                        FEC      2166
                                        *         ENTRY  (X3) = ATTRIBUTES FOR (WB).                             FEC      2167
                                        *                (X4) =  42/ 0LNAME,  18/ CELL                           FEC      2168
                                        *                                                                        FEC      2169
                                        *         EXIT   (X0) = SYMORD.                                          FEC      2170
                                        *                (A2,X2) = SYMTAB WORD (WB.).                            FEC      2171
                                        *                (X7) = SYMORD.                                          FEC      2172
                                        *                (CELL) = SYMORD.                                        FEC      2173
                                        *                                                                        FEC      2174
                                        *         ABORTS IF SYMBOL ALREADY IN TABLE.                             FEC      2175
                                        *                                                                        FEC      2176
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    50
        FRONT END SUPPORT ROUTINES.                                   TSY 
  
                                        *         CALLS  ADSYM, SSY.                                             FEC      2177
                                        *         USES   A1-3,A6-7   X0-3,X6-7   B2-3,B7.                        FEC      2178
                                                                                                                 FEC      2179
                                                                                                                 FEC      2180
          1516  0400401516 +             TSY      SUBR   =           ENTRY/EXIT...                               FEC      2181
          1517  43052                             MX0    WA.SYML                                                 FEC      2182
                     11604                        BX6    X0*X4                                                   FEC      2183
                          22703                   LX7    X3                                                      FEC      2184
          1520  0100001730 +                      CALL   SSY         COMPUTE SYMBOL HASH                         FEC      2185
          1521  0670401521 +                      PL     B7,"BLOWUP" IF SYMBOL ALREADY IN TABLE                  FEC      2186
                          43200                   MX2    0           (WC.W) = 0                                  FEC      2187
          1522  0100001557 +                      ADSYM  A1          ADD SYMBOL TO TABLE                         FEC      2188
          1523  10700                             BX7    X0                                                      FEC      2189
                     53740                        SA7    X4                                                      FEC      2190
                          0400001516 +            EQ     EXIT.                                                   FEC      2191
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    51
        TABLE SCANNING AND ENTRY ROUTINES.                            ERT 
  
                                        **        ERT -  ENTER REFERENCE TABLE.                                  FEC      2194
                                        *                                                                        FEC      2195
                                        *         ENTRY  (X6) = TAG.                                             FEC      2196
                                        *                (X1) = USAGE LETTER CR.XXX AS DEFINED IN TSTEXT.        FEC      2197
                                        *                (B7) = EXIT ADDRESS.                                    FEC      2198
                                        *                                                                        FEC      2199
                                        *         NOTE                                                           FEC      2200
                                        *                ALL CALLS TO *ERT* SHOULD USE MACRO *ADDREF*            FEC      2201
                                        *                                                                        FEC      2202
                                        *         USES   A1-A4,A6,A7  B2,B3,B7  X0-X3,X6,X7                      FEC      2203
                                        *                PRESERVES  A0,A5  X4,X5  B4,B5,B6                       FEC      2204
                                                                                                                 FEC      2205
                                                                                                                 FEC      2206
          1524  76600                    ERT1     SHRINK T=REF,0     TABLE JUST OVERFLOWED                       FEC      2207
                                                                                                                 FEC      2208
          1525  76660                    ERT2     SX6    B6                                                      FEC      2209
                     76750                        SX7    B5                                                      FEC      2210
                          5160001550 +            SA6    ERTA        (ERTA+0) = (B6)                             FEC      2211
          1526  54761                             =A7    A6+1             +1  = (B5)                             FEC      2212
                     10644                        BX6    X4                                                      FEC      2213
                          54671                   =A6    A7+1             +2  = (X4)                             FEC      2214
                               76040              SX0    B4          SAVE (B4)                                   FEC      2215
          1527  6160001553 +                      WRITEW F.REF,ERTB,1                                            FEC      2216
          1531  63400                             SB4    X0          RESTORE (B4)                                FEC      2217
                     5120001550 +                 SA2    ERTA                                                    FEC      2218
          1532  5110001554 +                      SA1    ERTB+1                                                  FEC      2219
                          54321                   =A3    A2+1                                                    FEC      2220
                               54431              =A4    A3+1        RESTORE (X4)                                FEC      2221
          1533  63620                             SB6    X2          RESTORE (B6)                                FEC      2222
                     63530                        SB5    X3          RESTORE (B5)                                FEC      2223
                          63710                   SB7    X1                                                      FEC      2224
          1534  0277000000                        JP     B7          EXIT..                                      FEC      2225
                                                                                                                 FEC      2226
                                        *         THE ERT ENTRY IS MODIFIED BY LO=R AND C$LIST(R=), USING ERT=ON FEC      2227
                                        *         OR ERT=OFF, AS APPLICABLE.                                     FEC      2228
                                                                                                                 FEC      2229
          1535                     1     ERT      BSSENT 1           ...ENTRY                                    FEC      2230
          1536  5120000021 +                      SA2    REFLIN                                                  FEC      2231
                          43022                   MX0    XR.TAGL                                                 FEC      2232
                               11606              BX6    X0*X6       ISOLATE TAG                                 FEC      2233
          1537  36312                             IX3    X1+X2       PAGE, LINE, USE                             FEC      2234
                     5110000000 X                 SA1    LOSTREF                                                 FEC      2235
                               36636              IX6    X3+X6                                                   FEC      2236
          1540  5160001553 +                      SA6    ERTB                                                    FEC      2237
                          73611                   SX6    X1+B1       ACCUMULATE REF COUNT                        FEC      2238
          1541  5120000000 X                      SA2    REFIO                                                   FEC      2239
                          54610                   SA6    A1                                                      FEC      2240
                               76670              SX6    B7                                                      FEC      2241
          1542  5160001554 +                      SA6    ERTB+1      SAVE EXIT ADDRESS                           FEC      2242
                          0312001525 +            NZ     X2,ERT2     IF ON DISK                                  FEC      2243
                                                                                                                 FEC      2244
          1543  5110000000 X                      ALLOC  T.REF,1                                                 FEC      2245
          1545  5130000000 X                      SA3    REFIO                                                   FEC      2246
                          0313001524 +            NZ     X3,ERT1     IF JUST OVERFLOWED                          FEC      2247
          1546  5130001554 +                      SA3    ERTB+1                                                  FEC      2248
                          55231                   =A2    A3-1                                                    FEC      2249
                               63230              SB2    X3                                                      FEC      2250
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    52
        TABLE SCANNING AND ENTRY ROUTINES.                            ERT 
  
          1547  10622                             BX6    X2                                                      FEC      2251
                     57671                        =A6    B7-1        STORE REFERENCE IN TABLE                    FEC      2252
                          0222000000              JP     B2          EXIT..                                      FEC      2253
                                                                                                                 FEC      2254
          1550                     3     ERTA     BSS    3           SAVES (B6, B5, X4)                          FEC      2255
          1553                     2     ERTB     BSS    2           SAVE AREA                                   FEC      2256
                                                                                                                 FEC      2257
          1555                           ERT=ON   BSSENT                                                         FEC      2258
          1555  46000                             NO                                                             FEC      2259
                     46000                        NO                                                             FEC      2260
                          46000                   NO                                                             FEC      2261
                               46000              NO                                                             FEC      2262
          1556                           ERT=OFF  BSSENT                                                         FEC      2263
          1556  0277000000                        JP     B7                                                      FEC      2264
  
  
  
  
                                        **        ESY -  ENTER SYMBOL TABLE                                      FEC      2266
                                        *                                                                        FEC      2267
                                        *         NOTE - ESY REQUIRES A PREVIOUS CALL TO SSY TO SET *LAST*       FEC      2268
                                        *                                                                        FEC      2269
                                        *         ENTRY  (A1) _ T.SYM                                            FEC      2270
                                        *                (X2) = *WC* ENTRY                                       FEC      2271
                                        *                (X6) = SYMBOL                                           FEC      2272
                                        *                (X7) = *WB* ENTRY                                       FEC      2273
                                        *                (LAST) = INDEX OF CURRENT CHAIN END                     FEC      2274
                                        *                (NEXTORD) = NEXT AVAILABLE SYMBOL TABLE ORDINAL         FEC      2275
                                        *                                                                        FEC      2276
                                        *         EXIT   (X0) = ORDINAL OF SYMBOL TABLE ENTRY                    FEC      2277
                                        *                (X6) = *WB* WORD                                        FEC      2278
                                        *                (X1) = FWA SYMTAB = (T.SYM)                             FEC      2279
                                        *                (A2, X2) = SYMTAB (WB)                                  FEC      2280
                                        *                (B7) = SYMTAB INDEX OF WB                               FEC      2281
                                        *                (NEXTORD) = INCREMENTED                                 FEC      2282
                                        *                                                                        FEC      2283
                                        *         USES   A1,A2,A3,A6,A7  X0  B2,B7                               FEC      2284
                                        *                                                                        FEC      2285
                                        *         CALLS  ALC                                                     FEC      2286
                                                                                                                 FC51347    10
                                         MSTO     BFMIC  WA,(HASH)   MAXIMUM SYMBOL TABLE ORDINAL                FC51347    11
                                                                                                                 FEC      2287
                                                                                                                 FEC      2288
          1557  0400401557 +             ESY      SUBR   =           ...ENTRY/EXIT...                            FEC      2289
          1560  43301                             LDBIT  X3,WB.1REFP                                             FC5A191    10
                          12737                   BX7    X3+X7       SET 1REF FLAG                               FC5A191    11
                               43006              MX0    CHAR                                                    FC5A192    11
          1561  0336001566 +                      MI     X6,ESY05    IF TAPEXXX SYMBOL                           FC50593     5
                          20030                   LX0    -MAX.VAR*CHAR+CHAR                                      FC5A192    12
                               11306              BX3    X0*X6                                                   FC5A192    13
          1562  0303001566 +                      ZR     X3,ESY05    IF NOT SEVEN CHARACTER SYMBOL               FC5A192    14
                          21322                   AX3    18                                                      FC5A192    15
          1563  6223777732                        SB2    X3-1R+                                                  FC5A192    16
                          0620001566 +            PL     B2,ESY05    IF APPENDED SPECIAL CHARACTER               FC5A192    17
          1564  5160000000 X                      SA6    FILL.                                                   FC5A192    18
                          6170000000 X            ANSI   E.ANS2                                                  FC5A192    19
                                                                                                                 FC5A192    20
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    53
        TABLE SCANNING AND ENTRY ROUTINES.                            ESY 
  
          1566  5160001607 +             ESY05    SA6    ESYA                                                    FC5A192    21
                          54761                   =A7    A6+1                                                    FEC      2291
                               22602              LX6    X2                                                      FEC      2292
          1567  5067000001                        SA6    A7+1                                                    FEC      2293
                          5120001746 +            SA2    LAST                                                    FEC      2294
          1570  5130001747 +                      SA3    NEXTORD                                                 FEC      2295
                          10633                   BX6    X3                                                      FEC      2296
          1571  0322001573 +                      PL     X2,ESY1     IF HASH LINK TO SYMBOL TABLE                FEC      2297
                          14022                   BX0    -X2                                                     FEC      2298
          1572  5260000000 C                      SA6    X0+HASHTBL  HASH LINK TO HASH TABLE                     FEC      2299
                          0400001574 +            EQ     ESY2                                                    FEC      2300
                                                                                                                 FEC      2301
          1573  63220                    ESY1     =B2    X2+WA.W                                                 FEC      2302
                     53212                        SA2    X1+B2       FETCH SYMBOL                                FEC      2303
                          12626                   BX6    X2+X6       ADD IN HASH CHAIN                           FEC      2304
                               54620              SA6    A2                                                      FEC      2305
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                FEC      2306
                                                  MX6    -WA.HASHL                                               FC5A192    22
                                                  LX2    -WA.HASHP                                               FC5A192    23
                                                  BX6    -X6*X2      EXTRACT HASH FIELD                          FC5A192    24
                                                  NZ     X6,"BLOWUP"       IF PREVIOUS LINK EXISTED              FEC      2308
                                         .TEST    ENDIF                                                          FEC      2309
                                                                                                                 FEC      2310
          1574  7100000003               ESY2     ALLOC  A1,Z=SYM                                                FEC      2311
          1575  5120001610 +                      SA2    ESYA+1                                                  FEC      2312
                          54321                   =A3    A2+1                                                    FEC      2313
                               10633              BX6    X3          *WC* ENTRY                                  FEC      2314
          1576  57671                             =A6    B7-Z=SYM+WC.W                                           FEC      2315
                     5130001747 +                 SA3    NEXTORD                                                 FEC      2316
          1577  6223770000                        SB2    X3-"MSTO"   CURRENT ORDINAL - MAXIMUM ORDINAL ALLOWED   FC51347    12
                          0702001604 +            GT     B2,ESY3     IF SYMBOL TABLE OVERFLOW                    FC51347    13
          1600  10033                             BX0    X3          RETURN (X0) = ORDINAL OF ENTRY              FEC      2317
                     22602                        LX6    X2                                                      FEC      2318
                          55661                   =A6    A6-WC.W+WB.W                                            FEC      2319
                               55221              SA2    A2-B1                                                   FEC      2320
          1601  10722                             BX7    X2          STORE NAME, CLEAR HASH                      FEC      2321
                     5120000031 +                 SA2    WANFP                                                   FC5A192    25
                               12772              BX7    X7+X2       GIVE WA.NFP BIT THE PROPER VALUE            FC5A192    26
          1602  55761                             =A7    A6-WB.W+WA.W                                            FEC      2322
                     54260                        SA2    A6          RETURN (A2, X2) = (WB)                      FEC      2323
                          63710                   SB7    X1                                                      FEC      2324
                               73701              SX7    X0+B1       ADVANCE ORDINAL                             FEC      2325
          1603  54730                             SA7    A3                                                      FEC      2326
                     65767                        SB7    A6-B7       RETURN (B7) = INDEX OF WB                   FEC      2327
                          0400001557 +            EQ     EXIT.                                                   FEC      2328
                                                                                                                 FEC      2329
          1604  6170000000 X             ESY3     FATAL  E.STO       ERROR - SYMBOL TABLE OVERFLOW               FC51347    14
          1605  0100000000 X                      CALL   CAF         CLOSE ALL FILES                             FC51347    15
          1606  0400000000 X                      EQ     ENDFTN                                                  FC51347    16
                                                                                                                 FC51347    17
          1607  00000000000000000000     ESYA     DATA   0,0,0       SAVE AREA FOR SYMBOL TABLE INFORMATION      FEC      2330
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    54
        TABLE SCANNING AND ENTRY ROUTINES.                            INN 
  
                                        **        INN - INVENT NEW NAME.                                         FEC      2332
                                        *                                                                        FEC      2333
                                        *         CONSTRUCTS A UNIQUE SYMBOL AND ADDS IT TO THE SYMBOL TABLE.    FEC      2334
                                        *         THE NEW SYMTAB ENTRY HAS ONLY (WB.CGS) SET.  ALL OTHER         FEC      2335
                                        *         ATTRIBUTE FIELDS ARE SET TO ZERO, AND SHOULD BE FILLED IN      FEC      2336
                                        *         BY THE CALLER.                                                 FEC      2337
                                        *                                                                        FEC      2338
                                        *         ENTRY  (A1) = ADDRESS OF COUNTER.                              FEC      2339
                                        *                (X1) = (COUNTER) TO BE USED AS SUFFIX.                  FEC      2340
                                        *                (X7) = PREFIX FOR NEW NAME,                             FEC      2341
                                        *                       -3R- FORMAT FOR SYMBOLS,                         FEC      2342
                                        *                       -2R- FORMAT FOR LABELS.                          FEC      2343
                                        *                                                                        FEC      2344
                                        *         EXIT   (COUNTER) INCREMENTED.                                  FEC      2345
                                        *                INVENTED NAME ADDED TO SYMTAB --                        FEC      2346
                                        *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                  FEC      2347
                                        *                (B7) = INDEX OF (WB).                                   FEC      2348
                                        *                (X0) = SYMTAB ORDINAL.                                  FEC      2349
                                        *                                                                        FEC      2350
                                        *         USES   A1-A4,A6,A7   B2,B3   X0-X4,X6,X7                       FEC      2351
                                        *         CALLS  CDD, ESY, SSY                                           FEC      2352
                                                                                                                 FEC      2353
                                                                                                                 FEC      2354
          1612  0400401612 +             INN      SUBR   =           ENTRY/EXIT...                               FEC      2355
          1613  73611                             SX6    X1+B1       INCRMENT COUNT OF INVENTED NAMES            FEC      2356
                     5170001623 +                 SA7    INNA        SAVE PREFIX                                 FEC      2357
                               66740              SB7    B4          SAVE (B4)                                   FEC      2358
          1614  54610                             SA6    A1                                                      FEC      2359
                     0100000000 X                 CALL   CDD         CONVERT DECIMAL DIGITS (SUFFIX)             FEC      2360
          1615  43001                             MX0    1                                                       FEC      2361
                     67221                        SB2    B2-B1                                                   FEC      2362
                          5130001623 +            SA3    INNA        RETRIEVE PREFIX                             FEC      2363
          1616  66470                             SB4    B7          RESTORE (B4)                                FEC      2364
                     23020                        AX0    B2                                                      FEC      2365
                          11204                   BX2    X0*X4       STRIP SPACES FROM CONVERSION                FEC      2366
                               12623              BX6    X2+X3       MERGE PREFIX WITH INVENTED SUFFIX           FEC      2367
          1617  20652                             LX6    -3*6                                                    FEC      2368
                     0100001730 +                 CALL   SSY         SCAN SYMBOL TABLE (TO COMPUTE HASH)         FEC      2369
                                         .TEST    IFEQ   TEST,ON,1                                               FEC      2370
                                                  PL     B7,"BLOWUP"       IF ALREADY IN TABLE                   FEC      2371
          1620  43701                             CLAS=  X7,WB,(CGS)       SET (COMPILER-GENERATED-SYMBOL)       FEC      2372
                          7120000000              SX2    0                                                       FEC      2373
          1621  0100001557 +                      ADSYM  A1          ADD NEW NAME TO SYMBOL TABLE                FEC      2374
          1622  0400001612 +                      EQ     EXIT.                                                   FEC      2375
                                                                                                                 FEC      2376
          1623                     1     INNA     BSS    1           SAVE PREFIX                                 FEC      2377
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    55
        TABLE SCANNING AND ENTRY ROUTINES.                            NCM 
  
                                        **        NCM -  ENTER *MULTI-WORD* ELEMENT INTO REQUESTED TABLE.        FEC      2379
                                        *                                                                        FEC      2380
                                        *         ENTRY  (A1) _ TABLE TO BE ENTERED.                             FEC      2381
                                        *                (B2) _ FWA CONSTANTS.                                   FEC      2382
                                        *                (B3) _ LWA+1 ELEMENT TO BE ENTERED.                     FEC      2383
                                        *                (B7) = IF .EQ. 0 --                                     FEC      2384
                                        *                         IF NOT IN TABLE, CALL ALLOC AND ENTER          FEC      2385
                                        *                         ELEMENT                                        FEC      2386
                                        *                       IF .NE. 0 --                                     FEC      2387
                                        *                          IF NOT IN TABLE, DO NOT CALL ALLOC AND        FEC      2388
                                        *                          DO NOT ENTER ELEMENT IN TABLE                 FEC      2389
                                        *                (X1) = ((A1))                                           FEC      2390
                                        *                                                                        FEC      2391
                                        *         NOTE   LIKE MOST SCAN ROUTINES *NCM* REQUIRES A USABLE WORD    FEC      2392
                                        *                PRECEDING CURRENT TABLE ABOUT TO SCAN.                  FEC      2393
                                        *                                                                        FEC      2394
                                        *         EXIT   (B7) = ORDINAL OF FWA OF ELEMENT IN TABLE IF            FEC      2395
                                        *                         ENTERED OR ALREADY PRESENT, ELSE -1            FEC      2396
                                        *                (X6) = (B7) IF ELEMENT ENTERED                          FEC      2397
                                        *                (X0) = LENGTH OF ELEMENT IF NOT ENTERED IN TABLE        FEC      2398
                                        *                                                                        FEC      2399
                                        *         CALLS  ALLOC, MOVE                                             FEC      2400
                                        *                                                                        FEC      2401
                                        *         CANNOT DESTROY A4,A5 B4,B5,B6                                  FEC      2402
                                                                                                                 FEC      2403
                                                                                                                 FEC      2404
          1624  0400401624 +             NCM      SUBR   =           ...ENTRY/EXIT...                            FEC      2405
          1625  76630                             SX6    B3                                                      FEC      2406
                     77032                        SX0    B3-B2                                                   FEC      2407
                          5160000000 X            SA6    NCMA                                                    FEC      2408
          1626  76770                             SX7    B7                                                      FEC      2409
                     54761                        =A7    A6+1                                                    FEC      2410
                          0423001624 +            EQ     B2,B3,EXIT. IF NO WORDS TO ADD                          FEC      2411
                                                                                                                 FEC      2412
                                        **        SCAN TABLE N TIMES TO CHECK IF ENTITY IS ALREADY IN TABLE.     FEC      2413
                                                                                                                 FEC      2414
          1627  56220                             SA2    B2          1ST ELEMENT TO BE CHECKED.                  FEC      2415
                     6270777776                   SB7    X0-1        LENGTH OF THIS ENTRY                        FEC      2416
          1630  5031000000 X                      SA3    A1+N.TABLE  LENGTH OF TABLE.                            FEC      2417
          1631  10622                    NCM5     BX6    X2                                                      FEC      2418
                     63330                        SB3    X3                                                      FEC      2419
                          5261777776              SA6    X1-1        DUMMY FIND                                  FEC      2420
          1632  54363                             SA3    A6+B3                                                   FEC      2421
                     0673001651 +                 LE     B3,B7,NCM50 IF TABLE TOO SMALL TO ALREADY HAVE IT       FEC      2422
                               55337              SA3    A3-B7                                                   FEC      2423
          1633  67337                             SB3    B3-B7                                                   FEC      2424
                                                                                                                 FEC      2425
                                        **        CHECK FOR 1ST ELEMENT 60 BIT MATCH.                            FEC      2426
                                        *         BACKWARD SCAN THRU TABLE.                                      FEC      2427
                                                                                                                 FEC      2428
          1634  67331                    NCM10    =B3    B3-1                                                    FEC      2429
                     13632                        BX6    X3-X2                                                   FEC      2430
                          55331                   =A3    A3-1                                                    FEC      2431
          1635  0316001634 +                      NZ     X6,NCM10    IF NO MATCH                                 FEC      2432
                          0336001634 +            MI     X6,NCM10    IF NO MATCH (-0 PROBLEM)                    FEC      2433
          1636  0730001651 +                      MI     B3,NCM50    IF DUMMY HIT - DEFINITELY NOT IN TABLE.     FEC      2434
                          74631                   =X6    A3+1                                                    FEC      2435
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    56
        TABLE SCANNING AND ENTRY ROUTINES.                            NCM 
  
          1637  5160000002 X                      SA6    NCMA+2                                                  FEC      2436
                          54221                   =A2    A2+1                                                    FEC      2437
          1640  5033000002                        SA3    A3+2                                                    FEC      2438
                                                                                                                 FEC      2439
                                        **        SCAN TABLE FOR REMAINING NTH ELEMENT TO MATCH                  FEC      2440
                                                                                                                 FEC      2441
          1641  0470001647 +             NCM20    ZR     B7,NCM30    IF ENTIRE LIST MATCHES                      FEC      2442
                          13623                   BX6    X2-X3                                                   FEC      2443
                               67771              =B7    B7-1                                                    FEC      2444
          1642  54221                             =A2    A2+1                                                    FEC      2445
                     54331                        =A3    A3+1                                                    FEC      2446
                          0336001644 +            MI     X6,NCM22    IF NO MATCH (-0 PROBLEM)                    FEC      2447
          1643  0306001641 +                      ZR     X6,NCM20    IF CONTINUED MATCH                          FEC      2448
                                                                                                                 FEC      2449
                                        **        HERE IF ONLY PARTIAL MATCH.                                    FEC      2450
                                        *         RESET PARAMETERS AND START OVER.                               FEC      2451
                                                                                                                 FEC      2452
          1644  5130000002 X             NCM22    SA3    NCMA+2                                                  FEC      2453
                          56220                   SA2    B2                                                      FEC      2454
          1645  6270777776                        SB7    X0-1                                                    FEC      2455
                          37331                   IX3    X3-X1       ORDINAL FOR RE-START.                       FEC      2456
          1646  0400001631 +                      EQ     NCM5        TRY AGAIN ....                              FEC      2457
                                                                                                                 FEC      2458
                                        **        HERE IF ENTITY IS ALREADY IN TABLE                             FEC      2459
                                        *         SET-UP EXIT CONDITIONS AND EXIT.                               FEC      2460
                                                                                                                 FEC      2461
          1647  63310                    NCM30    SB3    X1                                                      FEC      2462
                     75233                        SX2    A3-B3                                                   FEC      2463
                          37620                   IX6    X2-X0       ORDINAL                                     FEC      2464
                               63760              SB7    X6                                                      FEC      2465
          1650  0400001624 +                      EQ     EXIT.       EXIT...                                     FEC      2466
                                                                                                                 FEC      2467
                                        **        HERE IF ENTITY NOT IN TABLE                                    FEC      2468
                                        *         ALLOCATE ROOM FOR TABLE IF REQUESTED.                          FEC      2469
                                                                                                                 FEC      2470
          1651  5130000001 X             NCM50    SA3    NCMA+1                                                  FEC      2471
                          67701                   =B7    -1          FLAG NOTHING ENTERED                        FEC      2472
          1652  0313001624 +                      NZ     X3,EXIT.    IF NO ALLOC DESIRED, EXIT...                FEC      2473
                                                                                                                 FEC      2474
                          76620                   SX6    B2                                                      FEC      2475
          1653  5160000001 X                      SA6    NCMA+1      SAVE (B2) FWA                               FEC      2476
                          0100000000 X            ALLOC  A1,X0       ALLOCATE ROOM IN TABLE.                     FEC      2477
          1654  10011                             BX0    X1                                                      FEC      2478
                     5130000000 X                 SA3    NCMA                                                    FEC      2479
                               54131              =A1    A3+1                                                    FEC      2480
          1655  37723                             IX7    X2-X3                                                   FEC      2481
                     63330                        SB3    X3          RESTORE B3                                  FEC      2482
                          63210                   SB2    X1          RESTORE B2                                  FEC      2483
                               10211              BX2    X1          (X2) = SOURCE                               FEC      2484
          1656  73672                             SX6    X7+B2       ORDINAL = NEW LENGTH - WORD COUNT           FEC      2485
                     36360                        IX3    X6+X0       (X3) = DESTINATION (ORDINAL + ORIGIN)       FEC      2486
                          54630                   SA6    A3          SAVE ORDINAL                                FEC      2487
                               10644              BX6    X4                                                      FEC      2488
          1657  77132                             SX1    B3-B2       (X1) = WORD COUNT                           FEC      2489
                     5160000001 X                 SA6    NCMA+1      SAVE X4                                     FEC      2490
                               74640              SX6    A4                                                      FEC      2491
          1660  54661                             =A6    A6+1        SAVE A4                                     FEC      2492
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    57
        TABLE SCANNING AND ENTRY ROUTINES.                            NCM 
  
                     0100000000 X                 MOVE   X1,X2,X3                                                FEC      2493
          1661  5140000002 X                      SA4    NCMA+2      RESTORE A4                                  FEC      2494
                          55141                   =A1    A4-1                                                    FEC      2495
                               10411              BX4    X1          RESTORE X4                                  FEC      2496
          1662  5110000000 X                      SA1    NCMA                                                    FEC      2497
                          10611                   BX6    X1                                                      FEC      2498
                               63710              SB7    X1                                                      FEC      2499
          1663  0400001624 +                      EQ     EXIT.       EXIT...                                     FEC      2500
                                                                                                                 FEC      2501
                                   0 X   NCMA     EQU    ADWT        REUSE ADWT SAVE AREA (3 WDS)                FEC      2502
  
  
  
  
          1663                           COMFSCS  CTEXT                                                          COMFSCS     2
                                        **        SCS - SCAN TABLE WITH SUPPLIED MASK.                           COMFSCS     3
                                        *                                                                        COMFSCS     4
                                        *         ENTRY  (A1) - TABLE TO BE SEARCHED                             COMFSCS     5
                                        *                (X6) - ENTRY LOOKING FOR IN GIVEN TABLE                 COMFSCS     6
                                        *                (SCSA) = MASK TO BE USED                                COMFSCS     7
                                        *                                                                        COMFSCS     8
                                        *         EXIT   IF ENTRY *NIT* - (B7) IS NEGATIVE                       COMFSCS     9
                                        *                                 (A1),(X1) PRESERVED                    COMFSCS    10
                                        *                                 (X6) UNTOUCHED                         COMFSCS    11
                                        *                IF ENTRY *IT*  - (B7) ORDINAL OF MATCHING ENTRY         COMFSCS    12
                                        *                                 (X2) ALL 60 BITS OF MATCHING ENTRY     COMFSCS    13
                                        *                                 (A2) _ TO MATCHING ENTRY               COMFSCS    14
                                        *                                 (X6) = (X2) .AND. MASK                 COMFSCS    15
                                        *                                                                        COMFSCS    16
                                        *         USES   A2,A3,A6  X0,X1  B2,B7                                  COMFSCS    17
                                                                                                                 COMFSCS    18
                                                                                                                 COMFSCS    19
          1664  0400401664 +             SCS      SUBR   =           ...ENTRY/EXIT...                            COMFSCS    20
          1665  5021000000 X                      SA2    A1+=XN.TABLE                                            COMFSCS    21
                          5130001673 +            SA3    SCSA                                                    COMFSCS    22
          1666  5261777776                        SA6    X1-1        STORE CRITERION BELOW TABLE                 COMFSCS    23
                                   0              ERRMI  FUDGE-1     CODE REQUIRES 1 SLOP WORD                   COMFSCS    24
                          64760                   SB7    A6                                                      COMFSCS    25
                               53227              SA2    X2+B7       FETCH LAST ENTRY                            COMFSCS    26
                                                                                                                 COMFSCS    27
                                        **        LOOP TILL MATCH FOUND                                          COMFSCS    28
                                                                                                                 COMFSCS    29
          1667  13026                    SCS1     BX0    X2-X6                                                   COMFSCS    30
                     55221                        =A2    A2-1        FETCH NEXT TABLE ENTRY                      COMFSCS    31
                          46000                   NO                                                             COMFSCS    32
                               11030              BX0    X3*X0       MASK                                        COMFSCS    33
          1670  0310001667 +                      NZ     X0,SCS1     IF NOT HIT - LOOP                           COMFSCS    34
                                                                                                                 COMFSCS    35
                          65727                   SB7    A2-B7       RELATIVE POSITION OF ENTRY                  COMFSCS    36
                               54221              =A2    A2+1        TABLE ENTRY AT HIT                          COMFSCS    37
          1671  0770001664 +                      MI     B7,SCSX     IF DUMMY HIT - EXIT...                      COMFSCS    38
                          11632                   BX6    X3*X2       MASK OFF                                    COMFSCS    39
          1672  0400001664 +                      EQ     SCSX        EXIT...                                     COMFSCS    40
                                                                                                                 COMFSCS    41
          1673  00000000000000000000     SCSA     CONENT 0           MASK TO BE USED                             COMFSCS    42
                                                  ENDX                                                           COMFSCS    43
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    58
        TABLE SCANNING AND ENTRY ROUTINES.                            SCT 
  
                                        **        SCT -  SCAN TABLE COMPARING ALL BITS.                          FEC      2506
                                        *         ENTRY  (A1) TABLE TO BE SEARCHED                               FEC      2507
                                        *                (X6) ENTRY LOOKING FOR IN GIVEN TABLE                   FEC      2508
                                        *         EXIT   IF ENTRY *NIT*    - (B7) IS NEGATIVE.                   FEC      2509
                                        *                                    (A1),(X1) PRESERVED.                FEC      2510
                                        *                                    (X6) UNTOUCHED.                     FEC      2511
                                        *                IF ENTRY *IT*     - (B7) ORDINAL OF MATCHING ENTRY.     FEC      2512
                                        *         USES   A1,A2,A6  X0  B1,B2                                     FEC      2513
                                                                                                                 FEC      2514
                                                                                                                 FEC      2515
          1674  0400401674 +             SCT      SUBR   =           ...ENTRY/EXIT...                            FEC      2516
          1675  5021000000 X                      SA2    A1+N.TABLE                                              FEC      2517
                          67201                   =B2    -1                                                      FEC      2518
                               53612              SA6    X1+B2       STORE CRITERION BELOW TABLE                 FEC      2519
                                   0              ERRMI  FUDGE-1     CODE REQUIRES 1 SLOP WORD                   FEC      2520
          1676  36012                             IX0    X1+X2                                                   FEC      2521
                     46000                        NO                                                             FEC      2522
                          53202                   SA2    X0+B2       FETCH LAST ENTRY                            FEC      2523
                               64260              SB2    A6                                                      FEC      2524
          1677  13062                    SCT1     BX0    X6-X2                                                   FEC      2525
                     55221                        SA2    A2-B1       FETCH NEXT TABLE ENTRY                      FEC      2526
                          0310001677 +            NZ     X0,SCT1     IF NO HIT, LOOP                             FEC      2527
          1700  0330001677 +                      MI     X0,SCT1     IF *0* - *-0* *HIT*                         FEC      2528
                          65722                   SB7    A2-B2       RELATIVE POSITION OF ENTRY                  FEC      2529
          1701  0770001674 +                      MI     B7,EXIT.    IF DUMMY HIT, EXIT...                       FEC      2530
                          66221                   SB2    B2+B1       FIRST ADDRESS IN NAME TABLE                 FEC      2531
                               56172              SA1    B7+B2       NAME TABLE ENTRY                            FEC      2532
          1702  0400001674 +                      EQ     EXIT.       EXIT...                                     FEC      2533
  
  
  
  
                                        **        SLT -  SCAN DEFINED LIBRARY TABLE.                             FEC      2535
                                        *                                                                        FEC      2536
                                        *         ENTRY  (X1) = SYMBOL TO CHECK.                                 FEC      2537
                                        *                (FILL.) = NAME OF FUNCTION.                             FEC      2538
                                        *                                                                        FEC      2539
                                        *         EXIT   (B2) .LT. 0 = NAME NOT IN INTRINSIC TABLE.              FEC      2540
                                        *                     .GE. 0 = INDEX IN (F.INTF) OF NAME.                FEC      2541
                                        *                (X3) = ATTRIBUTES FOR SYMTAB WB (JPF, NATR, NVAR).      FEC      2542
                                        *                            (WB.JPF) = INDEX IN TABLE OF NAME, OR ZERO. FEC      2543
                                        *                (X6) = PRESERVED.                                       FEC      2544
                                        *                (X7) = (WC.FUNI), WITH (WC.FUNT) AS FOLLOWS --          FEC      2545
                                        *                            (MF.USER) = NAME NOT IN TABLE.              FEC      2546
                                        *                            (MF.LIB)  = NAME FOUND IN INTRINSIC TABLE.  FEC      2547
                                        *                                                                        FEC      2548
                                        *         NOTE THAT IF NAME IS NOT IN TABLE, THEN (WB.MODE) IS NOT SET.  FEC      2549
                                        *                                                                        FEC      2550
                                        *         USES   CANNOT DESTROY A2,A4,A5,A7  X4,X5,X6  B4,B5,B6          FEC      2551
                                                                                                                 FEC      2552
                                                                                                                 FEC      2553
          1703  0400401703 +             SLT      SUBR   =           ENTRY/EXIT...                               FEC      2554
          1704  10211                             BX2    X1                                                      FEC      2555
                     43044                        MX0    IT.DPCL                                                 FEC      2556
                          6120777776 X            SB2    Z.INTF-1                                                FEC      2557
          1705  5112000000 X                      SA1    B2+F.INTF         FETCH LAST ENTRY IN TABLE             FEC      2558
                                                  LX0    IT.DPCL+IT.DPCP                                         FEC      2559
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    59
        TABLE SCANNING AND ENTRY ROUTINES.                            SLT 
  
          1706  11301                    SLT3     BX3    X0*X1       ISOLATE NAME FROM TABLE                     FEC      2560
                     37732                        IX7    X3-X2                                                   FEC      2561
                          0307001712 +            ZR     X7,SLT4     IF HIT                                      FEC      2562
          1707  67221                             SB2    B2-B1                                                   FEC      2563
                     55111                        SA1    A1-B1                                                   FEC      2564
                          0620001706 +            PL     B2,SLT3     IF NOT END OF TABLE                         FEC      2565
                                                                                                                 FEC      2566
                                        *         NAME NOT FOUND IN TABLE.  MUST BE USER FUNCTION.               FEC      2567
                                                                                                                 FEC      2568
          1710  76700                             =X7    MF.USER                                                 FEC      2569
                     7130050100                   CLAS=  X3,WB,(NVAR,FUN,EXT)                                    FEC      2570
                               20771              LX7    WC.FUNTP                                                FEC      2571
          1711  0400001703 +                      EQ     EXIT.                                                   FEC      2572
                                                                                                                 FEC      2573
                                        *         NAME FOUND IN LIBRARY TABLE.                                   FEC      2574
                                                                                                                 FEC      2575
          1712  43301                    SLT4     CLAS=  X3,IT,(GENF)                                            FEC      2576
                          43071                   MX0    -IT.MODEL                                               FEC      2577
                               11331              BX3    X3*X1                                                   FEC      2578
                                                  LX1    -IT.MODEP                                               FEC      2579
          1713  15210                             BX2    -X0*X1      (X2) = RESULT MODE OF FUNCTION              FEC      2580
                                   0              ERRNZ  IT.MODEL-WB.MODEL                                       FEC      2581
                                                  LX2    WB.MODEP                                                FEC      2582
                     20301                        LX3    -IT.GENFP+WB.GENFP    XFER GENERIC BIT                  FEC      2583
                          12323                   BX3    X2+X3                                                   FEC      2584
                               43071              MX0    -IT.ARGCL                                               FEC      2585
          1714  20156                             LX1    IT.MODEP-IT.ARGCP                                       FEC      2586
                     15710                        BX7    -X0*X1      XFER ARG COUNT TO SYMTAB                    FEC      2587
                                   6              ERRMI  WC.ARGCL-IT.ARGCL                                       FEC      2588
                          7120010300              CLAS=  X2,WB,(NVAR,FUN,DEF)                                    FEC      2589
          1715  7207777760                        SX0    X7-17B                                                  FEC      2590
                          0310001717 +            NZ     X0,SLT5     IF NOT VARIABLE ARG COUNT                   FEC      2591
          1716  7120010100                        CLAS=  X2,WB,(NVAR,FUN)                                        FEC      2592
                                                                                                                 FEC      2593
          1717  12323                    SLT5     BX3    X2+X3                                                   FEC      2594
                     20760                        LX7    WC.ARGCP                                                FEC      2595
                          76011                   =X0    MF.LIB                                                  FEC      2596
                               20071              LX0    WC.FUNTP                                                FEC      2597
          1720  20167                             LX1    IT.ARGCP-1-IT.ANSIP                                     FEC      2598
                     12770                        BX7    X7+X0       FORM (X7) = (WC.FUNI)                       FEC      2599
                          0331001722 +            MI     X1,SLT6     IF FUNCTION DEFINED IN ANSI                 FEC      2600
          1721  6170000000 X                      ANSI   E.SU04                                                  FEC      2601
          1722  76120                    SLT6     SX1    B2                                                      FEC      2602
                     20157                        LX1    WB.JPFP     SET (WB.JPF) = INDEX IN (F.INTF)            FEC      2603
                          12331                   BX3    X3+X1                                                   FEC      2604
          1723  0400001703 +                      EQ     EXIT.                                                   FEC      2605
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    60
        TABLE SCANNING AND ENTRY ROUTINES.                            SSY 
  
                                        **        SSY -  SCAN *SYMBOL* TABLE. (HASHED TABLE)                     FEC      2607
                                        *                                                                        FEC      2608
                                        *         ENTRY  (X6) = SYMBOL (0L FORMAT)                               FEC      2609
                                        *                                                                        FEC      2610
                                        *         EXIT   IF SYMBOL NOT FOUND IN TABLE --                         FEC      2611
                                        *                (B7) .LT. 0                                             FEC      2612
                                        *                (X6) = PRESERVED.                                       FEC      2613
                                        *                (A1) _ T.SYM                                            FEC      2614
                                        *                (LAST) _ END OF HASHED CHAIN                            FEC      2615
                                        *                       IF < 0 HASHTBL ADDR (FIRST ENTRY IN CHAIN)       FEC      2616
                                        *                       IF > 0 T.SYM ADDR (_ *WA* WORD)                  FEC      2617
                                        *                                                                        FEC      2618
                                        *                IF SYMBOL ALREADY PRESENT IN TABLE --                   FEC      2619
                                        *                (X0) = ORDINAL OF SYMBOL TABLE ENTRY                    FEC      2620
                                        *                (X1) = FWA SYMTAB = (T.SYM)                             FEC      2621
                                        *                (A2, X2,X6) = SYMTAB (WB)                               FEC      2622
                                        *                (B7) = SYMTAB INDEX OF WB                               FEC      2623
                                        *                                                                        FEC      2624
                                        *         USES   A1,A2,A3  X0  B2,B7                                     FEC      2625
                                                                                                                 FEC      2626
                                                                                                                 FEC      2627
          1724  54221                    SSY10    =A2    A2+WB.W     *WB* ENTRY                                  FEC      2628
                     5130000031 +                 SA3    WANFP                                                   FC5A192    27
                               10633              BX6    X3                                                      FC5A192    28
          1725  55321                             =A3    A2-WB.W+WA.W      X3 = *WA*                             FC5A192    29
                     12663                        BX6    X6+X3       GIVE WA.NFP BIT THE PROPER VALUE            FC5A192    30
                          54630                   SA6    A3          UPDATE *WA*                                 FC5A192    31
                               76020              SX0    B2          RETURN (X0) = ORDINAL                       FEC      2629
          1726  66771                             =B7    B7-WA.W+WB.W                                            FEC      2630
                     43301                        LDBIT  X3,WB.1REFP                                             FC5A191    12
                               15223              BX2    -X3*X2      CLEAR 1REF FLAG                             FC5A191    13
          1727  10622                             BX6    X2                                                      FC5A191    14
                     54620                        SA6    A2          UPDATE SYMTAB                               FC5A191    15
                                                                                                                 FEC      2632
          1730  0400401730 +             SSY      SUBR   =           ...ENTRY/EXIT...                            FEC      2633
          1731  5110000000 X                      SA1    T.SYM                                                   FC5A192    32
                          43201                   MX2    1                                                       FEC      2645
                               15362              BX3    -X2*X6      AVOIDS POSSIBLE NEGATIVE EXPONENT           FEC      2646
          1732  5120001771 +                      SA2    SYMHASH                                                 FEC      2647
                          21314                   AX3    12          ZERO EXPONENT                               FEC      2648
                               27003              PX0    X3                                                      FEC      2649
          1733  42320                             DX3    X2*X0                                                   FEC      2650
                     43065                        MX0    -PSYM                                                   FEC      2651
                          21350                   AX3    47-PSYM                                                 FEC      2652
                               15330              BX3    -X0*X3      (X3) = HASH TABLE INDEX                     FEC      2653
          1734  67701                             =B7    -1                                                      FEC      2654
                     63230                        SB2    X3                                                      FEC      2655
                          5122000000 C            SA2    B2+HASHTBL                                              FEC      2656
          1735  0322001740 +                      PL     X2,SSY5     IF CHAIN FORMED                             FEC      2658
                          10066                   BX0    X6                                                      FEC      2659
                               76320              SX3    B2                                                      FEC      2660
          1736  14633                             BX6    -X3                                                     FEC      2661
                     5160001746 +                 SA6    LAST        INDICATE CHAIN NOT FORMED                   FEC      2662
                               22600              LX6    X0          RESTORE *SYMBOL*                            FEC      2663
          1737  0400001730 +                      EQ     SSYX        EXIT...                                     FEC      2664
                                                                                                                 FEC      2665
          1740  63220                    SSY5     SB2    X2                                                      FEC      2666
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    61
        TABLE SCANNING AND ENTRY ROUTINES.                            SSY 
  
                     36322                        IX3    X2+X2                                                   FEC      2667
                          36223                   IX2    X2+X3       CONVERT ORDINAL TO INDEX                    FEC      2668
                               63720              =B7    X2+WA.W                                                 FEC      2669
                                   0              ERRNZ  3-Z=SYM                                                 FEC      2670
          1741  53217                             SA2    X1+B7       FETCH SYMTAB WORD WA                        FEC      2671
                     43052                        MX0    WA.SYML                                                 FC5A192    33
                          11302                   BX3    X0*X2                                                   FEC      2672
                               37363              IX3    X6-X3                                                   FEC      2673
          1742  43060                             MX0    -WA.HASHL                                               FC5A192    34
                     15220                        BX2    -X0*X2      GET HASH POINTER                            FEC      2674
                          0303001724 +            ZR     X3,SSY10    IF MATCH                                    FEC      2675
          1743  0312001740 +                      NZ     X2,SSY5     LOOP UNTIL EMPTY CHAIN                      FEC      2676
                          10066                   BX0    X6                                                      FEC      2677
                               76670              SX6    B7                                                      FEC      2678
          1744  67701                             =B7    -1          INDICATE NOT IN TABLE.                      FEC      2679
                     5160001746 +                 SA6    LAST        END OF CHAIN                                FEC      2680
                               22600              LX6    X0                                                      FEC      2681
          1745  0400001730 +                      EQ     SSYX        EXIT...                                     FEC      2682
                                                                                                                 FEC      2683
          1746  00000000000000000000     LAST     DATA   0           INDEX OF HASH CHAIN END                     FEC      2684
          1747  00000000000000000000     NEXTORD  CON    0           NEXT AVAILABLE SYMBOL TABLE ORDINAL         FEC      2685
                                1771 +   SYMHASH  LIT    2525001001001001.BP0            T.SYM HASH CONSTANT     FEC      2686
  
  
  
  
                                                  LIST   D                                                       FEC      2688
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        TV=EXU
             0 X                        TV=CUR
             0 X                        MAL 
             0 X                        CO.LOR
             0 X                        TV=DECL 
             0 X                        ALC.PAR 
             0 X                        OVCFLG
  
                                        CONTENT OF LITERALS BLOCK.
  
          1750  05050505050505000000    EEEEEEE 
          1751  40404040404040000000    5555555 
          1752  00000000000000000000
          1753  00000000000070074400          'G9 
          1754  00003000000000000000      X 
          1755  00003000001000000000      X  H
          1756  00000000000044000200          9 B 
          1757  00000000000104000000         AD 
          1760  55555555555555553455            1 
          1761  00000377777777777600      C;;;;;^ 
          1762  55555555555555555555
          1763  23530153265305000000    S$A$V$E 
          1764  00000000002000361510         P 3MH
          1765  00000000014000100000        A5 H
          1766  00000631463146314632      FY-Y-Y-Z
          1767  00000000002000260510         P VEH
          1770  77777777777774400000    ;;;;;;@5
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    62
        TABLE SCANNING AND ENTRY ROUTINES.                            LITERALS
  
          1771  20002525001001001001    P UU HA HA
  
          1772                                    END                                                            FEC      2689
  
                             75400B CM  STORAGE USED            13744 STATEMENTS     1844 SYMBOLS      000032 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           12.093 SECONDS        2492 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AC.W            1   FTX             4/05
        ADWT            0   EXTERNAL*       2/33 X   57/10
        ALC             0   EXTERNAL*       2/33 X   31/46     36/10     51/52     56/42
                                           28/10     34/50     38/46     53/24
        ALC=CNT         0   EXTERNAL*       3/15 X
        ALC.PAR         0   EXTERNAL*      33/42 S
        ALC.REG         0   EXTERNAL*       2/33 X   41/12 S
        ALC.00          0   EXTERNAL*       2/33 X   41/09
        AM.W            0   FTX             4/06
        ANSI=           0   EXTERNAL*       3/21 X   16/22     22/12     52/56     59/42
        ARGCOMA         1   PROGRAM*        4/05 D    4/05 E
        ARGMIS          2   PROGRAM*        4/07 D    4/07 E
        ARGMODE         0   PROGRAM*        4/06 D    4/06 E
        ASK           440   PROGRAM*       17/51 L   17/51 E   20/20
        ASK1          446   PROGRAM*       18/05     18/11 L
        ASK2          451   PROGRAM*       17/49     18/20 L
        ASK3          455   PROGRAM*       18/24     18/25     18/28 L
        ASK4          463   PROGRAM*       18/43     18/48 L   19/06
        ASK5          466   PROGRAM*       18/50     18/52     18/55 L
        ASK6          471   PROGRAM*       18/53     19/10 L
        ASK7          473   PROGRAM*       19/15 L   19/19
        ASK8          436   PROGRAM*       17/45 L   18/28
        ASL           475   PROGRAM*       19/43 L   19/43 E
        ASL1          500   PROGRAM*       19/49 L   19/55
        ASL2          504   PROGRAM*       19/51     20/02 L
        ASL3          506   PROGRAM*       19/57     20/08 L
        ASL4          507   PROGRAM*       20/07     20/11 L
        ASL5          514   PROGRAM*       20/12     20/24 L
        ASL6          516   PROGRAM*       20/26     20/30 L
        ASSTAG          3   PROGRAM*        4/09 L    4/09 E    4/11
        AS.W            2   FTX             4/07
        BASES           0   EXTERNAL*       3/24 X   33/36     34/19 S
        BBC          1332   PROGRAM*       42/12 L   42/12 E
        BLNKCOM         0   EXTERNAL*       3/24 X   29/39 S
        BN=CON          0   EXTERNAL*       2/53 X    6/54
        BN=FMT          0   EXTERNAL*       2/53 X    6/56
        BN=IOAP         0   EXTERNAL*       2/53 X    6/53
        BN=NLST         0   EXTERNAL*       2/53 X    7/10
        B1=1            0 
        CAC           517   PROGRAM*       16/07     20/41 L
        CAC1          526   PROGRAM*       21/01 L   21/08     21/11     21/13     21/15     21/19     21/26
        CAC5          536   PROGRAM*       21/17     21/21 L
        CAF             0   EXTERNAL*       3/36 X   53/48
        CALLTAG         3   PROGRAM*        4/11 D    4/11 E
        CA.BNAML       52   FTX            21/46     21/48
        CBN           542   PROGRAM*       16/19     21/38 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        CBN1          545   PROGRAM*       21/43 L   21/51     21/54     22/06     22/13
        CBN2          555   PROGRAM*       21/57     22/08 L
        CB.SAVEP       72   FTX            40/20
        CB.W            1   FTX            40/23
        CCT          1345   PROGRAM*       43/23 L   43/23 E
        CDD             0   EXTERNAL*       3/52 X   26/39     26/45     54/29
        CHAR            6   FTX            17/52     18/06     18/16     20/08     45/36     52/49
                                           18/04     18/12     18/21     45/34     52/47
        CHARDCL         0   EXTERNAL*       3/24 X   20/42     29/40 S
        CHARMAP       213   PROGRAM*        9/06 D    9/06 E   10/18
        CH.DPCL        52   FTX             9/09      9/20      9/29      9/36      9/44      9/57     10/07
                                            9/10      9/23      9/30      9/37      9/45     10/01     10/08
                                            9/11      9/24      9/31      9/38      9/48     10/02     10/09
                                            9/12      9/25      9/32      9/39      9/49     10/03     10/10
                                            9/13      9/26      9/33      9/40      9/50     10/04     10/11
                                            9/17      9/27      9/34      9/41      9/51     10/05     10/12
                                            9/19      9/28      9/35      9/43      9/56     10/06     10/13
        CH.OPCL        22   FTX             9/09      9/20      9/29      9/36      9/44      9/57     10/07
                                            9/10      9/23      9/30      9/37      9/45     10/01     10/08
                                            9/11      9/24      9/31      9/38      9/48     10/02     10/09
                                            9/12      9/25      9/32      9/39      9/49     10/03     10/10
                                            9/13      9/26      9/33      9/40      9/50     10/04     10/11
                                            9/17      9/27      9/34      9/41      9/51     10/05     10/12
                                            9/19      9/28      9/35      9/43      9/56     10/06     10/13
        CLASS           0   EXTERNAL*       2/39 X   22/08     43/27     43/28     47/48     47/57     48/25
        CLU           561   PROGRAM*       15/55     22/25 L
        CLU10         576   PROGRAM*       22/38     22/42     22/46     22/55 L   23/08     23/10     23/12     23/16
        CLU5          571   PROGRAM*       22/40 L   23/13
        CO.ANSI         0   EXTERNAL*       2/48 X   16/17
        CO.C$           0   EXTERNAL*       2/48 X   37/18
        CO.LOR          0   EXTERNAL*      33/34     37/19
        CO.LOS          0   EXTERNAL*       2/48 X   37/26
        CO.SEQ          0   EXTERNAL*       2/48 X   16/20     29/55
        CO.SNAP         0   EXTERNAL*       2/48 X
        CP.FLIN         0   EXTERNAL*       2/48 X   30/06 S
        CR.REF         55   FTX            40/49
        CSB           606   PROGRAM*       23/42 L   23/42 E   28/26
        CSB4          615   PROGRAM*       23/43     24/01 L
        CSB6          617   PROGRAM*       23/47     24/04 L
        CSLTAG          4   PROGRAM*        4/13 L    4/13 E   28/24     28/28     40/53 S
        CT1          1354   PROGRAM*       31/30     43/52 L   43/52 E   48/33     48/49     49/40
        CUF           621   PROGRAM*       16/08     24/14 L
        CUF10         634   PROGRAM*       24/27     24/45 L
        CUF20         636   PROGRAM*       24/50 L   25/09
        CUF30         645   PROGRAM*       24/55     25/07 L
        CUL           647   PROGRAM*       16/09     25/19 L
        CUL2          653   PROGRAM*       25/26 L   25/38     25/40     25/47     25/49     25/55
        CUL4          664   PROGRAM*       25/32     25/49 L
        CUL6          671   PROGRAM*       25/27     26/02 L
        CUL7          672   PROGRAM*       26/05 L   26/36
        CUL8          703   PROGRAM*       26/14     26/21     26/33 L
        CUL9          711   PROGRAM*       26/03     26/38     26/43 L
        CURST           0   EXTERNAL*       3/18 X   23/49     29/31 S   33/01 S
        CUS           716   PROGRAM*       15/16     27/24 L
        CUS3          723   PROGRAM*       27/26     27/44 L
        CUS4          735   PROGRAM*       28/09     28/23 L
        CUS6          742   PROGRAM*       28/31     28/34 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        CUS.RET       726   PROGRAM*       27/45     28/06 L   28/06 E
        CVD           747   PROGRAM*       16/12     28/55 L
        CVD1          752   PROGRAM*       29/02 L   29/06     29/08     29/18
        CVD2          760   PROGRAM*       29/11     29/13 L
        DATFLG          5   PROGRAM*        4/15 L    4/15 E   40/50 S
        DH.ATTRL        6   FTX            37/37
        DH.DIML         6   FTX            37/37
        DH.PSL         30   FTX            37/37     39/46     39/47
        DH.PSP         36   FTX            39/46
        DH.RAL         30   FTX            37/37
        DO.TAGL        22   FTX            26/19
        DO.TAGP        22   FTX            26/18     26/23
        DO.W            5   FTX            26/17
        DTI             6   PROGRAM*        4/19 L    4/19 E   15/19     40/51 S
        DUC=            0   FTX            16/02     31/43     36/20
        DUC.            0   EXTERNAL*       3/40 X    9/11      9/17      9/43      9/51     10/01     10/04     10/12
                                            9/09      9/12      9/19      9/44      9/56     10/02     10/10     10/13
                                            9/10      9/13      9/20      9/50      9/57     10/03     10/11
        DUC.BTH         0   EXTERNAL*       3/40 X    9/25      9/29      9/32      9/36      9/39      9/45
                                            9/23      9/26      9/30      9/33      9/37      9/40      9/49
                                            9/24      9/28      9/31      9/34      9/38      9/41     10/07
        DUC.1ST         0   EXTERNAL*       3/40 X    9/27      9/35      9/48     10/05     10/09
        DUC.2ND         0   EXTERNAL*       3/40 X   10/06     10/08
        DXB             0   EXTERNAL*       3/52 X   13/11
        D1.SPANL       36   FTX            37/38
        D2.LBL         36   FTX            37/39
        D2.UBL         36   FTX            37/39
        EMT             0   EXTERNAL*       3/18 X   16/02     24/03     31/43     36/20
        ENDFTN          0   EXTERNAL*       3/36 X   53/49
        ERFO            0   EXTERNAL*       2/50 X   37/05 S
        ERRORS          0   EXTERNAL*       3/24 X   37/13 S
        ERRTYP          0   EXTERNAL*       3/24 X   37/11 S
        ERR=K           0   EXTERNAL*       3/24 X   32/44
        ERT          1535   PROGRAM*       37/25 S   48/43     51/37 L   51/37 E
        ERTA         1550   PROGRAM*       51/18 S   51/25     52/05 L
        ERTB         1553   PROGRAM*       51/23     51/26     51/44 S   51/49 S   51/55     52/06 L
        ERT1         1524   PROGRAM*       51/14 L   51/54
        ERT2         1525   PROGRAM*       51/16 L   51/50
        ERT=OFF      1556   PROGRAM*       37/22     52/13 L   52/13 E
        ERT=ON       1555   PROGRAM*       37/20     52/08 L   52/08 E
        ESTACK        240   RGFILE          4/27 L    4/27 E
        ESY          1557   PROGRAM*       47/40     49/31     50/12     52/44 L   52/44 E   54/43
        ESYA         1607   PROGRAM*       53/01 S   53/25     53/51 L
        ESY05        1566   PROGRAM*       52/48     52/51     52/54     53/01 L
        ESY1         1573   PROGRAM*       53/08     53/13 L
        ESY2         1574   PROGRAM*       53/11     53/24 L
        ESY3         1604   PROGRAM*       53/31     53/47 L
        E=TOTAL         0   EXTERNAL*       3/25 X   37/12 S   40/54 S
        E.ANS1          0   EXTERNAL*       2/39 X   16/22
        E.ANS2          0   EXTERNAL*       2/39 X   52/56
        E.AS6           0   EXTERNAL*       2/39 X   25/46     25/46
        E.CM8           0   EXTERNAL*       2/39 X   22/12
        E.C$15          0   EXTERNAL*       2/39 X   26/48
        E.DM03          0   EXTERNAL*       2/39 X   29/10
        E.DM04          0   EXTERNAL*       2/39 X   29/12
        E.DO09          0   EXTERNAL*       2/40 X   26/32
        E.FM            0   EXTERNAL*       2/40 X   13/32     18/10
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        E.IF17          0   EXTERNAL*       2/40 X   26/41
        E.LV6           0   EXTERNAL*       2/40 X   23/14
        E.MA            0   EXTERNAL*       2/40 X   14/46
        E.MB            0   EXTERNAL*       2/40 X   13/52
        E.MD            0   EXTERNAL*       2/40 X   14/47
        E.MDO           0   EXTERNAL*       2/40 X   15/23
        E.MH            0   EXTERNAL*       2/40 X   14/48
        E.MI            0   EXTERNAL*       2/40 X   14/49
        E.MS            0   EXTERNAL*       2/41 X   25/54
        E.NP            0   EXTERNAL*       2/41 X   28/40
        E.SEQ           0   EXTERNAL*       2/41 X   13/20
        E.STO           0   EXTERNAL*       2/42 X   53/47
        E.SU04          0   EXTERNAL*       2/41 X   59/42
        E.SU06          0   EXTERNAL*       2/41 X   25/05
        E.TY7           0   EXTERNAL*       2/41 X   21/25
        E.VA00          0   EXTERNAL*       2/41 X   48/28
        E.VA02          0   EXTERNAL*       2/41 X   43/34
        E.VA09          0   EXTERNAL*       2/42 X   47/27
        E.VA10          0   EXTERNAL*       2/42 X   46/52
        FAILSFT         0   EXTERNAL*       3/25 X   34/37 S
        FEC           316   PROGRAM*       12/15 L   12/15 E
        FEC1A         325   PROGRAM*       12/54     12/55     13/03 L
        FEC1B         334   PROGRAM*       13/19     13/23 L
        FEC2          341   PROGRAM*       13/28     13/46 L
        FEC3          345   PROGRAM*       13/51     14/06 L   14/25     14/29     14/33     14/43
        FEC3A         375   PROGRAM*       15/02     15/13 L
        FEC4          377   PROGRAM*       15/15     15/18 L
        FEC5          403   PROGRAM*       15/21     15/22     15/24 L
        FEC7          410   PROGRAM*       15/51     15/54 L
        FEC=          301   PROGRAM*       11/18 L   14/12
        FEC=BY          6                  11/27 L   11/27 E   13/25
        FEC=DAT         7                  11/29 L   11/29 E
        FEC=DEC         2                  11/23 L   11/23 E   14/27
        FEC=END         5                  11/26 L   11/26 E
        FEC=ENT        11                  11/31 L   11/31 E
        FEC=EXU         4                  11/25 L   11/25 E   14/35
        FEC=FMT        10                  11/30 L   11/30 E
        FEC=IMP         1                  11/22 L   11/22 E
        FEC=OK         14                  11/34 L   11/34 E
        FEC=PRM        13                  11/33 L   11/33 E
        FEC=STF         3                  11/24 L   11/24 E
        FEC=TYP        12                  11/32 L   11/32 E
        FEC=1ST         0                  11/21 L   11/21 E   12/52     29/51
        FEC.          352   PROGRAM*       13/26     14/19     14/21 L
        FEC.BY         16                  11/21     11/23     11/25     11/27     11/30     11/32     11/34     14/51 L
                                           11/22     11/24     11/26     11/29     11/31     11/33     13/26
        FEC.DEC         2                  11/23     11/24     11/25     11/26     11/29     11/32     14/27 L
        FEC.EMA        12                  11/24     14/46 L
        FEC.EMD        13                  11/23     11/32     11/33     14/47 L
        FEC.EMH        14                  11/21     14/48 L
        FEC.EMI        15                  11/22     14/49 L
        FEC.EXU         6                  11/25     11/26     14/35 L
        FEC.FMT        20                  11/30     14/55 L
        FEC.IMP         0                  11/22     11/24     11/26     11/30     11/33
                                           11/23     11/25     11/29     11/31     14/24 L
        FEC.OK         20                  11/21     11/23     11/25     11/29     11/32     11/34
                                           11/22     11/24     11/26     11/31     11/33     14/56 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        FEC.RIF       403   PROGRAM*       15/30 L   15/30 E
        FEC.RTF       406   PROGRAM*       15/49 L   15/49 E
        FEC.RTN       321   PROGRAM*       12/28 L   12/28 E   14/53
        FEC.STF         3                  11/24     11/25     11/26     11/29     14/31 L
        FEL.RTN         0   EXTERNAL*       3/43 X   16/18     16/21     16/23
        FEP           763   PROGRAM*       12/18     29/28 L
        FEPA         1014   PROGRAM*       30/12     30/33 L
        FEP1         1004   PROGRAM*       29/57     30/12 L
        FILL.           0   EXTERNAL*       2/42 X   21/24 S   23/07 S   25/45 S   26/31 S   26/46 S   46/51 S   52/55 S
                                           15/06 S   21/49 S   25/04 S   25/53 S   26/40 S   29/16 S   47/26 S
        FILL.2          0   EXTERNAL*       2/42 X   18/14 S   22/11 S   43/31 S   48/30 S
        FI=BRLI         0   EXTERNAL*       2/45 X
        FLOW            7   PROGRAM*        4/30 L    4/30 E   28/29     29/32 S
        FORSKEL         0   RGFILE          4/34 D    4/34 E
        FP.LEV0P       70   FTX            22/45
        FUDGE           1   FTX            33/50     34/14     57/37     58/15
        FVD          1016   PROGRAM*       15/56     31/03 L
        FVD0         1022   PROGRAM*       31/06     31/13 L
        FVD1         1024   PROGRAM*       31/19 L   31/34
        FVD2         1026   PROGRAM*       31/24 L   31/37
        FVD3         1031   PROGRAM*       31/25     31/34 L
        FVD4         1033   PROGRAM*       31/20     31/41 L
        F.INTF          0   EXTERNAL*       3/46 X   58/56
        F.LBT           0   EXTERNAL*       3/25 X   36/40 S
        F.REF           0   EXTERNAL*       2/48 X   51/23
        F.SORD          0   EXTERNAL*       3/25 X   35/05 S
        F.SYMIL        47   PROGRAM*        6/48 L    6/48 E   34/53
        GSL             0   EXTERNAL*       3/08 X   15/07
        HANGER         10   PROGRAM*        4/36 L    4/36 E   27/44     29/33 S
        HASHTBL         0   HASH            7/40 L    7/40 E   35/03 S   53/10 S   60/48
        HDRBL           0   EXTERNAL*       3/25 X   36/56
        IDP=            0   EXTERNAL*       3/02 X
        IDP=SVX         0   EXTERNAL*       3/02 X
        IFLEVEL        11   PROGRAM*        4/44 L    4/44 E   26/37     34/40 S
        INIF            0   EXTERNAL*       3/05 X   40/55 S
        INN          1612   PROGRAM*       54/24 L   54/24 E
        INNA         1623   PROGRAM*       54/26 S   54/32     54/46 L
        INSTF          12   PROGRAM*        4/46 L    4/46 E
        IO.TEM          0   EXTERNAL*       3/25 X   29/34 S
        IT.ANSIP       22   FTX            59/39
        IT.ARGCL        3   FTX            59/26     59/29
        IT.ARGCP       16   FTX            59/27     59/39
        IT.DPCL        44   FTX            58/54
        IT.GENFP       24   FTX            59/17     59/24
        IT.MODEL        3   FTX            59/18     59/22
        IT.MODEP        0   FTX            59/27
        KW=CONT         0   EXTERNAL*       3/05 X   27/28
        KW.BKDP        45   FTX            13/49
        KW.DONP        51   FTX            15/20
        KW.FECL         5   FTX            14/08
        KW.FECP        31   FTX            14/10
        KW.GENP        46   FTX            15/14
        KW.ILP         43   FTX            28/38
        KW.JMPL        22   FTX            27/32
        KW.JMPP        52   FTX            15/38     27/29
        KW.NBSP        42   FTX            28/08
        KW.PWSP        44   FTX            14/52
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        LAST         1746   PROGRAM*       53/05     60/53 S   61/16 S   61/20 L
        LC.CNTL        22   FTX            26/10
        LC.CNTP         0   FTX            26/11
        LC.DOL         22   FTX            26/13
        LC.DOP         44   FTX            26/11
        LDB             0   EXTERNAL*       3/11 X   12/56     15/52
        LDEAD          13   PROGRAM*        4/50 L    4/50 E
        LEVEL           0   EXTERNAL*       3/25 X   22/26     29/43 S
        LEVEL0          0   EXTERNAL*       3/25 X   22/53 S   29/44 S
        LEVEL2          0   EXTERNAL*       3/26 X   29/45 S
        LEX             0   EXTERNAL*       3/11 X   13/03
        LEXFLG          0   EXTERNAL*       3/11 X   12/51     37/27
        LEXMODE         0   EXTERNAL*       3/11 X   29/49 S
        LINES           0   EXTERNAL*       3/26 X   30/03 S
        LJS             0   EXTERNAL*       3/26 X   25/52     26/30
        LM.1ST          2   FTX            29/48
        LOSTREF         0   EXTERNAL*       3/26 X   34/38 S   51/42
        L=TABLE         0   EXTERNAL*       3/26 X   33/51
        L.CARD         14   PROGRAM*        4/56 L    4/56 E
        L.C$            0   EXTERNAL*       2/48 X   37/18
        L.TABS          0   EXTERNAL*       3/26 X   33/49
        L.TITL          0   EXTERNAL*       2/49 X
        MAL             0   EXTERNAL*      16/13
        MAX.DIM         7   FTX             6/03
        MAX.VAR         7   FTX            52/49
        MF.BEF          3   FTX             7/13      7/14      7/15      7/16
        MF.LIB          2   FTX             7/12      7/28      7/29      7/30     59/37
        MF.STF          1   FTX            22/05
        MF.USER         0   FTX            59/10
        ML.PROG         1   FTX             6/53      6/54      6/56      7/10
        MOD             0   EXTERNAL*       3/26 X   13/46     24/15     34/39 S   48/02
        MOD.DPC         0   EXTERNAL*       2/42 X   25/02
        MOVES           0   EXTERNAL*       3/15 X
        MO.BLKM       400   FTX            13/47
        MO.BLKP        10   FTX            13/49
        MO.FUNL         1   FTX            24/17
        MO.FUNP        13   FTX            24/17     48/03
        MVE=            0   EXTERNAL*       3/52 X   31/50     34/54     36/13     37/18     57/01
        M.BOOL          0   FTX            30/14     46/06 L   46/06     49/28
        M.CHAR          6   FTX            21/07     21/18     38/22     39/50     45/15     46/12 L   46/12
        M.CPLX          5   FTX            39/55     46/11 L   46/11
        M.DBL           4   FTX            39/52     39/55     46/10 L   46/10
        M.INT           2   FTX            24/28     30/33     46/08 L   46/08
        M.LOG           1   FTX            30/15     46/07 L   46/07
        M.REAL          3   FTX            24/29     30/34     46/09 L   46/09
        NARGS           0   EXTERNAL*       3/26 X   29/35 S
        NAT.LEN      1411   PROGRAM*       30/29 S   45/24     45/29     46/15 L   46/15 E
        NAT.TYP      1402   PROGRAM*       30/16 S   45/39     46/04 L   46/04 E
        NCM          1624   PROGRAM*       55/27 L   55/27 E
        NCMA            0   EXTERNAL*      55/30 S   56/18     56/41 S   56/55 S   57/05
                                           56/01 S   56/36     56/44     57/02     57/10 D
        NCM10        1634   PROGRAM*       55/51 L   55/54     55/55
        NCM20        1641   PROGRAM*       56/07 L   56/13
        NCM22        1644   PROGRAM*       56/12     56/18 L
        NCM30        1647   PROGRAM*       56/07     56/27 L
        NCM5         1631   PROGRAM*       55/40 L   56/22
        NCM50        1651   PROGRAM*       55/44     55/56     56/36 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        NEXTORD      1747   PROGRAM*       34/57 S   53/06     53/29     61/21 L
        NOLIST          0   EXTERNAL*       3/27 X   36/48 S
        NOPATH         15   PROGRAM*        5/03 L    5/03 E   28/27     29/36 S
        NSQZLH          0   EXTERNAL*       3/37 X   34/24 S
        NTRCNT         16   PROGRAM*        5/07 L    5/07 E   29/37 S
        N$LC            0   EXTERNAL*       3/37 X   34/30 S
        N.AP            0   EXTERNAL*       3/27 X   34/25 S
        N.ARP           0   EXTERNAL*       3/27 X   34/26 S
        N.BUF           0   EXTERNAL*       3/37 X   34/27 S
        N.CPL           0   EXTERNAL*       3/27 X   34/28 S
        N.CT            0   EXTERNAL*       3/27 X   32/37     34/31 S
        N.CTMAX         0   EXTERNAL*       3/27 X   32/38     34/32 S
        N.DOB           0   EXTERNAL*       3/27 X   34/33 S
        N.ELSTK       240   FTX             4/27
        N.EPL           0   EXTERNAL*       3/27 X   29/46 S
        N.ERRT          0   EXTERNAL*       3/27 X   37/10
        N.FP            0   EXTERNAL*       3/26 X   34/29 S
        N.GL            0   EXTERNAL*       3/28 X   34/42 S
        N.MAXIL         0   EXTERNAL*       3/28 X   23/45
        N.OPSTK       240   FTX             4/25
        N.ST            0   EXTERNAL*       3/28 X   34/34 S
        N.STMAX         0   EXTERNAL*       3/28 X   34/35 S
        N.TABLE         0   EXTERNAL*       3/28 X   33/50     33/55     55/39     57/34     58/12
        N.TYPE          7   FTX            24/46     38/20     45/35
        N.VD            0   EXTERNAL*       3/28 X   34/36 S
        OIL          1044   PROGRAM*       14/32     15/54     16/03     24/04     32/24 L   32/24 E
        OILA         1061   PROGRAM*       32/52 S   32/54     33/11 L
        OILB         1062   PROGRAM*       33/12 L
        OIL4         1057   PROGRAM*       32/45     32/48     32/49     32/57 L
        OPBSS           0   EXTERNAL*       3/18 X   24/03
        OR.OPR          0   FTX            28/21
        OR.1OP          1   FTX            28/20     28/21     31/14     31/35
        OR.2OP          2   FTX            28/15     28/20     31/35
        OSTACK          0   RGFILE          4/25 L    4/25 E    4/34
        OVCFLG          0   EXTERNAL*      36/46 S
        O.AND          31   FTX             9/36 L
        O.ARY          60   FTX            10/08 L
        O.BOTH         57   FTX            10/07 L
        O.CAT          36   FTX             9/41 L
        O.CHAR          4   FTX             9/13 L
        O.COLON        43   FTX             9/49 L
        O.COMMA        42   FTX             9/48 L
        O.CONS          5   FTX             9/14 L   18/23     18/44     18/51     19/44     20/27
        O.DCBI         51   FTX            10/01 L
        O.DCCI         52   FTX            10/02 L
        O.DEF           0   FTX             9/06      9/07
        O.DOBI         47   FTX             9/56 L
        O.DOCI         50   FTX             9/57 L
        O.DQOT         64   FTX            10/12 L
        O.EOS           0   FTX             9/09 L
        O.EQ           24   FTX             9/31 L
        O.EQV          34   FTX             9/39 L
        O.ERR          65   FTX            10/13 L
        O.EXP          21   FTX             9/28 L
        O.FALSE        13   FTX             9/20 L
        O.GE           23   FTX             9/30 L
        O.GT           27   FTX             9/34 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        O.HEX           7   FTX             9/16 L
        O.HOLL          1   FTX             9/10 L
        O.ILL          46   FTX             9/52 L
        O.LE           26   FTX             9/33 L
        O.LP           37   FTX             9/43 L
        O.LT           22   FTX             9/29 L
        O.MIN          15   FTX             9/24 L
        O.MODC         61   FTX            10/09 L
        O.MXP          62   FTX            10/10 L
        O.NE           25   FTX             9/32 L
        O.NEQV         33   FTX             9/38 L
        O.NONE         54   FTX            10/04 L
        O.NOT          30   FTX             9/35 L
        O.OCT           6   FTX             9/15 L
        O.OR           35   FTX             9/40 L
        O.PL           14   FTX             9/23 L
        O.QHOLL         2   FTX             9/11 L
        O.RLCON         3   FTX             9/12 L
        O.RP           40   FTX             9/44 L
        O.SDEF         42   FTX             9/47 L
        O.SEP          14   FTX             9/22 L
        O.SLASH        17   FTX             9/26 L
        O.SLP          44   FTX             9/50 L
        O.SPACE        53   FTX            10/03 L   28/17
        O.SQOT         63   FTX            10/11 L
        O.STAR         16   FTX             9/25 L
        O.STFA         45   FTX             9/51 L
        O.STITL         0   EXTERNAL*       3/28 X   37/02 S
        O.TABS          0   EXTERNAL*       3/28 X   33/48
        O.TRUE         12   FTX             9/19 L
        O.UMIN         20   FTX             9/27 L
        O.VAR          11   FTX             9/18 L   18/22     18/41     18/49     20/27     46/47     47/25     47/29
        O.XOR          32   FTX             9/37 L
        O.1ST          55   FTX            10/05 L
        O.2ND          56   FTX            10/06 L
        O.=            41   FTX             9/45 L
        PARAMC         20   PROGRAM*        5/14 L    5/14 E   29/47 S
        PARMIN        200                  33/28 D   33/41
        PARMODE        17   PROGRAM*        5/11 L    5/11 E   40/56 S
        PARNOW          0   EXTERNAL*       3/18 X   40/57 S
        PARSLEN         0   EXTERNAL*       3/15 X
        PAR.TH        226                  23/40 D   23/48
        PASS            0   EXTERNAL*       3/29 X   29/54 S   32/50     32/56 S
        PASS=FE         0   FTX            29/52
        PCD             0   EXTERNAL*       2/36 X   14/31
        PDA             0   EXTERNAL*       3/08 X   49/37
        PDM             0   EXTERNAL*       3/21 X   15/23     25/05     26/32     28/40     46/52
                                           13/20     21/25     25/46     26/41     29/17     48/31
                                           13/52     23/14     25/54     26/48     43/34     53/47
        PERIOD         10                   9/17 L
        PIS             0   EXTERNAL*       3/43 X   32/53
        PSF             0   EXTERNAL*       2/56 X   14/24
        PSTACK          0   PROGRAM*        4/04 L    4/05      4/06      4/07
        PSYM            7   FTX            60/43     60/44
        PUP          1063   PROGRAM*       12/16     33/30 L
        PUPA         1217   PROGRAM*       36/13     37/37 L
        PUP1         1072   PROGRAM*       33/35     33/40 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        PUP2         1101   PROGRAM*       34/09 L   34/20
        PUP60        1213   PROGRAM*       37/21     37/24 L
        PUP70        1216   PROGRAM*       37/29     37/32 L
        QCP             0   EXTERNAL*       3/40 X   12/17
        RATES           0   EXTERNAL*       3/29 X   34/09
        REFIO           0   EXTERNAL*       3/29 X   51/46     51/53
        REFLIN         21   PROGRAM*        5/16 L    5/16 E   13/16     13/23 S   28/11     36/52 S   51/38
        REFNUM         22   PROGRAM*        5/18 L    5/18 E    5/23     40/52 S
        REFVAR         23   PROGRAM*        5/23 D    5/23 E   41/07 S   48/42
        REG=            0   EXTERNAL*       3/02 X
        RLS          1222   PROGRAM*       16/11     38/01 L
        RLS10        1250   PROGRAM*       39/20 L   39/26     39/33     39/37     40/14
        RLS15        1260   PROGRAM*       39/36     39/39 L
        RLS20        1271   PROGRAM*       39/53     39/54     39/57     40/06 L
        RLS30        1274   PROGRAM*       39/22     40/18 L
        RLS40        1277   PROGRAM*       40/18     40/31 L
        RLS5         1232   PROGRAM*       38/24 L   38/28
        RLS6         1236   PROGRAM*       38/26     38/36 L
        RLS7         1240   PROGRAM*       38/34     38/46 L
        ROUTNAM        24   PROGRAM*        5/30 L    5/30 E
        RSC          1301   PROGRAM*       12/29     40/47 L
        RTNCNT         25   PROGRAM*        5/33 L    5/33 E   29/38 S
        SAVE            0   EXTERNAL*       3/29 X   29/41 S   38/02
        SBM=            0   EXTERNAL*       3/52 X   35/03     35/05     36/40     37/11
        SB=LINC         0   EXTERNAL*       3/11 X   16/15 S
        SB=LORD         0   EXTERNAL*       3/11 X   16/16 S
        SCR             0   EXTERNAL*       3/29 X   20/18 S   20/21
        SCR2           32   PROGRAM*        6/03 L    6/03 E
        SCS          1664   PROGRAM*       57/33 L   57/33 E
        SCSA         1673   PROGRAM*       57/35     57/55 L   57/55 E
        SCS1         1667   PROGRAM*       57/43 L   57/47
        SCT          1674   PROGRAM*       58/11 L   58/11 E
        SCT1         1677   PROGRAM*       58/20 L   58/22     58/23
        SIZES           0   EXTERNAL*       3/29 X   34/18 S
        SLT          1703   PROGRAM*       58/52 L   58/52 E
        SLT3         1706   PROGRAM*       59/01 L   59/06
        SLT4         1712   PROGRAM*       59/03     59/17 L
        SLT5         1717   PROGRAM*       59/32     59/35 L
        SLT6         1722   PROGRAM*       59/41     59/43 L
        SN.PAR          0   EXTERNAL*       2/45 X
        SSU          1316   PROGRAM*       16/10     41/23 L
        SSU10        1325   PROGRAM*       41/36 L   41/41     41/46     41/49
        SSY          1730   PROGRAM*       21/50     47/32     49/25     50/09     54/38     60/35 L   60/35 E
        SSY10        1724   PROGRAM*       60/22 L   61/11
        SSY5         1740   PROGRAM*       60/49     60/57 L   61/12
        STAGE          26   PROGRAM*        5/39 L    5/39 E   12/50     13/24     14/09     29/53 S
        STY          1374   PROGRAM*       45/33 L   45/33 E   47/37
        STY1         1377   PROGRAM*       45/39 L   45/43
        STY2         1365   PROGRAM*       45/13 L   45/42
        STY3         1370   PROGRAM*       45/17     45/21 L
        STY4         1373   PROGRAM*       45/23     45/29 L
        SYMHASH      1771   PROGRAM*       60/39     61/22 L
        S=BU            0   EXTERNAL*       3/29 X   35/07 S
        S=BUF           0   EXTERNAL*       3/37 X   35/07 S
        S=CL            0   EXTERNAL*       3/29 X   35/07 S
        S=CON           0   EXTERNAL*       3/29 X   35/07 S
        S=CT            0   EXTERNAL*       3/30 X   35/07 S
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        S=ENTRY         0   EXTERNAL*       3/30 X
        S=FAR           0   EXTERNAL*       3/30 X   35/07 S
        S=FAS           0   EXTERNAL*       3/30 X   35/07 S
        S=FID           0   EXTERNAL*       3/30 X   35/07 S
        S=FMC           0   EXTERNAL*       3/30 X   35/07 S   35/07 S
        S=FVS           0   EXTERNAL*       3/30 X   35/07 S
        S=IT            0   EXTERNAL*       3/30 X   35/07 S
        S=LA            0   EXTERNAL*       3/30 X   35/07 S
        S=LC            0   EXTERNAL*       3/31 X   35/07 S
        S=LENP          0   EXTERNAL*       3/31 X   35/07 S
        S=LMC           0   EXTERNAL*       3/31 X   35/07 S
        S=MMC           0   EXTERNAL*       3/31 X   35/07 S
        S=OT            0   EXTERNAL*       3/31 X   35/07 S
        S=RD            0   EXTERNAL*       3/31 X   35/07 S
        S=SA0           0   EXTERNAL*       3/36 X   35/07 S
        S=SA1           0   EXTERNAL*       3/31 X   35/07 S
        S=ST            0   EXTERNAL*       3/31 X   35/07 S
        S=TA0           0   EXTERNAL*       3/31 X   35/07 S
        S=TRACE         0   EXTERNAL*       3/32 X   35/07 S
        S=VALUE         0   EXTERNAL*       3/32 X   20/50     24/16     35/07 S   38/13     48/07
        S=VD            0   EXTERNAL*       3/32 X   35/07 S
        TB=LABL         0   EXTERNAL*       3/11 X   15/03
        TB=LABR         0   EXTERNAL*       3/11 X   15/01     27/25
        TB=NUML         0   EXTERNAL*       3/12 X   13/08
        TB=TYPE         0   EXTERNAL*       3/12 X   14/06     15/13     15/37     28/07
                                           13/27     14/51     15/18     27/27     28/37
        TB=1ST          0   EXTERNAL*       3/12 X   15/31
        TEST            0   FTX            12/33 F   13/13 F   32/26 F   33/04 F   36/34 F   43/56 F   53/17 F   54/39 F
        TH.LINEP       34   FTX            28/14
        TH.SKELP       56   FTX            28/16
        TLV          1426   PROGRAM*       46/41 L   46/41 E   47/31
        TLV5         1430   PROGRAM*       46/45 L   46/48
        TL.PTYP         0   EXTERNAL*       2/49 X   37/03 S
        TP.ATTRL       15   FTX            31/16
        TP.ATTRP        7   FTX            31/16
        TP.BIASL       30   FTX            31/16     42/33     42/35     42/36     42/39
        TP.BIASP       24   FTX            31/16     42/35     42/39     42/41
        TP.EQVL         1   FTX            42/14     42/39
        TP.EQVP        21   FTX            42/14     42/17     42/39     44/43
        TP.FPP         22   FTX            44/25
        TP.INTRL        1   FTX            31/17
        TP.INTRP       12   FTX            31/17
        TP.LCMP        23   FTX            44/50
        TP.MODEL        3   FTX            44/32
        TP.ORDL        20   FTX            31/28     42/16     42/39     44/12
        TP.ORDP        54   FTX            28/25     42/17     42/39     42/40     44/13
        TP.SHRTL        1   FTX            31/17
        TP.SHRTP       14   FTX            31/17
        TRLINE         27   PROGRAM*        5/42 L    5/42 E
        TRV          1435   PROGRAM*       47/19 L   47/19 E
        TRVA         1502   PROGRAM*       47/35 S   47/43 S   48/12 S   48/47     48/50 S   48/53 L   48/53 E
        TRVB         1503   PROGRAM*       47/21 S   48/05     48/54 L
        TRV10        1452   PROGRAM*       47/36     47/46 L
        TRV11        1467   PROGRAM*       47/54     48/04     48/06     48/23 L
        TRV11E       1470   PROGRAM*       47/49     48/01     48/27 L
        TRV12        1474   PROGRAM*       47/44     47/51     48/19     48/38 L
        TRV20        1477   PROGRAM*       48/39     48/47 L
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        TRV5         1443   PROGRAM*       47/30     47/32 L
        TSX          1504   PROGRAM*       49/22 L   49/22 E
        TSX3         1510   PROGRAM*       49/26     49/33 L
        TSX4         1514   PROGRAM*       49/34     49/40 L
        TSY          1516   PROGRAM*       50/05 L   50/05 E
        TV=CUR          0   EXTERNAL*      14/39 S   33/44 S
        TV=DECL         0   EXTERNAL*      33/36     33/40
        TV=EXU          0   EXTERNAL*      14/37     33/36
        TYPD            0   EXTERNAL*       3/49 X   29/30 S
        T=BLKS          0   EXTERNAL*       3/32 X   21/39     40/31
        T=BLST          0   EXTERNAL*       3/32 X   26/02     26/33     49/33
        T=CON           0   EXTERNAL*       3/32 X   13/31     13/31 S   41/08
        T=CONB         30   PROGRAM*        5/44 L    5/44 E   13/29     41/11     41/11 S
        T=C$IF          0   EXTERNAL*       3/32 X   26/43
        T=PAR           0   EXTERNAL*       3/32 X    3/33 X   23/44     32/47     33/02     33/02 S
        T=REF           0   EXTERNAL*       3/33 X   51/14     51/14 S
        T=SCR           0   EXTERNAL*       3/33 X   16/06     16/06 S   41/06     41/06 S
        T=STF           0   EXTERNAL*       3/33 X   16/04     16/04 S
        T=STMT          0   EXTERNAL*       3/33 X   16/14     16/14 S
        T=SYM           0   EXTERNAL*       3/33 X   22/27     28/57     34/49 S   41/25
                                           20/45     25/21     34/49     39/05
        T=TB            0   EXTERNAL*       3/33 X   16/05     16/05 S
        T=VDIM          0   EXTERNAL*       3/33 X   31/04     31/44     31/48     31/51     31/51 S
        T.BLKS          0   EXTERNAL*       3/33 X   21/41     36/26     38/46     40/19
        T.BLST          0   EXTERNAL*       3/34 X   26/05
        T.COMM          0   EXTERNAL*       3/34 X   36/31
        T.DIM           0   EXTERNAL*       3/34 X   36/10     39/08
        T.END           0   EXTERNAL*       3/34 X   34/07 S
        T.FPI           0   EXTERNAL*       3/34 X   22/30
        T.PAR           0   EXTERNAL*       3/34 X   28/10     31/46     31/46
        T.REF           0   EXTERNAL*       3/34 X   33/36     51/52
        T.SYM           0   EXTERNAL*       3/34 X   24/22     28/56     39/04     44/05     48/17
                                           20/44     25/20     34/50     41/27     47/40     60/36
                                           22/29     26/27     38/17     42/19     47/40
        T.VDIM          0   EXTERNAL*       3/35 X   31/13     31/43     31/49     36/20
        USAVE           0   EXTERNAL*       3/35 X   29/42 S   38/03     39/27     41/24
        V=BVD           0   EXTERNAL*       3/46 X   36/20
        V=EVD           0   EXTERNAL*       3/46 X   31/43
        V=FIN           0   EXTERNAL*       3/46 X   16/02
        V=NOOP          0   EXTERNAL*       3/46 X   28/12
        WANFP          31   PROGRAM*        5/45 L    5/45 E   14/42 S   36/51 S   53/37     60/23
        WA.HASHL       14   FTX            52/41     61/09
        WA.HASHP        0   FTX            52/41
        WA.NFPP        21   FTX            14/41
        WA.STLP        30   FTX            25/51     26/29
        WA.SYML        52   FTX            21/22     22/57     25/44     46/44     49/23     61/06
                                           21/48     25/42     29/13     47/23     50/06
        WA.SYMP        22   FTX            25/44
        WA.W            0   FTX            20/55     22/56     25/50     53/13     60/25     61/03
                                           21/21     25/41     29/14     53/39     60/29
        WB.AGNL         1   FTX            25/34
        WB.AGNP        30   FTX            25/34     25/39
        WB.AGO2L        1   FTX            25/34     25/37
        WB.AGO2P       24   FTX            25/34     25/37     25/39
        WB.ARYL         1   FTX             6/53      6/56      7/06      7/08      7/10
                                            6/54      7/03      7/07      7/09
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    73
        SYMBOLIC REFERENCE TABLE. 
  
        WB.ARYP        12   FTX             6/53      6/56      7/06      7/08      7/10
                                            6/54      7/03      7/07      7/09     29/09
        WB.BASEL       14   FTX            42/25
        WB.BASEP       41   FTX            42/26
        WB.BMEML        1   FTX             7/19     41/43
        WB.BMEMP       23   FTX             7/19     39/29     41/33     41/43
        WB.CGSL         1   FTX             6/51      6/56      7/04      7/09      7/15      7/22      7/29
                                            6/52      6/57      7/05      7/10      7/16      7/23      7/30
                                            6/53      7/01      7/06      7/12      7/19      7/24     41/44
                                            6/54      7/02      7/07      7/13      7/20      7/25     49/27
                                            6/55      7/03      7/08      7/14      7/21      7/28
        WB.CGSP         4   FTX             6/51      6/56      7/04      7/09      7/15      7/22      7/29     49/27
                                            6/52      6/57      7/05      7/10      7/16      7/23      7/30     54/41
                                            6/53      7/01      7/06      7/12      7/19      7/24     39/35
                                            6/54      7/02      7/07      7/13      7/20      7/25     39/41
                                            6/55      7/03      7/08      7/14      7/21      7/28     41/44
        WB.COML         1   FTX            22/37     23/11     39/23     39/28
        WB.COMP        17   FTX            22/37     23/11     39/23     39/28
        WB.DEFL         1   FTX             6/52      6/56      7/03      7/07      7/12      7/16     59/30
                                            6/53      6/57      7/04      7/08      7/13      7/28
                                            6/54      7/01      7/05      7/09      7/14      7/29
                                            6/55      7/02      7/06      7/10      7/15      7/30
        WB.DEFP         7   FTX             6/52      6/56      7/03      7/07      7/12      7/16     24/47
                                            6/53      6/57      7/04      7/08      7/13      7/28     24/52
                                            6/54      7/01      7/05      7/09      7/14      7/29     38/25
                                            6/55      7/02      7/06      7/10      7/15      7/30     59/30
        WB.DEXTL        1   FTX            21/52
        WB.DEXTP       26   FTX            21/52
        WB.ENTL         1   FTX            21/52     39/23     41/32
        WB.ENTP        15   FTX            21/14     21/52     39/23     41/32     47/55
        WB.EQVL         1   FTX             7/20      7/21      7/22      7/23      7/24      7/25     39/23
        WB.EQVP        11   FTX             7/20      7/22      7/24     39/23     44/48
                                            7/21      7/23      7/25     44/40
        WB.EXTL         1   FTX             7/12      7/14      7/16      7/29     21/52     41/32     59/11
                                            7/13      7/15      7/28      7/30     39/23     49/27
        WB.EXTP        16   FTX             7/12      7/14      7/16      7/29     21/52     41/32     59/11
                                            7/13      7/15      7/28      7/30     39/23     49/27
        WB.FDEFL        1   FTX            25/29
        WB.FDEFP       24   FTX            25/29
        WB.FPL          1   FTX            21/12     22/37     39/23     41/32
        WB.FPNOL       11   FTX            22/47
        WB.FPNOP       41   FTX            22/48
        WB.FPP         20   FTX            21/12     21/14     22/37     39/23     41/32     44/25
        WB.FUNL         1   FTX            21/52     47/52     59/11     59/30     59/33
        WB.FUNP        14   FTX            21/52     21/56     47/52     59/11     59/30     59/33
        WB.GENFL        1   FTX            21/52
        WB.GENFP       25   FTX            21/52     59/24
        WB.INTFL        1   FTX            21/52
        WB.INTFP       27   FTX            21/52
        WB.JPFP        57   FTX            59/44
        WB.LABL         1   FTX             6/57     25/31     39/23     41/32     47/52
        WB.LABP         3   FTX             6/57     23/09     25/33     29/07     41/32     47/47     47/50
                                           22/40     25/31     29/05     39/23     44/18     47/48     47/52
        WB.LCMP        21   FTX            22/40     22/43     44/48     44/53
        WB.LEVL         1   FTX            22/36     23/06
        WB.LEVNL        2   FTX            22/35     22/36
        WB.LEVNP       55   FTX            22/35     22/36
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    74
        SYMBOLIC REFERENCE TABLE. 
  
        WB.LEVP        33   FTX            22/36     23/06     23/09
        WB.MATL         1   FTX             7/10     39/28
        WB.MATP        36   FTX             7/10     39/28
        WB.MDFP        10   FTX            24/26     24/52
        WB.MODEL        3   FTX            20/49     38/37     39/40     44/31     44/32     48/08     59/22
        WB.MODEP        0   FTX            39/48     44/40
        WB.NDEFL        1   FTX            25/29
        WB.NDEFP       27   FTX            25/29
        WB.NLSTL        1   FTX            39/23     41/32
        WB.NLSTP       34   FTX            39/23     41/32
        WB.NVARL        1   FTX             6/51      7/13      7/15      7/28      7/30     41/32     59/11     59/33
                                            7/12      7/14      7/16      7/29     39/23     49/27     59/30
        WB.NVARP        6   FTX             6/51      7/14      7/28     39/23     47/57     59/30
                                            7/12      7/15      7/29     41/32     49/27     59/33
                                            7/13      7/16      7/30     47/50     59/11
        WB.PARML        1   FTX            21/52     39/23     41/32     47/52
        WB.PARMP       10   FTX            21/52     39/23     41/32     47/52
        WB.PNTL        15   FTX            39/42
        WB.PNTP        57   FTX            39/41     39/48
        WB.SAVEL        1   FTX            39/28
        WB.SAVEP       35   FTX            39/25     39/28     41/29
        WB.SDEFL        1   FTX            25/29
        WB.SDEFP        7   FTX            25/29
        WB.SUBL         1   FTX             7/12      7/14      7/16      7/29     21/52
                                            7/13      7/15      7/28      7/30     47/52
        WB.SUBP        13   FTX             7/12      7/14      7/16      7/29     21/52
                                            7/13      7/15      7/28      7/30     47/52
        WB.VARL         1   FTX             6/52      6/55      7/02      7/05      7/08      7/19      7/22      7/25
                                            6/53      6/56      7/03      7/06      7/09      7/20      7/23
                                            6/54      7/01      7/04      7/07      7/10      7/21      7/24
        WB.VARP         5   FTX             6/52      6/55      7/02      7/05      7/08      7/19      7/22      7/25
                                            6/53      6/56      7/03      7/06      7/09      7/20      7/23
                                            6/54      7/01      7/04      7/07      7/10      7/21      7/24
        WB.VDSP        32   FTX            29/07     29/09
        WB.W            1   FTX            20/47     22/01     25/23     29/14     41/31     48/16     60/25
                                           20/55     22/34     25/41     38/18     42/23     53/34     60/29
                                           21/09     22/56     25/50     39/07     42/29     53/39
                                           21/21     24/24     29/01     39/43     44/06     60/22
        WB.1REFP       37   FTX            52/45     60/30
        WC.ARGCL       11   FTX            59/29
        WC.ARGCP       60   FTX            59/36
        WC.CLENL       22   FTX            40/02     40/03
        WC.CLENP       36   FTX            40/02     45/26     45/31
        WC.CTYPL        1   FTX            21/10
        WC.CTYPP       35   FTX            21/10
        WC.FUNTL        3   FTX             7/12      7/14      7/16      7/29     22/02
                                            7/13      7/15      7/28      7/30
        WC.FUNTP       71   FTX            22/03     59/12     59/38
        WC.RAL         30   FTX            42/30
        WC.RBL         12   FTX             6/53      6/54      6/56      7/10
        WC.RBP         60   FTX            38/49     40/21
        WC.RLL          2   FTX             6/53      6/54      6/56      7/10
        WC.W            2   FTX            21/09     22/01     39/43     42/29     53/28     53/34
        WO.C$           0   EXTERNAL*       3/35 X   37/18
        WO.LOR          0   EXTERNAL*       3/35 X   48/38
        WO.LOS          0   EXTERNAL*       3/35 X   15/50
        WO.QC           0   EXTERNAL*       3/35 X   32/46
1       FEC - FRONT END CONTROLLER AND SUPPORT.                       COMPASS 3.7-871.     24/05/02. 13.14.11.      PAGE    75
        SYMBOLIC REFERENCE TABLE. 
  
        WTW=            0   EXTERNAL*       3/52 X   51/23
        XR.LINEP        6   FTX            13/17     28/14
        XR.TAGL        22   FTX            51/39
        XR.TAGP        52   FTX            48/41
        ZLCOLON        46   PROGRAM*        6/14 L    6/14 E   41/05 S
        ZLCOMMA        43   PROGRAM*        6/11 L    6/11 E   41/03 S
        ZLE            45   PROGRAM*        6/13 L    6/13 E   41/01 S
        ZLEQUAL        42   PROGRAM*        6/10 L    6/10 E   41/02 S
        ZLPAREN        44   PROGRAM*        6/12 L    6/12 E   41/04 S
        Z=BLKS          2   FTX            21/40     21/45     38/46     38/48     38/51 S   40/32
        Z=DD            2   FTX            36/10
        Z=PSTACK        3   FTX             4/04
        Z=SYM           3   FTX             6/50      7/01      7/09      7/20      7/30     24/29     29/04     53/24
                                            6/51      7/02      7/10      7/21     20/46     24/46     29/04     53/28
                                            6/52      7/03      7/12      7/22     20/47     24/57     34/56     61/04
                                            6/53      7/04      7/13      7/23     20/54     25/07     38/20
                                            6/54      7/05      7/14      7/24     21/18     25/22     38/24
                                            6/55      7/06      7/15      7/25     22/33     25/23     39/06
                                            6/56      7/07      7/16      7/28     22/34     26/26     41/30
                                            6/57      7/08      7/19      7/29     24/28     29/01     43/55
        Z=TURP          3   FTX            23/40     28/10     28/15     31/05     31/19
        Z.CHMAP        66                  10/18 D   10/18 E
        Z.HASH        200   FTX             7/40     35/03     35/03
        Z.INTF          0   EXTERNAL*       3/46 X   58/55
        Z.LBT           0   EXTERNAL*       3/35 X   36/40     36/40
        Z.SORD          0   EXTERNAL*       3/35 X   35/05     35/05
        Z.SYMDB       132                   7/27 L    7/27 E
        Z.SYMIL       143                   7/32 L    7/32 E   34/50     34/56
        Z.SYMVP       105                   7/18 L    7/18 E
        .A         200000                  16/02 D   16/02     24/03 D   24/03     31/43 D   31/43     36/20 D   36/20
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3106              IDENT  FERRS
                       3106                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       245 
                                        LITERALS* LOCAL         245       757 
                                        FORMAT.   LOCAL        1224      1662 
  
  
                                        ENTRY POINTS. 
  
                                        B=FERRS          0+           E.EQ2           51+           E.LP3         2405+ 
                                        DICT           245+           E.EQ3           52+           E.LV1          152+ 
                                        FILL.          246+           E.EQ4           53+           E.LV2         2411+ 
                                        FILL.2         247+           E.EQ6         1703+           E.LV3          153+ 
                                        FILL.3         250+           E.EQ7         1705+           E.LV4          154+ 
                                        L.FILL           3            E.EQ8         1710+           E.LV5          155+ 
                                        CLASS          246+           E.EQ10        1712+           E.LV6         2421+ 
                                        DO.DPC         307+           E.EQ11        1714+           E.LV7          156+ 
                                        MOD.DPC        313+           E.EQ12        1716+           E.LV8          157+ 
                                        ERL=XPR        322+           E.EQ13        1720+           E.LV9         2427+ 
                                        ERL=CON        323+           E.EQ14        1722+           E.LV11        2431+ 
                                        E.GE             0+           E.EQ15        1724+           E.FM           160+ 
                                        E.GE1         1226+           E.EQ16        1727+           E.MA           161+ 
                                        E.GE2            1+           E.EQ17        1731+           E.MB          2437+ 
                                        E.GE3            2+           E.EX1         1733+           E.MCA         2441+ 
                                        E.GE4         1234+           E.EX2         1226+           E.INI         2443+ 
                                        E.GE5         1236+           E.EX3            1+           E.TLBL        2445+ 
                                        E.GE6            3+           E.EX4         1735+           E.MD           162+ 
                                        E.ANS         1242+           E.FD          1737+           E.MDO         2450+ 
                                        E.ANS1        1244+           E.FD1         1741+           E.ME           163+ 
                                        E.ANS2        1246+           E.FD2           54+           E.ME1         1234+ 
                                        E.ANS3           4+           E.FD3           55+           E.MH           164+ 
                                        E.ANS4        1252+           E.FD4           56+           E.MI           165+ 
                                        E.ANS5        1254+           E.FD5           57+           E.MR1          166+ 
                                        E.ANS6        1256+           E.FD6           60+           E.MR2          167+ 
                                        E.AG00        1260+           E.FD7           61+           E.MR3          170+ 
                                        E.AG01        1262+           E.FD8           62+           E.MS          2464+ 
                                        E.AG02        1234+           E.FD9           63+           E.NP          2466+ 
                                        E.AG03        1264+           E.FD10        1763+           E.NP1          171+ 
                                        E.AG04        1266+           E.FD11        1234+           E.OV1          172+ 
                                        E.AG07        1270+           E.FD12        1765+           E.OV2         2474+ 
                                        E.AG08           5+           E.FS00        1767+           E.OV3          173+ 
                                        E.AG11        1274+           E.FS01        1771+           E.OV4         2500+ 
                                        E.AG12        1276+           E.FS02        1774+           E.PN1         2502+ 
                                        E.AS1         1234+           E.FS03        1776+           E.PN3         2504+ 
                                        E.AS2         1300+           E.FS04        2000+           E.SEQ         2506+ 
                                        E.AS3         1301+           E.FS05        2002+           E.STO         2510+ 
                                        E.AS4            6+           E.FS06        2004+           E.MO1         2512+ 
                                        E.AS5         1304+           E.FS07        2006+           E.MO2         2513+ 
                                        E.AS6         1306+           E.FS08        2010+           E.MO8         2515+ 
                                        E.AS7         1236+           E.FS09        2012+           E.MDE1        2517+ 
                                        E.AT01        1311+           E.FS10        2015+           E.MDE2        2520+ 
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        E.AT02        1313+           E.FS11        2017+           E.MDE3        2522+ 
                                        E.AT03        1315+           E.FS12        2021+           E.MDE4        2524+ 
                                        E.AT04        1317+           E.FS13        2023+           E.MDE5        2526+ 
                                        E.AT05        1321+           E.FS14        2026+           E.MDE6        2530+ 
                                        E.AT06        1324+           E.FS15        2027+           E.NL           174+ 
                                        E.AT07        1326+           E.FS16        2031+           E.NL1          175+ 
                                        E.AT08        1327+           E.FS17        2034+           E.NL2          176+ 
                                        E.AT09        1330+           E.FS18           3+           E.NL3          177+ 
                                        E.AT10        1332+           E.FS19        2037+           E.NL4          200+ 
                                        E.AT11        1334+           E.FS20        2040+           E.NL5          201+ 
                                        E.AT13        1336+           E.FS21        2041+           E.PX1         2544+ 
                                        E.AT14        1340+           E.FS22        2043+           E.PX2         2546+ 
                                        E.AT15        1342+           E.FS23        2045+           E.PX3          202+ 
                                        E.AT16        1344+           E.FS24        2047+           E.PX4          203+ 
                                        E.AT17        1346+           E.FS25        2052+           E.PX5            0+ 
                                        E.AT18        1347+           E.FS26        2053+           E.PX6         2554+ 
                                        E.AT19        1351+           E.GO            64+           E.PX7         2556+ 
                                        E.AT20        1353+           E.GO1           65+           E.PX8            3+ 
                                        E.AT21        1355+           E.GO2           66+           E.SA          2560+ 
                                        E.CL1         1270+           E.GO3         2062+           E.SA1          204+ 
                                        E.CL2            7+           E.GO4         2064+           E.SA2         2564+ 
                                        E.CL3         1361+           E.GO5         2066+           E.SA3          205+ 
                                        E.CL4         1363+           E.GO6         2070+           E.SA4          206+ 
                                        E.CM            10+           E.GO7         2072+           E.SA5         2572+ 
                                        E.CM1           11+           E.GO8         2073+           E.SA6         2574+ 
                                        E.CM2           12+           E.GO9         1234+           E.SB2         2576+ 
                                        E.CM3           13+           E.HC1         2075+           E.SB3         2600+ 
                                        E.CM5           14+           E.HC2         2077+           E.SB4         2602+ 
                                        E.CM6           15+           E.HC3         2101+           E.SB5         2604+ 
                                        E.CM8         1401+           E.IF00          67+           E.SB6         2606+ 
                                        E.CM9         1403+           E.IF01        2104+           E.SB7         2610+ 
                                        E.CM10        1405+           E.IF02        2106+           E.SF00           0+ 
                                        E.CM11        1407+           E.IF03          70+           E.SF01         207+ 
                                        E.CM12        1411+           E.IF04        2112+           E.SF02         210+ 
                                        E.CT            16+           E.IF05        2114+           E.SF03         211+ 
                                        E.CT1         1234+           E.IF06          71+           E.SF04        2620+ 
                                        E.C$00          17+           E.IF07        2120+           E.SF05        2622+ 
                                        E.C$01          20+           E.IF08        1234+           E.SF06        2624+ 
                                        E.C$02          21+           E.IF09          72+           E.SF07        2626+ 
                                        E.C$03          22+           E.IF10          73+           E.SF08         212+ 
                                        E.C$04          23+           E.IF11          74+           E.SF09        2632+ 
                                        E.C$05        1426+           E.IF12          75+           E.SF10        2634+ 
                                        E.C$06          24+           E.IF13          76+           E.SF11        2636+ 
                                        E.C$07          25+           E.IF14        2133+           E.SF12        2640+ 
                                        E.C$08          26+           E.IF15        2135+           E.SF13        2643+ 
                                        E.C$09           2+           E.IF16        2137+           E.SF14        2646+ 
                                        E.C$10        1234+           E.IF17        2141+           E.SF15        2650+ 
                                        E.C$11          27+           E.IN            77+           E.SL00        2653+ 
                                        E.C$15        1441+           E.IN1         2145+           E.SL01        2655+ 
                                        E.DABC        1443+           E.IN2         2147+           E.SL02        2657+ 
                                        E.DABL        1445+           E.IN3         2151+           E.SL03        2661+ 
                                        E.DACV          30+           E.IN4          100+           E.SL04        2663+ 
                                        E.DAVC          31+           E.INF         2155+           E.SL05        2665+ 
                                        E.DAR         1452+           E.INF1        2157+           E.SL06        2667+ 
                                        E.DAUC        1454+           E.INF2        2161+           E.SL07        2671+ 
                                        E.DCE           32+           E.INF3        2163+           E.SL08        2673+ 
                                        E.DIL           33+           E.IO00        2165+           E.SL09        2675+ 
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        E.DIL1          34+           E.IO01         101+           E.SL10        2700+ 
                                        E.DIL2          35+           E.IO02        2170+           E.SL11        2702+ 
                                        E.DIL3          36+           E.IO03        2173+           E.SL12        2704+ 
                                        E.DIL4          37+           E.IO04        2175+           E.SL13        2706+ 
                                        E.DSE         1471+           E.IO05        2177+           E.SL14        2710+ 
                                        E.DVL1        1473+           E.IO06        2201+           E.SL15        2712+ 
                                        E.DVR1        1475+           E.IO07         102+           E.SL16        2714+ 
                                        E.DVR2        1477+           E.IO08         103+           E.SL17        2716+ 
                                        E.DVR3        1501+           E.IO09        2207+           E.SL18         213+ 
                                        E.DVR4        1503+           E.IO10         104+           E.SL19        2722+ 
                                        E.DVR5        1505+           E.IO11         105+           E.SL20        2723+ 
                                        E.DC          1507+           E.IO12         106+           E.ST          2726+ 
                                        E.DC1         1510+           E.IO13         107+           E.ST1         2730+ 
                                        E.DC3         1512+           E.IO14        2221+           E.SPR1        2732+ 
                                        E.DC4         1514+           E.IO15         110+           E.SPR2        2734+ 
                                        E.DC6         1516+           E.IO16         111+           E.SPR4        1234+ 
                                        E.DC7         1520+           E.IO17         112+           E.SPR5        2736+ 
                                        E.DC8         1521+           E.IO18        2230+           E.SU01        2740+ 
                                        E.DC9         1523+           E.IO19         113+           E.SU02        2742+ 
                                        E.DC10        1525+           E.IO20         114+           E.SU03        2744+ 
                                        E.DM00        1527+           E.IO21         115+           E.SU04        2747+ 
                                        E.DM01        1531+           E.IO22        2240+           E.SU05        2751+ 
                                        E.DM02        1533+           E.IO23        2242+           E.SU06        2753+ 
                                        E.DM03        1535+           E.IO24        2244+           E.SU07        2756+ 
                                        E.DM04        1537+           E.IO25         116+           E.SU08        2760+ 
                                        E.DM05        1541+           E.IO26        2250+           E.SU09        2762+ 
                                        E.DM06        1543+           E.IO28         117+           E.SU10        2764+ 
                                        E.DM07        1545+           E.IO29         120+           E.SU11        2736+ 
                                        E.DM08        1547+           E.IO30        2256+           E.TY          1226+ 
                                        E.DM09        1551+           E.IO31        2260+           E.TY0         2766+ 
                                        E.DM10          40+           E.IO32        2262+           E.TY1         2770+ 
                                        E.DM11        1555+           E.IO33        2264+           E.TY2         2772+ 
                                        E.DM12        1560+           E.IO34        2266+           E.TY3         2774+ 
                                        E.DM13        1562+           E.IO35        2270+           E.TY4         2777+ 
                                        E.DM14        1564+           E.IO36        2272+           E.TY5          214+ 
                                        E.DM15        1226+           E.IO37        1234+           E.TY6         3003+ 
                                        E.DM16           1+           E.IOB0         121+           E.TY7         3004+ 
                                        E.DM17        1566+           E.IOB1         122+           E.TY8         3006+ 
                                        E.DM18        1571+           E.IOB2         123+           E.TY9         3011+ 
                                        E.DM19        1574+           E.IOB3         124+           E.TY10        3013+ 
                                        E.DM20        1576+           E.IOB4         125+           E.TYI          215+ 
                                        E.DM21        1600+           E.IOB5         126+           E.TYI1         216+ 
                                        E.DO00        1602+           E.IOB6         127+           E.TYI2         217+ 
                                        E.DO01        1604+           E.IOB7        2313+           E.TYI3        3023+ 
                                        E.DO02        1606+           E.IOB8         130+           E.TYI4        3025+ 
                                        E.DO03        1610+           E.IOB9         131+           E.TYI5        3027+ 
                                        E.DO04        1612+           E.IOD1         132+           E.TYI6         220+ 
                                        E.DO05           6+           E.IOD2         133+           E.TYI7         221+ 
                                        E.DO06        1614+           E.IOD3         134+           E.TYI8        3035+ 
                                        E.DO07        1616+           E.IOD4           2+           E.TYI9        3037+ 
                                        E.DO08          41+           E.IOL1        2330+           E.VA00        1236+ 
                                        E.DO09        1622+           E.IOL2        2332+           E.VA01        3041+ 
                                        E.DO10        1624+           E.IOL5        2334+           E.VA02        3043+ 
                                        E.DO12        1626+           E.IOL6        2336+           E.VA03        3045+ 
                                        E.DO13        1630+           E.IOL7         135+           E.VA04        3047+ 
                                        E.DO14          42+           E.IOL8         136+           E.VA05        3051+ 
                                        E.DO15        1634+           E.IOF          137+           E.VA06        3053+ 
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     4
        STORAGE ALLOCATION. 
  
                                        E.DO16        1636+           E.IOF1        2345+           E.VA07        3055+ 
                                        E.DO17        1640+           E.IOF2         140+           E.VA08        3057+ 
                                        E.DO18        1642+           E.ION         2351+           E.VA09         222+ 
                                        E.DO19        1644+           E.ION1        2353+           E.VA10        3062+ 
                                        E.DO20        1646+           E.IOS1         141+           E.VA11        3064+ 
                                        E.EN          1650+           E.IOS2         142+           E.VA12        3066+ 
                                        E.EN1           43+           E.IOS3         143+           E.VA13         223+ 
                                        E.EN2           44+           E.IOS4         144+           E.XP1         3072+ 
                                        E.EN3           45+           E.IOS5         145+           E.XP3         3074+ 
                                        E.EN4           46+           E.IOS6         146+           E.XP4         3076+ 
                                        E.EN5         1662+           E.IOS7        2371+           E.XP5         3100+ 
                                        E.EN6         1665+           E.IOS8         147+           E.XP6         3102+ 
                                        E.EN7         1667+           E.IOS9         150+           E.XP7         3104+ 
                                        E.EN8         1671+           E.IOS10        151+           OSE            224+ 
                                        E.EQ            47+           E.LP1         2377+ 
                                        E.EQ1           50+           E.LP2         2402+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        DATA2     LVL90     FEC.RTN   LST       PDM       ERR.A     ERR.W     ERR.M 
                                        DAT.Z     PRMERR    PPA130    END23     PEMS      ERR.D     SCR       ERR.K 
                                        EQS80     SAVERR    BLWA      IFS11     PEMV      ERR.F     SFDEX 
                                        LVL80     CUS.RET   BUFERR    PSL       PEM       ERR.T     IMP.ER
  
  
  
  
                                                  IDENT  FERRS                                                   FERRS       2
                                         FERRS    SECT   (FRONT END ERROR TEXTS.)                                FERRS       3
  
  
  
  
  
                                        *         IN DATA                                                        FERRS       5
                                                  EXT    DATA2,DAT.Z                                             FERRS       6
                                                                                                                 FERRS       7
                                        *         IN DECL                                                        FERRS       8
                                                  EXT    EQS80,LVL80,LVL90,PRMERR,SAVERR                         FERRS       9
                                                                                                                 FERRS      10
                                        *         IN FEC                                                         FERRS      11
                                                  EXT    CUS.RET,FEC.RTN                                         FERRS      12
                                                                                                                 FERRS      13
                                        *         IN HEADER                                                      FERRS      14
                                                  EXT    PPA130                                                  FC5A145     5
                                                                                                                 FERRS      16
                                        *         IN IO                                                          FERRS      17
                                                  EXT    BLWA,BUFERR,LST                                         FERRS      18
                                                                                                                 FERRS      19
                                        *         IN KEY                                                         FERRS      20
                                                  EXT    END23,IFS11                                             FERRS      21
                                                                                                                 FERRS      22
                                        *         IN LABEL                                                       FERRS      23
                                                  EXT    PSL                                                     FERRS      24
                                                                                                                 FERRS      25
                                        *         IN PEM                                                         FERRS      26
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     5
                                                                      FERRS 
  
                                                  EXT    PDM,PEMS,PEMV,PEM                                       FERRS      27
                                                                                                                 FERRS      28
                                        *         IN PUC                                                         FERRS      29
                                                  EXT    ERR.A,ERR.D,ERR.F,ERR.T,ERR.W,SCR                       FERRS      30
                                                                                                                 FERRS      31
                                        *         IN STMTF                                                       FERRS      32
                                                  EXT    SFDEX                                                   FERRS      33
                                                                                                                 FERRS      34
                                        *         IN TYPE                                                        FERRS      35
                                                  EXT    IMP.ER                                                  FERRS      36
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     6
        COMSSYC - NAMES OF SYMBOL CLASS BITS.                         COMSSYC 
  
             0                           COMSSYC  CTEXT  COMSSYC - NAMES OF SYMBOL CLASS BITS.                   COMSSYC     2
                                                                                                                 COMSSYC     3
                                                                                                                 COMSSYC     4
                                        ***              COMSSYC PROVIDES HOLLERITH NAMES OF SYMTAB CLASS BITS.  COMSSYC     5
                                        *                                                                        COMSSYC     6
                                        *         THE NAMES ARE SAVED IN A MICRO STRING AND THEN FED TO THE      COMSSYC     7
                                        *         USERS MACRO IN REVERSE ORDER (LOWEST BIT NUMBER FIRST).        COMSSYC     8
                                        *         THE USER MUST MATERIALIZE THE SAVED DEFINITIONS WITH A         COMSSYC     9
                                        *                "CLASS  HERE"                                           COMSSYC    10
                                        *         INSTRUCTION, AFTER CALLING THIS COMDECK.                       COMSSYC    11
  
  
  
  
                                        ***       CLAS - USER MACRO TO MATERIALIZE NAMES.                        COMSSYC    13
                                        *                                                                        COMSSYC    14
                                        *         CLAS   ADDR,NAME                                               COMSSYC    15
  
  
  
  
                                        **        CL=NAM - MACRO TO NAME SYMBOL CLASS BITS.                      COMSSYC    17
                                        *                                                                        COMSSYC    18
                                        * SYM     CL=NAM NAM                                                     COMSSYC    19
                                        *                                                                        COMSSYC    20
                                        *         ENTRY  SYM = SUFFIX OF (WB.) FOR THIS BIT.                     COMSSYC    21
                                        *                NAM = EXTERNAL NAME, FOR ERROR MESSAGES AND MAP.        COMSSYC    22
                                                                                                                 COMSSYC    23
                                                                                                                 COMSSYC    24
                                                  MACRO  CL=NAM,SYM,NAM                                          COMSSYC    25
                                                  LOCAL  ADDR                                                    COMSSYC    26
                                         CLAS1    MICRO  1,, ADDR-WB.SYM                                         COMSSYC    27
                                        *                                                                        COMSSYC    28
                                         CL=BIT   SET    CL=BIT-1                                                COMSSYC    29
                                           IFC    NE, SYM  ,1                                                    COMSSYC    30
                                           ERRNZ  CL=BIT-WB.SYM_P    ERRLIT OUT OF SYNCH   ["SEQUENCE"]_________ COMSSYC    31
                                        *                                                                        COMSSYC    32
                                         CL=MIC   MICRO  1,,)ADDR,NAM "CL=MIC")                                  COMSSYC    33
                                         CL=NAM   ENDM                                                           COMSSYC    34
                                                                                                                 COMSSYC    35
                                                                                                                 COMSSYC    36
                                  41     CL=BIT   SET    WB.CLASP+WB.CLASL                                       COMSSYC    37
                                         CL=MIC   MICRO                                                          COMSSYC    38
                                                                                                                 COMSSYC    39
                                                                                                                 COMSSYC    40
                                         CLASS    RMT                CALL USER MACRO TO MATERIALIZE NAMES        COMSSYC    41
                                         CL=.1    DUP    WB.CLASL+2                                              COMSSYC    42
                                         CL=N     MICRO  1,, "CL=MIC"                                            COMSSYC    43
                                         CL=L     MICCNT CL=N                                                    COMSSYC    44
                                         CL=MIC   MICRO  CL=L+2,,)"CL=MIC")                                      COMSSYC    45
                                                  CLAS   "CL=N"                                                  COMSSYC    46
                                         CL=.1    ENDD                                                           COMSSYC    47
                                         CLASS    RMT                                                            COMSSYC    48
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     7
        COMSSYC - NAMES OF SYMBOL CLASS BITS.                         ERRLIT
  
                                        ****      ERROR LITERALS FOR CLASS BITS --                               COMSSYC    50
                                        *                                                                        COMSSYC    51
                                        *         NOTE   ANY CHANGES TO THE CLASS BIT DEFINITIONS IN (COMSSYM)   COMSSYC    52
                                        *                MUST ALSO BE REFLECTED IN THE ORDER OF THE FOLLOWING    COMSSYC    53
                                        *                VECTOR.                                                 COMSSYC    54
                                                                                                                 COMSSYC    55
                                                                                                                 COMSSYC    56
                                         SFA      CL=NAM STF-DARG    STATEMENT FUNCTION DUMMY ARGUMENT           FC50326     8
                                         1REF     CL=NAM STRAY       STRAY NAME                                  COMSSYC    58
                                         MAT      CL=NAM MATERIAL    STORAGE REQUIRED                            COMSSYC    59
                                         SAVE     CL=NAM SAVE        DECLARED *SAVE*                             COMSSYC    60
                                         NLST     CL=NAM NAMELIST    NAMELIST GROUP NAME                         COMSSYC    61
                                                                                                                 COMSSYC    62
                                        *         DATR - ATTRIBUTES DURING DECLARATIVES                          COMSSYC    63
                                         LEV      CL=NAM LEVELED     LEVELED -- (WB.LEVN) = LEVEL NUMBER         COMSSYC    64
                                         VDS      CL=NAM TY=INTEGER  MUST BE INTEGER                             COMSSYC    65
                                         TYP      CL=NAM TYPED       WAS EXPLICITLY TYPED                        COMSSYC    66
                                         AGN      CL=NAM ASSIGN      VARIABLE APPEARED IN ASSIGN STATEMENT       FC5A211     8
                                         INTF     CL=NAM INTRINSIC   DECLARED *INTRINSIC*                        COMSSYC    68
                                         DEXT     CL=NAM EXTERNAL    DECLARED *EXTERNAL*                         COMSSYC    69
                                         GENF     CL=NAM GENERIC     GENERIC FUNCTION NAME                       COMSSYC    70
                                         LDO      CL=NAM LOAD-ONLY   LOAD-ONLY VARIABLE                (CCG DAP) COMSSYC    71
                                         BMEM     CL=NAM EQUIV-BASE  BASE MEMBER OF AN EQUIVALENCE CLASS         COMSSYC    72
                                         LOCF     CL=NAM LOCF        IRREDUCIBLE REFS                  (CCG DAP) COMSSYC    73
                                                                                                                 COMSSYC    74
                                        * CCGV    CL=NAM             ORDERED FIELD                     (CCG DAP) COMSSYC    75
                                        *         REDEF  CCGV                                                    COMSSYC    76
                                         LCM      CL=NAM "LCM"       RESIDES IN LARGE CORE                       COMSSYC    77
                                         FP       CL=NAM DUMMY-ARG   IS A FORMAL PARAMETER                       COMSSYC    78
                                         COM      CL=NAM COMMON      IS IN A /COMMON/ BLOCK                      COMSSYC    79
                                         EXT      CL=NAM EXTERNAL.   EXTERNAL NAME                               FC5A255     5
                                         ENT      CL=NAM ENTRY                                                   COMSSYC    81
                                                                                                                 COMSSYC    82
                                         FUN      CL=NAM FUNCTION    SEE (WC.FUNT)                               COMSSYC    83
                                         SUB      CL=NAM SUBROUTINE                                              COMSSYC    84
                                         ARY      CL=NAM ARRAY                                                   COMSSYC    85
                                         EQV      CL=NAM EQUIV.      NON-BASE MEMBER                             COMSSYC    86
                                         PARM     CL=NAM PARAMETER   NAME IS A *PARAMETER*                       COMSSYC    87
                                         DEF      CL=NAM DEFINED     (VAR) = GETS STORED INTO                    COMSSYC    88
                                                                     (SUB, FUN) = ARG COUNT DETERMINED           COMSSYC    89
                                         NVAR     CL=NAM NOT-VAR     NOT A VARIABLE                              COMSSYC    90
                                         VAR      CL=NAM VARIABLE    IS A VARIABLE                               COMSSYC    91
                                         CGS      CL=NAM -INTERNAL-  COMPILER GENERATED SYMBOL                   COMSSYC    92
                                         LAB      CL=NAM LABEL       IS A STATEMENT LABEL                        COMSSYC    93
                                        ****                                                                     COMSSYC    94
                                                  PURGMAC CL=NAM                                                 COMSSYC    95
                                                                                                                 COMSSYC    96
                                         COMSSYC  ENDX                                                           COMSSYC    97
                                                                                                                 FERRS      39
                                         CLAS     MACRO  ADDR,NAME         INTERFACE TO COMSSYC                  FERRS      40
                                         S        MICRO  1,,)NAME)                                               FERRS      41
                                                  ERRMIC S                                                       FERRS      42
                                         ADDR     LIT    10H"S""A"                                               FERRS      43
                                         CLAS     ENDM                                                           FERRS      44
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     8
        COMAERR - ERROR MACROS. 
  
             0                                    CTEXT  COMAERR - ERROR MACROS.                                 COMAERR     2
  
  
  
  
                                        ***       DIAGNOSTICS SECTION OF COMPILER.                               COMAERR     4
                                        *                                                                        COMAERR     5
                                        *         GENERAL DISCUSSION OF DIAGNOSTICS --                           COMAERR     6
                                        *                                                                        COMAERR     7
                                        *         ALL DIAGNOSTICS FOR SOURCE FORTRAN MUST BE CONTAINED WITHIN    COMAERR     8
                                        *         THIS SECTION OF THE COMPILER. WHEN A NEW DIAGNOSTIC IS TO BE   COMAERR     9
                                        *         ADDED THE FOLLOWING GENERAL RULES MUST BE ADHERED TO --        COMAERR    10
                                        *         1.  ALL DIAGNOSTICS MUST START WITH  E.XXX                     COMAERR    11
                                        *                                                                        COMAERR    12
                                        *             WHERE XXX HAS SOME MEANING AS TO THE SECTION WHERE THE     COMAERR    13
                                        *             ERROR WAS DETECTED.                                        COMAERR    14
                                        *                                                                        COMAERR    15
                                        *         2.  ANY DIAGNOSTIC THAT USES A FILL. AND DOES NOT PRESET IT TO COMAERR    16
                                        *             INTERNAL FORM MUST HAVE EITHER *S* OR *V* AS THE SECOND    COMAERR    17
                                        *             CHARACTER SPECIFIED IN THE DIAGNOSTIC DEFINITION.          COMAERR    18
                                        *                *S* FORM = FILL. IS ALREADY IN 0L FORM.                 COMAERR    19
                                        *                *V* FORM = FILL. SHOULD BE FORMED FROM *SB* STARTING    COMAERR    20
                                        *                           AT B4.                                       COMAERR    21
                                        *                                                                        COMAERR    22
                                        *         3.  ALL *ANSI* DIAGNOSTICS SHOULD USE *ANSI* MACRO TO OUTPUT   COMAERR    23
                                        *             GIVEN ANSI ERROR. (THIS WILL IMPROVE THE SPEED OF          COMAERR    24
                                        *             COMPILATION WHEN *ANSI* ERRORS ARE NOT REQUESTED.)         COMAERR    25
                                        *                                                                        COMAERR    26
                                        *         4.  ALL COLON/SEMICOLON BREAKS IN DIAGNOSTICS MUST USE *--*    COMAERR    27
                                        *             TO REPRESENT BREAK.                                        COMAERR    28
                                        *                                                                        COMAERR    29
                                        *         5.  DIAGNOSTICS MAY BE ANY OF THE FOLLOWING TYPES              COMAERR    30
                                        *            (ONLY THE FIRST CHARACTER OF TYPE IS USED...)               COMAERR    31
                                        *                                                                        COMAERR    32
                                        *            A - ANSI.  USAGE DOES NOT CONFORM TO AMERICAN NATIONAL      COMAERR    33
                                        *                STANDARD FORTRAN, X3J3/90-1977.                         COMAERR    34
                                        *                                                                        COMAERR    35
                                        *            C - CONTINUATION.  THIS IS A CONTINUATION OF A PREVIOUS     COMAERR    36
                                        *                DIAGNOSTIC.  IT WILL GET PRINTED OR NOT ACCORDING TO    COMAERR    37
                                        *                WHETHER THE PREVIOUS ERROR WAS SELECTED.                COMAERR    38
                                                                                                                 COMAERR    39
                                        *            D - DEBUG.  INFORMATIVE FOR MAINTENANCE.  TEST MODE ONLY.   COMAERR    40
                                        *                                                                        COMAERR    41
                                        *            F - FATAL.  FATAL TO EXECUATION.  INHIBITS BINARY OUTPUT.   COMAERR    42
                                        *                                                                        COMAERR    43
                                        *            K - CATASTROPHIC.  FATAL TO COMPILATION.  RESUME WITH NEXT  COMAERR    44
                                        *                PROGRAM UNIT.                                           COMAERR    45
                                        *                                                                        COMAERR    46
                                        *            T - TRIVIAL.  NO ACTUAL VIOLATION OF THE LANGUAGE, BUT THE  COMAERR    47
                                        *                STATEMENT SO FLAGGED MAY RESULT IN NO ACTION.  (E.G.,   COMAERR    48
                                        *                NULL TRANSFERS)                                         COMAERR    49
                                        *                                                                        COMAERR    50
                                        *            W - WARNING.  A MORE SEVERE ERROR THAN TRIVIAL.  LANGUAGE   COMAERR    51
                                        *                MAY HAVE BEEN VIOLATED, BUT COMPILER COULD FIGURE OUT   COMAERR    52
                                        *                WHAT WAS INTENDED.                                      COMAERR    53
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE     9
        COMAERR - ERROR MACROS.                                       LIMITS
  
                                        ***       ------    LIMITATIONS ON DIAGNOSTICS    ------                 COMAERR    55
                                        *                                                                        COMAERR    56
                                        *                                                                        COMAERR    57
                                        *         1.  NO DIAGNOSTIC MAY EXCEED 16 WORDS, NOR MAY IT BE TOO LONG  COMAERR    58
                                        *             TO FIT ON ONE TTY LINE (UP TO 72 CHARACTERS MAY BE LISTED) COMAERR    59
                                        *                                                                        COMAERR    60
                                        *         2.  NO DIAGNOSTIC MAY USE A COLON.                             COMAERR    61
                                        *                                                                        COMAERR    62
                                        *         3.  NUMBER OF WORDS IN DICTIONARY MUST NOT EXCEED              COMAERR    63
                                        *             512 WORDS.                                                 COMAERR    64
                                        *                                                                        COMAERR    65
                                        *         4.  NO DIAGNOSTIC MAY USE A SPECIAL CHARACTER > 65B DPC AS THE COMAERR    66
                                        *             LAST CHARACTER IN A 10H WORD.                              COMAERR    67
                                        *                                                                        COMAERR    68
                                        *         5.  SPECIAL CARE SHOULD BE USED WHEN A WORD IN THE ERROR       COMAERR    69
                                        *             MESSAGE CONTAINS EITHER A *(* OR *)*.                      COMAERR    70
  
  
  
  
                                        **               THE N-WORD FORMAT IS --                                 COMAERR    72
                                        *                                                                        COMAERR    73
                                        **T  FIRST    9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,5/ERTYP,1/M,18/ERXIT       COMAERR    74
                                        **T  REST     9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,9/ERWD5,9/ERWD6,5/0,1/M    COMAERR    75
                                        *                                                                        COMAERR    76
                                        *         ERWD(I) = DICTIONARY ORDINAL OF THE TEXT WORD.  A ZERO ORDINAL COMAERR    77
                                        *                INDICATES THE END OF THE MESSAGE.                       COMAERR    78
                                        *         ERTYPE = ORDINAL OF THE ERROR-TYPE-SELECTION SWITCH.  DEFINED  COMAERR    79
                                        *                BY THE *ERRTYP* MACRO, AND LINKED TO BY *ERROR* MACRO.  COMAERR    80
                                        *                *PEM* WILL LIST THIS ERROR IF THE CELL POINTED TO BY    COMAERR    81
                                        *                THE INDICATED SWITCH IS NEGATIVE.                       COMAERR    82
                                        *         M    = IF SET, MORE SKELETON WORDS FOLLOW.                     COMAERR    83
                                        *                IF CLEAR, THE MESSAGE IS OVER.                          COMAERR    84
                                        *         ERXIT = IF POSITIVE, ADDRESS TO RETURN TO AFTER PROCESSING.    COMAERR    85
                                        *                 IF NEGATIVE, EXIT IS TO *PWE1*, AND (ERXIT)-4S15 IS    COMAERR    86
                                        *                THE SPECIAL FORMATTING ADDRESS.                         COMAERR    87
                                        *                                                                        COMAERR    88
                                        *         THE LAST CHARACTER OF EACH WORD IN THE DICTIONARY INDICATES    COMAERR    89
                                        *         HOW MANY CHARACTERS ARE IN THAT WORD.  THIS IS DONE SO *PEM*   COMAERR    90
                                        *         DOES NOT HAVE TO LOOP ON EACH CHARACTER.  IF THE WORD CONTAINS COMAERR    91
                                        *         TEN CHARACTERS, THE LAST CHARACTER IS UNMODIFIED.  IF THE WORD COMAERR    92
                                        *         CONTAINS FEWER THAN TEN CHARACTERS, THE LAST CHARACTER IS SET  COMAERR    93
                                        *         = DT.BIAS + (LENGTH OF WORD).  THE *ERROR* AND *ERRLIT* MACROS COMAERR    94
                                        *         CREATE SUCH WORDS, AND PUT THEM IN THE LITERAL POOL.  THUS,    COMAERR    95
                                        *         THE ASSEMBLER ELIMINATES DUPLICATES AUTOMATICALLY.             COMAERR    96
                                        *                                                                        COMAERR    97
                                        *         IF THE ERROR MESSAGE WORD IS .GT. 10 CHARACTERS THE DICTIONARY COMAERR    98
                                        *         WORD WILL CONTAIN 9 CHARACTERS FOLLOWED BY A COLON AND THE     COMAERR    99
                                        *         MESSAGE WORD WILL BE CONTINUED INTO THE NEXT DICTIONARY WORD.  COMAERR   100
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    10
        COMAERR - ERROR MACROS.                                       ERROR 
  
                                        **        ERROR - MACRO TO DEFINE ERROR MESSAGES.                        COMAERR   102
                                        *                                                                        COMAERR   103
                                        *         ALL ERROR MESSAGES MUST BE DEFINED BY THIS MACRO.              COMAERR   104
                                        *         TRANSLATES THE DIAGNOSTIC TEXT INTO THE FORM DISCUSSED ABOVE,  COMAERR   105
                                        *         WHILE GENERATING A DICTIONARY OF LITERALS.                     COMAERR   106
                                        *                                                                        COMAERR   107
                                        *                                                                        COMAERR   108
                                        * LOC     ERROR  TYPE,EXIT,(TEXT)                                        COMAERR   109
                                        *                                                                        COMAERR   110
                                        *         TYPE   =  ONE OR TWO CHARACTER ERROR-TYPE INDICATOR.           COMAERR   111
                                        *                1.  FIRST CHARACTER DESCRIBES THE SEVERITY OF THE       COMAERR   112
                                        *                    ERROR -- VALID CHARACTERS ARE DEFINED BY *ERRTYP*   COMAERR   113
                                        *                    MACRO, Q.V.                                         COMAERR   114
                                        *                2.  SECOND CHARACTER SELECTS SPECIAL FILL. FORMATTING   COMAERR   115
                                        *                    BY THE ERROR PROCESSOR.  SEE *PEM* FOR DETAILS.     COMAERR   116
                                        *                                                                        COMAERR   117
                                        *         EXIT   =  ADDRESS TO RETURN TO AFTER PRINTING THE DIAGNOSTIC.  COMAERR   118
                                        *                IF IT IS "*" (STAR, 46B DPC), THEN CONTROL RETURNS TO   COMAERR   119
                                        *                CALLER, AND ERROR MUST BE REFERENCED BY ANSI, FATAL,    COMAERR   120
                                        *                NOTE, OR WARN MACRO.                                    COMAERR   121
                                        *                OTHERWISE, IT IS SIMPLY THE ADDRESS TO RETURN TO AFTER  COMAERR   122
                                        *                PROCESSING THE ERROR.                                   COMAERR   123
                                        *                                                                        COMAERR   124
                                        *         TEXT   =  FROM ONE TO 16 WORDS OF TEXT.  WORDS ARE SEPARATED   COMAERR   125
                                        *                BY BLANKS.  NO WORD MAY CONTAIN A NEGATION (^ 76B), OR  COMAERR   126
                                        *                SEMI-COLON (; 77B).  THE TENTH CHARACTER OF A WORD MAY  COMAERR   127
                                        *                NOT BE A CHARACTER WITH DPC .GE.65B NOR MAY IT BE A     COMAERR   128
                                        *                COLON.                                                  COMAERR   129
                                                                                                                 COMAERR   130
                                                                                                                 COMAERR   131
                                                  MACRO  ERROR,LOC,TYPE,EXIT,MSG                                 COMAERR   132
                                        *                                                                        COMAERR   133
                                        *                DETERMINE (A)  SPECIAL FORMATTING, AND (B) SEVERITY.    COMAERR   134
                                        *                                                                        COMAERR   135
                                         A        MICRO  2,1,/TYPE/                                              COMAERR   136
                                         B        MICRO  1,1, TYPE                                               COMAERR   137
                                        *                                                                        COMAERR   138
                                        *                SET UP (LOC) CALLING STYLE, AND (X) EXIT ADDRESS.       COMAERR   139
                                        *                                                                        COMAERR   140
                                                  ENTRY  LOC                                                     COMAERR   141
                                        .3        IFC    EQ, EXIT *                                              COMAERR   142
                                         LOC      EQU    DT.NEXT                                                 COMAERR   143
                                         X        MICRO  1,, =XPEM"A"+4S15                                       COMAERR   144
                                        .3        ELSE                                                           COMAERR   145
                                         LOC      SB7    DT.NEXT                                                 COMAERR   146
                                                  EQ     =XPEM"A"                                                COMAERR   147
                                         X        MICRO  1,, =X_EXIT                                             COMAERR   148
                                        .3        ENDIF                                                          COMAERR   149
                                        *                                                                        COMAERR   150
                                                  USE    FORMAT.                                                 COMAERR   151
                                         T        MICRO  1,,^_MSG_^                                              COMAERR   152
                                        *                                                                        COMAERR   153
                                        *                DUP THRU THE MESSAGE FOR EACH WORD.                     COMAERR   154
                                        *                                                                        COMAERR   155
                                         L        SET    0                                                       COMAERR   156
                                         U        MICRO  1,,                                                     COMAERR   157
                                        .1        DUP    16                                                      COMAERR   158
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    11
        COMAERR - ERROR MACROS.                                       ERROR 
  
                                         L        SET    L+1                                                     COMAERR   159
                                         .2       IFC    NE,^^"T"^                                               COMAERR   160
                                                  IFC    EQ,/"U"//,2                                             COMAERR   161
                                         S        MICRO  1,, "T"                                                 COMAERR   162
                                                  SKIP   2                                                       COMAERR   163
                                         S        MICRO  1,, "U"                                                 COMAERR   164
                                         U        MICRO  1,,                                                     COMAERR   165
                                                  ERRMIC S                                                       COMAERR   166
                                                  IFEQ   L,5,1                                                   COMAERR   167
                                                  VFD    L=ERTYPE/=XERR."B",1/1,L=ERXIT/"X"                      COMAERR   168
                                                  IFEQ   L,11,1                                                  COMAERR   169
                                                  VFD    L=ERMORE/0,1/1                                          COMAERR   170
                                                  VFD    L=ERWORD/1-DICT+=10H"S""A"                              COMAERR   171
                                         .2       ELSE   1                                                       COMAERR   172
                                                  STOPDUP                                                        COMAERR   173
                                        .1        ENDD                                                           COMAERR   174
                                        .4        IFC    NE,^^"T"^                                               COMAERR   175
                                         4        ERR    LOC  -- TOO MANY WORDS IN TEXT -- TRUNCATED AFTER       COMAERR   176
                                        ,                            ("T")                                       COMAERR   177
                                        .4        ENDIF                                                          COMAERR   178
                                        *                                                                        COMAERR   179
                                        *                WRAP UP, AND BIND OFF THE SKELETON.                     COMAERR   180
                                        *                                                                        COMAERR   181
                                        .6        IFEQ   *,DT.NEXT                                               COMAERR   182
                                                  POS    P=ERTYPE                                                COMAERR   183
                                                  VFD    L=ERTYPE/=XERR."B",1/0,L=ERXIT/"X"                      COMAERR   184
                                        .6        ELSE   1                                                       COMAERR   185
                                                  POS    0                                                       COMAERR   186
                                         DT.NEXT  SET    *                                                       COMAERR   187
                                                  USE    *                                                       COMAERR   188
                                                  ENDM                                                           COMAERR   189
                                                                                                                 COMAERR   190
                                                                                                                 COMAERR   191
                                         ERRMIC   MACRO  S                                                       COMAERR   192
                                         K        MICCNT S                                                       COMAERR   193
                                                  IFGT   K,10,5                                                  COMAERR   194
                                         U        MICRO  10,, "S"                                                COMAERR   195
                                         S        MICRO  1,9, "S"                                                COMAERR   196
                                         A        MICRO  1,1,/:/                                                 COMAERR   197
                                         K        SET    8                                                       COMAERR   198
                                                  SKIP   3                                                       COMAERR   199
                                                  IFLT   K,9,1                                                   COMAERR   200
                                         S        MICRO  1,9,^"S"        ^                                       COMAERR   201
                                         A        MICRO  K,1,/!&'?<>@\^ /                                        COMAERR   202
                                         T        MICRO  K+2,,^"T"^                                              COMAERR   203
                                         ERRMIC   ENDM                                                           COMAERR   204
                                                                                                                 COMAERR   205
                                                                                                                 COMAERR   206
                                  65     DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC            COMAERR   207
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    12
        COMAERR - ERROR MACROS.                                       ERRLIT
  
                                        **        ERRLIT - MACRO TO GENERATE A LITERAL OF PROPER FORM FOR ERROR  COMAERR   209
                                        *                MESSAGE PROCESSOR.                                      COMAERR   210
                                        *                                                                        COMAERR   211
                                        *         ERRLIT WORD                                                    COMAERR   212
                                                                                                                 COMAERR   213
                                                                                                                 COMAERR   214
                                                  MACRO  ERRLIT,LOC,WORD                                         COMAERR   215
                                         S        MICRO  1,,^_WORD_^                                             COMAERR   216
                                                  ERRMIC S                                                       COMAERR   217
                                         LOC      LIT    10H"S""A"                                               COMAERR   218
                                                  IFC    NE,/LOC//,1                                             COMAERR   219
                                                  ENTRY  LOC                                                     COMAERR   220
                                         ERRLIT   ENDM                                                           COMAERR   221
                                                                                                                 COMAERR   222
                                                                                                                 COMAERR   223
                                                  USE    FORMAT.                                                 COMAERR   224
                                1224 +   DT.NEXT  SET    *                                                       COMAERR   225
                                                  USE    *                                                       COMAERR   226
                                                  NOREF  DT.NEXT                                                 COMAERR   227
  
  
  
  
                                        **        DICT - THESE MUST BE THE FIRST LITERALS IN THE (1,0) OVERLAY.  COMAERR   229
                                        *         THESE LITERALS ARE USED BY ERROR PROCESSING ROUTINES.          COMAERR   230
                                                                                                                 COMAERR   231
                                         T        MICRO  1,,                                                     COMAERR   232
                                                                                                                 COMAERR   233
                                                  ENTRY  DICT,FILL.,FILL.2,FILL.3,L.FILL                         COMAERR   234
                                 245 +   DICT     LIT    1H          BASE ADDRESS OF LITERALS                    COMAERR   235
                                                  NOREF  DICT                                                    COMAERR   236
                                                                                                                 COMAERR   237
                                         FILL.    ERRLIT FILL.       THESE ARE FOR MESSAGE FILL-INS              COMAERR   238
                                         FILL.2   ERRLIT FILL.2                                                  COMAERR   239
                                         FILL.3   ERRLIT FILL.3                                                  COMAERR   240
                                   3     L.FILL   EQU    FILL.3-FILL.+1 LENGTH OF FILL. REGION FOR PEMS.         COMAERR   241
                                         COMAERR  ENDX                                                           COMAERR   242
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    13
        COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR
  
             0                                    CTEXT  COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR        COMSERR     2
  
  
  
  
                                        **        DISPLAY CODE VALUES OF ASSEMBLY CONSTANTS.                     COMSERR     4
                                                                                                                 COMSERR     5
                                                                                                                 COMSERR     6
                                  23     ANS.CONT DECMIC ANS.CONT    MAX CONTINUATION LINES ALLOWED BY ANSI      COMSERR     7
                                2003     L.IOBUF6 OCTMIC L.IOBUF6    DEFAULT IO BUFFER LENGTH                    COMSERR     8
                                 764     MAX.BLK  DECMIC MAX.BLK     MAX COMMON BLOCKS ALLOWED                   COMSERR     9
                              360000     MAX.BUFL OCTMIC MAX.BUFL    MAX IO BUFFER LENGTH                        COMSERR    10
                                   7     MAX.DIM  DECMIC MAX.DIM     MAX DIMENSIONS ALLOWED                      COMSERR    11
                                 764     MAX.SARG DECMIC MAX.SARG    MAX SUBPROGRAM ARGUMENTS                    COMSERR    12
                                  61     MAX.PARG DECMIC MAX.PARG    MAX MAIN PROGRAM ARGUMENTS                  COMSERR    13
                                   7     MAX.LFN  DECMIC MAX.LFN     MAX CHARACTERS IN LOGICAL FILE NAME         COMSERR    14
                              377777     MAX.RECL OCTMIC MAX.RECL    MAX RECORD LENGTH                           FC5A145     4
                                 211     NOR.RECL DECMIC NOR.RECL    NORMAL RECORD LENGTH                        COMSERR    17
                                         MAX.CL   MICRO  1,, 2**15-1 MAX CHARACTER LENGTH                        COMSERR    18
                                   0              ERRNZ  1S15-1-MAX.CL     MAX.CL OUT OF SYNCH WITH TEXT         COMSERR    19
                                         MAX.SPAN MICRO  1,, 2**23-1 MAX DIMENSION SPAN                          COMSERR    20
                                   0              ERRNZ  23-MAX.SPAN                                             COMSERR    21
                              377777     MAX.SPCM DECMIC MAX.SPCM                                                COMSERR    22
                             3777770     MAX.SPLC DECMIC MAX.SPLC                                                COMSERR    23
  
  
  
  
                                        ****      ERRSKEL - ERROR MESSAGE SKELETON TABLE FORMAT.                 COMSERR    25
                                        *                                                                        COMSERR    26
                                        *         IN ORDER TO REDUCE CORE REQUIREMENTS AND STILL PRINT FULL-LINE COMSERR    27
                                        *         NARRATIVE DIAGNOSTICS BENEATH THE STATEMENT, ERROR MESSAGE     COMSERR    28
                                        *         TEXT IS KEPT IN A SKELETAL FORM, WHEREIN EACH WORD IS          COMSERR    29
                                        *         REPRESENTED BY AN ORDINAL INTO A DICTIONARY.                   COMSERR    30
                                                                                                                 COMSERR    31
                                                                                                                 COMSERR    32
                                   4     N.ER1ST  EQU    4                                                       COMSERR    33
                                   6     N.ERREST EQU    6                                                       COMSERR    34
                                                  DESCRIBE ER.,60                                                COMSERR    35
      L     23  00000000000076000000     TYP      DEFINE 5,23        ERROR TYPE INDICATOR                        COMSERR    36
      L      1  00000000000001777776     XIT      DEFINE 18          EXIT ADDRESS                                COMSERR    37
                                  11     ER.WORDL EQU    9           LENGTH OF EACH ORDINAL BYTE                 COMSERR    38
      L      5  00000000000000000040     MORE     DEFINE 1,5         CONTINUATION FLAG                           COMSERR    39
                                        ****                                                                     COMSERR    40
                                  11     L=ERWORD EQU    ER.WORDL                                                COMSERR    41
                                   5     L=ERTYPE EQU    ER.TYPL                                                 COMSERR    42
                                  30     P=ERTYPE EQU    ER.TYPP+ER.TYPL                                         COMSERR    43
                                   5     L=ERMORE EQU    ER.TYPL                                                 COMSERR    44
                                  22     L=ERXIT  EQU    ER.XITL                                                 COMSERR    45
                                                  NOREF  L=ERWORD,L=ERTYPE,P=ERTYPE,L=ERMORE,L=ERXIT             COMSERR    46
                                  65     DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC            COMSERR    47
                                         COMSERR  ENDX                                                           COMSERR    48
                                         CLASS    HERE               (NAMES OF SYMBOL CLASSES)                   FERRS      47
                                         CLASS    EQUENT "CLAS1"P                                                FERRS      48
                                                                                                                 FERRS      49
                                         DO.DPC   ERRLIT CONTROL     NAMES OF DO PARAMETERS                      FERRS      50
                                                  ERRLIT INITIAL                                                 FERRS      51
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    14
        COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR              ERRSKEL 
  
                                                  ERRLIT LIMIT                                                   FERRS      52
                                                  ERRLIT INCREMENT                                               FERRS      53
                                                                                                                 FERRS      54
                                         MOD.DPC  ERRLIT BOOLEAN     NAMES OF TYPES                              FERRS      55
                                                  ERRLIT LOGICAL                                                 FERRS      56
                                                  ERRLIT INTEGER                                                 FERRS      57
                                                  ERRLIT REAL                                                    FERRS      58
                                                  ERRLIT DOUBLE                                                  FERRS      59
                                                  ERRLIT COMPLEX                                                 FERRS      60
                                                  ERRLIT CHARACTER                                               FERRS      61
                                         .T       IFEQ   TEST,ON,1                                               FERRS      62
                                                  ERRLIT MODE=7                                                  FERRS      63
                                                                                                                 FERRS      64
                                         ERL=XPR  ERRLIT EXPRESSION                                              FERRS      65
                                         ERL=CON  ERRLIT CONSTANT                                                FERRS      66
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    15
        ERROR MESSAGE TEXTS                                           GENERAL 
  
                                        **        GENERAL DIAGNOSTICS.  REFERENCED BY MORE THAN ONE PROCESSOR    FERRS      69
                                        *         USING EQUATED SYMBOLS.                                         FERRS      70
                                                                                                                 FERRS      71
                                                                                                                 FERRS      72
             0  6170001224 +             E.GE     ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL FERRS      73
                                        ,.)                                                                      FERRS      74
          1226  060                      E.GE1    ERROR  FV,*,(EXPECTED COMMA -- FOUND FILL.)                    FC5A126     6
             1  6170001230 +             E.GE2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED VARIABLE AT FI FERRS      76
                                        ,LL.)                                                                    FERRS      77
             2  6170001232 +             E.GE3    ERROR  FV,FEC.RTN,(EXPECTED COMMA -- FOUND FILL.)              FERRS      78
          1234  060                      E.GE4    ERROR  WV,*,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)       FERRS      79
          1236  074                      E.GE5    ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS FILL.2 FC5A184    27
                                        ,)                                                                       FC5A184    28
             3  6170001240 +             E.GE6    ERROR  FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.)             FC5A278     5
  
  
  
  
                                        **        ASSORTED ANSI DIAGNOSTICS.                                     FC5A126     7
                                                                                                                 FERRS      82
                                                                                                                 FERRS      83
          1242  101                      E.ANS    ERROR  A,*,(STATEMENT IS NOT DEFINED IN ANSI)                  FERRS      85
          1244  106                      E.ANS1   ERROR  A,*,(SEQUENCE MODE IS NON- ANSI)                        FC5A335    11
          1246  111                      E.ANS2   ERROR  AS,*,(7 CHARACTER SYMBOL FILL. IS NON- ANSI)            FERRS      86
             4  6170001250 +             E.ANS3   ERROR  A,PSL,(RETURN IN MAIN PROGRAM -- ACTS AS END)           FERRS      87
          1252  053                      E.ANS4   ERROR  A,*,(DOUBLE PRECISION AND COMPLEX OPERANDS ARE MIXED)   FC5A262    16
          1254  016                      E.ANS5   ERROR  A,*,(FUNCTION REFERENCE IN CONSTANT EXPRESSION)         FC5A184    29
          1256  021                      E.ANS6   ERROR  A,*,(COMMON CAN BE PRESET IN BLOCK DATA ONLY)           FC5A184    30
  
  
  
  
                                        **        ARGUMENT PROCESSOR.                                            FERRS      89
                                                                                                                 FERRS      90
                                                                                                                 FERRS      91
          1260  132                      E.AG00   ERROR  F,*,(ONLY "MAX.SARG" DUMMY ARGUMENTS ARE PERMITTED -- E FERRS      92
                                        ,XCESS IGNORED)                                                          FERRS      93
          1262  016                      E.AG01   ERROR  F,*,(FUNCTION REQUIRES EXPLICIT NULL ARGUMENT LIST)     FERRS      94
                                         E.AG02   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS      95
          1264  145                      E.AG03   ERROR  FS,*,(MULTIPLE OCCURANCES OF DUMMY ARGUMENT FILL.)      FERRS      96
          1266  134                      E.AG04   ERROR  FV,*,(DUMMY ARGUMENT FILL. MUST BEGIN WITH LETTER OR __ FERRS      97
                                        ,STAR)                                                                   FERRS      98
          1270  060                      E.AG07   ERROR  FV,*,(EXPECTED LEFT PAREN FOR AN ARGUMENT LIST FOUND __ FERRS      99
                                        ,FILL.)                                                                  FERRS     100
             5  6170001272 +             E.AG08   ERROR  FV,PSL,(EXPECTED COMMA OR RIGHT PAREN -- FOUND FILL.)   FERRS     101
          1274  154                      E.AG11   ERROR  FV,*,(STAR DUMMY ARGUMENT ILLEGAL IN FUNCTION)          FERRS     102
          1276  002                      E.AG12   ERROR  FS,*,(FILL. PREVIOUSLY USED IN EXECUTABLE OR CONFLICTIN FC5A192    35
                                        ,G DECLARATIVE)                                                          FC5A192    36
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    16
        ERROR MESSAGE TEXTS                                           ASSIGN
  
                                        **        ASSIGN STATEMENT.                                              FERRS     105
                                                                                                                 FERRS     106
                                                                                                                 FERRS     107
                                         E.AS1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     108
          1300  166                      E.AS2    ERROR  WS,*,(*TO* ASSUMED FOR FILL.)                           FERRS     109
          1301  007                      E.AS3    ERROR  WS,*,(VARIABLE FILL. NOT INTEGER)                       FERRS     110
             6  6170001302 +             E.AS4    ERROR  FV,PSL,(STATEMENT LABEL FILL. MUST BE NUMERIC)          FERRS     111
          1304  064                      E.AS5    ERROR  W,*,(COMMA AFTER STATEMENT LABEL IGNORED)               FERRS     112
          1306  172                      E.AS6    ERROR  FS,*,(OBJECT OF GO TO FILL. DID NOT APPEAR IN ASSIGN ST FC5A184    31
                                        ,ATEMENT)                                                                FC5A184    32
                                         E.AS7    EQUENT E.GE5             FS,*,(USEAGE CONFLICT ...)            FC5A184    33
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    17
        ERROR MESSAGE TEXTS                                           ARITH 
  
                                        **        ARITH PROCESSOR.                                               FERRS     114
                                                                                                                 FERRS     115
                                                                                                                 FERRS     116
          1311  177                      E.AT01   ERROR  F,*,(OPERAND HAS MODE NOT ALLOWED IN THIS CONTEXT)      FERRS     117
          1313  160                      E.AT02   ERROR  FS,*,(ILLEGAL USE OF OPERATOR / OPERAND -- FILL. FILL.2 FERRS     118
                                        ,)                                                                       FERRS     119
          1315  207                      E.AT03   ERROR  W,*,(HOLLERITH CONSTANT EXCEEDS 10 CHARACTERS)          FERRS     120
          1317  002                      E.AT04   ERROR  FS,*,(FILL. MUST BE A DUMMY-ARG)                        FERRS     121
          1321  214                      E.AT05   ERROR  F,*,(INVALID FORM INVOLVING THE USE OF A COMMA OR REDUN FC5A374     5
                                        ,DANT PARENS)                                                            FC5A374     6
          1324  160                      E.AT06   ERROR  F,*,(ILLEGAL USE OF ASSIGNMENT OPERATOR)                FERRS     123
          1326  223                      E.AT07   ERROR  A,*,(MASK EXPRESSION NON- ANSI)                         FERRS     124
          1327  207                      E.AT08   ERROR  A,*,(HOLLERITH CONSTANT NON- ANSI)                      FERRS     125
          1330  145                      E.AT09   ERROR  A,*,(MULTIPLE ASSIGNMENT IS NON- ANSI)                  FERRS     126
          1332  002                      E.AT10   ERROR  FV,*,(FILL. ILLEGAL FIRST ELEMENT OF EXPRESSION)        FC5A262    17
          1334  226                      E.AT11   ERROR  W,*,(TARGET / SOURCE OVERLAP IN CHARACTER ASSIGNMENT)   FC50189     9
          1336  055                      E.AT13   ERROR  F,*,(CHARACTER AND OTHER TYPE OPERANDS MAY NOT BE MIXED FERRS     128
                                        ,)                                                                       FERRS     129
          1340  055                      E.AT14   ERROR  FS,*,(CHARACTER OPERAND FILL. USED WITH OPERATOR FILL.2 FERRS     130
                                        ,)                                                                       FERRS     131
          1342  177                      E.AT15   ERROR  F,*,(OPERAND OF // OPERATOR MUST BE TYPE CHARACTER)     FERRS     132
          1344  235                      E.AT16   ERROR  FS,*,(SUBSTRING ILLEGAL FOR OPERAND FILL.)              FERRS     133
          1346  235                      E.AT17   ERROR  A,*,(SUBSTRING EXPRESSION NOT INTEGER)                  FC5A385     6
          1347  235                      E.AT18   ERROR  FS,*,(SUBSTRING ILLEGAL FOR PARAMETER FILL.)            FERRS     135
          1351  003                      E.AT19   ERROR  FS,*,(FILL.2 OPERAND CANNOT BE CONVERTED TO TYPE FILL.3 FERRS     136
                                        ,)                                                                       FERRS     137
          1353  160                      E.AT20   ERROR  FS,*,(ILLEGAL USE OF PARAMETER FILL.)                   FC5A111     6
          1355  205                      E.AT21   ERROR  A,*,(OPERATOR .XOR. NOT DEFINED IN ANSI)                FC5A471     6
  
  
  
  
                                        **        CALL STATEMENTS.                                               FERRS     139
                                                                                                                 FERRS     140
                                                                                                                 FERRS     141
                                         E.CL1    EQUENT E.AG07      EXPECTED ARGUMENT LIST LEFT PAREN           FERRS     142
             7  6170001357 +             E.CL2    ERROR  F,PSL,(CALL STATEMENT MISSING ROUTINE NAME)             FERRS     143
          1361  016                      E.CL3    ERROR  WS,*,(FUNCTION FILL. REFERENCE AS SUBROUTINE)           FERRS     144
          1363  015                      E.CL4    ERROR  WS,*,(SUBROUTINE FILL. APPEARED IN TYPE DECLARATION)    FC5A338    10
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    18
        ERROR MESSAGE TEXTS                                           COMMON
  
                                        **        COMMON STATEMENT.                                              FERRS     146
                                                                                                                 FERRS     147
                                                                                                                 FERRS     148
            10  6170001365 +             E.CM     ERROR  F,FEC.RTN,(SYNTAX ERROR IN BLOCK NAME)                  FERRS     149
            11  6170001367 +             E.CM1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED BLOCK NAME)     FERRS     150
            12  6170001371 +             E.CM2    ERROR  F,FEC.RTN,(ONLY "MAX.BLK" COMMON BLOCK ARE PERMITTED)   FERRS     151
            13  6170001373 +             E.CM3    ERROR  FV,FEC.RTN,(EXPECTED COMMA OR SLASH FOUND FILL.)        FERRS     152
            14  6170001375 +             E.CM5    ERROR  F,FEC.RTN,(ILLEGAL BLOCK NAME IN COMMON STATEMENT)      FERRS     153
            15  6170001377 +             E.CM6    ERROR  F,FEC.RTN,(PREMATURE E.O.S. -- EXPECTED SYMBOL OR SLASH FERRS     154
                                        ,)                                                                       FERRS     155
                                                                                                                 FERRS     156
                                                                                                                 FERRS     157
                                        **        COMMON PROCESSING AT END OF DECLARATIVES.                      FERRS     158
                                                                                                                 FERRS     159
                                                                                                                 FERRS     160
          1401  021                      E.CM8    ERROR  AS,*,(COMMON BLOCK NAME FILL. CANNOT BE FILL.2)         FC5A255    43
          1403  021                      E.CM9    ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX BLOCK ____________ FERRS     161
                                        ,LENGTH "MAX.SPCM")                                                      FERRS     162
          1405  021                      E.CM10   ERROR  FS,*,(COMMON BLOCK FILL. EXCEEDS MAX LCM=G BLOCK ______ FERRS     163
                                        ,LENGTH "MAX.SPLC")                                                      FERRS     164
          1407  055                      E.CM11   ERROR  FS,*,(CHARACTER DECLARATION CONFLICT EXISTS IN COMMON B FERRS     165
                                        ,LOCK FILL.)                                                             FERRS     166
          1411  260                      E.CM12   ERROR  FS,*,(EMPTY COMMON BLOCK FILL.)                         FERRS     167
  
  
  
  
                                        **        CONTINUE STATEMENT PROCESSOR.                                  FERRS     169
                                                                                                                 FERRS     170
                                                                                                                 FERRS     171
            16  6170001412 +             E.CT     ERROR  T,FEC.RTN,(CONTINUE WITH NO STATEMENT LABEL -- IGNORED) FERRS     172
                                         E.CT1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     173
  
  
  
  
                                        **        C$ DIRECTIVE PROCESSING.                                       FERRS     175
                                                                                                                 FERRS     176
                                                                                                                 FERRS     177
            17  6170001414 +             E.C$00   ERROR  FS,FEC.RTN,(FILL.2 IS UNKNOWN C$ PARAMETER FOR FILL.)   FERRS     178
            20  6170001416 +             E.C$01   ERROR  F,FEC.RTN,(NO PREVIOUS C$ IF DIRECTIVE)                 FERRS     179
            21  6170001420 +             E.C$02   ERROR  FV,FEC.RTN,(EXPECTED C$ DIRECTIVE LABEL -- FOUND FILL.) FERRS     180
            22  6170001422 +             E.C$03   ERROR  FS,FEC.RTN,(C$ FILL. LABEL FILL.2 DIFFERENT FROM C$ IF  FERRS     181
                                        ,LABEL)                                                                  FERRS     182
            23  6170001424 +             E.C$04   ERROR  F,FEC.RTN,(ONLY ONE C$ ELSE ALLOWED IN C$ IF GROUP)     FERRS     183
          1426  264                      E.C$05   ERROR  WS,*,(C$ PARAMETER VALUE FOR FILL.2 ON FILL. MUST BE 0  FERRS     184
                                        ,OR 1)                                                                   FERRS     185
            24  6170001431 +             E.C$06   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.)        FERRS     186
            25  6170001433 +             E.C$07   ERROR  FV,FEC.RTN,(EXPECTED C$ PARAMETER -- FOUND FILL.)       FERRS     187
            26  6170001435 +             E.C$08   ERROR  FV,FEC.RTN,(EXPECTED LEFT PAREN -- FOUND FILL.)         FERRS     188
                                         E.C$09   EQUENT E.GE3       FV,FEC.RTN,(EXPECTED COMMA, FOUND FILL.)    FERRS     189
                                         E.C$10   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     190
            27  6170001437 +             E.C$11   ERROR  F,FEC.RTN,(C$ IF EXPRESSION MUST BE LOGICAL)            FERRS     191
          1441  002                      E.C$15   ERROR  FS,*,(FILL. C$ IF(S) NOT TERMINATED)                    FERRS     192
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    19
        ERROR MESSAGE TEXTS                                           DATA
  
                                        **        DATA   STATEMENT PROCESSOR.                                    FERRS     194
                                                                                                                 FERRS     195
                                                                                                                 FERRS     196
          1443  002                      E.DABC   ERROR  FS,*,(FILL. IS IN BLANK COMMON -- DATA IGNORED)         FERRS     197
          1445  303                      E.DABL   ERROR  WS,*,(LOCAL FILL. IN BLOCK DATA -- IGNORED)             FERRS     198
            30  6170001447 +             E.DACV   ERROR  W,DATA2,(EXCESS CONSTANTS IGNORED)                      FERRS     199
            31  6170001450 +             E.DAVC   ERROR  WS,DATA2,(TOO FEW CONSTANTS -- VARIABLES FROM FILL. NOT FERRS     200
                                        , INITIALIZED)                                                           FC5A126     8
          1452  062                      E.DAR    ERROR  A,*,(PAREN REPEAT LIST IS NOT PERMITTED)                FERRS     202
          1454  131                      E.DAUC   ERROR  FS,*,(DATA INTO FILL. IS ILLEGAL)                       FC5A111     7
            32  6170001456 +             E.DCE    ERROR  F,DAT.Z,(ILLEGAL REPEAT CONSTANT)                       FERRS     204
            33  6170001457 +             E.DIL    ERROR  F,DAT.Z,(SYNTAX ERROR IN DATA CONSTANT LIST)            FERRS     205
            34  6170001461 +             E.DIL1   ERROR  F,DAT.Z,(ILLEGAL CONSTANT FOLLOWING + OR -)             FERRS     206
            35  6170001463 +             E.DIL2   ERROR  F,DAT.Z,(NESTING OF REPEAT COUNT IN DATA CONSTANT LIST  FERRS     207
                                        ,IS ILLEGAL)                                                             FERRS     208
            36  6170001465 +             E.DIL3   ERROR  F,DAT.Z,(ILLEGAL SEPARATOR FOLLOWING DATA CONSTANT)     FERRS     209
            37  6170001467 +             E.DIL4   ERROR  FS,DAT.Z,(NAME FILL. IN DATA CONSTANT LIST MUST BE ____ FERRS     210
                                        ,PARAMETER)                                                              FERRS     211
          1471  247                      E.DSE    ERROR  F,*,(SYNTAX ERROR IN DATA STATEMENT)                    FC5A111     8
          1473  131                      E.DVL1   ERROR  F,*,(DATA VARIABLE LIST CONTAINS FILL.3)                FC5A111     9
          1475  002                      E.DVR1   ERROR  FS,*,(FILL. MUST BE DO CONTROL VARIABLE)                FERRS     214
          1477  002                      E.DVR2   ERROR  FS,*,(FILL. SUBSCRIPT OUTSIDE OF ARRAY BOUNDS)          FERRS     215
          1501  327                      E.DVR3   ERROR  FS,*,(TRIP COUNT OF FILL. MUST BE POSITIVE)             FERRS     216
          1503  331                      E.DVR4   ERROR  F,*,(SUBSCRIPTS IN DATA MUST BE INTEGER)                FERRS     217
          1505  101                      E.DVR5   ERROR  F,*,(STATEMENT FUNCTION INVALID IN DATA VARIABLE LIST)  FC5A227    66
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    20
        ERROR MESSAGE TEXTS                                           DEC 
  
                                        **        CONVERSION OF CONSTANT SECTION.                                FERRS     219
                                                                                                                 FERRS     220
                                                                                                                 FERRS     221
          1507  057                      E.DC     ERROR  F,*,(CONSTANT CANNOT BE CONVERTED)                      FERRS     222
          1510  332                      E.DC1    ERROR  A,*,(OCT/HEX DATA TYPE NOT DEFINED IN ANSI)             FC5A381     5
          1512  160                      E.DC3    ERROR  FV,*,(ILLEGAL FORM OF EXPONENT FILL.)                   FERRS     224
          1514  057                      E.DC4    ERROR  F,*,(CONSTANT DIVIDE BY ZERO -- RESULTS SET TO INFINITE FERRS     225
                                        ,)                                                                       FERRS     226
          1516  057                      E.DC6    ERROR  W,*,(CONSTANT MISSING EXPONENT FIELD -- ZERO ASSUMED)   FERRS     227
          1520  343                      E.DC7    ERROR  F,*,(ILL- FORMED COMPLEX CONSTANT)                      FERRS     228
          1521  057                      E.DC8    ERROR  T,*,(CONSTANT TOO LONG , EXCESS DIGITS TRUNCATED)       FERRS     229
          1523  110                      E.DC9    ERROR  W,*,(NON- OCT/HEX DIGIT IN OCT/HEX CONSTANT -- IGNORED) FC5A381     6
          1525  352                      E.DC10   ERROR  A,*,(SYMBOLIC CONSTANT IN COMPLEX CONSTANT NOT ANSI)    FC5A174    14
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    21
        ERROR MESSAGE TEXTS                                           DIM 
  
                                        **        DIMENSION PROCESSOR.                                           FERRS     232
                                                                                                                 FERRS     233
                                                                                                                 FERRS     234
          1527  247                      E.DM00   ERROR  F,*,(SYNTAX ERROR IN DIMENSION DECLARATION)             FERRS     235
          1531  014                      E.DM01   ERROR  FS,*,(ARRAY FILL. DIMENSION BOUND FILL.2 NOT INTEGER)   FERRS     236
          1533  014                      E.DM02   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- LOWER BOUND EXCEE FERRS     237
                                        ,DS UPPER BOUND)                                                         FERRS     238
          1535  167                      E.DM03   ERROR  FS,*,(ASSUMED SIZE OR ADJUSTABLE ARRAY FILL. MUST BE DU FERRS     239
                                        ,MMY-ARG)                                                                FERRS     240
          1537  360                      E.DM04   ERROR  FS,*,(ADJUSTABLE BOUND FILL. MUST BE DUMMY-ARG OR IN CO FERRS     241
                                        ,MMON)                                                                   FERRS     242
          1541  007                      E.DM05   ERROR  WS,*,(VARIABLE FILL. HAS NO DIMENSION BOUND -- IGNORED) FERRS     243
          1543  014                      E.DM06   ERROR  FS,*,(ARRAY FILL. EXCEEDS "MAX.DIM" DIMENSIONS)         FERRS     244
          1545  014                      E.DM07   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- EXCEEDS "MAX.SPAN FERRS     245
                                        ,")                                                                      FERRS     246
          1547  014                      E.DM08   ERROR  FS,*,(ARRAY FILL. SIZE EXCEEDS "MAX.SPAN")              FERRS     247
          1551  353                      E.DM09   ERROR  FS,*,(DIMENSION ON FILL. IGNORED -- PRIOR DIMENSION RET FC5A126     9
                                        ,AINED)                                                                  FERRS     249
            40  6170001553 +             E.DM10   ERROR  FS,FEC.RTN,(ARRAY DECLARATION FOR FILL. MISSING RIGHT P FERRS     250
                                        ,AREN)                                                                   FERRS     251
          1555  014                      E.DM11   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E FERRS     252
                                        ,XPRESSION CONTAINS ILLEGAL OPERATION)                                   FERRS     253
          1560  360                      E.DM12   ERROR  FS,*,(ADJUSTABLE DIMENSION BOUND FILL. IS NOT INTEGER)  FERRS     254
          1562  167                      E.DM13   ERROR  F,*,(ASSUMED SIZE CAN ONLY BE ON LAST UPPER BOUND)      FERRS     255
          1564  014                      E.DM14   ERROR  FS,*,(ARRAY FILL. IN PROGRAM CANNOT HAVE ADJUSTABLE DIM FC50438     6
                                        ,ENSION)                                                                 FC50438     7
                                         E.DM15   EQUENT E.GE1       FS,*,(EXPECTED COMMA FOUND FILL.)           FERRS     256
                                         E.DM16   EQUENT E.GE2       WV,FEC.FTN,(PREMAT EOS -- EXPECTED VAR)     FERRS     257
          1566  014                      E.DM17   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E FERRS     258
                                        ,XPRESSION CONTAINS NON- VARIABLE)                                       FERRS     259
          1571  014                      E.DM18   ERROR  FS,*,(ARRAY FILL. DIMENSION FILL.2 -- DIMENSION BOUND E FERRS     260
                                        ,XPRESSION CONTAINS ARRAY REFERENCE)                                     FERRS     261
          1574  357                      E.DM19   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPCM")           FERRS     262
          1576  357                      E.DM20   ERROR  FS,*,(SIZE OF ARRAY FILL. EXCEEDS "MAX.SPLC")           FERRS     263
          1600  014                      E.DM21   ERROR  FS,*,(ARRAY FILL. IN COMMON CANNOT HAVE ADJUSTABLE DIME FC50438     8
                                        ,NSION)                                                                  FC50438     9
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    22
        ERROR MESSAGE TEXTS                                           DO
  
                                        **        DO PROCESSOR.                                                  FERRS     265
                                                                                                                 FERRS     266
                                                                                                                 FERRS     267
          1602  247                      E.DO00   ERROR  F,*,(SYNTAX OF DO MUST BE I=M1,M2,M3 OR M1,M2)          FERRS     268
          1604  202                      E.DO01   ERROR  T,*,(THIS DO LOOP WILL NOT EXECUTE)                     FERRS     269
          1606  323                      E.DO02   ERROR  F,*,(DO LOOP INCREMENT MAY NOT BE ZERO)                 FERRS     270
          1610  004                      E.DO03   ERROR  FS,*,(FILL.3 TOO HIGH -- SHORT LOOPS SELECTED)          FC5A371     5
          1612  323                      E.DO04   ERROR  FS,*,(DO INDEX FILL. MUST BE SIMPLE VARIABLE)           FERRS     272
                                         E.DO05   EQUENT E.AS4       (EXPECTED STATEMENT LABEL -- FOUND FILL.)   FERRS     273
          1614  160                      E.DO06   ERROR  FS,*,(ILLEGAL IF BLOCK NESTING WITH DO LOOP FILL.2)     FERRS     274
          1616  160                      E.DO07   ERROR  F,*,(ILLEGAL TRANSFER INTO RANGE OF DO)                 FERRS     275
            41  6170001620 +             E.DO08   ERROR  FS,PSL,(FILL. REDEFINES A DO CONTROL INDEX)             FC5A211    10
          1622  323                      E.DO09   ERROR  FS,*,(DO LOOP FILL. NOT TERMINATED BEFORE END OF PROGRA FERRS     277
                                        ,M)                                                                      FERRS     278
          1624  060                      E.DO10   ERROR  FV,*,(EXPECTED EQUAL SIGN -- FOUND FILL.)               FC50886     7
          1626  160                      E.DO12   ERROR  F,*,(ILLEGAL NESTING OF DO LOOPS)                       FERRS     280
          1630  323                      E.DO13   ERROR  W,*,(DO CONCLUSION NOT COMPILED -- DO DEFINITION ERROR) FERRS     281
            42  6170001632 +             E.DO14   ERROR  FV,PSL,(EXPECTED DO CONTROL INDEX -- FOUND FILL.)       FERRS     282
          1634  323                      E.DO15   ERROR  F,*,(DO INDEX CANNOT BE FILL.3)                         FERRS     283
          1636  323                      E.DO16   ERROR  F,*,(DO FILL.2 PARAMETER CANNOT BE FILL.3)              FERRS     284
          1640  414                      E.DO17   ERROR  F,*,(DO-IMPLIED LOOPS IN DATA MUST BE INTEGER)          FERRS     285
          1642  327                      E.DO18   ERROR  F,*,(TRIP COUNT IS LESS THAN ONE)                       FERRS     286
          1644  403                      E.DO19   ERROR  A,*,(TRANSFER INTO RANGE OF DO)                         FC5A300     7
          1646  417                      E.DO20   ERROR  W,*,(ALTERNATE RETURN INTO RANGE OF DO)                 FC51356    12
  
  
  
  
                                        **        ENTRY PROCESSOR.                                               FERRS     288
                                                                                                                 FERRS     289
                                                                                                                 FERRS     290
          1650  244                      E.EN     ERROR  WS,*,(NAME FILL. PREVIOUSLY DEFINED -- ENTRY STATEMENT  FERRS     291
                                        ,IGNORED)                                                                FERRS     292
            43  6170001652 +             E.EN1    ERROR  W,FEC.RTN,(ENTRY STATEMENT IGNORED IN MAIN PROGRAM)     FERRS     293
            44  6170001654 +             E.EN2    ERROR  F,PSL,(ENTRY INSIDE DO LOOP OR IF BLOCK IS ILLEGAL)     FERRS     294
            45  6170001656 +             E.EN3    ERROR  W,PSL,(MISSING NAME -- ENTRY STATEMENT IGNORED)         FERRS     295
            46  6170001660 +             E.EN4    ERROR  W,PSL,(ILLEGAL NAME -- ENTRY STATEMENT IGNORED)         FERRS     296
          1662  015                      E.EN5    ERROR  FS,*,(SUBROUTINE ENTRY FILL. MAY NOT APPEAR IN A DECLAR FERRS     297
                                        ,ATIVE STATEMENT)                                                        FC5A262    18
          1665  016                      E.EN6    ERROR  FS,*,(FUNCTION ENTRY FILL. MUST BE TYPE CHARACTER)      FERRS     299
          1667  055                      E.EN7    ERROR  FS,*,(CHARACTER LENGTHS OF ENTRY FILL. AND FUNCTION CAN FERRS     300
                                        ,NOT DISAGREE)                                                           FERRS     301
          1671  016                      E.EN8    ERROR  FS,*,(FUNCTION ENTRY FILL. MAY NOT BE TYPE CHARACTER)   FERRS     302
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    23
        ERROR MESSAGE TEXTS                                           EQUIV 
  
                                        **        EQUIVALENCE PROCESSOR.                                         FERRS     304
                                                                                                                 FERRS     305
                                                                                                                 FERRS     306
            47  6170001673 +             E.EQ     ERROR  F,FEC.RTN,(SYNTAX ERROR IN EQUIVALENCE STATEMENT)       FERRS     307
            50  6170001675 +             E.EQ1    ERROR  FV,EQS80,(MISSING LEFT PAREN AT FILL.)                  FERRS     308
            51  6170001677 +             E.EQ2    ERROR  WV,FEC.RTN,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.) FERRS     309
            52  6170001701 +             E.EQ3    ERROR  FV,EQS80,(MISSING COMMA AT FILL.)                       FERRS     310
            53  6170001702 +             E.EQ4    ERROR  FV,EQS80,(MORE THAN "MAX.DIM" SUBSCRIPTS)               FC5A126    10
          1703  426                      E.EQ6    ERROR  W,*,(TRIVIAL EQUIVALENCE GROUP WITH ONLY 1 MEMBER IS IG FERRS     312
                                        ,NORED)                                                                  FERRS     313
                                                                                                                 FERRS     314
                                        **        CLOSE OF DECLARATIVES PROCESSING.                              FERRS     315
                                                                                                                 FERRS     316
          1705  423                      E.EQ7    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT LESS THAN  FERRS     317
                                        ,DIMENSION LOWER BOUND)                                                  FERRS     318
          1710  423                      E.EQ8    ERROR  FS,*,(EQUIVALENCED ARRAY FILL. HAS SUBSCRIPT WHICH EXCE FERRS     319
                                        ,EDS DIMENSION BOUND)                                                    FERRS     320
          1712  134                      E.EQ10   ERROR  FS,*,(DUMMY ARGUMENT FILL. CANNOT BE EQUIVALENCED)      FERRS     321
          1714  220                      E.EQ11   ERROR  WS,*,(REDUNDANT EQUIVALENCE SPECIFICATION FOR FILL.)    FERRS     322
          1716  075                      E.EQ12   ERROR  FS,*,(CONFLICT IN EQUIVALENCE SPECIFICATION FOR FILL.)  FERRS     323
          1720  262                      E.EQ13   ERROR  FS,*,(NO DIMENSION FOUND FOR EQUIVALENCE VARIABLE FILL. FERRS     324
                                        ,)                                                                       FERRS     325
          1722  137                      E.EQ14   ERROR  FS,*,(EXCESS SUBSCRIPTS ON EQUIVALENCE VARIABLE FILL.)  FERRS     326
          1724  242                      E.EQ15   ERROR  FS,*,(MISSING SUBSCRIPTS SET TO LOWER BOUND FOR EQUIVAL FC5A126    11
                                        ,ENCE VARIABLE FILL.)                                                    FC5A126    12
          1727  002                      E.EQ16   ERROR  FS,*,(FILL. ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN)   FERRS     329
          1731  002                      E.EQ17   ERROR  FS,*,(FILL. CAUSES CHARACTER DECLARATION CONFLICT IN EQ FERRS     330
                                        ,UIVALENCE GROUP)                                                        FERRS     331
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    24
        ERROR MESSAGE TEXTS                                           EXTERNAL
  
                                        **        EXTERNAL PROCESSOR.                                            FERRS     333
                                                                                                                 FERRS     334
                                                                                                                 FERRS     335
          1733  002                      E.EX1    ERROR  WS,*,(FILL. PREVIOUSLY DEFINED EXTERNAL -- IGNORED)     FC5A126    13
                                         E.EX2    EQUENT E.GE1       FS,*,(EXPECTED COMMA FOUND FILL.)           FERRS     337
                                         E.EX3    EQUENT E.GE2       WV,FEC.FTN,(PREMAT EOS -- EXPECTED VAR)     FERRS     338
          1735  017                      E.EX4    ERROR  WS,*,(ENTRY FILL. MUST NOT BE DECLARED EXTERNAL -- IGNO FERRS     339
                                        ,RED)                                                                    FERRS     340
  
  
  
  
                                        **        PROGRAM STATEMENT FILE DECLARATION.                            FERRS     342
                                                                                                                 FERRS     343
                                                                                                                 FERRS     344
          1737  440                      E.FD     ERROR  A,*,(FILE DECLARATION LIST NON- ANSI)                   FERRS     345
          1741  060                      E.FD1    ERROR  FV,*,(EXPECTED FILE NAME, FOUND FILL.)                  FC5A145     6
            54  6170001743 +             E.FD2    ERROR  FS,PPA130,(FILE FILL. PREVIOUSLY DEFINED -- IGNORED)    FC5A145     7
            55  6170001745 +             E.FD3    ERROR  FS,PPA130,(FILE FILL.2 NOT DEFINED -- DEFINITION IGNORE FC5A145     8
                                        ,D)                                                                      FC5A145     9
            56  6170001747 +             E.FD4    ERROR  F,PPA130,(EQUAL SIGN MUST BE FOLLOWED BY NAME, NUMBER O FC5A145    10
                                        ,R SLASH)                                                                FC5A145    11
            57  6170001751 +             E.FD5    ERROR  FS,PPA130,(ILLEGAL BUFFER LENGTH FOR FILE FILL. -- DEFI FC5A145    12
                                        ,NITION IGNORED)                                                         FC5A145    13
            60  6170001753 +             E.FD6    ERROR  FS,PPA130,(BUFFER LENGTH FOR FILE FILL. EXCEEDS "MAX.BU FC5A145    14
                                        ,FL"B -- DEFINITION IGNORED)                                             FC5A145    15
            61  6170001755 +             E.FD7    ERROR  FS,PPA130,(ILLEGAL RECORD LENGTH FOR FILE FILL. -- DEFI FC5A145    16
                                        ,NITION IGNORED)                                                         FC5A145    17
            62  6170001757 +             E.FD8    ERROR  F,PPA130,(SLASH MUST BE FOLLOWED BY AN OCTAL OR INTEGER FC5A145    18
                                        , CONSTANT)                                                              FC5A145    19
            63  6170001761 +             E.FD9    ERROR  FS,PPA130,(RECORD LENGTH FOR FILE FILL. EXCEEDS "MAX.RE FC5A145    20
                                        ,CL"B -- DEFINITION IGNORED)                                             FC5A145    21
          1763  060                      E.FD10   ERROR  FV,*,(EXPECTED RIGHT PAREN OR COMMA -- FOUND FILL.)     FC5A145    22
                                         E.FD11   EQUENT E.GE4             WV,*,(EXPECTED EOS -- FOUND FILL.)    FC5A145    23
          1765  132                      E.FD12   ERROR  W,*,(ONLY "MAX.PARG" FILES ARE ALLOWED -- EXCESS IGNORE FC5A145    24
                                        ,D)                                                                      FC5A145    25
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    25
        ERROR MESSAGE TEXTS                                           FORMAT
  
                                        **        FORMAT STATEMENT PROCESSOR.                                    FERRS     365
                                                                                                                 FERRS     366
                                                                                                                 FERRS     367
          1767  453                      E.FS00   ERROR  F,*,(FORMAT MUST HAVE STATEMENT LABEL)                  FERRS     368
          1771  454                      E.FS01   ERROR  FV,*,(D OR M FIELD NOT SPECIFIED FOR EDIT DESCRIPTOR AT FC50555     5
                                        , FILL.)                                                                 FC50555     6
          1774  461                      E.FS02   ERROR  F,*,(T EDIT DESCRIPTOR FOLLOWED BY ZERO OR NON- DIGIT)  FERRS     371
          1776  132                      E.FS03   ERROR  F,*,(ONLY 9 PAREN LEVELS ALLOWED)                       FERRS     372
          2000  312                      E.FS04   ERROR  FS,*,(REPEAT COUNT IS NOT ALLOWED BEFORE THE EDIT DESCR FERRS     373
                                        ,IPTOR FILL.)                                                            FERRS     374
          2002  342                      E.FS05   ERROR  FV,*,(FIELD WIDTH NOT SPECIFIED FOR EDIT DESCRIPTOR AT  FERRS     375
                                        ,FILL.)                                                                  FERRS     376
          2004  465                      E.FS06   ERROR  F,*,(SIGNED COUNT ALLOWED ONLY BEFORE P EDIT DESCRIPTOR FERRS     377
                                        ,)                                                                       FERRS     378
          2006  002                      E.FS07   ERROR  FS,*,(FILL. EDIT DESCRIPTOR REQUIRES COUNT)             FERRS     379
          2010  002                      E.FS08   ERROR  AS,*,(FILL. IS NON- ANSI EDIT DESCRIPTOR)               FERRS     380
          2012  467                      E.FS09   ERROR  T,*,(TL EDIT DESCRIPTOR BACKSPACED BEYOND 1ST COLUMN -- FERRS     381
                                        , COLUMN POINTER RESET AT 1)                                             FERRS     382
          2015  336                      E.FS10   ERROR  FV,*,(ZERO IS SPECIFIED AS REPEAT COUNT AT FILL.)       FERRS     383
          2017  446                      E.FS11   ERROR  F,*,(RECORD LENGTH EXCEEDS "MAX.RECL" COLUMNS)          FERRS     384
          2021  446                      E.FS12   ERROR  T,*,(RECORD LENGTH EXCEEDS "NOR.RECL" COLUMNS -- MAY EX FERRS     385
                                        ,CEED I/O DEVICE)                                                        FERRS     386
          2023  342                      E.FS13   ERROR  FV,*,(FIELD WIDTH OF EDIT DESCRIPTOR AT FILL. IS ZERO O FERRS     387
                                        ,R NOT SPECIFIED)                                                        FERRS     388
          2026  263                      E.FS14   ERROR  FS,*,(UNKNOWN EDIT DESCRIPTOR FILL.)                    FERRS     389
          2027  504                      E.FS15   ERROR  FV,*,(EXTRANEOUS NUMERIC FIELD IN EDIT DESCRIPTOR AT FI FERRS     390
                                        ,LL.)                                                                    FERRS     391
          2031  505                      E.FS16   ERROR  FV,*,(DECIMAL POINT IS NOT SPECIFIED FOR THE EDIT DESCR FERRS     392
                                        ,IPTOR AT FILL.)                                                         FERRS     393
          2034  342                      E.FS17   ERROR  WV,*,(FIELD WIDTH IS LESS THAN MINIMUM REQUIRED ON EDIT FERRS     394
                                        , DESCRIPTOR AT FILL.)                                                   FERRS     395
                                         E.FS18   EQUENT E.GE6       FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.) FC5A278     6
          2037  511                      E.FS19   ERROR  F,*,(UNBALANCED PARENS)                                 FC5A184    34
          2040  504                      E.FS20   ERROR  W,*,(EXTRANEOUS COMMA IGNORED)                          FERRS     398
          2041  145                      E.FS21   ERROR  FV,*,(MULTIPLE DECIMAL POINT IN EDIT DESCRIPTOR AT FILL FERRS     399
                                        ,.)                                                                      FERRS     400
          2043  457                      E.FS22   ERROR  FV,*,(EDIT DESCRIPTOR MISSING AT FILL.)                 FERRS     401
          2045  505                      E.FS23   ERROR  FV,*,(DECIMAL POINT REQUIRED IN EDIT DESCRIPTOR AT FILL FERRS     402
                                        ,.)                                                                      FERRS     403
          2047  333                      E.FS24   ERROR  FV,*,(EXPONENT FIELD ON EDIT DESCRIPTOR AT FILL. IS ZER FERRS     404
                                        ,O OR NOT SPECIFIED)                                                     FERRS     405
          2052  321                      E.FS25   ERROR  FV,*,(SEPARATOR MISSING AT FILL.)                       FERRS     406
          2053  044                      E.FS26   ERROR  F,*,(INITIAL LEFT PAREN MISSING)                        FC5A184    35
  
  
  
  
                                        **        GO TO   STATEMENTS.                                            FERRS     408
                                                                                                                 FERRS     409
                                                                                                                 FERRS     410
            64  6170002054 +             E.GO     ERROR  F,PSL,(SYNTAX ERROR IN GO TO STATEMENT)                 FERRS     411
            65  6170002056 +             E.GO1    ERROR  F,PSL,(OBJECT OF GO TO MISSING)                         FERRS     412
            66  6170002060 +             E.GO2    ERROR  T,CUS.RET,(NULL TRANSFER STATEMENT -- TRANSFER IGNORED) FERRS     413
          2062  060                      E.GO3    ERROR  FV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)               FERRS     414
          2064  172                      E.GO4    ERROR  W,*,(OBJECT OF GO TO NOT INTEGER VARIABLE)              FERRS     415
          2066  266                      E.GO5    ERROR  T,*,(IF RESULTS IN A TRANSFER TO THE NEXT LINE)         FERRS     416
          2070  514                      E.GO6    ERROR  A,*,(COMPUTED GO TO INDEX MUST BE INTEGER)              FERRS     417
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    26
        ERROR MESSAGE TEXTS                                           GOTO      FORMAT. 
  
          2072  101                      E.GO7    ERROR  T,*,(STATEMENT TRANSFERS TO ITSELF)                     FERRS     418
          2073  101                      E.GO8    ERROR  T,*,(STATEMENT CAN TRANSFER TO ITSELF)                  FERRS     419
                                         E.GO9    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     420
  
  
  
  
                                        **        CONVERSION OF HOLLERITH CONSTANTS.                             FERRS     422
                                                                                                                 FERRS     423
                                                                                                                 FERRS     424
          2075  336                      E.HC1    ERROR  F,*,(ZERO LENGTH CHARACTER OR HOLLERITH STRING)         FERRS     425
          2077  070                      E.HC2    ERROR  F,*,(E.O.S. BEFORE END OF HOLLERITH COUNT)              FERRS     426
          2101  520                      E.HC3    ERROR  FS,*,(TERMINAL DELIMITER FILL. MISSING)                 FERRS     427
  
  
  
  
                                        **        IF STATEMENT/STRUCTURE PROCESSING.                             FERRS     429
                                                                                                                 FERRS     430
                                                                                                                 FERRS     431
            67  6170002102 +             E.IF00   ERROR  F,PSL,(ILLEGAL IF STATEMENT -- OBJECT MISSING)          FERRS     432
          2104  522                      E.IF01   ERROR  F,*,(ELSEIF EXPRESSION MUST BE LOGICAL)                 FERRS     433
          2106  172                      E.IF02   ERROR  A,*,(OBJECT OF IF IS ILLEGAL DO TERMINATOR)             FERRS     434
            70  6170002110 +             E.IF03   ERROR  FV,PSL,(ILLEGAL OBJECT OF IF -- TROUBLE STARTED AT FILL FERRS     435
                                        ,.)                                                                      FERRS     436
          2112  266                      E.IF04   ERROR  T,*,(IF RESULTS IN A SIMPLE TRANSFER)                   FERRS     437
          2114  366                      E.IF05   ERROR  T,*,(LAST IF RESULTS IN A NULL TRANSFER TO THIS STATEME FERRS     438
                                        ,NT)                                                                     FERRS     439
            71  6170002116 +             E.IF06   ERROR  F,PSL,(ILLEGAL OBJECT OF LOGICAL IF)                    FERRS     440
          2120  526                      E.IF07   ERROR  FS,*,(3 BRANCH IF HAS FILL.3 EXPRESSION)                FERRS     441
                                         E.IF08   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FC50642     4
            72  6170002122 +             E.IF09   ERROR  F,IFS11,(LOGICAL IF EXPRESSION MUST BE LOGICAL)         FERRS     442
            73  6170002124 +             E.IF10   ERROR  F,PSL,(3 BRANCH IF MISSING LABEL)                       FERRS     443
            74  6170002126 +             E.IF11   ERROR  F,PSL,(LOGICAL IF MUST NOT BE OBJECT OF LOGICAL IF)     FERRS     444
            75  6170002130 +             E.IF12   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)             FERRS     445
            76  6170002132 +             E.IF13   ERROR  F,PSL,(ILLEGAL BLOCK IF STRUCTURE)                      FERRS     446
          2133  060                      E.IF14   ERROR  FV,*,(EXPECTED THEN -- FOUND FILL.)                     FC51047     5
          2135  323                      E.IF15   ERROR  FS,*,(DO LOOP FILL. MUST TERMINATE WITHIN IF BLOCK)     FERRS     448
          2137  323                      E.IF16   ERROR  FS,*,(DO LOOP FILL. CONTAINS UNCLOSED IF BLOCK)         FERRS     449
          2141  002                      E.IF17   ERROR  FS,*,(FILL. BLOCK IF(S) NOT TERMINATED)                 FERRS     450
  
  
  
  
                                        **        INTRINSIC STATEMENT PROCESSOR                                  FERRS     452
                                                                                                                 FERRS     453
                                                                                                                 FERRS     454
            77  6170002143 +             E.IN     ERROR  FV,FEC.RTN,(EXPECTED INTRINSIC FUNCTION NAME -- FOUND F FERRS     455
                                        ,ILL.)                                                                   FERRS     456
          2145  002                      E.IN1    ERROR  FS,*,(FILL. IS NOT DEFINED AS INTRINSIC)                FERRS     457
          2147  002                      E.IN2    ERROR  WS,*,(FILL. PREVIOUSLY DECLARED INTRINSIC -- IGNORED)   FERRS     458
          2151  002                      E.IN3    ERROR  WS,*,(FILL. PREVIOUSLY TYPED NON- CONFIRMING -- PREVIOU FERRS     459
                                        ,S TYPE OVERRIDDEN)                                                      FERRS     460
           100  6170002153 +             E.IN4    ERROR  FV,FEC.RTN,(EXPECTED COMMA -- FOUND FILL.)              FERRS     461
                                                                                                                 FERRS     462
                                                                                                                 FERRS     463
                                        **        INTRINSIC FUNCTION PROCESSING                                  FERRS     464
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    27
        ERROR MESSAGE TEXTS                                           INT 
  
                                                                                                                 FERRS     465
                                                                                                                 FERRS     466
          2155  024                      E.INF    ERROR  F,*,(LOCF ARGUMENT MUST NOT BE FILL.3)                  FERRS     467
          2157  143                      E.INF1   ERROR  W,*,(ARGUMENT TO MASK MUST BE BETWEEN 0 AND 60)         FC5A190     7
          2161  541                      E.INF2   ERROR  W,*,(SHIFT COUNT MUST BE BETWEEN -60 AND 60)            FC5A190     8
          2163  031                      E.INF3   ERROR  F,*,(INTRINSIC LEN MUST NOT APPEAR IN PARAMETER CONSTAN FC5A227    67
                                        ,T EXPRESSION)                                                           FC5A227    68
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    28
        ERROR MESSAGE TEXTS                                           I/O 
  
                                        **        I/O PROCESSOR.                                                 FERRS     469
                                                                                                                 FERRS     470
                                                                                                                 FERRS     471
          2165  030                      E.IO00   ERROR  F,*,(EXTERNAL UNIT SPECIFIER NOT INTEGER EXPRESSION)    FERRS     472
           101  6170002167 +             E.IO01   ERROR  F,PSL,(UNIT SPECIFIER MISSING)                          FERRS     473
          2170  064                      E.IO02   ERROR  F,*,(COMMA BEFORE AN I/O LIST IS ALLOWED ONLY ON SHORT  FC5A171A   11
                                        ,FORM READ OR PRINT STATEMENT)                                           FC5A171A   12
          2173  544                      E.IO03   ERROR  F,*,(UNIT SPECIFIER OUTSIDE RANGE 0-999)                FC5A126    14
          2175  551                      E.IO04   ERROR  F,*,(IMPLIED I/O UNIT SPECIFIER NOT ALLOWED FOR THIS ST FERRS     476
                                        ,ATEMENT)                                                                FERRS     477
          2177  502                      E.IO05   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 MUST B FERRS     478
                                        ,E TYPE FILL.3)                                                          FERRS     479
          2201  553                      E.IO06   ERROR  FV,*,(EXTRA CHARACTERS FILL. AFTER UNIT SPECIFIER IGNOR FC5A220     4
                                        ,ED)                                                                     FERRS     481
           102  6170002203 +             E.IO07   ERROR  FV,PSL,(EXPECTED FORMAT SPECIFIER -- FOUND FILL.)       FERRS     482
           103  6170002205 +             E.IO08   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O CONTROL LIST)            FERRS     483
          2207  060                      E.IO09   ERROR  WV,*,(EXPECTED COMMA AFTER I/O CONTROL -- FOUND FILL.)  FERRS     484
           104  6170002211 +             E.IO10   ERROR  FS,PSL,(FILL. FILL.2 NOT I/O CONTROL KEYWORD)           FERRS     485
           105  6170002213 +             E.IO11   ERROR  FS,PSL,(FILL. FILL.2 NOT LEGAL I/O CONTROL KEYWORD FOR  FERRS     486
                                        ,THIS STATEMENT)                                                         FERRS     487
           106  6170002215 +             E.IO12   ERROR  FS,PSL,(FILL. FILL.2 I/O CONTROL ALREADY SPECIFIED FOR  FERRS     488
                                        ,THIS STATEMENT)                                                         FERRS     489
           107  6170002217 +             E.IO13   ERROR  WV,LST,(TERMINAL CHARACTER FILL. CONVERTED TO RIGHT PAR FERRS     490
                                        ,EN)                                                                     FERRS     491
          2221  551                      E.IO14   ERROR  F,*,(IMPLIED LOOP NOT TERMINATED)                       FERRS     492
           110  6170002222 +             E.IO15   ERROR  F,PSL,(END OR ERR REQUIRES STATEMENT LABEL)             FERRS     493
           111  6170002224 +             E.IO16   ERROR  FV,PSL,(SYNTAX ERROR IN I/O CONTROL LIST AT FILL.)      FERRS     494
           112  6170002226 +             E.IO17   ERROR  FS,PSL,(I/O CONTROL KEYWORD FILL. FILL.2 MUST BE POSITI FERRS     495
                                        ,VE INTEGER EXPRESSION)                                                  FERRS     496
          2230  502                      E.IO18   ERROR  FS,*,(I/O CONTROL KEYWORD PARAMETER FILL. FILL.2 CANNOT FERRS     497
                                        , BE FILL.3)                                                             FERRS     498
           113  6170002232 +             E.IO19   ERROR  FV,PSL,(EXPECTED LEFT PAREN -- FOUND FILL.)             FERRS     499
           114  6170002234 +             E.IO20   ERROR  F,PSL,(INQUIRE MUST SPECIFY UNIT OR FILE)               FERRS     500
           115  6170002236 +             E.IO21   ERROR  F,PSL,(INQUIRE CANNOT SPECIFY BOTH UNIT AND FILE)       FERRS     501
          2240  502                      E.IO22   ERROR  A,*,(I/O KEYWORD BUFL IS NON- ANSI)                     FERRS     502
          2242  563                      E.IO23   ERROR  FS,*,(INTERNAL UNIT SPECIFIER CANNOT BE FILL.3)         FERRS     503
          2244  563                      E.IO24   ERROR  F,*,(INTERNAL UNIT SPECIFIER CANNOT BE ASSUMED SIZE ARR FERRS     504
                                        ,AY)                                                                     FERRS     505
           116  6170002246 +             E.IO25   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE FREE FORMAT)         FERRS     506
          2250  563                      E.IO26   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE FREE FORMAT)           FC5A338    11
           117  6170002252 +             E.IO28   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT BE NAMELIST)            FERRS     509
           120  6170002254 +             E.IO29   ERROR  F,PSL,(DIRECT ACCESS I/O CANNOT SPECIFY END)            FERRS     510
          2256  563                      E.IO30   ERROR  F,*,(INTERNAL UNIT SPECIFIER NOT ALLOWED FOR THIS STATE FERRS     511
                                        ,MENT)                                                                   FERRS     512
          2260  544                      E.IO31   ERROR  F,*,(UNIT SPECIFIER NOT LEGAL FILE NAME)                FC5A126    15
          2262  544                      E.IO32   ERROR  F,*,(UNIT SPECIFIER FILE NAME GREATER THAN 7 CHARACTERS FC5A126    16
                                        ,)                                                                       FC5A126    17
          2264  563                      E.IO33   ERROR  F,*,(INTERNAL FILE I/O CANNOT BE NAMELIST)              FERRS     516
          2266  563                      E.IO34   ERROR  F,*,(INTERNAL FILE REQUIRES A FORMAT)                   FC5A171A   13
          2270  563                      E.IO35   ERROR  F,*,(INTERNAL FILE WITHOUT FORMAT OR MISSING COMMA BEFO FC5A171A   14
                                        ,RE I/O LIST)                                                            FC5A171A   15
          2272  253                      E.IO36   ERROR  F,*,(LENGTH OF CHARACTER FORMAT SPECIFIER MUST BE GREAT FC5A171A   16
                                        ,ER THAN 1)                                                              FC5A171A   17
                                         E.IO37   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FC50887     6
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    29
        ERROR MESSAGE TEXTS                                           BUFFER
  
                                        **        BUFFER IN / OUT                                                FERRS     518
                                                                                                                 FERRS     519
                                                                                                                 FERRS     520
           121  6170002274 +             E.IOB0   ERROR  F,BUFERR,(BUFFER I/O ADDRESS CANNOT BE CHARACTER)       FERRS     521
           122  6170002276 +             E.IOB1   ERROR  F,BUFERR,(BUFFER DIRECTION SPECIFIER MUST BE IN OR OUT) FC5A126    18
           123  6170002300 +             E.IOB2   ERROR  F,BUFERR,(BUFFER I/O PARITY SPECIFIER MUST BE INTEGER C FC5A126    19
                                        ,ONSTANT OR VARIABLE)                                                    FERRS     524
           124  6170002302 +             E.IOB3   ERROR  FV,BUFERR,(EXPECTED LEFT PAREN -- FOUND FILL.)          FERRS     525
           125  6170002304 +             E.IOB4   ERROR  FV,BUFERR,(EXPECTED COMMA -- FOUND FILL.)               FERRS     526
           126  6170002306 +             E.IOB5   ERROR  FV,BUFERR,(EXPECTED RIGHT PAREN -- FOUND FILL.)         FERRS     527
           127  6170002310 +             E.IOB6   ERROR  F,BUFERR,(BUFFER I/O LWA MUST BE GREATER THAN OR EQUAL  FERRS     528
                                        ,TO FWA)                                                                 FERRS     529
          2313  444                      E.IOB7   ERROR  F,*,(BUFFER I/O ADDRESS CANNOT BE FILL.3)               FERRS     530
           130  6170002315 +             E.IOB8   ERROR  F,BUFERR,(BUFFER I/O PARITY INDICATOR VALUE MUST BE ZER FERRS     531
                                        ,O OR 1)                                                                 FERRS     532
           131  6170002317 +             E.IOB9   ERROR  W,BLWA,(FWA AND LWA NOT IN SAME ARRAY , EQUIVALENCE CLA FERRS     533
                                        ,SS , OR COMMON BLOCK)                                                   FERRS     534
  
  
  
  
                                        **        I/O IMPLIED DO                                                 FERRS     536
                                                                                                                 FERRS     537
                                                                                                                 FERRS     538
           132  6170002322 +             E.IOD1   ERROR  F,PSL,(EXCESS LEFT PAREN IN I/O LIST)                   FERRS     539
           133  6170002324 +             E.IOD2   ERROR  F,PSL,(SYNTAX ERROR IN I/O IMPLIED DO)                  FERRS     540
           134  6170002326 +             E.IOD3   ERROR  F,PSL,(EXCESS RIGHT PAREN IN I/O LIST)                  FERRS     541
                                         E.IOD4   EQUENT E.GE3       FV,FEC.RTN,(EXPECTED COMMA, FOUND FILL.)    FERRS     542
  
  
  
  
                                        **        I/O LIST                                                       FERRS     544
                                                                                                                 FERRS     545
                                                                                                                 FERRS     546
          2330  144                      E.IOL1   ERROR  A,*,(LIST DIRECTED OUTPUT CANNOT END WITH COMMA)        FC50643     5
          2332  004                      E.IOL2   ERROR  F,*,(FILL.3 IN INPUT LIST IS ILLEGAL)                   FERRS     547
          2334  132                      E.IOL5   ERROR  F,*,(ONLY LIST DIRECTED OUTPUT STATEMENTS MAY END WITH  FERRS     548
                                        ,A COMMA)                                                                FERRS     549
          2336  167                      E.IOL6   ERROR  FS,*,(ASSUMED SIZE ARRAY FILL. NOT ALLOWED IN I/O LIST) FERRS     550
           135  6170002340 +             E.IOL7   ERROR  F,PSL,(PREMATURE E.O.S. IN I/O LIST ITEM SUBSCRIPT)     FERRS     551
           136  6170002342 +             E.IOL8   ERROR  F,PSL,(EXCESS LEFT PAREN IN I/O LIST ITEM SUBSCRIPT)    FERRS     552
  
  
  
  
                                        **        I/O CONTROL VARIABLE FORMAT DESIGNATOR                         FERRS     554
                                                                                                                 FERRS     555
                                                                                                                 FERRS     556
           137  6170002344 +             E.IOF    ERROR  F,PSL,(ILLEGAL FORMAT SPECIFIER)                        FC5A126    20
          2345  055                      E.IOF1   ERROR  A,*,(CHARACTER ARRAY REQUIRED FOR FORMAT SPECIFIER)     FC5A126    21
           140  6170002347 +             E.IOF2   ERROR  F,PSL,(SCALAR FORMAT SPECIFIER MUST BE INTEGER)         FC5A126    22
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    30
        ERROR MESSAGE TEXTS                                           NAMELIST
  
                                        **        NAMELIST                                                       FERRS     561
                                                                                                                 FERRS     562
                                                                                                                 FERRS     563
          2351  502                      E.ION    ERROR  W,*,(I/O LIST IGNORED WHEN USING NAMELIST)              FERRS     564
          2353  036                      E.ION1   ERROR  A,*,(NAMELIST I/O IS NON- ANSI)                         FERRS     565
  
  
  
  
                                        **        ENCODE / DECODE.                                               FERRS     567
                                                                                                                 FERRS     568
                                                                                                                 FERRS     569
           141  6170002355 +             E.IOS1   ERROR  FV,FEC.RTN,(EXPECTED LEFT PAREN BEFORE COUNT -- FOUND F FERRS     570
                                        ,ILL.)                                                                   FERRS     571
           142  6170002357 +             E.IOS2   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER  COUNT -- FOUND FILL.) FERRS     572
           143  6170002361 +             E.IOS3   ERROR  FS,FEC.RTN,(FORMAT SPECIFIER FILL. IS NAMELIST NAME)    FC5A126    23
           144  6170002363 +             E.IOS4   ERROR  FV,FEC.RTN,(EXPECTED COMMA AFTER FORMAT SPECIFIER -- FO FC5A126    24
                                        ,UND FILL.)                                                              FERRS     575
           145  6170002365 +             E.IOS5   ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN AFTER STRING ADDRESS - FERRS     576
                                        ,- FOUND FILL.)                                                          FERRS     577
           146  6170002367 +             E.IOS6   ERROR  F,FEC.RTN,(PREMATURE E.O.S. IN ENCODE OR DECODE)        FERRS     578
          2371  517                      E.IOS7   ERROR  F,*,(STRING ADDRESS CANNOT BE FILL.)                    FERRS     579
           147  6170002373 +             E.IOS8   ERROR  FV,FEC.RTN,(ILLEGAL FORMAT SPECIFIER FILL.)             FC5A126    25
           150  6170002374 +             E.IOS9   ERROR  F,FEC.RTN,(ILLEGAL CHARACTER COUNT)                     FERRS     581
           151  6170002375 +             E.IOS10  ERROR  F,FEC.RTN,(STRING ADDRESS CANNOT BE CHARACTER)          FERRS     582
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    31
        ERROR MESSAGE TEXTS                                           PARENS
  
                                        **        PARENTHESIS MIS-MATCH.                                         FERRS     584
                                                                                                                 FERRS     585
                                                                                                                 FERRS     586
          2377  305                      E.LP1    ERROR  FV,*,(TOO FEW RIGHT PAREN OR PREVIOUS SYNTAX ERROR -- S FERRS     587
                                        ,CAN STOPPED AT FILL.)                                                   FERRS     588
          2402  305                      E.LP2    ERROR  FV,*,(TOO FEW LEFT PAREN OR PREVIOUS SYNTAX ERROR -- SC FERRS     589
                                        ,AN STOPPED AT FILL.)                                                    FERRS     590
          2405  056                      E.LP3    ERROR  FV,*,(EXPRESSION TOO COMPLICATED -- SCAN STOPPED AT ___ FERRS     591
                                        ,FILL.)                                                                  FERRS     592
  
  
  
  
                                        **        LEVEL PROCESSING                                               FERRS     594
                                                                                                                 FERRS     595
                                                                                                                 FERRS     596
           152  6170002407 +             E.LV1    ERROR  F,FEC.RTN,(INTEGER 0, 1 , 2 OR 3 MUST FOLLOW LEVEL)     FERRS     597
          2411  064                      E.LV2    ERROR  W,*,(COMMA MUST FOLLOW LEVEL NUMBER)                    FERRS     598
           153  6170002413 +             E.LV3    ERROR  F,FEC.RTN,(MISSING NAME IN LEVEL LIST)                  FERRS     599
           154  6170002415 +             E.LV4    ERROR  WS,LVL90,(MULTIPLY DEFINED LEVEL FOR NAME FILL. -- IGNO FERRS     600
                                        ,RED)                                                                    FERRS     601
           155  6170002417 +             E.LV5    ERROR  F,FEC.RTN,(COMMA OR E.O.S. MUST FOLLOW LEVEL LIST NAME) FERRS     602
          2421  110                      E.LV6    ERROR  FS,*,(NON- DUMMY ARGUMENT FILL. CANNOT BE LEVELED)      FERRS     603
           156  6170002423 +             E.LV7    ERROR  WS,LVL80,(MULTIPLY DEFINED LEVEL FOR COMMON BLOCK NAME  FERRS     604
                                        ,FILL. -- IGNORED)                                                       FERRS     605
           157  6170002425 +             E.LV8    ERROR  FS,LVL80,(COMMON BLOCK FILL. CANNOT BE DECLARED LEVEL 0 FERRS     606
                                        ,)                                                                       FERRS     607
          2427  160                      E.LV9    ERROR  FS,*,(ILLEGAL EXPLICIT LEVEL DECLARATION FOR COMMON MEM FERRS     608
                                        ,BER NAME FILL.)                                                         FERRS     609
          2431  622                      E.LV11   ERROR  FS,*,(LEVEL 3 NAME FILL. MAY NOT OCCUR IN THIS STATEMEN FERRS     610
                                        ,T)                                                                      FERRS     611
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    32
        ERROR MESSAGE TEXTS                                           FRONT 
  
                                        **        FRONT END CONTROLLER.                                          FERRS     613
                                                                                                                 FERRS     614
                                                                                                                 FERRS     615
           160  6170002433 +             E.FM     ERROR  F,FEC.RTN,(THIS IS NOT A FORTRAN STATEMENT)             FERRS     616
           161  6170002435 +             E.MA     ERROR  F,FEC.RTN,(STATEMENT FUNCTION DEFINITION MUST OCCUR BEF FERRS     617
                                        ,ORE FIRST EXECUTABLE)                                                   FERRS     618
          2437  161                      E.MB     ERROR  F,*,(EXECUTABLE STATEMENT ILLEGAL IN BLOCK DATA SUBPROG FERRS     619
                                        ,RAM)                                                                    FERRS     620
          2441  132                      E.MCA    ERROR  F,*,(ONLY "ANS.CONT" CONTINUATION LINES ARE PERMITTED)  FERRS     621
          2443  202                      E.INI    ERROR  W,*,(THIS STATEMENT HAS NO INITIAL LINE -- INITIAL_____ FERRS     622
                                        , ASSUMED)                                                               FERRS     623
          2445  110                      E.TLBL   ERROR  F,*,(NON- NULL LABEL FIELD ON CONTINUATION LINE)        FC5A220     5
                                                                                                                 FERRS     625
           162  6170002447 +             E.MD     ERROR  FS,FEC.RTN,(STATEMENT MISPLACED)                        FERRS     626
          2450  202                      E.MDO    ERROR  F,*,(THIS STATEMENT MAY NOT BE A DO TERMINAL)           FERRS     627
           163  6170002452 +             E.ME     ERROR  F,END23,(END LINE ABSENT)                               FERRS     628
                                         E.ME1    EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     629
           164  6170002453 +             E.MH     ERROR  F,FEC.RTN,(HEADER CARD NOT FIRST STATEMENT -- IGNORED)  FERRS     630
           165  6170002455 +             E.MI     ERROR  F,FEC.RTN,(IMPLICIT STATEMENT MUST OCCUR BEFORE DECLARA FERRS     631
                                        ,TIVE STATEMENTS)                                                        FERRS     632
           166  6170002457 +             E.MR1    ERROR  F,FEC.RTN,(PREMATURE E.O.S. OR MISSING RIGHT PAREN)     FERRS     633
           167  6170002461 +             E.MR2    ERROR  WV,FEC.RTN,(PREMATURE E.O.S. OR EXTRA TRAILING SEPARATO FERRS     634
                                        ,R FILL.)                                                                FERRS     635
           170  6170002463 +             E.MR3    ERROR  F,FEC.RTN,(PREMATURE E.O.S.)                            FERRS     636
          2464  101                      E.MS     ERROR  FS,*,(STATEMENT LABEL FILL. REFERENCED BUT NOT DEFINED) FERRS     637
                                                                                                                 FERRS     638
          2466  262                      E.NP     ERROR  T,*,(NO PATH TO THIS STATEMENT)                         FERRS     639
           171  6170002470 +             E.NP1    ERROR  T,PSL,(NO PATH TO THE ENTIRE RANGE OF DO)               FERRS     640
                                                                                                                 FERRS     641
           172  6170002472 +             E.OV1    ERROR  F,FEC.RTN,(OVERLAY DIRECTIVE MUST BEGIN WITH LEFT PAREN F1037F5   321
                                        ,)                                                                       F1037F5   322
          2474  060                      E.OV2    ERROR  FV,*,(EXPECTED LEFT PAREN OR PERIOD -- FOUND FILL.)     F1037F5   323
           173  6170002476 +             E.OV3    ERROR  F,FEC.RTN,(THIS STATEMENT MUST BE CONTAINED ON 1 CARD)  FERRS     644
          2500  650                      E.OV4    ERROR  F,*,(OVCAP DIRECTIVE CAN APPEAR ONLY WITH SUBROUTINES)  FC50409     5
                                                                                                                 FERRS     645
          2502  247                      E.PN1    ERROR  F,*,(SYNTAX ERROR IN PROGRAM UNIT NAME)                 FERRS     646
          2504  242                      E.PN3    ERROR  T,*,(MISSING PROGRAM STATEMENT -- PROGRAM START. ASSUME FERRS     647
                                        ,D)                                                                      FERRS     648
          2506  106                      E.SEQ    ERROR  F,*,(SEQUENCE NUMBER OUT OF ORDER)                      FC50096    37
          2510  112                      E.STO    ERROR  K,*,(SYMBOL TABLE OVERFLOW - REDUCE NUMBER OF SYMBOLS)  FC51347    18
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    33
        COMFERR                                                       COMFERR 
  
           174                           COMFERR  CTEXT  COMFERR                                                 COMFERR     2
  
  
  
  
                                        **        COMMON DIAGNOSTIC SKELETONS                                    COMFERR     4
                                        *                                                                        COMFERR     5
                                        *         ALL DIAGNOSTICS APPEARING IN DECKS BELOW SHOULD BE PLACED IN   COMFERR     6
                                        *         THIS COMDECK.                                                  COMFERR     7
                                        *                                                                        COMFERR     8
                                        *         REC, RLINK, PEM, ALLOC, FAS, MAP, LIST                         COMFERR     9
                                                                                                                 COMFERR    10
                                                                                                                 COMFERR    11
          2512  115                      E.MO1    ERROR  F,*,(PROGRAM LENGTH EXCEEDS 2**17-1)                    COMFERR    12
          2513  655                      E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN) COMFERR    13
                                                                                                                 COMFERR    15
                                         .TEST    IFEQ   TEST,ON     IF TESTMODE                                 COMFERR    16
                                         E.MO4    ERROR  D,*,(PREBINARY SPILLS TO DISK)                          COMFERR    17
                                         E.MO5    ERROR  D,*,(REFERENCE FILE SPILLS TO DISK)                     COMFERR    18
                                         E.MO6    ERROR  DS,*,(THRESHOLD REACHED -- ONLY FILL. LEFT OUT OF FILL. COMFERR    19
                                        ,2)                                                                      COMFERR    20
                                         E.MO7    ERROR  D,*,(LINK AND FILL TABLES SPILLS TO DISK)               COMFERR    21
                                         .TEST    ENDIF                                                          COMFERR    22
                                                                                                                 COMFERR    23
          2515  664                      E.MO8    ERROR  F,*,("SCM" COMMON BLOCK LENGTH EXCEEDS "MAX.SPCM")      COMFERR    24
                                                                                                                 COMFERR    25
                                         .T       IFEQ   TEST,ON                                                 COMFERR    26
                                         E.TC1    ERROR  DS,*,(TABLE FILL. CRASH)                                COMFERR    27
                                         .T       ENDIF                                                          COMFERR    28
                                                                                                                 COMFERR    29
                                         COMFERR  ENDX                                                           COMFERR    30
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    34
        ERROR MESSAGE TEXTS.                                          MDERR 
  
                                        **        ASSORTED MACHINE DEPENDENT ERRORS.                             F1037F5   327
                                                                                                                 F1037F5   328
          2517  665                      E.MDE1   ERROR  M,*,(OVERLAYS ARE MACHINE DEPENDENT)                    F1037F5   329
          2520  047                      E.MDE2   ERROR  M,*,(BOOLEAN DATA TYPE IS MACHINE DEPENDENT)            F1037F5   330
          2522  444                      E.MDE3   ERROR  M,*,(BUFFER I/O IS MACHINE DEPENDENT)                   F1037F5   331
          2524  670                      E.MDE4   ERROR  M,*,(ENCODE/DECODE ARE MACHINE DEPENDENT)               F1037F5   332
          2526  672                      E.MDE5   ERROR  M,*,(LIBRARY FUNCTIONS DATE, TIME, AND CLOCK ARE MACHIN F1037F5   333
                                        ,E DEPENDENT)                                                            F1037F5   334
          2530  677                      E.MDE6   ERROR  M,*,(OVCAPS ARE MACHINE DEPENDENT)                      F1037F5   335
  
  
  
  
                                        **        NAMELIST PROCESSING.                                           FERRS     652
                                                                                                                 FERRS     653
                                                                                                                 FERRS     654
           174  6170002531 +             E.NL     ERROR  F,FEC.RTN,(SYNTAX ERROR IN NAMELIST)                    FERRS     655
           175  6170002532 +             E.NL1    ERROR  F,FEC.RTN,(MISSING SLASH ON GROUP NAME)                 FERRS     656
           176  6170002534 +             E.NL2    ERROR  FV,FEC.RTN,(EXPECTED NAME -- FOUND FILL.)               FERRS     657
           177  6170002536 +             E.NL3    ERROR  FS,FEC.RTN,(GROUP NAME FILL. PREVIOUSLY DEFINED)        FERRS     658
           200  6170002540 +             E.NL4    ERROR  F,FEC.RTN,(ASSUMED SIZE ARRAY NOT PERMITTED IN NAMELIST FERRS     659
                                        ,)                                                                       FERRS     660
           201  6170002542 +             E.NL5    ERROR  FV,FEC.RTN,(EXPECTED SYMBOL -- FOUND FILL. STATEMENT SC FC51193    10
                                        ,AN STOPPED)                                                             FC51193    11
  
  
  
  
                                        **        PARAMETER AND CONSTANT EXPRESSIONS.                            FERRS     662
                                                                                                                 FERRS     663
                                                                                                                 FERRS     664
          2544  002                      E.PX1    ERROR  FV,*,(FILL. MUST BE INTEGER CONSTANT EXPRESSION)        FERRS     665
          2546  060                      E.PX2    ERROR  WV,*,(EXPECTED LEFT PAREN -- FOUND FILL.)               FERRS     666
           202  6170002550 +             E.PX3    ERROR  FV,PRMERR,(EXPECTED NAME -- FOUND FILL.)                FERRS     667
           203  6170002552 +             E.PX4    ERROR  FV,PRMERR,(EXPECTED EQUAL SIGN -- FOUND FILL.)          FERRS     668
                                         E.PX5    EQUENT E.GE        FV,FEC.RTN,(EXP RP OR COMMA, FOUND FILL.)   FERRS     669
          2554  002                      E.PX6    ERROR  FV,*,(FILL. EXPRESSION NOT CONSTANT, OR NOT EVALUATABLE FC5A184    36
                                        ,)                                                                       FC5A218    33
          2556  012                      E.PX7    ERROR  F,*,(PARAMETER REQUIRES INTEGER EXPONENTIATION)         FC5A156     8
                                         E.PX8    EQUENT E.GE6       FV,FEC.RTN,(EXPECTED E.O.S. -- FOUND FILL.) FC5A278     7
  
  
  
  
                                        **        SAVE PROCESSOR                                                 FERRS     672
                                                                                                                 FERRS     673
                                                                                                                 FERRS     674
          2560  705                      E.SA     ERROR  W,*,(UNIVERSAL SAVE DECLARED -- OTHER SAVE STATEMENTS A FERRS     675
                                        ,RE REDUNDANT)                                                           FERRS     676
           204  6170002562 +             E.SA1    ERROR  FV,SAVERR,(EXPECTED VARIABLE OR COMMON BLOCK NAME -- FO FERRS     677
                                        ,UND FILL.)                                                              FERRS     678
          2564  002                      E.SA2    ERROR  WS,*,(FILL. REDUNDANTLY DECLARED IN SAVE)               FERRS     679
           205  6170002566 +             E.SA3    ERROR  FV,SAVERR,(EXPECTED SLASH -- FOUND FILL.)               FERRS     680
           206  6170002570 +             E.SA4    ERROR  FV,SAVERR,(EXPECTED COMMA -- FOUND FILL.)               FERRS     681
          2572  134                      E.SA5    ERROR  FS,*,(DUMMY ARGUMENT FILL. MAY NOT APPEAR IN SAVE)      FERRS     682
          2574  021                      E.SA6    ERROR  FS,*,(COMMON ELEMENT FILL. MAY NOT APPEAR IN SAVE)      FERRS     683
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    35
        ERROR MESSAGE TEXTS.                                          SUBSPT
  
                                        **        SUBSCRIPT PROCESSOR.                                           FERRS     685
                                                                                                                 FERRS     686
                                                                                                                 FERRS     687
          2576  324                      E.SB2    ERROR  FS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT A NUMERIC TYPE)  FERRS     688
          2600  324                      E.SB3    ERROR  AS,*,(SUBSCRIPT FILL.2 OF FILL. IS NOT TYPE INTEGER)    FERRS     689
          2602  710                      E.SB4    ERROR  FS,*,(MAGNITUDE OF SUBSCRIPT FILL.2 OF FILL. EXCEEDS __ FERRS     690
                                        ,"MAX.SPAN")                                                             FERRS     691
          2604  324                      E.SB5    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES LOWER ________ FERRS     692
                                        ,DIMENSION BOUND)                                                        FERRS     693
          2606  324                      E.SB6    ERROR  WS,*,(SUBSCRIPT FILL.2 OF FILL. VIOLATES UPPER ________ FERRS     694
                                        ,DIMENSION BOUND)                                                        FERRS     695
          2610  014                      E.SB7    ERROR  FS,*,(ARRAY FILL. SUBSCRIPT COUNT DOES NOT MATCH DIMENS FERRS     696
                                        ,ION COUNT)                                                              FERRS     697
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    36
        ERROR MESSAGE TEXTS.                                          STMTF 
  
                                        **        STATEMENT FUNCTION PROCESSOR / STATEMENT FUNCTION EXPANSION    FC5A300     8
                                                                                                                 FERRS     700
                                                                                                                 FERRS     701
                                         E.SF00   EQUENT E.GE        FV,FEC.RTN,(EXP RP OR COMMA, FOUND FILL.)   FERRS     702
           207  6170002612 +             E.SF01   ERROR  FS,FEC.RTN,(STATEMENT FUNCTION FILL.3 -- MISPLACED EQUA FC5A300     9
                                        ,L SIGN)                                                                 FC5A300    10
           210  6170002614 +             E.SF02   ERROR  WS,FEC.RTN,(STATEMENT FUNCTION FILL.3 HAS NULL DEFINITI FC5A300    11
                                        ,ON -- IGNORED)                                                          FC5A300    12
           211  6170002616 +             E.SF03   ERROR  FS,SFDEX,(RECURSIVE DEFINITION OF STATEMENT FUNCTION FI FC5A300    13
                                        ,LL.3)                                                                   FC5A300    14
          2620  143                      E.SF04   ERROR  TS,*,(ARGUMENT FILL.2 IS NOT USED IN STATEMENT FUNCTION FC5A300    15
                                        , FILL.3)                                                                FC5A300    16
          2622  134                      E.SF05   ERROR  FS,*,(DUMMY ARGUMENT FILL.2 CAN OCCUR ONLY ONCE IN FILL FC5A300    17
                                        ,.3 DEFINITION)                                                          FC5A300    18
          2624  101                      E.SF06   ERROR  FV,*,(STATEMENT FUNCTION DUMMY PARAMETER FILL. NOT SIMP FC5A192    37
                                        ,LE VARIABLE)                                                            FC5A192    38
          2626  265                      E.SF07   ERROR  WS,*,(PREVIOUS DEFINITION OF STATEMENT FUNCTION FILL. I FERRS     715
                                        ,S OVERRIDDEN)                                                           FERRS     716
           212  6170002630 +             E.SF08   ERROR  FS,FEC.RTN,(USAGE CONFLICT -- FILL.3 CANNOT BE STATEMEN FC5A300    19
                                        ,T FUNCTION)                                                             FC5A300    20
          2632  716                      E.SF09   ERROR  FS,*,(UNMATCHED PARAMETER COUNT TO STATEMENT FUNCTION F FERRS     722
                                        ,ILL.)                                                                   FERRS     723
          2634  101                      E.SF10   ERROR  FS,*,(STATEMENT FUNCTION FILL. INDIRECTLY REFERENCES IT FERRS     724
                                        ,SELF)                                                                   FERRS     725
          2636  101                      E.SF11   ERROR  AS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B FERRS     726
                                        ,E AN ARRAY)                                                             FERRS     727
          2640  101                      E.SF12   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 MUST BE  FC50106     6
                                        ,USED AS SIMPLE VARIABLE)                                                FC50106     7
          2643  101                      E.SF13   ERROR  A,*,(STATEMENT FUNCTION ACTUAL ARGUMENT MUST AGREE IN T FC50148     6
                                        ,YPE WITH DUMMY ARGUMENT)                                                FC50148     7
          2646  101                      E.SF14   ERROR  FS,*,(STATEMENT FUNCTION DUMMY ARGUMENT FILL.2 CANNOT B FC5A300    21
                                        ,E ASSUMED LENGTH)                                                       FC5A300    22
          2650  101                      E.SF15   ERROR  FS,*,(STATEMENT FUNCTION FILL. OF TYPE FILL.3 CANNOT AC FC50474     6
                                        ,CEPT RESULT OF TYPE FILL.2)                                             FC50474     7
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    37
        ERROR MESSAGE TEXTS.                                          ST.LAB
  
                                        **        STATEMENT LABEL PROCESSOR.                                     FERRS     729
                                                                                                                 FERRS     730
                                                                                                                 FERRS     731
          2653  623                      E.SL00   ERROR  FS,*,(MULTIPLY DEFINED STATEMENT LABEL FILL.)           FERRS     732
          2655  265                      E.SL01   ERROR  FS,*,(PREVIOUS REFERENCE TO LABEL FILL. WAS ILLEGAL)    FERRS     733
          2657  323                      E.SL02   ERROR  FS,*,(DO LOOP FILL.2 PREVIOUSLY DEFINED -- ILLEGAL NEST FERRS     734
                                        ,ING)                                                                    FERRS     735
          2661  074                      E.SL03   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS DO FERRS     736
                                        , TERMINAL)                                                              FERRS     737
          2663  074                      E.SL04   ERROR  FS,*,(USAGE CONFLICT -- FILL.2 PREVIOUSLY DEFINED AS FO FERRS     738
                                        ,RMAT)                                                                   FERRS     739
          2665  160                      E.SL05   ERROR  FS,*,(ILLEGAL TRANSFER TO FILL.2 FORMAT)                FERRS     740
          2667  160                      E.SL06   ERROR  FS,*,(ILLEGAL REFERENCE TO STATEMENT LABEL FILL. AS A F FERRS     741
                                        ,ORMAT)                                                                  FERRS     742
          2671  265                      E.SL07   ERROR  FS,*,(PREVIOUS REFERENCE TO DO LABEL FILL.2 IS ILLEGAL) FERRS     743
          2673  265                      E.SL08   ERROR  FS,*,(PREVIOUS REFERENCE TO FORMAT LABEL FILL.2 IS ILLE FERRS     744
                                        ,GAL)                                                                    FERRS     745
          2675  003                      E.SL09   ERROR  FS,*,(FILL.2 -- ILLEGAL TRANSFER TO INSIDE A CLOSED DO  FERRS     746
                                        ,LOOP OR IF BLOCK)                                                       FERRS     747
          2700  453                      E.SL10   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS DO STATEMENT FERRS     748
                                        , LABEL)                                                                 FERRS     749
          2702  160                      E.SL11   ERROR  FS,*,(ILLEGAL REFERENCE TO LABEL FILL.2 DEFINED ON NON- FERRS     750
                                        , EXECUTABLE STATEMENT)                                                  FERRS     751
          2704  453                      E.SL12   ERROR  F,*,(FORMAT LABEL PREVIOUSLY REFERENCED AS CONTROL STAT FERRS     752
                                        ,EMENT LABEL)                                                            FERRS     753
          2706  074                      E.SL13   ERROR  FS,*,(USAGE CONFLICT -- FILL. PREVIOUSLY USED AS A FORM FERRS     754
                                        ,AT LABEL)                                                               FERRS     755
          2710  101                      E.SL14   ERROR  FS,*,(STATEMENT LABEL FILL. EXCEEDS 5 DIGITS)           FERRS     756
          2712  101                      E.SL15   ERROR  FS,*,(STATEMENT LABEL FILL. CONTAINS NON- DIGIT)        FERRS     757
          2714  145                      E.SL16   ERROR  F,*,(MULTIPLE DEFINITION OF CURRENT FORMAT LABEL)       FERRS     758
          2716  217                      E.SL17   ERROR  FS,*,(THE TERMINAL STATEMENT OF DO FILL.2 PRECEEDED THE FERRS     759
                                        , DO DEFINITION)                                                         FERRS     760
           213  6170002720 +             E.SL18   ERROR  F,PSL,(STATEMENT LABEL EXPECTED BUT NOT FOUND)          FERRS     761
          2722  214                      E.SL19   ERROR  F,*,(INVALID STATEMENT LABEL)                           FC5A168A    4
          2723  003                      E.SL20   ERROR  WS,*,(FILL.2 -- ALTERNATE RETURN TO INSIDE A CLOSED DO  FC51356    13
                                        ,LOOP OR IF BLOCK)                                                       FC51356    14
  
  
  
  
                                        **        SUBSTRING EXPRESSION PROCESSING.                               FERRS     765
                                                                                                                 FERRS     766
                                                                                                                 FERRS     767
          2726  247                      E.ST     ERROR  FS,*,(SYNTAX ERROR IN SUBSTRING EXPRESSION FOR FILL.)   FERRS     768
          2730  732                      E.ST1    ERROR  FS,*,(SUBSTRINGED VARIABLE FILL. NOT TYPE CHARACTER)    FERRS     769
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    38
        ERROR MESSAGE TEXTS.                                          STOP
  
                                        **        STOP / PAUSE / RETURN PROCESSING.                              FERRS     771
                                                                                                                 FERRS     772
                                                                                                                 FERRS     773
          2732  263                      E.SPR1   ERROR  W,*,(UNKNOWN FORM -- BLANK ASSUMED)                     FERRS     774
          2734  057                      E.SPR2   ERROR  W,*,(CONSTANT EXCEEDS 5 DIGITS -- TRUNCATED)            FERRS     775
                                         E.SPR4   EQUENT E.GE4       WV,*,(EXPECTED EOS -- FOUND, IGNORED FILL.) FERRS     777
          2736  417                      E.SPR5   ERROR  F,*,(ALTERNATE RETURN IS ILLEGAL IN A FUNCTION)         FERRS     778
  
  
  
  
                                        **        SUBROUTINE/FUNCTION REFERENCE PROCESSING.                      FERRS     780
                                                                                                                 FERRS     781
                                                                                                                 FERRS     782
          2740  733                      E.SU01   ERROR  F,*,(CONCATENATION OF ASSUMED LENGTH VARIABLE NOT ALLOW FERRS     783
                                        ,ED HERE)                                                                FERRS     784
          2742  443                      E.SU02   ERROR  WS,*,(NUMBER OF ARGUMENTS IN REFERENCE TO FILL. IS NOT  FERRS     785
                                        ,CONSISTENT)                                                             FERRS     786
          2744  143                      E.SU03   ERROR  FS,*,(ARGUMENT MODE MUST AGREE WITH TYPE DEFINED FOR LI FERRS     787
                                        ,BRARY FUNCTION FILL.)                                                   FERRS     788
          2747  002                      E.SU04   ERROR  AS,*,(FILL. IS DEFINED TO BE INTRINSIC)                 FERRS     789
          2751  143                      E.SU05   ERROR  FS,*,(ARGUMENT COUNT ON INTRINSIC FILL. IS WRONG)       FERRS     790
          2753  016                      E.SU06   ERROR  FS,*,(FUNCTION NAME OR ENTRY OF TYPE FILL. WAS NOT ASSI FERRS     791
                                        ,GNED A VALUE)                                                           FERRS     792
          2756  143                      E.SU07   ERROR  FS,*,(ARGUMENT MODE ILLEGAL FOR GENERIC FUNCTION FILL.) FERRS     793
          2760  143                      E.SU08   ERROR  FS,*,(ARGUMENT COUNT ON FILL. EXCEEDS "MAX.SARG")       FERRS     794
          2762  143                      E.SU09   ERROR  FS,*,(ARGUMENT COUNT ON FILL. MUST BE MORE THAN ONE)    FERRS     795
          2764  060                      E.SU10   ERROR  FV,*,(EXPECTED EOS -- FOUND FILL.)                      FC50966     5
                                         E.SU11   EQUENT E.SPR5      F,*,(ALTERNATE RETURN ILLEGAL IN FUNC.)     FERRS     797
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    39
        ERROR MESSAGE TEXTS.                                          TYPE
  
                                        **        TYPE PROCESSOR.                                                FERRS     799
                                        *                                                                        FERRS     800
                                        *         EXPLICIT DECLARATIONS                                          FERRS     801
                                                                                                                 FERRS     802
                                                                                                                 FERRS     803
                                         E.TY     EQUENT E.GE1             FV,*,(EXPECTED COMMA FOUND FILL.)     FERRS     804
          2766  015                      E.TY0    ERROR  WS,*,(SUBROUTINE FILL. CANNOT BE TYPED -- TYPING IGNORE FC5A338    12
                                        ,D)                                                                      FC5A338    13
          2770  535                      E.TY1    ERROR  TS,*,(CONFIRMING RETYPING OF FILL. -- IGNORED)          FC50972     8
          2772  031                      E.TY2    ERROR  WS,*,(INTRINSIC FILL. TYPED NON- CONFIRMING -- TYPING I FC5A227    69
                                        ,GNORED)                                                                 FC5A227    70
          2774  743                      E.TY3    ERROR  F,*,(CHAR LENGTH NOT POSITIVE CONSTANT, ( POSITIVE CONS FC5A262    19
                                        ,TANT EXPRESSION ) OR ( * ) )                                            FC5A262    20
          2777  055                      E.TY4    ERROR  F,*,(CHARACTER LENGTH GREATER THAN "MAX.CL")            FERRS     810
           214  6170003001 +             E.TY5    ERROR  FV,FEC.RTN,(EXPECTED RIGHT PAREN -- FOUND FILL.)        FERRS     811
          3003  055                      E.TY6    ERROR  F,*,(CHARACTER LENGTH ZERO ILLEGAL)                     FERRS     812
          3004  002                      E.TY7    ERROR  FS,*,(FILL. CANNOT HAVE ASSUMED CHARACTER LENGTH)       FC5A126    27
          3006  012                      E.TY8    ERROR  FS,*,(PARAMETER FILL. TYPE OR CHARACTER LENGTH CANNOT B FC5A225    10
                                        ,E MODIFIED AFTER PARAMETER STATEMENT)                                   FC5A225    11
          3011  027                      E.TY9    ERROR  WS,*,(GENERIC ONLY INTRINSIC FILL. TYPED -- TYPING INGN FC5A227    71
                                        ,ORED)                                                                   FC5A227    72
          3013  110                      E.TY10   ERROR  FS,*,(NON- CONFIRMING RETYPING OF FILL.)                FC50972     9
                                                                                                                 FERRS     814
                                        *         IMPLICIT DECLARATIONS                                          FERRS     815
                                                                                                                 FERRS     816
           215  6170003015 +             E.TYI    ERROR  F,FEC.RTN,(IMPLICIT MUST BE FOLLOWED BY A TYPE INDICATO FERRS     817
                                        ,R)                                                                      FERRS     818
           216  6170003017 +             E.TYI1   ERROR  FV,IMP.ER,(EXPECTED LEFT PAREN -- FOUND FILL.)          FERRS     819
           217  6170003021 +             E.TYI2   ERROR  FV,IMP.ER,(EXPECTED RANGE INDICATOR -- FOUND FILL.)     FERRS     820
          3023  404                      E.TYI3   ERROR  WS,*,(RANGE INDICATOR FILL. NOT 1 LETTER -- TRUNCATED T FERRS     821
                                        ,O FILL.3)                                                               FERRS     822
          3025  160                      E.TYI4   ERROR  FS,*,(ILLEGAL RANGE -- FILL.2 NOT LESS THAN FILL. -- TR FERRS     823
                                        ,UNCATED)                                                                FERRS     824
          3027  426                      E.TYI5   ERROR  WS,*,(TRIVIAL RANGE -- FILL.2 SAME AS FILL.)            FERRS     825
           220  6170003031 +             E.TYI6   ERROR  FV,IMP.ER,(EXPECTED RIGHT PAREN -- FOUND FILL.)         FERRS     826
           221  6170003033 +             E.TYI7   ERROR  FV,IMP.ER,(EXPECTED E.O.S. -- FOUND AND IGNORED FILL.)  FERRS     827
          3035  075                      E.TYI8   ERROR  W,*,(CONFLICT IN RANGE INDICATOR -- FIRST RETAINED)     FERRS     828
          3037  167                      E.TYI9   ERROR  F,*,(ASSUMED CHARACTER LENGTH ILLEGAL FOR IMPLICIT)     FERRS     829
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    40
        ERROR MESSAGE TEXTS.                                          VARIABLE
  
                                        **        TRANSLATION OF VARIABLE SECTION.                               FERRS     831
                                                                                                                 FERRS     832
                                                                                                                 FERRS     833
                                         E.VA00   EQUENT E.GE5             (USEAGE CONFLICT ...)                 FC5A184    37
          3041  160                      E.VA01   ERROR  FS,*,(ILLEGAL USE OF ENTRY FILL.)                       FERRS     836
          3043  074                      E.VA02   ERROR  FS,*,(USAGE CONFLICT -- FILL. IS FILL.2 AND CANNOT BE F FERRS     837
                                        ,ILL.3)                                                                  FERRS     838
          3045  124                      E.VA03   ERROR  FS,*,(REFERENCE TO VARIABLE FILL. AS A FUNCTION OR ARRA FERRS     839
                                        ,Y)                                                                      FERRS     840
          3047  124                      E.VA04   ERROR  FS,*,(REFERENCE TO EXTERNAL FILL. REQUIRES AN ARGUMENT  FC5A164    43
                                        ,LIST)                                                                   FERRS     842
          3051  752                      E.VA05   ERROR  FS,*,(UNDECLARED INTRINSIC OR EXTERNAL FUNCTION FILL. _ FERRS     843
                                        ,USED AS ACTUAL ARGUMENT)                                                FERRS     844
          3053  031                      E.VA06   ERROR  FS,*,(INTRINSIC FUNCTION FILL. NOT ALLOWED AS ACTUAL __ FERRS     845
                                        ,ARGUMENT)                                                               FERRS     846
          3055  015                      E.VA07   ERROR  WS,*,(SUBROUTINE FILL. REFERENCE AS FUNCTION)           FC5A294     5
          3057  014                      E.VA08   ERROR  FS,*,(ARRAY FILL. MISSING SUBSCRIPT)                    FERRS     848
           222  6170003060 +             E.VA09   ERROR  FV,PSL,(EXPECTED SYMBOL -- FOUND FILL. STATEMENT SCAN S FC50110     9
                                        ,TOPPED)                                                                 FERRS     850
          3062  244                      E.VA10   ERROR  FS,*,(NAME EXCEEDS 7 CHARACTERS -- TRUNCATED TO FILL.)  FERRS     851
          3064  155                      E.VA11   ERROR  F,*,(LEFT SIDE OF EQUAL SIGN IS ILLEGAL)                FERRS     852
          3066  022                      E.VA12   ERROR  FS,*,(DUMMY-ARG FUNCTION FILL. CANNOT HAVE ASSUMED CHAR FC5A126    28
                                        ,ACTER LENGTH)                                                           FC5A126    29
           223  6170003070 +             E.VA13   ERROR  FS,FEC.RTN,(ILLEGAL USE OF NAMELIST GROUP NAME FILL.)   FERRS     855
  
  
  
  
                                        **        EXPONENTIATION PROCESSOR.                                      FERRS     857
                                                                                                                 FERRS     858
                                                                                                                 FERRS     859
          3072  177                      E.XP1    ERROR  F,*,(OPERAND TO ** OPERATOR MUST NOT BE LOGICAL)        FERRS     860
          3074  336                      E.XP3    ERROR  T,*,(ZERO ** ZERO -- RESULTS INDEFINITE)                FERRS     862
          3076  051                      E.XP4    ERROR  T,*,(INTEGER ** NEGATIVE CONSTANT -- RESULTS ZERO)      FERRS     863
          3100  057                      E.XP5    ERROR  T,*,(CONSTANT ** CONSTANT CANNOT BE EVALUATED)          FERRS     864
          3102  177                      E.XP6    ERROR  F,*,(OPERAND OF ** OPERATOR MUST NOT BE TYPE CHARACTER) FERRS     865
          3104  007                      E.XP7    ERROR  T,*,(VARIABLE ** ZERO -- RESULT ASSUMED ONE)            FC5A126    30
  
  
  
  
                                        **        TEMPORARY ERROR MESSAGES.                                      FERRS     868
                                                                                                                 FERRS     869
                                                                                                                 FERRS     870
                                         .T       IFEQ   TEST,ON                                                 FERRS     871
                                         E.ZEMT   ERROR  F,*,(FOLLOWING TURPLE ILL SKEL)                         FERRS     872
                                         .T       ENDIF                                                          FERRS     873
                                                                                                                 FERRS     874
                                                                                                                 FERRS     875
                                        *** END                                                                  FERRS     876
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    41
        FRONT END ERROR PROCESSING ROUTINES                           OSE 
  
                                        **        OSE -  OUTPUT SUBSCRIPT ERROR.                                 FERRS     879
                                        *                                                                        FERRS     880
                                        *         NOTE   ALL ERRORS USING THIS ROUTINE MUST USE --               FERRS     881
                                        *                            FILL.  AS ARRAY NAME.                       FERRS     882
                                        *                            FILL.2 AS SUBSCRIPT NUMBER.                 FERRS     883
                                        *                ALL ERRORS MUST HAVE EXIT ADDRESS AS = *                FERRS     884
                                        *                                                                        FERRS     885
                                        *                THIS ROUTINE IS TO BE CONSIDERED AS PART OF *PDM*       FERRS     886
                                        *                                                                        FERRS     887
                                        *         ENTRY  (B7) = ADDRESS OF ERROR.                                FERRS     888
                                        *                (X1) = ARRAY NAME, *ARGMIS/AS.* FORMAT                  FERRS     889
                                        *                (X4) = 42/IGNORED , 18/SUBSCRIPT NUMBER                 FERRS     890
                                        *                                                                        FERRS     891
                                        *         EXIT   ERROR OUTPUTTED.                                        FERRS     892
                                        *                                                                        FERRS     893
                                        *         USES   X - 1,6,7.    A - 1,6,7.    B - 7.                      FERRS     894
                                                                                                                 FERRS     895
                                                                                                                 FERRS     896
           224  0400400224 +             OSE      SUBR   =           ENTRY/EXIT...                               FERRS     897
           225  5110000002 X                      SA1    SCR+AS.W    ARRAY NAME, *ARGMIS* (-L-) FORMAT           FERRS     898
                          76770                   SX7    B7                                                      FERRS     899
                               10611              BX6    X1                                                      FERRS     900
           226  5160000246 +                      SA6    FILL.                                                   FERRS     901
                          5110000224 +            SA1    OSEX                                                    FERRS     902
           227  6170000242 +                      SB7    OSEA        SET EXIT ADDRESS FOR CURRENT ENTRY TO PWE   FERRS     903
                          10611                   BX6    X1                                                      FERRS     904
                               56771              =A7    B7+1        SAVE ERROR                                  FERRS     905
           230  5160000000 X                      SA6    PDM         SET RETURN ADDRESS                          FERRS     906
                                                  LX4    -AC.CNTP                                                FERRS     907
                          73640                   SX6    X4                                                      FERRS     908
                                   0              ERRNZ  AC.CNTL-18                                              FERRS     909
                                                  LX4    AC.CNTP                                                 FERRS     910
                               54671              =A6    A7+1        SAVE SUBSCRIPT NUMBER                       FERRS     911
           231  0400000001 X                      EQ     PDM+1       ENTER REGISTER SAVE ROUTINE                 FERRS     912
                                                                                                                 FERRS     913
                                        *         RETURN AFTER SAVING REGISTERS                                  FERRS     914
                                                                                                                 FERRS     915
           232  0400400232 +             OSE2     EQ     "BLOWUP"    **NOTICE** - PDM JUMPS TO NEXT WORD         FERRS     916
           233  5110000244 +                      SA1    OSEB+1      SUBSCRIPT NUMBER                            FERRS     917
                          6170000074              SB7    10*CHAR                                                 FERRS     918
           234  43071                             MX0    -3                                                      FERRS     919
                     13222                        BX2    0                                                       FERRS     920
                          6120000033              SB2    1R0                                                     FERRS     921
                                                                                                                 FERRS     922
                                        **        CONVERT SUBSCRIPT NUMBER TO *DPC*.                             FERRS     923
                                        *         (X0) = MASK OF 3.                                              FERRS     924
                                        *         (X1) = SUBSCRIPT NUMBER IN LOWER 18 BITS.                      FERRS     925
                                                                                                                 FERRS     926
           235  15610                    OSE5     BX6    -X0*X1      EXTRACT DIGIT                               FERRS     927
                     6177777771                   SB7    B7-CHAR                                                 FERRS     928
                               73662              SX6    X6+B2       CONVERT TO *DPC*                            FERRS     929
           236  21103                             AX1    3           DOWN ONE DIGIT                              FERRS     930
                     12226                        BX2    X2+X6       ACCUMULATE                                  FERRS     931
                          0311000235 +            NZ     X1,OSE5     IF NOT FINISHED.                            FERRS     932
           237  22672                             LX6    X2,B7       LEFT JUSTIFY                                FERRS     933
                     5110000243 +                 SA1    OSEB                                                    FERRS     934
           240  5160000247 +                      SA6    FILL.2      NUMBER TO ERROR                             FERRS     935
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    42
        FRONT END ERROR PROCESSING ROUTINES                           OSE 
  
                                                                                                                 FERRS     936
                                        **        OUTPUT SELECTED ERROR.                                         FERRS     937
                                                                                                                 FERRS     938
                          63710                   SB7    X1                                                      FERRS     939
           241  0400000001 X                      EQ     PEMS+1      OUTPUT DIAGNOSTIC (SKIPPING SVR= CALL)      FERRS     940
                                                                                                                 FERRS     941
           242  00000000000000400232 +   OSEA     CON    OSE2+4S15   EXIT ADDR FOR REGISTER SAVE                 FERRS     942
           243  00000000000000000000     OSEB     DATA   0,0         ERROR ADDRESS                               FERRS     943
                                                                                                                 FERRS     944
                                                  LIST   D                                                       FERRS     945
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ERR.K 
             0 X                        ERR.M 
  
                                        CONTENT OF LITERALS BLOCK.
  
           245  55555555555555555555
           246  06111414575555555572    FILL.    <
           247  06111414573555555573    FILL.2   >
           250  06111414573655555573    FILL.3   >
           251  14010205145555555572    LABEL    <
           252  46111624052216011446    -INTERNAL-
           253  26012211010214055575    VARIABLE \
           254  16172446260122555574    NOT-VAR  @
           255  04050611160504555574    DEFINED  @
           256  20012201150524052276    PARAMETER^
           257  05212511265755555573    EQUIV.   >
           260  01222201315555555572    ARRAY    <
           261  23250222172524111605    SUBROUTINE
           262  06251603241117165575    FUNCTION \
           263  05162422315555555572    ENTRY    <
           264  05302405221601145776    EXTERNAL.^
           265  03171515171655555573    COMMON   >
           266  04251515314601220776    DUMMY-ARG^
           267  05032355555555555570    ECS      '
           270  14170306555555555571    LOCF     ?
           271  05212511264602012305    EQUIV-BASE
           272  14170104461716143176    LOAD-ONLY^
           273  07051605221103555574    GENERIC  @
           274  05302405221601145575    EXTERNAL \
           275  11162422111623110376    INTRINSIC^
           276  01232311071655555573    ASSIGN   >
           277  24312005045555555572    TYPED    <
           300  24315411162405070522    TY=INTEGER
           301  14052605140504555574    LEVELED  @
           302  16011505141123245575    NAMELIST \
           303  23012605555555555571    SAVE     ?
           304  15012405221101145575    MATERIAL \
           305  23242201315555555572    STRAY    <
           306  23240646040122075575    STF-DARG \
           307  03171624221714555574    CONTROL  @
           310  11161124110114555574    INITIAL  @
           311  14111511245555555572    LIMIT    <
           312  11160322051505162476    INCREMENT^
           313  02171714050116555574    BOOLEAN  @
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    43
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           314  14170711030114555574    LOGICAL  @
           315  11162405070522555574    INTEGER  @
           316  22050114555555555571    REAL     ?
           317  04172502140555555573    DOUBLE   >
           320  03171520140530555574    COMPLEX  @
           321  03100122010324052276    CHARACTER^
           322  05302022052323111716    EXPRESSION
           323  03171623240116245575    CONSTANT \
           324  05302005032405045575    EXPECTED \
           325  22110710245555555572    RIGHT    <
           326  20012205165555555572    PAREN    <
           327  17225555555555555567    OR       &
           330  03171515015555555572    COMMA    <
           331  46465555555555555567    --       &
           332  06172516045555555572    FOUND    <
           333  20220515012425220576    PREMATURE^
           334  05571757235755555573    E.O.S.   >
           335  01245555555555555567    AT       &
           336  01160455555555555570    AND      '
           337  11071617220504555574    IGNORED  @
           340  25230107055555555572    USAGE    <
           341  03171606141103245575    CONFLICT \
           342  20220526111725231431    PREVIOUSLY
           343  25230504555555555571    USED     ?
           344  01235555555555555567    AS       &
           345  23240124051505162476    STATEMENT^
           346  11235555555555555567    IS       &
           347  16172455555555555570    NOT      '
           350  11165555555555555567    IN       &
           351  01162311555555555571    ANSI     ?
           352  23052125051603055575    SEQUENCE \
           353  15170405555555555571    MODE     ?
           354  16171646555555555571    NON-     ?
           355  42555555555555555566    7        !
           356  23311502171455555573    SYMBOL   >
           357  22052425221655555573    RETURN   >
           360  15011116555555555571    MAIN     ?
           361  20221707220115555574    PROGRAM  @
           362  01032423555555555571    ACTS     ?
           363  05160455555555555570    END      '
           364  20220503112311171676    PRECISION^
           365  17200522011604235575    OPERANDS \
           366  01220555555555555570    ARE      '
           367  15113005045555555572    MIXED    <
           370  22050605220516030576    REFERENCE^
           371  03011655555555555570    CAN      '
           372  02055555555555555567    BE       &
           373  20220523052455555573    PRESET   >
           374  02141703135555555572    BLOCK    <
           375  04012401555555555571    DATA     ?
           376  17161431555555555571    ONLY     ?
           377  40333355555555555570    500      '
           400  04251515315555555572    DUMMY    <
           401  01220725150516242376    ARGUMENTS^
           402  20052215112424050476    PERMITTED^
           403  05300305232355555573    EXCESS   >
           404  22052125112205235575    REQUIRES \
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    44
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           405  05302014110311245575    EXPLICIT \
           406  16251414555555555571    NULL     ?
           407  01220725150516245575    ARGUMENT \
           410  14112324555555555571    LIST     ?
           411  15251424112014055575    MULTIPLE \
           412  17030325220116030523    OCCURANCES
           413  17065555555555555567    OF       &
           414  15252324555555555571    MUST     ?
           415  02050711165555555572    BEGIN    <
           416  27112410555555555571    WITH     ?
           417  14052424052255555573    LETTER   >
           420  23240122555555555571    STAR     ?
           421  14050624555555555571    LEFT     ?
           422  06172255555555555570    FOR      '
           423  01165555555555555567    AN       &
           424  11141405070114555574    ILLEGAL  @
           425  05300503252401021405    EXECUTABLE
           426  03171606141103241100    CONFLICTI 
           427  16075555555555555567    NG       &
           430  04050314012201241100    DECLARATI 
           431  26055555555555555567    VE       &
           432  47241747555555555571    *TO*     ?
           433  01232325150504555574    ASSUMED  @
           434  16251505221103555574    NUMERIC  @
           435  01062405225555555572    AFTER    <
           436  17021205032455555573    OBJECT   >
           437  07175555555555555567    GO       &
           440  24175555555555555567    TO       &
           441  04110455555555555570    DID      '
           442  01202005012255555573    APPEAR   >
           443  17200522011604555574    OPERAND  @
           444  10012355555555555570    HAS      '
           445  01141417270504555574    ALLOWED  @
           446  24101123555555555571    THIS     ?
           447  03171624053024555574    CONTEXT  @
           450  25230555555555555570    USE      '
           451  17200522012417225575    OPERATOR \
           452  50555555555555555566    /        !
           453  10171414052211241076    HOLLERITH^
           454  05300305050423555574    EXCEEDS  @
           455  34335555555555555567    10       &
           456  03100122010324052223    CHARACTERS
           457  01555555555555555566    A        !
           460  11162601141104555574    INVALID  @
           461  06172215555555555571    FORM     ?
           462  11162617142611160776    INVOLVING^
           463  24100555555555555570    THE      '
           464  22050425160401162476    REDUNDANT^
           465  20012205162355555573    PARENS   >
           466  01232311071615051624    ASSIGNMENT
           467  15012313555555555571    MASK     ?
           470  06112223245555555572    FIRST    <
           471  05140515051624555574    ELEMENT  @
           472  24012207052455555573    TARGET   >
           473  23172522030555555573    SOURCE   >
           474  17260522140120555574    OVERLAP  @
           475  17241005225555555572    OTHER    <
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    45
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           476  24312005555555555571    TYPE     ?
           477  15013155555555555570    MAY      '
           500  50505555555555555567    //       &
           501  23250223242211160776    SUBSTRING^
           502  03011616172455555573    CANNOT   >
           503  03171626052224050476    CONVERTED^
           504  57301722575555555572    .XOR.    <
           505  03011414555555555571    CALL     ?
           506  15112323111607555574    MISSING  @
           507  22172524111605555574    ROUTINE  @
           510  16011505555555555571    NAME     ?
           511  01202005012205045575    APPEARED \
           512  17165555555555555567    ON       &
           513  23311624013055555573    SYNTAX   >
           514  05222217225555555572    ERROR    <
           515  23140123105555555572    SLASH    <
           516  15013055555555555570    MAX      '
           517  14051607241055555573    LENGTH   >
           520  34363433423455555573    131071   >
           521  14031554075555555572    LCM=G    <
           522  34333743404143555574    1048568  @
           523  05301123242355555573    EXISTS   >
           524  05152024315555555572    EMPTY    <
           525  03171624111625055575    CONTINUE \
           526  16175555555555555567    NO       &
           527  25161316172716555574    UNKNOWN  @
           530  03535555555555555567    C$       &
           531  20220526111725235575    PREVIOUS \
           532  11065555555555555567    IF       &
           533  04112205032411260576    DIRECTIVE^
           534  04110606052205162476    DIFFERENT^
           535  06221715555555555571    FROM     ?
           536  17160555555555555570    ONE      '
           537  05142305555555555571    ELSE     ?
           540  07221725205555555572    GROUP    <
           541  26011425055555555572    VALUE    <
           542  33555555555555555566    0        !
           543  34555555555555555566    1        !
           544  11065123525555555572    IF(S)    <
           545  24052215111601240504    TERMINATED
           546  02140116135555555572    BLANK    <
           547  14170301145555555572    LOCAL    <
           550  03171623240116242376    CONSTANTS^
           551  24171755555555555570    TOO      '
           552  06052755555555555570    FEW      '
           553  26012211010214052376    VARIABLES^
           554  11161124110114113200    INITIALIZ 
           555  05045555555555555567    ED       &
           556  22052005012455555573    REPEAT   >
           557  11162417555555555571    INTO     ?
           560  06171414172711160776    FOLLOWING^
           561  45555555555555555566    +        !
           562  46555555555555555566    -        !
           563  16052324111607555574    NESTING  @
           564  03172516245555555572    COUNT    <
           565  23052001220124172276    SEPARATOR^
           566  03171624011116235575    CONTAINS \
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    46
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           567  04175555555555555567    DO       &
           570  23250223032211202476    SUBSCRIPT^
           571  17252423110405555574    OUTSIDE  @
           572  02172516042355555573    BOUNDS   >
           573  24221120555555555571    TRIP     ?
           574  20172311241126055575    POSITIVE \
           575  23250223032211202423    SUBSCRIPTS
           576  17032450100530555574    OCT/HEX  @
           577  05302017160516245575    EXPONENT \
           600  04112611040555555573    DIVIDE   >
           601  02315555555555555567    BY       &
           602  32052217555555555571    ZERO     ?
           603  22052325142423555574    RESULTS  @
           604  23052455555555555570    SET      '
           605  11160611161124055575    INFINITE \
           606  06110514045555555572    FIELD    <
           607  11141446555555555571    ILL-     ?
           610  06172215050455555573    FORMED   >
           611  14171607555555555571    LONG     ?
           612  56555555555555555566    ,        !
           613  04110711242355555573    DIGITS   >
           614  24222516030124050476    TRUNCATED^
           615  04110711245555555572    DIGIT    <
           616  23311502171411035575    SYMBOLIC \
           617  04111505162311171676    DIMENSION^
           620  02172516045555555572    BOUND    <
           621  14172705225555555572    LOWER    <
           622  25202005225555555572    UPPER    <
           623  23113205555555555571    SIZE     ?
           624  01041225232401021405    ADJUSTABLE
           625  04111505162311171623    DIMENSIONS
           626  35474735364634555574    2**23-1  @
           627  20221117225555555572    PRIOR    <
           630  22052401111605045575    RETAINED \
           631  17200522012411171676    OPERATION^
           632  14012324555555555571    LAST     ?
           633  10012605555555555571    HAVE     ?
           634  11541534561535561536    I=M1,M2,M3
           635  15345615355555555572    M1,M2    <
           636  14171720555555555571    LOOP     ?
           637  27111414555555555571    WILL     ?
           640  05300503252405555574    EXECUTE  @
           641  10110710555555555571    HIGH     ?
           642  23101722245555555572    SHORT    <
           643  14171720235555555572    LOOPS    <
           644  23051405032405045575    SELECTED \
           645  11160405305555555572    INDEX    <
           646  23111520140555555573    SIMPLE   >
           647  24220116230605225575    TRANSFER \
           650  22011607055555555572    RANGE    <
           651  22050405061116052376    REDEFINES^
           652  02050617220555555573    BEFORE   >
           653  05212501145555555572    EQUAL    <
           654  23110716555555555571    SIGN     ?
           655  03171603142523111716    CONCLUSION
           656  03171520111405045575    COMPILED \
           657  04050611161124111716    DEFINITION
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    47
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           660  04174611152014110504    DO-IMPLIED
           661  14052323555555555571    LESS     ?
           662  24100116555555555571    THAN     ?
           663  01142405221601240576    ALTERNATE^
           664  11162311040555555573    INSIDE   >
           665  14051607241023555574    LENGTHS  @
           666  04112301072205055575    DISAGREE \
           667  05212511260114051600    EQUIVALEN 
           670  03055555555555555567    CE       &
           671  15172205555555555571    MORE     ?
           672  24221126110114555574    TRIVIAL  @
           673  15051502052255555573    MEMBER   >
           674  03050455555555555570    CED      '
           675  27101103105555555572    WHICH    <
           676  23200503110611030100    SPECIFICA 
           677  24111716555555555571    TION     ?
           700  05302405162311171676    EXTENSION^
           701  17221107111655555573    ORIGIN   >
           702  03012523052355555573    CAUSES   >
           703  04050314012205045575    DECLARED \
           704  06111405555555555571    FILE     ?
           705  16011505565555555572    NAME,    <
           706  06171414172705045575    FOLLOWED \
           707  16251502052255555573    NUMBER   >
           710  02250606052255555573    BUFFER   >
           711  36413333333302555574    360000B  @
           712  22050317220455555573    RECORD   >
           713  17032401145555555572    OCTAL    <
           714  36424242424202555574    377777B  @
           715  37445555555555555567    49       &
           716  06111405235555555572    FILES    <
           717  06172215012455555573    FORMAT   >
           720  04555555555555555566    D        !
           721  15555555555555555566    M        !
           722  23200503110611050476    SPECIFIED^
           723  05041124555555555571    EDIT     ?
           724  04052303221120241722    DESCRIPTOR
           725  24555555555555555566    T        !
           726  44555555555555555566    9        !
           727  14052605142355555573    LEVELS   >
           730  27110424105555555572    WIDTH    <
           731  23110716050455555573    SIGNED   >
           732  20555555555555555566    P        !
           733  24145555555555555567    TL       &
           734  02010313232001030504    BACKSPACED
           735  02053117160455555573    BEYOND   >
           736  34232455555555555570    1ST      '
           737  03171425151655555573    COLUMN   >
           740  20171116240522555574    POINTER  @
           741  22052305245555555572    RESET    <
           742  36424242424255555573    377777   >
           743  03171425151623555574    COLUMNS  @
           744  34364255555555555570    137      '
           745  05300305050455555573    EXCEED   >
           746  11501755555555555570    I/O      '
           747  04052611030555555573    DEVICE   >
           750  05302422011605172523    EXTRANEOUS
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    48
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
           751  04050311150114555574    DECIMAL  @
           752  20171116245555555572    POINT    <
           753  15111611152515555574    MINIMUM  @
           754  22052125112205045575    REQUIRED \
           755  25160201140116030504    UNBALANCED
           756  16053024555555555571    NEXT     ?
           757  14111605555555555571    LINE     ?
           760  03171520252405045575    COMPUTED \
           761  24220116230605222376    TRANSFERS^
           762  11242305140655555573    ITSELF   >
           763  23242211160755555573    STRING   >
           764  24052215111601145575    TERMINAL \
           765  04051411151124052276    DELIMITER^
           766  05142305110655555573    ELSEIF   >
           767  24052215111601241722    TERMINATOR
           770  24221725021405555574    TROUBLE  @
           771  23240122240504555574    STARTED  @
           772  36555555555555555566    3        !
           773  02220116031055555573    BRANCH   >
           774  23242225032425220576    STRUCTURE^
           775  24100516555555555571    THEN     ?
           776  24052215111601240576    TERMINATE^
           777  27112410111655555573    WITHIN   >
          1000  25160314172305045575    UNCLOSED \
          1001  03171606112215111607    CONFIRMING
          1002  17260522221104040516    OVERRIDDEN
          1003  02052427050516555574    BETWEEN  @
          1004  41335555555555555567    60       &
          1005  23101106245555555572    SHIFT    <
          1006  46413355555555555570    -60      '
          1007  14051655555555555570    LEN      '
          1010  25161124555555555571    UNIT     ?
          1011  23200503110611052276    SPECIFIER^
          1012  22050104555555555571    READ     ?
          1013  20221116245555555572    PRINT    <
          1014  33464444445555555572    0-999    <
          1015  11152014110504555574    IMPLIED  @
          1016  13053127172204555574    KEYWORD  @
          1017  05302422015555555572    EXTRA    <
          1020  14050701145555555572    LEGAL    <
          1021  01142205010431555574    ALREADY  @
          1022  05222255555555555570    ERR      '
          1023  11162125112205555574    INQUIRE  @
          1024  23200503110631555574    SPECIFY  @
          1025  02172410555555555571    BOTH     ?
          1026  02250614555555555571    BUFL     ?
          1027  11162405221601145575    INTERNAL \
          1030  04112205032455555573    DIRECT   >
          1031  01030305232355555573    ACCESS   >
          1032  06220505555555555571    FREE     ?
          1033  07220501240522555574    GREATER  @
          1034  27112410172524555574    WITHOUT  @
          1035  01040422052323555574    ADDRESS  @
          1036  04112205032411171676    DIRECTION^
          1037  17252455555555555570    OUT      '
          1040  20012211243155555573    PARITY   >
          1041  14270155555555555570    LWA      '
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    49
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
          1042  06270155555555555570    FWA      '
          1043  11160411030124172276    INDICATOR^
          1044  23011505555555555571    SAME     ?
          1045  03140123235555555572    CLASS    <
          1046  04112205032405045575    DIRECTED \
          1047  17252420252455555573    OUTPUT   >
          1050  11162025245555555572    INPUT    <
          1051  23240124051505162423    STATEMENTS
          1052  11240515555555555571    ITEM     ?
          1053  23030114012255555573    SCALAR   >
          1054  27100516555555555571    WHEN     ?
          1055  25231116075555555572    USING    <
          1056  05160317040555555573    ENCODE   >
          1057  04050317040555555573    DECODE   >
          1060  23030116555555555571    SCAN     ?
          1061  23241720200504555574    STOPPED  @
          1062  03171520141103012400    COMPLICAT 
          1063  33565555555555555567    0,       &
          1064  35555555555555555566    2        !
          1065  06171414172755555573    FOLLOW   >
          1066  14052605145555555572    LEVEL    <
          1067  15251424112014315575    MULTIPLY \
          1070  17030325225555555572    OCCUR    <
          1071  06172224220116555574    FORTRAN  @
          1072  23250220221707220115    SUBPROGRAM
          1073  34445555555555555567    19       &
          1074  03171624111625012400    CONTINUAT 
          1075  11171655555555555570    ION      '
          1076  14111605235555555572    LINES    <
          1077  15112320140103050476    MISPLACED^
          1100  01022305162455555573    ABSENT   >
          1101  10050104052255555573    HEADER   >
          1102  03012204555555555571    CARD     ?
          1103  11152014110311245575    IMPLICIT \
          1104  24220111141116075575    TRAILING \
          1105  22050605220516030504    REFERENCED
          1106  02252455555555555570    BUT      '
          1107  20012410555555555571    PATH     ?
          1110  05162411220555555573    ENTIRE   >
          1111  17260522140131555574    OVERLAY  @
          1112  20052211170455555573    PERIOD   >
          1113  03171624011116050476    CONTAINED^
          1114  17260301205555555572    OVCAP    <
          1115  23250222172524111600    SUBROUTIN 
          1116  05235555555555555567    ES       &
          1117  23240122245755555573    START.   >
          1120  17220405225555555572    ORDER    <
          1121  24010214055555555572    TABLE    <
          1122  17260522061417275575    OVERFLOW \
          1123  22050425030555555573    REDUCE   >
          1124  23311502171423555574    SYMBOLS  @
          1125  35474734424634555574    2**17-1  @
          1126  11160322050123055575    INCREASE \
          1127  22052225165555555572    RERUN    <
          1130  03155555555555555567    CM       &
          1131  17260522140131235575    OVERLAYS \
          1132  15010310111605555574    MACHINE  @
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    50
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
          1133  04052005160405162476    DEPENDENT^
          1134  05160317040550040500    ENCODE/DE 
          1135  03170405555555555571    CODE     ?
          1136  14110222012231555574    LIBRARY  @
          1137  06251603241117162376    FUNCTIONS^
          1140  04012405565555555572    DATE,    <
          1141  24111505565555555572    TIME,    <
          1142  03141703135555555572    CLOCK    <
          1143  17260301202355555573    OVCAPS   >
          1144  03171623240116245676    CONSTANT,^
          1145  05260114250124010200    EVALUATAB 
          1146  14055555555555555567    LE       &
          1147  05302017160516241100    EXPONENTI 
          1150  01241117165555555572    ATION    <
          1151  25161126052223011476    UNIVERSAL^
          1152  22050425160401162400    REDUNDANT 
          1153  14315555555555555567    LY       &
          1154  15010716112425040576    MAGNITUDE^
          1155  26111714012405235575    VIOLATES \
          1156  04170523555555555571    DOES     ?
          1157  15012403105555555572    MATCH    <
          1160  22050325222311260576    RECURSIVE^
          1161  17160305555555555571    ONCE     ?
          1162  25161501240310050476    UNMATCHED^
          1163  11160411220503241431    INDIRECTLY
          1164  22050605220516030523    REFERENCES
          1165  01032425011455555573    ACTUAL   >
          1166  01072205055555555572    AGREE    <
          1167  01030305202455555573    ACCEPT   >
          1170  22052325142455555573    RESULT   >
          1171  27012355555555555570    WAS      '
          1172  03141723050455555573    CLOSED   >
          1173  40555555555555555566    5        !
          1174  03252222051624555574    CURRENT  @
          1175  20220503050504050476    PRECEEDED^
          1176  23250223242211160700    SUBSTRING 
          1177  03171603012405160100    CONCATENA 
          1200  10052205555555555571    HERE     ?
          1201  03171623112324051624    CONSISTENT
          1202  27221716075555555572    WRONG    <
          1203  01232311071605045575    ASSIGNED \
          1204  05172355555555555570    EOS      '
          1205  24312011160755555573    TYPING   >
          1206  22052431201116075575    RETYPING \
          1207  03100122555555555571    CHAR     ?
          1210  51555555555555555566    (        !
          1211  52555555555555555566    )        !
          1212  47555555555555555566    *        !
          1213  35474734404634555574    2**15-1  @
          1214  15170411061105045575    MODIFIED \
          1215  11160716172205045575    INGNORED \
          1216  25160405031401220504    UNDECLARED
          1217  23110405555555555571    SIDE     ?
          1220  47475555555555555567    **       &
          1221  11160405061116112405    INDEFINITE
          1222  16050701241126055575    NEGATIVE \
          1223  05260114250124050476    EVALUATED^
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    51
        FRONT END ERROR PROCESSING ROUTINES                           LITERALS
  
  
          3106                                    END                                                            FERRS     946
  
                             76100B CM  STORAGE USED            81372 STATEMENTS     1942 SYMBOLS      000030 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           59.606 SECONDS        2414 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AC.CNTL        22   FTX            41/31
        ANS.CONT       23   FTX            13/09
        AS.W            2   FTX            41/20
        BLWA            0   EXTERNAL*       4/49 X   29/16
        BUFERR          0   EXTERNAL*       4/49 X   29/05     29/08     29/10     29/14
                                           29/04     29/06     29/09     29/11
        B1=1            0 
        CHAR            6   FTX            41/40     41/50
        CLASS         246   PROGRAM*       13/54 D   13/54 E
        CL=BIT          3                   6/42 D    7/11      7/17      7/21      7/28      7/32      7/37      7/42
                                            7/08      7/12      7/18      7/22      7/29      7/34      7/38      7/43
                                            7/08 D    7/12 D    7/18 D    7/22 D    7/29 D    7/34 D    7/38 D    7/43 D
                                            7/08      7/12      7/18      7/22      7/29      7/34      7/38      7/43
                                            7/09      7/15      7/19      7/23      7/30      7/35      7/39      7/44
                                            7/09 D    7/15 D    7/19 D    7/23 D    7/30 D    7/35 D    7/39 D    7/44 D
                                            7/09      7/15      7/19      7/23      7/30      7/35      7/39      7/44
                                            7/10      7/16      7/20      7/24      7/31      7/36      7/41
                                            7/10 D    7/16 D    7/20 D    7/24 D    7/31 D    7/36 D    7/41 D
                                            7/10      7/16      7/20      7/24      7/31      7/36      7/41
                                            7/11      7/17      7/21      7/28      7/32      7/37      7/42
                                            7/11 D    7/17 D    7/21 D    7/28 D    7/32 D    7/37 D    7/42 D
        CL=L           21                  13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D
                                           13/53     13/53     13/53     13/53     13/53     13/53     13/53     13/53
                                           13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D
                                           13/53     13/53     13/53     13/53     13/53     13/53     13/53     13/53
                                           13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D
                                           13/53     13/53     13/53     13/53     13/53     13/53     13/53
                                           13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D   13/53 D
                                           13/53     13/53     13/53     13/53     13/53     13/53     13/53
        CUS.RET         0   EXTERNAL*       4/43 X   25/53
        DATA2           0   EXTERNAL*       4/37 X   19/06     19/07
        DAT.Z           0   EXTERNAL*       4/37 X   19/11     19/12     19/13     19/14     19/16     19/17
        DO.DPC        307   PROGRAM*       13/56 E
        DT.BIAS        65                  11/49 D   13/51 D
        END23           0   EXTERNAL*       4/52 X   32/16
        EQS80           0   EXTERNAL*       4/40 X   23/05     23/07     23/08
        ERL=CON       323   PROGRAM*       14/15 E
        ERL=XPR       322   PROGRAM*       14/14 E
        ERR.A           0   EXTERNAL*       5/04 X   15/25     17/12     17/28     20/13     25/57     29/51     36/29
                                           15/22     15/26     17/13     18/16     22/23     26/23     30/05     38/21
                                           15/23     15/27     17/14     19/09     24/16     28/35     35/05
                                           15/24     15/28     17/23     20/05     25/16     29/36     36/25
        ERR.D           0   EXTERNAL*       5/04 X
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        ERR.F           0   EXTERNAL*       5/04 X   18/48     22/07     25/09     28/08     29/41     33/25     37/29
                                           15/05     18/49     22/08     25/11     28/09     29/42     34/17     37/30
                                           15/07     18/50     22/10     25/13     28/11     29/50     34/18     37/31
                                           15/10     18/53     22/11     25/15     28/13     29/52     34/19     37/33
                                           15/12     18/54     22/12     25/19     28/15     30/13     34/20     37/34
                                           15/14     19/04     22/13     25/20     28/16     30/15     34/21     37/44
                                           15/36     19/10     22/15     25/23     28/18     30/16     34/23     37/45
                                           15/38     19/11     22/16     25/25     28/19     30/17     34/32     38/07
                                           15/40     19/12     22/18     25/26     28/21     30/19     34/34     38/15
                                           15/41     19/13     22/19     25/28     28/25     30/21     34/35     38/19
                                           15/43     19/14     22/20     25/33     28/26     30/22     34/37     38/22
                                           15/45     19/16     22/21     25/35     28/27     30/23     34/39     38/23
                                           15/46     19/17     22/22     25/37     28/28     30/24     34/50     38/25
                                           15/47     19/19     22/35     25/38     28/30     30/25     34/53     38/26
                                           16/07     19/20     22/38     25/40     28/32     31/04     34/54     38/27
                                           16/09     19/21     22/40     25/42     28/33     31/06     34/55     38/28
                                           17/04     19/22     22/41     25/43     28/34     31/08     34/56     39/12
                                           17/05     19/23     22/43     25/51     28/36     31/17     35/04     39/14
                                           17/08     19/24     23/04     25/52     28/37     31/19     35/06     39/15
                                           17/09     19/25     23/05     25/54     28/39     31/22     35/12     39/16
                                           17/11     20/04     23/07     26/11     28/40     31/23     36/05     39/17
                                           17/15     20/06     23/08     26/12     28/41     31/26     36/09     39/18
                                           17/17     20/07     23/14     26/13     28/42     31/28     36/13     39/22
                                           17/19     20/10     23/16     26/21     28/43     31/30     36/15     39/26
                                           17/21     21/04     23/18     26/22     28/45     32/04     36/19     39/28
                                           17/22     21/05     23/20     26/24     28/46     32/05     36/21     39/29
                                           17/24     21/06     23/21     26/29     28/48     32/07     36/23     39/32
                                           17/25     21/08     23/23     26/30     28/49     32/09     36/27     39/35
                                           17/27     21/10     23/24     26/32     28/50     32/12     36/31     39/36
                                           17/37     21/13     23/26     26/33     28/52     32/14     36/33     39/38
                                           18/04     21/14     23/27     26/34     29/04     32/15     37/04     40/05
                                           18/05     21/16     24/17     26/35     29/05     32/16     37/05     40/06
                                           18/06     21/17     24/18     26/36     29/06     32/18     37/06     40/08
                                           18/07     21/19     24/19     26/37     29/08     32/19     37/08     40/10
                                           18/08     21/21     24/21     26/38     29/09     32/21     37/10     40/12
                                           18/09     21/23     24/23     26/39     29/10     32/24     37/12     40/14
                                           18/17     21/24     24/25     26/40     29/11     32/25     37/13     40/17
                                           18/19     21/25     24/27     26/48     29/13     32/30     37/15     40/18
                                           18/21     21/29     24/29     26/50     29/14     32/32     37/16     40/20
                                           18/23     21/31     24/31     26/54     29/25     32/33     37/18     40/21
                                           18/40     21/33     24/33     27/03     29/26     32/34     37/20     40/22
                                           18/41     21/34     25/04     27/06     29/27     32/36     37/22     40/24
                                           18/42     21/35     25/05     28/04     29/37     32/39     37/24     40/32
                                           18/43     22/04     25/07     28/05     29/38     33/14     37/26     40/36
                                           18/45     22/06     25/08     28/06     29/40     33/15     37/28
        ERR.K           0   EXTERNAL*      32/40
        ERR.M           0   EXTERNAL*      34/03     34/04     34/05     34/06     34/07     34/09
        ERR.T           0   EXTERNAL*       5/04 X   22/05     25/53     26/02     32/27     36/11     40/34
                                           18/31     25/17     25/56     26/26     32/28     39/09     40/35
                                           20/11     25/21     26/01     26/27     32/37     40/33     40/37
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        ERR.W           0   EXTERNAL*       5/04 X   17/38     21/12     23/09     26/51     31/18     35/08     39/07
                                           15/08     17/39     22/17     23/19     26/52     31/20     35/10     39/10
                                           15/11     18/46     22/24     24/04     27/04     31/24     36/07     39/20
                                           16/05     19/05     22/32     24/07     27/05     32/10     36/17     39/30
                                           16/06     19/06     22/34     24/35     28/17     32/22     37/35     39/34
                                           16/08     19/07     22/36     25/30     28/23     34/33     38/04     39/37
                                           17/07     20/09     22/37     25/34     29/16     34/48     38/05     40/16
                                           17/16     20/12     23/06     25/55     30/04     34/52     38/17
        ER.MOREM       40                  13/43 D
        ER.MOREP        5                  13/43 D
        ER.TYPL         5                  13/40 D   13/46     13/47     13/48
        ER.TYPP        23                  13/40 D   13/47
        ER.WORDL       11                  13/42 D   13/45
        ER.XITL        22                  13/41 D   13/49
        ER.XITP         1                  13/41 D
        E.AG00       1260   PROGRAM*       15/36 E   15/36 D
        E.AG01       1262   PROGRAM*       15/38 E   15/38 D
        E.AG02       1234   PROGRAM*       15/39 D   15/39 E
        E.AG03       1264   PROGRAM*       15/40 E   15/40 D
        E.AG04       1266   PROGRAM*       15/41 E   15/41 D
        E.AG07       1270   PROGRAM*       15/43 E   15/43 D   17/36
        E.AG08          5   PROGRAM*       15/45 E   15/45 L
        E.AG11       1274   PROGRAM*       15/46 E   15/46 D
        E.AG12       1276   PROGRAM*       15/47 E   15/47 D
        E.ANS        1242   PROGRAM*       15/22 E   15/22 D
        E.ANS1       1244   PROGRAM*       15/23 E   15/23 D
        E.ANS2       1246   PROGRAM*       15/24 E   15/24 D
        E.ANS3          4   PROGRAM*       15/25 E   15/25 L
        E.ANS4       1252   PROGRAM*       15/26 E   15/26 D
        E.ANS5       1254   PROGRAM*       15/27 E   15/27 D
        E.ANS6       1256   PROGRAM*       15/28 E   15/28 D
        E.AS1        1234   PROGRAM*       16/04 D   16/04 E
        E.AS2        1300   PROGRAM*       16/05 E   16/05 D
        E.AS3        1301   PROGRAM*       16/06 E   16/06 D
        E.AS4           6   PROGRAM*       16/07 E   16/07 L   22/09
        E.AS5        1304   PROGRAM*       16/08 E   16/08 D
        E.AS6        1306   PROGRAM*       16/09 E   16/09 D
        E.AS7        1236   PROGRAM*       16/11 D   16/11 E
        E.AT01       1311   PROGRAM*       17/04 E   17/04 D
        E.AT02       1313   PROGRAM*       17/05 E   17/05 D
        E.AT03       1315   PROGRAM*       17/07 E   17/07 D
        E.AT04       1317   PROGRAM*       17/08 E   17/08 D
        E.AT05       1321   PROGRAM*       17/09 E   17/09 D
        E.AT06       1324   PROGRAM*       17/11 E   17/11 D
        E.AT07       1326   PROGRAM*       17/12 E   17/12 D
        E.AT08       1327   PROGRAM*       17/13 E   17/13 D
        E.AT09       1330   PROGRAM*       17/14 E   17/14 D
        E.AT10       1332   PROGRAM*       17/15 E   17/15 D
        E.AT11       1334   PROGRAM*       17/16 E   17/16 D
        E.AT13       1336   PROGRAM*       17/17 E   17/17 D
        E.AT14       1340   PROGRAM*       17/19 E   17/19 D
        E.AT15       1342   PROGRAM*       17/21 E   17/21 D
        E.AT16       1344   PROGRAM*       17/22 E   17/22 D
        E.AT17       1346   PROGRAM*       17/23 E   17/23 D
        E.AT18       1347   PROGRAM*       17/24 E   17/24 D
        E.AT19       1351   PROGRAM*       17/25 E   17/25 D
        E.AT20       1353   PROGRAM*       17/27 E   17/27 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        E.AT21       1355   PROGRAM*       17/28 E   17/28 D
        E.CL1        1270   PROGRAM*       17/36 D   17/36 E
        E.CL2           7   PROGRAM*       17/37 E   17/37 L
        E.CL3        1361   PROGRAM*       17/38 E   17/38 D
        E.CL4        1363   PROGRAM*       17/39 E   17/39 D
        E.CM           10   PROGRAM*       18/04 E   18/04 L
        E.CM1          11   PROGRAM*       18/05 E   18/05 L
        E.CM10       1405   PROGRAM*       18/19 E   18/19 D
        E.CM11       1407   PROGRAM*       18/21 E   18/21 D
        E.CM12       1411   PROGRAM*       18/23 E   18/23 D
        E.CM2          12   PROGRAM*       18/06 E   18/06 L
        E.CM3          13   PROGRAM*       18/07 E   18/07 L
        E.CM5          14   PROGRAM*       18/08 E   18/08 L
        E.CM6          15   PROGRAM*       18/09 E   18/09 L
        E.CM8        1401   PROGRAM*       18/16 E   18/16 D
        E.CM9        1403   PROGRAM*       18/17 E   18/17 D
        E.CT           16   PROGRAM*       18/31 E   18/31 L
        E.CT1        1234   PROGRAM*       18/32 D   18/32 E
        E.C$00         17   PROGRAM*       18/40 E   18/40 L
        E.C$01         20   PROGRAM*       18/41 E   18/41 L
        E.C$02         21   PROGRAM*       18/42 E   18/42 L
        E.C$03         22   PROGRAM*       18/43 E   18/43 L
        E.C$04         23   PROGRAM*       18/45 E   18/45 L
        E.C$05       1426   PROGRAM*       18/46 E   18/46 D
        E.C$06         24   PROGRAM*       18/48 E   18/48 L
        E.C$07         25   PROGRAM*       18/49 E   18/49 L
        E.C$08         26   PROGRAM*       18/50 E   18/50 L
        E.C$09          2   PROGRAM*       18/51 D   18/51 E
        E.C$10       1234   PROGRAM*       18/52 D   18/52 E
        E.C$11         27   PROGRAM*       18/53 E   18/53 L
        E.C$15       1441   PROGRAM*       18/54 E   18/54 D
        E.DABC       1443   PROGRAM*       19/04 E   19/04 D
        E.DABL       1445   PROGRAM*       19/05 E   19/05 D
        E.DACV         30   PROGRAM*       19/06 E   19/06 L
        E.DAR        1452   PROGRAM*       19/09 E   19/09 D
        E.DAUC       1454   PROGRAM*       19/10 E   19/10 D
        E.DAVC         31   PROGRAM*       19/07 E   19/07 L
        E.DC         1507   PROGRAM*       20/04 E   20/04 D
        E.DCE          32   PROGRAM*       19/11 E   19/11 L
        E.DC1        1510   PROGRAM*       20/05 E   20/05 D
        E.DC10       1525   PROGRAM*       20/13 E   20/13 D
        E.DC3        1512   PROGRAM*       20/06 E   20/06 D
        E.DC4        1514   PROGRAM*       20/07 E   20/07 D
        E.DC6        1516   PROGRAM*       20/09 E   20/09 D
        E.DC7        1520   PROGRAM*       20/10 E   20/10 D
        E.DC8        1521   PROGRAM*       20/11 E   20/11 D
        E.DC9        1523   PROGRAM*       20/12 E   20/12 D
        E.DIL          33   PROGRAM*       19/12 E   19/12 L
        E.DIL1         34   PROGRAM*       19/13 E   19/13 L
        E.DIL2         35   PROGRAM*       19/14 E   19/14 L
        E.DIL3         36   PROGRAM*       19/16 E   19/16 L
        E.DIL4         37   PROGRAM*       19/17 E   19/17 L
        E.DM00       1527   PROGRAM*       21/04 E   21/04 D
        E.DM01       1531   PROGRAM*       21/05 E   21/05 D
        E.DM02       1533   PROGRAM*       21/06 E   21/06 D
        E.DM03       1535   PROGRAM*       21/08 E   21/08 D
        E.DM04       1537   PROGRAM*       21/10 E   21/10 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        E.DM05       1541   PROGRAM*       21/12 E   21/12 D
        E.DM06       1543   PROGRAM*       21/13 E   21/13 D
        E.DM07       1545   PROGRAM*       21/14 E   21/14 D
        E.DM08       1547   PROGRAM*       21/16 E   21/16 D
        E.DM09       1551   PROGRAM*       21/17 E   21/17 D
        E.DM10         40   PROGRAM*       21/19 E   21/19 L
        E.DM11       1555   PROGRAM*       21/21 E   21/21 D
        E.DM12       1560   PROGRAM*       21/23 E   21/23 D
        E.DM13       1562   PROGRAM*       21/24 E   21/24 D
        E.DM14       1564   PROGRAM*       21/25 E   21/25 D
        E.DM15       1226   PROGRAM*       21/27 D   21/27 E
        E.DM16          1   PROGRAM*       21/28 D   21/28 E
        E.DM17       1566   PROGRAM*       21/29 E   21/29 D
        E.DM18       1571   PROGRAM*       21/31 E   21/31 D
        E.DM19       1574   PROGRAM*       21/33 E   21/33 D
        E.DM20       1576   PROGRAM*       21/34 E   21/34 D
        E.DM21       1600   PROGRAM*       21/35 E   21/35 D
        E.DO00       1602   PROGRAM*       22/04 E   22/04 D
        E.DO01       1604   PROGRAM*       22/05 E   22/05 D
        E.DO02       1606   PROGRAM*       22/06 E   22/06 D
        E.DO03       1610   PROGRAM*       22/07 E   22/07 D
        E.DO04       1612   PROGRAM*       22/08 E   22/08 D
        E.DO05          6   PROGRAM*       22/09 D   22/09 E
        E.DO06       1614   PROGRAM*       22/10 E   22/10 D
        E.DO07       1616   PROGRAM*       22/11 E   22/11 D
        E.DO08         41   PROGRAM*       22/12 E   22/12 L
        E.DO09       1622   PROGRAM*       22/13 E   22/13 D
        E.DO10       1624   PROGRAM*       22/15 E   22/15 D
        E.DO12       1626   PROGRAM*       22/16 E   22/16 D
        E.DO13       1630   PROGRAM*       22/17 E   22/17 D
        E.DO14         42   PROGRAM*       22/18 E   22/18 L
        E.DO15       1634   PROGRAM*       22/19 E   22/19 D
        E.DO16       1636   PROGRAM*       22/20 E   22/20 D
        E.DO17       1640   PROGRAM*       22/21 E   22/21 D
        E.DO18       1642   PROGRAM*       22/22 E   22/22 D
        E.DO19       1644   PROGRAM*       22/23 E   22/23 D
        E.DO20       1646   PROGRAM*       22/24 E   22/24 D
        E.DSE        1471   PROGRAM*       19/19 E   19/19 D
        E.DVL1       1473   PROGRAM*       19/20 E   19/20 D
        E.DVR1       1475   PROGRAM*       19/21 E   19/21 D
        E.DVR2       1477   PROGRAM*       19/22 E   19/22 D
        E.DVR3       1501   PROGRAM*       19/23 E   19/23 D
        E.DVR4       1503   PROGRAM*       19/24 E   19/24 D
        E.DVR5       1505   PROGRAM*       19/25 E   19/25 D
        E.EN         1650   PROGRAM*       22/32 E   22/32 D
        E.EN1          43   PROGRAM*       22/34 E   22/34 L
        E.EN2          44   PROGRAM*       22/35 E   22/35 L
        E.EN3          45   PROGRAM*       22/36 E   22/36 L
        E.EN4          46   PROGRAM*       22/37 E   22/37 L
        E.EN5        1662   PROGRAM*       22/38 E   22/38 D
        E.EN6        1665   PROGRAM*       22/40 E   22/40 D
        E.EN7        1667   PROGRAM*       22/41 E   22/41 D
        E.EN8        1671   PROGRAM*       22/43 E   22/43 D
        E.EQ           47   PROGRAM*       23/04 E   23/04 L
        E.EQ1          50   PROGRAM*       23/05 E   23/05 L
        E.EQ10       1712   PROGRAM*       23/18 E   23/18 D
        E.EQ11       1714   PROGRAM*       23/19 E   23/19 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        E.EQ12       1716   PROGRAM*       23/20 E   23/20 D
        E.EQ13       1720   PROGRAM*       23/21 E   23/21 D
        E.EQ14       1722   PROGRAM*       23/23 E   23/23 D
        E.EQ15       1724   PROGRAM*       23/24 E   23/24 D
        E.EQ16       1727   PROGRAM*       23/26 E   23/26 D
        E.EQ17       1731   PROGRAM*       23/27 E   23/27 D
        E.EQ2          51   PROGRAM*       23/06 E   23/06 L
        E.EQ3          52   PROGRAM*       23/07 E   23/07 L
        E.EQ4          53   PROGRAM*       23/08 E   23/08 L
        E.EQ6        1703   PROGRAM*       23/09 E   23/09 D
        E.EQ7        1705   PROGRAM*       23/14 E   23/14 D
        E.EQ8        1710   PROGRAM*       23/16 E   23/16 D
        E.EX1        1733   PROGRAM*       24/04 E   24/04 D
        E.EX2        1226   PROGRAM*       24/05 D   24/05 E
        E.EX3           1   PROGRAM*       24/06 D   24/06 E
        E.EX4        1735   PROGRAM*       24/07 E   24/07 D
        E.FD         1737   PROGRAM*       24/16 E   24/16 D
        E.FD1        1741   PROGRAM*       24/17 E   24/17 D
        E.FD10       1763   PROGRAM*       24/33 E   24/33 D
        E.FD11       1234   PROGRAM*       24/34 D   24/34 E
        E.FD12       1765   PROGRAM*       24/35 E   24/35 D
        E.FD2          54   PROGRAM*       24/18 E   24/18 L
        E.FD3          55   PROGRAM*       24/19 E   24/19 L
        E.FD4          56   PROGRAM*       24/21 E   24/21 L
        E.FD5          57   PROGRAM*       24/23 E   24/23 L
        E.FD6          60   PROGRAM*       24/25 E   24/25 L
        E.FD7          61   PROGRAM*       24/27 E   24/27 L
        E.FD8          62   PROGRAM*       24/29 E   24/29 L
        E.FD9          63   PROGRAM*       24/31 E   24/31 L
        E.FM          160   PROGRAM*       32/04 E   32/04 L
        E.FS00       1767   PROGRAM*       25/04 E   25/04 D
        E.FS01       1771   PROGRAM*       25/05 E   25/05 D
        E.FS02       1774   PROGRAM*       25/07 E   25/07 D
        E.FS03       1776   PROGRAM*       25/08 E   25/08 D
        E.FS04       2000   PROGRAM*       25/09 E   25/09 D
        E.FS05       2002   PROGRAM*       25/11 E   25/11 D
        E.FS06       2004   PROGRAM*       25/13 E   25/13 D
        E.FS07       2006   PROGRAM*       25/15 E   25/15 D
        E.FS08       2010   PROGRAM*       25/16 E   25/16 D
        E.FS09       2012   PROGRAM*       25/17 E   25/17 D
        E.FS10       2015   PROGRAM*       25/19 E   25/19 D
        E.FS11       2017   PROGRAM*       25/20 E   25/20 D
        E.FS12       2021   PROGRAM*       25/21 E   25/21 D
        E.FS13       2023   PROGRAM*       25/23 E   25/23 D
        E.FS14       2026   PROGRAM*       25/25 E   25/25 D
        E.FS15       2027   PROGRAM*       25/26 E   25/26 D
        E.FS16       2031   PROGRAM*       25/28 E   25/28 D
        E.FS17       2034   PROGRAM*       25/30 E   25/30 D
        E.FS18          3   PROGRAM*       25/32 D   25/32 E
        E.FS19       2037   PROGRAM*       25/33 E   25/33 D
        E.FS20       2040   PROGRAM*       25/34 E   25/34 D
        E.FS21       2041   PROGRAM*       25/35 E   25/35 D
        E.FS22       2043   PROGRAM*       25/37 E   25/37 D
        E.FS23       2045   PROGRAM*       25/38 E   25/38 D
        E.FS24       2047   PROGRAM*       25/40 E   25/40 D
        E.FS25       2052   PROGRAM*       25/42 E   25/42 D
        E.FS26       2053   PROGRAM*       25/43 E   25/43 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        E.GE            0   PROGRAM*       15/05 E   15/05 L   34/36     36/04
        E.GE1        1226   PROGRAM*       15/07 E   15/07 D   21/27     24/05     39/06
        E.GE2           1   PROGRAM*       15/08 E   15/08 L   21/28     24/06
        E.GE3           2   PROGRAM*       15/10 E   15/10 L   18/51     29/28
        E.GE4        1234   PROGRAM*       15/11 E   15/39     18/32     24/34     26/31     32/17
                                           15/11 D   16/04     18/52     26/03     28/54     38/06
        E.GE5        1236   PROGRAM*       15/12 E   15/12 D   16/11     40/04
        E.GE6           3   PROGRAM*       15/14 E   15/14 L   25/32     34/40
        E.GO           64   PROGRAM*       25/51 E   25/51 L
        E.GO1          65   PROGRAM*       25/52 E   25/52 L
        E.GO2          66   PROGRAM*       25/53 E   25/53 L
        E.GO3        2062   PROGRAM*       25/54 E   25/54 D
        E.GO4        2064   PROGRAM*       25/55 E   25/55 D
        E.GO5        2066   PROGRAM*       25/56 E   25/56 D
        E.GO6        2070   PROGRAM*       25/57 E   25/57 D
        E.GO7        2072   PROGRAM*       26/01 E   26/01 D
        E.GO8        2073   PROGRAM*       26/02 E   26/02 D
        E.GO9        1234   PROGRAM*       26/03 D   26/03 E
        E.HC1        2075   PROGRAM*       26/11 E   26/11 D
        E.HC2        2077   PROGRAM*       26/12 E   26/12 D
        E.HC3        2101   PROGRAM*       26/13 E   26/13 D
        E.IF00         67   PROGRAM*       26/21 E   26/21 L
        E.IF01       2104   PROGRAM*       26/22 E   26/22 D
        E.IF02       2106   PROGRAM*       26/23 E   26/23 D
        E.IF03         70   PROGRAM*       26/24 E   26/24 L
        E.IF04       2112   PROGRAM*       26/26 E   26/26 D
        E.IF05       2114   PROGRAM*       26/27 E   26/27 D
        E.IF06         71   PROGRAM*       26/29 E   26/29 L
        E.IF07       2120   PROGRAM*       26/30 E   26/30 D
        E.IF08       1234   PROGRAM*       26/31 D   26/31 E
        E.IF09         72   PROGRAM*       26/32 E   26/32 L
        E.IF10         73   PROGRAM*       26/33 E   26/33 L
        E.IF11         74   PROGRAM*       26/34 E   26/34 L
        E.IF12         75   PROGRAM*       26/35 E   26/35 L
        E.IF13         76   PROGRAM*       26/36 E   26/36 L
        E.IF14       2133   PROGRAM*       26/37 E   26/37 D
        E.IF15       2135   PROGRAM*       26/38 E   26/38 D
        E.IF16       2137   PROGRAM*       26/39 E   26/39 D
        E.IF17       2141   PROGRAM*       26/40 E   26/40 D
        E.IN           77   PROGRAM*       26/48 E   26/48 L
        E.INF        2155   PROGRAM*       27/03 E   27/03 D
        E.INF1       2157   PROGRAM*       27/04 E   27/04 D
        E.INF2       2161   PROGRAM*       27/05 E   27/05 D
        E.INF3       2163   PROGRAM*       27/06 E   27/06 D
        E.INI        2443   PROGRAM*       32/10 E   32/10 D
        E.IN1        2145   PROGRAM*       26/50 E   26/50 D
        E.IN2        2147   PROGRAM*       26/51 E   26/51 D
        E.IN3        2151   PROGRAM*       26/52 E   26/52 D
        E.IN4         100   PROGRAM*       26/54 E   26/54 L
        E.IOB0        121   PROGRAM*       29/04 E   29/04 L
        E.IOB1        122   PROGRAM*       29/05 E   29/05 L
        E.IOB2        123   PROGRAM*       29/06 E   29/06 L
        E.IOB3        124   PROGRAM*       29/08 E   29/08 L
        E.IOB4        125   PROGRAM*       29/09 E   29/09 L
        E.IOB5        126   PROGRAM*       29/10 E   29/10 L
        E.IOB6        127   PROGRAM*       29/11 E   29/11 L
        E.IOB7       2313   PROGRAM*       29/13 E   29/13 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        E.IOB8        130   PROGRAM*       29/14 E   29/14 L
        E.IOB9        131   PROGRAM*       29/16 E   29/16 L
        E.IOD1        132   PROGRAM*       29/25 E   29/25 L
        E.IOD2        133   PROGRAM*       29/26 E   29/26 L
        E.IOD3        134   PROGRAM*       29/27 E   29/27 L
        E.IOD4          2   PROGRAM*       29/28 D   29/28 E
        E.IOF         137   PROGRAM*       29/50 E   29/50 L
        E.IOF1       2345   PROGRAM*       29/51 E   29/51 D
        E.IOF2        140   PROGRAM*       29/52 E   29/52 L
        E.IOL1       2330   PROGRAM*       29/36 E   29/36 D
        E.IOL2       2332   PROGRAM*       29/37 E   29/37 D
        E.IOL5       2334   PROGRAM*       29/38 E   29/38 D
        E.IOL6       2336   PROGRAM*       29/40 E   29/40 D
        E.IOL7        135   PROGRAM*       29/41 E   29/41 L
        E.IOL8        136   PROGRAM*       29/42 E   29/42 L
        E.ION        2351   PROGRAM*       30/04 E   30/04 D
        E.ION1       2353   PROGRAM*       30/05 E   30/05 D
        E.IOS1        141   PROGRAM*       30/13 E   30/13 L
        E.IOS10       151   PROGRAM*       30/25 E   30/25 L
        E.IOS2        142   PROGRAM*       30/15 E   30/15 L
        E.IOS3        143   PROGRAM*       30/16 E   30/16 L
        E.IOS4        144   PROGRAM*       30/17 E   30/17 L
        E.IOS5        145   PROGRAM*       30/19 E   30/19 L
        E.IOS6        146   PROGRAM*       30/21 E   30/21 L
        E.IOS7       2371   PROGRAM*       30/22 E   30/22 D
        E.IOS8        147   PROGRAM*       30/23 E   30/23 L
        E.IOS9        150   PROGRAM*       30/24 E   30/24 L
        E.IO00       2165   PROGRAM*       28/04 E   28/04 D
        E.IO01        101   PROGRAM*       28/05 E   28/05 L
        E.IO02       2170   PROGRAM*       28/06 E   28/06 D
        E.IO03       2173   PROGRAM*       28/08 E   28/08 D
        E.IO04       2175   PROGRAM*       28/09 E   28/09 D
        E.IO05       2177   PROGRAM*       28/11 E   28/11 D
        E.IO06       2201   PROGRAM*       28/13 E   28/13 D
        E.IO07        102   PROGRAM*       28/15 E   28/15 L
        E.IO08        103   PROGRAM*       28/16 E   28/16 L
        E.IO09       2207   PROGRAM*       28/17 E   28/17 D
        E.IO10        104   PROGRAM*       28/18 E   28/18 L
        E.IO11        105   PROGRAM*       28/19 E   28/19 L
        E.IO12        106   PROGRAM*       28/21 E   28/21 L
        E.IO13        107   PROGRAM*       28/23 E   28/23 L
        E.IO14       2221   PROGRAM*       28/25 E   28/25 D
        E.IO15        110   PROGRAM*       28/26 E   28/26 L
        E.IO16        111   PROGRAM*       28/27 E   28/27 L
        E.IO17        112   PROGRAM*       28/28 E   28/28 L
        E.IO18       2230   PROGRAM*       28/30 E   28/30 D
        E.IO19        113   PROGRAM*       28/32 E   28/32 L
        E.IO20        114   PROGRAM*       28/33 E   28/33 L
        E.IO21        115   PROGRAM*       28/34 E   28/34 L
        E.IO22       2240   PROGRAM*       28/35 E   28/35 D
        E.IO23       2242   PROGRAM*       28/36 E   28/36 D
        E.IO24       2244   PROGRAM*       28/37 E   28/37 D
        E.IO25        116   PROGRAM*       28/39 E   28/39 L
        E.IO26       2250   PROGRAM*       28/40 E   28/40 D
        E.IO28        117   PROGRAM*       28/41 E   28/41 L
        E.IO29        120   PROGRAM*       28/42 E   28/42 L
        E.IO30       2256   PROGRAM*       28/43 E   28/43 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        E.IO31       2260   PROGRAM*       28/45 E   28/45 D
        E.IO32       2262   PROGRAM*       28/46 E   28/46 D
        E.IO33       2264   PROGRAM*       28/48 E   28/48 D
        E.IO34       2266   PROGRAM*       28/49 E   28/49 D
        E.IO35       2270   PROGRAM*       28/50 E   28/50 D
        E.IO36       2272   PROGRAM*       28/52 E   28/52 D
        E.IO37       1234   PROGRAM*       28/54 D   28/54 E
        E.LP1        2377   PROGRAM*       31/04 E   31/04 D
        E.LP2        2402   PROGRAM*       31/06 E   31/06 D
        E.LP3        2405   PROGRAM*       31/08 E   31/08 D
        E.LV1         152   PROGRAM*       31/17 E   31/17 L
        E.LV11       2431   PROGRAM*       31/30 E   31/30 D
        E.LV2        2411   PROGRAM*       31/18 E   31/18 D
        E.LV3         153   PROGRAM*       31/19 E   31/19 L
        E.LV4         154   PROGRAM*       31/20 E   31/20 L
        E.LV5         155   PROGRAM*       31/22 E   31/22 L
        E.LV6        2421   PROGRAM*       31/23 E   31/23 D
        E.LV7         156   PROGRAM*       31/24 E   31/24 L
        E.LV8         157   PROGRAM*       31/26 E   31/26 L
        E.LV9        2427   PROGRAM*       31/28 E   31/28 D
        E.MA          161   PROGRAM*       32/05 E   32/05 L
        E.MB         2437   PROGRAM*       32/07 E   32/07 D
        E.MCA        2441   PROGRAM*       32/09 E   32/09 D
        E.MD          162   PROGRAM*       32/14 E   32/14 L
        E.MDE1       2517   PROGRAM*       34/03 E   34/03 D
        E.MDE2       2520   PROGRAM*       34/04 E   34/04 D
        E.MDE3       2522   PROGRAM*       34/05 E   34/05 D
        E.MDE4       2524   PROGRAM*       34/06 E   34/06 D
        E.MDE5       2526   PROGRAM*       34/07 E   34/07 D
        E.MDE6       2530   PROGRAM*       34/09 E   34/09 D
        E.MDO        2450   PROGRAM*       32/15 E   32/15 D
        E.ME          163   PROGRAM*       32/16 E   32/16 L
        E.ME1        1234   PROGRAM*       32/17 D   32/17 E
        E.MH          164   PROGRAM*       32/18 E   32/18 L
        E.MI          165   PROGRAM*       32/19 E   32/19 L
        E.MO1        2512   PROGRAM*       33/14 E   33/14 D
        E.MO2        2513   PROGRAM*       33/15 E   33/15 D
        E.MO8        2515   PROGRAM*       33/25 E   33/25 D
        E.MR1         166   PROGRAM*       32/21 E   32/21 L
        E.MR2         167   PROGRAM*       32/22 E   32/22 L
        E.MR3         170   PROGRAM*       32/24 E   32/24 L
        E.MS         2464   PROGRAM*       32/25 E   32/25 D
        E.NL          174   PROGRAM*       34/17 E   34/17 L
        E.NL1         175   PROGRAM*       34/18 E   34/18 L
        E.NL2         176   PROGRAM*       34/19 E   34/19 L
        E.NL3         177   PROGRAM*       34/20 E   34/20 L
        E.NL4         200   PROGRAM*       34/21 E   34/21 L
        E.NL5         201   PROGRAM*       34/23 E   34/23 L
        E.NP         2466   PROGRAM*       32/27 E   32/27 D
        E.NP1         171   PROGRAM*       32/28 E   32/28 L
        E.OV1         172   PROGRAM*       32/30 E   32/30 L
        E.OV2        2474   PROGRAM*       32/32 E   32/32 D
        E.OV3         173   PROGRAM*       32/33 E   32/33 L
        E.OV4        2500   PROGRAM*       32/34 E   32/34 D
        E.PN1        2502   PROGRAM*       32/36 E   32/36 D
        E.PN3        2504   PROGRAM*       32/37 E   32/37 D
        E.PX1        2544   PROGRAM*       34/32 E   34/32 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        E.PX2        2546   PROGRAM*       34/33 E   34/33 D
        E.PX3         202   PROGRAM*       34/34 E   34/34 L
        E.PX4         203   PROGRAM*       34/35 E   34/35 L
        E.PX5           0   PROGRAM*       34/36 D   34/36 E
        E.PX6        2554   PROGRAM*       34/37 E   34/37 D
        E.PX7        2556   PROGRAM*       34/39 E   34/39 D
        E.PX8           3   PROGRAM*       34/40 D   34/40 E
        E.SA         2560   PROGRAM*       34/48 E   34/48 D
        E.SA1         204   PROGRAM*       34/50 E   34/50 L
        E.SA2        2564   PROGRAM*       34/52 E   34/52 D
        E.SA3         205   PROGRAM*       34/53 E   34/53 L
        E.SA4         206   PROGRAM*       34/54 E   34/54 L
        E.SA5        2572   PROGRAM*       34/55 E   34/55 D
        E.SA6        2574   PROGRAM*       34/56 E   34/56 D
        E.SB2        2576   PROGRAM*       35/04 E   35/04 D
        E.SB3        2600   PROGRAM*       35/05 E   35/05 D
        E.SB4        2602   PROGRAM*       35/06 E   35/06 D
        E.SB5        2604   PROGRAM*       35/08 E   35/08 D
        E.SB6        2606   PROGRAM*       35/10 E   35/10 D
        E.SB7        2610   PROGRAM*       35/12 E   35/12 D
        E.SEQ        2506   PROGRAM*       32/39 E   32/39 D
        E.SF00          0   PROGRAM*       36/04 D   36/04 E
        E.SF01        207   PROGRAM*       36/05 E   36/05 L
        E.SF02        210   PROGRAM*       36/07 E   36/07 L
        E.SF03        211   PROGRAM*       36/09 E   36/09 L
        E.SF04       2620   PROGRAM*       36/11 E   36/11 D
        E.SF05       2622   PROGRAM*       36/13 E   36/13 D
        E.SF06       2624   PROGRAM*       36/15 E   36/15 D
        E.SF07       2626   PROGRAM*       36/17 E   36/17 D
        E.SF08        212   PROGRAM*       36/19 E   36/19 L
        E.SF09       2632   PROGRAM*       36/21 E   36/21 D
        E.SF10       2634   PROGRAM*       36/23 E   36/23 D
        E.SF11       2636   PROGRAM*       36/25 E   36/25 D
        E.SF12       2640   PROGRAM*       36/27 E   36/27 D
        E.SF13       2643   PROGRAM*       36/29 E   36/29 D
        E.SF14       2646   PROGRAM*       36/31 E   36/31 D
        E.SF15       2650   PROGRAM*       36/33 E   36/33 D
        E.SL00       2653   PROGRAM*       37/04 E   37/04 D
        E.SL01       2655   PROGRAM*       37/05 E   37/05 D
        E.SL02       2657   PROGRAM*       37/06 E   37/06 D
        E.SL03       2661   PROGRAM*       37/08 E   37/08 D
        E.SL04       2663   PROGRAM*       37/10 E   37/10 D
        E.SL05       2665   PROGRAM*       37/12 E   37/12 D
        E.SL06       2667   PROGRAM*       37/13 E   37/13 D
        E.SL07       2671   PROGRAM*       37/15 E   37/15 D
        E.SL08       2673   PROGRAM*       37/16 E   37/16 D
        E.SL09       2675   PROGRAM*       37/18 E   37/18 D
        E.SL10       2700   PROGRAM*       37/20 E   37/20 D
        E.SL11       2702   PROGRAM*       37/22 E   37/22 D
        E.SL12       2704   PROGRAM*       37/24 E   37/24 D
        E.SL13       2706   PROGRAM*       37/26 E   37/26 D
        E.SL14       2710   PROGRAM*       37/28 E   37/28 D
        E.SL15       2712   PROGRAM*       37/29 E   37/29 D
        E.SL16       2714   PROGRAM*       37/30 E   37/30 D
        E.SL17       2716   PROGRAM*       37/31 E   37/31 D
        E.SL18        213   PROGRAM*       37/33 E   37/33 L
        E.SL19       2722   PROGRAM*       37/34 E   37/34 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        E.SL20       2723   PROGRAM*       37/35 E   37/35 D
        E.SPR1       2732   PROGRAM*       38/04 E   38/04 D
        E.SPR2       2734   PROGRAM*       38/05 E   38/05 D
        E.SPR4       1234   PROGRAM*       38/06 D   38/06 E
        E.SPR5       2736   PROGRAM*       38/07 E   38/07 D   38/29
        E.ST         2726   PROGRAM*       37/44 E   37/44 D
        E.STO        2510   PROGRAM*       32/40 E   32/40 D
        E.ST1        2730   PROGRAM*       37/45 E   37/45 D
        E.SU01       2740   PROGRAM*       38/15 E   38/15 D
        E.SU02       2742   PROGRAM*       38/17 E   38/17 D
        E.SU03       2744   PROGRAM*       38/19 E   38/19 D
        E.SU04       2747   PROGRAM*       38/21 E   38/21 D
        E.SU05       2751   PROGRAM*       38/22 E   38/22 D
        E.SU06       2753   PROGRAM*       38/23 E   38/23 D
        E.SU07       2756   PROGRAM*       38/25 E   38/25 D
        E.SU08       2760   PROGRAM*       38/26 E   38/26 D
        E.SU09       2762   PROGRAM*       38/27 E   38/27 D
        E.SU10       2764   PROGRAM*       38/28 E   38/28 D
        E.SU11       2736   PROGRAM*       38/29 D   38/29 E
        E.TLBL       2445   PROGRAM*       32/12 E   32/12 D
        E.TY         1226   PROGRAM*       39/06 D   39/06 E
        E.TYI         215   PROGRAM*       39/26 E   39/26 L
        E.TYI1        216   PROGRAM*       39/28 E   39/28 L
        E.TYI2        217   PROGRAM*       39/29 E   39/29 L
        E.TYI3       3023   PROGRAM*       39/30 E   39/30 D
        E.TYI4       3025   PROGRAM*       39/32 E   39/32 D
        E.TYI5       3027   PROGRAM*       39/34 E   39/34 D
        E.TYI6        220   PROGRAM*       39/35 E   39/35 L
        E.TYI7        221   PROGRAM*       39/36 E   39/36 L
        E.TYI8       3035   PROGRAM*       39/37 E   39/37 D
        E.TYI9       3037   PROGRAM*       39/38 E   39/38 D
        E.TY0        2766   PROGRAM*       39/07 E   39/07 D
        E.TY1        2770   PROGRAM*       39/09 E   39/09 D
        E.TY10       3013   PROGRAM*       39/22 E   39/22 D
        E.TY2        2772   PROGRAM*       39/10 E   39/10 D
        E.TY3        2774   PROGRAM*       39/12 E   39/12 D
        E.TY4        2777   PROGRAM*       39/14 E   39/14 D
        E.TY5         214   PROGRAM*       39/15 E   39/15 L
        E.TY6        3003   PROGRAM*       39/16 E   39/16 D
        E.TY7        3004   PROGRAM*       39/17 E   39/17 D
        E.TY8        3006   PROGRAM*       39/18 E   39/18 D
        E.TY9        3011   PROGRAM*       39/20 E   39/20 D
        E.VA00       1236   PROGRAM*       40/04 D   40/04 E
        E.VA01       3041   PROGRAM*       40/05 E   40/05 D
        E.VA02       3043   PROGRAM*       40/06 E   40/06 D
        E.VA03       3045   PROGRAM*       40/08 E   40/08 D
        E.VA04       3047   PROGRAM*       40/10 E   40/10 D
        E.VA05       3051   PROGRAM*       40/12 E   40/12 D
        E.VA06       3053   PROGRAM*       40/14 E   40/14 D
        E.VA07       3055   PROGRAM*       40/16 E   40/16 D
        E.VA08       3057   PROGRAM*       40/17 E   40/17 D
        E.VA09        222   PROGRAM*       40/18 E   40/18 L
        E.VA10       3062   PROGRAM*       40/20 E   40/20 D
        E.VA11       3064   PROGRAM*       40/21 E   40/21 D
        E.VA12       3066   PROGRAM*       40/22 E   40/22 D
        E.VA13        223   PROGRAM*       40/24 E   40/24 L
        E.XP1        3072   PROGRAM*       40/32 E   40/32 D
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        E.XP3        3074   PROGRAM*       40/33 E   40/33 D
        E.XP4        3076   PROGRAM*       40/34 E   40/34 D
        E.XP5        3100   PROGRAM*       40/35 E   40/35 D
        E.XP6        3102   PROGRAM*       40/36 E   40/36 D
        E.XP7        3104   PROGRAM*       40/37 E   40/37 D
        FEC.RTN         0   EXTERNAL*       4/43 X   18/07     18/45     23/06     30/21     32/05     32/33     36/07
                                           15/05     18/08     18/48     26/48     30/23     32/14     34/17     36/19
                                           15/08     18/09     18/49     26/54     30/24     32/18     34/18     39/15
                                           15/10     18/31     18/50     30/13     30/25     32/19     34/19     39/26
                                           15/14     18/40     18/53     30/15     31/17     32/21     34/20     40/24
                                           18/04     18/41     21/19     30/16     31/19     32/22     34/21
                                           18/05     18/42     22/34     30/17     31/22     32/24     34/23
                                           18/06     18/43     23/04     30/19     32/04     32/30     36/05
        FILL.         246   PROGRAM*       12/29 E   12/33 E   12/36     41/23 S
        FILL.2        247   PROGRAM*       12/29 E   12/34 E   41/57 S
        FILL.3        250   PROGRAM*       12/29 E   12/35 E   12/36
        IFS11           0   EXTERNAL*       4/52 X   26/32
        IMP.ER          0   EXTERNAL*       5/10 X   39/28     39/29     39/35     39/36
        LST             0   EXTERNAL*       4/49 X   28/23
        LVL80           0   EXTERNAL*       4/40 X   31/24     31/26
        LVL90           0   EXTERNAL*       4/40 X   31/20
        L.FILL          3                  12/29 E   12/36 D
        L.IOBUF6     2003   FTX            13/10
        MAX.BLK       764   FTX            13/11
        MAX.BUFL   360000   FTX            13/12
        MAX.CL      77777   FTX            13/20
        MAX.DIM         7   FTX            13/13
        MAX.LFN         7   FTX            13/16
        MAX.PARG       61   FTX            13/15
        MAX.RECL   377777   FTX            13/17
        MAX.SARG      764   FTX            13/14
        MAX.SPAN       27   FTX            13/22
        MAX.SPCM   377777   FTX            13/23
        MAX.SPLC  3777770   FTX            13/24
        MOD.DPC       313   PROGRAM*       14/04 E
        NOR.RECL      211   FTX            13/18
        N.ERREST        6                  13/38 D
        N.ER1ST         4                  13/37 D
        OSE           224   PROGRAM*       41/19 L   41/19 E
        OSEA          242   PROGRAM*       41/25     42/07 L
        OSEB          243   PROGRAM*       41/39     41/56     42/08 L
        OSE2          232   PROGRAM*       41/38 L   42/07
        OSE5          235   PROGRAM*       41/49 L   41/54
        PDM             0   EXTERNAL*       5/01 X   41/28 S   41/34
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        PEM             0   EXTERNAL*       5/01 X   18/31     22/11     25/43     28/08     29/26     32/18     37/20
                                           15/22     18/41     22/16     25/51     28/09     29/27     32/19     37/24
                                           15/23     18/45     22/17     25/52     28/16     29/36     32/21     37/30
                                           15/25     18/53     22/19     25/53     28/25     29/37     32/24     37/33
                                           15/26     19/06     22/20     25/55     28/26     29/38     32/27     37/34
                                           15/27     19/09     22/21     25/56     28/33     29/41     32/28     38/04
                                           15/28     19/11     22/22     25/57     28/34     29/42     32/30     38/05
                                           15/36     19/12     22/23     26/01     28/35     29/50     32/33     38/07
                                           15/38     19/13     22/24     26/02     28/37     29/51     32/34     38/15
                                           16/08     19/14     22/34     26/11     28/39     29/52     32/36     39/12
                                           17/04     19/16     22/35     26/12     28/40     30/04     32/37     39/14
                                           17/07     19/19     22/36     26/21     28/41     30/05     32/39     39/16
                                           17/09     19/20     22/37     26/22     28/42     30/21     32/40     39/26
                                           17/11     19/24     23/04     26/23     28/43     30/22     33/14     39/37
                                           17/12     19/25     23/09     26/26     28/45     30/24     33/15     39/38
                                           17/13     20/04     24/16     26/27     28/46     30/25     33/25     40/21
                                           17/14     20/05     24/21     26/29     28/48     31/17     34/03     40/32
                                           17/16     20/07     24/29     26/32     28/49     31/18     34/04     40/33
                                           17/17     20/09     24/35     26/33     28/50     31/19     34/05     40/34
                                           17/21     20/10     25/04     26/34     28/52     31/22     34/06     40/35
                                           17/23     20/11     25/07     26/36     29/04     32/04     34/07     40/36
                                           17/28     20/12     25/08     27/03     29/05     32/05     34/09     40/37
                                           17/37     20/13     25/13     27/04     29/06     32/07     34/17
                                           18/04     21/04     25/17     27/05     29/11     32/09     34/18
                                           18/05     21/24     25/20     27/06     29/13     32/10     34/21
                                           18/06     22/04     25/21     28/04     29/14     32/12     34/39
                                           18/08     22/05     25/33     28/05     29/16     32/15     34/48
                                           18/09     22/06     25/34     28/06     29/25     32/16     36/29
        PEMS            0   EXTERNAL*       5/01 X   18/43     21/25     23/24     28/11     35/06     37/13     39/17
                                           15/12     18/46     21/29     23/26     28/18     35/08     37/15     39/18
                                           15/24     18/54     21/31     23/27     28/19     35/10     37/16     39/20
                                           15/40     19/04     21/33     24/04     28/21     35/12     37/18     39/22
                                           15/47     19/05     21/34     24/07     28/28     36/05     37/22     39/30
                                           16/05     19/07     21/35     24/18     28/30     36/07     37/26     39/32
                                           16/06     19/10     22/07     24/19     28/36     36/09     37/28     39/34
                                           16/09     19/17     22/08     24/23     29/40     36/11     37/29     40/05
                                           17/05     19/21     22/10     24/25     30/16     36/13     37/31     40/06
                                           17/08     19/22     22/12     24/27     31/20     36/17     37/35     40/08
                                           17/19     19/23     22/13     24/31     31/23     36/19     37/44     40/10
                                           17/22     21/05     22/32     25/09     31/24     36/21     37/45     40/12
                                           17/24     21/06     22/38     25/15     31/26     36/23     38/17     40/14
                                           17/25     21/08     22/40     25/16     31/28     36/25     38/19     40/16
                                           17/27     21/10     22/41     25/25     31/30     36/27     38/21     40/17
                                           17/38     21/12     22/43     26/13     32/14     36/31     38/22     40/20
                                           17/39     21/13     23/14     26/30     32/25     36/33     38/23     40/22
                                           18/16     21/14     23/16     26/38     34/20     37/04     38/25     40/24
                                           18/17     21/16     23/18     26/39     34/52     37/05     38/26     42/05
                                           18/19     21/17     23/19     26/40     34/55     37/06     38/27
                                           18/21     21/19     23/20     26/50     34/56     37/08     39/07
                                           18/23     21/21     23/21     26/51     35/04     37/10     39/09
                                           18/40     21/23     23/23     26/52     35/05     37/12     39/10
1       FERRS - FRONT END ERROR TEXTS.                                COMPASS 3.7-871.     24/05/02. 13.14.24.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        PEMV            0   EXTERNAL*       5/01 X   16/07     23/06     25/30     26/54     30/15     34/32     39/28
                                           15/05     17/15     23/07     25/35     28/13     30/17     34/33     39/29
                                           15/07     18/07     23/08     25/37     28/15     30/19     34/34     39/35
                                           15/08     18/42     24/17     25/38     28/17     30/23     34/35     39/36
                                           15/10     18/48     24/33     25/40     28/23     31/04     34/37     40/18
                                           15/11     18/49     25/05     25/42     28/27     31/06     34/50
                                           15/14     18/50     25/11     25/54     28/32     31/08     34/53
                                           15/41     20/06     25/19     26/24     29/08     32/22     34/54
                                           15/43     22/15     25/23     26/35     29/09     32/32     36/15
                                           15/45     22/18     25/26     26/37     29/10     34/19     38/28
                                           15/46     23/05     25/28     26/48     30/13     34/23     39/15
        PPA130          0   EXTERNAL*       4/46 X   24/19     24/23     24/27     24/31
                                           24/18     24/21     24/25     24/29
        PRMERR          0   EXTERNAL*       4/40 X   34/34     34/35
        PSL             0   EXTERNAL*       4/55 X   22/18     26/21     26/36     28/21     28/34     29/27     37/33
                                           15/25     22/35     26/24     28/05     28/26     28/39     29/41     40/18
                                           15/45     22/36     26/29     28/15     28/27     28/41     29/42
                                           16/07     22/37     26/33     28/16     28/28     28/42     29/50
                                           17/37     25/51     26/34     28/18     28/32     29/25     29/52
                                           22/12     25/52     26/35     28/19     28/33     29/26     32/28
        SAVERR          0   EXTERNAL*       4/40 X   34/50     34/53     34/54
        SCR             0   EXTERNAL*       5/04 X   41/20
        SFDEX           0   EXTERNAL*       5/07 X   36/09
        TEST            0   FTX            14/11 F   33/17 F   33/27 F   40/45 F
        WB.AGNP        30   FTX             7/18
        WB.ARYP        12   FTX             7/36
        WB.BMEMP       23   FTX             7/23
        WB.CGSP         4   FTX             7/43
        WB.CLASL       34   FTX             6/42
        WB.CLASP        5   FTX             6/42
        WB.COMP        17   FTX             7/30
        WB.DEFP         7   FTX             7/39
        WB.DEXTP       26   FTX             7/20
        WB.ENTP        15   FTX             7/32
        WB.EQVP        11   FTX             7/37
        WB.EXTP        16   FTX             7/31
        WB.FPP         20   FTX             7/29
        WB.FUNP        14   FTX             7/34
        WB.GENFP       25   FTX             7/21
        WB.INTFP       27   FTX             7/19
        WB.LABP         3   FTX             7/44     13/54
        WB.LCMP        21   FTX             7/28
        WB.LDOP        24   FTX             7/22
        WB.LEVP        33   FTX             7/15
        WB.LOCFP       22   FTX             7/24
        WB.MATP        36   FTX             7/10
        WB.NLSTP       34   FTX             7/12
        WB.NVARP        6   FTX             7/41
        WB.PARMP       10   FTX             7/38
        WB.SAVEP       35   FTX             7/11
        WB.SFAP        40   FTX             7/08
        WB.SUBP        13   FTX             7/35
        WB.TYPP        31   FTX             7/17
        WB.VARP         5   FTX             7/42
        WB.VDSP        32   FTX             7/16
        WB.1REFP       37   FTX             7/09
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      240              IDENT  FLINK
                        240                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       237 
                                        LITERALS* LOCAL         237         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=FLINK          0+           QCP              0+           MDD             63+ 
                                        DUC.             0            DER              2+           PDC            123+ 
                                        DUC.1ST          1            DPT             13+           PDI            176+ 
                                        DUC.2ND          2            LPE             22+           PIS            204+ 
                                        DUC.BTH          3            MAL             53+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ALC       RLVEC     V=DIR.R   CO.RNDD   N.GL      T.BLST    WTW=      T=ASG 
                                        N$EXST    CTAA      V=DIV.D   CO.RNDM   T=BLST    T.DATS    F.SKCR
                                        N.IL      CTA       V=DIR.C   F.IL      T=DATS    T.GL      LCT 
                                        LVEC      OIL       V=MUL.R   POP.DVA   T=GL      T.PAR     OMC 
                                        LLVEC     BBC       V=MUL.D   SMOD      T=SCR     T.SCR     SDM 
                                        RVEC      V=SEG     V=MUL.C   SOPR      T=PAR     T.SYM     T.ASG 
  
  
  
  
                                                  IDENT  FLINK                                                   FLINK       2
                                         FLINK    SECT   (CCG MODE FRONT END LINKAGES.)                          FLINK       3
  
  
  
  
  
                                        *         IN ALLOC                                                       FLINK       5
                                                  EXT    ALC                                                     FLINK       6
                                                                                                                 FLINK       7
                                        *         IN CCGLINK                                                     FLINK       8
                                                  EXT    N$EXST,N.IL                                             FLINK       9
                                                                                                                 FC5A150   292
                                        *         IN CONRED                                                      FC5A150   293
                                                  EXT    LVEC,LLVEC,RVEC,RLVEC,CTAA,CTA                          FC5A150   294
                                                                                                                 FLINK      10
                                        *         IN FEC                                                         FLINK      11
                                                  EXT    OIL,BBC                                                 FC5A141    65
                                                                                                                 FLINK      13
                                        *         IN FSKEL                                                       FLINK      14
                                                  EXT    V=SEG,V=DIR.R,V=DIV.D,V=DIR.C,V=MUL.R,V=MUL.D,V=MUL.C   FC5A150   295
                                                                                                                 FLINK      16
                                        *         IN FTN                                                         FLINK      17
                                                  EXT    CO.RNDD,CO.RNDM,F.IL                                    FC50392     6
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     2
                                                                      FLINK 
  
                                                                                                                 FC5A150   296
                                        *         IN PAR                                                         FC5A150   297
                                                  EXT    POP.DVA,SMOD,SOPR                                       FC5A150   298
                                                                                                                 FLINK      19
                                        *         IN PUC                                                         FLINK      20
                                                  EXT    N.GL,T=BLST,T=DATS,T=GL,T=SCR,T=PAR,T.BLST,T.DATS,T.GL  FLINK      21
                                                  EXT    T.PAR,T.SCR,T.SYM                                       FLINK      22
                                                                                                                 FLINK      23
                                        *         IN UTILITY                                                     FLINK      24
                                                  EXT    WTW=                                                    FLINK      25
  
  
  
  
                                        **        CCG MODE FRONT END FAKE LINKAGES.                              FLINK      27
                                                                                                                 FLINK      28
                                                                                                                 FLINK      29
                                         DUC.     EQUENT 0           **** KLUDGE ****                            FLINK      30
                                         DUC.1ST  EQUENT 1           **** KLUDGE ****                            FLINK      31
                                         DUC.2ND  EQUENT 2           **** KLUDGE ****                            FLINK      32
                                         DUC.BTH  EQUENT 3           **** KLUDGE ****                            FLINK      33
                                                                                                                 FLINK      34
             0  0400400000 +             QCP      SUBR   =           QUICK CODE GENERATOR PRESETS                FLINK      35
             1  0400000000 +                      EQ     EXIT.       DO NOTHING...                               FLINK      36
  
  
  
  
                                        **        OX,X - COMPUTE ORDINAL FROM INDEX.                             FLINK      38
                                        *                                                                        FLINK      39
                                        *         OX.R   X.I                                                     FLINK      40
                                        *                                                                        FLINK      41
                                        *         ENTRY  (X.I) = THE WORD INDEX OF AN INTERMEDIATE.              FLINK      42
                                        *                                                                        FLINK      43
                                        *         EXIT   (X.R) = THE ENTRY ORDINAL OF THAT INTERMEDIATE.         FLINK      44
                                        *                                                                        FLINK      45
                                        *         USES   X.I  B.N                                                FLINK      46
                                                                                                                 FLINK      47
                                                                                                                 FLINK      48
                                         OX,X     OPDEF  R,I                                                     FLINK      49
                                                  SX.R   43691                                                   FC5A124     4
                                                  IX.R   X.R*X.I                                                 FC5A124     5
                                                  AX.R   17                                                      FC5A124     6
                                                  ENDM                                                           FLINK      52
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     3
                                                                      DER 
  
                                        **        DER -  DETECT EXTENDED RANGE DO LOOPS.                         FLINK     100
                                        *                                                                        FLINK     101
                                        *         ENTRY  (X6) = *WB* OF LABEL CURRENT SOURCE STMT COULD JUMP TO. FLINK     102
                                        *                (B7) = SYMTAB *WB* INDEX OF LABEL.                      FLINK     103
                                        *                                                                        FLINK     104
                                        *         EXIT   WB.DLEN IS SET ON DO-TOP LABEL FOR EACH CLOSED LOOP     FLINK     105
                                        *                CONTAINING ABOVE LABEL DEFINITION.                      FLINK     106
                                        *                                                                        FLINK     107
                                        *         USES   X - 0,1,2,3,7  A - 1,7  B - 3 .                         FLINK     108
                                        *                                                                        FLINK     109
                                        *         KEEPS  X - 6  B - 7                                            FLINK     110
                                                                                                                 FLINK     111
                                                                                                                 FLINK     112
             2  0400400002 +             DER      SUBR   =             ...ENTRY/EXIT...                          FLINK     113
             3  5110000000 X                      SA1    T.SYM                                                   FLINK     114
                          66371                   =B3    B7-WB.W+WC.W                                            FLINK     115
                               53313              SA3    X1+B3       X3 = *WC*                                   FLINK     116
             4  43057                             MX0    -WC.LDTLL                                               FLINK     117
                                                  LX3    -WC.LDTLP                                               FLINK     118
                     15230                        BX2    -X0*X3      X2 = INITIAL LINK TO DO TOP LABEL           FLINK     119
                          55331                   =A3    A3-WC.W+WB.W      X3 = *WB*                             FLINK     120
                                                                                                                 FLINK     121
             5  20341                    DER10    SBIT   X3,WB.DLPEP                                             FLINK     122
                     0323000002 +                 PL     X3,EXIT.    IF END OF CHAIN                             FLINK     123
                               63320              SB3    X2                                                      FLINK     124
             6  20201                             LX2    1                                                       FLINK     125
                     63323                        SB3    B3+X2                                                   FLINK     126
                          6133000002              =B3    B3+WC.W     CONVERT TO WC INDEX                         FLINK     127
             7  53313                             SA3    X1+B3       X3 = *WC*                                   FLINK     128
                                                  LX3    -WC.LDTLP                                               FLINK     129
                     15230                        BX2    -X0*X3                                                  FLINK     130
                          55331                   =A3    A3-WC.W+WB.W      X3 = *WB*                             FLINK     131
                               10733              BX7    X3                                                      FLINK     132
            10  20742                             SBIT   X7,WB.DLCP                                              FLINK     133
                     0327000002 +                 PL     X7,EXIT.    IF LOOP NOT CLOSED YET                      FLINK     134
                               20710              SBIT   X7,WB.DLENP/WB.DLCP                                     FLINK     135
            11  0337000005 +                      MI     X7,DER10    IF ALREADY MARKED                           FLINK     136
                          43701                   CLAS=  X7,WB,(DLEN)                                            FLINK     137
            12  12737                             BX7    X3+X7                                                   FLINK     138
                     54730                        SA7    A3          MARK LOOP AS HAVING AN ENTRY                FLINK     139
                          0400000005 +            EQ     DER10                                                   FLINK     140
  
  
  
  
                                        **        DPT -  DEFINE PROGRAM TAG.                                     FLINK     142
                                        *                                                                        FLINK     143
                                        *         ENTRY  (X6) = ENTRY FOR *T.GL*, (WC) FORMAT                    FLINK     144
                                        *                                                                        FLINK     145
                                        *         USES   A1,A2,A6  X0,X7                                         FLINK     146
                                        *                                                                        FLINK     147
                                        *         CALLS  ALLOC                                                   FLINK     148
                                                                                                                 FLINK     149
                                                                                                                 FLINK     150
            13  0400400013 +             DPT      SUBR   =           ...ENTRY/EXIT...                            FLINK     151
            14  5110000000 X                      SA1    N.GL                                                    FLINK     152
                          5120000000 X            SA2    T=GL                                                    FLINK     153
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     4
                                                                      DPT 
  
            15  5160000021 +                      SA6    DPTA        SAVE (X6)                                   FLINK     154
                          73311                   =X3    X1+1                                                    FLINK     155
                               37032              IX0    X3-X2                                                   FLINK     156
            16  5110000000 X                      ALLOC  T.GL,X0     ENSURE TABLE LARGE ENOUGH FOR ALL GLS       FLINK     157
            17  5120000021 +                      SA2    DPTA                                                    FLINK     158
                          10622                   BX6    X2                                                      FLINK     159
                               53613              SA6    X1+B3       STORE ENTRY IN GL TABLE                     FLINK     160
            20  0400000013 +                      EQ     EXIT.                                                   FLINK     161
                                                                                                                 FLINK     162
            21                     1     DPTA     BSS    1           SAVE (X6)                                   FLINK     163
  
  
  
  
                                        **        LPE -  LINK POSSIBLE-ENTRY DO LOOPS.                           FLINK     165
                                        *                                                                        FLINK     166
                                        *         ENTRY  WE ARE IN THE PROCESS OF CLOSING OFF A DO LOOP          FLINK     167
                                        *                WHICH CONTAINS NO ENTRIES AND HAS AT LEAST ONE EXIT.    FLINK     168
                                        *                                                                        FLINK     169
                                        *                T.SCR CONTAINS DO LOOP INFORMATION IN T.BLST FORM.      FLINK     170
                                        *                                                                        FLINK     171
                                        *         EXIT   ALL LABELS DEFINED IN THIS LOOP THAT WERE NOT           FLINK     172
                                        *                PREVIOUSLY LINKED, ARE MARKED AS POSSIBLE ENTRIES,      FLINK     173
                                        *                AND ARE LINKED TO THE CORRESPONDING DO-TOP LABEL.       FLINK     174
                                        *                THIS DO-TOP LABEL IS LINKED TO THE DO-TOP LABEL OF      FLINK     175
                                        *                OF THE LOOP ONE LEVEL OUT, IF THERE IS ONE, AND IS      FLINK     176
                                        *                MARKED WITH WB.DLPE = 1 SOLELY TO INDICATE THAT         FLINK     177
                                        *                THE LINK IS VALID.                                      FLINK     178
                                        *                                                                        FLINK     179
                                        *         USES   X - 0,1,2,3,5,6,7  A - 1,2,3,6  B - 2,3,7.              FLINK     180
                                                                                                                 FLINK     181
                                                                                                                 FLINK     182
            22  0400400022 +             LPE      SUBR   =             ...ENTRY/EXIT...                          FLINK     183
            23  5110000000 X                      SA1    T.SCR                                                   FLINK     184
                          63210                   SB2    X1                                                      FLINK     185
            24  5112000004                        SA1    B2+DORT.W   X1 = TP. FORMAT OPERAND OF DO-TOP LABEL     FLINK     186
                          0331000022 +            MI     X1,EXIT.    IF EVAPORATED ONE TRIP LOOP                 FC50594     6
            25  43054                             MX0    -TP.ORDL                                                FLINK     187
                     20120                        LX1    -TP.ORDP                                                FLINK     188
                          15510                   BX5    -X0*X1      X5 = SYMORD OF DO-TOP LABEL                 FLINK     189
                                                  LX5    WC.LDTLP                                                FLINK     190
            26  5110000000 X                      SA1    T=SCR                                                   FLINK     191
                          6231777766              SB3    X1-Z=BLST-1 B3 = NUMBER OF LABELS IN THE LOOP           FLINK     192
                                                  IFEQ   TEST,ON,1                                               FLINK     193
                                                  ZR     B3,"BLOWUP"                                             FLINK     194
            27  6122000010                        SB2    B2+Z=BLST   ADVANCE TO 1ST LABEL                        FLINK     195
                          43701                   CLAS=  X7,WB,(DLPE)      X7 = POSSIBLE ENTRY BIT MASK          FLINK     196
            30  43057                             MX0    -WC.LDTLL                                               FLINK     197
                                                  LX0    WC.LDTLP    X0 = NEGATIVE MASK FOR LINK ERASURE         FLINK     198
                     5110000000 X                 SA1    T.SYM       X1 = FWA SYMTAB                             FLINK     199
                                                                                                                 FLINK     200
            31  56220                    LPE10    SA2    B2          X2 = LABEL WORD                             FLINK     201
                                                  HX2    LA.DEF                                                  FLINK     202
                     0322000036 +                 PL     X2,LPE20    IF NOT DEFINED IN THIS LOOP                 FLINK     203
                                                  LX2    LA.DEFP+1-LA.ORDP                                       FLINK     204
                               73220              SX2    X2          X2 = SYMORD OF LABEL                        FLINK     205
                                   0              ERRNZ  LA.ORDL-18                                              FLINK     206
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     5
                                                                      LPE 
  
            32  63720                             SB7    X2                                                      FLINK     207
                     20201                        LX2    1                                                       FLINK     208
                          63727                   SB7    X2+B7                                                   FLINK     209
                               66771              =B7    B7+WB.W     CONVERT TO WB INDEX                         FLINK     210
            33  53217                             SA2    X1+B7       X2 = *WB*                                   FLINK     211
                     20241                        HX2    WB.DLPE                                                 FLINK     212
                          0332000036 +            MI     X2,LPE20    IF ALREADY LINKED                           FLINK     213
            34  20233                             LX2    WB.DLPEP+1                                              FLINK     214
                     12627                        BX6    X2+X7                                                   FLINK     215
                          54620                   SA6    A2          MARK LABEL AS POSSIBLE ENTRY                FLINK     216
                               54221              =A2    A2-WB.W+WC.W      X2 = *WC*                             FLINK     217
            35  11202                             BX2    X0*X2       ASSURE THAT LINK IS ZERO                    FLINK     218
                     12625                        BX6    X2+X5                                                   FLINK     219
                          54620                   SA6    A2          SET LINK                                    FLINK     220
                                                                                                                 FLINK     221
            36  66221                    LPE20    =B2    B2+1                                                    FLINK     222
                     67331                        =B3    B3-1                                                    FLINK     223
                          0530000031 +            NZ     B3,LPE10    IF MORE LABELS                              FLINK     224
                                                                                                                 FLINK     225
                                        **        LINK THIS LOOP TO THE LOOP ONE LEVEL OUT.                      FLINK     226
                                                                                                                 FLINK     227
            37  5120000000 X                      SA2    T=BLST                                                  FLINK     228
                          5130000000 X            SA3    T.BLST                                                  FLINK     230
            40  63220                             SB2    X2                                                      FC50829     6
                     63330                        SB3    X3                                                      FC50829     7
                                                                                                                 FC50829     8
            41  0420000022 +             LPE30    ZR     B2,EXIT.    IF NO OUTER LOOP                            FC50829     9
                          66723                   SB7    B2+B3                                                   FC50829    10
                               57271              =A2    B7-1        FETCH LC. WORD                              FC50829    11
            42  43022                             MX0    LC.DOL                                                  FC50829    12
                     20066                        LX0    LC.DOL+LC.DOP                                           FC50829    13
                          11002                   BX0    X0*X2                                                   FC50829    14
            43  0310000045 +                      NZ     X0,LPE40    IF THIS BLOCK IS DO LOOP                    FC50829    15
                                                  LX2    -LC.CNTP                                                FC50829    16
                          63720                   SB7    X2          LENGTH OF BLOCK IF ENTRY                    FC50829    17
                               67227              SB2    B2-B7       DECREMENT                                   FC50829    18
            44  0400000041 +                      EQ     LPE30       LOOP FOR A DO ENTRY                         FC50829    19
                                                                                                                 FC50829    20
                                         LPE40    LX2    -LC.CNTP                                                FC50829    21
            45  63220                             SB2    X2          B2 = LENGTH OF LOOP ENTRY                   FLINK     234
                                   0              ERRNZ  LC.CNTL-18                                              FLINK     235
                     6122777772                   =B2    B2-DORT.W-1                                             FLINK     236
                               55222              SA2    A2-B2       X2 = DO-TOP LABEL (TP. FORMAT)              FLINK     237
            46  43354                             MX3    -TP.ORDL                                                FLINK     238
                     20220                        LX2    -TP.ORDP                                                FLINK     239
                          15623                   BX6    -X3*X2      X6 = SYMORD OF DO-TOP LABEL                 FLINK     240
                                                  LX5    -WC.LDTLP                                               FLINK     241
                               63250              SB2    X5                                                      FLINK     242
            47  20501                             LX5    1                                                       FLINK     243
                     63252                        SB2    X5+B2                                                   FLINK     244
                          6122000002              =B2    B2+WC.W     B2 = *WC* INDEX OF CURRENT DO-TOP LABEL     FLINK     245
            50  53212                             SA2    X1+B2       X2 = *WC*                                   FLINK     246
                     11202                        BX2    X0*X2       ASSURE LINK IS ZERO                         FLINK     247
                          12626                   BX6    X2+X6       SET LINK TO NEXT LOOP                       FLINK     248
                               54620              SA6    A2          UPDATE *WC*                                 FLINK     249
            51  55221                             =A2    A2-WC.W+WB.W   X2 = *WB*                                FLINK     250
                     12627                        BX6    X2+X7       INDICATE VALID LINK                         FLINK     251
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     6
                                                                      LPE 
  
                          54620                   SA6    A2          UPDATE *WC*                                 FLINK     252
            52  0400000022 +                      EQ     EXIT.                                                   FLINK     253
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     7
                                                                      MAL 
  
                                        **        MAL - MARK LOOPS POSSIBLY ENTERED VIA ASSIGNED GOTO/S.         FC5A177    11
                                        *                                                                        FC5A177    12
                                        *         USES   ALL REGISTERS.                                          FC5A177    13
                                                                                                                 FC5A177    14
            53  0400400053 +             MAL      SUBR   =                                                       FC5A177    15
            54  5110000000 X                      SA1    =XT=ASG                                                 FC5A177    16
                          0301000053 +            ZR     X1,EXIT.    IF NO ASSIGN STATEMENTS IN PROGRAM          FC5A177    17
            55  5140000000 X                      SA4    T.SYM                                                   FC5A177    18
                          5120000000 X            SA2    =XT.ASG                                                 FC5A177    19
            56  63610                             SB6    X1                                                      FC5A177    20
                     5252777776                   SA5    X2-1        INITIALIZE BEFORE ASSIGN TABLE              FC5A177    21
                                                                                                                 FC5A177    22
                                        *         LOOP THROUGH ASSIGN TABLE, CALLING *DER* ON ALL TARGET         FC5A177    23
                                        *         LABELS TO MARK ALL CONTAINING LOOPS AS *ENTRY* .               FC5A177    24
                                                                                                                 FC5A177    25
            57  0460000053 +             MAL10    ZR     B6,EXIT.    IF TABLE EXHAUSTED                          FC5A177    26
                          54551                   =A5    A5+1                                                    FC5A177    27
                               67661              =B6    B6-1                                                    FC5A177    28
            60  73350                             SX3    X5          LABEL ORDINAL                               FC5A177    29
                     22013                        LX0    B1,X3                                                   FC5A177    30
                          36630                   IX6    X3+X0                                                   FC5A177    31
                               63761              =B7    X6+WB.W     WB INDEX                                    FC5A177    32
            61  53247                             SA2    X4+B7       WB                                          FC5A177    33
                     10622                        BX6    X2                                                      FC5A177    34
                          0100000002 +            RJ     DER         MARK CONTAING LOOPS ENTERED                 FC5A177    35
            62  0400000057 +                      EQ     MAL10                                                   FC5A177    36
  
  
  
  
                                        **        MDD -  MARK DO PARAMETERS DEFINED.                             FLINK     255
                                        *                                                                        FLINK     256
                                        *         THE PURPOSE OF THIS ROUTINE IS TO ENABLE MORE                  FLINK     257
                                        *         EFFICIENT CODE TO BE GENERATED FOR DO LOOPS.                   FLINK     258
                                        *                                                                        FLINK     259
                                        *         ENTRY  (X5) = OPERAND (TP. FORMAT) OF A STORE TARGET.          FLINK     260
                                        *                (X6) = AMOUNT OF T.BLST TO SEARCH                       FLINK     261
                                        *                                                                        FLINK     262
                                        *         EXIT   WB.PRD SET IN SYMTAB ENTRY OF LOOP-TOP LABEL FOR        FLINK     263
                                        *                EACH ACTIVE DO-LOOP WHOSE LIMIT PARAMETER COULD         FLINK     264
                                        *                HAVE BEEN RE-DEFINED.                                   FLINK     265
                                        *                                                                        FLINK     266
                                        *         CALLS  BBC                                                     FLINK     267
                                        *                                                                        FLINK     268
                                        *         USES   X - 0,1,2,3,6,7  A - 1,2,7  B - 2,3,7                   FLINK     269
                                                                                                                 FLINK     270
                                                                                                                 FLINK     271
            63  0400400063 +             MDD      SUBR   =           ENTRY/EXIT...                               FLINK     272
            64  0306000063 +                      ZR     X6,EXIT.    IF NO ACTIVE DO-LOOPS                       FLINK     273
                          5160000116 +            SA6    MDDA        PRESERVE LENGTH                             FLINK     274
            65  43374                             MX3    -0          BIAS FIELD SHOULD NOT BE IGNORED            FLINK     275
                     10055                        BX0    X5                                                      FLINK     276
                          20061                   HX0    TP.INTR                                                 FLINK     277
            66  0320000072 +                      PL     X0,MDD10    IF NOT INTERMEDIATE                         FLINK     278
                          20071                   LX0    TP.INTRP-TP.ARYP                                        FLINK     279
            67  0320000063 +                      PL     X0,EXIT.    IF NOT ARRAY MUST BE SUBSTRING              FLINK     280
                          5110000000 X            SA1    T.PAR                                                   FLINK     281
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     8
                                                                      MDD 
  
            70  43754                             MX7    -TP.ORDL                                                FLINK     282
                     20036                        LX0    TP.ARYP+1-TP.ORDP                                       FLINK     283
                          15707                   BX7    -X7*X0      ISOLATE T.PAR INDEX                         FLINK     284
                               63271              =B2    X7+OR.1OP                                               FLINK     285
            71  53512                             SA5    X1+B2                                                   FLINK     286
                     54511                        =A5    A1+1        STORE TARGET IS ARRAY NAME                  FLINK     287
                          43344                   MX3    -TP.BIASL                                               FLINK     288
                               20324              LX3    TP.BIASP    INDICATES BIAS SHOULD BE IGNORED            FLINK     289
                                                                                                                 FLINK     290
            72  0100000000 X             MDD10    RJ     BBC         BASE/BIAS CONVERSION OF X5                  FLINK     291
                                                                                                                 FLINK     292
                                        **        (X5) = STORE TARGET IN BASE/BIAS FORM (TP. FORMAT).            FLINK     293
                                        *         (X3) = BIAS FIELD MASK.                                        FLINK     294
                                                                                                                 FLINK     295
            73  10733                             BX7    X3                                                      FLINK     296
                     5130000237 +                 CLAS=  X3,TP,(BIAS,ORD)                                        FLINK     297
                               11535              BX5    X3*X5       X5 = BIAS, ORD FIELDS ONLY                  FLINK     298
            74  11557                             BX5    X5*X7       X5 = COMPARE QUANTITY                       FLINK     299
                     5110000116 +                 SA1    MDDA                                                    FLINK     300
            75  5120000000 X                      SA2    T.BLST                                                  FLINK     301
                          36212                   IX2    X1+X2                                                   FLINK     302
            76  5222777776                        =A2    X2-1        A2 _ LC. WORD OF CURRENT BLOCK STRUCTURE    FLINK     303
                          63710                   SB7    X1          B7 = NUMBER OF WORDS REMAINING IN T.BLST    FLINK     304
            77  5110000000 X                      SA1    T.SYM                                                   FLINK     305
                          66200                   =B2    0           B2 = LENGTH OF CURRENT T.BLST SEGMENT       FLINK     306
           100  7201000001                        SX0    X1+WB.W     X0 = FWA + 1 OF SYMTAB                      FLINK     307
                          7110016000              CLAS=  X1,TP,(INTR,SHRT,ADDR)                                  FLINK     308
           101  10611                             BX6    X1          X6 = REJECTION MASK                         FLINK     309
                                                                                                                 FLINK     310
           102  67772                    MDD20    SB7    B7-B2                                                   FLINK     311
                     0470000063 +                 ZR     B7,EXIT.    IF TABLE EXHAUSTED                          FLINK     312
                               55222              SA2    A2-B2       X2 = LC. WORD OF CURRENT BLOCK STRUCTURE    FLINK     313
           103  43152                             MX1    -LC.CNTL                                                FLINK     314
                                                  LX2    -LC.CNTP                                                FLINK     315
                     15121                        BX1    -X1*X2                                                  FLINK     316
                          63210                   SB2    X1          B2 = LENGTH OF THIS SEGMENT                 FLINK     317
                               20230              LX2    LC.CNTP-LC.DOP                                          FLINK     318
           104  43152                             MX1    -LC.DOL                                                 FLINK     319
                     15121                        BX1    -X1*X2                                                  FLINK     320
                          0301000102 +            ZR     X1,MDD20    IF NOT DO-LOOP STRUCTURE                    FLINK     321
           105  6132777775                        =B3    B2-1-DOLI.W                                             FLINK     322
                          55123                   SA1    A2-B3       (A1,X1) _ DOLI.W WORD                       FLINK     323
                               11316              BX3    X1*X6                                                   FLINK     324
           106  0313000102 +                      NZ     X3,MDD20    IF COMPARE NOT VALID                        FLINK     325
                          5130000237 +            CLAS=  X3,TP,(BIAS,ORD)                                        FLINK     326
           107  11113                             BX1    X1*X3       X1 = BIAS, ORD FIELDS ONLY                  FLINK     327
                     11117                        BX1    X1*X7       X1 = COMPARE QUANTITY                       FLINK     328
                          13115                   BX1    X1-X5                                                   FLINK     329
           110  0311000102 +                      NZ     X1,MDD20    IF DO LIMIT NOT RE-DEFINED                  FLINK     330
                          6132777773              SB3    B2-DORT.W                                               FLINK     331
           111  67331                             =B3    B3-1                                                    FLINK     332
                     55123                        SA1    A2-B3       X1 = OPERAND OF DO-TOP LABEL                FLINK     333
                          43354                   MX3    -TP.ORDL                                                FLINK     334
                               20120              LX1    -TP.ORDP                                                FLINK     335
           112  15113                             BX1    -X3*X1      X1 = SYMORD OF LABEL                        FLINK     336
                     63310                        SB3    X1                                                      FLINK     337
                          20101                   LX1    1                                                       FLINK     338
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE     9
                                                                      MDD 
  
                               63313              SB3    X1+B3       CONVERT TO INDEX                            FLINK     339
           113  53103                             SA1    X0+B3       X1 = *WB* OF LABEL                          FLINK     340
                     43301                        CLAS=  X3,WB,(PRD)                                             FLINK     341
                               10277              BX2    X7                                                      FLINK     342
           114  12713                             BX7    X1+X3                                                   FLINK     343
                     54710                        SA7    A1          MARK LOOP WITH WB.PRD                       FLINK     344
                          10722                   BX7    X2                                                      FLINK     345
           115  0400000102 +                      EQ     MDD20                                                   FLINK     346
                                                                                                                 FLINK     347
           116                     1     MDDA     BSS    1           AMOUNT OF T.BLST TO SEARCH                  FLINK     348
  
  
  
  
                                        **        PDC - PROCESS DIVIDE BY CONSTANT.                              FC5A150   300
                                        *                                                                        FC5A150   301
                                        *         THIS ROUTINE WILL MAKE AN ATTEMPT TO OPTIMIZE THE EXPRESSION   FC5A150   302
                                        *         X/C (WHERE X IS ANY EXPRESSION AND C IS A CONSTANT) BY TURNING FC5A150   303
                                        *         IT INTO  X*(1.0/C).                                            FC5A150   304
                                        *                                                                        FC5A150   305
                                        *         ENTRY  (SMOD) = INFO ABOUT DOMINANT MODE OF THE EXPRESSION.    FC5A150   306
                                        *                (X3) = OPERATION                                        FC5A150   307
                                        *                (X4) = 1OP.                                             FC5A150   308
                                        *                (X5) = 2OP.                                             FC5A150   309
                                        *                                                                        FC5A150   310
                                        *         EXIT   IF OPTIMIZATION SUCCESSFULL :                           FC5A150   311
                                        *                                                                        FC5A150   312
                                        *                (X4)    = 1OP (POSSIBLY MODE CONVERTED)                 FC5A150   313
                                        *                (X5)    = OPERAND FOR 1.0/C  .  (2OP)                   FC5A150   314
                                        *                C(SOPR) = DESTROYED                                     FC5A150   315
                                        *                C(SMOD) = UPDATED                                       FC5A150   316
                                        *                C(POP.DVA) = .NZ.                                       FC5A150   317
                                        *                C(B6-1) = X5                                            FC5A150   318
                                        *                C(B6-2) = X4                                            FC5A150   319
                                                                                                                 FC5A150   320
                                        *                BINARY FOR  1.0/C  AND  (1.0/C)*C  ENTERED              FC5A150   321
                                        *                IN THE CONSTANT TABLE.                                  FC5A150   322
                                        *                                                                        FC5A150   323
                                        *                IF OPTIMIZATION IS UNSUCCESSFULL :                      FC5A150   324
                                        *                                                                        FC5A150   325
                                        *                C(POP.DVA) = 0                                          FC5A150   326
                                        *                EVERYTHING ELSE IS PRESERVED.                           FC5A150   327
                                        *                                                                        FC5A150   328
                                        *         CALLS  CTA.                                                    FC5A150   329
                                        *                                                                        FC5A150   330
                                        *         USES   X - ALL  A - ALL BUT A0  B - 2,3,7.                     FC5A150   331
                                                                                                                 FC5A150   332
                                                                                                                 FC5A150   333
                                        **        HERE IF OPTIMIZATION WAS UNSUCCESSFULL.                        FC5A150   334
                                                                                                                 FC5A150   335
                                         .INV     IFEQ   NOINVERT,0                                              FC5A150   336
           117  5130000165 +             PDC30    SA3    PDCB                                                    FC5A150   337
                          54431                   =A4    A3+1                                                    FC5A150   338
                               54541              =A5    A4+1        RESTORE REGS                                FC5A150   339
           120  43600                             MX6    0                                                       FC5A150   340
                     5160000000 X                 SA6    SMOD                                                    FC5A150   341
                               10633              BX6    X3                                                      FC5A150   342
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE    10
                                                                      PDC 
  
           121  5160000000 X                      SA6    SOPR        RESTORE CELLS                               FC5A150   343
                          10655                   BX6    X5                                                      FC5A150   344
                               57661              SA6    B6-B1                                                   FC5A150   345
           122  10644                             BX6    X4                                                      FC5A150   346
                     55661                        =A6    A6-1        RESTORE THE STACK                           FC5A150   347
                                                                                                                 FC5A150   348
           123  0400400123 +             PDC      SUBR   =           ENTRY/EXIT...                               FC5A150   349
           124  5110000000 X                      SA1    CO.RNDM                                                 FC50392     7
                          5120000000 X            SA2    CO.RNDD                                                 FC50392     8
           125  13112                             BX1    X1-X2                                                   FC50392     9
                     0311000123 +                 NZ     X1,EXIT.    IF DIFFERENT ARITHMETIC SELECTED            FC50392    10
                               10633              BX6    X3                                                      FC5A150   350
           126  10744                             BX7    X4                                                      FC5A150   351
                     5160000165 +                 SA6    PDCB                                                    FC5A150   352
                               54761              =A7    A6+1                                                    FC5A150   353
           127  10755                             BX7    X5                                                      FC5A150   354
                     54771                        =A7    A7+1        PRESERVE X3,X4,X5                           FC5A150   355
                          0100000000 X            CALL   SDM         SET DOMINANT MODE                           FC5A150   356
           130  0100000000 X                      CALL   OMC         OUTPUT (NOT REALLY) MODE CONVERSION         FC5A150   357
           131  10155                             BX1    X5          CONVERTED (POSSIBLY) OPERAND                FC5A150   358
                     0100000000 X                 CALL   LCT         LOAD VALUE                                  FC5A150   359
           132  0310000133 +                      NZ     X0,PDC5     IF NOT BOOLEAN                              FC50475     5
                                   0              ERRNZ  M.BOOL                                                  FC50475     6
                          0521000117 +            NE     B2,B1,PDC30 IF NOT SHORT CONSTANT                       FC50475     7
                                                                                                                 FC50475     8
           133  5110000000 X             PDC5     SA1    SMOD                                                    FC50475     9
                          7221777774              SX2    X1-M.REAL                                               FC5A150   361
           134  7201777771                        SX0    X1-M.CPLX-1                                             FC5A150   362
                          0332000117 +            MI     X2,PDC30    IF DOMINANT MODE IS INT, LOG, OR BOOL       FC5A150   363
           135  0320000117 +                      PL     X0,PDC30    IF DOMINANT MODE IS NOT REAL, DBL OR CPLX   FC5A150   364
                                   0              ERRNZ  M.DBL-M.REAL-1                                          FC5A150   365
                                   0              ERRNZ  M.CPLX-M.DBL-1                                          FC5A150   366
                          5160000001 X            SA6    LVEC+1                                                  FC5A150   367
           136  5170000001 X                      SA7    LLVEC+1     STORE UPPER AND LOWER OF 2OP                FC5A150   368
                          7160017204              SX6    1./1S45                                                 FC5A150   369
           137  20655                             LX6    45                                                      FC5A150   370
                     5160000000 X                 SA6    LVEC                                                    FC5A150   371
                               43700              MX7    0                                                       FC5A150   372
           140  5170000000 X                      SA7    LLVEC       STORE UPPER AND LOWER OF 1OP (1.0)          FC5A150   373
                          5232000170 +            SA3    ICRD+X2     X3 = INDEX OF CONSTANT REDUCER              FC5A150   374
           141  5233000000 X                      SA3    =XF.SKCR+X3                                             FC5A150   375
                                                  LX3    -VS.CRAP                                                FC5A150   376
                          10622                   BX6    X2                                                      FC5A150   377
           142  5160000163 +                      SA6    PDCA        PRESERVE OFFSET INTO ICRD (ICRM)            FC5A150   378
                          0100000000 X            CALL   CTA         PERFORM  1./C                               FC5A150   379
           143  0306000117 +                      ZR     X6,PDC30    IF DIVIDE RESULT NOT GOOD                   FC5A150   380
                          5160000164 +            SA6    PDCA+1      PRESERVE OPERAND OF RESULT                  FC5A150   381
           144  5110000000 X                      SA1    RVEC        X1 = UPPER HALF OF RESULT                   FC5A150   382
                          5120000000 X            SA2    RLVEC       X2 = LOWER HALF OF RESULT                   FC5A150   383
           145  10611                             BX6    X1                                                      FC5A150   384
                     10722                        BX7    X2                                                      FC5A150   385
                          5160000000 X            SA6    LVEC                                                    FC5A150   386
           146  5170000000 X                      SA7    LLVEC       MAKE RESULT AN OPERAND FOR (1./C)*C         FC5A150   387
                          5130000163 +            SA3    PDCA                                                    FC5A150   388
           147  5233000173 +                      SA3    ICRM+X3     X3 = INDEX OF CONSTANT REDUCER              FC5A150   389
                          5233000000 X            SA3    F.SKCR+X3                                               FC5A150   390
                                                  LX3    -VS.CRAP                                                FC5A150   391
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE    11
                                                                      PDC 
  
           150  0100000000 X                      CALL   CTA         PERFORM (1.0/C)*C                           FC5A150   392
           151  0306000117 +                      ZR     X6,PDC30    IF RESULT NOT GOOD                          FC5A150   393
                          7160017204              SX6    1./1S45                                                 FC5A150   394
           152  20655                             LX6    45                                                      FC5A150   395
                     5110000000 X                 SA1    RVEC                                                    FC5A150   396
                               13616              BX6    X1-X6                                                   FC5A150   397
           153  0316000117 +                      NZ     X6,PDC30    IF UPPER HALF OF RESULT NOT GOOD            FC5A150   398
                          5120000000 X            SA2    RLVEC                                                   FC5A150   399
           154  43600                             MX6    0                                                       FC5A150   400
                     5110000000 X                 SA1    SMOD                                                    FC5A150   401
           155  7211777773                        SX1    X1-M.DBL                                                FC5A150   402
                          0331000160 +            MI     X1,PDC20    IF DOMINANT MODE REAL                       FC5A150   403
           156  0311000157 +                      NZ     X1,PDC10    IF DOMINANT MODE NOT DOUBLE                 FC5A150   404
                          43614                   MX6    12                                                      FC5A150   405
                                                                                                                 FC5A150   406
           157  15626                    PDC10    BX6    -X6*X2      EXTRACT PROPER PORTION OF LOWER HALF        FC5A150   407
                     0316000117 +                 NZ     X6,PDC30    IF LOWER HALF OF RESULT NOT GOOD            FC5A150   408
                                                                                                                 FC5A150   409
           160  5150000164 +             PDC20    SA5    PDCA+1      X5 = NEW 2OP (1./C)                         FC5A150   410
                          10655                   BX6    X5                                                      FC5A150   411
                               57661              SA6    B6-B1       UPDATE 2OP ON STACK                         FC5A150   412
           161  43601                             MX6    1                                                       FC5A150   413
                     5160000000 X                 SA6    POP.DVA     FLAG CONVERT TO MULTIPLY                    FC5A150   414
           162  0400000123 +                      EQ     EXIT.                                                   FC5A150   415
                                                                                                                 FC5A150   416
           163                     2     PDCA     BSS    2                                                       FC5A150   417
           165                     3     PDCB     BSS    3           PRESERVE X3,X4,X5 HERE                      FC5A150   418
                                                                                                                 FC5A150   419
           170  00000000000000000000 X   ICRD     CON    V=DIR.R,V=DIV.D,V=DIR.C                                 FC5A150   420
           171  00000000000000000000 X
           172  00000000000000000000 X
           173  00000000000000000000 X   ICRM     CON    V=MUL.R,V=MUL.D,V=MUL.C                                 FC5A150   421
           174  00000000000000000000 X
           175  00000000000000000000 X
                                         .INV     ELSE                                                           FC5A150   422
                                         PDC      BSSENT 0                                                       FC5A150   423
                                                  EQ     "BLOWUP"                                                FC5A150   424
                                         .INV     ENDIF                                                          FC5A150   425
  
  
  
  
                                        **        PDI - PUBLISH DATA TO IL FILE.                                 FLINK     350
                                        *                                                                        FLINK     351
                                        *         LIKE *PIS*, BELOW, THIS ROUTINE EXISTS IN QCG AND CCG.         FLINK     352
                                        *         IN QCG MODE, CAI IS CALLED TO COPY (T.DATS) TO (F.PB).         FLINK     353
                                        *         IN CCG MODE, THE (T.DATS) IS WRITTEN TO (F.PB).                FLINK     354
                                        *                                                                        FLINK     355
                                        *         ENTRY  LAST TURPLE IN (T.PAR) IS (V=DATA).                     FLINK     356
                                        *                                                                        FLINK     357
                                        *         USES   ALL.                                                    FLINK     358
                                        *         CALLS  OIL, WRITEW.                                            FLINK     359
                                                                                                                 FLINK     360
                                                                                                                 FLINK     361
           176  0400400176 +             PDI      SUBR   =           ENTRY/EXIT...                               FLINK     362
           177  0100000000 X                      CALL   OIL         OUTPUT I.L.                                 FLINK     363
           200  5150000000 X                      SA5    T=DATS                                                  FLINK     364
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE    12
                                                                      PDI 
  
                          5140000000 X            SA4    T.DATS                                                  FLINK     365
           201  63640                             WRITEW F.IL,X4,X5                                              FLINK     366
           203  0400000176 +                      EQ     EXIT.                                                   FLINK     367
  
  
  
  
                                        **        PIS - PUBLISH IL SEGMENT.                                      FLINK     369
                                        *                                                                        FLINK     370
                                        *         THERE ARE TWO VERSIONS OF THIS ROUTINE.                        FLINK     371
                                        *         IN QCG MODE, CAI IS CALLED TO COMPILE ALL INSTRUCTIONS         FLINK     372
                                        *            TO T.PB.                                                    FLINK     373
                                        *         IN CCG MODE, THE IL IS WRITTEN TO A FILE FOR LATER             FLINK     374
                                        *            PROCESSING BY THE BRIDGE.                                   FLINK     375
                                                                                                                 FLINK     376
                                                                                                                 FLINK     377
           204  0400400204 +             PIS      SUBR   =           ...ENTRY/EXIT...                            FLINK     378
           205  5140000000 X                      SA4    T=PAR                                                   FLINK     379
                          5110000000 X            SA1    N.IL        NUMBER OF WORDS WRITTEN TO IL               FLINK     380
           206  6170000003                        SB7    Z=TURP                                                  FLINK     381
                          36714                   IX7    X1+X4                                                   FLINK     382
                               73677              SX6    X7+B7                                                   FLINK     383
           207  7120000000 X                      SX2    F.IL                                                    FLINK     384
                          54610                   SA6    A1          UPDATE IL WORD COUNT                        FLINK     385
           210  6160000234 +                      WRITEW X2,PISA,B7                                              FLINK     386
                                                                                                                 FLINK     387
           211  5140000000 X                      SA4    T=PAR                                                   FLINK     388
                          5130000000 X            SA3    T.PAR                                                   FLINK     389
           212  5120000000 X                      SA2    N$EXST                                                  FLINK     390
                          43022                   MX0    TH.LINEL                                                FLINK     391
                               13666              SHRINK A4          RELEASE IL TABLE SPACE                      FLINK     392
                     53020                        SA0    X2          (A0) = PREVIOUS (N.EXST)                    FLINK     393
                          6120000061              =B2    59-TP.INTRP                                             FLINK     394
           214  63740                             SB7    X4          (B7) = LENGTH OF SEGMENT                    FLINK     395
                     20056                        LX0    TH.LINEL+TH.LINEP                                       FLINK     396
                          66500                   =B5    OR.OPR                                                  FLINK     397
                               63630              SB6    X3          (B6) = FWA SEGMENT                          FLINK     398
           215  43454                             MX4    -TP.ORDL                                                FLINK     399
                                                                                                                 FLINK     400
           216  56165                    PIS4     SA1    B6+B5       FETCH TURPLE HEADER                         FLINK     401
                     6155000003                   SB5    B5+Z=TURP                                               FLINK     402
                               11201              BX2    X0*X1       EXTRACT LINE NUMBER                         FLINK     403
           217  54311                             =A3    A1-OR.OPR+OR.1OP                                        FLINK     404
                     0302000220 +                 ZR     X2,PIS5     IF NOT BEGINNING-OF-STATEMENT               FLINK     405
                               54001              SA0    A0+B1                                                   FLINK     406
           220  54131                    PIS5     =A1    A3-OR.1OP+OR.2OP                                        FLINK     407
                     22723                        LX7    X3,B2                                                   FLINK     408
                          0327000224 +            PL     X7,PIS6     IF (1OP) NOT INTERMEDIATE                   FLINK     409
           221  20320                             LX3    -TP.ORDP                                                FLINK     410
                     15634                        BX6    -X4*X3      ISOLATE (X6) = INTERMEDIATE INDEX (1OP)     FLINK     411
                          11343                   BX3    X4*X3                                                   FLINK     412
           222  7170125253                        OX7    X6          (X7) = ORD (X6) = (X6) / Z=TURP             FLINK     413
           223  12673                             BX6    X7+X3                                                   FLINK     414
                     20654                        LX6    TP.ORDP                                                 FLINK     415
                          54630                   SA6    A3                                                      FLINK     416
           224  22721                    PIS6     LX7    X1,B2                                                   FLINK     417
                     0327000230 +                 PL     X7,PIS7     IF (2OP) NOT INTERMEDIATE                   FLINK     418
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE    13
                                                                      PIS 
  
                               20120              LX1    -TP.ORDP                                                FLINK     419
           225  15614                             BX6    -X4*X1      ISOLATE (X6) = INTERMEDIATE INDEX (2OP)     FLINK     420
                     11341                        BX3    X4*X1                                                   FLINK     421
                          7170125253              OX7    X6          (X7) = ORD (X6) = (X6) / Z=TURP             FLINK     422
                          12673                   BX6    X7+X3                                                   FLINK     423
                               20654              LX6    TP.ORDP                                                 FLINK     424
           227  54610                             SA6    A1                                                      FLINK     425
           230  0757000216 +             PIS7     LT     B5,B7,PIS4  IF MORE IL TO EXAMINE                       FLINK     426
                                                                                                                 FLINK     427
                          74700                   SX7    A0                                                      FLINK     428
           231  7120000000 X                      SX2    F.IL                                                    FLINK     429
                          54720                   SA7    A2          UPDATE (N.EXST)                             FLINK     430
           232  0100000000 X                      WRITEW X2,B6,B7                                                FLINK     431
           233  0400000204 +                      EQ     EXIT.                                                   FLINK     432
                                                                                                                 FLINK     433
           234  00000 X                  PISA     VFD    TH.SKELL/=XV=SEG,*P/0                                   FLINK     434
                    0000000000000000
           235                     2              BSSZ   Z=TURP-1                                                FLINK     435
  
  
  
  
                                                  LIST   D                                                       FLINK     437
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        T=ASG 
             0 X                        T.ASG 
             0 X                        SDM 
             0 X                        OMC 
             0 X                        LCT 
             0 X                        F.SKCR
  
                                        CONTENT OF LITERALS BLOCK.
  
           237  77777777777774000000    ;;;;;;@ 
  
           240                                    END                                                            FLINK     438
  
                             73600B CM  STORAGE USED             1584 STATEMENTS     1426 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.765 SECONDS         300 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       1/42 X    4/04
        BBC             0   EXTERNAL*       1/51 X    8/10
        B1=1            0 
        CO.RNDD         0   EXTERNAL*       1/57 X   10/09
        CO.RNDM         0   EXTERNAL*       1/57 X   10/08
        CTA             0   EXTERNAL*       1/48 X   10/45     11/01
        CTAA            0   EXTERNAL*       1/48 X
        DER             2   PROGRAM*        3/14 L    3/14 E    7/25
        DER10           5   PROGRAM*        3/23 L    3/37      3/41
        DOLI.W          1   FTX             8/41
        DORT.W          4   FTX             4/36      5/42      8/50
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE    14
        SYMBOLIC REFERENCE TABLE. 
  
        DPT            13   PROGRAM*        3/55 L    3/55 E
        DPTA           21   PROGRAM*        4/01 S    4/05      4/10 L
        DUC.            0                   2/18 D    2/18 E
        DUC.BTH         3                   2/21 D    2/21 E
        DUC.1ST         1                   2/19 D    2/19 E
        DUC.2ND         2                   2/20 D    2/20 E
        F.IL            0   EXTERNAL*       1/57 X   12/02     12/23     13/11
        F.SKCR          0   EXTERNAL*      10/41     10/56
        ICRD          170   PROGRAM*       10/40     11/29 L
        ICRM          173   PROGRAM*       10/55     11/32 L
        LA.ORDL        22   FTX             4/57
        LCT             0   EXTERNAL*      10/21
        LC.CNTL        22   FTX             5/41      8/33
        LC.CNTP         0   FTX             8/37
        LC.DOL         22   FTX             5/30      5/31      8/38
        LC.DOP         44   FTX             5/31      8/37
        LLVEC           0   EXTERNAL*       1/48 X   10/34 S   10/39 S   10/53 S
        LPE            22   PROGRAM*        4/33 L    4/33 E
        LPE10          31   PROGRAM*        4/52 L    5/18
        LPE20          36   PROGRAM*        4/54      5/07      5/16 L
        LPE30          41   PROGRAM*        5/27 L    5/37
        LPE40          45   PROGRAM*        5/33      5/39 L
        LVEC            0   EXTERNAL*       1/48 X   10/33 S   10/37 S   10/52 S
        MAL            53   PROGRAM*        7/05 L    7/05 E
        MAL10          57   PROGRAM*        7/16 L    7/26
        MDD            63   PROGRAM*        7/48 L    7/48 E
        MDDA          116   PROGRAM*        7/50 S    8/19      9/10 L
        MDD10          72   PROGRAM*        7/54      8/10 L
        MDD20         102   PROGRAM*        8/30 L    8/40      8/44      8/49      9/08
        M.BOOL          0   FTX            10/23
        M.CPLX          5   FTX            10/28     10/32
        M.DBL           4   FTX            10/31     10/32     11/11
        M.REAL          3   FTX            10/27     10/31
        NOINVERT        0   FTX             9/51 F
        N$EXST          0   EXTERNAL*       1/45 X   12/29
        N.GL            0   EXTERNAL*       2/06 X    3/56
        N.IL            0   EXTERNAL*       1/45 X   12/19
        OIL             0   EXTERNAL*       1/51 X   11/56
        OMC             0   EXTERNAL*      10/19
        OR.OPR          0   FTX            12/36     12/43
        OR.1OP          1   FTX             8/04     12/43     12/46
        OR.2OP          2   FTX            12/46
        PDC           123   PROGRAM*       10/07 L   10/07 E
        PDCA          163   PROGRAM*       10/44 S   10/47 S   10/54     11/19     11/26 L
        PDCB          165   PROGRAM*        9/52     10/14 S   11/27 L
        PDC10         157   PROGRAM*       11/13     11/16 L
        PDC20         160   PROGRAM*       11/12     11/19 L
        PDC30         117   PROGRAM*        9/52 L   10/24     10/29     10/30     10/46     11/02     11/07     11/17
        PDC5          133   PROGRAM*       10/22     10/26 L
        PDI           176   PROGRAM*       11/55 L   11/55 E
        PIS           204   PROGRAM*       12/17 L   12/17 E
        PISA          234   PROGRAM*       12/25     13/16 L
        PIS4          216   PROGRAM*       12/40 L   13/08
        PIS5          220   PROGRAM*       12/44     12/46 L
        PIS6          224   PROGRAM*       12/48     12/56 L
        PIS7          230   PROGRAM*       12/57     13/08 L
        POP.DVA         0   EXTERNAL*       2/03 X   11/23 S
1       FLINK - CCG MODE FRONT END LINKAGES.                          COMPASS 3.7-871.     24/05/02. 13.15.29.      PAGE    15
        SYMBOLIC REFERENCE TABLE. 
  
        QCP             0   PROGRAM*        2/23 L    2/23 E
        RLVEC           0   EXTERNAL*       1/48 X   10/49     11/08
        RVEC            0   EXTERNAL*       1/48 X   10/48     11/05
        SDM             0   EXTERNAL*      10/18
        SMOD            0   EXTERNAL*       2/03 X    9/56 S   10/26     11/10
        SOPR            0   EXTERNAL*       2/03 X   10/01 S
        TEST            0   FTX             4/44 F
        TH.LINEL       22   FTX            12/30     12/35
        TH.LINEP       34   FTX            12/35
        TH.SKELL       16   FTX            13/16
        TP.ADDRL        1   FTX             8/27
        TP.ADDRP       13   FTX             8/27
        TP.ARYP        15   FTX             7/55      8/02
        TP.BIASL       30   FTX             8/07      8/16      8/45
        TP.BIASP       24   FTX             8/08      8/16      8/45
        TP.INTRL        1   FTX             7/53      8/27
        TP.INTRP       12   FTX             7/53      7/55      8/27     12/33
        TP.ORDL        20   FTX             4/38      5/44      8/01      8/16      8/45      8/53     12/38
        TP.ORDP        54   FTX             4/39      8/02      8/45     12/49     13/01
                                            5/45      8/16      8/54     12/54     13/06
        TP.SHRTL        1   FTX             8/27
        TP.SHRTP       14   FTX             8/27
        T=ASG           0   EXTERNAL*       7/06
        T=BLST          0   EXTERNAL*       2/06 X    5/22
        T=DATS          0   EXTERNAL*       2/06 X   11/57
        T=GL            0   EXTERNAL*       2/06 X    3/57
        T=PAR           0   EXTERNAL*       2/06 X   12/18     12/27
        T=SCR           0   EXTERNAL*       2/06 X    4/42
        T.ASG           0   EXTERNAL*       7/09
        T.BLST          0   EXTERNAL*       2/06 X    5/23      8/20
        T.DATS          0   EXTERNAL*       2/06 X   12/01
        T.GL            0   EXTERNAL*       2/06 X    4/04
        T.PAR           0   EXTERNAL*       2/07 X    7/57     12/28
        T.SCR           0   EXTERNAL*       2/07 X    4/34
        T.SYM           0   EXTERNAL*       2/07 X    3/15      4/50      7/08      8/24
        V=DIR.C         0   EXTERNAL*       1/54 X   11/29
        V=DIR.R         0   EXTERNAL*       1/54 X   11/29
        V=DIV.D         0   EXTERNAL*       1/54 X   11/29
        V=MUL.C         0   EXTERNAL*       1/54 X   11/32
        V=MUL.D         0   EXTERNAL*       1/54 X   11/32
        V=MUL.R         0   EXTERNAL*       1/54 X   11/32
        V=SEG           0   EXTERNAL*       1/54 X   13/16
        WB.DLCP        31   FTX             3/34      3/36
        WB.DLENP       21   FTX             3/36      3/38
        WB.DLPEL        1   FTX             5/06
        WB.DLPEP       32   FTX             3/23      4/47      5/06      5/08
        WB.PRDP        23   FTX             9/03
        WB.W            1   FTX             3/16      3/21      3/32      5/04      5/11      5/56      7/22      8/26
        WC.LDTLL       15   FTX             3/18      4/48
        WC.W            2   FTX             3/16      3/21      3/28      3/32      5/11      5/51      5/56
        WTW=            0   EXTERNAL*       2/10 X   12/02     12/25     13/13
        Z=BLST         10   FTX             4/43      4/46
        Z=TURP          3   FTX            12/20     12/41     13/18
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2327              IDENT  LEX
                       2327                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2175 
                                        LITERALS* LOCAL        2175       132 
  
  
                                        ENTRY POINTS. 
  
                                        B=LEX            0+           TB=NUMR         30+           TOK=GS        1000+ 
                                        LEXFLG           4+           TB=PLVL         31+           TOK=IFT       1010+ 
                                        LEXMODE          5+           TB=TYPE         32+           TOK=ON        1014+ 
                                        SB=CONT         17+           LEX            156+           TOK=XEQ       1020+ 
                                        SB=LINC         20+           CST            506+           BLL           1622+ 
                                        SB=LORD         21+           RNC            631+           CAK           1711+ 
                                        TB=1ST          22+           TOK=CAL        725+           LDB           2066+ 
                                        TB=LABL         24+           TOK=COF        727+           LSL           2105+ 
                                        TB=LABR         25+           TOK=GN         765+           LSS           2143+ 
                                        TB=NUML         27+           TOK=GO         775+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ALC       KW=PARA   NCM       E.TLBL    F.IN      KW=PRIN   KW=PATC   WO.LOS
                                        K$=BEGC   KW=SAVE   SSY       FILL.     KW=BLOC   KW=PUNC   KW=PAUS   SFD 
                                        K$=COLL   CARDS     TLV       KW=FORM   KW=FUNC   KW=READ   KW=RETU   KW=BOOL 
                                        K$=DO     FEC=DAT   ZLCOLON   LTB=      KW=OVCA   KW=REWI   KW=STOP   KW=CHAR 
                                        K$=ELSE   FEC=DEC   ZLCOMMA   TOK=IDP   KW=OVER   KW=WRIT   CUL       KW=COMP 
                                        K$=ENDC   FEC=END   ZLEQUAL   CO.DS     KW=PROG   IFS       KW=DO     KW=DOUB 
                                        K$=ENDI   FEC=ENT   ZLPAREN   CO.IDP    KW=SUBR   KW=ASSI   CNF       KW=IMPL 
                                        K$=IF     FEC=EXU   STAGE     CO.PW     IDP=      KW=BREA   PDM       KW=INTE 
                                        K$=LIST   FEC=FMT   FEC=BY    CO.SEQ    KW=BACK   KW=CALL   PWBUF     KW=LOGI 
                                        KW=DATA   FEC=IMP   IFLEVEL   CO.SNAP   KW=BUFF   KW=CONT   T=STMT    KW=REAL 
                                        KW=COMM   FEC=OK    E.HC1     CO.WPL    KW=CLOS   KW=ELSE   T=TB      CDD 
                                        KW=DIME   FEC=PRM   E.HC2     CO.WPE    KW=DECO   KW=END    T.CON     DXB 
                                        KW=EQUI   FEC=STF   E.HC3     CP.CARD   KW=ENCO   KW=ENDI   T.STMT    MVE=
                                        KW=EXTE   FEC=TYP   E.INI     CP.FLIN   KW=ENDF   KW=ENTR   T.TB      RDC=
                                        KW=INTR   FEC=1ST   E.MCA     CP.IFMT   KW=INQU   KW=GOTO   WOF       SFN 
                                        KW=LEVE   L.CARD    E.ME      CP.PW     KW=OPEN   KW=NAME   WOF=ERR   ZTB 
  
  
  
  
                                        **IF DEF,TEST                                                            FC5A388    10
                                                  IDENT  LEX                                                     LEX         2
                                         LEX      SECT   (LEXICAL SCANNER.)                                      LEX         3
  
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     2
                                                                      LEX 
  
                                        *         IN ALLOC                                                       LEX         5
                                                  EXT    ALC                                                     LEX         6
                                                                                                                 LEX         7
                                        *         IN CDDIR                                                       LEX         8
                                                  EXT    K$=BEGC,K$=COLL,K$=DO,K$=ELSE,K$=ENDC,K$=ENDI,K$=IF     LEX         9
                                                  EXT    K$=LIST                                                 LEX        10
                                                                                                                 LEX        11
                                        *         IN DATA                                                        LEX        12
                                                  EXT    KW=DATA                                                 LEX        13
                                                                                                                 LEX        14
                                        *         IN DECL                                                        LEX        15
                                                  EXT    KW=COMM,KW=DIME,KW=EQUI,KW=EXTE,KW=INTR,KW=LEVE,KW=PARA LEX        16
                                                  EXT    KW=SAVE                                                 LEX        17
                                                                                                                 LEX        18
                                        *         IN FEC                                                         LEX        19
                                                  EXT    CARDS,FEC=DAT,FEC=DEC,FEC=END,FEC=ENT,FEC=EXU,FEC=FMT   LEX        20
                                                  EXT    FEC=IMP,FEC=OK,FEC=PRM,FEC=STF,FEC=TYP,FEC=1ST,L.CARD   LEX        21
                                                  EXT    NCM,SSY,TLV,ZLCOLON,ZLCOMMA,ZLEQUAL,ZLPAREN,STAGE       FC5A110     6
                                                  EXT    FEC=BY,IFLEVEL                                          FC50761     8
                                                                                                                 LEX        23
                                        *         IN FERRS                                                       LEX        24
                                                  EXT    E.HC1,E.HC2,E.HC3,E.INI,E.MCA,E.ME,E.TLBL,FILL.         LEX        25
                                                                                                                 LEX        26
                                        *         IN FMT                                                         LEX        27
                                                  EXT    KW=FORM                                                 LEX        28
                                                                                                                 LEX        29
                                        *         IN FSNAP                                                       LEX        30
                                                  EXT    LTB=,TOK=IDP                                            LEX        31
                                                                                                                 LEX        32
                                        *         IN FTN                                                         LEX        33
                                                  EXT    CO.DS,CO.IDP,CO.PW,CO.SEQ,CO.SNAP,CO.WPL,CO.WPE         FC5A426   110
                                                  EXT    CP.CARD,CP.FLIN,CP.IFMT,CP.PW,F.IN                      FC5A426   111
                                                                                                                 LEX        36
                                        *         IN HEADER                                                      LEX        37
                                                  EXT    KW=BLOC,KW=FUNC,KW=OVCA,KW=OVER,KW=PROG,KW=SUBR         FC50243     7
                                                                                                                 LEX        39
                                        *         IN IDP                                                         LEX        40
                                                  EXT    IDP=                                                    LEX        41
                                                                                                                 LEX        42
                                        *         IN IO                                                          LEX        43
                                                  EXT    KW=BACK,KW=BUFF,KW=CLOS,KW=DECO,KW=ENCO,KW=ENDF,KW=INQU LEX        44
                                                  EXT    KW=OPEN,KW=PRIN,KW=PUNC,KW=READ,KW=REWI,KW=WRIT         LEX        45
                                                                                                                 LEX        46
                                        *         IN KEY                                                         LEX        47
                                                  EXT    IFS,KW=ASSI,KW=BREA,KW=CALL,KW=CONT,KW=ELSE,KW=END      LEX        48
                                                  EXT    KW=ENDI,KW=ENTR,KW=GOTO,KW=NAME,KW=PATC,KW=PAUS,KW=RETU LEX        49
                                                  EXT    KW=STOP                                                 LEX        50
                                                                                                                 LEX        51
                                        *         IN LABEL                                                       LEX        52
                                                  EXT    CUL,KW=DO                                               FC5A124     7
                                                                                                                 LEX        54
                                        *         IN PAR                                                         LEX        55
                                                  EXT    CNF                                                     LEX        56
                                                                                                                 LEX        57
                                        *         IN PEM                                                         LEX        58
                                                  EXT    PDM                                                     LEX        59
                                                                                                                 LEX        60
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     3
                                                                      LEX 
  
                                        *         IN PUC                                                         LEX        61
                                                  EXT    PWBUF,T=STMT,T=TB,T.CON,T.STMT,T.TB,WOF,WOF=ERR,WO.LOS  LEX        62
                                                                                                                 LEX        63
                                        *         IN STMTF                                                       LEX        64
                                                  EXT    SFD                                                     LEX        65
                                                                                                                 LEX        66
                                        *         IN TYPE                                                        LEX        67
                                                  EXT    KW=BOOL,KW=CHAR,KW=COMP,KW=DOUB,KW=IMPL,KW=INTE,KW=LOGI LEX        68
                                                  EXT    KW=REAL                                                 LEX        69
                                                                                                                 LEX        70
                                        *         IN UTILITY                                                     LEX        71
                                                  EXT    CDD,DXB,MVE=,RDC=,SFN,ZTB                               LEX        72
  
  
  
  
                                        ***       LEX - LEXICAL SCANNER.                                         LEX        74
                                        *                                                                        LEX        75
                                        *                                                                        LEX        76
                                        *         THIS DECK CONTAINS THE LEXICAL SCANNER.  IT IS DIVIDED INTO    LEX        77
                                        *         THE FOLLOWING MAJOR SECTIONS --                                LEX        78
                                        *                                                                        LEX        79
                                        *           1. MACRO DEFINITIONS.                                        LEX        80
                                        *                                                                        LEX        81
                                        *              CONTAINS ALL MACRO DEFINITIONS THAT ARE LOCAL TO THIS     LEX        82
                                        *              DECK.                                                     LEX        83
                                        *                                                                        LEX        84
                                        *           2. DATA STRUCTURES.                                          LEX        85
                                        *                                                                        LEX        86
                                        *              CONTAINS THE DEFINITIONS OF DATA CELLS AND SYMBOLS        LEX        87
                                        *              PERTINENT TO *LEX*.  ALSO CONTAINS *COMADEF* STRUCTURE    LEX        88
                                        *              DEFINITIONS LOCAL TO THIS DECK.                           LEX        89
                                        *                                                                        LEX        90
                                        *              NOTE THAT COMPILER GLOBAL *COMADEF* STRUCTURE DEFINITIONS LEX        91
                                        *              USED BY *LEX* ARE DEFINED IN *FTN5TXT*.                   LEX        92
                                        *                                                                        LEX        93
                                        *           3. MAIN EXECUTIVE.                                           LEX        94
                                        *                                                                        LEX        95
                                        *              CONTAINS THE LEXICAL SCANNER MAIN EXECUTIVE THAT          LEX        96
                                        *              OVERSEES/CONTROLS THE LEXICAL SCAN FOR A SINGLE SOURCE    LEX        97
                                        *              STATEMENT (INITIAL LINE PLUS CONTINUATION LINES).         LEX        98
                                        *                                                                        LEX        99
                                        *              THIS MAIN EXECUTIVE IS ALSO NAMED *LEX* AND IS CALLED     LEX       100
                                        *              BY *FEC* (FRONT END CONTROLLER) TO PROCESS A SINGLE       LEX       101
                                        *              SOURCE STMT.                                              LEX       102
                                        *                                                                        LEX       103
                                        *           4. THE EXECUTIVES.                                           LEX       104
                                        *                                                                        LEX       105
                                        *              CONTAINS THE EXECUTIVES THAT ARE INVOKED BY *LEX*         LEX       106
                                        *              (THE LEXICAL SCANNER MAIN EXECUTIVE) TO PERFORM ITS       LEX       107
                                        *              MAJOR FUNCTIONAL TASKS.                                   LEX       108
                                        *                                                                        LEX       109
                                        *           5. SUPPORTING SUBROUTINES.                                   LEX       110
                                        *                                                                        LEX       111
                                        *              CONTAINS MISCELLANEOUS SUPPORT ROUTINES THAT ARE INVOKED  LEX       112
                                        *              WHEN NECESSARY.  NOTE THAT SOME OF THESE ARE INVOKED      LEX       113
                                        *              BY PROCESSORS EXTERNAL TO THIS DECK.                      LEX       114
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     4
                                                                      LEX 
  
                                        *                                                                        LEX       115
                                        *                                                                        LEX       116
                                        *         IN THE INTEREST OF FINDABILITY, EACH OF THE ABOVE SECTIONS     LEX       117
                                        *         CAUSES A NEW MAIN TITLE OF THE FORM --                         LEX       118
                                        *                                                                        LEX       119
                                        *                LEX - LEXICAL SCANNER/SECTION NAME                      LEX       120
                                        *                                                                        LEX       121
                                        *         TO BE GENERATED.                                               LEX       122
  
  
  
  
                                        ***       COMMENTING/CODING CONVENTIONS.                                 LEX       124
                                        *                                                                        LEX       125
                                        *                                                                        LEX       126
                                        *         A NUMBER OF COMMENTING AND CODING CONVENTIONS HAVE BEEN        LEX       127
                                        *         ADOPTED IN THIS PIECE OF CODE WHICH SHOULD MAKE IT EASIER      LEX       128
                                        *         TO READ AND UNDERSTAND.  THIS AUTHOR BELIEVES VERY STRONGLY    LEX       129
                                        *         THAT THE **NOTATION** USED TO DESCRIBE A PARTICULAR DESIGN     LEX       130
                                        *         IMPLEMENTATION IS AS IMPORTANT AS THE DESIGN ITSELF.  AND      LEX       131
                                        *         INSTEAD OF REQUIRING THAT YOU DECIPHER **MY** NOTATION ON      LEX       132
                                        *         THE FLY, I WILL TELL YOU HERE AND NOW HOW IT WORKS...          LEX       133
                                        *                                                                        LEX       134
                                        *         THIS DISCUSSION CAN BE DIVIDED INTO 3 PARTS: CODE FORM,        LEX       135
                                        *         SYMBOL NAMING, AND A GLOSSARY OF ABBREVIATIONS.                LEX       136
                                        *                                                                        LEX       137
                                        ************************************************************************ LEX       138
                                        *                                                                        LEX       139
                                        *         CODE FORM                                                      LEX       140
                                        *                                                                        LEX       141
                                        *         THIS IS A DESCRIPTION OF HOW ONE CAN EXPECT CODE TO LOOK       LEX       142
                                        *         ON A PAGE.  THE *MACE/KRONOS* CONVENTION IS THE MODEL.         LEX       143
                                        *         *MACE* IS A VERY STYLIZED CODING CONVENTION WHICH IS AIMED     LEX       144
                                        *         PRIMARILY AT FORMALIZING SUBROUTINE STRUCTURE.                 LEX       145
                                        *                                                                        LEX       146
                                        *         *MACE*, BRIEFLY --                                             LEX       147
                                        *                                                                        LEX       148
                                        *           1. SUBROUTINES ARE USED THAT ENTER AND EXIT AT A COMMON      LEX       149
                                        *              POINT, I.E. ARE INVOKED BY AN *RJ* INSTRUCTION.           LEX       150
                                        *                                                                        LEX       151
                                        *           2. ALL SUBROUTINES HAVE 3 CHARACTER MNEMONIC NAMES           LEX       152
                                        *              THAT DESCRIBE THEIR FUNCTION.                             LEX       153
                                        *                                                                        LEX       154
                                        *           3. ALL SUBROUTINES BEGIN WITH AN EXTREMELY STYLIZED          LEX       155
                                        *              PREAMBLE WHICH GIVES THE NAME OF THE SUBROUTINE, ITS      LEX       156
                                        *              FUNCTION, ITS ENTRY AND EXIT CONDITIONS, THE REGISTERS    LEX       157
                                        *              IT USES/DESTROYS, AND A LIST OF ALL THE SUBROUTINES       LEX       158
                                        *              AND/OR MACROS THAT IT CALLS/REFERENCES.                   LEX       159
                                        *                                                                        LEX       160
                                        *              A DETAILED DESCRIPTION OF THE PREAMBLE IS BASICALLY       LEX       161
                                        *              A WASTE OF TIME.  THEY ARE ALL EXACTLY ALIKE...JUST GO    LEX       162
                                        *              LOOK AT ONE.                                              LEX       163
                                        *                                                                        LEX       164
                                        *           4. ALL SUBROUTINE EXECUTABLE CODE LABELS CONSIST OF THE      LEX       165
                                        *              SUBROUTINE 3 CHARACTER MNEMONIC FOLLOWED BY A DIGIT       LEX       166
                                        *              OR DIGITS IN ASCENDING ORDER.                             LEX       167
                                        *                                                                        LEX       168
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     5
                                                                      CODING
  
                                        *           5. SUBROUTINE LOCAL-ONLY SCRATCH CELLS HAVE LABELS THAT      LEX       169
                                        *              CONSIST OF THE SUBROUTINE 3 CHARACTER MNEMONIC FOLLOWED   LEX       170
                                        *              BY A SINGLE LETTER (BEGINNING AT -A-) IN ASCENDING        LEX       171
                                        *              ORDER.                                                    LEX       172
                                        *                                                                        LEX       173
                                        *           6. THE *COMPASS* 2,11,18,30 TABBING CONVENTION IS STRICTLY   LEX       174
                                        *              FOLLOWED.  I.E. LABEL FIELD IN COL 2, OPERATION FIELD     LEX       175
                                        *              IN COL 11, ADDRESS FIELD IN COL 18, AND COMMENT FIELD     LEX       176
                                        *              IN COL 30.                                                LEX       177
                                        *                                                                        LEX       178
                                        *           7. COMMENTS THAT DESCRIBE HARDWARE FUNCTION ARE AVOIDED.     LEX       179
                                        *              E.G.  SA1  ZIP    LOAD FLAG                               LEX       180
                                        *                    LX1  4      LEFT-SHIFT (X1)                         LEX       181
                                        *                                                                        LEX       182
                                        *           8. **ALL** CONDITIONAL BRANCH INSTRUCTIONS CONTAIN A COMMENT LEX       183
                                        *              IN COLS 30-72 THAT BEGINS WITH THE WORD *IF* AND          LEX       184
                                        *              DESCRIBES THE *BRANCH TAKEN* CONDITION.  E.G.             LEX       185
                                        *                                                                        LEX       186
                                        *                    ZR   X1,EXIT. IF AT END OF TABLE                    LEX       187
                                        *                                                                        LEX       188
                                        *         FOR ME, *MACE*S PRIMARY VIRTUE IS THAT IS MAKES FOREIGN CODE   LEX       189
                                        *         LOOK NOT-SO-FOREIGN.  SIMPLE.                                  LEX       190
                                        *                                                                        LEX       191
                                        *         IN ADDITION, THIS CODE USES A FEW EXTENSIONS TO THE *MACE*     LEX       192
                                        *         WAY... THEY ARE --                                             LEX       193
                                        *                                                                        LEX       194
                                        *           1. THE COMMENT FIELD FOR A LINE CONTAINING A MACHINE         LEX       195
                                        *              MNEMONIC INSTRUCTIONS (I.E. COLS 30-72) IS GENERALLY      LEX       196
                                        *              RESERVED FOR A DESCRIPTION OF THE DATA STRUCTURE          LEX       197
                                        *              RESULTING FROM THE HARDWARE INSTRUCTION ON THAT LINE.     LEX       198
                                        *                                                                        LEX       199
                                        *              USUALLY, THIS IS NOTATED VERY FORMALLY, WITH THE EXPLICIT LEX       200
                                        *              RESULT REGISTER SPECIFIED.  E.G. --                       LEX       201
                                        *                                                                        LEX       202
                                        *                BX4  -X0*X5    (X4) = NEXT CHAR TO PACK, -R- FORMAT     LEX       203
                                        *                                                                        LEX       204
                                        *              WHEN SETTING A LOGICAL FLAG, IT DIFFERS --                LEX       205
                                        *                                                                        LEX       206
                                        *                SA6  TF=SQZ    SET TO *INDICATE NO BLANK SQUEEZE*       LEX       207
                                        *                                                                        LEX       208
                                        *              OR WHEN MANIPULATING A *COMADEF* STRUCTURE --             LEX       209
                                        *                                                                        LEX       210
                                        *                BX6  X6+X1     MERGE *LEN*                              LEX       211
                                        *                                                                        LEX       212
                                        *              IN ITS MOST COMMON FORM, THE RESULT REGISTER IS           LEX       213
                                        *              EXPLICITLY SPECIFIED SO THAT THE READER KNOWS             LEX       214
                                        *              **ABSOLUTELY** WHAT IS MEANT.                             LEX       215
                                        *                                                                        LEX       216
                                        *              IN ANY CASE, RESERVING COLS 30-72 FOR DATA STRUCTURE      LEX       217
                                        *              DESCRIPTIONS MAKES DEBUGGING EASIER BECAUSE ONE CAN       LEX       218
                                        *              CONSTANTLY COMPARE WHAT **IS** WITH WHAT **SHOULD BE**.   LEX       219
                                        *                                                                        LEX       220
                                        *           2. FUNCTIONAL COMMENTS (I.E. WHAT IS GOING ON, OR HOW IT     LEX       221
                                        *              IS DONE, OR MORE IMPORTANTLY, WHY ARE WE DOING IT) ARE    LEX       222
                                        *              USUALLY PLACED ON A SEPARATE COMMENT LINE THAT PRECEDES   LEX       223
                                        *              PARAGRAPH OF CODE THAT IT PERTAINS TO.                    LEX       224
                                        *                                                                        LEX       225
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     6
                                                                      CODING
  
                                        *              THIS TENDS TO MAKE CODE OCCUR IN FUNCTIONAL BLOCKS...GOOD LEX       226
                                        *              FOR A QUICK ONCE-OVER EYE SCAN.                           LEX       227
                                        *                                                                        LEX       228
                                        *           3. A FLAG CELL DEFINITION WILL CONTAIN (AT A MINIMUM)        LEX       229
                                        *              A COMMENT THAT SPECIFIED/DESCRIBES **ALL** POSSIBLE       LEX       230
                                        *              VALUES THAT THIS FLAG MAY TAKE, AND IDEALLY, UNDER        LEX       231
                                        *              WHAT CONDITIONS THE FLAG WILL TAKE THOSE VALUES.          LEX       232
                                        *                                                                        LEX       233
                                        *              THIS IS DONE BECAUSE OFTENTIMES, THE FLAG CELL DEFINITION LEX       234
                                        *              IS THE ONLYPLACE WHERE THE INTRICACIES AND PATHOLOGIES    LEX       235
                                        *              ASSOCIATED WITH THE USE OF THE FLAG CAN BE INTEGRATED.    LEX       236
                                        *                                                                        LEX       237
                                        ************************************************************************ LEX       238
                                        *                                                                        LEX       239
                                        *         SYMBOL NAMING                                                  LEX       240
                                        *                                                                        LEX       241
                                        *         THIS IS A DESCRIPTION OF THE CONVENTIONS USED IN SYMBOL        LEX       242
                                        *         NAMING.  THE INTENT OF THSE CONVENTIONS IS TO TRANSMIT TO      LEX       243
                                        *         THE READER AS MUCH INFORMATION AS POSSIBLE BY MERELY SEEING    LEX       244
                                        *         A SYMBOL NAME ITSELF.  OFTEN, THIS INFORMATION IMPLIES HOW     LEX       245
                                        *         ONE CAN **EXPECT** A SYMBOL TO BE USED.                        LEX       246
                                        *                                                                        LEX       247
                                        *         TWO BASIC SYMBOL NAME-FORMING RULES ARE USED: FIRST, SYMBOL    LEX       248
                                        *         PREFIXES ARE USED HEAVILY.  AND SECOND, THE CHARACTER THAT     LEX       249
                                        *         SEPARATES A SYMBOL PREFIX FROM THE REST OF THE SYMBOL NAME     LEX       250
                                        *         IS GIVEN SEMANTIC MEAING.  CURRENTLY, THERE ARE ONLY 2 SUCH    LEX       251
                                        *         CHARACTERS: -.- IMPLIES THAT THE VALUE OF THE SYMBOL IS        LEX       252
                                        *         AVAILABLE AT ASSEMBLY-TIME.  E.G. --                           LEX       253
                                        *                                                                        LEX       254
                                        *                SX1    L.KEYW  (X1) = LEN (IN WORDS) OF *KEYW* TABLE    LEX       255
                                        *                                                                        LEX       256
                                        *         AN -=- CHARACTER IMPLIES THAT THE VALUE OF THE SYMBOL IS       LEX       257
                                        *         AVAILABLE ONLY AT EXECUTION-TIME (I.E. IT IS ONLY THE ADDRESS  LEX       258
                                        *         OF A CELL AT ASSEMBLY-TIME).  E.G. --                          LEX       259
                                        *                                                                        LEX       260
                                        *                SA1    L=KEYW  (X1) = LEN (IN WORDS) OF *KEYW* TABLE    LEX       261
                                        *                                                                        LEX       262
                                        *         THESE SYMBOLS ARE, THEREFORE, INDIRECT.                        LEX       263
                                        *                                                                        LEX       264
                                        *         NOTE THE USE OF THE WORD *VALUE* IN THE ABOVE PARAGRAPH.       LEX       265
                                        *         OBVIOUSLY, *COMPASS* MUST BE ABLE TO ASSOCIATE SOME BINARY     LEX       266
                                        *         NUMBER WITH BOTH TYPES OF SYMBOLS AT ASSEMBLY-TIME.  IN A      LEX       267
                                        *         HUMAN SENSE, THOUGH, THE SYMBOL NAMES IN THE ABOVE EXAMPLES    LEX       268
                                        *         TELL WHETHER THE *VALUE* OF THE SYMBOL WILL BE USED IN         LEX       269
                                        *         A DIRECT, OR AN INDIRECT MANNER.  A SUBTLE DIFFERENCE THAT     LEX       270
                                        *         CAN BE HANDY WHEN READING CODE.                                LEX       271
                                        *                                                                        LEX       272
                                        *         SYMBOL NAMES CAN BE DIVIDED INTO THE FOLLOWING GENERAL         LEX       273
                                        *         TYPES --                                                       LEX       274
                                        *                                                                        LEX       275
                                        *           1. SYMBOLS THAT DESCRIBE COMMON COMPUTER OR CDC CONCEPTS,    LEX       276
                                        *              SUCH AS: LENGTH, FIRST WORD ADDRESS, ETC...  THESE        LEX       277
                                        *              SYMBOL NAMES ARE STRUCTURED SO THAT THE PREFIX DESCRIBES  LEX       278
                                        *              THE COMMON IDEA.  I.E. -                                  LEX       279
                                        *                                                                        LEX       280
                                        *                L.XXX  - LENGTH OF XXX.                                 LEX       281
                                        *                FW.XXX - FWA OF XXX.                                    LEX       282
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     7
                                                                      CODING
  
                                        *                F.XXX  - FWA OF A FET/FIT FOR FILE XXX.                 LEX       283
                                        *                                                                        LEX       284
                                        *           2. *COMADEF* STRUCTURES.  *COMADEF* IS A COMDECK THAT        LEX       285
                                        *              CONTAINS MACROS FOR DESCRIBE/DEFINING SOFTWARE DATA       LEX       286
                                        *              STRUCTURES.  CONCEPTUALLY, IT WORKS MUCH LIKE THE *COBOL* LEX       287
                                        *              *PICTURE*.  VIA THE *COMADEF* MACROS, ONE CAN DRAW        LEX       288
                                        *              A PICTURE OF WHAT A DATA STRUCTURE ELEMENT WILL LOOK      LEX       289
                                        *              LIKE.                                                     LEX       290
                                        *                                                                        LEX       291
                                        *              NOW WHEN ONE WISHES TO BUILD OR ACCESS SOME PART OF THE   LEX       292
                                        *              DATA STRUCTURE, YOU CAN DO IT **SYMBOLICALLY** VIA        LEX       293
                                        *              SYMBOLS THAT THE *COMADEF* MACROS DEFINED IN RESPONSE     LEX       294
                                        *              TO THE PICTURE THAT WAS DRAWN VIA THOSE MACROS.           LEX       295
                                        *                                                                        LEX       296
                                        *              *COMADEF* SYMBOLS TAKE THE FORM --                        LEX       297
                                        *                                                                        LEX       298
                                        *                  DD.XXXP  AND DD.XXXL                                  LEX       299
                                        *                                                                        LEX       300
                                        *              WHERE *DD* IS A COMMON PREFIX FOR THIS DATA STRUCTURE,    LEX       301
                                        *              *XXX* IS A UNIQUE NAME FOR A FIELD WITHIN THE DATA        LEX       302
                                        *              STRUCTURE *DD*, *P* IS A SUFFIX THAT DENOTES THE RIGHT-   LEX       303
                                        *              MOST BIT POSITION OF FIELD *XXX* WITHIN *DD*, AND *L*     LEX       304
                                        *              IS A SUFFIX THAT DENOTES THE LENGTH (IN BITS) OF FIELD    LEX       305
                                        *              *XXX*.                                                    LEX       306
                                        *                                                                        LEX       307
                                        *              FOR EXAMPLE --                                            LEX       308
                                        *                                                                        LEX       309
                                        *                  SA1  A1+B1    (X1) = NEXT ELEMENT IN STRUCTURE *BB.*  LEX       310
                                        *                  MX2  -BB.TOTL (X2) = MASK FOR EXTRACTING *TOT* FIELD  LEX       311
                                        *                  LX1  0-BB.TOTP RIGHT-JUSTIFY *TOT* FIELD              LEX       312
                                        *                  BX6  -X2*X1   (X6) = CONTENTS OF *TOT* FIELD          LEX       313
                                        *                                                                        LEX       314
                                        *              ONCE ONE BECOMES FAMILIAR WITH THE *COMADEF* NOTATION,    LEX       315
                                        *              MOST OF THE ABOVE COMMENTS ARE UNNECESSARY.  THE          LEX       316
                                        *              ACCESSING OF A *COMADEF* STRUCTURE IS SO STYLIZED THAT    LEX       317
                                        *              ONE CAN PRETTY MUCH RECOGNIZE IT ANYWHERE, BY ANYONE,     LEX       318
                                        *              AND IN AN INFINITY OF CIRCUMSTANCES.                      LEX       319
                                        *                                                                        LEX       320
                                        *           3. SYMBOLS THAT ONE WISHES TO ASSOCIATE VIA A COMMON PREFIX. LEX       321
                                        *              THESE ARE SYMBOLS THAT THE PROGRAMMER FEELS HAVE AN       LEX       322
                                        *              INTERRELATIONSHIP WITHIN THE CONTEXT OF A SPECIFIC        LEX       323
                                        *              PIECE OF CODE.  FOR EXAMPLE, ALL LINE TYPES (INITIAL,     LEX       324
                                        *              CONTINUATION, ETC) ARE DEFINED VIA SYMBOLS THAT HAVE      LEX       325
                                        *              THE COMMON PREFIX *LT.*, E.G. *LT.INIT*, *LT.CONT*, ETC.  LEX       326
                                        *                                                                        LEX       327
                                        *              CERTAIN GROUPS OF DATA CELLS ARE ALSO ASSOCIATED VIA      LEX       328
                                        *              A COMMON PREFIX: E.G. ALL THE CELLS THAT CONTAIN          LEX       329
                                        *              INFORMATION THAT *LEX* HAS GATHERED ABOUT A SINGLE        LEX       330
                                        *              SOURCE LINE HAVE THE COMMON PREFIX *LN=*.                 LEX       331
                                        *                                                                        LEX       332
                                        *           4. SYMBOLS WITHIN MACRO DEFINITIONS.  THE CONVENTION         LEX       333
                                        *              USED FOR NAMING SYMBOLS WITHIN A MACRO DEFINITION IS      LEX       334
                                        *              AS FOLLOWS.  SYMBOLS ARE OF THE FORM --                   LEX       335
                                        *                                                                        LEX       336
                                        *                '?PPTXXX                                                LEX       337
                                        *                                                                        LEX       338
                                        *              WHERE '?  = COMMON *MACRO SYMBOL* PREFIX.                 LEX       339
1       LEX - LEXICAL SCANNER.                                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     8
                                                                      CODING
  
                                        *                    PP  = A COMMON PREFIX FOR SYMBOLS WITHIN THIS       LEX       340
                                        *                          MACRO DEFINITION, OR WITHIN A GROUP OF        LEX       341
                                        *                          RELATED MACRO DEFINITIONS.                    LEX       342
                                        *                    T   = SYMBOL TYPE.  SEE BELOW.                      LEX       343
                                        *                    XXX = UNIQUE NAME FOR THIS SYMBOL.                  LEX       344
                                        *                                                                        LEX       345
                                        *              SYMBOL TYPES, *T*, ARE USED TO SIMPLIFY THE READING       LEX       346
                                        *              OF MACRO CODE A LITTLE BIT.  EACH SYMBOL TYPE DENOTES     LEX       347
                                        *              HOW THE SYMBOL WILL BE USED WITHIN THE MACRO.             LEX       348
                                        *                                                                        LEX       349
                                        *              SYMBOL TYPES ARE --                                       LEX       350
                                        *                                                                        LEX       351
                                        *                S = *SET* SYMBOL, I.E. ANY SYMBOL THAT IS ASSIGNED AN   LEX       352
                                        *                    ABSOLUTE VALUE.  E.G. '?PPSXXX SET 1                LEX       353
                                        *                                                                        LEX       354
                                        *                C = *MICRO* NAME.  E.G. '?PPCXXX MICRO 1,,/HARPIES/     LEX       355
                                        *                                                                        LEX       356
                                        *                R = *RMT* BLOCK NAME.  E.G. '?PPRXXX RMT                LEX       357
                                        *                                                                        LEX       358
                                        *                M = *MACRO* NAME.  I.E. USED FOR INTERNAL MACROS WHICH  LEX       359
                                        *                    THE PROGRAMMER WISHES TO BE **INVISIBLE** TO THE    LEX       360
                                        *                    REST OF THE WORLD.                                  LEX       361
                                        *                                                                        LEX       362
                                        *           5. NONE OF THE ABOVE.  THERE WILL ALWAYS BE EXCEPTIONS...    LEX       363
                                        *              SOME OF THESE ARE BECAUSE THERE IS NO CONVENTION, SOME    LEX       364
                                        *              ARE BECAUSE THE CONVENTION DIDNT SEEM RIGHT FOR THIS      LEX       365
                                        *              PARTICULAR CASE, ETC, ETC, ETC...                         LEX       366
                                        *                                                                        LEX       367
                                        ************************************************************************ LEX       368
                                        *                                                                        LEX       369
                                        *         GLOSSARY                                                       LEX       370
                                        *                                                                        LEX       371
                                        *         THE FOLLOWING IS A GLOSSARY OF COMMON ABBREVIATIONS,           LEX       372
                                        *         NOTATIONS, AND SYMBOL PREFIXES THAT ARE NOT IN PARTICULAR      LEX       373
                                        *         *LEX*, OR EVEN *FTN* DEPENDENT.                                LEX       374
                                        *                                                                        LEX       375
                                        *         A+C    ADDRESS AND CONTENTS.  USED PRIMARILY IN CONJUNCTION    LEX       376
                                        *                WITH A LOAD INSTRUCTION WHERE BOTH THE ADDRESS AND      LEX       377
                                        *                THE CONTENTS OF THE ADDRESS ARE MEANINGFUL, AS IN --    LEX       378
                                        *                                                                        LEX       379
                                        *                    SA1   A1+B1   (A1,X1) = A+C OF NEXT TABLE ENTRY     LEX       380
                                        *                                                                        LEX       381
                                        *                AS OPPOSED TO --                                        LEX       382
                                        *                                                                        LEX       383
                                        *                    SA1   LN=TYPE (X1) = LINE TYPE                      LEX       384
                                        *                                                                        LEX       385
                                        *         ADDR   ADDRESS.                                                LEX       386
                                        *                                                                        LEX       387
                                        *         FWA    FIRST WORD ADDRESS.                                     LEX       388
                                        *                                                                        LEX       389
                                        *         FW.XXX A SYMBOL WHOSE VALUE SPECIFIES A FWA.                   LEX       390
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE     9
                                                                      MACROS
  
                                        ***       MACRO DEFINITIONS.                                             LEX       394
                                        *                                                                        LEX       395
                                        *                                                                        LEX       396
                                        *         THE FOLLOWING SECTION CONTAINS THE MACRO DEFINITIONS THAT ARE  LEX       397
                                        *         LOCAL TO THE DECK *LEX*.                                       LEX       398
                                        *                                                                        LEX       399
                                        *         ADDITIONAL GLOBAL COMPILER MACROS USED BY *LEX* CAN BE FOUND   LEX       400
                                        *         IN *FTN5TXT* AND *CPUTEXT*.                                    LEX       401
  
  
  
  
                                        **        KEYW - DEFINE FTN KEYWORD TABLE ENTRY.                         LEX       403
                                        *                                                                        LEX       404
                                        *                                                                        LEX       405
                                        *         THIS MACRO IS USED TO DEFINE ENTRIES IN THE FTN KEYWORD        LEX       406
                                        *         TABLE.                                                         LEX       407
                                        *                                                                        LEX       408
                                        *         KEYW   KEY,STAJ,ATTR                                           LEX       409
                                        *                                                                        LEX       410
                                        *         ENTRY  KEY  = FTN KEYWORD IF CHARACTER STRING IS NOT PREFIXED  LEX       411
                                        *                       WITH *=*, ELSE                                   LEX       412
                                        *                     = ADDR OF STMT PROCESSOR THAT IS TO PROCESS        LEX       413
                                        *                       THIS STMT IF PREFIXED WITH *=* (NOTE THAT THE    LEX       414
                                        *                       *=* WILL BE REMOVED VIA MICRO MANIPULATION).     LEX       415
                                        *                       THIS NOTATION IS FOR THE SPECIAL SYNTACTICALLY   LEX       416
                                        *                       DEFINED *KEYW* ENTRIES.                          LEX       417
                                        *                STAJ = *FEC* STAGE THAT THIS STMT CAN OCCUR IN.         LEX       418
                                        *                ATTR = ATTRIBUTES OF THIS STMT.                         LEX       419
                                        *                                                                        LEX       420
                                        *                SEE *KEYW* TABLE (FWA AT *FW.KEYW*) AND *KW.* SYMBOL    LEX       421
                                        *                DEFINITIONS (IN *FTN5TXT*) FOR A MORE COMPLETE          LEX       422
                                        *                DESCRIPTION OF THESE PARAMETERS.                        LEX       423
                                        *                                                                        LEX       424
                                        *         EXIT   NONE                                                    LEX       425
                                        *                                                                        LEX       426
                                        *         USES   NONE                                                    LEX       427
                                        *                                                                        LEX       428
                                        *         CALLS  BSSENT,LITKEY                                           LEX       429
                                                                                                                 LEX       430
                                                  PURGMAC KEYW                                                   LEX       431
                                                                                                                 LEX       432
                                                  MACRO  KEYW,LOC,KEY,STAJ,ATTR                                  LEX       433
                                                  LOCAL  '?KW#002                                                LEX       434
                                        *                                                                        LEX       435
                                         '?KWCKEY MICRO  1,, KEY                                                 LEX       436
                                         '?KWSKEY MICCNT '?KWCKEY                                                LEX       437
                                         '?KWCS01 MICRO  1,1, KEY                                                LEX       438
                                        *                                                                        LEX       439
                                         '?KW#001 IFC    NE,/"'?KWCS01"/=/                                       LEX       440
                                         '?KWCJMP MICRO  1,4, KEY                                                LEX       441
                                         '?KWCJMP MICRO  1,, KW="'?KWCJMP"                                       LEX       442
                                        *                                                                        LEX       443
                                         '?KW#001 ELSE                                                           LEX       444
                                         '?KWCJMP MICRO  2,, KEY                                                 LEX       445
                                         '?KW#001 ENDIF                                                          LEX       446
                                        *                                                                        LEX       447
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    10
                                                                      KEYW
  
                                         LOC      BSS    0                                                       LEX       448
                                                  VFD    KW.JMPL/=X"'?KWCJMP"                                    LEX       449
                                        *                                                                        LEX       450
                                         '?KW#001 IRP    ATTR                                                    LEX       451
                                                  POS    KW.ATTR_P+1                                             LEX       452
                                                  VFD    1/1         (ATTR)                                      LEX       453
                                         '?KW#001 IRP                                                            LEX       454
                                                  POS    KW.ATTRP                                                LEX       455
                                        *                                                                        LEX       456
                                                  VFD    KW.FECL/=XFEC=STAJ                                      LEX       457
                                                  VFD    KW.LENL/'?KWSKEY*CHAR                                   LEX       458
                                        *                                                                        LEX       459
                                         '?KW#001 IFC    NE,/"'?KWCS01"/=/                                       LEX       460
                                                  VFD    KW.KEYL/'?KW#002                                        LEX       461
                                        *                                                                        LEX       462
                                         '?KW#002 LITKEY                                                         LEX       463
                                         '?KW#001 ELSE                                                           LEX       464
                                                  VFD    KW.KEYL/-1                                              LEX       465
                                         '?KW#001 ENDIF                                                          LEX       466
                                        *                                                                        LEX       467
                                         KEYW     ENDM                                                           LEX       468
  
  
  
  
                                        **        KEY$ - DEFINE FTN C$ KEYWORD TABLE ENTRY.                      LEX       470
                                        *                                                                        LEX       471
                                        *                                                                        LEX       472
                                        *         THIS MACRO IS USED TO DEFINE ENTRIES IN THE FTN C$ KEYWORD     LEX       473
                                        *         TABLE.                                                         LEX       474
                                        *                                                                        LEX       475
                                        *         KEY$   KEY,STAJ,ATTR                                           LEX       476
                                        *                                                                        LEX       477
                                        *         ENTRY  KEY  = C$ KEYWORD                                       LEX       478
                                        *                STAJ = *FEC* STAGE THAT THIS STMT CAN OCCUR IN.         LEX       479
                                        *                ATTR = ATTRIBUTES OF THIS STMT.                         LEX       480
                                        *                                                                        LEX       481
                                        *                SEE *KEY$* TABLE (FWA AT *FW.KEY$*) AND *KW.* SYMBOL    LEX       482
                                        *                DEFINITIONS (IN *FTN5TXT*) FOR A MORE COMPLETE          LEX       483
                                        *                DESCRIPTION OF THESE PARAMETERS.                        LEX       484
                                        *                                                                        LEX       485
                                        *         EXIT   NONE                                                    LEX       486
                                        *                                                                        LEX       487
                                        *         USES   NONE                                                    LEX       488
                                        *                                                                        LEX       489
                                        *         CALLS  BSSENT,LITKEY                                           LEX       490
                                                                                                                 LEX       491
                                                  PURGMAC KEY$                                                   LEX       492
                                                                                                                 LEX       493
                                                  MACRO  KEY$,LOC,KEY,STAJ,ATTR                                  LEX       494
                                                  LOCAL  '?KW#002                                                LEX       495
                                        *                                                                        LEX       496
                                         '?KWCKEY MICRO  1,, KEY                                                 LEX       497
                                         '?KWSKEY MICCNT '?KWCKEY                                                LEX       498
                                        *                                                                        LEX       499
                                         '?KWCJMP MICRO  1,4, KEY                                                LEX       500
                                         '?KWCJMP MICRO  1,, K$="'?KWCJMP"                                       LEX       501
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    11
                                                                      KEY$
  
                                        *                                                                        LEX       502
                                         LOC      BSS    0                                                       LEX       503
                                                  VFD    KW.JMPL/=X"'?KWCJMP"                                    LEX       504
                                        *                                                                        LEX       505
                                         '?KW#001 IRP    ATTR                                                    LEX       506
                                                  POS    KW.ATTR_P+1                                             LEX       507
                                                  VFD    1/1         (ATTR)                                      LEX       508
                                         '?KW#001 IRP                                                            LEX       509
                                                  POS    KW.ATTRP                                                LEX       510
                                        *                                                                        LEX       511
                                                  VFD    KW.FECL/=XFEC=STAJ                                      LEX       512
                                                  VFD    KW.LENL/'?KWSKEY*CHAR                                   LEX       513
                                        *                                                                        LEX       514
                                                  VFD    KW.KEYL/'?KW#002                                        LEX       515
                                        *                                                                        LEX       516
                                         '?KW#002 LITKEY                                                         LEX       517
                                        *                                                                        LEX       518
                                         KEY$     ENDM                                                           LEX       519
  
  
  
  
                                        **        LNJP - LINE TYPE JUMP TABLE.                                   LEX       521
                                        *                                                                        LEX       522
                                        *                                                                        LEX       523
                                        *         THIS MACRO IS USED TO DEFINE ENTRIES IN A JUMP TABLE           LEX       524
                                        *         THAT IS USED TO SPLIT UP THE FLOW OF PROCESSING WITHIN         LEX       525
                                        *         *LEX* BASED UPON THE LINE TYPE OF THE LINE AT (CP.CARD).       LEX       526
                                        *                                                                        LEX       527
                                        *         SEE FTN 5 IMS FOR DECK *LEX* --  5.1 APPENDICES/MAIN LOOP      LEX       528
                                        *         FLOW CHART.                                                    LEX       529
                                                                                                                 LEX       530
                                                                                                                 LEX       531
                                                  PURGMAC LNJP                                                   LEX       532
                                                                                                                 LEX       533
                                                  MACRO  LNJP,LNTYP,JPAD                                         LEX       534
                                        *                                                                        LEX       535
                                                  NOREF  .LN                                                     LEX       536
                                         .LN      SET    *                                                       LEX       537
                                                  IFNE   LT.LNTYP,.LN,1                                          LEX       538
                                         P        ERR    *LNJP* ORD AND *LT.TYPE* DO NOT AGREE.       "SEQUENCE" LEX       539
                                        *                                                                        LEX       540
                                                  CON    JPAD *O+4S15                                            LEX       541
                                        *                                                                        LEX       542
                                         LNJP     ENDM                                                           LEX       543
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    12
        COMATOK 2.0 - THE *TOGEL* MACROS.                             COMATOK 
  
             0                           COMATOK  CTEXT  COMATOK 2.0 - THE *TOGEL* MACROS.                       COMATOK     2
  
  
  
  
                                        ***       COMATOK - THE *TOGEL* MACROS.                                  COMATOK     4
                                        *         P CLARE   77/03/03                                             COMATOK     5
                                        *         P CLARE   78/04/27 VERSION 2.0                                 COMATOK     6
  
  
  
  
                                        ***       COMATOK - THE *TOGEL* MACROS.                                  COMATOK     8
                                        *                                                                        COMATOK     9
                                        *                                                                        COMATOK    10
                                        *         THIS COMDECK CONTAINS THE MACRO DEFINITIONS FOR *TOGEL*,       COMATOK    11
                                        *         (TOKEN GENERATION LANGUAGE).  THESE MACROS ARE USED TO         COMATOK    12
                                        *         GENERATE A *TOGEL OBJECT MODULE* (CALLED *TOM*) WHICH          COMATOK    13
                                        *         CAN THEN BE FED TO *COMCTOK*, THE COMMON TOKEN GENERATOR.      COMATOK    14
                                        *         *COMCTOK* WILL USE THE *TOM* GENERATED BY THESE MACROS TO      COMATOK    15
                                        *         GENERATE TOKENS FOR THE HOST PROGRAM.                          COMATOK    16
                                        *                                                                        COMATOK    17
                                        *         *TOGEL* LOOKS SOMEWHAT LIKE A HIGHER LEVEL PROGRAMMING         COMATOK    18
                                        *         LANGUAGE AND WAS DESIGNED SO AS TO ALLOW THE PROGRAMMER        COMATOK    19
                                        *         TO CONTROL THE LOGIC OF TOKEN GENERATION AND AT THE SAME       COMATOK    20
                                        *         TIME TO MINIMIZE THE EFFECTS OF LOW-LEVEL DETAILS.             COMATOK    21
                                        *                                                                        COMATOK    22
                                        *         THE *TOGEL* MACROS ARE--                                       COMATOK    23
                                        *                                                                        COMATOK    24
                                        *                GROUP (A..Z),TOT,SQZ                                    COMATOK    25
                                        *                GROUP (A..Z),TOT,NSQZ                                   COMATOK    26
                                        *                IFT (A..Z)                                              COMATOK    27
                                        *                  THEN                                                  COMATOK    28
                                        *                  ELST                                                  COMATOK    29
                                        *                  ENDT                                                  COMATOK    30
                                        *                GOTO XX                                                 COMATOK    31
                                        *                CALT XX                                                 COMATOK    32
                                        *                CASEOF (A..Z)                                           COMATOK    33
                                        *                  TOKEN TOT,(TOT1,...,TOTN),PAD                         COMATOK    34
                                        *                    .                                                   COMATOK    35
                                        *                    .                                                   COMATOK    36
                                        *                  TOKEN TOT,(TOT1,...,TOTN),PAD                         COMATOK    37
                                        *                ELSC                                                    COMATOK    38
                                        *                  TOKEN TOT,(TOT1,...,TOTN),PAD                         COMATOK    39
                                        *                ENDC                                                    COMATOK    40
                                        *                                                                        COMATOK    41
                                        *         LITTLE OR NO EFFORT IS MADE TO DESCRIBE THE MECHANICS          COMATOK    42
                                        *         OF USING THESE *TOGEL* MACROS HERE IN THE CODE.  THIS TOPIC    COMATOK    43
                                        *         IS DEALT WITH THOROUGHLY IN THE FTN 5 IMS/DECK *LEX*.          COMATOK    44
                                        *                                                                        COMATOK    45
                                        *         IN THE FOLLOWING PARAGRAPHS, *ASSEMBLY-TIME DEPENDENCIES*      COMATOK    46
                                        *         ARE INTERFACES THAT THE *COMATOK* INSTALLER MUST PROVIDE.      COMATOK    47
                                        *         *ASSEMBLY-TIME OPTIONS* REFER TO INTERFACES THAT ARE OPTIONAL, COMATOK    48
                                        *         I.E. INTERFACES THAT HAVE A DEFAULT VALUE.                     COMATOK    49
                                        *                                                                        COMATOK    50
                                        ************************************************************************ COMATOK    51
                                        *                                                                        COMATOK    52
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    13
        COMATOK 2.0 - THE *TOGEL* MACROS.                             COMATOK 
  
                                        *         ASSEMBLY-TIME DEPENDENCIES --                                  COMATOK    53
                                        *                                                                        COMATOK    54
                                        ************************************************************************ COMATOK    55
                                        *                                                                        COMATOK    56
                                        *         THE INSTALLER MUST PROVIDE *COMSTOK* WHICH CONTAINS            COMATOK    57
                                        *         *COMATOK/COMCTOK* INTERFACE SYMBOL DEFINITIONS.                COMATOK    58
                                        *                                                                        COMATOK    59
                                        ************************************************************************ COMATOK    60
                                        *                                                                        COMATOK    61
                                        *         ASSEMBLY-TIME OPTIONS --                                       COMATOK    62
                                        *                                                                        COMATOK    63
                                        ************************************************************************ COMATOK    64
                                        *                                                                        COMATOK    65
                                        *         ALL ASSEMBLY-TIME OPTIONS ARE SET UP IN *COMSTOK*.             COMATOK    66
                                        *                                                                        COMATOK    67
                                        ************************************************************************ COMATOK    68
  
  
  
  
                                        **        *COMATOK* SYMBOL NAMING CONVENTIONS.                           COMATOK    70
                                        *                                                                        COMATOK    71
                                        *                                                                        COMATOK    72
                                        *         BECAUSE THE AUTHOR FINDS *COMPASS* MACRO CODE VERY DIFFICULT   COMATOK    73
                                        *         TO READ, A FEW SYMBOL NAMING CONVENTIONS WERE ADOPTED IN       COMATOK    74
                                        *         THE INTEREST OF READABILITY.  THE INTENT BEHIND THIS           COMATOK    75
                                        *         CONVENTION IS TO PASS AS MUCH SEMANTIC INFORMATION ABOUT       COMATOK    76
                                        *         "HOW" A SYMBOL IS USED IN THE SYMBOL NAME ITSELF.  IN THIS     COMATOK    77
                                        *         WAY, IT IS HOPED THAT THE READER WILL SORT-OF KNOW WHAT        COMATOK    78
                                        *         TO EXPECT OF A SYMBOL BY MERELY LOOKING AT ITS NAME.  THIS     COMATOK    79
                                        *         IS NOT A GREAT SYMBOL NAMING CONVENTION, BUT I HOPE IT MAKES   COMATOK    80
                                        *         THIS CODE A LITTLE EASIER TO READ.                             COMATOK    81
                                        *                                                                        COMATOK    82
                                        *         SYMBOLS WITHIN *COMATOK* ARE OF THE FORM--                     COMATOK    83
                                        *                                                                        COMATOK    84
                                        *                '?TKSXXX                                                COMATOK    85
                                        *                                                                        COMATOK    86
                                        *         WHERE *'?TK* IS A COMMON PREFIX THAT IS USED TO AVOID          COMATOK    87
                                        *                      CONFLICTS WITH ANY HOST (THE HOST SHOULD AVOID    COMATOK    88
                                        *                      SYMBOLS OF THIS FORM).                            COMATOK    89
                                        *               *S*    IS A SYMBOL TYPE, AND                             COMATOK    90
                                        *               *XXX*  IS A UNIQUE SYMBOL NAME.                          COMATOK    91
                                        *                                                                        COMATOK    92
                                        *         SYMBOL TYPES *S* ARE--                                         COMATOK    93
                                        *                C = MICRO NAME, I.E. A CHARACTER STRING.                COMATOK    94
                                        *                F = FLAG, I.E. A SYMBOL THAT IS USED AS A LOGICAL       COMATOK    95
                                        *                    FLAG IN THE WAY ALL PROGRAMMERS HAVE COME TO        COMATOK    96
                                        *                    KNOW AND LOVE.                                      COMATOK    97
                                        *                M = MACRO NAME.                                         COMATOK    98
                                        *                R = REMOTE BLOCK NAME (RMT).                            COMATOK    99
                                        *                S = SET SYMBOL, I.E. AN ABSOLUTE EVALUATABLE EXPRESSION COMATOK   100
                                        *                    VALUE.                                              COMATOK   101
                                        *                # = A LABEL, I.E. EITHER AN *IF/ELSE/ENDIF* LABEL OR    COMATOK   102
                                        *                    A GENERATED LABEL.                                  COMATOK   103
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    14
        COMATOK 2.0 - THE *TOGEL* MACROS.                             CALT
  
                                        **        *CALT* TOGEL INSTRUCTION/MACRO.                                COMATOK   105
                                        *                                                                        COMATOK   106
                                        *                                                                        COMATOK   107
                                        *         CALT   CAD                                                     COMATOK   108
                                        *                                                                        COMATOK   109
                                        *         ENTRY  CAD = ADDR TO TRANSFER CONTROL TO.                      COMATOK   110
                                        *                                                                        COMATOK   111
                                        *         EXIT   NONE                                                    COMATOK   112
                                        *                                                                        COMATOK   113
                                        *         USES   NONE                                                    COMATOK   114
                                        *                                                                        COMATOK   115
                                        *         CALLS  NONE                                                    COMATOK   116
                                                                                                                 COMATOK   117
                                                  PURGMAC CALT                                                   COMATOK   118
                                                                                                                 COMATOK   119
                                         CALT     MACRO  A                                                       COMATOK   120
                                        *                                                                        COMATOK   121
                                        *         GENERATE *TOGEL* BINARY INSTRUCTION.                           COMATOK   122
                                        *                                                                        COMATOK   123
                                         '?TKS001 SET 60-TG.CADP-TG.CADL                                         COMATOK   124
                                         + VFD '?TKS001/0,TG.CADL/A-FW.TOK,TG.TOFUL/=XTOK=CAL-FW.TOK             COMATOK   125
                                        *                                                                        COMATOK   126
                                         CALT     ENDM                                                           COMATOK   127
  
  
  
  
                                        **        *CASEOF* TOGEL INSTRUCTION/MACRO.                              COMATOK   129
                                        *                                                                        COMATOK   130
                                        *                                                                        COMATOK   131
                                        *         FORM --                                                        COMATOK   132
                                        *                                                                        COMATOK   133
                                        *         CASEOF A,B                                                     COMATOK   134
                                        *                                                                        COMATOK   135
                                        *         EXAMPLES --                                                    COMATOK   136
                                        *                                                                        COMATOK   137
                                        *         CASEOF (+../),TAD                                              COMATOK   138
                                        *         CASEOF (A..Z)                                                  COMATOK   139
                                        *                                                                        COMATOK   140
                                        *         ENTRY  A = RANGE OF CHARACTERS IN THIS *CASEOF*.               COMATOK   141
                                        *                    NOTE: THIS MACRO GENERATES A MICRO OF THIS          COMATOK   142
                                        *                    PARAMETER AND USES ONLY THE 1ST AND LAST            COMATOK   143
                                        *                    CHARACTERS OF THE MICRO (*COA* AND *COZ*).          COMATOK   144
                                        *                B = OPTIONAL ADDR OF *TOKEN* CHARACTER MAP FOR THIS     COMATOK   145
                                        *                    *CASEOF*.  IF ABSENT, THEN 1ST *TOKEN* FOLLOWING    COMATOK   146
                                        *                    THIS *CASEOF* WILL AUTOMATICALLY BECOME THE 1ST     COMATOK   147
                                        *                    *TOKEN* ELEMENT IN THE CHAR MAP FOR THIS *CASEOF*.  COMATOK   148
                                        *                                                                        COMATOK   149
                                        *         EXIT   NONE                                                    COMATOK   150
                                        *                                                                        COMATOK   151
                                        *         USES   NONE                                                    COMATOK   152
                                        *                                                                        COMATOK   153
                                        *         CALLS  NONE                                                    COMATOK   154
                                                                                                                 COMATOK   155
                                                                                                                 COMATOK   156
                                                  PURGMAC CASEOF                                                 COMATOK   157
                                                                                                                 COMATOK   158
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    15
        COMATOK 2.0 - THE *TOGEL* MACROS.                             CASEOF
  
                                         CASEOF   MACRO  A,BB                                                    COMATOK   159
                                          LOCAL '?TKL001                                                         COMATOK   160
                                        *                                                                        COMATOK   161
                                        *         SET UP --                                                      COMATOK   162
                                        *                                                                        COMATOK   163
                                        *         '?TKSCOA = *COA*, 1ST CHAR IN *CASEOF* RANGE (IN DPC).         COMATOK   164
                                        *         '?TKSCOZ = *COZ*, LAST CHAR IN *CASEOF* RANGE (IN RCS).        COMATOK   165
                                        *                                                                        COMATOK   166
                                         '?TKCS01 MICRO 1,, A                                                    COMATOK   167
                                         '?TKS001 MICCNT '?TKCS01                                                COMATOK   168
                                        *                                                                        COMATOK   169
                                         '?TKCS02 MICRO '?TKS001,1, "'?TKCS01"                                   COMATOK   170
                                         '?TKCS01 MICRO 1,1, "'?TKCS01"                                          COMATOK   171
                                        *                                                                        COMATOK   172
                                         '?TKSCOA SET 1R"'?TKCS01"                                               COMATOK   173
                                         '?TKS001 SET 1R"'?TKCS02"+10000B-'?TKSCOA                               COMATOK   174
                                         '?TKCS02 OCTMIC '?TKS001,2                                              COMATOK   175
                                         '?TKSCOZ SET "'?TKCS02"B                                                COMATOK   176
                                        *                                                                        COMATOK   177
                                        *         SET UP ADDR OF *TOKEN* CHARACTER MAP FOR THIS *CASEOF*.        COMATOK   178
                                        *                                                                        COMATOK   179
                                         '?TK#001 IFC NE, BB                                                     COMATOK   180
                                         '?TKFCOF SET -1                                                         COMATOK   181
                                         '?TKCTAD MICRO                                                          COMATOK   182
                                         '?TKCS01 MICRO 1,, BB                                                   COMATOK   183
                                        *                                                                        COMATOK   184
                                         '?TK#001 ELSE                                                           COMATOK   185
                                         '?TKFCOF SET 0                                                          COMATOK   186
                                         '?TKCTAD MICRO 1,, '?TKL001                                             COMATOK   187
                                         '?TKCS01 MICRO 1,, '?TKL001                                             COMATOK   188
                                        *                                                                        COMATOK   189
                                         '?TK#001 ENDIF                                                          COMATOK   190
                                        *                                                                        COMATOK   191
                                        *         GENERATE TOGEL BINARY INSTRUCTION.                             COMATOK   192
                                        *                                                                        COMATOK   193
                                         + VFD TG.COAL/'?TKSCOA,TG.COZL/'?TKSCOZ,TG.TADL/"'?TKCS01"-FW.TOK       COMATOK   194
                                          VFD TG.TOFUL/=XTOK=COF-FW.TOK                                          COMATOK   195
                                        *                                                                        COMATOK   196
                                        *         CONVERT '?TKSCOA TO RCS SO THAT *ELSC/ENDC* CAN PERFORM        COMATOK   197
                                        *         *CASEOF* RANGE CHECK.                                          COMATOK   198
                                        *                                                                        COMATOK   199
                                         '?TKSCOA SET 77B                                                        COMATOK   200
                                        *                                                                        COMATOK   201
                                         CASEOF ENDM                                                             COMATOK   202
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    16
        COMATOK 2.0 - THE *TOGEL* MACROS.                             CHMIC 
  
                                        ***       CHMIC - CREATE CHARACTER SHIFT MASK MICRO.                     COMATOK   204
                                        *                                                                        COMATOK   205
                                        * LOC     CHMIC  (LET1,LET2,...,LETN),BICH                               COMATOK   206
                                        *                                                                        COMATOK   207
                                        *         ENTRY  LOC = NAME OF THE MICRO TO BE CREATED.                  COMATOK   208
                                        *                LET(I) = CHARACTERS TO GENERATE CHARACTER SHIFT         COMATOK   209
                                        *                         MASK MICRO FOR.  CHARACTERS CAN BE SPECIFIED   COMATOK   210
                                        *                         IN 1 OF 3 WAYS--                               COMATOK   211
                                        *                           1. AS A SINGLE CHARACTER, AS IN              COMATOK   212
                                        *                              *CHMIC (A,B,C)*.                          COMATOK   213
                                        *                           2. AS A 2 OCDIT NUMBER, AS IN                COMATOK   214
                                        *                              *CHMIC (01,02,03)*.                       COMATOK   215
                                        *                           3. AS ANY EVALUATABLE *COMPASS*              COMATOK   216
                                        *                              EXPRESSION  (.GE. 3 CHARS), AS IN         COMATOK   217
                                        *                              *CHMIC (1RA,02D,03B,5-1)*.                COMATOK   218
                                        *                         ANY OF THE ABOVE FORMS MAY BE USED, AND        COMATOK   219
                                        *                         IN ANY COMBINATION, AS IN                      COMATOK   220
                                        *                         *CHMIC (A,02,03B,1RD,10D-4)*.                  COMATOK   221
                                        *                                                                        COMATOK   222
                                        *                         NOTE-- *CHMIC* GENERATES BITS FOR CHARACTERS   COMATOK   223
                                        *                         MODULO 60D.  THIS IMPLIES, THEREFORE THAT      COMATOK   224
                                        *                         0=60D, OR 1R:=1R\.                             COMATOK   225
                                        *                BICH = BIAS CHARACTER.  SPECIFIES BINARY VALUE OF       COMATOK   226
                                        *                       CHARACTER THAT IS TO OCCUPY BIT 59 OF MICRO      COMATOK   227
                                        *                       TO GENERATE.  SEE *COMCBUB*.                     COMATOK   228
                                        *                                                                        COMATOK   229
                                        *         EXIT   LOC = MICRO CONTAINING THE 20-OCTAL DIGIT VALUE         COMATOK   230
                                        *                            (WITH *B* SUFFIX PRESENT).                  COMATOK   231
                                        *                                                                        COMATOK   232
                                        *         GENERATES A MICRO WITH 1-BITS IN SPECIFIED CHARACTER           COMATOK   233
                                        *         POSITIONS.                                                     COMATOK   234
                                                                                                                 COMATOK   235
                                                                                                                 COMATOK   236
                                                  MACRO  CHMIC,LOC,LET,BICH                                      COMATOK   237
                                        *                                                                        COMATOK   238
                                        *         SET UP DEFAULT *BICH*.                                         COMATOK   239
                                        *                                                                        COMATOK   240
                                         '?CH#001 IFC    EQ,/BICH//,2                                            COMATOK   241
                                         '?CHSBCH SET    00B                                                     COMATOK   242
                                         '?CH#001 ELSE                                                           COMATOK   243
                                         '?CHSBCH SET    BICH                                                    COMATOK   244
                                         '?CH#001 ENDIF                                                          COMATOK   245
                                        *                                                                        COMATOK   246
                                         '?CHCCSM MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000 COMATOK   247
                                        ,00000_0000000000                                                        COMATOK   248
                                        *                                                                        COMATOK   249
                                                  IRP    LET                                                     COMATOK   250
                                        *                                                                        COMATOK   251
                                        *         TRANSFORM *LET* INTO ITS BINARY VALUE.                         COMATOK   252
                                        *                                                                        COMATOK   253
                                         '?CHCLET MICRO  1,, LET                                                 COMATOK   254
                                         '?CHLLET MICCNT '?CHCLET                                                COMATOK   255
                                        *                                                                        COMATOK   256
                                         '?CH#003 IFNE   '?CHLLET,0                                              COMATOK   257
                                         '?CH#001 IFEQ   '?CHLLET,1                                              COMATOK   258
                                         '?CHSLET SET    1R_LET                                                  COMATOK   259
                                        *                                                                        COMATOK   260
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    17
        COMATOK 2.0 - THE *TOGEL* MACROS.                             CHMIC 
  
                                         '?CH#001 ELSE                                                           COMATOK   261
                                         '?CH#002 IFEQ   '?CHLLET,2                                              COMATOK   262
                                         '?CHSLET SET    LET_B                                                   COMATOK   263
                                        *                                                                        COMATOK   264
                                         '?CH#002 ELSE                                                           COMATOK   265
                                         '?CHSLET SET    LET                                                     COMATOK   266
                                         '?CH#002 ENDIF                                                          COMATOK   267
                                         '?CH#001 ENDIF                                                          COMATOK   268
                                        *                                                                        COMATOK   269
                                        *         CONVERT CHAR IN *'?CHSLET* TO *ROTATED CHAR SET* VALUE.        COMATOK   270
                                        *                                                                        COMATOK   271
                                         '?CHSRCS SET    '?CHSLET+10000B-'?CHSBCH                                COMATOK   272
                                         '?CHCRCS OCTMIC '?CHSRCS,2                                              COMATOK   273
                                         '?CHSRCS SET    "'?CHCRCS"B                                             COMATOK   274
                                                  IFGE   '?CHSRCS,60D,2                                          COMATOK   275
                                         '?CHCRCS DECMIC '?CHSRCS,1                                              COMATOK   276
                                         '?CHSRCS SET    "'?CHCRCS"                                              COMATOK   277
                                        *                                                                        COMATOK   278
                                        *         EXTRACT TRAILING BITS.                                         COMATOK   279
                                        *                                                                        COMATOK   280
                                         '?CHCTBI MICRO  '?CHSRCS+2,,/"'?CHCCSM" /                               COMATOK   281
                                        *                                                                        COMATOK   282
                                        *         EXTRACT LEADING BITS.                                          COMATOK   283
                                        *                                                                        COMATOK   284
                                         '?CHCLBI MICRO                                                          COMATOK   285
                                                  IFNE   '?CHSRCS,0,1                                            COMATOK   286
                                         '?CHCLBI MICRO  1,'?CHSRCS, "'?CHCCSM"                                  COMATOK   287
                                        *                                                                        COMATOK   288
                                        *         MERGE IN NEW BIT.                                              COMATOK   289
                                        *                                                                        COMATOK   290
                                         '?CHCCSM MICRO  1,60, "'?CHCLBI"1"'?CHCTBI"                             COMATOK   291
                                         '?CH#003 ENDIF                                                          COMATOK   292
                                                  IRP                                                            COMATOK   293
                                        *                                                                        COMATOK   294
                                        *         CONVERT BINARY TO OCTAL.                                       COMATOK   295
                                        *                                                                        COMATOK   296
                                         LOC       MICRO                                                         COMATOK   297
                                         '?CHSS01 SET                                                            COMATOK   298
                                         '?CH#002  DUP   60D/3                                                   COMATOK   299
                                         '?CHSS01 SET    1+'?CHSS01                                              COMATOK   300
                                         '?CHCS01 MICRO  3*'?CHSS01-2,1, "'?CHCCSM"                              COMATOK   301
                                         '?CHCS02 MICRO  3*'?CHSS01-1,1, "'?CHCCSM"                              COMATOK   302
                                         '?CHCS03 MICRO  3*'?CHSS01-0,1, "'?CHCCSM"                              COMATOK   303
                                         '?CHCS03 OCTMIC "'?CHCS01"*4+"'?CHCS02"*2+"'?CHCS03",1                  COMATOK   304
                                         LOC      MICRO  1,, "LOC""'?CHCS03"                                     COMATOK   305
                                         '?CH#002 ENDD                                                           COMATOK   306
                                        *                                                                        COMATOK   307
                                         LOC      MICRO  1,, "LOC"B                                              COMATOK   308
                                         CHMIC    ENDM                                                           COMATOK   309
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    18
        COMATOK 2.0 - THE *TOGEL* MACROS.                             ELSC
  
                                        **        *ELSC* TOGEL INSTRUCTION/MACRO.                                COMATOK   311
                                        *                                                                        COMATOK   312
                                        *                                                                        COMATOK   313
                                        *         ENTRY  NONE                                                    COMATOK   314
                                        *                                                                        COMATOK   315
                                        *         EXIT   NONE                                                    COMATOK   316
                                        *                                                                        COMATOK   317
                                        *         USES   NONE                                                    COMATOK   318
                                        *                                                                        COMATOK   319
                                        *         CALLS  NONE                                                    COMATOK   320
                                                                                                                 COMATOK   321
                                                  PURGMAC ELSC                                                   COMATOK   322
                                                                                                                 COMATOK   323
                                         ELSC     MACRO                                                          COMATOK   324
                                        *                                                                        COMATOK   325
                                          IFNE '?TKSCOA,'?TKSCOZ,1                                               COMATOK   326
                                         P ERR *CASEOF* RANGE AND COUNT OF *TOKEN*S DO NOT AGREE "SEQUENCE"      COMATOK   327
                                        *                                                                        COMATOK   328
                                        *         SET '?TKFCOF TO INDICATE THAT WE HAVE PROCESSED AN *ELSC*.     COMATOK   329
                                        *                                                                        COMATOK   330
                                         '?TKFCOF SET 1                                                          COMATOK   331
                                        *                                                                        COMATOK   332
                                         ELSC ENDM                                                               COMATOK   333
  
  
  
  
                                        **        *ELST* TOGEL INSTRUCTION/MACRO.                                COMATOK   335
                                        *                                                                        COMATOK   336
                                        *                                                                        COMATOK   337
                                        * L       ELST                                                           COMATOK   338
                                        *                                                                        COMATOK   339
                                        *         ENTRY  L = *IFT/ELST/ENDT* LABEL.                              COMATOK   340
                                        *                                                                        COMATOK   341
                                        *         EXIT   NONE                                                    COMATOK   342
                                        *                                                                        COMATOK   343
                                        *         USES   NONE                                                    COMATOK   344
                                        *                                                                        COMATOK   345
                                        *         CALLS  GOTO,'?TKMMEQ                                           COMATOK   346
                                                                                                                 COMATOK   347
                                                  PURGMAC ELST                                                   COMATOK   348
                                                                                                                 COMATOK   349
                                                  MACRO  ELST,L                                                  COMATOK   350
                                        *                                                                        COMATOK   351
                                        *         POP ENTRIES OFF '?TK1NNN UNTIL A MATCHING LABEL FOUND          COMATOK   352
                                        *         OR UNTIL NO MORE ENTRIES.  THIS PROCESS IS SIMILAR TO          COMATOK   353
                                        *         THE *ENDT* POPPING OF '?TK1NNN EXCEPT THAT WITH *ELST*         COMATOK   354
                                        *         POPPING, '?TK1NNN IS NOT ALTERED SO THAT WHEN THE EXPECTED     COMATOK   355
                                        *         *ENDT* DOES OCCUR THAT '?TK1NNN IS READY TO BE POPPED          COMATOK   356
                                        *         PERMANENTLY.                                                   COMATOK   357
                                        *                                                                        COMATOK   358
                                         '?TKSLEN SET '?TK1LEN                                                   COMATOK   359
                                        *                                                                        COMATOK   360
                                         '?TK#001 DUP '?TKSLEN                                                   COMATOK   361
                                        *                                                                        COMATOK   362
                                         '?TKCS01 DECMIC '?TKSLEN,3                                              COMATOK   363
                                         '?TKSLEN SET '?TKSLEN-1                                                 COMATOK   364
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    19
        COMATOK 2.0 - THE *TOGEL* MACROS.                             ELST
  
                                        *                                                                        COMATOK   365
                                         '?TKCS02 '?TKMMEQ '?TK1"'?TKCS01"                                       COMATOK   366
                                        *                                                                        COMATOK   367
                                        *         SET UP --                                                      COMATOK   368
                                        *                                                                        COMATOK   369
                                        *         '?TKCLNR - LATEST *IFT/ELST* LABEL NR.                         COMATOK   370
                                        *         '?TKCLAB - LATEST *IFT/ELST* LABEL, IF PRESENT.                COMATOK   371
                                        *                                                                        COMATOK   372
                                        *         NOTE: TEMPORARY MICRO NAMES ARE NOT USED BECAUSE THESE         COMATOK   373
                                        *         MICROS HAVE TO SURVIVE A *GOTO* MACRO REFERENCE THAT IS        COMATOK   374
                                        *         GENERATED AS A RESULT OF *ELST*.  I.E. IT IS BAD PRACTICE      COMATOK   375
                                        *         TO ASSUME THAT A TEMPORARY SYMBOL WILL SURVIVE A MACRO         COMATOK   376
                                        *         REFERENCE.                                                     COMATOK   377
                                        *                                                                        COMATOK   378
                                         '?TKCLNR MICRO 1,3, "'?TKCS02"                                          COMATOK   379
                                         '?TKCLAB MICRO 4,, "'?TKCS02"                                           COMATOK   380
                                        *                                                                        COMATOK   381
                                        *         OUTPUT APPROPRIATE '?TKINNN INTERNAL LABEL SO THAT             COMATOK   382
                                        *         *IFT* CAN BRANCH TO *ELST* IF *IFT* CONDITION IS FALSE.        COMATOK   383
                                        *                                                                        COMATOK   384
                                          IF DEF,'?TKI"'?TKCLNR",1                                               COMATOK   385
                                         P ERR THIS *ELST* PREVIOUSLY DEFINED.                                   COMATOK   386
                                        *                                                                        COMATOK   387
                                        *         OUTPUT A *GOTO '?TKENNN* TO SKIP *ELST* PORTION OF             COMATOK   388
                                        *         *IFT/ELST/ENDT*.                                               COMATOK   389
                                        *                                                                        COMATOK   390
                                          GOTO '?TKE"'?TKCLNR"                                                   COMATOK   391
                                        *                                                                        COMATOK   392
                                         '?TKI"'?TKCLNR" BSS 0                                                   COMATOK   393
                                        *                                                                        COMATOK   394
                                        *         IF IN *TEST* MODE, OUTPUT *ELST* BINARY INSTRUCTION.           COMATOK   395
                                        *                                                                        COMATOK   396
                                          IFNE TEST,0,1                                                          COMATOK   397
                                         + VFD 42/0L"'?TKCLAB",TG.TOFUL/=XTOK=ELS-FW.TOK                         COMATOK   398
                                        *                                                                        COMATOK   399
                                        *         CHECK *ELST* LABEL WITH '?TK1NNN LABEL.                        COMATOK   400
                                        *                                                                        COMATOK   401
                                          IFC EQ, "'?TKCLAB" L ,1                                                COMATOK   402
                                          STOPDUP                                                                COMATOK   403
                                        *                                                                        COMATOK   404
                                         '?TK#001 ENDD                                                           COMATOK   405
                                        *                                                                        COMATOK   406
                                         ELST ENDM                                                               COMATOK   407
  
  
  
  
                                        **        *ENDC* TOGEL INSTRUCTION/MACRO.                                COMATOK   409
                                        *                                                                        COMATOK   410
                                        *                                                                        COMATOK   411
                                        *         ENTRY  NONE                                                    COMATOK   412
                                        *                                                                        COMATOK   413
                                        *         EXIT   NONE                                                    COMATOK   414
                                        *                                                                        COMATOK   415
                                        *         USES   NONE                                                    COMATOK   416
                                        *                                                                        COMATOK   417
                                        *         CALLS  NONE                                                    COMATOK   418
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    20
        COMATOK 2.0 - THE *TOGEL* MACROS.                             ENDC
  
                                                                                                                 COMATOK   419
                                                  PURGMAC ENDC                                                   COMATOK   420
                                                                                                                 COMATOK   421
                                         ENDC     MACRO                                                          COMATOK   422
                                        *                                                                        COMATOK   423
                                           IFNE '?TKSCOA,'?TKSCOZ,1                                              COMATOK   424
                                         P ERR *CASEOF* RANGE AND COUNT OF *TOKEN*S DO NOT AGREE "SEQUENCE"      COMATOK   425
                                        *                                                                        COMATOK   426
                                        *         REINITIALIZE '?TKFCOF.                                         COMATOK   427
                                        *                                                                        COMATOK   428
                                         '?TKFCOF SET -1                                                         COMATOK   429
                                        *                                                                        COMATOK   430
                                         ENDC ENDM                                                               COMATOK   431
  
  
  
  
                                        **        *ENDT* TOGEL INSTRUCTION/MACRO.                                COMATOK   433
                                        *                                                                        COMATOK   434
                                        *                                                                        COMATOK   435
                                        * L       ENDT                                                           COMATOK   436
                                        *                                                                        COMATOK   437
                                        *         ENTRY  L = *IFT/ELST/ENDT* LABEL.                              COMATOK   438
                                        *                                                                        COMATOK   439
                                        *         EXIT   NONE                                                    COMATOK   440
                                        *                                                                        COMATOK   441
                                        *         CALLS  '?TKMMEQ                                                COMATOK   442
                                                                                                                 COMATOK   443
                                                  PURGMAC ENDT                                                   COMATOK   444
                                                                                                                 COMATOK   445
                                                  MACRO  ENDT,L                                                  COMATOK   446
                                        *                                                                        COMATOK   447
                                        *         POP ENTRIES OFF '?TK1NNN UNTIL A MATCHING LABEL FOUND          COMATOK   448
                                        *         OR UNTIL NO MORE ENTRIES.                                      COMATOK   449
                                        *                                                                        COMATOK   450
                                         '?TK#001 DUP '?TK1LEN                                                   COMATOK   451
                                        *                                                                        COMATOK   452
                                         '?TKCS01 DECMIC '?TK1LEN,3                                              COMATOK   453
                                         '?TK1LEN SET '?TK1LEN-1                                                 COMATOK   454
                                         '?TKCS02 '?TKMMEQ '?TK1"'?TKCS01"                                       COMATOK   455
                                        *                                                                        COMATOK   456
                                        *         SET UP --                                                      COMATOK   457
                                        *                                                                        COMATOK   458
                                        *         '?TKCS01 = LATEST *IFT/ELST/ENDT* LABEL NR.                    COMATOK   459
                                        *         '?TKCS02 = LATEST *IFT/ELST/ENDT* LABEL, IF PRESENT.           COMATOK   460
                                        *                                                                        COMATOK   461
                                         '?TKCS01 MICRO 1,3, "'?TKCS02"                                          COMATOK   462
                                         '?TKCS02 MICRO 4,, "'?TKCS02"                                           COMATOK   463
                                        *                                                                        COMATOK   464
                                        *         IF IN *TEST* MODE, OUTPUT *ENDT* BINARY INSTRUCTION.           COMATOK   465
                                        *                                                                        COMATOK   466
                                          IFNE TEST,0,1                                                          COMATOK   467
                                        + VFD TG.IFLL/0L"'?TKCS02",TG.TOFUL/=XTOK=ENT-FW.TOK                     COMATOK   468
                                        *                                                                        COMATOK   469
                                        *         OUTPUT APPROPRIATE INTERNAL LABELS FOR THIS '?TK1NNN ENTRY.    COMATOK   470
                                        *                                                                        COMATOK   471
                                          IF -DEF,'?TKI"'?TKCS01",1                                              COMATOK   472
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    21
        COMATOK 2.0 - THE *TOGEL* MACROS.                             ENDT
  
                                         '?TKI"'?TKCS01" BSS 0                                                   COMATOK   473
                                        *                                                                        COMATOK   474
                                         '?TKE"'?TKCS01" BSS 0                                                   COMATOK   475
                                        *                                                                        COMATOK   476
                                        *         CHECK *ENDT* LABEL WITH '?TK1NNN LABEL.                        COMATOK   477
                                        *                                                                        COMATOK   478
                                          IFC EQ, "'?TKCS02" L ,1                                                COMATOK   479
                                          STOPDUP                                                                COMATOK   480
                                        *                                                                        COMATOK   481
                                         '?TK#001 ENDD                                                           COMATOK   482
                                        *                                                                        COMATOK   483
                                         ENDT ENDM                                                               COMATOK   484
  
  
  
  
                                        **        *GENTOK* TOGEL INSTRUCTION/MACRO.                              COMATOK   486
                                        *                                                                        COMATOK   487
                                        *                                                                        COMATOK   488
                                        *         GENTOK TOT                                                     COMATOK   489
                                        *                                                                        COMATOK   490
                                        *         ENTRY  TOT = TOKEN TYPE TO GENERATE.                           COMATOK   491
                                        *                                                                        COMATOK   492
                                        *         EXIT   NONE                                                    COMATOK   493
                                        *                                                                        COMATOK   494
                                        *         USES   NONE                                                    COMATOK   495
                                        *                                                                        COMATOK   496
                                        *         CALLS  NONE                                                    COMATOK   497
                                                                                                                 COMATOK   498
                                                                                                                 COMATOK   499
                                                  PURGMAC GENTOK                                                 COMATOK   500
                                                                                                                 COMATOK   501
                                         GENTOK   MACRO  TOT                                                     COMATOK   502
                                        *                                                                        COMATOK   503
                                        *         GENERATE *TOGEL* BINARY INSTRUCTION.                           COMATOK   504
                                        *                                                                        COMATOK   505
                                         '?TKS001 SET 60-TG.GTTP-TG.GTTL                                         COMATOK   506
                                         + VFD '?TKS001/0,TG.GTTL/"O."TOT,TG.TOFUL/=XTOK=GEN                     COMATOK   507
                                         GENTOK   ENDM                                                           COMATOK   508
  
  
  
  
                                        **        *GOTO XX* TOGEL INSTRUCTION/MACRO.                             COMATOK   510
                                        *                                                                        COMATOK   511
                                        *         GOTO LAB                                                       COMATOK   512
                                        *                                                                        COMATOK   513
                                        *         ENTRY  LAB = *COMPASS* LOCATION FIELD TO *GOTO* TO.            COMATOK   514
                                        *                                                                        COMATOK   515
                                        *         EXIT   NONE                                                    COMATOK   516
                                        *                                                                        COMATOK   517
                                        *         USES   NONE                                                    COMATOK   518
                                        *                                                                        COMATOK   519
                                        *         CALLS  NONE                                                    COMATOK   520
                                                                                                                 COMATOK   521
                                                                                                                 COMATOK   522
                                                  PURGMAC GOTO                                                   COMATOK   523
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    22
        COMATOK 2.0 - THE *TOGEL* MACROS.                             GOTO
  
                                                                                                                 COMATOK   524
                                         GOTO     MACRO  A                                                       COMATOK   525
                                        *                                                                        COMATOK   526
                                        *         GENERATE *TOGEL* BINARY INSTRUCTION.                           COMATOK   527
                                        *                                                                        COMATOK   528
                                         '?TKS001 SET 60-TG.GOTP-TG.GOTL                                         COMATOK   529
                                         + VFD '?TKS001/0,TG.GOTL/A-FW.TOK,TG.TOFUL/=XTOK=GO-FW.TOK              COMATOK   530
                                         GOTO ENDM                                                               COMATOK   531
  
  
  
  
                                        **        *GROUP (A..Z),TOT,SQZ/NSQZ* TOGEL INSTRUCTION/MACRO.           COMATOK   533
                                        *                                                                        COMATOK   534
                                        *                                                                        COMATOK   535
                                        *         GROUP  RNG,TOT,MODE                                            COMATOK   536
                                        *                                                                        COMATOK   537
                                        *         ENTRY  RNG  = A CHARACTER RANGE THAT SPECIFIES THE CHARACTERS  COMATOK   538
                                        *                       THAT ARE TO BE GROUPED TOGETHER BY THIS *GROUP*. COMATOK   539
                                        *                       A CHARACTER RANGE CAN BE SPECIFIED VIA ANY       COMATOK   540
                                        *                       COMBINATION OF THE FOLLOWING SYNTAXES--          COMATOK   541
                                        *                         1. A CHARACTER RANGE CAN BE SPECIFIED VIA A    COMATOK   542
                                        *                            SIMPLE LIST, AS IN *GROUP (ABCDEFG)*.       COMATOK   543
                                        *                         2. A CHARACTER RANGE MAY BE NOTATED USING THE  COMATOK   544
                                        *                            SPECIAL OPERATOR *..*, AS IN *GROUP (A..G)* COMATOK   545
                                        *                            WHICH READS "FROM A TO G".                  COMATOK   546
                                        *                         3. INDIVIDUAL CHARACTERS CAN BE SPECIFIED AS   COMATOK   547
                                        *                            2 DIGIT OCTAL NUMBERS, VIA THE SPECIAL      COMATOK   548
                                        *                            FORM */NN*, WHERE */* IS A PREFIX OPERATOR, COMATOK   549
                                        *                            AND *NN* IS A 2 DIGIT OCTAL CONSTANT.       COMATOK   550
                                        *                            E.G. *GROUP (/01../07)*.                    COMATOK   551
                                        *                                                                        COMATOK   552
                                        *                       EXAMPLES--                                       COMATOK   553
                                        *                         GROUP (A..Z0..9)                               COMATOK   554
                                        *                         GROUP (+..:)                                   COMATOK   555
                                        *                         GROUP (+..*/77/00)                             COMATOK   556
                                        *                                                                        COMATOK   557
                                        *                TOT  = TOKEN TYPE TO ASSOCIATE WITH THIS *GROUP*.       COMATOK   558
                                        *                       *COMATOK* WILL PREFIX THIS NAME WITH THE         COMATOK   559
                                        *                       OPTIONALLY USER-DEFINED MICRO "O.".              COMATOK   560
                                        *                                                                        COMATOK   561
                                        *                MODE = MODE OF *GROUP*ING.                              COMATOK   562
                                        *                     = *SQZ* MEANS THAT BLANKS ARE SQUEEZED (IGNORED).  COMATOK   563
                                        *                     = *NSQZ* MEANS THAT BLANKS ARE NOT SQUEEZED.       COMATOK   564
                                        *                                                                        COMATOK   565
                                        *         EXIT   NONE                                                    COMATOK   566
                                        *                                                                        COMATOK   567
                                        *         USES   NONE                                                    COMATOK   568
                                        *                                                                        COMATOK   569
                                        *         CALLS  '?TKMRNG                                                COMATOK   570
                                                                                                                 COMATOK   571
                                                                                                                 COMATOK   572
                                                  PURGMAC GROUP                                                  COMATOK   573
                                                                                                                 COMATOK   574
                                         GROUP    MACRO  A,B,C                                                   COMATOK   575
                                                  LOCAL  '?TK#001                                                COMATOK   576
                                        *                                                                        COMATOK   577
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    23
        COMATOK 2.0 - THE *TOGEL* MACROS.                             GROUP 
  
                                        *         DETERMINE WHICH *TOFU* TO INVOKE.                              COMATOK   578
                                        *                                                                        COMATOK   579
                                         '?TKCTOF MICRO 1,, TOK=GS                                               COMATOK   580
                                           IFC EQ, C NSQZ ,1                                                     COMATOK   581
                                         '?TKCTOF MICRO 1,, TOK=GN                                               COMATOK   582
                                        *                                                                        COMATOK   583
                                        *         GENERATE *TOGEL* BINARY INSTRUCTION.                           COMATOK   584
                                        *                                                                        COMATOK   585
                                         '?TKS001 SET 60-TG.TOTP-TG.TOTL                                         COMATOK   586
                                         + VFD '?TKS001/0,TG.TOTL/"O."B,TG.MXAL/'?TK#001-FW.TOK,________________ COMATOK   587
                                        ,__TG.TOFUL/=X"'?TKCTOF"-FW.TOK                                          COMATOK   588
                                        *                                                                        COMATOK   589
                                        *         GENERATE CHARACTER RANGE SHIFT MASK.                           COMATOK   590
                                        *                                                                        COMATOK   591
                                           '?TKMRNG (A)                                                          COMATOK   592
                                        *                                                                        COMATOK   593
                                         '?TKRCSM '?TKMRMT ('?TK#001 LIT "'?TKCRNG")                             COMATOK   594
                                        *                                                                        COMATOK   595
                                         GROUP ENDM                                                              COMATOK   596
  
  
  
  
                                        **        *IFT (A..Z)* TOGEL INSTRUCTION/MACRO.                          COMATOK   598
                                        *                                                                        COMATOK   599
                                        *                                                                        COMATOK   600
                                        *         IFT RNG                                                        COMATOK   601
                                        *                                                                        COMATOK   602
                                        *         ENTRY  RNG = A CHARACTER RANGE THAT SPECIFIES THE CHARACTERS   COMATOK   603
                                        *                      THAT ARE TO BE TESTED FOR.  SEE *GROUP* MACRO     COMATOK   604
                                        *                      FOR A DESCRIPTION OF *RNG* SYNTAX.                COMATOK   605
                                        *                                                                        COMATOK   606
                                        *         EXIT   NONE                                                    COMATOK   607
                                        *                                                                        COMATOK   608
                                        *         USES   NONE                                                    COMATOK   609
                                        *                                                                        COMATOK   610
                                        *         CALLS  '?TKMRNG                                                COMATOK   611
                                                                                                                 COMATOK   612
                                                                                                                 COMATOK   613
                                                  PURGMAC IFT                                                    COMATOK   614
                                                                                                                 COMATOK   615
                                          MACRO IFT,L,A                                                          COMATOK   616
                                          LOCAL '?TK#001                                                         COMATOK   617
                                        *                                                                        COMATOK   618
                                        *         SET UP--                                                       COMATOK   619
                                        *                                                                        COMATOK   620
                                        *           '?TKSIGL   = GENERATED LABEL NR FOR *IFT/ELST/ENDT*          COMATOK   621
                                        *                        IMPLIED JUMPS.  '?TKSIGL WILL BE USED TO        COMATOK   622
                                        *                        GENERATE 2 UNIQUE LABELS: ONE FOR THE IMPLIED   COMATOK   623
                                        *                        FALSE JUMP FROM THE *IFT* TO THE *ELST*, AND    COMATOK   624
                                        *                        ONE FOR THE IMPLIED JUMP FROM THE *ELST* TO     COMATOK   625
                                        *                        THE *ENDT*.                                     COMATOK   626
                                        *                                                                        COMATOK   627
                                        *                        *IFT/ELST* BRANCH IS TO A LABEL OF THE FORM --  COMATOK   628
                                        *                                                                        COMATOK   629
                                        *                             '?TKINNN                                   COMATOK   630
                                        *                                                                        COMATOK   631
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    24
        COMATOK 2.0 - THE *TOGEL* MACROS.                             IFT 
  
                                        *                        WHERE *I* IS A SYMBOL TYPE MEANING *IFT/ELST*   COMATOK   632
                                        *                        GENERATED LABEL, AND *NNN* IS A 3 DIGIT DECIMAL COMATOK   633
                                        *                        CONVERSION OF '?TKSIGL  (VIA *DECMIC*).         COMATOK   634
                                        *                                                                        COMATOK   635
                                        *                        *ELST/ENDT* BRANCH IS TO A LABEL OF THE FORM -- COMATOK   636
                                        *                                                                        COMATOK   637
                                        *                             '?TKENNN                                   COMATOK   638
                                        *                                                                        COMATOK   639
                                        *                        WHERE *E* MEANS *ELST/ENDT* GENERATED LABEL.    COMATOK   640
                                        *                                                                        COMATOK   641
                                        *         FOR EXAMPLE, CONSIDER THE FOLLOWING --                         COMATOK   642
                                        *                                                                        COMATOK   643
                                        *                  IFT (A..Z) ---------------+ FALSE BRANCH              COMATOK   644
                                        *                   .                        +                           COMATOK   645
                                        *                  GOTO '?TKE001 (IMPLIED) --+-+                         COMATOK   646
                                        *                  ELST                      + +                         COMATOK   647
                                        *         '?TKI001 BSS 0   <-----------------+ +                         COMATOK   648
                                        *                   .                          +                         COMATOK   649
                                        *                  ENDT                        +                         COMATOK   650
                                        *         '?TKE001 BSS 0   <-------------------+                         COMATOK   651
                                        *                                                                        COMATOK   652
                                         '?TKSIGL SET '?TKSIGL+1                                                 COMATOK   653
                                          IFGT '?TKSIGL,999D,1                                                   COMATOK   654
                                         P ERR TOO MANY *IFT/THEN/ELST/ENDT* BLOCKS. "SEQUENCE"                  COMATOK   655
                                        *                                                                        COMATOK   656
                                         '?TKCIGL DECMIC '?TKSIGL,3                                              COMATOK   657
                                        *                                                                        COMATOK   658
                                        *         GENERATE *TOGEL* BINARY INSTRUCTION.                           COMATOK   659
                                        *                                                                        COMATOK   660
                                         '?TKS001 SET 60-TG.FALP-TG.FALL                                         COMATOK   661
                                         + VFD '?TKS001/0,TG.FALL/'?TKI"'?TKCIGL"-FW.TOK,_______________________ COMATOK   662
                                        ,__TG.MXAL/'?TK#001-FW.TOK,TG.TOFUL/=XTOK=IFT-FW.TOK                     COMATOK   663
                                        *                                                                        COMATOK   664
                                        *         GENERATE CHAR RANGE SHIFT MASK.                                COMATOK   665
                                        *                                                                        COMATOK   666
                                          '?TKMRNG (A)                                                           COMATOK   667
                                         '?TKRCSM '?TKMRMT ('?TK#001 LIT "'?TKCRNG")                             COMATOK   668
                                        *                                                                        COMATOK   669
                                        *         MAKE '?TK1NNN ENTRY FOR THIS LABEL.  '?TK1NNN IS A MICRO       COMATOK   670
                                        *         ARRAY THAT CONTAINS ALL THE CURRENTLY ACTIVE *IFT/ELST/ENDT*   COMATOK   671
                                        *         LABELS.  EACH ENTRY IN '?TK1NNN CONTAINS THE LABEL NAME        COMATOK   672
                                        *         (AS SPECIFIED VIA *LAB* PARAMETER), THE *'?TKI* AND *'?TKE*    COMATOK   673
                                        *         SUFFIX FOR THIS LABEL, AND THE STATUS OF THE LABEL (EXPLAINED  COMATOK   674
                                        *         BELOW).  THIS MICRO ARRAY CAN BE THOUGHT OF AS A SYMBOL TABLE  COMATOK   675
                                        *         FOR THE ACTIVE *IFT/ELST/ENDT* LABELS AND IS USED AS A FORM    COMATOK   676
                                        *         OF COMMUNICATION BETWEEN THE *IFT/ELST/ENDT* MACROS SO THAT    COMATOK   677
                                        *         THEY CAN GENERATE THE APPROPRIATE LABELS AND IMPLIED *GOTO*S   COMATOK   678
                                        *         ASSOCIATED WITH THESE MACROS.                                  COMATOK   679
                                        *                                                                        COMATOK   680
                                        *         EACH '?TK1NNN ENTRY IS A MICRO STRING OF THE FORM --           COMATOK   681
                                        *                                                                        COMATOK   682
                                        *                XXXLLL                                                  COMATOK   683
                                        *                                                                        COMATOK   684
                                        *         WHERE *XXX* IS THE *'?TKSIGL* NR FOR THIS *IFT/ELST/ENDT*      COMATOK   685
                                        *                     BLOCK.                                             COMATOK   686
                                        *               *S*   IS THE STATUS OF THE LABEL.                        COMATOK   687
                                        *                     = *+* IF THIS BLOCK HAS BEEN DEFINED VIA *IFT*,    COMATOK   688
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    25
        COMATOK 2.0 - THE *TOGEL* MACROS.                             IFT 
  
                                        *                     ELSE * * (BLANK(55B)).                             COMATOK   689
                                        *               *LLL* IS THE LABEL ITSELF, AS SPECIFIED VIA *LAB*        COMATOK   690
                                        *                     PARAMETER.  IF NO *LAB* WAS PRESENT, THEN *LLL*    COMATOK   691
                                        *                     WILL BE NULL.                                      COMATOK   692
                                        *                                                                        COMATOK   693
                                         '?TK1LEN SET '?TK1LEN+1                                                 COMATOK   694
                                         '?TKCS01 DECMIC '?TK1LEN,3                                              COMATOK   695
                                         '?TKCS02 MICRO 1,, '?TK1"'?TKCS01"                                      COMATOK   696
                                        *                                                                        COMATOK   697
                                         "'?TKCS02" MICRO 1,, "'?TKCIGL"_L                                       COMATOK   698
                                        *                                                                        COMATOK   699
                                         IFT ENDM                                                                COMATOK   700
  
  
  
  
                                        **        *ON I,V* TOGEL INSTRUCTION/MACRO.                              COMATOK   702
                                        *                                                                        COMATOK   703
                                        *                                                                        COMATOK   704
                                        *         ON I,V                                                         COMATOK   705
                                        *                                                                        COMATOK   706
                                        *         ENTRY  I = INTERUPT TYPE.                                      COMATOK   707
                                        *                V = VALUE TO STORE INTO INTERUPT FLAG.                  COMATOK   708
                                        *                                                                        COMATOK   709
                                        *         EXIT   NONE                                                    COMATOK   710
                                        *                                                                        COMATOK   711
                                        *         USES   NONE                                                    COMATOK   712
                                        *                                                                        COMATOK   713
                                        *         CALLS  NONE                                                    COMATOK   714
                                                                                                                 COMATOK   715
                                                                                                                 COMATOK   716
                                                  PURGMAC ON                                                     COMATOK   717
                                                                                                                 COMATOK   718
                                         ON       MACRO  I,V                                                     COMATOK   719
                                        *                                                                        COMATOK   720
                                         '?TKCS01 MICRO 1,4, I                                                   COMATOK   721
                                         '?TKS001 SET 60-TG.INVP-TG.INVL                                         COMATOK   722
                                         + VFD '?TKS001/0,TG.INVL/V,TG.INCL/TC."'?TKCS01",______________________ COMATOK   723
                                        ,__TG.TOFUL/=XTOK=ON-FW.TOK                                              COMATOK   724
                                        *                                                                        COMATOK   725
                                         ON       ENDM                                                           COMATOK   726
  
  
  
  
                                        **        *PROC* TOGEL INSTRUCTION/MACRO.                                COMATOK   728
                                        *                                                                        COMATOK   729
                                        *         DEFINE TOGEL *PROC* ENTRY POINT.  THIS MACRO IS MODELED        COMATOK   730
                                        *         (I.E. COPIED) FROM *SUBR* MACRO IN *COMACPU*.                  COMATOK   731
                                        *                                                                        COMATOK   732
                                        * PRN     PROC               DEFINE *EXIT.* AND *PRN_X*.                 COMATOK   733
                                        * PRN     PROC   0           SAME                                        COMATOK   734
                                        * PRN     PROC   =           SAME, AND DEFINE *PRN* AS ENTRY POINT.      COMATOK   735
                                        * PRN     PROC   -           DEFINE *EXIT.* BUT NOT *PRN_X*.             COMATOK   736
                                        * PRN     PROC   LETTER      DEFINE *PRN_LETTER* BUT NOT *EXIT.*.        COMATOK   737
                                        *                                                                        COMATOK   738
                                        *         ENTRY  *PRN* = PROC NAME.                                      COMATOK   739
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    26
        COMATOK 2.0 - THE *TOGEL* MACROS.                             PROC
  
                                        *                                                                        COMATOK   740
                                        *         EXIT   TOGEL/COMPASS GENERATED --                              COMATOK   741
                                        *                                                                        COMATOK   742
                                        *                PRN    GOTO  *+4S15   ALWAYS                            COMATOK   743
                                        *                       ENTRY PRN      IF = SPECIFIED.                   COMATOK   744
                                        *                EXIT.  SET   *        IF BLANK, 0, =, OR - SPECIFIED.   COMATOK   745
                                        *                       NOREF EXIT.    IF BLANK, 0, =, OR - SPECIFIED.   COMATOK   746
                                        *                PRN_X  EQU   *        IF BLANK, 0, OR = SPECIFIED.      COMATOK   747
                                        *                       NOREF PRN_X    IF BLANK, 0, OR = SPECIFIED.      COMATOK   748
                                        *                PRN_LETTER EQU *      IF LETTER SPECIFIED.              COMATOK   749
                                        *                                                                        COMATOK   750
                                        *         USES   NONE                                                    COMATOK   751
                                        *                                                                        COMATOK   752
                                        *         CALLS NONE                                                     COMATOK   753
                                                                                                                 COMATOK   754
                                                                                                                 COMATOK   755
                                                  PURGMAC PROC                                                   COMATOK   756
                                                                                                                 COMATOK   757
                                                  MACRO  PROC,T,A                                                COMATOK   758
                                         T GOTO *+4S15D                                                          COMATOK   759
                                         '?TKCS01 MICRO 1,,=T=                                                   COMATOK   760
                                          IFC NE, A  ,3                                                          COMATOK   761
                                          IFC LT, A 0 ,2                                                         COMATOK   762
                                         "'?TKCS01" EQU *-1                                                      COMATOK   763
                                          SKIP 7                                                                 COMATOK   764
                                          IFC NE, A - ,4                                                         COMATOK   765
                                          IFC EQ, A = ,1                                                         COMATOK   766
                                          ENTRY T                                                                COMATOK   767
                                         "'?TKCS01"X EQU *-1                                                     COMATOK   768
                                          NOREF "'?TKCS01"X                                                      COMATOK   769
                                         EXIT. SET *-1                                                           COMATOK   770
                                          NOREF EXIT.                                                            COMATOK   771
                                         PROC ENDM                                                               COMATOK   772
  
  
  
  
                                        **        TOGEL - BEGIN/END *TOGEL* PROGRAM.                             COMATOK   774
                                        *                                                                        COMATOK   775
                                        *                                                                        COMATOK   776
                                        *         THIS MACRO IS USED TO DELIMIT A *TOGEL* PROGRAM.  THAT IS,     COMATOK   777
                                        *         EVERY *TOGEL* PROGRAM SHOULD CONTAIN 2 *TOGEL* MACRO           COMATOK   778
                                        *         REFERENCES: ONE AS THE 1ST LINE OF THE *TOGEL* PROGRAM,        COMATOK   779
                                        *         AND ONE AS THE LAST LINE OF THE *TOGEL* PROGRAM.               COMATOK   780
                                        *                                                                        COMATOK   781
                                        *         THIS MACRO SETS UP AND WINDS UP THE ASSEMBLY OF THE *TOGEL*    COMATOK   782
                                        *         PROGRAM BY BOTH SETTING UP GLOBAL SYMBOLS AND BY FORCING       COMATOK   783
                                        *         ASSEMBLY OF THE *RMT* BLOCKS.                                  COMATOK   784
                                        *                                                                        COMATOK   785
                                        *                            ** WARNING **                               COMATOK   786
                                        *                                                                        COMATOK   787
                                        *         IF THE PROGRAMMER FORGETS A TERMINATING *TOGEL* REFERENCE,     COMATOK   788
                                        *         ONLY PARTIAL ASSEMBLY OF THE *TOGEL* PROGRAM WILL OCCUR        COMATOK   789
                                        *         (I.E. THE *RMT* BLOCKS ARE NOT ASSEMBLED), RESULTING IN        COMATOK   790
                                        *         NUMEROUS ASSEMBLY ERRORS.                                      COMATOK   791
                                        *                                                                        COMATOK   792
                                        *                                * * *                                   COMATOK   793
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    27
        COMATOK 2.0 - THE *TOGEL* MACROS.                             TOGEL 
  
                                        *                                                                        COMATOK   794
                                        *         FORM --                                                        COMATOK   795
                                        *                                                                        COMATOK   796
                                        * PGM     TOGEL                                                          COMATOK   797
                                        *                                                                        COMATOK   798
                                        *         EXAMPLES --                                                    COMATOK   799
                                        *                                                                        COMATOK   800
                                        * PGM1    TOGEL                                                          COMATOK   801
                                        *           .                                                            COMATOK   802
                                        *           .                                                            COMATOK   803
                                        * PGM1    TOGEL                                                          COMATOK   804
                                        *                                                                        COMATOK   805
                                        * PGM2    TOGEL                                                          COMATOK   806
                                        *           .                                                            COMATOK   807
                                        *           .                                                            COMATOK   808
                                        * PGM2    TOGEL                                                          COMATOK   809
                                        *                                                                        COMATOK   810
                                        *         ENTRY  PGM = OPTIONAL NAME OF *TOGEL* PROGRAM.  *TOGEL* USES   COMATOK   811
                                        *                      *PGM* TO VERIFY THAT THE BEGINNING AND END        COMATOK   812
                                        *                      *TOGEL* MACRO REFS REFER TO THE SAME *TOGEL*      COMATOK   813
                                        *                      PROGRAM.                                          COMATOK   814
                                        *                                                                        COMATOK   815
                                        *         EXIT   NONE                                                    COMATOK   816
                                        *                                                                        COMATOK   817
                                        *         USES   NONE                                                    COMATOK   818
                                        *                                                                        COMATOK   819
                                        *         CALLS  NONE                                                    COMATOK   820
                                                                                                                 COMATOK   821
                                                                                                                 COMATOK   822
                                                  PURGMAC TOGEL                                                  COMATOK   823
                                                                                                                 COMATOK   824
                                                  MACRO  TOGEL,A                                                 COMATOK   825
                                        *                                                                        COMATOK   826
                                        *         CHECK TO SEE IF THIS IS A *HEADER* REF OR AN *END* REF         COMATOK   827
                                        *         AND PROCESS ACCORDINGLY.                                       COMATOK   828
                                        *                                                                        COMATOK   829
                                        *         IN ADDITION, IF THIS IS A 1ST TIME EVER REF, THEN WE NEED      COMATOK   830
                                        *         TO DEFINE A FEW SYMBOLS BEFORE PROCEEDING.                     COMATOK   831
                                        *                                                                        COMATOK   832
                                        *         '?TKFHDR = HEADER FLAG.                                        COMATOK   833
                                        *                  = 0 IF THIS IS A *HEADER* REF (I.E. BEGINNING         COMATOK   834
                                        *                      *TOGEL* PROGRAM), ELSE                            COMATOK   835
                                        *                  = 1 IF THIS IS AN *END* REF (I.E. ENDING *TOGEL*      COMATOK   836
                                        *                      PROGRAM).                                         COMATOK   837
                                        *                                                                        COMATOK   838
                                          IF -DEF,'?TKFHDR,2                                                     COMATOK   839
                                        '?TKFHDR SET 0                                                           COMATOK   840
                                        '?TKSHDR SET 0                                                           COMATOK   841
                                        *                                                                        COMATOK   842
                                         '?TK#001 IFEQ '?TKFHDR,0                                                COMATOK   843
                                        *                                                                        COMATOK   844
                                        *         HERE IF THIS IS A *HEADER* REF (I.E. BEGINNING *TOGEL* PGM).   COMATOK   845
                                        *         NEED TO --                                                     COMATOK   846
                                        *           1. TOGGLE '?TKFHDR SO THAT NEXT *TOGEL* REF WILL BE *END*.   COMATOK   847
                                        *           2. SET UP '?TKCHDR AS THE NAME OF THIS *TOGEL* PROGRAM.      COMATOK   848
                                        *              IF *PGM* PARAMETER OCCURRED, THEN '?TKCHDR CONTAINS THE   COMATOK   849
                                        *              SPECIFIED CHARACTERS IN PROGRAM NAME.  ELSE IF *PGM*      COMATOK   850
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    28
        COMATOK 2.0 - THE *TOGEL* MACROS.                             TOGEL 
  
                                        *              DID NOT OCCUR, THEN '?TKCHDR IS A STRING OF THE FORM--    COMATOK   851
                                        *                 '?TKHNNN                                               COMATOK   852
                                        *              WHERE *'?TKH* IS A PREFIX/SYMBOL TYPE, AND *NNN* IS       COMATOK   853
                                        *              A 3 DIGIT DECIMAL NR THAT IS DERIVED FROM '?TKSHDR,       COMATOK   854
                                        *              WHICH IS MERELY INCREMENTED FOR EACH NEW *TOGEL* PGM.     COMATOK   855
                                        *                                                                        COMATOK   856
                                         '?TKFHDR SET 1                                                          COMATOK   857
                                         '?TKSHDR SET '?TKSHDR+1                                                 COMATOK   858
                                        *                                                                        COMATOK   859
                                         '?TKCHDR MICRO 1,, A                                                    COMATOK   860
                                          IFC EQ, A  ,2                                                          COMATOK   861
                                         '?TKCS01 DECMIC '?TKSHDR,3                                              COMATOK   862
                                         '?TKCHDR MICRO 1,, '?TKH"'?TKCS01"                                      COMATOK   863
                                        *                                                                        COMATOK   864
                                        *         MISCELLANEOUS INITIALIZATIONS.                                 COMATOK   865
                                        *                                                                        COMATOK   866
                                          IF -DEF,'?TKSIGL,1                                                     COMATOK   867
                                         '?TKSIGL SET 0                                                          COMATOK   868
                                        *                                                                        COMATOK   869
                                          IF -DEF,'?TKSCOF,1                                                     COMATOK   870
                                         '?TKSCOF SET 0                                                          COMATOK   871
                                        *                                                                        COMATOK   872
                                          IF -DEF,'?TKSTLK,1                                                     COMATOK   873
                                         '?TKSTLK SET 0                                                          COMATOK   874
                                        *                                                                        COMATOK   875
                                         '?TK1LEN SET 0                                                          COMATOK   876
                                         '?TK2LEN SET 0                                                          COMATOK   877
                                         '?TK3LEN SET 0                                                          COMATOK   878
                                         '?TKFCOF SET -1                                                         COMATOK   879
                                        *                                                                        COMATOK   880
                                        *         HERE IF *END* REF (I.E. ENDING A *TOGEL* PROGRAM).             COMATOK   881
                                        *         NEED TO --                                                     COMATOK   882
                                        *           1. CHECK TO SEE THAT *PGM* NAME MATCHS '?TKCHDR.             COMATOK   883
                                        *           2. FORCE ASSEMBLY OF *RMT* BLOCKS.                           COMATOK   884
                                        *                                                                        COMATOK   885
                                         '?TK#001 ELSE                                                           COMATOK   886
                                         '?TKCS01 MICRO 1,, A                                                    COMATOK   887
                                         '?TK#002 IFC NE, "'?TKCS01"                                             COMATOK   888
                                          IFC NE, "'?TKCHDR" "'?TKCS01" ,1                                       COMATOK   889
                                         '?TK#003 SKIP                                                           COMATOK   890
                                         '?TK#002 ELSE                                                           COMATOK   891
                                         '?TKCS02 MICRO 1,5, "'?TKCHDR"                                          COMATOK   892
                                          IFC NE, "'?TKCHDR" '?TKH ,2                                            COMATOK   893
                                         '?TK#003 ENDIF                                                          COMATOK   894
                                         P ERR *TOGEL* PROGRAM DELIMITER NAMES DO NOT MATCH. "SEQUENCE"          COMATOK   895
                                         '?TK#002 ENDIF                                                          COMATOK   896
                                        *                                                                        COMATOK   897
                                        *         SET ALL END-OF-FALSE CHAIN ENTRIES IN '?TK3NNN                 COMATOK   898
                                        *         TO 0  (I.E. END-OF-CHAIN).                                     COMATOK   899
                                        *                                                                        COMATOK   900
                                         '?TKS001 SET 0                                                          COMATOK   901
                                         '?TK#003 DUP '?TK3LEN                                                   COMATOK   902
                                         '?TKS001 SET '?TKS001+1                                                 COMATOK   903
                                        *                                                                        COMATOK   904
                                         '?TKCS01 DECMIC '?TKS001,3                                              COMATOK   905
                                         '?TKCS02 '?TKMMEQ '?TK3"'?TKCS01"                                       COMATOK   906
                                         '?TKCS03 MICRO 1,3, "'?TKCS02"                                          COMATOK   907
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    29
        COMATOK 2.0 - THE *TOGEL* MACROS.                             TOGEL 
  
                                        *                                                                        COMATOK   908
                                         '?TKT"'?TKCS03" = 0                                                     COMATOK   909
                                         '?TK#003 ENDD                                                           COMATOK   910
                                        *                                                                        COMATOK   911
                                        *         FORCE *RMT* ASSEMBLIES.                                        COMATOK   912
                                        *                                                                        COMATOK   913
                                         '?TKRCSM HERE                                                           COMATOK   914
                                         '?TKRTLK HERE                                                           COMATOK   915
                                         '?TKRTOK HERE                                                           COMATOK   916
                                         '?TKFHDR SET 0                                                          COMATOK   917
                                         '?TK#001 ENDIF                                                          COMATOK   918
                                         TOGEL ENDM                                                              COMATOK   919
  
  
  
  
                                        **        *TOKEN* TOGEL INSTRUCTION/MACRO.                               COMATOK   921
                                        *                                                                        COMATOK   922
                                        *                                                                        COMATOK   923
                                        * LAB     TOKEN  TOT,STX,PAD                                             COMATOK   924
                                        *                                                                        COMATOK   925
                                        *         ENTRY  LAB = LABEL FIELD FOR THIS *TOKEN* ENTRY.               COMATOK   926
                                        *                TOT = TOKEN TYPE FOR THIS *TOKEN*.  CHARS IN *TOT*      COMATOK   927
                                        *                      PARAMETER WILL BE PREFIXED WITH "O." MICRO.       COMATOK   928
                                        *                STX = SYNTAX FOR THIS *TOKEN*.  USED TO DEFINE TOKENS   COMATOK   929
                                        *                      THAT ARE DEFINED VIA OTHER TOKENS.                COMATOK   930
                                        *                PAD = PROCESSOR ADDR.  OPTIONAL PARAMETER THAT          COMATOK   931
                                        *                      SPECIFIES A SPECIAL PROCESSOR THAT IS TO BE       COMATOK   932
                                        *                      INVOKED WHEN AND IF THIS TOKEN IS GENERATED.      COMATOK   933
                                        *                                                                        COMATOK   934
                                        *         EXIT   NONE                                                    COMATOK   935
                                        *                                                                        COMATOK   936
                                        *         USES   NONE                                                    COMATOK   937
                                        *                                                                        COMATOK   938
                                        *         CALLS  '?TKMMEQ,'?TKMSMA,'?TKMTLK                              COMATOK   939
                                                                                                                 COMATOK   940
                                                  PURGMAC TOKEN                                                  COMATOK   941
                                                                                                                 COMATOK   942
                                                  MACRO  TOKEN,A,BB,C,D                                          COMATOK   943
                                        *                                                                        COMATOK   944
                                         '?TK#001 IFC EQ, C                                                      COMATOK   945
                                        *                                                                        COMATOK   946
                                          IF -MIC,'?TKCTAD,1                                                     COMATOK   947
                                         '?TKCTAD MICRO                                                          COMATOK   948
                                         A '?TKMTOK BB,D,"'?TKCTAD",'?TKRTOK                                     COMATOK   949
                                         '?TKCTAD MICRO                                                          COMATOK   950
                                        *                                                                        COMATOK   951
                                        *         IF '?TKFCOF .ZR., THEN NEED TO ADVANCE '?TKSCOA SO THAT        COMATOK   952
                                        *         *ELSC/ENDC* CAN PERFORM *CASEOF* RANGE CHECK.                  COMATOK   953
                                        *                                                                        COMATOK   954
                                          IFEQ '?TKFCOF,0,2                                                      COMATOK   955
                                         '?TKCS01 OCTMIC '?TKSCOA+1+10000B,2                                     COMATOK   956
                                         '?TKSCOA SET "'?TKCS01"B                                                COMATOK   957
                                        *                                                                        COMATOK   958
                                        *         HERE IF *STX* PARAMETER IS NON-NULL.                           COMATOK   959
                                        *                                                                        COMATOK   960
                                         '?TK#001 ELSE                                                           COMATOK   961
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    30
        COMATOK 2.0 - THE *TOGEL* MACROS.                             TOKEN 
  
                                         '?TK2LEN SET 0                                                          COMATOK   962
                                        *                                                                        COMATOK   963
                                         '?TK#002 IRP C                                                          COMATOK   964
                                         '?TK2LEN SET '?TK2LEN+1                                                 COMATOK   965
                                         '?TKCS01 DECMIC '?TK2LEN,3                                              COMATOK   966
                                        *                                                                        COMATOK   967
                                         '?TK2"'?TKCS01" MICRO 1,, C                                             COMATOK   968
                                        *                                                                        COMATOK   969
                                         '?TK#002 IRP                                                            COMATOK   970
                                        *                                                                        COMATOK   971
                                        *         SEARCH FOR NAME OF SYMBOL THAT DEFINES NEXT *FALSE* TLINK      COMATOK   972
                                        *         ENTRY.                                                         COMATOK   973
                                        *                                                                        COMATOK   974
                                         '?TKCS01 '?TKMMEQ '?TK2"'?TKCS01"                                       COMATOK   975
                                          '?TKMSMA 3,4                                                           COMATOK   976
                                        *                                                                        COMATOK   977
                                        *         SET UP SYMBOL NAME THAT IS TO BE THE LOCATION FIELD            COMATOK   978
                                        *         OR THE BEGINNING OR THIS *TLINK* TRUE CHAIN.                   COMATOK   979
                                        *                                                                        COMATOK   980
                                        *           1. IF A FIND IN '?TK3NNN, THEN THIS IS NOT THE 1ST *TLINK*   COMATOK   981
                                        *              ENTRY FOR THE CHAIN.  '?TK3NNN ENTRY CONTAINS             COMATOK   982
                                        *              THE SYMBOL NAME FOR NEXT *FALSE* CHAIN ENTRY.             COMATOK   983
                                        *                                                                        COMATOK   984
                                        *           2. IF NO FIND IN '?TK3NNN, THEN THIS IS THE 1ST *TLINK*      COMATOK   985
                                        *              ENTRY FOR THE CHAIN.  SYMBOL NAME IS '?_TOT.  NEED        COMATOK   986
                                        *              TO CREATE A '?TK3NNN ENTRY.                               COMATOK   987
                                        *                                                                        COMATOK   988
                                         '?TK#003 IFNE '?TKS001,0                                                COMATOK   989
                                        *                                                                        COMATOK   990
                                        *         HERE IF A FIND.                                                COMATOK   991
                                        *                                                                        COMATOK   992
                                         '?TKCS04 MICRO 1,3, "'?TKCS02"                                          COMATOK   993
                                         '?TKCTLK MICRO 1,, '?TKT"'?TKCS04"                                      COMATOK   994
                                        *                                                                        COMATOK   995
                                         '?TKSTLK SET '?TKSTLK+1                                                 COMATOK   996
                                          IFGT '?TKSTLK,999D,1                                                   COMATOK   997
                                         P ERR TOO MANY *TLINK* SYMBOLS "SEQUENCE"                               COMATOK   998
                                        *                                                                        COMATOK   999
                                         '?TKCS04 DECMIC '?TKSTLK,3                                              COMATOK  1000
                                        *                                                                        COMATOK  1001
                                        *         HERE IF NO FIND.                                               COMATOK  1002
                                        *                                                                        COMATOK  1003
                                         '?TK#003 ELSE                                                           COMATOK  1004
                                        *                                                                        COMATOK  1005
                                         '?TK3LEN SET '?TK3LEN+1                                                 COMATOK  1006
                                          IFGT '?TK3LEN,999D,1                                                   COMATOK  1007
                                         P ERR TOO MANY *TLINK* ENTRIES "SEQUENCE"                               COMATOK  1008
                                        *                                                                        COMATOK  1009
                                         '?TKSTLK SET '?TKSTLK+1                                                 COMATOK  1010
                                          IFGT '?TKSTLK,999D,1                                                   COMATOK  1011
                                         P ERR TOO MANY *TLINK* ENTRIES "SEQUENCE"                               COMATOK  1012
                                        *                                                                        COMATOK  1013
                                         '?TKCS03 DECMIC '?TK3LEN,3                                              COMATOK  1014
                                         '?TKCS03 MICRO 1,, '?TK3"'?TKCS03"                                      COMATOK  1015
                                        *                                                                        COMATOK  1016
                                         '?TKCS04 DECMIC '?TKSTLK,3                                              COMATOK  1017
                                         '?TKCTLK MICRO 1,, '?"'?TKCS01"                                         COMATOK  1018
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    31
        COMATOK 2.0 - THE *TOGEL* MACROS.                             TOKEN 
  
                                        *                                                                        COMATOK  1019
                                         '?TK#003 ENDIF                                                          COMATOK  1020
                                        *                                                                        COMATOK  1021
                                        *         HERE WHEN READY TO MAKE ENTRY INTO '?TK3NNN.                   COMATOK  1022
                                        *                                                                        COMATOK  1023
                                        *         ENTRY  '?TKCS01 = CHARS IN THIS TOKEN TYPE NAME.               COMATOK  1024
                                        *                '?TKCS03 = '?TK3NNN ENTRY TO STORE INTO.                COMATOK  1025
                                        *                '?TKCS04 = '?TKTNNN NR FOR THIS TOKEN.                  COMATOK  1026
                                        *                                                                        COMATOK  1027
                                         "'?TKCS03" MICRO 1,, "'?TKCS04""'?TKCS01"                               COMATOK  1028
                                        *                                                                        COMATOK  1029
                                        *         READY TO POP *STX* ENTRIES OFF '?TK2NNN, GENERATING            COMATOK  1030
                                        *         ENTRIES ALONG THE WAY.                                         COMATOK  1031
                                        *                                                                        COMATOK  1032
                                           IFLE '?TK2LEN,1,1                                                     COMATOK  1033
                                         P ERR *STX* PARAMETER MUST CONTAIN AT LEAST 2 TOKENS "SEQUENCE"         COMATOK  1034
                                        *                                                                        COMATOK  1035
                                         '?TKCFAL MICRO 1,, '?TKT"'?TKCS04"                                      COMATOK  1036
                                        *                                                                        COMATOK  1037
                                         '?TK#006 DUP '?TK2LEN-1                                                 COMATOK  1038
                                        *                                                                        COMATOK  1039
                                         '?TK2LEN SET '?TK2LEN-1                                                 COMATOK  1040
                                         '?TKCS01 DECMIC '?TK2LEN,3                                              COMATOK  1041
                                         '?TKCTOT '?TKMMEQ '?TK2"'?TKCS01"                                       COMATOK  1042
                                        *                                                                        COMATOK  1043
                                         '?TKSTLK SET '?TKSTLK+1                                                 COMATOK  1044
                                          IFGT '?TKSTLK,999D,1                                                   COMATOK  1045
                                         P ERR TOO MANY *TLINK* ENTRIES "SEQUENCE"                               COMATOK  1046
                                        *                                                                        COMATOK  1047
                                         '?TKCTRU DECMIC '?TKSTLK,3                                              COMATOK  1048
                                         "'?TKCTLK" '?TKMTLK "'?TKCTOT",'?TKT"'?TKCTRU","'?TKCFAL"               COMATOK  1049
                                        *                                                                        COMATOK  1050
                                         '?TKCTLK MICRO 1,, '?TKT"'?TKCTRU"                                      COMATOK  1051
                                         '?TK#006 ENDD                                                           COMATOK  1052
                                        *                                                                        COMATOK  1053
                                         '?TKT"'?TKCTRU" SET 0                                                   COMATOK  1054
                                        *                                                                        COMATOK  1055
                                         '?TKCS01 MICRO 1,, D                                                    COMATOK  1056
                                         '?TKCS02 MICRO 1,1, D                                                   COMATOK  1057
                                        *                                                                        COMATOK  1058
                                          IFC EQ, "'?TKCS02" * ,2                                                COMATOK  1059
                                         '?TKCS01 MICRO 2,, D                                                    COMATOK  1060
                                         '?TKCS01 MICRO 1,, -"'?TKCS01"                                          COMATOK  1061
                                        *                                                                        COMATOK  1062
                                         A '?TKMTOK BB,("'?TKCS01"),,'?TKRTLK                                    COMATOK  1063
                                        *                                                                        COMATOK  1064
                                         '?TK#001 ENDIF                                                          COMATOK  1065
                                        *                                                                        COMATOK  1066
                                         TOKEN    ENDM                                                           COMATOK  1067
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    32
        COMATOK 2.0 - THE *TOGEL* MACROS.                             XEQ 
  
                                        **        *XEQ* TOGEL INSTRUCTION/MACRO.                                 COMATOK  1069
                                        *                                                                        COMATOK  1070
                                        *         XEQ    PRN                                                     COMATOK  1071
                                        *                                                                        COMATOK  1072
                                        *         ENTRY  PRN  = NAME/ADDR OF *TOGEL* PROC TO XEQ.                COMATOK  1073
                                        *                                                                        COMATOK  1074
                                        *         EXIT   NONE                                                    COMATOK  1075
                                        *                                                                        COMATOK  1076
                                        *         USES   NONE                                                    COMATOK  1077
                                        *                                                                        COMATOK  1078
                                        *         CALLS  NONE                                                    COMATOK  1079
                                                                                                                 COMATOK  1080
                                                                                                                 COMATOK  1081
                                                  PURGMAC XEQ                                                    COMATOK  1082
                                                                                                                 COMATOK  1083
                                         XEQ      MACRO  P                                                       COMATOK  1084
                                        *                                                                        COMATOK  1085
                                        *         GENERATE *TOGEL* BINARY INSTRUCTION.                           COMATOK  1086
                                        *                                                                        COMATOK  1087
                                         '?TKS001 SET 60-TG.XADP-TG.XADL                                         COMATOK  1088
                                         + VFD '?TKS001/0,TG.XADL/=X_P-FW.TOK,TG.TOFUL/=XTOK=XEQ-FW.TOK          COMATOK  1089
                                        *                                                                        COMATOK  1090
                                         XEQ      ENDM                                                           COMATOK  1091
  
  
  
  
                                        **        '?TKMAPL - GENERATE APLIST FOR *CHMIC*.                        COMATOK  1093
                                        *                                                                        COMATOK  1094
                                        *                                                                        COMATOK  1095
                                        *         ENTRY  A = BINARY DPC VALUE OF CHAR TO GEN APL FOR             COMATOK  1096
                                        *                                                                        COMATOK  1097
                                        *         EXIT   '?TKCAPL UPDATED                                        COMATOK  1098
                                        *                                                                        COMATOK  1099
                                        *         CALLS  NONE                                                    COMATOK  1100
                                                                                                                 COMATOK  1101
                                                                                                                 COMATOK  1102
                                         '?TKMAPL MACRO A                                                        COMATOK  1103
                                         '?TKCS01 OCTMIC A,2                                                     COMATOK  1104
                                         '?TKCAPL MICRO 1,, "'?TKCAPL","'?TKCS01"                                COMATOK  1105
                                         '?TKMAPL ENDM                                                           COMATOK  1106
  
  
  
  
                                        **        '?TKMGRT - GET RANGE TOKEN.                                    COMATOK  1108
                                        *                                                                        COMATOK  1109
                                        *                                                                        COMATOK  1110
                                        *         THIS MACRO PROVIDES *'?TKMRNG* WITH A SINGLE RANGE TOKEN.      COMATOK  1111
                                        *                                                                        COMATOK  1112
                                        *         ENTRY  '?TKCICS = CHAR STRING                                  COMATOK  1113
                                        *                '?TKPICS = ORD OF 1ST CHAR IN "'?TKCICS" TO GENERATE    COMATOK  1114
                                        *                           TOKEN FOR.                                   COMATOK  1115
                                        *                                                                        COMATOK  1116
                                        *         EXIT   '?TKCICS = UNCHANGED                                    COMATOK  1117
                                        *                '?TKSTOT = TOKEN TYPE.  TOKEN TYPES ARE --              COMATOK  1118
                                        *                         = 0 IF END-OF-STRING ENCOUNTERED.              COMATOK  1119
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    33
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMGRT
  
                                        *                         = 1 IF SINGLE CHAR TOKEN.  SEE *'?TKSDPC*      COMATOK  1120
                                        *                             BELOW.                                     COMATOK  1121
                                        *                         = 2 IF *..* TOKEN ENCOUNTERED.                 COMATOK  1122
                                        *                '?TKSDPC = BINARY DPC VALUE OF CHAR IF *'?TKSTOT=1*.    COMATOK  1123
                                        *                                                                        COMATOK  1124
                                        *         CALLS  NONE                                                    COMATOK  1125
                                                                                                                 COMATOK  1126
                                                                                                                 COMATOK  1127
                                         '?TKMGRT MACRO                                                          COMATOK  1128
                                        *                                                                        COMATOK  1129
                                        *         CHECK FOR END-OF-STRING TOKEN.                                 COMATOK  1130
                                        *                                                                        COMATOK  1131
                                          IFGT '?TKPICS,'?TKLICS,2                                               COMATOK  1132
                                         '?TKSTOT SET 0                                                          COMATOK  1133
                                         '?TK#002 SKIP                                                           COMATOK  1134
                                        *                                                                        COMATOK  1135
                                        *         CHECK FOR *..* TOKEN.                                          COMATOK  1136
                                        *                                                                        COMATOK  1137
                                          IFEQ '?TKSTOT,2,1                                                      COMATOK  1138
                                         '?TK#001 SKIP                                                           COMATOK  1139
                                          IFLE '?TKPICS,'?TKLICS-1,5                                             COMATOK  1140
                                         '?TKCS01 MICRO '?TKPICS,2, "'?TKCICS"                                   COMATOK  1141
                                          IFC EQ, "'?TKCS01" .. ,3                                               COMATOK  1142
                                         '?TKPICS SET '?TKPICS+2                                                 COMATOK  1143
                                         '?TKSTOT SET 2                                                          COMATOK  1144
                                         '?TK#002 SKIP                                                           COMATOK  1145
                                        *                                                                        COMATOK  1146
                                        *         CHECK FOR */NN* TOKEN.                                         COMATOK  1147
                                        *                                                                        COMATOK  1148
                                          IFLE '?TKPICS,'?TKLICS-2,12D                                           COMATOK  1149
                                         '?TKCS01 MICRO '?TKPICS,1, "'?TKCICS"                                   COMATOK  1150
                                          IFC NE, "'?TKCS01" / ,1                                                COMATOK  1151
                                         '?TK#001 SKIP                                                           COMATOK  1152
                                         '?TKCS01 MICRO '?TKPICS+1,2, "'?TKCICS"                                 COMATOK  1153
                                          IFC GT, "'?TKCS01" 77 ,1                                               COMATOK  1154
                                         '?TK#001 SKIP                                                           COMATOK  1155
                                          IFC LT, "'?TKCS01" 00 ,1                                               COMATOK  1156
                                         '?TK#001 SKIP                                                           COMATOK  1157
                                         '?TKSTOT SET 1                                                          COMATOK  1158
                                         '?TKSDPC SET "'?TKCS01"B                                                COMATOK  1159
                                         '?TKPICS SET '?TKPICS+3                                                 COMATOK  1160
                                         '?TK#002 SKIP                                                           COMATOK  1161
                                        *                                                                        COMATOK  1162
                                        *         HERE IF THIS IS A SINGLE CHAR TOKEN.                           COMATOK  1163
                                        *                                                                        COMATOK  1164
                                         '?TK#001 ENDIF                                                          COMATOK  1165
                                         '?TKCS01 MICRO '?TKPICS,1, "'?TKCICS"                                   COMATOK  1166
                                         '?TKSTOT SET 1                                                          COMATOK  1167
                                         '?TKSDPC SET 1R"'?TKCS01"                                               COMATOK  1168
                                         '?TKPICS SET '?TKPICS+1                                                 COMATOK  1169
                                        *                                                                        COMATOK  1170
                                        *         HERE WHEN DONE.                                                COMATOK  1171
                                        *                                                                        COMATOK  1172
                                         '?TK#002 ENDIF                                                          COMATOK  1173
                                         '?TKMGRT ENDM                                                           COMATOK  1174
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    34
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMMEQ
  
                                        **        '?TKMMEQ - MICRO EQUIVALENCE.                                  COMATOK  1176
                                        *                                                                        COMATOK  1177
                                        *                                                                        COMATOK  1178
                                        *         THIS MACRO EQUATES TWO MICRO STRINGS.  IT IS ONLY TRULY        COMATOK  1179
                                        *         USEFUL WHEN THE MICRO NAME ON THE RIGHT-SIDE OF THE            COMATOK  1180
                                        *         EQUIVALENCE IS BEING GENERATED VIA MICRO STRINGS.              COMATOK  1181
                                        *                                                                        COMATOK  1182
                                        * A       '?TKMMEQ B                                                     COMATOK  1183
                                        *                                                                        COMATOK  1184
                                        *         ENTRY  A = MICRO NAME TO EQUATE *B* TO.                        COMATOK  1185
                                        *                B = OLD MICRO NAME.                                     COMATOK  1186
                                        *                                                                        COMATOK  1187
                                        *         EXIT   "A" CREATED AND "B" LEFT ALONE.                         COMATOK  1188
                                        *                                                                        COMATOK  1189
                                        *         CALLS  NONE                                                    COMATOK  1190
                                                                                                                 COMATOK  1191
                                                                                                                 COMATOK  1192
                                                  PURGMAC '?TKMMEQ                                               COMATOK  1193
                                                                                                                 COMATOK  1194
                                          MACRO '?TKMMEQ,A,B                                                     COMATOK  1195
                                         A MICRO 1,, "B"                                                         COMATOK  1196
                                         '?TKMMEQ ENDM                                                           COMATOK  1197
  
  
  
  
                                        **        '?TKMPMA - PRINT MICRO ARRAY.                                  COMATOK  1199
                                        *                                                                        COMATOK  1200
                                        *                                                                        COMATOK  1201
                                        *         THIS MACRO IS FOR INTERNAL DEBUGGING ONLY.  WHEN USED,         COMATOK  1202
                                        *         PRINTS THE CONTENTS OF A SPECIFIED MICRO ARRAY.  A MICRO       COMATOK  1203
                                        *         ARRAY HAS THE FORM --                                          COMATOK  1204
                                        *                                                                        COMATOK  1205
                                        *                '?TKNXXX                                                COMATOK  1206
                                        *                                                                        COMATOK  1207
                                        *         WHERE *'?TK* IS A *COMATOK* COMMON SYMBOL PREFIX, *N* IS       COMATOK  1208
                                        *         A MICRO ARRAY NUMBER, AND *XXX* IS A MICRO ARRAY ELEMENT       COMATOK  1209
                                        *         NUMBER.  FOR EXAMPLE, CONSIDER THE MICRO ARRAY NUMBER *3*.     COMATOK  1210
                                        *         EACH ELEMENT IN MICRO ARRAY *3* IS A MICRO OF THE FORM --      COMATOK  1211
                                        *                                                                        COMATOK  1212
                                        *                '?TK3XXX                                                COMATOK  1213
                                        *                                                                        COMATOK  1214
                                        *         I.E. -- '?TK3001, '?TK3002, '?TK3003, ETC.                     COMATOK  1215
                                        *                                                                        COMATOK  1216
                                        *         '?TKMPMA N                                                     COMATOK  1217
                                        *                                                                        COMATOK  1218
                                        *         ENTRY  N = MICRO ARRAY NR.                                     COMATOK  1219
                                        *                                                                        COMATOK  1220
                                        *         EXIT   NONE                                                    COMATOK  1221
                                        *                                                                        COMATOK  1222
                                        *         USES   NONE                                                    COMATOK  1223
                                        *                                                                        COMATOK  1224
                                        *         CALLS  '?TKMMEQ                                                COMATOK  1225
                                                                                                                 COMATOK  1226
                                                                                                                 COMATOK  1227
                                                  PURGMAC '?TKMPMA                                               COMATOK  1228
                                                                                                                 COMATOK  1229
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    35
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMPMA
  
                                         '?TKMPMA MACRO N                                                        COMATOK  1230
                                          LOCAL '?TK#001,'?TK#002                                                COMATOK  1231
                                        *                                                                        COMATOK  1232
                                         '?TKSD01 SET 0                                                          COMATOK  1233
                                        *                                                                        COMATOK  1234
                                         '?TK#002 DUP '?TK_N_LEN                                                 COMATOK  1235
                                         '?TKSD01 SET '?TKSD01+1                                                 COMATOK  1236
                                        *                                                                        COMATOK  1237
                                         '?TKCD01 DECMIC '?TKSD01,3                                              COMATOK  1238
                                         '?TKCD02 '?TKMMEQ '?TK_N_"'?TKCD01"                                     COMATOK  1239
                                        *                                                                        COMATOK  1240
                                          '?TK_N_"'?TKCD01" = "'?TKCD02"                                         COMATOK  1241
                                        *                                                                        COMATOK  1242
                                         '?TK#002 ENDD                                                           COMATOK  1243
                                        *                                                                        COMATOK  1244
                                         '?TKMPMA ENDM                                                           COMATOK  1245
  
  
  
  
                                        **        '?TKMRMT - FORCE MICRO EVALUATION FOR *RMT* BLOCKS.            COMATOK  1247
                                        *                                                                        COMATOK  1248
                                        *                                                                        COMATOK  1249
                                        *         THIS MACRO IS USED SOLEY FOR THE PURPOSE OF FORCING            COMATOK  1250
                                        *         MICRO EVALUATION IN *RMT* BLOCKS.                              COMATOK  1251
                                        *                                                                        COMATOK  1252
                                        * BLK     '?TKMRMT S                                                     COMATOK  1253
                                        *                                                                        COMATOK  1254
                                        *         ENTRY  BLK = REMOTE BLOCK NAME                                 COMATOK  1255
                                        *                S   = STMT TO BE ENTERED INTO REMOTE BLOCK *BLK*.       COMATOK  1256
                                        *                                                                        COMATOK  1257
                                        *         EXIT   NONE                                                    COMATOK  1258
                                        *                                                                        COMATOK  1259
                                        *         USES   NONE                                                    COMATOK  1260
                                        *                                                                        COMATOK  1261
                                        *         CALLS  NONE                                                    COMATOK  1262
                                                                                                                 COMATOK  1263
                                                                                                                 COMATOK  1264
                                                  PURGMAC '?TKMRMT                                               COMATOK  1265
                                                                                                                 COMATOK  1266
                                                  MACRO  '?TKMRMT,BLK,S                                          COMATOK  1267
                                         BLK RMT                                                                 COMATOK  1268
                                         S                                                                       COMATOK  1269
                                         BLK RMT                                                                 COMATOK  1270
                                         '?TKMRMT ENDM                                                           COMATOK  1271
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    36
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMRNG
  
                                        **        '?TKMRNG - GENERATE MICRO FOR CHARACTER RANGE.                 COMATOK  1273
                                        *                                                                        COMATOK  1274
                                        *                                                                        COMATOK  1275
                                        *         THIS MACRO EVALUATES THE *TOGEL* CHARACTER RANGE, AS IT        COMATOK  1276
                                        *         OCCURS IN *GROUP* AND *IFT* STATEMENTS, AND CREATES THE        COMATOK  1277
                                        *         MICRO "'?TKCRNG" WHICH CONSISTS OF A BIT STRING THAT HAS       COMATOK  1278
                                        *         A BIT *ON* FOR EACH CHARACTER IN THE RANGE.  THIS BIT          COMATOK  1279
                                        *         STRING IN "'?TKCRNG" IS DESTINED TO BECOME A                   COMATOK  1280
                                        *         CHARACTER SHIFT MASK AS IS USED BY *COMCBUB*.                  COMATOK  1281
                                        *         SEE *COMCTOK* AND *COMCBUB/COMCBUN*.  NOTE THAT CHARS          COMATOK  1282
                                        *         IN "'?TKCRNG" ARE THEREFORE IN A *ROTATED CHAR SET*            COMATOK  1283
                                        *         REPRESENTATION.                                                COMATOK  1284
                                        *                                                                        COMATOK  1285
                                        *         THE ALGORITHM USED HERE IS TO TREAT THE CHARACTERS             COMATOK  1286
                                        *         IN THE RANGE (I.E. THE INPUT TO THIS MACRO) AS A STRING        COMATOK  1287
                                        *         THAT IS TO BE SCANNED FROM LEFT-TO-RIGHT (VIA MICRO            COMATOK  1288
                                        *         MANIPULATION).  THIS IS DONE BY MAKING CONSECUTIVE             COMATOK  1289
                                        *         CALLS TO *'?TKMGRT* (GET RANGE TOKEN) WHICH RETURNS A          COMATOK  1290
                                        *         TOKEN TYPE, *'?TKSTOT*, FOR THE NEXT TOKEN IN THE RANGE.       COMATOK  1291
                                        *                                                                        COMATOK  1292
                                        *         TOKEN TYPES, *'?TKSTOT*, ARE--                                 COMATOK  1293
                                        *                                                                        COMATOK  1294
                                        *                = 0 IF END-OF-STRING ENCOUNTERED.  I.E. WE ARE DONE.    COMATOK  1295
                                        *                = 1 IF CHAR TOKEN ENCOUNTERED.  THE ACTUAL CHAR IS IN   COMATOK  1296
                                        *                    *'?TKSDPC* (TOKEN VALUE) IN BINARY DPC.  *'?TKMGRT* COMATOK  1297
                                        *                    WILL CALL *'?TKMGRB* (GENERATE RANGE BIT) TO MERGE  COMATOK  1298
                                        *                    THE APPROPRIATE BIT FOR THIS CHAR INTO "'?TKCRNG".  COMATOK  1299
                                        *                = 2 IF *..* TOKEN ENCOUNTERED.  *'?TKMGRT* WILL CALL    COMATOK  1300
                                        *                    '?TKMAPL TO GENERATE APLIST ITEMS FOR               COMATOK  1301
                                        *                    EACH CHAR IN RANGE, TO BE USED AS INPUT             COMATOK  1302
                                        *                    TO *CHMIC*.                                         COMATOK  1303
                                        *                                                                        COMATOK  1304
                                        *         IT SHOULD BE NOTED THAT THE */NN* SYNTAX IS RESOLVED BY        COMATOK  1305
                                        *         *'?TKMGRT*, WHICH RETURNS *'?TKSTOT=1* WITH THE BINARY         COMATOK  1306
                                        *         VALUE *NN* IN *'?TKSDPC*.                                      COMATOK  1307
                                        *                                                                        COMATOK  1308
                                        *         ENTRY  A = CHARACTER RANGE AS IT OCCURS IN *TOGEL*.            COMATOK  1309
                                        *                                                                        COMATOK  1310
                                        *         EXIT   '?TKCRNG = CHAR SHIFT MASK FOR *A*.                     COMATOK  1311
                                        *                                                                        COMATOK  1312
                                        *         CALLS  '?TKMAPL,'?TKMGRT,CHMIC                                 COMATOK  1313
                                                                                                                 COMATOK  1314
                                                                                                                 COMATOK  1315
                                         '?TKMRNG MACRO A                                                        COMATOK  1316
                                        *                                                                        COMATOK  1317
                                        *         INITIALIZE --                                                  COMATOK  1318
                                        *                                                                        COMATOK  1319
                                        *         '?TKCICS = MICRO THAT CONTAINS THE ENTIRE INPUT CHARACTER      COMATOK  1320
                                        *                    STRING.                                             COMATOK  1321
                                        *         '?TKPICS = ORD OF NEXT CHAR IN "'?TKCICS".                     COMATOK  1322
                                        *         '?TKLICS = LEN OF "'?TKCICS"                                   COMATOK  1323
                                        *         '?TKCSGN = MICRO THAT CONTAINS /-/ IF 1ST CHAR IN RANGE        COMATOK  1324
                                        *                    IS /-/, I.E. PROGRAMMER SPECIFIED *(-XXX)* WHICH    COMATOK  1325
                                        *                    MEANS THAT RANGE IS TO BE NEGATED.  ELSE NULL.      COMATOK  1326
                                        *         '?TKCAPL = NULL.                                               COMATOK  1327
                                        *         '?TKODPC = BIN DPC VALUE FOR ":"                               COMATOK  1328
                                        *         '?TKSDPC = BIN DPC VALUE FOR ":"                               COMATOK  1329
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    37
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMRNG
  
                                        *         '?TKSTOT = 0, I.E. BEGINNING-OF-STRING.                        COMATOK  1330
                                        *                                                                        COMATOK  1331
                                         '?TKCAPL MICRO                                                          COMATOK  1332
                                         '?TKCICS MICRO 1,, A                                                    COMATOK  1333
                                         '?TKCSGN MICRO 1,1, "'?TKCICS"                                          COMATOK  1334
                                        *                                                                        COMATOK  1335
                                         '?TK#001 IFC NE, "'?TKCSGN" -                                           COMATOK  1336
                                         '?TKCSGN MICRO                                                          COMATOK  1337
                                         '?TK#001 ELSE                                                           COMATOK  1338
                                         '?TKCICS MICRO 2,, "'?TKCICS"                                           COMATOK  1339
                                         '?TK#001 ENDIF                                                          COMATOK  1340
                                        *                                                                        COMATOK  1341
                                         '?TKPICS SET 1                                                          COMATOK  1342
                                         '?TKLICS MICCNT '?TKCICS                                                COMATOK  1343
                                         '?TKODPC SET    0                                                       CCGA015     4
                                         '?TKSDPC SET    0                                                       CCGA015     5
                                        *                                                                        COMATOK  1346
                                         '?TKSTOT SET 0                                                          COMATOK  1347
                                        *                                                                        COMATOK  1348
                                        *         CYCLE THRU CHARACTER RANGE IN "'?TKCICS",                      COMATOK  1349
                                        *         GENERATING "'?TKCAPL".                                         COMATOK  1350
                                        *                                                                        COMATOK  1351
                                         '?TK#006 DUP -1                                                         COMATOK  1352
                                          '?TKMGRT                                                               COMATOK  1353
                                        *                                                                        COMATOK  1354
                                        *         IF NOT END-OF-STRING, THEN PROCESS NEXT TOKEN.                 COMATOK  1355
                                        *         ELSE READY TO GENERATE "'?TKCRNG" USING "'?TKCAPL".            COMATOK  1356
                                        *                                                                        COMATOK  1357
                                         '?TK#005 IFNE '?TKSTOT,0                                                COMATOK  1358
                                        *                                                                        COMATOK  1359
                                        *         CHECK FOR AND PROCESS *..* TOKEN.                              COMATOK  1360
                                        *                                                                        COMATOK  1361
                                         '?TK#003 IFEQ '?TKSTOT,2                                                COMATOK  1362
                                        *                                                                        COMATOK  1363
                                        *         HERE IF *..* TOKEN OCCURRED.                                   COMATOK  1364
                                        *         GET TOKEN/CHAR THAT TERMINATES RANGE.                          COMATOK  1365
                                        *                                                                        COMATOK  1366
                                          '?TKMGRT                                                               COMATOK  1367
                                          IFEQ '?TKSTOT,0,1                                                      COMATOK  1368
                                         '?TKSDPC SET 1R;                                                        COMATOK  1369
                                        *                                                                        COMATOK  1370
                                        *         LOOP THROUGH CHAR RANGE, GENERATING CHARS TO *'?TKCAPL*        COMATOK  1371
                                        *         AS WE GO.  CHAR RANGE IS FROM *'?TKODPC* TO *'?TKSDPC*.        COMATOK  1372
                                        *                                                                        COMATOK  1373
                                          '?TKMAPL '?TKODPC                                                      COMATOK  1374
                                         '?TK#001 DUP -1                                                         COMATOK  1375
                                         '?TK#002 IFNE '?TKODPC,'?TKSDPC                                         COMATOK  1376
                                         '?TKCS01 OCTMIC '?TKODPC+1+10000B,2                                     COMATOK  1377
                                         '?TKODPC SET "'?TKCS01"B                                                COMATOK  1378
                                          '?TKMAPL '?TKODPC                                                      COMATOK  1379
                                         '?TK#002 ELSE                                                           COMATOK  1380
                                          STOPDUP                                                                COMATOK  1381
                                         '?TK#002 ENDIF                                                          COMATOK  1382
                                         '?TK#001 ENDD                                                           COMATOK  1383
                                        *                                                                        COMATOK  1384
                                        *         CHECK FOR AND PROCESS A SINGLE CHAR TOKEN.                     COMATOK  1385
                                        *                                                                        COMATOK  1386
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    38
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMRNG
  
                                         '?TK#003 ELSE                                                           COMATOK  1387
                                           IFEQ '?TKSTOT,1,1                                                     COMATOK  1388
                                           '?TKMAPL '?TKSDPC                                                     COMATOK  1389
                                        *                                                                        COMATOK  1390
                                         '?TK#003 ENDIF                                                          COMATOK  1391
                                         '?TK#005 ELSE                                                           COMATOK  1392
                                           STOPDUP                                                               COMATOK  1393
                                         '?TK#005 ENDIF                                                          COMATOK  1394
                                        *                                                                        COMATOK  1395
                                        *         NEW CHAR BECOMES OLD CHAR.                                     COMATOK  1396
                                        *                                                                        COMATOK  1397
                                         '?TKODPC SET '?TKSDPC                                                   COMATOK  1398
                                         '?TK#006 ENDD                                                           COMATOK  1399
                                        *                                                                        COMATOK  1400
                                        *         GENERATE "'?TKCRNG" MICRO.                                     COMATOK  1401
                                        *                                                                        COMATOK  1402
                                         '?TKCRNG CHMIC ("'?TKCAPL"),BICH                                        COMATOK  1403
                                         '?TKCRNG MICRO 1,, "'?TKCSGN""'?TKCRNG"                                 COMATOK  1404
                                         '?TKMRNG ENDM                                                           COMATOK  1405
  
  
  
  
                                        **        '?TKMSMA - SCAN MICRO ARRAY.                                   COMATOK  1407
                                        *                                                                        COMATOK  1408
                                        *                                                                        COMATOK  1409
                                        *         '?TKMSMA N,FC,NC                                               COMATOK  1410
                                        *                                                                        COMATOK  1411
                                        *         ENTRY  N  - MICRO ARRAY NR.                                    COMATOK  1412
                                        *                FC = 1ST CHAR POSITION IN EACH ARRAY ELEMENT            COMATOK  1413
                                        *                     TO SEARCH AT.                                      COMATOK  1414
                                        *                NC = NR OF CHARS (BEGINNING AT *FC*) TO COMPARE,        COMATOK  1415
                                        *                   = 0 IF REST OF MICRO ARRAY ENTRY (AS IN *MICRO*      COMATOK  1416
                                        *                     PSEUDO).                                           COMATOK  1417
                                        *                                                                        COMATOK  1418
                                        *                '?TKCS01 = ELEMENT TO SEARCH FOR.                       COMATOK  1419
                                        *                '?TKNLEN = NR OF ENTRIES IN THIS MICRO ARRAY            COMATOK  1420
                                        *                           (WHERE *N* IS MICRO ARRAY NR).               COMATOK  1421
                                        *                                                                        COMATOK  1422
                                        *         EXIT   '?TKCS01 = UNCHANGED.                                   COMATOK  1423
                                        *                '?TKS001 = MICRO ARRAY ELEMENT NR IF A FIND, ELSE       COMATOK  1424
                                        *                         = .ZR. IF NO FIND.                             COMATOK  1425
                                        *                '?TKCS02 = MICRO CONTAINING FOUND ENTRY IN '?TKNXXX.    COMATOK  1426
                                        *                '?TKCS03 = MICRO CONTAINING MICRO NAME OF FOUND         COMATOK  1427
                                        *                           ENTRY.                                       COMATOK  1428
                                        *                           I.E. "'?TKCS03" MICRO 1,, "'?TKCS02"         COMATOK  1429
                                        *                                                                        COMATOK  1430
                                        *         CALLS  '?TKMMEQ                                                COMATOK  1431
                                                                                                                 COMATOK  1432
                                                                                                                 COMATOK  1433
                                                  PURGMAC '?TKMSMA                                               COMATOK  1434
                                                                                                                 COMATOK  1435
                                         '?TKMSMA MACRO A,B,C                                                    COMATOK  1436
                                          LOCAL '?TK#001,'?TK#002,'?TK#003                                       COMATOK  1437
                                        *                                                                        COMATOK  1438
                                         '?TKS001 SET '?TK_A_LEN                                                 COMATOK  1439
                                         '?TK#002 IFGT '?TKS001,0                                                COMATOK  1440
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    39
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMSMA
  
                                        *                                                                        COMATOK  1441
                                         '?TK#001 DUP '?TK_A_LEN                                                 COMATOK  1442
                                        *                                                                        COMATOK  1443
                                         '?TKCS03 DECMIC '?TKS001,3                                              COMATOK  1444
                                         '?TKCS03 MICRO 1,, '?TK_A_"'?TKCS03"                                    COMATOK  1445
                                         '?TKCS02 '?TKMMEQ "'?TKCS03"                                            COMATOK  1446
                                         '?TKCS04 MICRO B,C, "'?TKCS02"                                          COMATOK  1447
                                         '?TK#003  IFC EQ, "'?TKCS01" "'?TKCS04"                                 COMATOK  1448
                                          STOPDUP                                                                COMATOK  1449
                                        *                                                                        COMATOK  1450
                                         '?TK#003 ELSE                                                           COMATOK  1451
                                         '?TKS001 SET '?TKS001-1                                                 COMATOK  1452
                                         '?TK#003 ENDIF                                                          COMATOK  1453
                                         '?TK#001 ENDD                                                           COMATOK  1454
                                         '?TK#002 ENDIF                                                          COMATOK  1455
                                        *                                                                        COMATOK  1456
                                         '?TKMSMA ENDM                                                           COMATOK  1457
  
  
  
  
                                        **        '?TKMTLK - GENERATE *TLINK* ENTRY.                             COMATOK  1459
                                        *                                                                        COMATOK  1460
                                        *                                                                        COMATOK  1461
                                        *         THIS MACRO IS USED SOLELY TO FORCE MICRO EVALUATION            COMATOK  1462
                                        *         OF PARAMETERS INTO THIS MACRO.                                 COMATOK  1463
                                        *                                                                        COMATOK  1464
                                        * LAB     '?TKMTLK TOT,TRU,FAL                                           COMATOK  1465
                                        *                                                                        COMATOK  1466
                                        *         ENTRY  LAB = *TLINK* LABEL FOR THIS ENTRY.                     COMATOK  1467
                                        *                TOT = *STX* TOKEN FROM *TOKEN* MACRO.                   COMATOK  1468
                                        *                TRU = LABEL FOR *TRUE* LINK.                            COMATOK  1469
                                        *                FAL = LABEL FOR *FALSE* LINK.                           COMATOK  1470
                                        *                                                                        COMATOK  1471
                                        *         EXIT   NONE                                                    COMATOK  1472
                                        *                                                                        COMATOK  1473
                                        *         USES   NONE                                                    COMATOK  1474
                                        *                                                                        COMATOK  1475
                                        *         CALLS  NONE                                                    COMATOK  1476
                                                                                                                 COMATOK  1477
                                                  PURGMAC '?TKMTLK                                               COMATOK  1478
                                                                                                                 COMATOK  1479
                                                  MACRO  '?TKMTLK,A,B,C,D                                        COMATOK  1480
                                        *                                                                        COMATOK  1481
                                         '?TKRTLK RMT                                                            COMATOK  1482
                                         '?TKCS01 MICRO 1,, B                                                    COMATOK  1483
                                         '?TKS001 MICCNT '?TKCS01                                                COMATOK  1484
                                        *                                                                        COMATOK  1485
                                         '?TKCS02 MICRO 1,,'_B_'                                                 COMATOK  1486
                                         '?TKS002 MICCNT '?TKCS02                                                COMATOK  1487
                                        *                                                                        COMATOK  1488
                                         '?TKSMAF SET 0                                                          COMATOK  1489
                                        *                                                                        COMATOK  1490
                                         '?TK#007 IFNE '?TKS001,'?TKS002                                         COMATOK  1491
                                        *                                                                        COMATOK  1492
                                        *         HERE IF NEED TO PROCESS SPECIAL CHARACTER MATCH FORM.          COMATOK  1493
                                        *                                                                        COMATOK  1494
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    40
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMTLK
  
                                         '?TKSMAF SET 1                                                          COMATOK  1495
                                        *                                                                        COMATOK  1496
                                         '?TKCS03 MICRO '?TKS002+1,, B                                           COMATOK  1497
                                         '?TKCS03 MICRO 1,,"'?TKCS03"'                                           COMATOK  1498
                                        *                                                                        COMATOK  1499
                                         '?TK#007 ENDIF                                                          COMATOK  1500
                                        *                                                                        COMATOK  1501
                                        *         GENERATE *TLINK* ENTRIES.                                      COMATOK  1502
                                        *                                                                        COMATOK  1503
                                         A BSS 0                                                                 CCGA022     5
                                          VFD TL.MAFL/'?TKSMAF,5/0,TL.TRUL/C-FW.TOK,TL.FALL/D-FW.TOK,___________ COMATOK  1506
                                        ,__TL.TOTL/"O.""'?TKCS02"                                                COMATOK  1507
                                        *                                                                        COMATOK  1508
                                          IFEQ '?TKSMAF,1,1                                                      COMATOK  1509
                                          DATA 0L"'?TKCS03"                                                      COMATOK  1510
                                        *                                                                        COMATOK  1511
                                         '?TKRTLK RMT                                                            COMATOK  1512
                                        *                                                                        COMATOK  1513
                                         '?TKMTLK ENDM                                                           COMATOK  1514
  
  
  
  
                                        **        '?TKMTOK - GENERATE *TOKEN* TABLE.                             COMATOK  1516
                                        *                                                                        COMATOK  1517
                                        *                                                                        COMATOK  1518
                                        *         THIS MACRO IS USED SOLELY TO FORCE MICRO EVALUATION            COMATOK  1519
                                        *         OF PARAMETERS INTO THIS MACRO.                                 COMATOK  1520
                                        *                                                                        COMATOK  1521
                                        * LAB     '?TKMTOK TOT,PAD,TAD,RMT                                       COMATOK  1522
                                        *                                                                        COMATOK  1523
                                        *         ENTRY  LAB = PROGRAMMER SPECIFIED LABEL FOR THIS *TOKEN*.      COMATOK  1524
                                        *                TOT = TOKEN TYPE.                                       COMATOK  1525
                                        *                PAD = PROCESSOR ADDR.                                   COMATOK  1526
                                        *                TAD = TOKEN ADDR.  USED SO THAT *CASEOF* MACRO CAN      COMATOK  1527
                                        *                      POINT TO THIS TOKEN AS THE 1ST *TOKEN* IN A       COMATOK  1528
                                        *                      TOKEN CHAR MAP.                                   COMATOK  1529
                                        *                RMT = *RMT* BLOCK NAME                                  COMATOK  1530
                                        *                                                                        COMATOK  1531
                                        *         EXIT   NONE                                                    COMATOK  1532
                                        *                                                                        COMATOK  1533
                                        *         CALLS  NONE                                                    COMATOK  1534
                                                                                                                 COMATOK  1535
                                                  PURGMAC '?TKMTOK                                               COMATOK  1536
                                                                                                                 COMATOK  1537
                                                  MACRO  '?TKMTOK,A,B,C,D,E                                      COMATOK  1538
                                        *                                                                        COMATOK  1539
                                         E RMT                                                                   COMATOK  1540
                                          IF -DEF,'?_B,1                                                         COMATOK  1541
                                         '?_B SET 0                                                              COMATOK  1542
                                        *                                                                        COMATOK  1543
                                         D BSS 0                                                                 COMATOK  1544
                                        *                                                                        COMATOK  1545
                                          IF -DEF,"O="B,1                                                        COMATOK  1546
                                         "O="B BSS 0                                                             COMATOK  1547
                                         '?TKS001 SET 60-TK.PADP-TK.PADL                                         COMATOK  1548
                                         A VFD '?TKS001/0,TK.PADL/C-FW.TOK,TK.LNKL/'?_B-FW.TOK,TK.TOTL/"O."B     COMATOK  1549
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    41
        COMATOK 2.0 - THE *TOGEL* MACROS.                             '?TKMTOK
  
                                         E RMT                                                                   COMATOK  1550
                                         '?TKMTOK ENDM                                                           COMATOK  1551
                                         COMATOK  ENDX                                                           COMATOK  1552
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    42
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          COMSTOK 
  
             0                           COMSTOK  CTEXT  COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.    COMSTOK     2
  
  
  
  
                                 D_D              BASE   D                                                       COMSTOK     4
  
  
  
  
                                        ***       COMSTOK - COMMON TOKEN GENERATOR INTERFACE TEXT.               COMSTOK     6
                                        *         P CLARE   77/02/26                                             COMSTOK     7
                                        *         P CLARE   78/04/27 VERSION 2.0                                 COMSTOK     8
  
  
  
  
                                        ***       COMSTOK - COMMON TOKEN GENERATOR INTERFACE TEXT.               COMSTOK    10
                                        *                                                                        COMSTOK    11
                                        *                                                                        COMSTOK    12
                                        *         THIS COMDECK CONTAINS SYMBOL DEFINITIONS THAT ARE REQUIRED     COMSTOK    13
                                        *         BY THE COMMON TOKEN GENERATOR (COMCTOK) AND ITS SUPPORTING     COMSTOK    14
                                        *         COMDECKS.                                                      COMSTOK    15
  
  
  
  
                                        **        SYMBOL DEFINITIONS.                                            COMSTOK    17
                                                                                                                 COMSTOK    18
                                                                                                                 COMSTOK    19
                                                  IF     -DEF,BICH,1                                             COMSTOK    20
                                  15     BICH     =      1RM                                                     COMSTOK    21
                                                                                                                 COMSTOK    22
                                                  IF     -MIC,BLOWUP,1                                           COMSTOK    23
                                         BLOWUP   MICRO  1,,/*O+4S15/                                            COMSTOK    24
                                                                                                                 COMSTOK    25
                                                  IF     -DEF,CHAR,1                                             COMSTOK    26
                                         CHAR     =      6                                                       COMSTOK    27
                                                                                                                 COMSTOK    28
                                                  IF     -DEF,FW.TOK,1                                           COMSTOK    29
                                   0     FW.TOK   =      0                                                       COMSTOK    30
                                                                                                                 COMSTOK    31
                                                  IF     -MIC,O.,1                                               COMSTOK    32
                                         O.       MICRO  1,,/O./                                                 COMSTOK    33
                                                                                                                 COMSTOK    34
                                                  IF     -DEF,"O."BOS,1                                          COMSTOK    35
                                         "O."BOS  =      0                                                       COMSTOK    36
                                                                                                                 COMSTOK    37
                                                  IF     -DEF,"O."EOS,1                                          COMSTOK    38
                                         "O."EOS  =      0                                                       COMSTOK    39
                                                                                                                 COMSTOK    40
                                                  IF     -MIC,O=,1                                               COMSTOK    41
                                         O=       MICRO  1,,/O=/                                                 COMSTOK    42
                                                                                                                 COMSTOK    43
                                                  IF     -DEF,TEST,1                                             COMSTOK    44
                                         TEST     =      0                                                       COMSTOK    45
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    43
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          TC. 
  
                                        **        TC. - *TOKCOM* LOCATION ORDINAL DEFINITIONS.                   COMSTOK    47
                                        *                                                                        COMSTOK    48
                                        *                                                                        COMSTOK    49
                                        *         SYMBOLS OF THE FORM *TC.XXX*, WHERE *TC.* IS A COMMON          COMSTOK    50
                                        *         PREFIX AND *XXX* IS A UNIQUE NAME, DESCRIBE THE ORDINALS       COMSTOK    51
                                        *         INTO *TOKCOM*, THE *USER/TOK* COMMUNICATIONS AREA.             COMSTOK    52
                                        *                                                                        COMSTOK    53
                                        *         *TOKCOM* CONTAINS INFORMATION THAT IS PASSED BACK AND FORTH    COMSTOK    54
                                        *         BETWEEN A *TOK* CALLER/USER AND *TOK* (COMMON TOKEN GENERATOR) COMSTOK    55
                                        *         AND CONTAINS INFORMATION ABOUT THE CURRENT LINE TO BE,         COMSTOK    56
                                        *         OR BEING, ENTOKENED.  SEE *COMCTOK* ENTRY/EXIT PREAMBLE FOR    COMSTOK    57
                                        *         DETAILS.                                                       COMSTOK    58
                                                                                                                 COMSTOK    59
                                                                                                                 COMSTOK    60
             0                                    LOC    0                                                       COMSTOK    61
                                   0     TC.FWA   =      *                                                       COMSTOK    62
                                   1     TC.FCP   =      *+1                                                     COMSTOK    63
                                   2     TC.LWA   =      *+2                                                     COMSTOK    64
                                   3     TC.LCP   =      *+3                                                     COMSTOK    65
                                   4     TC.P     =      *+4                                                     COMSTOK    66
                                   5     TC.SOA   =      *+5                                                     COMSTOK    67
                                   6     TC.SOX   =      *+6                                                     COMSTOK    68
                                   7     TC.SOL   =      *+7                                                     COMSTOK    69
                                  10     TC.SOB   =      *+8D                                                    COMSTOK    70
                                  11     TC.SOC   =      *+9D                                                    COMSTOK    71
                                  12     TC.TBA   =      *+10D                                                   COMSTOK    72
                                  13     TC.TBB   =      *+11D                                                   COMSTOK    73
                                  14     TC.RSF   =      *+12D                                                   COMSTOK    74
                                  15     TC.BOL   =      *+13D                                                   COMSTOK    75
                                  16     TC.EOL   =      *+14D                                                   COMSTOK    76
                                  17     TC.REST  =      *+15D                                                   COMSTOK    77
             0                                    LOC    *O                                                      COMSTOK    78
                                                                                                                 COMSTOK    79
                                  20     L.TCOM   =      16D         LEN OF *TOKCOM*                             COMSTOK    80
  
  
  
  
                                        **        TG. - TOGEL BINARY INSTRUCTION SYMBOL DEFINITIONS.             COMSTOK    82
                                                                                                                 COMSTOK    83
                                                                                                                 COMSTOK    84
                                                  DESCRIBE TG.                                                   COMSTOK    85
                                                  DEFINE 42                                                      COMSTOK    86
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK    87
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    44
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          CALT
  
                                        **        *CALT XX* BINARY TOGEL INSTRUCTION FORMAT.                     COMSTOK    89
                                                                                                                 COMSTOK    90
                                                                                                                 COMSTOK    91
                                                  REDEF                                                          COMSTOK    92
                                                  DEFINE 24                                                      COMSTOK    93
      L     22  00000000777777000000     CAD      DEFINE 18                                                      COMSTOK    94
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK    95
  
  
  
  
                                        **        *CASEOF (..)* BINARY TOGEL INSTRUCTION FORMAT.                 COMSTOK    97
                                                                                                                 COMSTOK    98
                                                                                                                 COMSTOK    99
                                                  REDEF                                                          COMSTOK   100
      L     60  77770000000000000000     COA      DEFINE 12                                                      COMSTOK   101
      L     44  00007777000000000000     COZ      DEFINE 12                                                      COMSTOK   102
      L     22  00000000777777000000     TAD      DEFINE 18                                                      COMSTOK   103
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   104
  
  
  
  
                                        **        *ENDT* BINARY TOGEL INSTRUCTION FORMAT.                        COMSTOK   106
                                                                                                                 COMSTOK   107
                                                                                                                 COMSTOK   108
                                                  REDEF                                                          COMSTOK   109
      L     22  77777777777777000000     IFL      DEFINE 42                                                      COMSTOK   110
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   111
  
  
  
  
                                        **        *IFT (...)* BINARY TOGEL INSTRUCTION FORMAT.                   COMSTOK   113
                                                                                                                 COMSTOK   114
                                                                                                                 COMSTOK   115
                                                  REDEF                                                          COMSTOK   116
                                                  DEFINE 6                                                       COMSTOK   117
      L     44  00777777000000000000     FAL      DEFINE 18                                                      COMSTOK   118
      L     22  00000000777777000000     MXA      DEFINE 18                                                      COMSTOK   119
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   120
  
  
  
  
                                        **        *GENTOK* BINARY TOGEL INSTRUCTION FORMAT.                      COMSTOK   122
                                                                                                                 COMSTOK   123
                                                                                                                 COMSTOK   124
                                                  REDEF                                                          COMSTOK   125
                                                  DEFINE 24                                                      COMSTOK   126
      L     22  00000000777777000000     GTT      DEFINE 18                                                      COMSTOK   127
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   128
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    45
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          GOTO
  
                                        **        *GOTO XX* BINARY TOGEL INSTRUCTION FORMAT.                     COMSTOK   130
                                                                                                                 COMSTOK   131
                                                                                                                 COMSTOK   132
                                                  REDEF                                                          COMSTOK   133
                                                  DEFINE 24                                                      COMSTOK   134
      L     22  00000000777777000000     GOT      DEFINE 18                                                      COMSTOK   135
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   136
  
  
  
  
                                        **        *GROUP* BINARY TOGEL INSTRUCTION SYMBOL DEFS.                  COMSTOK   138
                                                                                                                 COMSTOK   139
                                                                                                                 COMSTOK   140
                                                  REDEF                                                          COMSTOK   141
                                                  DEFINE 6                                                       COMSTOK   142
      L     44  00777777000000000000     TOT      DEFINE 18                                                      COMSTOK   143
      L     22  00000000777777000000     MXA      DEFINE 18                                                      COMSTOK   144
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   145
  
  
  
  
                                        **        *ON I,V* BINARY TOGEL INSTRUCTION FORMAT.                      COMSTOK   147
                                                                                                                 COMSTOK   148
                                                                                                                 COMSTOK   149
                                                  REDEF                                                          COMSTOK   150
                                                  DEFINE 6                                                       COMSTOK   151
      L     44  00777777000000000000     INV      DEFINE 18                                                      COMSTOK   152
      L     22  00000000777777000000     INC      DEFINE 18                                                      COMSTOK   153
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   154
  
  
  
  
                                        **        *XEQ P* BINARY TOGEL INSTRUCTION FORMAT.                       COMSTOK   156
                                                                                                                 COMSTOK   157
                                                                                                                 COMSTOK   158
                                                  REDEF                                                          COMSTOK   159
                                                  DEFINE 24                                                      COMSTOK   160
      L     22  00000000777777000000     XAD      DEFINE 18                                                      COMSTOK   161
             0  00000000000000777777     TOFU     DEFINE 18                                                      COMSTOK   162
  
  
  
  
                                        **        TK. - TOKEN FORMAT SYMBOL DEFINITIONS.                         COMSTOK   164
                                        *                                                                        COMSTOK   165
                                        *                                                                        COMSTOK   166
1       LEX - LEXICAL SCANNER/MACRO DEFINITIONS.                      COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    46
        COMSTOK 2.0 - COMMON TOKEN GENERATOR INTERFACE TEXT.          TK. 
  
                                        **         *TOKEN* FORMAT.                                               COMSTOK   168
                                                                                                                 COMSTOK   169
                                                                                                                 COMSTOK   170
                                                  DESCRIBE TK.                                                   COMSTOK   171
                                                  DEFINE 6                                                       COMSTOK   172
      L     44  00777777000000000000     PAD      DEFINE 18                                                      COMSTOK   173
      L     22  00000000777777000000     LNK      DEFINE 18                                                      COMSTOK   174
             0  00000000000000777777     TOT      DEFINE 18                                                      COMSTOK   175
  
  
  
  
                                        **        *TLINK* FORMAT.                                                COMSTOK   177
                                                                                                                 COMSTOK   178
                                                                                                                 COMSTOK   179
                                                  DESCRIBE TL.                                                   COMSTOK   180
      L     73  40000000000000000000     MAF      DEFINE 1                                                       COMSTOK   181
                                                  DEFINE 5                                                       COMSTOK   182
      L     44  00777777000000000000     TRU      DEFINE 18                                                      COMSTOK   183
      L     22  00000000777777000000     FAL      DEFINE 18                                                      COMSTOK   184
             0  00000000000000777777     PRE      DEFINE 18                                                      COMSTOK   185
  
  
  
  
                                                  REDEF                                                          COMSTOK   187
      L     22  77777777777777000000     MAC      DEFINE 42                                                      COMSTOK   188
                                                  DEFINE 18                                                      COMSTOK   189
  
  
  
  
                                                  REDEF                                                          COMSTOK   191
                                                  DEFINE 6                                                       COMSTOK   192
      L     44  00777777000000000000     PAD      DEFINE TK.PADL                                                 COMSTOK   193
      L     22  00000000777777000000     LNK      DEFINE TK.LNKL                                                 COMSTOK   194
             0  00000000000000777777     TOT      DEFINE TK.TOTL                                                 COMSTOK   195
  
  
  
  
                                         COMSTOK  ENDX                                                           COMSTOK   197
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    47
  
  
                                        ***       DATA STRUCTURES.                                               LEX       548
                                        *                                                                        LEX       549
                                        *                                                                        LEX       550
                                        *         THE FOLLOWING SECTION CONTAINS THE DESCRIPTIONS AND            LEX       551
                                        *         DEFINITIONS OF MOST OF THE DATA STRUCTURES USED BY *LEX*.      LEX       552
                                        *                                                                        LEX       553
                                        *         ADDITIONAL GLOBAL COMPILER/LEX DATA STRUCTURE INFORMATION      LEX       554
                                        *         CAN BE FOUND IN *FTN5TXT*.                                     LEX       555
  
  
  
  
                                        **        BB. - *BUB* SYMBOL DEFINITIONS.                                LEX       557
                                        *                                                                        LEX       558
                                                                                                                 LEX       559
                                                                                                                 LEX       560
                                                  DESCRIBE BB.                                                   LEX       561
      L     22  77777777777777000000     TOC      DEFINE TB.TOCL                                                 LEX       562
             0  00000000000000777777     TOT      DEFINE TB.TOTL                                                 LEX       563
                                                                                                                 LEX       564
  
  
  
  
                                        **        BN. - *BUN* GROUP FORMAT.                                      LEX       566
                                                                                                                 LEX       567
                                                                                                                 LEX       568
                                                  DESCRIBE BN.                                                   LEX       569
             0  77777777777777777777     TOC      DEFINE 60                                                      LEX       570
      L     74  00000000000000000000     TOT      DEFINE 0                                                       LEX       571
  
  
  
  
                                        ***       CH= - CHARACTER STRING INFORMATION.                            LEX       573
                                        *                                                                        LEX       574
                                        *                                                                        LEX       575
                                        *         SYMBOLS OF THE FORM *CH=XXX* CONTAIN INFORMATION ABOUT         LEX       576
                                        *         A CHARACTER STRING DURING TOKEN GENERATION.  THERE IS          LEX       577
                                        *         A CONSIDERABLE AMOUNT OF SPECIAL-CASE CODE FOR ENTOKENING      LEX       578
                                        *         THE VARIOUS CHARACTER STRINGS, AND DURING THIS PROCESS IT      LEX       579
                                        *         IS NECESSARY TO SAVE CERTAIN INFORMATION WHILE *TOK* IS        LEX       580
                                        *         ACTUALLY DOING ITS THING.                                      LEX       581
                                        *                                                                        LEX       582
                                        ************************************************************************ LEX       583
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    48
                                                                      CH=CNT
  
                                        **        CH=CNT - CHARACTER STRING CHARACTER COUNT.                     LEX       585
                                        *                                                                        LEX       586
                                        *                                                                        LEX       587
                                        *         *CH=CNT* CONTAINS A CHARACTER STRING CHARACTER COUNT, AND IS   LEX       588
                                        *         USED FOR CHARACTER STRINGS THAT SPAN CARD/LINE BOUNDARIES      LEX       589
                                        *         (I.E. CHARACTER STRINGS THAT ARE CONTINUED).                   LEX       590
                                        *                                                                        LEX       591
                                        *         UPON ENCOUNTERING AN EOL MARK DURING CHARACTER STRING          LEX       592
                                        *         GENERATION/ASSEMBLY, THE CURRENT CHARACTER STRING COUNT IS     LEX       593
                                        *         SAVED IN (CH=CNT) SO THAT *TOK* CAN RESTART ASSEMBLY OF THIS   LEX       594
                                        *         CHARACTER STRING WHEN *LEX*S MAIN LOOP PROVIDES THE NEXT       LEX       595
                                        *         LINE.                                                          LEX       596
                                        *                                                                        LEX       597
                                        *         (CH=CNT) DIFFER ACCORDING TO WHETHER WE ARE GENERATING         LEX       598
                                        *         AN *HLR* COUNT-CONTROLLED STRING, OR A QUOTE-TYPE DELIMITED    LEX       599
                                        *         STRING --                                                      LEX       600
                                        *                                                                        LEX       601
                                        *           1. FOR COUNT-CONTROLLED *HLR* STRINGS, *CH=CNT* CONTAINS     LEX       602
                                        *              THE NR OF CHARACTERS REMAINING TO BE ASSEMBLED INTO THE   LEX       603
                                        *              CURRENT CHARACTER STRING.                                 LEX       604
                                        *                                                                        LEX       605
                                        *              E.G. -- COL 65     72                                     LEX       606
                                        *                           .      .                                     LEX       607
                                        *                        20HBOB-TAIL                                     LEX       608
                                        *                                                                        LEX       609
                                        *              AT EOL, COL 72, (CH=CNT) = 12 TO INDICATE THAT THERE ARE  LEX       610
                                        *              12 CHARACTERS REMAINING TO BE ASSEMBLED/GROUPED INTO THIS LEX       611
                                        *              CHARACTER STRING.                                         LEX       612
                                        *                                                                        LEX       613
                                        *           2. FOR QUOTE-TYPE DELIMITED STRINGS, *CH=CNT* CONTAINS       LEX       614
                                        *                                                                        LEX       615
                                        *                  -(CHARACTER COUNT + 1)                                LEX       616
                                        *                                                                        LEX       617
                                        *              E.G. -- COL 65     72                                     LEX       618
                                        *                           .      .                                     LEX       619
                                        *                          "BOB-TAIL                                     LEX       620
                                        *                                                                        LEX       621
                                        *              AT EOL, COL 72, (CH=CNT) = -9 TO INDICATE THAT WE HAVE    LEX       622
                                        *              ASSEMBLED/GROUPED 8 CHARACTERS INTO THIS CHARACTER        LEX       623
                                        *              STRING.                                                   LEX       624
                                        *                                                                        LEX       625
                                        *         THE ORIGIN OF THE CONTENTS OF *CH=CNT* IS THE ENTOKENING       LEX       626
                                        *         REGISTER (B5).  SEE *COMCBUN*.                                 LEX       627
                                        *                                                                        LEX       628
                                        *         NOTE ALSO THAT *CH=CNT* CONTAINS A FUNNY NUMBER FOR            LEX       629
                                        *         QUOTE-TYPE STRINGS, I.E. -(CHAR COUNT + 1), BECAUSE            LEX       630
                                        *         OF THE WAY *COMCBUN* WORKS.  ON ENTRY TO *BUN* (BURST/BUILD    LEX       631
                                        *         CHARACTERS WITH NO BLANK SQUEEZE), (B5) CONTAINS A *MAXIMUM    LEX       632
                                        *         NR OF CHARACTERS TO BURST/BUILD* COUNT.  *BUN* DECREMENTS      LEX       633
                                        *         (B5) FOR EACH CHARACTER HE BURST/BUILDS, AND EXITS IF          LEX       634
                                        *         (B5) EVER GOES .ZR.                                            LEX       635
                                        *                                                                        LEX       636
                                        *         FOR QUOTE-TYPE STRINGS, THERE IS NO *CHARACTER COUNT* FOR      LEX       637
                                        *         (B5), BUT IF WE ARE CAREFUL, *BUN* WILL COUNT THE NR           LEX       638
                                        *         OF CHARACTERS HE GROUPS INTO THE ''/"" STRING VIA (B5).        LEX       639
                                        *                                                                        LEX       640
                                        *         IT WORKS LIKE THIS: IF WE SET (B5) = -1 AT THE BEGINNING       LEX       641
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    49
                                                                      CH=CNT
  
                                        *         OF ''/"" STRING PROCESSING, THEN (B5) WILL NEVER BE .ZR.       LEX       642
                                        *         IN *BUN* BECAUSE *BUN* STARTS DECREMENTING AT (B5) = -1        LEX       643
                                        *         (I.E. -2, -3, -4, ETC).  IT CAN NOW BE SEEN THAT FOR           LEX       644
                                        *         QUOTE-TYPE STRINGS, (B5) ON EXIT FROM *BUN* WILL CONTAIN       LEX       645
                                        *         -(CHAR COUNT + 1).  I.E. 0 IS IMPOSSIBLE, -1 = 0 CHARS         LEX       646
                                        *         IN STRING, -2 = 1 CHAR IN STRING, ETC.                         LEX       647
                                                                                                                 LEX       648
                                                                                                                 LEX       649
             0                     1     CH=CNT   BSSZ   1                                                       LEX       650
  
  
  
  
                                        **        CH=SB3 - SAVED (B3) FOR "S""S" AND 'S''S' PROCESSING.          LEX       652
                                        *                                                                        LEX       653
                                        *                                                                        LEX       654
                                        *         *CH=SB3* IS USED TO SAVE (B3), WHICH CONTAINS THE NEXT-        LEX       655
                                        *         AVAILABLE-CHARACTER BIT COUNT FOR (X6), DURING A CERTAIN       LEX       656
                                        *         PART OF "" AND '' STRING PROCESSING.                           LEX       657
                                        *                                                                        LEX       658
                                        *         THIS IS A ROYAL KLUDGE, AND IS NECESSARY ONLY BECAUSE          LEX       659
                                        *         OF A WEIRDNESS THAT CAN HAPPEN DURING THE PROCESSING           LEX       660
                                        *         OF THE IMBEDDED QUOTE-WITHIN-A-QUOTE-STRING SYNTAX.            LEX       661
                                        *         THAT IS, WHEN 2 CONSECUTIVE QUOTES ARE TO BE TREATED           LEX       662
                                        *         AS A SINGLE CHARACTER.                                         LEX       663
                                        *                                                                        LEX       664
                                        *         FOR EXAMPLE, IN --                                             LEX       665
                                        *                                                                        LEX       666
                                        *         'SSS''SSS'  OR  "SSS""SSS"                                     LEX       667
                                        *                                                                        LEX       668
                                        *         IF YOU WOULD BE SO KIND AS TO REFER TO THE *TOGEL PROC*        LEX       669
                                        *         CALLED *DQT* (PROCESS " DELIMITED STRING), WHICH IS THE        LEX       670
                                        *         *EXECUTIVE* FOR THE ENTOKENING OF "" STRINGS.  SINGLE          LEX       671
                                        *         QUOTE (') DELIMITED STRINGS ARE HANDLED BY *SQT* (PROCESS      LEX       672
                                        *         ' DELIMITED STRING)...THE PROCESSING IS ALMOST IDENTICAL.      LEX       673
                                        *                                                                        LEX       674
                                        *         BACK TO *DQT*.  *DQT* IS INVOKED AFTER THE " IS DETECTED VIA   LEX       675
                                        *         THE STANDARD *CASEOF* PROCESSING FOR FTN NON-ALPHAMERICS.      LEX       676
                                        *         YOU CAN SEE THAT AFTER A LITTLE BIT OF BULLSHIT, *DQT*         LEX       677
                                        *         GETS AROUND TO *GROUP*ING THE "" DELIMITED STRING.  AFTER      LEX       678
                                        *         WHICH, HE *CALT*S *TOK=ITQ* (IGNORE TERMINATING QUOTE) TO      LEX       679
                                        *         SET ENTOKENING REGISTER (X4) SO AS TO EFFECTIVELY CAUSE        LEX       680
                                        *         *TOK* (TOKEN GENERATOR) TO IGNORE THE " WHICH TERMINATES       LEX       681
                                        *         THE CHARACTER STRING.                                          LEX       682
                                        *                                                                        LEX       683
                                        *         THE NEXT *TOGEL* INSTRUCTION IS THE *IFT (")*, WHICH           LEX       684
                                        *         IS GOING TO TEST FOR A " IMMEDIATELY FOLLOWING THE             LEX       685
                                        *         TERMINATING ".  IF ONE EXISTS, THEN *DQT* INVOKES *TOK=QOQ*    LEX       686
                                        *         (PROCESS QUOTE WITHIN QUOTE STRING) TO DO HIS THING.           LEX       687
                                        *                                                                        LEX       688
                                        *         THE PROBLEM LIES IN THE *IFT*.  BEFORE THIS *IFT* CAN BE       LEX       689
                                        *         EXECUTED/INTERPRETED BY *TOK*, HE HAS TO ASSURE THAT THERE     LEX       690
                                        *         IS A CHARACTER IN (X4) FOR THE *IFT* PROCESSOR TO LOOK AT.     LEX       691
                                        *         NOW, BECAUSE WE HAVE JUST SET (X4) *EMPTY* VIA *TOK=ITQ*,      LEX       692
                                        *         *TOK* WILL PERFORM A *BUN* (BURST/BUILD CHARACTERS W/ NO       LEX       693
                                        *         BLANK SQUEEZE) CALL TO GET A CHARACTER INTO (X4).              LEX       694
                                        *                                                                        LEX       695
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    50
                                                                      CH=SB3
  
                                        *         THIS *BUN* CALL CAUSES (B3) TO BE RESET (TO AVOID AUTO-        LEX       696
                                        *         MATICALLY GENERATING A TOKEN).  BECAUSE (B3) IS RESET,         LEX       697
                                        *         WHEN WE TRY TO PICK UP WHERE WE LEFT OFF FOR THE "" STRING,    LEX       698
                                        *         WE HAVE THE **WRONG** VALUE FOR (B3).                          LEX       699
                                        *                                                                        LEX       700
                                        *         THEREFORE, WE SAVE (B3) IN (CH=SB3) BEFORE THE *IFT* IS        LEX       701
                                        *         INVOKED, AND RESTORE IT IN *TOK=QOQ* AFTER THE *IFT*           LEX       702
                                        *         HAS BEEN EXECUTED.  NOTE THAT WE ONLY RESTORE (B3) IF          LEX       703
                                        *         THE *IFT* INDICATES *TRUE*, I.E. WHEN WE HAVE A QUOTE-         LEX       704
                                        *         WITHIN-A-QUOTE-STRING.  WE DO NOT CARE ABOUT THE *FALSE*       LEX       705
                                        *         CASE BECAUSE WE ARE STARTING WITH A NEW TOKEN, AND             LEX       706
                                        *         THEREFORE A NEW (B3).                                          LEX       707
                                                                                                                 LEX       708
                                                                                                                 LEX       709
             1                     1     CH=SB3   BSSZ   1                                                       LEX       710
  
  
  
  
                                        **        CH=TAD - SAVED ADDR OF *O.HOLL* TOKEN.                         LEX       712
                                        *                                                                        LEX       713
                                        *                                                                        LEX       714
                                        *         *CH=TAD* CONTAINS THE ADDR IN *T.TB* OF THE *O.HOLL* OR        LEX       715
                                        *         *O.CHAR* TOKEN THAT IS CURRENTLY BEING GENERATED.  THIS IS     LEX       716
                                        *         NECESSARY BECAUSE UPON ENCOUNTERING A CHARACTER/HOLLERITH      LEX       717
                                        *         TYPE STRING, WE FIRST GENERATE AN INCOMPLETE *O.HOLL/O.CHAR*   LEX       718
                                        *         TOKEN TO *T.TB* AND THEN USE THE REST OF THE TOKEN BUFFER      LEX       719
                                        *         IMMEDIATLEY FOLLOWING OUR INVENTED *O.HOLL/O.CHAR* TOKEN       LEX       720
                                        *         AS A SCRATCH AREA FOR ASSEMBLING THE CHARACTER/HOLLERITH       LEX       721
                                        *         CONSTANT.                                                      LEX       722
                                        *                                                                        LEX       723
                                        *         AFTER *TOK* (TOKEN GENERATOR) HAS FINISHED GROUPING THE        LEX       724
                                        *         CHARACTER/HOLLERITH STRING INTO THE SCRATCH AREA, *TOK=EOQ*    LEX       725
                                        *         (END OF QUOTE STRING) OR *TOK=EOC* (END OF CHARACTER           LEX       726
                                        *         STRING) WILL ENTER THE STRING INTO *T.CHAR/T.CONS* FOR         LEX       727
                                        *         THE REST OF THE COMPILER TO GET AT.  THESE END-OF-STRING       LEX       728
                                        *         PROCESSORS NOW NEED TO GO BACK AND FILL IN SOME MISSING        LEX       729
                                        *         INFORMATION INTO THE INCOMPLETE *O.HOLL/O.CHAR* TOKEN.         LEX       730
                                        *                                                                        LEX       731
                                        *         NOW WE GET TO THE POINT: (CH=TAD) TELLS US WHERE THE           LEX       732
                                        *         INCOMPLETE TOKEN IS.                                           LEX       733
                                        *                                                                        LEX       734
                                        *         *CH=TAD* IS ALSO USED AS A FLAG FOR DETERMINING WHETHER        LEX       735
                                        *         OR NOT WE HAVE AN INCOMPLETE *O.CHAR/O.HOLL* TOKEN             LEX       736
                                        *         IN THE TOKEN BUFFER DURING ''/"" STRING PROCESSING.            LEX       737
                                        *                                                                        LEX       738
                                        *         THIS SITUATION (I.E. INCOMPLETE *O.CHAR/O.HOLL*) CAN           LEX       739
                                        *         ARISE DUE TO 2 PATHOLOGIES ASSOCIATED WITH ""/'' STRING        LEX       740
                                        *         PROCESSING.  THEY ARE --                                       LEX       741
                                        *                                                                        LEX       742
                                        *           A. WHEN ENCOUNTERING EOL DURING ''/"" STRING PROCESSING,     LEX       743
                                        *              WE DO NOT KNOW WHETHER THERE EXISTS A CONTINUATION        LEX       744
                                        *              LINE (WE ASSUME THERE IS BECAUSE WE ASSUME THAT THE       LEX       745
                                        *              FTN PROGRAMMER IS WRITING CORRECT PROGRAMS).              LEX       746
                                        *                                                                        LEX       747
                                        *              CONSIDER THE FOLLOWING EXAMPLES --                        LEX       748
                                        *                                                                        LEX       749
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    51
                                                                      CH=TAD
  
                                        *                  COL 7                                                 LEX       750
                                        *                      .                                                 LEX       751
                                        *                      STRING = 'ME                                      LEX       752
                                        *                     + ALONG'                                           LEX       753
                                        *                                                                        LEX       754
                                        *                      STRING = 'ME UP                                   LEX       755
                                        *                      NEW = STMT                                        LEX       756
                                        *                                                                        LEX       757
                                        *              EXAMPLE 1 IS OK, WHILE EXAMPLE 2 IS IN ERROR.  THE        LEX       758
                                        *              PROBLEM IS THAT WE DON'T KNOW THAT EXAMPLE 2 IS IN        LEX       759
                                        *              ERROR UNTIL WE READ THE NEXT LINE AND DETERMINE THAT      LEX       760
                                        *              IT IS **NOT** A CONTINUATION LINE.                        LEX       761
                                        *                                                                        LEX       762
                                        *           B. THE SYNTAX THAT INSISTS THAT 2 QUOTES WITHIN              LEX       763
                                        *              A QUOTE STRING ARE TO BE TREATED AS A SINGLE              LEX       764
                                        *              QUOTE.                                                    LEX       765
                                        *                                                                        LEX       766
                                        *              CONSIDER THE FOLLOWING EXAMPLES --                        LEX       767
                                        *                                                                        LEX       768
                                        *                  COL 7                                           72    LEX       769
                                        *                      .                                            .    LEX       770
                                        *                      STRING = 'TWO''ARE ONE'                           LEX       771
                                        *                                                                        LEX       772
                                        *                      STRING = 'THESE TWO__________________________'    LEX       773
                                        *                     +'ARE ONE TOO'                                     LEX       774
                                        *                                                                        LEX       775
                                        *              THIS TWO-ARE-ONE SYNTAX HAS AN IMPORTANT IMPLICATION.     LEX       776
                                        *              WE **CANNOT** BIND OFF ''/"" STRING PROCESSING AND, FOR   LEX       777
                                        *              EXAMPLE, FILL IN THE MISSING INFORMATION INTO THE         LEX       778
                                        *              INCOMPLETE *O.CHAR/O.HOLL* TOKEN UNTIL WE HAVE SEEN THE   LEX       779
                                        *              CHARACTER IMMEDIATELY FOLLOWING THE '/" THAT WE **THINK** LEX       780
                                        *              IS THE TERMINATING '/".  BECAUSE IF THE IMMEDIATELY       LEX       781
                                        *              FOLLOWING CHARACTER IS ANOTHER '/", THEN WE HAVE THE      LEX       782
                                        *              TWO-ARE-ONE SYNTAX.                                       LEX       783
                                        *                                                                        LEX       784
                                        *              IN THE CASE OF A *MAYBE* TERMINATING '/" IN COL 72        LEX       785
                                        *              (EXAMPLE 2, ABOVE), WE CANNOT SEE THE CHARACTER           LEX       786
                                        *              IMMEDIATELY FOLLOWING UNTIL WE READ THE NEXT LINE.        LEX       787
                                        *                                                                        LEX       788
                                        *              IF THIS *NEXT LINE* HAPPENS NOT TO BE A CONTINUATION      LEX       789
                                        *              LINE, THEN WE MUST BIND OFF THE INCOMPLETE STRING         LEX       790
                                        *              IN *LEX*S MAIN LOOP...                                    LEX       791
                                        *                                                                        LEX       792
                                        *                ** IMPORTANT **                                         LEX       793
                                        *                                                                        LEX       794
                                        *         BECAUSE *CH=TAD* IS AN ADDRESS AND NOT AN ORDINAL,             LEX       795
                                        *         THIS SCHEME ONLY WORKS AS LONG AS *T.TB* (TOKEN BUFFER)        LEX       796
                                        *         NEVER MOVES DUE TO TABLE MANAGER SHENANIGANS.                  LEX       797
                                        *                                                                        LEX       798
                                        *                     * * *                                              LEX       799
                                                                                                                 LEX       800
                                                                                                                 LEX       801
             2                     1     CH=TAD   BSSZ   1                                                       LEX       802
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    52
                                                                      CH=TYPE 
  
                                        **        CH=TYPE - CHARACTER STRING TYPE CODE.                          LEX       804
                                        *                                                                        LEX       805
                                        *                                                                        LEX       806
                                        *         *CH=TYPE* CONTAINS THE TYPE CODE OF AN -H-, -L-, -R-,          LEX       807
                                        *         "", OR '' CHARACTER STRING, AND IS USED BECAUSE WE NEED        LEX       808
                                        *         TO KNOW WHETHER TO RIGHT OR LEFT JUSTIFY AND/OR TO SPACE-FILL  LEX       809
                                        *         THE FINAL/LAST WORD OF THE CHARACTER STRING.                   LEX       810
                                        *                                                                        LEX       811
                                        *         CHARACTER STRING TYPE CODES ARE DEFINED VIA SYMBOLS            LEX       812
                                        *         OF THE FORM *CT.XXX* --                                        LEX       813
                                        *                                                                        LEX       814
                                        *         CT.H  = HOLLERITH, I.E. LEFT-JUSTIFIED, SPACE FILLED.          LEX       815
                                        *         CT.L  = LEFT-JUSTIFIED, ZERO FILLED.                           LEX       816
                                        *         CT.R  = RIGHT-JUSTIFIED, ZERO FILLED.                          LEX       817
                                        *                                                                        LEX       818
                                        *         CT.DQT = DOUBLE QUOTE "" DELIMITED STRING.                     LEX       819
                                        *         CT.SQT = SINGLE QUOTE '' DELIMITED STRING.                     LEX       820
                                                                                                                 LEX       821
                                                                                                                 LEX       822
             3                     1     CH=TYPE  BSSZ   1                                                       LEX       823
                                                                                                                 LEX       824
                                   1     CT.H     =      1                                                       LEX       825
                                   2     CT.L     =      2                                                       LEX       826
                                   3     CT.R     =      3                                                       LEX       827
                                                                                                                 LEX       828
                                   4     CT.DQT   =      4                                                       LEX       829
                                   5     CT.SQT   =      5                                                       LEX       830
                                   6     CT.OCT   =      6                                                       LEX       831
                                   7     CT.HEX   =      7                                                       LEX       832
  
  
  
  
                                        **        LEXFLG - *LEX* MASTER CONTROL FLAG.                            LEX       834
                                        *                                                                        LEX       835
                                        *                                                                        LEX       836
                                        *         *LEXFLG* CONTAINS MISCELLANEOUS CONTROL INFORMATION            LEX       837
                                        *         NEEDED DURING THE LEXICAL SCAN.  CONTROL FLAGS ARE             LEX       838
                                        *         NOT NICE, BUT IT IS HOPED THAT BY KEEPING MOST CONTROL         LEX       839
                                        *         INFORMATION AS BIT FIELDS IN A SINGLE FLAG THAT ITS            LEX       840
                                        *         USE WILL BE EASIER TO UNDERSTAND/MANAGE.                       LEX       841
                                        *                                                                        LEX       842
                                        *         FIELDS WITHIN *LEXFLG* ARE DESCRIBE/DEFINED IN *FTN5TXT*       LEX       843
                                        *         VIA SYMBOLS OF THE FORM --                                     LEX       844
                                        *                                                                        LEX       845
                                        *                LF.XXXP  AND  LF.XXXL                                   LEX       846
                                        *                                                                        LEX       847
                                        *         WHERE FIELDS *XXX* ARE --                                      LEX       848
                                        *                                                                        LEX       849
                                        *         CHR = 1  IF 'CHARACTER *' OCCURRED DURING TOKEN GENERATION,    LEX       850
                                        *                  ELSE 0.                                               LEX       851
                                        *                                                                        LEX       852
                                        *                  *CHR* IS USED AS A COMMUNICATION FLAG BETWEEN         LEX       853
                                        *                  TWO DIFFERENT PARTS OF THE TOKEN GENERATOR.           LEX       854
                                        *                  THIS IS NECESSARY BECAUSE THERE IS AN AMBIGUITY       LEX       855
                                        *                  INVOLVING ONE OF CDC'S EXTENSIONS TO THE FORTRAN      LEX       856
                                        *                  LANGUAGE --                                           LEX       857
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    53
                                                                      LEXFLG
  
                                        *                                                                        LEX       858
                                        *                      CHARACTER * 3RATS                                 LEX       859
                                        *                                                                        LEX       860
                                        *                  TO ANSI, THE ABOVE STATEMENT IS A LEGAL DECLARATION   LEX       861
                                        *                  THAT THE VARIABLE *RATS* IS A CHARACTER VARIABLE      LEX       862
                                        *                  OF LENGTH 3.  TO FTN, WERE IT NOT FOR *CHR*, THIS     LEX       863
                                        *                  STATEMENT CONTAINS A HOLLERITH CONSTANT 3RATS.        LEX       864
                                        *                  PROBLEM...                                            LEX       865
                                        *                                                                        LEX       866
                                        *                  THEREFORE, *CHR* IS A FLAG THAT INDICATES TO THE      LEX       867
                                        *                  *HLR* CONSTANT PROCESSOR (IN THE TOKEN GENERATOR)     LEX       868
                                        *                  THAT WE ARE **NOT** GOING TO HONOUR *HLR* CONSTANTS   LEX       869
                                        *                  ON THIS 'CHARACTER *' STATEMENT.  SUPER KLUDGE...     LEX       870
                                        *                                                                        LEX       871
                                        *                  *HLR* (I.E. COUNT-CONTROLLED) CHARACTER STRINGS       LEX       872
                                        *                  SHOULD NEVER HAVE BEEN PUT IN THE FTN SPEC...         LEX       873
                                        *                  THEY ARE ALSO THE REASON THAT THE *FORMAT* STMT       LEX       874
                                        *                  IS DIFFICULT TO ENTOKEN VIA THE STANDARD FTN          LEX       875
                                        *                  ENTOKENING RULES.                                     LEX       876
                                        *                                                                        LEX       877
                                        *                  KLUDGE.  KLUDGE.  KLUDGE.                             LEX       878
                                        *                                                                        LEX       879
                                        *         INI = 1  IF AN INITIAL LINE HAS OCCURRED FOR THE STMT *LEX*    LEX       880
                                        *                  IS PROCESSING, ELSE 0.  *INI* IS CLEARED UPON ENTRY   LEX       881
                                        *                  TO *LEX*, AND IS SET WHEN AN INITIAL LINE OCCURS      LEX       882
                                        *                  (I.E. WHEN (LN=TYPE)=LT.INIT).  IT IS USED SOLELY     LEX       883
                                        *                  FOR THE PURPOSE OF DETERMINING WHETHER TO ISSUE THE   LEX       884
                                        *                  *THIS STMT HAS NO INITIAL* WARNING ERR MSG.           LEX       885
                                        *                                                                        LEX       886
                                        *         HDR = 1  IF IN *HEADER DELAY* MODE, ELSE 0.                    LEX       887
                                        *                                                                        LEX       888
                                        *                  *HEADER DELAY* MODE IS AN ATTEMPT BY THE COMPILER TO  LEX       889
                                        *                  GET THE PROGRAM UNIT NAME INTO THE TITLE LINE OF THE  LEX       890
                                        *                  SOURCE LISTING BY DEFERRING ALL LISTING UNTIL THE     LEX       891
                                        *                  HEADER STMT PROCESSOR HAS DETERMINED THE PROGRAM UNIT LEX       892
                                        *                  NAME AND STUFFED IT INTO THE TITLE LINE PRINT LINE    LEX       893
                                        *                  IMAGE.                                                LEX       894
                                        *                                                                        LEX       895
                                        *                  THIS IS ACCOMPLISHED BY SAVING **ALL** LINES (EVEN    LEX       896
                                        *                  COMMENT LINES) IN *T.STMT* (STMT/DEFERRED LIST        LEX       897
                                        *                  BUFFER) UNTIL AFTER THE APPROPRIATE HEADER STMT       LEX       898
                                        *                  PROCESSOR HAS DONE ITS JOB.  WHEN THE TITLE LINE      LEX       899
                                        *                  IMAGE IS ALL SET UP, *FEC* (FRONT-END CONTROLLER)     LEX       900
                                        *                  LISTS THE CONTENTS OF *T.STMT* VIA *LDB* (LIST        LEX       901
                                        *                  DEFERRED BUFFER).  THIS AUTOMATICALLY FORCES OUT      LEX       902
                                        *                  A NICE, PRETTY, PRECEDING TITLE LINE WITH A PROGRAM   LEX       903
                                        *                  UNIT NAME.                                            LEX       904
                                        *                                                                        LEX       905
                                        *                  FOR EXAMPLE --                                        LEX       906
                                        *                                                                        LEX       907
                                        *                    C  COMMENT         ..                               LEX       908
                                        *                    C  COMMENT          .                               LEX       909
                                        *                        .               .. SAVED UNTIL WE GET           LEX       910
                                        *                        .               .  *PETRETR* FROM *PROGRAM*     LEX       911
                                        *                       PROGRAM PETRETR ..  STMT PROCESSOR               LEX       912
                                        *                                                                        LEX       913
                                        *                                                                        LEX       914
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    54
                                                                      LEXFLG
  
                                        *         LAC = 1  IF *LEX* IS ACTIVE, ELSE 0.  *LAC* IS A FLAG THAT     LEX       915
                                        *                  IS USED AS A FORM OF DIRECT COMMUNICATION BETWEEN     LEX       916
                                        *                  *LEX* AND *LDB* (LIST DEFERRED BUFFER), AND PERFORMS  LEX       917
                                        *                  THE IMPORTANT TASK OF KEEPING STRAIGHT A CERTAIN      LEX       918
                                        *                  PATHOLOGY CONCERNING THE MANAGEMENT OF *T.STMT* (STMT LEX       919
                                        *                  BUFFER).  *LAC* IS SET UPON ENTRY TO *LEX* AND IS     LEX       920
                                        *                  CLEARED RIGHT BEFORE *LEX* EXITS BACK TO *FEC*.       LEX       921
                                        *                                                                        LEX       922
                                        *                  THE NEED FOR *LAC* ARISES AS FOLLOWS: THE NORMAL      LEX       923
                                        *                  (I.E. NON-LEX) *LDB* CALLER CALLS *LDB* WITH THE      LEX       924
                                        *                  INTENT OF HAVING *T.STMT* APPROPRIATELY LISTED AND    LEX       925
                                        *                  THEN *SHRINK*D TO INDICATE THAT WE ARE FINISHED       LEX       926
                                        *                  WITH IT.  THE MOST COMMON OCCURENCE OF THIS IS WHEN   LEX       927
                                        *                  THE COMPILER DETECTS AN ERROR IN A SOURCE STMT IN     LEX       928
                                        *                  *NO LIST* (E.G.  L=0) MODE.  ONCE *LDB* HAS BEEN      LEX       929
                                        *                  CALLED BY THE ERROR PROCESSOR, THE SPACE OCCUPIED     LEX       930
                                        *                  BY *T.STMT* IS FREED UP FOR ALTENATE USE BY THE TABLE LEX       931
                                        *                  MANAGER.                                              LEX       932
                                        *                                                                        LEX       933
                                        *                  A PROBLEM ARISES, HOWEVER, IF *LEX* HAPPENS TO CALL   LEX       934
                                        *                  *LDB* (IF FOR EXAMPLE, *LEX* DETECTS AN ERROR): *LEX* LEX       935
                                        *                  IS PUTTING LINES **INTO** *T.STMT* AND IS NOT YET     LEX       936
                                        *                  FINISHED WITH IT, SO THAT IF *LDB* *SHRINK*S *T.STMT* LEX       937
                                        *                  TO ZERO...CONFLICT.                                   LEX       938
                                        *                                                                        LEX       939
                                        *                  DUE TO THE UGLINESS AND INTERTWINEDNESS OF THE        LEX       940
                                        *                  LISTING LOGIC, *LDB* IS THE ONLY ONE WHO CAN REALLY   LEX       941
                                        *                  KNOW WHEN TO *SHRINK* *T.STMT*...THEREFORE, *LAC*     LEX       942
                                        *                  INFORMS *LDB* THAT *LEX* IS THE CALLER SO **NOT** TO  LEX       943
                                        *                  SHRINK *T.STMT*.                                      LEX       944
                                        *                                                                        LEX       945
                                        *                                                                        LEX       946
                                        *         QAC = 1  IF QUOTE STRING IS ACTIVE, ELSE 0.  *QAC* IS A FLAG   LEX       947
                                        *                  THAT IS USED TO DETERMINE WHETHER OR NOT A QUOTE      LEX       948
                                        *                  DELIMITED STRING ('' OR "") HAS ITS TERMINATING       LEX       949
                                        *                  QUOTE.  FOR EXAMPLE --                                LEX       950
                                        *                                                                        LEX       951
                                        *                      'ABCD'                                            LEX       952
                                        *                                                                        LEX       953
                                        *                  DOES, BUT --                                          LEX       954
                                        *                                                                        LEX       955
                                        *                      'ABCD                                             LEX       956
                                        *                                                                        LEX       957
                                        *                  DOES NOT.                                             LEX       958
                                        *                                                                        LEX       959
                                        *                  *QAC* IS SET DURING TOKEN GENERATION WHEN THE         LEX       960
                                        *                  INITIAL QUOTE OF A QUOTE DELIMITED STRING IS          LEX       961
                                        *                  ENCOUNTERED, AND IS CLEARED WHEN THE TERMINATING      LEX       962
                                        *                  QUOTE IS ENCOUNTERED.                                 LEX       963
                                        *                                                                        LEX       964
                                        *                  *QAC* IS USED BY *LEX*S MAIN LOOP IN PUTTING OUT      LEX       965
                                        *                  AN ERROR MESSAGE FOR *MISSING TERMINATING QUOTE*      LEX       966
                                        *                  STRINGS.  CONSIDER THE FOLLOWING EXAMPLES --          LEX       967
                                        *                                                                        LEX       968
                                        *                      COL 7                                             LEX       969
                                        *                          .                                             LEX       970
                                        *                          STRING = 'REAL                                LEX       971
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    55
                                                                      LEXFLG
  
                                        *                         + BIG'                                         LEX       972
                                        *                                                                        LEX       973
                                        *                          STRING = 'MISSING QUOTE                       LEX       974
                                        *                          NEW = STMT                                    LEX       975
                                        *                                                                        LEX       976
                                        *                  THE 1ST EXAMPLE CONTAINS A '' STRING THAT SPANS LINE  LEX       977
                                        *                  BOUNDARIES, WHEREAS THE 2ND EXAMPLE CONTAINS A ''     LEX       978
                                        *                  STRING WITH A MISSING TERMINATING QUOTE.  A PROBLEM   LEX       979
                                        *                  ARISES IN THE DETECTION OF THE ERROR IN OUR 2ND       LEX       980
                                        *                  EXAMPLE BECAUSE *LEX* IS DRIVEN ON A LINE-BY-LINE     LEX       981
                                        *                  BASIS.  THEREFORE, WHEN *LEX* SEES THE INITIAL LINE   LEX       982
                                        *                  FOLLOWING THE LINE WITH THE MISSING QUOTE,            LEX       983
                                        *                  HE DOES NOT REINVOKE THE TOKEN GENERATOR TO           LEX       984
                                        *                  CLEAN UP.  THIS MEANS THAT THERE IS AN INCOMPLETE     LEX       985
                                        *                  *O.CHAR* TOKEN IN THE TOKEN BUFFER (I.E. THE          LEX       986
                                        *                  TOKEN GENERATOR WAS **EXPECTING** TO BE CALLED        LEX       987
                                        *                  AGAIN BECAUSE LEGAL STRINGS ARE PROPERLY DELIMITED).  LEX       988
                                        *                                                                        LEX       989
                                        *                  THEREFORE, WHEN *LEX* DETECTS AN INITIAL LINE         LEX       990
                                        *                  (I.E. END OF CURRENT STMT), HE CHECKS *QAC* TO        LEX       991
                                        *                  SEE IF THE CURRENT STMT HAS AN IMPROPERLY TERMINATED  LEX       992
                                        *                  QUOTE DELIMITED STRING.                               LEX       993
                                        *                                                                        LEX       994
                                        *                      ** IMPORTANT **                                   LEX       995
                                        *                                                                        LEX       996
                                        *                  IT IS VERY IMPORTANT TO REALIZE THAT *QAC* IS         LEX       997
                                        *                  **SUBORDINATE** TO *CH=TAD*.  THAT IS, *QAC*          LEX       998
                                        *                  CAN TELL US WHETHER OR NOT A QUOTE STRING HAS         LEX       999
                                        *                  ITS TERMINATING QUOTE, BUT IT CANNOT TELL US          LEX      1000
                                        *                  WHETHER OR NOT THE QUOTE STRING IS COMPLETE/          LEX      1001
                                        *                  FINISHED.                                             LEX      1002
                                        *                                                                        LEX      1003
                                        *                  THIS IS DUE TO THE ""/'' SYNTAX WHERE 2 QUOTES        LEX      1004
                                        *                  IMBEDDED WITHIN A QUOTE STRING ARE TO BE TREATED      LEX      1005
                                        *                  AS A SINGLE QUOTE.  THE PROBLEM IS THAT EVEN THOUGH   LEX      1006
                                        *                  WE SEE WHAT WE **THINK** IS THE TERMINAL "/',         LEX      1007
                                        *                  WE CAN NOT TIE THINGS OFF UNTIL WE HAVE LOOKED        LEX      1008
                                        *                  AT THE CHARACTER IMMEDIATELY FOLLOWING TO SEE         LEX      1009
                                        *                  IF IT IS ANOTHER "/' (I.E. 2 QUOTES AS 1).            LEX      1010
                                        *                                                                        LEX      1011
                                        *                  CONSIDER ALSO THAT THIS *NEXT CHARACTER* MIGHT        LEX      1012
                                        *                  BE ON THE NEXT LINE (I.E. THIS STATEMENT IS           LEX      1013
                                        *                  CONTINUED).                                           LEX      1014
                                        *                                                                        LEX      1015
                                        *                  SEE *CH=TAD* FOR MORE INFORMATION.                    LEX      1016
                                        *                                                                        LEX      1017
                                        *                           * * *                                        LEX      1018
                                                                                                                 LEX      1019
                                                                                                                 LEX      1020
             4                     1     LEXFLG   BSSZ   1                                                       LEX      1021
                                                  ENTRY  LEXFLG                                                  LEX      1022
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    56
                                                                      LEXMODE 
  
                                        **        LEXMODE - *LEX* MASTER SCANNING MODE CONTROL CELL.             LEX      1024
                                        *                                                                        LEX      1025
                                        *                                                                        LEX      1026
                                        *         *LEXMODE* IS A CELL THAT IS USED BY *LEX* IN DETERMINING       LEX      1027
                                        *         WHICH MODE IT IS SCANNING IN.  THE CONTENTS OF *LEXMODE*       LEX      1028
                                        *         AT ANY TIME WILL CONTAIN A VALUE THAT INDICATES THE CURRENT    LEX      1029
                                        *         LEXICAL SCANNING MODE.                                         LEX      1030
                                        *                                                                        LEX      1031
                                        *         THE USE OF *LEXMODE* IS AN ATTEMPT TO INTEGRATE THE VARIOUS    LEX      1032
                                        *         SPECIAL-CASE THINGS THE SCANNER MUST DO THAT TEND TO MUDDY     LEX      1033
                                        *         ITS CONTROL LOGIC.  FOR EXAMPLE, SPECIAL PROCESSING FLOWS      LEX      1034
                                        *         ARE REQUIRED THE 1ST TIME THE SCANNER IS CRANKED UP, ETC...    LEX      1035
                                        *                                                                        LEX      1036
                                        *         *LEX* MODES ARE DEFINED VIA SYMBOLS OF THE FORM *LM.XXX*,      LEX      1037
                                        *         WHERE *LM.* IS A COMMON PREFIX, AND *XXX* IS A UNIQUE LEXICAL  LEX      1038
                                        *         SCANNING MODE.                                                 LEX      1039
                                        *                                                                        LEX      1040
                                        *         *LM.XXX* VALUES ARE --                                         LEX      1041
                                        *                                                                        LEX      1042
                                        *           LM.NORM = NORMAL.  THIS IS *LEX*S NORMAL MODE WHERE THE      LEX      1043
                                        *                     LIST/ENTOKEN/READ/CLASSIFY CYCLE IS PROCEEDING     LEX      1044
                                        *                     UNFETTERED BY WEIRDNESS...HA HA HEE HEE HO HO.     LEX      1045
                                        *                                                                        LEX      1046
                                        *           LM.NTR  = NEED TO READ.  THIS *LEXMODE* IS SET WHEN THERE    LEX      1047
                                        *                     IS NO SOURCE LINE AT *CP.CARD* ET SEQ FOR *LEX*    LEX      1048
                                        *                     TO PROCESS.  IN THIS CASE, *LEX* MUST CALL *RNC*   LEX      1049
                                        *                     (READ NEXT CARD) **BEFORE** DOING ANYTHING ELSE.   LEX      1050
                                        *                                                                        LEX      1051
                                        *           LM.1ST  = 1ST CARD OF PROGRAM UNIT.  SPECIAL START UP        LEX      1052
                                        *                     REQUIRED.                                          LEX      1053
                                                                                                                 LEX      1054
                                                                                                                 LEX      1055
             5                     1     LEXMODE  BSZENT 1                                                       LEX      1056
  
  
  
  
                                        ***       LN= - LINE INFORMATION.                                        LEX      1058
                                        *                                                                        LEX      1059
                                        *                                                                        LEX      1060
                                        *         SYMBOLS OF THE FORM *LN=XXX* (WHERE *XXX* IS A UNIQUE NAME)    LEX      1061
                                        *         CONTAIN INFORMATION ABOUT THE CURRENT LINE AT (CP.CARD).       LEX      1062
                                        *         THEY ARE SET UP BY *CLN* (CLASSIFY LINE) AND ARE QUERIED       LEX      1063
                                        *         AND USED THROUGHOUT *LEX* WHEN INFORMATION ABOUT THE CURRENT   LEX      1064
                                        *         LINE AT (CP.CARD) IS NEEDED.                                   LEX      1065
                                        *                                                                        LEX      1066
                                        *         THE FOLLOWING PARAGRAPHS DESCRIBE THE FORMAT AND USE OF EACH   LEX      1067
                                        *         OF THE *LN=* CELLS.                                            LEX      1068
                                        *                                                                        LEX      1069
                                        *                           ** WARNING **                                LEX      1070
                                        *                                                                        LEX      1071
                                        *         THESE *LN=* CELLS ARE LOCAL INFORMATION CELLS ONLY.  THEY      LEX      1072
                                        *         EXIST TO MAKE A CLEAR DISTINCTION BETWEEN THE FUNCTIONS OF     LEX      1073
                                        *         DETECTION (CLN) AND CONTROL (LEX).  THE GLOBAL COMPILER        LEX      1074
                                        *         SHOULD KNOW **NOTHING** OF THEIR EXISTENCE.                    LEX      1075
                                        *                                                                        LEX      1076
                                        *                              * * *                                     LEX      1077
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    57
                                                                      LN= 
  
                                        *                                                                        LEX      1078
                                        ************************************************************************ LEX      1079
  
  
  
  
                                        **        LN=FEN - FIRST ENTOKENABLE CHARACTER POSITION.                 LEX      1081
                                        *                                                                        LEX      1082
                                        *                                                                        LEX      1083
                                        *         *LN=FEN* CONTAINS INFORMATION ABOUT WHERE THE 1ST              LEX      1084
                                        *         ENTOKENABLE CHARACTER IS IN A SOURCE LINE.  FOR NON-SEQ        LEX      1085
                                        *         MODE INPUT LINES, THIS IS MERELY AN INDICATION OF COL 7.       LEX      1086
                                        *         FOR SEQ MODE INPUT LINES, *LN=FEN* INDICATES THE POSITION      LEX      1087
                                        *         OF THE THE 1ST CHARACTER AFTER THE SEQ LINE NUMBER             LEX      1088
                                        *         (OR STMT LABEL, IF PRESENT).                                   LEX      1089
                                        *                                                                        LEX      1090
                                        *         FOR EXAMPLE, NON-SEQ --                                        LEX      1091
                                        *                                                                        LEX      1092
                                        *           COL 1     7                                                  LEX      1093
                                        *                 100     A = B                                          LEX      1094
                                        *                     .                                                  LEX      1095
                                        *                     ............ LN=FEN                                LEX      1096
                                        *                                                                        LEX      1097
                                        *         OR SEQ --                                                      LEX      1098
                                        *                                                                        LEX      1099
                                        *           COL 1    6  9                                                LEX      1100
                                        *               00110 9    FORMAT(" MOMMY")                              LEX      1101
                                        *                       .                                                LEX      1102
                                        *                       .......... LN=FEN                                LEX      1103
                                        *                                                                        LEX      1104
                                        *         *LN=FEN* IS USED BY THE TOKEN GENERATOR WHEN PROCESSING        LEX      1105
                                        *         CHARACTER/HOLLERITH CONSTANTS, AND IS BEST DESCRIBED VIA       LEX      1106
                                        *         AN EXAMPLE --                                                  LEX      1107
                                        *                                                                        LEX      1108
                                        *           COL 1     7   1         1                                    LEX      1109
                                        *                 999 FORMAT(" THIS IS                                   LEX      1110
                                        *                    +    A REAL LONG MESSAGE")                          LEX      1111
                                        *                                                                        LEX      1112
                                        *         WHEN GENERATING THE ABOVE CHARACTER CONSTANT STRING, *TOK*     LEX      1113
                                        *         MUST INVENT BLANK (55B) CHARACTERS FOR COLS 23-72 (THRU        LEX      1114
                                        *         COL 80 IN SEQ MODE) OF THE INITIAL LINE AND FOR COLS 7-10      LEX      1115
                                        *         OF THE CONTINUATION LINE.  THIS IS NECESSARY BECAUSE IN        LEX      1116
                                        *         THE 1ST INSTANCE, THE OPERATING SYSTEM HAS STRIPPED THE        LEX      1117
                                        *         TRAILING BLANKS, AND SECONDLY, *CLN* (CLASSIFY LINE)           LEX      1118
                                        *         STRIPPED THE BLANKS PRECEDING THE 1ST NON-BLANK ENTOKENABLE    LEX      1119
                                        *         CHARACTER ON EACH LINE.                                        LEX      1120
                                        *                                                                        LEX      1121
                                        *         THEREFORE, *CLN* SAVES THE POSITION OF THE 1ST ENTOKENABLE     LEX      1122
                                        *         CHARACTER ON EACH LINE IN *LN=FEN* SO THAT THE CORRECT         LEX      1123
                                        *         NUMBER OF PRECEDING CHARACTER CONSTANT BLANKS CAN BE           LEX      1124
                                        *         GENERATED IF NECESSARY.                                        LEX      1125
                                        *                                                                        LEX      1126
                                        *         NOTE THAT (LN=FEN), (LN=FENB), AND (LN=FENL) ARE               LEX      1127
                                        *         TRANSFERED TO THE LINE INFORMATION HEADER THAT PRECEDES        LEX      1128
                                        *         EVERY LINE IN *T.STMT* WHEN *PLR* (PROCESS LISTING             LEX      1129
                                        *         REQUEST) MOVES THE CURRENT LINE FROM *CP.FLIN* ET SEQ          LEX      1130
                                        *         TO *T.STMT*.  SEE *PLR*.                                       LEX      1131
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    58
                                                                      LN=FEN
  
                                        *                                                                        LEX      1132
                                        *         (LN=FEN)   = ORD, RELATIVE TO *CP.FLIN*, OF WORD CONTAINING    LEX      1133
                                        *                      THE 1ST ENTOKENABLE CHARACTER IN THE CURRENT      LEX      1134
                                        *                      LINE.                                             LEX      1135
                                        *                                                                        LEX      1136
                                        *         (LN=FENB)  = BIT POSITION OF 1ST ENTOKENABLE CHAR IN (LN=FEN). LEX      1137
                                        *                      (I.E. *TOK/BUB/BUN* REGISTER B6)                  LEX      1138
                                        *                                                                        LEX      1139
                                        *         (LN=FENL)  = LEN (IN BITS) OF LINE.  I.E. RELATIVE TO          LEX      1140
                                        *                      *LN=FEN/LN=FENB*.  (*TOK/BUB/BUN* REGISTER B7).   LEX      1141
                                                                                                                 LEX      1142
                                                                                                                 LEX      1143
             6                     1     LN=FEN   BSSZ   1                                                       LEX      1144
                                                                                                                 LEX      1145
             7                     1     LN=FENB  BSSZ   1                                                       LEX      1146
                                                                                                                 LEX      1147
            10                     1     LN=FENL  BSSZ   1                                                       LEX      1148
  
  
  
  
                                        **        LN=LABL - LINE LABEL.                                          LEX      1150
                                        *                                                                        LEX      1151
                                        *                                                                        LEX      1152
                                        *         *LN=LABL* CONTAINS THE LABEL FOR THE SOURCE LINE AT *CP.CARD*, LEX      1153
                                        *         IN -L- FORMAT.                                                 LEX      1154
                                        *                                                                        LEX      1155
                                        *                            ** WARNING **                               LEX      1156
                                        *                                                                        LEX      1157
                                        *         *LN=LABL* CONTAINS THE **LINE** LABEL, **NOT** THE             LEX      1158
                                        *         **STATEMENT** LABEL.                                           LEX      1159
                                        *                                                                        LEX      1160
                                        *                                * * *                                   LEX      1161
                                                                                                                 LEX      1162
                                                                                                                 LEX      1163
            11                     1     LN=LABL  BSSZ   1                                                       LEX      1164
  
  
  
  
                                        **        LN=NUML/LN=NUMR - LINE NUMBER.                                 LEX      1166
                                        *                                                                        LEX      1167
                                        *                                                                        LEX      1168
                                        *         *LN=NUML* AND *LN=NUMR* CONTAIN THE LINE NUMBER OF THE         LEX      1169
                                        *         SOURCE LINE AT *CP.CARD*, IN -L- AND -R- FORMATS RESPECTIVELY. LEX      1170
                                        *                                                                        LEX      1171
                                        *         FOR NORMAL (I.E. NON-SEQ) LINES, THIS IS A *CDD* CONVERTED     LEX      1172
                                        *         COPY OF THE VALUE OF THE CELL *CARDS* WHICH CONTAINS THE       LEX      1173
                                        *         CURRENT NR OF CARDS/LINES THAT HAVE BEEN READ IN THIS          LEX      1174
                                        *         PROGRAM UNIT (IN BINARY).                                      LEX      1175
                                        *                                                                        LEX      1176
                                        *         FOR *SEQ* LINES, THIS IS THE DISPLAY CODE CHARACTERS           LEX      1177
                                        *         THAT OCCURRED IN THE PROGRAMMER-SPECIFIED LINE NUMBER FIELD.   LEX      1178
                                        *         ELSE, .ZR. IF NO LINE NUMBER WAS SPECIFIED (*WARNING* ERROR -- LEX      1179
                                        *         LINE TREATED AS COMMENT).                                      LEX      1180
                                        *                                                                        LEX      1181
                                        *         (LN=NUML) = LINE NR IN -L- FORMAT.                             LEX      1182
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    59
                                                                      LN=NUM
  
                                        *         (LN=NUMR) = LINE NR IN -R- FORMAT.                             LEX      1183
                                                                                                                 LEX      1184
                                                                                                                 LEX      1185
            12                     1     LN=NUML  BSSZ   1                                                       LEX      1186
            13                     1     LN=NUMR  BSSZ   1                                                       LEX      1187
  
  
  
  
                                        **        LN=TYPE - LINE TYPE.                                           LEX      1189
                                        *                                                                        LEX      1190
                                        *                                                                        LEX      1191
                                        *         *LN=TYPE* CONTAINS THE LINE TYPE OF THE SOURCE LINE            LEX      1192
                                        *         AT (CP.CARD) ET SEQ.  *LN=TYPE* IS SET UP BY *CLN*             LEX      1193
                                        *         (CLASSIFY LINE) AND IS QUERIED THROUGHOUT *LEX* WHEN           LEX      1194
                                        *         THE LINE TYPE IS NEEDED.                                       LEX      1195
                                        *                                                                        LEX      1196
                                        *         LINE TYPES ARE DEFINED BY *LT.* SYMBOLS --                     LEX      1197
                                        *                                                                        LEX      1198
                                        *           LT.UNTYP = LINE IS UNTYPED.                                  LEX      1199
                                        *           LT.INIT  = LINE IS INITIAL LINE OF STMT.                     LEX      1200
                                        *           LT.CONT  = LINE IS CONTINUATION LINE.                        LEX      1201
                                        *           LT.CMNT  = LINE IS COMMENT LINE.                             LEX      1202
                                        *           LT.NULL  = LINE IS NULL (ALL BLANK).                         LEX      1203
                                        *           LT.C$    = LINE IS *C$* LINE (COMPILER DIRECTIVE).           LEX      1204
                                        *           LT.EOR   = EOR/EOF/EOI ENCOUNTERED.                          LEX      1205
                                                                                                                 LEX      1206
                                                                                                                 LEX      1207
            14                     1     LN=TYPE  BSSZ   1                                                       LEX      1208
                                                                                                                 LEX      1209
                                                                                                                 LEX      1210
                                   0     LT.UNTYP =      0                                                       LEX      1211
                                   1     LT.INIT  =      1                                                       LEX      1212
                                   2     LT.CONT  =      2                                                       LEX      1213
                                   3     LT.CMNT  =      3                                                       LEX      1214
                                   4     LT.NULL  =      4                                                       LEX      1215
                                   5     LT.C$    =      5                                                       LEX      1216
                                   6     LT.EOR   =      6                                                       LEX      1217
  
  
  
  
                                        **        MX= - CHARACTER SHIFT MASKS.                                   LEX      1219
                                        *                                                                        LEX      1220
                                        *                                                                        LEX      1221
                                        *         CHARACTER SHIFT MASKS ARE OF THE FORM *MX=AAA*, WHERE *AAA*    LEX      1222
                                        *         IS A UNIQUE MASK NAME.                                         LEX      1223
                                                                                                                 LEX      1224
                                                                                                                 LEX      1225
                                         A        CHMIC  (0,1,2,3,4,5,6,7,8,9),BICH                              LEX      1226
            15  00001777000000000000     MX=0..9  DATA   "A"                                                     LEX      1227
                                                                                                                 LEX      1228
                                         B        CHMIC  (*,C)                                                   LEX      1229
            16  04000000000004000000     MX=CMNT  DATA   "B"                                                     LEX      1230
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    60
                                                                      SB./SB= 
  
                                        ***       SB./SB= - *T.STMT* (STMT BUFFER) INFORMATION CELLS.            LEX      1232
                                        *                                                                        LEX      1233
                                        *                                                                        LEX      1234
                                        *         SYMBOLS WITH THE PREFIX *SB.* OR *SB=* DESCRIBE OR CONTAIN     LEX      1235
                                        *         INFORMATION ABOUT *T.STMT*, THE STMT BUFFER.                   LEX      1236
  
  
  
  
                                        **        SB. - *T.STMT* (STMT BUFFER) STRUCTURE DEFINITIONS.            LEX      1238
                                        *                                                                        LEX      1239
                                        *                                                                        LEX      1240
                                        *         SYMBOLS OF THE FORM *SB.XXXP* AND *SB.XXXL* DESCRIBE/DEFINE    LEX      1241
                                        *         THE *LINE INFORMATION* HEADER WORD THAT PRECEDES EVERY         LEX      1242
                                        *         SOURCE LINE IN *T.STMT*.                                       LEX      1243
                                        *                                                                        LEX      1244
                                        *         FIELDS, *XXX*, WITHIN *SB.* STRUCTURE REFER TO A SINGLE        LEX      1245
                                        *         LINE INFORMATION HEADER WORD, AND ARE --                       LEX      1246
                                        *                                                                        LEX      1247
                                        *         LEN  = NR OF WORDS IN THIS *T.STMT* LINE ENTRY.  I.E. LEN      LEX      1248
                                        *                OF ENTIRE LISTABLE SOURCE LINE (INCLUDING FULL WORD EOL LEX      1249
                                        *                MARK) BEGINNING AT *CP.FLIN*, + 1 FOR LINE INFORMATION  LEX      1250
                                        *                HEADER WORD ITSELF.                                     LEX      1251
                                        *                                                                        LEX      1252
                                        *         LIST = 1  IF THIS LINE WAS LISTED VIA *PLR*, ELSE 0.           LEX      1253
                                        *                                                                        LEX      1254
                                        *                USED AS COMMUNICATION BETWEEN *PLR* (PROCESS LISTING    LEX      1255
                                        *                REQUEST) AND *LDB* (LIST DEFERRED BUFFER).  THIS FLAG   LEX      1256
                                        *                IS NECESSARY SO THAT *LDB* CAN KNOW WHETHER *PLR*       LEX      1257
                                        *                ACTUALLY LISTED A PARTICULAR SOURCE LINE IN *T.STMT*.   LEX      1258
                                        *                                                                        LEX      1259
                                        *                I.E. THIS BIT PREVENTS A LINE FROM POSSIBLY GETTING     LEX      1260
                                        *                LISTED TWICE: ONCE BY *PLR* AND AGAIN BY *LDB*.         LEX      1261
                                        *                                                                        LEX      1262
                                        *         LNT  = LINE TYPE. THIS IS A COPY OF (LN=TYPE), AND IS          LEX      1263
                                        *                CARRIED ALONG WITH EACH SOURCE LINE SO THAT ANY         LEX      1264
                                        *                INTERESTED PARTIES CAN KNOW THE LINE TYPE OF THE        LEX      1265
                                        *                FOLLOWING LINE IN *T.STMT*.                             LEX      1266
                                        *                                                                        LEX      1267
                                        *                NOTE: CURRENTLY, THIS FIELD IS SET UP BUT **UNUSED**.   LEX      1268
                                                                                                                 LEX      1269
                                                                                                                 LEX      1270
                                                  DESCRIBE SB.                                                   LEX      1271
      L     73  40000000000000000000     LOUT     DEFINE 1                                                       LEX      1272
      L     72  20000000000000000000     LERR     DEFINE 1                                                       LEX      1273
      L     71  10000000000000000000     LIST     DEFINE 1                                                       LEX      1274
      L     47  07777770000000000000     FEN      DEFINE 18                                                      LEX      1275
      L     41  00000007700000000000     FENB     DEFINE 6                                                       LEX      1276
      L     30  00000000077700000000     FENL     DEFINE 9                                                       LEX      1277
      L     22  00000000000077000000     LNT      DEFINE 6                                                       LEX      1278
      L      0  00000000000000777777     LEN      DEFINE 18                                                      LEX      1279
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    61
                                                                      SB=CONT 
  
                                        **        SB=CONT - CONTINUATION LINE COUNT.                             LEX      1281
                                        *                                                                        LEX      1282
                                        *                                                                        LEX      1283
                                        *         *SB=CONT* CONTAINS THE NR OF CONTINUATION LINES FOR            LEX      1284
                                        *         THE CURRENT STMT IN *T.STMT*, AND IS USED IN THE FOLLOWING     LEX      1285
                                        *         WAYS --                                                        LEX      1286
                                        *                                                                        LEX      1287
                                        *           1. (SB=CONT) IS USED BY *LEX*S MAIN LOOP IN DETERMINING      LEX      1288
                                        *              IF AND WHEN TO ISSUE THE *THIS STMT HAS TOO MANY          LEX      1289
                                        *              CONTINUATION LINES* ERROR MSG.                            LEX      1290
                                        *                                                                        LEX      1291
                                        *              THIS ERROR MSG IS ISSUED IF THE NR OF CONTINUATION LINES  LEX      1292
                                        *              EVER EXCEDES *ANS.CONT* (MAXIMUM ANSI CONTINUATION LINE   LEX      1293
                                        *              COUNT).                                                   LEX      1294
                                        *                                                                        LEX      1295
                                        *           2. (SB=CONT) IS ALSO USED BY *LCC* (PROCESS LOADER           LEX      1296
                                        *              DIRECTIVES) IN DECK *KEY* IN DETERMINING WHETHER          LEX      1297
                                        *              OR NOT TO ISSUE AN ERROR MSG IF A LOADER DIRECTIVE        LEX      1298
                                        *              IS CONTINUED (THEY MAY NOT BE).                           LEX      1299
                                                                                                                 LEX      1300
                                                                                                                 LEX      1301
            17                     1     SB=CONT  BSZENT 1                                                       LEX      1302
  
  
  
  
                                        **        SB=LINC - *T.SMT* LINE COUNT.                                  LEX      1304
                                        *                                                                        LEX      1305
                                        *                                                                        LEX      1306
                                        *         *SB=LINC* CONTAINS THE NR OF LINES CURRENTLY IN *T.STMT*,      LEX      1307
                                                                                                                 LEX      1328
            20                     1     SB=LINC  BSZENT 1                                                       LEX      1329
  
  
  
  
                                        **        SB=LORD - ORD OF LAST/LATEST LINE IN *T.STMT*.                 LEX      1331
                                        *                                                                        LEX      1332
                                        *                                                                        LEX      1333
                                        *         *SB=LORD* CONTAINS THE ORDINAL INTO *T.STMT* OF THE LAST       LEX      1334
                                        *         LINE THAT WAS MOVED TO *T.STMT*.  *SB=LORD* IS SET UP          LEX      1335
                                        *         BY *PLR* (PROCESS LISTING REQUEST) WHEN IT MOVES A LINE        LEX      1336
                                        *         FROM *CP.FLIN/CP.CARD* ET SEQ TO *T.STMT*, AND IS USED         LEX      1337
                                        *         FOR 2 PURPOSES --                                              LEX      1338
                                        *                                                                        LEX      1339
                                        *           1. *PLR* ITSELF USES (SB=LORD) IN SETTING THE *SB.LOUTP*     LEX      1340
                                        *              BIT IN THE *LINE INFORMATION* WORD OF THE LINE IT IS      LEX      1341
                                        *              PROCESSING.  THIS OCCURS BECAUSE THE PROCESSING THAT      LEX      1342
                                        *              ACTUALLY MOVES A SOURCE LINE TO *T.STMT* AND THE          LEX      1343
                                        *              PROCESSING THAT SETS THE *SB.LOUTP* BIT WITHIN *PLR*,     LEX      1344
                                        *              ARE SUFFICIENTLY FAR APART THAT THE ORDINAL OF THE        LEX      1345
                                        *              LINE WE ARE PROCESSING **MUST** BE SAVED IN *SB=LORD*.    LEX      1346
                                        *                                                                        LEX      1347
                                        *           2. (SB=LORD) ARE ALSO USED IN THE MAIN LOOP OF *LEX*,        LEX      1348
                                        *              RIGHT BEFORE INVOKING *TOK* (TOKEN GENERATOR), FOR        LEX      1349
                                        *              THE RELOCATION OF (TC=SOA) AND (LN=FEN).                  LEX      1350
                                        *                                                                        LEX      1351
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    62
                                                                      SB=LORD 
  
                                        *              THAT IS, (TC=SOA) AND (LN=FEN) ARE CONVERTED FROM         LEX      1352
                                        *              ORDINALS RELATIVE TO *CP.FLIN* INTO HARD ADDRESSES        LEX      1353
                                        *              VIA (SB=LORD).                                            LEX      1354
                                                                                                                 LEX      1355
            21                     1     SB=LORD  BSZENT 1                                                       LEX      1356
  
  
  
  
                                        ***       TB= - TOKEN BUFFER/STATEMENT INFORMATION.                      LEX      1358
                                        *                                                                        LEX      1359
                                        *                                                                        LEX      1360
                                        *         SYMBOLS OF THE FORM *TB=XXX* (WHERE *XXX* IS A UNIQUE NAME)    LEX      1361
                                        *         CONTAIN INFORMATION ABOUT THE CURRENT STATEMENT AT *T.TB*.     LEX      1362
                                        *         THESE CELLS ARE SET UP BY *LEX* AND ARE QUERIED THROUGHOUT     LEX      1363
                                        *         THE COMPILER WHEN INFORMATION ABOUT THE STMT AT *T.TB* IS      LEX      1364
                                        *         DESIRED.  THESE *TB=* CELLS ARE, THEREFORE, GLOBAL COMPILER    LEX      1365
                                        *         INFORMATION CELLS.                                             LEX      1366
                                        *                                                                        LEX      1367
                                        *         IT CAN BE SEEN THAT THESE *TB=* CELLS HAVE A LOGICAL           LEX      1368
                                        *         RELATIONSHIP TO THE *LN=* LINE INFORMATION CELLS.  ??MORE??    LEX      1369
  
  
  
  
                                        **        TB=1ST - ADDR OF 1ST NON-KEYWORD TOKEN IN *T.TB*.              LEX      1371
                                        *                                                                        LEX      1372
                                        *                                                                        LEX      1373
                                        *         *TB=1ST* CONTAINS THE ADDR OF THE 1ST NON-KEYWORD TOKEN        LEX      1374
                                        *         IN THE TOKEN BUFFER, *T.TB*.  (TB=1ST) CONTAINS, THEREFORE,    LEX      1375
                                        *         THE ADDR OF THE 1ST TOKEN THAT A STMT PROCESSOR IS TO BEGIN    LEX      1376
                                        *         SCANNING.                                                      LEX      1377
                                        *                                                                        LEX      1378
                                        *         *TB=1ST* IS ONLY NECESSARY BECAUSE THE TOKEN BUFFER, *T.TB*,   LEX      1379
                                        *         IS ONLY A QUASI-MANAGED TABLE.  THAT IS, IT IS DEFINED TO      LEX      1380
                                        *         BE A MANAGED TABLE BUT IT CAN ONLY GROW OR SHRINK.  IT         LEX      1381
                                        *         **CAN NOT** AND **MUST NOT** MOVE BECAUSE ALL REFS INTO IT     LEX      1382
                                        *         ARE VIA HARD ADDRESSES (I.E. NOT ORDINALS).                    LEX      1383
                                        *                                                                        LEX      1384
                                        *         THE ABOVE IMPLIES THAT *T.TB* (THE CELL CONTAINING THE FWA     LEX      1385
                                        *         OF THE TOKEN BUFFER) MUST NOT CHANGE, I.E. ITS VALUE IS        LEX      1386
                                        *         FIXED AT MANAGED TABLE SET-UP-TIME AND THEREAFTER REMAINS      LEX      1387
                                        *         CONSTANT.                                                      LEX      1388
                                        *                                                                        LEX      1389
                                        *         *TB=1ST* IS ESSENTIALLY A COMPANION CELL TO *T.TB*.  IT IS     LEX      1390
                                        *         USED WHEN WE WOULD LIKE TO SHORTEN THE TOKEN BUFFER FROM       LEX      1391
                                        *         ITS FRONT-END (I.E. RESET *T.TB*), BUT CANNOT FOR FEAR THAT    LEX      1392
                                        *         IF WE DO, THE TABLE MANAGER MIGHT MOVE THE TOKEN BUFFER.       LEX      1393
                                                                                                                 LEX      1394
                                                                                                                 LEX      1395
            22  00000000000000000000     TB=1ST   CONENT 0                                                       LEX      1396
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    63
                                                                      TB=CDF
  
                                        **        TB=CDF - C$ FLAG.                                              LEX      1398
                                        *                                                                        LEX      1399
                                        *                                                                        LEX      1400
                                        *         *TB=CDF* IS A FLAG THAT INDICATES WHETHER OR NOT THE STATEMENT LEX      1401
                                        *         IN *T.TB* IS ON A *C$* LINE OR NOT AND IS USED BY *CST* TO     LEX      1402
                                        *         DETERMINE WHETHER OR NOT THIS STATEMENT **BELONGS** ON A *C$*  LEX      1403
                                        *         LINE.                                                          LEX      1404
                                        *                                                                        LEX      1405
                                        *         FOR EXAMPLE --                                                 LEX      1406
                                        *                                                                        LEX      1407
                                        *                C$    LIST(S=0)         DOES, BUT...                    LEX      1408
                                        *                                                                        LEX      1409
                                        *                C$    A = B             DOES NOT.                       LEX      1410
                                        *                                                                        LEX      1411
                                        *         (TB=CDF) = 1 IF STATEMENT IN *T.TB* IS ON A *C$* LINE, ELSE 0. LEX      1412
                                                                                                                 LEX      1413
                                                                                                                 LEX      1414
            23                     1     TB=CDF   BSSZ   1                                                       LEX      1415
  
  
  
  
                                        **        TB=LABL/TB=LABR - STATEMENT LABEL.                             LEX      1417
                                        *                                                                        LEX      1418
                                        *                                                                        LEX      1419
                                        *         *TB=LABL* AND *TB=LABR* CONTAIN THE LABEL OF THE               LEX      1420
                                        *         1ST (I.E. THE INITIAL) LINE OF STMT AT *T.TB* IN -L-           LEX      1421
                                        *         AND -R- FORMATS RESPECTIVELY.                                  LEX      1422
                                        *                                                                        LEX      1423
                                        *         (TB=LABL) = STMT LABEL IN -L- FORMAT.                          LEX      1424
                                        *         (TB=LABR) = STMT LABEL IN -R- FORMAT.                          LEX      1425
                                                                                                                 LEX      1426
            24                     1     TB=LABL  BSZENT 1                                                       LEX      1427
            25                     1     TB=LABR  BSZENT 1                                                       LEX      1428
  
  
  
  
                                        **        TB=LLP - LAST LEFT PAREN.                                      LEX      1430
                                        *                                                                        LEX      1431
                                        *                                                                        LEX      1432
                                        *         *TB=LLP* CONTAINS THE ADDR IN *T.TB* OF THE LAST LEFT          LEX      1433
                                        *         PAREN (O.LP) TOKEN GENERATED AT A PAREN LEVEL **GREATER**      LEX      1434
                                        *         THAN 0.                                                        LEX      1435
                                        *                                                                        LEX      1436
                                        *         (TB=LLP) IS SET EVERYTIME *TOK* GENERATES AN *O.LP* TOKEN,     LEX      1437
                                        *         AND IS CLEARED WHEN AN *O.RP* TOKEN CAUSES THE PAREN LEVEL     LEX      1438
                                        *         TO GO TO ZERO.                                                 LEX      1439
                                        *                                                                        LEX      1440
                                        *         *TB=LLP* IS USED SO THAT *LEX* CAN LINK INTERESTING LEFT       LEX      1441
                                        *         PARENS TO ONE ANOTHER AND ALSO TO THEIR MATCHING RIGHT         LEX      1442
                                        *         PAREN.                                                         LEX      1443
                                        *                                                                        LEX      1444
                                        *         THIS *LINKED PAREN* INFORMATION WILL BE USED BY THE PARSER     LEX      1445
                                        *         AND BY THE DECK *IO* TO SIMPLIFY THEIR SYNTACTIC HANDLING      LEX      1446
                                        *         OF LEFT/RIGHT PAREN PAIRS.                                     LEX      1447
                                        *                                                                        LEX      1448
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    64
                                                                      TB=LLP
  
                                        *         CONSIDER THE FOLLOWING EXAMPLE: A STATEMENT IN WHICH ONLY THE  LEX      1449
                                        *         LEFT AND RIGHT PARENS ARE SHOWN.  *O.LP* TOKENS WILL BE LINKED LEX      1450
                                        *         DURING TOKEN GENERATION IN THE FOLLOWING MANNER (PLUS SIGN +   LEX      1451
                                        *         IS USED IN LIEU OF AN ARROW-HEAD) --                           LEX      1452
                                        *                                                                        LEX      1453
                                        *                ...... ............                                     LEX      1454
                                        *           LLP  .    . .          .                                     LEX      1455
                                        *                +    . +          .                                     LEX      1456
                                        *                (     (     )     (     )     )     (     )             LEX      1457
                                        *                .     .     +     .     +     +     .     +             LEX      1458
                                        *           IOCP .     .     .     .     .     .     .     .             LEX      1459
                                        *                .     .......     .......     .     .......             LEX      1460
                                        *                .                             .                         LEX      1461
                                        *                ...............................                         LEX      1462
                                        *                                                                        LEX      1463
                                        *         IT CAN BE SEEN THAT LEFT-PARENS ARE LINKED **BACKWARDS** TO    LEX      1464
                                        *         A PREVIOUS LEFT PAREN IN THE SAME PAREN NEST, AND THAT LEFT    LEX      1465
                                        *         PARENS ARE ALSO LINKED **FORWARD** TO THEIR MATCHING RIGHT     LEX      1466
                                        *         PAREN.                                                         LEX      1467
                                        *                                                                        LEX      1468
                                        *         NOTE THAT THE RIGHT-MOST LEFT PAREN IS NOT LINKED BACK TO      LEX      1469
                                        *         ANOTHER LEFT PAREN BECAUSE IT CONSTITUTES THE BEGINNING OF     LEX      1470
                                        *         ANOTHER PAREN NEST (I.E. IT OCCURS AT PAREN LEVEL 0).          LEX      1471
                                        *                                                                        LEX      1472
                                        *         NOTE ALSO THAT **ALL** LINKING INFORMATION RESIDES IN THE      LEX      1473
                                        *         *TB.LLP* AND *TB.IOCP* FIELDS IN THE *O.LP* TOKEN(S)...THE     LEX      1474
                                        *         *O.RP* TOKENS ARE UNTOUCHED.                                   LEX      1475
                                        *                                                                        LEX      1476
                                        *         SEE *TOK=LP* (TOKEN GENERATOR/LEFT PAREN PROCESSOR) AND        LEX      1477
                                        *         *TOK=RP* (TOKEN GENERATOR/RIGHT PAREN PROCESSOR) FOR MORE      LEX      1478
                                        *         INFORMATION.                                                   LEX      1479
                                                                                                                 LEX      1480
                                                                                                                 LEX      1481
            26                     1     TB=LLP   BSSZ   1                                                       LEX      1482
  
  
  
  
                                        **        TB=NUML/TB=NUMR - STATEMENT LINE NUMBER.                       LEX      1484
                                        *                                                                        LEX      1485
                                        *                                                                        LEX      1486
                                        *         *TB=NUML* AND *TB=NUMR* CONTAIN THE LINE NUMBER OF THE         LEX      1487
                                        *         1ST (I.E. THE INITIAL) LINE OF THE STMT AT *T.TB* IN -L-       LEX      1488
                                        *         AND -R- FORMATS RESPECTIVELY.                                  LEX      1489
                                        *                                                                        LEX      1490
                                        *         THIS LINE NUMBER IS USED BY THE COMPILER FOR --                LEX      1491
                                        *                                                                        LEX      1492
                                        *           1. SETTING UP THE REFERENCE MAP REFERENCES FOR SYMBOLS       LEX      1493
                                        *              THAT OCCUR IN THIS STMT.                                  LEX      1494
                                        *                                                                        LEX      1495
                                        *           2. SETTING UP TRACEBACK INFORMATION THAT IS TO BE PASSED     LEX      1496
                                        *              TO THE FTN LIBRARY (USED FOR DIAGNOSING ERRORS AT         LEX      1497
                                        *              EXECUTION TIME).                                          LEX      1498
                                        *                                                                        LEX      1499
                                        *         NOTE THAT *TB=NUML/TB=NUMR* ARE BOTH DERIVED FROM              LEX      1500
                                        *         *LN=NUML/LN=NUMR*.                                             LEX      1501
                                        *                                                                        LEX      1502
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    65
                                                                      TB=NUM
  
                                        *         (TB=NUML) = STMT LINE NR IN -L- FORMAT.                        LEX      1503
                                        *         (TB=NUMR) = STMT LINE NR IN -R- FORMAT.                        LEX      1504
                                                                                                                 LEX      1505
                                                                                                                 LEX      1506
            27                     1     TB=NUML  BSZENT 1                                                       LEX      1507
            30                     1     TB=NUMR  BSZENT 1                                                       LEX      1508
  
  
  
  
                                        **        TB=PLVL - PARENTHESIS LEVEL.                                   LEX      1510
                                        *                                                                        LEX      1511
                                        *                                                                        LEX      1512
                                        *         *TB=PLVL* CONTAINS THE CURRENT PAREN LEVEL DURING TOKEN        LEX      1513
                                        *         GENERATION.  DURING THE LEFT-TO-RIGHT ENTOKENING PASS          LEX      1514
                                        *         MADE BY *TOK* ACROSS EACH SOURCE STMT, (TB=PLVL) ARE           LEX      1515
                                        *         INCREMENTED FOR EACH LEFT-PAREN *(*, AND DECREMENTED           LEX      1516
                                        *         FOR EACH RIGHT-PAREN *)* ENCOUNTERED.                          LEX      1517
                                        *                                                                        LEX      1518
                                        *         *TB=PLVL* IS USED PRIMARILY FOR DETERMINING WHEN TO SET        LEX      1519
                                        *         THE *ZL* (ZERO LEVEL) CELLS.                                   LEX      1520
                                                                                                                 LEX      1521
                                                                                                                 LEX      1522
            31  00000000000000000000     TB=PLVL  CONENT 0                                                       LEX      1523
  
  
  
  
                                        **        TB=TYPE - STATEMENT TYPE.                                      LEX      1525
                                        *                                                                        LEX      1526
                                        *                                                                        LEX      1527
                                        *         *TB=TYPE* CONTAINS THE ADDR OF THE STATEMENT PROCESSOR         LEX      1528
                                        *         THAT IS TO PROCESS THE STMT AT *T.TB*.  THIS CELL IS           LEX      1529
                                        *         SET UP VIA *CST* (CLASSIFY STATEMENT) AND IS USED BY           LEX      1530
                                        *         THE FRONT END CONTROLLER (FEC) TO TRANSFER CONTROL TO          LEX      1531
                                        *         THE APPROPRIATE STMT PROCESSOR.                                LEX      1532
                                                                                                                 LEX      1533
                                                                                                                 LEX      1534
            32  00000000000000000000     TB=TYPE  CONENT 0                                                       LEX      1535
  
  
  
  
                                        **        TOKCOM - USER/TOK COMMUNICATIONS AREA.                         LEX      1537
                                        *                                                                        LEX      1538
                                        *                                                                        LEX      1539
                                        *         *TOKCOM* CONTAINS INFORMATION THAT IS TO BE PASSED BETWEEN     LEX      1540
                                        *         *LEX* AND *TOK*.  LOCATIONS WITHIN *TOKCOM* ARE DEFINED VIA    LEX      1541
                                        *         ORDINALS INTO *TOKCOM*.  THESE ORDINALS ARE DEFINED VIA        LEX      1542
                                        *         SYMBOLS OF THE FORM --                                         LEX      1543
                                        *                                                                        LEX      1544
                                        *                TC.XXX                                                  LEX      1545
                                        *                                                                        LEX      1546
                                        *         WHERE *TC.* IS A COMMON PREFIX, AND *XXX* IS A *TOKCOM*        LEX      1547
                                        *         LOCATION ORDINAL NAME  (*TC.XXX* SYMBOLS ARE DEFINED           LEX      1548
                                        *         IN *COMSTOK*).  **ALL** REFERENCES INTO *TOKCOM* SHOULD BE VIA LEX      1549
                                        *         *TC.XXX* SYMBOLS.                                              LEX      1550
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    66
                                                                      TOKCOM
  
                                                                                                                 LEX      1551
                                                                                                                 LEX      1552
            33                    20     FW.TCOM  BSSZ   L.TCOM                                                  LEX      1553
                                                                                                                 LEX      1554
                                                                                                                 LEX      1555
      L     33                                    LOC    FW.TCOM                                                 LEX      1556
                                  37 +   TC=P     =      *+TC.P                                                  LEX      1557
                                  40 +   TC=SOA   =      *+TC.SOA                                                LEX      1558
                                  41 +   TC=SOX   =      *+TC.SOX                                                LEX      1559
                                  42 +   TC=SOL   =      *+TC.SOL                                                LEX      1560
                                  43 +   TC=SOB   =      *+TC.SOB                                                LEX      1561
                                  44 +   TC=SOC   =      *+TC.SOC                                                LEX      1562
                                  45 +   TC=TBA   =      *+TC.TBA                                                LEX      1563
                                  46 +   TC=TBB   =      *+TC.TBB                                                LEX      1564
                                  47 +   TC=RSF   =      *+TC.RSF                                                LEX      1565
                                  50 +   TC=BOL   =      *+TC.BOL                                                LEX      1566
                                  51 +   TC=EOL   =      *+TC.EOL                                                LEX      1567
                                  52 +   TC=REST  =      *+TC.REST                                               LEX      1568
            53                                    LOC    *O                                                      LEX      1569
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    67
        KEYW - FTN KEYWORD TABLE.                                     KEYW
  
                                        ***       KEYW - FTN KEYWORD TABLE.                                      LEX      1571
                                        *                                                                        LEX      1572
                                        *                                                                        LEX      1573
                                        *         THIS SECTION CONTAINS THE FTN KEYWORD TABLE (FWA AT            LEX      1574
                                        *         *FW.KEYW*).  THIS *KEYW* TABLE CONTAINS ONE ENTRY              LEX      1575
                                        *         (DEFINED VIA *KEYW* MACRO) FOR EACH POSSIBLE FTN               LEX      1576
                                        *         STMT.  THIS *KEYW* TABLE CONTAINS INFORMATION THAT IS          LEX      1577
                                        *         USED IN 2 DIFFERENT WAYS --                                    LEX      1578
                                        *                                                                        LEX      1579
                                        *           1. IN DETERMINING THE TYPE OF A STMT (I.E. IN DETERMINING    LEX      1580
                                        *              WHICH STMT PROCESSOR IS TO PROCESS A PARTICULAR STMT),    LEX      1581
                                        *              *CST* (CLASSIFY STMT TYPE) USES THE *KEYW* TABLE DURING   LEX      1582
                                        *              ITS KEYWORD SEARCH: EACH *KEYW* ENTRY CONTAINS THE ADDR   LEX      1583
                                        *              OF A LITERAL STRING THAT IS A FTN KEYWORD.  *CST* TRIES   LEX      1584
                                        *              TO MATCH THE KEYWORD THAT OCCURS ON A STMT WITH AN ENTRY  LEX      1585
                                        *              IN THE *KEYW* TABLE.                                      LEX      1586
                                        *                                                                        LEX      1587
                                        *              EXCEPTION: STMTS THAT ARE SYNTACTICALLY DEFINED, SUCH AS  LEX      1588
                                        *              THE REPLACEMENT STMT, ARE SPECIAL-CASED (I.E. NO KEYWORD  LEX      1589
                                        *              SEARCH IS PERFORMED).  HOWEVER, THESE SYNTACTICALLY       LEX      1590
                                        *              DEFINED STMTS DO HAVE A SPECIAL *KEYW* ENTRY...SEE        LEX      1591
                                        *              BELOW.                                                    LEX      1592
                                        *                                                                        LEX      1593
                                        *           2. AFTER A STMT HAS BEEN TYPED (I.E. AFTER A *KEYW* ENTRY    LEX      1594
                                        *              HAS BEEN CHOSEN FOR A STMT), *CST* TRANSFERS THE          LEX      1595
                                        *              APPROPRIATE *KEYW* ENTRY TO (TB=TYPE).  IN THIS WAY,      LEX      1596
                                        *              ANYBODY WHO IS INTERESTED IN THIS STMTS *KEYW* ENTRY      LEX      1597
                                        *              CAN KNOW WHERE TO FIND IT.  THIS IMPLIES, OF COURSE,      LEX      1598
                                        *              THAT A STMTS *KEYW* ENTRY CONTAINS SOMETHING OF INTEREST  LEX      1599
                                        *              TO THE REST OF THE COMPILER...SEE BELOW.                  LEX      1600
                                        *                                                                        LEX      1601
                                        *         FIELDS WITHIN EACH INDIVIDUAL *KEYW* ENTRY ARE                 LEX      1602
                                        *         DESCRIBE/DEFINED IN THE USUAL MANNER VIA SYMBOLS               LEX      1603
                                        *         OF THE FORM --                                                 LEX      1604
                                        *                                                                        LEX      1605
                                        *                KW.XXXL  AND  KW.XXXP                                   LEX      1606
                                        *                                                                        LEX      1607
                                        *         WHERE *KW.* IS A COMMON PREFIX AND *XXX* IS A UNIQUE FIELD     LEX      1608
                                        *         NAME.                                                          LEX      1609
                                        *                                                                        LEX      1610
                                        *         FIELDS *XXX* WITHIN *KW.* STRUCTURE ARE --                     LEX      1611
                                        *                                                                        LEX      1612
                                        *         KEY  = ADDR OF SPECIAL LITERAL STRING (GENERATED VIA           LEX      1613
                                        *                *LITKEY* MACRO IN *FTN5TXT*) THAT CONTAINS THE          LEX      1614
                                        *                CHARACTERS THAT CONSTITUTE THIS *FORTRAN* KEYWORD.      LEX      1615
                                        *                                                                        LEX      1616
                                        *                THE *LITKEY* MACRO GENERATES THE KEYWORD IN             LEX      1617
                                        *                TOKEN-SIZE CHUNKS OF 7 CHARS PER WORD, WHERE EACH       LEX      1618
                                        *                CHUNK IS IN -L- FMT.                                    LEX      1619
                                        *                                                                        LEX      1620
                                        *                E.G. *SUBROUTINE* BECOMES --                            LEX      1621
                                        *                  0LSUBROUT                                             LEX      1622
                                        *                  0LINE                                                 LEX      1623
                                        *                                                                        LEX      1624
                                        *                *CST* (CLASSIFY STATEMENT) IN DECK *LEX* WILL TRY       LEX      1625
                                        *                AND MATCH THE 1ST *O.VAR* TOKEN IN EACH STMT WITH       LEX      1626
                                        *                ONE OF THE *KEY* LITERALS.  IF A MATCH IS FOUND,        LEX      1627
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    68
        KEYW - FTN KEYWORD TABLE.                                     KEYW
  
                                        *                THEN THE *JMP* FIELD OF THIS MATCHING *KEYW* ENTRY      LEX      1628
                                        *                CONTAINS THE ADDR OF THE STMT PROCESSOR THAT IS         LEX      1629
                                        *                TO PROCESS THIS STMT.                                   LEX      1630
                                        *                                                                        LEX      1631
                                        *                NOTE THAT FOR SYNTACTICALLY DEFINED STMTS SUCH AS       LEX      1632
                                        *                *DO*, *IF*, AND REPLACEMENT, THAT NO KEYWORD SEARCH     LEX      1633
                                        *                IS PERFORMED AND THE *KEY* FIELD IS SET TO .MI. SO      LEX      1634
                                        *                THAT INTERESTED PARTIES CAN KNOW THAT THIS IS A         LEX      1635
                                        *                SYNTACTICALLY DEFINED STMT.                             LEX      1636
                                        *                                                                        LEX      1637
                                        *         LEN  = LENGTH OF KEYWORD (IN BITS).                            LEX      1638
                                        *                                                                        LEX      1639
                                        *         JMP  = ADDR OF THE STMT PROCESSOR THAT IS TO PROCESS A STMT    LEX      1640
                                        *                DEFINED BY THIS *KEYW* ENTRY.                           LEX      1641
                                        *                                                                        LEX      1642
                                        *         FEC  = *FEC* (FRONT END CONTROLLER) STAGE THAT A STMT          LEX      1643
                                        *                WITH THIS *KEYW* ENTRY CAN OCCUR IN...WHAT MANNER       LEX      1644
                                        *                OF BARSOOMIAN MADNESS IS THIS (SEE *FEC=* IN DECK       LEX      1645
                                        *                *FEC* FOR MORE, NOT MUCH MORE, INFO).                   LEX      1646
                                        *                                                                        LEX      1647
                                        *         ATTR = ATTRIBUTES OF THIS STATEMENT.  *ATTR* FIELD CONSISTS    LEX      1648
                                        *                OF A NUMBER OF BIT FLAGS THAT CONTAIN MISCELLANEOUS     LEX      1649
                                        *                INFORMATION ABOUT THIS STMT.  SEE BELOW.                LEX      1650
                                        *                                                                        LEX      1651
                                        *                                                                        LEX      1652
                                        *         *ATTR* BIT FLAGS ARE --                                        LEX      1653
                                        *                                                                        LEX      1654
                                        *         DON  = 1 IF THIS STMT MAY NOT BE A *DO* TERMINAL, ELSE 0.      LEX      1655
                                        *                                                                        LEX      1656
                                        *         NIF  = 1 IF THIS STMT MAY NOT BE THE OBJECT OF A LOGICAL       LEX      1657
                                        *                  *IF*, ELSE 0.                                         LEX      1658
                                        *                                                                        LEX      1659
                                        *         LBL  = 1 IF THIS STMT MAY HAVE A REFERRABLE LABEL, ELSE 0.     LEX      1660
                                        *                                                                        LEX      1661
                                        *         GEN  = 1 IF THIS STMT GENERATES CODE, ELSE 0.                  LEX      1662
                                        *                                                                        LEX      1663
                                        *         BKD  = 1 IF THIS STMT IS LEGAL WITH A *BLOCKDATA*              LEX      1664
                                        *                  SUBPROGRAM, ELSE 0.                                   LEX      1665
                                        *                                                                        LEX      1666
                                        *         PWS  = 1 IF THIS STMT IS TO BE PROCESSED WHILE SKIPPING,       LEX      1667
                                        *                  (STAGE = FEC=BY), ELSE 0.                             LEX      1668
                                        *                                                                        LEX      1669
                                        *         IL   = 1 IF THIS STMT HAS IMPLIED LABEL (NOPATH INVALID),      LEX      1670
                                        *                  ELSE 0.                                               LEX      1671
                                                                                                                 LEX      1672
                                                                                                                 LEX      1673
            53                           FW.KEYW  BSS    0           ** FWA OF KEYWORD TABLE **                  LEX      1674
                                                                                                                 LEX      1675
            53                                    KEYW   ASSIGN,EXU,(GEN,LBL)                                    LEX      1676
            54                                    KEYW   BACKSPACE,EXU,(GEN,LBL)                                 LEX      1677
            55                                    KEYW   BLOCKDATA,1ST,(NIF)                                     LEX      1678
            56                                    KEYW   BOOLEAN,TYP,(BKD,NIF)                                   LEX      1679
            57                                    KEYW   BUFFER,EXU,(GEN,LBL)                                    LEX      1680
            60                                    KEYW   CALL,EXU,(GEN,LBL)                                      LEX      1681
            61                                    KEYW   CHARACTER,TYP,(BKD,NIF)                                 LEX      1682
            62                                    KEYW   CLOSE,EXU,(GEN,LBL)                                     LEX      1683
            63                                    KEYW   COMMON,DEC,(BKD,NIF)                                    LEX      1684
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    69
        KEYW - FTN KEYWORD TABLE.                                     KEYW
  
            64                                    KEYW   COMPLEX,TYP,(BKD,NIF)                                   LEX      1685
            65                                    KEYW   CONTINUE,EXU,(GEN,LBL)                                  LEX      1686
            66                                    KEYW   DATA,DAT,(BKD,NIF,GEN,IL,NBS)                           FC50785    13
            67                                    KEYW   DECODE,EXU,(GEN,LBL)                                    LEX      1688
            70                                    KEYW   DIMENSION,DEC,(BKD,NIF)                                 LEX      1689
            71                                    KEYW   DOUBLEPRECISION,TYP,(BKD,NIF)                           FC5A126    31
            72                                    KEYW   ELSE,EXU,(GEN,NIF,DON,IL)                               LEX      1691
            73                                    KEYW   ENCODE,EXU,(GEN,LBL)                                    LEX      1692
            74                           KY=END   KEYW   END,END,(BKD,DON,GEN,NIF,LBL,IL,PWS)                    LEX      1693
            75                                    KEYW   ENDFILE,EXU,(GEN,LBL)                                   LEX      1694
            76                                    KEYW   ENDIF,EXU,(GEN,LBL,NIF,DON,IL)                          LEX      1695
            77                                    KEYW   ENTRY,ENT,(GEN,NIF,IL)                                  LEX      1696
           100                                    KEYW   EQUIVALENCE,DEC,(BKD,NIF)                               LEX      1697
           101                                    KEYW   EXTERNAL,DEC,(NIF)                                      LEX      1698
           102                                    KEYW   FORMAT,FMT,(LBL,NIF)                                    LEX      1699
           103                                    KEYW   FUNCTION,1ST,(NIF)                                      LEX      1700
           104                                    KEYW   GOTO,EXU,(GEN,LBL)                                      FC5A224     5
           105                                    KEYW   IMPLICIT,IMP,(BKD,NIF)                                  LEX      1702
           106                                    KEYW   INQUIRE,EXU,(GEN,LBL)                                   LEX      1703
           107                                    KEYW   INTEGER,TYP,(BKD,NIF)                                   LEX      1704
           110                                    KEYW   INTRINSIC,DEC,(NIF)                                     LEX      1705
           111                                    KEYW   LEVEL,DEC,(BKD,NIF)                                     LEX      1706
           112                                    KEYW   LOGICAL,TYP,(BKD,NIF)                                   LEX      1707
           113                                    KEYW   NAMELIST,DAT,(NIF)                                      LEX      1708
           114                                    KEYW   OPEN,EXU,(GEN,LBL)                                      LEX      1709
           115                                    KEYW   OVCAP,1ST,(NIF)                                         F1037F5   336
           116                                    KEYW   OVERLAY,1ST,(NIF)                                       LEX      1710
           117                                    KEYW   PARAMETER,PRM,(BKD,NIF)                                 LEX      1711
           120                                    KEYW   PAUSE,EXU,(GEN,LBL)                                     LEX      1712
           121                                    KEYW   PRINT,EXU,(GEN,LBL)                                     LEX      1713
           122                                    KEYW   PROGRAM,1ST,(NIF)                                       LEX      1714
           123                                    KEYW   PUNCH,EXU,(GEN,LBL)                                     LEX      1715
           124                                    KEYW   READ,EXU,(GEN,LBL)                                      LEX      1716
           125                                    KEYW   REAL,TYP,(BKD,NIF)                                      LEX      1717
           126                                    KEYW   RETURN,EXU,(DON,GEN,LBL)                                LEX      1718
           127                                    KEYW   REWIND,EXU,(GEN,LBL)                                    LEX      1719
           130                                    KEYW   SAVE,DEC,(BKD,NIF)                                      LEX      1720
           131                                    KEYW   STOP,EXU,(DON,GEN,LBL)                                  LEX      1721
           132                                    KEYW   SUBROUTINE,1ST,(NIF)                                    LEX      1722
           133                                    KEYW   WRITE,EXU,(GEN,LBL)                                     LEX      1723
                                                                                                                 LEX      1724
                                                                                                                 LEX      1725
                                         .T       IFEQ   TEST,ON                                                 LEX      1726
                                                  KEYW   BREAK,OK,(BKD)                                          LEX      1727
                                                  KEYW   PATCH,OK,(BKD,NIF)                                      LEX      1728
                                         .T       ENDIF                                                          LEX      1729
                                                                                                                 LEX      1730
                                  61     L.KEYW   =      *-FW.KEYW                                               LEX      1731
1       LEX - LEXICAL SCANNER/DATA STRUCTURES.                        COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    70
        KEYW - FTN KEYWORD TABLE.                                     KEYW
  
                                        **        KEYW - SPECIAL ENTRIES FOR SYNTACTICALLY DEFINED STMTS.        LEX      1733
                                                                                                                 LEX      1734
                                                                                                                 LEX      1735
           134  00000000000000000000     UNTYP.   CON    0                                                       LEX      1736
           135                           STF.     KEYW   =SFD,STF,(NIF)                                          LEX      1737
           136                           DO.      KEYW   DO,EXU,(DON,GEN,LBL,NIF)                                LEX      1738
           137                           IF.      KEYW   =IFS,EXU,(GEN,LBL)                                      LEX      1739
           140                           REP.     KEYW   =CNF,EXU,(GEN,LBL)                                      LEX      1740
           141                           EOS      KEYW   =E.ME,END,(BKD,GEN,IL,PWS)                              LEX      1741
  
  
  
  
                                        **        KEY$ - ENTRIES FOR C$ DIRECTIVE KEYWORDS.                      LEX      1743
                                                                                                                 LEX      1744
                                                                                                                 LEX      1745
           142                           FW.KEY$  BSS    0           ** FWA OF C$ DIRECTIVE KEYWORD TABLE **     LEX      1746
                                                                                                                 LEX      1747
           142                                    KEY$   BEGCOM,OK,(BKD)                                         FC50799     6
           143                                    KEY$   COLLATE,OK,(GEN,NBS)                                    FC50785    14
           144                                    KEY$   DO,OK,(GEN,NBS)                                         FC50785    15
           145                                    KEY$   ELSE,OK,(PWS,BKD)                                       LEX      1751
           146                                    KEY$   ENDCOM,OK,(BKD)                                         FC50799     7
           147                                    KEY$   ENDIF,OK,(PWS,BKD)                                      LEX      1753
           150                                    KEY$   IF,OK,(PWS,BKD)                                         LEX      1754
           151                                    KEY$   LIST,OK,(BKD,GEN,NBS)                                   FC50785    16
                                                                                                                 LEX      1756
                                  10     L.KEY$   EQU    *-FW.KEY$                                               LEX      1757
                                                                                                                 LEX      1758
                                                                                                                 LEX      1759
           152  00000000000000000053 +   FW.KEYS  CON    FW.KEYW,FW.KEY$                                         LEX      1760
           153  00000000000000000142 +
           154  00000000000000000061     L.KEYS   CON    L.KEYW,L.KEY$                                           LEX      1761
           155  00000000000000000010
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    71
                                                                      LEX 
  
                                        **        LEX - LEXICAL SCANNER MAIN EXECUTIVE.                          LEX      1765
                                        *                                                                        LEX      1766
                                        *                                                                        LEX      1767
                                        *         THIS IS THE LEXICAL SCANNER MAIN EXECUTIVE WHICH CONTROLS      LEX      1768
                                        *         THE LEXICAL SCANNING FOR A SINGLE SOURCE STATEMENT (INITIAL    LEX      1769
                                        *         LINE PLUS CONTINUATION LINES).                                 LEX      1770
                                        *                                                                        LEX      1771
                                        *         *LEX* IS CALLED BY *FEC* (FRONT END CONTROLLER) ONCE PER       LEX      1772
                                        *         *FORTRAN* SOURCE STATEMENT, AND PERFORMS THE FOLLOWING         LEX      1773
                                        *         TASKS --                                                       LEX      1774
                                        *                                                                        LEX      1775
                                        *           1. READS SOURCE LINES FROM THE SOURCE INPUT FILE, *F.IN*.    LEX      1776
                                        *                                                                        LEX      1777
                                        *           2. LISTS SOURCE LINES TO THE LISTABLE OUTPUT FILE, *F.OUT*.  LEX      1778
                                        *              THIS ALSO INVOLVES THE GENERATION/MANAGEMENT OF THE       LEX      1779
                                        *              STMT/DEFERRED LIST BUFFER, *T.STMT*.                      LEX      1780
                                        *                                                                        LEX      1781
                                        *           3. ENTOKENS THE SOURCE STATEMENT.                            LEX      1782
                                        *                                                                        LEX      1783
                                        *           4. CLASSIFIES THE SOURCE STATEMENT (I.E. DETERMINES WHICH    LEX      1784
                                        *              STATEMENT PROCESSOR IS TO PROCESS THIS STATEMENT).        LEX      1785
                                        *                                                                        LEX      1786
                                        *         STRUCTURALLY, THE LEXICAL SCANNER MAIN EXECUTIVE IS COMPRISED  LEX      1787
                                        *         OF 2 PARTS:  A MAIN LOOP AND A FINAL PROCESSING PHASE.         LEX      1788
                                        *                                                                        LEX      1789
                                        *         THE MAIN LOOP IS TRAVERSED ONCE PER SOURCE LINE (EMPHASIZE     LEX      1790
                                        *         *LINE*), AND CAN BE REPRESENTED BY THE FOLLOWING DIAGRAM --    LEX      1791
                                        *                                                                        LEX      1792
                                        *                                +---------+                             LEX      1793
                                        *                                +  LIST   +                             LEX      1794
                                        *                                +  (PLR)  +                             LEX      1795
                                        *                                +---------+                             LEX      1796
                                        *                                                                        LEX      1797
                                        *                    +---------+             +---------+                 LEX      1798
                                        *                    +CLASSIFY +             + ENTOKEN +                 LEX      1799
                                        *                    +LINE(CLN)+             +  (TOK)  +                 LEX      1800
                                        *                    +---------+             +---------+                 LEX      1801
                                        *                                                                        LEX      1802
                                        *                                +---------+                             LEX      1803
                                        *                                +  READ   +                             LEX      1804
                                        *                                +  (RNC)  +                             LEX      1805
                                        *                                +---------+                             LEX      1806
                                        *                                                                        LEX      1807
                                        *         WHERE MOTION IS CLOCKWISE AND *PLR*, *TOK*, *RNC*, AND *CLN*   LEX      1808
                                        *         ARE THE EXECUTIVES THAT PERFORM EACH ABOVE-SPECIFIED TASK.     LEX      1809
                                        *                                                                        LEX      1810
                                        *         IN GENERAL, THIS MAIN LOOP IS EXITED WHEN *LEX* SENSES         LEX      1811
                                        *         THE BEGINNING OF THE STMT **FOLLOWING** THE STMT THAT *FEC*    LEX      1812
                                        *         ORIGINALLY CALLED *LEX* FOR.  I.E. END-OF-CURRENT-STMT IS      LEX      1813
                                        *         BEGINNING-OF-NEXT-STMT.                                        LEX      1814
                                        *                                                                        LEX      1815
                                        *         WHEN THIS *EXIT MAIN LOOP* CONDITION IS SATISFIED, *LEX*       LEX      1816
                                        *         ENTERS ITS *FINAL PROCESSING PHASE*.  AT THIS POINT, THE       LEX      1817
                                        *         ENTIRE SOURCE STMT HAS BEEN ACCUMULATED IN *T.STMT* (STMT      LEX      1818
                                        *         BUFFER) AND ENTOKENED TO *T.TB* (TOKEN BUFFER).  *LEX* NOW     LEX      1819
                                        *         CALLS ITS FIFTH EXECUTIVE, *CST* (CLASSIFY STATEMENT) TO       LEX      1820
                                        *         DETERMINE THE STMT TYPE (I.E. AMONG OTHER THINGS, THE          LEX      1821
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    72
                                                                      LEX 
  
                                        *         APPROPRIATE STMT PROCESSOR ADDR) FOR THE STMT IN *T.TB*.       LEX      1822
                                        *                                                                        LEX      1823
                                        *         AT THIS POINT, *LEX* HAS SATIATED ITSELF AND CONTROL RETURNS   LEX      1824
                                        *         TO THE CALLER, *FEC*.                                          LEX      1825
                                        *                                                                        LEX      1826
                                        *                            ** IMPORTANT **                             LEX      1827
                                        *                                                                        LEX      1828
                                        *         THE CONCEPTS, LOGIC, TRADE-OFFS/RATIONALES, AND DATA           LEX      1829
                                        *         STRUCTURES OF THIS LEXICAL SCANNER ARE DISCUSSED AT MUCH       LEX      1830
                                        *         MORE LENGTH IN THE FTN 5 IMS/DECK *LEX*.  TRY IT.              LEX      1831
                                        *                                                                        LEX      1832
                                        *                                 * * *                                  LEX      1833
                                        *                                                                        LEX      1834
                                        *                                                                        LEX      1835
                                        *         ENTRY  MISCELLANEOUS GLOBAL COMPILER CELLS/FLAGS AND DATA      LEX      1836
                                        *                STRUCTURES SET UP.  E.G. CONTROL CARD OPTIONS,          LEX      1837
                                        *                MANAGED TABLE CELLS, FET/FITS, ...                      LEX      1838
                                        *                                                                        LEX      1839
                                        *         EXIT   T.STMT  = ENTIRE SOURCE STMT IN SAVED/LISTABLE FORM.    LEX      1840
                                        *                                                                        LEX      1841
                                        *                T.TB    = ENTIRE SOURCE STMT IN ENTOKENED FORM.         LEX      1842
                                        *                                                                        LEX      1843
                                        *                (TB=XXX), WHERE *XXX* IS A UNIQUE NAME, CONTAIN         LEX      1844
                                        *                          MISCELLANEOUS INFORMATION ABOUT THE SOURCE    LEX      1845
                                        *                          STMT AT *T.TB*.  SEE *DATA STRUCTURES/TB=*.   LEX      1846
                                        *                                                                        LEX      1847
                                        *         USES   ALL         HA HA HO HO AND HEE HEE                     LEX      1848
                                        *                                                                        LEX      1849
                                        *         CALLS  CLN,CST,CUA,FATAL,ILX,LTB,PLR,RNC,WARN                  LEX      1850
                                                                                                                 LEX      1851
                                                                                                                 LEX      1852
           156  0400400156 +             LEX      SUBR   =           ** ENTRY/EXIT **                            LEX      1853
                                                                                                                 LEX      1854
                                        *         INITIALIZATION.                                                LEX      1855
                                                                                                                 LEX      1856
           157  0100002050 +                      RJ     ILX         INITIALIZE *LEX*                            LEX      1857
           160  5110000004 +                      SA1    LEXFLG                                                  LEX      1858
                          5120000005 +            SA2    LEXMODE                                                 LEX      1859
           161  43301                             MX3    1                                                       LEX      1860
                     20371                        LX3    LF.INIP-59                                              LEX      1861
                          7272777776              SX7    X2-LM.NTR                                               LEX      1862
           162  15613                             BX6    -X3*X1      CLEAR *INI*                                 LEX      1863
                     54610                        SA6    A1                                                      LEX      1864
                          7242777775              SX4    X2-LM.1ST                                               LEX      1865
           163  0307000255 +                      ZR     X7,LEX10    IF *NEED TO READ*                           LEX      1866
                          0304000255 +            ZR     X4,LEX10    IF 1ST LINE IN PGM UNIT                     LEX      1867
                                                                                                                 LEX      1868
                                        *         LIST SOURCE LINE AT (CP.CARD) ET SEQ.                          LEX      1869
                                                                                                                 LEX      1870
           164  0100000557 +             LEX2     RJ     PLR         PROCESS LISTING REQUEST                     LEX      1871
                                                                                                                 LEX      1872
                                        *         SPLIT UP PROCESSING FLOW ACCORDING TO THE *LINE TYPE*          LEX      1873
                                        *         OF THE LINE AT (CP.CARD) ET SEQ.                               LEX      1874
                                                                                                                 LEX      1875
           165  5110000014 +                      SA1    LN=TYPE                                                 LEX      1876
                                                                                                                 LEX      1877
                                         .T       IFEQ   TEST,ON                                                 LEX      1878
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    73
                                                                      LEX 
  
                                                  SX2    X1-L.LN1                                                LEX      1879
                                                  MI     X1,"BLOWUP" IF LINE TYPE TOO SMALL...                   LEX      1880
                                                  PL     X2,"BLOWUP" IF LINE TYPE TOO BIG...                     LEX      1881
                                         .T       ENDIF                                                          LEX      1882
                                                                                                                 LEX      1883
                          5221000167 +            SA2    LEX=LN1+X1                                              LEX      1884
           166  63520                             SB5    X2          (B5) = *LN1* ADDR TO JUMP TO                LEX      1885
                     0255000000                   JP     B5+         GO TO IT...                                 LEX      1886
  
  
  
  
                                        **        LEX=LN1 - FIRST *LINE TYPE* JUMP TABLE.                        LEX      1888
                                                                                                                 LEX      1889
           167                           LEX=LN1  BSS    0                                                       LEX      1890
                                                                                                                 LEX      1891
      L      0                                    LOC    0                                                       LEX      1892
                                                                                                                 LEX      1893
      L      0  00000000000000400167 +   UNTYP    LNJP   "BLOWUP"    IF LINE IS UNTYPED                          LEX      1894
                                                                                                                 LEX      1895
      L      1  00000000000000000176 +   INIT     LNJP   LEX3        IF LINE IS INITIAL LINE OF STMT             LEX      1896
                                                                                                                 LEX      1897
      L      2  00000000000000000216 +   CONT     LNJP   LEX5        IF LINE IS CONTINUATION LINE                LEX      1898
                                                                                                                 LEX      1899
      L      3  00000000000000000255 +   CMNT     LNJP   LEX10       IF LINE IS COMMENT                          LEX      1900
                                                                                                                 LEX      1901
      L      4  00000000000000000255 +   NULL     LNJP   LEX10       IF LINE IS ALL BLANK (I.E. NULL)            LEX      1902
                                                                                                                 LEX      1903
      L      5  00000000000000000204 +   C$       LNJP   LEX4        IF LINE IS *C$* LINE                        LEX      1904
                                                                                                                 LEX      1905
      L      6  00000000000000000331 +   EOR      LNJP   LEX20       IF EOR/EOF/EOI ENCOUNTERED                  LEX      1906
           176                                    LOC    *O                                                      LEX      1907
                                                                                                                 LEX      1908
                                   7     L.LN1    =      *-LEX=LN1                                               LEX      1909
  
  
  
  
                                        *         HERE IF AN INITIAL LINE OF STATEMENT IS AT (CP.CARD).          LEX      1911
                                        *                                                                        LEX      1912
                                        *         NEED TO PROCESS LINE LABEL (LN=LABL) AND TRANSFER              LEX      1913
                                        *         TO STMT LABEL (TB=LABL).  *CUL* (CHECK UPCOMING LABEL)         LEX      1914
                                        *         IS CALLED TO ASSEMBLE AND CHECK THE STMT LABEL.                LEX      1915
                                        *                                                                        LEX      1916
                                        *         *CUL* WILL --                                                  LEX      1917
                                        *                                                                        LEX      1918
                                        *           1. STRIP ANY BLANKS FROM THE STMT LABEL.                     LEX      1919
                                        *                                                                        LEX      1920
                                        *           2. STRIP ANY LEADING ZEROES FROM THE LABEL.                  LEX      1921
                                        *                                                                        LEX      1922
                                        *           3. DETECT AND DIAGNOSE ANY ILLEGAL (NON-NUMERIC)             LEX      1923
                                        *              CHARACTERS IN THE STMT LABEL.                             LEX      1924
                                        *                                                                        LEX      1925
                                        *           4. ISSUE A *WARN* ERROR MSG FOR A ZERO LABEL,                LEX      1926
                                        *              E.G.     A=B                                              LEX      1927
                                        *                    00 CONTINUE                                         LEX      1928
                                                                                                                 LEX      1929
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    74
                                                                      LEX 
  
           176  5110000011 +             LEX3     SA1    LN=LABL                                                 LEX      1930
                          13666                   BX6    X6-X6                                                   LEX      1931
                               77701              SX7    -B1                                                     LEX      1932
           177  0301000202 +                      ZR     X1,LEX3A    IF NO LABEL ON THIS LINE                    LEX      1933
                          7160000055              SX6    1R                                                      FC5A168A    5
           200  20630                             LX6    4*CHAR                                                  FC5A168A    6
                     12116                        BX1    X1+X6                                                   FC5A168A    7
                                                                                                                 LEX      1934
                          0100000000 X            CALL   CUL         CHECK UPCOMING LABEL                        LEX      1936
           201  0326000202 +                      PL     X6,LEX3A    IF LABEL IS OK                              LEX      1939
                          7160000000              SX6    0                                                       LEX      1940
                                                                                                                 LEX      1941
           202  22726                    LEX3A    LX7    X6,B2                                                   LEX      1942
                     5160000025 +                 SA6    TB=LABR            SAVE (X6) = STMT LABEL, -R- FMT      LEX      1943
                               55761              =A7    A6+TB=LABL-TB=LABR SAVE (X7) = STMT LABEL, -L- FMT      LEX      1944
           203  0400000204 +                      EQ     LEX4                                                    LEX      1945
                                                                                                                 LEX      1946
                                                                                                                 LEX      1947
                                        *         HERE IF WE ARE READY TO ENTOKEN THE 1ST LINE OF A STMT.        LEX      1948
                                        *                                                                        LEX      1949
                                        *         WE CAN BE HERE UNDER THE FOLLOWING CIRCUMSTANCES --            LEX      1950
                                        *                                                                        LEX      1951
                                        *           A. IF THIS IS THE INITIAL LINE OF A STMT, AS INDICATED VIA   LEX      1952
                                        *              COLUMN 6 (PS: HERE AFTER LABEL PROCESSING).               LEX      1953
                                        *                                                                        LEX      1954
                                        *           B. IF THIS IS A *C$* LINE (I.E. ALL *C$* LINES ARE INITIAL   LEX      1955
                                        *              BECAUSE THEY CAN NOT BE CONTINUED).                       LEX      1956
                                        *                                                                        LEX      1957
                                        *           C. IF THIS IS A CONTINUATION LINE WITH NO INITIAL.  THAT IS, LEX      1958
                                        *              A CONTINUATION LINE AS THE 1ST NON-COMMENT LINE IN A      LEX      1959
                                        *              PROGRAM UNIT, OR AS THE 1ST NON-COMMENT LINE FOLLOWING    LEX      1960
                                        *              A *C$* LINE/STMT.                                         LEX      1961
                                        *                                                                        LEX      1962
                                        *         NEED TO --                                                     LEX      1963
                                        *                                                                        LEX      1964
                                        *           1. TRANSFER LINE NR *LN=NUML/LN=NUMR* TO STMT LINE NR        LEX      1965
                                        *              *TB=NUML/TB=NUMR* SO THAT STMT PROCESSORS CAN GET         LEX      1966
                                        *              TO THEM IF THEY WANT.                                     LEX      1967
                                        *                                                                        LEX      1968
                                        *           2. CLEAR *LEXFLG/LF.INIP* TO INDICATE THAT AN INITIAL        LEX      1969
                                        *              LINE HAS OCCURRED FOR THIS STMT.                          LEX      1970
                                        *                                                                        LEX      1971
                                        *           3. SET UP THE PSEUDO P REGISTER (TC=P) FOR *TOK*             LEX      1972
                                        *              (COMMON TOKEN GENERATOR).  *TC=P* INDICATES               LEX      1973
                                        *              WHERE IN THE TOGEL OBJECT MODULE (TOM) THAT *TOK*         LEX      1974
                                        *              IS TO BEGIN EXECUTING/INTERPRETING.                       LEX      1975
                                                                                                                 LEX      1976
           204  5110000012 +             LEX4     SA1    LN=NUML                                                 LEX      1977
                          5120000013 +            SA2    LN=NUMR                                                 LEX      1978
           205  5130000014 +                      SA3    LN=TYPE                                                 LEX      1979
                          10611                   BX6    X1                                                      LEX      1980
                               22702              LX7    X2                                                      LEX      1981
           206  7233777772                        SX3    X3-LT.C$                                                LEX      1982
                          5160000027 +            SA6    TB=NUML                                                 LEX      1983
           207  5170000030 +                      SA7    TB=NUMR                                                 LEX      1984
                          5110000004 +            SA1    LEXFLG                                                  LEX      1985
           210  43700                             MX7    0                                                       LEX      1986
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    75
                                                                      LEX 
  
                     5170000047 +                 SA7    TC=RSF      SET TO *BEGINNING A NEW STMT*               LEX      1987
           211  5170000051 +                      SA7    TC=EOL      RESET LAST STATEMENTS END OF LINE PROC.     LEX      1988
                          5170000052 +            SA7    TC=REST     RESET LAST STATEMENTS RESTART PROC.         LEX      1989
           212  0313000213 +                      NZ     X3,LEX4A    IF THIS IS NOT C$ STATEMENT                 LEX      1990
                          76710                   =X7    1                                                       LEX      1991
                                                                                                                 LEX      1992
           213  5170000023 +             LEX4A    SA7    TB=CDF      FLAG C$                                     LEX      1993
                          43301                   MX3    1                                                       LEX      1994
                               20371              LX3    LF.INIP-59                                              LEX      1995
           214  12631                             BX6    X3+X1       SET *INI*                                   LEX      1996
                     7170001052 +                 SX7    TOM=BOS     (X7) = ADDR *TOK* IS TO BEGIN XEQ IN TOM    LEX      1997
                               54610              SA6    A1                                                      LEX      1998
           215  5170000037 +                      SA7    TC=P                                                    LEX      1999
                          0400000231 +            EQ     LEX8                                                    LEX      2000
                                                                                                                 LEX      2001
                                                                                                                 LEX      2002
                                        *         HERE IF A CONTINUATION LINE.                                   LEX      2003
                                        *                                                                        LEX      2004
                                        *         NEED TO --                                                     LEX      2005
                                        *                                                                        LEX      2006
                                        *           1. ISSUE *WARNING* ERR MSG IF THIS CONTINUATION              LEX      2007
                                        *              LINE HAS NO INITIAL.  THEN TREAT THIS LINE AS AN INITIAL. LEX      2008
                                        *                                                                        LEX      2009
                                        *           2. ISSUE *WARNING* ERR MSG IF THIS CONTINUATION              LEX      2010
                                        *              LINE HAS TRASH IN LABEL FIELD.                            LEX      2011
                                        *                                                                        LEX      2012
                                        *           3. INCREMENT AND CHECK (SB=CONT), THE CONTINUATION           LEX      2013
                                        *              LINE COUNT.                                               LEX      2014
                                                                                                                 LEX      2015
           216  5110000004 +             LEX5     SA1    LEXFLG                                                  LEX      2016
                          5120000011 +            SA2    LN=LABL                                                 LEX      2017
           217  20103                             LX1    59-LF.INIP                                              LEX      2018
                     0331000222 +                 MI     X1,LEX6     IF THIS STMT HAS AN INITIAL LINE            LEX      2019
           220  6170000000 X                      WARN   E.INI       *THIS STMT HAS NO INITIAL LINE*             LEX      2020
           221  0400000204 +                      EQ     LEX4        TREAT AS INITIAL...                         LEX      2021
                                                                                                                 LEX      2022
           222  0302000224 +             LEX6     ZR     X2,LEX7     IF NO LABEL                                 LEX      2023
                          6170000000 X            WARN   E.TLBL      *TRASH IN LABEL FIELD IGNORED*              LEX      2024
                                                                                                                 LEX      2025
                                        *         INITIALIZE FOR ENTOKENING CONTINUATION LINE.                   LEX      2026
                                                                                                                 LEX      2027
           224  5110000017 +             LEX7     SA1    SB=CONT                                                 LEX      2028
                          76610                   SX6    B1                                                      LEX      2029
                               73711              SX7    X1+B1                                                   LEX      2030
           225  5160000047 +                      SA6    TC=RSF       SET TO *RESTARTING TOKEN GENERATION*       LEX      2031
                          5071000000              SA7    A1+                                                     LEX      2032
                                                                                                                 LEX      2033
           226  7221777754                        SX2    X1-ANS.CONT                                             LEX      2034
                          0332000231 +            MI     X2,LEX8     IF CONTINUATION LINE COUNT IS OK            LEX      2035
           227  0312000231 +                      NZ     X2,LEX8     IF HAVE ALREADY ISSUED ERR MSG              LEX      2036
                          6170000000 X            FATAL  E.MCA       *TOO MANY CONTINUATION LINES*               LEX      2037
                                                                                                                 LEX      2038
                                        *         READY TO ENTOKEN THE LINE AT *T.STMT*.                         LEX      2039
                                        *                                                                        LEX      2040
                                        *           1. ALLOCATE ENOUGH TABLE SPACE IN TOKEN BUFFER FOR NEW       LEX      2041
                                        *              LINE TO ENTOKEN.  THE LENGTH OF *T.TB* IS INCREASED       LEX      2042
                                        *              BY 82D WHICH REFLECTS THE MAXIMUM NR OF TOKENS            LEX      2043
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    76
                                                                      LEX 
  
                                        *              THAT COULD POSSIBLY BE GENERATED FOR THIS SOURCE          LEX      2044
                                        *              LINE.                                                     LEX      2045
                                        *                                                                        LEX      2046
                                        *              AFTER ENTOKENING THE LINE AT *T.STMT*, THE LENGTH OF      LEX      2047
                                        *              *T.TB* IS SHRUNK TO THE ACTUAL LENGTH OF THE TOKEN BUFFER LEX      2048
                                        *              (I.E. AS DETERMINED BY HOW MANY TOKENS *TOK* GENERATED).  LEX      2049
                                        *                                                                        LEX      2050
                                        *           2. CONVERT *TC=SOA* AND *TC=TBA* FROM ORDINALS TO HARD       LEX      2051
                                        *              ADDRESSES.  IN THIS WAY, *TOK* CAN LOCK (A5) AND (A6)     LEX      2052
                                        *              THEREBY NOT HAVING TO WORRY ABOUT ADDRESS BIASING.        LEX      2053
                                        *              SEE *TOK*.  UPON RETURNING FROM *TOK*, *LEX* WILL         LEX      2054
                                        *              CONVERT *TC=TBA* FROM AN AN ADDRESS BACK TO AN ORDINAL.   LEX      2055
                                        *              IN THIS WAY, *LEX* DOES NOT HAVE TO WORRY ABOUT           LEX      2056
                                        *              RELOCATING THIS POINTER ACROSS ANY POSSIBLE *ALLOC*       LEX      2057
                                        *              CALLS.                                                    LEX      2058
                                        *                                                                        LEX      2059
                                        *           3. CALL *TOK* TO ENTOKEN THE SOURCE LINE AT *T.STMT*.        LEX      2060
                                        *              NOTE THAT MOST OF THE *LEX/TOK* COMMUNICATION CELLS       LEX      2061
                                        *              HAVE ALREADY BEEN SET UP (THE EXCEPTIONS ARE *TC=SOA*     LEX      2062
                                        *              AND *TC=TBA* WHICH ARE DISCUSSED ABOVE).                  LEX      2063
                                                                                                                 LEX      2064
           231  5110000000 X             LEX8     ALLOC  T.TB,82D                                                LEX      2065
                                                                                                                 LEX      2066
                                        *         RELOCATE (TC=TBA).                                             LEX      2067
                                                                                                                 LEX      2068
           233  5120000045 +                      SA2    TC=TBA                                                  LEX      2069
                          36612                   IX6    X1+X2                                                   LEX      2070
                               54620              SA6    A2                                                      LEX      2071
                                                                                                                 LEX      2072
                                        *         RELOCATE (TC=SOA).                                             LEX      2073
                                                                                                                 LEX      2074
           234  5110000000 X                      SA1    T.STMT                                                  LEX      2075
                          5120000021 +            SA2    SB=LORD     (X2) = *T.STMT* ORD OF LINE TO ENTOKEN      LEX      2076
           235  5130000040 +                      SA3    TC=SOA      (X3) IS RELATIVE TO *CP.FLIN*               LEX      2077
                          63221                   SB2    X2+B1                                                   LEX      2078
                               63312              SB3    X1+B2                                                   LEX      2079
           236  73633                             SX6    B3+X3       RELOCATE (TC=SOA)                           LEX      2080
                     54630                        SA6    A3                                                      LEX      2081
                                                                                                                 LEX      2082
                                        *         ENTOKEN THE SOURCE LINE.                                       LEX      2083
                                                                                                                 LEX      2084
                          6120000033 +            SB2    FW.TCOM     (B2) = FWA OF *USER/TOK* COMMUNICATIONS     LEX      2085
           237  0100000664 +                      RJ     TOK         TOKEN GENERATOR                             LEX      2086
                                                                                                                 LEX      2087
           240  5110000000 X                      SA1    T.TB                                                    LEX      2088
                          5120000045 +            SA2    TC=TBA                                                  LEX      2089
           241  37721                             IX7    X2-X1                                                   LEX      2090
                     7267000001                   SX6    X7+1        (X6) = TRUE LEN OF *T.TB*                   LEX      2091
                               54720              SA7    A2                                                      LEX      2092
           242  5160000000 X                      SHRINK T=TB,X6                                                 LEX      2093
                                                                                                                 LEX      2094
                                        *         NEED TO DO SOME SPECIAL CASING TO AVOID READ-AHEAD.            LEX      2095
                                        *         SPECIAL CASES ARE --                                           LEX      2096
                                        *                                                                        LEX      2097
                                        *           1. WHEN *END* OCCURS AS THE INITIAL LINE OF A STMT.          LEX      2098
                                        *                                                                        LEX      2099
                                        *           2. WHEN A *C$* LINE/STMT OCCURS.  IN THIS CASE,              LEX      2100
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    77
                                                                      LEX 
  
                                        *              WE ALSO NEED TO SET *NEED TO READ* STATUS IN (LEXMODE).   LEX      2101
                                        *                                                                        LEX      2102
                                        *              THE NEXT TIME *LEX* IS CALLED, THIS WILL CAUSE THE LINE   LEX      2103
                                        *              IMMEDIATELY FOLLOWING THIS C$ LINE/STMT TO FIRST BE READ. LEX      2104
                                                                                                                 LEX      2105
                          5110000000 X            SA1    T.TB                                                    LEX      2106
           243  5120000014 +                      SA2    LN=TYPE                                                 LEX      2107
                          5130002225 +            SA3    =0LEND                                                  LEX      2108
           244  53111                             SA1    X1+B1       (X1) = 1ST TOKEN AFTER *BOS* (I.E. KEYWORD) LEX      2109
                     43452                        MX4    TB.TOCL                                                 LEX      2110
                          7262777776              SX6    X2-LT.INIT                                              LEX      2111
           245  11141                             BX1    X4*X1       (X1) = STMT KEYWORD IN -L- FMT              LEX      2112
                     0316000252 +                 NZ     X6,LEX9     IF NOT AN INITIAL LINE                      LEX      2113
                               37613              IX6    X1-X3                                                   LEX      2114
           246  0316000255 +                      NZ     X6,LEX10    IF NOT *END*                                LEX      2115
                          5120000074 +            SA2    KY=END                                                  LEX      2116
           247  54111                             SA1    A1+B1       (X1) = TOKEN THAT FOLLOWS *END*             LEX      2117
                     10622                        BX6    X2                                                      LEX      2118
                          0311000255 +            NZ     X1,LEX10    IF *END* NOT FOLLOWED BY *EOS*              LEX      2119
           250  7071000000                        SX7    A1+         (X7) = ADDR OF TOKEN THAT FOLLOWS *END*     LEX      2120
                          5160000032 +            SA6    TB=TYPE                                                 LEX      2121
           251  5170000022 +                      SA7    TB=1ST                                                  LEX      2122
                          0400000301 +            EQ     LEX11A      AVOID READ-AHEAD...                         LEX      2123
                                                                                                                 LEX      2124
           252  7272777772               LEX9     SX7    X2-LT.C$                                                LEX      2125
                          0317000255 +            NZ     X7,LEX10    IF NOT *C$* LINE                            LEX      2126
           253  7160000001                        SX6    LM.NTR                                                  LEX      2127
                          5160000005 +            SA6    LEXMODE     SET TO *NEED TO READ*                       LEX      2128
           254  0400000277 +                      EQ     LEX11       AVOID READ-AHEAD...                         LEX      2129
                                                                                                                 LEX      2130
                                        *         READ NEXT CARD.                                                LEX      2131
                                                                                                                 LEX      2132
           255  0100000631 +             LEX10    RJ     RNC         READ NEXT CARD                              LEX      2133
                                                                                                                 LEX      2134
                                        *         CLASSIFY LINE AT (CP.CARD) ET SEQ.                             LEX      2135
                                                                                                                 LEX      2136
           256  0100000341 +                      RJ     CLN         CLASSIFY LINE                               LEX      2137
                                                                                                                 LEX      2138
                                        *         SPLIT UP PROCESSING FLOW ACCORDING TO THE *LINE TYPE*          LEX      2139
                                        *         OF THE LINE AT (CP.CARD) ET SEQ.                               LEX      2140
                                        *                                                                        LEX      2141
                                        *         NOTE: WE NEED TO SPECIAL-CASE THE *NEED TO READ* AND           LEX      2142
                                        *         *1ST LINE OF PGM UNIT* CASES SO THAT THIS LINE GETS HANDLED    LEX      2143
                                        *         PROPERLY.  UPON ENTRY TO *LEX*, THESE LINES WERE EITHER        LEX      2144
                                        *         NOT READ AND/OR NOT CLASSIFIED SO WE NOW NEED TO GO BACK       LEX      2145
                                        *         TO THE TOP OF THE LEXICAL SCAN MAIN LOOP IN ORDER TO GET       LEX      2146
                                        *         BACK IN SYNC (I.E. ACT LIKE THEY WERE REGULAR OLD NORMAL       LEX      2147
                                        *         SOURCE LINES).                                                 LEX      2148
                                                                                                                 LEX      2149
           257  5110000014 +                      SA1    LN=TYPE                                                 LEX      2150
                                                                                                                 LEX      2151
                                         .T       IFEQ   TEST,ON                                                 LEX      2152
                                                  SX2    X1-L.LN2                                                LEX      2153
                                                  MI     X1,"BLOWUP" IF LINE TYPE IS TOO SMALL...                LEX      2154
                                                  PL     X2,"BLOWUP" IF LINE TYPE IS TOO BIG...                  LEX      2155
                                         .T       ENDIF                                                          LEX      2156
                                                                                                                 LEX      2157
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    78
                                                                      LEX 
  
                          5140000005 +            SA4    LEXMODE                                                 LEX      2158
           260  7264777776                        SX6    X4-LM.NTR                                               LEX      2159
                          7274777775              SX7    X4-LM.1ST                                               LEX      2160
           261  11667                             BX6    X6*X7                                                   LEX      2161
                     0316000266 +                 NZ     X6,LEX10B   IF NOT FUNNY START-UP                       LEX      2162
                                                                                                                 LEX      2163
           262  7160000001                        SX6    LM.NTR      *** KLUDGE FOR CMNTS BEFORE 1ST STMT ***    LEX      2164
                          7271777774              SX7    X1-LT.CMNT                                              LEX      2165
           263  5064000000                        SA6    A4+         SET TO *NEED-TO-READ FOR CMNTS*             LEX      2166
                          0307000266 +            ZR     X7,LEX10B   IF COMMENT LINE BEFORE 1ST STMT (KLUDGE)    LEX      2167
           264  7271777773                        SX7    X1-LT.NULL                                              LEX      2168
                          0307000266 +            ZR     X7,LEX10B   IF NULL LINE BEFORE 1ST STMT (KLUDGE)       LEX      2169
           265  76600                             =X6    LM.NORM                                                 LEX      2170
                     54640                        SA6    A4          CLEAR TO *NORMAL* MODE                      LEX      2171
                          0400000164 +            EQ     LEX2                                                    LEX      2172
                                                                                                                 LEX      2173
           266  5221000270 +             LEX10B   SA2    LEX=LN2+X1                                              LEX      2174
                          6252000000              SB5    X2+         (B5) = *LN2* ADDR TO JUMP TO                LEX      2175
           267  0255000000                        JP     B5          ONWARD...                                   LEX      2176
  
  
  
  
                                        **        LEX=LN2 - 2ND *LINE TYPE* JUMP TABLE.                          LEX      2178
                                                                                                                 LEX      2179
           270                           LEX=LN2  BSS    0                                                       LEX      2180
                                                                                                                 LEX      2181
      L      0                                    LOC    0                                                       LEX      2182
                                                                                                                 LEX      2183
      L      0  00000000000000400270 +   UNTYP    LNJP   "BLOWUP"    IF LINE IS UNTYPED                          LEX      2184
                                                                                                                 LEX      2185
      L      1  00000000000000000277 +   INIT     LNJP   LEX11       IF LINE IS INITIAL LINE OF STMT             LEX      2186
                                                                                                                 LEX      2187
      L      2  00000000000000000164 +   CONT     LNJP   LEX2        IF LINE IS CONTINUATION                     LEX      2188
                                                                                                                 LEX      2189
      L      3  00000000000000000164 +   CMNT     LNJP   LEX2        IF LINE IS COMMENT                          LEX      2190
                                                                                                                 LEX      2191
      L      4  00000000000000000164 +   NULL     LNJP   LEX2        IF LINE IS NULL (ALL BLANK)                 LEX      2192
                                                                                                                 LEX      2193
      L      5  00000000000000000277 +   C$       LNJP   LEX11       IF LINE IS C$ LINE/STMT                     LEX      2194
                                                                                                                 LEX      2195
      L      6  00000000000000000277 +   EOR      LNJP   LEX11       IF EOR/EOF/EOI ENCOUNTERED                  LEX      2196
                                                                                                                 LEX      2197
           277                                    LOC    *O                                                      LEX      2198
                                                                                                                 LEX      2199
                                   7     L.LN2    =      *-LEX=LN2                                               LEX      2200
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    79
                                                                      LEX 
  
                                        *         HERE TO TYPE THE STATEMENT AT *T.TB* AND SAVE                  LEX      2202
                                        *         THE STMT TYPE AT (TB=TYPE).                                    LEX      2203
                                                                                                                 LEX      2204
           277  5110000000 X             LEX11    SA1    T.TB        (X1) = FWA OF *T.TB*                        LEX      2205
                          6241000001              SB4    X1+1        (B4) = ADDR OF TOKEN IMMEDIATELY FOLLOWING  LEX      2206
                                        *                                   *BOS* TOKEN                          LEX      2207
           300  0100000506 +                      RJ     CST         CLASSIFY STATEMENT                          LEX      2208
                                                                                                                 LEX      2209
           301                           LEX11A   BSS    0                                                       LEX      2210
                                                                                                                 LEX      2211
                                         .T       IFEQ   TEST,ON                                                 LEX      2212
                                                  SA1    =XCO.IDP                                                LEX      2213
                                                  LX1    1RM                                                     LEX      2214
                                                  PL     X1,LEX11B   IF *IDP=M* NOT SELECTED                     LEX      2215
                                         IDP=M    BREAK                                                          LEX      2216
                                                                                                                 LEX      2217
                                         LEX11B   SA1    CO.SNAP                                                 LEX      2218
                                                  LX1    1RM                                                     LEX      2219
                                                  PL     X1,LEX12    IF *SNAP=M* NOT SELECTED                    LEX      2220
                                                  CALL   LTB=        LIST TOKEN BUFFER                           LEX      2221
                                                                                                                 LEX      2222
                                         LEX12    BSS    0                                                       LEX      2223
                                                                                                                 LEX      2224
                                         .T       ENDIF                                                          LEX      2225
                                                                                                                 LEX      2226
                                        *         CHECK FOR INCOMPLETE '/" STRING.                               LEX      2227
                                        *                                                                        LEX      2228
                                        *         SEE *LEXFLG/QAC*, *CH=TAD*, AND *CH=TYPE* FOR MORE             LEX      2229
                                        *         INFORMATION.                                                   LEX      2230
                                                                                                                 LEX      2231
           301  5110000002 +                      SA1    CH=TAD      (X1) = ADDR OF INCOMPLETE *O.CHAR/O.HOLL*   LEX      2232
                          5120000003 +            SA2    CH=TYPE     (X2) = STRING TYPE CODE (I.E. "" OR '')     LEX      2233
           302  0301000327 +                      ZR     X1,LEX14    IF NO INCOMPLETE *O.CHAR/O.HOLL* TOKEN      LEX      2234
                          5130000004 +            SA3    LEXFLG                                                  FC5A110     7
           303  20314                             LX3    59-LF.TDEP                                              FC5A110     8
                     0323000314 +                 PL     X3,LEX13    IF MISSING DELIMITER                        FC5A110     9
           304  5130000000 X                      SA3    T.TB                                                    FC5A110    10
                          5140000045 +            SA4    TC=TBA      (X4) = *T.TB* ORD OF *EOS* TOKEN            FC5A110    11
           305  36634                             IX6    X3+X4                                                   FC5A110    12
                     63360                        SB3    X6          (B3) = LWA+1 OF '/" STRING                  FC5A110    13
                          7232777772              SX3    X2-CT.SQT                                               FC5A110    14
           306  0303000311 +                      ZR     X3,LEX12A   IF '' STRING                                FC5A110    15
                          0100002013 +            RJ     EOH         END OF HOLLERITH STRING PROCESSING          FC5A110    16
           307  0100002162 +                      RJ     TTB         TERMINATE TOKEN BUFFER                      FC5A110    17
           310  0400000327 +                      EQ     LEX14                                                   FC5A110    18
                                                                                                                 FC5A110    19
           311  0100001770 +             LEX12A   RJ     EOC         END OF CHARACTER STRING PROCESSING          FC5A110    20
           312  0100002162 +                      RJ     TTB         TERMINATE TOKEN BUFFER                      FC5A110    21
           313  0400000327 +                      EQ     LEX14                                                   FC5A110    22
                                                                                                                 FC5A110    23
           314  7160000070               LEX13    SX6    1R'                                                     FC5A110    24
                          7272777772              SX7    X2-CT.SQT                                               LEX      2275
           315  0307000317 +                      ZR     X7,LEX13B   IF '' STRING                                LEX      2276
                                                                                                                 LEX      2277
                          7272777776              SX7    X2-CT.H                                                 LEX      2278
           316  0307000324 +                      ZR     X7,LEX13C   IF *H* STRING                               LEX      2279
                          7160000064              SX6    1R"                                                     FC5A110    25
1       LEX - LEXICAL SCANNER/MAIN EXECUTIVE LOOP.                    COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    80
                                                                      LEX 
  
                                                                                                                 LEX      2282
           317  20666                    LEX13B   LX6    10*CHAR-1*CHAR  (X6) = MISSING DELIMITER, -L- FMT       LEX      2283
                     5160000000 X                 SA6    FILL.                                                   LEX      2284
           320  6170000000 X                      FATAL  E.HC3       ** TERMINAL DELIMITER MISSING **            LEX      2285
           321  7160000046                        =X6    O.ILL                                                   LEX      2286
                          5120002303 +            SA2    =7LBAD-STR                                              LEX      2287
           322  12662                             BX6    X6+X2                                                   LEX      2288
                     53610                        SA6    X1          O.CHAR TO O.ILL                             LEX      2289
                          0100002162 +            RJ     TTB         TERMINATE TOKEN BUFFER                      LEX      2290
           323  0400000327 +                      EQ     LEX14                                                   LEX      2291
                                                                                                                 LEX      2292
                                        *         HERE IF INCOMPLETE -H-, -L-, OR -R- STRING.                    LEX      2293
                                        *                                                                        LEX      2294
                                        *         ISSUE APPROPRIATE ERROR MESSAGE.                               LEX      2295
                                                                                                                 LEX      2296
           324  7160000046               LEX13C   SX6    O.ILL                                                   LEX      2297
                          5120002303 +            SA2    =7LBAD-STR                                              LEX      2298
           325  12662                             BX6    X6+X2                                                   LEX      2299
                     53610                        SA6    X1          *O.HOLL* BECOMES *O.ILL*                    LEX      2300
                          0100002162 +            RJ     TTB         TERMINATE TOKEN BUFFER                      LEX      2301
                                                                                                                 LEX      2302
           326  6170000000 X                      FATAL  E.HC2       ** EOS BEFORE END OF HOLLERITH **           LEX      2303
                                                                                                                 LEX      2304
                                        *         CLEAR *LEXFLG/LF.LAC* BIT TO INDICATE THAT *LEX* IS NO LONGER  LEX      2305
                                        *         ACTIVE.  SEE *LEXFLG*.                                         LEX      2306
                                                                                                                 LEX      2307
           327  5110000004 +             LEX14    SA1    LEXFLG      (X1) = *LEX* MASTER CONTROL FLAG            LEX      2308
                          43201                   MX2    1                                                       LEX      2309
                               20266              LX2    LF.LACP-59                                              LEX      2310
           330  15612                             BX6    -X2*X1      CLEAR *LAC*                                 LEX      2311
                     54610                        SA6    A1                                                      LEX      2312
                          0400000156 +            EQ     EXIT.       BACK TO FRONT END CONTROLLER...             LEX      2313
                                                                                                                 LEX      2314
           331  5110000141 +             LEX20    SA1    EOS                                                     LEX      2315
                          10611                   BX6    X1                                                      LEX      2316
           332  5160000032 +                      SA6    TB=TYPE     INVENTED END LINE                           LEX      2317
                          5110000004 +            SA1    LEXFLG                                                  LEX      2318
           333  43201                             CLAS=  X2,LF,(LAC)                                             FC50250     6
                          15712                   BX7    -X2*X1      SET TO *LEX NOT ACTIVE*                     LEX      2322
                               54710              SA7    A1                                                      LEX      2324
                                                  SBIT   X1,LF.HDRP                                              FC50250     7
           334  0321000335 +                      PL     X1,LEX21    IF NOT IN *HEADER DELAY*                    FC50250     8
                          0100002066 +            RJ     LDB         LIST DEFERRED BUFFER                        FC50250     9
                                                                                                                 FC50250    10
           335  5110000340 +             LEX21    SA1    LEX.DLN                                                 FC50791     6
                          43600                   MX6    0                                                       FC50791     7
                               22701              LX7    X1                                                      FC50791     8
           336  5160000020 +                      SA6    SB=LINC     SET TO NO LINES PRESENT                     FC50250    12
                          5170000027 +            SA7    TB=NUML     SET TO MAX LINE/SEQ NUM TO AVOID BAD DIAG   FC50791     9
           337  0400000156 +                      EQ     EXIT.                                                   LEX      2325
                                                                                                                 FC50791    10
           340  44444444440000000000     LEX.DLN  CON    5L99999                                                 FC50791    11
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    81
                                                                      CLN 
  
                                        **        CLN - CLASSIFY LINE.                                           LEX      2329
                                        *                                                                        LEX      2330
                                        *                                                                        LEX      2331
                                        *         THIS ROUTINE IS RESPONSIBLE FOR PERFORMING SOME INITIAL        LEX      2332
                                        *         LINE (EMPHASIZE *LINE*) ANALYSIS/PROCESSING ON THE INPUT       LEX      2333
                                        *         SOURCE LINE AT (CP.CARD).                                      LEX      2334
                                        *                                                                        LEX      2335
                                        *         *CLN* WILL PERFORM THE FOLLOWING TASKS --                      LEX      2336
                                        *                                                                        LEX      2337
                                        *           1. DETERMINE THE LINE TYPE OF THE LINE VIA THE PROCEDURES    LEX      2338
                                        *              OUTLINED IN THE FTN5 IMS/DECK *LEX*.  LINE TYPES ARE --   LEX      2339
                                        *                                                                        LEX      2340
                                        *              A. INITIAL LINE OF STATEMENT.                             LEX      2341
                                        *              B. CONTINUATION LINE.                                     LEX      2342
                                        *              C. COMMENT LINE.                                          LEX      2343
                                        *              D. NULL (ALL BLANK) LINE.                                 LEX      2344
                                        *              E. C$ LINE.                                               LEX      2345
                                        *              F. EOR/EOF ENCOUNTERED.                                   LEX      2346
                                        *                                                                        LEX      2347
                                        *           2. PROVIDE/SET UP THE LINE NUMBER OF THE LINE.               LEX      2348
                                        *                                                                        LEX      2349
                                        *           3. EXTRACT THE LABEL SPECIFIED ON THE LINE (IF PRESENT).     LEX      2350
                                        *                                                                        LEX      2351
                                        *           4. STRIP THE BLANK (55B) CHARACTERS THAT PRECEDE THE 1ST     LEX      2352
                                        *              ENTOKENABLE CHARACTER ON THE LINE.  TOKEN GENERATION,     LEX      2353
                                        *              IF APPROPRIATE FOR THIS LINE, WILL THEREFORE BEGIN AT     LEX      2354
                                        *              THIS 1ST NON-BLANK CHARACTER.  THIS BLANK STRIP IS        LEX      2355
                                        *              REQUIRED IN ORDER TO CORRECTLY TYPE A *NULL* (I.E. ALL    LEX      2356
                                        *              BLANK) LINE.  SEE BELOW.                                  LEX      2357
                                        *                                                                        LEX      2358
                                        *           5. SAVE THE POSITION OF THE 1ST NON-BLANK ENTOKENABLE        LEX      2359
                                        *              CHARACTER IN *TOKCOM*, THE *USER/TOK* COMMUNICATIONS      LEX      2360
                                        *              AREA, SO THAT THE TOKEN GENERATOR CAN KNOW WHERE TO       LEX      2361
                                        *              BEGIN TOKEN GENERATION OF THIS LINE.  NOTE THAT NOT       LEX      2362
                                        *              ALL LINES ARE ENTOKENABLE (E.G. COMMENT LINES).           LEX      2363
                                        *                                                                        LEX      2364
                                        *         *CLN* COMMUNICATES MOST OF THE ABOVE INFORMATION TO THE REST   LEX      2365
                                        *         OF *LEX* VIA A NUMBER OF DATA CELLS THAT HAVE NAMES OF THE     LEX      2366
                                        *         FORM --                                                        LEX      2367
                                        *                                                                        LEX      2368
                                        *                LN=XXX                                                  LEX      2369
                                        *                                                                        LEX      2370
                                        *         WHERE *LN=* IS A COMMON PREFIX, AND *XXX* IS A UNIQUE NAME.    LEX      2371
                                        *         BRIEFLY, THE *LN=* CELLS ARE --                                LEX      2372
                                        *                                                                        LEX      2373
                                        *           LN=TYPE  CONTAINS THE LINE TYPE  (INITIAL, CONTINUATION,     LEX      2374
                                        *                    ETC) OF THE LINE.                                   LEX      2375
                                        *           LN=NUM   CONTAINS THE LINE NUMBER OF THE LINE.               LEX      2376
                                        *           LN=LABL  CONTAINS THE LABEL THAT OCCURRED ON THE LINE,       LEX      2377
                                        *                    IF ONE WAS PRESENT.                                 LEX      2378
                                        *           LN=FEN   CONTAINS THE POSITION OF THE 1ST ENTOKENABLE        LEX      2379
                                        *                    CHARACTER ON THE LINE, IF APPROPRIATE.  THE WORD    LEX      2380
                                        *                    *APPROPRIATE* HERE MEANS: IF THE LINE **HAS**       LEX      2381
                                        *                    AN ENTOKENABLE CHARACTER (I.E. NOT COMMENT).        LEX      2382
                                        *                                                                        LEX      2383
                                        *         SEE *LN=* CELLS AND THEIR DESCRIPTIONS FOR A MORE DETAILED     LEX      2384
                                        *         DESCRIPTION OF THESE CELLS AND THEIR FORMATS.                  LEX      2385
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    82
                                                                      CLN 
  
                                        *                                                                        LEX      2386
                                        *                                                                        LEX      2387
                                        *         THE SOURCE LINE AT (CP.CARD) WILL/CAN BE IN 1 OF 2 FORMATS,    LEX      2388
                                        *         AS DETERMINED BY THE PRESENCE OR ABSENCE OF THE *SEQ* FTN      LEX      2389
                                        *         CONTROL CARD OPTION. (INDICATED VIA *CO.SEQ*).  SEE FTN5       FC5A239     6
                                        *         IMS/DECK *LEX* FOR A DESCRIPTION OF *SEQ* AND NON-*SEQ* LINES  LEX      2391
                                        *         IN THE CHAPTER ENTITLED *CLN AND LINE CLASSIFICATION*.         LEX      2392
                                        *                                                                        LEX      2393
                                        *         ENTRY  (CP.CARD) ET SEQ = INPUT SOURCE LINE IN PACKED (10 CHAR LEX      2394
                                        *                                   PER WORD) FORMAT.                    LEX      2395
                                        *                (CP.IFMT) = 1S59 IF EOR/EOF/EOI ENCOUNTERED, ELSE 0.    LEX      2396
                                        *                                                                        LEX      2397
                                        *         EXIT   *LN=* CELLS SET UP.                                     LEX      2398
                                        *                *TC=* (TOKCOM) CELLS SET UP.                            LEX      2399
                                        *                                                                        LEX      2400
                                        *         USES   ALL BUT (A0)                                            LEX      2401
                                        *                                                                        LEX      2402
                                        *         CALLS  BUB,BUN,CDD                                             LEX      2403
                                                                                                                 LEX      2404
                                                                                                                 LEX      2405
           341  0400400341 +             CLN      SUBR               ** ENTRY/EXIT **                            LEX      2406
                                                                                                                 LEX      2407
                                        *         INITIALIZATION.                                                LEX      2408
                                                                                                                 LEX      2409
           342  5150000000 X                      SA5    CP.CARD                                                 LEX      2410
                          5120000000 X            SA2    L.CARD      (X2) = NR OF WORDS IN SOURCE LINE           LEX      2411
           343  43066                             MX0    -CHAR                                                   LEX      2412
                     13666                        BX6    X6-X6                                                   LEX      2413
                          5160000011 +            SA6    LN=LABL     CLEAR *LINE LABEL*                          LEX      2414
           344  5160000012 +                      SA6    LN=NUML     CLEAR *LINE NUMBER, -L- FMT*                LEX      2415
                          5160000013 +            SA6    LN=NUMR     CLEAR *LINE NUMBER, -R- FMT*                LEX      2416
           345  5160000006 +                      SA6    LN=FEN                                                  LEX      2417
                          5160000007 +            SA6    LN=FENB                                                 LEX      2418
           346  5160000010 +                      SA6    LN=FENL                                                 LEX      2419
                          7170000006              SX7    LT.EOR                                                  LEX      2420
           347  5170000014 +                      SA7    LN=TYPE     PRESET TO *EOR/EOF OCCURRED*                LEX      2421
                                                                                                                 LEX      2422
                          5110000000 X            SA1    CP.IFMT                                                 LEX      2423
           350  0331000341 +                      MI     X1,EXIT.    IF EOR/EOF/EOI ENCOUNTERED, DONE...         LEX      2424
                                                                                                                 LEX      2425
                          7222777776              SX2    X2-1        (X2) = NR OF USEABLE WORDS IN SOURCE LINE   LEX      2426
                                        *                                   I.E. EXCLUDING FULL WORD EOL MARK    LEX      2427
           351  7130000074                        SX3    60D         (X3) = NR OF BITS IN A WORD                 LEX      2428
                          54670                   SA6    A7          CLEAR TO *LINE IS UNTYPED*                  LEX      2429
                               42423              IX4    X2*X3       (X4) = NR OF BITS IN SOURCE LINE            LEX      2430
           352  6150000740                        SB5    8*60        (B5) = MAX NR OF BITS PER LINE              LEX      2431
                          63740                   SB7    X4                                                      LEX      2432
           353  0657000354 +                      LE     B7,B5,CLN1  IF LINE NOT TOO LONG                        FC5A239     7
                          66750                   SB7    B5                                                      LEX      2434
                                                                                                                 LEX      2435
           354  5110000000 X             CLN1     SA1    CO.SEQ                                                  FC5A239     8
                          0311000415 +            NZ     X1,CLN10    IF THIS IS *SEQ* MODE INPUT                 LEX      2437
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    83
                                                                      CLN 
  
                                        **        HERE FOR NORMAL (NON-SEQ) LINE.                                LEX      2439
                                        *                                                                        LEX      2440
                                        *           1. CHECK LINE LENGTH AND MAKE SURE THAT LINE IS .LE. 8 WORDS LEX      2441
                                        *              LONG.  ALSO ASSURE THAT IF THIS LINE **IS** 8 WORDS LONG, LEX      2442
                                        *              THAT (TC=SOBE) ARE SET UP SO THAT DURING TOKEN GENERATION LEX      2443
                                        *              OF THIS LINE, *BUB/BUN* WILL ONLY PROCESS 2 CHARS FROM    LEX      2444
                                        *              THE 8TH WORD  (I.E. COLS 71 AND 72).                      LEX      2445
                                        *                                                                        LEX      2446
                                        *           2. SET UP LINE NUMBER, *LN=NUM*, TO BE A COMPILER-GENERATED  LEX      2447
                                        *              NUMBER EQUAL TO THE NR OF CARDS/LINES READ SO FAR IN      LEX      2448
                                        *              THIS PROGRAM UNIT (SEE *CARDS*).                          LEX      2449
                                        *                                                                        LEX      2450
                                        *           3. EXTRACT THE LINE LABEL FROM COLS 1-5 AND SAVE             LEX      2451
                                        *              IN *LN=LABL*.                                             LEX      2452
                                        *                                                                        LEX      2453
                                        *           4. TYPE THE LINE BY SCANNING COLS 1-6.  NOTE THAT FOR        LEX      2454
                                        *              A NULL (ALL BLANK) LINE, THE **ENTIRE** SOURCE LINE       LEX      2455
                                        *              MUST BE SCANNED.  SEE *CLN* SUBROUTINE PREAMBLE ABOVE.    LEX      2456
                                        *                                                                        LEX      2457
                                        *           5. SAVE STARTING CHAR POSITION OF THE ENTOKENABLE PART       LEX      2458
                                        *              OF THIS LINE (I.E. COL 7).  THIS IS USED BY *TOK*         LEX      2459
                                        *              WHEN HE HAS TO INVENT BLANKS FOR A CHARACTER CONSTANT     LEX      2460
                                        *              THAT IS CONTINUED ACROSS 2 SOURCE LINES.  SEE *CLN*       LEX      2461
                                        *              PREAMBLE ABOVE.                                           LEX      2462
                                        *                                                                        LEX      2463
                                        *           6. STRIP THE BLANKS THAT PRECEDE THE 1ST NON-BLANK CHAR      LEX      2464
                                        *              IN COLS 7-72.                                             LEX      2465
                                                                                                                 LEX      2466
           355  0775000356 +                      LT     B7,B5,CLN2  IF NUMBER OF COLUMNS .LE. 70                FC5A239     9
                          6177777717              SB7    B7-8*CHAR                                               LEX      2468
                                                                                                                 LEX      2469
           356  5110000000 X             CLN2     SA1    CARDS                                                   FC5A239    10
                          0100000000 X            CALL   CDD         CONVERT BINARY TO DECIMAL DPC               LEX      2471
           357  43101                             MX1    1                                                       LEX      2472
                     67321                        SB3    B2-B1                                                   LEX      2473
                          23131                   AX1    B3          (X1) = EXTRACTION MASK FOR CONVERTED DIGITS LEX      2474
                               11614              BX6    X1*X4       (X6) = LINE NR, -L- FMT                     LEX      2475
           360  22726                             LX7    X6,B2       (X7) = LINE NR, -R- FMT                     LEX      2476
                     5160000012 +                 SA6    LN=NUML                                                 LEX      2477
                               20506              LX5    CHAR        (X5) = COL 2345678901                       LEX      2478
           361  5170000013 +                      SA7    LN=NUMR                                                 LEX      2479
                          15450                   BX4    -X0*X5      (X4) = CHAR IN COL 1, -R- FMT               LEX      2480
                                                                                                                 LEX      2481
                                        *         CHECK COL 1.                                                   LEX      2482
                                                                                                                 LEX      2483
           362  7214777730                        SX1    X4-1R*                                                  LEX      2484
                          7224777774              SX2    X4-1RC                                                  LEX      2485
           363  0301000370 +                      ZR     X1,CLN3     IF COL 1 IS -*-, COMMENT LINE...            LEX      2486
                          0312000372 +            NZ     X2,CLN4     IF COL 1 IS NOT -*- OR -C-, NOT COMMENT...  LEX      2487
                                                                                                                 LEX      2488
                                        *         DISTINGUISH BETWEEN COMMENT AND C$ LINE.                       LEX      2489
                                                                                                                 LEX      2490
           364  5110002304 +                      SA1    =6RC$                                                   LEX      2491
                          20536                   LX5    5*CHAR      (X5) = COL 7890123456                       LEX      2492
                               43230              MX2    -6*CHAR                                                 LEX      2493
           365  15652                             BX6    -X2*X5      (X6) = COLS 1-6 IN -R- FMT                  LEX      2494
                     37361                        IX3    X6-X1                                                   LEX      2495
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    84
                                                                      CLN 
  
                          7170000005              SX7    LT.C$                                                   LEX      2496
           366  0313000370 +                      NZ     X3,CLN3     IF NOT A C$ LINE, COMMENT...                LEX      2497
                          5110000000 X            SA1    CO.DS                                                   LEX      2498
           367  0321000403 +                      PL     X1,CLN7     IF C$ PROCESSING NOT DESELECTED             LEX      2499
           370  7170000003               CLN3     SX7    LT.CMNT                                                 LEX      2500
                          5170000014 +            SA7    LN=TYPE                                                 LEX      2501
           371  0400000341 +                      EQ     EXIT.       DONE...                                     LEX      2502
                                                                                                                 LEX      2503
                                        *         HERE FOR NON-COMMENT, NON-C$ LINE.  NEED TO EXTRACT            LEX      2504
                                        *         LABEL FROM COLS 1-5.                                           LEX      2505
                                                                                                                 LEX      2506
           372  5110002305 +             CLN4     SA1    =5R                                                     LEX      2507
                          20530                   LX5    4*CHAR      (X5) = COLS 6789012345                      LEX      2508
                               43236              MX2    -5*CHAR                                                 LEX      2509
           373  15652                             BX6    -X2*X5      (X6) = COLS 1-5 IN -R- FMT                  LEX      2510
                     37361                        IX3    X6-X1                                                   LEX      2511
                          20636                   LX6    10*CHAR-5*CHAR (X6) = COLS 1-5 IN -L- FMT               LEX      2512
           374  0303000375 +                      ZR     X3,CLN5     IF COLS 1-5 ALL BLANK                       LEX      2513
                          5160000011 +            SA6    LN=LABL                                                 LEX      2514
                                                                                                                 LEX      2515
                                        *         EXTRACT AND CHECK COL 6.                                       LEX      2516
                                                                                                                 LEX      2517
           375  20506                    CLN5     LX5    CHAR        (X5) = COL 7890123456                       LEX      2518
                     15450                        BX4    -X0*X5      (X4) = CHAR IN COL 6, -R- FMT               LEX      2519
                          7170000002              SX7    LT.CONT                                                 LEX      2520
           376  7224777722                        SX2    X4-1R                                                   LEX      2521
                          0312000401 +            NZ     X2,CLN6     IF COL 6 IS NON-BLANK                       LEX      2522
           377  7170000001                        SX7    LT.INIT                                                 LEX      2523
                          0313000403 +            NZ     X3,CLN7     IF COLS 1-5 NOT ALL BLANK                   LEX      2524
           400  7170000004                        SX7    LT.NULL                                                 LEX      2525
                          0400000403 +            EQ     CLN7                                                    LEX      2526
                                                                                                                 LEX      2527
                                        *         HERE IF COL 6 NON-BLANK.                                       LEX      2528
                                                                                                                 LEX      2529
           401  7224777744               CLN6     SX2    X4-1R0                                                  LEX      2530
                          0312000403 +            NZ     X2,CLN7     IF COL 6 NOT -0-, LINE IS CONTINUATION...   LEX      2531
           402  7170000001                        SX7    LT.INIT                                                 LEX      2532
                                                                                                                 LEX      2533
                                        *         HERE TO STRIP PRECEDING BLANKS FROM SOURCE LINE.               LEX      2534
                                        *                                                                        LEX      2535
                                        *           1. SAVE LINE TYPE IN *LN=TYPE*.                              LEX      2536
                                        *                                                                        LEX      2537
                                        *           2. SAVE STARTING CHARACTER POSITION FOR ENTOKENABLE          LEX      2538
                                        *              PART OF LINE  (HERE FOR COMPATIBILITY WITH *SEQ*).        LEX      2539
                                        *                                                                        LEX      2540
                                        *           3. STRIP PRECEDING BLANKS.                                   LEX      2541
                                                                                                                 LEX      2542
           403  5170000014 +             CLN7     SA7    LN=TYPE                                                 LEX      2543
                          6140000000 X            SB4    CP.FLIN                                                 LEX      2544
           404  6160000030                        SB6    4*CHAR                                                  LEX      2545
                          6130000066              SB3    10*CHAR-1*CHAR                                          LEX      2546
           405  75654                             SX6    A5-B4       (X6) = ORD OF 1ST ENTOKENABLE WORD          LEX      2547
                     76760                        SX7    B6                                                      LEX      2548
                          5160000006 +            SA6    LN=FEN      SAVE ORDINAL OF 1ST ENTOKENABLE WORD        LEX      2549
           406  5170000007 +                      SA7    LN=FENB     SAVE (B6) = CHAR POS OF 1ST ENTOKENABLE     LEX      2550
                                        *                                        CHAR IN 1ST ENTOKENABLE WORD    LEX      2551
                          13111                   BX1    X1-X1       SET TO *BU/BU NO CHARACTERS* (STRIP BLANKS) LEX      2552
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    85
                                                                      CLN 
  
                                                                                                                 LEX      2553
                               43473              MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      2554
           407  13666                             BX6    X6-X6       CLEAR PACKING REG TO PREVENT (A6) STORE     LEX      2555
                     76770                        SX7    B7                                                      LEX      2556
                          5160000504 +            SA6    CLNA        PRESTORE (A6)...JUST IN CASE                LEX      2557
           410  5170000010 +                      SA7    LN=FENL     SAVE (B7) = NR OF BITS REMAINING            LEX      2558
                          0100001646 +            RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ       LEX      2559
           411  0607000476 +                      LE     B7,B0,CLN18 IF WE STRIPPED EVERYTHING, DONE...          FC5A239    11
                                                                                                                 LEX      2561
                                        *         HERE WHEN COLS 7-72 ARE NOT ALL BLANK.  NEED TO RETYPE         LEX      2562
                                        *         LINE AS *INITIAL* IF LINE TYPE IS *NULL*.                      LEX      2563
                                                                                                                 LEX      2564
                          5110000014 +            SA1    LN=TYPE                                                 LEX      2565
           412  7170000001                        SX7    LT.INIT                                                 LEX      2566
                          7231777773              SX3    X1-LT.NULL                                              LEX      2567
           413  0313000477 +                      NZ     X3,CLN20    IF LINE NOT INITIALLY TYPED AS NULL         FC5A239    12
                          5071000000              SA7    A1+                                                     LEX      2569
           414  0400000477 +                      EQ     CLN20                                                   FC5A239    13
  
  
  
  
                                        **        HERE FOR *SEQ* LINE.                                           LEX      2572
                                        *                                                                        LEX      2573
                                        *           1. STRIP ANY BLANKS THAT PRECEDE LINE NUMBER.                LEX      2574
                                        *                                                                        LEX      2575
                                        *           2. EXTRACT LINE NUMBER AND SAVE IN *LN=NUM*.                 LEX      2576
                                        *                                                                        LEX      2577
                                        *           3. TYPE THE LINE BY CHECKING THE CHARACTER THAT FOLLOWS      LEX      2578
                                        *              THE LINE NUMBER --                                        LEX      2579
                                        *                                                                        LEX      2580
                                        *              A. + MEANS LINE IS CONTINUATION.                          LEX      2581
                                        *              B. BLANK MEANS LINE IS INITIAL (OR NULL).                 LEX      2582
                                        *              C. C$ MEANS LINE IS C$.                                   LEX      2583
                                        *              D. ANYTHING ELSE MEANS LINE IS COMMENT.                   LEX      2584
                                        *                                                                        LEX      2585
                                        *              NOTE THAT FOR A NULL (ALL BLANK) LINE, THE **ENTIRE**     LEX      2586
                                        *              LINE MUST BE SCANNED.  SEE FTN 5 IMS/DECK *LEX* FOR A     LEX      2587
                                        *              DESCRIPTION/DEFINITION OF A *SEQ* LINE.                   LEX      2588
                                        *                                                                        LEX      2589
                                        *           4. EXTRACT THE LINE/STMT LABEL IF LINE IS AN INITIAL LINE    LEX      2590
                                        *              OF STMT (ONLY IF ONE IS PRESENT, OF COURSE) AND SAVE IN   LEX      2591
                                        *              *LN=LABL*.                                                LEX      2592
                                        *                                                                        LEX      2593
                                        *           5. STRIP THE BLANKS THAT PRECEDE THE 1ST NON-BLANK CHARACTER LEX      2594
                                        *              FOLLOWING THE LINE NUMBER (OR LINE LABEL, IF ONE WAS      LEX      2595
                                        *              PRESENT).                                                 LEX      2596
                                                                                                                 LEX      2597
           415  6130000066               CLN10    SB3    9*CHAR      (B3) = LEFT SHIFT FOR 1ST CHAR *BUB/BUN*    LEX      2598
                                        *                                   WILL BUILD INTO (X6).                LEX      2599
                          13111                   BX1    X1-X1       SET TO *BU/BU NO CHARACTERS* (STRIP BLANKS) LEX      2600
                               43600              MX6    0           CLEAR PACKING REG TO PREVENT (A6) STORE     LEX      2601
           416  5160000504 +                      SA6    CLNA        PRESTORE (A6)...JUST IN CASE                LEX      2602
                          7140777776              SX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      2603
           417  6160000074                        SB6    10*CHAR                                                 LEX      2604
                          0100001646 +            RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ       LEX      2605
           420  0607000444 +                      LE     B7,B0,CLN14 IF LINE IS EMPTY                            LEX      2606
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    86
                                                                      CLN 
  
                                                                                                                 LEX      2607
                                        *         CHECK FOR AND EXTRACT LINE NUMBER.                             LEX      2608
                                                                                                                 LEX      2609
                          5110000015 +            SA1    MX=0..9     (X1) = CHAR SHIFT MASK FOR 0 THRU 9         LEX      2610
           421  6224007763                        SB2    X4+10000B-BICH                                          LEX      2611
                          22721                   LX7    X1,B2                                                   LEX      2612
           422  0327000444 +                      PL     X7,CLN14    IF 1ST CHAR OF LINE NR IS NOT DIGIT         LEX      2613
                          13666                   BX6    X6-X6                                                   LEX      2614
           423  6150000006                        SB5    6           (B5) = MAX NR OF CHARS IN LINE NR           LEX      2615
                          5160000504 +            SA6    CLNA        PRESTORE (A6)                               LEX      2616
           424  6130000066                        SB3    10*CHAR-1*CHAR                                          LEX      2617
                          0100001670 +            RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2618
           425  5160000012 +                      SA6    LN=NUML                                                 LEX      2619
                          6140000066              SB4    60-CHAR                                                 LEX      2620
           426  7170000004                        SX7    LT.NULL                                                 LEX      2621
                          67543                   SB5    B4-B3       (B5) = SHIFT COUNT TO RIGHT JUSTIFY (X6)    LEX      2622
                               22656              LX6    B5          (X6) = SEQ NR, -R- FMT                      LEX      2623
           427  5170000014 +                      SA7    LN=TYPE                                                 LEX      2624
                          5160000013 +            SA6    LN=NUMR                                                 LEX      2625
           430  0607000341 +                      LE     B7,B0,EXIT. IF NOTHING AFTER LINE NR                    LEX      2626
                                                                                                                 LEX      2627
                                        *         CHECK CHAR THAT TERMINATED LINE NUMBER.                        LEX      2628
                                                                                                                 LEX      2629
                          7224777722              SX2    X4-1R                                                   LEX      2630
           431  7234777732                        SX3    X4-1R+                                                  LEX      2631
                          0302000453 +            ZR     X2,CLN16    IF LINE IS *NULL* SO FAR                    FC5A239    14
           432  7170000002                        SX7    LT.CONT                                                 LEX      2633
                          0303000446 +            ZR     X3,CLN15    IF LINE IS *CONTINUATION*                   LEX      2634
                                                                                                                 LEX      2635
                                        *         CHECK FOR C$ LINE.                                             LEX      2636
                                        *                                                                        LEX      2637
                                        *           1. IF CHAR THAT FOLLOWED/TERMINATED LINE NR IS NOT -C-,      LEX      2638
                                        *              THEN THIS LINE IS A COMMENT.                              LEX      2639
                                        *                                                                        LEX      2640
                                        *           2. IF CHAR THAT FOLLOWED/TERMINATED LINE NR IS A -C-,        LEX      2641
                                        *              THEN EXTRACT 3 CHARS AND SEE IF THEY ARE                  LEX      2642
                                        *              -C$.- (.=BLANK(55B)).  IF SO, THEN THIS IS A C$ LINE.     LEX      2643
                                        *              ELSE, THIS IS A COMMENT LINE.                             LEX      2644
                                        *                                                                        LEX      2645
                                        *         NOTE: SOME WORK MUST BE DONE TO CORRECTLY TYPE A C$ LINE       LEX      2646
                                        *         THAT IS NULL (I.E. -C$- IMMEDIATELY FOLLOWED BY EOL MARK)      LEX      2647
                                        *         BECAUSE IN THIS CASE, THE BLANK FOLLOWING THE -C$- IS          LEX      2648
                                        *         IMPLICIT (I.E. IT IS NOT THERE...IT HAS BEEN STRIPPED OFF      LEX      2649
                                        *         BY THE OPERATING SYSTEM).                                      LEX      2650
                                                                                                                 LEX      2651
           433  7224777774                        SX2    X4-1RC                                                  LEX      2652
                          0312000444 +            NZ     X2,CLN14    IF COMMENT LINE                             LEX      2653
           434  6150000002                        SB5    2           (B5) = NR OF CHARS TO EXTRACT               LEX      2654
                          43174                   MX1    60          SET TO *BU/BU ANY CHARACTERS*               LEX      2655
                               13666              BX6    X6-X6                                                   LEX      2656
           435  5160000504 +                      SA6    CLNA        PRESTORE (A6)                               LEX      2657
                          6130000066              SB3    10*CHAR-1*CHAR                                          LEX      2658
           436  0100001670 +                      RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2659
                                                                                                                 LEX      2660
           437  5120002306 +                      SA2    =2LC$                                                   LEX      2661
                          13762                   BX7    X6-X2                                                   LEX      2662
           440  0317000444 +                      NZ     X7,CLN14    IF NOT -C$-, LINE IS COMMENT...             LEX      2663
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    87
                                                                      CLN 
  
                          7224777722              SX2    X4-1R                                                   LEX      2664
           441  0607000442 +                      LE     B7,B0,CLN13 IF -C$- IMMEDIATELY FOLLOWED BY EOL MARK    LEX      2665
                          0312000444 +            NZ     X2,CLN14    IF NOT -C$.- (.=BLANK(55B))                 LEX      2666
                                                                                                                 LEX      2667
                                        *         HERE IF C$ LINE.                                               LEX      2668
                                                                                                                 LEX      2669
           442  5110000000 X             CLN13    SA1    CO.DS                                                   LEX      2670
                          7170000005              SX7    LT.C$                                                   LEX      2671
           443  0321000453 +                      PL     X1,CLN16    IF C$ PROCESSING NOT DESELECTED             FC5A239    15
                                                                                                                 LEX      2673
                                        *         HERE IF COMMENT LINE.                                          LEX      2674
                                                                                                                 LEX      2675
           444  7170000003               CLN14    SX7    LT.CMNT                                                 LEX      2676
                          5170000014 +            SA7    LN=TYPE                                                 LEX      2677
           445  0400000341 +                      EQ     EXIT.       DONE...                                     LEX      2678
                                                                                                                 LEX      2679
                                        *         HERE IF READY TO TO STRIP PRECEDING BLANKS FROM SOURCE LINE.   LEX      2680
                                        *                                                                        LEX      2681
                                        *           1. SAVE LINE TYPE IN *LN=TYPE*.                              LEX      2682
                                        *                                                                        LEX      2683
                                        *           2. SAVE STARTING CHARACTER POSITION FOR ENTOKENABLE PART     LEX      2684
                                        *              OF LINE IN *LN=FEN*.  I.E. SAVE THE POSITION OF 2ND CHAR  LEX      2685
                                        *              FOLLOWING THE LINE NUMBER (THE 1ST CHAR FOLLOWING         LEX      2686
                                        *              THE LINE NUMBER DETERMINES THE LINE TYPE FOR *SEQ*        LEX      2687
                                        *              LINES).  TO DO THIS, WE MUST FIRST GET THIS CHAR AS       LEX      2688
                                        *              WE ARE CURRENTLY POINTING AT THE 1ST CHAR FOLLOWING       LEX      2689
                                        *              THE LINE NUMBER.  THEREFORE WE MUST FIRST CALL *BUB*      LEX      2690
                                        *              TO GET ONE CHARACTER.                                     LEX      2691
                                        *                                                                        LEX      2692
                                        *           3. STRIP PRECEDING BLANKS.                                   LEX      2693
                                                                                                                 LEX      2694
           446  5110000663 +             CLN15    SA1    TF=SQZ                                                  FC5A239    16
                          0311000453 +            NZ     X1,CLN16    IF IN BLANK SQUEEZE MODE                    FC5A239    17
           447  5170000014 +                      SA7    LN=TYPE                                                 FC5A239    18
                          6140000000 X            SB4    CP.FLIN                                                 FC5A239    19
           450  75654                             SX6    A5-B4       ORD OF WORD CONTAINING 1ST CHAR OF SOURCE   FC5A239    20
                     76760                        SX7    B6                                                      FC5A239    21
                          5160000006 +            SA6    LN=FEN                                                  FC5A239    22
           451  54761                             =A7    A6-LN=FEN+LN=FENB                                       FC5A239    23
                     76670                        SX6    B7                                                      FC5A239    24
                          54671                   =A6    A7-LN=FENB+LN=FENL                                      FC5A239    25
                               20566              LX5    -CHAR                                                   FC5A239    26
           452  0400000476 +                      EQ     CLN18                                                   FC5A239    27
                                                                                                                 FC5A239    28
           453  5170000014 +             CLN16    SA7    LN=TYPE                                                 FC5A239    29
                          0607000457 +            LE     B7,B0,CLN17 IF NOTHING LEFT                             FC5A239    30
           454  13666                             BX6    X6-X6       CLEAR PACKING REG TO PREVENT (A6) STORE     LEX      2697
                     43473                        MX4    -1          SET TO *NO USEABLE CHARACTER IN (X4)*       LEX      2698
                          7110000000              SX1    0           SET TO *BU/BU NO CHARACTERS*                LEX      2699
           455  66510                             SB5    B1          (B5) = NR OF CHARS TO BU/BU                 LEX      2700
                     6130000066                   SB3    10*CHAR-1*CHAR                                          LEX      2701
           456  0100001670 +                      RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2702
                                                                                                                 LEX      2703
           457  6140000000 X             CLN17    SB4    CP.FLIN                                                 FC5A239    31
                          75654                   SX6    A5-B4       ORD OF WORD CONTAINING 1ST CHAR OF SOURCE   FC5A239    32
                               76760              SX7    B6                                                      FC5A239    33
           460  5160000006 +                      SA6    LN=FEN                                                  FC5A239    34
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    88
                                                                      CLN 
  
                          54761                   =A7    A6-LN=FEN+LN=FENB                                       FC5A239    35
                               76670              SX6    B7                                                      FC5A239    36
           461  54671                             =A6    A7-LN=FENB+LN=FENL                                      FC5A239    37
                     0607000476 +                 LE     B7,B0,CLN18 IF NOTHING LEFT                             FC5A239    38
           462  6130000066                        SB3    10*CHAR-1*CHAR                                          LEX      2713
                          13666                   BX6    X6-X6                                                   LEX      2714
           463  0100001646 +                      RJ     BUB         BURST/BUILD CHARACTERS WITH BLANK SQZ       LEX      2715
           464  0607000476 +                      LE     B7,B0,CLN18 IF NOTHING LEFT                             FC5A239    39
                                                                                                                 LEX      2717
                                        *         HERE IF PRECEDING BLANK STRIP WAS NOT TERMINATED BY EOL.       LEX      2718
                                        *                                                                        LEX      2719
                                        *           1. IF THIS LINE HAS BEEN TYPED SO FAR AS NULL, THEN NEED     LEX      2720
                                        *              TO RETYPE AS INITIAL.                                     LEX      2721
                                        *                                                                        LEX      2722
                                        *           2. IF LINE IS INITIAL (I.E. AS TYPED ABOVE), THEN NEED       LEX      2723
                                        *              TO CHECK FOR/EXTRACT STMT LABEL.                          LEX      2724
                                                                                                                 LEX      2725
                          5120000014 +            SA2    LN=TYPE                                                 LEX      2726
           465  5110000015 +                      SA1    MX=0..9     (X1) = CHAR SHIFT MASK FOR 0 THRU 9         LEX      2727
                          7232777773              SX3    X2-LT.NULL                                              LEX      2728
           466  6224007763                        SB2    X4+10000B-BICH                                          LEX      2729
                          0313000477 +            NZ     X3,CLN20    IF NOT *NULL SO FAR* LINE                   FC5A239    40
                                                                                                                 LEX      2731
           467  22621                             LX6    X1,B2                                                   LEX      2732
                     7170000001                   SX7    LT.INIT                                                 LEX      2733
                               54720              SA7    A2                                                      LEX      2734
           470  0326000477 +                      PL     X6,CLN20    IF NO STATEMENT LABEL PRESENT               FC5A239    41
                                                                                                                 LEX      2736
                                        *         EXTRACT STATEMENT LABEL.                                       LEX      2737
                                                                                                                 LEX      2738
                          6150000005              SB5    5           (B5) = MAX NR OF DIGITS IN STMT LABEL       LEX      2739
           471  13666                             BX6    X6-X6                                                   LEX      2740
                     5160000504 +                 SA6    CLNA        PRESTORE (A6)                               LEX      2741
           472  6130000066                        SB3    10*CHAR-1*CHAR                                          LEX      2742
                          0100001670 +            RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    LEX      2743
           473  10166                             BX1    X6                                                      FC5A168A    8
                     0100000000 X                 CALL   SFN         SPACE FILL                                  FC5A168A    9
           474  43136                             MX1    5*CHAR                                                  FC5A168A   10
                     11616                        BX6    X1*X6       ERASE LOWER 5 CHARACTERS                    FC5A168A   11
                          5110000015 +            SA1    MX=0..9                                                 FC5A168A   12
           475  5160000011 +                      SA6    LN=LABL                                                 LEX      2744
                          0400000457 +            EQ     CLN17       NEED TO STRIP PRECEDING BLANKS              FC5A239    42
  
  
  
  
                                        **        HERE FOR FINAL PROCESSING.                                     LEX      2747
                                        *                                                                        LEX      2748
                                        *         SAVE CRITICAL *BUB/BUN* SOURCE LINE POINTER REGISTERS          LEX      2749
                                        *         FOR LATER TOKEN GENERATION OF THIS LINE.  THESE REGISTERS      LEX      2750
                                        *         ARE SAVED SO THAT *TOK* CAN KNOW WHERE TO BEGIN AND END        LEX      2751
                                        *         TOKEN GENERATION OF THIS LINE.                                 LEX      2752
                                        *                                                                        LEX      2753
                                        *         REGISTERS ARE SAVED IN *TOKCOM*, THE *USER/TOK* COMMUNICATIONS LEX      2754
                                        *         AREA AS FOLLOWS --                                             LEX      2755
                                        *                                                                        LEX      2756
                                        *         (TC=SOA) = (A5)-CP.FLIN                                        LEX      2757
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    89
                                                                      CLN 
  
                                        *                  = ORDINAL OF 1ST SOURCE WORD TO ENTOKEN.              LEX      2758
                                        *         (TC=SOL) = (B7)                                                LEX      2759
                                        *                  = NR OF WORDS TO ENTOKEN (NOT INCLUDING FULL          LEX      2760
                                        *                    ZERO WORD EOL MARK).  NOTE THAT IN NORMAL (NON-SEQ) LEX      2761
                                        *                    MODE, THE MAXIMUM VALUE THAT (B7) CAN HAVE IS       LEX      2762
                                        *                    7 (I.E. COLS 1-70).  COLS 71-72 HAVE TO BE SPECIAL  LEX      2763
                                        *                    CASED SO THAT *TOK* WILL NOT AUTOMATICALLY ENTOKEN  LEX      2764
                                        *                    COLS 73-80.                                         LEX      2765
                                        *         (TC=SOB) = (B6)                                                LEX      2766
                                        *                  = NR OF BITS REMAINING IN (X5).                       LEX      2767
                                        *         (TC=SOC) = (X4)                                                LEX      2768
                                        *                  = 1ST CHAR TO ENTOKEN (-R- FMT), ELSE                 LEX      2769
                                        *                  = .MI. IF NONE (I.E. NEED TO EXTRACT CHAR FROM (X5)   LEX      2770
                                        *                    FIRST).                                             LEX      2771
                                        *                                                                        LEX      2772
                                        *                    NOTE THAT *CLN18* IS A SPECIAL SPOT FOR HANDLING    FC5A239    43
                                        *                    THE *NOW AT EOL* CONDITION.  THIS IS NECESSARY      LEX      2774
                                        *                    BECAUSE WHEN *BUB/BUN* DETECT EOL, IT IS POSSIBLE   LEX      2775
                                        *                    THAT (X4) CONTAIN AN ERRONEOUS CHARACTER  (I.E.     LEX      2776
                                        *                    (X4) IS **UNDEFINED** AT EOL).                      LEX      2777
                                                                                                                 LEX      2778
                                                                                                                 LEX      2779
           476  7140777776               CLN18    SX4    -1          SET TO *NO USEABLE CHARACTER IN (X4)*       FC5A239    44
                                                                                                                 LEX      2781
           477  6140000000 X             CLN20    SB4    CP.FLIN                                                 FC5A239    45
                          76670                   SX6    B7                                                      LEX      2783
                               75754              SX7    A5-B4                                                   LEX      2784
           500  5160000042 +                      SA6    TC=SOL                                                  LEX      2785
                          5170000040 +            SA7    TC=SOA                                                  LEX      2786
           501  76660                             SX6    B6                                                      LEX      2787
                     10744                        BX7    X4                                                      LEX      2788
                          5160000043 +            SA6    TC=SOB                                                  LEX      2789
           502  5170000044 +                      SA7    TC=SOC                                                  LEX      2790
                          10655                   BX6    X5                                                      LEX      2791
           503  5160000041 +                      SA6    TC=SOX                                                  LEX      2792
                          0400000341 +            EQ     EXIT.                                                   LEX      2793
                                                                                                                 LEX      2794
                                                                                                                 LEX      2795
           504                     2     CLNA     BSSZ   2           DUMMY AREA FOR *BUB/BUN* (A6) REFERENCES    LEX      2796
  
  
  
  
                                        **        CST - CLASSIFY STATEMENT.                                      LEX      2798
                                        *                                                                        LEX      2799
                                        *                                                                        LEX      2800
                                        *         *CST* IS RESPONSIBLE FOR DETERMINING THE STATEMENT TYPE        LEX      2801
                                        *         (SAVED IN *TB=TYPE*) FOR THE STMT IN *T.TB*.  DETERMINING      LEX      2802
                                        *         THE STMT TYPE FOR A STMT INVOLVES 2 DISTINCTLY DIFFERENT       LEX      2803
                                        *         ALGORITHMS --                                                  LEX      2804
                                        *                                                                        LEX      2805
                                        *           1. FOR THE SEMANTICALLY DEFINED STMTS (REPLACEMENT, *DO*,    LEX      2806
                                        *              AND *IF*), STMT TYPING INVOLVES BOTH A POSSIBLE KEYWORD   LEX      2807
                                        *              VERIFICATION .AND. THE QUERYING OF A NUMBER OF SPECIAL    LEX      2808
                                        *              *SEMANTIC* FLAGS THAT MIGHT HAVE BEEN SET DURING TOKEN    LEX      2809
                                        *              GENERATION.                                               LEX      2810
                                        *                                                                        LEX      2811
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    90
                                                                      CST 
  
                                        *              THESE FLAGS ARE --                                        LEX      2812
                                        *                                                                        LEX      2813
                                        *                ZLEQUAL = ADDR IN *T.TB* OF THE LAST *O.=* TOKEN        LEX      2814
                                        *                          THAT THE TOKEN GENERATOR ENCOUNTERED          LEX      2815
                                        *                          AT PAREN LEVEL ZERO, ELSE                     LEX      2816
                                        *                        = .ZR. IF NO ZERO LEVEL EQUAL OCCURRED.         LEX      2817
                                        *                                                                        LEX      2818
                                        *                ZLCOMMA = ADDR IN *T.TB* OF LAST *O.COMMA* TOKEN        LEX      2819
                                        *                          GENERATED AT PAREN LEVEL ZERO, ELSE           LEX      2820
                                        *                        = .ZR. IF NO ZERO LEVEL COMMA OCCURRED.         LEX      2821
                                        *                                                                        LEX      2822
                                        *                ZLPAREN = ADDR IN *T.TB* OF 1ST ZERO **LEVELING**       LEX      2823
                                        *                          *O.RP* TOKEN GENERATED, ELSE                  LEX      2824
                                        *                        = .ZR. IF NO ZERO LEVELING PAREN ENCOUNTERED.   LEX      2825
                                        *                                                                        LEX      2826
                                        *                ZLCOLON = ADDR IN *T.TB* OF 1ST *O.COLON* TOKEN         LEX      2827
                                        *                          GENERATED AT PAREN LEVEL 1, ELSE              LEX      2828
                                        *                        = .ZR. IF NO LEVEL 1 COLON ENCOUNTERED.  NOTE   LEX      2829
                                        *                          THAT THE NAME OF THIS CELL, *ZLCOLON*, IS     LEX      2830
                                        *                          SOMEWHAT OF A MISNOMER: I.E. IT HAS **NOTHING LEX      2831
                                        *                          TO DO WITH PAREN LEVEL 0.  HOWEVER, IT WAS    LEX      2832
                                        *                          FELT THAT THIS CELL WAS SUFFICIENTLY CLOSE    LEX      2833
                                        *                          IN FUNCTION TO THE OTHER *ZL* CELLS TO WARRAN LEX      2834
                                        *                          BEING ASSOCIATED BY NAME.  ERGO, THE MISNOMER LEX      2835
                                        *                                                                        LEX      2836
                                        *              FOR EXAMPLE --                                            LEX      2837
                                        *                                                                        LEX      2838
                                        *                SUBROUTINE THUMB(A,B),RETURNS(C,D)                      LEX      2839
                                        *                                    ..                                  LEX      2840
                                        *                                    ..... ZLCOMMA                       LEX      2841
                                        *                                    ..... ZLPAREN                       LEX      2842
                                        *                                                                        LEX      2843
                                        *                BIRDY = VULTURE = TURKEY                                LEX      2844
                                        *                                .                                       LEX      2845
                                        *                                ......... ZLEQUAL                       LEX      2846
                                        *                                                                        LEX      2847
                                        *                EAT(1:10) = 'GRUNT' // SNARF(1)(6:10)                   LEX      2848
                                        *                     .                                                  LEX      2849
                                        *                     .................... ZLCOLON                       LEX      2850
                                        *                                                                        LEX      2851
                                        *              FOLLOWING IS A BRIEF DISCUSSION OF THE VARIOUS            LEX      2852
                                        *              SEMANTICALLY DEFINED STMTS IN FTN AND HOW THEY            LEX      2853
                                        *              ARE TYPED/DETECTED, DISCUSSED IN THE ORDER OF THEIR       LEX      2854
                                        *              DETECTABILITY --                                          LEX      2855
                                        *                                                                        LEX      2856
                                        *                A. DO 100 I=1,10                                        LEX      2857
                                        *                           . .                                          LEX      2858
                                        *                           . ............ ZLEQUAL                       LEX      2859
                                        *                           .............. ZLCOMMA                       LEX      2860
                                        *                                                                        LEX      2861
                                        *                   THE 1ST 2 CHARS OF THE 1ST *O.VAR* TOKEN MUST BE     LEX      2862
                                        *                   *DO*, AND (ZLEQUAL) MUST PRECEDE (ZLCOMMA).          LEX      2863
                                        *                                                                        LEX      2864
                                        *                B. IF (MANAGER.EQ.TURKEY)WORK=WORK-1                    LEX      2865
                                        *                                        .    .                          LEX      2866
                                        *                                        .    .... ZLEQUAL               LEX      2867
                                        *                                        ......... ZLPAREN               LEX      2868
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    91
                                                                      CST 
  
                                        *                                                                        LEX      2869
                                        *                   THE 1ST *O.VAR* TOKEN MUST CONTAIN *IF*, AND THE     LEX      2870
                                        *                   TOKEN IMMEDIATELY FOLLOWING THE ZERO LEVELING        LEX      2871
                                        *                   *O.RP* TOKEN MUST **NOT** BE A SEPARATOR TOKEN       LEX      2872
                                        *                   (DEFINED VIA *O.SEP* TOKEN TYPE).  IN ADDITION,      LEX      2873
                                        *                   WE MUST BE CAREFUL ABOUT *IF*S THAT ARE THE OBJECTS  LEX      2874
                                        *                   OF *IF*S, I.E. *IF(...)IF(...)*  (SEE BELOW).        LEX      2875
                                        *                                                                        LEX      2876
                                        *                C. TOAD = FROG+1     (REPLACEMENT)                      LEX      2877
                                        *                        .                                               LEX      2878
                                        *                        ......................... ZLEQUAL               LEX      2879
                                        *                                                                        LEX      2880
                                        *                   A REPLACEMENT STMT IS DETECTED WHEN A ZERO           LEX      2881
                                        *                   LEVEL EQUAL IS PRESENT.  NOTE THAT SOME              LEX      2882
                                        *                   CARE MUST BE EXERCISED TO DISTINGUISH BETWEEN        LEX      2883
                                        *                   AN ARRAY REPLACEMENT AND AN ASF DEFINITION           LEX      2884
                                        *                   (SEE BELOW).                                         LEX      2885
                                        *                                                                        LEX      2886
                                        *                D. ASF(I) = I+1      (ASF DEFINITION)                   LEX      2887
                                        *                                                                        LEX      2888
                                        *                   ASF DEFS AND ARRAY REPLACEMENTS ARE DISTINGUISHED    LEX      2889
                                        *                   VIA A SYMBOL TABLE SEARCH ON THE ARRAY/ASF NAME.     LEX      2890
                                        *                   IF THE NAME IS DEFINED IN *T.SYM* AS HAVING          LEX      2891
                                        *                   BEEN DIMENSIONED, THEN THIS IS AN ARRAY              LEX      2892
                                        *                   REPLACEMENT STMT.  ELSE, IT IS A STMT FUNCTION       LEX      2893
                                        *                   DEFINITION, OR...                                    LEX      2894
                                        *                                                                        LEX      2895
                                        *                E. COW(1:8) = 'STUBBORN'  (CHAR SUBSTRING ASGMNT)       LEX      2896
                                        *                                                                        LEX      2897
                                        *                   THIS STMT TYPE HAS TO BE SPECIAL-CASED BECAUSE       LEX      2898
                                        *                   A CHARACTER SUBSTRING ASSIGNMENT **LOOKS** LIKE      LEX      2899
                                        *                   A STMT FUNCTION DEFINITION.  I.E. *COW* IS **NOT**   LEX      2900
                                        *                   DIMENSIONED.  THE GIVEAWAY IS THE COLON.             LEX      2901
                                        *                                                                        LEX      2902
                                        *                  THEREFORE, A COLON OCCURING AT PAREN LEVEL 1          LEX      2903
                                        *                  **BEFORE** THE 1ST ZERO LEVEL EQUAL INDICATES         LEX      2904
                                        *                  THAT THIS IS A CHARACTER SUBSTRING ASSIGNMENT,        LEX      2905
                                        *                  **NOT** A CHARACTER STMT FUNCTION DEFINITION.         LEX      2906
                                        *                                                                        LEX      2907
                                        *           2. FOR THE FTN KEYWORD STMTS, *CST* CALLS *CAK* (CHECK FOR   LEX      2908
                                        *              AND ADJUST KEYWORD) TO SEARCH THE FTN KEYWORD TABLE       LEX      2909
                                        *              AT *FW.KEYW* FOR A KEYWORD MATCH.  SEE *CAK* FOR DETAILS. LEX      2910
                                        *                                                                        LEX      2911
                                        *         WHEN THE STMT TYPE HAS BEEN DETERMINED, A STMT TYPE            LEX      2912
                                        *         INFORMATION WORD IS TRANSFERED FROM THE KEYWORD TABLE          LEX      2913
                                        *         (OR FROM AN ARTIFICIALLY GENERATED KEYWORD TABLE ENTRY FOR     LEX      2914
                                        *         THE SEMANTICALLY DEFINED STMTS) TO THE CONTENTS OF *TB=TYPE*.  LEX      2915
                                        *         IN THIS WAY, ANY INTERESTED PARTY CAN EASILY FIND OUT ANY      LEX      2916
                                        *         STMT TYPE INFORMATION FOR THE STMT AT *T.TB*.  (TB=TYPE) WILL  LEX      2917
                                        *         BE USED BY *FEC* (FRONT END CONTROLLER) IN DETERMINING WHICH   LEX      2918
                                        *         STMT PROCESSOR IS TO PROCESS THE STMT AT *T.TB*.               LEX      2919
                                        *                                                                        LEX      2920
                                        *         ENTRY  (B4) = ADDR OF 1ST KEYWORD TOKEN TO CHECK IN *T.TB*.    LEX      2921
                                        *                (ZLEQUAL), (ZLCOMMA), AND (ZLPAREN) SET UP AS DESCRIBED LEX      2922
                                        *                ABOVE.                                                  LEX      2923
                                        *                                                                        LEX      2924
                                        *         EXIT   (TB=TYPE) = STMT TYPE INFORMATION WORD                  LEX      2925
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    92
                                                                      CST 
  
                                        *                (TB=1ST)  = ADDR OF 1ST NON-KEYWORD TOKEN IN *T.TB*.    LEX      2926
                                        *                            I.E. ADDR OF 1ST TOKEN THAT A STMT          LEX      2927
                                        *                            PROCESSOR WILL BEGIN PROCESSING AT.         LEX      2928
                                        *                                                                        LEX      2929
                                        *         USES   ALL BUT (A0)                                            LEX      2930
                                        *                                                                        LEX      2931
                                        *         CALLS  CAK,IFBIT,SSY,TLV,WARN                                  LEX      2932
                                                                                                                 LEX      2933
                                                                                                                 LEX      2934
           506  0400400506 +             CST      SUBR   =           ** ENTRY/EXIT **                            LEX      2935
           507  5110000023 +                      SA1    TB=CDF                                                  LEX      2936
                          0311000547 +            NZ     X1,CST7     IF C$ LINE                                  LEX      2937
                                                                                                                 LEX      2938
                                        *         INITIALIZATION.                                                LEX      2939
                                                                                                                 LEX      2940
           510  56540                             SA5    B4          (X5) = TOKEN WE ARE TO TRY AND FIND         LEX      2941
                                        *                                   A KEYWORD MATCH FOR                  LEX      2942
                     13666                        BX6    X6-X6                                                   LEX      2943
                          5140000000 X            SA4    ZLEQUAL     (X4) = ADDR IN *T.TB* OF LAST ZERO LVL *=*  LEX      2944
           511  5130000000 X                      SA3    ZLCOMMA                                                 LEX      2945
                          7225777766              SX2    X5-O.VAR                                                LEX      2946
           512  76740                             SX7    B4                                                      LEX      2947
                     43114                        MX1    2*CHAR                                                  LEX      2948
                          5170000022 +            SA7    TB=1ST                                                  LEX      2949
           513  6150000134 +                      SB5    UNTYP.                                                  LEX      2950
                          0312000554 +            NZ     X2,CST8     IF NOT A *VAR* TOKEN, STMT IS BAD (UNTYPED) LEX      2951
                                                                                                                 LEX      2952
                                        *         CHECK FOR *DO* STATEMENT.                                      LEX      2953
                                                                                                                 LEX      2954
           514  11615                             BX6    X1*X5       (X6) = 1ST 2 CHARS IN *VAR* TOKEN, -L- FMT  LEX      2955
                     37734                        IX7    X3-X4       (X7) = (ZLCOMMA) - (ZLEQUAL)                LEX      2956
                          20614                   LX6    2*CHAR                                                  LEX      2957
           515  7226777360                        SX2    X6-2RDO                                                 LEX      2958
                          0312000520 +            NZ     X2,CST2     IF 1ST 2 CHARS NOT *DO*                     LEX      2959
           516  0304000547 +                      ZR     X4,CST7     IF NO ZERO LEVEL *=* IN THIS STMT           LEX      2960
                          0337000532 +            MI     X7,CST5     IF ZERO LEVEL *,* NOT AFTER ZERO LVL *=*    LEX      2961
           517  6150000136 +                      SB5    DO.                                                     LEX      2962
                          0400000554 +            EQ     CST8                                                    LEX      2963
                                                                                                                 LEX      2964
                                        *         CHECK FOR *IF* STATEMENT.                                      LEX      2965
                                                                                                                 LEX      2966
           520  7226776671               CST2     SX2    X6-2RIF                                                 LEX      2967
                          0312000532 +            NZ     X2,CST5     IF 1ST 2 CHARS NOT *IF*                     LEX      2968
           521  43136                             MX1    -5*CHAR                                                 LEX      2969
                     46000                        NO                                                             LEX      2970
                          20122                   LX1    8*CHAR-5*CHAR                                           LEX      2971
                               15251              BX2    -X1*X5                                                  LEX      2972
           522  0312000532 +                      NZ     X2,CST5     IF MORE THAN JUST *IF*                      LEX      2973
                                                                                                                 LEX      2974
                                        *         HERE IF KEYWORD IS *IF*.                                       LEX      2975
                                        *                                                                        LEX      2976
                                        *         CHECK FOR --                                                   LEX      2977
                                        *                                                                        LEX      2978
                                        *                IF(...)XXX                                              LEX      2979
                                        *                                                                        LEX      2980
                                        *         WHERE *XXX* IS -                                               LEX      2981
                                        *                                                                        LEX      2982
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    93
                                                                      CST 
  
                                        *           A. *EOS* TOKEN.                                              LEX      2983
                                        *           B. *VAR* TOKEN.                                              LEX      2984
                                        *           C. *CONS* TOKEN.                                             LEX      2985
                                        *           D. *HOLL* TOKEN.                                             LEX      2986
                                                                                                                 LEX      2987
                          5130000000 X            SA3    ZLPAREN     (X3) = ADDR OF 1ST ZERO LEVELING PAREN,     LEX      2988
                                        *                                   ELSE .ZR. IF NONE (SEE PREAMBLE)     LEX      2989
           523  56241                             SA2    B4+B1       (X2) = TOKEN THAT FOLLOWS *IF*              LEX      2990
                     63230                        SB2    X3                                                      LEX      2991
                          7272777740              SX7    X2-O.(                                                  LEX      2992
           524  77124                             SX1    B2-B4                                                   LEX      2993
                     0317000532 +                 NZ     X7,CST5     IF NOT *IF(*                                LEX      2994
           525  0303000532 +                      ZR     X3,CST5     IF NO ZERO LEVELING PAREN, NOT *IF* STMT    LEX      2995
                          0321000527 +            PL     X1,CST3     IF *IF(* IS BEFORE 1ST ZERO LEVELING PAREN  LEX      2996
                                                                                                                 LEX      2997
                                        *         HERE IF WE MUST BE TYPING AN *IF(* THAT IS THE OBJECT          LEX      2998
                                        *         OF AN *IF*.  I.E. *IF(...)IF(*.  IF THIS STMT CONTAINS         LEX      2999
                                        *         A ZERO LEVEL *=*, THEN *=* MUST BELONG TO OBJECT OF            LEX      3000
                                        *         *IF* AND OBJECT OF *IF* MUST BE REPLACEMENT STMT.              LEX      3001
                                        *                                                                        LEX      3002
                                        *         E.G. --                                                        LEX      3003
                                        *                DIMENSION IF(10)                                        LEX      3004
                                        *                IF(...) IF(10)=0                                        LEX      3005
                                                                                                                 LEX      3006
           526  0314000532 +                      NZ     X4,CST5     IF ZERO LEVEL *=* PRESENT                   LEX      3007
                          0400000531 +            EQ     CST4        STMT IS *IF*...                             LEX      3008
                                                                                                                 LEX      3009
                                        *         CHECK 1ST TOKEN AFTER ZERO LEVELING RIGHT PAREN.               LEX      3010
                                                                                                                 LEX      3011
           527  5223000001               CST3     SA2    X3+1        (X2) = TOKEN THAT FOLLOWS ZERO LVLING PAREN LEX      3012
                          7272777763              SX7    X2-O.SEP                                                LEX      3013
           530  0327000532 +                      PL     X7,CST5     IF TOKEN IS NOT POSSIBLE IN *IF* STMT       LEX      3014
                                                                                                                 LEX      3015
           531  6150000137 +             CST4     SB5    IF.                                                     LEX      3016
                          0400000554 +            EQ     CST8                                                    LEX      3017
                                                                                                                 LEX      3018
                                        *         CHECK FOR REPLACEMENT STATEMENT.                               LEX      3019
                                                                                                                 LEX      3020
           532  0304000547 +             CST5     ZR     X4,CST7     IF NO ZERO LEVEL *=*, NOT REPLACEMENT...    LEX      3021
                          5114000001              SA1    B4+1        (X1) = TOKEN FOLLOWING *VAR* TOKEN          LEX      3022
           533  6150000140 +                      SB5    REP.                                                    LEX      3023
                          7261777766              SX6    X1-O.VAR                                                LEX      3024
           534  0316000536 +                      NZ     X6,CST6     IF NOT A LONG NAME (NR CHARS .LE. 7)        LEX      3025
                          0100000000 X            CALL   TLV         TRUNCATE LONG VARIABLE NAME                 LEX      3026
           535  76640                             SX6    B4                                                      LEX      3027
                     5160000022 +                 SA6    TB=1ST                                                  LEX      3028
                                                                                                                 LEX      3029
                                        *         DISTINGUISH BETWEEN --                                         LEX      3030
                                        *                                                                        LEX      3031
                                        *           1. SIMPLE REPLACEMENT.                                       LEX      3032
                                        *              E.G.  DOG = CAT                                           LEX      3033
                                        *                                                                        LEX      3034
                                        *           2. ARRAY REPLACEMENT.                                        LEX      3035
                                        *              E.G.  DIMENSION DOG(10)                                   LEX      3036
                                        *                    DOG(10) = CAT                                       LEX      3037
                                        *                                                                        LEX      3038
                                        *           3. ASF DEFINITION.                                           LEX      3039
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    94
                                                                      CST 
  
                                        *              E.G.  DOG(10) = CAT                                       LEX      3040
                                        *                                                                        LEX      3041
                                        *           4. CHARACTER SUBTRING ASSIGNMENT.                            LEX      3042
                                        *              E.G.  CHAR(1:5) = 'HORNS'                                 LEX      3043
                                                                                                                 LEX      3044
                               56141              SA1    B4+B1                                                   LEX      3045
                                                                                                                 LEX      3046
           536  6150000140 +             CST6     SB5    REP.                                                    FC5A110    26
                          5130000000 X            SA3    STAGE                                                   FC5A110    27
           537  7160000000 X                      SX6    FEC=EXU                                                 FC5A110    28
                          37636                   IX6    X3-X6                                                   FC5A110    29
           540  0306000554 +                      ZR     X6,CST8     IF IN EXECUTABLES                           FC5A110    30
                          43252                   MX2    WA.SYML                                                 FC5A110    31
           541  7231777740                        SX3    X1-O.(                                                  LEX      3048
                          11625                   BX6    X2*X5       (X6) = 1ST 7 CHARS OF *VAR* TOKEN, -L- FMT  LEX      3049
           542  0313000554 +                      NZ     X3,CST8     IF *VAR* NOT FOLLOWED BY *(*, NOT ARRAY/ASF LEX      3050
                                                  HX1    TB.COL                                                  FC50170     5
                          0331000554 +            MI     X1,CST8     IF ( CONTAINS COLON, IS REPL.               FC50170     6
           543  0100000000 X                      CALL   SSY         SCAN SYMBOL TABLE                           LEX      3052
           544  6150000140 +                      SB5    REP.                                                    LEX      3055
                          20261                   SBIT   X2,WB.ARYP                                              LEX      3060
           545  0332000554 +                      MI     X2,CST8     IF AN ARRAY, MUST BE REP.                   LEX      3061
                          6150000135 +            SB5    STF.                                                    LEX      3063
           546  0400000554 +                      EQ     CST8                                                    LEX      3073
                                                                                                                 LEX      3074
                                        *         HERE TO SCAN FTN KEYWORD TABLE.                                LEX      3075
                                                                                                                 LEX      3076
           547  5110000023 +             CST7     SA1    TB=CDF      C$ FLAG                                     LEX      3077
                          5221000152 +            SA2    X1+FW.KEYS                                              LEX      3078
           550  5231000154 +                      SA3    X1+L.KEYS                                               LEX      3079
                          63620                   SB6    X2                                                      LEX      3080
                               63730              SB7    X3                                                      LEX      3081
           551  0100001711 +                      RJ     CAK         CHECK AND ADJUST KEYWORD                    LEX      3082
           552  6150000134 +                      SB5    UNTYP.                                                  LEX      3083
                          0470000554 +            ZR     B7,CST8     IF NO FIND IN FTN KEYWORD TABLE             LEX      3084
           553  0670000555 +                      PL     B7,CST10    IF KEYWORD SPELLED OK                       LEX      3085
                                                                                                                 LEX      3086
                                        *         HERE TO LOAD UP A SPECIAL *KEYW* ENTRY, I.E. ONE THAT IS       LEX      3087
                                        *         NOT IN THE FTN KEYWORD TABLE.                                  LEX      3088
                                                                                                                 LEX      3089
           554  5155000000               CST8     SA5    B5+                                                     LEX      3090
                          46000                   NO                                                             LEX      3091
                               10655              BX6    X5                                                      LEX      3092
                                                                                                                 LEX      3093
                                        *         FINAL PROCESSING.                                              LEX      3094
                                        *                                                                        LEX      3095
                                        *           1. SAVE STATEMENT TYPE *KEYW* ENTRY IN (TB=TYPE).            LEX      3096
                                        *                                                                        LEX      3097
                                        *           2. SET (TB=1ST) = ADDR OF 1ST NON-KEYWORD TOKEN.             LEX      3098
                                                                                                                 LEX      3099
           555  7174000000               CST10    SX7    B4+                                                     LEX      3100
                          5160000032 +            SA6    TB=TYPE                                                 LEX      3101
           556  5170000022 +                      SA7    TB=1ST                                                  LEX      3102
                          0400000506 +            EQ     EXIT.                                                   LEX      3103
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    95
                                                                      PLR 
  
                                        **        PLR - PROCESS LISTING REQUEST.                                 LEX      3105
                                        *                                                                        LEX      3106
                                        *                                                                        LEX      3107
                                        *         *PLR* IS CONCERNED WITH MAKING SOME VERY IMPORTANT DECISIONS   LEX      3108
                                        *         ABOUT WHAT TO DO ABOUT THE SOURCE LINE AT *CP.FLIN/CP.CARD*    LEX      3109
                                        *         ET SEQ.  AS *PLR*S NAME IMPLIES, THIS USUALLY HAS SOMETHING TO LEX      3110
                                        *         DO WITH LISTING...BUT NOT ALWAYS.                              LEX      3111
                                        *                                                                        LEX      3112
                                        *         *PLR* IS PRIMARILY CONCERNED, NOT WITH LISTING, BUT WITH       LEX      3113
                                        *         FREEING UP *CP.CARD* ET SEQ FOR A NEW SOURCE LINE THE NEXT     LEX      3114
                                        *         TIME WE READ VIA *RNC* (READ NEXT CARD).  *PLR* USUALLY        LEX      3115
                                        *         ENDS UP MOVING THE SOURCE LINE AT *CP.FLIN/CP.CARD* TO         LEX      3116
                                        *         *T.STMT* (STMT/DEFERRED LIST BUFFER)...BUT NOT ALWAYS.         LEX      3117
                                        *                                                                        LEX      3118
                                        *         THIS COMMENTARY IS REALLY MORE AT A WARNING THAN INFORMATIVE.  LEX      3119
                                        *         LISTING/LINE LOGIC CAN BE VERY PATHOLOGICAL WITHOUT EVEN       LEX      3120
                                        *         TRYING.  I MADE AN ATTEMPT TO DEAL WITH THIS IN THE *LEX*      LEX      3121
                                        *         IMS.  THAT'S WHERE TO GO...                                    LEX      3122
                                        *                                                                        LEX      3123
                                        *                                                                        LEX      3124
                                        *         ENTRY  A VARIETY OF CELLS/FLAGS, SOME GLOBAL, SOME LOCAL.      LEX      3125
                                        *                FOLLOWING IS A BRIEF LIST.  SEE APPROPRIATE CELL        LEX      3126
                                        *                DEFINITION FOR MORE INFORMATION.                        LEX      3127
                                        *                                                                        LEX      3128
                                        *                GLOBAL --                                               LEX      3129
                                        *                                                                        LEX      3130
                                        *                *CP.FLIN/CP.CARD* IS THE INPUT LINE IMAGE AREA.         LEX      3131
                                        *                                                                        LEX      3132
                                        *                (L.CARD)  = NR OF WORDS IN *CP.FLIN/CP.CARD*.           LEX      3133
                                        *                                                                        LEX      3134
                                        *                (CO.SEQ)  = .NZ. IF IN *SEQ* MODE, ELSE .ZR.            LEX      3135
                                        *                                                                        LEX      3136
                                        *                (WO.LOS)  = WORKING SOURCE LISTING FLAG.                LEX      3137
                                        *                          = .NZ. IF LISTING SELECTED, ELSE .ZR.         LEX      3138
                                        *                                                                        LEX      3139
                                        *                (CARDS)   = NR OF CARDS/LINES READ, I.E. SOURCE LINE    LEX      3140
                                        *                            NR IN BINARY.                               LEX      3141
                                        *                                                                        LEX      3142
                                        *                LOCAL --                                                LEX      3143
                                        *                                                                        LEX      3144
                                        *                (LN=XXX) ARE A GROUP OF CELLS THAT CONTAIN INFORMATION  LEX      3145
                                        *                         ABOUT THE CURRENT SOURCE LINE AT *CP.CARD*.    LEX      3146
                                        *                                                                        LEX      3147
                                        *                (SB=XXX) ARE A GROUP OF CELLS THAT CONTAIN INFORMATION  LEX      3148
                                        *                         ABOUT *T.STMT* (STMT/DEFERRED LIST BUFFER).    LEX      3149
                                        *                                                                        LEX      3150
                                        *         EXIT   *T.STMT* SET UP, IF APPROPRIATE.                        LEX      3151
                                        *                LINE LISTED, IF APPROPRIATE.                            LEX      3152
                                        *                                                                        LEX      3153
                                        *         USES   ALL                                                     LEX      3154
                                        *                                                                        LEX      3155
                                        *         CALLS  ALLOC,LDB,LSL,MOVE,ZTB                                  LEX      3156
                                                                                                                 LEX      3157
                                                                                                                 LEX      3158
           557  0400400557 +             PLR      SUBR               ** ENTRY/EXIT **                            LEX      3159
                                                                                                                 LEX      3160
                                        *         SET UP LINE NUMBER FOR LISTING PURPOSES IN NON-SEQ MODE --     LEX      3161
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    96
                                                                      PLR 
  
                                        *                                                                        LEX      3162
                                        *           IF IN LIST MODE (L.NE.0 .AND. C/-LIST,ALL ACTIVE) AND --     LEX      3163
                                        *                                                                        LEX      3164
                                        *             1. IF THIS LINE NR IS A MULTIPLE OF 5, OR                  LEX      3165
                                        *             2. IF THIS LINE IS A C/-LIST LINE, OR                      LEX      3166
                                        *             3. IF (CO.SNAP) .NZ. IN *TEST* MODE.                       LEX      3167
                                        *                                                                        LEX      3168
                                        *           IF IN DEFERRED LIST MODE (L=0 .OR. C/-LIST,NONE ACTIVE) AND  LEX      3169
                                        *                                                                        LEX      3170
                                        *             1. IF THIS IS INITIAL LINE OF STATEMENT, OR                LEX      3171
                                        *             2. IF NOT INITIAL LINE OF STMT .AND. LINE NR IS MULTIPLE   LEX      3172
                                        *                OF 5.                                                   LEX      3173
                                        *                                                                        LEX      3174
                                        *         NOTE: ALL THIS HOO DAH DAH IS SKIPPED FOR NOW... WE ARE        LEX      3175
                                        *         TRYING TO DECIDE WHETHER WE LIKE A SOURCE LISTING THAT         LEX      3176
                                        *         UNCONDITIONALLY HAS A COMPILER-GENERATED LINE NUMBER ON        LEX      3177
                                        *         EACH SOURCE LINE (NON-SEQ ONLY).                               LEX      3178
                                                                                                                 LEX      3179
           560  5110000000 X                      SA1    CO.SEQ                                                  LEX      3180
                          5120002307 +            SA2    =10H                                                    LEX      3181
           561  46000                             NO                                                             LEX      3182
                     10622                        BX6    X2                                                      LEX      3183
                          0311000563 +            NZ     X1,PLR40    IF *SEQ* MODE INPUT                         FC50761     9
                                                                                                                 LEX      3185
                                         .LINR    SKIP                                                           LEX      3186
                                         .T       IFEQ   TEST,ON                                                 LEX      3187
                                                  SA1    CO.SNAP                                                 LEX      3188
                                                  NZ     X1,PLR30    IF ANY SNAP IS ON, FORCE OUT LINE NR        FC50761    10
                                         .T       ENDIF                                                          LEX      3190
                                                                                                                 LEX      3191
                                                  SA1    SLIST                                                   LEX      3192
                                                  SA2    WO.LOS      (X2) = WORKING SOURCE LIST FLAG             LEX      3193
                                                  SA3    LN=TYPE                                                 LEX      3194
                                                  BX1    X1*X2       (X1) = .NZ. IF LISTING THIS LINE, ELSE .ZR. LEX      3195
                                                  SX7    X3-LT.INIT                                              LEX      3196
                                                  NZ     X1,PLR20    IF LISTING THIS LINE                        FC50761    11
                                                  ZR     X7,PLR30    IF INITIAL LINE OF STMT .AND. NOT LISTING   FC50761    12
                                                                                                                 LEX      3199
                                         PLR20    BSS    0                                                       FC50761    13
                                                  SA1    CARDS       (X1) = LINE NR (IN BINARY)                  LEX      3201
                                                  SX2    146315B     (X2) = MAGIC NR FOR SENSING MULTIPLES OF 5  LEX      3202
                                                  SX3    5                                                       LEX      3203
                                                  IX7    X1*X2                                                   LEX      3204
                                                  AX7    18                                                      LEX      3205
                                                  IX2    X7*X3                                                   LEX      3206
                                                  IX3    X1-X2                                                   LEX      3207
                                                  NZ     X3,PLR40    IF LINE NR IS NOT MULTIPLE OF 5             FC50761    14
                                         .LINR    ENDIF                                                          LEX      3209
                                                                                                                 LEX      3210
           562  5110000013 +             PLR30    SA1    LN=NUMR     (X1) = LINE NR, IN -R- FORMAT               FC50761    15
                          0100000000 X            CALL   ZTB         CONVERT ZEROES TO BLANKS                    LEX      3212
                                                                                                                 LEX      3213
           563  5110000000 X             PLR40    SA1    STAGE       CHECK IF LINE COMPILED                      FC50761    16
                          20606                   LX6    CHAR                                                    FC50761    17
           564  7120000000 X                      SX2    FEC=BY      BYPASS FLAG                                 FC50761    18
                          37112                   IX1    X1-X2                                                   FC50761    19
           565  0311000567 +                      NZ     X1,PLR41    IF COMPILED                                 FC50761    20
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    97
                                                                      PLR 
  
                          7120004646              SX2    2R--                                                    FC50761    21
           566  20252                             LX2    42                                                      FC50761    22
                     43014                        MX0    12                                                      FC50761    23
                          0400000575 +            EQ     PLR43       GO STORE                                    FC50761    24
                                                                                                                 FC50761    25
           567  5110000000 X             PLR41    SA1    IFLEVEL     GET CURRENT IF LEVEL                        FC50761    26
                          0301000576 +            ZR     X1,PLR44    IF ZERO                                     FC50761    27
           570  7221777633                        SX2    X1-100D                                                 FC50761    28
                          0322000574 +            PL     X2,PLR42    IF GREATER THAN 99                          FC50761    29
           571  10566                             BX5    X6                                                      FC50761    30
                     0100000000 X                 RJ     CDD         CONVERT LEVEL                               FC50761    31
           572  43014                             MX0    12                                                      FC50761    32
                     20652                        LX6    42                                                      FC50761    33
                          20066                   LX0    -6                                                      FC50761    34
                               11606              BX6    X0*X6       MASK TWO DIGITS                             FC50761    35
           573  15550                             BX5    -X0*X5                                                  FC50761    36
                     12656                        BX6    X5+X6       MERGE IF LEVEL AND LINE NR                  FC50761    37
                          0400000576 +            EQ     PLR44                                                   FC50761    38
                                                                                                                 FC50761    39
           574  7120444445               PLR42    SX2    3R99+       INDICATE IF LEVEL > 99                      FC50761    40
                          20244                   LX2    36                                                      FC50761    41
                               43022              MX0    18                                                      FC50761    42
                                                                                                                 FC50761    43
           575  20066                    PLR43    LX0    -6                                                      FC50761    44
                     11202                        BX2    X0*X2                                                   FC50761    45
                          15660                   BX6    -X0*X6                                                  FC50761    46
                               12626              BX6    X2+X6       MERGE 99+ AND LINE NR                       FC50761    47
                                                                                                                 FC50761    48
           576  5160000000 X             PLR44    SA6    CP.FLIN                                                 FC50761    49
                                                                                                                 LEX      3216
                                        *         DECIDE WHETHER TO MOVE LINE AT *CP.FLIN/CP.CARD* TO *T.STMT*.  LEX      3217
                                        *                                                                        LEX      3218
                                        *         LINE IS MOVED TO *T.STMT* ACCORDING TO THE FOLLOWING           LEX      3219
                                        *         RULES --                                                       LEX      3220
                                        *                                                                        LEX      3221
                                        *           1. IF NOT IN *HEADER DELAY* MODE (*LEXFLG/LF.HDR* OFF,       LEX      3222
                                        *              I.E. THE MOST FREQUENT CASE), ALL NON-COMMENT LINES       LEX      3223
                                        *              ARE MOVED TO *T.STMT*.                                    LEX      3224
                                        *                                                                        LEX      3225
                                        *           2. IF IN *HEADER DELAY* MODE, AN ATTEMPT IS MADE TO SAVE     LEX      3226
                                        *              ALL LINES IN *T.STMT*.  AS FAR AS *PLR* IS CONCERNED,     LEX      3227
                                        *              THIS EFFORT IS THWARTED ONLY WHEN THE NR OF LINES         LEX      3228
                                        *              IN *T.STMT* EXCEEDS *MAX.LINC*.                           LEX      3229
                                        *                                                                        LEX      3230
                                        *              SEE *LEXFLG/LF.HDR* FOR MORE INFORMATION.                 LEX      3231
                                                                                                                 LEX      3232
                          5110000004 +            SA1    LEXFLG                                                  LEX      3233
           577  5120000014 +                      SA2    LN=TYPE                                                 LEX      3234
                          5130000020 +            SA3    SB=LINC     (X3) = NR OF LINES IN *T.STMT*              LEX      3235
                                                  LX1    59-LF.HDRP                                              LEX      3236
           600  7262777774                        SX6    X2-LT.CMNT                                              LEX      3237
                          7272777773              SX7    X2-LT.NULL                                              LEX      3238
           601  0331000603 +                      MI     X1,PLR60    IF IN *HEADER DELAY* MODE                   FC50761    50
                          0306000620 +            ZR     X6,PLR70    IF LINE IS COMMENT                          FC50761    51
           602  0307000620 +                      ZR     X7,PLR70    IF LINE IS BLANK/NULL/COMMENT               FC50761    52
                                                                                                                 LEX      3246
                                        *         HERE TO MOVE LINE AT *CP.FLIN* ET SEQ TO *T.STMT*.             LEX      3247
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    98
                                                                      PLR 
  
                                        *                                                                        LEX      3248
                                        *           1. ALLOCATE ENOUGH SPACE IN *T.STMT* FOR SAVED LINE.         LEX      3249
                                        *              THE NR OF WORDS TO ALLOCATE IS DETERMINED BY TAKING       LEX      3250
                                        *              THE SUM OF THE FOLLOWING --                               LEX      3251
                                        *                                                                        LEX      3252
                                        *             A. THE CONTENTS OF *L.CARD*, WHICH CONTAINS THE NR         LEX      3253
                                        *                OF WORDS IN THIS SOURCE LINE, AS DETERMINED BY *RNC*    LEX      3254
                                        *                (READ NEXT CARD).                                       LEX      3255
                                        *                                                                        LEX      3256
                                        *             B. + CP.CARD-CP.FLIN, WHICH REFLECTS THE PRINT LINE        LEX      3257
                                        *                IMAGE AREA USED FOR SPACING AND THE COMPILER-GENERATED  LEX      3258
                                        *                LINE NR.                                                LEX      3259
                                        *                                                                        LEX      3260
                                        *             C. + 1, FOR THE *LINE INFORMATION* HEADER WORD THAT        LEX      3261
                                        *                EVERY LINE IN *T.STMT* IS PREFIXED WITH.                LEX      3262
                                        *                                                                        LEX      3263
                                        *           2. SET UP THE *LINE INFORMATION* HEADER WORD TO CONTAIN --   LEX      3264
                                        *                                                                        LEX      3265
                                        *             A. THE NR OF WORDS IN THIS *T.STMT* LINE ENTRY.            LEX      3266
                                        *                                                                        LEX      3267
                                        *             B. THE *LINE TYPE*, (LN=TYPE), OF THIS LINE.               LEX      3268
                                        *                                                                        LEX      3269
                                        *             C. THE POSITION OF THE 1ST ENTOKENABLE CHARACTER ON        LEX      3270
                                        *                THIS LINE, (LN=FEN), (LN=FENB), (LN=FENL).              LEX      3271
                                        *                                                                        LEX      3272
                                        *           3. MOVE THE LINE AT *CP.FLIN* ET SEQ TO *T.STMT*.            LEX      3273
                                                                                                                 LEX      3274
           603  5110000000 X             PLR60    SA1    L.CARD      (X1) = NR OF WORDS IN SOURCE LINE           FC50761    53
                          6120000000 X            SB2    CP.FLIN     (B2) = FWA OF LISTABLE SOURCE LINE AREA     LEX      3276
           604  6130000000 X                      SB3    CP.CARD     (B3) = FWA OF SCANNABLE SOURCE LINE         LEX      3277
                          67432                   SB4    B3-B2                                                   LEX      3278
                               63514              SB5    B4+X1       (B5) = NR OF WORDS IN LISTABLE SOURCE LINE  LEX      3279
                                        *                                   AREA (INCLUDES FULL WORD EOL MARK)   LEX      3280
           605  66651                             SB6    B5+B1       (B6) = NR OF WORDS TO ALLOCATE              LEX      3281
                     5110000000 X                 ALLOC  T.STMT,B6                                               LEX      3282
           607  5130000014 +                      SA3    LN=TYPE                                                 LEX      3283
                          76660                   SX6    B6                                                      LEX      3284
                               67476              SB4    B7-B6                                                   LEX      3285
                                                  LX6    SB.LENP-0                                               LEX      3286
           610  76740                             SX7    B4                                                      LEX      3287
                     20322                        LX3    SB.LNTP-0                                               LEX      3288
                          12663                   BX6    X6+X3       MERGE *LNT*                                 LEX      3289
                               37771              IX7    X7-X1       (X7) = ORD OF *LINE INFO* HEADER WORD       LEX      3290
           611  5110000006 +                      SA1    LN=FEN      (X1) = ORD, RELATIVE TO *CP.FLIN*, OF WORD  LEX      3291
                                        *                                   CONTAINING 1ST ENTOKENABLE CHAR      LEX      3292
                          5120000007 +            SA2    LN=FENB     (X2) = BIT POSITION OF 1ST ENTOKENABLE CHAR LEX      3293
           612  5130000010 +                      SA3    LN=FENL     (X3) = NR OF BITS, RELATIVE TO *FEN/FENB*,  LEX      3294
                                        *                                   IN THIS SOURCE LINE                  LEX      3295
                          36471                   IX4    X7+X1                                                   LEX      3296
                               20241              LX2    SB.FENBP-0                                              LEX      3297
           613  73441                             SX4    X4+B1       (X4) = ORD, RELATIVE TO *T.STMT*, OF FEN    LEX      3298
                     12662                        BX6    X6+X2       MERGE *FENB*                                LEX      3299
                          20330                   LX3    SB.FENLP-0                                              LEX      3300
                               12663              BX6    X6+X3       MERGE *FENL*                                LEX      3301
           614  20447                             LX4    SB.FENP-0                                               LEX      3302
                     12664                        BX6    X6+X4       MERGE *FEN*                                 LEX      3303
                          5170000021 +            SA7    SB=LORD                                                 LEX      3304
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE    99
                                                                      PLR 
  
           615  56640                             SA6    B4                                                      LEX      3305
                                                                                                                 LEX      3306
                                        *         MOVE THE LINE AT *CP.FLIN* ET SEQ TO *T.STMT*.                 LEX      3307
                                                                                                                 LEX      3308
                     76150                        SX1    B5          (X1) = COUNT                                LEX      3309
                          7120000000 X            SX2    CP.FLIN     (X2) = FROM                                 LEX      3310
           616  76341                             SX3    B4+B1       (X3) = TO                                   LEX      3311
                     0100000000 X                 MOVE   X1,X2,X3                                                LEX      3312
                                                                                                                 LEX      3313
           617  5110000020 +                      SA1    SB=LINC                                                 LEX      3314
                          73611                   SX6    X1+B1                                                   LEX      3315
                               54610              SA6    A1                                                      LEX      3316
                                                                                                                 LEX      3317
                                        *         LIST SOURCE LINE AT *CP.FLIN* ET SEQ --                        LEX      3318
                                        *                                                                        LEX      3319
                                        *           1. IF NOT IN *HEADER DELAY* MODE, .AND.                      LEX      3320
                                        *                                                                        LEX      3321
                                        *           2. IF IN *LIST* MODE (L.NE.0, SL.NE.0, C$-LIST,ALL ACTIVE).  LEX      3322
                                        *                                                                        LEX      3323
                                        *         ALSO NEED TO SET *SB.LOUTP* BIT IN *LINE INFORMATION*          LEX      3324
                                        *         HEADER WORD FOR LINE TO LIST.                                  LEX      3325
                                                                                                                 LEX      3326
           620  5110000000 X             PLR70    SA1    WO.LOS                                                  FC50761    54
                          5130000004 +            SA3    LEXFLG                                                  LEX      3328
           621  5140000014 +                      SA4    LN=TYPE                                                 LEX      3329
                                                  LX3    59-LF.HDRP                                              LEX      3330
                          0301000557 +            ZR     X1,EXIT.    IF NOT LISTING THIS SOURCE LINE             LEX      3331
           622  0333000557 +                      MI     X3,EXIT.    IF IN *HEADER DELAY* MODE, DONT LIST NOW... LEX      3332
                          7264777774              SX6    X4-LT.CMNT                                              LEX      3333
           623  0306000626 +                      ZR     X6,PLR80    IF COMMENT LINE, IT CANT BE IN T.STMT ...   FC50761    55
                                                                                                                 LEX      3335
                          5110000000 X            SA1    T.STMT                                                  LEX      3336
           624  5120000021 +                      SA2    SB=LORD                                                 LEX      3337
                          36612                   IX6    X1+X2       (X6) = ADDR OF *LINE INFO* WORD FOR LINE    LEX      3338
                               43701              MX7    1                                                       LEX      3339
           625  53360                             SA3    X6          (X3) = *LINE INFO* WORD                     LEX      3340
                                                  LX7    SB.LOUTP-59                                             LEX      3341
                     12637                        BX6    X3+X7       SET TO *LINE HAS BEEN LISTED*               LEX      3342
                          54630                   SA6    A3                                                      LEX      3343
                                                                                                                 LEX      3344
           626  7110000000 X             PLR80    SX1    CP.FLIN                                                 FC50761    56
                          5120000000 X            SA2    L.CARD                                                  LEX      3346
           627  73421                             =X4    X2+2-1      LENGTH INC. LINE# AND BLANK LESS EOL        LEX      3347
                     0100002105 +                 RJ     LSL         LIST SOURCE LINE                            LEX      3348
           630  0400000557 +                      EQ     EXIT.                                                   LEX      3349
  
  
  
  
                                        **        RNC - READ NEXT CARD.                                          LEX      3351
                                        *                                                                        LEX      3352
                                        *                                                                        LEX      3353
                                        *         READS A SINGLE SOURCE LINE FROM THE INPUT BUFFER *F.IN*        LEX      3354
                                        *         TO THE SOURCE LINE IMAGE AREA *CP.CARD*.  ALSO GUARANTEES      LEX      3355
                                        *         THAT, ON EXIT, THE EOL MARK IS ON A WORD BOUNDARY BY           LEX      3356
                                        *         APPROPRIATELY BLANK FILLING THE LAST WORD OF THE LINE IMAGE    LEX      3357
                                        *         AND STORING A FULL ZERO WORD EOL MARK AFTER IT.                LEX      3358
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   100
                                                                      RNC 
  
                                        *                                                                        LEX      3359
                                        *         ENTRY  (B1)     =  1                                           LEX      3360
                                        *                CIO ONLY - INITIAL *READ* ISSUED                        LEX      3361
                                        *                RM  ONLY - FILE TABLES INITIALIZED                      LEX      3362
                                        *                (LEXMODE)=  LEXICAL SCANNER MODE FLAG WHICH INDICATES   LEX      3363
                                        *                            TO *RNC* WHETHER OR NOT HE IS TO ACTUALLY   LEX      3364
                                        *                            PERFORM A *READC*.  SEE *LEXMODE* FOR       LEX      3365
                                        *                            DETAILS.                                    LEX      3366
                                        *                (CP.IFMT)=  +0 IF NORMAL UNCOMPRESSED INPUT             LEX      3367
                                        *                         =   1 IF MODIFY COMPRESSED INPUT (UNSUPPORTED) LEX      3368
                                        *                         =   2 IF UPDATE COMPRESSED INPUT (UNSUPPORTED) LEX      3369
                                        *                                                                        LEX      3370
                                        *         EXIT   (B1)     =  1                                           LEX      3371
                                        *                (CP.IFMT) = 1S59 IF EOR/EOF/EOI ENCOUNTERED, ELSE       LEX      3372
                                        *                              AS ON ENTRY.                              LEX      3373
                                        *                (CP.CARD) = .ZR. IF EOR/EOF/EOI ENCOUNTERED, ELSE 1ST   LEX      3374
                                        *                              WORD OF SOURCE LINE IMAGE                 LEX      3375
                                        *                (L.CARD) =  NR OF WORDS IN SOURCE LINE IMAGE            LEX      3376
                                        *                              I.E. INCLUDES FULL ZERO WORD EOL MARK     LEX      3377
                                        *                                                                        LEX      3378
                                        *         USES   ALL BUT A0,X0,A5,X5  (INCLUDES ALL CALLS)               LEX      3379
                                        *                                                                        LEX      3380
                                        *         CALLS  FETCH,READC,SFN                                         LEX      3381
                                                                                                                 LEX      3382
                                                                                                                 LEX      3383
           631  0400400631 +             RNC      SUBR   =           ** ENTRY/EXIT **                            LEX      3384
           632  5110000000 X                      SA1    CARDS                                                   LEX      3385
                          5120000000 X            SA2    CP.IFMT                                                 LEX      3386
           633  5130000005 +                      SA3    LEXMODE                                                 LEX      3387
                          73611                   SX6    X1+B1                                                   LEX      3388
                               54610              SA6    A1          UPDATE LINE COUNT                           LEX      3389
           634  0312400634 +                      NZ     X2,*+4S15   IF COMPRESSED INPUT (UPDATE OR MODIFY)      LEX      3390
                          7273777775              SX7    X3-LM.1ST                                               LEX      3391
           635  0317000641 +                      NZ     X7,RNC4     IF NOT 1ST LINE IN PGM UNIT                 LEX      3392
                                                                                                                 LEX      3393
                                        *         ZERO OUT UNUSED BITS IN LAST WORD OF CARD IMAGE.               LEX      3394
                                                                                                                 LEX      3395
                                         #RM      IFNE   CP#RM,0                                                 LEX      3396
                                                  SA2    F.IN        (X2) = ADDRESS OF INPUT FILE FIT            LEX      3397
                                                  FETCH  X2,RL,X1    RETURNS RECORD LENGTH (CHARS.) IN X1        LEX      3398
                                                  IX2    X1+X1                                                   LEX      3399
                                                  SX3    X1+9                                                    LEX      3400
                                                  SX1    52429       (2**19)/10 + 1                              LEX      3401
                                                  IX3    X3*X1                                                   LEX      3402
                                                  AX3    19          RECORD LENGTH (WORDS) IN X3                 LEX      3403
                                                  LX1    X2,B1                                                   LEX      3404
                                                  SB6    X3                                                      LEX      3405
                                                  IX2    X2+X1       RECORD LENGTH (BITS)                        LEX      3406
                                                  BX4    X3                                                      LEX      3407
                                                  LX3    6                                                       LEX      3408
                                                  SA1    CP.CARD-1+B6  LAST WORD OF LINE                         LEX      3409
                                                  LX4    2                                                       LEX      3410
                                                  IX3    X3-X4       LINE LENGTH (BITS)                          LEX      3411
                                                  MX4    1                                                       LEX      3412
                                                  IX3    X3-X2       UNUSED BIT COUNT                            LEX      3413
                                                  SB2    X3-59                                                   LEX      3414
                                                  AX4    -B2                                                     LEX      3415
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   101
                                                                      RNC 
  
                                                  BX6    X4*X1       DISCARD UNUSED BITS                         LEX      3416
                                                  AX4    6                                                       LEX      3417
                                                  SA6    A1                                                      LEX      3418
                                                  NZ     X4,RNC2     IF TERMINATOR AT LEAST 12 BITS LONG         LEX      3419
                                                  MX7    0                                                       LEX      3420
                                                  SA7    A6+B1       TERMINATE LINE WITH 60 ZERO BITS            LEX      3421
                                                                                                                 LEX      3422
                                         RNC2     BSS    0                                                       LEX      3423
                                         #RM      ENDIF                                                          LEX      3424
                                                                                                                 LEX      3425
                          5130000000 X            SA3    CP.CARD                                                 LEX      3426
           636  43060                             MX0    -2*CHAR                                                 LEX      3427
                                                                                                                 LEX      3428
           637  15430                    RNC3     BX4    -X0*X3                                                  LEX      3429
                     54331                        SA3    A3+B1                                                   LEX      3430
                          0314000637 +            NZ     X4,RNC3     IF NOT END OF IMAGE                         LEX      3431
                                                                                                                 LEX      3432
           640  64630                             SB6    A3          (B6) = LWA+1 OF SOURCE LINE                 LEX      3433
                     13111                        BX1    X1-X1       SET TO *NO EOR/EOF/EOI ENCOUNTERED*         LEX      3434
                          0400000643 +            EQ     RNC5                                                    LEX      3435
                                                                                                                 LEX      3436
           641  6160000000 X             RNC4     READC  F.IN,CP.CARD,16                                         LEX      3437
                                                                                                                 LEX      3438
                                        *         CHECK FOR AND PROCESS EOR/EOF/EOI.                             LEX      3439
                                                                                                                 LEX      3440
           643  6140000000 X             RNC5     SB4    CP.CARD                                                 LEX      3441
                          0301000646 +            ZR     X1,RNC6     IF NO EOR/EOF/EOI ENCOUNTERED               LEX      3442
           644  43601                             MX6    1                                                       LEX      3443
                     66700                        SB7    B0                                                      LEX      3444
                          5160000000 X            SA6    CP.IFMT     SET TO *EOR/EOF/EOI ENCOUNTERED*            LEX      3445
           645  0400000660 +                      EQ     RNC11                                                   LEX      3446
                                                                                                                 LEX      3447
                                        *         CHECK FOR FULL WORD AND 11 CHARACTER EOL MARK.                 LEX      3448
                                                                                                                 LEX      3449
           646  5116777776               RNC6     SA1    B6-1        (A1,X1) = A+C OF LAST WORD OF LINE IMAGE    LEX      3450
                          0311000651 +            NZ     X1,RNC7     IF NOT A FULL WORD EOL MARK                 LEX      3451
           647  5011777776                        SA1    A1-1                                                    LEX      3452
                          6166777776              SB6    B6-1                                                    LEX      3453
           650  43266                             MX2    -CHAR                                                   LEX      3454
                     15312                        BX3    -X2*X1                                                  LEX      3455
                          0313000653 +            NZ     X3,RNC8     IF NOT 11 CHAR EOL MARK                     LEX      3456
                                                                                                                 LEX      3457
                                        *         SPACE/BLANK FILL LAST WORD OF LINE IMAGE.                      LEX      3458
                                                                                                                 LEX      3459
           651  0100000000 X             RNC7     CALL   SFN         SPACE FILL NAME                             LEX      3460
           652  5061000000                        SA6    A1+                                                     LEX      3461
                                                                                                                 LEX      3462
                                        *         CHECK FOR, AND TRUNCATE, LONG LINE.                            LEX      3463
                                                                                                                 LEX      3464
           653  67764                    RNC8     SB7    B6-B4       (B7) = NR OF USEABLE WORDS IN SOURCE LINE   LEX      3465
                     6150000011                   SB5    MAX.CDL-1                                               LEX      3466
           654  0657000655 +                      LE     B7,B5,RNC9  IF LINE LEN OK                              LEX      3467
                          6175000000              SB7    B5+                                                     LEX      3468
                                                                                                                 LEX      3469
                                        *         PAD OUT LINE WITH BLANKS TO COLUMN 90.                         LEX      3470
                                                                                                                 LEX      3471
           655  5110002307 +             RNC9     SA1    =10H                                                    LEX      3472
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   102
                                                                      RNC 
  
                          10611                   BX6    X1                                                      LEX      3473
                                                                                                                 LEX      3474
           656  0675000660 +             RNC10    GE     B7,B5,RNC11 IF DONE                                     LEX      3475
                          56647                   SA6    B4+B7                                                   LEX      3476
                               66771              SB7    B7+B1                                                   LEX      3477
           657  0400000656 +                      EQ     RNC10                                                   LEX      3478
                                                                                                                 LEX      3479
                                        *         FINAL PROCESSING AND EXIT.                                     LEX      3480
                                                                                                                 LEX      3481
           660  13666                    RNC11    BX6    X6-X6                                                   LEX      3482
                     7177000001                   SX7    B7+1        (X7) = NR OF WORDS IN LINE (W/ EOL)         LEX      3483
                               56647              SA6    B4+B7       MARK EOL                                    LEX      3484
           661  5170000000 X                      SA7    L.CARD                                                  LEX      3485
                          0400000631 +            EQ     EXIT.                                                   LEX      3486
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   103
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK 
  
           662                           TOK      CTEXT  COMCTOK 2.0 - TOKEN GENERATOR.                          COMCTOK     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCTOK     4
                                                  QUAL   COMCTOK                                                 COMCTOK     5
                                 D_D              BASE   D                                                       COMCTOK     6
  
  
  
  
                                        ***       TOK - TOKEN GENERATOR.                                         COMCTOK     8
                                        *         P CLARE  77/01/20                                              COMCTOK     9
                                        *         P CLARE  78/04/27  VERSION 2.0                                 COMCTOK    10
  
  
  
  
                                        ***       TOK - TOKEN GENERATOR.                                         COMCTOK    12
                                        *                                                                        COMCTOK    13
                                        *                                                                        COMCTOK    14
                                        *         *COMCTOK* TRANSLATES AN INPUT SOURCE LINE FROM ITS PACKED      COMCTOK    15
                                        *         (10 CHARACTER PER WORD) FORM TO ITS ENTOKENED FORM.  THIS      COMCTOK    16
                                        *         *ENTOKENED FORM* IS DESCRIBED BY A HUMAN USING THE *TOGEL*     COMCTOK    17
                                        *         MACROS (DEFINED IN *COMATOK*).  THE PROGRAMMER ENCODES         COMCTOK    18
                                        *         THE *TOGEL* MACROS IN SUCH A FASHION AS TO DESCRIBE THE        COMCTOK    19
                                        *         PROCESS BY WHICH *TOK* CAN ENTOKEN ANY INPUT SOURCE LINE       COMCTOK    20
                                        *         THAT THE PROGRAMMER IS INTERESTED IN.                          COMCTOK    21
                                        *                                                                        COMCTOK    22
                                        *         THE *TOGEL* MACROS GENERATE A *TOGEL* OBJECT MODULE,           COMCTOK    23
                                        *         CALLED *TOM*, WHICH THE PROGRAMMER THEN FEEDS TO *TOK*.        COMCTOK    24
                                        *         *TOK* WILL EXECUTE/INTERPRET A *TOM*, PERFORMING THE           COMCTOK    25
                                        *         SPECIFIED ENTOKENING TASKS UPON THE INPUT SOURCE LINE.         COMCTOK    26
                                        *                                                                        COMCTOK    27
                                        *         *TOK* CAN INTERPRET THE FOLLOWING *TOGEL* BINARY               COMCTOK    28
                                        *         INSTRUCTIONS --                                                COMCTOK    29
                                        *                                                                        COMCTOK    30
                                        *                GROUP (A..Z),TOT,SQZ                                    COMCTOK    31
                                        *                GROUP (A..Z),TOT,NSQZ                                   COMCTOK    32
                                        *                IFT (A..Z)                                              COMCTOK    33
                                        *                  THEN                                                  COMCTOK    34
                                        *                  ELST                                                  COMCTOK    35
                                        *                  ENDT                                                  COMCTOK    36
                                        *                GOTO XX                                                 COMCTOK    37
                                        *                CALT XX                                                 COMCTOK    38
                                        *                CASEOF (A..Z)                                           COMCTOK    39
                                        *                  TOKEN                                                 COMCTOK    40
                                        *                ELSC                                                    COMCTOK    41
                                        *                  TOKEN                                                 COMCTOK    42
                                        *                ENDC                                                    COMCTOK    43
                                        *                GENTOK TOT                                              COMCTOK    44
                                        *                XEQ XXX                                                 COMCTOK    45
                                        *                PROC XXX                                                COMCTOK    46
                                        *                                                                        COMCTOK    47
                                        *         THE TOKEN GENERATION PROCESS, THEN, IS EXTREMELY TABLE DRIVEN. COMCTOK    48
                                        *         *TOK* HAS VERY LITTLE INTERNAL LOGIC OF ITS OWN.  IT DOES      COMCTOK    49
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   104
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *         EXACTLY WHAT THE *TOM* THAT IS DRIVING IT TELLS IT TO DO.      COMCTOK    50
                                        *                                                                        COMCTOK    51
                                        *         EACH PROCESSING NODE WITHIN *TOK* EXECUTES/INTERPRETS A        COMCTOK    52
                                        *         SINGLE *TOGEL* BINARY INSTRUCTION FROM THE *TOM*.  THESE       COMCTOK    53
                                        *         *TOGEL* BINARY INSTRUCTION INTERPRETERS ARE CALLED             COMCTOK    54
                                        *         *TOK* FUNCTIONAL UNITS, *TOFU*S FOR SHORT.                     COMCTOK    55
                                        *                                                                        COMCTOK    56
                                        *         THE ENTIRE SUBJECT OF TOKEN GENERATION AND HOW TO UNDERSTAND   COMCTOK    57
                                        *         AND USE *TOGEL* AND *TOK* IS DEALT WITH MUCH MORE THOROUGHLY   COMCTOK    58
                                        *         IN THE FTN 5 IMS IN THE CHAPTER FOR THE DECK *LEX*.            COMCTOK    59
                                        *         I STRONGLY ADVISE READING IT BEFORE TRYING TO MESS IN THIS     COMCTOK    60
                                        *         CODE.  IT WILL SAVE YOU A LOT OF TIME...                       COMCTOK    61
                                        *                                                                        COMCTOK    62
                                        ************************************************************************ COMCTOK    63
                                        *                                                                        COMCTOK    64
                                        *         USING *COMCTOK*                                                COMCTOK    65
                                        *                                                                        COMCTOK    66
                                        *         USING *COMCTOK* INVOLVES DOING THE FOLLOWING --                COMCTOK    67
                                        *                                                                        COMCTOK    68
                                        *           1. CONFIGURING *COMSTOK* (COMMON TOKEN GENERATOR INTERFACE   COMCTOK    69
                                        *              TEXT), *COMATOK* (COMMON TOKEN GENERATOR TOGEL MACROS),   COMCTOK    70
                                        *              AND *COMCTOK* (COMMON TOKEN GENERATOR).                   COMCTOK    71
                                        *                                                                        COMCTOK    72
                                        *              THIS ALSO INVOLVES THE SETTING UP OF SOME ASSEMBLY-TIME   COMCTOK    73
                                        *              DEPENDENCIES.  SEE BELOW.                                 COMCTOK    74
                                        *                                                                        COMCTOK    75
                                        *           2. LEARNING ENOUGH ABOUT *TOGEL* (TOKEN GENERATION LANGUAGE) COMCTOK    76
                                        *              TO WRITE A *TOGEL* PROGRAM THAT WILL DIRECT *TOK* AS TO   COMCTOK    77
                                        *              HOW YOU WISH HIM TO ENTOKEN.  I SUGGEST A READING OF THE  COMCTOK    78
                                        *              FTN 5 IMS FOR THE DECK *LEX*, AS THERE IS A THOROUGH      COMCTOK    79
                                        *              DESCRIPTION OF *TOGEL* PROGRAMMING THERE.                 COMCTOK    80
                                        *                                                                        COMCTOK    81
                                        *           3. WRITING YOUR *TOGEL* PROGRAM USING THE MACROS CONTAINED   COMCTOK    82
                                        *              IN *COMATOK* (COMMON TOKEN GENERATOR *TOGEL* MACROS).     COMCTOK    83
                                        *                                                                        COMCTOK    84
                                        *           4. SETTING UP *TOKCOM* (THE USER/TOK COMMUNICATIONS AREA).   COMCTOK    85
                                        *              *TOKCOM* IS CONCEPTUALLY SOMETHING LIKE A FILE *FET*      COMCTOK    86
                                        *              IN THAT IT IS A PARAMETER LIST THAT IS USED BOTH FOR      COMCTOK    87
                                        *              INPUT-TO-TOK AND OUTPUT-FROM-TOK INFORMATION.             COMCTOK    88
                                        *                                                                        COMCTOK    89
                                        *              IT SHOULD CONTAIN, AMONG OTHER THINGS, THE ADDR THAT YOU  COMCTOK    90
                                        *              WANT *TOK* TO ENTOKEN FROM, AND THE ADDR THAT YOU WISH    COMCTOK    91
                                        *              *TOK* TO ENTOKEN TO.  SEE NEXT SECTION FOR MORE           COMCTOK    92
                                        *              INFORMATION ON *TOKCOM*.                                  COMCTOK    93
                                        *                                                                        COMCTOK    94
                                        *           5. CALLING *TOK* (COMMON TOKEN GENERATOR) VIA AN *RJ* WITH   COMCTOK    95
                                        *              (B2) SET TO THE FWA OF YOUR *TOKCOM*.                     COMCTOK    96
                                        *                                                                        COMCTOK    97
                                        *              NOTE THAT THIS CALLING SEQUENCE ALLOWS *TOK* TO BE USED   COMCTOK    98
                                        *              WITH MULTIPLE *TOKCOM*S.                                  COMCTOK    99
                                        *                                                                        COMCTOK   100
                                        ************************************************************************ COMCTOK   101
                                        *                                                                        COMCTOK   102
                                        *         CONFIGURING *COMCTOK*                                          COMCTOK   103
                                        *                                                                        COMCTOK   104
                                        *         *COMCTOK* REQUIRES THE FOLLOWING COMDECKS --                   COMCTOK   105
                                        *                                                                        COMCTOK   106
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   105
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *                COMACPU - GENERAL CPU MACROS (IN *CPUTEXT*).            COMCTOK   107
                                        *                                                                        COMCTOK   108
                                        *                COMADEF - STRUCTURED FIELD DECLARATION MACROS.          COMCTOK   109
                                        *                                                                        COMCTOK   110
                                        *                COMAREG - REPLACEMENT FOR R= PSEUDO INSTRUCTION         COMCTOK   111
                                        *                          (IN *CPUTEXT*).                               COMCTOK   112
                                        *                                                                        COMCTOK   113
                                        *                COMATOK - COMMON TOKEN GENERATOR TOGEL MACROS.          COMCTOK   114
                                        *                                                                        COMCTOK   115
                                        *                COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.    COMCTOK   116
                                        *                                                                        COMCTOK   117
                                        *                COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE. COMCTOK   118
                                        *                                                                        COMCTOK   119
                                        *                COMSTOK - COMMON TOKEN GENERATOR INTERFACE TEXT.        COMCTOK   120
                                        *                                                                        COMCTOK   121
                                        *         IN ADDITION, IF YOU DECIDE TO INSTALL *COMCTOK* IN *TEST* MODE COMCTOK   122
                                        *         (SEE BELOW), THEN *COMDTOK* (COMMON TOKEN GENERATOR IDP        COMCTOK   123
                                        *         UTILITY) MUST BE PROVIDED (ALONG WITH A PROPERLY CONFIGURED    COMCTOK   124
                                        *         *COMCIDP*, OF COURSE).                                         COMCTOK   125
                                        *                                                                        COMCTOK   126
                                        *         IN THE FOLLOWING DISCUSSION, *ASSEMBLY-TIME DEPENDENCIES*      COMCTOK   127
                                        *         ARE DEFINED TO BE THOSE INTERFACES THAT THE *COMCTOK*          COMCTOK   128
                                        *         INSTALLER **MUST** PROVIDE, WHILE *ASSEMBLY-TIME OPTIONS* ARE  COMCTOK   129
                                        *         THOSE INTERFACES THAT ARE OPTIONAL.                            COMCTOK   130
                                        *                                                                        COMCTOK   131
                                        *----------------------------------------------------------------------- COMCTOK   132
                                        *                                                                        COMCTOK   133
                                        *         ASSEMBLY-TIME DEPENDENCIES --                                  COMCTOK   134
                                        *                                                                        COMCTOK   135
                                        *----------------------------------------------------------------------- COMCTOK   136
                                        *                                                                        COMCTOK   137
                                        *         BB./BN. STRUCTURE DEFINITIONS.                                 COMCTOK   138
                                        *                                                                        COMCTOK   139
                                        *         *BB.* AND *BN.* ARE THE STRUCTURE DEFINITIONS FOR *COMCBUB*    COMCTOK   140
                                        *         AND *COMCBUN*, RESPECTIVELY.  THESE STRUCTURES DESCRIBE/DEFINE COMCTOK   141
                                        *         WHAT A *GROUP* GENERATED VIA *GROUP,,SQZ/COMCBUB* AND/OR       COMCTOK   142
                                        *         *GROUP,,NSQZ/COMCBUN* LOOKS LIKE.                              COMCTOK   143
                                        *                                                                        COMCTOK   144
                                        *         FIELDS WITHIN *BB./BN.* STRUCTURES ARE AS FOLLOWS --           COMCTOK   145
                                        *                                                                        COMCTOK   146
                                        *                TOC = TOKEN CHARACTERS.  I.E. *COMCBUB/COMCBUN* WILL    COMCTOK   147
                                        *                      BURST/BUILD CHARACTERS INTO THIS FIELD.           COMCTOK   148
                                        *                                                                        COMCTOK   149
                                        *                TOT = TOKEN TYPE.  I.E. *COMCTOK* WILL FILL THIS        COMCTOK   150
                                        *                      FIELD WITH THE SPECIFIED TOKEN TYPE.              COMCTOK   151
                                        *                                                                        COMCTOK   152
                                        *                      NOTE THAT *TOT* FIELD CAN BE OF NULL LENGTH       COMCTOK   153
                                        *                      IF DESIRED.  I.E. --                              COMCTOK   154
                                        *                                                                        COMCTOK   155
                                        *                               DESCRIBE BN.                             COMCTOK   156
                                        *                          TOC  DEFINE   60                              COMCTOK   157
                                        *                          TOT  DEFINE   0                               COMCTOK   158
                                        *                                                                        COMCTOK   159
                                        *                      THIS CAN BE USEFUL FOR PACKING UP CHARACTER       COMCTOK   160
                                        *                      STRINGS THAT DO NOT HAVE A TOKEN TYPE ASSOCIATED  COMCTOK   161
                                        *                      WITH THEM.                                        COMCTOK   162
                                        *                                                                        COMCTOK   163
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   106
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *----------------------------------------------------------------------- COMCTOK   164
                                        *                                                                        COMCTOK   165
                                        *         "O."XXX - TOKEN (OPERATOR/OPERAND) TYPES.                      COMCTOK   166
                                        *                                                                        COMCTOK   167
                                        *         THE *COMCTOK* INSTALLER MUST DEFINE ALL POSSIBLE TOKEN TYPES   COMCTOK   168
                                        *         USED IN THE TOGEL PROGRAM, WITH THE EXCEPTION OF "O."BOS       COMCTOK   169
                                        *         (BEGINNING OF STMT) AND "O."EOS (END OF STMT) TOKENS.          COMCTOK   170
                                        *         SEE "O."BOS AND "O."EOS IN *ASSEMBLY-TIME OPTIONS* BELOW.      COMCTOK   171
                                        *                                                                        COMCTOK   172
                                        *         TOKEN TYPES ARE COMPASS SYMBOLS THAT HAVE THE FORM --          COMCTOK   173
                                        *                                                                        COMCTOK   174
                                        *                "O."XXX                                                 COMCTOK   175
                                        *                                                                        COMCTOK   176
                                        *         WHERE  "O." = TOKEN TYPE SYMBOL PREFIX MICRO.  SEE "O."        COMCTOK   177
                                        *                       BELOW IN *ASSEMBLY-TIME OPTIONS*.                COMCTOK   178
                                        *                                                                        COMCTOK   179
                                        *                XXX  = A UNIQUE TOKEN TYPE, AS USED IN TOGEL MACRO      COMCTOK   180
                                        *                       REFERENCES.                                      COMCTOK   181
                                        *                                                                        COMCTOK   182
                                        *                       FOR EXAMPLE --                                   COMCTOK   183
                                        *                                                                        COMCTOK   184
                                        *                          GROUP (0..9),XXX,SQZ                          COMCTOK   185
                                        *                                                                        COMCTOK   186
                                        *                       WILL GROUP THE CHARACTERS 0 THRU 9 INCLUSIVE     COMCTOK   187
                                        *                       INTO THE TOKEN *"O."XXX*.                        COMCTOK   188
                                        *                                                                        COMCTOK   189
                                        *                                                                        COMCTOK   190
                                        *----------------------------------------------------------------------- COMCTOK   191
                                        *                                                                        COMCTOK   192
                                        *         ASSEMBLY-TIME OPTIONS --                                       COMCTOK   193
                                        *                                                                        COMCTOK   194
                                        *         NOTE THAT FOR THE INSTALLER'S OPTIONS TO OVERRIDE THE DEFAULTS COMCTOK   195
                                        *         SET UP IN *COMSTOK* (COMMON TOKEN GENERATOR INTERFACE TEXT),   COMCTOK   196
                                        *         THAT THE OVERRIDING OPTIONS MUST **PRECEDE** *COMSTOK*.        COMCTOK   197
                                        *                                                                        COMCTOK   198
                                        *----------------------------------------------------------------------- COMCTOK   199
                                        *                                                                        COMCTOK   200
                                        *         BICH - BIAS CHARACTER.                                         COMCTOK   201
                                        *                                                                        COMCTOK   202
                                        *         *BICH* SPECIFIES THE CHARACTER THAT IS TO HAVE BINARY VALUE    COMCTOK   203
                                        *         00B (I.E. BIT 59 IN CHARACTER SHIFT MASK) IN *COMCTOK/COMCBUB/ COMCTOK   204
                                        *         COMCBUN*S ROTATED CHARACTER SET.  SEE *COMCBUB* PREAMBLE FOR   COMCTOK   205
                                        *         A DESCRIPTION OF *BICH*.                                       COMCTOK   206
                                        *                                                                        COMCTOK   207
                                        *         DEFAULT:  BICH  =  1RM                                         COMCTOK   208
                                        *                                                                        COMCTOK   209
                                        *----------------------------------------------------------------------- COMCTOK   210
                                        *                                                                        COMCTOK   211
                                        *         "BLOWUP" - CATASTROPHIC ERROR ADDRESS MICRO.                   COMCTOK   212
                                        *                                                                        COMCTOK   213
                                        *         *COMCTOK* WILL JUMP TO "BLOWUP" IF IT DETECTS AN UNRECOVERABLE COMCTOK   214
                                        *         ERROR.                                                         COMCTOK   215
                                        *                                                                        COMCTOK   216
                                        *         DEFAULT:  BLOWUP  MICRO  1,,/*O+4S15/                          COMCTOK   217
                                        *                                                                        COMCTOK   218
                                        *----------------------------------------------------------------------- COMCTOK   219
                                        *                                                                        COMCTOK   220
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   107
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *         CHAR - CHARACTER WIDTH.                                        COMCTOK   221
                                        *                                                                        COMCTOK   222
                                        *         *CHAR* SPECIFIES THE WIDTH (IN BITS) OF A SINGLE CHARACTER.    COMCTOK   223
                                        *         THIS OPTION IS INTENDED FOR DPC/ASCII CHARACTER SETS, BUT      COMCTOK   224
                                        *         IS USELESS BECAUSE CURRENTLY *COMCTOK* DOES NOT SUPPORT        COMCTOK   225
                                        *         ASCII.                                                         COMCTOK   226
                                        *                                                                        COMCTOK   227
                                        *         DEFAULT:  CHAR  =  6  (I.E. DPC)                               COMCTOK   228
                                        *                                                                        COMCTOK   229
                                        *----------------------------------------------------------------------- COMCTOK   230
                                        *                                                                        COMCTOK   231
                                        *         "O." - TOKEN (OPERATOR/OPERAND) TYPE PREFIX MICRO.             COMCTOK   232
                                        *                                                                        COMCTOK   233
                                        *         *COMCTOK* CONSTRUCTS ALL TOKEN TYPE SYMBOLS SPECIFIED ON       COMCTOK   234
                                        *         *TOGEL* INSTRUCTION/MACRO REFERENCES BY PREFIXING THE          COMCTOK   235
                                        *         SPECIFIED CHARACTERS WITH "O.".                                COMCTOK   236
                                        *                                                                        COMCTOK   237
                                        *         FOR EXAMPLE --                                                 COMCTOK   238
                                        *                                                                        COMCTOK   239
                                        *                GROUP (A..Z),VAR,SQZ                                    COMCTOK   240
                                        *                                                                        COMCTOK   241
                                        *         GENERATES A REFERENCE TO THE TOKEN TYPE *VAR*, WHICH           COMCTOK   242
                                        *         IS REALLY A REFERENCE TO THE COMPASS SYMBOL *"O."VAR*.         COMCTOK   243
                                        *                                                                        COMCTOK   244
                                        *         DEFAULT:  O.  MICRO 1,,/O./                                    COMCTOK   245
                                        *                                                                        COMCTOK   246
                                        *----------------------------------------------------------------------- COMCTOK   247
                                        *                                                                        COMCTOK   248
                                        *         "O."BOS - BEGINNING OF STATEMENT TOKEN TYPE.                   COMCTOK   249
                                        *                                                                        COMCTOK   250
                                        *         *COMCTOK* GENERATES AN *"O."BOS* TOKEN AS THE 1ST TOKEN IN     COMCTOK   251
                                        *         THE STATEMENT, IF NOT IN *RESTART* MODE.  SEE *TC.RSF/TC.REST* COMCTOK   252
                                        *         IN *TOKCOM* BELOW.                                             COMCTOK   253
                                        *                                                                        COMCTOK   254
                                        *         DEFAULT:  "O."BOS  =  0                                        COMCTOK   255
                                        *                                                                        COMCTOK   256
                                        *----------------------------------------------------------------------- COMCTOK   257
                                        *                                                                        COMCTOK   258
                                        *         "O."EOS - END OF STATEMENT TOKEN TYPE.                         COMCTOK   259
                                        *                                                                        COMCTOK   260
                                        *         *COMCTOK* GENERATES AN *"O."EOS* TOKEN, BEFORE EXITING, TO     COMCTOK   261
                                        *         MARK THE END OF THE STATEMENT IN THE TOKEN BUFFER.             COMCTOK   262
                                        *                                                                        COMCTOK   263
                                        *         DEFAULT:  "O."EOS  =  0                                        COMCTOK   264
                                        *                                                                        COMCTOK   265
                                        *         NOTE THAT THE DEFAULTS FOR "O."BOS AND "O."EOS MEAN THAT A     COMCTOK   266
                                        *         STATEMENT IN THE TOKEN BUFFER WILL BE DELIMITED BY 2 FULL ZERO COMCTOK   267
                                        *         WORDS.                                                         COMCTOK   268
                                        *                                                                        COMCTOK   269
                                        *----------------------------------------------------------------------- COMCTOK   270
                                        *                                                                        COMCTOK   271
                                        *         "O=" - *TOKEN* *TOGEL* INSTRUCTION LABEL PREFIX MICRO.         COMCTOK   272
                                        *                                                                        COMCTOK   273
                                        *         IF THE *CASEOF* TOGEL INSTRUCTION MACRO IS USED, THEN TOKENS   COMCTOK   274
                                        *         THAT ARE TO BE GENERATED VIA THIS MECHANISM WILL HAVE A        COMCTOK   275
                                        *         COMPASS LABEL THAT IS CONSTRUCTED BY PREFIXING "O=" TO THE     COMCTOK   276
                                        *         TOKEN TYPE.                                                    COMCTOK   277
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   108
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *                                                                        COMCTOK   278
                                        *         FOR EXAMPLE --                                                 COMCTOK   279
                                        *                                                                        COMCTOK   280
                                        *                CASEOF (+..*)                                           COMCTOK   281
                                        *                  TOKEN PLUS  .... HAS LABEL *"O="PLUS*                 COMCTOK   282
                                        *                  TOKEN MIN   .... HAS LABEL *"O="MIN*                  COMCTOK   283
                                        *                  TOKEN STAR  .... HAS LABEL *"O="STAR*                 COMCTOK   284
                                        *                ENDC                                                    COMCTOK   285
                                        *                                                                        COMCTOK   286
                                        *         DEFAULT:  O=  MICRO  1,,/O=/                                   COMCTOK   287
                                        *                                                                        COMCTOK   288
                                        *         THIS OPTION IS INTENDED PRIMARILY TO AVOID SYMBOL CONFLICTS    COMCTOK   289
                                        *         THAT MIGHT OCCUR WITH THE HOST.                                COMCTOK   290
                                        *                                                                        COMCTOK   291
                                        *----------------------------------------------------------------------- COMCTOK   292
                                        *                                                                        COMCTOK   293
                                        *         TEST - *TEST* MODE.                                            COMCTOK   294
                                        *                                                                        COMCTOK   295
                                        *         THE *COMCTOK* INSTALLER CAN SELECT *COMCTOK* TO BE IN *TEST*   COMCTOK   296
                                        *         MODE, WHICH FORCES *COMCTOK* TO HELP US DEBUG OUR INTERFACE    COMCTOK   297
                                        *         TO *COMCTOK* AND ALSO HELP US TO DEBUG OUR TOGEL PROGRAMS.     COMCTOK   298
                                        *                                                                        COMCTOK   299
                                        *         IF THE SYMBOL *TEST* IS SET .NZ., THEN *COMCTOK* WILL FORCE    COMCTOK   300
                                        *         ALL REGISTERS BACK OUT TO *TOKCOM* (WHERE THEY ARE KEPT        COMCTOK   301
                                        *         WHEN NECESSARY) BEFORE EACH AND EVERY TOGEL BINARY INSTRUCTION COMCTOK   302
                                        *         IS EXECUTED/INTERPRETED.  THIS HELPS PROVIDE AN AUDIT TRAIL    COMCTOK   303
                                        *         OF WHAT IS GOING ON.                                           COMCTOK   304
                                        *                                                                        COMCTOK   305
                                        *         IF THE SYMBOL *TEST* IS SET .NZ., THEN THE INSTALLER ALSO      COMCTOK   306
                                        *         OPTIONALLY HAS THE ABILITY TO INTERFACE *COMCTOK* WITH         COMCTOK   307
                                        *         *COMCIDP* (INTERACTIVE DEBUG PACKAGE) VIA *COMDTOK* (IDP       COMCTOK   308
                                        *         UTILITY FOR *COMCTOK*).                                        COMCTOK   309
                                        *                                                                        COMCTOK   310
                                        *         *COMDTOK* CONTAINS SOME USEFUL DEBUGGING TOOLS THAT INTERFACE  COMCTOK   311
                                        *         DIRECTLY (AND EASILY) WITH IDP.  *COMDTOK* PROVIDES THE        COMCTOK   312
                                        *         FOLLOWING COMMANDS, AVAILABLE THRU IDP --                      COMCTOK   313
                                        *                                                                        COMCTOK   314
                                        *                BRTOK XXX    BREAKPOINT WHEN THE TOGEL INSTRUCTION      COMCTOK   315
                                        *                             *XXX* IS NEXT TO BE EXECUTED.  IF *XXX*    COMCTOK   316
                                        *                             IS OMITTED, *COMDTOK* WILL BREAKPOINT      COMCTOK   317
                                        *                             ON ANY AND ALL TOGEL INSTRUCTIONS.         COMCTOK   318
                                        *                                                                        COMCTOK   319
                                        *                TOGEL FWA,LWA,LEN  DEASSEMBLES TOGEL BINARY             COMCTOK   320
                                        *                             INSTRUCTIONS BACK INTO A READABLE FORM.    COMCTOK   321
                                        *                                                                        COMCTOK   322
                                        *                TOKEN FWA,LWA,LEN  DISPLAYS THE TOKEN BUFFER.           COMCTOK   323
                                        *                                                                        COMCTOK   324
                                        *                UBTOK        UNBREAK TOGEL BREAKPOINT SET VIA *BRTOK*.  COMCTOK   325
                                        *                                                                        COMCTOK   326
                                        ************************************************************************ COMCTOK   327
                                        *                                                                        COMCTOK   328
                                        *         *TOKCOM*                                                       COMCTOK   329
                                        *                                                                        COMCTOK   330
                                        *         *TOKCOM* IS THE USER/TOK COMMUNICATIONS AREA THAT IS USED      COMCTOK   331
                                        *         THROUGHOUT TOKEN GENERATION TO GET AND SAVE CRITICAL           COMCTOK   332
                                        *         ENTOKENING INFORMATION/REGISTERS.                              COMCTOK   333
                                        *                                                                        COMCTOK   334
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   109
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *         LOCATIONS IN *TOKCOM* ARE DEFINED VIA ORDINALS THAT TAKE       COMCTOK   335
                                        *         THE FORM --                                                    COMCTOK   336
                                        *                                                                        COMCTOK   337
                                        *                TC.XXX                                                  COMCTOK   338
                                        *                                                                        COMCTOK   339
                                        *         WHERE *TC.* IS A COMMON PREFIX, AND *XXX* IS A UNIQUE ORDINAL  COMCTOK   340
                                        *         NAME.  THESE SYMBOLS ARE DEFINED IN *COMSTOK* (COMMON TOKEN    COMCTOK   341
                                        *         GENERATOR INTERFACE TEXT), AND IT IS **STRONGLY** ADVISED      COMCTOK   342
                                        *         THAT THE USER/INSTALLER MAKE HER *TOKCOM* REFERENCES VIA THESE COMCTOK   343
                                        *         SYMBOLS.  THIS WILL PREVENT ANY STUPID BUGS ASSOCIATED WITH    COMCTOK   344
                                        *         *TOKCOM* CHANGES OR ADDITIONS FROM BURNING YOU.  ALSO, THE     COMCTOK   345
                                        *         LENGTH OF *TOKCOM* (IN WORDS) IS DEFINED VIA THE SYMBOL        COMCTOK   346
                                        *         *L.TCOM* (ALSO DEFINED IN *COMSTOK*).  *TC.XXX* SYMBOLS ARE    COMCTOK   347
                                        *         DESCRIBED BELOW.                                               COMCTOK   348
                                        *                                                                        COMCTOK   349
                                        *         *COMCTOK* EXPECTS THAT THE CALLER SET UP *TOKCOM* IN ONE       COMCTOK   350
                                        *         OF TWO WAYS: THE 1ST IS AN *EASY* FORM; AND THE 2ND, A MORE    COMCTOK   351
                                        *         DIFFICULT (ALBEIT, MORE FLEXIBLE) FORM.  THE ORIGINAL VERSION  COMCTOK   352
                                        *         OF *COMCTOK* DID NOT HAVE THE *EASIER* FORM: IT AROSE BECAUSE  COMCTOK   353
                                        *         THE *HARDER* FORM TURNED OUT TO BE TOO HARD, AND OVERLY        COMCTOK   354
                                        *         FLEXIBLE FOR MOST *COMCTOK* APPLICATIONS.                      COMCTOK   355
                                        *                                                                        COMCTOK   356
                                        *         IN THE FOLLOWING DISCUSSION, USE OF SYMBOLS OF THE FORM        COMCTOK   357
                                        *         *TC.XXX* IMPLIES THE CONTENTS OF A CELL THAT IS AT THE         COMCTOK   358
                                        *         LOCATION --                                                    COMCTOK   359
                                        *                                                                        COMCTOK   360
                                        *                FWA+TC.XXX                                              COMCTOK   361
                                        *                                                                        COMCTOK   362
                                        *         WHERE *FWA* IS THE FWA OF THE CALLER'S *TOKCOM*.               COMCTOK   363
                                        *                                                                        COMCTOK   364
                                        *                                                                        COMCTOK   365
                                        *         THE *EASY* FORM --                                             COMCTOK   366
                                        *         ---------------                                                COMCTOK   367
                                        *                                                                        COMCTOK   368
                                        *           TC.FWA  = ADDR OF THE WORD CONTAINING THE 1ST CHARACTER TO   COMCTOK   369
                                        *                     ENTOKEN (SOURCE IS IN PACKED, 10 CHARS PER WORD,   COMCTOK   370
                                        *                     FORMAT).                                           COMCTOK   371
                                        *                                                                        COMCTOK   372
                                        *                     (TC.FWA) IS NOT ALTERED BY *COMCTOK*.              COMCTOK   373
                                        *                                                                        COMCTOK   374
                                        *           TC.FCP  = FIRST CHARACTER POSITION WITHIN (TC.FWA) TO BEGIN  COMCTOK   375
                                        *                     ENTOKENING.  CHARACTERS ARE NUMBERED FROM LEFT-TO- COMCTOK   376
                                        *                     RIGHT, 1 TO 10, WITHIN A WORD AS FOLLOWS --        COMCTOK   377
                                        *                                                                        COMCTOK   378
                                        *                         +--+--+--+--+--+--+--+--+--+--+                COMCTOK   379
                                        *                         I 1I 2I 3I 4I 5I 6I 7I 8I 9I10I                COMCTOK   380
                                        *                         +--+--+--+--+--+--+--+--+--+--+                COMCTOK   381
                                        *                                                                        COMCTOK   382
                                        *                     FOR EXAMPLE, IN 10HABCDEFGHIJ, *A* IS IN CHARACTER COMCTOK   383
                                        *                     POSITION 1, *B* IS IN CHARACTER POSITION 2, ETC.   COMCTOK   384
                                        *                                                                        COMCTOK   385
                                        *                     (TC.FCP) IS NOT ALTERED BY *COMCTOK*.              COMCTOK   386
                                        *                                                                        COMCTOK   387
                                        *           TC.LWA  = ADDR OF THE WORD CONTAINING THE LAST CHARACTER TO  COMCTOK   388
                                        *                     ENTOKEN.                                           COMCTOK   389
                                        *                                                                        COMCTOK   390
                                        *                     (TC.LWA) IS NOT ALTERED BY *COMCTOK*.              COMCTOK   391
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   110
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *                                                                        COMCTOK   392
                                        *           TC.LCP  = CHARACTER POSITION WITHIN (TC.LWA) OF LAST CHAR    COMCTOK   393
                                        *                     TO ENTOKEN.  CHARACTERS ARE NUMBERED AS FOR        COMCTOK   394
                                        *                     *TC.FCP* ABOVE.                                    COMCTOK   395
                                        *                                                                        COMCTOK   396
                                        *                     (TC.LCP) IS NOT ALTERED BY *COMCTOK*.              COMCTOK   397
                                        *                                                                        COMCTOK   398
                                        *           TC.P    = ADDR OF NEXT *TOGEL* INSTRUCTION TO EXECUTE/       COMCTOK   399
                                        *                     INTERPRET.                                         COMCTOK   400
                                        *                                                                        COMCTOK   401
                                        *           TC.TBA  = ADDR TO STORE NEXT TOKEN THAT IS GENERATED.        COMCTOK   402
                                        *                                                                        COMCTOK   403
                                        *                     NOTE THAT CALLER **MUST** HAVE ALLOCATED ENOUGH    COMCTOK   404
                                        *                     SPACE TO ACCOMODATE THE **MAXIMUM** NR OF TOKENS   COMCTOK   405
                                        *                     THAT *COMCTOK* CAN GENERATE.  THIS IS TO SAY THAT  COMCTOK   406
                                        *                     *TOK* DOES NOT CHECK THE *TOKEN BUFFER* FOR ANY    COMCTOK   407
                                        *                     SORT OF OVERFLOW CONDITION...HE JUST KEEPS         COMCTOK   408
                                        *                     GENERATING TOKENS FOR THE LENGTH SPECIFIED         COMCTOK   409
                                        *                     BY THE CALLER VIA *TC.LWA/TC.LCP* OR *TC.SOL*.     COMCTOK   410
                                        *                                                                        COMCTOK   411
                                        *                     UPDATED UPON HITTING END-OF-LINE (IN *TEST*        COMCTOK   412
                                        *                     MODE, UPDATED BEFORE EVERY *TOGEL* INSTRUCTION).   COMCTOK   413
                                        *                                                                        COMCTOK   414
                                        *           TC.RSF  = .NZ. IF THIS IS A *COMCTOK* RESTART, ELSE .ZR.     COMCTOK   415
                                        *                                                                        COMCTOK   416
                                        *                     THIS OPTION IS FOR CALLERS WHO HAVE TO DEAL WITH   COMCTOK   417
                                        *                     CONTINUATION LINES, AND WOULD LIKE A WAY TO        COMCTOK   418
                                        *                     RESTART *COMCTOK* WHERE IT LEFT OFF ON THE         COMCTOK   419
                                        *                     PRECEDING LINE.                                    COMCTOK   420
                                        *                                                                        COMCTOK   421
                                        *                     (TC.RSF) IS NOT ALTERED BY *COMCTOK*.              COMCTOK   422
                                        *                                                                        COMCTOK   423
                                        *           TC.REST = ADDR OF A USER PROCESSOR FOR *RESTART*.  CAN BE    COMCTOK   424
                                        *                     SET VIA *ON RESTART* TOGEL MACRO.                  COMCTOK   425
                                        *                                                                        COMCTOK   426
                                        *                                                                        COMCTOK   427
                                        *         THE *HARD* FORM --                                             COMCTOK   428
                                        *         ---------------                                                COMCTOK   429
                                        *                                                                        COMCTOK   430
                                        *           TC.FWA  = .ZR. TO INDICATE *HARD* FORM.                      COMCTOK   431
                                        *                                                                        COMCTOK   432
                                        *           TC.FCP  = NOT USED.                                          COMCTOK   433
                                        *                                                                        COMCTOK   434
                                        *           TC.LWA  = NOT USED.                                          COMCTOK   435
                                        *                                                                        COMCTOK   436
                                        *           TC.LCP  = NOT USED.                                          COMCTOK   437
                                        *                                                                        COMCTOK   438
                                        *           TC.P    = SAME AS FOR *EASY* FORM.                           COMCTOK   439
                                        *                                                                        COMCTOK   440
                                        *           TC.SOA  = ADDR OF CURRENT SOURCE INPUT (10 CHARS PER WORD)   COMCTOK   441
                                        *                     WORD.  FOR A 1ST ENTRY, THIS IS THE SAME AS FOR    COMCTOK   442
                                        *                     *TC.FWA*.                                          COMCTOK   443
                                        *                                                                        COMCTOK   444
                                        *           TC.SOX  = CURRENT SOURCE INPUT WORD, WITH NEXT CHARACTER TO  COMCTOK   445
                                        *                     EXTRACT IN LEFT-MOST *CHAR* BITS (WHERE *CHAR* IS  COMCTOK   446
                                        *                     THE BIT WIDTH OF A SINGLE CHARACTER, I.E. 6 FOR    COMCTOK   447
                                        *                     DISPLAY CODE).  THAT IS, FIRST CHAR TO EXTRACT IS  COMCTOK   448
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   111
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                        *                     IN BITS 59 THRU 54 (FOR DPC).                      COMCTOK   449
                                        *                                                                        COMCTOK   450
                                        *                     NOTE THAT *TC.SOA* AND *TC.SOX* NEED NOT *MATCH*   COMCTOK   451
                                        *                     AS MIGHT BE THE CASE IF SOME USER PRE-TOK          COMCTOK   452
                                        *                     PROCESSOR HAD, FOR EXAMPLE, STRIPPED OFF A LINE    COMCTOK   453
                                        *                     LABEL/NUMBER.                                      COMCTOK   454
                                        *                                                                        COMCTOK   455
                                        *           TC.SOL  = TOTAL NUMBER OF **BITS** IN THIS SOURCE LINE TO    COMCTOK   456
                                        *                     ENTOKEN.                                           COMCTOK   457
                                        *                                                                        COMCTOK   458
                                        *           TC.SOB  = NR OF BITS **REMAINING** IN (TC.SOX).  I.E. FOR    COMCTOK   459
                                        *                     A FULL WORD, (TC.SOB) = 60D.                       COMCTOK   460
                                        *                                                                        COMCTOK   461
                                        *           TC.SOC  = CURRENT SOURCE CHARACTER, ELSE .MI. IF NEED TO     COMCTOK   462
                                        *                     EXTRACT A CHARACTER FROM (TC.SOX) FIRST.           COMCTOK   463
                                        *                                                                        COMCTOK   464
                                        *           TC.TBA  = SAME AS FOR *EASY* FORM.                           COMCTOK   465
                                        *                                                                        COMCTOK   466
                                        *           TC.TBB  = NR OF BITS REMAINING IN TOKEN PACKING REGISTER.    COMCTOK   467
                                        *                                                                        COMCTOK   468
                                        *                                                                        COMCTOK   469
                                        *         IF YOU DECIDE THAT YOU WANT OR NEED TO USE THE *HARD* FORM, I  COMCTOK   470
                                        *         SUGGEST A READING OF *COMCBUB* (BURST/BUILD CHARACTERS WITH    COMCTOK   471
                                        *         BLANK SQUEEZE) AND *COMCBUN* (BURST/BUILD CHARACTERS WITH NO   COMCTOK   472
                                        *         BLANK SQUEEZE).  MOST OF THESE *TC.* CELLS ARE REALLY JUST     COMCTOK   473
                                        *         MATERIALIZATIONS OF *BUB/BUN* REGISTERS...                     COMCTOK   474
                                        *                                                                        COMCTOK   475
                                        ************************************************************************ COMCTOK   476
  
  
  
  
                                        **        TOFU - *TOK* FUNCTIONAL UNIT.                                  COMCTOK   478
                                        *                                                                        COMCTOK   479
                                        *                                                                        COMCTOK   480
                                        *         THIS MACRO DEFINES THE ENTRY POINT TO A *TOK* FUNCTIONAL       COMCTOK   481
                                        *         UNIT (TOFU).  EACH *TOFU* WITHIN *TOK* EXECUTES/INTERPRETS     COMCTOK   482
                                        *         A SINGLE BINARY *TOGEL* INSTRUCTION.                           COMCTOK   483
                                        *                                                                        COMCTOK   484
                                        *         NOTE - SEE FTN 5 IMS/DECK *LEX* FOR MORE INFORMATION.          COMCTOK   485
                                        *                                                                        COMCTOK   486
                                        * NAM     TOFU   RAD                                                     COMCTOK   487
                                        *                                                                        COMCTOK   488
                                        *         ENTRY  NAM = NAME OF THIS *TOFU*                               COMCTOK   489
                                        *                RAD = RESTART ADDR.  ADDR TO TRANSFER CONTROL           COMCTOK   490
                                        *                      OF CPU TO WHEN RESTARTING TOKEN GENERATOR.        COMCTOK   491
                                        *                                                                        COMCTOK   492
                                        *         EXIT   NONE                                                    COMCTOK   493
                                        *                                                                        COMCTOK   494
                                        *         USES   NONE                                                    COMCTOK   495
                                        *                                                                        COMCTOK   496
                                        *         CALLS  NONE                                                    COMCTOK   497
                                                                                                                 COMCTOK   498
                                                                                                                 COMCTOK   499
                                                  PURGMAC TOFU                                                   COMCTOK   500
                                                                                                                 COMCTOK   501
                                                  MACRO  TOFU,NAM,RAD                                            COMCTOK   502
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   112
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOFU                COMCTOK 
  
                                         +        EQ     RAD TOK=MN                                              COMCTOK   503
                                         NAM      BSS    0                                                       COMCTOK   504
                                        *                                                                        COMCTOK   505
                                                  IF     -DEF,QUAL$,3                                            COMCTOK   506
                                                  QUAL   *                                                       COMCTOK   507
                                         NAM      BSS    0                                                       COMCTOK   508
                                                  QUAL   COMCTOK                                                 COMCTOK   509
                                         TOFU     ENDM                                                           COMCTOK   510
  
  
  
  
                                        **        FW=TCOM - FWA OF *TOKCOM*.                                     COMCTOK   512
                                        *                                                                        COMCTOK   513
                                        *                                                                        COMCTOK   514
                                        *         *FW=TCOM* CONTAINS THE FWA OF THE CURRENT *USER/TOK*           COMCTOK   515
                                        *         COMMUNICATIONS AREA, *TOKCOM*.                                 COMCTOK   516
                                                                                                                 COMCTOK   517
                                                                                                                 COMCTOK   518
           662                     1     FW=TCOM  BSSZ   1                                                       COMCTOK   519
  
  
  
  
                                        **        TF=XXX - *TOK* MASTER CONTROL FLAGS.                           COMCTOK   521
                                        *                                                                        COMCTOK   522
                                        *                                                                        COMCTOK   523
                                        *         SYMBOLS OF THE FORM *TF=XXX*, WHERE *TF=* IS A COMMON PREFIX   COMCTOK   524
                                        *         AND *XXX* IS A FLAG NAME, CONTAIN MISCELLANEOUS CONTROL FLAG   COMCTOK   525
                                        *         INFORMATION THAT IS USED DURING TOKEN GENERATION.              COMCTOK   526
                                        *                                                                        COMCTOK   527
                                        *         FLAGS, *XXX*, ARE --                                           COMCTOK   528
                                        *                                                                        COMCTOK   529
                                        *         SQZ  = .NZ. IF LAST CHARACTER ACCESS WAS PERFORMED WITH        COMCTOK   530
                                        *                     BLANK SQUEEZE (*COMCBUB* USED), ELSE               COMCTOK   531
                                        *              = .ZR. IF LAST ACCESS WAS NO BLANK SQUEEZE (COMCBUN).     COMCTOK   532
                                        *                                                                        COMCTOK   533
                                        *                USED SO THAT *TOK* CAN KNOW WHETHER TO ADVANCE          COMCTOK   534
                                        *                THE SOURCE LINE CHARACTER POINTER WITH BLANK SQUEEZE    COMCTOK   535
                                        *                OR NOT.                                                 COMCTOK   536
                                                                                                                 COMCTOK   537
                                                                                                                 COMCTOK   538
           663                     1     TF=SQZ   BSSZ   1                                                       COMCTOK   539
                                                                                                                 COMCTOK   540
                                                  IFNE   TEST,0,1                                                COMCTOK   541
                                         TF=IDP   BSSZ   1                                                       COMCTOK   542
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   113
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOKCOM              COMCTOK 
  
                                        **        TOKCOM - *TOK* COMMUNICATIONS AREA.                            COMCTOK   544
                                        *                                                                        COMCTOK   545
                                        *         *TOKCOM* IS THE *USER/TOK* COMMUNICATIONS AREA.  INFORMATION   COMCTOK   546
                                        *         IS PASSED BACK AND FORTH BETWEEN *TOK* AND ITS CALLER          COMCTOK   547
                                        *         VIA THE LOCATIONS IN *TOKCOM*.                                 COMCTOK   548
                                        *                                                                        COMCTOK   549
                                        *         SEE *ENTRY/EXIT* CONDITIONS IN *COMCTOK* PREAMBLE.             COMCTOK   550
                                        *                                                                        COMCTOK   551
                                        *         NOTE --                                                        COMCTOK   552
                                        *                                                                        COMCTOK   553
                                        *         CRITICAL ENTOKENING REGISTERS ARE SAVED HERE WHEN NECESSARY.   COMCTOK   554
                                        *         ONE CAN NOT, HOWEVER, EXPECT SIGHT-UNSEEN THAT THESE SAVED     COMCTOK   555
                                        *         REGISTERS ARE ALWAYS UP-TO-DATE.  *TOK* ONLY USES THIS         COMCTOK   556
                                        *         SAVED AREA WHEN ABSOLUTELY NECESSARY SO THAT ENTOKENING        COMCTOK   557
                                        *         CAN PROCEED AS RAPIDLY AS POSSIBLE.                            COMCTOK   558
  
  
  
  
                                        **        TOK - TOKEN GENERATOR.                                         COMCTOK   560
                                        *                                                                        COMCTOK   561
                                        *                                                                        COMCTOK   562
                                        *         THIS IS THE TOKEN GENERATOR.  IT CONSISTS OF A MAIN DRIVER,    COMCTOK   563
                                        *         *TOK=MN*, SURROUNDED BY *TOK* FUNCTIONAL UNITS, *TOFU*S.       COMCTOK   564
                                        *                                                                        COMCTOK   565
                                        *         *TOK=MN* EXTRACTS THE NEXT *TOGEL* BINARY INSTRUCTION TO       COMCTOK   566
                                        *         EXECUTE/INTERPRET FROM THE CURRENT *TOM* AND FARMS             COMCTOK   567
                                        *         IT OUT TO THE APPROPRIATE *TOFU*, WHERE THIS *TOFU*            COMCTOK   568
                                        *         WILL DO ITS BIT TOWARD ENTOKENING THE INPUT SOURCE LINE.       COMCTOK   569
                                        *                                                                        COMCTOK   570
                                        *         THIS PROCESS REPEATS ITSELF UNTIL A *TOFU* SENSES AN           COMCTOK   571
                                        *         END-OF-LINE (EOL) CONDITION ON THE INPUT SOURCE LINE.          COMCTOK   572
                                        *         WHEN THIS OCCURS, THE EOL SENSING *TOFU* TRANSFERS             COMCTOK   573
                                        *         CONTROL TO *TOK=EOL* WHERE SOME FINAL PROCESSING OCCURS        COMCTOK   574
                                        *         BEFORE *TOK* EXITS BACK TO ITS CALLER.                         COMCTOK   575
                                        *                                                                        COMCTOK   576
                                        *                                                                        COMCTOK   577
                                        *         ENTRY  (B2) = FWA OF *TOKCOM*, THE *USER/TOK* COMMUNICATIONS   COMCTOK   578
                                        *                       AREA.                                            COMCTOK   579
                                        *                                                                        COMCTOK   580
                                        *                                                                        COMCTOK   581
                                        *         EXIT   NONE                                                    COMCTOK   582
                                        *                                                                        COMCTOK   583
                                        *         USES   ALL         (BELIEVE IT)                                COMCTOK   584
                                        *                                                                        COMCTOK   585
                                        *         CALLS  BUB,BUN,CCD,RER,SER,TID(IN *TEST* MODE)                 COMCTOK   586
                                                                                                                 COMCTOK   587
                                                                                                                 COMCTOK   588
           664  0400400664 +             TOK      SUBR               ** ENTRY/EXIT **                            COMCTOK   589
                                                                                                                 COMCTOK   590
                                        *         INITIALIZATION.                                                COMCTOK   591
                                                                                                                 COMCTOK   592
                                                  IF     -DEF,B1=1,1                                             COMCTOK   593
                                                  SB1    1                                                       COMCTOK   594
                                                                                                                 COMCTOK   595
           665  7162000000                        SX6    B2+                                                     COMCTOK   596
                          5160000662 +            SA6    FW=TCOM     SAVE (B2) = FWA OF *TOKCOM*                 COMCTOK   597
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   114
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                                                                                                 COMCTOK   598
           666  5112000000                        SA1    B2+TC.FWA                                               COMCTOK   599
                          0301000703 +            ZR     X1,TOK2     IF CALLER HAS SET UP *TOKCOM* HIMSELF       COMCTOK   600
                                                                                                                 COMCTOK   601
                                        *         HERE IF CALLER IS ASKING US TO SET UP SOURCE INPUT POINTERS.   COMCTOK   602
                                        *                                                                        COMCTOK   603
                                        *         THIS MEANS THAT THE CALLER IS USING THE *FWA/FCP* AND          COMCTOK   604
                                        *         *LWA/LCP* CALLING SEQUENCE.  WE NEED TO SET UP --              COMCTOK   605
                                        *                                                                        COMCTOK   606
                                        *           1. *S0A* = SOURCE ADDR, I.E. NEXT ADDR TO GET A SOURCE WORD. COMCTOK   607
                                        *                                                                        COMCTOK   608
                                        *           2. *SOX* = CURRENT SOURCE WORD, I.E. THE CONTENTS OF THE     COMCTOK   609
                                        *                      LOCATION POINTED TO BY *SOA* SHIFTED              COMCTOK   610
                                        *                      APPROPRIATELY SO THAT 1ST CHAR TO EXTRACT IS IN   COMCTOK   611
                                        *                      LEFT-MOST CHAR POSITION (BITS 59-54).             COMCTOK   612
                                        *                                                                        COMCTOK   613
                                        *           3. *SOB* = SOURCE BIT, I.E. BIT POSITION WITHIN *SOX* OF     COMCTOK   614
                                        *                      NEXT CHAR TO EXTRACT.                             COMCTOK   615
                                        *                                                                        COMCTOK   616
                                        *           4. *SOL* = NR OF BITS IN SOURCE LINE TO ENTOKEN.             COMCTOK   617
                                        *                                                                        COMCTOK   618
                                        *           5. *SOC* = CURRENT SOURCE CHAR FROM (SOX), I.E. SET          COMCTOK   619
                                        *                      TO -1 TO INDICATE *NO AVAILABLE CHAR*.            COMCTOK   620
                                                                                                                 COMCTOK   621
           667  54211                             =A2    A1+TC.FCP-TC.FWA  (X2) = 1ST CHAR POSITION              COMCTOK   622
                     63320                        SB3    X2                                                      COMCTOK   623
                          6140000012              SB4    60D/CHAR    (B4) = NR OF CHARS IN A WORD                COMCTOK   624
                                                                                                                 COMCTOK   625
           670  0603400670 +                      LE     B3,B0,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   626
                          0743400670 +            GT     B3,B4,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   627
                                                                                                                 COMCTOK   628
           671  7130000006                        SX3    CHAR        (X3) = BIT WIDTH OF 1 CHARACTER             COMCTOK   629
                          7140000102              SX4    60D+CHAR                                                COMCTOK   630
           672  42632                             IX6    X3*X2       (X6) = 6 * NR OF CHARS (FOR DPC)            COMCTOK   631
                     37246                        IX2    X4-X6       (X2) = 66 - (6 * NR OF CHARS), FOR DPC      COMCTOK   632
                          10611                   BX6    X1          (X6) = *SOA*                                COMCTOK   633
                               22702              LX7    X2          (X7) = *SOB*                                COMCTOK   634
           673  5162000005                        SA6    B2+TC.SOA                                               COMCTOK   635
                          5172000010              SA7    B2+TC.SOB                                               COMCTOK   636
                                                                                                                 COMCTOK   637
           674  7160000074                        SX6    60D                                                     COMCTOK   638
                          53510                   SA5    X1          (X5) = 1ST WORD TO ENTOKEN                  COMCTOK   639
                               37762              IX7    X6-X2                                                   COMCTOK   640
           675  63570                             SB5    X7          (B5) = 60D - SOB                            COMCTOK   641
                     22655                        LX6    X5,B5       (X6) = 1ST WORD TO ENTOKEN W/ 1ST CHAR TO   COMCTOK   642
                                        *                                   ENTOKEN IN LEFT-MOST CHAR POSITION   COMCTOK   643
                          5162000006              SA6    B2+TC.SOX                                               COMCTOK   644
                                                                                                                 COMCTOK   645
                                        *         COMPUTE *SOL*, AND SET *SOC*.                                  COMCTOK   646
                                                                                                                 COMCTOK   647
           676  5132000002                        SA3    B2+TC.LWA         (X3) = LWA                            COMCTOK   648
                          54431                   =A4    A3+TC.LCP-TC.LWA  (X4) = LCP, LAST CHAR POSITION        COMCTOK   649
                               63340              SB3    X4                                                      COMCTOK   650
                                                                                                                 COMCTOK   651
           677  0603400677 +                      LE     B3,B0,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   652
                          0743400677 +            GT     B3,B4,"BLOWUP"    IF BAD CHAR POSITION                  COMCTOK   653
                                                                                                                 COMCTOK   654
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   115
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
           700  66320                             SB3    B2          SAVE (B2)                                   COMCTOK   655
                     0100001024 +                 RJ     CCD         COMPUTE CHARACTER DIFFERENCE                COMCTOK   656
           701  0337400701 +                      MI     X7,"BLOWUP" IF LAST CHAR IS TO THE LEFT OF 1ST CHAR     COMCTOK   657
                          43673                   MX6    -1                                                      COMCTOK   658
                               66230              SB2    B3          RESTORE (B2)                                COMCTOK   659
           702  5162000011                        SA6    B2+TC.SOC   SET TO *NO AVAILABLE CHAR IN (X4)*          COMCTOK   660
                          5172000007              SA7    B2+TC.SOL                                               COMCTOK   661
                                                                                                                 COMCTOK   662
                                        *         RESTORE ENTOKENING REGISTERS.                                  COMCTOK   663
                                                                                                                 COMCTOK   664
           703                           TOK2     BSS    0                                                       COMCTOK   665
           703  0100001033 +                      RJ     RER         RESTORE ENTOKENING REGISTERS                COMCTOK   666
           704  5122000012                        SA2    B2+TC.TBA                                               COMCTOK   667
                          5132000014              SA3    B2+TC.RSF                                               COMCTOK   668
           705  76600                             =X6    "O."BOS                                                 COMCTOK   669
                     0313000717 +                 NZ     X3,TOK=RS   IF THIS IS A RESTART                        COMCTOK   670
                               53620              SA6    X2          INITIALIZE TOKEN BUFFER W/ *BOS* TOKEN      COMCTOK   671
  
  
  
  
                                        **        MAIN LOOP NODE.                                                COMCTOK   673
                                        *                                                                        COMCTOK   674
                                        *         HERE TO EXTRACT NEXT *TOGEL* BINARY INSTRUCTION FROM *TOM*     COMCTOK   675
                                        *         AND TRANSFER CONTROL TO APPROPRIATE *TOFU*.                    COMCTOK   676
                                        *                                                                        COMCTOK   677
                                        *         FIRST, HOWEVER, NEED TO ASSURE THAT (X4) CONTAINS              COMCTOK   678
                                        *         A USEABLE CHARACTER.                                           COMCTOK   679
                                        *                                                                        COMCTOK   680
                                        *         IF IN *TEST* MODE --                                           COMCTOK   681
                                        *                                                                        COMCTOK   682
                                        *           1. SAVE CRITICAL ENTOKENING REGISTERS IN THEIR APPROPRIATE   COMCTOK   683
                                        *              *TOKCOM* LOCATION TO PROVIDE AN AUDIT TRAIL.              COMCTOK   684
                                        *                                                                        COMCTOK   685
                                        *           2. CALL *TID* (TOK INTERACTIVE DEBUG INTERFACE,              COMCTOK   686
                                        *              IN COMDECK *COMDTOK*) IF *TF=IDP* HAS BEEN SET.           COMCTOK   687
                                                                                                                 COMCTOK   688
                                                                                                                 COMCTOK   689
           706                           TOK=MN   BSS    0           ** MAIN LOOP NODE **                        COMCTOK   690
           706  43066                             MX0    -CHAR                                                   COMCTOK   691
                     0324000715 +                 PL     X4,TOK4     IF (X4) ALREADY CONTAINS A USEABLE CHAR     COMCTOK   692
                               13111              BX1    X1-X1       (X1) = CHAR SHIFT MASK (NO CHARS IN GROUP)  COMCTOK   693
           707  5120000663 +                      SA2    TF=SQZ                                                  COMCTOK   694
                          43600                   MX6    0           CLEAR PACKING REGISTER                      COMCTOK   695
           710  0312000713 +                      NZ     X2,TOK3     IF BU/BU WITH BLANK SQUEEZE                 COMCTOK   696
                          6130000066              SB3    BN.TOCP+BN.TOCL-CHAR                                    COMCTOK   697
           711  0100001670 +                      RJ     =XBUN       BURST/BUILD WITH NO BLANK SQUEEZE           COMCTOK   698
           712  0707000715 +                      GT     B7,B0,TOK4  IF NO EOL ENCOUNTERED                       COMCTOK   699
                          0400000755 +            EQ     TOK=EOL                                                 COMCTOK   700
                                                                                                                 COMCTOK   701
           713  6130000066               TOK3     SB3    BB.TOCP+BB.TOCL-CHAR                                    COMCTOK   702
                          0100001646 +            RJ     =XBUB       BURST/BUILD WITH BLANK SQUEEZE              COMCTOK   703
           714  0707000715 +                      GT     B7,B0,TOK4  IF NO EOL ENCOUNTERED                       COMCTOK   704
                          0400000755 +            EQ     TOK=EOL                                                 COMCTOK   705
                                                                                                                 COMCTOK   706
           715  54200                    TOK4     SA2    A0          (X2) = NEXT TOGEL BINARY INST TO XEQ        COMCTOK   707
                     54001                        SA0    A0+B1                                                   COMCTOK   708
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   116
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=MN              COMCTOK 
  
                                                                                                                 COMCTOK   709
                                         .T       IFNE   TEST,0                                                  COMCTOK   710
                                                  RJ     SER         SAVE ENTOKENING REGISTERS                   COMCTOK   711
                                                  SA1    TF=IDP                                                  COMCTOK   712
                                                  ZR     X1,TOK5     IF NO IDP INTERFACE SELECTED                COMCTOK   713
                                                                                                                 COMCTOK   714
                                                  SB2    =YTOK=IDP                                               COMCTOK   715
                                                  MI     B2,TOK5     IF USER DID NOT PROVIDE *TOK=IDP*           COMCTOK   716
                                                  RJ     =YTOK=IDP   *TOK* INTERACTIVE DEBUG INTERFACE           COMCTOK   717
                                                                                                                 COMCTOK   718
                                         TOK5     BSS    0                                                       COMCTOK   719
                                         .T       ENDIF                                                          COMCTOK   720
                                                                                                                 COMCTOK   721
                                                  LX2    0-TG.TOFUP                                              COMCTOK   722
                                   0              ERRNZ  TG.TOFUL-18                                             COMCTOK   723
                          63220                   SB2    X2          (B2) = TOFU ADDR FOR THIS INSTRUCTION       COMCTOK   724
           716  0222000000                        JP     FW.TOK+B2                                               COMCTOK   725
  
  
  
  
                                        **        TOK=RS - *TOK* RESTART NODE.                                   COMCTOK   727
                                        *                                                                        COMCTOK   728
                                        *         HERE IF CALLER SPECIFIED *RESTART*, I.E. (TC=RSF) .NZ.,        COMCTOK   729
                                        *         AS WOULD COMMONLY OCCUR WHEN A HOST WAS USING *TOK* TO         COMCTOK   730
                                        *         ENTOKEN MULTIPLE SOURCE LINES AS A SINGLE SOURCE STMT.         COMCTOK   731
                                        *                                                                        COMCTOK   732
                                        *         IN THIS CASE, TOKEN GENERATION IS INTERRUPTED AT THE           COMCTOK   733
                                        *         END OF EACH SOURCE LINE AND NEEDS TO BE RESUMED/RESTARTED      COMCTOK   734
                                        *         FOR EACH NEW LINE THAT IS FED TO *TOK*.                        COMCTOK   735
                                        *                                                                        COMCTOK   736
                                        *         CONSIDER --                                                    COMCTOK   737
                                        *                                                                        COMCTOK   738
                                        *           COL 1    6                                                   COMCTOK   739
                                        *                     CRAWLED = OUT OF * A                               COMCTOK   740
                                        *                    + WELL                                              COMCTOK   741
                                        *                                                                        COMCTOK   742
                                        *         LINE 1 OF THIS STMT ENDS WITH THE TOKEN -A-.  WHEN LINE 2      COMCTOK   743
                                        *         IS ACQUIRED, *TOK* HAS TO BE RESTARTED SO THAT THE             COMCTOK   744
                                        *         TOKEN -AWELL- CAN BE GENERATED.                                COMCTOK   745
                                                                                                                 COMCTOK   746
                                                                                                                 COMCTOK   747
           717                           TOK=RS   BSS    0                                                       COMCTOK   748
                                                                                                                 COMCTOK   749
                                        *         SET UP (A6).  NEXT ADDR TO STORE TOKEN IS AT (A6)+1.           COMCTOK   750
                                                                                                                 COMCTOK   751
           717  5212777776               +        SA1    X2-1                                                    COMCTOK   752
                          10611                   BX6    X1                                                      COMCTOK   753
                               54610              SA6    A1          RESTORE (A6)                                COMCTOK   754
                                                                                                                 COMCTOK   755
                                        *         RESTORE *TOGEL* BINARY INSTRUCTION WE WERE                     COMCTOK   756
                                        *         EXECUTING WHEN INTERRUPTED.                                    COMCTOK   757
                                                                                                                 COMCTOK   758
           720  5112000017                        SA1    B2+TC.REST                                              COMCTOK   759
                          55201                   SA2    A0-B1                                                   COMCTOK   760
                                                  LX2    0-TG.TOFUP                                              COMCTOK   761
                               43066              MX0    -CHAR                                                   COMCTOK   762
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   117
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=RS              COMCTOK 
  
           721  6242777776                        SB4    X2-1        (B4) = TOFU RESTART ADDR                    COMCTOK   763
                          0301000723 +            ZR     X1,TOK5A    IF NO *ON RESTART* PROCESSING               COMCTOK   764
           722  6124000000                        SB2    FW.TOK+B4   (B2) = ADDR OF *TOK* RESTART NODE           COMCTOK   765
                          6241000000              SB4    FW.TOK+X1   (B4) = ADDR OF *RESTART* PROCESSOR          COMCTOK   766
                                                                                                                 COMCTOK   767
           723  0244000000               TOK5A    JP     B4+         BANG...                                     COMCTOK   768
  
  
  
  
                                        **        HERE IF *CALT XX*.                                             COMCTOK   770
                                                                                                                 COMCTOK   771
                                                                                                                 COMCTOK   772
           724  0400000706 +             TOK=CAL  TOFU                                                           COMCTOK   773
           725  20252                             LX2    0-TG.CADP+TG.TOFUP-0                                    COMCTOK   774
                                   0              ERRNZ  TG.CADL-18                                              COMCTOK   775
                     63220                        SB2    X2          (B2) = *CALT* ADDR                          COMCTOK   776
                          0222000000              JP     FW.TOK+B2                                               COMCTOK   777
  
  
  
  
                                        **        HERE IF *CASEOF (...)*.                                        COMCTOK   779
                                        *                                                                        COMCTOK   780
                                        *         READY TO PROCESS AND ENTOKEN THE CHARACTER IN (X4) WHICH       COMCTOK   781
                                        *         TERMINATED THE LAST BURST/BUILD.                               COMCTOK   782
                                        *                                                                        COMCTOK   783
                                        *         FIRST, THE CHARACTER IS USED AS AN ORDINAL INTO THE CHARACTER  COMCTOK   784
                                        *         MAP *TOKEN* TABLE WHICH CONTAINS A TOKEN SKELETON FOR THIS     COMCTOK   785
                                        *         CHARACTER.  IN THE SIMPLEST CASE, THIS TOKEN SKELETON MERELY   COMCTOK   786
                                        *         GETS COPIED TO THE TOKEN BUFFER, AND CONTROL PASSES BACK TO    COMCTOK   787
                                        *         *TOK=MN*.                                                      COMCTOK   788
                                        *                                                                        COMCTOK   789
                                        *         THIS TOKEN GENERATOR ALSO HAS THE ABILITY TO MAP MULTIPLE      COMCTOK   790
                                        *         TOKENS BACK TO A NEW SINGLE TOKEN.  THIS PROCESS CAN GREATLY   COMCTOK   791
                                        *         SIMPLIFY THE PARSING OF MULTIPLE CHARACTER OPERATORS.          COMCTOK   792
                                        *                                                                        COMCTOK   793
                                        *         FOR EXAMPLE, THE FORTRAN EXPONENTIATION OPERATOR ** CAN BE     COMCTOK   794
                                        *         LOOKED AT AS A * TOKEN FOLLOWED BY A * TOKEN.  HOWEVER,        COMCTOK   795
                                        *         THE PARSER CAN BE MORE STRAIGHT-FORWARD IF A ** TOKEN IS       COMCTOK   796
                                        *         GENERATED INSTEAD.                                             COMCTOK   797
                                        *                                                                        COMCTOK   798
                                        *         THE TECHNIQUE USED HERE IS TO LOOK BACK AT THE TOKEN PRECEDING COMCTOK   799
                                        *         THE ONE BEING GENERATED.  FOR THE ** CASE, WHEN A * TOKEN IS   COMCTOK   800
                                        *         GENERATED, THE TOKEN PRECEDING THE * IS EXAMINED;  IF FOUND    COMCTOK   801
                                        *         TO BE A * TOKEN, A ** TOKEN REPLACES THEM.                     COMCTOK   802
                                        *                                                                        COMCTOK   803
                                        *         THIS ENTIRE PROCESS IS TABLE DRIVEN, WHICH ALLOWS THE          COMCTOK   804
                                        *         *COMCTOK* USER TO DEFINE HER OWN OPERATORS WITHOUT A LOT       COMCTOK   805
                                        *         OF GRIEF  (SEE *COMATOK*).                                     COMCTOK   806
                                        *                                                                        COMCTOK   807
                                        *         THE SYNTAX TABLE IS A BINARY TREE WHERE *NO MATCH* MOVEMENT    COMCTOK   808
                                        *         IS LEFT-TO-RIGHT, AND *MATCH* MOVEMENT IS TOP-TO-BOTTOM.       COMCTOK   809
                                        *                                                                        COMCTOK   810
                                        *         FOR EXAMPLE, ARBITRARILY CONSIDER THE 2 OPERATORS              COMCTOK   811
                                        *                /*$  AND  #:$                                           COMCTOK   812
                                        *                                                                        COMCTOK   813
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   118
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             COMCTOK 
  
                                        *                TOKEN                                                   COMCTOK   814
                                        *                     +---+---+---+                                      COMCTOK   815
                                        *                     + T + 0 + $ +                                      COMCTOK   816
                                        *                     +---+---+---+                                      COMCTOK   817
                                        *                       .                                                COMCTOK   818
                                        *                TLINK  .   *$                 :$                        COMCTOK   819
                                        *                     +---+---+---+      +---+---+---+                   COMCTOK   820
                                        *                     + T + F + * +  ..> + T + 0 + : +                   COMCTOK   821
                                        *                     +---+---+---+  .   +---+---+---+                   COMCTOK   822
                                        *                       .   .        .     .                             COMCTOK   823
                                        *                       .   ..........     .                             COMCTOK   824
                                        *                       .                  .                             COMCTOK   825
                                        *                       .  /*$             .  #:$                        COMCTOK   826
                                        *                     +---+---+---+      +---+---+---+                   COMCTOK   827
                                        *                     + 0 + 0 + / +      + 0 + 0 + # +                   COMCTOK   828
                                        *                     +---+---+---+      +---+---+---+                   COMCTOK   829
                                        *                                                                        COMCTOK   830
                                        *                WHERE EACH RECTANGLE CONTAINS 3 SQUARES --              COMCTOK   831
                                        *                                                                        COMCTOK   832
                                        *                  SQUARE 1  CONTAINS THE *MATCH* LINK.  I.E. IF THE     COMCTOK   833
                                        *                            TOKEN WE ARE LOOKING AT IS PRECEDED BY      COMCTOK   834
                                        *                            THE TOKEN IN SQUARE 3, GO TO WHERE SQUARE 1 COMCTOK   835
                                        *                            POINTS.  (0 DENOTES END-OF-CHAIN)           COMCTOK   836
                                        *                  SQUARE 2  CONTAINS THE *NO MATCH* LINK.  I.E. IF THE  COMCTOK   837
                                        *                            TOKEN WE ARE LOOKING AT IS NOT PRECEDED BY  COMCTOK   838
                                        *                            THE TOKEN IN SQUARE 3, GO TO WHERE SQUARE 2 COMCTOK   839
                                        *                            POINTS.                                     COMCTOK   840
                                        *                  SQUARE 3  CONTAINS THE TOKEN VALUE TO TRY AND MATCH.  COMCTOK   841
                                                                                                                 COMCTOK   842
                                                                                                                 COMCTOK   843
           726  0400000706 +             TOK=COF  TOFU   TOK=MN                                                  COMCTOK   844
                                                                                                                 COMCTOK   845
                                        *         CHECK TO SEE IF CHARACTER TO GENERATE TOKEN FOR IS             COMCTOK   846
                                        *         IN *CASEOF* RANGE.  IF SO, USE CHAR AS AN ORDINAL INTO         COMCTOK   847
                                        *         THE *TOKEN* TABLE TO PICK UP TOKEN SKELETON FOR THIS CHAR.     COMCTOK   848
                                        *         IF NOT, PICK UP /ELSC/ *TOKEN* ENTRY.                          COMCTOK   849
                                        *                                                                        COMCTOK   850
                                        *         IF THE CHARACTER IS WITHIN *CASEOF* RANGE, THEN CHAR IS        COMCTOK   851
                                        *         CONVERTED TO A *ROTATED CHARACTER SET*, CALLED *RCS*,          COMCTOK   852
                                        *         WHERE THE 1ST CHARACTER IN *RCS* IS THE 1ST CHARACTER          COMCTOK   853
                                        *         IN *CASEOF* RANGE, *COA*, (BINARY VALUE = 00B).  THE           COMCTOK   854
                                        *         FORMULA FOR CONVERTING CHAR TO ENTOKEN, *CTE*, TO *RCS*        COMCTOK   855
                                        *         IS --                                                          COMCTOK   856
                                        *                                                                        COMCTOK   857
                                        *                RCS = CTE+10000B-COA                                    COMCTOK   858
                                        *                                                                        COMCTOK   859
                                        *         IF THE HOST CHARACTER SET CONSISTS OF *CHAR* BIT CHARACTERS,   COMCTOK   860
                                        *         THEN THE ROTATED CHARACTER SET VALUE IS THE LOWER *CHAR*       COMCTOK   861
                                        *         BITS OF *RCS* ABOVE.                                           COMCTOK   862
                                        *                                                                        COMCTOK   863
                                        *         FOR EXAMPLE, CONSIDER --                                       COMCTOK   864
                                        *                                                                        COMCTOK   865
                                        *                CASEOF (+..:)                                           COMCTOK   866
                                        *                                                                        COMCTOK   867
                                        *         THE *RCS* VALUES FOR THIS *CASEOF* RANGE (USING DISPLAY        COMCTOK   868
                                        *         CODE, 6 BIT, CHARACTERS) ARE --                                COMCTOK   869
                                        *                                                                        COMCTOK   870
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   119
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             COMCTOK 
  
                                        *                +      RCS = 45B+10000B-45B                             COMCTOK   871
                                        *                           = 10000B                                     COMCTOK   872
                                        *                                                                        COMCTOK   873
                                        *                       EXTRACT LOWER 6 BITS --  RCS = 00B               COMCTOK   874
                                        *                                                                        COMCTOK   875
                                        *                -      RCS = 46B+10000B-45B                             COMCTOK   876
                                        *                           = 10001B                                     COMCTOK   877
                                        *                                                                        COMCTOK   878
                                        *                       EXTRACT LOWER 6 BITS --  RCS = 01B               COMCTOK   879
                                        *                                                                        COMCTOK   880
                                        *                SKIP TO                                                 COMCTOK   881
                                        *                                                                        COMCTOK   882
                                        *                ;      RCS = 77B+10000B-45B                             COMCTOK   883
                                        *                           = 10032B                                     COMCTOK   884
                                        *                                                                        COMCTOK   885
                                        *                       EXTRACT LOWER 6 BITS --  RCS = 32B               COMCTOK   886
                                        *                                                                        COMCTOK   887
                                        *                :      RCS = 00B+10000B-45B                             COMCTOK   888
                                        *                           = 7733B                                      COMCTOK   889
                                        *                                                                        COMCTOK   890
                                        *                       EXTRACT LOWER 6 BITS --  RCS = 33B               COMCTOK   891
                                        *                                                                        COMCTOK   892
                                        *         IT IS EASY TO SEE NOW THAT THE *RCS* VALUES ARE ALSO           COMCTOK   893
                                        *         *TOKEN* ORDINALS.                                              COMCTOK   894
                                                                                                                 COMCTOK   895
                                                                                                                 COMCTOK   896
           727  20214                             LX2    0-TG.COAP+TG.TOFUP-0                                    COMCTOK   897
                     15620                        BX6    -X0*X2      EXTRACT *COA*                               COMCTOK   898
                          20214                   LX2    0-TG.COZP+TG.COAP-0                                     COMCTOK   899
                               15720              BX7    -X0*X2      EXTRACT *COZ*                               COMCTOK   900
           730  7214010000                        SX1    X4+10000B                                               COMCTOK   901
                          20222                   LX2    0-TG.TADP+TG.COZP-0                                     COMCTOK   902
                               37316              IX3    X1-X6                                                   COMCTOK   903
                                   0              ERRNZ  TG.TADL-18                                              COMCTOK   904
           731  63320                             =B3    FW.TOK+X2   (B3) = FWA OF *TOKEN* CHAR MAP              COMCTOK   905
                                        *                                   FOR THIS *CASEOF*                    COMCTOK   906
                     15130                        BX1    -X0*X3      (X1) = *RCS* REPRESENTATION OF CHAR         COMCTOK   907
                                        *                                   TO GENERATE TOKEN FOR                COMCTOK   908
                          37671                   IX6    X7-X1                                                   COMCTOK   909
                               63210              SB2    X1          (B2) = ORD OF *TOKEN* SKEL FOR THIS CHAR    COMCTOK   910
           732  64560                             SB5    A6          INITIALIZE (B5) = ADDR OF PRECEDING TOKEN   COMCTOK   911
                     0326000733 +                 PL     X6,TOK6     IF CHAR IS WITHIN *CASEOF* RANGE            COMCTOK   912
                               63271              SB2    X7+B1       (B2) = ORD OF /ELSC/ *TOKEN* SKEL           COMCTOK   913
                                                                                                                 COMCTOK   914
           733  56132                    TOK6     SA1    B3+B2       (X1) = *TOKEN* SKEL FOR THIS CHAR           COMCTOK   915
                                                                                                                 COMCTOK   916
                                        *         INITIALIZE FOR *TOKEN/TLINK* SYNTAX CHECKING.                  COMCTOK   917
                                                                                                                 COMCTOK   918
                                   0              ERRNZ  TK.TOTP-0                                               COMCTOK   919
                                   0              ERRNZ  TK.TOTL-18                                              COMCTOK   920
                                   0              ERRNZ  TK.PADL-18                                              COMCTOK   921
                                   0              ERRNZ  TK.LNKL-18                                              COMCTOK   922
                     64560                        SB5    A6          INITIALIZE (B5) = ADDR OF PRECEDING TOKEN   COMCTOK   923
                          73610                   SX6    X1                                                      COMCTOK   924
                               20130              LX1    0-TK.PADP                                               COMCTOK   925
           734  73010                             SX0    X1          (X0) = ADDR OF USER PROCESSING ADDR FOR     COMCTOK   926
                                        *                                   THIS TOKEN, ELSE .ZR. IF NONE        COMCTOK   927
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   120
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             COMCTOK 
  
                     20122                        LX1    0-TK.LNKP+TK.PADP-0                                     COMCTOK   928
                          46000                   NO                                                             COMCTOK   929
                               63410              =B4    FW.TOK+X1   (B4) = ADDR OF 1ST *TLINK* ENTRY, ELSE      COMCTOK   930
                                        *                                   .ZR. IF NONE                         COMCTOK   931
  
  
  
  
                                        **        THIS IS THE MAIN LOOP FOR MOVEMENT THRU *TLINK*, THE           COMCTOK   933
                                        *         MULTIPLE CHARACTER OPERATOR SYNTAX TREE --                     COMCTOK   934
                                        *                                                                        COMCTOK   935
                                        *           1. IF HAVE JUST FOUND A *TRUE* TOKEN PAIR, THEN WE WOULD     COMCTOK   936
                                        *              HAVE MOVED *DOWN* THE TREE  (SEE DIAGRAM).                COMCTOK   937
                                        *                                                                        COMCTOK   938
                                        *           2. IF HAVE JUST ENCOUNTERED A *FALSE* TOKEN PAIR, THEN       COMCTOK   939
                                        *              WE WOULD HAVE MOVED *RIGHT* IN THE TREE.                  COMCTOK   940
                                        *                                                                        COMCTOK   941
                                        *         ENTRY  (B4) = ADDR OF NEXT *TLINK* ENTRY  (EITHER *DOWN* OR    COMCTOK   942
                                        *                       *RIGHT* OF CURRENT ENTRY), ELSE                  COMCTOK   943
                                        *                     = .ZR. IF CURRENT ENTRY WAS END-OF-CHAIN           COMCTOK   944
                                        *                (B5) = ADDR OF NEXT TOKEN TO CHECK                      COMCTOK   945
                                        *                                                                        COMCTOK   946
                                        *         LOCKED X - 0,4,5,6                                             COMCTOK   947
                                        *                A - 0,4,5,6                                             COMCTOK   948
                                        *                B - 6,7                                                 COMCTOK   949
                                                                                                                 COMCTOK   950
                                   0              ERRNZ  TL.TRUL-18                                              COMCTOK   951
                                   0              ERRNZ  TL.FALL-18                                              COMCTOK   952
                                   0              ERRNZ  TL.PREL-18                                              COMCTOK   953
                                                                                                                 COMCTOK   954
           735  0440000746 +             TOK7     ZR     B4,TOK8A    IF END-OF-CHAIN ENCOUNTERED                 COMCTOK   955
                          56140                   SA1    B4          (A1,X1) = A+C OF 1ST WORD OF TLINK ENTRY    COMCTOK   956
                               56250              SA2    B5          (A2,X2) = A+C OF PRECEDING TOKEN            COMCTOK   957
                                                  LX1    0-TL.PREP                                               COMCTOK   958
           736  63210                             SB2    X1          (B2) = O.PRE                                COMCTOK   959
                     63320                        SB3    X2          (B3) = O.XXX                                COMCTOK   960
                          20152                   LX1    0-TL.FALP                                               COMCTOK   961
                               63410              =B4    FW.TOK+X1   (B4) = ADDR OF NEXT TLINK ENTRY IN          COMCTOK   962
                                        *                                   *FALSE* CHAIN                        COMCTOK   963
           737  0523000735 +                      NE     B2,B3,TOK7  IF *O.XXX* NOT PRECEDED BY *O.PRE*          COMCTOK   964
                          20152                   LX1    0-TL.TRUP+TL.FALP-0                                     COMCTOK   965
                               63310              =B3    FW.TOK+X1   (B3) = ADDR OF NEXT TLINK ENTRY IN          COMCTOK   966
                                        *                                   *TRUE* CHAIN                         COMCTOK   967
                                                                                                                 COMCTOK   968
                                        *         HERE IF <O.PRE><O.XXX> OCCURRED.                               COMCTOK   969
                                                                                                                 COMCTOK   970
           740  20144                             LX1    59-TL.MAFP+TL.TRUP-0                                    COMCTOK   971
                     0321000743 +                 PL     X1,TOK8     IF EXACT CHARACTER MATCH NOT NEEDED         COMCTOK   972
                                                                                                                 COMCTOK   973
                                        *         HERE IF AN EXACT CHARACTER MATCH REQUIRED.                     COMCTOK   974
                                                                                                                 COMCTOK   975
                               54111              SA1    A1+B1       (X1) = CHARS TO CHECK FOR, -L- FMT          COMCTOK   976
           741  43752                             MX7    TL.MACL                                                 COMCTOK   977
                                   0              ERRNZ  TL.MACP+TL.MACL-60D                                     COMCTOK   978
                     11272                        BX2    X7*X2       (X2) = CHARS TO CHECK, -L- FMT              COMCTOK   979
                          46000                   NO                                                             COMCTOK   980
                               13712              BX7    X1-X2                                                   COMCTOK   981
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   121
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=COF             COMCTOK 
  
           742  0317000735 +                      NZ     X7,TOK7     IF NO MATCH                                 COMCTOK   982
                                                                                                                 COMCTOK   983
           743  66430                    TOK8     SB4    B3                                                      COMCTOK   984
                     67551                        SB5    B5-B1                                                   COMCTOK   985
                          0530000735 +            NZ     B3,TOK7     IF NEED TO TRY NEXT *TRUE* TLINK ENTRY      COMCTOK   986
           744  54111                             SA1    A1+B1       (X1) = REPLACEMENT TOKEN                    COMCTOK   987
                     73610                        SX6    X1                                                      COMCTOK   988
                          20130                   LX1    0-TK.PADP                                               COMCTOK   989
                               73010              SX0    X1                                                      COMCTOK   990
           745  20122                             LX1    0-TK.LNKP+TK.PADP-0                                     COMCTOK   991
                     63410                        =B4    FW.TOK+X1                                               COMCTOK   992
                          0400000747 +            EQ     TOK9                                                    COMCTOK   993
                                                                                                                 COMCTOK   994
                                        *         HERE WHEN END-OF-CHAIN ENCOUNTERED -- TIME TO INVOKE           COMCTOK   995
                                        *         ANY SPECIAL PROCESSING THAT MIGHT BE REQUIRED FOR TOKEN        COMCTOK   996
                                        *         THAT IS TO BE GENERATED.                                       COMCTOK   997
                                                                                                                 COMCTOK   998
           746  6056000000               TOK8A    SB5    A6+         RESET (B5) = ADDR WE ORIGINALLY BEGAN AT    COMCTOK   999
                                                                                                                 COMCTOK  1000
           747  6230000000               TOK9     SB3    FW.TOK+X0   (B3) = ADDR OF SPECIAL PROCESSOR, ELSE      COMCTOK  1001
                                        *                                   .ZR. IF NONE                         COMCTOK  1002
                          0430000752 +            ZR     B3,TOK10    IF NO SPECIAL PROCESSOR                     COMCTOK  1003
           750  0730000751 +                      MI     B3,TOK9A    IF MERELY XFERRING WITHIN *TOM*             COMCTOK  1004
                          0233000000              JP     B3+                                                     COMCTOK  1005
                                                                                                                 COMCTOK  1006
           751  57003                    TOK9A    SA0    -B3         RESET -P- REGISTER                          COMCTOK  1007
                                                                                                                 COMCTOK  1008
                                        *         RETURN FROM SPECIAL PROCESSING -- ENTER NEW TOKEN              COMCTOK  1009
                                        *         INTO TOKEN BUFFER.                                             COMCTOK  1010
                                                                                                                 COMCTOK  1011
           752                           TOK=COS  BSS    0           ** RETURN WITH TOKEN STORE **               COMCTOK  1012
           752  5165000001               TOK10    SA6    B5+1                                                    COMCTOK  1013
                                                                                                                 COMCTOK  1014
           753                           TOK=CON  BSS    0           ** RETURN WITH NO TOKEN STORE **            COMCTOK  1015
           753  0540000735 +             TOK11    NZ     B4,TOK7     IF NEED TO CHECK LINK FOR NEW TOKEN         COMCTOK  1016
                          7140777776              SX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            COMCTOK  1017
           754  0400000706 +                      EQ     TOK=MN                                                  COMCTOK  1018
  
  
  
  
                                        **        HERE IF *ELST*.                                                COMCTOK  1020
                                        *                                                                        COMCTOK  1021
                                        *         NOTE: *TEST* MODE ONLY.                                        COMCTOK  1022
                                                                                                                 COMCTOK  1023
                                         .T       IFNE   TEST,0                                                  COMCTOK  1024
                                         TOK=ELS  TOFU                                                           COMCTOK  1025
                                                  EQ     TOK=MN                                                  COMCTOK  1026
                                         .T       ENDIF                                                          COMCTOK  1027
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   122
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=ENT             COMCTOK 
  
                                        **        HERE IF *ENDT*.                                                COMCTOK  1029
                                        *                                                                        COMCTOK  1030
                                        *         NOTE: *TEST* MODE ONLY.                                        COMCTOK  1031
                                                                                                                 COMCTOK  1032
                                         .T       IFNE   TEST,0                                                  COMCTOK  1033
                                         TOK=ENT  TOFU                                                           COMCTOK  1034
                                                  EQ     TOK=MN                                                  COMCTOK  1035
                                         .T       ENDIF                                                          COMCTOK  1036
  
  
  
  
                                        **        HERE WHEN EOL ENCOUNTERED.                                     COMCTOK  1038
                                        *                                                                        COMCTOK  1039
                                        *           1. SAVE CRITICAL ENTOKENING REGISTERS SO THAT WE CAN         COMCTOK  1040
                                        *              RECOVER IF NEXT LINE IS CONTINUATION OF THIS LINE.        COMCTOK  1041
                                        *                                                                        COMCTOK  1042
                                        *           2. IF *ON EOL,XXX* INDICATED THAT CALLER WISHES              COMCTOK  1043
                                        *              TO PERFORM SOME END-OF-LINE PROCESSING, THEN GO DO IT.    COMCTOK  1044
                                                                                                                 COMCTOK  1045
           755                           TOK=EOL  BSS    0           ** ENTRY **                                 COMCTOK  1046
           755  7160000000                        SX6    "O."EOS                                                 COMCTOK  1047
                          43473                   MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            COMCTOK  1048
                               54661              SA6    A6+B1       MARK EOS                                    COMCTOK  1049
           756  0100001042 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   COMCTOK  1050
           757  5112000016                        SA1    B2+TC.EOL                                               COMCTOK  1051
                          0301000664 +            ZR     X1,EXIT.    IF NO SPECIAL PROCESSING                    COMCTOK  1052
           760  63210                             SB2    X1                                                      COMCTOK  1053
                     0222000000                   JP     B2          DO WHAT YOU WILL...                         COMCTOK  1054
  
  
  
  
                                        **        HERE IF *GENTOK TOT*.                                          COMCTOK  1056
                                                                                                                 COMCTOK  1057
                                                                                                                 COMCTOK  1058
           761  0400000706 +             TOK=GEN  TOFU                                                           COMCTOK  1059
           762  20252                             LX2    0-TG.GTTP+TG.TOFUP-0                                    COMCTOK  1060
                                   0              ERRNZ  TG.GTTL-18                                              COMCTOK  1061
                     73620                        SX6    X2          (X6) = TOKEN TYPE TO GENERATE               COMCTOK  1062
                          43473                   MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            COMCTOK  1063
                               54661              SA6    A6+B1                                                   COMCTOK  1064
           763  0400000706 +                      EQ     TOK=MN                                                  COMCTOK  1065
  
  
  
  
                                        **        HERE IF *GROUP,...,NSQZ*.                                      COMCTOK  1067
                                                                                                                 COMCTOK  1068
           764  0400000771 +             TOK=GN   TOFU   TOK13                                                   COMCTOK  1069
           765  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1070
                                   0              ERRNZ  TG.TOTL-18                                              COMCTOK  1071
                     73620                        SX6    X2          (X6) = 42/0,18/TOKEN TYPE FOR THIS *GROUP*  COMCTOK  1072
                          6130000066              SB3    BN.TOCP+BN.TOCL-CHAR                                    COMCTOK  1073
                                                                                                                 COMCTOK  1074
           766  20222                    TOK12    LX2    0-TG.MXAP+TG.TOTP-0                                     COMCTOK  1075
                     5212000000                   SA1    FW.TOK+X2   (X1) = CHAR SHIFT MASK FOR THIS *GROUP*     COMCTOK  1076
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   123
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=GN              COMCTOK 
  
                               13777              BX7    X7-X7                                                   COMCTOK  1077
           767  5170000663 +                      SA7    TF=SQZ      SET TO *BU/BU WITH NO BLANK SQZ*            COMCTOK  1078
                          0100001670 +            RJ     BUN         BURST/BUILD CHARACTERS WITH NO BLANK SQZ    COMCTOK  1079
           770  0707000706 +                      GT     B7,B0,TOK=MN IF DID NOT ENCOUNTER END-OF-LINE           COMCTOK  1080
                          0400000755 +            EQ     TOK=EOL                                                 COMCTOK  1081
                                                                                                                 COMCTOK  1082
                                        **        HERE FOR *GROUP,...,NSQZ* RESTART.                             COMCTOK  1083
                                                                                                                 COMCTOK  1084
           771  6120000066               TOK13    SB2    BN.TOCP+BN.TOCL-CHAR                                    COMCTOK  1085
                          0432000765 +            EQ     B3,B2,TOK=GN IF LAST TOKEN GENERATED WAS FULL           COMCTOK  1086
           772  55161                    +        SA1    A6-B1                                                   COMCTOK  1087
                     10766                        BX7    X6          SAVE (X6)                                   COMCTOK  1088
                          22601                   LX6    X1                                                      COMCTOK  1089
                               54610              SA6    A1          (A6+1) = ADDR TO (RE)STORE CURRENT          COMCTOK  1090
                                        *                                     UNFINISHED TOKEN                   COMCTOK  1091
           773  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1092
                     10677                        BX6    X7          RESTORE (X6) = PARTIALLY FILLED TOKEN       COMCTOK  1093
                          0400000766 +            EQ     TOK12                                                   COMCTOK  1094
  
  
  
  
                                        **        HERE IF *GOTO XX*.                                             COMCTOK  1096
                                                                                                                 COMCTOK  1097
           774  0400000706 +             TOK=GO   TOFU                                                           COMCTOK  1098
           775  20252                             LX2    0-TG.GOTP+TG.TOFUP-0                                    COMCTOK  1099
                                   0              ERRNZ  TG.GOTL-18                                              COMCTOK  1100
                     5202000000                   SA0    FW.TOK+X2                                               COMCTOK  1101
           776  0400000706 +                      EQ     TOK=MN                                                  COMCTOK  1102
  
  
  
  
                                        **        HERE IF *GROUP,...,SQZ*.                                       COMCTOK  1104
                                                                                                                 COMCTOK  1105
           777  0400001004 +             TOK=GS   TOFU   TOK15                                                   COMCTOK  1106
          1000  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1107
                                   0              ERRNZ  TG.TOTL-18                                              COMCTOK  1108
                     73620                        SX6    X2          (X6) = 42/0,18/TOKEN TYPE FOR THIS *GROUP*  COMCTOK  1109
                          6130000066              SB3    BB.TOCP+BB.TOCL-CHAR                                    COMCTOK  1110
                                                                                                                 COMCTOK  1111
          1001  20222                    TOK14    LX2    0-TG.MXAP+TG.TOTP-0                                     COMCTOK  1112
                                   0              ERRNZ  TG.MXAL-18                                              COMCTOK  1113
                     5212000000                   SA1    FW.TOK+X2   (X1) = CHAR SHIFT MASK FOR THIS *GROUP*     COMCTOK  1114
                               76710              SX7    B1                                                      COMCTOK  1115
          1002  5170000663 +                      SA7    TF=SQZ      SET TO *BU/BU WITH BLANK SQZ*               COMCTOK  1116
                          0100001646 +            RJ     BUB         BURST/BUILD WITH BLANK SQUEEZE              COMCTOK  1117
          1003  0707000706 +                      GT     B7,B0,TOK=MN  IF DID NOT ENCOUNTER END-OF-LINE          COMCTOK  1118
                          0400000755 +            EQ     TOK=EOL                                                 COMCTOK  1119
                                                                                                                 COMCTOK  1120
                                        *         HERE FOR *GROUP,...,SQZ* RESTART.                              COMCTOK  1121
                                                                                                                 COMCTOK  1122
          1004  6120000066               TOK15    SB2    BB.TOCP+BB.TOCL-CHAR                                    COMCTOK  1123
                          0432001000 +            EQ     B3,B2,TOK=GS IF LAST TOKEN GENERATED WAS FULL           COMCTOK  1124
          1005  55161                    +        SA1    A6-B1                                                   COMCTOK  1125
                     10766                        BX7    X6          SAVE (X6)                                   COMCTOK  1126
                          22601                   LX6    X1                                                      COMCTOK  1127
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   124
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=GS              COMCTOK 
  
                               54610              SA6    A1          (A6+1) = ADDR TO (RE)STORE CURRENT          COMCTOK  1128
                                        *                                     UNFINISHED TOKEN                   COMCTOK  1129
          1006  20230                             LX2    0-TG.TOTP+TG.TOFUP-0                                    COMCTOK  1130
                     10677                        BX6    X7          RESTORE (X6) = PARTIALLY FILLED TOKEN       COMCTOK  1131
                          0400001001 +            EQ     TOK14                                                   COMCTOK  1132
  
  
  
  
                                        **        HERE IF *IFT (...)*.                                           COMCTOK  1134
                                                                                                                 COMCTOK  1135
          1007  0400000706 +             TOK=IFT  TOFU                                                           COMCTOK  1136
          1010  20252                             LX2    0-TG.MXAP+TG.TOFUP-0                                    COMCTOK  1137
                                   0              ERRNZ  TG.MXAL-18                                              COMCTOK  1138
                     53120                        =A1    FW.TOK+X2   (X1) = CHAR SHIFT MASK FOR THIS *IFT*       COMCTOK  1139
                          6224007763              SB2    X4+10000B-BICH                                          COMCTOK  1140
          1011  20252                             LX2    0-TG.FALP+TG.MXAP-0                                     COMCTOK  1141
                     22721                        LX7    X1,B2                                                   COMCTOK  1142
                          0337000706 +            MI     X7,TOK=MN   IF CHARACTER IS IN THIS GROUP (TRUE)...     COMCTOK  1143
                                   0              ERRNZ  TG.FALL-18                                              COMCTOK  1144
          1012  5202000000                        SA0    FW.TOK+X2   (A0) = ADDR OF *FALSE* BINARY TOGEL INST    COMCTOK  1145
                          0400000706 +            EQ     TOK=MN                                                  COMCTOK  1146
  
  
  
  
                                        **        HERE IF *ON I,V*.                                              COMCTOK  1148
                                                                                                                 COMCTOK  1149
                                                                                                                 COMCTOK  1150
          1013  0400000706 +             TOK=ON   TOFU                                                           COMCTOK  1151
          1014  5110000662 +                      SA1    FW=TCOM     (X1) = FWA OF *TOKCOM*                      COMCTOK  1152
                          20230                   LX2    0-TG.INVP+TG.TOFUP-0                                    COMCTOK  1153
                                   0              ERRNZ  TG.INVL-18                                              COMCTOK  1154
                               73720              SX7    X2          (X7) = INTERUPT VALUE                       COMCTOK  1155
          1015  63210                             SB2    X1                                                      COMCTOK  1156
                     20222                        LX2    0-TG.INCP+TG.INVP-0                                     COMCTOK  1157
                                   0              ERRNZ  TG.INCL-18                                              COMCTOK  1158
                          53722                   SA7    B2+X2       INTERUPT CELL = INTERUPT VALUE              COMCTOK  1159
          1016  0400000706 +                      EQ     TOK=MN                                                  COMCTOK  1160
  
  
  
  
                                        **        HERE IF *XEQ P*.                                               COMCTOK  1162
                                                                                                                 COMCTOK  1163
          1017  0400000706 +             TOK=XEQ  TOFU                                                           COMCTOK  1164
          1020  20252                             LX2    0-TG.XADP+TG.TOFUP-0                                    COMCTOK  1165
                                   0              ERRNZ  TG.XADL-18                                              COMCTOK  1166
                     5110001023 +                 SA1    XEQA        (X1) = *GOTO* SKELETON                      COMCTOK  1167
                               74700              SX7    A0          (X7) = RETURN ADDR                          COMCTOK  1168
          1021  53021                             =A0    FW.TOK+X2+1 (A0) = ADDR OF 1ST INST TO XEQ IN PROC      COMCTOK  1169
                     20722                        LX7    TG.GOTP-0                                               COMCTOK  1170
                          12717                   BX7    X1+X7       (X7) = FABRICATED /GOTO *+1/                COMCTOK  1171
                               55701              SA7    A0-B1       PLUG /GOTO *+1/  (JUST LIKE SEYMOUR...)     COMCTOK  1172
          1022  0400000706 +                      EQ     TOK=MN                                                  COMCTOK  1173
                                                                                                                 COMCTOK  1174
                                                                                                                 COMCTOK  1175
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   125
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK=XEQ             COMCTOK 
  
          1023  00000000000000000775 +   XEQA     GOTO   0           SKELETON FOR /GOTO *+1/ PLUG                COMCTOK  1176
  
  
  
  
                                        **        CCD - COMPUTE CHARACTER DIFFERENCE.                            COMCTOK  1178
                                        *                                                                        COMCTOK  1179
                                        *                                                                        COMCTOK  1180
                                        *         GIVEN 2 CHARACTER POSITIONS WITHIN A SOURCE LINE, *CCD*        COMCTOK  1181
                                        *         WILL RETURN THE NR OF CHARACTERS THAT LIE BETWEEN THEM.        COMCTOK  1182
                                        *                                                                        COMCTOK  1183
                                        *         EACH CHARACTER POSITION IS REPRESENTED IN *TOK*S WORD+BIT      COMCTOK  1184
                                        *         NOTATION.                                                      COMCTOK  1185
                                        *                                                                        COMCTOK  1186
                                        *         E.G. GIVEN THE FOLLOWING --                                    COMCTOK  1187
                                        *                                                                        COMCTOK  1188
                                        *         WORD  0         1          2           3                       COMCTOK  1189
                                        *               ......ALPHA.=.BETA.+.1000........0000000000              COMCTOK  1190
                                        *                           .        .                                   COMCTOK  1191
                                        *                           .        ......... W2 = 2                    COMCTOK  1192
                                        *                           .                  C2 = 60D                  COMCTOK  1193
                                        *                           .                                            COMCTOK  1194
                                        *                           .................. W1 = 1                    COMCTOK  1195
                                        *                                              C1 = 48D                  COMCTOK  1196
                                        *                                                                        COMCTOK  1197
                                        *         WHERE  W1 = WORD POSITION OF 1ST CHAR.                         COMCTOK  1198
                                        *                C1 = CHAR/BIT POSITION WITHIN *W1* OF 1ST CHAR.         COMCTOK  1199
                                        *                W2 = WORD POSTIONN OF 2ND CHAR.                         COMCTOK  1200
                                        *                C2 = CHAR/BIT POSTIION WITHIN *W2* OF 2ND CHAR.         COMCTOK  1201
                                        *                                                                        COMCTOK  1202
                                        *         NOTE THAT *C1* AND *C2* ARE *TOK* BIT POSITIONS.  THAT IS,     COMCTOK  1203
                                        *         THEY SPECIFY THE NR OF BITS **REMAINING** IN THEIR RESPECTIVE  COMCTOK  1204
                                        *         WORD.  THEREFORE, *C.N* = 60D MEANS LEFT-MOST CHAR IN *W.N*,   COMCTOK  1205
                                        *         *C.N* = 54D MEANS 2ND TO THE LEFT-MOST CHAR IN *W.N*, ETC.     COMCTOK  1206
                                        *                                                                        COMCTOK  1207
                                        *         SPECIAL NOTE ABOUT *C.N* = 0.  IF *C.N* = 0 AND *W.N* = X,     COMCTOK  1208
                                        *         THEN *CCD* TREATS THIS CASE AS EQUIVALENT TO *C.N* = 60D AND   COMCTOK  1209
                                        *         *W.N* = X+1.                                                   COMCTOK  1210
                                        *                                                                        COMCTOK  1211
                                        *         THE FORMULA FOR COMPUTING THE DIFFERENCE BETWEEN (W1,C1) AND   COMCTOK  1212
                                        *         (W2,C2) IS --                                                  COMCTOK  1213
                                        *                                                                        COMCTOK  1214
                                        *                DIFF = ((W2-W1)*(60/CHAR))+(((60-C2)-(60-C1))/CHAR)     COMCTOK  1215
                                        *                                                                        COMCTOK  1216
                                        *         THE CODE TO DO THIS WAS STOLEN FROM THE *FTN* OBJECT CODE      COMCTOK  1217
                                        *         FOR THE ABOVE *FORTRAN* STATEMENT.                             COMCTOK  1218
                                        *                                                                        COMCTOK  1219
                                        *         ENTRY  (X1) = W1                                               COMCTOK  1220
                                        *                (X2) = C1                                               COMCTOK  1221
                                        *                (X3) = W2                                               COMCTOK  1222
                                        *                (X4) = C2                                               COMCTOK  1223
                                        *                                                                        COMCTOK  1224
                                        *         EXIT   (X7) = NR OF CHARS BETWEEN (W1,C1) AND (W2,C2).         COMCTOK  1225
                                        *                       NOTE THAT IF (W2,C2) IS TO THE RIGHT OF (W1,C1), COMCTOK  1226
                                        *                       THEN (X7) IS .PL., WHILE IF (W2,C2) IS TO THE    COMCTOK  1227
                                        *                       LEFT OF (W1,C1), THEN (X7) IS .MI.               COMCTOK  1228
                                        *                                                                        COMCTOK  1229
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   126
        COMCTOK 2.0 - TOKEN GENERATOR.                                CCD                 COMCTOK 
  
                                        *         USES   X - 1,2,3,4,6,7                                         COMCTOK  1230
                                        *                A - NONE                                                COMCTOK  1231
                                        *                B - 2                                                   COMCTOK  1232
                                        *                                                                        COMCTOK  1233
                                        *         CALLS  NONE                                                    COMCTOK  1234
                                                                                                                 COMCTOK  1235
                                                                                                                 COMCTOK  1236
          1024  0400401024 +             CCD      SUBR               ** ENTRY/EXIT **                            COMCTOK  1237
          1025  7170000074                        SX7    60D         (X7) = NR OF BITS IN A WORD                 COMCTOK  1238
                          37631                   IX6    X3-X1       (X6) = W2-W1                                COMCTOK  1239
                               37272              IX2    X7-X2       (X2) = 60-C1                                COMCTOK  1240
          1026  37474                             IX4    X7-X4       (X4) = 60-C2                                COMCTOK  1241
                     7170000006                   SX7    CHAR                                                    COMCTOK  1242
                               37242              IX2    X4-X2       (X2) = (60-C2)-(60-C1)                      COMCTOK  1243
          1027  27707                             PX7    X7                                                      COMCTOK  1244
                     27202                        PX2    X2                                                      COMCTOK  1245
                          7140000012              SX4    60D/CHAR    (X4) = NR OF CHARS IN A WORD                COMCTOK  1246
          1030  24707                             NX7    X7                                                      COMCTOK  1247
                     24202                        NX2    X2                                                      COMCTOK  1248
                          42464                   IX4    X6*X4       (X4) = (W2-W1)*(60/CHAR)                    COMCTOK  1249
                               44227              FX2    X2/X7       (X2) = ((60-C2)-(60-C1))/CHAR               COMCTOK  1250
          1031  26322                             UX3    X2,B2                                                   COMCTOK  1251
                     22223                        LX2    X3,B2                                                   COMCTOK  1252
                          36742                   IX7    X4+X2                                                   COMCTOK  1253
          1032  0400001024 +                      EQ     EXIT.                                                   COMCTOK  1254
  
  
  
  
                                        **        RER - RESTORE ENTOKENING REGISTERS.                            COMCTOK  1256
                                        *                                                                        COMCTOK  1257
                                        *                                                                        COMCTOK  1258
                                        *         ENTRY  ENTOKENING REGISTERS IN *TOKCOM*.                       COMCTOK  1259
                                        *                                                                        COMCTOK  1260
                                        *         EXIT   (B2) = FWA OF *TOKCOM*.                                 COMCTOK  1261
                                        *                ENTOKENING REGISTERS SET UP, **EXCEPT** (A6,X6).        COMCTOK  1262
                                        *                (A6,X6) ARE **NOT** RESTORED BECAUSE I COULD FIND       COMCTOK  1263
                                        *                NO GENERAL ALGORITHM/RULE FOR KNOWING WHETHER (A6)      COMCTOK  1264
                                        *                SHOULD POINT TO LAST TOKEN GENERATED OR NEXT TOKEN      COMCTOK  1265
                                        *                TO GENERATE.  ERGO (A6) IS LEFT ALONE...                COMCTOK  1266
                                        *                                                                        COMCTOK  1267
                                        *         USES   X - 1,2,3,4,5                                           COMCTOK  1268
                                        *                A - 0,1,2,3,4,5                                         COMCTOK  1269
                                        *                B - 2,3,6,7                                             COMCTOK  1270
                                        *                                                                        COMCTOK  1271
                                        *         CALLS  NONE                                                    COMCTOK  1272
                                                                                                                 COMCTOK  1273
                                                                                                                 COMCTOK  1274
          1033  0400401033 +             RER      SUBR               ** ENTRY/EXIT **                            COMCTOK  1275
          1034  5110000662 +                      SA1    FW=TCOM                                                 COMCTOK  1276
                          63210                   SB2    X1          (B2) = FWA OF *TOKCOM*                      COMCTOK  1277
          1035  5112000004                        =A1    B2+TC.P                                                 COMCTOK  1278
                          54211                   =A2    A1+TC.SOA-TC.P                                          COMCTOK  1279
                               54321              =A3    A2+TC.SOX-TC.SOA                                        COMCTOK  1280
          1036  54431                             =A4    A3+TC.SOL-TC.SOX                                        COMCTOK  1281
                     53010                        SA0    X1                                                      COMCTOK  1282
                          53520                   SA5    X2                                                      COMCTOK  1283
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   127
        COMCTOK 2.0 - TOKEN GENERATOR.                                RER                 COMCTOK 
  
                               10533              BX5    X3                                                      COMCTOK  1284
          1037  63740                             SB7    X4                                                      COMCTOK  1285
                                                                                                                 COMCTOK  1286
                     54141                        =A1    A4+TC.SOB-TC.SOL                                        COMCTOK  1287
                          5021000003              =A2    A1+TC.TBB-TC.SOB                                        COMCTOK  1288
          1040  5042777775                        =A4    A2+TC.SOC-TC.TBB                                        COMCTOK  1289
                          63610                   SB6    X1                                                      COMCTOK  1290
                               63320              SB3    X2                                                      COMCTOK  1291
          1041  0400001033 +                      EQ     EXIT.                                                   COMCTOK  1292
  
  
  
  
                                        **        SER - SAVE ENTOKENING REGISTERS.                               COMCTOK  1294
                                        *                                                                        COMCTOK  1295
                                        *                                                                        COMCTOK  1296
                                        *         ENTRY  ENTOKENING REGISTERS INTACT.                            COMCTOK  1297
                                        *                                                                        COMCTOK  1298
                                        *         EXIT   (B2) = FWA OF *TOKCOM*.                                 COMCTOK  1299
                                        *                ENTOKENING REGISTERS STILL INTACT AND SAVED             COMCTOK  1300
                                        *                IN *TOKCOM*.                                            COMCTOK  1301
                                        *                                                                        COMCTOK  1302
                                        *         USES   X - 1,7                                                 COMCTOK  1303
                                        *                A - 1,7                                                 COMCTOK  1304
                                        *                B - 2                                                   COMCTOK  1305
                                        *                                                                        COMCTOK  1306
                                        *         CALLS  NONE                                                    COMCTOK  1307
                                                                                                                 COMCTOK  1308
                                                                                                                 COMCTOK  1309
          1042  0400401042 +             SER      SUBR               ** ENTRY/EXIT **                            COMCTOK  1310
          1043  5110000662 +                      SA1    FW=TCOM                                                 COMCTOK  1311
                          63210                   SB2    X1          (B2) = FWA OF *TOKCOM*                      COMCTOK  1312
                               75700              SX7    A0-B0                                                   COMCTOK  1313
          1044  5172000004                        =A7    B2+TC.P                                                 COMCTOK  1314
                          75750                   SX7    A5-B0                                                   COMCTOK  1315
                               54771              =A7    A7+TC.SOA-TC.P                                          COMCTOK  1316
          1045  10755                             BX7    X5                                                      COMCTOK  1317
                     54771                        =A7    A7+TC.SOX-TC.SOA                                        COMCTOK  1318
                          77770                   SX7    B7-B0                                                   COMCTOK  1319
                               54771              =A7    A7+TC.SOL-TC.SOX                                        COMCTOK  1320
          1046  77760                             SX7    B6-B0                                                   COMCTOK  1321
                     54771                        =A7    A7+TC.SOB-TC.SOL                                        COMCTOK  1322
                          10744                   BX7    X4                                                      COMCTOK  1323
                               54771              =A7    A7+TC.SOC-TC.SOB                                        COMCTOK  1324
          1047  75760                             SX7    A6-B0                                                   COMCTOK  1325
                     54771                        =A7    A7+TC.TBA-TC.SOC                                        COMCTOK  1326
                          77730                   SX7    B3-B0                                                   COMCTOK  1327
                               54771              =A7    A7+TC.TBB-TC.TBA                                        COMCTOK  1328
          1050  0400001042 +                      EQ     EXIT.                                                   COMCTOK  1329
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   128
        COMCTOK 2.0 - TOKEN GENERATOR.                                TOK                 COMCTOK 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMCTOK  1331
                                                  QUAL   *                                                       COMCTOK  1332
                                 664 +   TOK      =      /COMCTOK/TOK                                            COMCTOK  1333
                                1024 +   CCD      =      /COMCTOK/CCD                                            COMCTOK  1334
                                1033 +   RER      =      /COMCTOK/RER                                            COMCTOK  1335
                                1042 +   SER      =      /COMCTOK/SER                                            COMCTOK  1336
                                 663 +   TF=SQZ   =      /COMCTOK/TF=SQZ                                         COMCTOK  1337
                                                                                                                 COMCTOK  1338
                                                  IFNE   TEST,0,1                                                COMCTOK  1339
                                         TF=IDP   =      /COMCTOK/TF=IDP                                         COMCTOK  1340
                                 706 +   TOK=MN   =      /COMCTOK/TOK=MN                                         COMCTOK  1341
                                 752 +   TOK=COS  =      /COMCTOK/TOK=COS                                        COMCTOK  1342
                                 753 +   TOK=CON  =      /COMCTOK/TOK=CON                                        COMCTOK  1343
                                         QUAL$    ENDIF                                                          COMCTOK  1344
  
  
  
  
                                         COMCTOK  ENDX                                                           COMCTOK  1346
  
  
  
  
                                 755 +   TOK=EOL  =      /COMCTOK/TOK=EOL                                        LEX      3489
                                                                                                                 LEX      3490
                                                                                                                 LEX      3491
                                                  ENTRY  TOK=CAL,TOK=COF                                         LEX      3492
                                                  ENTRY  TOK=GN,TOK=GO,TOK=GS                                    LEX      3493
                                                  ENTRY  TOK=IFT                                                 LEX      3494
                                                  ENTRY  TOK=ON                                                  LEX      3495
                                                  ENTRY  TOK=XEQ                                                 LEX      3496
                                                                                                                 LEX      3497
                                                  IFEQ   TEST,ON,2                                               LEX      3498
                                                  ENTRY  TOK=ELS,TOK=ENT                                         LEX      3499
                                                  ENTRY  TF=IDP                                                  LEX      3500
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   129
        THE *TOGEL* PROGRAMS.                                         TOGEL 
  
                                        ***       THE *TOGEL* PROGRAMS.                                          LEX      3502
                                        *                                                                        LEX      3503
                                        *                                                                        LEX      3504
                                        *         THIS SECTION CONTAINS THE *TOGEL* PROGRAMS THAT                LEX      3505
                                        *         DRIVE/DESCRIBE THE GENERATION OF FTN TOKENS.                   LEX      3506
                                        *                                                                        LEX      3507
                                        *         STRICTLY SPEAKING, THIS SECTION IS A DATA STRUCTURE, NOT       LEX      3508
                                        *         A PIECE OF CODE.  HOWEVER, BECAUSE THE RELATIONSHIP BETWEEN    LEX      3509
                                        *         *COMCTOK* AND ITS DRIVING *TOGEL* PROGRAM IS SO SYMBIOTIC,     LEX      3510
                                        *         IT WAS FELT THAT TOKEN GENERATION MIGHT BE MORE EASILY         LEX      3511
                                        *         UNDERSTOOD/MANHANDLED IF THE *TOGEL* PROGRAM WAS IN THE        LEX      3512
                                        *         VICINITY OF *COMCTOK* IN THIS LISTING.                         LEX      3513
                                        *                                                                        LEX      3514
                                        ************************************************************************ LEX      3515
                                                                                                                 LEX      3516
                                                                                                                 LEX      3517
                                                                                                                 LEX      3518
                                        *         PRECEDE START OF *TOGEL* PROGRAM WITH DUMMY INSTRUCTION.       LEX      3519
                                        *         THIS IS TO SUPPLY RESTART ADDRESS IN CASE INITIAL LINE HAD     LEX      3520
                                        *         PERFORMED NO PROCESSING, LEAVING THE PSEUDO P-COUNTER (A0)     LEX      3521
                                        *         AT TOM=BOS.  SINCE RESTART LOOKS AT A0-1 WE WOULD BE IN        LEX      3522
                                        *         TROUBLE.  POSSIBLE STUATION:                                   LEX      3523
                                        *    1                                                                   LEX      3524
                                        *     2STOP                                                              LEX      3525
                                                                                                                 LEX      3526
          1051                           TOM=DUM  BSS    0                                                       LEX      3527
          1051  00000000001051 +                  GOTO   TOM=DUM                                                 LEX      3528
                                                                                                                 LEX      3529
                                         NORMAL   TOGEL                                                          LEX      3530
          1052                           TOM=BOS  BSS    0           ** BEGINNING OF STMT **                     LEX      3531
          1052  00000000000016001014 +            ON EOL,0                                                       LEX      3532
          1053  00000000000017001014 +            ON RESTART,0                                                   LEX      3533
                                                                                                                 LEX      3534
                                                                                                                 LEX      3535
          1054                           TOM=NXT  BSS    0           ** MAIN LOOP NODE **                        LEX      3536
          1054  00001061 +               CONS     IFT (0..9)                                                     LEX      3537
          1055  00000005002310 +                    GROUP (0..9),CONS,SQZ                                        LEX      3538
          1056  00001061 +               HLR        IFT (H)                                                      LEX      3539
          1057  00000000001561 +                      CALT TOK=NOH   IF 'CHARACTER *', NO *HLR*...               LEX      3540
          1060  00000000001330 +                      XEQ HLR          PROCESS *HLR* STRING                      LEX      3541
          1061                           HLR        ENDT                                                         LEX      3542
          1061                           CONS     ENDT                                                           LEX      3543
                                                                                                                 LEX      3544
          1061                           TOM=VAR  BSS    0                                                       LEX      3545
          1061  00001063 +               VAR      IFT (A..Z)                                                     LEX      3546
          1062  00000011002313 +                    GROUP (A..Z0..9),VAR,SQZ                                     LEX      3547
          1063                           VAR      ENDT                                                           LEX      3548
                                                                                                                 LEX      3549
                                         .IP      IFEQ   IP.CSET,IP.C63                                          LEX      3550
                                                  CASEOF (+..;)                                                  LEX      3551
                                         .IP      ELSE                                                           LEX      3552
          1063  00450033001255 +                  CASEOF (+..:)                                                  LEX      3553
                                         .IP      ENDIF                                                          LEX      3554
                                                    TOKEN PL                                        +            LEX      3555
                                                    TOKEN MIN                                       -            LEX      3556
                                                    TOKEN STAR                                      *            LEX      3557
                                                      TOKEN EXP,(STAR,STAR)                           **         LEX      3558
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   130
        THE *TOGEL* PROGRAMS.                                         TOGEL 
  
                                                      TOKEN ILL,(BOS,VAR'CHARACT',VAR'ER',STAR),TOK=CHR          LEX      3559
                                                    TOKEN SLASH                                     /            LEX      3560
                                                      TOKEN CAT,(SLASH,SLASH)                         //         LEX      3561
                                                    TOKEN LP,,TOK=LP                                (            LEX      3562
                                                    TOKEN RP,,TOK=RP                                )            LEX      3563
                                                    TOKEN ILL                                       $            LEX      3564
                                                    TOKEN =,,TOK=EQL                                =            LEX      3565
                                                    TOKEN ILL                                       BLANK        LEX      3566
                                                    TOKEN COMMA,,TOK=CMA                            ,            LEX      3567
                                                    TOKEN PERIOD                                    .            LEX      3568
                                                      TOKEN EQ,(PERIOD,VAR'EQ',PERIOD)                .EQ.       LEX      3569
                                                      TOKEN NE,(PERIOD,VAR'NE',PERIOD)                .NE.       LEX      3570
                                                      TOKEN GE,(PERIOD,VAR'GE',PERIOD)                .GE.       LEX      3571
                                                      TOKEN LT,(PERIOD,VAR'LT',PERIOD)                .LT.       LEX      3572
                                                      TOKEN GT,(PERIOD,VAR'GT',PERIOD)                .GT.       LEX      3573
                                                      TOKEN LE,(PERIOD,VAR'LE',PERIOD)                .LE.       LEX      3574
                                                      TOKEN OR,(PERIOD,VAR'OR',PERIOD)                .OR.       LEX      3575
                                                      TOKEN AND,(PERIOD,VAR'AND',PERIOD)              .AND.      LEX      3576
                                                      TOKEN XOR,(PERIOD,VAR'XOR',PERIOD)              .XOR.      LEX      3577
                                                      TOKEN NOT,(PERIOD,VAR'NOT',PERIOD)              .NOT.      LEX      3578
                                                      TOKEN TRUE,(PERIOD,VAR'TRUE',PERIOD)            .TRUE.     LEX      3579
                                                      TOKEN FALSE,(PERIOD,VAR'FALSE',PERIOD)          .FALSE.    LEX      3580
                                                      TOKEN EQV,(PERIOD,VAR'EQV',PERIOD)              .EQV.      LEX      3581
                                                      TOKEN NEQV,(PERIOD,VAR'NEQV',PERIOD)            .NEQV.     FC51485    20
                                                    TOKEN   ILL,,TOK=ILL                            #            LEX      3583
                                                    TOKEN   ILL,,TOK=ILL                            [            LEX      3584
                                                    TOKEN   ILL,,TOK=ILL                            ]            LEX      3585
                                         .IP      IFEQ   IP.CSET,IP.C63                                          LEX      3586
                                                    TOKEN   COLON,,TOK=COL                          :            LEX      3587
                                         .IP      ELSE                                                           LEX      3588
                                                    TOKEN   ILL,,TOK=ILL                            %            LEX      3589
                                         .IP      ENDIF                                                          LEX      3590
                                                    TOKEN   DQOT,,TOK=DQT                           "            LEX      3591
                                                      TOKEN ILL,(VAR'L',DQOT),TOK=BOL               L"           LEX      3592
                                                      TOKEN OCT,(VAR'O',DQOT),TOK=BOO               O"           LEX      3593
                                                      TOKEN ILL,(VAR'R',DQOT),TOK=BOR               R"           LEX      3594
                                                      TOKEN HEX,(VAR'Z',DQOT),TOK=BOX               Z"           LEX      3595
                                                  TOKEN  ILL,(VAR'BACKSPA',VAR'CEL',DQOT),TOK=BBL  BACKSPACE L"  FC50763     8
                                                  TOKEN  ILL,(VAR'REWINDL',DQOT),TOK=BRL           REWIND L"     FC50763     9
                                                  TOKEN  ILL,(VAR'BACKSPA',VAR'CER',DQOT),TOK=BBR  BACKSPACE R"  FC50763    10
                                                  TOKEN  ILL,(VAR'REWINDR',DQOT),TOK=BRR           REWIND R"     FC50763    11
                                                  TOKEN  OCT,(VAR'BACKSPA',VAR'CEO',DQOT),TOK=BBO  BACKSPACE O"  FC50763    12
                                                  TOKEN  OCT,(VAR'REWINDO',DQOT),TOK=BRO           REWIND O"     FC50763    13
                                                  TOKEN  HEX,(VAR'BACKSPA',VAR'CEZ',DQOT),TOK=BBZ  BACKSPACE Z"  FC50763    14
                                                  TOKEN  HEX,(VAR'REWINDZ',DQOT),TOK=BRZ           REWIND Z"     FC50763    15
                                                    TOKEN   ILL,,TOK=ILL                            _            LEX      3596
                                                    TOKEN   ILL,,TOK=ILL                            !            LEX      3597
                                                    TOKEN   ILL,,TOK=ILL                            &            LEX      3598
                                                    TOKEN   SQOT,,TOK=SQT                           '            LEX      3599
                                                    TOKEN   ILL,,TOK=ILL                            ?            LEX      3600
                                                    TOKEN   ILL,,TOK=ILL                            <            LEX      3601
                                                    TOKEN   ILL,,TOK=ILL                            >            LEX      3602
                                                    TOKEN   ILL,,TOK=ILL                            @            LEX      3603
                                                    TOKEN   ILL,,TOK=ILL                            \            LEX      3604
                                                    TOKEN   ILL,,TOK=ILL                            ^            LEX      3605
                                                    TOKEN   ILL,,TOK=ILL                                         LEX      3606
                                                  IFNE   IP.CSET,IP.C63,1                                        LEX      3607
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   131
        THE *TOGEL* PROGRAMS.                                         TOGEL 
  
                                                    TOKEN   COLON,,TOK=COL                          :            LEX      3608
                                                  ELSC                                                           LEX      3609
                                                    TOKEN   ILL,,TOK=ILL                                         FC50267     5
                                                  ENDC                                                           LEX      3611
                                                                                                                 LEX      3612
          1064  00000000001054 +                  GOTO TOM=NXT                                                   LEX      3613
  
  
  
  
                                        **        TOM=DQT - HERE IF " STRING ENCOUNTERED.                        LEX      3615
                                                                                                                 LEX      3616
                                                                                                                 LEX      3617
          1065                           TOM=DQT  BSS    0           ** ENTRY **                                 LEX      3618
          1065  00000000001312 +                  XEQ    DQT         PROCESS DOUBLE QUOTE STRING                 LEX      3619
          1066  00000000001054 +                  GOTO TOM=NXT                                                   LEX      3620
  
  
  
  
                                        **        TOM=HEX - HERE IF X" ENCOUNTERED.                              LEX      3622
                                                                                                                 LEX      3623
                                                                                                                 LEX      3624
          1067                           TOM=HEX  BSS    0           ** ENTRY **                                 LEX      3625
          1067  00000007002314 +                  GROUP (-"),HEX,SQZ                                             LEX      3626
          1070  00000000001533 +                  CALT TOK=EOO       PROCESS END OF OCTAL/HEX CONSTANT           LEX      3627
          1071  00000000001054 +                  GOTO TOM=NXT       CONTINUE...                                 LEX      3628
  
  
  
  
                                        **        TOM=OCT - HERE IF O" ENCOUNTERED.                              LEX      3630
                                                                                                                 LEX      3631
                                                                                                                 LEX      3632
          1072                           TOM=OCT  BSS    0           ** ENTRY **                                 LEX      3633
          1072  00000006002314 +                  GROUP (-"),OCT,SQZ                                             LEX      3634
          1073  00000000001533 +                  CALT TOK=EOO       PROCESS END OF OCTAL/HEX CONSTANT           LEX      3635
          1074  00000000001054 +                  GOTO TOM=NXT       CONTINUE...                                 LEX      3636
  
  
  
  
                                        **        TOM=SQT - HERE IF ' STRING ENCOUNTERED.                        LEX      3638
                                                                                                                 LEX      3639
                                                                                                                 LEX      3640
          1075                           TOM=SQT  BSS    0           ** ENTRY **                                 LEX      3641
          1075  00000000001343 +                  XEQ    SQT         PROCESS SINGLE QUOTE STRING                 LEX      3642
          1076  00000000001054 +                  GOTO   TOM=NXT                                                 LEX      3643
                                                                                                                 LEX      3644
          1077                           NORMAL   TOGEL                                                          LEX      3645
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   132
        THE *TOGEL* PROGRAMS.                                         PROCS 
  
                                         PROCS    TOGEL                                                          LEX      3647
  
  
  
  
                                        **        DQT - PROCESS QUOTE DELIMITED STRING.                          LEX      3649
                                        *                                                                        LEX      3650
                                        *                                                                        LEX      3651
                                        *         *DQT* PROCESSES A QUOTE DELIMITED STRING OF THE FORM --        LEX      3652
                                        *                                                                        LEX      3653
                                        *                "SSSS"  OR  "SSS""SSS"                                  LEX      3654
                                        *                                                                        LEX      3655
                                        *         WHERE  SSSS = THE CHARACTER STRING.                            LEX      3656
                                        *                "    = THE STRING DELIMITER.                            LEX      3657
                                        *                ""   = IS THE SPECIAL *EMBEDDED "* SYNTAX,              LEX      3658
                                        *                       (I.E. WHERE 2 QUOTES ARE TREATED AS 1).          LEX      3659
                                        *                                                                        LEX      3660
                                        *         ENTRY  (X4) = THE LEADING DELIMITING ".                        LEX      3661
                                        *                ENTOKENING REGISTERS INTACT.                            LEX      3662
                                        *                                                                        LEX      3663
                                        *         EXIT   (X4) = 1ST NON-BLANK (55B) CHARACTER FOLLOWING          LEX      3664
                                        *                       THE TERMINATING ".                               LEX      3665
                                        *                                                                        LEX      3666
                                        *         CALTS  TOK=BOQ,TOK=EOQ,TOK=ITQ,TOK=QOQ                         LEX      3667
                                        *                                                                        LEX      3668
                                        *         XEQS   NONE                                                    LEX      3669
                                                                                                                 LEX      3670
                                                                                                                 LEX      3671
          1312  00000000401312 +         DQT      PROC               ** ENTRY/EXIT **                            LEX      3672
          1313  00001576 +                        ON EOL,TOK=QOL                                                 LEX      3673
          1314  00001601 +                        ON RESTART,TOK=REQ                                             LEX      3674
          1315  00000000001463 +                  CALT TOK=BOQ      PROCESS BEGINNING OF QUOTE STRING            LEX      3675
          1316  00000000002314 +         TOM=QOQ  GROUP (-"),BOS,NSQZ                                            LEX      3676
          1317  00000000001553 +                  CALT TOK=ITQ      IGNORE TERMINATING QUOTE                     LEX      3677
          1320  00001322 +                        IFT (")                                                        LEX      3678
          1321  00000000001600 +                    CALT TOK=QOQ    PROCESS 2 QUOTES AS 1 QUOTE                  LEX      3679
                                        *           ** RETURNS TO TOM=QOQ **                                     LEX      3680
          1322                                    ENDT                                                           LEX      3681
          1322  00000000001523 +                  CALT TOK=EOQ      PROCESS END OF QUOTE STRING                  LEX      3682
          1323  00000000000016001014 +            ON EOL,0          RESTORE NORMAL EOL STATUS                    LEX      3683
          1324  00000000000017001014 +            ON RESTART,0      RESTORE NORMAL RESTART STATUS                LEX      3684
          1325  00001327 +                        IFT (/55)                                                      LEX      3685
          1326  00000000002317 +                    GROUP (),BOS,SQZ                                             LEX      3686
          1327                                    ENDT                                                           LEX      3687
          1327  00000000001312 +                  GOTO EXIT.                                                     LEX      3688
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   133
        THE *TOGEL* PROGRAMS.                                         HLR 
  
                                        **        HLR - PROCESS *HLR* STRING.                                    LEX      3690
                                        *                                                                        LEX      3691
                                        *                                                                        LEX      3692
                                        *         *HLR* PROCESS AN *HLR* CHARACTER STRING OF THE FORM --         LEX      3693
                                        *                                                                        LEX      3694
                                        *                NN H SSSS                                               LEX      3696
                                        *                                                                        LEX      3698
                                        *         WHERE  NN   = PROGRAMMER SPECIFIED COUNT WHICH DETERMINES      LEX      3699
                                        *                       THE NR OF CHARACTERS IN THIS STRING.             LEX      3700
                                        *                SSSS = THE CHARACTER STRING OF LENGTH *NN*.             LEX      3701
                                        *                H    = STRING TYPE HOLLERITH (I.E. LEFT-JUSTIFIED,      LEX      3702
                                        *                       SPACE-FILLED)                                    LEX      3703
                                        *                                                                        LEX      3706
                                        *         ENTRY  (X4) = *H* STRING TYPE CHARACTER                        FC5A239    46
                                        *                ENTOKENING REGISTERS INTACT.                            LEX      3708
                                        *                                                                        LEX      3709
                                        *         EXIT   (X4) = 1ST NON-BLANK (55B) CHARACTER FOLLOWING          LEX      3710
                                        *                       THE -HLR- STRING.                                LEX      3711
                                        *                ENTOKENING REGISTERS INTACT.                            LEX      3712
                                        *                                                                        LEX      3713
                                        *         CALTS  TOK=BOH,TOK=EOH                                         LEX      3714
                                        *                                                                        LEX      3715
                                        *         XEQS   NONE                                                    LEX      3716
                                                                                                                 LEX      3717
                                                                                                                 LEX      3718
          1330  00000000401330 +         HLR      PROC               ** ENTRY/EXIT **                            LEX      3719
          1331  00001544 +                        ON EOL,TOK=HOL                                                 LEX      3720
          1332  00001601 +                        ON RESTART,TOK=REH                                             LEX      3721
          1333  00000000001367 +                  CALT TOK=BOH       PROCESS BEGINNING OF *HLR* STRING           LEX      3722
          1334  00000000002320 +                  GROUP (..),BOS,NSQZ                                            LEX      3723
          1335  00000000001523 +                  CALT TOK=EOH       PROCESS END OF *HLR* STRING                 LEX      3724
          1336  00000000000016001014 +            ON EOL,0           RESTORE NORMAL EOL STATUS                   LEX      3725
          1337  00000000000017001014 +            ON RESTART,0       RESTORE NORMAL RESTART STATUS               LEX      3726
          1340  00001342 +                        IFT (/55)                                                      LEX      3727
          1341  00000000002317 +                    GROUP (),BOS,SQZ                                             LEX      3728
          1342                                    ENDT                                                           LEX      3729
          1342  00000000001330 +                  GOTO EXIT.                                                     LEX      3730
  
  
  
  
                                        **        SQT - PROCESS QUOTE DELIMITED STRING.                          LEX      3732
                                        *                                                                        LEX      3733
                                        *                                                                        LEX      3734
                                        *         *SQT* PROCESSES A QUOTE DELIMITED STRING OF THE FORM --        LEX      3735
                                        *                                                                        LEX      3736
                                        *                'SSSS'  OR  'SSS''SSS'                                  LEX      3737
                                        *                                                                        LEX      3738
                                        *         WHERE  SSSS = THE CHARACTER STRING.                            LEX      3739
                                        *                '    = THE STRING DELIMITER.                            LEX      3740
                                        *                ''   = IS THE SPECIAL *EMBEDDED '* SYNTAX,              LEX      3741
                                        *                       (I.E. WHERE 2 QUOTES ARE TREATED AS 1).          LEX      3742
                                        *                                                                        LEX      3743
                                        *         ENTRY  (X4) = THE LEADING DELIMITING '.                        LEX      3744
                                        *                ENTOKENING REGISTERS INTACT.                            LEX      3745
                                        *                                                                        LEX      3746
                                        *         EXIT   (X4) = 1ST NON-BLANK (55B) CHARACTER FOLLOWING          LEX      3747
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   134
        THE *TOGEL* PROGRAMS.                                         SQT 
  
                                        *                       THE TERMINATING '.                               LEX      3748
                                        *                                                                        LEX      3749
                                        *         CALTS  TOK=BOC,TOK=EOC,TOK=ITQ,TOK=QOC                         LEX      3750
                                        *                                                                        LEX      3751
                                        *         XEQS   NONE                                                    LEX      3752
                                                                                                                 LEX      3753
                                                                                                                 LEX      3754
          1343  00000000401343 +         SQT      PROC               ** ENTRY/EXIT **                            LEX      3755
          1344  00001576 +                        ON EOL,TOK=QOL                                                 LEX      3756
          1345  00001601 +                        ON RESTART,TOK=REQ                                             LEX      3757
          1346  00000000001361 +                  CALT TOK=BOC      PROCESS BEGINNING OF QUOTE STRING            LEX      3758
          1347  00000000002321 +         TOM=QOC  GROUP (-'),BOS,NSQZ                                            LEX      3759
          1350  00000000001553 +                  CALT TOK=ITQ      IGNORE TERMINATING QUOTE                     LEX      3760
          1351  00001353 +                        IFT (')                                                        LEX      3761
          1352  00000000001564 +                    CALT TOK=QOC    PROCESS 2 QUOTES AS 1 QUOTE                  LEX      3762
                                        *           ** RETURNS TO TOM=QOC **                                     LEX      3763
          1353                                    ENDT                                                           LEX      3764
          1353  00000000001513 +                  CALT TOK=EOC      PROCESS END OF QUOTE STRING                  LEX      3765
          1354  00000000000016001014 +            ON EOL,0          RESTORE NORMAL EOL STATUS                    LEX      3766
          1355  00000000000017001014 +            ON RESTART,0      RESTORE NORMAL RESTART STATUS                LEX      3767
          1356  00001360 +                        IFT (/55)                                                      LEX      3768
          1357  00000000002317 +                    GROUP (),BOS,SQZ                                             LEX      3769
          1360                                    ENDT                                                           LEX      3770
          1360  00000000001343 +                  GOTO EXIT.                                                     LEX      3771
  
  
  
  
                                         PROCS    TOGEL                                                          LEX      3773
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   135
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=
  
                                        ***       TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                 LEX      3775
                                        *                                                                        LEX      3776
                                        *                                                                        LEX      3777
                                        *         THE FOLLOWING SECTION CONTAINS THE FTN USER OWNCODE PROCESSORS LEX      3778
                                        *         FOR *COMCTOK*.  THESE OWNCODES/PROCESSORS ARE INVOKED AT       LEX      3779
                                        *         VARIOUS TIMES DURING TOKEN GENERATION WHEN SOMETHING SPECIAL   LEX      3780
                                        *         OR UNUSUAL (SOMETIMES I THINK EVERYTHING IN SCANNERS IS        LEX      3781
                                        *         SPECIAL OR UNUSUAL) THAT *COMCTOK* CANNOT HANDLE ITSELF.       LEX      3782
                                        *                                                                        LEX      3783
                                        *         THEREFORE, THE ONLY WAY TO GET AN OVERVIEW OF THESE OWNCODES   LEX      3784
                                        *         IS TO LOOK AT THE *TOGEL* PROGRAM THAT IS INVOKING THEM.       LEX      3785
                                        *                                                                        LEX      3786
                                        *         *COMCTOK* SHOULD BE THE **ONLY** ONE WHO INVOKES THESE         LEX      3787
                                        *         PROCESSORS.  ANY OTHER EXECUTIVES ARE **UNAUTHORIZED** AND     LEX      3788
                                        *         **ILLEGAL**.  THIS IS TO KEEP THIS PROCESSING AS CLEAR AND     LEX      3789
                                        *         STRUCTURED AS POSSIBLE.  YOU CAN HELP.                         LEX      3790
                                        *                                                                        LEX      3791
                                        ************************************************************************ LEX      3792
  
  
  
  
                                        **        TOK=BOC - BEGINNING OF ' (TYPE *CHARACTER*) STRING.            LEX      3794
                                        *                                                                        LEX      3795
                                        *         HERE IF A ' IS ENCOUNTERED DURING TOKEN GENERATION.  THIS      LEX      3796
                                        *         MARKS THE BEGINNING OF A ' DELIMITED *CHARACTER* STRING.       LEX      3797
                                        *         NEED TO PREPARE FOR GENERATION OF *O.CHAR* TOKEN --            LEX      3798
                                        *                                                                        LEX      3799
                                        *           1. GENERATE A PREMATURE, INCOMPLETE *O.CHAR* TOKEN TO        LEX      3800
                                        *              *T.TB*, AND SAVE ITS ADDRESS IN (CH=TAD).  WHEN *TOK*     LEX      3801
                                        *              FINISHES *GROUP*ING THIS '' STRING, *TOK=EOC* (END        LEX      3802
                                        *              OF CHARACTER STRING) WILL GO BACK AND FILL IN THE         LEX      3803
                                        *              MISSING INFORMATION (E.G. STRING LEN) INTO THE INCOMPLETE LEX      3804
                                        *              *O.CHAR* TOKEN AT (CH=TAD).                               LEX      3805
                                        *                                                                        LEX      3806
                                        *           2. SAVE THE CHARACTER STRING TYPE (I.E. '') IN (CH=TYPE).    LEX      3807
                                        *                                                                        LEX      3808
                                        *           3. SET *LEXFLG/QAC* TO INDICATE THAT A QUOTE STRING IS       LEX      3809
                                        *              ACTIVE.  SEE *LEXFLG/QAC* FOR MORE INFORMATION.           LEX      3810
                                        *                                                                        LEX      3811
                                        *           4. RETURN TO *TOK=MN* (TOKEN GENERATOR MAIN LOOP NODE)       LEX      3812
                                        *              TO GROUP THIS '' STRING.  NOTE THAT THE REMAINDER OF      LEX      3813
                                        *              *T.TB* IMMEDIATELY FOLLOWING THE INCOMPLETE/PREMATURE     LEX      3814
                                        *              *O.CHAR* TOKEN IS USED AS A SCRATCH AREA FOR GROUPING/    LEX      3815
                                        *              ASSEMBLING THIS CHARACTER STRING.                         LEX      3816
                                                                                                                 LEX      3817
                                                                                                                 LEX      3818
          1361                           TOK=BOC  BSS    0           ** ENTRY **                                 LEX      3819
          1361  7160000004                        SX6    O.CHAR                                                  LEX      3820
                          74761                   SX7    A6+B1       (X7) = ADDR IN *T.TB* OF *O.CHAR* TOKEN     LEX      3821
                               54661              SA6    A6+B1       MARK *O.CHAR* TOKEN                         LEX      3822
          1362  5170000002 +                      SA7    CH=TAD                                                  LEX      3823
                          7170000005              SX7    CT.SQT                                                  LEX      3824
          1363  5170000003 +                      SA7    CH=TYPE     SET TO *'' STRING*                          LEX      3825
                          43473                   MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      3826
                               67501              SB5    -B1         (B5) = -(CHAR COUNT+1)                      LEX      3827
          1364  7170000000                        SX7    0                                                       LEX      3828
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   136
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOC 
  
                          5170000663 +            SA7    TF=SQZ      SET TO *NO BLANK SQZ*                       LEX      3829
          1365  5110000004 +                      SA1    LEXFLG                                                  LEX      3830
                          43201                   MX2    1                                                       LEX      3831
                               20260              LX2    LF.TDEP-59                                              FC5A110    32
          1366  15712                             BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    33
                     54710                        SA7    A1                                                      LEX      3834
                          0400000706 +            EQ     TOK=MN                                                  LEX      3835
  
  
  
  
                                        **        TOK=BOH - BEGINNING OF HOLLERITH STRING.                       LEX      3837
                                        *                                                                        LEX      3838
                                        *         HERE WHEN *O.CONS* TOKEN IS FOLLOWED BY -H-                    FC5A239    47
                                        *         NEED TO PREPARE FOR GENERATION OF *O.HOLL* TOKEN --            LEX      3840
                                        *                                                                        LEX      3841
                                        *           1. SAVE HOLLERITH STRING TYPE (-H-) IN (CH=TYPE).            FC5A239    48
                                        *                                                                        LEX      3844
                                        *           2. CONVERT PRECEDING *O.CONS* TOKEN WHICH SPECIFIES          LEX      3845
                                        *              THE CHARACTER COUNT TO BINARY SO THAT *TOK* CAN KNOW      LEX      3846
                                        *              HOW MANY CHARACTERS ARE IN THIS STRING.                   LEX      3847
                                        *                                                                        LEX      3848
                                        *           3. GENERATE A PREMATURE, INCOMPLETE *O.HOLL* TOKEN TO        LEX      3849
                                        *              *T.TB*, AND SAVE ITS ADDRESS IN (CH=TAD).  WHEN *TOK*     LEX      3850
                                        *              FINISHES *GROUP*ING THIS HOLLERITH STRING, *TOK=EOH*      LEX      3851
                                        *              (END OF HOLLERITH) WILL GO BACK AND FILL IN THE           LEX      3852
                                        *              MISSING INFO INTO THE INCOMPLETE *O.HOLL* TOKEN           LEX      3853
                                        *              AT (CH=TAD).                                              LEX      3854
                                        *                                                                        LEX      3855
                                        *           4. RETURN TO *TOK=MN* TO GROUP THIS HOLLERITH STRING.        LEX      3856
                                        *              NOTE THAT REMAINDER OF TOKEN BUFFER FOLLOWING INCOMPLETE  LEX      3857
                                        *              *O.HOLL* TOKEN IS USED AS A SCRATCH AREA FOR ASSEMBLING/  LEX      3858
                                        *              GROUPING THIS HOLLERITH STRING.                           LEX      3859
                                                                                                                 LEX      3860
                                                                                                                 LEX      3861
          1367                           TOK=BOH  BSS    0           ** ENTRY **                                 LEX      3862
          1367  0100001042 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   LEX      3863
          1370  7170000001                        SX7    CT.H                                                    LEX      3864
                          5170000003 +            SA7    CH=TYPE                                                 LEX      3865
          1371  43152                             MX1    TB.TOCL                                                 LEX      3866
                     54560                        SA5    A6          (X5) = PRECEDING *O.CONS* TOKEN             LEX      3867
                          66710                   SB7    B1          SET TO *DECIMAL CONVERSION*                 LEX      3868
                               11515              BX5    X1*X5       (X5) = NR TO CONVERT, -L- FMT               LEX      3869
          1372  0100000000 X                      CALL   DXB         CONVERT DECIMAL DPC TO BINARY               LEX      3870
                                                  IFEQ   TEST,ON,1                                               LEX      3871
                                                  NZ     X4,"BLOWUP" IF ERROR DURING CONVERSION                  LEX      3872
          1373  63560                             SB5    X6          (B5) = CHARACTER COUNT                      LEX      3873
                     76210                        =X2    O.HOLL                                                  LEX      3874
                          20633                   LX6    TB.CLCNP-0                                              LEX      3875
                               12662              BX6    X6+X2       MERGE *CLCN* AND *TOT*                      LEX      3876
          1374  74760                             SX7    A6                                                      LEX      3877
                     54660                        SA6    A6          OVERWRITE *O.CONS* TOKEN                    LEX      3878
                          5170000002 +            SA7    CH=TAD      SAVE ADDR OF *O.HOLL* TOKEN                 LEX      3879
          1375  0100001033 +                      RJ     RER         RESTORE ENTOKENING REGISTERS                LEX      3880
          1376  43473                             MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      3881
                     13777                        BX7    X7-X7                                                   LEX      3882
                          5170000663 +            SA7    TF=SQZ      INDICATE *NO BLANK SQUEEZE*                 LEX      3883
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   137
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOH 
  
          1377  5110000004 +                      SA1    LEXFLG                                                  FC5A110    34
                          43201                   MX2    1                                                       FC5A110    35
                               20260              LX2    LF.TDEP-59                                              FC5A110    36
          1400  15712                             BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    37
                     0400000706 +                 EQ     TOK=MN                                                  LEX      3884
  
  
  
  
                                        **        TOK=BBL - BACKSPACE FOLLOWED BY L"STRING"                      FC50763    16
  
  
          1401                           TOK=BBL  BSS    0            ** ENTRY **                                FC50763    18
          1401  0100001042 +                      RJ     SER          SAVE ENTOKENING REGISTERS                  FC50763    19
          1402  5140001406 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    20
                                                                                                                 FC50763    21
          1403  10644                    BBL1     BX6    X4                                                      FC50763    22
                     54660                        SA6    A6           OVERWRITE VAR TOKEN                        FC50763    23
                          54661                   =A6    A6+1         BUMP TOKEN POINTER                         FC50763    24
          1404  0100001033 +                      RJ     RER          RESTORE ENTOKENING REGISTERS               FC50763    25
          1405  0400001442 +                      EQ     TOK=BOL                                                 FC50763    26
                                                                                                                 FC50763    27
          1406  03050000000000000011     BBLA     VFD    54/2LCE,6/O.VAR                                         FC50763    28
  
  
  
  
                                        **        TOK=BRL - REWIND FOLLOWED BY L"STRING"                         FC50763    30
  
  
          1407                           TOK=BRL  BSS    0            ** ENTRY **                                FC50763    32
          1407  0100001042 +                      RJ     SER          SAVE ENTOKENING REGISTERS                  FC50763    33
          1410  5140001411 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763    34
                          0400001403 +            EQ     BBL1                                                    FC50763    35
                                                                                                                 FC50763    36
          1411  22052711160400000011     BRLA     VFD    54/6LREWIND,6/O.VAR                                     FC50763    37
  
  
  
  
                                        **        TOK=BBR - BACKSPACE FOLLOWED BY R"STRING"                      FC50763    39
  
  
          1412                           TOK=BBR  BSS    0            ** ENTRY **                                FC50763    41
          1412  0100001042 +                      RJ     SER          SAVE REGISTERS                             FC50763    42
          1413  5140001406 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    43
                                                                                                                 FC50763    44
          1414  10644                    BBR1     BX6    X4                                                      FC50763    45
                     54660                        SA6    A6           OVERWRITE ILL TOKEN                        FC50763    46
                          54661                   =A6    A6+1         BUMP TOKEN POINTER                         FC50763    47
          1415  0100001033 +                      RJ     RER          RESTORE REGISTERS                          FC50763    48
          1416  0400001445 +                      EQ     TOK=BOR                                                 FC50763    49
  
  
  
  
                                        **        TOK=BRR - REWIND FOLLOWED BY R"STRING"                         FC50763    51
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   138
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.
  
          1417                           TOK=BRR  BSS    0            ** ENTRY **                                FC50763    53
          1417  0100001042 +                      RJ     SER          SAVE REGISTERS                             FC50763    54
          1420  5140001411 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763    55
                          0400001414 +            EQ     BBR1                                                    FC50763    56
  
  
  
  
                                        **        TOK=BBO - BACKSPACE FOLLOWED BY O"STRING"                      FC50763    58
  
  
          1421                           TOK=BBO  BSS    0            ** ENTRY **                                FC50763    60
          1421  0100001042 +                      RJ     SER          SAVE REGISTERS                             FC50763    61
          1422  5140001406 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    62
                                                                                                                 FC50763    63
          1423  10644                    BBO1     BX6    X4                                                      FC50763    64
                     54660                        SA6    A6           STORE REPLACEMENT TOKEN                    FC50763    65
                          54661                   SA6    A6+B1        ADVANCE TOKEN PTR                          FC50763    66
          1424  0100001033 +                      RJ     RER          RESTORE REGISTERS                          FC50763    67
                                                                                                                 FC50763    68
          1425  5100001072 +                      SA0    TOM=OCT      RESET PSEUDO P-REGISTER                    FC50763    69
                          7170000006              SX7    CT.OCT                                                  FC50763    70
          1426  5170000003 +                      SA7    CH=TYPE                                                 FC50763    71
                                                                                                                 FC50763    72
          1427  5016777776               BBO2     SA1    A6-1                                                    FC50763    73
                          0400001456 +            EQ     BOO3         SKIP CHECK FOR VARIABLE TOKEN              FC50763    74
                                                                                                                 FC50763    75
  
  
  
  
                                        *         TOK=BRO - REWIND FOLLOWED BY O"STRING"                         FC50763    77
  
  
          1430                           TOK=BRO  BSS    0            ** ENTRY **                                FC50763    79
          1430  0100001042 +                      RJ     SER                                                     FC50763    80
          1431  5140001411 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763    81
                          0400001423 +            EQ     BBO1                                                    FC50763    82
  
  
  
  
                                        *         TOK=BBZ - BACKSPACE FOLLOWED BY Z"STRING"                      FC50763    84
  
  
          1432                           TOK=BBZ  BSS    0            ** ENTRY **                                FC50763    86
          1432  0100001042 +                      RJ     SER                                                     FC50763    87
          1433  5140001406 +                      SA4    BBLA         GET REPLACEMENT TOKEN                      FC50763    88
                                                                                                                 FC50763    89
          1434  10644                    BBZ1     BX6    X4                                                      FC50763    90
                     54660                        SA6    A6           STORE REPLACEMENT TOKEN                    FC50763    91
                          54661                   SA6    A6+B1        ADVANCE TOKEN PTR                          FC50763    92
          1435  0100001033 +                      RJ     RER                                                     FC50763    93
                                                                                                                 FC50763    94
          1436  5100001067 +                      SA0    TOM=HEX      RESET PSEUDO P-REGISTER                    FC50763    95
                          7170000007              SX7    CT.HEX                                                  FC50763    96
          1437  5170000003 +                      SA7    CH=TYPE                                                 FC50763    97
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   139
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.
  
                          0400001427 +            EQ     BBO2                                                    FC50763    98
                                                                                                                 FC50763    99
  
  
  
                                        *         TOK=BRZ - REWIND FOLLOWED BY Z"STRING"                         FC50763   101
  
  
          1440                           TOK=BRZ  BSS    0            ** ENTRY **                                FC50763   103
          1440  0100001042 +                      RJ     SER                                                     FC50763   104
          1441  5140001411 +                      SA4    BRLA         GET REPLACEMENT TOKEN                      FC50763   105
                          0400001434 +            EQ     BBZ1                                                    FC50763   106
                                        **        TOK=BOL - BEGINNING OF L"STRING"                               LEX      3886
                                                                                                                 LEX      3887
                                                                                                                 LEX      3888
          1442                           TOK=BOL  BSS    0           ** ENTRY **                                 LEX      3889
          1442  5100001065 +                      SA0    TOM=DQT                                                 LEX      3890
                          7170000002              SX7    CT.L                                                    LEX      3891
          1443  5170000003 +                      SA7    CH=TYPE                                                 LEX      3892
                          55161                   =A1    A6-1                                                    LEX      3893
                               10611              BX6    X1                                                      LEX      3894
          1444  54610                             SA6    A1                                                      LEX      3895
                     0400000706 +                 EQ     TOK=MN                                                  LEX      3896
  
  
  
  
                                        **        TOK=BOR - BEGINNING OF R"STRING"                               LEX      3898
                                                                                                                 LEX      3899
                                                                                                                 LEX      3900
          1445                           TOK=BOR  BSS    0           ** ENTRY **                                 LEX      3901
          1445  5100001065 +                      SA0    TOM=DQT                                                 LEX      3902
                          7170000003              SX7    CT.R                                                    LEX      3903
          1446  5170000003 +                      SA7    CH=TYPE                                                 LEX      3904
                          55161                   =A1    A6-1                                                    LEX      3905
                               10611              BX6    X1                                                      LEX      3906
          1447  54610                             SA6    A1                                                      LEX      3907
                     0400000706 +                 EQ     TOK=MN                                                  LEX      3908
  
  
  
  
                                        **        TOK=BOO - BEGINNING OF OCTAL (O"") OR HEX (X"") CONSTANT.      LEX      3910
                                        *                                                                        LEX      3911
                                        *                                                                        LEX      3912
                                        *         HERE AT THE BEGINNING OF AN OCTAL (O"") OR HEX (X"") CONSTANT. LEX      3913
                                        *         NEED TO --                                                     LEX      3914
                                        *                                                                        LEX      3915
                                        *           1. RESET (A0), THE *COMCTOK* PSEUDO P REGISTER, TO *TOM=OCT* LEX      3916
                                        *              SO THAT THIS OCTAL CONSTANT CAN BE PROPERLY ENTOKENED.    LEX      3917
                                        *                                                                        LEX      3918
                                        *              NOTE THAT IF THIS IS A HEX CONSTANT, THAT *TOK=BOX*       LEX      3919
                                        *              (BEGINNING OF HEX CONSTANT) HAS ALREADY SET (A0) TO       LEX      3920
                                        *              *TOM=HEX*, AND THAT ENTRY IS TO *BOO2* BELOW.             LEX      3921
                                        *                                                                        LEX      3922
                                        *           2. CHECK TO MAKE SURE THAT THE TOKEN PRECEDING THIS O""      LEX      3923
                                        *              OR X"" IS **NOT** A *VAR* TOKEN.  THIS IS NECESSARY       LEX      3924
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   140
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOO 
  
                                        *              BECAUSE *CASEOF* KEYS OFF OF THE TOKEN SEQUENCE --        LEX      3925
                                        *                                                                        LEX      3926
                                        *                  VAR'O'  DQOT    OR    VAR'X'  DQOT                    LEX      3927
                                        *                                                                        LEX      3928
                                        *              IT CAN BE SEEN THAT THE ABOVE SAYS **NOTHING** ABOUT      LEX      3929
                                        *              THE TOKEN THAT **PRECEDES** THESE SEQUENCES, AND THAT     LEX      3930
                                        *              THIS CAN GET US INTO TROUBLE...                           LEX      3931
                                        *                                                                        LEX      3932
                                        *              CONSIDER THE FOLLOWING --                                 LEX      3933
                                        *                                                                        LEX      3934
                                        *                  VAR'CARAMEL'  VAR'O'  DQOT                            LEX      3935
                                        *                                                                        LEX      3936
                                        *              WHICH ERRONEOUSLY LOOKS LIKE THE BEGINNING OF AN OCTAL    LEX      3937
                                        *              CONSTANT.  THIS PROBLEM OCCURS BECAUSE THERE IS NO        LEX      3938
                                        *              WAY VIA THE *TOGEL* LANGUAGE TO SPECIFY *ALL TOKENS       LEX      3939
                                        *              BUT THIS TOKEN*.  I.E. WE WOULD LIKE TO WRITE --          LEX      3940
                                        *                                                                        LEX      3941
                                        *                  CASEOF                                                LEX      3942
                                        *                     .                                                  LEX      3943
                                        *                    TOKEN OCT,(.NOT.VAR,VAR'O',DQOT)                    LEX      3944
                                        *                                                                        LEX      3945
                                        *              BUT BECAUSE WE CANT, WE HAVE TO CHECK FOR THE *.NOT.VAR*  LEX      3946
                                        *              CASE WITH HARD-CODE.                                      LEX      3947
                                        *                                                                        LEX      3948
                                        *              NOTE THAT IF WE DECIDE THAT THIS IS **NOT** AN *OCT/HEX*  LEX      3949
                                        *              THAT WE THEN TRANSFER CONTROL TO *TOK=DQT* (DOUBLE QUOTE) LEX      3950
                                        *              PROCESSING SO THAT THIS " GETS TREATED AS THE BEGINNING   LEX      3951
                                        *              OF A "" (HOLL) STRING.  CLEVER IF I DO SAY SO MYSELF...   LEX      3952
                                        *                                                                        LEX      3953
                                        *           3. BACK UP (A6), THE TOKEN BUFFER POINTER, SO THAT THE       LEX      3954
                                        *              *OCT* OR *HEX* TOKEN(S) TO BE GENERATED WILL OVERWRITE    LEX      3955
                                        *              THE *VAR'O'* OR *VAR'X'* TOKEN.                           LEX      3956
                                        *                                                                        LEX      3957
                                        *           4. SAVE THE FWA OF THIS *OCT/HEX* CONSTANT IN (CH=TAD) SO    LEX      3958
                                        *              THAT *LEX*S MAIN LOOP CAN DETERMINE WHETHER OR NOT TO     LEX      3959
                                        *              ISSUE AN ERROR MSG IF THE TERMINATING " IS MISSING.       LEX      3960
                                        *              SEE *DATA STRUCTURES/CH=TAD* FOR MORE INFORMATION.        LEX      3961
                                                                                                                 LEX      3962
                                                                                                                 LEX      3963
          1450                           TOK=BOO  BSS    0           ** ENTRY **                                 LEX      3964
          1450  5100001072 +                      SA0    TOM=OCT     RESET PSEUDO P REGISTER                     LEX      3965
                          7170000006              SX7    CT.OCT                                                  LEX      3966
          1451  5170000003 +                      SA7    CH=TYPE                                                 LEX      3967
          1452  5016777776               BOO2     SA1    A6-1                                                    LEX      3968
                          7271777766              SX7    X1-O.VAR                                                LEX      3969
          1453  0317001456 +                      NZ     X7,BOO3     IF NOT PRECEDED BY VAR TOKEN                FC50763   107
                          10611                   BX6    X1          SAVE X1                                     FC50763   108
          1454  5110001462 +                      SA1    BOOA        GET VAR'ENDFILE' TOKEN                      FC50763   109
                          13761                   BX7    X6-X1       COMPARE TOKENS                              FC50763   110
          1455  5016777776                        SA1    A6-1        RESTORE X1                                  FC50763   111
                          0317001511 +            NZ     X7,TOK=DQT  IF NOT *OCT/HEX* TOKEN, MUST BE STRING...   FC50763   112
                                                                                                                 FC50763   113
          1456  10611                    BOO3     BX6    X1                                                      FC50763   114
                     74761                        SX7    A6+B1       (X7) = FWA OF TO-BE-GENERATED *OCT/HEX*     LEX      3972
                          5061000000              SA6    A1+                                                     LEX      3973
          1457  5170000002 +                      SA7    CH=TAD                                                  LEX      3974
                          5110000004 +            SA1    LEXFLG                                                  FC5A110    38
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   141
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOO 
  
          1460  43201                             MX2    1                                                       FC5A110    39
                     20260                        LX2    LF.TDEP-59                                              FC5A110    40
                          15712                   BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    41
          1461  0400000753 +                      EQ     TOK=CON     RETURN W/ NO STORE...                       LEX      3975
                                                                                                                 FC50763   115
          1462  05160406111405000011     BOOA     VFD    54/7LENDFILE,6/O.VAR                                    FC50763   116
  
  
  
  
                                        **        TOK=BOQ - HERE TO PROCESS BEGINNING OF " DELIMITED STRING.     LEX      3977
                                        *                                                                        LEX      3978
                                        *           1. GENERATE A PREMATURE, INCOMPLETE *O.HOLL* TOKEN TO        LEX      3979
                                        *              FINISHES *GROUP*ING THIS '' STRING, *TOK=EOC* (END        LEX      3980
                                        *              OF CHARACTER STRING) WILL GO BACK AND FILL IN THE         LEX      3981
                                        *              MISSING INFORMATION (E.G. STRING LEN) INTO THE INCOMPLETE LEX      3982
                                        *              *O.HOLL* TOKEN AT (CH=TAD).                               LEX      3983
                                        *                                                                        LEX      3984
                                        *           2. SAVE THE CHARACTER STRING TYPE (I.E. "") IN (CH=TYPE).    LEX      3985
                                        *                                                                        LEX      3986
                                        *           3. SET *LEXFLG/QAC* TO INDICATE THAT A QUOTE STRING IS       LEX      3987
                                        *              ACTIVE.  SEE *LEXFLG/QAC* FOR MORE INFORMATION.           LEX      3988
                                        *                                                                        LEX      3989
                                        *           4. RETURN TO *TOK=MN* (TOKEN GENERATOR MAIN LOOP NODE)       LEX      3990
                                        *              TO GROUP THIS "" STRING.  NOTE THAT THE REMAINDER OF      LEX      3991
                                        *              *T.TB* IMMEDIATELY FOLLOWING THE INCOMPLETE/PREMATURE     LEX      3992
                                        *              *O.HOLL* TOKEN IS USED AS A SCRATCH AREA FOR GROUPING/    LEX      3993
                                        *              ASSEMBLING THIS CHARACTER STRING.                         LEX      3994
                                                                                                                 LEX      3995
                                                                                                                 LEX      3996
          1463                           TOK=BOQ  BSS    0           ** ENTRY **                                 LEX      3997
          1463  7160000002                        SX6    O.QHOLL                                                 FC5A258    14
                          74761                   SX7    A6+B1       (X7) = ADDR IN *T.TB* OF *O.HOLL* TOKEN     LEX      3999
                               54661              SA6    A6+B1       MARK *O.HOLL* TOKEN                         LEX      4000
          1464  5170000002 +                      SA7    CH=TAD                                                  LEX      4001
                          43473                   MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      4002
                               67501              SB5    -B1         (B5) = -(CHAR COUNT+1)                      LEX      4003
          1465  7170000000                        SX7    0                                                       LEX      4004
                          5170000663 +            SA7    TF=SQZ      SET TO *NO BLANK SQZ*                       LEX      4005
          1466  5110000004 +                      SA1    LEXFLG                                                  LEX      4006
                          43201                   MX2    1                                                       LEX      4007
                               20260              LX2    LF.TDEP-59                                              FC5A110    42
          1467  15712                             BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    43
                     54710                        SA7    A1                                                      LEX      4010
                          0400000706 +            EQ     TOK=MN                                                  LEX      4011
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   142
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=BOX 
  
                                        **        TOK=BOX - BEGINNING OF HEX CONSTANT.                           LEX      4013
                                        *                                                                        LEX      4014
                                        *                                                                        LEX      4015
                                        *         SEE *TOK=BOO* (BEGINNING OF OCTAL CONSTANT) FOR DETAILS.       LEX      4016
                                                                                                                 LEX      4017
                                                                                                                 LEX      4018
          1470                           TOK=BOX  BSS    0           ** ENTRY **                                 LEX      4019
          1470  5100001067 +                      SA0    TOM=HEX     RESET PSEUDO P REGISTER                     LEX      4020
                          7170000007              SX7    CT.HEX                                                  LEX      4021
          1471  5170000003 +                      SA7    CH=TYPE                                                 LEX      4022
                          0400001452 +            EQ     BOO2        CONTINUE WITH HEX/OCTAL CONSTANT...         LEX      4023
  
  
  
  
                                        **        TOK=CHR - HERE IF 'CHARACTER *' ENCOUNTERED.                   LEX      4025
                                        *                                                                        LEX      4026
                                        *                                                                        LEX      4027
                                        *         THE 'CHARACTER *' STATEMENT HAS TO BE SPECIAL-CASED            LEX      4028
                                        *         BECAUSE OF AN AMBIGUITY IN THE FTN LANGUAGE SPECIFICATION.     LEX      4029
                                        *         THEREFORE, WE SET A FLAG *LEXFLG/CHR* TO INDICATE THAT         LEX      4030
                                        *         WE ARE IN A 'CHARACTER *' STATEMENT.                           LEX      4031
                                        *                                                                        LEX      4032
                                        *         SEE DATA STRUCTURES/LEXFLG/CHR AND *TOK=NOH* FOR               LEX      4033
                                        *         DETAILS.                                                       LEX      4034
                                                                                                                 LEX      4035
                                                                                                                 LEX      4036
          1472                           TOK=CHR  BSS    0           ** ENTRY **                                 LEX      4037
          1472  5110000004 +                      SA1    LEXFLG                                                  LEX      4038
                          43201                   CLAS=  X2,LF,(CHR)                                             LEX      4039
          1473  12712                             BX7    X1+X2       SET TO *WE ARE IN 'CHARACTER' STMT*         LEX      4040
                     54710                        SA7    A1                                                      LEX      4041
                          7160000016              SX6    O.STAR                                                  LEX      4042
          1474  5066000001                        SA6    A6+1                                                    LEX      4043
                          0400000753 +            EQ     TOK=CON     CONTINUE W/ NO STORE...                     LEX      4044
  
  
  
  
                                        **        TOK=CMA - HERE IF *,* ENCOUNTERED DURING TOKEN GENERATION.     LEX      4046
                                        *                                                                        LEX      4047
                                        *         IF THIS *,* IS AT PAREN LEVEL ZERO, THEN SET UP *ZLCOMMA*.     LEX      4048
                                                                                                                 LEX      4049
                                                                                                                 LEX      4050
          1475                           TOK=CMA  BSS    0           ** ENTRY **                                 LEX      4051
          1475  5110000031 +                      SA1    TB=PLVL                                                 LEX      4052
                          7076000001              SX7    A6+1        (X7) = ADDR OF ZERO LEVEL COMMA             LEX      4053
          1476  0311000752 +                      NZ     X1,TOK=COS  IF NOT AT PAREN LEVEL ZERO                  LEX      4054
                          5170000000 X            SA7    ZLCOMMA                                                 LEX      4055
          1477  0400000752 +                      EQ     TOK=COS     CONTINUE...                                 LEX      4056
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   143
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=COL 
  
                                        **        TOK=COL - HERE IF *:* ENCOUNTERED.                             LEX      4058
                                        *                                                                        LEX      4059
                                        *           1. IF THIS COLON IS NOT AT PAREN LEVEL 0, THEN SET           LEX      4060
                                        *              *TB.COL* BIT IN APPROPRIATE *O.LP* TOKEN TO INDICATE      LEX      4061
                                        *              THAT THIS PAREN LEVEL CONTAINS AN *O.COLON* TOKEN.        LEX      4062
                                        *                                                                        LEX      4063
                                        *              E.G., CONSIDER --                                         LEX      4064
                                        *                                                                        LEX      4065
                                        *                STIFF = SLEAZY(I)(3:10)                                 LEX      4066
                                        *                                 . .                                    LEX      4067
                                        *                                 . ....... WE ARE HERE                  LEX      4068
                                        *                                 .                                      LEX      4069
                                        *                                 ......... SET *TB.COL* IN THIS         LEX      4070
                                        *                                           *O.LP* TOKEN                 LEX      4071
                                        *                                                                        LEX      4072
                                        *              THIS INFORMATION WILL BE USED AS AN AID TO THE PARSER     LEX      4073
                                        *              IN MAKING THE DISTINCTION BETWEEN *SLEAZY* BEING          LEX      4074
                                        *              A FUNCTION OR SUBSTRING REFERENCE.                        LEX      4075
                                        *                                                                        LEX      4076
                                        *           2. SET UP (ZLCOLON).  SEE *CST* (CLASSIFY STMT) FOR DETAILS. LEX      4077
                                                                                                                 LEX      4078
                                                                                                                 LEX      4079
          1500                           TOK=COL  BSS    0           ** ENTRY **                                 LEX      4080
          1500  5110000026 +                      SA1    TB=LLP      (X1) = ADDR OF LAST (MOST RECENT) LP TOKEN  LEX      4081
                                                                                                                 LEX      4082
          1501  0301001505 +             COL2     ZR     X1,COL3     IF END OF *LLP* CHAIN ENCOUNTERED           LEX      4083
                          53210                   SA2    X1          (A2,X2) = A+C OF LINKED LEFT PAREN          LEX      4084
                               10722              BX7    X2          SAVE (X2)                                   LEX      4085
          1502  20252                             LX2    0-TB.LLPP                                               LEX      4086
                                   0              ERRNZ  18-TB.LLPL                                              LEX      4087
                     73120                        SX1    X2          (X1) = ADDR OF PRIOR LINKED LEFT PAREN      LEX      4088
                          20252                   LX2    0-TB.IOCPP+TB.LLPP-0                                    LEX      4089
                                   0              ERRNZ  18-TB.IOCPL                                             LEX      4090
                               73320              SX3    X2          (X3) = ADDR OF MATCHING RIGHT PAREN,        LEX      4091
                                        *                                   ELSE .ZR. IF NONE                    LEX      4092
          1503  0313001501 +                      NZ     X3,COL2     IF THIS LEFT PAREN HAS A MATCHING RT PAREN  LEX      4093
                          43101                   MX1    1                                                       LEX      4094
                                                  LX1    TB.COLP-59                                              LEX      4095
                               12771              BX7    X7+X1       SET TO *COLON AT THIS PAREN LEVEL*          LEX      4096
          1504  54720                             SA7    A2                                                      LEX      4097
                                                                                                                 LEX      4098
                                        *         SET UP (ZLCOLON), IF APPROPRIATE.                              LEX      4099
                                                                                                                 LEX      4100
          1505  5110000000 X             COL3     SA1    ZLCOLON                                                 LEX      4101
                          5120000031 +            SA2    TB=PLVL                                                 LEX      4102
          1506  0311000752 +                      NZ     X1,TOK=COS  IF HAVE ALREADY SET *ZLCOLON*               LEX      4103
                          7232777776              SX3    X2-1                                                    LEX      4104
          1507  0313000752 +                      NZ     X3,TOK=COS  IF NOT AT PAREN LEVEL 1                     LEX      4105
                          74761                   SX7    A6+B1       (X7) = ADDR OF 1ST LEVEL 1 COLON            LEX      4106
                               54710              SA7    A1                                                      LEX      4107
          1510  0400000752 +                      EQ     TOK=COS     CONTINUE...                                 LEX      4108
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   144
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=DQT 
  
                                        **        TOK=DQT - HERE IF " ENCOUNTERED VIA *CASEOF*.                  LEX      4110
                                        *                                                                        LEX      4111
                                        *         THIS OWNCODE EXISTS SOLEY BECAUSE OF AN UGLY/PROBLEM THAT      LEX      4112
                                        *         ARISES IN USING *TOGEL* AS A HIGHER LEVEL LANGUAGE.  I THINK   LEX      4113
                                        *         THIS MIGHT BEST BE UNDERSTOOD VIA ILLUSTRATION...              LEX      4114
                                        *                                                                        LEX      4115
                                        *         *TOK=DQT* WAS INVOKED VIA THE *TOGEL* --                       LEX      4116
                                        *                                                                        LEX      4117
                                        *                CASEOF (+..:)                                           LEX      4118
                                        *                    .                                                   LEX      4119
                                        *                  TOKEN DQOT,,TOK=DQT                                   LEX      4120
                                        *                    .                                                   LEX      4121
                                        *                ENDC                                                    LEX      4122
                                        *                                                                        LEX      4123
                                        *         WHAT WE WOULD **LIKE** TO HAVE WRITTEN IS --                   LEX      4124
                                        *                                                                        LEX      4125
                                        *                CASEOF (+..:)                                           LEX      4126
                                        *                    .                                                   LEX      4127
                                        *                  TOKEN DQOT,,*TOM=DQT                                  LEX      4128
                                        *                    .                                                   LEX      4129
                                        *                ENDC                                                    LEX      4130
                                        *                                                                        LEX      4131
                                        *         THAT IS, WE WOULD LIKE TO HAVE MERELY TRANSFERRED CONTROL      LEX      4132
                                        *         OF *COMCTOK* TO THE SECTION OF THE *TOGEL* OBJECT MODULE (TOM) LEX      4133
                                        *         THAT IS CONCERNED WITH PROCESSING THE "" DELIMITED STRING.     LEX      4134
                                        *                                                                        LEX      4135
                                        *         WE **CANNOT** HOWEVER DO THIS BECAUSE *COMCTOK* IS AT THE      LEX      4136
                                        *         CURRENT TIME (I.E. AT THE TIME OF THE *CASEOF*) IN *BLANK      LEX      4137
                                        *         SQUEEZE* MODE; AND THIS IMPLIES THAT **BEFORE** THE FIRST      LEX      4138
                                        *         *TOGEL* INSTRUCTION AT *TOM=DQT* IS EXECUTED/INTERPRETED,      LEX      4139
                                        *         THAT BLANKS WILL BE SQUEEZED/STRIPPED.  THIS IS NO GOOD FOR    LEX      4140
                                        *         CHARACTER STRINGS.                                             LEX      4141
                                        *                                                                        LEX      4142
                                        *         THEREFORE, WE USE *TOK=DQT* TO CIRCUMVENT SOME NASTY AND       LEX      4143
                                        *         UNWANTED *COMCTOK* PROCESSING; AND TO GET US STARTED BACK      LEX      4144
                                        *         IN THE *TOGEL* OBJECT MODULE AT *TOM=DQT*.                     LEX      4145
                                                                                                                 LEX      4146
                                                                                                                 LEX      4147
          1511                           TOK=DQT  BSS    0           ** ENTRY **                                 LEX      4148
          1511  7170000004                        SX7    CT.DQT                                                  LEX      4149
                          5170000003 +            SA7    CH=TYPE                                                 LEX      4150
          1512  5100001065 +                      SA0    TOM=DQT     RESET PSEUDO -P- REGISTER                   LEX      4151
                          0400000706 +            EQ     TOK=MN                                                  LEX      4152
  
  
  
  
                                        **        TOK=EOC - END OF ' QUOTE (TYPE *CHARACTER*) STRING.            LEX      4154
                                        *                                                                        LEX      4155
                                        *         HERE WHEN THE TERMINATING QUOTE OF A ' QUOTE DELIMITED         LEX      4156
                                        *         STRING HAS BEEN FOUND/SENSED.  CALL *EOC* (END OF CHARACTER    LEX      4157
                                        *         STRING PROCESSING) TO --                                       LEX      4158
                                        *                                                                        LEX      4159
                                        *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING        LEX      4160
                                        *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                     LEX      4161
                                        *                                                                        LEX      4162
                                        *           2. UPDATE THE INCOMPLETE *O.CHAR* TOKEN BY STORING THE       LEX      4163
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   145
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=EOC 
  
                                        *              NR OF CHARACTERS IN THE STRING INTO IT.                   LEX      4164
                                        *                                                                        LEX      4165
                                        *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*  LEX      4166
                                        *              IMMEDIATELY FOLLOWING THE *O.CHAR* TOKEN INTO *T.CHAR*    LEX      4167
                                        *              VIA *NCM* (ENTER CM INTO TABLE).                          LEX      4168
                                        *                                                                        LEX      4169
                                        *         NOTE THAT UPON ENTRY TO *TOK=EOC* THAT (X4) IS POINTING TO THE LEX      4170
                                        *         1ST CHARACTER IMMEDIATELY FOLLOWING THE ' MARK.  IF YOU ARE    LEX      4171
                                        *         WONDERING WHY IT IS NOT POINTING TO THE ' MARK ITSELF, IT IS   LEX      4172
                                        *         BECAUSE THE *TOK=ITQ* (IGNORE TERMINATING QUOTE) PROCESSING    LEX      4173
                                        *         ALREADY ADVANCED THE CHARACTER POINTER.  SEE PROC *SQT*.       LEX      4174
                                        *                                                                        LEX      4175
                                        *         NOTE THAT WE HAVE TO CONVERT (TC=SOA)/SAVED (A5) FROM          LEX      4176
                                        *         AN ADDR TO AN ORDINAL, AND THEN BACK TO AN ADDR ACROSS         LEX      4177
                                        *         THE *NCM* (ENTER CM) CALL.  THIS IS BECAUSE *NCM* CALLS        LEX      4178
                                        *         THE TABLE MANAGER...AND THIS MEANS THAT (A5), WHICH            LEX      4179
                                        *         POINTS INTO *T.STMT*, MAY NOT BE CORRECT IF THE TABLE          LEX      4180
                                        *         MANAGER MOVES *T.STMT* (DUMB, UGLY BUG).                       LEX      4181
                                        *                                                                        LEX      4182
                                        *                ** WARNING **                                           LEX      4183
                                        *                                                                        LEX      4184
                                        *         THIS CODE WILL **NOT** WORK IF ADDING STRING TO *T.CON* EVER   LEX      4185
                                        *         CAUSES TABLE MANAGER TO MOVE *T.TB*.                           LEX      4186
                                                                                                                 LEX      4187
                                                                                                                 LEX      4188
          1513                           TOK=EOC  BSS    0           ** ENTRY **                                 LEX      4189
          1513  0100001042 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   LEX      4190
          1514  5110000000 X                      SA1    T.STMT                                                  LEX      4191
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED (A5)                           LEX      4192
          1515  37721                             IX7    X2-X1       (X7) = CURRENT *T.STMT* ORD                 LEX      4193
                     54720                        SA7    A2                                                      LEX      4194
                          76750                   SX7    B5                                                      LEX      4195
                               64361              SB3    A6+B1       (B3) = LWA+1 OF '' STRING                   LEX      4196
          1516  5170000000 +                      SA7    CH=CNT      SAVE (B5) = -(CHAR COUNT+1)                 LEX      4197
                          0100001770 +            RJ     EOC         END OF CHARACTER STRING PROCESSING          LEX      4198
          1517  5110000000 X                      SA1    T.STMT                                                  LEX      4199
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED *T.STMT* ORD                   LEX      4200
          1520  36712                             IX7    X1+X2       (X7) = CURRENT *T.STMT* ADDR                LEX      4201
                     54720                        SA7    A2                                                      LEX      4202
                          0100001033 +            RJ     RER         RESTORE ENTOKENING REGISTERS                LEX      4203
          1521  7170000001                        SX7    1                                                       LEX      4204
                          5170000663 +            SA7    TF=SQZ      SET TO *BLANK SQUEEZE, PLEASE*              LEX      4205
          1522  0400000706 +                      EQ     TOK=MN                                                  LEX      4206
  
  
  
  
                                        **        TOK=EOH - END OF *HLR* STRING.                                 LEX      4208
                                        *                                                                        LEX      4209
                                        *         HERE WHEN END OF *HLR* STRING DETECTED.  CALL *EOH* (END       LEX      4210
                                        *         OF HOLLERITH STRING PROCESSING) TO --                          LEX      4211
                                        *                                                                        LEX      4212
                                        *           1. UPDATE INCOMPLETE *O.HOLL* TOKEN TO REFLECT WORD LEN      LEX      4213
                                        *              AND *T.CONS* ORDINAL.                                     LEX      4214
                                        *                                                                        LEX      4215
                                        *           2. FORMAT FINAL/LAST WORD OF STRING.                         LEX      4216
                                        *                                                                        LEX      4217
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   146
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=EOH 
  
                                        *             A. IF -H- TYPE STRING, SPACE-FILL LAST WORD.               LEX      4218
                                        *             B. IF -R- TYPE STRING, RIGHT-JUSTIFY LAST WORD.            LEX      4219
                                        *             C. IF -L- TYPE STRING, DONT NEED TO DO ANYTHING.           LEX      4220
                                        *                                                                        LEX      4221
                                        *           3. ENTER THE STRING WHICH WAS TEMPORARILY STORED INTO *T.TB* LEX      4222
                                        *              IMMEDIATELY FOLLOWING THE INCOMPLETE *O.HOLL* TOKEN INTO  LEX      4223
                                        *              *T.CON* VIA *NCM* (ENTER CM INTO TABLE).                  LEX      4224
                                        *                                                                        LEX      4225
                                        *         NOTE THAT WE HAVE TO CONVERT (TC=SOA)/SAVED (A5) FROM          LEX      4226
                                        *         AN ADDR TO AN ORDINAL, AND THEN BACK TO AN ADDR ACROSS         LEX      4227
                                        *         THE *NCM* (ENTER CM) CALL.  THIS IS BECAUSE *NCM* CALLS        LEX      4228
                                        *         THE TABLE MANAGER...AND THIS MEANS THAT (A5), WHICH            LEX      4229
                                        *         POINTS INTO *T.STMT*, MAY NOT BE CORRECT IF THE TABLE          LEX      4230
                                        *         MANAGER MOVES *T.STMT* (DUMB, UGLY BUG).                       LEX      4231
                                        *                                                                        LEX      4232
                                        *                ** WARNING **                                           LEX      4233
                                        *                                                                        LEX      4234
                                        *         THIS CODE WILL **NOT** WORK IF ADDING STRING TO *T.CON* EVER   LEX      4235
                                        *         CAUSES TABLE MANAGER TO MOVE *T.TB*.                           LEX      4236
                                                                                                                 LEX      4237
                                                                                                                 LEX      4238
          1523                           TOK=EOH  BSS    0           ** ENTRY **                                 LEX      4239
          1523  0100001042 +                      RJ     SER         SAVE ENTOKENING REGISTERS                   LEX      4240
          1524  5110000000 X                      SA1    T.STMT                                                  LEX      4241
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED (A5)                           LEX      4242
          1525  37721                             IX7    X2-X1       (X7) = CURRENT *T.STMT* ORD                 LEX      4243
                     54720                        SA7    A2                                                      LEX      4244
                          76750                   SX7    B5                                                      LEX      4246
                               64361              SB3    A6+B1       (B3) = LWA+1 OF *HLR* STRING                LEX      4247
          1526  5170000000 +                      SA7    CH=CNT      SAVE (B5) = -(CHAR COUNT+1)                 LEX      4248
                          0100002013 +            RJ     EOH         END OF HOLLERITH STRING PROCESSING          LEX      4249
          1527  5110000000 X                      SA1    T.STMT                                                  LEX      4250
                          5120000040 +            SA2    TC=SOA      (X2) = SAVED *T.STMT* ORD                   LEX      4251
          1530  36712                             IX7    X1+X2       (X7) = CURRENT *T.STMT* ADDR                LEX      4252
                     54720                        SA7    A2                                                      LEX      4253
                          0100001033 +            RJ     RER         RESTORE ENTOKENING REGISTERS                LEX      4254
          1531  7170000001                        SX7    1                                                       LEX      4255
                          5170000663 +            SA7    TF=SQZ      SET TO *BLANK SQUEEZE, PLEASE*              LEX      4256
          1532  0400000706 +                      EQ     TOK=MN                                                  LEX      4257
  
  
  
  
                                        **        TOK=EOO - END OF OCTAL/HEX CONSTANT.                           LEX      4259
                                        *                                                                        LEX      4260
                                        *         NEED TO --                                                     LEX      4261
                                        *                                                                        LEX      4262
                                        *           1. CLEAR (CH=TAD) TO INDICATE THAT WE HAVE FOUND THE         LEX      4263
                                        *              TERMINATING " FOR THIS *OCT/HEX* CONSTANT.                LEX      4264
                                        *                                                                        LEX      4265
                                        *              SEE *DATA STRUCTURES/CH=TAD* FOR DETAILS.                 LEX      4266
                                        *                                                                        LEX      4267
                                        *           2. SET (X4) TO .MI. TO EFFECTIVELY IGNORE THE TERMINATING    LEX      4268
                                        *              ".                                                        LEX      4269
                                                                                                                 LEX      4270
                                                                                                                 LEX      4271
          1533                           TOK=EOO  BSS    0           ** ENTRY **                                 LEX      4272
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   147
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=EOO 
  
          1533  13777                             BX7    X7-X7                                                   LEX      4273
                     43473                        MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      4274
                          5170000002 +            SA7    CH=TAD      SET TO *HAVE FOUND END OF STRING*           LEX      4275
          1534  0400000706 +                      EQ     TOK=MN                                                  LEX      4276
  
  
  
  
                                        **        TOK=EOQ - END OF QUOTE STRING.                                 LEX      4278
                                        *                                                                        LEX      4279
                                        *         HERE WHEN THE TERMINATING QUOTE OF A QUOTE DELIMITED           LEX      4280
                                        *         STRING HAS BEEN FOUND/SENSED.  CALL *EOH* (END OF HOLLERITH    LEX      4281
                                        *         STRING PROCESSING) TO --                                       LEX      4282
                                        *                                                                        LEX      4283
                                        *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING        LEX      4284
                                        *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                     LEX      4285
                                        *                                                                        LEX      4286
                                        *           2. UPDATE THE INCOMPLETE *O.HOLL* TOKEN BY STORING THE       LEX      4287
                                        *              STRING LENGTHS (NR OF WORDS OCCUPIED BY THE STRING, AND   LEX      4288
                                        *              NR OF CHARACTERS IN THE STRING) INTO IT.                  LEX      4289
                                        *                                                                        LEX      4290
                                        *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*  LEX      4291
                                        *              IMMEDIATELY FOLLOWING THE *O.HOLL* TOKEN INTO *T.CON*     LEX      4292
                                        *              VIA *NCM* (ENTER CM INTO TABLE).                          LEX      4293
                                        *                                                                        LEX      4294
                                        *         NOTE THAT UPON ENTRY TO *TOK=EOQ* THAT (X4) IS POINTING TO THE LEX      4295
                                        *         1ST CHARACTER IMMEDIATELY FOLLOWING THE " MARK.  IF YOU ARE    LEX      4296
                                        *         WONDERING WHY IT IS NOT POINTING TO THE " MARK ITSELF, IT IS   LEX      4297
                                        *         BECAUSE THE *TOK=ITQ* (IGNORE TERMINATING QUOTE) PROCESSING    LEX      4298
                                        *         ALREADY ADVANCED THE CHARACTER POINTER.  SEE PROC *QOT*.       LEX      4299
                                                                                                                 LEX      4300
                                                                                                                 LEX      4301
                                1523 +   TOK=EOQ  EQU    TOK=EOH                                                 LEX      4302
  
  
  
  
                                        **        TOK=EQL - HERE IF *=* ENCOUNTERED DURING TOKEN GENERATION.     LEX      4304
                                        *                                                                        LEX      4305
                                        *           1. IF THIS *=* WAS AT PAREN LEVEL ZERO, THEN WE NEED TO MAKE LEX      4306
                                        *              A NEW ENTRY IN THE *ZLEQUAL* CHAIN.                       LEX      4307
                                        *                                                                        LEX      4308
                                        *              FOR EXAMPLE, CONSIDER THE FOLLOWING LINE, AND ASSUME THAT LEX      4309
                                        *              *TOK* IS INVOKING *TOK=EQL* FOR THE THIRD (LEFT-TO-RIGHT) LEX      4310
                                        *              ZERO LEVEL *=* --                                         LEX      4311
                                        *                                                                        LEX      4312
                                        *                A(I)  =  B(I)  =  C(I)  =  0                            LEX      4313
                                        *                      &       . &       &                               LEX      4314
                                        *                      .       . .       .                               LEX      4315
                                        *                      ......... .       ...... *TOK* IS HERE            LEX      4316
                                        *                                .                                       LEX      4317
                                        *                                .............. *ZLEQUAL* POINTS HERE    LEX      4318
                                        *                                                                        LEX      4319
                                        *              AFTER *TOK=EQL* --                                        LEX      4320
                                        *                                                                        LEX      4321
                                        *                A(I)  =  B(I)  =  C(I)  =  0                            LEX      4322
                                        *                      &       . &      . &                              LEX      4323
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   148
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=EQL 
  
                                        *                      .       . .      . .                              LEX      4324
                                        *                      ......... ........ ..... *ZLEQUAL* POINTS HERE    LEX      4325
                                        *                                                                        LEX      4326
                                        *           2. IF THIS *O.=* TOKEN IS NOT AT PAREN LEVEL 0, THEN SET     LEX      4327
                                        *              *TB.EQL* BIT IN THE *O.LP* TOKEN THAT DENOTES/BEGINS      LEX      4328
                                        *              THIS PAREN NEST LEVEL TO INDICATE THAT THIS PAREN LEVEL   LEX      4329
                                        *              CONTAINS AN *O.=* TOKEN.                                  LEX      4330
                                        *                                                                        LEX      4331
                                        *              E.G., CONSIDER --                                         LEX      4332
                                        *                                                                        LEX      4333
                                        *                PRINT 100,(A(I),I=1,10)                                 LEX      4334
                                        *                          .      .                                      LEX      4335
                                        *                          .      ....... WE ARE HERE                    LEX      4336
                                        *                          .                                             LEX      4337
                                        *                          .............. SET *TB.EQL* BIT IN THIS       LEX      4338
                                        *                                         *O.LP* TOKEN                   LEX      4339
                                                                                                                 LEX      4340
                                                                                                                 LEX      4341
          1535                           TOK=EQL  BSS    0           ** ENTRY **                                 LEX      4342
          1535  5130000031 +                      SA3    TB=PLVL                                                 LEX      4343
                          5120000000 X            SA2    ZLEQUAL                                                 LEX      4344
          1536  5110000026 +                      SA1    TB=LLP      (X1) = ADDR OF LAST (MOST RECENT) LP TOKEN  LEX      4345
                          0313001540 +            NZ     X3,EQL2     IF NOT AT PAREN LEVEL ZERO                  LEX      4346
          1537  74761                             SX7    A6+B1       (X7) = ADDR OF THIS 0 LVL *=*               LEX      4347
                     20222                        LX2    WA.SYMP-0                                               LEX      4348
                          54720                   SA7    A2                                                      LEX      4349
                               12662              BX6    X6+X2       MERGE *ZLEQUAL* POINTER                     LEX      4350
                                                                                                                 LEX      4351
                                        *         HERE TO SET *TB.EQL* BIT IN *O.LP* TOKEN.                      LEX      4352
                                                                                                                 LEX      4353
          1540  0301000752 +             EQL2     ZR     X1,TOK=COS  IF END OF *LLP* CHAIN ENCOUNTERED           LEX      4354
                          53210                   SA2    X1          (A2,X2) = A+C OF LINKED LEFT PAREN          LEX      4355
                               10722              BX7    X2          SAVE (X2)                                   LEX      4356
          1541  20252                             LX2    0-TB.LLPP                                               LEX      4357
                                   0              ERRNZ  18-TB.LLPL                                              LEX      4358
                     73120                        SX1    X2          (X1) = ADDR OF PRIOR LINKED LEFT PAREN      LEX      4359
                          20252                   LX2    0-TB.IOCPP+TB.LLPP-0                                    LEX      4360
                                   0              ERRNZ  18-TB.IOCPL                                             LEX      4361
                               73320              SX3    X2          (X3) = ADDR OF MATCHING RIGHT PAREN,        LEX      4362
                                        *                                   ELSE .ZR. IF NONE                    LEX      4363
          1542  0313001540 +                      NZ     X3,EQL2     IF THIS LEFT PAREN HAS A MATCHING RT PAREN  LEX      4364
                                                                                                                 LEX      4365
                          43101                   MX1    1                                                       LEX      4366
                               20173              LX1    TB.EQLP-59                                              LEX      4367
          1543  12771                             BX7    X7+X1       SET TO *EQUAL AT THIS PAREN LEVEL*          LEX      4368
                     54720                        SA7    A2                                                      LEX      4369
                          0400000752 +            EQ     TOK=COS     CONTINUE WITH TOKEN GENERATION...           LEX      4370
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   149
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=HOL 
  
                                        **        TOK=HOL - HERE IF EOL ENCOUNTERED DURING *HLR* STRING.         LEX      4372
                                        *                                                                        LEX      4373
                                        *                                                                        LEX      4374
                                                                                                                 LEX      4375
                                                                                                                 LEX      4376
          1544                           TOK=HOL  BSS    0           ** ENTRY **                                 LEX      4377
          1544  0605001547 +                      LE     B5,B0,HOL3  IF *HLR* STRING IS COMPLETE/FINISHED        LEX      4378
                          7160001544 +            SX6    TOK=HOL                                                 LEX      4379
          1545  7175000000                        SX7    B5+                                                     LEX      4380
                          5160000051 +            SA6    TC=EOL      RESET *ON EOL* ADDR TO *TOK=HOL*            LEX      4381
          1546  5170000000 +                      SA7    CH=CNT      SAVE (B5)                                   LEX      4382
                          0400000664 +            EQ     TOK         EXIT...                                     LEX      4383
                                                                                                                 LEX      4384
                                        *         HERE IF *HLR* STRING IS COMPLETE AT EOL.                       LEX      4385
                                        *                                                                        LEX      4386
                                        *           1. NEED TO BACK UP (A6) BECAUSE *TOK=EOL* STORED AN EOS      LEX      4387
                                        *              MARK, AND WE NEED TO IGNORE IT.                           LEX      4388
                                        *                                                                        LEX      4389
                                        *           2. SET UP (X4) WITH A DUMMY BLANK (55B) CHARACTER            LEX      4390
                                        *              SO THAT THE TOGEL PROC *HLR* (PROCESS HLR STRING)         LEX      4391
                                        *              CAN FINISH UP PROCESSING THIS HLR STRING.                 LEX      4392
                                        *                                                                        LEX      4393
                                        *              THIS IS NECESSARY TO **TRICK** *COMCTOK* INTO             LEX      4394
                                        *              THINKING THAT HE HAS A CHARACTER TO PROCESS (WHEN         LEX      4395
                                        *              IN FACT HE DOES NOT) SO THAT ALL THE END-OF-HLR           LEX      4396
                                        *              STRING TYPE PROCESSING SPECIFIED IN PROC *HLR*            LEX      4397
                                        *              CAN HAPPEN.  SEE PROC *HLR*.                              LEX      4398
                                        *                                                                        LEX      4399
                                        *              THE PROBLEM IS THAT *COMCTOK* UNCONDITIONALLY MAKES       LEX      4400
                                        *              SURE THAT WE HAVE A CHARACTER TO PROCESS IN (X4) BY       LEX      4401
                                        *              ADVANCING THE CHARACTER POINTER IF (X4) ARE EMPTY, .MI.   LEX      4402
                                        *              UNDER NORMAL CIRCUMSTANCES, THIS IS THE APPROPRIATE THING LEX      4403
                                        *              TO DO.  BUT UNDER OUR CURRENT HLR STRING AT EOL CIRCUM-   LEX      4404
                                        *              STANCE, THIS CAUSES *TOK* TO EXIT PREMATURELY BECAUSE WE  LEX      4405
                                        *              ARE AT END-OF-LINE (I.E. *TOK*S EXIT CONDITION).          LEX      4406
                                                                                                                 LEX      4407
          1547  55161                    HOL3     SA1    A6-B1                                                   LEX      4408
                     10611                        BX6    X1                                                      LEX      4409
                          5061000000              SA6    A1+                                                     LEX      4410
          1550  7140000055                        SX4    1R                                                      LEX      4411
                          0400000706 +            EQ     TOK=MN      BACK TO OUR TOGEL PROGRAM...                LEX      4412
  
  
  
  
                                        **        TOK= ILL -         ILLEGAL FORTRAN CHARACTER ENCOUNTERED.      LEX      4414
                                        *                                                                        LEX      4415
                                        *         PLACE THE OFFENDING CHAR INTO THE UPPER 6 BITS OF ILL TOKEN    LEX      4416
                                                                                                                 LEX      4417
                                                                                                                 LEX      4418
          1551                           TOK=ILL  BSS    0                                                       LEX      4419
          1551  10144                             BX1    X4                                                      LEX      4420
                     20166                        LX1    -CHAR                                                   LEX      4421
                          12616                   BX6    X1+X6       MERGE OFFENDING CHARACTER                   LEX      4422
          1552  0400000752 +                      EQ     TOK=COS                                                 LEX      4423
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   150
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=ITQ 
  
                                        **        TOK=ITQ - IGNORE TERMINATING QUOTE.                            LEX      4425
                                        *                                                                        LEX      4426
                                        *                                                                        LEX      4427
                                        *         THIS PROCESSOR EXISTS FOR THE SOLE PURPOSE OF IGNORING         LEX      4428
                                        *         THE QUOTE THAT TERMINATES A QUOTE DELIMITED STRING.  THAT IS,  LEX      4429
                                        *         *TOK* IS POINTING TO THE TERMINATING " AND WE NEED TO ADVANCE  LEX      4430
                                        *         THE CHARACTER POINTER BEFORE MOVING ON...                      LEX      4431
                                        *                                                                        LEX      4432
                                        *         SEE ALSO *CH=SB3* IN *DATA STRUCTURES* SECTION.                LEX      4433
                                                                                                                 LEX      4434
                                                                                                                 LEX      4435
          1553                           TOK=ITQ  BSS    0           ** ENTRY **                                 LEX      4436
          1553  43473                             MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      4437
                     76730                        SX7    B3                                                      LEX      4438
                          5170000001 +            SA7    CH=SB3      SAVE (B3)                                   LEX      4439
          1554  5110000004 +                      SA1    LEXFLG                                                  LEX      4440
                          43201                   MX2    1                                                       LEX      4441
                               20260              LX2    LF.TDEP-59                                              FC5A110    44
          1555  12721                             BX7    X2+X1      INDICATE TERMINAL DELIMITER ENCOUNTERED      FC5A110    45
                     54710                        SA7    A1                                                      LEX      4444
                          0400000706 +            EQ     TOK=MN                                                  LEX      4445
  
  
  
  
                                        **        TOK=LP - HERE IF *(* ENCOUNTERED DURING TOKEN GENERATION.      LEX      4447
                                        *                                                                        LEX      4448
                                        *           1. INCREMENT (TB=PLVL), THE PAREN LEVEL INDICATOR.           LEX      4449
                                        *                                                                        LEX      4450
                                        *           2. LINK THIS LEFT PAREN TO ITS PRIOR LEFT PAREN WITHIN       LEX      4451
                                        *              THIS PAREN NEST.                                          LEX      4452
                                        *                                                                        LEX      4453
                                        *              THIS IS ACCOMPLISHED BY MOVING THE CONTENTS OF *TB=LLP*   LEX      4454
                                        *              (WHICH CONTAINS THE ADDR OF THE PRIOR *O.LP* TOKEN)       LEX      4455
                                        *              TO THE *TB.LLP* FIELD OF THE *O.LP* TOKEN THAT WE ARE     LEX      4456
                                        *              ABOUT TO GENERATE, AND BY THEN MOVING THE ADDR OF OUR     LEX      4457
                                        *              ABOUT-TO-BE-GENERATED *O.LP* TOKEN TO (TB=LLP)...THUS     LEX      4458
                                        *              COMPLETING THE CYCLE.                                     LEX      4459
                                        *                                                                        LEX      4460
                                        *              SEE *DATA STRUCTURES/TB=LLP* AND *TOK=RP* FOR MORE        LEX      4461
                                        *              INFORMATION.                                              LEX      4462
                                                                                                                 LEX      4463
                                                                                                                 LEX      4464
          1556                           TOK=LP   BSS    0           ** ENTRY **                                 LEX      4465
          1556  5110000031 +                      SA1    TB=PLVL                                                 LEX      4466
                          73711                   SX7    X1+B1                                                   LEX      4467
                               54710              SA7    A1                                                      LEX      4468
          1557  5110000026 +                      SA1    TB=LLP      (X1) = ADDR IN *T.TB* OF LAST LEFT PAREN,   LEX      4469
                                        *                                   ELSE .ZR. IF NONE                    LEX      4470
                          20122                   LX1    TB.LLPP-0                                               LEX      4471
                               12661              BX6    X6+X1       MERGE *LLP*                                 LEX      4472
          1560  74761                             SX7    A6+B1       (X7) = ADDR IN *T.TB* OF THIS LEFT PAREN    LEX      4473
                     54710                        SA7    A1                                                      LEX      4474
                          0400000752 +            EQ     TOK=COS     CONTINUE...                                 LEX      4475
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   151
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=NOH 
  
                                        **        TOK=NOH - CHECK FOR OCCURENCE OF 'CHARACTER *'.                LEX      4477
                                        *                                                                        LEX      4478
                                        *                                                                        LEX      4479
                                        *         *TOK=NOH* (NO HOLLERITH PROCESSING) EXISTS FOR THE PURPOSE     LEX      4480
                                        *         OF CHECKING TO SEE IF WE ARE IN A 'CHARACTER *' STATEMENT      LEX      4481
                                        *         DURING THE PROCESSING OF -H-, -L-, OR -R- STRINGS.  IF SO,     LEX      4482
                                        *         WE CANNOT HONOR THE *HLR* STRING (I.E. WE TRANSFER             LEX      4483
                                        *         CONTROL OF THE TOKEN GENERATOR TO *TOM=VAR*).                  LEX      4484
                                        *                                                                        LEX      4485
                                        *         SEE DATA STRUCTURES/LEXFLG/CHR FOR DETAILS.                    LEX      4486
                                                                                                                 LEX      4487
                                                                                                                 LEX      4488
          1561                           TOK=NOH  BSS    0           ** ENTRY **                                 LEX      4489
          1561  5110000004 +                      SA1    LEXFLG                                                  LEX      4490
                          20111                   SBIT   X1,LF.CHRP                                              LEX      4491
          1562  0321000706 +                      PL     X1,TOK=MN   IF NOT IN 'CHARACTER *' STMT, OK...         LEX      4492
                          5100001061 +            SA0    TOM=VAR                                                 LEX      4493
          1563  0400000706 +                      EQ     TOK=MN                                                  LEX      4494
  
  
  
  
                                        **        TOK=QOC - HERE IF *''* ENCOUNTERED **WITHIN** A ' STRING.      LEX      4496
                                        *                                                                        LEX      4497
                                        *         THIS IS THE SPECIAL *2 QUOTES ARE 1 QUOTE* WITHIN A QUOTE      LEX      4498
                                        *         STRING PROCESSOR.  WE HANDLE THIS AS FOLLOWS --                LEX      4499
                                        *                                                                        LEX      4500
                                        *           1. WE RESET *TOK*S PSEUDO P REGISTER, (A0), BACK TO THE      LEX      4501
                                        *              *GROUP,...,NSQZ* INSTRUCTION FOR THIS QUOTE STRING,       LEX      4502
                                        *              (I.E. BACK TO *TOM=QOC*).  THIS IS, IN EFFECT, A *GOTO*   LEX      4503
                                        *              BUT WE DO NOT USE A *GOTO* BECAUSE WE HAVE TO RESTART     LEX      4504
                                        *              THE *GROUP,...,NSQZ* INSTRUCTION.  THAT IS, IF WE HAD     LEX      4505
                                        *              USED A *GOTO TOM=QOC*, A **NEW** CHAR TOKEN WOULD BE      LEX      4506
                                        *              GENERATED AND WE WANT TO CONTINUE GENERATING THE SAME     LEX      4507
                                        *              OLD CHAR TOKEN.                                           LEX      4508
                                        *                                                                        LEX      4509
                                        *           2. MERGE THE ' CHARACTER, WHICH HAPPENS TO BE IN (X4), INTO  LEX      4510
                                        *              THE CHAR/QUOTE TOKEN THAT WE ARE GENERATING.  IN THIS     LEX      4511
                                        *              WAY, THE '' SYNTAX BECOMES A SINGLE ' AS PART OF THE      LEX      4512
                                        *              QUOTE STRING.                                             LEX      4513
                                        *                                                                        LEX      4514
                                        *              NOTE THAT IN PERFORMING THIS, THAT A LITTLE CARE MUST BE  LEX      4515
                                        *              TAKEN IF (X6) IS NOW EMPTY (I.E. WAS FULL AFTER THE LAST  LEX      4516
                                        *              *GROUP,...,NSQZ*).                                        LEX      4517
                                        *                                                                        LEX      4518
                                        *           3. RESTART THE *GROUP,...,NSQZ* AT *TOM=QOC*.                LEX      4519
                                                                                                                 LEX      4520
                                                                                                                 LEX      4521
          1564                           TOK=QOC  BSS    0           ** ENTRY **                                 LEX      4522
          1564  5100001350 +                      SA0    TOM=QOC+1   RESET *TOGEL* P REGISTER                    LEX      4523
          1565  5110000004 +             TOK=QOC1 SA1    LEXFLG                                                  FC5A110    46
                          43201                   MX2    1                                                       FC5A110    47
                               20260              LX2    LF.TDEP-59                                              FC5A110    48
          1566  15712                             BX7    -X2*X1      INDICATE TERMINAL DELIMITER NOT ENCOUNTERED FC5A110    49
                     54710                        SA7    A1                                                      FC5A110    50
                          5110000001 +            SA1    CH=SB3      (X1) = SAVED (B3)                           FC5A110    51
          1567  54260                             SA2    A6          (X2) = CURRENT WORD OF '' STRING            LEX      4525
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   152
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=QOC 
  
                     6120000066                   SB2    BN.TOCP+BN.TOCL-CHAR                                    LEX      4526
                               64460              SB4    A6          (B4) = ADDR TO STORE TOKEN W/ INVENTED '    LEX      4527
          1570  63310                             SB3    X1          RESTORE (B3)                                LEX      4528
                     10622                        BX6    X2          RESTORE (X6)                                LEX      4529
                          0532001572 +            NE     B3,B2,QOC2  IF LAST TOKEN NOT FULL                      LEX      4530
          1571  6046000001                        SB4    A6+1                                                    LEX      4531
                          7160000000              SX6    0           CLEAR PACKING REGISTER                      LEX      4532
          1572  22334                    QOC2     LX3    X4,B3                                                   LEX      4533
                     6133777771                   SB3    B3-CHAR                                                 LEX      4534
                               12663              BX6    X6+X3       MERGE INVENTED '                            LEX      4535
          1573  56640                             SA6    B4                                                      LEX      4536
                     55201                        =A2    A0-1        (X2) = *GROUP* INST FOR STRING              LEX      4537
                          43473                   MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      4538
                               67551              SB5    B5-B1       (B5) = -(CHAR COUNT)                        LEX      4539
                                                  LX2    0-TG.TOFUP  INITIALIZE (X2)                             LEX      4540
          1574  0630000764 +                      PL     B3,TOK=GN-1 IF THIS CHAR DID NOT FILL WORD              LEX      4541
                          6130000066              SB3    BN.TOCP+BN.TOCL-CHAR                                    LEX      4542
          1575  0400000764 +                      EQ     TOK=GN-1    RESTART *GROUP*                             LEX      4543
  
  
  
  
                                        **        TOK=QOL - HERE IF EOL ENCOUNTERED DURING QUOTE STRING.         LEX      4545
                                        *                                                                        LEX      4546
                                        *                                                                        LEX      4547
                                        *         NEED TO SAVE THE ""/'' STRING CHARACTER COUNT, I.E. (B5),      LEX      4548
                                        *         IN (CH=CNT).  SEE DATA STRUCTURES/CH=CNT.                      LEX      4549
                                                                                                                 LEX      4550
                                                                                                                 LEX      4551
          1576                           TOK=QOL  BSS    0           ** ENTRY **                                 LEX      4552
          1576  7175000000                        SX7    B5+                                                     LEX      4553
                          5170000000 +            SA7    CH=CNT      SAVE (B5)                                   LEX      4554
          1577  0400000664 +                      EQ     TOK         EXIT...                                     LEX      4555
  
  
  
  
                                        **        TOK=QOQ - HERE IF *""* ENCOUNTERED **WITHIN** A QUOTE STRING.  LEX      4557
                                        *                                                                        LEX      4558
                                        *         THIS IS THE SPECIAL *2 QUOTES ARE 1 QUOTE* WITHIN A QUOTE      LEX      4559
                                        *         STRING PROCESSOR.  WE HANDLE THIS AS FOLLOWS --                LEX      4560
                                        *                                                                        LEX      4561
                                        *           1. WE RESET *TOK*S PSEUDO P REGISTER, (A0), BACK TO THE      LEX      4562
                                        *              *GROUP,...,NSQZ* INSTRUCTION FOR THIS QUOTE STRING,       LEX      4563
                                        *              (I.E. BACK TO *TOM=QOQ*).  THIS IS, IN EFFECT, A *GOTO*   LEX      4564
                                        *              BUT WE DO NOT USE A *GOTO* BECAUSE WE HAVE TO RESTART     LEX      4565
                                        *              THE *GROUP,...,NSQZ* INSTRUCTION.  THAT IS, IF WE HAD     LEX      4566
                                        *              USED A *GOTO TOM=QOQ*, A **NEW** HOLL TOKEN WOULD BE      LEX      4567
                                        *              GENERATED AND WE WANT TO CONTINUE GENERATING THE SAME     LEX      4568
                                        *              OLD HOLL TOKEN.                                           LEX      4569
                                        *                                                                        LEX      4570
                                        *           2. MERGE THE " CHARACTER, WHICH HAPPENS TO BE IN (X4), INTO  LEX      4571
                                        *              THE HOLL/QUOTE TOKEN THAT WE ARE GENERATING.  IN THIS     LEX      4572
                                        *              WAY, THE "" SYNTAX BECOMES A SINGLE " AS PART OF THE      LEX      4573
                                        *              QUOTE STRING.                                             LEX      4574
                                        *                                                                        LEX      4575
                                        *              NOTE THAT IN PERFORMING THIS, THAT A LITTLE CARE MUST BE  LEX      4576
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   153
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=QOQ 
  
                                        *              TAKEN IF (X6) IS NOW EMPTY (I.E. WAS FULL AFTER THE LAST  LEX      4577
                                        *              *GROUP,...,NSQZ*).                                        LEX      4578
                                        *                                                                        LEX      4579
                                        *           3. RESTART THE *GROUP,...,NSQZ* AT *TOM=QOQ*.                LEX      4580
                                                                                                                 LEX      4581
                                                                                                                 LEX      4582
          1600                           TOK=QOQ  BSS    0           ** ENTRY **                                 LEX      4583
          1600  5100001317 +                      SA0    TOM=QOQ+1   RESET *TOGEL* P REGISTER                    LEX      4584
                          0400001565 +            EQ     TOK=QOC1                                                LEX      4585
  
  
  
  
                                        **        TOK=REH - *RESTART* PROCESSING FOR *HLR* STRINGS.              LEX      4587
                                        *                                                                        LEX      4588
                                        *                                                                        LEX      4589
                                        *         NEED TO RESTORE (B5), THE *HLR* STRING CHARACTER COUNTER.      LEX      4590
                                        *                                                                        LEX      4591
                                        *         ENTRY  (B2) = RESTART TOFU ADDRESS.                            LEX      4592
                                        *                (X2) = *TOGEL* INSTRUCTION TO XEQ.                      LEX      4593
                                        *                ENTOKENING REGISTERS SET UP.                            LEX      4594
                                                                                                                 LEX      4595
                                                                                                                 LEX      4596
          1601                           TOK=REH  BSS    0           ** ENTRY **                                 LEX      4597
          1601  5110000021 +                      SA1    SB=LORD     (X1) = *T.STMT* ORD OF THIS CONTINUATN LINE LEX      4598
                          0100002166 +            RJ     XER         EXTRACT AND RESTORE ENTOKENING REGISTERS    LEX      4599
          1602  5110000000 +                      SA1    CH=CNT      (X1) = SAVED CHARACTER COUNTER              LEX      4600
                          55201                   SA2    A0-B1       RESTORE (A2)                                LEX      4601
                               63510              SB5    X1                                                      LEX      4602
                                                  LX2    0-TG.TOFUP  RESTORE (X2)                                LEX      4603
          1603  0222000000                        JP     B2          CONTINUE...                                 LEX      4604
  
  
  
  
                                        **        TOK=REQ - *RESTART* PROCESSING FOR QUOTE STRINGS.              LEX      4606
                                        *                                                                        LEX      4607
                                        *                                                                        LEX      4608
                                                                                                                 LEX      4609
                                                                                                                 LEX      4610
                                1601 +   TOK=REQ  =      TOK=REH                                                 LEX      4611
  
  
  
  
                                        **        TOK=RP - HERE IF *)* ENCOUNTERED DURING TOKEN GENERATION.      LEX      4613
                                        *                                                                        LEX      4614
                                        *         NEED TO --                                                     LEX      4615
                                        *                                                                        LEX      4616
                                        *           1. DECREMENT (TB=PLVL), THE PAREN LEVEL INDICATOR.           LEX      4617
                                        *                                                                        LEX      4618
                                        *           2. IF WE ARE A PAREN LEVEL 0, I.E. (TB=PLVL)=0,              LEX      4619
                                        *              THEN IF THIS IS THE 1ST ZERO LEVELING *)* OF THIS STMT,   LEX      4620
                                        *              INDICATE SO VIA *ZLPAREN*.                                LEX      4621
                                        *                                                                        LEX      4622
                                        *           3. LINK THIS RIGHT PAREN TO ITS MATCHING *O.LP* TOKEN        LEX      4623
                                        *              BY STUFFING THE ADDR OF THIS *O.RP* TOKEN INTO THE        LEX      4624
1       LEX - LEXICAL SCANNER/THE EXECUTIVES.                         COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   154
        TOK= - FTN USER OWNCODE SUPPORT FOR *COMCTOK*.                TOK=RP
  
                                        *              *TB.IOCP* FIELD OF THE APPROPRIATE MATCHING *O.LP*        LEX      4625
                                        *              TOKEN.                                                    LEX      4626
                                                                                                                 LEX      4627
                                                                                                                 LEX      4628
          1604                           TOK=RP   BSS    0           ** ENTRY **                                 LEX      4629
          1604  5110000031 +                      SA1    TB=PLVL                                                 LEX      4630
                          5120000000 X            SA2    ZLPAREN                                                 LEX      4631
          1605  7271777776                        SX7    X1-1                                                    LEX      4632
                          5071000000              SA7    A1+                                                     LEX      4633
          1606  0312001610 +                      NZ     X2,RIP2     IF HAVE ALREADY FOUND 1ST ZERO LVLING *)*   LEX      4634
                          0317001610 +            NZ     X7,RIP2     IF NOT AT PAREN LEVEL 0                     LEX      4635
          1607  74761                             SX7    A6+B1       (X7) = ADDR OF 1ST ZERO LVLING *)*          LEX      4636
                     54720                        SA7    A2                                                      LEX      4637
                                                                                                                 LEX      4638
                                        *         HERE TO LINK THIS RIGHT PAREN TO ITS MATCHING *O.LP* TOKEN.    LEX      4639
                                                                                                                 LEX      4640
          1610  5110000026 +             RIP2     SA1    TB=LLP      (X1) = ADDR IN *T.TB* OF LAST LEFT PAREN,   LEX      4641
                                        *                                   ELSE .ZR. IF NONE                    LEX      4642
                                                                                                                 LEX      4643
          1611  0301001615 +             RIP3     ZR     X1,RIP4     IF END OF *LLP* CHAIN ENCOUNTERED           LEX      4644
                          53210                   SA2    X1          (A2,X2) = A+C OF LINKED LEFT PAREN          LEX      4645
                               10722              BX7    X2          SAVE (X2)                                   LEX      4646
          1612  20252                             LX2    0-TB.LLPP                                               LEX      4647
                                   0              ERRNZ  18-TB.LLPL                                              LEX      4648
                     73120                        SX1    X2          (X1) = ADDR OF PRIOR LINKED LEFT PAREN      LEX      4649
                          20252                   LX2    0-TB.IOCPP+TB.LLPP-0                                    LEX      4650
                                   0              ERRNZ  18-TB.IOCPL                                             LEX      4651
                               73320              SX3    X2          (X3) = ADDR OF MATCHING RIGHT PAREN,        LEX      4652
                                        *                                   ELSE .ZR. IF NONE                    LEX      4653
          1613  0313001611 +                      NZ     X3,RIP3     IF THIS LEFT PAREN ALREADY MATCHED          LEX      4654
                          74261                   SX2    A6+B1       (X2) = ADDR OF MATCHING RP TO BE STORED     LEX      4655
                               20244              LX2    TB.IOCPP-0                                              LEX      4656
          1614  12772                             BX7    X7+X2       MERGE *IOCP*                                LEX      4657
                     54720                        SA7    A2                                                      LEX      4658
                          0311000752 +            NZ     X1,TOK=COS  IF NOT AT PAREN LEVEL ZERO                  LEX      4659
                                                                                                                 LEX      4660
                                        *         HERE WHEN BACK AT PAREN LEVEL 0.  NEED TO CLEAR (TB=LLP)       LEX      4661
                                        *         TO INDICATE THAT WE ARE STARTING A NEW PAREN NEST.             LEX      4662
                                                                                                                 LEX      4663
          1615  7170000000               RIP4     SX7    0                                                       LEX      4664
                          5170000026 +            SA7    TB=LLP                                                  LEX      4665
          1616  0400000752 +                      EQ     TOK=COS     CONTINUE...                                 LEX      4666
  
  
  
  
                                        **        TOK=SQT - HERE IF ' ENCOUNTERED VIA *CASEOF*.                  LEX      4668
                                        *                                                                        LEX      4669
                                        *         SEE *TOK=DQT* FOR IMPORTANT INFORMATION.                       LEX      4670
                                                                                                                 LEX      4671
                                                                                                                 LEX      4672
          1617                           TOK=SQT  BSS    0           ** ENTRY **                                 LEX      4673
          1617  5100001075 +                      SA0    TOM=SQT     RESET PSEUDO -P- REGISTER                   LEX      4674
                          0400000706 +            EQ     TOK=MN                                                  LEX      4675
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   155
                                                                      BLL 
  
                                        **        BLL - BREAK LONG LINE                                          LEX      4679
                                        *                                                                        LEX      4680
                                        *                                                                        LEX      4681
                                        *         WHEN PRINT LINE IS .GT. PAGE WIDTH, BLL PRINTS FIRST PART OF   LEX      4682
                                        *         LINE AND LEFT JUSTIFIES REMAINDER.                             LEX      4683
                                        *                                                                        LEX      4684
                                        *         ENTRY  (A2) = ADDRESS OF LAST WORD OF 1ST PART                 LEX      4685
                                        *                (X2) = LAST WORD OF 1ST PART                            LEX      4686
                                        *                (B2) = FWA OF LINE - 1                                  LEX      4687
                                        *                (B5) = NUMBER OF BITS TO PRINT OF LAST WORD OF 1ST PART LEX      4688
                                        *                (B6) = LWA OF LINE                                      LEX      4689
                                        *                                                                        LEX      4690
                                        *         EXIT   (X1) = FWA OF 2ND PART                                  LEX      4691
                                        *                (X2) = LENGTH OF 2ND PART                               LEX      4692
                                        *                (X6) = 0  IF NO LINE PRINTED                            LEX      4693
                                        *                1ST PART PRINTED                                        LEX      4694
                                        *                                                                        LEX      4695
                                        *         USES   A - 1-4, 6, 7                                           LEX      4696
                                        *                X - 1-4, 6, 7                                           LEX      4697
                                        *                B - 2, 3, 5, 6, 7                                       LEX      4698
                                        *                                                                        LEX      4699
                                        *         PRESERVES  A0, X0, A5, X5, B4                                  LEX      4700
                                        *                                                                        LEX      4701
                                        *         CALLS  LSS, PLINE                                              LEX      4702
                                                                                                                 LEX      4703
                                                                                                                 LEX      4704
          1620  11413                    BLL4     BX4    X1*X3                                                   LEX      4705
                     12642                        BX6    X4+X2                                                   LEX      4706
                          37636                   IX6    X3-X6                                                   LEX      4707
          1621  0316001630 +                      NZ     X6,BLL2     IF NOT ALL BLANKS                           LEX      4708
                          76121                   SX1    B2+B1       FWA OF LINE                                 LEX      4709
                               77262              SX2    B6-B2       LENGTH OF LINE                              LEX      4710
                                                                                                                 LEX      4711
          1622  0400401622 +             BLL      SUBR   =           ENTRY/EXIT...                               LEX      4712
          1623  43100                             MX1    0                                                       LEX      4713
                     0450001625 +                 ZR     B5,BLL1     IF BREAK ON WORD BOUNDARY                   LEX      4714
                               43101              MX1    1                                                       LEX      4715
          1624  67751                             SB7    B5-B1                                                   LEX      4716
                     23171                        AX1    B7                                                      LEX      4717
          1625  11712                    BLL1     BX7    X1*X2       LEFT SIDE                                   LEX      4718
                     65326                        SB3    A2-B6                                                   LEX      4719
                          5130002307 +            SA3    =10H                                                    LEX      4720
          1626  15431                             BX4    -X1*X3      BLANK FILL FOR LEFT                         LEX      4721
                     12747                        BX7    X4+X7                                                   LEX      4722
                          15221                   BX2    -X1*X2      (X2) = RIGHT SIDE OF SPLIT WORD             LEX      4723
          1627  0430001620 +                      ZR     B3,BLL4     IF 2ND PART ONLY ONE PARTIAL WORD           LEX      4724
          1630  0100002143 +             BLL2     RJ     LSS         LEFT SHIFT STRING                           LEX      4725
          1631  5160001642 +                      SA6    BLLA        SAVE FIRST WORD OF SECOND LINE              LEX      4726
                          54720                   SA7    A2          SET LEFT SIDE INTO BUFFER                   LEX      4727
                               54321              SA3    A2+B1                                                   LEX      4728
          1632  10733                             BX7    X3                                                      LEX      4729
                     54761                        SA7    A6+B1       SAVE 2ND WORD  OF 2ND LINE                  LEX      4730
                          65321                   SB3    A2-B1                                                   LEX      4731
                               76630              SX6    B3                                                      LEX      4732
          1633  54671                             SA6    A7+B1       SAVE 2ND LINE FWA                           LEX      4733
                     67331                        SB3    B3-B1                                                   LEX      4734
                          77763                   SX7    B6-B3                                                   LEX      4735
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   156
                                                                      BLL 
  
                               54761              SA7    A6+B1       SAVE 2ND LINE LENGTH                        LEX      4736
          1634  75222                             SX2    A2-B2                                                   LEX      4737
                     76121                        PLINE  B2+B1,X2                                                LEX      4738
          1636  5120001645 +                      SA2    BLLA+3      LENGTH                                      LEX      4739
                          55121                   SA1    A2-B1       FWA                                         LEX      4740
                               53310              SA3    X1                                                      LEX      4741
          1637  5140002323 +                      SA4    =10H   >>>>                                             LEX      4742
                                                                                                                 LEX      4743
                                   0     .FIX     SET                LONG LINE DAP REQUIRES MOD HERE             LEX      4744
                          10644                   BX6    X4                                                      LEX      4745
                               54630              SA6    A3                                                      LEX      4746
          1640  55311                             SA3    A1-B1       2ND WORD                                    LEX      4747
                     55431                        SA4    A3-B1       1ST WORD                                    LEX      4748
                          10644                   BX6    X4                                                      LEX      4749
                               54661              SA6    A6+B1       RESET 1ST WORD                              LEX      4750
          1641  10733                             BX7    X3                                                      LEX      4751
                     54761                        SA7    A6+B1       RESET 2ND WORD                              LEX      4752
                          0400001622 +            EQ     EXIT.                                                   LEX      4753
                                                                                                                 LEX      4754
          1642                     1     BLLA     BSS    1           LINE 2 FIRST WORD                           LEX      4755
          1643                     1              BSS    1           LINE 2 SECOND WORD                          LEX      4756
          1644                     1              BSS    1           LINE 2 FWA                                  LEX      4757
          1645                     1              BSS    1           LINE 2 LENGTH                               LEX      4758
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   157
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB 
  
          1646                           BUB      CTEXT  COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.    COMCBUB     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCBUB     4
                                                  QUAL   COMCBUB                                                 COMCBUB     5
                                 D_D              BASE   D                                                       COMCBUB     6
  
  
  
  
                                        ***       BUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.               COMCBUB     8
                                        *         P CLARE  77/01/20                                              COMCBUB     9
  
  
  
  
                                        ***       BUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.               COMCBUB    11
                                        *                                                                        COMCBUB    12
                                        *                                                                        COMCBUB    13
                                        *         THIS ROUTINE, VIA A LEFT-TO-RIGHT SCAN, BURSTS CONSECUTIVE     COMCBUB    14
                                        *         CHARACTERS FROM A PACKED (10 CHARACTER PER WORD) SOURCE        COMCBUB    15
                                        *         LINE, AND BUILDS THEM INTO A SINGLE *GROUP* OF CHARACTERS.     COMCBUB    16
                                        *         IN ADDITION, *COMCBUB* IGNORES BLANKS.  NOTE THAT THE *GROUP*  COMCBUB    17
                                        *         THAT RESULTS FROM A SINGLE *BUB* CALL MAY BE MORE              COMCBUB    18
                                        *         THAN 1 CM WORD LONG, OR EVEN POSSIBLY OF ZERO LENGTH.          COMCBUB    19
                                        *                                                                        COMCBUB    20
                                        *         *COMCBUB* IS PRIMARILY INTENDED TO BE USED WITH *COMATOK*      COMCBUB    21
                                        *         AND *COMCTOK*, THE GENERAL PURPOSE ENTOKENING DISCIPLINE       COMCBUB    22
                                        *         (MORE LIKE SCHEME).  *COMCTOK* CALLS *BUB* TO PERFORM          COMCBUB    23
                                        *         EACH *TOGEL* /GROUP,...,SQZ/.                                  COMCBUB    24
                                        *                                                                        COMCBUB    25
                                        *         THE FORMAT OF THE RESULTING *GROUP* IS DEFINED AT              COMCBUB    26
                                        *         ASSEMBLY-TIME (DESCRIBED BELOW UNDER *ASSEMBLY-TIME OPTIONS*). COMCBUB    27
                                        *                                                                        COMCBUB    28
                                        *         CHARACTERS IN THE INPUT SOURCE LINE ARE EXTRACTED FROM         COMCBUB    29
                                        *         LEFT-TO-RIGHT AND BUILT INTO THE RESULTANT *GROUP* BASED       COMCBUB    30
                                        *         ON A CHARACTER SHIFT MASK (IN (X1) ON ENTRY) THAT SPECIFIES    COMCBUB    31
                                        *         WHICH CHARACTERS CAN POTENTIALLY OCCUR IN THIS *GROUP*, I.E.   COMCBUB    32
                                        *         THE CHARACTER SHIFT MASK DEFINES WHICH CHARACTERS ARE          COMCBUB    33
                                        *         **ALLOWED** WITHIN THIS *GROUP*.                               COMCBUB    34
                                        *                                                                        COMCBUB    35
                                        *         (X1) HAS A BIT POSITION FOR EACH CHARACTER IN THE HOST         COMCBUB    36
                                        *         CHARACTER SET (CURRENTLY, ONLY DISPLAY CODE IS SUPPORTED.      COMCBUB    37
                                        *         *ASCII* SUPPORT HAS BEEN DESIGNED, BUT NOT IMPLEMENTED...YET). COMCBUB    38
                                        *         *BUB* WILL BURST/BUILD ALL THE CHARACTERS THAT HAVE THEIR      COMCBUB    39
                                        *         RESPECTIVE BIT IN (X1) *ON* INTO A SINGLE *GROUP*.             COMCBUB    40
                                        *                                                                        COMCBUB    41
                                        *         IT WORKS LIKE THIS...  AS EACH CHARACTER IS BURST FROM THE     COMCBUB    42
                                        *         INPUT SOURCE LINE, ITS BINARY VALUE IS USED AS A LEFT-SHIFT    COMCBUB    43
                                        *         FOR (X1).  IF THE SHIFTED (X1) IS .MI., THEN THIS CHARACTER    COMCBUB    44
                                        *         IS BUILT INTO THE *GROUP* DEFINED BY (X1).  AND ALTERNATELY,   COMCBUB    45
                                        *         IF SHIFTED (X1) IS .PL., THEN THIS CHARACTER IS NOT IN THE     COMCBUB    46
                                        *         *GROUP* SO *BUB* RETURNS TO ITS CALLER.                        COMCBUB    47
                                        *                                                                        COMCBUB    48
                                        *         THE PROBLEM WITH MAPPING THE 64D DISPLAY CODE CHARACTERS,      COMCBUB    49
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   158
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
                                        *         ONE PER BIT, INTO A 60D BIT WORD IS THAT WE HAVE 4 CHARACTERS  COMCBUB    50
                                        *         TOO MANY.  BECAUSE THE LEFT-SHIFT HARDWARE SHIFTS MODULO 60D   COMCBUB    51
                                        *         (I.E. LX1 60D = LX1 00, LX1 61D = LX1 01, ETC), THIS MEANS     COMCBUB    52
                                        *         THAT 4 PAIRS OF CHARACTERS MAP INTO EACH OTHERS BITS.          COMCBUB    53
                                        *                                                                        COMCBUB    54
                                        *         I.E. --               : = @     00B = 60D OR 74B               COMCBUB    55
                                        *                               A = \     01B = 61D OR 75B               COMCBUB    56
                                        *                               B = ^     02B = 62D OR 76B               COMCBUB    57
                                        *                               C = ;     03B = 63D OR 77B               COMCBUB    58
                                        *                                                                        COMCBUB    59
                                        *         CONCEPTUALLY, THERE IS NOTHING WRONG WITH THIS AS LONG AS      COMCBUB    60
                                        *         THE PROGRAMMER DOESNT CARE WHETHER THESE CHARACTERS ARE        COMCBUB    61
                                        *         EQUIVALENT.  UNFORTUNATELY, FEW PEOPLE ARE WILLING TO          COMCBUB    62
                                        *         PUT UP WITH AN EQUALITY LIKE -A = @-.                          COMCBUB    63
                                        *                                                                        COMCBUB    64
                                        *         *BUB* CIRCUMVENTS THIS PROBLEM BY USING WHAT IS CALLED A       COMCBUB    65
                                        *         ROTATED CHARACTER SET, *RCS*, REPRESENTATION FOR DISPLAY       COMCBUB    66
                                        *         CODE.  THE TRICK IN THIS *RCS* TECHNIQUE IS TO TREAT THE       COMCBUB    67
                                        *         CHARACTER SET AS CIRCULAR, AND THEN TO ROTATE THE ENTIRE       COMCBUB    68
                                        *         CHARACTER SET SO AS TO FIND 4 PAIRS OF CONSECUTIVE CHARACTERS  COMCBUB    69
                                        *         THAT THE PROGRAMMER DOES NOT MIND BEING EQUIVALENT (FOR THE    COMCBUB    70
                                        *         PURPOSE OF *GROUP*ING).                                        COMCBUB    71
                                        *                                                                        COMCBUB    72
                                        *         FOR EXAMPLE, CONSIDER DISPLAY CODE --                          COMCBUB    73
                                        *                                                                        COMCBUB    74
                                        *                        ;    :                                          COMCBUB    75
                                        *                       77   00                                          COMCBUB    76
                                        *                \  76           01  A                                   COMCBUB    77
                                        *                    .           .                                       COMCBUB    78
                                        *                N  16           13  K                                   COMCBUB    79
                                        *                       15   14                                          COMCBUB    80
                                        *                        M    L                                          COMCBUB    81
                                        *                                                                        COMCBUB    82
                                        *         IT HAPPENS THAT  : = 00B, BUT THIS IS NOT **IMPERATIVE** AND   COMCBUB    83
                                        *         IS IN FACT QUITE INCONVENIENT DUE TO THE PROBLEM DESCRIBED     COMCBUB    84
                                        *         ABOVE.  WE COULD (AND DO) CHOOSE A DIFFERENT CHARACTER TO HAVE COMCBUB    85
                                        *         THE VALUES 00B.  THE ONLY IMPORTANT THING IS THAT WE DO NOT    COMCBUB    86
                                        *         CHANGE THE ORDER OF CHARACTERS ON THE WHEEL.                   COMCBUB    87
                                        *                                                                        COMCBUB    88
                                        *         IF WE CHOOSE A CHARACTER IN THE MIDDLE OF THE ALPHABETICS      COMCBUB    89
                                        *         (-M-, FOR EXAMPLE), THEN ALL OUR TROUBLES VANISH INTO THIN     COMCBUB    90
                                        *         AIR --                                                         COMCBUB    91
                                        *                                                                        COMCBUB    92
                                        *                        L    M                                          COMCBUB    93
                                        *                       77   00                                          COMCBUB    94
                                        *                K  76           01  N                                   COMCBUB    95
                                        *                    .           .                                       COMCBUB    96
                                        *                    .           .                                       COMCBUB    97
                                        *                0  16           13  X                                   COMCBUB    98
                                        *                       15   14                                          COMCBUB    99
                                        *                        Z    Y                                          COMCBUB   100
                                        *                                                                        COMCBUB   101
                                        *         NOW THE OVERLAPPING CHARACTER PAIRS FALL IN THE MIDDLE OF THE  COMCBUB   102
                                        *         ALPHABETICS: I+M, J+N, K+O, L+P TO BE EXACT.                   COMCBUB   103
                                        *                                                                        COMCBUB   104
                                        *         THE CHARACTER THAT IS CHOSEN TO HAVE THE VALUE 00B IS CALLED   COMCBUB   105
                                        *         THE BIAS CHARACTER, *BICH*, AND IS DEFINED VIA AN ASSEMBLY     COMCBUB   106
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   159
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
                                        *         TIME OPTION (DEFAULT *BICH* = 1RM).                            COMCBUB   107
                                        *                                                                        COMCBUB   108
                                        *         USING THE DEFAULT *BICH*, CHARACTERS ARE MAPPED INTO (X1)      COMCBUB   109
                                        *         AS FOLLOWS --                                                  COMCBUB   110
                                        *                                                                        COMCBUB   111
                                        *         BIT   59 58 57 56 55 54 53 ... 47 46 45 44 43 ... 37 36 35 34  COMCBUB   112
                                        *         CHAR  IM JN KO LP  Q  R  S      Y  Z  0  1  2      8  9  +  -  COMCBUB   113
                                        *                                                                        COMCBUB   114
                                        *         BIT   33 32 ... 09 08 07 06 05 04 03 02 01 00                  COMCBUB   115
                                        *         CHAR   *  /      ;  :  A  B  C  D  E  F  G  H                  COMCBUB   116
                                        *                                                                        COMCBUB   117
                                        *         THE FORMULA FOR CONVERTING DISPLAY CODE (DPC) INTO THE ABOVE   COMCBUB   118
                                        *         *RCS* IS --                                                    COMCBUB   119
                                        *                                                                        COMCBUB   120
                                        *                RCS = DPC+10000B-BICH         (DEFAULT *BICH* = 1RM)    COMCBUB   121
                                        *                                                                        COMCBUB   122
                                        *         THE LOWER 6 BITS OF *RCS* SPECIFY THE LEFT SHIFT COUNT, *LS*,  COMCBUB   123
                                        *         FOR (X1).  IT CAN BE SEEN THAT THE CHARACTERS 'M' (LS=0) AND   COMCBUB   124
                                        *         'I' (LS=60D) MAP INTO THE SAME BIT IN (X1).  THIS IS ALSO TRUE COMCBUB   125
                                        *         FOR THE CHARACTER PAIRS 'N' (LS=1) AND 'J' (LS=61D),           COMCBUB   126
                                        *         'O' (LS=2) AND 'K' (LS=62D), AND 'P' (LS=3) AND 'L' (LS=63D).  COMCBUB   127
                                        *                                                                        COMCBUB   128
                                        *                                                                        COMCBUB   129
                                        *         IN THE SECTIONS THAT FOLLOW, *ASSEMBLY-TIME DEPENDENCIES*      COMCBUB   130
                                        *         ARE DEFINED TO BE THE INTERFACES THAT THE *COMCBUB* INSTALLER  COMCBUB   131
                                        *         MUST PROVIDE.  *ASSEMBLY-TIME OPTIONS* ARE THOSE INTERFACES    COMCBUB   132
                                        *         WHICH ARE OPTIONAL, I.E. INTERFACES WHICH HAVE DEFAULT         COMCBUB   133
                                        *         CONDITIONS.                                                    COMCBUB   134
                                        *                                                                        COMCBUB   135
                                        *         ASSEMBLY-TIME DEPENDENCIES --                                  COMCBUB   136
                                        *                                                                        COMCBUB   137
                                        **********************************************************************   COMCBUB   138
                                        *                                                                        COMCBUB   139
                                        *         THE INSTALLER MUST PROVIDE THE FOLLOWING COMDECKS --           COMCBUB   140
                                        *                COMADEF   COMAREG                                       COMCBUB   141
                                        *                                                                        COMCBUB   142
                                        ************************************************************************ COMCBUB   143
                                        *                                                                        COMCBUB   144
                                        *         ASSEMBLY-TIME OPTIONS --                                       COMCBUB   145
                                        *                                                                        COMCBUB   146
                                        ************************************************************************ COMCBUB   147
                                        *                                                                        COMCBUB   148
                                        *         BICH - BIAS CHARACTER.            (DEFAULT =1RM)               COMCBUB   149
                                        *                                                                        COMCBUB   150
                                        *         *BICH* SPECIFIES THE CHARACTER THAT IS TO OCCUPY BIT 59        COMCBUB   151
                                        *         OF (X1), I.E. THE CHARACTER THAT HAS AN *RCS* VALUE OF 00B.    COMCBUB   152
                                        *                                                                        COMCBUB   153
                                        ************************************************************************ COMCBUB   154
                                        *                                                                        COMCBUB   155
                                        *         *BB.XXXL* AND *BB.XXXP* ARE SYMBOLS THAT DEFINE A *COMADEF*    COMCBUB   156
                                        *         STRUCTURE THAT DESCRIBES THE FORM OF THE *GROUP*S THAT *BUB*   COMCBUB   157
                                        *         WILL GENERATE.  FOR EXAMPLE, SUPPOSE THE CALLING PROGRAM IS    COMCBUB   158
                                        *         USING *BUB* TO GENERATE TOKENS FOR INPUT SOURCE LINE           COMCBUB   159
                                        *         CHARACTERS.  THE *BB.* STRUCTURE WOULD DESCRIBE/DEFINE WHAT    COMCBUB   160
                                        *         HOST TOKENS LOOK LIKE.  SEE *COMADEF* AND *BB.* DEFINITIONS    COMCBUB   161
                                        *         BELOW.                                                         COMCBUB   162
                                        *                                                                        COMCBUB   163
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   160
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
                                        ************************************************************************ COMCBUB   164
  
  
  
  
                                        **        MISCELLANEOUS SYMBOL DEFINITIONS.                              COMCBUB   166
                                                                                                                 COMCBUB   167
                                                                                                                 COMCBUB   168
                                                  IF     -DEF,BICH,1                                             COMCBUB   169
                                         BICH     =      1RM                                                     COMCBUB   170
                                                                                                                 COMCBUB   171
                                                  IF     -DEF,CHAR,1                                             COMCBUB   172
                                         CHAR     =      6           NR OF BITS IN CHARACTER                     COMCBUB   173
  
  
  
  
                                        **        BB. - *BUB* GROUP STRUCTURE.                                   COMCBUB   175
                                        *                                                                        COMCBUB   176
                                        *         *BB.* SYMBOLS ARE OF THE FORM --                               COMCBUB   177
                                        *                                                                        COMCBUB   178
                                        *                BB.XXXL  AND  BB.XXXP                                   COMCBUB   179
                                        *                                                                        COMCBUB   180
                                        *         WHERE FIELDS *XXX* ARE --                                      COMCBUB   181
                                        *                                                                        COMCBUB   182
                                        *         TOC  = TOKEN CHARACTERS.  *TOC* DESCRIBE/DEFINES THE           COMCBUB   183
                                        *                LOCATION WITHIN PACKING REGISTER (X6) THAT *BUB*        COMCBUB   184
                                        *                IS TO PLACE *GROUP*ED CHARACTERS.  *BB.TOCL* IS         COMCBUB   185
                                        *                THE LENGTH (IN BITS) OF THIS FIELD, AND *BB.TOCP*       COMCBUB   186
                                        *                IS THE LOWEST (I.E. RIGHT-MOST) BIT POSITION IN THIS    COMCBUB   187
                                        *                FIELD.  DEFAULTS --  BB.TOCL = 60D, AND BB.TOCP = 00B.  COMCBUB   188
                                        *                                                                        COMCBUB   189
                                        *         TOT  = TOKEN TYPE.  EACH *GROUP* CAN BE ASSIGNED A TOKEN OR    COMCBUB   190
                                        *                *GROUP* TYPE AT EXECUTION TIME.  SEE (X6) ON ENTRY.     COMCBUB   191
                                        *                THIS FIELD DESCRIBE/DEFINES WHERE *BUB* IS TO PLACE     COMCBUB   192
                                        *                THE TOKEN TYPE IN PACKING REGISTER (X6).  THIS FIELD    COMCBUB   193
                                        *                IS NORMALLY THE COMPLEMENT TO *TOC*.  THAT IS,          COMCBUB   194
                                        *                BB.TOCL+BB.TOTL = 60D, I.E. A FULL WORD.                COMCBUB   195
                                        *                DEFAULTS --  BB.TOTL = 0, AND BB.TOTP = 0.              COMCBUB   196
                                                                                                                 COMCBUB   197
                                                                                                                 COMCBUB   198
                                         .BB      IF     -DEF,BB.TOCP                                            COMCBUB   199
                                                                                                                 COMCBUB   200
                                                  DESCRIBE BB.                                                   COMCBUB   201
                                         TOC      DEFINE 60                                                      COMCBUB   202
                                         TOT      DEFINE 0                                                       COMCBUB   203
                                         .BB      ENDIF                                                          COMCBUB   204
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   161
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
                                        **        BUB - BURST/BUILD WITH BLANK SQUEEZE.                          COMCBUB   206
                                        *                                                                        COMCBUB   207
                                        *                                                                        COMCBUB   208
                                        *         THE DISCUSSIONS OF *BUB*S ENTRY AND EXIT CONDITIONS ARE EACH   COMCBUB   209
                                        *         DIVIDED INTO 3 SECTIONS: MISCELLANEOUS, SOURCE INPUT, AND      COMCBUB   210
                                        *         *GROUP* OUTPUT.  THERE EXIST SUBTLETIES IN THESE ENTRY/EXIT    COMCBUB   211
                                        *         CONDITIONS THAT, ALTHOUGH HOPEFULLY NOT INCONSISTENT, DO       COMCBUB   212
                                        *         UNFORTUNATELY MAKE AN UNDERSTANDING OF HOW TO USE THIS         COMCBUB   213
                                        *         CHARACTER ACCESS METHOD NON-TRIVIAL.                           COMCBUB   214
                                        *                                                                        COMCBUB   215
                                        *         THIS DIFFICULTY ARISES SOLEY DUE TO EFFICIENCY CONSIDERATIONS. COMCBUB   216
                                        *         *BUB* IS DESIGNED TO BE **VERY** FAST.  THIS UNFORTUNATELY     COMCBUB   217
                                        *         IMPLIES THAT SOME OF THE REGISTER CONVENTIONS ARE ORIENTED     COMCBUB   218
                                        *         MORE TOWARD THE INSTACK LOOP THAN TO A HUMAN.                  COMCBUB   219
                                        *                                                                        COMCBUB   220
                                        *         FOR EXAMPLE, (X4), THE REGISTER THAT IS USED WITHIN *BUB*      COMCBUB   221
                                        *         TO HOLD/MANIPULATE INDIVIDUAL CHARACTERS MAY, UPON ENTRY,      COMCBUB   222
                                        *         ALREADY CONTAIN A CHARACTER TO PROCESS.  THIS IS BECAUSE       COMCBUB   223
                                        *         *BUB* IS DESIGNED TO BE CALLED REPETITIVELY BY SOME EXECUTIVE  COMCBUB   224
                                        *         THAT IS PERFORMING A TRANSFORMATION UPON SOME CHARACTER        COMCBUB   225
                                        *         STRING (E.G. GENERATING TOKENS).                               COMCBUB   226
                                        *                                                                        COMCBUB   227
                                        *         IN THIS CIRCUMSTANCE, IT IS NOT DIFFICULT TO CONCEIVE OF SOME  COMCBUB   228
                                        *         OF *BUB*S EXIT CONDITIONS BEING USED AS *BUB*S ENTRY           COMCBUB   229
                                        *         CONDITIONS ON A SUBSEQUENT CALL.  THEREFORE, BECAUSE (X4)      COMCBUB   230
                                        *         USUALLY CONTAINS A CHARACTER ON EXIT FROM *BUB*, IT IS LIKELY  COMCBUB   231
                                        *         THAT *BUB* WILL BE CALLED AGAIN WITH (X4) AS AN ENTRY          COMCBUB   232
                                        *         CONDITION.  COMO SAVVY...                                      COMCBUB   233
                                        *                                                                        COMCBUB   234
                                        *         BY WAY OF INTRODUCTION, WE CAN MENTION THAT (A5,X5) CONTAIN    COMCBUB   235
                                        *         THE SOURCE INPUT CHARACTERS IN PACKED (10 CHAR PER WORD)       COMCBUB   236
                                        *         FORMAT AND (A6,X6) CONTAIN THE *GROUP* OUTPUT CHARACTERS       COMCBUB   237
                                        *         IN A FORMAT THAT IS DETERMINED BY THE *BB.XXXL* AND *BB.XXXP*  COMCBUB   238
                                        *         ASSEMBLY-TIME OPTIONS.                                         COMCBUB   239
                                        *                                                                        COMCBUB   240
                                        *                                                                        COMCBUB   241
                                        *         ENTRY  MISCELLANEOUS --                                        COMCBUB   242
                                        *                                                                        COMCBUB   243
                                        *                (B1) = 1                                                COMCBUB   244
                                        *                (X0) = CHARACTER EXTRACT MASK (I.E. MX0 -CHAR).         COMCBUB   245
                                        *                (X1) = CHARACTER SHIFT MASK THAT DEFINES WHICH          COMCBUB   246
                                        *                       CHARACTERS CAN OCCUR IN THIS *GROUP*.  THAT IS,  COMCBUB   247
                                        *                       *BUB* WILL STOP IF IT ENCOUNTERS A SOURCE INPUT  COMCBUB   248
                                        *                       CHARACTER **NOT** SPECIFIED IN (X1).             COMCBUB   249
                                        *                                                                        COMCBUB   250
                                        *                       NOTE ALSO THAT (X1) **MUST** BE BIASED BY        COMCBUB   251
                                        *                       *BICH*  (SEE *ASSEMBLY-TIME OPTIONS*).  THIS     COMCBUB   252
                                        *                       MEANS THAT THE *BICH* BIAS CHARACTER OCCUPIES    COMCBUB   253
                                        *                       BIT 1S59 IN (X1).  SEE *COMCBUB* PREAMBLE.       COMCBUB   254
                                        *                                                                        COMCBUB   255
                                        *                SOURCE INPUT --                                         COMCBUB   256
                                        *                                                                        COMCBUB   257
                                        *                (X4) = 1ST SOURCE INPUT CHAR TO CHECK TO SEE IF IN THE  COMCBUB   258
                                        *                       *GROUP* DEFINED IN (X1), -R- FORMAT.  ELSE .MI.  COMCBUB   259
                                        *                       IF EMPTY, I.E. NEED TO EXTRACT A CHAR FROM (X5)  COMCBUB   260
                                        *                       FIRST.                                           COMCBUB   261
                                        *                                                                        COMCBUB   262
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   162
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
                                        *                (A5,X5) = A+C OF SOURCE WORD TO BEGIN BURST/BUILDING    COMCBUB   263
                                        *                       FROM.  (X5) CONTAINS THE SOURCE INPUT CHARACTERS COMCBUB   264
                                        *                       IN PACKED (I.E. 10 CHARS PER WORD) FORMAT WITH   COMCBUB   265
                                        *                       THE 1ST CHAR TO EXTRACT IN THE HIGH ORDER CHAR   COMCBUB   266
                                        *                       POSITION (BITS 54 THRU 59).                      COMCBUB   267
                                        *                                                                        COMCBUB   268
                                        *                       NOTE THAT IF (X4) .PL., THEN (X5) IS NOT TOUCHED COMCBUB   269
                                        *                       UNTIL (X4) HAS BEEN PROCESSED.                   COMCBUB   270
                                        *                                                                        COMCBUB   271
                                        *                       NOTE ALSO THAT IF (X5) IS EXHAUSTED DURING THIS  COMCBUB   272
                                        *                       *BUB* CALL, THEN (A5) IS INCREMENTED AND *BUB*   COMCBUB   273
                                        *                       CONTINUES BURST/BUILDING WITH FRESHLY LOADED     COMCBUB   274
                                        *                       (X5).                                            COMCBUB   275
                                        *                                                                        COMCBUB   276
                                        *                (B6) = BIT COUNTER FOR (X5).  (B6) CONTAINS THE NR      COMCBUB   277
                                        *                       OF BITS IN (X5) REMAINING TO BU/BU.  IF (B6) IS  COMCBUB   278
                                        *                       OR BECOMES .LE. 0, THEN (X5) IS EMPTY (BY        COMCBUB   279
                                        *                       DEFINITION) AND THE NEXT SOURCE WORD IS LOADED   COMCBUB   280
                                        *                       INTO (A5,X5).                                    COMCBUB   281
                                        *                                                                        COMCBUB   282
                                        *                       IF (B6) IS 60D, THEN (X5) IS FULL.               COMCBUB   283
                                        *                                                                        COMCBUB   284
                                        *                (B7) = SOURCE LINE REMAINING BIT COUNTER.               COMCBUB   285
                                        *                       (B7) CONTAINS THE NR OF **BITS** REMAINING IN    COMCBUB   286
                                        *                       THE ENTIRE SOURCE LINE.  A BIT COUNT IS USED     COMCBUB   287
                                        *                       INSTEAD OF A WORD COUNT SO THAT *BUB* CAN BU/BU  COMCBUB   288
                                        *                       SOURCE LINES THAT DO NOT END ON A WORD BOUNDARY  COMCBUB   289
                                        *                       (A MOST COMMON OCCURENCE IN CDC-LAND).           COMCBUB   290
                                        *                                                                        COMCBUB   291
                                        *                       NOTE THAT (B7) ARE **NOT** CHECKED UPON ENTRY,   COMCBUB   292
                                        *                       AND IN FACT ARE ONLY CHECKED WHEN (B6) INDICATE  COMCBUB   293
                                        *                       THAT (X5) IS EMPTY.  ONE CAN THINK OF THIS       COMCBUB   294
                                        *                       (B6)/(B7) RELATIONSHIP AS (B6) HAVING PRECEDENCE COMCBUB   295
                                        *                       OVER (B7).                                       COMCBUB   296
                                        *                                                                        COMCBUB   297
                                        *                       ALTHOUGH THIS IS PERHAPS NOT THE MOST HUMAN      COMCBUB   298
                                        *                       REGISTER RELATIONSHIP, IT IS THE MOST SPEED      COMCBUB   299
                                        *                       EFFICIENT ONE FOR *BUB*S INSTACK LOOP.           COMCBUB   300
                                        *                                                                        COMCBUB   301
                                        *                *GROUP* OUTPUT --                                       COMCBUB   302
                                        *                                                                        COMCBUB   303
                                        *                (X6) = PACKING REGISTER FOR *GROUP* OUTPUT WORDS.       COMCBUB   304
                                        *                       *BUB* WILL CONTINUE TO PACK SOURCE INPUT         COMCBUB   305
                                        *                       CHARACTERS TO (X6) AS LONG AS HE KEEPS           COMCBUB   306
                                        *                       ENCOUNTERING CHARACTERS THAT HAVE BEEN SPECIFIED COMCBUB   307
                                        *                       VIA (X1) .AND. AS LONG AS (X6) IS NOT FULL.      COMCBUB   308
                                        *                                                                        COMCBUB   309
                                        *                       UPON ENTRY, (B3) SPECIFIES THE LEFT-SHIFT COUNT  COMCBUB   310
                                        *                       FOR THE NEXT CHARACTER IN (X4) THAT *BUB* IS     COMCBUB   311
                                        *                       TO PACK INTO (X6).  REMEMBER THAT A CHARACTER    COMCBUB   312
                                        *                       IN (X4) IS IN -R- FMT.  I.E. --                  COMCBUB   313
                                        *                                                                        COMCBUB   314
                                        *                           BX4  -X0*X5      (X4) = CHAR, IN -R- FMT     COMCBUB   315
                                        *                           LX3  X4,B3                                   COMCBUB   316
                                        *                           BX6  X6+X3       MERGE (X4) INTO (X6)        COMCBUB   317
                                        *                                                                        COMCBUB   318
                                        *                       WILL PACK A CHARACTER TO (X6).                   COMCBUB   319
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   163
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
                                        *                                                                        COMCBUB   320
                                        *                       CHARACTERS ARE PACKED INTO (X6) FROM LEFT-TO-    COMCBUB   321
                                        *                       RIGHT, BEGINNING AT LEFT-MOST CHARACTER POSITION COMCBUB   322
                                        *                       IN *BB.TOCP/BB.TOCL* FIELD.  (X6) IS **FULL**,   COMCBUB   323
                                        *                       BY DEFINITION, WHEN THIS *BB.TOCP/BB.TOCL* FIELD COMCBUB   324
                                        *                       IS **FULL** (I.E. WHEN (B3) .LE. *BB.TOCP*).     COMCBUB   325
                                        *                                                                        COMCBUB   326
                                        *                       WHEN THIS OCCURS, (X6) WILL BE STORED BY         COMCBUB   327
                                        *                       INCREMENTING (A6).  THE *BB.TOCP/BB.TOCL* FIELD  COMCBUB   328
                                        *                       IN (X6) IS THEN CLEARED AND BURST/BUILDING       COMCBUB   329
                                        *                       CONTINUES.  NOTE THAT *BUB* **NEVER** TOUCHES    COMCBUB   330
                                        *                       ANYTHING BUT *BB.TOCP/BB.TOCL* FIELD IN (X6).    COMCBUB   331
                                        *                                                                        COMCBUB   332
                                        *                       IN THIS WAY THEN, (X6) UPON ENTRY, MAY CONTAIN   COMCBUB   333
                                        *                       A TOKEN OR GROUP TYPE IN *BB.TOTP/BB.TOTL*       COMCBUB   334
                                        *                       FIELD AND THIS TOKEN TYPE WILL BE PROPAGATED     COMCBUB   335
                                        *                       INTO EVERY TOKEN *BUB* BUILDS INTO (X6).         COMCBUB   336
                                        *                                                                        COMCBUB   337
                                        *                                   ** LIMITATION **                     COMCBUB   338
                                        *                                                                        COMCBUB   339
                                        *                       (X6) MUST NOT BE FULL UPON ENTRY (I.E. (B3) .LT. COMCBUB   340
                                        *                       *BB.TOCP*), AS *BUB* PACKS A CHARACTER TO (X6)   COMCBUB   341
                                        *                       **BEFORE** CHECKING FOR *(X6) FULL*.             COMCBUB   342
                                        *                                                                        COMCBUB   343
                                        *                                       * * *                            COMCBUB   344
                                        *                                                                        COMCBUB   345
                                        *                       NOTE THAT IF (X6) IS LEFT PARTIALLY FILLED WHEN  COMCBUB   346
                                        *                       *BUB* SENSES AN EXITING CONDITION, THEN (X6) IS  COMCBUB   347
                                        *                       STORED OUT BEFORE EXITING.                       COMCBUB   348
                                        *                                                                        COMCBUB   349
                                        *                (A6)+1 = ADDR TO STORE THE NEXT *GROUP* OUTPUT WORD     COMCBUB   350
                                        *                       (OR TOKEN) GENERATED BY THIS *BUB* CALL,         COMCBUB   351
                                        *                       I.E. (X6) IS STORED OUT BY INCREMENTING (A6).    COMCBUB   352
                                        *                                                                        COMCBUB   353
                                        *                (B3) = LEFT-SHIFT COUNT FOR 1ST CHARACTER *BUB* BUILDS  COMCBUB   354
                                        *                       INTO (X6).  I.E. IF (X6) IS TO BE CONSIDERED     COMCBUB   355
                                        *                       EMPTY UPON ENTRY, THEN --                        COMCBUB   356
                                        *                                                                        COMCBUB   357
                                        *                           (B3) = BB.TOCP+BB.TOCL-CHAR                  COMCBUB   358
                                        *                                                                        COMCBUB   359
                                        *                       WHERE *BB.TOCP* = RIGHT-MOST BIT POSITION THAT   COMCBUB   360
                                        *                                         *BUB* CAN BUILD CHARACTERS     COMCBUB   361
                                        *                                         INTO (X6).                     COMCBUB   362
                                        *                             *BB.TOCL* = LEN (IN BITS) OF FIELD WITHIN  COMCBUB   363
                                        *                                         (X6) TO BUILD CHARACTERS.      COMCBUB   364
                                        *                             *CHAR*    = LEN (IN BITS) OF A SINGLE      COMCBUB   365
                                        *                                         CHARACTER.  CURRENTLY ONLY     COMCBUB   366
                                        *                                         6 BIT OR LESS SUPPORTED.       COMCBUB   367
                                        *                                                                        COMCBUB   368
                                        *         EXIT   (B1) = 1                                                COMCBUB   369
                                        *                (X0) = AS ON ENTRY.                                     COMCBUB   370
                                        *                (X1) = AS ON ENTRY.                                     COMCBUB   371
                                        *                (X4) = CHAR THAT TERMINATED THIS *GROUP*, IN -R- FMT.   COMCBUB   372
                                        *                       I.E. 1ST CHAR ENCOUNTERED THAT WAS NOT CHARACTER COMCBUB   373
                                        *                       RANGE SPECIFIED VIA (X1).                        COMCBUB   374
                                        *                (A5,X5) = A+C OF CURRENT SOURCE WORD.  (X5) IS SHIFTED  COMCBUB   375
                                        *                          SO THAT NEXT CHAR TO EXTRACT IS IN LEFT-MOST  COMCBUB   376
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   164
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
                                        *                          CHARACTER POSITION (I.E. BITS 59 THRU 54 FOR  COMCBUB   377
                                        *                          DISPLAY CODE, 6 BIT).  THEREFORE, (X4) IS     COMCBUB   378
                                        *                          IN BITS 5 THRU 0.                             COMCBUB   379
                                        *                (B6) = NR OF BITS REMAINING TO EXTRACT FROM (X5).       COMCBUB   380
                                        *                       I.E. DOES **NOT** INCLUDE CHAR IN (X4).          COMCBUB   381
                                        *                (B7) = .GE. 0 IF NR OF BITS REMAINING TO BURST/BUILD    COMCBUB   382
                                        *                       IN THIS SOURCE LINE.  ELSE .LT. 0 IF DONE.       COMCBUB   383
                                        *                (A6) = ADDR OF MOST RECENT TOKEN GENERATED.             COMCBUB   384
                                        *                (X6) = PACKING REGISTER.  (X6) CAN ONLY BE DETERMINED   COMCBUB   385
                                        *                       BY QUERYING (B3).                                COMCBUB   386
                                        *                (B3) = LEFT-SHIFT COUNT FOR NEXT CHARACTER THAT WOULD   COMCBUB   387
                                        *                       HAVE (BUT WASNT) GENERATED TO (X6).              COMCBUB   388
                                        *                                                                        COMCBUB   389
                                        *                       THEREFORE, IF (B3) = BB.TOCP+BB.TOCL-CHAR        COMCBUB   390
                                        *                       THEN *BB.TOCP/BB.TOCL* FIELD IN (X6) IS EMPTY.   COMCBUB   391
                                        *                       ELSE IF (B3) .GE. BB.TOCP, THEN (X6) CONTAINS    COMCBUB   392
                                        *                       MOST RECENT TOKEN BUILT AND STORED AT (A6).      COMCBUB   393
                                        *                                                                        COMCBUB   394
                                        *         USES   X - 2,3,4,5,6,7                                         COMCBUB   395
                                        *                A - 2,3,5,6                                             COMCBUB   396
                                        *                B - 2,3,4,5,6,7                                         COMCBUB   397
                                        *                                                                        COMCBUB   398
                                        *         CALLS  NONE                                                    COMCBUB   399
                                                                                                                 COMCBUB   400
                                                                                                                 COMCBUB   401
          1646  0400401646 +             BUB      SUBR               ** ENTRY/EXIT **                            COMCBUB   402
                                                                                                                 COMCBUB   403
                                        *         INITIALIZATION.                                                COMCBUB   404
                                                                                                                 COMCBUB   405
          1647  5130000074                        SA3    60D         (A3) = NR OF BITS IN A WORD (CONSTANT)      COMCBUB   406
                          5120002307 +            SA2    =10H                                                    COMCBUB   407
          1650  6140000022                        SB4    BB.TOCP     (B4) = LOWEST BIT POSITION THAT WE CAN      COMCBUB   408
                                        *                                   SHIFT CHARS INTO (X6)                COMCBUB   409
                          6150010040              SB5    1R +10000B-BICH                                         COMCBUB   410
          1651  65737                             SB7    A3-B7       (B7) = -(BIT COUNT - 60D)                   COMCBUB   411
                     0334001655 +                 MI     X4,BUB3     IF (X4) DOES NOT CONTAIN A USEABLE CHAR     COMCBUB   412
          1652  6166000006                        SB6    B6+CHAR                                                 COMCBUB   413
                          0400001656 +            EQ     BUB4                                                    COMCBUB   414
                                                                                                                 COMCBUB   415
                                        *         BURST/BUILD LOOP  ** INSTACK **                                COMCBUB   416
                                                                                                                 COMCBUB   417
          1653  64737                    BUB2     SB7    B7+A3                                                   COMCBUB   418
                     54551                        SA5    A5+B1                                                   COMCBUB   419
                          0670001664 +            GE     B7,B0,BUB5  IF NO MORE SOURCE WORDS TO BU/BU            COMCBUB   420
          1654  37752                             IX7    X5-X2                                                   COMCBUB   421
                     64630                        SB6    A3                                                      COMCBUB   422
                          0307001653 +            ZR     X7,BUB2     IF NEXT SOURCE WORD IS ALL BLANK, IGNORE... COMCBUB   423
                                                                                                                 COMCBUB   424
          1655  20506                    BUB3     LX5    CHAR                                                    COMCBUB   425
                     0606001653 +                 LE     B6,B0,BUB2  IF SOURCE WORD (X5) IS EXHAUSTED            COMCBUB   426
                               15450              BX4    -X0*X5                                                  COMCBUB   427
                                                                                                                 COMCBUB   428
          1656  6166777771               BUB4     SB6    B6-CHAR                                                 COMCBUB   429
                          6224007763              SB2    X4+10000B-BICH                                          COMCBUB   430
          1657  22721                             LX7    X1,B2                                                   COMCBUB   431
                     0425001655 +                 EQ     B2,B5,BUB3  IF NEXT CHAR TO PACK IS A BLANK (55B)       COMCBUB   432
                               22334              LX3    X4,B3                                                   COMCBUB   433
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   165
        COMCBUB - BURST/BUILD CHARACTERS WITH BLANK SQUEEZE.          BUB                 COMCBUB 
  
          1660  0327001665 +                      PL     X7,BUB6     IF NEXT CHAR TO PACK NOT IN THIS GROUP      COMCBUB   434
                          6133777771              SB3    B3-CHAR                                                 COMCBUB   435
          1661  12663                             BX6    X6+X3                                                   COMCBUB   436
                     0634001655 +                 GE     B3,B4,BUB3  IF PACKING REGISTER (X6) NOT FULL           COMCBUB   437
                                                                                                                 COMCBUB   438
                                        *         HERE IF PACKING REGISTER (X6) IS FULL.                         COMCBUB   439
                                                                                                                 COMCBUB   440
                               43352              MX3    -BB.TOTL                                                COMCBUB   441
          1662  54661                             SA6    A6+B1                                                   COMCBUB   442
                     6130000066                   SB3    BB.TOCP+BB.TOCL-CHAR                                    COMCBUB   443
                                                  LX3    BB.TOTP-0                                               COMCBUB   444
                               15663              BX6    -X3*X6      CLEAR *TOC*                                 COMCBUB   445
          1663  0400001655 +                      EQ     BUB3        BACK INTO THE FIRE...                       COMCBUB   446
                                                                                                                 COMCBUB   447
                                        *         HERE AT LAST/FINAL WORD.                                       COMCBUB   448
                                        *                                                                        COMCBUB   449
                                        *           1. IF HAVE NOT PROCESSED LAST/FINAL WORD YET, THEN WE NEED   COMCBUB   450
                                        *              TO GO BACK AND BURST/BUILD IT.                            COMCBUB   451
                                        *                                                                        COMCBUB   452
                                        *           2. IF HAVE ALREADY BU/BU THE LAST/FINAL WORD, THEN DONE...   COMCBUB   453
                                                                                                                 COMCBUB   454
          1664  65637                    BUB5     SB6    A3-B7                                                   COMCBUB   455
                     0706001655 +                 GT     B6,B0,BUB3  IF NEED TO PROCESS FINAL SOURCE WORD        COMCBUB   456
                                                                                                                 COMCBUB   457
                                        *         FINAL PROCESSING...(X6) MIGHT NEED TO BE STORED OUT.           COMCBUB   458
                                                                                                                 COMCBUB   459
          1665  6143777711               BUB6     SB4    B3-BB.TOCP-BB.TOCL+CHAR                                 COMCBUB   460
                          65737                   SB7    A3-B7       RESTORE (B7) TO A CIVIL FORM                COMCBUB   461
          1666  0440001646 +                      ZR     B4,EXIT.    IF (X6) IS EMPTY, DONE...                   COMCBUB   462
                          5066000001              SA6    A6+1                                                    COMCBUB   463
          1667  0400001646 +                      EQ     EXIT.                                                   COMCBUB   464
  
  
  
  
                                 D_D              BASE   *                                                       COMCBUB   466
                                         QUAL$    IF     -DEF,QUAL$                                              COMCBUB   467
                                                  QUAL   *                                                       COMCBUB   468
                                1646 +   BUB      =      /COMCBUB/BUB                                            COMCBUB   469
                                         QUAL$    ENDIF                                                          COMCBUB   470
                                         COMCBUB  ENDX                                                           COMCBUB   471
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   166
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN 
  
          1667                           BUN      CTEXT  COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE. COMCBUN     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMCBUN     4
                                                  QUAL   COMCBUN                                                 COMCBUN     5
                                 D_D              BASE   D                                                       COMCBUN     6
  
  
  
  
                                        ***       BUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.            COMCBUN     8
                                        *         P CLARE  77/01/20                                              COMCBUN     9
  
  
  
  
                                        ***       BUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.            COMCBUN    11
                                        *                                                                        COMCBUN    12
                                        *                                                                        COMCBUN    13
                                        *         THIS ROUTINE, VIA A LEFT-TO-RIGHT SCAN, BURSTS CONSECUTIVE     COMCBUN    14
                                        *         CHARACTERS FROM A PACKED (10 CHARACTER PER WORD) SOURCE        COMCBUN    15
                                        *         LINE, AND BUILDS THEM INTO A SINGLE *GROUP* OF CHARACTERS.     COMCBUN    16
                                        *         UNLIKE *COMCBUB*, *BUN* IGNORES NO CHARACTERS (I.E. BLANKS     COMCBUN    17
                                        *         ARE NOT SQUEEZED).                                             COMCBUN    18
                                        *                                                                        COMCBUN    19
                                        *         *COMCBUN* IS PRIMARILY INTENDED TO BE USED WITH *COMATOK*      COMCBUN    20
                                        *         AND *COMCTOK*, THE GENERAL PURPOSE ENTOKENING DISCIPLINE.      COMCBUN    21
                                        *         *COMCTOK* CALLS *BUN* TO PERFORM EACH                          COMCBUN    22
                                        *         *TOGEL* /GROUP,...,NSQZ/.                                      COMCBUN    23
                                        *                                                                        COMCBUN    24
                                        *         IN THE INTEREST OF BREVITY, THE DESCRIPTION OF HOW THIS        COMCBUN    25
                                        *         ROUTINE WORKS HAS BEEN OMITTED.  IT CAN BE FOUND, HOWEVER,     COMCBUN    26
                                        *         WITH *COMCBUB* AS THESE 2 ROUTINES WORK MUCH IN THE SAME       COMCBUN    27
                                        *         WAY.  I ALSO SUGGEST READING THE FTN 5 IMS FOR THE DECK *LEX*, COMCBUN    28
                                        *         BECAUSE THAT PRESENTATION TENDS TO BE MORE LEISURELY           COMCBUN    29
                                        *         AND EASIER TO FOLLOW...                                        COMCBUN    30
                                        *                                                                        COMCBUN    31
                                        *         IN THE SECTIONS THAT FOLLOW, *ASSEMBLY-TIME DEPENDENCIES*      COMCBUN    32
                                        *         ARE DEFINED TO BE THE INTERFACES THAT THE *COMCBUN* INSTALLER  COMCBUN    33
                                        *         MUST PROVIDE.  *ASSEMBLY-TIME OPTIONS* ARE THOSE INTERFACES    COMCBUN    34
                                        *         WHICH ARE OPTIONAL, I.E. INTERFACES WHICH HAVE DEFAULT         COMCBUN    35
                                        *         CONDITIONS.                                                    COMCBUN    36
                                        *                                                                        COMCBUN    37
                                        *         ASSEMBLY-TIME DEPENDENCIES --                                  COMCBUN    38
                                        *                                                                        COMCBUN    39
                                        **********************************************************************   COMCBUN    40
                                        *                                                                        COMCBUN    41
                                        *         THE INSTALLER MUST PROVIDE THE FOLLOWING COMDECKS --           COMCBUN    42
                                        *                COMADEF   COMAREG                                       COMCBUN    43
                                        *                                                                        COMCBUN    44
                                        ************************************************************************ COMCBUN    45
                                        *                                                                        COMCBUN    46
                                        *         ASSEMBLY-TIME OPTIONS --                                       COMCBUN    47
                                        *                                                                        COMCBUN    48
                                        ************************************************************************ COMCBUN    49
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   167
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN                 COMCBUN 
  
                                        *                                                                        COMCBUN    50
                                        *         BICH - BIAS CHARACTER.            (DEFAULT =1RM)               COMCBUN    51
                                        *                                                                        COMCBUN    52
                                        *         *BICH* SPECIFIES THE CHARACTER THAT IS TO OCCUPY BIT 59        COMCBUN    53
                                        *         OF (X1), I.E. THE CHARACTER THAT HAS AN *RCS* VALUE OF 00B.    COMCBUN    54
                                        *                                                                        COMCBUN    55
                                        ************************************************************************ COMCBUN    56
                                        *                                                                        COMCBUN    57
                                        *         *BB.XXXL* AND *BB.XXXP* ARE SYMBOLS THAT DEFINE A *COMADEF*    COMCBUN    58
                                        *         STRUCTURE THAT DESCRIBES THE FORM OF THE *GROUP*S THAT *BUN*   COMCBUN    59
                                        *         WILL GENERATE.  FOR EXAMPLE, SUPPOSE THE CALLING PROGRAM IS    COMCBUN    60
                                        *         USING *BUN* TO GENERATE TOKENS FOR INPUT SOURCE LINE           COMCBUN    61
                                        *         CHARACTERS.  THE *BB.* STRUCTURE WOULD DESCRIBE/DEFINE WHAT    COMCBUN    62
                                        *         HOST TOKENS LOOK LIKE.  SEE *COMADEF* AND *BB.* DEFINITIONS    COMCBUN    63
                                        *         BELOW.                                                         COMCBUN    64
                                        *                                                                        COMCBUN    65
                                        ************************************************************************ COMCBUN    66
  
  
  
  
                                        **        MISCELLANEOUS SYMBOL DEFINITIONS.                              COMCBUN    68
                                                                                                                 COMCBUN    69
                                                                                                                 COMCBUN    70
                                                  IF     -DEF,BICH,1                                             COMCBUN    71
                                         BICH     =      1RM                                                     COMCBUN    72
                                                                                                                 COMCBUN    73
                                                  IF     -DEF,CHAR,1                                             COMCBUN    74
                                         CHAR     =      6           NR OF BITS IN CHARACTER                     COMCBUN    75
  
  
  
  
                                        **        BB. - *BUN* GROUP STRUCTURE.                                   COMCBUN    77
                                        *                                                                        COMCBUN    78
                                        *         *BB.* SYMBOLS ARE OF THE FORM --                               COMCBUN    79
                                        *                                                                        COMCBUN    80
                                        *                BB.XXXL  AND  BB.XXXP                                   COMCBUN    81
                                        *                                                                        COMCBUN    82
                                        *         WHERE FIELDS *XXX* ARE --                                      COMCBUN    83
                                        *                                                                        COMCBUN    84
                                        *         TOC  = TOKEN CHARACTERS.  *TOC* DESCRIBE/DEFINES THE           COMCBUN    85
                                        *                LOCATION WITHIN PACKING REGISTER (X6) THAT *BUN*        COMCBUN    86
                                        *                IS TO PLACE *GROUP*ED CHARACTERS.  *BB.TOCL* IS         COMCBUN    87
                                        *                THE LENGTH (IN BITS) OF THIS FIELD, AND *BB.TOCP*       COMCBUN    88
                                        *                IS THE LOWEST (I.E. RIGHT-MOST) BITS POSITION IN THIS   COMCBUN    89
                                        *                FIELD.  DEFAULTS --  BB.TOCL = 60D, AND BB.TOCP = 00B.  COMCBUN    90
                                        *                                                                        COMCBUN    91
                                        *         TOT  = TOKEN TYPE.  EACH *GROUP* CAN BE ASSIGNED A TOKEN OR    COMCBUN    92
                                        *                *GROUP* TYPE AT EXECUTION TIME.  SEE (X6) ON ENTRY.     COMCBUN    93
                                        *                THIS FIELD DESCRIBE/DEFINES WHERE *BUN* IS TO PLACE     COMCBUN    94
                                        *                THE TOKEN TYPE IN PACKING REGISTER (X6).  THIS FIELD    COMCBUN    95
                                        *                IS NORMALLY THE COMPLEMENT TO *TOC*.  THAT IS,          COMCBUN    96
                                        *                BN.TOCL+BN.TOTL = 60D, I.E. A FULL WORD.                COMCBUN    97
                                        *                DEFAULTS --  BN.TOTL = 0, AND BN.TOTP = 0.              COMCBUN    98
                                                                                                                 COMCBUN    99
                                                                                                                 COMCBUN   100
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   168
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BB.                 COMCBUN 
  
                                         .BN      IF     -DEF,BN.TOCP                                            COMCBUN   101
                                                                                                                 COMCBUN   102
                                                  DESCRIBE BN.                                                   COMCBUN   103
                                         TOC      DEFINE 60                                                      COMCBUN   104
                                         TOT      DEFINE 0                                                       COMCBUN   105
                                         .BN      ENDIF                                                          COMCBUN   106
  
  
  
  
                                        **        BUN - BURST/BUILD WITH NO BLANK SQUEEZE.                       COMCBUN   108
                                        *                                                                        COMCBUN   109
                                        *                                                                        COMCBUN   110
                                        *         ENTRY  (B1) = 1                                                COMCBUN   111
                                        *                (A5) = ADDR OF 1ST WORD TO BURST/BUILD                  COMCBUN   112
                                        *                (X5) = 1ST WORD TO BURST/BUILD, CONTAINING CHARS        COMCBUN   113
                                        *                       TO BURST/BUILD IN PACKED (10 CHAR/WORD) FMT.     COMCBUN   114
                                        *                       (X5) IS SHIFTED SO THAT 1ST CHAR TO BU/BU IS     COMCBUN   115
                                        *                       IN BITS 5 THRU 0.                                COMCBUN   116
                                        *                (B6) = NR OF BITS IN (X5) REMAINING TO BU/BU.           COMCBUN   117
                                        *                       IF (B6) .LE. 0, THEN (X5) IS EMPTY.  IN THIS     COMCBUN   118
                                        *                       CASE, THE NEXT SOURCE LINE IMAGE WORD AT         COMCBUN   119
                                        *                       (A5)+1 WILL BE LOADED INTO (X5) BEFORE           COMCBUN   120
                                        *                       PROCEEDING.  IF (B6) = 60D, THEN (X5) IS FULL.   COMCBUN   121
                                        *                (B7) = NR OF SOURCE LINE IMAGE WORDS REMAINING TO BE    COMCBUN   122
                                        *                       BU/BU.  IF (B7) .LE. 0 UPON ENTRY .AND. (B6)     COMCBUN   123
                                        *                       INDICATES THAT (X5) NOT EMPTY, THEN *BUN* WILL   COMCBUN   124
                                        *                       BU/BU (X5) BEFORE CHECKING (B7).                 COMCBUN   125
                                        *                (A6)+1 = ADDR TO STORE 1ST TOKEN GENERATED              COMCBUN   126
                                        *                (X6) = PACKING REGISTER FOR BUILDING TOKENS.            COMCBUN   127
                                        *                                                                        COMCBUN   128
                                        *         EXIT   (B1) = 1                                                COMCBUN   129
                                        *                (A5,X5),(B6),(B7),(A6),(B3) ADJUSTED IF NECESSARY       COMCBUN   130
                                        *                                                                        COMCBUN   131
                                        *         USES   ALL BUT (A0)                                            COMCBUN   132
                                        *                                                                        COMCBUN   133
                                        *         CALLS  NONE                                                    COMCBUN   134
                                                                                                                 COMCBUN   135
                                                                                                                 COMCBUN   136
          1670  0400401670 +             BUN      SUBR               ** ENTRY/EXIT **                            COMCBUN   137
                                                                                                                 COMCBUN   138
                                        *         INITIALIZATION.                                                COMCBUN   139
                                                                                                                 COMCBUN   140
          1671  5130000074                        SA3    60D         (A3) = NR OF BITS IN A WORD (CONSTANT)      COMCBUN   141
                          6140000000              SB4    BN.TOCP     (B4) = LOWEST BIT POSITION THAT WE CAN      COMCBUN   142
                                        *                                   SHIFT CHARS INTO (X6)                COMCBUN   143
          1672  65737                             SB7    A3-B7       (B7) = -(BIT COUNT-60)                      COMCBUN   144
                     0334001676 +                 MI     X4,BUN3     IF (X4) DOES NOT CONTAIN A USEABLE CHAR     COMCBUN   145
          1673  6166000006                        SB6    B6+CHAR                                                 COMCBUN   146
                          0400001677 +            EQ     BUN4                                                    COMCBUN   147
                                                                                                                 COMCBUN   148
                                        *         BURST/BUILD LOOP  ** INSTACK **                                COMCBUN   149
                                                                                                                 COMCBUN   150
          1674  6177000074               BUN2     SB7    B7+60D                                                  COMCBUN   151
                          5055000001              SA5    A5+1                                                    COMCBUN   152
          1675  0670001705 +                      GE     B7,B0,BUN5  IF NO MORE SOURCE WORDS TO BU/BU            COMCBUN   153
                          6160000074              SB6    10*CHAR                                                 COMCBUN   154
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   169
        COMCBUN - BURST/BUILD CHARACTERS WITH NO BLANK SQUEEZE.       BUN                 COMCBUN 
  
                                                                                                                 COMCBUN   155
          1676  20506                    BUN3     LX5    CHAR                                                    COMCBUN   156
                     0606001674 +                 LE     B6,B0,BUN2  IF SOURCE WORD (X5) IS EXHAUSTED            COMCBUN   157
                               15450              BX4    -X0*X5                                                  COMCBUN   158
                                                                                                                 COMCBUN   159
          1677  6166777771               BUN4     SB6    B6-CHAR                                                 COMCBUN   160
                          6224007763              SB2    X4+10000B-BICH                                          COMCBUN   161
          1700  22721                             LX7    X1,B2                                                   COMCBUN   162
                     0450001706 +                 EQ     B5,B0,BUN6  IF CHARACTER COUNT EXHAUSTED                COMCBUN   163
                               22334              LX3    X4,B3                                                   COMCBUN   164
          1701  0327001706 +                      PL     X7,BUN6     IF NEXT CHAR TO PACK NOT IN THIS GROUP      COMCBUN   165
                          6133777771              SB3    B3-CHAR                                                 COMCBUN   166
          1702  67551                             SB5    B5-B1                                                   COMCBUN   167
                     12663                        BX6    X6+X3                                                   COMCBUN   168
                          0634001676 +            GE     B3,B4,BUN3  IF PACKING REGISTER (X6) NOT FULL           COMCBUN   169
                                                                                                                 COMCBUN   170
                                        *         HERE IF PACKING REGISTER (X6) IS FULL.                         COMCBUN   171
                                                                                                                 COMCBUN   172
          1703  43374                             MX3    -BN.TOTL                                                COMCBUN   173
                     54661                        SA6    A6+B1                                                   COMCBUN   174
                          6130000066              SB3    BN.TOCP+BN.TOCL-CHAR                                    COMCBUN   175
                                                  LX3    BN.TOTP-0                                               COMCBUN   176
          1704  15663                             BX6    -X3*X6      CLEAR *TOC*                                 COMCBUN   177
                     0400001676 +                 EQ     BUN3        BACK INTO THE FIRE...                       COMCBUN   178
                                                                                                                 COMCBUN   179
                                        *         HERE AT FINAL/LAST SOURCE WORD.                                COMCBUN   180
                                        *                                                                        COMCBUN   181
                                        *           1. IF NEED TO BURST/BUILD FINAL SOURCE WORD, THEN GO BACK    COMCBUN   182
                                        *              AND DO IT.                                                COMCBUN   183
                                        *                                                                        COMCBUN   184
                                        *           2. IF HAVE ALREADY BU/BU FINAL SOURCE WORD, THEN DONE...     COMCBUN   185
                                                                                                                 COMCBUN   186
          1705  65637                    BUN5     SB6    A3-B7                                                   COMCBUN   187
                     0706001676 +                 GT     B6,B0,BUN3  IF NEED TO BU/BU FINAL SOURCE WORD          COMCBUN   188
                                                                                                                 COMCBUN   189
                                        *         FINAL PROCESSING...(X6) MIGHT NEED TO BE STORED OUT.           COMCBUN   190
                                                                                                                 COMCBUN   191
          1706  6143777711               BUN6     SB4    B3-BN.TOCP-BN.TOCL+CHAR                                 COMCBUN   192
                          65737                   SB7    A3-B7       RESTORE (B7) TO A CIVIL/HUMAN NUMBER        COMCBUN   193
          1707  0440001670 +                      ZR     B4,EXIT.    IF (X6) IS EMPTY, DONE...                   COMCBUN   194
                          5066000001              SA6    A6+1                                                    COMCBUN   195
          1710  0400001670 +                      EQ     EXIT.                                                   COMCBUN   196
  
  
  
  
                                 D_D              BASE   *                                                       COMCBUN   198
                                         QUAL$    IF     -DEF,QUAL$                                              COMCBUN   199
                                                  QUAL   *                                                       COMCBUN   200
                                1670 +   BUN      =      /COMCBUN/BUN                                            COMCBUN   201
                                         QUAL$    ENDIF                                                          COMCBUN   202
                                         COMCBUN  ENDX                                                           COMCBUN   203
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   170
                                                                      CAK 
  
                                        **        CAK - CHECK FOR AND ADJUST STATEMENT KEYWORD.                  LEX      4764
                                        *                                                                        LEX      4765
                                        *                                                                        LEX      4766
                                        *         THIS ROUTINE TRIES TO MATCH A GIVEN SEQUENCE OF TOKENS         LEX      4767
                                        *         IN THE TOKEN BUFFER WITH A KEYWORD ENTRY IN A SPECIFIED        LEX      4768
                                        *         KEYWORD TABLE.  AND THEN IF A MATCH IS FOUND, ERASES ALL       LEX      4769
                                        *         TRACE OF THE FOUND KEYWORD FROM THE TOKEN BUFFER.              LEX      4770
                                        *                                                                        LEX      4771
                                        *         THIS PROCESS IS PERHAPS BEST UNDERSTOOD WITH AN EXAMPLE.       LEX      4772
                                        *         GIVEN THE KEYWORD STMT --                                      LEX      4773
                                        *                                                                        LEX      4774
                                        *           COMMON EST(10)                                               LEX      4775
                                        *                                                                        LEX      4776
                                        *         WHICH BECOMES IN *T.TB* --                                     LEX      4777
                                        *                                                                        LEX      4778
                                        *           O.VAR'COMMONE'  O.VAR'ST'  O.LP  O.CONS'10'  O.RP  O.EOS     LEX      4779
                                        *                                                                        LEX      4780
                                        *         *CAK* WILL SEARCH THE FTN STMT KEYWORD TABLE FOR *COMMON*,     LEX      4781
                                        *         AND THEN ADJUST THE TOKEN BUFFER TO --                         LEX      4782
                                        *                                                                        LEX      4783
                                        *           O.VAR'EST'  O.LP  O.CONS'10'  O.RP  O.EOS                    LEX      4784
                                        *                                                                        LEX      4785
                                        *         IN THIS WAY, AFTER A *CAK* CALL, THE TOKEN BUFFER IS READY     LEX      4786
                                        *         TO BE PASSED OFF TO THE APPROPRIATE STMT PROCESSOR (I.E. THE   LEX      4787
                                        *         STMT KEYWORD HAS BEEN LOGICALLY REMOVED).                      LEX      4788
                                        *                                                                        LEX      4789
                                        *                ** AN IMPORTANT MESSAGE **                              LEX      4790
                                        *                                                                        LEX      4791
                                        *         AS WILL BECOME EVIDENT BELOW, THIS CONCEPTUALLY TRIVIAL PIECE  LEX      4792
                                        *         OF CODE LOCKS HORNS WITH A NUMBER OF NON-TRIVIAL PATHOLOGIES   LEX      4793
                                        *         THAT ARE CONCERNED WITH THE MASSAGING OF THE TOKEN BUFFER THAT LEX      4794
                                        *         IS NECESSARY TO REMOVE THE KEYWORD.  THIS IS CLEARLY A         LEX      4795
                                        *         TRADE-OFF: TOKEN GENERATION WAS SIMPLIFIED BY NOT SPECIAL      LEX      4796
                                        *         CASING KEYWORD ENTOKENING, BUT KEYWORDS DO NOT FIT CLEANLY     LEX      4797
                                        *         INTO THE TOKEN STRUCTURE.  THEREFORE, *CAK* IS THE ONE         LEX      4798
                                        *         RESPONSIBLE FOR CLEANING UP AND REMOVING ALL TRACES OF         LEX      4799
                                        *         A KEYWORD FROM THE *T.TB*.                                     LEX      4800
                                        *                                                                        LEX      4801
                                        *         ALSO, BEWARE OF REGISTERS...THEY ARE DECEPTIVELY TIGHT.        LEX      4802
                                        *                                                                        LEX      4803
                                        *                          * * *                                         LEX      4804
                                        *                                                                        LEX      4805
                                        *         ENTRY  (B4) = ADDR OF 1ST TOKEN CONTAINING CHARS               LEX      4806
                                        *                       TO TRY AND FIND A KEYWORD MATCH FOR.             LEX      4807
                                        *                (B6) = FWA OF KEYWORD TABLE TO SEARCH.                  LEX      4808
                                        *                (B7) = LEN OF KEYWORD TABLE TO SEARCH (IN WORDS).       LEX      4809
                                        *                                                                        LEX      4810
                                        *         EXIT   (B7) = .NZ. IF A FIND, ELSE .ZR.                        LEX      4811
                                        *                                                                        LEX      4812
                                        *                IF A FIND, (B7) .NZ. --                                 LEX      4813
                                        *                (B7) = KEYWORD TABLE ADDRESS IF SPELLED CORRECTLY,      LEX      4814
                                        *                       ELSE .MI.                                        LEX      4815
                                        *                (B4) = ADDR OF 1ST TOKEN FOLLOWING KEYWORD.             LEX      4816
                                        *                       I.E. POSSIBLY THE ADDR OF A TOKEN THAT WAS       LEX      4817
                                        *                       GENERATED BY *CAK* AFTER KEYWORD WAS REMOVED.    LEX      4818
                                        *                (X6) = *KEYW* TABLE ENTRY FOR THIS KEYWORD.             LEX      4819
                                        *                                                                        LEX      4820
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   171
                                                                      CAK 
  
                                        *         USES   ALL BUT A0,X0,A5,X5                                     LEX      4821
                                        *                                                                        LEX      4822
                                        *         CALLS  NONE                                                    LEX      4823
                                                                                                                 LEX      4824
                                                                                                                 LEX      4825
          1711  0400401711 +             CAK      SUBR   =           ** ENTRY/EXIT **                            LEX      4826
                                                                                                                 LEX      4827
                                        *         INITIALIZATION.                                                LEX      4828
                                                                                                                 LEX      4829
          1712  56140                             SA1    B4          (A1,X1) = A+C OF 1ST TOKEN IN STMT KEYWORD  LEX      4830
                     43430                        MX4    4*CHAR                                                  LEX      4831
                          11641                   BX6    X4*X1                                                   FC5A124     8
                               20630              LX6    4*CHAR      X6 = 1ST 4 CHARS OF POSSIBLE KEYWORD (0R)   FC5A124     9
                                                                                                                 FC5A124    10
                                        **        BINARY SEARCH OF KEYWORD TABLE.                                FC5A124    11
                                                                                                                 FC5A124    12
          1713  0470001711 +             CAK2     ZR     B7,EXIT.    IF NOT IN TABLE                             FC5A124    13
                          76770                   SX7    B7                                                      FC5A124    14
                               23717              AX7    X7,B1                                                   FC5A124    15
          1714  53376                             SA3    B6+X7       (A3,X3) = A+C OF KEYWORD TABLE ENTRY        FC5A124    16
                     66370                        SB3    B7                                                      FC5A124    17
                          63770                   SB7    X7                                                      FC5A124    18
                                                  LX3    -KW.KEYP                                                FC5A124    19
                               53230              SA2    X3          (X2) = 1ST 7 CHARS OF TABLE ENTRY           FC5A124    20
          1715  63270                             SB2    X7          B2 = CURRENT LENGTH/2                       FC5A124    21
                     11724                        BX7    X2*X4                                                   FC5A124    22
                          20730                   LX7    4*CHAR                                                  FC5A124    23
                               37776              IX7    X7-X6                                                   FC5A124    24
          1716  0307001721 +                      ZR     X7,CAK3     IF FOUND IT                                 FC5A124    25
                          0327001713 +            PL     X7,CAK2     IF KEYWORD LIES IN TOP HALF                 FC5A124    26
          1717  67732                             SB7    B3-B2                                                   FC5A124    27
                     67771                        =B7    B7-1        ADJUST LENGTH                               FC5A124    28
                          66662                   SB6    B6+B2                                                   FC5A124    29
                               66661              =B6    B6+1        POINT TO BOTTOM HALF                        FC5A124    30
          1720  0400001713 +                      EQ     CAK2                                                    FC5A124    31
                                                                                                                 LEX      4847
                                        *         HERE IF A FIND IN KEYWORD TABLE.                               LEX      4848
                                        *                                                                        LEX      4849
                                        *           1. EXTRACT KEYWORD LENGTH FROM FOUND KEYWORD ENTRY.          LEX      4850
                                        *                                                                        LEX      4851
                                        *           2. SET UP *FILL.* AND *FILL.2* TO BE 1ST 14 CHARS            LEX      4852
                                        *              OF KEYWORD ENTRY SO THAT IF WE HAVE TO ISSUE              LEX      4853
                                        *              *MISSPELLED KEYWORD* ERR MSG, IT CAN INDICATE WHAT        LEX      4854
                                        *              WE ASSUMED THE STMT KEYWORD TO BE.                        LEX      4855
                                                                                                                 LEX      4856
                                         CAK3     LX3    KW.KEYP-0                                               LEX      4857
          1721  10633                             BX6    X3                                                      LEX      4858
                     20352                        LX3    0-KW.LENP                                               LEX      4859
                          5160001767 +            SA6    CAKA        SAVE FOUND *KEYW* ENTRY                     LEX      4860
          1722  43765                             MX7    -KW.LENL                                                LEX      4861
                     15437                        BX4    -X7*X3      EXTRACT *LEN*                               LEX      4862
                          63240                   SB2    X4          (B2) = NR OF BITS IN KEYWORD                LEX      4863
                               22602              LX6    X2          (X6) = 1ST 7 CHARS OF KEYWORD ENTRY         LEX      4864
          1723  6130000052                        SB3    7*CHAR                                                  LEX      4865
                          54421                   SA4    A2+B1       (X4) = 2ND 7 CHARS OF KEYWORD ENTRY         LEX      4866
                               13777              BX7    X7-X7                                                   LEX      4867
          1724  64730                             SB7    A3          SET TO ADDRESS OF FOUND KEYWORD             LEX      4868
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   172
                                                                      CAK 
  
                     0632001725 +                 LE     B2,B3,CAK4  IF KEYWORD HAS .LE. 7 CHARS                 LEX      4869
                               22704              LX7    X4                                                      LEX      4870
          1725  5160000000 X             CAK4     SA6    FILL.                                                   LEX      4871
                          54761                   SA7    A6+B1                                                   LEX      4872
                                                                                                                 LEX      4873
                                        *         VERIFY THAT KEYWORD THAT WAS FOUND IS SPELLED CORRECTLY        LEX      4874
                                        *         (NOTE: THIS IS NECESSARY BECAUSE KEYWORD SEARCH IS PERFORMED   LEX      4875
                                        *         USING ONLY THE 1ST 4 CHARACTERS OF KEYWORD).                   LEX      4876
                                        *                                                                        LEX      4877
                                        *         KEYWORD SPELLING VERIFICATION IS ACCOMPLISHED BY SIMPLY        LEX      4878
                                        *         COMPARING THE *O.VAR* KEYWORD TOKENS IN THE TOKEN BUFFER       LEX      4879
                                        *         WITH THE KEYWORD LITERAL STRING SPECIFIED IN KEYWORD TABLE.    LEX      4880
                                        *                                                                        LEX      4881
                                        *         IN THE INTEREST OF MAKING THIS CODE A LITTLE SIMPLER,          LEX      4882
                                        *         THE KEYWORD LITERAL STRING WAS GENERATED INTO TOKEN-SIZE       LEX      4883
                                        *         CHUNKS (7 CHARS PER WORD) AT ASSEMBLY-TIME (VIA *LITKEY*       LEX      4884
                                        *         MACRO IN *FTN5TXT*).                                           LEX      4885
                                        *                                                                        LEX      4886
                                        *         THERE ARE 3 VARIANTS OF THIS SPELLING VERIFICATION,            LEX      4887
                                        *         A DISCUSSION OF WHICH WILL MAKE THIS CODE EASIER               LEX      4888
                                        *         TO UNDERSTAND --                                               LEX      4889
                                        *                                                                        LEX      4890
                                        *           1. VERIFYING FULL TOKENS, AS FOR --                          LEX      4891
                                        *                                                                        LEX      4892
                                        *                VAR'SUBROUT'  VAR'INEYWEE'  VAR'NY'                     LEX      4893
                                        *                                                                        LEX      4894
                                        *              THE 1ST TOKEN WILL BE CHECKED BY MERELY COMPARING         LEX      4895
                                        *              IT TO THE 1ST 7 CHARACTER KEYWORD LITERAL (7LSUBROUT)     LEX      4896
                                        *              SPECIFIED IN THE KEYWORD TABLE ENTRY FOR -SUBR-.          LEX      4897
                                        *                                                                        LEX      4898
                                        *           2. VERIFYING A PARTIAL TOKEN, AS FOR -VAR'INEYWEE'- IN       LEX      4899
                                        *              THE ABOVE EXAMPLE.  CLEARLY, A FULL TOKEN COMPARE         LEX      4900
                                        *              CANNOT BE USED BECAUSE THE SUBROUTINE NAME -YWEENY-       LEX      4901
                                        *              IS CONCATENATED WITH THE KEYWORD -SUBROUTINE-.  IN THIS   LEX      4902
                                        *              CASE, -INE- WILL BE EXTRACTED FROM -VAR'INEYWEE'-         LEX      4903
                                        *              BEFORE COMPARING (EXTRACTION IS PERFORMED BASED ON        LEX      4904
                                        *              THE NUMBER OF BITS THAT SHOULD BE IN KEYWORD.  SEE        LEX      4905
                                        *              *KW.LEN* FIELD).                                          LEX      4906
                                        *                                                                        LEX      4907
                                        *           3. WHEN KEYWORD IN TOKEN BUFFER IS TOO SHORT, AS IN --       LEX      4908
                                        *                                                                        LEX      4909
                                        *                SUBROUT(P1)                                             LEX      4910
                                        *                                                                        LEX      4911
                                        *              (I.E. PROGRAMMER FORGOT SOMETHING OR WAS BEING CUTE).     LEX      4912
                                        *              THEREFORE, THE TOKEN TYPE OF THE NEXT **EXPECTED**        LEX      4913
                                        *              KEYWORD TOKEN MUST BE VERIFIED TO BE *O.VAR* BEFORE       LEX      4914
                                        *              CHECKING CHARS IN TOKEN.                                  LEX      4915
                                                                                                                 LEX      4916
                               63510              SB5    X1          (B5) = TOKEN TYPE OF KEYWORD TOKEN, *O.VAR* LEX      4917
          1726  43452                    CAK5     MX4    TB.TOCL                                                 LEX      4918
                     13333                        BX3    X3-X3                                                   LEX      4919
                          63610                   SB6    X1                                                      LEX      4920
                               11141              BX1    X4*X1       (X1) = 1ST 7 CHARS OF TOKEN, -L- FMT        LEX      4921
          1727  0420001736 +                      ZR     B2,CAK7     IF KEYWORD FELL ON A TOKEN BOUNDARY         LEX      4922
                          0556001753 +            NE     B5,B6,CAK11 IF *TOT*S DO NOT MATCH, KEYWD TOO SHORT...  LEX      4923
          1730  0723001733 +                      LT     B2,B3,CAK6  IF NR CHARS REMAINING TO CHECK .LT. 7       LEX      4924
                          37712                   IX7    X1-X2                                                   LEX      4925
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   173
                                                                      CAK 
  
                               54111              SA1    A1+B1       (A1,X1) = A+C OF NEXT TOKEN                 LEX      4926
          1731  54221                             SA2    A2+B1       (A2,X2) = A+C OF NEXT KEYWORD LITERAL       LEX      4927
                     67223                        SB2    B2-B3                                                   LEX      4928
                          0307001726 +            ZR     X7,CAK5     IF KEYWORD SPELLED OK                       LEX      4929
          1732  67701                             SB7    -B1         SET TO *KEYWORD MISSPELLED*                 LEX      4930
                     0400001726 +                 EQ     CAK5                                                    LEX      4931
                                                                                                                 LEX      4932
                                        *         HERE TO CHECK CHARACTERS IN FINAL/LAST KEYWORD TOKEN.          LEX      4933
                                                                                                                 LEX      4934
          1733  67321                    CAK6     SB3    B2-B1                                                   LEX      4935
                     43301                        MX3    1                                                       LEX      4936
                          23333                   AX3    B3          (X3) = MASK TO EXTRACT LAST CHARS           LEX      4937
                                        *                                   IN KEYWORD FROM KEYWORD TOKEN        LEX      4938
                               11631              BX6    X3*X1                                                   LEX      4939
          1734  37662                             IX6    X6-X2                                                   LEX      4940
                     15113                        BX1    -X3*X1                                                  LEX      4941
                          0306001736 +            ZR     X6,CAK7     IF KEYWORD SPELLED OK                       LEX      4942
          1735  67701                             SB7    -B1         SET TO *KEYWORD MISSPELLED*                 LEX      4943
                                                                                                                 LEX      4944
                                        *         HERE WHEN KEYWORD VALIDITY AND LENGTH IN TOKEN BUFFER          LEX      4945
                                        *         HAVE BEEN DETERMINED.  READY TO MASSAGE *T.TB* IN ORDER        LEX      4946
                                        *         TO LOGICALLY REMOVE KEYWORD FROM TOKEN BUFFER.                 LEX      4947
                                        *                                                                        LEX      4948
                                        *         THIS INVOLVES PERFORMING 2 DISTINCT FUNCTIONS --               LEX      4949
                                        *                                                                        LEX      4950
                                        *           1. CONSIDER THAT, IN FORTRAN, A STMT KEYWORD CAN             LEX      4951
                                        *              SOMETIMES BE CONCATENATED WITH THE 1ST NON-KEYWORD        LEX      4952
                                        *              TOKEN OF THE STMT (AS IN *PRINT100*).  NOW CONSIDER       LEX      4953
                                        *              THAT KEYWORDS ARE MERELY ALPHANUMERIC *O.VAR*             LEX      4954
                                        *              TOKENS.  AFTER REMOVING THE KEYWORD *PRINT* IN            LEX      4955
                                        *              OUR EXAMPLE, THE REMAINING *100* STILL HAS THE            LEX      4956
                                        *              TOKEN TYPE OF THE KEYWORD (I.E. *O.VAR*).                 LEX      4957
                                        *                                                                        LEX      4958
                                        *              THEREFORE, IF AFTER REMOVING THE STMT KEYWORD             LEX      4959
                                        *              THE REMAINING TOKEN BEGINS WITH A NUMERIC (0 THRU 9)      LEX      4960
                                        *              CHARACTER, THE TOKEN TYPE MUST BE CHANGED TO *O.CONS*.    LEX      4961
                                        *                                                                        LEX      4962
                                        *           2. AFTER THE KEYWORD HAS BEEN REMOVED, IT MAY BE             LEX      4963
                                        *              NECESSARY TO ADJUST THE REMAINING EX-KEYWORD TOKEN(S).    LEX      4964
                                        *                                                                        LEX      4965
                                        *              CONSIDER THE FOLLOWING --                                 LEX      4966
                                        *                                                                        LEX      4967
                                        *                SUBROUTINE DOGGY                                        LEX      4968
                                        *                                                                        LEX      4969
                                        *              WHICH BECOMES IN *T.TB* --                                LEX      4970
                                        *                                                                        LEX      4971
                                        *                O.BOS  O.VAR'SUBROUT'  O.VAR'INEDOGG'  O.VAR'Y'  O.EOS  LEX      4972
                                        *                                                                        LEX      4973
                                        *              AFTER REMOVING KEYWORD --                                 LEX      4974
                                        *                                                                        LEX      4975
                                        *                O.VAR'DOGG'  O.VAR'Y'  O.EOS                            LEX      4976
                                        *                                                                        LEX      4977
                                        *              NOW IT CAN BE SEEN THAT THE 1ST NON-KEYWORD TOKEN         LEX      4978
                                        *              IS SPLIT ACROSS 2 TOKENS AND THAT THE 1ST OF THESE        LEX      4979
                                        *              ONLY CONTAINS 4 CHARACTERS.                               LEX      4980
                                        *                                                                        LEX      4981
                                        *              THIS IS A VIOLATION OF THE TOKEN STRUCTURE, AND           LEX      4982
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   174
                                                                      CAK 
  
                                        *              THEREFORE *T.TB* IS MASSAGED TO PRODUCE --                LEX      4983
                                        *                                                                        LEX      4984
                                        *                O.VAR'DOGGY'  O.EOS                                     LEX      4985
                                                                                                                 LEX      4986
          1736  66340                    CAK7     SB3    B4          SAVE ORIGINAL (B4)                          LEX      4987
                     64410                        SB4    A1                                                      LEX      4988
                          0556001754 +            NE     B5,B6,CAK12 IF KEYWORD TOKEN IS EMPTY                   LEX      4989
          1737  43666                             MX6    -CHAR                                                   LEX      4990
                     22721                        LX7    X1,B2       (X7) = REMAINING NON-KEYWORD CHARS, -L- FMT LEX      4991
                          20706                   LX7    CHAR                                                    LEX      4992
                               15776              BX7    -X6*X7                                                  LEX      4993
          1740  7267777744                        SX6    X7-1R0                                                  LEX      4994
                          7170000005              SX7    O.CONS                                                  LEX      4995
          1741  0326001743 +                      PL     X6,CAK8     IF NUMERIC (0 THRU 9)                       LEX      4996
                          7170000011              SX7    O.VAR                                                   LEX      4997
          1742  0420001754 +                      ZR     B2,CAK12    IF ON TOKEN BOUNDARY .AND. ALREADY *O.VAR*  LEX      4998
                                                                                                                 LEX      4999
                                        *         HERE TO LEFT-SHIFT REMAINING NON-KEYWORD TOKENS                LEX      5000
                                        *         IN TOKEN BUFFER.                                               LEX      5001
                                        *                                                                        LEX      5002
                                        *         E.G.:     O.VAR'DOGG'  O.VAR'Y'                                LEX      5003
                                        *                                                                        LEX      5004
                                        *         BECOMES:  O.VAR'DOGGY'                                         LEX      5005
                                        *                                                                        LEX      5006
                                        *         IN THE INTEREST OF UNDERSTANDIBILTY, THE FOLLOWING CODE        LEX      5007
                                        *         IS COMMENTED BY USING 2 EXAMPLES WHICH TYPIFY THE 2 WAYS       LEX      5008
                                        *         THIS CODE IS USED.                                             LEX      5009
                                        *                                                                        LEX      5010
                                        *           1. EXAMPLE 1 SHOWS HOW A KEYWORD STRUCTURE OF THE FORM --    LEX      5011
                                        *                                                                        LEX      5012
                                        *                O.VAR'KKKKKKK'  O.VAR'KKABCDE'  O.VAR'FGHIJKL'          LEX      5013
                                        *                                                                        LEX      5014
                                        *              IS PROCESSED.  *KKKKKKKKK* IS THE REMOVED KEYWORD,        LEX      5015
                                        *              AND *ABCDEFGHIJKL* IS WHAT REMAINS.                       LEX      5016
                                        *                                                                        LEX      5017
                                        *           2. EXAMPLE 2 SHOWS HOW A KEYWORD STRUCTURE OF THE FORM --    LEX      5018
                                        *                                                                        LEX      5019
                                        *                O.VAR'KKKKKKK'  O.VAR'MNOPQRS'  O.VAR'TUVWXYZ'          LEX      5020
                                        *                                                                        LEX      5021
                                        *              IS PROCESSED.                                             LEX      5022
                                        *                                                                        LEX      5023
                                        *         THE FUNDAMENTAL DIFFERENCE BETWEEN THESE 2 EXAMPLES IS         LEX      5024
                                        *         THE FACT THAT IN EXAMPLE 2 NO LEFT SHIFT IS NECESSARY          LEX      5025
                                        *         (ONLY THE TOKEN TYPE NEEDS TO BE CHANGED), WHEREAS FOR         LEX      5026
                                        *         EXAMPLE 1, BOTH A LEFT-SHIFT AND A TOKEN TYPE (TOT)            LEX      5027
                                        *         CHANGE NEEDS TO BE PERFORMED.                                  LEX      5028
                                        *                                                                        LEX      5029
                                        *         OTHER ASPECTS OF THIS COMMENTING NOTATION ARE --               LEX      5030
                                        *                                                                        LEX      5031
                                        *           --- = ORGINAL TOKEN TYPE (TO BE REPLACED WITH *+++*).        LEX      5032
                                        *           +++ = NEW TOKEN TYPE.                                        LEX      5033
                                        *           0   = 00B, I.E. A NULL CHARACTER BYTE.                       LEX      5034
                                        *           7   = 77B, I.E. A CHARACTER EXTRACT MASK BYTE.               LEX      5035
                                                                                                                 LEX      5036
          1743  22121                    CAK8     LX1    B2          (X1) = ABCDE00000  IF (B2) .NZ.             LEX      5037
                                        *                                 = MNOPQRS000  IF (B2) .ZR.             LEX      5038
                     10211                        BX2    X1                                                      LEX      5039
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   175
                                                                      CAK 
  
                          36617                   IX6    X1+X7       (X6) = ABCDE00+++  IF (B2) .NZ.             LEX      5040
                                        *                                 = MNOPQRS+++  IF (B2) .ZR.             LEX      5041
                               54111              SA1    A1+B1       (X1) = FGHIJKL---  IF (B2) .NZ.             LEX      5042
                                        *                                 = TUVWXYZ---  IF (B2) .ZR.             LEX      5043
          1744  63610                             SB6    X1                                                      LEX      5044
                     11141                        BX1    X4*X1       (X1) = FGHIJKL000  IF (B2) .NZ.             LEX      5045
                                        *                                 = TUVWXYZ000  IF (B2) .ZR.             LEX      5046
                          0420001747 +            ZR     B2,CAK9     IF JUST CHANGING TOKEN TYPE                 LEX      5047
          1745  0556001747 +                      NE     B5,B6,CAK9  IF NEXT TOKEN NOT *VAR*, DONE...            LEX      5048
                          11231                   BX2    X3*X1       (X2) = FG00000000                           LEX      5049
                               15113              BX1    -X3*X1      (X1) = 00HIJKL000                           LEX      5050
          1746  20222                             LX2    TB.TOTL                                                 LEX      5051
                     22222                        LX2    B2          (X2) = 00000FG000                           LEX      5052
                          12662                   BX6    X6+X2       (X6) = ABCDEFG+++                           LEX      5053
                               22201              LX2    X1                                                      LEX      5054
                                                                                                                 LEX      5055
          1747  5061777776               CAK9     SA6    A1-1                                                    LEX      5056
                          0456001743 +            EQ     B5,B6,CAK8  IF NEXT TOKEN IS *VAR*, CONTINUE...         LEX      5057
                                                                                                                 LEX      5058
                                        *         IF LEFT-SHIFT IN TOKEN BUFFER CREATED A HOLE (I.E. AN EMPTY    LEX      5059
                                        *         TOKEN), THEN WE NEED TO RIGHT-SHIFT EVERYTHING WE JUST GOT     LEX      5060
                                        *         THROUGH LEFT-SHIFTING TO FILL IN THE HOLE.                     LEX      5061
                                        *                                                                        LEX      5062
                                        *         E.G.:   O.VAR'DOGG'  O.VAR'Y'  EOS                             LEX      5063
                                        *                                                                        LEX      5064
                                        *         BECOMES: O.VAR'DOGGY'  **HOLE**  EOS                           LEX      5065
                                        *                                                                        LEX      5066
                                        *         NEED TO RIGHT-SHIFT TO: O.VAR'DOGGY' EOS                       LEX      5067
                                                                                                                 LEX      5068
          1750  0312001754 +                      NZ     X2,CAK12    IF NOT HOLE                                 LEX      5069
                                                                                                                 LEX      5070
                          64260                   SB2    A6                                                      LEX      5071
                               66441              SB4    B4+B1                                                   LEX      5072
          1751  57121                    CAK10    SA1    B2-B1                                                   LEX      5073
                     67221                        SB2    B2-B1                                                   LEX      5074
                          10611                   BX6    X1                                                      LEX      5075
                               54611              SA6    A1+B1                                                   LEX      5076
          1752  0624001751 +                      GE     B2,B4,CAK10 IF MORE TO MOVE                             LEX      5077
                          0400001754 +            EQ     CAK12                                                   LEX      5078
                                                                                                                 LEX      5079
                                        *         SPECIAL PLACE FOR SETTING *MISSPELLED KEYWORD* ERR STATUS.     LEX      5080
                                                                                                                 LEX      5081
          1753  6170777776               CAK11    SB7    -1          SET TO *MISSPELLED KEYWORD*                 LEX      5082
                                                                                                                 LEX      5083
                                        *         SET UP EXIT CONDITIONS.                                        LEX      5084
                                                                                                                 LEX      5085
          1754  5130001767 +             CAK12    SA3    CAKA        (X3) = KEYWORD TABLE ENTRY FOR THIS KEYWORD LEX      5086
                          10633                   BX6    X3                                                      LEX      5087
                                                                                                                 LEX      5088
                                        **        BEFORE LEAVING, ANY O.CONS TOKEN FOLLOWING THE KEYWORD MUST BE LEX      5089
                                        *         CHECKED FOR IMBEDDED NON-DIGITS.                               LEX      5090
                                                                                                                 LEX      5091
                               56140              SA1    B4          X1 = TOKEN FOLLOWING THE KEYWORD            LEX      5092
          1755  7221777772                        SX2    X1-O.CONS                                               LEX      5093
                          0312001711 +            NZ     X2,EXIT.    IF NOT O.CONS                               LEX      5094
          1756  5120000000 X                      SA2    FILL.       X2 = KEYWORD                                LEX      5095
                          5130002175 +            SA3    =0LASSIGN                                               LEX      5096
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   176
                                                                      CAK 
  
          1757  13323                             BX3    X2-X3                                                   LEX      5097
                     0303001711 +                 ZR     X3,EXIT.    IF *ASSIGN* KEYWORD                         LEX      5098
          1760  5130002275 +                      SA3    =0LDO                                                   LEX      5099
                          13323                   BX3    X2-X3                                                   LEX      5100
          1761  0303001711 +                      ZR     X3,EXIT.    IF *DO* KEYWORD                             LEX      5101
                          43352                   MX3    TB.TOCL                                                 LEX      5102
                                                  LX1    59-TB.TOCP+1-TB.TOCL                                    LEX      5103
                               11131              BX1    X3*X1       X1 = TOKEN ONLY                             LEX      5104
          1762  10711                             BX7    X1                                                      LEX      5105
                     43366                        MX3    -CHAR                                                   LEX      5106
          1763  20106                    CAK15    LX1    CHAR                                                    LEX      5107
                     15213                        BX2    -X3*X1                                                  LEX      5108
                          0302001711 +            ZR     X2,EXIT.    IF END OF TOKEN                             LEX      5109
          1764  7222777744                        SX2    X2-1R0                                                  LEX      5110
                          0322001763 +            PL     X2,CAK15    IF NUMERIC (0 THRU 9)                       LEX      5111
          1765  7120000046                        SX2    O.ILL                                                   LEX      5112
                          12772                   BX7    X7+X2       CHANGE TO O.ILL                             LEX      5113
                               56740              SA7    B4          UPDATE *TB*                                 LEX      5114
          1766  0400001711 +                      EQ     EXIT.                                                   LEX      5115
                                                                                                                 LEX      5116
                                                                                                                 LEX      5117
          1767                     1     CAKA     BSSZ   1           SAVED FOUND *KEYW* ENTRY                    LEX      5118
  
  
  
  
                                        **        EOC - END OF '' (TYPE *CHARACTER*) STRING PROCESSING.          LEX      5120
                                        *                                                                        LEX      5121
                                        *         HERE WHEN THE TERMINATING QUOTE OF A ' QUOTE DELIMITED         LEX      5122
                                        *         STRING HAS BEEN FOUND/SENSED.  NEED TO --                      LEX      5123
                                        *                                                                        LEX      5124
                                        *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING        LEX      5125
                                        *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                     LEX      5126
                                        *                                                                        LEX      5127
                                        *           2. UPDATE THE INCOMPLETE *O.CHAR* TOKEN BY STORING THE       LEX      5128
                                        *              NR OF CHARACTERS IN THE STRING INTO IT.                   LEX      5129
                                        *                                                                        LEX      5130
                                        *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*  LEX      5131
                                        *              IMMEDIATELY FOLLOWING THE *O.CHAR* TOKEN INTO *T.CHAR*    LEX      5132
                                        *              VIA *NCM* (ENTER CM INTO TABLE).                          LEX      5133
                                        *                                                                        LEX      5134
                                        *         ENTRY  (B3) = LWA+1 OF CHARACTER STRING.                       LEX      5135
                                        *                                                                        LEX      5136
                                        *                (CH=CNT)  = CHARACTER STRING COUNT.                     LEX      5137
                                        *                (CH=TYPE) = CHARACTER STRING TYPE.                      LEX      5138
                                        *                (CH=TAD)  = CHARACTER STRING TOKEN ADDRESS.             LEX      5139
                                        *                                                                        LEX      5140
                                        *                SEE DATA STRUCTURES/CH=XXX CELLS FOR MORE INFORMATION.  LEX      5141
                                        *                                                                        LEX      5142
                                        *         EXIT   (A6) = ADDR OF *O.CHAR* TOKEN.                          LEX      5143
                                        *                                                                        LEX      5144
                                        *         USES   ALL                                                     LEX      5145
                                        *                                                                        LEX      5146
                                        *         CALLS  NCM,SFN                                                 LEX      5147
                                                                                                                 LEX      5148
                                                                                                                 LEX      5149
          1770  0400401770 +             EOC      SUBR               ** ENTRY/EXIT **                            LEX      5150
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   177
                                                                      EOC 
  
                                                                                                                 LEX      5151
          1771  5110000004 +                      SA1    LEXFLG                                                  FC5A110    52
                          43201                   MX2    1                                                       FC5A110    53
                               20260              LX2    LF.TDEP-59                                              FC5A110    54
          1772  15712                             BX7    -X2*X1      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    55
                     54710                        SA7    A1                                                      FC5A110    56
                          57131                   =A1    B3-1        (A1,X1) = A+C OF LAST WORD IN STRING        FC5A110    57
          1773  5120000000 +                      SA2    CH=CNT                                                  LEX      5153
                          73221                   =X2    X2+1                                                    LEX      5154
          1774  0302002006 +                      ZR     X2,EOC10    IF EMPTY STRING                             LEX      5155
                          14222                   BX2    -X2                                                     LEX      5156
          1775  0100002151 +                      RJ     SFT         SPACE FILL LAST WORD OF STRING              LEX      5157
          1776  5110000002 +                      SA1    CH=TAD      (X1) = ADDR OF *O.HOL* TOKEN                LEX      5158
                          63211                   SB2    X1+B1       (B2) = FWA OF STRING                        LEX      5159
                               77232              SX2    B3-B2       (X2) = LEN OF STRING (IN WORDS)             LEX      5160
          1777  53110                             SA1    X1          (A1,X1) = A+C OF *O.CHAR* TOKEN             LEX      5161
                     20222                        LX2    TB.LCONP-0                                              LEX      5162
                          12712                   BX7    X1+X2       MERGE *LCON*                                LEX      5163
          2000  5120000000 +                      SA2    CH=CNT      (X2) = -(CHAR COUNT+1)                      LEX      5164
                          73321                   SX3    X2+B1       (X3) = -(CHAR COUNT)                        LEX      5165
                               20333              LX3    TB.CLCNP-0                                              LEX      5166
          2001  16773                             BX7    -X3+X7      MERGE *CLCN*                                LEX      5167
                     54710                        SA7    A1          ENTER *O.CHAR* TOKEN W/O *T.CHAR* ORD       LEX      5168
                                                                                                                 LEX      5169
                                        *         ENTER STRING INTO *T.CHAR*.                                    LEX      5170
                                        *                                                                        LEX      5171
                                        *         ENTRY  (B2) = FWA OF STRING                                    LEX      5172
                                        *                (B3) = LWA+1 OF STRING.                                 LEX      5173
                                                                                                                 LEX      5174
                          5110000000 X            SA1    =XT.CON                                                 LEX      5175
          2002  6170000000                        SB7    B0+         SET TO *IF NOT IN TABLE, GO ENTER IT...*    LEX      5176
                          0100000000 X            CALL   NCM         ENTER CM INTO TABLE                         LEX      5177
                                                                                                                 LEX      5178
                                                  IFEQ   TEST,ON,1                                               LEX      5179
                                                  MI     B7,"BLOWUP" IF SOMETHING IS FISHY...                    LEX      5180
                                                                                                                 LEX      5181
                                        *         MERGE *T.CHAR* ORDINAL INTO *O.CHAR* TOKEN.                    LEX      5182
                                                                                                                 LEX      5183
          2003  5110000002 +                      SA1    CH=TAD                                                  LEX      5184
                          43700                   MX7    0                                                       LEX      5185
                               54710              SA7    A1          SET TO *'' STRING IS COMPLETE*              LEX      5186
          2004  53110                             SA1    X1          (X1) = *O.CHAR* TOKEN                       LEX      5187
                     76270                        SX2    B7          (X2) = *T.CHAR* ORD                         LEX      5188
                          20252                   LX2    TB.SHCP-0                                               LEX      5189
                               12612              BX6    X1+X2       MERGE *SHC*                                 LEX      5190
          2005  5061000000                        SA6    A1+                                                     LEX      5191
                          0400001770 +            EQ     EXIT.                                                   LEX      5192
                                                                                                                 LEX      5193
          2006  5110000002 +             EOC10    SA1    CH=TAD                                                  LEX      5194
                          43700                   MX7    0                                                       LEX      5195
                               54710              SA7    A1          STRING COMPLETE                             LEX      5196
          2007  7170000046                        =X7    O.ILL                                                   LEX      5197
                          5120002324 +            SA2    =2L''                                                   LEX      5198
          2010  12772                             BX7    X7+X2                                                   LEX      5199
                     53710                        SA7    X1          RESET TO *ILL*                              LEX      5200
                          6170000000 X            FATAL  E.HC1                                                   LEX      5201
          2012  0400001770 +                      EQ     EXIT.                                                   LEX      5202
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   178
                                                                      EOH 
  
                                        **        EOH - END OF HOLLERITH STRING PROCESSING.                      LEX      5204
                                        *                                                                        LEX      5205
                                        *         ------------                                                   LEX      5206
                                        *         *HLR* STRING                                                   LEX      5207
                                        *         ------------                                                   LEX      5208
                                        *                                                                        LEX      5209
                                        *           1. UPDATE INCOMPLETE *O.HOLL* TOKEN TO REFLECT WORD LEN      LEX      5210
                                        *              AND *T.CONS* ORDINAL.                                     LEX      5211
                                        *                                                                        LEX      5212
                                        *           2. FORMAT FINAL/LAST WORD OF STRING IN *HOLLSKL*.            LEX      5213
                                        *                                                                        LEX      5214
                                        *             A. IF -H- TYPE STRING, SPACE-FILL LAST WORD.               LEX      5215
                                        *             B. IF -R- TYPE STRING, RIGHT-JUSTIFY LAST WORD.            LEX      5216
                                        *             C. IF -L- TYPE STRING, DONT NEED TO DO ANYTHING.           LEX      5217
                                        *                                                                        LEX      5218
                                        *           3. ENTER THE STRING WHICH WAS TEMPORARILY STORED INTO *T.TB* LEX      5219
                                        *              IMMEDIATELY FOLLOWING THE INCOMPLETE *O.HOLL* TOKEN INTO  LEX      5220
                                        *              *T.CON* VIA *NCM* (ENTER CM INTO TABLE).                  LEX      5221
                                        *                                                                        LEX      5222
                                        *         ---------                                                      LEX      5223
                                        *         "" STRING                                                      LEX      5224
                                        *         ---------                                                      LEX      5225
                                        *                                                                        LEX      5226
                                        *           1. SPACE-FILL THE FINAL/LAST WORD OF THE QUOTE STRING        LEX      5227
                                        *              BECAUSE QUOTE STRINGS ARE -H- FORMAT.                     LEX      5228
                                        *                                                                        LEX      5229
                                        *           2. UPDATE THE INCOMPLETE *O.HOLL* TOKEN BY STORING THE       LEX      5230
                                        *              STRING LENGTHS (NR OF WORDS OCCUPIED BY THE STRING, AND   LEX      5231
                                        *              NR OF CHARACTERS IN THE STRING) INTO IT.                  LEX      5232
                                        *                                                                        LEX      5233
                                        *           3. ENTER THE STRING THAT WAS TEMPORARILY STORED INTO *T.TB*  LEX      5234
                                        *              IMMEDIATELY FOLLOWING THE *O.HOLL* TOKEN INTO *T.CON*     LEX      5235
                                        *              VIA *NCM* (ENTER CM INTO TABLE).                          LEX      5236
                                        *                                                                        LEX      5237
                                        *         ENTRY  (B3) = LWA+1 OF HOLLERITH STRING.                       LEX      5238
                                        *                                                                        LEX      5239
                                        *                (CH=CNT)  = CHARACTER STRING COUNT.                     LEX      5240
                                        *                (CH=TYPE) = CHARACTER STRING TYPE.                      LEX      5241
                                        *                (CH=TAD)  = CHARACTER STRING TOKEN ADDRESS.             LEX      5242
                                        *                                                                        LEX      5243
                                        *                SEE DATA STRUCTURES/CH=XXX CELLS FOR MORE INFORMATION.  LEX      5244
                                        *                                                                        LEX      5245
                                        *         EXIT   (A6) = ADDR OF *O.HOLL* TOKEN.                          LEX      5246
                                        *                                                                        LEX      5247
                                        *         USES   ALL                                                     LEX      5248
                                        *                                                                        LEX      5249
                                        *         CALLS  NCM,SFN                                                 LEX      5250
                                                                                                                 LEX      5251
                                                                                                                 LEX      5252
          2013  0400402013 +             EOH      SUBR               ** ENTRY/EXIT **                            LEX      5253
          2014  5130000004 +                      SA3    LEXFLG                                                  FC5A110    58
                          43401                   MX4    1                                                       FC5A110    59
                               20460              LX4    LF.TDEP-59                                              FC5A110    60
          2015  15634                             BX6    -X4*X3      INDICATE NO TERMINAL DELIMITER ENCOUNTERED  FC5A110    61
                     54630                        SA6    A3                                                      FC5A110    62
                          5130000002 +            SA3    CH=TAD      (X3) = ADDR OF *O.HOLL* TOKEN               LEX      5254
          2016  5140000003 +                      SA4    CH=TYPE                                                 LEX      5255
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   179
                                                                      EOH 
  
                          6223000001              SB2    X3+1        (B2) = FWA OF STRING                        LEX      5256
          2017  77232                             SX2    B3-B2       (X2) = LEN OF STRING                        LEX      5257
                     20222                        LX2    TB.LCONP-0                                              LEX      5258
                          53330                   SA3    X3          (A3,X3) = A+C OF *O.HOLL* TOKEN             LEX      5259
                               12632              BX6    X3+X2       MERGE *LCON*                                LEX      5260
          2020  20252                             LX2    -TB.LCONP                                               LEX      5261
                     7274777776                   SX7    X4-CT.H                                                 LEX      5262
          2021  0307002025 +                      ZR     X7,EOH2     IF *H* STRING                               LEX      5263
                          7274777773              SX7    X4-CT.DQT                                               FC5A258    15
          2022  0307002023 +                      ZR     X7,EOH1     IF *""* STRING                              FC5A258    16
                          76310                   =X3    -O.QHOLL+O.RLCON                                        FC5A258    17
                               36663              IX6    X6+X3       CONVERT THE TOKEN                           FC5A258    18
                                                                                                                 FC5A258    19
          2023  5110000000 +             EOH1     SA1    CH=CNT      (X1) = -(CHAR COUNT+1)                      FC5A258    20
                          73211                   =X2    X1+1        (X2) = -(CHAR COUNT)                        FC5A258    21
                               20233              LX2    TB.CLCNP-0                                              LEX      5266
          2024  16662                             BX6    -X2+X6      MERGE *CLCN*                                LEX      5267
                     20241                        LX2    -TB.CLCNP                                               LEX      5268
                                                                                                                 FC5A258    22
          2025  5063000000               EOH2     SA6    A3+         ENTER *O.HOLL* TOKEN W/O *T.CON* ORD        LEX      5269
                          0302002042 +            ZR     X2,EOH10    IF EMPTY STRING                             LEX      5270
                                                                                                                 LEX      5271
                                        *         FORMAT FINAL/LAST WORD OF STRING, IF NECESSARY.                LEX      5272
                                                                                                                 LEX      5273
          2026  7274777775                        SX7    X4-CT.L                                                 LEX      5274
                          0307002035 +            ZR     X7,EOH3     IF -L- STRING, ENTER IT INTO *T.CON*...     LEX      5275
          2027  57131                             SA1    B3-B1       (A1,X1) = A+C OF LAST WORD IN STRING        LEX      5276
                     20641                        LX6    -TB.CLCNP                                               LEX      5277
                          43055                   MX0    -TB.CLCNL                                               LEX      5278
                               15260              BX2    -X0*X6                                                  LEX      5279
          2030  0100002151 +                      RJ     SFT         SPACE FILL LAST WORD OF STRING              LEX      5280
          2031  7214777776                        SX1    X4-CT.H                                                 LEX      5281
                          0301002035 +            ZR     X1,EOH3     IF -H- STRING, ENTER IT INTO *T.CON*...     LEX      5282
          2032  7214777773                        SX1    X4-CT.DQT                                               LEX      5283
                          0301002035 +            ZR     X1,EOH3     IF "" STRING, ENTER IT INTO *T.CON*...      LEX      5284
                                                                                                                 LEX      5285
                                                  IFEQ   TEST,ON,2                                               LEX      5286
                                                  SX1    X4-CT.R                                                 LEX      5287
                                                  NZ     X1,"BLOWUP" IF NOT -R- STRING, HWUMP...                 LEX      5288
          2033  11676                             BX6    X7*X6       (X6) = LAST WORD OF STRING, -L- FMT AGAIN   LEX      5289
                     47777                        CX7    X7          (X7) = NR OF BITS IN LAST WORD              LEX      5290
                          63470                   SB4    X7                                                      LEX      5291
                               22646              LX6    B4          (X6) = LAST WORD OF STRING, -R- FMT         LEX      5292
          2034  5061000000                        SA6    A1+                                                     LEX      5293
                                                                                                                 LEX      5294
                                        *         ENTER STRING INTO *T.CON*.                                     LEX      5295
                                        *                                                                        LEX      5296
                                        *         ENTRY  (B2) = FWA OF STRING                                    LEX      5297
                                        *                (B3) = LWA+1 OF STRING.                                 LEX      5298
                                                                                                                 LEX      5299
          2035  5110000000 X             EOH3     SA1    T.CON                                                   FC5A258    23
                          6170000000              SB7    B0+         SET TO *IF NOT IN TABLE, GO ENTER IT...*    LEX      5301
          2036  0100000000 X                      CALL   NCM         ENTER CM INTO TABLE                         LEX      5302
                                                  IFEQ   TEST,ON,1                                               LEX      5303
                                                  MI     B7,"BLOWUP" IF SOMETHING IS FISHY...                    LEX      5304
                                                                                                                 LEX      5305
                                        *         MERGE *T.CON* ORDINAL INTO *O.HOLL* TOKEN.                     LEX      5306
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   180
                                                                      EOH 
  
                                                                                                                 LEX      5307
          2037  5110000002 +                      SA1    CH=TAD                                                  LEX      5308
                          43700                   MX7    0                                                       LEX      5309
                               54710              SA7    A1          SET TO *"" STRING IS COMPLETE*              LEX      5310
          2040  5211000000                        SA1    X1+         (X1) = *O.HOL* TOKEN                        LEX      5311
                          76270                   SX2    B7          (X2) = *T.CON* ORD                          LEX      5312
                               20252              LX2    TB.SHCP-0                                               LEX      5313
          2041  12612                             BX6    X1+X2       MERGE *SHC*                                 LEX      5314
                     54610                        SA6    A1                                                      LEX      5315
                          0400002013 +            EQ     EXIT.                                                   LEX      5316
                                                                                                                 LEX      5317
          2042  5110000002 +             EOH10    SA1    CH=TAD                                                  LEX      5318
                          7160000046              =X6    O.ILL                                                   LEX      5319
          2043  5120002325 +                      SA2    =2L""                                                   LEX      5320
                          0317002045 +            NZ     X7,EOH15    IF "" STRING                                LEX      5321
          2044  5120002303 +                      SA2    =7LBAD-STR                                              LEX      5322
          2045  12662                    EOH15    BX6    X6+X2       MERGE DPC WITH TOKEN TYPE                   LEX      5323
                     43700                        MX7    0                                                       LEX      5324
                          54710                   SA7    A1          STRING COMPLETE                             LEX      5325
                               53610              SA6    X1          RESET TO *ILL*                              LEX      5326
          2046  6170000000 X                      FATAL  E.HC1                                                   LEX      5327
          2047  0400002013 +                      EQ     EXIT.                                                   LEX      5328
  
  
  
  
                                        **        ILX - INITIALIZE *LEX*.                                        LEX      5330
                                        *                                                                        LEX      5331
                                        *                                                                        LEX      5332
                                        *         THIS ROUTINE PERFORMS MISCELLANEOUS INITIALIZATIONS NECESSARY  LEX      5333
                                        *         AT STATEMENT BOUNDARIES (I.E. RIGHT AFTER *LEX* IS CALLED).    LEX      5334
                                        *                                                                        LEX      5335
                                        *         ENTRY  NONE                                                    LEX      5336
                                        *                                                                        LEX      5337
                                        *         EXIT   NONE                                                    LEX      5338
                                        *                                                                        LEX      5339
                                        *         USES   X - 1,2,6,7                                             LEX      5340
                                        *                A - 1,6,7                                               LEX      5341
                                        *                B - NONE                                                LEX      5342
                                        *                                                                        LEX      5343
                                        *         CALLS  SHRINK                                                  LEX      5344
                                                                                                                 LEX      5345
                                                                                                                 LEX      5346
          2050  0400402050 +             ILX      SUBR               ** ENTRY/EXIT **                            LEX      5347
          2051  7160000000                        SX6    0                                                       LEX      5348
                          5160000000 X            SHRINK T=TB,X6                                                 LEX      5349
          2052  5160000002 +                      SA6    CH=TAD                                                  LEX      5350
                          5160000045 +            SA6    TC=TBA                                                  LEX      5351
          2053  5160000022 +                      SA6    TB=1ST                                                  LEX      5352
                          5160000023 +            SA6    TB=CDF                                                  LEX      5353
          2054  5160000024 +                      SA6    TB=LABL                                                 LEX      5354
                          5160000025 +            SA6    TB=LABR                                                 LEX      5355
          2055  5160000026 +                      SA6    TB=LLP                                                  LEX      5356
                          5160000027 +            SA6    TB=NUML                                                 LEX      5357
          2056  5160000030 +                      SA6    TB=NUMR                                                 LEX      5358
                          5160000031 +            SA6    TB=PLVL                                                 LEX      5359
          2057  5160000032 +                      SA6    TB=TYPE                                                 LEX      5360
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   181
                                                                      ILX 
  
                          5110000004 +            SA1    LEXFLG                                                  LEX      5361
          2060  43201                             CLAS=  X2,LF,(LAC)                                             LEX      5362
                          12712                   BX7    X1+X2       SET TO *LEX ACTIVE*                         LEX      5363
                               43201              CLAS=  X2,LF,(CHR)                                             LEX      5364
                     15772                        BX7    -X2*X7      CLEAR *CHR*                                 LEX      5365
                          43201                   CLAS=  X2,LF,(TDE)                                             FC5A110    63
          2062  15772                             BX7    -X2*X7      CLEAR *TDE*                                 FC5A110    64
                     54710                        SA7    A1                                                      LEX      5368
                                                  LX1    59-LF.HDRP                                              LEX      5369
                          5160000017 +            SA6    SB=CONT                                                 LEX      5370
          2063  0331002050 +                      MI     X1,EXIT.    IF IN *HEADER DELAY* MODE                   LEX      5371
                          5160000000 X            SHRINK T=STMT,X6                                               LEX      5372
          2064  5160000020 +                      SA6    SB=LINC                                                 LEX      5373
                          5160000021 +            SA6    SB=LORD                                                 LEX      5374
          2065  0400002050 +                      EQ     EXIT.                                                   LEX      5375
  
  
  
  
                                        **        LDB - LIST DEFERRED BUFFER.                                    LEX      5377
                                        *                                                                        LEX      5378
                                        *                                                                        LEX      5379
                                        *         THIS ROUTINE PERFORMS THE TASK OF LISTING THE CONTENTS         LEX      5380
                                        *         OF *T.STMT*, WHICH CONTAINS ALL THE SOURCE LINE IMAGES         LEX      5381
                                        *         FOR THE CURRENT STATEMENT (I.E. INITIAL LINE AND CONTINUATION  LEX      5382
                                        *         LINES, PLUS POSSIBLY IMBEDDED COMMENT LINES IN *BEFORE HEADER* LEX      5383
                                        *         MODE).                                                         LEX      5384
                                        *                                                                        LEX      5385
                                        *         THESE LINES WERE PLACED IN *T.STMT* BY *PLR* (PROCESS LISTING  LEX      5386
                                        *         REQUEST), BUT MAY OR MAY NOT HAVE BEEN ACTUALLY LISTED.        LEX      5387
                                        *         WHENEVER SOMEBODY INVOLVED IN THE COMPILERS LISTING LOGIC      LEX      5388
                                        *         WISHES TO ENSURE THAT A STATEMENT (EMPHASIZE *STATEMENT*) HAS  LEX      5389
                                        *         BEEN LISTED, THEY CALL *LDB* TO DO THIS.  *LDB*, THEREFORE,    LEX      5390
                                        *         CONSTITUTES A FOCAL POINT FOR MAKING SURE THAT A STMT DOES NOT LEX      5391
                                        *         GET ACCIDENTLY LISTED TWICE, OR THREE TIMES, OR...             LEX      5392
                                        *                                                                        LEX      5393
                                        *         EACH LINE IN *T.STMT* IS PREFIXED WITH A *LINE INFORMATION*    LEX      5394
                                        *         HEADER WORD BY *PLR*, WHICH CONTAINS THE LENGTH OF THIS        LEX      5395
                                        *         *T.STMT* ENTRY, THE *LINE TYPE* OF THIS LINE, AND A BIT        LEX      5396
                                        *         THAT INDICATES WHETHER THIS LINE HAS ALREADY BEEN LISTED.      LEX      5397
                                        *         THIS *LINE INFO* WORD IS DEFINED VIA *SB.* STRUCTURE           LEX      5398
                                        *         DEFINITIONS.  SEE *SB./SB=* SYMBOLS.                           LEX      5399
                                        *                                                                        LEX      5400
                                        *         NOTE THAT *LDB* DOES **NOT** CHANGE THE LENGTH OF *T.STMT*.    LEX      5401
                                        *         THIS IS BECAUSE *T.STMT* IS USED FOR TOKEN GENERATION AS       LEX      5402
                                        *         WELL AS LISTING.                                               LEX      5403
                                        *                                                                        LEX      5404
                                        *         EXAMPLE OF *T.STMT* FORMAT --                                  LEX      5405
                                        *                                                                        LEX      5406
                                        *           FOR THE SOURCE STATEMENT BEGINNING AT LINE 10 --             LEX      5407
                                        *             COL 1     7                                                LEX      5408
                                        *                       DIMENSIONS(1),                                   LEX      5409
                                        *                      , OF(2),                                          LEX      5410
                                        *                      , THE(3),MIND(4)                                  LEX      5411
                                        *                                                                        LEX      5412
                                        *           *T.STMT* WOULD BE --                                         LEX      5413
                                        *                                                                        LEX      5414
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   182
                                                                      LDB 
  
                                        * WORD        0       1         2         3         4         5          LEX      5415
                                        *      LT.INIT/LEN=6  .......10.................DIMENSIONS(1),0000000000 LEX      5416
                                        *                                                                        LEX      5417
                                        * WORD        6       7         8         9        10        11          LEX      5418
                                        *      LT.CONT/LEN=6  .......11................,.OF(2),.......0000000000 LEX      5419
                                        *                                                                        LEX      5420
                                        * WORD       12      13        14        15        16        17          LEX      5421
                                        *      LT.CONT/LEN=7  .......12................,.THE(3),MIND(4)......... LEX      5422
                                        *                                                                        LEX      5423
                                        * WORD               18                                                  LEX      5424
                                        *                     0000000000                                         LEX      5425
                                        *                                                                        LEX      5426
                                        *           WHERE .=BLANK(55B),0=EOL BITS(00B)                           LEX      5427
                                        *                                                                        LEX      5428
                                        *         ENTRY  *T.STMT* PROPERLY SET UP BY *PLR* (PROCESS              LEX      5429
                                        *                         LISTING REQUEST).                              LEX      5430
                                        *                *SB=* (STMT BUFFER) INFORMATION CELLS                   LEX      5431
                                        *                         ALL IN ORDER.                                  LEX      5432
                                        *                *LEXFLG/LF.LAC* INDICATING WHETHER OR NOT               LEX      5433
                                        *                         *LEX* IS ACTIVE.                               LEX      5434
                                        *                *LEXFLG/LF.HDR* INDICATING WHETHER OR NOT               LEX      5435
                                        *                         WE ARE IN *HEADER DELAY* MODE.                 LEX      5436
                                        *                                                                        LEX      5437
                                        *                SEE *DATA STRUCTURES/SB= AND LEXFLG*.                   LEX      5438
                                        *                                                                        LEX      5439
                                        *         EXIT   *LEXFLG/LF.HDR* CLEARED TO *NOT HEADER DELAY*           LEX      5440
                                        *                                                                        LEX      5441
                                        *         USES   ALL BUT A0,A5,X5  (INCLUDES ALL CALLS)                  LEX      5442
                                        *                                                                        LEX      5443
                                        *         CALLS  LSL,SHRINK                                              LEX      5444
                                                                                                                 LEX      5445
                                                                                                                 LEX      5446
          2066  0400402066 +             LDB      SUBR   =           ** ENTRY/EXIT **                            LEX      5447
          2067  5110000000 X                      SA1    T.STMT                                                  LEX      5448
                          5120000020 +            SA2    SB=LINC     (X2) = NR OF LINES IN *T.STMT*              LEX      5449
                                                                                                                 LEX      5450
                                         .T       IFEQ   TEST,ON                                                 LEX      5451
                                                  SA3    T=STMT                                                  LEX      5452
                                                  SA4    SB=LORD                                                 LEX      5453
                                                  IX6    X3-X4                                                   LEX      5454
                                                  MI     X6,"BLOWUP" IF LINE ORDINAL .GT. STMT BUFFER LEN        LEX      5455
                                                  NZ     X3,LDB1     IF STMT BUFFER NOT EMPTY                    LEX      5456
                                                  NZ     X2,"BLOWUP" IF LINE COUNT CONFLICT                      LEX      5457
                                                                                                                 LEX      5458
                                         LDB1     BSS    0                                                       LEX      5459
                                         .T       ENDIF                                                          LEX      5460
                                                                                                                 LEX      5461
          2070  63410                             SB4    X1                                                      LEX      5462
                     10622                        BX6    X2                                                      LEX      5463
                          5160002104 +            SA6    LDBA        INITIALIZE LOCAL LINE COUNTER               LEX      5464
                                                                                                                 FC50243     9
          2071  5120002104 +             LDB2     SA2    LDBA        (X2) = NR OF LINES REMAINING IN *T.STMT*    LEX      5465
                          56340                   SA3    B4          (A3,X3) = A+C OF *LINE INFO* HEADER WORD    LEX      5466
                               43701              MX7    1                                                       LEX      5467
          2072  0302002102 +                      ZR     X2,LDB3     IF FINISHED LISTING *T.STMT*                LEX      5468
                                                                                                                 LEX      5469
                                                  IFEQ   TEST,ON,1                                               LEX      5470
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   183
                                                                      LDB 
  
                                                  MI     X2,"BLOWUP" IF SOMETHING TERRIBLE HAS HAPPENED...       LEX      5471
                                                  LX3    0-SB.LENP                                               LEX      5472
                          73430                   SX4    X3          (X4) = NR OF WORDS IN THIS LINE             LEX      5473
                                                  LX3    59-SB.LOUTP+SB.LENP-0                                   LEX      5474
                                                                                                                 LEX      5475
                                        *         USE SB.LERR IF LISTING TO E-FILE.                              LEX      5476
                                                                                                                 LEX      5477
                                   0              ERRNZ  SB.LOUTP-SB.LERRP-1                                     LEX      5478
          2073  5110000000 X                      SA1    =XWOF=ERR   LIST TO E-FILE FLAG                         LEX      5479
                          63610                   SB6    X1                                                      LEX      5480
                               22363              LX3    B6                                                      LEX      5481
          2074  76141                             SX1    B4+B1       (X1) = FWA OF LISTABLE LINE                 LEX      5482
                     7262777776                   SX6    X2-1                                                    LEX      5483
                               12737              BX7    X3+X7       SET TO *THIS LINE HAS BEEN LISTED*          LEX      5484
          2075  67606                             SB6    -B6                                                     LEX      5485
                     6166000074                   SB6    60+B6                                                   LEX      5486
                               22767              LX7    B6          RESTORE WORD                                LEX      5487
          2076  54620                             SA6    A2                                                      LEX      5488
                     63444                        SB4    B4+X4       (B4) = ADDR OF NEXT *LINE INFO* WORD        LEX      5489
                                                  LX7    SB.LOUTP-59                                             LEX      5490
                          54730                   SA7    A3                                                      LEX      5491
          2077  0333002071 +                      MI     X3,LDB2     IF THIS LINE ALREADY LISTED                 LEX      5492
                          7244777775              SX4    X4-2        LENGTH FOR LSL                              LEX      5493
          2100  0100002105 +                      RJ     LSL         LIST SOURCE LINE                            LEX      5494
          2101  0400002071 +                      EQ     LDB2                                                    LEX      5495
                                                                                                                 LEX      5496
          2102  5110000004 +             LDB3     SA1    LEXFLG                                                  LEX      5497
                          43201                   MX2    1                                                       LEX      5498
                                                  LX2    LF.HDRP-59                                              LEX      5499
                               15712              BX7    -X2*X1      CLEAR *HDR*                                 LEX      5500
          2103  5071000000                        SA7    A1+                                                     LEX      5502
                          0400002066 +            EQ     EXIT.                                                   LEX      5503
                                                                                                                 LEX      5504
                                                                                                                 LEX      5505
          2104                     1     LDBA     BSSZ   1           CONTAINS LOCAL COUNT OF REMAINING LINES     LEX      5506
                                        *                            IN *T.STMT*.                                LEX      5507
  
  
  
  
                                        **        LSL -  LIST SOURCE LINE.                                       LEX      5509
                                        *                                                                        LEX      5510
                                        *         IF INPUT IS UNCOMPRESSED, WILL PRINT FROM WHEREVER THE CARD    LEX      5511
                                        *         CURRENTLY RESIDES.                                             LEX      5512
                                        *                                                                        LEX      5513
                                        *         ENTRY  (X1)+2  =  FWA AREA TO FIND CARD.                       LEX      5514
                                        *                (X4)= LENGTH OF LINE                                    LEX      5515
                                        *                (AMODE) = INPUT FORMAT.                                 LEX      5516
                                        *                LINE IMAGE IS IN (AMODE) FORMAT.                        LEX      5517
                                        *                                                                        LEX      5518
                                        *         EXIT   (B6) = LWA + 1 THAT WAS LISTED.                         LEX      5519
                                        *                                                                        LEX      5520
                                        *         USES   ALL BUT  A0,A5  B4  X0,X5.                              LEX      5521
                                                                                                                 LEX      5522
                                                                                                                 LEX      5523
          2105  0400402105 +             LSL      SUBR   =           ** ENTRY/EXIT **                            LEX      5524
          2106  5120000000 X                      SA2    WOF=ERR                                                 LEX      5525
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   184
                                                                      LSL 
  
                          5232000000 X            SA3    CO.PW+X2    FLAG FOR PW MODE ON THIS FILE (E OR L)      LEX      5526
          2107  7233777601                        SX3    X3-126                                                  FC50353    19
                          73240                   SX2    X4          LINE LENGTH                                 LEX      5528
                               76640              SX6    B4                                                      LEX      5529
          2110  5140002307 +                      SA4    =10H                                                    LEX      5530
                          5160002142 +            SA6    LSLA        SAVE (B4)                                   LEX      5531
          2111  0323002136 +                      PL     X3,LSL6     IF NOT PW MODE                              FC50353    20
                          63211                   =B2    X1+1        FWA OF LINE (PAST LINE NUMBER)              LEX      5533
                               66300              SB3    B0                                                      LEX      5534
          2112  66621                             SB6    B2+B1                                                   LEX      5535
                                                                                                                 FC50353    21
          2113  56223                    LSL2     SA2    B2+B3       (X2) = NEXT WORD OF LINE                    LEX      5536
                     66331                        SB3    B3+B1                                                   LEX      5537
                          37624                   IX6    X2-X4                                                   LEX      5538
          2114  0306002113 +                      ZR     X6,LSL2     IF BLANK WORD                               LEX      5539
                          0302002116 +            ZR     X2,LSL3     IF EOL                                      LEX      5540
          2115  64621                             SB6    A2+B1                                                   LEX      5541
                     0400002113 +                 EQ     LSL2                                                    LEX      5542
                                                                                                                 LEX      5543
          2116  76221                    LSL3     =X2    B2+1        FWA                                         LEX      5544
                     7130000001 X                 SX3    PWBUF+1     DESTINATION                                 LEX      5545
                               67562              SB5    B6-B2       LENGTH                                      LEX      5546
          2117  77151                             =X1    B5-1        COUNT FOR MOVE (LESS NEW LINE NUMBER)       LEX      5547
                     5142777776                   SA4    B2-1        LINE NUMBER                                 LEX      5548
                               10644              BX6    X4                                                      LEX      5549
          2120  5160000000 X                      SA6    PWBUF       TO LIST BUFFER                              LEX      5550
                          36413                   IX4    X1+X3                                                   LEX      5551
                               63640              SB6    X4          1 BEYOND LAST WORD IN BUFFER                LEX      5552
          2121  0100000000 X                      MOVE   X1,X2,X3    LINE TO PWBUF                               LEX      5553
          2122  5130000000 X                      SA3    WOF=ERR                                                 FC5A426   112
                          5233000000 X            SA3    CO.WPL+X3   GET WIDTH CONTROL WORD                      FC5A426   113
          2123  7110000000 X                      SX1    PWBUF                                                   LEX      5555
                          6120000000 X            SB2    PWBUF                                                   LEX      5556
          2124  76250                             SX2    B5                                                      LEX      5557
                     66750                        SB7    B5                                                      LEX      5558
                                                                                                                 FC50353    22
          2125  63531                    LSL4     SB5    X3+B1       PAGE WIDTH IN WORDS + 1                     LEX      5559
                     67375                        SB3    B7-B5                                                   LEX      5560
                          0730002133 +            LT     B3,LSL5     IF LINE LENGTH .LE. PAGE WIDTH              LEX      5561
          2126  53232                             SA2    B2+X3                                                   LEX      5562
                     21336                        AX3    30          REMAINDER OF PAGE WIDTH MOD 10 IN BITS      LEX      5563
                          63530                   SB5    X3                                                      LEX      5564
                               67221              SB2    B2-B1                                                   LEX      5565
          2127  67661                             SB6    B6-B1                                                   LEX      5566
                     0100001622 +                 RJ     BLL         BREAK LONG LINE                             LEX      5567
          2130  5130000000 X                      SA3    WOF=ERR                                                 FC5A426   114
                          5233000000 X            SA3    CO.WPL+X3   GET WIDTH CONTROL WORD                      FC5A426   115
          2131  63210                             SB2    X1          FWA OF LINE                                 LEX      5569
                     6272777776                   SB7    X2-1        LENGTH - 1 OF LINE                          LEX      5570
                               63617              SB6    X1+B7       LWA OF LINE                                 LEX      5571
          2132  0316002125 +                      NZ     X6,LSL4     IF STILL POSSIBLE LONG LINE                 LEX      5572
                                                                                                                 LEX      5573
          2133  66510                    LSL5     PLINE  X1,X2                                                   LEX      5574
          2134  5110002142 +                      SA1    LSLA                                                    LEX      5575
                          63410                   SB4    X1          RESTORE (B4)                                LEX      5576
          2135  0400002105 +                      EQ     EXIT.                                                   LEX      5577
                                                                                                                 LEX      5578
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   185
                                                                      LSL 
  
          2136  22604                    LSL6     LX6    X4                                                      LEX      5579
                     53611                        =A6    X1+1                                                    LEX      5580
                          66510                   PLINE  X1,X2                                                   LEX      5581
          2140  5110002142 +                      SA1    LSLA                                                    LEX      5582
                          63410                   SB4    X1          RESTORE (B4)                                LEX      5583
          2141  0400002105 +                      EQ     EXIT.                                                   LEX      5584
                                                                                                                 LEX      5586
          2142                     1     LSLA     BSS    1           (B4) SAVE                                   LEX      5587
  
  
  
  
                                        **         LSS - LEFT SHIFT STRING                                       LEX      5589
                                        *                                                                        LEX      5590
                                        *                SHIFTS A STRING OF GIVEN LENGTH UP TO 10 CHARACTERS     LEX      5591
                                        *                LEFT END AROUND.                                        LEX      5592
                                        *                                                                        LEX      5593
                                        *         ENTRY  (X1) = MASK OF SHIFT COUNT                              LEX      5594
                                        *                (X2) = FIRST WORD OF STRING                             LEX      5595
                                        *                (X3) = WORD OF BLANKS                                   LEX      5596
                                        *                (A2) = FWA OF STRING                                    LEX      5597
                                        *                (B5) = SHIFT COUNT                                      LEX      5598
                                        *                (B6) = LWA OF STRING - 1                                LEX      5599
                                        *         EXIT   (X6) = NEW FIRST WORD OF STRING                         LEX      5600
                                        *                STRING SHIFTED.                                         LEX      5601
                                        *                                                                        LEX      5602
                                        *         USES   B3, B7                                                  LEX      5603
                                        *                X1, X2, X3, X4, X6                                      LEX      5604
                                        *                A4, A6                                                  LEX      5605
                                        *         PRESERVES          A0, A2, A5, A7, X5, X7, B2, B4, B5, B6      LEX      5606
                                        *                                                                        LEX      5607
                                                                                                                 LEX      5608
          2143  0400402143 +             LSS      SUBR   =           ENTRY/EXIT...                               LEX      5609
          2144  10622                             BX6    X2                                                      LEX      5610
                     0450002143 +                 ZR     B5,EXIT.    IF NO SHIFT NEEDED                          LEX      5611
                               64720              SB7    A2                                                      LEX      5612
          2145  66360                             SB3    B6                                                      LEX      5613
                     11313                        BX3    X1*X3                                                   LEX      5614
          2146  56430                    LSS10    SA4    B3                                                      LEX      5615
                     11214                        BX2    X1*X4                                                   LEX      5616
                          15441                   BX4    -X1*X4                                                  LEX      5617
                               12634              BX6    X3+X4                                                   LEX      5618
          2147  22656                             LX6    B5                                                      LEX      5619
                     54640                        SA6    A4                                                      LEX      5620
                          67331                   SB3    B3-B1                                                   LEX      5621
                               10322              BX3    X2                                                      LEX      5622
          2150  0637002146 +                      GE     B3,B7,LSS10 IF SHIFT NOT FINISHED                       LEX      5623
                          0400002143 +            EQ     EXIT.                                                   LEX      5624
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   186
                                                                      SFT 
  
                                        **        SFT - SPACE FILL LAST WORD OF STRING TOKEN.                    LEX      5626
                                        *                                                                        LEX      5627
                                        *         ENTRY  (A1, X1) - LAST WORD OF STRING.                         LEX      5628
                                        *                (X2) - STRING COUNT.                                    LEX      5629
                                        *                                                                        LEX      5630
                                        *         EXIT   (X6) = BLANK-FILLED WORD.                               LEX      5631
                                        *                (X7) = CHARACTER MASK.                                  LEX      5632
                                        *                                                                        LEX      5633
                                        *         USES   A2-3,6.  X0,2-3,6-7.  B4.                               LEX      5634
                                                                                                                 LEX      5635
                                                                                                                 LEX      5636
          2151  0400402151 +             SFT      SUBR                                                           LEX      5637
          2152  43774                             MX7    60                                                      LEX      5638
                     10611                        BX6    X1                                                      LEX      5639
                          5130002326 +            WX3    X2,X0       GET REMAINDER                               LEX      5640
          2156  0300002151 +                      ZR     X0,EXIT.    IF NO PARTIAL WORD                          LEX      5641
                          5120002307 +            SA2    =1H                                                     LEX      5642
          2157  22610                             LX6    B1,X0                                                   LEX      5643
                     43701                        MX7    1                                                       LEX      5644
                          22016                   LX0    B1,X6                                                   LEX      5645
                               36660              IX6    X6+X0       6 * REMAINDER                               LEX      5646
          2160  6246777776                        SB4    X6-1                                                    LEX      5647
                          23747                   AX7    B4,X7       CONSTRUCT MASK                              LEX      5648
                               15027              BX0    -X7*X2                                                  LEX      5649
          2161  12601                             BX6    X0+X1       BLANK FILL                                  LEX      5650
                     54610                        SA6    A1                                                      LEX      5651
                          0400002151 +            EQ     EXIT.                                                   LEX      5652
  
  
  
  
                                        **        TTB - TERMINATE TOKEN BUFFER.                                  LEX      5654
                                        *                                                                        LEX      5655
                                        *                                                                        LEX      5656
                                        *         CALLED TO SHRINK TOKEN BUFFER OF STRAY CHARACTERS FROM         LEX      5657
                                        *         UNTERMINATED CHARACTER/HOLLERITH CONSTANT                      LEX      5658
                                        *                                                                        LEX      5659
                                        *         ENTRY  (A6) - POINTS TO LAST TOKEN (O.ILL)                     LEX      5660
                                                                                                                 LEX      5661
          2162  0400402162 +             TTB      SUBR                                                           LEX      5662
          2163  5110000000 X                      SA1    T.TB                                                    LEX      5663
                          76600                   =X6    O.EOS                                                   LEX      5664
                               54661              =A6    A6+1        TERMINATE T.TB                              LEX      5665
          2164  74261                             =X2    A6+1                                                    LEX      5666
                     37621                        IX6    X2-X1                                                   LEX      5667
                          5160000000 X            SHRINK T=TB,X6                                                 LEX      5668
          2165  0400002162 +                      EQ     EXIT.                                                   LEX      5669
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   187
                                                                      XER 
  
                                        **        XER - EXTRACT AND RESTORE ENTOKENING REGISTERS.                LEX      5671
                                        *                                                                        LEX      5672
                                        *                                                                        LEX      5673
                                        *         THIS ROUTINE EXTRACTS THE SAVED ENTOKENING REGISTER            LEX      5674
                                        *         INFORMATION FROM A DESIGNATED *T.STMT* LINE INFORMATION        LEX      5675
                                        *         HEADER, RESETS THE *COMCTOK* ENTOKENING REGISTERS              LEX      5676
                                        *         ACCORDINGLY.                                                   LEX      5677
                                        *                                                                        LEX      5678
                                        *         SEE *DATA STRUCTURES/LN=FEN* FOR DETAILS.                      LEX      5679
                                        *                                                                        LEX      5680
                                        *         ENTRY  (X1) = ORD IN *T.STMT* OF STMT TO RESTORE FOR.          LEX      5681
                                        *                                                                        LEX      5682
                                        *         EXIT   (B6) = NR OF BITS REMAINING IN (X5).                    LEX      5683
                                        *                (B7) = NR OF BITS REMAINING IN SOURCE LINE.             LEX      5684
                                        *                (A5) = ADDR OF WORD CONTAINING 1ST ENTOKENABLE .        LEX      5685
                                        *                       CHARACTER.                                       LEX      5686
                                        *                (X5) = WORD CONTAINING 1ST ENTOKENABLE CHARACTER,       LEX      5687
                                        *                       1ST CHARACTER TO ENTOKEN LEFT-SHIFTED TO         LEX      5688
                                        *                      LEFT-MOST CHARACTER POSITION (BITS 59-54).        LEX      5689
                                        *                (X4) = .MI. TO INDICATE *NO USEABLE CHARACTER*,         LEX      5690
                                        *                            I.E. NEED TO EXTRACT A CHARACTER FROM (X5). LEX      5691
                                        *                                                                        LEX      5692
                                        *         USES   X - 1,2,3,4,5,7                                         LEX      5693
                                        *                A - 1,2,5                                               LEX      5694
                                        *                B - 4,5,6,7                                             LEX      5695
                                        *                                                                        LEX      5696
                                        *         LOCKED (A6,X6),(B3),(A0)                                       LEX      5697
                                        *                                                                        LEX      5698
                                        *         CALLS  NONE                                                    LEX      5699
                                                                                                                 LEX      5700
                                                                                                                 LEX      5701
          2166  0400402166 +             XER      SUBR               ** ENTRY/EXIT **                            LEX      5702
          2167  5120000000 X                      SA2    T.STMT                                                  LEX      5703
                          43366                   MX3    -SB.FENBL                                               LEX      5704
                               43463              MX4    -SB.FENLL                                               LEX      5705
          2170  36721                             IX7    X2+X1       (X7) = ADDR OF *LINE INFO HEADER*           LEX      5706
                     53170                        SA1    X7          (X1) = LINE INFORMATION HEADER              LEX      5707
                          20133                   LX1    0-SB.FENBP                                              LEX      5708
                               15713              BX7    -X3*X1      EXTRACT *FENB*                              LEX      5709
          2171  63670                             SB6    X7          RESTORE (B6)                                LEX      5710
                     20111                        LX1    0-SB.FENLP+SB.FENBP-0                                   LEX      5711
                          15714                   BX7    -X4*X1      EXTRACT *FENL*                              LEX      5712
                               63770              SB7    X7          RESTORE (B7)                                LEX      5713
          2172  20155                             LX1    0-SB.FENP+SB.FENLP-0                                    LEX      5714
                     43352                        MX3    -SB.FENL                                                LEX      5715
                          15713                   BX7    -X3*X1      EXTRACT *FEN*                               LEX      5716
                               63570              SB5    X7          (B5) = ORD OF WORD CONTAINING 1ST ENTKNABLE LEX      5717
          2173  53525                             SA5    X2+B5       (A5,X5) = A+C OF 1ST WORD TO ENTOKEN        LEX      5718
                     6140000074                   SB4    60D                                                     LEX      5719
                               67546              SB5    B4-B6       (B5) = LEFT-SHIFT COUNT FOR (X5)            LEX      5720
                                                                                                                 LEX      5721
                                                  IFEQ   TEST,ON,2                                               LEX      5722
                                                  LE     B6,B0,"BLOWUP" IF (B6) IS TOO SMALL                     LEX      5723
                                                  MI     B5,"BLOWUP"    IF (B6) IS TOO BIG                       LEX      5724
                                                                                                                 LEX      5725
          2174  22555                             LX5    B5                                                      LEX      5726
                     43473                        MX4    -1          SET TO *NO USEABLE CHAR IN (X4)*            LEX      5727
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   188
                                                                      XER 
  
                          0400002166 +            EQ     EXIT.                                                   LEX      5728
  
  
  
  
                                                  LIST   D                                                       LEX      5730
  
                                        CONTENT OF LITERALS BLOCK.
  
          2175  01232311071600000000    ASSIGN
          2176  02010313232001000000    BACKSPA 
          2177  03050000000000000000    CE
          2200  02141703130401000000    BLOCKDA 
          2201  24010000000000000000    TA
          2202  02171714050116000000    BOOLEAN 
          2203  02250606052200000000    BUFFER
          2204  03011414000000000000    CALL
          2205  03100122010324000000    CHARACT 
          2206  05220000000000000000    ER
          2207  03141723050000000000    CLOSE 
          2210  03171515171600000000    COMMON
          2211  03171520140530000000    COMPLEX 
          2212  03171624111625000000    CONTINU 
          2213  05000000000000000000    E 
          2214  04012401000000000000    DATA
          2215  04050317040500000000    DECODE
          2216  04111505162311000000    DIMENSI 
          2217  17160000000000000000    ON
          2220  04172502140520000000    DOUBLEP 
          2221  22050311231117000000    RECISIO 
          2222  16000000000000000000    N 
          2223  05142305000000000000    ELSE
          2224  05160317040500000000    ENCODE
          2225  05160400000000000000    END 
          2226  05160406111405000000    ENDFILE 
          2227  05160411060000000000    ENDIF 
          2230  05162422310000000000    ENTRY 
          2231  05212511260114000000    EQUIVAL 
          2232  05160305000000000000    ENCE
          2233  05302405221601000000    EXTERNA 
          2234  14000000000000000000    L 
          2235  06172215012400000000    FORMAT
          2236  06251603241117000000    FUNCTIO 
          2237  16000000000000000000    N 
          2240  07172417000000000000    GOTO
          2241  11152014110311000000    IMPLICI 
          2242  24000000000000000000    T 
          2243  11162125112205000000    INQUIRE 
          2244  11162405070522000000    INTEGER 
          2245  11162422111623000000    INTRINS 
          2246  11030000000000000000    IC
          2247  14052605140000000000    LEVEL 
          2250  14170711030114000000    LOGICAL 
          2251  16011505141123000000    NAMELIS 
          2252  24000000000000000000    T 
          2253  17200516000000000000    OPEN
          2254  17260301200000000000    OVCAP 
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   189
                                                                      LITERALS
  
          2255  17260522140131000000    OVERLAY 
          2256  20012201150524000000    PARAMET 
          2257  05220000000000000000    ER
          2260  20012523050000000000    PAUSE 
          2261  20221116240000000000    PRINT 
          2262  20221707220115000000    PROGRAM 
          2263  20251603100000000000    PUNCH 
          2264  22050104000000000000    READ
          2265  22050114000000000000    REAL
          2266  22052425221600000000    RETURN
          2267  22052711160400000000    REWIND
          2270  23012605000000000000    SAVE
          2271  23241720000000000000    STOP
          2272  23250222172524000000    SUBROUT 
          2273  11160500000000000000    INE 
          2274  27221124050000000000    WRITE 
          2275  04170000000000000000    DO
          2276  02050703171500000000    BEGCOM
          2277  03171414012405000000    COLLATE 
          2300  05160403171500000000    ENDCOM
          2301  11060000000000000000    IF
          2302  14112324000000000000    LIST
          2303  02010446232422000000    BAD-STR 
          2304  00000000035355555555        C$
          2305  00000000005555555555
          2306  03530000000000000000    C$
          2307  55555555555555555555
          2310  00001777000000000000      O;
          2311  00000000000000000001             A
          2312  77776000000000000377    ;;#     C;
          2313  77777777000000000377    ;;;;    C;
          2314  77777777777773777777    ;;;;;;>;;;
          2315  00000000000004000000          D 
          2316  00000000001000000000         H
          2317  00000000000000000000
          2320  77777777777777777777    ;;;;;;;;;;
          2321  77777777777777577777    ;;;;;;;.;;
          2322  00000000000000200000           P
          2323  55555573737373555555       >>>> 
          2324  70700000000000000000    ''
          2325  55550000000000000000
          2326  00000631463146314632      FY-Y-Y-Z
  
          2327                                    END                                                            LEX      5731
  
                            105100B CM  STORAGE USED            25450 STATEMENTS     2181 SYMBOLS      000227 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           21.321 SECONDS        3831 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       2/02 X   76/22     98/35
        ANS.CONT       23   FTX            75/48
        BBLA         1406   PROGRAM*      137/15    137/23 L  137/46    138/14    138/48
        BBL1         1403   PROGRAM*      137/17 L  137/34
        BBO1         1423   PROGRAM*      138/16 L  138/38
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   190
        SYMBOLIC REFERENCE TABLE. 
  
        BBO2         1427   PROGRAM*      138/25 L  139/01
        BBR1         1414   PROGRAM*      137/48 L  138/04
        BBZ1         1434   PROGRAM*      138/50 L  139/12
        BB.TOCL        52                  47/18 D  115/51    123/40    123/53    165/10    165/27
        BB.TOCP        22                  47/18 D  115/51    123/40    123/53    160/42 F  164/32    165/10    165/27
        BB.TOTL        22                  47/19 D  165/08
        BB.TOTP         0                  47/19 D
        BICH           15                  42/31 F   88/21    129/38    131/36    132/43    134/12    160/09 F  169/07
                                           42/32 D  124/16    129/45    132/33    133/30    134/14    164/34
                                           59/50    129/36    129/46    132/35    133/34    134/21    164/54
                                           86/05    129/37    131/25    132/42    133/35    134/22    167/25 F
        BLL          1622   PROGRAM*      155/34 L  155/34 E  184/45
        BLLA         1642   PROGRAM*      155/48 S  156/04    156/20 L
        BLL1         1625   PROGRAM*      155/36    155/40 L
        BLL2         1630   PROGRAM*      155/30    155/47 L
        BLL4         1620   PROGRAM*      155/27 L  155/46
        BN.TOCL        74                  47/29 D  115/46    122/54    123/09    152/01    152/17    169/21    169/38
        BN.TOCP         0                  47/29 D  122/54    152/01    168/01 F  169/21
                                          115/46    123/09    152/17    168/45    169/38
        BN.TOTL         0                  47/30 D  169/19
        BN.TOTP        74                  47/30 D
        BOOA         1462   PROGRAM*      140/48    141/06 L
        BOO2         1452   PROGRAM*      140/44 L  142/11
        BOO3         1456   PROGRAM*      138/26    140/46    140/53 L
        BRLA         1411   PROGRAM*      137/33    137/36 L  138/03    138/37    139/11
        BUB          1646   PROGRAM*       85/07     85/56     88/07    115/52    123/47    165/39 D
        BUN          1670   PROGRAM*       86/12     86/53     87/52     88/35    115/47    123/03    169/50 D
        B1=1            0                 113/53 F
        CAK          1711   PROGRAM*       94/33    171/06 L  171/06 E
        CAKA         1767   PROGRAM*      171/49 S  175/47    176/22 L
        CAK10        1751   PROGRAM*      175/34 L  175/38
        CAK11        1753   PROGRAM*      172/55    175/43 L
        CAK12        1754   PROGRAM*      174/07    174/16    175/30    175/39    175/47 L
        CAK15        1763   PROGRAM*      176/11 L  176/15
        CAK2         1713   PROGRAM*      171/17 L  171/30    171/35
        CAK3         1721   PROGRAM*      171/29    171/46 L
        CAK4         1725   PROGRAM*      172/01    172/03 L
        CAK5         1726   PROGRAM*      172/50 L  173/04    173/06
        CAK6         1733   PROGRAM*      172/56    173/10 L
        CAK7         1736   PROGRAM*      172/54    173/17    174/05 L
        CAK8         1743   PROGRAM*      174/14    174/55 L  175/18
        CAK9         1747   PROGRAM*      175/08    175/09    175/17 L
        CARDS           0   EXTERNAL*       2/16 X   83/32    100/27
        CCD          1024   PROGRAM*      128/04 D
        CDD             0   EXTERNAL*       3/12 X   83/33     97/11
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   191
        SYMBOLIC REFERENCE TABLE. 
  
        CHAR            6   FTX            42/37 F   69/08     69/25     70/06     83/54     88/38    123/40    168/57
                                           68/49     69/09     69/26     70/07     83/55     92/23    123/53    169/02
                                           68/50     69/10     69/27     70/08     84/13     92/32    126/13    169/06
                                           68/51     69/11     69/28     70/09     84/14     92/44    126/17    169/12
                                           68/52     69/12     69/29     70/19     84/17     92/46    149/53    169/21
                                           68/53     69/13     69/30     70/20     84/23     96/54    152/01    169/38
                                           68/54     69/14     69/31     70/21     84/50    101/12    152/09    171/11
                                           68/55     69/15     69/32     70/22     84/51    101/39    152/17    171/13
                                           68/56     69/16     69/33     70/23     85/49    114/27    160/12 F  171/27
                                           68/57     69/17     69/34     70/24     85/55    114/32    164/37    171/54
                                           69/01     69/18     69/35     70/25     86/11    114/33    164/49    174/08
                                           69/02     69/19     69/36     70/26     86/14    115/40    164/53    174/10
                                           69/03     69/20     69/37     74/06     86/52    115/46    165/02    176/10
                                           69/04     69/21     69/38     80/02     87/42    115/51    165/10    176/11
                                           69/05     69/22     69/39     82/27     87/51    116/57    165/27
                                           69/06     69/23     69/40     83/30     88/05    122/54    167/28 F
                                           69/07     69/24     70/05     83/40     88/34    123/09    168/49
        CH=CNT          0   PROGRAM*       49/09 L  146/30 S  152/32 S  177/08    179/14
                                          145/34 S  149/11 S  153/27    177/19
        CH=SB3          1   PROGRAM*       50/15 L  150/15 S  151/56
        CH=TAD          2   PROGRAM*       51/53 L  135/52 S  140/56 S  147/03 S  177/39    178/56    180/12
                                           79/31    136/53 S  141/35 S  177/13    177/49    180/02    180/47 S
        CH=TYPE         3   PROGRAM*       52/20 L  135/54 S  138/23 S  139/19 S  140/43 S  144/41 S
                                           79/32    136/39 S  138/57 S  139/34 S  142/10 S  178/57
        CLN           341   PROGRAM*       77/37     82/21 L
        CLNA          504   PROGRAM*       85/05 S   85/53 S   86/10 S   86/51 S   88/33 S   89/39 L
        CLN1          354   PROGRAM*       82/48     82/51 L
        CLN10         415   PROGRAM*       82/52     85/49 L
        CLN13         442   PROGRAM*       87/02     87/07 L
        CLN14         444   PROGRAM*       85/57     86/07     86/47     86/57     87/03     87/13 L
        CLN15         446   PROGRAM*       86/28     87/32 L
        CLN16         453   PROGRAM*       86/26     87/09     87/33     87/45 L
        CLN17         457   PROGRAM*       87/46     87/54 L   88/42
        CLN18         476   PROGRAM*       85/08     87/43     88/04     88/08     89/23 L
        CLN2          356   PROGRAM*       83/29     83/32 L
        CLN20         477   PROGRAM*       85/16     85/18     88/22     88/27     89/25 L
        CLN3          370   PROGRAM*       83/48     84/02     84/05 L
        CLN4          372   PROGRAM*       83/49     84/12 L
        CLN5          375   PROGRAM*       84/18     84/23 L
        CLN6          401   PROGRAM*       84/27     84/35 L
        CLN7          403   PROGRAM*       84/04     84/29     84/31     84/36     84/48 L
        CNF             0   EXTERNAL*       2/53 X   70/08
        COL2         1501   PROGRAM*      143/26 L  143/36
        COL3         1505   PROGRAM*      143/26    143/44 L
        CO.DS           0   EXTERNAL*       2/31 X   84/03     87/07
        CO.IDP          0   EXTERNAL*       2/31 X
        CO.PW           0   EXTERNAL*       2/31 X  184/01
        CO.SEQ          0   EXTERNAL*       2/31 X   82/51     96/19
        CO.SNAP         0   EXTERNAL*       2/31 X
        CO.WPE          0   EXTERNAL*       2/31 X
        CO.WPL          0   EXTERNAL*       2/31 X  184/31    184/47
        CP.CARD         0   EXTERNAL*       2/32 X   82/25     98/30    101/11    101/22    101/26
        CP.FLIN         0   EXTERNAL*       2/32 X   87/35     89/25     98/29     99/41
                                           84/49     87/54     97/29 S   99/06
        CP.IFMT         0   EXTERNAL*       2/32 X   82/38    100/28    101/30 S
        CP.PW           0   EXTERNAL*       2/32 X
        CP#RM           0   FTX           100/38 F
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   192
        SYMBOLIC REFERENCE TABLE. 
  
        CST           506   PROGRAM*       79/07     92/10 L   92/10 E
        CST10         555   PROGRAM*       94/36     94/51 L
        CST2          520   PROGRAM*       92/34     92/42 L
        CST3          527   PROGRAM*       93/14     93/30 L
        CST4          531   PROGRAM*       93/26     93/34 L
        CST5          532   PROGRAM*       92/36     92/43     92/48     93/12     93/13     93/25     93/32     93/39 L
        CST6          536   PROGRAM*       93/43     94/08 L
        CST7          547   PROGRAM*       92/12     92/35     93/39     94/28 L
        CST8          554   PROGRAM*       92/26     93/35     94/16     94/22     94/35
                                           92/38     94/12     94/18     94/24     94/41 L
        CT.DQT          4                  52/26 D  144/40    179/09    179/34
        CT.H            1                  52/22 D   79/55    136/38    179/07    179/32
        CT.HEX          7                  52/29 D  138/56    142/09
        CT.L            2                  52/23 D  139/18    179/25
        CT.OCT          6                  52/28 D  138/22    140/42
        CT.R            3                  52/24 D  139/33
        CT.SQT          5                  52/27 D   79/41     79/52    135/53
        CUL             0   EXTERNAL*       2/50 X   74/09
        DO.           136   PROGRAM*       70/06 L   92/37
        DQT          1312   PROGRAM*      131/15    132/29 L
        DXB             0   EXTERNAL*       3/12 X  136/44
        EOC          1770   PROGRAM*       79/47    145/35    176/57 L
        EOC10        2006   PROGRAM*      177/10    177/49 L
        EOH          2013   PROGRAM*       79/43    146/31    178/50 L
        EOH1         2023   PROGRAM*      179/10    179/14 L
        EOH10        2042   PROGRAM*      179/21    180/12 L
        EOH15        2045   PROGRAM*      180/15    180/17 L
        EOH2         2025   PROGRAM*      179/08    179/20 L
        EOH3         2035   PROGRAM*      179/26    179/33    179/35    179/51 L
        EOS           141   PROGRAM*       70/09 L   80/34
        EQL2         1540   PROGRAM*      148/23    148/31 L  148/41
        E.HC1           0   EXTERNAL*       2/22 X  177/56    180/21
        E.HC2           0   EXTERNAL*       2/22 X   80/22
        E.HC3           0   EXTERNAL*       2/22 X   80/04     80/04
        E.INI           0   EXTERNAL*       2/22 X   75/34     75/34
        E.MCA           0   EXTERNAL*       2/22 X   75/51
        E.ME            0   EXTERNAL*       2/22 X   70/09
        E.TLBL          0   EXTERNAL*       2/22 X   75/38
        FEC=BY          0   EXTERNAL*       2/19 X   96/55
        FEC=DAT         0   EXTERNAL*       2/16 X   69/03     69/24
        FEC=DEC         0   EXTERNAL*       2/16 X   68/57     69/05     69/13     69/14     69/21     69/22     69/37
        FEC=END         0   EXTERNAL*       2/16 X   69/09     70/09
        FEC=ENT         0   EXTERNAL*       2/16 X   69/12
        FEC=EXU         0   EXTERNAL*       2/16 X   68/54     69/07     69/17     69/30     69/36     70/07
                                           68/49     68/56     69/08     69/19     69/32     69/38     70/08
                                           68/50     69/02     69/10     69/25     69/33     69/40     94/10
                                           68/53     69/04     69/11     69/29     69/35     70/06
        FEC=FMT         0   EXTERNAL*       2/16 X   69/15
        FEC=IMP         0   EXTERNAL*       2/17 X   69/18
        FEC=OK          0   EXTERNAL*       2/17 X   70/20     70/22     70/24     70/26
                                           70/19     70/21     70/23     70/25
        FEC=PRM         0   EXTERNAL*       2/17 X   69/28
        FEC=STF         0   EXTERNAL*       2/17 X   70/05
        FEC=TYP         0   EXTERNAL*       2/17 X   68/52     68/55     69/01     69/06     69/20     69/23     69/34
        FEC=1ST         0   EXTERNAL*       2/17 X   68/51     69/16     69/26     69/27     69/31     69/39
        FILL.           0   EXTERNAL*       2/22 X   80/03 S  172/03 S  175/56
        FW.KEYS       152   PROGRAM*       70/31 L   94/29
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   193
        SYMBOLIC REFERENCE TABLE. 
  
        FW.KEYW        53   PROGRAM*       68/47 L   69/48     70/31
        FW.KEY$       142   PROGRAM*       70/17 L   70/28     70/31
        FW.TCOM        33   PROGRAM*       66/03 L   66/06     76/42
        FW.TOK          0                  42/40 F  129/38    131/50    131/50    131/50    131/50    131/50    133/32
                                           42/41 D  129/39    131/50    131/50    131/50    131/50    131/50    133/33
                                          116/17    129/40    131/50    131/50    131/50    131/50    131/50    133/34
                                          117/03    129/45    131/50    131/50    131/50    131/50    131/50    133/35
                                          117/04    129/46    131/50    131/50    131/50    131/50    132/29    133/37
                                          117/18    129/52    131/50    131/50    131/50    131/50    132/30    134/08
                                          119/35    131/06    131/50    131/50    131/50    131/50    132/31    134/09
                                          120/03    131/15    131/50    131/50    131/50    131/50    132/32    134/10
                                          120/38    131/16    131/50    131/50    131/50    131/50    132/33    134/11
                                          120/42    131/25    131/50    131/50    131/50    131/50    132/34    134/12
                                          121/11    131/26    131/50    131/50    131/50    131/50    132/35    134/13
                                          121/20    131/27    131/50    131/50    131/50    131/50    132/36    134/14
                                          122/57    131/36    131/50    131/50    131/50    131/50    132/39    134/15
                                          123/28    131/37    131/50    131/50    131/50    131/50    132/40    134/18
                                          123/44    131/38    131/50    131/50    131/50    131/50    132/41    134/19
                                          124/15    131/47    131/50    131/50    131/50    131/50    132/42    134/20
                                          124/21    131/48    131/50    131/50    131/50    131/50    132/43    134/21
                                          124/51    131/50    131/50    131/50    131/50    131/50    132/45    134/22
                                          125/01    131/50    131/50    131/50    131/50    131/50    133/26    134/24
                                          129/27    131/50    131/50    131/50    131/50    131/50    133/27
                                          129/31    131/50    131/50    131/50    131/50    131/50    133/28
                                          129/32    131/50    131/50    131/50    131/50    131/50    133/29
                                          129/36    131/50    131/50    131/50    131/50    131/50    133/30
                                          129/37    131/50    131/50    131/50    131/50    131/50    133/31
        F.IN            0   EXTERNAL*       2/32 X  101/22
        HLR          1330   PROGRAM*      129/40    133/26 L
        HOL3         1547   PROGRAM*      149/07    149/37 L
        IDP=            0   EXTERNAL*       2/38 X
        IFLEVEL         0   EXTERNAL*       2/19 X   97/06
        IFS             0   EXTERNAL*       2/45 X   70/07
        IF.           137   PROGRAM*       70/07 L   93/34
        ILX          2050   PROGRAM*       72/36    180/44 L
        IP.CSET         0   FTX           129/49 F  130/28 F  130/57 F
        IP.C63          2   FTX           129/49 F  130/28 F  130/57 F
        KW=ASSI         0   EXTERNAL*       2/45 X   68/49
        KW=BACK         0   EXTERNAL*       2/41 X   68/50
        KW=BLOC         0   EXTERNAL*       2/35 X   68/51
        KW=BOOL         0   EXTERNAL*       3/08 X   68/52
        KW=BREA         0   EXTERNAL*       2/45 X
        KW=BUFF         0   EXTERNAL*       2/41 X   68/53
        KW=CALL         0   EXTERNAL*       2/45 X   68/54
        KW=CHAR         0   EXTERNAL*       3/08 X   68/55
        KW=CLOS         0   EXTERNAL*       2/41 X   68/56
        KW=COMM         0   EXTERNAL*       2/12 X   68/57
        KW=COMP         0   EXTERNAL*       3/08 X   69/01
        KW=CONT         0   EXTERNAL*       2/45 X   69/02
        KW=DATA         0   EXTERNAL*       2/09 X   69/03
        KW=DECO         0   EXTERNAL*       2/41 X   69/04
        KW=DIME         0   EXTERNAL*       2/12 X   69/05
        KW=DO           0   EXTERNAL*       2/50 X   70/06
        KW=DOUB         0   EXTERNAL*       3/08 X   69/06
        KW=ELSE         0   EXTERNAL*       2/45 X   69/07
        KW=ENCO         0   EXTERNAL*       2/41 X   69/08
        KW=END          0   EXTERNAL*       2/45 X   69/09
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   194
        SYMBOLIC REFERENCE TABLE. 
  
        KW=ENDF         0   EXTERNAL*       2/41 X   69/10
        KW=ENDI         0   EXTERNAL*       2/46 X   69/11
        KW=ENTR         0   EXTERNAL*       2/46 X   69/12
        KW=EQUI         0   EXTERNAL*       2/12 X   69/13
        KW=EXTE         0   EXTERNAL*       2/12 X   69/14
        KW=FORM         0   EXTERNAL*       2/25 X   69/15
        KW=FUNC         0   EXTERNAL*       2/35 X   69/16
        KW=GOTO         0   EXTERNAL*       2/46 X   69/17
        KW=IMPL         0   EXTERNAL*       3/08 X   69/18
        KW=INQU         0   EXTERNAL*       2/41 X   69/19
        KW=INTE         0   EXTERNAL*       3/08 X   69/20
        KW=INTR         0   EXTERNAL*       2/12 X   69/21
        KW=LEVE         0   EXTERNAL*       2/12 X   69/22
        KW=LOGI         0   EXTERNAL*       3/08 X   69/23
        KW=NAME         0   EXTERNAL*       2/46 X   69/24
        KW=OPEN         0   EXTERNAL*       2/42 X   69/25
        KW=OVCA         0   EXTERNAL*       2/35 X   69/26
        KW=OVER         0   EXTERNAL*       2/35 X   69/27
        KW=PARA         0   EXTERNAL*       2/12 X   69/28
        KW=PATC         0   EXTERNAL*       2/46 X
        KW=PAUS         0   EXTERNAL*       2/46 X   69/29
        KW=PRIN         0   EXTERNAL*       2/42 X   69/30
        KW=PROG         0   EXTERNAL*       2/35 X   69/31
        KW=PUNC         0   EXTERNAL*       2/42 X   69/32
        KW=READ         0   EXTERNAL*       2/42 X   69/33
        KW=REAL         0   EXTERNAL*       3/09 X   69/34
        KW=RETU         0   EXTERNAL*       2/46 X   69/35
        KW=REWI         0   EXTERNAL*       2/42 X   69/36
        KW=SAVE         0   EXTERNAL*       2/13 X   69/37
        KW=STOP         0   EXTERNAL*       2/47 X   69/38
        KW=SUBR         0   EXTERNAL*       2/35 X   69/39
        KW=WRIT         0   EXTERNAL*       2/42 X   69/40
        KW.ATTRP       36   FTX            68/49     68/57     69/08     69/16     69/24     69/32     69/40     70/21
                                           68/50     69/01     69/09     69/17     69/25     69/33     70/05     70/22
                                           68/51     69/02     69/10     69/18     69/26     69/34     70/06     70/23
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/07     70/24
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/08     70/25
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/09     70/26
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/19
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/20
        KW.BKDP        45   FTX            68/52     69/01     69/06     69/18     69/23     69/37     70/22     70/25
                                           68/55     69/03     69/09     69/20     69/28     70/09     70/23     70/26
                                           68/57     69/05     69/13     69/22     69/34     70/19     70/24
        KW.DONP        51   FTX            69/07     69/09     69/11     69/35     69/38     70/06
        KW.FECL         5   FTX            68/49     68/57     69/08     69/16     69/24     69/32     69/40     70/21
                                           68/50     69/01     69/09     69/17     69/25     69/33     70/05     70/22
                                           68/51     69/02     69/10     69/18     69/26     69/34     70/06     70/23
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/07     70/24
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/08     70/25
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/09     70/26
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/19
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/20
        KW.GENP        46   FTX            68/49     68/56     69/07     69/11     69/25     69/33     69/40     70/09
                                           68/50     69/02     69/08     69/12     69/29     69/35     70/06     70/20
                                           68/53     69/03     69/09     69/17     69/30     69/36     70/07     70/21
                                           68/54     69/04     69/10     69/19     69/32     69/38     70/08     70/26
        KW.ILP         43   FTX            69/03     69/07     69/09     69/11     69/12     70/09
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   195
        SYMBOLIC REFERENCE TABLE. 
  
        KW.JMPL        22   FTX            68/49     68/57     69/08     69/16     69/24     69/32     69/40     70/21
                                           68/50     69/01     69/09     69/17     69/25     69/33     70/05     70/22
                                           68/51     69/02     69/10     69/18     69/26     69/34     70/06     70/23
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/07     70/24
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/08     70/25
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/09     70/26
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/19
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/20
        KW.KEYL        22   FTX            68/49     68/57     69/08     69/16     69/24     69/32     69/40     70/21
                                           68/50     69/01     69/09     69/17     69/25     69/33     70/05     70/22
                                           68/51     69/02     69/10     69/18     69/26     69/34     70/06     70/23
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/07     70/24
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/08     70/25
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/09     70/26
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/19
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/20
        KW.LBLP        47   FTX            68/49     68/56     69/09     69/17     69/30     69/36     70/07
                                           68/50     69/02     69/10     69/19     69/32     69/38     70/08
                                           68/53     69/04     69/11     69/25     69/33     69/40
                                           68/54     69/08     69/15     69/29     69/35     70/06
        KW.LENL         7   FTX            68/49     68/57     69/08     69/16     69/24     69/32     69/40     70/21
                                           68/50     69/01     69/09     69/17     69/25     69/33     70/05     70/22
                                           68/51     69/02     69/10     69/18     69/26     69/34     70/06     70/23
                                           68/52     69/03     69/11     69/19     69/27     69/35     70/07     70/24
                                           68/53     69/04     69/12     69/20     69/28     69/36     70/08     70/25
                                           68/54     69/05     69/13     69/21     69/29     69/37     70/09     70/26
                                           68/55     69/06     69/14     69/22     69/30     69/38     70/19    171/50
                                           68/56     69/07     69/15     69/23     69/31     69/39     70/20
        KW.LENP        22   FTX           171/48
        KW.NBSP        42   FTX            69/03     70/20     70/21     70/26
        KW.NIFP        50   FTX            68/51     69/01     69/07     69/13     69/18     69/23     69/28     69/39
                                           68/52     69/03     69/09     69/14     69/20     69/24     69/31     70/05
                                           68/55     69/05     69/11     69/15     69/21     69/26     69/34     70/06
                                           68/57     69/06     69/12     69/16     69/22     69/27     69/37
        KW.PWSP        44   FTX            69/09     70/09     70/22     70/24     70/25
        KY=END         74   PROGRAM*       69/09 L   77/16
        K$=BEGC         0   EXTERNAL*       2/05 X   70/19
        K$=COLL         0   EXTERNAL*       2/05 X   70/20
        K$=DO           0   EXTERNAL*       2/05 X   70/21
        K$=ELSE         0   EXTERNAL*       2/05 X   70/22
        K$=ENDC         0   EXTERNAL*       2/05 X   70/23
        K$=ENDI         0   EXTERNAL*       2/05 X   70/24
        K$=IF           0   EXTERNAL*       2/05 X   70/25
        K$=LIST         0   EXTERNAL*       2/06 X   70/26
        LDB          2066   PROGRAM*       80/43    182/33 L  182/33 E
        LDBA         2104   PROGRAM*      182/50 S  182/52    183/35 L
        LDB2         2071   PROGRAM*      182/52 L  183/22    183/25
        LDB3         2102   PROGRAM*      182/55    183/27 L
        LEX           156   PROGRAM*       72/32 L   72/32 E
        LEXFLG          4   PROGRAM*       55/50 L   74/56     80/27     99/24    140/57    150/16    177/02    183/27
                                           55/51 E   75/30     80/37    136/02    141/40    151/14    178/51
                                           72/37     79/34     97/47    137/01    142/29    151/51    181/01
        LEXMODE         5   PROGRAM*       56/33 L   56/33 E   72/38     77/28 S   78/01    100/29
        LEX10         255   PROGRAM*       72/45     72/46     73/25     73/27     77/15     77/19     77/26     77/33 L
        LEX10B        266   PROGRAM*       78/05     78/10     78/12     78/17 L
        LEX11         277   PROGRAM*       77/29     78/32     78/40     78/42     79/04 L
        LEX11A        301   PROGRAM*       77/23     79/09 L
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   196
        SYMBOLIC REFERENCE TABLE. 
  
        LEX12A        311   PROGRAM*       79/42     79/47 L
        LEX13         314   PROGRAM*       79/36     79/51 L
        LEX13B        317   PROGRAM*       79/53     80/02 L
        LEX13C        324   PROGRAM*       79/56     80/16 L
        LEX14         327   PROGRAM*       79/33     79/45     79/49     80/10     80/27 L
        LEX2          164   PROGRAM*       72/50 L   78/15     78/34     78/36     78/38
        LEX20         331   PROGRAM*       73/31     80/34 L
        LEX21         335   PROGRAM*       80/42     80/45 L
        LEX3          176   PROGRAM*       73/21     74/01 L
        LEX3A         202   PROGRAM*       74/04     74/10     74/13 L
        LEX4          204   PROGRAM*       73/29     74/16     74/48 L   75/35
        LEX4A         213   PROGRAM*       75/04     75/07 L
        LEX5          216   PROGRAM*       73/23     75/30 L
        LEX6          222   PROGRAM*       75/33     75/37 L
        LEX7          224   PROGRAM*       75/37     75/42 L
        LEX8          231   PROGRAM*       75/14     75/49     75/50     76/22 L
        LEX9          252   PROGRAM*       77/13     77/25 L
        LEX=LN1       167   PROGRAM*       73/06     73/15 L   73/34
        LEX=LN2       270   PROGRAM*       78/17     78/26 L   78/46
        LEX.DLN       340   PROGRAM*       80/45     80/52 L
        LF.CHRP        62   FTX           142/30    151/15    181/04
        LF.INIP        70   FTX            72/40     75/09     75/32
        LF.LACP        65   FTX            80/29     80/38    181/02
        LF.TDEP        57   FTX            79/35    137/03    141/42    151/53    178/53
                                          136/04    141/02    150/18    177/04    181/06
        LM.NORM         0   FTX            78/13
        LM.NTR          1   FTX            72/41     77/27     78/02     78/07
        LM.1ST          2   FTX            72/44     78/03    100/33
        LN=FEN          6   PROGRAM*       58/13 L   82/32 S   84/54 S   87/38 S   87/39     87/57 S   88/01     98/44
        LN=FENB         7   PROGRAM*       58/15 L   82/33 S   84/55 S   87/39     87/41     88/01     88/03     98/46
        LN=FENL        10   PROGRAM*       58/17 L   82/34 S   85/06 S   87/41     88/03     98/47
        LN=LABL        11   PROGRAM*       58/36 L   74/01     75/31     82/29 S   84/19 S   88/41 S
        LN=NUML        12   PROGRAM*       59/04 L   74/48     82/30 S   83/39 S   86/13 S
        LN=NUMR        13   PROGRAM*       59/05 L   74/49     82/31 S   83/41 S   86/19 S   96/50
        LN=TYPE        14   PROGRAM*       59/29 L   77/07     84/06 S   86/18 S   87/45 S   98/36
                                           72/55     77/50     84/48 S   87/14 S   88/18     99/25
                                           74/50     82/36 S   85/13     87/34 S   97/48
        LSL          2105   PROGRAM*       99/44    183/24    183/56 L  183/56 E
        LSLA         2142   PROGRAM*      184/06 S  184/54    185/04    185/08 L
        LSL2         2113   PROGRAM*      184/12 L  184/15    184/18
        LSL3         2116   PROGRAM*      184/16    184/20 L
        LSL4         2125   PROGRAM*      184/37 L  184/51
        LSL5         2133   PROGRAM*      184/39    184/53 L
        LSL6         2136   PROGRAM*      184/07    185/01 L
        LSS          2143   PROGRAM*      155/47    185/33 L  185/33 E
        LSS10        2146   PROGRAM*      185/39 L  185/47
        LTB=            0   EXTERNAL*       2/28 X
        LT.CMNT         3                  59/35 D   78/08     84/05     87/13     97/51     99/29
        LT.CONT         2                  59/34 D   84/25     86/27
        LT.C$           5                  59/37 D   74/53     77/25     84/01     87/08
        LT.EOR          6                  59/38 D   82/35
        LT.INIT         1                  59/33 D   77/11     84/28     84/37     85/14     88/25
        LT.NULL         4                  59/36 D   78/11     84/30     85/15     86/15     88/20     97/52
        LT.UNTYP        0                  59/32 D
        L.CARD          0   EXTERNAL*       2/17 X   82/26     98/28     99/42    102/13 S
        L.KEYS        154   PROGRAM*       70/33 L   94/30
        L.KEYW         61                  69/48 D   70/33
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   197
        SYMBOLIC REFERENCE TABLE. 
  
        L.KEY$         10                  70/28 D   70/33
        L.LN1           7                  73/34 D
        L.LN2           7                  78/46 D
        L.TCOM         20                  43/34 D   66/03
        MAX.CDL        12   FTX           101/51
        MVE=            0   EXTERNAL*       3/12 X   99/08    184/29
        MX=CMNT        16   PROGRAM*       59/54 L
        MX=0..9        15   PROGRAM*       59/51 L   86/04     88/19     88/40
        NCM             0   EXTERNAL*       2/18 X  177/32    179/53
        O=AND        1150   PROGRAM*      131/50 L
        O=CAT        1110   PROGRAM*      131/50 L
        O=COLON      1310   PROGRAM*      131/50 L
        O=COMMA      1266   PROGRAM*      131/50 L
        O=DQOT       1274   PROGRAM*      131/50 L
        O=EQ         1114   PROGRAM*      131/50 L
        O=EQV        1174   PROGRAM*      131/50 L
        O=EXP        1100   PROGRAM*      131/50 L
        O=FALSE      1170   PROGRAM*      131/50 L
        O=GE         1124   PROGRAM*      131/50 L
        O=GT         1134   PROGRAM*      131/50 L
        O=HEX        1214   PROGRAM*      131/50 L
        O=ILL        1106   PROGRAM*      131/50 L
        O=LE         1140   PROGRAM*      131/50 L
        O=LP         1261   PROGRAM*      131/50 L
        O=LT         1130   PROGRAM*      131/50 L
        O=MIN        1256   PROGRAM*      131/50 L
        O=NE         1120   PROGRAM*      131/50 L
        O=NEQV       1200   PROGRAM*      131/50 L
        O=NOT        1160   PROGRAM*      131/50 L
        O=OCT        1206   PROGRAM*      131/50 L
        O=OR         1144   PROGRAM*      131/50 L
        O=PERIOD     1267   PROGRAM*      131/50 L
        O=PL         1255   PROGRAM*      131/50 L
        O=RP         1262   PROGRAM*      131/50 L
        O=SLASH      1260   PROGRAM*      131/50 L
        O=SQOT       1300   PROGRAM*      131/50 L
        O=STAR       1257   PROGRAM*      131/50 L
        O=TRUE       1164   PROGRAM*      131/50 L
        O=XOR        1154   PROGRAM*      131/50 L
        O==          1264   PROGRAM*      131/50 L
        O.AND          31   FTX           131/50
        O.BOS           0   FTX            42/46 F  131/50    132/43    133/35    134/22
                                          115/15    132/33    133/30    134/12
        O.CAT          36   FTX           131/50
        O.CHAR          4   FTX           135/49
        O.COLON        43   FTX           131/50
        O.COMMA        42   FTX           131/50
        O.CONS          5   FTX           129/37    174/13    175/54
        O.DQOT         64   FTX           131/50
        O.EOS           0   FTX            42/49 F  122/22    186/42
        O.EQ           24   FTX           131/50
        O.EQV          34   FTX           131/50
        O.EXP          21   FTX           131/50
        O.FALSE        13   FTX           131/50
        O.GE           23   FTX           131/50
        O.GT           27   FTX           131/50
        O.HEX           7   FTX           131/25    131/50    131/50    131/50
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   198
        SYMBOLIC REFERENCE TABLE. 
  
        O.HOLL          1   FTX           136/48
        O.ILL          46   FTX            80/05    131/50    131/50    131/50    131/50    131/50    131/50    180/13
                                           80/16    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    176/16
                                          131/50    131/50    131/50    131/50    131/50    131/50    177/52
        O.LE           26   FTX           131/50
        O.LP           37   FTX           131/50
        O.LT           22   FTX           131/50
        O.MIN          15   FTX           131/50
        O.NE           25   FTX           131/50
        O.NEQV         33   FTX           131/50
        O.NOT          30   FTX           131/50
        O.OCT           6   FTX           131/36    131/50    131/50    131/50
        O.OR           35   FTX           131/50
        O.PERIOD       10   FTX           131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
        O.PL           14   FTX           131/50
        O.QHOLL         2   FTX           141/32    179/11
        O.RLCON         3   FTX           179/11
        O.RP           40   FTX           131/50
        O.SEP          14   FTX            93/31
        O.SLASH        17   FTX           131/50    131/50
        O.SQOT         63   FTX           131/50
        O.STAR         16   FTX           131/50    131/50    142/33
        O.TRUE         12   FTX           131/50
        O.VAR          11   FTX            92/21    131/50    131/50    131/50    131/50    131/50    131/50    137/23
                                           93/42    131/50    131/50    131/50    131/50    131/50    131/50    137/36
                                          129/46    131/50    131/50    131/50    131/50    131/50    131/50    140/45
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    141/06
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    174/15
        O.XOR          32   FTX           131/50
        O.(            37   FTX            93/10     94/14
        O.=            41   FTX           131/50
        PDM             0   EXTERNAL*       2/56 X   75/34     75/38     75/51     80/04     80/22    177/56    180/21
        PLR           557   PROGRAM*       72/50     95/55 L
        PLR30         562   PROGRAM*       96/50 L
        PLR40         563   PROGRAM*       96/23     96/53 L
        PLR41         567   PROGRAM*       96/57     97/06 L
        PLR42         574   PROGRAM*       97/09     97/20 L
        PLR43         575   PROGRAM*       97/04     97/24 L
        PLR44         576   PROGRAM*       97/07     97/18     97/29 L
        PLR60         603   PROGRAM*       97/53     98/28 L
        PLR70         620   PROGRAM*       97/54     97/55     99/23 L
        PLR80         626   PROGRAM*       99/30     99/41 L
        PWBUF           0   EXTERNAL*       3/02 X  184/21    184/26 S  184/32    184/33
        QOC2         1572   PROGRAM*      152/05    152/08 L
  U     QUAL$                             103/06 F  128/01 F  157/06 F  165/37 F  166/06 F  169/48 F
        RDC=            0   EXTERNAL*       3/12 X  101/22
        REP.          140   PROGRAM*       70/08 L   93/41     94/08     94/20
        RER          1033   PROGRAM*      128/05 D  136/54    137/20    137/51    138/19    138/53    145/40    146/36
        RIP2         1610   PROGRAM*      154/10    154/11    154/17 L
        RIP3         1611   PROGRAM*      154/20 L  154/30
        RIP4         1615   PROGRAM*      154/20    154/40 L
        RNC           631   PROGRAM*       77/33    100/26 L  100/26 E
        RNC10         656   PROGRAM*      102/03 L  102/06
        RNC11         660   PROGRAM*      101/31    102/03    102/10 L
        RNC3          637   PROGRAM*      101/14 L  101/16
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   199
        SYMBOLIC REFERENCE TABLE. 
  
        RNC4          641   PROGRAM*      100/34    101/22 L
        RNC5          643   PROGRAM*      101/20    101/26 L
        RNC6          646   PROGRAM*      101/27    101/35 L
        RNC7          651   PROGRAM*      101/36    101/45 L
        RNC8          653   PROGRAM*      101/41    101/50 L
        RNC9          655   PROGRAM*      101/52    101/57 L
        SB=CONT        17   PROGRAM*       61/22 L   61/22 E   75/42    181/10 S
        SB=LINC        20   PROGRAM*       61/32 L   61/32 E   80/48 S   97/49     99/10    181/13 S  182/35
        SB=LORD        21   PROGRAM*       62/05 L   62/05 E   76/33     98/57 S   99/33    153/25    181/14 S
        SB.FENBL        6                  60/48 D  187/34
        SB.FENBP       41                  60/48 D   98/50    187/38    187/41
        SB.FENL        22                  60/47 D  187/45
        SB.FENLL       11                  60/49 D  187/35
        SB.FENLP       30                  60/49 D   98/53    187/41    187/44
        SB.FENP        47                  60/47 D   98/55    187/44
        SB.LENL        22                  60/51 D
        SB.LENP         0                  60/51 D
        SB.LERRP       72                  60/45 D  183/08
        SB.LISTP       71                  60/46 D
        SB.LNTL         6                  60/50 D
        SB.LNTP        22                  60/50 D   98/41
        SB.LOUTP       73                  60/44 D  183/08
        SER          1042   PROGRAM*      128/06 D  137/14    137/45    138/13    138/47    145/27
                                          136/37    137/32    138/02    138/36    139/10    146/23
        SFD             0   EXTERNAL*       3/05 X   70/05
        SFN             0   EXTERNAL*       3/12 X   88/37    101/45
        SFT          2151   PROGRAM*      177/12    179/31    186/12 L
        SQT          1343   PROGRAM*      131/47    134/08 L
        SSY             0   EXTERNAL*       2/18 X   94/19
        STAGE           0   EXTERNAL*       2/18 X   94/09     96/53
        STF.          135   PROGRAM*       70/05 L   94/23
        TB=CDF         23   PROGRAM*       63/18 L   75/07 S   92/11     94/28    180/50 S
        TB=LABL        24   PROGRAM*       63/33 L   63/33 E   74/15    180/51 S
        TB=LABR        25   PROGRAM*       63/34 L   63/34 E   74/14 S   74/15    180/52 S
        TB=LLP         26   PROGRAM*       64/34 L  143/24    148/22    150/48    154/17    154/41 S  180/53 S
        TB=NUML        27   PROGRAM*       65/05 L   65/05 E   74/54 S   80/49 S  180/54 S
        TB=NUMR        30   PROGRAM*       65/06 L   65/06 E   74/55 S  180/55 S
        TB=PLVL        31   PROGRAM*       65/24 L   65/24 E  142/46    143/45    148/20    150/45    154/06    180/56 S
        TB=TYPE        32   PROGRAM*       65/39 L   65/39 E   77/21 S   80/36 S   94/52 S  180/57 S
        TB=1ST         22   PROGRAM*       62/51 L   62/51 E   77/22 S   92/24 S   93/46 S   94/53 S  180/49 S
        TB.CLCNL       17   FTX           179/29
        TB.CLCNP       33   FTX           136/49    177/21    179/16    179/18    179/28
        TB.EQLP        72   FTX           148/44
        TB.IOCPL       22   FTX           143/33    148/38    154/27
        TB.IOCPP       44   FTX           143/32    148/37    154/26    154/32
        TB.LCONP       22   FTX           177/17    179/03    179/06
        TB.LLPL        22   FTX           143/30    148/35    154/24
        TB.LLPP        22   FTX           143/29    143/32    148/34    148/37    150/50    154/23    154/26
        TB.SHCP        52   FTX           177/44    180/07
        TB.TOCL        52   FTX            47/18     77/10    136/40    172/50    176/06
        TB.TOTL        22   FTX            47/19    175/12
        TC=BOL         50   PROGRAM*       66/16 D
        TC=EOL         51   PROGRAM*       66/17 D   75/02 S  149/10 S
        TC=P           37   PROGRAM*       66/07 D   75/13 S
        TC=REST        52   PROGRAM*       66/18 D   75/03 S
        TC=RSF         47   PROGRAM*       66/15 D   75/01 S   75/45 S
        TC=SOA         40   PROGRAM*       66/08 D   76/34     89/29 S  145/29    145/37    146/25    146/33
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   200
        SYMBOLIC REFERENCE TABLE. 
  
        TC=SOB         43   PROGRAM*       66/11 D   89/32 S
        TC=SOC         44   PROGRAM*       66/12 D   89/33 S
        TC=SOL         42   PROGRAM*       66/10 D   89/28 S
        TC=SOX         41   PROGRAM*       66/09 D   89/35 S
        TC=TBA         45   PROGRAM*       66/13 D   76/26     76/46     79/38    180/48 S
        TC=TBB         46   PROGRAM*       66/14 D
        TC.BOL         15                  43/29 D   66/16
        TC.EOL         16                  43/30 D  122/26    132/30    133/27    134/09
                                           66/17    129/31    132/40    133/32    134/19
        TC.FCP          1                  43/17 D  114/25
        TC.FWA          0                  43/16 D  114/02    114/25
        TC.LCP          3                  43/19 D  114/52
        TC.LWA          2                  43/18 D  114/51    114/52
        TC.P            4                  43/20 D   66/07    126/52    126/52    126/53    127/34    127/34 S  127/36
        TC.REST        17                  43/31 D  116/54    132/31    133/28    134/10
                                           66/18    129/32    132/41    133/33    134/20
        TC.RSF         14                  43/28 D   66/15    115/14
        TC.SOA          5                  43/21 D   66/08    114/38 S  126/53    126/54    127/36    127/38
        TC.SOB         10                  43/24 D   66/11    114/39 S  127/04    127/05    127/42    127/44
        TC.SOC         11                  43/25 D   66/12    115/06 S  127/06    127/44    127/46
        TC.SOL          7                  43/23 D   66/10    115/07 S  126/55    127/04    127/40    127/42
        TC.SOX          6                  43/22 D   66/09    114/47 S  126/54    126/55    127/38    127/40
        TC.TBA         12                  43/26 D   66/13    115/13    127/46    127/48
        TC.TBB         13                  43/27 D   66/14    127/05    127/06    127/48
        TEST            0   FTX            42/55 F   77/52 F  116/02 F  128/09 F  177/34 F  182/37 F
                                           69/43 F   79/11 F  121/46 F  128/33 F  179/37 F  182/57 F
                                           72/57 F  112/45 F  122/05 F  136/45 F  179/54 F  187/52 F
        TF=SQZ        663   PROGRAM*       87/32    128/07 D  136/01 S  136/57 S  141/39 S  145/42 S  146/38 S
        TG.CADL        22                  44/06 D  129/39    131/37    132/34    132/39    133/31    134/13    134/18
                                          117/16    131/26    132/32    132/36    133/29    134/11    134/15
        TG.CADP        22                  44/06 D  129/39    131/37    132/34    132/39    133/31    134/13    134/18
                                          117/15    131/26    132/32    132/36    133/29    134/11    134/15
        TG.COAL        14                  44/16 D  129/52
        TG.COAP        60                  44/16 D  119/27    119/29
        TG.COZL        14                  44/17 D  129/52
        TG.COZP        44                  44/17 D  119/29    119/32
        TG.FALL        22                  44/39 D  129/36    129/45    132/42    134/14
                                          124/20    129/38    132/35    133/34    134/21
        TG.FALP        44                  44/39 D  129/36    129/45    132/42    134/14
                                          124/17    129/38    132/35    133/34    134/21
        TG.GOTL        22                  45/06 D  125/01    131/06    131/27    131/48    132/45    133/37    134/24
                                          123/27    129/27    131/16    131/38    132/29    133/26    134/08
        TG.GOTP        22                  45/06 D  124/52    129/27    131/16    131/38    132/29    133/26    134/08
                                          123/26    125/01    131/06    131/27    131/48    132/45    133/37    134/24
        TG.GTTL        22                  44/51 D  122/39
        TG.GTTP        22                  44/51 D  122/38
        TG.IFLL        52                  44/28 D
        TG.IFLP        22                  44/28 D
        TG.INCL        22                  45/30 D  129/31    132/30    132/40    133/27    133/32    134/09    134/19
                                          124/37    129/32    132/31    132/41    133/28    133/33    134/10    134/20
        TG.INCP        22                  45/30 D  124/36
        TG.INVL        22                  45/29 D  129/31    132/30    132/40    133/27    133/32    134/09    134/19
                                          124/33    129/32    132/31    132/41    133/28    133/33    134/10    134/20
        TG.INVP        44                  45/29 D  129/31    132/31    133/27    133/33    134/19
                                          124/32    129/32    132/40    133/28    134/09    134/20
                                          124/36    132/30    132/41    133/32    134/10
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   201
        SYMBOLIC REFERENCE TABLE. 
  
        TG.MXAL        22                  44/40 D  124/14    129/38    131/25    132/35    133/30    134/12    134/22
                                           45/18 D  129/36    129/45    131/36    132/42    133/34    134/14
                                          123/43    129/37    129/46    132/33    132/43    133/35    134/21
        TG.MXAP        22                  44/40 D   45/18 D  122/56    123/42    124/13    124/17
        TG.TADL        22                  44/18 D  119/34    129/52
        TG.TADP        22                  44/18 D  119/32
        TG.TOFUL       22                  43/44 D  116/15    129/45    131/37    132/35    133/28    134/09    134/21
                                           44/07 D  125/01    129/46    131/38    132/36    133/29    134/10    134/22
                                           44/19 D  129/27    129/52    131/47    132/39    133/30    134/11    134/24
                                           44/29 D  129/31    131/06    131/48    132/40    133/31    134/12
                                           44/41 D  129/32    131/15    132/29    132/41    133/32    134/13
                                           44/52 D  129/36    131/16    132/30    132/42    133/33    134/14
                                           45/07 D  129/37    131/25    132/31    132/43    133/34    134/15
                                           45/19 D  129/38    131/26    132/32    132/45    133/35    134/18
                                           45/31 D  129/39    131/27    132/33    133/26    133/37    134/19
                                           45/42 D  129/40    131/36    132/34    133/27    134/08    134/20
        TG.TOFUP        0                  43/44 D   44/29 D   45/07 D   45/42 D  122/38    123/26    124/13
                                           44/07 D   44/41 D   45/19 D  117/15    122/51    123/37    124/32
                                           44/19 D   44/52 D   45/31 D  119/27    123/16    124/03    124/47
        TG.TOTL        22                  45/17 D  123/38    129/46    131/36    132/43    133/35    134/22
                                          122/52    129/37    131/25    132/33    133/30    134/12
        TG.TOTP        44                  45/17 D  123/16    124/03    131/25    132/43    134/12
                                          122/51    123/37    129/37    131/36    133/30    134/22
                                          122/56    123/42    129/46    132/33    133/35
        TG.XADL        22                  45/41 D  124/48    129/40    131/15    131/47
        TG.XADP        22                  45/41 D  124/47    129/40    131/15    131/47
        TK.LNKL        22                  46/07 D  131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                           46/36    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          119/52    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
        TK.LNKP        22                  46/07 D  120/01    121/10
        TK.PADL        22                  46/06 D  131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                           46/35    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          119/51    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
        TK.PADP        44                  46/06 D  131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          119/55    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          120/01    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          121/08    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          121/10    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   202
        SYMBOLIC REFERENCE TABLE. 
  
        TK.TOTL        22                  46/08 D  131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                           46/37    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          119/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
        TK.TOTP         0                  46/08 D  119/49
        TLV             0   EXTERNAL*       2/18 X   93/44
        TL.FALL        22                  46/20 D  131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          120/28    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
        TL.FALP        22                  46/20 D  120/37    120/41
        TL.LNKL        22                  46/36 D
        TL.LNKP        22                  46/36 D
        TL.MACL        52                  46/27 D  120/53    120/54
        TL.MACP        22                  46/27 D  120/54
        TL.MAFP        73                  46/17 D  120/47
        TL.PADL        22                  46/35 D
        TL.PADP        44                  46/35 D
        TL.PREL        22                  46/21 D  120/29
        TL.PREP         0                  46/21 D
        TL.TOTL        22                  46/37 D  131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
        TL.TOTP         0                  46/37 D
        TL.TRUL        22                  46/19 D  131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          120/27    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50
        TL.TRUP        44                  46/19 D  120/41    120/47
        TOK           664   PROGRAM*       76/43    128/03 D  149/12    152/33
        TOK=BBL      1401   PROGRAM*      131/50    137/13 L
        TOK=BBO      1421   PROGRAM*      131/50    138/12 L
        TOK=BBR      1412   PROGRAM*      131/50    137/44 L
        TOK=BBZ      1432   PROGRAM*      131/50    138/46 L
        TOK=BOC      1361   PROGRAM*      134/11    135/48 L
        TOK=BOH      1367   PROGRAM*      133/29    136/36 L
        TOK=BOL      1442   PROGRAM*      131/50    137/21    139/16 L
        TOK=BOO      1450   PROGRAM*      131/50    140/40 L
        TOK=BOQ      1463   PROGRAM*      132/32    141/31 L
        TOK=BOR      1445   PROGRAM*      131/50    137/52    139/31 L
        TOK=BOX      1470   PROGRAM*      131/50    142/07 L
        TOK=BRL      1407   PROGRAM*      131/50    137/31 L
        TOK=BRO      1430   PROGRAM*      131/50    138/35 L
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   203
        SYMBOLIC REFERENCE TABLE. 
  
        TOK=BRR      1417   PROGRAM*      131/50    138/01 L
        TOK=BRZ      1440   PROGRAM*      131/50    139/09 L
        TOK=CAL       725   PROGRAM*      117/14 L  129/39    131/37    132/34    132/39    133/31    134/13    134/18
                                          128/27 E  131/26    132/32    132/36    133/29    134/11    134/15
        TOK=CHR      1472   PROGRAM*      131/50    142/28 L
        TOK=CMA      1475   PROGRAM*      131/50    142/45 L
        TOK=COF       727   PROGRAM*      118/31 L  128/27 E  129/52
        TOK=COL      1500   PROGRAM*      131/50    143/23 L
        TOK=CON       753   PROGRAM*      128/13 D  141/04    142/35
        TOK=COS       752   PROGRAM*      128/12 D  142/50    143/48    148/31    149/55    154/35
                                          142/48    143/46    143/51    148/47    150/54    154/42
        TOK=DQT      1511   PROGRAM*      131/50    140/51    144/39 L
        TOK=EOC      1513   PROGRAM*      134/18    145/26 L
        TOK=EOH      1523   PROGRAM*      133/31    146/22 L  147/33
        TOK=EOL       755   PROGRAM*      128/24 D
        TOK=EOO      1533   PROGRAM*      131/26    131/37    146/57 L
        TOK=EOQ      1523   PROGRAM*      132/39    147/33 D
        TOK=EQL      1535   PROGRAM*      131/50    148/19 L
        TOK=GEN       762   PROGRAM*      122/37 L
        TOK=GN        765   PROGRAM*      122/50 L  128/28 E  132/33    133/30    134/12    152/16    152/18
        TOK=GO        775   PROGRAM*      123/25 L  129/27    131/16    131/38    132/29    133/26    134/08
                                          128/28 E  131/06    131/27    131/48    132/45    133/37    134/24
        TOK=GS       1000   PROGRAM*      123/36 L  129/37    131/25    132/43    134/22
                                          128/28 E  129/46    131/36    133/35
        TOK=HOL      1544   PROGRAM*      133/27    149/06 L  149/08
        TOK=IDP         0   EXTERNAL*       2/28 X
        TOK=IFT      1010   PROGRAM*      124/12 L  129/36    129/45    132/42    134/14
                                          128/29 E  129/38    132/35    133/34    134/21
        TOK=ILL      1551   PROGRAM*      131/50    131/50    131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50    131/50    149/51 L
        TOK=ITQ      1553   PROGRAM*      132/34    134/13    150/12 L
        TOK=LP       1556   PROGRAM*      131/50    150/44 L
        TOK=MN        706   PROGRAM*      128/11 D  137/05    139/38    144/43    146/39    149/41    151/16    154/54
                                          136/07    139/23    141/45    145/43    147/04    150/21    151/18
        TOK=NOH      1561   PROGRAM*      129/39    151/13 L
        TOK=ON       1014   PROGRAM*      124/30 L  129/31    132/30    132/40    133/27    133/32    134/09    134/19
                                          128/30 E  129/32    132/31    132/41    133/28    133/33    134/10    134/20
        TOK=QOC      1564   PROGRAM*      134/15    151/49 L
        TOK=QOC1     1565   PROGRAM*      151/51 L  153/09
        TOK=QOL      1576   PROGRAM*      132/30    134/09    152/30 L
        TOK=QOQ      1600   PROGRAM*      132/36    153/07 L
        TOK=REH      1601   PROGRAM*      133/28    153/24 L  153/41
        TOK=REQ      1601   PROGRAM*      132/31    134/10    153/41 D
        TOK=RP       1604   PROGRAM*      131/50    154/05 L
        TOK=SQT      1617   PROGRAM*      131/50    154/52 L
        TOK=XEQ      1020   PROGRAM*      124/46 L  128/31 E  129/40    131/15    131/47
        TOM=BOS      1052   PROGRAM*       75/11    129/30 L
        TOM=DQT      1065   PROGRAM*      131/14 L  139/17    139/32    144/42
        TOM=DUM      1051   PROGRAM*      129/26 L  129/27
        TOM=HEX      1067   PROGRAM*      131/24 L  138/55    142/08
        TOM=NXT      1054   PROGRAM*      129/35 L  131/06    131/16    131/27    131/38    131/48
        TOM=OCT      1072   PROGRAM*      131/35 L  138/21    140/41
        TOM=QOC      1347   PROGRAM*      134/12 L  151/50
        TOM=QOQ      1316   PROGRAM*      132/33 L  153/08
        TOM=SQT      1075   PROGRAM*      131/46 L  154/53
        TOM=VAR      1061   PROGRAM*      129/44 L  151/17
        TTB          2162   PROGRAM*       79/44     79/48     80/09     80/20    186/40 L
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   204
        SYMBOLIC REFERENCE TABLE. 
  
        T=STMT          0   EXTERNAL*       3/02 X  181/12    181/12 S
        T=TB            0   EXTERNAL*       3/02 X   76/50     76/50 S  180/46    180/46 S  186/46    186/46 S
        T.CON           0   EXTERNAL*       3/02 X  177/30    179/51
        T.STMT          0   EXTERNAL*       3/02 X   98/35    145/28    146/24    182/34
                                           76/32     99/32    145/36    146/32    187/33
        T.TB            0   EXTERNAL*       3/02 X   76/22     76/45     77/06     79/04     79/37    186/41
        UNTYP.        134   PROGRAM*       70/04 L   92/25     94/34
        WA.SYML        52   FTX            94/13
        WA.SYMP        22   FTX           148/25
        WB.ARYP        12   FTX            94/21
        WOF             0   EXTERNAL*       3/02 X  156/03    184/53    185/03
        WOF=ERR         0   EXTERNAL*       3/02 X  183/09    183/57    184/30    184/46
        WO.LOS          0   EXTERNAL*       3/02 X   99/23
        XER          2166   PROGRAM*      153/26    187/32 L
        ZLCOLON         0   EXTERNAL*       2/18 X  143/44
        ZLCOMMA         0   EXTERNAL*       2/18 X   92/20    142/49 S
        ZLEQUAL         0   EXTERNAL*       2/18 X   92/19    148/21
        ZLPAREN         0   EXTERNAL*       2/18 X   93/06    154/07
        ZTB             0   EXTERNAL*       3/12 X   96/51
        .FIX            0                 156/09 D
        '?AND           0                 131/50 D  131/50
        '?CAT           0                 131/50 D  131/50
        '?COLON         0                 131/50 D  131/50
        '?COMMA         0                 131/50 D  131/50
        '?DQOT       1201   PROGRAM*      131/50 L  131/50
        '?EQ            0                 131/50 D  131/50
        '?EQV           0                 131/50 D  131/50
        '?EXP           0                 131/50 D  131/50
        '?FALSE         0                 131/50 D  131/50
        '?GE            0                 131/50 D  131/50
        '?GT            0                 131/50 D  131/50
        '?HEX           0                 131/50 D  131/50    131/50    131/50
        '?ILL           0                 131/50 D  131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50
                                          131/50    131/50    131/50    131/50    131/50    131/50
        '?LE            0                 131/50 D  131/50
        '?LP            0                 131/50 D  131/50
        '?LT            0                 131/50 D  131/50
        '?MIN           0                 131/50 D  131/50
        '?NE            0                 131/50 D  131/50
        '?NEQV          0                 131/50 D  131/50
        '?NOT           0                 131/50 D  131/50
        '?OCT           0                 131/50 D  131/50    131/50    131/50
        '?OR            0                 131/50 D  131/50
        '?PL            0                 131/50 D  131/50
        '?RP            0                 131/50 D  131/50
        '?SLASH      1107   PROGRAM*      131/50 L  131/50
        '?SQOT          0                 131/50 D  131/50
        '?STAR       1077   PROGRAM*      131/50 L  131/50
        '?TRUE          0                 131/50 D  131/50
        '?XOR           0                 131/50 D  131/50
        '?=             0                 131/50 D  131/50
  
  
  
  
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   205
        SYMBOLIC REFERENCE TABLE.                                     COMCTOK 
  
                                                  SYMBOL QUALIFIER =  COMCTOK 
  
  
        CCD          1024   PROGRAM*      115/02    126/08 L  128/04
        FW=TCOM       662   PROGRAM*      112/20 L  113/57 S  124/31    126/50    127/31
        RER          1033   PROGRAM*      115/12    126/49 L  128/05
        SER          1042   PROGRAM*      122/25    127/30 L  128/06
        TF=SQZ        663   PROGRAM*      112/43 L  115/43    123/02 S  123/46 S  128/07
        TOK           664   PROGRAM*      113/49 L  128/03
        TOK10         752   PROGRAM*      121/22    121/32 L
        TOK11         753   PROGRAM*      121/35 L
        TOK12         766   PROGRAM*      122/56 L  123/18
        TOK13         771   PROGRAM*      122/50    123/09 L
        TOK14        1001   PROGRAM*      123/42 L  124/05
        TOK15        1004   PROGRAM*      123/36    123/53 L
        TOK2          703   PROGRAM*      114/03    115/11 L
        TOK3          713   PROGRAM*      115/45    115/51 L
        TOK4          715   PROGRAM*      115/41    115/48    115/53    115/56 L
        TOK5A         723   PROGRAM*      117/02    117/06 L
        TOK6          733   PROGRAM*      119/42    119/45 L
        TOK7          735   PROGRAM*      120/31 L  120/40    121/01    121/05    121/35
        TOK8          743   PROGRAM*      120/48    121/03 L
        TOK8A         746   PROGRAM*      120/31    121/18 L
        TOK9          747   PROGRAM*      121/12    121/20 L
        TOK9A         751   PROGRAM*      121/23    121/26 L
        TOK=CAL       725   PROGRAM*      117/14 L
        TOK=COF       727   PROGRAM*      118/31 L
        TOK=CON       753   PROGRAM*      121/34 L  128/13
        TOK=COS       752   PROGRAM*      121/31 L  128/12
        TOK=EOL       755   PROGRAM*      115/49    115/54    122/21 L  123/05    123/49    128/24
        TOK=GEN       762   PROGRAM*      122/37 L
        TOK=GN        765   PROGRAM*      122/50 L  123/10
        TOK=GO        775   PROGRAM*      123/25 L  125/01
        TOK=GS       1000   PROGRAM*      123/36 L  123/54
        TOK=IFT      1010   PROGRAM*      124/12 L
        TOK=MN        706   PROGRAM*      115/39 L  121/37    123/04    123/48    124/22    124/46
                                          117/14    122/37    123/25    124/12    124/30    124/55
                                          118/31    122/43    123/29    124/19    124/39    128/11
        TOK=ON       1014   PROGRAM*      124/30 L
        TOK=RS        717   PROGRAM*      115/16    116/43 L
        TOK=XEQ      1020   PROGRAM*      124/46 L
        XEQA         1023   PROGRAM*      124/49    125/01 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMCBUB 
  
  
        BUB          1646   PROGRAM*      164/26 L  165/39
        BUB2         1653   PROGRAM*      164/42 L  164/47    164/50
        BUB3         1655   PROGRAM*      164/36    164/49 L  164/56    165/04    165/13    165/23
        BUB4         1656   PROGRAM*      164/38    164/53 L
        BUB5         1664   PROGRAM*      164/44    165/22 L
        BUB6         1665   PROGRAM*      165/01    165/27 L
1       LEX - LEXICAL SCANNER/SUPPORTING SUBROUTINES.                 COMPASS 3.7-871.     24/05/02. 13.15.31.      PAGE   206
        SYMBOLIC REFERENCE TABLE.                                     COMCBUN 
  
                                                  SYMBOL QUALIFIER =  COMCBUN 
  
  
        BUN          1670   PROGRAM*      168/40 L  169/50
        BUN2         1674   PROGRAM*      168/54 L  169/03
        BUN3         1676   PROGRAM*      168/48    169/02 L  169/15    169/24    169/34
        BUN4         1677   PROGRAM*      168/50    169/06 L
        BUN5         1705   PROGRAM*      168/56    169/33 L
        BUN6         1706   PROGRAM*      169/09    169/11    169/38 L
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      633              IDENT  HEADER 
                        633                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       610 
                                        LITERALS* LOCAL         610        23 
  
  
                                        ENTRY POINTS. 
  
                                        B=HEADE          0+           KW=OVCA         31+           KW=SUBR        113+ 
                                        KW=BLOC          0+           OVCFLG          41+           PPA130         276+ 
                                        KW=FUNC         12+           KW=OVER         42+           PSA            336+ 
                                        KW=PROG         25+           PSF             73+           WSA            562+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       STAGE     E.FD      E.OV3     ERFO      LEVEL2    S=INIT    T.SYM 
                                        ALC       STY       E.FD0     E.OV4     MSG=      MOD       S=SLI     T=VDI 
                                        ACV       TLV       E.FD1     E.PN1     TL.PNAM   NARGS     S=SPA     T.VDI 
                                        DEC       TSX       E.FD2     E.MDE1    TL.PTYP   N.ARP     S=SUB     V=FILE
                                        OCT       TSY       E.FD3     E.MDE6    SB=CONT   N.CPL     S=SUBI    V=HDR 
                                        CHARMAP   WANFP     E.FD4     E.PN3     TB=TYPE   N.EPL     S=SUB0I   V=LCC 
                                        ERT       E.AG00    E.FD5     FILL.     KW=ENTR   N.FP      S=UPW     V=PLIM
                                        ESY       E.AG01    E.FD6     FILL.2    EMT       SCR       S=VALUE   V=SEX 
                                        FEC=IMP   E.AG02    E.FD7     E.FD11    ANSI=     S=AEXIT   T=ARG     MVE=
                                        FEC=STF   E.AG03    E.FD8     E.FD12    MDERR=    S=CP      T=ENTP    SFN 
                                        FEC.RTN   E.AG04    E.FD9     CO.AL     PDM       S=CPL     T.ARG 
                                        SCS       E.AG07    E.FD10    CO.DBER   HO$MSG    S=ENTRY   T.LCC 
                                        SCSA      E.AG08    E.MR1     CO.DBPM   IDENT     S=EXIT    T.ENT 
                                        SCT       E.AG11    E.OV1     CO.PW     IDENT1    S=FILES   T.ENTP
                                        SSY       E.AG12    E.OV2     CO.STAT   LEVEL     S=GPL     T.FPI 
  
  
  
  
                                                  IDENT  HEADER                                                  HEADER      2
                                         HEADER   SECT   (PROGRAM UNIT HEADER STATEMENTS.)                       HEADER      3
  
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     2
                                                                      HEADER
  
                                        ***       HEADER CONTAINS TRANSLATORS FOR STATEMENTS WHICH BEGIN         HEADER      5
                                        *         PROGRAM-UNITS, AS WELL AS ROUTINES TO DEAL WITH FORMAL         HEADER      6
                                        *         PARAMETER LISTS.                                               HEADER      7
                                                                                                                 HEADER      8
                                                                                                                 HEADER      9
                                        *         IN ALLOC                                                       HEADER     10
                                                  EXT    ADW,ALC                                                 HEADER     11
                                                                                                                 HEADER     12
                                        *         IN DECL                                                        FC50558    11
                                                  EXT    ACV                                                     FC50558    12
                                                                                                                 FC50558    13
                                        *         IN CONRED                                                      HEADER     13
                                                  EXT    DEC,OCT                                                 HEADER     14
                                                                                                                 HEADER     15
                                        *         IN FEC                                                         HEADER     16
                                                  EXT    CHARMAP,ERT,ESY,FEC=IMP,FEC=STF,FEC.RTN,SCS,SCSA        FC5A444    66
                                                  EXT    SCT,SSY,STAGE,STY,TLV,TSX,TSY,WANFP                     FC5A444    67
                                                                                                                 HEADER     19
                                        *         IN FERRS                                                       HEADER     20
                                                  EXT    E.AG00,E.AG01,E.AG02,E.AG03,E.AG04,E.AG07,E.AG08,E.AG11 HEADER     21
                                                  EXT    E.AG12,E.FD,E.FD0,E.FD1,E.FD2,E.FD3,E.FD4,E.FD5,E.FD6   HEADER     22
                                                  EXT    E.FD7,E.FD8,E.FD9,E.FD10,E.MR1,E.OV1,E.OV2,E.OV3,E.OV4  F1037F5   337
                                                  EXT    E.PN1,E.MDE1,E.MDE6                                     F1037F5   338
                                                  EXT    E.PN3,FILL.,FILL.2,E.FD11,E.FD12                        FC5A145    26
                                                                                                                 HEADER     25
                                        *         IN FTN                                                         HEADER     26
                                                  EXT    CO.AL,CO.DBER,CO.DBPM,CO.PW,CO.STAT,ERFO,MSG=,TL.PNAM   FC5A444    68
                                                  EXT    TL.PTYP                                                 FC5A444    69
                                                                                                                 HEADER     28
                                        *         IN LEX                                                         HEADER     29
                                                  EXT    SB=CONT,TB=TYPE                                         HEADER     30
                                                                                                                 HEADER     31
                                        *         IN KEY                                                         FC5A262    21
                                                  EXT    KW=ENTR                                                 FC5A262    22
                                                                                                                 FC5A262    23
                                        *         IN PAR                                                         HEADER     32
                                                  EXT    EMT                                                     HEADER     33
                                                                                                                 HEADER     34
                                        *         IN PEM                                                         HEADER     35
                                                  EXT    ANSI=,MDERR=,PDM                                        F1039     565
                                                                                                                 HEADER     37
                                        *         IN PUC                                                         HEADER     38
                                                  EXT    HO$MSG                                                  FC50969     8
                                                  EXT    IDENT,IDENT1,LEVEL,LEVEL2,MOD,NARGS,N.ARP,N.CPL         FC5A444    70
                                                  EXT    N.EPL,N.FP,SCR                                          FC5A444    71
                                                  EXT    S=AEXIT,S=CP,S=CPL,S=ENTRY,S=EXIT,S=FILES,S=GPL,S=INIT  F1039     567
                                                  EXT    S=SLI,S=SPA,S=SUB,S=SUBI,S=SUB0I,S=UPW,S=VALUE          FC50512     6
                                                  EXT    T=ARG,T=ENTP,T.ARG,T.LCC,T.ENT,T.ENTP,T.FPI,T.SYM       HEADER     42
                                                  EXT    T=VDI,T.VDI                                             FC50558    14
                                                                                                                 HEADER     43
                                        *         IN QSKEL/FSKEL                                                 HEADER     44
                                                  EXT    V=FILE,V=HDR,V=LCC,V=PLIM,V=SEX                         HEADER     45
                                                                                                                 HEADER     46
                                        *         IN UTILITY                                                     HEADER     47
                                                  EXT    MVE=,SFN                                                HEADER     48
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     3
                                                                      BKD 
  
                                        **        BKD -  PROCESS "BLOCKDATA" STATEMENT.                          HEADER     50
                                        *                                                                        HEADER     51
                                        *         EXIT   TO FRONT END CONTROLLER.                                HEADER     52
                                        *                                                                        HEADER     53
                                        *         CALLS  DCM.                                                    HEADER     54
                                                                                                                 HEADER     55
                                                                                                                 HEADER     56
             0                                    HEREIF BLOCKDATA                                               HEADER     57
                                                                                                                 HEADER     58
             0  0100000122 +                      RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                 F1037F5   340
             1  56140                             SA1    B4                                                      HEADER     59
                     5120000011 +                 SA2    BKDA                                                    HEADER     60
             2  0311000004 +                      NZ     X1,BKD1     IF NAME SPECIFIED                           HEADER     61
                          43700                   MX7    0                                                       HEADER     62
                               10622              BX6    X2                                                      HEADER     63
             3  56640                             SA6    B4          DEFAULT NAME TO *TB*                        HEADER     64
                     56741                        SA7    B4+B1                                                   HEADER     65
             4  7160000400               BKD1     CLAS=  X6,MO,(BLK)                                             HEADER     66
                          5140000610 +            SA4    =9ABLOCKDATA                                            HEADER     67
             5  0100000130 +                      RJ     DCM         DISPLAY COMPILING MESSAGE                   HEADER     68
             6  43400                             MX4    0                                                       HEADER     69
                     13555                        BX5    0                                                       HEADER     70
                          6130000000 X            EMIT   V=SEX       INITIALIZE PASS 2                           HEADER     71
            10  0400000000 X                      EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER              HEADER     72
                                                                                                                 HEADER     73
            11  02141304012457000011     BKDA     CON    7LBLKDAT.+O.VAR                                         HEADER     74
  
  
  
  
                                        **        FCT -  PROCESS "FUNCTION" STATEMENT.                           HEADER     76
                                        *                                                                        HEADER     77
                                        *         EXIT   TO FRONT END CONTROLLER.                                HEADER     78
                                        *                                                                        HEADER     79
                                        *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                    HEADER     80
                                        *                2.  TSB = PROCESS ANY FORMAL PARAMETER LIST.            HEADER     81
                                                                                                                 HEADER     82
                                                                                                                 HEADER     83
            12                                    HEREIF FUNCTION                                                HEADER     84
                                                                                                                 HEADER     85
            12  56240                             SA2    B4                                                      HEADER     86
                     5110000000 X                 SA1    MOD                                                     HEADER     87
                               10611              BX6    X1                                                      FC5A116     7
            13  20664                             HX6    MO.TYP                                                  FC5A116     8
                     0336000020 +                 MI     X6,FCT2     IF FUNCTION EXPLICITLY TYPED                FC5A116     9
                               10622              BX6    X2                                                      HEADER     90
            14  6272777766                        SB7    X2-O.VAR                                                HEADER     91
                          0570000020 +            NZ     B7,FCT2     IF NOT VARIABLE,BYPASS STY                  HEADER     92
            15  43066                             MX0    -CHAR                                                   HEADER     93
                     20206                        LX2    CHAR                                                    HEADER     94
                          15220                   BX2    -X0*X2                                                  HEADER     95
            16  6272777744                        SB7    X2-1R0                                                  HEADER     96
                          0670000020 +            PL     B7,FCT2     IF FIRST CHARACTER NOT LETTER               HEADER     97
            17  0100000000 X                      CALL   STY         SET IMPLICIT TYPE                           HEADER     98
            20  7160004000               FCT2     CLAS=  X6,MO,(FUN)                                             FC5A116    10
                          12616                   BX6    X1+X6                                                   FC5A116    11
            21  5140000611 +                      SA4    =8AFUNCTION                                             HEADER    101
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     4
                                                                      FCT 
  
                          0100000130 +            RJ     DCM         DISPLAY COMPILING MESSAGE                   HEADER    102
            22  0100000552 +                      RJ     TSB         TRANSLATE SUBPROGRAM BEGIN                  HEADER    103
            23  0400000000 X                      EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER              HEADER    104
                                                                                                                 HEADER    105
            24  26011425055700000011     SVALUE.  VFD    42/0LVALUE.,18/O.VAR                                    HEADER    106
  
  
  
  
                                        **        PPG -  PROCESS "PROGRAM" STATEMENT.                            HEADER    108
                                        *                                                                        HEADER    109
                                        *         EXIT   TO FRONT END CONTROLLER.                                HEADER    110
                                        *                                                                        HEADER    111
                                        *         CALLS  1.  WARN (NON-ANSI STATEMENT).                          HEADER    112
                                        *                2.  DCM = ASSEMBLE THE PROGRAM NAME.                    HEADER    113
                                        *                3.  PPA = PROCESS ANY FILE DECLARATION LIST.            HEADER    114
                                                                                                                 HEADER    115
                                                                                                                 HEADER    116
            25                                    HEREIF PROGRAM                                                 HEADER    117
                                                                                                                 HEADER    118
            25  7160001000                        CLAS=  X6,MO,(PRO)       SET SUBPROGRAM MODE                   HEADER    119
                          5140000612 +            SA4    =7APROGRAM                                              HEADER    120
            26  0100000130 +                      RJ     DCM         DISPLAY COMPILING MESSAGE                   HEADER    121
            27  0100000214 +                      RJ     PPA         PROCESS PROGRAM ARGUEMENTS                  HEADER    122
            30  0400000000 X                      EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER              HEADER    123
  
  
  
  
                                        **        LCC - HANDLE EMBEDDED LOADER CONTROL CARDS.                    HEADER    125
                                        *                                                                        HEADER    126
                                        *         DIRECTIVES CURRENTLY KNOWN ARE --                              HEADER    127
                                        *                "OVERLAY"                                               HEADER    128
                                        *                                                                        HEADER    130
                                        *         EXIT   TO MBC SO THAT A FOLLOWING *IDENT* MAY BE DETECTED.     HEADER    131
                                                                                                                 HEADER    132
                                                                                                                 HEADER    133
            31                                    HEREIF OVCAP                                                   F1037F5   341
            31  6170000000 X                      MDERR  E.MDE6      ** OVCAPS ARE MACHINE DEPENDENT             F1037F5   342
            32  43601                             MX6    1                                                       F1037F5   343
                     5160000041 +                 SA6    OVCFLG      INDICATE *OVCAP* APPEARED                   F1037F5   344
            33  5130000613 +                      SA3    =5ROVCAP                                                F1037F5   345
                          6120000036              SB2    5*CHAR                                                  F1037F5   346
            34  56240                             SA2    B4                                                      F1037F5   347
                     6272777767                   SB7    X2-O.PERIOD                                             F1037F5   348
            35  0470000046 +                      ZR     B7,LCC      IF KEYWORD FOLLOWED BY PERIOD               F1037F5   349
                          6272777740              SB7    X2-O.LP                                                 F1037F5   350
            36  0470000046 +                      ZR     B7,LCC      IF FOLLOWED BY LEFT PAREN                   F1037F5   351
                          6170000000 X            FATAL  E.OV2       ** EXPECTED LEFT PAREN OR PERIOD            F1037F5   352
            40  0400000000 X                      EQ     FEC.RTN                                                 F1037F5   353
                                                                                                                 F1037F5   354
            41  00000000000000000000     OVCFLG   CONENT 0                                                       F1037F5   355
                                                                                                                 F1037F5   356
            42                                    HEREIF OVERLAY                                                 F1037F5   357
            42  6170000000 X                      MDERR  E.MDE1      ** OVERLAY USE MACHINE DEPENDENT            F1037F5   358
            43  5130000614 +                      SA3    =7ROVERLAY                                              F1037F5   359
                          6120000022              SB2    3*CHAR                                                  F1037F5   360
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     5
                                                                      LCC 
  
            44  56240                             SA2    B4                                                      F1037F5   361
                     6272777740                   SB7    X2-O.LP                                                 F1037F5   362
            45  0570000000 X                      NZ     B7,E.OV1    ** OVERLAY MISSING LEFT PAREN               F1037F5   363
                                                                                                                 F1037F5   364
            46  43066                    LCC      MX0    -CHAR                                                   F1037F5   365
                     5160000000 X                 SA6    SCR                                                     F1037F5   366
                               10633              BX6    X3                                                      F1037F5   367
                                                                                                                 F1037F5   368
            47  5212000000 X             LCC2     SA1    X2+CHARMAP                                              F1037F5   369
                          0311000051 +            NZ     X1,LCC3     IF NOT *SYMBOL*                             HEADER    154
            50  11102                             BX1    X0*X2       USE *TB* CHARACTERS                         HEADER    155
                                                                                                                 HEADER    156
            51  20106                    LCC3     LX1    CHAR                                                    HEADER    157
                     6100000000                   SB0    0                                                       HEADER    158
                               15310              BX3    -X0*X1                                                  HEADER    159
            52  20606                    LCC35    LX6    CHAR                                                    HEADER    160
                     6122777771                   SB2    B2-CHAR                                                 HEADER    161
                               20106              LX1    CHAR                                                    HEADER    162
            53  36663                             IX6    X6+X3                                                   HEADER    163
                     15310                        BX3    -X0*X1      ISOLATE NEXT CHARACTER                      HEADER    164
                          0520000055 +            NZ     B2,LCC4     IF WORD NOT FULL                            HEADER    165
            54  54661                             =A6    A6+1                                                    HEADER    166
                     6120000074                   SB2    10*CHAR                                                 HEADER    167
                               13666              BX6    0                                                       HEADER    168
            55  0313000052 +             LCC4     NZ     X3,LCC35    IF MORE CHARACTERS                          HEADER    169
                          5022000001              SA2    A2+1                                                    HEADER    170
            56  0312000047 +                      NZ     X2,LCC2     IF NOT *EOS*                                HEADER    171
                          22626                   LX6    X6,B2       LEFT JUSTIFY                                HEADER    172
                               54661              =A6    A6+1                                                    HEADER    173
            57  6122777763                        SB2    B2-12                                                   HEADER    174
                          13666                   BX6    0                                                       HEADER    175
            60  0620000061 +                      GE     B2,LCC6     IF ZERO BYTE                                HEADER    176
                          5066000001              SA6    A6+1        INSURE END-OF-LINE                          HEADER    177
            61  6170000000 X             LCC6     SB7    SCR                                                     HEADER    178
                          65267                   SB2    A6-B7       LENGTH OF DIRECTIVE                         HEADER    179
            62  5110000000 X                      ALLOC  T.LCC,B2                                                HEADER    180
            64  63321                             =B3    X2+1        TABLE LENGTH +1                             HEADER    181
                     76120                        SX1    B2          DIRECTIVE LENGTH                            HEADER    182
                          7120000001 X            SX2    SCR+1       START OF DIRECTIVE                          HEADER    183
            65  67332                             SB3    B3-B2       POINTER INTO CON TABLE                      HEADER    184
                     77372                        SX3    B7-B2       ADDRESS IN CON TABLE                        HEADER    185
                          0100000000 X            MOVE   X1,X2,X3    MOVE DIRECTIVE TO CON TABLE                 HEADER    186
            66  7143777776                        SX4    B3-1        POINTER TO DIRECTIVE                        HEADER    187
                          76520                   SX5    B2          DIRECTIVE LENGTH                            HEADER    188
                               20424              LX4    TP.BIASP    1OP                                         HEADER    189
            67  20524                             LX5    TP.BIASP    2OP                                         HEADER    190
                     6130000000 X                 EMIT   V=LCC       TURPLE TO IL                                HEADER    191
            71  5110000000 X                      SA1    SB=CONT     NUMBER OF CONTINUATION LINES IN STATEMENT   HEADER    192
                          0311000000 X            NZ     X1,E.OV3    IF CONTINUED (RETURN FEC.RNX)               HEADER    193
            72  0400000000 X                      EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER              HEADER    194
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     6
                                                                      PSF 
  
                                        **        PSF -  PROCESS SPECIAL FIRST CARD.                             HEADER    196
                                        *                                                                        HEADER    197
                                        *         PSF IS CALLED BY THE FRONT END CONTROLLER WHEN THE FIRST       HEADER    198
                                        *         STATEMENT OF A PROGRAM-UNIT IS NOT A HEADER STATEMENT.         HEADER    199
                                        *         IT INVENTS A PROGRAM STATEMENT --                              HEADER    200
                                        *                " PROGRAM START. (INPUT, OUTPUT) "                      HEADER    201
                                        *         AND EFFECTIVELY INSERTS IT BEFORE THE ACTUAL FIRST             HEADER    202
                                        *         STATEMENT.                                                     HEADER    203
                                        *                                                                        HEADER    204
                                        *         EXIT   (X5) RESTORED FROM (TB=TYPE).                           HEADER    205
                                        *                (B4) PRESERVED.                                         HEADER    206
                                                                                                                 HEADER    207
                                                                                                                 HEADER    208
            73  0400400073 +             PSF      SUBR   =           ...ENTRY/EXIT...                            HEADER    209
            74  6170000000 X                      WARN   E.PN3       NO PROGRAM NAME - START. ASSUMED            HEADER    210
            75  76740                             SX7    B4                                                      HEADER    211
                     7160001000                   SX6    MO.PROM                                                 HEADER    214
            76  5170000103 +                      SA7    PSFA        SAVE (B4)                                   HEADER    215
                          6140000104 +            SB4    DPN         POINT TO FAKE STRING                        HEADER    216
            77  5140000615 +                      SA4    =7HPROGRAM                                              HEADER    217
                          0100000130 +            RJ     DCM         PROCESS COMPILE MODE + DISPLAY              HEADER    218
           100  0100000214 +                      RJ     PPA         PROCESS ARGUMENTS                           HEADER    219
           101  5110000103 +                      SA1    PSFA                                                    HEADER    220
                          5150000000 X            SA5    TB=TYPE     (X5) = STATEMENT TYPE INFORMATION WORD      HEADER    221
           102  63410                             SB4    X1          RESTORE (B4)                                HEADER    222
                     0400000073 +                 EQ     EXIT.       EXIT...                                     HEADER    223
                                                                                                                 HEADER    224
           103                     1     PSFA     BSS    1           SAVE AREA FOR B4                            FC50110    10
                                                                                                                 HEADER    226
                                                                                                                 HEADER    227
                                        **        DEFAULT SUBPROGRAM NAME + PARAMETERS                           HEADER    228
                                        *         SET = *PROGRAM START.(INPUT,OUTPUT)*                           HEADER    229
                                                                                                                 HEADER    230
           104  23240122245700000011     DPN      VFD    42/0LSTART.,18/O.VAR                                    HEADER    231
           105  00000000000000000037              CON    O.LP                                                    HEADER    232
           106  11162025240000000011              VFD    42/0LINPUT,18/O.VAR                                     HEADER    233
           107  00000000000000000042              CON    O.COMMA                                                 HEADER    234
           110  17252420252400000011              VFD    42/0LOUTPUT,18/O.VAR                                    HEADER    235
           111  00000000000000000040              CON    O.RP                                                    HEADER    236
           112  00000000000000000000              DATA   0           END OF STRING INDICATOR                     HEADER    237
  
  
  
  
                                        **        SUB -  PROCESS "SUBROUTINE" STATEMENT.                         HEADER    239
                                        *                                                                        HEADER    240
                                        *         EXIT   TO FRONT END CONTROLLER                                 HEADER    241
                                        *                                                                        HEADER    242
                                        *         CALLS  1.  DCM = ASSEMBLE THE PROGRAM NAME.                    HEADER    243
                                        *                2.  TSB = PROCESS ANY FORMAL PARAMETER LIST.            HEADER    244
                                                                                                                 HEADER    245
                                                                                                                 HEADER    246
           113                                    HEREIF SUBROUTINE                                              HEADER    247
                                                                                                                 HEADER    248
           113  7160002000                        CLAS=  X6,MO,(SUB)       SET SUBPROGRAM MODE                   HEADER    249
                          5140000616 +            SA4    =10HSUBROUTINE                                          HEADER    250
           114  0100000130 +                      RJ     DCM         DISPLAY COMPILING MESSAGE                   HEADER    251
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     7
                                                                      SUB 
  
           115  0100000552 +                      RJ     TSB         TRANSLATE SUBPROGRAM BEGIN                  HEADER    252
           116  5140000121 +                      SA4    SUBA                                                    HEADER    253
                          7130000060              CLAS=  X3,WB,(CGS,VAR)                                         HEADER    254
           117  0100000000 X                      CALL   TSY         TAG SYMBOL (AEXIT.)                         HEADER    255
           120  0400000000 X                      EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER              HEADER    256
                                                                                                                 HEADER    257
           121  01053011245700000000 X   SUBA     VFD    42/6LAEXIT.,18/S=AEXIT                                  HEADER    258
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     8
        SUBROUTINES                                                   COVC
  
                                        **        COVC - CHECK FOR *OVCAP* DIRECTIVE                             F1037F5   372
                                        *                                                                        F1037F5   373
                                        *         WILL ISSUE A FATAL ERROR IF AN *OVCAP* DIRECTIVE               F1037F5   374
                                        *         APPEARED BEFORE A *PROGRAM*, *FUNCTION* OR *BLOCK DATA*        F1037F5   375
                                        *         HEADER STATEMENT, OR IF IT APPEARED BEFORE A *SUBROUTINE*      F1037F5   376
                                        *         HEADER THAT CONTAINED ARGUMENTS.                               F1037F5   377
                                        *                                                                        F1037F5   378
                                        *         USES   X - 1  A - 1.                                           F1037F5   379
                                                                                                                 F1037F5   380
           122  0400400122 +             COVC     SUBR               ENTRY/EXIT...                               F1037F5   381
           123  5110000041 +                      SA1    OVCFLG                                                  F1037F5   382
                          0301000122 +            ZR     X1,EXIT.    IF NO *OVCAP*                               F1037F5   383
           124  5110000000 X                      SA1    MOD                                                     F1037F5   384
                          20161                   HX1    MO.SUB                                                  F1037F5   385
           125  0331000122 +                      MI     X1,EXIT.    IF SUBROUTINE                               FC50409     6
                          6170000000 X            FATAL  E.OV4       OVCAP DIRECTIVE ONLY VALID WITH SUBROUTINE  FC50409     7
           127  0400000122 +                      EQ     EXIT.                                                   F1037F5   393
  
  
  
  
                                        **        DCM -  DISPLAY *COMPILING* MESSAGE.                            HEADER    261
                                        *                                                                        HEADER    262
                                        *         CHECKS LEGALITY OF NAME AND ENTERS IT IN SYMBOL TABLE AND      HEADER    263
                                        *                ENTRY POINT TABLE.                                      HEADER    264
                                        *         DISPLAYS CONSOLE MESSAGE, PRINTS *IDENT* CARD, AND SETS NAME   HEADER    265
                                        *                INTO MAIN TITLE AND 77-TABLE.                           HEADER    266
                                        *         ENTER CON. SYMBOL INTO SYMBOL TABLE.                           HEADER    267
                                        *                                                                        HEADER    268
                                        *         ENTRY  (B4) -> SUBPROGRAM NAME (IN *TB*).                      HEADER    269
                                        *                (X4) = DPC PROGRAM TYPE FOR BANNER.                     HEADER    270
                                        *                (X6) = PROGRAM-UNIT COMPILE MODE.                       HEADER    271
                                        *                                                                        HEADER    272
                                        *         EXIT   (B4) -> NEXT ELEMENT OF *TB*.                           HEADER    273
                                        *                                                                        HEADER    274
                                        *         CALLS  ADW,MSG,PVF,SFN,ESY,SSY                                 HEADER    275
                                                                                                                 HEADER    276
                                                                                                                 HEADER    277
           130  0400400130 +             DCM      SUBR               ...ENTRY/EXIT...                            HEADER    278
           131  5160000000 X                      SA6    MOD         SET PROGRAM UNIT MODE                       HEADER    279
                          10644                   BX6    X4                                                      HEADER    280
                               56440              SA4    B4                                                      HEADER    281
           132  5160000000 X                      SA6    TL.PTYP                                                 HEADER    282
                          5066000000 X            SA6    A6+ERFO     PROGRAM TYPE TO E FILE                      F1039     568
           133  43052                             MX0    MAX.VAR*CHAR                                            HEADER    284
                     7224777766                   SX2    X4-O.VAR                                                HEADER    285
           134  0312000141 +                      NZ     X2,DCM1     IF PROGRAM NAME NOT VARIABLE                HEADER    286
                          11204                   BX2    X0*X4       CLEAR TYPE CODE                             HEADER    287
                               20206              LX2    CHAR                                                    HEADER    288
           135  7222777744                        SX2    X2-1R0                                                  HEADER    289
                          0322000141 +            PL     X2,DCM1     IF NOT A LETTER                             HEADER    290
           136  56241                             =A2    B4+1                                                    HEADER    291
                     6272777766                   SB7    X2-O.VAR                                                HEADER    292
           137  0570000143 +                      NZ     B7,DCM2     IF LESS THAN 8 CHARACTERS                   HEADER    293
                          0100000000 X            CALL   TLV         TRUNCATE NAME                               HEADER    294
           140  0400000143 +                      EQ     DCM2                                                    HEADER    295
                                                                                                                 HEADER    296
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE     9
        SUBROUTINES                                                   DCM 
  
           141  6170000000 X             DCM1     FATAL  E.PN1       SYNTAX ERROR IN ROUTINE NAME                HEADER    297
           142  5140000621 +                      SA4    DCMA        SET *DUMMY* NAME                            HEADER    298
                                                                                                                 FC50353    23
           143  43152                    DCM2     MX1    WA.SYML                                                 FC50731     7
                     11114                        BX1    X1*X4       NAME ONLY                                   FC50731     8
                          0100000000 X            CALL   SFN         SPACE FILL NAME OF ROUTINE                  FC50731     9
           144  20666                             LX6    -6                                                      FC50731    10
                     5120000000 X                 SA2    TL.PTYP                                                 FC50731    11
                               43060              MX0    8*CHAR                                                  FC50731    12
           145  11102                             BX1    X0*X2       (X1) = 1ST 8 CHARACTERS OF ROUTINE TYPE     FC50731    13
                     15320                        BX3    -X0*X2      (X3) = LAST 2 CHARACTERS OF ROUTINE TYPE    FC50731    14
                          11506                   BX5    X0*X6       (X5) = 1ST 8 CHARACTERS OF ROUTINE NAME     FC50731    15
                               12035              BX0    X3+X5                                                   FC50731    16
           146  7130005555                        SX3    2R                                                      FC50731    17
                          12731                   BX7    X3+X1                                                   FC50731    18
                               20760              LX7    -2*CHAR                                                 FC50731    19
           147  20060                             LX0    -2*CHAR                                                 FC50731    20
                     5110000000 X                 SA1    CO.PW                                                   FC50731    21
                               10366              BX3    X6                                                      FC50731    22
           150  7211777601                        SX1    X1-126                                                  FC50731    23
                          0321000152 +            PL     X1,DCM3     IF L FILE NOT PW MODE                       FC50731    24
           151  54720                             SA7    A2                                                      FC50731    25
                     10600                        BX6    X0                                                      FC50731    26
                                                                                                                 FC50731    27
           152  5160000000 X             DCM3     SA6    TL.PNAM                                                 FC50731    28
                          10633                   BX6    X3          RESTORE                                     FC50731    29
                               54111              =A1    A1+1                                                    FC50731    30
           153  7211777567                        SX1    X1-136                                                  FC50731    31
                          0301000155 +            ZR     X1,DCM4     IF E FILE NOT PW                            FC50731    32
           154  5072000000 X                      SA7    A2+ERFO                                                 FC50731    33
                          10600                   BX6    X0                                                      FC50731    34
                                                                                                                 FC50731    35
           155  5066000000 X             DCM4     SA6    A6+ERFO                                                 FC50731    36
                          43052                   MX0    WA.SYML                                                 FC50731    38
                               11604              BX6    X0*X4                                                   HEADER    300
           156  22406                             LX4    X6                                                      HEADER    301
                     5160000000 X                 SA6    IDENT       ROUTINE NAME IN 0L FORMAT                   HEADER    302
           157  7110000000 X                      MESSAGE  HO$MSG,CONSOLE,RCL  *   COMPILING NAME  *             FC50969     9
           161  10644                             BX6    X4          RESTORE NAME                                FC50969    10
                     0100000000 X                 CALL   SSY         FIND WHERE TO PUT SYMBOL                    HEADER    303
                                                  IFNE   TEST,,1                                                 HEADER    304
                                                  PL     B7,"BLOWUP"       IF ALREADY IN TABLE                   HEADER    305
           162  5130000000 X                      SA3    MOD                                                     HEADER    306
                          5120000617 +            CLAS=  X2,WB,(NVAR,DEF,ENT,MAT)                                HEADER    307
           163  43071                             MX0    -MO.MODEL                                               HEADER    308
                     15730                        BX7    -X0*X3      ISOLATE MODE                                HEADER    309
                                   0              ERRNZ  MO.MODEP                                                HEADER    310
                                   0              ERRNZ  WB.MODEP-MO.MODEP                                       HEADER    311
                          20364                   SBIT   X3,MO.TYPP                                              HEADER    312
           164  0323000165 +                      PL     X3,DCM5     IF NOT EXPLICITLY TYPED                     FC50731    39
                          5120000620 +            CLAS=  X2,WB,(TYP,NVAR,DEF,ENT,MAT)                            HEADER    314
                                                                                                                 FC50353    24
           165  12727                    DCM5     BX7    X2+X7                                                   FC50731    40
                     20310                        LX3    MO.TYPL+MO.TYPP                                         HEADER    316
                          43223                   MX2    MO.CLIFL                                                HEADER    317
                               20260              LX2    MO.CLIFL+MO.CLIFP                                       HEADER    318
           166  11223                             BX2    X2*X3       EXTRACT CHARACTER LENGTH INFORMATION        HEADER    319
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    10
        SUBROUTINES                                                   DCM 
  
                                                  LX2    -MO.CLIFP+WC.CLIFP                                      HEADER    320
                     0100000000 X                 ADSYM  A1          ADD *SYMBOL/TAG* TO TABLE.                  HEADER    321
           167  22700                             LX7    X0                                                      HEADER    322
                     12604                        BX6    X0+X4       = DATA FOR T.ENT(42/ROUTINE NAME,18/SYMORD) HEADER    323
                          5170000000 X            SA7    S=ENTRY                                                 HEADER    324
           170  5110000000 X                      ADDWD  T.ENT                                                   HEADER    325
           171  5140000000 X                      SA4    S=ENTRY                                                 HEADER    326
                          13555                   BX5    0           (2OP) = NIL                                 HEADER    327
                               20454              LX4    TP.ORDP     (1OP) = MAIN ENTRY                          HEADER    328
           172  6130000000 X                      EMIT   V=HDR                                                   HEADER    329
           173  20472                             LX4    -TP.ORDP+XR.TAGP                                        HEADER    330
                     10644                        BX6    X4                                                      HEADER    331
                          7110000004              ADDREF X6,CR.DEF                                               HEADER    332
           175  7160000000 X                      =X6    FEC=IMP                                                 HEADER    364
                          5160000000 X            SA6    STAGE                                                   HEADER    365
           176  56140                             SA1    B4                                                      HEADER    366
                     0301000130 +                 ZR     X1,EXIT.    IF NAME MISSING, DON'T ADVANCE TOKEN PNTR   HEADER    367
                               66441              =B4    B4+1                                                    HEADER    368
           177  0400000130 +                      EQ     EXIT.                                                   HEADER    369
                                                                                                                 HEADER    370
                                 621 +   DCMA     LIT    7LXXX****   DUMMY NAME WHEN NAME IN ERROR               HEADER    371
  
  
  
  
                                        **        PBM - PROCESS BUFL OR MRL.                                     FC5A145    28
                                        *                                                                        FC5A145    29
                                        *         CALLED BY *PPA* TO DETERMINE LEGALITY OF PRESUMED              FC5A145    30
                                        *         BUFL OR MRL, AND TO RETURN THE BINARY OF THE (LEGAL) CONSTANT. FC5A145    31
                                        *                                                                        FC5A145    32
                                        *         ENTRY  (B4) _ PRESUMED BUFL OR MRL TOKEN.                      FC5A145    33
                                        *                (X2) = THE TOKEN ITSELF.                                FC5A145    34
                                        *                (A0) = MAXIMUM VALUE THE CONSTANT CAN TAKE.             FC5A145    35
                                        *                                                                        FC5A145    36
                                        *         EXIT   (B4) = UNCHANGED.                                       FC5A145    37
                                        *                                                                        FC5A145    38
                                        *                IF NO ERROR :                                           FC5A145    39
                                        *                                                                        FC5A145    40
                                        *                (B5) = 0                                                FC5A145    41
                                        *                (X6) = BINARY OF THE CONSTANT                           FC5A145    42
                                        *                                                                        FC5A145    43
                                        *                IF ERROR OF SOME KIND :                                 FC5A145    44
                                        *                                                                        FC5A145    45
                                        *                (B5) = SHIFT COUNT TO RECOVER PROPER DIAGNOSTIC         FC5A145    46
                                        *                       ADDRESS FROM *PPABE* (BUFL ERROR) OR FROM        FC5A145    47
                                        *                       *PPAME* (MRL ERROR)                              FC5A145    48
                                        *                                                                        FC5A145    49
                                        *         CALLS  DEC,OCT.                                                FC5A145    50
                                        *                                                                        FC5A145    51
                                        *         USES   X - 0,1,2,3,6,7  A - 1,2,3,4,5  B - 2,5,7.              FC5A145    52
                                                                                                                 FC5A145    53
                                                                                                                 FC5A145    54
           200  0400400200 +             PBM      SUBR               ENTRY/EXIT...                               FC5A145    55
           201  7212777771                        SX1    X2-O.OCT                                                FC5A145    56
                          0311000204 +            NZ     X1,PBM10    IF NOT OCTAL CONSTANT                       FC5A145    57
           202  0100000000 X                      CALL   OCT         CONVERT OCTAL CONSTANT                      FC5A145    58
           203  0400000210 +                      EQ     PBM20                                                   FC5A145    59
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    11
        SUBROUTINES                                                   PBM 
  
                                                                                                                 FC5A145    60
           204  7212777772               PBM10    SX1    X2-O.CONS                                               FC5A145    61
                          6150000022              SB5    18D                                                     FC5A145    62
           205  0311000200 +                      NZ     X1,EXIT.    IF ILLEGAL TOKEN                            FC5A145    63
                          0100000000 X            CALL   DEC         CONVERT DECIMAL CONSTANT                    FC5A145    64
           206  7221777775                        SX2    X1-M.INT                                                FC5A145    65
                          6150000044              SB5    36D                                                     FC5A145    66
           207  0312000200 +                      NZ     X2,EXIT.    IF NOT INTEGER                              FC5A145    67
                                                                                                                 FC5A145    68
                                        **        HERE IF CONSTANT OF THE PROPER TYPE HAS BEEN FOUND.            FC5A145    69
                                                                                                                 FC5A145    70
           210  6150000044               PBM20    SB5    36D                                                     FC5A145    71
                          0336000200 +            MI     X6,EXIT.    IF NEGATIVE CONSTANT                        FC5A145    72
           211  6150000066                        SB5    54D                                                     FC5A145    73
                          74300                   SX3    A0                                                      FC5A145    74
                               37336              IX3    X3-X6                                                   FC5A145    75
           212  0333000200 +                      MI     X3,EXIT.    IF CONSTANT TOO LARGE                       FC5A145    76
                          66500                   =B5    0                                                       FC5A145    77
           213  0400000200 +                      EQ     EXIT.                                                   FC5A145    78
  
  
  
  
                                        **        PPA - PROCESS PROGRAM ARGUMENTS.                               FC5A145    80
                                        *                                                                        FC5A145    81
                                        *         ENTRY  (B4) _ PRESUMED ARGUMENT LIST.                          FC5A145    82
                                        *                                                                        FC5A145    83
                                        *         CALLS  ESY,TLV,SSY,PEM,PBM,EMT,TSX,TSY.                        FC5A145    84
                                        *                                                                        FC5A145    85
                                        *         USES   ALL REGISTERS.                                          FC5A145    86
                                                                                                                 FC5A145    87
                                                                                                                 FC5A145    88
           214  0400400214 +             PPA      SUBR   0           ENTRY/EXIT...                               FC5A145    89
           215  0100000122 +                      RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                 F1037F5   395
           216  56240                             SA2    B4                                                      FC5A145    90
                     0302000311 +                 ZR     X2,PPA170   IF ARGLIST OMITTED                          FC5A145    91
                                   0              ERRNZ  O.EOS                                                   FC5A145    92
           217  7212777740                        SX1    X2-O.LP                                                 FC5A145    93
                          0301000221 +            ZR     X1,PPA10    IF LPAREN PRESENT                           FC5A145    94
           220  6170000000 X                      FATAL  E.AG07      ** EXPECTED ARGLIST LPAREN                  FC5A145    95
                                                                                                                 FC5A145    96
           221  5110000000 X             PPA10    SA1    IDENT                                                   FC5A231    34
                          5120000622 +            SA2    =6LSTART.                                               FC5A231    35
           222  37112                             IX1    X1-X2                                                   FC5A231    36
                     0301000224 +                 ZR     X1,PPA20    IF SPECIAL FIRST CARD (NO HEADER STATEMENT) FC5A231    37
           223  6170000000 X                      ANSI   E.FD        ** FILE LIST IS NON-ANSI                    FC5A231    38
                                                                                                                 FC5A145    98
                                        **        PROGRAM ARGUMENTS LOOP.                                        FC5A145    99
                                                                                                                 FC5A145   100
           224  56241                    PPA20    =A2    B4+1                                                    FC5A145   101
                     66441                        =B4    B4+1                                                    FC5A145   102
                          7212777766              SX1    X2-O.VAR                                                FC5A145   103
           225  0301000230 +                      ZR     X1,PPA30    IF FILE NAME FOUND                          FC5A145   104
                          0302000000 X            ZR     X2,E.MR1    IF PREMATURE EOS                            FC5A145   105
           226  6170000000 X                      FATAL  E.FD1       ** EXPECTED FILE NAME                       FC5A145   106
           227  43000                             MX0    0                                                       FC5A145   107
                     0400000276 +                 EQ     PPA130                                                  FC5A145   108
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    12
        SUBROUTINES                                                   PPA 
  
                                                                                                                 FC5A145   109
           230  56141                    PPA30    =A1    B4+1        X1 = TOKEN AFTER VAR                        FC5A145   110
                     43052                        MX0    7*CHAR                                                  FC5A145   111
                          11602                   BX6    X0*X2       EXTRACT NAME                                FC5A145   112
           231  5160000000 X                      SA6    FILL.                                                   FC5A145   113
                          7211777766              SX1    X1-O.VAR                                                FC5A145   114
           232  0311000233 +                      NZ     X1,PPA40    IF FILE NAME NOT TOO LONG                   FC5A145   115
                          0100000000 X            CALL   TLV         TRUNCATE LONG VARIABLE                      FC5A145   116
                                                                                                                 FC5A145   117
           233  43001                    PPA40    MX0    1                                                       FC5A145   118
                     12660                        BX6    X6+X0       SET BIT 59 ON FILE NAME                     FC5A145   119
                          0100000000 X            CALL   SSY                                                     FC5A145   120
           234  43000                             MX0    0                                                       FC5A145   121
                     0670000000 X                 PL     B7,E.FD2    IF FILE DOUBLY DEFINED                      FC5A145   122
                                                                                                                 FC5A145   123
                                        **        (X6) = LEGAL FILE NAME, CHECK FOR EQUIVALENCING.               FC5A145   124
                                                                                                                 FC5A145   125
                               10466              BX4    X6          SAVE FILE NAME (*WA* ENTRY)                 FC5A145   126
                                                                                                                 FC50729     7
                                         .RM      IFNE   CP#RM,7                                                 FC50729     8
           235  5120000000 X                      SA2    CO.STAT                                                 F1037F5   396
                          7150001003              SX5    BUFL.SM     DEFAULT BUFL (STATIC MODE)                  F1037F5   397
           236  0332000237 +                      MI     X2,PPA45    IF *STATIC* MODE                            F1037F5   398
                          7150002003              SX5    BUFL.DM     DEFAULT BUFL (DYNAMIC)                      F1037F5   399
                                         .RM      ELSE                                                           FC50729     9
                                                  SX5    0           NO BUFFER SPACE TO ALLOCATE ON SCOPE 2      FC50729    10
                                         .RM      ENDIF                                                          FC50729    11
                                                                                                                 FC50729    12
                                                                                                                 F1037F5   400
                                         PPA45    LX5    WC.BFLP                                                 F1037F5   401
           237  56000                             =A0    0           INDICATE NOT EQUIVALENCED (INITIALLY)       FC5A145   128
                     56241                        =A2    B4+1        X2 = TOKEN AFTER FILE NAME                  FC5A145   129
                          66441                   =B4    B4+1                                                    FC5A145   130
           240  7212777736                        SX1    X2-O.=                                                  FC5A145   131
                          0311000267 +            NZ     X1,PPA120   IF NOT EQUIVALENCED, DEFINE FILE            FC5A145   132
           241  56241                             =A2    B4+1        X1 = EQUIVALENCE ELEMENT                    FC5A145   133
                     66441                        =B4    B4+1                                                    FC5A145   134
                          7212777766              SX1    X2-O.VAR                                                FC5A145   135
           242  0311000251 +                      NZ     X1,PPA60    IF NOT A FILE NAME                          FC5A145   136
                          56141                   =A1    B4+1        X1 = TOKEN AFTER FILE NAME                  FC5A145   137
                               43052              MX0    7*CHAR                                                  FC5A145   138
           243  11602                             BX6    X0*X2       EXTRACT FILE NAME                           FC5A145   139
                     5160000000 X                 SA6    FILL.2                                                  FC5A145   140
           244  7211777766                        SX1    X1-O.VAR                                                FC5A145   141
                          0311000246 +            NZ     X1,PPA50    IF FILE NAME NOT TOO LONG                   FC5A145   142
           245  0100000000 X                      CALL   TLV         TRUNCATE LONG VARIABLE                      FC5A145   143
                                                                                                                 FC5A145   144
           246  43001                    PPA50    MX0    1                                                       FC5A145   145
                     12660                        BX6    X6+X0       SET BIT 59                                  FC5A145   146
                          0100000000 X            CALL   SSY                                                     FC5A145   147
           247  43000                             MX0    0                                                       FC5A145   148
                     0770000000 X                 MI     B7,E.FD3    IF FILE NOT DEFINED                         FC5A145   149
                               76570              SX5    B7                                                      FC5A145   150
                                                  LX5    WC.IEFP     SET *WC*                                    FC5A145   151
           250  56010                             =A0    1           INDICATE EQUIVALENCED FILE                  FC5A145   152
                     66441                        =B4    B4+1                                                    FC5A145   153
                          0400000267 +            EQ     PPA120      DEFINE FILE                                 FC5A145   154
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    13
        SUBROUTINES                                                   PPA 
  
                                                                                                                 FC5A145   155
                                        **        HERE TO PROCESS BUFFER LENGTH.                                 FC5A145   156
                                                                                                                 FC5A145   157
           251  7212777760               PPA60    SX1    X2-O.SLASH                                              FC5A145   158
                          0301000261 +            ZR     X1,PPA90    IF NO BUFL                                  FC5A145   159
           252  5100360000                        SA0    MAX.BUFL                                                FC5A145   160
                          0100000200 +            RJ     PBM         PROCESS BUFL                                FC5A145   161
           253  0450000256 +                      ZR     B5,PPA80    IF NO ERROR                                 FC5A145   162
                          5110000334 +            SA1    PPABE                                                   FC5A145   163
           254  22151                             LX1    X1,B5                                                   FC5A145   164
                     63510                        SB5    X1          B5 = ADDRESS OF DIAGNOSTIC                  FC5A145   165
                          43000                   MX0    0                                                       FC5A145   166
           255  0255000000                        JP     B5          ISSUE DIAGNOSTIC                            FC5A145   167
                                                                                                                 FC5A145   168
                                        **        HERE TO DEFINE BUFFER LENGTH.                                  FC5A145   169
                                        *         (X6) = BUFFER LENGTH                                           FC5A145   170
                                        *         (B4) _ BUFFER LENGTH TOKEN                                     FC5A145   171
                                                                                                                 FC5A145   172
           256  0306000257 +             PPA80    ZR     X6,PPA85    IF BUFL=0 SPECIFIED                         F1037F5   402
                          7266000003              SX6    X6+BUFL.ADD ADD IN DEFAULT ADDENDUM                     F1037F5   403
           257  56241                    PPA85    =A2    B4+1        TOKEN AFTER BUFFER LENGTH                   F1037F5   404
                     66441                        =B4    B4+1                                                    FC5A145   174
                                                  LX6    WC.BFLP                                                 FC5A145   175
                          10566                   BX5    X6                                                      FC5A145   176
                               56000              =A0    0           INDICATE NOT EQUIVALENCED                   FC5A145   177
           260  7212777760                        SX1    X2-O.SLASH                                              FC5A145   178
                          0311000267 +            NZ     X1,PPA120   IF NO MRL, DEFINE FILE                      FC5A145   179
                                                                                                                 FC5A145   180
                                        **        HERE TO PROCESS MRL, (B4) _ O.SLASH TOKEN.                     FC5A145   181
                                                                                                                 FC5A145   182
           261  56241                    PPA90    =A2    B4+1        X2 = PRESUMED MRL                           FC5A145   183
                     66441                        =B4    B4+1                                                    FC5A145   184
                          5100377777              SA0    MAX.RECL                                                FC5A145   185
           262  0100000200 +                      RJ     PBM         PROCESS MRL                                 FC5A145   186
           263  0450000266 +                      ZR     B5,PPA110   IF NO ERROR                                 FC5A145   187
                          5110000335 +            SA1    PPAME                                                   FC5A145   188
           264  22151                             LX1    X1,B5                                                   FC5A145   189
                     63510                        SB5    X1          B5 = ADDRESS OF DIAGNOSTIC                  FC5A145   190
                          43000                   MX0    0                                                       FC5A145   191
           265  0255000000                        JP     B5          ISSUE DIAGNOSTIC                            FC5A145   192
                                                                                                                 FC5A145   193
                                        **        HERE TO DEFINE MRL.                                            FC5A145   194
                                        *         (X6) = MRL                                                     FC5A145   195
                                        *         (B4) _ MRL TOKEN                                               FC5A145   196
                                                                                                                 FC5A145   197
           266  20636                    PPA110   LX6    WC.MRLP                                                 FC5A145   198
                     12556                        BX5    X5+X6       MERGE MRL                                   FC5A145   199
                          56000                   =A0    0                                                       FC5A145   200
                               66441              =B4    B4+1                                                    FC5A145   201
                                                                                                                 FC5A145   202
                                        **        EMIT TURPLE TO DEFINE THIS FILE, ADD ENTRY TO SYMBOL TABLE.    FC5A145   203
                                        *         (X4) = 42/0LFILENAME                                           FC5A145   204
                                        *         (A0) = 1 IF EQUIVALENCED FILE                                  FC5A145   205
                                        *              = 0 IF NOT                                                FC5A145   206
                                        *         (X5) - *WC* ENTRY FOR FILE                                     FC5A145   207
                                        *              = BUFL AND MRL (FOR A0 = 0)                               FC5A145   208
                                        *              = SYMTAB *WB* INDEX (FOR A0 = 1)                          FC5A145   209
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    14
        SUBROUTINES                                                   PPA 
  
                                                                                                                 FC5A145   210
           267  10644                    PPA120   BX6    X4                                                      FC5A145   211
                     7120000120                   CLAS=  X2,WB,(NVAR,CGS)                                        FC5A145   212
                               74700              SX7    A0                                                      FC5A145   213
           270  20766                             LX7    WB.EQUP                                                 FC5A145   214
                     12772                        BX7    X7+X2                                                   FC5A145   215
                          10255                   BX2    X5                                                      FC5A145   216
           271  5110000000 X                      ADSYM  T.SYM                                                   FC5A145   217
           272  5110000000 X                      SA1    NARGS                                                   FC5A145   218
                          73611                   =X6    X1+1                                                    FC5A145   219
                               54610              SA6    A1          UPDATE FILE COUNTER                         FC5A145   220
           273  43500                             MX5    0                                                       FC5A145   221
                     76470                        SX4    B7                                                      FC5A145   222
                          20424                   LX4    TP.BIASP                                                FC5A145   223
           274  6130000000 X                      EMIT   V=FILE                                                  FC5A145   224
           275  76010                             =X0    1                                                       FC5A145   225
                                                                                                                 FC5A145   226
                                        **        CHECK FOR MORE FILE DECLARATIONS.                              FC5A145   227
                                        *         (B4) _ NEXT TOKEN.                                             FC5A145   228
                                        *         (X0) = 0 IF DIAGNOSTIC RETURNED HERE.                          FC5A145   229
                                        *              = .NZ. OTHERWISE                                          FC5A145   230
                                                                                                                 FC5A145   231
           276                           PPA130   BSSENT 0                                                       FC5A145   232
           276  56140                             SA1    B4                                                      FC5A145   233
                     7221777735                   SX2    X1-O.COMMA                                              FC5A145   234
           277  0302000224 +                      ZR     X2,PPA20    IF COMMA, CONTINUE                          FC5A145   235
                          7221777777              SX2    X1-O.EOS                                                FC5A145   236
           300  0302000000 X                      ZR     X2,E.MR1    ** PREMATURE EOS                            FC5A145   237
                          7221777737              SX2    X1-O.RP                                                 FC5A145   238
           301  0302000304 +                      ZR     X2,PPA150   IF RP                                       FC5A145   239
                          0300000303 +            ZR     X0,PPA140   IF SUPPRESS ERROR                           FC5A145   240
           302  6170000000 X                      FATAL  E.FD10      ** EXPECTED RP OR COMMA                     FC5A145   241
                                                                                                                 FC5A145   242
           303  66441                    PPA140   =B4    B4+1                                                    FC5A145   243
                     0400000276 +                 EQ     PPA130                                                  FC5A145   244
                                                                                                                 FC5A145   245
                                        **        RIGHT PAREN FOUND. CHECK FOR EOS, AND TOO MANY FILES.          FC5A145   246
                                                                                                                 FC5A145   247
           304  56141                    PPA150   =A1    B4+1                                                    FC5A145   248
                     66441                        =B4    B4+1                                                    FC5A145   249
                          0301000306 +            ZR     X1,PPA160   IF EOS                                      FC5A145   250
                                   0              ERRNZ  O.EOS                                                   FC5A145   251
           305  6170000000 X                      WARN   E.FD11      ** EXPECTED EOS                             FC5A145   252
                                                                                                                 FC5A145   253
           306  5140000000 X             PPA160   SA4    NARGS                                                   FC5A145   254
                          6224777716              SB2    X4-MAX.PARG                                             FC5A145   255
           307  0602000311 +                      LE     B2,PPA170   IF NOT TOO MANY FILES                       FC5A145   256
                          6170000000 X            WARN   E.FD12      TOO MANY FILES                              FC5A145   257
                                                                                                                 FC5A145   258
                                        **        EMIT *END OF FILE DECLARATIONS* AND                            FC5A145   259
                                        *         *START OF EXECUTABLES*.                                        FC5A145   260
                                                                                                                 FC5A145   261
           311  13444                    PPA170   BX4    0                                                       FC5A145   262
                     43500                        MX5    0                                                       HEADER    590
                          6130000000 X            EMIT   V=PLIM      INDICATE NO MORE FILES                      HEADER    591
           313  6130000000 X                      EMIT   V=SEX       INDICATE START OF EXECUTABLES               HEADER    592
                                                                                                                 HEADER    593
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    15
        SUBROUTINES                                                   PPA 
  
           314  5130000000 X                      SA3    CO.DBPM                                                 HEADER    594
                          5110000327 +            SA1    S.Q5PMD                                                 HEADER    595
           315  0313000317 +                      NZ     X3,PPA180   IF *POST-MORTEM DUMP* SELECTED              FC5A145   263
                          5120000000 X            SA2    CO.DBER                                                 HEADER    597
           316  54111                             SA1    A1+B1       Q5RPV                                       HEADER    598
                     0312000317 +                 NZ     X2,PPA180   IF *ERROR RECOVERY* SELECTED                FC5A145   264
                               54111              SA1    A1+B1       Q5NTRY                                      HEADER    600
           317  0100000000 X             PPA180   TAGSEX  A1         ENTER INITIALIZER IN SYMTAB                 FC5A145   265
           320  5140000332 +                      SA4    PPAB                                                    HEADER    602
                          22700                   LX7    X0                                                      HEADER    603
           321  5170000000 X                      SA7    S=INIT                                                  HEADER    604
                          5130000623 +            CLAS=  X3,WB,(CGS,DEF,VAR,MAT)                                 HEADER    605
           322  0100000000 X                      CALL   TSY         TAG SYMBOL (FILVEC.)                        HEADER    606
           323  5150000000 X                      SA5    NARGS                                                   HEADER    607
                          0305000214 +            ZR     X5,EXIT.    IF NO FILE-NAME ARGUMENTS                   HEADER    608
           324  5140000333 +                      SA4    PPAC                                                    HEADER    609
                          5130000623 +            CLAS=  X3,WB,(CGS,DEF,VAR,MAT)                                 HEADER    610
           325  0100000000 X                      CALL   TSY         TAG SYMBOL (UPW.)                           HEADER    611
           326  0400000214 +                      EQ     PPAX                                                    HEADER    612
                                                                                                                 HEADER    613
           327  21402015045700000000     S.Q5PMD  =XLIB  Q5PMD                                                   HEADER    614
           330  21402220265700000000              =XLIB  Q5RPV                                                   HEADER    615
           331  21401624223157000000              =XLIB  Q5NTRY                                                  HEADER    616
                                                                                                                 HEADER    617
           332  06111426050357000000 X   PPAB     CON    =XS=FILES+7LFILVEC.                                     HEADER    618
           333  25202757000000000000 X   PPAC     CON    S=UPW+4LUPW.                                            HEADER    619
                                   0 X   PPAE     EQU    SCR                                                     HEADER    620
                                   1 X   PPAF     EQU    SCR+1                                                   HEADER    621
                                                                                                                 FC5A145   266
           334  000000 X                 PPABE    VFD    18/E.FD4,18/E.FD5,18/E.FD6,6/0                          FC5A145   267
                      000000 X
                            000000 X
                                  00
           335  000000 X                 PPAME    VFD    18/E.FD8,18/E.FD7,18/E.FD9,6/0                          FC5A145   268
                      000000 X
                            000000 X
                                  00
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    16
        SUBROUTINES                                                   PSA 
  
                                        **        PSA - PROCESS SUBPROGRAM ARGLIST.                              HEADER    623
                                        *                                                                        HEADER    624
                                        *         TRANSLATES SUBPROGRAM DUMMY ARGUMENT LIST FOR FUNCTION,        HEADER    625
                                        *         SUBROUTINE, AND ENTRY STATEMENTS.                              HEADER    626
                                        *                                                                        HEADER    627
                                        *         WHEN THE SCAN IS FINISHED, IF THERE WERE ANY NON-LABEL ARGS    HEADER    628
                                        *         (THE LOCAL ARG TABLE IS NOT EMPTY), THIS PARAMETER LIST        HEADER    629
                                        *         MUST BE ADDED TO (T.ENTP).  THE LOCAL TABLE IS SCRUNCHED       HEADER    630
                                        *         INTO THE PROPER FORMAT, AND WE SCAN (T.ENTP) TO SEE IF AN      HEADER    631
                                        *         IDENTICAL PARAMETER LIST IS ALREADY PRESENT.  IF NOT, A        HEADER    632
                                        *         HEADER WORD (EH.) IS PREFIXED TO THE LOCAL TABLE, AND THE      HEADER    633
                                        *         WHOLE MESS IS ADDED TO (T.ENTP).  ALSO, (N.CPL) IS INCRE-      HEADER    634
                                        *         MENTED TO ACCOUNT FOR THE NEW LIST.  IF THERE IS NOW MORE      HEADER    635
                                        *         THAN ONE ARGLIST IN (T.ENTP), WE MUST SET (N.EPL) TO SO        HEADER    636
                                        *         SIGNIFY.  FINALLY, (WB.PNT) OF THE ENTRY POINT IS SET TO       HEADER    637
                                        *         POINT TO THE HEADER WORD IN THE (T.ENTP) ENTRY.                HEADER    638
                                        *                                                                        HEADER    639
                                        *         ENTRY  (B4) -> *(* AT BEGINNING OF (POSSIBLE) ARGUMENT LIST.   HEADER    640
                                        *                (X4) = SYMORD OF ENTRY POINT.                           HEADER    641
                                        *                     .ZR. IF ERROR IN ENTRY NAME.                       HEADER    642
                                        *                                                                        HEADER    643
                                        *         USES   ALL                                                     HEADER    644
                                        *                                                                        FC50496     8
                                        *         CALLS  ALC, COVC, MVE=, SAL.                                   FC50496     9
                                                                                                                 HEADER    646
                                                                                                                 HEADER    647
           336  0400400336 +             PSA      SUBR   =           ENTRY/EXIT...                               HEADER    648
           337  73640                             SX6    X4                                                      HEADER    649
                     5140000000 X                 SA4    S=ENTRY                                                 FC50512     7
                               37464              IX4    X6-X4                                                   FC50512     8
           340  5160000000 X                      SA6    PSAA        (PSAA) = SYMORD OF THIS ENTRY POINT         HEADER    650
                                                                                                                 FC50496    10
                                         .T       IFEQ   TEST,ON                                                 HEADER    651
                                                  SA2    T=ARG                                                   HEADER    652
                                                  NZ     X2,"BLOWUP" IF GARBAGE IN ARG TABLE                     HEADER    653
                                         .T       ENDIF                                                          HEADER    654
                                                                                                                 HEADER    655
                          0304000347 +            ZR     X4,PSA1     IF MAIN ENTRY                               FC50512     9
           341  5110000000 X                      SA1    MOD                                                     FC50512    10
                          43471                   MX4    -MO.MODEL                                               FC50512    11
                               15414              BX4    -X4*X1      EXTRACT MODE (IF PRESENT)                   FC50512    12
           342  20160                             SBIT   X1,MO.FUNP                                              FC50512    13
                     0321000347 +                 PL     X1,PSA1     IF NOT FUNCTION                             FC50512    14
                               20152              SBIT   X1,MO.CTYPP/MO.FUNP                                     FC50512    15
           343  7244777771                        SX4    X4-M.CHAR                                               FC50512    16
                          0314000347 +            NZ     X4,PSA1     IF NOT CHARACTER                            FC50512    17
           344  0321000347 +                      PL     X1,PSA1     IF NOT ASSUMED SIZE                         FC50512    18
                          5110000000 X            SA1    S=VALUE                                                 FC50512    19
           345  7261000006                        SX6    X1+M.CHAR   ORDINAL OF VALUH.                           FC50512    20
                          5110000000 X            ADDWD  T.ARG       ENTRY FOR T.ENTP                            FC50512    21
                                                                                                                 FC50512    22
           347  0100000427 +             PSA1     RJ     SAL         SCAN ARGUMENT LIST                          FC50512    23
           350  0100000122 +                      RJ     COVC        CHECK FOR *OVCAP* DIRECTIVE                 F1037F5   405
           351  5120000000 X                      SA2    T=ARG                                                   HEADER    657
                          7160000764              SX6    MAX.SARG                                                HEADER    658
           352  10722                             BX7    X2                                                      HEADER    659
                     37362                        IX3    X6-X2                                                   HEADER    660
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    17
        SUBROUTINES                                                   PSA 
  
                          5170000001 X            SA7    PSAB                                                    HEADER    661
           353  0302000425 +                      ZR     X2,PSA50    IF NO NON-LABEL ARGUMENTS                   FC50496    11
                          0323000356 +            PL     X3,PSA5     IF THIS ARGLIST NOT TOO LONG                FC50496    12
           354  10266                             BX2    X6                                                      HEADER    664
                     54620                        SHRINK A2,X6                                                   HEADER    665
                          6170000000 X            FATAL  E.AG00      ** TOO MANY DUMMY ARGS                      HEADER    666
                                                                                                                 HEADER    667
           356  5110000000 X             PSA5     SA1    T.ARG                                                   FC50496    13
                          53310                   SA3    X1          FETCH FIRST ENTRY                           HEADER    669
                               43600              MX6    0                                                       HEADER    670
           357  64230                             SB2    A3          (B2) = FWA (T.ARG)                          HEADER    671
                     6232000000                   SB3    X2+         (B3) = NUMBER OF ARG BYTES NEEDED           HEADER    672
                               54630              SA6    A3          CLEAR (EH.) WORD                            HEADER    673
           360  6170000055                        SB7    60-EF.ORDL                                              HEADER    674
                                   0              ERRNZ  4*EF.ORDL-60                                            HEADER    675
                                                                                                                 FC50496    14
           361  22273                    PSA10    LX2    X3,B7                                                   FC50496    15
                     6177777760                   SB7    B7-EF.ORDL                                              HEADER    677
                               12662              BX6    X6+X2       MERGE THIS ENTRY                            HEADER    678
           362  67331                             SB3    B3-B1                                                   HEADER    679
                     0670000364 +                 PL     B7,PSA15    IF WORD NOT FULL                            FC50496    16
                               54661              SA6    A6+B1                                                   HEADER    681
           363  6170000055                        SB7    60-EF.ORDL                                              HEADER    682
                          46000                   NO                                                             HEADER    683
                               43600              MX6    0                                                       HEADER    684
                                                                                                                 FC50496    17
           364  54331                    PSA15    SA3    A3+B1                                                   FC50496    18
                     0703000361 +                 GT     B3,PSA10    IF MORE FPS IN LOCAL ARGUMENT LIST          FC50496    19
                               54661              SA6    A6+B1       STORE PARTIAL WORD                          HEADER    687
           365  64361                             SB3    A6+B1       (B3) = LWA+1 OF SCRUNCHED ARGLIST           HEADER    688
                     77632                        SHRINK A2,B3-B2    SET SCRUNCHED LENGTH OF TABLE               HEADER    689
                                                                                                                 HEADER    690
                                        *         ADD NEW (T.ENTP) ENTRY, IF UNIQUE.                             HEADER    691
                                                                                                                 HEADER    692
           366  5120000000 X                      SA2    T=ENTP                                                  HEADER    693
                          5110000000 X            SA1    T.ENTP                                                  HEADER    694
           367  0302000405 +                      ZR     X2,PSA30    IF NO PREVIOUS ARGLISTS                     FC50496    20
                                                                                                                 FC50496    21
                                        *         DETERMINE IF THE CURRENT ENTRY IS UNIQUE.                      FC50496    22
                                        *         (X6) = (T=ARG)                                                 FC50496    23
                                        *         (B2) = (T.ARG)                                                 FC50496    24
                                        *         (X1) = (T.ENTP)                                                FC50496    25
                                        *         (X2) = (T=ENTP)                                                FC50496    26
                                        *                                                                        FC50496    27
                                        *         NOTE:  THIS CODE ASSUMES NO TABLE MOVEMENT.                    FC50496    28
                                                                                                                 FC50496    29
                          66221                   =B2    B2+1        MATCH ONLY ON ARGUMENTS                     FC50496    30
           370  6236777776                        SB3    X6-1        COUNT ONLY ARGUMENT WORDS                   FC50496    31
                          63710                   SB7    X1          INITIALIZE TO FIRST HEADER                  FC50496    32
                               63520              SB5    X2          LENGTH OF T.ENTP                            FC50496    33
                                                                                                                 FC50496    34
           371  56170                    PSA20    SA1    B7          FETCH HEADER                                FC50496    35
                     67551                        =B5    B5-1        DECREMENT FOR HEADER                        FC50496    36
                          66771                   =B7    B7+1        INCREMENT T.ENTP POINTER                    FC50496    37
                                                  HX1    EH.FPC                                                  FC50496    38
                               21160              AX1    -EH.FPCL    EXTRACT NUMBER OF ARGUMENTS                 FC50496    39
           372  73111                             =X1    X1+1        ALLOW FOR THE MANDATORY NULL ENTRY          FC50496    40
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    18
        SUBROUTINES                                                   PSA 
  
                     43072                        MX0    -2                                                      FC50496    41
                          15010                   BX0    -X0*X1      FOR MOD4 ARITHMETIC                         FC50496    42
                               21102              AX1    2                                                       FC50496    43
           373  63610                             SB6    X1                                                      FC50496    44
                     0300000374 +                 ZR     X0,PSA21    IF PARCELED EXACTLY                         FC50496    45
                               66661              =B6    B6+1                                                    FC50496    46
                                                                                                                 FC50496    47
           374  0563000402 +             PSA21    NE     B6,B3,PSA27 IF NOT EQUAL LENGTH, NO MATCH               FC50496    48
                          57121                   =A1    B2-1        INITIALIZE FETCH                            FC50496    49
                               57271              =A2    B7-1        INITIALIZE FETCH                            FC50496    50
           375  66460                             SB4    B6          SEARCH LOOP COUNTER                         FC50496    51
                                                                                                                 FC50496    52
           376  54111                    PSA23    =A1    A1+1        T.ARG ENTRY                                 FC50496    53
                     54221                        =A2    A2+1        T.ENTP ENTRY                                FC50496    54
                          67441                   =B4    B4-1        DECREMENT LOOP COUNT                        FC50496    55
                               37012              IX0    X1-X2                                                   FC50496    56
           377  0310000402 +                      NZ     X0,PSA27    IF NOT A MATCH                              FC50496    57
                          0540000376 +            NZ     B4,PSA23    IF MORE TO CHECK                            FC50496    58
                                                                                                                 FC50496    59
                                        *         HAVE AN EXACT MATCH.  NOTE MATCH AND EXIT.                     FC50496    60
                                                                                                                 FC50496    61
           400  5150000000 X                      SA5    T.ENTP                                                  FC50496    62
                          7117777776              SX1    B7-1        POINT TO HEADER                             FC50496    63
           401  37515                             IX5    X1-X5       (X5) = EPIX                                 FC50496    64
                     0400000421 +                 EQ     PSA40       PROCESS ENTRY SYMBOL                        FC50496    65
                                                                                                                 FC50496    66
           402  67556                    PSA27    SB5    B5-B6       DECREMENT T.ENTP COUNT                      FC50496    67
                     66776                        SB7    B7+B6       INCREMENT T.ENTP POINTER                    FC50496    68
                          0450000404 +            ZR     B5,PSA29    IF FINISHED, NO MATCH                       FC50496    69
           403  0400000371 +                      EQ     PSA20       LOOP FOR NEXT ENTRY                         FC50496    70
                                                                                                                 FC50496    71
           404  76610                    PSA29    SX6    B1          INDICATE MULTIPLE PARAMETER LISTS           FC50496    72
                     5160000000 X                 SA6    N.EPL                                                   HEADER    702
                                                                                                                 HEADER    703
                                        *         CONSTRUCT (EH.) HEADER WORD FOR THIS UNIQUE PARAMETER LIST.    HEADER    704
                                        *         THIS OFFSET = PREVIOUS LENGTH                                  HEADER    705
                                        *         INCREMENT (CP.) LENGTH BY SIZE OF THIS LIST, INCLUDING ZERO    HEADER    706
                                        *         WORD TERMINATOR.                                               HEADER    707
                                                                                                                 HEADER    708
           405  5130000000 X             PSA30    SA3    N.CPL                                                   FC50496    73
                          5120000001 X            SA2    PSAB        NARGS = (PSAB)                              HEADER    710
           406  5110000000 X                      SA1    T.ARG                                                   HEADER    711
                          73031                   SX0    X3+B1       NCZ = (N.CPL) + 1       */ TERMINATOR       HEADER    712
                                                  LX3    EH.BIASP                                                HEADER    713
           407  5140000000 X                      SA4    T=ARG                                                   HEADER    714
                          10633                   BX6    X3          (EH.BIAS) = (N.CPL)                         HEADER    715
           410  5150000000 X                      SA5    MOD                                                     FC50962     8
                          43771                   MX7    -MO.MODEL                                               FC50962     9
                               15757              BX7    -X7*X5      EXTRACT MODE (IF PRESENT)                   FC50962    10
           411  20560                             SBIT   X5,MO.FUNP                                              FC50962    11
                     0325000414 +                 PL     X5,PSA33    IF NOT FUNCTION                             FC50962    12
                               20552              SBIT   X5,MO.CTYPP/MO.FUNP                                     FC50962    13
           412  7277777771                        SX7    X7-M.CHAR                                               FC50962    14
                          0317000414 +            NZ     X7,PSA33    IF NOT CHARACTER                            FC50962    15
           413  0325000414 +                      PL     X5,PSA33    IF NOT ASSUMED SIZE                         FC50962    16
                          7266000001              SX6    X6+1        ACCOUNT FOR VALUH.                          FC50962    17
                                                                                                                 FC50962    18
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    19
        SUBROUTINES                                                   PSA 
  
           414  20260                    PSA33    LX2    EH.FPCP                                                 FC50962    19
                     12662                        BX6    X6+X2       MERGE FP COUNT                              HEADER    717
                          20214                   LX2    -EH.FPCP    RESTORE X2                                  HEADER    718
                               53610              SA6    X1                                                      HEADER    719
           415  36702                             IX7    X0+X2       (N.CPL) = NARGS + NCZ                       HEADER    720
                     54730                        SA7    A3                                                      HEADER    721
                          5110000000 X            ALLOC  T.ENTP,X4                                               HEADER    722
           417  37524                             IX5    X2-X4       EPIX = NEW LENGTH - AMOUNT ADDED            HEADER    723
                     36315                        IX3    X1+X5       DESTINATION = NEW FWA + EPIX                HEADER    724
                          5120000000 X            SA2    T.ARG                                                   HEADER    725
           420  10144                             BX1    X4          WC = AMOUNT ADDED                           HEADER    726
                     0100000000 X                 MOVE   X1,X2,X3                                                HEADER    727
                                                                                                                 HEADER    728
                                        *         FINALLY, LINK THE ENTRY POINT TO IT'S PARAMETER LIST ENTRY     HEADER    729
                                        *         IN (T.ENTP) BY SETTING (WB.PNT) = EPIX+1 .                     HEADER    730
                                        *                (X5) = EPIX                                             HEADER    731
                                                                                                                 HEADER    732
           421  5110000000 X             PSA40    SA1    PSAA                                                    FC50496    74
                          5120000000 X            SA2    T.SYM                                                   HEADER    734
           422  0301000425 +                      ZR     X1,PSA50    IF ERROR IN ENTRY NAME                      FC50496    75
                          73551                   SX5    X5+B1                                                   HEADER    736
                               22711              LX7    X1,B1                                                   HEADER    737
           423  63721                             =B7    X2+WB.W                                                 HEADER    738
                     36371                        IX3    X7+X1       (X3) = INDEX OF ENTRY POINT                 HEADER    739
                                   0              ERRNZ  3-Z=SYM                                                 HEADER    740
                          53337                   SA3    X3+B7                                                   HEADER    741
                               20557              LX5    WB.PNTP                                                 HEADER    742
           424  12635                             BX6    X3+X5                                                   HEADER    743
                     54630                        SA6    A3                                                      HEADER    744
                                                                                                                 FC50496    76
                                         .T       IFEQ   TEST,ON                                                 HEADER    745
                                                  MX0    -WB.PNTL                                                HEADER    746
                                                  LX0    WB.PNTP                                                 HEADER    747
                                                  BX7    -X0*X3      (X7) = PREVIOUS POINTER                     HEADER    748
                                                  NZ     X7,"BLOWUP" IF PREVIOUS GARBAGE IN POINTER FIELD        HEADER    749
                                         .T       ENDIF                                                          HEADER    750
                                                                                                                 HEADER    751
           425  13666                    PSA50    SHRINK T=ARG                                                   FC50496    77
           426  0400000336 +                      EQ     EXIT.                                                   HEADER    753
                                                                                                                 HEADER    754
                                   0 X   PSAA     EQU    SCR         SAVE SYMORD OF THIS ENTRY POINT             HEADER    755
                                   1 X   PSAB     EQU    SCR+1       SAVE NUMBER OF ARGS IN THIS PARM LIST       HEADER    756
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    20
        SUBROUTINES                                                   SAL 
  
                                        **        SAL - SCAN ARGUMENT LIST.                                      HEADER    758
                                        *                                                                        HEADER    759
                                        *         SCANS THE ARGUMENT LIST, TO CHECK SYNTAX AND BUILD A           HEADER    760
                                        *         TEMPORARY TABLE (T.ARG) CONTAINING THE NON-LABEL DUMMY         HEADER    761
                                        *         ARGS IN THIS LIST, IN ORDER.  DUPLICATES ARE DIAGNOSED, AND    HEADER    762
                                        *         ONLY ENTERED ONCE.  EACH ARG IS ALSO MARKED AS (WB.FP) IN THE  HEADER    763
                                        *         SYMBOL TABLE.  IF IT IS NOT YET IN THE FORMAL PARAMETER TABLE, HEADER    764
                                        *         IT IS ADDED TO (T.FPI), AND IT'S FORMAL PARAMETER NUMBER IS    HEADER    765
                                        *         SET INTO (WB.FPNO).                                            HEADER    766
                                        *                                                                        HEADER    767
                                        *         ENTRY  (B4) _ FIRST TOKEN OF PRESUMED ARGUMENT LIST.           FC50558    15
                                        *                                                                        HEADER    769
                                        *         EXIT   (T.ARG) = SYMBOLS IN THIS ARGLIST.                      HEADER    770
                                        *                                                                        HEADER    771
                                        *         CALLS  ACV, ADW, ERT, ESY, SCS, SCT, SSY, STY, TLV.            FC50558    16
                                                                                                                 HEADER    773
                                                                                                                 HEADER    774
           427  0400400427 +             SAL      SUBR   0           ENTRY/EXIT...                               HEADER    775
           430  56140                             SA1    B4                                                      HEADER    776
                     0301000437 +                 ZR     X1,SAL21    IF EOS -- ARGLIST OMITTED                   HEADER    777
                                   0              ERRNZ  O.EOS                                                   HEADER    778
           431  7221777740                        SX2    X1-O.LP                                                 HEADER    779
                          0312000435 +            NZ     X2,SAL23    IF NO LEFT PAREN                            HEADER    780
           432  56141                             SA1    B4+B1                                                   HEADER    781
                     66441                        SB4    B4+B1                                                   HEADER    782
                          6271777737              SB7    X1-O.RP                                                 HEADER    783
           433  0301000000 X                      ZR     X1,E.MR1    IF EOS INSTEAD OF ARGUMENT                  HEADER    784
                          0570000445 +            NZ     B7,SAL30    IF NOT EXPLICIT NULL ARGUMENT LIST          HEADER    785
           434  6144000001                        SB4    B4+1                                                    HEADER    786
                          0400000547 +            EQ     SAL58                                                   HEADER    787
                                                                                                                 HEADER    788
           435  6170000000 X             SAL23    FATAL  E.AG07      ** EXPECTED ARGLIST LPAREN                  HEADER    789
           436  0400000427 +                      EQ     EXIT.                                                   HEADER    790
                                                                                                                 HEADER    791
                                        *         OMITTED ARGUMENT LIST.                                         HEADER    792
                                                                                                                 HEADER    793
           437  5110000000 X             SAL21    SA1    TB=TYPE                                                 FC5A262    24
                                                  HX1    KW.JMP                                                  FC5A262    25
                          21152                   AX1    -KW.JMPL    EXTRACT PROCESSOR ADDRESS                   FC5A262    26
                               63710              SB7    X1                                                      FC5A262    27
                                   0              ERRNZ  18-KW.JMPL                                              FC5A262    28
           440  6120000000 X                      SB2    KW=ENTR                                                 FC5A262    29
                          67772                   SB7    B7-B2                                                   FC5A262    30
           441  0470000427 +                      ZR     B7,EXIT.    IF ENTRY                                    FC5A262    31
                          5110000000 X            SA1    MOD                                                     FC5A262    32
           442  20160                             HX1    MO.FUN                                                  HEADER    795
                     0321000427 +                 PL     X1,EXIT.    IF NOT A FUNCTION                           HEADER    796
           443  6170000000 X                      FATAL  E.AG01                                                  FC5A262    33
           444  0400000427 +                      EQ     EXIT.                                                   HEADER    798
                                                                                                                 HEADER    799
                                                                                                                 HEADER    800
                                        *         LOOP THRU ARGUMENT LIST.                                       HEADER    801
                                                                                                                 HEADER    802
           445  56140                    SAL30    SA1    B4          FETCH NEXT TOKEN                            HEADER    803
                     43052                        MX0    TB.TOCL                                                 HEADER    804
                          6271777766              SB7    X1-O.VAR                                                HEADER    805
           446  11601                             BX6    X0*X1                                                   HEADER    806
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    21
        SUBROUTINES                                                   SAL 
  
                     5160000000 X                 SA6    FILL.                                                   HEADER    807
           447  0470000456 +                      ZR     B7,SAL34    IF LETTER                                   HEADER    808
                          6221777761              SB2    X1-O.STAR                                               HEADER    809
           450  6170000000 X                      SB7    E.AG04      ** FILL. MUST BE LETTER OR STAR             HEADER    810
                          0520000454 +            NZ     B2,SAL32    IF NOT LABEL PARAMETER                      HEADER    811
           451  5110000000 X                      SA1    MOD                                                     HEADER    812
                          20161                   HX1    MO.SUB                                                  HEADER    813
                               76610              =X6    1                                                       HEADER    814
           452  5160000000 X                      SA6    =XN.ARP     INDICATE ALTERNATE RETURNS CODE NEC.        HEADER    815
                          0331000543 +            MI     X1,SAL52    IF SUBROUTINE -- SKIP OVER LABEL PARM       HEADER    816
           453  6170000000 X                      SB7    E.AG11      ** LABEL PARAMETER IN FUNCTION              HEADER    817
                                                                                                                 FC50387     5
           454  0301000000 X             SAL32    ZR     X1,E.MR1    CHECK FOR PREMATURE EOS                     FC50667     7
                          0100000000 X            FATAL  B7                                                      FC50667     8
           455  0400000543 +                      EQ     SAL52                                                   HEADER    819
                                                                                                                 HEADER    820
                                        *         INSURE SYMBOL IN TABLE, AND MARK IT AS FORMAL PARAMETER.       HEADER    821
                                                                                                                 HEADER    822
           456  0100000000 X             SAL34    CALL   SSY         SCAN SYMBOL TABLE                           HEADER    823
           457  73400                             SX4    X0                                                      HEADER    824
                     0770000466 +                 MI     B7,SAL36    IF NOT PREVIOUSLY ENCOUNTERED               HEADER    825
                               20253              HX2    WB.FP                                                   HEADER    826
           460  0332000505 +                      MI     X2,SAL40    IF ALREADY KNOWN AS FP                      HEADER    827
                          5130000624 +            CLAS=  X3,WB,(EQV,COM,PARM,NLST,SAVE,ENT)                      FC5A192    40
           461  20221                             LX2    1+WB.FPP                                                FC5A192    41
                     11332                        BX3    X3*X2                                                   FC5A192    42
                          55121                   =A1    A2-WB.W+WA.W      X1 = *WA*                             FC5A192    43
                               43201              MX2    1                                                       FC5A192    44
           462  20222                             LX2    1+WA.NFPP                                               FC5A192    45
                     11121                        BX1    X2*X1       EXTRACT WA.NFP                              FC5A192    46
                          12331                   BX3    X3+X1                                                   FC5A192    47
           463  0303000471 +                      ZR     X3,SAL38    IF CAN BE AN FP                             FC5A192    48
                          6170000000 X            FATAL  E.AG12      ** CANNOT BE FP                             HEADER    830
                                   0     .FIX     SET                NEEDS CCT CALL                              HEADER    831
           465  0400000537 +                      EQ     SAL50                                                   HEADER    832
                                                                                                                 HEADER    833
                                        *         FIRST APPEARANCE OF SYMBOL.  TYPE IT AND ADD TO SYMTAB.        FC5A444    72
                                        *         IF AUTOMATIC LEVEL IS ON MARK THIS FP AS AUTO-LEVELED,         FC5A444    73
                                        *         UNLESS IT HAS ALREADY BEEN EXPLICITLY LEVELED OR MADE          FC5A444    74
                                        *         EXTERNAL. IF WE ARE PAST DECLARATIVE PROCESSING DON'T          FC5A444    75
                                        *         SET THE WB.AL BIT SINCE NO FURTHER LEVEL STATEMENTS CAN        FC5A444    76
                                        *         OCCUR AND SETTING IT WILL INTERFERE WITH THE DUPLICATE         FC5A444    77
                                        *         USE OF THE BIT IN EXECUTABLES FOR FLAGGING ASSIGNED GOTO       FC5A444    78
                                        *         VARIABLES THAT ARE NEVER ASSIGNED TO.                          FC5A444    79
                                                                                                                 HEADER    835
           466  0100000000 X             SAL36    CALL   STY         SET NATURAL TYPE                            HEADER    836
           467  10711                             BX7    X1          SET (WB.MODE)                               HEADER    837
                     5110000000 X                 ADSYM  T.SYM                                                   HEADER    838
                                                                                                                 FC50387     6
           471  7130200000               SAL38    CLAS=  X3,WB,(FP)                                              HEADER    839
                          5140000000 X            SA4    CO.AL                                                   FC5A444    80
           472  0324000503 +                      PL     X4,SAL39    IF AUTOMATIC LEVEL OFF                      FC5A444    81
                          5140000625 +            CLAS=  X4,WB,(EXT,LEV)                                         FC5A444    82
           473  11446                             BX4    X4*X6                                                   FC5A444    83
                     0314000503 +                 NZ     X4,SAL39    IF ALREADY EXT OR LEVELED                   FC5A444    84
           474  5130000626 +                      CLAS=  X3,WB,(FP,LEV,AL)                                       FC5A444    85
                          5140000000 X            SA4    STAGE                                                   FC5A444    86
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    22
        SUBROUTINES                                                   SAL 
  
           475  7170000000 X                      SX7    FEC=STF                                                 FC5A444    87
                          37447                   IX4    X4-X7                                                   FC5A444    88
           476  0334000477 +                      MI     X4,SAL38A   IF STILL IN DECLARATIVE OR EARLIER          FC5A444    89
                          5130000627 +            CLAS=  X3,WB,(FP,LEV)                                          FC5A444    90
                                                                                                                 FC5A444    91
           477  10733                    SAL38A   BX7    X3                                                      FC5A444    92
                     76310                        =X3    .DAL                                                    FC5A444    93
                                  -1              ERRPL  .DAL-2                                                  FC5A444    94
                          0303000501 +            ZR     X3,SAL38B   IF NO LCM                                   FC5A444    95
                                                  IFEQ   .MI,1,3                                                 FC5A444    96
                                                  =X3    0                                                       FC5A444    97
                                                  SA4    =XCO.TMLC                                               FC5A444    98
                                                  ZR     X4,SAL38B   IF TM=LCM NOT SELECTED                      FC5A444    99
           500  43301                             CLAS=  X3,WB,(LCM) SET LCM BIT                                 FC5A444   100
                                                                                                                 FC5A444   101
           501  12773                    SAL38B   BX7    X7+X3       ADD IN LCM BIT IF LCM PRESENT               FC5A444   102
                     10377                        BX3    X7                                                      FC5A444   103
                          5170000000 X            SA7    LEVEL                                                   FC5A444   104
           502  5170000000 X                      SA7    LEVEL2      FORCES CLEARING OF WB.AL AT END OF DECL     FC5A444   105
                                                                                                                 FC5A444   106
           503  43401                    SAL39    CLAS=  X4,WB,(SFA)                                             FC5A444   107
                          12663                   BX6    X6+X3                                                   HEADER    840
                               15664              BX6    -X4*X6      CLEAR STMT FUNC DUMMY ARG FLAG              FC50326    10
           504  54620                             SA6    A2                                                      HEADER    841
                                                                                                                 HEADER    842
                                        *         SYMBOL NOW IN SYMTAB.  ADD TO (T.ARG).                         HEADER    843
                                        *                (X0) = SYMORD                                           HEADER    844
                                                                                                                 HEADER    845
           505  73600                    SAL40    SX6    X0                                                      HEADER    846
                     10400                        BX4    X0                                                      HEADER    847
                          5110000000 X            SCAN   T.ARG,SCT   CHECK FOR DUPLICATE APPEARANCE              HEADER    848
           507  0770000512 +                      MI     B7,SAL42    IF NOT ALREADY IN THIS ARGLIST              HEADER    849
                          6170000000 X            FATAL  E.AG03                                                  HEADER    850
           511  0400000537 +                      EQ     SAL50                                                   HEADER    851
                                                                                                                 HEADER    852
           512  0100000000 X             SAL42    ADDWD  A1          ADD TO LOCAL ARGLIST                        HEADER    853
                                                                                                                 HEADER    854
                                        *         SYMBOL NOW IN LOCAL ARGLIST.  INCLUDE IT IN (T.FPI).           HEADER    855
                                        *                (X4) = SYMORD                                           HEADER    856
                                                                                                                 HEADER    857
           513  43622                    SAL44    MX6    FP.PNTL                                                 FC50010     6
                     20622                        LX6    FP.PNTL+FP.PNTP                                         FC50010     7
                          5160000000 X            SA6    SCSA        MATCH SYMORD ONLY                           FC50010     8
           514  22604                             LX6    X4                                                      HEADER    861
                                                  LX6    FP.PNTP                                                 HEADER    862
                     5110000000 X                 SCAN   T.FPI,SCS                                               HEADER    863
           516  0670000537 +                      PL     B7,SAL50    IF ALREADY PARAMETER                        HEADER    864
                          0100000000 X            ADDWD  A1                                                      HEADER    865
           517  5110000000 X                      SA1    T.SYM                                                   HEADER    866
                          22014                   LX0    X4,B1                                                   HEADER    867
                               10722              BX7    X2          (N.FP) = (T=FPI)                            HEADER    868
           520  63711                             =B7    X1+WB.W                                                 HEADER    869
                     36304                        IX3    X0+X4       (X3) = INDEX = SYMORD * Z=SYM               HEADER    870
                                   0              ERRNZ  3-Z=SYM                                                 HEADER    871
                          53137                   SA1    X3+B7       FETCH SYMTAB (WB)                           HEADER    872
                               20241              LX2    WB.FPNOP    (WB.FPNO) = INDEX IN (T.FPI)                HEADER    873
           521  5170000000 X                      SA7    N.FP                                                    HEADER    874
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    23
        SUBROUTINES                                                   SAL 
  
                          43001                   CLAS=  X0,WB,(VDS)                                             HEADER    875
           522  12621                             BX6    X2+X1                                                   HEADER    876
                     15660                        BX6    -X0*X6      REMOVE WB.VDS                               HEADER    877
                          54610                   SA6    A1                                                      HEADER    878
                               20141              SBIT   X1,WB.VDSP                                              HEADER    879
           523  0321000527 +                      PL     X1,SAL47    IF NOT VARDIM ARRAY OR SUBSCRIPT            FC50558    17
                          20120                   SBIT   X1,WB.ARYP/WB.VDSP                                      HEADER    881
           524  0331000527 +                      MI     X1,SAL47    IF ARRAY, NOTHING TO DO                     FC50558    18
                          5110000000 X            SA1    T.FPI                                                   HEADER    883
           525  6277777776                        SB7    X7-1                                                    HEADER    884
                          53117                   SA1    X1+B7       FETCH T.FPI ENTRY                           HEADER    885
                               43601              CLAS=  X6,FP,(VDS)                                             HEADER    886
           526  12661                             BX6    X6+X1                                                   HEADER    887
                     54610                        SA6    A1          UPDATE WITH FP.VDS                          HEADER    888
                                                                                                                 HEADER    889
                                        *         FOR UNIQUE FORMAL PARAMETERS ON ENTRY STATEMENTS, PROCESS FOR  FC50558    19
                                        *         POSSIBLE ASSUMED LENGTH CHARACTER.                             FC50558    20
                                                                                                                 FC50558    21
           527  5110000000 X             SAL47    SA1    PSAA                                                    FC50558    22
                          5120000000 X            SA2    S=ENTRY                                                 FC50558    23
           530  37212                             IX2    X1-X2                                                   FC50558    24
                     22104                        LX1    X4          FORMAL PARAMETER ORDINAL                    FC50558    25
                          0302000537 +            ZR     X2,SAL50    IF MAIN ENTRY POINT                         FC50558    26
           531  10644                             BX6    X4                                                      FC50558    27
                     5160000002 X                 SA6    SALA        SAVE ACROSS ACV CALL                        FC50558    28
           532  0100000000 X                      CALL   ACV         PROCESS ASSUMED LENGTH CHARACTER            FC50558    29
           533  5140000002 X                      SA4    SALA        RESTORE                                     FC50558    30
                          5110000000 X            SA1    T.VDI                                                   FC50558    31
           534  5120000000 X                      SA2    T=VDI                                                   FC50558    32
                          0302000537 +            ZR     X2,SAL50    IF NO VARDIM                                FC50558    33
           535  6272777776                        SB7    X2-1                                                    FC50558    34
                          53217                   SA2    X1+B7       LATEST VDI ENTRY                            FC50558    35
                               43122              MX1    VD.INDL                                                 FC50558    36
           536  20166                             LX1    VD.INDL+VD.INDP                                         FC50558    37
                     15721                        BX7    -X1*X2      CLEAR INDEX                                 FC50558    38
                          54720                   SA7    A2          UPDATE                                      FC50558    39
                                                                                                                 FC50558    40
                                        *         FILE CROSS-REF FOR SYMBOL.                                     HEADER    890
                                                                                                                 HEADER    891
           537  73640                    SAL50    SX6    X4          CONSTRUCT XREF ORD                          HEADER    892
                     20652                        LX6    XR.TAGP                                                 HEADER    893
                          7110000055              ADDREF X6,CR.REF                                               FC50387     7
           541  56341                             =A3    B4+1                                                    HEADER    896
                     6273777766                   SB7    X3-O.VAR                                                HEADER    897
           542  0570000543 +                      NZ     B7,SAL52    IF NOT LONG NAME                            HEADER    898
                          0100000000 X            CALL   TLV         TRUNCATE NAME                               HEADER    899
                                                                                                                 FC50387     8
           543  56341                    SAL52    SA3    B4+B1                                                   HEADER    900
                     0303000000 X                 ZR     X3,E.MR1    IF EOS -- ERROR                             HEADER    901
           544  7223777735                        SX2    X3-O.COMMA                                              HEADER    902
                          64431                   SB4    A3+B1       B4 = B4 + 2                                 HEADER    903
           545  0302000445 +                      ZR     X2,SAL30    IF *,* LOOP ON NEXT ARGUMENT                HEADER    904
                          7223777737              SX2    X3-O.RP                                                 HEADER    905
           546  0312000000 X                      NZ     X2,E.AG08   IF NO *)* - ERROR                           HEADER    906
                                                                                                                 HEADER    907
           547  56240                    SAL58    SA2    B4                                                      HEADER    908
                     0302000427 +                 ZR     X2,EXIT.    IF *EOS*, STATEMENT ENDED CLEANLY           HEADER    909
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    24
        SUBROUTINES                                                   SAL 
  
                                   0              ERRNZ  O.EOS                                                   HEADER    910
           550  6170000000 X                      WARN   E.AG02                                                  HEADER    911
           551  0400000427 +                      EQ     EXIT.                                                   HEADER    912
                                                                                                                 FC50558    41
                                   2 X   SALA     EQU    SCR+2       SAVE F.P. ORDINAL                           FC50558    42
  
  
  
  
                                        **        TSB - TRANSLATE SUBPROGRAM BEGIN.                              HEADER    914
                                        *                                                                        HEADER    915
                                        *         TRANSLATES OPTIONAL ARGUMENT LIST, AND PERFORMS                HEADER    916
                                        *         SUBPROGRAM INITIALIZATION COMMON TO SUBROUTINE AND             HEADER    917
                                        *         FUNCTION HEADER STATEMENTS.                                    HEADER    918
                                        *                                                                        HEADER    919
                                        *         CALLS  EMIT, PSA.                                              HEADER    920
                                                                                                                 HEADER    921
                                                                                                                 HEADER    922
           552  0400400552 +             TSB      SUBR   0           ENTRY/EXIT...                               HEADER    923
           553  5140000000 X                      SA4    S=ENTRY                                                 HEADER    924
                          0100000336 +            RJ     PSA         PROCESS SUBPROGRAM ARGUMENTS                HEADER    925
                                                                                                                 HEADER    926
           554  13444                             BX4    0                                                       HEADER    927
                     43500                        MX5    0                                                       HEADER    928
                          6130000000 X            EMIT   V=SEX       START OF EXECUTABLES                        HEADER    929
                                                                                                                 HEADER    930
           556  5140000561 +                      SA4    TSAA                                                    HEADER    931
                          7130000060              CLAS=  X3,WB,(CGS,VAR)                                         HEADER    932
           557  0100000000 X                      CALL   TSY         TAG SYMBOL (EXIT.)                          HEADER    933
           560  0400000552 +                      EQ     EXIT.                                                   HEADER    934
                                                                                                                 HEADER    935
           561  05301124570000000000 X   TSAA     VFD    42/5LEXIT.,18/S=EXIT                                    HEADER    936
  
  
  
  
                                        **        WSA - WRAPUP SUBPROGRAM ARGUMENTS.                             HEADER    938
                                        *                                                                        HEADER    939
                                        *         CALLED BY KEY/END, WHEN THERE ARE ANY FORMAL PARAMETERS TO     HEADER    940
                                        *         A PROCEDURE SUBPROGRAM.  THIS PROCESSING IS DEFERRED UNTIL     HEADER    941
                                        *         END STATEMENT, SO THAT ALL FORMAL PARAMETERS ARE KNOWN.        HEADER    942
                                        *         ENTER SUBPROGRAM SYMBOLS IN SYMTAB.                            HEADER    943
                                                                                                                 HEADER    944
                                                                                                                 HEADER    945
           562  0400400562 +             WSA      SUBR   =           ENTRY/EXIT...                               HEADER    946
           563  5140000603 +                      SA4    WSAA                                                    HEADER    947
                          7130002260              CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    948
           564  0100000000 X                      CALL   TSY         TAG SYMBOL (SUB.)                           HEADER    949
           565  54441                             SA4    A4+B1                                                   HEADER    950
                     7130002260                   CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    951
           566  0100000000 X                      CALL   TSY         TAG SYMBOL (SUBI.)                          HEADER    952
           567  54441                             SA4    A4+B1                                                   HEADER    953
                     7130002260                   CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    954
           570  0100000000 X                      CALL   TSY         TAG SYMBOL (SUB0I.)                         HEADER    955
           571  5110000630 +                      TAGSEX (=L/SP5./)  SUBSTITUTE PARAMETER ADDRESSES              HEADER    956
           572  10600                             BX6    X0                                                      HEADER    957
                     5160000000 X                 SA6    S=SPA                                                   HEADER    958
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    25
        SUBROUTINES                                                   WSA 
  
           573  5110000631 +                      TAGSEX (=L/SLI./)                                              HEADER    959
           574  10600                             BX6    X0                                                      HEADER    960
                     5160000000 X                 SA6    S=SLI                                                   HEADER    961
                                                                                                                 HEADER    962
                               54441              SA4    A4+B1                                                   HEADER    963
           575  5110000000 X                      SA1    N.EPL                                                   HEADER    964
                          0301000602 +            ZR     X1,WSA40    IF APL COPY NOT NEEDED                      HEADER    965
           576  7130002260                        CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    966
                          0100000000 X            CALL   TSY         TAG SYMBOL (CP.)                            HEADER    967
           577  5110000632 +                      TAGSEX (=L/CPL./)                                              HEADER    968
           600  54441                             SA4    A4+B1                                                   HEADER    969
                     10600                        BX6    X0                                                      HEADER    970
                          5160000000 X            SA6    S=CPL                                                   HEADER    971
           601  7130002260                        CLAS=  X3,WB,(CGS,DEF,VAR,ARY)                                 HEADER    972
                          0100000000 X            CALL   TSY         TAG SYMBOL (GPL.)                           HEADER    973
           602  0400000562 +             WSA40    EQ     EXIT.                                                   HEADER    974
                                                                                                                 HEADER    975
           603  23250257000000000000 X   WSAA     VFD    42/4LSUB.,18/S=SUB                                      HEADER    976
           604  23250211570000000000 X            VFD    42/5LSUBI.,18/S=SUBI                                    HEADER    977
           605  23250233115700000000 X            VFD    42/6LSUB0I.,18/S=SUB0I                                  HEADER    978
                                                                                                                 HEADER    979
           606  03205700000000000000 X            VFD    42/3LCP.,18/S=CP                                        HEADER    980
           607  07201457000000000000 X            VFD    42/4LGPL.,18/S=GPL                                      HEADER    981
  
  
  
  
                                                  LIST   D                                                       HEADER    983
  
                                        CONTENT OF LITERALS BLOCK.
  
           610  55021417031304012401     BLOCKDATA
           611  55550625160324111716      FUNCTION
           612  55555520221707220115       PROGRAM
           613  00000000001726030120         OVCAP
           614  00000017260522140131       OVERLAY
           615  20221707220115555555    PROGRAM 
           616  23250222172524111605    SUBROUTINE
           617  00000000010000020300        A  BC 
           620  00000000010200020300        AB BC 
           621  30303047474747000000    XXX**** 
           622  23240122245700000000    START.
           623  00000000010000000260        A   B#
           624  00000000006000121400         # JL 
           625  00000000001000040000         H D
           626  00000000001004200000         HDP
           627  00000000001000200000         H P
           630  23204057000000000000    SP5.
           631  23141157000000000000    SLI.
           632  03201457000000000000    CPL.
  
           633                                    END                                                            HEADER    984
  
                             74300B CM  STORAGE USED             5366 STATEMENTS     1564 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            4.817 SECONDS         932 REFERENCES
  
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    26
        SYMBOLIC REFERENCE TABLE. 
  
        ACV             0   EXTERNAL*       2/10 X   23/26
        ADW             0   EXTERNAL*       2/07 X   10/06     16/50     22/36     22/48
        ALC             0   EXTERNAL*       2/07 X    5/36     19/07
        ANSI=           0   EXTERNAL*       2/40 X   11/46
        BKDA           11   PROGRAM*        3/12      3/26 L
        BKD1            4   PROGRAM*        3/13      3/18 L
        BUFL.ADD        3   FTX            13/20
        BUFL.DM      2003   FTX            12/24
        BUFL.SM      1003   FTX            12/22
        B1=1            0 
        CHAR            6   FTX             3/49      4/57      5/16      5/23      9/09     12/03
                                            3/50      5/05      5/17      8/45      9/16     12/41
                                            4/43      5/13      5/18      8/49      9/17
        CHARMAP         0   EXTERNAL*       2/16 X    5/09
        COVC          122   PROGRAM*        3/10      8/10 L   11/34     16/53
        CO.AL           0   EXTERNAL*       2/27 X   21/51
        CO.DBER         0   EXTERNAL*       2/27 X   15/04
        CO.DBPM         0   EXTERNAL*       2/27 X   15/01
        CO.PW           0   EXTERNAL*       2/27 X    9/18
        CO.STAT         0   EXTERNAL*       2/27 X   12/21
        CP#RM           0   FTX            12/20 F
        CR.DEF          4   FTX            10/13
        CR.REF         55   FTX            23/42
        DCM           130   PROGRAM*        3/20      4/01      4/23      6/21      6/57      8/39 L
        DCMA          621   PROGRAM*        9/02     10/21 L
        DCM1          141   PROGRAM*        8/47      8/51      9/01 L
        DCM2          143   PROGRAM*        8/54      8/56      9/04 L
        DCM3          152   PROGRAM*        9/21      9/25 L
        DCM4          155   PROGRAM*        9/29      9/33 L
        DCM5          165   PROGRAM*        9/50      9/53 L
        DEC             0   EXTERNAL*       2/13 X   11/05
        DPN           104   PROGRAM*        6/19      6/34 L
        DUC=            0   FTX             3/23      5/47     10/10     14/15     14/55     14/56     24/25
        EF.ORDL        17   FTX            17/14     17/15     17/18     17/23
        EH.FPCL        14   FTX            17/56
        EH.FPCP        60   FTX            19/01     19/03
        EMT             0   EXTERNAL*       2/37 X    3/23      5/47     10/10     14/15     14/55     14/56     24/25
        ERFO            0   EXTERNAL*       2/27 X    8/44 S    9/30 S    9/33 S
        ERT             0   EXTERNAL*       2/16 X   10/13     23/42
        ESY             0   EXTERNAL*       2/16 X   10/02     14/08     21/48
        E.AG00          0   EXTERNAL*       2/20 X   17/06
        E.AG01          0   EXTERNAL*       2/20 X   20/48     20/48
        E.AG02          0   EXTERNAL*       2/20 X   24/02     24/02
        E.AG03          0   EXTERNAL*       2/20 X   22/33
        E.AG04          0   EXTERNAL*       2/20 X   21/04
        E.AG07          0   EXTERNAL*       2/20 X   11/40     20/32
        E.AG08          0   EXTERNAL*       2/20 X   23/54
        E.AG11          0   EXTERNAL*       2/20 X   21/11
        E.AG12          0   EXTERNAL*       2/21 X   21/33
        E.FD            0   EXTERNAL*       2/21 X   11/46     11/46
        E.FD0           0   EXTERNAL*       2/21 X
        E.FD1           0   EXTERNAL*       2/21 X   11/55
        E.FD10          0   EXTERNAL*       2/22 X   14/32
        E.FD11          0   EXTERNAL*       2/24 X   14/43
        E.FD12          0   EXTERNAL*       2/24 X   14/48
        E.FD2           0   EXTERNAL*       2/21 X   12/14
        E.FD3           0   EXTERNAL*       2/21 X   12/52
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    27
        SYMBOLIC REFERENCE TABLE. 
  
        E.FD4           0   EXTERNAL*       2/21 X   15/30
        E.FD5           0   EXTERNAL*       2/21 X   15/30
        E.FD6           0   EXTERNAL*       2/21 X   15/30
        E.FD7           0   EXTERNAL*       2/22 X   15/34
        E.FD8           0   EXTERNAL*       2/22 X   15/34
        E.FD9           0   EXTERNAL*       2/22 X   15/34
        E.MDE1          0   EXTERNAL*       2/23 X    4/55
        E.MDE6          0   EXTERNAL*       2/23 X    4/39
        E.MR1           0   EXTERNAL*       2/22 X   11/54     14/28     20/27     21/13     23/49
        E.OV1           0   EXTERNAL*       2/22 X    5/03
        E.OV2           0   EXTERNAL*       2/22 X    4/49
        E.OV3           0   EXTERNAL*       2/22 X    5/49
        E.OV4           0   EXTERNAL*       2/22 X    8/16
        E.PN1           0   EXTERNAL*       2/23 X    9/01
        E.PN3           0   EXTERNAL*       2/24 X    6/15      6/15
        FCT2           20   PROGRAM*        3/45      3/48      3/53      3/55 L
        FEC=IMP         0   EXTERNAL*       2/16 X   10/14
        FEC=STF         0   EXTERNAL*       2/16 X   22/01
        FEC.RTN         0   EXTERNAL*       2/16 X    3/24      4/03      4/25      4/50      5/50      7/05
        FILL.           0   EXTERNAL*       2/24 X   12/05 S   21/01 S
        FILL.2          0   EXTERNAL*       2/24 X   12/43 S
        FP.PNTL        22   FTX            22/41     22/42
        FP.PNTP         0   FTX            22/42
        HO$MSG          0   EXTERNAL*       2/43 X    9/38
        IDENT           0   EXTERNAL*       2/44 X    9/37 S   11/42
        IDENT1          0   EXTERNAL*       2/44 X
        KW=BLOC         0   PROGRAM*        3/08 L    3/08 E
        KW=ENTR         0   EXTERNAL*       2/34 X   20/42
        KW=FUNC        12   PROGRAM*        3/39 L    3/39 E
        KW=OVCA        31   PROGRAM*        4/38 L    4/38 E
        KW=OVER        42   PROGRAM*        4/54 L    4/54 E
        KW=PROG        25   PROGRAM*        4/19 L    4/19 E
        KW=SUBR       113   PROGRAM*        6/53 L    6/53 E
        KW.JMPL        22   FTX            20/39     20/41
        LCC            46   PROGRAM*        4/46      4/48      5/05 L
        LCC2           47   PROGRAM*        5/09 L    5/27
        LCC3           51   PROGRAM*        5/10      5/13 L
        LCC35          52   PROGRAM*        5/16 L    5/25
        LCC4           55   PROGRAM*        5/21      5/25 L
        LCC6           61   PROGRAM*        5/32      5/34 L
        LEVEL           0   EXTERNAL*       2/44 X   22/18 S
        LEVEL2          0   EXTERNAL*       2/44 X   22/19 S
        MAX.BUFL   360000   FTX            13/06
        MAX.PARG       61   FTX            14/46
        MAX.RECL   377777   FTX            13/33
        MAX.SARG      764   FTX            16/55
        MAX.VAR         7   FTX             8/45
        MDERR=          0   EXTERNAL*       2/40 X    4/39      4/55
        MOD             0   EXTERNAL*       2/44 X    8/13      9/43     18/47     21/06
                                            3/42      8/40 S   16/39     20/45
        MO.CLIFL       23   FTX             9/55      9/56
        MO.CLIFP       35   FTX             9/56
        MO.CTYPP       35   FTX            16/44     18/52
        MO.FUNL         1   FTX            20/46
        MO.FUNP        13   FTX            16/42     16/44     18/50     18/52     20/46
        MO.MODEL        3   FTX             9/45     16/40     18/48
        MO.MODEP        0   FTX             9/47      9/48
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    28
        SYMBOLIC REFERENCE TABLE. 
  
        MO.PROM      1000   FTX             6/17
        MO.SUBL         1   FTX             8/14     21/07
        MO.SUBP        12   FTX             8/14     21/07
        MO.TYPL         1   FTX             3/44      9/54
        MO.TYPP         7   FTX             3/44      9/49      9/54
        MSG=            0   EXTERNAL*       2/27 X    9/38
        MVE=            0   EXTERNAL*       2/55 X    5/42     19/12
        M.CHAR          6   FTX            16/45     16/49     18/53
        M.INT           2   FTX            11/06
        NARGS           0   EXTERNAL*       2/44 X   14/09     14/45     15/14
        N.ARP           0   EXTERNAL*       2/44 X   21/09 S
        N.CPL           0   EXTERNAL*       2/44 X   18/40
        N.EPL           0   EXTERNAL*       2/45 X   18/33 S   25/06
        N.FP            0   EXTERNAL*       2/45 X   22/57 S
        OCT             0   EXTERNAL*       2/13 X   10/56
        OVCFLG         41   PROGRAM*        4/41 S    4/52 L    4/52 E    8/11
        O.COMMA        42   FTX             6/37     14/25     23/50
        O.CONS          5   FTX            11/02
        O.EOS           0   FTX            11/37     14/27     14/42     20/21     24/01
        O.LP           37   FTX             4/47      5/02      6/35     11/38     20/22
        O.OCT           6   FTX            10/54
        O.PERIOD       10   FTX             4/45
        O.RP           40   FTX             6/39     14/29     20/26     23/53
        O.SLASH        17   FTX            13/04     13/26
        O.STAR         16   FTX            21/03
        O.VAR          11   FTX             3/26      4/05      6/36      8/46     11/52     12/38     20/56
                                            3/47      6/34      6/38      8/53     12/06     12/44     23/44
        O.=            41   FTX            12/34
        PBM           200   PROGRAM*       10/53 L   13/07     13/34
        PBM10         204   PROGRAM*       10/55     11/02 L
        PBM20         210   PROGRAM*       10/57     11/12 L
        PDM             0   EXTERNAL*       2/40 X    8/16     11/55     14/48     20/48     22/33
                                            4/49      9/01     14/32     17/06     21/14     24/02
                                            6/15     11/40     14/43     20/32     21/33
        PPA           214   PROGRAM*        4/24      6/22     11/33 L
        PPAB          332   PROGRAM*       15/09     15/25 L
        PPABE         334   PROGRAM*       13/09     15/30 L
        PPAC          333   PROGRAM*       15/16     15/26 L
        PPAE            0   EXTERNAL*      15/27 D
        PPAF            1   EXTERNAL*      15/28 D
        PPAME         335   PROGRAM*       13/36     15/34 L
        PPA10         221   PROGRAM*       11/39     11/42 L
        PPA110        266   PROGRAM*       13/35     13/46 L
        PPA120        267   PROGRAM*       12/35     12/57     13/27     14/02 L
        PPA130        276   PROGRAM*       11/57     14/23 L   14/23 E   14/35
        PPA140        303   PROGRAM*       14/31     14/34 L
        PPA150        304   PROGRAM*       14/30     14/39 L
        PPA160        306   PROGRAM*       14/41     14/45 L
        PPA170        311   PROGRAM*       11/36     14/47     14/53 L
        PPA180        317   PROGRAM*       15/03     15/06     15/08 L
        PPA20         224   PROGRAM*       11/45     11/50 L   14/26
        PPA30         230   PROGRAM*       11/53     12/02 L
        PPA40         233   PROGRAM*       12/07     12/10 L
        PPA45         237   PROGRAM*       12/23     12/30 L
        PPA50         246   PROGRAM*       12/45     12/48 L
        PPA60         251   PROGRAM*       12/39     13/04 L
        PPA80         256   PROGRAM*       13/08     13/19 L
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    29
        SYMBOLIC REFERENCE TABLE. 
  
        PPA85         257   PROGRAM*       13/19     13/21 L
        PPA90         261   PROGRAM*       13/05     13/31 L
        PSA           336   PROGRAM*       16/27 L   16/27 E   24/21
        PSAA            0   EXTERNAL*      16/31 S   19/18     19/41 D   23/19
        PSAB            1   EXTERNAL*      17/01 S   18/41     19/42 D
        PSA1          347   PROGRAM*       16/38     16/43     16/46     16/47     16/52 L
        PSA10         361   PROGRAM*       17/17 L   17/28
        PSA15         364   PROGRAM*       17/21     17/27 L
        PSA20         371   PROGRAM*       17/52 L   18/30
        PSA21         374   PROGRAM*       18/05     18/08 L
        PSA23         376   PROGRAM*       18/13 L   18/18
        PSA27         402   PROGRAM*       18/08     18/17     18/27 L
        PSA29         404   PROGRAM*       18/29     18/32 L
        PSA30         405   PROGRAM*       17/37     18/40 L
        PSA33         414   PROGRAM*       18/51     18/54     18/55     19/01 L
        PSA40         421   PROGRAM*       18/25     19/18 L
        PSA5          356   PROGRAM*       17/03     17/08 L
        PSA50         425   PROGRAM*       17/02     19/20     19/38 L
        PSF            73   PROGRAM*        6/14 L    6/14 E
        PSFA          103   PROGRAM*        6/18 S    6/23      6/28 L
        SAL           427   PROGRAM*       16/52     20/18 L
        SALA            2   EXTERNAL*      23/25 S   23/27     24/05 D
        SAL21         437   PROGRAM*       20/20     20/37 L
        SAL23         435   PROGRAM*       20/23     20/32 L
        SAL30         445   PROGRAM*       20/28     20/54 L   23/52
        SAL32         454   PROGRAM*       21/05     21/13 L
        SAL34         456   PROGRAM*       21/02     21/19 L
        SAL36         466   PROGRAM*       21/21     21/46 L
        SAL38         471   PROGRAM*       21/32     21/50 L
        SAL38A        477   PROGRAM*       22/03     22/06 L
        SAL38B        501   PROGRAM*       22/09     22/16 L
        SAL39         503   PROGRAM*       21/52     21/55     22/21 L
        SAL40         505   PROGRAM*       21/23     22/29 L
        SAL42         512   PROGRAM*       22/32     22/36 L
        SAL44         513   PROGRAM*       22/41 L
        SAL47         527   PROGRAM*       23/06     23/08     23/19 L
        SAL50         537   PROGRAM*       21/35     22/34     22/47     23/23     23/30     23/40 L
        SAL52         543   PROGRAM*       21/10     21/15     23/45     23/48 L
        SAL58         547   PROGRAM*       20/30     23/56 L
        SB=CONT         0   EXTERNAL*       2/31 X    5/48
        SCR             0   EXTERNAL*       2/45 X    5/34     15/27     19/41     24/05
                                            5/06 S    5/39     15/28     19/42
        SCS             0   EXTERNAL*       2/16 X   22/46
        SCSA            0   EXTERNAL*       2/16 X   22/43 S
        SCT             0   EXTERNAL*       2/17 X   22/31
        SFN             0   EXTERNAL*       2/55 X    9/06
        SSY             0   EXTERNAL*       2/17 X    9/40     12/12     12/50     21/19
        STAGE           0   EXTERNAL*       2/17 X   10/15 S   21/57
        STY             0   EXTERNAL*       2/17 X    3/54     21/46
        SUBA          121   PROGRAM*        7/02      7/07 L
        SVALUE.        24   PROGRAM*        4/05 L
        S=AEXIT         0   EXTERNAL*       2/46 X    7/07
        S=CP            0   EXTERNAL*       2/46 X   25/22
        S=CPL           0   EXTERNAL*       2/46 X   25/13 S
        S=ENTRY         0   EXTERNAL*       2/46 X   10/05 S   10/07     16/29     23/20     24/20
        S=EXIT          0   EXTERNAL*       2/46 X   24/32
        S=FILES         0   EXTERNAL*       2/46 X   15/25
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    30
        SYMBOLIC REFERENCE TABLE. 
  
        S=GPL           0   EXTERNAL*       2/46 X   25/23
        S=INIT          0   EXTERNAL*       2/46 X   15/11 S
        S=SLI           0   EXTERNAL*       2/47 X   25/03 S
        S=SPA           0   EXTERNAL*       2/47 X   24/57 S
        S=SUB           0   EXTERNAL*       2/47 X   25/18
        S=SUBI          0   EXTERNAL*       2/47 X   25/19
        S=SUB0I         0   EXTERNAL*       2/47 X   25/20
        S=UPW           0   EXTERNAL*       2/47 X   15/26
        S=VALUE         0   EXTERNAL*       2/47 X   16/48
        S.Q5PMD       327   PROGRAM*       15/02     15/21 L
        TB=TYPE         0   EXTERNAL*       2/31 X    6/24     20/37
        TB.TOCL        52   FTX            20/55
        TEST            0   FTX             9/41 F   16/33 F   19/31 F
        TLV             0   EXTERNAL*       2/17 X    8/55     12/08     12/46     23/46
        TL.PNAM         0   EXTERNAL*       2/27 X    9/25 S
        TL.PTYP         0   EXTERNAL*       2/28 X    8/43 S    9/08
        TP.BIASP       24   FTX             5/45      5/46     14/14
        TP.ORDP        54   FTX            10/09     10/11
        TSAA          561   PROGRAM*       24/27     24/32 L
        TSB           552   PROGRAM*        4/02      7/01     24/19 L
        TSX             0   EXTERNAL*       2/17 X   15/08     24/55     25/01     25/10
        TSY             0   EXTERNAL*       2/17 X   15/13     24/29     24/51     25/09
                                            7/04     15/18     24/48     24/54     25/15
        T=ARG           0   EXTERNAL*       2/48 X   16/54     18/45     19/38     19/38 S
        T=ENTP          0   EXTERNAL*       2/48 X   17/35
        T=VDI           0   EXTERNAL*       2/49 X   23/29
        T.ARG           0   EXTERNAL*       2/48 X   16/50     17/08     18/42     19/10     22/31
        T.ENT           0   EXTERNAL*       2/48 X   10/06
        T.ENTP          0   EXTERNAL*       2/48 X   17/36     18/22     19/07
        T.FPI           0   EXTERNAL*       2/48 X   22/46     23/09
        T.LCC           0   EXTERNAL*       2/48 X    5/36      5/36
        T.SYM           0   EXTERNAL*       2/48 X   14/08     14/08     19/19     21/48     22/49
        T.VDI           0   EXTERNAL*       2/49 X   23/28
        VD.INDL        22   FTX            23/33     23/34
        VD.INDP        44   FTX            23/34
        V=FILE          0   EXTERNAL*       2/52 X   14/15
        V=HDR           0   EXTERNAL*       2/52 X   10/10
        V=LCC           0   EXTERNAL*       2/52 X    5/47
        V=PLIM          0   EXTERNAL*       2/52 X   14/55
        V=SEX           0   EXTERNAL*       2/52 X    3/23     14/56     24/25
        WANFP           0   EXTERNAL*       2/17 X
        WA.NFPP        21   FTX            21/29
        WA.SYML        52   FTX             9/04      9/34
        WA.W            0   FTX            21/27
        WB.ALL          1   FTX            21/56
        WB.ALP         24   FTX            21/56
        WB.ARYL         1   FTX            24/47     24/50     24/53     25/08     25/14
        WB.ARYP        12   FTX            23/07     24/47     24/50     24/53     25/08     25/14
        WB.CGSL         1   FTX             7/03     15/12     24/28     24/50     25/08
                                           14/03     15/17     24/47     24/53     25/14
        WB.CGSP         4   FTX             7/03     15/12     24/28     24/50     25/08
                                           14/03     15/17     24/47     24/53     25/14
        WB.COML         1   FTX            21/24
        WB.COMP        17   FTX            21/24
        WB.DEFL         1   FTX             9/44     15/12     24/47     24/53     25/14
                                            9/51     15/17     24/50     25/08
1       HEADER - PROGRAM UNIT HEADER STATEMENTS.                      COMPASS 3.7-871.     24/05/02. 13.15.54.      PAGE    31
        SYMBOLIC REFERENCE TABLE. 
  
        WB.DEFP         7   FTX             9/44     15/12     24/47     24/53     25/14
                                            9/51     15/17     24/50     25/08
        WB.ENTL         1   FTX             9/44      9/51     21/24
        WB.ENTP        15   FTX             9/44      9/51     21/24
        WB.EQUP        66   FTX            14/05
        WB.EQVL         1   FTX            21/24
        WB.EQVP        11   FTX            21/24
        WB.EXTL         1   FTX            21/53
        WB.EXTP        16   FTX            21/53
        WB.FPL          1   FTX            21/22     21/56     22/04
        WB.FPNOP       41   FTX            22/56
        WB.FPP         20   FTX            21/22     21/25     21/56     22/04
        WB.LCMP        21   FTX            22/14
        WB.LEVL         1   FTX            21/53     21/56     22/04
        WB.LEVP        33   FTX            21/53     21/56     22/04
        WB.MATL         1   FTX             9/44      9/51     15/12     15/17
        WB.MATP        36   FTX             9/44      9/51     15/12     15/17
        WB.MODEP        0   FTX             9/48
        WB.NLSTL        1   FTX            21/24
        WB.NLSTP       34   FTX            21/24
        WB.NVARL        1   FTX             9/44      9/51     14/03
        WB.NVARP        6   FTX             9/44      9/51     14/03
        WB.PARML        1   FTX            21/24
        WB.PARMP       10   FTX            21/24
        WB.PNTP        57   FTX            19/27
        WB.SAVEL        1   FTX            21/24
        WB.SAVEP       35   FTX            21/24
        WB.SFAP        40   FTX            22/21
        WB.TYPL         1   FTX             9/51
        WB.TYPP        31   FTX             9/51
        WB.VARL         1   FTX             7/03     15/17     24/47     24/53     25/14
                                           15/12     24/28     24/50     25/08
        WB.VARP         5   FTX             7/03     15/17     24/47     24/53     25/14
                                           15/12     24/28     24/50     25/08
        WB.VDSP        32   FTX            23/01     23/05     23/07
        WB.W            1   FTX            19/23     21/27     22/52
        WC.MRLP        36   FTX            13/46
        WSA           562   PROGRAM*       24/45 L   24/45 E
        WSAA          603   PROGRAM*       24/46     25/18 L
        WSA40         602   PROGRAM*       25/07     25/16 L
        XR.TAGP        52   FTX            10/11     23/41
        Z=SYM           3   FTX            19/25     22/54
        .A              0                   3/23 D    5/47 D   10/10 D   14/15 D   14/55 D   14/56 D   24/25 D
                                            3/23      5/47     10/10     14/15     14/55     14/56     24/25
        .DAL            1   FTX            22/07     22/08
        .FIX            0                  21/34 D
        .MI             0   FTX            22/10 F
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1347              IDENT  KEY
                       1347                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1337 
                                        LITERALS* LOCAL        1337        10 
  
  
                                        ENTRY POINTS. 
  
                                        B=KEY            0+           KW=NAME        265+           IFREL2         563+ 
                                        KW=ASSI          0+           KW=PAUS        354+           IFLN           564+ 
                                        KW=CALL         57+           KW=RETU        356+           KW=ELSE        573+ 
                                        CRL            142+           KW=STOP        413+           KW=ENDI        625+ 
                                        KW=CONT        157+           KW=GOTO        417+           IFS            677+ 
                                        KW=END         166+           INIF           556+           IFS11          711+ 
                                        END23          167+           IFMOD          560+           IFFLAG        1064+ 
                                        KW=ENTR        207+           IFRESLT        561+           C=PJX         1243+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       OCT       E.CT1     E.IF01    E.SPR2    CURST     S=EXIT    V=BSS 
                                        ALC       OIL       E.EN      E.IF02    E.SPR4    C=CERR    S=TRACE   V=CGOTO 
                                        ARGCOMA   REFLIN    E.EN1     E.IF03    E.SPR5    CF=AC     S=VALUE   V=ENTR
                                        ARGMODE   REFNUM    E.EN2     E.IF04    FILL.     EAL       T=ARG     V=GOTO
                                        ASK       REFVAR    E.EN3     E.IF05    FILL.3    ECC       T=BLST    V=IFF 
                                        ASL       RTNCNT    E.EN4     E.IF06    MOD.DPC   EMT       T=NLST    V=IFT 
                                        ASSTAG    SCT       E.EN5     E.IF07    E.NL5     GAPOP     T=PAR     V=I111
                                        CALLTAG   SSY       E.EN6     E.IF09    PSA       IFARM     T.ARG     V=JGOTO 
                                        CCT       STAGE     E.EN7     E.IF10    WSA       NOOPP     T.ASG     V=NOOP
                                        CSB       STY       E.EN8     E.IF11    IDP=      OPDUM     T.BLST    V=PAUS
                                        CSLTAG    TLV       E.FM      E.IF12    ALU       PAR       T.DIM     V=RET 
                                        CT1       TRV       E.GO      E.IF13    FBS       PJXARM    T.ENT     V=RGOTO 
                                        CUS.RET   TSX       E.GO1     E.IF14    ISL       POP.STD   T.NLST    V=RTNK
                                        DTI       WANFP     E.GO2     E.IF15    PDA       VEL       T.PAR     V=STOP
                                        ERT       E.ANS     E.GO3     E.MDO     PSL       ANSI=     T.SYM     V=SUBR
                                        ESTACK    E.ANS3    E.GO4     E.ME1     RBE       PDM       WO.LOA    MVE=
                                        ESY       E.AS1     E.GO5     E.MR2     STL0R     CONZER    WO.LOR    ZTB 
                                        FEC=STF   E.AS2     E.GO6     E.MR3     CST       CONZERI   T.CON     CO.DBID 
                                        FEC.RIF   E.AS3     E.GO7     E.NL      SB=CONT   LJS       T.SLARG   E.IF08
                                        FEC.RTF   E.AS4     E.GO8     E.NL1     TB=LABL   MOD       T=SLARG   E.CL4 
                                        FEC.RTN   E.AS5     E.GO9     E.NL2     TB=LABR   NOLIST    F.IFN 
                                        FLOW      E.CL1     E.AS7     E.NL3     TB=TYPE   N.ARP     F.IFS 
                                        HANGER    E.CL2     CLASS     E.NL4     TB=1ST    N.FP      OM=IF 
                                        IFLEVEL   E.CL3     FILL.2    E.OV3     CALLARM   N.GL      V=AGOTO 
                                        NOPATH    E.CT      E.IF00    E.SPR1    CMR       S=ENTRY   V=ASSGN 
  
  
  
  
                                                  IDENT  KEY                                                     KEY         2
                                         KEY      SECT   (KEYWORD STATEMENT TRANSLATION.)                        KEY         3
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     2
  
  
  
  
  
  
  
                                        *         IN ALLOC                                                       KEY         5
                                                  EXT    ADW,ALC                                                 KEY         6
                                                                                                                 KEY         7
                                        *         IN FEC                                                         KEY         8
                                                  EXT    ARGCOMA,ARGMODE,ASK,ASL,ASSTAG,CALLTAG,CCT,CSB,CSLTAG   KEY         9
                                                  EXT    CT1,CUS.RET,DTI,ERT,ESTACK,ESY,FEC=STF,FEC.RIF,FEC.RTF  KEY        10
                                                  EXT    FEC.RTN,FLOW,HANGER,IFLEVEL,NOPATH,OCT,OIL,REFLIN       FC50265     7
                                                  EXT    REFNUM,REFVAR,RTNCNT,SCT,SSY,STAGE,STY,TLV,TRV,TSX      KEY        12
                                                  EXT    WANFP                                                   FC5A192    49
                                                                                                                 KEY        13
                                                                                                                 KEY        14
                                        *         IN FERRS                                                       KEY        15
                                                  EXT    E.ANS,E.ANS3,E.AS1,E.AS2,E.AS3,E.AS4,E.AS5,E.CL1,E.CL2  KEY        16
                                                  EXT    E.CL3,E.CT,E.CT1,E.EN,E.EN1,E.EN2,E.EN3,E.EN4,E.EN5     KEY        17
                                                  EXT    E.EN6,E.EN7,E.EN8,E.FM,E.GO,E.GO1,E.GO2,E.GO3,E.GO4     KEY        18
                                                  EXT    E.GO5,E.GO6,E.GO7,E.GO8,E.GO9,E.AS7,CLASS,FILL.2        FC5A184    38
                                                  EXT    E.IF00,E.IF01,E.IF02,E.IF03,E.IF04,E.IF05,E.IF06,E.IF07 KEY        20
                                                  EXT    E.IF09,E.IF10,E.IF11,E.IF12,E.IF13,E.IF14,E.IF15,E.MDO  KEY        21
                                                  EXT    E.ME1,E.MR2,E.MR3,E.NL,E.NL1,E.NL2,E.NL3,E.NL4,E.OV3    KEY        22
                                                  EXT    E.SPR1,E.SPR2,E.SPR4,E.SPR5,FILL.,FILL.3,MOD.DPC        FC5A126    32
                                                  EXT    E.NL5                                                   FC51193    12
                                                                                                                 FC51193    13
                                        *         IN HEADER                                                      KEY        26
                                                  EXT    PSA,WSA                                                 KEY        27
                                                                                                                 KEY        28
                                        *         IN IDP                                                         KEY        29
                                                  EXT    IDP=                                                    KEY        30
                                                                                                                 KEY        31
                                        *         IN LABEL                                                       KEY        32
                                                  EXT    ALU,FBS,ISL,PDA,PSL,RBE,STL0R                           FC5A341     6
                                                                                                                 KEY        34
                                        *         IN LEX                                                         KEY        35
                                                  EXT    CST,SB=CONT,TB=LABL,TB=LABR,TB=TYPE,TB=1ST              FC5A341     7
                                                                                                                 KEY        37
                                        *         IN PAR                                                         KEY        38
                                                  EXT    CALLARM,CMR,CURST,C=CERR,CF=AC,EAL,ECC,EMT,GAPOP,IFARM  KEY        39
                                                  EXT    NOOPP,OPDUM,PAR,PJXARM,POP.STD,VEL                      KEY        40
                                                                                                                 KEY        41
                                        *         IN PEM                                                         KEY        42
                                                  EXT    ANSI=,PDM                                               KEY        43
                                                                                                                 KEY        44
                                        *         IN PUC                                                         KEY        45
                                                  EXT    CONZER,CONZERI,LJS,MOD,NOLIST,N.ARP,N.FP,N.GL,S=ENTRY   FC50451     6
                                                  EXT    S=EXIT,S=TRACE,S=VALUE,T=ARG,T=BLST,T=NLST,T=PAR        KEY        47
                                                  EXT    T.ARG,T.ASG,T.BLST,T.DIM,T.ENT,T.NLST,T.PAR             KEY        48
                                                  EXT    T.SYM,WO.LOA,WO.LOR,T.CON,T.SLARG,T=SLARG               KEY        49
                                                                                                                 KEY        50
                                        *         IN QSKEL/FSKEL                                                 FC50483     6
                                                  EXT    F.IFN,F.IFS,OM=IF,V=AGOTO,V=ASSGN,V=BSS,V=CGOTO,V=ENTR  KEY        52
                                                  EXT    V=GOTO,V=IFF,V=IFT,V=I111,V=JGOTO,V=NOOP,V=PAUS,V=RET   KEY        53
                                                  EXT    V=RGOTO,V=RTNK,V=STOP,V=SUBR                            KEY        54
                                                                                                                 KEY        55
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     3
                                                                      KEY 
  
                                        *         IN UTILITY                                                     KEY        56
                                                  EXT    MVE=,ZTB                                                KEY        57
  
  
  
  
                                        **        AGN -  PROCESS "ASSIGN" STATEMENT.                             KEY        59
                                                                                                                 KEY        60
                                                                                                                 KEY        61
             0                                    HEREIF ASSIGN                                                  KEY        62
             0  56440                             SA4    B4                                                      KEY        63
                     6274777772                   SB7    X4-O.CONS                                               KEY        64
             1  0570000000 X                      NZ     B7,E.AS4    IF NO LABEL                                 KEY        65
                                                                                                                 KEY        66
                          0100000000 X            CALL   ASL         ADJUST STATEMENT LABEL                      KEY        67
             2  7160000023                        =X6    CR.STR                                                  KEY        68
                          76710                   =X7    CR.AGN                                                  KEY        69
                               76200              =X2    0           NO REFERENCE BITS FOR ASSIGNED LABEL        KEY        70
             3  5160000000 X                      SA6    REFVAR                                                  KEY        71
                          10611                   BX6    X1                                                      KEY        72
             4  5170000000 X                      SA7    REFNUM                                                  KEY        73
                          0100000000 X            CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY        74
             5  0336000000 X                      MI     X6,PSL      IF ERROR IN STATEMENT LABEL                 KEY        75
                          5110000000 X            SA1    T.SYM                                                   KEY        76
             6  43254                             MX2    -TP.ORDL                                                KEY        77
                     20620                        LX6    -TP.ORDP                                                KEY        78
                          15262                   BX2    -X2*X6      EXTRACT SYMORD                              KEY        79
                               63720              SB7    X2                                                      KEY        80
             7  20201                             LX2    1                                                       KEY        81
                     63727                        SB7    X2+B7       CONVERT TO INDEX                            KEY        82
                          66771                   =B7    B7+WB.W                                                 KEY        83
                               53117              SA1    X1+B7       X1 = *WB* OF LABEL                          KEY        84
            10  7120004000                        CLAS=  X2,WB,(ACT)                                             KEY        85
                          12721                   BX7    X2+X1       INDICATE LABEL IS ACTIVE                    KEY        86
                               54710              SA7    A1          UPDATE *WB*                                 KEY        87
            11  20654                             LX6    TP.ORDP     RESTORE X6                                  KEY        88
                     56140                        SA1    B4                                                      KEY        89
                          7120004000              CLAS=  X2,TP,(ADDR)                                            KEY        90
            12  12662                             BX6    X6+X2       MERGE IN TP.ADDR BIT                        KEY        91
                     5160000000 X                 SA6    ASSTAG      SAVE LABEL TAG                              KEY        92
            13  6271777735                        SB7    X1-O.COMMA                                              KEY        93
                          0570000016 +            NZ     B7,AGN2     IF NO COMMA                                 KEY        94
            14  66441                             =B4    B4+1                                                    KEY        95
                     6170000000 X                 WARN   E.AS5                                                   KEY        96
                                                                                                                 KEY        97
            16  5150001337 +             AGN2     SA5    =0LTO                                                   KEY        98
                          56140                   SA1    B4                                                      KEY        99
                               43014              MX0    2*CHAR                                                  KEY       100
            17  11601                             BX6    X0*X1                                                   KEY       101
                     11305                        BX3    X0*X5                                                   KEY       102
                          37336                   IX3    X3-X6                                                   KEY       103
            20  0303000022 +                      ZR     X3,AGN4     IF *TO*                                     KEY       104
                          5160000000 X            SA6    FILL.                                                   KEY       105
            21  6170000000 X                      WARN   E.AS2                                                   KEY       106
                                                                                                                 KEY       107
            22  7150001341 +             AGN4     SX5    1+=0                                                    KEY       108
                          7130000013              SX3    2*CHAR-1                                                KEY       109
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     4
                                                                      AGN 
  
            23  20322                             LX3    KW.LENP                                                 KEY       110
                     12535                        BX5    X3+X5       PSEUDO *SATTR* FOR ASK                      KEY       111
                          0100000000 X            CALL   ASK         ADJUST STATEMENT KEYWORD *TO*               KEY       112
            24  6120000000                        SB2    0           ENTRY NOT ALLOWED                           KEY       113
                          0100000000 X            CALL   TRV         TRANSLATE THE VARIABLE                      KEY       114
            25  0330000000 X                      MI     X0,PSL      IF TRV DETECTED ERROR                       KEY       115
                          43401                   CLAS=  X4,WB,(SFA)                                             FC50326    11
            26  5130001341 +                      CLAS=  X3,WB,(VAR,DEF,AGN)                                     FC5A184    39
                          12732                   BX7    X3+X2                                                   KEY       117
                               15774              BX7    -X4*X7      CLEAR WB.SFA (IF PRESENT)                   FC50326    12
            27  54720                             SA7    A2          UPDATE SYMTAB (WB) AS *DEFINED*             KEY       118
                     56341                        =A3    B4+1                                                    KEY       119
                          43771                   MX7    -WB.MODEL                                               KEY       120
                               10566              BX5    X6          REMEMBER (X5) = PASS 1 TAG-FORM             KEY       121
                                                  LX2    -WB.MODEP                                               KEY       122
            30  15127                             BX1    -X7*X2      EXTRACT (X1) = MODE OF SYMBOL               KEY       123
                     66570                        SB5    B7          SAVE *WB* INDEX FOR LATER EQUIVALENCE TEST  KEY       124
                          66441                   =B4    B4+1        BUMP B4 FOR POSSIBLE ERROR MESSAGE          KEY       125
            31  6271777775                        SB7    X1-M.INT                                                KEY       126
                          0470000033 +            ZR     B7,AGN5     IF INTEGER VARIABLE                         KEY       127
            32  6170000000 X                      WARN   E.AS3                                                   KEY       128
                                                                                                                 KEY       129
            33  0303000035 +             AGN5     ZR     X3,AGN6     IF NEXT ELEMENT *EOS*                       FC5A184    40
                                   0              ERRNZ  O.EOS                                                   KEY       131
                          6170000000 X            WARN   E.AS1                                                   KEY       132
                                                                                                                 KEY       133
            35  20261                    AGN6     LX2    WB.MODEP-WB.ARYP-1                                      FC5A184    41
                     0322000042 +                 PL     X2,AGN7     IF NOT AN ARRAY                             FC5A184    42
            36  5140000012 X                      SA4    CLASS+WB.ARYP                                           FC5A184    43
                          10744                   BX7    X4                                                      FC5A184    44
            37  5170000000 X                      SA7    FILL.2                                                  FC5A184    45
                          57441                   =A4    B4-1        X4 = VAR TOKEN                              FC5A184    46
                               43752              MX7    WA.SYML                                                 FC5A184    47
            40  11774                             BX7    X7*X4       X7 = 0LSYMBOL                               FC5A184    48
                     5170000000 X                 SA7    FILL.                                                   FC5A184    49
            41  6170000000 X                      FATAL  E.AS7       ** CONFLICT - VAR PREVIOUSLY USED AS ARRAY  FC5A184    50
                                                                                                                 FC5A184    51
            42  5140000000 X             AGN7     SA4    ASSTAG      (P1) = STATEMENT LABEL                      KEY       134
                                        *         =X5    X5          (P2) = VARIABLE                             KEY       135
                          6130020000 X            EMIT   V=ASSGN,2ND                                             KEY       136
                                                                                                                 KEY       137
                                        *                (B5) = *WB* INDEX OF VARIABLE                           KEY       138
                                                                                                                 KEY       139
            44  5110000000 X                      SA1    T.SYM                                                   KEY       140
                          53215                   SA2    X1+B5       FETCH *WB* ENTRY                            KEY       141
                               20262              SBIT   X2,WB.EQVP                                              KEY       142
            45  0322000051 +                      PL     X2,AGN8     IF NOT EQUIVALENCED                         KEY       143
                          54121                   =A1    A2-WB.W+WC.W                                            KEY       144
                               20212              LX2    WB.EQVL+WB.EQVP                                         KEY       145
            46  43014                             MX0    WB.BASEL                                                KEY       146
                     20217                        HX2    WB.BASE                                                 KEY       147
                          11202                   BX2    X0*X2       ISOLATE BASE MEMBER ORDINAL                 KEY       148
                               20214              LX2    WB.BASEL                                                KEY       149
            47  20144                             HX1    WC.RA                                                   KEY       150
                     21144                        AX1    -WC.RAL     ISOLATE RELATIVE ADDRESS (BIAS)             KEY       151
                          20254                   LX2    AG.ORDP                                                 KEY       152
                               20124              LX1    AG.BIASP                                                KEY       153
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     5
                                                                      AGN 
  
            50  12112                             BX1    X1+X2                                                   KEY       154
                     0400000052 +                 EQ     AGN9                                                    KEY       155
                                                                                                                 KEY       156
            51  43050                    AGN8     MX0    TP.ORBIL                                                KEY       157
                                                  HX5    TP.ORBI                                                 KEY       158
                     11105                        BX1    X0*X5       ISOLATE (X1) = ORBI OF VARIABLE             KEY       159
                                                  LX1    -TP.ORBIP+AG.ORBIP                                      KEY       160
                                         AGN9     HX4    TP.ORD                                                  KEY       161
            52  21454                             AX4    -TP.ORDL    ISOLATE (X4) = SYMORD OF LABEL              KEY       162
                                                  LX4    AG.LABP                                                 KEY       163
                     12614                        BX6    X1+X4       T.ASG ENTRY                                 KEY       164
                          5110000000 X            SCAN   T.ASG,SCT                                               KEY       165
            54  0670000000 X                      PL     B7,PSL      IF ALREADY IN TABLE                         KEY       166
                          5110000000 X            ADDWD  T.ASG                                                   KEY       167
            56  0400000000 X                      EQ     PSL         EXIT...                                     KEY       168
  
  
  
  
                                        **        BRK - PROCESS *BREAK* STMT.                                    KEY       170
                                                                                                                 KEY       171
                                                                                                                 KEY       172
                                         .T       IFEQ   TEST,ON                                                 KEY       173
                                                  HEREIF BREAK                                                   KEY       174
                                                                                                                 KEY       175
                                         FTNBREAK BREAK                                                          KEY       176
                                                  EQ     FEC.RTN                                                 KEY       177
                                         .T       ENDIF                                                          KEY       178
  
  
  
  
                                        **        CLL -  PROCESS "CALL" STATEMENT.                               KEY       180
                                                                                                                 KEY       181
                                                                                                                 KEY       182
            57                                    HEREIF CALL                                                    KEY       183
                                                                                                                 KEY       184
            57  76600                             SHRINK T=SLARG,0                                               KEY       185
                               76600              SHRINK T=ARG,0                                                 KEY       186
                          7170000055              SX7    CR.SUB                                                  KEY       187
            61  5170000000 X                      SA7    REFVAR      INITIALIZE REFERENCE TYPE                   KEY       188
                          56140                   SA1    B4          LOAD SUBROUTINE NAME                        KEY       189
                               43052              MX0    TB.TOCL                                                 KEY       190
            62  6271777766                        SB7    X1-O.VAR                                                KEY       191
                                   0              ERRNZ  18-TB.TOTL                                              KEY       192
                                                  HX1    TB.TOC                                                  KEY       193
                          11601                   BX6    X0*X1                                                   KEY       194
            63  5160000000 X                      SA6    FILL.                                                   KEY       195
                          5160000140 +            SA6    CALLSYM                                                 KEY       196
            64  0570000000 X                      NZ     B7,E.CL2    IF SUBROUTINE NAME MISSING                  KEY       197
                          0100000000 X            CALL   SSY         SCAN SYMBOL TABLE                           KEY       198
            65  0770000076 +                      MI     B7,CLL24    IF NAME NOT PREVIOUSLY ENCOUNTERED          KEY       199
                          5130001342 +            CLAS=  X3,WB,(VAR,ENT,INTF,GENF,PARM,NLST)                     FC50207     5
            66  7110000013                        SX1    WB.SUBP                                                 KEY       201
                          0100000000 X            CALL   CCT         CHECK FOR CONFLICTING TYPE                  KEY       202
            67  0330000000 X                      MI     X0,PSL      IF CLASS CONFLICT                           KEY       203
                          7130044100              CLAS=  X3,WB,(NVAR,EXT,SUB)                                    KEY       204
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     6
                                                                      CLL 
  
            70  20257                             SBIT   X2,WB.FUNP                                              KEY       205
                     0322000072 +                 PL     X2,CLL22    IF NOT A FUNCTION                           KEY       206
                               43300              MX3    0                                                       KEY       207
            71  6170000000 X                      WARN   E.CL3       FUNCTION USED AS SUBROUTINE                 KEY       208
                                                                                                                 KEY       209
            72  20257                    CLL22    SBIT   X2,WB.TYPP/WB.FUNP                                      FC5A338    14
                     0322000074 +                 PL     X2,CLL23    IF NOT TYPED                                FC5A338    15
            73  6170000000 X                      WARN   E.CL4       **SUBROUTINE APPEARED IN TYPE DECLARATION   FC5A338    16
                                                                                                                 FC5A338    17
            74  20232                    CLL23    LX2    1+WB.TYPP   RESTORE (X2) = SYMTAB (WB.) ENTRY           FC5A338    18
                     12732                        BX7    X3+X2                                                   KEY       211
                          5072000000              SA7    A2+         UPDATE SYMBOL ATTRIBUTES                    KEY       212
            75  0400000100 +                      EQ     CLL30                                                   KEY       213
                                                                                                                 KEY       214
            76  7130044100               CLL24    CLAS=  X3,WB,(NVAR,EXT,SUB)                                    KEY       215
                          10733                   BX7    X3                                                      KEY       216
                               43200              MX2    0           *WC*                                        KEY       217
            77  0100000000 X                      ADSYM  A1          ENTER ROUTINE NAME IN SYMTAB                KEY       218
                                                                                                                 KEY       219
                                        **        ROUTINE TO CALL IS NOW IN THE SYMTAB.                          KEY       220
                                        *                (X0) = SYMORD.                                          KEY       221
                                                                                                                 KEY       222
           100  10500                    CLL30    BX5    X0                                                      KEY       223
                     20052                        LX0    XR.TAGP                                                 KEY       224
                          10600                   ADDREF X0,CR.SUB                                               KEY       225
           103  10055                             BX0    X5                                                      KEY       226
                     0100000000 X                 CALL   CT1         CONSTRUCT (TP) FORM OPERAND                 KEY       227
           104  5120000000 X                      SA2    T=BLST                                                  KEY       228
                          0302000106 +            ZR     X2,CLL33    IF NO BLOCK STRUCTURES                      KEY       229
           105  7100040000                        CLAS=  X0,WB,(DLER)  LOOP HAS EXTERNAL REFERENCE               KEY       230
                          0100000000 X            CALL   PDA         PROPOGATE DO LOOP ATTRIBUTES                KEY       231
           106  43700                    CLL33    MX7    0                                                       KEY       232
                     5160000000 X                 SA6    CALLTAG     SAVE OPERAND OF ROUTINE TO CALL             KEY       233
                               56141              =A1    B4+1                                                    KEY       234
           107  6221777766                        SB2    X1-O.VAR                                                KEY       235
                          5170000137 +            SA7    CLLA        INDICATE NO LABEL PARAMETERS                KEY       236
           110  0520000112 +                      NZ     B2,CLL35    IF NOT LONG NAME                            KEY       237
                          0100000000 X            CALL   TLV         TRUNCATE NAME                               KEY       238
           111  56141                             =A1    B4+1                                                    KEY       239
           112  6221777740               CLL35    SB2    X1-O.LP                                                 KEY       240
                          0520000132 +            NZ     B2,CLL60    IF NO LPAREN -- NO PARAMETER LIST           KEY       241
           113  66441                             =B4    B4+1        POINT TO *(*                                KEY       242
                     7160000044                   =X6    O.SLP                                                   KEY       243
                               54610              SA6    A1          SET DUMMY *(* FOR PARSER                    KEY       244
           114  56141                             =A1    B4+1                                                    KEY       245
                     6271777737                   SB7    X1-O.RP                                                 KEY       246
                               54111              =A1    A1+1                                                    KEY       247
           115  0470000132 +                      ZR     B7,CLL60    IF EXPLICIT NULL PARAMETER LIST             KEY       248
                          5110000000 X            SA1    CALLARM                                                 KEY       249
                                         .T       IFEQ   TEST,ON                                                 KEY       250
                                                  SA2    T=ARG                                                   KEY       251
                                                  NZ     X2,"BLOWUP" IF GARBAGE LEFT IN (T.ARG)                  KEY       252
                                         .T       ENDIF                                                          KEY       253
           116  10611                             BX6    X1                                                      KEY       254
                     43700                        MX7    0           ARGCOMA = 0                                 KEY       255
                          5170000000 X            SA7    ARGCOMA                                                 KEY       256
           117  5160000000 X                      SA6    ARGMODE                                                 KEY       257
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     7
                                                                      CLL 
  
                          0100000000 X            CALL   PAR         PARSE / EMIT PARAMETER LIST                 KEY       258
           120  5150000000 X                      SA5    CF=AC       (2OP) = NUMBER OF ARGUMENTS                 KEY       259
                          46000                   NO                                                             KEY       260
                               20524              LX5    TP.BIASP                                                KEY       261
                                                                                                                 KEY       262
                                        *         HERE WHEN ALL ARGUMENTS HAVE BEEN PROCESSED.                   KEY       263
                                        *         EMIT RETURN JUMP TO THE EXTERNAL,                              KEY       264
                                        *         EMIT INDEXED JUMP TO ALTERNATE RETURN LABELS, AND              KEY       265
                                        *         EXIT TO FRONT END CONTROLLER.                                  KEY       266
                                        *                (X5) = NUMBER OF ARGS IN THIS CALL, IN BIAS FIELD.      KEY       267
                                                                                                                 KEY       268
           121  5140000000 X             CLL40    SA4    CALLTAG                                                 KEY       269
                          6130000000 X            EMIT   V=SUBR      (CALLTAG, NARGS)                            KEY       270
           123  5130000137 +                      SA3    CLLA                                                    KEY       271
                          5120000000 X            SA2    CONZERI                                                 KEY       272
           124  0303000130 +                      ZR     X3,CLL48    IF NO LABELS IN PARAMETER LIST              KEY       273
                          54131                   SA1    A3+B1                                                   KEY       274
                               20324              LX3    TP.BIASP                                                KEY       275
           125  20124                             LX1    TP.BIASP                                                KEY       276
                     12532                        BX5    X3+X2       (2OP) = NUMBER OF LABEL ARGS                KEY       277
                          12412                   BX4    X1+X2       (1OP) = NUMBER OF NORMAL ARGS               KEY       278
           126  6130030000 X                      EMIT   V=RGOTO,BOTH                                            KEY       279
           127  5140000141 +                      SA4    CLLC        (3OP) = GL                                  KEY       280
                          0100001172 +            RJ     EGL         EMIT GENERATED LABEL                        FC50265     8
                                                                                                                 KEY       283
           130  5110000000 X             CLL48    SA1    T=PAR                                                   KEY       284
                          7261777776              SX6    X1-1        INHIBIT SQUEEZE ACROSS CALL                 KEY       285
           131  5160000000 X                      SA6    CURST                                                   KEY       286
                          0400000000 X            EQ     PSL         EXIT...                                     KEY       287
                                                                                                                 KEY       288
                                                                                                                 KEY       289
                                        *         HERE IF PARAMETER LIST OMITTED.                                KEY       290
                                                                                                                 KEY       291
           132  0301000134 +             CLL60    ZR     X1,CLL62    IF EOS                                      KEY       292
                          6170000000 X            FATAL  E.CL1       ** MISSING LPAREN AT BEGINNING OF PARM LIST KEY       293
           134  5140000000 X             CLL62    SA4    CALLTAG                                                 KEY       294
                          43700                   MX7    0           ARGCOUNT = 0                                KEY       295
           135  0100000000 X                      CALL   VEL         VALIDATE EXTERNAL LIST                      KEY       296
           136  43500                             MX5    0           (2OP) = ARGCOUNT                            KEY       297
                     0400000121 +                 EQ     CLL40                                                   KEY       298
                                                                                                                 KEY       299
           137                     1     CLLA     BSS    1           NUMBER OF LABEL ARGS                        KEY       300
           140                     1     CLLB     BSS    1           NUMBER OF NORMAL ARGS                       KEY       301
           141                     1     CLLC     BSS    1           GL FOR LABEL RETURN ARGS                    KEY       302
                                 140 +   CALLSYM  EQU    CLLB        NAME OF SUBROUTINE                          KEY       303
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     8
                                                                      CRL 
  
                                        **        CRL - PROCESS CALL STATEMENT ALTERNATE RETURN LABELS.          KEY       305
                                        *                                                                        KEY       306
                                        *         ENTRY  (A2,X2) = NL = (T=ARG)        */ NUMBER OF LABEL ARGS   KEY       307
                                        *                (CF=AC) = NA                  */ TOTAL ARG COUNT        KEY       308
                                        *                (T.ARG) = NORMAL ARGUMENTS.                             KEY       309
                                        *                (T.SLARG) = ALTERNATE RETURN LABELS.                    KEY       310
                                        *                                                                        KEY       311
                                        *         EXIT   (CF=AC) = NA + 1              */ TO ACCOUNT FOR THE GL  KEY       312
                                        *                (CLLA) = NL.                                            KEY       313
                                        *                (CLLB) = NA - NL              */ NUMBER OF NORMAL ARGS  KEY       314
                                        *                (CLLC) = GL OPERAND.                                    KEY       315
                                        *                ALL ARGS ON T.ARG.                                      KEY       316
                                        *                RETURN GL ON T.ARG BETWEEN NORMAL AND LABEL ARGS.       KEY       317
                                        *                                                                        KEY       318
                                        *         USES   A1-4,A6-7   X0-4,X6-7  B2-3,7.                          KEY       319
                                        *         CALLS  MOVE.                                                   KEY       320
                                                                                                                 KEY       321
                                                                                                                 KEY       322
           142  0400400142 +             CRL      SUBR   =           ENTRY/EXIT...                               KEY       323
           143  5130000000 X                      SA3    CF=AC                                                   KEY       324
                          10622                   BX6    X2          (CLLA) = NL                                 KEY       325
                               37732              IX7    X3-X2       (CLLB) = NA - NL                            KEY       326
           144  5140000000 X                      SA4    N.GL                                                    KEY       327
                          5160000137 +            SA6    CLLA                                                    KEY       328
           145  54761                             =A7    A6-CLLA+CLLB                                            KEY       329
                     73731                        SX7    X3+B1       (CF=AC) = NA + 1                            KEY       330
                          54730                   SA7    A3                                                      KEY       331
                               73741              SX7    X4+B1       ADVANCE GL COUNT                            KEY       332
           146  7110040000                        CLAS=  X1,TP,(GL)                                              KEY       333
                          20454                   LX4    TP.ORDP                                                 KEY       334
                               12641              BX6    X4+X1       CONSTRUCT GL FOR RETURN                     KEY       335
           147  54740                             SA7    A4                                                      KEY       336
                     5160000141 +                 SA6    CLLC                                                    KEY       337
           150  5110000000 X                      ADDWD  T.ARG       STACK RETURN GL                             KEY       338
           151  5150000000 X                      SA5    T=SLARG     X5 = NUMBER OF ALTERNATE RETURNS            KEY       339
                          10422                   BX4    X2          SAVE OLD T.ARG LENGTH                       KEY       340
                               10055              ALLOC  A1,X5                                                   KEY       341
           153  36314                             IX3    X1+X4       X3 = DESTINATION OF MOVE                    KEY       342
                     5120000000 X                 SA2    T.SLARG     X2 = SOURCE                                 KEY       343
                               10155              MOVE   X5,X2,X3                                                KEY       344
           155  76600                             SHRINK T=SLARG,0   SET (T.SLARG) EMPTY                         KEY       345
           156  0400000142 +                      EQ     EXIT.                                                   KEY       346
  
  
  
  
                                        **        CON -  PROCESS "CONTINUE" STATEMENT.                           KEY       348
                                        *                                                                        KEY       349
                                        *         EXIT   TO FRONT END CONTROLLER.                                KEY       350
                                                                                                                 KEY       351
                                                                                                                 KEY       352
           157                                    HEREIF CONTINUE                                                KEY       353
                                                                                                                 KEY       354
           157  56240                             =A2    B4                                                      KEY       355
                     5140000000 X                 SA4    TB=LABR                                                 KEY       356
           160  0302000162 +                      ZR     X2,CON2     IF EOS                                      KEY       357
                                   0              ERRNZ  O.EOS                                                   KEY       358
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE     9
                                                                      CON 
  
                          6170000000 X            WARN   E.CT1                                                   KEY       359
           162  5120000556 +             CON2     SA2    INIF                                                    KEY       360
                          0302000165 +            ZR     X2,CON4     IF *CONTINUE* NOT OBJECT OF *IF*            KEY       361
           163  6170000000 X                      TRIV   E.GO5       IF RESULTS IN A TRANSFER TO NEXT LINE       KEY       362
           164  0400000000 X                      EQ     PSL         EXIT...                                     KEY       363
                                                                                                                 KEY       364
           165  0304000000 X             CON4     ZR     X4,E.CT     IF NO STATEMENT LABEL                       KEY       365
                          0400000000 X            EQ     PSL         EXIT...                                     KEY       366
  
  
  
  
                                        **        END - PROCESS *END* STATEMENT.                                 KEY       368
                                        *                                                                        KEY       369
                                        *         EXIT   TO FRONT END CONTROLLER *FEC*.                          KEY       370
                                                                                                                 KEY       371
                                                                                                                 KEY       372
           166                                    HEREIF END                                                     KEY       373
                                                                                                                 KEY       374
           166  5110000000 X                      SA1    SB=CONT                                                 FC5A127    13
                          0311000000 X            NZ     X1,E.OV3    IF *END* NOT ON ONE LINE                    FC5A127    14
                                                                                                                 KEY       377
           167                           END23    BSSENT 0           RETURN FROM ERROR PROCESSOR (MISSING END)   KEY       378
                                                                                                                 KEY       379
                                        *         HEREIF EOS                                                     KEY       380
                                                                                                                 KEY       381
           167  5110000000 X                      SA1    NOLIST                                                  KEY       382
                          5130000000 X            SA3    WO.LOA                                                  KEY       383
           170  5140000000 X                      SA4    WO.LOR                                                  KEY       384
                          0331000172 +            MI     X1,END20    IF IN *LIST,ALL* MODE AT END LINE TIME      KEY       385
                                                                                                                 KEY       386
                                        *         HERE IF IN *LIST,NONE* MODE AT END LINE TIME.                  KEY       387
                                                                                                                 KEY       388
           171  43600                             MX6    0                                                       KEY       389
                     5063000000                   SA6    A3+         SET TO *NO ATTRIBUTES*                      KEY       390
                               54640              SA6    A4          SET TO *NO REFERENCE MAP*                   KEY       391
                                                                                                                 KEY       392
           172  56140                    END20    SA1    B4                                                      KEY       393
                     0301000174 +                 ZR     X1,END26    IF END OF STATEMENT                         KEY       394
                                   0              ERRNZ  O.EOS                                                   KEY       395
           173  6170000000 X                      WARN   E.ME1                                                   KEY       396
                                                                                                                 KEY       397
           174  5150000000 X             END26    SA5    MOD                                                     KEY       398
                          20563                   HX5    MO.BLK                                                  KEY       399
           175  0335000206 +                      MI     X5,END90    IF BLOCKDATA, FINISHED                      KEY       400
                          5140000000 X            SA4    FLOW                                                    KEY       401
           176  20573                             LX5    MO.BLKP-MO.PROP                                         KEY       402
                     0325000201 +                 PL     X5,END60    IF NOT MAIN PROGRAM                         KEY       403
           177  0314000205 +                      NZ     X4,END80    IF NO FLOW INTO END LINE                    KEY       404
                          0100001266 +            RJ     SER         COMPILE END INSTRUCTIONS                    KEY       405
           200  0400000205 +                      EQ     END80                                                   KEY       406
                                                                                                                 KEY       407
           201                           END60    BSS                                                            KEY       408
                                         .T       IFEQ   TEST,ON                                                 KEY       409
                                                  SA1    MOD                                                     KEY       410
                                                  CLAS=  X6,MO,(FUN,SUB)                                         KEY       411
                                                  BX0    X6*X1                                                   KEY       412
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    10
                                                                      END 
  
                                                  ZR     X0,"BLOWUP"  IF NOT PROCEDURE SUBPROGRAM                KEY       413
                                         .T       ENDIF                                                          KEY       414
           201  0314000203 +                      NZ     X4,END74    IF NO FLOW INTO END LINE                    KEY       415
                          43400                   MX4    0                                                       KEY       416
                               13555              BX5    0                                                       KEY       417
           202  6130000000 X                      EMIT   V=RET                                                   KEY       418
                                                                                                                 KEY       419
           203  5110000000 X             END74    SA1    N.FP                                                    KEY       420
                          0301000205 +            ZR     X1,END80    IF NO FORMAL PARAMETERS                     KEY       421
           204  0100000000 X                      CALL   WSA         WRAP-UP SUBPROGRAM ARGUMENTS                KEY       422
                                                                                                                 KEY       423
           205  0100001201 +             END80    RJ     MND         MATERIALIZE NAMELIST DIMENSIONS             KEY       424
           206  0400000000 X             END90    EQ     FEC.RTF     RETURN TO CONTROLLER...                     KEY       425
  
  
  
  
                                        **        ENT -  TRANSLATE "ENTRY" STATEMENT.                            KEY       427
                                        *                                                                        KEY       428
                                        *         EXIT   TO FRONT END CONTROLLER.                                KEY       429
                                                                                                                 KEY       430
                                                                                                                 KEY       431
           207                                    HEREIF ENTRY                                                   KEY       432
                                                                                                                 KEY       433
           207  5120000000 X                      SA2    MOD                                                     KEY       434
                          20262                   SBIT   X2,MO.PROP                                              KEY       435
           210  0332000000 X                      MI     X2,E.EN1    IF IN PROGRAM                               KEY       436
                          13666                   BX6    0                                                       KEY       437
           211  5160000000 X                      SA6    NOPATH      RESET STATEMENT-NO.-REQD .FLAG              KEY       438
                          5110000000 X            SA1    STAGE                                                   KEY       439
           212  7120000000 X                      SX2    FEC=STF                                                 KEY       440
                          37112                   IX1    X1-X2                                                   KEY       441
           213  0331000215 +                      MI     X1,ENT1     IF IN DECLARATIVE PROCESSING                KEY       442
                          5120000000 X            SA2    T=BLST                                                  KEY       443
           214  0312000000 X                      NZ     X2,E.EN2    IF INSIDE A BLOCK STRUCTURE                 KEY       444
                                                                                                                 FC50627     5
           215  5124000000               ENT1     SA2    B4+                                                     KEY       445
                          0302000000 X            ZR     X2,E.EN3    IF *EOS*                                    KEY       446
           216  6272777766                        SB7    X2-O.VAR                                                KEY       447
                          0570000000 X            NZ     B7,E.EN4    IF NOT VARIABLE                             KEY       448
           217  43052                             MX0    TB.TOCL                                                 KEY       449
                     11602                        BX6    X0*X2                                                   KEY       450
                          5160000000 X            SA6    FILL.                                                   KEY       451
           220  5160000264 +                      SA6    ENTA        SAVE FOR T.ENT                              FC50062     4
                          0100000000 X            CALL   SSY         SCAN SYMBOL TABLE                           KEY       453
           221  5130000000 X                      SA3    MOD                                                     KEY       454
                          5150001343 +            CLAS=  X5,WB,(NVAR,DEF,ENT,MAT)                                KEY       455
           222  20360                             HX3    MO.FUN                                                  KEY       456
                     0770000227 +                 MI     B7,ENT20    IF NOT IN SYMTAB                            KEY       457
           223  6170000000 X                      SB7    E.EN5                                                   KEY       458
                          0323000250 +            PL     X3,ENT80    IF NOT COMPILING A FUNCTION                 KEY       459
           224  7140200140                        CLAS=  X4,WB,(NVAR,VAR,FP)                                     KEY       461
                          11442                   BX4    X4*X2                                                   KEY       462
           225  6170000000 X                      SB7    E.EN                                                    KEY       463
                          0314000250 +            NZ     X4,ENT80    IF PRIOR CONFLICTING REFERENCE              KEY       464
           226  12525                             BX5    X2+X5       MERGE ENTRY BITS                            KEY       465
                     0400000234 +                 EQ     ENT40                                                   KEY       466
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    11
                                                                      ENT 
  
                                                                                                                 KEY       467
                                        *         HERE IF NOT IN SYMTAB                                          KEY       468
                                        *                (X3) = (MOD) [MO.FUN EXPOSED]                           FC50627     6
                                                                                                                 KEY       469
           227  0333000231 +             ENT20    MI     X3,ENT21    IF FUNCTION                                 FC50627     7
                          76700                   =X7    0                                                       FC50627     8
                               43200              MX2    0                                                       FC50627     9
           230  0400000233 +                      EQ     ENT22                                                   FC50627    10
                                                                                                                 FC50627    11
           231  0100000000 X             ENT21    CALL   STY         SET IMPLICIT TYPE [FUNCTION ENTRY]          FC50627    12
           232  10711                             BX7    X1          DEFAULT (WB.) = TYPE ONLY                   KEY       472
                                                                                                                 FC50627    13
           233  5110000000 X             ENT22    ADSYM  T.SYM       ENTRY NAME                                  FC50627    14
                                                                                                                 KEY       476
                                        *         NAME IS IN SYMTAB.  CLASS DOES NOT CONFLICT.                   KEY       477
                                        *                (X0) = SYMORD.                                          KEY       478
                                        *                (A2, X2) = CURRENT SYMTAB (WB.).                        KEY       479
                                        *                (X5) = (WB.) ATTRIBUTES FOR ENTRY POINT.                KEY       480
                                                                                                                 KEY       481
           234  5130000000 X             ENT40    SA3    MOD                                                     KEY       482
                          0100001155 +            RJ     CEM         CHECK ENTRY POINT MODE                      KEY       483
           235  0570000250 +                      NZ     B7,ENT80    IF MODE CONFLICT                            KEY       484
                          12652                   BX6    X5+X2                                                   KEY       485
                               54620              SA6    A2          MARK AS ENTRY POINT                         KEY       486
           236  5110000000 X                      SA1    S=VALUE                                                 KEY       488
                          43471                   MX4    -WB.MODEL                                               KEY       489
                                                  LX2    -WB.MODEP                                               KEY       490
                               15224              BX2    -X4*X2      ISOLATE MODE OF THIS ENTRY                  KEY       491
           237  36112                             IX1    X1+X2       X1 = SYMORD OF PROPER VALUE. SYMBOL         KEY       492
                     63310                        SB3    X1                                                      KEY       493
                          20101                   LX1    1                                                       KEY       494
                               63313              SB3    X1+B3       CONVERT TO INDEX                            KEY       495
           240  5110000000 X                      SA1    T.SYM                                                   KEY       496
                          66331                   =B3    B3+WB.W                                                 KEY       497
                               53113              SA1    X1+B3       *WB*                                        KEY       498
           241  7150000400                        LDBIT  X5,WB.MDFP                                              FC5A191    16
                          12615                   BX6    X1+X5                                                   KEY       500
                               54610              SA6    A1          SET *DEFINITION REQUIRED* FLAG              KEY       501
           242  5110000264 +                      SA1    ENTA                                                    FC50062     5
                          12601                   BX6    X0+X1       (T.ENT) ENTRY = NAME AND SYMORD             KEY       503
                               73500              SX5    X0                                                      KEY       504
           243  6157000000                        SB5    B7+         SAVE WB INDEX                               KEY       505
                          5110000000 X            ADDWD  T.ENT                                                   KEY       506
           245  22405                             LX4    X5                                                      KEY       507
                     20454                        LX4    TP.ORDP                                                 KEY       508
                          43500                   MX5    0                                                       KEY       509
           246  6130000000 X                      EMIT   V=ENTR      (ENTRY-POINT-NAME,0)                        KEY       510
           247  20420                             LX4    -TP.ORDP    (X4) = SYMORD OF ENTRY NAME                 KEY       511
                     10644                        BX6    X4                                                      KEY       512
                          0400000253 +            EQ     ENT90                                                   KEY       513
                                                                                                                 KEY       514
                                                                                                                 KEY       515
                                        *         HERE FOR ERRORS.  DO NOT MARK THE NAME AS AN ENTRY.            KEY       516
                                        *                (B7) = DIAGNOSTIC.                                      KEY       517
                                        *                (X0) = SYMORD.                                          KEY       518
                                        *                (A2, X2) = CURRENT SYMTAB ENTRY.                        KEY       519
                                                                                                                 KEY       520
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    12
                                                                      ENT 
  
           250  0100000000 X             ENT80    FATAL  B7                                                      KEY       521
           251  7170000040                        CLAS=  X7,WB,(VAR)                                             KEY       522
                          10600                   BX6    X0          SET SYMORD FOR XREF                         KEY       523
                               12727              BX7    X2+X7                                                   KEY       524
           252  43400                             MX4    0           INDICATE ERROR                              KEY       525
                     54720                        SA7    A2          MARK SYMBOL AS VARIABLE INSTEAD OF ENTRY    KEY       526
                                                                                                                 KEY       527
                                                                                                                 KEY       528
                                        *         HERE TO FINISH ENTRY SEMANTICS, AND ARGLIST.                   KEY       529
                                        *                (X4) .NZ. =  SYMORD OF ENTRY NAME.                      KEY       530
                                        *                     .ZR. IF ERROR.                                     KEY       531
                                        *                (X6) = SYMORD FOR CROSS-REF.                            KEY       532
                                                                                                                 KEY       533
           253  66441                    ENT90    =B4    B4+1                                                    KEY       534
                     20652                        LX6    XR.TAGP                                                 KEY       535
                          43700                   MX7    0                                                       KEY       536
           254  5170000000 X                      SA7    FLOW        INDICATE *FLOW* INTO NEXT STMT              KEY       537
                          5110000000 X            SA1    WANFP                                                   FC5A192    50
           255  54710                             SA7    A1          AVOID SETTING WA.NFP                        FC5A192    51
                     10711                        BX7    X1                                                      FC5A192    52
                          5170000264 +            SA7    ENTA        PRESERVE OLD VALUE OF CELL                  FC5A192    53
           256  7110000004                        ADDREF X6,CR.DEF                                               KEY       538
           260  0100000000 X                      CALL   PSA         PROCESS SUBPROGRAM ARGLIST                  KEY       539
           261  5110000264 +                      SA1    ENTA                                                    FC5A192    54
                          10711                   BX7    X1                                                      FC5A192    55
           262  5170000000 X                      SA7    WANFP       RESTORE OLD VALUE OF CELL                   FC5A192    56
                          0100000000 X            CALL   OIL         ENTRY BREAKS THE SEQUENCE                   FC50265     9
           263  0400000000 X                      EQ     PSL         EXIT..                                      KEY       540
                                                                                                                 FC5A192    57
           264                     1     ENTA     BSS    1                                                       FC5A192    58
  
  
  
  
                                        **        NAM - TRANSLATE "NAMELIST" GROUP SPECIFICATION.                KEY       542
                                        *                                                                        KEY       543
                                        *         TRANSLATES NAMELIST DECLARATIONS INTO (T.NLST), IN A FORM      KEY       544
                                        *         PRESCRIBED BY THE GID.                                         KEY       545
                                        *                                                                        KEY       546
                                        *         EXIT   TO FRONT END CONTROLLER.                                KEY       547
                                        *                                                                        KEY       548
                                        *         NAMELIST [ /<GROUP-NAME>/ <ITEM> [,<ITEM>] ]                   KEY       549
                                        *                                                                        KEY       550
                                        *         [...]  INDICATES MAY BE REPEATED.                              KEY       551
                                        *         <GROUP-NAME> #  THE NAME OF THIS NAME-LIST GROUP.  IT MAY NOT  KEY       552
                                        *                DUPLICATE AN ENTRY ALREADY IN SYMBOL TABLE.             KEY       553
                                        *         <ITEM> #  <SIMPLE-VARIABLE> OR <ARRAY>.                        KEY       554
                                                                                                                 KEY       555
                                                                                                                 KEY       556
           265                                    HEREIF NAMELIST                                                KEY       557
                                                                                                                 KEY       558
           265  6170000000 X                      WARN   E.ANS       NON-ANSI USE - WARNING                      KEY       559
           266  6144000001                        SB4    B4+1        POINT TO GROUP-NAME                         KEY       560
                                                                                                                 KEY       561
                                        **        NAM1 - BEGIN PROCESSING GROUP-NAME.                            KEY       562
                                        *         ENTRY  B4 _ TO GROUP-NAME                                      KEY       563
                                        *         GROUP-NAME WILL BE ENTERED INTO TS.NAM, AND INTO TT.NAM WITH   KEY       564
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    13
                                                                      NAM 
  
                                        *                *NLST* BIT ON AND *ARR* FIELD POINTING TO ORDINAL OF    KEY       565
                                        *                THE FIRST T.FMT ENTRY TO BE MADE FOR THIS GROUP.        KEY       566
                                                                                                                 KEY       567
                                                                                                                 KEY       568
           267  13666                    NAM1     SETMEM NAMB,2      CLEAR WORKING BUFFER                        KEY       569
           270  57141                             SA1    B4-B1       -1  EXPECT SLASH                            KEY       570
                     56240                        SA2    B4          +0  REQUIRE GROUP-NAME                      KEY       571
                          56341                   SA3    B4+B1       +1  EXPECT SLASH                            KEY       572
           271  7241777760                        SX4    X1-O.SLASH                                              KEY       573
                          0314000000 X            NZ     X4,E.NL     IF SYNTAX ERROR                             KEY       574
           272  0302000000 X                      ZR     X2,E.MR2    IF *EOS* - ERROR                            KEY       575
                          43052                   MX0    WA.SYML                                                 KEY       576
                               11602              BX6    X0*X2                                                   KEY       577
           273  6272777766                        =B7    X2-O.VAR                                                KEY       578
                          0570000000 X            NZ     B7,E.NL2    IF NO LETTER                                KEY       579
           274  6273777766                        SB7    X3-O.VAR                                                KEY       580
                          0570000277 +            NZ     B7,NAM1.5   IF NOT LONG NAME                            FC50606     6
           275  0100000000 X                      CALL   TLV         TRUNCATE NAME                               KEY       582
           276  56341                             =A3    B4+1                                                    KEY       583
                                                                                                                 FC5A325     5
           277  7243777760               NAM1.5   SX4    X3-O.SLASH                                              FC50606     7
                          0314000000 X            NZ     X4,E.NL1    IF NO */* AFTER NAME                        KEY       585
           300  0100000000 X                      CALL   SSY         SEARCH FOR SYMBOL                           KEY       586
           301  0670000000 X                      PL     B7,E.NL3    IF ALREADY DEFINED                          KEY       587
                          5130000000 X            SA3    T=NLST                                                  KEY       588
           302  5140001344 +                      CLAS=  X4,WB,(NVAR,NLST,DEF)                                   KEY       589
                          10733                   BX7    X3                                                      KEY       590
                               20357              LX3    WB.PNTP                                                 KEY       591
           303  5170000350 +                      SA7    NAMA        INITIALIZE START INDEX                      KEY       592
                          6144000002              =B4    B4+2        ADVANCE B4 TO FIRST VARIABLE IN LIST        KEY       593
           304  12734                             BX7    X3+X4                                                   KEY       594
                     43200                        MX2    0           *WB*                                        KEY       595
                          0100000000 X            ADSYM  A1                                                      KEY       596
           305  73600                             SX6    X0                                                      KEY       597
                     6170000036                   SB7    NG.GROPP                                                KEY       598
                               13111              BX1    0           CLEAR MEMBER COUNT                          KEY       599
           306  20636                             LX6    NG.GROPP                                                KEY       600
                     27771                        PX7    X1,B7                                                   KEY       601
                          5160000352 +            SA6    NAMB+1      INITIALIZE ACCUMULATOR                      KEY       602
           307  55761                             SA7    A6-B1                                                   KEY       603
                     5110000000 X                 SA1    T=NLST                                                  FC50606     8
                               10611              BX6    X1                                                      FC50606     9
           310  5160000353 +                      SA6    NAMC        T.NLST SAVE FOR ERROR RECOVERY              FC50606    10
                          5110000000 X            SA1    WO.LOR                                                  FC50857     7
           311  0321000314 +                      PL     X1,NAM2     IF NO CROSS REFERENCE SELECTED              FC50857     8
                          73600                   SX6    X0                                                      FC50857     9
           312  7110000004                        SX1    CR.DEF                                                  FC50857    10
                          20652                   LX6    XR.TAGP     CONSTRUCT XREF TAG                          FC50857    11
           313  6170000314 +                      ADDREF X6,X1                                                   FC50857    12
                                                                                                                 KEY       604
                                                                                                                 KEY       605
                                        **        NAM2 - PROCESS EACH ITEM IN THE GROUP.                         KEY       606
                                        *                (B4) _ VARIABLE NAME TOKEN FOR MEMBER                   KEY       607
                                                                                                                 KEY       608
           314  56140                    NAM2     SA1    B4                                                      KEY       609
                     66210                        =B2    1           INDICATE (VALUE.) OK (FOR TRV)              FC50606    11
                          6170000000 X            SB7    E.MR3       ** PREMATURE E.O.S.                         FC50606    12
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    14
                                                                      NAM 
  
           315  0301000346 +                      ZR     X1,NAM.ERR  IF EOS                                      FC50606    13
                          43052                   MX0    WA.SYML                                                 FC51193    14
                               11601              BX6    X0*X1       SYMBOL ONLY                                 FC51193    15
           316  6231777766                        SB3    X1-O.VAR                                                FC51193    16
                          5160000000 X            SA6    FILL.                                                   FC51193    17
           317  6170000000 X                      SB7    E.NL5                                                   FC51193    18
                          0530000346 +            NZ     B3,NAM.ERR  IF NOT VARIABLE                             FC51193    19
           320  0100000000 X                      CALL   TRV         TRANSLATE VARIABLE                          KEY       612
           321  6170000000 X                      SB7    FEC.RTN                                                 FC50606    14
                          0330000346 +            MI     X0,NAM.ERR  IF TRV DETECTED ERROR                       FC50606    15
           322  7140000240                        CLAS=  X4,WB,(DEF,VAR)                                         FC5A325     6
                          12624                   BX6    X2+X4       MERGE IN REQUIRED ATTRIBUTES                FC5A325     7
                               43401              CLAS=  X4,WB,(SFA)                                             FC50326    13
                     15664                        BX6    -X4*X6      CLEAR WB.SFA (IF PRESENT)                   FC50326    14
                          54620                   SA6    A2          UPDATE SYMTAB (WB)                          KEY       616
                               20261              SBIT   X2,WB.ARYP                                              KEY       617
           324  0322000330 +                      PL     X2,NAM3     IF NOT ARRAY                                FC50606    16
                          5120000000 X            SA2    T.DIM                                                   KEY       619
           325  20615                             LX6    -WB.PNTP                                                KEY       620
                     43357                        MX3    -WB.PNTL                                                KEY       621
                          15663                   BX6    -X3*X6      T.DIM INDEX OF ARRAY                        KEY       622
                               63660              SB6    X6                                                      KEY       623
           326  53326                             SA3    X2+B6       DIM HEADER FOR ARRAY                        KEY       624
                     20301                        SBIT   X3,DH.ASP                                               KEY       625
                          6170000000 X            SB7    E.NL4       ** NAMELIST MEMBER CANNOT BE ASSUMED SIZE   FC50606    17
           327  0333000346 +                      MI     X3,NAM.ERR  IF ASSUMED SIZE ARRAY                       FC50606    18
                                                                                                                 KEY       628
                                                                                                                 KEY       629
                                        **        ADD SYMBOL TO GROUP.                                           KEY       630
                                        *                (X0) = SYMORD.                                          KEY       631
                                                                                                                 KEY       632
           330  5150000351 +             NAM3     SA5    NAMB        FETCH (PARCEL INDEX, MEMBER COUNT)          FC50606    19
                          54251                   SA2    A5+B1                                                   KEY       634
                               26175              UX1,B7 X5                                                      KEY       635
           331  6177777760                        SB7    B7-NG.ORDL                                              KEY       636
                          22070                   LX0    B7                                                      KEY       637
                               73511              SX5    X1+B1       COUNT MEMBERS                               KEY       638
           332  12620                             BX6    X2+X0       MERGE NEW SYMBOL                            KEY       639
                     0570000335 +                 NZ     B7,NAM4     IF WORD NOT FULL                            FC50606    20
           333  5110000000 X                      ADDWD  T.NLST      ADD FULL WORD TO GROUP-DEF                  KEY       641
           334  6170000074                        SB7    4*NG.ORDL                                               KEY       642
                          43600                   MX6    0           CLEAR ACCUMULATOR                           KEY       643
                                                                                                                 FC5A325     8
           335  27775                    NAM4     PX7    X5,B7                                                   FC50606    21
                     54651                        SA6    A5+B1                                                   KEY       645
                          54750                   SA7    A5          SAVE (PARCEL INDEX, MEMBER COUNT)           KEY       646
                                                                                                                 KEY       647
                                                                                                                 KEY       648
                                        **        CHECK FOR SEPARATOR                                            FC50606    22
                                        *         IF SEPARATOR IS A COMMA, WE RETURN TO *NAM2*.                  KEY       650
                                        *         IF SEPARATOR IS NOT A COMMA, WE FLUSH THE WORKING BUFFER, AND  KEY       651
                                        *                SET NUMBER OF MEMBERS IN HEADER WORD.                   KEY       652
                                        *         IF *EOS* WE ARE THRU.                                          KEY       653
                                                                                                                 KEY       654
                                                                                                                 KEY       655
                               56541              SA5    B4+B1       FETCH NEXT SEPARATOR                        FC50606    23
           336  64451                             SB4    A5+B1       POINT TO NEXT ITEM                          KEY       657
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    15
                                                                      NAM 
  
                     7225777735                   SX2    X5-O.COMMA                                              KEY       658
           337  0302000314 +                      ZR     X2,NAM2     IF COMMA                                    KEY       659
                          5140000352 +            SA4    NAMB+1                                                  KEY       660
           340  0304000342 +                      ZR     X4,NAM5     IF NO PARTIAL ACCUMULATOR WAITING           KEY       661
                          10644                   BX6    X4                                                      KEY       662
           341  5110000000 X                      ADDWD  T.NLST      APPEND REST OF MEMBERS                      KEY       663
                                                                                                                 FC5A325     9
           342  5130000350 +             NAM5     SA3    NAMA        FETCH INDEX OF GROUP START                  KEY       664
                          54231                   SA2    A3+B1                                                   KEY       665
                               36113              IX1    X1+X3       (X1) _ GROUP HEADER WORD                    KEY       666
           343  73620                             SX6    X2          (X6) = NUMBER OF MEMBERS                    KEY       667
                     53310                        SA3    X1                                                      KEY       668
                          20655                   LX6    NG.NMEMP                                                KEY       669
                               12736              BX7    X3+X6       FILL IN NUMBER OF MEMBERS                   KEY       670
           344  54730                             SA7    A3                                                      KEY       671
                     0315000267 +                 NZ     X5,NAM1    IF NOT EOS, CONTINUE WITH NEXT GROUP         KEY       672
           345  0400000000 X                      EQ     FEC.RTN                                                 KEY       673
                                                                                                                 FC50606    24
                                        **        HERE IF ERROR.  COLLAPSE T.NLST TO PREVIOUS CONDITION.         FC50606    25
                                        *                                                                        FC50606    26
                                        *         (B7) = EXIT ADDRESS                                            FC50606    27
                                                                                                                 FC50606    28
           346  5110000353 +             NAM.ERR  SA1    NAMC        PREVIOUS T=NLST                             FC50606    29
                          10611                   SHRINK T=NLST,X1                                               FC50606    30
                          0277000000              JP     B7          EXIT...                                     FC50606    31
                                                                                                                 KEY       674
           350                     1     NAMA     BSS    1           START INDEX OF CURRENT GROUP                KEY       675
           351                     2     NAMB     BSSZ   2           (PARCEL INDEX, MEMBERS), ACCUMULATOR        KEY       676
           353                     1     NAMC     BSS    1           LENGTH OF T.NLST AT START OF CURRENT GROUP  FC50606    32
  
  
  
  
                                        **        PAT - PROCESS "PATCH" STATEMENT.                               KEY       678
                                        *                (ONLY IN *TEST* MODE)                                   KEY       679
                                        *                                                                        KEY       680
                                        *         STATEMENT CONSISTS OF THE WORD *PATCH*, FOLLOWED BY AN         KEY       681
                                        *         ADDRESS, THEN ANY SEPARATOR, AND THEN THE CONTENTS OF          KEY       682
                                        *         THE NEW WORD.  BLANKS ARE IGNORED.  THE *B* SUFFIX IS          KEY       683
                                        *         NOT ALLOWED.                                                   KEY       684
                                        *                                                                        KEY       685
                                        *         C A U T I O N   --  ACTIVATE AND USE THIS STATEMENT AT YOUR    KEY       686
                                        *                            OWN RISK.  CONTROL DATA CORP. NOT RESPON-   KEY       687
                                        *                            SIBLE FOR ANY RESULTS OF THE USE OF A       KEY       688
                                        *                            *PATCH* STATEMENT.                          KEY       689
                                        *                                                                        KEY       690
                                        *         ERROR CHECKING IS THE ABSOLUTE POSSIBLE MINIMUM.  IT IS NOT    KEY       691
                                        *                LOGICALLY POSSIBLE TO USE IN MANY CASES.                KEY       692
                                        *         COMPILER DE-BUGGING CONVIENIENCE ITEM  O N L Y.                KEY       693
                                                                                                                 KEY       694
                                                                                                                 KEY       695
                                         TEST     IFNE   TEST                                                    KEY       696
                                                                                                                 KEY       697
                                                  HEREIF PATCH                                                   KEY       698
                                                                                                                 KEY       699
                                                  =A3    B4-1                                                    KEY       700
                                                  CALL   OCT         ASSEMBLE ADDRESS WHERE PATCH IS TO GO       KEY       701
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    16
                                                                      PATCH 
  
                                                  SA6    PATA                                                    KEY       702
                                                  =A3    A3+1        SKIP OVER SEPARATOR                         KEY       703
                                                  CALL   OCT         ASSEMBLE CONTENTS OF WORD                   KEY       704
                                                  SA1    PATA                                                    KEY       705
                                                  SA6    X1          STORE NEW WORD                              KEY       706
                                                  EQ     FEC.RTN                                                 KEY       707
                                                                                                                 KEY       708
                                         PATA     DATA   0           SAVE CELL FOR ADDRESS FIELD.                KEY       709
                                                                                                                 KEY       710
                                         TEST     ENDIF                                                          KEY       711
  
  
  
  
                                        **        PAU - TRANSLATE "PAUSE" STATEMENT.                             KEY       713
                                        *                                                                        KEY       714
                                        *         SEE ANSI 11.13                                                 KEY       715
                                        *                                                                        KEY       716
                                        *         EXIT   TO *PSL*.                                               KEY       717
                                        *         CALLS  SPR.                                                    KEY       718
                                                                                                                 KEY       719
                                                                                                                 KEY       720
           354                                    HEREIF PAUSE                                                   KEY       721
                                                                                                                 KEY       722
           354  6150001322 +                      SB5    S.PAUSE                                                 KEY       723
                          0100001274 +            RJ     SPR         COMPILE PAUSING INSTRUCTIONS                KEY       724
           355  0400000000 X                      EQ     PSL         EXIT...                                     KEY       727
  
  
  
  
                                        **        RTN - TRANSLATE "RETURN" STATEMENT.                            KEY       729
                                        *                                                                        KEY       730
                                        *         SEE ANSI 15.8                                                  KEY       731
                                        *                                                                        KEY       732
                                        *         SET (NOPATH), UNLESS OBJECT OF LOGICAL IF.                     KEY       733
                                        *         IF MAIN PROGRAM, ACTION SAME AS FLOW INTO END-LINE.            KEY       734
                                        *         IF ALTERNATE RETURN, COMPILE JUMP EXPRESSION.                  KEY       735
                                        *         IF SIMPLE RETURN AND NOT MAIN PROGRAM, THEN, IF OBJECT         KEY       736
                                        *         OF LOGICAL-IF, RESET IF-TARGET INSTEAD OF EMITTING ANOTHER     KEY       737
                                        *         TURPLE.                                                        KEY       738
                                        *                                                                        KEY       739
                                        *         EXIT   *PSL*.                                                  KEY       740
                                        *                                                                        KEY       741
                                        *         CALLS  EMIT, FATAL, PJX, RIT, SER.                             KEY       742
                                                                                                                 KEY       743
                                                                                                                 KEY       744
           356                                    HEREIF RETURN                                                  KEY       745
                                                                                                                 KEY       746
           356  5150000000 X                      SA5    MOD                                                     FC50451     7
                          5120000000 X            SA2    S=ENTRY                                                 FC50451     8
           357  20562                             SBIT   X5,MO.PROP                                              FC50913     7
                     0335000362 +                 MI     X5,RTN1     IF MAIN PROGRAM                             FC50913     8
                               20252              LX2    XR.TAGP                                                 KEY       748
           360  10622                             ADDREF X2,CR.RET                                               FC50451    11
                                                                                                                 FC50451    12
           362  5120000000 X             RTN1     SA2    T=BLST                                                  FC50451    13
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    17
                                                                      RTN 
  
                          0302000364 +            ZR     X2,RTN2     IF NOT INSIDE A BLOCK STRUCTURE             FC50451    14
           363  7100040000                        CLAS=  X0,WB,(DLER)  LOOP HAS EXTERNAL REFERENCE               KEY       752
                          0100000000 X            CALL   PDA         PROPOGATE DO LOOP ATTRIBUTES                KEY       753
                                                                                                                 FC50451    15
           364  43601                    RTN2     MX6    1                                                       FC50451    16
                     5160000000 X                 SA6    NOPATH                                                  KEY       757
                                                                                                                 KEY       758
                                        **        VALIDATE SYNTAX -- NOTHING MAY FOLLOW THE KEYWORD.             KEY       759
                                                                                                                 KEY       760
                               56140              SA1    B4                                                      KEY       761
           365  0311000400 +                      NZ     X1,RTN9     IF NOT *EOS*                                KEY       762
                          0325000370 +            PL     X5,RTN4     IF NOT MAIN PROGRAM                         FC50451    18
                                                                                                                 KEY       764
                                        **        WHEN IN MAIN PROGRAM, ACT LIKE *END*.                          KEY       765
                                                                                                                 KEY       766
           366  0100001266 +             RTN3     RJ     SER         SET *END* RETURN CODE                       KEY       767
           367  0400000000 X                      EQ     E.ANS3      RETURN IN MAIN PROGRAM NON-ANSI             KEY       768
                                                                                                                 KEY       769
                                        **        IN SUBPROGRAM, JUMP TO *CT.RETN*.                              KEY       770
                                                                                                                 KEY       771
           370  5110000556 +             RTN4     SA1    INIF                                                    KEY       772
                          0311000374 +            NZ     X1,RTN8     IF OBJECT OF 1-BRANCH *IF*                  KEY       773
                                                                                                                 KEY       774
           371  13444                             BX4    0                                                       KEY       775
                     43500                        MX5    0                                                       KEY       776
                          6130000000 X            EMIT   V=RET                                                   KEY       777
           373  0400000000 X                      EQ     PSL         EXIT...                                     KEY       778
                                                                                                                 KEY       779
                                        **        WHEN *RETURN* IS OBJECT OF A 1-BRANCH *IF*, CHANGE THE JUMP.   KEY       780
                                        *                DECREMENT (*TG.PRO*), AS THE FORMER TAG WILL NOT BE     KEY       781
                                        *                USED IN THE ALTERED CODE.  CLEAR (INIF) TO KEEP THAT    KEY       782
                                        *                TAG FROM BEING GENERATED.                               KEY       783
                                        *         ENTRY  (A1) _ INIF.                                            KEY       784
                                        *                (IFREL1) = MACRO ADDRESS FOR OPPOSITE *IF* JUMP.        KEY       785
                                                                                                                 KEY       786
           374  5140000000 X             RTN8     SA4    S=EXIT                                                  KEY       787
                          5130000000 X            SA3    RTNCNT                                                  KEY       788
           375  13666                             BX6    0                                                       KEY       789
                     20454                        LX4    TP.ORDP                                                 KEY       790
                          5160000000 X            SA6    NOPATH      CLEAR NOPATH CONDITION                      KEY       791
           376  73731                             =X7    X3+1        COUNT RETURN STATEMENTS                     KEY       792
                     54730                        SA7    A3                                                      KEY       793
                          0100001256 +            RJ     RIT         RESET IF TARGET                             KEY       794
           377  0400000000 X                      EQ     PSL         EXIT...                                     KEY       795
                                                                                                                 KEY       796
                                        *         EXPRESSION FOLLOWING KEYWORD.  PARSE IT AND EMIT ALTERNATE     KEY       797
                                        *         RETURN TURPLE.                                                 KEY       798
                                                                                                                 KEY       799
           400  0325000403 +             RTN9     PL     X5,RTN92    IF NOT MAIN PROGRAM                         FC50451    19
                          6170000000 X            WARN   E.SPR4                                                  KEY       801
           402  0400000366 +                      EQ     RTN3                                                    KEY       802
                                                                                                                 KEY       803
           403  20572                    RTN92    SBIT   X5,MO.FUNP/MO.PROP                                      FC50451    20
                     0325000406 +                 PL     X5,RTN94    IF NOT FUNCTION                             FC50451    21
           404  6170000000 X                      FATAL  E.SPR5      ALTERNATE RETURN ILLEGAL IN FUNCTION        KEY       806
           405  0400000370 +                      EQ     RTN4                                                    KEY       807
                                                                                                                 KEY       808
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    18
                                                                      RTN 
  
           406  7160000000 X             RTN94    SX6    V=RTNK                                                  KEY       809
                          5160000000 X            SA6    N.ARP       INDICATE ALTERNATE RETURN HAPPENED          KEY       810
           407  43700                             MX7    0           (2OP) = NIL                                 KEY       811
                     0100001234 +                 RJ     PJX         PARSE JUMP EXPRESSION                       KEY       812
           410  5110000556 +                      SA1    INIF                                                    KEY       813
                          0301000412 +            ZR     X1,RTN98    IF NOT OBJECT OF 1-BRANCH *IF*              KEY       814
           411  13777                             BX7    0                                                       KEY       815
                     5170000000 X                 SA7    NOPATH      CLEAR NOPATH FLAG                           KEY       816
                                                                                                                 FC50451    22
           412  0400000000 X             RTN98    EQ     PSL         EXIT...                                     KEY       817
  
  
  
  
                                        **        STP - TRANSLATE "STOP" STATEMENT.                              KEY       819
                                        *                                                                        KEY       820
                                        *         SEE ANSI 11.12                                                 KEY       821
                                        *                                                                        KEY       822
                                        *         EXIT   *PSL*.                                                  KEY       823
                                        *         CALLS  SPR.                                                    KEY       824
                                                                                                                 KEY       825
                                                                                                                 KEY       826
           413                                    HEREIF STOP                                                    KEY       827
                                                                                                                 KEY       828
           413  6150001323 +                      SB5    S.STOP                                                  KEY       829
                          0100001274 +            RJ     SPR         COMPILE TERMINATING INSTRUCTIONS            KEY       830
           414  5110000556 +                      SA1    INIF                                                    KEY       831
                          0311000000 X            NZ     X1,PSL      IF OBJECT OF 1-BRANCH IF                    KEY       832
           415  43601                             MX6    1                                                       FC50318    10
                     5160000000 X                 SA6    NOPATH      INDICATE NO-PATH.                           KEY       834
           416  0400000000 X                      EQ     PSL         EXIT...                                     KEY       835
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    19
        'GOTO' STATEMENTS.                                            GOT 
  
                                        **        GOT - PROCESS "GO TO" STATEMENT KEYWORD.                       KEY       838
                                        *                                                                        KEY       839
                                        *         ANSI                                                           KEY       840
                                        *         11.1   GOT -  GOTO SN                                          KEY       841
                                        *         11.2   GOA -  GOTO IVAR                                        KEY       842
                                        *                       GOTO IVAR , (SN LIST)                            KEY       843
                                        *                       GOTO IVAR   (SN LIST)                            KEY       844
                                        *         11.3   GOC -  GOTO (SN LIST) , IEXP                            KEY       845
                                        *                       GOTO (SN LIST)   IEXP                            KEY       846
                                        *                                                                        KEY       847
                                        *         ENTRY  (B4) _ TOKEN FOLLOWING KEYWORD.                         KEY       848
                                        *         EXIT   FRONT END CONTROLLER                                    KEY       849
                                                                                                                 KEY       850
                                                                                                                 KEY       851
           417                                    HEREIF GOTO                                                    KEY       852
                                                                                                                 KEY       853
           417  56140                             SA1    B4                                                      KEY       854
                     7160000055                   =X6    CR.GOTO                                                 KEY       855
           420  0301000000 X                      ZR     X1,E.GO1    IF MISSING OBJECT OF GO TO - ERROR          KEY       856
                          7221777740              SX2    X1-O.LP                                                 KEY       857
           421  5160000000 X                      SA6    REFNUM      SET CROSS REFERENCE LETTER                  KEY       858
                          7160000055              =X6    CR.VGOTO                                                KEY       859
           422  56341                             =A3    B4+1                                                    KEY       860
                     66600                        SB6    B0          INITIALIZE (B6) FOR GOC                     KEY       861
                          5160000000 X            SA6    REFVAR                                                  KEY       862
           423  0302000533 +                      ZR     X2,GOC      IF *(* -- COMPUTED GOTO                     KEY       863
                          5120000000 X            SA2    DTI                                                     FC5A224     6
           424  0302000427 +                      ZR     X2,GOT      IF NOT DO TERMINATOR                        FC5A224     7
                          5120000556 +            SA2    INIF                                                    FC5A224     8
           425  0312000427 +                      NZ     X2,GOT      IF GOTO APPENDED TO LOGICAL IF              FC5A224     9
                          6170000000 X            FATAL  E.MDO       ONLY FOR UNCONDITIONAL/ASSIGNED GOTO        FC5A224    10
                                                                                                                 FC5A224    11
           427  6221777766               GOT      SB2    X1-O.VAR                                                FC5A224    12
                          0420000461 +            ZR     B2,GOA      IF VARIABLE -- ASSIGNED GOTO                KEY       865
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    20
        'GOTO' STATEMENTS.                                            GOT 
  
                                        **        GOT - TRANSLATE UNCONDITIONAL GOTO.                            KEY       867
                                        *                                                                        KEY       868
                                        *         IF OBJECT OF LOGICAL-IF, THEN                                  KEY       869
                                        *                RESET IF-TARGET, INSTEAD OF EMITTING ANYTHING.          KEY       870
                                        *         ELSE                                                           KEY       871
                                        *                SET (NOPATH), EMIT V=GOTO.                              KEY       872
                                                                                                                 KEY       873
           430  10611                             BX6    X1                                                      KEY       874
                     0313000000 X                 NZ     X3,E.GO     IF NO *EOS* - ERROR                         KEY       875
           431  5120001345 +                      CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    15
                          0100000000 X            CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY       877
           432  0336000000 X                      MI     X6,FEC.RTN  IF ERROR IN LABEL                           KEY       878
                          5110000000 X            SA1    STL0R                                                   KEY       879
           433  5120000000 X                      SA2    TB=LABR                                                 KEY       880
                          37012                   IX0    X1-X2                                                   KEY       881
           434  0310000436 +                      NZ     X0,GOT6     IF NOT TRANSFER TO ITSELF                   KEY       882
                          6170000000 X            WARN   E.GO7       WARNING                                     KEY       883
                                                                                                                 FC50318    11
           436  10566                    GOT6     BX5    X6          SAVE TAG.                                   KEY       884
                     5110000556 +                 SA1    INIF                                                    KEY       885
                               43601              MX6    1                                                       FC50318    12
           437  5160000000 X                      SA6    NOPATH      INICATE POSSIBLE NO-PATH.                   KEY       887
                          7160000000              SX6    0                                                       KEY       888
           440  0301000444 +                      ZR     X1,GOT7     IF NO OBJECT OF AN *IF*                     KEY       889
                                                                                                                 KEY       890
                                        **        GO TO SN FOUND TO BE OJBECT OF A ONE BRANCH *IF* STATMENT.     KEY       891
                                        *                                                                        KEY       892
                                        *         IN THIS CASE WE RESET THE GENERATED TAG CELL, SINCE THE TAG    KEY       893
                                        *         WILL NOT BE USED IN THE NEW JUMP MACRO.  NEXT WE REPLACE THE   KEY       894
                                        *         IF JUMP MACRO PUT INTO THE PARSED FILE BY THE *IF* PROCESSOR   KEY       895
                                        *         AND RESET IT TO A --                                           KEY       896
                                        *                IF(L) 1,N  - WHERE *1* IS THE LABEL DEFINED BY THE      KEY       897
                                        *                             GO TO SN.                                  KEY       898
                                        *         NEXT WE CHECK IF THE *IF* WAS FOUND ON A *DO* TERMINATOR LINE  KEY       899
                                        *         IF SO WE EXIT TO PSL AND FINISH PROCESSING THE *DO*            KEY       900
                                        *                                                                        KEY       901
                                        *         (X5) = STATEMENT NUMBER ORDINAL.                               KEY       902
                                                                                                                 KEY       903
                          5160000000 X            SA6    NOPATH      CLEAR                                       KEY       904
           441  10455                             BX4    X5                                                      KEY       905
                     0100001256 +                 RJ     RIT         RESET IF TARGET                             KEY       906
           442  5110000000 X                      SA1    DTI                                                     KEY       907
                          0311000000 X            NZ     X1,PSL      IF IN *DO* TERMINATION -- EXIT...           KEY       908
           443  7160000001                        SX6    1                                                       KEY       909
                          10544                   BX5    X4                                                      FC5A157     5
                                                                                                                 FC50318    13
           444  5160000564 +             GOT7     SA6    IFLN        INDICATE INIF OR NOT                        KEY       910
                          10655                   BX6    X5                                                      KEY       911
           445  5160000137 +                      SA6    GOTA        SAVE TAG.                                   KEY       912
                          7160000447 +            =X6    GOT7A       RETURN ADDRESS                              KEY       913
           446  5160000000 X                      SA6    HANGER                                                  KEY       914
                          0400000000 X            EQ     PSL         GET NEXT EXECUTABLE                         KEY       915
                                                                                                                 KEY       916
                                        **        RETURN WITH NEXT EXECUTABLE IN *TB* AND NEXT ACTIVE LABEL      KEY       917
                                        *         IN *CSLTAG* IF ONE EXISTS.                                     KEY       918
                                        *                                                                        KEY       919
                                        *         EVALUATE IF THE GO TO SN IS A TRANSFER TO THE NEXT EXEC.       KEY       920
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    21
        'GOTO' STATEMENTS.                                            GOT 
  
                                        *         IF SO IGNORE AND NOTE IT TO THE PROGRAMMER.  IF GO TO IS PART  KEY       921
                                        *         OF AN IF AND THE ABOVE IS NOT TRUE WE EXIT TO PSL.  IF NOT     KEY       922
                                        *         OBJECT OF AN IF WE ADD O=GOTO MACRO TO PARSED FILE AND EXIT AS KEY       923
                                        *         ABOVE.                                                         KEY       924
                                                                                                                 KEY       925
           447  5120000137 +             GOT7A    SA2    GOTA        RESTORE TAG.                                KEY       926
                          5130000000 X            SA3    CSLTAG                                                  KEY       927
           450  13023                             BX0    X2-X3                                                   KEY       928
                     5110000564 +                 SA1    IFLN                                                    KEY       929
           451  0310000454 +                      NZ     X0,GOT7B    IF NOT SIMPLE JUMP TO NEXT STATEMENT.       KEY       930
                          0301000000 X            ZR     X1,E.GO2    IF NOT PROCESSING OBJECT OF AN IF.          KEY       931
           452  6170000000 X                      TRIV   E.GO5       IF RESULTS IN A TRANSFER TO NEXT LINE       KEY       932
           453  0400000000 X                      EQ     CUS.RET                                                 KEY       933
                                                                                                                 KEY       934
                                        **        HERE IF JUMP MUST BE COMPILED.                                 KEY       935
                                        *         ADD *GOTON* SKELETON TO PARSED FILE.                           KEY       936
                                        *         (NOT-TRUE IF PART OF AN *IF*)                                  KEY       937
                                                                                                                 KEY       938
           454  0311000000 X             GOT7B    NZ     X1,CUS.RET  IF PART OF 1-BRANCH IF                      KEY       939
                          5140000137 +            SA4    GOTA        (P1) = LABEL                                KEY       940
           455  13555                             BX5    0           (P2) = NIL                                  KEY       941
                     6130000000 X                 EMIT   V=GOTO                                                  KEY       942
           457  5110000000 X                      SA1    T=PAR                                                   KEY       943
                          7261777776              SX6    X1-1                                                    KEY       944
           460  5160000000 X                      SA6    CURST             RESET SQEEZE START PASTED *GOTO*      KEY       945
                          0400000000 X            EQ     CUS.RET           RETURN TO FINISH PROCESSING HANGER    KEY       946
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    22
        'GOTO' STATEMENTS.                                            GOA 
  
                                        **        GOA - TRANSLATE ASSIGNED GOTO.                                 KEY       948
                                                                                                                 KEY       949
                                                                                                                 KEY       950
           461  66210                    GOA      SB2    B1          INDICATE (VALUE.) IS LEGAL                  KEY       951
                     0100000000 X                 CALL   TRV         TRANSLATE VARIABLE                          KEY       952
           462  43371                             MX3    -WB.MODEL                                               KEY       953
                     43101                        CLAS=  X1,WB,(SFA)                                             FC50326    15
                               43501              CLAS=  X5,WB,(AGO2)                                            FC5A184    52
                     12725                        BX7    X2+X5                                                   FC5A184    53
                          15771                   BX7    -X1*X7      CLEAR WB.SFA (IF PRESENT)                   FC50326    16
                               54720              SA7    A2          INDICATE *APPEARED IN ASSIGNED GOTO*        FC5A184    54
                                                  LX7    -WB.MODEP                                               FC5A184    55
           464  15173                             BX1    -X3*X7                                                  FC5A184    56
                     20261                        HX2    WB.ARY                                                  FC5A184    57
                          0322000471 +            PL     X2,GOA10    IF NOT AN ARRAY                             FC5A184    58
           465  5120000012 X                      SA2    CLASS+WB.ARYP                                           FC5A184    59
                          10722                   BX7    X2                                                      FC5A184    60
           466  5170000000 X                      SA7    FILL.2                                                  FC5A184    61
                          5124000000              SA2    B4+                                                     FC5A184    62
           467  43752                             MX7    WA.SYML                                                 FC5A184    63
                     11772                        BX7    X7*X2       X7 = 0LSYMBOL                               FC5A184    64
                          5170000000 X            SA7    FILL.                                                   FC5A184    65
           470  6170000000 X                      FATAL  E.AS7       ** CONFLICT - VAR PREVIOUSLY USED AS ARRAY  FC5A184    66
                                                                                                                 FC5A184    67
           471  22506                    GOA10    LX5    X6          (X5) = PASS 1 TAG FORM                      FC5A184    68
                     6271777775                   SB7    X1-M.INT                                                KEY       957
           472  0301000474 +                      ZR     X1,GOA20    IF BOOLEAN VARIABLE                         KEY       958
                                   0              ERRNZ  M.BOOL                                                  KEY       959
                          0470000474 +            ZR     B7,GOA20    IF INTEGER VARIABLE                         KEY       960
           473  6170000000 X                      WARN   E.GO4       ** OBJECT OF GOTO NOT INTEGER               KEY       961
           474  66441                    GOA20    SB4    B4+B1                                                   KEY       962
                     56240                        SA2    B4                                                      KEY       963
                          6272777735              SB7    X2-O.COMMA                                              KEY       964
           475  0570000476 +                      NZ     B7,GOA22    IF COMMA MISSING                            KEY       965
                          66441                   SB4    B4+B1                                                   KEY       966
                               56240              SA2    B4                                                      KEY       967
           476  6272777740               GOA22    SB7    X2-O.LP                                                 KEY       968
                          0302000521 +            ZR     X2,GOA70    IF EOS -- STATEMENT LABEL LIST OMITTED      FC51039     7
           477  0470000501 +                      ZR     B7,GOA30    IF LEFT PAREN                               KEY       970
                          6170000000 X            FATAL  E.GO3                                                   KEY       971
                                                                                                                 KEY       972
                                        *         SCAN STATEMENT LABEL LIST.                                     KEY       973
                                        *                VALIDATE SYNTAX.                                        KEY       974
                                        *                MARK LABELS AS (WB.SREF).                               KEY       975
                                                                                                                 KEY       976
           501  66441                    GOA30    SB4    B4+B1                                                   KEY       977
           502  56140                    GOA32    SA1    B4                                                      KEY       978
                     0301000000 X                 ZR     X1,PSL      MISSING RIGHT PAREN ALREADY DIAGNOSED       KEY       979
                               10611              BX6    X1                                                      KEY       980
           503  5120001345 +                      CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    16
                          0100000000 X            CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY       982
           504  5110000000 X                      SA1    STL0R                                                   KEY       983
                          5130000000 X            SA3    TB=LABR                                                 KEY       984
           505  56441                             =A4    B4+1                                                    KEY       985
                     37231                        IX2    X3-X1                                                   KEY       986
                          6144000002              SB4    B4+2                                                    KEY       987
           506  7234777735                        SX3    X4-O.COMMA                                              KEY       988
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    23
        'GOTO' STATEMENTS.                                            GOA 
  
                          0312000510 +            NZ     X2,GOA36    IF NOT REFERENCE TO CURRENT LABEL           KEY       989
           507  6170000000 X                      TRIV   E.GO8       STATEMENT CAN TRANSFER TO ITSELF            KEY       990
           510  0303000502 +             GOA36    ZR     X3,GOA32    IF COMMA, LOOP                              KEY       991
                          6223000002              =B2    X3-O.RP+O.COMMA                                         KEY       992
           511  0520000000 X                      NZ     B2,E.GO     IF NOT *)* - ERROR...                       KEY       993
                          56140                   =A1    B4                                                      KEY       994
           512  0301000514 +                      ZR     X1,GOA60    IF NOTHING AFTER *)*                        KEY       995
                                   0              ERRNZ  O.EOS                                                   KEY       996
                          6170000000 X            WARN   E.GO9                                                   KEY       997
                                                                                                                 KEY       998
                                        **        EMIT ASSIGNED GOTO TURPLE --                                   KEY       999
                                        *                (OPR) =  V=AGOTO .                                      KEY      1000
                                        *                (1OP) = (X5) = VARIABLE TAG OF TARGET.                  KEY      1001
                                        *                (2OP) = NIL.                                            KEY      1002
                                                                                                                 KEY      1003
           514  10655                    GOA60    BX6    X5                                                      KEY      1004
                     5160000137 +                 SA6    GOTA                                                    KEY      1005
           515  5140000137 +                      SA4    GOTA        (L1) = VARIABLE TO GOTO                     KEY      1006
                          13555                   BX5    0           (P2) = NIL                                  KEY      1007
           516  6130010000 X                      EMIT   V=AGOTO,1ST                                             KEY      1008
           517  43601                             MX6    1           SET NOPATH INDICATION                       FC50318    14
                     5160000000 X                 SA6    NOPATH                                                  KEY      1010
           520  0400000000 X                      EQ     PSL         EXIT..                                      KEY      1011
                                                                                                                 FC51039     8
                                        *      1. HERE TO CHECK IF *GO TO IVAR* IS WITHIN A BLOCK STRUCTURE.     FC51039     9
                                        *      2. CHECK T.BLST FOR DO LOOPS AND SET WB.DLEX FOR THE DO'S         FC51039    10
                                        *         SYMBOL TABLE ENTRY.                                            FC51039    11
                                                                                                                 FC51039    12
           521  5120000000 X             GOA70    SA2    T=BLST                                                  FC51039    13
                          0302000514 +            ZR     X2,GOA60    IF NOT IN A BLOCK STRUCTURE                 FC51039    14
           522  7130200000                        CLAS=  X3,WB,(DLEX)                                            FC51039    15
                          22003                   LX0    X3                                                      FC51039    16
           523  5110000000 X                      SA1    T.BLST                                                  FC51039    17
                          6222777776              SB2    X2-1                                                    FC51039    18
                                                                                                                 FC51039    19
           524  53312                    GOA80    SA3    X1+B2       FETCH LC. WORD FOR BLOCK                    FC51039    20
                                                  LX3    -LC.CNTP                                                FC51039    21
                     63330                        SB3    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY        FC51039    22
                                   0              ERRNZ  18-LC.CNTL                                              FC51039    23
                          20306                   HX3    LC.DO                                                   FC51039    24
                               21352              AX3    -LC.DOL                                                 FC51039    25
           525  67223                             SB2    B2-B3                                                   FC51039    26
                     0303000532 +                 ZR     X3,GOA88    IF NOT DO LOOP                              FC51039    27
           526  6132000005                        SB3    B2+DORT.W+1                                             FC51039    28
                          53413                   SA4    X1+B3                                                   FC51039    29
                                                  HX4    TP.ORD                                                  FC51039    30
                               21454              AX4    -TP.ORDL    EXTRACT ORDINAL                             FC51039    31
           527  63340                             SB3    X4                                                      FC51039    32
                     20401                        LX4    1                                                       FC51039    33
                          63343                   SB3    B3+X4       CONVERT ORDINAL TO INDEX                    FC51039    34
                                   0              ERRNZ  3-Z=SYM                                                 FC51039    35
           530  6133000001                        SB3    B3+WB.W                                                 FC51039    36
                          5140000000 X            SA4    T.SYM                                                   FC51039    37
           531  53443                             SA4    X4+B3       *DO* COMPILER GENERATED SYMBOL *WB* ENTRY   FC51039    38
                     12604                        BX6    X0+X4       SET WB.DLEX                                 FC51039    39
                          54640                   SA6    A4          UPDATE                                      FC51039    40
                                                                                                                 FC51039    41
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    24
        'GOTO' STATEMENTS.                                            GOA 
  
           532  0620000524 +             GOA88    PL     B2,GOA80    IF MORE BLOCKS                              FC51039    42
                          0400000514 +            EQ     GOA60       EMIT *GO TO* TURPLE                         FC51039    43
  
  
  
  
                                        **        GOC - TRANSLATE COMPUTED *GOTO*.                               KEY      1013
                                        *                                                                        KEY      1014
                                        *         ENTRY  (B6) = 0.                                               KEY      1015
                                        *                (B4) _ *(* IN FRONT OF STATEMENT LABEL LIST.            KEY      1016
                                        *                                                                        KEY      1017
                                        *         1.  COUNT NUMBER OF LABELS IN LIST.                            KEY      1018
                                        *         2.  PARSE THE INDEX EXPRESSION.                                KEY      1019
                                        *         3.  PAR CALLS (C=GOT) TO EMIT INDEXED JUMP TURPLE.             KEY      1020
                                        *         4.  UPON RETURN FROM PAR, LOOP THRU LABELS AGAIN               KEY      1021
                                        *                AND EMIT JUMP TURPLE FOR EACH TARGET.                   KEY      1022
                                                                                                                 KEY      1023
                                                                                                                 KEY      1024
           533                           GOC      BSS    0           ENTRY...                                    KEY      1025
                                                                                                                 FC50646     6
           533  5114000002               GOC2     SA1    B4+2                                                    KEY      1026
                          7221777735              =X2    X1-O.COMMA                                              KEY      1027
           534  6144000002                        SB4    B4+2                                                    KEY      1028
                          66661                   =B6    B6+1                                                    KEY      1029
           535  0302000533 +                      ZR     X2,GOC2     IF COMMA, LOOP                              KEY      1030
                          7211777737              =X1    X1-O.RP                                                 KEY      1031
           536  0311000000 X                      NZ     X1,E.GO     IF NOT *)* - ERROR...                       KEY      1032
                          7160000044              SX6    O.SLP                                                   FC50646     7
           537  56640                             SA6    B4          PROTECT FOR POSSIBLE UNARY MINUS            FC50646     8
                     56141                        SA1    B4+B1                                                   KEY      1033
                          64411                   SB4    A1+B1       ADVANCE TOKEN POINTER BY 2                  KEY      1034
           540  7211777735                        =X1    X1-O.COMMA                                              KEY      1035
                          0301000542 +            ZR     X1,GOC4     IF OPTIONAL COMMA PRESENT                   KEY      1036
           541  67441                             =B4    B4-1                                                    KEY      1037
                                                                                                                 KEY      1038
           542  76760                    GOC4     SX7    B6          SET (2OP) = NUMBER OF BRANCHES              KEY      1039
                     7160000000 X                 SX6    V=CGOTO                                                 KEY      1040
                               20724              LX7    TP.BIASP                                                KEY      1041
           543  0100001234 +                      RJ     PJX         PARSE JUMP EXPRESSION                       KEY      1042
           544  5110000000 X                      SA1    TB=1ST      (X1) = ADDR OF TOKEN FOLLOWING KEYW *GOTO*  KEY      1043
                          63411                   SB4    X1+B1       ADVANCE OVER THE (O.LP)                     KEY      1044
                                                                                                                 KEY      1045
                                        *         BUILD JUMP CODE FOR COMPUTED GOTO.                             KEY      1046
                                                                                                                 KEY      1047
           545  56140                    GOC6     SA1    B4                                                      KEY      1048
                     57241                        =A2    B4-1                                                    KEY      1049
                          10611                   BX6    X1                                                      KEY      1050
           546  6272777733                        SB7    X2-O.SLP                                                FC50646     9
                          0470000000 X            ZR     B7,PSL      IF END OF STATEMENT LABEL LIST              KEY      1052
           547  5120001345 +                      CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    17
                          0100000000 X            CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY      1054
           550  10466                             BX4    X6          (P1) = STATEMENT LABEL                      KEY      1055
                     43500                        MX5    0           (P2) = NIL                                  KEY      1056
                          6130000000 X            EMIT   V=JGOTO                                                 KEY      1057
           552  5110000000 X                      SA1    STL0R                                                   KEY      1058
                          5120000000 X            SA2    TB=LABR                                                 KEY      1059
           553  37321                             IX3    X2-X1                                                   KEY      1060
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    25
        'GOTO' STATEMENTS.                                            GOC 
  
                     0313000555 +                 NZ     X3,GOC7     IF NOT REFERENCE TO CURRENT LABEL           KEY      1061
           554  6170000000 X                      TRIV   E.GO8       STATEMENT CAN TRANSFER TO ITSELF            KEY      1062
                                                                                                                 FC50646    10
           555  6144000002               GOC7     SB4    B4+2                                                    KEY      1063
                          0400000545 +            EQ     GOC6        LOOP..                                      KEY      1064
                                                                                                                 KEY      1065
                                 137 +   GOTA     EQU    CLLA        SAVE OLD STATEMENT LABEL                    KEY      1066
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    26
        'IF' STATEMENTS.
  
           556  00000000000000000000     INIF     CONENT 0           (GL) WHEN PROCESSING A LOGICAL IF, ELSE 0   KEY      1068
           557  00000000000000000000     IFNEST   DATA   0           .NZ. = IF NESTED IF                         KEY      1069
           560  00000000000000000000     IFMOD    CONENT 0           RESULTANT MODE OF IF EXPRESSION             KEY      1070
           561  00000000000000000000     IFRESLT  CONENT 0           RESULTANT OPERAND FROM IF EXPRESSION        KEY      1071
           562  00000000000000000000     IFREL1   DATA   0           OPPOSITE *IF* ORDINAL                       KEY      1072
           563  00000000000000000000     IFREL2   CONENT 0           .NZ. = (OPPOSITE) ORD. PAIR FOR SINGLE REL. KEY      1073
           564                     4     IFLN     BSZENT 4           IF STATEMENT LABEL TAGS                     KEY      1074
           570  00000000000000000000     IFSA     DATA   0           ENTRY CONDITION ON *B4*                     KEY      1075
           571  24100516000000000011     IFSB     VFD    TB.TOCL/4LTHEN,TB.TOTL/O.VAR                            KEY      1076
           572  11060000000000000011     ELFA     VFD    TB.TOCL/2LIF,TB.TOTL/O.VAR                              KEY      1077
  
  
  
  
                                        **        ELS - TRANSLATE "ELSE" STATEMENT.                              KEY      1079
                                        *                                                                        KEY      1080
                                        *         SEE ANSI 11.8                                                  KEY      1081
                                                                                                                 KEY      1082
                                                                                                                 KEY      1083
           573                                    HEREIF ELSE                                                    KEY      1084
           573  5120000000 X                      SA2    T=BLST                                                  FC51490     8
                          0302000600 +            ZR     X2,ELS      IF NO BLST TABLE                            FC51490     9
           574  0100001107 +                      RJ     FIB         FINISH PREVIOUS IF BLOCK                    KEY      1085
           575  5114000000                        SA1    B4+                                                     KEY      1086
                          0311000601 +            NZ     X1,ELF      IF NOT *ELSE*                               KEY      1087
           576  5110000000 X                      SA1    T.BLST                                                  KEY      1088
                          5120000000 X            SA2    T=BLST                                                  KEY      1089
           577  6252777767                        SB5    X2-Z=BLST-1+BLIA.W                                      KEY      1090
                          76600                   =X6    0                                                       KEY      1091
                               53615              SA6    X1+B5       INDICATE NO FURTHER *ELSE* OR *ELSEIF*      KEY      1092
           600  0400000000 X             ELS      EQ     PSL         EXIT                                        FC51490    10
  
  
  
  
                                        **        ELF - TRANSLATE "ELSEIF" STATEMENT.                            KEY      1095
                                        *                                                                        KEY      1096
                                        *         SEE ANSI 11.7                                                  KEY      1097
                                                                                                                 KEY      1098
                                                                                                                 KEY      1099
           601                           ELF      BSS    0                                                       KEY      1100
           601  5120000572 +                      SA2    ELFA                                                    KEY      1101
                          37212                   IX2    X1-X2                                                   KEY      1102
           602  0312000000 X                      NZ     X2,E.FM     IF NOT *ELSEIF*                             KEY      1103
                          56141                   =A1    B4+1                                                    KEY      1104
                               66441              =B4    B4+1                                                    KEY      1105
           603  6221777740                        SB2    X1-O.LP                                                 KEY      1106
                          0520000000 X            NZ     B2,E.IF12   IF NOT *(*                                  KEY      1107
           604  7160000044                        =X6    O.SLP                                                   KEY      1108
                          56640                   SA6    B4                                                      KEY      1109
           605  5120000000 X                      SA2    IFARM                                                   KEY      1110
                          76700                   =X7    0                                                       KEY      1111
                               10622              BX6    X2                                                      KEY      1112
           606  5170000000 X                      SA7    ARGCOMA                                                 KEY      1113
                          5160000000 X            SA6    ARGMODE                                                 KEY      1114
           607  5170000562 +                      SA7    IFREL1      CLEAR ONE RELATIONAL *IF* CELL              KEY      1115
                          0100000000 X            CALL   PAR         PARSE THE *ELSEIF* EXPRESSION               KEY      1116
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    27
        'IF' STATEMENTS.                                              ELF 
  
           610  56141                             =A1    B4+1                                                    KEY      1117
                     66441                        =B4    B4+1                                                    KEY      1118
                          5120000571 +            SA2    IFSB                                                    KEY      1119
           611  37212                             IX2    X1-X2                                                   KEY      1120
                     0302000614 +                 ZR     X2,ELF1     IF *THEN*                                   FC50765     5
           612  6170000000 X                      FATAL  E.IF14                                                  KEY      1122
           613  0400000616 +                      EQ     ELF2                                                    FC50765     6
                                                                                                                 FC50765     7
           614  56141                    ELF1     =A1    B4+1                                                    FC50765     8
                     66441                        =B4    B4+1                                                    FC50765     9
                          0301000616 +            ZR     X1,ELF2     IF NO TRAILING GARBAGE                      FC50765    10
                                   0              ERRNZ  O.EOS                                                   FC50765    11
           615  6170000000 X                      WARN   E.IF08                                                  FC50765    12
                                                                                                                 KEY      1123
           616  5120000560 +             ELF2     SA2    IFMOD                                                   KEY      1124
                          7222777776              =X2    X2-M.LOG                                                KEY      1125
           617  0302000621 +                      ZR     X2,ELF3     IF ELSEIF EXPRESSION LOGICAL                KEY      1126
                          6170000000 X            FATAL  E.IF01                                                  KEY      1127
                                                                                                                 KEY      1128
           621  0100001065 +             ELF3     RJ     CIM         CONSTRUCT IF MEGATURPLE                     KEY      1129
           622  5110000000 X                      SA1    T.BLST                                                  KEY      1130
                          5120000000 X            SA2    T=BLST                                                  KEY      1131
           623  6252777767                        SB5    X2-Z=BLST-1+BLIA.W                                      KEY      1132
                          53715                   SA7    X1+B5       UPDATE ADVANCE GENERATED LABEL              KEY      1133
           624  0400000000 X                      EQ     PSL                                                     KEY      1134
  
  
  
  
                                        **        EIF - PROCESS "END IF" STATEMENT.                              KEY      1136
                                        *                                                                        KEY      1137
                                        *         SEE ANSI 11.9                                                  KEY      1138
                                                                                                                 KEY      1139
                                                                                                                 KEY      1140
           625                                    HEREIF ENDIF                                                   KEY      1141
           625  5114000000                        SA1    B4+                                                     FC50642     5
                          0301000627 +            ZR     X1,EIF0     IF NO TRAILING GARBAGE                      FC50642     6
                                   0              ERRNZ  O.EOS                                                   FC50642     7
           626  6170000000 X                      WARN   E.IF08      */ EXPECTED EOS, FOUND FILL.                FC50642     8
                                                                                                                 FC50642     9
           627  5110000000 X             EIF0     SA1    IFLEVEL                                                 FC50642    10
                          7261777776              =X6    X1-1                                                    KEY      1143
           630  0336000000 X                      MI     X6,E.IF13                                               FC51247     5
                          5061000000              SA6    A1+         DECREMENT BLOCK IF LEVEL                    KEY      1145
                                                                                                                 KEY      1146
           631  5110000000 X             EIF1     SA1    T.BLST                                                  KEY      1147
                          5120000000 X            SA2    T=BLST                                                  KEY      1148
           632  0302000000 X                      ZR     X2,PSL      AN ENDIF WITH NOTHING IN BLST - LEAVE       FC51490    11
                          6252777776              SB5    X2-1                                                    KEY      1149
           633  53315                             SA3    X1+B5       FETCH COUNT WORD                            KEY      1150
                     20330                        LX3    -LC.DOP                                                 KEY      1151
                          63230                   SB2    X3          EXTRACT DO INDEX                            KEY      1152
                                   0              ERRNZ  18-LC.DOL                                               KEY      1153
           634  0420000646 +                      ZR     B2,EIF2     IF LAST T.BLST ENTRY IS BLOCK IF            KEY      1154
                          20344                   LX3    LC.DOP-LC.CNTP                                          KEY      1155
                               73030              SX0    X3          EXTRACT COUNT                               KEY      1156
                                   0              ERRNZ  18-LC.CNTL                                              KEY      1157
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    28
        'IF' STATEMENTS.                                              EIF 
  
           635  37020                             IX0    X2-X0                                                   KEY      1158
                     6220000005                   SB2    X0+DO.W                                                 KEY      1159
                               53312              SA3    X1+B2       FETCH DO TERMINATOR                         KEY      1160
           636  20330                             HX3    DO.TAG                                                  KEY      1161
                     21352                        AX3    -DO.TAGL    EXTRACT ORDINAL                             KEY      1162
                          63230                   SB2    X3                                                      KEY      1163
                               10433              BX4    X3                                                      KEY      1164
           637  20454                             LX4    TP.ORDP     PRESERVE FOR RBE CALL                       KEY      1165
                     20301                        LX3    1                                                       KEY      1166
                          63232                   SB2    X3+B2       CONVERT ORDINAL TO INDEX                    KEY      1167
                                   0              ERRNZ  3-Z=SYM                                                 KEY      1168
           640  5110000000 X                      SA1    T.SYM                                                   KEY      1169
                          53512                   SA5    X1+B2       FETCH *WA*                                  KEY      1170
                               21530              AX5    WA.STLP     EXTRACT LABEL                               KEY      1171
           641  0100000000 X                      CALL   LJS         LEFT JUSTIFY                                KEY      1172
           642  5160000000 X                      SA6    FILL.                                                   KEY      1173
                          6170000000 X            FATAL  E.IF15                                                  KEY      1174
           644  22604                             LX6    X4          DO TERMINATOR (TP. FORMAT)                  KEY      1175
                     0100000000 X                 CALL   RBE         REMOVE THE INCORRECT DO LOOP                KEY      1176
           645  0400000631 +                      EQ     EIF1                                                    KEY      1177
                                                                                                                 KEY      1178
           646  0100000000 X             EIF2     CALL   FBS         FINISH THE BLOCK STRUCTURE                  KEY      1179
           647  5110000000 X                      SA1    T.BLST                                                  KEY      1180
                          5120000000 X            SA2    T=BLST                                                  KEY      1181
           650  6252777766                        SB5    X2-Z=BLST-1+BLIB.W                                      KEY      1182
                          53515                   SA5    X1+B5       FETCH BLOCK IF BOTTOM LABEL                 KEY      1183
                               54451              =A4    A5-BLIB.W+BLIA.W                                        KEY      1184
           651  43601                             MX6    1           INDICATE ELSE                               FC50318    15
                     0304000654 +                 ZR     X4,EIF3     IF LAST ARM WAS AN ELSE                     KEY      1185
                               22605              LX6    X5                                                      KEY      1186
           652  5160000676 +                      SA6    EIFA        SAVE                                        KEY      1187
                          0100001172 +            RJ     EGL         EMIT LAST IF GENERATED LABEL                FC50265    10
           653  5150000676 +                      SA5    EIFA                                                    KEY      1190
                          7160000000              SX6    0           INDICATE NOT ELSE                           FC50318    16
                                                                                                                 KEY      1191
           654  5160000676 +             EIF3     SA6    EIFA        ELSE INDICATION                             FC50318    17
                          5110000000 X            SA1    T=PAR                                                   FC50318    18
           655  22701                             LX7    X1                                                      KEY      1193
                     5170000000 X                 SA7    CURST       DONT SQUEEZE PAST IF BLOCK                  KEY      1194
           656  5110000000 X                      SA1    T.BLST                                                  FC5A127    15
                          5120000000 X            SA2    T=BLST                                                  FC5A127    16
           657  6222777776                        SB2    X2-1                                                    FC5A127    17
                          53212                   SA2    X1+B2       FETCH LC WORD                               FC5A127    18
                                                  SBIT   X2,LC.GLMP                                              FC5A127    19
           660  5130000676 +                      SA3    EIFA        ELSE INDICATION                             FC50318    19
                          15632                   BX6    -X2*X3      .NOT. GLM .AND. ELSE                        FC50318    20
                               54630              SA6    A3          SAVE FOR NOPATH ANALYSIS                    FC50318    21
           661  0322000663 +                      PL     X2,EIF4     IF BOTTOM LABEL NOT TO MATERIALIZE          FC5A127    20
                          22405                   LX4    X5                                                      KEY      1195
           662  0100001172 +                      RJ     EGL         EMIT BLOCK IF BOTTOM LABEL                  FC50265    11
                                                                                                                 FC50265    12
           663  5120000000 X             EIF4     SA2    NOPATH                                                  FC5A148     4
                          5110000676 +            SA1    EIFA                                                    FC50318    22
           664  11112                             BX1    X1*X2                                                   FC50318    23
                     0311000667 +                 NZ     X1,EIF5     IF ALL ARMS UNCONDITIONAL CONTROL CHANGE    FC50318    24
           665  0302000667 +                      ZR     X2,EIF5     IF LAST ACTIVE STATEMENT NOT BRANCH         FC5A148     5
                          43600                   MX6    0                                                       KEY      1200
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    29
        'IF' STATEMENTS.                                              EIF 
  
                               54620              SA6    A2          CLEAR                                       KEY      1201
           666  5160000000 X                      SA6    FLOW        CLEAR                                       KEY      1202
                                                                                                                 FC5A341     8
           667  5120000000 X             EIF5     SA2    T=BLST                                                  FC5A148     6
                          7222777766              SX2    X2-Z=BLST-1                                             KEY      1204
           670  10622                             SHRINK A2,X2                                                   KEY      1205
                          0302000000 X            ZR     X2,PSL      IF NO NESTED BLOCK STRUCTURES               FC5A341     9
           671  5110000000 X                      SA1    CSLTAG                                                  FC5A341    10
                          0301000000 X            ZR     X1,PSL      IF ENDIF UNLABELLED                         FC5A341    11
           672  10611                             BX6    X1                                                      FC5A341    12
                     63711                        =B7    X1+WB.W                                                 FC5A341    13
                          20101                   LX1    1                                                       FC5A341    14
                               63717              SB7    X1+B7       CONVERT ORDINAL TO INDEX                    FC5A341    15
                                   0              ERRNZ  3-Z=SYM                                                 FC5A341    16
           673  66210                             =B2    1           INDICATE LABEL DEFINITION                   FC5A341    17
                     5110000000 X                 SA1    TB=LABL                                                 FC5A341    18
                               10711              BX7    X1                                                      FC5A341    19
           674  5170000000 X                      SA7    FILL.2      SAVE FOR POSSIBLE DIAGNOSTIC                FC5A341    20
                          0100000000 X            CALL   ALU         ANALYZE LABEL USAGE                         FC5A341    21
           675  0400000000 X                      EQ     PSL         EXIT                                        KEY      1206
                                                                                                                 KEY      1207
           676                     1     EIFA     BSS    1                                                       KEY      1208
  
  
  
  
                                        ***       IFS -  PROCESS "IF" STATEMENT.                                 KEY      1210
                                        *                                                                        KEY      1211
                                        *         ENTRY  B4 - *(* FOLLOWING *IF*.                                KEY      1212
                                                                                                                 KEY      1213
                                                                                                                 KEY      1214
           677                           IFS      BSSENT 0           ENTRY...                                    KEY      1215
           677  66441                             =B4    B4+1        SET PAST *IF* IN *SB*.                      KEY      1216
                     7160000044                   =X6    O.SLP                                                   KEY      1217
                               56640              SA6    B4          DUMMY TO SET UP PARSED MODE.                KEY      1218
           700  5120000000 X                      SA2    IFARM                                                   KEY      1219
                          76700                   =X7    0                                                       KEY      1220
                               10622              BX6    X2                                                      KEY      1221
           701  5170000000 X                      SA7    ARGCOMA                                                 KEY      1222
                          5160000000 X            SA6    ARGMODE                                                 KEY      1223
           702  5170000562 +                      SA7    IFREL1      CLEAR ONE RELATIONAL *IF* CELL              KEY      1224
                                                                                                                 KEY      1225
                          0100000000 X            CALL   PAR         PARSE IT                                    KEY      1226
                                                                                                                 KEY      1227
                                        **        RETURN FROM PARSER WITH *B4* _ CLOSING *)* OF *IF*             KEY      1228
                                        *         (IFMOD) = RESULTANT MODE OF *IF* EXPRESSION                    KEY      1229
                                        *         (IFRESLT) = RESULT EXPRESSION TAG, EITHER AN INTERMEDIATE OR   KEY      1230
                                        *                     SIMPLE VARIABLE                                    KEY      1231
                                                                                                                 KEY      1232
           703  5114000001                        SA1    B4+1                                                    KEY      1233
                          43052                   MX0    TB.TOCL                                                 KEY      1234
                               66441              =B4    B4+1        POINT TO 1ST OF OBJECT                      KEY      1235
           704  0301000000 X                      ZR     X1,E.IF00   IF MISSING OBJECT OF *IF*                   KEY      1236
                          6221777772              =B2    X1-O.CONS                                               KEY      1237
           705  11601                             BX6    X0*X1                                                   KEY      1238
                     5160000000 X                 SA6    FILL.       RESET FILL.                                 KEY      1239
           706  5120000560 +                      SA2    IFMOD                                                   KEY      1240
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    30
        'IF' STATEMENTS.                                              IFS 
  
                          0420000744 +            ZR     B2,IFL      IF OBJECT OF *IF* IS A STATEMENT LABEL      KEY      1241
           707  6272777776                        SB7    X2-M.LOG                                                KEY      1242
                          0570000000 X            NZ     B7,E.IF09   IF EXPRESSION MODE NOT LOGICAL              KEY      1243
           710  5120000556 +                      SA2    INIF                                                    KEY      1244
                          0312000000 X            NZ     X2,E.IF11   IF LOGICAL IF IS OBJECT OF IF               KEY      1245
                                                                                                                 FC50483     7
           711                           IFS11    BSSENT 0           ...RETURN FROM ERROR PROCESSOR.             KEY      1246
           711  56440                             SA4    B4                                                      KEY      1247
                     5120000571 +                 SA2    IFSB                                                    KEY      1248
                               13642              BX6    X4-X2                                                   KEY      1249
           712  0316000714 +                      NZ     X6,IFS30    IF FIRST TOKEN OF OBJECT NOT = 'THEN'       KEY      1250
                          56341                   SA3    B4+B1                                                   KEY      1251
           713  0303000727 +                      ZR     X3,IFT      IF THIS IS A BLOCK-IF                       KEY      1252
                                                                                                                 KEY      1253
           714  0100000000 X             IFS30    CALL   CST         CLASSIFY STMT (OBJECT OF *IF*)              KEY      1254
           715  5150000000 X                      SA5    TB=TYPE     (X5) = STMT TYPE INFO FOR OBJECT OF *IF*    KEY      1255
                          0305000000 X            ZR     X5,E.FM     IF *UNTYPED*, NOT A FORTRAN STATEMENT       KEY      1256
           716  10055                             BX0    X5                                                      KEY      1257
                     20023                        SBIT   X0,KW.NIFP                                              KEY      1258
                          0330000000 X            MI     X0,E.IF06   IF THIS STATEMENT NOT OK AS OBJECT OF *IF*  KEY      1259
           717  5110000000 X                      SA1    DTI                                                     KEY      1260
                          0301000722 +            ZR     X1,IFS40    IF NOT *DO* TERMINATOR                      KEY      1261
           720  20073                             LX0    KW.NIFP-KW.DONP                                         KEY      1262
                     0320000722 +                 PL     X0,IFS40    IF NOT (*ILL DO TERM*)                      KEY      1263
           721  6170000000 X                      ANSI   E.IF02      OBJECT OF IF IS ILLEGAL DO TERMINAL         KEY      1264
                                                                                                                 FC50483     8
           722  5110000000 X             IFS40    SA1    FLOW                                                    KEY      1265
                          0311000000 X            NZ     X1,FEC.RIF  IF NOT PATH, RETURN TO CONTROLLER...        KEY      1266
           723  0100001065 +                      RJ     CIM         CONSTRUCT IF MEGATURPLE                     KEY      1267
           724  5170000556 +                      SA7    INIF        INDICATE GL TO BE ISSUED AFTER OBJECT       KEY      1268
                          5110000000 X            SA1    T=PAR                                                   KEY      1269
           725  10611                             BX6    X1                                                      KEY      1270
                     5160000000 X                 SA6    CURST                                                   KEY      1271
           726  0400000000 X                      EQ     FEC.RIF     EXIT TO FEC...                              KEY      1272
  
  
  
  
                                        **        IFT - PROCESS BLOCK-IF.                                        KEY      1274
                                        *                                                                        KEY      1275
                                        *         SEE ANSI 11.6                                                  KEY      1276
                                                                                                                 KEY      1277
                                                                                                                 KEY      1278
           727  5110000000 X             IFT      SA1    IFLEVEL                                                 KEY      1279
                          73611                   =X6    X1+1                                                    KEY      1280
                               54610              SA6    A1          INCREMENT BLOCK IF LEVEL                    KEY      1281
           730  5110000000 X                      ALLOC  T.BLST,Z=BLST                                           KEY      1282
           732  0100001065 +                      RJ     CIM         CONSTRUCT IF MEGATURPLE                     KEY      1283
           733  5110000000 X                      SA1    T.BLST                                                  KEY      1284
                          5120000000 X            SA2    T=BLST                                                  KEY      1285
           734  6252777767                        SB5    X2-Z=BLST+BLIB.W                                        KEY      1286
                          76610                   =X6    1                                                       KEY      1287
                               20654              LX6    TP.ORDP                                                 KEY      1288
           735  36667                             IX6    X6+X7       MAKE BOTTOM GENERATED LABEL                 KEY      1289
                     53615                        SA6    X1+B5       SET BOTTOM POINTER GENERATED LABEL          KEY      1290
                          54761                   =A7    A6-BLIB.W+BLIA.W                                        KEY      1291
           736  6252777774                        SB5    X2-Z=BLST+BLIC.W      BLIC.W  EQU  DO.W                 FC51501     8
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    31
        'IF' STATEMENTS.                                              IFT 
  
                          43700                   MX7    0                                                       FC51501     9
                               53715              SA7    X1+B5       INSURE THIS LOCATON CLEAR FOR BLOCK *IFS*   FC51501    10
           737  5110000000 X                      SA1    REFLIN                                                  KEY      1292
                          7160000011              SX6    Z=BLST+1                                                KEY      1293
           740  20114                             LX1    -XR.LINEP+LC.LINEP                                      KEY      1294
                     12616                        BX6    X1+X6                                                   KEY      1295
                          5110000000 X            ADDWD  T.BLST                                                  KEY      1296
           742  5110000000 X                      SA1    N.GL                                                    KEY      1297
                          73611                   =X6    X1+1                                                    KEY      1298
                               54610              SA6    A1          INCREMENT GENERATED LABEL COUNT             KEY      1299
           743  0400000000 X                      EQ     PSL                                                     KEY      1300
  
  
  
  
                                        **        IFL - STATEMENT LABEL IF.                                      KEY      1302
                                        *                                                                        KEY      1303
                                        *         ENTRY  (B4) _ FIRST STATEMENT LABEL.                           KEY      1304
                                        *                SAVE STATEMENT LABELS IN (IFLN) AND RETURN TO MASTER    KEY      1305
                                        *                LOOP TO GET NEXT EXECUTABLE STATEMENT.                  KEY      1306
                                        *                                                                        KEY      1307
                                        *                RETURN TO IFL50 AND SET-UP SKELETON MACRO FOR PROPER    KEY      1308
                                        *                JUMP FOR *IF*.                                          KEY      1309
                                                                                                                 KEY      1310
                                                                                                                 KEY      1311
           744  5110000560 +             IFL      SA1    IFMOD       MODE OF IF EXPRESSION                       FC50483     9
                          5120000000 X            SA2    F.IFS       SELECTION MATRIX                            FC50483    10
           745  20103                             LX1    3                                                       FC50483    11
                     63210                        SB2    X1          SHIFT COUNT                                 FC50483    12
                          22222                   LX2    X2,B2       EXTRACT SKELETON (RELATIVE)                 FC50483    13
           746  0322000752 +                      PL     X2,IFL20    IF EXPRESSION LEGAL                         FC50483    14
                          21103                   AX1    3           RESTORE TP.MODE                             FC50483    15
           747  5221000000 X                      SA2    X1+MOD.DPC  DPC OF MODE                                 FC50483    16
                          10622                   BX6    X2                                                      FC50483    17
           750  5160000000 X                      SA6    FILL.3                                                  FC50483    18
                          6170000000 X            FATAL  E.IF07                                                  FC50483    19
                                                                                                                 FC50483    20
           752  5110000556 +             IFL20    SA1    INIF                                                    FC50483    21
                          10611                   BX6    X1                                                      KEY      1313
           753  5160000557 +                      SA6    IFNEST                                                  KEY      1314
                          7160000055              =X6    CR.IFN                                                  KEY      1315
           754  6160000000                        SB6    0                                                       KEY      1316
                          5160000000 X            SA6    REFVAR      INDICATE OBJECT OF IF REFERENCE.            KEY      1317
           755  56140                             SA1    B4          PRELOAD 1ST STATEMENT LABEL                 KEY      1318
                     6150000003                   =B5    3           MAXIMUM NUMBER OF STATEMENT LABELS POSSIBLE KEY      1319
                               76610              =X6    1                                                       KEY      1320
           756  5160001064 +                      SA6    IFFLAG      INDICATE INACTIVE LABEL (FOR ISL)           KEY      1321
                                                                                                                 KEY      1322
                                        **        IDENTIFY STATEMENT LABELS.                                     KEY      1323
                                                                                                                 KEY      1324
           757  66441                    IFL30    =B4    B4+1                                                    KEY      1325
                     5120001345 +                 CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    18
                               10611              BX6    X1                                                      KEY      1327
           760  0100000000 X                      CALL   ISL         IDENTIFY STATEMENT LABEL                    KEY      1328
           761  56140                             SA1    B4                                                      KEY      1329
                     5166000564 +                 SA6    B6+IFLN     SAVE TAG.                                   KEY      1330
           762  6221777735                        =B2    X1-O.COMMA                                              KEY      1331
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    32
        'IF' STATEMENTS.                                              IFL 
  
                          66661                   =B6    B6+1                                                    KEY      1332
           763  0301000767 +                      ZR     X1,IFL40    IF *EOS*                                    KEY      1333
                          0520000000 X            NZ     B2,E.IF03   IF NOT *,*                                  KEY      1334
           764  56141                             =A1    B4+1                                                    KEY      1335
                     66441                        =B4    B4+1                                                    KEY      1336
                          0301000767 +            ZR     X1,IFL40    IF *EOS*                                    KEY      1337
           765  0565000757 +                      NE     B6,B5,IFL30 LOOP ON NEXT LABEL                          KEY      1338
                          67441                   =B4    B4-1                                                    KEY      1339
                               56140              SA1    B4          TEST FOR CLEAN STATEMENT ENDING             KEY      1340
           766  0311000000 X                      NZ     X1,E.IF03   IF NOT *EOS*                                KEY      1341
                                                                                                                 KEY      1342
                                        *         GO OFF TO HANGER PROCESSING.                                   KEY      1343
                                                                                                                 KEY      1344
           767  76600                    IFL40    =X6    0                                                       KEY      1345
                     43700                        MX7    0                                                       KEY      1346
                          5170001064 +            SA7    IFFLAG                                                  KEY      1347
           770  6176777774                        SB7    B6-3                                                    KEY      1348
                          54661                   =A6    A6+1        INDICATE END OF TABLE                       KEY      1349
           771  0770000000 X                      MI     B7,E.IF10   IF LESS THAN 3 LABELS                       KEY      1350
                          5110000000 X            SA1    DTI                                                     KEY      1351
           772  7170000777 +                      SX7    IFL50       (X7) = RETURN ADDR FOR *HANGER*             KEY      1352
                          76600                   =X6    0                                                       KEY      1353
           773  5170000000 X                      SA7    HANGER      SET RETURN ADDRESS                          KEY      1354
                          5160000556 +            SA6    INIF        INDICATE TO *PSL* NO TAG NECESSARY          KEY      1355
           774  0301000000 X                      ZR     X1,PSL      IF NOT DO TERMINAL                          KEY      1356
                          6170000000 X            FATAL  E.MDO       *ILLEGAL DO TERMINAL*                       KEY      1357
           776  0400000000 X                      EQ     PSL         RETURN FOR NEXT EXECUTABLE STATEMENT        KEY      1358
                                                                                                                 KEY      1359
                                        **        HERE WITH NEXT EXECUTABLE STATEMENT.                           KEY      1360
                                                                                                                 KEY      1361
           777  76700                    IFL50    =X7    0                                                       KEY      1362
                     5110000566 +                 SA1    IFLN+2      PRELOAD *3RD* STATEMENT LABEL               KEY      1363
          1000  5170000000 X                      SA7    HANGER                                                  KEY      1364
                          22601                   LX6    X1          SAME *3RD* LABEL                            KEY      1365
          1001  5140000000 X                      SA4    CSLTAG      NEXT EXECUTABLE STATEMENT TAG               KEY      1366
                          20454                   LX4    TP.ORDP                                                 KEY      1367
          1002  6140000004                        SB4    3+1                                                     KEY      1368
                                                                                                                 KEY      1369
          1003  67441                    IFL52    =B4    B4-1                                                    KEY      1370
                     37014                        IX0    X1-X4       COMPARE TARGET LABEL WITH UPCOMING LABEL    KEY      1371
                          55111                   =A1    A1-1        LOAD NEXT LABEL                             KEY      1372
          1004  0300001005 +                      ZR     X0,IFL60    IF MATCH                                    KEY      1373
                          0540001003 +            NZ     B4,IFL52    IF NOT END OF TABLE                         KEY      1374
                                                                                                                 KEY      1375
                                        **        SET-UP JUMP FOR COMPILING CODE FOR IF-JUMP.                    KEY      1376
                                                                                                                 KEY      1377
          1005  5110000564 +             IFL60    SA1    IFLN        1ST                                         KEY      1378
                          76540                   SX5    B4          SET UPCOMING STATEMENT LABEL FLAG           KEY      1379
                               54211              =A2    A1+1        2ND                                         KEY      1380
          1006  13777                             BX7    0                                                       KEY      1381
                     37316                        IX3    X1-X6       1ST-3RD                                     KEY      1382
                          0313001010 +            NZ     X3,IFL61    IF 1ST"3RD                                  KEY      1383
          1007  7277000003                        SX7    X7+3                                                    KEY      1384
          1010  13026                    IFL61    BX0    X2-X6       2ND-3RD                                     KEY      1385
                     0310001012 +                 NZ     X0,IFL62    IF 2ND"3RD                                  KEY      1386
          1011  7277000002                        SX7    X7+2                                                    KEY      1387
          1012  37012                    IFL62    IX0    X1-X2       1ST-2ND                                     KEY      1388
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    33
        'IF' STATEMENTS.                                              IFL 
  
                     0310001013 +                 NZ     X0,IFL63    IF 1ST"2ND                                  KEY      1389
                               73771              =X7    X7+1                                                    KEY      1390
                                                                                                                 KEY      1391
                                        **        HERE WITH                                                      KEY      1392
                                        *         (X7) = 0 = 1ST"2ND"3RD       (X5)  1 = 1ST = N                 KEY      1393
                                        *                1 = 1ST=2ND                 2 = 2ND = N                 KEY      1394
                                        *                2 = 2ND=3RD                 3 = 3RD = N                 KEY      1395
                                        *                3 = 3RD=1ST                 0 = N NOT REFERENCED.       KEY      1396
                                        *                6 = 1ST=2ND=3RD                                         KEY      1397
                                                                                                                 KEY      1398
          1013  5110000000 X             IFL63    SA1    T.SYM                                                   KEY      1399
                          5120000563 +            SA2    IFLN-1                                                  KEY      1400
          1014  73111                             =X1    X1-WA.W+WB.W                                            KEY      1401
                     6140000004                   SB4    3+1                                                     KEY      1402
                                                                                                                 KEY      1403
          1015  67441                    IFL63A   =B4    B4-1                                                    KEY      1404
                     0440001023 +                 ZR     B4,IFL63B   IF END OF TABLE                             KEY      1405
                               54221              =A2    A2+1                                                    KEY      1406
          1016  0332001015 +                      MI     X2,IFL63A   IF LABEL IS BAD (SYNTAX ERROR)              KEY      1407
                          37024                   IX0    X2-X4                                                   KEY      1408
          1017  0300001015 +                      ZR     X0,IFL63A   IF MATCH                                    KEY      1409
                          20220                   LX2    -TP.ORDP                                                KEY      1410
                               43054              MX0    -TP.ORDL                                                KEY      1411
          1020  15220                             BX2    -X0*X2      ISOLATE ORDINAL                             KEY      1412
                     63520                        SB5    X2                                                      KEY      1413
                          20201                   LX2    1                                                       KEY      1414
                               63525              SB5    X2+B5       CONVERT ORDINAL TO INDEX                    KEY      1415
          1021  53315                             SA3    X1+B5       *WB* OF LABEL                               KEY      1416
                     76610                        =X6    1                                                       KEY      1417
                          20613                   LX6    WB.ACTP                                                 KEY      1418
                               12663              BX6    X6+X3                                                   KEY      1419
          1022  54630                             SA6    A3          MARK LABEL AS ACTIVE                        KEY      1420
                     0400001015 +                 EQ     IFL63A                                                  KEY      1421
                                                                                                                 KEY      1422
          1023  5110000557 +             IFL63B   SA1    IFNEST                                                  KEY      1423
                          0311001025 +            NZ     X1,IFL64    IF APPENDED TO LOGICAL IF                   KEY      1424
          1024  43601                             MX6    1                                                       FC50318    25
                     5160000000 X                 SA6    NOPATH      INDICATE NO PATH TO NEXT STATEMENT          KEY      1426
                                                                                                                 FC50318    26
          1025  6237777771               IFL64    SB3    X7-6                                                    KEY      1427
                          0530001037 +            NZ     B3,IFL70    IF NO POSSIBLE NULL-TRANSFER.               KEY      1428
          1026  0305001031 +                      ZR     X5,IFL65    IF NOT NULL TRANSFER.                       KEY      1429
                          6170000000 X            WARN   E.IF05      DO NOTHING STATEMENT                        KEY      1430
          1030  0400000000 X                      EQ     CUS.RET     FINISH PROCESSING HANGER.                   KEY      1431
                                                                                                                 KEY      1432
          1031  7130000000 X             IFL65    SX3    V=I111                                                  KEY      1433
                          5110000557 +            SA1    IFNEST                                                  KEY      1434
          1032  0311001052 +                      NZ     X1,IFL90    IF APPENDED TO LOGICAL IF                   KEY      1435
                          6170000000 X            TRIV   E.IF04                                                  FC51029     7
          1034  5140000564 +                      SA4    IFLN        1ST LABEL (=2ND LABEL = 3RD LABEL)          FC51029     8
                          43500                   MX5    0                                                       FC51029     9
          1035  6130000000 X                      EMIT   V=GOTO                                                  FC51029    10
          1036  0400000000 X                      EQ     CUS.RET     FINISH PROCESSING HANGER                    FC51029    11
                                                                                                                 KEY      1438
          1037  5110000560 +             IFL70    SA1    IFMOD                                                   KEY      1439
                          6160000000 X            SB6    F.IFS                                                   KEY      1440
          1040  66300                             =B3    0                                                       KEY      1441
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    34
        'IF' STATEMENTS.                                              IFL 
  
                     0305001045 +                 ZR     X5,IFL80    IF NO REFERENCE TO UPCOMING LABEL           KEY      1442
          1041  6265000003 X                      SB6    X5+F.IFS+3                                              KEY      1443
                          0307001045 +            ZR     X7,IFL80    IF ONLY ONE REFERENCE AND NO 2 ALIKE        KEY      1444
          1042  6160777773 X                      SB6    F.IFN-4                                                 KEY      1445
                          73771                   =X7    X7+1                                                    KEY      1446
                               66310              =B3    1                                                       KEY      1447
          1043  6225777774                        SB2    X5-3                                                    KEY      1448
                          20701                   LX7    1           *2                                          KEY      1449
          1044  0620001045 +                      PL     B2,IFL80    IF NEXT IS THIRD IF-TARGET                  KEY      1450
                          66300                   =B3    0                                                       KEY      1451
                                                                                                                 KEY      1452
                                        *         HERE WITH --                                                   KEY      1453
                                        *         (B3) = OFFSET FOR STATEMENT LABEL CONFIGURATION.               KEY      1454
                                        *         (B6) = BASE TABLE TO USE.                                      KEY      1455
                                        *         (X7) = SPECIAL OFFSET WHEN *N* IS ONE OF STATEMENT LABELS.     KEY      1456
                                                                                                                 KEY      1457
          1045  5120000560 +             IFL80    SA2    IFMOD       DM = (IFMOD)                                KEY      1458
                          63373                   SB3    X7+B3       (B3) = COMPLETE OFFSET                      KEY      1459
                               43010              MX0    8                                                       KEY      1460
          1046  20203                             LX2    3                                                       KEY      1461
                     56136                        SA1    B3+B6       LOAD MODE SELECTION VECTOR                  KEY      1462
                          63220                   SB2    X2          (B2) = 8 * DM                               KEY      1463
                               22321              LX3    X1,B2                                                   KEY      1464
          1047  11203                             BX2    X0*X3       EXTRACT RELATIVE SKELETON NUMBER            KEY      1465
                     0332000000 X                 MI     X2,CUS.RET  IF EXPRESSION MODE ILLEGAL                  FC50483    22
                               20210              LX2    8                                                       FC50483    23
          1050  5110000000 X                      SA1    FLOW                                                    KEY      1475
                          7232000000 X            SX3    X2+OM=IF    (X3) = COMPLETE SKELETON NUMBER             KEY      1476
          1051  0311000000 X                      NZ     X1,CUS.RET  IF NO PATH                                  KEY      1477
                                                                                                                 KEY      1478
                                        *         EMIT TURPLE TO IL (PARSED FILE).                               KEY      1479
                                        *                                                                        KEY      1480
                                        *         ENTRY  (X3) = SKELETON FOR THIS IF.                            KEY      1481
                                        *                (IFLN) = VECTOR OF JUMP TARGET TAGS.                    KEY      1482
                                        *                                                                        KEY      1483
                                        *         A THREE-BRANCH IF MEGA-TURPLE CONSISTS OF TWO TURPLES,         KEY      1484
                                        *         ORGANIZED AS FOLLOWS --                                        KEY      1485
                                        *         1.  OPR = IF-MACRO SKELETON ADDRESS.                           KEY      1486
                                        *                (P1) = EXPRESSION RESULT          (IFRESLT)             KEY      1487
                                        *                (P2) = 1ST LABEL.                 (IFLN+0)              KEY      1488
                                        *         2.  OPR = NOOP SKELETON.                                       KEY      1489
                                        *                (P3) = 2ND LABEL.                 (IFLN+1)              KEY      1490
                                        *                (P4) = 3RD LABEL.                 (IFLN+2)              KEY      1491
                                                                                                                 KEY      1492
          1052  73730                    IFL90    SX7    X3          EXTRACT SKELETON ADDRESS                    KEY      1493
                     5120000001 X                 SA2    OPDUM+DUC=1ST                                           KEY      1494
                               20752              LX7    SP.SKELP                                                FC50104    59
          1053  5140000561 +                      SA4    IFRESLT     (P1) = IF-EXPRESSION RESULT                 KEY      1496
                          12627                   BX6    X2+X7                                                   KEY      1497
          1054  5150000564 +                      SA5    IFLN        (P2) = LABEL 1                              KEY      1498
                          5160000570 +            SA6    IFSA        STORE IF-OPERATOR                           KEY      1499
          1055  6036400000                        EMIT   A6,*                                                    KEY      1500
          1056  54451                             SA4    A5+B1       (P3) = LABEL 2                              KEY      1501
                     54541                        SA5    A4+B1       (P4) = LABEL 3                              KEY      1502
                          6130400000 X            EMIT   NOOPP,*                                                 KEY      1503
                                                                                                                 KEY      1504
          1060  5120000557 +                      SA2    IFNEST                                                  KEY      1505
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    35
        'IF' STATEMENTS.                                              IFL 
  
                          0302000000 X            ZR     X2,CUS.RET  IF THIS ARITH IF NOT OBJ OF LOG IF          KEY      1506
          1061  0100000000 X                      CALL   CSB         EMIT BSS TURPLE                             KEY      1507
          1062  13666                             BX6    0                                                       KEY      1508
                     5160000557 +                 SA6    IFNEST      SO ONLY ONE BSS TURPLE EMITTED              KEY      1509
          1063  0400000000 X                      EQ     CUS.RET     RETURN TO FINISH PROCESSING HANGER          KEY      1510
                                                                                                                 KEY      1511
          1064                     1     IFFLAG   BSZENT 1                                                       KEY      1512
  
  
  
  
                                        **        CIM -  CONSTRUCT IF MEGATURPLE                                 KEY      1514
                                        *                                                                        KEY      1515
                                        *         EXIT   (X7) = GENERATED LABEL (IF FALSE JUMP) (TP. FORMAT)     KEY      1516
                                                                                                                 KEY      1517
                                                                                                                 KEY      1518
          1065  0400401065 +             CIM      SUBR               ...ENTRY/EXIT...                            KEY      1519
          1066  7140000000 X                      SX4    V=IFF       (X4) = NORMAL LOGIC SKELETON                KEY      1520
                          7150000000 X            SX5    V=IFT       (X5) = OPPOSITE LOGIC SKELETON              KEY      1521
          1067  5120000563 +                      SA2    IFREL2                                                  KEY      1522
                          0302001075 +            ZR     X2,CIM1     IF CONDITION IS NOT SINGLE-RELATIONAL       KEY      1523
                                                                                                                 KEY      1524
                                                                                                                 KEY      1525
                                        **        IF CONDITION IS SINGLE RELATIONAL.  THE LAST TURPLE IN THE     KEY      1526
                                        *         PARSE FILE IS NOW A RELATIONAL WHICH COMPUTES THE DESIRED      KEY      1527
                                        *         LOGICAL VALUE.  CHANGE ITS (OPR) TO THE CORRESPONDING IF-1REL  KEY      1528
                                        *         SKELETON, THUS USING IT AS THE FIRST TURPLE OF THE IF MEGA-    KEY      1529
                                        *         TURPLE WE ARE TO CONSTRUCT.                                    KEY      1530
                                                                                                                 KEY      1531
          1070  5130000000 X                      SA3    T.PAR                                                   KEY      1532
                          5140000000 X            SA4    T=PAR                                                   KEY      1533
          1071  36034                             IX0    X3+X4       (X0) = LWA+1 PARSED FILE                    KEY      1534
                     73720                        SX7    X2                                                      KEY      1535
                          5210777774              SA1    X0-Z=TURP+OR.OPR                                        KEY      1536
          1072  43656                             MX6    -TH.SKELL                                               KEY      1537
                                                  IFEQ   TEST,ON,1                                               KEY      1538
                                                  MI     X7,"BLOWUP" NO OPPOSITE SPECIAL                         KEY      1539
                     21236                        AX2    30                                                      KEY      1540
                          5170000562 +            SA7    IFREL1      OPPOSITE LOGIC SKELETON                     KEY      1541
          1073  20116                             LX1    -TH.SKELP                                               KEY      1542
                     11061                        BX0    X6*X1                                                   KEY      1543
                          12702                   BX7    X0+X2       SET LAST TURP = NORMAL 1-REL LOGIC          KEY      1544
                               20756              LX7    TH.SKELP                                                KEY      1545
          1074  54710                             SA7    A1                                                      KEY      1546
                     0400001102 +                 EQ     CIM2                                                    KEY      1547
                                                                                                                 KEY      1548
                                                                                                                 KEY      1549
                                        **        CONDITION IS A GENERAL EXPRESSION.                             KEY      1550
                                        *                EMIT FIRST TURPLE OF IF.                                KEY      1551
                                                                                                                 KEY      1552
          1075  20452                    CIM1     LX4    SP.SKELP                                                FC50104    60
                     5110000001 X                 SA1    OPDUM+DUC=1ST                                           KEY      1554
                               73750              SX7    X5                                                      KEY      1555
          1076  12641                             BX6    X4+X1       (OP) = NORMAL GENERAL LOGIC SKEL            KEY      1556
                     5170000562 +                 SA7    IFREL1                                                  KEY      1557
          1077  5140000561 +                      SA4    IFRESLT     (P1) = RESULT OF IF-EXPRESSION              KEY      1558
                          43500                   MX5    0                                                       KEY      1559
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    36
        'IF' STATEMENTS.                                              CIM 
  
          1100  5160000570 +                      SA6    IFSA                                                    KEY      1560
                          6036400000              EMIT   A6,*                                                    KEY      1561
                                                                                                                 KEY      1562
                                                                                                                 KEY      1563
                                        **        IN EITHER CASE, FINISH UP THE IF-MEGATURPLE.                   KEY      1564
                                        *                EMIT SECOND TURPLE, CONTAINING THE BRANCH TARGET.       KEY      1565
                                                                                                                 KEY      1566
          1102  5130000000 X             CIM2     SA3    N.GL                                                    KEY      1567
                          7120040000              CLAS=  X2,TP,(GL)                                              KEY      1568
          1103  73631                             SX6    X3+B1       ADVANCE GENERATED LABEL COUNT               KEY      1569
                     20354                        LX3    TP.ORDP                                                 KEY      1570
                          54630                   SA6    A3                                                      KEY      1571
                               12523              BX5    X2+X3       (P2) = GENERATED-LABEL OF DESTINATION       KEY      1572
          1104  43400                             MX4    0           (P1) = NIL                                  KEY      1573
                     6130000000 X                 EMIT   V=NOOP                                                  KEY      1574
          1106  10755                             BX7    X5                                                      KEY      1575
                     0400001065 +                 EQ     EXIT.                                                   KEY      1576
  
  
  
  
                                        **        FIB -  FINISH IF BLOCK                                         KEY      1578
                                        *                                                                        KEY      1579
                                        *         ENTERED WHEN ELSE OR ELSEIF ENCOUNTERED.  FINISHES THE         KEY      1580
                                        *         PREVIOUS IF BLOCK.                                             KEY      1581
                                        *                                                                        KEY      1582
                                        *         USES   X0,X1,X2,X3,X4,X5,X6  B2,B5  A1,A2,A3,A4,A5,A6          FC5A127    21
                                        *                                                                        KEY      1584
                                        *         CALLS  EGL, EMT, FBS, LJS, PDM                                 FC50265    13
                                                                                                                 KEY      1586
                                                                                                                 KEY      1587
          1107  0400401107 +             FIB      SUBR               ...ENTRY/EXIT...                            KEY      1588
          1110  5110000000 X                      SA1    IFLEVEL                                                 KEY      1589
                          0301000000 X            ZR     X1,E.IF13   IF NO BLOCK IF STRUCTURE ACTIVE             KEY      1590
                                                                                                                 KEY      1591
          1111  5110000000 X             FIB1     SA1    T.BLST                                                  KEY      1592
                          5120000000 X            SA2    T=BLST                                                  KEY      1593
          1112  6252777776                        SB5    X2-1                                                    KEY      1594
                          53315                   SA3    X1+B5       FETCH COUNT WORD                            KEY      1595
                               20330              LX3    -LC.DOP                                                 KEY      1596
          1113  63230                             SB2    X3          EXTRACT DO INDEX                            KEY      1597
                                   0              ERRNZ  18-LC.DOL                                               KEY      1598
                     0420001125 +                 ZR     B2,FIB2     IF LAST T.BLST ENTRY IS BLOCK IF            KEY      1599
                               20344              LX3    LC.DOP-LC.CNTP                                          KEY      1600
          1114  73030                             SX0    X3          EXTRACT COUNT                               KEY      1601
                                   0              ERRNZ  18-LC.CNTL                                              KEY      1602
                     37020                        IX0    X2-X0                                                   KEY      1603
                          6220000005              SB2    X0+DO.W                                                 KEY      1604
          1115  53312                             SA3    X1+B2       FETCH DO TERMINATOR                         KEY      1605
                     20330                        HX3    DO.TAG                                                  KEY      1606
                          21352                   AX3    -DO.TAGL    EXTRACT ORDINAL                             KEY      1607
                               63230              SB2    X3                                                      KEY      1608
          1116  10433                             BX4    X3                                                      KEY      1609
                     20454                        LX4    TP.ORDP     PRESERVE FOR RBE CALL                       KEY      1610
                          20301                   LX3    1                                                       KEY      1611
                               63232              SB2    X3+B2       CONVERT ORDINAL TO INDEX                    KEY      1612
                                   0              ERRNZ  3-Z=SYM                                                 KEY      1613
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    37
        'IF' STATEMENTS.                                              FIB 
  
          1117  5110000000 X                      SA1    T.SYM                                                   KEY      1614
                          53512                   SA5    X1+B2       FETCH *WA*                                  KEY      1615
                               21530              AX5    WA.STLP     EXTRACT LABEL                               KEY      1616
          1120  0100000000 X                      CALL   LJS         LEFT JUSTIFY                                KEY      1617
          1121  5160000000 X                      SA6    FILL.                                                   KEY      1618
                          6170000000 X            FATAL  E.IF15                                                  KEY      1619
          1123  22604                             LX6    X4          DO TERMINAL (TP. FORMAT)                    KEY      1620
                     0100000000 X                 CALL   RBE         REMOVE THE INCORRECT DO LOOP                KEY      1621
          1124  0400001111 +                      EQ     FIB1                                                    KEY      1622
                                                                                                                 KEY      1623
          1125  0100000000 X             FIB2     CALL   FBS         FINISH THE BLOCK ARM                        KEY      1624
          1126  5110000000 X                      SA1    T.BLST                                                  KEY      1625
                          5120000000 X            SA2    T=BLST                                                  KEY      1626
          1127  6252777766                        SB5    X2-Z=BLST-1+BLIB.W                                      KEY      1627
                          5120000000 X            SA2    NOPATH                                                  KEY      1628
          1130  0302001132 +                      ZR     X2,FIB3     IF LAST ACTIVE STATEMENT NOT BRANCH         KEY      1629
                          43600                   MX6    0                                                       KEY      1630
                               54620              SA6    A2          CLEAR NOPATH                                KEY      1631
          1131  5160000000 X                      SA6    FLOW        CLEAR                                       KEY      1632
                          0400001147 +            EQ     FIB4                                                    KEY      1633
                                                                                                                 KEY      1634
          1132  53415                    FIB3     SA4    X1+B5                                                   KEY      1635
                     43500                        MX5    0                                                       KEY      1636
                          6130000000 X            EMIT   V=GOTO      JUMP TO BOTTOM OF BLOCK IF STRUCTURE        KEY      1637
          1134  5120000000 X                      SA2    =XCO.DBID                                               FC51569     7
                          0302001146 +            ZR     X2,FIB3A    IF NOT *DB=ID*                              FC51569     8
          1135  56140                             SA1    B4                                                      FC51569     9
                     0301001146 +                 ZR     X1,FIB3A    IF NOT *ELSE IF*                            FC51569    10
          1136  5120000000 X                      SA2    T=PAR                                                   FC51569    11
                          7222777771              SX2    X2-6                                                    FC51569    12
          1137  0332001146 +                      MI     X2,FIB3A    IF LESS THEN 2 TURPLES                      FC51569    13
                          5110000000 X            SA1    T.PAR                                                   FC51569    14
          1140  36112                             IX1    X1+X2                                                   FC51569    15
                     53410                        SA4    X1          FIRST OF NEXT TO LAST TURPLE                FC51569    16
                          5014000003              SA1    A4+Z=TURP   FIRST OF LAST TURPLE                        FC51569    17
          1141  10644                             BX6    X4                                                      FC51569    18
                     22701                        LX7    X1                                                      FC51569    19
                          54610                   SA6    A1                                                      FC51569    20
                               54740              SA7    A4                                                      FC51569    21
          1142  5044000001                        SA4    A4+OR.1OP   SECOND OF NEXT TO LAST TURPLE               FC51569    22
                          5014000003              SA1    A4+Z=TURP   SECOND OF LAST TURPLE                       FC51569    23
          1143  10644                             BX6    X4                                                      FC51569    24
                     22701                        LX7    X1                                                      FC51569    25
                          54610                   SA6    A1                                                      FC51569    26
                               54740              SA7    A4                                                      FC51569    27
          1144  5044000001                        SA4    A4+OR.1OP   THIRD OF NEXT TO LAST TURPLE                FC51569    28
                          5014000003              SA1    A4+Z=TURP   THIRD OF LAST TURPLE                        FC51569    29
          1145  10644                             BX6    X4                                                      FC51569    30
                     22701                        LX7    X1                                                      FC51569    31
                          54610                   SA6    A1                                                      FC51569    32
                               54740              SA7    A4                                                      FC51569    33
                                                                                                                 FC51569    34
          1146  43601                    FIB3A    CLAS=  X6,LC,(GLM)                                             FC51569    35
                                                                                                                 KEY      1638
          1147  5110000000 X             FIB4     SA1    T.BLST                                                  KEY      1639
                          5120000000 X            SA2    T=BLST                                                  FC5A127    23
          1150  66551                             =B5    B5-BLIB.W+BLIA.W                                        KEY      1640
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    38
        'IF' STATEMENTS.                                              FIB 
  
                     53415                        SA4    X1+B5       FETCH PREVIOUS ADVANCE LABEL (GL)           KEY      1641
                          0304000000 X            ZR     X4,E.IF13   IF PREVIOUS ELSE, THIS LEVEL                KEY      1642
          1151  6222777776                        SB2    X2-1                                                    FC5A127    24
                          53212                   SA2    X1+B2                                                   FC5A127    25
                               12662              BX6    X6+X2       MERGE IN LC.GLM (IF PRESENT)                FC5A127    26
          1152  54620                             SA6    A2                                                      FC5A127    27
                     5110000000 X                 SA1    T=PAR                                                   KEY      1643
                               10711              BX7    X1                                                      KEY      1644
          1153  5170000000 X                      SA7    CURST       DONT SQUEEZE PAST IF ARM                    KEY      1645
                          0100001172 +            RJ     EGL         EMIT GENERATED LABEL                        FC50265    14
          1154  0400001107 +                      EQ     EXIT.                                                   KEY      1648
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    39
        SUBROUTINES.                                                  CEM 
  
                                        **        CEM - CHECK ENTRY POINT MODE.                                  KEY      1651
                                        *                                                                        KEY      1652
                                        *         WILL DETECT MODE CONFLICTS BETWEEN FUNCTION MAIN ENTRY         KEY      1653
                                        *         AND ANOTHER ENTRY POINT.                                       KEY      1654
                                        *                                                                        KEY      1655
                                        *         ENTRY  (A2,X2) = SYMTAB (WB.) OF AN ENTRY POINT                KEY      1656
                                        *                (X3) = CONTENTS OF (MOD).                               KEY      1657
                                        *                                                                        KEY      1658
                                        *         EXIT   (B7) .ZR. = NO ERROR DETECTED.                          KEY      1659
                                        *                     .NZ. = ERROR MESSAGE ADDRESS.                      KEY      1660
                                        *                                                                        KEY      1661
                                        *         USES   A1,4.  X1,3-4,6.  B7.                                   KEY      1662
                                                                                                                 KEY      1663
                                                                                                                 KEY      1664
          1155  0400401155 +             CEM      SUBR               ENTRY/EXIT...                               KEY      1665
          1156  66700                             SB7    B0                                                      KEY      1666
                     20360                        HX3    MO.FUN                                                  KEY      1667
                          0323001155 +            PL     X3,EXIT.    IF NOT COMPILING A FUNCTION                 KEY      1668
          1157  43471                             MX4    -MO.MODEL                                               KEY      1669
                     20314                        LX3    MO.FUNP+1-MO.MODEP                                      KEY      1670
                          15134                   BX1    -X4*X3      ISOLATE MODE OF MAIN ENTRY                  KEY      1671
          1160  7211777771                        SX1    X1-M.CHAR                                               KEY      1672
                                   0              ERRNZ  WB.MODEL-MO.MODEL                                       KEY      1673
                                                  LX2    -WB.MODEP                                               KEY      1674
                          15424                   BX4    -X4*X2      ISOLATE MODE OF THIS ENTRY                  KEY      1675
                                                  LX2    WB.MODEP                                                KEY      1676
          1161  7244777771                        SX4    X4-M.CHAR                                               KEY      1677
                          0311001170 +            NZ     X1,CEM15    IF MAIN ENTRY NOT CHARACTER                 KEY      1678
          1162  0304001164 +                      ZR     X4,CEM5     IF THIS ENTRY IS CHARACTER                  KEY      1679
                          6170000000 X            SB7    E.EN6                                                   KEY      1680
          1163  0400001155 +                      EQ     EXIT.                                                   KEY      1681
                                                                                                                 KEY      1682
          1164  54421                    CEM5     =A4    A2-WB.W+WC.W                                            KEY      1683
                     20337                        LX3    MO.MODEP-MO.CLIFP                                       KEY      1684
                          20437                   LX4    -WC.CLIFP                                               KEY      1685
          1165  5110001346 +                      CLAS=  X1,MO,(CLIF)                                            KEY      1686
                          20137                   LX1    -MO.CLIFP                                               KEY      1687
                               13343              BX3    X4-X3       COMPARE CHAR TYPE INFO                      KEY      1688
          1166  11313                             BX3    X1*X3                                                   KEY      1689
                     0303001155 +                 ZR     X3,EXIT.    IF CHAR INFO EQUAL                          KEY      1694
          1167  6170000000 X                      SB7    E.EN7                                                   KEY      1695
                          0400001155 +            EQ     EXIT.                                                   KEY      1696
                                                                                                                 KEY      1697
                                        **        HERE IF MAIN ENTRY NOT TYPE CHARACTER                          KEY      1698
                                                                                                                 KEY      1699
          1170  0314001155 +             CEM15    NZ     X4,EXIT.    IF THIS ENTRY NOT CHARACTER                 KEY      1700
                          6170000000 X            SB7    E.EN8                                                   KEY      1701
          1171  0400001155 +                      EQ     EXIT.                                                   KEY      1702
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    40
        SUBROUTINES.                                                  EGL 
  
                                        **        EGL -  EMIT GENERATED LABEL                                    FC50265    16
                                        *                                                                        FC50265    17
                                        *         EMITS THE GENERATED LABEL (V=BSS) AND FLUSHES THE IL.          FC50265    18
                                        *                                                                        FC50265    19
                                        *         ENTRY  (X4) = GENERATED LABEL TO ISSUE (TP. FORMAT)            FC50265    20
                                        *                                                                        FC50265    21
                                        *         USES   ALL (PRESERVES B4)                                      FC50265    22
                                        *                                                                        FC50265    23
                                        *         CALLS  EMT, OIL                                                FC50265    24
                                                                                                                 FC50265    25
                                                                                                                 FC50265    26
          1172  0400401172 +             EGL      SUBR               ...ENTRY/EXIT...                            FC50265    27
          1173  76640                             SX6    B4                                                      FC50265    28
                     43500                        MX5    0           OR.20P IS NULL                              FC50265    29
                          5160001200 +            SA6    EGLA        SAVE (B4)                                   FC50265    30
          1174  6130000000 X                      EMIT   V=BSS       THE GL                                      FC50265    31
          1175  0100000000 X                      CALL   OIL                                                     FC50265    32
          1176  5110001200 +                      SA1    EGLA                                                    FC50265    33
                          63410                   SB4    X1          RESTORE (B4)                                FC50265    34
          1177  0400001172 +                      EQ     EXIT.                                                   FC50265    35
                                                                                                                 FC50265    36
          1200                     1     EGLA     BSS    1           SAVE (B4)                                   FC50265    37
  
  
  
  
                                        **        MND - MATERIALIZE NAMELIST DIMENSIONS.                         KEY      1704
                                        *                                                                        KEY      1705
                                        *         MARKS (T.DIM) ENTRIES WHICH NEED TO APPEAR IN THE RUNTIME DIM  KEY      1706
                                        *         TABLE BECAUSE OF NAMELIST.  FOR EACH ARRAY WHICH IS A MEMBER   KEY      1707
                                        *         OF A MATERIALIZED NAMELIST GROUP, THE (DH.MAT) BIT IS SET IN   KEY      1708
                                        *         IT'S (T.DIM) ENTRY.                                            KEY      1709
                                        *                                                                        KEY      1710
                                        *         THIS MARKING IS NOT PERFORMED UNTIL THE END OF PASS 1, SO THAT KEY      1711
                                        *         UNREFERENCED NAMELIST GROUPS WILL NOT CAUSE ANY RUNTIME DIM    KEY      1712
                                        *         WORDS TO BE GENERATED.  THE TASK CANNOT BE DEFERRED UNTIL THE  KEY      1713
                                        *         BEGINNING OF PASS 3 BECAUSE CCG PASS 2 MUST BE ABLE TO FIGURE  KEY      1714
                                        *         OUT WHICH (VD.) CELLS CAN BE THROWN AWAY.                      KEY      1715
                                        *                                                                        KEY      1716
                                        *         USES   ALL.                                                    KEY      1717
                                                                                                                 KEY      1718
                                                                                                                 KEY      1719
          1201  0400401201 +             MND      SUBR   0           ENTRY/EXIT...                               KEY      1720
          1202  5110000000 X                      SA1    T.NLST                                                  KEY      1721
                          5120000000 X            SA2    T=NLST                                                  KEY      1722
          1203  5130000000 X                      SA3    T.SYM                                                   KEY      1723
                          5140000000 X            SA4    T.DIM                                                   KEY      1724
          1204  13777                             BX7    0           MARK (T.NLST) LWA+1 WITH ZERO WORD          KEY      1725
                     36621                        IX6    X2+X1                                                   KEY      1726
                          63640                   SB6    X4          (B6) = FWA (T.DIM)                          KEY      1727
                               43055              MX0    -NG.ORDL                                                KEY      1728
          1205  53760                             SA7    X6                                                      KEY      1729
                                   0              ERRMI  FUDGE-1     CODE REQUIRES SLOP WORD                     KEY      1730
                     53510                        SA5    X1          FETCH FIRST GROUP HEADER                    KEY      1731
                          63531                   =B5    X3+WB.W     (B5) = FWA SYMTAB (WB.)S                    KEY      1732
                               55751              SA7    A5-B1       INITIALIZE DESCRIPTOR STORE ADDRESS         KEY      1733
                                   0              ERRMI  FUDGE-1     REQUIRES SLOP WORD BELOW TABLE              KEY      1734
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    41
        SUBROUTINES.                                                  MND 
  
                                                                                                                 KEY      1735
                                        *         BEGIN NEXT GROUP.                                              KEY      1736
                                        *                (X5) = GROUP HEADER WORD.                               KEY      1737
                                                                                                                 KEY      1738
          1206  0305001232 +             MND20    ZR     X5,MND70    IF TABLE TERMINATOR                         KEY      1739
                          10755                   BX7    X5                                                      KEY      1740
                               20517              LX5    -NG.NMEMP                                               KEY      1741
          1207  15250                             BX2    -X0*X5      (B4) = COUNT OF MEMBERS IN GROUP            KEY      1742
                                   0              ERRNZ  NG.NMEML-NG.ORDL                                        KEY      1743
                     63420                        SB4    X2                                                      KEY      1744
                                         .T       IFEQ   TEST,ON,1                                               KEY      1745
                                                  ZR     B4,"BLOWUP" IF EMPTY GROUP                              KEY      1746
                          20517                   LX5    NG.NMEMP-NG.GROPP POSITION FIRST MEMBER AT TOP          KEY      1747
                               15150              BX1    -X0*X5      (X1) = SYMORD OF GROUP                      KEY      1748
          1210  63215                             SB2    X1+B5                                                   KEY      1749
                     22211                        LX2    X1,B1                                                   KEY      1750
                          53122                   SA1    B2+X2       FETCH SYMTAB (WB.) FOR GROUPNAME            KEY      1751
                                   0              ERRNZ  3-Z=SYM                                                 KEY      1752
                               20135              HX1    WB.MAT                                                  KEY      1753
          1211  0331001214 +                      MI     X1,MND28    IF GROUP WAS REFERENCED                     KEY      1754
                          7164000005              SX6    B4+2+3      ROUND UP BYTES IN THIS DESCRIPTOR           KEY      1755
          1212  21602                             AX6    2           DIV 4                                       KEY      1756
                                   0              ERRNZ  60-4*NG.ORDL                                            KEY      1757
                     64350                        SB3    A5                                                      KEY      1758
                          53563                   SA5    X6+B3       ADVANCE TO NEXT GROUP                       KEY      1759
          1213  0400001206 +                      EQ     MND20                                                   KEY      1760
                                                                                                                 KEY      1761
          1214  64771                    MND28    SB7    A7+B1                                                   KEY      1762
                     54771                        SA7    A7+B1       COPY MATERIAL DESCRIPTOR WORD               KEY      1763
                          75657                   SX6    A5-B7       (X6) = DISTANCE NEW HOME LAGS OLD ONE       KEY      1764
                               20154              LX1    WB.MATP+1-WB.PNTP                                       KEY      1765
          1215  37616                             IX6    X1-X6       UPDATE GROUP DEFN POINTER IN SYMTAB         KEY      1766
                     66711                        =B7    60/NG.ORDL-2                                            KEY      1767
                          20657                   LX6    WB.PNTP                                                 KEY      1768
                               43757              MX7    -WB.PNTL                                                KEY      1769
          1216  43401                             CLAS=  X4,WB,(MAT)                                             KEY      1770
                          54610                   SA6    A1                                                      KEY      1771
                                                                                                                 KEY      1772
                                        *         PROCESS MEMBER OF GROUP.  IF IT IS AN ARRAY, SET DIM MAT.      KEY      1773
                                        *                (X5) = NEXT MEMBER AT TOP.                              KEY      1774
                                        *                (X7) = DIM INDEX EXTRACTION MASK.                       KEY      1775
                                        *                (B4) = COUNT OF MEMBERS LEFT IN THIS GROUP.             KEY      1776
                                        *                (B7) = COUNT OF MEMBERS LEFT IN CURRENT WORD.           KEY      1777
                                                                                                                 KEY      1778
          1217  20517                    MND30    LX5    NG.ORDL                                                 KEY      1779
                     15150                        BX1    -X0*X5      (X1) = SYMORD OF MEMBER                     KEY      1780
                                         .T       IFEQ   TEST,ON,1                                               KEY      1781
                                                  ZR     X1,"BLOWUP" IF EMPTY BYTE                               KEY      1782
                          63215                   SB2    X1+B5                                                   KEY      1783
                               22211              LX2    X1,B1                                                   KEY      1784
          1220  53122                             SA1    B2+X2       SYMTAB (WB.) FOR THIS MEMBER                KEY      1785
                                   0              ERRNZ  3-Z=SYM                                                 KEY      1786
                     12614                        BX6    X1+X4       MARK MEMBER MATERIALIZED                    KEY      1787
                          20161                   HX1    WB.ARY                                                  KEY      1788
                               54610              SA6    A1                                                      KEY      1789
          1221  0321001224 +                      PL     X1,MND40    IF NOT ARRAY                                KEY      1790
                          20130                   LX1    -WB.PNTP+WB.ARYP+1                                      KEY      1791
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    42
        SUBROUTINES.                                                  MND 
  
                               15317              BX3    -X7*X1      T.DIM INDEX OF ARRAY                        KEY      1792
          1222  53236                             SA2    X3+B6       DIM HEADER FOR ARRAY                        KEY      1793
                     20432                        LX4    -WB.MATP+DH.MATP                                        KEY      1794
                          12624                   BX6    X2+X4       SET *MAT* BIT                               KEY      1795
                               20442              LX4    -DH.MATP+WB.MATP                                        KEY      1796
          1223  54620                             SA6    A2                                                      KEY      1797
                                        *         IFBIT  X3,DH.ASP,"BLOWUP"      IF ASSUMED-SIZE ARRAY           KEY      1798
                                                                                                                 KEY      1799
          1224  67771                    MND40    =B7    B7-1                                                    KEY      1800
                     67441                        =B4    B4-1                                                    KEY      1801
                          0570001230 +            NZ     B7,MND45    IF MORE MEMBERS IN THIS WORD                KEY      1802
          1225  0440001230 +                      ZR     B4,MND45    IF NO MORE MEMBERS IN THIS GROUP            KEY      1803
                          54551                   SA5    A5+B1                                                   KEY      1804
          1226  6170000004                        SB7    60/NG.ORDL                                              KEY      1805
                          10755                   BX7    X5          COPY MATERIAL DESCRIPTOR WORD               KEY      1806
                               54771              SA7    A7+B1                                                   KEY      1807
          1227  43757                             MX7    -WB.PNTL                                                KEY      1808
          1230  0540001217 +             MND45    NZ     B4,MND30    IF GROUP HAS MORE MEMBERS                   KEY      1809
                          5055000001              SA5    A5+1                                                    KEY      1810
          1231  0400001206 +                      EQ     MND20       LOOP..                                      KEY      1811
                                                                                                                 KEY      1812
          1232  5120000000 X             MND70    SA2    T.NLST                                                  KEY      1813
                          74371                   SX3    A7+B1       (X3) = LWA+1 MATERIAL DESCRIPTOR SPACE      KEY      1814
                               37632              IX6    X3-X2                                                   KEY      1815
          1233  5160000000 X                      SHRINK T=NLST,X6                                               KEY      1816
                          0400001201 +            EQ     EXIT.                                                   KEY      1817
  
  
  
  
                                        **        PJX - PARSE JUMP EXPRESSION.                                   KEY      1819
                                        *                                                                        KEY      1820
                                        *         EVALAUTES JUMP INDEX EXPRESSION FOR RETURN AND GOTO.           KEY      1821
                                        *                MODE IS COERCED TO INTEGER.                             KEY      1822
                                        *                                                                        KEY      1823
                                        *         ENTRY  (X6) = SKELETON ADDRESS.                                KEY      1824
                                        *                (X7) = OPERAND FOR (2OP).                               KEY      1825
                                                                                                                 KEY      1826
                                                                                                                 KEY      1827
          1234  0400401234 +             PJX      SUBR   0           ENTRY/EXIT...                               KEY      1828
          1235  5110000000 X                      SA1    PJXARM                                                  KEY      1829
                          5160000140 +            SA6    PJXB                                                    KEY      1830
          1236  55761                             SA7    A6-B1                                                   KEY      1831
                     43600                        MX6    0                                                       KEY      1832
                          10711                   BX7    X1                                                      KEY      1833
          1237  5160000000 X                      SA6    ARGCOMA                                                 KEY      1834
                          5170000000 X            SA7    ARGMODE                                                 KEY      1835
          1240  0100000000 X                      CALL   PAR         PARSE EXPRESSION, EMIT JUMP                 KEY      1836
          1241  5110000000 X                      SA1    T=PAR                                                   KEY      1837
                          10611                   BX6    X1          INHIBIT SQUEEZE ACROSS JUMP                 KEY      1838
          1242  5160000000 X                      SA6    CURST                                                   KEY      1839
                          0400001234 +            EQ     EXIT.                                                   KEY      1840
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    43
        SUBROUTINES.                                                  C=PJX 
  
                                        **        C=PJX - PROCESS *EOS* OF COMPUTED *GOTO*.                      KEY      1842
                                        *                                                                        KEY      1843
                                        *                IF NOT AT *EOS* - COMMA IS ILLEGAL                      KEY      1844
                                                                                                                 KEY      1845
                                                                                                                 KEY      1846
          1243                           C=PJX    BSSENT 0           ENTRY...                                    KEY      1847
          1243  56240                             SA2    B4                                                      KEY      1848
                     43071                        MX0    -TP.MODEL                                               KEY      1849
                                                  LX5    -TP.MODEP                                               KEY      1850
                          0302001246 +            ZR     X2,PJX4     IF AT *EOS*                                 KEY      1851
                                   0              ERRNZ  O.EOS                                                   KEY      1852
          1244  6170000000 X                      WARN   E.GO9                                                   KEY      1853
          1245  0400000000 X                      EQ     C=CERR                                                  KEY      1854
                                                                                                                 KEY      1855
          1246  15250                    PJX4     BX2    -X0*X5      (X2) = MODE OF EXPRESSION                   KEY      1856
                     76611                        =X6    M.INT                                                   KEY      1857
                                                  LX5    TP.MODEP                                                KEY      1858
                          37326                   IX3    X2-X6                                                   KEY      1859
          1247  0303001253 +                      ZR     X3,PJX8     IF INTEGER EXPRESSION                       KEY      1860
                          6170000000 X            ANSI   E.GO6       ** MUST BE INTEGER                          KEY      1861
          1251  0100000000 X                      CALL   CMR         COERCE MODE OF RESULT                       KEY      1862
          1252  0470001253 +                      ZR     B7,PJX8     IF MODE CONVERTED OKAY                      KEY      1863
                          0100000000 X            FATAL  B7                                                      KEY      1864
                                                                                                                 KEY      1865
          1253  5130000001 X             PJX8     SA3    DUC=1ST+OPDUM                                           KEY      1866
                          5120000140 +            SA2    PJXB                                                    KEY      1867
          1254  10455                             BX4    X5          (1OP) = EXPRESSION RESULT                   KEY      1868
                     20252                        LX2    SP.SKELP                                                FC50104    61
                          55521                   SA5    A2-B1       (2OP) = (PJXA)                              KEY      1870
                               12323              BX3    X2+X3       FORM (X3) = OPERATOR                        KEY      1871
          1255  0400000000 X                      EQ     POP.STD     EXIT..                                      KEY      1872
                                                                                                                 KEY      1873
                                 137 +   PJXA     EQU    CLLA        SAVE (2OP)                                  KEY      1874
                                 140 +   PJXB     EQU    CLLB        SAVE (OPR)                                  KEY      1875
                                   0              ERRNZ  CLLA+1-CLLB                                             KEY      1876
  
  
  
  
                                        **        RIT - RESET IF TARGET.                                         KEY      1878
                                        *                                                                        KEY      1879
                                        *         WHEN THE OBJECT OF A ONE-BRANCH IF IS A RETURN OR              KEY      1880
                                        *         SIMPLE GOTO STATEMENT, THEN THE (ALREADY EMITTED)              KEY      1881
                                        *         IF-TURPLES ARE MODIFIED TO AVOID A DOUBLE JUMP.                KEY      1882
                                        *         DECREMENT (TG.PRO), AS THE FORMER TAG WILL NOT BE USED         KEY      1883
                                        *         BY THE ALTERED TURPLES.  CLEAR (INIF) TO KEEP THAT GL FROM     KEY      1884
                                        *         BEING DEFINED.                                                 KEY      1885
                                        *                                                                        KEY      1886
                                        *         ENTRY  (X4) = LABEL TO BRANCH TO (TP. FORM).                   KEY      1887
                                        *                THE LAST 2 TURPLES CURRENTLY IN (T.PAR) ARE THE         KEY      1888
                                        *                            IF MEGA-TURPLE.                             KEY      1889
                                        *                (IFREL1) = OPPOSITE LOGIC MACRO ADDRESS.                KEY      1890
                                        *                                                                        KEY      1891
                                        *         EXIT   (INIF) = 0.                                             KEY      1892
                                        *                (TG.PRO) DECREMENTED.                                   KEY      1893
                                                                                                                 KEY      1894
                                                                                                                 KEY      1895
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    44
        SUBROUTINES.                                                  RIT 
  
          1256  0400401256 +             RIT      SUBR               ...ENTRY/EXIT...                            KEY      1896
          1257  5120000000 X                      SA2    N.GL                                                    KEY      1897
                          5130000000 X            SA3    T.PAR                                                   KEY      1898
          1260  7262777776                        SX6    X2-1        RESET (TG.PRO)                              KEY      1899
                          5110000000 X            SA1    T=PAR                                                   KEY      1900
          1261  13777                             BX7    0                                                       KEY      1901
                     5150000562 +                 SA5    IFREL1      OPPOSITE LOGIC MACRO ADDRESS                KEY      1902
                               36031              IX0    X3+X1       (X0) = LWA+1 OF (T.PAR)                     KEY      1903
          1262  54620                             SA6    A2                                                      KEY      1904
                     43156                        MX1    -TH.SKELL                                               KEY      1905
                          5170000556 +            SA7    INIF                                                    KEY      1906
          1263  5220777771                        SA2    X0-2*Z=TURP+OR.OPR                                      KEY      1907
                          10744                   BX7    X4                                                      KEY      1908
                               20216              LX2    -TH.SKELP                                               KEY      1909
          1264  11312                             BX3    X1*X2       CLEAR OLD MACRO ADDRESS                     KEY      1910
                     12635                        BX6    X3+X5       SET OPPOSITE LOGIC                          KEY      1911
                          5270777776              SA7    X0-Z=TURP+OR.2OP  RESET JUMP TARGET                     KEY      1912
          1265  20656                             LX6    TH.SKELP                                                KEY      1913
                     54620                        SA6    A2                                                      KEY      1914
                          0400001256 +            EQ     EXIT.                                                   KEY      1915
  
  
  
  
                                        **        SER -  COMPILE *END* INSTRUCTIONS.                             KEY      1917
                                        *                                                                        KEY      1918
                                        *         CALLED BY *END* AND *RETURN* STATEMENTS, IF IN MAIN PROGRAM.   KEY      1919
                                        *                                                                        KEY      1920
                                        *         CALLS  SRJ.                                                    KEY      1921
                                                                                                                 KEY      1922
                                                                                                                 KEY      1923
          1266  0400401266 +             SER      SUBR               ...ENTRY/EXIT...                            KEY      1924
          1267  5150000000 X                      SA5    S=TRACE                                                 KEY      1925
                          6160000001 X            SB6    ESTACK+1                                                KEY      1926
          1270  20554                             LX5    TP.ORDP                                                 KEY      1927
                     10655                        BX6    X5                                                      KEY      1928
                          6150001273 +            SB5    S.END                                                   KEY      1929
          1271  57661                             SA6    B6-B1                                                   KEY      1930
                     0100001324 +                 RJ     SRJ         EMIT APL AND RJ                             KEY      1931
          1272  0400001266 +                      EQ     EXIT.                                                   KEY      1932
                                                                                                                 KEY      1933
          1273  05160440570000000000     S.END    =XLIB  END5                                                    KEY      1934
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    45
        SUBROUTINES.                                                  SPR 
  
                                        **        SPR - COMPILE TERMINATING/PAUSING INSTRUCTIONS.                KEY      1936
                                        *                                                                        KEY      1937
                                        *         CONTAINS COMMON TRANSLATION FOR STOP AND PAUSE.                KEY      1938
                                        *         SEE ANSI 11.12 + 11.13 FOR ARGUMENT DESCRIPTION.               KEY      1939
                                        *         THE FIRST ELEMENT AFTER THE KEYWORD MAY BE --                  KEY      1940
                                        *                (A)  EMPTY.                                             KEY      1941
                                        *                (B)  A STRING OF AT MOST 5 DIGITS.                      KEY      1942
                                        *                (C)  CHARACTER STRING SURROUNDED BY QUOTES (').         KEY      1943
                                        *                                                                        KEY      1944
                                        *         EMITS APL TURPLE FOR THE ARGUMENT, FOLLOWED BY STOP OR         KEY      1945
                                        *         PAUSE TURPLE.  DIGIT STRING ARGUMENT (CASE B) IS FIRST         KEY      1946
                                        *         CHANGED INTO A CHARACTER CONSTANT.                             KEY      1947
                                        *                                                                        KEY      1948
                                        *         ENTRY  (B5) _ NAME OF ROUTINE.                                 KEY      1949
                                        *                (B4) _ FIRST TOKEN AFTER KEYWORD.                       KEY      1950
                                        *                                                                        KEY      1951
                                        *         EXIT   STOP OR PAUSE TURPLE EMITTED.                           KEY      1952
                                        *                                                                        KEY      1953
                                        *         CALLS  ADDWD, ECC, FATAL, SCT, SRJ, WARN.                      KEY      1954
                                                                                                                 KEY      1955
                                                                                                                 KEY      1956
          1274  0400401274 +             SPR      SUBR   0           ENTRY/EXIT...                               KEY      1957
          1275  56140                             SA1    B4                                                      KEY      1958
                     6160000001 X                 SB6    ESTACK+1                                                KEY      1959
                               56241              =A2    B4+1                                                    KEY      1960
          1276  0301001305 +                      ZR     X1,SPR20    IF EOS -- ARGUMENT NOT PRESENT              KEY      1961
                          6221777773              =B2    X1-O.CHAR                                               KEY      1962
          1277  6231777772                        =B3    X1-O.CONS                                               KEY      1963
                          0302001301 +            ZR     X2,SPR13    IF SECOND TOKEN IS EOS                      KEY      1964
                                   0              ERRNZ  O.EOS                                                   KEY      1965
          1300  6170000000 X                      WARN   E.SPR4                                                  KEY      1966
          1301  0430001307 +             SPR13    ZR     B3,SPR30    IF DIGIT                                    KEY      1967
                          0520001304 +            NZ     B2,SPR15    IF NOT CHAR CONSTANT                        KEY      1968
          1302  20122                             LX1    -TB.SHCP                                                KEY      1969
                     43052                        MX0    -TB.SHCL                                                KEY      1970
                          43755                   MX7    -TB.CLCNL                                               KEY      1971
                               15210              BX2    -X0*X1      CHAR INDEX = SHC [TB ENTRY]                 KEY      1972
          1303  20117                             LX1    TB.SHCP-TB.CLCNP                                        KEY      1973
                     15117                        BX1    -X7*X1      CHAR LEN = CLCN [TB ENTRY]                  KEY      1974
                          0400001317 +            EQ     SPR40                                                   KEY      1975
                                                                                                                 KEY      1976
          1304  6170000000 X             SPR15    WARN   E.SPR1      ILLEGAL ARGUMENT                            KEY      1977
                                                                                                                 KEY      1978
                                        *         NO ARGUMENT CASE -- EMIT ZERO PARAMETER.                       KEY      1979
                                                                                                                 KEY      1980
          1305  5120000000 X             SPR20    SA2    CONZER      STACK SHORT CONSTANT OF ZERO                KEY      1981
                          10622                   BX6    X2                                                      KEY      1982
                               57661              SA6    B6-B1                                                   KEY      1983
          1306  0400001320 +                      EQ     SPR60                                                   KEY      1984
                                                                                                                 KEY      1985
                                        *         HERE IF NUMERIC STRING.                                        KEY      1986
                                                                                                                 KEY      1987
          1307  56140                    SPR30    SA1    B4                                                      KEY      1988
                     43052                        MX0    TB.TOCL                                                 KEY      1989
                          11101                   BX1    X0*X1       EXTRACT DIGITS                              KEY      1990
                               43236              MX2    5*6                                                     KEY      1991
          1310  15612                             BX6    -X2*X1                                                  KEY      1992
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    46
        SUBROUTINES.                                                  SPR 
  
                     0306001312 +                 ZR     X6,SPR34    IF MORE THAN 5 DIGITS                       KEY      1993
          1311  6170000000 X                      WARN   E.SPR2      ** EXCESS DIGITS TRUNCATED                  KEY      1994
          1312  11101                    SPR34    BX1    X0*X1                                                   KEY      1995
                     0100000000 X                 CALL   ZTB         ELIMINATE COLONS                            KEY      1996
          1313  5110000000 X                      SCAN   T.CON,SCT   SCAN FOR DUPLICATE STRING                   KEY      1997
          1314  7127000001                        SX2    B7+1                                                    KEY      1998
                          7140000005              SX4    5           LENGTH = 5                                  KEY      1999
          1315  0670001316 +                      PL     B7,SPR36    IF STRING ALREADY EXISTS                    KEY      2000
                          0100000000 X            ADDWD  A1                                                      KEY      2001
          1316  7222777776               SPR36    =X2    X2-1                                                    KEY      2002
                          10144                   BX1    X4                                                      KEY      2003
                                                                                                                 KEY      2004
                                        *         HERE IF CHARACTER CONSTANT.                                    KEY      2005
                                        *                (X1) = CHAR LEN                                         KEY      2006
                                        *                (X2) = CHAR INDEX                                       KEY      2007
                                                                                                                 KEY      2008
          1317  0100000000 X             SPR40    CALL   ECC         EMIT CHARACTER CONSTANT                     KEY      2009
          1320  0100001324 +             SPR60    RJ     SRJ         COMPILE APL AND RJ                          KEY      2010
          1321  0400001274 +                      EQ     EXIT.                                                   KEY      2011
                                                                                                                 KEY      2012
          1322  20012523405700000000     S.PAUSE  =XLIB  PAUS5                                                   KEY      2013
          1323  23241720405700000000     S.STOP   =XLIB  STOP5                                                   KEY      2014
  
  
  
  
                                        **        SRJ - EMIT APL AND RJ.                                         KEY      2016
                                        *                                                                        KEY      2017
                                        *         EMIT CALL TO END, STOP OR PAUSE.                               KEY      2018
                                        *         NAME OF PROCESSOR ROUTINE IS ENTERED IN SYMTAB.                KEY      2019
                                        *                                                                        KEY      2020
                                        *         ENTRY  (B5) _ NAME OF LIBRARY ROUTINE.                         KEY      2021
                                        *                OPERAND FOR MESSAGE ON TOP OF ESTACK.                   KEY      2022
                                        *                                                                        KEY      2023
                                        *         CALLS  EAL,TAGSEX,ADDWD.                                       KEY      2024
                                                                                                                 KEY      2025
                                                                                                                 KEY      2026
          1324  0400401324 +             SRJ      SUBR   0           ENTRY/EXIT...                               KEY      2027
          1325  7170000001                        SX7    1+                                                      KEY      2028
                          5170000000 X            SA7    CF=AC       INDICATE 1 ARGUMENT                         KEY      2029
          1326  57161                             =A1    B6-1        X1 = ARGUMENT                               KEY      2030
                     67661                        =B6    B6-1        POP THE ARGUMENT                            KEY      2031
                          10611                   BX6    X1                                                      KEY      2032
          1327  5110000000 X                      ADDWD  T.ARG       ARGUMENT IS ON T.ARG                        KEY      2033
          1330  5130000000 X                      SA3    GAPOP                                                   KEY      2034
                          0100000000 X            CALL   EAL         EMIT AP LIST                                KEY      2035
          1331  56150                             TAGSEX B5          FORM OPERAND FOR ROUTINE                    KEY      2036
          1332  10466                             BX4    X6          (P1) = ROUTINE                              KEY      2037
                     6175776455 -                 SB7    B5-S.PAUSE                                              KEY      2038
                               76510              SX5    B1          (2OP) = 1 ARGUMENT                          KEY      2039
          1333  6130000000 X                      SB3    V=STOP                                                  KEY      2040
                          20524                   LX5    TP.BIASP                                                KEY      2041
          1334  0570001335 +                      NZ     B7,SRJ6     IF NOT *PAUSE*                              KEY      2042
                          6130000000 X            SB3    V=PAUS                                                  KEY      2043
          1335  0100000000 X             SRJ6     CALL   EMT         EMIT TURPLE                                 KEY      2044
          1336  0400001324 +                      EQ     EXIT.                                                   KEY      2045
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    47
        SUBROUTINES.
  
                                                  LIST D                                                         KEY      2047
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        E.CL4 
             0 X                        E.IF08
             0 X                        CO.DBID 
  
                                        CONTENT OF LITERALS BLOCK.
  
          1337  24170000000000000000    TO
          1340  00000000000000000000
          1341  00000000000100000240         A  B5
          1342  00000000002050020440         P/BD5
          1343  00000000010000020300        A  BC 
          1344  00000000002000000300         P  C 
          1345  00000000004000000100         5  A 
          1346  00007777774000000000      ;;;5
  
          1347                                    END                                                            KEY      2048
  
                             75000B CM  STORAGE USED             7204 STATEMENTS     1725 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            6.627 SECONDS        1646 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/07 X    8/34     14/40     31/07     46/44
                                            5/14     11/43     15/06     46/09
        AGN2           16   PROGRAM*        3/42      3/46 L
        AGN4           22   PROGRAM*        3/52      3/56 L
        AGN5           33   PROGRAM*        4/20      4/23 L
        AGN6           35   PROGRAM*        4/23      4/27 L
        AGN7           42   PROGRAM*        4/28      4/38 L
        AGN8           51   PROGRAM*        4/47      5/04 L
        AGN9           52   PROGRAM*        5/02      5/08 L
        AG.BIASP       24   FTX             4/57
        AG.ORDP        54   FTX             4/56
        ALC             0   EXTERNAL*       2/07 X    8/37     30/47
        ALU             0   EXTERNAL*       2/35 X   29/19
        ANSI=           0   EXTERNAL*       2/45 X   30/25     43/20
        ARGCOMA         0   EXTERNAL*       2/10 X    6/56 S   26/54 S   29/39 S   42/46 S
        ARGMODE         0   EXTERNAL*       2/10 X    6/57 S   26/55 S   29/40 S   42/47 S
        ASK             0   EXTERNAL*       2/10 X    4/03
        ASL             0   EXTERNAL*       2/10 X    3/15
        ASSTAG          0   EXTERNAL*       2/10 X    3/40 S    4/38
        BLIA.W          1   FTX            26/28     27/23     28/27     30/56     37/57
        BLIB.W          0   FTX            28/25     28/27     30/51     30/56     37/14     37/57
        BLIC.W          5   FTX            30/57
        B1=1            0 
        CALLARM         0   EXTERNAL*       2/41 X    6/49
        CALLSYM       140   PROGRAM*        5/49 S    7/45 D
        CALLTAG         0   EXTERNAL*       2/10 X    6/33 S    7/12      7/36
        CCT             0   EXTERNAL*       2/10 X    5/55
        CEM          1155   PROGRAM*       11/21     39/15 L
        CEM15        1170   PROGRAM*       39/28     39/46 L
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        CEM5         1164   PROGRAM*       39/29     39/33 L
        CF=AC           0   EXTERNAL*       2/41 X    7/02      8/20     46/40 S
        CHAR            6   FTX             3/48      3/57
        CIM          1065   PROGRAM*       27/20     30/29     30/48     35/17 L
        CIM1         1075   PROGRAM*       35/21     35/51 L
        CIM2         1102   PROGRAM*       35/45     36/08 L
        CLASS           0   EXTERNAL*       2/21 X    4/29     22/16
        CLLA          137   PROGRAM*        6/36 S    7/14      7/42 L    8/24 S    8/25     25/07     43/33     43/35
        CLLB          140   PROGRAM*        7/43 L    7/45      8/25     43/34     43/35
        CLLC          141   PROGRAM*        7/23      7/44 L    8/33 S
        CLL22          72   PROGRAM*        6/02      6/06 L
        CLL23          74   PROGRAM*        6/07      6/10 L
        CLL24          76   PROGRAM*        5/52      6/15 L
        CLL30         100   PROGRAM*        6/13      6/23 L
        CLL33         106   PROGRAM*        6/29      6/32 L
        CLL35         112   PROGRAM*        6/37      6/40 L
        CLL40         121   PROGRAM*        7/12 L    7/40
        CLL48         130   PROGRAM*        7/16      7/26 L
        CLL60         132   PROGRAM*        6/41      6/48      7/34 L
        CLL62         134   PROGRAM*        7/34      7/36 L
        CMR             0   EXTERNAL*       2/41 X   43/21
        CONZER          0   EXTERNAL*       2/48 X   45/46
        CONZERI         0   EXTERNAL*       2/48 X    7/15
        CON2          162   PROGRAM*        8/56      9/02 L
        CON4          165   PROGRAM*        9/03      9/07 L
        CO.DBID         0   EXTERNAL*      37/25
        CRL           142   PROGRAM*        8/19 L    8/19 E
        CR.AGN          1   FTX             3/17
        CR.DEF          4   FTX            12/22     13/47
        CR.GOTO        55   FTX            19/18
        CR.IFN         55   FTX            31/41
        CR.RET         22   FTX            16/55
        CR.STR         23   FTX             3/16
        CR.SUB         55   FTX             5/40      6/25      6/25
        CR.VGOTO       55   FTX            19/22
        CSB             0   EXTERNAL*       2/10 X   35/02
        CSLTAG          0   EXTERNAL*       2/10 X   21/07     29/08     32/35
        CST             0   EXTERNAL*       2/38 X   30/15
        CT1             0   EXTERNAL*       2/11 X    6/27
        CURST           0   EXTERNAL*       2/41 X    7/28 S   21/25 S   28/39 S   30/33 S   38/09 S   42/51 S
        CUS.RET         0   EXTERNAL*       2/11 X   21/19     33/44     34/25     35/01
                                           21/13     21/26     33/53     34/29     35/05
        C=CERR          0   EXTERNAL*       2/41 X   43/13
        C=PJX        1243   PROGRAM*       43/06 L   43/06 E
        DH.ASP         72   FTX            14/24
        DH.MATP        70   FTX            42/03     42/05
        DORT.W          4   FTX            23/44
        DO.TAGL        22   FTX            28/04     28/05     36/50     36/51
        DO.TAGP        22   FTX            28/04     36/50
        DO.W            5   FTX            28/02     36/48
        DTI             0   EXTERNAL*       2/11 X   19/27     20/42     30/21     32/20
        DUC=            0   FTX             7/13     11/47     21/22     33/52     37/24
                                           10/06     17/26     24/54     36/15     40/16
        DUC=BOTH        3   FTX             7/22
        DUC=1ST         1   FTX            23/20     34/46     35/52     43/25
        DUC=2ND         2   FTX             4/40
        EAL             0   EXTERNAL*       2/41 X   46/46
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        ECC             0   EXTERNAL*       2/41 X   46/17
        EGL          1172   PROGRAM*        7/24     28/32     28/50     38/10     40/12 L
        EGLA         1200   PROGRAM*       40/15 S   40/18     40/22 L
        EIFA          676   PROGRAM*       28/31 S   28/33     28/36 S   28/45     28/53     29/22 L
        EIF0          627   PROGRAM*       27/37     27/41 L
        EIF1          631   PROGRAM*       27/46 L   28/20
        EIF2          646   PROGRAM*       27/54     28/22 L
        EIF3          654   PROGRAM*       28/29     28/36 L
        EIF4          663   PROGRAM*       28/48     28/52 L
        EIF5          667   PROGRAM*       28/55     28/56     29/04 L
        ELF           601   PROGRAM*       26/25     26/41 L
        ELFA          572   PROGRAM*       26/10 L   26/42
        ELF1          614   PROGRAM*       27/05     27/09 L
        ELF2          616   PROGRAM*       27/07     27/11     27/15 L
        ELF3          621   PROGRAM*       27/17     27/20 L
        ELS           600   PROGRAM*       26/22     26/31 L
        EMT             0   EXTERNAL*       2/41 X    7/22     17/26     24/54     34/55     37/24
                                            4/40     10/06     21/22     33/52     36/02     40/16
                                            7/13     11/47     23/20     34/52     36/15     46/55
        END20         172   PROGRAM*        9/30      9/38 L
        END23         167   PROGRAM*        9/23 L    9/23 E
        END26         174   PROGRAM*        9/39      9/43 L
        END60         201   PROGRAM*        9/48      9/53 L
        END74         203   PROGRAM*       10/03     10/08 L
        END80         205   PROGRAM*        9/49      9/51     10/09     10/12 L
        END90         206   PROGRAM*        9/45     10/13 L
        ENTA          264   PROGRAM*       10/44 S   11/39     12/21 S   12/24     12/30 L
        ENT1          215   PROGRAM*       10/33     10/37 L
        ENT20         227   PROGRAM*       10/49     11/05 L
        ENT21         231   PROGRAM*       11/05     11/10 L
        ENT22         233   PROGRAM*       11/08     11/13 L
        ENT40         234   PROGRAM*       10/57     11/20 L
        ENT80         250   PROGRAM*       10/51     10/55     11/22     12/01 L
        ENT90         253   PROGRAM*       11/50     12/14 L
        ERT             0   EXTERNAL*       2/11 X    6/25     12/22     13/49     16/55
        ESTACK          0   EXTERNAL*       2/11 X   44/34     45/24
        ESY             0   EXTERNAL*       2/11 X    6/18     11/13     13/33
        E.ANS           0   EXTERNAL*       2/18 X   12/52
        E.ANS3          0   EXTERNAL*       2/18 X   17/17
        E.AS1           0   EXTERNAL*       2/18 X    4/25
        E.AS2           0   EXTERNAL*       2/18 X    3/54
        E.AS3           0   EXTERNAL*       2/18 X    4/21
        E.AS4           0   EXTERNAL*       2/18 X    3/13
        E.AS5           0   EXTERNAL*       2/18 X    3/44
        E.AS7           0   EXTERNAL*       2/21 X    4/36      4/36     22/23
        E.CL1           0   EXTERNAL*       2/18 X    7/35
        E.CL2           0   EXTERNAL*       2/18 X    5/50
        E.CL3           0   EXTERNAL*       2/19 X    6/04
        E.CL4           0   EXTERNAL*       6/08
        E.CT            0   EXTERNAL*       2/19 X    9/07
        E.CT1           0   EXTERNAL*       2/19 X    9/01
        E.EN            0   EXTERNAL*       2/19 X   10/54
        E.EN1           0   EXTERNAL*       2/19 X   10/27
        E.EN2           0   EXTERNAL*       2/19 X   10/35
        E.EN3           0   EXTERNAL*       2/19 X   10/38
        E.EN4           0   EXTERNAL*       2/19 X   10/40
        E.EN5           0   EXTERNAL*       2/19 X   10/50
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        E.EN6           0   EXTERNAL*       2/20 X   39/30
        E.EN7           0   EXTERNAL*       2/20 X   39/41
        E.EN8           0   EXTERNAL*       2/20 X   39/47
        E.FM            0   EXTERNAL*       2/20 X   26/44     30/17
        E.GO            0   EXTERNAL*       2/20 X   20/09     23/05     24/27
        E.GO1           0   EXTERNAL*       2/20 X   19/19
        E.GO2           0   EXTERNAL*       2/20 X   21/11
        E.GO3           0   EXTERNAL*       2/20 X   22/40
        E.GO4           0   EXTERNAL*       2/20 X   22/30
        E.GO5           0   EXTERNAL*       2/21 X    9/04     21/12
        E.GO6           0   EXTERNAL*       2/21 X   43/20
        E.GO7           0   EXTERNAL*       2/21 X   20/17
        E.GO8           0   EXTERNAL*       2/21 X   23/02     25/02     25/02
        E.GO9           0   EXTERNAL*       2/21 X   23/09     43/12
        E.IF00          0   EXTERNAL*       2/22 X   29/53
        E.IF01          0   EXTERNAL*       2/22 X   27/18
        E.IF02          0   EXTERNAL*       2/22 X   30/25     30/25
        E.IF03          0   EXTERNAL*       2/22 X   32/03     32/10
        E.IF04          0   EXTERNAL*       2/22 X   33/49
        E.IF05          0   EXTERNAL*       2/22 X   33/43
        E.IF06          0   EXTERNAL*       2/22 X   30/20
        E.IF07          0   EXTERNAL*       2/22 X   31/36
        E.IF08          0   EXTERNAL*      27/13     27/39
        E.IF09          0   EXTERNAL*       2/23 X   30/03
        E.IF10          0   EXTERNAL*       2/23 X   32/19
        E.IF11          0   EXTERNAL*       2/23 X   30/05
        E.IF12          0   EXTERNAL*       2/23 X   26/48
        E.IF13          0   EXTERNAL*       2/23 X   27/43     36/34     38/02
        E.IF14          0   EXTERNAL*       2/23 X   27/06     27/06
        E.IF15          0   EXTERNAL*       2/23 X   28/17     37/06
        E.MDO           0   EXTERNAL*       2/23 X   19/31     32/26
        E.ME1           0   EXTERNAL*       2/24 X    9/41      9/41
        E.MR2           0   EXTERNAL*       2/24 X   13/11
        E.MR3           0   EXTERNAL*       2/24 X   13/57
        E.NL            0   EXTERNAL*       2/24 X   13/10
        E.NL1           0   EXTERNAL*       2/24 X   13/22
        E.NL2           0   EXTERNAL*       2/24 X   13/15
        E.NL3           0   EXTERNAL*       2/24 X   13/24
        E.NL4           0   EXTERNAL*       2/24 X   14/25
        E.NL5           0   EXTERNAL*       2/26 X   14/06
        E.OV3           0   EXTERNAL*       2/24 X    9/21
        E.SPR1          0   EXTERNAL*       2/25 X   45/42
        E.SPR2          0   EXTERNAL*       2/25 X   46/02     46/02
        E.SPR4          0   EXTERNAL*       2/25 X   17/50     45/31
        E.SPR5          0   EXTERNAL*       2/25 X   17/55     17/55
        FBS             0   EXTERNAL*       2/35 X   28/22     37/11
        FEC=STF         0   EXTERNAL*       2/11 X   10/31
        FEC.RIF         0   EXTERNAL*       2/11 X   30/28     30/34
        FEC.RTF         0   EXTERNAL*       2/11 X   10/13
        FEC.RTN         0   EXTERNAL*       2/12 X   14/09     15/17     20/12
        FIB          1107   PROGRAM*       26/23     36/32 L
        FIB1         1111   PROGRAM*       36/36 L   37/09
        FIB2         1125   PROGRAM*       36/43     37/11 L
        FIB3         1132   PROGRAM*       37/16     37/22 L
        FIB3A        1146   PROGRAM*       37/26     37/28     37/31     37/53 L
        FIB4         1147   PROGRAM*       37/20     37/55 L
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        FILL.           0   EXTERNAL*       2/25 X    4/35 S   10/43 S   22/22 S   29/56 S
                                            3/53 S    5/48 S   14/05 S   28/16 S   37/05 S
        FILL.2          0   EXTERNAL*       2/21 X    4/31 S   22/18 S   29/18 S
        FILL.3          0   EXTERNAL*       2/25 X   31/35 S
        FLOW            0   EXTERNAL*       2/12 X    9/46     12/17 S   29/02 S   30/27     34/27     37/19 S
        FUDGE           1   FTX            40/53     40/57
        F.IFN           0   EXTERNAL*       2/54 X   34/04
        F.IFS           0   EXTERNAL*       2/54 X   31/27     33/56     34/02
        GAPOP           0   EXTERNAL*       2/41 X   46/45
        GOA           461   PROGRAM*       19/34     22/04 L
        GOA10         471   PROGRAM*       22/15     22/25 L
        GOA20         474   PROGRAM*       22/27     22/29     22/31 L
        GOA22         476   PROGRAM*       22/34     22/37 L
        GOA30         501   PROGRAM*       22/39     22/46 L
        GOA32         502   PROGRAM*       22/47 L   23/03
        GOA36         510   PROGRAM*       23/01     23/03 L
        GOA60         514   PROGRAM*       23/07     23/16 L   23/30     24/02
        GOA70         521   PROGRAM*       22/38     23/29 L
        GOA80         524   PROGRAM*       23/36 L   24/01
        GOA88         532   PROGRAM*       23/43     24/01 L
        GOC           533   PROGRAM*       19/26     24/19 L
        GOC2          533   PROGRAM*       24/21 L   24/25
        GOC4          542   PROGRAM*       24/33     24/36 L
        GOC6          545   PROGRAM*       24/45 L   25/05
        GOC7          555   PROGRAM*       25/01     25/04 L
        GOT           427   PROGRAM*       19/28     19/30     19/33 L
        GOTA          137   PROGRAM*       20/49 S   21/06     21/20     23/17 S   23/18     25/07 D
        GOT6          436   PROGRAM*       20/16     20/19 L
        GOT7          444   PROGRAM*       20/24     20/47 L
        GOT7A         447   PROGRAM*       20/50     21/06 L
        GOT7B         454   PROGRAM*       21/10     21/19 L
        HANGER          0   EXTERNAL*       2/12 X   20/51 S   32/23 S   32/33 S
        IDP=            0   EXTERNAL*       2/32 X
        IFARM           0   EXTERNAL*       2/41 X   26/51     29/36
        IFFLAG       1064   PROGRAM*       31/47 S   32/16 S   35/07 L   35/07 E
        IFL           744   PROGRAM*       30/01     31/26 L
        IFLEVEL         0   EXTERNAL*       2/12 X   27/41     30/44     36/33
        IFLN          564   PROGRAM*       20/47 S   26/07 L   31/56 S   32/47     33/50
                                           21/09     26/07 E   32/32     33/12     34/50
        IFL20         752   PROGRAM*       31/31     31/38 L
        IFL30         757   PROGRAM*       31/51 L   32/07
        IFL40         767   PROGRAM*       32/02     32/06     32/14 L
        IFL50         777   PROGRAM*       32/21     32/31 L
        IFL52        1003   PROGRAM*       32/39 L   32/43
        IFL60        1005   PROGRAM*       32/42     32/47 L
        IFL61        1010   PROGRAM*       32/52     32/54 L
        IFL62        1012   PROGRAM*       32/55     32/57 L
        IFL63        1013   PROGRAM*       33/01     33/11 L
        IFL63A       1015   PROGRAM*       33/16 L   33/19     33/21     33/33
        IFL63B       1023   PROGRAM*       33/17     33/35 L
        IFL64        1025   PROGRAM*       33/36     33/40 L
        IFL65        1031   PROGRAM*       33/42     33/46 L
        IFL70        1037   PROGRAM*       33/41     33/55 L
        IFL80        1045   PROGRAM*       34/01     34/03     34/09     34/17 L
        IFL90        1052   PROGRAM*       33/48     34/45 L
        IFMOD         560   PROGRAM*       26/03 L   26/03 E   27/15     29/57     31/26     33/55     34/17
        IFNEST        557   PROGRAM*       26/02 L   31/40 S   33/35     33/47     34/57     35/04 S
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        IFREL1        562   PROGRAM*       26/05 L   26/56 S   29/41 S   35/39 S   35/55 S   44/07
        IFREL2        563   PROGRAM*       26/06 L   26/06 E   35/20
        IFRESLT       561   PROGRAM*       26/04 L   26/04 E   34/48     35/56
        IFS           677   PROGRAM*       29/32 L   29/32 E
        IFSA          570   PROGRAM*       26/08 L   34/51 S   36/01 S
        IFSB          571   PROGRAM*       26/09 L   27/03     30/09
        IFS11         711   PROGRAM*       30/07 L   30/07 E
        IFS30         714   PROGRAM*       30/11     30/15 L
        IFS40         722   PROGRAM*       30/22     30/24     30/27 L
        IFT           727   PROGRAM*       30/13     30/44 L
        INIF          556   PROGRAM*        9/02     18/05     19/29     26/01 L   30/04     31/38     44/11 S
                                           17/21     18/27     20/20     26/01 E   30/30 S   32/24 S
        ISL             0   EXTERNAL*       2/35 X    3/22     20/11     22/51     24/51     31/54
        KW=ASSI         0   PROGRAM*        3/10 L    3/10 E
        KW=CALL        57   PROGRAM*        5/36 L    5/36 E
        KW=CONT       157   PROGRAM*        8/52 L    8/52 E
        KW=ELSE       573   PROGRAM*       26/20 L   26/20 E
        KW=END        166   PROGRAM*        9/18 L    9/18 E
        KW=ENDI       625   PROGRAM*       27/35 L   27/35 E
        KW=ENTR       207   PROGRAM*       10/23 L   10/23 E
        KW=GOTO       417   PROGRAM*       19/15 L   19/15 E
        KW=NAME       265   PROGRAM*       12/50 L   12/50 E
        KW=PAUS       354   PROGRAM*       16/23 L   16/23 E
        KW=RETU       356   PROGRAM*       16/48 L   16/48 E
        KW=STOP       413   PROGRAM*       18/23 L   18/23 E
        KW.DONP        51   FTX            30/23
        KW.LENP        22   FTX             4/01
        KW.NIFP        50   FTX            30/19     30/23
        LC.CNTL        22   FTX            23/39     27/57     36/46
        LC.CNTP         0   FTX            27/55     36/44
        LC.DOL         22   FTX            23/40     23/41     27/53     36/42
        LC.DOP         44   FTX            23/40     27/51     27/55     36/40     36/44
        LC.LINEP       22   FTX            31/05
        LJS             0   EXTERNAL*       2/48 X   28/15     37/04
        MND          1201   PROGRAM*       10/12     40/43 L
        MND20        1206   PROGRAM*       41/05 L   41/26     42/20
        MND28        1214   PROGRAM*       41/20     41/28 L
        MND30        1217   PROGRAM*       41/45 L   42/18
        MND40        1224   PROGRAM*       41/56     42/09 L
        MND45        1230   PROGRAM*       42/11     42/12     42/18 L
        MND70        1232   PROGRAM*       41/05     42/22 L
        MOD             0   EXTERNAL*       2/48 X    9/43     10/25     10/46     11/20     16/50
        MOD.DPC         0   EXTERNAL*       2/25 X   31/33
        MO.BLKL         1   FTX             9/44
        MO.BLKP        10   FTX             9/44      9/47
        MO.CLIFL       23   FTX            39/36
        MO.CLIFP       35   FTX            39/34     39/36     39/37
        MO.FUNL         1   FTX            10/48     39/17
        MO.FUNP        13   FTX            10/48     17/53     39/17     39/20
        MO.MODEL        3   FTX            39/19     39/23
        MO.MODEP        0   FTX            39/20     39/34
        MO.PROP        11   FTX             9/47     10/26     16/52     17/53
        MVE=            0   EXTERNAL*       3/02 X    8/40
        M.BOOL          0   FTX            22/28
        M.CHAR          6   FTX            39/22     39/27
        M.INT           2   FTX             4/19     22/26     43/16
        M.LOG           1   FTX            27/16     30/02
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        NAMA          350   PROGRAM*       13/29 S   15/08     15/27 L
        NAMB          351   PROGRAM*       13/05 S   13/39 S   14/32     15/03     15/28 L
        NAMC          353   PROGRAM*       13/43 S   15/23     15/29 L
        NAM1          267   PROGRAM*       13/05 L   15/16
        NAM1.5        277   PROGRAM*       13/17     13/21 L
        NAM2          314   PROGRAM*       13/45     13/55 L   15/02
        NAM3          330   PROGRAM*       14/17     14/32 L
        NAM4          335   PROGRAM*       14/39     14/44 L
        NAM5          342   PROGRAM*       15/04     15/08 L
        NAM.ERR       346   PROGRAM*       14/01     14/07     14/10     14/26     15/23 L
        NG.GROPP       36   FTX            13/35     13/37     41/13
        NG.NMEML       17   FTX            41/09
        NG.NMEMP       55   FTX            15/13     41/07     41/13
        NG.ORDL        17   FTX            14/35     14/41     40/51     41/09     41/23     41/33     41/45     42/14
        NOLIST          0   EXTERNAL*       2/48 X    9/27
        NOOPP           0   EXTERNAL*       2/42 X   34/55
        NOPATH          0   EXTERNAL*       2/12 X   17/06 S   18/08 S   20/22 S   23/22 S   33/38 S
                                           10/29 S   17/40 S   18/30 S   20/39 S   28/52     37/15
        N.ARP           0   EXTERNAL*       2/48 X   18/02 S
        N.FP            0   EXTERNAL*       2/48 X   10/08
        N.GL            0   EXTERNAL*       2/48 X    8/23     31/08     36/08     44/02
        OCT             0   EXTERNAL*       2/12 X
        OIL             0   EXTERNAL*       2/12 X   12/27     40/17
        OM=IF           0   EXTERNAL*       2/54 X   34/28
        OPDUM           0   EXTERNAL*       2/42 X   34/46     35/52     43/25
        OR.OPR          0   FTX            35/34     44/12
        OR.1OP          1   FTX            37/40     37/46
        OR.2OP          2   FTX            44/17 S
        O.CHAR          4   FTX            45/27
        O.COMMA        42   FTX             3/41     22/33     23/04     24/32     31/57
                                           15/01     22/57     24/22     24/32     31/57
        O.CONS          5   FTX             3/12     29/54     45/28
        O.EOS           0   FTX             4/24      8/57      9/40     23/08     27/12     27/38     43/11     45/30
        O.LP           37   FTX             6/40     19/20     22/37     26/47
        O.RP           40   FTX             6/46     23/04     24/26
        O.SLASH        17   FTX            13/09     13/21
        O.SLP          44   FTX             6/43     24/28     24/48     26/49     29/34
        O.VAR          11   FTX             5/44     10/39     13/16     19/33     26/10
                                            6/35     13/14     14/04     26/09
        PAR             0   EXTERNAL*       2/42 X    7/01     26/57     29/43     42/48
        PDA             0   EXTERNAL*       2/35 X    6/31     17/03
        PDM             0   EXTERNAL*       2/45 X    4/36      9/04     17/55     22/30     27/06     31/36     43/12
                                            3/44      6/04      9/41     19/31     22/40     27/13     32/26     43/23
                                            3/54      6/08     12/01     20/17     23/02     27/18     33/43     45/31
                                            4/21      7/35     12/52     21/12     23/09     27/39     33/49     45/42
                                            4/25      9/01     17/50     22/23     25/02     28/17     37/06     46/02
        PJX          1234   PROGRAM*       18/04     24/39     42/40 L
        PJXA          137   PROGRAM*       43/33 D
        PJXARM          0   EXTERNAL*       2/42 X   42/41
        PJXB          140   PROGRAM*       42/42 S   43/26     43/34 D
        PJX4         1246   PROGRAM*       43/10     43/15 L
        PJX8         1253   PROGRAM*       43/19     43/22     43/25 L
        POP.STD         0   EXTERNAL*       2/42 X   43/31
        PSA             0   EXTERNAL*       2/29 X   12/23
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        PSL             0   EXTERNAL*       2/35 X    5/15      9/08     17/44     20/43     24/49     29/07     32/25
                                            3/23      5/56     12/28     18/10     20/52     26/31     29/09     32/27
                                            4/06      7/29     16/27     18/28     22/48     27/25     29/20
                                            5/13      9/05     17/27     18/31     23/23     27/48     31/11
        RBE             0   EXTERNAL*       2/35 X   28/19     37/08
        REFLIN          0   EXTERNAL*       2/12 X   31/03
        REFNUM          0   EXTERNAL*       2/13 X    3/21 S   19/21 S
        REFVAR          0   EXTERNAL*       2/13 X    3/19 S    5/41 S   19/25 S   31/43 S
        RIT          1256   PROGRAM*       17/43     20/41     44/01 L
        RTNCNT          0   EXTERNAL*       2/13 X   17/37
        RTN1          362   PROGRAM*       16/53     16/57 L
        RTN2          364   PROGRAM*       17/01     17/05 L
        RTN3          366   PROGRAM*       17/16 L   17/51
        RTN4          370   PROGRAM*       17/12     17/21 L   17/56
        RTN8          374   PROGRAM*       17/22     17/36 L
        RTN9          400   PROGRAM*       17/11     17/49 L
        RTN92         403   PROGRAM*       17/49     17/53 L
        RTN94         406   PROGRAM*       17/54     18/01 L
        RTN98         412   PROGRAM*       18/06     18/10 L
        SB=CONT         0   EXTERNAL*       2/38 X    9/20
        SCT             0   EXTERNAL*       2/13 X    5/12     46/05
        SER          1266   PROGRAM*        9/50     17/16     44/32 L
        SPR          1274   PROGRAM*       16/26     18/26     45/22 L
        SPR13        1301   PROGRAM*       45/29     45/32 L
        SPR15        1304   PROGRAM*       45/33     45/42 L
        SPR20        1305   PROGRAM*       45/26     45/46 L
        SPR30        1307   PROGRAM*       45/32     45/53 L
        SPR34        1312   PROGRAM*       46/01     46/03 L
        SPR36        1316   PROGRAM*       46/08     46/10 L
        SPR40        1317   PROGRAM*       45/40     46/17 L
        SPR60        1320   PROGRAM*       45/49     46/18 L
        SP.SKELP       52   FTX            34/47     35/51     43/28
        SRJ          1324   PROGRAM*       44/39     46/18     46/38 L
        SRJ6         1335   PROGRAM*       46/53     46/55 L
        SSY             0   EXTERNAL*       2/13 X    5/51     10/45     13/23
        STAGE           0   EXTERNAL*       2/13 X   10/30
        STL0R           0   EXTERNAL*       2/35 X   20/13     22/52     24/55
        STY             0   EXTERNAL*       2/13 X   11/10
        S=ENTRY         0   EXTERNAL*       2/48 X   16/51
        S=EXIT          0   EXTERNAL*       2/49 X   17/36
        S=TRACE         0   EXTERNAL*       2/49 X   44/33
        S=VALUE         0   EXTERNAL*       2/49 X   11/25
        S.END        1273   PROGRAM*       44/37     44/42 L
        S.PAUSE      1322   PROGRAM*       16/25     46/21 L   46/49
        S.STOP       1323   PROGRAM*       18/25     46/22 L
        TB=LABL         0   EXTERNAL*       2/38 X   29/16
        TB=LABR         0   EXTERNAL*       2/38 X    8/55     20/14     22/53     24/56
        TB=TYPE         0   EXTERNAL*       2/38 X   30/16
        TB=1ST          0   EXTERNAL*       2/38 X   24/40
        TB.CLCNL       17   FTX            45/36
        TB.CLCNP       33   FTX            45/38
        TB.SHCL        22   FTX            45/35
        TB.SHCP        52   FTX            45/34     45/38
        TB.TOCL        52   FTX             5/43     10/41     26/09     26/10     29/51     45/54
        TB.TOTL        22   FTX             5/45     26/09     26/10
        TEST            0   FTX             5/23 F    6/50 F    9/54 F   15/52 F   35/36 F   41/11 F   41/47 F
        TH.SKELL       16   FTX            35/35     44/10
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        TH.SKELP       56   FTX            35/40     35/43     44/14     44/18
        TLV             0   EXTERNAL*       2/13 X    6/38     13/18
        TP.BIASP       24   FTX             7/04      7/18      7/19     24/38     46/52
        TP.MODEL        3   FTX            43/08
        TP.ORBIL       50   FTX             5/04
        TP.ORDL        20   FTX             3/25      5/09     23/47     33/23
        TP.ORDP        54   FTX             3/26      8/30     11/48     28/08     32/36     36/11     44/35
                                            3/36     11/45     17/39     30/53     33/22     36/54
        TRV             0   EXTERNAL*       2/13 X    4/05     14/08     22/05
        TSX             0   EXTERNAL*       2/13 X   46/47
        T=ARG           0   EXTERNAL*       2/49 X    5/39      5/39 S
        T=BLST          0   EXTERNAL*       2/49 X   10/34     23/29     26/27     27/47     28/41     30/50     37/13
                                            6/28     16/57     26/21     27/22     28/24     29/04     36/37     37/56
        T=NLST          0   EXTERNAL*       2/49 X   13/25     13/41     15/24     15/24 S   40/45     42/25     42/25 S
        T=PAR           0   EXTERNAL*       2/49 X   21/23     30/31     37/29     42/49
                                            7/26     28/37     35/31     38/07     44/05
        T=SLARG         0   EXTERNAL*       2/51 X    5/38      5/38 S    8/35      8/41      8/41 S
        T.ARG           0   EXTERNAL*       2/50 X    8/34      8/34     46/44     46/44
        T.ASG           0   EXTERNAL*       2/50 X    5/12      5/14
        T.BLST          0   EXTERNAL*       2/50 X   26/26     27/46     28/40     30/49     36/36     37/55
                                           23/33     27/21     28/23     30/47     31/07     37/12
        T.CON           0   EXTERNAL*       2/51 X   46/05     46/05
        T.DIM           0   EXTERNAL*       2/50 X   14/18     40/47
        T.ENT           0   EXTERNAL*       2/50 X   11/43
        T.NLST          0   EXTERNAL*       2/50 X   14/40     14/40     15/06     15/06     40/44     42/22
        T.PAR           0   EXTERNAL*       2/50 X   35/30     37/32     44/03
        T.SLARG         0   EXTERNAL*       2/51 X    8/39
        T.SYM           0   EXTERNAL*       2/51 X    4/44     11/33     28/12     37/01
                                            3/24     11/13     23/53     33/11     40/46
        VEL             0   EXTERNAL*       2/42 X    7/38
        V=AGOTO         0   EXTERNAL*       2/54 X   23/20
        V=ASSGN         0   EXTERNAL*       2/54 X    4/40
        V=BSS           0   EXTERNAL*       2/54 X   40/16
        V=CGOTO         0   EXTERNAL*       2/54 X   24/37
        V=ENTR          0   EXTERNAL*       2/54 X   11/47
        V=GOTO          0   EXTERNAL*       2/55 X   21/22     33/52     37/24
        V=IFF           0   EXTERNAL*       2/55 X   35/18
        V=IFT           0   EXTERNAL*       2/55 X   35/19
        V=I111          0   EXTERNAL*       2/55 X   33/46
        V=JGOTO         0   EXTERNAL*       2/55 X   24/54
        V=NOOP          0   EXTERNAL*       2/55 X   36/15
        V=PAUS          0   EXTERNAL*       2/55 X   46/54
        V=RET           0   EXTERNAL*       2/55 X   10/06     17/26
        V=RGOTO         0   EXTERNAL*       2/56 X    7/22
        V=RTNK          0   EXTERNAL*       2/56 X   18/01
        V=STOP          0   EXTERNAL*       2/56 X   46/51
        V=SUBR          0   EXTERNAL*       2/56 X    7/13
        WANFP           0   EXTERNAL*       2/14 X   12/18     12/26 S
        WA.STLP        30   FTX            28/14     37/03
        WA.SYML        52   FTX             4/33     13/12     14/02     22/20
        WA.W            0   FTX            33/13
        WB.ACTP        13   FTX            33/30
        WB.AGNL         1   FTX             4/08
        WB.AGNP        30   FTX             4/08
        WB.AGO2P       24   FTX            22/08
        WB.ARYL         1   FTX            22/14     41/54
        WB.ARYP        12   FTX             4/27      4/29     14/16     22/14     22/16     41/54     41/57
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        WB.BASEL       14   FTX             4/50      4/51      4/53
        WB.BASEP       41   FTX             4/51
        WB.DEFL         1   FTX             4/08     10/47     13/26     14/11
        WB.DEFP         7   FTX             4/08     10/47     13/26     14/11
        WB.ENTL         1   FTX             5/53     10/47
        WB.ENTP        15   FTX             5/53     10/47
        WB.EQVL         1   FTX             4/49
        WB.EQVP        11   FTX             4/46      4/49
        WB.EXTL         1   FTX             5/57      6/15
        WB.EXTP        16   FTX             5/57      6/15
        WB.FPL          1   FTX            10/52
        WB.FPP         20   FTX            10/52
        WB.FUNP        14   FTX             6/01      6/06
        WB.GENFL        1   FTX             5/53
        WB.GENFP       25   FTX             5/53
        WB.GOTOL        1   FTX            20/10     22/50     24/50     31/52
        WB.GOTOP       35   FTX            20/10     22/50     24/50     31/52
        WB.INTFL        1   FTX             5/53
        WB.INTFP       27   FTX             5/53
        WB.MATL         1   FTX            10/47     41/19
        WB.MATP        36   FTX            10/47     41/19     41/31     41/36     42/03     42/05
        WB.MODEL        3   FTX             4/13     11/26     22/06     39/23
        WB.MODEP        0   FTX             4/27
        WB.NLSTL        1   FTX             5/53     13/26
        WB.NLSTP       34   FTX             5/53     13/26
        WB.NVARL        1   FTX             5/57      6/15     10/47     10/52     13/26
        WB.NVARP        6   FTX             5/57      6/15     10/47     10/52     13/26
        WB.PARML        1   FTX             5/53
        WB.PARMP       10   FTX             5/53
        WB.PNTL        15   FTX            14/20     41/35     42/17
        WB.PNTP        57   FTX            13/28     14/19     41/31     41/34     41/57
        WB.SFAP        40   FTX             4/07     14/13     22/07
        WB.SREFL        1   FTX            20/10     22/50     24/50     31/52
        WB.SREFP        6   FTX            20/10     22/50     24/50     31/52
        WB.SUBL         1   FTX             5/57      6/15
        WB.SUBP        13   FTX             5/54      5/57      6/15
        WB.TYPP        31   FTX             6/06      6/10
        WB.VARL         1   FTX             4/08      5/53     10/52     14/11
        WB.VARP         5   FTX             4/08      5/53     10/52     14/11
        WB.W            1   FTX             3/31      4/48     11/34     23/52     29/11     33/13     39/33     40/55
        WC.CLIFP       35   FTX            39/35
        WC.RAL         30   FTX             4/54      4/55
        WC.RAP          0   FTX             4/54
        WC.W            2   FTX             4/48     39/33
        WO.LOA          0   EXTERNAL*       2/51 X    9/28
        WO.LOR          0   EXTERNAL*       2/51 X    9/29     13/44
        WSA             0   EXTERNAL*       2/29 X   10/10
        XR.LINEP        6   FTX            31/05
        XR.TAGP        52   FTX             6/24     12/15     13/48     16/54
        ZTB             0   EXTERNAL*       3/02 X   46/04
        Z=BLST         10   FTX            26/28     28/25     30/47     30/57     37/14
                                           27/23     29/05     30/51     31/04
        Z=SYM           3   FTX            23/51     28/11     29/14     36/57     41/18     41/52
        Z=TURP          3   FTX            35/34     37/35     37/41     37/47     44/12     44/17 S
1       KEY - KEYWORD STATEMENT TRANSLATION.                          COMPASS 3.7-871.     24/05/02. 13.16.00.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        .A              0                   4/40 D    7/22 D   11/47 D   21/22 D   24/54 D   34/52 D   36/02 D   37/24 D
                                            4/40      7/22     11/47     21/22     24/54     34/52     36/02     37/24
                                            7/13 D   10/06 D   17/26 D   23/20 D   33/52 D   34/55 D   36/15 D   40/16 D
                                            7/13     10/06     17/26     23/20     33/52     34/55     36/15     40/16
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      267              IDENT  CDDIR
                        267                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       264 
                                        LITERALS* LOCAL         264         3 
  
  
                                        ENTRY POINTS. 
  
                                        B=CDDIR          0+           K$=ENDC         23+           K$=ELSE         73+ 
                                        K$=COLL          0+           K$=DO           24+           K$=ENDI        112+ 
                                        K$=BEGC         22+           K$=IF           42+           K$=LIST        130+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       STAGE     E.C$06    FILL.2    SB=LINC   T=C$IF    WO.LOM    V=CDLOO 
                                        ERT       E.C$00    E.C$07    CO.LOA    SB=LORD   T=STMT    WO.LOO
                                        ERT=OFF   E.C$01    E.C$08    CO.LOM    EMT       T.C$IF    WO.LOR
                                        ERT=ON    E.C$02    E.C$09    CO.LOO    PIX       WO.CS     WO.LOS
                                        FEC=BY    E.C$03    E.C$10    CO.LOR    PKX       WO.DOLG   T.CON 
                                        FEC.RTN   E.C$04    E.C$11    CO.LOS    PDM       WO.DOOT   V=CDCS
                                        OIL       E.C$05    FILL.     LDB       LINES     WO.LOA    V=CDDOT 
  
  
  
  
                                                  IDENT  CDDIR                                                   CDDIR       2
                                         CDDIR    SECT   (C$ DIRECTIVE PROCESSING.)                              CDDIR       3
  
  
  
  
  
                                        *         IN ALLOC                                                       CDDIR       5
                                                  EXT    ADW                                                     CDDIR       6
                                                                                                                 CDDIR       7
                                        *         IN FEC                                                         CDDIR       8
                                                  EXT    ERT,ERT=OFF,ERT=ON,FEC=BY,FEC.RTN,OIL,STAGE             FC50703     8
                                                                                                                 CDDIR      10
                                        *         IN FERRS                                                       CDDIR      11
                                                  EXT    E.C$00,E.C$01,E.C$02,E.C$03,E.C$04,E.C$05,E.C$06,E.C$07 CDDIR      12
                                                  EXT    E.C$08,E.C$09,E.C$10,E.C$11,FILL.,FILL.2                CDDIR      13
                                                                                                                 CDDIR      14
                                        *         IN FTN                                                         CDDIR      15
                                                  EXT    CO.LOA,CO.LOM,CO.LOO,CO.LOR,CO.LOS                      CDDIR      16
                                                                                                                 CDDIR      17
                                        *         IN LEX                                                         CDDIR      18
                                                  EXT    LDB,SB=LINC,SB=LORD                                     CDDIR      19
                                                                                                                 CDDIR      20
                                        *         IN PAR                                                         CDDIR      21
                                                  EXT    EMT,PIX,PKX                                             CDDIR      22
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     2
                                                                      EXTS
  
                                                                                                                 CDDIR      23
                                        *         IN PEM                                                         CDDIR      24
                                                  EXT    PDM                                                     CDDIR      25
                                                                                                                 CDDIR      26
                                        *         IN PUC                                                         CDDIR      27
                                                  EXT    LINES,T=C$IF,T=STMT,T.C$IF,WO.CS,WO.DOLG,WO.DOOT,WO.LOA CDDIR      28
                                                  EXT    WO.LOM,WO.LOO,WO.LOR,WO.LOS,T.CON                       FC5A157     6
                                                                                                                 CDDIR      30
                                        *         IN QSKEL/FSKEL                                                 CDDIR      31
                                                  EXT    V=CDCS,V=CDDOT,V=CDLOO                                  CDDIR      32
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     3
        C$ COLLATE DIRECTIVE. 
  
                                        **        TRANSLATE C$ COLLATE DIRECTIVE.                                CDDIR      34
                                                                                                                 CDDIR      35
                                                                                                                 CDDIR      36
             0                                    HEREIF C$COLLATE                                               CDDIR      37
                                                                                                                 CDDIR      38
             0  76640                             SX6    B4                                                      FC50703     9
                     5160000021 +                 SA6    COLA        PRESERVE (B4)                               FC50703    10
             1  0100000000 X                      CALL   OIL         BREAK SEQUENCE [FOR FUNCTION SELECTION]     FC50703    11
             2  5110000021 +                      SA1    COLA                                                    FC50703    12
                          63410                   SB4    X1          RESTORE (B4)                                FC50703    13
                               56140              SA1    B4                                                      CDDIR      39
             3  6221777740                        SB2    X1-O.LP                                                 CDDIR      40
                          56141                   =A1    B4+1                                                    CDDIR      41
             4  0520000000 X                      NZ     B2,E.C$08   IF NOT *(*                                  CDDIR      42
                          5120000264 +            SA2    =4LUSER                                                 CDDIR      43
             5  6221777766                        SB2    X1-O.VAR                                                CDDIR      44
                          0520000000 X            NZ     B2,E.C$07   IF NOT C$ PARAMETER                         CDDIR      45
             6  43052                             MX0    TB.TOCL                                                 CDDIR      46
                     11101                        BX1    X0*X1       CHARACTER STRING ONLY                       CDDIR      47
                          76610                   =X6    1                                                       CDDIR      48
                               37221              IX2    X2-X1                                                   CDDIR      49
             7  0302000013 +                      ZR     X2,COL      IF *USER*                                   CDDIR      50
                          5120000265 +            SA2    =5LFIXED                                                CDDIR      51
            10  37221                             IX2    X2-X1                                                   CDDIR      52
                     76600                        =X6    0                                                       CDDIR      53
                          0302000013 +            ZR     X2,COL      IF *FIXED*                                  CDDIR      54
            11  22601                             LX6    X1                                                      CDDIR      55
                     5160000000 X                 SA6    FILL.2                                                  CDDIR      56
            12  0400000000 X                      EQ     E.C$00      NOT A LEGAL C$ PARAMETER                    CDDIR      57
                                                                                                                 CDDIR      58
            13  5011000001               COL      SA1    A1+1                                                    CDDIR      59
                          6144000002              SB4    B4+2                                                    CDDIR      60
            14  6221777737                        SB2    X1-O.RP                                                 CDDIR      61
                          0520000000 X            NZ     B2,E.C$06   IF NOT *)*                                  CDDIR      62
            15  5160000000 X                      SA6    WO.CS                                                   CDDIR      63
                          7140010002              CLAS=  X4,TP,(SHRT),INT                                        CDDIR      64
            16  20624                             LX6    TP.BIASP                                                CDDIR      65
                     7150000000                   SX5    0                                                       CDDIR      66
                               12464              BX4    X6+X4                                                   CDDIR      67
            17  6130000000 X                      EMIT   V=CDCS,NONE                                             CDDIR      68
            20  0400000000 X                      EQ     FEC.RTN                                                 CDDIR      69
                                                                                                                 FC50703    14
            21                     1     COLA     BSS    1           PRESERVE (B4) ACROSS OIL                    FC50703    15
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     4
        C$ COMDECK DIRECTIVES.
  
                                        **        TRANSLATE C$ COMDECK DIRECTIVES.                               CDDIR      71
                                        *                                                                        CDDIR      72
                                        *         THESE ARE CURRENTLY STUBS.  IMPLEMENTATION WILL BE BY FEATURE  CDDIR      73
                                        *         CODE AT A LATER DATE.                                          CDDIR      74
  
  
  
  
                                        **        TRANSLATE C$ BEGCOM DIRECTIVE.                                 CDDIR      76
                                                                                                                 CDDIR      77
                                                                                                                 CDDIR      78
            22                                    HEREIF C$BEGCOM                                                CDDIR      79
            22  0400000000 X                      EQ     FEC.RTN                                                 CDDIR      80
  
  
  
  
                                        **        TRANSLATE C$ ENDCOM DIRECTIVE.                                 CDDIR      82
                                                                                                                 CDDIR      83
                                                                                                                 CDDIR      84
            23                                    HEREIF C$ENDCOM                                                CDDIR      85
            23  0400000000 X                      EQ     FEC.RTN                                                 CDDIR      86
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     5
        C$ DO DIRECTIVE.
  
                                        **        TRANSLATE C$ DO DIRECTIVE.                                     CDDIR      88
                                                                                                                 CDDIR      89
                                                                                                                 CDDIR      90
            24                                    HEREIF C$DO                                                    CDDIR      91
                                                                                                                 CDDIR      92
            24  7160000036 +                      SX6    FW.DO                                                   CDDIR      93
                          7170000004              SX7    L.DO                                                    CDDIR      94
            25  0100000217 +                      RJ     TCP         TRANSLATE C$ PARAMETERS                     CDDIR      95
                                                                                                                 CDDIR      96
            26  5110000037 +                      SA1    DO=LONG                                                 CDDIR      97
                          0321000030 +            PL     X1,DO1      IF C$ DO(LONG= ) NOT SPECIFIED              CDDIR      98
            27  14611                             BX6    -X1         COMPLEMENT FOR VALUE                        CDDIR      99
                     54610                        SA6    A1          CLEAR (TO POSITIVE)                         CDDIR     100
                          5160000000 X            SA6    WO.DOLG     UPDATE                                      CDDIR     101
                                                                                                                 CDDIR     102
            30  5110000041 +             DO1      SA1    DO=OT                                                   CDDIR     103
                          0321000000 X            PL     X1,FEC.RTN  IF C$ DO(OT= ) NOT SPECIFIED                CDDIR     104
            31  14611                             BX6    -X1         COMPLEMENT FOR VALUE                        CDDIR     105
                     54610                        SA6    A1          CLEAR (TO POSITIVE)                         CDDIR     106
                          5160000000 X            SA6    WO.DOOT                                                 CDDIR     107
            32  7140010002                        CLAS=  X4,TP,(SHRT),INT                                        CDDIR     108
                          20624                   LX6    TP.BIASP                                                CDDIR     109
                               12464              BX4    X6+X4                                                   CDDIR     110
            33  43500                             MX5    0                                                       CDDIR     111
                     6130000000 X                 EMIT   V=CDDOT,NONE                                            CDDIR     112
            35  0400000000 X                      EQ     FEC.RTN                                                 CDDIR     113
                                                                                                                 CDDIR     114
            36                           FW.DO    BSS                                                            CDDIR     115
            36  14171607000000000000              DATA   4LLONG                                                  CDDIR     116
            37  00000000000000000000     DO=LONG  CON    0                                                       CDDIR     117
            40  17240000000000000000              DATA   2LOT                                                    CDDIR     118
            41  00000000000000000000     DO=OT    CON    0                                                       CDDIR     119
                                   4     L.DO     EQU    *-FW.DO                                                 CDDIR     120
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     6
        C$ IF DIRECTIVES.                                             IF. 
  
                                        **        IF. -  DEFINITIONS FOR T.C$IF                                  CDDIR     123
                                                                                                                 CDDIR     124
                                                                                                                 CDDIR     125
                                                  DESCRIBE IF.                                                   CDDIR     126
                                                                                                                 CDDIR     127
      L     73  40000000000000000000     INA      DEFINE 1           IF GROUP INACTIVE (FEC=BY WHEN ENCOUNTERED) CDDIR     128
      L     72  20000000000000000000     PE       DEFINE 1           PROCESSED ELSE (ONLY ONE ALLOWED)           CDDIR     129
                                                  DEFINE 16                                                      CDDIR     130
      L      0  00000077777777777777     LAB      DEFINE 42          IF LABEL (IF PRESENT)                       CDDIR     131
  
  
  
  
                                        **        TRANSLATE C$ IF CONDITIONAL DIRECTIVE.                         CDDIR     133
                                                                                                                 CDDIR     134
                                                                                                                 CDDIR     135
            42                                    HEREIF C$IF                                                    CDDIR     136
            42  5110000000 X                      SA1    STAGE                                                   CDDIR     137
                          7160000000 X            SX6    FEC=BY                                                  CDDIR     138
            43  37616                             IX6    X1-X6                                                   CDDIR     139
                     56140                        SA1    B4                                                      CDDIR     140
                          0316000047 +            NZ     X6,IFD1     IF NOT SKIPPING                             CDDIR     141
            44  6221777740                        SB2    X1-O.LP                                                 CDDIR     142
                          0520000000 X            NZ     B2,E.C$08   IF NOT *(*                                  CDDIR     143
            45  20106                             HX1    TB.IOCP                                                 CDDIR     144
                     21152                        AX1    -TB.IOCPL   EXTRACT CORRESPONDING *)* ADDRESS           CDDIR     145
                          63410                   SB4    X1                                                      CDDIR     146
                               43601              CLAS=  X6,IF,(INA)                                             CDDIR     147
            46  5160000071 +                      SA6    IFDA                                                    CDDIR     148
                          0400000057 +            EQ     IFD2        CHECK LABEL, IF ANY                         CDDIR     149
                                                                                                                 CDDIR     150
            47  56440                    IFD1     SA4    B4                                                      CDDIR     151
                     66441                        SB4    B4+B1                                                   CDDIR     152
                          7264777740              SX6    X4-O.LP                                                 CDDIR     153
            50  0316000000 X                      NZ     X6,E.C$08   IF INITIAL LPAREN MISSING                   CDDIR     154
                          76611                   =X6    PM=CXP      *PKX* STORES THIS INTO *PARMODE*            FC5A156     9
            51  0100000000 X                      CALL   PKX         PARSE CONSTANT EXPRESSION (LOGICAL)         CDDIR     155
            52  67551                             =B5    B5-M.LOG                                                CDDIR     156
                     0550000000 X                 NZ     B5,E.C$11   IF EXPRESSION NOT LOGICAL                   CDDIR     157
                               56240              SA2    B4                                                      CDDIR     158
            53  6272777737                        SB7    X2-O.RP                                                 CDDIR     159
                          0570000000 X            NZ     B7,E.C$06   IF MISSING RIGHT PAREN                      CDDIR     160
            54  22506                             LX5    X6          THE TRUTH VALUE OF THE EXPRESSION           CDDIR     161
                     0620000056 +                 PL     B2,IFD1A    IF CONSTANT NOT IN A TABLE                  FC5A157     7
            55  5150000000 X                      SA5    T.CON                                                   FC5A157     8
                          63260                   SB2    X6                                                      FC5A157     9
                               53552              SA5    X5+B2       THE TRUTH VALUE OF THE EXPRESSION           FC5A157    10
                                                                                                                 FC5A157    11
            56  43600                    IFD1A    MX6    0                                                       FC5A157    12
                     5160000071 +                 SA6    IFDA        INITIALIZE                                  CDDIR     163
                                                                                                                 CDDIR     164
                                        *         (X5) .MI. = CONDITION TRUE (CONTINUE COMPILIATION)             CDDIR     165
                                                                                                                 CDDIR     166
            57  56341                    IFD2     =A3    B4+1                                                    CDDIR     167
                     6144000001                   SB4    B4+1                                                    CDDIR     168
                               13777              BX7    0                                                       CDDIR     169
            60  0303000063 +                      ZR     X3,IFD4     IF *EOS*                                    CDDIR     170
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     7
        C$ IF DIRECTIVES.                                             IF
  
                                   0              ERRNZ  O.EOS                                                   CDDIR     171
                          6223777735              SB2    X3-O.COMMA                                              CDDIR     172
            61  0520000062 +                      NZ     B2,IFD3     IF NO COMMA                                 CDDIR     173
                          6144000001              SB4    B4+1                                                    CDDIR     174
            62  0100000204 +             IFD3     RJ     GDL         GET DIRECTIVE LABEL                         CDDIR     175
            63  5110000071 +             IFD4     SA1    IFDA                                                    CDDIR     176
                          12617                   BX6    X1+X7       FORM IF. ENTRY                              CDDIR     177
            64  5110000000 X                      ADDWD  T.C$IF                                                  CDDIR     178
                                                  SBIT   X6,IF.INAP                                              CDDIR     179
            65  0336000000 X                      MI     X6,FEC.RTN  IF INACTIVE (CURRENTLY SKIPPING)            CDDIR     180
                          0335000000 X            MI     X5,FEC.RTN  IF TRUE CONDITION                           CDDIR     181
                                                                                                                 CDDIR     182
                                                                                                                 CDDIR     183
            66  5110000000 X             IFNO     SA1    STAGE                                                   CDDIR     184
                          7170000000 X            SX7    FEC=BY                                                  CDDIR     185
            67  10611                             BX6    X1          SAVE (IFDD) = ORIGINAL (STAGE)              CDDIR     186
                     54710                        SA7    A1                                                      CDDIR     187
                          5160000072 +            SA6    IFDB                                                    CDDIR     188
            70  0400000000 X                      EQ     FEC.RTN                                                 CDDIR     189
                                                                                                                 CDDIR     190
            71                     1     IFDA     BSS    1           T.C$IF ENTRY                                CDDIR     191
            72                     1     IFDB     BSS    1           HOLD (STAGE) WHEN SKIP BEGAN                CDDIR     192
  
  
  
  
                                        **        TRANSLATE C$ ELSE DIRECTIVE.                                   CDDIR     194
                                                                                                                 CDDIR     195
                                                                                                                 CDDIR     196
            73                                    HEREIF C$ELSE                                                  CDDIR     197
                                                                                                                 CDDIR     198
            73  5110000000 X                      SA1    T.C$IF                                                  CDDIR     199
                          5120000000 X            SA2    T=C$IF                                                  CDDIR     200
            74  0302000000 X                      ZR     X2,E.C$01   IF NO C$ IF STACKED                         CDDIR     201
                          6232777776              SB3    X2-1                                                    CDDIR     202
            75  53313                             SA3    X1+B3       FETCH CURRENT C$IF ENTRY                    CDDIR     203
                     13777                        BX7    0                                                       CDDIR     204
                          5154000000              SA5    B4+                                                     CDDIR     205
            76  6225777735                        SB2    X5-O.COMMA                                              CDDIR     206
                          0305000101 +            ZR     X5,ELSE1    IF NO LABEL                                 CDDIR     207
                                   0              ERRNZ  O.EOS                                                   CDDIR     208
            77  0520000000 X                      NZ     B2,E.C$09   IF NO COMMA                                 CDDIR     209
                          6144000001              SB4    B4+1                                                    CDDIR     210
           100  0100000204 +                      RJ     GDL         GET DIRECTIVE LABEL                         CDDIR     211
           101  43052                    ELSE1    MX0    IF.LABL                                                 CDDIR     212
                     20052                        LX0    IF.LABL                                                 CDDIR     213
                          11530                   BX5    X3*X0                                                   CDDIR     214
                               11157              BX1    X5*X7                                                   CDDIR     215
           102  0301000104 +                      ZR     X1,ELSE2    IF IF OR ELSE HAD NO LABEL                  CDDIR     216
                          37157                   IX1    X5-X7                                                   CDDIR     217
           103  0311000000 X                      NZ     X1,E.C$03   IF LABELS DONT MATCH                        CDDIR     218
           104  43601                    ELSE2    CLAS=  X6,IF,(PE)                                              CDDIR     219
                          12663                   BX6    X6+X3       MERGE IN PROCESSED ELSE BIT                 CDDIR     220
                               20301              SBIT   X3,IF.PEP                                               CDDIR     221
           105  0333000000 X                      MI     X3,E.C$04   IF ALREADY PROCESSED ELSE                   CDDIR     222
                          54630                   SA6    A3          UPDATE C$IF ENTRY                           CDDIR     223
                                                  SBIT   X6,IF.INAP                                              CDDIR     224
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     8
        C$ IF DIRECTIVES.                                             ELSE
  
           106  0336000000 X                      MI     X6,FEC.RTN  IF THIS IF GROUP INACTIVE                   CDDIR     225
                          5110000000 X            SA1    STAGE                                                   CDDIR     226
           107  7160000000 X                      SX6    FEC=BY                                                  CDDIR     227
                          37216                   IX2    X1-X6                                                   CDDIR     228
           110  0312000066 +                      NZ     X2,IFNO     IF NOT CURRENTLY SKIPPING, THEN START       CDDIR     229
                          5120000072 +            SA2    IFDB        FETCH PREVIOUS STAGE (BEFORE SKIP)          CDDIR     230
           111  10622                             BX6    X2                                                      CDDIR     231
                     54610                        SA6    A1          RESTORE STAGE                               CDDIR     232
                          0400000000 X            EQ     FEC.RTN                                                 CDDIR     233
  
  
  
  
                                        **        TRANSLATE C$ ENDIF DIRECTIVE.                                  CDDIR     235
                                                                                                                 CDDIR     236
                                                                                                                 CDDIR     237
           112                                    HEREIF C$ENDIF                                                 CDDIR     238
                                                                                                                 CDDIR     239
           112  5110000000 X                      SA1    T.C$IF                                                  CDDIR     240
                          5120000000 X            SA2    T=C$IF                                                  CDDIR     241
           113  0302000000 X                      ZR     X2,E.C$01   IF NO C$ IF STACKED                         CDDIR     242
                          6232777776              SB3    X2-1                                                    CDDIR     243
           114  53313                             SA3    X1+B3       FETCH CURRENT C$IF ENTRY                    CDDIR     244
                     13777                        BX7    0                                                       CDDIR     245
                          5154000000              SA5    B4+                                                     CDDIR     246
           115  6225777735                        SB2    X5-O.COMMA                                              CDDIR     247
                          0305000120 +            ZR     X5,ENDIF1   IF NO LABEL                                 CDDIR     248
                                   0              ERRNZ  O.EOS                                                   CDDIR     249
           116  0520000000 X                      NZ     B2,E.C$09   IF NO COMMA                                 CDDIR     250
                          6144000001              SB4    B4+1                                                    CDDIR     251
           117  0100000204 +                      RJ     GDL         GET DIRECTIVE LABEL                         CDDIR     252
           120  43052                    ENDIF1   MX0    IF.LABL                                                 CDDIR     253
                     20052                        LX0    IF.LABL                                                 CDDIR     254
                          11530                   BX5    X3*X0                                                   CDDIR     255
                               11157              BX1    X5*X7                                                   CDDIR     256
           121  0301000123 +                      ZR     X1,ENDIF2   IF IF OR ENDIF HAD NO LABEL                 CDDIR     257
                          37157                   IX1    X5-X7                                                   CDDIR     258
           122  0311000000 X                      NZ     X1,E.C$03   IF LABELS DONT MATCH                        CDDIR     259
           123  76630                    ENDIF2   SHRINK A2,B3       REMOVE C$IF ENTRY                           CDDIR     260
                                                  SBIT   X3,IF.INAP                                              CDDIR     261
                          0333000000 X            MI     X3,FEC.RTN  IF THIS GROUP INACTIVE                      CDDIR     262
           124  5110000000 X                      SA1    STAGE                                                   CDDIR     263
                          7120000000 X            SX2    FEC=BY                                                  CDDIR     264
           125  37312                             IX3    X1-X2                                                   CDDIR     265
                     0313000000 X                 NZ     X3,FEC.RTN  IF NOT NOW SKIPPING                         CDDIR     266
           126  5120000072 +                      SA2    IFDB        FETCH PREVIOUS STAGE (BEFORE SKIP)          CDDIR     267
                          10622                   BX6    X2                                                      CDDIR     268
                               54610              SA6    A1          RESTORE STAGE                               CDDIR     269
           127  0400000000 X                      EQ     FEC.RTN                                                 CDDIR     270
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE     9
        C$ LIST DIRECTIVE.
  
                                        **        TRANSLATE C$ LIST DIRECTIVE.                                   CDDIR     272
                                                                                                                 CDDIR     273
           130                                    HEREIF C$LIST                                                  CDDIR     274
                                                                                                                 CDDIR     275
           130  7160000166 +                      SX6    FW.LIST                                                 CDDIR     276
                          7170000016              SX7    L.LIST                                                  CDDIR     277
           131  0100000217 +                      RJ     TCP         TRANSLATE C$ PARAMETERS                     CDDIR     278
                                                                                                                 CDDIR     279
           132  5110000167 +                      SA1    LIST=A                                                  CDDIR     280
                          0321000135 +            PL     X1,LIST1    IF C$ LIST(A= ) NOT SPECIFIED               CDDIR     281
           133  5120000000 X                      SA2    CO.LOA                                                  CDDIR     282
                          14611                   BX6    -X1         COMPLEMENT FOR VALUE                        CDDIR     283
                               54610              SA6    A1          CLEAR (TO POSITIVE)                         CDDIR     284
           134  20673                             LX6    -1          POSITION FOR SWITCH                         CDDIR     285
                     11662                        BX6    X6*X2                                                   CDDIR     286
                          5160000000 X            SA6    WO.LOA      UPDATE                                      CDDIR     287
                                                                                                                 CDDIR     288
           135  5110000173 +             LIST1    SA1    LIST=M                                                  CDDIR     289
                          0321000140 +            PL     X1,LIST2    IF C$ LIST(M= ) NOT SPECIFIED               CDDIR     290
           136  5120000000 X                      SA2    CO.LOM                                                  CDDIR     291
                          14611                   BX6    -X1         COMPLEMENT FOR VALUE                        CDDIR     292
                               54610              SA6    A1          CLEAR (TO POSITIVE)                         CDDIR     293
           137  20673                             LX6    -1          POSITION FOR SWITCH                         CDDIR     294
                     11662                        BX6    X6*X2                                                   CDDIR     295
                          5160000000 X            SA6    WO.LOM      UPDATE                                      CDDIR     296
                                                                                                                 CDDIR     297
           140  5110000175 +             LIST2    SA1    LIST=O                                                  CDDIR     298
                          0321000146 +            PL     X1,LIST3    IF C$ LIST(O= ) NOT SPECIFIED               CDDIR     299
           141  5120000000 X                      SA2    CO.LOO                                                  CDDIR     300
                          14611                   BX6    -X1         COMPLEMENT FOR VALUE                        CDDIR     301
                               54610              SA6    A1          CLEAR (TO POSITIVE)                         CDDIR     302
           142  20673                             LX6    -1          POSITION FOR SWITCH                         CDDIR     303
                     11662                        BX6    X6*X2                                                   CDDIR     304
                          5160000000 X            SA6    WO.LOO      UPDATE                                      CDDIR     305
           143  7140010002                        CLAS=  X4,TP,(SHRT),INT                                        CDDIR     306
                          14111                   BX1    -X1                                                     CDDIR     307
                               20124              LX1    TP.BIASP                                                CDDIR     308
           144  12414                             BX4    X1+X4                                                   CDDIR     309
                     43500                        MX5    0                                                       CDDIR     310
                          6130000000 X            EMIT   V=CDLOO,NONE                                            CDDIR     311
                                                                                                                 CDDIR     312
           146  5110000177 +             LIST3    SA1    LIST=R                                                  CDDIR     313
                          0321000154 +            PL     X1,LIST5    IF C$ LIST(R= ) NOT SPECIFIED               CDDIR     314
           147  5120000000 X                      SA2    CO.LOR                                                  CDDIR     315
                          0302000154 +            ZR     X2,LIST5    IF LO=R NOT SELECTED BY CONTROL CARD        CDDIR     316
           150  14611                             BX6    -X1         COMPLEMENT FOR VALUE                        CDDIR     317
                     54610                        SA6    A1          CLEAR (TO POSITIVE)                         CDDIR     318
                          20673                   LX6    -1          POSITION FOR SWITCH                         CDDIR     319
                               11662              BX6    X6*X2                                                   CDDIR     320
           151  5160000000 X                      SA6    WO.LOR      UPDATE                                      CDDIR     321
                          5120000000 X            SA2    ERT=ON                                                  CDDIR     322
           152  0311000153 +                      NZ     X1,LIST4    IF LIST(R=1)                                CDDIR     323
                          5120000000 X            SA2    ERT=OFF                                                 CDDIR     324
           153  10722                    LIST4    BX7    X2                                                      CDDIR     325
                     5170000000 X                 SA7    ERT         SET COLLECTION OF REFERENCES APPROPRIATELY  CDDIR     326
                                                                                                                 CDDIR     327
           154  5110000201 +             LIST5    SA1    LIST=S                                                  CDDIR     328
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE    10
        C$ LIST DIRECTIVE.
  
                          0321000000 X            PL     X1,FEC.RTN  IF C$ LIST(S= ) NOT SPECIFIED               CDDIR     329
           155  5120000000 X                      SA2    CO.LOS                                                  CDDIR     330
                          0302000000 X            ZR     X2,FEC.RTN  IF LO=S NOT SELECTED BY CONTROL CARD        CDDIR     331
           156  14611                             BX6    -X1         COMPLEMENT FOR VALUE                        CDDIR     332
                     5061000000                   SA6    A1+         CLEAR (TO POSITIVE)                         CDDIR     333
                               20673              LX6    -1          POSITION FOR SWITCH                         CDDIR     334
           157  5160000000 X                      SA6    WO.LOS      UPDATE                                      CDDIR     335
                          0311000164 +            NZ     X1,LIST6    IF (S=1)                                    FC5A174    15
                                                                                                                 CDDIR     337
           160  5130000000 X                      SA3    LINES       SOURCE LINE COUNT                           CDDIR     338
                          7273777776              SX7    X3-1                                                    CDDIR     339
           161  0317000164 +                      NZ     X7,LIST6    IF *C$ LIST(S=0) NOT AT LINE 1              CDDIR     340
                          76600                   SHRINK T=STMT,0                                                CDDIR     341
                          5160000000 X            SA6    SB=LORD                                                 CDDIR     342
           163  5160000000 X                      SA6    SB=LINC                                                 CDDIR     343
           164  0100000000 X             LIST6    CALL   LDB         LIST DEFERRED BUFFER                        CDDIR     344
           165  0400000000 X                      EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER                CDDIR     345
                                                                                                                 CDDIR     346
           166                           FW.LIST  BSS    0           ** FWA **                                   CDDIR     347
           166  01000000000000000000              DATA   1LA                                                     CDDIR     348
           167  00000000000000000000     LIST=A   CON    0                                                       CDDIR     349
           170  03000000000000000000              DATA   1LC         **STUB FOR FUTURE IMPLEMENTATION**          CDDIR     350
           171  00000000000000000000     LIST=C   CON    0                                                       CDDIR     351
           172  15000000000000000000              DATA   1LM                                                     CDDIR     352
           173  00000000000000000000     LIST=M   CON    0                                                       CDDIR     353
           174  17000000000000000000              DATA   1LO                                                     CDDIR     354
           175  00000000000000000000     LIST=O   CON    0                                                       CDDIR     355
           176  22000000000000000000              DATA   1LR                                                     CDDIR     356
           177  00000000000000000000     LIST=R   CON    0                                                       CDDIR     357
           200  23000000000000000000              DATA   1LS                                                     CDDIR     358
           201  00000000000000000000     LIST=S   CON    0                                                       CDDIR     359
           202  01141400000000000000              DATA   3LALL                                                   CDDIR     360
           203  00000000000000000000              CON    0                                                       CDDIR     361
                                  16     L.LIST   EQU    *-FW.LIST                                               CDDIR     362
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE    11
        SUBROUTINES.                                                  GDL 
  
                                        **        GDL -  GET DIRECTIVE LABEL.                                    CDDIR     365
                                        *                                                                        CDDIR     366
                                        *         ENTRY  (B4) _ C$ DIRECTIVE LABEL                               CDDIR     367
                                        *                                                                        CDDIR     368
                                        *         EXIT   (X7) = VALUE OF LABEL                                   CDDIR     369
                                        *                                                                        CDDIR     370
                                        *         USES   A1,A7  B2  X0,X1,X7                                     CDDIR     371
                                                                                                                 CDDIR     372
                                                                                                                 CDDIR     373
           204  0400400204 +             GDL      SUBR               ...ENTRY/EXIT...                            CDDIR     374
           205  5114000000                        SA1    B4+                                                     CDDIR     375
                          6221777766              SB2    X1-O.VAR                                                CDDIR     376
           206  0520000000 X                      NZ     B2,E.C$02   IF NOT DIRECTIVE LABEL                      CDDIR     377
                          43052                   MX0    TB.TOCL                                                 CDDIR     378
                                                  HX1    TB.TOC                                                  CDDIR     379
                               66441              =B4    B4+1                                                    CDDIR     380
           207  11701                             BX7    X0*X1       (X7) = LABEL                                CDDIR     381
                     5170000000 X                 SA7    FILL.2                                                  CDDIR     382
                               20752              LX7    IF.LABL                                                 CDDIR     383
           210  5114000000                        SA1    B4+                                                     CDDIR     384
                          0301000204 +            ZR     X1,EXIT.    IF *EOS*                                    CDDIR     385
                                   0              ERRNZ  O.EOS                                                   CDDIR     386
           211  6170000000 X                      WARN   E.C$10                                                  CDDIR     387
           212  0400000204 +                      EQ     EXIT.                                                   CDDIR     388
  
  
  
  
                                        **        TCP -  TRANSLATE C$ PARAMETERS.                                CDDIR     390
                                        *                                                                        CDDIR     391
                                        *         ENTRY  (B4) _ *(* PRECEDING C$ PARAMETER LIST                  CDDIR     392
                                        *                (X6) = FWA OF PARAMETER TABLE                           CDDIR     393
                                        *                (X7) = LENGTH OF PARAMETER TABLE                        CDDIR     394
                                        *                                                                        CDDIR     395
                                        *         EXIT   (B4) _ CLOSING *)*                                      CDDIR     396
                                        *                                                                        CDDIR     397
                                        *         CALLS  PIX                                                     CDDIR     398
                                        *                                                                        CDDIR     399
                                        *         USES                                                           CDDIR     400
                                                                                                                 CDDIR     401
                                                                                                                 CDDIR     402
           213                     2     TCPA     BSS    2           SAVE PARAMETER TABLE FWA AND LENGTH         CDDIR     403
           215                     1     TCPB     BSS    1           SAVE PARAMETER TABLE ADDRESS                CDDIR     404
           216                     1     TCPC     BSS    1           SAVE FILL. OF C$ DIRECTIVE                  CDDIR     405
                                                                                                                 CDDIR     406
           217  0400400217 +             TCP      SUBR               ...ENTRY/EXIT...                            CDDIR     407
           220  5160000213 +                      SA6    TCPA                                                    CDDIR     408
                          54761                   =A7    A6+1                                                    CDDIR     409
                               56440              SA4    B4                                                      CDDIR     410
           221  7264777740                        SX6    X4-O.LP                                                 CDDIR     411
                          0316000000 X            NZ     X6,E.C$08   IF INITIAL LPAREN MISSING                   CDDIR     412
           222  66441                             =B4    B4+1        ADVANCE TO FIRST PARAMETER                  CDDIR     413
                                                                                                                 CDDIR     414
           223  56240                    TCP1     SA2    B4          FETCH PARAMETER                             CDDIR     415
                     43052                        MX0    TB.TOCL                                                 CDDIR     416
                                                  LX0    TB.TOCL+TB.TOCP                                         CDDIR     417
                          6222777766              SB2    X2-O.VAR                                                CDDIR     418
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE    12
        SUBROUTINES.                                                  TCP 
  
           224  0520000000 X                      NZ     B2,E.C$07   IF NOT C$ PARAMETER                         CDDIR     419
                          11602                   BX6    X0*X2       PARAMETER ONLY                              CDDIR     420
           225  5110000213 +                      SA1    TCPA                                                    CDDIR     421
                          54211                   =A2    A1+1                                                    CDDIR     422
                               63610              SB6    X1          FWA OF PARAMETER TABLE                      CDDIR     423
           226  63720                             SB7    X2          LENGTH OF PARAMETER TABLE                   CDDIR     424
                     6177777775                   SB7    B7-2        INITIALIZE                                  CDDIR     425
                                                                                                                 CDDIR     426
           227  0770000232 +             TCP2     MI     B7,TCP3     IF NOT IN PARAMETER TABLE                   CDDIR     427
                          56167                   SA1    B6+B7                                                   CDDIR     428
                               37216              IX2    X1-X6                                                   CDDIR     429
           230  0302000233 +                      ZR     X2,TCP4     IF MATCH                                    CDDIR     430
                          6177777775              SB7    B7-2        DECREMENT                                   CDDIR     431
           231  0400000227 +                      EQ     TCP2        LOOP...                                     CDDIR     432
                                                                                                                 CDDIR     433
           232  5160000000 X             TCP3     SA6    FILL.2                                                  CDDIR     434
                          0400000000 X            EQ     E.C$00      NOT A LEGAL C$ PARAMETER                    CDDIR     435
                                                                                                                 CDDIR     436
           233  56241                    TCP4     =A2    B4+1                                                    CDDIR     437
                     66441                        =B4    B4+1                                                    CDDIR     438
                          6222777736              SB2    X2-O.=                                                  CDDIR     439
           234  0420000236 +                      ZR     B2,TCP5     IF P=C FORM                                 CDDIR     440
                          77601                   SX6    -B1                                                     CDDIR     441
                               54611              =A6    A1+1        STORE INTO CORRESPONDING VALUE CELL         CDDIR     442
           235  0400000251 +                      EQ     TCP7                                                    CDDIR     443
                                                                                                                 CDDIR     444
           236  74610                    TCP5     SX6    A1                                                      CDDIR     445
                     5160000215 +                 SA6    TCPB        SAVE PARAMETER TABLE ENTRY                  CDDIR     446
           237  5110000000 X                      SA1    FILL.                                                   CDDIR     447
                          22701                   LX7    X1                                                      CDDIR     448
                               54761              =A7    A6-TCPB+TCPC                                            CDDIR     449
           240  66441                             =B4    B4+1                                                    CDDIR     450
                     0100000000 X                 CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION           CDDIR     451
           241  5110000215 +                      SA1    TCPB                                                    CDDIR     452
                          54211                   =A2    A1-TCPB+TCPC                                            CDDIR     453
                               22702              LX7    X2                                                      CDDIR     454
           242  53110                             SA1    X1          RELOAD C$ PARAMETER                         CDDIR     455
                     5170000000 X                 SA7    FILL.       RESTORE                                     CDDIR     456
           243  0306000250 +                      ZR     X6,TCP6     IF VALUE 0                                  CDDIR     457
                          7226777776              SX2    X6-1                                                    CDDIR     458
           244  0302000250 +                      ZR     X2,TCP6     IF VALUE 1                                  CDDIR     459
                          10611                   BX6    X1                                                      CDDIR     460
           245  5160000000 X                      SA6    FILL.2                                                  CDDIR     461
                          6170000000 X            WARN   E.C$05      C$ PARAMETER VALUE MUST BE 0 OR 1           CDDIR     462
           247  0400000256 +                      EQ     TCP10                                                   CDDIR     463
                                                                                                                 CDDIR     464
           250  14666                    TCP6     BX6    -X6         COMPLEMENT TO INDICATE APPEARANCE           CDDIR     465
                     54611                        =A6    A1+1                                                    CDDIR     466
                                                                                                                 CDDIR     467
           251  5120000266 +             TCP7     SA2    =3LALL                                                  CDDIR     468
                          37221                   IX2    X2-X1                                                   CDDIR     469
           252  0312000256 +                      NZ     X2,TCP10    IF NOT ALL=                                 CDDIR     470
                          5110000213 +            SA1    TCPA                                                    CDDIR     471
           253  54211                             =A2    A1+1                                                    CDDIR     472
                     63610                        SB6    X1          FWA OF PARAMETER TABLE                      CDDIR     473
                          6272777774              SB7    X2-3                                                    FC5A184    69
                                                                                                                 CDDIR     476
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE    13
        SUBROUTINES.                                                  TCP 
  
           254  0770000256 +             TCP8     MI     B7,TCP10    IF FINISHED                                 CDDIR     477
                          56167                   SA1    B6+B7                                                   CDDIR     478
                               54610              SA6    A1                                                      CDDIR     479
           255  6177777775                        SB7    B7-2                                                    CDDIR     480
                          0400000254 +            EQ     TCP8                                                    CDDIR     481
                                                                                                                 CDDIR     482
           256  56140                    TCP10    SA1    B4                                                      CDDIR     483
                     66441                        =B4    B4+1                                                    CDDIR     484
                          6221777735              SB2    X1-O.COMMA                                              CDDIR     485
           257  0420000223 +                      ZR     B2,TCP1     IF *,*, CONTINUE PROCESSING                 CDDIR     486
                          6221777737              SB2    X1-O.RP                                                 CDDIR     487
           260  0520000000 X                      NZ     B2,E.C$09   IF NOT *)*                                  CDDIR     488
                          5114000000              SA1    B4+                                                     CDDIR     489
           261  0301000217 +                      ZR     X1,EXIT.    IF *EOS*                                    CDDIR     490
                                   0              ERRNZ  O.EOS                                                   CDDIR     491
                          6170000000 X            WARN   E.C$10                                                  CDDIR     492
           263  0400000217 +                      EQ     EXIT.                                                   CDDIR     493
  
  
  
  
                                                  LIST   D                                                       CDDIR     495
  
                                        CONTENT OF LITERALS BLOCK.
  
           264  25230522000000000000    USER
           265  06113005040000000000    FIXED 
           266  01141400000000000000    ALL 
  
           267                                    END                                                            CDDIR     496
  
                             74000B CM  STORAGE USED             1551 STATEMENTS     1460 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.427 SECONDS         345 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       1/41 X    7/08
        B1=1            0 
        COL            13   PROGRAM*        3/22      3/26      3/31 L
        COLA           21   PROGRAM*        3/07 S    3/09      3/43 L
        CO.LOA          0   EXTERNAL*       1/51 X    9/11
        CO.LOM          0   EXTERNAL*       1/51 X    9/20
        CO.LOO          0   EXTERNAL*       1/51 X    9/29
        CO.LOR          0   EXTERNAL*       1/51 X    9/44
        CO.LOS          0   EXTERNAL*       1/51 X   10/02
        DO1            30   PROGRAM*        5/11      5/16 L
        DO=LONG        37   PROGRAM*        5/10      5/30 L
        DO=OT          41   PROGRAM*        5/16      5/32 L
        DUC=NONE        0   FTX             3/40      5/25      9/40
        ELSE1         101   PROGRAM*        7/40      7/45 L
        ELSE2         104   PROGRAM*        7/49      7/52 L
        EMT             0   EXTERNAL*       1/57 X    3/40      5/25      9/40
        ENDIF1        120   PROGRAM*        8/27      8/32 L
        ENDIF2        123   PROGRAM*        8/36      8/39 L
        ERT             0   EXTERNAL*       1/44 X    9/55 S
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE    14
        SYMBOLIC REFERENCE TABLE. 
  
        ERT=OFF         0   EXTERNAL*       1/44 X    9/53
        ERT=ON          0   EXTERNAL*       1/44 X    9/51
        E.C$00          0   EXTERNAL*       1/47 X    3/29     12/17
        E.C$01          0   EXTERNAL*       1/47 X    7/34      8/21
        E.C$02          0   EXTERNAL*       1/47 X   11/13
        E.C$03          0   EXTERNAL*       1/47 X    7/51      8/38
        E.C$04          0   EXTERNAL*       1/47 X    7/55
        E.C$05          0   EXTERNAL*       1/47 X   12/44
        E.C$06          0   EXTERNAL*       1/47 X    3/34      6/42
        E.C$07          0   EXTERNAL*       1/47 X    3/17     12/01
        E.C$08          0   EXTERNAL*       1/48 X    3/14      6/24      6/35     11/51
        E.C$09          0   EXTERNAL*       1/48 X    7/42      8/29     13/12
        E.C$10          0   EXTERNAL*       1/48 X   11/23     13/16
        E.C$11          0   EXTERNAL*       1/48 X    6/39
        FEC=BY          0   EXTERNAL*       1/44 X    6/19      7/15      8/03      8/43
        FEC.RTN         0   EXTERNAL*       1/44 X    4/22      7/10      8/01      8/45     10/03
                                            3/41      5/17      7/11      8/09      8/49     10/17
                                            4/13      5/26      7/19      8/41     10/01
        FILL.           0   EXTERNAL*       1/48 X   12/29     12/38 S
        FILL.2          0   EXTERNAL*       1/48 X    3/28 S   11/18 S   12/16 S   12/43 S
        FW.DO          36   PROGRAM*        5/06      5/28 L    5/33
        FW.LIST       166   PROGRAM*        9/05     10/19 L   10/34
        GDL           204   PROGRAM*        7/05      7/44      8/31     11/10 L
        IFDA           71   PROGRAM*        6/29 S    6/50 S    7/06      7/21 L
        IFDB           72   PROGRAM*        7/18 S    7/22 L    8/06      8/46
        IFD1           47   PROGRAM*        6/22      6/32 L
        IFD1A          56   PROGRAM*        6/44      6/49 L
        IFD2           57   PROGRAM*        6/30      6/54 L
        IFD3           62   PROGRAM*        7/03      7/05 L
        IFD4           63   PROGRAM*        6/57      7/06 L
        IFNO           66   PROGRAM*        7/14 L    8/05
        IF.INAP        73                   6/06 D
        IF.LABL        52                   6/09 D    7/45      7/46      8/32      8/33     11/19
        IF.LABP         0                   6/09 D
        IF.PEP         72                   6/07 D    7/52      7/54
        K$=BEGC        22   PROGRAM*        4/12 L    4/12 E
        K$=COLL         0   PROGRAM*        3/04 L    3/04 E
        K$=DO          24   PROGRAM*        5/04 L    5/04 E
        K$=ELSE        73   PROGRAM*        7/30 L    7/30 E
        K$=ENDC        23   PROGRAM*        4/21 L    4/21 E
        K$=ENDI       112   PROGRAM*        8/17 L    8/17 E
        K$=IF          42   PROGRAM*        6/17 L    6/17 E
        K$=LIST       130   PROGRAM*        9/03 L    9/03 E
        LDB             0   EXTERNAL*       1/54 X   10/16
        LINES           0   EXTERNAL*       2/06 X   10/10
        LIST1         135   PROGRAM*        9/10      9/18 L
        LIST2         140   PROGRAM*        9/19      9/27 L
        LIST3         146   PROGRAM*        9/28      9/42 L
        LIST4         153   PROGRAM*        9/52      9/54 L
        LIST5         154   PROGRAM*        9/43      9/45      9/57 L
        LIST6         164   PROGRAM*       10/08     10/12     10/16 L
        LIST=A        167   PROGRAM*        9/09     10/21 L
        LIST=C        171   PROGRAM*       10/23 L
        LIST=M        173   PROGRAM*        9/18     10/25 L
        LIST=O        175   PROGRAM*        9/27     10/27 L
        LIST=R        177   PROGRAM*        9/42     10/29 L
        LIST=S        201   PROGRAM*        9/57     10/31 L
1       CDDIR - C$ DIRECTIVE PROCESSING.                              COMPASS 3.7-871.     24/05/02. 13.16.07.      PAGE    15
        SYMBOLIC REFERENCE TABLE. 
  
        L.DO            4                   5/07      5/33 D
        L.LIST         16                   9/06     10/34 D
        M.INT           2   FTX             3/36      5/21      9/35
        M.LOG           1   FTX             6/38
        OIL             0   EXTERNAL*       1/44 X    3/08
        O.COMMA        42   FTX             7/02      7/39      8/26     13/09
        O.EOS           0   FTX             7/01      7/41      8/28     11/22     13/15
        O.LP           37   FTX             3/12      6/23      6/34     11/50
        O.RP           40   FTX             3/33      6/41     13/11
        O.VAR          11   FTX             3/16     11/12     11/57
        O.=            41   FTX            12/21
        PDM             0   EXTERNAL*       2/03 X   11/23     12/44     13/16
        PIX             0   EXTERNAL*       1/57 X   12/33
        PKX             0   EXTERNAL*       1/57 X    6/37
        PM=CXP          2   FTX             6/36
        SB=LINC         0   EXTERNAL*       1/54 X   10/15 S
        SB=LORD         0   EXTERNAL*       1/54 X   10/14 S
        STAGE           0   EXTERNAL*       1/44 X    6/18      7/14      8/02      8/42
        TB.IOCPL       22   FTX             6/25      6/26
        TB.IOCPP       44   FTX             6/25
        TB.TOCL        52   FTX             3/18     11/14     11/55
        TCP           217   PROGRAM*        5/08      9/07     11/46 L
        TCPA          213   PROGRAM*       11/42 L   11/47 S   12/03     12/53
        TCPB          215   PROGRAM*       11/43 L   12/28 S   12/31     12/34     12/35
        TCPC          216   PROGRAM*       11/44 L   12/31     12/35
        TCP1          223   PROGRAM*       11/54 L   13/10
        TCP10         256   PROGRAM*       12/45     12/52     13/01     13/07 L
        TCP2          227   PROGRAM*       12/09 L   12/14
        TCP3          232   PROGRAM*       12/09     12/16 L
        TCP4          233   PROGRAM*       12/12     12/19 L
        TCP5          236   PROGRAM*       12/22     12/27 L
        TCP6          250   PROGRAM*       12/39     12/41     12/47 L
        TCP7          251   PROGRAM*       12/25     12/50 L
        TCP8          254   PROGRAM*       13/01 L   13/05
        TP.BIASP       24   FTX             3/37      5/22      9/37
        TP.MODEP        0   FTX             3/36      5/21      9/35
        TP.SHRTL        1   FTX             3/36      5/21      9/35
        TP.SHRTP       14   FTX             3/36      5/21      9/35
        T=C$IF          0   EXTERNAL*       2/06 X    7/33      8/20
        T=STMT          0   EXTERNAL*       2/06 X   10/13     10/13 S
        T.CON           0   EXTERNAL*       2/07 X    6/45
        T.C$IF          0   EXTERNAL*       2/06 X    7/08      7/08      7/32      8/19
        V=CDCS          0   EXTERNAL*       2/10 X    3/40
        V=CDDOT         0   EXTERNAL*       2/10 X    5/25
        V=CDLOO         0   EXTERNAL*       2/10 X    9/40
        WO.CS           0   EXTERNAL*       2/06 X    3/35 S
        WO.DOLG         0   EXTERNAL*       2/06 X    5/14 S
        WO.DOOT         0   EXTERNAL*       2/06 X    5/20 S
        WO.LOA          0   EXTERNAL*       2/06 X    9/16 S
        WO.LOM          0   EXTERNAL*       2/07 X    9/25 S
        WO.LOO          0   EXTERNAL*       2/07 X    9/34 S
        WO.LOR          0   EXTERNAL*       2/07 X    9/50 S
        WO.LOS          0   EXTERNAL*       2/07 X   10/07 S
        .A              0                   3/40 D    3/40      5/25 D    5/25      9/40 D    9/40
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1027              IDENT  DATA 
                       1027                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1020 
                                        LITERALS* LOCAL        1020         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=DATA           0+           DATAFLG        243+           CMV            670+ 
                                        DAT.Z           37+           C=DVL          261+           CSC            767+ 
                                        KW=DATA         43+           EDI            313+ 
                                        DATA2           71+           CFC            621+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       FEC.RTN   E.AT03    E.DIL1    CO.SNAP   DVLOP     T=DAR     T.PAR 
                                        ALC       NCM       E.AT08    E.DIL2    IDP=SVB   EMT       T=DATI    T.SYM 
                                        DEC       OIL       E.AT13    E.DIL3    IDP=SVX   IOL.RTN   T=DATL    PDI 
                                        KCV       REFVAR    E.DACV    E.DIL4    REG=      ANSI=     T=DATS    V=DATA
                                        NBC       SCT       E.DAR     E.DSE     SNP=      MDERR=    T.CON     V=DVI 
                                        SED       SSY       E.DAVC    E.DVL1    CVL       PDM       T.DAR     MVE=
                                        TNK       STAGE     E.DCE     E.MDE2    IODOIND   CONONE    T.DATI    SBM=
                                        DATFLG    TLV       E.DC7     FILL.     VAI       E=TOTAL   T.DATL
                                        ERT       T=CONB    E.DC10    DMT=      C=ERR     MOD       T.DATS
                                        FEC=EXU   E.AT01    E.DIL     SN.PAR    DATARM    T=CON     T.DIM 
  
  
  
  
                                                  IDENT  DATA                                                    DATA        2
                                         DATA     SECT   (TRANSLATE DATA STATEMENTS.)                            DATA        3
  
  
  
  
  
                                        ***       DATA - TRANSLATE DATA STATEMENTS.                              DATA        5
                                        *                                                                        DATA        6
                                        *         S. I. JASIK        70/06/01.                                   DATA        7
                                        *         P. H. MCQUESTEN    71/06/01.   78/12/31.                       DATA        8
                                        *         A. T. HSIAO        78/05/08.                                   DATA        9
                                                                                                                 DATA       10
                                                                                                                 DATA       11
                                        *         IN ALLOC                                                       DATA       12
                                                  EXT    ADW,ALC                                                 DATA       13
                                                                                                                 DATA       14
                                        *         IN CONRED                                                      DATA       15
                                                  EXT    DEC,KCV,NBC,SED,TNK                                     DATA       16
                                                                                                                 DATA       17
                                        *         IN FEC                                                         DATA       18
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     2
                                                                      DATA
  
                                                  EXT    DATFLG,ERT,FEC=EXU,FEC.RTN,NCM,OIL,REFVAR,SCT,SSY       FC5A231    39
                                                  EXT    STAGE,TLV,T=CONB                                        FC5A231    40
                                                                                                                 DATA       20
                                        *         IN FERRS                                                       DATA       21
                                                  EXT    E.AT01,E.AT03,E.AT08,E.AT13,E.DACV,E.DAR,E.DAVC,E.DCE   FC50180     5
                                                  EXT    E.DC7,E.DC10,E.DIL,E.DIL1,E.DIL2,E.DIL3,E.DIL4,E.DSE    FC50180     6
                                                  EXT    E.DVL1,E.MDE2,FILL.                                     FC50554     6
                                                                                                                 DATA       25
                                        *         IN FSNAP                                                       DATA       26
                                                  EXT    DMT=,SN.PAR                                             DATA       27
                                                                                                                 DATA       28
                                        *         IN FTN                                                         DATA       29
                                                  EXT    CO.SNAP                                                 DATA       30
                                                                                                                 DATA       31
                                        *         IN IDP                                                         DATA       32
                                                  EXT    IDP=SVB,IDP=SVX,REG=,SNP=                               DATA       33
                                                                                                                 DATA       34
                                        *         IN IO                                                          DATA       35
                                                  EXT    CVL,IODOIND,VAI                                         FC50180     8
                                                                                                                 DATA       37
                                        *         IN PAR                                                         DATA       38
                                                  EXT    C=ERR,DATARM,DVLOP,EMT,IOL.RTN                          FC5A231    41
                                                                                                                 DATA       40
                                        *         IN PEM                                                         DATA       41
                                                  EXT    ANSI=,MDERR=,PDM                                        FC50180     9
                                                                                                                 DATA       43
                                        *         IN PUC                                                         DATA       44
                                                  EXT    CONONE,E=TOTAL,MOD,T=CON,T=DAR,T=DATI,T=DATL,T=DATS     FC5A231    42
                                                  EXT    T.CON,T.DAR,T.DATI,T.DATL,T.DATS,T.DIM,T.PAR,T.SYM      FC5A231    43
                                                                                                                 DATA       48
                                        *         IN QCGLINK/FLINK                                               DATA       49
                                                  EXT    PDI                                                     DATA       50
                                                                                                                 DATA       51
                                        *         IN QSKEL/FSKEL                                                 DATA       52
                                                  EXT    V=DATA,V=DVI                                            DATA       53
                                                                                                                 DATA       54
                                        *         IN UTILITY                                                     DATA       55
                                                  EXT    MVE=,SBM=                                               DATA       56
  
  
  
  
                                        ***       DATA INITIALIZATION STATEMENTS.                                DATA       58
                                        *                                                                        DATA       59
                                        *         SYNTAX:                                                        DATA       60
                                        *                DATA <DIL>,...,<DIL>                                    DATA       61
                                        *                 WHERE DIL IS A DATA INITIALIZATION LIST                DATA       62
                                        *                <DIL> := <DVL> / <DIL> /                                DATA       63
                                        *                 WHERE <DVL> IS A DATA VARIABLE LIST                    DATA       64
                                        *                 AND   <DIL> IS A DATA ITEM LIST ( CONSTANTS )          DATA       65
                                        *                                                                        DATA       66
                                        *         THE SYNTAX OF THE DATA ITEM LIST ( CONSTANTS ) IS              DATA       67
                                        *                                                                        DATA       68
                                        *                <DIL> := <DIG>,...,<DIG>                                DATA       69
                                        *                <DIG>  :=  <CON>  OR  <RF>*<CON>                        DATA       70
                                        *                           OR  <RF>(<CONL>)         /* NON-ANS          DATA       71
                                        *                <CONL> := <CON>,,,<CON>                                 DATA       72
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     3
                                                                      DATA
  
                                        *                <CON> := <CONSTANT> OR (<REAL CON>,<REAL CON>)          DATA       73
                                        *                                                                        DATA       74
                                        *         THE SYNTAX OF A DATA VARIABLE LIST IS                          DATA       75
                                        *                <DVL> := <DVG>,...,<DVG>                                DATA       76
                                        *                <DVG> := <VARNAME> OR <ARRAY>(<CON SUBSC>)              DATA       77
                                        *                OR <ARRAY> OR <DOLIST>                                  DATA       78
                                        *                WHERE:                                                  DATA       79
                                        *                 <VARNAME> IS THE NAME OF A SIMPLE VARIABLE             DATA       80
                                        *                 <ARRAY> IS THE NAME OF AN ARRAY                        DATA       81
                                        *                 <CON SUBSC> IS A CONSTANT SUBSCRIPT EXPRESSION         DATA       82
                                        *                <DOLIST> IS A NEST OF IMPLIED LOOPS                     DATA       83
  
  
  
  
                                        ***       THE DATA STATEMENT IS DESCRIBED IN ANSI CHAPTER 9.             DATA       85
                                        *                                                                        DATA       86
                                        *         EXTENSION -- VARIABLES IN LABELED COMMON MAY BE INITIALIZED    DATA       87
                                        *                OUTSIDE OF A BLOCK DATA SUBPROGRAM.                     DATA       88
                                        *                                                                        DATA       89
                                        *         EXTENSION -- REPEATED LIST OF CONSTANTS.  SEE ERS.             DATA       90
                                        *                RF ( CONLIST )                                          DATA       91
                                        *                                                                        DATA       92
                                        *         USAGE NOTE -- IMPLIED LOOPS WITH HUGE TRIP COUNTS CAN CONSUME  DATA       93
                                        *                MUCH COMPILE TIME IF THEY MUST BE SIMULATED.  TO AVOID  DATA       94
                                        *                INORDINATELY LONG COMPILATION TIME, WRITE LOOPS SUCH    DATA       95
                                        *                THAT THEY ARE COLLAPSIBLE.                              DATA       96
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     4
        LOCAL MACROS.                                                 PARSEM
  
                                        **        PARSEM - ELIST MANIPULATION MACROS.                            DATA       99
                                        *                                                                        DATA      100
                                        *         REGISTER USAGE --                                              DATA      101
                                        *                (A4,X4) -> CURRENT TOKEN.                               DATA      102
                                        *                (B2) = TOKEN TYPE.                                      DATA      103
                                        *                USES        B3.                                         DATA      104
                                                                                                                 DATA      105
                                                                                                                 DATA      106
                                         NEXTE    MACRO  R           FETCH NEXT TOKEN                            DATA      107
                                                  ERRNZ  R  0        OBSOLETE PARAMETER                          DATA      108
                                                  SA4    A4+B1                                                   DATA      109
                                                  SB2    X4                                                      DATA      110
                                         NEXTE    ENDM                                                           DATA      111
                                                                                                                 DATA      112
                                                                                                                 DATA      113
                                         IF.EQ    MACRO  ECODE,LABEL       IF( B2 .EQ. ECODE ) GO TO LABEL       DATA      114
                                         .1       IF     -MIC,ECODE                                              DATA      115
                                                  =B3    ECODE                                                   DATA      116
                                                  EQ     B2,B3,LABEL                                             DATA      117
                                         .1       ELSE                                                           DATA      118
                                                  EQ     B2,"ECODE",LABEL                                        DATA      119
                                         .1       ENDIF                                                          DATA      120
                                         IF.EQ    ENDM                                                           DATA      121
                                                                                                                 DATA      122
                                                                                                                 DATA      123
                                         IF.NE    MACRO  ECODE,LABEL       IF( B2 .NE. ECODE ) GO TO LABEL       DATA      124
                                         .1       IF     -MIC,ECODE                                              DATA      125
                                                  =B3    ECODE                                                   DATA      126
                                                  NE     B2,B3,LABEL                                             DATA      127
                                         .1       ELSE                                                           DATA      128
                                                  NE     B2,"ECODE",LABEL                                        DATA      129
                                         .1       ENDIF                                                          DATA      130
                                         IF.NE    ENDM                                                           DATA      131
                                                                                                                 DATA      132
                                                                                                                 DATA      133
                                         ARICON   MICRO  1,, O.HOLL,O.QHOLL,O.RLCON,O.CONS,O.PERIOD,O.OCT,O.HEX  FC5A258    24
                                         M.CON    BITMIC (O.LP,O.MIN,O.PL,"ARICON",O.CHAR,O.TRUE,O.FALSE,O.VAR)  DATA      135
                                         UNSIGNC  BITMIC (O.HOLL,O.QHOLL,O.RLCON,O.CHAR,O.OCT,O.HEX)             FC5A258    25
                                         M.SEP    BITMIC (O.EOS,O.COMMA,O.RP)                                    DATA      137
                                         M.BCON   BITMIC (O.HOLL,O.QHOLL,O.RLCON,O.OCT,O.HEX)                    FC5A264     5
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     5
        STORAGE CELLS AND DATA STRUCTURES.
  
                                        *         STORAGE.                                                       DATA      139
                                         TEMP     OPSYN  BSS                                                     DATA      140
                                                                                                                 DATA      141
                                                                                                                 DATA      142
             0                           F.GRUP   TEMP   0           FWA OF CONTROL CELLS FOR A DATA GROUP       DATA      143
             0                     1     REPFLAG  TEMP   1           REP FLAG (SEE CRL)                          DATA      144
             1                     1     CLOSREP  TEMP   1           CLOSE REP FLAG                              DATA      145
             2                     1     N.ITEM   TEMP   1           NUMBER OF DATA ITEMS                        DATA      146
             3                     1     PL       TEMP   1           PAREN LEVEL                                 DATA      147
             4                     3     I.DIT    TEMP   3           1 - ORDINAL OF NEXT ITEM IN T.DATI          DATA      148
                                        *                            2 - NUM OF ITEMS REMAINING IN REP LIST      DATA      149
                                        *                            3 - ORDINAL OF 1ST DATA ITEM IN REP LIST    DATA      150
                                   7     Z.GRUP   EQU    *-F.GRUP    ...   ABOVE CLEARED FOR EACH DATA GROUP     DATA      151
                                                                                                                 DATA      152
             7                     3     DVI      TEMP   Z=SYM       DATA VAR INFO WORDS (V1.,WB.,V3. FORMAT)    DATA      153
            12                     1     BIAS     TEMP   1           ACCUMULATED BIAS DUE TO SUBSC CALC          DATA      154
            13                     1     ORGN     TEMP   1           NEW ORG NEEDED FLAG                         DATA      155
            14                     1     DA       TEMP   1           ADDRESS DIFFERENCE                          DATA      156
            15                     2     LI       TEMP   2           LOOP INDEX        /* IN NIC                 DATA      157
            17                     1     MP       TEMP   1           MULTIPLIER ( DA*RL )                        DATA      158
            20                     1     RL       TEMP   1           NUMBER OF ITEMS IN A REPLIST                DATA      159
            21                     1     DVLT     TEMP   1           -> FWA CURRENT VARLIST                      DATA      160
            22                     1     DILT     TEMP   1           -> FWA CURRENT CONLIST                      DATA      161
            23                     1     SELIST   TEMP   1           SAVES CURRENT *TB* CURSOR                   DATA      162
            24                     1     ASIA     TEMP   1           SAVE CELL FOR ASI                           DATA      163
                                  24 +   OSHA     EQU    ASIA        SAVE CELL FOR OSH                           DATA      164
            25                     1     OVIA     TEMP   1           SAVE CELL FOR OVI                           DATA      165
  
  
  
  
                                        **        DL. - FORMAT FOR T.DATL (DATA INITIALIZATION LIST POINTER      DATA      167
                                        *                TABLE), BUILT BY *BDL*.                                 DATA      168
                                                                                                                 DATA      169
                                                                                                                 DATA      170
                                                  DESCRIBE DL.,60                                                DATA      171
                                                  DEFINE 24          0                                           DATA      172
      L     22  00000000777777000000     VAR      DEFINE 18          FWA OF DATA VARIABLE LIST                   DATA      173
      L      0  00000000000000777777     CON      DEFINE 18          FWA OF DATA CONSTANT LIST                   DATA      174
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     6
        STORAGE CELLS AND DATA STRUCTURES.                            DVI 
  
                                        **        DVI - DATA VARIABLE INFO.                                      DATA      176
                                        *                                                                        DATA      177
                                        *         WORDS SETUP BY *BVT* TO USE IN MATCHING A DATA CONSTANT ITEM   DATA      178
                                        *         LIST WITH A VARIABLE OR LOOP.                                  DATA      179
                                        *         (DVI+0) FORMAT = (V1.)                                         DATA      180
                                        *         (DVI+1)        = (WB.)                                         DATA      181
                                        *         (DVI+2)        = (V3.)                                         DATA      182
                                                                                                                 DATA      183
                                                                                                                 DATA      184
                                                  DESCRIBE V1.,60,,WA.W                                          DATA      185
                                                                                                                 DATA      186
      L     73  40000000000000000000     SDPF     DEFINE 1           SINGLE/DOUBLE PRECISION FLAG                DATA      187
                                                  DEFINE 5                                                       DATA      188
      L     52  00777700000000000000     BASE     DEFINE WB.BASEL    ORDINAL OF BASE MEMBER                      DATA      189
                                                  DEFINE 24                                                      DATA      190
      L      0  00000000000000777777     ORD      DEFINE 18          ORDINAL INTO (T.SYM)                        DATA      191
                                                                                                                 DATA      192
                                                                                                                 DATA      193
                                                  DESCRIBE V3.,60,,WC.W                                          DATA      194
                                                                                                                 DATA      195
      L    252  77777700000000000000     ELS      DEFINE 18          ELEMENT SIZE (IN STORAGE UNITS)             DATA      196
      L    230  00000077777700000000     SSU      DEFINE 18          SUBSTRING SIZE (IN STORAGE UNITS)           DATA      197
      L    200  00000000000077777777     ABU      DEFINE 24          ADDITIONAL BIAS (IN STORAGE UNITS)          DATA      198
  
  
  
  
                                        **        (S.) - OUTPUT BLOCK CONSTRUCTION CONTROL WORDS.                DATA      200
                                                                                                                 DATA      201
                                                                                                                 DATA      202
            26                     2     S.DHW    BSS    2           HEADER WORDS BEING CONSTRUCTED              DATA      203
            30  77777777777777777776     S.POP    CON    -1          .PL. WHEN BLOCK STARTED                     DATA      204
            31                     1     S.FEA    BSS    1           FIRST ELEMENT ADDRESS (= FWA)               DATA      205
            32                     1     S.LEN    BSS    1           STORAGE UNITS OUTPUT SO FAR                 DATA      206
            33                     1     S.NCH    BSS    1           NR OF CHAR IN LAST OUTPUT WORD              DATA      207
            34                     1     S.PAD    BSS    1           .ZR. IF CAN BLANK PAD BY REP                DATA      208
            35                     1     S.BLEN   BSS    1           BLOCK LENGTH ON ORH CALL                    DATA      209
  
  
  
  
                                        **        DATA.E - FE ERROR EXIT.                                        DATA      211
                                        *                                                                        DATA      212
                                        *         ENTRY  (B7) = DIAGNOSTIC.                                      DATA      213
                                                                                                                 DATA      214
                                                                                                                 DATA      215
            36  0100000000 X             DATA.E   FATAL  B7          (SEVERITY ACTUALLY CONTROLLED BY FERRS)     DATA      216
                                                                                                                 DATA      217
            37                           DAT.Z    BSSENT 0           ...RETURN FROM ERROR PROCESSOR              DATA      218
            37  76600                             SHRINK T=DATI,0                                                DATA      219
            40  5160000000 X                      SHRINK T=DATS,X6                                               DATA      220
                          5120000000 X            SA2    T=CONB                                                  DATA      221
            41  10622                             SHRINK T=CON,X2    RESET CONSTANT TABLE LENGTH                 DATA      222
            42  0400000000 X                      EQ     FEC.RTN     RETURN TO FRONT END CONTROLLER...           DATA      244
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     7
        MAIN LOOP.
  
                                        ***       TRANSLATE DATA STATEMENT.                                      DATA      246
                                                                                                                 DATA      247
                                                                                                                 DATA      248
            43                                    HEREIF DATA                                                    DATA      249
                                                                                                                 DATA      250
            43  0100000074 +                      RJ     BDL         BUILD DATA LIST POINTERS                    DATA      254
            44  0100000000 X                      CALL   OIL         OUTPUT I.L.       /* FLUSH (T.PAR)          DATA      255
                                                                                                                 FC5A152     5
                                        *         RESET T=CONB TO T=CON IF IN EXUCUTABLES, SINCE                 FC5A152     6
                                        *         QCG MAY HAVE ADDED CONSTANTS.                                  FC5A152     7
                                                                                                                 FC5A152     8
            45  5110000000 X                      SA1    STAGE                                                   FC5A152     9
                          7160000000 X            SX6    FEC=EXU                                                 FC5A152    10
            46  13016                             BX0    X1-X6                                                   FC5A152    11
                     0310000051 +                 NZ     X0,DATA1    IF NOT PROCESSING EXUCUTABLES               FC5A152    12
            47  5110000000 X                      SA1    T=CON                                                   FC5A152    13
                          10611                   BX6    X1                                                      FC5A152    14
            50  5160000000 X                      SA6    T=CONB                                                  FC5A152    15
                                                                                                                 DATA      256
                                        *         MAIN LOOP.  FOR EACH DATA VARLIST/CONLIST/ GROUP, FIRST CALL   DATA      257
                                        *         BIT TO CONVERT THE ITEM LIST TO INTERNAL FORM.  THEN PVL       DATA      258
                                        *         PARSES THE VARIABLE LIST, AND ISSUES THE MATCHING CONS.        DATA      259
                                                                                                                 DATA      260
            51  43600                    DATA1    MX6    0                                                       DATA      261
                     5160000000 X                 SHRINK T=DAR,X6                                                DATA      262
            52  5160000000 X                      SHRINK T=DATI,X6                                               DATA      263
                          5160000000 X            SHRINK T=DATS,X6                                               DATA      264
            53  5160000000 +                      SETMEM F.GRUP,Z.GRUP,X6                                        DATA      265
                                                                                                                 DATA      266
            55  5110000000 X                      SA1    T.DATL                                                  DATA      267
                          5120000000 X            SA2    T=DATL                                                  DATA      268
            56  36312                             IX3    X1+X2                                                   DATA      269
                     5253777776                   SA5    X3-1        DLI = T.DATL( (T=DATL)-1 )                  DATA      270
                                                  LX5    -DL.CONP                                                DATA      271
                               53450              SA4    X5          A4 -> CON[DLI]                              DATA      272
                                   0              ERRNZ  18-DL.CONL                                              DATA      273
            57  20552                             LX5    DL.CONP-DL.VARP                                         DATA      274
                     74640                        SX6    A4                                                      DATA      275
                          73750                   SX7    X5                                                      DATA      276
                                   0              ERRNZ  18-DL.VARL                                              DATA      277
            60  5160000022 +                      SA6    DILT        SAVE LIST POINTERS                          DATA      278
                          55761                   =A7    A6-DILT+DVLT                                            DATA      279
            61  0100000133 +                      RJ     BIT         BUILT ITEM (DATA CONSTANT) TABLE            DATA      280
                                                                                                                 DATA      281
            62  0100000244 +                      RJ     PVL         PARSE/TRANSLATE VARIABLE LIST               DATA      282
            63  0315000071 +                      NZ     X5,DATA2    IF PROBLEM WITH VARLIST                     DATA      283
                          5140000000 X            SA4    T=DATS                                                  DATA      284
            64  43500                             MX5    0                                                       DATA      285
                     20424                        LX4    TP.BIASP    BIAS[1OP] = LENGTH OF DATA TABLE            DATA      286
                          6130000000 X            EMIT   V=DATA                                                  DATA      287
            66  0100000000 X                      CALL   PDI         PUBLISH DATA TO IL                          DATA      288
                                                                                                                 DATA      289
                                        **        ISSUE INFORMATIVE DIAGNOSTICS IF LISTS NOT THE SAME LENGTH.    DATA      290
                                                                                                                 DATA      291
            67  5110000002 +                      SA1    N.ITEM                                                  DATA      292
                          0331000000 X            MI     X1,E.DAVC   IF MORE VARIABLES THAN CONSTANTS            DATA      293
            70  0311000000 X                      NZ     X1,E.DACV   IF MORE CONSTANTS THAN VARIABLES            DATA      294
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     8
        MAIN LOOP.
  
                                                                                                                 DATA      295
            71                           DATA2    BSSENT 0           ...RETURN FROM ERROR PROCESSOR              DATA      296
            71  5110000000 X                      SA1    T=DATL                                                  DATA      297
                          7261777776              SX6    X1-1        (T=DATL) -= 1                               DATA      298
            72  54610                             SHRINK A1,X6                                                   DATA      299
                     0316000051 +                 NZ     X6,DATA1    IF MORE DATA GROUPS IN STATEMENT            DATA      300
            73  0400000037 +                      EQ     DAT.Z       RETURN TO FRONT END CONTROLLER              DATA      301
                                                                                                                 DATA      302
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE     9
        BDL - INITIALIZE DATA LIST POINTERS.
  
                                        **        BDL - BUILD DATA LIST POINTERS.                                DATA      305
                                        *                T.DATAL - TABLE OF FWA'S OF DIL(DATA ITEM LIST) AND     DATA      306
                                        *                DVL(DATA VARIABLE LIST) IS BUILT FROM FORWARD SCANNING  DATA      307
                                        *                OF THE DATA STATEMENT, FORMATTED AS DL. .               DATA      308
                                        *                ALSO PERFORMS SYNTAX CHECKING.                          DATA      309
                                        *                                                                        DATA      310
                                        *         ENTRY  B4 _ BEGINNING OF DATA STATEMENT                        DATA      311
                                        *         CALLS  STD, ADDWD                                              DATA      312
                                        *         USES   ALL                                                     DATA      313
                                                                                                                 DATA      314
                                                                                                                 DATA      315
            74  0400400074 +             BDL      SUBR               ENTRY/EXIT.                                 DATA      316
            75  76600                             SHRINK T=DATL,0                                                DATA      317
            76  7170000042                        SX7    O.COMMA                                                 DATA      318
                                                  LX7    TB.TOTP                                                 DATA      319
                          57741                   SA7    B4-B1       STORE A COMMA AT BEGINNING OF LIST          DATA      320
                               57441              SA4    B4-B1                                                   DATA      321
            77  63240                             SB2    X4                                                      DATA      322
                                                                                                                 DATA      323
                                        *         BEGINNING OF DATA VARIABLE LIST.                               DATA      324
                                        *         (B2) _ TOKEN TYPE                                              DATA      325
                                                                                                                 DATA      326
           100  6130000042               BDL10    IF.EQ  O.COMMA,BDL15     IF COMMA                              DATA      327
           101  6130000037                        IF.EQ  O.LP,BDL11  IF (                                        DATA      328
           102  6130000011                        IF.NE  O.VAR,BDL20 IF NOT VARIABLE                             DATA      329
           103  55441                    BDL11    =A4    A4-1                                                    DATA      330
           104  74740                    BDL15    SX7    A4                                                      DATA      331
                     43501                        LDBIT  X5,59-O.SLASH                                           DATA      333
           105  0100000121 +                      RJ     STD         FIND BEGINNING OF CON LIST                  DATA      334
           106  74640                             SX6    A4                                                      DATA      335
                     37567                        IX5    X6-X7                                                   FC5A147     5
                          20722                   LX7    DL.VARP                                                 FC5A147     6
           107  7255777776                        =X5    X5-1                                                    FC5A147     7
                          0305000117 +            ZR     X5,BDL30    IF VARIABLE LIST OMITTED                    FC5A147     8
                                                  LX6    DL.CONP                                                 DATA      336
           110  12667                             BX6    X6+X7                                                   DATA      337
                     43700                        MX7    0           MARK END OF VAR-LIST                        DATA      338
                                   0              ERRNZ  O.EOS                                                   DATA      339
                          54740                   SA7    A4                                                      DATA      340
           111  5110000000 X                      ADDWD  T.DATL      ADD FWA'S OF DVL AND DIL                    DATA      341
           112  43501                             LDBIT  X5,59-O.SLASH                                           DATA      342
                          0100000121 +            RJ     STD         FIND END OF CON LIST                        DATA      343
           113  54441                             SA4    A4+B1                                                   DATA      344
                     43700                        MX7    0           MARK END OF CON-LIST                        DATA      345
                                   0              ERRNZ  O.EOS                                                   DATA      346
                          55741                   SA7    A4-B1                                                   DATA      347
                               63240              SB2    X4                                                      DATA      348
           114  0400000100 +                      EQ     BDL10                                                   DATA      349
                                                                                                                 DATA      350
           115  66300                    BDL20    IF.NE  O.EOS,BDL30 IF NOT END OF STATEMENT                     FC5A111    10
           116  5120000000 X                      SA2    T=DATL                                                  DATA      352
                          0312000074 +            NZ     X2,EXIT.    IF NOT EMPTY DATA STATEMENT                 DATA      353
           117  6170000000 X             BDL30    FATAL  E.DSE       ** DATA SYNTAX ERROR                        FC5A111    11
           120  0400000037 +                      EQ     DAT.Z                                                   FC5A111    12
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    10
        BDL - INITIALIZE DATA LIST POINTERS.                          STD 
  
                                        **        STD - SCAN TO DELIMITER, PERFORM A PARENTHESIS CHECK.          DATA      356
                                        *                                                                        DATA      357
                                        *         ENTRY  (X5) = BIT MASK OF DELIMITER TO SCAN TO.                DATA      358
                                        *                (A4) -> ONE TOKEN BEFORE SCAN START.                    DATA      359
                                        *                                                                        DATA      360
                                        *         EXIT   (A4) -> DELIMITER TOKEN.                                DATA      361
                                        *                (B2) = TOKEN TYPE OF DELIMITER.                         DATA      362
                                        *                                                                        DATA      363
                                        *         USES   A1,A3,A4  B2-B5  X1,X3,X4                               DATA      364
                                                                                                                 DATA      365
                                                                                                                 DATA      366
           121  0400400121 +             STD      SUBR               ENTRY/EXIT...                               DATA      367
                                         .T       IFEQ   TEST,ON                                                 DATA      368
                                         Z        BITMIC (O.LP)                                                  DATA      369
                                                  SA1    ="Z"                                                    DATA      370
                                                  BX6    X1*X5                                                   DATA      371
                                                  NZ     X6,"BLOWUP" IF ILL TOKENS IN STOPPER SET                DATA      372
                                         .T       ENDIF                                                          DATA      373
                                         Z        BITMIC ("ARICON",O.CHAR,O.VAR,O.PL,O.MIN)                      DATA      374
           122  5110001020 +                      SA1    ="Z"                                                    DATA      375
                          6130000037              SB3    O.LP                                                    DATA      376
           123  66431                             =B4    B3-O.LP+O.RP                                            DATA      377
                                                                                                                 DATA      378
           124  54441                    STD1     SA4    A4+B1                                                   DATA      379
                     6224000000                   SB2    X4+                                                     DATA      380
                               22321              LX3    X1,B2                                                   DATA      381
           125  0333000124 +                      MI     X3,STD1     IF CONST OR VAR -- SKIP                     DATA      382
                          0523000127 +            NE     B2,B3,STD2  IF NOT A LPAREN                             DATA      383
           126  20430                             LX4    -TB.IOCPP                                               DATA      384
                     53440                        SA4    X4          SWOOP TO MATCHING RP, IGNORING IT           DATA      385
                                   0              ERRNZ  18-TB.IOCPL                                             DATA      386
                          0400000124 +            EQ     STD1                                                    DATA      387
                                                                                                                 DATA      388
           127  22325                    STD2     LX3    B2,X5                                                   DATA      389
                     0333000121 +                 MI     X3,EXIT.    IF THIS IS A SELECTED DELIMITER             DATA      390
           130  0424000131 +                      EQ     B2,B4,STD5  IF RP ** SYNTAX ERR (NEGATIVE PAREN COUNT)  FC5A111    13
                          0520000124 +            IF.NE  O.BOS,STD1  IF NOT BOS -- LOOP                          DATA      392
           131  6170000000 X             STD5     FATAL  E.DSE       ** SYNTAX ERROR (MISSING DELIMITER)         FC5A111    14
           132  0400000037 +                      EQ     DAT.Z                                                   FC5A111    15
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    11
        BIT - BUILD DATA ITEM TABLE.                                  BIT 
  
                                        **        BIT - BUILD DATA ITEM TABLE.                                   DATA      396
                                        *                SCAN THE ITEM LIST AND CONVERT IT INTO INTERNAL FORMAT. DATA      397
                                        *                CONSTANT ENTRIES ARE OF ONE WORD EACH, FORMATTED AS     DATA      398
                                        *                FORM 2 OF (DI.). ACTUAL CONSTANTS ARE STORED INTO       FC5A231    44
                                        *                CONSTANT TABLE, WITH PNT[DL.] POINTING TO THAT ENTRY.   DATA      400
                                        *                                                                        DATA      401
                                        *                REPETITION HEADER ENTRIES ARE FORMATTED AS FORM 1       DATA      402
                                        *                OF (DI.).                                               FC5A231    45
                                        *                                                                        DATA      404
                                        *         ENTRY  (A4) -> TOKEN IN FRONT OF CONSTANT LIST.                DATA      405
                                                                                                                 DATA      406
                                                                                                                 DATA      407
           133  0400400133 +             BIT      SUBR               ENTRY/EXIT...                               DATA      408
                                                                                                                 DATA      409
                                        *         PROCESS NEXT CONSTANT.                                         DATA      410
                                                                                                                 DATA      411
           134  54441                    BIT10    NEXTE                    NEXT ELIST ITEM                       DATA      412
                          5130001021 +            SA3    ="M.CON"                                                DATA      413
           135  13777                             BX7    0           SIGN = +0                                   DATA      414
                     22623                        LX6    X3,B2                                                   DATA      415
                          6150000005              =B5    O.CONS                                                  DATA      416
           136  6160000011                        =B6    O.VAR                                                   DATA      417
                          0326000000 X            PL     X6,E.DIL    IF NOT A CONSTANT BEGIN TOKEN               DATA      418
           137  5130001022 +                      SA3    ="UNSIGNC"                                              DATA      419
                          22623                   LX6    X3,B2                                                   DATA      420
           140  0336000154 +                      MI     X6,BIT20    IF UNSIGNED SIMPLE CONSTANT                 DATA      421
                          0425000175 +            EQ     B2,B5,BIT40 IF NUMBER                                   DATA      422
           141  0426000161 +                      EQ     B2,B6,BIT30 IF VARIABLE                                 DATA      423
                          6172777765              =B7    B2-O.TRUE                                               DATA      424
           142  6130000037                        SB3    O.LP                                                    DATA      425
                          0470000224 +            ZR     B7,BIT70    IF *.TRUE.*                                 DATA      426
                                                  IFNE   O.TRUE+1,O.FALSE,1                                      DATA      427
                                                  =B7    B2+O.TRUE+1-O.FALSE                                     DATA      428
           143  0471000224 +                      EQ     B7,B1,BIT70 IF .FALSE.                                  DATA      429
                          0423000220 +            EQ     B2,B3,BIT60 IF A LEFT PAREN                             DATA      430
           144  7122777762                        SX2    B2-O.MIN                                                DATA      431
                                                                                                                 DATA      432
                                        **        HERE WITH + OR - SIGN, OR PERIOD.                              DATA      433
                                                                                                                 DATA      434
                          6130000010              IF.EQ  O.PERIOD,BIT20    IF FLOATING PT. CONSTANT              DATA      435
                          23312                   AX3    X2,B1            -0 IF PLUS, +0 IF MINUS SIGN           DATA      436
                               14733              BX7    -X3                                                     DATA      437
           146  54441                             NEXTE                                                          DATA      438
                          6130000010              IF.EQ  O.PERIOD,BIT20    IF FLOATING PT. CONSTANT              DATA      439
                          0425000154 +            EQ     B2,B5,BIT20 IF NUMBER                                   DATA      440
           150  0421000154 +                      IF.EQ  O.HOLL,BIT20      IF HOLLERITH                          FC5A258    26
                          66311                   IF.EQ  O.QHOLL,BIT20     IF "" STRING                          FC5A258    27
                          6130000003              IF.EQ  O.RLCON,BIT20     IF R OR L CONSTANT                    FC5A304     6
                          6130000037              IF.EQ  O.LP,BIT60  IF POSSIBLE COMPLEX CONSTANT                FC5A304     7
                          0400000000 X            EQ     E.DIL1      INVALID SIGNED CONSTANT                     FC5A304     8
                                                                                                                 DATA      442
           154  5130001023 +             BIT20    SA3    ="M.BCON"                                               FC5A264     6
                          22323                   LX3    X3,B2                                                   FC5A264     7
           155  0323000157 +                      PL     X3,BIT25    IF NOT BOOLEAN CONSTANT                     FC5A264     8
                          6170000000 X            MDERR  E.MDE2                                                  FC5A264     9
                                                                                                                 FC5A264    10
           157  0100000546 +             BIT25    RJ     ADC         ADD CONSTANT TO TABLE                       FC5A264    11
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    12
        BIT - BUILD DATA ITEM TABLE.                                  BIT 
  
           160  0400000227 +                      EQ     BIT80                                                   DATA      444
                                                                                                                 DATA      445
                                        *         CHECK FOR SYMBOLIC CONSTANT.                                   DATA      446
                                        *                (A4) _ O.VAR TOKEN                                      FC5A231    46
                                                                                                                 DATA      448
           161  74641                    BIT30    SX6    A4+B1                                                   DATA      449
                     64440                        SB4    A4                                                      FC5A231    47
                          5160000023 +            SA6    SELIST      SAVE (SELIST) = TOKEN BUFFER POINTER        DATA      450
           162  43652                             MX6    TB.TOCL                                                 FC50554     7
                     11664                        BX6    X6*X4       EXTRACT NAME                                FC50554     8
                          5160000000 X            SA6    FILL.       SAVE FOR POSSIBLE DIAGNOSTIC                FC50554     9
           163  0100000767 +                      RJ     CSC         CHECK FOR SYMBOLIC CONSTANT                 DATA      451
           164  0770000000 X                      MI     B7,E.DIL4   IF NOT SYMBOLIC CONSTANT                    DATA      452
                          10566                   BX5    X6          REMEMBER (X5) = CONSTANT VALUE              DATA      453
                               66630              SB6    B3          (B6) = INDEX OF CONSTANT VALUE              DATA      454
           165  54430                             SA4    A3          PRESERVE PARAMETER *WC*                     FC50570     7
                     63510                        SB5    X1          PRESERVE MODE                               FC50570     8
                          20052                   LX0    XR.TAGP                                                 FC50570     9
           166  5110000000 X                      SA1    REFVAR                                                  FC50570    10
                          10600                   ADDREF X0,X1                                                   FC50570    11
           170  76150                             SX1    B5          RESTORE MODE                                FC50570    12
                     22304                        LX3    X4          RESTORE *WC*                                FC50570    13
                          5120000023 +            =A2    SELIST                                                  DATA      455
           171  5222000000                        SA2    X2+                                                     DATA      456
                          5140001024 +            SA4    ="M.SEP"                                                DATA      457
           172  63220                             SB2    X2                                                      DATA      458
                     22624                        LX6    X4,B2                                                   DATA      459
                          0326000202 +            PL     X6,BIT45    IF NEXT NOT SEPARATOR                       DATA      460
                                                                                                                 DATA      461
                                        *         ADD SYMBOLIC CONSTANT TO DATA TABLE.                           DATA      462
                                        *         (B6) = PNT TO CONSTANT TABLE                                   DATA      463
                                        *         (X1) = MODE OF CONSTANT                                        DATA      464
                                        *         (X3) = T.SYM *WC* WORD OF SYMBOLIC CONSTANT                    FC50570    14
                                                                                                                 DATA      466
           173  0100000573 +                      RJ     ASC         ADD SYMBOLIC CONSTANT TO DATA TABLE         FC5A231    49
           174  0400000227 +                      EQ     BIT80                                                   DATA      468
                                                                                                                 DATA      469
                                        *         REGULAR CONSTANT.                                              DATA      470
                                                                                                                 DATA      471
           175  64440                    BIT40    SB4    A4                LOOK AHEAD                            DATA      472
                     74540                        SX5    A4          SAVE A4                                     DATA      473
                          43601                   MX6    1                                                       DATA      474
           176  5160000243 +                      SA6    DATAFLG     INDICATE ERRORS TO BE SUPPRESSED            DATA      475
                          0100000000 X            CALL   DEC         SKIP OVER CONSTANT                          DATA      476
           177  43700                             MX7    0           CLOSE = 0      SIGN = +0                    DATA      477
                     5170000243 +                 SA7    DATAFLG     TURN OFF THE FLAG                           DATA      478
                               53450              SA4    X5          RESTORE A4                                  DATA      479
           200  56241                             SA2    B4+B1       TOKEN AFTER CONSTANT                        DATA      480
                     10566                        BX5    X6          REMEMBER (X5) = CONVERTED CONSTANT          DATA      481
                          5130001024 +            SA3    ="M.SEP"                                                DATA      482
           201  63220                             SB2    X2                                                      DATA      483
                     22223                        LX2    B2,X3                                                   DATA      484
                          0332000154 +            MI     X2,BIT20    IF FOLLOWER IN [COMMA, RP, EOS]             DATA      485
                                                                                                                 DATA      486
                                        *         ENTERING A REPETION GROUP.                                     DATA      487
                                        *         (A2,X2) = TOKEN FOLLOWING CONSTANT                             FC5A231    50
                                        *         (X5) = CONSTANT VALUE                                          DATA      489
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    13
        BIT - BUILD DATA ITEM TABLE.                                  BIT 
  
                                        *         (X1) = MODE OF CONSTANT                                        DATA      490
                                        *         (B2) = TOKEN VALUE FOLLOWING CONSTANT                          DATA      491
                                                                                                                 DATA      492
           202  5130000000 +             BIT45    SA3    REPFLAG                                                 DATA      493
                          0313000000 X            NZ     X3,E.DIL2   IF ALREADY WITHIN A REP LOOP                DATA      494
           203  43773                             MX7    -1          CLOSE = -1        /* SINGLE ITEM REP        DATA      495
                     6130000016                   IF.EQ  O.STAR,BIT50  IF CON FOLLOWED BY STAR                   DATA      496
                          5130000003 +            SA3    PL                                                      FC5A304     9
           205  76710                             SX7    B1          CLOSE = +1        /* REPEATED LIST          DATA      498
                     36637                        IX6    X3+X7       PL = PL + 1                                 FC5A304    10
                          54630                   SA6    A3                                                      FC5A304    11
           206  6130000037                        IF.NE  O.LP,E.DIL  IF NO LPAREN -- SYNTAX ERROR                DATA      501
           207  6170000000 X                      ANSI   E.DAR       ** REPEATED LIST NON-ANSI                   DATA      502
                                                                                                                 DATA      503
           210  74620                    BIT50    SX6    A2          SAVE (SELIST) -> FIRST TOKEN OF LIST        DATA      504
                     5160000023 +                 SA6    SELIST                                                  DATA      505
           211  5170000001 +                      SA7    CLOSREP     (CLOSREP) = CLOSE                           DATA      506
                          0100000763 +            RJ     CRC         CHECK REPEAT CONSTANT                       DATA      507
           212  43301                             CLAS=  X3,DI,(REP)                                             DATA      508
                     12636                        BX6    X3+X6       ADD REP ENTRY TO DATA ITEM TABLE            DATA      509
                          5110000000 X            ADDWD  T.DATI                                                  DATA      510
                                                                                                                 DATA      511
           214  5110000002 +                      SA1    N.ITEM                                                  DATA      512
                          73620                   SX6    X2          HDRI = INDEX OF REP HEADER                  FC5A269     4
           215  5150000023 +                      SA5    SELIST                                                  DATA      514
                          20122                   LX1    18          OLDN = PREVIOUS (N.ITEM)                    FC5A132    58
                               12616              BX6    X1+X6       (REPFLAG) =  42/ OLDN,  18/ HDRI            DATA      516
           216  5160000000 +                      SA6    REPFLAG                                                 DATA      517
                          43700                   MX7    0           (N.ITEM) = 0      /* COUNT THIS LIST        DATA      518
                               54710              SA7    A1                                                      DATA      519
           217  53450                             SA4    X5          RESTORE (A4)                                DATA      520
                     0400000134 +                 EQ     BIT10       LOOP..  TO PROCESS REP LIST                 DATA      521
                                                                                                                 DATA      522
                                                                                                                 DATA      523
                                        **        RAW LPAREN = START OF A COMPLEX CONSTANT.                      DATA      524
                                                                                                                 DATA      525
           220  0100000621 +             BIT60    RJ     CFC         CHECK FOR COMPLEX CONSTANT                  DATA      526
           221  6170000000 X                      SB7    E.DC7       ** ILL-FORMED COMPLEX CONSTANT              DATA      527
                          0310000036 +            NZ     X0,DATA.E   IF NOT A COMPLEX CONSTANT                   DATA      528
           222  10611                             BX6    X1                                                      DATA      529
                     22702                        LX7    X2                                                      DATA      530
                          7110000005              =X1    M.CPLX                                                  DATA      531
           223  0400000226 +                      EQ     BIT75                                                   DATA      532
                                                                                                                 DATA      533
                                                                                                                 DATA      534
                                        **        HANDLE LOGICAL CONSTANTS HERE.                                 DATA      535
                                        *                (B7) = 0 IF .TRUE.                                      DATA      536
                                        *                     = 1 IF .FALSE.                                     DATA      537
                                                                                                                 DATA      538
           224  74741                    BIT70    SX7    A4+B1       SAVE TOKEN BUFFER POINTER                   DATA      539
                     77671                        SX6    B7-B1       (X6) = -1 IFF TRUE,  = 0 IFF FALSE          DATA      540
                          76110                   =X1    M.LOG                                                   DATA      541
           225  5170000023 +                      SA7    SELIST                                                  DATA      542
                                                                                                                 FC50570    15
           226  0100000604 +             BIT75    RJ     ASI         ADD SCALAR ITEM                             DATA      543
                                                                                                                 FC5A304    12
           227  5110000000 X             BIT80    ADDWD  T.DATI      ADD ITEM DESCRIPTOR                         DATA      544
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    14
        BIT - BUILD DATA ITEM TABLE.                                  BIT 
  
           230  5150000023 +                      SA5    SELIST                                                  DATA      545
                          5130000002 +            SA3    N.ITEM                                                  DATA      546
           231  53450                             SA4    X5          RESTORE TOKEN SCAN REGISTERS                DATA      547
                     73631                        =X6    X3+1        (N.ITEM) = (N.ITEM) + 1                     DATA      548
                          63240                   SB2    X4                                                      DATA      549
                               54630              SA6    A3                                                      DATA      550
                                        *         EQ     BIT85                                                   DATA      551
                                                                                                                 DATA      552
                                        *         PROCESS SEPERATOR AFTER CONSTANT                               DATA      553
                                                                                                                 DATA      554
                                                                                                                 DATA      555
           232  5110000001 +             BIT85    SA1    CLOSREP                                                 DATA      556
                          0321000234 +            PL     X1,BIT90          IF NO SINGLE ELEMENT REP OUTSTANDING  DATA      557
           233  0100000743 +                      RJ     CRL                                                     DATA      558
                                                                                                                 DATA      559
           234  6130000042               BIT90    IF.EQ  O.COMMA,BIT10     LOOP IF A COMMA                       DATA      560
           235  0420000133 +                      ZR     B2,EXIT.    IF END OF CONSTANT LIST                     DATA      561
                                   0              ERRNZ  O.EOS                                                   DATA      562
                          6130000016              IF.EQ  O.STAR,E.DCE      IF '*'                                FC5A304    13
                          6130000040              IF.NE  O.RP,E.DIL3 IF NOT A RPAREN, ERR..                      DATA      563
                          43700                   MX7    0                                                       DATA      564
           240  5170000003 +                      SA7    PL                CLEAR PAREN LEVEL                     DATA      565
                          5110000001 +            SA1    CLOSREP                                                 DATA      566
           241  0301000242 +                      ZR     X1,BIT95          IF NO REP LIST TO CLOSE               DATA      567
                          0100000743 +            RJ     CRL               CLOSE IT                              DATA      568
                                                                                                                 DATA      569
           242  54441                    BIT95    NEXTE                    NEXT ELEMENT                          DATA      570
                          0400000232 +            EQ     BIT85                                                   DATA      571
                                                                                                                 DATA      572
           243                     1     DATAFLG  BSZENT 1                                                       DATA      573
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    15
        PARSE DATA VARIABLE LIST.                                     PVL 
  
                                        **        PVL - PARSE DATA VARIABLE LIST.                                DATA      576
                                        *                                                                        DATA      577
                                        *  1.     CALLS I/O LOOP/LIST COMPILER, *CVL*, TO ATTEMPT COLLAPSE,      DATA      578
                                        *         AND GENERATE TURPLES FOR THIS DATA STATEMENT SEGMENT.          DATA      579
                                        *         EACH LIST ITEM IS PROCESSED BY *C=DVL*, BELOW, WHICH           DATA      580
                                        *         EMITS A *V=DVI* TURPLE.                                        DATA      581
                                        *  2.     AFTER THE DATA SEGMENT IS SUCCESSFULLY SCANNED, WE             DATA      582
                                        *         CALL CONRED/SED TO SIMULATE EXECUTION OF (T.DAR).  FOR         DATA      583
                                        *         EACH V=DVI TURPLE SIMULATED, IT WILL CALL *EDI*, IN THE        DATA      584
                                        *         OUTPUT SECTION CODE BELOW, TO MAKE (T.DATS) ENTRIES            DATA      585
                                        *         REPRESENTING THE FINAL TRANSLATION.                            DATA      586
                                        *                                                                        DATA      587
                                        *         EXIT   (X5) .NZ. = ERROR IN VARIABLE LIST.                     DATA      588
                                        *                                                                        DATA      589
                                        *         USES   ALL.                                                    DATA      590
                                        *         CALLS  CVL, SED.                                               DATA      591
                                                                                                                 DATA      592
                                                                                                                 DATA      593
           244  0400400244 +             PVL      SUBR   0           ENTRY/EXIT...                               DATA      594
           245  5130000022 +                      SA3    DILT                                                    DATA      595
                          55231                   =A2    A3-DILT+DVLT                                            DATA      596
                               13666              BX6    O.EOS                                                   DATA      597
           246  7170000042                        =X7    O.COMMA                                                 DATA      598
                          63420                   SB4    X2          (B4)+1  ->  DATA VARIABLE LIST              DATA      599
                               53631              SA6    X3+B1       MARK END OF VARLIST WITH EXTRA EOS          DATA      600
           247  5110000000 X                      SA1    DATARM                                                  DATA      601
                          5120000000 X            SA2    DVLOP                                                   DATA      602
           250  56740                             SA7    B4          PRECEDE VARLIST WITH COMMA                  DATA      603
                     7160000005                   =X6    PM=DATA                                                 DATA      604
           251  5160000000 X                      SA6    DATFLG                                                  DATA      605
                          0100000000 X            CALL   CVL         COMPILE VARIABLE LIST                       DATA      606
           252  5120000021 +                      SA2    DVLT                                                    DATA      607
                          43773                   MX7    -1                                                      DATA      608
                               13666              BX6    0                                                       DATA      609
           253  5160000004 +                      SA6    I.DIT       (I.DIT) = 0                                 DATA      610
                          5160000000 X            SA6    DATFLG      INDICATE DATA-KLUDGE OVER                   DATA      611
                                   0              ERRNZ  O.EOS                                                   DATA      612
           254  53620                             SA6    X2          RESTORE EOS AT END OF PREV CONLIST          DATA      613
                     5170000030 +                 SA7    S.POP       INDICATE NO INCOMPLETE OUTPUT BLOCK         DATA      614
                               43501              MX5    1           SET ERROR FLAG                              DATA      615
           255  5110000000 X                      SA1    E=TOTAL                                                 DATA      616
                          0311000257 +            NZ     X1,PVL9     IF FATAL IN LIST, SKIP SED                  DATA      617
                                                                                                                 DATA      618
                                         .T       IFEQ   TEST,ON                                                 DATA      619
                                                  SA1    CO.SNAP                                                 DATA      620
                                                  BX2    X1                                                      DATA      621
                                                  LX1    1RO                                                     DATA      622
                                                  LX2    1R9                                                     DATA      623
                                                  BX3    X1+X2                                                   DATA      624
                                                  PL     X3,PVL6     IF NO SNAP SELECTED                         DATA      625
                                                  CALL   SN.PAR                                                  DATA      626
                                         PVL6     SB2    T.PAR                                                   DATA      627
                                                  SB3    T.DAR                                                   DATA      628
                                                  NE     B2,B3,"BLOWUP"    NEED CODE FOR DISTINCT (T.DAR)        DATA      629
                                         .T       ENDIF                                                          DATA      630
                                                                                                                 DATA      631
           256  0100000000 X                      CALL   SED         SIMULATE EXECUTION OF DATA                  DATA      632
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    16
        PARSE DATA VARIABLE LIST.                                     PVL 
  
                                                                                                                 DATA      633
                                         .T       IFEQ   TEST,ON                                                 DATA      634
                                                  SA1    CO.SNAP                                                 DATA      635
                                                  LX1    1R9                                                     DATA      636
                                                  PL     X1,PVL9     IF SNAP=9 NOT SELECTED                      DATA      637
                                         PVL9     DUMPT  (DATS)                                                  DATA      638
                                         .T       ENDIF                                                          DATA      639
           257                           PVL9     BSS                                                            DATA      640
           257  76600                             SHRINK T=DAR,0                                                 DATA      641
           260  0400000244 +                      EQ     EXIT.                                                   DATA      642
  
  
  
  
                                        **        C=DVL - EMIT DATA VARIABLE TURPLES.                            DATA      644
                                        *                                                                        DATA      645
                                        *         EXIT   TO IOL.RTN                                              DATA      646
                                        *                                                                        DATA      647
                                        *         CALLS  DOA, EMT.                                               DATA      648
                                                                                                                 DATA      649
                                                                                                                 DATA      650
           261                           C=DVL    BSSENT 0           ENTRY...                                    DATA      651
           261  6130000000 X                      SB3    E.DVL1                                                  FC5A218    34
                          43401                   MX4    1                                                       FC5A218    35
           262  0100000000 X                      CALL   VAI         VALIDATE ADDRESSABILITY                     FC5A218    36
                                                                                                                 DATA      691
                                        *         OPERAND IS LEGAL.  NOW DETERMINE IT'S LENGTH, AS EITHER        DATA      692
                                        *         SINGLE ELEMENT, COLLAPSED LOOP, OR ENTIRE ARRAY.               DATA      693
                                                                                                                 DATA      694
           263  22005                             LX0    X5                                                      DATA      695
                     10455                        BX4    X5                                                      DATA      696
                          5150000000 X            SA5    CONONE                                                  DATA      697
           264  20061                             HX0    TP.INTR                                                 DATA      698
                     0320000276 +                 PL     X0,DVL24    IF ITEM NOT INTERMEDIATE                    DATA      699
                               20071              LX0    TP.INTRP-TP.ARRP                                        DATA      700
           265  0320000305 +                      PL     X0,DVL30    IF ITEM NOT SUBSCRIPTED ARRAY               DATA      701
                                                                     (MUST BE SUBSTRING)                         DATA      702
                          5130000000 X            SA3    IODOIND                                                 DATA      703
           266  0303000305 +                      ZR     X3,DVL30    IF I/O DO COLLAPSE NOT INVOLVED             DATA      704
                          20320                   HX3    TP.BIAS                                                 DATA      705
                               21344              AX3    -TP.BIASL   ISOLATE OFFSET                              DATA      706
           267  0303000274 +                      ZR     X3,DVL21    IF NO OFFSET TO ADD TO BIAS                 DATA      707
                          5110000000 X            SA1    T.PAR                                                   DATA      708
           270  22204                             LX2    X4                                                      DATA      709
                                                  HX2    TP.ORD                                                  DATA      710
                     21254                        AX2    -TP.ORDL    ISOLATE INTERMEDIATE POINTER                DATA      711
                          63221                   =B2    X2+OR.1OP   THE ARRAY OPERAND                           DATA      712
                               53112              SA1    X1+B2       FETCH ARRAY-LOAD ARRAY OPERAND              DATA      713
           271  43030                             MX0    TP.BIASL                                                DATA      714
                     22201                        LX2    X1                                                      DATA      715
                          20120                   HX1    TP.BIAS                                                 DATA      716
                               21144              AX1    -TP.BIASL   ISOLATE (SIGN EXTEND) BIAS                  DATA      717
           272  36313                             IX3    X1+X3       ADD IN COLLAPSE OFFSET                      DATA      718
                     20324                        LX3    TP.BIASP    TO BIAS FIELD                               DATA      719
                          20054                   LX0    TP.BIASL+TP.BIASP                                       DATA      720
                               11330              BX3    X3*X0       ISOLATE NEW BIAS                            DATA      721
           273  15220                             BX2    -X0*X2      CLEAR OLD BIAS                              DATA      722
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    17
        PARSE DATA VARIABLE LIST.                                     C=DVL 
  
                     12623                        BX6    X2+X3       REPLACE WITH NEW BIAS                       DATA      723
                          54610                   SA6    A1          RESTORE TO T.PAR                            DATA      724
           274  54531                    DVL21    =A5    A3+1        FETCH PARTIAL COLLAPSE SIZE                 DATA      725
                     76600                        =X6    0                                                       DATA      726
                          54650                   SA6    A5                                                      DATA      727
                               55651              =A6    A5-1        CLEAR COLLAPSE INDICATORS                   DATA      728
           275  0400000305 +                      EQ     DVL30                                                   DATA      729
                                                                                                                 DATA      730
           276  10044                    DVL24    BX0    X4                                                      DATA      731
                     20066                        SBIT   X0,TP.AREP                                              DATA      732
                          0320000305 +            PL     X0,DVL30    IF SINGLE ELEMENT                           DATA      733
           277  5120000000 X                      SA2    T.SYM                                                   FC5A111    16
                          20006                   LX0    1+TP.AREP   RESTORE X0 TO NOMINAL POSITION              FC5A111    17
                                                  HX0    TP.ORD                                                  FC5A111    18
                               21054              AX0    -TP.ORDL    EXTRACT SYMORD                              FC5A111    19
           300  6230000001                        SB3    X0+WB.W                                                 FC5A111    20
                          20001                   LX0    1                                                       FC5A111    21
                               63303              SB3    X0+B3       CONVERT TO *WB* INDEX                       FC5A111    22
           301  53223                             SA2    X2+B3       X2 = *WB*                                   FC5A111    23
                                         .T       IFEQ   TEST,ON                                                 DATA      735
                                                  BX3    X2                                                      DATA      736
                                                  HX3    WB.ARY                                                  DATA      737
                                                  PL     X3,"BLOWUP" IF NOT ARRAY, PAR GOOF                      DATA      738
                                         .T       ENDIF                                                          DATA      739
                                                                                                                 DATA      740
                     5130000000 X                 SA3    T.DIM                                                   DATA      741
                               20215              LX2    -WB.PNTP                                                DATA      742
           302  43057                             MX0    -WB.PNTL                                                DATA      743
                     15520                        BX5    -X0*X2      ISOLATE T.DIM ORD                           DATA      744
                          63350                   SB3    X5                                                      DATA      745
                               43044              MX0    -DH.PSL                                                 DATA      746
           303  53133                             SA1    X3+B3       FETCH DIMENSION PARAMETERS                  DATA      747
                     20136                        LX1    -DH.PSP                                                 DATA      748
                          15510                   BX5    -X0*X1      ARRAY LENGTH                                DATA      749
                               20524              LX5    TP.BIASP                                                DATA      750
           304  7120010002                        CLAS=  X2,TP,(SHRT),INT                                        DATA      751
                          12552                   BX5    X5+X2       MAKE INTO SHORT CONSTANT                    DATA      752
                                         .T       IFEQ   TEST,ON                                                 DATA      753
                                                  SBIT   X1,DH.ASP/DH.PSP-1                                      DATA      754
                                                  BX2    X1                                                      DATA      755
                                                  SBIT   X1,DH.VDP/DH.ASP                                        DATA      756
                                                  BX2    X1+X2                                                   DATA      757
                                                  MI     X2,"BLOWUP" IF ASSUMED OR ADJUSTABLE ARRAY              DATA      758
                                         .T       ENDIF                                                          DATA      759
                                                                                                                 DATA      760
                                        *         (X4) = (1OP) = LIST ITEM (TP. FORMAT)                          DATA      761
                                        *         (X5) = (2OP) = LENGTH INDICATOR (TP. FORMAT)                   DATA      762
                                                                                                                 DATA      763
           305  7110000000 X             DVL30    SX1    V=DVI       SKEL = DATA VARIABLE INITIALIZATION         DATA      764
                          43071                   MX0    -TP.MODEL                                               DATA      765
                                                  LX4    -TP.MODEP                                               DATA      766
                               20152              LX1    SP.SKELP                                                FC50104    62
           306  15040                             BX0    -X0*X4      EXTRACT MODE OF 1OP                         DATA      768
                     20022                        LX0    SP.MODEP                                                FC50104    63
                          12610                   BX6    X1+X0       MERGE MODE INTO TURPLE HEADER               DATA      770
           307  5160000312 +                      SA6    DVLA                                                    DATA      771
                                                  LX4    TP.MODEP                                                DATA      772
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    18
        PARSE DATA VARIABLE LIST.                                     C=DVL 
  
                          6130400312 +            EMIT   DVLA,*                                                  DATA      773
           311  0400000000 X                      EQ     IOL.RTN     EXIT..      (THRU POPPER)                   DATA      774
                                                                                                                 DATA      775
           312                     1     DVLA     BSS    1           SAVE OPERAND                                DATA      776
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    19
        OUTPUT ROUTINES                                               EDI 
  
                                        **        EDI - EMIT DATA INITIALIZATIONS.                               DATA      779
                                        *                                                                        DATA      780
                                        *         WHEN CONRED/SED IS SIMULATING THE I.L. DATA TRANSLATIONS,      DATA      781
                                        *         A *V=DVI* TURPLE BECOMES A CALL TO THIS ROUTINE.               DATA      782
                                        *                                                                        DATA      783
                                        *         ENTRY  (X6) = NUMBER OF ELEMENTS TO ISSUE.                     DATA      784
                                        *                (X1) = ADDRESS OF FIRST ELEMENT, (WC.) FORMAT.          DATA      785
                                        *                (B6) = SYMORD OF ORIGINAL VARIABLE.                     DATA      786
                                        *                (B7) = SYMORD OF EQUIV-CLASS BASE.                      DATA      787
                                        *                                                                        DATA      788
                                        *         CALLS  SDV, NIC.                                               DATA      789
                                        *         USES   ALL.                                                    DATA      790
                                                                                                                 DATA      791
                                                                                                                 DATA      792
           313  0400400313 +             EDI      SUBR   =           ENTRY/EXIT...                               DATA      793
                                         .T       IFEQ   TEST,ON                                                 DATA      794
                                                  SA3    CO.SNAP                                                 DATA      795
                                                  LX3    1R9                                                     DATA      796
                                                  PL     X3,EDI1     IF (SNAP=9) NOT SELECTED                    DATA      797
                                         EDI      REG    (X1,X6,B6,B7)                                           DATA      798
                                         EDI1     BSS                                                            DATA      799
                                         .T       ENDIF                                                          DATA      800
                                                                                                                 DATA      801
           314  43700                             MX7    0           SET INTERNAL DATA BIAS = ZERO               DATA      802
                     10411                        BX4    X1                                                      DATA      803
                          5170000012 +            SA7    BIAS                                                    DATA      804
           315  5160000436 +                      SA6    NICT        SAVE TRIP COUNT                             DATA      805
                          0100000520 +            CALL   SDV         SETUP DATA VARIABLE                         DATA      806
           316  76610                             SX6    B1          INDEX DIFFERENCE = 1, FOR NOW               DATA      808
                     5150000012 +                 SA5    BIAS                                                    DATA      809
           317  0100000321 +                      CALL   NIC         EMIT LINEAR PROGRESSION                     DATA      811
           320  0400000313 +                      EQ     EXIT.                                                   DATA      812
  
  
  
  
                                        **        NIC - OUTPUT LINEAR INDEX PATTERN.                             DATA      815
                                        *                                                                        DATA      816
                                        *         INITIALIZE AN ARITHMETIC PROGRESSION OF INDICIES.              DATA      817
                                        *         THAT IS, THIS SUBROUTINE OUTPUTS DATA INITIALIZATION FOR --    DATA      818
                                        *                ( ARY (M*I +BIAS), I = 1,TC )   /"DATA ITEM LIST"/      DATA      819
                                        *                                                                        DATA      820
                                        *         THE INDEX DIFFERENCE BETWEEN SUCCESSIVE ELEMENTS IS --         DATA      821
                                        *                DA = ARY(M*(I+1)) - ARY(M*I)                            DATA      822
                                        *                   = M * SPAN(J)                                        DATA      823
                                        *                                                                        DATA      824
                                        *         ENTRY  (X5) = BIAS - ANY ADDITIONAL BIAS.                      DATA      825
                                        *                (X6) = DA - THE INDEX DIFFERENCE.                       DATA      826
                                        *                                                                        DATA      829
                                        *         EXIT   (N.ITEM) = DECREMENTED TO ACCOUNT FOR ITEMS CONSUMED.   DATA      830
                                        *                            NOTE THAT EXACTLY (TC) ITEMS WILL BE USED,  DATA      831
                                        *                            UNLESS ENTIRE CONSTANT LIST IS PREMATURELY  DATA      832
                                        *                            EXHAUSTED.                                  DATA      833
                                        *                                                                        DATA      834
                                        *         CALLS  GNI, OVI, OSH, ORH, UPH.                                DATA      835
                                                                                                                 DATA      836
                                                                                                                 DATA      837
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    20
        OUTPUT ROUTINES                                               NIC 
  
           321  0400400321 +             NIC      SUBR               ENTRY/EXIT...                               DATA      838
           322  5130000002 +                      SA3    N.ITEM                                                  DATA      839
                          7273777776              SX7    X3-1                                                    FC5A266     6
           323  5160000014 +                      SA6    DA                                                      FC5A266     7
                          0327000325 +            PL     X7,NIC10    IF CONSTANTS REMAINING                      FC5A266     8
           324  5073000000                        SA7    A3+         FLAG CONSTANT/VARIABLE COUNT MISMATCH       FC5A266     9
                          0400000321 +            EQ     EXIT.                                                   FC5A266    10
                                                                                                                 FC5A266    11
           325  10655                    NIC10    BX6    X5                                                      FC5A266    12
                     5160000434 +                 SA6    NICB        (NICB) = BIAS                               DATA      845
                                                                                                                 DATA      846
           326  5130000000 +             NIC20    SA3    REPFLAG                                                 DATA      847
                          5150000004 +            SA5    I.DIT                                                   DATA      848
           327  0303000333 +                      ZR     X3,NIC24    IF NOT IN THE MIDDLE OF A REP               DATA      849
                                                                                                                 DATA      850
                                        *         IN THE MIDDLE OF A REP , ADJUST REP COUNT DECREMENT ( DEC )    DATA      851
                                        *                DEC = 0,  IFF AT START OF REPEATED CON LIST,            DATA      852
                                        *                DEC = -1, IF NOT AT START.                              DATA      853
                                                                                                                 DATA      854
                          10233                   BX2    X3                                                      DATA      855
                               20244              LX2    -DI.RLP                                                 DATA      856
           330  63420                             SB4    X2          (B4) = RL         /* (N.ITEMS) IN REP LIST  DATA      857
                                   0              ERRNZ  18-DI.RLL                                               DATA      858
                     43700                        MX7    0           DEC = 0                                     DATA      859
                          0441000335 +            EQ     B4,B1,NIC26 IF RL = 1                                   DATA      860
           331  5140000006 +                      SA4    I.DIT+2     T.DATI ORDINAL OF FIRST ITEM IN REP LIST    DATA      861
                          37545                   IX5    X4-X5                                                   DATA      862
                               77001              =X0    -1                                                      DATA      863
           332  21573                             AX5    59                                                      DATA      864
                     11705                        BX7    X0*X5       DEC = -1 IF NOT AT THE START OF REP         DATA      865
                          0400000335 +            EQ     NIC26                                                   DATA      866
                                                                                                                 DATA      867
           333  5120000000 X             NIC24    SA2    T.DATI                                                  DATA      868
                          63750                   SB7    X5          (B7) = NEXT ITEM TABLE INDEX                DATA      869
                               53327              SA3    B7+X2       FETCH (X3) = DATA ITEM DESCRIPTOR           DATA      870
                                                  HX3    DI.REP                                                  DATA      871
           334  0323000410 +                      PL     X3,NIC60    IF NOT THE START OF A NEW REP LIST          DATA      872
                          13777                   BX7    0           DEC = 0                                     DATA      873
                                                  LX3    1+DI.REPP                                               DATA      874
                                                                                                                 DATA      875
                                        *         REP LIST ENCOUNTERED - SEE IF WE CAN OUTPUT "REPI" MACROS.     DATA      876
                                        *         ENTRY  (A3, X3) = REP LIST INFO.  UPDATE BEFORE DESTROYING IT. DATA      877
                                        *                (X7) = DEC                                              DATA      878
                                        *         COMPUTE NUMBER OF TIMES WE CAN REP THE DATA --                 DATA      879
                                        *                N = MIN (RC+DEC, TC/RL)                                 DATA      880
                                                                                                                 DATA      881
           335  5150000436 +             NIC26    SA5    NICT        (X5) = TC                                   DATA      882
                                                  LX3    -DI.RCP                                                 DATA      883
                          43044                   MX0    -DI.RCL                                                 FC5A132    59
                               15030              BX0    -X0*X3      (X0) = RC                                   FC5A132    60
           336  20344                             LX3    DI.RCP-DI.RLP                                           DATA      886
                     73230                        SX2    X3          (X2) = RL                                   DATA      887
                                   0              ERRNZ  18-DI.RLL                                               DATA      888
                          73620                   SX6    X2          SAVE (RL) = (DI.RL)                         DATA      889
                               63220              SB2    X2          (B2) = RL                                   DATA      890
           337  5160000020 +                      SA6    RL                                                      DATA      891
                          36007                   IX0    X0+X7       RC + DEC                                    DATA      892
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    21
        OUTPUT ROUTINES                                               NIC 
  
                               27505              IX5    X5/X6       TC / RL                                     DATA      893
                          20330                   LX3    DI.RLP                                                  DATA      894
                               37650              MX6    X5-X0       N = MIN OF THE TWO                          DATA      895
           343  63660                             SB6    X6                                                      DATA      896
                     0616000410 +                 LE     B6,B1,NIC60  IF WE CAN'T REP IT AT LEAST TWICE          DATA      897
                                                                                                                 DATA      898
                                        *         LIST CAN BE REPPED (N) TIMES.  SINCE GNI WILL BE CALLED ONLY   DATA      899
                                        *         ONCE TO OUTPUT THE DATA ITEMS (N) TIMES, THE REPEAT COUNT (RC) DATA      900
                                        *         MUST BE DECREMENTED BY (N-1).                                  DATA      901
                                        *                (A3,X3) = ITEM TABLE ENTRY.                             DATA      902
                                        *                (X6) = N                                                DATA      903
                                        *                (B2) = RL                                               DATA      904
                                                                                                                 DATA      905
           344  5160000435 +                      SA6    NICN        SAVE (NICN) = N                             DATA      906
                          7256777776              SX5    X6-1                                                    DATA      907
           345  5110000014 +                      SA1    DA                                                      DATA      908
                                                  LX5    DI.RCP      (DI.RC) = (DI.RC) - (N-1)                   DATA      909
                          37635                   IX6    X3-X5                                                   DATA      910
                               76720              SX7    B2          DLEN = RL                                   DATA      911
           346  54630                             SA6    A3                                                      DATA      912
                     43273                        MX2    -1                                                      DATA      913
                          37571                   IX5    X7-X1       INITIAL BIAS = RL - DA                      DATA      914
                               42617              IX6    X1*X7       MP = DA * RL                                DATA      915
           347  36212                             IX2    X1+X2       DA - 1                                      DATA      916
                     5160000017 +                 SA6    MP                                                      DATA      917
           350  0421000351 +                      EQ     B2,B1,NIC30 IF RL .EQ. 1 -- TRIVIAL CONTIGUITY          DATA      918
                          0312000365 +            NZ     X2,NIC40    IF DA .NE. 1 -- NON-CONTIGUOUS BLOCK        DATA      919
                                                                                                                 DATA      920
                                                                                                                 DATA      921
                                        **        CASE 1.  CONTIGUOUS BLOCK.                                     DATA      922
                                        *                (DA = 1) OR (RL = 1)                                    DATA      923
                                        *         ISSUE A SINGLE REP HEADER, AND EACH ITEM, ONCE.                DATA      924
                                        ***       FOR NOW, PROCESS CHARACTER ITEMS, RL .NE. 1 USING***           DATA      925
                                        ***       CASE 2.                                          ***           DATA      926
                                                                                                                 DATA      927
           351  5110000010 +             NIC30    SA1    DVI+WB.W                                                DATA      928
                          43071                   MX0    -WB.MODEL                                               DATA      929
                                                  LX1    -WB.MODEP                                               DATA      930
                               15110              BX1    -X0*X1      MODEI = MODE[DVI+ WB.W]                     DATA      931
           352  6271777771                        SB7    X1-M.CHAR                                               DATA      932
                          0570000354 +            NZ     B7,NIC32    IF NOT MODE CHARACTER                       DATA      933
           353  0521000365 +                      NE     B2,B1,NIC40 IF RL .NE. 1                                DATA      934
           354  5110000435 +             NIC32    SA1    NICN        N = (NICN)  */REP COUNT                     DATA      935
                          5120000017 +            SA2    MP          I = (MP)          /* INCREMENT              DATA      936
           355  10677                             BX6    X7          B = (DLEN)        /* BLOCK LENGTH           DATA      937
                     5130000434 +                 SA3    NICB        FB = (NICB)       /* FWA BIAS               DATA      938
           356  0100000462 +                      RJ     ORH         OUTPUT REPI HEADER                          DATA      939
                                                                                                                 DATA      940
           357  5110000020 +                      SA1    RL                                                      DATA      941
                          14611                   BX6    -X1         SET LOOP COUNTER FOR (RL) ITEMS             DATA      942
           360  5160000015 +             NIC34    SA6    LI                                                      DATA      943
                          0100001001 +            RJ     GNI         GET NEXT ITEM                               DATA      944
           361  0100000474 +                      RJ     OVI         OUTPUT VALUE OF ITEM                        DATA      945
           362  5110000015 +                      SA1    LI                                                      DATA      946
                          73611                   SX6    X1+B1       DECREMENT LOOP INDEX                        DATA      947
           363  0316000360 +                      NZ     X6,NIC34    IF LI .LT. 0, LOOP                          DATA      948
                          0100000537 +            RJ     UPH         UPDATE PREVIOUS HEADER                      DATA      949
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    22
        OUTPUT ROUTINES                                               NIC 
  
           364  0400000377 +                      EQ     NIC50                                                   DATA      950
                                                                                                                 DATA      951
                                                                                                                 DATA      952
                                        **        CASE 2.  NON-CONTIGUOUS PATTERN.                               DATA      953
                                        *                (RL .GT. 1)  OR  (DA .NE. 1)                            DATA      954
                                        *         ISSUE (RL) REPS, ONE FOR EACH DATA ITEM.  THE FWA BIAS OF      DATA      955
                                        *         THE (J)TH REP TABLE IS:  JB = BIAS0 + J * DA.                  DATA      956
                                        *                                                                        DATA      957
                                        *         ENTRY  (B2) = RL.                                              DATA      958
                                        *                (NICB) = BIAS0.                                         DATA      959
                                                                                                                 DATA      960
           365  5130000434 +             NIC40    SA3    NICB                                                    DATA      961
                          77702                   SX7    -B2         SET TO LOOP (RL) TIMES                      DATA      962
                               10633              BX6    X3          JB = BIAS0        /* ITEM BIAS              DATA      963
           366  5170000015 +                      SA7    LI                                                      DATA      964
                          54671                   SA6    A7+B1                                                   DATA      965
                                                                                                                 DATA      966
           367  5110000435 +             NIC44    SA1    NICN        N = (NICN)  */REP COUNT                     DATA      967
                          5120000017 +            SA2    MP          I = (MP)          /* INCREMENT              DATA      968
           370  76610                             SX6    B1          B = 1             /* BLOCK LENGTH           DATA      969
                                        *         X3                 FB = JB           /* FWA BIAS               DATA      970
                     0100000462 +                 RJ     ORH         OUTPUT REPI HEADER                          DATA      971
           371  0100001001 +                      RJ     GNI         GET NEXT ITEM                               DATA      972
           372  0100000474 +                      RJ     OVI         OUTPUT VALUE OF ITEM                        DATA      973
           373  0100000537 +                      RJ     UPH         UPDATE PREVIOUS HEADER                      DATA      974
           374  5110000015 +                      SA1    LI                                                      DATA      975
                          5120000014 +            SA2    DA                                                      DATA      976
           375  54311                             SA3    A1+B1                                                   DATA      977
                     36623                        IX6    X2+X3       JB = JB + DA       /* ADVANCE BIAS          DATA      978
                          54630                   SA6    A3                                                      DATA      979
                               10366              BX3    X6                                                      DATA      980
           376  73711                             SX7    X1+B1       DECREMENT LOOP INDEX                        DATA      981
                     54710                        SA7    A1                                                      DATA      982
                          0337000367 +            MI     X7,NIC44    IF LOOP NOT SATISFIED                       DATA      983
                                                                                                                 DATA      984
                                                                                                                 DATA      985
                                        **        END OF REP OUTPUT - UPDATE COUNTERS (N.ITEM, TC, AND BIAS), TO DATA      986
                                        *         PROPERLY ACCOUNT FOR WHAT HAS BEEN ISSUED.                     DATA      987
                                                                                                                 DATA      988
           377  5110000435 +             NIC50    SA1    NICN        N                                           DATA      989
                          5120000020 +            SA2    RL                                                      DATA      990
           400  5130000434 +                      SA3    NICB        BIAS                                        DATA      991
                          5140000002 +            SA4    N.ITEM                                                  DATA      992
           401  42012                             IX0    X1*X2       NEP = N * RL   /* NUMBER OF ELEMENTS ISSUED DATA      993
                     5120000014 +                 SA2    DA                                                      DATA      994
           402  5150000436 +                      SA5    NICT        TC                                          DATA      995
                          42102                   IX1    X0*X2                                                   DATA      996
                               36731              IX7    X3+X1       BIAS = BIAS + DA * NEP                      DATA      997
           403  54730                             SA7    A3                                                      DATA      998
                     37640                        IX6    X4-X0       (N.ITEM) = (N.ITEM) - NEP                   DATA      999
                          54640                   SA6    A4                                                      DATA     1000
                               37750              IX7    X5-X0       TC = TC - NEP                               DATA     1001
           404  54750                             SA7    A5                                                      DATA     1002
                     0306000406 +                 ZR     X6,NIC56    IF ITEM LIST IS EXHAUSTED                   DATA     1003
           405  0317000326 +                      NZ     X7,NIC20    IF TRIP COUNT NOT EXHAUSTED                 DATA     1004
                                                                                                                 DATA     1005
           406  37667                    NIC56    IX6    X6-X7       (N.ITEM) -= T                               DATA     1006
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    23
        OUTPUT ROUTINES                                               NIC 
  
                     54660                        SA6    A6          FORCE AN INFORMATIVE ERROR IF T .NZ.        DATA     1007
                          0100000537 +            RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1008
           407  0400000321 +                      EQ     EXIT.                                                   DATA     1009
                                                                                                                 DATA     1010
                                                                                                                 DATA     1011
                                        **        CASE 3.  NO EXPLOITABLE PATTERN.                               DATA     1012
                                        *                (RL .GT. 1) AND (DA .NE. 1),                            DATA     1013
                                        *                OR (RC .LE. 1)                                          DATA     1014
                                        *         NOT AT THE START OF A REP OR CANNOT REP WITH THIS ITEM LIST.   DATA     1015
                                        *         ISSUE ITEMS UNTIL THE START OF THE NEXT REP, OR UNTIL THIS     DATA     1016
                                        *         REQUEST IS SATISFIED (TC=0), OR NO ITEMS ARE LEFT (N.ITEM=0).  DATA     1017
                                        *         IF (DA .EQ. 1) THEN AN ORG IS ONLY NEEDED THE FIRST TIME.      DATA     1018
                                                                                                                 DATA     1019
           410  5110000014 +             NIC60    SA1    DA                                                      DATA     1020
                          43273                   MX2    -1                                                      DATA     1021
                               36612              IX6    X1+X2       (ORGN) = 0  ->  DA .EQ. 1                   DATA     1022
           411  5160000013 +                      SA6    ORGN                                                    DATA     1023
                                        ** FV            FOLLOWING KLUDGE FOR CHARACTER FORCES ORG ALWAYS.       DATA     1024
                                   0     .FIX     EQU    --  REMOVE KLUDGE WHEN OVI USES MOVEB.                  DATA     1025
                                         .KLUDGE  IFEQ   ON,ON       **** REMOVE WHEN OVI FIXED                  DATA     1026
                          43071                   MX0    -WB.MODEL                                               DATA     1027
           412  5110000010 +                      SA1    DVI+WB.W                                                DATA     1028
                                                  LX1    -WB.MODEP                                               DATA     1029
                          15310                   BX3    -X0*X1                                                  DATA     1030
           413  6273777771                        SB7    X3-M.CHAR                                               DATA     1031
                          0570000416 +            NZ     B7,NIC63    IF NOT TYPE CHARACTER                       DATA     1032
           414  43673                             MX6    -1                                                      DATA     1033
                     54660                        SA6    A6          FORCE ALL ORGS                              DATA     1034
                                         .KLUDGE  ELSE   1           ...END KLUDGE                               DATA     1035
                                                  EQ     NIC63       FORCE INITIAL ORG                           DATA     1036
                                                                                                                 DATA     1037
           415  5120000013 +             NIC62    SA2    ORGN                                                    DATA     1038
                          0302000417 +            ZR     X2,NIC64    IF NO ORG NEEDED                            DATA     1039
           416  5130000434 +             NIC63    SA3    NICB                                                    DATA     1040
                          0100000437 +            RJ     OSH         OUTPUT SCALAR HEADER                        DATA     1041
           417  0100001001 +             NIC64    RJ     GNI         GET NEXT DATA ITEM                          DATA     1042
           420  0100000474 +                      RJ     OVI         OUTPUT VALUE OF ITEM                        DATA     1043
           421  5130000434 +                      SA3    NICB        BIAS                                        DATA     1044
                          5140000014 +            SA4    DA                                                      DATA     1045
           422  36743                             IX7    X4+X3       BIAS = BIAS + DA        /* ADVANCE BIAS     DATA     1046
                     43073                        MX0    -1                                                      DATA     1047
                          54730                   SA7    A3                                                      DATA     1048
           423  5140000002 +                      SA4    N.ITEM                                                  DATA     1049
                          5150000436 +            SA5    NICT        TC                                          DATA     1050
           424  36640                             IX6    X4+X0       (N.ITEM) -= 1     /* DECREMENT CONS LEFT    DATA     1051
                     54640                        SA6    A4                                                      DATA     1052
                          36750                   IX7    X5+X0        TC = TC - 1      /* DECREMENT VARS LEFT    DATA     1053
                               54750              SA7    A5                                                      DATA     1054
           425  0306000406 +                      ZR     X6,NIC56    IF NO MORE DATA ITEMS LEFT -- QUIT          DATA     1055
                          0307000432 +            ZR     X7,NIC68    IF FINISHED WITH THE VARS                   DATA     1056
           426  5120000000 X                      SA2    T.DATI                                                  DATA     1057
                          5110000004 +            SA1    I.DIT                                                   DATA     1058
           427  36112                             IX1    X1+X2                                                   DATA     1059
                     53310                        SA3    X1          FETCH (X3) = NEXT DATA ITEM DESCRIPTOR      DATA     1060
                                                  HX3    DI.REP                                                  DATA     1061
                          0323000415 +            PL     X3,NIC62    IF NOT THE START OF A REP -- LOOP           DATA     1062
                                                                                                                 DATA     1063
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    24
        OUTPUT ROUTINES                                               NIC 
  
           430  0100000537 +                      RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1064
           431  5150000004 +                      SA5    I.DIT                                                   DATA     1065
                          0400000333 +            EQ     NIC24                                                   DATA     1066
                                                                                                                 DATA     1067
           432  0100000537 +             NIC68    RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1068
           433  0400000321 +                      EQ     EXIT.                                                   DATA     1069
                                                                                                                 DATA     1070
           434                     1     NICB     BSS    1           BIAS  LOCAL COPY OF BIAS                    DATA     1071
           435                     1     NICN     BSS    1           N     TIMES REP LIST CAN BE TRAVERSED       DATA     1072
           436                     1     NICT     BSS    1           TC    TRIP COUNT                            DATA     1073
  
  
  
  
                                        **        OSH - OUTPUT SCALAR HEADER.                                    DATA     1075
                                        *                                                                        DATA     1076
                                        *         SET UP OUTPUT CONTROL WORDS (S. CELLS) FOR THE BEGINNING OF A  DATA     1077
                                        *         DATA SUB-TABLE.  IF THE LAST SUB-TABLE IS STILL OPEN, IT MUST  DATA     1078
                                        *         BE TERMINATED FIRST.                                           DATA     1079
                                        *                                                                        DATA     1080
                                        *         NOTE THAT ALL HIGHER LEVEL BIAS AND LENGTH CALCULATIONS HAVE   DATA     1081
                                        *         BEEN PERFORMED IN TERMS OF NUMBER OF ELEMENTS.  AT THIS POINT  DATA     1082
                                        *         (ALSO ORH) THEY ARE TRANSFORMED INTO NUMBER OF STORAGE UNITS.  DATA     1083
                                        *                                                                        DATA     1084
                                        *         ENTRY  (X3) = FB = FWA BIAS (IN ELEMENTS).                     DATA     1085
                                        *                (DVI+V1.W) = SYMORD OF FWA.                             DATA     1086
                                        *                                                                        DATA     1087
                                        *         EXIT   (A6, X6) = SKELETAL (DA.) HEADER.                       DATA     1088
                                        *                                                                        DATA     1089
                                        *         CALLS  ADDWD, UPH.                                             DATA     1090
                                                                                                                 DATA     1091
                                                                                                                 DATA     1092
           437  0400400437 +             OSH      SUBR               ENTRY/EXIT...                               DATA     1093
           440  5120000030 +                      SA2    S.POP                                                   DATA     1094
                          0332000444 +            MI     X2,OSH20    IF NO UNTERMINATED BLOCK                    DATA     1095
           441  10633                             BX6    X3                                                      DATA     1096
                     5160000024 +                 SA6    OSHA                                                    DATA     1097
           442  0100000537 +                      RJ     UPH         UPDATE PREVIOUS HEADER                      DATA     1098
           443  5130000024 +                      SA3    OSHA        RESTORE (X3) = FB                           DATA     1099
                                                                                                                 DATA     1100
           444  5140000007 +             OSH20    SA4    DVI+V1.W    V1I = (DVI+V1.W)                            DATA     1101
                          5024000001              SA2    A4-V1.W+WB.W      V2I = (DVI+WB.W)                      DATA     1102
           445  13777                             BX7    0                                                       DATA     1103
                     43071                        MX0    -WB.MODEL                                               DATA     1104
                          43660                   MX6    -V1.BASEL                                               DATA     1105
                               20422              LX4    -V1.BASEP                                               DATA     1106
           446  5170000032 +                      SA7    S.LEN       (S.LEN) = 0                                 DATA     1107
                                                  LX2    -WB.MODEP                                               DATA     1108
                          15646                   BX6    -X6*X4      BASEI = BASE[V1I]                           DATA     1109
                               54771              =A7    A7-S.LEN+S.NCH    (S.NCH) = 0                           DATA     1110
           447  15020                             BX0    -X0*X2      MODEI = MODE[V2I]                           DATA     1111
                     54771                        =A7    A7-S.NCH+S.PAD    (S.PAD) = 0                           DATA     1112
                          20652                   LX6    DA.ORDP     (X6) = SKELETAL (DA.) HEADER                DATA     1113
                                                                                                                 DATA     1114
                                        *         CONVERT BIAS FROM ELEMENTS TO STORAGE UNITS.                   DATA     1115
                                                                                                                 DATA     1116
           450  5012000001                        SA1    A2-WB.W+V3.W      V3I = (DVI+2)                         DATA     1117
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    25
        OUTPUT ROUTINES                                               OSH 
  
                          6270777771              SB7    X0-M.CHAR                                               DATA     1118
           451  0470000453 +                      ZR     B7,OSH40    IF TYPE CHARACTER                           DATA     1119
                          20452                   LX4    V1.BASEP-1-V1.SDPFP                                     DATA     1120
                               21474              AX4    -0                                                      DATA     1121
           452  11243                             BX2    X4*X3       (X2) = FB * SDPF                            DATA     1122
                     36332                        IX3    X3+X2       FEA = FB * 2**SDPF                          DATA     1123
                          0400000455 +            EQ     OSH80                                                   DATA     1124
                                                                                                                 DATA     1125
           453  43701                    OSH40    CLAS=  X7,(DA),CH                                              DATA     1126
                     43052                        MX0    -V3.ELSL                                                DATA     1127
                          20122                   LX1    -V3.ELSP                                                DATA     1128
                               36667              IX6    X6+X7       INDICATE CHARACTER SUB-TABLE                DATA     1129
           454  15210                             BX2    -X0*X1      ELSI = ELS[V3I]                             DATA     1130
                     42323                        IX3    X2*X3       FEA = FB * ELSI                             DATA     1131
                          20152                   LX1    V3.ELSP                                                 DATA     1132
                                                                                                                 DATA     1133
           455  43044                    OSH80    MX0    -V3.ABUL                                                DATA     1134
                     5160000026 +                 SA6    S.DHW+DA.W                                              DATA     1135
                                                  LX1    -V3.ABUP                                                DATA     1136
                               15210              BX2    -X0*X1      ABUI = ABU[V3I]                             DATA     1137
           456  36732                             IX7    X3+X2       (S.FEA) = FEA + ABUI                        DATA     1138
                     5170000031 +                 SA7    S.FEA                                                   DATA     1139
           457  5110000000 X                      ADDWD  T.DATS                                                  DATA     1140
           460  7272777776                        SX7    X2-1        (S.POP) = INDEX OF (DA.) HEADER             DATA     1141
                          5170000030 +            SA7    S.POP                                                   DATA     1142
           461  0400000437 +                      EQ     EXIT.                                                   DATA     1143
  
  
  
  
                                        **        ORH - OUTPUT REPLICATION HEADER.                               DATA     1145
                                        *                                                                        DATA     1146
                                        *         CALLS OSH TO DO SCALAR INITIALIZATION, AND TRANSFORM (FB).     DATA     1147
                                        *         THEN UPGRADES THE CONTROL BLOCK FOR REPLICATION.  THE          DATA     1148
                                        *         INCREMENT MUST ALSO BE CONVERTED INTO STORAGE UNITS.           DATA     1149
                                        *                                                                        DATA     1150
                                        *         ENTRY  (X6) = B - BLOCK LENGTH, NUMBER OF VARIABLE ELEMENTS TO DATA     1151
                                        *                           BE REPEATED.                                 DATA     1152
                                        *                (X1) = N - REP COUNT, NUMBER OF TIMES THE DATA IS TO    DATA     1153
                                        *                           BE STORED, COUNTING THE ORIGINAL.            DATA     1154
                                        *                (X2) = I - INCREMENT BETWEEN COPIES, IN ELEMENTS.       DATA     1155
                                        *                (X3) = FB - FWA BIAS, IN ELEMENTS.                      DATA     1156
                                        *                                                                        DATA     1157
                                        *         CALLS  ALLOC, OSH.                                             DATA     1158
                                                                                                                 DATA     1159
                                                                                                                 DATA     1160
           462  0400400462 +             ORH      SUBR               ENTRY/EXIT...                               DATA     1161
                                         .T       IFEQ   TEST,ON                                                 DATA     1162
                                                  SA4    S.POP                                                   DATA     1163
                                                  PL     X4,"BLOWUP"  IF INCOMPLETE BLOCK                        DATA     1164
                                                  SA6    S.BLEN      (S.BLEN) = B                                DATA     1165
                                         .T       ENDIF                                                          DATA     1166
           463  5140000011 +                      SA4    DVI+V3.W                                                DATA     1167
                          43052                   MX0    -V3.ELSL                                                DATA     1168
                               76710              SX7    B1                                                      DATA     1169
           464  20422                             LX4    -V3.ELSP                                                DATA     1170
                     15040                        BX0    -X0*X4      ELS = ELEMENT SIZE, IN STORAGE UNITS        DATA     1171
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    26
        OUTPUT ROUTINES                                               ORH 
  
                          37117                   IX1    X1-X7       (DB.CNT) = N - 1                            DATA     1172
                               42202              IX2    X0*X2       (DB.INC) = I * ELS                          DATA     1173
                                                  LX1    DB.CNTP                                                 DATA     1174
           465  20236                             LX2    DB.INCP                                                 DATA     1175
                     12712                        BX7    X1+X2                                                   DATA     1176
                          5170000027 +            SA7    S.DHW+DB.W                                              DATA     1177
           466  0100000437 +                      RJ     OSH         OUTPUT SCALAR HEADER (FB)                   DATA     1178
                                                                                                                 DATA     1179
           467  43001                             CLAS=  X0,DA,(RP)                                              DATA     1180
                          5110000027 +            SA1    S.DHW+DB.W                                              DATA     1181
           470  12606                             BX6    X0+X6       INDICATE REPLICATED BLOCK                   DATA     1182
                     43773                        MX7    -1                                                      DATA     1183
                          55611                   =A6    A1-DB.W+DA.W                                            DATA     1184
                               10611              BX6    X1                                                      DATA     1185
           471  5170000034 +                      SA7    S.PAD       INDICATE INNER REP NOT POSSIBLE             DATA     1186
                          5110000000 X            ADDWD  T.DATS                                                  DATA     1187
           473  0400000462 +                      EQ     EXIT.                                                   DATA     1188
  
  
  
  
                                        **        OVI - OUTPUT VALUE OF ITEM.                                    DATA     1190
                                        *                                                                        DATA     1191
                                        *         OVI COERCES THE CONSTANT INTO THE MODE OF THE ELEMENT, AND     DATA     1192
                                        *         THEREFORE ALWAYS ISSUES ENOUGH DATA TO EXACTLY COVER ONE       DATA     1193
                                        *         ELEMENT.  WHENEVER THE CONSTANT ITEM IS MODE-CONVERTED, THE    DATA     1194
                                        *         DESCRIPTOR IS UPDATED TO THE NEW CONSTANT.  THIS PREVENTS      DATA     1195
                                        *         CONVERSION OVERHEAD FOR AN UN-REPLICATIBLE REPEATED CONSTANT.  DATA     1196
                                        *                                                                        DATA     1197
                                        *         ENTRY  (A5, X5) = DATA CONSTANT ITEM DESCRIPTOR.               DATA     1198
                                        *                (DVI) = DATA VARIABLE ELEMENT DESCRIPTOR.               DATA     1199
                                        *                                                                        DATA     1200
                                        *         EXIT   (S.LEN) ADVANCED BY NUMBER OF STORAGE UNITS IN THIS     DATA     1201
                                        *                            ELEMENT.                                    DATA     1202
                                        *                ITEM DESCRIPTOR CHANGED IF CONSTANT WAS CONVERTED.      DATA     1203
                                        *                                                                        DATA     1204
                                        *         CALLS  ALLOC, CMV, MOVE.                                       DATA     1205
                                                                                                                 DATA     1206
                                                                                                                 DATA     1207
           474  0400400474 +             OVI      SUBR               ENTRY/EXIT...                               DATA     1208
           475  5110000000 X                      SA1    T.DATI                                                  DATA     1209
                          5140000011 +            SA4    DVI+V3.W    V3I = (DVI+V3.W)                            DATA     1210
           476  5130000032 +                      SA3    S.LEN                                                   DATA     1211
                          63210                   SB2    X1                                                      DATA     1212
                               75652              SX6    A5-B2       DITIND = (A5) - FWA(T.DATI)                 DATA     1213
           477  5160000025 +                      SA6    OVIA        SAVE (OVIA) = DITIND                        DATA     1214
                          43152                   MX1    -V3.SSUL                                                DATA     1215
                               20444              LX4    -V3.SSUP                                                DATA     1216
           500  55241                             =A2    A4-V3.W+WB.W      V2I = (DVI+WB.W)                      DATA     1217
                     15441                        BX4    -X1*X4      SSUI = SSU[V3I], STORAGE DESIRED            DATA     1218
                          36734                   IX7    X3+X4       (S.LEN) = (S.LEN) + SSUI                    DATA     1219
                                                  LX2    -WB.MODEP                                               DATA     1220
                               54730              SA7    A3          (S.LEN) = (S.LEN) + SSUI                    DATA     1221
           501  0100000670 +                      RJ     CMV         CONVERT MODE OF VALUE                       DATA     1222
           502  20552                             LX5    -DI.PNTP                                                DATA     1223
                     63250                        SB2    X5          PNTI = PNT [CON DESCRIPTOR]                 DATA     1224
                                   0              ERRNZ  18-DI.PNTL                                              DATA     1225
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    27
        OUTPUT ROUTINES                                               OVI 
  
                          20522                   LX5    DI.PNTP-DI.DLENP                                        DATA     1226
           503  0430000511 +                      ZR     B3,OVI5     IF TYPE CHARACTER ELEMENT                   DATA     1227
                          63650                   SB6    X5          LEN = DLEN [CON DESCRIPTOR]                 DATA     1228
                                   0              ERRNZ  18-DI.DLENL                                             DATA     1229
           504  5110000000 X                      ALLOC  T.DATS,B6   ALLOCATE SPACE FOR ITEM                     DATA     1230
           506  5110000000 X                      SA1    T.CON                                                   DATA     1231
                          66221                   SB2    B2+B1       PNTI = PNTI + 1                             DATA     1232
                               53312              SA3    X1+B2       FETCH 2ND WORD OF CON (OR GARBAGE)          DATA     1233
           507  55231                             SA2    A3-B1       FETCH 1ST WORD OF CON                       DATA     1234
                     10733                        BX7    X3                                                      DATA     1235
                          22602                   LX6    X2                                                      DATA     1236
                               57771              SA7    B7-B1       (2ND WORD) => (LWA(TABLE))                  DATA     1237
           510  57676                             SA6    B7-B6       (1ST WORD) => (LWA(TABLE)+1-WC)             DATA     1238
                     0400000474 +                 EQ     EXIT.                                                   DATA     1239
                                                                                                                 DATA     1240
                                                                                                                 DATA     1241
                                        *         OUTPUT CHARACTER ELEMENT.                                      DATA     1242
                                        *         TRUNCATION OF CONSTANT IS AUTOMATIC, SINCE WE ONLY ISSUE       DATA     1243
                                        *         THE NUMBER OF CHARS IN THE VARIABLE.  BLANK PADDING MUST HAVE  DATA     1244
                                        *         ALREADY BEEN DONE.                                             DATA     1245
                                        *                (B2) = PNTI, POINTER INTO T.CHAR                        DATA     1246
                                        *                (X5) = DI.PNT, UPPER BITS JUNK                          DATA     1247
                                                                                                                 DATA     1248
           511  73250                    OVI5     SX2    X5          LEN = DLEN [CON DESCRIPTOR]                 DATA     1249
                     7140000011                   CW     X4,X2       LEN = LEN / 10                              DATA     1250
           513  5110000000 X                      ALLOC  T.DATS,X4   ALLOCATE SPACE FOR ITEM                     DATA     1251
           515  76770                             SX7    B7          LAST = LWA+1 OF (T.DATS)                    DATA     1252
                     5110000000 X                 SA1    T.CON                                                   DATA     1253
                               37374              IX3    X7-X4       DEST = LAST - WC                            DATA     1254
           516  73212                             SX2    X1+B2       SOURCE = (T.CHAR) + INDEX                   DATA     1255
                     73140                        SX1    X4          WC = (X4)                                   DATA     1256
                          0100000000 X            MOVE   X1,X2,X3                                                DATA     1257
                                   0     .FIX     EQU    --  USE MOVEB, CAUSE CHAR AIN'T WORD ALIGNED.           DATA     1258
           517  0400000474 +                      EQ     EXIT.                                                   DATA     1259
  
  
  
  
                                        **        SDV -  SETUP DATA VARIABLE.                                    DATA     1261
                                        *                                                                        DATA     1262
                                        *         BUILD (DVI) ENTRY DESCRIBING THE DATA TARGET --                DATA     1263
                                        *                (DVI+0) = (V1.) FORMAT.                                 DATA     1264
                                        *                (DVI+1) = (WB.) FORMAT.                                 DATA     1265
                                        *                (DVI+2) = (V2.) FORMAT.                                 DATA     1266
                                        *                                                                        DATA     1267
                                        *         ENTRY  (B6) = SYMORD OF ORIGINAL.                              DATA     1268
                                        *                (B7) = SYMORD OF EQUIV BASE.                            DATA     1269
                                        *                (X4) = FWA BIAS, (WC.) FORMAT, RELATIVE TO RA[BASE].    DATA     1270
                                        *                                                                        DATA     1271
                                        *         EXIT   (DVI AREA)  SET UP.                                     DATA     1272
                                                                                                                 DATA     1273
                                                                                                                 DATA     1274
           520  0400400520 +             SDV      SUBR   0           ENTRY/EXIT...                               DATA     1275
           521  5120000000 X                      SA2    T.SYM                                                   DATA     1276
                          76166                   SX1    B6+B6                                                   DATA     1277
                               76560              SX5    B6                                                      DATA     1278
           522  63221                             =B2    X2+WB.W                                                 DATA     1279
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    28
        OUTPUT ROUTINES                                               SDV 
  
                     73716                        SX7    X1+B6       (X7) = INDEX OF SYMTAB (WB.)                DATA     1280
                                   0              ERRNZ  3-Z=SYM                                                 DATA     1281
                          53272                   SA2    X7+B2                                                   DATA     1282
                               76370              SX3    B7                                                      DATA     1283
           523  20352                             LX3    V1.BASEP                                                DATA     1284
                                                  LX5    V1.ORDP     SAVE SYMTAB ORDINAL                         DATA     1285
                     10622                        BX6    X2                                                      DATA     1286
                          5160000010 +            SA6    DVI+WB.W                                                DATA     1287
           524  12553                             BX5    X5+X3                                                   DATA     1288
                                                                                                                 DATA     1289
                                        *         EXAMINE MODE TO DETERMINE PHYSICAL MAPPING OF SYMBOL --        DATA     1290
                                        *         LET    WCS = (WC.) OF ORIGINAL SYMBOL.                         DATA     1291
                                        *                WCE = (WC.) OF EFFECTIVE OPERAND (X4).                  DATA     1292
                                        *         SET    (SDPF) = LOG2 OF WORDS-PER-ELEMENT.                     DATA     1293
                                        *                (ELS) = STORAGE UNITS PER ELEMENT.                      DATA     1294
                                        *                (SSU) = ELS.                                            DATA     1295
                                        *                (ABU) = RA[WCE]                                         DATA     1296
                                        *         WHEN TYPE CHARACTER --                                         DATA     1297
                                        *                (SDPF) = 0.                                             DATA     1298
                                        *                (ELS) = CLEN[WCS]                                       DATA     1299
                                        *                (SSU) = CLEN[WCE]                                       DATA     1300
                                        *                (ABU) = 10*RA[WCE] + BCP[WCE]                           DATA     1301
                                                                                                                 DATA     1302
                     43071                        MX0    -WB.MODEL                                               DATA     1303
                                                  LX6    -WB.MODEP                                               DATA     1304
                          15060                   BX0    -X0*X6      MODEI = MODE[V2I]                           DATA     1305
                               76710              SX7    B1          UNIT = 1                                    DATA     1306
           525  6250777773                        SB5    X0-M.DBL                                                DATA     1307
                          0450000527 +            EQ     B5,B0,SDV4  IF MODE DOUBLE                              DATA     1308
           526  0451000527 +                      EQ     B5,B1,SDV4  IF MODE COMPLEX                             DATA     1309
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          DATA     1310
                          7170000000              SX7    +           UNIT = 0                                    DATA     1311
           527  73371                    SDV4     SX3    X7+B1       ELS = UNIT + 1                              DATA     1312
                     20773                        LX7    V1.SDPFP                                                DATA     1313
                          12757                   BX7    X5+X7       FORM (V1.)                                  DATA     1314
                               55761              =A7    A6-WB.W+V1.W                                            DATA     1315
                                                                                                                 DATA     1316
                                        *         COMPUTE ADDITIONAL BIAS FROM WC[OPERAND] --                    DATA     1317
                                                                                                                 DATA     1318
                                                  LX4    -WC.RAP                                                 DATA     1319
           530  43744                             MX7    -WC.RAL                                                 DATA     1320
                     15647                        BX6    -X7*X4      RAI = RA[WCE]                               DATA     1321
                          10033                   BX0    X3          SSU = ELS                                   DATA     1322
           531  0615000535 +                      LE     B5,B1,SDV7  IF NOT MODE CHARACTER                       DATA     1323
                                   0              ERRNZ  M.CPLX+1-M.CHAR                                         DATA     1324
                          43070                   MX0    -WC.BCPL                                                DATA     1325
                               20444              LX4    WC.RAP-WC.BCPP                                          DATA     1326
           532  15140                             BX1    -X0*X4      BCPI = BCP[WCE]                             DATA     1327
                     20466                        LX4    WC.BCPP-WC.CLENP                                        DATA     1328
                          36766                   WC     X7,X6       (X7) = 10 * RAI                             DATA     1329
                     43352                        MX3    -WC.CLENL                                               DATA     1330
                          36671                   IX6    X7+X1       ABUI = 10 * RAI + BCPI                      DATA     1331
                               15043              BX0    -X3*X4      SSU = CLEN[WCE]                             DATA     1332
           534  54121                             =A1    A2-WB.W+WC.W      WCS                                   DATA     1333
                     20136                        LX1    -WC.CLENP                                               DATA     1334
                          15313                   BX3    -X3*X1      ELS = CLEN[WCS]                             DATA     1335
                                                                                                                 DATA     1336
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    29
        OUTPUT ROUTINES                                               SDV 
  
           535  20352                    SDV7     LX3    V3.ELSP                                                 DATA     1337
                     20030                        LX0    V3.SSUP                                                 DATA     1338
                          12730                   BX7    X3+X0                                                   DATA     1339
                                                  LX6    V3.ABUP                                                 DATA     1340
                               12767              BX7    X6+X7                                                   DATA     1341
           536  54761                             =A7    A6-WB.W+V3.W                                            DATA     1342
                                         .T       IFEQ   TEST,ON                                                 DATA     1343
                                                  SA1    CO.SNAP                                                 DATA     1344
                                                  LX1    1R9                                                     DATA     1345
                                                  PL     X1,EXIT.    IF (SNAP=9) NOT SELECTED                    DATA     1346
                                         SDVX     CORE   DVI,3                                                   DATA     1347
                                         .T       ENDIF                                                          DATA     1348
                     0400000520 +                 EQ     EXIT.                                                   DATA     1349
  
  
  
  
                                        **        UPH - UPDATE PREVIOUS HEADER.                                  DATA     1351
                                        *                                                                        DATA     1352
                                        *         DOES NOTHING IF NO BLOCK IN PROGRESS ON ENTRY.                 DATA     1353
                                        *                                                                        DATA     1354
                                        *         ENTRY  (S. CELLS) DESCRIBE CURRENT BLOCK.                      DATA     1355
                                        *                                                                        DATA     1356
                                        *         EXIT   (S.POP) INDICATES NO BLOCK IN PROGRESS.                 DATA     1357
                                        *                HEADER WORDS UPDATED IN THE SUB-TABLE.                  DATA     1358
                                        *                                                                        DATA     1359
                                        *         USES   ALL BUT A0  B4,B5,B6.                                   DATA     1360
                                                                                                                 DATA     1361
                                                                                                                 DATA     1362
           537  0400400537 +             UPH      SUBR   0           ENTRY/EXIT...                               DATA     1363
           540  5130000032 +                      SA3    S.LEN                                                   DATA     1364
                          5140000026 +            SA4    S.DHW+DA.W                                              DATA     1365
                                                  LX3    DA.WCP                                                  DATA     1366
           541  5150000030 +                      SA5    S.POP                                                   DATA     1367
                          0335000537 +            MI     X5,EXIT.    IF NO BLOCK IN PROGRESS                     DATA     1368
           542  5120000000 X                      SA2    T.DATS                                                  DATA     1369
                          12634                   BX6    X3+X4       (DA.WC) = (S.LEN)                           DATA     1370
                               36525              IX5    X2+X5                                                   DATA     1371
           543  5130000031 +                      SA3    S.FEA                                                   DATA     1372
                          20322                   LX3    DA.BIASP                                                DATA     1373
                               12663              BX6    X6+X3       (DA.BIAS) = FEA                             DATA     1374
           544  43773                             MX7    -1          INDICATE NO INCOMPLETE BLOCK                DATA     1375
                     53650                        =A6    X5+DA.W                                                 DATA     1376
                          54750                   SA7    A5                                                      DATA     1377
           545  0400000537 +                      EQ     EXIT.                                                   DATA     1378
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    30
        CONSTANT LIST SCANNING AND CONVERSION.                        ADC 
  
                                        **        ADC -  ADD CONSTANT TO DATA ITEM TABLE.                        DATA     1381
                                        *                                                                        DATA     1382
                                        *         ENTRY  (A4, X4) -> FIRST TOKEN OF CONSTANT.                    DATA     1383
                                        *                (X7) = -0 IF CON PRECEEDED BY - SIGN , ELSE 0.          DATA     1384
                                        *                FIRST TOKEN IS ONE OF O.(CONS, PERIOD, CHAR, HOLL,      DATA     1385
                                        *                            OCT, HEX).                                  DATA     1386
                                        *                                                                        DATA     1387
                                        *         EXIT   (X6) = ITEM DESCRIPTOR (DI. FORMAT).                    DATA     1388
                                        *                (SELIST) = ADVANCED OVER THE CONSTANT TOKENS.           DATA     1389
                                        *                                                                        DATA     1390
                                        *         CALLS  ADDWD, ASI, ANSI, WARN.                                 DATA     1391
                                                                                                                 DATA     1392
                                                                                                                 DATA     1393
           546  0400400546 +             ADC      SUBR               ENTRY/EXIT...                               DATA     1394
           547  63240                             SB2    X4                                                      DATA     1395
                                   0              ERRNZ  18-TB.TOTL                                              DATA     1396
                     74641                        =X6    A4+1                                                    DATA     1397
                          5160000023 +            SA6    SELIST      SAVE STRING BUFFER ADDRESS                  DATA     1398
                                         .T       IFEQ   TEST,ON                                                 DATA     1399
                                         ADCA     BITMIC (O.CONS,O.PERIOD,O.CHAR,O.HOLL,O.QHOLL,O.RLCON,O.OCT,__ FC5A258    29
                                        ,O.HEX)                                                                  FC5A258    30
                                                  SA1    ="ADCA"                                                 DATA     1401
                                                  LX1    B2                                                      DATA     1402
                                                  PL     X1,"BLOWUP" IF NOT A LEGAL TOKEN FOR US                 DATA     1403
                                         .T       ENDIF                                                          DATA     1404
           550  0421000557 +                      IF.EQ  O.HOLL,ADC2 IF HOLLERITH CONSTANT                       DATA     1405
                          66311                   IF.EQ  O.QHOLL,ADC2      IF "" STRING                          FC5A258    31
                          6130000003              IF.EQ  O.RLCON,ADC2      IF R OR L CONSTANT                    FC5A258    32
                          6130000004              IF.NE  O.CHAR,ADC4       IF NOT CHARACTER CONSTANT             DATA     1406
                                                                                                                 DATA     1407
                                        *         CHARACTER CONSTANT.                                            DATA     1408
                                                                                                                 DATA     1409
                          43055                   MX0    -TB.CLCNL                                               DATA     1410
           554  7160000006                        =X6    M.CHAR                                                  DATA     1411
                          20441                   LX4    -TB.CLCNP                                               DATA     1412
           555  0337000000 X                      MI     X7,E.DIL1   IF CHAR PRECEDED BY MINUS SIGN              DATA     1413
                          15140                   BX1    -X0*X4      CLEN = NUMBER OF CHARACTERS IN CONSTANT     DATA     1414
                                   0     .FIX     EQU    --  CANNOT CON LEN BE ROUNDED UP 10 ??                  DATA     1415
                                                  IFNE   TB.CLCNL,TB.SHCL,1                                      DATA     1416
                               43052              MX0    -TB.SHCL                                                DATA     1417
           556  20455                             LX4    TB.CLCNP-TB.SHCP                                        DATA     1418
                     15240                        BX2    -X0*X4      INDX = INDEX OF CONSTANT IN (T.CHAR)        DATA     1419
                          0400000565 +            EQ     ADC3                                                    DATA     1420
                                                                                                                 DATA     1421
                                                                                                                 DATA     1422
                                        *         HOLLERITH CONSTANT.                                            DATA     1423
                                                                                                                 DATA     1424
           557  0337000000 X             ADC2     MI     X7,E.DIL1   IF HOLLERITH PRECEDED BY MINUS SIGN         DATA     1425
                          6170000000 X            ANSI   E.AT08      HOLLERITH IS NON ANSI                       DATA     1426
           561  43063                             MX0    -TB.LCONL                                               DATA     1427
                     20452                        LX4    -TB.LCONP                                               DATA     1428
                          15340                   BX3    -X0*X4      (B7) = WORD LENGTH OF HOLLERITH             DATA     1429
                               43052              MX0    -TB.SHCL                                                DATA     1430
           562  20444                             LX4    TB.LCONP-TB.SHCP                                        DATA     1431
                     15240                        BX2    -X0*X4      (X2) = INDEX IN (T.CON)                     DATA     1432
                          76600                   =X6    M.BOOL                                                  DATA     1433
                               63730              SB7    X3                                                      DATA     1434
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    31
        CONSTANT LIST SCANNING AND CONVERSION.                        ADC 
  
           563  76110                             =X1    1           LENGTH = 1                                  DATA     1435
                     0471000565 +                 EQ     B7,B1,ADC3  IF SINGLE-WORD HOLLERITH                    DATA     1436
           564  6170000000 X                      WARN   E.AT03      HOLLERITH EXCEEDS 10 CHARACTERS             DATA     1437
                                                                                                                 DATA     1438
                                        *         ADD ITEM DESCRIPTOR (DI.) TO DATA ITEM TABLE (T.DATI).         DATA     1439
                                        *                (X1) = CONSTANT LENGTH.                                 DATA     1440
                                        *                (X2) = CONSTANT TABLE INDEX.                            DATA     1441
                                        *                (X6) = MODE OF CONSTANT.                                DATA     1442
                                                                                                                 DATA     1443
           565  20666                    ADC3     LX6    DI.MODEP    (DI.MODE) = X6                              DATA     1444
                                                  LX1    DI.DLENP    (DI.DLEN) = X1                              DATA     1445
                     36761                        IX7    X6+X1                                                   DATA     1446
                          20222                   LX2    DI.PNTP     (DI.PNT) = X2                               DATA     1447
                               12627              BX6    X2+X7                                                   DATA     1448
           566  0400000546 +                      EQ     EXIT.                                                   DATA     1449
                                                                                                                 DATA     1450
                                        *         NUMERIC CONSTANT.  CONVERT AND ADD TO (T.CON).                 DATA     1451
                                                                                                                 DATA     1452
           567  10577                    ADC4     BX5    X7          SAVE CONSTANT SIGN                          DATA     1453
                     64440                        SB4    A4                                                      DATA     1454
                          0100000000 X            CALL   TNK         TRANSLATE NUMERIC CONSTANT                  DATA     1455
           570  76741                             SX7    B4+B1                                                   DATA     1456
                     5170000023 +                 SA7    SELIST                                                  DATA     1457
                               13665              BX6    X6-X5       (X6) = SIGN * (UPPER HALF)                  DATA     1458
           571  13725                             BX7    X2-X5       (X7) = SIGN * (LOWER HALF)                  DATA     1459
                     0100000604 +                 RJ     ASI         ADD SCALAR ITEM                             DATA     1460
           572  0400000546 +                      EQ     EXIT.                                                   DATA     1461
  
  
  
  
                                        **        ASC -  ADD SYMBOLIC CONSTANT TO DATA TABLE.                    DATA     1463
                                        *                                                                        DATA     1464
                                        *         ENTRY  (B6) = CONSTANT POINTER                                 DATA     1465
                                        *                (X1) = MODE OF CONSTANT                                 DATA     1466
                                        *                (X3) = WC WORD OF SYMBOLIC CONSTANT                     FC50570    16
                                        *         EXIT   (X6) = ITEM DESCRIPTOR (DI. FORMAT).                    DATA     1468
                                        *         USES   A - NONE                                                DATA     1469
                                        *                X - 0,1,2,3,6                                           DATA     1470
                                        *                B - 2,3,5                                               DATA     1471
                                                                                                                 DATA     1472
                                                                                                                 DATA     1473
           573  0400400573 +             ASC      SUBR               ENTRY/EXIT.                                 DATA     1474
           574  6221777771                        SB2    X1-M.CHAR                                               DATA     1476
                          76660                   SX6    B6                                                      DATA     1477
                               20622              LX6    DI.PNTP                                                 DATA     1478
           575  43052                             MX0    -WC.CLENL                                               DATA     1479
                     0520000577 +                 NZ     B2,ASC10    IF NOT TYPE CHARACTER                       DATA     1480
                                                                                                                 DATA     1481
                                        *         TYPE CHARACTER, GET LENGTH FROM WC.CLEN.                       DATA     1482
                                                                                                                 DATA     1483
                               20336              LX3    -WC.CLENP                                               DATA     1484
           576  15230                             BX2    -X0*X3      DLEN = CLEN[WCI]                            DATA     1485
                     20336                        LX3    WC.CLENP                                                DATA     1486
                          0400000602 +            EQ     ASC20                                                   DATA     1487
                                                                                                                 DATA     1488
           577  6231777773               ASC10    =B3    X1-M.DBL                                                DATA     1489
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    32
        CONSTANT LIST SCANNING AND CONVERSION.                        ASC 
  
                          76211                   =X2    2           DLEN = 2                                    DATA     1490
           600  0430000602 +                      EQ     B3,ASC20    IF DOUBLE                                   DATA     1491
                          0431000602 +            EQ     B3,B1,ASC20 IF COMPLEX                                  DATA     1492
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          DATA     1493
           601  76210                             =X2    1           DLEN = 1                                    DATA     1494
                                                                                                                 FC50570    17
           602  20166                    ASC20    LX1    DI.MODEP                                                DATA     1495
                                                  LX2    DI.DLENP                                                DATA     1496
                     12661                        BX6    X6+X1                                                   DATA     1497
                          12662                   BX6    X6+X2                                                   DATA     1498
           603  0400000573 +                      EQ     EXIT.                                                   DATA     1499
  
  
  
  
                                        **        ASI - ADD SCALAR ITEM.                                         DATA     1501
                                        *                                                                        DATA     1502
                                        *         ENTRY  (X1) = MODE OF CONSTANT.                                DATA     1503
                                        *                (X6) = UPPER HALF OF CONSTANT.                          DATA     1504
                                        *                (X7) = LOWER HALF OF CONSTANT, IF DBL OR CPLX.          DATA     1505
                                        *                                                                        DATA     1506
                                        *         EXIT   (X6) = ITEM DESCRIPTOR (DI. FORMAT).                    DATA     1507
                                                                                                                 DATA     1508
                                                                                                                 DATA     1509
           604  0400400604 +             ASI      SUBR               ENTRY/EXIT...                               DATA     1510
           605  6221777773                        SB2    X1-M.DBL                                                DATA     1511
                          6251000000              SB5    X1+         REMEMBER (B5) = MODE OF CONSTANT            DATA     1512
           606  0420000615 +                      EQ     B2,B0,ASI4  IF MODE DOUBLE                              DATA     1513
                          0421000615 +            EQ     B2,B1,ASI4  IF MODE COMPLEX                             DATA     1514
                                   0              ERRNZ  M.DBL+1-M.CPLX                                          DATA     1515
                                                                                                                 DATA     1516
           607  5110000000 X                      SCAN   T.CON,SCT                                               DATA     1517
           610  76410                             SX4    B1          INDICATE SINGLE-WORD CONSTANT               DATA     1518
                     76271                        SX2    B7+B1                                                   DATA     1519
                          0670000612 +            PL     B7,ASI2     IF CONSTANT ALREADY IN TABLE                DATA     1520
           611  0100000000 X                      ADDWD  A1                                                      DATA     1521
                                                                                                                 DATA     1522
                                        *         CONSTANT IN (T.CON) -- CONSTRUCT DESCRIPTOR.                   DATA     1523
                                        *                (B5) = MODE                                             DATA     1524
                                        *                (X4) = WORD COUNT                                       DATA     1525
                                        *                (X2) = INDEX + 1                                        DATA     1526
                                                                                                                 DATA     1527
           612  76650                    ASI2     SX6    B5          (X6) = MODE OF CON                          DATA     1528
                     7222777776                   SX2    X2-1        (X2) = INDEX OF CON                         DATA     1529
                                                  LX4    DI.DLENP                                                DATA     1530
                               20222              LX2    DI.PNTP                                                 DATA     1531
           613  20666                             LX6    DI.MODEP                                                DATA     1532
                     12742                        BX7    X4+X2                                                   DATA     1533
                          12676                   BX6    X7+X6       ADD ITEM DESCRIPTOR TO (T.DATI)             DATA     1534
           614  0400000604 +                      EQ     EXIT.                                                   DATA     1535
                                                                                                                 DATA     1536
                                        *         DOUBLE WORD CONSTANT.                                          DATA     1537
                                                                                                                 DATA     1538
           615  0100000000 X             ASI4     CALL   NBC         ENTER BINARY OF CONSTANT                    DATA     1539
           616  20620                             HX6    TP.BIAS                                                 DATA     1540
                     76411                        SX4    B1+B1       INDICATE DOUBLE-WORD CONSTANT               DATA     1541
                          21644                   AX6    -TP.BIASL                                               DATA     1542
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    33
        CONSTANT LIST SCANNING AND CONVERSION.                        ASI 
  
                               73261              SX2    X6+B1                                                   DATA     1543
           617  0400000612 +                      EQ     ASI2                                                    DATA     1544
  
  
  
  
                                        **        CFC - CHECK FOR COMPLEX CONSTANT.                              DATA     1546
                                        *                                                                        DATA     1547
                                        *         SEE ANSI 4.6.1, NO CDC EXTENSIONS.                             DATA     1548
                                        *                                                                        DATA     1549
                                        *         ENTRY  (A4,X4) -> LPAREN TOKEN BEGINNING SUSPECTED CONSTANT.   DATA     1550
                                        *                                                                        DATA     1551
                                        *         EXIT   IF COMPLEX CONSTANT WAS PRESENT --                      DATA     1552
                                        *                (X0) .ZR.                                               DATA     1553
                                        *                (X1,X2) = (REAL, IMAGINARY) OF CONVERTED CONSTANT.      DATA     1554
                                        *                (SELIST) -> AFTER TERMINATING RPAREN.                   DATA     1555
                                        *                                                                        DATA     1556
                                        *         ELSE   LPAREN WAS NOT A COMPLEX CON BEGIN TOKEN --             DATA     1557
                                        *                (X0) .NZ.                                               DATA     1558
                                        *                (A4,X4) PRESERVED.                                      DATA     1559
                                        *                                                                        DATA     1560
                                        *         USES   A1-A7,  B2-4,B7,  X0-X7.                                DATA     1561
                                        *                                                                        FC50570    18
                                        *         CALLS  CHC, CPR                                                FC50570    19
                                                                                                                 DATA     1563
                                                                                                                 DATA     1564
           620  43001                    CFC9     MX0    1           INDICATE FAILURE                            DATA     1565
                     53450                        SA4    X5          RESTORE A4                                  DATA     1566
                                                                                                                 DATA     1567
           621  0400400621 +             CFC      SUBR   =           ENTRY/EXIT...                               DATA     1568
           622  54341                             SA3    A4+B1                                                   DATA     1569
                     74540                        SX5    A4          REMEMBER (X5) = ORIGINAL (A4)               DATA     1570
                          0100000641 +            RJ     CHC         CONVERT REAL HALF OF COMPLEX                DATA     1571
           623  5160000640 +                      SA6    CFCA                                                    DATA     1572
                          56141                   SA1    B4+B1       CHECK TOKEN FOLLOWING CON                   DATA     1573
           624  6221777735                        SB2    X1-O.COMMA                                              DATA     1574
                          54311                   SA3    A1+B1       ADVANCE (A3)                                DATA     1575
                               64430              SB4    A3                                                      FC50570    20
           625  0520000620 +                      NZ     B2,CFC9     IF NO COMMA                                 DATA     1576
                          0470000630 +            ZR     B7,CFC1     IF REAL HALF NOT PARAMETER                  FC50180    10
           626  0100000000 X                      ANSI   B7                                                      FC50180    11
           627  0100000736 +                      RJ     CPR         OUTPUT PARAMETER REFERENCE                  FC50570    21
                                                                                                                 DATA     1577
           630  0100000641 +             CFC1     RJ     CHC         CONVERT IMAGINARY HALF OF COMPLEX           FC50180    12
           631  0470000634 +                      ZR     B7,CFC2     IF IMAGINARY HALF NOT PARAMETER             FC50180    13
                          0100000000 X            ANSI   B7                                                      FC50180    14
           632  10466                             BX4    X6          PRESERVE BINARY OF IMAGINARY                FC50570    22
                     0100000736 +                 RJ     CPR         OUTPUT PARAMETER REFERENCE                  FC50570    23
           633  22604                             LX6    X4          RESTORE BINARY                              FC50570    24
                                                                                                                 FC50180    15
           634  56341                    CFC2     =A3    B4+1                                                    FC50180    16
                     6223777737                   SB2    X3-O.RP                                                 DATA     1580
                               10266              BX2    X6          RETURN (X2) = VALUE OF IMAGINARY HALF       DATA     1581
           635  0520000620 +                      NZ     B2,CFC9     IF NO TERMINAL RIGHT PAREN                  DATA     1582
                          5110000640 +            SA1    CFCA        RETURN (X1) = VALUE OF REAL HALF            DATA     1586
           636  74631                             =X6    A3+1                                                    DATA     1587
                     54431                        =A4    A3+1                                                    DATA     1588
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    34
        CONSTANT LIST SCANNING AND CONVERSION.                        CFC 
  
                          43000                   MX0    0           INDICATE SUCCESS                            DATA     1589
           637  5160000023 +                      SA6    SELIST                                                  DATA     1590
                          0400000621 +            EQ     EXIT.                                                   DATA     1591
                                                                                                                 DATA     1592
           640                     1     CFCA     BSS    1           SAVE REAL PART                              DATA     1593
  
  
  
  
                                        **        CHC - CONVERT HALF OF COMPLEX.                                 DATA     1595
                                        *                                                                        DATA     1596
                                        *         NOTE THAT CHC IS REALLY A PART OF CFC, AND CAN ONLY            DATA     1597
                                        *         BE CALLED FROM THERE.                                          DATA     1598
                                        *                                                                        DATA     1599
                                        *         ENTRY  (A3,X3) -> FIRST TOKEN OF SUSPECTED CON.                DATA     1600
                                        *                                                                        DATA     1601
                                        *         EXIT   IF LEGITIMATE COMPLEX HALF FOUND --                     DATA     1602
                                        *                (B4) -> LAST TOKEN OF CONSTANT.                         DATA     1603
                                        *                (B7) = DIAGNOSTIC ADDR IF PARAMETER USED, 0 ELSE        FC50180    17
                                        *                (X1) = SYMTAB ORDINAL OF PARAMETER, IF PRESENT          FC50570    25
                                        *                (X6) = SIGNED FLOATING POINT VALUE OF CONSTANT.         DATA     1604
                                        *                                                                        DATA     1605
                                        *         ELSE   TO *CFC9* --                                            DATA     1606
                                        *                TOKENS FOUND CANNOT BE PART OF A COMPLEX CON.           DATA     1607
                                        *                                                                        DATA     1608
                                        *         USES   A1-7,  B2-4,B7,  X0-4,X6-7.                             DATA     1609
                                        *         CALLS  CSC, DEC, KCV.                                          DATA     1610
                                                                                                                 DATA     1611
                                                                                                                 DATA     1612
           641  0400400641 +             CHC      SUBR   0           ENTRY/EXIT...                               DATA     1613
           642  63230                             SB2    X3                                                      DATA     1614
                     43700                        MX7    0           SET FOR PLUS SIGN                           DATA     1615
                          5170000666 +            SA7    CHCB        PARAMETER FLAG                              FC50180    18
           643  6132777763                        SB3    B2-O.PL                                                 DATA     1616
                          0430000645 +            EQ     B3,B0,CHC2  IF PLUS SIGN                                DATA     1617
           644  0531000646 +                      NE     B3,B1,CHC3  IF NOT MINUS SIGN                           DATA     1618
                                   0              ERRNZ  O.PL+1-O.MIN                                            DATA     1619
                          43774                   MX7    -0                                                      DATA     1620
                                                                                                                 FC50570    26
           645  5033000001               CHC2     SA3    A3+1        ADVANCE OVER SIGN TOKEN                     DATA     1621
                          6223000000              SB2    X3+                                                     DATA     1622
                                                                                                                 FC50570    27
           646  6170000010               CHC3     SB7    O.PERIOD                                                DATA     1623
                          6130000005              SB3    O.CONS                                                  DATA     1624
           647  5170000665 +                      SA7    CHCA        REMEMBER (CHCA) = SIGN                      DATA     1625
                          0472000656 +            EQ     B7,B2,CHC5  IF DECIMAL POINT                            DATA     1626
           650  0432000656 +                      EQ     B3,B2,CHC5  IF DIGIT                                    DATA     1627
                          6170000011              SB7    O.VAR                                                   DATA     1628
           651  0572000620 +                      NE     B7,B2,CFC9  IF NOT *VAR*                  ...FAIL       DATA     1629
                          54430                   SA4    A3                                                      FC5A231    51
                               64430              SB4    A3                                                      FC5A231    52
           652  0100000767 +                      RJ     CSC         CONVERT SYMBOLIC CONSTANT                   DATA     1631
           653  0770000620 +                      MI     B7,CFC9     IF NOT A PARAMETER NAME       ...FAIL       DATA     1632
                          7170000000 X            SX7    E.DC10                                                  FC50180    19
           654  5170000666 +                      SA7    CHCB        PARAMETER FLAG                              FC50180    20
                          22700                   LX7    X0                                                      FC50570    28
                               54771              =A7    A7+1        SAVE SYMTAB ORDINAL                         FC50570    29
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    35
        CONSTANT LIST SCANNING AND CONVERSION.                        CHC 
  
           655  0400000657 +                      EQ     CHC6                                                    DATA     1634
                                                                                                                 DATA     1635
           656  64430                    CHC5     SB4    A3                                                      DATA     1636
                     0100000000 X                 CALL   DEC         CONVERT DECIMAL CONSTANT                    DATA     1637
                                                                                                                 FC50180    21
           657  76011                    CHC6     =X0    M.INT                                                   DATA     1638
                     37310                        IX3    X1-X0                                                   DATA     1639
                          0313000661 +            NZ     X3,CHC7     IF NOT INTEGER CONSTANT                     DATA     1640
           660  73101                             =X1    X0-M.INT+M.REAL                                         DATA     1641
                     0100000000 X                 CALL   KCV         CONVERT CONSTANT VALUE                      DATA     1642
                                                                                                                 DATA     1643
           661  7231777774               CHC7     SX3    X1-M.REAL                                               DATA     1644
                          0313000620 +            NZ     X3,CFC9     IF NOT REAL OR INTEG.  NOT COMPLEX CON      DATA     1645
           662  5110000666 +                      SA1    CHCB                                                    FC50180    22
                          63710                   SB7    X1          PARAMETER FLAG                              FC50180    23
                               54111              =A1    A1+1        SYMTAB ORDINAL                              FC50570    30
           663  5120000665 +                      SA2    CHCA                                                    DATA     1646
                          0306000641 +            ZR     X6,EXIT.    IF VALUE = 0, AVOID COMPLEMENT              DATA     1647
           664  13662                             BX6    X6-X2       RETURN (X6) = SIGNED VALUE OF CON           DATA     1648
                     0400000641 +                 EQ     EXIT.                                                   DATA     1649
                                                                                                                 DATA     1650
           665                     1     CHCA     BSS    1           REMEMBER SIGN                               DATA     1651
           666                     1     CHCB     BSS    1           PARAMETER AS CONSTANT PART FLAG             FC50180    24
           667                     1              BSS    1           PARAMETER SYMTAB ORDINAL                    FC50570    31
  
  
  
  
                                        **        CMV - COERCE MODE OF VALUE.                                    DATA     1653
                                        *                                                                        DATA     1654
                                        *         ENTRY  (A5,X5) = CONSTANT DESCRIPTOR.                          DATA     1655
                                        *                (X4) = ELS, STORAGE UNITS DESIRED.                      DATA     1656
                                        *                (X2) = DM, DESIRED MODE (LEADING GARBAGE OKAY).         DATA     1657
                                        *                                                                        DATA     1658
                                        *         EXIT   (X5) = NEW CONSTANT DESCRIPTOR WORD                     DATA     1659
                                        *                (B3) .ZR. = DM IS TYPE CHARACTER.                       DATA     1660
                                        *                NEW CONSTANT VALUE IS INCLUDED IN (T.CON).              DATA     1661
                                        *                                                                        DATA     1662
                                        *         USES   ALL BUT A0,  B4.                                        DATA     1663
                                        *         CALLS  ALLOC, ASI, FATAL, KCV, MOVE, NCM.                      DATA     1664
                                                                                                                 DATA     1665
                                        *         CONSTANT NOT IN TABLE.                                         DATA     1666
                                                                                                                 DATA     1667
                                                                                                                 DATA     1668
           670  0400400670 +             CMV      SUBR   =           ENTRY/EXIT.                                 DATA     1669
           671  43071                             MX0    -WB.MODEL                                               DATA     1670
                                                  LX5    -DI.DLENP                                               DATA     1671
                     15620                        BX6    -X0*X2      (X6) = MODE OF VARIABLE                     DATA     1672
                          6170777771              SB7    -M.CHAR                                                 DATA     1673
           672  63367                             SB3    X6+B7       (B3) = 0 IFF CHARACTER VARIABLE             DATA     1674
                                                  IFNE   WB.MODEL,DI.MODEL,1                                     DATA     1675
                                                  MX0    -DI.MODEL                                               DATA     1676
                     63650                        SB6    X5          CONLEN = DLEN[DATI]                         DATA     1677
                                   0              ERRNZ  18-DI.DLENL                                             DATA     1678
                          20506                   LX5    DI.DLENP-DI.MODEP                                       DATA     1679
                               15250              BX2    -X0*X5      (B2) = 0 IFF CHARACTER CONSTANT             DATA     1680
           673  11505                             BX5    X0*X5                                                   DATA     1681
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    36
        CONSTANT LIST SCANNING AND CONVERSION.                        CMV 
  
                     63227                        SB2    X2+B7                                                   DATA     1682
                          12556                   BX5    X5+X6       (X5) = RMD                                  DATA     1683
                               20544              LX5    DI.MODEP-DI.PNTP                                        DATA     1684
           674  63750                             SB7    X5          PNTI = PNT[DITI]                            DATA     1685
                     20522                        LX5    DI.PNTP                                                 DATA     1686
                          0430000705 +            ZR     B3,CMV30    IF TYPE CHARACTER VARIABLE                  DATA     1687
                                                                                                                 DATA     1688
                                        *         DESIRED MODE IS SCALAR (NON-CHARACTER).                        DATA     1689
                                                                                                                 DATA     1690
           675  0423000670 +                      EQ     B2,B3,EXIT. IF CONMODE SAME AS VARMODE                  DATA     1691
                          0420000734 +            ZR     B2,CMV60    IF CHAR AND SCALAR MIXED                    DATA     1692
           676  5110000000 X                      SA1    T.CON                                                   DATA     1693
                          10022                   BX0    X2          (X0) = OLD MODE                             DATA     1694
                               53217              SA2    X1+B7       (X6,X7) = OLD VALUE                         DATA     1695
           677  54321                             SA3    A2+B1                                                   DATA     1696
                     10166                        BX1    X6          (X1) = DESIRED MODE                         DATA     1697
                          22703                   LX7    X3                                                      DATA     1698
                               10622              BX6    X2                                                      DATA     1699
           700  0100000000 X                      CALL   KCV         CONVERT CONSTANT VALUE                      DATA     1700
           701  0620000703 +                      PL     B2,CMV10    IF NO CONVERSION ERROR                      DATA     1701
                          6170000000 X            FATAL  E.AT01      MIXED LOGICAL AND NON LOGICAL               DATA     1702
                                                                                                                 DATA     1703
           703  0100000604 +             CMV10    RJ     ASI         ADD SCALAR ITEM                             DATA     1704
           704  10566                             BX5    X6          (X5) = NEW CONSTANT DESCRIPTOR              DATA     1705
                     66310                        SB3    B1          INDICATE SCALAR MODE                        DATA     1706
                          0400000670 +            EQ     EXIT.                                                   DATA     1707
                                                                                                                 DATA     1708
                                        *         CONVERT CHARACTER CONSTANT.                                    DATA     1709
                                        *                IF CONSTANT LONGER THAN VAR, LEAVE IT ALONE.            DATA     1710
                                        *                IF CONSTANT SHORTER THAN VAR -- BLANK PAD IT.           DATA     1711
                                        *         REPLACE (T.DATI) ENTRY WITH THE LONGER (NEW) CONSTANT, SO THAT DATA     1712
                                        *         THE PADDING PROCESS WILL NOT BE REPEATED OFTEN.                DATA     1713
                                        *         NOTE ALSO THAT CHAR CONSTANTS WHICH ARE NOT A FULLWORD         DATA     1714
                                        *         MULTIPLE ARE ALWAYS (ALREADY) BLANK FILLED TO NEXT WORD        DATA     1715
                                        *         BOUNDARY.                                                      DATA     1716
                                        *         (X5) = NEW CONSTANT DESCRIPTOR                                 DATA     1717
                                        *                (B6) = CONLEN -  CHAR LEN OF OLD CON.                   DATA     1718
                                        *                (X4) = ELS   -  CHAR LEN OF VAR.                        DATA     1719
                                        *         (B7) =PNTI                                                     DATA     1720
                                                                                                                 DATA     1721
           705  0520000734 +             CMV30    NZ     B2,CMV60    IF CONSTANT NOT TYPE CHARACTER              DATA     1722
                          76360                   SX3    B6                                                      DATA     1723
                                                  LX5    -DI.DLENP                                               DATA     1724
                               43052              MX0    -DI.DLENL                                               DATA     1725
           706  11705                             BX7    X0*X5       CLEAR DLEN FIELD                            DATA     1726
                     12574                        BX5    X7+X4       DLEN[DITI] = VARLEN                         DATA     1727
                                                  LX5    DI.DLENP                                                DATA     1728
                          7110000011              CW     X1,X4       NWLEN = VARLEN / 10                         DATA     1729
           710  7120000011                        CW     X2,X3       OWLEN = CONLEN / 10                         DATA     1730
                               37721              IX7    X2-X1                                                   DATA     1731
           712  63610                             SB6    X1          ELS = NWLEN                                 DATA     1732
                     0327000670 +                 PL     X7,EXIT.    IF OWLEN .GE. NWLEN                         DATA     1733
                               14777              BX7    -X7                                                     DATA     1734
           713  63570                             SB5    X7          NWBLNK = NWLEN - OWLEN                      DATA     1735
                     63620                        SB6    X2          REMEMBER (B6) = OWLEN                       DATA     1736
                          63310                   SB3    X1          REMEMBER (B3) = NWLEN                       DATA     1737
                               76470              SX4    B7          PNTI = PNT[DITI]                            DATA     1738
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    37
        CONSTANT LIST SCANNING AND CONVERSION.                        CMV 
  
           714  5110000000 X                      ALLOC  T.CON,B3    ALLOCATATE FOR NEW CHAR CON                 DATA     1739
                                                                                                                 DATA     1740
           716  67273                             SB2    B7-B3       DEST = LWA(T.CHAR) - NWLEN                  DATA     1741
                     36214                        IX2    X1+X4       SOURCE = FWA(T.CHAR) + PNTI                 DATA     1742
                          76160                   MOVE   B6,X2,B2    COPY OVER THE OLD CONSTANT                  DATA     1743
           720  5110001026 +                      SA1    =10H                                                    DATA     1744
                          10611                   SETMEM B2+B6,B5,X1 BLANK FILL                                  DATA     1745
                                                                                                                 DATA     1746
           722  5110000000 X                      SA1    T.CON                                                   DATA     1747
                          63710                   SB7    X1          SET (B7) .NE. 0                             DATA     1748
                               67627              SB6    B2-B7       NEWORD = DEST - FWA(T.CHAR)                 DATA     1749
           723  5120000000 X                      SA2    T=CON                                                   DATA     1750
                          76330                   SX3    B3                                                      DATA     1751
                               37623              IX6    X2-X3                                                   DATA     1752
           724  54620                             SA6    A2          (T=CHAR) = (T=CHAR) - NWLEN                 DATA     1753
                     66530                        SB5    B3          REMEMBER (B5) = NWLEN                       DATA     1754
                          66325                   SB3    B2+B5       (B3) = DEST + NWLEN                         DATA     1755
           725  0100000000 X                      CALL   NCM                                                     DATA     1756
           726  0770000730 +                      MI     B7,CMV40    IF NOT ALREADY IN TABLE                     DATA     1757
                          66670                   SB6    B7          NEW ORD = (B7)                              DATA     1758
           727  0400000731 +                      EQ     CMV50                                                   DATA     1759
                                                                                                                 DATA     1760
           730  5110000000 X             CMV40    SA1    T=CON                                                   DATA     1761
                          73615                   SX6    X1+B5                                                   DATA     1762
                               54610              SA6    A1          (T=CHAR) = (T=CHAR) + NWLEN                 DATA     1763
                                                                                                                 DATA     1764
                                        *         (B2) = NEW T.CHAR ORDINAL.                                     DATA     1765
                                                                                                                 DATA     1766
           731  76160                    CMV50    SX1    B6                                                      DATA     1767
                     43052                        MX0    -DI.PNTL                                                DATA     1768
                          20552                   LX5    -DI.PNTP                                                DATA     1769
                               11505              BX5    X0*X5       CLEAR PNT FIELD                             DATA     1770
           732  12551                             BX5    X5+X1                                                   DATA     1771
                     20522                        LX5    DI.PNTP                                                 DATA     1772
                          66300                   =B3    0           INDICATE CHARACTER                          DATA     1773
           733  0400000670 +                      EQ     EXIT.                                                   DATA     1774
                                                                                                                 DATA     1775
                                        *         CHARACTER AND SCALAR MIXED.  DO NOT CHANGE DESCRIPTOR.         DATA     1776
                                                                                                                 DATA     1777
           734  6170000000 X             CMV60    FATAL  E.AT13      ** CHAR AND OTHER MIXED                     DATA     1778
           735  13555                             BX5    0           PNT = 0     /* FAKE UP RETURN               DATA     1779
                     0400000670 +                 EQ     EXIT.                                                   DATA     1780
  
  
  
  
                                        **        CPR -  COMPLEX PARAMETER REFERENCE OUTPUT                      FC50570    33
                                        *                                                                        FC50570    34
                                        *         ENTRY  (X1) = SYMTAB ORDINAL                                   FC50570    35
                                        *                                                                        FC50570    36
                                        *         USES   X0,X1,X2,X5,X6  A1                                      FC50570    37
                                        *                                                                        FC50570    38
                                        *         CALLS  ERT                                                     FC50570    39
                                                                                                                 FC50570    40
                                                                                                                 FC50570    41
           736  0400400736 +             CPR      SUBR               ...ENTRY/EXIT...                            FC50570    42
           737  22001                             LX0    X1                                                      FC50570    43
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    38
        CONSTANT LIST SCANNING AND CONVERSION.                        CPR 
  
                     20052                        LX0    XR.TAGP                                                 FC50570    44
                          5110000000 X            SA1    REFVAR                                                  FC50570    45
           740  76240                             SX2    B4                                                      FC50570    46
                     37552                        IX5    X5-X2       CONVERT ORIGINAL POSITION TO DIFFERENCE     FC50570    47
                          10600                   ADDREF X0,X1                                                   FC50570    48
           742  56340                             SA3    B4          PROTECTION FOR TABLE MOVE IF IN STMT-FUN    FC50570    49
                     73554                        SX5    X5+B4       ORIGINAL POSITION (MAY BE UPDATED)          FC50570    50
                          0400000736 +            EQ     EXIT.                                                   FC50570    51
  
  
  
  
                                        **        CRL - CLOSE OUT REP LIST.                                      DATA     1782
                                        *                                                                        DATA     1783
                                        *         ENTRY  (A1, X1) = CLOSREP.                                     DATA     1784
                                        *                (REPFLAG) = 18/0, 24/OLDN, 18/HDRI                      FC5A132    61
                                        *                OLDN = PREVIOUS (N.ITEM), BEFORE THIS REP BEGAN.        DATA     1786
                                        *                HDRI = INDEX OF REP HEADER IN (T.DATI).                 DATA     1787
                                        *                                                                        DATA     1788
                                        *         EXIT   REP HEADER UPDATED.                                     DATA     1789
                                        *                (N.ITEM) = TOTAL DATA ITEMS SO FAR, INCLUDING (OLDN),   FC50336     8
                                        *                           PLUS THE NUMBER OF CONSTANTS GENERATED BY    DATA     1791
                                        *                           THIS REP LIST.                               DATA     1792
                                        *                (CLOSREP) = 0.                                          DATA     1793
                                        *                (REPFLAG) = 0.                                          DATA     1794
                                        *         USES   A1,A2,A3,A6,A7  B3,B5,B7  X0,X1,X2,X3,X5,X6,X7          FC50336     9
                                        *                                                                        FC50336    10
                                        *         CALLS  ALC, MVE=                                               FC50336    11
                                                                                                                 DATA     1795
                                                                                                                 DATA     1796
           743  0400400743 +             CRL      SUBR               ENTRY/EXIT...                               DATA     1797
           744  5120000000 +                      SA2    REPFLAG                                                 DATA     1798
                          5130000000 X            SA3    T.DATI                                                  DATA     1799
           745  43700                             MX7    0                                                       DATA     1800
                     54710                        SA7    A1          (CLOSREP) = (REPFLAG) = 0                   DATA     1801
                          54720                   SA7    A2                                                      DATA     1802
                               36632              IX6    X3+X2       HDRA = HDRI + (T.DATI)                      DATA     1804
           746  5216777776                        SA1    X6-1        HDRA = DATI(HDRI)                           FC5A269     5
                          5130000002 +            SA3    N.ITEM      NI = NUMBER OF ITEMS IN REP LIST            DATA     1806
                                                  LX1    -DI.RCP                                                 DATA     1807
           747  21222                             AX2    18          OLDN                                        FC5A132    62
                     43044                        MX0    -DI.RCL                                                 FC5A132    63
                          15010                   BX0    -X0*X1      RC = (DI.RC)                                FC5A132    64
                               42603              IX6    X0*X3                                                   DATA     1811
           750  36762                             IX7    X6+X2       (N.ITEM) = RC * NI + OLDN                   DATA     1812
                     54730                        SA7    A3                                                      DATA     1813
                          20330                   LX3    DI.RLP                                                  DATA     1814
                               12631              BX6    X3+X1       (DI.RL) = NI                                DATA     1815
           751  54610                             SA6    A1                                                      DATA     1823
                     20344                        LX3    -DI.RLP                                                 FC50336    12
                          10500                   BX5    X0                                                      FC50336    13
                               63331              =B3    X3+1        NUMBER OF ITEMS + REPL HEADER               FC50336    14
                                                                                                                 FC50336    15
                                        *                (X5)    = RC                                            FC50336    16
                                        *                (B3)    = RL                                            FC50336    17
                                        *                (A6,X6) = REPL HEADER (DI. FORMAT 1)                    FC50336    18
                                                                                                                 FC50336    19
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    39
        CONSTANT LIST SCANNING AND CONVERSION.                        CRL 
  
           752  7110077777               CRL1     SX1    MAX.REPL                                                FC50336    20
                          37015                   IX0    X1-X5                                                   FC50336    21
           753  0320000743 +                      PL     X0,EXIT.    IF LOADER REPLICATION LIMIT NOT EXCEEDED    FC50336    22
                                                                                                                 FC50336    23
                                        *         MUST SPLIT REPLICATION GROUP.  DUPLICATE THE GROUP (INCLUDING  FC50336    24
                                        *         HEADER), EXCEPT DECREMENT RC-MAX.REPL.  LOOP UNTIL ALL GROUPS  FC50336    25
                                        *         REPEAT COUNT .LE. MAX.REPL.                                    FC50336    26
                                                                                                                 FC50336    27
                          43044                   MX0    -DI.RCL                                                 FC50336    28
                                                  LX6    -DI.RCP                                                 FC50336    29
                               11606              BX6    X0*X6       CLEAR RC                                    FC50336    30
           754  12661                             BX6    X6+X1       INSERT MAXIMUM VALUE                        FC50336    31
                                                  LX6    DI.RCP                                                  FC50336    32
                     5066000000                   SA6    A6+                                                     FC50336    33
                               37551              IX5    X5-X1       DECREMENT FOR NEXT REP GROUP                FC50336    34
           755  5110000000 X                      ALLOC  T.DATI,B3                                               FC50336    35
           757  76130                             SX1    B3          COUNT                                       FC50336    36
                     77373                        SX3    B7-B3       DESTINATION                                 FC50336    37
                          67773                   SB7    B7-B3                                                   FC50336    38
                               77273              SX2    B7-B3       SOURCE                                      FC50336    39
           760  66570                             SB5    B7          (B5) _ HEADER WORD (NOT YET COPIED)         FC50336    40
                     74040                        SX0    A4          SAVE A4                                     FC51073     8
                          0100000000 X            MOVE   X1,X2,X3                                                FC50336    41
           761  53400                             SA4    X0          RESTORE A4                                  FC51073     9
                     56150                        SA1    B5          FETCH NEW HEADER                            FC50336    42
                          43044                   MX0    -DI.RCL                                                 FC50336    43
                                                  LX1    -DI.RCP                                                 FC50336    44
                               11110              BX1    X1*X0       CLEAR DI.RC                                 FC50336    45
           762  12615                             BX6    X1+X5       MERGE IN REMAINDER COUNT                    FC50336    46
                                                  LX6    DI.RCP                                                  FC50336    47
                     54610                        SA6    A1          UPDATE                                      FC50336    48
                          0400000752 +            EQ     CRL1                                                    FC50336    49
  
  
  
  
                                        **        CRC -  CHECK REPEAT CONSTANT.                                  DATA     1826
                                        *                                                                        DATA     1827
                                        *                CHECKS CONSTANT FOR PROPER TYPE (INTEGER OR OCTAL )     DATA     1828
                                        *                AND MAGNITUDE ( 0 < CON < 2**24 )                       FC5A132    65
                                        *                                                                        DATA     1830
                                        *         ENTRY  (X5) = CONSTANT                                         DATA     1831
                                        *                (X1) = MODE OF CONSTANT                                 DATA     1832
                                        *                                                                        DATA     1833
                                        *         EXIT   (X6) = CONVERTED CONSTANT VALUE.                        DATA     1834
                                        *         USES   X5,B2                                                   DATA     1835
                                                                                                                 DATA     1836
                                                                                                                 DATA     1837
           763  0400400763 +             CRC      SUBR               ENTRY/EXIT...                               DATA     1838
           764  10655                             BX6    X5                                                      DATA     1839
                     0305000000 X                 ZR     X5,E.DCE    IF .EQ. 0                                   DATA     1840
                               21530              AX5    24                                                      FC5A132    66
           765  6221777775                        SB2    X1-M.INT                                                DATA     1842
                          0315000000 X            NZ     X5,E.DCE    IF .GT. 2**24-1                             FC5A132    67
           766  0420000763 +                      ZR     B2,EXIT.    IF INTEGER TYPE                             DATA     1846
                          0400000000 X            EQ     E.DCE       ILLEGAL TYPE                                DATA     1847
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    40
        CONSTANT LIST SCANNING AND CONVERSION.                        CSC 
  
                                        **        CSC -  CHECK FOR SYMBOLIC CONSTANT.                            DATA     1849
                                        *                                                                        DATA     1850
                                        *         ENTRY  (B4) _ O.VAR TOKEN                                      FC5A231    53
                                        *                (X4) = O.VAR TOKEN                                      FC5A231    54
                                        *                                                                        DATA     1852
                                        *         EXIT   (B7) .MI. = VAR IS NOT A SYMBOLIC CONSTANT.             DATA     1853
                                        *                (B4) _ LAST TOKEN OF SUPPOSED SYMBOLIC CONSTANT         FC5A231    55
                                        *                                                                        DATA     1855
                                        *         ELSE   (B7) .PL. = VAR IS A SYMBOLIC CONSTANT.                 DATA     1856
                                        *                (X0) = SYMORD OF THE SYMBOLIC CONSTANT (S.C.).          DATA     1857
                                        *                (X1) = MODE OF CONSTANT.                                DATA     1858
                                        *                (X6) = VALUE OF SYMBOLIC CONSTANT (S.C.)                DATA     1859
                                        *                (A3) _ T.SYM (WC.) OF (S.C.)                            FC5A231    56
                                        *                (B3) = CONSTANT TABLE POINTER OF S.C.                   DATA     1863
                                        *                                                                        DATA     1864
                                        *         USES   A1-3,6-7  X0-3,6-7  B2-3,7                              FC5A231    57
                                        *                                                                        FC5A231    58
                                        *         CALLS  SSY, TLV                                                FC5A231    59
                                                                                                                 DATA     1867
                                                                                                                 DATA     1868
           767  0400400767 +             CSC      SUBR   =           ENTRY/EXIT.                                 DATA     1869
           770  5014000001                        SA1    A4+1                                                    FC5A231    60
                          7211777766              SX1    X1-O.VAR                                                FC5A231    61
           771  0311000773 +                      NZ     X1,CSC1     IF NOT LONG NAME                            FC5A231    62
                          0100000000 X            CALL   TLV         TRUNCATE LONG NAME                          FC5A231    63
           772  7164000001                        SX6    B4+1                                                    FC5A231    64
                          5160000023 +            SA6    SELIST      UPDATE TO REFLECT LONG NAME                 FC5A231    65
                                                                                                                 FC5A231    66
           773  43152                    CSC1     MX1    TB.TOCL                                                 FC5A231    67
                     11614                        BX6    X1*X4                                                   DATA     1871
                          0100000000 X            CALL   SSY         SCAN SYMBOL TABLE                           DATA     1872
           774  0770000767 +                      MI     B7,EXIT.    IF NOT IN TABLE                             DATA     1873
                          20263                   HX2    WB.PARM                                                 DATA     1875
                               67701              SB7    -B1         INDICATE FAILURE                            DATA     1876
           775  0322000767 +                      PL     X2,EXIT.    IF NOT PARAMETER                            DATA     1877
                          20211                   LX2    1+WB.PARMP-WB.MODEP                                     DATA     1879
                               66700              SB7    B0          INDICATE SUCCESS                            DATA     1880
           776  54321                             =A3    A2-WB.W+WC.W      WCI = WC ENTRY OF T.SYM               DATA     1881
                     43171                        MX1    -WB.MODEL                                               DATA     1882
                          15121                   BX1    -X1*X2      MODEI = MODE[WBI]                           DATA     1883
                                                  LX3    -WC.RAP                                                 DATA     1884
                               63330              SB3    X3          PNT = RA[WCI]                               DATA     1885
                                   0              ERRNZ  18-DI.PNTL                                              DATA     1886
           777  5120000000 X                      SA2    T.CON                                                   DATA     1887
                          53223                   SA2    B3+X2       VALUE = T.CON(PNT)                          DATA     1888
                               10622              BX6    X2                                                      DATA     1889
          1000  0400000767 +                      EQ     EXIT.                                                   DATA     1891
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    41
        CONSTANT LIST SCANNING AND CONVERSION.                        GNI 
  
                                        **        GNI - GET NEXT ITEM.                                           DATA     1893
                                        *                                                                        DATA     1894
                                        *         EXIT   (A5, X5) = ADDRESS AND CONTENTS OF NEXT ITEM DESCRIPTOR DATA     1895
                                        *                            FROM (T.DATI).                              DATA     1896
                                        *         (REPFLAG), (I.DIT) UPDATED.                                    DATA     1897
                                                                                                                 DATA     1898
                                                                                                                 DATA     1899
          1001  0400401001 +             GNI      SUBR               ENTRY/EXIT...                               DATA     1900
          1002  5110000004 +                      SA1    I.DIT                                                   DATA     1901
                          5120000000 X            SA2    T.DATI                                                  DATA     1902
          1003  36612                             IX6    X1+X2                                                   DATA     1903
                     53560                        SA5    X6          NEXT WORD                                   DATA     1904
                          54211                   SA2    A1+B1       REP COUNT REMAINDER                         DATA     1905
                                                  HX5    DI.REP                                                  DATA     1906
          1004  0325001010 +                      PL     X5,GNI1     IF NOT THE START OF A REP LIST              DATA     1907
                                                                                                                 DATA     1908
                                        **        INITIALIZE REP LIST PROCESSING                                 DATA     1909
                                                                                                                 DATA     1910
                          10655                   BX6    X5                                                      DATA     1911
                               73711              SX7    X1+B1                                                   DATA     1912
          1005  5160000000 +                      SA6    REPFLAG                                                 DATA     1913
                          54721                   SA7    A2+B1       SAVE ORDINAL OF REP LIST START              DATA     1914
                               20644              LX6    -DI.RLP                                                 DATA     1915
          1006  73760                             SX7    X6                                                      DATA     1916
                                   0              ERRNZ  18-DI.RLL                                               DATA     1917
                     14777                        BX7    -X7         SET REMAINDER = - (N.ITEMS IN REP LIST)     DATA     1918
                          54720                   SA7    A2                                                      DATA     1919
                               10277              BX2    X7                                                      DATA     1920
          1007  54551                             SA5    A5+B1       FETCH (X5) = FIRST DATA ITEM DESCRIPTOR     DATA     1921
                     73111                        SX1    X1+B1       INDEX += 1    /* ADVANCE PAST REP WORD      DATA     1922
                                                                                                                 DATA     1923
                                        *         ADVANCE (I.DIT) TO POINT TO NEXT ITEM, AND THEN SEE IF WE      DATA     1924
                                        *         ARE IN A REP LIST.                                             DATA     1925
                                                                                                                 DATA     1926
          1010  76010                    GNI1     SX0    B1                                                      DATA     1927
                     36701                        IX7    X0+X1       INDEX += 1                                  DATA     1928
                          54710                   SA7    A1                                                      DATA     1929
          1011  0302001001 +                      ZR     X2,EXIT.    IF NO REPETITION                            DATA     1930
                          73721                   SX7    X2+B1       REMAINDER += 1                              DATA     1931
                               54720              SA7    A2                                                      DATA     1932
          1012  0317001001 +                      NZ     X7,EXIT.    IF MORE TO GO                               DATA     1933
                                                                                                                 DATA     1934
                                        *         DECREMENT REP COUNT, GO BACK TO START OF REP LIST              DATA     1935
                                        *         IF RC NOT EXHAUSTED.                                           DATA     1936
                                                                                                                 DATA     1937
                          5130000000 +            SA3    REPFLAG                                                 DATA     1938
          1013  76010                             SX0    B1                                                      DATA     1939
                                                  LX3    -DI.RCP                                                 DATA     1940
                     37730                        IX7    X3-X0       RC -= 1                                     DATA     1941
                          43044                   MX0    -DI.RCL                                                 FC5A132    68
                               15070              BX0    -X0*X7                                                  FC5A132    69
                                                  LX7    DI.RCP                                                  DATA     1944
          1014  54730                             SA7    A3                                                      DATA     1945
                     0300001017 +                 ZR     X0,GNI2     IF (DI.RC) = 0 THEN FINISHED                FC5A132    70
                               20344              LX3    DI.RCP-DI.RLP                                           DATA     1947
          1015  73730                             SX7    X3                                                      DATA     1948
                                   0              ERRNZ  18-DI.RLL                                               DATA     1949
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    42
        CONSTANT LIST SCANNING AND CONVERSION.                        GNI 
  
                     14777                        BX7    -X7         REMAINDER = - (DI.RL)                       DATA     1950
                          54720                   SA7    A2                                                      DATA     1951
                               54421              SA4    A2+B1       OF = ORDINAL OF FIRST DATA ITEM IN REP LIST DATA     1952
          1016  10744                             BX7    X4                                                      DATA     1953
                     54710                        SA7    A1          (I.DIT+0) = OF    /* RESET FOR NEXT ENTRY   DATA     1954
                          0400001001 +            EQ     EXIT.                                                   DATA     1955
                                                                                                                 DATA     1956
          1017  13777                    GNI2     BX7    0                                                       DATA     1957
                     54770                        SA7    A7          (REPFLAG) = 0     /* INDICATE REP LIST OVER DATA     1958
                          0400001001 +            EQ     EXIT.                                                   DATA     1959
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    43
        CONSTANT LIST SCANNING AND CONVERSION.                        MDL 
  
                                        **        MDL - MATCH DATA LISTS.                                        DATA     1961
                                        *                                                                        DATA     1962
                                        *         MATCHS A (SET OF) ELEMENT(S) TO DATA ITEM LIST.                DATA     1963
                                        *                                                                        DATA     1964
                                        *         ENTRY  (X5) = NUMBER OF EXPLICIT LOOPS.                        DATA     1965
                                        *                (DVI) AND SUBSCRIPT INFO BLOCK SET UP BY BVT.           DATA     1966
                                        *                (BIAS) = CONSTANT SUBSCRIPT CONTRIBUTION.               DATA     1967
                                        *                LOOP AND SUBSCRIPT INFO SET UP.                         DATA     1968
                                        *                                                                        DATA     1969
                                        *         CALLS  GNI, NIC, OSH, OVI, UPH.                                DATA     1970
                                                                                                                 DATA     1971
                                                                                                                 DATA     1972
                                                  LIST   -F                                                      DATA     1973
                                         .MDL     SKIP               **** FOLLOWING OBSOLETE ****                DATA     1974
                                         .MDL     ENDIF                                                          DATA     2119
                                                  LIST   *                                                       DATA     2120
  
  
  
  
                                                  LIST   D                                                       DATA     2122
                                                                                                                 DATA     2123
                                   0     .FIX     EQU    --  TEMP SCAFFOLD FOR NEW MCQ CODE.                     DATA     2124
                                         .MQ      IF     -DEF,C=DVL                                              DATA     2125
                                         C=DVL    BSSENT 0                                                       DATA     2126
                                         EDI      BSSENT 0                                                       DATA     2127
                                                  EQ     "BLOWUP"                                                DATA     2128
                                         .MQ      ENDIF                                                          DATA     2129
  
                                        CONTENT OF LITERALS BLOCK.
  
          1020  37746000000000000000    4@# 
          1021  37776000002000000000    4;#  P
          1022  36600000000000000000    3#
          1023  34600000000000000000    1#
          1024  40000000001200000000    5    J
          1025  00000631463146314632      FY-Y-Y-Z
          1026  55555555555555555555
  
          1027                                    END                                                            DATA     2130
  
                             74400B CM  STORAGE USED             4395 STATEMENTS     1601 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            3.584 SECONDS         954 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADC           546   PROGRAM*       11/57     30/14 L
        ADC2          557   PROGRAM*       30/26     30/27     30/28     30/48 L
        ADC3          565   PROGRAM*       30/43     31/02     31/10 L
        ADC4          567   PROGRAM*       30/29     31/19 L
        ADW             0   EXTERNAL*       1/52 X    9/40     13/21     13/57     25/23     26/16     32/36
        ALC             0   EXTERNAL*       1/52 X   27/05     27/26     37/01     39/16
        ANSI=           0   EXTERNAL*       2/25 X   13/13     30/49     33/41     33/46
        ASC           573   PROGRAM*       12/35     31/43 L
        ASC10         577   PROGRAM*       31/48     31/57 L
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        ASC20         602   PROGRAM*       31/55     32/02     32/03     32/07 L
        ASI           604   PROGRAM*       13/55     31/26     32/25 L   36/23
        ASIA           24   PROGRAM*        5/25 L    5/26
        ASI2          612   PROGRAM*       32/35     32/43 L   33/02
        ASI4          615   PROGRAM*       32/28     32/29     32/54 L
        BDL            74   PROGRAM*        7/06      9/12 L
        BDL10         100   PROGRAM*        9/23 L    9/48
        BDL11         103   PROGRAM*        9/24      9/26 L
        BDL15         104   PROGRAM*        9/23      9/27 L
        BDL20         115   PROGRAM*        9/25      9/50 L
        BDL30         117   PROGRAM*        9/34      9/50      9/53 L
        BIAS           12   PROGRAM*        5/16 L   19/26 S   19/30
        BIT           133   PROGRAM*        7/43     11/13 L
        BIT10         134   PROGRAM*       11/17 L   13/32     14/16
        BIT20         154   PROGRAM*       11/26     11/44     11/46     11/48     12/53
                                           11/40     11/45     11/47     11/52 L
        BIT25         157   PROGRAM*       11/54     11/57 L
        BIT30         161   PROGRAM*       11/28     12/06 L
        BIT40         175   PROGRAM*       11/27     12/40 L
        BIT45         202   PROGRAM*       12/28     13/04 L
        BIT50         210   PROGRAM*       13/07     13/15 L
        BIT60         220   PROGRAM*       11/35     11/49     13/37 L
        BIT70         224   PROGRAM*       11/31     11/34     13/50 L
        BIT75         226   PROGRAM*       13/43     13/55 L
        BIT80         227   PROGRAM*       12/01     12/36     13/57 L
        BIT85         232   PROGRAM*       14/12 L   14/28
        BIT90         234   PROGRAM*       14/13     14/16 L
        BIT95         242   PROGRAM*       14/24     14/27 L
        B1=1            0 
        CFC           621   PROGRAM*       13/37     33/30 L   33/30 E
        CFCA          640   PROGRAM*       33/34 S   33/55     34/05 L
        CFC1          630   PROGRAM*       33/40     33/44 L
        CFC2          634   PROGRAM*       33/45     33/51 L
        CFC9          620   PROGRAM*       33/27 L   33/39     33/54     34/49     34/53     35/13
        CHC           641   PROGRAM*       33/33     33/44     34/30 L
        CHCA          665   PROGRAM*       34/45 S   35/17     35/22 L
        CHCB          666   PROGRAM*       34/33 S   34/55 S   35/14     35/23 L
        CHC2          645   PROGRAM*       34/35     34/40 L
        CHC3          646   PROGRAM*       34/36     34/43 L
        CHC5          656   PROGRAM*       34/46     34/47     35/03 L
        CHC6          657   PROGRAM*       35/01     35/06 L
        CHC7          661   PROGRAM*       35/08     35/12 L
        CLOSREP         1   PROGRAM*        5/07 L   13/17 S   14/12     14/23
        CMV           670   PROGRAM*       26/54     35/45 L   35/45 E
        CMV10         703   PROGRAM*       36/20     36/23 L
        CMV30         705   PROGRAM*       36/06     36/41 L
        CMV40         730   PROGRAM*       37/19     37/23 L
        CMV50         731   PROGRAM*       37/21     37/29 L
        CMV60         734   PROGRAM*       36/11     36/41     37/40 L
        CONONE          0   EXTERNAL*       2/28 X   16/32
        CO.SNAP         0   EXTERNAL*       2/13 X
        CPR           736   PROGRAM*       33/42     33/48     37/56 L
        CRC           763   PROGRAM*       13/18     39/49 L
        CRL           743   PROGRAM*       14/14     14/25     38/31 L
        CRL1          752   PROGRAM*       39/01 L   39/32
        CSC           767   PROGRAM*       12/12     34/52     40/21 L   40/21 E
        CSC1          773   PROGRAM*       40/24     40/29 L
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        CVL             0   EXTERNAL*       2/19 X   15/31
        C=DVL         261   PROGRAM*       16/22 L   16/22 E   43/24 F
        C=ERR           0   EXTERNAL*       2/22 X
        DA             14   PROGRAM*        5/18 L   20/04 S   21/16     22/27     22/45     23/14     23/39
        DATAFLG       243   PROGRAM*       12/43 S   12/46 S   14/30 L   14/30 E
        DATARM          0   EXTERNAL*       2/22 X   15/26
        DATA1          51   PROGRAM*        7/15      7/24 L    8/06
        DATA2          71   PROGRAM*        7/46      8/02 L    8/02 E
        DATA.E         36   PROGRAM*        6/47 L   13/39
        DATFLG          0   EXTERNAL*       2/01 X   15/30 S   15/36 S
        DAT.Z          37   PROGRAM*        6/49 L    6/49 E    8/07      9/54     10/39
        DA.BIASP       22   FTX            29/40
        DA.ORDP        52   FTX            24/53
        DA.RPP         72   FTX            26/09
        DA.W            0   FTX            25/18 S   26/13     29/32     29/43
        DB.INCP        36   FTX            26/04
        DB.W            1   FTX            26/06 S   26/10     26/13
        DEC             0   EXTERNAL*       1/55 X   12/44     35/04
        DH.PSL         30   FTX            17/31
        DH.PSP         36   FTX            17/33
        DILT           22   PROGRAM*        5/23 L    7/41 S    7/42     15/20     15/21
        DI.DLENL       22   FTX            27/04     35/54     36/44
        DI.DLENP        0   FTX            27/01     35/55
        DI.MODEL        3   FTX            35/51 F
        DI.MODEP       66   FTX            31/10     32/07     32/47     35/55     36/03
        DI.PNTL        22   FTX            26/57     37/30     40/43
        DI.PNTP        22   FTX            26/55     31/13     32/46     36/05     37/34
                                           27/01     31/46     36/03     37/31
        DI.RCL         30   FTX            20/49     38/42     39/09     39/26     41/50
        DI.RCP          0   FTX            20/51     41/55
        DI.RLL         22   FTX            20/23     20/53     41/25     41/57
        DI.RLP         30   FTX            20/21     20/51     21/02     38/47     38/50     41/23     41/55
        DL.CONL        22                   5/39 D    7/36
        DL.CONP         0                   5/39 D    7/37
        DL.VARL        22                   5/38 D    7/40
        DL.VARP        22                   5/38 D    7/37      9/32
        DMT=            0   EXTERNAL*       2/10 X
        DUC=            0   FTX             7/50
        DVI             7   PROGRAM*        5/15 L   21/36     23/22     24/41     25/53     26/42     28/08 S
        DVLA          312   PROGRAM*       17/56 S   18/01     18/04 L
        DVLOP           0   EXTERNAL*       2/22 X   15/27
        DVLT           21   PROGRAM*        5/22 L    7/42     15/21     15/32
        DVL21         274   PROGRAM*       16/42     17/03 L
        DVL24         276   PROGRAM*       16/34     17/09 L
        DVL30         305   PROGRAM*       16/36     16/39     17/07     17/11     17/49 L
        EDI           313   PROGRAM*       19/15 L   19/15 E
        EMT             0   EXTERNAL*       2/22 X    7/50     18/01
        ERT             0   EXTERNAL*       2/01 X   12/20     38/05
        E=TOTAL         0   EXTERNAL*       2/28 X   15/41
        E.AT01          0   EXTERNAL*       2/05 X   36/21
        E.AT03          0   EXTERNAL*       2/05 X   31/03     31/03
        E.AT08          0   EXTERNAL*       2/05 X   30/49
        E.AT13          0   EXTERNAL*       2/05 X   37/40
        E.DACV          0   EXTERNAL*       2/05 X    7/57
        E.DAR           0   EXTERNAL*       2/05 X   13/13
        E.DAVC          0   EXTERNAL*       2/05 X    7/56
        E.DCE           0   EXTERNAL*       2/05 X   14/19     39/51     39/54     39/56
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        E.DC10          0   EXTERNAL*       2/06 X   34/54
        E.DC7           0   EXTERNAL*       2/06 X   13/38
        E.DIL           0   EXTERNAL*       2/06 X   11/23     13/12
        E.DIL1          0   EXTERNAL*       2/06 X   11/50     30/36     30/48
        E.DIL2          0   EXTERNAL*       2/06 X   13/05
        E.DIL3          0   EXTERNAL*       2/06 X   14/20
        E.DIL4          0   EXTERNAL*       2/06 X   12/13
        E.DSE           0   EXTERNAL*       2/06 X    9/53     10/38
        E.DVL1          0   EXTERNAL*       2/07 X   16/23
        E.MDE2          0   EXTERNAL*       2/07 X   11/55
        FEC=EXU         0   EXTERNAL*       2/01 X    7/13
        FEC.RTN         0   EXTERNAL*       2/01 X    6/54
        FILL.           0   EXTERNAL*       2/07 X   12/11 S
        F.GRUP          0   PROGRAM*        5/05 L    5/13      7/28 S
        GNI          1001   PROGRAM*       21/52     22/23     23/36     41/08 L
        GNI1         1010   PROGRAM*       41/15     41/35 L
        GNI2         1017   PROGRAM*       41/54     42/08 L
        IDP=SVB         0   EXTERNAL*       2/16 X
        IDP=SVX         0   EXTERNAL*       2/16 X
        IODOIND         0   EXTERNAL*       2/19 X   16/38
        IOL.RTN         0   EXTERNAL*       2/22 X   18/02
        I.DIT           4   PROGRAM*        5/10 L   15/35 S   20/13     20/26     23/52     24/02     41/09
        KCV             0   EXTERNAL*       1/55 X   35/10     36/19
        KW=DATA        43   PROGRAM*        7/04 L    7/04 E
        LI             15   PROGRAM*        5/19 L   21/51 S   21/54     22/15 S   22/26
        MAX.REPL    77777   FTX            39/01
        MDERR=          0   EXTERNAL*       2/25 X   11/55
        MOD             0   EXTERNAL*       2/28 X
        MP             17   PROGRAM*        5/20 L   21/25 S   21/44     22/19
        MVE=            0   EXTERNAL*       2/38 X   27/32     37/05     39/23
        M.BOOL          0   FTX            30/56
        M.CHAR          6   FTX            21/40     23/25     25/01     28/45     30/34     30/34     31/44     35/49
        M.CPLX          5   FTX            13/42     28/31     28/45     32/04     32/30
        M.DBL           4   FTX            28/28     28/31     31/57     32/04     32/26     32/30
        M.INT           2   FTX            17/36     35/06     35/09     39/53
        M.LOG           1   FTX            13/52
        M.REAL          3   FTX            35/09     35/12
        NBC             0   EXTERNAL*       1/55 X   32/54
        NCM             0   EXTERNAL*       2/01 X   37/18
        NIC           321   PROGRAM*       19/31     20/01 L
        NICB          434   PROGRAM*       20/10 S   21/46     22/12     22/42     23/34     23/38     24/08 L
        NICN          435   PROGRAM*       21/14 S   21/43     22/18     22/40     24/09 L
        NICT          436   PROGRAM*       19/27 S   20/47     22/46     23/44     24/10 L
        NIC10         325   PROGRAM*       20/05     20/09 L
        NIC20         326   PROGRAM*       20/12 L   22/55
        NIC24         333   PROGRAM*       20/14     20/33 L   24/03
        NIC26         335   PROGRAM*       20/25     20/31     20/47 L
        NIC30         351   PROGRAM*       21/26     21/36 L
        NIC32         354   PROGRAM*       21/41     21/43 L
        NIC34         360   PROGRAM*       21/51 L   21/56
        NIC40         365   PROGRAM*       21/27     21/42     22/12 L
        NIC44         367   PROGRAM*       22/18 L   22/34
        NIC50         377   PROGRAM*       22/01     22/40 L
        NIC56         406   PROGRAM*       22/54     22/57 L   23/49
        NIC60         410   PROGRAM*       20/37     21/05     23/14 L
        NIC62         415   PROGRAM*       23/32 L   23/56
        NIC63         416   PROGRAM*       23/26     23/34 L
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        NIC64         417   PROGRAM*       23/33     23/36 L
        NIC68         432   PROGRAM*       23/50     24/05 L
        N.ITEM          2   PROGRAM*        5/08 L    7/55     13/23     14/02     20/02     22/43     23/43     38/39
        OIL             0   EXTERNAL*       2/01 X    7/07
        ORGN           13   PROGRAM*        5/17 L   23/17 S   23/32
        ORH           462   PROGRAM*       21/47     22/22     25/47 L
        OR.1OP          1   FTX            16/47
        OSH           437   PROGRAM*       23/35     24/33 L   26/07
        OSHA           24   PROGRAM*        5/26 D   24/37 S   24/39
        OSH20         444   PROGRAM*       24/35     24/41 L
        OSH40         453   PROGRAM*       25/02     25/09 L
        OSH80         455   PROGRAM*       25/07     25/17 L
        OVI           474   PROGRAM*       21/53     22/24     23/37     26/40 L
        OVIA           25   PROGRAM*        5/27 L   26/46 S
        OVI5          511   PROGRAM*       27/02     27/24 L
        O.CHAR          4   FTX            30/29
        O.COMMA        42   FTX             9/14      9/23     14/16     15/23     33/36
        O.CONS          5   FTX            11/21     34/44
        O.EOS           0   FTX             9/38      9/45      9/50     14/18     15/22     15/37
        O.FALSE        13   FTX            11/32 F
        O.LP           37   FTX             9/24     10/21     10/22     11/30     11/49     13/12     13/12
        O.MIN          15   FTX            11/36     34/37
        O.PERIOD       10   FTX            11/40     11/44     34/43
        O.PL           14   FTX            34/34     34/37
        O.QHOLL         2   FTX            11/47     30/27
        O.RLCON         3   FTX            11/48     30/28
        O.RP           40   FTX            10/22     14/20     33/52
        O.SLASH        17   FTX             9/28      9/41
        O.STAR         16   FTX            13/07     14/19
        O.TRUE         12   FTX            11/29     11/32 F
        O.VAR          11   FTX             9/25     11/22     34/48     40/23
        PDI             0   EXTERNAL*       2/32 X    7/51
        PDM             0   EXTERNAL*       2/25 X    6/47      9/53     10/38     31/03     36/21     37/40
        PL              3   PROGRAM*        5/09 L   13/08     14/22 S
        PM=DATA         5   FTX            15/29
        PVL           244   PROGRAM*        7/45     15/19 L
        PVL9          257   PROGRAM*       15/42     16/08 L
        REFVAR          0   EXTERNAL*       2/01 X   12/19     38/02
        REG=            0   EXTERNAL*       2/16 X
        REPFLAG         0   PROGRAM*        5/06 L   13/04     13/28 S   20/12     38/32     41/21 S   41/46
        RL             20   PROGRAM*        5/21 L   20/56 S   21/49     22/41
        SBM=            0   EXTERNAL*       2/38 X   37/07
        SCT             0   EXTERNAL*       2/01 X   32/32
        SDV           520   PROGRAM*       19/28     27/53 L
        SDV4          527   PROGRAM*       28/29     28/30     28/33 L
        SDV7          535   PROGRAM*       28/44     29/01 L
        SED             0   EXTERNAL*       1/55 X   15/57
        SELIST         23   PROGRAM*        5/24 L   12/23     13/25     14/01     31/23 S   40/27 S
                                           12/08 S   13/16 S   13/53 S   30/18 S   34/02 S
        SNP=            0   EXTERNAL*       2/16 X
        SN.PAR          0   EXTERNAL*       2/10 X
        SP.MODEP       22   FTX            17/54
        SP.SKELP       52   FTX            17/52
        SSY             0   EXTERNAL*       2/01 X   40/31
        STAGE           0   EXTERNAL*       2/02 X    7/12
        STD           121   PROGRAM*        9/29      9/42     10/12 L
        STD1          124   PROGRAM*       10/24 L   10/27     10/32     10/37
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        STD2          127   PROGRAM*       10/28     10/34 L
        STD5          131   PROGRAM*       10/36     10/38 L
        S.BLEN         35   PROGRAM*        6/37 L
        S.DHW          26   PROGRAM*        6/31 L   25/18 S   26/06 S   26/10     29/32
        S.FEA          31   PROGRAM*        6/33 L   25/22 S   29/39
        S.LEN          32   PROGRAM*        6/34 L   24/47 S   24/50     26/43     29/31
        S.NCH          33   PROGRAM*        6/35 L   24/50     24/52
        S.PAD          34   PROGRAM*        6/36 L   24/52     26/15 S
        S.POP          30   PROGRAM*        6/32 L   15/39 S   24/34     25/25 S   29/34
        TB.CLCNL       17   FTX            30/33     30/39 F
        TB.CLCNP       33   FTX            30/35     30/41
        TB.IOCPL       22   FTX            10/31
        TB.IOCPP       44   FTX            10/29
        TB.LCONL       11   FTX            30/50
        TB.LCONP       22   FTX            30/51     30/54
        TB.SHCL        22   FTX            30/39 F   30/40     30/53
        TB.SHCP        52   FTX            30/41     30/54
        TB.TOCL        52   FTX            12/09     40/29
        TB.TOTL        22   FTX            30/16
        TEST            0   FTX            10/13 F   16/02 F   17/38 F   25/48 F   30/19 F
                                           15/44 F   17/20 F   19/16 F   29/07 F
        TLV             0   EXTERNAL*       2/02 X   40/25
        TNK             0   EXTERNAL*       1/55 X   31/21
        TP.AREP         5   FTX            17/10     17/13
        TP.ARRP        15   FTX            16/35
        TP.BIASL       30   FTX            16/40     16/41     16/49     16/51     16/52     16/55     32/55     32/57
        TP.BIASP       24   FTX             7/49     16/40     16/51     16/54     16/55     17/35     32/55
        TP.INTRL        1   FTX            16/33
        TP.INTRP       12   FTX            16/33     16/35
        TP.MODEL        3   FTX            17/50
        TP.MODEP        0   FTX            17/36
        TP.ORDL        20   FTX            16/46     17/15
        TP.SHRTL        1   FTX            17/36
        TP.SHRTP       14   FTX            17/36
        T=CON           0   EXTERNAL*       2/28 X    6/53      6/53 S    7/16     37/12     37/23
        T=CONB          0   EXTERNAL*       2/02 X    6/52      7/18 S
        T=DAR           0   EXTERNAL*       2/28 X    7/25      7/25 S   16/09     16/09 S
        T=DATI          0   EXTERNAL*       2/28 X    6/50      6/50 S    7/26      7/26 S
        T=DATL          0   EXTERNAL*       2/28 X    7/31      8/03      9/13      9/13 S    9/51
        T=DATS          0   EXTERNAL*       2/28 X    6/51      6/51 S    7/27      7/27 S    7/47
        T.CON           0   EXTERNAL*       2/29 X   27/06     27/28     32/32     36/12     37/01     37/09     40/44
        T.DAR           0   EXTERNAL*       2/29 X
        T.DATI          0   EXTERNAL*       2/29 X   13/57     23/51     38/33     41/10
                                           13/21     20/33     26/41     39/16
        T.DATL          0   EXTERNAL*       2/29 X    7/30      9/40      9/40
        T.DATS          0   EXTERNAL*       2/29 X   25/23     27/05     27/26     29/36
                                           25/23     26/16     27/05     27/26
        T.DIM           0   EXTERNAL*       2/29 X   17/26
        T.PAR           0   EXTERNAL*       2/29 X   16/43
        T.SYM           0   EXTERNAL*       2/29 X   17/12     27/54
        UPH           537   PROGRAM*       21/57     22/25     23/02     24/01     24/05     24/38     29/30 L
        VAI             0   EXTERNAL*       2/19 X   16/25
        V1.BASEL       14                   6/14 D   24/45
        V1.BASEP       52                   6/14 D   24/46     25/03     28/05
        V1.ORDL        22                   6/16 D
        V1.ORDP         0                   6/16 D
        V1.SDPFP       73                   6/12 D   25/03     28/34
1       DATA - TRANSLATE DATA STATEMENTS.                             COMPASS 3.7-871.     24/05/02. 13.16.08.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        V1.W            0                   6/10 D   24/41     24/42     28/36
        V3.ABUL        30                   6/23 D   25/17
        V3.ABUP         0                   6/23 D
        V3.ELSL        22                   6/21 D   25/10     25/54
        V3.ELSP        52                   6/21 D   25/11     25/15     25/56     29/01
        V3.SSUL        22                   6/22 D   26/47
        V3.SSUP        30                   6/22 D   26/48     29/02
        V3.W            2                   6/19 D   24/57     25/53     26/42     26/49     29/06
        V=DATA          0   EXTERNAL*       2/35 X    7/50
        V=DVI           0   EXTERNAL*       2/35 X   17/49
        WA.W            0   FTX             6/10
        WB.BASEL       14   FTX             6/14
        WB.MODEL        3   FTX            21/37     23/21     24/44     28/24     35/46     35/51 F   40/39
        WB.MODEP        0   FTX            40/36
        WB.PARML        1   FTX            40/33
        WB.PARMP       10   FTX            40/33     40/36
        WB.PNTL        15   FTX            17/28
        WB.PNTP        57   FTX            17/27
        WB.W            1   FTX            17/16     23/22     24/57     27/57     28/36     29/06
                                           21/36     24/42     26/49     28/08 S   28/54     40/38
        WC.BCPL         4   FTX            28/46
        WC.BCPP        30   FTX            28/47     28/49
        WC.CLENL       22   FTX            28/51     31/47
        WC.CLENP       36   FTX            28/49     28/55     31/52     31/54
        WC.RAL         30   FTX            28/41
        WC.RAP          0   FTX            28/47
        WC.W            2   FTX             6/19     28/54     40/38
        XR.TAGP        52   FTX            12/18     38/01
        Z=SYM           3   FTX             5/15     28/02
        Z.GRUP          7                   5/13 D    7/28
        .A              0                   7/50 D    7/50     18/01 D   18/01
        .FIX            0                  23/19 D   27/33 D   30/38 D   43/23 D
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2612              IDENT  DECL 
                       2612                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2557 
                                        LITERALS* LOCAL        2557        33 
  
  
                                        ENTRY POINTS. 
  
                                        B=DECL           0+           A=DBD          432+           KW=PARA       1121+ 
                                        KW=COMM         17+           KW=EQUI        633+           PRMERR        1207+ 
                                        KW=DIME        121+           EQS80          715+           KW=SAVE       1213+ 
                                        DIR            136+           KW=EXTE        722+           SAVERR        1260+ 
                                        DIRT           206+           KW=INTR        765+           PCD           1263+ 
                                        EDD            326+           KW=LEVE       1020+           ACV           2234+ 
                                        CDBB           425+           LVL80         1114+ 
                                        C=DBD          431+           LVL90         1116+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       SLT       E.DM06    E.EQ14    E.PX2     CO.TMLC   MOD       T.COMM
                                        ADWT      SSY       E.DM07    E.EQ15    E.PX3     TB=TYPE   N.CPL     T.CON 
                                        ALC       STAGE     E.DM08    E.EQ16    E.PX4     EMT       N.EPL     T.DIM 
                                        GPS       STY       E.DM09    E.EQ17    E.PX5     LBARM     N.TABLE   T.ECT 
                                        NCS       TLV       E.DM10    E.EX1     E.PX8     PAR       N.VD      T.ENTP
                                        CSC       TRV       E.DM12    E.EX2     E.SA      PAREXIT   SAVE      T.EOT 
                                        CMV       WANFP     E.DM13    E.EX3     E.SA1     UBARM     S=CON     T.EQUS
                                        ARGCOMA   E.ANS     E.DM15    E.EX4     E.SA2     VD.EQ     S=ENTRY   T.FPI 
                                        ARGMODE   E.ANS2    E.DM16    E.IN      E.SA3     VD.GP     S=VALUE   T.LCA 
                                        CCT       E.AT16    E.DM19    E.IN1     E.SA4     VD.MI     S=VD      T.PAR 
                                        CT1       E.CM      E.DM20    E.IN2     E.SA5     VD.PL     T=BLKS    T.SYM 
                                        ERT       E.CM1     E.EQ      E.IN3     E.SA6     ERROP     T=COMM    T.TB
                                        ESY       E.CM2     E.EQ1     E.IN4     E.ST      PIX       T=ENTP    T.VDI 
                                        FEC=STF   E.CM3     E.EQ2     E.LV1     E.ST1     PKX       T=ECT     T.VDIM
                                        FEC.RTN   E.CM5     E.EQ3     E.LV2     E.TY      VD.MU     T=EOT     USAVE 
                                        INN       E.CM6     E.EQ4     E.LV3     E.VA09    ANSI=     T=EQUS    WOF 
                                        NCM       E.CM9     E.EQ6     E.LV4     FILL.     PDM       T=FPI     WO.LOM
                                        PARAMC    E.CM10    E.EQ7     E.LV5     FILL.2    BLNKCOM   T=LCA     WO.LCM
                                        PARMODE   E.CM11    E.EQ8     E.LV7     DMT=      CHARDCL   T=PAR     F.INTF
                                        REFVAR    E.CM12    E.EQ10    E.LV8     CO.AL     CONONE    T=SYM     MVE=
                                        SCSA      E.DM00    E.EQ11    E.LV9     CO.DBPM   E=TOTAL   T=VDI 
                                        SCS       E.DM02    E.EQ12    E.MR2     CO.LCM    LEVEL     T=VDIM
                                        SCT       E.DM05    E.EQ13    E.MR3     CO.SNAP   LEVEL2    T.BLKS
  
  
  
  
                                                  IDENT  DECL                                                    DECL        2
                                         DECL     SECT   (DECLARATIVE PHASE STATEMENTS.)                         DECL        3
  
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     2
                                                                      DECL
  
                                        *         IN ALLOC                                                       DECL        5
                                                  EXT    ADW,ADWT,ALC                                            FC50958     9
                                                                                                                 DECL        7
                                        *         IN CONRED                                                      DECL        8
                                                  EXT    GPS,NCS                                                 DECL        9
                                                                                                                 DECL       10
                                        *         IN DATA                                                        DECL       11
                                                  EXT    CSC,CMV                                                 DECL       12
                                                                                                                 DECL       13
                                        *         IN FEC                                                         DECL       14
                                                  EXT    ARGCOMA,ARGMODE,CCT,CT1,ERT,ESY,FEC=STF,FEC.RTN,INN,NCM DECL       15
                                                  EXT    PARAMC,PARMODE,REFVAR,SCSA,SCS,SCT,SLT,SSY,STAGE,STY    FC50570    52
                                                  EXT    TLV,TRV,WANFP                                           FC50570    53
                                                                                                                 DECL       17
                                        *         IN FERRS                                                       DECL       18
                                                  EXT    E.ANS,E.ANS2,E.AT16,E.CM,E.CM1,E.CM2,E.CM3,E.CM5,E.CM6  DECL       19
                                                  EXT    E.CM9,E.CM10,E.CM11,E.CM12,E.DM00,E.DM02,E.DM05,E.DM06  DECL       20
                                                  EXT    E.DM07,E.DM08,E.DM09,E.DM10,E.DM12,E.DM13,E.DM15,E.DM16 DECL       21
                                                  EXT    E.DM19,E.DM20,E.EQ,E.EQ1,E.EQ2,E.EQ3,E.EQ4,E.EQ6,E.EQ7  DECL       22
                                                  EXT    E.EQ8,E.EQ10,E.EQ11,E.EQ12,E.EQ13,E.EQ14,E.EQ15,E.EQ16  DECL       23
                                                  EXT    E.EQ17,E.EX1,E.EX2,E.EX3,E.EX4,E.IN,E.IN1,E.IN2,E.IN3   DECL       24
                                                  EXT    E.IN4,E.LV1,E.LV2,E.LV3,E.LV4,E.LV5,E.LV7,E.LV8,E.LV9   FC5A278     8
                                                  EXT    E.MR2,E.MR3,E.PX2,E.PX3,E.PX4,E.PX5,E.PX8,E.SA,E.SA1    FC5A278     9
                                                  EXT    E.SA2,E.SA3,E.SA4,E.SA5,E.SA6,E.ST,E.ST1,E.TY,E.VA09    FC5A278    10
                                                  EXT    FILL.,FILL.2                                            FC5A278    11
                                                                                                                 DECL       29
                                        *         IN FSNAP                                                       DECL       30
                                                  EXT    DMT=                                                    DECL       31
                                                                                                                 DECL       32
                                        *         IN FTN                                                         DECL       33
                                                  EXT    CO.AL,CO.DBPM,CO.LCM,CO.SNAP,CO.TMLC                    FC5A444   108
                                                                                                                 DECL       35
                                        *         IN LEX                                                         DECL       36
                                                  EXT    TB=TYPE                                                 DECL       37
                                                                                                                 DECL       41
                                        *         IN PAR                                                         DECL       42
                                                  EXT    EMT,LBARM,PAR,PAREXIT,UBARM,VD.EQ,VD.GP,VD.MI,VD.PL     DECL       43
                                                  EXT    ERROP,PIX,PKX,VD.MU                                     DECL       44
                                                                                                                 DECL       45
                                        *         IN PEM                                                         DECL       46
                                                  EXT    ANSI=,PDM                                               DECL       47
                                                                                                                 DECL       48
                                        *         IN PUC                                                         DECL       49
                                                  EXT    BLNKCOM,CHARDCL,CONONE,E=TOTAL,LEVEL,LEVEL2,MOD,N.CPL   FC50773     8
                                                  EXT    N.EPL,N.TABLE,N.VD,SAVE,S=CON,S=ENTRY,S=VALUE,S=VD      FC50773     9
                                                  EXT    T=BLKS,T=COMM,T=ENTP,T=ECT,T=EOT,T=EQUS,T=FPI,T=LCA     FC50773    10
                                                  EXT    T=PAR,T=SYM,T=VDI,T=VDIM,T.BLKS,T.COMM,T.CON,T.DIM      FC50773    11
                                                  EXT    T.ECT,T.ENTP,T.EOT,T.EQUS,T.FPI,T.LCA,T.PAR,T.SYM,T.TB  FC50773    12
                                                  EXT    T.VDI,T.VDIM,USAVE,WOF,WO.LOM,WO.LCM                    FC50773    13
                                                                                                                 DECL       56
                                        *         IN QSKEL/FSKEL                                                 DECL       57
                                                  EXT    F.INTF                                                  DECL       58
                                                                                                                 DECL       59
                                        *         IN UTILITY                                                     DECL       60
                                                  EXT    MVE=                                                    DECL       61
                                                                                                                 DECL       62
             0                    17     DIMI     BSS    2*MAX.DIM+1                                             DECL       63
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     3
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  CMN 
  
                                        **        CMN -  PROCESS "COMMON" STATEMENT.                             DECL       67
                                        *                                                                        DECL       68
                                        *         CONSTRUCTS T.COMM ENTRIES:  FORMAT AS CT. .                    DECL       69
                                        *         FWA(T.COMM) CONTAINS 0 AND IS NEVER USED.                      DECL       70
                                        *         (N.B.  RA[CT.] IS LEFT ZERO FOR *MCA* TO FILL IN LATER)        DECL       71
                                        *                                                                        DECL       72
                                        *         EXIT   TO FRONT END CONTROLLER.                                DECL       73
                                        *                                                                        DECL       74
                                        *         SEE ANSI 8.3                                                   DECL       75
                                                                                                                 DECL       76
                                                                                                                 DECL       77
            17                                    HEREIF COMMON                                                  DECL       78
                                                                                                                 DECL       79
            17  7170000055                        =X7    CR.DEC                                                  DECL       80
                          5170000000 X            SA7    REFVAR      SET REFERENCE TYPE                          DECL       81
            20  5110000000 X                      SA1    BLNKCOM                                                 DECL       82
                          43652                   MX6    CA.BNAML                                                DECL       83
                               63710              SB7    X1          BLANK COMMON BLOCK NUMBER                   DECL       84
            21  56140                             SA1    B4                                                      DECL       85
                     66441                        SB4    B4+B1                                                   DECL       86
                          5160000000 X            SA6    SCSA        SET MASK FOR SCAN ROUTINE *SCS*             DECL       87
            22  5120002557 +                      SA2    =7L                                                     DECL       88
                          6231777766              SB3    X1-O.VAR                                                DECL       89
            23  10622                             BX6    X2          NAME FOR BLANK COMMON                       DECL       90
                     0530000114 +                 NZ     B3,CMN150   IF NOT VAR                                  DECL       91
                               67441              SB4    B4-B1                                                   DECL       92
            24  0400000041 +                      EQ     CMN60                                                   DECL       93
                                                                                                                 DECL       94
                                        *         PROCESS BLOCK NAME.                                            DECL       95
                                                                                                                 DECL       96
            25  56140                    CMN30    SA1    B4                                                      DECL       97
                     0301000000 X                 ZR     X1,E.CM1    IF PREMATURE EOS                            DECL       98
                               66441              SB4    B4+B1                                                   DECL       99
            26  56340                             SA3    B4                                                      DECL      100
                     6271777766                   SB7    X1-O.VAR                                                DECL      101
            27  0570000000 X                      NZ     B7,E.CM5    ILLEGAL BLOCK NAME                          DECL      102
                          6273777766              SB7    X3-O.VAR                                                DECL      103
            30  0570000033 +                      NZ     B7,CMN50    IF NOT LONG NAME                            DECL      104
                          67441                   =B4    B4-1                                                    DECL      105
            31  0100000000 X                      CALL   TLV         TRUNCATE NAME                               DECL      106
            32  66441                             =B4    B4+1                                                    DECL      107
                     56340                        =A3    B4                                                      DECL      108
            33  73210                    CMN50    SX2    X1                                                      DECL      109
                     13612                        BX6    X1-X2                                                   DECL      110
                          6273777760              SB7    X3-O.SLASH                                              DECL      111
            34  0570000000 X                      NZ     B7,E.CM     IF NO SLASH                                 DECL      112
                          66441                   =B4    B4+1                                                    DECL      113
                               43006              MX0    CHAR                                                    DECL      114
            35  20030                             LX0    -MAX.VAR*CHAR+CHAR                                      DECL      115
                     11206                        BX2    X0*X6                                                   DECL      116
                          0302000041 +            ZR     X2,CMN60    IF BLOCK NAME NOT SEVEN CHARACTERS          DECL      117
            36  21222                             AX2    18                                                      DECL      118
                     6222777732                   SB2    X2-1R+                                                  DECL      119
            37  0620000041 +                      PL     B2,CMN60    IF NOT BLANK COMMON                         DECL      120
                          5160000000 X            SA6    FILL.                                                   DECL      121
            40  6170000000 X                      ANSI   E.ANS2                                                  DECL      122
            41  5110000000 X             CMN60    SCAN   T.BLKS,SCS                                              DECL      123
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     4
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  CMN 
  
            42  0770000046 +                      MI     B7,CMN80    IF NOT ALREADY IN TABLE                     DECL      124
                          54321                   =A3    A2-CA.W+CB.W  CBI = CB ENTRY OF T.BLKS                  DECL      125
                               10733              BX7    X3                                                      DECL      126
            43  5140000000 X                      SA4    T=COMM                                                  DECL      127
                          20452                   LX4    CB.FMIP     FMIND = LEN(T.COMM)                         DECL      128
                               20306              HX3    CB.FMI                                                  DECL      129
            44  21360                             AX3    -CB.FMIL    FMI = FMI[CBI]                              DECL      130
                     12774                        BX7    X7+X4                                                   DECL      131
                          0313000057 +            NZ     X3,CMN90    IF FMI .NE. 0                               DECL      132
            45  54730                             SA7    A3          FMI[CBI] = FMIND                            DECL      133
                     0400000057 +                 EQ     CMN90                                                   DECL      134
                                                                                                                 DECL      135
            46  5120000000 X             CMN80    SA2    T=BLKS                                                  DECL      136
                          10566                   BX5    X6          NAME                                        DECL      137
            47  7232776030                        SX3    X2-MAX.BLK*Z=BLKS+1                                     DECL      138
                          0323000000 X            PL     X3,E.CM2    IF TOO MANY BLOCKS                          DECL      139
            50  5110000000 X                      ALLOC  T.BLKS,Z=BLKS                                           DECL      140
            52  5140000000 X                      SA4    T=COMM                                                  DECL      141
                          20452                   LX4    CB.FMIP     FMIND = LEN(T.COMM)                         DECL      142
            53  6272777775                        =B7    X2-Z=BLKS   CBIND = INDEX OF LAST ENTRY                 DECL      143
                          10755                   BX7    X5                                                      DECL      144
                               10644              BX6    X4                                                      DECL      145
            54  53717                             SA7    X1+B7       (BNAM,LMI)[T.BLKS(CBIND)] =(NAME,0) [CA.]   DECL      146
                     54671                        SA6    A7+B1       FMI [T.BLKS(CBIND)+1] = FMIND               DECL      147
                          5120002557 +            SA2    =7L                                                     DECL      148
            55  37525                             IX5    X2-X5                                                   DECL      149
                     0315000057 +                 NZ     X5,CMN90    IF NOT BLANK COMMON                         DECL      150
                               76670              SX6    B7                                                      DECL      151
            56  5160000000 X                      SA6    BLNKCOM     BLANK COMMON BLOCK NUMBER INDICATOR         DECL      152
                                                                                                                 DECL      153
            57  76670                    CMN90    SX6    B7                                                      DECL      154
                     56240                        SA2    B4                                                      DECL      155
                          10566                   BX5    X6                                                      DECL      156
            60  5160000120 +                      SA6    CMNA        SAVE BLOCK INDICATOR                        DECL      157
                                                                                                                 DECL      158
                                        *         PROCESS VARIABLE LIST.                                         DECL      159
                                        *         (A2,X2) = VARIABLE                                             DECL      160
                                        *         (B4) _ VARIABLE                                                DECL      161
                                                                                                                 DECL      162
            61  54121                    CMN100   SA1    A2+B1       FETCH NEXT ELEMENT                          DECL      163
                     6271777766                   SB7    X1-O.VAR                                                DECL      164
                               10622              BX6    X2                                                      DECL      165
            62  0570000064 +                      NZ     B7,CMN110   IF NOT LONG NAME                            DECL      166
                          0100000000 X            CALL   TLV         TRUNCATE NAME                               DECL      167
            63  56141                             =A1    B4+1                                                    DECL      168
            64  7211777740               CMN110   SX1    X1-O.(                                                  DECL      169
                          5160000000 X            SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE        DECL      170
            65  0311000072 +                      NZ     X1,CMN120   IF NO LPAREN                                DECL      171
                          0100000136 +            RJ     DIR                                                     DECL      172
            66  5150000120 +                      SA5    CMNA        RETRIEVE BLOCK INDICATOR                    DECL      173
                          5130000205 +            SA3    DIRS                                                    DECL      174
            67  0306000107 +                      ZR     X6,CMN140   IF ERROR IN DIMS                            DECL      175
                          10033                   BX0    X3                                                      DECL      176
            70  0100000000 X                      CALL   CT1         CONSTRUCT PASS 1 TAG FORM                   DECL      177
            71  0400000074 +                      EQ     CMN130                                                  DECL      178
                                                                                                                 DECL      179
            72  6120000000               CMN120   SB2    0           ENTRY (VALUE.) NOT ALLOWED                  DECL      180
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     5
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  CMN 
  
                          0100000000 X            CALL   TRV         TRANSLATE VARIABLE                          DECL      181
            73  0330000107 +                      MI     X0,CMN140   IF TRV DETECTED ERROR                       DECL      182
            74  7110000017               CMN130   =X1    WB.COMP                                                 DECL      183
                          5130002560 +            CLAS=  X3,WB,(FP,DEXT,EXT,ENT,NLST,COM,PARM)                   DECL      184
            75  0100000000 X                      RJ     CCT         CHECK CONFLICTING CLASSES                   DECL      185
            76  0330000107 +                      MI     X0,CMN140   IF USAGE CONFLICT                           DECL      186
                          5140002561 +            CLAS=  X4,WB,(COM,DEF,VAR,MAT)                                 DECL      187
            77  54321                             =A3    A2-WB.W+WC.W                                            DECL      188
                     20336                        HX3    WC.CTYP                                                 DECL      189
                          12742                   BX7    X4+X2       MERGE NEW PROPERTY BITS                     DECL      190
                               20052              LX0    CT.TAGP                                                 DECL      191
           100  0333000107 +                      MI     X3,CMN140   IF WC.CTYP .EQ. 1                           DECL      192
                          54720                   SA7    A2          UPDATE SYMTAB (WB)                          DECL      193
                               10600              BX6    X0          CREATE (T.COMM) ENTRY                       DECL      194
           101  5110000000 X                      ADDWD  T.COMM      ADVANCE TABLE ORGIN                         DECL      195
           102  5140000000 X                      SA4    T.BLKS                                                  DECL      196
                          7272777776              SX7    X2-1        COMIND = (T=COMM) - 1                       DECL      197
           103  43060                             MX0    -CA.LMIL                                                DECL      198
                     36445                        IX4    X4+X5       RBAD = RBI + FWA(T.BLKS)                    DECL      199
                          53440                   =A4    X4+CA.W     CAI = T.BLKS(RBAD)+CA.W                     DECL      200
                                                  LX4    -CA.LMIP                                                DECL      201
                               15640              BX6    -X0*X4      LMI = LMI[CAI]                              DECL      202
           104  11404                             BX4    X0*X4                                                   DECL      203
                     36616                        IX6    X1+X6                                                   DECL      204
                          20730                   LX7    CT.LNKP                                                 DECL      205
                               53160              SA1    X6          CTI = T.COMM(LMI)                           DECL      206
           105  12671                             BX6    X7+X1                                                   DECL      207
                     20744                        LX7    CA.LMIP-CT.LNKP                                         DECL      208
                          12774                   BX7    X7+X4                                                   DECL      209
                                                  LX7    CA.LMIP                                                 DECL      210
                               54610              SA6    A1          LNK[CTI] = COMIND                           DECL      211
           106  54740                             SA7    A4          LMI[CAI] = COMIND                           DECL      212
           107  56141                    CMN140   SA1    B4+B1                                                   DECL      213
                     64411                        SB4    A1+B1       B4 = B4+2                                   DECL      214
                          56240                   SA2    B4          LOOK AHEAD                                  DECL      215
           110  6222777766                        =B2    X2-O.VAR                                                DECL      216
                          7231777735              =X3    X1-O.COMMA                                              DECL      217
                                   0              ERRNZ  O.EOS                                                   DECL      218
           111  0301000000 X                      ZR     X1,FEC.RTN  IF *EOS*                                    DECL      219
                          0313000114 +            NZ     X3,CMN150   IF NOT COMMA                                DECL      220
                                                                                                                 DECL      221
                                        *         COMMA, MUST FOLLOWED BY A VARIABLE, SLASH OR BLANK COMMON.     DECL      222
                                                                                                                 DECL      223
           112  0420000061 +                      EQ     B2,CMN100   IF VARIABLE                                 DECL      224
                          0302000000 X            ZR     X2,E.CM6          IF PREMATURE *EOS*                    DECL      225
           113  54120                             SA1    A2          IGNORE THIS COMMA                           DECL      226
                     66441                        SB4    B4+B1                                                   DECL      227
           114  6221777760               CMN150   SB2    X1-O.SLASH                                              DECL      228
                          7231777741              SX3    X1-O.CAT                                                DECL      229
           115  0420000025 +                      ZR     B2,CMN30    IF SLASH                                    DECL      230
                          0313000000 X            NZ     X3,E.CM3    IF NOT //                                   DECL      231
           116  5120002557 +                      SA2    =7L                                                     DECL      232
                          10622                   BX6    X2                                                      DECL      233
           117  0400000041 +                      EQ     CMN60                                                   DECL      234
                                                                                                                 DECL      235
           120                     1     CMNA     BSS    1           HOLDS BLOCK NUMBER                          DECL      236
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     6
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIM 
  
                                        **        DIM -  PROCESS "DIMENSION" DECLARATION.                        DECL      240
                                        *                                                                        DECL      241
                                        *         EXIT   TO FRONT END CONTROLLER.                                DECL      242
                                        *                                                                        DECL      243
                                        *         SEE ANSI 8.1                                                   DECL      244
                                                                                                                 DECL      245
                                                                                                                 DECL      246
           121                                    HEREIF DIMENSION                                               DECL      247
                                                                                                                 DECL      248
           121  7160000055                        =X6    CR.DEC                                                  DECL      249
                          5160000000 X            SA6    REFVAR      SET REFERENCE TYPE                          DECL      250
                                                                                                                 DECL      251
           122  0100000136 +             DIM1     RJ     DIR         PROCESS DIMENSIONED VARIABLE                DECL      252
           123  56141                             SA1    B4+B1                                                   DECL      253
                     64411                        SB4    A1+B1       (B4) = (B4) + 2                             DECL      254
                          7221777735              SX2    X1-O.COMMA                                              DECL      255
           124  0302000122 +                      ZR     X2,DIM1     IF *,*                                      DECL      256
                          0301000000 X            ZR     X1,FEC.RTN  IF *EOS*                                    DECL      257
                                   0              ERRNZ  O.EOS                                                   DECL      258
           125  67441                             =B4    B4-1                                                    DECL      259
                     6170000000 X                 FATAL  E.TY                                                    DECL      260
           127  66441                             =B4    B4+1                                                    DECL      261
                     0400000000 X                 EQ     FEC.RTN                                                 DECL      262
  
  
  
  
                                        **        DIR -  PROCESS DIMENSIONED VARIABLE.                           DECL      264
                                        *                                                                        DECL      265
                                        *         ENTRY  (B4) _ VARIABLE NAME IN *SB*.  LPAREN EXPECTED AS NEXT  DECL      266
                                        *                            CHARACTER.                                  DECL      267
                                        *                                                                        DECL      268
                                        *         EXIT   (B4) _ TERMINAL *)*, OR *EOS*-1.                        DECL      269
                                        *                (X6) = *WB* ENTRY (ZERO IF ERROR)                       DECL      270
                                        *                (DIRS) = ORDINAL OF SYMTAB ENTRY.                       DECL      271
                                        *                DIMENSIONING INFORMATION ENTERED INTO T.DIM AND         DECL      272
                                        *                POINTER ENTERED INTO *WB.PNTP*                          DECL      273
                                        *                                                                        DECL      274
                                        *         CALLS  DIS, TRV.                                               DECL      275
                                        *                                                                        DECL      276
                                        *         USES   ALL REGISTERS.                                          DECL      277
                                                                                                                 DECL      278
                                                                                                                 DECL      279
                                        **        HERE WHEN A SYNTAX ERROR IS FOUND -- SEARCHES FOR NEXT *)* IN  DECL      280
                                        *                ATTEMPT TO RECOVER SO THAT REST OF STATEMENT MAY BE     DECL      281
                                        *                PROCESSED.                                              DECL      282
                                                                                                                 DECL      283
           130  0100000000 X             DIR6     FATAL  B7          OUTPUT DIAGNOSTIC                           DECL      284
           131  0222000000                        JP     B2          SKIP PROPERLY                               DECL      285
                                                                                                                 DECL      286
           132  66441                    DIR7     =B4    B4+1                                                    DECL      287
                                                                                                                 FC50438    10
           133                           DIR8     BSS    0                                                       DECL      288
           133  56140                             SA1    B4                                                      DECL      289
                     0301000000 X                 ZR     X1,E.DM10   IF *EOS* -- ERROR                           DECL      290
           134  7211777737                        SX1    X1-O.)                                                  DECL      291
                          0311000132 +            NZ     X1,DIR7     ADVANCE TO NEXT RIGHT PAREN                 DECL      292
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     7
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIR 
  
                                                                                                                 FC50438    11
           135  13666                    DIR9     BX6    0                                                       DECL      293
                                                                                                                 DECL      294
           136  0400400136 +             DIR      SUBR   =           ...ENTRY/EXIT...                            DECL      295
           137  56440                             SA4    B4                                                      DECL      296
                     0304000000 X                 ZR     X4,E.DM16   IF *EOS*                                    DECL      297
                               10644              BX6    X4                                                      DECL      298
           140  6120000000                        SB2    0           ENTRY (VALUE.) NOT ALLOWED                  DECL      299
                          0100000000 X            CALL   TRV         TRANSLATE VARIABLE                          DECL      300
           141  0330000133 +                      MI     X0,DIR8     IF TRV DETECTED ERROR                       DECL      301
                          5130002562 +            CLAS=  X3,WB,(NVAR,NLST,DEXT,ENT,PARM,EXT)                     DECL      302
           142  7110000012                        =X1    WB.ARYP                                                 DECL      303
                          0100000000 X            CALL   CCT         CHECK FOR CONFLICTING CLASS                 DECL      304
           143  0330000133 +                      MI     X0,DIR8     IF CLASS CONFLICT                           DECL      305
                          10700                   BX7    X0                                                      DECL      306
                               20261              SBIT   X2,WB.ARYP                                              DECL      307
           144  5170000205 +                      SA7    DIRS                                                    DECL      308
                          76770                   SX7    B7                                                      DECL      309
           145  5170000206 +                      SA7    DIRT        SAVE WB INDEX OF SYMTAB ENTRY               DECL      310
                          13777                   BX7    0                                                       DECL      311
           146  0322000150 +                      PL     X2,DIR1     IF NOT ALREADY AN ARRAY                     DECL      312
                          10722                   BX7    X2                                                      DECL      313
                               20713              LX7    WB.ARYP+1   RESTORE *WB* ENTRY                          DECL      314
           147  6170000000 X                      FATAL  E.DM09      PREVIOUS DIMENSIONALITY HOLDS               FC5A126    33
                                                                                                                 FC50438    12
           150  5170000207 +             DIR1     SA7    DIRI        SET PREVIOUSLY DIMENSIONED FLAG             DECL      316
                          20213                   LX2    1+WB.ARYP   RESTORE (X2)                                DECL      317
           151  7130002040                        CLAS=  X3,WB,(ARY,VAR)                                         DECL      318
                          12623                   BX6    X2+X3                                                   DECL      319
                               54620              SA6    A2          UPDATE SYMBOL TABLE (WB)                    DECL      320
                                                                                                                 DECL      321
                                        **        PROCESS DIMENSION ARGUMENTS                                    DECL      322
                                                                                                                 DECL      323
           152  56141                             SA1    B4+B1       FETCH SEPARATOR                             DECL      324
                     6120000135 +                 SB2    DIR9                                                    DECL      325
           153  6170000000 X                      SB7    E.DM05                                                  DECL      326
                          0301000130 +            ZR     X1,DIR6     IF *EOS*                                    DECL      327
           154  7221777735                        SX2    X1-O.COMMA                                              DECL      328
                          7261000003              SX6    X1-O.(+O.COMMA                                          DECL      329
           155  6231777740                        SB3    X1-O.(                                                  DECL      330
                          0302000130 +            ZR     X2,DIR6     IF COMMA                                    DECL      331
           156  6120000133 +                      SB2    DIR8                                                    DECL      332
                          6170000000 X            SB7    E.DM00                                                  DECL      333
           157  0530000130 +                      NZ     B3,DIR6     IF NOT LEFT PAREN                           DECL      334
                          5120000210 +            SA2    DIR.HEAD                                                DECL      335
           160  54610                             SA6    A1          FAKE UP A COMMA FOR *DIS*                   DECL      336
                     22702                        LX7    X2                                                      DECL      337
                          5170000000 +            SA7    DIMI        INITIALIZE HEADER WORD                      DECL      338
           161  64570                             SB5    A7          READY TO INCREMENT FOR DIMENSIONS           DECL      339
                     0100000211 +                 RJ     DIS                                                     DECL      340
           162  6120000133 +                      SB2    DIR8                                                    DECL      341
                          0570000130 +            NZ     B7,DIR6     IF ERROR                                    DECL      342
           163  5130000000 +                      SA3    DIMI                                                    DECL      343
                          5120000000 X            SA2    CO.DBPM                                                 DECL      344
           164  43400                             MX4    0                                                       DECL      345
                     20301                        SBIT   X3,DH.ASP                                               DECL      346
                          0323000170 +            PL     X3,DIR3     IF NOT ASSUMED SIZE ARRAY                   DECL      347
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     8
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIR 
  
           165  43401                             CLAS=  X4,WB,(VDS) MARK FORMAL PARAMETER REQUIRED              DECL      348
                          20373                   LX3    DH.ASL+DH.ASP                                           DECL      349
           166  0302000175 +                      ZR     X2,DIR5     IF PMD NOT ON                               DECL      350
                          43601                   CLAS=  X6,DH,(MAT)                                             DECL      351
           167  12636                             BX6    X3+X6       PMD REQUIRES MATERIALIZE                    DECL      352
                     54630                        SA6    A3                                                      DECL      353
                          0400000175 +            EQ     DIR5                                                    DECL      354
                                                                                                                 DECL      355
           170  20373                    DIR3     SBIT   X3,DH.VDP/DH.ASP                                        DECL      356
                     0323000175 +                 PL     X3,DIR5     IF NOT ADJUSTABLY DIMENSIONED               DECL      357
                                                  LX3    DH.VDL+DH.VDP                                           DECL      358
           171  0302000173 +                      ZR     X2,DIR4     IF PMD NOT ON                               DECL      359
                          43601                   CLAS=  X6,DH,(MAT)                                             DECL      360
           172  12636                             BX6    X3+X6       PMD REQUIRES MATERIALIZE                    DECL      361
                     54630                        SA6    A3                                                      DECL      362
                                                                                                                 FC50438    13
           173  0100000471 +             DIR4     RJ     OVP         OUTPUT VARIABLE PRODUCT OF SPANS            DECL      363
           174  43401                             CLAS=  X4,WB,(VDS) MARK FORMAL PARAMETER REQUIRED              DECL      364
                                                                                                                 DECL      365
           175  5110000207 +             DIR5     SA1    DIRI                                                    DECL      366
                          7160000000              SX6    0           ERROR INDICATION                            DECL      367
           176  0311000136 +                      NZ     X1,EXIT.    IF PREVIOUSLY DIMENSIONED                   DECL      368
                          6120000000 +            SB2    DIMI        FWA OF DIMENSION DESCRIPTORS                DECL      369
           177  6135000001                        SB3    B5+1        LWA+1                                       DECL      370
                          66700                   =B7    0                                                       DECL      371
           200  0100000326 +                      RJ     EDD         ENTER DIMENSION DESCRIPTOR INTO T.DIM       FC50958    10
           201  5110000000 X                      SA1    T.SYM       IN CASE TABLES MOVED                        DECL      373
                          5120000206 +            SA2    DIRT                                                    DECL      374
           202  36312                             IX3    X1+X2                                                   DECL      375
                     53530                        SA5    X3          REFETCH *WB* ENTRY                          DECL      376
                          20657                   LX6    WB.PNTP                                                 DECL      377
                               12656              BX6    X5+X6                                                   DECL      378
           203  53630                             SA6    X3          INSERT DIM TABLE POINTER                    DECL      379
                     20553                        SBIT   X5,WB.FPP                                               DECL      380
                          0335000136 +            MI     X5,EXIT.    IF FORMAL PARAMETER                         DECL      381
           204  12664                             BX6    X6+X4       MARK FORMAL PARAMETER REQUIRED, AS NEEDED   DECL      382
                     54660                        SA6    A6                                                      DECL      383
                          0400000136 +            EQ     EXIT.                                                   DECL      384
                                                                                                                 DECL      385
           205                     1     DIRS     BSS    1           RETURN ORDINAL OF SYMTAB ENTRY              DECL      386
           206                     1     DIRT     BSSENT 1           TEMP HOLDING OF SYMTAB *WB* INDEX           FC50438    14
           207                     1     DIRI     BSS    1           PREVIOUSLY DIMENSIONED FLAG                 DECL      388
           210  00000000010000000000     DIR.HEAD VFD    DH.ATTRL/0,DH.PSL/1,DH.RAL/0,DH.DIML/0                  DECL      389
  
  
  
  
                                        **        DIS -  ASSEMBLE DIMENSION SUBSCRIPT.                           DECL      391
                                        *                                                                        DECL      392
                                        *         ASSEMBLES DIMENSION DESCRIPTORS INTO A SAVE BUFFER.            DECL      393
                                        *                                                                        DECL      394
                                        *         ENTRY  (B4)+1 _ SUBSCRIPT ENTRY.                               DECL      395
                                        *                (B5) = FIRST D2. SAVE LOCATION TO INCREMENT             DECL      396
                                        *                                                                        DECL      397
                                        *         EXIT   (B4) _ *)* OR *EOS* WHICH CAUSED *DIS* TO QUIT          DECL      398
                                        *                                                                        DECL      399
                                        *                IF NO ERROR...                                          DECL      400
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE     9
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIS 
  
                                        *                (B7) = 0                                                DECL      401
                                        *                (B5) = LWA OF STORED DIMENSION DESCRIPTORS              DECL      402
                                        *                                                                        DECL      403
                                        *                IF ERROR...                                             DECL      404
                                        *                (B7) = DIAGNOSTIC ADDRESS                               DECL      405
                                        *                (B5) = UNDEFINED                                        DECL      406
                                        *                                                                        DECL      407
                                        *         USES   ALL BUT A0                                              DECL      408
                                        *                                                                        DECL      409
                                        *         CALLS  CDB, NCS, OVS, OVT                                      DECL      410
                                                                                                                 DECL      411
                                                                                                                 DECL      412
           211  0400400211 +             DIS      SUBR               ...ENTRY/EXIT...                            DECL      413
           212  5110000000 +             DIS1     SA1    DIMI        FETCH HEADER                                DECL      414
                          6120000033              SB2    1R0                                                     DECL      415
           213  43666                             MX6    -DH.DIML                                                DECL      416
                                                  LX1    -DH.DIMP                                                DECL      417
                     15616                        BX6    -X6*X1      EXTRACT DIMENSION COUNT                     DECL      418
                          73661                   =X6    X6+1        INCREMENT FOR THE UPCOMING DIMENSION        DECL      419
                               73662              SX6    X6+B2       CONVERT TO DPC                              DECL      420
                                  -3              ERRPL  MAX.DIM-10  CODE WORKS FOR ONLY ONE DIGIT               DECL      421
           214  20666                             LX6    9*CHAR      HIGH ORDER                                  DECL      422
                     5160000000 X                 SA6    FILL.2      SAVE FOR POSSIBLE ERROR                     DECL      423
                               66700              =B7    0                                                       DECL      424
           215  56141                             SA1    B4+B1       FETCH SEPARATOR                             DECL      425
                     66441                        SB4    B4+B1                                                   DECL      426
                          7221777737              SX2    X1-O.)                                                  DECL      427
           216  0301000000 X                      ZR     X1,E.MR2    IF *EOS*, ERR..                             DECL      428
                          6231777735              SB3    X1-O.COMMA                                              DECL      429
           217  0302000211 +                      ZR     X2,EXIT.    IF *RP*, EXIT                               DECL      430
                          0430000221 +            ZR     B3,DIS3     IF COMMA                                    DECL      431
           220  6170000000 X                      SB7    E.DM15                                                  DECL      432
                          0400000211 +            EQ     EXIT.                                                   DECL      433
                                                                                                                 DECL      434
           221  5124000001               DIS3     SA2    B4+1                                                    DECL      435
                          66441                   =B4    B4+1                                                    DECL      436
                               73620              SX6    X2                                                      DECL      437
           222  6170000000 X                      SB7    E.DM00                                                  DECL      438
                          0302000211 +            ZR     X2,EXIT.    IF *EOS*                                    DECL      439
           223  6155000002                        SB5    B5+Z=DD     INCREMENT DIMENSION SAVE POINTER            DECL      440
                          76110                   =X1    1                                                       DECL      441
                               20136              LX1    D2.LBP      DEFAULT LOWER BOUND                         DECL      442
           224  6232777761                        SB3    X2-O.STAR                                               DECL      443
                          0430000306 +            ZR     B3,DIS30    IF ASSUMED SIZE ARRAY                       DECL      444
           225  6232777737                        SB3    X2-O.)                                                  FC51422     6
                          0430000211 +            ZR     B3,EXIT.    IF O.) ERROR                                FC51422     7
           226  5130000000 X                      SA3    LBARM                                                   DECL      445
                          0100000371 +            RJ     CDB         COMPILE DIMENSION BOUND                     DECL      446
           227  0570000211 +                      NZ     B7,EXIT.    IF ERROR, EXIT...                           DECL      447
                          56141                   =A1    B4+1        FETCH SEPARATOR                             DECL      448
           230  6231777734                        SB3    X1-O.COLON                                              DECL      449
                          76110                   =X1    1                                                       DECL      450
                               20136              LX1    D2.LBP      DEFAULT LOWER BOUND                         DECL      451
           231  0530000237 +                      NZ     B3,DIS5     IF NOT COLON, NO LOWER BOUND                DECL      452
                                                                                                                 DECL      453
                                        *         SAVE EXPLICIT LOWER BOUND, PROCESS UPPER BOUND                 DECL      454
                                        *                (X5) = EXPLICIT LOWER BOUND (DI. FORMAT)                DECL      455
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    10
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIS 
  
                                                                                                                 DECL      456
                          20536                   LX5    D2.LBP      CURRENT BOUND WAS LOWER BOUND               DECL      457
                               10655              BX6    X5                                                      DECL      458
           232  5160000325 +                      SA6    DIS.LB      SAVE LOWER BOUND                            DECL      459
                          5130000000 X            SA3    UBARM                                                   DECL      460
           233  6144000002                        =B4    B4+2        POINT TO UB                                 DECL      461
                          56240                   SA2    B4                                                      DECL      462
                               22106              LX1    X6                                                      DECL      463
           234  6232777761                        SB3    X2-O.STAR                                               DECL      464
                          0430000306 +            ZR     B3,DIS30    IF ASSUMED SIZE ARRAY                       DECL      465
           235  0100000371 +                      RJ     CDB         COMPILE DIMENSION BOUND                     DECL      466
           236  0570000211 +                      NZ     B7,EXIT.    IF ERROR, EXIT...                           DECL      467
                          5110000325 +            SA1    DIS.LB                                                  DECL      468
                                                                                                                 DECL      469
                                        *         PROCESS DIMENSION BOUND PAIR                                   DECL      470
                                        *                (X1) = LOWER BOUND (D2. FORMAT)                         DECL      471
                                        *                (X5) = UPPER BOUND (D2. FORMAT)                         DECL      472
                                                                                                                 DECL      473
           237  12615                    DIS5     BX6    X1+X5       LB + UB = D2.                               DECL      474
                     5110000000 +                 SA1    DIMI        FETCH HEADER ENTRY                          DECL      475
                               76710              =X7    1                                                       DECL      476
                                                  LX7    DH.DIMP                                                 FC5A274     5
           240  36717                             IX7    X1+X7       INCREMENT NUMBER OF DIMENSIONS              DECL      477
                     43066                        MX0    -DH.DIML                                                DECL      479
                          7120000007              SX2    MAX.DIM                                                 DECL      480
           241  15070                             BX0    -X0*X7      ISOLATE DIMENSIONALITY                      DECL      481
                     37220                        IX2    X2-X0                                                   DECL      482
                          6170000000 X            SB7    E.DM06                                                  DECL      483
           242  0332000211 +                      MI     X2,EXIT.    IF DIMENSIONALITY EXCEEDED                  DECL      484
                          54710                   SA7    A1          HEADER ENTRY                                DECL      485
                               56650              SA6    B5          *D2* ENTRY                                  DECL      486
                                                                                                                 DECL      487
                                        *         DETERMINE DIMENSION SPAN                                       DECL      488
                                                                                                                 DECL      489
           243  10166                             BX1    X6                                                      DECL      490
                     22206                        LX2    X6                                                      DECL      491
                          20236                   HX2    D2.UB                                                   DECL      492
           244  0336000264 +                      MI     X6,DIS20    IF LOWER BOUND VARIABLE                     DECL      493
                          20106                   LX1    -DM.INFL-DM.INFP+D2.LBL                                 FC5A231    79
                               21144              AX1    -DM.INFL    (X1) = LOWER BOUND (CONSTANT)               FC5A231    80
           245  0332000251 +                      MI     X2,DIS10    IF UPPER BOUND VARIABLE                     DECL      496
                          20206                   LX2    -DM.INFL-DM.INFP+D2.UBL                                 FC5A231    81
                               21244              AX2    -DM.INFL    (X2) = UPPER BOUND (CONSTANT)               FC5A231    82
           246  37721                             IX7    X2-X1                                                   DECL      499
                     6170000000 X                 SB7    E.DM02                                                  DECL      500
           247  0337000211 +                      MI     X7,EXIT.    IF LB .GT. UB                               DECL      501
                          76610                   =X6    1                                                       DECL      502
                               36776              IX7    X7+X6                                                   DECL      503
                                                  LX7    D1.SPANP                                                DECL      504
           250  5076777776                        SA7    A6-D2.W+D1.W                                            DECL      505
                          0400000320 +            EQ     DIS40                                                   DECL      506
                                                                                                                 DECL      507
                                        *         UPPER BOUND VARIABLE, LOWER BOUND CONSTANT                     DECL      508
                                                                                                                 DECL      509
           251  76010                    DIS10    =X0    1                                                       DECL      510
                     37001                        IX0    X0-X1                                                   DECL      511
                          0310000254 +            NZ     X0,DIS15    IF LB " 1                                   DECL      512
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    11
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIS 
  
           252  43036                             MX0    -D1.SPANL                                               DECL      513
                     20236                        LX2    D1.SPANL                                                DECL      514
                          15720                   BX7    -X0*X2      SPAN = UB                                   DECL      515
                                   0              ERRNZ  D1.SPANL-D2.UBL+D1.SPANP-D2.UBP                         DECL      516
                               55761              =A7    A6-D2.W+D1.W                                            DECL      517
           253  0400000212 +                      EQ     DIS1                                                    DECL      518
                                                                                                                 DECL      519
                                        *         UPPER BOUND VARIABLE, LOWER BOUND CONSTANT " 1                 DECL      520
                                        *         MUST MANUFACTURE VD. ENTRY FOR SPAN                            DECL      521
                                        *                (X0) = 1 - LOWER BOUND                                  DECL      522
                                        *                (X2) = UPPER BOUND (SHIFTED HIGH ORDER)                 DECL      523
                                                                                                                 DECL      524
           254  5130000000 X             DIS15    SA3    T.VDI                                                   DECL      525
                          20206                   LX2    -DM.INFL-DM.INFP+D2.UBL                                 FC5A231    83
                               21244              AX2    -DM.INFL    (X2) = UPPER BOUND (VD. INDEX)              FC5A231    84
           255  36232                             IX2    X3+X2                                                   DECL      528
                     53420                        SA4    X2          FETCH VD. INFORMATION                       DECL      529
                          20406                   HX4    VD.IND                                                  DECL      530
                               21452              AX4    -VD.INDL    EXTRACT STORE OPERAND INDEX                 DECL      531
           256  5130000000 X                      SA3    T.VDIM                                                  DECL      532
                          36434                   IX4    X3+X4                                                   DECL      533
                               53440              SA4    X4          FETCH VD. STORE OPERAND                     DECL      534
           257  76711                             =X7    M.INT                                                   DECL      535
                     22600                        LX6    X0          CONSTANT                                    DECL      536
                          0100000000 X            CALL   NCS         ENTER THE CONSTANT                          DECL      537
           260  10566                             BX5    X6                                                      DECL      538
                     6130000000 X                 SB3    VD.PL                                                   DECL      539
           261  0100000624 +                      RJ     OVT         OUTPUT VARDIM TURPLE                        DECL      540
           262  0100000540 +                      RJ     OVS         OUTPUT VARDIM STORE                         DECL      541
           263  5175777776                        SA7    B5-D2.W+D1.W                                            DECL      542
                          0400000212 +            EQ     DIS1                                                    DECL      543
                                                                                                                 DECL      544
                                        *         LOWER BOUND VARIABLE                                           DECL      545
                                        *         MUST MANUFACTURE VD. ENTRY FOR SPAN                            DECL      546
                                        *                (X1) = LOWER BOUND (HIGH ORDER)                         DECL      547
                                        *                (X2) = UPPER BOUND (SHIFTED HIGH ORDER)                 DECL      548
                                                                                                                 DECL      549
           264  5130000000 X             DIS20    SA3    T.VDI                                                   DECL      550
                          20106                   LX1    -DM.INFL-DM.INFP+D2.LBL                                 FC5A231    85
                               21144              AX1    -DM.INFL    EXTRACT VD. INDEX                           FC5A231    86
           265  36131                             IX1    X3+X1                                                   DECL      553
                     53510                        SA5    X1          FETCH VD. INFORMATION                       DECL      554
                          20506                   HX5    VD.IND                                                  DECL      555
                               21552              AX5    -VD.INDL    EXTRACT STORE OPERAND INDEX                 DECL      556
           266  5130000000 X                      SA3    T.VDIM                                                  DECL      557
                          36535                   IX5    X3+X5                                                   DECL      558
                               53550              SA5    X5          FETCH VD. STORE OPERAND                     DECL      559
           267  0332000276 +                      MI     X2,DIS25    IF UPPER BOUND VARIABLE                     DECL      560
                          20206                   LX2    -DM.INFL-DM.INFP+D2.UBL                                 FC5A231    87
                               76010              =X0    1                                                       DECL      562
           270  21244                             AX2    -DM.INFL    EXTRACT (SIGN EXTEND) CONSTANT              FC5A231    88
                     36620                        IX6    X2+X0                                                   DECL      564
                          76711                   =X7    M.INT                                                   DECL      565
           271  0100000000 X                      CALL   NCS         ENTER THE CONSTANT                          DECL      566
           272  22406                             LX4    X6                                                      DECL      567
                     6130000000 X                 SB3    VD.MI                                                   DECL      568
           273  0100000624 +                      RJ     OVT         OUTPUT VARDIM TURPLE                        DECL      569
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    12
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIS 
  
           274  0100000540 +                      RJ     OVS         OUTPUT VARDIM STORE TURPLE                  DECL      570
           275  5175777776                        SA7    B5-D2.W+D1.W                                            DECL      571
                          0400000212 +            EQ     DIS1                                                    DECL      572
                                                                                                                 DECL      573
           276  5130000000 X             DIS25    SA3    T.VDI                                                   DECL      574
                          20206                   LX2    -DM.INFL-DM.INFP+D2.UBL                                 FC5A231    89
                               21244              AX2    -DM.INFL    EXTRACT VD. INDEX                           FC5A231    90
           277  36232                             IX2    X3+X2                                                   DECL      577
                     53420                        SA4    X2          FETCH VD. INFORMATION                       DECL      578
                          20406                   HX4    VD.IND                                                  DECL      579
                               21452              AX4    -VD.INDL    EXTRACT STORE OPERAND INDEX                 DECL      580
           300  5130000000 X                      SA3    T.VDIM                                                  DECL      581
                          36434                   IX4    X3+X4                                                   DECL      582
                               53440              SA4    X4          FETCH VD. STORE OPERAND                     DECL      583
           301  6130000000 X                      SB3    VD.MI                                                   DECL      584
                          0100000624 +            RJ     OVT         OUTPUT VD.MI TURPLE                         DECL      585
           302  5150000000 X                      SA5    CONONE                                                  DECL      586
                          6130000000 X            SB3    VD.PL                                                   DECL      587
           303  0100000624 +                      RJ     OVT         OUTPUT VD.PL TURPLE                         DECL      588
           304  0100000540 +                      RJ     OVS         OUTPUT VD.EQ TURPLE                         DECL      589
           305  5175777776                        SA7    B5-D2.W+D1.W                                            DECL      590
                          0400000212 +            EQ     DIS1                                                    DECL      591
                                                                                                                 DECL      592
                                        *         PROCESS ASSUMED SIZE ARRAY                                     DECL      593
                                        *                (X1) = LOWER BOUND (D2. FORMAT)                         DECL      594
                                        *                (B4) _ * IN *TB*                                        DECL      595
                                                                                                                 DECL      596
           306  56241                    DIS30    =A2    B4+1                                                    DECL      597
                     76710                        =X7    1                                                       DECL      598
                                                  LX7    DH.DIMP                                                 FC5A274     6
                          6232777737              SB3    X2-O.RP                                                 DECL      599
           307  6170000000 X                      SB7    E.DM13                                                  DECL      600
                          0530000211 +            NZ     B3,EXIT.    IF NOT *)* FOLLOWING, ERROR                 DECL      601
           310  5120000000 +                      SA2    DIMI        FETCH HEADER ENTRY                          DECL      602
                          36227                   IX2    X2+X7       INCREMENT NUMBER OF DIMENSIONS              DECL      603
                               43066              MX0    -DH.DIML                                                FC5A274     7
                                                  LX2    -DH.DIMP                                                FC5A274     8
           311  15020                             BX0    -X0*X2      EXTRACT NUMBER OF DIMENSIONS                FC5A274     9
                                                  LX2    DH.DIMP                                                 FC5A274    10
                     6170000000 X                 SB7    E.DM06                                                  FC5A274    11
           312  6230777767                        SB3    X0-MAX.DIM-1                                            FC5A274    12
                          0630000211 +            PL     B3,EXIT.    IF MAXIMUM DIMENSIONALITY EXCEEDED          FC5A274    13
           313  43701                             CLAS=  X7,DH,(AS)                                              DECL      604
                          12727                   BX7    X2+X7       ADD IN ASSUMED BIT                          DECL      605
                               43044              MX0    -DH.PSL                                                 DECL      606
           314  20036                             LX0    DH.PSP                                                  DECL      607
                     11707                        BX7    X0*X7       PRODUCT OF SPANS = 0.                       DECL      608
                          54720                   SA7    A2          UPDATE HEADER                               DECL      609
           315  5120002563 +                      SA2    =37777777B  INDICATE UPPER BOUND IS ASSUMED             DECL      610
                          12612                   BX6    X1+X2                                                   DECL      611
                               56650              SA6    B5          *D2* = LB + ASSUMED (MAXIMUM +) UB          DECL      612
           316  22702                             LX7    X2          SPAN IS ASSUMED (MAXIMUM +)                 DECL      613
                     5076777776                   SA7    A6-D2.W+D1.W                                            DECL      614
           317  0400000212 +                      EQ     DIS1        FINISH PROCESSING                           DECL      615
                                                                                                                 DECL      616
                                        *         UPDATE PRODUCT OF SPANS (CURRENT SPAN CONSTANT)                DECL      617
                                        *                (X7) = SPAN                                             DECL      618
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    13
        *DIMENSION* AND ARRAY DECLARATIONS.                           DIS 
  
                                                                                                                 DECL      619
           320  5110000000 +             DIS40    SA1    DIMI        FETCH HEADER ENTRY                          DECL      620
                          43044                   MX0    -DH.PSL                                                 DECL      621
                               20136              LX1    -DH.PSP                                                 DECL      622
           321  15210                             BX2    -X0*X1      ISOLATE SIZE                                DECL      623
                     42227                        IX2    X2*X7       MULTIPLY TIMES CURRENT SPAN                 DECL      624
                          11110                   BX1    X1*X0       CLEAR OLD SIZE                              DECL      625
                               36712              IX7    X1+X2       INSERT NEW SIZE                             DECL      626
           322  20736                             LX7    DH.PSP                                                  DECL      627
                     21227                        AX2    MAX.SPAN                                                DECL      628
                          6170000000 X            SB7    E.DM08                                                  DECL      629
           323  0312000211 +                      NZ     X2,EXIT.    IF SIZE .GT. 2**23-1                        DECL      630
                          5071000000              SA7    A1+         UPDATE HEADER ENTRY                         DECL      631
           324  0400000212 +                      EQ     DIS1        CONTINUE PROCESSING                         DECL      632
                                                                                                                 DECL      633
           325                     1     DIS.LB   BSS    1           SAVE LOWER BOUND                            DECL      634
  
  
  
  
                                        **        EDD -  ENTER DIMENSION DESCRIPTOR INTO T.DIM                   FC50958    12
                                        *                                                                        FC50958    13
                                        *         ENTRY  (B2) _ FWA CONSTANTS                                    FC50958    14
                                        *                (B3) _ LWA+1 DESCRIPTOR TO BE ENTERED                   FC50958    15
                                        *                                                                        FC50958    16
                                        *                                                                        FC50958    17
                                        *         EXIT   (B7) = ORDINAL OF FWA OF DESCRIPTOR IF                  FC50958    18
                                        *                       ENTERED OR ALREADY PRESENT                       FC50958    19
                                        *                (X6) = (B7) IF ELEMENT ENTERED                          FC50958    20
                                        *                                                                        FC50958    21
                                        *                                                                        FC50958    22
                                        *                                                                        FC50958    23
                                        *         CALLS ALLOC, MOVE                                              FC50958    24
                                        *                                                                        FC50958    25
                                        *         CANNOT DESTORY A4,A5 B4,B5,B6                                  FC50958    26
                                                                                                                 FC50958    27
                                                                                                                 FC50958    28
           326  0400400326 +             EDD      SUBR   =           ...ENTRY/EXIT...                            FC50958    29
           327  76630                             SX6    B3                                                      FC50958    30
                     5160000000 X                 SA6    EDDA                                                    FC50958    31
                               76750              SX7    B5                                                      FC50958    32
           330  5170000370 +                      SA7    EDDB5                                                   FC50958    33
                          0423000326 +            EQ     B2,B3,EXIT. IF NO WORDS TO ADD                          FC50958    34
           331  43066                             MX0    -DH.DIML                                                FC50958    35
                     67732                        SB7    B3-B2       LENGTH OF DESCRIPTOR                        FC50958    36
                          5110000000 X            SA1    T.DIM                                                   FC50958    37
           332  5031000000 X                      SA3    A1+N.TABLE                                              FC50958    38
                          63330                   SB3    X3          T.DIM LENGTH                                FC50958    39
           333  0737000354 +                      LT     B3,B7,EDD16 IF TABLE TOO SMALL TO HOLD DESCRIPTOR       FC50958    40
                          5231777776              SA3    X1-1        PRESET TO T.DIM-1                           FC50958    41
           334  56220                             SA2    B2          PRESET FWA OF DESCRIPTOR                    FC50958    42
                                                                                                                 FC50958    43
           335  5033000001               EDD4     SA3    A3+1                                                    FC50958    44
                          15530                   BX5    -X0*X3                                                  FC50958    45
                               20501              LX5    1                                                       FC50958    46
           336  7255000001                        SX5    X5+1                                                    FC50958    47
                          63550                   SB5    X5          NUM OF WORDS IN NEXT DESCRIPTOR IN T.DIM    FC50958    48
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    14
        *DIMENSION* AND ARRAY DECLARATIONS.                           EDD 
  
                               76750              SX7    B5          X7 USED IN CASE OF MISMATCH                 FC50958    49
           337  0457000342 +                      EQ     B5,B7,EDD8  IF NUMBER OF WORDS IN DESCRIPTORS EQUAL     FC50958    50
                                                                                                                 FC50958    51
                                        **        HERE IF SIZE MISMATCH                                          FC50958    52
                                                                                                                 FC50958    53
                          67335                   SB3    B3-B5       T.DIM LENGTH MINUS CURRENT DESCRIPTOR       FC50958    54
           340  0430000354 +                      ZR     B3,EDD16    IF NO MORE DESCRIPTORS IN T.DIM             FC50958    55
                          74335                   SX3    A3+B5                                                   FC50958    56
           341  5233777776                        SA3    X3-1        NEXT DESCRIPTOR-1                           FC50958    57
                          0400000335 +            EQ     EDD4        CHECK SIZE OF NEXT DESCRIPTOR               FC50958    58
                                                                                                                 FC50958    59
                                        **        HERE TO COMPARE DESCRIPTORS OF EQUAL SIZE                      FC50958    60
                                                                                                                 FC50958    61
           342  56220                    EDD8     SA2    B2          RESET FWA OF DESCRIPTOR                     FC50958    62
                                                                                                                 FC50958    63
           343  0450000351 +             EDD10    ZR     B5,EDD14    IF CURRENT DESCRIPTOR MATCHES               FC50958    64
                          13623                   BX6    X2-X3                                                   FC50958    65
                               67551              SB5    B5-B1                                                   FC50958    66
           344  5022000001                        SA2    A2+1                                                    FC50958    67
                          5033000001              SA3    A3+1                                                    FC50958    68
           345  0336000346 +                      MI     X6,EDD12    IF NO MATCH                                 FC50958    69
                          0306000343 +            ZR     X6,EDD10    IF CURRENT WORD MATCHES                     FC50958    70
                                                                                                                 FC50958    71
                                        **        HERE IF MISMATCH                                               FC50958    72
                                                                                                                 FC50958    73
           346  14777                    EDD12    BX7    -X7                                                     FC50958    74
                     63373                        SB3    B3+X7                                                   FC50958    75
                          0430000354 +            ZR     B3,EDD16    IF NO MORE DESCRIPTORS                      FC50958    76
           347  74335                             SX3    A3+B5                                                   FC50958    77
                     5233777776                   SA3    X3-1        NEXT DESCRIPTOR-1                           FC50958    78
           350  0400000335 +                      EQ     EDD4        CHECK SIZE OF NEXT                          FC50958    79
                                                                                                                 FC50958    80
                                        **        HERE IF DESCRIPTOR ALREADY IN T.DIM                            FC50958    81
                                                                                                                 FC50958    82
           351  75637                    EDD14    SX6    A3-B7                                                   FC50958    83
                     37661                        IX6    X6-X1       ORDINAL                                     FC50958    84
                          63760                   SB7    X6                                                      FC50958    85
           352  5120000370 +                      SA2    EDDB5                                                   FC50958    86
                          63520                   SB5    X2          RESTORE B5                                  FC50958    87
           353  0400000326 +                      EQ     EXIT.                                                   FC50958    88
                                                                                                                 FC50958    89
                                        **        HERE IF DESCRIPTOR NOT IN T.DIM                                FC50958    90
                                                                                                                 FC50958    91
           354  76620                    EDD16    SX6    B2                                                      FC50958    92
                     5160000001 X                 SA6    EDDA+1      SAVE (B2) FWA                               FC50958    93
                               76070              ALLOC  A1,B7                                                   FC50958    94
           356  10011                             BX0    X1                                                      FC50958    95
                     5130000000 X                 SA3    EDDA                                                    FC50958    96
           357  5013000001                        SA1    A3+1                                                    FC50958    97
                          37723                   IX7    X2-X3                                                   FC50958    98
                               63330              SB3    X3          RESTORE B3                                  FC50958    99
           360  63210                             SB2    X1          RESTORE B2                                  FC50958   100
                     10211                        BX2    X1          (X2) = SOURCE                               FC50958   101
                          73672                   SX6    X7+B2       ORDINAL = NEW LENGTH - WORD COUNT           FC50958   102
                               36360              IX3    X6+X0       (X3) = DESTINATION(ORDINAL+ORIGN)           FC50958   103
           361  54630                             SA6    A3          SAVE ORDINAL                                FC50958   104
                     10644                        BX6    X4                                                      FC50958   105
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    15
        *DIMENSION* AND ARRAY DECLARATIONS.                           EDD 
  
                          77132                   SX1    B3-B2       (X1) = WORD COUNT                           FC50958   106
           362  5160000001 X                      SA6    EDDA+1      SAVE X4                                     FC50958   107
                          74640                   SX6    A4                                                      FC50958   108
           363  5066000001                        SA6    A6+1        SAVE A4                                     FC50958   109
                          0100000000 X            MOVE   X1,X2,X3                                                FC50958   110
           364  5140000002 X                      SA4    EDDA+2      RESTORE A4                                  FC50958   111
                          5014777776              SA1    A4-1                                                    FC50958   112
           365  10411                             BX4    X1          RESTORE X4                                  FC50958   113
                     5120000370 +                 SA2    EDDB5                                                   FC50958   114
                               63520              SB5    X2          RESTORE B5                                  FC50958   115
           366  5110000000 X                      SA1    EDDA                                                    FC50958   116
                          10611                   BX6    X1                                                      FC50958   117
                               63710              SB7    X1                                                      FC50958   118
           367  0400000326 +                      EQ     EXIT.                                                   FC50958   119
                                                                                                                 FC50958   120
           370  00000000000000000000     EDDB5    CON    0           B5 SAVED HERE                               FC50958   121
                                   0 X   EDDA     EQU    ADWT        ADDITIONAL SAVE AREA                        FC50958   122
  
  
  
  
                                        **        CDB -  COMPILE DIMENSION BOUND                                 DECL      636
                                        *                                                                        DECL      637
                                        *         FOR *PHASE 1A*, THIS ROUTINE EVALUATES CONSTANT EXPRESSIONS    DECL      638
                                        *         AND VARIABLE DIMENSIONS WHICH USE A FORMAL PARAMETER OR COMMON DECL      639
                                        *         ELEMENT ONLY.  THIS ROUTINE MUST BE EXTENDED TO COMPILE ALL    DECL      640
                                        *         ALL DIMENSION EXPRESSIONS.                                     DECL      641
                                        *                                                                        DECL      642
                                        *         ENTRY  (B4) _ FWA OF DIMENSION BOUND                           DECL      643
                                        *                (X3) = ARGMODE SETTING                                  DECL      644
                                        *                                                                        DECL      645
                                        *         EXIT   (B4) _ END OF DIMENSION DESCRIPTOR                      DECL      646
                                        *                                                                        DECL      647
                                        *                IF NO ERROR...                                          DECL      648
                                        *                (B7) = 0                                                DECL      649
                                        *                (X5) = DIMENSION DESCRIPTOR (DM. FORMAT)                FC50069    44
                                        *                                                                        DECL      651
                                        *                IF ERROR...                                             DECL      652
                                        *                (B7) = DIAGNOSTIC ADDRESS                               DECL      653
                                        *                (X5) = UNDEFINED                                        DECL      654
                                        *                                                                        DECL      655
                                        *         USES   A1,A2,A3,A4,A5,A6,A7  B2,B7  X0,X1,X2,X3,X4,X5,X6,X7    DECL      656
                                        *                                                                        DECL      657
                                        *         PRESERVES B5  (FILL.)  (FILL.2)  (T=PAR)  (E=TOTAL)            DECL      658
                                        *                                                                        DECL      659
                                        *         CALLS  PAR                                                     DECL      660
                                                                                                                 DECL      661
                                                                                                                 DECL      662
           371  0400400371 +             CDB      SUBR               ...ENTRY/EXIT...                            DECL      663
           372  5110000000 X                      SA1    T=PAR                                                   DECL      664
                          5120000000 X            SA2    FILL.                                                   DECL      665
           373  22701                             LX7    X1                                                      DECL      666
                     10622                        BX6    X2                                                      DECL      667
                          5110000000 X            SA1    E=TOTAL                                                 DECL      668
           374  5170000424 +                      SA7    CDBA        CDBA+0 = (T=PAR)                            DECL      669
                          54221                   =A2    A2+1        FILL.2                                      DECL      670
                               54671              =A6    A7+1            +1 = (FILL.)                            DECL      671
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    16
        *DIMENSION* AND ARRAY DECLARATIONS.                           CDB 
  
           375  22702                             LX7    X2                                                      DECL      672
                     54761                        =A7    A6+1            +2 = (FILL.2)                           DECL      673
                          76650                   SX6    B5                                                      DECL      674
                               10711              BX7    X1                                                      DECL      675
           376  54671                             =A6    A7+1            +3 = (B5)                               DECL      676
                     10633                        BX6    X3                                                      DECL      677
                          54761                   =A7    A6+1            +4 = (E=TOTAL)                          DECL      678
                               43700              MX7    0                                                       DECL      679
           377  5170000000 X                      SA7    ARGCOMA                                                 DECL      680
                          7170000044              =X7    O.SLP                                                   DECL      681
           400  5160000000 X                      SA6    ARGMODE                                                 DECL      682
                          57741                   =A7    B4-1        PUT SPECIAL BEGINNING PAREN TO SET ARGMODE  DECL      683
                               67441              =B4    B4-1        MOVE *TB* POINTER TO BEGINNING LEFT PAREN   DECL      684
           401  7160000003                        =X6    PM=DIM                                                  DECL      685
                          5160000000 X            SA6    PARMODE     SET FOR NON STANDARD PARSE                  DECL      686
           402  0100000000 X                      CALL   PAR         PARSE/REDUCE EXPRESSION                     DECL      687
           403  7160000000                        SX6    0                                                       DECL      688
                          5160000000 X            SA6    PARMODE     CLEAR                                       DECL      689
           404  5110000425 +                      SA1    CDBA+1                                                  DECL      690
                          54211                   =A2    A1+1                                                    DECL      691
                               22702              LX7    X2                                                      DECL      692
           405  10611                             BX6    X1                                                      DECL      693
                     5160000000 X                 SA6    FILL.       RESTORE FILL.                               DECL      694
                               54761              =A7    A6+1        RESTORE FILL.2                              DECL      695
           406  22205                             LX2    X5                                                      DECL      696
                     20257                        SBIT   X2,TP.SHRTP                                             DECL      697
                          0322000411 +            PL     X2,CDB20    IF NOT SHORT CONSTANT                       DECL      698
           407  43044                             MX0    -DM.INFL                                                FC5A231    91
                     20520                        HX5    TP.BIAS                                                 DECL      700
                          21544                   AX5    -TP.BIASL   SIGN EXTEND                                 DECL      701
                               15550              BX5    -X0*X5      ISOLATE CONSTANT BOUND                      DECL      702
           410  0400000422 +                      EQ     CDB40       CONTINUE PROCESSING...                      DECL      703
                                                                                                                 DECL      704
           411  43054                    CDB20    MX0    -TP.ORDL                                                DECL      705
                     5120000000 X                 SA2    S=VD                                                    DECL      706
                               20520              LX5    -TP.ORDP                                                DECL      707
           412  15350                             BX3    -X0*X5      ISOLATE ORDINAL                             DECL      708
                     37232                        IX2    X3-X2                                                   DECL      709
                          43044                   MX0    -TP.BIASL                                               DECL      710
                               20530              LX5    TP.ORDP-TP.BIASP                                        DECL      711
           413  15550                             BX5    -X0*X5      BIAS (CON. OR VD.)                          DECL      712
                     0302000420 +                 ZR     X2,CDB30    IF VARIABLE DIMENSION BOUND                 DECL      713
           414  5120000000 X                      SA2    T.CON                                                   DECL      714
                          63250                   SB2    X5                                                      DECL      715
                               53222              SA2    X2+B2       FETCH THE CONSTANT                          DECL      716
           415  43044                             MX0    -DM.INFL                                                FC5A231    92
                     15520                        BX5    -X0*X2      ISOLATE CONSTANT BOUND                      DECL      718
                          21227                   AX2    MAX.SPAN                                                DECL      719
           416  0302000422 +                      ZR     X2,CDB40    IF BOUND .LE. 2**23-1                       DECL      720
                          6170000000 X            SB7    E.DM07                                                  DECL      721
           417  0400000371 +                      EQ     EXIT.                                                   DECL      722
                                                                                                                 DECL      723
           420  5120000000 +             CDB30    SA2    DIMI        FETCH HEADER ENTRY                          DECL      724
                          43601                   CLAS=  X6,DH,(VD)                                              DECL      725
                               12626              BX6    X2+X6       ADD IN VARIABLE DIMENSION BIT               DECL      726
           421  54620                             SA6    A2                                                      DECL      727
                     43401                        CLAS=  X4,DM,(TD)                                              FC5A231    93
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    17
        *DIMENSION* AND ARRAY DECLARATIONS.                           CDB 
  
                               12545              BX5    X4+X5       DI.TD + DI.INF = DIMENSION BOUND            DECL      729
                                                                                                                 DECL      730
           422  5110000427 +             CDB40    SA1    CDBA+3                                                  DECL      731
                          63510                   SB5    X1          RESTORE (B5)                                DECL      732
                               66700              =B7    0           INDICATE NO ERROR                           DECL      733
           423  67441                             =B4    B4-1        RESET *TB* TO END OF DIMENSION DESCRIPTOR   DECL      734
                     0400000371 +                 EQ     EXIT.                                                   DECL      735
                                                                                                                 DECL      736
           424                     5     CDBA     BSS    5           CDB SAVE AREA                               DECL      737
                                         CDBB     EQUENT CDBA+1      FILL. CELLS NEEDED IN PAR                   DECL      738
  
  
  
  
                                        **        C=DBD/A=DBD - PROCESS CLOSING *,* OR *)* FOR DIMENSION         DECL      740
                                        *                       BOUND EXPRESSION.                                DECL      741
                                        *                                                                        DECL      742
                                        *         ENTRY  (X5) = RESULTS OF EXPRESSION (TP. FORMAT)               DECL      743
                                        *                                                                        DECL      744
                                        *         EXIT   (X5) = RESULTS OF EXPRESSION OR VARDIM TURPLE           DECL      745
                                        *                                                                        DECL      746
                                        *         USES   A1,A2,A5,A6  B2,B3,B7  X0,X1,X2,X3,X5,X6                DECL      747
                                        *                                                                        DECL      748
                                        *         CALLS  EMT, MVE=, OVS                                          DECL      749
                                                                                                                 DECL      750
                                                                                                                 DECL      751
           431                           C=DBD    BSSENT 0           ENTRY...                                    DECL      752
           431  6144000001                        SB4    B4+1                                                    DECL      753
           432                           A=DBD    BSSENT 0           ENTRY...                                    DECL      754
           432  22205                             LX2    X5                                                      DECL      755
                     20261                        SBIT   X2,TP.INTRP                                             DECL      756
                          0322000464 +            PL     X2,DBD10    IF NOT EXPRESSION                           DECL      757
           433  5110000424 +                      SA1    CDBA        FETCH FORMER T=PAR                          DECL      758
                          5120000000 X            SA2    E=TOTAL                                                 DECL      759
           434  5031000004                        SA3    A1+4        FETCH PREVIOUS STATEMENT ERROR COUNT        DECL      760
                          37223                   IX2    X2-X3                                                   DECL      761
           435  0302000441 +                      ZR     X2,DBD1     IF NO ERRORS THIS DIMENSION BOUND           DECL      762
                          10611                   SHRINK T=PAR,X1    RESET PARSE FILE LENGTH                     DECL      763
                          43400                   MX4    0                                                       DECL      764
                               13555              BX5    0                                                       DECL      765
           437  6130400000 X                      EMIT   ERROP,*                                                 DECL      766
           440  5150000000 X                      SA5    CONONE      DEFAULT BOUND WHEN ERROR                    DECL      767
                          0400000000 X            EQ     PAREXIT                                                 DECL      768
                                                                                                                 DECL      769
                                        *         HERE IF LEGAL DIMENSION BOUND EXPRESSION                       DECL      770
                                        *                (X1) = OLD PARSE FILE LENGTH                            DECL      771
                                                                                                                 DECL      772
           441  5120000000 X             DBD1     SA2    T=PAR                                                   DECL      773
                          5130000000 X            SA3    T=VDIM                                                  DECL      774
           442  37021                             IX0    X2-X1       LENGTH OF DIMENSION BOUND EXPRESSION        DECL      775
                     37331                        IX3    X3-X1       OFFSET FOR INTERMEDIATE CONVERSION          DECL      776
                          5120000000 X            SA2    T.PAR                                                   DECL      777
           443  22600                             LX6    X0                                                      DECL      778
                     36212                        IX2    X1+X2       STARTING POINT FOR CONVERSION               DECL      779
                          63200                   SB2    X0          LOOP COUNTER                                DECL      780
                               53120              SA1    X2          INITIALIZE LOOP                             DECL      781
           444  5160000622 +                      SA6    OVSA        SAVE EXPRESSION LENGTH FOR OVS              DECL      782
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    18
        *DIMENSION* AND ARRAY DECLARATIONS.                           C=DBD 
  
                                                                                                                 DECL      783
           445  54211                    DBD2     =A2    A1+OR.1OP                                               DECL      784
                     54421                        =A4    A2-OR.1OP+OR.2OP                                        DECL      785
                          20261                   SBIT   X2,TP.INTRP                                             DECL      786
                               20461              SBIT   X4,TP.INTRP                                             DECL      787
           446  0322000450 +                      PL     X2,DBD3     IF NOT INTERMEDIATE                         DECL      788
                          20233                   LX2    TP.INTRL+TP.INTRP-TP.ORDP                               DECL      789
                               36232              IX2    X3+X2       ADJUST WITH OFFSET                          DECL      790
           447  20254                             LX2    TP.ORDP                                                 DECL      791
                     10622                        BX6    X2                                                      DECL      792
                          54620                   SA6    A2          RESET                                       DECL      793
           450  0324000452 +             DBD3     PL     X4,DBD4     IF NOT INTERMEDIATE                         DECL      794
                          20433                   LX4    TP.INTRL+TP.INTRP-TP.ORDP                               DECL      795
                               36434              IX4    X3+X4       ADJUST WITH OFFSET                          DECL      796
           451  20454                             LX4    TP.ORDP                                                 DECL      797
                     10644                        BX6    X4                                                      DECL      798
                          54640                   SA6    A4          RESET                                       DECL      799
           452  5011000003               DBD4     SA1    A1+Z=TURP                                               DECL      800
                          6122777774              SB2    B2-Z=TURP                                               DECL      801
           453  0520000445 +                      NZ     B2,DBD2     IF NOT FINISHED                             DECL      802
                                                                                                                 DECL      803
                                        *         THE PARSE FILE NOW CONTAINS DIMENSION BOUND TURPLES, ADJUSTED  DECL      804
                                        *         FOR INCLUSION IN THE VARDIM TABLE.                             DECL      805
                                        *                (X0) = LENGTH OF DIMENSION BOUND TURPLES                DECL      806
                                                                                                                 DECL      807
                                                  HX5    TP.ORD                                                  DECL      808
                          20520                   LX5    TP.ORDL                                                 DECL      809
                               36553              IX5    X5+X3       ADJUST THE FINAL INTERMEDIATE WITH OFFSET   DECL      810
           454  20554                             LX5    TP.ORDP                                                 DECL      811
                     22400                        LX4    X0                                                      DECL      812
                          5110000000 X            ALLOC  T.VDIM,X0   GET NEEDED SPACE                            DECL      813
           456  5110000424 +                      SA1    CDBA                                                    DECL      814
                          10611                   SHRINK T=PAR,X1    RESET PARSE FILE LENGTH                     DECL      815
                          5120000000 X            SA2    T.PAR                                                   DECL      816
           460  36221                             IX2    X2+X1       ORIGIN OF DIMENSION BOUND TURPLES           DECL      817
                     76370                        SX3    B7                                                      DECL      818
                          37334                   IX3    X3-X4       DESTINATION OF TURPLES                      DECL      819
                               10144              MOVE   X4,X2,X3                                                DECL      820
           462  10455                             BX4    X5                                                      DECL      821
                     0100000540 +                 RJ     OVS         OUTPUT VARIABLE STORE TURPLE                DECL      822
           463  0400000000 X                      EQ     PAREXIT                                                 DECL      823
                                                                                                                 DECL      824
           464  20272                    DBD10    SBIT   X2,TP.SHRTP/TP.INTRP                                    DECL      825
                     0332000000 X                 MI     X2,PAREXIT  IF SHORT CONSTANT                           DECL      826
                               22205              LX2    X5                                                      DECL      827
                                                  HX2    TP.ORD                                                  DECL      828
           465  5110000000 X                      SA1    S=CON                                                   DECL      829
                          21254                   AX2    -TP.ORDL    ISOLATE ORDINAL                             DECL      830
                               37312              IX3    X1-X2                                                   DECL      831
           466  0303000000 X                      ZR     X3,PAREXIT  IF CONSTANT                                 DECL      832
                                                                                                                 DECL      833
                                        *         HERE IF VARIABLE.                                              DECL      834
                                                                                                                 DECL      835
                          10455                   BX4    X5                                                      DECL      836
           467  0100000540 +                      RJ     OVS         OUTPUT VARIABLE STORE TURPLE                DECL      837
           470  0400000000 X                      EQ     PAREXIT                                                 DECL      838
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    19
        *DIMENSION* AND ARRAY DECLARATIONS.                           OVP 
  
                                        **        OVP -  OUTPUT VARDIM PRODUCT OF SPANS                          DECL      840
                                        *                                                                        DECL      841
                                        *         ENTRY  (DIMI) = T.DIM ENTRY CURRENTLY PROCESSING               DECL      842
                                        *                                                                        DECL      843
                                        *         EXIT   (DIMI) = DH.PS CONTAINS VD. INDEX FOR PRODUCT OF SPANS  DECL      844
                                        *                (T.VDIM) - UPDATED WITH MULTIPLY TURPLES (AS NEEDED)    DECL      845
                                        *                (T.VDI)  - UPDATED WITH NEW VD. INFORMATION (AS NEEDED) DECL      846
                                        *                                                                        DECL      847
                                        *         USES   A1,A2,A3,A4,A5,A6,A7  B6  X0,X1,X2,X3,X4,X5,X6,X7       DECL      848
                                        *                                                                        DECL      849
                                        *         CALLS  EMT, NCS, OVS                                           DECL      850
                                                                                                                 DECL      851
                                                                                                                 DECL      852
           471  0400400471 +             OVP      SUBR               ...ENTRY/EXIT...                            DECL      853
           472  5110000000 +                      SA1    DIMI        FETCH HEADER                                DECL      854
                                                  LX1    -DH.DIMP                                                DECL      855
                          43066                   MX0    -DH.DIML                                                DECL      856
                               15510              BX5    -X0*X1      EXTRACT NUMBER OF DIMENSIONS                DECL      857
                                                  LX1    DH.DIMP                                                 DECL      858
           473  20106                             HX1    DH.PS                                                   DECL      859
                     21144                        AX1    -DH.PSL     EXTRACT PRODUCT OF CONSTANT SPANS           DECL      860
                          66600                   =B6    0                                                       DECL      861
                               76010              =X0    1                                                       DECL      862
           474  37010                             IX0    X1-X0                                                   DECL      863
                     0300000477 +                 ZR     X0,OVP1     IF NO CONSTANT SPAN                         DECL      864
                               22601              LX6    X1                                                      DECL      865
           475  76711                             =X7    M.INT                                                   DECL      866
                     0100000000 X                 CALL   NCS                                                     DECL      867
           476  5166000530 +                      SA6    B6+OVPA                                                 DECL      868
                          66661                   =B6    B6+1                                                    DECL      869
                                                                                                                 DECL      870
                                        *         FETCH LOOP ON SPANS TO DETERMINE NUMBER OF MULTIPLIES          DECL      871
                                        *                (X5) = NUMBER OF DIMENSIONS                             DECL      872
                                        *                (B6) = COUNTER OF OPERANDS                              DECL      873
                                                                                                                 DECL      874
           477  54111                    OVP1     =A1    A1+1        PREFETCH SPAN (INITIAL)                     DECL      875
                     5130000000 X                 SA3    T.VDI                                                   DECL      876
           500  5140000000 X                      SA4    T.VDIM                                                  DECL      877
                                                                                                                 DECL      878
           501  10711                    OVP2     BX7    X1          SAVE POSSIBLE VARIABLE SPAN                 FC50069    45
                     20136                        HX1    D1.SPAN                                                 FC50069    46
                          0321000506 +            PL     X1,OVP3     IF NOT VARIABLE SPAN                        DECL      880
           502  20106                             LX1    -DM.INFL-DM.INFP+D1.SPANL                               FC5A231    94
                     21144                        AX1    -DM.INFL    EXTRACT VD. INDEX                           FC5A231    95
                          36131                   IX1    X3+X1                                                   DECL      883
                               53210              SA2    X1          FETCH VD. INFORMATION                       DECL      884
           503  20206                             HX2    VD.IND                                                  DECL      885
                     21252                        AX2    -VD.INDL    EXTRACT STORE OPERAND INDEX                 DECL      886
                          36242                   IX2    X4+X2                                                   DECL      887
                               53220              SA2    X2          FETCH VD. STORE OPERAND                     DECL      888
           504  22602                             LX6    X2                                                      DECL      889
                     5166000530 +                 SA6    B6+OVPA                                                 DECL      890
                               66661              =B6    B6+1                                                    DECL      891
           505  5170000537 +                      SA7    OVPB        SAVE D1. ENTRY                              FC50069    47
                                                                                                                 FC50069    48
           506  7255777776               OVP3     =X5    X5-1                                                    DECL      892
                          0305000510 +            ZR     X5,OVP4                                                 DECL      893
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    20
        *DIMENSION* AND ARRAY DECLARATIONS.                           OVP 
  
           507  5011000002                        SA1    A1+Z=DD     FETCH NEXT SPAN                             DECL      894
                          0400000501 +            EQ     OVP2                                                    DECL      895
                                                                                                                 DECL      896
                                        *         LOOP FOR THE MULTIPLIES                                        DECL      897
                                        *                (B6) = COUNT OF OPERANDS                                DECL      898
                                                                                                                 DECL      899
           510  67661                    OVP4     =B6    B6-1                                                    DECL      900
                     5146000530 +                 SA4    B6+OVPA     FETCH OPERAND                               DECL      901
                               22704              LX7    X4                                                      DECL      902
           511  20720                             HX7    TP.BIAS                                                 DECL      903
                     21744                        AX7    -TP.BIASL   EXTRACT THE VD. INDEX                       DECL      904
                                   0              ERRNZ  DM.INFP                                                 FC5A231    96
                          0560000514 +            NZ     B6,OVP5     IF MULTIPLY TURPLES NEEDED                  FC50069    49
           512  5110000537 +                      SA1    OVPB        FETCH D1. ENTRY                             FC50069    50
                          22701                   LX7    X1          USE FOR DH. COMPLETION                      FC50069    51
           513  0400000524 +                      EQ     OVP11                                                   FC50069    52
                                                                                                                 FC50069    53
           514  0460000523 +             OVP5     ZR     B6,OVP10    IF FINISHED                                 DECL      907
                          67661                   =B6    B6-1                                                    DECL      908
           515  5156000530 +                      SA5    B6+OVPA     FETCH OPERAND                               DECL      909
                          5110000000 X            EMIT   VD.MU,*,T.VDIM                                          DECL      910
           517  5110000622 +                      SA1    OVSA                                                    DECL      911
                          7160000003              SX6    Z=TURP                                                  DECL      912
           520  36616                             IX6    X1+X6                                                   DECL      913
                     54610                        SA6    A1          INCREMENT TURPLE COUNT                      DECL      914
                          5120000000 X            SA2    T=VDIM                                                  DECL      915
           521  7222777774                        SX2    X2-Z=TURP                                               DECL      916
                          7140002002              CLAS=  X4,TP,(INTR),INT                                        DECL      917
           522  20254                             LX2    TP.ORDP                                                 DECL      918
                     12424                        BX4    X2+X4       ORD + INTR + MODE                           DECL      919
                          0400000514 +            EQ     OVP5        CONTINUE                                    DECL      920
                                                                                                                 DECL      921
                                        *         ALL MULTIPLIES OUTPUT, MAKE VD. FOR THE PRODUCT OF SPANS       DECL      922
                                        *                (X4) = STORE OPERAND FOR PRODUCT OF SPANS VD.           DECL      923
                                                                                                                 DECL      924
           523  0100000540 +             OVP10    RJ     OVS                                                     DECL      925
           524  5110000000 +             OVP11    SA1    DIMI        FETCH HEADER                                DECL      926
                          43030                   MX0    DH.PSL                                                  DECL      927
                               20736              LX7    DH.PSP                                                  DECL      928
           525  43601                             CLAS=  X6,DH,(VP)                                              DECL      929
                          20066                   LX0    DH.PSL+DH.PSP                                           DECL      930
                               11707              BX7    X0*X7       EXTRACT VD. INDEX                           DECL      931
           526  15110                             BX1    -X0*X1      CLEAR CONSTANT PRODUCT                      DECL      932
                     12717                        BX7    X1+X7       VD. INDEX IS NOW PRODUCT OF SPANS           DECL      933
                          12767                   BX7    X6+X7       INDICATE THIS                               DECL      934
                               54710              SA7    A1                                                      DECL      935
           527  0400000471 +                      EQ     EXIT.                                                   DECL      936
                                                                                                                 DECL      937
           530                     7     OVPA     BSS    MAX.DIM                                                 DECL      938
           537                     1     OVPB     BSS    1                                                       FC50069    54
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    21
        *DIMENSION* AND ARRAY DECLARATIONS.                           OVS 
  
                                        **        OVS -  OUTPUT VARIABLE DIMENSION STORE (VD.EQ) TURPLE          DECL      940
                                        *                                                                        DECL      941
                                        *         ENTRY  (X4) = OR.1OP (VALUE OF VD.)                            DECL      942
                                        *                                                                        DECL      943
                                        *         EXIT   (X5) = VARDIM (TP. FORMAT)                              DECL      944
                                        *                (X7) = DIMENSION DESCRIPTOR (DM. FORMAT)                FC50069    55
                                        *                                                                        DECL      946
                                        *         USES   A1,2,3,4,5,6,7  B2,3,6,7  X0,1,2,3,4,5,6,7              DECL      947
                                        *                                                                        DECL      948
                                        *         CALLS  ADW, EMT                                                DECL      949
                                                                                                                 DECL      950
                                                                                                                 DECL      951
           540  0400400540 +             OVS      SUBR               ...ENTRY/EXIT...                            DECL      952
           541  5150000000 X                      SA5    S=VD                                                    DECL      953
                          5110000622 +            SA1    OVSA        TURPLE COUNT                                DECL      954
           542  5120000000 X                      SA2    N.VD                                                    DECL      955
                          76711                   =X7    M.INT                                                   DECL      956
                               20554              LX5    TP.ORDP     VD. ORDINAL                                 DECL      957
           543  20224                             LX2    TP.BIASP    USE CURRENT VDIM COUNTER                    DECL      958
                     12552                        BX5    X5+X2       ORDINAL + BIAS                              DECL      959
                          12557                   BX5    X5+X7       ORDINAL + BIAS + MODE                       DECL      960
           544  7271000003                        SX7    X1+Z=TURP   INCREMENT FOR THE STORE TURPLE              DECL      961
                          54710                   SA7    A1                                                      DECL      962
                               22705              LX7    X5                                                      DECL      963
           545  5170000623 +                      SA7    OVSB        SAVE VD. OPERAND                            DECL      964
                          5110000000 X            EMIT   VD.EQ,*,T.VDIM                                          DECL      965
                                                                                                                 DECL      966
                                        *         THIS PORTION OF OVS ATTEMPTS TO SQUEEZE OUT THE TURPLES JUST   DECL      967
                                        *         ADDED TO T.VDIM.  IF AN EXACT MATCH IS FOUND (ALLOWING FOR     DECL      968
                                        *         ADJUSTED INTERMEDIATE OPERANDS) THAT VD. WILL BE USED AND THE  DECL      969
                                        *         TURPLES ADDED TO T.VDIM WILL BE TRASHED.  IF NOT, THE ENTRY    DECL      970
                                        *         STANDS AND A T.VDI ENTRY WILL BE MADE, N.VD UPDATED, ETC.  THE DECL      971
                                        *         SQUEEZE LOOP DEPENDS UPON NO TABLE MOVEMENT.  MODIFIERS BE     DECL      972
                                        *         WARNED.                                                        DECL      973
                                                                                                                 DECL      974
           547  5110000622 +                      SA1    OVSA        LENGTH OF VD. EXPRESSION                    DECL      975
                          5120000000 X            SA2    T=VDIM                                                  DECL      976
           550  37721                             IX7    X2-X1       OFFSET FOR INTERMEDIATES                    DECL      977
                     7100000003                   SX0    Z=TURP                                                  DECL      978
                               27101              IX1    X1/X0,B7    CONVERT SIZE TO NUMBER OF TURPLES           DECL      979
                          5120000000 X            SA2    T=VDI                                                   DECL      980
           553  63210                             SB2    X1          NUMBER OF TURPLES, CURRENT VD. EXPRESSION   DECL      981
                     63320                        SB3    X2          NUMBER OF T.VDI ENTRIES                     DECL      982
                                                                                                                 DECL      983
                                        *         THE FOLLOWING DUAL LOOP WILL TEST T.VDI ENTRIES FOR LENGTH     DECL      984
                                        *         COMPATIBILITY.  IF AN EXISTING VD. EXPRESSION MATCHES THE      DECL      985
                                        *         CURRENT EXPRESSION IN LENGTH, AN INTERMEDIATE OFFSET IS        DECL      986
                                        *         CALCULATED, AND THE TWO EXPRESSIONS WILL BE COMPARED, TURPLE   DECL      987
                                        *         BY TURPLE FOR A MATCH.  IF A MATCH IS FOUND, THE CURRENT       DECL      988
                                        *         EXPRESSION TURPLES ARE ELIMINATED AND THAT VD. OPERAND IS      DECL      989
                                        *         USED.  IF NO MATCH, LOOP IS CONTINUED UNTIL T.VDI IS EXHAUSTED DECL      990
                                        *         AT WHICH POINT THE CURRENT ENTRY STANDS AS UNIQUE.             DECL      991
                                        *                (X7) = INDEX OF CURRENT VD. EXPRESSION START            DECL      992
                                        *                (B2) = NUMBER OF TURPLES IN CURRENT VD. EXPRESSION      DECL      993
                                        *                (B3) = COUNT OF T.VDI ENTRIES (AS YET UNCHECKED)        DECL      994
                                                                                                                 DECL      995
           554  0430000605 +             OVS1     ZR     B3,OVS15    IF NO MORE ENTRIES                          DECL      996
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    22
        *DIMENSION* AND ARRAY DECLARATIONS.                           OVS 
  
                          5110000000 X            SA1    T.VDI                                                   DECL      997
           555  67331                             =B3    B3-1                                                    DECL      998
                     53213                        SA2    X1+B3       FETCH T.VDI ENTRY                           DECL      999
                                                  LX2    -VD.LENP                                                DECL     1000
                          63620                   SB6    X2          EXTRACT NUMBER OF TURPLES                   DECL     1001
                                   0              ERRNZ  18-VD.LENL                                              DECL     1002
                               67662              SB6    B6-B2                                                   DECL     1003
           556  0560000554 +                      NZ     B6,OVS1     IF LENGTH NOT EQUAL, NO MATCH POSSIBLE      DECL     1004
                                                                                                                 DECL     1005
                                        *         A LENGTH MATCH IS FOUND.  PERFORM WORD BY WORD COMPARE FOR     DECL     1006
                                        *         MATCHING VD. ENTRY.                                            DECL     1007
                                                                                                                 DECL     1008
                          20252                   LX2    VD.LENP-VD.PNTP                                         DECL     1009
                               63620              SB6    X2          EXTRACT ORDINAL OF START OF VD. EXPRESSION  DECL     1010
                                   0              ERRNZ  18-VD.PNTL                                              DECL     1011
           557  76066                             SX0    B6+B6                                                   DECL     1012
                     73006                        SX0    X0+B6       CONVERT ORDINAL TO INDEX                    DECL     1013
                                   0              ERRNZ  3-Z=TURP                                                DECL     1014
                          5110000000 X            SA1    T.VDIM                                                  DECL     1015
           560  36217                             IX2    X1+X7       STARTING POINT, CURRENT VD. EXPRESSION      DECL     1016
                     36110                        IX1    X1+X0       STARTING POINT, TO BE TESTED VD. EXPRESSION DECL     1017
                          37070                   IX0    X7-X0       INTERMEDIATE OFFSET                         DECL     1018
                               66610              =B6    1           LOOP COUNTER                                DECL     1019
           561  53110                             SA1    X1          PRE-FETCH TO BE TESTED VD.                  DECL     1020
                     53220                        SA2    X2          PRE-FETCH CURRENT VD.                       DECL     1021
                          54421                   =A4    A2-OR.OPR+OR.1OP                                        DECL     1022
                               20461              SBIT   X4,TP.INTRP                                             DECL     1023
           562  0324000563 +                      PL     X4,OVS3     IF NOT INTERMEDIATE                         DECL     1024
                          7100000000              SX0    0           IF FIRST TURPLE IS INTERMEDIATE, NO OFFSET  DECL     1025
                                                                                                                 DECL     1026
           563  0462000576 +             OVS3     EQ     B6,B2,OVS9  IF LAST (STORE) TURPLE                      DECL     1027
                          54311                   =A3    A1-OR.OPR+OR.1OP                                        DECL     1028
                               54421              =A4    A2-OR.OPR+OR.1OP                                        DECL     1029
           564  37112                             IX1    X1-X2                                                   DECL     1030
                     0311000554 +                 NZ     X1,OVS1     IF OPERATORS DONT MATCH                     DECL     1031
                               22504              LX5    X4                                                      DECL     1032
           565  20561                             SBIT   X5,TP.INTRP                                             DECL     1033
                     0325000567 +                 PL     X5,OVS5     IF NOT INTERMEDIATE                         DECL     1034
                               20420              LX4    -TP.ORDP                                                DECL     1035
           566  37440                             IX4    X4-X0       ADJUST BY OFFSET                            DECL     1036
                     20454                        LX4    TP.ORDP                                                 DECL     1037
           567  37334                    OVS5     IX3    X3-X4                                                   DECL     1038
                     0313000554 +                 NZ     X3,OVS1     IF 1OPS DONT MATCH                          DECL     1039
                               54331              =A3    A3-OR.1OP+OR.2OP                                        DECL     1040
           570  54441                             =A4    A4-OR.1OP+OR.2OP                                        DECL     1041
                     22504                        LX5    X4                                                      DECL     1042
                          20561                   SBIT   X5,TP.INTRP                                             DECL     1043
           571  0325000573 +                      PL     X5,OVS7     IF NOT INTERMEDIATE                         DECL     1044
                          20420                   LX4    -TP.ORDP                                                DECL     1045
                               37440              IX4    X4-X0       ADJUST BY OFFSET                            DECL     1046
           572  20454                             LX4    TP.ORDP                                                 DECL     1047
           573  37334                    OVS7     IX3    X3-X4                                                   DECL     1048
                     0313000554 +                 NZ     X3,OVS1     IF 2OPS DONT MATCH                          DECL     1049
           574  5011000003                        =A1    A1+Z=TURP                                               DECL     1050
                          5022000003              =A2    A2+Z=TURP                                               DECL     1051
           575  66661                             =B6    B6+1                                                    DECL     1052
                     0400000563 +                 EQ     OVS3        CONTINUE LOOP                               DECL     1053
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    23
        *DIMENSION* AND ARRAY DECLARATIONS.                           OVS 
  
                                                                                                                 DECL     1054
                                        *         ONLY CHECK OPERATOR AND FIRST OPERAND OF STORE TURPLE          DECL     1055
                                                                                                                 DECL     1056
           576  54311                    OVS9     =A3    A1-OR.OPR+OR.1OP                                        DECL     1057
                     54421                        =A4    A2-OR.OPR+OR.1OP                                        DECL     1058
                          37112                   IX1    X1-X2                                                   DECL     1059
           577  0311000554 +                      NZ     X1,OVS1     IF OPERATORS DONT MATCH                     DECL     1060
                          22504                   LX5    X4                                                      DECL     1061
                               20561              SBIT   X5,TP.INTRP                                             DECL     1062
           600  0325000602 +                      PL     X5,OVS11    IF NOT INTERMEDIATE                         DECL     1063
                          20420                   LX4    -TP.ORDP                                                DECL     1064
                               37440              IX4    X4-X0       ADJUST BY OFFSET                            DECL     1065
           601  20454                             LX4    TP.ORDP                                                 DECL     1066
           602  37334                    OVS11    IX3    X3-X4                                                   DECL     1067
                     0313000554 +                 NZ     X3,OVS1     IF 1OPS DONT MATCH                          DECL     1068
                                                                                                                 DECL     1069
                                        *         WE HAVE A MATCH, EXCEPT FOR VD. (WHICH CANT).  USE THE         DECL     1070
                                        *         TESTED VD. EXPRESSION                                          DECL     1071
                                                                                                                 DECL     1072
           603  5053000001                        SA5    A3-OR.1OP+OR.2OP                                        DECL     1073
                          10677                   SHRINK T=VDIM,X7   TRASH CURRENT VD. EXPRESSION                DECL     1074
                          0400000617 +            EQ     OVS20                                                   DECL     1075
                                                                                                                 DECL     1076
           605  5150000623 +             OVS15    SA5    OVSB                                                    DECL     1077
                          5120000000 X            SA2    N.VD                                                    DECL     1078
           606  73721                             =X7    X2+1        INCREMENT VD. COUNTER                       DECL     1079
                     54720                        SA7    A2                                                      DECL     1080
                          5110000622 +            SA1    OVSA        NUMBER OF TURPLES * Z=TURP                  DECL     1081
           607  5120000000 X                      SA2    T=VDIM                                                  DECL     1082
                          7100000003              SX0    Z=TURP                                                  DECL     1083
           610  7262777775                        =X6    X2-OR.2OP+OR.1OP-1                                      DECL     1084
                          37221                   IX2    X2-X1       STARTING POSITION                           DECL     1085
                               20644              LX6    VD.INDP                                                 DECL     1086
           611  27101                             IX1    X1/X0,B7    CONVERT LENGTH TO NUMBER OF TURPLES         DECL     1087
           613  7100000003                        SX0    Z=TURP                                                  DECL     1088
                          27202                   IX2    X2/X0,B7    CONVERT STARTING POSITION TO ORDINAL        DECL     1089
                                                  LX1    VD.LENP                                                 DECL     1090
                     20222                        LX2    VD.PNTP                                                 DECL     1091
                          12661                   BX6    X6+X1       IND + LEN                                   DECL     1092
                               12662              BX6    X6+X2       IND + PNT + LEN                             DECL     1093
           616  5110000000 X                      ADDWD  T.VDI                                                   DECL     1094
           617  22705                    OVS20    LX7    X5                                                      DECL     1095
                     43601                        CLAS=  X6,DM,(TD)                                              FC5A231    97
                               20720              HX7    TP.BIAS                                                 DECL     1097
           620  21744                             AX7    -TP.BIASL   EXTRACT VD. INDEX                           DECL     1098
                                                  LX7    DM.INFP                                                 FC5A231    98
                     12767                        BX7    X6+X7       DIMENSION DESCRIPTOR                        DECL     1100
                          7160000000              SX6    0                                                       DECL     1101
           621  5160000622 +                      SA6    OVSA        CLEAR TURPLE COUNT                          DECL     1102
                          0400000540 +            EQ     EXIT.                                                   DECL     1103
                                                                                                                 DECL     1104
           622  00000000000000000000     OVSA     CON    0           TURPLE COUNT FOR VD. (* Z=TURP)             DECL     1105
           623                     1     OVSB     BSS    1           SAVE VD. OPERAND DURING SQUEEZE             DECL     1106
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    24
        *DIMENSION* AND ARRAY DECLARATIONS.                           OVT 
  
                                        **        OVT -  OUTPUT VARIABLE DIMENSION TURPLE (VD.PL OR VD.MI)       DECL     1108
                                        *                                                                        DECL     1109
                                        *         ENTRY  (X4) = OR.1OP                                           DECL     1110
                                        *                (X5) = OR.2OP                                           DECL     1111
                                        *                (B3) = TURPLE TO OUTPUT                                 DECL     1112
                                        *                                                                        DECL     1113
                                        *         EXIT   (X4) = INTERMEDIATE (TP. FORMAT)                        DECL     1114
                                        *                                                                        DECL     1115
                                        *         USES   A1,A2,A7  B3  X1,X2,X4,X7                               DECL     1116
                                        *                                                                        DECL     1117
                                        *         CALLS  EMT                                                     DECL     1118
                                                                                                                 DECL     1119
                                                                                                                 DECL     1120
           624  0400400624 +             OVT      SUBR               ...ENTRY/EXIT...                            DECL     1121
           625  5110000000 X                      EMIT   B3,*,T.VDIM                                             DECL     1122
           627  5120000000 X                      SA2    T=VDIM                                                  DECL     1123
                          5110000622 +            SA1    OVSA                                                    DECL     1124
           630  7170000003                        SX7    Z=TURP                                                  DECL     1125
                          37227                   IX2    X2-X7       FORM THE INTERMEDIATE INDEX                 DECL     1126
                               36717              IX7    X1+X7       INCREMENT TURPLE COUNT                      DECL     1127
           631  54710                             SA7    A1                                                      DECL     1128
                     20254                        LX2    TP.ORDP                                                 DECL     1129
                          7140002002              CLAS=  X4,TP,(INTR),INT                                        DECL     1130
           632  12424                             BX4    X2+X4       ORD + INTR + MODE                           DECL     1131
                     0400000624 +                 EQ     EXIT.                                                   DECL     1132
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    25
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  EQS 
  
                                        **        EQS -  PROCESS "EQUIVALENCE" DECLARATION.                      DECL     1135
                                        *                                                                        DECL     1136
                                        *         PERFORMS SYNTAX CHECKING OF THE STATEMENT, AND TRANSLATES THE  DECL     1137
                                        *         EQUIVALENCES INTO T.EQUS TO AWAIT THE CLOSE OF DECLARATIVES.   DECL     1138
                                        *                                                                        DECL     1139
                                        *         EXIT   TO FRONT END CONTROLLER.                                DECL     1140
                                        *                                                                        DECL     1141
                                        *         SEE ANSI 8.2                                                   DECL     1142
                                                                                                                 DECL     1143
                                                                                                                 DECL     1144
           633                                    HEREIF EQUIVALENCE                                             DECL     1145
                                                                                                                 DECL     1146
           633  7160000055                        =X6    CR.DEC                                                  DECL     1147
                          5160000000 X            SA6    REFVAR      SET REFERENCE TYPE                          DECL     1148
           634  67441                             SB4    B4-B1                                                   DECL     1149
                                                                                                                 DECL     1150
                                        **        BEGIN NEW EQUIVALENCE GROUP.                                   DECL     1151
                                        *                (B4) _ LPAREN IN FRONT OF GROUP.                        DECL     1152
                                                                                                                 DECL     1153
           635  56141                    EQS10    SA1    B4+B1                                                   DECL     1154
                     66441                        SB4    B4+B1       ADVANCE B4 TO 1ST SYMBOL                    DECL     1155
                          0301000000 X            ZR     X1,E.MR3    IF *EOS* - ERROR                            DECL     1156
           636  6271777740                        SB7    X1-O.(                                                  DECL     1157
                          76610                   SX6    B1                                                      DECL     1158
           637  5160000721 +                      SA6    EQSR        (EQSR) = GROUP COUNT = 1                    DECL     1159
                          0570000000 X            NZ     B7,E.EQ1    IF NO *(* - ERROR                           DECL     1160
                                                                                                                 DECL     1161
                                                                                                                 DECL     1162
                                        **        NOW PROCESS A NAME.                                            DECL     1163
                                        *                (B4) _ SYMBOL                                           DECL     1164
                                                                                                                 DECL     1165
           640  56141                    EQS20    SA1    B4+B1                                                   DECL     1166
                     66441                        SB4    B4+B1                                                   DECL     1167
                          10611                   BX6    X1                                                      DECL     1168
                               66200              =B2    0           ENTRY (VALUE.) NOT ALLOWED                  DECL     1169
           641  5160000000 X                      SA6    FILL.       SAVE NAME FOR (POSSIBLE) ERROR MESSAGE      DECL     1170
                          0100000000 X            CALL   TRV         TRANSLATE VARIABLE                          DECL     1171
           642  0330000715 +                      MI     X0,EQS80    IF TRV DETECTED ERROR                       DECL     1172
                          55321                   =A3    A2-WB.W+WA.W                                            FC5A192    60
                               43601              CLAS=  X6,WA,NFP                                               FC5A192    61
                     12636                        BX6    X3+X6                                                   FC5A192    62
                          54630                   SA6    A3          NFP[WA] = 1                                 FC5A192    63
           644  5130002564 +                      CLAS=  X3,WB,(NVAR,LAB,FP,NLST,DEXT,ENT,PARM,EXT)              DECL     1173
                          7110000011              =X1    WB.EQVP                                                 DECL     1174
           645  0100000000 X                      CALL   CCT         CHECK FOR CONFLICTING CLASS                 DECL     1175
           646  0330000715 +                      MI     X0,EQS80    IF CLASS CONFLICT                           DECL     1176
                          5140000721 +            SA4    EQSR                                                    DECL     1177
           647  22604                             LX6    X4                                                      FC50757    10
                     10722                        BX7    X2                                                      DECL     1179
                          76170                   SX1    B7                                                      DECL     1180
                               20660              LX6    EQ.LINKP                                                FC50757    11
           650  5170000206 +                      SA7    EQSB        SAVE SYMTAB PROPERTIES (WB)                 DECL     1181
                          12661                   BX6    X6+X1       MERGE GROUP FLAG WITH SYMTAB WB INDEX       FC50757    12
                               73741              SX7    X4+B1                                                   DECL     1183
           651  54740                             SA7    A4          (EQSR) = (EQSR) + 1                         DECL     1184
                     5110000000 X                 ADDWD  T.EQUS      1ST WORD TO TABLE                           DECL     1185
           653  7262777776                        SX6    X2-1        HDIND = (T=EQUS) - 1                        DECL     1186
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    26
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  EQS 
  
                          5160000205 +            SA6    EQSH        (EQSH) = INDEX OF 1ST WORD                  DECL     1187
           654  56441                             SA4    B4+B1                                                   DECL     1188
                     66441                        SB4    B4+B1       ADVANCE B4                                  DECL     1189
                          6264777740              SB6    X4-O.LP                                                 DECL     1190
           655  43600                             MX6    0                                                       DECL     1191
                     5160000207 +                 SA6    EQSS        (EQSS) = SUBSCRIPT COUNT = 0                DECL     1192
           656  5120000206 +                      SA2    EQSB                                                    DECL     1193
                                                  HX4    TB.COL                                                  DECL     1196
                          20261                   HX2    WB.ARY                                                  DECL     1197
           657  0560000662 +                      NZ     B6,EQS25    IF NOT LEFT PAREN                           DECL     1198
                          0324000664 +            PL     X4,EQS40    IF NO COLON IMBEDED                         DECL     1199
           660  5110000000 X                      ADDWD  T.EQUS      FAKE SUBSCRIPT OF ZERO                      DECL     1200
           661  0400000677 +                      EQ     EQS60       BEFORE GO OFF TO SUB-STRING PROCESSING      DECL     1201
                                                                                                                 DECL     1202
           662  5110000000 X             EQS25    ADDWD  T.EQUS      FAKE SUBSCRIPT OF ZERO                      FC5A217     5
           663  0400000705 +                      EQ     EQS65                                                   DECL     1206
                                                                                                                 DECL     1207
                                                                                                                 DECL     1208
                                        **        PROCESS SUBSCRIPT.                                             FC50299    13
                                                                                                                 DECL     1210
           664  5110000205 +             EQS40    SA1    EQSH        1ST WORD INDEX                              FC50299    14
                          5120000000 X            SA2    T.EQUS                                                  FC50299    15
           665  63710                             SB7    X1                                                      FC50299    16
                     53127                        SA1    X2+B7       FETCH ITEM 1ST WORD                         FC50299    17
                          43201                   CLAS=  X2,EQ,(ISUB)                                            FC50299    18
           666  12612                             BX6    X1+X2       MERGE IN SUBSCRIPTED INDICATOR              FC50299    19
                     54610                        SA6    A1          UPDATE                                      FC50299    20
                          6144000001              SB4    B4+1        ADVANCE *TB* POINTER                        FC50299    21
           667  0100000000 X                      CALL   PIX         PARSE THE SUBSCRIPT                         DECL     1213
           670  5150000207 +                      SA5    EQSS        SUBSCRIPT COUNT = (EQSS)                    DECL     1214
                          7245777767              SX4    X5-MAX.DIM-1                                            DECL     1215
           671  73751                             SX7    X5+B1                                                   DECL     1216
                     54750                        SA7    A5          (EQSS) = (EQSS) + 1                         DECL     1217
                          43014                   MX0    -EQ.SUBSL                                               FC50757    13
                                                  LX6    -EQ.SUBSP                                               FC50757    14
                               15660              BX6    -X0*X6      TRUNCATE TO EQ.SUBS (IF NEGATIVE)           FC50757    15
                                                  LX6    EQ.SUBSP                                                FC50757    16
           672  5110000000 X                      ADDWD  T.EQUS      ADD SUBSC TO TABLE                          DECL     1219
           673  56140                             SA1    B4                                                      DECL     1220
                     7221777735                   SX2    X1-O.COMMA                                              DECL     1221
           674  6271777737                        SB7    X1-O.)                                                  DECL     1222
                          0324000000 X            PL     X4,E.EQ4    IF TOO MANY SUBSCRIPTS                      DECL     1223
           675  0302000664 +                      ZR     X2,EQS40    IF COMMA, MORE SUBSCRIPTS                   DECL     1224
                          0570000000 X            NZ     B7,E.EQ3    IF NO RPAREN, ERROR                         DECL     1225
           676  56441                             SA4    B4+B1                                                   DECL     1226
                     66441                        SB4    B4+B1                                                   DECL     1227
                                                                                                                 DECL     1228
                                        *         PROCESS (POSSIBLE) SUBSTRING.                                  DECL     1229
                                                                                                                 DECL     1230
           677  6234777740               EQS60    SB3    X4-O.LP                                                 DECL     1231
                          0530000705 +            NE     B3,EQS65    IF NOT LEFT PAREN                           DECL     1232
           700  5110000205 +                      SA1    EQSH                                                    DECL     1233
                          5120000000 X            SA2    T.EQUS                                                  DECL     1234
           701  36312                             IX3    X1+X2                                                   DECL     1235
                     53130                        SA1    X3          SYMIND = SYMI[T.EQUS( (EQSH) )              DECL     1236
                          0100002441 +            RJ     PKS         PARSE CONSTANT SUBSTRING                    DECL     1237
           702  5110000205 +                      SA1    EQSH                                                    DECL     1238
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    27
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  EQS 
  
                          5120000000 X            SA2    T.EQUS                                                  DECL     1239
           703  36112                             IX1    X1+X2                                                   DECL     1240
                     20536                        LX5    EQ.STFP                                                 DECL     1241
                          53110                   SA1    X1          EQI = T.EQUS(EQIND)                         DECL     1242
                               12615              BX6    X1+X5                                                   DECL     1243
           704  54610                             SA6    A1          STF[EQI] = SUBSTRING-FIRST                  DECL     1244
                     56440                        SA4    B4                                                      DECL     1245
                                                                                                                 DECL     1246
                                        **        END OF EQUIVALENCE ITEM.                                       DECL     1247
                                        *                (X4) = NEXT *SB* ENTRY.                                 DECL     1248
                                        *                (B4) _ COMMA, AFTER THE SYMBOL, OR                      DECL     1249
                                        *                       RPAREN, TERMINATING THE GROUP.                   DECL     1250
                                                                                                                 DECL     1251
           705  6274777735               EQS65    SB7    X4-O.COMMA                                              DECL     1252
                          7234777737              SX3    X4-O.)                                                  DECL     1253
           706  0470000640 +                      ZR     B7,EQS20    IF COMMA, GET MORE NAMES                    DECL     1254
                          0313000000 X            NZ     X3,E.EQ     IF NO RIGHT PAREN ... ERROR                 DECL     1255
                                                                                                                 DECL     1256
                                                                                                                 DECL     1257
                                        **        CLOSE OUT AN EQUIVALENCE GROUP.                                DECL     1258
                                        *                CHECK FOR TRIVAL GROUP.                                 DECL     1259
                                        *                SYNTAX CHECK FOR COMMA OR *EOS*.                        DECL     1260
                                                                                                                 DECL     1261
           707  5120000721 +                      SA2    EQSR                                                    DECL     1262
                          63620                   SB6    X2                                                      DECL     1263
                               66711              =B7    2                                                       DECL     1264
           710  56441                             =A4    B4+1                                                    DECL     1265
                     0776000712 +                 GT     B6,B7,EQS70 IF MORE THAN ONE MEMBER IN GROUP            DECL     1266
           711  6170000000 X                      WARN   E.EQ6       TRIVIAL GROUP - WARNING                     DECL     1267
                                                                                                                 FC50299    22
           712  66441                    EQS70    SB4    B4+B1       ADVANCE B4                                  DECL     1268
                     6274777735                   SB7    X4-O.COMMA                                              DECL     1269
           713  0470000635 +                      ZR     B7,EQS10    IF COMMA                                    DECL     1270
                          0314000000 X            NZ     X4,E.EQ2    IF NOT *EOS*                                DECL     1271
                                   0              ERRNZ  O.EOS                                                   DECL     1272
           714  0400000000 X                      EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...             DECL     1273
                                                                                                                 DECL     1274
                                                                                                                 DECL     1275
                                        **        RETURN TO HERE WHEN AN ERROR IS FOUND.                         DECL     1276
                                        *                SEARCH FOR AN LPAREN IN ATTEMPT TO RECOVER FROM THE     DECL     1277
                                        *                ERROR, AND RESUME SYNTAX CHECKING.                      DECL     1278
                                                                                                                 DECL     1279
           715                           EQS80    BSSENT 0           ...RETURN FROM ERROR PROCESSOR              DECL     1280
           715  56141                             SA1    B4+B1                                                   DECL     1281
                     66441                        SB4    B4+B1                                                   DECL     1282
                          0301000000 X            ZR     X1,FEC.RTN  IF *EOS*                                    DECL     1283
                                   0              ERRNZ  O.EOS                                                   DECL     1284
           716  20106                             LX1    CHAR                                                    DECL     1285
                     7211777740                   SX1    X1-O.(                                                  DECL     1286
           717  0311000715 +                      NZ     X1,EQS80    IF NO LPAREN                                DECL     1287
                          67441                   SB4    B4-B1                                                   DECL     1288
           720  0400000635 +                      EQ     EQS10       TRY FOR MORE                                DECL     1289
                                                                                                                 DECL     1290
                                 206 +   EQSB     EQU    DIRT        CELL TO SAVE SYMTAB WORD WB                 DECL     1291
                                 205 +   EQSH     EQU    DIRS        CELL TO SAVE T.EQUS INDEX OF FIRST WORD     DECL     1292
                                 207 +   EQSS     EQU    DIRI        CELL TO SAVE SUBSCRIPT COUNT                DECL     1293
           721                     1     EQSR     BSS    1           CELL TO SAVE GROUP MEMBER COUNT             DECL     1294
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    28
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  EXT 
  
                                        **        EXT -  PROCESS "EXTERNAL" DECLARATION.                         DECL     1296
                                        *                                                                        DECL     1297
                                        *         EXIT   TO FRONT END CONTROLLER.                                DECL     1298
                                        *                                                                        DECL     1299
                                        *         SEE ANSI 8.7                                                   DECL     1300
                                                                                                                 DECL     1301
                                                                                                                 DECL     1302
           722                                    HEREIF EXTERNAL                                                DECL     1303
                                                                                                                 DECL     1304
           722  5120002565 +                      CLAS=  X2,WB,(DEXT,EXT,NVAR)                                   DECL     1305
                          10622                   BX6    X2                                                      DECL     1306
           723  5160000000 +                      SA6    EXTA        INDICATE *EXTERNAL* STATEMENT               DECL     1307
           724  56140                    EXT1     SA1    B4                                                      DECL     1308
                     0301000000 X                 ZR     X1,E.EX3    IF NO NEXT ITEM - ERROR                     DECL     1309
                               43052              MX0    CH.DPCL                                                 DECL     1310
           725  6221777766                        SB2    X1-O.VAR                                                DECL     1311
                          11601                   BX6    X0*X1       ELEMENT ONLY.                               DECL     1312
           726  5160000000 X                      SA6    FILL.       IN CASE OF ERROR.                           DECL     1314
                          0520000000 X            NZ     B2,E.VA09   IF NOT VARIABLE                             FC50110    11
           727  56141                             =A1    B4+1                                                    FC50110    12
                     66441                        =B4    B4+1                                                    DECL     1318
                          6271777766              SB7    X1-O.VAR                                                DECL     1322
           730  0570000733 +                      NZ     B7,EXT6     IF NOT LONG NAME                            DECL     1323
                          67441                   =B4    B4-1                                                    DECL     1324
           731  0100000000 X                      CALL   TLV         TRUNCATE NAME                               DECL     1325
           732  66441                             =B4    B4+1                                                    DECL     1326
           733  0100000000 X             EXT6     CALL   SSY         SCAN SYMBOL TABLE                           DECL     1327
           734  0770000751 +                      MI     B7,EXT10    IF *NIT*                                    DECL     1328
                          10122                   BX1    X2                                                      DECL     1329
                               20145              SBIT   X1,WB.DEXTP                                             DECL     1330
           735  0321000740 +                      PL     X1,EXT7     IF NOT DEFINED EXTERNAL                     DECL     1331
                          6170000000 X            WARN   E.EX1                                                   DECL     1332
           737  0400000754 +                      EQ     EXT15       CONTINUE.                                   DECL     1333
                                                                                                                 DECL     1334
           740  20111                    EXT7     SBIT   X1,WB.ENTP/WB.DEXTP                                     DECL     1335
                     0321000743 +                 PL     X1,EXT8     IF NOT EXTERNAL                             FC5A444   109
           741  6170000000 X                      WARN   E.EX4                                                   DECL     1337
           742  0400000754 +                      EQ     EXT15       CONTINUE                                    DECL     1338
                                                                                                                 FC5A444   110
           743  20165                    EXT8     SBIT   X1,WB.ALP/WB.ENTP                                       FC5A444   111
                     0321000745 +                 PL     X1,EXT9     IF AUTOMATIC LEVEL OFF                      FC5A444   112
           744  5110002566 +                      CLAS=  X1,WB,(AL,LEV)                                          FC5A444   113
                          15221                   BX2    -X1*X2      CLEAR AL AND LEV FOR EXTERNAL SYMBOL        FC5A444   114
                                                                                                                 DECL     1339
           745  5130002567 +             EXT9     CLAS=  X3,WB,(LAB,VAR,INTF,GENF,ENT,PARM)                      DECL     1340
                          7110000026              SX1    WB.DEXTP                                                DECL     1341
           746  0100000000 X                      CALL   CCT         CHECK FOR CONFLICTING CLASS                 DECL     1342
           747  0330000754 +                      MI     X0,EXT15    IF CLASS CONFLICT                           DECL     1343
                          5130000000 +            SA3    EXTA                                                    DECL     1344
           750  12732                             BX7    X3+X2       MERGE *EXTERNAL* PROPERTY BITS              DECL     1345
                     54720                        SA7    A2                                                      DECL     1346
                          0400000754 +            EQ     EXT15       CONTINUE.                                   DECL     1347
                                                                                                                 DECL     1348
           751  0100000000 X             EXT10    CALL   STY         SET NATURAL TYPE                            DECL     1349
           752  5130000000 +                      SA3    EXTA                                                    DECL     1350
                          12731                   BX7    X3+X1                                                   DECL     1351
           753  5110000000 X                      ADSYM  T.SYM                                                   DECL     1352
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    29
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  EXT 
  
                                                                                                                 DECL     1353
           754  10600                    EXT15    =X6    X0          CONSTRUCT XREF ORD                          DECL     1354
                     20652                        LX6    XR.TAGP                                                 DECL     1355
                          7110000055              ADDREF X6,CR.SUB                                               DECL     1356
           756  56140                             SA1    B4                                                      DECL     1357
                     66441                        SB4    B4+B1                                                   DECL     1358
                          7221777735              SX2    X1-O.COMMA                                              DECL     1359
           757  0302000724 +                      ZR     X2,EXT1     IF NO *EOS*                                 DECL     1360
                          0301000000 X            ZR     X1,FEC.RTN  IF COMPLETE                                 DECL     1361
           760  67441                             =B4    B4-1                                                    DECL     1362
                     6170000000 X                 FATAL  E.EX2                                                   DECL     1363
                                                                                                                 DECL     1364
                                        **        HERE IF SYNTAX ERROR ENCOUNTERED                               DECL     1365
                                        *         ADVANCE TILL NEXT SEPARATOR FOUND AND CONTINUE.                DECL     1366
                                                                                                                 DECL     1367
           762  56140                    EXT20    SA1    B4                                                      DECL     1368
                     7221777735                   SX2    X1-O.COMMA                                              DECL     1369
           763  0302000724 +                      ZR     X2,EXT1     IF COMMA AFTER ERROR                        DECL     1370
                          66441                   SB4    B4+B1                                                   DECL     1371
           764  0311000762 +                      NZ     X1,EXT20    CONTINUE.                                   DECL     1372
                          0400000000 X            EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER                DECL     1373
                                                                                                                 DECL     1374
                                   0 +   EXTA     EQU    DIMI        HOLDS PROPERTY BITS FOR SYMTAB (WB)         DECL     1375
  
  
  
  
                                        **        INT -  PROCESS "INTRINSIC" DECLARATION                         DECL     1377
                                        *                                                                        DECL     1378
                                        *         EXIT   TO FRONT END CONTROLLER                                 DECL     1379
                                        *                                                                        DECL     1380
                                        *         SEE ANSI 8.8                                                   DECL     1381
                                                                                                                 DECL     1382
                                                                                                                 DECL     1383
           765                                    HEREIF INTRINSIC                                               DECL     1384
                                                                                                                 DECL     1385
           765  56140                    INT1     SA1    B4          FETCH INTRINSIC                             DECL     1386
                     6221777766                   SB2    X1-O.VAR                                                DECL     1387
           766  0520000000 X                      NZ     B2,E.IN     IF NOT INTRINSIC                            DECL     1388
                          73210                   SX2    X1                                                      DECL     1389
                               37112              IX1    X1-X2       NAME ONLY                                   DECL     1390
           767  10611                             BX6    X1                                                      DECL     1391
                     5160000000 X                 SA6    FILL.                                                   DECL     1392
           770  0100000000 X                      CALL   SLT         SCAN LIBRARY TABLE                          DECL     1393
           771  66520                             SB5    B2          SAVE F.INTF INDEX                           DECL     1394
                     0620000774 +                 PL     B2,INT2     IF IN INTRINSIC TABLE                       DECL     1395
           772  6170000000 X                      FATAL  E.IN1                                                   DECL     1396
           773  0400001015 +                      EQ     INT10                                                   DECL     1397
                                                                                                                 DECL     1398
                                        *                (X3) = *WB* SYMTAB ENTRY                                DECL     1399
                                        *                (X7) = *WC* SYMTAB ENTRY                                DECL     1400
                                                                                                                 DECL     1401
           774  22507                    INT2     LX5    X7          SAVE *WC*                                   DECL     1402
                     43701                        CLAS=  X7,WB,(INTF)                                            DECL     1403
                               12737              BX7    X3+X7       SAVE *WB* (CORRECT REGISTER FOR ESY)        DECL     1404
           775  0100000000 X                      CALL   SSY         SCAN SYMBOL TABLE                           DECL     1405
           776  0670001001 +                      PL     B7,INT5     IF ALREADY IN SYMBOL TABLE                  DECL     1406
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    30
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  INT 
  
                          10255                   BX2    X5                                                      DECL     1407
           777  0100000000 X                      ADSYM  A1          ENTER INTO SYMBOL TABLE                     DECL     1408
          1000  0400001015 +                      EQ     INT10                                                   DECL     1409
                                                                                                                 DECL     1410
                                        *                (X5) = *WC* SYMTAB ENTRY                                DECL     1411
                                        *                (X7) = *WB* SYMTAB ENTRY                                DECL     1412
                                                                                                                 DECL     1413
          1001  7110000027               INT5     SX1    WB.INTFP                                                DECL     1414
                          7130260040              CLAS=  X3,WB,(VAR,EXT,ENT,FP)                                  DECL     1415
          1002  0100000000 X                      CALL   CCT         CHECK CONFLICTS                             DECL     1416
          1003  0330001015 +                      MI     X0,INT10    IF CONFLICT                                 DECL     1417
                          22002                   LX0    X2                                                      DECL     1418
                               20044              SBIT   X0,WB.INTFP                                             DECL     1419
          1004  0320001007 +                      PL     X0,INT6     IF NOT ALREADY INTRINSIC                    DECL     1420
                          6170000000 X            WARN   E.IN2                                                   DECL     1421
          1006  0400001015 +                      EQ     INT10                                                   DECL     1422
                                                                                                                 DECL     1423
                                        *                (B5) = F.INTF INDEX OF INTRINSIC                        DECL     1424
                                                                                                                 DECL     1425
          1007  20072                    INT6     SBIT   X0,WB.TYPP/WB.INTFP                                     DECL     1426
                     0320001014 +                 PL     X0,INT7     IF NOT TYPED                                DECL     1427
                               43071              MX0    -WB.MODEL                                               DECL     1428
          1010  15320                             BX3    -X0*X2      ISOLATE TYPED MODE                          DECL     1429
                                   0              ERRNZ  WB.MODEP                                                DECL     1430
                     5115000000 X                 SA1    B5+F.INTF   FETCH INTRINSIC TABLE ENTRY                 DECL     1431
                               15110              BX1    -X0*X1      ISOLATE INTRINSIC MODE                      DECL     1432
                                   0              ERRNZ  IT.MODEP                                                DECL     1433
                                   0              ERRNZ  IT.MODEL-WB.MODEL                                       DECL     1434
          1011  37313                             IX3    X1-X3                                                   DECL     1435
                     0303001014 +                 ZR     X3,INT7     IF CONFIRMING MODE                          DECL     1436
                               11202              BX2    X0*X2       CLEAR NON CONFIRMING MODE                   DECL     1437
          1012  36221                             IX2    X2+X1       REPLACE WITH INTRINSIC MODE                 DECL     1438
                     6170000000 X                 WARN   E.IN3                                                   DECL     1439
                                                                                                                 DECL     1440
          1014  10655                    INT7     BX6    X5          *WC*                                        DECL     1441
                     12727                        BX7    X2+X7       MERGE IN INTRINSIC BITS                     DECL     1442
                          54720                   SA7    A2          UPDATE *WB*                                 DECL     1443
                               54671              =A6    A7-WB.W+WC.W                                            DECL     1444
                                                                                                                 DECL     1445
          1015  56141                    INT10    =A1    B4+1                                                    DECL     1446
                     66441                        =B4    B4+1                                                    DECL     1447
                          6221777735              SB2    X1-O.COMMA                                              DECL     1448
          1016  0301000000 X                      ZR     X1,FEC.RTN  IF *EOS*                                    DECL     1449
                                   0              ERRNZ  O.EOS                                                   DECL     1450
                          0520000000 X            NZ     B2,E.IN4    IF NOT *COMMA*                              DECL     1451
          1017  66441                             =B4    B4+1                                                    DECL     1452
                     0400000765 +                 EQ     INT1        CONTINUE..                                  DECL     1453
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    31
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  LVL 
  
                                        **        LVL -  PROCESS "LEVEL" STATEMENT                               DECL     1455
                                        *                                                                        DECL     1456
                                        *         EXIT   TO FRONT END CONTROLLER.                                DECL     1457
                                                                                                                 DECL     1458
                                                                                                                 DECL     1459
          1020                                    HEREIF LEVEL                                                   DECL     1460
                                                                                                                 DECL     1461
          1020  6170000000 X                      ANSI   E.ANS                                                   DECL     1462
          1021  56440                             SA4    B4          LEVEL NUMBER                                FC5A231    99
                     43652                        MX6    CA.BNAML                                                DECL     1463
                          5160000000 X            SA6    LEVEL       FLAG LEVEL STATEMENT                        DECL     1464
          1022  5160000000 X                      SA6    SCSA        MASK FOR SCS                                DECL     1465
                          6224777772              SB2    X4-O.CONS                                               DECL     1467
          1023  6234777766                        SB3    X4-O.VAR                                                DECL     1468
                          0304000000 X            ZR     X4,E.LV1    IF PREMATURE E.O.S.                         DECL     1469
                                   0              ERRNZ  O.EOS                                                   DECL     1470
          1024  0420001035 +                      ZR     B2,LVL05    IF NUMBER                                   DECL     1471
                          0530000000 X            NZ     B3,E.LV1    IF NOT VARIABLE                             DECL     1472
                                                                                                                 DECL     1473
                                        *         CHECK FOR POSSIBLE SYMBOLIC CONSTANT.                          DECL     1474
                                                                                                                 DECL     1475
          1025  0100000000 X                      CALL   CSC         CHECK SYMBOLIC CONSTANT                     DECL     1476
          1026  0770000000 X                      MI     B7,E.LV1    IF VAR NOT SYMBOLIC CONSTANT                DECL     1477
                          7256000033              SX5    X6+1R0                                                  FC5A231   100
          1027  20052                             LX0    XR.TAGP                                                 FC50570    55
                     63510                        SB5    X1          SAVE MODE ACROSS ERT CALL                   FC50570    56
                          10466                   BX4    X6          SAVE BINARY ACROSS ERT                      FC50570    57
          1030  7110000055                        SX1    CR.DEC                                                  FC50570    58
                          10600                   ADDREF X0,X1       FOR PARAMETER                               FC50570    59
          1032  22604                             LX6    X4          RESTORE BINARY                              FC50570    60
                     0450001037 +                 ZR     B5,LVL10    IF MODE BOOLEAN                             FC50570    61
                                   0              ERRNZ  M.BOOL                                                  DECL     1481
          1033  6155777775                        SB5    B5-M.INT                                                FC50570    62
                          0450001037 +            ZR     B5,LVL10    IF MODE INTEGER                             FC50570    63
          1034  0400000000 X                      EQ     E.LV1                                                   DECL     1483
                                                                                                                 DECL     1484
          1035  43052                    LVL05    MX0    TB.TOCL                                                 DECL     1485
                                                  HX4    TB.TOC                                                  DECL     1486
                     11504                        BX5    X0*X4       ISOLATE TOKEN VALUE FOR THE NUMBER          DECL     1487
                          7160000033              SX6    1R0                                                     FC5A231   101
          1036  20506                             LX5    CHAR                                                    FC5A231   102
                     37656                        IX6    X5-X6       BINARY OF LEVEL NUMBER                      FC5A231   103
                                                                                                                 FC5A231   104
          1037  7120000036               LVL10    SX2    1R3                                                     DECL     1491
                          37125                   IX1    X2-X5       .MI. IFF (3 .LT. LEV)                       DECL     1492
                               12216              BX2    X1+X6                                                   FC5A231   105
          1040  0332000000 X                      MI     X2,E.LV1    IF (LEV .LT. 0) OR (LEV .GT. 3)             FC5A231   106
                          10766                   BX7    X6                                                      FC5A231   107
          1041  0316001042 +                      NZ     X6,LVL15    IF (LEV .NE. 0)                             FC5A231   108
                          7276000002              SX7    X6+2                                                    FC5A231   109
                                                                                                                 FC5A231   110
          1042  7227777775               LVL15    SX2    X7+.DAL-3                                               FC5A231   111
                                  -1              ERRPL  .DAL-2                                                  F1037F5   406
                          0332001044 +            MI     X2,LVL20    IF (LEVNO+.DAL) .LT. 3 THEN NOT LARGE CORE  DECL     1502
                                                                                                                 FC50570    64
                                         #MI      IFEQ   .MI,ON                                                  FC50570    65
                                                  NZ     X2,LVL19    IF LEVEL 3                                  F1037F5   408
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    32
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  LVL 
  
                                                  SA2    CO.TMLC                                                 FC50570    66
                                                  ZR     X2,LVL20    IF NO LCM                                   F1037F5   410
                                                                                                                 FC50570    67
                                         LVL19    BSS    0                                                       F1037F5   411
                                         #MI      ENDIF                                                          FC50570    68
                                                                                                                 F1037F5   412
          1043  5170000000 X                      SA7    LEVEL2      INDICATE THAT LARGE CORE VARIABLES APPEARED DECL     1503
                                                                                                                 FC50570    69
          1044  5160000000 +             LVL20    SA6    LVLA        REMEMBER (LVLA) = LEVNO                     DECL     1504
                                                                                                                 DECL     1505
                                        *         PROCESS COMMA FOLLOWING LEVEL NUMBER.                          DECL     1506
                                                                                                                 DECL     1507
                          56141                   =A1    B4+1                                                    DECL     1508
                               64411              =B4    A1+1                                                    DECL     1509
          1045  6221777735                        SB2    X1-O.COMMA                                              DECL     1510
                          0301000000 X            ZR     X1,E.LV3    IF PREMATURE E.O.S.                         DECL     1511
          1046  0420001051 +                      ZR     B2,LVL25    IF COMMA                                    DECL     1512
                          6170000000 X            WARN   E.LV2       MISSING COMMA                               DECL     1513
          1050  67441                             =B4    B4-1                                                    FC5A194     5
                                                                                                                 DECL     1514
                                        *         PROCESS VARIABLE/ARRAY LIST                                    DECL     1515
                                                                                                                 DECL     1516
          1051  56140                    LVL25    SA1    B4          FETCH NAME                                  DECL     1517
                     6221777766                   SB2    X1-O.VAR                                                DECL     1518
          1052  6231777760                        SB3    X1-O.SLASH                                              DECL     1519
                          6271777741              SB7    X1-O.CAT                                                DECL     1520
          1053  0420001055 +                      ZR     B2,LVL30    IF NAME                                     DECL     1521
                          0430001072 +            ZR     B3,LVL35    IF SLASH                                    DECL     1522
          1054  0470001067 +                      ZR     B7,LVL32    IF BLANK COMMON                             DECL     1523
                          0400000000 X            EQ     E.LV3       ERROR...                                    DECL     1524
                                                                                                                 DECL     1525
                                        *         PROCESS VARIABLE NAME.                                         DECL     1526
                                                                                                                 DECL     1527
          1055                           LVL30    BSS    0                                                       DECL     1528
          1055  43052                             MX0    WA.SYML                                                 DECL     1529
                     11601                        BX6    X0*X1                                                   DECL     1530
                          5160000000 X            SA6    FILL.       SAVE NAME FOR POSSIBLE ERROR MESSAGE        DECL     1531
          1056  6120000000                        SB2    0           ENTRY (VALUE.) NOT ALLOWED                  DECL     1532
                          0100000000 X            CALL   TRV         TRANSLATE VARIABLE                          DECL     1533
          1057  0330001116 +                      MI     X0,LVL90    IF TRV DETECTED ERROR                       DECL     1534
                          5130002570 +            CLAS=  X3,WB,(LAB,NVAR,PARM,DEXT,ENT,NLST,EXT)                 DECL     1535
          1060  20247                             SBIT   X2,WB.ALP                                               FC5A444   115
                     0322001062 +                 PL     X2,LVL31    IF AUTOMATIC LEVEL OFF                      FC5A444   116
          1061  5110002571 +                      CLAS=  X1,WB,(AL,LEV,LCM)                                      FC5A444   117
                          20147                   SBIT   X1,WB.ALP                                               FC5A444   118
                               15221              BX2    -X1*X2      CLEAR AL, LEV, LCM BITS                     FC5A444   119
                                                                                                                 FC5A444   120
          1062  20265                    LVL31    SBIT   X2,WB.LEVP/WB.ALP                                       FC5A444   121
                     0332000000 X                 MI     X2,E.LV4    IF ALREADY *LEVELED*                        DECL     1537
                               20234              LX2    1+WB.LEVP   RESTORE (X2)                                DECL     1538
          1063  7110000033                        =X1    WB.LEVP                                                 DECL     1539
                          0100000000 X            CALL   CCT         CHECK FOR CONFLICTING CLASS                 DECL     1540
          1064  0330001116 +                      MI     X0,LVL90    IF CLASS CONFLICT                           DECL     1541
                          5140000000 +            SA4    LVLA                                                    DECL     1542
          1065  20455                             LX4    WB.LEVNP                                                DECL     1543
                     5130002572 +                 CLAS=  X3,WB,(LEV,VAR)                                         DECL     1544
                               12443              BX4    X4+X3                                                   DECL     1545
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    33
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  LVL 
  
          1066  12624                             BX6    X2+X4       MERGE LEVEL NUMBER AND PROPERTY BITS        DECL     1546
                     54620                        SA6    A2          (LEV,LEVN,VAR)[WBI] = (1,LEVNO,1)[WB.]      DECL     1547
                          0400001116 +            EQ     LVL90                                                   DECL     1548
                                                                                                                 DECL     1549
                                        *         PROCESS BLOCK NAME.                                            DECL     1550
                                                                                                                 DECL     1551
          1067  5110002573 +             LVL32    SA1    =2H//       BLANK COMMON NAME FOR ERROR MESSAGE         DECL     1552
                          5140002557 +            SA4    =7L         BLANK COMMON NAME IN BLOCK TABLE            DECL     1553
          1070  7170000017                        SX7    O.SLASH                                                 DECL     1554
                          10611                   BX6    X1                                                      DECL     1555
                               56740              SA7    B4          REPLACE // WITH SLASH                       DECL     1556
          1071  67441                             SB4    B4-B1       AND DECREMENT TB POINTER                    DECL     1557
                     0400001077 +                 EQ     LVL50                                                   DECL     1558
                                                                                                                 DECL     1559
          1072                           LVL35    BSS    0                                                       DECL     1560
          1072  56141                             SA1    B4+B1                                                   DECL     1561
                     66441                        SB4    B4+B1                                                   DECL     1562
                          6221777766              SB2    X1-O.VAR                                                DECL     1563
          1073  0520000000 X                      NZ     B2,E.LV3    IF NOT ALPAHBETIC                           DECL     1564
                          56241                   SA2    B4+B1                                                   DECL     1565
          1074  6222777766                        SB2    X2-O.VAR                                                DECL     1566
                          0520001076 +            NZ     B2,LVL40    IF NOT LONG NAME                            DECL     1567
          1075  0100000000 X                      CALL   TLV                                                     DECL     1568
                                                                                                                 FC50570    70
          1076  73210                    LVL40    SX2    X1                                                      DECL     1569
                     37612                        IX6    X1-X2                                                   DECL     1570
                          10466                   BX4    X6                                                      DECL     1571
                                                                                                                 FC50570    71
          1077  5160000000 X             LVL50    SA6    FILL.       SAVE BLOCK NAME FOR ERROR MESSAGE           DECL     1572
                          5150000000 +            SA5    LVLA                                                    DECL     1573
          1100  20514                             LX5    CA.BLVLP                                                DECL     1574
                     10644                        BX6    X4                                                      DECL     1575
                          0305000000 X            ZR     X5,E.LV8    IF LEVEL 0 DECLARATION                      DECL     1576
          1101  5110000000 X                      SCAN   T.BLKS,SCS                                              DECL     1577
          1102  0770001105 +                      MI     B7,LVL70    IF BLOCK NOT ALREADY DECLARED               DECL     1578
                                                                                                                 DECL     1579
                                        *         CHECK FOR REDUNDANT BLOCK LEVEL DECLARATION.                   DECL     1580
                                        *         (X5) = LEVEL NUMBER                                            DECL     1581
                                                                                                                 DECL     1582
                          43072                   MX0    -CA.BLVLL                                               DECL     1583
                               20260              LX2    -CA.BLVLP                                               DECL     1584
          1103  15020                             BX0    -X0*X2      BLKLEV = BLVL[CAI]                          DECL     1585
                     20214                        LX2    CA.BLVLP                                                DECL     1586
                          0310000000 X            NZ     X0,E.LV7    IF BLKLEVL .NE. 0                           DECL     1587
          1104  12752                             BX7    X5+X2                                                   DECL     1588
                     54720                        SA7    A2          BLVL[CAI] = BLKLEV                          DECL     1589
                          0400001114 +            EQ     LVL80                                                   DECL     1590
                                                                                                                 DECL     1591
                                        *         COMMON BLOCK NOT BEING DECLARED YET, CREATE AN                 DECL     1592
                                        *         ENTRY FOR THIS BLOCK.                                          DECL     1593
                                                                                                                 DECL     1594
          1105  5110000000 X             LVL70    ALLOC  T.BLKS,Z=BLKS                                           DECL     1595
          1107  7232776030                        SX3    X2-MAX.BLK*Z=BLKS+1                                     DECL     1596
                          5110002557 +            SA1    =7L                                                     DECL     1597
          1110  13777                             BX7    0                                                       DECL     1598
                     12645                        BX6    X4+X5                                                   DECL     1599
                          5167777775              =A6    B7-Z=BLKS+CA.W    (BNAM,BLVL)[CAI] = (NAME,BLKLEV)[CA.] DECL     1600
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    34
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  LVL 
  
          1111  54761                             =A7    A6-CA.W+CB.W                                            DECL     1601
                     37441                        IX4    X4-X1                                                   DECL     1602
                          0323000000 X            PL     X3,E.CM2    IF TOO MANY BLOCKS                          DECL     1603
          1112  0314001114 +                      NZ     X4,LVL80    IF NOT BLANK COMMON                         DECL     1604
                          7272777775              SX7    X2-Z=BLKS   BLOCK ORD = LEN(T=BLKS) - Z=BLKS            DECL     1605
          1113  5170000000 X                      SA7    BLNKCOM                                                 DECL     1606
                                                                                                                 DECL     1607
          1114                           LVL80    BSSENT 0           ...RETURN FROM ERROR PROCESSOR              DECL     1608
          1114  56141                             =A1    B4+1                                                    DECL     1609
                     66441                        =B4    B4+1                                                    DECL     1610
                          6221777760              SB2    X1-O.SLASH                                              DECL     1611
          1115  0520000000 X                      NZ     B2,E.CM3    IF SLASH MISSING                            DECL     1612
                                                                                                                 DECL     1613
                                        *         CHECK NEXT SEPARATOR, LOOP FOR MORE ITEMS.                     DECL     1614
                                                                                                                 DECL     1615
          1116                           LVL90    BSSENT 0           ...RETURN FROM ERROR PROCESSOR              DECL     1616
          1116  56141                             =A1    B4+1                                                    DECL     1617
                     64411                        =B4    A1+1        B4 = B4 + 2                                 DECL     1618
                          6221777735              SB2    X1-O.COMMA                                              DECL     1619
          1117  0301000000 X                      ZR     X1,FEC.RTN  IF *EOS*                                    DECL     1620
                                   0              ERRNZ  O.EOS                                                   DECL     1621
                          0420001051 +            ZR     B2,LVL25    IF COMMA,CONTINUE PROCESSING LIST           DECL     1622
          1120  0400000000 X                      EQ     E.LV5       BAD SYNTAX                                  DECL     1623
                                                                                                                 DECL     1624
                                   0 +   LVLA     EQU    DIMI        HOLDS LEVEL NUMBER                          DECL     1625
  
  
  
  
                                        **        PROCESS "PARAMETER" STATEMENT.                                 DECL     1627
                                        *                                                                        DECL     1628
                                        *         EXIT   TO FRONT END CONTROLLER.                                DECL     1629
                                        *                                                                        DECL     1630
                                        *         SEE ANSI 8.6                                                   DECL     1631
                                                                                                                 DECL     1632
                                                                                                                 DECL     1633
          1121                                    HEREIF PARAMETER                                               DECL     1634
                                                                                                                 DECL     1635
          1121  56140                             SA1    B4                                                      DECL     1636
                     6221777740                   SB2    X1-O.LP                                                 DECL     1637
          1122  0420001124 +                      ZR     B2,PRM10    IF LEFT PAREN                               DECL     1638
                          6170000000 X            FATAL  E.PX2       INITIAL LEFT PAREN MISSING                  DECL     1639
          1124  66441                    PRM10    SB4    B4+B1                                                   DECL     1640
                                                                                                                 DECL     1641
                                        *         LOOP TO PROCESS INDIVIDUAL PARAMETER DECLARATIONS.             DECL     1642
                                        *         CURRENT TOKEN MUST BE O.VAR FOLLOWED BY O.=                    DECL     1643
                                                                                                                 DECL     1644
          1125  56140                    PRM20    SA1    B4                                                      DECL     1645
                     56241                        SA2    B4+B1                                                   DECL     1646
                          6221777766              SB2    X1-O.VAR                                                DECL     1647
          1126  0520000000 X                      NZ     B2,E.PX3    IF NO VARIABLE                              DECL     1648
                          6232777766              SB3    X2-O.VAR                                                FC5A231   112
          1127  0530001131 +                      NZ     B3,PRM21    IF NOT LONG NAME                            FC5A231   113
                          0100000000 X            CALL   TLV         TRUNCATE THE LONG NAME                      FC5A231   114
          1130  5124000001                        SA2    B4+1                                                    FC5A231   115
                                                                                                                 FC5A231   116
          1131  6232777736               PRM21    SB3    X2-O.=                                                  FC5A231   117
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    35
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  PARAM 
  
                          43052                   MX0    TB.TOCL                                                 DECL     1650
                                                  HX1    TB.TOC                                                  DECL     1651
                               11601              BX6    X0*X1                                                   DECL     1652
          1132  6144000001                        SB4    B4+1                                                    FC5A231   118
                          0530000000 X            NZ     B3,E.PX4    IF NO EQUAL SIGN                            DECL     1653
          1133  5160000000 +                      SA6    PRMA        (PRMA) = VARIABLE NAME                      DECL     1654
                                                                                                                 DECL     1656
                                        *         CALL PARSER TO EVALUATE THE EXPRESSION.  THE NAME IS NOT YET   DECL     1657
                                        *         IN THE SYMTAB, SO PAR WILL GIVE A DIAGNOSTIC IF IT IS USED ON  DECL     1658
                                        *         THE RIGHT HAND SIDE.                                           DECL     1659
                                                                                                                 DECL     1660
                          7160000007              SX6    PM=PARM     *PKX* STORES THIS INTO *PARMODE*            FC5A156    10
          1134  66441                             SB4    B4+B1                                                   DECL     1661
                     0100000000 X                 CALL   PKX         PARSE KONSTANT EXPRESSION                   DECL     1662
                                                                                                                 DECL     1663
          1135  73261                             SX2    X6+B1       CO1 = CONORD + 1                            DECL     1664
                     76560                        SX5    B6          CONLEN = LENGTH OF CONSTANT                 DECL     1665
                          0720001142 +            LT     B2,PRM28    IF MATERIAL CONSTANT                        FC51377     5
          1136  0420001145 +                      EQ     B2,PRM29    IF RESULT IS NOT A CONSTANT                 FC51377     6
                          5110000000 X            SCAN   T.CON,SCT                                               DECL     1667
          1140  76271                             SX2    B7+B1       CO1 = CONORD + 1                            DECL     1668
                     0670001142 +                 PL     B7,PRM28    IF THIS VALUE ALREADY PRESENT               DECL     1669
          1141  0100000000 X                      ADDWD  A1                                                      DECL     1670
                                                                                                                 DECL     1671
          1142  7262777776               PRM28    SX6    X2-1        CONORD = CO1 - 1                            DECL     1672
                                                  LX5    DI.DLENP                                                DECL     1673
                          76150                   SX1    B5          (DI.MODE) = CONMODE                         DECL     1674
                               20622              LX6    DI.PNTP                                                 DECL     1675
          1143  12765                             BX7    X6+X5                                                   DECL     1676
                     20166                        LX1    DI.MODEP                                                DECL     1677
                          12717                   BX7    X1+X7                                                   DECL     1678
          1144  5170000001 +                      SA7    PRMB        (PRMB) = (MODE,PNT,LEN) [DI.]               DECL     1679
                                                                                                                 DECL     1680
                                        *         NOW ENTER THE PARAMETER NAME IN THE SYMBOL TABLE.              DECL     1681
                                                                                                                 DECL     1682
          1145  5110000000 +             PRM29    SA1    PRMA                                                    FC51377     7
                          10611                   BX6    X1                                                      DECL     1684
          1146  5160000000 X                      SA6    FILL.       FOR POSSIBLE DIAGNOSTIC                     FC5A386     5
                          0100000000 X            CALL   SSY         SCAN SYMBOL TABLE                           DECL     1685
          1147  7170000700                        CLAS=  X7,WB,(PARM,DEF,NVAR)                                   DECL     1686
                          0770001155 +            MI     B7,PRM30    IF SYMBOL NOT IN TABLE                      DECL     1687
                                                                                                                 DECL     1688
                                        *         SYMBOL ALREADY IN TABLE.                                       DECL     1689
                                                                                                                 DECL     1690
          1150  10600                             BX6    X0                                                      DECL     1691
                     5160000002 +                 SA6    PRMC        SAVE THE SYMORD                             DECL     1692
          1151  7130200550                        CLAS=  X3,WB,(FP,VAR,NVAR,LAB,PARM)                            DECL     1693
                          7110000010              SX1    WB.PARMP                                                DECL     1694
          1152  0100000000 X                      CALL   CCT         CHECK CONFLICTING TYPE                      DECL     1695
          1153  0330001200 +                      MI     X0,PRM70    IF CONFLICT                                 DECL     1696
                          12672                   BX6    X7+X2       UPDATE SYMTAB ATTRIBUTES                    DECL     1697
                               54620              SA6    A2          (PARM,DEF,VAR) [WBI] = (1,1,1) [WB.]        DECL     1698
          1154  0400001161 +                      EQ     PRM40                                                   DECL     1699
                                                                                                                 DECL     1700
                                        *         SYMBOL NOT IN TABLE, CONSTRUCT AN ENTRY FOR IT.                DECL     1701
                                                                                                                 DECL     1702
          1155  0100000000 X             PRM30    CALL   STY         SET NATURAL TYPE                            DECL     1703
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    36
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  PARAM 
  
          1156  10511                             BX5    X1          REMEMBER (X5) = MODE                        DECL     1704
                     10422                        BX4    X2          REMEMBER (X4) = CLEN                        DECL     1705
                                                  LX1    WB.MODEP                                                DECL     1706
                          12717                   BX7    X1+X7       ADD IN NATURAL MODE                         DECL     1707
                               21436              AX4    WC.CLENP                                                DECL     1708
          1157  5110000000 X                      ADSYM  T.SYM       ADD TO SYMBOL TABLE                         DECL     1709
          1160  10700                             BX7    X0                                                      DECL     1710
                     5170000002 +                 SA7    PRMC        SAVE THE SYMORD                             DECL     1711
                                                                                                                 DECL     1712
          1161  5110000000 X             PRM40    SA1    PARAMC                                                  FC5A225    14
                          73611                   =X6    X1+1                                                    FC5A225    15
                               54610              SA6    A1          INCREMENT PARAMETER COUNT                   FC5A225    16
          1162  54321                             =A3    A2-WB.W+WC.W                                            FC5A225    17
                     20336                        HX3    WC.CTYP                                                 DECL     1714
                          43771                   MX7    -WB.MODEL                                               DECL     1715
                               21200              AX2    WB.MODEP                                                DECL     1716
          1163  15227                             BX2    -X7*X2      MODEI = MODE[WBI]                           DECL     1717
                     76411                        =X4    2           WDCNT = 2                                   DECL     1718
                          6232777771              SB3    X2-M.CHAR                                               DECL     1719
          1164  0333001170 +                      MI     X3,PRM50    IF WC.CTYP .EQ. 1                           DECL     1720
                          6222777773              SB2    X2-M.DBL                                                DECL     1721
                                                  LX3    WC.CTYPP+1-WC.CLENP                                     DECL     1722
          1165  0420001173 +                      ZR     B2,PRM60    IF DOUBLE                                   DECL     1723
                          0421001173 +            EQ     B2,B1,PRM60 IF COMPLEX                                  DECL     1724
                                   0              ERRNZ  M.CPLX-1-M.DBL                                          DECL     1725
          1166  76410                             =X4    1           WDCNT = 1                                   DECL     1726
                     0530001173 +                 NZ     B3,PRM60    IF NOT CHARACTER                            DECL     1727
                               43152              MX1    -WC.CLENL                                               DECL     1728
          1167  15431                             BX4    -X1*X3      WDCNT = CLEN[WCI]                           DECL     1729
                     0400001173 +                 EQ     PRM60                                                   DECL     1730
                                                                                                                 DECL     1731
          1170  5140002574 +             PRM50    CLAS=  X4,WC,(CTYP,CLEN)                                       DECL     1732
                          20336                   LX3    1+WC.CTYPP                                              DECL     1733
                               15734              BX7    -X4*X3      CLEAR (CTYP,CLEN) FILEDS                    DECL     1734
          1171  5110000001 +                      SA1    PRMB                                                    DECL     1735
                          21100                   AX1    DI.DLENP                                                DECL     1736
                               73410              SX4    X1          CONLEN = DLEN[PRMB]                         DECL     1737
                                   0              ERRNZ  18-DI.DLENL                                             DECL     1738
          1172  20436                             LX4    WC.CLENP                                                DECL     1739
                     12774                        BX7    X7+X4                                                   DECL     1740
                          54730                   SA7    A3          (CTYP,CLEN) [WCI] = (0,CONLEN)[WC.]         DECL     1741
                               20436              LX4    -WC.CLENP                                               DECL     1742
                                                                                                                 DECL     1743
                                        *         NOW THAT EXPRESSION AND NAME ARE BOTH AVAILABLE, CONVERT TYPE  DECL     1744
                                        *         ACCORDING TO ASSIGNMENT RULES, AND ENTER CONSTANT VALUE.       DECL     1745
                                        *         (X2) = DESIRED VARIABLE TYPE                                   DECL     1746
                                        *         (X4) = DESIRED VARIABLE LENGTH                                 DECL     1747
                                                                                                                 DECL     1748
          1173                           PRM60    BSS    0                                                       DECL     1749
          1173  5150000001 +                      SA5    PRMB        CONSTANT DESCRIPTOR = (PRMB)                DECL     1750
                          0100000000 X            CALL   CMV                                                     DECL     1751
          1174  21522                             AX5    DI.PNTP                                                 DECL     1752
                     73550                        SX5    X5          PNT = PNT[DI.]                              DECL     1753
                                   0              ERRNZ  18-DI.PNTL                                              DECL     1754
                          5110000002 +            SA1    PRMC        ORDI = (PRMC)                               DECL     1755
          1175  5120000000 X                      SA2    T.SYM                                                   DECL     1756
                          6221000002              =B2    X1+WC.W                                                 DECL     1757
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    37
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  PARAM 
  
          1176  22311                             LX3    X1,B1                                                   DECL     1758
                     63232                        SB2    X3+B2       STIND = 3 * ORDI                            DECL     1759
                                   0              ERRNZ  3-Z=SYM                                                 DECL     1760
                          53122                   SA1    X2+B2       WCI = T.SYM(STIND) + WC.W                   DECL     1761
                               43444              MX4    -WC.RAL                                                 DECL     1762
                                                  LX1    -WC.RAP                                                 DECL     1763
          1177  11741                             BX7    X4*X1                                                   DECL     1764
                     12775                        BX7    X7+X5                                                   DECL     1765
                                                  LX7    WC.RAP                                                  DECL     1766
                          54710                   SA7    A1          RA[WCI] = PNT                               DECL     1767
                                                                                                                 DECL     1768
          1200  5110000002 +             PRM70    SA1    PRMC        CONSTRUCT XREF ENTRY                        DECL     1769
                          20152                   LX1    XR.TAGP                                                 DECL     1770
                               10611              ADDREF X1,CR.STR                                               DECL     1771
                                                                                                                 DECL     1772
                                        *         FINISHED INDIVIDUAL PARAMETER.  CHECK FOR MORE DEFINITINONS,   DECL     1773
                                        *         OR STATEMENT TERMINATION.                                      DECL     1774
                                                                                                                 DECL     1775
          1203  56440                    PRM80    SA4    B4                                                      DECL     1776
                     66441                        SB4    B4+B1                                                   DECL     1777
                          6234777735              SB3    X4-O.COMMA                                              DECL     1778
          1204  6224777737                        SB2    X4-O.RP                                                 DECL     1779
                          0430001125 +            ZR     B3,PRM20    IF COMMA                                    DECL     1780
          1205  0520000000 X                      NZ     B2,E.PX5    IF NOT *)*                                  FC5A278    12
                          5114000000              SA1    B4+                                                     FC5A278    13
          1206  0311000000 X                      NZ     X1,E.PX8    IF NOT *EOS*                                FC5A278    14
                                   0              ERRNZ  O.EOS                                                   FC5A278    15
                          0400000000 X            EQ     FEC.RTN                                                 FC5A278    16
                                                                                                                 DECL     1783
          1207                           PRMERR   BSSENT 0                                                       DECL     1784
          1207  66441                             SB4    B4+B1                                                   DECL     1785
                     56140                        SA1    B4                                                      DECL     1786
                          6221777735              =B2    X1-O.COMMA                                              DECL     1787
          1210  6231777737                        =B3    X1-O.RP                                                 DECL     1788
                          0301000000 X            ZR     X1,FEC.RTN  IF *EOS*                                    DECL     1789
                                   0              ERRNZ  O.EOS                                                   DECL     1790
          1211  0430000000 X                      ZR     B3,FEC.RTN  IF TERMINATING *)*                          DECL     1791
                          0420001125 +            ZR     B2,PRM20    IF COMMA, CONTINUE                          DECL     1792
          1212  0400001207 +                      EQ     PRMERR      LOOP                                        DECL     1793
                                                                                                                 DECL     1794
                                   0 +   PRMA     EQU    DIMI        SAVE SYMBOL NAME                            DECL     1795
                                   1 +   PRMB     EQU    PRMA+1      SAVE CONSTANT DESCRIPTOR WORD               DECL     1796
                                   2 +   PRMC     EQU    PRMB+1      SAVE SYMORD                                 DECL     1797
  
  
  
  
                                        **        SAV -  PROCESS "SAVE" STATEMENT                                DECL     1799
                                        *                                                                        DECL     1800
                                        *         EXIT   TO FRONT END CONTROLLER                                 DECL     1801
                                        *                                                                        DECL     1802
                                        *         SEE ANSI 8.9                                                   DECL     1803
                                                                                                                 DECL     1804
                                                                                                                 DECL     1805
          1213                                    HEREIF SAVE                                                    DECL     1806
                                                                                                                 DECL     1807
          1213  56140                             SA1    B4                                                      DECL     1808
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    38
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  SAV 
  
                     43652                        MX6    CA.BNAML                                                DECL     1809
                          5160000000 X            SA6    SCSA        MASK FOR SCS                                DECL     1810
          1214  0311001216 +                      NZ     X1,SAV1     IF NOT *EOS* (NOT UNIVERSAL SAVE)           DECL     1811
                          43601                   CLAS=  X6,WB,(SAVE)                                            DECL     1812
          1215  5160000000 X                      SA6    USAVE       SET UNIVERSAL SAVE                          DECL     1813
                          0400000000 X            EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...             DECL     1814
                                                                                                                 DECL     1815
          1216  43601                    SAV1     CLAS=  X6,WB,(SAVE)                                            DECL     1816
                          5160000000 X            SA6    SAVE        SET SAVE PRESENT                            DECL     1817
          1217  6221777766               SAV2     SB2    X1-O.VAR                                                DECL     1818
                          6231777760              SB3    X1-O.SLASH                                              DECL     1819
          1220  0420001222 +                      ZR     B2,SAV5     IF VARIABLE                                 DECL     1820
                          0430001233 +            ZR     B3,SAV10    IF COMMON BLOCK                             DECL     1821
          1221  0400000000 X                      EQ     E.SA1       ELSE ERROR                                  DECL     1822
                                                                                                                 DECL     1823
          1222                           SAV5     BSS    0                                                       DECL     1824
          1222  0100000000 X                      CALL   TRV         TRANSLATE THE VARIABLE                      DECL     1825
          1223  0330001255 +                      MI     X0,SAV20    IF CONFLICT, BYPASS                         DECL     1826
                          22002                   LX0    X2                                                      DECL     1827
                               20053              SBIT   X0,WB.FPP                                               DECL     1828
          1224  0320001227 +                      PL     X0,SAV6     IF NOT FORMAL PARAMETER                     DECL     1829
                          6170000000 X            FATAL  E.SA5                                                   DECL     1830
          1226  0400001255 +                      EQ     SAV20                                                   DECL     1831
                                                                                                                 DECL     1832
          1227  43101                    SAV6     CLAS=  X1,WB,(SAVE)                                            DECL     1833
                          11012                   BX0    X1*X2                                                   DECL     1834
          1230  0300001232 +                      ZR     X0,SAV7     IF NOT REDUNDANT DECLARATION                DECL     1835
                          6170000000 X            WARN   E.SA2                                                   DECL     1836
          1232  12712                    SAV7     BX7    X1+X2       MERGE IN SAVE BIT                           DECL     1837
                     54720                        SA7    A2          AND UPDATE SYMTAB                           DECL     1838
                          0400001255 +            EQ     SAV20                                                   DECL     1839
                                                                                                                 DECL     1840
          1233                           SAV10    BSS    0                                                       DECL     1841
          1233  56141                             =A1    B4+1                                                    DECL     1842
                     66441                        =B4    B4+1                                                    DECL     1843
                          6221777766              SB2    X1-O.VAR                                                DECL     1844
          1234  0520000000 X                      NZ     B2,E.SA1    IF NOT ALPHABETIC                           DECL     1845
                          5124000001              SA2    B4+1                                                    DECL     1846
          1235  6222777766                        SB2    X2-O.VAR                                                DECL     1847
                          0520001237 +            NZ     B2,SAV13    IF NOT LONG NAME                            DECL     1848
          1236  0100000000 X                      CALL   TLV         TRUNCATE                                    DECL     1849
          1237  73210                    SAV13    SX2    X1                                                      DECL     1850
                     37612                        IX6    X1-X2                                                   DECL     1851
                          5160000000 X            SA6    FILL.       SAVE FOR POSSIBLE DIAGNOSTIC                DECL     1852
          1240  5110000000 X                      SCAN   T.BLKS,SCS                                              DECL     1853
          1241  0770001246 +                      MI     B7,SAV16    IF COMMON BLOCK NOT IN T.BLKS               DECL     1854
                          43101                   CLAS=  X1,CB,(SAVE)                                            DECL     1855
          1242  54221                             =A2    A2-CA.W+CB.W                                            DECL     1856
                     11312                        BX3    X1*X2                                                   DECL     1857
                          0303001245 +            ZR     X3,SAV15    IF NOT REDUNDANT SAVE                       DECL     1858
          1243  6170000000 X                      WARN   E.SA2                                                   DECL     1859
          1244  0400001253 +                      EQ     SAV18                                                   DECL     1860
                                                                                                                 DECL     1861
          1245  12612                    SAV15    BX6    X1+X2       MERGE IN SAVE BIT                           DECL     1862
                     54620                        SA6    A2          UPDATE T.BLKS                               DECL     1863
                          0400001253 +            EQ     SAV18                                                   DECL     1864
                                                                                                                 DECL     1865
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    39
        DECLARATIVE SCANNING AND SUPPORTING ROUTINES                  SAV 
  
          1246  10566                    SAV16    BX5    X6          SAVE BLOCK NAME                             DECL     1866
                     5110000000 X                 ALLOC  T.BLKS,Z=BLKS                                           DECL     1867
          1250  7232776030                        SX3    X2-MAX.BLK*Z=BLKS+1                                     DECL     1868
                          0323000000 X            PL     X3,E.CM2    IF TOO MANY BLOCKS                          DECL     1869
          1251  22605                             LX6    X5          RESTORE BLOCK NAME                          DECL     1870
                     43701                        CLAS=  X7,CB,(SAVE)                                            DECL     1871
                               57771              =A7    B7-Z=BLKS+CB.W                                          DECL     1872
          1252  55671                             =A6    A7-CB.W+CA.W                                            DECL     1873
                                                                                                                 DECL     1874
          1253  56141                    SAV18    =A1    B4+1                                                    DECL     1875
                     66441                        =B4    B4+1                                                    DECL     1876
                          6221777760              SB2    X1-O.SLASH                                              DECL     1877
          1254  0520000000 X                      NZ     B2,E.SA3    IF NOT SLASH                                DECL     1878
                                                                                                                 DECL     1879
          1255                           SAV20    BSS    0                                                       DECL     1880
          1255  56141                             =A1    B4+1                                                    DECL     1881
                     66441                        =B4    B4+1                                                    DECL     1882
                          6221777735              SB2    X1-O.COMMA                                              DECL     1883
          1256  0301000000 X                      ZR     X1,FEC.RTN  IF *EOS*                                    DECL     1884
                                   0              ERRNZ  O.EOS                                                   DECL     1885
                          0520000000 X            NZ     B2,E.SA4    IF NOT *COMMA*                              DECL     1886
          1257  56141                             =A1    B4+1                                                    DECL     1887
                     66441                        =B4    B4+1                                                    DECL     1888
                          0400001217 +            EQ     SAV2        CONTINUE PROCESSING                         DECL     1889
                                                                                                                 DECL     1890
          1260                           SAVERR   BSSENT 0                                                       DECL     1891
          1260  56141                             =A1    B4+1                                                    DECL     1892
                     66441                        =B4    B4+1                                                    DECL     1893
                          6221777735              SB2    X1-O.COMMA                                              DECL     1894
          1261  0301000000 X                      ZR     X1,FEC.RTN  IF *EOS*                                    DECL     1895
                                   0              ERRNZ  O.EOS                                                   DECL     1896
                          0520001260 +            NZ     B2,SAVERR   IF NOT *COMMA*                              DECL     1897
          1262  56141                             =A1    B4+1                                                    DECL     1898
                     66441                        =B4    B4+1                                                    DECL     1899
                          0400001217 +            EQ     SAV2        CONTINUE PROCESSING                         DECL     1900
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    40
        CLOSE OF DECLARATIVE ROUTINES.                                TABLES
  
                                        **        CLOSE OF EQUIVALENCE PROCESSING  DATA STRUCTURES.              DECL     1903
                                                                                                                 DECL     1904
                                                                                                                 DECL     1905
                                        *         G/F TABLE - GALLER / FISHER EQUIVALENCE TABLE.                 DECL     1906
                                                                                                                 DECL     1907
                                                                                                                 DECL     1908
                                                  DESCRIBE G1.,,,0                                               DECL     1909
      L     52  77777700000000000000     SYMI     DEFINE 18          INDEX OF SYMTAB WORD WB                     DECL     1910
      L     51  00000040000000000000     CHAR     DEFINE 1           INDICATE CHARACTER ENTITY                   DECL     1911
      L     50  00000020000000000000     SAVE     DEFINE 1           INDICATE SAVE                               DECL     1912
                                                  DEFINE 6                                                       FC50933     9
      L      0  00000000177777777777     ADR      DEFINE WC.RBL+WC.RAL                                           DECL     1914
                                                  REDEF  ADR                                                     DECL     1915
      L     30  00000000177700000000     RB       DEFINE WC.RBL      RELOCATION BASE                             DECL     1916
      L      0  00000000000077777777     RA       DEFINE WC.RAL      RELATIVE ADDRESS                            DECL     1917
                                                                                                                 DECL     1918
                                                  DESCRIBE G2.,,,1                                               DECL     1919
      L    160  77770000000000000000     LINK     DEFINE EQ.LINKL    INDEX IN EQUIV TABLE                        FC50757    17
                                   0              ERRNZ  EQ.LINKP-G2.LINKP                                       DECL     1921
      L    130  00007777777700000000     HI       DEFINE 24          SPACE NEEDED ABOVE ROOT                     DECL     1922
      L    100  00000000000077777777     LO       DEFINE 24          SPACE NEEDED BELOW ROOT                     DECL     1923
                                                                                                                 DECL     1924
                                                  DESCRIBE F2.,60                                                DECL     1925
      L     60  77770000000000000000     LINK     DEFINE G2.LINKL                                                DECL     1926
      L     44  00007777000000000000     EOI      DEFINE 12          INDEX TO T.EOT                              FC50299    23
      L     30  00000000777700000000     BSYM     DEFINE 12          INDEX OF SYMTAB WORD WB OF BASE MEMBER      DECL     1928
      L      0  00000000000077777777     FWA      DEFINE 24          FWA OF CLASS                                DECL     1929
                                                                                                                 DECL     1930
                                        *         T.EOT - EQUIVALENCE OVERLAP TABLE.                             DECL     1931
                                                                                                                 DECL     1932
                                                  DESCRIBE OA.,,,0                                               DECL     1933
                                                  DEFINE                                                         FC50662     6
      L     61  37760000000000000000     RB       DEFINE WC.RBL      RELOCATION BASE OF CLASS                    DECL     1934
                                                  DEFINE                                                         FC50933    10
      L     30  00007777777700000000     FWA      DEFINE 24          FWA OF CLASS                                DECL     1936
      L      0  00000000000077777777     LWA      DEFINE 24          LWA OF CLASS                                DECL     1937
                                                                                                                 DECL     1938
                                                  DESCRIBE OB.,,,1                                               DECL     1939
                                                  DEFINE 42          0                                           DECL     1940
      L    100  00000000000000777777     GFI      DEFINE 18          INDEX OF CLASS ROOT IN T.EQUS               DECL     1941
                                                                                                                 DECL     1942
                                                                                                                 DECL     1943
                                   2     Z=EQS    EQU    2           WORDS PER EQUIV TABLE ENTRY                 DECL     1944
                                   2     Z=EOT    EQU    2           WORDS PER EOT TABLE ENTRY                   DECL     1945
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    41
        CLOSE OF DECLARATIVE ROUTINES.                                PCD 
  
                                        **        PCD  - PROCESS END OF DECLARATIVES.                            DECL     1947
                                        *         CONTROL ROUTINE FOR END OF DECLARATIVE PROCESSING.             DECL     1948
                                        *         ENTRY  FIRST EXECUTABLE STATEMENT HAS BEEN ENCOUNTERED         DECL     1949
                                        *         EXIT   (STAGE) ADVANCED TO *FEC=STF*                           DECL     1950
                                        *                (X5) RESTORED FROM ("SB.KEY").                          DECL     1951
                                        *                (B4) PRESERVED.                                         DECL     1952
                                        *                (A0) RESTORED TO (F.SB)                                 DECL     1953
                                                                                                                 DECL     1954
                                                                                                                 DECL     1955
          1263  0400401263 +             PCD      SUBR   =           ...ENTRY/EXIT...                            DECL     1956
          1264  7160000000 X                      SX6    FEC=STF                                                 DECL     1957
                          76740                   SX7    B4                                                      DECL     1958
          1265  5160000000 X                      SA6    STAGE                                                   DECL     1959
                          5170001307 +            SA7    PCDA        SAVE (B4)                                   DECL     1960
                                                                                                                 DECL     1961
          1266  0100002340 +                      RJ     MFR         MARK FUNCTION AS REFERENCED                 DECL     1962
                                                                                                                 DECL     1963
          1267  0100002254 +                      RJ     MCA         MAKE /COMMON/ ADDRESS ASSIGNMENTS           DECL     1964
                                                                                                                 DECL     1965
          1270  0100001516 +                      RJ     EQU         PROCESS EQUIVALENCES                        DECL     1966
                                                                                                                 DECL     1967
          1271  0100001415 +                      RJ     CCL         CORDINATE COMMON LEVEL INFORMATION          DECL     1968
                                                                                                                 DECL     1969
          1272  0100001367 +                      RJ     CCC         CHECK CHARACTER COMMON BLOCKS               DECL     1970
                                                                                                                 DECL     1971
          1273  0100001441 +                      RJ     CCS         CONVERT CHARACTER SYMBOLS                   DECL     1972
                                                                                                                 DECL     1973
          1274  0100001461 +                      RJ     DCS         DIAGNOSE COMMON-SAVE VARIABLES              DECL     1974
                                                                                                                 DECL     1975
          1275  0100002470 +                      RJ     PSC         PROPAGATE SAVE BIT THROUGH COMMON           DECL     1976
                                                                                                                 DECL     1977
          1276  0100002350 +                      RJ     PCF         PROCESS CHARACTER/FORMAL PARAMETER INTERACT DECL     1978
                                                                                                                 DECL     1979
          1277  0100002530 +                      RJ     VDP         PROCESS VARABLE DIMENSIONS                  DECL     1980
                                                                                                                 DECL     1981
          1300  0100001310 +                      RJ     APT         ASSIGN ECS/LCM POINTER TAGS                 DECL     1982
                                                                                                                 DECL     1983
          1301  0100001347 +                      RJ     ASL         ASSIGN STORAGE LEVELS                       DECL     1984
                                                                                                                 DECL     1985
          1302  0100002506 +                      RJ     SAS         SCAN ARRAY SIZES                            DECL     1986
                                                                                                                 DECL     1987
          1303  76600                             SHRINK T=COMM,0    COMM TABLE NO LONGER NEEDED                 FC50558    43
                                         SNAP=D   IFNE   TEST                                                    DECL     1994
                                                  SA1    CO.SNAP                                                 DECL     1995
                                                  LX1    1RD                                                     DECL     1996
                                                  PL     X1,PCD7     IF DECL SNAP NOT SELECTED                   DECL     1997
                                         SNP=D    DUMPT  (SYM,BLKS,DIM)                                          DECL     1998
                                         PCD7     BSS                                                            DECL     1999
                                         SNAP=D   ENDIF                                                          DECL     2000
          1304  5120000000 X                      SA2    T.TB                                                    DECL     2001
                          5110001307 +            SA1    PCDA                                                    DECL     2002
          1305  53020                             SA0    X2          RESTORE (A0)                                DECL     2003
                     5150000000 X                 SA5    TB=TYPE     RESTORE (X5)                                DECL     2004
                               63410              SB4    X1          RESTORE (B4)                                DECL     2005
          1306  0400001263 +                      EQ     EXIT.       EXIT...                                     DECL     2006
                                                                                                                 DECL     2007
          1307  00000000000000000000     PCDA     CON    0           SAVE AREA                                   DECL     2008
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    42
        CLOSE OF DECLARATIVE ROUTINES.                                APT 
  
                                        **        APT -  ASSIGN POINTER TAGS                                     DECL     2010
                                        *                                                                        DECL     2011
                                        *         ENTRY  (T.BLKS) = (CB.LEVN) COMPLETELY DETERMINED.             DECL     2012
                                        *                (.DAL) = 0 IF LEVEL 2 IS CM/SCM,                        DECL     2013
                                        *                       = 1 IF LEVEL 2 IS ECS/LCM.                       DECL     2014
                                        *                                                                        DECL     2015
                                        *         FOR EACH COMMON BLOCK, *APT* DECIDES FROM ITS LEVEL AND THE    DECL     2016
                                        *         OBJECT MACHINE TYPE, WHAT STORAGE TYPE IS FOR THE BLOCK.       DECL     2017
                                        *         FOR COMMON BLOCKS WHICH ARE ECS/LCM RESIDENT, THE (CB.LCM) BIT DECL     2018
                                        *         IS SET, AND A POINTER WORD TAG IS SET IN (CB.TAG).             DECL     2019
                                        *         POINTER WORDS ARE CONSTRUCTED AND STORED IN (T.APL).           DECL     2020
                                        *                                                                        DECL     2021
                                        *         EACH COMMON BLOCK LENGTH IS CHECKED AGAINST THE MAXIMUM        DECL     2022
                                        *         LENGTH ALLOWED, ERROR MESSAGE ISSUED ACCORDINGLY.              DECL     2023
                                        *            FOR (LCM=G), MAXIMUM ECS/LCM BLOCK LENGTH IS (MAX.SPLC),    DECL     2024
                                        *         AND FOR ALL OTHER CASES, BLOCK LENGTHS SHOULD NOT EXCEED       DECL     2025
                                        *         (MAX.SPCM).                                                    DECL     2026
                                                                                                                 DECL     2027
                                                                                                                 DECL     2028
          1310  0400401310 +             APT      SUBR               ...ENTRY/EXIT...                            DECL     2029
          1311  5140000000 X                      SA4    WO.LCM                                                  FC5A132    72
                          63440                   SB4    X4          (B4) = LCM INDICATOR                        DECL     2031
                               43600              MX6    0                                                       DECL     2032
          1312  5110000000 X                      ADDWD  T.LCA                                                   DECL     2033
          1313  5110000000 X                      SA1    T.BLKS                                                  DECL     2034
                          5120000000 X            SA2    T=BLKS                                                  DECL     2035
          1314  21201                             AX2    1           X2 = (TABLE LENGTH) DIV (Z=BLKS)            DECL     2036
                                   0              ERRNZ  2-Z=BLKS                                                DECL     2037
                     6222777776                   SB2    X2-1        B2 = NO. ENTRIES TO PROCESS                 DECL     2038
                                        *                            (1ST ENTRY IS NOT A COMMON BLOCK)           DECL     2039
                               66311              =B3    Z=BLKS                                                  DECL     2040
          1315  53111                             =A1    X1+CB.W                                                 DECL     2041
                                                                                                                 DECL     2042
          1316  54113                    APT10    SA1    A1+B3       CBI = CB ENTRY                              DECL     2043
                     55411                        =A4    A1-CB.W+CA.W      CAI = CA ENTRY                        DECL     2044
                          0420001310 +            ZR     B2,EXIT.    IF NO MORE ENTRIES, EXIT..                  DECL     2045
          1317  43744                             MX7    -CB.BLENL                                               DECL     2046
                     43652                        MX6    CA.BNAML                                                DECL     2047
                                                  LX1    -CB.BLENP                                               DECL     2048
                          15517                   BX5    -X7*X1      BLENI = BLEN[CBI]                           DECL     2049
                                                  LX1    CB.BLENP                                                DECL     2050
                               11664              BX6    X6*X4       BLOCK NAME = BNAM[CAI]                      DECL     2051
          1320  5160000000 X                      SA6    FILL.                                                   DECL     2052
                          67221                   SB2    B2-B1                                                   DECL     2053
                               43072              MX0    -CA.BLVLL                                               DECL     2054
          1321  20460                             LX4    -CA.BLVLP                                               DECL     2055
                     15240                        BX2    -X0*X4      EXTRACT (X2) = LEVEL OF THIS BLOCK          DECL     2056
                          7272777775              SX7    X2+.DAL-3                                               DECL     2057
                                  -1              ERRPL  .DAL-2                                                  DECL     2058
          1322  43301                             CLAS=  X3,CB,(LCM)                                             DECL     2059
                     12613                        BX6    X1+X3                                                   DECL     2060
                          76040                   SX0    B4          LCM INDICATOR                               DECL     2061
          1323  0337001325 +                      MI     X7,APT20    IF (LEV+.DAL .LT. 3), THEN NOT LARGE CORE   DECL     2062
                                                  IFEQ   .MI,1,6                                                 F1037F5   413
                                                  NZ     X7,APT19    IF LEVEL 3                                  F1037F5   414
                                                  SA3    =XCO.TMLC                                               F1037F5   415
                                                  MX7    1                                                       F1037F5   416
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    43
        CLOSE OF DECLARATIVE ROUTINES.                                APT 
  
                                                  ZR     X3,APT20    IF NO LCM                                   F1037F5   417
                                                  MX7    0                                                       F1037F5   418
                                                                                                                 FC50443     4
          1324                           APT19    BSS    0                                                       F1037F5   419
          1324  5061000000                        SA6    A1+         LCM(CBI] = 1                                DECL     2063
                                                                                                                 FC50443     5
          1325  5130001346 +             APT20    SA3    APTB        MAXLEN = (MAX.SPCM)                         FC50443     6
                          6170000000 X            SB7    E.CM9                                                   DECL     2065
          1326  21773                             AX7    59                                                      DECL     2066
                     5120000000 X                 SA2    CO.LCM                                                  FC5A132    73
                               15227              BX2    -X7*X2                                                  FC5A132    74
          1327  15407                             BX4    -X7*X0                                                  DECL     2067
                     0322001331 +                 PL     X2,APT30           IF NOT LCM=G AND LCM                 FC5A132    75
          1330  5130001345 +                      SA3    APTA        MAXLEN = (MAX.SPLC)                         DECL     2069
                          6170000000 X            SB7    E.CM10                                                  DECL     2070
                                                                                                                 FC50443     7
          1331  37753                    APT30    IX7    X5-X3                                                   DECL     2071
                     0337001333 +                 MI     X7,APT40    IF BLENI .LT. MAXLEN                        DECL     2072
          1332  0100000000 X                      FATAL  B7                                                      DECL     2073
                                                                                                                 FC50443     8
          1333  0304001316 +             APT40    ZR     X4,APT10    IF (LCM=D OR NOT LCM BLOCK)                 DECL     2074
                                                                                                                 DECL     2075
                                        **        GENERATE AND SET POINTER TAG                                   DECL     2076
                                                                                                                 DECL     2077
                          5130000000 X            SA3    T=LCA                                                   DECL     2078
          1334  7170000004                        SX7    K=LC                                                    DECL     2079
                          20717                   LX7    P=PFX                                                   DECL     2080
                               36737              IX7    X3+X7                                                   DECL     2081
          1335  20730                             LX7    CB.TAGP                                                 DECL     2082
                     12667                        BX6    X6+X7       SET TAG INTO BLOCK TABLE ENTRY              DECL     2083
                          54610                   SA6    A1                                                      DECL     2084
                                                                                                                 DECL     2085
                                        **        CONSTRUCT POINTER WORD -- GET TAG OF FIRST NAME IN BLOCK AND   DECL     2086
                                        *         PLACE INTO AP-LIST WORD FORMAT WITH BIT *ALCM* ON.             DECL     2087
                                        *         T.COMM HAS BEEN KEPT SO WE CAN FIND FIRST NAMES.               DECL     2088
                                                                                                                 DECL     2089
          1336  5120000000 X                      SA2    T.COMM                                                  DECL     2090
                          20106                   HX1    CB.FMI                                                  DECL     2091
                               21160              AX1    -CB.FMIL    FMIND = FMI[CBI]                            DECL     2092
          1337  43460                             MX4    -CB.FMIL                                                FC5A522     6
                                   0              ERRNZ  12-CB.FMIL                                              FC5A522     7
                     15114                        BX1    -X4*X1                                                  FC5A522     8
                          36421                   IX4    X2+X1                                                   DECL     2093
                               53240              SA2    X4          CMI = T.COMM(FMIND)                         DECL     2094
                                                                                                                 DECL     2095
                                        *         FIRST NAME IN BLOCK FOUND                                      DECL     2096
                                                                                                                 DECL     2097
          1340  43752                             MX7    -CT.TAGL                                                DECL     2098
                     20222                        LX2    -CT.TAGP                                                DECL     2099
                          15627                   BX6    -X7*X2      TAGI = TAG[CMI]                             DECL     2100
                               20652              LX6    IA.TAGP     POSITION TAG FOR APLIST TABLE               DECL     2101
          1341  5140000000 X                      SA4    T.BLKS                                                  FC50156     7
                          63340                   SB3    X4                                                      FC50156     8
                               75413              SX4    A1-B3       RELATIVIZE BLOCK POINTER                    FC50156     9
          1342  5110000000 X                      ADDWD  T.LCA                                                   DECL     2103
          1343  5110000000 X                      SA1    T.BLKS                                                  FC50156    10
                          63310                   SB3    X1                                                      FC50156    11
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    44
        CLOSE OF DECLARATIVE ROUTINES.                                APT 
  
                               53143              SA1    X4+B3       ABSOLUTIZE BLOCK POINTER                    FC50156    12
          1344  66311                             =B3    Z=BLKS                                                  DECL     2105
                     43072                        MX0    -CA.BLVLL     RESTORE X0                                DECL     2106
                          0400001316 +            EQ     APT10       LOOP                                        DECL     2107
                                                                                                                 DECL     2108
          1345  00000000000003777771     APTA     CON    MAX.SPLC+1                                              FC5A231   119
          1346  00000000000000400000     APTB     CON    MAX.SPCM+1                                              FC50443     9
  
  
  
  
                                        **        ASL - ASSIGN STORAGE LEVELS.                                   DECL     2111
                                        *                                                                        DECL     2112
                                        *         ENTRY  (T.SYM/WB) = (LAB, VAR, FP, COM, LEVN) SET CORRECTLY.   DECL     2113
                                        *                                                                        DECL     2114
                                        *         FOR EACH *VAR* SYMBOL, *ASL* DECIDES FROM ITS LEVEL AND THE    DECL     2115
                                        *         OBJECT MACHINE TYPE, WHAT STORAGE TYPE IS FOR THE VARIABLE.    DECL     2116
                                        *         FOR VARIABLES WHICH ARE ECS/LCM RESIDENT, THE (WB.LCM) BIT     DECL     2117
                                        *         IS SET.                                                        DECL     2118
                                                                                                                 DECL     2119
                                                                                                                 DECL     2120
          1347  0400401347 +             ASL      SUBR               ...ENTRY/EXIT...                            DECL     2121
          1350  5110000000 X                      SA1    LEVEL2                                                  FC5A184    70
                          5120000000 X            SA2    T=SYM                                                   DECL     2122
          1351  5130000000 X                      SA3    T.SYM                                                   DECL     2123
                          6130000003              =B3    Z=SYM                                                   DECL     2124
          1352  0301001347 +                      ZR     X1,EXIT.    IF NO LCM/ECS IN PROGRAM                    FC5A184    71
                          63620                   SB6    X2          (B6) = LENGTH OF SYMTAB                     DECL     2126
                               43072              MX0    -WB.LEVNL                                               DECL     2127
          1353  5233777775                        =A3    X3-Z=SYM+WB.W                                           DECL     2128
                          43501                   CLAS=  X5,WB,LEV                                               DECL     2130
          1354  43701                             CLAS=  X7,WB,(LCM)                                             DECL     2131
                                                                                                                 DECL     2132
          1355  54333                    ASL2     SA3    A3+B3       FETCH SYMTAB ATTRIBUTE WORD                 DECL     2133
                     0460001347 +                 ZR     B6,EXIT.    IF TABLE EXHAUSTED                          DECL     2134
                               11453              BX4    X5*X3                                                   DECL     2135
                                         .TEST    IFEQ   TEST,ON,1                                               DECL     2136
                                                  MI     B6,"BLOWUP" IF SYMTAB LEN NOT MULTIPLE OF Z=SYM         DECL     2137
          1356  67663                             SB6    B6-B3                                                   FC5A517     7
                     20370                        LX3    59-WB.LABP                                              DECL     2138
                          0333001355 +            MI     X3,ASL2     IF LAB, IGNORE                              FC5A444   122
          1357  43601                             MX6    1                                                       FC5A444   123
                     20621                        LX6    WB.ALP-WB.LABP                                          FC5A444   124
                          15336                   BX3    -X6*X3      CLEAR WB.ALP SINCE THE BIT IS RE-USED BY    FC5A444   125
                               10633              BX6    X3          STATEMENT FUNCS AND ASSIGN GOTO PROCESSING  FC5A444   126
          1360  20604                             LX6    WB.LABP+1                                               FC5A444   127
                     54630                        SA6    A3          UPDATE MEMORY COPY OF WORD B                FC5A444   128
                          20372                   LX3    WB.LABP-WB.VARP                                         DECL     2141
          1361  0323001355 +                      PL     X3,ASL2     IF NOT VAR, IGNORE                          FC5A444   129
                          0304001355 +            ZR     X4,ASL2     IF NOT DECLARED IN LEVEL                    DECL     2144
          1362  20325                             LX3    WB.VARP+1-WB.LEVNP                                      DECL     2145
                     15230                        BX2    -X0*X3      EXTRACT (X2) = LEVEL NUMBER                 DECL     2146
                          0312001364 +            NZ     X2,ASL10    IF LEVEL NUMBER .NE. 0                      DECL     2147
          1363  76211                             =X2    2                                                       DECL     2148
          1364  7242777775               ASL10    =X4    X2+.DAL-3                                               DECL     2149
                                  -1              ERRPL  .DAL-2                                                  DECL     2150
                          0334001355 +            MI     X4,ASL2     IF (LEV + .DAL) .LT. 3, THEN NOT LARGE CORE DECL     2151
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    45
        CLOSE OF DECLARATIVE ROUTINES.                                ASL 
  
                                                  IFEQ   .MI,1,4                                                 F1037F5   421
                                                  NZ     X4,ASL15    IF LEVEL 3                                  F1037F5   422
                                                  SA4    =XCO.TMLC                                               F1037F5   423
                                                  ZR     X4,ASL2     IF NO LCM                                   F1037F5   424
                                         ASL15    BSS    0                                                       F1037F5   425
                                                                                                                 F1037F5   426
          1365  20355                             LX3    WB.LEVNP                                                DECL     2152
                     12673                        BX6    X7+X3       SET (LCM) BIT                               DECL     2153
                          54630                   SA6    A3                                                      DECL     2154
          1366  0400001355 +                      EQ     ASL2        LOOP..                                      DECL     2155
  
  
  
  
                                        **        CCC - CHECK CHARACTER COMMON BLOCK.                            DECL     2157
                                        *         DETECT CHARACTER DECLARATION CONFLICT IN COMMON BLOCK AND      DECL     2158
                                        *         CONVERT CHARACTER BLOCK LENGTH TO NO. OF WORDS.                DECL     2159
                                        *                                                                        DECL     2160
                                        *         ENTRY  COMMON BLOCK LENGTH HAVE BEEN CALCULATED, EQUIVALENCE   DECL     2161
                                        *                PROCESSING (IF ANY) HAVE BEEN DONE.                     DECL     2162
                                        *         EXIT   ALL COMMON BLOCK LENGTHS NOW ARE IN NO. OF WORDS.       DECL     2163
                                                                                                                 DECL     2164
                                                                                                                 DECL     2165
          1367  0400401367 +             CCC      SUBR               ...ENTRY/EXIT...                            DECL     2166
          1370  5110000000 X                      SA1    CHARDCL                                                 DECL     2167
                          5120000000 X            SA2    T.BLKS                                                  DECL     2168
          1371  0321001367 +                      PL     X1,EXIT.    IF NO CHARACTER DECLARATIONS                DECL     2169
                          5130000000 X            SA3    T=BLKS                                                  DECL     2170
          1372  5140000000 X                      SA4    BLNKCOM                                                 DECL     2171
                          63540                   SB5    X4          (B5) = BLKIND FOR BLANK COMMON              DECL     2172
                               66311              =B3    Z=BLKS                                                  FC5A312     5
          1373  63220                             =B2    X2+CA.W                                                 DECL     2174
                     63430                        SB4    X3          LEN = (T=BLKS)                              DECL     2175
                          43044                   MX0    -CB.BLENL                                               DECL     2176
                               43452              MX4    CA.BNAML                                                DECL     2177
          1374  6160777775                        SB6    -Z=BLKS     INITIALIZE FOR LOOP                         FC5A312     6
                                                                                                                 DECL     2179
                                        *         PROCESS NEXT COMMON BLOCK.                                     DECL     2180
                                                                                                                 DECL     2181
          1375  66663                    CCC10    SB6    B6+B3       BLKIND = BLKIND + Z=BLKS                    FC5A312     7
                     0664001367 +                 GE     B6,B4,EXIT. IF END OF T.BLKS                            FC5A330     4
                               56126              SA1    B2+B6       CAI = T.BLKS(BKLIND)                        DECL     2183
          1376  10711                             BX7    X1                                                      DECL     2184
                     20152                        HX1    CA.CHAR                                                 DECL     2185
                          0321001407 +            PL     X1,CCC30    IF NOT CHAR BLOCK                           DECL     2187
          1377  54211                             =A2    A1-CA.W+CB.W      CBI = CB ENTRY OF T.BLKS              DECL     2188
                                                  LX2    -CB.BLENP                                               DECL     2189
                     11602                        BX6    X0*X2       CLEAR BLEN FIELD                            DECL     2190
                          15320                   BX3    -X0*X2      BLENI = BLEN[CBI]                           DECL     2191
          1400  5150002575 +                      WX5    X3,X2       BLENI = BLENI / 10                          DECL     2192
          1404  15550                             BX5    -X0*X5                                                  DECL     2193
                                                                                                                 FC5A330     5
                                         .TEST    IFEQ   TEST,ON                                                 DECL     2194
                                                  SX3    X2-10                                                   DECL     2195
                                                  PL     X3,"BLOWUP" IF REMAINING CHARS .GE. 10                  DECL     2196
                                         .TEST    ENDIF                                                          DECL     2197
                                                                                                                 DECL     2198
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    46
        CLOSE OF DECLARATIVE ROUTINES.                                CCC 
  
                     76310                        =X3    1                                                       DECL     2199
                          0302001406 +            ZR     X2,CCC20    IF NO REMAINDER                             DECL     2200
          1405  36553                             IX5    X5+X3       BLENI = BLENI + 1                           DECL     2201
                     20266                        LX2    CB.RNCP-CB.BLENP                                        DECL     2202
                          12662                   BX6    X6+X2                                                   DECL     2203
                                                                                                                 FC5A330     6
          1406  36665                    CCC20    IX6    X6+X5                                                   DECL     2204
                                                  LX6    CB.BLENP                                                DECL     2205
                     54620                        SA6    A2          (RNC,BLEN)[CBI] = (RNC,BLENI) [CB.]         DECL     2206
                                                                                                                 DECL     2207
                                        *         ISSUE MESSAGE FOR CHARACTER CONFLICT IN THIS BLOCK IF          DECL     2208
                                        *         NAC[CAI] = 1.                                                  DECL     2209
                                                                                                                 DECL     2210
          1407  20101                    CCC30    LX1    CA.CHARP-CA.NACP                                        DECL     2211
                     0321001375 +                 PL     X1,CCC10    IF NO CONFLICT                              DECL     2212
                               11747              BX7    X4*X7                                                   DECL     2213
          1410  0565001412 +                      NE     B6,B5,CCC40 IF NOT BLANK COMMON                         DECL     2214
                          7170005050              SX7    2R//                                                    FC50797     5
          1411  20760                             LX7    8*CHAR                                                  DECL     2216
                                                                                                                 FC5A330     7
          1412  5170000000 X             CCC40    SA7    FILL.       STORE BLOCK NAME                            DECL     2217
                          6170000000 X            FATAL  E.CM11                                                  DECL     2218
          1414  0400001375 +                      EQ     CCC10                                                   DECL     2219
  
  
  
  
                                        **        CCL - CORDINATE COMMON LEVEL INFORMATION.                      DECL     2221
                                        *                                                                        DECL     2222
                                        *         FOR EACH COMMON BLOCK, PROPAGATE LEVEL INFORMATION             DECL     2223
                                        *         TO ALL THE COMMON MEMBERS, DIAGNOSING ANY PREVIOUS             DECL     2224
                                        *         INDIVIDUAL LEVEL DECLARATIONS.                                 DECL     2225
                                                                                                                 DECL     2226
                                                                                                                 DECL     2227
          1415  0400401415 +             CCL      SUBR               ...ENTRY/EXIT...                            DECL     2228
          1416  5140000000 X                      SA4    LEVEL                                                   FC5A184    72
                          5130000000 X            SA3    T.BLKS                                                  DECL     2229
          1417  5120000000 X                      SA2    T.COMM                                                  DECL     2230
                          0304001415 +            ZR     X4,EXIT.    IF NO LEVEL DECLARATIONS                    FC5A184    73
          1420  5140000000 X                      SA4    T.SYM                                                   DECL     2231
                          63320                   SB3    X2                                                      DECL     2232
                               63641              =B6    X4+WB.W                                                 DECL     2233
          1421  5110000000 X                      SA1    T=BLKS                                                  DECL     2234
                          63530                   =B5    X3+CA.W                                                 DECL     2235
                               43060              MX0    -CT.LNKL                                                DECL     2236
                                   0              ERRNZ  12-CT.LNKL                                              FC5A522     9
          1422  63210                             SB2    X1          BLKIND = (T=BLKS)                           DECL     2237
                     66411                        =B4    Z=BLKS                                                  DECL     2238
                                                                                                                 DECL     2239
          1423  67224                    CCL10    SB2    B2-B4       BLKIND = BLKIND - Z=BLKS                    DECL     2240
                     56452                        SA4    B5+B2       CAI = T.BLKS(BLKIND)                        DECL     2241
                          0602001415 +            LE     B2,B0,EXIT. IF END OF TABLE                             DECL     2242
          1424  54341                             =A3    A4-CA.W+CB.W      CBI = CB ENTRY OF T.BLKS              DECL     2243
                     43772                        MX7    -CA.BLVLL                                               DECL     2244
                          20460                   LX4    -CA.BLVLP                                               DECL     2245
                               20306              HX3    CB.FMI                                                  DECL     2246
          1425  21360                             AX3    -CB.FMIL    CMIND = FMI[CBI]                            DECL     2247
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    47
        CLOSE OF DECLARATIVE ROUTINES.                                CCL 
  
                     15747                        BX7    -X7*X4      BLEV = BLVL[CAI]                            DECL     2248
                          20755                   LX7    WB.LEVNP                                                DECL     2249
                               15330              BX3    -X0*X3                                                  FC5A522    10
                                                                                                                 DECL     2250
                                        *         NEXT COMMON MEMBER OF THIS BLOCK.                              DECL     2251
                                        *         (A4,X4) = CAI                                                  DECL     2252
                                        *         (X3) = CMIND                                                   DECL     2253
                                        *         (X7) = BLEV, SHIFTED TO WB.LEVNP                               DECL     2254
                                                                                                                 DECL     2255
          1426  0303001423 +             CCL20    ZR     X3,CCL10    IF CMIND .EQ.0                              DECL     2256
                          53133                   SA1    X3+B3       CMI = T.COMM(CMIND)                         DECL     2257
                               20122              LX1    -CT.TAGP                                                DECL     2258
          1427  63710                             SB7    X1          TAGI = TAG[CMI]                             DECL     2259
                                   0              ERRNZ  18-CT.TAGL                                              DECL     2260
                     76277                        SX2    B7+B7                                                   DECL     2261
                          20122                   LX1    CT.TAGP-CT.LNKP                                         DECL     2262
                               15310              BX3    -X0*X1      CMIND = LNK[CMI]                            DECL     2263
          1430  73627                             SX6    X2+B7       STINDB = 3 * TAGI                           DECL     2264
                                   0              ERRNZ  3-Z=SYM                                                 DECL     2265
                     53266                        SA2    X6+B6       WBI = T.SYM(STINDB)                         DECL     2266
                          55121                   =A1    A2-WB.W+WA.W                                            DECL     2267
          1431  5150002576 +                      CLAS=  X5,WB,(LEV,LEVN)                                        DECL     2268
                          43652                   MX6    WA.SYML                                                 DECL     2269
                               15525              BX5    -X5*X2                                                  DECL     2270
          1432  20262                             HX2    WB.EQV                                                  DECL     2271
                     11661                        BX6    X6*X1                                                   DECL     2272
                          5160000000 X            SA6    FILL.       STORE NAME IN MESSAGE                       DECL     2273
          1433  0332001426 +                      MI     X2,CCL20    IF EQUIVALENCED                             DECL     2274
                          20252                   LX2    WB.EQVP-WB.LEVP                                         DECL     2275
          1434  0322001436 +                      PL     X2,CCL30    IF NOT ALREADY LEVELED                      DECL     2276
                          6170000000 X            FATAL  E.LV9       EXPLICT LEVEL DECLARATION BY COM MEMBER     DECL     2277
          1436  0307001426 +             CCL30    ZR     X7,CCL20    IF BLOCK NOT LEVELED                        DECL     2278
                          43101                   CLAS=  X1,WB,(LEV)                                             DECL     2279
          1437  12117                             BX1    X1+X7                                                   DECL     2280
                     12651                        BX6    X5+X1                                                   DECL     2281
                          54620                   SA6    A2          (LEV,LEVN) [WBI] = (1,BLEV) [WB.]           DECL     2282
          1440  0400001426 +                      EQ     CCL20                                                   DECL     2283
  
  
  
  
                                        **        CCS - CONVERT CHARACTER SYMBOL.                                DECL     2285
                                        *         FOR EACH CHARACTER SYMBOL, CONVERT ITS RA[WCI] FROM CHARACTER  DECL     2286
                                        *         OFFSET TO WORD OFFSET AND BCP (BEGINNING CHARACTER POSITION).  DECL     2287
                                                                                                                 DECL     2288
                                                                                                                 DECL     2289
          1441  0400401441 +             CCS      SUBR               ...ENTRY/EXIT...                            DECL     2290
          1442  5110000000 X                      SA1    CHARDCL                                                 DECL     2291
                          5120000000 X            SA2    T=SYM                                                   DECL     2292
          1443  0321001441 +                      PL     X1,EXIT.    IF NO CHARACTER DECLARATIONS                DECL     2293
                          5130000000 X            SA3    T.SYM                                                   DECL     2294
          1444  63620                             SB6    X2                                                      DECL     2295
                     6120777771                   SB2    -M.CHAR                                                 DECL     2296
          1445  6130000003                        =B3    Z=SYM                                                   DECL     2297
                          53331                   =A3    X3+WB.W                                                 DECL     2298
                               43071              MX0    -WB.MODEL                                               DECL     2299
          1446  43744                             MX7    -WC.RAL                                                 DECL     2300
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    48
        CLOSE OF DECLARATIVE ROUTINES.                                CCS 
  
                     5120002577 +                 CLAS=  X2,WB,(LAB,FP,PARM,NVAR,EXT,NLST,ENT)                   DECL     2301
          1447  54333                    CCS10    SA3    A3+B3       WBI = T.SYM(SYMIND)                         DECL     2302
                     67663                        SB6    B6-B3                                                   DECL     2303
                          0460001441 +            ZR     B6,EXIT.    IF END OF T.SYM                             DECL     2304
          1450  11123                             BX1    X2*X3                                                   DECL     2305
                                                  LX3    -WB.MODEP                                               DECL     2306
                     15330                        BX3    -X0*X3      MODEI = MODE[WBI]                           DECL     2307
                          73632                   SX6    X3+B2                                                   DECL     2308
          1451  0316001447 +                      NZ     X6,CCS10    IF NOT MODE CHARACTER                       DECL     2309
                          0311001447 +            NZ     X1,CCS10    IF WRONG CLASS                              DECL     2310
          1452  54431                             =A4    A3-WB.W+WC.W      WCI = WC ENTRY OF T.SYM               DECL     2311
                                                  LX4    -WC.RAP                                                 DECL     2312
                     11674                        BX6    X7*X4       CLEAR RA FIELD                              DECL     2313
                          15447                   BX4    -X7*X4      RAI = RA[WCI]                               DECL     2314
          1453  5150002575 +                      WX5    X4,X3       RAI = RAI / 10                              DECL     2315
          1457  20330                             LX3    WC.BCPP                                                 DECL     2316
                     12665                        BX6    X6+X5                                                   DECL     2317
                                                  LX6    WC.RAP                                                  DECL     2318
                          12663                   BX6    X6+X3                                                   DECL     2319
                               54640              SA6    A4          (BCP,RA) [WCI] = (BCP,RAI) [WC.]            DECL     2320
          1460  0400001447 +                      EQ     CCS10                                                   DECL     2321
  
  
  
  
                                        **        DCS - DIAGNOSE COMMON-SAVE VARIABLES.                          DECL     2323
                                        *                                                                        DECL     2324
                                        *         FIRST, DIAGNOSE REDUNDANT SAVE STATEMENTS WHEN UNIVERSAL       DECL     2325
                                        *         SAVE IS ON.                                                    DECL     2326
                                        *                                                                        DECL     2327
                                        *         BEFORE PROPAGATION OF SAVE BIT THROUGH SAVE DECLARED           DECL     2328
                                        *         COMMON BLOCK, SYMBOL TABLE IS SCANNED FOR COMMON ELEMENTS      DECL     2329
                                        *         WHICH ARE ALREADY DECLARED THROUGH SAVE EXPLICITLY, AND        DECL     2330
                                        *         FATAL ERRORS ARE ISSUED.                                       DECL     2331
                                        *                                                                        DECL     2332
                                        *         USES   ALL                                                     DECL     2333
                                                                                                                 DECL     2334
                                                                                                                 DECL     2335
          1461  0400401461 +             DCS      SUBR               ...ENTRY/EXIT...                            DECL     2336
          1462  5110000000 X                      SA1    SAVE                                                    DECL     2337
                          5130000000 X            SA3    USAVE                                                   DECL     2338
          1463  11613                             BX6    X1*X3                                                   DECL     2339
                     12113                        BX1    X1+X3                                                   DECL     2340
                          0301001461 +            ZR     X1,EXIT.    IF NO SAVE STATEMENTS OCCURED               DECL     2341
          1464  0306001466 +                      ZR     X6,DCS10    IF NOT BOTH SAVE FLAGS ON                   DECL     2342
                          6170000000 X            WARN   E.SA        REDUNDANT SAVE DECLARATIONS                 DECL     2343
                                                                                                                 DECL     2344
          1466  5120000000 X             DCS10    SA2    T=SYM                                                   DECL     2345
                          5140000000 X            SA4    T.SYM                                                   DECL     2346
          1467  43052                             MX0    WA.SYML                                                 DECL     2347
                     63620                        SB6    X2                                                      DECL     2348
                          6130000003              =B3    Z=SYM                                                   DECL     2349
          1470  53541                             =A5    X4+WB.W                                                 DECL     2350
                     7120000030                   CLAS=  X2,WB,(LAB,CGS)                                         DECL     2351
          1471  5130002600 +                      CLAS=  X3,WB,(COM,SAVE)                                        DECL     2352
          1472  54553                    DCS20    SA5    A5+B3       WBI = WB ENTRY OF T.SYM                     DECL     2353
                     67663                        SB6    B6-B3                                                   DECL     2354
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    49
        CLOSE OF DECLARATIVE ROUTINES.                                DCS 
  
                          0460001461 +            ZR     B6,EXIT.    IF END OF T.SYM                             DECL     2355
          1473  11625                             BX6    X2*X5                                                   DECL     2356
                     11435                        BX4    X3*X5                                                   DECL     2357
                          55151                   =A1    A5-WB.W+WA.W                                            DECL     2358
                               11710              BX7    X1*X0                                                   DECL     2359
          1474  13543                             BX5    X4-X3                                                   DECL     2360
                     0316001472 +                 NZ     X6,DCS20    IF LABEL OR CGS                             DECL     2361
          1475  0315001472 +                      NZ     X5,DCS20    IF NOT (COMMON AND SAVE)                    DECL     2362
                          5170000000 X            SA7    FILL.                                                   DECL     2363
          1476  6170000000 X                      FATAL  E.SA6                                                   DECL     2364
          1477  0400001472 +                      EQ     DCS20                                                   DECL     2365
                                                                                                                 DECL     2366
          1477                           COMFDST  CTEXT                                                          COMFDST     2
  
  
  
  
                                        **        DSRT-  SORT DOUBLE ENTRY TABLE.                                COMFDST     4
                                        *         USES *SHELL* ALGORITHM (ACM JOURNAL 1960)                      COMFDST     5
                                        *         ENTRY- A1 POINTS TO TABLE TO BE SORTED.                        COMFDST     6
                                        *         EXIT-  TABLE IS SORTED                                         COMFDST     7
                                        *         USES   A0,A1,A2,A3,A4,A7  X0  B2,B3,B4,B5,B6,B7                COMFDST     8
                                                                                                                 COMFDST     9
                                                                                                                 COMFDST    10
          1500  0400401500 +             DSRT     SUBR   0           ENTRY/EXIT...                               COMFDST    11
          1501  5021000000 X                      SA2    A1+=XN.TABLE                                            COMFDST    12
                          7232777775              SX3    X2-2                                                    COMFDST    13
          1502  0333001500 +                      MI     X3,EXIT.    IF LESS THAN 2 ENTRIES - EXIT...            COMFDST    14
                          63720                   SB7    X2          LENGTH OF TABLE TO  (I)                     COMFDST    15
          1503  5201777775                        SA0    X1-2        STARTING ADDRESS TO (Z)                     COMFDST    16
                          66670                   SB6    B7          LENGTH OF TABLE TO  (N)                     COMFDST    17
          1504  76060                    DSRT10   SX0    B6                                                      COMFDST    18
                     21002                        AX0    2           /4                                          COMFDST    19
                          66311                   =B3    2                                                       COMFDST    20
                               20001              LX0    1           /2                                          COMFDST    21
          1505  63600                             SB6    X0          N= N/2                                      COMFDST    22
                     0460001500 +                 ZR     B6,EXIT.    IF N=0 EXIT...                              COMFDST    23
                               67476              SB4    B7-B6       L=I-N                                       COMFDST    24
          1506  66230                             SB2    B3          J=K                                         COMFDST    25
          1507  66526                    DSRT20   SB5    B2+B6       M=J+N                                       COMFDST    26
                     54102                        SA1    A0+B2       A(J)  (SYMBOL ENTRIES)                      COMFDST    27
                          54205                   SA2    A0+B5       A(L)                                        COMFDST    28
                               37621              IX6    X2-X1       A(L)-A(J)                                   COMFDST    29
          1510  0326001514 +                      PL     X6,DSRT30   IF A(L) .GE. A(J)                           COMFDST    30
                          54311                   SA3    A1+B1       (TAG ENTRIES)                               COMFDST    31
                               54421              SA4    A2+B1                                                   COMFDST    32
          1511  10611                             BX6    X1                                                      COMFDST    33
                     22703                        LX7    X3                                                      COMFDST    34
                          54620                   SA6    A2          (SYMBOL)                                    COMFDST    35
                               54740              SA7    A4          (TAG   )                                    COMFDST    36
          1512  22602                             LX6    X2                                                      COMFDST    37
                     10744                        BX7    X4                                                      COMFDST    38
                          54610                   SA6    A1          (SYMBOL)                                    COMFDST    39
                               67226              SB2    B2-B6       J=J-N                                       COMFDST    40
          1513  54730                             SA7    A3          (TAG   )                                    COMFDST    41
                     0702001507 +                 GT     B2,DSRT20   IF J .GT. 0                                 COMFDST    42
          1514  6133000002               DSRT30   SB3    B3+2        K=K+2                                       COMFDST    43
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    50
        CLOSE OF DECLARATIVE ROUTINES.
  
                          46000                   NO                                                             COMFDST    44
                               66230              SB2    B3          J=K                                         COMFDST    45
          1515  0643001507 +                      LE     B3,B4,DSRT20      IF K .LE. L                           COMFDST    46
                          0400001504 +            EQ     DSRT10      LOOP THRU TABLE                             COMFDST    47
                                         COMFDST  ENDX                                                           COMFDST    48
  
  
  
  
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    51
        *EQUIVALENCE* DIGESTION.                                      EQU 
  
                                        **        EQU -  PROCESS EQUIVALENCES.                                   DECL     2371
                                        *                                                                        DECL     2372
                                        *         ENTRY  END OF DECLARATIVES HAS BEEN ENCOUNTERED.  COMMON       FC50757    18
                                        *                ADDRESSES (IF PRESENT) ARE RESOLVED.  T.EQUS CONTAINS   FC50757    19
                                        *                TRANSLATED EQUIVALENCE STATEMENTS (IF PRESENT).         FC50757    20
                                        *                                                                        FC50757    21
                                        *         EXIT   EQUIVALENCE ADDRESSES ASSIGNED.                         DECL     2377
                                        *                (EQUA) = LOCAL EQUIVALENCE LENGTH                       DECL     2378
                                                                                                                 DECL     2379
                                                                                                                 DECL     2380
          1516  0400401516 +             EQU      SUBR               ...ENTRY/EXIT...                            DECL     2381
          1517  5120000000 X                      SA2    T=EQUS                                                  DECL     2382
                          0302001516 +            ZR     X2,EQUX     IF NO EQUIV STATEMENTS                      DECL     2383
                                                                                                                 DECL     2384
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     2385
                                                  SA1    CO.SNAP                                                 DECL     2386
                                                  LX1    1RD                                                     DECL     2387
                                                  PL     X1,EQUS0    IF DECLARATIVE SNAP NOT SELECTED            DECL     2388
                                                  PLINE  (=C=  (TRANSLATED EQUIV STATEMENTS.)=),4,2              DECL     2389
                                         EQU.0    DUMPT  EQUS                                                    DECL     2390
                                         EQU.1    DUMPT  COMM                                                    DECL     2391
                                         EQUS0    BSS    0                                                       DECL     2392
                                         SNAP=D   ENDIF                                                          DECL     2393
  
  
  
  
                                        **        PHASE 0 OF EQUIVALENCE DIGESTION.                              DECL     2395
                                        *         A.   DETECT SUBSTRINGED VARIABLE WITH MODE NOT CHARACTER.      DECL     2396
                                        *         B.   DETECT SUBSTRING FIRST GREATER THAN DECLARED              DECL     2397
                                        *              LENGTH OF ASSOCIATED VARIABLE.                            DECL     2398
                                                                                                                 DECL     2399
          1520  43601                             MX6    1                                                       FC50757    22
                     5110000000 X                 ADDWD  T.EQUS      MARK END OF TABLE                           DECL     2401
          1522  5251777776                        =A5    X1-1        INITIALIZE FETCH REG                        DECL     2402
                          43052                   MX0    -EQ.STFL                                                DECL     2403
                               43737              MX7    -EQ.SYMIL                                               DECL     2404
          1523  5140000000 X                      SA4    T.SYM                                                   DECL     2405
                          6234777776              SB3    X4-1                                                    DECL     2406
          1524  43422                             MX4    -WA.SYML                                                DECL     2407
                                                                                                                 DECL     2408
          1525  54551                   EQU5      =A5    A5+1                                                    DECL     2409
                     0335001545 +                 MI     X5,EQU15    IF TABLE EXHAUSTED                          FC50757    23
                               43260              MX2    -EQ.LINKL                                               FC50757    24
          1526  20514                             LX5    -EQ.LINKP                                               FC50757    25
                     15252                        BX2    -X2*X5      EXTRACT LINK                                FC50757    26
                          0302001525 +            ZR     X2,EQU5     IF NOT HEADER WORD                          FC50757    27
          1527  20522                             LX5    -EQ.STFP+EQ.LINKP                                       FC50757    28
                     15250                        BX2    -X0*X5      ISOLATE SUBSTRING FIRST                     DECL     2414
                          0302001525 +            ZR     X2,EQU5     IF NOT SUBSTRINGED                          DECL     2415
          1530  7232777776                        =X3    X2-1                                                    DECL     2416
                          11605                   BX6    X0*X5       ERASE OLD FIRST                             DECL     2417
                               12663              BX6    X6+X3       REPLACE WITH DECREMENTED VERSION            DECL     2418
          1531  20636                             LX6    EQ.STFP                                                 DECL     2419
                     54650                        SA6    A5                                                      DECL     2420
                          20536                   LX5    EQ.STFP-EQ.SYMIP                                        DECL     2421
                               15357              BX3    -X7*X5      ISOLATE SYMTAB *WB* INDEX                   DECL     2422
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    52
        *EQUIVALENCE* DIGESTION.                                      EQU 
  
          1532  53333                             SA3    B3+X3       *WA*                                        DECL     2423
                     20352                        LX3    -WA.SYMP                                                DECL     2424
                          15634                   BX6    -X4*X3      ISOLATE NAME                                DECL     2425
                               20622              LX6    -WA.SYML    LEFT JUSTIFY                                DECL     2426
          1533  5160000000 X                      SA6    FILL.       SET CELL FOR DIAGNOSTICS                    DECL     2427
                          54331                   =A3    A3-WA.W+WB.W      *WB*                                  DECL     2428
                                                  LX3    -WB.MODEP                                               DECL     2429
                               43571              MX5    -WB.MODEL                                               DECL     2430
          1534  15535                             BX5    -X5*X3      ISOLATE MODE                                DECL     2431
                     7255777771                   SX5    X5-M.CHAR                                               DECL     2432
          1535  0305001540 +                      ZR     X5,EQU10    IF NO ERROR                                 DECL     2433
                          6170000000 X            FATAL  E.ST1       MODE NOT CHARACTER                          DECL     2434
          1537  0400001525 +                      EQ     EQU5                                                    DECL     2435
                                                                                                                 DECL     2436
          1540  54331                    EQU10    =A3    A3-WB.W+WC.W      *WC*                                  DECL     2437
                     43551                        MX5    -WC.CLIFL                                               DECL     2438
                          20337                   LX3    -WC.CLIFP                                               DECL     2439
                               15335              BX3    -X5*X3      ISOLATE LENGTH INFO                         DECL     2440
          1541  20373                             LX3    WC.CTYPP-WC.CLENP                                       DECL     2441
                     0333001525 +                 MI     X3,EQU5     IF VARIABLE LENGTH                          DECL     2442
                               37332              IX3    X3-X2       MI IF FIRST GT LENGTH                       DECL     2443
          1542  0323001525 +                      PL     X3,EQU5     IF NO ERROR                                 DECL     2444
                          6170000000 X            FATAL  E.AT16      INVALID SUBSTRING                           DECL     2445
          1544  0400001525 +                      EQ     EQU5                                                    DECL     2446
  
  
  
                                        **        PHASE 1 OF EQUIVALENCE DIGESTION.                              DECL     2448
                                        *         A.     COPY BLOCK AND RELADD (RB + RA) FROM T.SYM.             DECL     2449
                                        *         B.     SAVE ARRAY LENGTH (FROM T.DIM).                         DECL     2450
                                        *         C.     REDUCE SUBSCRIPTS TO A SINGLE OFFSET (IN WORDS).        DECL     2451
                                        *         D.     COLLAPSE TABLE TO 2-WORD ENTRIES.                       DECL     2452
                                        *         EXIT   (G1.) WORD SET UP.                                      DECL     2453
                                        *                (G2.HI) = LENGTH OF ARRAY.                              DECL     2454
                                        *                (G2.LO) = SUBSCRIPT.                                    DECL     2455
                                                                                                                 DECL     2456
          1545  5150000000 X             EQU15    SA5    T.DIM                                                   DECL     2457
                          63410                   SB4    X1          (B4) = FWA EQUIV SOURCE TABLE               DECL     2458
                               63350              SB3    X5          (B3) = FWA DIMENSION PARAMETERS             DECL     2459
          1546  53510                             SA5    X1          (A5) _ CURRENT FETCH (FROM T.EQUS)          DECL     2460
                     55751                        =A7    A5-1        DUMMY STORE                                 DECL     2461
                                   0              ERRMI  FUDGE-1     CODE REQUIRES AT LEAST 1 SLOP WORD          DECL     2462
                          0400001551 +            EQ     EQU30       BEGIN LOOP..                                DECL     2463
                                                                                                                 DECL     2464
                                        *         FORM PHASE 1 EQV TABLE WORD 2, FORMATTED AS G2. .              DECL     2465
                                        *         (A5) _ EQI = NEXT EQUIV SOURCE ENTRY                           FC50299    27
                                        *         (A0) _ G1I ENTRY                                               FC50299    28
                                        *         (B6) = CLENI                                                   DECL     2468
                                        *         (X0) = SIGMA = LOI                                             DECL     2469
                                        *         (X7) = (LINK,HII) [G2.]                                        DECL     2470
                                                                                                                 DECL     2471
          1547  54550                    EQU20    SA5    A5          (X5) = EQI ENTRY                            DECL     2472
                     76660                        SX6    B6          (X6) = CLENI                                DECL     2473
                          42606                   IX6    X0*X6       LOI = LOI * CLENI                           DECL     2474
                                                  LX6    G2.LOP                                                  DECL     2475
                               36776              IX7    X7+X6                                                   DECL     2476
          1550  54701                             SA7    A0+B1       (LINK,HI,LO)[G2I] = (LINKI,HII,LOI+STFI)    DECL     2477
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    53
        *EQUIVALENCE* DIGESTION.                                      PHASE1
  
                                                                                                                 DECL     2478
                                        *         (B3) = FWA(T.DIM)                                              DECL     2479
                                        *         (B4) = FWA(T.EQUS)                                             DECL     2480
                                        *         (A5) _ FETCH ADDRESS FOR EQI ENTRY                             FC50299    29
                                        *         (A7) _ G1I ENTRY                                               FC50299    30
                                                                                                                 DECL     2483
          1551  0335001645 +             EQU30    MI     X5,EQU99    IF TABLE EXHAUSTED                          FC50757    29
                          10655                   BX6    X5                                                      FC50299    32
                               20636              HX6    EQ.ISUB                                                 FC50299    33
          1552  5160002233 +                      SA6    EQUS        SAVE SUBSCRIPTION INDICATOR                 FC50299    34
                          5130000000 X            SA3    T.SYM                                                   DECL     2485
          1553  63730                             SB7    X3                                                      DECL     2486
                     53157                        SA1    X5+B7       WBI = T.SYM( SYMI[EQI])                     DECL     2487
                          55211                   =A2    A1-WB.W+WA.W      WAI = WA ENTRY                        DECL     2488
                               43352              MX3    WA.SYML                                                 DECL     2489
          1554  11632                             BX6    X3*X2                                                   DECL     2490
                     5160000000 X                 SA6    FILL.                                                   DECL     2491
                               43301              CLAS=  X3,WB,(ARY)                                             DECL     2492
                     11631                        BX6    X3*X1                                                   DECL     2493
                          5160000000 +            SA6    EQUDIM                                                  DECL     2494
          1556  43314                             MX3    EQ.LINKL                                                FC50757    30
                     11235                        BX2    X3*X5       EXTRACT LINK                                FC50757    31
                          15553                   BX5    -X3*X5      EXTRACT SYMBOL INFORMATION                  FC50757    32
                               20214              LX2    EQ.LINKL                                                FC50757    33
          1557  63220                             SB2    X2          (B2) = LINKI                                FC50757    34
                     43371                        MX3    -WB.MODEL                                               DECL     2496
                          10611                   BX6    X1                                                      DECL     2497
                               20640              HX6    WB.LEV                                                  DECL     2498
                                                  LX1    -WB.MODEP                                               DECL     2499
          1560  15313                             BX3    -X3*X1                                                  DECL     2500
                     63530                        SB5    X3          (B5) = MODEI = MODE[WBI]                    DECL     2501
                          6170000000 X            SB7    E.EQ10      CLASS CONFLICT -- F.P. IN EQV GROUP         DECL     2502
          1561  0336001570 +                      MI     X6,EQU45    IF LEVELED                                  DECL     2503
                          20137                   LX1    WB.MODEP-WB.SAVEP                                       DECL     2504
          1562  7273777771                        SX7    X3-M.CHAR                                               DECL     2505
                          5140002232 +            SA4    GCI         GROUP CHAR INDICATER = (GCI)                DECL     2506
          1563  43601                             CLAS=  X6,G1,(CHAR)      CHARI = 1                             DECL     2507
                          0307001565 +            ZR     X7,EQU35    IF MODE CHARACTER                           DECL     2508
          1564  43600                             MX6    0           CHARI = 0                                   DECL     2509
                                                                                                                 FC50299    35
          1565  0521001566 +             EQU35    NE     B2,B1,EQU40 IF NOT FIRST ELEMENT IN GROUP               DECL     2510
                          22406                   LX4    X6          SET GROUP CHARACTER INDICATER               DECL     2511
                               54640              SA6    A4          (GCI) = CHARI                               DECL     2512
                                                                                                                 FC50299    36
          1566  37764                    EQU40    IX7    X6-X4                                                   DECL     2513
                     43644                        MX6    -WC.RAL                                                 DECL     2514
                          6170000000 X            SB7    E.EQ17      CHARACTER DECLARATION CONFLICT              DECL     2515
          1567  0307001575 +                      ZR     X7,EQU50    IF NO CONFLICT                              DECL     2516
                                                                                                                 DECL     2517
                                        *         THIS ELEMENT IS LEVELED OR IS CAUSING CHARACTER DECLARATION    DECL     2518
                                        *         CONFLICT IN EQV GROUP, DROP IT FROM THE GROUP.                 DECL     2519
                                                                                                                 DECL     2520
          1570  54551                    EQU45    =A5    A5+1                                                    DECL     2521
                     0335001573 +                 MI     X5,EQU47    IF TABLE ENDS BEFORE END OF CLASS           FC50757    35
                               43114              MX1    EQ.LINKL                                                FC50757    36
          1571  15151                             BX1    -X1*X5      EXTRACT LINK                                FC50757    37
                     20114                        LX1    EQ.LINKL                                                FC50757    38
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    54
        *EQUIVALENCE* DIGESTION.                                      PHASE1
  
                          63210                   SB2    X1                                                      FC50757    39
          1572  0521001570 +                      NE     B2,B1,EQU45 IF NOT END OF THIS CLASS                    DECL     2524
                                                                                                                 FC50299    38
          1573  0100000000 X             EQU47    FATAL  B7          CHARACTER DECLARATION CONFLICT              DECL     2525
          1574  0400001551 +                      EQ     EQU30                                                   DECL     2526
                                                                                                                 DECL     2527
                                        *         FORM PHASE 1 EQUIVALENCE TABLE WORD 1 (G1.).                   DECL     2528
                                                                                                                 DECL     2529
          1575  43301                    EQU50    CLAS=  X3,EQ,(ISUB)                                            FC50299    39
                          15553                   BX5    -X3*X5      CLEAR SUBSCRIPTION INDICATOR                FC50299    40
          1576  5130002601 +                      CLAS=  X3,EQ,(STF)                                             FC50299    41
                          11035                   BX0    X3*X5       STFI = STF[EQI]                             DECL     2531
                               13550              BX5    X5-X0                                                   DECL     2532
          1577  21036                             AX0    EQ.STFP                                                 DECL     2533
                     76210                        =X2    1                                                       DECL     2534
                          11221                   BX2    X2*X1       SAVEI = SAVE[WBI]                           DECL     2535
                               20250              LX2    G1.SAVEP                                                DECL     2536
          1600  12242                             BX2    X4+X2                                                   DECL     2537
                     20552                        LX5    G1.SYMIP-EQ.SYMIP                                       DECL     2538
                          12552                   BX5    X5+X2                                                   DECL     2539
                               43752              MX7    -WC.CLENL                                               DECL     2540
          1601  5120002602 +                      CLAS=  X2,WC,(RB)                                              DECL     2541
                          54311                   =A3    A1-WB.W+WC.W      WCI = WC ENTRY                        DECL     2542
                               11223              BX2    X2*X3       RBI = RB[WCI]                               DECL     2543
                                                  LX3    -WC.RAP                                                 DECL     2544
          1602  15636                             BX6    -X6*X3      RAI = RA[WCI]                               DECL     2545
                     20336                        LX3    WC.RAP-WC.CLENP                                         DECL     2546
                          20244                   LX2    G1.RBP-WC.RBP                                           DECL     2547
                               12225              BX2    X2+X5                                                   DECL     2548
          1603  15337                             BX3    -X7*X3      CLENI = CLEN[WCI]                           DECL     2549
                     63630                        SB6    X3          REMEMBER (B6) = CLENI                       DECL     2550
                                   0              ERRNZ  18-WC.CLENL                                             DECL     2551
                                                  LX6    G1.RAP                                                  DECL     2552
                          12662                   BX6    X6+X2                                                   DECL     2553
                               54671              SA6    A7+B1       [G1I] = (SYMI,CHAR,RBI,RAI) [G1.]           DECL     2554
          1604  54071                             SA0    A7+B1                                                   DECL     2555
                     43201                        CLAS=  X2,G1,(CHAR)                                            DECL     2556
                               13242              BX2    X4-X2                                                   DECL     2557
          1605  20223                             LX2    -G1.CHARP   (X2) .EQ. 0 IF CHAR, .EQ. 1 IF NON-CHAR     DECL     2558
                     63626                        SB6    X2+B6       CLENI = CLENI + (X2)                        DECL     2559
                                                                                                                 DECL     2560
                                        *         GET HI[G2.] FROM  T.DIM ENTRY OF ELEMENT.                      DECL     2561
                                        *         (B5) = MODEI                                                   DECL     2562
                                        *         (X0) = STFI                                                    DECL     2563
                                        *         (B2) = LINKI                                                   DECL     2564
                                                                                                                 DECL     2565
                          20152                   LX1    WB.SAVEP-WB.PNTP                                        DECL     2566
                               43357              MX3    -WB.PNTL                                                DECL     2567
          1606  15213                             BX2    -X3*X1      DIMIND = PNT[WBI]                           DECL     2568
                     43644                        MX6    -DH.PSL                                                 DECL     2569
                          53223                   SA2    X2+B3       D1I = T.DIM(DIMIND)                         DECL     2570
                               20236              LX2    -DH.PSP                                                 DECL     2571
          1607  15726                             BX7    -X6*X2      SIZI = SIZ[D1I]                             DECL     2572
                     20236                        LX2    DH.PSP-DH.DIMP                                          DECL     2573
                          43174                   MX1    -0          INDICATES TWO WORD ELEMENT                  DECL     2574
          1610  6155777773                        SB5    B5-M.DBL                                                DECL     2575
                          0450001613 +            EQ     B5,B0,EQU60 IF MODE DOUBLE                              DECL     2576
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    55
        *EQUIVALENCE* DIGESTION.                                      PHASE1
  
          1611  0451001613 +                      EQ     B5,B1,EQU60 IF MODE COMPLEX                             DECL     2577
                          76100                   =X1    0           INDICATES ONE WORD ELEMENT                  DECL     2578
                               76360              SX3    B6                                                      DECL     2579
          1612  42737                             IX7    X3*X7       SIZI = SIZI * CLENI                         DECL     2580
                                                                                                                 FC50299    42
          1613  54321                    EQU60    =A3    A2+1                                                    DECL     2581
                     43666                        MX6    -DH.DIML                                                DECL     2582
                          15226                   BX2    -X6*X2                                                  DECL     2583
                               63520              SB5    X2          (B5) = NO. OF DIMENSIONS                    DECL     2584
          1614  11617                             BX6    X1*X7                                                   DECL     2585
                     36776                        IX7    X7+X6       DOUBLE SIZE IF *LONG*                       DECL     2586
                          20730                   LX7    G2.HIP                                                  DECL     2587
                                                  LX0    G2.LOP                                                  DECL     2588
                               12770              BX7    X7+X0       ADD IN SUB STRING OFF SET                   DECL     2589
          1615  76220                             SX2    B2                                                      FC50757    40
                     20260                        LX2    G2.LINKP                                                FC50757    41
                          12727                   BX7    X2+X7       (LINKI,SIZI,STFI)[G2.]                      FC50757    42
                                                                                                                 DECL     2591
                                                                                                                 DECL     2592
                                        **        COMPUTE EFFECTIVE SUBSCRIPT --                                 DECL     2593
                                        *                                                                        FC50299    43
                                        *         ENTRY  (B5) = NUMBER OF DIMENSIONS.    (N)                     DECL     2594
                                        *                (X1) = 0 IF SINGLE,  -0 IF LONG.                        DECL     2595
                                        *                (A3,X3) = FIRST DIM WORD        (S(I))                  FC50299    44
                                        *                                                                        FC50299    45
                                        *         METHOD --                                                      DECL     2597
                                        *         I=1                LOOP INDEX                                  DECL     2598
                                        *         PI=1               PARTIAL PRODUCT                             DECL     2599
                                        *         SIGMA=0            ACCUMULATOR                                 DECL     2600
                                        * ALPHA   R1 = (S(I)) - LB(I)      SUBTRACT LOWER BOUND                  DECL     2601
                                        *         SIGMA = SIGMA+R1*PI      ADD CONTRIBUTION FOR THIS SUB         DECL     2602
                                        *         PI = PI*D(I)                                                   DECL     2603
                                        *         I=I+1                                                          DECL     2604
                                        *         IF I@N, _ALPHA     IF MORE SUBS TO DO                          DECL     2605
                                        *         BIAS = SIGMA*2**((WB.LONGP))                                   DECL     2606
                                                                                                                 DECL     2607
                               76210              =X2    1           X2 # PI = 1                                 DECL     2608
          1616  11112                             BX1    X1*X2                                                   DECL     2609
                     13000                        BX0    0           SIGMA = 0                                   DECL     2610
                          36212                   IX2    X1+X2                                                   DECL     2611
                                                                                                                 DECL     2612
          1617  54551                    EQU70    =A5    A5+1                                                    DECL     2613
                     43414                        MX4    EQ.LINKL                                                FC50757    43
                          11445                   BX4    X4*X5                                                   FC50757    44
                               20514              HX5    EQ.SUBS                                                 FC50757    45
          1620  0314001641 +                      NZ     X4,EQU90    IF NO MORE SUBSCRIPTS                       FC50757    46
                          21514                   AX5    -EQ.SUBSL   SIGN EXTEND SUBSCRIPT                       FC50757    47
                               10655              BX6    X5                                                      DECL     2616
          1621  5160000001 +                      SA6    EQUDIM+1                                                DECL     2617
                          55161                   =A1    A6-1        NO. OF DIMENSIONS                           DECL     2618
          1622  6170000000 X                      SB7    E.EQ13                                                  DECL     2619
                          5140002233 +            SA4    EQUS                                                    FC50299    46
          1623  0324001630 +                      PL     X4,EQU75    IF NOT SUBSCRIPTED                          FC50299    47
                          0301001633 +            ZR     X1,EQU80    IF NOT DIMENSIONED                          DECL     2621
          1624  20336                             HX3    D1.SPAN                                                 DECL     2622
                     21336                        AX3    -D1.SPANL   D(I) = SPAN[D1I]                            DECL     2623
                          54131                   =A1    A3+D2.W     FETCH *D2* ENTRY                            DECL     2624
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    56
        *EQUIVALENCE* DIGESTION.                                      PHASE1
  
                                                  HX1    D2.LB                                                   DECL     2625
                               20106              LX1    D2.LBL-DM.INFL-DM.INFP                                  FC50299    48
          1625  21144                             AX1    -DM.INFL    LB(I) = LB(D2I) [SIGN EXTENDED]             FC50299    49
                     37551                        IX5    X5-X1       R1 = S(I) - LB(I)                           DECL     2627
                                        *                            */UB(I) = D(I) + LB(I) - 1                  DECL     2628
                          37453                   IX4    X5-X3       */S(I) - UB(I) = R1 - D(I) + 1              DECL     2629
          1626  6170000000 X                      SB7    E.EQ7                                                   DECL     2630
                          0335001633 +            MI     X5,EQU80    IF R1 .LT. 0      */SUBS TOO SMALL          DECL     2631
          1627  6170000000 X                      SB7    E.EQ8                                                   DECL     2632
                          0324001633 +            PL     X4,EQU80    IF SX .GE. 0      */SUS TOO BIG             DECL     2633
                                                                                                                 DECL     2634
          1630  42152                    EQU75    IX1    X5*X2       R1(I) = R1(I) * PI                          DECL     2635
                     67551                        =B5    B5-1        I = I-1                                     DECL     2636
                          36001                   IX0    X0+X1       SIGMA=SIGMA+R1                              DECL     2637
                               42223              IX2    X2*X3       PI = PI*D(I)                                DECL     2638
          1631  0750001617 +                      MI     B5,EQU70    IF NO MORE DIMS                             DECL     2639
                          5033000002              SA3    A3+Z=DD     FETCH NEXT DIMENSION DESCRIPTOR             DECL     2640
          1632  0400001617 +                      EQ     EQU70                                                   DECL     2641
                                                                                                                 DECL     2642
                                        *         ERROR - SKIP OVER REST OF SUBSCRIPTS.                          DECL     2643
                                                                                                                 DECL     2644
          1633  0100000000 X             EQU80    FATAL  B7          OUTPUT THE MESSAGE                          DECL     2645
          1634  43000                             MX0    0           SIGMA = 0                                   DECL     2646
                                                                                                                 FC50299    50
          1635  54551                    EQU85    =A5    A5+1        NEXT SUBSCRIPT WORD                         DECL     2647
                     43114                        MX1    EQ.LINKL                                                FC50757    48
                          11115                   BX1    X1*X5       EXTRACT LINK                                FC50757    49
          1636  0301001635 +                      ZR     X1,EQU85    IF LAST SUBSCRIPT NOT YET FOUND             FC50757    50
                          6170000000 X            WARN   E.EQ14      EXCESS SUBSCRIPTS IGNORED                   DECL     2650
          1640  0400001547 +                      EQ     EQU20                                                   DECL     2651
                                                                                                                 DECL     2652
          1641  0450001547 +             EQU90    ZR     B5,EQU20    IF NO MORE DIMENSIONS                       DECL     2653
                          5110000001 +            SA1    EQUDIM+1                                                DECL     2654
          1642  0301001547 +                      ZR     X1,EQU20    IF NO SUBSCRIPT ON EQUIVALENCE              DECL     2655
                          6170000000 X            FATAL  E.EQ15      MISSING SUBSCRIPTS SET TO LOWER BOUND       FC5A126    34
          1644  0400001547 +                      EQ     EQU20                                                   DECL     2657
  
  
  
                                        **        PHASE 2 -- PASS 1 OF GALLER / FISHER EQUIVALENCE ALGORITHM.    DECL     2659
                                        *         A.     MARK NEW END-OF-TABLE, AND RE-SET LENGTH.               DECL     2660
                                        *         B.     BEGIN.                                                  DECL     2661
                                                                                                                 DECL     2662
          1645  43773                    EQU99    MX7    -1                                                      DECL     2663
                     54771                        =A7    A7+1        MARK END OF TABLE                           DECL     2664
                          65774                   SB7    A7-B4                                                   DECL     2665
          1646  0470001516 +                      ZR     B7,EQUX     IF TABLE EMPTY                              DECL     2666
                          76671                   SHRINK T=EQUS,B7+1 RESULTANT LENGTH OF TABLE                   DECL     2667
                          56040                   SA0    B4          (A0) = FWA EQUIVALENCE STATEMENTS           DECL     2668
                               66211              =B2    Z=EQS                                                   DECL     2669
          1650  66500                             =B5                GFLEN = 0 (LENGTH OF G/F INFO IN TABLE)     DECL     2670
                     66400                        =B4                (B4) = POINTER TO EQUIV SOURCE INFO         DECL     2671
                                                                                                                 DECL     2672
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     2673
                                                  SA1    CO.SNAP                                                 DECL     2674
                                                  LX1    1RD                                                     DECL     2675
                                                  PL     X1,EQU99S   IF DECLARATIVE SNAP NOT SELECTED            DECL     2676
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    57
        *EQUIVALENCE* DIGESTION.                                      PHASE2
  
                                         EQU.99   DUMPT  EQUS                                                    DECL     2677
                                         EQU99S   BSS    0                                                       DECL     2678
                                         SNAP=D   ENDIF                                                          DECL     2679
                                                                                                                 DECL     2680
                                                                                                                 DECL     2681
                                        **        HERE WE BEGIN TO ADD AN ITEM INTO THE G/F TABLE, WHICH IS      DECL     2682
                                        *                GROWING INTO THE SAME SPACE NOW OCCUPIED BY THE EQUIV   DECL     2683
                                        *                STATEMENT TABLE.                                        DECL     2684
                                                                                                                 DECL     2685
          1651  54504                    EQU100   =A5    B4+A0                                                   DECL     2686
                     43044                        MX0    -G2.LOL                                                 DECL     2687
                          0335001756 +            MI     X5,EQU195   IF END OF EQUIV. INPUT                      DECL     2688
          1652  5140000000 X                      SA4    T.SYM                                                   DECL     2689
                          63340                   SB3    X4          FWA OF SYMBOL TABLE                         DECL     2690
                               20522              LX5    -G1.SYMIP                                               DECL     2691
          1653  63353                             SB3    X5+B3                                                   DECL     2692
                     57431                        =A4    B3-WB.W+WA.W                                            DECL     2693
                          43652                   MX6    WA.SYML                                                 FC50238     5
                               11664              BX6    X6*X4       SYMBOL ONLY                                 FC50238     6
          1654  20552                             LX5    G1.SYMIP    RESTORE (X5)                                DECL     2695
                     5160000000 X                 SA6    FILL.       STORE NAME INTO MESSAGE                     DECL     2696
                               54451              =A4    A5-G1.W+G2.W                                            FC50757    51
          1655  67302                             SB3    -B2                                                     DECL     2698
                     43614                        MX6    G2.LINKL                                                FC50757    52
                          11264                   BX2    X6*X4       EXTRACT LINK                                FC50757    53
                               15446              BX4    -X6*X4      G2.HI+G2.LO                                 FC50757    54
          1656  20214                             LX2    G2.LINKL                                                FC50757    55
                     63620                        SB6    X2          (B6) = ROOT FLAG OF CURRENT                 FC50757    56
                          66442                   SB4    B4+B2                                                   DECL     2700
                                                                                                                 DECL     2701
          1657  66332                    EQU110   SB3    B3+B2                                                   DECL     2702
                     54303                        SA3    B3+A0                                                   DECL     2703
                          0635001666 +            GE     B3,B5,EQU130      IF END OF G/F TABLE                   DECL     2704
          1660  13235                             BX2    X3-X5                                                   DECL     2705
                     21252                        AX2    G1.SYMIP                                                DECL     2706
                          0312001657 +            NZ     X2,EQU110   IF NO MATCH IN G/F                          DECL     2707
          1661  15440                             BX4    -X0*X4      ISOLATE SUBSCRIPT                           DECL     2708
                                                                                                                 DECL     2709
                                        **        CURRENT TAG IS FOUND TO BE ALREADY IN THE G/F TABLE.           DECL     2710
                                        *                CHAIN BACK UNTIL ITS ROOT IS FOUND, ADJUSTING SUBCRIPT  DECL     2711
                                        *                AS WE GO.                                               DECL     2712
                                                                                                                 DECL     2713
          1662  54231                    EQU120   =A2    A3+1                                                    DECL     2714
                     43014                        MX0    G2.LINKL                                                FC50757    57
                          11002                   BX0    X0*X2       EXTRACT LINK                                FC50757    58
                               20014              LX0    EQ.LINKL                                                FC50757    59
          1663  63700                             SB7    X0          ROOT FLAG                                   FC50757    60
                     0473001671 +                 EQ     B7,B3,EQU140      IF THIS IS A ROOT                     DECL     2716
                               20344              HX3    G1.RA                                                   FC50757    61
          1664  66370                             SB3    B7                                                      DECL     2718
                     21344                        AX3    -G1.RAL     EXTEND SIGN OF ADDRESS                      DECL     2719
                          36434                   IX4    X3+X4       ACCUMULATE (X4) = TOTAL DISTANCE TO ROOT    DECL     2720
                               54307              SA3    B7+A0                                                   DECL     2721
          1665  0400001662 +                      EQ     EQU120                                                  DECL     2722
                                                                                                                 DECL     2723
                                        **        CURRENT TAG NOT YET IN G/F TABLE.  CREATE AN ENTRY FOR IT.     DECL     2724
                                                                                                                 DECL     2725
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    58
        *EQUIVALENCE* DIGESTION.                                      PHASE2
  
          1666  11304                    EQU130   BX3    X0*X4       LENGTH                                      DECL     2726
                     66552                        SB5    B5+B2       GFLEN = GFLEN + Z=EQS                       DECL     2727
                          22605                   LX6    X5                                                      DECL     2728
                               76730              SX7    B3                                                      FC50757    62
          1667  20760                             LX7    G2.LINKP                                                FC50757    63
                     12773                        BX7    X7+X3       HI = LEN, LO = 0, LINK = SELF.              FC50757    64
                          54603                   SA6    B3+A0                                                   DECL     2730
                               54761              =A7    A6+1                                                    DECL     2731
          1670  15440                             BX4    -X0*X4      ISOLATE SUBSCRIPT                           DECL     2732
                                                                                                                 DECL     2733
                                        **        CURRENT TAG IS NOW IN THE G/F TABLE, AND WE KNOW ITS DISTANCE  DECL     2734
                                        *                FROM ITS ROOT.   IF IT IS THE FIRST MEMBER OF A GROUP,  DECL     2735
                                        *                REMEMBER IT AND RETURN TO PROCESS THE NEXT ONE.         DECL     2736
                                        *                (B3) = G/F TABLE ORDINAL (T).                           DECL     2737
                                        *                (B6) = ROOT FLAG.                                       DECL     2738
                                        *                (X4) = SUBSCRIPT.                                       DECL     2739
                                                                                                                 DECL     2740
          1671  43644                    EQU140   MX6    -G2.LOL                                                 FC50757    65
                     15446                        BX4    -X6*X4      EXTRACT SUBSRIPT ONLY                       FC50757    66
                          0561001674 +            NE     B6,B1,EQU150 IF NOT A NEW GROUP                         FC50757    67
          1672  76630                             SX6    B3                                                      FC50757    68
                     20660                        LX6    G2.LINKP                                                FC50757    69
                          12664                   BX6    X6+X4                                                   FC50757    70
          1673  5160002232 +                      SA6    EQUA                                                    DECL     2743
                          0400001651 +            EQ     EQU100                                                  DECL     2744
                                                                                                                 DECL     2745
                                        **        WHEN IT DOES NOT BEGIN A GROUP, LINK IT INTO THE G/F TABLE.    DECL     2746
                                        *                (B3) # T    G/F TABLE ORDINAL                           DECL     2747
                                        *                (X4) # D    SUBSCRIPT                                   DECL     2748
                                                                                                                 DECL     2749
          1674  5120002232 +             EQU150   SA2    EQUA                                                    DECL     2750
                          43614                   MX6    G2.LINKL                                                FC50757    71
                               15326              BX3    -X6*X2      EXTRACT D0                                  FC50757    72
          1675  11262                             BX2    X6*X2                                                   FC50757    73
                     20214                        LX2    G2.LINKL                                                FC50757    74
                          63620                   SB6    X2          EXTRACT T0                                  FC50757    75
                               37534              IX5    X3-X4       X5 = DIST = D0 - Y                          DECL     2753
          1676  20544                             HX5    G1.RA                                                   FC50757    76
                     21544                        AX5    -G1.RAL     SIGN EXTEND                                 FC50757    77
                          0763001702 +            GT     B3,B6,EQU160 IF CURRENT OCCURS LATER THAN THIS ROOT     DECL     2754
          1677  0436001733 +                      EQ     B3,B6,EQU.10 IF CURRENT ALREADY LINKED TO THIS ROOT     DECL     2755
                                                                                                                 DECL     2756
                                        **        IF CURRENT OCCURS BEFORE ITS ROOT, SWITCH THEM SO TABLE        DECL     2757
                                        *                ALWAYS LINKS UPWARD.                                    DECL     2758
                                                                                                                 DECL     2759
                          66730                   SB7    B3          W = T                                       DECL     2760
                               66360              SB3    B6          T = T0                                      DECL     2761
          1700  14555                             BX5    -X5         DIST = -DIST                                DECL     2762
                     66670                        SB6    B7          T0 = W                                      DECL     2763
                          76670                   SX6    B7                                                      FC50757    78
                               20660              LX6    G2.LINKP                                                FC50757    79
          1701  12664                             BX6    X6+X4       D0 = Y                                      FC50757    80
                     54620                        SA6    A2                                                      DECL     2765
                                                                                                                 DECL     2766
                                        **        BEFORE ADDING TO THE TREE, CHECK FOR CONSISTENCY.              DECL     2767
                                        *         NOTE   R(T) = ( BLOCK(T), RELADD(T) )                          DECL     2768
                                                                                                                 DECL     2769
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    59
        *EQUIVALENCE* DIGESTION.                                      PHASE2
  
          1702  54303                    EQU160   SA3    B3+A0       G1T = T.EQUS(T)                             DECL     2770
                     54206                        SA2    B6+A0       G1T0 = T.EQUS(T0)                           DECL     2771
                          5140002603 +            CLAS=  X4,G1,(RB)                                              DECL     2772
          1703  22702                             LX7    X2                                                      DECL     2773
                     20744                        HX7    G1.RA                                                   DECL     2774
                          21744                   AX7    -G1.RAL     RAT0 = RA[G1T0], SIGN EXTENTED              DECL     2775
                               11143              BX1    X4*X3       RBT = RB[G1T]                               DECL     2776
          1704  11642                             BX6    X4*X2       RBT0 = RB[G1T]                              DECL     2777
                     10433                        BX4    X3                                                      DECL     2778
                          20444                   HX4    G1.RA                                                   DECL     2779
                               21444              AX4    -G1.RAL     RAT = RA[G1T], SIGN EXTENTED                DECL     2780
          1705  0311001707 +                      NZ     X1,EQU170   IF RBT .NE. 0                               DECL     2781
                          0316001746 +            NZ     X6,EQU.50   IF RBT0 .NE. 0                              DECL     2782
          1706  0400001715 +                      EQ     EQU190                                                  DECL     2783
                                                                                                                 DECL     2784
                                        **        CURRENT ELEMENT HAS AN ADDRESS -- CHECK ITS ROOT.              DECL     2785
                                                                                                                 DECL     2786
          1707  0316001740 +             EQU170   NZ     X6,EQU.30   IF RBT0 .NE. 0                              DECL     2787
                                                                                                                 DECL     2788
                                        **        ROOT HAS NO ADDRESS.                                           DECL     2789
                                        *                SET R(T0) = R(T) - DIST                                 DECL     2790
                                                                                                                 DECL     2791
                          37745                   IX7    X4-X5       D = RAT - DIST                              DECL     2792
          1710  0337001751 +                      MI     X7,EQU.60   IF RAT .LT. DIST                            DECL     2793
                          10611                   BX6    X1          PRESERVE X1                                 DECL     2794
                               54121              =A1    A2+1                                                    DECL     2795
          1711  20144                             HX1    G2.LO                                                   DECL     2796
                     21144                        AX1    -G2.LOL     X1 = LOT0                                   DECL     2797
                          37171                   IX1    X7-X1       X1 = D - LOT0                               DECL     2798
          1712  0331001754 +                      MI     X1,EQU.70   ILLEGAL EXTENSION OF BLOCK ORIGIN           DECL     2799
                          10166                   BX1    X6          RESTORE X1                                  DECL     2800
                                                                                                                 DECL     2801
                                         EQU180   LX7    G1.RAP                                                  DECL     2802
          1713  12717                             BX7    X1+X7                                                   DECL     2803
                     5110002604 +                 CLAS=  X1,G1,(RB,RA)                                           DECL     2804
                               15221              BX2    -X1*X2      (RB,RA)[G1T0] = 0                           DECL     2805
          1714  12627                             BX6    X2+X7                                                   DECL     2806
                     54620                        SA6    A2          (RB,RA)[G1T0] = (RBT,D)[G1.]                DECL     2807
                                                                                                                 DECL     2808
                                                                                                                 DECL     2809
                                        **        ADD ELEMENT TO PROPER TREE.                                    DECL     2810
                                        *         SET    R(T) = DIST                                             DECL     2811
                                        *                S(T) = T0                                               DECL     2812
                                        *                HI(T0) = MAX (HI(T0), HI(T)+DIST)                       DECL     2813
                                        *                LO(T0) = MAX (LO(T0), LO(T)-DIST)                       DECL     2814
                                                                                                                 DECL     2815
                                        *         ENTRY  (B3) = T                                                DECL     2816
                                        *                (B6) = T0                                               DECL     2817
                                        *                (X3) = CURRENT (T)                                      DECL     2818
                                        *                (X5) = DIST                                             DECL     2819
                                        *                (A2) _ T0                                               DECL     2820
                                        *                (A3) _ T                                                DECL     2821
                                                                                                                 DECL     2822
          1715  54220                    EQU190   SA2    A2          G1R = G1 ENTRY OF T0                        DECL     2823
                     43032                        MX0    -G1.ADRL                                                DECL     2824
                          43401                   CLAS=  X4,G1,(SAVE)                                            DECL     2825
          1716  11603                             BX6    X0*X3       CLEAR (RB,RA) FIELD                         DECL     2826
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    60
        *EQUIVALENCE* DIGESTION.                                      PHASE2
  
                                   0              ERRNZ  0-G1.ADRP                                               DECL     2827
                     11443                        BX4    X4*X3                                                   DECL     2828
                          12724                   BX7    X2+X4                                                   DECL     2829
                               54720              SA7    A2          SAVE[G1R] = SAVE[G1R] .OR. SAVE[G1I]        DECL     2830
          1717  43044                             MX0    -G1.RAL                                                 DECL     2831
                     15050                        BX0    -X0*X5      ISOLATE (X0) = DISTANCE                     DECL     2832
                          54221                   =A2    A2-G1.W+G2.W      G2R = G2 ENTRY OF T0                  DECL     2833
                               54331              =A3    A3-G1.W+G2.W      G2I = G2 ENTRY OF T                   DECL     2834
                                                  LX0    G1.RAP                                                  DECL     2835
          1720  12660                             BX6    X6+X0                                                   DECL     2836
                     55631                        =A6    A3-G2.W+G1.W      (RB,RA)[G1I] = (0,DIST) [G1.]         DECL     2837
                          43014                   MX0    G2.LINKL                                                FC50757    81
                               15220              BX2    -X0*X2      EXTRACT (HI+LO)[G2R]                        FC50757    82
          1721  15330                             BX3    -X0*X3      EXTRACT (HI+LO)[G2I]                        FC50757    83
                     76760                        SX7    B6                                                      FC50757    84
                          20760                   LX7    G2.LINKP                                                FC50757    85
                               12773              BX7    X7+X3       LINK(T) = T0                                FC50757    86
          1722  54730                             SA7    A3          LNK[G2I] = T0                               DECL     2839
                     20344                        HX3    G2.LO                                                   DECL     2840
                          20244                   HX2    G2.LO                                                   DECL     2841
          1723  6170000044                        =B7    59-G2.LOL-G2.LOP+1                                      DECL     2842
                          23073                   AX0    X3,B7                                                   DECL     2843
                               37105              IX1    X0-X5       = LO(T) - DIST                              DECL     2844
          1724  23772                             AX7    X2,B7                                                   DECL     2845
                     37671                        MX6    X7+X1       X6 = MAX ( LO(T0), LO(T)-DIST )             DECL     2846
                                                                                                                 DECL     2847
                                 -30     A        SET    G2.LOL+G2.LOP-G2.HIL-G2.HIP                             DECL     2848
                          20344                   LX3    A           (G2.HI) FIELDS TO TOP                       DECL     2849
                                                                                                                 FC50757    87
                                         .TEST    IFEQ   TEST,ON,1                                               DECL     2850
                                                  MI     X6,"BLOWUP"       IF NEGATIVE OFFSET                    DECL     2851
                                                                                                                 FC50757    88
                               20244              LX2    A                                                       DECL     2852
          1726  23373                             AX3    B7                                                      DECL     2853
                     36035                        IX0    X3+X5       = HI(T) + DIST                              DECL     2854
                                                  LX6    G2.LOP                                                  DECL     2855
                          23772                   AX7    X2,B7                                                   DECL     2856
                               43114              MX1    G2.LINKL                                                FC50757    89
          1727  15661                             BX6    -X1*X6                                                  FC50757    90
                     76160                        SX1    B6                                                      FC50757    91
                          20160                   LX1    G2.LINKP                                                FC50757    92
                               12116              BX1    X1+X6       RESTORE LINK                                FC50757    93
          1730  37370                             MX3    X7+X0       X3 = MAX ( HI(T0), HI(T)+DIST )             DECL     2858
                                                                                                                 FC50757    94
                                         .TEST    IFEQ   TEST,ON,1                                               DECL     2859
                                                  MI     X3,"BLOWUP"       IF NEGATIVE OFFSET                    DECL     2860
                                                                                                                 FC50757    95
                     20330                        LX3    G2.HIP                                                  DECL     2861
                          12713                   BX7    X1+X3                                                   DECL     2862
                               54720              SA7    A2          RESET (T0) (S, HI, LO)                      DECL     2863
          1732  0400001651 +                      EQ     EQU100                                                  DECL     2864
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    61
        *EQUIVALENCE* DIGESTION.                                      EQU.N 
  
                                        **        PHASE 2 ERROR PROCESSING.                                      DECL     2866
                                        *         CHECK / PROCESS EQUIVALENCE REDUNDANCY / CONTRADICTION ERRORS. DECL     2867
                                                                                                                 DECL     2868
                                                                                                                 DECL     2869
          1733  0315001736 +             EQU.10   NZ     X5,EQU.20   IF CONTRADICTION                            DECL     2870
                          6170000000 X            WARN   E.EQ11      REDUNDANT SPECIFICATIONS                    DECL     2871
          1735  0400001651 +                      EQ     EQU100                                                  DECL     2872
                                                                                                                 DECL     2873
          1736  6170000000 X             EQU.20   FATAL  E.EQ12      CONFLICTING SPECS.                          DECL     2874
          1737  0400001651 +                      EQ     EQU100                                                  DECL     2875
                                                                                                                 DECL     2876
          1740  37447                    EQU.30   IX4    X4-X7                                                   DECL     2877
                     37616                        IX6    X1-X6       = RBT - RBT0                                DECL     2878
                          37145                   IX1    X4-X5       = RAT - RAT0 - DIST                         DECL     2879
          1741  0316001744 +                      NZ     X6,EQU.40   IF RBT .NE. RBT0                            DECL     2880
                          0311001744 +            NZ     X1,EQU.40   IF CONTRADICTION                            DECL     2881
          1742  6170000000 X                      WARN   E.EQ11      REDUNDANT SPECIFICATION                     DECL     2882
          1743  0400001715 +                      EQ     EQU190                                                  DECL     2883
                                                                                                                 DECL     2884
          1744  6170000000 X             EQU.40   FATAL  E.EQ12      CONFLICTING SPECS.                          DECL     2885
          1745  0400001715 +                      EQ     EQU190                                                  DECL     2886
                                                                                                                 DECL     2887
                                        *         CHECK/PROCESS ILLEGAL COMMON BLOCK EXTENSION ERROR.            FC50757    96
                                        *                                                                        DECL     2889
                                        *         TEST ILLEGAL EXTENSION BY MEMBER.                              DECL     2890
                                                                                                                 DECL     2891
          1746  36075                    EQU.50   IX0    X7+X5       D = RAT0 + DIST                             DECL     2892
                     0320001715 +                 PL     X0,EQU190   IF D .GT. 0                                 DECL     2893
                               14577              BX5    -X7         DIST = -RAT0                                DECL     2894
          1747  6170000000 X                      FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN    DECL     2895
          1750  0400001715 +                      EQ     EQU190                                                  DECL     2896
                                                                                                                 DECL     2897
                                        *         ILLEGAL EXTENSION BY ROOT.                                     DECL     2898
                                                                                                                 DECL     2899
          1751  10544                    EQU.60   BX5    X4          DIST = RAT                                  DECL     2900
                                                                                                                 DECL     2901
                                        *         PLACE IN (FILL.) NAME OF ROOT.                                 DECL     2902
                                                                                                                 DECL     2903
                     5110000000 X                 SA1    T.SYM                                                   DECL     2904
                               43752              MX7    WA.SYML                                                 FC5A299     5
          1752  6271777776                        =B7    X1-WB.W+WA.W                                            DECL     2905
                          20222                   LX2    -G1.SYMIP                                               DECL     2906
                               53127              =A1    X2+B7                                                   DECL     2907
                                   0              ERRNZ  18-G1.SYMIL                                             DECL     2908
          1753  11771                             BX7    X7*X1       SYMBOL ONLY                                 FC5A299     6
                     20252                        LX2    G1.SYMIP    RESTORE (X2)                                DECL     2910
                          5170000000 X            SA7    FILL.       SET NAME OF ROOT INTO MESSAGE               DECL     2911
                                                                                                                 FC50757    97
          1754  6170000000 X             EQU.70   FATAL  E.EQ16      ILLEGAL EXTENSION OF COMMON BLOCK ORIGIN    DECL     2912
          1755  13777                             BX7    0           RAT0 = RAT - DIST = 0                       DECL     2913
                     43100                        MX1    0           RBT = RB[G1T] = 0                           DECL     2914
                          0400001713 +            EQ     EQU180                                                  DECL     2915
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    62
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
                                        **        PHASE 3 -- COMMON-EQUIVALENCE OVERLAP SEARCH.                  DECL     2917
                                        *                                                                        DECL     2918
                                        *         CONSTRUCT T.EOT TABLE.                                         DECL     2919
                                        *         FOR EACH EQUIVALENCE GROUP IN COMMON, EXTEND ITS RANGE TO      DECL     2920
                                        *         INCLUDE MEMBERS OF COMMON BLOCK WHICH IT OVERLAPS.             DECL     2921
                                        *         ADD ADDITIONAL ENTRIES TO G-F TABLE FOR THESE MEMBERS AND      DECL     2922
                                        *         UPDATE FWA AND LWA OF CLASS.                                   DECL     2923
                                        *         ENTRY  (B5) = EQLEN                                            DECL     2924
                                        *                (B2) = Z=EQS                                            DECL     2925
                                        *                (X1) = FWA(T.EOT)                                       DECL     2926
                                                                                                                 DECL     2927
                                        *         SHRINK LENGTH OF T.EQUS TO GFLEN.                              DECL     2928
                                        *         ALLOCATE TABLE SPACE FOR T.EOT AND T.ECT. .                    DECL     2929
                                                                                                                 DECL     2930
          1756                           EQU195   BSS    0                                                       DECL     2931
          1756  76650                             SHRINK T=EQUS,B5                                               DECL     2932
          1757  5110000000 X                      ALLOC  T.ECT,B5    ALLOCATE SPACE FOR T.ECT                    DECL     2933
          1761  5110000000 X                      ALLOC  T.EOT,B5    ALLOCATE SPACE FOR T.EOT                    DECL     2934
                                                                                                                 DECL     2935
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     2936
                                                  SA2    CO.SNAP                                                 DECL     2937
                                                  LX2    1RD                                                     DECL     2938
                                                  PL     X2,EQU195S  IF DECLARATIVE SNAP NOT SELECTED            DECL     2939
                                         EQU.195  DUMPT  EQUS                                                    DECL     2940
                                         EQU195S  BSS    0                                                       DECL     2941
                                         SNAP=D   ENDIF                                                          DECL     2942
                                                                                                                 DECL     2943
          1763  5130000000 X                      SA3    T.EQUS                                                  DECL     2944
                          63610                   =B6    X1+OA.W                                                 DECL     2945
                               66700              =B7    0           EOIND = 0                                   DECL     2946
          1764  67402                             SB4    -B2         GFIND = -Z=EQS                              DECL     2947
                     53030                        =A0    X3+G1.W                                                 DECL     2948
                          43044                   MX0    -G2.LOL                                                 DECL     2949
                                                                                                                 DECL     2950
                                        **        CONSTRUCT EQUIVALENCE OVERLAP TABLE (T.EOT).                   DECL     2951
                                        *         FOR EACH ROOT OF AN EQUIVALENCED GROUP, FORMAT T.EOT           DECL     2952
                                        *         ENTRIES AS OA., OB. .                                          DECL     2953
                                                                                                                 DECL     2954
          1765  0450001777 +             EQU200   ZR     B5,EQU210   IF END OF T.EQUS                            DECL     2955
                          66442                   SB4    B4+B2       GFIND = GFIND + Z=EQS                       DECL     2956
                               54104              SA1    A0+B4       G1I = T.EQUS(GFIND)                         DECL     2957
          1766  54211                             =A2    A1-G1.W+G2.W      G2I                                   DECL     2958
                     43562                        MX5    -G1.RBL                                                 DECL     2959
                          43414                   MX4    G2.LINKL                                                FC50757    98
                               11342              BX3    X4*X2                                                   FC50757    99
          1767  15724                             BX7    -X4*X2                                                  FC50757   100
                     20314                        LX3    G2.LINKL                                                FC50757   101
                          63330                   SB3    X3          (B3) = LINKI = LINK[G2I]                    FC50757   102
                               67552              SB5    B5-B2       GFLEN = GFLEN - Z=EQS                       DECL     2961
          1770  0534001765 +                      NE     B3,B4,EQU200      IF LNKI .NE. GFIND (IF NOT ROOT)      DECL     2962
                          10311                   BX3    X1                                                      DECL     2963
                                                  LX2    -G2.LOP                                                 DECL     2964
                               20344              HX3    G1.RA                                                   DECL     2965
          1771  20744                             LX7    -G2.HIP                                                 DECL     2966
                     15420                        BX4    -X0*X2      LOI = LO[G2I]                               DECL     2967
                          20144                   LX1    -G1.RBP                                                 DECL     2968
                               21344              AX3    -G1.RAL     RAI = RA[G1I], SIGN EXTENTED                DECL     2969
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    63
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
          1772  15615                             BX6    -X5*X1      RBI = RB[G1I]                               DECL     2970
                     15270                        BX2    -X0*X7      HII = HI[G1I]                               DECL     2971
                                   0              ERRNZ  G2.LOL-G2.HIL                                           DECL     2972
                          37434                   IX4    X3-X4       FWAI = RAI - LOI (COULD BE NEGATIVE)        DECL     2973
                               36232              IX2    X3+X2       LWAI =RAI + HII                             DECL     2974
          1773  15440                             BX4    -X0*X4                                                  DECL     2975
                                   0              ERRNZ  G2.LOL-OA.FWAL                                          DECL     2976
                     20661                        LX6    OA.RBP                                                  DECL     2977
                          20430                   LX4    OA.FWAP                                                 DECL     2978
                               12664              BX6    X6+X4                                                   DECL     2979
                                                  LX2    OA.LWAP                                                 DECL     2980
          1774  76740                             SX7    B4                                                      DECL     2981
                     36662                        IX6    X6+X2                                                   DECL     2982
                          56667                   SA6    B6+B7       T.EOT(EOIND) = (RBI,FWAI,LWAI) [OA.]        DECL     2983
          1775  5076000001                        SA7    A6-OA.W+OB.W      T.EOT(EOIND+OB.W) = GFIND[OB.]        DECL     2984
                          66772                   SB7    B7+B2       EOIND = EOIND + Z=EOT                       DECL     2985
                                   0              ERRNZ  Z=EOT-Z=EQS                                             DECL     2986
          1776  0400001765 +                      EQ     EQU200                                                  DECL     2987
                                                                                                                 DECL     2988
                                        *         SORT T.EOT IN ASCENDING ORDER OF (RB,FWA,LWA).                 DECL     2989
                                                                                                                 DECL     2990
          1777  7167000002               EQU210   SX6    B7+Z=EOT                                                DECL     2991
                          43501                   MX5    1                                                       DECL     2992
                               14755              BX7    -X5         STORE A POSITIVE LARGE NUMBER INTO          DECL     2993
          2000  56767                             SA7    B6+B7       TERMINATOR WORD                             DECL     2994
                     5160000000 X                 SHRINK T=EOT,X6    SHRINK (T=EOT) TO EOIND+1                   DECL     2995
                                                                                                                 DECL     2996
                                         SNAP=D   IFNE   TEST                                                    DECL     2997
                                                  SA1    CO.SNAP                                                 DECL     2998
                                                  LX1    1RD                                                     DECL     2999
                                                  PL     X1,EQU210S                                              DECL     3000
                                         EQU.210  DUMPT  EOT                                                     DECL     3001
                                         EQU210S  BSS    0                                                       DECL     3002
                                         SNAP=D   ENDIF                                                          DECL     3003
                                                                                                                 DECL     3004
          2001  5110000000 X                      SA1    T.EOT                                                   DECL     3005
                          0100001500 +            RJ     DSRT        SORT T.EOT                                  DECL     3006
          2002  5120000000 X                      SA2    T.EOT                                                   DECL     3007
                          5130000000 X            SA3    T=EOT                                                   DECL     3008
          2003  6120777775                        =B2    -Z=EOT      EOIND = -Z=EOT                              DECL     3009
                          63432                   SB4    X3+B2       LWIND = LEN(T.EOT) - Z=EOT                  DECL     3010
                               10755              BX7    X5                                                      DECL     3011
          2004  63320                             =B3    X2+OA.W                                                 DECL     3012
                     56734                        SA7    B3+B4       T.EOT(LWIND) = 1S59                         DECL     3013
                                                                                                                 DECL     3014
                                                                                                                 DECL     3015
                                        **        BEGIN COMMON EQUIVALENCE OVERLAP SEARCH.                       DECL     3016
                                        *         FOR EACH EQUIVALENCE GROUP IN COMMON, SEARCH ITS ENTIRE        DECL     3017
                                        *         COMMON BLOCK FOR MEMBERS OVERLAPPING WITH SPAN OF EQUIVALENCE  DECL     3018
                                        *         CLASS, ADD THESE TO THE CLASS.                                 DECL     3019
                                        *         (B2) = EOIND                                                   DECL     3020
                                        *         (B3) = FWA(T.EOT) + OA.W                                       DECL     3021
                                                                                                                 DECL     3022
                                                                                                                 DECL     3023
          2005  6122000002               EQU220   SB2    B2+Z=EOT    EOIND = EOIND + Z=EOT                       DECL     3024
                          56332                   SA3    B3+B2       OAI = T.EOT(EOIND)                          DECL     3025
                               43062              MX0    -OA.RBL                                                 DECL     3026
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    64
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
          2006  0333002051 +                      MI     X3,EQU300   IF END OF T.EOT                             DECL     3027
                          20313                   LX3    -OA.RBP                                                 DECL     3028
                               15730              BX7    -X0*X3      RBI = RB[OAI]                               DECL     3029
          2007  5120000000 X                      SA2    T.BLKS                                                  DECL     3030
                          0307002005 +            ZR     X7,EQU220   IF RBI .NE. 0                               DECL     3031
          2010  36627                             IX6    X2+X7                                                   DECL     3032
                     5120000000 X                 SA2    T.COMM                                                  DECL     3033
                               53461              =A4    X6+CB.W     CBI = T.BLKS(RBI)                           DECL     3034
          2011  43544                             MX5    -CB.BLENL                                               DECL     3035
                                                  LX4    -CB.BLENP                                               DECL     3036
                     15545                        BX5    -X5*X4      BLENI = BLEN[CBI]                           DECL     3037
                          20422                   LX4    CB.BLENP-CB.FMIP                                        DECL     3038
                               63420              SB4    X2                                                      DECL     3039
          2012  43060                             MX0    -CB.FMIL                                                DECL     3040
                     15040                        BX0    -X0*X4                                                  DECL     3041
                          63500                   SB5    X0          COMIND = FMI[CBI]                           DECL     3042
                                                                                                                 DECL     3043
                                        *         NEXT ELEMENT IN THIS COMMON BLOCK.                             DECL     3044
                                        *         (B2) = EOIND                                                   DECL     3045
                                        *         (B3) = FWA(T.EOT) + OA.W                                       DECL     3046
                                        *         (B4) = FWA(T.COMM)                                             DECL     3047
                                        *         (B5) = COMIND                                                  DECL     3048
                                        *         (X5) = BLENI                                                   DECL     3049
                                                                                                                 DECL     3050
          2013  0450002005 +             EQU230   ZR     B5,EQU220   IF END OF THIS BLOCK                        DECL     3051
                          56332                   SA3    B3+B2       OAI                                         DECL     3052
                               56445              SA4    B4+B5       CMI = T.COMM(COMIND)                        DECL     3053
          2014  43760                             MX7    -CT.LNKL                                                DECL     3054
                     5110002605 +                 CLAS=  X1,OA,(FWA,LWA)                                         DECL     3055
                               20444              LX4    -CT.LNKP                                                DECL     3056
          2015  15647                             BX6    -X7*X4                                                  DECL     3057
                     63560                        SB5    X6          COMIND = LNK[CMI]                           DECL     3058
                          15731                   BX7    -X1*X3      CLEAR FWA, LWA FIELDS                       DECL     3059
                               20344              LX3    -OA.FWAP                                                DECL     3060
          2016  43044                             MX0    -OA.FWAL                                                DECL     3061
                     20430                        LX4    CT.LNKP-CT.RAP                                          DECL     3062
                          15230                   BX2    -X0*X3      FWAC = FWA[OAI]                             DECL     3063
                               15440              BX4    -X0*X4      FWAM = RA[CMI]                              DECL     3064
                                   0              ERRNZ  OA.FWAL-CT.RAL                                          DECL     3065
          2017  20330                             LX3    OA.FWAP-OA.LWAP                                         DECL     3066
                     15330                        BX3    -X0*X3      LWAC = LWA[OAI]                             DECL     3067
                                   0              ERRNZ  OA.FWAL-OA.LWAL                                         DECL     3068
                          37634                   IX6    X3-X4                                                   DECL     3069
                               10155              BX1    X5          LWAM = BLENI                                DECL     3070
          2020  0450002022 +                      ZR     B5,EQU235   IF LAST ELEMENT OF BLOCK                    DECL     3071
                          56145                   SA1    B4+B5       CMN = T.BLKS(COMIND)                        DECL     3072
                               20144              HX1    CT.RA                                                   DECL     3073
          2021  21144                             AX1    -CT.RAL     LWAM = RA[CMN]                              DECL     3074
                                                                                                                 FC50299    51
          2022  0336002013 +             EQU235   MI     X6,EQU230   IF LWAC .LT. FWAM                           DECL     3075
                          0306002013 +            ZR     X6,EQU230   IF LWAC .EQ. FWAM                           DECL     3076
          2023  37012                             IX0    X1-X2                                                   DECL     3077
                     0330002013 +                 MI     X0,EQU230   IF LWAM .LT. FWAC                           DECL     3078
          2024  0300002013 +                      ZR     X0,EQU230   IF LWAM .EQ. FWAC                           DECL     3079
                                                                                                                 DECL     3080
                                        *         OVERLAP EXISTS, UPDATE (FWA,LWA) OF CLASS.                     DECL     3081
                                                                                                                 DECL     3082
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    65
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
                          37642                   MX6    X4-X2       FWAC = MIN (FWAM, FWAC)                     DECL     3083
                               20630              LX6    OA.FWAP                                                 DECL     3084
          2026  36767                             IX7    X6+X7                                                   DECL     3085
                     37013                        MX0    X1+X3       LWAC = MAX (LWAM, LWAC)                     DECL     3086
                                                  LX0    OA.LWAP                                                 DECL     3087
                          36770                   IX7    X7+X0                                                   DECL     3088
                               54730              SA7    A3          (FWA,LWA) [OAI] = (FWAC,LWAC) [OA.]         DECL     3089
                                                                                                                 DECL     3090
                                        *         CHECK IF THIS COMMON ELEMENT IS IN THE G-F TABLE.              DECL     3091
                                        *         (A4) = CMI                                                     DECL     3092
                                                                                                                 DECL     3093
          2030  54440                             SA4    A4          CMI                                         DECL     3094
                     5110000000 X                 SA1    T.EQUS                                                  DECL     3095
          2031  5120000000 X                      SA2    T=EQUS                                                  DECL     3096
                          63710                   =B7    X1+G1.W                                                 DECL     3097
                               43752              MX7    -G1.SYMIL                                               DECL     3098
          2032  10644                             BX6    X4                                                      DECL     3099
                     20622                        LX6    -CT.TAGP                                                DECL     3100
                          15667                   BX6    -X7*X6      TAGI = TAG[CMI]                             DECL     3101
                                   0              ERRNZ  CT.TAGL-G1.SYMIL                                        DECL     3102
                               22016              LX0    X6,B1                                                   DECL     3103
          2033  36660                             IX6    X6+X0       SYMM = 3 * TAGI                             DECL     3104
                     20752                        LX7    G1.SYMIP                                                DECL     3105
                          73661                   =X6    X6+WB.W                                                 DECL     3106
          2034  6262777775                        SB6    X2-Z=EQS    LENGF = LEN(T.EQUS) - Z=EQS                 DECL     3107
                          20652                   LX6    G1.SYMIP                                                DECL     3108
                                                                                                                 FC50299    52
          2035  56176                    EQU240   SA1    B7+B6       G1I = T.EQUS(LENGF)                         DECL     3109
                     6166777775                   SB6    B6-Z=EQS    LENGF = LENGF - Z=EQS                       DECL     3110
                               15317              BX3    -X7*X1      SYMI = SYM[G1I]                             DECL     3111
          2036  37263                             IX2    X6-X3                                                   DECL     3112
                     0302002013 +                 ZR     X2,EQU230   IF MATCH                                    DECL     3113
          2037  0660002035 +                      GE     B6,B0,EQU240      IF TABLE NOT EXHAUSTED                DECL     3114
                                                                                                                 DECL     3115
                                        *         MATCH NOT FOUND, CREATE AN ENTRY FOR IT.                       DECL     3116
                                        *         (A3) = OAI                                                     DECL     3117
                                        *         (A4,X4) = CMI                                                  DECL     3118
                                                                                                                 DECL     3119
                          43044                   MX0    -G1.RAL                                                 DECL     3120
          2040  5023000001                        SA2    A3-OA.W+OB.W                                            DECL     3121
                          20444                   HX4    CT.RA                                                   DECL     3122
                               63620              SB6    X2          GFIR = GFI(OBI)                             DECL     3123
                                   0              ERRNZ  18-OB.GFIL                                              DECL     3124
          2041  21444                             AX4    -CT.RAL     RAI = RA[CMI]                               DECL     3125
                     56276                        SA2    B7+B6       G1R = T.EQUS(GFIR)                          DECL     3126
                          20244                   HX2    G1.RA                                                   DECL     3127
                               21244              AX2    -G1.RAL     RAR = RA[G1R], SIGN EXTENTED                DECL     3128
          2042  37442                             IX4    X4-X2       RAM = RAM - RAR                             DECL     3129
                     15040                        BX0    -X0*X4                                                  DECL     3130
                                                  LX0    G1.RAP                                                  DECL     3131
                          36460                   IX4    X6+X0                                                   DECL     3132
          2043  5110000000 X                      ALLOC  T.EQUS,Z=EQS                                            DECL     3133
          2045  22604                             LX6    X4                                                      DECL     3135
                     76760                        SX7    B6                                                      FC50757   103
                          20760                   LX7    G2.LINKP                                                FC50757   104
                               57771              =A7    B7-1        GF2 = (GFIR)[G2.]                           DECL     3137
          2046  55671                             SA6    A7-B1       GF1 = (SYMM,RAM) [G1.]                      DECL     3138
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    66
        *EQUIVALENCE* DIGESTION.                                      PHASE3
  
                                                                                                                 DECL     3139
                                        *         RESTORE SOME TABLE ORGINS.                                     DECL     3140
                                                                                                                 DECL     3141
                     5120000000 X                 SA2    T.EOT                                                   DECL     3142
          2047  5110000000 X                      SA1    T.COMM                                                  DECL     3143
                          63410                   SB4    X1                                                      DECL     3144
                               63320              =B3    X2+OA.W                                                 FC5A319     7
          2050  0400002013 +                      EQ     EQU230                                                  DECL     3146
                                                                                                                 DECL     3147
  
  
  
                                        **        PHASE 4 -- EQUIVALENCE CLASS OVERLAP SEARCH.                   DECL     3149
                                        *                                                                        DECL     3150
                                        *         MERGE OVERLAPPING EQUIVALENCE CLASSES WITHIN COMMON BLOCKS.    FC5A319     8
                                        *                                                                        FC5A319     9
                                        *         ENTRY  T.EOT FORMATED [OA.,OB.], SORTED BY [RB.,RA.]           FC5A319    10
                                        *                (B3) = FWA(T.EOT) + OA.W                                DECL     3154
                                                                                                                 DECL     3155
                                                                                                                 DECL     3156
          2051                           EQU300   BSS    0                                                       FC50757   105
                                                                                                                 FC50757   106
                                         SNAP=D   IFNE   TEST                                                    FC50757   107
                                                  SA1    CO.SNAP                                                 FC50757   108
                                                  LX1    1RD                                                     FC50757   109
                                                  PL     X1,EQU300S  IF SNAP NOT REQUESTED                       FC50757   110
                                         EQU.300  DUMPT  EQUS                                                    FC50757   111
                                         EQU300S  BSS    0                                                       FC50757   112
                                         SNAP=D   ENDIF                                                          FC50757   113
                                                                                                                 FC50757   114
          2051  5110000000 X                      SA1    T.EOT                                                   FC50757   115
                          5120000000 X            SA2    T.EQUS                                                  DECL     3158
          2052  76710                             =X7    1                                                       DECL     3159
                     6150777775                   =B5    -Z=EOT      EOIND = -Z=EOT                              DECL     3161
                               63220              =B2    X2+G1.W                                                 DECL     3162
          2053  5170000721 +                      SA7    N.EQ        INITIALIZE (N.EQ) = 1                       DECL     3163
                          66411                   =B4    Z=EOT                                                   DECL     3164
          2054  5211777775                        =A1    X1-Z=EOT+OA.W     OANA = FWA(T.EOT) - Z=EOT             DECL     3165
                                                                                                                 DECL     3166
                                                                                                                 DECL     3167
                                        **        OVERLAP SEARCH BEGINS.                                         DECL     3168
                                        *         (A1) _ OANA                                                    DECL     3169
                                        *         (B4) = Z=EOT                                                   DECL     3170
                                                                                                                 DECL     3171
                                                                                                                 DECL     3172
          2055  54114                    EQU310   SA1    A1+B4       OANA = OANA + Z=EOT, OAN = (OANA)           DECL     3173
                     0331002102 +                 MI     X1,EQU340   IF END OF T.EOT                             FC5A195     5
                               43612              MX6    OA.RBL                                                  DECL     3175
          2056  20673                             LX6    OA.RBL+OA.RBP                                           DECL     3176
                     11761                        BX7    X6*X1       RBN = RB[OAN]                               FC5A195     6
                          0307002055 +            ZR     X7,EQU310   IF RBN .EQ. 0                               FC5A195     7
          2057  66611                             =B6    Z=EOT                                                   FC5A195     8
                                                                                                                 FC5A195     9
          2060  54216                    EQU320   SA2    A1+B6       OAN1 = OAN + OFFSET                         FC5A195    10
                     6166000002                   =B6    B6+Z=EOT                                                FC5A195    11
          2061  0332002055 +                      MI     X2,EQU310   IF END OF TABLE                             FC5A195    12
                          43612                   MX6    OA.RBL                                                  FC5A195    13
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    67
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
                               20673              LX6    OA.RBL+OA.RBP                                           FC5A195    14
          2062  11662                             BX6    X6*X2       RBN1 = RB[OAN1]                             FC5A195    15
                     37576                        IX5    X7-X6                                                   FC5A195    16
                          0315002060 +            NZ     X5,EQU320   IF RBN .NE. RBN1                            FC5A195    17
                                                                                                                 DECL     3184
                                        *         SAME RB, CHECK FOR OVERLAP.                                    DECL     3185
                                                                                                                 DECL     3186
          2063  43044                             MX0    -OA.LWAL                                                DECL     3187
                                   0              ERRNZ  OA.LWAL-OA.FWAL                                         DECL     3188
                                                  LX2    -OA.LWAP                                                DECL     3189
                                                  LX1    -OA.LWAP                                                DECL     3190
                     15520                        BX5    -X0*X2      LWAN1 = LWA[OAN1]                           DECL     3191
                          15610                   BX6    -X0*X1      LWAN = LWA[OAN]                             DECL     3192
                               20244              LX2    OA.LWAP-OA.FWAP                                         DECL     3193
          2064  15220                             BX2    -X0*X2      FWAN1 = FWA[OAN1]                           DECL     3194
                     76310                        =X3    1                                                       FC5A319    11
                          36223                   IX2    X2+X3       TRUE FWA                                    FC5A319    12
                               37262              IX2    X6-X2                                                   FC5A195    18
          2065  0332002060 +                      MI     X2,EQU320   IF LWAN .LT. FWAN1  (NO OVERLAP)            FC5A195    20
                                                                                                                 DECL     3197
                                        *         THERE IS OVERLAP, JOIN TWO CLASSES.                            DECL     3198
                                                                                                                 DECL     3199
                          54321                   =A3    A2-OA.W+OB.W      OBN1                                  DECL     3200
                               54411              =A4    A1-OA.W+OB.W      OBN                                   DECL     3201
          2066  20144                             LX1    OA.LWAP-OA.FWAP                                         DECL     3202
                     37256                        MX2    X5+X6       LWASR = MAX (LWAN, LWAN1)                   DECL     3203
                          73330                   SX3    X3          GNSR = GFI[OBN1]                            DECL     3204
                               73440              SX4    X4          GSR = GFI[OBN]                              DECL     3205
                                   0              ERRNZ  18-OB.GFIL                                              DECL     3206
          2070  37643                             IX6    X4-X3                                                   FC5A195    21
                     0336002072 +                 MI     X6,EQU330   IF GSR .LT. GNSR                            FC5A195    22
                               10633              BX6    X3          TEMP = GNSR                                 DECL     3209
          2071  22304                             LX3    X4          GNSR = GSR                                  DECL     3210
                     10466                        BX4    X6          GSR = TEMP                                  DECL     3211
                                                                                                                 FC50299    53
          2072  63740                    EQU330   SB7    X4                                                      DECL     3212
                     13666                        BX6    0                                                       FC5A195    23
                          54610                   SA6    A1          (OANA) = 0                                  FC5A319    13
                               20130              LX1    OA.FWAP-OA.LWAP                                         DECL     3215
          2073  11601                             BX6    X0*X1       ALL BUT LWA                                 DECL     3216
                     36662                        IX6    X6+X2                                                   DECL     3217
                                                  LX6    OA.LWAP                                                 FC5A195    25
                          54620                   SA6    A2          LWA[OAN1] = (LWASR)[OA.]                    FC5A319    14
                               10644              BX6    X4                                                      FC5A195    27
          2074  5062000001                        SA6    A2-OA.W+OB.W  GFI[OBN1] = GSR[OB.]                      FC5A319    15
                                                                                                                 DECL     3222
                                        *         UPDATE G-F ENTRY OF NON SURVIVING ROOT.  ADJUST ITS RA         DECL     3223
                                        *         AND MAKE IT POINT TO THE SURVIVING ROOT.                       DECL     3224
                                                                                                                 DECL     3225
                          53442                   SA4    B2+X4       GF1SR = T.EQUS(GSR)                         DECL     3226
                               53332              SA3    B2+X3       GF1NSR = T.EQUS(GNSR)                       DECL     3227
          2075  11203                             BX2    X0*X3                                                   FC5A195    29
                     20444                        HX4    G1.RA       SIGN EXTEND                                 DECL     3229
                          20344                   HX3    G1.RA                                                   DECL     3230
                               21444              AX4    -G1.RAL     RASR = RA[GF1SR]                            DECL     3231
          2076  21344                             AX3    -G1.RAL     RANSR = RA[GF1NSR]                          DECL     3232
                     37534                        IX5    X3-X4                                                   DECL     3233
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    68
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
                          15350                   BX3    -X0*X5      RANSR = RANSR - RASR                        DECL     3234
                                   0              ERRNZ  OA.LWAL-G1.RAL                                          DECL     3235
                               54531              =A5    A3-G1.W+G2.W      G2NSR                                 DECL     3236
          2077  43614                             MX6    G2.LINKL                                                FC50757   116
                     15556                        BX5    -X6*X5                                                  FC50757   117
                          76670                   SX6    B7                                                      FC50757   118
                               20660              LX6    G2.LINKP                                                FC50757   119
          2100  12665                             BX6    X6+X5                                                   FC50757   120
                     54650                        SA6    A5          LINK[G2NSR] = GSR[G2.]                      DECL     3239
                          36623                   IX6    X2+X3                                                   FC5A195    30
                               54630              SA6    A3          RA[GF1NSR] = RANSR[G1.]                     FC5A195    31
          2101  0400002055 +                      EQ     EQU310                                                  FC5A319    16
                                                                                                                 DECL     3243
                                        **        OVERLAP SEARCH COMPLETE.                                       DECL     3244
                                        *         PREPARE FOR PHASE 5.                                           DECL     3245
                                        *         (B5) = EOIND                                                   DECL     3247
                                        *         (B3) = FWA(T.EOT) + OA.W                                       DECL     3248
                                                                                                                 DECL     3249
          2102  66600                    EQU340   =B6    0           ECIND = 0                                   FC5A195    33
                                                                                                                 DECL     3250
          2103  6155000002               EQU350   SB5    B5+Z=EOT    EOIND = EOIND + Z=EOT                       DECL     3251
                          56235                   SA2    B3+B5       OAI = T.EOT(EOIND)                          DECL     3252
                               10322              BX3    X2                                                      DECL     3253
          2104  0332002162 +                      MI     X2,EQU400   IF END OF T.EOT                             DECL     3254
                          0302002103 +            ZR     X2,EQU350   IF NULL ENTRY                               DECL     3255
                                                                                                                 DECL     3256
                                        *         CREATE A BASE SYMBOL *EQ.N* FOR EACH EQUIVALENCE CLASS N       DECL     3257
                                        *         WITH DIMENSION OF 1 AND LENGTH OF SPAN OF CLASS.               DECL     3258
                                                                                                                 DECL     3259
          2105  54121                             =A1    A2-OA.W+OB.W      OBI = OB ENTRY OF T.EOT               DECL     3260
                     5140000000 X                 SA4    T.EQUS                                                  DECL     3261
                               36141              IX1    X4+X1                                                   DECL     3262
          2106  53410                             =A4    X1+G1.W     G1I = G1 ENTRY OF T.EQUS                    DECL     3263
                     20422                        HX4    G1.CHAR                                                 DECL     3264
                          20344                   HX3    OA.LWA                                                  DECL     3265
                               20214              HX2    OA.FWA                                                  DECL     3266
          2107  21244                             AX2    -OA.FWAL    FWAC = FWA[OAI], SIGN EXTENTED              DECL     3267
                     21344                        AX3    -OA.LWAL    LWAC = LWA[OAI], SIGN EXTENTED              DECL     3268
                                                                                                                 FC50757   121
                                                  IFEQ   TEST,ON,1                                               DECL     3269
                                                  MI     X3,"BLOWUP" LWA OF CLASS SHOULD NEVER BE NEGATIVE       DECL     3270
                                                                                                                 FC50757   122
                          37532                   IX5    X3-X2       SPANC = LWAC - FWAC                         DECL     3271
          2110  0324002113 +                      PL     X4,EQU355   IF NON-CHAR                                 DECL     3272
                          7110000011              CW     X1,X5       SPANC = SPANC / 10                          DECL     3273
          2112  22501                             LX5    X1                                                      DECL     3274
                                                                                                                 FC50299    54
          2113  5110000721 +             EQU355   SA1    N.EQ                                                    DECL     3275
                          7170052157              SX7    3REQ.                                                   DECL     3276
          2114  0100000000 X                      RJ     INN         INVENT A BASE SYMBOL                        DECL     3277
          2115  63400                             SB4    X0          SAVE (B4) = SYMORD OF BASE MEMBER           DECL     3278
                     76310                        SX3    B1                                                      DECL     3279
                          76710                   SX7    B1                                                      DECL     3280
                               10455              BX4    X5                                                      DECL     3281
          2116  20536                             LX5    DH.PSP                                                  DECL     3282
                                                  LX4    D2.UBP                                                  DECL     3283
                                                  LX7    DH.DIMP                                                 DECL     3284
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    69
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
                     36775                        IX7    X7+X5                                                   DECL     3285
                          5170000000 +            SA7    DIMI        (SIZ,DIM)[DH.] = (SPANC,1)                  DECL     3286
          2117  20336                             LX3    D2.LBP                                                  DECL     3287
                     20536                        LX5    D1.SPANP-DH.PSP                                         DECL     3288
                          10655                   BX6    X5                                                      DECL     3289
                               54671              SA6    A7+B1       (LOC,SPAN)[D1.] = (0,SPANC)                 DECL     3290
          2120  36743                             IX7    X4+X3                                                   DECL     3291
                     54761                        SA7    A6+B1       (LB,UB)[D2.] = (1,SPANC)                    DECL     3292
                          6120000000 +            SB2    DIMI                                                    DECL     3293
          2121  6132000003                        SB3    B2+3                                                    DECL     3294
                          66700                   =B7    0                                                       DECL     3295
          2122  5110000000 X                      SCAN   T.DIM,NCM   (B7) = DIMIND OF BASE MEMBER                DECL     3296
                                                                                                                 DECL     3297
                                        *         PUT (EOT INDEX, SYMORD OF BASE MEMBER, FWA OF CLASS) INTO      DECL     3298
                                        *         GF2 ENTRY OF EACH CLASS ROOT, SO THEY CAN BE PROPAGATED        DECL     3299
                                        *         TO EACH MEMBER OF THE CLASS IN PHASE 5.                        DECL     3300
                                        *         (B5) = EOIND                                                   DECL     3301
                                                                                                                 DECL     3302
          2123  5110000000 X                      SA1    T.EOT                                                   DECL     3303
                          5130000000 X            SA3    T.EQUS                                                  DECL     3304
          2124  63310                             =B3    X1+OA.W                                                 DECL     3305
                     6223000001                   SB2    X3+G2.W                                                 DECL     3306
                               56435              SA4    B3+B5       OAI = T.EOT(EOIND)                          DECL     3307
          2125  54341                             =A3    A4-OA.W+OB.W      OBI                                   DECL     3308
                     20444                        LX4    -OA.FWAP                                                DECL     3309
                          43044                   MX0    -OA.FWAL                                                DECL     3310
                               53332              SA3    B2+X3       G2R = T.EQUS(GFI[OBI])                      DECL     3311
                                   0              ERRNZ  18-OB.GFIL                                              DECL     3312
          2126  43214                             MX2    F2.LINKL                                                FC50757   123
                     11223                        BX2    X2*X3                                                   FC50757   124
                          20214                   LX2    F2.LINKL                                                FC50757   125
                               63220              SB2    X2                                                      FC50757   126
          2127  76150                             SX1    B5                                                      DECL     3314
                     76240                        SX2    B4          BSYM = SYMORD OF BASE MEMBER                DECL     3315
                          15340                   BX3    -X0*X4      FWAC = FWA[OAI]                             DECL     3316
                               20230              LX2    F2.BSYMP                                                DECL     3317
          2130  20144                             LX1    F2.EOIP                                                 DECL     3318
                                                  LX3    F2.FWAP                                                 DECL     3319
                     12221                        BX2    X2+X1                                                   DECL     3320
                          12623                   BX6    X2+X3                                                   DECL     3321
                               43014              MX0    F2.LINKL                                                FC50757   127
          2131  15660                             BX6    -X0*X6      CLEAR LINK                                  FC50757   128
                     76020                        SX0    B2                                                      FC50757   129
                          20060                   LX0    F2.LINKP                                                FC50757   130
                               12606              BX6    X0+X6       NEW LINK                                    FC50757   131
          2132  43062                             MX0    -OA.RBL                                                 DECL     3323
                     54630                        SA6    A3          (EOI,BSYM,FWA)[G2R]= (EOIND,BSYM,FWAC)[F2.] DECL     3324
                          20443                   LX4    OA.FWAP-OA.RBP                                          DECL     3325
                               15040              BX0    -X0*X4      RBC = RB[OAI]                               DECL     3326
                                                                                                                 DECL     3327
                                        *         CREATE AN T.ECT ENTRY FOR THE BASE MEMBER, FORMAT AS:          DECL     3328
                                        *         TE. .                                                          DECL     3329
                                                                                                                 DECL     3330
          2133  5140000000 X                      SA4    T.ECT                                                   DECL     3331
                          76244                   SX2    B4+B4                                                   DECL     3332
                               63424              SB4    X2+B4                                                   DECL     3333
                                   0              ERRNZ  3-Z=SYM                                                 DECL     3334
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    70
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
          2134  7164000000                        SX6    B4+WA.W     WAINDB = 3 * BSYM + WA.W                    DECL     3335
                          20114                   LX1    TE.EOIP-F2.EOIP                                         DECL     3336
          2135  6246000001                        SB4    X6-WA.W+WB.W                                            DECL     3337
                                                  LX6    TE.SYMIP                                                DECL     3338
                          12661                   BX6    X6+X1                                                   DECL     3339
                               53646              SA6    X4+B6       T.ECT(ECIND) = (EOIND,0,WAINDB) [TE.]       DECL     3340
          2136  66661                             SB6    B6+B1       ECIND = ECIND + 1                           DECL     3341
                                                                                                                 DECL     3342
                                        *         UPDATE (WB,WC) ENTRY OF T.SYM FOR THE INVENTED BASE MEMBER.    DECL     3343
                                        *         (A5) = G1R                                                     DECL     3344
                                        *         (B4) = WBINDB                                                  DECL     3345
                                        *         (X3) = FWAC                                                    DECL     3346
                                        *         (X0) = RBC                                                     DECL     3347
                                                                                                                 DECL     3348
                     20060                        LX0    WC.RBP                                                  DECL     3349
                                                  LX3    WC.RAP-F2.FWAP                                          DECL     3350
                                   0              ERRNZ  WC.RAL-F2.FWAL                                          DECL     3351
                          10700                   BX7    X0          RAI[WCI] = 0                                DECL     3352
          2137  5110000000 X                      SA1    T.SYM                                                   DECL     3353
                          53214                   SA2    X1+B4       WBI = T.SYM(WBINDB)                         DECL     3354
                               76670              SX6    B7          DIMIND OF BASE                              DECL     3355
          2140  5140002606 +                      CLAS=  X4,WB,(VAR,BMEM,ARY)                                    DECL     3356
                          20657                   LX6    WB.PNTP                                                 DECL     3357
                               12442              BX4    X4+X2                                                   DECL     3358
          2141  12646                             BX6    X4+X6                                                   DECL     3359
                     76100                        =X1    0                                                       DECL     3360
                          0300002143 +            ZR     X0,EQU370   IF RBC .EQ. 0                               DECL     3361
          2142  12773                             BX7    X7+X3                                                   DECL     3362
                     5110002607 +                 CLAS=  X1,WB,(COM,MAT)                                         DECL     3363
                                                                                                                 DECL     3364
          2143  12661                    EQU370   BX6    X6+X1       SET (COM,MAT)[WBI] IFF COMMON               DECL     3365
                     43101                        CLAS=  X1,G1,(SAVE)                                            DECL     3366
                               55531              =A5    A3-G2.W+G1.W      G1R = G1 ENTRY OF ROOT                DECL     3367
          2144  11151                             BX1    X5*X1       SAVEI = SAVE[G1R]                           DECL     3368
                     20161                        LX1    WB.SAVEP-G1.SAVEP                                       DECL     3369
                          12661                   BX6    X6+X1                                                   DECL     3370
          2145  7120000012                        =X2    10                                                      DECL     3371
                          20236                   LX2    WC.CLENP                                                DECL     3372
                               43101              MX1    1                                                       DECL     3373
          2146  20522                             HX5    G1.CHAR                                                 DECL     3374
                     11115                        BX1    X1*X5                                                   DECL     3375
                          7130000006              =X3    M.CHAR                                                  DECL     3376
          2147  21173                             AX1    59          FORM MASK FOR MODE CHARACTER                DECL     3377
                     11313                        BX3    X1*X3       (X3) = M.CHAR IF CHAR[G1I] = 1              DECL     3378
                          11521                   BX5    X2*X1       (X5) = 10 IF CHAR[G1I] = 1                  DECL     3379
                                                  LX3    WB.MODEP                                                DECL     3380
                               12775              BX7    X7+X5                                                   DECL     3381
          2150  54721                             =A7    A2-WB.W+WC.W      (RB,RA) [WCI] = (RBC,RAI) [WC.]       DECL     3382
                     12663                        BX6    X6+X3       ADD IN MODE                                 DECL     3383
                          54620                   SA6    A2          (VAR,BMEM,ARY,COM,SAVE,PNT) [WBI] = [WB.]   DECL     3384
          2151  0300002103 +                      ZR     X0,EQU350   IF RBC .EQ. 0 (LOCAL CLASS)                 DECL     3385
                                                                                                                 DECL     3386
                                        *         COMMON BLOCK LENGTH IS EXTENDED IF BLOCK LENGTH .LT.           FC50757   132
                                        *         LWA OF CLASS.                                                  DECL     3388
                                        *         ALSO COPY BLOCK LEVEL INFORMATION TO LVLN[WBI] OF BASE MEMBER, DECL     3389
                                        *         AND SET LVL[WBI] = 1 IF BLOCK IS LEVELED.                      DECL     3390
                                                                                                                 DECL     3391
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    71
        *EQUIVALENCE* DIGESTION.                                      PHASE4
  
                          56135                   SA1    B3+B5       OAI = T.EOT(EOIND)                          DECL     3392
          2152  5140000000 X                      SA4    T.BLKS                                                  DECL     3393
                          20144                   HX1    OA.LWA                                                  DECL     3394
                               21144              AX1    -OA.LWAL    LWAC = LWA[OAI]                             DECL     3395
          2153  63241                             =B2    X4+CB.W                                                 DECL     3396
                     7150030000                   CLAS=  X5,CA,(BLVL)                                            DECL     3397
                               20014              LX0    -WC.RBP                                                 DECL     3398
          2154  53302                             SA3    X0+B2       CBI = T.BLKS(RBC)                           DECL     3399
                     55431                        =A4    A3-CB.W+CA.W      CAI = CA ENTRY OF T.BLKS              DECL     3400
                          43744                   MX7    -CB.BLENL                                               DECL     3401
                               11254              BX2    X5*X4       BLKLEV = BLVL[CAI]                          DECL     3402
                                                  LX3    -CB.BLENP                                               DECL     3403
          2155  20241                             LX2    WB.LEVNP-CA.BLVLP                                       DECL     3404
                     15437                        BX4    -X7*X3      BLEN = BLEN[CBI]                            DECL     3405
                          11773                   BX7    X7*X3                                                   DECL     3406
                               37541              MX5    X4+X1                                                   DECL     3407
          2157  36757                             IX7    X5+X7                                                   DECL     3408
                                                  LX7    CB.BLENP                                                DECL     3409
                     54730                        SA7    A3          BLEN[CBI] = MAX (BLEN,LWAC)                 DECL     3410
                          0302002103 +            ZR     X2,EQU350   IF BLOCK NOT LEVELED                        DECL     3411
          2160  43101                             CLAS=  X1,WB,(LEV)                                             DECL     3412
                          12112                   BX1    X1+X2                                                   DECL     3413
                               12661              BX6    X6+X1                                                   DECL     3414
          2161  54620                             SA6    A2          (LEV,LEVN)[WBI] = (1,BLKLEV) [WB.]          DECL     3415
                     0400002103 +                 EQ     EQU350                                                  DECL     3416
  
  
  
                                        **        PHASE 5 -- GALLER / FISHER ADDRESS ASSIGNMENT.                 DECL     3418
                                        *                WE NOW DO G/F ADDRESS ASSIGNMENT, RELATIVE TO           DECL     3419
                                        *         THE CLASS BASE.  THE *END* PROCESSOR WILL RELOCATE OUR         DECL     3420
                                        *         ADDRESSES TO THE ACTUAL LOCAL-VARIABLE BLOCK.  VARIABLES IN    DECL     3421
                                        *         COMMON ARE ASSIGNED ADDRESSES RELATIVE TO THEIR RESPECTIVE     DECL     3422
                                        *         BLOCKS.                                                        DECL     3423
                                        *         VARIABLES WHICH ARE IN COMMON NOW, BECAUSE OF EQUIVALENCING    DECL     3424
                                        *         MUST BE SO MARKED IN THE SYMBOL TABLE.                         DECL     3425
                                        *         A TEMPORARY EQUIVALENCE CLASS TABLE (TE.) IS FORMED FOR        DECL     3426
                                        *         EACH MEMBER OF THE CLASS.  IF LO=R IS SELECTED,                FC50757   133
                                        *         THIS WILL BE USED TO FORMAT THE EQUIVALENCE CLASS MAP.         DECL     3428
                                        *                                                                        DECL     3429
                                        *         ENTRY: (B6) = ECIND                                            DECL     3430
                                                                                                                 DECL     3431
                                                                                                                 DECL     3432
          2162                           EQU400   BSS    0                                                       DECL     3433
                                         SNAP=D   IFNE   TEST                                                    DECL     3434
                                                  SA1    CO.SNAP                                                 DECL     3435
                                                  LX1    1RD                                                     DECL     3436
                                                  PL     X1,EQU400S                                              DECL     3437
                                         EQU.400  DUMPT  EQUS                                                    DECL     3438
                                                  DUMPT  EOT                                                     DECL     3439
                                         EQU400S  BSS    0                                                       DECL     3440
                                         SNAP=D   ENDIF                                                          DECL     3441
                                                                                                                 DECL     3442
          2162  5130000000 X                      SA3    T=EQUS      X3 = NUMBER OF EQUIVALENCED VARIABLES       FC5A128   307
                          5120000000 X            SA2    T=ECT                                                   FC5A128   308
          2163  5110000721 +                      SA1    N.EQ                                                    FC5A128   309
                          21301                   AX3    1                                                       FC5A128   310
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    72
        *EQUIVALENCE* DIGESTION.                                      PHASE5
  
          2164  7211777776                        =X1    X1-1        X1 = NUMBER OF EQUIVALENCE CLASSES          FC5A128   311
                          36113                   IX1    X1+X3       X1 = DESIRED LENGTH OF T.ECT                FC5A128   312
                               37012              IX0    X1-X2       X0 = INCREMENT TO LENGTH                    FC5A128   313
          2165  5110000000 X                      ALLOC  T.ECT,X0                                                FC5A128   314
          2166  5110000000 X                      SA1    T.EQUS                                                  DECL     3443
                          5120000000 X            SA2    T.SYM                                                   DECL     3444
          2167  5130000000 X                      SA3    T=EQUS                                                  DECL     3445
                          53010                   =A0    X1+G1.W                                                 DECL     3446
                               63720              SB7    X2                                                      DECL     3447
          2170  6140777775                        =B4    -Z=EQS      GFIND = -Z=EQS                              DECL     3448
                          76600                   SHRINK T=EOT,0     DISCARD T.EOT                               DECL     3449
                          63530                   SB5    X3          GFLEN = LEN(T.EQUS)                         DECL     3450
                                                                                                                 FC50299    55
          2172  6144000002               EQU410   SB4    B4+Z=EQS    GFIND = GFIND + Z=EQS                       DECL     3451
                          54104                   SA1    A0+B4       G1I = T.EQUS(GFIND)                         DECL     3452
          2173  6155777775                        SB5    B5-Z=EQS    GFLEN = GFLEN - Z=EQS                       DECL     3453
                          0750002226 +            MI     B5,EQU450   IF END OF T.EQUS                            DECL     3454
          2174  43352                             MX3    -G1.SYMIL                                               DECL     3456
                     54511                        =A5    A1-G1.W+G2.W      G2I                                   DECL     3457
                          43014                   MX0    G2.LINKL                                                FC50757   134
                               11605              BX6    X0*X5                                                   FC50757   135
          2175  15550                             BX5    -X0*X5                                                  FC50757   136
                     43012                        MX0    G1.RBL                                                  FC50757   137
                          20614                   LX6    G2.LINKL                                                FC50757   138
                               63260              SB2    X6                                                      FC50757   139
          2176  20042                             LX0    G1.RBL+G1.RBP                                           DECL     3459
                     10611                        BX6    X1                                                      DECL     3460
                          11401                   BX4    X0*X1       RBC = RB[G1I]                               DECL     3461
                               20644              HX6    G1.RA                                                   DECL     3462
          2177  21644                             AX6    -G1.RAL     RAI = RA[G1I]                               DECL     3463
                     20122                        LX1    -G1.SYMIP                                               DECL     3464
                          15713                   BX7    -X3*X1      SYMI = SYM[G1I]                             DECL     3465
                               63370              SB3    X7                                                      DECL     3466
          2200  0424002206 +                      EQ     B2,B4,EQU420      IF ROOT                               DECL     3467
                                                                                                                 DECL     3468
                                        *         NON-ROOT MEMBERS.                                              DECL     3469
                                        *         PROPAGATE (EOI,BSYM,FWA)[F2.] FROM ROOT TO MEMBER.             DECL     3470
                                        *         COMPUTE RA OF MEMBER AS:                                       DECL     3471
                                        *                RAI = RAI + RA[G1ROOT]                                  DECL     3472
                                                                                                                 DECL     3473
                          54302                   SA3    A0+B2       G1R = T.EQUS(GFIR)                          DECL     3474
                               11403              BX4    X0*X3       RBC = RB[G1R]                               DECL     3475
          2201  20152                             LX1    G1.SYMIP                                                DECL     3476
                     43044                        MX0    -G1.RAL                                                 DECL     3477
                          11701                   BX7    X0*X1       CLEAR RA FIELD                              DECL     3478
                               12774              BX7    X7+X4       ADD IN RB OF CLASS                          DECL     3479
          2202  20344                             HX3    G1.RA                                                   DECL     3480
                     21344                        AX3    -G1.RAL     RAR = RA[G1R], SIGN EXTENTED                DECL     3481
                          36663                   IX6    X6+X3       RAI = RAI + RAR                             DECL     3482
                               15360              BX3    -X0*X6      GET RID OF SIGN EXTENSION                   DECL     3483
                                                  LX3    G1.RAP                                                  DECL     3484
          2203  12773                             BX7    X7+X3                                                   DECL     3485
                     54710                        SA7    A1          (RB,RA)[G1I] = (RBR,RAI) [G1.]              DECL     3486
                          54331                   =A3    A3-G1.W+G2.W      G2R = G2 ENTRY OF ROOT                DECL     3487
                               43714              MX7    G2.LINKL                                                FC50757   140
          2204  15337                             BX3    -X7*X3      CLEAR LINK                                  FC50757   141
                     76720                        SX7    B2                                                      FC50757   142
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    73
        *EQUIVALENCE* DIGESTION.                                      PHASE5
  
                          20760                   LX7    G2.LINKP                                                FC50757   143
                               12773              BX7    X7+X3                                                   FC50757   144
          2205  54750                             SA7    A5          (EOI,BSYM,FWA)[G2I] = [G2R]                 DECL     3489
                     54530                        SA5    A3                                                      DECL     3490
                                                                                                                 DECL     3491
                                        *         FORM TE. ENTRY.                                                DECL     3492
                                        *         (X4) = RB OF CLASS                                             DECL     3493
                                        *         (X6) = RAI                                                     DECL     3494
                                        *         (X5) = G2R                                                     DECL     3495
                                        *         (B3) = SYMI                                                    DECL     3496
                                                                                                                 DECL     3497
          2206  10755                    EQU420   BX7    X5                                                      DECL     3498
                     20530                        LX5    -F2.EOIP                                                DECL     3499
                          43060                   MX0    -F2.EOIL                                                DECL     3500
                               20744              HX7    F2.FWA                                                  DECL     3501
          2207  21744                             AX7    -F2.FWAL    FWAC = FWA[G2R]                             DECL     3502
                     15150                        BX1    -X0*X5      EOI = EOI[G2R]                              DECL     3503
                          37667                   IX6    X6-X7       BIASI = RAI - FWAC                          DECL     3504
                               20160              LX1    TE.EOIP                                                 DECL     3505
          2210  7133777776                        SX3    B3-WB.W+WA.W                                            DECL     3506
                                                  LX3    TE.SYMIP                                                DECL     3507
                          12113                   BX1    X1+X3                                                   DECL     3508
                               20514              LX5    F2.EOIP-F2.BSYMP                                        DECL     3509
                                                                                                                 DECL     3510
                                                  IFEQ   TEST,ON,1                                               DECL     3511
                                                  MI     X6,"BLOWUP" BIAS SHOULD NOT BE .LT. 0                   DECL     3512
                                                                                                                 DECL     3513
          2211  20622                             LX6    TE.BIASP                                                DECL     3514
                     43301                        CLAS=  X3,TE,(NB)                                              DECL     3515
                               12763              BX7    X6+X3                                                   DECL     3516
          2212  12771                             BX7    X7+X1                                                   DECL     3517
                     20444                        LX4    -G1.RBP                                                 DECL     3518
                          5130000000 X            SA3    T.ECT                                                   DECL     3519
          2213  53736                             SA7    X3+B6       [T.ECT(ECIND)] = (EOI,NB,BIASI,SYMI)[TE.]   DECL     3520
                     66661                        SB6    B6+B1       ECIND = ECIND + 1                           DECL     3521
                                                                                                                 DECL     3522
                                        *         UPDATE SYMTAB WB,WC.                                           DECL     3523
                                        *         SET (EQU,DEF,VAR,COM,SAVE)[WBI] BITS,                          DECL     3524
                                        *                (BMEM)[WB.] = BSYM(G2R),                                DECL     3525
                                        *                (RB,RA)[WC.] = (RBC,BIASI) [WC.]                        DECL     3526
                                                                                                                 DECL     3527
                          43300                   MX3    0           COMI = 0                                    DECL     3528
          2214  0304002221 +                      ZR     X4,EQU430   IF RBR .EQ. 0                               DECL     3529
                          5110000000 X            SA1    T.BLKS                                                  DECL     3530
          2215  63210                             =B2    X1+CA.W                                                 DECL     3531
                     7130100000                   CLAS=  X3,WB,(COM) COMI = COM[WB.] = 1                         DECL     3532
          2216  7120030000                        CLAS=  X2,CA,(BLVL)                                            DECL     3533
                          53142                   SA1    X4+B2       CAI = T.BLKS(RBI) + CA.W                    DECL     3534
                               11721              BX7    X2*X1       BLKLEV = BLVL[CAI]                          DECL     3535
          2217  20460                             LX4    WC.RBP                                                  DECL     3536
                     0307002221 +                 ZR     X7,EQU430   IF BLOCK NOT LEVELED                        DECL     3537
                               20741              LX7    WB.LEVNP-CA.BLVLP                                       DECL     3538
          2220  12337                             BX3    X3+X7                                                   DECL     3539
                     43201                        CLAS=  X2,WB,(LEV)                                             DECL     3540
                               12332              BX3    X3+X2       COMI = (COM,LEV,LEVN) [WB.]                 DECL     3541
                                                                                                                 FC50299    56
          2221  20652                    EQU430   LX6    WC.RAP-TE.BIASP                                         DECL     3542
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    74
        *EQUIVALENCE* DIGESTION.                                      PHASE5
  
                                   0              ERRNZ  WC.RAL-TE.BIASL                                         DECL     3543
                     12764                        BX7    X6+X4                                                   DECL     3544
                          43060                   MX0    -F2.BSYML                                               DECL     3545
                               15550              BX5    -X0*X5      BSYM = BSYM[G2R]                            DECL     3546
          2222  20541                             LX5    WB.BASEP                                                DECL     3547
                     12553                        BX5    X5+X3                                                   DECL     3548
                          56373                   SA3    B7+B3       WBI = T.SYM(SYMI)                           DECL     3549
                               54431              =A4    A3-WB.W+WC.W      WCI                                   DECL     3550
          2223  12335                             BX3    X3+X5                                                   DECL     3551
                     7160001240                   CLAS=  X6,WB,(EQV,DEF,VAR)                                     DECL     3552
                               12663              BX6    X6+X3                                                   DECL     3553
          2224  54630                             SA6    A3          (EQV,DEF,VAR,BASE,COMI)[WBI] = [WB.]        DECL     3554
                     5110002610 +                 CLAS=  X1,WC,(RB,RA)                                           DECL     3555
                               15441              BX4    -X1*X4                                                  DECL     3556
          2225  12747                             BX7    X4+X7                                                   DECL     3557
                     54740                        SA7    A4          (RB,RA)[WCI] = (RBR,RAI) [WC.]              DECL     3558
                          0400002172 +            EQ     EQU410                                                  DECL     3559
                                                                                                                 DECL     3560
          2226                           EQU450   BSS    0                                                       DECL     3561
          2226  76660                             SHRINK T=ECT,B6    SHRINK T.ECT TO ACTUAL SIZE                 DECL     3562
                                         SNAP=D   IFNE   TEST        DUMP EQUIV. TABLE                           DECL     3563
                                                  SA1    CO.SNAP                                                 DECL     3564
                                                  LX1    1RD                                                     DECL     3565
                                                  PL     X1,EQU450S  IF DECLARATIVE SNAP NOT SELECTED            DECL     3566
                                         EQU.450  DUMPT  EQUS                                                    DECL     3567
                                                  DUMPT  ECT                                                     DECL     3568
                                         EQU450S  BSS    0                                                       DECL     3569
                                         SNAP=D   ENDIF                                                          DECL     3570
                                                                                                                 DECL     3571
          2227  5110000000 X                      SA1    WO.LOM                                                  DECL     3572
                          43600                   MX6    0                                                       DECL     3573
          2230  5160000000 X                      SHRINK T=EQUS,X6   DISCARD T.EQUS                              DECL     3574
                          0331001516 +            MI     X1,EXIT.    IF COMMON-EQUIVALENCE MAP SELECTED          DECL     3575
          2231  5160000000 X                      SHRINK T=ECT,X6                                                DECL     3576
                          0400001516 +            EQ     EXIT.                                                   DECL     3577
                                                                                                                 DECL     3578
                                 721 +   N.EQ     EQU    EQSR        NUMBER OF EQUIVALENCE CLASSES               DECL     3579
          2232  00000000000000000000     EQUA     CON    0           12/T0, 48/D0,[PHASE 1 OF EQU]               FC50757   145
          2233                     1     EQUS     BSS    1           SUBSCRIPTED ITEM INDICATOR                  FC50299    57
                                2232 +   GCI      EQU    EQUA        GROUP CHARACTER INDEX IN PHASE 1 OF *EQU*   DECL     3581
                                         EQUC     BFLIT  WC,(RB,RA)                                              DECL     3582
                                   0 +   EQUDIM   EQU    DIMI                                                    DECL     3583
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    75
        CLOSE OF DECLARATIVE ROUTINES.                                ACV 
  
                                        **        ACV -  ASSUMED LENGTH CHARACTER VARDIM PROCESSING              DECL     3586
                                        *                                                                        DECL     3587
                                        *         CHECKS A FORMAL PARAMETER FOR ASSUMED LENGTH CHARACTER.  IF SO DECL     3588
                                        *         VARDIM TURPLES WILL BE OUTPUT AND THE VD. INDEX PLACED IN THE  DECL     3589
                                        *         WC.CLEN FIELD FOR THE FORMAL PARAMETER.                        DECL     3590
                                        *                                                                        DECL     3591
                                        *         ENTRY  (X1) = FORMAL PARAMETER ORDINAL                         FC50558    44
                                        *                                                                        DECL     3593
                                        *         USES   A1,A2,A5,A6  X0,X1,X2,X3,X4,X5,X6  B2,B3,B5             DECL     3594
                                                                                                                 DECL     3595
                                                                                                                 DECL     3596
          2234  0400402234 +             ACV      SUBR   =           ...ENTRY/EXIT...                            FC50558    45
          2235  5150000000 X                      SA5    T.SYM                                                   DECL     3598
                                                  LX1    -FP.PNTP                                                DECL     3599
                          73110                   SX1    X1                                                      DECL     3600
                                   0              ERRNZ  FP.PNTL-18                                              DECL     3601
                               10011              BX0    X1                                                      DECL     3602
          2236  63510                             SB5    X1                                                      DECL     3603
                     20101                        LX1    1                                                       DECL     3604
                          73115                   SX1    X1+B5       CONVERT ORDINAL TO INDEX                    DECL     3605
                                   0              ERRNZ  3-Z=SYM                                                 DECL     3606
                               63511              =B5    X1-WA.W+WB.W                                            DECL     3607
          2237  53155                             SA1    X5+B5       FETCH *WB*                                  DECL     3608
                     43371                        MX3    -WB.MODEL                                               DECL     3609
                          15213                   BX2    -X3*X1      ISOLATE MODE                                DECL     3610
          2240  6222777771                        SB2    X2-M.CHAR                                               DECL     3611
                          0520002234 +            NZ     B2,EXIT.    IF NOT TYPE CHARACTER                       DECL     3612
          2241  54211                             =A2    A1-WB.W+WC.W                                            DECL     3613
                     20236                        SBIT   X2,WC.CTYPP                                             DECL     3614
                          0322002251 +            PL     X2,ACV1     IF NOT ASSUMED LENGTH                       DECL     3615
          2242  0100000000 X                      CALL   CT1         GET TP. FORMAT                              DECL     3616
          2243  7140004000                        CLAS=  X4,TP,(ADDR)                                            DECL     3617
                          12446                   BX4    X4+X6       MERGE IN ADDRESS BIT                        DECL     3618
                               43500              MX5    0           2OP IS NULL                                 DECL     3619
          2244  6130000000 X                      SB3    VD.GP                                                   DECL     3620
                          0100000624 +            RJ     OVT         OUTPUT THE GPL TURPLE                       DECL     3621
          2245  0100000540 +                      RJ     OVS         OUTPUT VARDIM STORE TURPLE                  DECL     3622
          2246  5110000000 X                      SA1    T.SYM                                                   DECL     3623
                          20520                   HX5    TP.BIAS                                                 DECL     3624
                               21544              AX5    -TP.BIASL   EXTRACT VD. INDEX                           DECL     3625
          2247  73111                             =X1    X1-WB.W+WC.W                                            DECL     3626
                     53215                        SA2    X1+B5       FETCH *WC* ENTRY                            DECL     3627
                          20536                   LX5    WC.CLENP                                                DECL     3628
                               12625              BX6    X2+X5       MERGE IN VD. INDEX                          DECL     3629
          2250  54620                             SA6    A2                                                      DECL     3630
                     0400002234 +                 EQ     EXIT.                                                   DECL     3631
                                                                                                                 DECL     3632
          2251  5110000000 X             ACV1     SA1    S=VALUE                                                 DECL     3633
                          7211000006              SX1    X1+M.CHAR                                               DECL     3634
          2252  37101                             IX1    X0-X1                                                   DECL     3635
                     76610                        =X6    1                                                       DECL     3636
                          0301002234 +            ZR     X1,EXIT.    IF VALUE.                                   DECL     3637
          2253  5160000000 X                      SA6    N.EPL       SET FIXED CHARACTER LENGTH FP PRESENT FLAG  DECL     3638
                          0400002234 +            EQ     EXIT.                                                   DECL     3639
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    76
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
                                        **        MCA -  MAKE RELATIVE COMMON ASSIGNMENTS                        DECL     3641
                                        *                                                                        DECL     3642
                                        *         ENTRY- END OF DECLARATIVES HAS BEEN ENCOUNTERED                DECL     3643
                                        *                                                                        DECL     3644
                                        *         EXIT-  VARIABLES IN COMMON HAVE BEEN ASSIGNED BLOCK RELATIVE   DECL     3645
                                        *         ADDRESSES (IN T.COMM), AND THE LENGTH OF ALL COMMON BLOCKS     DECL     3646
                                        *         HAS BEEN COMPUTED AND ENTERED IN T.BLKS.                       DECL     3647
                                        *                THE BLOCK IS MARKED CHARACTER  (CHAR[CA.] = 1)          DECL     3648
                                        *         IF FIRST MEMBER OF THE BLOCK IS MODE CHARACTER.  MEMBERS WITH  DECL     3649
                                        *         CONFLICTING MODES WITH THE BLOCK WILL BE ELIMINATED.           DECL     3650
                                        *                FOR A CHARACTER COMMON BLOCK, BLOCK LENGTH AND BLOCK    DECL     3651
                                        *         RELATIVE ADDRESSES ARE EXPRESSED IN TERMS OF CHARACTERS.       DECL     3652
                                        *         AT END OF EQUIVALENCE PROCESSING, THESE WILL BE CONVERTED INTO DECL     3653
                                        *         NO. OF WORDS AND CHARACTERS.                                   DECL     3654
                                        *         IF AUTOMATIC LEVEL OF COMMON AND ARGS IS SELECTED, ALL COMMON  FC5A444   130
                                        *         BLOCKS WILL HAVE *LEVEL* 2 INSERTED IN THE LVL FIELD.          FC5A444   131
                                                                                                                 DECL     3655
                                                                                                                 DECL     3656
          2254  0400402254 +             MCA      SUBR               ...ENTRY/EXIT...                            DECL     3657
                                   0              ERRNZ  FUDGE-1                                                 DECL     3658
          2255  5120000000 X                      SA2    T=BLKS                                                  DECL     3659
                          5130000000 X            SA3    T.BLKS                                                  DECL     3660
          2256  5140000000 X                      SA4    T.COMM                                                  DECL     3661
                          13666                   BX6    0                                                       DECL     3662
                               36223              IX2    X2+X3                                                   DECL     3663
          2257  5150000000 X                      SA5    T.SYM                                                   DECL     3664
                          5110000000 X            SA1    T.DIM                                                   DECL     3665
          2260  53040                             SA0    X4          (A0) = FWA(T.COMM)                          DECL     3666
                     53620                        SA6    X2          LWA+1 (T.BLKS) = 0                          DECL     3667
                          63651                   =B6    X5+WB.W     (B6) = FWA(T.SYM) + WB.W                    DECL     3668
                               53331              =A3    X3+CB.W     CBA = FWA(T.BLKS)+CB.W                      DECL     3669
          2261  66400                             SB4    B0          RBI = 0                                     DECL     3670
                     63210                        SB2    X1          (B2) = FWA(T.DIM)                           DECL     3671
                                                                                                                 DECL     3672
                                        *         FETCH NEXT ENTRY FROM COMMON BLOCK TABLE AND FIND              DECL     3673
                                        *         ITS FIRST MEMBER.                                              DECL     3674
                                        *         FROM MODE[WBI] OF FIRST MEMBER, DETERMINE IF THIS IS           DECL     3675
                                        *         A CHARACTER COMON BLOCK.                                       DECL     3676
                                                                                                                 DECL     3677
          2262  5033000002               MCA10    SA3    A3+Z=BLKS   CBA = CBA+Z=BLKS, CBI =T.BLKS(CBA)          DECL     3678
                          55431                   =A4    A3-CB.W+CA.W      CAI = CA ENTRY                        DECL     3679
          2263  0304002337 +                      ZR     X4,MCA99    IF END OF T.BLKS                            DECL     3680
                                                                                                                 FC5A444   132
                                        *         IF AUTOMATIC LEVEL IS ON, SET A LEVEL OF 2 INTO ALL COMMON     FC5A444   133
                                        *         BLOCKS NOT EXPLICITLY ASSIGNED A LEVEL.                        FC5A444   134
                                                                                                                 FC5A444   135
                          5110000000 X            SA1    CO.AL                                                   FC5A444   136
          2264  0321002270 +                      PL     X1,MCA11    IF AUTOMATIC LEVEL IS OFF                   FC5A444   137
                          43672                   MX6    -CA.BLVLL                                               FC5A444   138
                               20614              LX6    CA.BLVLP                                                FC5A444   139
          2265  15046                             BX0    -X6*X4                                                  FC5A444   140
                     0310002270 +                 NZ     X0,MCA11    IF EXPLICITLY LEVELED                       FC5A444   141
                               76611              =X6    2                                                       FC5A444   142
          2266  20614                             LX6    CA.BLVLP                                                FC5A444   143
                     12464                        BX4    X6+X4       SET LEVEL 2                                 FC5A444   144
                          10644                   BX6    X4                                                      FC5A444   145
                               54640              SA6    A4          UPDATE CAI                                  FC5A444   146
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    77
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
          2267  5160000000 X                      SA6    LEVEL2      MARK LEVEL 2 STORAGE IN USE                 FC5A444   147
                          5160000000 X            SA6    LEVEL                                                   FC5A444   148
                                                                                                                 FC5A444   149
          2270  43060                    MCA11    MX0    -CA.LMIL                                                FC5A444   150
                                                  LX4    -CA.LMIP                                                DECL     3682
                     15640                        BX6    -X0*X4      LASTMEM = LMI[CBA]                          DECL     3683
                          0316002272 +            NZ     X6,MCA13    IF AT LEAST ONE MEMBER ENTERED              FC5A444   151
          2271  54630                             SA6    A3          CBI = 0     SET FMI[CBA] = 0                DECL     3685
                     10366                        BX3    X6                                                      DECL     3686
                                                                                                                 DECL     3687
          2272  6144000002               MCA13    SB4    B4+Z=BLKS                                               FC5A444   152
                          43071                   MX0    -WB.MODEL                                               DECL     3689
                               43660              MX6    -CB.FMIL                                                DECL     3690
          2273  20322                             LX3    -CB.FMIP                                                DECL     3691
                     15636                        BX6    -X6*X3      COMIND = FMI[CBI]                           DECL     3692
                          63560                   SB5    X6                                                      DECL     3693
                               66350              SB3    B5          BPNTER = COMIND                             DECL     3694
                                                                                                                 DECL     3695
                                        *         DIAGNOSE EMPTY COMMON BLOCK DECLARED THROUGH SAVE.             DECL     3696
                                                                                                                 DECL     3697
          2274  0316002300 +                      NZ     X6,MCA15    IF COMIND .NE. 0                            DECL     3698
                          43052                   MX0    CA.BNAML                                                DECL     3699
                               11604              BX6    X0*X4       EXTRACT BLOCK NAME                          DECL     3700
          2275  5160000000 X                      SA6    FILL.                                                   DECL     3701
                          6170000000 X            FATAL  E.CM12                                                  DECL     3702
          2277  0400002262 +                      EQ     MCA10                                                   DECL     3703
                                                                                                                 DECL     3704
                                                                                                                 DECL     3705
          2300  54105                    MCA15    SA1    A0+B5       CMF = T.COMM(COMIND)                        DECL     3706
                     20122                        LX1    -CT.TAGP                                                DECL     3707
                          63710                   SB7    X1                                                      DECL     3708
                                   0              ERRNZ  18-CT.TAGL                                              DECL     3709
                               76277              SX2    B7+B7                                                   DECL     3710
          2301  73727                             SX7    X2+B7       STIND = 3 * TAG[CMF]                        DECL     3711
                                   0              ERRNZ  3-Z=SYM                                                 DECL     3712
                     53276                        SA2    X7+B6       WBF = T.SYM(STIND)                          DECL     3713
                                                  LX2    -WB.MODEP                                               DECL     3714
                          15220                   BX2    -X0*X2      MODEI = MODE[WBF]                           DECL     3715
          2302  7272777771                        SX7    X2-M.CHAR                                               DECL     3716
                          43201                   CLAS=  X2,CA,(CHAR)                                            DECL     3717
          2303  0317002304 +                      NZ     X7,MCA20    IF NOT MODE CHARACTER                       DECL     3718
                          12642                   BX6    X4+X2                                                   DECL     3719
                               54640              SA6    A4          CHAR[CAI] = 1                               DECL     3720
                                                                                                                 DECL     3721
                                        *         FETCH FROM T.COMM NEXT COMMON MEMBER OF THIS BLOCK AND         DECL     3722
                                        *         SET ITS  RB[WC.] = RBI, RA[WC.] = BLEN[CBI].                   DECL     3723
                                        *                                                                        DECL     3724
                                        *         A3 = CBI                                                       DECL     3725
                                        *         (B3) = BPNTER, PNTER TO THE PREVIOUS COMMON ELEMENT            DECL     3726
                                        *         (B4) = RBI                                                     DECL     3727
                                        *         (A0) = FWA(T.COMM)                                             DECL     3728
                                        *         (B5) = COMIND                                                  DECL     3729
                                        *         (B6) = FWA(T.SYM) + WB.W                                       DECL     3730
                                                                                                                 DECL     3731
          2304  0450002262 +             MCA20    ZR     B5,MCA10    IF COMIND .EQ.0  (END OF THIS BLOCK)        DECL     3732
                          54105                   SA1    A0+B5       CMI = T.COMM(COMIND)                        DECL     3733
                               55431              =A4    A3-CB.W+CA.W      CAI = CA ENTRY                        DECL     3734
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    78
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
          2305  43001                             MX0    1                                                       DECL     3735
                     20452                        HX4    CA.CHAR                                                 DECL     3736
                          11440                   BX4    X4*X0       (X4) = CHAR INDICATOR                       DECL     3737
                               10211              BX2    X1                                                      DECL     3738
          2306  20122                             LX1    -CT.TAGP                                                DECL     3739
                     43060                        MX0    -CT.LNKL                                                FC50533     6
                          63710                   SB7    X1          TAGI = TAG[CMI]                             DECL     3741
                                   0              ERRNZ  18-CT.TAGL                                              DECL     3742
                               20244              LX2    -CT.LNKP                                                FC50533     7
          2307  15220                             BX2    -X0*X2      COMIND = LNK[CMI]                           FC50533     8
                     76377                        SX3    B7+B7                                                   DECL     3744
                          73337                   SX3    X3+B7       STINDB = 3 * TAGI                           DECL     3745
                                   0              ERRNZ  3-Z=SYM                                                 DECL     3746
                               76030              SX0    B3          SAVE BPNTER                                 DECL     3747
          2310  66350                             SB3    B5          BPNTER = COMIND                             DECL     3748
                     43771                        MX7    -WB.MODEL                                               DECL     3749
                          63520                   SB5    X2          COMIND = LNK[CMI]                           DECL     3750
                               53236              SA2    X3+B6       WBI = T.SYM(STINDB)                         DECL     3751
                                                  LX2    -WB.MODEP                                               DECL     3752
          2311  15327                             BX3    -X7*X2      MODEI = MODE[WBI]                           DECL     3753
                     63730                        SB7    X3          CMI = MODEI                                 DECL     3754
                          7167777771              SX6    B7-M.CHAR                                               DECL     3755
                                                  LX2    WB.MODEP                                                DECL     3756
          2312  13333                             BX3    0           INDICATE NON-CHAR                           DECL     3757
                     0316002314 +                 NZ     X6,MCA25    IF ELEMENT NOT MODE CHAR                    DECL     3758
                               43301              MX3    1           INDICATE CHARACTER                          FC50533     9
          2313  6170477777                        =B7    477777B     CMI = -300000B (CHARACTER MODE INDICATOR)   DECL     3759
                                                                                                                 FC50533    10
          2314  37634                    MCA25    IX6    X3-X4       COMPARE WITH BLOCK CHAR INDICATOR           DECL     3761
                     43360                        MX3    -CT.LNKL                                                DECL     3762
                          0306002322 +            ZR     X6,MCA40    IF NO CONFLICT                              DECL     3763
                                                                                                                 DECL     3764
                                        *         THIS ELEMENT CAUSES CHARACTER MODE CONFLICT IN THIS BLOCK.     DECL     3765
                                        *         DELETE IT FROM THE BLOCK, AND SET ITS COM[WBI] = 0.            DECL     3766
                                        *         INDICATE ERROR BY SETTING NAC[CAI] = 1.                        DECL     3767
                                                                                                                 DECL     3768
          2315  7170100000                        CLAS=  X7,WB,(COM)                                             DECL     3769
                          15627                   BX6    -X7*X2      CLEAR COM[WBI] FIELD                        DECL     3770
                               63300              SB3    X0          BPTER = SAVED BPTER                         DECL     3771
          2316  54503                             SA5    A0+B3       CMB = T.COMM(BPTER)                         DECL     3772
                     54620                        SA6    A2          COM[WBI] = 0                                DECL     3773
                          76750                   SX7    B5                                                      DECL     3774
                               20544              LX5    -CT.LNKP                                                DECL     3775
          2317  11635                             BX6    X3*X5       CLEAR LNK[CT.] FIELD                        DECL     3776
                     55431                        =A4    A3-CB.W+CA.W      CAI = CA ENTRY                        DECL     3777
                          12667                   BX6    X6+X7       ADD IN NEW LINK                             DECL     3778
                               20630              LX6    CT.LNKP                                                 DECL     3779
          2320  7100200000                        CLAS=  X0,CA,(NAC)                                             DECL     3780
                          12704                   BX7    X0+X4                                                   DECL     3781
                               54650              SA6    A5          LNK[CMB] = CMIND                            DECL     3782
          2321  54740                             SA7    A4          NAC[CAI] = 1                                DECL     3783
                     0400002304 +                 EQ     MCA20                                                   DECL     3784
                                                                                                                 DECL     3785
                                        *         UPDATE BLOCK LENGTH, STORE BLOCK RELATIVE ADDRESS.             DECL     3786
                                                                                                                 DECL     3787
          2322  54330                    MCA40    SA3    A3          CBI = CB ENTRY OF T.BLKS                    DECL     3788
                     54521                        =A5    A2-WB.W+WC.W      WCI = WC ENTRY OF T.SYM               DECL     3789
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    79
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
                                                  LX3    -CB.BLENP                                               DECL     3790
                          76440                   SX4    B4                                                      DECL     3791
                               20460              LX4    WC.RBP                                                  DECL     3792
          2323  43044                             MX0    -CB.BLENL                                               DECL     3793
                     15630                        BX6    -X0*X3      BLENI = BLEN[CBI]                           DECL     3794
                          20152                   LX1    CT.TAGP-CT.RAP                                          DECL     3795
                               12716              BX7    X1+X6                                                   DECL     3796
                                                  LX7    CT.RAP                                                  DECL     3797
                                                  LX6    WC.RAP                                                  DECL     3798
          2324  36646                             IX6    X4+X6                                                   DECL     3799
                     54710                        SA7    A1          RA[CMI] = BLENI[CT.]                        DECL     3800
                          43457                   MX4    -WB.PNTL                                                DECL     3801
                               12665              BX6    X6+X5                                                   DECL     3802
          2325  54650                             SA6    A5          (RB,RA) [WCI] = (RBI,BLENI) [WC.]           DECL     3803
                     10122                        BX1    X2                                                      DECL     3804
                          20215                   LX2    -WB.PNTP                                                DECL     3805
                               15024              BX0    -X4*X2      DTIND = PNT[WBI]                            DECL     3806
                                                                                                                 DECL     3807
                                        *         FETCH ARRAY LENGTH FROM T.DIM ENTRY AND UPDATE                 DECL     3808
                                        *                BLEN[CBI] = BELN[CBI] + ARRAY LENGTH.                   DECL     3809
                                        *         FOR CHARACTER ITEM, ARRAY LENGTH = ARRAY LENGTH * CLEN[WCI]    DECL     3810
                                        *         (X5) = DTA, DIMENSION TABLE ENTRY OF THIS COMMON ELEMENT       DECL     3811
                                        *         (B7) = CMI                                                     DECL     3812
                                        *         A3,(X3) = CBI                                                  DECL     3813
                                                                                                                 DECL     3814
          2326  53502                    MCA70    SA5    X0+B2       DTI = T.DIM(DTIND)                          DECL     3815
                     20536                        LX5    -DH.PSP                                                 DECL     3816
                          43744                   MX7    -DH.PSL                                                 DECL     3817
                               15457              BX4    -X7*X5      CMLEN = SIZ[DIT]                            DECL     3818
          2327  43274                             MX2    -0          FOR TWO WORD ELEMENTS                       DECL     3819
                     7117777773                   SX1    B7-M.DBL                                                DECL     3820
          2330  0301002334 +                      ZR     X1,MCA90    IF MODE DOUBLE                              DECL     3821
                          7211777776              SX1    X1+M.DBL-M.CPLX                                         DECL     3822
          2331  0301002334 +                      ZR     X1,MCA90    IF MODE COMPLEX                             DECL     3823
                          7120000000              SX2    0           FOR ONE WORD ELEMENTS                       DECL     3824
          2332  0670002334 +                      GE     B7,B0,MCA90 IF CMI .GE. 0 (IF NOT MODE CHARACTER)       DECL     3825
                          5052000001              SA5    A2-WB.W+WC.W      WCI = WC ENTRY                        DECL     3826
          2333  20514                             HX5    WC.CLEN                                                 DECL     3827
                     21552                        AX5    -WC.CLENL                                               DECL     3828
                          42445                   IX4    X4*X5       CMLEN = CMLEN * CLEN[WCI]                   DECL     3829
                                                                                                                 DECL     3830
                                         .TEST    IFEQ   TEST,ON                                                 DECL     3831
                                                  ZR     X5,"BLOWUP" IF CLEN .EQ. 0                              DECL     3832
                                                  LX4    -CB.BLENL                                               DECL     3833
                                                  AX4    -CB.BLENL                                               DECL     3834
                                                  MI     X4,"BLOWUP" CHARACTER BLOCK LENGTH TOO LONG             DECL     3835
                                         .TEST    ENDIF                                                          DECL     3836
                                                                                                                 DECL     3837
          2334  11224                    MCA90    BX2    X2*X4                                                   DECL     3838
                     36424                        IX4    X2+X4       CMLEN = 2 * CMLEN IF DOUBLE                 DECL     3839
                          43144                   MX1    -CB.BLENL                                               DECL     3840
                               11713              BX7    X1*X3                                                   DECL     3841
          2335  15331                             BX3    -X1*X3      BLEN = BLEN[CBI]                            DECL     3842
                     36434                        IX4    X3+X4       BLEN = BLEN + CMLEN                         DECL     3843
                          15641                   BX6    -X1*X4      TRUNCATE TO CB.BLENL                        DECL     3844
                               12676              BX6    X7+X6                                                   DECL     3845
                                                  LX6    CB.BLENP                                                DECL     3846
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    80
        CLOSE OF DECLARATIVE ROUTINES.                                MCA 
  
          2336  54630                             SA6    A3          BLEN[CBI] = BLEN[CBI] + CMLEN               DECL     3847
                     0400002304 +                 EQ     MCA20                                                   DECL     3848
          2337                           MCA99    BSS    0                                                       DECL     3849
                                         SNAP=B   IFNE   TEST                                                    DECL     3850
                                                  SA3    CO.SNAP                                                 DECL     3851
                                                  LX3    1RB                                                     DECL     3852
                                                  PL     X3,MCA99S   IF BLOCK TABLE SNAP NOT SELECTED            DECL     3853
                                         MCA.99   DUMPT  BLKS                                                    DECL     3854
                                         MCA99S   BSS    0                                                       DECL     3855
                                         SNAP=B   ENDIF                                                          DECL     3856
                                                                                                                 DECL     3857
          2337  0400002254 +                      EQ     EXIT.                                                   DECL     3858
  
  
  
                                        **        MFR -  MARK FUNCTION AS REFERENCED                             DECL     3860
                                        *                                                                        DECL     3861
                                        *         IF COMPILING A FUNCTION, THIS ROUTINE WILL SET WB.MDF          FC5A191    17
                                        *         ON THE VALUE. SYMBOL CORRESPONDING TO THE MODE OF              DECL     3863
                                        *         THE FUNCTION.                                                  DECL     3864
                                        *                                                                        DECL     3865
                                        *         USES   X - 0,1,2,6  A - 1,2,6  B - 2                           DECL     3866
                                                                                                                 DECL     3867
          2340  0400402340 +             MFR      SUBR               ...ENTRY/EXIT...                            DECL     3868
          2341  5110000000 X                      SA1    MOD                                                     DECL     3869
                          20160                   HX1    MO.FUN                                                  DECL     3870
          2342  0321002340 +                      PL     X1,EXIT.    IF NOT COMPILING A FUNCTION                 DECL     3871
                          5120000000 X            SA2    S=VALUE                                                 DECL     3872
          2343  20114                             LX1    MO.FUNP+1-MO.MODEP                                      DECL     3873
                     43071                        MX0    -MO.MODEL                                               DECL     3874
                          15110                   BX1    -X0*X1      ISOLATE FUNCTION MODE                       DECL     3875
                               36112              IX1    X1+X2       X1 = SYMORD OF PROPER VALUE. SYMBOL         DECL     3876
          2344  63210                             SB2    X1                                                      DECL     3877
                     20101                        LX1    1                                                       DECL     3878
                          73112                   SX1    X1+B2       CONVERT TO INDEX                            DECL     3879
          2345  5120000000 X                      SA2    T.SYM                                                   DECL     3880
                          6221000001              SB2    X1+WB.W                                                 DECL     3881
          2346  53222                             SA2    X2+B2       *WB* OF PROPER VALUE. SYMBOL                DECL     3882
                     7110000400                   LDBIT  X1,WB.MDFP                                              FC5A191    18
                               12612              BX6    X1+X2                                                   DECL     3884
          2347  54620                             SA6    A2          SET 1REF *DEFINITION REQUIRED* FLAG         DECL     3885
                     0400002340 +                 EQ     EXIT.                                                   DECL     3886
  
  
  
  
                                        **        PCF -  PROCESS CHARACTER/FORMAL PARAMETER INTERACTION          DECL     3888
                                        *                                                                        DECL     3889
                                        *         IF THE MAIN ENTRY (FUNCTION ONLY) IS TYPE CHARACTER, THE       DECL     3890
                                        *         CORRESPONDING VALUE. IS MADE THE FIRST FORMAL PARAMETER.  ANY  DECL     3891
                                        *         FORMAL PARAMETER WITH ASSUMED CHARACTER LENGTH WILL HAVE A     DECL     3892
                                        *         VARDIM TURPLE ASSOCIATED WITH IT.                              DECL     3893
                                        *                                                                        DECL     3894
                                        *         CALLS  ACV, ADW, ALC, MVE=                                     FC50512    25
                                                                                                                 DECL     3896
                                                                                                                 DECL     3897
          2350  0400402350 +             PCF      SUBR               ...ENTRY/EXIT...                            DECL     3898
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    81
        CLOSE OF DECLARATIVE ROUTINES.                                PCF 
  
          2351  5110000000 X                      SA1    CHARDCL                                                 DECL     3899
                          0301002350 +            ZR     X1,EXIT.    IF NO CHARACTER DECLARATIONS                DECL     3900
          2352  5110000000 X                      SA1    S=ENTRY                                                 DECL     3901
                          5120000000 X            SA2    T.SYM                                                   DECL     3902
          2353  63210                             SB2    X1                                                      DECL     3903
                     20101                        LX1    1                                                       DECL     3904
                          73112                   SX1    X1+B2       CONVERT ORDINAL TO INDEX                    DECL     3905
                                   0              ERRNZ  3-Z=SYM                                                 DECL     3906
                               63211              =B2    X1-WA.W+WB.W                                            DECL     3907
          2354  53122                             SA1    X2+B2       FETCH MAIN ENTRY *WB*                       DECL     3908
                     43071                        MX0    -WB.MODEL                                               DECL     3909
                                                  LX1    -WB.MODEP                                               DECL     3910
                          15010                   BX0    -X0*X1      EXTRACT MODE                                DECL     3911
          2355  6220777771                        SB2    X0-M.CHAR                                               DECL     3912
                          0520002426 +            NZ     B2,PCF6     IF MAIN ENTRY NOT TYPE CHARACTER            FC50773    14
          2356  54311                             =A3    A1-WB.W+WC.W                                            FC50512    26
                     43051                        MX0    -WC.CLIFL                                               DECL     3915
                          20337                   LX3    -WC.CLIFP                                               DECL     3916
                               15330              BX3    -X0*X3      ISOLATE CLIF OF MAIN ENTRY                  DECL     3917
          2357  5150000000 X                      SA5    S=VALUE                                                 DECL     3918
                          5140000000 X            SA4    T.SYM                                                   DECL     3919
          2360  7255000006                        SX5    X5+M.CHAR                                               DECL     3920
                          63250                   SB2    X5                                                      DECL     3921
                               22115              LX1    X5,B1                                                   DECL     3922
          2361  73112                             SX1    X1+B2       CONVERT ORDINAL TO INDEX                    DECL     3923
                                   0              ERRNZ  3-Z=SYM                                                 DECL     3924
                     63211                        =B2    X1-WA.W+WB.W                                            DECL     3925
                          53242                   SA2    B2+X4       FETCH VALUE. *WB*                           DECL     3926
                               43601              CLAS=  X6,WB,(FP)                                              DECL     3927
                     12626                        BX6    X2+X6       VALUE. BECOMES A FORMAL PARAMETER           DECL     3928
                          5110000000 X            SA1    MOD                                                     DECL     3929
          2363  20335                             LX3    MO.CLIFP                                                DECL     3930
                     12713                        BX7    X1+X3                                                   DECL     3931
                          54710                   SA7    A1          PROPAGATE CLIF TO MOD                       DECL     3932
          2364  5012000001                        SA1    A2-WB.W+WC.W      *WC* OF VALUH.                        DECL     3933
                                                  LX3    WC.CLIFP-MO.CLIFP                                       DECL     3934
                          12713                   BX7    X1+X3                                                   DECL     3935
                               54710              SA7    A1          PROPAGATE CLIF TO VALUH.                    DECL     3936
          2365  5130002611 +                      CLAS=  X3,WB,(EQV,BASE)                                        DECL     3937
                          15663                   BX6    -X3*X6                                                  DECL     3938
                               54620              SA6    A2                                                      DECL     3939
          2366  5110000000 X                      ALLOC  T.FPI,1     NEED A NEW ENTRY FOR VALUE.                 DECL     3940
          2370  10311                             BX3    X1                                                      FC5A128   315
                     7212777776                   SX1    X2-1        COUNT (LESS NEW CELL)                       FC5A128   316
                               10233              BX2    X3          SOURCE                                      FC5A128   317
          2371  73321                             =X3    X2+1        DESTINATION                                 FC5A128   318
                     63410                        SB4    X1          SAVE COUNT                                  FC5A128   319
                          0100000000 X            MOVE   X1,X2,X3    MAKE ROOM FOR NEW FPNO 1                    FC5A128   320
          2372  5110000000 X                      SA1    T.FPI                                                   FC5A128   321
                          10655                   BX6    X5                                                      FC5A128   322
                               53610              SA6    X1          VALUE. BECOMES FPNO 1                       FC5A128   323
          2373  76710                             =X7    1                                                       FC5A128   324
                     20741                        LX7    WB.FPNOP                                                FC5A128   325
                          5140000000 X            SA4    T.SYM                                                   FC5A128   326
                                                                                                                 FC50512    27
          2374  53214                    PCF1     SA2    X1+B4                                                   FC5A128   327
                     63220                        SB2    X2                                                      DECL     3950
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    82
        CLOSE OF DECLARATIVE ROUTINES.                                PCF 
  
                          20201                   LX2    1                                                       DECL     3951
                               73222              SX2    B2+X2       CONVERT ORDINAL TO INDEX                    DECL     3952
                                   0              ERRNZ  3-Z=SYM                                                 DECL     3953
          2375  63221                             =B2    X2-WA.W+WB.W                                            DECL     3954
                     53342                        SA3    X4+B2       FETCH FORMAL PARAMETER *WB*                 DECL     3955
                          36673                   IX6    X7+X3       INCREMENT FORMAL PARAMETER NUMBER           FC5A128   328
                               54630              SA6    A3                                                      DECL     3957
          2376  67441                             =B4    B4-1                                                    DECL     3958
                     0640002374 +                 PL     B4,PCF1     IF NOT FINISHED                             DECL     3959
                                                                                                                 FC50512    28
                                        *         IF ASSUMED SIZE, MUST INSERT ENTRY FOR VALUH. INTO T.ENTP AND  FC50512    29
                                        *         ADJUST EXISTING ENTRIES.                                       FC50512    30
                                                                                                                 FC50512    31
          2377  5110000000 X                      SA1    MOD                                                     FC50512    32
                          20136                   SBIT   X1,MO.CTYPP                                             FC50512    33
          2400  0321002426 +                      PL     X1,PCF6     IF NOT ASSUMED SIZE                         FC50773    15
                          5110000000 X            SA1    T.ENTP                                                  FC50512    35
          2401  5120000000 X                      SA2    T=ENTP                                                  FC50512    36
                          0312002411 +            NZ     X2,PCF2     IF NOT NULL PARAMETER LIST                  FC50773    16
          2402  76610                             =X6    1                                                       FC50773    17
                     20660                        LX6    EH.FPCP     COUNT IS ONE                                FC50773    18
                          76010                   =X0    1                                                       FC50773    19
                                                  LX0    EH.BIASP    CPL. BIAS WILL BE 1                         FC50773    20
                               12661              BX6    X6+X1       FORM EH.                                    FC50773    21
          2403  5110000000 X                      ADDWD  T.ENTP                                                  FC50773    22
          2404  5110000000 X                      SA1    S=VALUE                                                 FC50773    23
                          7261000006              SX6    X1+M.CHAR   VALUE.H                                     FC50773    24
          2405  20655                             LX6    EF.ORDP                                                 FC50773    25
                     5110000000 X                 ADDWD  T.ENTP      EF. WORD                                    FC50773    26
          2407  76611                             =X6    2                                                       FC50773    27
                     5160000000 X                 SA6    N.CPL                                                   FC50773    28
          2410  0400002426 +                      EQ     PCF6                                                    FC50773    29
                                                                                                                 FC50773    30
          2411  6242777776               PCF2     =B4    X2-1        COUNT EF. WORDS ONLY                        FC50773    31
                          63711                   =B7    X1+1        POINT TO FIRST EF. WORD                     FC50512    38
                               53110              SA1    X1          FETCH HEADER (EH. WORD)                     FC50512    39
          2412  7160000001                        SX6    1                                                       FC50512    40
                          20114                   LX1    -EH.FPCP                                                FC50512    41
                               43060              MX0    -EH.FPCL                                                FC50512    42
          2413  36661                             IX6    X6+X1       INCREMENT FP COUNT                          FC50512    43
                     15060                        BX0    -X0*X6      EXTRACT COUNT                               FC50512    44
                          20660                   LX6    EH.FPCP                                                 FC50512    45
                               54610              SA6    A1          UPDATE                                      FC50512    46
          2414  73001                             =X0    X0+1        INCREMENT FOR THE MANDATORY NULL ELEMENT    FC50512    47
                     43172                        MX1    -2                                                      FC50512    48
                          15101                   BX1    -X1*X0      FOR MOD4 ARITHMETIC                         FC50512    49
                               21002              AX0    2                                                       FC50512    50
          2415  63600                             SB6    X0                                                      FC50512    51
                     0301002416 +                 ZR     X1,PCF3     IF PARCELLED EXACTLY                        FC50773    32
                               66661              =B6    B6+1                                                    FC50512    53
                                                                                                                 FC50512    54
          2416  0464002421 +             PCF3     EQ     B6,B4,PCF4  IF NO ALLOCATION NEEDED                     FC50773    33
                          43600                   MX6    0                                                       FC50512    56
          2417  5110000000 X                      ADDWD  T.ENTP      ADD NEW WORD                                FC50512    57
          2420  63711                             =B7    X1+1        POINT TO FIRST EF. WORD                     FC50512    58
                     6242777776                   =B4    X2-1        COUNT EF. WORDS ONLY                        FC50512    59
                                                                                                                 FC50512    60
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    83
        CLOSE OF DECLARATIVE ROUTINES.                                PCF 
  
          2421  5110000000 X             PCF4     SA1    N.CPL                                                   FC50773    34
                          73611                   =X6    X1+1        INCREMENT                                   FC50773    35
                               54610              SA6    A1                                                      FC50773    36
          2422  5110000000 X                      SA1    S=VALUE                                                 FC50773    37
                          7211000006              SX1    X1+M.CHAR   FIRST 'CARRY OVER' IS VALUH.                FC50512    62
                                                                                                                 FC50512    63
          2423  56270                    PCF5     SA2    B7          FETCH EF. WORD                              FC50773    38
                     20155                        LX1    EF.ORDP     POSITION CARRY OVER                         FC50512    65
                          43055                   MX0    -EF.ORDL                                                FC50512    66
                               15020              BX0    -X0*X2                                                  FC50512    67
          2424  21217                             AX2    EF.ORDL     DROP ONE ENTRY                              FC50512    68
                     12612                        BX6    X1+X2       ADD IN CARRY OVER                           FC50512    69
                          54620                   SA6    A2                                                      FC50512    70
                               66771              =B7    B7+1        INCREMENT POINTER                           FC50512    71
          2425  67441                             =B4    B4-1        DECREMENT COUNT                             FC50512    72
                     10100                        BX1    X0          CARRY OVER FOR NEXT EF. WORD                FC50512    73
                          0540002423 +            NZ     B4,PCF5     IF MORE ADJUSTMENT                          FC50773    39
                                                                                                                 DECL     3960
                                        *         TEST FOR ASSUMED LENGTH CHARACTER                              DECL     3961
                                                                                                                 DECL     3962
          2426  5120000000 X             PCF6     SA2    T=FPI                                                   FC50773    40
                          5130000000 X            SA3    T.FPI                                                   DECL     3964
          2427  0302002350 +                      ZR     X2,EXIT.    IF NO FORMAL PARAMETERS                     DECL     3965
                          6242777776              SB4    X2-1        LAST T.PFI ELEMENT                          DECL     3966
                                                                                                                 FC50512    75
          2430  53134                    PCF10    SA1    X3+B4       FORMAL PARAMETER INFORMATION (ORDINAL)      DECL     3967
                     0100002234 +                 RJ     ACV         PROCESS FOR ASSUMED LENGTH CHARACTER        DECL     3968
          2431  5110000000 X                      SA1    MOD                                                     DECL     3969
                          43051                   MX0    -MO.CLIFL                                               DECL     3970
                               20137              LX1    -MO.CLIFP                                               DECL     3971
          2432  15110                             BX1    -X0*X1      ISOLATE CLIF                                DECL     3972
                     5120000000 X                 SA2    S=VALUE     SYMORD OF VALUE.                            DECL     3973
          2433  5140000000 X                      SA4    T.SYM                                                   DECL     3974
                          7222000006              =X2    X2+M.CHAR   SYMORD OF VALUH.                            DECL     3975
          2434  63220                             SB2    X2                                                      DECL     3976
                     20201                        LX2    1                                                       DECL     3977
                          63222                   SB2    X2+B2       CONVERT TO INDEX                            DECL     3978
          2435  6122000002                        SB2    B2-WA.W+WC.W                                            DECL     3979
                          53242                   SA2    X4+B2       *WC* OF VALUH.                              DECL     3980
                               20135              LX1    WC.CLIFP                                                DECL     3981
          2436  12621                             BX6    X2+X1                                                   DECL     3982
                     54620                        SA6    A2          RESET WC.CLIF OF VALUH.                     DECL     3983
                          5130000000 X            SA3    T.FPI                                                   DECL     3984
          2437  6144777776                        SB4    B4-1                                                    DECL     3985
                          0640002430 +            PL     B4,PCF10    IF NOT FINISHED                             DECL     3986
          2440  0400002350 +                      EQ     EXIT.                                                   DECL     3987
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    84
        CLOSE OF DECLARATIVE ROUTINES.                                PKS 
  
                                        **        PKS -  PARSE CONSTANT SUBSTRING.                               DECL     3989
                                        *                                                                        DECL     3990
                                        *         ENTRY  (B4) _ SUBSTRING LEFT PAREN                             DECL     3991
                                        *                (X1) = WB INDEX OF VARIABLE                             DECL     3992
                                        *                (FILL.) = VARIABLE NAME FOR DIAGNOSTICS                 DECL     3993
                                        *                                                                        DECL     3994
                                        *         EXIT   (B4) _ TOKEN AFTER SUBSTRING RIGHT PAREN.               DECL     3995
                                        *                (X5) = SUBSTRING FIRST                                  DECL     3996
                                        *                (X6) = SUBSTRING LAST                                   DECL     3997
                                        *                FIRST AND LAST ARE GUARANTEED TO BE LEGITIMATE.         DECL     3998
                                        *                                                                        DECL     3999
                                        *         USES   ALL.                                                    DECL     4000
                                        *                                                                        DECL     4001
                                        *         CALLS  FATAL,PIX.                                              DECL     4002
                                                                                                                 DECL     4003
          2441  0400402441 +             PKS      SUBR               ...ENTRY/EXIT...                            DECL     4004
          2442  56440                             SA4    B4                                                      DECL     4005
                     43652                        MX6    -TB.IOCPL                                               DECL     4006
                          20430                   LX4    -TB.IOCPP                                               DECL     4007
                               15646              BX6    -X6*X4      PNTRP = IOCP(TOKEN)                         DECL     4008
          2443  20444                             LX4    TB.IOCPP-1-TB.COLP                                      DECL     4009
                     5160002467 +                 SA6    PKSA+1      (PKSA+1) = PNTRP                            DECL     4010
          2444  0324002463 +                      PL     X4,PKS80    IF THERE IS NO COLON                        DECL     4011
                          56441                   =A4    B4+1                                                    DECL     4012
                               66441              =B4    B4+1                                                    DECL     4013
          2445  6224777734                        SB2    X4-O.COLON                                              DECL     4014
                          76610                   =X6    1           FIRST = 1                                   DECL     4015
          2446  0420002447 +                      ZR     B2,PKS30    IF SUBSTRING FIRST OMITTED                  DECL     4016
                          0100000000 X            CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION           DECL     4017
                                                                                                                 DECL     4018
          2447  5160002466 +             PKS30    SA6    PKSA        (PKSA) = FIRST                              DECL     4019
                          56240                   SA2    B4                                                      DECL     4020
                               66441              =B4    B4+1                                                    DECL     4021
          2450  6272777734                        SB7    X2-O.COLON                                              DECL     4022
                          0570002463 +            NZ     B7,PKS80    IF NEXT NOT COLON                           DECL     4023
          2451  56440                             SA4    B4                                                      DECL     4024
                     6224777737                   SB2    X4-O.RP                                                 DECL     4025
                               76610              =X6    1                                                       DECL     4026
          2452  20622                             LX6    18          X6 = POSITIVE LARGE NUMBER                  DECL     4027
                     0420002454 +                 ZR     B2,PKS40    IF SUBSTRING LAST OMITTED                   DECL     4028
          2453  0100000000 X                      CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION           DECL     4029
                                                                                                                 DECL     4030
          2454  56240                    PKS40    SA2    B4                                                      DECL     4031
                     6272777737                   SB7    X2-O.RP                                                 DECL     4032
          2455  0570002463 +                      NZ     B7,PKS80    IF NO RIGHT PAREN                           DECL     4033
                          66441                   =B4    B4+1        ADVANCE CURSOR PAST SUBSTRING RP            DECL     4034
          2456  5150002466 +                      SA5    PKSA        X5 = FIRST                                  DECL     4035
                          76010                   =X0    1                                                       DECL     4036
                               37350              IX3    X5-X0                                                   DECL     4037
          2457  37460                             IX4    X6-X0                                                   DECL     4038
                     12334                        BX3    X3+X4       MI IFF FIRST OR LAST NOT POSITIVE           DECL     4039
                          37065                   IX0    X6-X5       MI IFF FIRST GT LAST                        DECL     4040
                               12003              BX0    X0+X3                                                   DECL     4041
          2460  0320002441 +                      PL     X0,EXIT.    IF NO ERROR                                 DECL     4042
                          6170000000 X            FATAL  E.AT16                                                  DECL     4043
          2462  76510                             =X5    1                                                       DECL     4044
                     76610                        =X6    1                                                       DECL     4045
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    85
        CLOSE OF DECLARATIVE ROUTINES.                                PKS 
  
                          0400002441 +            EQ     EXIT.                                                   DECL     4046
                                                                                                                 DECL     4047
                                        *         SYNTAX ERROR OCCURED IN THIS SUBSTRING EXPRESSION,             DECL     4048
                                        *         DIAGNOSE, SET DEFAULT AND EXIT.                                DECL     4049
                                                                                                                 DECL     4050
          2463  6170000000 X             PKS80    FATAL  E.ST        SYNTAX ERROR                                DECL     4051
          2464  5110002467 +                      =A1    PKSA+1                                                  DECL     4052
                          63411                   =B4    X1+1        ADVANCE PAST CLOSING RIGHT PAREN            DECL     4053
                               76510              =X5    1                                                       DECL     4054
          2465  76610                             =X6    1                                                       DECL     4055
                     0400002441 +                 EQ     EXIT.                                                   DECL     4056
                                                                                                                 DECL     4057
          2466                     2     PKSA     BSS    2           SAVE SUBSTRING RESULT AND CLOSING RP        DECL     4058
  
  
  
  
                                        **        PSC - PROPAGATE SAVE BIT THROUGH COMMON.                       DECL     4060
                                        *                                                                        DECL     4061
                                        *         ENTRY - COMMON,EQUIVALENCE PROCESSING COMPLETED.               DECL     4062
                                        *                EXPLICIT SAVE DECLARATION OF COMMON ELEMENT HAVE BEEN   DECL     4063
                                        *                DIAGNOSED.                                              DECL     4064
                                        *                                                                        FC50773    41
                                        *         EXIT - ALL COMMON ELEMENTS BELONGING TO A SAVE DECLARED        FC50773    42
                                        *                COMMON BLOCK HAVE SAVE[WB.] = 1.                        DECL     4066
                                                                                                                 DECL     4067
                                                                                                                 DECL     4068
          2470  0400402470 +             PSC      SUBR               ...ENTRY/EXIT...                            DECL     4069
          2471  5110000000 X                      SA1    SAVE                                                    DECL     4070
                          5130000000 X            SA3    USAVE                                                   DECL     4071
          2472  5120000000 X                      SA2    T=SYM                                                   DECL     4072
                          0301002470 +            ZR     X1,EXIT.    IF NO EXPLICIT SAVE DECLARATION             DECL     4073
          2473  0313002470 +                      NZ     X3,EXIT.    IF UNIVERSAL SAVE                           DECL     4074
                          5140000000 X            SA4    T.SYM                                                   DECL     4075
          2474  5110000000 X                      SA1    T.BLKS                                                  DECL     4076
                          63620                   SB6    X2                                                      DECL     4077
          2475  6241000001                        SB4    X1+CB.W                                                 DECL     4078
                          6130000003              =B3    Z=SYM                                                   DECL     4079
          2476  53541                             =A5    X4+WB.W                                                 DECL     4080
                     7120100000                   CLAS=  X2,WB,(COM)                                             DECL     4081
                               43062              MX0    -WC.RBL                                                 DECL     4082
          2477  43401                             CLAS=  X4,CB,(SAVE)                                            DECL     4083
          2500  54553                    PSC10    SA5    A5+B3       WBI = WB ENTRY OF T.SYM                     DECL     4084
                     67663                        SB6    B6-B3                                                   DECL     4085
                          0460002470 +            ZR     B6,EXIT.    IF END OF T.SYM                             DECL     4086
          2501  11625                             BX6    X2*X5       COMI = COM[WBI]                             DECL     4087
                     54151                        =A1    A5+WC.W-WB.W                                            DECL     4088
                          20570                   SBIT   X5,WB.LABP                                              DECL     4089
          2502  0335002500 +                      MI     X5,PSC10    IF LABEL                                    DECL     4090
                          0306002500 +            ZR     X6,PSC10    IF NOT COMMON                               DECL     4091
          2503  20114                             LX1    -WC.RBP                                                 DECL     4092
                     15110                        BX1    -X0*X1      RBI = RB[WCI]                               DECL     4093
                          53314                   SA3    X1+B4       CBI = T.BLKS(RBI) + CB.W                    DECL     4094
                               11343              BX3    X4*X3       SAVEI = SAVE[CBI]                           DECL     4095
          2504  20504                             LX5    1+WB.LABP                                               DECL     4096
                     20337                        LX3    WB.SAVEP-CB.SAVEP                                       DECL     4097
                          12653                   BX6    X5+X3                                                   DECL     4098
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    86
        CLOSE OF DECLARATIVE ROUTINES.                                PSC 
  
                               54650              SA6    A5          SAVE[WBI] = SAVE[CBI]                       DECL     4099
          2505  0400002500 +                      EQ     PSC10                                                   DECL     4100
  
  
  
  
                                        **        SAS -  SCAN ARRAY SIZES.                                       DECL     4102
                                        *                                                                        DECL     4103
                                        *         RESPONSIBLE FOR ISSUING FATAL ERROR FOR EVERY                  DECL     4104
                                        *         ARRAY WHOSE SIZE EXCEEDS THE MAXIMUM ALLOWED.                  DECL     4105
                                        *                                                                        DECL     4106
                                        *         CALLS  GPS,PDM.                                                DECL     4107
                                        *                                                                        DECL     4108
                                        *         USES   X - ALL  A - 1,2,3,4,5,7  B - 2,3,5,6,7.                DECL     4109
                                                                                                                 DECL     4110
          2506  0400402506 +             SAS      SUBR               ...ENTRY/EXIT...                            DECL     4111
          2507  5120000000 X                      SA2    T=SYM                                                   DECL     4112
                          5140000000 X            SA4    T.SYM                                                   DECL     4113
          2510  6130000003                        =B3    Z=SYM                                                   DECL     4114
                          63520                   SB5    X2          B5 = LENGTH OF SYMTAB                       DECL     4115
          2511  5244777775                        =A4    X4-Z=SYM+WB.W                                           DECL     4116
                          67601                   =B6    -1          INITIAL SYMTAB ORDINAL                      DECL     4117
          2512  5150000000 X                      SA5    CO.LCM                                                  DECL     4118
                          43652                   MX6    WA.SYML                                                 DECL     4119
                                                                                                                 DECL     4120
          2513  54443                    SAS10    SA4    A4+B3                                                   DECL     4121
                     0450002506 +                 ZR     B5,EXIT.    IF TABLE EXHAUSTED                          DECL     4122
                               20461              HX4    WB.ARY                                                  DECL     4123
                                                  IFEQ   TEST,ON,1                                               DECL     4124
                                                  MI     B5,"BLOWUP" IF SYMTAB LENGTH NOT MULTIPLE OF Z=SYM      DECL     4125
          2514  67553                             SB5    B5-B3                                                   DECL     4126
                     66661                        =B6    B6+1                                                    DECL     4127
                          0324002513 +            PL     X4,SAS10    IF NOT AN ARRAY                             DECL     4128
          2515  0100000000 X                      CALL   GPS         GET PRODUCT OF SPANS                        DECL     4129
          2516  20465                             LX4    WB.ARYP-WB.LCMP                                         DECL     4130
                     11045                        BX0    X4*X5                                                   DECL     4131
                          6120000000 X            SB2    E.DM19                                                  DECL     4132
          2517  7170377777                        SX7    MAX.SPCM                                                DECL     4133
                          0320002522 +            PL     X0,SAS20    IF X7,B2 ARE CORRECT                        DECL     4134
          2520  6120000000 X                      SB2    E.DM20                                                  DECL     4135
                          5110002527 +            SA1    SASA                                                    DECL     4136
          2521  10711                             BX7    X1                                                      DECL     4137
                                                                                                                 DECL     4138
          2522  37072                    SAS20    IX0    X7-X2                                                   DECL     4139
                     0320002513 +                 PL     X0,SAS10    IF SIZE OK                                  DECL     4140
          2523  5014777776                        SA1    A4-WB.W+WA.W      *WA*                                  DECL     4141
                                                  HX1    WA.SYM                                                  DECL     4142
                          11761                   BX7    X6*X1       ISOLATE ARRAY NAME                          DECL     4143
          2524  5170000000 X                      SA7    FILL.                                                   DECL     4144
                          66720                   FATAL  B2                                                      DECL     4145
          2526  0400002513 +                      EQ     SAS10       CONTINUE                                    DECL     4146
                                                                                                                 DECL     4147
          2527  00000000000003777770     SASA     CON    MAX.SPLC                                                DECL     4148
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    87
        CLOSE OF DECLARATIVE ROUTINES.                                VDP 
  
                                        **        VDP -  VARIABLE DIMENSION PROCESSING                           DECL     4150
                                        *                                                                        DECL     4151
                                        *         CHECK ALL VARIABLES IN SYMBOL TABLE FOR THOSE USED AS          DECL     4152
                                        *         SUBSCRIPTS IN ARRAYS.  IF THESE ARE FORMAL PARAMETERS OR IN    DECL     4153
                                        *         COMMON, SET OFF THE WB.VDS BIT.  TEST FOR TYPE INTEGER.        DECL     4154
                                        *                                                                        DECL     4155
                                        *         CLEAR THE VD.IND FIELD FOR ALL ENTRIES IN T.VDI.               DECL     4156
                                                                                                                 DECL     4157
          2530  0400402530 +             VDP      SUBR               ...ENTRY/EXIT...                            DECL     4158
          2531  5140000000 X                      SA4    N.VD                                                    DECL     4159
                          5120000000 X            SA2    T.SYM                                                   DECL     4160
          2532  0304002530 +                      ZR     X4,EXIT.    IF NO VARIABLE SUBSCRIPTS                   DECL     4161
                          5130000000 X            SA3    T=SYM                                                   DECL     4162
          2533  43771                             MX7    -WB.MODEL                                               DECL     4163
                     6263777775                   =B6    X3-Z=SYM+WB.W                                           DECL     4164
                               43501              CLAS=  X5,WB,(VDS)                                             DECL     4165
          2535  0760002553 +             VDP1     MI     B6,VDP3     IF LIST IS EXHAUSTED                        DECL     4166
                          53326                   SA3    X2+B6                                                   DECL     4167
          2536  6166777774                        =B6    B6-Z=SYM                                                DECL     4168
                                                  LX3    -WB.MODEP                                               DECL     4169
                          15437                   BX4    -X7*X3      EXTRACT MODE                                DECL     4170
                                                  LX3    WB.MODEP                                                DECL     4171
                               13635              BX6    X3-X5       CLEAR WB.VDS FOR POSSIBLE REMOVAL           DECL     4172
          2537  7110300000                        CLAS=  X1,WB,(COM,FP)                                          DECL     4173
                          7244777775              SX4    X4-M.INT                                                DECL     4174
          2540  11013                             BX0    X1*X3                                                   DECL     4175
                     7110002010                   CLAS=  X1,WB,(ARY,LAB)                                         DECL     4176
                               11113              BX1    X1*X3                                                   DECL     4177
          2541  0311002535 +                      NZ     X1,VDP1     IF ARRAY OR STATEMENT LABEL                 DECL     4178
                          20341                   SBIT   X3,WB.VDSP                                              DECL     4179
          2542  0323002535 +                      PL     X3,VDP1     IF NOT USED AS VARIABLE SUBSCRIPT OR ARRAY  DECL     4180
                          0300002547 +            ZR     X0,VDP2     IF NOT FORMAL PARAMETER OR IN COMMON        DECL     4181
          2543  54630                             SA6    A3          REMOVE WB.VDS FOR THIS ENTRY                DECL     4182
                     20053                        SBIT   X0,WB.FPP                                               DECL     4183
                          0320002547 +            PL     X0,VDP2     IF NOT FORMAL PARAMETER                     DECL     4184
          2544  5110000000 X                      SA1    T.FPI                                                   DECL     4185
                          20622                   HX6    WB.FPNO                                                 DECL     4186
                               21663              AX6    -WB.FPNOL   EXTRACT FORMAL PARAMETER NUMBER             DECL     4187
          2545  6226777776                        SB2    X6-1                                                    DECL     4188
                          53112                   SA1    X1+B2       FETCH T.FPI ENTRY                           DECL     4189
                               43601              CLAS=  X6,FP,(VDS)                                             DECL     4190
          2546  12661                             BX6    X6+X1                                                   DECL     4191
                     54610                        SA6    A1          UPDATE WITH FP.VDS                          DECL     4192
          2547  0304002535 +             VDP2     ZR     X4,VDP1     IF TYPE INTEGER, OK                         DECL     4193
                          43152                   MX1    WA.SYML                                                 DECL     4194
                               55431              =A4    A3-WB.W+WA.W                                            DECL     4195
          2550  11614                             BX6    X1*X4                                                   DECL     4196
                     5160000000 X                 SA6    FILL.                                                   DECL     4197
          2551  6170000000 X                      FATAL  E.DM12                                                  DECL     4198
          2552  0400002535 +                      EQ     VDP1                                                    DECL     4199
                                                                                                                 DECL     4200
                                        *         PROCESS T.VDI                                                  DECL     4201
                                                                                                                 DECL     4202
          2553  5110000000 X             VDP3     SA1    T=VDI                                                   DECL     4203
                          5120000000 X            SA2    T.VDI                                                   DECL     4204
          2554  6221777776                        =B2    X1-1                                                    DECL     4205
                          43022                   MX0    VD.INDL                                                 DECL     4206
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    88
        CLOSE OF DECLARATIVE ROUTINES.                                VDP 
  
                               20066              LX0    VD.INDL+VD.INDP                                         DECL     4207
          2555  53122                    VDP4     SA1    X2+B2       FETCH T.VDI ENTRY                           DECL     4208
                     15610                        BX6    -X0*X1      CLEAR VD.IND                                DECL     4209
                          54610                   SA6    A1                                                      DECL     4210
                               67221              =B2    B2-1                                                    DECL     4211
          2556  0720002530 +                      MI     B2,EXIT.    IF DONE                                     DECL     4212
                          0400002555 +            EQ     VDP4        CONTINUE LOOP                               DECL     4213
  
  
  
  
                                                  LIST   D                                                       DECL     4215
  
                                        CONTENT OF LITERALS BLOCK.
  
          2557  55555555555555000000
          2560  00000000002020360400         PP3D 
          2561  00000000010000100240        A  HB5
          2562  00000000002020060500         PPFE 
          2563  00000000000037777777          4;;;
          2564  00000000002020260510         PPVEH
          2565  00000000000020040100          PDA 
          2566  00000000001004000000         HD 
          2567  00000000000050020450          /BD/
          2570  00000000002020060510         PPFEH
          2571  00000000001004400000         HD5
          2572  00000000001000000040         H   5
          2573  50505555555555555555    //
          2574  00007777774000000000      ;;;5
          2575  00000631463146314632      FY-Y-Y-Z
          2576  00003000001000000000      X  H
          2577  00000000002000260510         P VEH
          2600  00000000004000100000         5 H
          2601  00007777770000000000      ;;; 
          2602  17770000000000000000    O;
          2603  00000000177700000000        O;
          2604  00000000177777777777        O;;;;;
          2605  00007777777777777777      ;;;;;;;;
          2606  00000000000002002040          B P5
          2607  00000000010000100000        A  H
          2610  17770000000077777777    O;    ;;;;
          2611  00000777700000001000      G;'   H 
  
          2612                                    END                                                            DECL     4216
  
                             75500B CM  STORAGE USED            16554 STATEMENTS     1883 SYMBOLS      000002 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           15.194 SECONDS        3041 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACV          2234   PROGRAM*       75/12 L   75/12 E   83/27
        ACV1         2251   PROGRAM*       75/30     75/48 L
        ADW             0   EXTERNAL*       2/02 X   23/41     26/12     26/38     42/24     51/34     82/29
                                            5/15     25/56     26/15     35/23     43/55     82/25     82/54
        ADWT            0   EXTERNAL*       2/02 X   15/17
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       2/02 X   14/46     33/52     62/17     65/52     81/42
                                            4/17     18/31     39/02     62/18     72/04
        ANSI=           0   EXTERNAL*       2/41 X    3/56     31/08
        APT          1310   PROGRAM*       41/36     42/20 L
        APTA         1345   PROGRAM*       43/14     44/06 L
        APTB         1346   PROGRAM*       43/07     44/07 L
        APT10        1316   PROGRAM*       42/34 L   43/21     44/04
        APT19        1324   PROGRAM*       43/04 L
        APT20        1325   PROGRAM*       42/53     43/07 L
        APT30        1331   PROGRAM*       43/13     43/17 L
        APT40        1333   PROGRAM*       43/18     43/21 L
        ARGCOMA         0   EXTERNAL*       2/11 X   16/09 S
        ARGMODE         0   EXTERNAL*       2/11 X   16/11 S
        ASL          1347   PROGRAM*       41/38     44/22 L
        ASL10        1364   PROGRAM*       44/53     44/55 L
        ASL2         1355   PROGRAM*       44/34 L   44/41     44/49     44/50     44/57     45/10
        A=DBD         432   PROGRAM*       17/29 L   17/29 E
        BLNKCOM         0   EXTERNAL*       2/44 X    3/16      4/29 S   34/06 S   45/29
        B1=1            0 
        CA.BLVLL        2   FTX            33/40     42/45     44/03     46/54     71/06     73/47     76/49
        CA.BLVLP       14   FTX            33/31     33/43     46/55     71/13     73/52     76/54
                                           33/41     42/46     71/06     73/47     76/50
        CA.BNAML       52   FTX             3/17     31/10     38/01     42/38     45/35     77/22
        CA.CHARL        1   FTX            45/44     78/02
        CA.CHARP       21   FTX            45/44     46/14     77/40     78/02
        CA.LMIL        14   FTX             5/18     77/04
        CA.LMIP         0   FTX             5/28
        CA.NACP        20   FTX            46/14
        CA.W            0   FTX             4/02     33/57 S   39/08     45/46     71/09     77/57
                                            5/20     34/01     42/35     46/44     73/45     78/45
                                           33/57     38/48     45/32     46/53     76/41
        CB.BLENL       30   FTX            42/37     45/34     64/09     71/10     79/04     79/51
        CB.BLENP        0   FTX            46/04     64/12
        CB.FMIL        14   FTX             4/06     43/38     43/40     46/56     64/14
                                            4/07     43/39     43/41     46/57     77/13
        CB.FMIP        52   FTX             4/05      4/06      4/19     43/38     46/56     64/12     77/14
        CB.RNCP        66   FTX            46/04
        CB.SAVEP       72   FTX            38/47     39/06     85/42     85/56
        CB.TAGP        30   FTX            43/29
        CB.W            1   FTX             4/02     39/07     42/35     64/08     76/31     78/45
                                           34/01     39/08     45/46     71/05     76/41     85/37
                                           38/48     42/32     46/53     71/09     77/57
        CCC          1367   PROGRAM*       41/24     45/24 L
        CCC10        1375   PROGRAM*       45/40 L   46/15     46/23
        CCC20        1406   PROGRAM*       46/02     46/07 L
        CCC30        1407   PROGRAM*       45/45     46/14 L
        CCC40        1412   PROGRAM*       46/17     46/21 L
        CCL          1415   PROGRAM*       41/22     46/35 L
        CCL10        1423   PROGRAM*       46/50 L   47/10
        CCL20        1426   PROGRAM*       47/10 L   47/28     47/32     47/37
        CCL30        1436   PROGRAM*       47/30     47/32 L
        CCS          1441   PROGRAM*       41/26     47/47 L
        CCS10        1447   PROGRAM*       48/02 L   48/09     48/10     48/21
        CCT             0   EXTERNAL*       2/11 X    5/05      7/13     25/45     28/47     30/10     32/52     35/49
        CDB           371   PROGRAM*        9/48     10/11     15/49 L
        CDBA          424   PROGRAM*       15/55 S   16/19     17/03     17/09 L   17/10     17/33     18/32
        CDBB          425   PROGRAM*       17/10 D   17/10 E
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        CDB20         411   PROGRAM*       16/27     16/34 L
        CDB30         420   PROGRAM*       16/42     16/53 L
        CDB40         422   PROGRAM*       16/32     16/49     17/03 L
        CHAR            6   FTX             3/48      3/49      9/22     27/48     31/41     46/19
        CHARDCL         0   EXTERNAL*       2/44 X   45/25     47/48     81/01
        CH.DPCL        52   FTX            28/15
        CMNA          120   PROGRAM*        4/34 S    4/50      5/56 L
        CMN100         61   PROGRAM*        4/40 L    5/44
        CMN110         64   PROGRAM*        4/43      4/46 L
        CMN120         72   PROGRAM*        4/48      4/57 L
        CMN130         74   PROGRAM*        4/55      5/03 L
        CMN140        107   PROGRAM*        4/52      5/02      5/06      5/12      5/33 L
        CMN150        114   PROGRAM*        3/25      5/40      5/48 L
        CMN30          25   PROGRAM*        3/31 L    5/50
        CMN50          33   PROGRAM*        3/38      3/43 L
        CMN60          41   PROGRAM*        3/27      3/51      3/54      3/57 L    5/54
        CMN80          46   PROGRAM*        4/01      4/13 L
        CMN90          57   PROGRAM*        4/09      4/11      4/27      4/31 L
        CMV             0   EXTERNAL*       2/08 X   36/51
        CONONE          0   EXTERNAL*       2/44 X   12/17     17/42
        CO.AL           0   EXTERNAL*       2/31 X   76/47
        CO.DBPM         0   EXTERNAL*       2/31 X    7/54
        CO.LCM          0   EXTERNAL*       2/31 X   43/10     86/23
        CO.SNAP         0   EXTERNAL*       2/31 X
        CO.TMLC         0   EXTERNAL*       2/31 X
        CR.DEC         55   FTX             3/14      6/10     25/13     31/28
        CR.STR         23   FTX            37/14
        CR.SUB         55   FTX            29/04
        CSC             0   EXTERNAL*       2/08 X   31/22
        CT1             0   EXTERNAL*       2/11 X    4/54     75/31
        CT.LNKL        14   FTX            46/45     46/46     64/28     78/06     78/30
        CT.LNKP        30   FTX             5/25      5/28     47/16     64/30     64/36     78/09     78/43     78/47
        CT.RAL         30   FTX            64/39     64/47     64/48     65/41     65/44
        CT.RAP          0   FTX            64/36     64/47     65/41     79/06
        CT.TAGL        22   FTX            43/48     47/14     65/20     77/32     78/08
        CT.TAGP        52   FTX             5/11     43/49     47/12     47/16     65/18     77/30     78/05     79/06
        C=DBD         431   PROGRAM*       17/27 L   17/27 E
        DBD1          441   PROGRAM*       17/37     17/48 L
        DBD10         464   PROGRAM*       17/32     18/43 L
        DBD2          445   PROGRAM*       18/02 L   18/20
        DBD3          450   PROGRAM*       18/06     18/12 L
        DBD4          452   PROGRAM*       18/12     18/18 L
        DCS          1461   PROGRAM*       41/28     48/39 L
        DCS10        1466   PROGRAM*       48/45     48/48 L
        DCS20        1472   PROGRAM*       48/56 L   49/07     49/08     49/11
        DH.ASL          1   FTX             8/02
        DH.ASP         72   FTX             7/56      8/02      8/09     12/43
        DH.ATTRL        6   FTX             8/43
        DH.DIML         6   FTX             8/43      9/16     10/24     12/36     13/44     19/17     55/07
        DH.DIMP         0   FTX            54/54
        DH.MATP        70   FTX             8/04      8/13
        DH.PSL         30   FTX             8/43     13/03     19/21     20/41     79/28
                                           12/45     19/20     20/38     54/50
        DH.PSP         36   FTX            12/46     13/09     20/39     54/52     68/55     79/27
                                           13/04     19/20     20/41     54/54     69/04
        DH.RAL         30   FTX             8/43
        DH.VDP         73   FTX             8/09
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        DH.VPP         71   FTX            20/40
        DIMI            0   PROGRAM*        2/57 L    8/23     12/34     19/15     34/25     69/09
                                            7/48 S    9/14     13/02     20/37     37/41     74/42
                                            7/53     10/20     16/53     29/23     69/02 S
        DIM1          122   PROGRAM*        6/13 L    6/17
        DIR           136   PROGRAM*        4/49      6/13      7/04 L    7/04 E
        DIRI          207   PROGRAM*        7/26 S    8/20      8/42 L   27/56
        DIRS          205   PROGRAM*        4/51      7/17 S    8/40 L   27/55
        DIRT          206   PROGRAM*        7/19 S    8/28      8/41 L    8/41 E   27/54
        DIR1          150   PROGRAM*        7/21      7/26 L
        DIR3          170   PROGRAM*        7/57      8/09 L
        DIR4          173   PROGRAM*        8/12      8/17 L
        DIR5          175   PROGRAM*        8/03      8/07      8/10      8/20 L
        DIR6          130   PROGRAM*        6/48 L    7/37      7/41      7/44      7/52
        DIR7          132   PROGRAM*        6/51 L    6/57
        DIR8          133   PROGRAM*        6/53 L    7/10      7/14      7/42      7/51
        DIR9          135   PROGRAM*        7/02 L    7/35
        DIR.HEAD      210   PROGRAM*        7/45      8/43 L
        DIS           211   PROGRAM*        7/50      9/13 L
        DIS1          212   PROGRAM*        9/14 L   11/06     11/31     12/03     12/22     12/54     13/14
        DIS10         251   PROGRAM*       10/41     10/55 L
        DIS15         254   PROGRAM*       10/57     11/13 L
        DIS20         264   PROGRAM*       10/38     11/38 L
        DIS25         276   PROGRAM*       11/48     12/05 L
        DIS3          221   PROGRAM*        9/31      9/35 L
        DIS30         306   PROGRAM*        9/44     10/10     12/28 L
        DIS40         320   PROGRAM*       10/51     13/02 L
        DIS5          237   PROGRAM*        9/54     10/19 L
        DIS.LB        325   PROGRAM*       10/04 S   10/13     13/16 L
        DI.DLENL       22   FTX            36/38
        DI.DLENP        0   FTX            36/36
        DI.MODEP       66   FTX            35/30
        DI.PNTL        22   FTX            36/54
        DI.PNTP        22   FTX            35/28     36/52
        DMT=            0   EXTERNAL*       2/28 X
        DM.INFL        30   FTX            10/39     10/43     11/39     11/51     16/28     19/44
                                           10/40     11/14     11/40     12/06     16/46     56/02
                                           10/42     11/15     11/49     12/07     19/43     56/03
        DM.INFP         0   FTX            10/39     11/14     11/49     19/43     56/02
                                           10/42     11/39     12/06     20/12
        DM.TDP         35   FTX            16/57     23/43
        DSRT         1500   PROGRAM*       49/25 L   63/37
        DSRT10       1504   PROGRAM*       49/32 L   50/04
        DSRT20       1507   PROGRAM*       49/40 L   49/56     50/03
        DSRT30       1514   PROGRAM*       49/44     49/57 L
        D1.SPANL       36   FTX            11/01     11/02     11/04     19/41     19/43     55/55     55/56
        D1.SPANP        0   FTX            11/04     19/41     55/55     69/04
        D1.W            0   FTX            10/50 S   11/05     11/30 S   12/02 S   12/21 S   12/53 S
        D2.LBL         36   FTX            10/39     11/39     56/02
        D2.LBP         36   FTX             9/42      9/53     10/02     69/03
        D2.UBL         36   FTX            10/37     10/42     11/04     11/14     11/49     12/06
        D2.UBP          0   FTX            10/37     11/04
        D2.W            1   FTX            10/50 S   11/05     11/30 S   12/02 S   12/21 S   12/53 S   55/57
        EDD           326   PROGRAM*        8/26     13/38 L   13/38 E
        EDDA            0   EXTERNAL*      13/40 S   14/45 S   14/48     15/02 S   15/06     15/11     15/17 D
        EDDB5         370   PROGRAM*       13/42 S   14/38     15/09     15/16 L
        EDD10         343   PROGRAM*       14/16 L   14/22
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        EDD12         346   PROGRAM*       14/21     14/26 L
        EDD14         351   PROGRAM*       14/16     14/35 L
        EDD16         354   PROGRAM*       13/49     14/07     14/28     14/44 L
        EDD4          335   PROGRAM*       13/53 L   14/10     14/31
        EDD8          342   PROGRAM*       14/02     14/14 L
        EF.ORDL        17   FTX            83/09     83/11
        EF.ORDP        55   FTX            82/28     83/08
        EH.FPCL        14   FTX            82/39
        EH.FPCP        60   FTX            82/21     82/38     82/42
        EMT             0   EXTERNAL*       2/37 X   17/41     20/21     21/26     24/15
        EQSB          206   PROGRAM*       25/52 S   26/07     27/54 D
        EQSH          205   PROGRAM*       26/01 S   26/21     26/52     26/57     27/55 D
        EQSR          721   PROGRAM*       25/25 S   25/47     27/24     27/57 L   74/37
        EQSS          207   PROGRAM*       26/06 S   26/30     27/56 D
        EQS10         635   PROGRAM*       25/20 L   27/33     27/52
        EQS20         640   PROGRAM*       25/32 L   27/16
        EQS25         662   PROGRAM*       26/10     26/15 L
        EQS40         664   PROGRAM*       26/11     26/21 L   26/43
        EQS60         677   PROGRAM*       26/13     26/50 L
        EQS65         705   PROGRAM*       26/16     26/51     27/14 L
        EQS70         712   PROGRAM*       27/28     27/31 L
        EQS80         715   PROGRAM*       25/38     25/46     27/43 L   27/43 E   27/50
        EQU          1516   PROGRAM*       41/20     51/11 L
        EQUA         2232   PROGRAM*       58/24 S   58/31     74/38 L   74/40
        EQUC         2610   PROGRAM*
        EQUDIM          0   PROGRAM*       53/20 S   55/49 S   56/33     74/42 D
        EQUS         2233   PROGRAM*       53/10 S   55/52     74/39 L
        EQU10        1540   PROGRAM*       52/11     52/15 L
        EQU100       1651   PROGRAM*       57/10 L   58/25     60/51     61/07     61/10
        EQU110       1657   PROGRAM*       57/31 L   57/36
        EQU120       1662   PROGRAM*       57/43 L   57/54
        EQU130       1666   PROGRAM*       57/33     58/01 L
        EQU140       1671   PROGRAM*       57/48     58/18 L
        EQU15        1545   PROGRAM*       51/43     52/37 L
        EQU150       1674   PROGRAM*       58/20     58/31 L
        EQU160       1702   PROGRAM*       58/40     59/01 L
        EQU170       1707   PROGRAM*       59/12     59/18 L
        EQU180       1713   PROGRAM*       59/33 L   61/52
        EQU190       1715   PROGRAM*       59/14     59/54 L   61/18     61/21     61/28     61/31
        EQU195       1756   PROGRAM*       57/12     62/15 L
        EQU20        1547   PROGRAM*       52/52 L   56/30     56/32     56/34     56/36
        EQU200       1765   PROGRAM*       62/39 L   62/50     63/18
        EQU210       1777   PROGRAM*       62/39     63/22 L
        EQU220       2005   PROGRAM*       63/55 L   64/05     64/25
        EQU230       2013   PROGRAM*       64/25 L   64/50     64/51     64/53     64/54     65/32     66/08
        EQU235       2022   PROGRAM*       64/45     64/50 L
        EQU240       2035   PROGRAM*       65/28 L   65/33
        EQU30        1551   PROGRAM*       52/43     53/07 L   54/05
        EQU300       2051   PROGRAM*       64/01     66/21 L
        EQU310       2055   PROGRAM*       66/46 L   66/51     66/56     68/12
        EQU320       2060   PROGRAM*       66/54 L   67/04     67/19
        EQU330       2072   PROGRAM*       67/31     67/36 L
        EQU340       2102   PROGRAM*       66/47     68/19 L
        EQU35        1565   PROGRAM*       53/38     53/41 L
        EQU350       2103   PROGRAM*       68/21 L   68/25     70/51     71/20     71/25
        EQU355       2113   PROGRAM*       68/44     68/48 L
        EQU370       2143   PROGRAM*       70/27     70/31 L
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        EQU40        1566   PROGRAM*       53/41     53/45 L
        EQU400       2162   PROGRAM*       68/24     71/44 L
        EQU410       2172   PROGRAM*       72/14 L   74/17
        EQU420       2206   PROGRAM*       72/34     73/12 L
        EQU430       2221   PROGRAM*       73/43     73/51     73/57 L
        EQU45        1570   PROGRAM*       53/33     53/53 L   54/02
        EQU450       2226   PROGRAM*       72/17     74/19 L
        EQU47        1573   PROGRAM*       53/54     54/04 L
        EQU5         1525   PROGRAM*       51/42 L   51/47     51/50     52/13     52/20     52/22     52/24
        EQU50        1575   PROGRAM*       53/48     54/09 L
        EQU60        1613   PROGRAM*       54/57     55/01     55/06 L
        EQU70        1617   PROGRAM*       55/42 L   56/16     56/18
        EQU75        1630   PROGRAM*       55/53     56/12 L
        EQU80        1633   PROGRAM*       55/54     56/08     56/10     56/22 L
        EQU85        1635   PROGRAM*       56/25 L   56/28
        EQU90        1641   PROGRAM*       55/46     56/32 L
        EQU99        1645   PROGRAM*       53/07     56/44 L
        EQU.10       1733   PROGRAM*       58/41     61/05 L
        EQU.20       1736   PROGRAM*       61/05     61/09 L
        EQU.30       1740   PROGRAM*       59/18     61/12 L
        EQU.40       1744   PROGRAM*       61/15     61/16     61/20 L
        EQU.50       1746   PROGRAM*       59/13     61/27 L
        EQU.60       1751   PROGRAM*       59/24     61/35 L
        EQU.70       1754   PROGRAM*       59/30     61/49 L
        EQ.ISUBL        1   FTX            53/09
        EQ.ISUBP       35   FTX            26/25     53/09     54/09
        EQ.LINKL       14   FTX            40/18     53/21     53/55     55/43     57/46
                                           51/44     53/24     53/57     56/26
        EQ.LINKP       60   FTX            25/51     40/19     51/45     51/48
        EQ.STFL        22   FTX            51/36     54/11
        EQ.STFP        36   FTX            27/03     51/48     51/54     51/56     54/11     54/14
        EQ.SUBSL       60   FTX            26/34     55/45     55/47
        EQ.SUBSP        0   FTX            55/45
        EQ.SYMIL       35   FTX            51/37
        EQ.SYMIP        0   FTX            51/56     54/19
        ERROP           0   EXTERNAL*       2/38 X   17/41
        ERT             0   EXTERNAL*       2/11 X   29/04     31/29     37/14
        ESY             0   EXTERNAL*       2/11 X   28/57     30/02     36/06
        EXTA            0   PROGRAM*       28/12 S   28/49     28/55     29/23 D
        EXT1          724   PROGRAM*       28/13 L   29/08     29/18
        EXT10         751   PROGRAM*       28/28     28/54 L
        EXT15         754   PROGRAM*       28/33     28/38     28/48     28/52     29/02 L
        EXT20         762   PROGRAM*       29/16 L   29/20
        EXT6          733   PROGRAM*       28/23     28/27 L
        EXT7          740   PROGRAM*       28/31     28/35 L
        EXT8          743   PROGRAM*       28/36     28/40 L
        EXT9          745   PROGRAM*       28/41     28/45 L
        E=TOTAL         0   EXTERNAL*       2/44 X   15/54     17/34
        E.ANS           0   EXTERNAL*       2/16 X   31/08
        E.ANS2          0   EXTERNAL*       2/16 X    3/56
        E.AT16          0   EXTERNAL*       2/16 X   52/23     84/55
        E.CM            0   EXTERNAL*       2/16 X    3/46
        E.CM1           0   EXTERNAL*       2/16 X    3/32
        E.CM10          0   EXTERNAL*       2/17 X   43/15
        E.CM11          0   EXTERNAL*       2/17 X   46/22
        E.CM12          0   EXTERNAL*       2/17 X   77/25
        E.CM2           0   EXTERNAL*       2/16 X    4/16     34/03     39/04
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        E.CM3           0   EXTERNAL*       2/16 X    5/51     34/12
        E.CM5           0   EXTERNAL*       2/16 X    3/36
        E.CM6           0   EXTERNAL*       2/16 X    5/45
        E.CM9           0   EXTERNAL*       2/17 X   43/08
        E.DM00          0   EXTERNAL*       2/17 X    7/43      9/38
        E.DM02          0   EXTERNAL*       2/17 X   10/45
        E.DM05          0   EXTERNAL*       2/17 X    7/36
        E.DM06          0   EXTERNAL*       2/17 X   10/28     12/40
        E.DM07          0   EXTERNAL*       2/18 X   16/50
        E.DM08          0   EXTERNAL*       2/18 X   13/11
        E.DM09          0   EXTERNAL*       2/18 X    7/24
        E.DM10          0   EXTERNAL*       2/18 X    6/55
        E.DM12          0   EXTERNAL*       2/18 X   87/49     87/49
        E.DM13          0   EXTERNAL*       2/18 X   12/32
        E.DM15          0   EXTERNAL*       2/18 X    9/32
        E.DM16          0   EXTERNAL*       2/18 X    7/06
        E.DM19          0   EXTERNAL*       2/19 X   86/37
        E.DM20          0   EXTERNAL*       2/19 X   86/40
        E.EQ            0   EXTERNAL*       2/19 X   27/17
        E.EQ1           0   EXTERNAL*       2/19 X   25/26
        E.EQ10          0   EXTERNAL*       2/20 X   53/32
        E.EQ11          0   EXTERNAL*       2/20 X   61/06     61/17
        E.EQ12          0   EXTERNAL*       2/20 X   61/09     61/20
        E.EQ13          0   EXTERNAL*       2/20 X   55/51
        E.EQ14          0   EXTERNAL*       2/20 X   56/29
        E.EQ15          0   EXTERNAL*       2/20 X   56/35
        E.EQ16          0   EXTERNAL*       2/20 X   61/30     61/49
        E.EQ17          0   EXTERNAL*       2/21 X   53/47
        E.EQ2           0   EXTERNAL*       2/19 X   27/34
        E.EQ3           0   EXTERNAL*       2/19 X   26/44
        E.EQ4           0   EXTERNAL*       2/19 X   26/42
        E.EQ6           0   EXTERNAL*       2/19 X   27/29     27/29
        E.EQ7           0   EXTERNAL*       2/19 X   56/07
        E.EQ8           0   EXTERNAL*       2/20 X   56/09
        E.EX1           0   EXTERNAL*       2/21 X   28/32
        E.EX2           0   EXTERNAL*       2/21 X   29/11
        E.EX3           0   EXTERNAL*       2/21 X   28/14
        E.EX4           0   EXTERNAL*       2/21 X   28/37     28/37
        E.IN            0   EXTERNAL*       2/21 X   29/39
        E.IN1           0   EXTERNAL*       2/21 X   29/47     29/47
        E.IN2           0   EXTERNAL*       2/21 X   30/15
        E.IN3           0   EXTERNAL*       2/21 X   30/33
        E.IN4           0   EXTERNAL*       2/22 X   30/45
        E.LV1           0   EXTERNAL*       2/22 X   31/15     31/18     31/23     31/35     31/47
        E.LV2           0   EXTERNAL*       2/22 X   32/18
        E.LV3           0   EXTERNAL*       2/22 X   32/16     32/30     33/19
        E.LV4           0   EXTERNAL*       2/22 X   32/49
        E.LV5           0   EXTERNAL*       2/22 X   34/23
        E.LV7           0   EXTERNAL*       2/22 X   33/44
        E.LV8           0   EXTERNAL*       2/22 X   33/33
        E.LV9           0   EXTERNAL*       2/22 X   47/31
        E.MR2           0   EXTERNAL*       2/23 X    9/28
        E.MR3           0   EXTERNAL*       2/23 X   25/22
        E.PX2           0   EXTERNAL*       2/23 X   34/42
        E.PX3           0   EXTERNAL*       2/23 X   34/51
        E.PX4           0   EXTERNAL*       2/23 X   35/05
        E.PX5           0   EXTERNAL*       2/23 X   37/24
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        E.PX8           0   EXTERNAL*       2/23 X   37/26
        E.SA            0   EXTERNAL*       2/23 X   48/46
        E.SA1           0   EXTERNAL*       2/23 X   38/14     38/37
        E.SA2           0   EXTERNAL*       2/24 X   38/28     38/51
        E.SA3           0   EXTERNAL*       2/24 X   39/13
        E.SA4           0   EXTERNAL*       2/24 X   39/21
        E.SA5           0   EXTERNAL*       2/24 X   38/22
        E.SA6           0   EXTERNAL*       2/24 X   49/10
        E.ST            0   EXTERNAL*       2/24 X   85/06
        E.ST1           0   EXTERNAL*       2/24 X   52/12
        E.TY            0   EXTERNAL*       2/24 X    6/21
        E.VA09          0   EXTERNAL*       2/24 X   28/19
        FEC=STF         0   EXTERNAL*       2/11 X   41/11
        FEC.RTN         0   EXTERNAL*       2/11 X    6/18     27/36     29/09     30/43     37/28     37/37     39/19
                                            5/39      6/23     27/46     29/21     34/20     37/35     38/06     39/30
        FILL.           0   EXTERNAL*       2/25 X   15/51     28/18 S   33/29 S   42/43 S   49/09 S   57/21 S   86/49 S
                                            3/55 S   16/23 S   29/43 S   35/38 S   46/21 S   52/05 S   61/47 S   87/48 S
                                            4/47 S   25/36 S   32/37 S   38/44 S   47/27 S   53/17 S   77/24 S
        FILL.2          0   EXTERNAL*       2/25 X    9/23 S
        FP.PNTL        22   FTX            75/16
        FUDGE           1   FTX            52/42     76/20
        F2.BSYML       14                  40/26 D   74/03
        F2.BSYMP       30                  40/26 D   69/36     73/23
        F2.EOIL        14                  40/25 D   73/14
        F2.EOIP        44                  40/25 D   69/37     70/02     73/13     73/23
        F2.FWAL        30                  40/27 D   70/17     73/15     73/16
        F2.FWAP         0                  40/27 D   73/15
        F2.LINKL       14                  40/24 D   69/29     69/31     69/41
        F2.LINKP       60                  40/24 D   69/44
        F.INTF          0   EXTERNAL*       2/52 X   30/25
        GCI          2232   PROGRAM*       53/36     74/40 D
        GPS             0   EXTERNAL*       2/05 X   86/34
        G1.ADRL        42                  40/12 D   40/13     59/55
        G1.ADRP         0                  40/12 D   40/13     60/01
        G1.CHARP       51                  40/09 D   53/37     54/37     54/39     68/34     70/40
        G1.RAL         30                  40/15 D   58/39     59/11     62/57     67/53     68/02     72/47
                                           57/49     59/05     59/35     65/39     67/54     72/29     72/48
                                           57/51     59/06     60/05     65/46     67/55     72/30
                                           58/38     59/10     62/53     65/47     67/56     72/44
        G1.RAP          0                  40/15 D   58/38     59/10     62/53     67/53     72/29
                                           57/49     59/05     59/35     65/46     67/54     72/47
        G1.RBL         12                  40/14 D   59/03     59/35     62/43     72/23     72/26
        G1.RBP         30                  40/14 D   54/28     59/03     59/35     62/56     72/26     73/32
        G1.SAVEP       50                  40/10 D   54/17     59/56     70/32     70/35
        G1.SYMIL       22                  40/08 D   61/44     65/16     65/20     72/18
        G1.SYMIP       52                  40/08 D   57/15     57/35     61/46     65/26     72/43
                                           54/19     57/20     61/42     65/23     72/31
        G1.W            0                  40/07 D   60/07     60/11     62/42     66/35     68/33     72/08     72/54
                                           57/22     60/08     62/32     65/15     68/03     70/33     72/19
        G2.HIL         30                  40/20 D   60/27     63/03
        G2.HIP         30                  40/20 D   55/12     60/27     60/48     62/54
        G2.LINKL       14                  40/18 D   57/24     57/44     58/35     60/38     62/47     72/20     72/55
                                           40/24     57/27     58/32     60/12     62/44     68/04     72/24
        G2.LINKP       60                  40/18 D   55/16     58/22     60/16     65/55     73/01
                                           40/19     58/05     58/51     60/41     68/07
        G2.LOL         30                  40/21 D   58/18     59/28     60/20     60/21     62/33     63/07
                                           57/11     59/27     60/19     60/21     60/27     63/03
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        G2.LOP          0                  40/21 D   59/27     60/19     60/20     60/21     60/21     60/27
        G2.W            1                  40/17 D   60/07     60/11     68/03     70/33     72/54
                                           57/22     60/08     62/42     69/22     72/19
        IA.TAGP        52   FTX            43/51
        INN             0   EXTERNAL*       2/11 X   68/50
        INT1          765   PROGRAM*       29/37 L   30/47
        INT10        1015   PROGRAM*       29/48     30/03     30/11     30/16     30/40 L
        INT2          774   PROGRAM*       29/46     29/53 L
        INT5         1001   PROGRAM*       29/57     30/08 L
        INT6         1007   PROGRAM*       30/14     30/20 L
        INT7         1014   PROGRAM*       30/21     30/30     30/35 L
        IT.MODEL        3   FTX            30/28
        IT.MODEP        0   FTX            30/27
        KW=COMM        17   PROGRAM*        3/12 L    3/12 E
        KW=DIME       121   PROGRAM*        6/08 L    6/08 E
        KW=EQUI       633   PROGRAM*       25/11 L   25/11 E
        KW=EXTE       722   PROGRAM*       28/08 L   28/08 E
        KW=INTR       765   PROGRAM*       29/35 L   29/35 E
        KW=LEVE      1020   PROGRAM*       31/06 L   31/06 E
        KW=PARA      1121   PROGRAM*       34/37 L   34/37 E
        KW=SAVE      1213   PROGRAM*       37/55 L   37/55 E
        K=LC            4   FTX            43/26
        LBARM           0   EXTERNAL*       2/37 X    9/47
        LEVEL           0   EXTERNAL*       2/44 X   31/11 S   46/36     77/02 S
        LEVEL2          0   EXTERNAL*       2/44 X   32/07 S   44/23     77/01 S
        LVLA            0   PROGRAM*       32/09 S   32/54     33/30     34/25 D
        LVL05        1035   PROGRAM*       31/17     31/37 L
        LVL10        1037   PROGRAM*       31/31     31/34     31/44 L
        LVL15        1042   PROGRAM*       31/49     31/52 L
        LVL20        1044   PROGRAM*       31/54     32/09 L
        LVL25        1051   PROGRAM*       32/17     32/23 L   34/22
        LVL30        1055   PROGRAM*       32/27     32/34 L
        LVL31        1062   PROGRAM*       32/43     32/48 L
        LVL32        1067   PROGRAM*       32/29     33/07 L
        LVL35        1072   PROGRAM*       32/28     33/15 L
        LVL40        1076   PROGRAM*       33/22     33/25 L
        LVL50        1077   PROGRAM*       33/13     33/29 L
        LVL70        1105   PROGRAM*       33/35     33/52 L
        LVL80        1114   PROGRAM*       33/47     34/04     34/08 L   34/08 E
        LVL90        1116   PROGRAM*       32/40     32/53     33/03     34/16 L   34/16 E
        MAX.BLK       764   FTX             4/15     33/53     39/03
        MAX.DIM         7   FTX             2/57      9/21     10/25     12/41     20/49     26/31
        MAX.SPAN       27   FTX            13/10     16/48
        MAX.SPCM   377777   FTX            44/07     86/38
        MAX.SPLC  3777770   FTX            44/06     86/53
        MAX.VAR         7   FTX             3/49
        MCA          2254   PROGRAM*       41/18     76/19 L
        MCA10        2262   PROGRAM*       76/40 L   77/26     77/55
        MCA11        2270   PROGRAM*       76/48     76/52     77/04 L
        MCA13        2272   PROGRAM*       77/07     77/11 L
        MCA15        2300   PROGRAM*       77/21     77/29 L
        MCA20        2304   PROGRAM*       77/41     77/55 L   78/52     80/02
        MCA25        2314   PROGRAM*       78/25     78/29 L
        MCA40        2322   PROGRAM*       78/31     78/56 L
        MCA70        2326   PROGRAM*       79/26 L
        MCA90        2334   PROGRAM*       79/32     79/34     79/36     79/49 L
        MCA99        2337   PROGRAM*       76/42     80/03 L
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        MFR          2340   PROGRAM*       41/16     80/24 L
        MOD             0   EXTERNAL*       2/44 X   80/25     81/31     82/14     83/28
        MO.CLIFL       23   FTX            83/29
        MO.CLIFP       35   FTX            81/32     83/30
        MO.CTYPP       35   FTX            82/15
        MO.FUNL         1   FTX            80/26
        MO.FUNP        13   FTX            80/26     80/29
        MO.MODEL        3   FTX            80/30
        MO.MODEP        0   FTX            80/29
        MVE=            0   EXTERNAL*       2/55 X   15/05     18/38     81/48
        M.BOOL          0   FTX            31/32
        M.CHAR          6   FTX            36/19     52/10     70/42     75/49     78/22     81/22     83/05
                                           47/53     53/35     75/26     77/39     81/14     82/27     83/34
        M.CPLX          5   FTX            36/25     79/33
        M.DBL           4   FTX            36/21     36/25     54/56     79/31     79/33
        M.INT           2   FTX            11/23     11/53     19/27     20/28     21/17     24/23     31/33     87/25
        NCM             0   EXTERNAL*       2/11 X   69/12
        NCS             0   EXTERNAL*       2/05 X   11/25     11/54     19/28
        N.CPL           0   EXTERNAL*       2/44 X   82/31 S   83/01
        N.EPL           0   EXTERNAL*       2/45 X   75/53 S
        N.EQ          721   PROGRAM*       66/36 S   68/48     71/56     74/37 D
        N.TABLE         0   EXTERNAL*       2/45 X   13/47     49/26
        N.VD            0   EXTERNAL*       2/45 X   21/16     23/25     87/10
        OA.FWAL        30                  40/35 D   64/29     64/39     67/09     68/37
                                           63/07     64/35     64/42     68/36     69/26
        OA.FWAP        30                  40/35 D   64/29     64/40     67/14     67/39     69/25
                                           63/09     64/34     65/02     67/25     68/36     69/48
        OA.LWAL        30                  40/36 D   64/42     67/09     68/35     71/03
                                           64/29     67/08     68/02     68/38     71/04
        OA.LWAP         0                  40/36 D   64/29     64/40     67/14     67/25     67/39     68/35     71/03
        OA.RBL         12                  40/33 D   63/57     66/48     66/49     66/57     67/01     69/46
        OA.RBP         61                  40/33 D   63/08     64/02     66/49     67/01     69/48
        OA.W            0                  40/31 D   63/15 S   65/40     66/38     67/23     67/45 S   69/21
                                           62/29     63/43     66/07     66/38     67/24     68/30     69/24
        OB.GFIL        22                  40/40 D   65/43     67/29     69/28
        OB.GFIP         0                  40/40 D
        OB.W            1                  40/38 D   63/15 S   65/40     67/23     67/24     67/45 S   68/30     69/24
        OR.OPR          0   FTX            22/26     22/32     22/33     23/04     23/05
        OR.1OP          1   FTX            18/02     22/26     22/33     22/45     23/05     23/31
                                           18/03     22/32     22/44     23/04     23/20
        OR.2OP          2   FTX            18/03     22/44     22/45     23/20     23/31
        OVP           471   PROGRAM*        8/17     19/14 L
        OVPA          530   PROGRAM*       19/29 S   19/52 S   20/08     20/20     20/49 L
        OVPB          537   PROGRAM*       19/54 S   20/14     20/50 L
        OVP1          477   PROGRAM*       19/25     19/36 L
        OVP10         523   PROGRAM*       20/18     20/36 L
        OVP11         524   PROGRAM*       20/16     20/37 L
        OVP2          501   PROGRAM*       19/40 L   20/02
        OVP3          506   PROGRAM*       19/42     19/56 L
        OVP4          510   PROGRAM*       19/57     20/07 L
        OVP5          514   PROGRAM*       20/13     20/18 L   20/31
        OVS           540   PROGRAM*       11/29     12/01     12/20     18/40     18/55     20/36     21/13 L   75/37
        OVSA          622   PROGRAM*       17/57 S   20/22     21/15     21/36     23/28     23/49 S   23/52 L   24/17
        OVSB          623   PROGRAM*       21/25 S   23/24     23/53 L
        OVS1          554   PROGRAM*       21/57 L   22/08     22/35     22/43     22/53     23/07     23/15
        OVS11         602   PROGRAM*       23/10     23/14 L
        OVS15         605   PROGRAM*       21/57     23/24 L
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        OVS20         617   PROGRAM*       23/22     23/42 L
        OVS3          563   PROGRAM*       22/28     22/31 L   22/57
        OVS5          567   PROGRAM*       22/38     22/42 L
        OVS7          573   PROGRAM*       22/48     22/52 L
        OVS9          576   PROGRAM*       22/31     23/04 L
        OVT           624   PROGRAM*       11/28     11/57     12/16     12/19     24/14 L   75/36
        O.CAT          36   FTX             5/49     32/26
        O.COLON        43   FTX             9/51     84/26     84/34
        O.COMMA        42   FTX             5/37      7/39     27/14     29/17     34/19     39/18
                                            6/16      9/29     27/32     30/42     37/21     39/29
                                            7/38     26/40     29/07     32/15     37/33
        O.CONS          5   FTX            31/13
        O.EOS           0   FTX             5/38     27/35     30/44     34/21     37/36     39/31
                                            6/19     27/47     31/16     37/27     39/20
        O.LP           37   FTX            26/04     26/50     34/40
        O.RP           40   FTX            12/31     37/22     37/34     84/37     84/44
        O.SLASH        17   FTX             3/45      5/48     32/25     33/09     34/11     38/11     39/12
        O.SLP          44   FTX            16/10
        O.STAR         16   FTX             9/43     10/09
        O.VAR          11   FTX             3/23      4/41     28/16     31/14     33/21     38/10
                                            3/35      5/36     28/22     32/24     34/50     38/36
                                            3/37      5/36     29/38     33/18     34/52     38/39
        O.(            37   FTX             4/46      7/39      7/40     25/23     27/49
        O.)            40   FTX             6/56      9/27      9/45     26/41     27/15
        O.=            41   FTX            34/57
        PAR             0   EXTERNAL*       2/37 X   16/16
        PARAMC          0   EXTERNAL*       2/12 X   36/10
        PAREXIT         0   EXTERNAL*       2/37 X   17/43     18/41     18/44     18/50     18/56
        PARMODE         0   EXTERNAL*       2/12 X   16/15 S   16/18 S
        PCD          1263   PROGRAM*       41/10 L   41/10 E
        PCDA         1307   PROGRAM*       41/14 S   41/51     41/57 L
        PCF          2350   PROGRAM*       41/32     80/57 L
        PCF1         2374   PROGRAM*       81/56 L   82/09
        PCF10        2430   PROGRAM*       83/26 L   83/45
        PCF2         2411   PROGRAM*       82/19     82/34 L
        PCF3         2416   PROGRAM*       82/49     82/52 L
        PCF4         2421   PROGRAM*       82/52     83/01 L
        PCF5         2423   PROGRAM*       83/07 L   83/17
        PCF6         2426   PROGRAM*       81/15     82/16     82/32     83/21 L
        PDM             0   EXTERNAL*       2/41 X   28/32     30/33     38/51     49/10     56/29     61/20     85/06
                                            6/21     28/37     32/18     43/19     52/12     56/35     61/30     86/50
                                            6/48     29/11     34/42     46/22     52/23     61/06     61/49     87/49
                                            7/24     29/47     38/22     47/31     54/04     61/09     77/25
                                           27/29     30/15     38/28     48/46     56/22     61/17     84/55
        PIX             0   EXTERNAL*       2/38 X   26/29     84/29     84/41
        PKS          2441   PROGRAM*       26/56     84/16 L
        PKSA         2466   PROGRAM*       84/22 S   84/31 S   84/47     85/07     85/13 L
        PKS30        2447   PROGRAM*       84/28     84/31 L
        PKS40        2454   PROGRAM*       84/40     84/43 L
        PKS80        2463   PROGRAM*       84/23     84/35     84/45     85/06 L
        PKX             0   EXTERNAL*       2/38 X   35/14
        PM=DIM          3   FTX            16/14
        PM=PARM         7   FTX            35/12
        PRMA            0   PROGRAM*       35/06 S   35/36     37/41 D   37/42
        PRMB            1   PROGRAM*       35/32 S   36/35     36/50     37/42 D   37/43
        PRMC            2   PROGRAM*       35/46 S   36/08 S   36/55     37/12     37/43 D
        PRMERR       1207   PROGRAM*       37/30 L   37/30 E   37/39
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        PRM10        1124   PROGRAM*       34/41     34/43 L
        PRM20        1125   PROGRAM*       34/48 L   37/23     37/38
        PRM21        1131   PROGRAM*       34/53     34/57 L
        PRM28        1142   PROGRAM*       35/18     35/22     35/25 L
        PRM29        1145   PROGRAM*       35/19     35/36 L
        PRM30        1155   PROGRAM*       35/41     35/57 L
        PRM40        1161   PROGRAM*       35/53     36/10 L
        PRM50        1170   PROGRAM*       36/20     36/32 L
        PRM60        1173   PROGRAM*       36/23     36/24     36/27     36/30     36/49 L
        PRM70        1200   PROGRAM*       35/50     37/12 L
        PRM80        1203   PROGRAM*       37/19 L
        PSC          2470   PROGRAM*       41/30     85/28 L
        PSC10        2500   PROGRAM*       85/43 L   85/49     85/50     86/02
        P=PFX          17   FTX            43/27
        REFVAR          0   EXTERNAL*       2/12 X    3/15 S    6/11 S   25/14 S
        SAS          2506   PROGRAM*       41/40     86/16 L
        SASA         2527   PROGRAM*       86/41     86/53 L
        SAS10        2513   PROGRAM*       86/26 L   86/33     86/45     86/51
        SAS20        2522   PROGRAM*       86/39     86/44 L
        SAVE            0   EXTERNAL*       2/45 X   38/09 S   48/40     85/29
        SAVERR       1260   PROGRAM*       39/26 L   39/26 E   39/32
        SAV1         1216   PROGRAM*       38/03     38/08 L
        SAV10        1233   PROGRAM*       38/13     38/33 L
        SAV13        1237   PROGRAM*       38/40     38/42 L
        SAV15        1245   PROGRAM*       38/50     38/54 L
        SAV16        1246   PROGRAM*       38/46     39/01 L
        SAV18        1253   PROGRAM*       38/52     38/56     39/10 L
        SAV2         1217   PROGRAM*       38/10 L   39/24     39/35
        SAV20        1255   PROGRAM*       38/18     38/23     38/31     39/15 L
        SAV5         1222   PROGRAM*       38/12     38/16 L
        SAV6         1227   PROGRAM*       38/21     38/25 L
        SAV7         1232   PROGRAM*       38/27     38/29 L
        SCS             0   EXTERNAL*       2/12 X    3/57     33/34     38/45
        SCSA            0   EXTERNAL*       2/12 X    3/21 S   31/12 S   38/02 S
        SCT             0   EXTERNAL*       2/12 X   35/20
        SLT             0   EXTERNAL*       2/12 X   29/44
        SSY             0   EXTERNAL*       2/12 X   28/27     29/56     35/39
        STAGE           0   EXTERNAL*       2/12 X   41/13 S
        STY             0   EXTERNAL*       2/12 X   28/54     35/57
        S=CON           0   EXTERNAL*       2/45 X   18/47
        S=ENTRY         0   EXTERNAL*       2/45 X   81/03
        S=VALUE         0   EXTERNAL*       2/45 X   75/48     80/28     81/20     82/26     83/04     83/32
        S=VD            0   EXTERNAL*       2/45 X   16/35     21/14
        TB=TYPE         0   EXTERNAL*       2/34 X   41/53
        TB.COLP        73   FTX            84/21
        TB.IOCPL       22   FTX            84/18
        TB.IOCPP       44   FTX            84/19     84/21
        TB.TOCL        52   FTX            31/37     35/01
        TEST            0   FTX            41/43 F   51/15 F   60/45 F   66/23 F   73/25 F   80/04 F
                                           44/37 F   56/54 F   62/20 F   68/40 F   74/21 F   86/29 F
                                           45/53 F   60/30 F   63/28 F   71/45 F   79/42 F
        TE.BIASL       30   FTX            74/01
        TE.BIASP       22   FTX            73/28     73/57
        TE.EOIP        60   FTX            70/02     73/19
        TE.NBP         52   FTX            73/29
        TLV             0   EXTERNAL*       2/13 X    3/40      4/44     28/25     33/23     34/54     38/41
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        TP.BIASL       30   FTX            16/29     16/39     20/11     23/45     75/40
                                           16/30     20/10     23/44     75/39
        TP.BIASP       24   FTX            16/29     16/40     20/10     21/19     23/44     75/39
        TP.INTRL        1   FTX            18/07     18/13     20/28     24/23
        TP.INTRP       12   FTX            17/31     18/05     18/13     20/28     22/37     23/09
                                           18/04     18/07     18/43     22/27     22/47     24/23
        TP.MODEP        0   FTX            20/28     24/23
        TP.ORDL        20   FTX            16/34     18/27     18/48
        TP.ORDP        54   FTX            16/36     18/07     18/13     18/29     21/18     22/41     22/51     23/13
                                           16/40     18/09     18/15     20/29     22/39     22/49     23/11     24/22
        TP.SHRTP       14   FTX            16/26     18/43
        TRV             0   EXTERNAL*       2/13 X    5/01      7/09     25/37     32/39     38/17
        T=BLKS          0   EXTERNAL*       2/46 X    4/13     42/26     45/28     46/43     76/21
        T=COMM          0   EXTERNAL*       2/46 X    4/04      4/18     41/42     41/42 S
        T=ECT           0   EXTERNAL*       2/46 X   71/55     74/20     74/20 S   74/34     74/34 S
        T=ENTP          0   EXTERNAL*       2/46 X   82/18
        T=EOT           0   EXTERNAL*       2/46 X   63/26     63/26 S   63/39     72/11     72/11 S
        T=EQUS          0   EXTERNAL*       2/46 X   56/48     62/16     65/14     72/07     74/32 S
                                           51/12     56/48 S   62/16 S   71/54     74/32
        T=FPI           0   EXTERNAL*       2/46 X   83/21
        T=LCA           0   EXTERNAL*       2/46 X   43/25
        T=PAR           0   EXTERNAL*       2/47 X   15/50     17/38     17/38 S   17/48     18/33     18/33 S
        T=SYM           0   EXTERNAL*       2/47 X   44/24     47/49     48/48     85/31     86/17     87/13
        T=VDI           0   EXTERNAL*       2/47 X   21/41     87/54
        T=VDIM          0   EXTERNAL*       2/47 X   17/49     20/26     21/37     23/21     23/21 S   23/29     24/16
        T.BLKS          0   EXTERNAL*       2/47 X    5/16     38/45     43/52     46/37     73/44
                                            3/57     33/34     39/02     43/56     64/04     76/22
                                            4/17     33/52     42/25     45/26     71/02     85/35
        T.COMM          0   EXTERNAL*       2/47 X    5/15     43/37     46/38     64/07     66/05     76/23
        T.CON           0   EXTERNAL*       2/47 X   16/43     35/20
        T.DIM           0   EXTERNAL*       2/47 X   13/46     52/37     69/12     69/12     76/27
        T.ECT           0   EXTERNAL*       2/48 X   62/17     62/17     69/54     72/04     73/33
        T.ENTP          0   EXTERNAL*       2/48 X   82/17     82/25     82/29     82/54     82/54
        T.EOT           0   EXTERNAL*       2/48 X   62/18     62/18     63/36     63/38     66/04     66/31     69/19
        T.EQUS          0   EXTERNAL*       2/48 X   26/15     26/53     62/28     65/52     69/20
                                           25/56     26/22     27/01     65/13     66/32     72/05
                                           26/12     26/38     51/34     65/52     68/31
        T.FPI           0   EXTERNAL*       2/48 X   81/42     81/49     83/22     83/43     87/36
        T.LCA           0   EXTERNAL*       2/48 X   42/24     43/55
        T.PAR           0   EXTERNAL*       2/48 X   17/52     18/34
        T.SYM           0   EXTERNAL*       2/48 X   36/06     47/51     57/13     75/13     81/04     85/34
                                            8/27     36/56     48/49     61/39     75/38     81/21     86/18
                                           28/57     44/25     51/38     70/19     76/26     81/54     87/11
                                           28/57     46/40     53/11     72/06     80/36     83/33
        T.TB            0   EXTERNAL*       2/48 X   41/50
        T.VDI           0   EXTERNAL*       2/49 X   11/13     11/38     12/05     19/37     22/01     23/41     87/55
        T.VDIM          0   EXTERNAL*       2/49 X   11/45     18/31     20/21     22/19     24/15
                                           11/20     12/12     19/38     21/26     24/15
        UBARM           0   EXTERNAL*       2/37 X   10/05
        USAVE           0   EXTERNAL*       2/49 X   38/05 S   48/41     85/30
        VDP          2530   PROGRAM*       41/34     87/09 L
        VDP1         2535   PROGRAM*       87/17 L   87/29     87/31     87/44     87/50
        VDP2         2547   PROGRAM*       87/32     87/35     87/44 L
        VDP3         2553   PROGRAM*       87/17     87/54 L
        VDP4         2555   PROGRAM*       88/02 L   88/07
        VD.EQ           0   EXTERNAL*       2/37 X   21/26
        VD.GP           0   EXTERNAL*       2/37 X   75/35
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        VD.INDL        22   FTX            11/18     11/43     12/10     19/47     87/57
                                           11/19     11/44     12/11     19/48     88/01
        VD.INDP        44   FTX            11/18     11/43     12/10     19/47     23/33     88/01
        VD.LENL        22   FTX            22/06
        VD.LENP         0   FTX            22/13
        VD.MI           0   EXTERNAL*       2/37 X   11/56     12/15
        VD.MU           0   EXTERNAL*       2/38 X   20/21
        VD.PL           0   EXTERNAL*       2/37 X   11/27     12/18
        VD.PNTL        22   FTX            22/15
        VD.PNTP        22   FTX            22/13     23/38
        WANFP           0   EXTERNAL*       2/13 X
        WA.NFPP        21   FTX            25/40
        WA.SYML        52   FTX            32/35     48/50     52/04     57/18     86/24
                                           47/23     51/40     53/15     61/40     87/45
        WA.SYMP        22   FTX            52/02
        WA.W            0   FTX            25/39     52/06     61/41     73/20     81/27     86/46
                                           47/21     53/14     70/01     75/22     82/04     87/46
                                           49/04     57/17     70/03     81/09     83/38
        WB.ALL          1   FTX            28/42     32/44
        WB.ALP         24   FTX            28/40     28/42     32/42     32/44     32/45     32/48     44/43
        WB.ARYL         1   FTX             7/28     26/09     70/22     86/28     87/27
        WB.ARYP        12   FTX             7/12      7/23      7/28     53/18     86/28     87/27
                                            7/16      7/27     26/09     70/22     86/35
        WB.BASEL       14   FTX            81/39
        WB.BASEP       41   FTX            74/05     81/39
        WB.BMEML        1   FTX            70/22
        WB.BMEMP       23   FTX            70/22
        WB.CGSL         1   FTX            48/54
        WB.CGSP         4   FTX            48/54
        WB.COML         1   FTX             5/04      5/07     48/55     70/29     87/24
        WB.COMP        17   FTX             5/03      5/04      5/07     48/55     70/29     87/24
        WB.DEFL         1   FTX             5/07     35/40     74/10
        WB.DEFP         7   FTX             5/07     35/40     74/10
        WB.DEXTL        1   FTX             5/04      7/11     25/43     28/10     32/41
        WB.DEXTP       26   FTX             5/04      7/11     25/43     28/10     28/30     28/35     28/46     32/41
        WB.ENTL         1   FTX             5/04      7/11     25/43     28/45     30/09     32/41     48/01
        WB.ENTP        15   FTX             5/04     25/43     28/40     30/09     48/01
                                            7/11     28/35     28/45     32/41
        WB.EQVL         1   FTX            47/25     74/10     81/39
        WB.EQVP        11   FTX            25/44     47/25     47/29     74/10     81/39
        WB.EXTL         1   FTX             5/04      7/11     25/43     28/10     30/09     32/41     48/01
        WB.EXTP        16   FTX             5/04      7/11     25/43     28/10     30/09     32/41     48/01
        WB.FPL          1   FTX             5/04     25/43     30/09     35/47     48/01     87/24
        WB.FPNOL       11   FTX            87/37     87/38
        WB.FPNOP       41   FTX            81/53     87/37
        WB.FPP         20   FTX             5/04     25/43     35/47     48/01     87/24
                                            8/34     30/09     38/20     81/29     87/34
        WB.GENFL        1   FTX            28/45
        WB.GENFP       25   FTX            28/45
        WB.INTFL        1   FTX            28/45
        WB.INTFP       27   FTX            28/45     29/54     30/08     30/13     30/20
        WB.LABL         1   FTX            25/43     28/45     32/41     35/47     48/01     48/54     87/27
        WB.LABP         3   FTX            25/43     32/41     44/40     44/46     48/01     85/48     87/27
                                           28/45     35/47     44/43     44/48     48/54     85/55
        WB.LCML         1   FTX            32/44
        WB.LCMP        21   FTX            32/44     44/32     86/35
        WB.LEVL         1   FTX            28/42     32/44     32/56     47/22     53/28
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        WB.LEVNL        2   FTX            44/29     47/22
        WB.LEVNP       55   FTX            32/55     44/51     45/07     47/02     47/22     71/13     73/52
        WB.LEVP        33   FTX            28/42     32/48     32/51     44/31     47/29     53/28     73/54
                                           32/44     32/50     32/56     47/22     47/33     71/21
        WB.MATL         1   FTX             5/07     70/29
        WB.MATP        36   FTX             5/07     70/29
        WB.MODEL        3   FTX            30/22     36/15     52/08     75/24     78/16     87/14
                                           30/28     47/56     53/26     77/12     81/11
        WB.MODEP        0   FTX            30/24     36/16     53/34
        WB.NLSTL        1   FTX             5/04      7/11     25/43     32/41     48/01
        WB.NLSTP       34   FTX             5/04      7/11     25/43     32/41     48/01
        WB.NVARL        1   FTX             7/11     25/43     28/10     32/41     35/40     35/47     48/01
        WB.NVARP        6   FTX             7/11     25/43     28/10     32/41     35/40     35/47     48/01
        WB.PARML        1   FTX             5/04      7/11     25/43     28/45     32/41     35/40     35/47     48/01
        WB.PARMP       10   FTX             5/04     25/43     32/41     35/47     48/01
                                            7/11     28/45     35/40     35/48
        WB.PNTL        15   FTX            54/48     79/12
        WB.PNTP        57   FTX             8/31     54/47     70/23     79/16
        WB.SAVEL        1   FTX            48/55
        WB.SAVEP       35   FTX            38/04     38/08     38/25     48/55     53/34     54/47     70/35     85/56
        WB.TYPP        31   FTX            30/20
        WB.VARL         1   FTX             5/07      7/28     28/45     30/09     32/56     35/47     70/22     74/10
        WB.VARP         5   FTX             5/07     28/45     32/56     44/48     70/22
                                            7/28     30/09     35/47     44/51     74/10
        WB.VDSP        32   FTX             8/01      8/18     87/16     87/30
        WB.W            1   FTX             5/08     47/21     52/15     70/03     75/41     81/16     86/21
                                           25/39     47/55     53/14     70/48     76/30     81/27     86/21
                                           30/38     48/11     54/23     73/20     78/57     81/35     86/46
                                           36/13     48/53     57/17     74/08     79/37     82/04     87/15
                                           44/30     49/04     61/41     75/22     80/37     85/39     87/46
                                           46/42     52/06     65/24     75/28     81/09     85/47
        WC.BCPP        30   FTX            48/16
        WC.CLENL       22   FTX            36/28     36/32     54/21     54/32     79/38     79/39
        WC.CLENP       36   FTX            36/05     36/39     52/19     70/38     79/38
                                           36/32     36/42     54/27     75/43
        WC.CLIFL       23   FTX            52/16     81/17
        WC.CLIFP       35   FTX            52/17     81/18     83/40
        WC.CTYPL        1   FTX             5/09     36/14     36/32
        WC.CTYPP       35   FTX             5/09     36/14     36/32     36/33     52/19     75/29
        WC.RAL         30   FTX            37/05     40/15     53/46     74/01     74/41
                                           40/12     47/57     70/17     74/13
        WC.RAP          0   FTX            54/27     73/57     74/13     74/41
        WC.RBL         12   FTX            40/12     40/14     40/33     54/22     74/13     74/41     85/41
        WC.RBP         60   FTX            54/22     70/15     73/50     74/41     85/51
                                           54/28     71/07     74/13     79/03
        WC.W            2   FTX             5/08     36/57     54/23     75/28     79/37     83/38
                                           30/38     48/11     70/48     75/41     81/16     85/47
                                           36/13     52/15     74/08     78/57     81/35
        WOF             0   EXTERNAL*       2/49 X
        WO.LCM          0   EXTERNAL*       2/49 X   42/21
        WO.LOM          0   EXTERNAL*       2/49 X   74/30
        XR.TAGP        52   FTX            29/03     31/25     37/13
        Z=BLKS          2   FTX             4/15      4/20     33/57     39/02     42/28     45/31     76/40
                                            4/17     33/52     33/57 S   39/03     42/31     45/36     77/11
                                            4/20     33/53     34/05     39/07     44/02     46/48
        Z=DD            2   FTX             9/40     20/01     56/17
1       DECL - DECLARATIVE PHASE STATEMENTS.                          COMPASS 3.7-871.     24/05/02. 13.16.12.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        Z=EOT           2                  40/44 D   63/22     63/55     66/37     66/38     66/55
                                           63/17     63/40     66/34     66/38     66/52     68/21
        Z=EQS           2                  40/43 D   63/17     65/29     72/10     72/16
                                           56/50     65/25     65/52     72/14
        Z=SYM           3   FTX            37/03     47/19     48/52     77/35     81/26     86/19     87/15
                                           44/26     47/54     69/57     78/13     82/03     86/21     87/19
                                           44/30     47/54     75/21     81/08     85/38     86/21     87/19
        Z=TURP          3   FTX            18/18     20/23     21/22     22/18     22/54     23/30     24/18
                                           18/19     20/27     21/39     22/54     22/55     23/35
        .A         200000                  17/41 D   17/41     20/21 D   20/21     21/26 D   21/26     24/15 D   24/15
        .DAL            1   FTX            31/52     31/53     42/48     42/49     44/55     44/56
        .MI             0   FTX            31/56 F   42/54 F   45/01 F
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      417              IDENT  TYPE 
                        417                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       403 
                                        LITERALS* LOCAL         403        14 
  
  
                                        ENTRY POINTS. 
  
                                        B=TYPE           0+           KW=REAL          5+           TYPA           166+ 
                                        KW=BOOL          0+           KW=DOUB          6+           TYPD           171+ 
                                        KW=LOGI          3+           KW=COMP          7+           KW=IMPL        174+ 
                                        KW=INTE          4+           KW=CHAR         10+           IMP.ER         321+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        DEC       NAT.TYP   E.MDE2    E.TY6     E.TYI5    E.TY10    PDM       T.SYM 
                                        DIR       PARAMC    E.TY      E.TY8     E.TYI6    KW=FUNC   CHARDCL   F.INTF
                                        ASK       REFVAR    E.TY0     E.TY9     E.TYI7    PSF       IDENT 
                                        ERT       SSY       E.TY1     E.TYI     E.TYI8    CAK       MOD 
                                        ESY       STAGE     E.TY2     E.TYI1    E.TYI9    PARNOW    S=ENTRY 
                                        FEC=1ST   STY       E.TY3     E.TYI2    E.VA09    PIX       T=FPI 
                                        FEC.RTN   TLV       E.TY4     E.TYI3    FILL.     ANSI=     T=SYM 
                                        NAT.LEN   E.ANS     E.TY5     E.TYI4    FILL.3    MDERR=    T.FPI 
  
  
  
  
                                                  IDENT  TYPE                                                    TYPE        2
                                         TYPE     SECT   (EXPLICIT / IMPLICIT TYPE DECLARATIONS.)                TYPE        3
  
  
  
  
  
                                        *         IN CONRED                                                      TYPE        5
                                                  EXT    DEC                                                     TYPE        6
                                                                                                                 TYPE        7
                                        *         IN DECL                                                        TYPE        8
                                                  EXT    DIR                                                     TYPE        9
                                                                                                                 TYPE       10
                                        *         IN FEC                                                         TYPE       11
                                                  EXT    ASK,ERT,ESY,FEC=1ST,FEC.RTN,NAT.LEN,NAT.TYP,PARAMC      FC5A225    18
                                                  EXT    REFVAR,SSY,STAGE,STY,TLV                                FC5A225    19
                                                                                                                 TYPE       14
                                        *         IN FERRS                                                       TYPE       15
                                                  EXT    E.ANS,E.MDE2,E.TY,E.TY0,E.TY1,E.TY2,E.TY3,E.TY4,E.TY5   FC5A338    19
                                                  EXT    E.TY6,E.TY8,E.TY9,E.TYI,E.TYI1,E.TYI2,E.TYI3,E.TYI4     FC5A338    20
                                                  EXT    E.TYI5,E.TYI6,E.TYI7,E.TYI8,E.TYI9,E.VA09,FILL.,FILL.3  FC5A338    21
                                                  EXT    E.TY10                                                  FC50972    10
                                                                                                                 TYPE       19
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     2
                                                                      TYPE
  
                                        *         IN HEADER                                                      TYPE       20
                                                  EXT    KW=FUNC,PSF                                             TYPE       21
                                                                                                                 TYPE       25
                                        *         IN LEX                                                         TYPE       26
                                                  EXT    CAK                                                     TYPE       27
                                                                                                                 TYPE       28
                                        *         IN PAR                                                         TYPE       29
                                                  EXT    PARNOW,PIX                                              TYPE       30
                                                                                                                 TYPE       31
                                        *         IN PEM                                                         TYPE       32
                                                  EXT    ANSI=,MDERR=,PDM                                        FC5A338    22
                                                                                                                 TYPE       34
                                        *         IN PUC                                                         TYPE       35
                                                  EXT    CHARDCL,IDENT,MOD,S=ENTRY,T=FPI,T=SYM,T.FPI,T.SYM       FC5A225    22
                                                                                                                 FC5A227    73
                                        *         IN QSKEL/FSKEL                                                 FC5A227    74
                                                  EXT    F.INTF                                                  FC5A227    75
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     3
        EXPLICIT                                                      TYPE-KEY
  
                                        **        TYPE KEY WORDS.                                                TYPE       39
                                        *                                                                        TYPE       40
                                        *         EXIT   TO *TYP* WITH                                           TYPE       41
                                        *                (X4) = APPROPRIATE TYPE INDICATION.                     TYPE       42
                                                                                                                 TYPE       43
                                                                                                                 TYPE       44
             0                                    HEREIF BOOLEAN                                                 TYPE       45
             0  6170000000 X                      ANSI   E.ANS                                                   FC5A262    34
             1  6170000000 X                      MDERR  E.MDE2      ** USE OF BOOLEAN IS MACHINE DEPENDENT      F1037F5   428
             2  76400                             =X4    M.BOOL                                                  TYPE       46
                     0400000017 +                 EQ     TYP                                                     TYPE       47
                                                                                                                 TYPE       48
             3                                    HEREIF LOGICAL                                                 TYPE       49
             3  76410                             =X4    M.LOG                                                   TYPE       50
                     0400000017 +                 EQ     TYP                                                     TYPE       51
                                                                                                                 TYPE       52
             4                                    HEREIF INTEGER                                                 TYPE       53
             4  76411                             =X4    M.INT                                                   TYPE       54
                     0400000017 +                 EQ     TYP                                                     TYPE       55
                                                                                                                 TYPE       56
             5                                    HEREIF REAL                                                    TYPE       57
             5  7140000003                        =X4    M.REAL                                                  TYPE       58
                          0400000017 +            EQ     TYP                                                     TYPE       59
                                                                                                                 TYPE       60
             6                                    HEREIF DOUBLEPRECISION                                         FC5A126    36
             6  7140000004                        =X4    M.DBL                                                   TYPE       63
                          0400000017 +            EQ     TYP                                                     TYPE       64
                                                                                                                 TYPE       65
             7                                    HEREIF COMPLEX                                                 TYPE       66
             7  7140000005                        =X4    M.CPLX                                                  TYPE       67
                          0400000017 +            EQ     TYP                                                     TYPE       68
                                                                                                                 TYPE       69
            10                                    HEREIF CHARACTER                                               TYPE       70
            10  43701                             MX7    1                                                       TYPE       71
                     76610                        =X6    1           DEFAULT CHARACTER LENGTH                    TYPE       72
                          20636                   LX6    WC.CLENP                                                TYPE       73
            11  5170000000 X                      SA7    CHARDCL     INDICATE CHARACTER TYPE PRESENT             TYPE       74
                          5124000000              SA2    B4+                                                     TYPE       75
            12  6222777735                        SB2    X2-O.COMMA                                              TYPE       76
                          0420000000 X            ZR     B2,E.VA09   IF PREMATURE COMMA                          FC50110    13
            13  0100000326 +                      RJ     CCL         CHECK CHARACTER LENGTH                      FC5A257     7
            14  5160000170 +                      SA6    TYPC                                                    TYPE       79
                          7140000006              =X4    M.CHAR                                                  TYPE       80
            15  56140                             SA1    B4                                                      TYPE       81
                     6221777735                   SB2    X1-O.COMMA                                              TYPE       82
            16  0520000017 +                      NZ     B2,TYP      IF NOT OPTIONAL COMMA                       TYPE       83
                          66441                   =B4    B4+1        SKIP OPTIONAL COMMA                         TYPE       84
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     4
        EXPLICIT                                                      TYP 
  
                                        **        TYP -  PROCESS TYPE-LIST.                                      TYPE       86
                                        *                                                                        TYPE       87
                                        *         ENTERED FROM THE VARIOUS *TYPE* PROCESSORS, TO DIGEST THE      TYPE       88
                                        *                VARIABLE-LIST OF THE STATEMENT.                         TYPE       89
                                        *                                                                        TYPE       90
                                        *         ENTRY  (X4) = TYPE TO BE SET.                                  TYPE       91
                                        *                (B4) _ FWA OF THE VARIABLE LIST.                        TYPE       92
                                        *         IF A *FIRST CARD* IS EXPECTED, TYP WILL CHECK FOR A *FUNCTION* TYPE       93
                                        *                STATEMENT, AND EXIT TO THERE, OR TO *PSF*.              TYPE       94
                                        *                                                                        TYPE       95
                                        *         USES   ALL                                                     TYPE       96
                                        *                                                                        TYPE       97
                                        *         CALLS  ASK, DIR, ERT, ESY, ETF, PSF, SSY, TLV                  TYPE       98
                                                                                                                 TYPE       99
                                                                                                                 TYPE      100
            17  5110000000 X             TYP      SA1    STAGE                                                   TYPE      101
                                                  IFNE   TEST,,2                                                 TYPE      102
                                                  SB7    FEC=1ST                                                 TYPE      103
                                                  NZ     B7,"BLOWUP" IF NOT EXPECTED VALUE                       TYPE      104
                          0311000035 +            NZ     X1,TYP4     IF NOT IN *1ST CARD* PROCESSING.            TYPE      105
            20  56140                             SA1    B4                                                      TYPE      106
                     56241                        SA2    B4+B1                                                   TYPE      107
                          21266                   AX2    9*CHAR                                                  TYPE      108
                               20214              LX2    2*CHAR                                                  TYPE      109
            21  5130000167 +                      SA3    TYPB                                                    TYPE      110
                          12212                   BX2    X1+X2                                                   TYPE      111
                               37132              IX1    X3-X2                                                   TYPE      112
            22  0311000032 +                      NZ     X1,TYP2     IF NOT *FUNCTION*                           TYPE      113
                          7214777771              SX1    X4-M.CHAR                                               TYPE      114
            23  0311000025 +                      NZ     X1,TYP1     IF NOT TYPE CHARACTER                       TYPE      115
                          5110000170 +            SA1    TYPC        FETCH CHARACTER LENGTH                      TYPE      116
            24  12441                             BX4    X4+X1       MERGE IN WITH MODE                          TYPE      117
                                                                                                                 FC5A257     8
            25  7160000200               TYP1     CLAS=  X6,MO,(TYP)                                             FC5A116    12
                          12664                   BX6    X6+X4                                                   FC5A116    13
            26  5160000000 X                      SA6    MOD         INDICATE FUNCTION EXPLICITLY TYPED          TYPE      119
                          7150000404 +            SX5    1+=0                                                    TYPE      120
            27  7130000057                        SX3    8*CHAR-1                                                TYPE      121
                          20322                   LX3    KW.LENP                                                 TYPE      122
                               12535              BX5    X3+X5       PSEUDO *SATTR* FOR ASK                      TYPE      123
            30  0100000000 X                      RJ     ASK         ADJUST STATEMENT KEYWORD                    TYPE      124
            31  0400000000 X                      EQ     KW=FUNC                                                 TYPE      125
                                                                                                                 TYPE      126
            32  10644                    TYP2     BX6    X4                                                      TYPE      127
                     5160000166 +                 SA6    TYPA        SAVE TYPE                                   TYPE      128
            33  0100000000 X                      CALL   PSF         PROCESS DUMMY HEADER STATEMENT              TYPE      129
            34  5140000166 +                      SA4    TYPA                                                    TYPE      130
                                                                                                                 FC5A257     9
            35  43601                    TYP4     CLAS=  X6,WB,(TYP)                                             TYPE      131
                                                  LX4    WB.MODEP                                                TYPE      132
                          12646                   BX6    X4+X6       MERGE TYPE-DECL BIT AND MODE                TYPE      133
                               22406              LX4    X6                                                      TYPE      134
            36  5160000166 +                      SA6    TYPA        SAVE TYPE                                   TYPE      135
                          7170000055              =X7    CR.DEC                                                  TYPE      136
            37  5170000000 X                      SA7    REFVAR                                                  TYPE      137
                                                                                                                 FC5A257    10
            40  56240                    TYP5     SA2    B4                                                      FC5A338    23
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     5
        EXPLICIT                                                      TYP 
  
                     43052                        MX0    MAX.VAR*CHAR                                            TYPE      139
                          6272777766              SB7    X2-O.VAR                                                TYPE      140
            41  11602                             BX6    X0*X2                                                   TYPE      141
                     5160000000 X                 SA6    FILL.                                                   TYPE      142
                               20606              LX6    CHAR                                                    TYPE      143
            42  6266777744                        SB6    X6-1R0                                                  TYPE      144
                          0660000000 X            PL     B6,E.VA09   IF FIRST CHARACTER NOT LETTER               FC50110    14
            43  20666                             LX6    -CHAR       RESTORE                                     TYPE      146
                     0570000000 X                 NZ     B7,E.VA09   IF NOT SYMBOL                               FC50110    15
            44  0100000000 X                      CALL   SSY         SCAN SYMBOL TABLE                           TYPE      148
            45  0770000110 +                      MI     B7,TYP10    IF NO ENTRY                                 TYPE      149
                          76771                   =X7    B7-WB.W+WC.W                                            TYPE      150
            46  5170000172 +                      SA7    TYPE        SAVE *WC* INDEX                             TYPE      151
                          43771                   MX7    -WB.MODEL                                               TYPE      152
                               10566              BX5    X6                                                      FC5A225    23
            47  20642                             SBIT   X6,WB.TYPP                                              TYPE      153
                                                  LX7    WB.MODEP                                                TYPE      154
                     20563                        HX5    WB.PARM                                                 FC5A225    24
                          0335000102 +            MI     X5,TYP9     IF TYPING SYMBOLIC CONSTANT                 FC5A225    25
            50  6170000000 X                      SB7    E.TY10      ** NON-CONFIRMING PREVIOUS TYPING           FC50972    11
                          0326000055 +            PL     X6,TYP5.1   IF NOT PREVIOUSLY TYPED                     FC50972    12
            51  5110000166 +                      SA1    TYPA        CURRENT TYPE                                FC50972    13
                          15227                   BX2    -X7*X2      EXTRACT PREVIOUS TYPE                       FC50972    14
                               15117              BX1    -X7*X1                                                  FC50972    15
            52  37112                             IX1    X1-X2                                                   FC50972    16
                     0311000077 +                 NZ     X1,TYP8     IF NON CONFIRMING TYPE                      FC50972    17
            53  7212777771                        SX1    X2-M.CHAR                                               FC50972    18
                          6170000000 X            SB7    E.TY1                                                   FC50972    19
            54  0311000077 +                      NZ     X1,TYP8     IF NOT CHARACTER, CONFIRMING TYPE           FC50972    20
                          0400000100 +            EQ     TYP8.1                                                  FC50972    21
                                                                                                                 FC50972    22
            55  54521                    TYP5.1   =A5    A2-WB.W+WC.W                                            FC50972    23
                     20602                        SBIT   X6,WB.INTFP/WB.TYPP                                     TYPE      157
                          0336000066 +            MI     X6,TYP7     IF INTRINSIC FUNTION                        TYPE      158
            56  11672                             BX6    X7*X2       CLEAR IMPLICIT MODE                         TYPE      159
                     36646                        IX6    X4+X6       ADD IN NEW MODE + TYP BIT                   TYPE      160
                          54620                   SA6    A2          RESET INTO T.SYM                            TYPE      161
                               43323              MX3    WC.CLIFL                                                TYPE      162
            57  20360                             LX3    WC.CLIFL+WC.CLIFP                                       TYPE      163
                     15653                        BX6    -X3*X5      CLEAR CHARACTER LENGTH INFORMATION          TYPE      164
                          54650                   SA6    A5                                                      TYPE      165
                                                                                                                 TYPE      166
                                        *         IF TYPING MAIN ENTRY POINT, ALSO TYPE MOD                      TYPE      167
                                                                                                                 TYPE      168
            60  5110000000 X                      SA1    S=ENTRY                                                 TYPE      169
                          37110                   IX1    X1-X0                                                   TYPE      170
            61  0311000112 +                      NZ     X1,TYP12    IF NOT TYPING THE MAIN ENTRY POINT          TYPE      171
                          5110000000 X            SA1    MOD                                                     TYPE      172
            62  20161                             SBIT   X1,MO.SUBP                                              FC5A338    25
                     0321000064 +                 PL     X1,TYP6     IF NOT SUBROUTINE                           FC5A338    26
            63  6170000000 X                      SB7    E.TY0       **SUBROUTINE MAY NOT BE TYPED               FC5A338    27
                          0400000077 +            EQ     TYP8                                                    FC5A338    28
                                                                                                                 FC5A338    29
            64  20113                    TYP6     LX1    1+MO.SUBP                                               FC5A338    30
                     15113                        BX1    -X3*X1      CLEAR CHARACTER LENGTH INFORMATION          TYPE      173
                                   0              ERRNZ  MO.CLIFL-WC.CLIFL+MO.CLIFP-WC.CLIFP                     TYPE      174
                          15447                   BX4    -X7*X4      EXTRACT THE NEW MODE                        TYPE      175
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     6
        EXPLICIT                                                      TYP 
  
                               11671              BX6    X7*X1       CLEAR IMPLICIT MODE                         TYPE      176
            65  12664                             BX6    X6+X4       ADD IN NEW MODE                             TYPE      177
                                   0              ERRNZ  MO.MODEL-WB.MODEL                                       TYPE      178
                     54610                        SA6    A1          RESET MOD                                   TYPE      179
                          0400000112 +            EQ     TYP12                                                   TYPE      180
                                                                                                                 TYPE      181
            66  10122                    TYP7     BX1    X2                                                      FC5A227    76
                     43363                        MX3    -WB.JPFL                                                FC5A339     6
                          20115                   LX1    -WB.JPFP                                                FC5A227    78
                               15113              BX1    -X3*X1      EXTRACT INTF ORDINAL                        FC5A339     7
            67  5211000000 X                      SA1    X1+F.INTF                                               FC5A227    80
                          20144                   SBIT   X1,IT.GNOP                                              FC5A227    81
            70  0321000073 +                      PL     X1,TYP7.1   IF NOT GENERIC ONLY INTRINSIC               FC5A227    82
                          6170000000 X            WARN   E.TY9                                                   FC5A227    83
            72  0400000112 +                      EQ     TYP12                                                   FC5A227    84
                                                                                                                 FC5A227    85
            73  15327                    TYP7.1   BX3    -X7*X2      EXTRACT INTRINSIC MODE                      FC5A339     8
                     15447                        BX4    -X7*X4      ISOLATE DECLARED MODE                       TYPE      183
                          37343                   IX3    X4-X3                                                   FC5A339     9
            74  0303000112 +                      ZR     X3,TYP12    IF CONFIRMING MODE                          FC5A339    10
                          6170000000 X            WARN   E.TY2                                                   TYPE      186
            76  0400000112 +                      EQ     TYP12                                                   TYPE      187
                                                                                                                 TYPE      188
            77  0100000000 X             TYP8     WARN   B7                                                      FC5A338    31
                                                                                                                 FC50972    24
           100  5110000172 +             TYP8.1   SA1    TYPE                                                    FC50972    25
                          43701                   MX7    1                                                       TYPE      191
                               12771              BX7    X7+X1       INDICATE THIS TYPE NOT USED                 TYPE      192
           101  54710                             SA7    A1                                                      TYPE      193
                     0400000112 +                 EQ     TYP12                                                   TYPE      194
                                                                                                                 FC5A225    26
           102  15327                    TYP9     BX3    -X7*X2                                                  FC5A339    11
                     15447                        BX4    -X7*X4                                                  FC5A225    28
                          37343                   IX3    X4-X3                                                   FC5A339    12
           103  0313000106 +                      NZ     X3,TYP9.1   IF NOT CONFIRMING TYPE                      FC5A339    13
                          0326000112 +            PL     X6,TYP12    IF NOT PREVIOUSLY TYPED                     FC50515     6
           104  7234777771                        SX3    X4-M.CHAR                                               FC50972    26
                          0303000112 +            ZR     X3,TYP12    IF TYPE CHARACTER                           FC50972    27
           105  6170000000 X                      SB7    E.TY1       **PREVIOUSLY TYPED                          FC50515     7
                          0400000077 +            EQ     TYP8        OUTPUT DIAGNOSTIC                           FC50515     8
                                                                                                                 FC50515     9
           106  6170000000 X             TYP9.1   FATAL  E.TY8       **CANT CHANGE TYPE OF PARAMETER             FC50515    10
           107  0400000112 +                      EQ     TYP12                                                   FC5A225    32
                                                                                                                 TYPE      195
           110  10744                    TYP10    BX7    X4          SET TYPE-DECL BIT AND MODE                  TYPE      196
                     43200                        MX2    0           *WC*                                        TYPE      197
                          0100000000 X            ADSYM  A1                                                      TYPE      198
           111  76771                             =X7    B7-WB.W+WC.W                                            TYPE      199
                     5170000172 +                 SA7    TYPE        SAVE *WC* INDEX                             TYPE      200
                                                                                                                 TYPE      201
                                        *         (X0) = SYMTAB ORDINAL OF TYPED ITEM                            FC5A339    14
                                                                                                                 FC5A339    15
           112  56141                    TYP12    SA1    B4+B1                                                   TYPE      202
                     6271777766                   SB7    X1-O.VAR                                                TYPE      203
                               73500              SX5    X0          REMEMBER (X5) = SYMTAB ORDINAL              TYPE      204
           113  0570000115 +                      NZ     B7,TYP14    IF NOT LONG NAME                            TYPE      205
                          0100000000 X            CALL   TLV         TRUNCATE NAME                               TYPE      206
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     7
        EXPLICIT                                                      TYP 
  
           114  56141                             =A1    B4+1                                                    TYPE      207
                                                                                                                 FC5A338    32
           115  7221777740               TYP14    SX2    X1-O.(                                                  TYPE      208
                          0302000120 +            ZR     X2,TYP16    IF DIMENSIONED                              TYPE      209
           116  73650                             SX6    X5          CONSTRUCT ORD FOR XREF                      TYPE      210
                     20652                        LX6    XR.TAGP                                                 TYPE      211
                          7110000055              ADDREF X6,CR.DEC,TYP18                                         TYPE      212
                                                                                                                 TYPE      213
           120  5110000166 +             TYP16    SA1    TYPA                                                    FC5A257    11
                          7211777771              SX1    X1-M.CHAR                                               FC5A257    12
           121  0311000126 +                      NZ     X1,TYP17    IF NOT TYPE CHARACTER                       FC5A257    13
                          5110000000 X            SA1    T.SYM                                                   FC5A257    14
           122  5120000172 +                      SA2    TYPE        *WC* INDEX                                  FC5A257    15
                          43023                   MX0    WC.CLIFL                                                FC5A257    16
                               63220              SB2    X2                                                      FC5A257    17
           123  20060                             LX0    WC.CLIFL+WC.CLIFP                                       FC5A257    18
                     53212                        SA2    X1+B2       *WC*                                        FC5A257    19
                          11602                   BX6    X0*X2                                                   FC5A257    20
                               76110              =X1    1                                                       FC5A257    21
           124  5160000173 +                      SA6    TYPF        SAVE ACROSS DIR CALL                        FC5A257    22
                          15620                   BX6    -X0*X2      CLEAR WC.CLIF                               FC5A257    23
                               20136              LX1    WC.CLENP                                                FC5A257    24
           125  12661                             BX6    X6+X1       DUMMY LENGTH 1 (FOR ERROR RECOVERY)         FC5A257    25
                     54620                        SA6    A2                                                      FC5A257    26
                                                                                                                 FC5A257    27
           126  0100000000 X             TYP17    CALL   DIR         PROCESS DIMENSIONED VARIABLE                FC5A257    28
           127  5110000166 +                      SA1    TYPA                                                    FC5A257    29
                          7211777771              SX1    X1-M.CHAR                                               FC5A257    30
           130  0311000134 +                      NZ     X1,TYP18    IF NOT TYPE CHARACTER                       FC5A257    31
                          5110000000 X            SA1    T.SYM                                                   FC5A257    32
           131  5120000172 +                      SA2    TYPE        *WC* INDEX                                  FC5A257    33
                          43023                   MX0    WC.CLIFL                                                FC5A257    34
                               63220              SB2    X2                                                      FC5A257    35
           132  20060                             LX0    WC.CLIFL+WC.CLIFP                                       FC5A257    36
                     53212                        SA2    X1+B2       *WC*                                        FC5A257    37
                          15620                   BX6    -X0*X2      CLEAR TEMPORARY LENGTH                      FC5A257    38
           133  5110000173 +                      SA1    TYPF        SAVED LENGTH INFORMATION                    FC5A257    39
                          12661                   BX6    X6+X1                                                   FC5A257    40
                               54620              SA6    A2          RESTORE                                     FC5A257    41
                                                                                                                 TYPE      215
           134  5110000166 +             TYP18    SA1    TYPA                                                    TYPE      216
                          6144000001              SB4    B4+1                                                    TYPE      217
           135  7211777771                        SX1    X1-M.CHAR                                               TYPE      218
                          0311000156 +            NZ     X1,TYP20    IF NOT TYPE CHARACTER                       TYPE      219
           136  5110000170 +                      SA1    TYPC        FETCH DEFAULT CHARACTER LENGTH              TYPE      220
                          10611                   BX6    X1                                                      TYPE      221
           137  0100000326 +                      RJ     CCL         CHECK CHARACTER LENGTH                      FC5A257    42
           140  5110000172 +                      SA1    TYPE        FETCH *WC* INDEX                            TYPE      223
                          63710                   SB7    X1                                                      TYPE      225
           141  5130000000 X                      SA3    T.SYM                                                   TYPE      226
                          53437                   SA4    X3+B7       FETCH *WC* ENTRY                            TYPE      227
                               55241              =A2    A4+WB.W-WC.W                                            FC5A225    33
           142  20263                             HX2    WB.PARM                                                 FC5A225    34
                     10022                        BX0    X2          SAVE EXPOSED PARAMETER BIT                  FC50972    28
                          13764                   BX7    X6-X4                                                   FC5A225    36
           143  5120000404 +                      CLAS=  X2,WC,(CLIF)                                            FC5A225    37
                          11727                   BX7    X2*X7                                                   FC5A225    38
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     8
        EXPLICIT                                                      TYP 
  
           144  0331000147 +                      MI     X1,TYP18.1  IF PREVIOUS CONFLICT NOTED                  FC50972    29
                          0320000152 +            PL     X0,TYP19    IF NOT SYMBOLIC CONSTANT                    FC50972    30
           145  6170000000 X                      SB7    E.TY1       ** CONFIRMING TYPE                          FC50972    31
                          0307000151 +            ZR     X7,TYP18.2  IF CONFIRMING TYPE                          FC50972    32
           146  6170000000 X                      SB7    E.TY8       ** NON CONFIRMING TYPE                      FC50972    33
                          0400000151 +            EQ     TYP18.2                                                 FC50972    34
                                                                                                                 FC50972    35
           147  0330000156 +             TYP18.1  MI     X0,TYP20    IF SYMBOLIC CONSTANT, ALREADY DIAGNOSED     FC50972    36
                          6170000000 X            SB7    E.TY1                                                   FC50972    37
           150  0307000151 +                      ZR     X7,TYP18.2  IF CONFIRMING TYPE                          FC50972    38
                          6170000000 X            SB7    E.TY10                                                  FC50972    39
                                                                                                                 FC50972    40
           151  0100000000 X             TYP18.2  FATAL  B7                                                      FC50972    41
                                                                                                                 FC5A225    41
           152  12764                    TYP19    BX7    X6+X4                                                   FC50972    42
                     54740                        SA7    A4          UPDATE                                      TYPE      229
                          21122                   AX1    18                                                      TYPE      230
                               63710              SB7    X1          *WC* INDEX OF VALUE. (IF THIS IS ENTRY)     TYPE      231
           153  0470000156 +                      ZR     B7,TYP20    IF NOT ENTRY.                               FC50972    43
                          53237                   SA2    X3+B7       FETCH VALUE. *WC* ENTRY                     TYPE      233
                               12762              BX7    X6+X2       MERGE IN CHARACTER LENGTH INFORMATION       TYPE      234
           154  54720                             SA7    A2          UPDATE                                      TYPE      235
                     5110000000 X                 SA1    MOD                                                     TYPE      236
                               12761              BX7    X6+X1       MERGE IN CHARACTER LENGTH INFORMATION       TYPE      237
           155  54710                             SA7    A1                                                      TYPE      238
                                                                                                                 TYPE      239
           156  56140                    TYP20    SA1    B4                                                      TYPE      240
                     5140000166 +                 SA4    TYPA        RESTORE (X4) = TYPE CODE                    TYPE      241
                               64411              =B4    A1+1        POINT TO NEXT ITEM                          TYPE      242
           157  7221777735                        SX2    X1-O.COMMA                                              TYPE      243
                          0301000000 X            ZR     X1,FEC.RTN  IF *EOS*                                    TYPE      244
                                   0              ERRNZ  O.EOS                                                   TYPE      245
           160  0302000040 +                      ZR     X2,TYP5     IF *COMMA*                                  FC5A338    34
                          67441                   =B4    B4-1                                                    TYPE      247
           161  6170000000 X                      FATAL  E.TY        ISSUE NON-COMMA ERROR MESSAGE               TYPE      248
           162  66441                             =B4    B4+1                                                    TYPE      249
                     0400000000 X                 EQ     FEC.RTN                                                 TYPE      250
                                                                                                                 TYPE      254
           163  56140                    TYP26    SA1    B4          ATTEMPT TO RESUME SCAN                      TYPE      255
                     6271777735                   SB7    X1-O.COMMA                                              TYPE      256
           164  0470000156 +                      ZR     B7,TYP20    IF *COMMA*                                  TYPE      257
                          66441                   SB4    B4+B1                                                   TYPE      258
           165  0311000163 +                      NZ     X1,TYP26    IF NO *EOS*                                 TYPE      259
                                   0              ERRNZ  O.EOS                                                   TYPE      260
                          0400000000 X            EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...             TYPE      261
                                                                                                                 TYPE      262
           166                     1     TYPA     BSSENT 1           TEMP CELL FOR TYPE                          TYPE      263
           167  06251603241117160011     TYPB     CON    8LFUNCTION+O.VAR                                        TYPE      264
           170                     1     TYPC     BSS    1           CHARACTER LENGTH (WC. FORMAT)               TYPE      265
           171  00000000000000000000     TYPD     CONENT 0           LETTERS SELECTED ON IMPLICIT STATEMENT      TYPE      266
           172                     1     TYPE     BSS    1           *WC* INDEX OF DECLARED SYMBOL               TYPE      267
           173                     1     TYPF     BSS    1           WC.CLIF SAVE ACROSS DIR CALL                FC5A257    43
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE     9
        IMPLICIT                                                      IMP 
  
                                        **        IMP -  PROCESS IMPLICIT TYPE DECLARATION.                      TYPE      270
                                        *                                                                        TYPE      271
                                        *         ENTRY  FROM FRONT END CONTROLLER                               TYPE      272
                                        *                CAN ALSO BE REENTERED IF FURTHER <TYPE-WORDS> ARE FOUND TYPE      273
                                        *                                                                        TYPE      274
                                        *                (B4) _ A <TYPE-WORD> IN *TB*                            TYPE      275
                                        *                                                                        TYPE      276
                                        *         EXIT   TO FRONT END CONTROLLER                                 TYPE      277
                                                                                                                 TYPE      278
                                                                                                                 TYPE      279
           174                                    HEREIF IMPLICIT                                                TYPE      280
                                                                                                                 TYPE      281
           174  0100000363 +             IMP      RJ     CSK         CHECK *IMPLICIT* SUB-KEYWORD                TYPE      282
                                                                                                                 TYPE      283
                                        *                (X4) = TYPE CODE FOR THIS SUB-KEYWORD                   TYPE      284
                                        *                (X6) = CHARACTER LENGTH, IF TYPE CHARACTER              TYPE      285
                                                                                                                 TYPE      286
           175  56540                             SA5    B4                                                      TYPE      287
                     54351                        SA3    A5+B1                                                   TYPE      288
                          6275777740              SB7    X5-O.(                                                  TYPE      289
           176  0570000000 X                      NZ     B7,E.TYI1   MISSING BEGINNING LPAREN                    TYPE      290
                          43700                   MX7    0           CLEAR LETTER MASK FOR THIS TYPE             TYPE      291
                               20614              HX6    WC.CLEN                                                 TYPE      292
           177  20622                             LX6    WC.CLENL                                                TYPE      293
                     5160000170 +                 SA6    TYPC        SAVE CHARACTER LENGTH                       TYPE      294
                               66441              =B4    B4+1                                                    TYPE      295
           200  20636                             LX6    WC.CLENP                                                TYPE      296
                     20636                        SBIT   X6,WC.CTYPP                                             TYPE      297
                          0326000203 +            PL     X6,IMP1     IF NOT ASSUMED LENGTH                       TYPE      298
           201  6170000000 X                      FATAL  E.TYI9                                                  TYPE      299
           202  76610                             =X6    1                                                       TYPE      300
                     54660                        SA6    A6          RESET TO DEFAULT CHARACTER LENGTH           TYPE      301
                                                                                                                 TYPE      302
                                                                                                                 TYPE      303
                                        *         ADD LETTER(S) TO THE RANGE MASK ACCUMULATING.                  TYPE      304
                                        *                (X7) = RANGE MASK -- LETTER BITS ACCUMULATED SO FAR.    TYPE      305
                                                                                                                 TYPE      306
           203  73630                    IMP1     SX6    X3                                                      TYPE      307
                     13636                        BX6    X3-X6                                                   TYPE      308
                          6223777766              SB2    X3-O.VAR                                                TYPE      309
           204  43044                             MX0    MAX.VAR*CHAR-CHAR                                       TYPE      310
                     5160000000 X                 SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE             TYPE      311
                               54661              =A6    A6+1        SAVE FOR POSSIBLE ERROR MESSAGE             TYPE      312
           205  20066                             LX0    -CHAR                                                   TYPE      313
                     0520000000 X                 NZ     B2,E.TYI2   LETTER IS REQUIRED                          TYPE      314
                               11106              BX1    X0*X6                                                   TYPE      315
           206  56241                             =A2    B4+1                                                    TYPE      316
                     66441                        =B4    B4+1                                                    TYPE      317
                          0301000212 +            ZR     X1,IMP3     IF SINGLE CHARACTER ONLY                    TYPE      318
           207  43506                             MX5    CHAR                                                    TYPE      319
                     5110000000 X                 SA1    FILL.                                                   TYPE      320
                               11615              BX6    X1*X5                                                   TYPE      321
           210  5160000000 X                      SA6    FILL.3                                                  TYPE      322
                          6170000000 X            WARN   E.TYI3                                                  TYPE      323
                                                                                                                 FC5A257    44
           212  21366                    IMP3     AX3    -CHAR                                                   TYPE      324
                     6272777762                   SB7    X2-O.MIN                                                TYPE      325
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    10
        IMPLICIT                                                      IMP 
  
                               13555              BX5    0                                                       TYPE      326
           213  0570000227 +                      NZ     B7,IMP10    IF NOT A RANGE                              TYPE      327
                          56541                   =A5    B4+1                                                    TYPE      328
                               66441              =B4    B4+1                                                    TYPE      329
           214  73650                             SX6    X5                                                      TYPE      330
                     13656                        BX6    X5-X6                                                   TYPE      331
                          6225777766              SB2    X5-O.VAR                                                TYPE      332
           215  11105                             BX1    X0*X5                                                   TYPE      333
                     5160000000 X                 SA6    FILL.       SAVE FOR POSSIBLE ERROR MESSAGE             TYPE      334
           216  0520000000 X                      NZ     B2,E.TYI2   LETTER IS REQUIRED                          TYPE      335
                          21566                   AX5    -CHAR                                                   TYPE      336
           217  0301000222 +                      ZR     X1,IMP5     IF SINGLE CHARACTER                         TYPE      337
                          5110000000 X            SA1    FILL.                                                   TYPE      338
           220  43006                             MX0    CHAR                                                    TYPE      339
                     11601                        BX6    X0*X1                                                   TYPE      340
                          5160000000 X            SA6    FILL.3                                                  TYPE      341
           221  6170000000 X                      WARN   E.TYI3                                                  TYPE      342
                                                                                                                 FC5A257    45
           222  37553                    IMP5     IX5    X5-X3                                                   TYPE      343
                     56241                        =A2    B4+1                                                    TYPE      344
                          66441                   =B4    B4+1                                                    TYPE      345
           223  0315000225 +                      NZ     X5,IMP7                                                 TYPE      346
                          6170000000 X            WARN   E.TYI5      LAST = FIRST, WARN                          TYPE      347
                                                                                                                 FC5A257    46
           225  0325000227 +             IMP7     PL     X5,IMP10                                                TYPE      348
                          13555                   BX5    0           TRUNCATE RANGE TO 1ST LETTER ONLY           TYPE      349
           226  6170000000 X                      FATAL  E.TYI4      LAST .GT. FIRST                             TYPE      350
                                                                                                                 FC5A257    47
           227  43001                    IMP10    MX0    1                                                       TYPE      351
                     63750                        SB7    X5                                                      TYPE      352
                          6233777703              SB3    X3-60                                                   TYPE      353
           230  23070                             AX0    B7          MASK AS WIDE AS RANGE                       TYPE      354
                     6222777735                   SB2    X2-O.COMMA                                              TYPE      355
                               23030              AX0    B3          POSITION MASK WHERE RANGE STARTS            TYPE      356
           231  12707                             BX7    X0+X7       ACCUMULATE MASK FOR THIS TYPE               TYPE      357
                     6272777737                   SB7    X2-O.)                                                  TYPE      358
                               56341              =A3    B4+1                                                    TYPE      359
           232  66441                             =B4    B4+1                                                    TYPE      360
                     0420000203 +                 ZR     B2,IMP1     IF *COMMA*                                  TYPE      361
                                                                                                                 TYPE      362
                                                                                                                 TYPE      363
                                        **        CURRENT <TYPE> RANGE HAS BEEN ASSIMILATED.                     TYPE      364
                                        *         ENTRY  (X4) = <TYPE>.                                          TYPE      365
                                        *                (X7) = ITS NEW LETTER BITS..                            TYPE      366
                                        *         EXIT   TO *IMP.EOS* IF STATEMENT IS ENDED, OR                  TYPE      367
                                        *                TO *IMP.KEY* TO BEGIN PROCESSING THE NEXT <TYPE-WORD>.  TYPE      368
                                        *         NOW WE PROCEED TO ALTER NATURAL TYPE TABLE AS REQUESTED.       TYPE      369
                                                                                                                 TYPE      370
           233  6120000006                        SB2    N.TYPE-1                                                TYPE      371
                          5110000171 +            SA1    TYPD                                                    TYPE      372
           234  12617                             BX6    X1+X7       SET SELECTED LETTERS                        TYPE      373
                     11571                        BX5    X7*X1                                                   TYPE      374
                          54610                   SA6    A1                                                      TYPE      375
           235  0305000240 +                      ZR     X5,IMP15    IF LETTERS NOT PREVIOUSLY MENTIONED         TYPE      376
                          66370                   SB3    B7          SAVE B7                                     TYPE      377
           236  6170000000 X                      WARN   E.TYI8                                                  TYPE      378
           237  66730                             SB7    B3          RESTORE B7                                  TYPE      379
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    11
        IMPLICIT                                                      IMP 
  
                     13775                        BX7    X7-X5       REMOVE BAD LETTERS                          TYPE      380
                                                                                                                 FC5A257    48
           240  5112000000 X             IMP15    SA1    B2+NAT.TYP                                              TYPE      381
                          67221                   SB2    B2-B1                                                   TYPE      382
                               15617              BX6    -X7*X1      CLEAR SELECTED LETTERS FOR ALL TYPES        TYPE      383
           241  54610                             SA6    A1                                                      TYPE      384
                     0620000240 +                 PL     B2,IMP15    LOOP THROUGH ALL TYPES                      TYPE      385
           242  5214000000 X                      SA1    X4+NAT.TYP                                              TYPE      386
                          12617                   BX6    X1+X7       SET SELECTED LETTERS FOR SPECIFIED TYPES    TYPE      387
                               54610              SA6    A1                                                      TYPE      388
           243  7244777771                        SX4    X4-M.CHAR                                               TYPE      390
                          0314000256 +            NZ     X4,IMP19    IF NOT TYPE CHARACTER                       TYPE      391
           244  5110000170 +                      SA1    TYPC                                                    TYPE      392
                          6120000033              SB2    26+1                                                    TYPE      393
           245  66300                             =B3    0                                                       TYPE      394
                     63610                        SB6    X1                                                      TYPE      395
                                                                                                                 FC5A257    49
           246  0327000254 +             IMP16    PL     X7,IMP18    IF LETTER NOT SELECTED                      TYPE      396
                          7123777776              SX2    B3-1                                                    TYPE      397
           247  43036                             MX0    30                                                      TYPE      398
                     20273                        LX2    -1                                                      TYPE      399
                          76660                   SX6    B6                                                      TYPE      400
           250  5252000000 X                      SA5    X2+NAT.LEN  FETCH CHARACTER LENGTH PAIR                 TYPE      401
                          0332000253 +            MI     X2,IMP17    IF LOWER HALF                               TYPE      402
           251  15550                             BX5    -X0*X5      CLEAR UPPER HALF                            TYPE      403
                     20636                        LX6    30          CHARACTER LENGTH TO UPPER                   TYPE      404
                          12665                   BX6    X6+X5       NEW LENGTH PAIR                             TYPE      405
                               54650              SA6    A5                                                      TYPE      406
           252  0400000254 +                      EQ     IMP18                                                   TYPE      407
                                                                                                                 TYPE      408
           253  11505                    IMP17    BX5    X0*X5       CLEAR LOWER HALF                            TYPE      409
                     12656                        BX6    X5+X6       NEW LENGTH PAIR                             TYPE      410
                          54650                   SA6    A5                                                      TYPE      411
                                                                                                                 TYPE      412
           254  67221                    IMP18    =B2    B2-1                                                    TYPE      413
                     66331                        =B3    B3+1                                                    TYPE      414
                          20701                   LX7    1                                                       TYPE      415
           255  0520000246 +                      NZ     B2,IMP16    IF MORE TO CHECK                            TYPE      416
                                                                                                                 TYPE      417
           256  0570000000 X             IMP19    NZ     B7,E.TYI6   IF MISSING ENDING *)*                       TYPE      418
                          6233777735              SB3    X3-O.COMMA                                              TYPE      419
           257  66441                             =B4    B4+1                                                    TYPE      420
                     0303000262 +                 ZR     X3,IMP20    IF *EOS*                                    TYPE      421
           260  0430000174 +                      ZR     B3,IMP      IF MORE TYPES TO SET                        TYPE      422
                          64430                   SB4    A3                                                      TYPE      423
           261  0400000000 X                      EQ     E.TYI7                                                  TYPE      424
                                                                                                                 TYPE      425
                                                                                                                 TYPE      426
                                        **        HERE WHEN STATEMENT FULLY DIGESTED.  ANY FUNCTION NAME AND     TYPE      427
                                        *         FORMAL PARAMETERS ARE GIVEN THE PROPER IMPLICIT TYPE, AS PER   TYPE      428
                                        *         THE CURRENT DECLARATION.                                       TYPE      429
                                                                                                                 TYPE      430
           262  5130000000 X             IMP20    SA3    MOD                                                     TYPE      431
                          5110000000 X            SA1    IDENT                                                   TYPE      432
           263  5150000000 X                      SA5    T.SYM                                                   TYPE      433
                          43071                   MX0    -WB.MODEL                                               TYPE      434
                               20360              SBIT   X3,MO.FUNP                                              TYPE      435
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    12
        IMPLICIT                                                      IMP 
  
           264  0323000275 +                      PL     X3,IMP25    IF NOT FUNCTION SUBPROGRAM                  TYPE      436
                          20304                   SBIT   X3,MO.TYPP/MO.FUNP                                      TYPE      437
           265  0333000275 +                      MI     X3,IMP25    IF EXPLICITLY TYPED                         TYPE      438
                          10611                   BX6    X1                                                      TYPE      439
                               20310              LX3    MO.TYPP+1   RESTORE X3                                  TYPE      440
           266  0100000000 X                      RJ     STY         GET (NEW) IMPLICIT TYPE                     TYPE      441
           267  20214                             HX2    WC.CLEN                                                 TYPE      442
                     20222                        LX2    WC.CLENL                                                TYPE      443
                          63320                   SB3    X2          SAVE CHARACTER LENGTH                       TYPE      444
           270  5120000000 X                      SA2    S=ENTRY                                                 TYPE      445
                          63220                   SB2    X2                                                      TYPE      446
                               76622              SX6    B2+B2                                                   TYPE      447
           271  73262                             SX2    B2+X6       (X2) = INDEX = Z=SYM * ORDINAL              TYPE      448
                                   0              ERRNZ  3-Z=SYM                                                 TYPE      449
                     36225                        IX2    X2+X5                                                   TYPE      450
                          53221                   =A2    X2+WB.W                                                 TYPE      451
                               11202              BX2    X0*X2       DELETE FORMER MODE                          TYPE      452
           272  36721                             IX7    X2+X1       INSERT NEW MODE                             TYPE      453
                     54720                        SA7    A2          RESET (ENTRY.-TAG)                          TYPE      454
                          76630                   SX6    B3          CHARACTER LENGTH                            TYPE      455
                               20636              LX6    WC.CLENP                                                TYPE      456
           273  54671                             =A6    A7-WB.W+WC.W                                            TYPE      457
                     11303                        BX3    X0*X3       DELETE FORMER MODE                          TYPE      458
                          36331                   IX3    X3+X1       INSERT NEW MODE                             TYPE      459
                               12663              BX6    X6+X3       MERGE WITH CHARACTER LENGTH                 TYPE      460
           274  54630                             SA6    A3          UPDATE (MOD)                                TYPE      461
                                                                                                                 TYPE      462
           275  5120000000 X             IMP25    SA2    T=FPI                                                   TYPE      463
                          0302000305 +            ZR     X2,IMP30    IF NO FORMAL PARAMETERS                     FC5A225    43
           276  5110000000 X                      SA1    T.FPI                                                   TYPE      465
                          43352                   MX3    -FP.PNTL                                                TYPE      466
                               53410              SA4    X1          INITIALIZE (T.FPI) FETCH                    TYPE      467
           277  63350                             =B3    X5+WA.W                                                 TYPE      468
                     63620                        SB6    X2          (B6) = NUMBER OF FORMALS                    TYPE      469
                                                                                                                 TYPE      470
                                         IMP27    LX4    -FP.PNTP                                                TYPE      471
           300  15243                             BX2    -X3*X4      (X2) = SYMORD OF FP                         TYPE      472
                     22612                        LX6    X2,B1                                                   TYPE      473
                          36762                   IX7    X6+X2       (X7) = SYMTAB INDEX                         TYPE      474
                                   0              ERRNZ  3-Z=SYM                                                 TYPE      475
                               53573              SA5    B3+X7       FETCH (X5) = (WA.)                          TYPE      476
                                                  HX5    WA.SYM                                                  TYPE      477
           301  73250                             SX2    X5                                                      TYPE      478
                                   0              ERRNZ  18+WA.SYML-60                                           TYPE      479
                     13652                        BX6    X5-X2       ISOLATE NAME = (WA.SYM)                     TYPE      480
                          0100000000 X            CALL   STY         GET (NEW) IMPLICIT TYPE                     TYPE      481
           302  54551                             =A5    A5-WA.W+WB.W                                            TYPE      482
                     22702                        LX7    X2          CHARACTER LENGTH                            TYPE      483
                          54441                   SA4    A4+B1       FETCH NEXT (T.FPI)                          TYPE      484
                               11205              BX2    X0*X5       CLEAR FORMER TYPE                           TYPE      485
           303  36612                             IX6    X1+X2                                                   TYPE      486
                     54751                        =A7    A5-WB.W+WC.W                                            TYPE      487
                          67661                   SB6    B6-B1                                                   TYPE      488
                               54650              SA6    A5                                                      TYPE      489
           304  0706000300 +                      GT     B6,IMP27    IF TABLE NOT EXHAUSTED                      TYPE      490
                                                                                                                 FC5A225    44
                                        **        ANY PARAMETERS (SYMBOLIC CONSTANTS) WHICH MAY HAVE BEEN        FC5A225    45
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    13
        IMPLICIT                                                      IMP 
  
                                        *         AFFECTED BY THE CURRENT IMPLICIT STATEMENT ARE DIAGNOSED.      FC5A225    46
                                                                                                                 FC5A225    47
           305  5110000000 X             IMP30    SA1    PARAMC      PARAMETER (SYMBOLIC CONSTANT) COUNT         FC5A225    48
                          0301000000 X            ZR     X1,FEC.RTN  IF NONE                                     FC5A225    49
           306  5150000000 X                      SA5    T.SYM                                                   FC5A225    50
                          5120000000 X            SA2    T=SYM                                                   FC5A225    51
           307  6222000001                        SB2    X2+WB.W                                                 FC5A225    52
                          63310                   SB3    X1          PARAMETER COUNT                             FC5A225    53
                               43071              MX0    -WB.MODEL                                               FC5A225    54
                                                                                                                 FC5A225    55
           310  6122777774               IMP31    SB2    B2-Z=SYM                                                FC5A225    56
                          0430000000 X            ZR     B3,FEC.RTN  IF ALL PARAMETERS CHECKED                   FC5A225    57
           311  53452                             SA4    X5+B2       FETCH WB.W                                  FC5A225    58
                                                  LX4    -WB.MODEP                                               FC5A225    59
                     15140                        BX1    -X0*X4                                                  FC5A225    60
                          63610                   SB6    X1                                                      FC5A225    61
                                                  LX4    WB.MODEP                                                FC5A225    62
                               67606              SB6    -B6         FOR CONFIRMING TYPE TEST                    FC5A225    63
           312  20470                             SBIT   X4,WB.LABP                                              FC5A225    64
                     0334000310 +                 MI     X4,IMP31    IF STATEMENT LABEL                          FC5A225    65
                               20467              SBIT   X4,WB.PARMP/WB.LABP                                     FC5A225    66
           313  0324000310 +                      PL     X4,IMP31    IF NOT PARAMETER                            FC5A225    67
                          55141                   =A1    A4-WB.W+WA.W                                            FC5A225    68
                               67331              =B3    B3-1                                                    FC5A225    69
           314  43652                             MX6    WA.SYML                                                 FC5A225    70
                     11661                        BX6    X6*X1                                                   FC5A225    71
                          5160000000 X            SA6    FILL.                                                   FC5A225    72
           315  0100000000 X                      CALL   STY         CHECK IMPLICIT TYPE                         FC5A225    73
           316  73116                             SX1    X1+B6                                                   FC5A225    74
                     0301000310 +                 ZR     X1,IMP31    IF TYPE NOT MODIFIED                        FC5A225    75
           317  6170000000 X                      FATAL  E.TY8                                                   FC5A225    76
           320  0400000310 +                      EQ     IMP31       CONTINUE...                                 FC5A225    77
                                                                                                                 TYPE      492
                                                                                                                 TYPE      493
                                        **        IMP.ER - RETURN HERE FROM ERRORS TO ATTEMPT RECOVERY.          TYPE      494
                                        *                LOOK FOR  ")," TO RESUME PROCESSING.                    TYPE      495
                                        *         ENTRY  (B4) _ CURRENT *SB* POSITION.                           TYPE      496
                                        *                                                                        TYPE      497
                                        *                                                                        TYPE      498
                                        *         EXIT   TO *IMP* IF A ")," IS FOUND, OR                         TYPE      499
                                        *                TO *IMP20* IF RECOVERY IS NOT SUCCESSFUL.               TYPE      500
                                                                                                                 TYPE      501
           321                           IMP.ER   BSSENT 0           ...RETURN FROM ERROR PROCESSING             TYPE      502
           321  56141                             SA1    B4+B1                                                   TYPE      503
                     66441                        SB4    B4+B1                                                   TYPE      504
                          6221777737              SB2    X1-O.)                                                  TYPE      505
           322  0301000262 +                      ZR     X1,IMP20    IF *EOS*                                    TYPE      506
                          0520000321 +            NZ     B2,IMP.ER   IF NO RPAREN                                TYPE      507
           323  56141                             SA1    B4+B1                                                   TYPE      508
                     66441                        SB4    B4+B1                                                   TYPE      509
                          6221777735              SB2    X1-O.COMMA                                              TYPE      510
           324  0301000262 +                      ZR     X1,IMP20    IF *EOS*                                    TYPE      511
                          0520000321 +            NZ     B2,IMP.ER   IF NO COMMA                                 TYPE      512
           325  66441                             SB4    B4+B1       FOUND  COMMA FOLLOWED BY COMMA              TYPE      513
                     0400000174 +                 EQ     IMP         TRY ANOTHER KEYWORD                         TYPE      514
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    14
        SUBROUTINES                                                   CCL 
  
                                        **        CCL -  CHECK CHARACTER LENGTH                                  TYPE      517
                                        *                                                                        TYPE      518
                                        *         ENTRY  (B4) _ * OF CHARACTER LENGTH SPECIFIER (IF PRESENT)     TYPE      519
                                        *                (X6) = DEFAULT CHARACTER LENGTH (WC. FORMAT)            TYPE      520
                                        *                                                                        TYPE      521
                                        *         EXIT   IF CHARACTER LENGTH SPECIFICATION PRESENT               TYPE      522
                                        *                                                                        TYPE      523
                                        *                (B4) _ TOKEN FOLLOWING LENGTH SPECIFICATION             TYPE      524
                                        *                (X6) = LENGTH SPECIFIED (WC. FORMAT)                    TYPE      525
                                        *                                                                        TYPE      526
                                        *                IF CHARACTER LENGTH SPECIFICATION ABSENT                TYPE      527
                                        *                                                                        TYPE      528
                                        *                (B4) _ UNCHANGED                                        TYPE      529
                                        *                (X6) = UNCHANGED                                        TYPE      530
                                        *                                                                        TYPE      531
                                        *         USES   ALL                                                     TYPE      532
                                        *                                                                        TYPE      533
                                        *         CALLS  DEC, PAR                                                TYPE      534
                                                                                                                 TYPE      535
                                                                                                                 TYPE      536
           326  0400400326 +             CCL      SUBR               ENTRY/EXIT                                  TYPE      537
           327  5114000000                        SA1    B4+                                                     FC50592     6
                          6271777761              SB7    X1-O.STAR                                               TYPE      539
           330  0570000326 +                      NZ     B7,EXIT.    IF NO CHARACTER LENGTH SPECIFICATION        TYPE      540
                          56141                   =A1    B4+1                                                    TYPE      541
                               66441              =B4    B4+1                                                    TYPE      542
           331  6231777740                        SB3    X1-O.LP                                                 TYPE      543
                          6221777772              SB2    X1-O.CONS                                               TYPE      544
           332  0430000342 +                      ZR     B3,CCL2     IF *(*                                      TYPE      545
                          6170000000 X            SB7    E.TY3                                                   TYPE      546
           333  0520000356 +                      NZ     B2,CCL4     IF NOT CONSTANT                             TYPE      547
                          7160000001              SX6    PM=ICE      INDICATE 3D0 NOT CONSTANT                   FC5A156    11
           334  5160000000 X                      SA6    PARNOW                                                  TYPE      549
                          0100000000 X            CALL   DEC                                                     TYPE      550
           335  7211777775                        SX1    X1-M.INT                                                TYPE      551
                          6170000000 X            SB7    E.TY3                                                   TYPE      552
           336  0311000356 +                      NZ     X1,CCL4     IF NOT INTEGER                              TYPE      553
                          6170000000 X            SB7    E.TY6                                                   TYPE      554
           337  0306000356 +                      ZR     X6,CCL4     IF ZERO                                     TYPE      555
                          7226677777              SX2    X6-MAX.CL-1                                             TYPE      556
           340  6170000000 X                      SB7    E.TY4                                                   TYPE      557
                          0322000356 +            PL     X2,CCL4     IF LENGTH SPECIFIER TOO LARGE               TYPE      558
           341  20636                             LX6    WC.CLENP                                                TYPE      559
                     66441                        =B4    B4+1                                                    TYPE      560
                          0400000326 +            EQ     EXIT.                                                   TYPE      561
                                                                                                                 TYPE      562
           342  56141                    CCL2     =A1    B4+1                                                    TYPE      563
                     66441                        =B4    B4+1                                                    TYPE      564
                          6221777761              SB2    X1-O.STAR                                               TYPE      565
           343  0520000347 +                      NZ     B2,CCL3     IF NOT ASSUMED LENGTH                       TYPE      566
                          43601                   CLAS=  X6,WC,(CTYP)                                            TYPE      567
           344  56141                             =A1    B4+1                                                    TYPE      568
                     66441                        =B4    B4+1                                                    TYPE      569
                          6221777737              SB2    X1-O.RP                                                 TYPE      570
           345  66441                             =B4    B4+1                                                    TYPE      571
                     0420000326 +                 ZR     B2,EXIT.    IF NO ERROR                                 TYPE      572
                               67441              =B4    B4-1                                                    TYPE      573
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    15
        SUBROUTINES                                                   CCL 
  
           346  0400000000 X                      EQ     E.TY5                                                   TYPE      574
                                                                                                                 TYPE      575
           347  0100000000 X             CCL3     CALL   PIX         PARSE INTEGER CONSTANT EXPRESSION           TYPE      576
           350  56140                             SA1    B4                                                      TYPE      577
                     6221777737                   SB2    X1-O.RP                                                 TYPE      578
           351  0520000000 X                      NZ     B2,E.TY5    IF NOT RIGHT PAREN FOLLOWING LENGTH         TYPE      579
                          6170000000 X            SB7    E.TY3                                                   TYPE      580
           352  0336000356 +                      MI     X6,CCL4     IF NEGATIVE CONSTANT                        TYPE      581
                          6170000000 X            SB7    E.TY6                                                   TYPE      582
           353  0306000356 +                      ZR     X6,CCL4     IF ZERO                                     TYPE      583
                          7226677777              SX2    X6-MAX.CL-1                                             TYPE      584
           354  6170000000 X                      SB7    E.TY4                                                   TYPE      585
                          66441                   SB4    B4+B1       ADVANCE TB POINTER TO SEPARATOR             TYPE      586
                               20636              LX6    WC.CLENP                                                TYPE      587
           355  0332000326 +                      MI     X2,EXIT.    IF LENGTH SPECIFIER NOT TOO LARGE           TYPE      588
                                                                                                                 TYPE      589
           356  0100000000 X             CCL4     FATAL  B7                                                      TYPE      590
           357  5114000000                        SA1    B4+                                                     FC50592     7
                          76610                   =X6    1           DEFAULT LENGTH                              TYPE      591
                               20636              LX6    WC.CLENP                                                TYPE      592
           360  0301000326 +                      ZR     X1,EXIT.    IF *EOS*                                    FC50592     8
                          6271777735              SB7    X1-O.COMMA                                              FC50592     9
           361  0470000326 +                      ZR     B7,EXIT.    IF *,*                                      FC50592    10
                          6144000001              SB4    B4+1                                                    FC50592    11
           362  0400000326 +                      EQ     EXIT.                                                   TYPE      594
  
  
  
  
                                        **        CSK - CHECK SUB-KEYWORD.                                       TYPE      638
                                        *                                                                        TYPE      639
                                        *                                                                        TYPE      640
                                        *         THIS ROUTINE CHECKS A SUB-KEYWORD ON AN *IMPLICIT*             TYPE      641
                                        *         STATEMENT AND RETURNS A SUB-KEYWORD TYPE CODE.                 TYPE      642
                                        *                                                                        TYPE      643
                                        *         ENTRY  (B4) = ADDR OF SUB-KEYWORD IN *T.TB*.                   TYPE      644
                                        *                                                                        TYPE      645
                                        *         EXIT   (B4) = ADDR OF TOKEN FOLLOWING SUB-KEYWORD.             TYPE      646
                                        *                (X4) = SUB-KEYWORD TYPE CODE.                           TYPE      647
                                        *                (X6) = CHARACTER LENGTH (WC. FORMAT, IF TYPE CHARACTER) TYPE      648
                                        *                                                                        TYPE      649
                                        *         USES   ALL                                                     TYPE      650
                                        *                                                                        TYPE      651
                                        *         CALLS  CAK, CCL, CDP                                           TYPE      652
                                                                                                                 TYPE      653
                                                                                                                 TYPE      654
           363  0400400363 +             CSK      SUBR               ** ENTRY/EXIT **                            TYPE      655
           364  6160000374 +                      SB6    FW.TYSK     (B6) = FWA OF *TYPE* SUB-KEYWORD TABLE      TYPE      656
                          6170000007              SB7    L.TYSK      (B7) = LEN OF *TYPE* SUB-KEYWORD TABLE      TYPE      657
           365  0100000000 X                      CALL   CAK         CHECK FOR AND ADJUST KEYWORD                TYPE      658
           366  0470000000 X                      ZR     B7,E.TYI    IF NO SUB-KEYWORD                           TYPE      659
                          0770000000 X            MI     B7,E.TYI    IF MISSPELLED KEYWORD                       TYPE      660
           367  20622                             LX6    0-KW.INFOP                                              TYPE      662
                     73460                        SX4    X6                                                      FC5A126    37
                                   0              ERRNZ  18-KW.INFOL                                             TYPE      675
                          43600                   MX6    0           RETURN (X6) = 0 WHEN NOT CHAR               TYPE      676
           370  7274777771                        SX7    X4-M.CHAR                                               TYPE      677
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    16
        SUBROUTINES                                                   CSK 
  
                          0317000363 +            NZ     X7,EXIT.    IF NOT CHARACTER                            TYPE      678
           371  43701                             MX7    1                                                       TYPE      679
                     5170000000 X                 SA7    CHARDCL                                                 TYPE      680
                               76610              =X6    1           DEFAULT CHARACTER LENGTH                    TYPE      681
           372  20636                             LX6    WC.CLENP                                                TYPE      682
                     0100000326 +                 RJ     CCL         CHECK CHARACTER LENGTH                      FC5A257    50
           373  7140000006                        =X4    M.CHAR      RESTORE (X4) = CHAR                         TYPE      684
                          0400000363 +            EQ     EXIT.                                                   TYPE      685
  
  
  
  
                                        **        FW.TYSK - *TYPE/IMPLICIT* SUB-KEYWORD TABLE.                   TYPE      690
                                        *                                                                        TYPE      691
                                        *                                                                        TYPE      692
                                                                                                                 TYPE      693
           374                           FW.TYSK  BSS    0           FWA OF *IMPLICIT* SUB-KEYWORD TABLE         TYPE      694
           374  00000000000052000405 +            SUBKEY BOOLEAN,M.BOOL                                          TYPE      695
           375  00000600000066000406 +            SUBKEY CHARACTER,M.CHAR                                        TYPE      696
           376  00000500000052000410 +            SUBKEY COMPLEX,M.CPLX                                          TYPE      697
           377  00000400000132000411 +            SUBKEY DOUBLEPRECISION,M.DBL                                   FC5A126    38
           400  00000200000052000414 +            SUBKEY INTEGER,M.INT                                           TYPE      699
           401  00000100000052000415 +            SUBKEY LOGICAL,M.LOG                                           TYPE      700
           402  00000300000030000416 +            SUBKEY REAL,M.REAL                                             TYPE      701
                                   7     L.TYSK   =      *-FW.TYSK                                               TYPE      702
  
  
  
  
                                                  LIST   D                                                       TYPE      704
  
                                        CONTENT OF LITERALS BLOCK.
  
           403  00000000000000000000
           404  00007777774000000000      ;;;5
           405  02171714050116000000    BOOLEAN 
           406  03100122010324000000    CHARACT 
           407  05220000000000000000    ER
           410  03171520140530000000    COMPLEX 
           411  04172502140520000000    DOUBLEP 
           412  22050311231117000000    RECISIO 
           413  16000000000000000000    N 
           414  11162405070522000000    INTEGER 
           415  14170711030114000000    LOGICAL 
           416  22050114000000000000    REAL
  
           417                                    END                                                            TYPE      705
  
                             74000B CM  STORAGE USED             2106 STATEMENTS     1470 SYMBOLS      000014 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.118 SECONDS         594 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI=           0   EXTERNAL*       2/11 X    3/08
        ASK             0   EXTERNAL*       1/49 X    4/41
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    17
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        CAK             0   EXTERNAL*       2/05 X   15/50
        CCL           326   PROGRAM*        3/41      7/47     14/21 L   16/06
        CCL2          342   PROGRAM*       14/29     14/47 L
        CCL3          347   PROGRAM*       14/50     15/03 L
        CCL4          356   PROGRAM*       14/31     14/37     14/39     14/42     15/08     15/10     15/17 L
        CHAR            6   FTX             4/23      5/01      9/41      9/56     16/18     16/21     16/24
                                            4/24      5/05      9/44     10/11     16/19     16/22
                                            4/38      5/08      9/50     10/14     16/20     16/23
        CHARDCL         0   EXTERNAL*       2/14 X    3/37 S   16/03 S
        CR.DEC         55   FTX             4/54      7/07
        CSK           363   PROGRAM*        9/13     15/47 L
        DEC             0   EXTERNAL*       1/43 X   14/34
        DIR             0   EXTERNAL*       1/46 X    7/26
        ERT             0   EXTERNAL*       1/49 X    7/07
        ESY             0   EXTERNAL*       1/49 X    6/47
        E.ANS           0   EXTERNAL*       1/53 X    3/08
        E.MDE2          0   EXTERNAL*       1/53 X    3/09
        E.TY            0   EXTERNAL*       1/53 X    8/35      8/35
        E.TYI           0   EXTERNAL*       1/54 X   15/51     15/52
        E.TYI1          0   EXTERNAL*       1/54 X    9/21
        E.TYI2          0   EXTERNAL*       1/54 X    9/45     10/10
        E.TYI3          0   EXTERNAL*       1/54 X    9/54     10/17
        E.TYI4          0   EXTERNAL*       1/54 X   10/27     10/27
        E.TYI5          0   EXTERNAL*       1/55 X   10/23
        E.TYI6          0   EXTERNAL*       1/55 X   11/40
        E.TYI7          0   EXTERNAL*       1/55 X   11/46
        E.TYI8          0   EXTERNAL*       1/55 X   10/56     10/56
        E.TYI9          0   EXTERNAL*       1/55 X    9/30
        E.TY0           0   EXTERNAL*       1/53 X    5/51
        E.TY1           0   EXTERNAL*       1/53 X    5/28      6/39      8/03      8/09
        E.TY10          0   EXTERNAL*       1/56 X    5/20      8/11
        E.TY2           0   EXTERNAL*       1/53 X    6/21
        E.TY3           0   EXTERNAL*       1/53 X   14/30     14/36     15/07
        E.TY4           0   EXTERNAL*       1/53 X   14/41     15/12
        E.TY5           0   EXTERNAL*       1/53 X   15/01     15/06
        E.TY6           0   EXTERNAL*       1/54 X   14/38     15/09
        E.TY8           0   EXTERNAL*       1/54 X    6/42      8/05     13/31     13/31
        E.TY9           0   EXTERNAL*       1/54 X    6/14
        E.VA09          0   EXTERNAL*       1/55 X    3/40      5/07      5/09
        FEC=1ST         0   EXTERNAL*       1/49 X
        FEC.RTN         0   EXTERNAL*       1/49 X    8/31      8/37      8/45     13/04     13/12
        FILL.           0   EXTERNAL*       1/55 X    5/04 S    9/42 S    9/51     10/09 S   10/13     13/27 S
        FILL.3          0   EXTERNAL*       1/55 X    9/53 S   10/16 S
        FP.PNTL        22   FTX            12/31
        FW.TYSK       374   PROGRAM*       15/48     16/17 L   16/25
        F.INTF          0   EXTERNAL*       2/17 X    6/11
        IDENT           0   EXTERNAL*       2/14 X   11/54
        IMP           174   PROGRAM*        9/13 L   11/44     13/55
        IMP1          203   PROGRAM*        9/29      9/38 L   10/39
        IMP10         227   PROGRAM*       10/02     10/25     10/29 L
        IMP15         240   PROGRAM*       10/54     11/03 L   11/07
        IMP16         246   PROGRAM*       11/18 L   11/38
        IMP17         253   PROGRAM*       11/24     11/31 L
        IMP18         254   PROGRAM*       11/18     11/29     11/35 L
        IMP19         256   PROGRAM*       11/12     11/40 L
        IMP20         262   PROGRAM*       11/43     11/53 L   13/47     13/52
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    18
        SYMBOLIC REFERENCE TABLE. 
  
        IMP25         275   PROGRAM*       12/01     12/03     12/28 L
        IMP27         300   PROGRAM*       12/36 L   12/55
        IMP3          212   PROGRAM*        9/49      9/56 L
        IMP30         305   PROGRAM*       12/29     13/03 L
        IMP31         310   PROGRAM*       13/11 L   13/20     13/22     13/30     13/32
        IMP5          222   PROGRAM*       10/12     10/19 L
        IMP7          225   PROGRAM*       10/22     10/25 L
        IMP.ER        321   PROGRAM*       13/43 L   13/43 E   13/48     13/53
        IT.GNOP        27   FTX             6/12
        KW=BOOL         0   PROGRAM*        3/07 L    3/07 E
        KW=CHAR        10   PROGRAM*        3/33 L    3/33 E
        KW=COMP         7   PROGRAM*        3/29 L    3/29 E
        KW=DOUB         6   PROGRAM*        3/25 L    3/25 E
        KW=FUNC         0   EXTERNAL*       2/02 X    4/42
        KW=IMPL       174   PROGRAM*        9/11 L    9/11 E
        KW=INTE         4   PROGRAM*        3/17 L    3/17 E
        KW=LOGI         3   PROGRAM*        3/13 L    3/13 E
        KW=REAL         5   PROGRAM*        3/21 L    3/21 E
        KW.INFOL       22   FTX            15/55     16/18     16/19     16/20     16/21     16/22     16/23     16/24
        KW.INFOP       52   FTX            15/53     16/18     16/19     16/20     16/21     16/22     16/23     16/24
        KW.KEYL        22   FTX            16/18     16/19     16/20     16/21     16/22     16/23     16/24
        KW.LENL         7   FTX            16/18     16/19     16/20     16/21     16/22     16/23     16/24
        KW.LENP        22   FTX             4/39     16/18     16/19     16/20     16/21     16/22     16/23     16/24
        L.TYSK          7                  15/49     16/25 D
        MAX.CL      77777   FTX            14/40     15/11
        MAX.VAR         7   FTX             5/01      9/41
        MDERR=          0   EXTERNAL*       2/11 X    3/09
        MOD             0   EXTERNAL*       2/14 X    4/36 S    5/48      8/23     11/53
        MO.CLIFL       23   FTX             5/56
        MO.CLIFP       35   FTX             5/56
        MO.FUNP        13   FTX            11/57     12/02
        MO.MODEL        3   FTX             6/03
        MO.SUBP        12   FTX             5/49      5/54
        MO.TYPP         7   FTX            12/02     12/05
        M.BOOL          0   FTX             3/10     16/18
        M.CHAR          6   FTX             3/43      5/27      7/10      7/43     15/57     16/07
                                            4/29      6/37      7/28     11/11     16/07     16/19
        M.CPLX          5   FTX             3/30     16/20
        M.DBL           4   FTX             3/26     16/21
        M.INT           2   FTX             3/18     14/35     16/22
        M.LOG           1   FTX             3/14     16/23
        M.REAL          3   FTX             3/22     16/24
        NAT.LEN         0   EXTERNAL*       1/49 X   11/23
        NAT.TYP         0   EXTERNAL*       1/49 X   11/03     11/08
        N.TYPE          7   FTX            10/49
        O.COMMA        42   FTX             3/39      3/45      8/30      8/40     10/33     11/41     13/51     15/22
        O.CONS          5   FTX            14/28
        O.EOS           0   FTX             8/32      8/44
        O.LP           37   FTX            14/27
        O.MIN          15   FTX             9/57
        O.RP           40   FTX            14/54     15/05
        O.STAR         16   FTX            14/23     14/49
        O.VAR          11   FTX             5/02      6/54      8/48      9/40     10/07
        O.(            37   FTX             7/03      9/20
        O.)            40   FTX            10/36     13/46
        PARAMC          0   EXTERNAL*       1/49 X   13/03
        PARNOW          0   EXTERNAL*       2/08 X   14/33 S
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    19
        SYMBOLIC REFERENCE TABLE. 
  
        PDM             0   EXTERNAL*       2/11 X    6/21      6/42      8/35      9/54     10/23     10/56     15/17
                                            6/14      6/24      8/13      9/30     10/17     10/27     13/31
        PIX             0   EXTERNAL*       2/08 X   15/03
        PM=ICE          1   FTX            14/32
        PSF             0   EXTERNAL*       2/02 X    4/46
        REFVAR          0   EXTERNAL*       1/50 X    4/55 S
        SSY             0   EXTERNAL*       1/50 X    5/10
        STAGE           0   EXTERNAL*       1/50 X    4/16
        STY             0   EXTERNAL*       1/50 X   12/06     12/46     13/28
        S=ENTRY         0   EXTERNAL*       2/14 X    5/45     12/10
        TEST            0   FTX             4/17 F
        TLV             0   EXTERNAL*       1/50 X    6/57
        TYP            17   PROGRAM*        3/11      3/15      3/19      3/23      3/27      3/31      3/46      4/16 L
        TYPA          166   PROGRAM*        4/45 S    4/53 S    7/09      7/41      8/47 L
                                            4/47      5/22      7/27      8/28      8/47 E
        TYPB          167   PROGRAM*        4/25      8/48 L
        TYPC          170   PROGRAM*        3/42 S    4/31      7/45      8/49 L    9/25 S   11/13
        TYPD          171   PROGRAM*        8/50 L    8/50 E   10/50
        TYPE          172   PROGRAM*        5/13 S    6/26      6/49 S    7/13      7/31      7/48      8/51 L
        TYPF          173   PROGRAM*        7/20 S    7/37      8/52 L
        TYP1           25   PROGRAM*        4/30      4/34 L
        TYP10         110   PROGRAM*        5/11      6/45 L
        TYP12         112   PROGRAM*        5/47      6/15      6/22      6/36      6/43
                                            6/05      6/20      6/30      6/38      6/53 L
        TYP14         115   PROGRAM*        6/56      7/03 L
        TYP16         120   PROGRAM*        7/04      7/09 L
        TYP17         126   PROGRAM*        7/11      7/26 L
        TYP18         134   PROGRAM*        7/07      7/29      7/41 L
        TYP18.1       147   PROGRAM*        8/01      8/08 L
        TYP18.2       151   PROGRAM*        8/04      8/06      8/10      8/13 L
        TYP19         152   PROGRAM*        8/02      8/15 L
        TYP2           32   PROGRAM*        4/28      4/44 L
        TYP20         156   PROGRAM*        7/44      8/08      8/19      8/27 L    8/41
        TYP26         163   PROGRAM*        8/39 L    8/43
        TYP4           35   PROGRAM*        4/20      4/49 L
        TYP5           40   PROGRAM*        4/57 L    8/33
        TYP5.1         55   PROGRAM*        5/21      5/32 L
        TYP6           64   PROGRAM*        5/50      5/54 L
        TYP7           66   PROGRAM*        5/34      6/07 L
        TYP7.1         73   PROGRAM*        6/13      6/17 L
        TYP8           77   PROGRAM*        5/26      5/29      5/52      6/24 L    6/40
        TYP8.1        100   PROGRAM*        5/30      6/26 L
        TYP9          102   PROGRAM*        5/19      6/32 L
        TYP9.1        106   PROGRAM*        6/35      6/42 L
        T=FPI           0   EXTERNAL*       2/14 X   12/28
        T=SYM           0   EXTERNAL*       2/14 X   13/06
        T.FPI           0   EXTERNAL*       2/14 X   12/30
        T.SYM           0   EXTERNAL*       2/14 X    7/12      7/30      7/50     11/55     13/05
        WA.SYML        52   FTX            12/44     13/25
        WA.W            0   FTX            12/33     12/47     13/23
        WB.INTFP       27   FTX             5/33
        WB.JPFL        11   FTX             6/08
        WB.JPFP        57   FTX             6/09
        WB.LABP         3   FTX            13/19     13/21
        WB.MODEL        3   FTX             5/14      6/03     11/56     13/09
        WB.PARML        1   FTX             5/18      7/53
        WB.PARMP       10   FTX             5/18      7/53     13/21
1       TYPE - EXPLICIT / IMPLICIT TYPE DECLARATIONS.                 COMPASS 3.7-871.     24/05/02. 13.16.29.      PAGE    20
        SYMBOLIC REFERENCE TABLE. 
  
        WB.TYPP        31   FTX             4/49      5/16      5/33
        WB.W            1   FTX             5/12      6/48     12/16     12/47     13/07
                                            5/32      7/52     12/22     12/52     13/23
        WC.CLENL       22   FTX             9/23      9/24     12/07     12/08
        WC.CLENP       36   FTX             3/36      9/23     12/07     14/43     15/20
                                            7/22      9/27     12/21     15/14     16/05
        WC.CLIFL       23   FTX             5/38      5/39      5/56      7/14      7/16      7/32      7/34      7/56
        WC.CLIFP       35   FTX             5/39      5/56      7/16      7/34      7/56
        WC.CTYPP       35   FTX             9/28     14/51
        WC.W            2   FTX             5/12      5/32      6/48      7/52     12/22     12/52
        XR.TAGP        52   FTX             7/06
        Z=SYM           3   FTX            12/14     12/40     13/11
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      726              IDENT  FMT
                        726                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       704 
                                        LITERALS* LOCAL         704        22 
  
  
                                        ENTRY POINTS. 
  
                                        B=FMT            0+           KW=FORM         77+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ALC       E.FS00    E.FS06    E.FS12    E.FS18    E.FS24    PDM       CDD 
                                        CT1       E.FS01    E.FS07    E.FS13    E.FS19    E.FS25    T=CON     MVE=
                                        FEC.RTN   E.FS02    E.FS08    E.FS14    E.FS20    E.FS26    T=FMT 
                                        FORSKEL   E.FS03    E.FS09    E.FS15    E.FS21    FILL.     T.CON 
                                        SSY       E.FS04    E.FS10    E.FS16    E.FS22    TB=LABR   T.FMT 
                                        T=CONB    E.FS05    E.FS11    E.FS17    E.FS23    ANSI=     T.SYM 
  
  
  
  
                                                  IDENT  FMT                                                     FMT         2
                                         FMT      SECT   (FORMAT STATEMENT PROCESSOR.)                           FMT         3
  
  
  
  
  
                                        *         IN ALLOC                                                       FMT         5
                                                  EXT    ALC                                                     FMT         6
                                                                                                                 FMT         7
                                        *         IN FEC                                                         FMT         8
                                                  EXT    CT1,FEC.RTN,FORSKEL,SSY,T=CONB                          FMT         9
                                                                                                                 FMT        10
                                        *         IN FERRS                                                       FMT        11
                                                  EXT    E.FS00,E.FS01,E.FS02,E.FS03,E.FS04,E.FS05,E.FS06,E.FS07 FMT        12
                                                  EXT    E.FS08,E.FS09,E.FS10,E.FS11,E.FS12,E.FS13,E.FS14,E.FS15 FMT        13
                                                  EXT    E.FS16,E.FS17,E.FS18,E.FS19,E.FS20,E.FS21,E.FS22,E.FS23 FMT        14
                                                  EXT    E.FS24,E.FS25,E.FS26,FILL.                              FC5A184    74
                                                                                                                 FMT        16
                                        *         IN LEX                                                         FMT        17
                                                  EXT    TB=LABR                                                 FMT        18
                                                                                                                 FMT        19
                                        *         IN PEM                                                         FMT        20
                                                  EXT    ANSI=,PDM                                               FMT        21
                                                                                                                 FMT        22
                                        *         IN PUC                                                         FMT        23
                                                  EXT    T=CON,T=FMT,T.CON,T.FMT,T.SYM                           FMT        24
                                                                                                                 FMT        25
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     2
                                                                      FMT 
  
                                        *         IN UTILITY                                                     FMT        26
                                                  EXT    CDD,MVE=                                                FMT        27
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     3
        TABLES, CELLS, DESCRIBES.                                     FM. 
  
                                        **        FM. -  FORMAT TOKEN JUMP TABLE DEFINITION.                     FMT        30
                                                                                                                 FMT        31
                                                  DESCRIBE FM.                                                   FMT        32
                                                                                                                 FMT        33
      L     30  77777777777700000000     DPC      DEFINE 36          DPC OF TOKEN FOR FORMAT PROCESSING          FMT        34
                                                  DEFINE 5                                                       FMT        35
      L     22  00000000000001000000     FIX      DEFINE             FIXED CHARACTER STRING FOR FORMAT PROCESSOR FMT        36
             0  00000000000000777777     ADDR     DEFINE 18          FMT PROCESSOR ADDRESS                       FMT        37
  
  
  
  
                                        **        FMT= - MACRO TO DEFINE FORMAT TOKEN CONTROL TABLE.             FMT        39
                                                                                                                 FMT        40
                                                                                                                 FMT        41
                                                  PURGMAC  FMT=                                                  FMT        42
                                                                                                                 FMT        43
                                                  MACRO  FMT=,DEST,DPC,ILL                                       FMT        44
                                         .1       IFC    EQ,/ILL//                                               FMT        45
                                         A        MICRO  1,3, DEST                                               FMT        46
                                         .1       ELSE                                                           FMT        47
                                         A        MICRO  1,, ILL                                                 FMT        48
                                         .1       ENDIF                                                          FMT        49
                                         B        MICRO  1,, DPC                                                 FMT        50
                                         C        MICCNT B                                                       FMT        51
                                         C        DECMIC C                                                       FMT        52
                                         .1       IFEQ   C,0                                                     FMT        53
                                         D        DECMIC C                                                       FMT        54
                                         .1       ELSE                                                           FMT        55
                                         D        DECMIC 1                                                       FMT        56
                                         .1       ENDIF                                                          FMT        57
                                                  VFD    FM.DPCL/"C"L"B",5/0,FM.FIXL/"D",FM.ADDRL/FMT="A"        FMT        58
                                         FMT=     ENDM                                                           FMT        59
  
  
  
  
                                        *         ****NOTE****  THIS TABLE WILL EVENTUALLY BE PRODUCED VIA A     FMT        61
                                        *         COMDECK WHICH WILL BE USED BY O.X (FTN5TXT) AND CHARMAP (FEC). FMT        62
                                                                                                                 FMT        63
                                        **        FMT=TOK - BRANCH TABLE FOR TOKENS.                             FMT        64
                                                                                                                 FMT        65
                                                                                                                 FMT        66
                                   0 +   FMT=TOK  EQU    *-O.DEF                                                 FMT        67
             0                                    LOC    O.DEF                                                   FMT        68
                                                                                                                 FMT        69
             0  00000000000000000275 +   EOS      FMT=                                                           FMT        70
             1  00000000000000000242 +   HOLL     FMT=                                                           FMT        71
             2  00000000000000000237 +   QHOLL    FMT=                                                           FC5A258    33
             3  00000000000000000235 +   RLCON    FMT=                                                           FC5A258    34
             4  00000000000000000242 +   CHAR     FMT=                                                           FMT        72
             5  00000000000000000330 +   CONS     FMT=                                                           FMT        73
             6  17640324011401000321 +   OCT      FMT=   O"CTAL,ILL                                              FMT        74
             7  30641005300001000321 +   HEX      FMT=   X"HEX,ILL                                               FMT        75
            10  57000000000001000154 +   PERIOD   FMT=   .                                                       FMT        76
            11  00000000000000000330 +   VAR      FMT=                                                           FMT        77
            12  24222505000001000321 +   TRUE     FMT=   TRUE,ILL                                                FMT        78
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     4
        TABLES, CELLS, DESCRIBES.                                     FMT=TOK 
  
            13  06011423050001000321 +   FALSE    FMT=   FALSE,ILL                                               FMT        79
            14  45000000000001000167 +   PL       FMT=   +                                                       FMT        80
            15  46000000000001000167 +   MIN      FMT=   -                                                       FMT        81
            16  47000000000001000321 +   STAR     FMT=   *,ILL                                                   FMT        82
            17  50000000000001000145 +   SLASH    FMT=   /                                                       FMT        83
            20  25160122314601000327 +   UMIN     FMT=   UNARY-,INV                                              FMT        84
            21  47470000000001000321 +   EXP      FMT=   **,ILL                                                  FMT        85
            22  57142457000001000321 +   LT       FMT=   .LT.,ILL                                                FMT        86
            23  57070557000001000321 +   GE       FMT=   .GE.,ILL                                                FMT        87
            24  57052157000001000321 +   EQ       FMT=   .EQ.,ILL                                                FMT        88
            25  57160557000001000321 +   NE       FMT=   .NE.,ILL                                                FMT        89
            26  57140557000001000321 +   LE       FMT=   .LE.,ILL                                                FMT        90
            27  57072457000001000321 +   GT       FMT=   .GT.,ILL                                                FMT        91
            30  57161724570001000321 +   NOT      FMT=   .NOT.,ILL                                               FMT        92
            31  57011604570001000321 +   AND      FMT=   .AND.,ILL                                               FMT        93
            32  57301722570001000321 +   XOR      FMT=   .XOR.,ILL                                               FC51485    21
            33  57160521265701000321 +   NEQV     FMT=   .NEQV.,ILL                                              FC51485    22
            34  57052126570001000321 +   EQV      FMT=   .EQV.,ILL                                               FMT        95
            35  57172257000001000321 +   OR       FMT=   .OR.,ILL                                                FMT        96
            36  50500000000001000145 +   CAT      FMT=   //                                                      FMT        97
            37  51000000000001000177 +   LP       FMT=   ()(                                                     FMT        98
            40  52000000000001000214 +   RP       FMT=   )                                                       FMT        99
            41  54000000000001000321 +   =        FMT=   (=),ILL                                                 FMT       100
            42  56000000000001000135 +   COMMA    FMT=   (,)                                                     FMT       101
            43  00000000000001000143 +   COLON    FMT=   (: )                                                    FMT       102
            44  16232404510001000327 +   SLP      FMT=   NSTD(,INV                                               FMT       103
            45  23240601220701000327 +   STFA     FMT=   STFARG,INV                                              FMT       104
            46  11141446031001000321 +   ILL      FMT=   ILL-CH      **MODIFY WHEN LEX PUTS CHARACTER IN TOKEN** FMT       105
                                                                                                                 FMT       106
            47                                    LOC    *O                                                      FMT       107
                                                                                                                 FC5A380     5
                                         FMTSEP   BITMIC (O.COMMA,O.RP,O.COLON,O.SLASH,O.CAT)                    FC5A380     6
  
  
  
  
                                        **        JTFMT - FORMAT JUMP TABLE. (O.VAR AND O.CONS)                  FMT       109
                                                                                                                 FMT       110
                                                                                                                 FMT       111
                                         JTFMT    MACRO  JUMPS                                                   FMT       112
                                                  VFD    28/0                                                    FMT       113
                                                  IRP    JUMPS                                                   FMT       114
                                         .1       IFC    EQ,/JUMPS//                                             FMT       115
                                                  VFD    8/0                                                     FMT       116
                                         .1       ELSE                                                           FMT       117
                                                  VFD    8/FMT.JUMPS-FMT.                                        FMT       118
                                         .1       ENDIF                                                          FMT       119
                                                  IRP                                                            FMT       120
                                         JTFMT    ENDM                                                           FMT       121
                                                                                                                 FMT       122
                                                                                                                 FMT       123
                                        **        JUMP TABLE PARAMETERS.                                         FMT       124
                                                                                                                 FMT       125
                                                                                                                 FMT       126
            47                           FMTJT    BSS    0                                                       FMT       127
            47  0000000000                        JTFMT  (C,B,A,ILL)                                             FMT       128
            50  0000000000                        JTFMT  (G,F,E,D)                                               FMT       129
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     5
        TABLES, CELLS, DESCRIBES.                                     JTFMT 
  
            51  0000000000                        JTFMT  (K,J,I,H)                                               FMT       130
            52  0000000000                        JTFMT  (O,N,M,L)                                               FMT       131
            53  0000000000                        JTFMT  (S,R,Q,P)                                               FMT       132
            54  0000000000                        JTFMT  (W,V,U,T)                                               FMT       133
            55  0000000000                        JTFMT  (,Z,Y,X)                                                FMT       134
  
  
  
  
                                  12     LVMAX    EQU    10          MAXIMUM LEVEL OF PARENTHESES                FC50553     7
            56  00000000000000000001     FMTRC    CON    1           CURRENT REPEAT COUNT (FOR THIS PAREN LEVEL) FMT       137
            57                    12     LVSTAK   BSS    LVMAX       PAREN LEVEL STACK -- 1/SLASH-TAB, 23/0,     FMT       138
                                                                     18/FMTRL, 18/REPEAT COUNT                   FMT       139
            71  00000000000000000000     FMTRL    DATA   0           CURRENT RECORD LENGTH.                      FMT       140
            72  00000000000000000000     FMTRLC   DATA   0           FLAG TO INDICATE WHETHER ERROR SHOULD BE    FMT       141
                                                                     ISSUED FOR COLUMN COUNT EXCEEDED            FMT       142
            73  00000000000000000001     EDRPT    CON    1           EDIT DESCRIPTOR REPEAT COUNT                FMT       143
            74  00000000000000000001     EDWID    CON    1           EDIT DESCRIPTOR FIELD WIDTH                 FMT       144
            75                     1     FMTIDX   BSS    1           SYMTAB *WB* INDEX OF FORMAT                 FC5A369     6
  
  
  
  
                                        **        EDSTA - EDIT STATUS WORD.                                      FMT       146
                                        *                                                                        FMT       147
                                        *         USED TO KEEP TRACK OF WHAT HAS HAPPENED DURING RECOGNITION OF  FMT       148
                                        *         EDIT DESCRIPTORS.                                              FMT       149
                                                                                                                 FMT       150
                                                                                                                 FMT       151
                                                  DESCRIBE ES.                                                   FMT       152
      L     52  77777700000000000000     TB       DEFINE 18          ADDRESS OF FIRST TOKEN OF DESCRIPTOR        FMT       153
      L     47  00000070000000000000     TGRP     DEFINE 3           TAB GROUP (T,TL,TR EDIT DESCRIPTORS)        FMT       154
      L      6  00000007777777777700     ATTR     DEFINE 33          ATTRIBUTES                                  FMT       155
      L      0  00000000000000000077     SC       DEFINE 6           STATUS CODES                                FMT       156
                                                                                                                 FMT       157
                                                  REDEF  TGRP                                                    FMT       158
      L     51  00000040000000000000     T        DEFINE             EDIT DESCRIPTOR IS TAB                      FMT       159
      L     50  00000020000000000000     TL       DEFINE             EDIT DESCRIPTOR IS TAB LEFT                 FMT       160
      L     47  00000010000000000000     TR       DEFINE             EDIT DESCRIPTOR IS TAB RIGHT                FMT       161
                                                                                                                 FMT       162
                                                  REDEF  ATTR                                                    FMT       163
                                                  DEFINE 15                                                      FC50555     7
      L     27  00000000000040000000     MD       DEFINE             M OR D FIELD OCCURRED                       FC50555     8
      L     26  00000000000020000000     WLD      DEFINE             WIDTH-LESS DESCRIPTOR                       FC5A161     6
      L     25  00000000000010000000     HOL      DEFINE             HOLLERITH/CHARACTER DESCRIPTOR              FMT       165
      L     24  00000000000004000000     SF       DEFINE             SCALE FACTOR OCCURRED                       FMT       166
      L     23  00000000000002000000     SP       DEFINE             SCALE FACTOR PERMITTED                      FMT       167
      L     22  00000000000001000000     SGN      DEFINE             + OR - OCCURRED                             FMT       168
      L     21  00000000000000400000     RPT      DEFINE             REPEAT COUNT FIELD PRESENT                  FMT       169
      L     20  00000000000000200000     WF       DEFINE             FIELD WIDTH OCCURRED                        FMT       170
      L     17  00000000000000100000     WR       DEFINE             FIELD WIDTH REQUIRED                        FMT       171
      L     16  00000000000000040000     DES      DEFINE             DESCRIPTOR OCCURRED                         FMT       172
      L     15  00000000000000020000     EXP      DEFINE             EXPONENT OCCURRED                           FMT       173
      L     14  00000000000000010000     EF       DEFINE             EXPONENT FIELD OCCURRED                     FMT       174
      L     13  00000000000000004000     EP       DEFINE             EXPONENT PERMITTED                          FMT       175
      L     12  00000000000000002000     PER      DEFINE             . OCCURRED                                  FMT       176
      L     11  00000000000000001000     PP       DEFINE             . PERMITTED                                 FMT       177
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     6
        TABLES, CELLS, DESCRIBES.                                     ES. 
  
      L     10  00000000000000000400     PR       DEFINE             . REQUIRED                                  FMT       178
      L      7  00000000000000000200     ERR      DEFINE             ERROR DETECTED                              FMT       179
      L      6  00000000000000000100     FIN      DEFINE             FINAL ALLOWABLE STRING IN DESCRIPTOR FOUND  FMT       180
                                                                                                                 FMT       181
                                                  REDEF  SC                                                      FMT       182
      L      5  00000000000000000040     IS       DEFINE             INITIAL TOKEN STATE                         FMT       183
      L      4  00000000000000000020     SS       DEFINE             SCALE FACTOR STATE                          FMT       184
      L      3  00000000000000000010     RS       DEFINE             REPEAT COUNT STATE                          FMT       185
      L      2  00000000000000000004     DS       DEFINE             EDIT DESCRIPTOR STATE                       FMT       186
      L      1  00000000000000000002     WS       DEFINE             FIELD WIDTH STATE                           FMT       187
      L      0  00000000000000000001     MS       DEFINE             M OR D FIELD STATE                          FMT       188
                                                                                                                 FMT       189
                                                                                                                 FMT       190
            76  00000000000000000000     EDSTA    CON    0           EDIT STATUS WORD                            FMT       191
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     7
        FORMAT                                                        FMT 
  
                                        **        FMT -  PROCESS "FORMAT" STATEMENT.                             FMT       194
                                        *                                                                        FMT       195
                                        *         *FMT* SCANS FORMAT FOR SYNTACTICAL CORRECTNESS, CHECKING FOR   FMT       196
                                        *         ILLEGAL COMBINATIONS AND MISCELLANEOUS PROGRAMMER ERRORS.  THE FMT       197
                                        *         GOAL IS TO CONTINUE TO VERIFY THE FORMAT IN ALL CASES, EVEN    FMT       198
                                        *         WHEN ERROR(S) ARE ENCOUNTERED.                                 FMT       199
                                        *                                                                        FMT       200
                                        *         ENTRY  (B4) _ START OF *TB*.                                   FMT       201
                                        *                                                                        FMT       202
                                        *         EXIT   TO *FEC.RTN*                                            FMT       203
                                        *                                                                        FMT       204
                                        *         CALLS  AED, CRL, CT1, EST, MVE=, PFC, SSY                      FMT       205
                                        *                                                                        FMT       206
                                        *         USES   ALL REGISTERS.                                          FMT       207
                                                                                                                 FMT       208
                                                                                                                 FMT       209
            77                                    HEREIF FORMAT                                                  FMT       210
                                                                                                                 FMT       211
            77  7160000000                        SX6    0                                                       FC5A369     7
                          5160000075 +            SA6    FMTIDX      INITIALIZE                                  FC5A369     8
           100  5110000000 X                      SA1    TB=LABR     STATEMENT LABEL, IN -R- FORMAT              FMT       212
                          5150000704 +            SA5    =5L.BAD.                                                FMT       213
           101  6120000000                        SB2    B0+                                                     FMT       214
                          0311000104 +            NZ     X1,FMT1     IF STATEMENT LABEL FIELD PRESENT            FMT       215
           102  6170000000 X                      FATAL  E.FS00                                                  FMT       216
           103  0400000121 +                      EQ     FMT5                                                    FC5A108     6
                                                                                                                 FC5A108     7
           104  0331000121 +             FMT1     MI     X1,FMT5     IF BAD LABEL                                FMT       217
                          5130000705 +            SA3    =5L                                                     FMT       218
           105  10611                             BX6    X1                                                      FMT       219
                     20136                        LX1    5*CHAR                                                  FMT       220
                          43066                   MX0    -CHAR                                                   FMT       221
                               13555              BX5    0                                                       FMT       222
                                                                                                                 FMT       223
                                        *        PACK STATEMENT LABEL AND LINE NUMBER FOR I/O ROUTINES.          FMT       224
                                                                                                                 FMT       225
           106  20106                    FMT2     LX1    CHAR                                                    FMT       226
                     15210                        BX2    -X0*X1                                                  FMT       227
                          0302000106 +            ZR     X2,FMT2     IF NO DIGIT YET                             FMT       228
                                                                                                                 FC5A369     9
           107  0302000112 +             FMT3     ZR     X2,FMT4     IF END OF STATEMENT LABEL                   FMT       229
                          20506                   LX5    CHAR                                                    FMT       230
           110  6122000006                        SB2    B2+CHAR                                                 FMT       231
                          20106                   LX1    CHAR                                                    FMT       232
                               12525              BX5    X2+X5                                                   FMT       233
           111  15210                             BX2    -X0*X1                                                  FMT       234
                     0400000107 +                 EQ     FMT3        CONTINUE                                    FMT       235
                                                                                                                 FMT       236
                                        **        (X5) = 0L [STATEMENT LABEL]                                    FMT       237
                                                                                                                 FMT       238
           112  6130000073               FMT4     SB3    10*CHAR-1                                               FMT       239
                          67221                   SB2    B2-B1                                                   FMT       240
                               43001              MX0    1                                                       FMT       241
           113  67632                             SB6    B3-B2                                                   FMT       242
                     23020                        AX0    B2,X0                                                   FMT       243
                          15130                   BX1    -X0*X3                                                  FMT       244
                               22565              LX5    B6,X5                                                   FMT       245
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     8
        FORMAT                                                        FMT 
  
           114  12515                             BX5    X1+X5       ADD IN TRAILING BLANKS.                     FMT       246
                     20630                        LX6    WA.STLP                                                 FMT       247
                          0100000000 X            RJ     SSY                                                     FMT       248
                                                  IFEQ   TEST,ON,1                                               FMT       249
                                                  MI     B7,"BLOWUP" IF LABEL NOT IN SYMTAB                      FMT       250
                                                                                                                 FMT       251
                                        *         (B7) = SYMBOL TABLE INDEX FOR STATEMENT LABEL.                 FMT       252
                                        *         (X0) = SYMBOL TABLE ORDINAL FOR STATEMENT LABEL.               FMT       253
                                        *         (X5) = FORMAT LABEL FOR ENTRY INTO FORMAT SKELETON TABLE.      FMT       254
                                                                                                                 FMT       255
           115  76670                             SX6    B7                                                      FC5A369    10
                     5160000075 +                 SA6    FMTIDX                                                  FC5A369    11
           116  0100000000 X                      RJ     CT1         GET LABEL TAG                               FMT       256
           117  5130000000 X                      SA3    T=FMT                                                   FMT       257
                          5140000000 X            SA4    T.SYM                                                   FMT       258
           120  66771                             =B7    B7-WB.W+WC.W                                            FMT       259
                     53447                        SA4    X4+B7       FETCH SYMTAB WORD (WC.)                     FMT       260
                                                  LX3    WC.RAP                                                  FMT       261
                          36643                   IX6    X4+X3       (WC.RA) = ADDRESS RELATIVE TO (T.FMT)       FMT       262
                               54640              SA6    A4                                                      FMT       263
                                                                                                                 FMT       264
           121  10755                    FMT5     BX7    X5                                                      FMT       265
                     5170000000 X                 SA7    FORSKEL     5L [STATEMENT LABEL (BLANK PADDED)]         FMT       266
                                                                                                                 FMT       267
                                        **        INITIALIZE FOR MASTER LOOP.                                    FMT       268
                                                                                                                 FMT       269
                               66600              SB6    B0          PARENTHESIS LEVEL COUNTER                   FMT       270
           122  13666                             BX6    0                                                       FMT       271
                     6150000066                   SB5    9*CHAR      CHARACTER SHIFT COUNT FOR FORMAT BUILD WORD FMT       272
                               56440              SA4    B4          FETCH 1ST *(* OF FORMAT                     FMT       273
           123  5160000071 +                      SA6    FMTRL       CHARACTER/RECORD COUNTER                    FMT       274
                          5160000072 +            SA6    FMTRLC      CLEAR RECORD LENGTH CHECK                   FMT       275
           124  5160000076 +                      SA6    EDSTA       CLEAR EDIT STATUS WORD                      FMT       276
                          43700                   MX7    0           FORMAT BUILD WORD                           FMT       277
           125  6224777740                        SB2    X4-O.LP                                                 FC5A184    75
                          0420000127 +            ZR     B2,FMT=NX   IF LEFT PAREN                               FC5A184    76
           126  6170000000 X                      FATAL  E.FS26      **  MISSING LEFT PAREN                      FC5A184    77
                                        *         EQ     FMT=NX                                                  FMT       278
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE     9
        TOKEN LOOP.                                                   FMT=
  
                                        **        MASTER LOOP FOR CHECKING SYNTAX OF FORMAT.                     FMT       281
                                        *                                                                        FMT       282
                                        *         (A4) _ CURRENT *TB* TOKEN PROCESSING                           FMT       283
                                        *         (A7) = SKELETON STORE ADDRESS-1                                FMT       284
                                        *         (X7) = CURRENT BUILD WORD                                      FMT       285
                                        *         (B6) = PARENTHESIS LEVEL                                       FMT       286
                                                                                                                 FMT       287
                                                                                                                 FMT       288
           127                           FMT=NX   BSS    0                                                       FMT       289
           127  6224000000                        SB2    X4+                                                     FMT       290
                          7112777730              SX1    B2-O.ILL-1                                              FMT       291
           130  0321400130 +                      PL     X1,"BLOWUP" IF BAD TOKEN                                FMT       292
                          5112000000 +            SA1    B2+FMT=TOK  FETCH TOKEN TABLE ENTRY                     FMT       293
                                                  LX1    -FM.ADDRP                                               FMT       294
           131  63710                             SB7    X1          JUMP ADDRESS                                FMT       295
                                   0              ERRNZ  18-FM.ADDRL                                             FMT       296
                                                  LX1    FM.ADDRP                                                FMT       297
                     43044                        MX0    FM.DPCL                                                 FMT       298
                          11601                   BX6    X0*X1                                                   FMT       299
                               20151              SBIT   X1,FM.FIXP                                              FMT       300
           132  0331000133 +                      MI     X1,FMT=NX1  IF FIXED CHARACTER STRING                   FMT       301
                          0277000000              JP     B7          PROCESS FORMAT INFORMATION FROM TOKEN       FMT       302
                                                                                                                 FMT       303
           133  22406                    FMT=NX1  LX4    X6                                                      FMT       304
                     0100000666 +                 RJ     PFC         PROCESS FORMAT CHARACTER(S)                 FMT       305
           134  0277000000                        JP     B7          FINISH PROCESSING                           FMT       306
  
  
  
  
                                        **        HERE ON *,*.                                                   FMT       308
                                                                                                                 FMT       309
           135                           FMT=COM  BSS    0                                                       FMT       310
           135  5110000076 +                      SA1    EDSTA                                                   FMT       311
                          0311000141 +            NZ     X1,FMT=COM1 IF NOT EXTRANEOUS *,*                       FMT       312
           136  5014777776                        SA1    A4-1                                                    FMT       313
                          6221777737              SB2    X1-O.RP                                                 FMT       314
           137  0420000141 +                      ZR     B2,FMT=COM1 IF PREVIOUS *)*                             FMT       315
                          6170000000 X            WARN   E.FS20                                                  FMT       316
           141  0100000556 +             FMT=COM1 RJ     AED         ANALYZE EDIT DESCRIPTOR                     FMT       317
           142  5044000001                        SA4    A4+1        NEXT TOKEN                                  FMT       318
                          0400000127 +            EQ     FMT=NX                                                  FMT       319
  
  
  
  
                                        **        HERE ON *:*.                                                   FMT       321
                                                                                                                 FMT       322
           143                           FMT=COL  BSS    0                                                       FMT       323
           143  0100000556 +                      RJ     AED         ANALYZE EDIT DESCRIPTOR                     FMT       324
           144  5044000001                        SA4    A4+1        NEXT TOKEN                                  FMT       325
                          0400000152 +            EQ     FMT=SL2     ATTEMPT TO BYPASS *,*                       FMT       326
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    10
        TOKEN LOOP.                                                   FMT=CAT 
  
                                        **        HERE ON */*, OR *//*.                                          FMT       328
                                                                                                                 FMT       329
           145                           FMT=CAT  BSS    0                                                       FMT       330
           145                           FMT=SLA  BSS    0                                                       FMT       331
           145  0100000556 +                      RJ     AED         ANALYZE EDIT DESCRIPTOR                     FMT       332
           146  5116000056 +                      SA1    B6+LVSTAK-1                                             FC5A161     7
                          43601                   MX6    1           MARK *SLASH IN NEST*                        FC5A161     8
                               54610              SA6    A1                                                      FC5A161     9
           147  5120000071 +                      SA2    FMTRL                                                   FC5A161    10
                          43001                   MX0    1                                                       FC5A161    11
                               15110              BX1    -X0*X1      CLEAR SLASH BIT                             FC5A161    12
           150  21122                             AX1    18                                                      FC5A161    13
                     36612                        IX6    X1+X2                                                   FC5A161    14
                          0100000656 +            RJ     CRL         CHECK RECORD LENGTH UP TO SLASH             FC5A161    15
           151  13666                             BX6    0                                                       FMT       333
                     5160000071 +                 SA6    FMTRL       RESTART RECORD LENGTH                       FMT       334
                               54441              =A4    A4+1        NEXT TOKEN                                  FMT       335
                                                                                                                 FMT       336
                                        *         *,* CAN BE ELIMINATED IF NEXT CHARACTER.                       FMT       337
                                                                                                                 FMT       338
           152  6274777735               FMT=SL2  SB7    X4-O.COMMA                                              FMT       339
                          0570000127 +            NZ     B7,FMT=NX   IF NOT FOLLOWED BY *,*                      FMT       340
           153  5044000001                        SA4    A4+1        BYPASS *,*                                  FMT       341
                          0400000127 +            EQ     FMT=NX                                                  FMT       342
  
  
  
  
                                        **        HERE ON *.*                                                    FMT       344
                                                                                                                 FMT       345
           154                           FMT=PER  BSS    0                                                       FMT       346
           154  5110000076 +                      SA1    EDSTA       EDIT STATUS WORD                            FMT       347
                          0301000321 +            ZR     X1,FMT=ILL  IF O.PER AS FIRST TOKEN OF EDIT DESCRIPTOR  FMT       348
           155  7160002000                        CLAS=  X6,ES,(PER)                                             FMT       349
                          20122                   LX1    -ES.TBP                                                 FMT       350
                               63410              SB4    X1          SET FOR POSSIBLE DIAGNOSTIC                 FMT       351
                                   0              ERRNZ  18-ES.TBL                                               FMT       352
           156  20152                             LX1    ES.TBP                                                  FMT       353
                     10211                        BX2    X1                                                      FMT       354
                          20262                   SBIT   X2,ES.PPP                                               FMT       355
           157  0332000162 +                      MI     X2,FMT=PER1 IF PERIOD ALLOWED                           FMT       356
                          6170000000 X            FATAL  E.FS16                                                  FMT       357
           161  7160000200                        CLAS=  X6,ES,(ERR)                                             FMT       358
                          0400000165 +            EQ     FMT=PER2                                                FMT       359
                                                                                                                 FMT       360
           162  20273                    FMT=PER1 SBIT   X2,ES.PERP/ES.PPP                                       FMT       361
                     0322000165 +                 PL     X2,FMT=PER2 IF NOT MULTIPLE *.*                         FMT       362
           163  6170000000 X                      FATAL  E.FS21                                                  FMT       363
           164  7160000200                        CLAS=  X6,ES,(ERR)                                             FMT       364
                                                                                                                 FMT       365
           165  12616                    FMT=PER2 BX6    X1+X6                                                   FMT       366
                     54610                        SA6    A1          UPDATE                                      FMT       367
                          5044000001              SA4    A4+1        NEXT TOKEN                                  FMT       368
           166  0400000127 +                      EQ     FMT=NX                                                  FMT       369
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    11
        TOKEN LOOP.                                                   FMT=PL
  
                                        **        HERE ON *+* OR *-*.                                            FMT       371
                                                                                                                 FMT       372
           167                           FMT=PL   BSS    0                                                       FMT       373
           167                           FMT=MIN  BSS    0                                                       FMT       374
           167  5110000076 +                      SA1    EDSTA       EDIT STATUS WORD                            FMT       375
                          0301000173 +            ZR     X1,FMT=PL1  IF SIGN IS FIRST TOKEN OF EDIT DESCRIPTOR   FMT       376
           170  20122                             LX1    -ES.TBP                                                 FMT       377
                     63410                        SB4    X1          FOR DIAGNOSTIC                              FMT       378
                                   0              ERRNZ  18-ES.TBL                                               FMT       379
                          6170000000 X            FATAL  E.FS25                                                  FMT       380
           172  0100000556 +                      RJ     AED         ANALYZE EDIT DESCRIPTOR.                    FMT       381
                                                                                                                 FC50766     5
           173  0100000700 +             FMT=PL1  RJ     RED         RESTART EDIT DESCRIPTOR                     FMT       382
           174  5110000076 +                      SA1    EDSTA                                                   FMT       383
                          43601                   CLAS=  X6,ES,(SGN)                                             FMT       384
           175  12616                             BX6    X1+X6                                                   FMT       385
                     54610                        SA6    A1          UPDATE                                      FMT       386
                          5044000001              SA4    A4+1        NEXT TOKEN                                  FMT       387
           176  0400000127 +                      EQ     FMT=NX                                                  FMT       388
  
  
  
  
                                        **        HERE ON *(*.                                                   FMT       390
                                                                                                                 FMT       391
           177                           FMT=LP   BSS    0                                                       FMT       392
           177  5110000076 +                      SA1    EDSTA                                                   FC50766     6
                          5120000706 +            CLAS=  X2,ES,(TGRP,MD,SF,SGN,WF,DES,EXP,EF,PER)                FC50766     7
           200  11221                             BX2    X2*X1                                                   FC50766     8
                     0302000203 +                 ZR     X2,FMT=LP1  IF NO INVALID PRECEDENT                     FC50766     9
                               20122              LX1    -ES.TBP                                                 FC50766    10
           201  63410                             SB4    X1          FOR DIAGNOSTIC                              FC50766    11
                                   0              ERRNZ  18-ES.TBL                                               FC50766    12
                     6170000000 X                 FATAL  E.FS25                                                  FC50766    13
                                                                                                                 FC50766    14
           203  0100000556 +             FMT=LP1  RJ     AED         ANALYZE EDIT DESCRIPTOR                     FC50766    15
           204  5110000073 +                      SA1    EDRPT                                                   FMT       394
                          5120000056 +            SA2    FMTRC                                                   FMT       395
           205  5130000071 +                      SA3    FMTRL                                                   FMT       396
                          54441                   =A4    A4+1        NEXT TOKEN                                  FMT       397
                               66661              =B6    B6+1                                                    FMT       398
           206  20322                             LX3    18                                                      FMT       399
                     12632                        BX6    X3+X2       24/0,18/FMTRL,18/FMTRC                      FMT       400
                          7126777764              SX2    B6-LVMAX-1                                              FMT       401
           207  5166000056 +                      SA6    B6+LVSTAK-1 NTH LEVEL STACK WORD                        FMT       402
                          22601                   LX6    X1                                                      FMT       403
                               54620              SA6    A2          SET FMTRC                                   FMT       404
           210  43600                             MX6    0                                                       FC50800    11
                     54630                        SA6    A3          RESET FMTRL                                 FC51497     9
                          76610                   =X6    1                                                       FC5A161    16
                               54610              SA6    A1          EDIT DESCRIPTOR REPEAT COUNT = 1            FC5A161    17
           211  0332000127 +                      MI     X2,FMT=NX   IF PAREN LEVEL .LE. MAX                     FMT       407
                          6170000000 X            FATAL  E.FS03      EXCEEDED MAX PAREN LEVELS                   FMT       408
           213  67661                             =B6    B6-1        IN CASE MORE LEFT PARENS                    FMT       409
                     0400000127 +                 EQ     FMT=NX                                                  FMT       410
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    12
        TOKEN LOOP.                                                   FMT=RP
  
                                        **        HERE ON *)*.                                                   FMT       412
                                                                                                                 FMT       413
           214                           FMT=RP   BSS    0                                                       FMT       414
           214  0461000217 +                      EQ     B6,B1,FMT=RP1  IF AT OUTERMOST (                        FC50553     8
                          55141                   =A1    A4-1        PREVIOUS TOKEN                              FC50553     9
                               64410              SB4    A1          FOR POSSIBLE DIAGNOSTIC                     FC50553    10
           215  7211777740                        SX1    X1-O.LP                                                 FC50553    11
                          0311000217 +            NZ     X1,FMT=RP1  IF NOT () [NULL EDIT DESCRIPTOR]            FC50553    12
           216  6170000000 X                      FATAL  E.FS22                                                  FC50553    13
                                                                                                                 FC50553    14
           217  0100000556 +             FMT=RP1  RJ     AED         ANALYZE EDIT DESCRIPTOR                     FC50553    15
           220  5120000056 +                      SA2    FMTRC                                                   FMT       417
                          5136000056 +            SA3    B6+LVSTAK-1                                             FMT       418
           221  0323000224 +                      PL     X3,FMT=RP2  IF NO SLASH IN THIS LEVEL                   FC50553    16
                          76210                   =X2    1           USE 1 AS REPEAT COUNT                       FC5A161    19
                               76300              =X3    0           USE ZERO FOR PREVIOUS LEN AND REP COUNT     FC5A161    20
           222  0461000224 +                      EQ     B6,B1,FMT=RP2  IF AT OUTERMOST (                        FC50553    17
                          43601                   MX6    1                                                       FC5A161    22
                               55131              =A1    A3-1                                                    FC5A161    23
           223  12661                             BX6    X6+X1       PROPOGATE / TO OUTER LEVEL OF NEST          FC5A161    24
                     54610                        SA6    A1                                                      FC5A161    25
                                                                                                                 FC5A161    26
           224  5110000071 +             FMT=RP2  SA1    FMTRL                                                   FC51497    10
                          67661                   =B6    B6-1                                                    FMT       419
                               54441              =A4    A4+1        NEXT TOKEN                                  FMT       420
           225  42612                             IX6    X1*X2       RECORD LENGTH * REPEAT COUNT                FMT       421
                     73230                        SX2    X3          PREVIOUS REPEAT COUNT                       FMT       422
                          21322                   AX3    18          PREVIOUS RECORD LENGTH                      FMT       423
                               36663              IX6    X6+X3       INCREMENT RECORD LENGTH                     FC5A161    28
           226  5130000071 +                      SA3    FMTRL                                                   FC50800    14
                          54630                   SA6    A3          UPDATE REAL RECORD LENGTH                   FC50800    15
           227  0100000656 +                      RJ     CRL         CHECK RECORD LENGTH                         FMT       426
           230  22602                             LX6    X2                                                      FMT       427
                     54620                        SA6    A2          RESTORE PREVIOUS REPEAT COUNT               FMT       428
                          0460000277 +            ZR     B6,FMT=EOS1 IF TERMINAL *)*                             FC5A380     7
           231  5110000707 +                      SA1    ="FMTSEP"                                               FC5A380     8
                          63740                   SB7    X4          UPCOMING TOKEN                              FC5A380     9
                               22171              LX1    X1,B7                                                   FC5A380    10
           232  0331000127 +                      MI     X1,FMT=NX   IF NEXT IS SEPARATOR                        FC5A380    11
                          6044000000              SB4    A4+         POINT TO UPCOMING TOKEN                     FC5A380    12
           233  6170000000 X                      FATAL  E.FS25      ** MISSING SEPARATOR                        FC5A380    13
           234  0400000127 +                      EQ     FMT=NX                                                  FMT       430
  
  
  
  
                                        **        HERE ON CHARACTER OR HOLLERITH TOKEN.                          FMT       432
                                        *                                                                        FMT       433
                                        *         (X4) = CHARACTER/HOLLERITH TOKEN.                              FMT       434
                                                                                                                 FMT       435
           235                           FMT=RLC  BSS    0                                                       FC5A258    35
           235  5110000710 +                      SA1    =7L R" OR                                               FC5A258    36
                          5120000711 +            SA2    =3RL"                                                   FC5A258    37
           236  12612                             BX6    X1+X2                                                   FC5A258    38
                     0400000321 +                 EQ     FMT=ILL                                                 FC5A258    39
                                                                                                                 FC5A258    40
           237                           FMT=QHO  BSS    0                                                       FC5A258    41
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    13
        TOKEN LOOP.                                                   FMT=CHA 
  
           237  5110000712 +                      SA1    =7L"STRING                                              FC5A258    42
                          10611                   BX6    X1                                                      FC5A258    43
           240  5160000000 X                      SA6    FILL.                                                   FC5A258    44
                          6170000000 X            ANSI   E.FS08                                                  FC5A258    45
                                                                                                                 FC5A258    46
           242                           FMT=CHA  BSS    0                                                       FMT       436
           242                           FMT=HOL  BSS    0                                                       FMT       437
           242  5110000076 +                      SA1    EDSTA                                                   FMT       438
                          0301000246 +            ZR     X1,FMT=CHA1 IF NO MISSING PUNCTUATION                   FMT       439
           243  20122                             LX1    -ES.TBP                                                 FMT       440
                     63410                        SB4    X1          SET FOR DIAGNOSTIC                          FMT       441
                                   0              ERRNZ  18-ES.TBL                                               FMT       442
                          6170000000 X            FATAL  E.FS25                                                  FMT       443
           245  0100000556 +                      RJ     AED         ANALYZE EDIT DESCRIPTOR                     FMT       444
           246  5054000000               FMT=CHA1 SA5    A4+         SAVE TOKEN POINTER                          FMT       445
                          64770                   SB7    A7          SAVE LAST BUILD WORD                        FMT       446
                               43055              MX0    -TB.CLCNL                                               FMT       447
           247  20422                             HX4    TB.CLCN                                                 FMT       448
                     20417                        LX4    TB.CLCNL                                                FMT       449
                          15140                   BX1    -X0*X4      NUMBER OF CHARACTERS                        FMT       450
                               22007              LX0    X7          SAVE CURRENT BUILD WORD                     FMT       451
           250  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FMT       452
           251  56170                             SA1    B7          LAST BUILD WORD                             FMT       453
                     10711                        BX7    X1                                                      FMT       454
                          54710                   SA7    A1          RESTORE                                     FMT       455
                               22700              LX7    X0          RESTORE CURRENT BUILD WORD                  FMT       456
           252  7110000010                        SX1    1RH                                                     FMT       457
                          6170000066              SB7    9*CHAR                                                  FMT       458
           253  67772                             SB7    B7-B2                                                   FMT       459
                     22171                        LX1    X1,B7       POSITION THE H                              FMT       460
                          67221                   =B2    B2-1                                                    FMT       461
                               43001              MX0    1                                                       FMT       462
           254  23020                             AX0    X0,B2                                                   FMT       463
                     11404                        BX4    X0*X4       EXTRACT COUNT (DPC)                         FMT       464
                          12441                   BX4    X4+X1       MAKE NH PREFIX                              FMT       465
           255  0100000666 +                      RJ     PFC         PROCESS FORMAT CHARACTERS FOR PREFIX        FMT       466
           256  54450                             SA4    A5          RESTORE TOKEN POINTER                       FMT       467
                                                                                                                 FMT       468
                                        *         THE PREFIX IS OUTPUT.  NOW PROCESS THE CHARACTER STRING.       FMT       469
                                                                                                                 FMT       470
                     5150000000 X                 SA5    T.CON                                                   FMT       471
                               20422              LX4    -TB.SHCP                                                FMT       472
           257  63240                             SB2    X4                                                      FMT       473
                                   0              ERRNZ  18-TB.SHCL                                              FMT       474
                     53552                        SA5    X5+B2       FIRST WORD OF CHARACTER                     FMT       475
                          43055                   MX0    -TB.CLCNL                                               FMT       476
                               20417              LX4    TB.SHCP-TB.CLCNP                                        FMT       477
           260  15640                             BX6    -X0*X4      EXTRACT CHARACTER COUNT                     FMT       478
                     63260                        SB2    X6                                                      FMT       479
                          5160000074 +            SA6    EDWID                                                   FMT       480
           261  55551                             =A5    A5-1        PREFETCH FOR LOOP                           FMT       481
                     43066                        MX0    -CHAR                                                   FMT       482
                                                                                                                 FMT       483
           262  6130000012               FMT=CHA2 SB3    10          RESET CURRENT WORD CHARACTER COUNT          FMT       484
                          5055000001              SA5    A5+1        FETCH NEXT WORD                             FMT       485
           263  67221                    FMT=CHA3 =B2    B2-1        TOTAL CHARACTER COUNT                       FMT       486
                     67331                        =B3    B3-1        CHARACTER COUNT THIS WORD                   FMT       487
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    14
        TOKEN LOOP.                                                   FMT=CHA 
  
                          20506                   LX5    CHAR                                                    FMT       488
                               15250              BX2    -X0*X5      EXTRACT CHARACTER                           FMT       489
           264  22252                             LX2    X2,B5                                                   FMT       490
                     12772                        BX7    X7+X2       MERGE INTO BUILD WORD                       FMT       491
                          6155777771              SB5    B5-CHAR                                                 FMT       492
           265  0750000267 +                      MI     B5,FMT=CHA4 IF WORD FULL                                FMT       493
                          0420000272 +            ZR     B2,FMT=CHA5 IF HOLLERITH/CHARACTER FINISHED             FMT       494
           266  0530000263 +                      NZ     B3,FMT=CHA3 IF MORE TO PROCESS THIS WORD                FMT       495
                          0400000262 +            EQ     FMT=CHA2    GET NEXT WORD OF HOLLERITH/CHARACTER        FMT       496
                                                                                                                 FMT       497
           267  54771                    FMT=CHA4 =A7    A7+1        STORE FULL WORD                             FMT       498
                     43700                        MX7    0           RESET BUILD WORD                            FMT       499
                          6150000066              SB5    9*CHAR      SHIFT COUNT                                 FMT       500
           270  0420000272 +                      ZR     B2,FMT=CHA5 IF HOLLERITH/CHARACTER FINISHED             FMT       501
                          0530000263 +            NZ     B3,FMT=CHA3 IF MORE TO PROCESS THIS WORD                FMT       502
           271  0400000262 +                      EQ     FMT=CHA2    GET NEXT WORD OF HOLLERITH/CHARACTER        FMT       503
                                                                                                                 FMT       504
           272  74640                    FMT=CHA5 SX6    A4                                                      FMT       505
                     54441                        =A4    A4+1        NEXT TOKEN                                  FMT       506
                          5120000713 +            CLAS=  X2,ES,(HOL,FIN,DES,DS)                                  FMT       507
           273  20652                             LX6    ES.TBP                                                  FMT       508
                     12662                        BX6    X6+X2                                                   FMT       509
                          5160000076 +            SA6    EDSTA       UPDATE EDIT DESCRIPTOR STATUS               FMT       510
           274  0400000127 +                      EQ     FMT=NX                                                  FMT       511
  
  
  
  
                                        **        HERE ON *EOS*.                                                 FMT       513
                                        *                                                                        FMT       514
                                        *         (X7) = FORMAT BUILD WORD                                       FMT       515
                                        *         (B5) = CURRENT CHARACTERS SHIFT COUNT.                         FMT       516
                                                                                                                 FMT       517
           275                           FMT=EOS  BSS    0                                                       FMT       518
           275  6170000000 X                      FATAL  E.FS19      ENTRY FROM MAIN LOOP -- PARENS UNBALANCED   FMT       519
           276  0400000301 +                      EQ     FMT=EOS2                                                FMT       520
                                                                                                                 FMT       521
           277  0304000301 +             FMT=EOS1 ZR     X4,FMT=EOS2 IF *EOS*                                    FMT       522
                          6044000000              SB4    A4+         FOR DIAGNOSTIC FILL.                        FC50806     5
           300  0400000000 X                      EQ     E.FS18                                                  FC5A315     5
                                                                                                                 FMT       524
           301  0307000305 +             FMT=EOS2 ZR     X7,FMT=EOS3 IF NULL WORD                                FMT       525
                                                                                                                 FMT       526
                                        *         OTHERWISE, BLANK PAD THE FINAL WORD AND OUTPUT.                FMT       527
                                                                                                                 FMT       528
                          5110000714 +            SA1    =10H                                                    FMT       529
           302  6120000074                        SB2    10*CHAR                                                 FMT       530
                          67325                   SB3    B2-B5                                                   FMT       531
                               43006              MX0    CHAR                                                    FMT       532
           303  6123777763                        SB2    B3-2*CHAR                                               FMT       533
                          23020                   AX0    X0,B2                                                   FMT       534
                               15110              BX1    -X0*X1                                                  FMT       535
           304  12771                             BX7    X7+X1                                                   FMT       536
                     54771                        =A7    A7+1                                                    FMT       537
                                                                                                                 FMT       538
                                        *         ADD FORMAT TO T.FMT AND EXIT.                                  FMT       539
                                                                                                                 FMT       540
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    15
        TOKEN LOOP.                                                   FMT=EOS 
  
           305  6160777776 X             FMT=EOS3 SB6    FORSKEL-1                                               FMT       541
                          65676                   SB6    A7-B6       = LENGTH OF THIS FORMAT                     FMT       542
           306  5110000075 +                      SA1    FMTIDX                                                  FC5A369    12
                          0301000313 +            ZR     X1,FMT=EOS4 IF NO FORMAT LABEL                          FC5A369    13
           307  5130000000 X                      SA3    T.SYM                                                   FC5A369    14
                          63310                   SB3    X1                                                      FC5A369    15
           310  7116777776                        SX1    B6-1        FORMAT TEXT LENGTH (WORDS)                  FC5A369    16
                          7176777776              SX7    B6-1                                                    FC5A369    17
           311  53333                             SA3    X3+B3       *WB* OF FORMAT                              FC5A369    18
                     20103                        LX1    3           (F.T.L.)*8                                  FC5A369    19
                          20701                   LX7    1           (F.T.L.)*2                                  FC5A369    20
                               36717              IX7    X1+X7       (F.T.L.)*10                                 FC5A369    21
           312  20741                             LX7    WB.FMTLP                                                FC5A369    22
                     12737                        BX7    X3+X7       MERGE IN FORMAT LENGTH (CHARACTERS)         FC5A369    23
                          54730                   SA7    A3                                                      FC5A369    24
                                                                                                                 FC5A369    25
           313  5110000000 X             FMT=EOS4 ALLOC  T.FMT,B6                                                FC5A369    26
           315  76160                             SX1    B6          = W.C.                                      FMT       544
                     7120000000 X                 SX2    FORSKEL     = SOURCE                                    FMT       545
                               77376              SX3    B7-B6       = DESTINATION = (LWA+1 OF TABLE) - (W.C.)   FMT       546
           316  0100000000 X                      MOVE   X1,X2,X3                                                FMT       547
           317  5110000000 X                      SA1    T=CONB                                                  FMT       548
                          10611                   SHRINK T=CON,X1    SCRATCH CONSTANTS FORMED FOR FORMAT         FMT       549
                          0400000000 X            EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...             FMT       550
  
  
  
  
                                        **        HERE ON ILLEGAL TOKEN.                                         FMT       552
                                         DELIM    BITMIC (O.EOS,O.LP,O.RP,O.COMMA,O.COLON,O.SLASH,O.CAT)         FC50086     6
                                                                                                                 FMT       553
           321                           FMT=ILL  BSS    0                                                       FMT       554
           321  5160000000 X                      SA6    FILL.                                                   FMT       555
                          6170000000 X            FATAL  E.FS14                                                  FMT       556
           323  54441                    FMT=ILL1 =A4    A4+1        NEXT TOKEN                                  FC50086     7
                     63440                        SB4    X4                                                      FC50086     8
                          5110000715 +            SA1    ="DELIM"                                                FC50086     9
           324  22141                             LX1    B4,X1                                                   FC50086    10
                     0321000323 +                 PL     X1,FMT=ILL1 IF NOT DELIMETER                            FC50086    11
           325  0100000700 +                      RJ     RED         RESET EDIT DESCRIPTOR                       FC50086    12
           326  0400000127 +                      EQ     FMT=NX      CONTINUE PROCESSING                         FMT       558
  
  
  
  
                                        **        HERE ON TOTALLY INVALID TOKEN.                                 FMT       560
                                        *         (CANNOT BE PRODUCED (LEGALLY) BY LEX)                          FMT       561
                                                                                                                 FMT       562
           327  0400400327 +             FMT=INV  EQ     "BLOWUP"                                                FMT       563
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    16
        FMT=VAR/FMT=CON SUBLOOP.                                      FMT=CON 
  
                                        **        HERE ON CONSTANT OR VARIABLE TOKEN.                            FMT       566
                                                                                                                 FMT       567
           330                           FMT=CON  BSS    0                                                       FMT       568
           330                           FMT=VAR  BSS    0                                                       FMT       569
           330  0100000666 +                      RJ     PFC         PROCESS THE STRING                          FMT       570
           331  5110000076 +                      SA1    EDSTA                                                   FMT       571
                          0311000334 +            NZ     X1,FMT.NX   IF NOT FIRST TOKEN IN EDIT DESCRIPTOR       FMT       572
           332  74640                             SX6    A4                                                      FMT       573
                     20652                        LX6    ES.TBP                                                  FMT       574
                          7110000040              CLAS=  X1,ES,(IS)                                              FMT       575
           333  12661                             BX6    X6+X1       SET TO INITIAL STATE                        FMT       576
                     54610                        SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT       577
                                        *         EQ     FMT.NX                                                  FMT       578
  
  
  
  
                                        **        JUMP TO NEXT PROCESSOR UNIT                                    FMT       580
                                        *                                                                        FMT       581
                                        *         (X4) = CHARACTER STRING PROCESSING (FROM O.VAR OR O.CONS).     FMT       582
                                        *         (B3) = NUMBER OF CHARACTERS (IN X4) REMAINING TO PROCESS.      FMT       583
                                                                                                                 FMT       584
           334                           FMT.NX   BSS    0                                                       FMT       585
           334  0430000345 +                      ZR     B3,FMT.NX1  IF NO MORE CHARACTERS TO PROCESS            FMT       586
                          43066                   MX0    -CHAR                                                   FMT       587
                               20406              LX4    CHAR                                                    FMT       588
           335  15240                             BX2    -X0*X4      EXTRACT CURRENT CHARACTER                   FMT       589
                     7110000003                   SX1    3                                                       FMT       590
                               73620              SX6    X2                                                      FMT       591
           336  11012                             BX0    X1*X2       2 BITS ONLY FOR SHIFT COUNT                 FMT       592
                     20666                        LX6    9*CHAR                                                  FMT       593
                          6222777732              SB2    X2-1R+                                                  FMT       594
           337  0620000501 +                      PL     B2,FMT.ILL  IF NOT ALPHANUMERIC                         FMT       595
                          5150000716 +            SA5    ="NUM09"                                                FMT       596
           340  63220                             SB2    X2                                                      FMT       597
                     22525                        LX5    X5,B2                                                   FMT       598
                          0335000502 +            MI     X5,FMT.DIG  IF CHARACTER 0-9                            FMT       599
           341  20003                             LX0    3           *8--SHIFT COUNT WITHIN JUMP WORD            FMT       600
                     21202                        AX2    2           INDEX TO JUMP WORD                          FMT       601
                          5160000000 X            SA6    FILL.       CHARACTER IN CASE OF ERROR                  FMT       602
           342  5212000047 +                      SA1    X2+FMTJT    JUMP WORD                                   FMT       603
                          63700                   SB7    X0                                                      FMT       604
                               23171              AX1    X1,B7                                                   FMT       605
           343  7100000377                        SX0    377B                                                    FMT       606
                          11110                   BX1    X1*X0                                                   FMT       607
                               63210              SB2    X1                                                      FMT       608
           344  0400000346 +                      EQ     FMT.ED      PREPROCESS EDIT DESCRIPTOR                  FMT       609
                                                                                                                 FMT       610
           345  5044000001               FMT.NX1  SA4    A4+1        NEXT TOKEN                                  FMT       611
                          0400000127 +            EQ     FMT=NX                                                  FMT       612
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    17
        FMT=VAR/FMT=CON SUBLOOP.                                      FMT.ED
  
                                        **        HERE ON EDIT DESCRIPTOR.                                       FMT       614
                                        *                                                                        FMT       615
                                        *         (B2) = PROCESSOR ADDRESS (-FMT.)                               FMT       616
                                                                                                                 FMT       617
           346                           FMT.ED   BSS    0                                                       FMT       618
           346  5110000076 +                      SA1    EDSTA                                                   FMT       619
                          67331                   =B3    B3-1                                                    FMT       620
                               20122              LX1    -ES.TBP                                                 FMT       621
           347  63410                             SB4    X1          SET FOR POSSIBLE DIAGNOSTIC                 FMT       622
                                   0              ERRNZ  18-ES.TBL                                               FMT       623
                     20152                        LX1    ES.TBP                                                  FMT       624
                          10211                   BX2    X1                                                      FMT       625
                               20255              SBIT   X2,ES.DESP                                              FMT       626
           350  0322000363 +                      PL     X2,FMT.ED2  IF NO EDIT DESCRIPTOR YET                   FMT       627
                                                                                                                 FMT       628
                                        *         TEST FOR EXPONENT.                                             FMT       629
                                                                                                                 FMT       630
                          20203                   SBIT   X2,ES.EPP/ES.DESP                                       FMT       631
           351  0322000356 +                      PL     X2,FMT.ED1  IF EXPONENT NOT PERMITTED                   FMT       632
                          43066                   MX0    -CHAR                                                   FMT       633
                               15040              BX0    -X0*X4                                                  FMT       634
           352  7200777772                        SX0    X0-1RE                                                  FMT       635
                          0310000356 +            NZ     X0,FMT.ED1  IF NOT EXPONENT                             FMT       636
           353  20213                             SBIT   X2,ES.MSP/ES.EPP                                        FMT       637
                     0322000356 +                 PL     X2,FMT.ED1  IF NOT PROPERLY FORMED                      FMT       638
                               43201              CLAS=  X2,ES,(EXP)                                             FMT       639
                     12612                        BX6    X1+X2                                                   FMT       640
                          54610                   SA6    A1          RESET TO INDICATE EXPONENT                  FMT       641
           355  0400000334 +                      EQ     FMT.NX                                                  FMT       642
                                                                                                                 FMT       643
           356  6170000000 X             FMT.ED1  FATAL  E.FS25      DESCRIPTOR WITHOUT PUNCTUATION              FMT       644
           357  7160000200                        CLAS=  X6,ES,(ERR)                                             FMT       645
                          12616                   BX6    X1+X6                                                   FMT       646
                               54610              SA6    A1          UPDATE WITH ERROR                           FMT       647
           360  0100000556 +                      RJ     AED         ANALYZE THE PREVIOUS EDIT DESCRIPTOR        FMT       648
           361  66331                             =B3    B3+1                                                    FMT       649
                     20466                        LX4    -CHAR                                                   FMT       650
                          0100000700 +            RJ     RED         RESTART EDIT DESCRIPTOR STATUS              FMT       651
           362  0400000334 +                      EQ     FMT.NX      REPROCESS                                   FMT       652
                                                                                                                 FMT       653
           363  43066                    FMT.ED2  MX0    -CHAR                                                   FMT       654
                     15040                        BX0    -X0*X4                                                  FMT       655
                          7200777757              SX0    X0-1RP                                                  FMT       656
           364  0300000421 +                      ZR     X0,FMT.P    IF SCALE FACTOR                             FMT       657
                          43066                   MX0    -ES.SCL                                                 FMT       658
                                                  LX1    -ES.SCP                                                 FMT       659
                               11101              BX1    X0*X1       CLEAR OLD STATE                             FMT       660
                                                  LX1    ES.SCP                                                  FMT       661
           365  7160040004                        CLAS=  X6,ES,(DS,DES)                                          FMT       662
                          12616                   BX6    X1+X6                                                   FMT       663
                               54610              SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT       664
           366  10166                             BX1    X6                                                      FMT       665
                     20651                        SBIT   X6,ES.SGNP                                              FMT       666
                          0326000370 +            PL     X6,FMT.ED3  IF NO SIGNED REPEAT COUNT                   FMT       667
           367  6170000000 X                      FATAL  E.FS06                                                  FMT       668
           370  0222000371 +             FMT.ED3  JP     B2+FMT.                                                 FMT       669
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    18
        FMT. - EDIT DESCRIPTOR PROCESSORS.                            FMT.RPT 
  
                                        **        HERE ON EDIT DESCRIPTOR WHICH ALLOW A REPEAT COUNT.            FMT       672
                                        *         (A,D,E,F,G,I,L,O,R,Z)                                          FMT       673
                                                                                                                 FMT       674
           371                           FMT.     BSS    0                                                       FMT       675
                                                                                                                 FMT       676
           371                           FMT.R    BSS    0                                                       FMT       677
           371  7130100000                        CLAS=  X3,ES,(WR)                                              FMT       678
                          0400000373 +            EQ     FMT.ANSI                                                FMT       679
                                                                                                                 FMT       680
           372                           FMT.O    BSS    0                                                       FMT       681
           372                           FMT.Z    BSS    0                                                       FMT       682
           372  7130101000                        CLAS=  X3,ES,(WR,PP)                                           FMT       683
           373  6170000000 X             FMT.ANSI ANSI   E.FS08      O,R,Z ARE NON-ANSI                          FMT       684
           374  0400000402 +                      EQ     FMT.RPT                                                 FMT       685
                                                                                                                 FMT       686
           375                           FMT.A    BSS    0                                                       FMT       687
           375  7130000000                        SX3    0                                                       FMT       688
                          0400000402 +            EQ     FMT.RPT                                                 FMT       689
                                                                                                                 FMT       690
           376                           FMT.D    BSS    0                                                       FMT       691
           376                           FMT.F    BSS    0                                                       FMT       692
           376  5130000717 +                      CLAS=  X3,ES,(WR,PP,PR,SP)                                     FMT       693
                          0400000402 +            EQ     FMT.RPT                                                 FMT       694
                                                                                                                 FMT       695
           377                           FMT.E    BSS    0                                                       FMT       696
           377                           FMT.G    BSS    0                                                       FMT       697
           377  5130000720 +                      CLAS=  X3,ES,(WR,PP,PR,EP,SP)                                  FMT       698
                          0400000402 +            EQ     FMT.RPT                                                 FMT       699
                                                                                                                 FMT       700
           400                           FMT.I    BSS    0                                                       FMT       701
           400  7130101000                        CLAS=  X3,ES,(WR,PP)                                           FMT       702
                          0400000402 +            EQ     FMT.RPT                                                 FMT       703
                                                                                                                 FMT       704
           401                           FMT.L    BSS    0                                                       FMT       705
           401  7130100000                        CLAS=  X3,ES,(WR)                                              FMT       706
                                                                                                                 FMT       707
                                        *                (A1) _ EDIT DESCRIPTOR STATUS WORD                      FMT       708
                                        *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                FMT       709
                                        *                (X3) = CURRENT STATUS BITS                              FMT       710
                                                                                                                 FMT       711
           402                           FMT.RPT  BSS    0                                                       FMT       712
           402  12613                             BX6    X1+X3       MERGE IN STATUS BITS                        FMT       713
                     54610                        SA6    A1                                                      FMT       714
                          0400000334 +            EQ     FMT.NX                                                  FMT       715
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    19
        FMT. - EDIT DESCRIPTOR PROCESSORS.                            FMT.NRPT
  
                                        **        HERE ON EDIT DESCRIPTORS WHICH DISALLOW REPEAT COUNTS.         FMT       717
                                        *         (BN,BZ,P,S,SP,SS,T,TL,TR,X)                                    FMT       718
                                                                                                                 FMT       719
                                                                                                                 FMT       720
                                        **        HERE ON *BN* OR *BZ*.                                          FMT       721
                                        *                                                                        FMT       722
                                        *                (A1) _ EDIT DESCRIPTOR STATUS WORD                      FMT       723
                                        *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                FMT       724
                                        *                (B3) = COUNT OF REMAINING CHARACTERS IN (X4)            FMT       725
                                                                                                                 FMT       726
           403                           FMT.B    BSS    0                                                       FMT       727
           403  0530000407 +                      NZ     B3,FMT.B2   IF MORE CHARACTERS IN STRING                FMT       728
                          5024000001              SA2    A4+1        FETCH NEXT TOKEN                            FMT       729
           404  6222777772                        SB2    X2-O.CONS                                               FMT       730
                          0420000406 +            ZR     B2,FMT.B1   IF CONSTANT TOKEN                           FMT       731
           405  6222777766                        SB2    X2-O.VAR                                                FMT       732
                          0520000407 +            NZ     B2,FMT.B2   IF NOT VARIABLE TOKEN                       FMT       733
           406  5044000001               FMT.B1   SA4    A4+1                                                    FMT       734
                          0100000666 +            RJ     PFC         PROCESS STRING (FROM TOKEN)                 FMT       735
           407  5130000000 X             FMT.B2   SA3    FILL.                                                   FMT       736
                          20406                   LX4    CHAR                                                    FMT       737
                               43066              MX0    -CHAR                                                   FMT       738
           410  15240                             BX2    -X0*X4      EXTRACT NEXT CHARACTER                      FMT       739
                     22002                        LX0    X2                                                      FMT       740
                          20060                   LX0    8*CHAR                                                  FMT       741
                               12630              BX6    X3+X0                                                   FMT       742
           411  54630                             SA6    A3          UPDATE FOR POSSIBLE DIAGNOSTIC              FMT       743
                     20466                        LX4    -CHAR       RESTORE                                     FMT       744
                          0302000477 +            ZR     X2,FMT.INV  IF *B* ONLY                                 FMT       745
           412  67331                             =B3    B3-1                                                    FMT       746
                     20406                        LX4    CHAR                                                    FMT       747
                          6222777761              SB2    X2-1RN                                                  FMT       748
           413  0420000415 +                      ZR     B2,FMT.B3   IF *BN*                                     FMT       749
                          6222777745              SB2    X2-1RZ                                                  FMT       750
           414  0420000415 +                      ZR     B2,FMT.B3   IF *BZ*                                     FMT       751
                          0400000477 +            EQ     FMT.INV     INVALID CODE                                FMT       752
                                                                                                                 FMT       753
           415  20152                    FMT.B3   SBIT   X1,ES.RPTP                                              FMT       754
                     0321000417 +                 PL     X1,FMT.B4   IF NOT REPEAT COUNT                         FMT       755
           416  6170000000 X                      FATAL  E.FS04                                                  FMT       756
           417  20122                    FMT.B4   LX1    ES.RPTL+ES.RPTP                                         FMT       757
                     5130000721 +                 CLAS=  X3,ES,(FIN,WLD)                                         FC5A161    29
                               12613              BX6    X1+X3                                                   FMT       759
           420  5061000000                        SA6    A1+         UPDATE                                      FMT       760
                          0400000334 +            EQ     FMT.NX                                                  FMT       761
                                                                                                                 FMT       762
                                        **        HERE ON *P*.                                                   FMT       763
                                        *                                                                        FMT       764
                                        *                (A1) _ EDIT DESCRIPTOR STATUS WORD                      FMT       765
                                        *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                FMT       766
                                        *                (B3) = COUNT OF REMAINING CHARACTERS IN (X4)            FMT       767
                                                                                                                 FMT       768
           421                           FMT.P    BSS    0                                                       FMT       769
           421  10011                             BX0    X1                                                      FMT       770
                     20047                        SBIT   X0,ES.SFP                                               FMT       771
                          0320000424 +            PL     X0,FMT.P1   IF NOT ALREADY A SCALE FACTOR               FMT       772
           422  7160000200                        CLAS=  X6,ES,(ERR)                                             FMT       773
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    20
        FMT. - EDIT DESCRIPTOR PROCESSORS.                            FMT.NRPT
  
                          12661                   BX6    X6+X1                                                   FMT       774
                               54610              SA6    A1          REFLECT THE ERROR                           FMT       775
           423  6170000000 X                      FATAL  E.FS25                                                  FMT       776
           424  43066                    FMT.P1   MX0    -ES.SCL                                                 FMT       777
                                                  LX1    -ES.SCP                                                 FMT       778
                     11101                        BX1    X0*X1       CLEAR OLD STATE                             FMT       779
                                                  LX1    ES.SCP                                                  FMT       780
                          5120000722 +            CLAS=  X2,ES,(SS,SF)                                           FMT       781
           425  12612                             BX6    X1+X2                                                   FMT       782
                     20652                        SBIT   X6,ES.RPTP                                              FMT       783
                          0336000427 +            MI     X6,FMT.P2   IF SCALE FACTOR COUNT PRESENT               FMT       784
           426  6170000000 X                      FATAL  E.FS07                                                  FMT       785
           427  20622                    FMT.P2   LX6    ES.RPTL+ES.RPTP                                         FMT       786
                     5120000723 +                 CLAS=  X2,ES,(SGN,RPT)                                         FMT       787
                               15662              BX6    -X2*X6      CLEAR ES.RPT AND ES.SGN                     FC5A234     5
           430  54610                             SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT       789
                     76610                        =X6    1                                                       FMT       790
                          5160000073 +            SA6    EDRPT       RESET EDIT DESCRIPTOR REPEAT COUNT          FMT       791
           431  0400000334 +                      EQ     FMT.NX                                                  FMT       792
                                                                                                                 FMT       793
                                        **        HERE ON *S*, *SP*, *SS*.                                       FMT       794
                                        *                                                                        FMT       795
                                        *                (A1) _ EDIT DESCRIPTOR STATUS WORD                      FMT       796
                                        *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                FMT       797
                                        *                (B3) = COUNT OF CHARACTERS REMAINING IN (X4)            FMT       798
                                                                                                                 FMT       799
           432                           FMT.S    BSS    0                                                       FMT       800
           432  0530000436 +                      NZ     B3,FMT.S2   IF MORE CHARACTERS IN STRING                FMT       801
                          5024000001              SA2    A4+1        FETCH NEXT TOKEN                            FMT       802
           433  6222777772                        SB2    X2-O.CONS                                               FMT       803
                          0420000435 +            ZR     B2,FMT.S1   IF CONSTANT TOKEN                           FMT       804
           434  6222777766                        SB2    X2-O.VAR                                                FMT       805
                          0520000436 +            NZ     B2,FMT.S2   IF NOT VARIABLE TOKEN                       FMT       806
           435  5044000001               FMT.S1   SA4    A4+1                                                    FMT       807
                          0100000666 +            RJ     PFC         PROCESS STRING (FROM TOKEN)                 FMT       808
           436  5130000000 X             FMT.S2   SA3    FILL.                                                   FMT       809
                          20406                   LX4    CHAR                                                    FMT       810
                               43066              MX0    -CHAR                                                   FMT       811
           437  15240                             BX2    -X0*X4      EXTRACT NEXT CHARACTER                      FMT       812
                     22002                        LX0    X2                                                      FMT       813
                          20060                   LX0    8*CHAR                                                  FMT       814
                               12630              BX6    X3+X0                                                   FMT       815
           440  54630                             SA6    A3          UPDATE FOR POSSIBLE DIAGNOSTIC              FMT       816
                     6133000001                   SB3    B3+1                                                    FMT       817
                               20466              LX4    -CHAR       RESTORE                                     FMT       818
           441  0302000445 +                      ZR     X2,FMT.S3   IF *S*                                      FMT       819
                          67331                   =B3    B3-1                                                    FMT       820
                               20406              LX4    CHAR                                                    FMT       821
           442  6222777757                        SB2    X2-1RP                                                  FMT       822
                          0420000445 +            ZR     B2,FMT.S3   IF *SP*                                     FMT       823
           443  6222777754                        SB2    X2-1RS                                                  FMT       824
                          0420000445 +            ZR     B2,FMT.S3   IF *SS*                                     FMT       825
           444  6133777776                        SB3    B3-1                                                    FMT       826
                          0400000477 +            EQ     FMT.INV     INVALID CODE                                FMT       827
                                                                                                                 FMT       828
           445  20152                    FMT.S3   SBIT   X1,ES.RPTP                                              FMT       829
                     0321000447 +                 PL     X1,FMT.S4   IF NOT REPEAT COUNT                         FMT       830
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    21
        FMT. - EDIT DESCRIPTOR PROCESSORS.                            FMT.NRPT
  
           446  6170000000 X                      FATAL  E.FS04                                                  FMT       831
           447  20122                    FMT.S4   LX1    ES.RPTL+ES.RPTP                                         FMT       832
                     5130000721 +                 CLAS=  X3,ES,(FIN,WLD)                                         FC5A161    30
                               12613              BX6    X1+X3                                                   FMT       834
           450  54610                             SA6    A1          UPDATE                                      FMT       835
                     67331                        =B3    B3-1                                                    FMT       836
                          0400000334 +            EQ     FMT.NX                                                  FMT       837
                                                                                                                 FMT       838
                                        **        HERE ON *T*, *TL* OR *TR*.                                     FMT       839
                                        *                                                                        FMT       840
                                        *                (A1) _ EDIT DESCRIPTOR STATUS WORD                      FMT       841
                                        *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                FMT       842
                                        *                (B3) = COUNT OF CHARACTERS REMAINING IN (X4)            FMT       843
                                                                                                                 FMT       844
           451                           FMT.T    BSS    0                                                       FMT       845
           451  0530000455 +                      NZ     B3,FMT.T2   IF MORE CHARACTERS IN STRING                FMT       846
                          5024000001              SA2    A4+1        FETCH NEXT TOKEN                            FMT       847
           452  6222777772                        SB2    X2-O.CONS                                               FMT       848
                          0420000454 +            ZR     B2,FMT.T1   IF CONSTANT TOKEN                           FMT       849
           453  6222777766                        SB2    X2-O.VAR                                                FMT       850
                          0520000455 +            NZ     B2,FMT.T2   IF NOT VARIABLE TOKEN                       FMT       851
           454  5044000001               FMT.T1   SA4    A4+1                                                    FMT       852
                          0100000666 +            RJ     PFC         PROCESS STRING (FROM TOKEN)                 FMT       853
           455  5130000000 X             FMT.T2   SA3    FILL.                                                   FMT       854
                          20406                   LX4    CHAR                                                    FMT       855
                               43066              MX0    -CHAR                                                   FMT       856
           456  15240                             BX2    -X0*X4      EXTRACT NEXT CHARACTER                      FMT       857
                     22002                        LX0    X2                                                      FMT       858
                          20060                   LX0    8*CHAR                                                  FMT       859
                               12630              BX6    X3+X0                                                   FMT       860
           457  54630                             SA6    A3          UPDATE FOR POSSIBLE DIAGNOSTIC              FMT       861
                     6133000001                   SB3    B3+1                                                    FMT       862
                               20466              LX4    -CHAR       RESTORE                                     FMT       863
           460  43301                             CLAS=  X3,ES,(T)                                               FMT       864
                          0302000467 +            ZR     X2,FMT.T3   IF *T*                                      FMT       865
           461  5150000716 +                      SA5    ="NUM09"                                                FMT       866
                          63220                   SB2    X2                                                      FMT       867
                               22525              LX5    X5,B2                                                   FMT       868
           462  0335000467 +                      MI     X5,FMT.T3   IF *TNNNN*                                  FMT       869
                          67331                   =B3    B3-1                                                    FMT       870
                               20406              LX4    CHAR                                                    FMT       871
           463  43301                             CLAS=  X3,ES,(TL)                                              FMT       872
                          6222777763              SB2    X2-1RL                                                  FMT       873
           464  0420000467 +                      ZR     B2,FMT.T3   IF *TL*                                     FMT       874
                          43301                   CLAS=  X3,ES,(TR)                                              FMT       875
           465  6222777755                        SB2    X2-1RR                                                  FMT       876
                          0420000467 +            ZR     B2,FMT.T3   IF *TR*                                     FMT       877
           466  6133777776                        SB3    B3-1                                                    FMT       878
                          0400000477 +            EQ     FMT.INV     INVALID CODE                                FMT       879
                                                                                                                 FMT       880
           467  20152                    FMT.T3   SBIT   X1,ES.RPTP                                              FMT       881
                     0321000471 +                 PL     X1,FMT.T4   IF NOT REPEAT COUNT                         FMT       882
           470  6170000000 X                      FATAL  E.FS04                                                  FMT       883
           471  20122                    FMT.T4   LX1    ES.RPTL+ES.RPTP                                         FMT       884
                     12613                        BX6    X1+X3                                                   FMT       885
                          54610                   SA6    A1          UPDATE                                      FMT       886
                               67331              =B3    B3-1                                                    FMT       887
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    22
        FMT. - EDIT DESCRIPTOR PROCESSORS.                            FMT.NRPT
  
           472  0400000334 +                      EQ     FMT.NX                                                  FMT       888
                                                                                                                 FMT       889
                                        **        HERE ON *X*.                                                   FMT       890
                                        *                                                                        FMT       891
                                        *                (A1) _ EDIT DESCRIPTOR STATUS WORD                      FMT       892
                                        *                (X1) = EDIT DESCRIPTOR STATUS (PREVIOUS)                FMT       893
                                                                                                                 FMT       894
           473                           FMT.X    BSS    0                                                       FMT       895
           473  20152                             SBIT   X1,ES.RPTP                                              FMT       896
                     0331000475 +                 MI     X1,FMT.X1   IF COUNT PRESENT                            FMT       897
           474  6170000000 X                      FATAL  E.FS07      COUNT MISSING                               FMT       898
           475  20122                    FMT.X1   LX1    ES.RPTL+ES.RPTP                                         FMT       899
                     7120000100                   CLAS=  X2,ES,(FIN)                                             FMT       900
                               12612              BX6    X1+X2                                                   FMT       901
           476  5061000000                        SA6    A1+         UPDATE EDIT DESCRIPTOR STATUS               FMT       902
                          0400000334 +            EQ     FMT.NX                                                  FMT       903
  
  
  
  
                                        *         HERE ON ALL ILLEGAL CHARACTER CODES.                           FMT       905
                                                                                                                 FMT       906
           477                           FMT.C    BSS    0                                                       FMT       907
           477                           FMT.H    BSS    0                                                       FMT       908
           477                           FMT.J    BSS    0                                                       FMT       909
           477                           FMT.K    BSS    0                                                       FMT       910
           477                           FMT.M    BSS    0                                                       FMT       911
           477                           FMT.N    BSS    0                                                       FMT       912
           477                           FMT.Q    BSS    0                                                       FMT       913
           477                           FMT.U    BSS    0                                                       FMT       914
           477                           FMT.V    BSS    0                                                       FMT       915
           477                           FMT.W    BSS    0                                                       FMT       916
           477                           FMT.Y    BSS    0                                                       FMT       917
           477                           FMT.INV  BSS    0                                                       FMT       918
           477  6170000000 X                      FATAL  E.FS14                                                  FMT       919
           500  0400000323 +                      EQ     FMT=ILL1                                                FC50086    13
                                                                                                                 FMT       924
                                                                                                                 FMT       925
           501  0400400501 +             FMT.ILL  EQ     "BLOWUP"    NON ALPHANUMERIC FOUND IN O.VAR OR O.CONS   FMT       926
                                                                                                                 FMT       927
                                -270              ERRPL  FMT.ILL-FMT.-400B                                       FMT       928
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    23
        FMT. - DIGIT STRING PROCESSOR.                                FMT.DIG 
  
                                        **        HERE ON DIGIT STRING.                                          FMT       931
                                        *                                                                        FMT       932
                                        *                (B3) = COUNT OF CHARACTERS REMAINING IN CURRENT TOKEN   FMT       933
                                        *                (A4) _ CURRENT TOKEN IN T.TB                            FMT       934
                                        *                (X4) = CHARS OF CURRENT TOKEN (CURRENT CHAR LOW ORDER)  FMT       935
                                        *                (X7) = CURRENT BUILD WORD                               FMT       936
                                        *                (B5) = BUILD WORD SHIFT COUNT                           FMT       937
                                                                                                                 FMT       938
           502                           FMT.DIG  BSS    0                                                       FMT       939
           502  5150000716 +                      SA5    ="NUM09"    FOR DIGIT TEST                              FMT       940
                          7160000000              SX6    0           INITIALIZE BINARY WORD                      FMT       941
                                                                                                                 FC50555     9
           503  0430000510 +             DIG      ZR     B3,DIG1     IF CURRENT TOKEN USED UP                    FMT       942
                          43066                   MX0    -CHAR                                                   FMT       943
                               15240              BX2    -X0*X4      EXTRACT CHARACTER                           FMT       944
           504  63220                             SB2    X2                                                      FMT       945
                     22325                        LX3    B2,X5                                                   FMT       946
                          0323000517 +            PL     X3,DIG5     IF NOT DIGIT                                FMT       947
           505  22116                             LX1    B1,X6       FORMER BINARY *2                            FMT       948
                     7202777744                   SX0    X2-1R0                                                  FMT       949
                               20603              LX6    3           FORMER BINARY *8                            FMT       950
           506  36661                             IX6    X6+X1       EFFECTIVE MULTIPLY BY 10                    FMT       951
                     36660                        IX6    X6+X0       ADD IN CURRENT DIGIT                        FMT       952
                          67331                   =B3    B3-1                                                    FMT       953
                               20406              LX4    CHAR                                                    FMT       954
           507  0400000503 +                      EQ     DIG         CONTINUE                                    FMT       955
                                                                                                                 FMT       956
                                        *         TEST FOR CONTINUATION TOKEN                                    FMT       957
                                                                                                                 FMT       958
           510  5014000001               DIG1     SA1    A4+1        FETCH NEXT TOKEN                            FMT       959
                          6221777772              SB2    X1-O.CONS                                               FMT       960
           511  0420000513 +                      ZR     B2,DIG2     IF CONSTANT TOKEN                           FMT       961
                          6221777766              SB2    X1-O.VAR                                                FMT       962
           512  0520000517 +                      NZ     B2,DIG5     IF NOT VARIABLE TOKEN                       FMT       963
                                                                                                                 FC50555    10
           513  5044000001               DIG2     SA4    A4+1                                                    FMT       964
                          5160000555 +            SA6    DIGA        PRESERVE                                    FMT       965
           514  0100000666 +                      RJ     PFC         PROCESS STRING (FROM TOKEN)                 FMT       966
           515  5110000555 +                      SA1    DIGA                                                    FMT       967
                          20406                   LX4    CHAR                                                    FMT       968
                               10611              BX6    X1                                                      FMT       969
           516  0400000503 +                      EQ     DIG         CONTINUE                                    FMT       970
                                                                                                                 FMT       971
                                        *         ANALYZE THE DESCRIPTOR STATUS                                  FMT       972
                                                                                                                 FMT       973
           517  5110000076 +             DIG5     SA1    EDSTA                                                   FMT       974
                          20466                   LX4    -CHAR       RESTORE                                     FMT       975
                               43066              MX0    -ES.SCL                                                 FMT       976
           520  10211                             BX2    X1                                                      FMT       977
                     20122                        LX1    -ES.TBP                                                 FMT       978
                          63410                   SB4    X1          SET FOR POSSIBLE DIAGNOSTIC                 FMT       979
                                   0              ERRNZ  18-ES.TBL                                               FMT       980
                               20152              LX1    ES.TBP                                                  FMT       981
           521  20264                             SBIT   X2,ES.ERRP                                              FMT       982
                     0332000334 +                 MI     X2,FMT.NX   IF PREVIOUS ERROR, IGNORE                   FMT       983
                               20202              SBIT   X2,ES.ISP/ES.ERRP                                       FMT       984
           522  0322000526 +                      PL     X2,DIG10    IF NOT IN INITIAL STATE                     FMT       985
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    24
        FMT. - DIGIT STRING PROCESSOR.                                FMT.DIG 
  
                                                                                                                 FC50555    11
                                         DIG7     LX1    -ES.SCP                                                 FMT       986
           523  11101                             BX1    X0*X1       CLEAR STATUS CODE                           FMT       987
                     5120000724 +                 CLAS=  X2,ES,(RPT,RS)                                          FMT       988
                                                  LX1    ES.SCP                                                  FMT       989
           524  5160000073 +                      SA6    EDRPT       MUST BE REPEAT COUNT                        FMT       990
                          12612                   BX6    X1+X2                                                   FMT       991
                               54610              SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT       992
           525  0400000334 +                      EQ     FMT.NX      CONTINUE PROCESSING                         FMT       993
                                                                                                                 FMT       994
           526  20201                    DIG10    SBIT   X2,ES.SSP/ES.ISP                                        FMT       995
                     0332000523 +                 MI     X2,DIG7     IF SCALE FACTOR STATE (TREAT AS RPT CNT)    FMT       996
                               20201              SBIT   X2,ES.RSP/ES.SSP                                        FMT       997
           527  0322000533 +                      PL     X2,DIG15    IF NOT IN REPEAT COUNT STATE                FMT       998
                          7160000200              CLAS=  X6,ES,(ERR)                                             FMT       999
           530  12616                             BX6    X1+X6                                                   FMT      1000
                     54610                        SA6    A1          UPDATE WITH ERROR FLAG                      FMT      1001
                          6170000000 X            FATAL  E.FS15                                                  FMT      1002
           532  0400000334 +                      EQ     FMT.NX                                                  FMT      1003
                                                                                                                 FMT      1004
           533  20201                    DIG15    SBIT   X2,ES.DSP/ES.RSP                                        FMT      1005
                     0322000542 +                 PL     X2,DIG20    IF NOT IN EDIT DESCRIPTOR STATE             FMT      1006
                                                  LX1    -ES.SCP                                                 FMT      1007
                               11101              BX1    X0*X1       CLEAR STATUS CODE                           FMT      1008
                                                  LX1    ES.SCP                                                  FMT      1009
           534  20270                             SBIT   X2,ES.FINP/ES.DSP                                       FMT      1010
                     0322000540 +                 PL     X2,DIG16    IF NOT FINISHED                             FMT      1011
           535  6170000000 X                      FATAL  E.FS05                                                  FMT      1012
           536  7120000200                        CLAS=  X2,ES,(ERR)                                             FMT      1013
                          12612                   BX6    X1+X2                                                   FMT      1014
                               54610              SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT      1015
           537  0400000334 +                      EQ     FMT.NX                                                  FMT      1016
                                                                                                                 FMT      1017
           540  7120200002               DIG16    CLAS=  X2,ES,(WF,WS)                                           FMT      1018
                          5160000074 +            SA6    EDWID       MUST BE FIELD WIDTH                         FMT      1019
           541  12612                             BX6    X1+X2                                                   FMT      1020
                     54610                        SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT      1021
                          0400000334 +            EQ     FMT.NX      CONTINUE PROCESSING                         FMT      1022
                                                                                                                 FMT      1023
           542  20201                    DIG20    SBIT   X2,ES.WSP/ES.DSP                                        FMT      1024
                     0322000547 +                 PL     X2,DIG25    IF NOT IN FIELD WIDTH STATE                 FMT      1025
                                                  LX1    -ES.SCP                                                 FMT      1026
                               11101              BX1    X0*X1       CLEAR STATUS CODE                           FMT      1027
           543  5120000725 +                      CLAS=  X2,ES,(MD,MS)                                           FC50555    12
                                                  LX1    ES.SCP                                                  FMT      1029
                          5130000074 +            SA3    EDWID                                                   FMT      1030
           544  37036                             IX0    X3-X6                                                   FMT      1031
                     0320000546 +                 PL     X0,DIG21    IF FIELD WIDTH .GE. M OR D                  FMT      1032
           545  6170000000 X                      WARN   E.FS17                                                  FMT      1033
                                                                                                                 FC50555    13
           546  12612                    DIG21    BX6    X1+X2                                                   FMT      1034
                     54610                        SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT      1035
                          0400000334 +            EQ     FMT.NX      CONTINUE                                    FMT      1036
                                                                                                                 FMT      1037
           547  20201                    DIG25    SBIT   X2,ES.MSP/ES.WSP                                        FMT      1038
                     0322000552 +                 PL     X2,DIG30    IF NOT IN M OR D STATE                      FMT      1039
                               20256              SBIT   X2,ES.EXPP                                              FMT      1040
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    25
        FMT. - DIGIT STRING PROCESSOR.                                FMT.DIG 
  
           550  0322000552 +                      PL     X2,DIG30    IF NOT EXPONENT                             FMT      1041
                          7120010100              CLAS=  X2,ES,(EF,FIN)    MUST BE EXPONENT FIELD                FMT      1042
           551  12612                             BX6    X1+X2                                                   FMT      1043
                     54610                        SA6    A1          UPDATE EDIT DESCRIPTOR STATUS               FMT      1044
                          0400000334 +            EQ     FMT.NX                                                  FMT      1045
                                                                                                                 FMT      1046
           552  7120000200               DIG30    CLAS=  X2,ES,(ERR)                                             FMT      1047
                          12612                   BX6    X1+X2                                                   FMT      1048
                               54610              SA6    A1                                                      FMT      1049
           553  6170000000 X                      FATAL  E.FS15                                                  FMT      1050
           554  0400000334 +                      EQ     FMT.NX                                                  FMT      1051
                                                                                                                 FMT      1052
           555                     1     DIGA     BSS    1           SAVE BINARY CONSTANT                        FMT      1053
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    26
        SUBROUTINES.                                                  AED 
  
                                        **        AED -  ANALYZE EDIT DESCRIPTOR                                 FMT      1056
                                        *                                                                        FMT      1057
                                        *         ANALYZES THE EDIT DESCRIPTOR STATUS WORD TO DETERMINE IF ANY   FMT      1058
                                        *         UNDIAGNOSED ERRORS HAVE OCCURRED.  UPDATES THE CURRENT RECORD  FMT      1059
                                        *         LENGTH WITH THE SIZE OF THE EDIT DESCRIPTOR (* REPEAT COUNT)   FMT      1060
                                        *         JUST PROCESSED.  RESETS EDIT DESCRIPTOR CELLS.                 FMT      1061
                                        *                                                                        FMT      1062
                                        *         USES   X1,X2,X3,X6  B2,B4,B7  A1,A2,A3,A6                      FMT      1063
                                        *                                                                        FMT      1064
                                        *         CALLS  CRL                                                     FMT      1065
                                                                                                                 FMT      1066
                                                                                                                 FMT      1067
           556  0400400556 +             AED      SUBR               ...ENTRY/EXIT...                            FMT      1068
           557  5110000076 +                      SA1    EDSTA       EDIT DESCRIPTOR STATUS WORD                 FMT      1069
                          0301000556 +            ZR     X1,EXIT.    IF NOT EDIT DESCRIPTOR                      FMT      1070
           560  20122                             LX1    -ES.TBP                                                 FMT      1071
                     63410                        SB4    X1          SET IN CASE OF DIAGNOSTIC                   FMT      1072
                                   0              ERRNZ  18-ES.TBL                                               FMT      1073
                          20152                   LX1    ES.TBP                                                  FMT      1074
                               43071              MX0    -ES.TGRPL                                               FMT      1075
           561  20125                             LX1    -ES.TGRPP                                               FMT      1076
                     15010                        BX0    -X0*X1      EXTRACT TAB GROUP BITS                      FMT      1077
                          20147                   LX1    ES.TGRPP                                                FMT      1078
                               20164              SBIT   X1,ES.ERRP                                              FMT      1079
           562  0331000653 +                      MI     X1,AED40    IF ERROR                                    FMT      1080
                          0310000632 +            NZ     X0,AED30    IF TAB EDIT DESCRIPTOR                      FMT      1081
           563  20156                             SBIT   X1,ES.HOLP/ES.ERRP                                      FMT      1082
                     0331000611 +                 MI     X1,AED10    IF HOLLERITH/CHARACTER                      FMT      1083
                               20121              SBIT   X1,ES.SSP/ES.HOLP                                       FMT      1084
           564  0331000653 +                      MI     X1,AED40    IF SCALE FACTOR (ONLY)                      FMT      1085
                          20162                   SBIT   X1,ES.DESP/ES.SSP                                       FMT      1086
           565  0321000624 +                      PL     X1,AED20    IF NO EDIT DESCRIPTOR                       FMT      1087
                          10011                   BX0    X1                                                      FMT      1088
                               20066              SBIT   X0,ES.SFP/ES.DESP                                       FMT      1089
           566  0320000572 +                      PL     X0,AED1     IF NO SCALE FACTOR                          FMT      1090
                          20001                   SBIT   X0,ES.SPP/ES.SFP                                        FMT      1091
           567  0330000572 +                      MI     X0,AED1     IF SCALE FACTOR PERMITTED                   FMT      1092
                          6170000000 X            FATAL  E.FS25                                                  FMT      1093
           571  0400000653 +                      EQ     AED40       FINISH UP                                   FMT      1094
                                                                                                                 FMT      1095
           572  20173                    AED1     SBIT   X1,ES.WRP/ES.DESP                                       FMT      1096
                     0321000611 +                 PL     X1,AED10    IF FIELD WIDTH NOT REQUIRED                 FMT      1097
                               20173              SBIT   X1,ES.WFP/ES.WRP                                        FMT      1098
           573  0331000576 +                      MI     X1,AED2     IF FIELD WIDTH PRESENT                      FMT      1099
                          6170000000 X            FATAL  E.FS13                                                  FMT      1100
           575  0400000653 +                      EQ     AED40       FINISH UP                                   FMT      1101
                                                                                                                 FMT      1102
           576  20106                    AED2     SBIT   X1,ES.PERP/ES.WFP                                       FC50555    14
                     0321000602 +                 PL     X1,AED3     IF *.* DIDNT OCCUR                          FC50555    15
                               20157              SBIT   X1,ES.MDP/ES.PERP                                       FC50555    16
           577  0331000605 +                      MI     X1,AED4     IF M OR D FIELD OCCURED                     FC50555    17
                          6170000000 X            FATAL  E.FS01                                                  FC50555    18
           601  0400000653 +                      EQ     AED40       FINISH UP                                   FC50555    19
                                                                                                                 FC50555    20
           602  20102                    AED3     SBIT   X1,ES.PRP/ES.PERP                                       FC50555    21
                     0321000611 +                 PL     X1,AED10    IF *.* NOT REQUIRED                         FC50555    22
           603  6170000000 X                      FATAL  E.FS23                                                  FMT      1107
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    27
        SUBROUTINES.                                                  AED 
  
           604  0400000653 +                      EQ     AED40       FINISH UP                                   FMT      1108
                                                                                                                 FMT      1109
           605  20112                    AED4     SBIT   X1,ES.EXPP/ES.MDP                                       FC50555    23
                     0321000611 +                 PL     X1,AED10    IF EXPONENT NOT PRESENT                     FMT      1111
                               20101              SBIT   X1,ES.EFP/ES.EXPP                                       FMT      1112
           606  0331000611 +                      MI     X1,AED10    IF EXPONENT FIELD PERMITTED                 FC50555    24
                          6170000000 X            FATAL  E.FS24                                                  FMT      1114
           610  0400000653 +                      EQ     AED40       FINISH UP                                   FMT      1115
                                                                                                                 FMT      1116
                                        *         UPDATE RECORD LENGTH AND TEST FOR ERRORS.                      FMT      1117
                                                                                                                 FMT      1118
           611  5120000073 +             AED10    SA2    EDRPT       EDIT DESCRIPTOR REPEAT COUNT                FMT      1119
                          54110                   SA1    A1          RELOAD STATUS WORD                          FC5A161    31
           612  5130000074 +                      SA3    EDWID       EDIT DESCRIPTOR FIELD WIDTH                 FMT      1120
                          0312000615 +            NZ     X2,AED11    IF REPEAT COUNT NOT ZERO                    FMT      1121
           613  6170000000 X                      FATAL  E.FS10                                                  FMT      1122
           614  7120000001                        SX2    1                                                       FMT      1123
                                                                                                                 FC50555    25
           615  0313000620 +             AED11    NZ     X3,AED12    IF FIELD WIDTH NOT ZERO                     FMT      1124
                          6170000000 X            FATAL  E.FS13                                                  FMT      1125
           617  7130000001                        SX3    1                                                       FMT      1126
                                                                                                                 FC50555    26
           620  42623                    AED12    IX6    X2*X3                                                   FMT      1127
                     20145                        HX1    ES.WLD                                                  FC5A161    32
                          0331000653 +            MI     X1,AED40    IF WIDTHLESS DESCRIPTOR (E.G. *BZ*)         FC5A161    33
           621  5130000071 +                      SA3    FMTRL       CURRENT RECORD LENGTH                       FMT      1128
                          36636                   IX6    X3+X6                                                   FMT      1129
                               54630              SA6    A3          UPDATE RECORD LENGTH                        FMT      1130
           622  0100000656 +                      RJ     CRL         CHECK RECORD LENGTH                         FMT      1131
           623  0400000653 +                      EQ     AED40                                                   FMT      1132
                                                                                                                 FMT      1133
                                        *         HERE WHEN NO EDIT DESCRIPTOR. (MUST BE REPEAT ON O.LP)         FMT      1134
                                                                                                                 FMT      1135
           624  54240                    AED20    SA2    A4          REFETCH TOKEN                               FMT      1136
                     6222777740                   SB2    X2-O.LP                                                 FMT      1137
           625  0420000630 +                      ZR     B2,AED21    IF REPEAT COUNT ON *(*                      FMT      1138
                          6170000000 X            FATAL  E.FS22                                                  FMT      1139
           627  0400000653 +                      EQ     AED40       FINISH UP                                   FC50755     6
                                                                                                                 FC50555    27
           630  76610                    AED21    =X6    1                                                       FMT      1140
                     5160000074 +                 SA6    EDWID                                                   FMT      1141
                               43600              MX6    0                                                       FMT      1142
           631  5160000076 +                      SA6    EDSTA       CLEAR EDIT DESCRIPTOR STATUS                FMT      1143
                          0400000556 +            EQ     EXIT.                                                   FMT      1144
                                                                                                                 FMT      1145
                                        *         HERE WHEN EDIT DESCRIPTOR IS *T*, *TL* OR *TR*                 FMT      1146
                                                                                                                 FMT      1147
           632  5120000074 +             AED30    SA2    EDWID       CHARACTER POSITION                          FMT      1148
                          20163                   SBIT   X1,ES.WFP/ES.ERRP                                       FMT      1149
           633  0321000634 +                      PL     X1,AED31    IF NO CHARACTER POSITION SPECIFIED          FMT      1150
                          0312000636 +            NZ     X2,AED32    IF CHARACTER POSITION NOT NULL              FMT      1151
                                                                                                                 FC50555    28
           634  6170000000 X             AED31    FATAL  E.FS02                                                  FMT      1152
           635  0400000653 +                      EQ     AED40       FINISH UP                                   FMT      1153
                                                                                                                 FMT      1154
           636  5130000071 +             AED32    SA3    FMTRL       CURRENT RECORD LENGTH                       FMT      1155
                          20143                   SBIT   X1,ES.TP/ES.WFP                                         FMT      1156
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    28
        SUBROUTINES.                                                  AED 
  
           637  0321000645 +                      PL     X1,AED34    IF NOT *T*                                  FMT      1157
                          7262777776              SX6    X2-1                                                    FC50026     4
           640  54630                             SA6    A3          UPDATE RL                                   FC5A126    39
                     66260                        SB2    B6          PAREN NESTING LEVEL                         FC50625     6
                          43122                   MX1    18                                                      FC50625     7
                               20144              LX1    18+18                                                   FC50625     8
           641  0602000653 +                      LE     B2,AED40    IF NO LEVELS - FINISH UP                    FC50941     6
                                                                                                                 FC50625     9
           642  5132000056 +             AED33    SA3    B2+LVSTAK-1                                             FC50625    10
                          15631                   BX6    -X1*X3      CLEAR LENGTH                                FC50625    11
                               54630              SA6    A3                                                      FC50625    12
           643  6122777776                        SB2    B2-1                                                    FC50625    13
                          0520000642 +            NZ     B2,AED33    IF MORE LEVELS TO CLEAR                     FC50625    14
           644  0400000653 +                      EQ     AED40       FINISH UP                                   FMT      1163
                                                                                                                 FMT      1164
           645  20101                    AED34    SBIT   X1,ES.TLP/ES.TP                                         FMT      1165
                     0321000652 +                 PL     X1,AED36    IF NOT *TL*                                 FMT      1166
                               37632              IX6    X3-X2                                                   FMT      1167
           646  0326000651 +                      PL     X6,AED35    IF NOT TAB LEFT PAST FRONT OF RECORD        FMT      1168
                          6170000000 X            TRIV   E.FS09                                                  FMT      1169
           650  7160000000                        SX6    0                                                       FMT      1170
                                                                                                                 FC50555    29
           651  54630                    AED35    SA6    A3                                                      FMT      1171
                     0400000653 +                 EQ     AED40       FINISH UP                                   FMT      1172
                                                                                                                 FMT      1173
           652  36632                    AED36    IX6    X3+X2                                                   FMT      1174
                     54630                        SA6    A3                                                      FMT      1175
                          0100000656 +            RJ     CRL         CHECK RECORD LENGTH                         FMT      1176
                                                                                                                 FMT      1177
           653  43600                    AED40    MX6    0                                                       FMT      1178
                     54610                        SA6    A1                                                      FMT      1179
                          76610                   =X6    1                                                       FMT      1180
           654  5160000074 +                      SA6    EDWID                                                   FMT      1181
                          55661                   =A6    A6-EDWID+EDRPT                                          FMT      1182
           655  0400000556 +                      EQ     EXIT.                                                   FMT      1183
  
  
  
  
                                        **        CRL -  CHECK RECORD LENGTH                                     FMT      1185
                                        *                                                                        FMT      1186
                                        *         CHECKS RECORD LENGTH AND OUTPUTS DIAGNOSTIC IF LENGTH IS       FMT      1187
                                        *         .GT. -- 137(WARNING) OR 131,071(FATAL).                        FMT      1188
                                        *                                                                        FMT      1189
                                        *         ENTRY  (X6) = RECORD LENGTH                                    FMT      1190
                                        *                                                                        FMT      1191
                                        *         EXIT   DIAGNOSTIC OUTPUT IF NECESSARY                          FMT      1192
                                        *                                                                        FMT      1193
                                        *         USES   X3,X6  B3,B7  A3                                        FMT      1194
                                                                                                                 FMT      1195
                                                                                                                 FMT      1196
           656  0400400656 +             CRL      SUBR               ...ENTRY/EXIT...                            FMT      1197
           657  6236777565                        SB3    X6-137-1                                                FMT      1198
                          5130000072 +            SA3    FMTRLC                                                  FC5A161    34
           660  0730000656 +                      MI     B3,EXIT.    IF COUNT IS .LE. 137                        FMT      1200
                          6170000000 X            SB7    E.FS12                                                  FMT      1201
           661  21621                             AX6    17                                                      FMT      1202
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    29
        SUBROUTINES.                                                  CRL 
  
                     0306000663 +                 ZR     X6,CRL1     IF COUNT .LE. 131,071                       FMT      1203
           662  6170000000 X                      SB7    E.FS11                                                  FMT      1204
                                                                                                                 FMT      1205
           663  63337                    CRL1     SB3    X3+B7                                                   FMT      1206
                     0430000656 +                 ZR     B3,EXIT.    IF ERROR ALREADY DETECTED                   FMT      1207
                               77607              SX6    -B7                                                     FMT      1208
           664  54630                             SA6    A3          UPDATE RECORD LENGTH ERROR                  FMT      1209
                     0100000000 X                 WARN   B7          OUTPUT RECORD LENGTH DIAGNOSTIC             FMT      1210
           665  0400000656 +                      EQ     EXIT.                                                   FMT      1211
  
  
  
  
                                        **        PFC -  PROCESS FORMAT CHARACTER(S).                            FMT      1213
                                        *                                                                        FMT      1214
                                        *         ENTRY  (X4) = TOKEN TO PROCESS.                                FMT      1215
                                        *                (X7) = CURRENT BUILD WORD.                              FMT      1216
                                        *                (B5) = CURRENT SHIFT POSITION.                          FMT      1217
                                        *                                                                        FMT      1218
                                        *         EXIT   (X4) = STRING                                           FMT      1219
                                        *                (X7) = UPDATED                                          FMT      1220
                                        *                (B3) = STRING COUNT                                     FMT      1221
                                        *                (B5) = UPDATED                                          FMT      1222
                                        *                                                                        FMT      1223
                                        *         USES   X0,X2,X3,X4  B3                                         FMT      1224
                                                                                                                 FMT      1225
                                                                                                                 FMT      1226
           666  0400400666 +             PFC      SUBR               ...ENTRY/EXIT...                            FMT      1227
           667  43052                             MX0    TB.TOCL                                                 FMT      1228
                     11304                        BX3    X0*X4       CHARACTERS ONLY                             FMT      1229
                          43066                   MX0    -CHAR                                                   FMT      1230
                               10433              BX4    X3                                                      FMT      1231
           670  66300                             =B3    0           INITIALIZE                                  FMT      1232
                     20306                        LX3    CHAR                                                    FMT      1233
                          15230                   BX2    -X0*X3                                                  FMT      1234
           671  6133000001               PFC1     SB3    B3+1                                                    FMT      1235
                          22252                   LX2    X2,B5                                                   FMT      1236
                               12772              BX7    X7+X2       MERGE INTO BUILD WORD                       FMT      1237
           672  6155777771                        SB5    B5-CHAR                                                 FMT      1238
                          0750000675 +            MI     B5,PFC2     IF BUILD WORD FULL                          FMT      1239
           673  20306                             LX3    CHAR                                                    FMT      1240
                     15230                        BX2    -X0*X3                                                  FMT      1241
                          0302000666 +            ZR     X2,EXIT.    IF STRING PROCESSED                         FMT      1242
           674  0400000671 +                      EQ     PFC1                                                    FMT      1243
                                                                                                                 FMT      1244
           675  54771                    PFC2     =A7    A7+1        STORE BUILD WORD                            FMT      1245
                     43700                        MX7    0           RESET                                       FMT      1246
                          6150000066              SB5    9*CHAR      SHIFT COUNT                                 FMT      1247
           676  20306                             LX3    CHAR                                                    FMT      1248
                     15230                        BX2    -X0*X3                                                  FMT      1249
                          0302000666 +            ZR     X2,EXIT.    IF STRING PROCESSED                         FMT      1250
           677  0400000671 +                      EQ     PFC1        CONTINUE                                    FMT      1251
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    30
        SUBROUTINES.                                                  RED 
  
                                        **        RED -  RESTART EDIT DESCRIPTOR                                 FMT      1253
                                        *                                                                        FMT      1254
                                        *         CALLED TO RESTART THE EDIT DESCRIPTOR STATUS WORD WHEN         FMT      1255
                                        *         A PUNCTUATION ERROR (OR LEGAL LACK OF PUNCTUATION) OCCURRED.   FMT      1256
                                        *                                                                        FMT      1257
                                        *         ENTRY  (X4) = CHARACTERS TO PROCESS                            FMT      1258
                                        *                (A4) _ T.TB ENTRY                                       FMT      1259
                                        *                (B3) = NUMBER OF CHARACTERS REMAINING IN (X4)           FMT      1260
                                        *                                                                        FMT      1261
                                        *         USES   X1,X6  A6                                               FMT      1262
                                                                                                                 FMT      1263
                                                                                                                 FMT      1264
           700  0400400700 +             RED      SUBR               ...ENTRY/EXIT...                            FMT      1265
           701  7110000040                        CLAS=  X1,ES,(IS)                                              FMT      1266
                          74640                   SX6    A4                                                      FMT      1267
                               20652              LX6    ES.TBP                                                  FMT      1268
           702  12661                             BX6    X6+X1                                                   FMT      1269
                     5160000076 +                 SA6    EDSTA                                                   FMT      1270
           703  0400000700 +                      EQ     EXIT.                                                   FMT      1271
  
  
  
  
                                                  LIST   D                                                       FMT      1273
  
                                        CONTENT OF LITERALS BLOCK.
  
           704  57020104570000000000    .BAD. 
           705  55555555550000000000
           706  00000070000045272000       '  +WP 
           707  00000400005300000000      D  $
           710  55226455172255000000     R" OR
           711  00000000000000146455           L" 
           712  64232422111607000000    "STRING 
           713  00000000000010040104          HDAD
           714  55555555555555555555
           715  40000400007300000000    5 D  >
           716  00000000077740000000        G;5 
           717  00000000000002101400          BHL 
           720  00000000000002105400          BH= 
           721  00000000000020000100          P A 
           722  00000000000004000020          D  P
           723  00000000000001400000          A5
           724  00000000000000400010           5 H
           725  00000000000040000001          5  A
  
           726                                    END                                                            FMT      1274
  
                             74500B CM  STORAGE USED             6754 STATEMENTS     1626 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            6.238 SECONDS        1079 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AED           556   PROGRAM*        9/40     10/05     11/36     13/14     26/13 L
                                            9/50     11/11     12/11     17/35
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    31
        SYMBOLIC REFERENCE TABLE. 
  
        AED1          572   PROGRAM*       26/35     26/37     26/41 L
        AED10         611   PROGRAM*       26/28     26/42     26/56     27/04     27/06     27/12 L
        AED11         615   PROGRAM*       27/15     27/19 L
        AED12         620   PROGRAM*       27/19     27/23 L
        AED2          576   PROGRAM*       26/44     26/48 L
        AED20         624   PROGRAM*       26/32     27/34 L
        AED21         630   PROGRAM*       27/36     27/40 L
        AED3          602   PROGRAM*       26/49     26/55 L
        AED30         632   PROGRAM*       26/26     27/48 L
        AED31         634   PROGRAM*       27/50     27/53 L
        AED32         636   PROGRAM*       27/51     27/56 L
        AED33         642   PROGRAM*       28/09 L   28/13
        AED34         645   PROGRAM*       28/01     28/16 L
        AED35         651   PROGRAM*       28/19     28/23 L
        AED36         652   PROGRAM*       28/17     28/26 L
        AED4          605   PROGRAM*       26/51     27/03 L
        AED40         653   PROGRAM*       26/25     26/39     26/53     27/08     27/30     27/54     28/14     28/30 L
                                           26/30     26/46     27/01     27/25     27/38     28/07     28/24
        ALC             0   EXTERNAL*       1/38 X   15/17
        ANSI=           0   EXTERNAL*       1/53 X   13/04     18/13
        B1=1            0 
        CDD             0   EXTERNAL*       2/02 X   13/22
        CHAR            6   FTX             7/31      7/51     14/13     16/31     19/25     20/45     21/41     29/34
                                            7/32      8/29     14/47     17/20     19/28     20/48     23/14     29/39
                                            7/37     13/28     14/49     17/37     19/31     21/25     23/25     29/41
                                            7/42     13/52     14/50     17/41     20/37     21/26     23/40     29/48
                                            7/43     14/01     16/25     19/21     20/38     21/29     23/47     29/49
                                            7/44     14/05     16/26     19/22     20/41     21/33     29/31
        CRL           656   PROGRAM*       10/14     12/32     27/29     28/28     28/52 L
        CRL1          663   PROGRAM*       29/01     29/04 L
        CT1             0   EXTERNAL*       1/41 X    8/13
        DIG           503   PROGRAM*       23/13 L   23/26     23/42
        DIGA          555   PROGRAM*       23/37 S   23/39     25/13 L
        DIG1          510   PROGRAM*       23/13     23/30 L
        DIG10         526   PROGRAM*       23/57     24/11 L
        DIG15         533   PROGRAM*       24/14     24/21 L
        DIG16         540   PROGRAM*       24/27     24/34 L
        DIG2          513   PROGRAM*       23/32     23/36 L
        DIG20         542   PROGRAM*       24/22     24/40 L
        DIG21         546   PROGRAM*       24/48     24/51 L
        DIG25         547   PROGRAM*       24/41     24/55 L
        DIG30         552   PROGRAM*       24/56     25/01     25/07 L
        DIG5          517   PROGRAM*       23/18     23/34     23/46 L
        DIG7          523   PROGRAM*       24/02 L   24/12
        EDRPT          73   PROGRAM*        5/17 L   11/37     20/18 S   24/06 S   27/12     28/34
        EDSTA          76   PROGRAM*        6/14 L    9/34     11/05     11/27     14/23 S   17/06     26/14     30/18 S
                                            8/33 S   10/32     11/14     13/08     16/06     23/46     27/43 S
        EDWID          74   PROGRAM*        5/18 L   24/35 S   27/14     27/48     28/34
                                           13/50 S   24/46     27/41 S   28/33 S
        ES.ATTRL       41                   5/33 D    5/41
        ES.ATTRP        6                   5/33 D    5/41
        ES.DESM     40000                   5/52 D
        ES.DESP        16                   5/52 D   14/20     17/18     26/31     26/41
                                           11/28     17/13     17/49     26/34
        ES.DSM          4                   6/09 D
        ES.DSP          2                   6/09 D   14/20     17/49     24/21     24/26     24/40
        ES.EFM      10000                   5/54 D
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    32
        SYMBOLIC REFERENCE TABLE. 
  
        ES.EFP         14                   5/54 D   11/28     25/02     27/05
        ES.EPM       4000                   5/55 D
        ES.EPP         13                   5/55 D   17/18     17/24     18/27
        ES.ERRM       200                   6/02 D
        ES.ERRP         7                   6/02 D   23/54     23/56     26/24     26/27     27/49
        ES.EXPM     20000                   5/53 D
        ES.EXPP        15                   5/53 D   11/28     17/26     24/57     27/03     27/05
        ES.FINM       100                   6/03 D
        ES.FINP         6                   6/03 D   14/20     19/42     21/03     24/26     25/02
        ES.HOLP        25                   5/45 D   14/20     26/27     26/29
        ES.ISM         40                   6/06 D
        ES.ISP          5                   6/06 D   23/56     24/11
        ES.MDP         27                   5/43 D   11/28     24/44     26/50     27/03
        ES.MSM          1                   6/11 D
        ES.MSP          0                   6/11 D   17/24     24/44     24/55
        ES.PERM      2000                   5/56 D
        ES.PERP        12                   5/56 D   10/46     11/28     26/48     26/50     26/55
        ES.PPM       1000                   5/57 D
        ES.PPP         11                   5/57 D   10/40     10/46     18/12     18/22     18/27     18/31
        ES.PRM        400                   6/01 D
        ES.PRP         10                   6/01 D   18/22     18/27     26/55
        ES.RPTM    400000                   5/49 D
        ES.RPTP        21                   5/49 D   19/41     20/13     20/56     21/51     22/09     24/04
                                           19/38     20/10     20/14     21/02     21/54     22/12
        ES.RSM         10                   6/08 D
        ES.RSP          3                   6/08 D   24/04     24/13     24/21
        ES.SCL          6                   5/34 D    6/05     17/45     20/04     23/48
        ES.SCP          0                   5/34 D    6/05
        ES.SFP         24                   5/46 D   11/28     19/55     20/08     26/34     26/36
        ES.SGNP        22                   5/48 D   11/15     11/28     17/53     20/14
        ES.SPP         23                   5/47 D   18/22     18/27     26/36
        ES.SSM         20                   6/07 D
        ES.SSP          4                   6/07 D   20/08     24/11     24/13     26/29     26/31
        ES.TBL         22                   5/31 D   10/37     11/09     11/33     13/12     17/10     23/52     26/18
        ES.TBP         52                   5/31 D   10/38     11/31     14/21     17/08     23/50     26/16     30/16
                                           10/35     11/07     13/10     16/09     17/11     23/53     26/19
        ES.TGRPL        3                   5/32 D    5/36     11/28     26/20
        ES.TGRPP       47                   5/32 D    5/36     11/28     26/21     26/23
        ES.TLP         50                   5/38 D   21/42     28/16
        ES.TP          51                   5/37 D   21/34     27/57     28/16
        ES.TRP         47                   5/39 D   21/45
        ES.WFM     200000                   5/50 D
        ES.WFP         20                   5/50 D   11/28     24/34     26/43     26/48     27/49     27/57
        ES.WLDP        26                   5/44 D   19/42     21/03     27/24
        ES.WRM     100000                   5/51 D
        ES.WRP         17                   5/51 D   18/12     18/22     18/27     18/31     26/41     26/43
        ES.WSM          2                   6/10 D
        ES.WSP          1                   6/10 D   24/34     24/40     24/55
        E.FS00          0   EXTERNAL*       1/44 X    7/25
        E.FS01          0   EXTERNAL*       1/44 X   26/52
        E.FS02          0   EXTERNAL*       1/44 X   27/53
        E.FS03          0   EXTERNAL*       1/44 X   11/53
        E.FS04          0   EXTERNAL*       1/44 X   19/40     19/40     21/01     21/01     21/53     21/53
        E.FS05          0   EXTERNAL*       1/44 X   24/28     24/28
        E.FS06          0   EXTERNAL*       1/44 X   17/55
        E.FS07          0   EXTERNAL*       1/44 X   20/12     22/11     22/11
        E.FS08          0   EXTERNAL*       1/45 X   13/04     18/13
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    33
        SYMBOLIC REFERENCE TABLE. 
  
        E.FS09          0   EXTERNAL*       1/45 X   28/20
        E.FS10          0   EXTERNAL*       1/45 X   27/16
        E.FS11          0   EXTERNAL*       1/45 X   29/02
        E.FS12          0   EXTERNAL*       1/45 X   28/56
        E.FS13          0   EXTERNAL*       1/45 X   26/45     27/20
        E.FS14          0   EXTERNAL*       1/45 X   15/34     22/35
        E.FS15          0   EXTERNAL*       1/45 X   24/18     25/10
        E.FS16          0   EXTERNAL*       1/46 X   10/42
        E.FS17          0   EXTERNAL*       1/46 X   24/49     24/49
        E.FS18          0   EXTERNAL*       1/46 X   14/40
        E.FS19          0   EXTERNAL*       1/46 X   14/35
        E.FS20          0   EXTERNAL*       1/46 X    9/39
        E.FS21          0   EXTERNAL*       1/46 X   10/48     10/48
        E.FS22          0   EXTERNAL*       1/46 X   12/09     27/37
        E.FS23          0   EXTERNAL*       1/46 X   26/57     26/57
        E.FS24          0   EXTERNAL*       1/47 X   27/07
        E.FS25          0   EXTERNAL*       1/47 X   11/10     11/34     12/41     13/13     17/31     20/03     26/38
        E.FS26          0   EXTERNAL*       1/47 X    8/37
        FEC.RTN         0   EXTERNAL*       1/41 X   15/24
        FILL.           0   EXTERNAL*       1/47 X   13/03 S   15/33 S   16/40 S   19/20     20/36     21/24
        FMTIDX         75   PROGRAM*        5/19 L    7/20 S    8/12 S   15/03
        FMTJT          47   PROGRAM*        4/55 L   16/41
        FMTRC          56   PROGRAM*        5/11 L   11/38     12/12
        FMTRL          71   PROGRAM*        5/14 L   10/09     11/39     12/30     27/56
                                            8/31 S   10/16 S   12/23     27/26
        FMTRLC         72   PROGRAM*        5/15 L    8/32 S   28/54
        FMT1          104   PROGRAM*        7/24      7/28 L
        FMT2          106   PROGRAM*        7/37 L    7/39
        FMT3          107   PROGRAM*        7/41 L    7/47
        FMT4          112   PROGRAM*        7/41      7/51 L
        FMT5          121   PROGRAM*        7/26      7/28      8/22 L
        FMT=CAT       145   PROGRAM*        4/20     10/03 L
        FMT=CHA       242   PROGRAM*        3/51     13/06 L
        FMT=CHA1      246   PROGRAM*       13/09     13/15 L
        FMT=CHA2      262   PROGRAM*       13/54 L   14/09     14/16
        FMT=CHA3      263   PROGRAM*       13/56 L   14/08     14/15
        FMT=CHA4      267   PROGRAM*       14/06     14/11 L
        FMT=CHA5      272   PROGRAM*       14/07     14/14     14/18 L
        FMT=COL       143   PROGRAM*        4/25      9/49 L
        FMT=COM       135   PROGRAM*        4/24      9/33 L
        FMT=COM1      141   PROGRAM*        9/35      9/38      9/40 L
        FMT=CON       330   PROGRAM*        3/52     16/03 L
        FMT=EOS       275   PROGRAM*        3/47     14/34 L
        FMT=EOS1      277   PROGRAM*       12/35     14/38 L
        FMT=EOS2      301   PROGRAM*       14/36     14/38     14/42 L
        FMT=EOS3      305   PROGRAM*       14/42     15/01 L
        FMT=EOS4      313   PROGRAM*       15/04     15/17 L
        FMT=HOL       242   PROGRAM*        3/48     13/07 L
        FMT=ILL       321   PROGRAM*        3/53      4/01      4/08      4/11      4/14      4/17      4/23     12/55
                                            3/54      4/04      4/09      4/12      4/15      4/18      4/28     15/32 L
                                            3/57      4/07      4/10      4/13      4/16      4/19     10/33
        FMT=ILL1      323   PROGRAM*       15/35 L   15/39     22/36
        FMT=INV       327   PROGRAM*        4/06      4/26      4/27     15/49 L
        FMT=LP        177   PROGRAM*        4/21     11/26 L
        FMT=LP1       203   PROGRAM*       11/30     11/36 L
        FMT=MIN       167   PROGRAM*        4/03     11/04 L
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    34
        SYMBOLIC REFERENCE TABLE. 
  
        FMT=NX        127   PROGRAM*        8/36      9/42     10/24     11/19     11/55     12/42     15/41
                                            9/09 L   10/22     10/54     11/52     12/39     14/24     16/50
        FMT=NX1       133   PROGRAM*        9/21      9/24 L
        FMT=PER       154   PROGRAM*        3/55     10/31 L
        FMT=PER1      162   PROGRAM*       10/41     10/46 L
        FMT=PER2      165   PROGRAM*       10/44     10/47     10/51 L
        FMT=PL        167   PROGRAM*        4/02     11/03 L
        FMT=PL1       173   PROGRAM*       11/06     11/13 L
        FMT=QHO       237   PROGRAM*        3/49     12/57 L
        FMT=RLC       235   PROGRAM*        3/50     12/51 L
        FMT=RP        214   PROGRAM*        4/22     12/03 L
        FMT=RP1       217   PROGRAM*       12/04     12/08     12/11 L
        FMT=RP2       224   PROGRAM*       12/14     12/17     12/23 L
        FMT=SLA       145   PROGRAM*        4/05     10/04 L
        FMT=SL2       152   PROGRAM*        9/52     10/21 L
        FMT=TOK         0   PROGRAM*        3/44 D    9/13
        FMT=VAR       330   PROGRAM*        3/56     16/04 L
        FMT.          371   PROGRAM*        4/56      5/01      5/03      5/05     18/04 L
                                            4/57      5/02      5/04     17/56     22/41
        FMT.A         375   PROGRAM*        4/56     18/16 L
        FMT.ANSI      373   PROGRAM*       18/08     18/13 L
        FMT.B         403   PROGRAM*        4/56     19/11 L
        FMT.B1        406   PROGRAM*       19/15     19/18 L
        FMT.B2        407   PROGRAM*       19/12     19/17     19/20 L
        FMT.B3        415   PROGRAM*       19/33     19/35     19/38 L
        FMT.B4        417   PROGRAM*       19/39     19/41 L
        FMT.C         477   PROGRAM*        4/56     22/23 L
        FMT.D         376   PROGRAM*        4/57     18/20 L
        FMT.DIG       502   PROGRAM*       16/37     23/09 L
        FMT.E         377   PROGRAM*        4/57     18/25 L
        FMT.ED        346   PROGRAM*       16/47     17/05 L
        FMT.ED1       356   PROGRAM*       17/19     17/23     17/25     17/31 L
        FMT.ED2       363   PROGRAM*       17/14     17/41 L
        FMT.ED3       370   PROGRAM*       17/54     17/56 L
        FMT.F         376   PROGRAM*        4/57     18/21 L
        FMT.G         377   PROGRAM*        4/57     18/26 L
        FMT.H         477   PROGRAM*        5/01     22/24 L
        FMT.I         400   PROGRAM*        5/01     18/30 L
        FMT.ILL       501   PROGRAM*        4/56     16/33     22/39 L   22/41
        FMT.INV       477   PROGRAM*       19/29     19/36     20/54     21/49     22/34 L
        FMT.J         477   PROGRAM*        5/01     22/25 L
        FMT.K         477   PROGRAM*        5/01     22/26 L
        FMT.L         401   PROGRAM*        5/02     18/34 L
        FMT.M         477   PROGRAM*        5/02     22/27 L
        FMT.N         477   PROGRAM*        5/02     22/28 L
        FMT.NX        334   PROGRAM*       16/07     17/39     20/19     22/16     24/19     24/53
                                           16/23 L   18/44     21/07     23/55     24/32     25/05
                                           17/29     19/45     22/01     24/09     24/38     25/11
        FMT.NX1       345   PROGRAM*       16/24     16/49 L
        FMT.O         372   PROGRAM*        5/02     18/10 L
        FMT.P         421   PROGRAM*        5/03     17/44     19/53 L
        FMT.P1        424   PROGRAM*       19/56     20/04 L
        FMT.P2        427   PROGRAM*       20/11     20/13 L
        FMT.Q         477   PROGRAM*        5/03     22/29 L
        FMT.R         371   PROGRAM*        5/03     18/06 L
        FMT.RPT       402   PROGRAM*       18/14     18/18     18/23     18/28     18/32     18/41 L
        FMT.S         432   PROGRAM*        5/03     20/27 L
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    35
        SYMBOLIC REFERENCE TABLE. 
  
        FMT.S1        435   PROGRAM*       20/31     20/34 L
        FMT.S2        436   PROGRAM*       20/28     20/33     20/36 L
        FMT.S3        445   PROGRAM*       20/46     20/50     20/52     20/56 L
        FMT.S4        447   PROGRAM*       20/57     21/02 L
        FMT.T         451   PROGRAM*        5/04     21/15 L
        FMT.T1        454   PROGRAM*       21/19     21/22 L
        FMT.T2        455   PROGRAM*       21/16     21/21     21/24 L
        FMT.T3        467   PROGRAM*       21/35     21/39     21/44     21/47     21/51 L
        FMT.T4        471   PROGRAM*       21/52     21/54 L
        FMT.U         477   PROGRAM*        5/04     22/30 L
        FMT.V         477   PROGRAM*        5/04     22/31 L
        FMT.W         477   PROGRAM*        5/04     22/32 L
        FMT.X         473   PROGRAM*        5/05     22/08 L
        FMT.X1        475   PROGRAM*       22/10     22/12 L
        FMT.Y         477   PROGRAM*        5/05     22/33 L
        FMT.Z         372   PROGRAM*        5/05     18/11 L
        FM.ADDRL       22                   3/08 D    3/52      4/01      4/07      4/13      4/19      4/25
                                            3/47      3/53      4/02      4/08      4/14      4/20      4/26
                                            3/48      3/54      4/03      4/09      4/15      4/21      4/27
                                            3/49      3/55      4/04      4/10      4/16      4/22      4/28
                                            3/50      3/56      4/05      4/11      4/17      4/23      9/16
                                            3/51      3/57      4/06      4/12      4/18      4/24
        FM.ADDRP        0                   3/08 D
        FM.DPCL        44                   3/05 D    3/52      4/01      4/07      4/13      4/19      4/25
                                            3/47      3/53      4/02      4/08      4/14      4/20      4/26
                                            3/48      3/54      4/03      4/09      4/15      4/21      4/27
                                            3/49      3/55      4/04      4/10      4/16      4/22      4/28
                                            3/50      3/56      4/05      4/11      4/17      4/23      9/18
                                            3/51      3/57      4/06      4/12      4/18      4/24
        FM.DPCP        30                   3/05 D
        FM.FIXP        22                   3/07 D    9/20
        FORSKEL         0   EXTERNAL*       1/41 X    8/23 S   15/01     15/19
        KW=FORM        77   PROGRAM*        7/17 L    7/17 E
        LVMAX          12                   5/10 D    5/12     11/44
        LVSTAK         57   PROGRAM*        5/12 L   10/06     11/45 S   12/13     28/09
        MVE=            0   EXTERNAL*       2/02 X   15/21
        O.COMMA        42   FTX            10/21
        O.CONS          5   FTX            19/14     20/30     21/18     23/31
        O.DEF           0   FTX             3/44      3/45
        O.ILL          46   FTX             9/11
        O.LP           37   FTX             8/35     12/07     27/35
        O.RP           40   FTX             9/37
        O.VAR          11   FTX            19/16     20/32     21/20     23/33
        PDM             0   EXTERNAL*       1/53 X   10/48     12/41     17/55     21/53     24/49     26/57     27/53
                                            7/25     11/10     13/13     19/40     22/11     25/10     27/07     28/20
                                            8/37     11/34     14/35     20/03     22/35     26/38     27/16     29/08
                                            9/39     11/53     15/34     20/12     24/18     26/45     27/20
                                           10/42     12/09     17/31     21/01     24/28     26/52     27/37
        PFC           666   PROGRAM*        9/25     13/36     16/05     19/19     20/35     21/23     23/38     29/28 L
        PFC1          671   PROGRAM*       29/36 L   29/44     29/52
        PFC2          675   PROGRAM*       29/40     29/46 L
        RED           700   PROGRAM*       11/13     15/40     17/38     30/13 L
        SSY             0   EXTERNAL*       1/41 X    8/03
        TB=LABR         0   EXTERNAL*       1/50 X    7/21
        TB.CLCNL       17   FTX            13/17     13/18     13/19     13/46
        TB.CLCNP       33   FTX            13/18     13/47
        TB.SHCL        22   FTX            13/44
1       FMT - FORMAT STATEMENT PROCESSOR.                             COMPASS 3.7-871.     24/05/02. 13.16.31.      PAGE    36
        SYMBOLIC REFERENCE TABLE. 
  
        TB.SHCP        52   FTX            13/42     13/47
        TB.TOCL        52   FTX            29/29
        TEST            0   FTX             8/04 F
        T=CON           0   EXTERNAL*       1/56 X   15/23     15/23 S
        T=CONB          0   EXTERNAL*       1/41 X   15/22
        T=FMT           0   EXTERNAL*       1/56 X    8/14
        T.CON           0   EXTERNAL*       1/56 X   13/41
        T.FMT           0   EXTERNAL*       1/56 X   15/17
        T.SYM           0   EXTERNAL*       1/56 X    8/15     15/05
        WA.STLP        30   FTX             8/02
        WB.FMTLP       41   FTX            15/13
        WB.W            1   FTX             8/16
        WC.W            2   FTX             8/16
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2772              IDENT  IO 
                       2772                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2721 
                                        LITERALS* LOCAL        2721        51 
  
  
                                        ENTRY POINTS. 
  
                                        B=IO             0+           KW=ENCO        471+           C=ICIX        1367+ 
                                        IODIR            0+           IOJ            646+           A=ICL         1377+ 
                                        IONAM            6+           A=BMOD        1176+           C=ICL         1400+ 
                                        IODOLEN         10+           A=BLWA        1206+           C=IOL         1410+ 
                                        IODOIND         11+           BLWA          1260+           A=STR         1451+ 
                                        KW=BACK        125+           C=BFWA        1263+           A=UNT         1456+ 
                                        KW=CLOS        126+           C=CNT         1272+           C=UNT         1457+ 
                                        KW=ENDF        130+           A=FMT         1277+           CML           1463+ 
                                        KW=INQU        131+           C=FMT         1300+           VAI           1542+ 
                                        KW=OPEN        133+           C=FOU         1325+           LST           1617+ 
                                        KW=REWI        135+           A=FOU         1325+           CVL           1701+ 
                                        KW=PRIN        231+           A=ICC         1335+           IDCEX         2446+ 
                                        KW=PUNC        233+           C=ICC         1336+           A=DOCI        2552+ 
                                        KW=READ        236+           A=ICCX        1346+           C=DOCI        2553+ 
                                        KW=WRIT        242+           C=ICCX        1347+           A=DOCS        2564+ 
                                        KW=BUFF        410+           A=ICI         1355+           C=DOCS        2565+ 
                                        BUFERR         462+           C=ICI         1356+ 
                                        KW=DECO        467+           A=ICIX        1366+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       E.IOB3    E.IOS2    E.IO12    FILL.     FAT       ANSI=     T.IOLC
                                        ALC       E.IOB4    E.IOS3    E.IO13    FILL.2    FMTARM    MDERR=    T.PAR 
                                        LCH       E.IOB5    E.IOS4    E.IO14    FILL.3    ICCARM    PDM       T.SCR 
                                        LCT       E.IOB6    E.IOS5    E.IO15    MOD.DPC   ICCXARM   CONONE    T.SYM 
                                        ARGCOMA   E.IOB7    E.IOS6    E.IO16    LTB=      ICIARM    CONZER    T.TB
                                        ARGMODE   E.IOB8    E.IOS7    E.IO17    CO.SNAP   ICIXARM   LOSTREF   WO.DOOT 
                                        BBC       E.IOB9    E.IOS8    E.IO18    CO.DBSB   ICLARM    N.GL      WO.LOA
                                        CHARMAP   E.IO36    E.IOS9    E.IO19    CDI       IOARGM    SCR       WO.LOM
                                        CT1       E.IO37    E.IOS10   E.IO20    DDR       IOCTL     S=BU      WO.LOR
                                        DATFLG    E.IOD1    E.MDE3    E.IO21    ISL       IODTA     S=CON     V=APIOC 
                                        ERT       E.IOD2    E.MDE4    E.IO22    PDT       IOL.RTN   S=VD      V=IOLC
                                        ESY       E.IOD3    E.IO00    E.IO23    PSL       IOUNT     T=IOARG   V=IOSUB 
                                        NCS       E.IOD4    E.IO01    E.IO24    BUFFWA    OPBSS     T=BLST    V=LCIF
                                        OIL       E.IOF     E.IO02    E.IO25    BUFLWA    OPDUM     T=ILI     V=MUL 
                                        PARMODE   E.IOF1    E.IO03    E.IO26    BUFMOD    PAR       T=IOA     V=MUL.I 
                                        REFNUM    E.IOF2    E.IO04    E.IO28    CNTARM    PAREXIT   T=IOLC    V=NOOP
                                        REFVAR    E.IOL1    E.IO05    E.IO29    CURST     PAR.NX    T=PAR     V=STR.I 
                                        SSY       E.IOL2    E.IO06    E.IO30    C=ERR     STRARM    T=REF     V=MAX0
                                        TSX       E.IOL5    E.IO07    E.IO31    DOCOLI    TPC       T=SCR     V=SUB.I 
                                        E.ANS     E.IOL6    E.IO08    E.IO32    DOCOLS    UNTARM    T.IOARG   V=ADD.I 
                                        E.IOB0    E.ION     E.IO09    E.IO33    DOA       FOUARM    T.DIM     CDD 
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        E.IOB1    E.ION1    E.IO10    E.IO34    EMT       GOL       T.ILI     MVE=
                                        E.IOB2    E.IOS1    E.IO11    E.IO35    ERROP     ARYOP     T.IOA 
  
  
  
  
                                                  IDENT  IO                                                      IO          2
                                         IO       SECT   (INPUT/OUTPUT STATEMENT PROCESSING.)                    IO          3
  
  
  
  
  
                                        *         IN ALLOC                                                       IO          5
                                                  EXT    ADW,ALC                                                 IO          6
                                                                                                                 IO          7
                                        *         IN CONRED                                                      IO          8
                                                  EXT    LCH,LCT                                                 IO          9
                                                                                                                 IO         10
                                        *         IN FEC                                                         IO         11
                                                  EXT    ARGCOMA,ARGMODE,BBC,CHARMAP,CT1,DATFLG,ERT,ESY,NCS,OIL  FC50317     6
                                                  EXT    PARMODE,REFNUM,REFVAR,SSY,TSX                           FC50317     7
                                                                                                                 IO         14
                                        *         IN FERRS                                                       IO         15
                                                  EXT    E.ANS,E.IOB0,E.IOB1,E.IOB2,E.IOB3,E.IOB4,E.IOB5         FC5A232     5
                                                  EXT    E.IOB6,E.IOB7,E.IOB8,E.IOB9,E.IO36,E.IO37               FC50887     7
                                                  EXT    E.IOD1,E.IOD2,E.IOD3,E.IOD4,E.IOF,E.IOF1,E.IOF2         IO         18
                                                  EXT    E.IOL1,E.IOL2,E.IOL5,E.IOL6,E.ION,E.ION1                FC50643     6
                                                  EXT    E.IOS1,E.IOS2,E.IOS3,E.IOS4,E.IOS5,E.IOS6,E.IOS7,E.IOS8 IO         20
                                                  EXT    E.IOS9,E.IOS10,E.MDE3,E.MDE4                            F1037F5   429
                                                  EXT    E.IO00,E.IO01,E.IO02,E.IO03,E.IO04,E.IO05,E.IO06,E.IO07 IO         22
                                                  EXT    E.IO08,E.IO09,E.IO10,E.IO11,E.IO12,E.IO13,E.IO14,E.IO15 IO         23
                                                  EXT    E.IO16,E.IO17,E.IO18,E.IO19,E.IO20,E.IO21,E.IO22,E.IO23 IO         24
                                                  EXT    E.IO24,E.IO25,E.IO26,E.IO28,E.IO29,E.IO30,E.IO31        FC5A338    35
                                                  EXT    E.IO32,E.IO33,E.IO34,E.IO35,FILL.,FILL.2,FILL.3,MOD.DPC FC5A171A   19
                                                                                                                 IO         27
                                        *         IN FSNAP                                                       IO         28
                                                  EXT    LTB=                                                    IO         29
                                                                                                                 IO         30
                                        *         IN FTN                                                         IO         31
                                                  EXT    CO.SNAP,CO.DBSB                                         IO         32
                                                                                                                 IO         33
                                        *         IN LABEL                                                       IO         34
                                                  EXT    CDI,DDR,ISL,PDT,PSL                                     FC5A211    12
                                                                                                                 IO         36
                                        *         IN PAR                                                         IO         37
                                                  EXT    BUFFWA,BUFLWA,BUFMOD,CNTARM,CURST,C=ERR,DOCOLI,DOCOLS   IO         38
                                                  EXT    DOA,EMT,ERROP,FAT,FMTARM,ICCARM,ICCXARM,ICIARM,ICIXARM  IO         39
                                                  EXT    ICLARM,IOARGM,IOCTL,IODTA,IOL.RTN,IOUNT,OPBSS,OPDUM,PAR FC5A248    12
                                                  EXT    PAREXIT,PAR.NX,STRARM,TPC,UNTARM,FOUARM,GOL             FC5A171A   20
                                                  EXT    ARYOP                                                   FC50620    15
                                                                                                                 IO         42
                                        *         IN PEM                                                         IO         43
                                                  EXT    ANSI=,MDERR=,PDM                                        FC5A248    13
                                                                                                                 IO         45
                                        *         IN PUC                                                         IO         46
                                                  EXT    CONONE,CONZER,LOSTREF,N.GL,SCR,S=BU,S=CON,S=VD,T=IOARG  FC50464     8
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     3
                                                                      IO
  
                                                  EXT    T=BLST,T=ILI,T=IOA,T=IOLC,T=PAR,T=REF,T=SCR,T.IOARG     FC50464     9
                                                  EXT    T.DIM,T.ILI,T.IOA,T.IOLC,T.PAR,T.SCR,T.SYM,T.TB,WO.DOOT FC50464    10
                                                  EXT    WO.LOA,WO.LOM,WO.LOR                                    FC50464    11
                                                                                                                 IO         50
                                        *         IN QSKEL/FSKEL                                                 FC5A248    18
                                                  EXT    V=APIOC,V=IOLC,V=IOSUB,V=LCIF,V=MUL,V=MUL.I,V=NOOP      FC5A248    19
                                                  EXT    V=STR.I,V=MAX0,V=SUB.I,V=ADD.I                          FC50620    16
                                                                                                                 IO         53
                                        *         IN UTILITY                                                     IO         54
                                                  EXT    CDD,MVE=                                                IO         55
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     4
        STORAGE AND TABLES. 
  
                                        **        MISCELLANEOUS CELLS USED BY I/O PROCESSORS                     IO         57
                                                                                                                 IO         58
                                                                                                                 IO         59
             0  00000000000000000000     IODIR    CONENT 0           I/O DIRECTION (S=INP OR S=OUT)              IO         60
             1                     1     IOARGT   BSS    1           (ARGMODE) FOR THIS DIRECTION                IO         61
             2                     1     IOREF    BSS    1           I/O REFERENCE LETTER                        IO         62
             3                     1     IODTH    BSS    1           DATA TURPLE HEADER                          IO         63
             4                     1     IOSKP    BSS    1           TAG FOR SKIP= LABEL                         IO         64
             5                     1     IOARY    BSS    1           ARRAY LOAD TURPLE HEADER                    FC5A431     7
                                                                                                                 IO         65
             6                     1     IONAM    BSSENT 1           ORDINAL OF I/O ROUTINE NAME (IN S.LIB)      IO         67
                                                                     COMPLEMENTED UNTIL INITIAL CALL COMPILED.   IO         68
                                                                                                                 IO         69
             7                     1     IODOCOL  BSS    1           POINTER TO LAST PROCESSED I/O DO STRUCTURE  IO         70
            10                     1     IODOLEN  BSZENT 1           LENGTH OF DO-TABLE BEFORE THIS STATEMENT    FC5A111    24
            11                     2     IODOIND  BSZENT 2           INDICATOR THAT PARTIAL COLLAPSE OCCURRED    IO         72
                                                                     SECOND WORD IS THE COLLAPSE COUNT           IO         73
                                                                                                                 IO         74
            13                     1     IOBFWA   BSS    1           BUFFER I/O FIRST WORD ADDRESS               IO         75
            14                     1     IOBLWA   BSS    1           BUFFER I/O LAST WORD ADDRESS                IO         76
                                                                                                                 IO         77
            15  00000000000000000000     LISTDIR  CON    0           LIST DIRECTED I/O FLAG                      IO         78
  
  
  
  
                                        **        S.IOCALL - LIST OF ROUTINES USED BY OBJECT TIME INPUT/OUTPUT.  IO         80
                                        *         MUST ALWAYS BE KEPT IN ORDER, AS THE PROPER NAME IS  SELECTED  IO         81
                                        *         BY INDEXING INTO THIS TABLE.                                   IO         82
                                                                                                                 IO         83
                                                                                                                 IO         84
            16                           S.IOCALL BSS    0           BASE OF *I/O* ROUTINE NAMES                 IO         85
                                                                                                                 IO         86
      L      0                                    LOC    0                                                       IO         87
      L      0                           S=COD    BSS    0           *CODED* MODE                                IO         88
      L      0                           S=INIT   BSS    0           *INITIAL* CALL                              IO         89
      L      0  11162003115700000000     S=INP    =XLIB  INPCI       *INPUT* DIRECTION                           IO         90
      L      1  11162003225700000000     S=CONT   =XLIB  INPCR                                                   IO         91
      L      2  17252403115700000000     S=OUT    =XLIB  OUTCI       *OUTPUT* DIRECTION                          IO         92
      L      3  17252403225700000000              =XLIB  OUTCR                                                   IO         93
      L      4  11162002115700000000     S=BIN    =XLIB  INPBI       *BINARY* MODE                               IO         94
      L      5  11162002225700000000              =XLIB  INPBR                                                   IO         95
      L      6  17252402115700000000              =XLIB  OUTBI                                                   IO         96
      L      7  17252402225700000000              =XLIB  OUTBR                                                   IO         97
      L     10  11162006115700000000     S=FREE   =XLIB  INPFI       *LIST-DIRECTED* (FREE FIELD)                IO         98
      L     11  11162006225700000000              =XLIB  INPFR                                                   IO         99
      L     12  17252406115700000000              =XLIB  OUTFI                                                   IO        100
      L     13  17252406225700000000              =XLIB  OUTFR                                                   IO        101
      L     14  04050317041157000000     S=STR    =XLIB  DECODI      *STRING* MODE                               IO        102
      L     15  04050317042257000000              =XLIB  DECODR                                                  IO        103
      L     16  05160317041157000000              =XLIB  ENCODI                                                  IO        104
      L     17  05160317042257000000              =XLIB  ENCODR                                                  IO        105
      L     20  11110603115700000000     S=INF    =XLIB  IIFCI       *INTERNAL FILE*                             IO        106
      L     21  11110603225700000000              =XLIB  IIFCR                                                   IO        107
      L     22  17110603115700000000              =XLIB  OIFCI                                                   IO        108
      L     23  17110603225700000000              =XLIB  OIFCR                                                   IO        109
      L     24  11040103115700000000     S=DA     =XLIB  IDACI       *DIRECT ACCESS* MODE                        IO        110
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     5
        STORAGE AND TABLES.                                           S.IOCALL
  
      L     25  11040103225700000000              =XLIB  IDACR                                                   IO        111
      L     26  17040103115700000000              =XLIB  ODACI                                                   IO        112
      L     27  17040103225700000000              =XLIB  ODACR                                                   IO        113
      L     30  11040102115700000000              =XLIB  IDABI                                                   IO        114
      L     31  11040102225700000000              =XLIB  IDABR                                                   IO        115
      L     32  17040102115700000000              =XLIB  ODABI                                                   IO        116
      L     33  17040102225700000000              =XLIB  ODABR                                                   IO        117
            52                                    LOC    *O                                                      IO        118
                                                                                                                 IO        119
            52  16011511165700000000     S.NLST   =XLIB  NAMIN       *NAMELIST* MODE                             IO        120
            53  16011517252457000000              =XLIB  NAMOUT                                                  IO        121
            54  02010313232057000000     S.BKSP   =XLIB  BACKSP                                                  IO        122
            55  03141723055700000000     S.CLOSE  =XLIB  CLOSE                                                   IO        123
            56  05160406111457000000     S.ENDFI  =XLIB  ENDFIL                                                  IO        124
            57  11162125112257000000     S.INQUI  =XLIB  INQUIR                                                  IO        125
            60  17200516570000000000     S.OPEN   =XLIB  OPEN                                                    IO        126
            61  22052711160457000000     S.REWIN  =XLIB  REWIND                                                  IO        127
            62  02250617252457000000              =XLIB  BUFOUT                                                  IO        128
            63  02250611165700000000     S.BUFIO  =XLIB  BUFIN                                                   IO        129
                                                                                                                 IO        130
                                  -3     S=NLST   EQU    -3          NAMELIST INDICATOR                          IO        131
  
  
  
  
                                        **        DO COLLAPSE POINTER VALUES                                     IO        133
                                        *         INDEX INTO TOKEN BUFFER, BEGINNING WITH COLLAPSE CONCLUDE      IO        134
                                                                                                                 IO        135
                                                                                                                 IO        136
                                   0     DC=CCT   EQU    0           DO COLLAPSE CONCLUSION TOKEN                IO        137
                                   1     DC=ISV   EQU    1           INITIAL SUBSCRIPT VALUE                     IO        138
                                   2     DC=SIZ   EQU    2           COLLAPSE SIZE                               IO        139
                                   3     DC=VAR   EQU    3           VARIABLE FOR SIZE MULTIPLY                  IO        140
                                   4     DC=OFF   EQU    4           STARTING OFFSET (BIAS)                      IO        141
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     6
        STORAGE AND TABLES.                                           KW.CTL
  
                                        **        FW.CTL - *I/O CONTROL* SUB-KEYWORD TABLE.                      IO        143
                                                                                                                 IO        144
            64                           FW.CTL   BSS    0           FWA OF *I/O CONTROL* SUB-KEYWORD TABLE      IO        145
                                                                                                                 IO        146
                                                                                                                 IO        147
                                        **        IODEF - MACRO TO DEFINE I/O CONTROL SUB-KEYWORD TABLE          IO        148
                                                                                                                 IO        149
                                                                                                                 IO        150
                                                  PURGMAC  ICDEF                                                 IO        151
                                                  MACRO  ICDEF,INFO,KEY                                          IO        152
                                         A        MICRO  1,, KEY                                                 IO        153
                                         B        MICCNT A                                                       IO        154
                                         C        MICRO  B,1, KEY                                                IO        155
                                         .1       IFC    EQ,/"C"/=/                                              IO        156
                                         D        MICRO  1,B-1, KEY                                              IO        157
                                                  SUBKEY "D",PKC=INFO                                            IO        158
                                         .1       ELSE                                                           IO        159
                                                  SUBKEY $,PKC=                                                  IO        160
                                         .1       ENDIF                                                          IO        161
                                         ICDEF    ENDM                                                           IO        162
                                                                                                                 IO        163
                                                                                                                 IO        164
  
  
  
  
                                        **        DEFINE I/O CONTROL CODES.                                      COMSIOC     3
                                                                                                                 COMSIOC     4
                                                                                                                 COMSIOC     5
      L      1                                    LOC    1                                                       COMSIOC     6
                                  64 +   IOCAD    EQU    *O                                                      COMSIOC     7
      L      1  001071 +                 UNT      ICDEF  UNIT=                                                   COMSIOC     8
      L      2  001040 +                 END      ICDEF  END=                                                    COMSIOC     9
      L      3  001040 +                 ERR      ICDEF  ERR=                                                    COMSIOC    10
      L      4  001065 +                 FMT      ICDEF  FMT=                                                    COMSIOC    11
      L      5  001034 +                 IOS      ICDEF  IOSTAT=                                                 COMSIOC    12
      L      6  001036 +                 REC      ICDEF  REC=                                                    COMSIOC    13
      L      7  001025 +                 SKP      ICDEF  SKIP                                                    COMSIOC    14
      L     10  001025 +                 NML      ICDEF  NAMELIST NAME (GROUP)                                   COMSIOC    15
      L     11  001025 +                          ICDEF                                                          COMSIOC    16
      L     12  001025 +                          ICDEF                                                          COMSIOC    17
      L     13  001025 +                          ICDEF                                                          COMSIOC    18
      L     14  001027 +                 ACC      ICDEF  ACCESS=                                                 COMSIOC    19
      L     15  001027 +                 BLK      ICDEF  BLANK=                                                  COMSIOC    20
      L     16  001035 +                 BFL      ICDEF  BUFL=                                                   COMSIOC    21
      L     17  001026 +                 DIR      ICDEF  DIRECT=                                                 COMSIOC    22
      L     20  001037 +                 EXS      ICDEF  EXIST=                                                  COMSIOC    23
      L     21  001045 +                 FIL      ICDEF  FILE=                                                   COMSIOC    24
      L     22  001027 +                 FOR      ICDEF  FORM=                                                   COMSIOC    25
      L     23  001026 +                 FMD      ICDEF  FORMATTED=                                              COMSIOC    26
      L     24  001026 +                 NAM      ICDEF  NAME=                                                   COMSIOC    27
      L     25  001037 +                 NMD      ICDEF  NAMED=                                                  COMSIOC    28
      L     26  001034 +                 NXT      ICDEF  NEXTREC=                                                COMSIOC    29
      L     27  001034 +                 NUM      ICDEF  NUMBER=                                                 COMSIOC    30
      L     30  001037 +                 OPE      ICDEF  OPENED=                                                 COMSIOC    31
      L     31  001032 +                 RCL      ICDEF  RECL=                                                   COMSIOC    32
      L     32  001026 +                 SEQ      ICDEF  SEQUENTIAL=                                             COMSIOC    33
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     7
        STORAGE AND TABLES.                                           COMSIOC 
  
      L     33  001031 +                 STA      ICDEF  STATUS=                                                 COMSIOC    34
      L     34  001026 +                 UNF      ICDEF  UNFORMATTED=                                            COMSIOC    35
      L     35  001025 +                 BUF      ICDEF  BFFER I/O FWA AND LWA                                   COMSIOC    36
      L     36  001025 +                 CNT      ICDEF  ENCODE/DECODE COUNT                                     COMSIOC    37
      L     37  001025 +                 MOD      ICDEF  BUFFER I/O MODE                                         COMSIOC    38
      L     40  001025 +                 STR      ICDEF  ENCODE/DECODE STRING ADDRESS                            COMSIOC    39
      L     41  001025 +                 FMTA     ICDEF  ASSIGNED FORMAT                                         COMSIOC    40
                                                                                                                 COMSIOC    41
           125                                    LOC    *O                                                      COMSIOC    42
                                                                                                                 IO        166
                                  41     L.CTL    EQU    *-FW.CTL    LENGTH OF *I/O CONTROL* SUB-KEYWORD TABLE   IO        167
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     8
        AUXILIARY I/O STATEMENTS - SOURCE TRANSLATION.                BACKSPAC
  
                                        **        PROCESS "BACKSPACE" STATEMENT.                                 IO        170
                                        *                                                                        IO        171
                                        *         SEE ANSI 12.10.4                                               IO        172
                                        *                                                                        IO        173
                                        *         EXIT   TO FPS WITH                                             IO        174
                                        *                (B6) _ BACKSPACE ROUTINE NAME.                          IO        175
                                                                                                                 IO        176
                                                                                                                 IO        177
           125                                    HEREIF BACKSPACE                                               IO        178
                                                                                                                 IO        179
           125  6160000054 +                      SB6    S.BKSP                                                  IO        180
                          0400000176 +            EQ     FPS                                                     IO        181
  
  
  
  
                                        ***       PROCESS "CLOSE" STATEMENT.                                     IO        183
                                        *                                                                        IO        184
                                        *         SEE ANSI 12.10.2                                               IO        185
                                        *                                                                        IO        186
                                        *         EXIT   TO FMS WITH                                             IO        187
                                        *                (B6) _ CLOSE ROUTINE NAME                               IO        188
                                        *                (X1) = "CLLC" (KEYWORD LEGALITY MASK)                   IO        189
                                                                                                                 IO        190
                                                                                                                 IO        191
                                         CLLC     BITMIC (IC.UNT,IC.ERR,IC.IOS,IC.STA)                           IO        192
                                                                                                                 IO        193
           126                                    HEREIF CLOSE                                                   IO        194
           126  6160000055 +                      SB6    S.CLOSE                                                 IO        195
                          5110002754 +            SA1    ="CLLC"     FETCH LEGALITY MASK                         IO        196
           127  0400000136 +                      EQ     FMS                                                     IO        197
  
  
  
  
                                        **        PROCESS "ENDFILE" STATEMENT.                                   IO        199
                                        *                                                                        IO        200
                                        *         SEE ANSI 12.10.4                                               IO        201
                                        *                                                                        IO        202
                                        *         EXIT   TO FPS WITH                                             IO        203
                                        *                (B6) _ ENDFILE ROUTINE NAME.                            IO        204
                                                                                                                 IO        205
                                                                                                                 IO        206
           130                                    HEREIF ENDFILE                                                 IO        207
                                                                                                                 IO        208
           130  6160000056 +                      SB6    S.ENDFI                                                 IO        209
                          0400000176 +            EQ     FPS                                                     IO        210
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE     9
        AUXILIARY I/O STATEMENTS - SOURCE TRANSLATION.                INQUIRE 
  
                                        **        PROCESS "INQUIRE" STATEMENT.                                   IO        212
                                        *                                                                        IO        213
                                        *         SEE ANSI 12.10.3                                               IO        214
                                        *                                                                        IO        215
                                        *         EXIT   TO FMS WITH                                             IO        216
                                        *                (B6) _ INQUIRE ROUTINE NAME                             IO        217
                                        *                (X1) = "INCL" (KEYWORD LEGALITY MASK)                   IO        218
                                                                                                                 IO        219
                                                                                                                 IO        220
                                         INCL     BITMIC (IC.UNT,IC.ERR,IC.IOS,IC.ACC,IC.BLK,IC.DIR,IC.EXS,_____ IO        221
                                        ,IC.FIL,IC.FOR,IC.FMD,IC.NAM,IC.NMD,IC.NXT,IC.NUM,IC.OPE,IC.RCL,IC.SEQ,_ IO        222
                                        ,IC.UNF)                                                                 IO        223
                                                                                                                 IO        224
           131                                    HEREIF INQUIRE                                                 IO        225
           131  6160000057 +                      SB6    S.INQUI                                                 IO        226
                          5110002755 +            SA1    ="INCL"     FETCH LEGALITY MASK                         IO        227
           132  0400000136 +                      EQ     FMS                                                     IO        228
  
  
  
  
                                        **        PROCESS "OPEN" STATEMENT.                                      IO        230
                                        *                                                                        IO        231
                                        *         SEE ANSI 12.10.1                                               IO        232
                                        *                                                                        IO        233
                                        *         EXIT   TO FMS WITH                                             IO        234
                                        *                (B6) _ OPEN ROUTINE NAME.                               IO        235
                                        *                (X1) = "OPLC" (KEYWORD LEGALITY MASK)                   IO        236
                                                                                                                 IO        237
                                                                                                                 IO        238
                                         OPLC     BITMIC (IC.UNT,IC.ERR,IC.IOS,IC.ACC,IC.BLK,IC.BFL,IC.FIL,_____ IO        239
                                        ,IC.FOR,IC.RCL,IC.STA)                                                   IO        240
                                                                                                                 IO        241
           133                                    HEREIF OPEN                                                    IO        242
           133  6160000060 +                      SB6    S.OPEN                                                  IO        243
                          5110002756 +            SA1    ="OPLC"     FETCH LEGALITY MASK                         IO        244
           134  0400000136 +                      EQ     FMS                                                     IO        245
  
  
  
  
                                        **        PROCESS "REWIND" STATEMENT.                                    IO        247
                                        *                                                                        IO        248
                                        *         SEE ANSI 12.10.4                                               IO        249
                                        *                                                                        IO        250
                                        *         EXIT   TO FPS WITH                                             IO        251
                                        *                (B6) _ REWIND ROUTINE NAME.                             IO        252
                                                                                                                 IO        253
                                                                                                                 IO        254
           135                                    HEREIF REWIND                                                  IO        255
                                                                                                                 IO        256
           135  6160000061 +                      SB6    S.REWIN                                                 IO        257
                          0400000176 +            EQ     FPS                                                     IO        258
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    10
        AUXILIARY I/O STATEMENTS - SOURCE TRANSLATION.                FMS 
  
                                        **        FMS -  PROCESS FILE MANIPULATION STATEMENTS                    IO        260
                                        *                                                                        IO        261
                                        *         ENTRY  (B6) _ NAME OF FILE MANIPULATION ROUTINE (*TB* FORMAT)  IO        262
                                        *                (X1) = KEYWORD LEGALITY MASK FOR CURRENT STATEMENT.     IO        263
                                        *                                                                        IO        264
                                        *         EXIT   TO PSL                                                  IO        265
                                        *                                                                        IO        266
                                        *         CALLS  ALC, CUD, EMT, IOJ, PCT, PKC, SFP, TSX                  IO        267
                                                                                                                 IO        268
                                                                                                                 IO        269
           136  7170000055               FMS      SX7    CR.REF                                                  IO        270
                          5170000002 +            SA7    IOREF       SET XREF CELL TO * *                        IO        271
           137  7160000000                        SX6    0                                                       IO        272
                          5160001002 +            SA6    PKCA        INITIALIZE                                  IO        273
           140  5160000004 +                      SA6    IOSKP       CLEAR                                       IO        274
                          5160001740 +            SA6    CVLPM       INITIALIZE                                  IO        275
                                   0              ERRNZ  PM=EXPR                                                 IO        276
           141  43701                             MX7    1                                                       IO        277
                     10611                        BX6    X1                                                      IO        278
                          5170000000 +            SA7    IODIR       INDICATE NO ASSUMED UNIT OR INTERNAL FILE   IO        279
           142  5160000175 +                      SA6    FMSA        SAVE LEGALITY MASK                          IO        280
                          5110000000 X            ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                   IO        281
           144  56240                             SA2    B4                                                      IO        282
                     6222777740                   SB2    X2-O.(                                                  IO        284
           145  0302000000 X                      ZR     X2,E.IO01   IF PREMATURE *EOS*                          IO        285
                          0520000000 X            NZ     B2,E.IO19   IF NOT *(*                                  IO        286
           146  66441                             =B4    B4+1                                                    IO        287
                     56241                        =A2    B4+1                                                    IO        288
                          6272777736              SB7    X2-O.=                                                  IO        289
           147  0470000155 +                      ZR     B7,FMS3     IF *=*                                      IO        291
                          0100000527 +            RJ     CUD         COMPILE THE UNIT DESIGNATOR                 FC50035     5
           150  56141                             =A1    B4+1                                                    IO        298
                     66441                        =B4    B4+1                                                    IO        299
                          6221777737              SB2    X1-O.)                                                  IO        300
           151  6231777735                        SB3    X1-O.COMMA                                              IO        301
                          43300                   MX3    0                                                       IO        302
           152  0420000162 +                      ZR     B2,FMS4A    IF *)*, FINISH                              FC50887     8
                          0530000000 X            NZ     B3,E.IO16   IF NOT *,*, ERROR                           IO        304
           153  76610                             =X6    1                                                       IO        305
                     20672                        LX6    59-IC.UNT                                               IO        306
                          5160001002 +            SA6    PKCA        INDICATE I/O UNIT DEFINED                   IO        307
           154  66441                             =B4    B4+1                                                    IO        308
                                                                                                                 IO        309
           155  56140                    FMS3     SA1    B4                                                      FC50035     6
                     7211777766                   SX1    X1-O.VAR                                                FC50035     7
           156  0311000000 X                      NZ     X1,E.IO16   IF NOT O.VAR TOKEN (CANT BE KEYWORD)        FC50035     8
                          5110000175 +            SA1    FMSA        FETCH KEYWORD LEGALITY MASK                 FC50035     9
           157  0100001006 +                      RJ     PKC         PROCESS KEYWORD CONTROL ITEMS               IO        311
           160  0100001530 +                      RJ     OST         OUTPUT SKIP TURPLE                          FC5A143     5
           161  5130001002 +                      SA3    PKCA                                                    FC5A143     6
                                                                                                                 FC50887     9
           162  56141                    FMS4A    =A1    B4+1                                                    FC50887    10
                     6144000001                   SB4    B4+1        ADVANCE B4                                  FC50887    11
           163  0301000165 +                      ZR     X1,FMS4     IF *EOS*, FINISH                            FC50887    12
                                   0              ERRNZ  O.EOS                                                   FC50887    13
                          6170000000 X            WARN   E.IO37      IF NOT *EOS*                                FC50887    14
                                                                                                                 FC50887    15
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    11
        AUXILIARY I/O STATEMENTS - SOURCE TRANSLATION.                FMS 
  
           165  0100001114 +             FMS4     RJ     SFP         SET FILE PROPERTY BITS                      IO        313
           166  56160                             TAGSEX B6          PROCESS I/O ROUTINE NAME                    IO        314
           167  6130000016 +                      SB3    S.IOCALL                                                IO        316
                          77736                   SX7    B3-B6       NEGATIVE ORDINAL = FIRST CALL               IO        317
                               13666              BX6    0                                                       IO        318
           170  5170000006 +                      SA7    IONAM                                                   IO        319
                          0100000646 +            RJ     IOJ                                                     IO        320
           171  5140000004 +                      SA4    IOSKP                                                   FC5A143     7
                          0304000000 X            ZR     X4,PSL      IF NO SKIP LABEL                            FC5A143     8
           172  43500                             MX5    0           2OP = NULL                                  FC5A143     9
                     6130400000 X                 EMIT   OPBSS,*                                                 FC5A143    10
           174  0400000000 X                      EQ     PSL         EXIT...                                     IO        321
                                                                                                                 IO        322
           175                     1     FMSA     BSS    1           SAVE KEYWORD LEGALITY MASK                  IO        323
  
  
  
  
                                        **        FPS -  PROCESS FILE POSITIONING STATEMENTS                     IO        325
                                        *                                                                        IO        326
                                        *         ENTRY  (B6) _ NAME OF FILE POSITIONING ROUTINE (*TB* FORMAT).  IO        327
                                        *                                                                        IO        328
                                        *         EXIT   TO PSL                                                  IO        329
                                        *                                                                        IO        330
                                        *         CALLS  ALC, CUD, EMT, IOJ, OCT, PCT, PKC, TSX                  IO        331
                                                                                                                 IO        332
                                                                                                                 IO        333
                                         FPLC     BITMIC (IC.ERR,IC.IOS,IC.UNT)                                  IO        334
                                                                                                                 IO        335
           176  7170000055               FPS      SX7    CR.REF                                                  IO        336
                          5170000002 +            SA7    IOREF       SET XREF CELL TO * *                        IO        337
           177  7160000000                        SX6    0                                                       IO        338
                          5160001002 +            SA6    PKCA        INITIALIZE                                  IO        339
           200  5160000004 +                      SA6    IOSKP       CLEAR                                       IO        340
                          5160001740 +            SA6    CVLPM       INITIALIZE                                  IO        341
                                   0              ERRNZ  PM=EXPR                                                 IO        342
           201  43701                             MX7    1                                                       IO        343
                     5170000000 +                 SA7    IODIR       INDICATE NO ASSUMED UNIT OR INTERNAL FILE   IO        344
           202  5110000000 X                      ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                   IO        345
           204  56240                             SA2    B4                                                      IO        346
                     56141                        SA1    B4+B1                                                   IO        347
                          6222777740              SB2    X2-O.(                                                  IO        348
           205  0302000000 X                      ZR     X2,E.IO01   IF PREMATURE *EOS*                          IO        349
                          0420000212 +            ZR     B2,FPS2     IF *(*                                      IO        350
           206  0100000527 +                      RJ     CUD         COMPILE THE UNIT DESIGNATOR                 IO        351
           207  56141                             =A1    B4+1                                                    IO        352
                     0301000222 +                 ZR     X1,FPS4     IF *EOS*                                    IO        353
                               66441              =B4    B4+1                                                    IO        354
           210  6170000000 X                      WARN   E.IO06      EXTRA CHARACTERS - WARNING                  IO        355
           211  0400000222 +                      EQ     FPS4        FINISH PROCESSING                           IO        356
                                                                                                                 IO        357
                                        *         PROCESS CONTROL ITEM LIST                                      IO        358
                                                                                                                 IO        359
           212  66441                    FPS2     =B4    B4+1                                                    IO        360
                     56241                        =A2    B4+1                                                    IO        361
                          6222777736              SB2    X2-O.=                                                  IO        362
           213  0420000220 +                      ZR     B2,FPS3     IF KEYWORD FORM                             IO        363
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    12
        AUXILIARY I/O STATEMENTS - SOURCE TRANSLATION.                FPS 
  
                          0100000527 +            RJ     CUD         COMPILE THE UNIT DESIGNATOR                 IO        364
           214  56141                             =A1    B4+1                                                    IO        365
                     66441                        =B4    B4+1                                                    IO        366
                          6221777737              SB2    X1-O.)                                                  IO        367
           215  6231777735                        SB3    X1-O.COMMA                                              IO        368
                          0420000222 +            ZR     B2,FPS4     IF *)*, FINISHED                            IO        369
           216  0530000000 X                      NZ     B3,E.IO16   IF NOT *,*, ERROR                           IO        370
                          76610                   =X6    1                                                       IO        371
                               20672              LX6    59-IC.UNT                                               IO        372
           217  5160001002 +                      SA6    PKCA        INDICATE I/O UNIT DEFINED                   IO        373
                          66441                   =B4    B4+1                                                    IO        374
                                                                                                                 IO        375
           220  5110002757 +             FPS3     SA1    ="FPLC"     KEYWORD LEGALITY MASK                       IO        376
                          0100001006 +            RJ     PKC         PROCESS KEYWORD CONTROL ITEMS               IO        377
           221  0100001530 +                      RJ     OST         OUTPUT SKIP TURPLE                          FC5A143    11
           222  56160                    FPS4     TAGSEX B6          PROCESS I/O ROUTINE NAME                    IO        403
           223  6130000016 +                      SB3    S.IOCALL                                                IO        405
                          77736                   SX7    B3-B6       NEGATIVE ORDINAL = FIRST CALL               IO        406
                               13666              BX6    0                                                       IO        407
           224  5170000006 +                      SA7    IONAM                                                   IO        408
                          0100000646 +            RJ     IOJ                                                     IO        409
           225  5140000004 +                      SA4    IOSKP                                                   IO        410
                          0304000000 X            ZR     X4,PSL      IF NO SKIP LABEL                            FC5A143    12
           226  43500                             MX5    0           2OP = NULL                                  IO        412
                     6130400000 X                 EMIT   OPBSS,*                                                 IO        413
           230  0400000000 X                      EQ     PSL         EXIT...                                     FC5A143    13
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    13
        DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.            PRINT 
  
                                        **        PROCESS "PRINT" STATEMENT.                                     IO        417
                                        *                                                                        IO        418
                                        *         SEE ANSI 12.8                                                  IO        419
                                        *                                                                        IO        420
                                        *         EXIT   TO *PIC* WITH --                                        IO        421
                                        *                (X5) = *OUTPUT* FILE                                    IO        422
                                        *                (X7) = CR.OUT                                           IO        423
                                        *                (B4) _ FORMAT DESIGNATOR                                IO        424
                                        *                (B6) = S=OUT                                            IO        425
                                                                                                                 IO        426
                                                                                                                 IO        427
           231                                    HEREIF PRINT                                                   IO        428
                                                                                                                 IO        429
           231  7170000027                        SX7    CR.OUT                                                  IO        430
                          6160000002              SB6    S=OUT                                                   IO        431
           232  5150002760 +                      SA5    =0LOUTPUT                                               IO        432
                          0400000245 +            EQ     PIC         PROCESS REMAINDER OF STATEMENT              IO        433
  
  
  
  
                                        **        PROCESS "PUNCH" STATEMENT.                                     IO        435
                                        *                                                                        IO        436
                                        *         NON-ANSI:  SEE ERS 12.8                                        IO        437
                                        *                                                                        IO        438
                                        *         EXIT   TO *PIC* WITH --                                        IO        439
                                        *                (X5) = *PUNCH* FILE                                     IO        440
                                        *                (X7) = CR.OUT                                           IO        441
                                        *                (B4) _ FORMAT DESIGNATOR                                IO        442
                                        *                (B6) = S=OUT                                            IO        443
                                                                                                                 IO        444
                                                                                                                 IO        445
           233                                    HEREIF PUNCH                                                   IO        446
                                                                                                                 IO        447
           233  6170000000 X                      ANSI   E.ANS       *PUNCH* STATEMENT IS NON-ANSI               IO        448
           234  5150002761 +                      SA5    =0LPUNCH                                                IO        449
                          7170000027              SX7    CR.OUT                                                  IO        450
           235  6160000002                        SB6    S=OUT                                                   IO        451
                          0400000245 +            EQ     PIC         PROCESS REMAINDER OF STATEMENT              IO        452
  
  
  
  
                                        **        PROCESS "READ" STATEMENT.                                      IO        454
                                        *                                                                        IO        455
                                        *         SEE ANSI 12.8                                                  IO        456
                                        *                                                                        IO        457
                                        *         EXIT TO *PIC* WITH --                                          IO        458
                                        *                (X5) = *INPUT* FILE                                     IO        459
                                        *                (X7) = CR.INP                                           IO        460
                                        *                (B4) _ FORMAT DESIGNATOR                                IO        461
                                        *                (B6) = S=INP                                            IO        462
                                        *                                                                        IO        463
                                        *           OR TO *PEC* WITH --                                          IO        464
                                        *                (B4) _ *(*                                              IO        465
                                        *                (X1) = KEYWORD LEGALITY MASK                            IO        466
                                        *                (X5),(X7),(B6) AS ABOVE                                 IO        467
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    14
        DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.            READ
  
                                                                                                                 IO        468
           236                                    HEREIF READ                                                    IO        469
                                                                                                                 IO        470
                                         RLC      BITMIC (IC.UNT,IC.END,IC.ERR,IC.FMT,IC.IOS,IC.REC)             IO        471
                                                                                                                 IO        472
           236  56140                             SA1    B4                                                      IO        473
                     66600                        =B6    S=INP                                                   IO        474
                          7170000022              SX7    CR.INP                                                  IO        475
           237  5150002762 +                      SA5    =0LINPUT                                                IO        476
                          7221777740              SX2    X1-O.(                                                  IO        477
           240  5110002763 +                      SA1    ="RLC"      KEYWORD LEGALITY MASK                       IO        478
                          0302000260 +            ZR     X2,PEC      IF *READ(*                                  IO        479
           241  0400000245 +                      EQ     PIC         PROCESS *READ FMT,*                         IO        480
  
  
  
  
                                        **        PROCESS "WRITE" STATEMENT.                                     IO        482
                                        *                                                                        IO        483
                                        *         SEE ANSI 12.8                                                  IO        484
                                        *                                                                        IO        485
                                        *         EXIT TO *PEC* WITH --                                          IO        486
                                        *                (X1) = KEYWORD LEGALITY MASK                            IO        487
                                        *                (X7) = CR.OUT                                           IO        488
                                        *                (B4) _ *(*                                              IO        489
                                        *                (B6) = S=OUT                                            IO        490
                                                                                                                 IO        491
                                                                                                                 IO        492
           242                                    HEREIF WRITE                                                   IO        493
                                                                                                                 IO        494
                                         WLC      BITMIC (IC.UNT,IC.ERR,IC.FMT,IC.IOS,IC.REC)                    IO        495
                                                                                                                 IO        496
           242  56140                             SA1    B4                                                      IO        497
                     7170000027                   SX7    CR.OUT                                                  IO        498
                               66611              =B6    S=OUT                                                   IO        499
           243  7221777740                        SX2    X1-O.(                                                  IO        500
                          5110002764 +            SA1    ="WLC"      KEYWORD LEGALITY MASK                       IO        501
           244  0302000260 +                      ZR     X2,PEC      IF *WRITE(*                                 IO        502
                          0400000000 X            EQ     E.IO19                                                  IO        503
  
  
  
  
                                        **        PIC -  PROCESS IMPLIED CONTROL LIST                            IO        505
                                        *                                                                        IO        506
                                        *         ENTERED BY *PRINT*, *PUNCH* AND *READ FMT,*                    IO        507
                                        *                                                                        IO        508
                                        *         ENTRY  (X5) = DEFAULT UNIT DESIGNATOR                          IO        509
                                        *                (X7) = CROSS REFERENCE INDICATOR                        IO        510
                                        *                (B4) _ FORMAT DESIGNATOR                                IO        511
                                        *                (B6) = I/O DIRECTION (S=INP OR S=OUT)                   IO        512
                                        *                                                                        IO        513
                                        *         EXIT   TO *LST* WITH --                                        IO        514
                                        *                (B6) = DIRECTION + CODED MODE (S=COD) INDICATION.       IO        515
                                        *                                                                        IO        516
                                        *         CALLS  EMT, IIC, NCS, PFN                                      IO        517
                                                                                                                 IO        518
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    15
        DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.            PIC 
  
                                                                                                                 IO        519
           245  5170000002 +             PIC      SA7    IOREF       CROSS REFERENCE INDICATOR                   IO        520
                          7160000000              SX6    0                                                       IO        521
           246  5160001002 +                      SA6    PKCA        INITIALIZE                                  IO        522
                          10655                   BX6    X5                                                      IO        523
                               76700              =X7    M.BOOL                                                  IO        524
           247  0100000000 X                      CALL   NCS         FILE DESIGNATOR INTO CONSTANT TABLE         IO        525
           250  5150000000 X                      SA5    CONONE                                                  IO        526
                          10466                   BX4    X6          UNIT DESIGNATOR                             IO        527
           251  5110000000 X                      EMIT   IOUNT,*,T.IOARG                                         IO        528
                                   0              ERRNZ  M.BOOL      MUST MERGE MODE INTO HEADER                 IO        529
           253  0100000636 +                      RJ     IIC         INITIALIZE CONTROL CELLS                    IO        530
           254  0100000712 +                      RJ     PFN         PROCESS FORMAT/NAMELIST DESIGNATOR          IO        531
           255  56141                             =A1    B4+1                                                    IO        534
                     66441                        =B4    B4+1                                                    IO        535
                          6271777735              SB7    X1-O.COMMA                                              FC50014     8
           256  0301001617 +                      ZR     X1,LST      IF NO LIST                                  FC50014     9
                          0570000000 X            NZ     B7,E.IO16   IF NO COMMA SEPARATOR                       FC50014    10
           257  0400001617 +                      EQ     LST                                                     FC50014    11
  
  
  
  
                                        **        PEC -  PROCESS EXPLICIT CONTROL LIST                           IO        554
                                        *                                                                        IO        555
                                        *         ENTERED BY *READ(* AND *WRITE* STATEMENTS.                     IO        556
                                        *                                                                        IO        557
                                        *         ENTRY  (B6) = I/O DIRECTION (S=INP OR S=OUT)                   IO        558
                                        *                (B4) _ *(*                                              IO        559
                                        *                (X1) = KEYWORD LEGALITY MASK.                           IO        560
                                        *                (X7) = CROSS REFERENCE INDICATOR                        IO        561
                                        *                                                                        IO        562
                                        *         EXIT   TO *LST* WITH --                                        IO        563
                                        *                (B6) = DIRECTION + CODED MODE (S=COD) INDICATION        IO        564
                                        *                                                                        IO        565
                                        *         CALLS  ALC, CUD, IIC, PFN, PKC, SFP, OUT, UDP, PAR, TPC.       FC5A171A   22
                                                                                                                 IO        567
                                                                                                                 IO        568
           260  5170000002 +             PEC      SA7    IOREF       CROSS REFERENCE INDICATOR                   IO        569
                          5150002762 +            SA5    =0LINPUT                                                FC5A171A   23
           261  7176777777                        SX7    B6-S=INP                                                FC5A171A   24
                          0307000263 +            ZR     X7,PEC10    IF INPUT DIRECTION                          FC5A171A   25
           262  5150002760 +                      SA5    =0LOUTPUT                                               FC5A171A   26
                                                                                                                 FC5A171A   27
           263  10655                    PEC10    BX6    X5                                                      FC5A171A   28
                     5160000407 +                 SA6    PECB        PRESERVE DEFAULT UNIT DESIGNATOR            FC5A171A   29
                               76600              =X6    0                                                       IO        570
           264  10711                             BX7    X1                                                      IO        571
                     5160001002 +                 SA6    PKCA        INITIALIZE                                  IO        572
           265  5170000175 +                      SA7    PECA        SAVE KEYWORD LEGALITY MASK                  IO        573
                          5110000000 X            ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                   IO        574
           267  0100000636 +                      RJ     IIC         INITIALIZE CONTROL CELLS                    IO        575
           270  66441                             =B4    B4+1                                                    IO        576
                     56241                        =A2    B4+1                                                    IO        577
                          5114000000              SA1    B4+                                                     FC5A251     5
           271  7211777761                        SX1    X1-O.STAR                                               FC5A251     6
                          0301000344 +            ZR     X1,PEC80    IF DEFAULT UNIT DESIGNATOR                  FC5A251     7
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    16
        DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.            PEC 
  
           272  7222777736                        SX2    X2-O.=                                                  IO        578
                          0302000375 +            ZR     X2,PEC170    IF KEYWORD FORM                            FC5A171A   30
           273  57241                             =A2    B4-1        X2 = *(*                                    FC5A171A   31
                     20230                        LX2    -TB.IOCPP                                               FC5A171A   32
                          73220                   SX2    X2                                                      FC5A171A   33
           274  0302000344 +                      ZR     X2,PEC80    IF NO MATCHING RP                           FC5A171A   34
                          53221                   =A2    X2+1        X2 = TOKEN AFTER MATCHING RP                FC5A171A   35
           275  7212777735                        SX1    X2-O.COMMA                                              FC5A171A   36
                          7232777741              SX3    X2-O.CAT                                                FC5A171A   37
           276  5140000000 +                      SA4    IODIR                                                   FC5A171A   38
                          0311000300 +            NZ     X1,PEC20    IF NO COMMA                                 FC5A171A   39
           277  0314000344 +                      NZ     X4,PEC80    IF *WRITE(XXXXX),*                          FC5A171A   40
                                   0              ERRNZ  S=INP                                                   FC5A171A   41
                          0400000335 +            EQ     PEC70                                                   FC5A171A   42
                                                                                                                 FC5A171A   43
           300  0313000302 +             PEC20    NZ     X3,PEC30    IF NO CAT                                   FC5A171A   44
                          0314000344 +            NZ     X4,PEC80    IF *WRITE(XXXX)//*                          FC5A171A   45
                                   0              ERRNZ  S=INP                                                   FC5A171A   46
           301  0400000335 +                      EQ     PEC70                                                   FC5A171A   47
                                                                                                                 FC5A171A   48
           302  0312000344 +             PEC30    NZ     X2,PEC80    IF CONTROL LIST                             FC5A171A   49
                          76140                   SX1    B4          LOOP START                                  FC5A171A   50
                               74220              SX2    A2          LOOP END                                    FC5A171A   51
                                                                                                                 FC5A171A   52
           303  53310                    PEC40    SA3    X1          X3 = NEXT TOKEN                             FC5A171A   53
                     6223777735                   SB2    X3-O.COMMA                                              FC5A171A   54
           304  6273777740                        SB7    X3-O.LP                                                 FC5A171A   55
                          20330                   LX3    -TB.IOCPP                                               FC5A171A   56
                               73131              =X1    X3+1        X1 = ADDRESS OF POSSIBLE MATCHING RP + 1    FC5A171A   57
           305  0470000303 +                      ZR     B7,PEC40    IF LEFT PAREN                               FC5A171A   58
                          0420000344 +            ZR     B2,PEC80    IF ZERO LEVEL COMMA                         FC5A171A   59
           306  74131                             =X1    A3+1                                                    FC5A171A   60
                     37312                        IX3    X1-X2                                                   FC5A171A   61
                          0333000303 +            MI     X3,PEC40    IF MORE TOKENS                              FC5A171A   62
                                                                                                                 FC5A171A   63
                                        **        HERE IF NO ZERO LEVEL COMMA INSIDE PARENS.                     FC5A171A   64
                                        *         MUST CALL PAR TO FIND OUT IF EXPRESSION IS UNIT OR FORMAT      FC5A171A   65
                                                                                                                 FC5A171A   66
           307  5110000000 X                      SA1    FOUARM                                                  FC5A171A   67
                          76660                   SX6    B6                                                      FC5A171A   68
           310  5160000605 +                      SA6    CUDA        PRESERVE B6                                 FC5A171A   69
                          43600                   MX6    0                                                       FC5A171A   70
           311  5160000015 +                      SA6    LISTDIR                                                 FC5A171A   71
                          67441                   =B4    B4-1        B4 _ *(*                                    FC5A171A   72
           312  7160000044                        SX6    O.SLP                                                   FC5A171A   73
                          56640                   SA6    B4          TURN O.LP INTO O.SLP                        FC5A171A   74
                               10611              BX6    X1                                                      FC5A171A   75
           313  5160000000 X                      SA6    ARGMODE     SET *FORMAT OR UNIT* ARGMODE                FC5A171A   76
                          0100000000 X            CALL   PAR         PARSE THE EXPRESSION                        FC5A171A   77
           314  0100000000 X                      CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION        FC5A171A   78
           315  43071                             MX0    -TP.MODEL                                               FC5A171A   79
                                                  LX5    -TP.MODEP                                               FC5A171A   80
                     15150                        BX1    -X0*X5      EXTRACT MODE OF RESULT                      FC5A171A   81
                                                  LX5    TP.MODEP                                                FC5A171A   82
                          7211777771              SX1    X1-M.CHAR                                               FC5A171A   83
           316  0311000322 +                      NZ     X1,PEC50    IF NOT CHARACTER (NOT A FORMAT)             FC5A171A   84
                          5130000000 +            SA3    IODIR                                                   FC5A171A   85
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    17
        DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.            PEC 
  
           317  66441                             =B4    B4+1        B4 _ *)*                                    FC5A171A   86
                     6120000020                   SB2    S=INF                                                   FC5A171A   87
           320  0313000351 +                      NZ     X3,PEC110   IF *WRITE(CEXP) *                           FC5A171A   88
                          5110000605 +            SA1    CUDA                                                    FC5A171A   89
           321  63610                             SB6    X1          RESTORE B6                                  FC5A171A   90
                     66441                        =B4    B4+1        B4 _ BEGINING OF I/O LIST (EOS)             FC5A171A   91
                          0400001617 +            EQ     LST                                                     FC5A171A   92
                                                                                                                 FC5A171A   93
                                        **        EXPRESSION MUST BE A UNIT DESIGNATOR IF HERE. COMPLETE         FC5A171A   94
                                        *         PROCESSING AS SUCH.                                            FC5A171A   95
                                                                                                                 FC5A171A   96
           322  5120000605 +             PEC50    SA2    CUDA                                                    FC5A171A   97
                          43601                   MX6    1                                                       FC5A171A   98
                               54621              =A6    A2+1        INDICATE UNIT NOT CONSTANT (INITIALLY)      FC5A343     7
           323  22105                             LX1    X5                                                      FC5A171A  100
                     10455                        BX4    X5                                                      FC5A171A  101
                          5150000000 X            SA5    CONONE                                                  FC5A171A  102
           324  63620                             SB6    X2                                                      FC5A171A  103
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          FC5A171A  104
           325  6230777775                        SB3    X0-M.INT                                                FC5A171A  105
                          0300000332 +            ZR     X0,PEC60    IF BOOLEAN                                  FC5A171A  106
           326  0430000332 +                      ZR     B3,PEC60    IF INTEGER                                  FC5A171A  107
                          5140000000 X            SA4    S=BU                                                    FC5A171A  108
           327  6170000000 X                      FATAL  E.IO00      ** UNIT DESIGNATOR IS BAD                   FC5A171A  109
           330  20454                             LX4    TP.ORDP                                                 FC5A171A  110
                                   0              ERRNZ  M.BOOL                                                  FC5A171A  111
                     0100000675 +                 RJ     OUT         OUTPUT UNIT DESIGNATOR TURPLE               FC5A171A  112
           331  0400000345 +                      EQ     PEC90                                                   FC5A171A  113
                                                                                                                 FC5A171A  114
           332  0100001135 +             PEC60    RJ     UDP         UNIT DESIGNATOR PROCESSING                  FC5A171A  115
           333  0100000675 +                      RJ     OUT         OUTPUT UNIT TURPLE                          FC5A171A  116
           334  0400000345 +                      EQ     PEC90                                                   FC5A171A  117
                                                                                                                 FC5A171A  118
                                        **        HERE IF  *(EXP),* OR *(EXP)//* . EXPRESSION MUST               FC5A171A  119
                                        *         BE A CHARACTER FORMAT DESIGNATOR.                              FC5A171A  120
                                                                                                                 FC5A171A  121
           335  56140                    PEC70    SA1    B4           GET FIRST TOKEN AFTER LP                   FC50811    12
                     7231777766                   SX3    X1-O.VAR     IF VARIABLE TOKEN                          FC50811    13
           336  0303000341 +                      ZR     X3,PEC75     POSSIBLE CHARACTER FORMAT                  FC50811    14
                          7231777740              SX3    X1-O.LP      IF LEFT PAREN                              FC50811    15
           337  0303000341 +                      ZR     X3,PEC75                                                FC50811    16
                          7231777773              SX3    X1-O.CHAR    IF CHARACTER CONSTANT                      FC50811    17
           340  0313000344 +                      NZ     X3,PEC80     CANNOT BE CHARACTER FORMAT                 FC50811    18
                                                                                                                 FC50811    19
           341  67441                    PEC75    =B4    B4-1         B4 POINTS TO FORMAT                        FC50811    20
                     5110000002 +                 SA1    IOREF                                                   FC5A171A  123
                               10711              BX7    X1                                                      FC5A171A  124
           342  13666                             SHRINK T=IOARG     NO NEED FOR ROOM FOR UNIT DESIGNATOR        FC5A171A  125
           343  5150000407 +                      SA5    PECB        X5 = DEFAULT UNIT DESIGNATOR                FC5A171A  126
                          0400000245 +            EQ     PIC         PROCESS AS IMPLIED CONTROL LIST             FC5A171A  127
                                                                                                                 FC5A171A  128
           344  0100000527 +             PEC80    RJ     CUD         COMPILE UNIT DESIGNATOR                     FC5A171A  129
                                                                                                                 FC5A171A  130
           345  66662                    PEC90    SB6    B6+B2       ADJUST IF INTERNAL FILE                     FC5A171A  131
                     76610                        =X6    1                                                       IO        582
                          20672                   LX6    59-IC.UNT                                               IO        583
           346  5160001002 +                      SA6    PKCA        INDICATE I/O UNIT DEFINED                   IO        584
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    18
        DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.            PEC 
  
                          56141                   =A1    B4+1        RIGHT PAREN OR COMMA                        IO        585
                               66441              =B4    B4+1                                                    IO        586
           347  6271777737                        SB7    X1-O.)                                                  IO        587
                          5130000000 +            SA3    IODIR                                                   FC5A171A  132
           350  0570000360 +                      NZ     B7,PEC140   IF NOT *)*                                  FC5A171A  133
                                                                                                                 FC5A171A  134
           351  7112777757               PEC110   SX1    B2-S=INF                                                FC5A171A  135
                          0311000355 +            NZ     X1,PEC130   IF NOT AN INTERNAL FILE                     FC5A171A  136
           352  6170000000 X                      SB7    E.IO34      ** INTERNAL FILE REQUIRES A FORMAT          FC5A171A  137
                          0313000354 +            NZ     X3,PEC120   IF *WRITE(CEXP)VAR*                         FC5A171A  138
           353  6170000000 X                      SB7    E.IO35      ** MISSING COMMA OR MISSING FORMAT          FC5A171A  139
                                                                                                                 FC5A171A  140
           354  0100000000 X             PEC120   FATAL  B7                                                      FC5A171A  141
                                                                                                                 FC5A171A  142
           355  6166000004               PEC130   =B6    B6+S=BIN                                                FC5A171A  143
                          5130001002 +            SA3    PKCA                                                    FC50218     5
           356  0100001114 +                      RJ     SFP         SET FILE PROPERTIES                         FC50218     6
           357  0400001617 +                      EQ     LST                                                     IO        595
                                                                                                                 IO        596
           360  0301000000 X             PEC140   ZR     X1,E.IO08   IF PREMATURE *EOS*                          FC5A171A  144
                          6221777735              SB2    X1-O.COMMA                                              FC5A171A  145
           361  0420000363 +                      ZR     B2,PEC150   IF *COMMA*                                  FC5A171A  146
                          6170000000 X            WARN   E.IO09      ** ASSUMED COMMA AFTER UNIT **              FC5A171A  147
                                                                                                                 FC5A171A  148
           363  56141                    PEC150   =A1    B4+1                                                    FC5A171A  149
                     0301000000 X                 ZR     X1,E.IO13   IF PREMATURE EOS (RETURN LST)               IO        602
                               66441              =B4    B4+1                                                    IO        603
           364  5124000001                        SA2    B4+1                                                    IO        604
                          7222777736              SX2    X2-O.=                                                  IO        605
           365  0302000375 +                      ZR     X2,PEC170    IF KEYWORD FORM                            FC5A171A  150
                                                                                                                 FC5A171A  151
                          0100000712 +            RJ     PFN         PROCESS FORMAT/NAMELIST DESIGNATOR          FC5A171A  152
           366  56141                             =A1    B4+1                                                    IO        608
                     66441                        =B4    B4+1                                                    IO        609
                          0301000000 X            ZR     X1,E.IO08   IF PREMATURE *EOS*                          IO        610
           367  6221777737                        SB2    X1-O.)                                                  IO        611
                          5130001002 +            SA3    PKCA                                                    IO        612
           370  7160000001                        SX6    1                                                       IO        613
                          20667                   LX6    59-IC.FMT                                               IO        614
                               12636              BX6    X3+X6                                                   IO        615
           371  0520000374 +                      NZ     B2,PEC160                                               FC5A171A  153
                          10366                   BX3    X6                                                      IO        617
           372  0100001114 +                      RJ     SFP                                                     IO        618
           373  0400001617 +                      EQ     LST                                                     IO        619
                                                                                                                 IO        620
           374  54630                    PEC160   SA6    A3                                                      FC5A214     5
                     66441                        =B4    B4+1                                                    FC5A171A  155
                                                                                                                 FC5A171A  156
           375  5110000175 +             PEC170   SA1    PECA        KEYWORD LEGALITY MASK                       FC5A214     6
                          0100001006 +            RJ     PKC         PROCESS KEYWORD CONTROL ITEMS               IO        625
           376  0100001114 +                      RJ     SFP         SET FILE PROPERTY BITS                      IO        626
           377  7100000001                        SX0    1                                                       IO        627
                          20065                   LX0    59-IC.REC                                               IO        628
                               11130              BX1    X3*X0                                                   IO        629
           400  0301000404 +                      ZR     X1,PEC180   IF REC= NOT SPECIFIED                       FC5A171A  158
                                                                                                                 IO        631
                                        *         TEST FOR DIRECT ACCESS INCONSISTENCY                           IO        632
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    19
        DATA TRANSFER I/O STATEMENTS - SOURCE TRANSLATION.            PEC 
  
                                                                                                                 IO        633
                          20072                   LX0    IC.REC-IC.NML                                           IO        634
                               11130              BX1    X3*X0                                                   IO        635
           401  0311000000 X                      NZ     X1,E.IO28   IF REC= AND NAMELIST                        IO        636
                          20006                   LX0    IC.NML-IC.END                                           IO        637
                               11130              BX1    X3*X0                                                   IO        638
           402  0311000000 X                      NZ     X1,E.IO29   IF REC= AND END= SPECIFIED                  IO        639
                          6126777767              SB2    B6-S=FREE                                               IO        640
           403  0620000000 X                      PL     B2,E.IO25   IF REC= AND FMT=*                           IO        641
                          6166000024              SB6    B6+S=DA     INDICATE DIRECT ACCESS                      IO        642
           404  7100000001               PEC180   SX0    1                                                       FC5A171A  159
                          20067                   LX0    59-IC.FMT                                               IO        644
                               11030              BX0    X3*X0                                                   IO        645
           405  5130000000 +                      SA3    IODIR                                                   FC5A171A  160
                          0300000355 +            ZR     X0,PEC130   IF NOT FORMATTED                            FC5A171A  161
           406  0400001617 +                      EQ     LST         PROCESS THE I/O LIST                        IO        647
                                                                                                                 IO        648
                                 175 +   PECA     EQU    FMSA        SAVE KEYWORD LEGALITY MASK                  IO        649
           407                     1     PECB     BSS    1           PRESERVE DEFAULT UNIT DESIGNATOR HERE       FC5A171A  162
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    20
        NON ANSI I/O STATEMENTS - SOURCE TRANSLATION.                 BUFFER
  
                                        **        PROCESS "BUFFER IN/OUT" STATEMENTS.                            IO        652
                                        *                                                                        IO        653
                                        *         NON-ANSI:  SEE ERS 12.16                                       IO        654
                                        *                                                                        IO        655
                                        *         BUFFER <DIR> (<FILE>,<MODE>) (FWA,LWA)                         IO        656
                                        *         <DIR>  #  *IN* OR *OUT*                                        IO        657
                                        *         <FILE> # AS DEFINED BY *CUD*                                   IO        658
                                        *         <MODE> #  <INTEGER-CONSTANT> OR <SIMPLE-INTEGER-VARIABLE>      IO        659
                                        *                                                                        IO        660
                                        *         CALLS  ALC, CUD, IIC, IOJ, PAR, PCT, SFP, TSX                  IO        661
                                                                                                                 IO        662
                                                                                                                 IO        663
           410                                    HEREIF BUFFER                                                  IO        664
                                                                                                                 IO        665
           410  6170000000 X                      ANSI   E.ANS       NON ANSI STATEMENT.                         IO        666
           411  6170000000 X                      MDERR  E.MDE3      ** BUFFER IO IS MACHINE DEPENDENT           F1037F5   430
           412  56540                             SA5    B4                                                      IO        667
                     5120000465 +                 SA2    BUFA                                                    IO        668
                               54321              =A3    A2+1                                                    IO        669
           413  66500                             =B5    0           INDICATE INPUT                              IO        670
                     66600                        =B6    S=INP       INDICATE INPUT                              IO        671
                          13252                   BX2    X5-X2                                                   IO        672
                               54151              =A1    A5+1        *(*                                         IO        673
           414  6221777740                        SB2    X1-O.LP                                                 IO        674
                          13353                   BX3    X5-X3                                                   IO        675
                               66441              =B4    B4+1                                                    IO        676
           415  0302000417 +                      ZR     X2,BUF1     IF *IN*                                     IO        677
                          66510                   =B5    1           INDICATE OUTPUT                             IO        678
                               66611              =B6    S=OUT       INDICATE OUTPUT                             IO        679
           416  0313000000 X                      NZ     X3,E.IOB1   IF NOT *OUT*, ERR..                         IO        680
           417  0420000420 +             BUF1     ZR     B2,BUF2     IF SYNTAX OK                                IO        681
                          0400000000 X            EQ     E.IOB3                                                  IO        682
                                                                                                                 IO        683
           420  0100000636 +             BUF2     RJ     IIC         INITIALIZE I/O CONTROL                      IO        684
           421  6160000063 +                      SB6    S.BUFIO                                                 IO        685
                          67665                   SB6    B6-B5       ADJUST FOR I/O DIRECTION                    IO        686
                               56160              TAGSEX B6          PROCESS I/O ROUTINE NAME                    IO        687
           423  6130000016 +                      SB3    S.IOCALL                                                IO        690
                          77636                   SX6    B3-B6       NEGATIVE ORDINAL = FIRST CALL               IO        691
           424  5160000006 +                      SA6    IONAM       SAVE ROUTINE NAME                           FC5A232     8
                                                                                                                 IO        693
                                        **        PROCESS UNIT DESIGNATOR                                        IO        694
                                                                                                                 IO        695
                          66441                   =B4    B4+1        POSITION TO UNIT DESIGNATOR                 IO        696
           425  5110000000 +                      SA1    IODIR                                                   IO        697
                          14611                   BX6    -X1                                                     IO        698
                               54610              SA6    A1          SET IODIR NEGATIVE TO PREVENT FUNNY UNITS   IO        699
           426  5110000000 X                      ALLOC  T.IOARG,Z=TURP    FOR UNIT DESIGNATOR                   IO        700
           430  0100000527 +                      RJ     CUD         COMPILE THE UNIT DESIGNATOR                 IO        701
           431  76310                             =X3    1                                                       IO        702
                     0100001114 +                 RJ     SFP         SET FILE PROPERTY BITS                      IO        703
           432  66441                             =B4    B4+1                                                    IO        704
                                                                                                                 IO        705
                                        **        PROCESS MODE DESIGNATOR                                        IO        706
                                                                                                                 IO        707
                     56240                        =A2    B4                                                      IO        708
                          6272777735              SB7    X2-O.COMMA                                              IO        709
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    21
        NON ANSI I/O STATEMENTS - SOURCE TRANSLATION.                 BUFFER
  
           433  0570000000 X                      NZ     B7,E.IOB4                                               IO        710
                          5120000000 X            SA2    BUFMOD                                                  IO        711
           434  5110000002 +                      SA1    IOREF                                                   IO        712
                          7160000055              SX6    55B                                                     FC5A125     4
           435  13161                             BX1    X6-X1                                                   FC5A125     5
                     20160                        LX1    AM.REFP                                                 FC5A125     6
                          13621                   BX6    X2-X1                                                   FC5A125     7
           436  5160000000 X                      SA6    ARGMODE                                                 IO        715
                          7170000044              =X7    O.SLP                                                   IO        716
           437  56740                             SA7    B4                                                      IO        717
                     0100000000 X                 CALL   PAR         PARSE THE MODE DESIGNATOR                   IO        718
                                                                                                                 IO        719
           440  56140                             SA1    B4                                                      IO        720
                     56241                        =A2    B4+1                                                    IO        721
                          64421                   =B4    A2+1        POINT TO FWA                                IO        722
                               13666              =X6                                                            IO        723
           441  7211777737                        SX1    X1-O.RP                                                 IO        724
                          7222777740              SX2    X2-O.LP                                                 IO        725
           442  0311000000 X                      NZ     X1,E.IOB5   IF NO ) AFTER MODE DESIGNATOR               IO        726
                          0302000444 +            ZR     X2,BUF3     IF SYNTAX OK                                IO        727
           443  67441                             =B4    B4-1        RESET FOR DIAGNOSTIC                        IO        728
                     0400000000 X                 EQ     E.IOB3                                                  IO        729
                                                                                                                 IO        730
                                        **        PROCESS FWA AND LWA                                            IO        731
                                                                                                                 IO        732
           444  5160000000 X             BUF3     SA6    ARGCOMA                                                 IO        733
                          5120000000 X            SA2    BUFFWA                                                  IO        734
           445  5130000002 +                      SA3    IOREF                                                   IO        735
                          20360                   LX3    AM.REFP                                                 IO        736
                               43014              MX0    AM.REFL                                                 FC5A338    36
           446  15220                             BX2    -X0*X2      CLEAR OLD REFERENCE LETTER                  FC5A338    37
                                   0              ERRNZ  60-AM.REFL-AM.REFP                                      FC5A338    38
                     12723                        BX7    X2+X3                                                   IO        737
                          5170000000 X            SA7    ARGMODE                                                 IO        738
           447  0100000000 X                      CALL   PAR         PARSE FIRST WORD ADDRESS                    IO        739
           450  56241                             =A2    B4+1                                                    IO        740
                     66441                        =B4    B4+1                                                    IO        741
                          6272777735              SB7    X2-O.COMMA                                              IO        742
           451  0570000000 X                      NZ     B7,E.IOB4   IF NO *,* AFTER FWA                         IO        743
                                                                                                                 IO        744
                          5120000000 X            SA2    BUFLWA                                                  IO        745
           452  5130000002 +                      SA3    IOREF                                                   FC5A338    39
                          7170000044              =X7    O.SLP                                                   IO        746
           453  43014                             MX0    AM.REFL                                                 FC5A338    40
                     20360                        LX3    AM.REFP                                                 FC5A338    41
                          15220                   BX2    -X0*X2                                                  FC5A338    42
                                   0              ERRNZ  60-AM.REFL-AM.REFP                                      FC5A338    43
                               12632              BX6    X3+X2                                                   FC5A338    44
           454  56740                             SA7    B4                                                      IO        748
                     5160000000 X                 SA6    ARGMODE                                                 IO        749
           455  0100000000 X                      CALL   PAR         PARSE LAST WORD ADDRESS                     IO        750
           456  56240                             =A2    B4                                                      IO        751
                     6272777737                   SB7    X2-O.RP                                                 IO        754
           457  0570000000 X                      NZ     B7,E.IOB5   IF NO *)* AFTER LWA                         IO        755
                          7160000000              SX6    0+                                                      IO        757
           460  0100000646 +                      RJ     IOJ         COMPILE THE CALL                            IO        758
           461  0400000000 X                      EQ     PSL         EXIT...                                     IO        759
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    22
        NON ANSI I/O STATEMENTS - SOURCE TRANSLATION.                 BUFFER
  
                                                                                                                 IO        760
                                        **        HERE IF FATAL ERROR IN BUFFER STATEMENT.                       IO        761
                                        *                ADD *O=ERR* OPERATOR TO PARSED FILE.                    IO        762
                                                                                                                 IO        763
           462                           BUFERR   BSSENT 0           ...RETURN FROM ERROR PROCESSOR              IO        764
           462  43400                             MX4    0                                                       IO        765
                     76500                        =X5    0                                                       IO        766
                          6130400000 X            EMIT   ERROP,*                                                 IO        767
           464  0400000000 X                      EQ     PSL         EXIT...                                     IO        768
                                                                                                                 IO        769
           465  11160000000000000011     BUFA     CON    0LIN+O.VAR                                              IO        770
           466  17252400000000000011              CON    0LOUT+O.VAR                                             IO        771
  
  
  
  
                                        **        PROCESS "DECODE" STATEMENT.                                    IO        773
                                        *                                                                        IO        774
                                        *         NON-ANSI:  SEE ERS 12.15                                       IO        775
                                        *                                                                        IO        776
                                        *         EXIT   TO *NDC* WITH                                           IO        777
                                        *                (B6) = OUTPUT DIRECTION INDICATION. (FOR STRING)        IO        778
                                                                                                                 IO        779
                                                                                                                 IO        780
           467                                    HEREIF DECODE                                                  IO        781
                                                                                                                 IO        782
           467  6160000002                        SB6    S=OUT                                                   IO        783
                          7170000027              SX7    CR.OUT                                                  IO        784
           470  0400000472 +                      EQ     NDC         PROCESS ARGUMENTS AND LIST                  IO        785
  
  
  
  
                                        **        PROCESS "ENCODE" STATEMENT.                                    IO        787
                                        *                                                                        IO        788
                                        *         NON-ANSI:  SEE ERS 12.15                                       IO        789
                                        *                                                                        IO        790
                                        *         EXIT   TO *NDC* WITH                                           IO        791
                                        *                (B6) = INPUT DIRECTION INDICATION. (FOR STRING)         IO        792
                                                                                                                 IO        793
                                                                                                                 IO        794
           471                                    HEREIF ENCODE                                                  IO        795
                                                                                                                 IO        796
           471  6160000000                        SB6    S=INP                                                   IO        797
                          7170000022              SX7    CR.INP                                                  IO        798
                                        *         EQ     NDC                                                     IO        799
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    23
        NON ANSI I/O STATEMENTS - SOURCE TRANSLATION.                 NDC 
  
                                        **        NDC -  ENCODE / DECODE ARGUMENTS.                              IO        801
                                        *                                                                        IO        802
                                        *         ENTRY  (B4) _ *(* IN *TB*                                      IO        803
                                        *                (B6) = S=INP OR S=OUT (FOR STRING-ADDRESS)              IO        804
                                        *                (X7) = CROSS REFERENCE SYMBOL (FOR STRING)              IO        805
                                        *                                                                        IO        806
                                        *         EXIT   TO *LST* WITH --                                        IO        807
                                        *                (B4) _ *)* IN *TB*                                      IO        808
                                        *                (B6) = S=INP OR S=OUT (FOR IOLIST) + *STRING* MODE      IO        809
                                        *                                                                        IO        810
                                        *         CALLS  IIC, PAR, PFN                                           IO        811
                                                                                                                 IO        812
                                                                                                                 IO        813
           472  6170000000 X             NDC      ANSI   E.ANS       NON-ANSI STATEMENT                          IO        814
           473  6170000000 X                      MDERR  E.MDE4      ** ENCODE/DECODE ARE MACHINE DEPENDENT      F1037F5   431
           474  5170000002 +                      SA7    IOREF                                                   IO        815
                          0100000636 +            RJ     IIC         INITIALIZE CONTROL CELLS                    IO        816
                                                                                                                 IO        817
                                        **        ASSEMBLE RECORD LENGTH.                                        IO        818
                                                                                                                 IO        819
           475  56440                             SA4    B4                                                      IO        820
                     6224777740                   =B2    X4-O.LP                                                 IO        821
           476  0304000000 X                      ZR     X4,E.IOS6   IF PREMATURE EOS                            IO        822
                          0520000000 X            NZ     B2,E.IOS1   IF NOT LEFT PARENTHESIS, ERROR              IO        823
           477  5120000002 +                      SA2    IOREF                                                   IO        824
                          5110000000 X            SA1    CNTARM                                                  IO        825
           500  7160000055                        SX6    55B                                                     FC5A125     8
                          13262                   BX2    X6-X2                                                   FC5A125     9
                               20260              LX2    AM.REFP                                                 FC5A125    10
           501  13612                             BX6    X1-X2                                                   FC5A125    11
                     5160000000 X                 SA6    ARGMODE                                                 IO        828
           502  7170000044                        SX7    O.SLP                                                   IO        829
                          56740                   SA7    B4          SET FOR PAR                                 IO        830
           503  0100000000 X                      CALL   PAR         PARSE RECORD COUNT                          IO        831
           504  56441                             =A4    B4+1                                                    IO        832
                     64441                        =B4    A4+1        POINT TO FORMAT                             IO        833
                          6224777735              =B2    X4-O.COMMA                                              IO        834
           505  0304000000 X                      ZR     X4,E.IOS6   IF PREMATURE EOS                            IO        835
                          0520000000 X            NZ     B2,E.IOS2   IF NO COMMA                                 IO        836
                                                                                                                 IO        837
                                        **        PROCESS THE FORMAT DESIGNATOR.                                 IO        838
                                                                                                                 IO        839
           506  0100000712 +                      RJ     PFN         PROCESS THE FORMAT DESIGNATOR               IO        840
           507  5114000000                        SA1    B4+                                                     IO        841
                          6221777761              SB2    X1-O.STAR                                               IO        842
           510  0420000000 X                      ZR     B2,E.IOS8   IF LIST DIRECTED                            IO        843
                          0760000000 X            MI     B6,E.IOS3   IF NAMELIST NAME                            IO        844
           511  56141                             =A1    B4+1                                                    IO        845
                     66441                        =B4    B4+1                                                    IO        846
                          6221777735              SB2    X1-O.COMMA                                              IO        847
           512  0301000000 X                      ZR     X1,E.IOS6   IF PREMATURE EOS                            IO        848
                          0520000000 X            NZ     B2,E.IOS4   IF NO COMMA                                 IO        849
                                                                                                                 IO        850
                                        **        DIGEST STRING ADDRESS.                                         IO        851
                                                                                                                 IO        852
           513  7160000044                        =X6    O.SLP                                                   IO        853
                          5120000002 +            SA2    IOREF                                                   IO        854
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    24
        NON ANSI I/O STATEMENTS - SOURCE TRANSLATION.                 NDC 
  
           514  5110000000 X                      SA1    STRARM                                                  IO        855
                          7170000055              SX7    55B                                                     FC5A125    12
           515  13272                             BX2    X7-X2                                                   FC5A125    13
                     20260                        LX2    AM.REFP                                                 FC5A125    14
                          13712                   BX7    X1-X2                                                   FC5A125    15
           516  5170000000 X                      SA7    ARGMODE                                                 IO        858
                          56640                   SA6    B4                                                      IO        859
           517  0100000000 X                      CALL   PAR         PARSE STRING ADDRESS                        IO        860
           520  56440                             SA4    B4                                                      IO        861
                     6224777737                   =B2    X4-O.RP                                                 IO        862
           521  0520000000 X                      NZ     B2,E.IOS5   IF NO RIGHT PAREN                           IO        863
                                                                                                                 IO        864
                                        *         THE I/O DIRECTION WAS ORIGINALLY SET FOR THE STRING.  IT       IO        865
                                        *         MUST NOW BE REVERSED FOR THE I/O LIST.                         IO        866
                                                                                                                 IO        867
                          5130000000 +            SA3    IODIR                                                   IO        868
           522  7170000022                        SX7    CR.INP                                                  IO        869
                          6160000000              SB6    S=INP                                                   IO        870
           523  0313000525 +                      NZ     X3,NDC4     IF OUTPUT DIRECTION (ORIGINALLY)            IO        871
                          7170000027              SX7    CR.OUT                                                  IO        872
           524  6160000002                        SB6    S=OUT                                                   IO        873
           525  76660                    NDC4     SX6    B6          RESET (IODIR) FOR DIAGNOSTICS               IO        874
                     6166000014                   SB6    B6+S=STR                                                IO        875
                               54630              SA6    A3                                                      IO        876
           526  5170000000 X                      SA7    REFVAR                                                  IO        877
                          0400001631 +            EQ     LST.S       EXIT..  (TO PROCESS I/O LIST)               IO        878
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    25
        SOURCE STATEMENT SUBROUTINES.                                 CUD 
  
                                        **        CUD -  COMPILE UNIT DESIGNATOR                                 IO        881
                                        *                                                                        IO        882
                                        *         CALLED BY ALL I/O STATEMENTS WHICH CONTAIN AN EXPLICIT UNIT    IO        883
                                        *         DESIGNATOR.                                                    IO        884
                                        *                                                                        IO        885
                                        *         ENTRY  (B4) _ THE UNIT DESIGNATOR IN THE *TB*                  IO        886
                                        *                (IODIR) = SIGN BIT SET IF NEITHER IMPLIED UNIT NOR      IO        887
                                        *                          INTERNAL FILE IS ALLOWED.                     IO        888
                                        *                                                                        IO        889
                                        *         EXIT   (B4) _ LAST TOKEN OF UNIT DESIGNATOR                    IO        890
                                        *                (B2) = S=INF IF INTERNAL FILE, ELSE 0                   IO        891
                                        *                UNIT DESIGNATOR TURPLE OUTPUT                           IO        892
                                        *                (CUDA+1) = MI IF UNIT DESIGNATOR NOT CONSTANT           IO        893
                                        *                         = SYMTAB *WB* INDEX OF FILE OTHERWISE          IO        894
                                        *                                                                        IO        895
                                        *         USES   A1,A2,A3,A5,A6  X0,X1,X2,X3,X4,X5,X6 B2,B7              IO        896
                                        *                                                                        IO        897
                                        *         CALLS  CDD,EMT,ERT,ESY,LCH,MVE=,NCS,PAR,SSY,TPC,VAI,OUT,UDP.   FC5A171A  163
                                                                                                                 IO        899
                                                                                                                 IO        900
                                                                                                                 IO        901
           527  0400400527 +             CUD      SUBR               ENTRY/EXIT...                               IO        902
           530  43601                             MX6    1                                                       IO        903
                     5160000606 +                 =A6    CUDA+1      INDICATE UNIT NOT CONSTANT (INITIALLY)      IO        904
                               56140              SA1    B4                                                      IO        905
           531  6271777761                        SB7    X1-O.STAR                                               IO        906
                          0570000540 +            NZ     B7,CUD3     IF NOT IMPLIED UNIT DESIGNATOR              IO        907
           532  5110000000 +                      SA1    IODIR                                                   IO        908
                          6170000000 X            SB7    E.IO04      ** IMPLIED UNIT NOT ALLOWED                 IO        909
           533  0331000603 +                      MI     X1,CUD9     IF IMPLIED UNIT PROHIBITED                  IO        910
                          5120002762 +            SA2    =0LINPUT                                                IO        911
           534  0301000535 +                      ZR     X1,CUD2     IF INPUT DIRECTION                          IO        912
                          5120002760 +            SA2    =0LOUTPUT                                               IO        913
           535  22602                    CUD2     LX6    X2                                                      IO        914
                     76700                        =X7    M.BOOL                                                  IO        915
                          0100000000 X            CALL   NCS         SCAN IMPLIED UNIT                           IO        916
           536  10466                             BX4    X6                                                      IO        917
                     5150000000 X                 SA5    CONONE                                                  IO        918
           537  0400000601 +                      EQ     CUD7                                                    IO        919
                                                                                                                 IO        920
           540  5110000000 X             CUD3     SA1    UNTARM                                                  IO        921
                          76760                   SX7    B6                                                      IO        922
                               22601              LX6    X1                                                      IO        923
           541  5160000000 X                      SA6    ARGMODE                                                 IO        924
                          5170000605 +            SA7    CUDA        SAVE (B6)                                   IO        925
           542  7160000044                        SX6    O.SLP                                                   IO        926
                          57641                   =A6    B4-1                                                    IO        927
                               67441              =B4    B4-1                                                    IO        928
           543  0100000000 X                      CALL   PAR         PARSE THE UNIT DESIGNATOR                   IO        929
           544  0100000000 X                      CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION        IO        930
           545  5110000605 +                      SA1    CUDA                                                    IO        931
                          63610                   SB6    X1          RESTORE (B6)                                IO        932
                               22105              LX1    X5                                                      IO        933
           546  10455                             BX4    X5                                                      IO        934
                     5150000000 X                 SA5    CONONE                                                  IO        935
           547  0100000000 X                      CALL   LCH         LOAD CONSTANT TEST                          IO        936
           550  6230777775                        SB3    X0-M.INT                                                IO        937
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    26
        SOURCE STATEMENT SUBROUTINES.                                 CUD 
  
                          0300000600 +            ZR     X0,CUD4     IF BOOLEAN                                  IO        938
           551  0430000600 +                      ZR     B3,CUD4     IF INTEGER                                  IO        939
                          6230777771              SB3    X0-M.CHAR                                               IO        940
           552  6170000000 X                      SB7    E.IO00      ** UNIT DESIGNATOR NOT INTEGER NOR CHAR XPR IO        941
                          0530000603 +            NZ     B3,CUD9     IF NOT CHARACTER                            IO        942
           553  10544                             BX5    X4                                                      IO        943
                     5130000000 +                 SA3    IODIR                                                   IO        944
           554  6170000000 X                      SB7    E.IO30      INTERNAL FILE NOT PERMITTED                 IO        945
                          0333000603 +            MI     X3,CUD9     IF INTERNAL FILE NOT ALLOWED                IO        946
           555  5110001002 +                      SA1    PKCA                                                    IO        947
                          6170000000 X            SB7    E.IO33                                                  IO        948
           556  7120000001                        SX2    1                                                       IO        949
                          20263                   LX2    59-IC.NML                                               IO        950
                               11121              BX1    X2*X1                                                   IO        951
           557  0311000603 +                      NZ     X1,CUD9     IF ALREADY NAMELIST                         IO        952
                          5110000015 +            SA1    LISTDIR                                                 FC5A338    45
           560  6170000000 X                      SB7    E.IO26      **INTERNAL FILE CANT BE FREE FORMAT         FC5A338    46
                          0311000603 +            NZ     X1,CUD9     IF FREE FORMAT                              FC5A338    47
           561  6130000000 X                      SB3    E.IO23      INTERNAL FILE CANT BE CONSTANT/EXPRESSION   IO        953
                                                                                                                 IO        954
                                        **        WE MUST NOW REVERSE THE I/O DIRECTION FOR VAI.                 IO        955
                                                                                                                 IO        956
                          7140000000              SX4    S=INP                                                   IO        957
           562  0313000563 +                      NZ     X3,CUD3A    IF OUTPUT ORIGINAL DIRECTION                IO        958
                          7140000002              SX4    S=OUT                                                   IO        959
                                                                                                                 IO        960
           563  0100001542 +             CUD3A    RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO        961
           564  22405                             LX4    X5                                                      IO        962
                     10155                        BX1    X5                                                      IO        963
                          5150000000 X            SA5    CONONE                                                  IO        964
           565  20166                             SBIT   X1,TP.AREP                                              IO        965
                     0321000601 +                 PL     X1,CUD7     IF NOT ENTIRE ARRAY                         IO        966
           566  5120000000 X                      SA2    T.SYM                                                   IO        967
                          20106                   LX1    TP.AREL+TP.AREP-TP.ORDL-TP.ORDP                         IO        968
                               21154              AX1    -TP.ORDL    EXTRACT ORDINAL                             IO        969
           567  63210                             SB2    X1                                                      IO        970
                     20101                        LX1    1                                                       IO        971
                          73112                   SX1    B2+X1       CONVERT ORDINAL TO INDEX                    IO        972
                                   0              ERRNZ  3-Z=SYM                                                 IO        973
                               63211              =B2    X1-WA.W+WB.W                                            IO        974
           570  53122                             SA1    X2+B2       FETCH *WB*                                  IO        975
                     5120000000 X                 SA2    T.DIM                                                   IO        976
                                                  HX1    WB.PNT                                                  IO        977
                               21157              AX1    -WB.PNTL    EXTRACT T.DIM POINTER                       IO        978
           571  36121                             IX1    X2+X1                                                   IO        979
                     53110                        SA1    X1          FETCH *DH* OF DIMENSION DESCRIPTOR          IO        980
                          43044                   MX0    -DH.PSL                                                 IO        981
                               20136              LX1    -DH.PSP                                                 IO        982
           572  15510                             BX5    -X0*X1      EXTRACT ARRAY SIZE                          IO        983
                     20524                        LX5    TP.BIASP                                                IO        984
                          6170000000 X            SB7    E.IO24      INTERNAL FILE CANT BE ASSUMED SIZE          IO        985
           573  20137                             SBIT   X1,DH.ASP/DH.PSP-1                                      IO        986
                     0331000603 +                 MI     X1,CUD9     IF ASSUMED SIZE ARRAY                       IO        987
                               20173              SBIT   X1,DH.VDP/DH.ASP                                        IO        988
           574  7120010002                        CLAS=  X2,TP,(SHRT),INT                                        IO        989
                          12552                   BX5    X5+X2       MAKE INTO SHORT CONSTANT                    IO        990
           575  0321000601 +                      PL     X1,CUD7     IF NOT ADJUSTABLY DIMENSIONED               IO        991
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    27
        SOURCE STATEMENT SUBROUTINES.                                 CUD 
  
                          5110000000 X            SA1    S=VD                                                    IO        992
           576  7120010000                        CLAS=  X2,TP,(SHRT)                                            IO        993
                          20154                   LX1    TP.ORDP                                                 IO        994
                               15552              BX5    -X2*X5      REMOVE TP.SHRT (LEAVING BIAS + MODE)        IO        995
           577  12515                             BX5    X1+X5       ORD + BIAS + MODE = VD. PRODUCT OF SPANS    IO        996
                     0400000601 +                 EQ     CUD7                                                    IO        997
                                                                                                                 IO        998
           600  0420000601 +             CUD4     ZR     B2,CUD7     IF NOT CONSTANT                             IO        999
                          0100001135 +            RJ     UDP         UNIT DESIGNATOR PROCESSING                  FC5A171A  164
                                                                                                                 FC5A171A  165
           601  0100000675 +             CUD7     RJ     OUT         OUTPUT UNIT TURPLE                          FC5A171A  166
           602  0400000527 +                      EQ     EXIT.                                                   FC5A171A  167
                                                                                                                 IO       1073
           603  5140000000 X             CUD9     SA4    S=BU                                                    IO       1074
                          0100000000 X            FATAL  B7                                                      IO       1075
           604  20454                             LX4    TP.ORDP                                                 IO       1076
                                   0              ERRNZ  M.BOOL                                                  IO       1077
                     0400000601 +                 EQ     CUD7                                                    IO       1078
                                                                                                                 IO       1079
           605                     2     CUDA     BSS    2                                                       IO       1080
  
  
  
  
                                        **        ICK -  I/O CONTROL KEYWORD CHECK                               IO       1082
                                        *                                                                        IO       1083
                                        *         ENTRY  (B4) _ SUPPOSED KEYWORD TOKEN                           IO       1084
                                        *                (B6) = FWA OF KEYWORD TABLE TO SEARCH                   IO       1085
                                        *                (B7) = LENGTH OF KEYWORD TABLE                          IO       1086
                                        *                                                                        IO       1087
                                        *         EXIT   (B7) = KEYWORD TABLE ADDRESS IF KEYWORD                 IO       1088
                                        *                (B4) _ TOKEN FOLLOWING KEYWORD                          IO       1089
                                        *                (X6) = KEYWORD TABLE ENTRY                              IO       1090
                                        *                                                                        IO       1091
                                        *                (B7) = 0 IF NOT KEYWORD                                 IO       1092
                                        *                (B4) _ UNCHANGED                                        IO       1093
                                        *                                                                        IO       1094
                                        *         USES   A1,A2,A3,A4,A6,A7  B2,B7  X1,X2,X3,X4,X6,X7             FC50317     8
                                                                                                                 IO       1096
                                                                                                                 IO       1097
           607  0400400607 +             ICK      SUBR               ...ENTRY/EXIT...                            IO       1098
                                                                                                                 IO       1099
                                        *         INITIALIZATION                                                 IO       1100
                                                                                                                 IO       1101
           610  56140                             SA1    B4          THE SUPPOSED KEYWORD (1ST 7 CHARACTERS)     IO       1102
                     54211                        =A2    A1+1        (2ND 7 CHARACTERS, IF PRESENT)              IO       1103
                          6221777766              SB2    X1-O.VAR                                                FC50317     9
           611  0520000630 +                      NZ     B2,ICK6     IF NOT O.VAR, CANT BE KEYWORD               FC50317    10
                          43452                   MX4    7*CHAR                                                  IO       1104
                               56360              SA3    B6                                                      IO       1105
           612  11641                             BX6    X4*X1       FIRST 7 CHARACTERS                          IO       1106
                     13777                        BX7    X7-X7                                                   IO       1107
                          6222777766              SB2    X2-O.VAR                                                IO       1108
           613  0520000614 +                      NZ     B2,ICK1     IF NOT ANOTHER O.VAR TOKEN                  IO       1109
                          11742                   BX7    X4*X2                                                   IO       1110
                                                                                                                 IO       1111
                                        *         SET UP FOR DIAGNOSTICS.  (FILL.S FOR IMMEDIATE MESSAGES, ICKA  IO       1112
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    28
        SOURCE STATEMENT SUBROUTINES.                                 ICK 
  
                                        *         FOR DELAYED MESSAGES.)                                         IO       1113
                                                                                                                 IO       1114
           614  5160000000 X             ICK1     SA6    FILL.                                                   IO       1115
                          5170000000 X            SA7    FILL.2                                                  IO       1116
           615  5160000634 +                      SA6    ICKA                                                    IO       1117
                          5076000001              SA7    A6+1                                                    IO       1118
                                                                                                                 IO       1119
                                        *         SCAN KEYWORD TABLE                                             IO       1120
                                        *                (A3) _ CURRENT KEYWORD ENTRY                            IO       1121
                                        *                (X6) = 1ST 7 CHARACTERS OF KEYWORD (FROM T.TB)          IO       1122
                                        *                (X7) = 2ND 7 CHARACTERS OF KEYWORD (FROM T.TB)          IO       1123
                                                                                                                 IO       1124
                                         ICK2     LX3    0-KW.KEYP                                               IO       1125
           616  53230                             SA2    X3                                                      IO       1126
                                   0              ERRNZ  18-KW.KEYL                                              IO       1127
                     67771                        =B7    B7-1        DECREMENT LOOP COUNTER                      IO       1128
                          37226                   IX2    X2-X6                                                   IO       1129
           617  0302000621 +                      ZR     X2,ICK3     IF A 7 CHARACTER MATCH                      IO       1130
                          54331                   =A3    A3+1        FETCH NEXT TABLE ENTRY                      IO       1131
           620  0570000616 +                      NZ     B7,ICK2     IF MORE TABLE TO SEARCH                     IO       1132
                          0400000607 +            EQ     EXIT.                                                   IO       1133
                                                                                                                 IO       1134
                                        *         HERE IF 7 CHARACTER MATCH                                      IO       1135
                                                                                                                 IO       1136
                                         ICK3     LX3    KW.KEYP                                                 IO       1137
           621  10633                             BX6    X3                                                      IO       1138
                     20352                        LX3    -KW.LENP                                                IO       1139
                          43465                   MX4    -KW.LENL                                                IO       1140
                               15434              BX4    -X4*X3                                                  IO       1141
           622  63240                             SB2    X4                                                      IO       1142
                     6130000052                   SB3    7*CHAR                                                  IO       1143
                               54421              =A4    A2+1        SECOND 7 CHARACTERS                         IO       1144
           623  37774                             IX7    X7-X4                                                   IO       1145
                     64730                        SB7    A3                                                      IO       1146
                          0632000627 +            LE     B2,B3,ICK5  IF KEYWORD HAS .LE. 7 CHARACTERS            IO       1147
           624  0307000626 +                      ZR     X7,ICK4     IF KEYWORD MATCH ON ALL CHARACTERS          IO       1148
                          6170000000              SB7    0           INDICATE NO MATCH                           IO       1149
           625  0400000607 +                      EQ     EXIT.                                                   IO       1150
                                                                                                                 IO       1151
           626  6144000001              ICK4      SB4    B4+1        PAST KEYWORD (2ND TOKEN)                    IO       1152
                                                                                                                 FC50317    11
           627  6144000001              ICK5      SB4    B4+1        PASK KEYWORD (1ST TOKEN)                    IO       1153
                          0400000607 +            EQ     EXIT.                                                   IO       1154
                                                                                                                 FC50317    12
           630  5221000000 X             ICK6     SA2    X1+CHARMAP                                              FC50317    13
                          66700                   =B7    0           INDICATE NOT KEYWORD                        FC50317    14
                               43452              MX4    TB.TOCL                                                 FC50317    15
           631  43700                             MX7    0           FILL.2 WILL BE NULL                         FC50317    16
                                   0              ERRNZ  TB.TOCL-CH.DPCL                                         FC50317    17
                     0312000632 +                 NZ     X2,ICK7     IF TOKEN FORCES STRING                      FC50317    18
                               22201              LX2    X1          ELSE USE TOKEN BUFFER STRING                FC50317    19
                                                                                                                 FC50317    20
           632  11642                    ICK7     BX6    X4*X2       EXTRACT STRING FOR FILL.                    FC50317    21
                     5160000000 X                 SA6    FILL.                                                   FC50317    22
                               54761              =A7    A6+1                                                    FC50317    23
           633  0400000607 +                      EQ     EXIT.                                                   FC50317    24
                                                                                                                 IO       1155
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    29
        SOURCE STATEMENT SUBROUTINES.                                 ICK 
  
           634                     2    ICKA      BSS    2           KEYWORD (DPC) FOR DELAYED DIAGNOSTICS       IO       1156
  
  
  
  
                                        **        IIC - INITIALIZE I/O CONTROL                                   IO       1158
                                        *                                                                        IO       1159
                                        *         INITIALIZES I/O CONTROL CELLS AND SOME PARSER CONTROL CELLS.   IO       1160
                                        *                                                                        IO       1161
                                        *         ENTRY  (B6) = DIRECTION INDICATOR.                             IO       1162
                                        *                                                                        IO       1163
                                        *         EXIT   (B6) = PRESERVED                                        IO       1164
                                        *                (IODIR)   = (B6) FOR TESTING I/O DIRECTION.             IO       1165
                                        *                (IOSKP)   = 0 FOR NO SKIP TAG                           IO       1166
                                        *                (IOARGT)  = S=DIR FOR SETTING (ARGMODE) LATER.          IO       1167
                                        *                (IOREF)   = CR.DIR FOR X-REF.                           IO       1168
                                        *                (ARGCOMA) = 0 FOR PARSING OPERATIONS.                   IO       1169
                                        *                (LISTDIR) = 0, NOT LIST-DIRECTED (TP.IOD VICE IOP).     IO       1170
                                        *                                                                        IO       1171
                                        *         USES   A1,A6,A7  X1,X6,X7                                      IO       1172
                                                                                                                 IO       1173
                                                                                                                 IO       1174
           636  0400400636 +             IIC      SUBR               ENTRY/EXIT...                               IO       1175
           637  5110000000 X                      SA1    IOARGM                                                  IO       1176
                          0560000641 +            NZ     B6,IIC1     IF OUTPUT DIRECTION                         IO       1177
           640  54111                             =A1    A1+1                                                    IO       1178
           641  76760                    IIC1     SX7    B6                                                      IO       1179
                     5170000000 +                 SA7    IODIR                                                   IO       1180
                               10611              BX6    X1                                                      IO       1181
           642  21160                             AX1    AM.REFP                                                 IO       1182
                     54671                        =A6    A7-IODIR+IOARGT                                         IO       1183
                          10711                   BX7    X1                                                      IO       1184
                               54761              =A7    A6-IOARGT+IOREF                                         IO       1185
           643  7160000000                        SX6    0                                                       IO       1186
                          5160000000 X            SA6    ARGCOMA                                                 IO       1187
           644  5160000015 +                      SA6    LISTDIR                                                 IO       1188
                          5160000004 +            SA6    IOSKP                                                   IO       1189
                                   0              ERRNZ  PM=EXPR     (NEEDS SX6)                                 IO       1190
           645  5160001740 +                      SA6    CVLPM                                                   IO       1191
                          0400000636 +            EQ     EXIT.                                                   IO       1192
  
  
  
  
                                        **        IOJ -  COMPILE JUMP TO I/O ROUTINE.                            IO       1194
                                        *                                                                        IO       1195
                                        *         IF NOT PROCESSING LIST FOR *DATA*,                             IO       1196
                                        *         ADDS A V=IOSUB TURPLE TO T.PAR (WHEN NECESSARY).               IO       1197
                                        *         MOVES THE CONTENTS OF T.ARG TO T.PAR                           IO       1198
                                        *                                                                        IO       1199
                                        *         ENTRY  (X6) = TERMINATION CODE --                              IO       1200
                                        *                        1 = INTERRUPTION OF LIST.  NOTHING COMPILED IF  IO       1201
                                        *                            (IOLEN) = 0.                                IO       1202
                                        *                        0 = TERMINAL CALL.  MUST BE COMPILED.           IO       1203
                                        *                (IONAM) = I/O ROUTINE ORDINAL (RELATIVE TO S.IOCALL).   IO       1204
                                        *                          IF THE INITIAL CALL HAS NOT BEEN COMPILED,    IO       1205
                                        *                          THE ORDINAL IS COMPLEMENTED.                  IO       1206
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    30
        SOURCE STATEMENT SUBROUTINES.                                 IOJ 
  
                                        *                (CVLPM) = CALLER'S PARSE MODE.                          IO       1207
                                        *                                                                        IO       1208
                                        *         EXIT   (CURST) = RESET TO (T=PAR)                              IO       1209
                                        *                                                                        IO       1210
                                        *         USES   ALL BUT  A0  B4                                         IO       1211
                                        *                                                                        IO       1212
                                        *         CALLS  EMT, FAT, MFP, TSX                                      IO       1213
                                                                                                                 IO       1214
                                                                                                                 IO       1215
           646  0400400646 +             IOJ      SUBR   =           ENTRY/EXIT...                               FC5A141    67
           647  5110001740 +                      SA1    CVLPM                                                   IO       1217
                          5150000000 X            SA5    T=IOARG                                                 IO       1218
           650  0311000646 +                      NZ     X1,EXIT.    IF FUNNY PARSING MODE                       IO       1219
                                   0              ERRNZ  PM=EXPR                                                 IO       1220
                          0306000652 +            ZR     X6,IOJ1     IF TERMINAL CALL, MUST COMPILE              IO       1222
           651  0305000646 +                      ZR     X5,EXIT.    IF EMPTY LIST, IGNORE..                     IO       1223
           652  5160000674 +             IOJ1     SA6    IOJA        SAVE TERMINATION CODE                       IO       1224
                          0305000654 +            ZR     X5,IOJ2     IF NO AP TURPLES                            IO       1225
           653  13444                             BX4    0           INDICATE RETAIN NO TURPLES                  IO       1226
                     0100000000 X                 CALL   FAT         FLUSH APLIST TURPLES                        IO       1227
                                        **        CALL   MFP         (WAS) MARK FIRST PARAMETERS                 IO       1228
           654  5150000674 +             IOJ2     SA5    IOJA        TERMINATION CODE                            IO       1229
                          20524                   LX5    TP.BIASP    INDICATE CALL STATUS                        IO       1230
           655  5130000006 +                      SA3    IONAM                                                   IO       1231
                          0323000657 +            PL     X3,IOJ4     IF NOT INITIAL CALL                         IO       1232
           656  14333                             BX3    -X3                                                     IO       1233
                     73631                        =X6    X3+S=CONT   RESET ROUTINE NAME TO CONTINUATION TYPE     IO       1234
                          54630                   SA6    A3                                                      IO       1235
           657  5213000016 +             IOJ4     TAGSEX X3+S.IOCALL                                             IO       1236
           660  10466                             BX4    X6          SAVE ROUTINE TAG                            IO       1237
                                                                                                                 IO       1238
                                        *         (X4) = (1OP) = I/O ROUTINE (TP. FORMAT)                        IO       1239
                                        *         (X5) = (2OP) = RESTART INDICATOR                               IO       1240
                                                                                                                 IO       1241
                     6130000000 X                 EMIT   V=IOSUB                                                 IO       1242
                                                                                                                 FC5A218    37
                                        *         EMIT LIST COLLAPSE CONTROL VARIABLE DEFINITIONS.               FC5A218    38
                                                                                                                 FC5A218    39
           662  5150000000 X                      SA5    =XT=IOLC                                                FC5A218    40
                          5110000000 X            SA1    DATFLG                                                  FC5A218    41
           663  0311000671 +                      NZ     X1,IOJ5     IF *DATA*                                   FC5A218    42
                          0305000671 +            ZR     X5,IOJ5     IF NO COLLAPSE *CV* DEFINITIONS             FC5A218    43
           664  5110000000 X                      ALLOC  T.PAR,X5                                                FC5A218    44
           666  13666                             SHRINK T=IOLC                                                  FC5A218    45
                               76070              SX0    B7          LWA1 OF T.PAR                               FC5A218    46
           667  5120000000 X                      SA2    =XT.IOLC    SOURCE OF TURPLES                           FC5A218    47
                          37305                   IX3    X0-X5       DESTINATION                                 FC5A218    48
                               10155              BX1    X5          NUMBER OF WORDS TO MOVE                     FC5A218    49
           670  0100000000 X                      MOVE   X1,X2,X3    MOVE TURPLES TO T.PAR                       FC5A218    50
                                                                                                                 FC5A218    51
           671  5110000000 X             IOJ5     SA1    T=PAR                                                   FC5A218    52
                          22601                   LX6    X1                                                      IO       1244
           672  5160000000 X                      SA6    CURST                                                   IO       1245
                          13666                   SHRINK T=ILI                                                   IO       1246
                          0400000646 +            EQ     EXIT.                                                   IO       1247
                                                                                                                 IO       1248
           674                     1     IOJA     BSS    1           TERMINATION CODE SAVE                       IO       1249
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    31
        SOURCE STATEMENT SUBROUTINES.                                 OUT 
  
                                        **        OUT - OUTPUT UNIT DESIGNATOR TURPLE.                           FC5A171A  169
                                        *                                                                        FC5A171A  170
                                        *         ENTRY  (X4) = UNIT DESIGNATOR (TP. FORMAT)                     FC5A171A  171
                                        *                (X5) = UNIT DESIGNATOR SIZE (TP. FORMAT)                FC5A171A  172
                                        *                                                                        FC5A171A  173
                                        *         EXIT   (B2) = S=INF IF INTERNAL FILE, ELSE 0.                  FC5A171A  174
                                        *                UNIT DESIGNATOR TURPLE OUTPUT.                          FC5A171A  175
                                        *                                                                        FC5A171A  176
                                        *         USES   X - ALL  A - 1,2,3,4,6,7  B - 2,3,7.                    FC5A171A  177
                                        *                                                                        FC5A171A  178
                                        *         CALLS  EMT,MVE=.                                               FC5A171A  179
                                                                                                                 FC5A171A  180
                                                                                                                 FC5A171A  181
           675  0400400675 +             OUT      SUBR               ENTRY/EXIT...                               FC5A171A  182
           676  5110000000 X                      SA1    IOUNT       FETCH PROTOTYPE                             FC5A171A  183
                          43071                   MX0    -TP.MODEL                                               FC5A171A  184
                                                  LX4    -TP.MODEP                                               FC5A171A  185
                               15040              BX0    -X0*X4      EXTRACT MODE OF UNIT DESIGNATOR             FC5A171A  186
                                                  LX4    TP.MODEP                                                FC5A171A  187
           677  20022                             LX0    SP.MODEP                                                FC50104    64
                     12610                        BX6    X1+X0       MERGE IN MODE                               FC5A171A  189
                          5160000605 +            SA6    CUDA                                                    FC5A171A  190
           700  13666                             SHRINK T=SCR                                                   FC5A171A  191
           701  5110000000 X                      EMIT   CUDA,*,T.SCR                                            FC5A171A  192
           703  10544                             BX5    X4          PRESERVE ACROSS MOVE                        FC5A171A  193
                     7110000003                   SX1    Z=TURP      LENGTH                                      FC5A171A  194
           704  5120000000 X                      SA2    T.SCR       SOURCE                                      FC5A171A  195
                          5130000000 X            SA3    T.IOARG     DESTINATION                                 FC5A171A  196
           705  0100000000 X                      MOVE   X1,X2,X3    UNIT DESIGNATOR MUST BE FIRST I/O CONTROL   FC5A171A  197
           706  13666                             SHRINK T=SCR                                                   FC5A171A  198
                               66200              =B2    0                                                       FC5A171A  199
           707  43071                             MX0    -TP.MODEL                                               FC5A171A  200
                                                  LX5    -TP.MODEP                                               FC5A171A  201
                     15050                        BX0    -X0*X5      EXTRACT MODE OF UNIT DESIGNATOR             FC5A171A  202
                          6270777771              SB7    X0-M.CHAR                                               FC5A171A  203
           710  0570000675 +                      NZ     B7,EXIT.    IF NOT INTERNAL FILE                        FC5A171A  204
                          6120000020              SB2    S=INF                                                   FC5A171A  205
           711  0400000675 +                      EQ     EXIT.                                                   FC5A171A  206
  
  
  
  
                                        **        PFN -  PROCESS FORMAT/NAMELIST DESIGNATOR                      IO       1288
                                        *                ALSO PROCESSES LIST DIRECTED I/O INDICATOR (*)          IO       1289
                                        *                                                                        IO       1290
                                        *         ENTRY  (B4) _ FORMAT DESIGNATOR                                IO       1291
                                        *                (B6) = S=INP OR S=OUT                                   IO       1292
                                        *                                                                        IO       1293
                                        *         EXIT   (B4) _ LAST TOKEN OF FORMAT DESIGNATOR IN *TB*          IO       1294
                                        *                (B6) =  RESET WITH PROPER S=CODE INDICATOR              IO       1295
                                        *                FORMAT/NAMELIST CONTROL TURPLE OUTPUT, AS NEEDED        IO       1296
                                        *                                                                        IO       1297
                                        *         USES   ALL EXCEPT A0                                           IO       1298
                                        *                                                                        IO       1299
                                        *         CALLS  CT1, ISL, OCT, PAR, SSY, TPC                            IO       1300
                                                                                                                 IO       1301
                                                                                                                 IO       1302
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    32
        SOURCE STATEMENT SUBROUTINES.                                 PFN 
  
           712  0400400712 +             PFN      SUBR               ...ENTRY/EXIT...                            IO       1303
           713  5114000000                        SA1    B4+                                                     IO       1304
                          5120000015 +            SA2    LISTDIR                                                 IO       1305
           714  6221777761                        SB2    X1-O.STAR                                               IO       1306
                          0520000724 +            NZ     B2,PFN1     IF NOT LIST DIRECTED I/O                    IO       1307
           715  76610                             =X6    1                                                       IO       1308
                     54620                        SA6    A2          SET LIST DIRECTED FLAG                      IO       1309
                          6166000010              SB6    B6+S=FREE                                               IO       1310
           716  5110001002 +                      SA1    PKCA                                                    FC5A338    48
                          5120000000 +            SA2    IODIR                                                   FC5A338    49
           717  76710                             =X7    1                                                       FC5A338    50
                     20772                        LX7    59-IC.UNT                                               FC5A338    51
                          11117                   BX1    X1*X7                                                   FC5A338    52
                               76760              SX7    B6                                                      FC5A338    53
           720  0301000712 +                      ZR     X1,EXIT.    IF UNIT NOT SPECIFIED                       FC5A338    54
                          37272                   IX2    X7-X2       REMOVE I/O DIRECTION                        FC5A338    55
           721  7222777747                        SX2    X2-S=FREE-S=INF                                         FC5A338    56
                          0312000712 +            NZ     X2,EXIT.    IF NOT INTERNAL FILE                        FC5A338    57
           722  6170000000 X                      FATAL  E.IO26      **INTERNAL FILE CANT BE FREE FORMAT         FC5A338    58
           723  0400000712 +                      EQ     EXIT.                                                   IO       1311
                                                                                                                 IO       1312
                                                                                                                 IO       1313
           724  5130000002 +             PFN1     SA3    IOREF                                                   IO       1314
                          43700                   MX7    0                                                       IO       1315
                               10633              BX6    X3                                                      IO       1316
           725  54720                             SA7    A2          INDICATE FORMATTED, NOT LIST DIRECTED I/O   IO       1317
                     5160000000 X                 SA6    REFNUM                                                  IO       1318
           726  5170001001 +                      SA7    NRF         NAMELIST CROSS REF FLAG                     FC50857    13
                          0301000000 X            ZR     X1,E.IO07   IF *EOS* -- ERROR                           IO       1319
           727  73210                             SX2    X1                                                      IO       1320
                                   0              ERRNZ  18-TB.TOTL+0-TB.TOTP                                    IO       1321
                     13612                        BX6    X1-X2                                                   IO       1322
                          6271777772              SB7    X1-O.CONS                                               IO       1323
           730  0570000734 +                      NZ     B7,PFN2     IF NO FORMAT LABEL                          IO       1324
                          43201                   CLAS=  X2,WB,(FREF)                                            IO       1325
           731  0100000000 X                      CALL   ISL         IDENTIFY STATEMENT LABEL                    IO       1326
           732  6166000000                        SB6    B6+S=COD                                                IO       1327
                          7140000004              SX4    IC.FMT                                                  IO       1328
           733  0400000773 +                      EQ     PFN9                                                    IO       1329
                                                                                                                 IO       1330
                                                                                                                 IO       1331
                                        **        HERE IF NON-NUMERIC.  WILL BE VARIABLE FORMAT OR NAMELIST.     IO       1332
                                                                                                                 IO       1333
           734  6271777773               PFN2     SB7    X1-O.CHAR                                               IO       1334
                          0470000743 +            ZR     B7,PFN3     IF CHARACTER CONSTANT                       IO       1335
           735  7261777740                        SX6    X1-O.LP                                                 FC5A171A  208
                          5160001000 +            SA6    PFNPFE      SET *PARENTHESIZED FMT EXPR* FLAG PROPERLY  FC5A171A  209
           736  0306000743 +                      ZR     X6,PFN3     IF PARENTHESIZED FORMAT EXPRESSION          FC5A171A  210
                          6271777766              SB7    X1-O.VAR                                                IO       1336
           737  0570000000 X                      NZ     B7,E.IO07   IF NOT VARIABLE EITHER                      IO       1337
                          43652                   MX6    WA.SYML                                                 IO       1338
                               11661              BX6    X6*X1       SYMBOL ONLY                                 IO       1339
           740  0100000000 X                      CALL   SSY                                                     IO       1340
           741  0770000743 +                      MI     B7,PFN3     IF NOT IN SYMTAB, NOT NAMELIST              IO       1341
                          20237                   SBIT   X2,WB.NLSTP                                             IO       1342
           742  0332000754 +                      MI     X2,PFN5     IF NAMELIST                                 IO       1343
                                                                                                                 IO       1344
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    33
        SOURCE STATEMENT SUBROUTINES.                                 PFN 
  
                                        **        PROCESS VARIABLE OR ASSIGNED FORMATS                           IO       1345
                                                                                                                 IO       1346
           743  76660                    PFN3     SX6    B6                                                      IO       1347
                     6166000000                   SB6    B6+S=COD                                                IO       1348
           744  5120000002 +                      SA2    IOREF                                                   IO       1349
                          5110000000 X            SA1    FMTARM                                                  IO       1350
           745  7170000055                        SX7    55B                                                     IO       1351
                          13272                   BX2    X7-X2                                                   IO       1352
                               20260              LX2    AM.REFP                                                 IO       1353
           746  13712                             BX7    X1-X2                                                   IO       1354
                     5170000000 X                 SA7    ARGMODE                                                 IO       1355
           747  7170000044                        SX7    O.SLP                                                   IO       1356
                          5160000006 +            SA6    IONAM       SAVE (B6)                                   IO       1357
           750  57741                             =A7    B4-1                                                    IO       1358
                     67441                        =B4    B4-1                                                    IO       1359
                          0100000000 X            CALL   PAR         PARSE THE FORMAT DESIGNATOR                 IO       1360
           751  0100000000 X                      CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION        IO       1361
           752  5120000006 +                      SA2    IONAM                                                   IO       1362
                          63620                   SB6    X2          RESTORE (B6)                                IO       1363
           753  0400000712 +                      EQ     EXIT.                                                   IO       1364
                                                                                                                 IO       1365
                                        **        PROCESS NAMELIST NAME.                                         IO       1366
                                                                                                                 IO       1367
           754  0100000000 X             PFN5     CALL   CT1         GET TP. FORMAT                              IO       1368
           755  5110000000 X                      SA1    WO.LOR                                                  FC50857    14
                          0321000761 +            PL     X1,PFN7     IF NO CROSS REFERENCE SELECTED              FC50857    15
           756  5140000000 +                      SA4    IODIR                                                   FC50857    16
                          7110000027              SX1    CR.OUT                                                  FC50857    17
           757  0314000760 +                      NZ     X4,PFN6     IF OUTPUT DIRECTION                         FC50857    18
                          7110000022              SX1    CR.INP                                                  FC50857    19
                                                                                                                 FC50857    20
           760  20122                    PFN6     LX1    XR.TAGL                                                 FC50857    21
                     12710                        BX7    X1+X0                                                   FC50857    22
                          5170001001 +            SA7    NRF         24/0,18/IO DIRECTION,18/SYMTAB ORDINAL      FC50857    23
                                                                                                                 FC50857    24
           761  43001                    PFN7     CLAS=  X0,WB,(MAT)                                             FC50857    25
                          12702                   BX7    X0+X2       MERGE IN MATERIALIZE BIT                    IO       1370
                               54720              SA7    A2          UPDATE *WB*                                 IO       1371
           762  5110001002 +                      SA1    PKCA        CONTROL ITEM SPECIFIED FLAG                 IO       1372
                          76710                   =X7    1                                                       IO       1373
                               20763              LX7    59-IC.NML                                               IO       1374
           763  12771                             BX7    X7+X1       MERGE IN NAMELIST BIT                       IO       1375
                     54710                        SA7    A1                                                      IO       1376
                          5110000000 +            SA1    IODIR                                                   IO       1377
           764  76210                             =X2    1                                                       IO       1378
                     20272                        LX2    59-IC.UNT                                               IO       1379
                          11272                   BX2    X7*X2                                                   IO       1380
                               76760              SX7    B6                                                      IO       1381
           765  0302000770 +                      ZR     X2,PFN8     IF UNIT NOT SPECIFIED                       IO       1382
                          37271                   IX2    X7-X1                                                   IO       1383
           766  7222777757                        SX2    X2-S=INF                                                IO       1384
                          0312000770 +            NZ     X2,PFN8     IF NOT INTERNAL FILE                        IO       1385
           767  6170000000 X                      FATAL  E.IO33                                                  IO       1386
                                                                                                                 IO       1387
           770  6166777774               PFN8     SB6    B6+S=NLST                                               IO       1388
                          7140000010              SX4    IC.NML                                                  IO       1389
           771  0311000773 +                      NZ     X1,PFN9     IF OUTPUT DIRECTION                         IO       1390
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    34
        SOURCE STATEMENT SUBROUTINES.                                 PFN 
  
                          7120000600              CLAS=  X2,TP,(IOD,IOP)                                         IO       1391
           772  12662                             BX6    X6+X2       FLAG POTENTIAL DEFINITION                   IO       1392
                                                                                                                 IO       1393
                                        **        OUTPUT FORMAT/NAMELIST CONTROL TURPLE.                         IO       1394
                                                                                                                 IO       1395
           773  10566                    PFN9     BX5    X6                                                      IO       1396
                     0100001521 +                 RJ     OCT         OUTPUT CONTROL TURPLE                       IO       1397
           774  5120001001 +                      SA2    NRF                                                     FC50857    26
                          0302000712 +            ZR     X2,EXIT.    IF NO CROSS REFERENCE SELECTED              FC50857    27
           775  73620                             SX6    X2          X6 = SYMTAB ORDINAL                         FC50857    28
                     21222                        AX2    XR.TAGL                                                 FC50857    29
                          73120                   SX1    X2          X1 = IO DIRECTION                           FC50857    30
                               20652              LX6    XR.TAGP     XREF TAG                                    FC50857    31
           776  6170000777 +                      ADDREF X6,X1                                                   FC50857    32
           777  0400000712 +                      EQ     EXIT.                                                   IO       1398
                                                                                                                 FC5A171A  211
          1000  00000000000000000001     PFNPFE   CON    1           0 IFF FORMAT EXPRESSION IS PARENTHESIZED    FC5A171A  212
          1001  00000000000000000000     NRF      CON    0           24/0,18/IO DIRECTION,18/SYMTAB ORDINAL      FC50857    33
  
  
  
  
                                        **        PKC -  PROCESS KEYWORD CONTROL ITEMS                           IO       1400
                                        *                                                                        IO       1401
                                        *         ENTRY  (X1) = KEYWORD LEGALITY                                 IO       1402
                                        *                (B4) _ FIRST CONTROL KEYWORD                            IO       1403
                                        *                (B6) = (S=COD) INDICATOR                                IO       1404
                                        *                (PKCA) = BIT MASK OF DEFINED CONTROL ITEMS              IO       1405
                                        *                                                                        IO       1406
                                        *         EXIT   (B4) _ CLOSING *)*                                      IO       1407
                                        *                (X3) = I/O CONTROL DEFINED MASK (PKCA)                  IO       1408
                                        *                                                                        IO       1409
                                        *         CALLS  CUD, EMT, ICK, ISL, OCT, PAR, PFN, TPC                  IO       1410
                                                                                                                 IO       1411
                                                                                                                 IO       1412
          1002                     1     PKCA     BSS    1           CONTROL ITEM DEFINED MASK                   IO       1413
          1003                     1     PKCB     BSS    1           S=INDICATOR SAVE                            IO       1414
          1004                     1     PKCC     BSS    1           LEGALITY MASK                               IO       1415
          1005                     1     PKCD     BSS    1           IC. CONTROL CODE SAVE                       IO       1416
                                                                                                                 IO       1417
          1006  0400401006 +             PKC      SUBR               ...ENTRY/EXIT...                            IO       1418
          1007  22701                             LX7    X1                                                      IO       1419
                     5170001004 +                 SA7    PKCC                                                    IO       1420
                               76660              SX6    B6                                                      IO       1421
          1010  55671                             =A6    A7-PKCC+PKCB                                            IO       1422
                                                                                                                 IO       1423
          1011  6160000064 +             PKC1     SB6    FW.CTL                                                  IO       1424
                          6170000041              SB7    L.CTL                                                   IO       1425
          1012  0100000607 +                      RJ     ICK         CHECK FOR I/O CONTROL KEYWORD               IO       1426
          1013  0470000000 X                      ZR     B7,E.IO10   IF NOT KEYWORD                              IO       1427
                          5114000000              SA1    B4+                                                     IO       1428
          1014  6221777736                        SB2    X1-O.=                                                  IO       1429
                          0520000000 X            NZ     B2,E.IO16   IF NOT *=*                                  IO       1430
                                                  HX6    KW.INFO                                                 IO       1431
          1015  21652                             AX6    -KW.INFOL   EXTRACT KEYWORD JUMP ADDRESS                IO       1432
                     63260                        SB2    X6                                                      IO       1433
                          5110001004 +            SA1    PKCC        LEGALITY MASK                               IO       1434
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    35
        SOURCE STATEMENT SUBROUTINES.                                 PKC 
  
          1016  6177777714 -                      SB7    B7-FW.CTL+1 CONVERT TABLE ADDRESS TO ORDINAL            IO       1435
                          22171                   LX1    X1,B7                                                   IO       1436
          1017  0321000000 X                      PL     X1,E.IO11   IF KEYWORD NOT LEGAL                        IO       1437
                          5110001002 +            SA1    PKCA        ALREADY DEFINED MASK                        IO       1438
          1020  6130000073                        SB3    59                                                      IO       1439
                          76610                   =X6    1                                                       IO       1440
                               67337              SB3    B3-B7                                                   IO       1441
          1021  22636                             LX6    B3                                                      IO       1442
                     11016                        BX0    X1*X6                                                   IO       1443
                          0310000000 X            NZ     X0,E.IO12   IF ALREADY DEFINED                          IO       1444
          1022  12616                             BX6    X1+X6       ADD IN THIS DEFINITION BIT                  IO       1445
                     54610                        SA6    A1                                                      IO       1446
                          76670                   SX6    B7                                                      IO       1447
          1023  5160001005 +                      SA6    PKCD        SAVE THE CONTROL CODE                       IO       1448
                          56141                   =A1    B4+1                                                    IO       1449
                               66441              =B4    B4+1        SKIP THE *=*                                IO       1450
          1024  0222000000                        JP     B2          PROCESS THE KEYWORD PARAMETER               IO       1451
                                                                                                                 IO       1452
          1025  0400401025 +             PKC=     EQ     "BLOWUP"    FOR UNUSED CODES                            IO       1453
                                                                                                                 IO       1454
          1026                           PKC=DIR  BSS    0                                                       IO       1455
          1026                           PKC=FMD  BSS    0                                                       IO       1456
          1026                           PKC=NAM  BSS    0                                                       IO       1457
          1026                           PKC=SEQ  BSS    0                                                       IO       1458
          1026                           PKC=UNF  BSS    0                                                       IO       1459
          1026  5110000000 X             PKC10    SA1    ICCARM      MUST BE CHARACTER VARIABLE OR ARRAY ELEMENT IO       1460
                          0400001074 +            EQ     PKC14       CONTINUE PROCESSING                         IO       1461
                                                                                                                 IO       1462
          1027                           PKC=ACC  BSS    0                                                       IO       1463
          1027                           PKC=BLK  BSS    0                                                       IO       1464
          1027                           PKC=FOR  BSS    0                                                       IO       1465
          1027  5110001003 +                      SA1    PKCB        STATEMENT INDICATOR                         IO       1466
                          6120000057 +            SB2    S.INQUI                                                 IO       1467
          1030  67202                             SB2    -B2                                                     IO       1468
                     73112                        SX1    X1+B2                                                   IO       1469
                          0301001026 +            ZR     X1,PKC10    IF INQUIRE, PARAMETER MUST BE VARIABLE      IO       1470
          1031                           PKC=STA  BSS    0                                                       IO       1471
          1031  5110000000 X                      SA1    ICCXARM     MUST BE CHARACTER EXPRESSION                IO       1472
                          0400001074 +            EQ     PKC14       CONTINUE PROCESSING                         IO       1473
                                                                                                                 IO       1474
          1032                           PKC=RCL  BSS    0                                                       IO       1475
          1032  5110001003 +                      SA1    PKCB        STATEMENT INDICATOR                         IO       1476
                          6120000057 +            SB2    S.INQUI                                                 IO       1477
          1033  67202                             SB2    -B2                                                     IO       1478
                     73112                        SX1    X1+B2                                                   IO       1479
                          0311001036 +            NZ     X1,PKC12    IF NOT INQUIRE                              IO       1480
          1034                           PKC=IOS  BSS    0                                                       IO       1481
          1034                           PKC=NXT  BSS    0                                                       IO       1482
          1034                           PKC=NUM  BSS    0                                                       IO       1483
          1034  5110000000 X                      SA1    ICIARM      MUST BE INTEGER VARIABLE OR ARRAY ELEMENT   IO       1484
                          0400001074 +            EQ     PKC14       CONTINUE PROCESSING                         IO       1485
                                                                                                                 IO       1486
          1035                           PKC=BFL  BSS    0                                                       IO       1487
          1035  6170000000 X                      ANSI   E.IO22                                                  IO       1488
          1036                           PKC=REC  BSS    0                                                       IO       1489
          1036  5110000000 X             PKC12    SA1    ICIXARM     MUST BE POSITIVE INTEGER EXPRESSION         IO       1490
                          0400001074 +            EQ     PKC14       CONTINUE PROCESSING                         IO       1491
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    36
        SOURCE STATEMENT SUBROUTINES.                                 PKC 
  
                                                                                                                 IO       1492
          1037                           PKC=EXS  BSS    0                                                       IO       1493
          1037                           PKC=NMD  BSS    0                                                       IO       1494
          1037                           PKC=OPE  BSS    0                                                       IO       1495
          1037  5110000000 X                      SA1    ICLARM      MUST BE LOGICAL VARIABLE OR ARRAY ELEMENT   IO       1496
                          0400001074 +            EQ     PKC14       CONTINUE PROCESSING                         IO       1497
                                                                                                                 IO       1498
          1040                           PKC=END  BSS    0                                                       IO       1499
          1040                           PKC=ERR  BSS    0                                                       IO       1500
          1040  6221777772                        SB2    X1-O.CONS                                               IO       1501
                          0520000000 X            NZ     B2,E.IO15   IF NOT STATEMENT LABEL                      IO       1502
          1041  5120002765 +                      CLAS=  X2,WB,(GOTO,SREF)                                       FC51356    19
                          22601                   LX6    X1                                                      IO       1504
          1042  0100000000 X                      CALL   ISL         IDENTIFY THE STATEMENT LABEL                IO       1505
          1043  0336000000 X                      MI     X6,PSL      IF ERROR IN STATEMENT LABEL                 IO       1506
                          10566                   BX5    X6                                                      IO       1507
          1044  0400001100 +                      EQ     PKC15       FINISH PROCESSING                           IO       1508
                                                                                                                 IO       1509
          1045                           PKC=FIL  BSS    0                                                       IO       1510
          1045  5110000000 X                      SA1    ICCXARM     MUST BE CHARACTER EXPRESSION                IO       1511
                          7170000044              SX7    O.SLP                                                   IO       1512
          1046  57741                             =A7    B4-1        SET FOR PAR                                 IO       1513
                     67441                        =B4    B4-1                                                    IO       1514
                          22601                   LX6    X1                                                      IO       1515
          1047  5160000000 X                      SA6    ARGMODE                                                 IO       1516
                          0100000000 X            CALL   PAR                                                     IO       1517
          1050  0100000000 X                      CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION        IO       1518
          1051  5110001003 +                      SA1    PKCB        STATEMENT INDICATOR                         IO       1519
                          6120000057 +            SB2    S.INQUI                                                 IO       1520
          1052  67202                             SB2    -B2                                                     IO       1521
                     73112                        SX1    X1+B2                                                   IO       1522
                          0311001100 +            NZ     X1,PKC15    IF NOT INQUIRE, PROCESS NORMALLY            IO       1523
          1053  5110000000 X                      SA1    IOCTL       FETCH PROTOTYPE                             IO       1524
                          5140001005 +            SA4    PKCD        I/O CONTROL CODE                            IO       1525
          1054  7160000006                        SX6    M.CHAR                                                  IO       1526
                          20622                   LX6    SP.MODEP                                                FC50104    65
                               12616              BX6    X1+X6       MERGE IN MODE                               IO       1528
          1055  5160001527 +                      SA6    OCTA                                                    IO       1529
                          13666                   SHRINK T=SCR                                                   IO       1530
                          20424                   LX4    TP.IOCP                                                 IO       1531
                               43601              MX6    1                                                       FC5A235     5
          1057  5160000606 +                      SA6    CUDA+1      FLAG FOR SFP                                FC5A235     6
                          5110000000 X            EMIT   OCTA,*,T.SCR                                            IO       1532
          1061  7110000003                        SX1    Z=TURP      LENGTH                                      IO       1533
                          5120000000 X            SA2    T.SCR       SOURCE                                      IO       1534
          1062  5130000000 X                      SA3    T.IOARG     DESTINATION                                 IO       1535
                          0100000000 X            MOVE   X1,X2,X3    FOR INQUIRE, FILE SPECIFIER MUST BE FIRST   IO       1536
          1063  13666                             SHRINK T=SCR                                                   IO       1537
          1064  0400001101 +                      EQ     PKC16       CONTINUE PROCESSING                         IO       1538
                                                                                                                 IO       1539
          1065                           PKC=FMT  BSS    0                                                       IO       1540
          1065  5110001003 +                      SA1    PKCB                                                    IO       1541
                          63610                   SB6    X1          PFN NEEDS (B6) = S=CODE INDICATOR           IO       1542
          1066  0100000712 +                      RJ     PFN         PROCESS THE FORMAT DESIGNATOR               IO       1543
          1067  76660                             SX6    B6                                                      IO       1544
                     5160001003 +                 SA6    PKCB        SAVE (B6)                                   IO       1545
          1070  0400001101 +                      EQ     PKC16       FINISH PROCESSING                           IO       1546
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    37
        SOURCE STATEMENT SUBROUTINES.                                 PKC 
  
                                                                                                                 IO       1547
          1071                           PKC=UNT  BSS    0                                                       IO       1548
          1071  0100000527 +                      RJ     CUD         COMPILE THE UNIT DESIGNATOR                 IO       1549
          1072  5110001003 +                      SA1    PKCB                                                    IO       1550
                          73612                   SX6    X1+B2       ADJUST IF INTERNAL FILE                     IO       1551
                               54610              SA6    A1                                                      IO       1552
          1073  0400001101 +                      EQ     PKC16       FINISH PROCESSING                           IO       1553
                                                                                                                 IO       1554
                                        **        CALL PAR TO PROCESS THE KEYWORD PARAMETER                      IO       1555
                                        *                (X1) = ARGMODE VALUE                                    IO       1556
                                                                                                                 IO       1557
          1074  7170000044               PKC14    SX7    O.SLP                                                   IO       1558
                          57741                   =A7    B4-1        SET FOR PAR                                 IO       1559
                               67441              =B4    B4-1                                                    IO       1560
          1075  22601                             LX6    X1                                                      IO       1561
                     5160000000 X                 SA6    ARGMODE                                                 IO       1562
          1076  0100000000 X                      CALL   PAR         PARSE THE KEYWORD PARAMETER                 IO       1563
          1077  0100000000 X                      CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION        IO       1564
                                                                                                                 IO       1565
                                        **        FINISH PROCESSING INDIVIDUAL CONTROL KEYWORDS                  IO       1566
                                        *                (X5) = I/O CONTROL PARAMETER (TP. FORMAT)               IO       1567
                                                                                                                 IO       1568
          1100  5140001005 +             PKC15    SA4    PKCD        I/O CONTROL CODE                            IO       1569
                          0100001521 +            RJ     OCT         OUTPUT CONTROL TURPLE                       IO       1570
          1101  56141                    PKC16    =A1    B4+1                                                    IO       1571
                     66441                        =B4    B4+1                                                    IO       1572
                          6221777735              SB2    X1-O.COMMA                                              IO       1573
          1102  6231777737                        SB3    X1-O.RP                                                 IO       1574
                          0430001105 +            ZR     B3,PKC20    IF *)*, FINISHED                            IO       1575
          1103  0520000000 X                      NZ     B2,E.IO16   IF NOT *,*, ERROR                           IO       1576
                          66441                   =B4    B4+1        NEXT KEYWORD                                IO       1577
          1104  0400001011 +                      EQ     PKC1        CONTINUE PROCESSING                         IO       1578
                                                                                                                 IO       1579
          1105  5120001003 +             PKC20    SA2    PKCB                                                    IO       1580
                          63620                   SB6    X2          RESTORE (B6) = S=CODE                       IO       1581
                               55321              =A3    A2-PKCB+PKCA                                            IO       1582
          1106  6120000057 +                      SB2    S.INQUI                                                 IO       1583
                          67262                   SB2    B6-B2                                                   IO       1584
                               76010              =X0    1                                                       IO       1585
          1107  20072                             LX0    59-IC.UNT                                               IO       1586
                     0420001111 +                 ZR     B2,PKC25    IF INQUIRE                                  IO       1587
                               11030              BX0    X3*X0                                                   IO       1588
          1110  0300000000 X                      ZR     X0,E.IO01   IF NO UNIT DESIGNATOR                       IO       1589
                          0400001006 +            EQ     EXIT.                                                   IO       1590
                                                                                                                 IO       1591
          1111  7110000001               PKC25    SX1    1                                                       IO       1592
                          20152                   LX1    59-IC.FIL                                               IO       1593
                               12001              BX0    X0+X1                                                   IO       1594
          1112  11130                             BX1    X3*X0                                                   IO       1595
                     13010                        BX0    X1-X0                                                   IO       1596
                          0301000000 X            ZR     X1,E.IO20   IF NEITHER UNIT NOR FILE SPECIFIED          IO       1597
          1113  0300000000 X                      ZR     X0,E.IO21   IF BOTH UNIT AND FILE SPECIFIED             IO       1598
                          0400001006 +            EQ     EXIT.                                                   IO       1599
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    38
        SOURCE STATEMENT SUBROUTINES.                                 SFP 
  
                                        **        SFP -  SET FILE PROPERTY BITS                                  IO       1601
                                        *                                                                        IO       1602
                                        *         THIS ROUTINE WILL SET BITS IN *WC* ENTRY                       IO       1603
                                        *         FOR A FILE SO THAT THE I/O REFMAP CAN BE OUTPUT.               IO       1604
                                        *                                                                        IO       1605
                                        *         ENTRY  (X3) = 1 IF BUFFER IN/OUT STMT                          IO       1606
                                        *                     = CONTENTS OF PKCA OTHERWISE.                      IO       1607
                                        *                                                                        IO       1608
                                        *                (CUDA+1) = MI IF SUPPRESS PROPERTIES                    IO       1609
                                        *                         = SYMTAB *WB* INDEX OF FILE OTHERWISE.         IO       1610
                                        *                                                                        IO       1611
                                        *         USES   X - 0,1,2,4,6  A - 1,2,4,6  B - 2                       IO       1612
                                                                                                                 IO       1613
          1114  0400401114 +             SFP      SUBR               ...ENTRY/EXIT...                            IO       1614
          1115  5110000000 X                      SA1    WO.LOA                                                  IO       1615
                          5120000000 X            SA2    WO.LOM                                                  IO       1616
          1116  5140000000 X                      SA4    WO.LOR                                                  IO       1617
                          12112                   BX1    X1+X2                                                   IO       1618
                               12114              BX1    X1+X4                                                   IO       1619
          1117  0301001114 +                      ZR     X1,EXIT.    IF REFMAP NOT SELECTED                      IO       1620
                          5110000606 +            =A1    CUDA+1      X1 = *WB* INDEX OF FILE                     IO       1621
          1120  0331001114 +                      MI     X1,EXIT.    IF SUPPRESSION DESIRED                      IO       1622
                          63210                   =B2    X1                                                      IO       1623
                               43600              MX6    0                                                       FC5A343     8
          1121  5110000000 X                      SA1    T.SYM                                                   IO       1624
                          5140000000 +            SA4    IODIR                                                   IO       1626
          1122  0324001126 +                      PL     X4,SFP30    IF NOT AUXILLARY I/O STMT                   IO       1628
                          43201                   LDBIT  X2,WB.AUXP                                              IO       1629
          1123  12626                             BX6    X2+X6                                                   IO       1630
                     10033                        BX0    X3                                                      IO       1645
                          20073                   LX0    -1                                                      IO       1646
          1124  0320001133 +                      PL     X0,SFP60    IF NOT BUFFER IN/OUT STMT                   IO       1647
                          7100000145              SX0    145B                                                    IO       1648
          1125  20065                             LX0    WB.FMTP-6                                               IO       1649
                     13660                        BX6    X6-X0       INDICATE BINARY, SEQUENTIAL FILE            IO       1650
                          0400001133 +            EQ     SFP60                                                   IO       1651
                                                                                                                 IO       1652
          1126  43201                    SFP30    LDBIT  X2,WB.SEQP                                              IO       1653
                          76010                   =X0    1                                                       FC5A343     9
                               20065              LX0    59-IC.REC                                               IO       1654
          1127  11403                             BX4    X0*X3                                                   IO       1655
                     0304001130 +                 ZR     X4,SFP40    IF SEQUENTIAL FILE                          IO       1656
                               20201              LX2    -WB.SEQP+WB.DIRP                                        IO       1657
                                                                                                                 IO       1658
          1130  12662                    SFP40    BX6    X6+X2                                                   IO       1659
                     20002                        LX0    IC.REC-IC.FMT                                           IO       1660
                          11403                   BX4    X0*X3                                                   IO       1661
                               43201              LDBIT  X2,WB.FMTP                                              IO       1662
          1131  0314001132 +                      NZ     X4,SFP50    IF FORMATTED FILE                           IO       1663
                          20273                   LX2    -WB.FMTP+WB.BINP                                        IO       1664
                                                                                                                 IO       1665
          1132  12662                    SFP50    BX6    X6+X2                                                   IO       1666
                                                                                                                 FC5A343    10
          1133  53112                    SFP60    SA1    X1+B2       *WB* OF FILE                                IO       1667
                     12661                        BX6    X6+X1       MERGE WITH PROPERTY BITS                    IO       1668
                          54610                   SA6    A1          UPDATE *WB*                                 IO       1669
          1134  0400001114 +                      EQ     EXIT.                                                   IO       1670
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    39
        SOURCE STATEMENT SUBROUTINES.                                 UDP 
  
                                        **        UDP - UNIT DESIGNATOR PROCESSING.                              FC5A171A  214
                                        *                                                                        FC5A171A  215
                                        *         ENTRY  (X6) = BINARY OF UNIT DESIGNATOR.                       FC5A171A  216
                                        *                                                                        FC5A171A  217
                                        *         EXIT   IF UNIT IS OK                                           FC5A171A  218
                                        *                                                                        FC5A171A  219
                                        *                (CUDA+1) = SYMTAB *WB* INDEX OF FILE NAME.              FC5A171A  220
                                        *                FILE NAME TAPENNN IS IN SYMBOL TABLE, WITH              FC5A171A  221
                                        *                APPROPRIATE FIELDS FILLED IN. (NNN IS DPC OF UNIT)      FC5A171A  222
                                        *                                                                        FC5A171A  223
                                        *                IF UNIT IS BAD -                                        FC5A171A  224
                                        *                                                                        FC5A171A  225
                                        *                (X4) = TP. OPERAND FOR BAD UNIT (S=BU)                  FC5A171A  226
                                        *                DIAGNOSTIC ISSUED.                                      FC5A171A  227
                                        *                                                                        FC5A171A  228
                                        *         USES   X - 0,1,2,3,6,7  A - 1,2,3,4,5,6,7  B - 2,3,7.          FC5A171A  229
                                        *                                                                        FC5A171A  230
                                        *         CALLS  VUD,CDD,SSY,ESY,ERT.                                    FC5A171A  231
                                                                                                                 FC5A171A  232
                                                                                                                 FC5A171A  233
          1135  0400401135 +             UDP      SUBR               ENTRY/EXIT...                               FC5A171A  234
          1136  6170000000 X                      SB7    E.IO03      UNIT NUMBER OUTSIDE RANGE 0-100             FC5A171A  235
                          0336001163 +            MI     X6,UDP30    ** IF UNIT DESIGNATOR TOO SMALL             FC5A171A  236
          1137  0100001165 +                      RJ     VUD         VALIDATE THE UNIT DESIGNATOR                FC5A171A  237
          1140  0470001152 +                      ZR     B7,UDP10    IF LEGAL FILE NAME                          FC5A171A  238
                          0670001163 +            PL     B7,UDP30    IF ILLEGAL FILE NAME                        FC5A171A  239
          1141  7110001750                        SX1    1000                                                    FC5A171A  240
                          37161                   IX1    X6-X1                                                   FC5A171A  241
          1142  6170000000 X                      SB7    E.IO03      ** UNIT NUMBER TOO LARGE                    FC5A171A  242
                          0321001163 +            PL     X1,UDP30    IF UNIT MORE THAN THREE DIGITS              FC5A171A  243
          1143  10166                             BX1    X6                                                      FC5A171A  244
                     10644                        BX6    X4                                                      FC5A171A  245
                          5160000605 +            SA6    UDPA        SAVE X4                                     FC5A171A  246
          1144  10655                             BX6    X5                                                      FC5A171A  247
                     54661                        =A6    A6+1        SAVE X5                                     FC5A171A  248
                          76540                   SX5    B4          SAVE B4                                     FC5A171A  249
          1145  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FC5A171A  250
          1146  43601                             MX6    1                                                       FC5A171A  251
                     67221                        =B2    B2-1                                                    FC5A171A  252
                          23626                   AX6    B2,X6                                                   FC5A171A  253
          1147  5110002766 +                      SA1    =4LTAPE                                                 FC5A171A  254
                          11464                   BX4    X6*X4       ERASE SUPERFLUOUS CHARS                     FC5A171A  255
                               20444              LX4    -4*CHAR                                                 FC5A171A  256
          1150  12641                             BX6    X4+X1       APPEND TO TAPE                              FC5A171A  257
                     5140000605 +                 SA4    UDPA        RESTORE X4                                  FC5A171A  258
                               63450              SB4    X5          RESTORE B4                                  FC5A171A  259
          1151  54541                             =A5    A4+1        RESTORE X5                                  FC5A171A  260
                                                                                                                 FC5A171A  261
          1152  43101                    UDP10    MX1    1                                                       FC5A171A  262
                     12661                        BX6    X6+X1       SET BIT 59 ON FILE NAME                     FC5A171A  263
                          0100000000 X            CALL   SSY         FIND WHERE TO PUT FILE                      FC5A171A  264
          1153  0670001155 +                      PL     B7,UDP20    IF *HIT*                                    FC5A171A  265
                          43700                   MX7    0                                                       FC5A171A  266
                               43200              MX2    0                                                       FC5A171A  267
          1154  5110000000 X                      ADSYM  T.SYM       ADD FILE TO SYMTAB                          FC5A171A  268
                                                                                                                 FC5A171A  269
          1155  76670                    UDP20    SX6    B7                                                      FC5A171A  270
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    40
        SOURCE STATEMENT SUBROUTINES.                                 UDP 
  
                     5160000606 +                 =A6    CUDA+1      SET *WB* INDEX EXIT CONDITION               FC5A171A  271
          1156  5120002767 +                      CLAS=  X2,WB,(NVAR,UDC,CGS)                                    FC5A171A  272
                          53117                   SA1    X1+B7       *WB*                                        FC5A171A  273
                               12612              BX6    X1+X2       MERGE ABOVE BITS                            FC5A171A  274
          1157  54610                             SA6    A1          UPDATE *WB*                                 FC5A171A  275
                     20052                        LX0    XR.TAGP                                                 FC5A171A  276
                          5110000002 +            SA1    IOREF                                                   FC5A171A  277
          1160  10600                             ADDREF X0,X1       ISSUE REFERENCE                             FC5A171A  278
          1162  0400001135 +                      EQ     EXIT.                                                   FC5A171A  279
                                                                                                                 FC5A171A  280
                                        **        HERE IF UNIT DESIGNATOR IS BAD.                                FC5A171A  281
                                                                                                                 FC5A171A  282
          1163  5140000000 X             UDP30    SA4    S=BU                                                    FC5A171A  283
                          0100000000 X            FATAL  B7                                                      FC5A171A  284
          1164  20454                             LX4    TP.ORDP                                                 FC5A171A  285
                                   0              ERRNZ  M.BOOL                                                  FC5A171A  286
                     0400001135 +                 EQ     EXIT.                                                   FC5A171A  287
                                                                                                                 FC5A171A  288
                                 605 +   UDPA     EQU    CUDA                                                    FC5A171A  289
  
  
  
  
                                        **        VUD -  VALIDATE UNIT DESIGNATOR.                               IO       1698
                                        *                                                                        IO       1699
                                        *         ENTRY  (X6) = POSSIBLE CONSTANT UNIT DESIGNATOR.               IO       1700
                                        *                                                                        IO       1701
                                        *         EXIT   (B7) = ZR IF DESIGNATOR IS LEGAL FILE NAME.             IO       1702
                                        *                     = ERROR ADDRS IF DESIGNATOR IS ILLEGAL FILE NAME.  IO       1703
                                        *                     = MI IF DESIGNATOR IS A NUMBER.                    IO       1704
                                        *                                                                        IO       1705
                                        *         USES   X - 0,7  B - 7                                          IO       1706
                                                                                                                 IO       1707
          1165  0400401165 +             VUD      SUBR               ENTRY/EXIT...                               IO       1708
          1166  67701                             =B7    -1                                                      IO       1709
                     43052                        MX0    7*CHAR                                                  IO       1710
                          11006                   BX0    X0*X6                                                   IO       1711
          1167  0300001165 +                      ZR     X0,EXIT.    IF NOT BOOLEAN FILE NAME                    IO       1712
                          43006                   MX0    CHAR                                                    IO       1713
                               11006              BX0    X0*X6                                                   IO       1714
          1170  20006                             LX0    CHAR                                                    IO       1715
                     7270777776                   SX7    X0-1RA                                                  IO       1716
          1171  6170000000 X                      SB7    E.IO31      ** NOT LEGAL FILE NAME                      IO       1717
                          0337001165 +            MI     X7,EXIT.    IF ILLEGAL FILE NAME                        IO       1718
          1172  7270777745                        SX7    X0-1RZ                                                  IO       1719
                          7277777776              =X7    X7-1                                                    IO       1720
          1173  0327001165 +                      PL     X7,EXIT.    IF ILLEGAL FILE NAME                        IO       1721
                          43052                   MX0    7*CHAR                                                  IO       1722
                               15060              BX0    -X0*X6                                                  IO       1723
          1174  6170000000 X                      SB7    E.IO32      ** FILE NAME GT 7 CHARS                     IO       1724
                          0310001165 +            NZ     X0,EXIT.    IF FILE NAME GT 7 CHARS                     IO       1725
          1175  66700                             =B7    0                                                       IO       1726
                     0400001165 +                 EQ     EXIT.                                                   IO       1727
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    41
        PARSER INTERFACE ROUTINES.                                    A=BMOD
  
                                        **        A=BMOD - CHECK BUFFER IN/OUT MODE DESIGNATOR.                  IO       1730
                                        *                                                                        IO       1731
                                        *         EXIT   CONTROL TURPLE OUTPUT                                   IO       1732
                                        *                                                                        IO       1733
                                        *         CALLS  LCT, OCT                                                IO       1734
                                                                                                                 IO       1735
                                                                                                                 IO       1736
          1176                           A=BMOD   BSSENT 0           ENTRY...                                    IO       1737
          1176  10155                             BX1    X5                                                      IO       1738
                     0100000000 X                 CALL   LCT         TEST FOR CONSTANT                           IO       1739
          1177  6230777775                        SB3    X0-M.INT                                                IO       1740
                          0530000000 X            NZ     B3,E.IOB2   IF NOT INTEGER                              IO       1741
          1200  0420001203 +                      ZR     B2,BMOD1    IF NOT CONSTANT                             IO       1742
                          0306001203 +            ZR     X6,BMOD1    IF CONSTANT *0*                             IO       1743
          1201  76010                             =X0    1                                                       IO       1744
                     37660                        IX6    X6-X0                                                   IO       1745
                          0306001203 +            ZR     X6,BMOD1    IF CONSTANT *1*                             IO       1746
          1202  0400000000 X                      EQ     E.IOB8                                                  IO       1747
                                                                                                                 IO       1748
          1203  22005                    BMOD1    LX0    X5                                                      IO       1749
                     20061                        SBIT   X0,TP.INTRP                                             IO       1750
                          0330000000 X            MI     X0,E.IOB2   IF EXPRESSION                               IO       1751
          1204  7140000037                        SX4    IC.MOD                                                  IO       1752
                          0100001521 +            RJ     OCT         OUTPUT CONTROL TURPLE                       IO       1753
          1205  0400000000 X                      EQ     PAREXIT                                                 IO       1754
  
  
  
  
                                        **        A=BLWA - CHECK BUFFER IN/OUT LAST WORD ADDRESS.                IO       1756
                                        *                                                                        IO       1757
                                        *         EXIT   CONTROL TURPLE OUTPUT                                   IO       1758
                                        *                                                                        IO       1759
                                        *         CALLS  OCT, VAI                                                IO       1760
                                                                                                                 IO       1761
                                                                                                                 IO       1762
          1206                           A=BLWA   BSSENT 0           ENTRY...                                    IO       1763
          1206  5140000000 +                      SA4    IODIR                                                   IO       1764
                          6130000000 X            SB3    E.IOB7      ** BUFFER ADDRESS CANNOT BE CONST/EXPR      IO       1765
          1207  0100001542 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       1766
          1210  0730000462 +                      MI     B3,BUFERR   IF NOT ADDRESSABLE                          IO       1767
                          6220777771              SB2    X0-M.CHAR                                               IO       1768
          1211  0420000000 X                      ZR     B2,E.IOB0   IF TYPE CHARACTER                           IO       1769
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS FORMAT                 FC50557     6
          1212  6230777773                        SB3    X0-M.DBL                                                IO       1770
                          10755                   BX7    X5                                                      IO       1771
                               22205              LX2    X5                                                      IO       1772
          1213  5170000014 +                      SA7    IOBLWA                                                  IO       1773
                          5130000000 X            SA3    T.PAR                                                   IO       1774
          1214  20720                             HX7    TP.BIAS                                                 IO       1775
                     21744                        AX7    -TP.BIASL   POSITION FOR LATER USE                      IO       1776
                          7100002000              CLAS=  X0,TP,(INTR)                                            IO       1777
          1215  11002                             BX0    X0*X2                                                   IO       1778
                     20220                        LX2    -TP.ORDP                                                IO       1779
                          0300001224 +            ZR     X0,BLWA3    IF NOT ARRAY LOAD                           IO       1780
          1216  43054                             MX0    -TP.ORDL                                                IO       1781
                     15220                        BX2    -X0*X2      ISOLATE ORDINAL (T.PAR)                     IO       1782
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    42
        PARSER INTERFACE ROUTINES.                                    A=BLWA
  
                          63221                   =B2    X2+OR.1OP                                               IO       1783
                               53232              SA2    X3+B2       FETCH ARRAY OPERAND                         IO       1784
          1217  10022                             BX0    X2                                                      IO       1785
                     20220                        LX2    -TP.ORDP                                                IO       1786
                          0730001226 +            MI     B3,BLWA4    IF NOT DOUBLE OR COMPLEX                    IO       1787
          1220  20020                             HX0    TP.BIAS                                                 IO       1788
                     21044                        AX0    -TP.BIASL   EXTRACT (SIGN EXTEND) BIAS                  IO       1789
                          76110                   =X1    1                                                       IO       1790
                               36001              IX0    X0+X1       INCREMENT FOR DOUBLE WORD ELEMENT           IO       1791
          1221  10122                             BX1    X2                                                      IO       1792
                     20154                        LX1    TP.ORDP                                                 IO       1793
                          43744                   MX7    -TP.BIASL                                               IO       1794
                               15007              BX0    -X7*X0      EXTRACT NEW BIAS                            IO       1795
          1222  20024                             LX0    TP.BIASP                                                IO       1796
                     20724                        LX7    TP.BIASP                                                IO       1797
                          11171                   BX1    X7*X1       REMOVE OLD BIAS                             IO       1798
                               12710              BX7    X1+X0       INSERT NEW BIAS                             IO       1799
          1223  54720                             SA7    A2          UPDATE PARSE FILE                           IO       1800
                     0400001226 +                 EQ     BLWA4                                                   IO       1801
                                                                                                                 IO       1802
          1224  0730001226 +             BLWA3    MI     B3,BLWA4    IF NOT DOUBLE OR COMPLEX                    IO       1803
                          76110                   =X1    1                                                       IO       1804
                               20124              LX1    TP.BIASP                                                IO       1805
          1225  36551                             IX5    X5+X1       INCREMENT FOR DOUBLE WORD ITEM              IO       1806
                     10755                        BX7    X5                                                      IO       1807
                          5170000014 +            SA7    IOBLWA                                                  IO       1808
                                                                                                                 IO       1809
          1226  5110000013 +             BLWA4    SA1    IOBFWA                                                  IO       1810
                          10611                   BX6    X1                                                      IO       1811
                               20620              HX6    TP.BIAS     LEFT JUSTIFY BIAS                           IO       1812
          1227  21644                             AX6    -TP.BIASL   POSITION FOR LATER USE                      IO       1813
                     22401                        LX4    X1          FWA (ACTUAL OPERAND)                        IO       1814
                          7100002000              CLAS=  X0,TP,(INTR)                                            IO       1815
          1230  11001                             BX0    X0*X1                                                   IO       1816
                     20120                        LX1    -TP.ORDP                                                IO       1817
                          0300001233 +            ZR     X0,BLWA5    IF NOT ARRAY LOAD                           IO       1818
          1231  43054                             MX0    -TP.ORDL                                                IO       1819
                     15110                        BX1    -X0*X1      ISOLATE ORDINAL (T.PAR)                     IO       1820
                          63211                   =B2    X1+OR.1OP                                               IO       1821
                               53132              SA1    X3+B2       FETCH ARRAY OPERAND                         IO       1822
          1232  20120                             LX1    -TP.ORDP                                                IO       1823
                                                                                                                 FC50557     7
          1233  43354                    BLWA5    MX3    -TP.ORDL                                                IO       1824
                     15023                        BX0    -X3*X2                                                  IO       1825
                          15313                   BX3    -X3*X1                                                  IO       1826
                               63300              SB3    X0          SET (B3) = SYMORD OF LWA                    IO       1827
          1234  63230                             SB2    X3          SET (B2) = SYMORD OF FWA                    IO       1828
                     12345                        BX3    X4+X5                                                   IO       1829
                          20361                   HX3    TP.INTR                                                 IO       1830
          1235  0523001237 +                      NE     B2,B3,BLWA10      IF NOT SAME SYMBOL                    IO       1831
                          0333001260 +            MI     X3,BLWA30   IF EITHER SUBSCRIPT NON-CONSTANT            IO       1832
          1236  0400001257 +                      EQ     BLWA28                                                  IO       1833
                                                                                                                 IO       1834
                                        *         TEST FOR FWA AND LWA BOTH FORMAL PARAMETERS.                   IO       1835
                                        *                (X4) = OPERAND FOR FWA (TP. FORMAT)                     IO       1836
                                        *                (X5) = OPERAND FOR LWA (TP. FORMAT)                     IO       1837
                                                                                                                 IO       1838
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    43
        PARSER INTERFACE ROUTINES.                                    A=BLWA
  
          1237  13045                    BLWA10   BX0    X4-X5                                                   IO       1839
                     20051                        HX0    TP.FP                                                   IO       1840
                          0330000000 X            MI     X0,E.IOB9   IF ONLY ONE IS A FORMAL PARAMETER           IO       1841
          1240  12345                             BX3    X4+X5                                                   IO       1842
                     20351                        HX3    TP.FP                                                   IO       1843
                          0333001260 +            MI     X3,BLWA30   IF BOTH ARE FORMAL PARAMETERS               IO       1844
                                                                                                                 IO       1845
                                        *         TEST FOR FWA AND LWA IN SAME COMMON BLOCK                      IO       1846
                                        *                (B2) = SYMORD OF FWA                                    IO       1847
                                        *                (B3) = SYMORD OF LWA                                    IO       1848
                                                                                                                 IO       1849
          1241  5130000000 X                      SA3    T.SYM                                                   IO       1850
                          76122                   SX1    B2+B2                                                   IO       1851
                               76233              SX2    B3+B3                                                   IO       1852
          1242  73331                             =X3    X3+WB.W                                                 IO       1853
                     63212                        SB2    B2+X1       (B2) = INDEX OF FWA                         IO       1854
                          63323                   SB3    B3+X2       (B3) = INDEX OF LWA                         IO       1855
                                   0              ERRNZ  3-Z=SYM                                                 IO       1856
                               53132              SA1    X3+B2       (X1) = SYMTAB ENTRY OF FWA                  IO       1857
          1243  53233                             SA2    X3+B3       (X2) = SYMTAB ENTRY OF LWA                  IO       1858
                     13012                        BX0    X1-X2                                                   IO       1859
                          12312                   BX3    X1+X2                                                   IO       1860
                               20054              SBIT   X0,WB.COMP                                              IO       1861
          1244  20354                             SBIT   X3,WB.COMP                                              IO       1862
                     0330000000 X                 MI     X0,E.IOB9   IF ONLY ONE IN COMMON                       IO       1863
          1245  0323001250 +                      PL     X3,BLWA20   IF NEITHER IN COMMON                        IO       1864
                          54111                   =A1    A1-WB.W+WC.W                                            IO       1865
                               54221              =A2    A2-WB.W+WC.W                                            IO       1866
          1246  43062                             MX0    -WC.RBL                                                 IO       1867
                     13312                        BX3    X1-X2       COMPARE BLOCK NUMBERS                       IO       1868
                          20060                   LX0    WC.RBP                                                  IO       1869
                               15030              BX0    -X0*X3                                                  IO       1870
          1247  0300001254 +                      ZR     X0,BLWA26   IF IN SAME COMMON BLOCK                     IO       1871
                                                                                                                 IO       1872
                                        *         TEST FOR FWA AND LWA IN SAME EQUIVALENCE CLASS.                IO       1873
                                        *                (X1) = SYMTAB WORD WB OF FWA                            IO       1874
                                        *                (X2) = SYMTAB WORD WB OF LWA                            IO       1875
                                                                                                                 IO       1876
          1250  11312                    BLWA20   BX3    X1*X2                                                   IO       1877
                     20362                        SBIT   X3,WB.EQVP                                              IO       1878
                          0323000000 X            PL     X3,E.IOB9   IF BOTH NOT EQUIVALENCED                    IO       1879
          1251  20117                             HX1    WB.BASE                                                 IO       1880
                     20217                        HX2    WB.BASE                                                 IO       1881
                          21160                   AX1    -WB.BASEL   ISOLATE BASE MEMBER                         IO       1882
                               21260              AX2    -WB.BASEL   ISOLATE BASE MEMBER                         IO       1883
          1252  37012                             IX0    X1-X2                                                   IO       1884
                     0310000000 X                 NZ     X0,E.IOB9   IF NOT IN SAME EQUIVALENCE CLASS            IO       1885
                               54111              =A1    A1-WB.W+WC.W                                            IO       1886
          1253  54221                             =A2    A2-WB.W+WC.W                                            IO       1887
                                                                                                                 IO       1888
                                                                                                                 IO       1889
                                        *         FWA AND LWA ARE NOW KNOWN TO BE IN SAME STORAGE BLOCK (COMMON  IO       1890
                                        *         OR LOCAL-EQUIVALENCED).  IF SUBSCRIPTS ARE CONSTANT, CHECK     IO       1891
                                        *         THAT(FWA .LE. LWA).                                            IO       1892
                                        *                (X1) = SYMTAB WORD WC OF FWA                            IO       1893
                                        *                (X2) = SYMTAB WORD WC OF LWA                            IO       1894
                                                                                                                 IO       1895
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    44
        PARSER INTERFACE ROUTINES.                                    A=BLWA
  
          1254  12345                    BLWA26   BX3    X4+X5                                                   IO       1896
                     20361                        HX3    TP.INTR                                                 IO       1897
                          0333001260 +            MI     X3,BLWA30   IF EITHER SUBSCRIPT NON-CONSTANT            IO       1898
          1255  43344                             MX3    -WC.RAL                                                 IO       1899
                                                  LX1    -WC.RAP                                                 IO       1900
                                                  LX2    -WC.RAP                                                 IO       1901
                     15113                        BX1    -X3*X1      RELATIVE BIAS OF FWA                        IO       1902
                          15223                   BX2    -X3*X2      RELATIVE BIAS OF LWA                        IO       1903
                               36616              IX6    X1+X6       TOTAL BIAS OF FWA                           IO       1904
          1256  36727                             IX7    X2+X7       TOTAL BIAS OF LWA                           IO       1905
                                                                                                                 IO       1906
          1257  37076                    BLWA28   IX0    X7-X6                                                   IO       1907
                     0330000000 X                 MI     X0,E.IOB6   IF LWA .LT. FWA                             IO       1908
                                                                                                                 IO       1909
          1260                           BLWA     BSSENT 0           ...DIAGNOSTIC RETURN                        IO       1910
                                                                                                                 IO       1911
          1260  7140000035               BLWA30   SX4    IC.BUF                                                  IO       1912
                          5150000014 +            SA5    IOBLWA                                                  IO       1913
          1261  0100001521 +                      RJ     OCT         OUTPUT CONTROL TURPLE                       IO       1914
          1262  0400000000 X                      EQ     PAREXIT                                                 IO       1915
  
  
  
  
                                        **        C=BFWA - CHECK BUFFER IN/OUT FIRST WORD ADDRESS.               IO       1917
                                        *                                                                        IO       1918
                                        *         EXIT   CONTROL TURPLE OUTPUT                                   IO       1919
                                        *                (IOBFWA) = BUFFER I/O FIRST WORD ADDRESS                IO       1920
                                        *                                                                        IO       1921
                                        *         CALLS  OCT, VAI                                                IO       1922
                                                                                                                 IO       1923
                                                                                                                 IO       1924
          1263                           C=BFWA   BSSENT 0           ENTRY...                                    IO       1925
          1263  5140000000 +                      SA4    IODIR                                                   IO       1926
                          6130000000 X            SB3    E.IOB7      ** BUFFER ADDRESS CANNOT BE CONST/EXPR      IO       1927
          1264  0100001542 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       1928
          1265  0730000462 +                      MI     B3,BUFERR   IF NOT ADDRESSABLE                          IO       1929
                          6220777771              SB2    X0-M.CHAR                                               IO       1930
          1266  0420000000 X                      ZR     B2,E.IOB0   IF TYPE CHARACTER                           IO       1931
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS FORMAT                 FC50557     8
          1267  7140000035                        SX4    IC.BUF                                                  IO       1932
                          22605                   LX6    X5                                                      IO       1933
          1270  5160000013 +                      SA6    IOBFWA                                                  IO       1934
                          0100001521 +            RJ     OCT         OUTPUT CONTROL TURPLE                       IO       1935
          1271  0400000000 X                      EQ     PAREXIT                                                 IO       1936
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    45
        PARSER INTERFACE ROUTINES.                                    C=CNT 
  
                                        **        C=CNT - CHECK XXCODE *COUNT* INDICATOR.                        IO       1938
                                        *                                                                        IO       1939
                                        *         EXIT   CONTROL TURPLE OUTPUT                                   IO       1940
                                        *                                                                        IO       1941
                                        *         CALLS  OCT                                                     IO       1942
                                                                                                                 IO       1943
                                                                                                                 IO       1944
          1272                           C=CNT    BSSENT 0           ENTRY...                                    IO       1945
          1272  10055                             BX0    X5                                                      IO       1946
                     20061                        SBIT   X0,TP.INTRP                                             IO       1947
                          0330000000 X            MI     X0,E.IOS9   IF EXPRESSION                               IO       1948
          1273  43071                             MX0    -TP.MODEL                                               IO       1949
                     15050                        BX0    -X0*X5      EXTRACT MODE                                IO       1950
                          0300001275 +            ZR     X0,CNT1     IF BOOLEAN, OKAY                            IO       1951
          1274  7200777775                        SX0    X0-M.INT                                                IO       1952
                          0310000000 X            NZ     X0,E.IOS9   IF NOT INTEGER                              IO       1953
          1275  7140000036               CNT1     SX4    IC.CNT                                                  IO       1954
                          0100001521 +            RJ     OCT         OUTPUT CONTROL TURPLE                       IO       1955
          1276  0400000000 X                      EQ     PAREXIT                                                 IO       1956
  
  
  
  
                                        **        C=FMT - CHECK FORMAT VALIDITY.                                 IO       1958
                                        *                                                                        IO       1959
                                        *         EXIT   CONTROL TURPLE OUTPUT                                   IO       1960
                                        *                                                                        IO       1961
                                        *         CALLS  LCH, OCT                                                IO       1962
                                                                                                                 IO       1963
                                                                                                                 IO       1964
          1277                           A=FMT    BSSENT 0           ENTRY...                                    IO       1965
          1277  67441                             =B4    B4-1        AJUST FOR FURTHER PROCESSING                IO       1966
          1300                           C=FMT    BSSENT 0           ENTRY...                                    IO       1967
          1300  22105                             LX1    X5                                                      IO       1968
                     0100000000 X                 CALL   LCH         TEST FOR CONSTANT                           IO       1969
          1301  7140000004                        SX4    IC.FMT                                                  IO       1970
                          6230777771              SB3    X0-M.CHAR                                               IO       1971
          1302  0530001312 +                      NZ     B3,FMT10    IF NOT TYPE CHARACTER                       FC5A171A  290
                          10155                   BX1    X5                                                      FC5A171A  291
                               20166              SBIT   X1,TP.AREP                                              FC5A252     5
          1303  0331001323 +                      MI     X1,FMT30    IF ENTIRE ARRAY                             FC5A252     6
                          20106                   LX1    TP.AREL+TP.AREP                                         FC5A252     7
          1304  0100000000 X                      CALL   GOL                                                     FC5A171A  292
          1305  57561                             =A5    B6-1        RESTORE X5                                  FC5A171A  293
                     7140000004                   SX4    IC.FMT      RESTORE X4                                  FC5A171A  294
          1306  7267777775                        SX6    X7-2                                                    FC5A171A  295
                          16676                   BX6    -X6+X7                                                  FC5A171A  296
          1307  0336001323 +                      MI     X6,FMT30    IF LENGTH IS OKAY                           FC5A171A  297
                          6170000000 X            FATAL  E.IO36      ** LENGTH OF FORMAT MUST BE GREATER THAN 1  FC5A171A  298
          1311  0400001323 +                      EQ     FMT30                                                   FC5A171A  299
                                                                                                                 FC5A171A  300
          1312  5110001000 +             FMT10    SA1    PFNPFE                                                  FC5A171A  301
                          0301000000 X            ZR     X1,E.IOF    IF NON-CHAR PARENTHESIZED EXPR              FC5A171A  302
          1313  0520000000 X                      NZ     B2,E.IOF    IF NON CHARACTER CONSTANT                   IO       1973
                          10155                   BX1    X5                                                      IO       1974
                               20161              SBIT   X1,TP.INTRP                                             IO       1975
          1314  0331000000 X                      MI     X1,E.IOF    IF NON CHARACTER EXPRESSION                 IO       1976
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    46
        PARSER INTERFACE ROUTINES.                                    C=FMT 
  
                          20171                   SBIT   X1,TP.ARRP/TP.INTRP                                     IO       1977
          1315  0321001321 +                      PL     X1,FMT20    IF NOT ARRAY                                FC5A171A  303
                          20110                   SBIT   X1,TP.AREP/TP.ARRP                                      FC50011     5
          1316  0321000000 X                      PL     X1,E.IOF    IF ARRAY ELEMENT (A(1)) REFERENCE           FC50011     6
                          6170000000 X            ANSI   E.IOF1      NON CHAR ARRAY FMT NON-ANSI                 FC50011     7
          1320  0400001323 +                      EQ     FMT30                                                   FC5A171A  304
                                                                                                                 IO       1981
          1321  6220777775               FMT20    SB2    X0-M.INT                                                FC5A171A  305
                          0520000000 X            NZ     B2,E.IOF2   IF NOT INTEGER                              IO       1983
          1322  7140000041                        SX4    IC.FMTA                                                 IO       1984
                                                                                                                 IO       1985
          1323  0100001521 +             FMT30    RJ     OCT         OUTPUT CONTROL TURPLE                       FC5A171A  306
          1324  0400000000 X                      EQ     PAREXIT                                                 IO       1987
  
  
  
  
                                        **        A=FOU - DETERMINE WHETHER EXPRESSION JUST PARSED IS            FC5A171A  308
                                        **                A FORMAT OR A UNIT DESIGNATOR.                         FC5A171A  309
                                        *                                                                        FC5A171A  310
                                        *         ENTRY  (X5) = TP. OPERAND FOR EXPRESSION.                      FC5A171A  311
                                        *                                                                        FC5A171A  312
                                        *         EXIT   TO *A=FMT* IF EXPRESSION IS TYPE CHARACTER.             FC5A171A  313
                                        *                TO *A=UNT* OTHERWISE.                                   FC5A171A  314
                                        *                                                                        FC5A171A  315
                                        *         USES   X - 1.                                                  FC5A171A  316
                                                                                                                 FC5A171A  317
                                                                                                                 FC5A171A  318
          1325                           C=FOU    BSSENT 0                                                       FC5A171A  319
                                                  IFEQ   TEST,ON,1                                               FC5A171A  320
                                                  EQ     "BLOWUP"    *FOUARM* IMPLIES NO ZERO LEVEL COMMAS       FC5A171A  321
                                                                                                                 FC5A171A  322
          1325                           A=FOU    BSSENT 0           ENTRY...                                    FC5A171A  323
          1325  43171                             MX1    -TP.MODEL                                               FC5A171A  324
                                                  LX5    -TP.MODEP                                               FC5A171A  325
                     15151                        BX1    -X1*X5      EXTRACT MODE OF EXPRESSION                  FC5A171A  326
                                                  LX5    TP.MODEP                                                FC5A171A  327
                          7211777771              SX1    X1-M.CHAR                                               FC5A171A  328
          1326  0311001456 +                      NZ     X1,A=UNT    IF EXPRESSION MUST BE A UNIT DESIGNATOR     FC5A171A  329
                          13666                   SHRINK T=IOARG                                                 FC5A171A  330
                          5150000407 +            SA5    PECB                                                    FC5A171A  331
          1330  10655                             BX6    X5                                                      FC5A171A  332
                     76700                        =X7    M.BOOL                                                  FC5A171A  333
                          0100000000 X            CALL   NCS         ENTER DEFAULT UNIT DESIGNATOR IN CON TABLE  FC5A171A  334
          1331  5150000000 X                      SA5    CONONE                                                  FC5A171A  335
                          10466                   BX4    X6                                                      FC5A171A  336
          1332  5110000000 X                      EMIT   IOUNT,*,T.IOARG                                         FC5A171A  337
                                   0              ERRNZ  M.BOOL      MUST MERGE MODE INTO HEADER                 FC5A171A  338
          1334  57561                             =A5    B6-1        RESTORE X5                                  FC5A171A  339
                     55451                        =A4    A5-1        RESTORE X4                                  FC5A171A  340
                          0400001277 +            EQ     A=FMT       EXPRESSION MUST BE A FORMAT DESIGNATOR      FC5A171A  341
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    47
        PARSER INTERFACE ROUTINES.                                    C=ICC 
  
                                        **        C=ICC - CHECK I/O CONTROL CHARACTER VARIABLE                   IO       1989
                                        *         USED BY - ACCESS=       (FROM INQUIRE)                         IO       1990
                                        *                   BLANK=        (FROM INQUIRE)                         IO       1991
                                        *                   DIRECT=                                              IO       1992
                                        *                   FORM=         (FROM INQUIRE)                         IO       1993
                                        *                   FORMATTED=                                           IO       1994
                                        *                   NAME=                                                IO       1995
                                        *                   SEQUENTIAL=                                          IO       1996
                                        *                   UNFORMATTED=                                         IO       1997
                                        *                                                                        IO       1998
                                        *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                   IO       1999
                                        *                                                                        IO       2000
                                        *         CALLS  KWE, VAI                                                IO       2001
                                                                                                                 IO       2002
                                                                                                                 IO       2003
          1335                           A=ICC    BSSENT 0                                                       IO       2004
          1335  6144777776                        SB4    B4-1                                                    IO       2005
                                                                                                                 FC50596     4
          1336                           C=ICC    BSSENT 0                                                       IO       2006
          1336  0100001515 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2007
          1337  43400                             MX4    0           INDICATE DEFINITIONAL OCCURRANCE            IO       2008
                     6130000000 X                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR           IO       2009
          1340  0100001542 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2010
          1341  6220777771                        SB2    X0-M.CHAR                                               IO       2011
                          0420000000 X            ZR     B2,PAREXIT  IF CHARACTER                                IO       2012
          1342  5110000006 X                      SA1    MOD.DPC+M.CHAR                                          IO       2013
                          22601                   LX6    X1                                                      IO       2014
          1343  5160000000 X                      SA6    FILL.3                                                  IO       2015
                          6170000000 X            FATAL  E.IO05                                                  IO       2016
          1345  0400000000 X                      EQ     PAREXIT                                                 IO       2017
  
  
  
  
                                        **        C=ICCX - CHECK I/O CONTROL CHARACTER EXPRESSION                IO       2019
                                        *         USED BY - ACCESS=  (FROM OPEN)                                 IO       2020
                                        *                   BLANK=   (FROM OPEN)                                 IO       2021
                                        *                   FILE=                                                IO       2022
                                        *                   FORM=    (FROM OPEN)                                 IO       2023
                                        *                   STATUS=                                              IO       2024
                                        *                                                                        IO       2025
                                        *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                   IO       2026
                                                                                                                 IO       2027
                                                                                                                 IO       2028
          1346                           A=ICCX   BSSENT 0                                                       IO       2029
          1346  6144777776                        SB4    B4-1                                                    IO       2030
                                                                                                                 FC50596     5
          1347                           C=ICCX   BSSENT 0                                                       IO       2031
          1347  43071                             MX0    -TP.MODEL                                               IO       2032
                                                  LX5    -TP.MODEP                                               IO       2033
                     15050                        BX0    -X0*X5      EXTRACT MODE                                IO       2034
                                                  LX5    TP.MODEP                                                IO       2035
                          6270777771              SB7    X0-M.CHAR                                               IO       2036
          1350  0470000000 X                      ZR     B7,PAREXIT  IF TYPE CHARACTER                           IO       2037
                          0100001515 +            RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2038
          1351  5110000006 X                      SA1    MOD.DPC+M.CHAR                                          IO       2039
                          10611                   BX6    X1                                                      IO       2040
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    48
        PARSER INTERFACE ROUTINES.                                    C=ICCX
  
          1352  5160000000 X                      SA6    FILL.3                                                  IO       2041
                          6170000000 X            FATAL  E.IO05                                                  IO       2042
          1354  0400000000 X                      EQ     PAREXIT                                                 IO       2043
  
  
  
  
                                        **        C=ICI - CHECK I/O CONTROL INTEGER VARIABLE                     IO       2045
                                        *         USED BY - IOSTAT=                                              IO       2046
                                        *                   NEXTREC=                                             IO       2047
                                        *                   NUMBER=                                              IO       2048
                                        *                   RECL=     (FROM INQUIRE)                             IO       2049
                                        *                                                                        IO       2050
                                        *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                   IO       2051
                                        *                                                                        IO       2052
                                        *         CALLS  KWE, VAI                                                IO       2053
                                                                                                                 IO       2054
                                                                                                                 IO       2055
          1355                           A=ICI    BSSENT 0                                                       IO       2056
          1355  6144777776                        SB4    B4-1                                                    IO       2057
                                                                                                                 FC50596     6
          1356                           C=ICI    BSSENT 0                                                       IO       2058
          1356  0100001515 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2059
          1357  43400                             MX4    0           INDICATE DEFINITIONAL OCCURRANCE            IO       2060
                     6130000000 X                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR           IO       2061
          1360  0100001542 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2062
          1361  6220777775                        SB2    X0-M.INT                                                IO       2063
                          0300000000 X            ZR     X0,PAREXIT  IF BOOLEAN                                  IO       2064
                                   0              ERRNZ  M.BOOL                                                  IO       2065
          1362  0420000000 X                      ZR     B2,PAREXIT  IF INTEGER                                  IO       2066
                          5110000002 X            SA1    MOD.DPC+M.INT                                           IO       2067
          1363  22601                             LX6    X1                                                      IO       2068
                     5160000000 X                 SA6    FILL.3                                                  IO       2069
          1364  6170000000 X                      FATAL  E.IO05                                                  IO       2070
          1365  0400000000 X                      EQ     PAREXIT                                                 IO       2071
  
  
  
  
                                        **        C=ICIX - I/O CONTROL POSITIVE INTEGER EXPRESSION               IO       2073
                                        *         USED BY - BUFL=                                                IO       2074
                                        *                   REC=                                                 IO       2075
                                        *                   RECL=  (FROM OPEN)                                   IO       2076
                                        *                                                                        IO       2077
                                        *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                   IO       2078
                                        *                                                                        IO       2079
                                        *         CALLS  KWE, LCH                                                IO       2080
                                                                                                                 IO       2081
                                                                                                                 IO       2082
          1366                           A=ICIX   BSSENT 0                                                       IO       2083
          1366  6144777776                        SB4    B4-1                                                    IO       2084
                                                                                                                 FC50596     7
          1367                           C=ICIX   BSSENT 0                                                       IO       2085
          1367  0100001515 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2086
          1370  22105                             LX1    X5                                                      IO       2087
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          IO       2088
          1371  0300001373 +                      ZR     X0,ICIX1    IF BOOLEAN                                  IO       2089
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    49
        PARSER INTERFACE ROUTINES.                                    C=ICIX
  
                                   0              ERRNZ  M.BOOL                                                  IO       2090
                          6270777775              SB7    X0-M.INT                                                IO       2091
          1372  0570000000 X                      NZ     B7,E.IO17   IF NOT INTEGER (OR BOOLEAN)                 IO       2092
                                                                                                                 FC50596     8
          1373  0420000000 X             ICIX1    ZR     B2,PAREXIT  IF NOT CONSTANT                             IO       2093
                          0336000000 X            MI     X6,E.IO17   IF NEGATIVE, ERROR                          IO       2095
          1374  0316000000 X                      NZ     X6,PAREXIT  IF NOT ZERO                                 FC50596     9
                          5110000000 X            SA1    FILL.                                                   FC50596    10
          1375  5120002732 +                      SA2    =4LBUFL                                                 FC50596    11
                          37212                   IX2    X1-X2                                                   FC50596    12
          1376  0302000000 X                      ZR     X2,PAREXIT  IF BUFL, BUFL=0 OKAY                        FC50596    13
                          0400000000 X            EQ     E.IO17      REC=0 AND RECL=0 NOT OKAY                   FC50596    14
  
  
  
  
                                        **        C=ICL - CHECK I/O CONTROL LOGICAL VARIABLE                     IO       2098
                                        *         USED BY - EXIST=                                               IO       2099
                                        *                   NAMED=                                               IO       2100
                                        *                   OPENED=                                              IO       2101
                                        *                                                                        IO       2102
                                        *         EXIT   (X5) = KEYWORD PARAMETER (TP. FORMAT)                   IO       2103
                                        *                                                                        IO       2104
                                        *         CALLS  KWE, VAI                                                IO       2105
                                                                                                                 IO       2106
                                                                                                                 IO       2107
          1377                           A=ICL    BSSENT 0                                                       IO       2108
          1377  6144777776                        SB4    B4-1                                                    IO       2109
                                                                                                                 FC50596    15
          1400                           C=ICL    BSSENT 0                                                       IO       2110
          1400  0100001515 +                      RJ     KWE         SET UP FILL. FOR KEYWORD DIAGNOSTIC         IO       2111
          1401  43400                             MX4    0           INDICATE DEFINITIONAL OCCURRANCE            IO       2112
                     6130000000 X                 SB3    E.IO18      ** SPECIFIER CANNOT BE CONST/EXPR           IO       2113
          1402  0100001542 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2114
          1403  6220777776                        SB2    X0-M.LOG                                                IO       2115
                          0420000000 X            ZR     B2,PAREXIT  IF LOGICAL                                  IO       2116
          1404  5110000001 X                      SA1    MOD.DPC+M.LOG                                           IO       2117
                          22601                   LX6    X1                                                      IO       2118
          1405  5160000000 X                      SA6    FILL.3                                                  IO       2119
                          6170000000 X            FATAL  E.IO05                                                  IO       2120
          1407  0400000000 X                      EQ     PAREXIT                                                 IO       2121
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    50
        PARSER INTERFACE ROUTINES.                                    C=IOL 
  
                                        **        C=IOL - MAKE I/O AP-LIST ENTRIES.                              IO       2123
                                        *                                                                        IO       2124
                                        *         EXIT   TO IOL.RTN                                              IO       2125
                                        *                                                                        IO       2126
                                        *         CALLS  EMT, LCH, TPC, VAI                                      IO       2127
                                                                                                                 IO       2128
                                                                                                                 IO       2129
          1410                           C=IOL    BSSENT 0           ENTRY...                                    IO       2130
          1410  0100002613 +                      RJ     PAX         PREPARE ARRAY CROSS-SECTION                 FC5A218    53
          1411  0100000000 X                      CALL   TPC         TEST FOR PASSED LENGTH CONCATENATION        IO       2131
          1412  10155                             BX1    X5                                                      FC5A218    54
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          IO       2137
          1413  22005                             LX0    X5                                                      IO       2138
                     10455                        BX4    X5                                                      IO       2139
                          20070                   HX0    TP.EXPR                                                 IO       2140
          1414  5150000000 X                      SA5    CONONE                                                  IO       2141
                          0330001441 +            MI     X0,IOL30    IF ITEM IS EXPRESSION                       IO       2142
          1415  0520001441 +                      NZ     B2,IOL30    IF ITEM IS A CONSTANT                       IO       2143
                          20065                   LX0    TP.EXPRP-TP.INTRP                                       IO       2144
          1416  0320001422 +                      PL     X0,IOL10    IF ITEM NOT INTERMEDIATE                    IO       2145
                          20071                   LX0    TP.INTRP-TP.ARRP                                        IO       2146
          1417  0320001441 +                      PL     X0,IOL30    IF ITEM NOT SUBSCRIPTED ARRAY               IO       2147
                          5130000011 +            SA3    IODOIND                                                 IO       2148
          1420  0303001441 +                      ZR     X3,IOL30    IF I/O DO COLLAPSE NOT INVOLVED             IO       2149
                          54531                   =A5    A3+1        FETCH PARTIAL COLLAPSE SIZE                 FC50084     7
                               76600              =X6    0                                                       IO       2171
          1421  54650                             SA6    A5                                                      IO       2172
                     55651                        =A6    A5-1        CLEAR COLLAPSE INDICATORS                   IO       2173
                          0400001441 +            EQ     IOL30                                                   IO       2174
                                                                                                                 IO       2175
          1422  10744                    IOL10    BX7    X4                                                      IO       2176
                                                  HX7    TP.ORD                                                  IO       2177
                     21754                        AX7    -TP.ORDL    ISOLATE ORDINAL                             IO       2178
                          63270                   SB2    X7                                                      IO       2179
                               66222              SB2    B2+B2                                                   IO       2180
          1423  63272                             SB2    B2+X7       CONVERT ORDINAL TO INDEX                    IO       2181
                                   0              ERRNZ  3-Z=SYM                                                 IO       2182
                     6122000001                   SB2    B2+WB.W                                                 IO       2183
          1424  5110000000 X                      SA1    T.SYM                                                   IO       2184
                          53212                   SA2    X1+B2       FETCH *WB* ENTRY                            IO       2185
                               22004              LX0    X4                                                      IO       2186
          1425  20261                             SBIT   X2,WB.ARYP                                              IO       2187
                     0322001441 +                 PL     X2,IOL30    IF NOT ARRAY                                IO       2188
                               20066              SBIT   X0,TP.AREP                                              IO       2189
          1426  0320001441 +                      PL     X0,IOL30    IF SINGLE ELEMENT                           IO       2190
                          20230                   SBIT   X2,WB.PNTP/WB.ARYP+1                                    IO       2191
          1427  5130000000 X                      SA3    T.DIM                                                   IO       2192
                          43057                   MX0    -WB.PNTL                                                IO       2193
                               15520              BX5    -X0*X2      ISOLATE T.DIM ORD                           IO       2194
          1430  63350                             SB3    X5                                                      IO       2195
                     43044                        MX0    -DH.PSL                                                 IO       2196
                          53133                   SA1    X3+B3       FETCH DIMENSION PARAMETERS                  IO       2197
                               20136              LX1    -DH.PSP                                                 IO       2198
          1431  15510                             BX5    -X0*X1      ARRAY LENGTH                                IO       2199
                     20524                        LX5    TP.BIASP                                                IO       2200
                          20137                   SBIT   X1,DH.ASP/DH.PSP-1                                      IO       2201
          1432  7120010002                        CLAS=  X2,TP,(SHRT),INT                                        IO       2202
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    51
        PARSER INTERFACE ROUTINES.                                    C=IOL 
  
                          12552                   BX5    X5+X2       MAKE INTO SHORT CONSTANT                    IO       2203
          1433  0321001436 +                      PL     X1,IOL20    IF NOT ASSUMED SIZE ARRAY                   IO       2204
                          6170000000 X            FATAL  E.IOL6                                                  IO       2205
          1435  0400000000 X                      EQ     C=ERR                                                   IO       2206
                                                                                                                 IO       2207
          1436  20173                    IOL20    SBIT   X1,DH.VDP/DH.ASP                                        IO       2208
                     0321001441 +                 PL     X1,IOL30    IF NOT ADJUSTABLY DIMENSIONED               IO       2209
          1437  5110000000 X                      SA1    S=VD                                                    IO       2210
                          20154                   LX1    TP.ORDP                                                 IO       2211
                               43201              CLAS=  X2,TP,(SHRT)                                            IO       2212
                     15552                        BX5    -X2*X5      REMOVE TP.SHRT (LEAVING BIAS + MODE)        IO       2213
                          12515                   BX5    X1+X5       ORD + BIAS + MODE = VD. PRODUCT OF SPANS    IO       2214
                                                                                                                 IO       2215
                                        *         (X4) = (1OP) = LIST ITEM (TP. FORMAT)                          IO       2216
                                        *         (X5) = (2OP) = LENGTH INDICATOR (TP. FORMAT)                   IO       2217
                                                                                                                 IO       2218
          1441  5110000000 +             IOL30    SA1    IODIR                                                   FC5A141    68
                          5120000000 X            SA2    DATFLG                                                  FC5A141    69
          1442  0311001444 +                      NZ     X1,IOL40    IF NOT INPUT DIRECTION                      FC5A141    70
                          0312001444 +            NZ     X2,IOL40    IF DATA LIST                                FC5A141    71
          1443  0100001555 +                      RJ     AII         ADD INPUT ITEM TO T.ILI                     FC5A141    72
                                                                                                                 FC5A141    73
          1444  5110000000 X             IOL40    SA1    IODTA                                                   FC5A141    74
                          43071                   MX0    -TP.MODEL                                               IO       2220
                                                  LX4    -TP.MODEP                                               IO       2221
                               15040              BX0    -X0*X4      EXTRACT MODE                                IO       2222
          1445  20022                             LX0    SP.MODEP                                                FC50104    66
                     12610                        BX6    X1+X0       MERGE MODE INTO TURPLE HEADER               IO       2224
                          5160000003 +            SA6    IODTH                                                   IO       2225
                                                  LX4    TP.MODEP                                                IO       2226
          1446  5110000000 X                      EMIT   IODTH,*,T.IOARG                                         IO       2227
          1450  0400000000 X                      EQ     IOL.RTN     EXIT...                                     IO       2228
  
  
  
  
                                        **        A=STR - CHECK XXCODE *STRING* ADDRESS.                         IO       2232
                                        *                                                                        IO       2233
                                        *         EXIT   CONTROL TURPLE OUTPUT                                   IO       2234
                                        *                                                                        IO       2235
                                        *         CALLS  OCT                                                     IO       2236
                                                                                                                 IO       2237
                                                                                                                 IO       2238
          1451                           A=STR    BSSENT 0           ENTRY...                                    IO       2239
          1451  5140000000 +                      SA4    IODIR                                                   IO       2240
                          6130000000 X            SB3    E.IOS7      ** STRING ADDRESS CANNOT BE CONST/EXPR      IO       2241
          1452  0100001542 +                      RJ     VAI         VALIDATE ADDRESSABLE ITEM                   IO       2242
          1453  6220777771                        SB2    X0-M.CHAR                                               IO       2243
                          0420000000 X            ZR     B2,E.IOS10  IF TYPE CHARACTER                           IO       2244
          1454  7140000040                        SX4    IC.STR                                                  IO       2245
                          0100001521 +            RJ     OCT         OUTPUT CONTROL TURPLE                       IO       2246
          1455  0400000000 X                      EQ     PAREXIT                                                 IO       2247
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    52
        PARSER INTERFACE ROUTINES.                                    C=UNT 
  
                                        **        C=UNT - UNIT DESIGNATOR CHECK                                  IO       2249
                                        *                                                                        IO       2250
                                        *         EXIT   (X5) = UNIT DESIGNATOR (TP. FORMAT)                     IO       2251
                                                                                                                 IO       2252
                                                                                                                 IO       2253
          1456                           A=UNT    BSSENT                                                         IO       2254
          1456  6144777776                        SB4    B4-1                                                    IO       2255
          1457                           C=UNT    BSSENT                                                         IO       2256
          1457  0400000000 X                      EQ     PAREXIT                                                 IO       2257
  
  
  
  
                                        **        CML - CHECK FOR MATCH IN LIST (T.ILI)                          IO       2259
                                        *                                                                        IO       2260
                                        *         I/O RESTART CALLS WILL BE ISSUED WHEN CERTAIN CONDITIONS ARE   IO       2261
                                        *         SATISFIED FOR ITEMS IN INPUT LISTS.                            IO       2262
                                        *                                                                        IO       2263
                                        *         ENTRY  (X6) = ITEM TO BE CHECKED (TP. FORMAT)                  IO       2264
                                        *                (X0) = 0 IF ITEM IS AN INDEXED ARRAY                    FC5A141    75
                                        *                     = .NZ. OTHERWISE.                                  FC5A141    76
                                        *                                                                        FC5A141    77
                                        *         KEEPS  X - 5,6  B - 2,4,5,6.                                   FC5A141    78
                                        *                                                                        FC5A141    79
                                        *         CALLS  BBC,FII,CT1,IOJ.                                        FC5A141    80
                                                                                                                 FC5A141    81
          1460  5150001511 +             CML30    SA5    CMLA                                                    FC5A141    82
                          10655                   BX6    X5          RESTORE X6                                  FC5A141    83
                               54551              =A5    A5+1        RESTORE X5                                  FC5A141    84
          1461  54151                             =A1    A5+1                                                    FC5A141    85
                     63610                        SB6    X1          RESTORE B6                                  FC5A141    86
                          20152                   LX1    -18                                                     FC5A141    87
                               63510              SB5    X1          RESTORE B5                                  FC5A141    88
          1462  20152                             LX1    -18                                                     FC5A141    89
                     63210                        SB2    X1          RESTORE B2                                  FC5A141    90
                                                                                                                 FC5A141    91
          1463  0400401463 +             CML      SUBR   =           ENTRY/EXIT...                               FC5A141    92
          1464  5110000000 X                      SA1    T=ILI                                                   FC5A141    93
                          0301001463 +            ZR     X1,EXIT.    IF TABLE EMPTY                              FC5A141    94
          1465  5160001511 +                      SA6    CMLA        PRESERVE X6                                 FC5A141    95
                          10755                   BX7    X5                                                      FC5A141    96
                               54761              =A7    A6+1        PRESERVE X5                                 FC5A141    97
          1466  43452                             MX4    -18                                                     FC5A141    98
                     76160                        SX1    B6                                                      FC5A141    99
                          15714                   BX7    -X4*X1                                                  FC5A141   100
                               76250              SX2    B5                                                      FC5A141   101
          1467  15224                             BX2    -X4*X2                                                  FC5A141   102
                     20222                        LX2    18                                                      FC5A141   103
                          12772                   BX7    X7+X2                                                   FC5A141   104
                               76220              SX2    B2                                                      FC5A141   105
          1470  15224                             BX2    -X4*X2                                                  FC5A141   106
                     20244                        LX2    18+18                                                   FC5A141   107
                          12772                   BX7    X7+X2                                                   FC5A141   108
                               54771              =A7    A7+1        PRESERVE B2,B5,B6                           FC5A141   109
          1471  10400                             BX4    X0                                                      FC5A141   110
                     43154                        MX1    -TP.ORDL                                                FC5A141   111
                          20620                   LX6    -TP.ORDP                                                FC5A141   112
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    53
        PARSER INTERFACE ROUTINES.                                    CML 
  
                               15061              BX0    -X1*X6      X0 = SYMORD                                 FC5A141   113
          1472  0100000000 X                      CALL   CT1         GET EQV BIT INTO OPERAND                    FC5A141   114
          1473  10566                             BX5    X6          X5 = OPERAND                                FC5A141   115
                     0100000000 X                 CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A141   116
          1474  10044                             BX0    X4                                                      FC5A141   117
                     0100001606 +                 RJ     FII         FORMAT INPUT ITEM                           FC5A141   118
          1475  20572                             HX5    II.CHAR                                                 FC5A141   119
                     0335001460 +                 MI     X5,CML30    IF ITEM IS CHARACTER                        FC5A141   120
                               43054              MX0    -II.ORDL                                                FC5A141   121
          1476  43744                             MX7    -II.BIASL                                               FC5A141   122
                     20522                        LX5    1+II.CHARP-II.ORDP                                      FC5A141   123
                          15150                   BX1    -X0*X5      X1 = ORDINAL OF ITEM                        FC5A141   124
                               20530              LX5    II.ORDP-II.BIASP                                        FC5A141   125
          1477  15257                             BX2    -X7*X5      X2 = BIAS OF ITEM                           FC5A141   126
                     20524                        LX5    II.BIASP                                                FC5A141   127
                          5130000000 X            SA3    T=ILI                                                   FC5A141   128
          1500  5140000000 X                      SA4    T.ILI                                                   FC5A141   129
                          67201                   =B2    -1          B2 = LOOP COUNTER                           FC5A141   130
                               63530              =B5    X3          B5 = LOOP LIMIT                             FC5A141   131
          1501  63340                             SB3    X4          B3 = FWA OF TABLE                           FC5A141   132
                                                                                                                 FC5A141   133
          1502  66221                    CML10    =B2    B2+1                                                    FC5A141   134
                     0625001460 +                 GE     B2,B5,CML30 IF TABLE EXHAUSTED                          FC5A141   135
                               56332              SA3    B3+B2       X3 = TABLE ENTRY                            FC5A141   136
          1503  20320                             LX3    -II.ORDP                                                FC5A141   137
                     15430                        BX4    -X0*X3      X4 = ORDINAL OF ENTRY                       FC5A141   138
                          37441                   IX4    X4-X1                                                   FC5A141   139
          1504  0314001502 +                      NZ     X4,CML10    IF ORDINALS DONT MATCH                      FC5A141   140
                          20354                   LX3    II.ORDP                                                 FC5A141   141
                               12453              BX4    X5+X3                                                   FC5A141   142
          1505  20473                             HX4    II.ARY                                                  FC5A141   143
                     0334001507 +                 MI     X4,CML20    IF EITHER ONE IS AN INDEXED ARRAY           FC5A141   144
                               20350              LX3    -II.BIASP                                               FC5A141   145
          1506  15437                             BX4    -X7*X3      X4 = BIAS OF ENTRY                          FC5A141   146
                     37442                        IX4    X4-X2                                                   FC5A141   147
                          0314001502 +            NZ     X4,CML10    IF BIASES ARE NOT EQUAL                     FC5A141   148
                                                                                                                 FC5A141   149
                                        **        HERE IF WE NEED TO ISSUE APLIST INTERRUPT.                     FC5A141   150
                                                                                                                 FC5A141   151
          1507  76610                    CML20    =X6    1                                                       FC5A141   152
                     0100000646 +                 RJ     IOJ         ISSUE APLIST INTERRUPT                      FC5A141   153
          1510  0400001460 +                      EQ     CML30                                                   FC5A141   154
                                                                                                                 IO       2327
          1511                     1     CMLA     BSS    1           TEMPORARY FOR X6                            IO       2328
          1512                     1              BSS    1                         X5                            IO       2329
          1513                     1              BSS    1                         B2,B5,B6                      IO       2330
          1514                     1     CMLB     BSS    1           TEMP FOR ARRAY NAME                         IO       2331
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    54
        PARSER INTERFACE ROUTINES.                                    KWE 
  
                                        **        KWE -  KEYWORD PARAMETER DIAGNOSTIC SETUP                      IO       2333
                                        *                                                                        IO       2334
                                        *         ENTRY  (ICKA) = I/O CONTROL KEYWORD (DPC)                      IO       2335
                                        *                                                                        IO       2336
                                        *         EXIT   (FILL., FILL.2) = I/O CONTROL KEYWORD                   IO       2337
                                                                                                                 IO       2338
                                                                                                                 IO       2339
          1515  0400401515 +             KWE      SUBR               ...ENTRY/EXIT...                            IO       2340
          1516  5110000634 +                      SA1    ICKA        FETCH THE KEYWORD                           IO       2341
                          54211                   =A2    A1+1                                                    IO       2342
                               10611              BX6    X1                                                      IO       2343
          1517  22702                             LX7    X2                                                      IO       2344
                     5160000000 X                 SA6    FILL.                                                   IO       2345
                               54761              =A7    A6+1                                                    IO       2346
          1520  0400001515 +                      EQ     EXIT.                                                   IO       2347
  
  
  
  
                                        **        OCT -  OUTPUT CONTROL TURPLE                                   IO       2349
                                        *                                                                        IO       2350
                                        *         PUTS MODE OF CONTROL OPERAND INTO THE CONTROL TURPLE HEADER.   IO       2351
                                        *                                                                        IO       2352
                                        *         ENTRY  (X4) = I/O CONTROL CODE                                 IO       2353
                                        *                (X5) = I/O CONTROL OPERAND (TP. FORMAT)                 IO       2354
                                        *                                                                        IO       2355
                                        *         EXIT   CONTROL TURPLE OUTPUT                                   IO       2356
                                        *                                                                        IO       2357
                                        *         USES   A1,A6  X0,X1,X6                                         IO       2358
                                        *                                                                        IO       2359
                                        *         CALLS  EMT                                                     IO       2360
                                                                                                                 IO       2361
                                                                                                                 IO       2362
          1521  0400401521 +             OCT      SUBR   0           ...ENTRY/EXIT...                            IO       2363
          1522  5110000000 X                      SA1    IOCTL                                                   IO       2364
                          20424                   LX4    TP.IOCP                                                 IO       2365
                               43071              MX0    -TP.MODEL                                               IO       2366
                                                  LX5    -TP.MODEP                                               IO       2367
          1523  15050                             BX0    -X0*X5      EXTRACT MODE OF CONTROL OPERAND             IO       2368
                                                  LX5    TP.MODEP                                                IO       2369
                     20022                        LX0    SP.MODEP                                                FC50104    67
                          12610                   BX6    X1+X0                                                   IO       2371
          1524  5160001527 +                      SA6    OCTA                                                    IO       2372
                          5110000000 X            EMIT   OCTA,*,T.IOARG                                          IO       2373
          1526  0400001521 +                      EQ     EXIT.                                                   IO       2374
                                                                                                                 IO       2375
          1527                     1     OCTA     BSS    1           I/O CONTROL TURPLE HEADER (WITH MODE)       IO       2376
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    55
        PARSER INTERFACE ROUTINES.                                    OST 
  
                                        **        OST -  OUTPUT SKIP TURPLE                                      FC5A143    15
                                        *                                                                        FC5A143    16
                                        *         OUTPUTS DEFAULT SKIP TURPLE, AS NECESSARY.                     FC5A143    17
                                        *                                                                        FC5A143    18
                                        *         USES   A1,A2,A6,A7  X0,X1,X2,X4,X5,X6,X7                       FC5A143    19
                                        *                                                                        FC5A143    20
                                        *         CALLS  OCT                                                     FC5A143    21
                                                                                                                 FC5A143    22
                                                                                                                 FC5A143    23
          1530  0400401530 +             OST      SUBR               ...ENTRY/EXIT...                            FC5A143    24
          1531  5110000000 +                      SA1    IODIR       I/O DIRECTION                               FC5A143    25
                          0301001535 +            ZR     X1,OST1     IF INPUT                                    FC5A143    26
          1532  5110001002 +                      SA1    PKCA        FETCH DEFINED SPECIFIER MASK                FC5A143    27
                          7120000001              SX2    1                                                       FC5A143    28
          1533  20266                             LX2    59-IC.IOS                                               FC5A143    29
                     11012                        BX0    X1*X2                                                   FC5A143    30
                          0300001530 +            ZR     X0,EXIT.    IF IOSTAT= NOT SPECIFIED                    FC5A143    31
          1534  20202                             LX2    IC.IOS-IC.ERR                                           FC5A143    32
                     11012                        BX0    X1*X2                                                   FC5A143    33
                          0310001530 +            NZ     X0,EXIT.    IF ERR= SPECIFIED                           FC5A143    34
                                                                                                                 FC5A143    35
                                        *         EMIT DEFAULT SKIP LABEL.                                       FC5A143    36
                                                                                                                 FC5A143    37
          1535  7140000007               OST1     SX4    IC.SKP      1OP = CONTROL CODE                          FC5A143    38
                          5110000000 X            SA1    N.GL        NEXT GENERATED LABEL                        FC5A143    39
          1536  10611                             BX6    X1                                                      FC5A143    40
                     76210                        =X2    1                                                       FC5A143    41
                          73761                   =X7    X6+1                                                    FC5A143    42
                               20216              LX2    TP.GLP                                                  FC5A143    43
          1537  54710                             SA7    A1          UPDATE GL COUNT                             FC5A143    44
                     20154                        LX1    TP.ORDP                                                 FC5A143    45
                          12612                   BX6    X1+X2       2OP = GL ORD                                FC5A143    46
                               22506              LX5    X6                                                      FC5A143    47
          1540  5160000004 +                      SA6    IOSKP                                                   FC5A143    48
                          0100001521 +            RJ     OCT         OUTPUT CONTROL TURPLE                       FC5A143    49
          1541  0400001530 +                      EQ     EXIT.                                                   FC5A143    50
  
  
  
  
                                        **        VAI - VALIDATE ADDRESSABLE ITEM.                               IO       2378
                                        *                                                                        IO       2379
                                        *         VALIDATE THAT OPERAND IS LEGALLY ADDRESSABLE.  IF NOT, ISSUE   IO       2380
                                        *         DIAGNOSTIC.  IF SO, AND THIS IS A DEFINING OCCURANCE,          IO       2381
                                        *         SET (WB.DEF), AND CHECK THAT AN ACTIVE DO-CONTROL INDEX IS     IO       2382
                                        *         NOT BEING REDEFINED.                                           IO       2383
                                        *                                                                        IO       2384
                                        *         ENTRY  (X5) = OPERAND.                                         IO       2385
                                        *                (X4) .ZR. = THIS IS A DEFINING OCCURANCE.               IO       2386
                                        *                     .NZ. = DO NOT SET/CHECK DEF.                       IO       2387
                                        *                (B3) = ADDRESS OF DIAGNOSTIC.                           IO       2388
                                        *                (LISTDIR) .NZ. = DEFINITION IS ONLY POTENTIAL.          IO       2389
                                        *                                                                        IO       2390
                                        *         EXIT   (X5) = OPERAND TO BE USED.                              IO       2391
                                        *                            (TP.IOD) OR (TP.IOP) SET IF APPROPRIATE.    IO       2392
                                        *                (X0) = MODE OF OPERAND.                                 IO       2393
                                        *                (B3) = ERROR INDICATION                                 IO       2394
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    56
        PARSER INTERFACE ROUTINES.                                    VAI 
  
                                        *                                                                        IO       2395
                                        *         CALLS  DDR, DOA, PDM                                           FC5A211    13
                                        *                                                                        FC5A211    14
                                        *         USES   A1-7.  B2,3,7.  X0-7.                                   IO       2397
                                                                                                                 IO       2398
                                                                                                                 IO       2399
          1542  0400401542 +             VAI      SUBR   =           ENTRY/EXIT...                               FC5A218    55
          1543  0100000000 X                      CALL   DOA         DETERMINE OPERAND ADDRESSABILITY            IO       2401
          1544  66730                             SB7    B3                                                      IO       2402
                     0316001553 +                 NZ     X6,VAI8     IF INVALID STORE TARGET                     IO       2403
          1545  0314001542 +                      NZ     X4,EXIT.    IF NOT DEFINING OCCURANCE                   IO       2404
                          5110000015 +            SA1    LISTDIR                                                 IO       2405
          1546  7160000200                        CLAS=  X6,WB,(DEF)                                             IO       2406
                          12762                   BX7    X6+X2       MARK DEFINED IN SYMTAB                      IO       2407
                               43301              CLAS=  X3,TP,(IOD)                                             IO       2408
                     12553                        BX5    X5+X3       INDICATE DEFINITION OF OPERAND              IO       2409
                          0301001551 +            ZR     X1,VAI4     IF NOT LIST-DIRECTED OPERATION              IO       2410
          1550  20373                             LX3    -TP.IODP+TP.IOPP                                        IO       2411
                     12553                        BX5    X5+X3       ALSO MARK AS POTENTIAL DEFINITION           IO       2412
                                                                                                                 FC50718     8
          1551  54720                    VAI4     SA7    A2                                                      IO       2413
                                                                                                                 IO       2414
                                        *         CHECK IF VARIABLE IS A DO CONTROL INDEX                        IO       2415
                                                                                                                 IO       2416
                     66300                        =B3    0           INDICATE NOT DO CONTROL INDEX               FC50718     9
                          0100000000 X            CALL   DDR         DIAGNOSE DO REDEFINITION                    FC5A211    15
          1552  0400001542 +                      EQ     EXIT.                                                   IO       2420
                                                                                                                 IO       2421
          1553  0100000000 X             VAI8     FATAL  B7                                                      IO       2422
          1554  6130777776                        SB3    -1                                                      IO       2423
                          0400001542 +            EQ     EXIT.                                                   IO       2424
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    57
        I/O LIST PROCESSING.                                          AII 
  
                                        **        AII - ADD INPUT LIST ITEM TO TABLE.                            FC5A141   156
                                        *                                                                        FC5A141   157
                                        *         ENTRY  (X4) = OPERAND OF LIST ITEM.                            FC5A141   158
                                        *                (X5) = LENGTH OF LIST ITEM.                             FC5A141   159
                                        *                                                                        FC5A141   160
                                        *         CALLS  DOA,FII,BBC,ADDWD,CT1.                                  FC5A141   161
                                        *                                                                        FC5A141   162
                                        *         USES   ALL BUT X4,X5.                                          FC5A141   163
                                                                                                                 FC5A141   164
          1555  0400401555 +             AII      SUBR               ENTRY/EXIT...                               FC5A141   165
          1556  10655                             BX6    X5                                                      FC5A248    21
                     5160000000 X                 SA6    AIIA        PRESERVE X5                                 FC5A141   173
                               10644              BX6    X4                                                      FC5A141   174
          1557  54661                             =A6    A6+1        PRESERVE X4                                 FC5A141   175
                     10544                        BX5    X4                                                      FC5A141   176
                          20661                   HX6    TP.INTR                                                 FC5A141   177
          1560  0336001566 +                      MI     X6,AII20    IF INTERMEDIATE OPERAND                     FC5A141   178
                          43054                   MX0    -TP.ORDL                                                FC5A141   179
                               20633              LX6    1+TP.INTRP-TP.ORDP                                      FC5A141   180
          1561  15060                             BX0    -X0*X6      X0 = ORDINAL                                FC5A141   181
                     0100000000 X                 CALL   CT1         COPY EQV BIT INTO OPERAND                   FC5A141   182
          1562  43044                             MX0    -TP.BIASL                                               FC5A141   183
                     20024                        LX0    TP.BIASP                                                FC5A141   184
                          15550                   BX5    -X0*X5      ERASE ALL BUT BIAS                          FC5A141   185
                               12556              BX5    X5+X6       CREATE NEW OPERAND                          FC5A141   186
          1563  5110000000 X                      SA1    CONONE                                                  FC5A248    22
                          5120000000 X            SA2    AIIA                                                    FC5A248    23
          1564  76010                             =X0    1                                                       FC5A248    24
                     13212                        BX2    X1-X2                                                   FC5A248    25
                          0301001576 +            ZR     X1,AII30    IF NOT INDEXED ARRAY                        FC5A248    26
          1565  7100000000                        SX0    0                                                       FC5A248    27
                          0400001576 +            EQ     AII30                                                   FC5A141   187
                                                                                                                 FC5A141   188
          1566  0100000000 X             AII20    CALL   DOA                                                     FC5A141   189
          1567  0316001602 +                      NZ     X6,AII35    IF NOT ADDRESSABLE                          FC5A218    56
                          75021                   =X0    A2-1                                                    FC5A141   192
          1570  5110000000 X                      SA1    T.SYM                                                   FC5A141   193
                          37001                   IX0    X0-X1                                                   FC5A141   194
          1571  7110000003                        SX1    Z=SYM                                                   FC5A141   195
                          27000                   IX3    X0/X1       X3 = CORRECT ORDINAL                        FC5A141   196
                     43044                        MX0    -TP.BIASL                                               FC5A141   197
                          20024                   LX0    TP.BIASP                                                FC5A141   198
                               15550              BX5    -X0*X5      ERASE ALL BUT BIAS                          FC5A141   199
          1574  20354                             LX3    TP.ORDP                                                 FC5A141   200
                     7110001000                   CLAS=  X1,WB,(EQV)                                             FC5A141   201
                               11112              BX1    X1*X2       EXTRACT EQV BIT FROM *WB*                   FC5A141   202
          1575  20110                             LX1    -WB.EQVP+TP.EQVP                                        FC5A141   203
                     12553                        BX5    X5+X3                                                   FC5A141   204
                          12551                   BX5    X5+X1       CREATE OPERAND                              FC5A141   205
                               76000              =X0    0           INDICATE INDEXED ARRAY                      FC5A141   206
                                                                                                                 FC5A141   207
          1576  0100000000 X             AII30    CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A141   208
          1577  0100001606 +                      RJ     FII         FORMAT INPUT LIST ITEM                      FC5A141   209
          1600  10655                             BX6    X5          X6 = FORMATTED ITEM                         FC5A141   210
                     5110000000 X                 ADDWD  T.ILI                                                   FC5A141   211
                                                                                                                 FC5A218    57
          1602  5150000001 X             AII35    SA5    AIIA+1      ARRAY OPERAND                               FC5A218    58
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    58
        I/O LIST PROCESSING.                                          AII 
  
                          43400                   MX4    0           WE ARE DEFINING IT                          FC5A218    59
          1603  6130000000 X                      SB3    E.IOL2      **CON/EXPR IN IO LIST                       FC5A218    60
                          0100001542 +            RJ     VAI         VALIDATE ADDRESSABILITY                     FC5A218    61
          1604  10455                             BX4    X5          UPDATED OPERAND                             FC5A218    62
                     5150000000 X                 SA5    AIIA        RESTORE X5                                  FC5A141   212
          1605  0400001555 +                      EQ     EXIT.                                                   FC5A141   214
                                                                                                                 FC5A141   215
                                   0 X   AIIA     EQU    SCR                                                     FC5A141   216
  
  
  
  
                                        **        FII - FORMAT INPUT LIST ITEM.                                  FC5A141   218
                                        *                                                                        FC5A141   219
                                        *         WILL PUT A TP. OPERAND INTO THE FORM NECESSARY                 FC5A141   220
                                        *         FOR ENTRY INTO T.ILI  .                                        FC5A141   221
                                        *                                                                        FC5A141   222
                                        *         ENTRY  (X5) = OPERAND                                          FC5A141   223
                                        *                (X0) = 0 IF II.ARY TO BE SET                            FC5A141   224
                                        *                                                                        FC5A141   225
                                        *         EXIT   (X5) = FORMATTED OPERAND                                FC5A141   226
                                        *                                                                        FC5A141   227
                                        *         USES   X - 1,2,5  A - 1,2  B - 2                               FC5A141   228
                                                                                                                 FC5A141   229
          1606  0400401606 +             FII      SUBR               ENTRY/EXIT...                               FC5A141   230
          1607  5120000000 X                      SA2    T.SYM                                                   FC5A141   231
                          5110002770 +            CLAS=  X1,TP,(ORD,BIAS)                                        FC5A141   232
          1610  11515                             BX5    X1*X5       ERASE ALL BUT ORD AND BIAS                  FC5A141   233
                                   0              ERRNZ  II.ORDP-TP.ORDP+II.ORDL-TP.ORDL                         FC5A141   234
                                   0              ERRNZ  II.BIASP-TP.BIASP+II.BIASL-TP.BIASL                     FC5A141   235
                     43154                        MX1    -TP.ORDL                                                FC5A141   236
                          20520                   LX5    -TP.ORDP                                                FC5A141   237
                               15151              BX1    -X1*X5      X1 = ORDINAL                                FC5A141   238
          1611  20554                             LX5    TP.ORDP                                                 FC5A141   239
                     63211                        =B2    X1+WB.W                                                 FC5A141   240
                          20101                   LX1    1                                                       FC5A141   241
                               63212              SB2    X1+B2       CONVERT TO *WB* INDEX                       FC5A141   242
          1612  53122                             SA1    X2+B2       *WB*                                        FC5A141   243
                     43271                        MX2    -WB.MODEL                                               FC5A141   244
                                                  LX1    -WB.MODEP                                               FC5A141   245
                          15212                   BX2    -X2*X1      X2 = MODE                                   FC5A141   246
          1613  7222777771                        SX2    X2-M.CHAR                                               FC5A141   247
                          43100                   MX1    0                                                       FC5A141   248
          1614  0312001615 +                      NZ     X2,FII10    IF NOT CHARACTER                            FC5A141   249
                          76111                   LDBIT  X1,II.CHARP                                             FC5A141   250
                                                                                                                 FC5A141   251
          1615  12551                    FII10    BX5    X5+X1                                                   FC5A141   252
                     0310001606 +                 NZ     X0,EXIT.    IF NOT INDEXED ARRAY                        FC5A141   253
                               76110              LDBIT  X1,II.ARYP                                              FC5A141   254
          1616  12551                             BX5    X5+X1                                                   FC5A141   255
                     0400001606 +                 EQ     EXIT.                                                   FC5A141   256
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    59
        I/O LIST PROCESSING.                                          LST 
  
                                        **        LST -  PROCESS INPUT/OUTPUT LIST                               IO       2427
                                        *                                                                        IO       2428
                                        *         CALLED BY ALL I/O STATEMENT PROCESSORS WHICH HAVE AN I/O LIST. IO       2429
                                        *                                                                        IO       2430
                                        *         THE INITIALIZATION PROCESS, BEGUN IN IIC IS COMPLETED.  THEN   IO       2431
                                        *         CVL IS CALLED TO COMPILE/COLLAPSE THE LIST.  IT CALLS C=IOL    IO       2432
                                        *         FOR EACH NON-COLLAPSIBLE LIST ITEM TO EMIT V=APIOD TURPLES.    IO       2433
                                        *                                                                        IO       2434
                                        *         ENTRY  (B4) _ SEPARATOR IN FRONT OF I/O LIST.                  IO       2435
                                        *                (B6) = I/O METHOD INDICATOR (S.IOCALL ORDINAL)          IO       2436
                                        *                (T.ARG) - CONTAINS I/O CONTROL TURPLES (UNFINISHED)     IO       2437
                                        *                                                                        IO       2438
                                        *         EXIT   TO FRONT END CONTROLLER (*FEC*)                         IO       2439
                                        *                                                                        IO       2440
                                        *         USES   ALL REGISTERS                                           IO       2441
                                        *                                                                        IO       2442
                                        *         CALLS  ANSI, CVL, EMT, IOJ, OCT, OIL, PCT, TSX, WARN.          IO       2443
                                                                                                                 IO       2444
                                                                                                                 IO       2445
          1617                           LST      BSSENT 0           ENTRY...                                    IO       2446
          1617                           LST1     BSS    0                                                       IO       2447
          1617  56240                             SA2    B4                                                      IO       2448
                     0302001630 +                 ZR     X2,LST3     IF NO I/O LIST                              IO       2449
          1620  6272777735                        SB7    X2-O.COMMA                                              FC50014    12
                          56141                   =A1    B4+1                                                    IO       2450
                               54211              =A2    A1+1                                                    IO       2451
          1621  5130000015 +                      SA3    LISTDIR                                                 IO       2452
                          7211777735              SX1    X1-O.COMMA                                              IO       2453
          1622  0311001630 +                      NZ     X1,LST3     IF NOT EXTRANEOUS COMMA                     IO       2454
                          0303001626 +            ZR     X3,LST2     IF NOT LIST DIRECTED I/O                    IO       2455
          1623  5130000000 +                      SA3    IODIR                                                   FC50014    13
                          0303001626 +            ZR     X3,LST2     IF INPUT                                    FC50014    14
          1624  66441                             =B4    B4+1                                                    FC50014    15
                     0470001626 +                 ZR     B7,LST2     IF *,,*                                     FC50014    16
          1625  0302001630 +                      ZR     X2,LST3     IF COMMA TERMINATED LIST DIRECTED OUTPUT    FC50014    17
                                                                                                                 FC50014    18
          1626  6170000000 X             LST2     FATAL  E.IO02                                                  FC50014    19
          1627  0400000000 X                      EQ     PSL                                                     FC50014    20
                                                                                                                 IO       2460
          1630  0100001530 +             LST3     RJ     OST         OUTPUT SKIP TURPLE                          FC5A143    51
                                                                                                                 IO       2486
          1631                           LST.S    BSS    0           **** ENTRY FOR ENCODE/DECODE ****           IO       2487
          1631  5110000001 +                      SA1    IOARGT                                                  IO       2488
                          54211                   =A2    A1-IOARGT+IOREF                                         IO       2489
                               10611              BX6    X1          SET DIRECTION INTO ARG MODE                 IO       2490
          1632  22702                             LX7    X2                                                      IO       2491
                     5160000000 X                 SA6    ARGMODE                                                 IO       2492
                               76660              SX6    B6                                                      IO       2493
          1633  5170000000 X                      SA7    REFVAR                                                  IO       2494
                          0760001667 +            MI     B6,LST.N    IF NAMELIST OPERATION                       IO       2495
          1634  14666                             BX6    -X6         INDICATE NO I/O CALLS YET                   IO       2496
                     5160000006 +                 SA6    IONAM                                                   IO       2497
          1635  6130000016 +                      SB3    S.IOCALL                                                IO       2498
                          66663                   SB6    B6+B3       ADDRESS OF I/O NAME                         IO       2499
                               56160              TAGSEX B6                                                      IO       2500
          1637  5110000000 X                      SA1    T=BLST                                                  FC5A232     9
                          22601                   LX6    X1                                                      FC5A232    10
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    60
        I/O LIST PROCESSING.                                          LST 
  
          1640  5160000010 +                      SA6    IODOLEN     PRESERVE FOR LATER RESTORATION              FC5A232    11
                                                                                                                 IO       2505
                                        *         STORE SPECIAL LEFT PAREN OVER LAST TOKEN OF UNIT/FORMAT        IO       2506
                                        *         DESIGNATOR (OR WHATEVER PRECEDES THE LIST), TO PROTECT         IO       2507
                                        *         UNARY MINUS IN I/O LIST.  THEN COMPILE THE LIST, WITH          IO       2508
                                        *         PARSE MODE = 'EXPR'.                                           IO       2509
                                                                                                                 IO       2510
                          5110000000 X            SA1    ARGMODE                                                 IO       2511
          1641  5120000000 X                      SA2    IODTA                                                   IO       2512
                          7170000044              SX7    O.SLP                                                   IO       2513
          1642  7160000000                        SX6    PM=EXPR                                                 IO       2514
                          57741                   SA7    B4-B1       INSTALL O.SLP BEFORE LIST                   IO       2515
          1643  0100001701 +                      RJ     CVL         COMPILE VARIABLE LIST                       FC5A232    12
          1644  57141                             SA1    B4-B1                                                   IO       2518
                     5130000015 +                 SA3    LISTDIR                                                 IO       2519
          1645  7211777735                        SX1    X1-O.COMMA                                              IO       2520
                          5140000000 +            SA4    IODIR                                                   IO       2521
          1646  0311001661 +                      NZ     X1,LST10    IF *EOS* NOT PRECEDED BY *,*                IO       2522
                          0303001660 +            ZR     X3,LST9     IF NOT LIST DIRECTED I/O                    IO       2523
          1647  0304001660 +                      ZR     X4,LST9     IF INPUT DIRECTION                          IO       2524
                          6170000000 X            ANSI   E.IOL1      ** I/O LIST ENDING WITH *,* NON-ANSI        FC50643     7
          1651  5110000000 X                      SA1    IODTA       FETCH TURPLE HEADER PROTOTYPE               IO       2525
                          7170000007              SX7    7           FUNNY MODE FOR LIBRARY                      IO       2526
          1652  20722                             LX7    SP.MODEP                                                FC50104    68
                     12717                        BX7    X1+X7                                                   IO       2528
                          5170000003 +            SA7    IODTH                                                   IO       2529
          1653  7140000007                        SX4    7           FUNNY MODE FOR LIBRARY                      IO       2530
                                                  LX4    TP.MODEP                                                FC5A165     4
                          5110000000 X            SA1    CONZER                                                  FC5A165     5
          1654  12441                             BX4    X4+X1       1OP = ZERO W/MODE=7                         FC5A165     6
                     5150000000 X                 SA5    CONONE      2OP = LENGTH = 1                            FC5A165     7
          1655  5110000000 X                      EMIT   IODTH,*,T.IOARG                                         IO       2532
          1657  0400001661 +                      EQ     LST10                                                   IO       2533
                                                                                                                 IO       2534
          1660  6170000000 X             LST9     FATAL  E.IOL5      ** TRAILING COMMA NFG                       IO       2535
                                                                                                                 FC50643     8
          1661                           LST10    BSS                                                            IO       2536
          1661  13666                             BX6    0                                                       IO       2537
                     0100000646 +                 RJ     IOJ         COMPILE TERMINAL CALL                       IO       2538
          1662  5140000004 +                      SA4    IOSKP                                                   IO       2539
                          0304001665 +            ZR     X4,LST11    IF NO SKIP LABEL                            IO       2540
          1663  76500                             =X5    0           2OP = NULL                                  IO       2541
                     6130400000 X                 EMIT   OPBSS,*                                                 IO       2542
                                                                                                                 FC50643     9
          1665                           LST11    BSS                                                            IO       2543
          1665  0100000000 X                      CALL   OIL         OUTPUT IL                                   IO       2544
          1666  0400000000 X                      EQ     PSL                                                     IO       2545
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    61
        I/O LIST PROCESSING.                                          LST.N 
  
                                        **        LST.N - FINISH UP FOR *NAMELIST* I/O STATEMENT.                IO       2547
                                        *                                                                        IO       2548
                                        *         THE CONTROL TURPLES WILL BE FINISHED HERE (WHEN WE FETCH UP    IO       2549
                                        *         THE ACTUAL NAME).  TEST IS MADE FOR AN ERRONEOUS I/O LIST.     IO       2550
                                                                                                                 IO       2551
                                                                                                                 IO       2552
          1667  6170000000 X             LST.N    ANSI   E.ION1                                                  IO       2553
          1670  5110000000 +                      SA1    IODIR                                                   IO       2554
                          56540                   SA5    B4                                                      IO       2555
                               23211              AX2    X1,B1       DIRECTION / 2                               IO       2556
          1671  6160000052 +                      SB6    S.NLST                                                  IO       2557
                          63626                   SB6    B6+X2       ADJUST FOR I/O DIRECTION                    IO       2558
                               56160              TAGSEX B6                                                      IO       2559
          1673  6130000016 +                      SB3    S.IOCALL                                                IO       2561
                          77636                   SX6    B3-B6       NEGATIVE INDICATES INITIAL CALL             IO       2562
          1674  5160000006 +                      SA6    IONAM                                                   IO       2563
                          0305001661 +            ZR     X5,LST10    IF *EOS* -- EXIT OK                         IO       2564
          1675  6235777737                        SB3    X5-O.)                                                  IO       2565
                          0530001677 +            NZ     B3,LST.N1   IF NOT *RP*                                 IO       2566
          1676  5154000001                        SA5    B4+1                                                    IO       2567
                          0305001661 +            ZR     X5,LST10    IF *EOS* -- EXIT OK                         IO       2568
          1677  6170000000 X             LST.N1   WARN   E.ION                                                   IO       2569
          1700  0400001661 +                      EQ     LST10                                                   IO       2570
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    62
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           CVL 
  
                                        **        CVL -  COMPILE INPUT/OUTPUT/DATA LIST.                         IO       2573
                                        *                                                                        IO       2574
                                        *         IF THE LIST IS NOT EMPTY, IOD IS CALLED TO SCEARCH THE LIST    IO       2575
                                        *         FOR IMPLIED DO LOOPS.                                          IO       2576
                                        *                                                                        IO       2577
                                        *         TESTING FOR IMPLIED DO LOOP COLLAPSE IS PERFORMED AND          IO       2578
                                        *         COLLAPSE IS PERFORMED WHERE POSSIBLE.  EACH LIST ITEM IS THEN  IO       2579
                                        *         PARSED.  THE APPROPRIATE COMMA PROCESSOR EMITS TURPLES.        IO       2580
                                        *                                                                        IO       2581
                                        *         ENTRY  (B4) -> SEPARATOR IN FRONT OF LIST.                     IO       2582
                                        *                (X1) = ARGMODE (AM.).                                   IO       2583
                                        *                (X2) = TURPLE HEADER (TH.).                             IO       2584
                                        *                (X6) = PARSE-MODE FOR LIST ITEMS (PM=).                 IO       2585
                                        *                THE LIST TERMINATES WITH TWO (O.EOS) TOKENS.            IO       2586
                                        *                                                                        IO       2587
                                        *         EXIT   (B4) -> TERMINATING (O.EOS) TOKEN.                      IO       2588
                                        *                                                                        IO       2589
                                        *         USES   ALL REGISTERS                                           IO       2590
                                        *                                                                        IO       2591
                                        *         CALLS  EMT, FATAL, IOJ, OIL, PAR.                              IO       2592
                                                                                                                 IO       2593
                                                                                                                 IO       2594
          1701  0400401701 +             CVL      SUBR   =           ENTRY/EXIT...                               IO       2595
          1702  10711                             BX7    X1                                                      FC50061     5
                                                  HX7    AM.REF                                                  FC50061     6
                     21760                        AX7    -AM.REFL    EXTRACT CROSS REFERENCE CHARACTER           FC50061     7
                          5170000002 +            SA7    IOREF                                                   FC50061     8
          1703  5140000000 X                      SA4    T=BLST                                                  IO       2596
                          10722                   BX7    X2          SAVE CALLER'S TURPLE HEADER                 IO       2597
                               56340              SA3    B4                                                      IO       2598
          1704  5170001741 +                      SA7    CVLTH                                                   IO       2599
                          10744                   BX7    X4          REMEMBER ORIGINAL DEPTH OF BLOCK-STRUCTURES IO       2600
                               56241              =A2    B4+1                                                    IO       2601
          1705  5160001740 +                      SA6    CVLPM       SAVE CALLER'S PARSE MODE                    IO       2602
                          5170000010 +            SA7    IODOLEN                                                 IO       2603
          1706  0303001701 +                      ZR     X3,EXIT.    IF EMPTY LIST                               FC50014    21
                          0302001736 +            ZR     X2,CVL10    IF PRINT *,                                 FC50014    22
          1707  10711                             BX7    X1                                                      IO       2605
                     76640                        SX6    B4                                                      IO       2606
                          5170001737 +            SA7    CVLAM                                                   IO       2607
          1710  5170000000 X                      SA7    ARGMODE                                                 IO       2608
                          5160000007 +            SA6    IODOCOL     INITIALIZE POINTER                          IO       2609
          1711  0100002520 +                      RJ     IOD         MARK DO LOOPS                               IO       2610
          1712  5140000000 X                      SA4    DATFLG                                                  FC5A218    63
                          0314001715 +            NZ     X4,CVL1     IF *DATA*                                   FC5A218    64
          1713  13666                             SHRINK T=IOLC                                                  FC5A218    65
          1714  5160002501 +                      SA6    TL=LCI                                                  FC5A218    66
                                                                                                                 FC5A218    67
          1715  7160000042               CVL1     SX6    O.COMMA                                                 FC5A218    68
                          56640                   SA6    B4          SET OFF I/O LIST                            IO       2612
                                                                                                                 IO       2613
                                                                                                                 IO       2614
                                        *         CVL.N  - PROCESS NEXT ELEMENT OF THE I/O LIST.                 IO       2615
                                        *                                                                        IO       2616
                                        *         ENTRY  (B4) -> CURRENT TOKEN, MINUS ONE.                       IO       2617
                                        *                                                                        IO       2618
                                        *         FIRST, EXAMINE ELEMENT AND DETERMINE WHAT TO DO --             IO       2619
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    63
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           CVL 
  
                                        *                <EOS>  _ END-OF-STRING.  CONCLUDE LIST AT "CVL8".       IO       2620
                                        *                O.DOBI _ DO-BEGIN.  GO TO "DOB" TO COMPILE DO INITIAL   IO       2621
                                        *                         TURPLES.  RETURN TO HERE FOR NEXT ELEMENT.     IO       2622
                                        *                O.DOCI _ DO-CLOSE.  GO TO "DOC" TO COMPILE IMPLIED-DO   IO       2623
                                        *                         CONCLUSION TURPLE.  RETURN TO HERE FOR ELEMENT IO       2624
                                        *                         PAST THE DO.                                   IO       2625
                                        *                O.DCBI _ DO-COLLAPSE BEGIN.  GO TO "DCB" TO PROCESS     IO       2626
                                        *                         MULTIPLY TURPLE IF NEEDED.  SET UP COLLAPSE    IO       2627
                                        *                         PROTOTYPE AND RETURN HERE TO PROCESS ARRAY.    IO       2628
                                        *                O.DCCI _ DO-COLLAPSE CONCLUSION.  MAKE AN INCREMENT     IO       2629
                                        *                         TURPLE AND RETURN TO PROCESS NEXT ELEMENT.     IO       2630
                                        *                <ELSE> _ A SIMPLE (OR ERRONEOUS) LIST IS AT HAND.       IO       2631
                                        *                         PARSE IT.                                      IO       2632
                                                                                                                 IO       2633
                                                                                                                 IO       2634
          1716  56241                    CVL.N    =A2    B4+1        FETCH ELEMENT                               IO       2635
                     5110000000 X                 SA1    T=PAR                                                   FC50413     6
                               10611              BX6    X1                                                      FC50413     7
          1717  6144000001                        SB4    B4+1                                                    FC50413     8
                          5160000000 X            SA6    CURST       RESET TO INHIBIT SQUEEZE                    FC50413     9
          1720  6272777730                        SB7    X2-O.DOBI                                               IO       2637
                          0302001731 +            ZR     X2,CVL8     IF END OF LIST                              IO       2638
          1721  0770001726 +                      MI     B7,CVL4     IF SIMPLE LIST                              IO       2639
                          0277001722 +            JP     B7+*+1                                                  IO       2640
                                                                                                                 IO       2641
      L     47                                    LOC    O.DOBI                                                  IO       2642
      L     47  0400002015 +             O.DOBI   EQ     DOB         DO BEGIN                                    IO       2643
      L     50  0400002036 +             O.DOCI   EQ     DOC         DO CONCLUSION                               IO       2644
      L     51  0400001742 +             O.DCBI   EQ     DCB         DO COLLAPSE BEGIN                           IO       2645
      L     52  0400002013 +             O.DCCI   EQ     DCC         DO COLLAPSE CONCLUSION                      IO       2646
                                                  IFEQ   TEST,ON,1                                               IO       2647
                                                  EQ     "BLOWUP"    ERROR                                       IO       2648
          1726                                    LOC    *O                                                      IO       2649
                                                                                                                 IO       2650
                                        **                                                                       IO       2651
                                        *         HANDLE SIMPLE, BREAK-FREE LIST.                                IO       2652
                                        *         *PAR* DOES THE DIRTY WORK, CALLING ON THE COMMA CHECKER        IO       2653
                                        *         C=DVL OR C=IOL.  HE WILL RETURN TO US UPON FINDING             IO       2654
                                        *         AN *EOS*, WHICH MAY HAVE BEEN INVENTED BY SOME IMPLIED         IO       2655
                                        *         LIST PROCESSING.  RETURN TO *CVL.N* TO CHECK.                  IO       2656
                                                                                                                 IO       2657
          1726  5110001740 +             CVL4     SA1    CVLPM                                                   IO       2658
                          10611                   BX6    X1                                                      IO       2659
          1727  5160000000 X                      SA6    PARMODE                                                 IO       2660
                          0100000000 X            CALL   PAR         PARSE SIMPLE LIST                           IO       2661
          1730  66441                             =B4    B4+1                                                    IO       2662
                     0400001716 +                 EQ     CVL.N       LOOP..                                      IO       2663
                                                                                                                 IO       2664
                                                                                                                 IO       2665
                                        *         HERE TO WRAP-UP WHEN END OF LIST IS REALLY ENCOUNTERED --      IO       2666
                                        *         TEST FOR UNTERMINATED IMPLIED DO LOOPS, AND THEN INSURE        IO       2667
                                        *         THAT (T.BLST) IS THE SAME AS IT WAS UPON ENTRY.                IO       2668
                                                                                                                 IO       2669
          1731                           CVL8     BSS                                                            IO       2670
          1731  5130000010 +                      SA3    IODOLEN                                                 IO       2671
                          5120000000 X            SA2    T=BLST                                                  IO       2672
          1732  67441                             =B4    B4-1        B4 _ O.EOS TOKEN                            FC5A165     8
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    64
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           CVL 
  
                     13023                        BX0    X2-X3       CHECK FOR UNPROCESSED DO-S                  IO       2674
                          22603                   LX6    X3                                                      IO       2675
          1733  0300001701 +                      ZR     X0,EXIT.    IF ALL DO-S BALANCED                        IO       2676
                          5160000000 X            SHRINK T=BLST,X6   RESET STRUCTURES TABLE                      IO       2677
          1734  6170000000 X                      FATAL  E.IO14      ** UN-TERMINATED IMPLIED LOOPS              IO       2678
          1735  0400001701 +                      EQ     EXIT.                                                   IO       2679
                                                                                                                 FC50014    23
          1736  6144000001               CVL10    SB4    B4+1                                                    FC50014    24
                          0400001701 +            EQ     EXIT.                                                   FC50014    25
                                                                                                                 IO       2680
          1737                     1     CVLAM    BSS    1           SAVE CALLER'S ARGUMENT MODE                 IO       2681
          1740                     1     CVLPM    BSS    1           SAVE CALLER'S PARSE MODE                    IO       2682
          1741                     1     CVLTH    BSS    1           SAVE CALLER'S DATA TURPLE-HEADER            IO       2683
  
  
  
  
                                        **        DCB  - I/O DO COLLAPSE BEGIN                                   IO       2685
                                        *                                                                        IO       2686
                                        *         ENTRY  (B4) _ DO-COLLAPSE BEGIN TOKEN (O.DCBI)                 IO       2687
                                        *                (T.TB) = REFORMATTED BY *IOD* AND *IDC*                 IO       2688
                                        *                                                                        IO       2689
                                        *         EXIT   (B4) _ OBJECT ARRAY OF COLLAPSE                         IO       2690
                                        *                                                                        IO       2691
                                        *         USES   A1,A2,A3,A4,A5,A6,A7  X1,X2,X3,X4,X5,X6,X7  B4,B5       IO       2692
                                        *                                                                        IO       2693
                                        *         CALLS  CT1, EMT, NCS                                           IO       2694
                                                                                                                 IO       2695
                                                                                                                 IO       2696
          1742                           DCB      BSS    0           ...ENTRY                                    IO       2697
          1742  56140                             SA1    B4                                                      IO       2698
                     21122                        AX1    TB.IBCCP                                                IO       2699
                          67441                   =B4    B4-1        RESET FOR *DCB3* LOOP                       IO       2700
                               63510              =B5    X1+DC=CCT   POINTER TO DO COLLAPSE CONCLUSION TOKEN     IO       2701
                                   0              ERRNZ  18-TB.IBCCL                                             IO       2702
          1743  5145000003                        =A4    B5+DC=VAR   FETCH VARIABLE COLLAPSE MULTIPLIER          IO       2703
                          0304002003 +            ZR     X4,DCB2     IF COLLAPSE NOT VARIABLE                    IO       2704
                                                                                                                 IO       2705
                                        *         THE LAST LIMIT WAS VARIABLE, MUST OUTPUT MULTIPLY TURPLE       IO       2706
                                                                                                                 IO       2707
          1744  22004                             LX0    X4                                                      IO       2708
                     0100000000 X                 CALL   CT1         GET TP. FORMAT                              IO       2709
          1745  10466                             BX4    X6          FOR MULTIPLY TURPLE, IF NECESSARY           FC50378     6
                     56551                        =A5    B5+DC=ISV   GET INITIAL VALUE                           FC50620    18
                          22005                   LX0    X5                                                      FC50620    19
                               20057              SBIT   X0,TP.SHRTP                                             FC50620    20
          1746  0320001754 +                      PL     X0,DCB03    IF NOT SHORT CONSTANT                       FC50620    21
                          20520                   HX5    TP.BIAS                                                 FC50620    22
                               21544              AX5    -TP.BIASL   ISOLATE CONSTANT                            FC50620    23
          1747  7265777776                        SX6    X5-1        BIAS BY -1                                  FC50620    24
                          0306001764 +            ZR     X6,DCB09    IF INITIAL=1                                FC50620    25
          1750  76711                             =X7    M.INT                                                   FC50620    26
                     0100000000 X                 CALL   NCS         FORM CONSTANT                               FC50620    27
          1751  10566                             BX5    X6                                                      FC50620    28
                     6130030000 X                 EMIT   V=SUB.I,BOTH   SUBTRACT INITIAL FROM LIMIT              FC50620    29
          1753  0400001761 +                      EQ     DCB06                                                   FC50620    30
                                                                                                                 FC50620    31
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    65
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           DCB 
  
          1754  6130030000 X             DCB03    EMIT   V=SUB.I,BOTH   SUBTRACT INITIAL FROM LIMIT              FC50620    32
          1755  5110000000 X                      SA1    T=PAR                                                   FC50620    33
                          7261777774              SX6    X1-Z=TURP                                               FC50620    34
          1756  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620    35
                          20654                   LX6    TP.ORDP                                                 FC50620    36
                               12462              BX4    X6+X2       FORM INDIRECT OPERAND                       FC50620    37
          1757  5150000000 X                      SA5    CONONE      GET CONSTANT ONE                            FC50620    38
                          6130030000 X            EMIT   V=ADD.I,BOTH    ADD ONE                                 FC50620    39
                                                                                                                 FC50620    40
          1761  5110000000 X             DCB06    SA1    T=PAR                                                   FC50620    41
                          7261777774              SX6    X1-Z=TURP                                               FC50620    42
          1762  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620    43
                          20654                   LX6    TP.ORDP                                                 FC50620    44
                               12662              BX6    X6+X2       FORM INDIRECT OPERAND                       FC50620    45
          1763  10466                             BX4    X6                                                      FC50620    46
                                                                                                                 FC50620    47
          1764  5155000002               DCB09    =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         FC50620    48
                          10644                   BX6    X4                                                      FC50620    49
          1765  7225777776                        =X2    X5-1                                                    IO       2711
                          0312001767 +            NZ     X2,DCB1     IF SIZE .NE. 1                              IO       2712
          1766  5160000012 +                      SA6    IODOIND+1   THE VARIABLE MULTIPLIER WILL BE SIZE        IO       2713
                          0400002005 +            EQ     DCB3                                                    IO       2714
                                                                                                                 IO       2715
          1767  5110000000 X             DCB1     SA1    WO.DOOT     GET TRIP COUNT                              FC50620    50
                          0301001775 +            ZR     X1,DCB15    IF ZERO TRIP DO                             FC50620    51
          1770  5150000000 X                      SA5    CONONE      GET CONSTANT ONE                            FC50620    52
                          6130030000 X            EMIT   V=MAX0,BOTH   GUARANTEE ONE TRIP                        FC50620    53
          1772  5110000000 X                      SA1    T=PAR                                                   FC50620    54
                          7261777774              SX6    X1-Z=TURP                                               FC50620    55
          1773  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620    56
                          20654                   LX6    TP.ORDP                                                 FC50620    57
                               12426              BX4    X2+X6       FORM INDIRECT OPERAND                       FC50620    58
          1774  5155000002                        =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         FC50620    59
                                                                                                                 FC50620    60
          1775  10655                    DCB15    BX6    X5                                                      FC50620    61
                     76711                        =X7    M.INT                                                   IO       2717
                          0100000000 X            CALL   NCS                                                     IO       2718
          1776  22506                             LX5    X6                                                      IO       2719
                     6130030000 X                 EMIT   V=MUL.I,BOTH                                            IO       2720
          2000  5110000000 X                      SA1    T=PAR                                                   IO       2721
                          7261777774              SX6    X1-Z=TURP                                               IO       2722
          2001  7120002000                        CLAS=  X2,TP,(INTR)                                            IO       2723
                          20654                   LX6    TP.ORDP                                                 IO       2724
                               12662              BX6    X6+X2       MAKE INTERMEDIATE OPERAND                   IO       2725
          2002  5160000012 +                      SA6    IODOIND+1   SAVE AS SIZE OPERAND                        IO       2726
                          0400002005 +            EQ     DCB3                                                    IO       2727
                                                                                                                 IO       2728
          2003  5155000002               DCB2     =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         FC50084     8
                          20524                   LX5    TP.BIASP                                                IO       2734
                               43201              CLAS=  X2,TP,(SHRT)                                            IO       2735
                     12725                        BX7    X2+X5                                                   IO       2736
                          5170000012 +            SA7    IODOIND+1   SAVE COLLAPSE SIZE                          FC50084     9
                                                                                                                 IO       2739
                                        *         OUTPUT INITIAL SUBSCRIPT VALUE TURPLES                         IO       2740
                                                                                                                 IO       2741
          2005  5114000001               DCB3     SA1    B4+1                                                    IO       2742
                          6221777726              SB2    X1-O.DCBI                                               IO       2743
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    66
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           DCB 
  
                                   0              ERRNZ  18-TB.TOTL                                              IO       2744
          2006  0520001716 +                      NZ     B2,CVL.N                                                IO       2745
                          66441                   =B4    B4+1                                                    IO       2746
                               20130              HX1    TB.IBCC                                                 IO       2747
          2007  21152                             AX1    -TB.IBCCL   ISOLATE COLLAPSE TOKEN ADDRESS              IO       2748
                     53110                        SA1    X1          FETCH COLLAPSE TOKEN                        IO       2749
                          54411                   =A4    A1+DC=ISV                                               IO       2750
                               20106              HX1    TB.ICIX                                                 IO       2751
          2010  21152                             AX1    -TB.ICIXL   EXTRACT INDEX TO CONTROL INDEX              FC5A211    16
                     5251002502 +                 SA5    X1+IDCIDX                                               FC5A211    17
          2011  6130030000 X                      EMIT   V=STR.I,BOTH                                            IO       2755
          2012  0400002005 +                      EQ     DCB3                                                    IO       2756
  
  
  
  
                                        **        DCC -  I/O DO COLLAPSE CONCLUSION                              IO       2758
                                        *                                                                        IO       2759
                                        *         ENTRY  (B4) _ DO-COLLAPSE CONCLUSION TOKEN (O.DCCI)            IO       2760
                                        *                (T.TB) = REFORMATTED BY *IOD* AND *IDC*                 IO       2761
                                        *                                                                        IO       2762
                                        *         EXIT   (B4) _ CLOSING *)*+1 OF COLLAPSED DO LEVEL              IO       2763
                                        *                                                                        IO       2764
                                        *         USES   A1  X1  B4                                              IO       2765
                                        *                                                                        IO       2766
                                        *         CALLS  EMT                                                     IO       2767
                                                                                                                 IO       2768
                                                                                                                 IO       2769
          2013                           DCC      BSS    0           ...ENTRY                                    IO       2770
          2013  56140                             SA1    B4                                                      IO       2771
                     21122                        AX1    TB.ICCPP    ISOLATE POINTER TO CLOSING *)*              IO       2772
                          63411                   =B4    X1+1        POINT PAST CLOSING *)*                      IO       2773
                                   0              ERRNZ  18-TB.ICCPL                                             IO       2774
          2014  0400001716 +                      EQ     CVL.N                                                   IO       2775
  
  
  
  
                                        **        DOB -  I/O LIST DO-BEGIN PROCESSING.                           IO       2777
                                        *                                                                        IO       2778
                                        *         ENTRY  (B4) _ O.DOBI MARK                                      IO       2779
                                        *                                                                        IO       2780
                                        *         EXIT   TO *CVL.N*.                                             IO       2781
                                        *                (B4) PRESERVED.                                         IO       2782
                                        *                                                                        IO       2783
                                        *         USES   ALL BUT A0.                                             IO       2784
                                        *                                                                        IO       2785
                                        *         CALLS  CDI, IOJ, MXP                                           IO       2786
                                                                                                                 IO       2787
                                                                                                                 IO       2788
          2015                           DOB      BSS    0           ENTRY                                       IO       2789
          2015  0100002051 +                      RJ     IDC         PROCESS I/O IMPLIED DO COLLAPSE             IO       2790
          2016  0470002021 +                      ZR     B7,DOB1     IF LOOP NOT COMPLETLY COLLAPSED             FC5A271     7
                          0670002033 +            PL     B7,DOB8     IF COMPLETE COLLAPSE                        FC5A271     8
          2017  7160000001                        SX6    1                                                       FC5A271     9
                          0100000646 +            RJ     IOJ         INTERRUPT LIST                              FC5A271    10
          2020  0400002033 +                      EQ     DOB8                                                    FC5A271    11
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    67
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           DOB 
  
                                                                                                                 FC5A271    12
          2021  7160000001               DOB1     SX6    1                                                       FC5A271    13
                          0100000646 +            RJ     IOJ         INTERRUPT LIST                              IO       2793
          2022  56240                             SA2    B4                                                      IO       2794
                     5110000000 X                 SA1    N.GL                                                    IO       2795
                               21222              AX2    TB.IOIXP    ISOLATE LINK TO DO-INDEX                    IO       2796
          2023  73220                             SX2    X2          ADDRESS OF INDEX                            IO       2797
                     7170000041                   =X7    O.=                                                     IO       2798
                               73611              =X6    X1+1        UPDATE PROGRAM TAG                          IO       2799
          2024  76040                             SX0    B4                                                      IO       2800
                     53721                        =A7    X2+1                                                    IO       2801
                          54610                   SA6    A1                                                      IO       2802
                               20052              LX0    -18                                                     IO       2803
          2025  12360                             BX3    X6+X0                                                   IO       2804
                     63421                        =B4    X2+1        POINT TO*=*                                 IO       2805
                          20344                   LX3    2*18                                                    IO       2806
                               36732              IX7    X3+X2       = 24/TP.ORDL, 18/FWA-DO, 18/INDEX-ADDR      IO       2807
          2026  5170002035 +                      SA7    DOBA        SAVE O.DOCI POINTERS                        IO       2808
                                                                                                                 IO       2809
                                        **        PARSE *DO* INITIAL CODE.                                       IO       2810
                                        *         (X6) = L-TAG FOR LOOP.                                         IO       2811
                                                                                                                 IO       2812
                          0100000000 X            CALL   CDI         PARSE IT                                    IO       2813
                                                                                                                 IO       2814
          2027  7100000050                        =X0    O.DOCI                                                  IO       2815
                          5130002035 +            SA3    DOBA                                                    IO       2816
          2030  12460                             BX4    X6+X0       SAVE *DO-ERROR* FLAG                        IO       2817
                     66340                        SB3    B4          _ )                                         IO       2818
                          63230                   SB2    X3          ADDRESS OF DO-INDEX                         IO       2819
                               21322              AX3    18                                                      IO       2820
          2031  63430                             SB4    X3          RESTORE (B4) _ FRONT OF DO-LIST             IO       2821
                     77243                        SX2    B4-B3                                                   IO       2822
                          13666                   BX6    O.EOS                                                   IO       2823
                               57621              =A6    B2-1        FORCE *EOS* AT END OF LIST                  IO       2824
          2032  37032                             IX0    X3-X2                                                   IO       2825
                     20022                        LX0    18                                                      IO       2826
                          36704                   IX7    X0+X4                                                   IO       2827
                               56720              SA7    B2          STORE DO-CLOSE MARK (OVER THE INDEX)        IO       2828
                                        ,                            24/ TP.ORDL,  18/ _),  18/ O.DOCI           IO       2829
                                                                                                                 IO       2830
                                        **        PARSER ARGUMENT MODE MAY HAVE BEEN DISTURBED BY ONE OF THE     IO       2831
                                        *         I/O DO LOOP PROCESSORS (IDC, CDI).                             IO       2832
                                        *         RESET IT AS EXPECTED BY *CVL.N*.                               IO       2833
                                                                                                                 IO       2834
          2033  5110001737 +             DOB8     SA1    CVLAM                                                   IO       2835
                          10611                   BX6    X1          RESET PARSER ARGUMENT MODE                  IO       2836
          2034  5160000000 X                      SA6    ARGMODE                                                 IO       2837
                          0400001716 +            EQ     CVL.N       EXIT..                                      IO       2838
                                                                                                                 IO       2839
          2035                     1     DOBA     BSS    1           TEMP                                        IO       2840
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    68
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           DOC 
  
                                        **        DOC -  I/O LIST DO-CONCLUSION PROCESSING.                      IO       2842
                                        *                                                                        IO       2843
                                        *                MAKES DO-TERMINATION ENTRY IN PARSED FILE.              IO       2844
                                        *                                                                        IO       2845
                                        *         ENTRY  (B4) _ O.DOCI MARK.                                     IO       2846
                                        *                                                                        IO       2847
                                        *         EXIT   TO *CVL.N*.                                             IO       2848
                                        *                (B4) _ NEXT ITEM PAST THE DO.                           IO       2849
                                        *                                                                        IO       2850
                                        *         USES   ALL.                                                    IO       2851
                                        *                                                                        IO       2852
                                        *         CALLS  IOJ, MXP, PDT                                           IO       2853
                                                                                                                 IO       2854
                                                                                                                 IO       2855
          2036                           DOC      BSS    0           ENTRY                                       IO       2856
          2036  7160000001                        SX6    1                                                       IO       2857
                          0100000646 +            RJ     IOJ         INTERRUPT LIST                              IO       2858
          2037  56340                             SA3    B4          24/ TP.ORDL,  18/ _NEXT,  18/ O.DOCI        IO       2859
                     21322                        AX3    18                                                      IO       2860
                          63431                   =B4    X3+1        SKIP THE COMMA                              IO       2861
          2040  56240                    DOC2     SA2    B4                                                      IO       2862
                     6222777737                   SB2    X2-O.)                                                  IO       2863
          2041  0520002043 +                      NZ     B2,DOC4     IF NO REDUNDANT PAREN                       IO       2864
                          66441                   =B4    B4+1        SKIP REDUNDANT PAREN                        IO       2865
          2042  0400002040 +                      EQ     DOC2                                                    IO       2866
                                                                                                                 IO       2867
          2043  21322                    DOC4     AX3    18                                                      IO       2868
                     73230                        SX2    X3          ISOLATE TP.ORDL OF THIS DO                  IO       2869
                          0333002045 +            MI     X3,DOC6     IF ERROR IN DO-DEFINITION                   IO       2870
          2044  0100000000 X                      CALL   PDT         PROCESS DO TERMINATION (PASS 1)             IO       2871
                                                                                                                 IO       2872
          2045  56141                    DOC6     SA1    B4+B1                                                   IO       2873
                     56141                        =A1    B4+1                                                    IO       2874
                          0311001716 +            NZ     X1,CVL.N    IF NOT EOS                                  IO       2875
          2046  56240                             =A2    B4                                                      IO       2876
                     7222777735                   SX2    X2-O.COMMA                                              IO       2877
          2047  0312001716 +                      NZ     X2,CVL.N    IF EOS, CHECK PRECEEDING ELEMENT            IO       2878
                          66441                   =B4    B4+1                                                    IO       2879
          2050  0400001716 +                      EQ     CVL.N       EXIT..                                      IO       2880
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    69
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                                        **        IDC -  IMPLIED DO COLLAPSE                                     IO       2882
                                        *                                                                        IO       2883
                                        *         THIS ROUTINE ATTEMPTS TO COLLAPSE AN I/O IMPLIED DO STRUCTURE. IO       2884
                                        *         IF SUCCESSFUL, ONE OR MORE LEVELS OF THE DO NEST WILL BE       IO       2885
                                        *         DISCARDED, AND AN I/O AP-LIST DATA TURPLE WILL BE OUTPUT,      IO       2886
                                        *         WITH THE SIZE OPERAND THE AMOUNT OF COLLAPSE.                  IO       2887
                                        *                                                                        IO       2888
                                        *         ENTRY  (B4) _ I/O DO-BEGIN TOKEN                               IO       2895
                                        *                (T.TB) = I/O LIST, WITH IMPLIED DOS MARKED BY *IOD*     IO       2896
                                        *                (IODOCOL) = POINTER TO LAST DO NEST PROCESSED           IO       2897
                                        *                                                                        IO       2898
                                        *         EXIT   (B7) = 0  -  NO (OR PARTIAL) COLLAPSE                   IO       2899
                                        *                (B4) _ I/O DO-BEGIN TOKEN                               IO       2900
                                        *                                                                        IO       2901
                                        *                (B7) = 1  -  COMPLETE COLLAPSE                          IO       2902
                                        *                (B4) _ CLOSING RIGHT PAREN + 1                          IO       2903
                                        *                                                                        FC5A271    14
                                        *                (B7) = -1 - COMPLETE COLLAPSE (DIMENSION .LT. COLLAPSE) FC5A271    15
                                        *                (B4) _ FIRST I/O DO-COLLAPSE BEGIN TOKEN                FC5A271    16
                                        *                                                                        IO       2904
                                        *                (T.TB) = MODIFIED WITH DO-COLLAPSE TOKENS, AS NECESSARY IO       2905
                                        *                (IODOCOL) = UPDATED AS NECESSARY                        IO       2906
                                        *                                                                        IO       2907
                                        *         USES   ALL                                                     IO       2908
                                        *                                                                        IO       2909
                                        *         CALLS  AII, BBC, CML, CT1, EMT, NCS, PCI, SSY                  FC5A211    18
                                                                                                                 IO       2911
                                                                                                                 IO       2912
          2051  0400402051 +             IDC      SUBR               ...ENTRY/EXIT...                            IO       2913
          2052  5110000000 X                      SA1    DATFLG                                                  IO       2914
                          7211777772              SX1    X1-PM=DATA                                              IO       2915
          2053  0301002055 +                      ZR     X1,IDC5     IF *DATA* CALLING                           IO       2916
                          5110000000 X            SA1    CO.DBSB                                                 IO       2917
          2054  0331002051 +                      MI     X1,EXIT.    IF ARRAY BOUNDS CHECKING ON                 IO       2918
                                                                                                                 IO       2919
          2055  66700                    IDC5     =B7    0                                                       IO       2920
                     5110000007 +                 SA1    IODOCOL                                                 IO       2921
                               56240              SA2    B4          FETCH THE I/O DO-BEGIN TOKEN                IO       2922
          2056  20206                             HX2    TB.IOCP                                                 IO       2923
                     21252                        AX2    -TB.IOCPL   ISOLATE CLOSING RIGHT PAREN POINTER         IO       2924
                          37121                   IX1    X2-X1                                                   IO       2925
          2057  0331002051 +                      MI     X1,EXIT.    IF THIS DO STRUCTURE ALREADY PROCESSED      IO       2926
                          10622                   BX6    X2                                                      IO       2927
                               54610              SA6    A1          RESET IODOCOL FOR THIS DO NEST              IO       2928
                                                                                                                 IO       2929
                                        *         TEST NESTING LEVEL                                             IO       2930
                                                                                                                 IO       2931
          2060  56440                             SA4    B4          INITIALIZE FETCH                            IO       2932
                     66610                        =B6    1           COUNT OF NESTING LEVEL                      IO       2933
                          6150000007              =B5    MAX.DIM     LIMIT                                       IO       2934
                                                                                                                 IO       2935
          2061  54441                    IDC10    =A4    A4+1        FETCH NEXT TOKEN                            IO       2936
                     6234777730                   SB3    X4-O.DOBI                                               IO       2937
                                   0              ERRNZ  18-TB.TOTL-TB.TOTP                                      IO       2938
          2062  0530002064 +                      NZ     B3,IDC15    IF NOT DO BEGIN TOKEN                       IO       2939
                          66661                   =B6    B6+1        INCREMENT NESTING LEVEL                     IO       2940
          2063  0756002051 +                      GT     B6,B5,EXIT. IF TOO MANY LEVELS OF NESTING               IO       2941
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    70
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                          0400002061 +            EQ     IDC10       CONTINUE                                    IO       2942
                                                                                                                 IO       2943
                                        *         TEST FOR SUBSCRIPTED ARRAY                                     IO       2944
                                        *                (A4) _ FIRST NON DO-BEGIN TOKEN                         IO       2945
                                        *                (B6) = DO NESTING LEVEL                                 IO       2946
                                        *                (X4) = THE TOKEN                                        IO       2947
                                                                                                                 IO       2948
          2064  6133000036               IDC15    =B3    B3+O.DOBI-O.VAR                                         IO       2949
                          0530002051 +            NZ     B3,EXIT.    IF NOT VARIABLE                             IO       2950
          2065  43052                             MX0    TB.TOCL                                                 IO       2951
                     11604                        BX6    X0*X4       ISOLATE ARRAY NAME                          IO       2952
                          0100000000 X            CALL   SSY                                                     IO       2953
          2066  0670002070 +                      PL     B7,IDC20    IF IN SYMBOL TABLE                          IO       2954
                          66700                   =B7    0                                                       IO       2955
          2067  0400002051 +                      EQ     EXIT.       CANT BE ARRAY                               IO       2956
                                                                                                                 IO       2957
          2070  20261                    IDC20    SBIT   X2,WB.ARYP                                              IO       2958
                     66700                        =B7    0                                                       IO       2959
                          0322002051 +            PL     X2,EXIT.    IF NOT ARRAY                                IO       2960
          2071  0100000000 X                      CALL   CT1         MAKE TAG                                    IO       2961
          2072  5160002457 +                      SA6    IDCA        SAVE                                        IO       2962
                          22506                   LX5    X6                                                      FC5A256     6
                               10422              BX4    X2          PRESERVE ACCROSS BBC                        FC5A256     7
          2073  0100000000 X                      CALL   BBC         BASE/BIAS CONVERT ARRAY                     FC5A256     8
          2074  22204                             LX2    X4          RESTORE                                     FC5A256     9
                     10655                        BX6    X5                                                      FC5A256    10
                          5160002474 +            SA6    IDCM        SAVE                                        FC5A256    11
          2075  76660                             SX6    B6                                                      IO       2963
                     66700                        =B7    0                                                       IO       2964
                                                  HX2    WB.PNT                                                  IO       2965
                          43057                   MX0    -WB.PNTL                                                IO       2966
                               20215              LX2    WB.PNTL                                                 IO       2967
          2076  15220                             BX2    -X0*X2      ISOLATE T.DIM POINTER                       IO       2968
                     5110000000 X                 SA1    T.DIM                                                   IO       2969
                               63220              SB2    X2                                                      IO       2970
          2077  53212                             SA2    B2+X1       FETCH DIMENSION HEADER                      IO       2971
                     20266                        HX2    DH.DIM                                                  IO       2972
                          21266                   AX2    -DH.DIML    ISOLATE NUMBER OF DIMENSIONS                IO       2973
                               37326              IX3    X2-X6                                                   IO       2974
          2100  0333002051 +                      MI     X3,EXIT.    IF NESTING LEVEL EXCEEDS DIMENSIONALITY     IO       2975
                          76721                   =X7    B2+1        POINT PAST THE HEADER ENTRY                 IO       2976
          2101  5170002460 +                      SA7    IDCB        SAVE POINTER TO FIRST DIMENSION             IO       2977
                          54441                   =A4    A4+1        ADVANCE PAST ARRAY NAME                     IO       2978
          2102  6224777740                        SB2    X4-O.(                                                  IO       2979
                          0520002051 +            NZ     B2,EXIT.    IF NOT SUBSCRIPTED ARRAY                    IO       2980
          2103  5160002461 +                      SA6    IDCC        SAVE NESTING LEVEL                          IO       2981
                          76740                   SX7    B4                                                      IO       2982
                               10622              BX6    X2                                                      IO       2983
          2104  5170002462 +                      SA7    IDCD        SAVE POINTER TO INITIAL DO-BEGIN            IO       2984
                          5160002465 +            SA6    IDCG        SAVE DIMENSIONALITY                         IO       2985
          2105  5110000000 X                      SA1    T=PAR                                                   IO       2986
                          5120000000 X            SA2    T=REF                                                   FC50464    12
          2106  22601                             LX6    X1                                                      IO       2987
                     10722                        BX7    X2                                                      FC50464    13
                          5160002470 +            SA6    IDCJ        SAVE LENGTH OF PARSE FILE FOR RESET         IO       2988
          2107  5170002475 +                      SA7    IDCN        SAVE EXTENT OF XREF FOR RESTORE             FC50464    14
                          5110000000 X            SA1    LOSTREF                                                 FC50464    15
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    71
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2110  10611                             BX6    X1                                                      FC50464    16
                     5160002476 +                 SA6    IDCO        SAVE REFERENCE COUNT FOR RESTORE            FC50464    17
                                                                                                                 IO       2989
                                        **        PROCESS THE SUBSCRIPTS                                         IO       2990
                                        *                                                                        IO       2991
                                        *         SUBSCRIPTS WILL BE TRANSLATED BY *PAR*.  INDIVIDUAL SUBSCRIPTS IO       2992
                                        *         ARE PROCESSED BY A=DOCS/C=DOCS.                                IO       2993
                                                                                                                 IO       2994
                                         IDCEXC   BFMIC  TP,(BIAS,ARR,ADDR,1ATR,INTR,SHRT,GL)                    IO       2995
                                                                                                                 IO       2996
                               64440              SB4    A4                                                      IO       2997
          2111  43600                             MX6    0           INITIALIZE SUBSCRIPT COUNT                  IO       2998
                     5110000000 X                 SA1    DOCOLS                                                  IO       2999
          2112  5160002463 +                      SA6    IDCE                                                    IO       3000
                          0100002711 +            RJ     PCI         PARSE COLLAPSE SUBSCRIPTS                   IO       3001
          2113  5110002470 +                      SA1    IDCJ        T.PAR UPON ENTRY                            IO       3002
                          5120002463 +            SA2    IDCE        NUMBER OF SUBSCRIPTS                        FC5A214     7
          2114  10611                             SHRINK T=PAR,X1                                                IO       3003
                               66441              =B4    B4+1        ADVANCE POINTER                             IO       3004
          2115  5130002465 +                      SA3    IDCG        ARRAY DIMENSIONALITY                        FC5A214     8
                          37223                   IX2    X2-X3                                                   FC5A214     9
          2116  0312002446 +                      NZ     X2,IDCEX    IF SUBSCRIPT/DIMENSIONALITY MISMATCH        FC5A214    10
                                                                                                                 IO       3005
                                        *         PROCESS INDUCTION VARIABLES                                    IO       3006
                                        *                (B4) _ *,* FOLLOWING SUBSCRIPTS                         IO       3007
                                                                                                                 IO       3008
                          76600                   =X6    0                                                       IO       3009
          2117  5160002466 +                      SA6    IDCH        SAVE INDEX                                  IO       3010
                          66300                   =B3    0           INITIALIZE INDEX INTO IDCIDX                IO       3011
                               76710              =X7    1                                                       IO       3012
          2120  5170002467 +                      SA7    IDCI        INITIALIZE COLLAPSE MULTIPLIER              IO       3013
                                                                                                                 IO       3014
                                        *         PROCESS INDEX                                                  IO       3015
                                                                                                                 IO       3016
          2121  5143002502 +             IDC30    SA4    B3+IDCIDX                                               FC5A211    19
                          0334002446 +            MI     X4,IDCEX    IF COLLAPSE INVALID FOR THIS LEVEL          FC5A211    20
          2122  56140                             SA1    B4                                                      IO       3019
                     6221777735                   SB2    X1-O.COMMA                                              IO       3020
          2123  0520002446 +                      NZ     B2,IDCEX    IF NOT INDEX SEPERATOR                      IO       3021
                          56141                   =A1    B4+1                                                    IO       3022
                               66441              =B4    B4+1                                                    IO       3023
          2124  6221777766                        SB2    X1-O.VAR                                                IO       3024
                          0520002446 +            NZ     B2,IDCEX    IF NOT AN INDEX                             IO       3025
          2125  43652                             MX6    TB.TOCL                                                 IO       3026
                     11661                        BX6    X6*X1       NAME ONLY                                   IO       3027
                          5160000000 X            SA6    FILL.                                                   FC5A211    21
          2126  0100000000 X                      CALL   SSY                                                     IO       3028
          2127  0770002446 +                      MI     B7,IDCEX    IF NOT IN SYMBOL TABLE, NOT A CORRECT INDEX IO       3029
                          0100000000 X            CALL   CT1         MAKE TP. FORMAT                             FC5A211    22
          2130  10566                             BX5    X6                                                      FC5A211    23
                     0100000000 X                 CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A211    24
          2131  10655                             BX6    X5                                                      FC5A211    25
                     5160002515 +                 SA6    IDCCV       SAVE CONTROL VARIABLE                       FC5A211    26
                               37045              IX0    X4-X5                                                   FC5A211    27
          2132  0310002446 +                      NZ     X0,IDCEX    IF IMPLIED INDEX NOT SAME AS SUBSCRIPT      FC5A211    28
                                                                                                                 FC5A211    29
                                        *         CHECK FOR POSSIBLE REDEFINITION OF IMPLIED DO INDICIES         FC5A211    30
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    72
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                                        *         PREVIOUSLY COLLAPSED.                                          FC5A211    31
                                                                                                                 FC5A211    32
                          0430002136 +            ZR     B3,IDC32    IF FIRST LEVEL                              FC5A211    33
          2133  6123777776                        SB2    B3-1                                                    FC5A211    34
                          5110002502 +            SA1    IDCIDX                                                  FC5A211    35
                                                                                                                 FC5A431     8
          2134  54212                    IDC31    SA2    A1+B2                                                   FC5A211    36
                     37252                        IX2    X5-X2                                                   FC5A211    37
                          0302002446 +            ZR     X2,IDCEX    IF A DO INDEX REDEFINITION                  FC5A211    38
          2135  6122777776                        SB2    B2-1                                                    FC5A211    39
                          0620002134 +            PL     B2,IDC31    IF MORE TO CHECK                            FC5A211    40
                                                                                                                 FC5A211    41
          2136  5110000000 +             IDC32    SA1    IODIR                                                   FC5A211    42
                          7211777775              SX1    X1-S=OUT                                                FC5A141   261
          2137  0311002143 +                      NZ     X1,IDC33    IF NOT OUTPUT DIRECTION                     FC5A141   262
                          5150002457 +            SA5    IDCA        X5 = OPERAND OF ARRAY                       FC5A141   267
          2140  0100000000 X                      CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A141   268
          2141  20520                             LX5    -TP.ORDP                                                FC5A141   269
                     43254                        MX2    -TP.ORDL                                                FC5A141   270
                          20420                   LX4    -TP.ORDP                                                FC5A211    43
                               15552              BX5    -X2*X5      X5 = SYMORD OF ARRAY                        FC5A141   272
          2142  15442                             BX4    -X2*X4      X4 = SYMORD OF INDEX                        FC5A211    44
                     37345                        IX3    X4-X5                                                   FC5A211    45
                          0303002446 +            ZR     X3,IDCEX    IF INDEX IS EQUIVALENCED TO THE ARRAY       FC5A141   275
                                                                                                                 FC5A141   276
          2143  56441                    IDC33    =A4    B4+1                                                    FC5A141   277
                     66441                        =B4    B4+1                                                    IO       3035
                          6224777736              SB2    X4-O.=                                                  IO       3036
          2144  0520002446 +                      NZ     B2,IDCEX    IF NOT *=*                                  IO       3037
                          5110000000 X            SA1    CONONE                                                  IO       3038
          2145  10611                             BX6    X1          INITIALIZE INCREMENT = 1                    IO       3039
                     43700                        MX7    0           INITIALIZE INDUCTION VARIABLE COUNT         IO       3040
                          5160002514 +            SA6    IDCINC                                                  IO       3041
          2146  5170002464 +                      SA7    IDCF                                                    IO       3042
                          5110000000 X            SA1    DOCOLI                                                  IO       3043
          2147  0100002711 +                      RJ     PCI         PARSE COLLAPSE INDICIES                     IO       3044
          2150  5110002470 +                      SA1    IDCJ        T.PAR UPON ENTRY                            IO       3045
                          10611                   SHRINK T=PAR,X1                                                IO       3046
                          66441                   =B4    B4+1        ADVANCE POINTER                             IO       3047
                                                                                                                 IO       3048
                                        *         CHECK INCREMENT                                                IO       3049
                                                                                                                 IO       3050
          2152  5110002514 +                      SA1    IDCINC      FETCH INCREMENT                             IO       3051
                          5120000000 X            SA2    CONONE                                                  IO       3052
          2153  37212                             IX2    X1-X2                                                   IO       3053
                     0312002446 +                 NZ     X2,IDCEX    IF NON-UNIT INCREMENT, DO MUST MATERIALIZE  IO       3054
                                                                                                                 IO       3055
                                        *         CHECK INITIAL                                                  IO       3056
                                                                                                                 IO       3057
          2154  5120002460 +                      SA2    IDCB        T.DIM POINTER                               IO       3058
                          5110000000 X            SA1    T.DIM                                                   IO       3059
          2155  63221                             =B2    X2+D2.W                                                 IO       3060
                     53312                        SA3    X1+B2       FETCH *D2* ENTRY                            IO       3061
                          10433                   BX4    X3                                                      IO       3062
                                                  HX3    D2.LB                                                   IO       3063
                               21336              AX3    -D2.LBL     EXTRACT LOWER BOUND                         IO       3064
          2156  5110002512 +                      SA1    IDCINT      FETCH INITIAL VARIABLE                      IO       3065
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    73
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                          22201                   LX2    X1                                                      IO       3066
                               20157              SBIT   X1,TP.SHRTP                                             IO       3067
          2157  0333002446 +                      MI     X3,IDCEX    IF ADJUSTABLE LOWER BOUND                   FC50620    62
                          0331002163 +            MI     X1,IDC35    IF SHORT CONSTANT                           FC5A431     9
          2160  5110002463 +                      SA1    IDCE        SUBSCRIPT COUNT                             FC5A431    10
                          5150002466 +            SA5    IDCH        INDEX OF PROCESSING LEVEL                   FC51069     6
          2161  73551                             =X5    X5+1                                                    FC51069     7
                     37115                        IX1    X1-X5                                                   FC5A431    12
                          0301002167 +            ZR     X1,IDC36    IF LAST SUBSCRIPT                           FC5A431    13
          2162  0400002446 +                      EQ     IDCEX                                                   FC5A431    14
                                                                                                                 FC5A431    15
          2163  20220                    IDC35    HX2    TP.BIAS                                                 FC5A431    16
                     21244                        AX2    -TP.BIASL   EXTRACT INITIAL VALUE                       IO       3070
                          6130000044              SB3    59-23                                                   IO       3072
          2164  22333                             LX3    B3,X3                                                   IO       3073
                     23333                        AX3    B3          SIGN EXTEND LOWER BOUND                     IO       3074
                          37023                   IX0    X2-X3                                                   IO       3075
          2165  0330002446 +                      MI     X0,IDCEX    IF INITIAL .LT. LOWER BOUND                 IO       3076
                          55131                   =A1    A3+D1.W-D2.W                                            IO       3077
                               20136              HX1    D1.SPAN                                                 IO       3078
          2166  0331002167 +                      MI     X1,IDC36    IF UPPER OR LOWER VARIABLE                  IO       3079
                          0300002171 +            ZR     X0,IDC37    IF INITIAL = LOWER                          IO       3080
                                                                                                                 IO       3081
          2167  5110002466 +             IDC36    SA1    IDCH                                                    IO       3082
                          5211002502 +            SA1    X1+IDCIDX                                               IO       3083
          2170  43674                             MX6    -0                                                      IO       3084
                     54611                        =A6    A1+1        LAST LEVEL OF COLLAPSE                      IO       3085
                                                                                                                 IO       3086
                                        *         CHECK LIMIT                                                    IO       3087
                                        *                (X2) = INITIAL VALUE                                    IO       3088
                                                                                                                 IO       3089
          2171  20444                    IDC37    LX4    -D2.UBP-DM.INFL                                         FC5A231   120
                     21444                        AX4    -DM.INFL    EXTRACT (SIGN EXTEND) UPPER BOUND           FC5A231   121
                          5110002513 +            SA1    IDCLMT      FETCH LIMIT VARIABLE                        IO       3092
          2172  22001                             LX0    X1                                                      IO       3093
                     20157                        SBIT   X1,TP.SHRTP                                             IO       3094
                          0321002177 +            PL     X1,IDC38    IF NOT SHORT CONSTANT                       IO       3095
          2173  20020                             HX0    TP.BIAS                                                 IO       3096
                     21044                        AX0    -TP.BIASL   EXTRACT LIMIT VALUE                         IO       3097
                          37202                   IX2    X0-X2                                                   IO       3098
                               37004              IX0    X0-X4                                                   IO       3099
          2174  5140002512 +                      SA4    IDCINT      GET INITIAL VALUE                           FC50620    64
                          20457                   SBIT   X4,TP.SHRTP                                             FC50620    65
                               11224              BX2    X2*X4       SET X2.GE.0 IF NOT SHORT CONS.              FC50620    66
          2175  0332002446 +                      MI     X2,IDCEX    IF INITIAL .GT. LIMIT                       IO       3100
                          0300002215 +            ZR     X0,IDC40    IF LIMIT .EQ. UPPER BOUND                   IO       3101
          2176  0400002206 +                      EQ     IDC39                                                   FC5A249     7
                                                                                                                 FC5A249     8
          2177  10011                    IDC38    BX0    X1          SAVE SHIFTED LIMIT OPERAND                  FC5A249     9
                     5150000000 +                 SA5    IODIR                                                   FC5A249    10
          2200  6225777777                        SB2    X5-S=INP                                                FC5A249    11
                          0520002206 +            NZ     B2,IDC39    IF NOT INPUT                                FC5A249    12
          2201  20115                             LX1    1+TP.SHRTP                                              FC5A249    13
                     10511                        BX5    X1                                                      FC5A249    14
                          0100000000 X            RJ     BBC                                                     FC5A249    15
          2202  10455                             BX4    X5          SAVE BASE/BIAS FORM OF LIMIT                FC5A249    16
                     5150002457 +                 SA5    IDCA                                                    FC5A249    17
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    74
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2203  0100000000 X                      RJ     BBC         GET BASE/BIAS FORM OF ARRAY                 FC5A249    18
          2204  13445                             BX4    X4-X5                                                   FC5A249    19
                     43654                        MX6    -TP.ORDL                                                FC5A249    20
                          20420                   LX4    -TP.ORDP                                                FC5A249    21
                               15646              BX6    -X6*X4                                                  FC5A249    22
          2205  0306002446 +                      ZR     X6,IDCEX    IF LIMIT EQUIVALENCED TO ARRAY              FC5A249    23
                          10100                   BX1    X0                                                      FC5A249    24
                                                                                                                 FC5A249    25
          2206  5120002466 +             IDC39    SA2    IDCH                                                    FC5A249    26
                          5222002502 +            SA2    X2+IDCIDX                                               IO       3103
          2207  43674                             MX6    -0                                                      IO       3104
                     54621                        =A6    A2+1        LAST LEVEL OF COLLAPSE                      IO       3105
                          76600                   =X6    0                                                       FC50620    67
          2210  5160002477 +                      SA6    IDCP        CLEAR LENGTH BIAS                           FC50620    68
                          0331002215 +            MI     X1,IDC40    IF SHORT CONSTANT                           IO       3106
          2211  5120002512 +                      SA2    IDCINT      FETCH INITIAL                               IO       3107
                          20220                   HX2    TP.BIAS                                                 IO       3108
                               21244              AX2    -TP.BIASL   EXTRACT INITIAL VALUE                       IO       3109
          2212  76010                             =X0    1                                                       FC5A136     5
                     37620                        IX6    X2-X0       CALCULATE LENGTH BIAS                       FC50620    69
                          5160002477 +            SA6    IDCP        SAVE LENGTH BIAS                            FC50620    70
          2213  20115                             LX1    TP.SHRTP+TP.SHRTL  RESTORE                              IO       3112
                     5120002771 +                 SA2    ="IDCEXC"   EXCLUSION MASK                              IO       3113
                               43071              MX0    -TP.MODEL                                               IO       3114
          2214  11101                             BX1    X0*X1       REMOVE MODE                                 IO       3115
                                   0              ERRNZ  TP.MODEP                                                IO       3116
                     11212                        BX2    X1*X2                                                   IO       3117
                          0312002446 +            NZ     X2,IDCEX    IF NOT SIMPLE VARIABLE                      IO       3118
                                                                                                                 IO       3119
                                        *         PERFORM COLLAPSE OPERATIONS                                    IO       3120
                                        *         TOKENS IN T.TB, STARTING WITH THE INDEX WILL BE REPLACED BY:   IO       3121
                                        *         1. DO COLLAPSE CONCLUSION TOKEN                                IO       3122
                                        *         2. INITIAL SUBSCRIPT VALUE                                     IO       3123
                                        *         3. COLLAPSE SIZE                                               IO       3124
                                        *         4. VARIABLE COLLAPSE MULTIPLIER (IF NEEDED)                    IO       3125
                                        *         5. BIAS (OFFSET OF LAST COLLAPSE, IF NEEDED)                   IO       3126
                                        *                                                                        IO       3127
                                        *                (X3) = LOWER BOUND                                      IO       3128
                                        *                (X4) = UPPER BOUND                                      IO       3129
                                                                                                                 IO       3130
          2215  5110002512 +             IDC40    SA1    IDCINT      GET INITIAL VALUE                           FC50620    71
                          10511                   BX5    X1                                                      FC50620    72
                               20157              SBIT   X1,TP.SHRTP                                             FC50620    73
          2216  0331002230 +                      MI     X1,IDC42    IF SHORT CONSTANT                           FC50620    74
                          10011                   BX0    X1                                                      FC50620    75
          2217  5110000000 +                      SA1    IODIR       GET IO DIRECTION                            FC50620    76
                          6221777777              SB2    X1-S=INP                                                FC50620    77
          2220  0520002225 +                      NZ     B2,IDC41    IF NOT INPUT                                FC50620    78
                          0100000000 X            RJ     BBC         CONVERT INITIAL TO BASE/BIAS                FC50620    79
          2221  10455                             BX4    X5                                                      FC50620    80
                     5150002457 +                 SA5    IDCA        GET ARRAY                                   FC50620    81
          2222  0100000000 X                      RJ     BBC         CONVERT ARRAY TO BASE/BIAS                  FC50620    82
          2223  13445                             BX4    X4-X5                                                   FC50620    83
                     43654                        MX6    -TP.ORDL                                                FC50620    84
                          20420                   LX4    -TP.ORDP                                                FC50620    85
                               15646              BX6    -X6*X4                                                  FC50620    86
          2224  0306002446 +                      ZR     X6,IDCEX    IF INITIAL EQUIV. TO ARRAY                  FC50620    87
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    75
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                                                                                                                 FC50620    88
          2225  10100                    IDC41    BX1    X0          RETRIEVE INITIAL                            FC50620    89
                     20115                        LX1    TP.SHRTP+TP.SHRTL                                       FC50620    90
                          5120002771 +            SA2    ="IDCEXC"                                               FC50620    91
          2226  43071                             MX0    -TP.MODEL                                               FC50620    92
                     11101                        BX1    X0*X1                                                   FC50620    93
                                   0              ERRNZ  TP.MODEP                                                FC50620    94
                          11212                   BX2    X1*X2                                                   FC50620    95
          2227  0312002446 +                      NZ     X2,IDCEX    IF INITIAL NOT SIMPLE VARIABLE              FC50620    96
                                                                                                                 FC50620    97
          2230  5110002461 +             IDC42    SA1    IDCC        GET NESTING LEVEL                           FC50620    98
                          5120002466 +            SA2    IDCH        INDEX OF PROCESSING LEVEL                   IO       3132
          2231  5150002462 +                      SA5    IDCD        1ST DO-BEGIN                                IO       3133
                          37112                   IX1    X1-X2                                                   IO       3134
          2232  6231777776                        =B3    X1-1                                                    IO       3135
                          53153                   SA1    X5+B3       FETCH CURRENT DO-BEGIN                      IO       3136
                               76511              =X5    -O.DOBI+O.DCBI                                          IO       3137
          2233  36615                             IX6    X1+X5       CONVERT TO DO-COLLAPSE BEGIN TOKEN          IO       3138
                     54610                        SA6    A1                                                      IO       3139
                          21622                   AX6    TB.IOIXP                                                IO       3140
                               63560              SB5    X6          ISOLATE INDEX POINTER                       IO       3141
                                   0              ERRNZ  18-TB.IOIXL                                             IO       3142
          2234  76700                             =X7    O.EOS                                                   IO       3143
                     57751                        =A7    B5-1        MARK -EOS- OVER *,* BEFORE INDEX            IO       3144
                          21622                   AX6    TB.IOCPP-TB.IOIXP                                       IO       3146
                               73660              SX6    X6                                                      IO       3147
                                   0              ERRNZ  TB.IOCPL-18                                             IO       3148
          2235  20622                             LX6    TB.ICCPP                                                IO       3149
                     7150000052                   =X5    O.DCCI                                                  IO       3150
                               12665              BX6    X6+X5                                                   IO       3151
          2236  20244                             LX2    TB.ICIXP                                                FC5A211    46
                     12662                        BX6    X6+X2       MAKE DO COLLAPSE CONCLUSION TOKEN           FC5A211    47
                          56650                   =A6    B5+DC=CCT                                               IO       3154
          2237  5110002512 +                      SA1    IDCINT                                                  IO       3155
                          22701                   LX7    X1                                                      IO       3156
                               54761              =A7    A6-DC=CCT+DC=ISV                                        IO       3157
          2240  5120002513 +                      SA2    IDCLMT                                                  IO       3158
                          20120                   HX1    TP.BIAS                                                 IO       3159
                               21144              AX1    -TP.BIASL   ISOLATE INITIAL                             IO       3160
          2241  5150002467 +                      SA5    IDCI        FETCH COLLAPSE (PRIOR PRODUCT)              IO       3161
                          10633                   BX6    X3                                                      FC50620    99
          2242  5160002500 +                      SA6    IDCQ        SAVE LOWER BOUND                            FC50620   100
                          37313                   IX3    X1-X3       INITIAL - *LB*                              IO       3162
                               42335              IX3    X3*X5       * COLLAPSE SIZE = OFFSET                    IO       3163
          2243  22702                             LX7    X2                                                      IO       3164
                                                  HX7    TP.ORD                                                  IO       3165
                     21754                        AX7    -TP.ORDL    ISOLATE ORDINAL (FOR POSSIBLE MULTIPLIER)   IO       3166
                          10655                   BX6    X5                                                      IO       3167
                               20257              SBIT   X2,TP.SHRTP                                             IO       3168
          2244  0322002250 +                      PL     X2,IDC45    IF NOT SHORT CONSTANT                       IO       3169
                          5150002512 +            SA5    IDCINT      GET INITIAL                                 FC50620   101
          2245  20557                             SBIT   X5,TP.SHRTP                                             FC50620   102
                     0325002250 +                 PL     X5,IDC45    IF NOT SHORT CONSTANT                       FC50620   103
                               20215              LX2    1+TP.SHRTP  RESTORE                                     IO       3170
          2246  20220                             HX2    TP.BIAS                                                 IO       3171
                     21244                        AX2    -TP.BIASL   ISOLATE LIMIT                               IO       3172
                          37121                   IX1    X2-X1       LIMIT - INITIAL                             IO       3173
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    76
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                               73111              =X1    X1+1        +1 = MULTIPLIER                             IO       3174
          2247  42616                             IX6    X1*X6                                                   IO       3175
                     5160002467 +                 SA6    IDCI        GET COLLAPSE SIZE                           FC50620   104
                                                                                                                 FC50620   105
          2250  54671                    IDC45    =A6    A7-DC=ISV+DC=SIZ                                        IO       3177
                     22603                        LX6    X3                                                      IO       3178
                          54761                   =A7    A6-DC=SIZ+DC=VAR                                        IO       3179
          2251  5110002457 +                      SA1    IDCA        FETCH ARRAY OPERAND                         IO       3180
                          43071                   MX0    -TP.MODEL                                               IO       3181
                                                  LX1    -TP.MODEP                                               IO       3182
                               15110              BX1    -X0*X1      ISOLATE MODE                                IO       3183
          2252  6221777773                        SB2    X1-M.DBL                                                IO       3184
                          66610                   =B6    1                                                       IO       3185
          2253  0420002255 +                      EQ     B2,B0,IDC47 IF MODE DOUBLE                              IO       3186
                          0421002255 +            EQ     B2,B1,IDC47 IF MODE COMPLEX                             IO       3187
          2254  66600                             =B6    0                                                       IO       3188
                                                                                                                 FC5A431    17
          2255  22666                    IDC47    LX6    X6,B6       ADJUST BIAS TO MODE                         IO       3189
                     54671                        =A6    A7-DC=VAR+DC=OFF                                        IO       3190
                          5120000000 X            SA2    DATFLG                                                  FC5A218    69
          2256  5170002473 +                      SA7    IDCL                                                    FC5A218    70
                          0312002267 +            NZ     X2,IDC475   IF PROCESSING DATA                          FC5A218    71
                                                                                                                 FC5A218    72
                                        *         ADD TO END OF T.IOA (TEMPORARILY) THE *LCI*, 3 WORDS:          FC5A218    73
                                        *         CONTROL VAR, INITIAL AND LIMIT TAG WORDS.                      FC5A218    74
                                                                                                                 FC5A218    75
          2257  66630                             SB6    B3                                                      FC5A218    76
                     5110000000 X                 ALLOC  T.IOA,3                                                 FC5A218    77
          2261  5110002515 +                      SA1    IDCCV                                                   FC5A218    78
                          5120002512 +            SA2    IDCINT                                                  FC5A218    79
          2262  5130002513 +                      SA3    IDCLMT                                                  FC5A218    80
                          10611                   BX6    X1                                                      FC5A218    81
                               10722              BX7    X2                                                      FC5A218    82
          2263  5167777774                        SA6    B7-3                                                    FC5A218    83
                          10633                   BX6    X3                                                      FC5A218    84
                               54761              =A7    A6+1                                                    FC5A218    85
          2264  57671                             =A6    B7-1                                                    FC5A218    86
                     5110002501 +                 SA1    TL=LCI                                                  FC5A218    87
          2265  7261000003                        SX6    X1+3                                                    FC5A218    88
                          54610                   SA6    A1          TL=LCI  =  TL=LCI + 3                       FC5A218    89
                               66360              SB3    B6                                                      FC5A218    90
          2266  5110002473 +                      SA1    IDCL                                                    FC5A218    91
                          10711                   BX7    X1                                                      FC5A218    92
                                                                                                                 FC5A218    93
          2267                           IDC475   BSS    0                                                       FC5A218    94
          2267  0530002276 +                      NZ     B3,IDC48    IF MORE COLLAPSE TO TRY                     FC5A214    11
                          5110002461 +            SA1    IDCC        NESTING LEVEL                               FC5A214    12
          2270  5120002465 +                      SA2    IDCG        DIMENSIONALITY                              FC5A214    13
                          37112                   IX1    X1-X2                                                   FC5A214    14
                               66710              =B7    1                                                       FC5A214    15
          2271  0301002303 +                      ZR     X1,IDC50    IF TRUE COMPLETE COLLAPSE                   FC5A214    16
                                                                                                                 FC5A214    17
                                        *         WHEN THE DO STRUCTURE COMPLETELY COLLAPSES, BUT THE THE        FC5A214    18
                                        *         NESTING LEVEL IS LESS THAN DIMENSIONALITY, A PARTIAL STYLE     FC5A214    19
                                        *         COLLAPSE IS REQUIRED.                                          FC5A214    20
                                                                                                                 FC5A214    21
                          5110002462 +            SA1    IDCD                                                    FC5A214    22
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    77
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2272  5120002470 +                      SA2    IDCJ                                                    FC5A214    23
                          63410                   SB4    X1          RESTORE (B4) _ INITIAL DO-BEGIN TOKEN       FC5A214    24
                               10622              SHRINK T=PAR,X2    RESTORE PARSE FILE                          FC5A214    25
                          5110002457 +            SA1    IDCA        TP. OF ARRAY                                FC5A214    26
          2274  10711                             BX7    X1                                                      FC5A214    27
                     67441                        =B4    B4-1        RESET TO ALLOW CVL ACCESS TO THE O.DCBI     FC5A214    28
                          5170000011 +            SA7    IODOIND     INDICATE PARTIAL COLLAPSE                   FC5A214    29
          2275  6170777776                        SB7    -1                                                      FC5A271    17
                          0400002051 +            EQ     EXIT.                                                   FC5A214    30
                                                                                                                 IO       3192
                                        *         INCREMENT FOR NEXT COLLAPSE LOOP                               IO       3193
                                                                                                                 IO       3194
          2276  5120002460 +             IDC48    SA2    IDCB        T.DIM POINTER                               FC5A214    31
                          5110002466 +            SA1    IDCH        FETCH INDEX OF PROCESSING LEVEL             IO       3196
          2277  7272000002                        SX7    X2+Z=DD                                                 IO       3197
                          73611                   =X6    X1+1                                                    IO       3198
                               54720              SA7    A2                                                      IO       3199
          2300  54610                             SA6    A1                                                      IO       3200
                     63360                        SB3    X6          INDEX FOR NEXT LEVEL                        FC5A211    48
                          5110002457 +            SA1    IDCA        FETCH ARRAY TAG                             IO       3201
          2301  10711                             BX7    X1                                                      IO       3203
                     5170000011 +                 SA7    IODOIND     INDICATE PARTIAL COLLAPSE                   IO       3205
          2302  0400002121 +                      EQ     IDC30       CONTINUE COLLAPSE PROCESSING                IO       3206
                                                                                                                 IO       3207
                                        *         COLLAPSE COMPLETE                                              IO       3208
                                        *                (B5) = POINTER TO DO COLLAPSE CONCLUSION TOKEN          IO       3209
                                        *                (X7) = VARIABLE MULTIPLIER                              IO       3210
                                                                                                                 IO       3211
          2303  5110000000 X             IDC50    SA1    DATFLG                                                  FC5A218    95
                          0311002307 +            NZ     X1,IDC51    IF *DATA*                                   FC5A218    96
          2304  5110002457 +                      SA1    IDCA                                                    FC5A248    28
                          10611                   BX6    X1                                                      FC5A248    29
                               76000              =X0    0                                                       FC5A248    30
          2305  0100001463 +                      RJ     CML         SEE IF RESTART NEEDED ON ARRAY              FC5A248    31
          2306  0100002613 +                      RJ     PAX         PREPARE ARRAY CROSS-SECTION                 FC5A218    97
                                                                                                                 FC5A218    98
          2307  5110002512 +             IDC51    SA1    IDCINT      GET INITIAL VALUE                           FC50620   106
                          20157                   SBIT   X1,TP.SHRTP                                             FC50620   107
          2310  0321002326 +                      PL     X1,IDC52.1  IF NOT SHORT CONSTANT                       FC50946     8
                          5110002473 +            SA1    IDCL        GET VARIABLE MULTIPLIER                     FC50620   109
          2311  10711                             BX7    X1                                                      FC5A218   100
                     0301002401 +                 ZR     X1,IDC55    IF NO VARIABLE MULTIPLIER                   FC5A218   101
                                                                                                                 IO       3231
                                        *         THE LAST LIMIT WAS VARIABLE, MUST OUTPUT MULTIPLY TURPLE       IO       3232
                                                                                                                 IO       3233
          2312  5110002477 +                      SA1    IDCP        GET LENGTH BIAS                             FC50620   110
                          0301002322 +            ZR     X1,IDC52    IF NO BIAS                                  FC50620   111
          2313  10611                             BX6    X1                                                      FC50620   112
                     76711                        =X7    M.INT                                                   FC50620   113
                          0100000000 X            CALL   NCS         FORM CONSTANT OPERAND                       FC50620   114
          2314  5140002513 +                      SA4    IDCLMT      GET LIMIT VALUE                             FC50620   115
                          22506                   LX5    X6                                                      FC50620   116
                                                                                                                 FC50620   117
          2315  6130030000 X             IDC51.1  EMIT   V=SUB.I,BOTH                                            FC50946     9
          2316  5110000000 X                      SA1    T=PAR                                                   FC50620   119
                          7261777774              SX6    X1-Z=TURP                                               FC50620   120
          2317  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   121
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    78
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                          20654                   LX6    TP.ORDP                                                 FC50620   122
                               12662              BX6    X6+X2       FORM INDIRECT OPERAND                       FC50620   123
          2320  5160002513 +                      SA6    IDCLMT      SAVE AS LIMIT VALUE                         FC50620   124
                          5110002473 +            SA1    IDCL        GET VARIABLE MULTIPLIER                     FC50620   125
          2321  10711                             BX7    X1                                                      FC50620   126
                                                                                                                 FC50620   127
          2322  20754                    IDC52    LX7    TP.ORDP                                                 FC50620   128
                     5155000002                   =A5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         IO       3235
          2323  7225777776                        =X2    X5-1                                                    IO       3236
                          0312002365 +            NZ     X2,IDC53    IF SIZE .NE. 1                              IO       3237
          2324  5150002513 +                      SA5    IDCLMT                                                  IO       3238
                          5140002457 +            SA4    IDCA        FETCH ARRAY OPERAND                         IO       3239
          2325  0400002403 +                      EQ     IDC56                                                   IO       3240
                                                                                                                 IO       3241
          2326  5110002500 +             IDC52.1  SA1    IDCQ        GET LOWER BOUND                             FC50946    10
                          20152                   LX1    42                                                      FC5A431    18
                               21152              AX1    42          EXTEND SIGN                                 FC5A431    19
          2327  10611                             BX6    X1                                                      FC50620   132
                     76711                        =X7    M.INT                                                   FC50620   133
                          0100000000 X            CALL   NCS         FORM CONSTANT OPERAND                       FC50620   134
          2330  22506                             LX5    X6                                                      FC50620   135
                     5140002512 +                 SA4    IDCINT      GET INITIAL VALUE                           FC50620   136
          2331  6130030000 X                      EMIT   V=SUB.I,BOTH  EMIT SUBTRACT TURPLE                      FC50620   137
          2332  5110002457 +                      SA1    IDCA        ARRAY OPERAND                               FC50946    11
                          43071                   MX0    -TP.MODEL                                               FC50946    12
                               15010              BX0    -X0*X1      EXTRACT MODE                                FC50946    13
                                   0              ERRNZ  TP.MODEP                                                FC50946    14
          2333  6270777773                        SB7    X0-M.DBL                                                FC50946    15
                          0470002335 +            ZR     B7,IDC52.2  IF MODE DOUBLE                              FC50946    16
          2334  0471002335 +                      EQ     B7,B1,IDC52.2  IF MODE COMPLEX                          FC50946    17
                          0400002341 +            EQ     IDC52.3                                                 FC50946    18
                                                                                                                 FC50946    19
          2335  5110000000 X             IDC52.2  SA1    T=PAR                                                   FC50946    20
                          7241777774              SX4    X1-Z=TURP                                               FC50946    21
          2336  7100002002                        CLAS=  X0,TP,(INTR),INT                                        FC50946    22
                          20454                   LX4    TP.ORDP                                                 FC50946    23
                               12440              BX4    X4+X0                                                   FC50946    24
          2337  22504                             LX5    X4                                                      FC50946    25
                     6130030000 X                 EMIT   V=ADD.I,BOTH  DOUBLE SUBSCRIPT FOR COMPLEX AND DOUBLE   FC50946    26
                                                                                                                 FC50946    27
          2341  5110000000 X             IDC52.3  SA1    T=PAR                                                   FC50946    28
                          7261777774              SX6    X1-Z=TURP                                               FC50620   139
          2342  7120002002                        CLAS=  X2,TP,(INTR),INT                                        FC50946    29
                          20654                   LX6    TP.ORDP                                                 FC50620   141
                               12662              BX6    X6+X2       FORM INTERMEDIATE OPERAND                   FC50946    30
          2343  5160002500 +                      SA6    IDCQ        SAVE AS ARRAY OFFSET                        FC50620   143
                          5110002467 +            SA1    IDCI        GET COLLAPSE SIZE                           FC50620   144
          2344  63210                             SB2    X1                                                      FC50620   145
                     0421002353 +                 EQ     B2,B1,IDC52.6  IF COLLAPSE SIZE=1                       FC50946    31
                               10611              BX6    X1                                                      FC50620   147
          2345  76711                             =X7    M.INT                                                   FC50620   148
                     0100000000 X                 CALL   NCS         FORM CONSTANT OPERAND                       FC50620   149
          2346  22506                             LX5    X6                                                      FC50620   150
                     5140002500 +                 SA4    IDCQ        GET ARRAY OFFSET                            FC50620   151
          2347  6130030000 X                      EMIT   V=MUL.I,BOTH  ISSUE MULTIPLY TURPLE                     FC50620   152
          2350  5110000000 X                      SA1    T=PAR                                                   FC50620   153
                          7261777774              SX6    X1-Z=TURP                                               FC50620   154
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    79
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2351  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   155
                          20654                   LX6    TP.ORDP                                                 FC50620   156
                               12662              BX6    X6+X2       FORM INTERMEDIATE OPERAND                   FC50946    32
          2352  5160002500 +                      SA6    IDCQ        SAVE ARRAY OFFSET                           FC50620   158
                                                                                                                 FC50620   159
          2353  5110002473 +             IDC52.6  SA1    IDCL        GET VARIABLE MULTIPLIER                     FC50946    33
                          0301002361 +            ZR     X1,IDC52.7  IF NO VARIABLE MULTIPLIER                   FC50946    34
          2354  5140002513 +                      SA4    IDCLMT      GET LIMIT (BIASED)                          FC50620   162
                          5150000000 X            SA5    CONONE      GET CONSTANT 1 OPERAND                      FC50620   163
          2355  6130030000 X                      EMIT   V=ADD.I,BOTH  EMIT ADD TURPLE                           FC50620   164
          2356  5110000000 X                      SA1    T=PAR                                                   FC50620   165
                          7261777774              SX6    X1-Z=TURP                                               FC50620   166
          2357  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   167
                          20654                   LX6    TP.ORDP                                                 FC50620   168
                               12462              BX4    X6+X2       FORM INTERMEDIATE OPERAND                   FC50946    35
          2360  5150002512 +                      SA5    IDCINT      GET INITIAL VALUE                           FC50620   170
                          0400002315 +            EQ     IDC51.1     GO ISSUE SUBTRACT TURPLE                    FC50946    36
                                                                                                                 FC50620   172
          2361  5110002513 +             IDC52.7  SA1    IDCLMT      GET LIMIT VALUE (CONSTANT)                  FC50946    37
                          20120                   HX1    TP.BIAS                                                 FC50620   174
                               21144              AX1    -TP.BIASL                                               FC50620   175
          2362  73611                             =X6    X1+1        ADD ONE TO LIMIT                            FC50620   176
                     76711                        =X7    M.INT                                                   FC50620   177
                          0100000000 X            CALL   NCS         FORM CONSTANT OPERAND                       FC50620   178
          2363  22406                             LX4    X6                                                      FC50620   179
                     5150002512 +                 SA5    IDCINT      GET INITIAL VALUE                           FC50620   180
          2364  0400002315 +                      EQ     IDC51.1     GO ISSUE SUBTRACT TURPLE                    FC50946    38
                                                                                                                 FC50620   182
          2365  5150000000 X             IDC53    SA5    WO.DOOT     GET MIN. TRIP COUNT                         FC50620   183
                          5140002513 +            SA4    IDCLMT      GET VARIABLE MULTIPLIER                     FC50620   184
          2366  0305002372 +                      ZR     X5,IDC54    IF ZERO-TRIP DO                             FC50620   185
                          5150000000 X            SA5    CONONE      GET CONSTANT ONE                            FC50620   186
          2367  6130030000 X                      EMIT   V=MAX0,BOTH ISSUE MAX0 TURPLE                           FC50620   187
          2370  5110000000 X                      SA1    T=PAR                                                   FC50620   188
                          7261777774              SX6    X1-Z=TURP                                               FC50620   189
          2371  7120002000                        CLAS=  X2,TP,(INTR)                                            FC50620   190
                          20654                   LX6    TP.ORDP                                                 FC50620   191
                               12462              BX4    X6+X2       FORM INDIRECT OPERAND                       FC50620   192
                                                                                                                 FC50620   193
          2372  5155000002               IDC54    SA5    B5+DC=SIZ                                               FC50620   194
                          10655                   BX6    X5                                                      IO       3243
                               76711              =X7    M.INT                                                   IO       3244
          2373  0100000000 X                      CALL   NCS         FORM CONSTANT OPERAND                       IO       3245
          2374  22506                             LX5    X6                                                      IO       3246
                     6130030000 X                 EMIT   V=MUL.I,BOTH                                            IO       3247
          2376  5110000000 X                      SA1    T=PAR                                                   IO       3248
                          7261777774              SX6    X1-Z=TURP                                               IO       3249
          2377  7120002000                        CLAS=  X2,TP,(INTR)                                            IO       3250
                          20654                   LX6    TP.ORDP                                                 IO       3251
                               12562              BX5    X6+X2       MAKE INTERMEDIATE OPERAND                   IO       3252
          2400  5140002457 +                      SA4    IDCA        FETCH ARRAY OPERAND                         IO       3253
                          0400002403 +            EQ     IDC56                                                   IO       3254
                                                                                                                 IO       3255
                                        *         MAKE AND OUTPUT THE I/O DATA TURPLE                            IO       3256
                                                                                                                 IO       3257
          2401  5140002457 +             IDC55    SA4    IDCA        FETCH ARRAY OPERAND                         IO       3258
                          5155000002              SA5    B5+DC=SIZ   FETCH COLLAPSE SIZE                         IO       3259
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    80
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2402  20524                             LX5    TP.BIASP                                                IO       3264
                     7120010000                   CLAS=  X2,TP,(SHRT)                                            IO       3265
                               12525              BX5    X2+X5                                                   IO       3266
                                                                                                                 IO       3267
                                        *                (X4) = ARRAY (TP. FORMAT)                               FC50216     6
                                        *                (X5) = BLOCK SIZE (TP. FORMAT)                          IO       3269
                                                                                                                 IO       3270
          2403  5115000004               IDC56    SA1    B5+DC=OFF                                               FC50216     7
                          20124                   LX1    TP.BIASP                                                FC50216     8
                               12441              BX4    X4+X1       MERGE IN BIAS                               FC50216     9
          2404  5110002512 +                      SA1    IDCINT      GET INITIAL VALUE                           FC50620   195
                          20157                   SBIT   X1,TP.SHRTP                                             FC50620   196
          2405  0331002420 +                      MI     X1,IDC565   IF SHORT CONSTANT                           FC50620   197
                          10655                   BX6    X5                                                      FC50620   198
          2406  5160002477 +                      SA6    IDCP        SAVE X5 CONTENTS                            FC50620   199
                          5140002457 +            SA4    IDCA        GET ARRAY                                   FC50620   200
          2407  7150020000                        CLAS=  X5,TP,(ARR)                                             FC50620   201
                          12445                   BX4    X4+X5       SET ARRAY REF BIT                           FC50620   202
          2410  5150002500 +                      SA5    IDCQ        GET ARRAY OFFSET                            FC50620   203
                          43071                   MX0    -TP.MODEL                                               FC50620   204
                               15740              BX7    -X0*X4      GET ARRAY MODE                              FC50620   205
          2411  20722                             LX7    SP.MODEP                                                FC50620   206
                     5120000000 X                 SA2    ARYOP       GET ARRAY LOAD TURPLE HEADER                FC50620   207
                               12772              BX7    X7+X2       MERGE IN ARRAY MODE                         FC50620   208
          2412  5170000005 +                      SA7    IOARY                                                   FC50620   209
                          6130400005 +            EMIT   IOARY,*     EMIT ARRAY LOAD TURPLE                      FC50620   210
          2414  5110000000 X                      SA1    T=PAR                                                   FC50620   211
                          7261777774              SX6    X1-Z=TURP                                               FC50620   212
          2415  7120022100                        CLAS=  X2,TP,(INTR,ARR,ARS)                                    FC50620   213
                          43071                   MX0    -TP.MODEL                                               FC50620   214
                               15440              BX4    -X0*X4      GET ARRAY MODE                              FC50620   215
          2416  12224                             BX2    X2+X4       MERGE IN ARRAY MODE                         FC50620   216
                     20654                        LX6    TP.ORDP                                                 FC50620   217
                          12462                   BX4    X6+X2       FORM INDIRECT OPERAND                       FC50620   218
          2417  5150002477 +                      SA5    IDCP        RESTORE X5                                  FC50620   219
                                                                                                                 FC50620   220
          2420  5110000000 +             IDC565   SA1    IODIR       GET IO DIRECTION                            FC50620   221
                          5120000000 X            SA2    DATFLG                                                  FC5A141   280
          2421  0311002427 +                      NZ     X1,IDC57    IF NOT INPUT DIRECTION                      FC5A141   281
                          0312002427 +            NZ     X2,IDC57    IF DATA LIST                                FC5A141   282
          2422  5110002457 +                      SA1    IDCA        FETCH ARRAY OPERAND                         FC51066     5
                          10011                   BX0    X1                                                      FC51066     6
          2423  5110000000 X                      SA1    T.SYM                                                   FC5A211    49
                                                  HX0    TP.ORD                                                  FC5A211    51
                          21054                   AX0    -TP.ORDL    EXTRACT ORDINAL                             FC5A211    52
                               63200              SB2    X0                                                      FC5A211    53
          2424  20001                             LX0    1                                                       FC5A211    54
                     63202                        SB2    X0+B2       CONVERT ORDINAL TO INDEX                    FC5A211    55
                                   0              ERRNZ  3-Z=SYM                                                 FC5A211    56
                          53112                   SA1    X1+B2       FETCH *WA*                                  FC5A211    57
                                   0              ERRNZ  WA.W                                                    FC5A211    58
                               43652              MX6    WA.SYML                                                 FC5A211    59
          2425  11661                             BX6    X6*X1       SYMBOL ONLY                                 FC5A211    60
                     5160000000 X                 SA6    FILL.                                                   FC5A211    61
          2426  0100001555 +                      RJ     AII         ADD INPUT LIST ITEM TO T.ILI                FC5A141   283
                                                                                                                 FC5A141   284
          2427  5110001741 +             IDC57    SA1    CVLTH                                                   FC5A141   285
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    81
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
                          43071                   MX0    -TP.MODEL                                               IO       3272
                               15240              BX2    -X0*X4      ISOLATE MODE                                IO       3273
                                   0              ERRNZ  TP.MODEP                                                IO       3274
          2430  55311                             =A3    A1-CVLTH+CVLPM                                          IO       3275
                     20222                        LX2    SP.MODEP                                                FC50104    69
                          12712                   BX7    X1+X2       MERGE IN MODE                               IO       3277
          2431  5170000003 +                      SA7    IODTH                                                   IO       3278
                          0313002435 +            NZ     X3,IDC58    IF NOT NORMAL I/O PARSEMODE                 FC5A141   286
          2432  5110000000 X                      EMIT   IODTH,*,T.IOARG                                         IO       3280
          2434  0400002436 +                      EQ     IDC59                                                   IO       3281
                                                                                                                 IO       3282
          2435  6130400003 +             IDC58    EMIT   IODTH,*                                                 FC5A141   287
                                                                                                                 FC50061     9
          2436  5110000002 +             IDC59    SA1    IOREF                                                   FC50061    10
                          5120002457 +            SA2    IDCA        TP. FORMAT OF ARRAY                         FC50061    11
                                                  HX2    TP.ORD                                                  FC50061    12
          2437  21254                             AX2    -TP.ORDL    EXTRACT ORDINAL                             FC50061    13
                     20252                        LX2    XR.TAGP     POSITION FOR ERT                            FC50061    14
                          10622                   ADDREF X2,X1                                                   FC50061    15
          2441  76600                             =X6    0                                                       FC50061    16
                     5160000011 +                 SA6    IODOIND                                                 IO       3285
                               54661              =A6    A6+1        CLEAR PARTIAL COLLAPSE INDICATORS           IO       3286
          2442  66710                             =B7    1           INDICATE COMPLETE COLLAPSE                  FC50683     6
                     56141                        =A1    B4+1                                                    FC50683     7
                          0311002051 +            NZ     X1,EXIT.    IF NOT *EOS*, I.E., NO TRAILING COMMA       FC50683     8
                                   0              ERRNZ  O.EOS                                                   FC50683     9
          2443  56140                             SA1    B4                                                      FC50683    10
                     7211777735                   SX1    X1-O.COMMA                                              FC50683    11
          2444  0311002051 +                      NZ     X1,EXIT.    IF NOT COMMA                                FC50683    12
                          6144000001              SB4    B4+1        INCREMENT FOR DIAGNOSTIC                    FC50683    13
          2445  0400002051 +                      EQ     EXIT.                                                   IO       3288
                                                                                                                 IO       3289
                                        *         COMPLETE COLLAPSE HAS FAILED, SET EXIT CONDITIONS.             IO       3290
                                                                                                                 IO       3291
          2446                           IDCEX    BSSENT 0           ENTRY HERE TO STOP COLLAPSE                 IO       3292
          2446  5110002462 +                      SA1    IDCD                                                    IO       3293
                          5120002470 +            SA2    IDCJ                                                    IO       3294
          2447  63410                             SB4    X1          RESTORE (B4) _ INITIAL DO-BEGIN TOKEN       IO       3295
                     10622                        SHRINK T=PAR,X2    RESTORE PARSE FILE                          IO       3296
          2450  5120000000 X                      SA2    T=REF                                                   FC50906     8
                          0302002454 +            ZR     X2,IDC60    IF T=REF IS ZERO DON'T SHRINK               FC50906     9
          2451  5110002475 +                      SA1    IDCN                                                    FC50464    18
                          10611                   SHRINK T=REF,X1    AVOID DUPLICATE REFERENCES                  FC50464    19
                          5110002476 +            SA1    IDCO                                                    FC50464    20
          2453  10611                             BX6    X1                                                      FC50464    21
                     5160000000 X                 SA6    LOSTREF     RESTORE REFERENCE COUNT                     FC50464    22
                                                                                                                 FC50906    10
          2454  5110002471 +             IDC60    SA1    IDCK                                                    FC50906    11
                          66700                   =B7    0                                                       IO       3298
                               76600              =X6    0                                                       IO       3299
          2455  0301002051 +                      ZR     X1,EXIT.    IF NO T.TB RESTORE                          IO       3300
                          54211                   SA2    A1+B1       FETCH ORIGINAL TOKEN                        IO       3301
                               10722              BX7    X2                                                      IO       3302
          2456  54610                             SA6    A1          CLEAR RESTORATION FLAG                      IO       3303
                     53710                        SA7    X1                                                      IO       3304
                          0400002051 +            EQ     EXIT.                                                   IO       3305
                                                                                                                 IO       3306
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    82
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IDC 
  
          2457                     1     IDCA     BSS    1           SAVE ARRAY TAG                              IO       3307
          2460                     1     IDCB     BSS    1           POINTER TO T.DIM DIMENSION INFORMATION      IO       3308
          2461                     1     IDCC     BSS    1           I/O DO NESTING LEVEL                        IO       3309
          2462                     1     IDCD     BSS    1           POINTER TO INITIAL DO-BEGIN TOKEN           IO       3310
          2463                     1     IDCE     BSS    1           SUBSCRIPT COUNT                             IO       3311
          2464                     1     IDCF     BSS    1           INDUCTION VARIABLE COUNTER                  IO       3312
          2465                     1     IDCG     BSS    1           ARRAY DIMENSIONALITY                        IO       3313
          2466                     1     IDCH     BSS    1           INDEX OF PROCESSING LEVEL                   IO       3314
          2467                     1     IDCI     BSS    1           COLLAPSE SIZE                               IO       3315
          2470                     1     IDCJ     BSS    1           VALUE OF T=PAR FOR RESET                    IO       3316
          2471                     1     IDCK     BSSZ   1           ADDRESS OF TOKEN TO RESTORE                 IO       3317
          2472                     1              BSS    1           CONTENTS                                    IO       3318
          2473                     1     IDCL     BSS    1           SAVE VARIABLE MULITIPLIER                   IO       3319
          2474                     1     IDCM     BSS    1           ARRAY BASE/BIAS                             FC5A256    12
          2475                     1     IDCN     BSS    1           REFERENCE TABLE COUNT (FOR RECOVER)         FC50464    23
          2476                     1     IDCO     BSS    1           REFERENCE COUNT (FOR RECOVER)               FC50464    24
          2477                     1     IDCP     BSS    1           LENGTH BIAS                                 FC50620   222
          2500                     1     IDCQ     BSS    1           LOWER BOUND / VARIABLE MULTIPLIER           FC50620   223
          2501                     1     TL=LCI   BSS    1           LEN OF *LIST COL. INFO.* APPENDED TO T.IOA  FC5A218   102
          2502                    10     IDCIDX   BSS    MAX.DIM+1   INDICES (+ TRASH WORD)                      IO       3320
          2512                     3     IDCIND   BSS    3           INDUCTION VARIABLES                         IO       3321
                                2512 +   IDCINT   EQU    IDCIND      INITIAL                                     IO       3322
                                2513 +   IDCLMT   EQU    IDCIND+1    LIMIT                                       IO       3323
                                2514 +   IDCINC   EQU    IDCIND+2    INCREMENT                                   IO       3324
          2515                     1     IDCCV    BSS    1           CONTROL VARIABLE                            FC5A211    62
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    83
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IOD 
  
                                        **        IOD -  MARK OCCURANCES OF IMPLIED DO-LOOPS IN I/O LIST.        IO       3326
                                        *                                                                        IO       3327
                                        *                BEING A SIMPLE SCHEME FOR DISCOVERING AND MARKING THE   IO       3328
                                        *         EXTENT OF (ANY) IMPLIED-DOS IN AN I/O LIST.  A PSEUDO-STACK    IO       3329
                                        *         OF PARENTHESES IS KEPT IN THE STRING ITSELF, BY STORING OVER   IO       3330
                                        *         TOP OF EVERY LEFT PAREN THE ADDRESS OF THE PRECEDING ONE.      IO       3331
                                        *         THIS STACK IS POPPED UP FOR EVERY RIGHT PAREN ENCOUNTERED BY   IO       3332
                                        *         RESETTING THE STACK POINTER (B5) TO THE ADDRESS CONTAINED IN   IO       3333
                                        *         THE LAST LPAREN, AND RESTORING THE LPAREN TO ITS ORIGINAL      IO       3334
                                        *         VALUE (O.LP).  THUS, WHEN AN EQUAL SIGN IS ENCOUNTERED, THE    IO       3335
                                        *         TOP OF THE STACK IS ITS OPENING DO-PAREN.  THAT CELL IS        IO       3336
                                        *         MODIFIED SUCH THAT WHEN THE CLOSING RPAREN IS POPPED, THE      IO       3337
                                        *         SUPPOSED RESTORATION WILL ACTUALLY TURN IT INTO A DO-BEGIN     IO       3338
                                        *         MARK.  REDUNDANT (NON-DO-IMPLYING) PARENS ARE THEREFORE        IO       3339
                                        *         EFFECTIVELY IGNORED.                                           IO       3340
                                        *                AS TRUE DO-IMPLIED PARENS ARE DISCOVERED, WE INSERT     IO       3341
                                        *         *O.EOS* MARKS IN FRONT OF THEM SO THAT THE PARSER WILL LATER   IO       3342
                                        *         STOP THERE AND ALLOW *LST* TO LOOK AT THE DO-BEGIN MARK.       IO       3343
                                        *         THIS IS INHIBITED IF THE LPAREN IS NOT PRECEDED BY A COMMA,    IO       3344
                                        *         SINCE WHATEVER ELSE IS THERE WILL BE HANDLED BY *LST*, AND NOT IO       3345
                                        *         THE PARSER.                                                    IO       3346
                                        *                OF COURSE, ANY LEFT PAREN PRECEDED BY A VARIABLE IS A   IO       3347
                                        *         SUBSCRIPT PAREN, AND IS SKIPPED OVER.                          IO       3348
                                        *                                                                        IO       3349
                                        *         ENTRY  (B4) _ FWA I/O LIST.                                    IO       3350
                                        *                                                                        IO       3351
                                        *         EXIT   (B4) = PRESERVED.                                       IO       3352
                                        *                T.TB = UPDATED.                                         IO       3353
                                        *                                                                        IO       3354
                                        *         USES   ALL BUT A0, B4.                                         IO       3355
                                        *                                                                        IO       3356
                                        *         CALLS  ADW, SKS                                                IO       3357
                                        *                                                                        IO       3358
                                        *         REGISTER ASSIGNMENTS --                                        IO       3359
                                        *                (A4) _ FETCH ADDRESS.                                   IO       3360
                                        *                (B5) _ LAST LPAREN LINK.                                IO       3361
                                        *                (B6) = PAREN LEVEL.                                     IO       3362
                                                                                                                 IO       3363
                                                                                                                 IO       3364
          2516  0560000000 X             IOD9     NZ     B6,E.IOD1   IF UNBALANCED PARENTHESIS                   IO       3365
                          13666                   BX6    O.EOS                                                   IO       3366
                               54640              SA6    A4          RESET THE EOS FOR PAR                       IO       3367
          2517  5110000000 X                      ADDWD  T.TB        ADD AN EXTRA -EOS- FOR *LST*                IO       3368
                                                                                                                 IO       3369
                                         .T       IFNE   TEST        DUMP TOKEN BUFFER                           IO       3370
                                                  SA1    CO.SNAP                                                 IO       3371
                                                  LX1    1RN         IMPLIED-LOOP SNAP FLAG                      IO       3372
                                                  PL     X1,IODX     IF (SNAP=N) NOT REQUESTED                   IO       3373
                                                  CALL   LTB=        LIST TOKEN BUFFER                           IO       3374
                                         .T       ENDIF                                                          IO       3375
                                                                                                                 IO       3376
          2520  0400402520 +             IOD      SUBR               ENTRY/EXIT...                               IO       3377
          2521  56440                             SA4    B4          INITIALIZE (A4) = TOKEN CURSOR              IO       3378
                     66600                        =B6    0           PAREN LEVEL = 0                             IO       3379
                          43400                   MX4    0                                                       IO       3380
                               67541              =B5    B4-1        FAKE UP A LINK TO LAST LPAREN               IO       3381
                                                                                                                 IO       3382
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    84
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IOD 
  
          2522  10344                    IOD2     BX3    X4                                                      IO       3383
                     54441                        =A4    A4+1                                                    IO       3384
                          6274777740              =B7    X4-O.LP                                                 IO       3385
          2523  0304002516 +                      ZR     X4,IOD9     IF *EOS*                                    IO       3386
                          67271                   =B2    B7+O.(-O.)                                              IO       3387
          2524  0470002537 +                      ZR     B7,IOD5     IF *(*                                      IO       3388
                          0420002532 +            ZR     B2,IOD4     IF *)*                                      IO       3389
          2525  0521002522 +                      NE     B2,B1,IOD2  IF NO *=*, LOOP..                           IO       3390
                                   0              ERRNZ  O.)-O.(-1                                               IO       3391
                                   0              ERRNZ  O.=-O.)-1                                               IO       3392
                                                                                                                 IO       3393
                                        **        FOUND A *=*  --  MARK CLOSE OF IMPLIED DO.                     IO       3394
                                                                                                                 IO       3395
                          75741                   =X7    A4-1        POINTS TO DO-INDEX                          IO       3396
                                   0              ERRNZ  18-TB.IOIXL                                             IO       3397
                               56350              SA3    B5          TOKTOP = T.TB (STACK TOP)                   IO       3398
          2526  7120000070                        =X2    O.LP&O.DOBI                                             IO       3399
                                   0              ERRNZ  18-TB.TOTL                                              IO       3400
                          20722                   LX7    TB.IOIXP-TB.TOTP                                        IO       3401
                               12072              BX0    X7+X2       (0, IOIX, TOT)                              IO       3402
          2527  5024777775                        SA2    A4-2        TOKBE4 = T.TB (*-2)     /* TOK BEFORE INDEX IO       3403
                                                  LX0    TB.TOTP                                                 IO       3404
                          13730                   BX7    X3-X0       TOKTOP(IOIX, TOT) = (*-1, O.DOBI)           IO       3405
                               56750              SA7    B5                                                      IO       3406
          2530  6272777735                        SB7    X2-O.COMMA  B7=0 IFF TOKBE4(TOT) = COMMA                IO       3407
                          0570000000 X            NZ     B7,E.IOD2   IF IMPLIED DO NOT PRECEEDED BY *,*          IO       3408
          2531  0400002522 +                      EQ     IOD2                                                    IO       3409
                                                                                                                 IO       3410
                                                                                                                 IO       3411
                                        **        FOUND A *)*  --  POP UP PAREN STACK.                           IO       3412
                                                                                                                 IO       3413
          2532  56250                    IOD4     SA2    B5          TOKOT = T.TB (OLD STACK TOP)                IO       3414
                     43052                        MX0    -TB.IOCPL                                               IO       3415
                          67661                   SB6    B6-B1       PL = PL - 1                                 IO       3416
                               76610              SX6    B1                                                      IO       3417
          2533  20230                             LX2    -TB.IOCPP                                               IO       3418
                     11102                        BX1    X0*X2                                                   IO       3419
                          63520                   SB5    X2          NEW STACK TOP = TOKTOP(IOCP)                IO       3420
                               20622              LX6    TB.IOSPP                                                IO       3421
          2534  0760000000 X                      MI     B6,E.IOD3   IF TOO MANY RPARENS (RETURN FEC.RNL)        IO       3422
                          74040                   SX0    A4          TI = *            /* POINTER TO THIS RPAREN IO       3423
                               12710              BX7    X1+X0       TOKOT(IOCP) = TI                            IO       3424
          2535  36664                             IX6    X6+X4       T.TB(TI)(IOSP) = 1      /* MARK DOC RP      IO       3425
                     20744                        LX7    TB.IOCPP                                                IO       3426
                          54640                   SA6    A4                                                      IO       3427
                               54720              SA7    A2          T.TB (OLD STACK TOP) = TOKOT                IO       3428
          2536  0400002541 +                      EQ     IOD6                                                    IO       3429
                                                                                                                 IO       3430
                                                                                                                 IO       3431
                                        **        FOUND A *(*  --  PUSH DOWN PAREN STACK.                        IO       3432
                                        *                HOWEVER, IF THIS IS A SUBSCRIPT PAREN (PRECEDING        IO       3433
                                        *                ELEMENT IS *O.VAR*), SKIP OVER THE SUBSCRIPT AND ANY    IO       3434
                                        *                PAIRED PARENS WITHIN IT, AND DO NOT MESS UP THE STACK.  IO       3435
                                                                                                                 IO       3436
          2537  10244                    IOD5     BX2    X4                                                      IO       3437
                     20201                        HX2    TB.EQL                                                  IO       3438
                          0332002546 +            MI     X2,IOD8     IF IMPLIED DO WITHIN THIS PAREN LEVEL       IO       3439
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    85
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           IOD 
  
          2540  20430                             LX4    -TB.IOCPP                                               IO       3440
                     53440                        SA4    X4          SWOOP IMMEDIATELY TO MATCHING RIGHT PAREN   IO       3441
          2541  5024000001               IOD6     SA2    A4+1                                                    IO       3442
                          0302002522 +            ZR     X2,IOD2     IF *EOS*                                    IO       3443
          2542  6222777763                        SB2    X2-O.SEP                                                IO       3444
                          0720002545 +            MI     B2,IOD7     IF VARIABLE OR SOME FLAVOR OF CONSTANT      IO       3445
          2543  6222777740                        SB2    X2-O.LP                                                 IO       3446
                          0520002522 +            NZ     B2,IOD2     IF NOT *(*                                  IO       3447
                                                  SBIT   X2,TB.COLP                                              IO       3448
          2544  0332002522 +                      MI     X2,IOD2     SUBSTRING OK                                IO       3449
          2545  6042000000               IOD7     SB4    A2+                                                     IO       3450
                          0400000000 X            EQ     E.IOD4                                                  IO       3451
                                                                                                                 IO       3452
          2546  43752                    IOD8     MX7    -TB.LLPL                                                IO       3453
                     76050                        SX0    B5                                                      IO       3454
                                   0              ERRNZ  18-TB.LLPL                                              IO       3455
                          20452                   LX4    -TB.LLPP                                                IO       3456
                               11174              BX1    X7*X4       THISTOK(LLP) = 0                            IO       3457
          2547  66661                             SB6    B6+B1       PL = PL + 1                                 IO       3458
                     20152                        LX1    TB.LLPP-TB.IOCPP                                        IO       3459
                                                  IFNE   TB.LLPL,TB.IOCPL,1                                      IO       3460
                                                  MX7    -TB.IOCPL                                               IO       3461
                          11471                   BX4    X7*X1       THISTOK(IOCP) = 0                           IO       3462
                               12740              BX7    X4+X0       THISTOK(IOCP) = OLD STACK TOP               IO       3463
          2550  20744                             LX7    TB.IOCPP                                                IO       3464
                     64540                        SB5    A4          NEW STACK TOP = HERE                        IO       3465
                          54740                   SA7    A4          THIS PAREN LINKS BACK TO LAST ONE           IO       3466
          2551  0400002522 +                      EQ     IOD2                                                    IO       3467
  
  
  
  
                                        **        C=DOCI - PROCESS I/O DO COLLAPSE INDUCTION VARIABLES           IO       3469
                                        *                                                                        IO       3470
                                                                                                                 IO       3471
                                                                                                                 IO       3472
          2552                           A=DOCI   BSSENT 0           ENTRY...                                    IO       3473
          2552  67441                             =B4    B4-1                                                    IO       3474
          2553                           C=DOCI   BSSENT 0           ENTRY...                                    IO       3475
          2553  43071                             MX0    -TP.MODEL                                               FC5A249    27
                                                  LX5    -TP.MODEP                                               FC5A249    28
                     15050                        BX0    -X0*X5                                                  FC5A249    29
                                                  LX5    TP.MODEP                                                FC5A249    30
                          6220777775              SB2    X0-M.INT                                                FC5A249    31
          2554  0420002555 +                      ZR     B2,DOCI5    IF VARIABLE IS INTEGER                      FC5A249    32
                          0310002446 +            NZ     X0,IDCEX    IF NOT BOOLEAN                              FC5A249    33
                                   0              ERRNZ  M.BOOL                                                  FC5A249    34
                                                                                                                 FC5A249    35
          2555  10655                    DOCI5    BX6    X5                                                      FC5A249    36
                     5110002464 +                 SA1    IDCF                                                    IO       3477
                               56240              SA2    B4                                                      IO       3478
          2556  5261002512 +                      SA6    X1+IDCIND                                               IO       3479
                          6222777735              SB2    X2-O.COMMA                                              IO       3480
          2557  6232777737                        SB3    X2-O.)                                                  IO       3481
                          66441                   =B4    B4+1                                                    IO       3482
          2560  0430000000 X                      ZR     B3,PAREXIT  IF END OF INDUCTION VARIABLES               IO       3483
                          73611                   =X6    X1+1                                                    IO       3484
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    86
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           C=DOCI
  
          2561  0520402561 +                      NZ     B2,"BLOWUP" IF NOT *,* - ERROR                          IO       3485
                          6226777774              =B2    X6-3                                                    IO       3486
          2562  0620002446 +                      PL     B2,IDCEX    IF TOO MANY INDUCTION VARIABLES             IO       3487
                          54610                   SA6    A1          INCREMENT                                   IO       3488
          2563  0400000000 X                      EQ     PAR.NX      PICK UP NEXT INDUCTION VARIABLE             IO       3489
  
  
  
  
                                        **        C=DOCS - PROCESS I/O DO COLLAPSE SUBSCRIPTS                    IO       3491
                                        *                                                                        IO       3492
                                        *         IF THE TP. RETURNED BY *PAR* IS A SIMPLE INTEGER VARIABLE, THE IO       3493
                                        *         ORDINAL WILL BE SAVED IN IDCIDX.  OTHERWISE, A STOP COLLAPSE   IO       3494
                                        *         INDICATOR IS STORED.                                           FC5A214    32
                                                                                                                 IO       3496
                                                                                                                 IO       3497
          2564                           A=DOCS   BSSENT 0           ENTRY...                                    IO       3498
          2564  67441                             =B4    B4-1                                                    IO       3499
                                                                                                                 FC50573     5
          2565                           C=DOCS   BSSENT 0           ENTRY...                                    IO       3500
          2565  43071                             MX0    -TP.MODEL                                               IO       3501
                     22205                        LX2    X5                                                      IO       3502
                          43674                   MX6    -0          NON-COLLAPSE INDICATOR                      IO       3503
                                                  LX2    -TP.MODEP                                               IO       3504
                               15220              BX2    -X0*X2      ISOLATE MODE                                IO       3505
          2566  7222777775                        SX2    X2-M.INT                                                IO       3506
                          0312002574 +            NZ     X2,DOCS5    IF NOT INTEGER, STOP COLLAPSE               IO       3507
          2567  11250                             BX2    X5*X0       REMOVE MODE                                 IO       3508
                                   0              ERRNZ  TP.MODEP                                                IO       3509
                     5110002771 +                 SA1    ="IDCEXC"   FETCH EXCLUSION MASK                        IO       3510
                               11212              BX2    X1*X2                                                   IO       3511
          2570  0312002574 +                      NZ     X2,DOCS5    IF NOT SIMPLE VARIABLE                      IO       3512
                          5110000000 X            SA1    S=CON                                                   FC5A211    63
          2571  10255                             BX2    X5                                                      FC5A211    64
                                                  HX2    TP.ORD                                                  FC5A211    65
                     21254                        AX2    -TP.ORDL    EXTRACT THE ORDINAL                         FC5A211    66
                          37112                   IX1    X1-X2                                                   FC5A211    67
          2572  0301002574 +                      ZR     X1,DOCS5    IF CONSTANT                                 IO       3517
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS FORM                   FC5A211    68
          2573  22605                             LX6    X5                                                      IO       3518
                                                                                                                 IO       3519
          2574  20561                    DOCS5    SBIT   X5,TP.INTRP                                             FC50460     5
                     0335002446 +                 MI     X5,IDCEX    IF EXPRESSION, NO COLLAPSE                  FC50460     6
                               20513              LX5    1+TP.INTRP  RESTORE                                     FC50460     7
          2575  5110002463 +                      SA1    IDCE                                                    FC50460     8
                          5261002502 +            SA6    X1+IDCIDX   STORE COLLAPSE INDEX INFORMATION            IO       3521
          2576  63210                             SB2    X1          FOR SUBSCRIPT DUPLICATION CHECK             FC5A247     5
                     5120002465 +                 SA2    IDCG        FETCH NUMBER OF DIMENSIONS                  IO       3524
                               37212              IX2    X1-X2                                                   IO       3526
          2577  0322002446 +                      PL     X2,IDCEX    IF DIMENSIONALITY EXCEEDED                  IO       3528
                          73711                   =X7    X1+1        INCREMENT SUBSCRIPT COUNT                   FC5A247     6
                               54710              SA7    A1                                                      IO       3530
          2600  5110000000 +                      SA1    IODIR                                                   FC5A256    13
                          0311002603 +            NZ     X1,DOCS10   IF NOT INPUT                                FC5A256    14
          2601  5110002474 +                      SA1    IDCM        BASE/BIAS FORM ARRAY                        FC5A256    15
                          13661                   BX6    X6-X1                                                   FC5A256    16
                               43154              MX1    -TP.ORDL                                                FC5A256    17
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    87
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           C=DOCS
  
          2602  20620                             LX6    -TP.ORDP                                                FC50573     6
                     15661                        BX6    -X1*X6                                                  FC5A256    19
                          0306002446 +            ZR     X6,IDCEX    IF INTERFERENCE                             FC5A256    20
                                                                                                                 FC5A256    21
          2603                           DOCS10   BSS    0                                                       FC5A256    22
          2603  0420002607 +                      ZR     B2,DOCS12   IF FIRST SUBSCRIPT                          FC5A247     7
                          6122777776              SB2    B2-1                                                    FC5A247     8
          2604  5110002502 +                      SA1    IDCIDX                                                  FC5A247     9
                                                                                                                 FC5A247    10
          2605  54212                    DOCS11   SA2    A1+B2                                                   FC5A247    11
                     37252                        IX2    X5-X2                                                   FC5A247    12
                          0302002446 +            ZR     X2,IDCEX    IF SUBSCRIPT DUPLICATION                    FC5A247    13
          2606  6122777776                        SB2    B2-1                                                    FC5A247    14
                          0620002605 +            PL     B2,DOCS11   IF MORE TO CHECK                            FC5A247    15
                                                                                                                 FC5A247    16
          2607                           DOCS12   BSS    0                                                       FC5A247    17
          2607  56240                             SA2    B4                                                      IO       3531
                     6222777737                   SB2    X2-O.)                                                  IO       3532
          2610  6232777735                        SB3    X2-O.COMMA                                              IO       3533
                          66441                   =B4    B4+1                                                    IO       3534
          2611  0420000000 X                      ZR     B2,PAREXIT  IF SUBSCRIPTS COMPLETED                     IO       3535
                          67661                   =B6    B6-1        REMOVE OPERAND FROM ESTACK                  IO       3536
          2612  0430000000 X                      ZR     B3,PAR.NX   IF MORE SUBSCRIPTS TO PROCESS               IO       3537
                                                  IFEQ   TEST,ON,1                                               IO       3538
                                                  EQ     "BLOWUP"    SOMETHING WENT WRONG                        IO       3539
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    88
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           PAX 
  
                                        **        PAX - PREPARE ARRAY CROSS-SECTION FOR ISSUE.                   FC5A218   104
                                        *                                                                        FC5A218   105
                                        *         PAX USES THE *LCI* APPENDED TO T.IOA FOR 3 TASKS:              FC5A218   106
                                        *         1) CALL *CML* TO DETERMINE IF RESTART IS NEEDED DUE TO         FC5A218   107
                                        *            A VARIABLE UPPER LIMIT BEING DEFINED PREVIOUSLY IN LIST.    FC5A218   108
                                        *         2) ADD ALL CONTROL VARIABLES TO *ILI* (CALL *AII*) SO          FC5A218   109
                                        *            THEY ARE MARKED AS DEFINED FOR FUTURE INTERFERENCE.         FC5A218   110
                                        *         3) EMIT TURPLES TO T.IOLC FOR DEFINING ALL CONTROL VARIABLES.  FC5A218   111
                                        *            THESE WILL BE OUTPUT TO *T.PAR* WHEN THE *IOSUB* TURPLE IS  FC5A218   112
                                        *            EMITTED (IN *IOJ*).                                         FC5A218   113
                                        *                                                                        FC5A218   114
                                        *         EXIT   *LCI* DEALLOCATED FROM *T.IOA* .                        FC5A218   115
                                        *                                                                        FC5A218   116
                                        *         PRESERVES   X5, B4-B6                                          FC5A218   117
                                                                                                                 FC5A218   118
          2613  0400402613 +             PAX      SUBR                                                           FC5A218   119
          2614  5140002501 +                      SA4    TL=LCI                                                  FC5A218   120
                          5120000000 X            SA2    T=IOA                                                   FC5A248    32
          2615  0304002613 +                      ZR     X4,EXIT.    IF NO *LCI* ON FILE                         FC5A218   122
                          43600                   MX6    0                                                       FC5A248    33
                               37724              IX7    X2-X4                                                   FC5A248    34
          2616  5160002706 +                      SA6    PAXF                                                    FC5A248    35
                          5160002707 +            SA6    PAXG                                                    FC5A248    36
          2617  5170002710 +                      SA7    PAXH        OFFSET FOR *LCI* ON T.IOA                   FC5A248    37
                          10655                   BX6    X5                                                      FC5A218   123
          2620  5160002704 +                      SA6    PAXD                                                    FC5A218   124
                          76760                   SX7    B6                                                      FC5A218   125
          2621  5170002705 +                      SA7    PAXE                                                    FC5A218   126
                          76650                   SX6    B5                                                      FC5A218   127
                               37024              IX0    X2-X4                                                   FC5A218   128
          2622  5160002701 +                      SA6    PAXA                                                    FC5A218   129
                          5120000000 X            SA2    T.IOA                                                   FC5A218   130
          2623  36020                             IX0    X2+X0                                                   FC5A218   131
                     5220000002                   =A2    X0+2        FIRST LIMIT                                 FC5A218   132
                               10544              BX5    X4                                                      FC5A218   133
                                                                                                                 FC5A218   134
                                        *         CALL CML ON ANY VARIABLE LIMIT.                                FC5A218   135
                                                                                                                 FC5A218   136
          2624  10622                    PAX10    BX6    X2                                                      FC5A218   137
                     7244777774                   SX4    X4-3                                                    FC5A218   138
                               20657              HX6    TP.SHRT                                                 FC5A218   139
          2625  5022000003                        SA2    A2+3        NEXT LIMIT                                  FC5A218   140
                          0326002627 +            PL     X6,PAX20    IF LIMIT IS NOT CONSTANT                    FC5A218   141
          2626  0314002624 +                      NZ     X4,PAX10    IF MORE LIMITS                              FC5A218   142
                          0400002630 +            EQ     PAX30                                                   FC5A218   143
                                                                                                                 FC5A218   144
          2627  20615                    PAX20    LX6    TP.SHRTP+1  RESTORE LIMIT                               FC5A218   145
                     76010                        =X0    1                                                       FC5A218   146
                          0100001463 +            RJ     CML         CHECK FOR RESTART                           FC5A218   147
                                                                                                                 FC5A218   148
          2630  63650                    PAX30    SB6    X5                                                      FC5A218   149
          2631  5130000000 X             PAX40    SA3    T.IOA                                                   FC5A248    38
                          5110002710 +            SA1    PAXH                                                    FC5A248    39
          2632  5120000000 X                      SA2    WO.DOOT                                                 FC5A248    40
                          0312002652 +            NZ     X2,PAX50    IF DO = OT                                  FC5A248    41
          2633  5120002707 +                      SA2    PAXG                                                    FC5A248    42
                          20257                   HX2    TP.SHRT                                                 FC5A248    43
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    89
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           PAX 
  
          2634  0322002652 +                      PL     X2,PAX50    IF LAST LOOP NOT VARIABLE TRIP COUNT        FC5A248    44
                          43600                   MX6    0                                                       FC5A248    45
                               54620              SA6    A2          MARK BRANCH CODE OUT                        FC5A248    46
                                                                                                                 FC5A248    47
                                        *         ISSUE BRANCH CODE TO PROTECT INNER CONTROL VARIABLE            FC5A248    48
                                        *         DEFINITIONS FROM ZERO TRIP COUNT OF OUTER LOOP, VIZ. DO NOT    FC5A248    49
                                        *         REDEFINE I IN                                                  FC5A248    50
                                        *         N=0                                                            FC5A248    51
                                        *         READ(1)((A(I,J),I=1,10),J=1,N)                                 FC5A248    52
                                                                                                                 FC5A248    53
          2635  5110000000 X                      SA1    N.GL                                                    FC5A248    54
                          10611                   BX6    X1                                                      FC5A248    55
                               76210              =X2    1                                                       FC5A248    56
          2636  73711                             =X7    X1+1        N.GL = N.GL + 1                             FC5A248    57
                     20216                        LX2    TP.GLP                                                  FC5A248    58
                          54710                   SA7    A1                                                      FC5A248    59
                               20154              LX1    TP.ORDP                                                 FC5A248    60
          2637  12612                             BX6    X1+X2                                                   FC5A248    61
                     10466                        BX4    X6                                                      FC5A248    62
                          5160002706 +            SA6    PAXF        SAVE GL OPERAND                             FC5A248    63
          2640  5150002702 +                      SA5    PAXB        INITIAL                                     FC5A248    64
                          5110000002 X            SA1    OPDUM+O.2ND-O.NONE                                      FC5A248    65
          2641  7100000000 X                      SX0    V=LCIF                                                  FC5A248    66
                          20052                   LX0    SP.SKELP                                                FC50104    70
                               12601              BX6    X0+X1                                                   FC5A248    68
          2642  5160000003 +                      SA6    IODTH                                                   FC5A248    69
                          5110000000 X            EMIT   IODTH,*,T.IOLC                                          FC5A248    70
          2644  5110000003 X                      SA1    OPDUM+O.BOTH-O.NONE                                     FC5A248    71
                          7100000000 X            SX0    V=NOOP                                                  FC5A248    72
          2645  20052                             LX0    SP.SKELP                                                FC50104    71
                     12601                        BX6    X0+X1                                                   FC5A248    74
                          5160000003 +            SA6    IODTH                                                   FC5A248    75
          2646  5140002703 +                      SA4    PAXC        UPPER LIMIT                                 FC5A248    76
                          5150000000 X            SA5    CONONE      INCREMENT                                   FC5A248    77
          2647  5110000000 X                      EMIT   IODTH,*,T.IOLC                                          FC5A248    78
          2651  5130000000 X                      SA3    T.IOA                                                   FC5A248    79
                          5110002710 +            SA1    PAXH                                                    FC5A248    80
                                                                                                                 FC5A248    81
          2652  6166777774               PAX50    SB6    B6-3                                                    FC5A248    82
                          36331                   IX3    X3+X1       (T.IOA) + LCI OFFSET                        FC5A248    83
                               53436              SA4    X3+B6       NEXT *CV*                                   FC5A248    84
          2653  5150000000 X                      SA5    CONONE                                                  FC5A218   157
                          54341                   =A3    A4+1        NEXT INITIAL                                FC5A218   158
                               54231              =A2    A3+1        NEXT LIMIT                                  FC5A218   159
          2654  14633                             BX6    -X3                                                     FC5A248    85
                     16762                        BX7    -X2+X6                                                  FC5A248    86
                          5170002707 +            SA7    PAXG                                                    FC5A248    87
          2655  10633                             BX6    X3                                                      FC5A218   160
                     10722                        BX7    X2                                                      FC5A218   161
                          5160002702 +            SA6    PAXB                                                    FC5A218   162
          2656  5170002703 +                      SA7    PAXC                                                    FC5A218   163
                          0100001555 +            RJ     AII         ADD CONTROL VARIABLE TO *ILI*               FC5A218   164
          2657  5110000003 X                      SA1    OPDUM+O.BOTH-O.NONE                                     FC5A248    88
                          7100000000 X            SX0    V=IOLC                                                  FC5A248    89
          2660  20052                             LX0    SP.SKELP                                                FC50104    72
                     12601                        BX6    X0+X1                                                   FC5A218   168
                          5160000003 +            SA6    IODTH                                                   FC5A218   169
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    90
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           PAX 
  
          2661  5150002702 +                      SA5    PAXB                                                    FC5A218   170
                          5110000000 X            EMIT   IODTH,*,T.IOLC    EMIT FIRST HALF OF IOLC TURPLE        FC5A218   171
          2663  5110000003 X                      SA1    OPDUM+O.BOTH-O.NONE                                     FC5A218   172
                          7100000000 X            SX0    V=NOOP                                                  FC5A248    90
          2664  20052                             LX0    SP.SKELP                                                FC50104    73
                     12601                        BX6    X0+X1                                                   FC5A218   175
                          5160000003 +            SA6    IODTH                                                   FC5A218   176
          2665  5140002703 +                      SA4    PAXC                                                    FC5A218   177
                          5150000000 X            SA5    CONONE      INCREMENT                                   FC5A218   178
          2666  5110000000 X                      EMIT   IODTH,*,T.IOLC                                          FC5A218   179
          2670  0560002631 +                      NZ     B6,PAX40    IF MORE ENTRIES                             FC5A218   183
                          5110002501 +            SA1    TL=LCI                                                  FC5A218   184
          2671  5120000000 X                      SA2    T=IOA                                                   FC5A218   185
                          43700                   MX7    0                                                       FC5A218   186
                               37621              IX6    X2-X1                                                   FC5A218   187
          2672  54710                             SA7    A1          TL=LCI  = 0                                 FC5A218   188
                     5160000000 X                 SHRINK T=IOA,X6    DEALLOCATE *LCI*                            FC5A218   189
          2673  5140002706 +                      SA4    PAXF                                                    FC5A248    91
                          0304002676 +            ZR     X4,PAX60    IF NO PROTECT CODE ISSUED                   FC5A248    92
          2674  43500                             MX5    0                                                       FC5A248    93
                     5110000000 X                 EMIT   OPBSS,*,T.IOLC                                          FC5A248    94
                                                                                                                 FC5A248    95
          2676  5110002701 +             PAX60    SA1    PAXA                                                    FC5A248    96
                          63510                   SB5    X1                                                      FC5A218   191
          2677  5120002704 +                      SA2    PAXD                                                    FC5A218   192
                          5130002705 +            SA3    PAXE                                                    FC5A218   193
          2700  10522                             BX5    X2                                                      FC5A218   194
                     63630                        SB6    X3                                                      FC5A218   195
                          0400002613 +            EQ     EXIT.                                                   FC5A218   196
                                                                                                                 FC5A218   197
          2701                     1     PAXA     BSS    1                                                       FC5A218   198
          2702                     1     PAXB     BSS    1                                                       FC5A218   199
          2703                     1     PAXC     BSS    1                                                       FC5A218   200
          2704                     1     PAXD     BSS    1                                                       FC5A218   201
          2705                     1     PAXE     BSS    1                                                       FC5A218   202
          2706                     1     PAXF     BSS    1                                                       FC5A248    97
          2707                     1     PAXG     BSS    1                                                       FC5A248    98
          2710                     1     PAXH     BSS    1                                                       FC5A248    99
  
  
  
  
                                        **        PCI -  PARSE COLLAPSE ITEMS.                                   IO       3546
                                        *                                                                        IO       3547
                                        *         CALLS PARSER FOR IDC.  PREFIX TOKEN STRING WITH A SPECIAL LEFT IO       3548
                                        *         PAREN, TO KEEP PAR HAPPY.  PERTURBED TOKEN RESTORED BEFORE     IO       3549
                                        *         NORMAL EXIT. IF PAR ERROR EXITS, TOKEN MUST BE RESTORED BY     IO       3550
                                        *         CALLER.                                                        IO       3551
                                        *                                                                        IO       3552
                                        *         ENTRY  (B4) _ TOKEN PRECEDING INTERESTING ONES.                IO       3553
                                        *                (X4) = ((B4)) = TOKEN TO RESTORE.                       IO       3554
                                        *                (X1) = ARGMODE FOR PAR.                                 IO       3555
                                                                                                                 IO       3556
                                                                                                                 IO       3557
          2711  0400402711 +             PCI      SUBR   0           ENTRY/EXIT...                               IO       3558
          2712  10744                             BX7    X4                                                      IO       3559
                     76640                        SX6    B4                                                      IO       3560
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    91
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           PCI 
  
                          5170002472 +            SA7    IDCK+1      SAVE TOKEN                                  IO       3561
          2713  55671                             SA6    A7-B1       SAVE ADDRESS                                IO       3562
                     7170000044                   SX7    O.SLP                                                   IO       3563
                               10611              BX6    X1                                                      IO       3564
          2714  56740                             SA7    B4                                                      IO       3565
                     5160000000 X                 SA6    ARGMODE                                                 IO       3566
          2715  0100000000 X                      CALL   PAR         PARSE COLLAPSE ITEMS                        IO       3567
          2716  5110002471 +                      SA1    IDCK                                                    IO       3568
                          54211                   SA2    A1+B1       FETCH ORIGINAL TOKEN                        IO       3569
                               43600              MX6    0                                                       IO       3570
          2717  10722                             BX7    X2                                                      IO       3571
                     54610                        SA6    A1          CLEAR TOKEN RESTORATION FLAG                IO       3572
                          53710                   SA7    X1          RESTORE                                     IO       3573
          2720  0400002711 +                      EQ     EXIT.                                                   IO       3574
  
  
  
  
                                                  LIST   D                                                       IO       3576
  
                                        CONTENT OF LITERALS BLOCK.
  
          2721  25161124000000000000    UNIT
          2722  05160400000000000000    END 
          2723  05222200000000000000    ERR 
          2724  06152400000000000000    FMT 
          2725  11172324012400000000    IOSTAT
          2726  22050300000000000000    REC 
          2727  53000000000000000000    $ 
          2730  01030305232300000000    ACCESS
          2731  02140116130000000000    BLANK 
          2732  02250614000000000000    BUFL
          2733  04112205032400000000    DIRECT
          2734  05301123240000000000    EXIST 
          2735  06111405000000000000    FILE
          2736  06172215000000000000    FORM
          2737  06172215012424000000    FORMATT 
          2740  05040000000000000000    ED
          2741  16011505000000000000    NAME
          2742  16011505040000000000    NAMED 
          2743  16053024220503000000    NEXTREC 
          2744  16251502052200000000    NUMBER
          2745  17200516050400000000    OPENED
          2746  22050314000000000000    RECL
          2747  23052125051624000000    SEQUENT 
          2750  11011400000000000000    IAL 
          2751  23240124252300000000    STATUS
          2752  25160617221501000000    UNFORMA 
          2753  24240504000000000000    TTED
          2754  25000000040000000000    U   D 
          2755  25006777720000000000    U &;< 
          2756  25007140240000000000    U ?5T 
          2757  25000000000000000000    U 
          2760  17252420252400000000    OUTPUT
          2761  20251603100000000000    PUNCH 
          2762  11162025240000000000    INPUT 
          2763  37400000000000000000    45
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    92
        PARSE, COLLAPSE + TRANSLATE I/O/DATA VARIABLE LIST.           LITERALS
  
          2764  27400000000000000000    W5
          2765  00000000004000000100         5  A 
          2766  24012005000000000000    TAPE
          2767  00200000000000000120     P      AP
          2770  77777777777774000000    ;;;;;;@ 
          2771  00000377777774076177      C;;;@G[;
  
          2772                                    END                                                            IO       3577
  
                             75700B CM  STORAGE USED            12152 STATEMENTS     1953 SYMBOLS      000066 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            9.979 SECONDS        3124 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/15 X   57/55     83/43
        AII          1555   PROGRAM*       51/21     57/10 L   80/55     89/52
        AIIA            0   EXTERNAL*      57/12 S   57/27     57/57     58/05     58/08 D
        AII20        1566   PROGRAM*       57/17     57/34 L
        AII30        1576   PROGRAM*       57/30     57/32     57/52 L
        AII35        1602   PROGRAM*       57/35     57/57 L
        ALC             0   EXTERNAL*       2/15 X   10/22     11/39     15/51     20/48     30/43     76/28
        AM.REFL        14   FTX            21/30     21/32     21/44     21/47     62/26
        AM.REFP        60   FTX            21/06     21/32     21/47     24/04     33/09
                                           21/29     21/45     23/29     29/30
        ANSI=           0   EXTERNAL*       2/54 X   13/35     20/15     23/14     35/54     46/05     60/21     61/07
        ARGCOMA         0   EXTERNAL*       2/21 X   21/26 S   29/35 S
        ARGMODE         0   EXTERNAL*       2/21 X   21/08 S   21/50 S   24/06 S   33/11 S   37/16 S   60/08     67/47 S
                                           16/48 S   21/34 S   23/31 S   25/44 S   36/25 S   59/47 S   62/41 S   91/06 S
        ARYOP           0   EXTERNAL*       2/51 X   80/23
        A=BLWA       1206   PROGRAM*       41/37 L   41/37 E
        A=BMOD       1176   PROGRAM*       41/08 L   41/08 E
        A=DOCI       2552   PROGRAM*       85/37 L   85/37 E
        A=DOCS       2564   PROGRAM*       86/17 L   86/17 E
        A=FMT        1277   PROGRAM*       45/31 L   45/31 E   46/51
        A=FOU        1325   PROGRAM*       46/33 L   46/33 E
        A=ICC        1335   PROGRAM*       47/16 L   47/16 E
        A=ICCX       1346   PROGRAM*       47/45 L   47/45 E
        A=ICI        1355   PROGRAM*       48/19 L   48/19 E
        A=ICIX       1366   PROGRAM*       48/50 L   48/50 E
        A=ICL        1377   PROGRAM*       49/27 L   49/27 E
        A=STR        1451   PROGRAM*       51/44 L   51/44 E
        A=UNT        1456   PROGRAM*       46/39     52/06 L   52/06 E
        BBC             0   EXTERNAL*       2/21 X   44/40     57/52     71/51     73/55     74/49     86/39
                                           41/44     53/04     70/24     72/17     74/01     74/52
        BLWA         1260   PROGRAM*       44/15 L   44/15 E
        BLWA10       1237   PROGRAM*       42/50     43/01 L
        BLWA20       1250   PROGRAM*       43/26     43/39 L
        BLWA26       1254   PROGRAM*       43/33     44/01 L
        BLWA28       1257   PROGRAM*       42/52     44/12 L
        BLWA3        1224   PROGRAM*       41/55     42/21 L
        BLWA30       1260   PROGRAM*       42/51     43/06     44/03     44/17 L
        BLWA4        1226   PROGRAM*       42/05     42/19     42/21     42/28 L
        BLWA5        1233   PROGRAM*       42/36     42/43 L
        BMOD1        1203   PROGRAM*       41/13     41/14     41/17     41/20 L
        BUFA          465   PROGRAM*       20/18     22/11 L
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        BUFERR        462   PROGRAM*       22/05 L   22/05 E   41/41     44/37
        BUFFWA          0   EXTERNAL*       2/47 X   21/27
        BUFLWA          0   EXTERNAL*       2/47 X   21/41
        BUFMOD          0   EXTERNAL*       2/47 X   21/02
        BUF1          417   PROGRAM*       20/27     20/31 L
        BUF2          420   PROGRAM*       20/31     20/34 L
        BUF3          444   PROGRAM*       21/20     21/26 L
        B1=1            0 
        CDD             0   EXTERNAL*       3/10 X   39/37
        CDI             0   EXTERNAL*       2/44 X   67/23
        CHAR            6   FTX             6/32      6/37      6/42      6/47      6/52      6/57      7/05     39/43
                                            6/33      6/38      6/43      6/48      6/53      7/01      7/06     40/36
                                            6/34      6/39      6/44      6/49      6/54      7/02      7/07     40/39
                                            6/35      6/40      6/45      6/50      6/55      7/03     27/49     40/41
                                            6/36      6/41      6/46      6/51      6/56      7/04     28/31     40/48
        CHARMAP         0   EXTERNAL*       2/21 X   28/45
        CH.DPCL        52   FTX            28/49
        CML          1463   PROGRAM*       52/37 L   52/37 E   77/34     88/49
        CMLA         1511   PROGRAM*       52/27     52/40 S   53/44 L
        CMLB         1514   PROGRAM*       53/47 L
        CML10        1502   PROGRAM*       53/22 L   53/28     53/36
        CML20        1507   PROGRAM*       53/32     53/40 L
        CML30        1460   PROGRAM*       52/27 L   53/08     53/23     53/42
        CNTARM          0   EXTERNAL*       2/47 X   23/26
        CNT1         1275   PROGRAM*       45/14     45/17 L
        CONONE          0   EXTERNAL*       2/57 X   25/38     46/45     60/31     72/30     79/32     90/09
                                           15/08     25/55     50/16     65/07     72/44     89/34
                                           17/17     26/30     57/26     65/26     79/09     89/42
        CONZER          0   EXTERNAL*       2/57 X   60/29
        CO.DBSB         0   EXTERNAL*       2/41 X   69/33
        CO.SNAP         0   EXTERNAL*       2/41 X
        CR.INP         22   FTX            14/08     22/45     24/17     33/30
        CR.OUT         27   FTX            13/14     13/37     14/34     22/28     24/20     33/28
        CR.REF         55   FTX            10/11     11/30
        CT1             0   EXTERNAL*       2/21 X   33/24     53/02     57/21     64/42     70/20     71/49
        CUD           527   PROGRAM*       10/31     11/45     12/01     17/52     20/49     25/22 L   37/03
        CUDA          605   PROGRAM*       16/41 S   17/12     25/45 S   27/20 L   31/24     38/21     40/01 S
                                           17/04     25/24 S   25/51     31/22 S   36/42 S   40/01     40/19
        CUD2          535   PROGRAM*       25/32     25/34 L
        CUD3          540   PROGRAM*       25/27     25/41 L
        CUD3A         563   PROGRAM*       26/24     26/27 L
        CUD4          600   PROGRAM*       26/01     26/02     27/08 L
        CUD7          601   PROGRAM*       25/39     26/32     26/57     27/06     27/08     27/11 L   27/18
        CUD9          603   PROGRAM*       25/30     26/05     26/09     26/15     26/18     26/53     27/14 L
        CURST           0   EXTERNAL*       2/47 X   30/53 S   63/20 S
        CVL          1701   PROGRAM*       60/13     62/23 L   62/23 E
        CVLAM        1737   PROGRAM*       62/40 S   64/11 L   67/45
        CVLPM        1740   PROGRAM*       10/16 S   11/35 S   29/39 S   30/11     62/34 S   63/42     64/12 L   81/04
        CVLTH        1741   PROGRAM*       62/31 S   64/13 L   80/57     81/04
        CVL1         1715   PROGRAM*       62/45     62/49 L
        CVL10        1736   PROGRAM*       62/37     64/08 L
        CVL4         1726   PROGRAM*       63/23     63/42 L
        CVL8         1731   PROGRAM*       63/22     63/54 L
        CVL.N        1716   PROGRAM*       63/16 L   63/47     66/02     66/34     67/48     68/34     68/37     68/39
        C=BFWA       1263   PROGRAM*       44/33 L   44/33 E
        C=CNT        1272   PROGRAM*       45/08 L   45/08 E
        C=DOCI       2553   PROGRAM*       85/39 L   85/39 E
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        C=DOCS       2565   PROGRAM*       86/20 L   86/20 E
        C=ERR           0   EXTERNAL*       2/47 X   51/04
        C=FMT        1300   PROGRAM*       45/33 L   45/33 E
        C=FOU        1325   PROGRAM*       46/29 L   46/29 E
        C=ICC        1336   PROGRAM*       47/19 L   47/19 E
        C=ICCX       1347   PROGRAM*       47/48 L   47/48 E
        C=ICI        1356   PROGRAM*       48/22 L   48/22 E
        C=ICIX       1367   PROGRAM*       48/53 L   48/53 E
        C=ICL        1400   PROGRAM*       49/30 L   49/30 E
        C=IOL        1410   PROGRAM*       50/08 L   50/08 E
        C=UNT        1457   PROGRAM*       52/08 L   52/08 E
        DATFLG          0   EXTERNAL*       2/21 X   30/40     51/18     62/44     69/30     76/20     77/29     80/38
        DCB          1742   PROGRAM*       63/29     64/30 L
        DCB03        1754   PROGRAM*       64/47     65/01 L
        DCB06        1761   PROGRAM*       64/56     65/10 L
        DCB09        1764   PROGRAM*       64/51     65/17 L
        DCB1         1767   PROGRAM*       65/20     65/24 L
        DCB15        1775   PROGRAM*       65/25     65/35 L
        DCB2         2003   PROGRAM*       64/37     65/48 L
        DCB3         2005   PROGRAM*       65/22     65/46     65/56 L   66/12
        DCC          2013   PROGRAM*       63/30     66/29 L
        DC=CCT          0                   5/30 D   64/34     75/33     75/36
        DC=ISV          1                   5/31 D   64/44     66/07     75/36     76/05
        DC=OFF          4                   5/34 D   76/19     80/08
        DC=SIZ          2                   5/32 D   65/33     76/05     78/08     79/57
                                           65/17     65/48     76/07     79/40
        DC=VAR          3                   5/33 D   64/36     76/07     76/19
        DDR             0   EXTERNAL*       2/44 X   56/26
        DH.ASP         72   FTX            26/52     26/54     50/56     51/06
        DH.DIML         6   FTX            70/37     70/38
        DH.DIMP         0   FTX            70/37
        DH.PSL         30   FTX            26/47     50/51
        DH.PSP         36   FTX            26/48     26/52     50/53     50/56
        DH.VDP         73   FTX            26/54     51/06
        DM.INFL        30   FTX            73/32     73/33
        DOA             0   EXTERNAL*       2/48 X   56/08     57/34
        DOB          2015   PROGRAM*       63/27     66/51 L
        DOBA         2035   PROGRAM*       67/18 S   67/26     67/50 L
        DOB1         2021   PROGRAM*       66/53     67/02 L
        DOB8         2033   PROGRAM*       66/54     66/57     67/45 L
        DOC          2036   PROGRAM*       63/28     68/15 L
        DOCI5        2555   PROGRAM*       85/45     85/49 L
        DOCOLI          0   EXTERNAL*       2/47 X   72/35
        DOCOLS          0   EXTERNAL*       2/47 X   71/13
        DOCS10       2603   PROGRAM*       86/54     87/05 L
        DOCS11       2605   PROGRAM*       87/10 L   87/14
        DOCS12       2607   PROGRAM*       87/06     87/16 L
        DOCS5        2574   PROGRAM*       86/27     86/32     86/38     86/42 L
        DOC2         2040   PROGRAM*       68/21 L   68/25
        DOC4         2043   PROGRAM*       68/23     68/27 L
        DOC6         2045   PROGRAM*       68/29     68/32 L
        DUC=            0   FTX            30/35
        DUC=BOTH        3   FTX            64/55     65/08     65/39     77/54     78/39     79/10     79/45
                                           65/01     65/27     66/11     78/23     78/55     79/33
        D1.SPANL       36   FTX            73/20
        D1.SPANP        0   FTX            73/20
        D1.W            0   FTX            73/19
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        D2.LBL         36   FTX            72/56
        D2.UBP          0   FTX            73/32
        D2.W            1   FTX            72/52     73/19
        EMT             0   EXTERNAL*       2/48 X   30/35     54/44     65/08     78/23     79/45     89/35
                                           11/11     31/24     60/32     65/27     78/39     80/26     90/02
                                           12/25     36/43     60/43     65/39     78/55     81/09     90/10
                                           15/10     46/47     64/55     66/11     79/10     81/12     90/21
                                           22/08     51/31     65/01     77/54     79/33     89/27
        ERROP           0   EXTERNAL*       2/48 X   22/08
        ERT             0   EXTERNAL*       2/21 X   34/14     40/08     81/19
        ESY             0   EXTERNAL*       2/21 X   39/55
        E.ANS           0   EXTERNAL*       2/25 X   13/35     20/15     23/14
        E.IOB0          0   EXTERNAL*       2/25 X   41/43     44/39
        E.IOB1          0   EXTERNAL*       2/25 X   20/30
        E.IOB2          0   EXTERNAL*       2/25 X   41/12     41/22
        E.IOB3          0   EXTERNAL*       2/25 X   20/32     21/22
        E.IOB4          0   EXTERNAL*       2/25 X   21/01     21/39
        E.IOB5          0   EXTERNAL*       2/25 X   21/19     21/54
        E.IOB6          0   EXTERNAL*       2/26 X   44/13
        E.IOB7          0   EXTERNAL*       2/26 X   41/39     44/35
        E.IOB8          0   EXTERNAL*       2/26 X   41/18
        E.IOB9          0   EXTERNAL*       2/26 X   43/03     43/25     43/41     43/47
        E.IOD1          0   EXTERNAL*       2/27 X   83/40
        E.IOD2          0   EXTERNAL*       2/27 X   84/26
        E.IOD3          0   EXTERNAL*       2/27 X   84/40
        E.IOD4          0   EXTERNAL*       2/27 X   85/12
        E.IOF           0   EXTERNAL*       2/27 X   45/53     45/54     45/57     46/04
        E.IOF1          0   EXTERNAL*       2/27 X   46/05
        E.IOF2          0   EXTERNAL*       2/27 X   46/09
        E.IOL1          0   EXTERNAL*       2/28 X   60/21
        E.IOL2          0   EXTERNAL*       2/28 X   58/02
        E.IOL5          0   EXTERNAL*       2/28 X   60/35
        E.IOL6          0   EXTERNAL*       2/28 X   51/03
        E.ION           0   EXTERNAL*       2/28 X   61/22
        E.ION1          0   EXTERNAL*       2/28 X   61/07
        E.IOS1          0   EXTERNAL*       2/29 X   23/24
        E.IOS10         0   EXTERNAL*       2/30 X   51/49
        E.IOS2          0   EXTERNAL*       2/29 X   23/39
        E.IOS3          0   EXTERNAL*       2/29 X   23/47
        E.IOS4          0   EXTERNAL*       2/29 X   23/52
        E.IOS5          0   EXTERNAL*       2/29 X   24/11
        E.IOS6          0   EXTERNAL*       2/29 X   23/23     23/38     23/51
        E.IOS7          0   EXTERNAL*       2/29 X   51/46
        E.IOS8          0   EXTERNAL*       2/29 X   23/46
        E.IOS9          0   EXTERNAL*       2/30 X   45/11     45/16
        E.IO00          0   EXTERNAL*       2/31 X   17/24     26/04
        E.IO01          0   EXTERNAL*       2/31 X   10/25     11/43     37/43
        E.IO02          0   EXTERNAL*       2/31 X   59/37
        E.IO03          0   EXTERNAL*       2/31 X   39/22     39/29
        E.IO04          0   EXTERNAL*       2/31 X   25/29
        E.IO05          0   EXTERNAL*       2/31 X   47/29     48/02     48/34     48/34     49/40
        E.IO06          0   EXTERNAL*       2/31 X   11/49
        E.IO07          0   EXTERNAL*       2/31 X   32/29     32/50
        E.IO08          0   EXTERNAL*       2/32 X   18/20     18/35
        E.IO09          0   EXTERNAL*       2/32 X   18/23
        E.IO10          0   EXTERNAL*       2/32 X   34/50
        E.IO11          0   EXTERNAL*       2/32 X   35/03
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        E.IO12          0   EXTERNAL*       2/32 X   35/10
        E.IO13          0   EXTERNAL*       2/32 X   18/26
        E.IO14          0   EXTERNAL*       2/32 X   64/05
        E.IO15          0   EXTERNAL*       2/32 X   36/11
        E.IO16          0   EXTERNAL*       2/33 X   10/38     10/46     12/07     15/18     34/53     37/30
        E.IO17          0   EXTERNAL*       2/33 X   49/03     49/06     49/12
        E.IO18          0   EXTERNAL*       2/33 X   47/22     48/25     49/33
        E.IO19          0   EXTERNAL*       2/33 X   10/26     14/39
        E.IO20          0   EXTERNAL*       2/33 X   37/51
        E.IO21          0   EXTERNAL*       2/33 X   37/52
        E.IO22          0   EXTERNAL*       2/33 X   35/54
        E.IO23          0   EXTERNAL*       2/33 X   26/19
        E.IO24          0   EXTERNAL*       2/34 X   26/51
        E.IO25          0   EXTERNAL*       2/34 X   19/09
        E.IO26          0   EXTERNAL*       2/34 X   26/17     32/19
        E.IO28          0   EXTERNAL*       2/34 X   19/04
        E.IO29          0   EXTERNAL*       2/34 X   19/07
        E.IO30          0   EXTERNAL*       2/34 X   26/08
        E.IO31          0   EXTERNAL*       2/34 X   40/43
        E.IO32          0   EXTERNAL*       2/35 X   40/50
        E.IO33          0   EXTERNAL*       2/35 X   26/11     33/53
        E.IO34          0   EXTERNAL*       2/35 X   18/09
        E.IO35          0   EXTERNAL*       2/35 X   18/11
        E.IO36          0   EXTERNAL*       2/26 X   45/49
        E.IO37          0   EXTERNAL*       2/26 X   10/56
        E.MDE3          0   EXTERNAL*       2/30 X   20/16
        E.MDE4          0   EXTERNAL*       2/30 X   23/15
        FAT             0   EXTERNAL*       2/48 X   30/20
        FII          1606   PROGRAM*       53/06     57/53     58/25 L
        FII10        1615   PROGRAM*       58/44     58/47 L
        FILL.           0   EXTERNAL*       2/35 X   28/03 S   28/54 S   49/08     54/13 S   71/46 S   80/54 S
        FILL.2          0   EXTERNAL*       2/35 X   28/04 S
        FILL.3          0   EXTERNAL*       2/35 X   47/28 S   48/01 S   48/33 S   49/39 S
        FMS           136   PROGRAM*        8/31      9/17      9/37     10/11 L
        FMSA          175   PROGRAM*       10/21 S   10/47     11/14 L   19/18
        FMS3          155   PROGRAM*       10/30     10/44 L
        FMS4          165   PROGRAM*       10/54     11/01 L
        FMS4A         162   PROGRAM*       10/37     10/52 L
        FMTARM          0   EXTERNAL*       2/48 X   33/06
        FMT10        1312   PROGRAM*       45/38     45/52 L
        FMT20        1321   PROGRAM*       46/02     46/08 L
        FMT30        1323   PROGRAM*       45/41     45/48     45/50     46/06     46/12 L
        FOUARM          0   EXTERNAL*       2/50 X   16/39
        FPS           176   PROGRAM*        8/12      8/47      9/53     11/30 L
        FPS2          212   PROGRAM*       11/44     11/54 L
        FPS3          220   PROGRAM*       11/57     12/13 L
        FPS4          222   PROGRAM*       11/47     11/50     12/06     12/16 L
        FW.CTL         64   PROGRAM*        6/03 L    7/11     34/47     35/01
        GOL             0   EXTERNAL*       2/50 X   45/43
        ICCARM          0   EXTERNAL*       2/48 X   35/26
        ICCXARM         0   EXTERNAL*       2/48 X   35/38     36/20
        ICIARM          0   EXTERNAL*       2/48 X   35/50
        ICIXARM         0   EXTERNAL*       2/48 X   35/56
        ICIX1        1373   PROGRAM*       48/57     49/05 L
        ICK           607   PROGRAM*       27/41 L   34/49
        ICKA          634   PROGRAM*       28/05 S   29/01 L   54/09
        ICK1          614   PROGRAM*       27/54     28/03 L
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        ICK2          616   PROGRAM*       28/13 L   28/20
        ICK3          621   PROGRAM*       28/18     28/25 L
        ICK4          626   PROGRAM*       28/36     28/40 L
        ICK5          627   PROGRAM*       28/35     28/42 L
        ICK6          630   PROGRAM*       27/48     28/45 L
        ICK7          632   PROGRAM*       28/50     28/53 L
        ICLARM          0   EXTERNAL*       2/49 X   36/05
        IC.BUF         35   FTX            44/17     44/41
        IC.CNT         36   FTX            45/17
        IC.END          2   FTX            19/05
        IC.ERR          3   FTX            55/18
        IC.FIL         21   FTX            37/47
        IC.FMT          4   FTX            18/39     19/12     32/38     38/46     45/36     45/45
        IC.FMTA        41   FTX            46/10
        IC.IOS          5   FTX            55/15     55/18
        IC.MOD         37   FTX            41/23
        IC.NML         10   FTX            19/02     19/05     26/13     33/41     33/56
        IC.REC          6   FTX            18/53     19/02     38/40     38/46
        IC.SKP          7   FTX            55/24
        IC.STR         40   FTX            51/50
        IC.UNT          1   FTX            10/40     12/09     17/56     32/12     33/46     37/40
        IDC          2051   PROGRAM*       66/52     69/29 L
        IDCA         2457   PROGRAM*       70/21 S   73/57     76/08     77/20     78/12     79/51     80/16     81/15
                                           72/16     74/51     77/04     77/31     78/24     79/56     80/41     82/01 L
        IDCB         2460   PROGRAM*       70/42 S   72/50     77/13     82/02 L
        IDCC         2461   PROGRAM*       70/46 S   75/11     76/47     82/03 L
        IDCCV        2515   PROGRAM*       71/53 S   76/29     82/25 L
        IDCD         2462   PROGRAM*       70/49 S   75/13     76/57     81/36     82/04 L
        IDCE         2463   PROGRAM*       71/14 S   71/17     73/05     82/05 L   86/45
        IDCEX        2446   PROGRAM*       71/22     71/48     72/29     73/18     74/57     85/46     87/03
                                           71/36     71/55     72/46     73/45     75/09     86/03     87/12
                                           71/39     72/09     73/03     74/06     81/35 L   86/43
                                           71/43     72/24     73/10     74/28     81/35 E   86/50
        IDCF         2464   PROGRAM*       72/34 S   82/06 L   85/50
        IDCG         2465   PROGRAM*       70/50 S   71/20     76/48     82/07 L   86/48
        IDCH         2466   PROGRAM*       71/28 S   73/06     73/24     74/09     75/12     77/14     82/08 L
        IDCI         2467   PROGRAM*       71/31 S   75/40     76/03 S   78/47     82/09 L
        IDCIDX       2502   PROGRAM*       66/10     71/35     72/05     73/25     74/10     82/20 L   86/46 S   87/08
        IDCINC       2514   PROGRAM*       72/33 S   72/43     82/24 D
        IDCIND       2512   PROGRAM*       82/21 L   82/22     82/23     82/24     85/52 S
        IDCINT       2512   PROGRAM*       72/57     74/16     75/34     76/30     78/22     79/26     82/22 D
                                           73/42     74/41     75/51     77/37     79/16     80/11
        IDCJ         2470   PROGRAM*       70/55 S   71/16     72/37     77/01     81/37     82/10 L
        IDCK         2471   PROGRAM*       81/48     82/11 L   91/01 S   91/08
        IDCL         2473   PROGRAM*       76/21 S   76/42     77/40     78/04     79/06     82/13 L
        IDCLMT       2513   PROGRAM*       73/34     76/31     78/03 S   79/08     79/30
                                           75/37     77/51     78/11     79/19     82/23 D
        IDCM         2474   PROGRAM*       70/27 S   82/14 L   86/55
        IDCN         2475   PROGRAM*       70/56 S   81/42     82/15 L
        IDCO         2476   PROGRAM*       71/02 S   81/44     82/16 L
        IDCP         2477   PROGRAM*       74/14 S   74/21 S   77/46     80/15 S   80/35     82/17 L
        IDCQ         2500   PROGRAM*       75/42 S   78/15     78/46 S   78/54     79/04 S   80/19     82/18 L
        IDC10        2061   PROGRAM*       69/52 L   70/01
        IDC15        2064   PROGRAM*       69/55     70/08 L
        IDC20        2070   PROGRAM*       70/13     70/17 L
        IDC30        2121   PROGRAM*       71/35 L   77/23
        IDC31        2134   PROGRAM*       72/07 L   72/11
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        IDC32        2136   PROGRAM*       72/03     72/13 L
        IDC33        2143   PROGRAM*       72/15     72/26 L
        IDC35        2163   PROGRAM*       73/04     73/12 L
        IDC36        2167   PROGRAM*       73/09     73/21     73/24 L
        IDC37        2171   PROGRAM*       73/22     73/32 L
        IDC38        2177   PROGRAM*       73/37     73/49 L
        IDC39        2206   PROGRAM*       73/47     73/52     74/09 L
        IDC40        2215   PROGRAM*       73/46     74/15     74/41 L
        IDC41        2225   PROGRAM*       74/48     75/02 L
        IDC42        2230   PROGRAM*       74/44     75/11 L
        IDC45        2250   PROGRAM*       75/50     75/53     76/05 L
        IDC47        2255   PROGRAM*       76/14     76/15     76/18 L
        IDC475       2267   PROGRAM*       76/22     76/45 L
        IDC48        2276   PROGRAM*       76/46     77/13 L
        IDC5         2055   PROGRAM*       69/32     69/36 L
        IDC50        2303   PROGRAM*       76/51     77/29 L
        IDC51        2307   PROGRAM*       77/30     77/37 L
        IDC51.1      2315   PROGRAM*       77/54 L   79/17     79/27
        IDC52        2322   PROGRAM*       77/47     78/07 L
        IDC52.1      2326   PROGRAM*       77/39     78/15 L
        IDC52.2      2335   PROGRAM*       78/29     78/30     78/33 L
        IDC52.3      2341   PROGRAM*       78/31     78/41 L
        IDC52.6      2353   PROGRAM*       78/49     79/06 L
        IDC52.7      2361   PROGRAM*       79/07     79/19 L
        IDC53        2365   PROGRAM*       78/10     79/29 L
        IDC54        2372   PROGRAM*       79/31     79/40 L
        IDC55        2401   PROGRAM*       77/42     79/56 L
        IDC56        2403   PROGRAM*       78/13     79/52     80/08 L
        IDC565       2420   PROGRAM*       80/13     80/37 L
        IDC57        2427   PROGRAM*       80/39     80/40     80/57 L
        IDC58        2435   PROGRAM*       81/08     81/12 L
        IDC59        2436   PROGRAM*       81/10     81/14 L
        IDC60        2454   PROGRAM*       81/41     81/48 L
        IIC           636   PROGRAM*       15/12     15/52     20/34     23/17     29/23 L
        IIC1          641   PROGRAM*       29/25     29/27 L
        II.ARYL         1   FTX            53/31
        II.ARYP         0   FTX            53/31
        II.BIASL       30   FTX            53/10     58/30
        II.BIASP       24   FTX            53/13     53/15     53/33     58/30
        II.CHARL        1   FTX            53/07
        II.CHARP        1   FTX            53/07     53/11
        II.ORDL        20   FTX            53/09     58/29
        II.ORDP        54   FTX            53/11     53/13     53/25     53/29     58/29
        IOARGM          0   EXTERNAL*       2/49 X   29/24
        IOARGT          1   PROGRAM*        4/05 L   29/31     29/33     59/43     59/44
        IOARY           5   PROGRAM*        4/09 L   80/25 S   80/26
        IOBFWA         13   PROGRAM*        4/19 L   42/28     44/43 S
        IOBLWA         14   PROGRAM*        4/20 L   41/48 S   42/26 S   44/18
        IOCAD          64   PROGRAM*        6/31 D
        IOCTL           0   EXTERNAL*       2/49 X   36/33     54/35
        IOD          2520   PROGRAM*       62/43     83/52 L
        IODIR           0   PROGRAM*        4/04 L   16/10     20/45     29/28 S   33/44     51/17     60/17     74/46
                                            4/04 E   16/57     24/16     29/31     38/26     51/45     61/08     80/37
                                           10/20 S   18/04     25/28     32/10     41/38     55/11     72/13     86/53
                                           11/38 S   19/14     26/07     33/27     44/34     59/31     73/50
        IODOCOL         7   PROGRAM*        4/14 L   62/42 S   69/37
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        IODOIND        11   PROGRAM*        4/16 L   50/23     65/45 S   77/07 S   81/21 S
                                            4/16 E   65/21 S   65/52 S   77/22 S
        IODOLEN        10   PROGRAM*        4/15 L    4/15 E   60/01 S   62/35 S   63/55
        IODTA           0   EXTERNAL*       2/49 X   51/23     60/09     60/22
        IODTH           3   PROGRAM*        4/07 L   51/31     60/32     81/09     89/26 S   89/32 S   89/57 S   90/07 S
                                           51/29 S   60/26 S   81/07 S   81/12     89/27     89/35     90/02     90/10
        IOD2         2522   PROGRAM*       84/01 L   84/08     84/27     85/04     85/08     85/10     85/28
        IOD4         2532   PROGRAM*       84/07     84/32 L
        IOD5         2537   PROGRAM*       84/06     84/55 L
        IOD6         2541   PROGRAM*       84/47     85/03 L
        IOD7         2545   PROGRAM*       85/06     85/11 L
        IOD8         2546   PROGRAM*       84/57     85/14 L
        IOD9         2516   PROGRAM*       83/40 L   84/04
        IOJ           646   PROGRAM*       11/07     21/56     30/10 E   60/39     67/03
                                           12/21     30/10 L   53/41     66/56     68/17
        IOJA          674   PROGRAM*       30/17 S   30/22     30/57 L
        IOJ1          652   PROGRAM*       30/15     30/17 L
        IOJ2          654   PROGRAM*       30/18     30/22 L
        IOJ4          657   PROGRAM*       30/25     30/29 L
        IOJ5          671   PROGRAM*       30/41     30/42     30/51 L
        IOL10        1422   PROGRAM*       50/20     50/31 L
        IOL20        1436   PROGRAM*       51/02     51/06 L
        IOL30        1441   PROGRAM*       50/17     50/22     50/29     50/45     51/17 L
                                           50/18     50/24     50/43     51/07
        IOL40        1444   PROGRAM*       51/19     51/20     51/23 L
        IOL.RTN         0   EXTERNAL*       2/49 X   51/32
        IONAM           6   PROGRAM*        4/11 L   11/06 S   20/40 S   33/13 S   59/52 S
                                            4/11 E   12/20 S   30/24     33/18     61/16 S
        IOREF           2   PROGRAM*        4/06 L   15/02 S   21/03     23/16 S   29/33     40/07     81/14
                                           10/12 S   15/39 S   21/28     23/25     32/23     59/44
                                           11/31 S   17/46     21/42     23/57     33/05     62/27 S
        IOSKP           4   PROGRAM*        4/08 L   10/15 S   11/08     11/34 S   12/22     29/37 S   55/34 S   60/40
        IOUNT           0   EXTERNAL*       2/49 X   15/10     31/15     46/47
        ISL             0   EXTERNAL*       2/44 X   32/36     36/14
        KWE          1515   PROGRAM*       47/20     47/55     48/23     48/54     49/31     54/08 L
        KW=BACK       125   PROGRAM*        8/09 L    8/09 E
        KW=BUFF       410   PROGRAM*       20/13 L   20/13 E
        KW=CLOS       126   PROGRAM*        8/28 L    8/28 E
        KW=DECO       467   PROGRAM*       22/25 L   22/25 E
        KW=ENCO       471   PROGRAM*       22/42 L   22/42 E
        KW=ENDF       130   PROGRAM*        8/44 L    8/44 E
        KW=INQU       131   PROGRAM*        9/14 L    9/14 E
        KW=OPEN       133   PROGRAM*        9/34 L    9/34 E
        KW=PRIN       231   PROGRAM*       13/12 L   13/12 E
        KW=PUNC       233   PROGRAM*       13/33 L   13/33 E
        KW=READ       236   PROGRAM*       14/02 L   14/02 E
        KW=REWI       135   PROGRAM*        9/50 L    9/50 E
        KW=WRIT       242   PROGRAM*       14/29 L   14/29 E
        KW.INFOL       22   FTX             6/32      6/37      6/42      6/47      6/52      6/57      7/05
                                            6/33      6/38      6/43      6/48      6/53      7/01      7/06
                                            6/34      6/39      6/44      6/49      6/54      7/02      7/07
                                            6/35      6/40      6/45      6/50      6/55      7/03     34/55
                                            6/36      6/41      6/46      6/51      6/56      7/04
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        KW.INFOP       52   FTX             6/32      6/37      6/42      6/47      6/52      6/57      7/05
                                            6/33      6/38      6/43      6/48      6/53      7/01      7/06
                                            6/34      6/39      6/44      6/49      6/54      7/02      7/07
                                            6/35      6/40      6/45      6/50      6/55      7/03
                                            6/36      6/41      6/46      6/51      6/56      7/04
        KW.KEYL        22   FTX             6/32      6/37      6/42      6/47      6/52      6/57      7/05
                                            6/33      6/38      6/43      6/48      6/53      7/01      7/06
                                            6/34      6/39      6/44      6/49      6/54      7/02      7/07
                                            6/35      6/40      6/45      6/50      6/55      7/03     28/15
                                            6/36      6/41      6/46      6/51      6/56      7/04
        KW.LENL         7   FTX             6/32      6/37      6/42      6/47      6/52      6/57      7/05
                                            6/33      6/38      6/43      6/48      6/53      7/01      7/06
                                            6/34      6/39      6/44      6/49      6/54      7/02      7/07
                                            6/35      6/40      6/45      6/50      6/55      7/03     28/28
                                            6/36      6/41      6/46      6/51      6/56      7/04
        KW.LENP        22   FTX             6/32      6/37      6/42      6/47      6/52      6/57      7/05
                                            6/33      6/38      6/43      6/48      6/53      7/01      7/06
                                            6/34      6/39      6/44      6/49      6/54      7/02      7/07
                                            6/35      6/40      6/45      6/50      6/55      7/03     28/27
                                            6/36      6/41      6/46      6/51      6/56      7/04
        LCH             0   EXTERNAL*       2/18 X   17/19     25/56     45/35     48/56     50/12
        LCT             0   EXTERNAL*       2/18 X   41/10
        LISTDIR        15   PROGRAM*        4/22 L   16/43 S   26/16     29/36 S   32/03     56/12     59/27     60/15
        LOSTREF         0   EXTERNAL*       2/57 X   70/57     81/46 S
        LST          1617   PROGRAM*       15/17     15/19     17/07     18/18     18/44     19/16     59/20 L   59/20 E
        LST1         1617   PROGRAM*       59/21 L
        LST10        1661   PROGRAM*       60/18     60/33     60/37 L   61/17     61/21     61/23
        LST11        1665   PROGRAM*       60/41     60/45 L
        LST2         1626   PROGRAM*       59/30     59/32     59/34     59/37 L
        LST3         1630   PROGRAM*       59/23     59/29     59/35     59/40 L
        LST9         1660   PROGRAM*       60/19     60/20     60/35 L
        LST.N        1667   PROGRAM*       59/50     61/07 L
        LST.N1       1677   PROGRAM*       61/19     61/22 L
        LST.S        1631   PROGRAM*       24/26     59/42 L
        LTB=            0   EXTERNAL*       2/38 X
        L.CTL          41                   7/11 D   34/48
        MAX.DIM         7   FTX            69/50     82/20
        MDERR=          0   EXTERNAL*       2/54 X   20/16     23/15
        MOD.DPC         0   EXTERNAL*       2/35 X   47/26     47/56     48/31     49/37
        MVE=            0   EXTERNAL*       3/10 X   30/49     31/29     36/47
        M.BOOL          0   FTX            15/06     17/26     27/17     46/43     48/29     85/47
                                           15/11     25/35     40/16     46/48     49/01
        M.CHAR          6   FTX            16/55     31/35     41/42     45/37     47/24     47/53     51/48
                                           26/03     36/35     44/38     46/38     47/26     47/56     58/42
        M.DBL           4   FTX            41/45     76/12     78/28
        M.INT           2   FTX            17/20     41/11     48/27     50/57     77/49     78/43     79/42
                                           25/57     45/15     48/31     64/52     78/19     78/51     85/44
                                           26/55     46/08     49/02     65/36     78/35     79/23     86/26
        M.LOG           1   FTX            49/35     49/37
        NCS             0   EXTERNAL*       2/21 X   25/36     64/53     77/50     78/52     79/43
                                           15/07     46/44     65/37     78/20     79/24
        NDC           472   PROGRAM*       22/29     23/14 L
        NDC4          525   PROGRAM*       24/19     24/22 L
        NRF          1001   PROGRAM*       32/28 S   33/34 S   34/08     34/18 L
        N.GL            0   EXTERNAL*       2/57 X   55/25     67/05     89/11
        OCT          1521   PROGRAM*       34/07     41/24     44/44     46/12     54/34 L
                                           37/24     44/19     45/18     51/51     55/35
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        OCTA         1527   PROGRAM*       36/38 S   36/43     54/43 S   54/44     54/47 L
        OIL             0   EXTERNAL*       2/21 X   60/46
        OPBSS           0   EXTERNAL*       2/49 X   11/11     12/25     60/43     90/21
        OPDUM           0   EXTERNAL*       2/49 X   89/22     89/28     89/53     90/03
        OR.1OP          1   FTX            42/01     42/39
        OST          1530   PROGRAM*       10/49     12/15     55/10 L   59/40
        OST1         1535   PROGRAM*       55/12     55/24 L
        OUT           675   PROGRAM*       17/27     17/31     27/11     31/14 L
        O.BOTH         57   FTX            89/28     89/53     90/03
        O.CAT          36   FTX            16/09
        O.CHAR          4   FTX            17/42     32/44
        O.COMMA        42   FTX            10/35     16/08     20/57     23/50     59/28     68/36     84/25
                                           12/05     16/26     21/38     37/27     60/16     71/38     85/53
                                           15/16     18/21     23/37     59/24     62/49     81/28     87/19
        O.CONS          5   FTX            32/33     36/10
        O.DCBI         51   FTX            63/29 L   65/57     75/17
        O.DCCI         52   FTX            63/30 L   75/29
        O.DOBI         47   FTX            63/21     63/26     63/27 L   69/53     70/08     75/17     84/17
        O.DOCI         50   FTX            63/28 L   67/25
        O.EOS           0   FTX            10/55     67/33     75/23     81/26     83/41
        O.LP           37   FTX            16/27     20/24     23/22     84/03     85/07
                                           17/40     21/18     32/46     84/17
        O.NONE         54   FTX            89/22     89/28     89/53     90/03
        O.RP           40   FTX            21/17     21/53     24/10     37/28
        O.SEP          14   FTX            85/05
        O.SLP          44   FTX            16/45     21/43     23/56     33/12     37/12     91/03
                                           21/09     23/32     25/46     36/21     60/10
        O.STAR         16   FTX            15/56     23/45     25/26     32/04
        O.VAR          11   FTX            10/45     22/11     27/47     32/49     71/42
                                           17/38     22/12     27/53     70/08
        O.2ND          56   FTX            89/22
        O.(            37   FTX            10/24     11/42     14/10     14/36     70/44     84/05     84/09
        O.)            40   FTX            10/34     18/03     61/18     84/05     84/10     87/18
                                           12/04     18/36     68/22     84/09     85/54
        O.=            41   FTX            10/29     11/56     16/01     18/29     34/52     67/08     72/28     84/10
        PAR             0   EXTERNAL*       2/49 X   21/11     21/51     24/08     33/16     37/17     91/07
                                           16/49     21/35     23/34     25/49     36/26     63/45
        PAREXIT         0   EXTERNAL*       2/50 X   44/45     47/25     48/03     48/35     49/11     51/52     87/21
                                           41/25     45/19     47/30     48/28     49/05     49/36     52/09
                                           44/20     46/13     47/54     48/30     49/07     49/41     85/56
        PARMODE         0   EXTERNAL*       2/22 X   63/44 S
        PAR.NX          0   EXTERNAL*       2/50 X   86/05     87/23
        PAX          2613   PROGRAM*       50/09     77/35     88/16 L
        PAXA         2701   PROGRAM*       88/31 S   90/23     90/31 L
        PAXB         2702   PROGRAM*       89/21     89/50 S   90/01     90/32 L
        PAXC         2703   PROGRAM*       89/33     89/51 S   90/08     90/33 L
        PAXD         2704   PROGRAM*       88/26 S   90/25     90/34 L
        PAXE         2705   PROGRAM*       88/28 S   90/26     90/35 L
        PAXF         2706   PROGRAM*       88/22 S   89/20 S   90/18     90/36 L
        PAXG         2707   PROGRAM*       88/23 S   88/56     89/47 S   90/37 L
        PAXH         2710   PROGRAM*       88/24 S   88/53     89/37     90/38 L
        PAX10        2624   PROGRAM*       88/39 L   88/44
        PAX20        2627   PROGRAM*       88/43     88/47 L
        PAX30        2630   PROGRAM*       88/45     88/51 L
        PAX40        2631   PROGRAM*       88/52 L   90/11
        PAX50        2652   PROGRAM*       88/55     89/01     89/39 L
        PAX60        2676   PROGRAM*       90/19     90/23 L
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        PCI          2711   PROGRAM*       71/15     72/36     90/55 L
        PDM             0   EXTERNAL*       2/54 X   17/24     27/15     40/14     48/02     51/03     60/35
                                           10/56     18/13     32/19     45/49     48/34     56/29     61/22
                                           11/49     18/23     33/53     47/29     49/40     59/37     64/05
        PDT             0   EXTERNAL*       2/44 X   68/30
        PEC           260   PROGRAM*       14/12     14/38     15/39 L
        PECA          175   PROGRAM*       15/50 S   18/49     19/18 D
        PECB          407   PROGRAM*       15/46 S   17/49     19/19 L   46/41
        PEC10         263   PROGRAM*       15/42     15/45 L
        PEC110        351   PROGRAM*       17/03     18/07 L
        PEC120        354   PROGRAM*       18/10     18/13 L
        PEC130        355   PROGRAM*       18/08     18/15 L   19/15
        PEC140        360   PROGRAM*       18/05     18/20 L
        PEC150        363   PROGRAM*       18/22     18/25 L
        PEC160        374   PROGRAM*       18/41     18/46 L
        PEC170        375   PROGRAM*       16/02     18/30     18/49 L
        PEC180        404   PROGRAM*       18/55     19/11 L
        PEC20         300   PROGRAM*       16/11     16/16 L
        PEC30         302   PROGRAM*       16/16     16/21 L
        PEC40         303   PROGRAM*       16/25 L   16/30     16/34
        PEC50         322   PROGRAM*       16/56     17/12 L
        PEC60         332   PROGRAM*       17/21     17/22     17/30 L
        PEC70         335   PROGRAM*       16/14     16/19     17/37 L
        PEC75         341   PROGRAM*       17/39     17/41     17/45 L
        PEC80         344   PROGRAM*       15/57     16/06     16/12     16/17     16/21     16/31     17/43     17/52 L
        PEC90         345   PROGRAM*       17/28     17/32     17/54 L
        PFN           712   PROGRAM*       15/13     18/32     23/43     32/01 L   36/54
        PFNPFE       1000   PROGRAM*       32/47 S   34/17 L   45/52
        PFN1          724   PROGRAM*       32/05     32/23 L
        PFN2          734   PROGRAM*       32/34     32/44 L
        PFN3          743   PROGRAM*       32/45     32/48     32/54     33/03 L
        PFN5          754   PROGRAM*       32/56     33/24 L
        PFN6          760   PROGRAM*       33/29     33/32 L
        PFN7          761   PROGRAM*       33/26     33/36 L
        PFN8          770   PROGRAM*       33/49     33/52     33/55 L
        PFN9          773   PROGRAM*       32/39     33/57     34/06 L
        PIC           245   PROGRAM*       13/17     13/39     14/13     15/02 L   17/50
        PKC          1006   PROGRAM*       10/48     12/14     18/50     34/41 L
        PKCA         1002   PROGRAM*       10/14 S   11/33 S   15/49 S   18/37     33/39     37/36
                                           10/41 S   12/10 S   17/57 S   26/10     34/36 L   55/13
                                           10/50     15/04 S   18/16     32/09     35/04
        PKCB         1003   PROGRAM*       34/37 L   35/32     36/28     36/56 S   37/34
                                           34/45     35/42     36/52     37/04     37/36
        PKCC         1004   PROGRAM*       34/38 L   34/43 S   34/45     34/57
        PKCD         1005   PROGRAM*       34/39 L   35/14 S   36/34     37/23
        PKC1         1011   PROGRAM*       34/47 L   37/32
        PKC10        1026   PROGRAM*       35/26 L   35/36
        PKC12        1036   PROGRAM*       35/46     35/56 L
        PKC14        1074   PROGRAM*       35/27     35/39     35/51     35/57     36/06     37/12 L
        PKC15        1100   PROGRAM*       36/17     36/32     37/23 L
        PKC16        1101   PROGRAM*       36/49     36/57     37/07     37/25 L
        PKC20        1105   PROGRAM*       37/29     37/34 L
        PKC25        1111   PROGRAM*       37/41     37/46 L
        PKC=         1025   PROGRAM*        6/38      6/40      6/42      7/04      7/06     35/19 L
                                            6/39      6/41      7/03      7/05      7/07
        PKC=ACC      1027   PROGRAM*        6/43     35/29 L
        PKC=BFL      1035   PROGRAM*        6/45     35/53 L
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        PKC=BLK      1027   PROGRAM*        6/44     35/30 L
        PKC=DIR      1026   PROGRAM*        6/46     35/21 L
        PKC=END      1040   PROGRAM*        6/33     36/08 L
        PKC=ERR      1040   PROGRAM*        6/34     36/09 L
        PKC=EXS      1037   PROGRAM*        6/47     36/02 L
        PKC=FIL      1045   PROGRAM*        6/48     36/19 L
        PKC=FMD      1026   PROGRAM*        6/50     35/22 L
        PKC=FMT      1065   PROGRAM*        6/35     36/51 L
        PKC=FOR      1027   PROGRAM*        6/49     35/31 L
        PKC=IOS      1034   PROGRAM*        6/36     35/47 L
        PKC=NAM      1026   PROGRAM*        6/51     35/23 L
        PKC=NMD      1037   PROGRAM*        6/52     36/03 L
        PKC=NUM      1034   PROGRAM*        6/54     35/49 L
        PKC=NXT      1034   PROGRAM*        6/53     35/48 L
        PKC=OPE      1037   PROGRAM*        6/55     36/04 L
        PKC=RCL      1032   PROGRAM*        6/56     35/41 L
        PKC=REC      1036   PROGRAM*        6/37     35/55 L
        PKC=SEQ      1026   PROGRAM*        6/57     35/24 L
        PKC=STA      1031   PROGRAM*        7/01     35/37 L
        PKC=UNF      1026   PROGRAM*        7/02     35/25 L
        PKC=UNT      1071   PROGRAM*        6/32     37/02 L
        PM=DATA         5   FTX            69/31
        PM=EXPR         0   FTX            10/17     11/36     29/38     30/14     60/11
        PSL             0   EXTERNAL*       2/44 X   11/12     12/26     22/09     59/38
                                           11/09     12/23     21/57     36/15     60/47
        REFNUM          0   EXTERNAL*       2/22 X   32/27 S
        REFVAR          0   EXTERNAL*       2/22 X   24/25 S   59/49 S
        SCR             0   EXTERNAL*       2/57 X   58/08
        SFP          1114   PROGRAM*       11/01     18/17     18/43     18/51     20/51     38/14 L
        SFP30        1126   PROGRAM*       38/27     38/38 L
        SFP40        1130   PROGRAM*       38/42     38/45 L
        SFP50        1132   PROGRAM*       38/49     38/52 L
        SFP60        1133   PROGRAM*       38/32     38/36     38/54 L
        SP.MODEP       22   FTX            31/20     36/36     51/27     54/41     60/24     80/22     81/05
        SP.SKELP       52   FTX            89/24     89/30     89/55     90/05
        SSY             0   EXTERNAL*       2/22 X   32/53     39/51     70/12     71/47
        STRARM          0   EXTERNAL*       2/50 X   24/01
        S=BIN           4                   4/41 L   18/15
        S=BU            0   EXTERNAL*       2/57 X   17/23     27/14     40/13
        S=COD           0                   4/35 L   32/37     33/04
        S=CON           0   EXTERNAL*       2/57 X   86/33
        S=CONT          1                   4/38 L   30/27
        S=DA           24                   4/57 L   19/10
        S=FREE         10                   4/45 L   19/08     32/08     32/17
        S=INF          20                   4/53 L   17/02     18/07     31/37     32/17     33/51
        S=INIT          0                   4/36 L
        S=INP           0                   4/37 L   15/41     16/18     22/44     26/23     74/47
                                           14/07     16/13     20/21     24/18     73/51
        S=NLST    7777774                   5/21 D   33/55
        S=OUT           2                   4/39 L   13/38     20/29     24/21     72/14
                                           13/15     14/35     22/27     26/25
        S=STR          14                   4/49 L   24/23
        S=VD            0   EXTERNAL*       2/57 X   27/01     51/08
        S.BKSP         54   PROGRAM*        5/12 L    8/11
        S.BUFIO        63   PROGRAM*        5/19 L   20/35
        S.CLOSE        55   PROGRAM*        5/13 L    8/29
        S.ENDFI        56   PROGRAM*        5/14 L    8/46
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        S.INQUI        57   PROGRAM*        5/15 L    9/15     35/33     35/43     36/29     37/37
        S.IOCALL       16   PROGRAM*        4/32 L   11/03     12/17     20/38     30/29     59/53     61/14
        S.NLST         52   PROGRAM*        5/10 L   61/11
        S.OPEN         60   PROGRAM*        5/16 L    9/35
        S.REWIN        61   PROGRAM*        5/17 L    9/52
        TB.EQLL         1   FTX            84/56
        TB.EQLP        72   FTX            84/56
        TB.IBCCL       22   FTX            64/35     66/04     66/05
        TB.IBCCP       22   FTX            64/32     66/04
        TB.ICCPL       22   FTX            66/33
        TB.ICCPP       22   FTX            66/31     75/28
        TB.ICIXL       22   FTX            66/08     66/09
        TB.ICIXP       44   FTX            66/08     75/31
        TB.IOCPL       22   FTX            69/39     69/40     75/27     84/33     85/21 F
        TB.IOCPP       44   FTX            16/04     69/39     84/36     85/01     85/25
                                           16/28     75/25     84/44     85/20
        TB.IOIXL       22   FTX            75/22     84/15
        TB.IOIXP       22   FTX            67/06     75/20     75/25     84/19
        TB.IOSPP       22   FTX            84/39
        TB.LLPL        22   FTX            85/14     85/16     85/21 F
        TB.LLPP        22   FTX            85/17     85/20
        TB.TOCL        52   FTX            28/47     28/49     70/10     71/44
        TB.TOTL        22   FTX            32/31     66/01     69/54     84/18
        TB.TOTP         0   FTX            32/31     69/54     84/19
        TEST            0   FTX            46/30 F   63/31 F   83/45 F   87/24 F
        TL=LCI       2501   PROGRAM*       62/47 S   76/38     82/19 L   88/17     90/12
        TPC             0   EXTERNAL*       2/50 X   16/50     25/50     33/17     36/27     37/18     50/10
        TP.ADDRL        1   FTX            71/09
        TP.ADDRP       13   FTX            71/09
        TP.AREL         1   FTX            26/34     45/42
        TP.AREP         5   FTX            26/31     26/34     45/40     45/42     46/03     50/44
        TP.ARRL         1   FTX            71/09     80/29
        TP.ARRP        15   FTX            46/01     46/03     50/21     71/09     80/29
        TP.ARSL         1   FTX            80/29
        TP.ARSP         6   FTX            80/29
        TP.BIASL       30   FTX            41/50     42/12     57/41     64/49     73/38     75/38     79/20
                                           41/51     42/30     58/27     71/09     73/39     75/39     79/21
                                           42/06     42/31     58/30     73/12     74/17     75/55
                                           42/07     57/22     64/48     73/13     74/18     75/56
        TP.BIASP       24   FTX            26/50     42/06     42/23     57/23     58/30     71/09     74/17     79/20
                                           30/23     42/14     42/30     57/42     64/48     73/12     75/38     80/01
                                           41/50     42/15     50/55     58/27     65/49     73/38     75/55     80/09
        TP.EQVP        21   FTX            57/47
        TP.EXPRL        1   FTX            50/15
        TP.EXPRP        3   FTX            50/15     50/19
        TP.FPL          1   FTX            43/02     43/05
        TP.FPP         22   FTX            43/02     43/05
        TP.GLL          1   FTX            71/09
        TP.GLP         16   FTX            55/29     71/09     89/15
        TP.INTRL        1   FTX            42/49     44/02     57/16     71/09     78/35     78/43     80/29
        TP.INTRP       12   FTX            41/21     44/02     45/56     50/19     57/16     71/09     78/43     86/42
                                           42/49     45/10     46/01     50/21     57/19     78/35     80/29     86/44
        TP.IOCP        24   FTX            36/40     54/36
        TP.IODL         1   FTX            34/01
        TP.IODP        10   FTX            34/01     56/15     56/18
        TP.IOPL         1   FTX            34/01
        TP.IOPP         7   FTX            34/01     56/18
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        TP.MODEL        3   FTX            16/51     45/12     51/24     75/05     80/20     85/40
                                           31/16     46/34     54/37     76/09     80/30     86/21
                                           31/32     47/49     74/24     78/25     81/01
        TP.MODEP        0   FTX            26/55     74/26     78/27     78/43     86/29
                                           50/57     75/07     78/35     81/03
        TP.ORDL        20   FTX            26/34     42/37     52/56     58/29     74/03     80/45     86/57
                                           26/35     42/43     57/18     58/31     74/54     81/17
                                           41/56     50/33     58/27     72/19     75/47     86/36
        TP.ORDP        54   FTX            17/25     41/54     51/09     58/27     65/13     74/04     78/44     80/33
                                           26/34     42/04     52/57     58/29     65/31     74/55     79/02     87/01
                                           27/03     42/11     55/31     58/32     65/43     78/01     79/14     89/17
                                           27/16     42/35     57/19     58/34     72/18     78/07     79/37
                                           40/15     42/41     57/44     65/05     72/20     78/36     79/49
        TP.SHRTL        1   FTX            26/55     50/57     71/09     74/22     75/03     88/41     88/57
        TP.SHRTP       14   FTX            26/55     64/46     73/02     73/53     75/03     75/54     88/41
                                           50/57     65/50     73/36     74/22     75/49     77/38     88/47
                                           51/10     71/09     73/43     74/43     75/52     80/12     88/57
        TP.1ATRL        7   FTX            71/09
        TP.1ATRP        0   FTX            71/09
        TSX             0   EXTERNAL*       2/22 X   11/02     12/16     20/37     30/29     59/55     61/13
        T=BLST          0   EXTERNAL*       3/01 X   59/56     62/28     63/56     64/04     64/04 S
        T=ILI           0   EXTERNAL*       3/01 X   30/54     30/54 S   52/38     53/16
        T=IOA           0   EXTERNAL*       3/01 X   88/18     90/13     90/17     90/17 S
        T=IOARG         0   EXTERNAL*       2/57 X   17/48     17/48 S   30/12     46/40     46/40 S
        T=IOLC          0   EXTERNAL*       3/01 X   30/39     30/44     30/44 S   62/46     62/46 S
        T=PAR           0   EXTERNAL*       3/01 X   65/02     65/40     71/18 S   77/03     78/33     79/11     80/27
                                           30/51     65/10     70/51     72/38     77/03 S   78/41     79/34     81/39
                                           63/17     65/28     71/18     72/38 S   77/55     78/56     79/46     81/39 S
        T=REF           0   EXTERNAL*       3/01 X   70/52     81/40     81/43     81/43 S
        T=SCR           0   EXTERNAL*       3/01 X   31/23 S   31/30 S   36/39 S   36/48 S
                                           31/23     31/30     36/39     36/48
        T.DIM           0   EXTERNAL*       3/02 X   26/42     50/47     70/34     72/51
        T.ILI           0   EXTERNAL*       3/02 X   53/17     57/55
        T.IOA           0   EXTERNAL*       3/02 X   76/28     88/32     88/52     89/36
        T.IOARG         0   EXTERNAL*       3/01 X   11/39     15/51     36/46     51/31     60/32
                                           10/22     15/10     20/48     46/47     54/44     81/09
                                           11/39     15/10     31/28     46/47     60/32
        T.IOLC          0   EXTERNAL*       3/02 X   30/46     89/27     89/35     90/02     90/10     90/21
        T.PAR           0   EXTERNAL*       3/02 X   30/43     41/49
        T.SCR           0   EXTERNAL*       3/02 X   31/24     31/24     31/27     36/43     36/45
        T.SYM           0   EXTERNAL*       3/02 X   38/25     43/12     57/37     80/43
                                           26/33     39/55     50/39     58/26
        T.TB            0   EXTERNAL*       3/02 X   83/43
        UDP          1135   PROGRAM*       17/30     27/09     39/21 L
        UDPA          605   PROGRAM*       39/33 S   39/45     40/19 D
        UDP10        1152   PROGRAM*       39/25     39/49 L
        UDP20        1155   PROGRAM*       39/52     39/57 L
        UDP30        1163   PROGRAM*       39/23     39/26     39/30     40/13 L
        UNTARM          0   EXTERNAL*       2/50 X   25/41
        VAI          1542   PROGRAM*       26/27     44/36     48/26     51/47     56/07 E
                                           41/40     47/23     49/34     56/07 L   58/03
        VAI4         1551   PROGRAM*       56/17     56/21 L
        VAI8         1553   PROGRAM*       56/10     56/29 L
        VUD          1165   PROGRAM*       39/24     40/34 L
        V=ADD.I         0   EXTERNAL*       3/07 X   65/08     78/39     79/10
        V=APIOC         0   EXTERNAL*       3/06 X
        V=IOLC          0   EXTERNAL*       3/06 X   89/54
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   106
        SYMBOLIC REFERENCE TABLE. 
  
        V=IOSUB         0   EXTERNAL*       3/06 X   30/35
        V=LCIF          0   EXTERNAL*       3/06 X   89/23
        V=MAX0          0   EXTERNAL*       3/07 X   65/27     79/33
        V=MUL           0   EXTERNAL*       3/06 X
        V=MUL.I         0   EXTERNAL*       3/06 X   65/39     78/55     79/45
        V=NOOP          0   EXTERNAL*       3/06 X   89/29     90/04
        V=STR.I         0   EXTERNAL*       3/07 X   66/11
        V=SUB.I         0   EXTERNAL*       3/07 X   64/55     65/01     77/54     78/23
        WA.SYML        52   FTX            32/51     80/52
        WA.W            0   FTX            26/40     80/51
        WB.ARYP        12   FTX            50/42     50/46     70/17
        WB.AUXP        65   FTX            38/28
        WB.BASEL       14   FTX            43/42     43/43     43/44     43/45
        WB.BASEP       41   FTX            43/42     43/43
        WB.BINP        72   FTX            38/50
        WB.CGSL         1   FTX            40/02
        WB.CGSP         4   FTX            40/02
        WB.COMP        17   FTX            43/23     43/24
        WB.DIRP        71   FTX            38/43
        WB.EQVP        11   FTX            43/40     57/47
        WB.FMTP        73   FTX            38/34     38/50
        WB.FREFP       25   FTX            32/35
        WB.GOTOL        1   FTX            36/12
        WB.GOTOP       35   FTX            36/12
        WB.MATP        36   FTX            33/36
        WB.MODEL        3   FTX            58/39
        WB.NLSTP       34   FTX            32/55
        WB.NVARL        1   FTX            40/02
        WB.NVARP        6   FTX            40/02
        WB.PNTL        15   FTX            26/44     50/48     70/31     70/32
        WB.PNTP        57   FTX            50/46
        WB.SEQP        70   FTX            38/38     38/43
        WB.SREFL        1   FTX            36/12
        WB.SREFP        6   FTX            36/12
        WB.UDCL         1   FTX            40/02
        WB.UDCP        64   FTX            40/02
        WB.W            1   FTX            26/40     43/15     43/27     43/28     43/48     43/49     50/38     58/35
        WC.RAL         30   FTX            44/04
        WC.RBL         12   FTX            43/29
        WC.RBP         60   FTX            43/31
        WC.W            2   FTX            43/27     43/28     43/48     43/49
        WO.DOOT         0   EXTERNAL*       3/02 X   65/24     79/29     88/54
        WO.LOA          0   EXTERNAL*       3/03 X   38/15
        WO.LOM          0   EXTERNAL*       3/03 X   38/16
        WO.LOR          0   EXTERNAL*       3/03 X   33/25     38/17
        XR.TAGL        22   FTX            33/32     34/11
        XR.TAGP        52   FTX            34/13     40/06     81/18
        Z=DD            2   FTX            77/15
        Z=SYM           3   FTX            26/39     43/18     50/37     57/39     80/49
        Z=TURP          3   FTX            10/22     20/48     65/03     65/41     78/42     79/35
                                           11/39     31/26     65/11     77/56     78/57     79/47
                                           15/51     36/44     65/29     78/34     79/12     80/28
1       IO - INPUT/OUTPUT STATEMENT PROCESSING.                       COMPASS 3.7-871.     24/05/02. 13.16.38.      PAGE   107
        SYMBOLIC REFERENCE TABLE. 
  
        .A         200000                  11/11 D   30/35     54/44 D   65/01     77/54 D   79/10     81/12 D   90/10
                                           11/11     31/24 D   54/44     65/08 D   77/54     79/33 D   81/12     90/21 D
                                           12/25 D   31/24     60/32 D   65/08     78/23 D   79/33     89/27 D   90/21
                                           12/25     36/43 D   60/32     65/27 D   78/23     79/45 D   89/27
                                           15/10 D   36/43     60/43 D   65/27     78/39 D   79/45     89/35 D
                                           15/10     46/47 D   60/43     65/39 D   78/39     80/26 D   89/35
                                           22/08 D   46/47     64/55 D   65/39     78/55 D   80/26     90/02 D
                                           22/08     51/31 D   64/55     66/11 D   78/55     81/09 D   90/02
                                           30/35 D   51/31     65/01 D   66/11     79/10 D   81/09     90/10 D
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4576              IDENT  PAR
                       4576                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4547 
                                        LITERALS* LOCAL        4547        27 
  
  
                                        ENTRY POINTS. 
  
                                        B=PAR            0+           IFARM          373+           DTC           2276+ 
                                        PARNOW           0+           LBARM          376+           EXD           2454+ 
                                        SMOD             2+           UBARM          377+           CF=AC         2576+ 
                                        SOPR             3+           PJXARM         401+           EAL           3007+ 
                                        CURST            4+           BUFMOD         405+           ES=CMPL          0
                                        CNF             30+           BUFFWA         406+           ES=LEN           6
                                        PIX             40+           BUFLWA         407+           ES=LGE          20
                                        PKX             66+           CNTARM         410+           ES=LGT          24
                                        DO.BEG         305+           DOCOLI         411+           ES=LLE          27
                                        MULROP         312+           DOCOLS         412+           ES=LLT          30
                                        ARYOP          315+           FMTARM         413+           ES=MASK         32
                                        DVLOP          316+           FOUARM         414+           ES=SHIF         45
                                        ERROP          317+           ICCARM         415+           ES=LOCF         61
                                        GAPOP          324+           ICCXARM        416+           ES=RANF         71
                                        IOCTL          326+           ICIARM         417+           VEL           3235+ 
                                        IODTA          327+           ICIXARM        420+           ACT           3732+ 
                                        IOUNT          330+           ICLARM         421+           ADT           3740+ 
                                        NOOPP          335+           IOARGM         422+           CMR           4076+ 
                                        OPBSS          336+           STRARM         424+           DOA           4144+ 
                                        OPDUM          340+           UNTARM         425+           ECC           4167+ 
                                        VD.EQ          352+           PAR            426+           EMT           4207+ 
                                        VD.MI          353+           PAR.NX         461+           FAT           4224+ 
                                        VD.MU          354+           PAREXIT       1457+           GOL           4242+ 
                                        VD.PL          355+           IOL.RTN       1510+           OMC           4272+ 
                                        VD.GP          356+           POP.STD       1542+           SDM           4370+ 
                                        CALLARM        366+           C=CERR        1556+           TPC           4542+ 
                                        DATARM         370+           C=ERR         1557+ 
                                        DOARM          371+           POP.DVA       1674+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       REFVAR    E.DO16    E.VA11    A=ICC     GCL       OMI=LEN   V=LGE 
                                        ALC       SLT       E.DVL1    E.VA12    A=ICCX    MOD       OM=ADD    V=LIBF
                                        ALC.REG   SSY       E.DO17    E.VA13    A=ICI     N.CT      OM=AND    V=LLT 
                                        ALC.STF   STAGE     E.DVR5    E.XP1     A=ICIX    SCR       OM=CONV   V=MASK
                                        ALC.00    STY       E.INF     E.XP3     A=ICL     S=BU      OM=DIV    V=MUL.C 
                                        CCR       TLV       E.INF1    E.XP4     A=STR     S=CON     OM=DOC    V=MUL.D 
                                        DEC       TSX       E.INF2    E.XP5     A=UNT     S=CT      OM=EQ     V=MUL.I 
                                        KCV       ZLE       E.INF3    E.XP6     CML       S=RD      OM=EQV    V=MUL.R 
                                        LCH       ZLEQUAL   E.LP1     E.XP7     C=BFWA    S=VALUE   OM=GE     V=NOOP
                                        LCT       DO.DPC    E.LP2     E.ZEMT    C=CNT     S=VD      OM=INL    V=NOT.L 
                                        LIR       E.AT01    E.LP3     E.MDE5    C=DOCI    T=ARG     OM=LT     V=RANF
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        NBC       E.AT02    E.LV11    ERL=CON   C=DOCS    T=BLST    OM=MUL    V=SHIFT 
                                        NCS       E.AT03    E.PX1     ERL=XPR   C=FMT     T=DIM     OM=NE     V=STR.H 
                                        OCT       E.AT04    E.PX5     FILL.     C=ICC     T=ILI     OM=NOT    V=STR.I 
                                        PCC       E.AT05    E.PX6     FILL.2    C=ICCX    T=IOARG   OM=OR     V=SUBST 
                                        PCR       E.AT06    E.PX7     FILL.3    C=ICI     T=PAR     OM=STR    V=SUB.I 
                                        PCR.1OP   E.AT07    E.SB2     MOD.DPC   C=ICIX    T=SLARG   OM=SUB    V=UMI.I 
                                        PCR.2OP   E.AT08    E.SB3     OSE       C=ICL     T=SYM     OM=UMI    V=XMIT
                                        PCR.RO    E.AT09    E.SB4     E.SF13    C=IOL     T.ARG     OM=XOR    Z.IMCV
                                        CFC       E.AT10    E.SB5     E.SF15    C=UNT     T.BLST    V=ADD.I   Z.INTA
                                        C=DVL     E.AT13    E.SB6     E.AT11    IDCEX     T.CON     V=APIOC   Z.INTF
                                        DAT.Z     E.AT14    E.SB7     MDD       A=FOU     T.DIM     V=APIOD   Z.SKCR
                                        A=DBD     E.AT15    E.SF09    PDC       C=FOU     T.IOARG   V=APIOU   MVE=
                                        CDBB      E.AT16    E.SF10    SN.EMT    IODIR     T.PAR     V=ARY     CO.OPT
                                        C=DBD     E.AT17    E.SU01    SN.PAR    IOJ       T.SLARG   V=BSS     V=INE.H * 
                                        DIRT      E.AT18    E.SU02    COD       CRL       T.STF     V=CAT     V=IEQ.H * 
                                        KW=COMM   E.AT19    E.SU03    CO.ANSI   C=PJX     T.SYM     V=CMPLX   V=INE.C * 
                                        ARGCOMA   E.AT20    E.SU05    CO.DBSB   IFMOD     T.TB      V=COLON   V=IEQ.C * 
                                        ARGMIS    E.AT21    E.SU07    CO.DBTB   IFREL2    VTRUE     V=DOBL    V=INE.D * 
                                        ARGMODE   E.ANS4    E.SU08    CO.RNDD   IFRESLT   WOF       V=DOBS    V=IEQ.D * 
                                        BBC       E.ANS5    E.SU09    CO.RNDM   CDIFLG    WO.CS     V=DOBZL   V=INE.R * 
                                        CALLTAG   E.DC1     E.SU10    CO.SNAP   DDR       WO.DOLG   V=DOBZS   V=IEQ.R * 
                                        CHARMAP   E.DC4     E.SU11    CO.DOLG   DOMODE    NSQZLH    V=DVC.R   V=INE.I * 
                                        CT1       E.DM01    E.TY2     REG=      ISL       T.PCS     V=DVI     V=IEQ.I * 
                                        DATFLG    E.DM11    E.TY4     RSR=      PDA       T=PCS     V=ERR     V=INE.L * 
                                        ERT       E.DM14    E.TY9     SNP=      PSL       CONZERI   V=EXP.I   V=IEQ.L * 
                                        ESTACK    E.DM17    E.VA01    SV=B      TB=TYPE   F.IMCV    V=FAP     V=INE.B * 
                                        ESY       E.DM18    E.VA03    SVR=      TB=1ST    F.INTF    V=FUNC    V=IEQ.B * 
                                        FEC=EXU   E.DM21    E.VA04    A=BLWA    ANSI=     F.MODC    V=GAP     T=SCR 
                                        INSTF     E.DO00    E.VA05    A=BMOD    MDERR=    F.SKCR    V=GPL     E.MDE2
                                        LDEAD     E.DO02    E.VA06    A=DOCI    PDM       F.SKNAM   V=IAP 
                                        OSTACK    E.DO04    E.VA07    A=DOCS    CONONE    OMI=CPX   V=INT 
                                        PARMODE   E.DO15    E.VA08    A=FMT     CONZER    OMI=LCF   V=INTF
  
  
  
  
                                                  IDENT  PAR                                                     PAR         2
                                         PAR      SECT   (EXPRESSION TRANSLATION.)                               PAR         3
  
  
  
  
  
                                        ***       PAR - EXPRESSION TRANSLATION.                                  PAR         5
                                        *                                                                        PAR         6
                                        *         PAR TRANSLATES FORTRAN EXPRESSIONS INTO INTERMEDIATE LANGUAGE  PAR         7
                                        *         TURPLES, OR, WITH THE HELP OF CONRED, CONSTANT EXPRESSIONS ARE PAR         8
                                        *         SOMETIMES REDUCED TO A SIMPLE OPERAND.  THIS DECK IS ORGANIZED PAR         9
                                        *         AS FOLLOWS --                                                  PAR        10
                                        *                                                                        PAR        11
                                        *         CNF - COMPILE ASSIGNMENT STATEMENT.                            PAR        12
                                        *         PIX - PARSE/REDUCE INTEGER CONSTANT EXPRESSION.                PAR        13
                                        *         PARSER CONTROL TABLES.                                         PAR        14
                                        *         PAR - OPERATOR PRECEDENCE PARSER.                              PAR        15
                                        *                PARSE/ANALYZE NEXT ELEMENT.                             PAR        16
                                        *                PARSE/ANALYZE CONSTANT ELEMENT.                         PAR        17
                                        *                PARSE/ANALYZE SYMBOLIC ELEMENT.                         PAR        18
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     3
                                                                      PAR 
  
                                        *                PARSE/ANALYZE NEXT SEPARATOR.                           PAR        19
                                        *         POP - SYNTHESIZE SEMANTICS.                                    PAR        20
                                        *                POP/EMIT SIMPLE OPERATORS.                              PAR        21
                                        *                POP/EMIT SUBSTRING.                                     PAR        22
                                        *                POP/EMIT DO LOOP INDICIES.                              PAR        23
                                        *                POP/EMIT EXPONENTIATION.                                PAR        24
                                        *                POP/EMIT APLIST AND FUNCTION REFERENCE.                 PAR        25
                                        *                POP/EMIT ARRAY SUBSCRIPTS.                              PAR        26
                                        *         SUBROUTINES.                                                   PAR        27
                                                                                                                 PAR        28
                                                                                                                 PAR        29
                                        *         IN ALLOC                                                       PAR        30
                                                  EXT    ADW,ALC,ALC.REG,ALC.STF,ALC.00                          PAR        31
                                                                                                                 PAR        32
                                        *         IN CONRED                                                      PAR        33
                                                  EXT    CCR,DEC,KCV,LCH,LCT,LIR,NBC,NCS,OCT,PCC                 FC50612     6
                                                  EXT    PCR,PCR.1OP,PCR.2OP,PCR.RO                              PAR        35
                                                                                                                 PAR        36
                                        *         IN DATA                                                        PAR        37
                                                  EXT    CFC,C=DVL,DAT.Z                                         FC5A111    25
                                                                                                                 PAR        39
                                        *         IN DECL                                                        PAR        40
                                                  EXT    A=DBD,CDBB,C=DBD,DIRT,KW=COMM                           FC50438    15
                                                                                                                 PAR        42
                                        *         IN FEC                                                         PAR        43
                                                  EXT    ARGCOMA,ARGMIS,ARGMODE,BBC,CALLTAG,CHARMAP,CT1,DATFLG   FC50396     5
                                                  EXT    ERT,ESTACK,ESY,FEC=EXU,INSTF,LDEAD,NCS,OSTACK,PARMODE   FC50612     7
                                                  EXT    REFVAR,SLT,SSY,STAGE,STY,TLV,TSX,ZLE,ZLEQUAL            FC50612     8
                                                                                                                 PAR        47
                                        *         IN FERRS                                                       PAR        48
                                                  EXT    DO.DPC,E.AT01,E.AT02,E.AT03,E.AT04,E.AT05,E.AT06,E.AT07 PAR        49
                                                  EXT    E.AT08,E.AT09,E.AT10,E.AT13,E.AT14,E.AT15,E.AT16,E.AT17 PAR        50
                                                  EXT    E.AT18,E.AT19,E.AT20,E.AT21,E.ANS4,E.ANS5,E.DC1         FC5A471     7
                                                  EXT    E.DC4,E.DM01,E.DM11,E.DM14,E.DM17,E.DM18,E.DM21,E.DO00  FC50438    16
                                                  EXT    E.DO02,E.DO04,E.DO15,E.DO16,E.DVL1,E.DO17,E.DVR5        FC50438    17
                                                  EXT    E.INF,E.INF1,E.INF2,E.INF3                              FC5A302     9
                                                  EXT    E.LP1,E.LP2,E.LP3,E.LV11,E.PX1,E.PX5,E.PX6,E.PX7        FC50041     5
                                                  EXT    E.SB2,E.SB3,E.SB4,E.SB5,E.SB6,E.SB7,E.SF09,E.SF10       PAR        55
                                                  EXT    E.SU01,E.SU02,E.SU03,E.SU05,E.SU07,E.SU08,E.SU09,E.SU10 PAR        56
                                                  EXT    E.SU11,E.TY2,E.TY4,E.TY9,E.VA01,E.VA03,E.VA04,E.VA05    FC5A302    10
                                                  EXT    E.VA06,E.VA07,E.VA08,E.VA11,E.VA12,E.VA13               FC5A302    11
                                                  EXT    E.XP1,E.XP3,E.XP4,E.XP5,E.XP6,E.XP7,E.ZEMT              FC5A302    12
                                                  EXT    E.MDE5,ERL=CON,ERL=XPR,FILL.,FILL.2,FILL.3,MOD.DPC,OSE  F1037F5   432
                                                  EXT    E.SF13,E.SF15                                           FC50474     8
                                                  EXT    E.AT11                                                  FC50189    10
                                                                                                                 PAR        61
                                        *         IN FLINK                                                       PAR        62
                                                  EXT    MDD,PDC                                                 FC5A302    13
                                                                                                                 PAR        64
                                        *         IN FSNAP                                                       PAR        65
                                                  EXT    SN.EMT,SN.PAR                                           PAR        66
                                                                                                                 PAR        67
                                        *         IN FTN                                                         PAR        68
                                                  EXT    COD,CO.ANSI,CO.DBSB,CO.DBTB,CO.RNDD,CO.RNDM,CO.SNAP     FC50392    11
                                                  EXT    CO.DOLG                                                 FC50947     8
                                                                                                                 PAR        70
                                        *         IN IDP                                                         PAR        71
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     4
                                                                      PAR 
  
                                                  EXT    REG=,RSR=,SNP=,SV=B,SVR=                                PAR        72
                                                                                                                 PAR        73
                                        *         IN IO                                                          PAR        74
                                                  EXT    A=BLWA,A=BMOD,A=DOCI,A=DOCS,A=FMT,A=ICC,A=ICCX,A=ICI    PAR        75
                                                  EXT    A=ICIX,A=ICL,A=STR,A=UNT,CML,C=BFWA,C=CNT,C=DOCI,C=DOCS PAR        76
                                                  EXT    C=FMT,C=ICC,C=ICCX,C=ICI,C=ICIX,C=ICL,C=IOL,C=UNT,IDCEX PAR        77
                                                  EXT    A=FOU,C=FOU,IODIR,IOJ                                   FC5A338    59
                                                                                                                 PAR        79
                                        *         IN KEY                                                         PAR        80
                                                  EXT    CRL,C=PJX,IFMOD,IFREL2,IFRESLT                          PAR        81
                                                                                                                 PAR        82
                                        *         IN LABEL                                                       PAR        83
                                                  EXT    CDIFLG,DDR,DOMODE,ISL,PDA,PSL                           FC5A211    71
                                                                                                                 PAR        85
                                        *         IN LEX                                                         PAR        86
                                                  EXT    TB=TYPE,TB=1ST                                          FC50438    18
                                                                                                                 PAR        88
                                        *         IN PEM                                                         PAR        89
                                                  EXT    ANSI=,MDERR=,PDM                                        FC5A302    14
                                                                                                                 PAR        91
                                        *         IN PUC                                                         PAR        92
                                                  EXT    CONONE,CONZER,GCL,MOD,N.CT,SCR,S=BU,S=CON,S=CT,S=RD     PAR        93
                                                  EXT    S=VALUE,S=VD,T=ARG,T=BLST,T=DIM,T=ILI,T=IOARG,T=PAR     FC50396     8
                                                  EXT    T=SLARG,T=SYM,T.ARG,T.BLST,T.CON,T.DIM,T.IOARG,T.PAR    FC50396     9
                                                  EXT    T.SLARG,T.STF,T.SYM,T.TB,VTRUE,WOF,WO.CS,WO.DOLG        FC50396    10
                                                  EXT    NSQZLH,T.PCS,T=PCS                                      FC51075    10
                                                  EXT    CONZERI                                                 FC51082     9
                                                                                                                 FC51082    10
                                        *         IN QSKEL/FSKEL                                                 PAR        98
                                                  EXT    F.IMCV,F.INTF,F.MODC,F.SKCR,F.SKNAM                     PAR        99
                                                  EXT    OMI=CPX,OMI=LCF,OMI=LEN,OM=ADD,OM=AND,OM=CONV,OM=DIV    PAR       100
                                                  EXT    OM=DOC,OM=EQ,OM=EQV,OM=GE,OM=INL,OM=LT,OM=MUL,OM=NE     PAR       101
                                                  EXT    OM=NOT,OM=OR,OM=STR,OM=SUB,OM=UMI,OM=XOR,V=ADD.I        PAR       102
                                                  EXT    V=APIOC,V=APIOD,V=APIOU,V=ARY,V=BSS,V=CAT,V=CMPLX       PAR       103
                                                  EXT    V=COLON,V=DOBL,V=DOBS,V=DOBZL,V=DOBZS,V=DVC.R,V=DVI     FC50396    11
                                                  EXT    V=ERR,V=EXP.I,V=FAP,V=FUNC,V=GAP,V=GPL,V=IAP,V=INT      FC50396    12
                                                  EXT    V=INTF,V=LGE,V=LIBF,V=LLT,V=MASK,V=MUL.C,V=MUL.D        FC50396    13
                                                  EXT    V=MUL.I,V=MUL.R,V=NOOP,V=NOT.L,V=RANF,V=SHIFT,V=STR.H   FC50396    14
                                                  EXT    V=STR.I,V=SUBST,V=SUB.I,V=UMI.I,V=XMIT,Z.IMCV,Z.INTA    FC50396    15
                                                  EXT    Z.INTF,Z.SKCR                                           FC50396    16
                                                                                                                 PAR       109
                                        *         IN UTILITY                                                     PAR       110
                                                  EXT    MVE=                                                    PAR       111
  
  
  
  
                                        **        GENERAL COMMENT TO THOSE WHO GET THIS FAR --                   PAR       113
                                        *                                                                        PAR       114
                                        *         I THINK THAT I SHALL NEVER SEE                                 PAR       115
                                        *         A SUBROUTINE THAT WORKS FOR ME                                 PAR       116
                                        *         A MACRO OR ZERO TEST                                           PAR       117
                                        *         THAT ISNT JUST A RODENTS NEST                                  PAR       118
                                        *         A STRING THAT DOESNT ALWAYS STRAY                              PAR       119
                                        *         AND MIX UP BITS IN WILD ARRAY                                  PAR       120
                                        *         A PROCESS WITH RE-ENTRANT FLAIR                                PAR       121
                                        *         THAT ISNT JUST A LOOPING SNARE                                 PAR       122
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     5
                                                                      POEM
  
                                        *         ROUTINES WHOSE TIMINGS ARE NOT SLAIN                           PAR       123
                                        *         WHEN INTERRUPTS BEGIN TO RAIN                                  PAR       124
                                        *         ONLY GOD CAN MAKE A TREE                                       PAR       125
                                        *         BUT, BUGS ARE MADE BY GUYS LIKE ME.                            PAR       126
                                        *                                                                        PAR       127
                                        *         TRADITIONAL.                                                   PAR       128
  
  
  
  
                                                  MACRO  PARSNAP,NAME                                            PAR       130
                                         NAME     REG                                                            PAR       131
                                         OPSTACK  CORE   OSTACK,8                                                PAR       132
                                         ELSTACK  CORE   ESTACK,8                                                PAR       133
                                         ARGCMOM  CORE   ARGCOMA,3                                               PAR       134
                                                  ENDM                                                           PAR       135
  
  
  
  
                                        **        BITMASK MICROS.                                                PAR       137
                                                                                                                 PAR       138
                                                                                                                 PAR       139
                                         M.OKINT  BITMIC (M.BOOL,M.INT)                                          PAR       140
                                         M.OKDO   BITMIC (M.BOOL,M.INT,M.REAL,M.DBL)                             PAR       141
                                         M.OKDOC  BITMIC (M.INT,M.REAL,M.DBL)                                    FC5A254     4
                                         M.OKNUM  BITMIC (M.BOOL,M.INT,M.REAL,M.DBL,M.CPLX)                      PAR       142
  
  
  
  
                                        **        MISCELLANEOUS CELLS USED BY PARSER.                            PAR       144
                                                                                                                 PAR       145
                                                                                                                 PAR       146
                                   0 X   PARPA    EQU    SCR         *TREX* PRESERVES PROCESSOR ADDRESS HERE     FC5A141   290
             0                     1     PARNOW   BSSENT 1           ACTIVE VALUE OF (PARMODE)                   PAR       147
             1  00000000000000000000     ATTR     CON    0           ATTRIBUTES PER TRE                          PAR       148
             2                     1     SMOD     BSSENT 1           SUB-EXPRESSION DOMINANT MODE                PAR       149
             3                     1     SOPR     BSSENT 1           MODE CONVERSION OPERATOR                    PAR       150
             4                     1     CURST    BSSENT 1           LOW LIMIT (T.PAR) INDEX FOR SQUEEZE         PAR       151
             5  00000000000000000000     LASTOP   CON    0           SET = TO LAST OPERATOR IN PARSED FILE UPON  FC50612     9
                                                                     ENTRY TO POP.                               FC50612    10
             6  00000000000000000000     LASTAD   CON    0           SET = TO LAST ADDRESS OF PARSE FILE UPON    FC50612    11
                                                                     ENTRY TO POP.                               FC50612    12
             7                     2     POPDPC   BSS    2           DPC FOR OPERATOR CAUSING POP                PAR       152
                                  10 +   POPPER   EQU    POPDPC+1    OPERATOR (SETOP) WORD FOR *POPDPC*          PAR       153
                                                                                                                 PAR       154
            11                     1     LASTREL  BSS    1           OPERATOR OF LAST RELATIONAL POPPED          PAR       155
            12                     1     CMLFLG   BSS    1           I/O RESTART CALLS INDICATOR                 PAR       156
                                                                                                                 PAR       157
            13  23311502171400000000     CSYMBOL  CON    0LSYMBOL    CURRENTLY BEING ANALYZED                    PAR       158
            14                     1     CSYTAG   BSS    1           (TP.) OPERAND FOR CURRENT SYMBOL            PAR       159
            15                     1     CSYREF   BSS    1           CURRENT SYMBOL NAME USED IN REF MAP         PAR       160
            16  00000000000000000000     CSYWB    CON    0           SYMTAB ATTRIBUTE WORD OF CURRENT SYMBOL     PAR       161
                                                                                                                 PAR       162
                                                                                                                 PAR       163
            17                     3     TEMPS    BSS    3           SCRATCH CELLS FOR --                        FC5A441     7
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     6
  
  
                                  17 +   TREB     EQU    TEMPS       1     PAR.VAR                               PAR       165
                                  17 +   EXPA     EQU    TEMPS       1     POP.EXP                               PAR       166
                                  20 +   EXPB     EQU    TEMPS+1     1                                           PAR       167
                                  17 +   EQLA     EQU    TEMPS       1     POP.EQL                               PAR       168
                                  20 +   EQLB     EQU    TEMPS+1     1                                           FC50189    11
                                  21 +   EQLC     EQU    TEMPS+2     1                                           FC5A441     8
                                  17 +   RELA     EQU    TEMPS       1     POP.REL                               PAR       169
                                  17 +   MSPA     EQU    TEMPS       1     MSP                                   PAR       170
                                  17 +   SSRA     EQU    TEMPS       1     SSR                                   PAR       171
                                  17 +   VILA     EQU    TEMPS       1     VIL                                   PAR       172
                                  20 +   VILB     EQU    TEMPS+1     2     VIL                                   FC5A411    35
                                  17 +   CATA     EQU    TEMPS       1     POP.CAT                               PAR       173
                                  20 +   CATB     EQU    TEMPS+1     1                                           PAR       174
                                                                                                                 PAR       175
            22                     2     TER2     BSS    2           CAN HOLD CONSTANT 2OP                       PAR       176
                                                                                                                 PAR       177
                                                                                                                 PAR       178
                                         FUNI     MACRO  FUNT,RJOP,SUFF,APOP                                     PAR       179
                                                  VFD    12/2000B+MF.FUNT,18/RJOP,12/2000B+1R_SUFF,18/APOP       PAR       180
                                                  ENDM                                                           PAR       181
                                                                                                                 PAR       182
            24                     1              BSS    1           WORKING COPY OF (FUNCALL(I))                PAR       183
            25  2002000322 +             FUNCALL  FUNI   LIB,LIBOP,"XBYNAM",GAPOP                                PAR       184
            26  2003000321 +                      FUNI   BEF,INFOP,"XBYVAL",IAPOP                                PAR       185
            27  2002000322 +                      FUNI   LIB,LIBOP,"XUPNAM",GAPOP                                PAR       186
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     7
                                                                      CNF 
  
                                        **        CNF - COMPILE NORMAL FORMULA.                                  PAR       188
                                                                                                                 PAR       189
                                                                                                                 PAR       190
            30                           CNF      BSSENT 0           ENTRY...                                    PAR       191
            30  5110000000 X                      SA1    ZLEQUAL                                                 PAR       192
                          63411                   =B4    X1+1        START AT RIGHT SIDE OF LAST *=*             PAR       193
                               10611              BX6    X1                                                      PAR       194
            31  5160000000 X                      SA6    ZLE         SET                                         PAR       195
                          53110                   SA1    X1                                                      PAR       196
                               21122              AX1    TB.TOTL                                                 PAR       197
                                   0              ERRNZ  TB.TOTP                                                 PAR       198
            32  0301000034 +                      ZR     X1,CNF1     IF NO MULTIPLE ASSIGNMENT                   PAR       199
                          6170000000 X            ANSI   E.AT09                                                  PAR       200
                                                                                                                 PAR       201
                                        *         PARSE STATEMENT.                                               PAR       202
                                                                                                                 PAR       203
            34  5130000367 +             CNF1     SA3    CNFARM                                                  PAR       204
                          76700                   =X7    0                                                       PAR       205
                               22603              LX6    X3                                                      PAR       206
            35  5170000000 X                      SA7    ARGCOMA                                                 PAR       207
                          5160000000 X            SA6    ARGMODE                                                 PAR       208
            36  0100000426 +                      RJ     PAR         PARSE STATEMENT                             PAR       209
            37  0400000000 X                      EQ     PSL         EXIT..                                      PAR       210
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     8
        PIX - PARSE INTEGER CONSTANT EXPRESSION.                      PIX 
  
                                        **        PIX -  PARSE INTEGER CONSTANT EXPRESSION.                      PAR       213
                                        *                                                                        PAR       214
                                        *         ENTRY  (B4) _ FWA EXPRESSION IN TOKEN BUFFER.                  PAR       215
                                        *                (B4)-1 _ A TOKEN WHICH WILL BE DESTROYED.               PAR       216
                                        *                                                                        PAR       217
                                        *         EXIT   (X5) = OPERAND FOR EXPRESSION RESULT.                   PAR       218
                                        *                (X6) = VALUE OF EXPRESSION.                             PAR       219
                                        *                (X0) = ACTUAL MODE OF EXPRESSION.                       PAR       220
                                        *                (B4) _ SEPARATOR TOKEN WHICH TERMINATED EXPRESSION.     PAR       221
                                        *                                                                        PAR       222
                                        *         USES   ALL.                                                    PAR       223
                                        *                                                                        PAR       224
                                        *         CALLS  LCT, PAR, PDM.                                          PAR       225
                                                                                                                 PAR       226
                                                                                                                 PAR       227
            40  0400400040 +             PIX      SUBR   =           ENTRY/EXIT...                               PAR       228
            41  76740                             SX7    B4                                                      PAR       229
                     5170000063 +                 SA7    PIXB                                                    PAR       230
            42  5130000400 +                      SA3    PIXARM                                                  PAR       231
                          76610                   =X6    PM=ICE      ALLOW ONLY INTEGER CONSTANT EXPRESSIONS     PAR       232
            43  5160000000 X                      SA6    PARMODE                                                 PAR       233
                          5110000000 X            SA1    T=PAR                                                   PAR       234
            44  10633                             BX6    X3                                                      PAR       235
                     22701                        LX7    X1          REMEMBER OLD LENGTH OF (T.PAR)              PAR       236
                          5160000000 X            SA6    ARGMODE                                                 PAR       237
            45  5170000062 +                      SA7    PIXA                                                    PAR       238
                          67441                   SB4    B4-B1       TOKEN BUFFER POINTER -> BEFORE EXPR         PAR       239
                               13666              BX6    0                                                       PAR       240
            46  7170000044                        =X7    O.SLP       MARK EXPRESSION START BY SPECIAL LPAREN     PAR       241
                          5160000000 X            SA6    ARGCOMA                                                 PAR       242
            47  56740                             SA7    B4                                                      PAR       243
                     0100000426 +                 RJ     PAR         REDUCE THE EXPRESSION                       PAR       244
            50  76600                             =X6    0                                                       PAR       245
                     5160000000 +                 SA6    PARNOW                                                  PAR       246
            51  5130000062 +                      SA3    PIXA                                                    PAR       247
                          10155                   BX1    X5                                                      PAR       248
                               10633              SHRINK T=PAR,X3    DISCARD NON-CONSTANT PARTS OF EXPR          PAR       249
                          0100000000 X            CALL   LCT                                                     PAR       250
            53  0420000055 +                      ZR     B2,PIX8     IF RESULT NOT ARITHMETIC CONSTANT           PAR       251
                          0300000040 +            ZR     X0,EXIT.    IF RESULT MODELESS                          PAR       252
            54  6220777775                        =B2    X0-M.INT                                                PAR       253
                          0420000040 +            ZR     B2,EXIT.    IF RESULT MODE INTEGER                      PAR       254
                                                                                                                 PAR       255
            55  5150000063 +            PIX8      SA5    PIXB                                                    PAR       256
                          76740                   SX7    B4                                                      PAR       257
                               63450              SB4    X5          POINT TO BEGIN. OF EXPRESSION               PAR       258
            56  6170000000 X                      FATAL  E.PX1       FILL. NOT INTEGER CONSTANT EXPRES.          PAR       259
            57  63470                             SB4    X7                                                      PAR       260
                                                                                                                 PAR       261
            60  5150000000 X             PIX9     SA5    CONONE      RETURN RESULT AS INTEGER CONSTANT ONE       PAR       262
                          76610                   SX6    B1                                                      PAR       263
                               76011              =X0    M.INT                                                   PAR       264
            61  0400000040 +                      EQ     EXIT.                                                   PAR       265
                                                                                                                 PAR       266
            62                     1     PIXA     BSS    1           SAVES OLD PARSED FILE LENGTH                PAR       267
            63                     1     PIXB     BSS    1                                                       PAR       268
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE     9
        PIX - PARSE INTEGER CONSTANT EXPRESSION.                      C=PIX 
  
                                        **        C/A =PIX - END OF INTEGER CONSTANT EXPRESSION.                 PAR       270
                                                                                                                 PAR       271
                                                                                                                 PAR       272
            64                           C=PIX    BSS    0           COMMA TERMINATED EXPRESSION                 PAR       273
            64  6144000001                        SB4    B4+1                                                    PAR       274
                                                                                                                 PAR       275
            65                           A=PIX    BSS    0           RIGHT PAREN TERMINATED EXPRESSION           PAR       276
            65  0400001457 +                      EQ     PAREXIT     EXIT..                                      PAR       277
  
  
  
  
                                        **        PKX -  PARSE CONSTANT EXPRESSION.                              PAR       279
                                        *                                                                        PAR       280
                                        *         CALLS PARSER TO EVALUATE AN EXPRESSION, AND RESTRICTS          PAR       281
                                        *         THE RESULT TO BEING A CONSTANT.  IF THE RESULT IS A SHORT      PAR       282
                                        *         CONSTANT, ITS VALUE IS RETURNED.                               PAR       283
                                        *                                                                        PAR       284
                                        *         ENTRY  (B4) -> FWA EXPRESSION IN TOKEN BUFFER.                 PAR       285
                                        *                (B4)-1 -> A TOKEN WHICH WILL BE DESTROYED.              PAR       286
                                        *                (X6) = VALUE TO BE STORED INTO *PARMODE*.               FC5A156    13
                                        *                                                                        PAR       287
                                        *         EXIT   (B4) -> SEPARATOR TOKEN WHICH TERMINATED EXPRESSION.    PAR       288
                                        *                (B5) = MODE OF EXPRESSION RESULT.                       PAR       289
                                        *                (B6) = CONSTANT LENGTH IN CHARS OR WORDS.               PAR       290
                                        *                                                                        PAR       291
                                        *         IF CONSTANT RESULT IN TABLE --                                 PAR       292
                                        *                (B2) = -1                                               PAR       293
                                        *                (X6) = WORD INDEX OF VALUE (IN T.CON)                   FC5A302    15
                                        *                                                                        PAR       295
                                        *         IF SHORT CONSTANT RESULT --                                    PAR       296
                                        *                (B2) = 1                                                PAR       297
                                        *                (X6) = VALUE OF EXPRESSION.                             PAR       298
                                        *                                                                        PAR       299
                                        *         IF RESULT NOT CONSTANT --                                      PAR       300
                                        *                (B2) = 0                                                PAR       301
                                        *                (X6) = 0                                                PAR       302
                                        *                                                                        PAR       303
                                        *         NOTE THAT MODE AND LENGTH ARE ALWAYS RETURNED CORRECTLY,       PAR       304
                                        *         EVEN IF THE EXPRESSION IS FAULTY.                              PAR       305
                                        *                                                                        PAR       306
                                        *         USES   ALL.                                                    PAR       307
                                        *                                                                        PAR       308
                                        *         CALLS  LCT, PAR, PDM.                                          PAR       309
                                                                                                                 PAR       310
                                                                                                                 PAR       311
            66  0400400066 +             PKX      SUBR   =           ENTRY/EXIT...                               PAR       312
            67  5160000000 X                      SA6    PARMODE                                                 FC5A156    14
                          5130000400 +            SA3    PIXARM                                                  PAR       313
            70  5110000000 X                      SA1    T=PAR                                                   PAR       314
                          10633                   BX6    X3                                                      PAR       315
                               22701              LX7    X1          REMEMBER OLD LENGTH OF (T.PAR)              PAR       316
            71  5160000000 X                      SA6    ARGMODE                                                 PAR       317
                          5170000062 +            SA7    PKXA                                                    PAR       318
            72  76640                             SX6    B4          REMEMBER (PKXB) = ORIGINAL CURSOR           PAR       319
                     67441                        SB4    B4-B1       TOKEN BUFFER CURSOR -> BEFORE EXPR          PAR       320
                          5160000121 +            SA6    PKXB                                                    PAR       321
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    10
        PIX - PARSE INTEGER CONSTANT EXPRESSION.                      PKX 
  
            73  13666                             BX6    0                                                       PAR       322
                     7170000044                   =X7    O.SLP       MARK EXPRESSION START BY SPECIAL LPAREN     PAR       323
            74  5160000000 X                      SA6    ARGCOMA                                                 PAR       324
                          56740                   SA7    B4                                                      PAR       327
            75  0100000426 +                      RJ     PAR         REDUCE THE EXPRESSION                       PAR       328
                                                                                                                 PAR       329
            76  43071                             MX0    -TP.MODEL                                               PAR       330
                     10655                        BX6    X5                                                      PAR       331
                          66610                   SB6    B1          CONLEN = 1                                  PAR       332
                                                  LX5    -TP.MODEP                                               PAR       333
                               15150              BX1    -X0*X5      (X1) = MODE OF RESULT                       PAR       334
            77  20620                             HX6    TP.BIAS                                                 PAR       335
                     6170000006                   =B7    M.CHAR                                                  PAR       336
                               63510              SB5    X1          CONMODE                                     PAR       337
           100  20520                             LX5    TP.MODEP-TP.ORDP                                        PAR       338
                     21644                        AX6    -TP.BIASL   RETURN (X6) = INDEX INTO CON TABLE          PAR       339
                          43054                   MX0    -TP.ORDL                                                PAR       340
                               15450              BX4    -X0*X5      (X4) = (TP.ORD)                             PAR       341
           101  20541                             LX5    TP.ORDP-1-TP.INTRP                                      PAR       342
                     0557000107 +                 NE     B5,B7,PKX6  IF RESULT MODE NOT CHARACTER                PAR       343
                               20513              LX5    TP.INTRP+1                                              PAR       344
           102  10155                             BX1    X5                                                      PAR       345
                     0100000000 X                 CALL   LCH         SEE IF CONSTANT                             PAR       346
           103  6170000000 X                      SB7    E.PX6       ** EXPRESSION MUST BE CONSTANT              FC5A302    16
                          0420000114 +            ZR     B2,PKX8     IF NOT CONSTANT, ERROR                      PAR       347
           104  6170000000 X                      SB7    E.TY4       ** CHARACTER CONSTANT MUST BE .LE. 2**15-1  FC5A302    17
                          7110100000              SX1    MAX.CL+1                                                FC5A302    18
           105  37171                             IX1    X7-X1                                                   FC5A302    19
                     0321000114 +                 PL     X1,PKX8     IF CHARACTER COUNT .GE. 2**15               FC5A302    20
                               67201              =B2    -1          INDICATE LONG CON                           PAR       349
           106  63500                             SB5    X0          M.CHAR                                      PAR       350
                     63670                        SB6    X7          LENGTH IN CHARACTERS                        FC5A302    21
                          0400000066 +            EQ     EXIT.                                                   PAR       351
                                                                                                                 PAR       352
                                        *         RESULT IS NON-CHARACTER.                                       PAR       353
                                                                                                                 PAR       354
           107  6130000004               PKX6     SB3    M.DBL                                                   PAR       355
                          5120000000 X            SA2    S=CON                                                   PAR       356
           110  66210                             SB2    B1          INDICATE SHORT CONSTANT                     PAR       357
                     0753000111 +                 LT     B5,B3,PKX7  IF NOT DOUBLE-WORD RESULT                   PAR       358
                               66611              =B6    2           CONLEN = 2                                  PAR       359
                                                                                                                 FC5A302    22
           111  6170000000 X             PKX7     SB7    E.PX6       ** EXPRESSION MUST BE CONSTANT              FC5A302    23
                          0335000114 +            MI     X5,PKX8     IF RESULT IS INTERMEDIATE                   FC5A302    24
           112  20572                             LX5    TP.INTRP-TP.SHRTP                                       PAR       361
                     37242                        IX2    X4-X2                                                   PAR       362
                          0335000117 +            MI     X5,PKX9     IF SHORT CONSTANT                           PAR       363
           113  67201                             SB2    -B1         INDICATE CONSTANT IN (T.CON)                PAR       364
                     0302000117 +                 ZR     X2,PKX9     IF RESULT ARITHMETIC CONSTANT               PAR       365
                                                                                                                 PAR       366
                                        *         ISSUE DIAGNOSTIC FOR FAULTY EXPRESSION.                        PAR       367
                                                                                                                 PAR       368
           114  5120000121 +             PKX8     SA2    PKXB        RESET TOKEN CURSOR FOR DIAGNOSTIC           PAR       369
                          66340                   SB3    B4                                                      PAR       370
                               63420              SB4    X2                                                      PAR       371
           115  0100000000 X                      FATAL  B7                                                      FC5A302    25
           116  66430                             SB4    B3                                                      PAR       373
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    11
        PIX - PARSE INTEGER CONSTANT EXPRESSION.                      PKX 
  
                     6120000000                   SB2    0+          INDICATE NO CONSTANT                        PAR       374
                               13666              BX6    0                                                       PAR       375
                                                                                                                 PAR       376
           117  5130000062 +             PKX9     SA3    PKXA                                                    PAR       377
                          46000                   NO                                                             PAR       378
                               10733              BX7    X3                                                      PAR       379
           120  5170000000 X                      SA7    T=PAR       DISCARD NON-CONSTANT PARTS OF EXPR          PAR       380
                                        *         SHRINK                                                         PAR       381
                          0400000066 +            EQ     EXIT.                                                   PAR       382
                                                                                                                 PAR       383
                                  62 +   PKXA     EQU    PIXA        SAVES OLD PARSED FILE LENGTH                PAR       384
           121                     1     PKXB     BSS    1           SAVES INITIAL TOKEN CURSOR                  PAR       385
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    12
        PARSER CONTROL TABLES.                                        CONO
  
                                        **        F.CONO - CURRENT OP VERSUS NEXT OP LEGALITY MATRIX.            PAR       388
                                        *                                                                        PAR       389
                                        *         TABLE IS SET UP WITH EACH OPERATOR/OPERAND HAVING A UNIQUE BIT PAR       390
                                        *         COMBINATION.                                                   PAR       391
                                        *                                                                        PAR       392
                                        *         THE APPEARANCE OF AN OPERATOR IN THE LIST FOR OPERATOR         PAR       393
                                        *         DEFINED IN LOCATION FIELD MEANS IT IS A LEGAL NEXT FOR THAT    PAR       394
                                        *         OPERATOR.                                                      PAR       395
                                        *                                                                        PAR       396
                                        *         FORMAT OF TABLE IS --                                          PAR       397
                                        *                                                                        PAR       398
                                        *         IF SET TO 0 - ILLEGAL COMBINATION.                             PAR       399
                                        *         IF        1 - LEGAL   COMBINATION.                             PAR       400
                                        *                                                                        PAR       401
                                        *         ALSO IN THE LOWER 18 BITS OF THE OPERATOR/OPERAND WORD IS THE  PAR       402
                                        *         JUMP ADDRESS FOR TRANSLATION OF THE ELEMENT.                   PAR       403
                                                                                                                 PAR       404
                                                                                                                 PAR       405
                                                  MACRO  CONO,TOK,ADDR,OPOK                                      PAR       406
                                        *                                                                        PAR       407
                                        *                            VERIFY SYNCHRONIZATION WITH TOKEN ORDER.    PAR       408
                                                  IFC    NE,/TOK//,1                                             PAR       409
                                         O.TOK    BSS                                                            PAR       410
                                        *                            CHECK FOR "DITTO" TOKEN SET.                PAR       411
                                                  IFC    NE,/OPOK/DITTO/,1                                       PAR       412
                                         DITTO    MICRO  1,, OPOK                                                PAR       413
                                        *                            SET LEGALITY BITS.                          PAR       414
                                         .1       ECHO   ,THIS=("DITTO")                                         PAR       415
                                                  POS    60+O.DEF-O.THIS                                         PAR       416
                                                  VFD    1/1                                                     PAR       417
                                         .1       ENDD                                                           PAR       418
                                        *                            SET ELEMENT PROCESSOR ADDRESS.              PAR       419
                                                  POS    18                                                      PAR       420
                                                  VFD    18/PAR.ADDR                                             PAR       421
                                         CONO     ENDM                                                           PAR       422
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    13
        PARSER CONTROL TABLES.                                        CONOTBL 
  
                                        ****      CONO TABLE FOR PARSER.                                         PAR       424
                                                                                                                 PAR       425
                                                                                                                 PAR       426
                                         ARICON   MICRO  1,, HOLL,QHOLL,RLCON,CONS,OCT,HEX                       FC5A258    47
                                         CONSTS   MICRO  1,, "ARICON",CHAR,TRUE,FALSE                            PAR       428
                                         NAME     MICRO  1,, VAR,STFA                                            PAR       429
                                         RELAT    MICRO  1,, LT,LE,EQ,NE,GE,GT                                   PAR       430
                                         LOGIC    MICRO  1,, AND,EQV,OR,XOR,NEQV                                 FC51485    23
                                         ARITH    MICRO  1,, PL,MIN,MULT,DIV                                     PAR       432
                                         ANYOP    MICRO  1,, EOS,"CONSTS",PERIOD,VAR,"ARITH",UMIN,EXP,"RELAT"___ PAR       433
                                        ,,"LOGIC",NOT,CAT,LP,RP,=,COMMA,COLON,SLP                                PAR       434
                                         PREUNAR  BITMIC (O.=,O.COMMA,O.LP,O.LT,O.LE,O.NE,O.EQ,O.GE,O.GT,O.AND,O FC5A230     4
                                        ,.NOT,O.OR,O.XOR,O.NEQV,O.SLP,O.EOS,O.COLON,O.DOBI,O.DCBI)               FC51485    24
                                                                                                                 PAR       435
                                                                                                                 PAR       436
           122                           F.CONO   BSS                                                            PAR       437
      L      0                                    LOC    O.DEF                                                   PAR       438
      L      0                           EOS      CONO   EOS                                                     PAR       439
      L      1                           HOLL     CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,COLON,EOS)        FC50775     7
      L      2                           QHOLL    CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,COLON,EOS)        FC50775     8
      L      3                           RLCON    CONO   HOL,("ARITH","RELAT","LOGIC",RP,COMMA,COLON,EOS)        FC50775     9
      L      4                           CHAR     CONO   CHR,(CAT,"RELAT","LOGIC",RP,COMMA,EOS)                  FC50374     9
      L      5                           CONS     CONO   DEC,("ANYOP")                                           PAR       442
      L      6                           OCT      CONO   OCT,("ANYOP")     LET TNK CHECK NEXT TOKEN              PAR       443
      L      7                           HEX      CONO   OCT,("ANYOP")                                           PAR       444
      L     10                           PERIOD   CONO   DEC,(CONS)                                              PAR       445
      L     11                           VAR      CONO   VAR,(VAR,"ARITH",EXP,LP,RP,=,COMMA,CAT,COLON,"RELAT"___ PAR       446
                                        ,,"LOGIC",EOS)                                                           PAR       447
      L     12                           TRUE     CONO   TRU,(RP,COMMA,"LOGIC",EOS)                              PAR       448
      L     13                           FALSE    CONO   FAL,DITTO                                               PAR       449
      L                                                                                                          PAR       450
      L     14                           PL       CONO   PL,("ARICON",PERIOD,"NAME",LP)                          PAR       451
      L     15                           MIN      CONO   MIN,DITTO                                               PAR       452
      L     16                           MULT     CONO   MULT,DITTO                                              PAR       453
      L     17                           DIV      CONO   DIV,DITTO                                               FC5A150   428
      L     20                           UMIN     CONO   STD,DITTO                                               PAR       455
      L     21                           EXP      CONO   STD,DITTO                                               PAR       456
      L                                                                                                          PAR       457
      L     22                           LT       CONO   STD,("ARICON",PERIOD,CHAR,"NAME",PL,MIN,LP)             PAR       458
      L     23                           GE       CONO   STD,DITTO                                               PAR       459
      L     24                           EQ       CONO   STD,DITTO                                               PAR       460
      L     25                           NE       CONO   STD,DITTO                                               PAR       461
      L     26                           LE       CONO   STD,DITTO                                               PAR       462
      L     27                           GT       CONO   STD,DITTO                                               PAR       463
      L                                                                                                          PAR       464
      L     30                           NOT      CONO   STD,("ARICON",PERIOD,TRUE,FALSE,"NAME",PL,MIN,NOT,LP)   PAR       465
      L     31                           AND      CONO   STD,("CONSTS",PERIOD,"NAME",PL,MIN,NOT,LP)              PAR       466
      L     32                           XOR      CONO   XOR,DITTO                                               FC5A471     8
      L     33                           NEQV     CONO   STD,DITTO                                               FC51485    25
      L     34                           EQV      CONO   STD,DITTO                                               PAR       468
      L     35                           OR       CONO   STD,DITTO                                               PAR       469
      L     36                           CAT      CONO   CAT,(CHAR,"NAME",LP)                                    FC5A204     4
      L                                                                                                          PAR       471
      L     37                           LP       CONO   LP,("CONSTS",PERIOD,"NAME",PL,MIN,NOT,COLON,LP)         PAR       472
      L     40                           RP       CONO   RP,(VAR,"ARITH",EXP,CAT,COLON,LP,RP,=,COMMA,"RELAT"____ PAR       473
                                        ,,"LOGIC",EOS)                                                           PAR       474
      L     41                           =        CONO   EQL,("CONSTS",PERIOD,"NAME",PL,MIN,LP,NOT)              PAR       475
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    14
        PARSER CONTROL TABLES.                                        CONOTBL 
  
      L     42                           COMMA    CONO   CM,("CONSTS",PERIOD,"NAME",PL,MIN,STAR,LP,NOT,DOBI,EOS) PAR       476
      L     43                           COLON    CONO   COL,("ARICON",PERIOD,"NAME",PL,MIN,STAR,LP,RP,NOT,EOS)  PAR       477
      L     44                           SLP      CONO   DLP,("CONSTS",PERIOD,"NAME",PL,MIN,STAR,LP,NOT)         PAR       478
      L     45                           STFA     CONO   STFD,("ARITH",EXP,RP,COMMA,CAT,COLON,"RELAT","LOGIC",__ PAR       479
                                        ,EOS)                                                                    PAR       480
      L     46                           ILL      CONO   STOP,("ANYOP")                                          PAR       481
      L    171                                    LOC    *O                                                      PAR       482
                                                                                                                 PAR       483
                                        *         OTHER TOKEN SETS USED BY PARSER.                               PAR       484
                                                                                                                 PAR       485
           171                           ACONS    BSS    0           (TNK)  LEGAL AFTER ARITH CONSTANT           PAR       486
                    4                             CONO   ERR,("ARITH",EXP,"RELAT","LOGIC",RP,COMMA,COLON,EOS)    PAR       487
                                                                                                                 PAR       488
           172                           FEXPR    BSS    0           (PAR)  LEGAL FIRST TOKEN TO PARSE           PAR       489
                2                                 CONO   ERR,("CONSTS",PERIOD,"NAME",PL,MIN,LP,NOT,SLP)          PAR       490
                                        ****                                                                     PAR       491
                                                  PURGMAC CONO                                                   PAR       492
  
  
  
  
                                        **        F.POPNX - VECTOR OF OPERATOR SYNTHESIZER (POPPER) ADDRESSES.   PAR       494
                                        *                                                                        PAR       495
                                        * TOK     POPNX  ADDR                                                    PAR       496
                                                                                                                 PAR       497
                                                  MACRO  POPNX,TOK,ADDR                                          PAR       498
                                         O.TOK    VFD    42/,18/POP.ADDR                                         PAR       499
                                                  ENDM                                                           PAR       500
                                                                                                                 PAR       501
                                                                                                                 PAR       502
           173                           F.POPNX  BSS                                                            PAR       503
      L      0                                    LOC    O.DEF                                                   PAR       504
      L      0  00000000000000001537 +   EOS      POPNX  ERR                                                     PAR       505
      L      1  00000000000000001537 +   HOLL     POPNX  ERR                                                     PAR       506
      L      2  00000000000000001537 +   QHOLL    POPNX  ERR                                                     FC5A258    50
      L      3  00000000000000001537 +   RLCON    POPNX  ERR                                                     FC5A258    51
      L      4  00000000000000001537 +   CHAR     POPNX  ERR                                                     PAR       507
      L      5  00000000000000001537 +   CONS     POPNX  ERR                                                     PAR       508
      L      6  00000000000000001537 +   OCT      POPNX  ERR                                                     PAR       509
      L      7  00000000000000001537 +   HEX      POPNX  ERR                                                     PAR       510
      L     10  00000000000000001537 +   PERIOD   POPNX  ERR                                                     PAR       511
      L     11  00000000000000001537 +   VAR      POPNX  ERR                                                     PAR       512
      L     12  00000000000000001537 +   TRUE     POPNX  ERR                                                     PAR       513
      L     13  00000000000000001537 +   FALSE    POPNX  ERR                                                     PAR       514
      L                                                                                                          PAR       515
      L     14  00000000000000001675 +   PL       POPNX  PL                                                      PAR       516
      L     15  00000000000000001542 +   MIN      POPNX  STD                                                     PAR       517
      L     16  00000000000000001620 +   MULT     POPNX  MUL                                                     PAR       518
      L     17  00000000000000001636 +   DIV      POPNX  DIV                                                     PAR       519
      L     20  00000000000000001707 +   UMIN     POPNX  UM                                                      PAR       520
      L     21  00000000000000002326 +   EXP      POPNX  EXP                                                     PAR       521
      L                                                                                                          PAR       522
      L     22  00000000000000001735 +   LT       POPNX  REL                                                     PAR       523
      L     23  00000000000000001735 +   GE       POPNX  REL                                                     PAR       524
      L     24  00000000000000001735 +   EQ       POPNX  REL                                                     PAR       525
      L     25  00000000000000001735 +   NE       POPNX  REL                                                     PAR       526
      L     26  00000000000000001731 +   LE       POPNX  LE          REVERSED TO O.GE                            PAR       527
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    15
        PARSER CONTROL TABLES.                                        POPNX 
  
      L     27  00000000000000001732 +   GT       POPNX  GT          REVERSED TO O.LT                            PAR       528
      L                                                                                                          PAR       529
      L     30  00000000000000001725 +   NOT      POPNX  NOT                                                     PAR       530
      L     31  00000000000000001727 +   AND      POPNX  LOG                                                     PAR       531
      L     32  00000000000000001727 +   XOR      POPNX  LOG                                                     FC51485    26
      L     33  00000000000000001727 +   NEQV     POPNX  LOG                                                     FC51485    27
      L     34  00000000000000001727 +   EQV      POPNX  LOG                                                     PAR       533
      L     35  00000000000000001727 +   OR       POPNX  LOG                                                     PAR       534
      L     36  00000000000000002003 +   CAT      POPNX  CAT                                                     PAR       535
      L                                                                                                          PAR       536
      L     37  00000000000000001565 +   LP       POPNX  PN                                                      PAR       537
      L     40  00000000000000001560 +   RP       POPNX  RP                                                      PAR       538
      L     41  00000000000000002034 +   =        POPNX  EQL                                                     PAR       539
      L     42  00000000000000001552 +   COMMA    POPNX  CM                                                      PAR       540
      L     43  00000000000000001552 +   COLON    POPNX  COL                                                     PAR       541
      L     44  00000000000000001565 +   SLP      POPNX  PN          SPECIAL LEFT PAREN                          PAR       542
      L                                                                                                          PAR       543
      L     45  00000000000000001537 +   STFA     POPNX  ERR                                                     PAR       544
      L     46  00000000000000001537 +   ILL      POPNX  ERR                                                     PAR       545
      L    242                                    LOC    *O                                                      PAR       546
                                                                                                                 PAR       547
                                                  PURGMAC POPNX                                                  PAR       548
  
  
  
  
                                        **        SETPRI - DEFINE OPERATOR PRIORITY.                             PAR       550
                                        *                                                                        PAR       551
                                        *  OPR    SETPRI             SET PR.OPR TO COUNTER.                      PAR       552
                                        *  OPR    SETPRI EXPR        SET PR.OPR TO EXPRESSION.                   PAR       553
                                        *                                                                        PAR       554
                                        *         EACH *SETPRI* CALL INCREMENTS PRIORITY COUNTER BY 3            PAR       555
                                        *         UNLESS AN EXPLICIT PRIORITY PARAMETER IS SPECIFIED.            PAR       556
                                        *         THE INCREMENT VALUE OF 3 IS AD HOC.  IT WORKS FOR THE          PAR       557
                                        *         PRESENT SET OF OPERATORS.                                      PAR       558
                                        *                                                                        PAR       559
                                        *         THE PRIORITY SYMBOLS ARE USED IN THE *SETOP* WORDS (BELOW).    PAR       560
                                        *         PRIORITIES EVENTUALLY DRIVE THE PARSER STACK/POP DECISION.     PAR       561
                                        *         THE PARSER FETCHES A (SETOP) WORD FROM THE (F.PRIOR) VECTOR    PAR       562
                                        *         CORRESPONDING TO EACH INCOMING TOKEN.  THE TOKEN BUFFER        PAR       563
                                        *         PRIORITY (TH.TBPR) OF THIS WORD IS COMPARED WITH THE STACK     PAR       564
                                        *         PRIORITY (TH.STPR) OF THE OPERATOR AT THE TOP OF (OSTACK).     PAR       565
                                        *                                                                        PAR       566
                                        *         IF TOKEN PRIORITY .GE. STACK PRIORITY -- STACK TOKEN.          PAR       567
                                        *         IF TOKEN PRIORITY .LT. STACK PRIORITY -- POP STACK TOP.        PAR       568
                                                                                                                 PAR       569
                                                                                                                 PAR       570
                                                  MACRO  SETPRI,OPNAME,PRIORITY                                  PAR       571
                                                  LOC    PRIORITY  PR.SET                                        PAR       572
                                         OPNAME   BSS                                                            PAR       573
                                        *                                                                        PAR       574
                                                  IFC    EQ,//PRIORITY/,1                                        PAR       575
                                         PR.SET   SET    PR.SET+3                                                PAR       576
                                                  ENDM                                                           PAR       577
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    16
        PARSER CONTROL TABLES.                                        PR.SET
  
                                        **        PRIORITY STACK LISTED FROM LOWEST TO HIGHEST PRIORITY.         PAR       579
                                                                                                                 PAR       580
                                                                                                                 PAR       581
                                   5     PR.SET   SET    5           LOWEST PRIORITY                             PAR       582
                                                                                                                 PAR       583
      L      5                           PR.RPAR  SETPRI                                                         PAR       584
      L     10                           PR.LPAR  SETPRI                                                         PAR       585
      L     13                           PR.EQUAL SETPRI                                                         PAR       586
      L     13                           PR.SLP   SETPRI PR.EQUAL    SUBSCRIPT LEFT PAREN                        PAR       587
      L     14                           PR.SPL   SETPRI PR.SLP+1    SUBSCRIPT PLUS                              PAR       588
      L     15                           PR.SMULT SETPRI PR.SPL+1    SUBSCRIPT MULTIPLY                          PAR       589
      L     16                           PR.COM   SETPRI                                                         PAR       590
      L     21                           PR.COL   SETPRI             COLON                                       PAR       591
      L     24                           PR.EQV   SETPRI                                                         PAR       592
                                        * FV                         NOTE XOR PRECEDENCE CHANGE FROM FTN 4       PAR       593
      L     24                           PR.XOR   SETPRI PR.EQV                                                  PAR       594
      L     24                           PR.NEQV  SETPRI PR.XOR                                                  FC51485    28
      L     27                           PR.OR    SETPRI                                                         PAR       595
      L     32                           PR.AND   SETPRI                                                         PAR       596
      L     35                           PR.NOT   SETPRI                                                         PAR       597
      L     40                           PR.REL   SETPRI             LT, LE, NE, EQ, GE, GT                      PAR       598
      L     43                           PR.CAT   SETPRI             //                                          PAR       599
      L     46                           PR.PL    SETPRI                                                         PAR       600
      L     46                           PR.MI    SETPRI PR.PL                                                   PAR       601
      L     51                           PR.UMIN  SETPRI                                                         PAR       602
      L     54                           PR.MULT  SETPRI                                                         PAR       603
      L     54                           PR.DIV   SETPRI PR.MULT                                                 PAR       604
      L     56                           PR.SDIV  SETPRI PR.MULT+2                                               PAR       605
      L     53                           PR.IDIV  SETPRI PR.MULT-1                                               FC5A150   429
      L     57                           PR.EXP   SETPRI                                                         PAR       606
      L     62                           PR.ILL   SETPRI             HIGHEST PRIORITY                            PAR       607
           242                                    LOC    *O                                                      PAR       608
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    17
        PARSER CONTROL TABLES.                                        SETOP 
  
                                        **        SETOP - MACRO TO SET UP OPERATOR ENTRY.                        PAR       610
                                        *                                                                        PAR       611
                                        *         SETOP  TBPR,STPR,SKEL,ATTR                                     PAR       612
                                        *                                                                        PAR       613
                                        *                TBPR = TOKEN BUFFER PRIORITY.                           PAR       614
                                        *                STPR = STACK PRIORITY.                                  PAR       615
                                        *                SKEL = SKELETON WHICH GENERATES CODE FOR THIS OPERATOR. PAR       616
                                        *                ATTR = PARSING ATTRIBUTES.                              PAR       617
                                        *                                                                        PAR       618
                                        *         GENERATES ONE WORD IN TURPLE HEADER (SP.) FORMAT.              FC50104    74
                                        *         SEE THE DESCRIPTION OF (SP.) IN TEXT FOR LAYOUT.               FC50104    75
                                        *                                                                        FC50104    76
                                        *         UPON EMISSION OF A TURPLE, THE (SP.) FORMAT WILL BE CONVERTED  FC50104    77
                                        *         TO (TH.) FORMAT.                                               FC50104    78
                                                                                                                 PAR       630
                                                                                                                 PAR       631
                                         SETOP    MACRO  TBP,STP,JPA,CLS                                         PAR       632
                                         A        MICRO                                                          PAR       633
                                                  IFC    NE,/JPA//,1                                             PAR       634
                                         A        MICRO  1,,/=X_JPA/                                             PAR       635
                                                  VFD    SP.SKELL/"A"                                            FC50104    79
                                        *                                                                        PAR       637
                                                  IRP    CLS                                                     PAR       638
                                                  POS    SP.CLS_P+1                                              FC50104    80
                                                  VFD    1/1                                                     PAR       640
                                                  IRP                                                            PAR       641
                                        *                                                                        PAR       642
                                                  POS    SP.STPRP+SP.STPRL                                       FC50104    81
                                         C        SET    STP+TBP                                                 PAR       644
                                                  IFC    LT,/STP/+/,2                                            PAR       645
                                                  IFC    NE,/STP//,1                                             PAR       646
                                         C        SET    STP                                                     PAR       647
                                                  VFD    SP.STPRL/C,SP.TBPRL/TBP                                 FC50104    82
                                                  ENDM                                                           PAR       649
                                                                                                                 PAR       650
                                                                                                                 PAR       651
                                                  MACRO  SOPENT,LAB,TBP,STP,JPA,CLS                              PAR       652
                                         LAB      SETOP  TBP,STP,JPA,(CLS)                                       PAR       653
                                                  ENTRY  LAB                                                     PAR       654
                                                  ENDM                                                           PAR       655
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    18
        PARSER CONTROL TABLES.                                        F.PRIOR 
  
                                        **        F.PRIOR - OPERATOR PRIORITY VECTOR.                            PAR       657
                                        *                                                                        PAR       658
                                        *         VECTOR OF STANDARD FORTRAN OPERATORS.  THE VECTOR IS           PAR       659
                                        *         INDEXED BY TOKEN TYPES FROM O.SEP THRU O.ILL.                  PAR       660
                                        *         THE PRIOP MACRO INSURES THE VECTOR REMAINS IN ORDER.           PAR       661
                                                                                                                 PAR       662
                                                                                                                 PAR       663
                                                  MACRO  PRIOP,LAB,TBP,STP,JPA,CLS                               PAR       664
                                         O.LAB    SETOP  TBP,STP,JPA,(CLS)                                       PAR       665
                                                  ENDM                                                           PAR       666
                                                                                                                 PAR       667
                                                                                                                 PAR       668
           242                           F.PRIOR  BSS    0                                                       PAR       669
      L     14                                    LOC    O.SEP                                                   PAR       670
      L     14  000000 X                 PL       PRIOP  PR.PL,+1,OM=ADD,(AS,COM,BND)                            PAR       671
      L     15  000000 X                 MIN      PRIOP  PR.MI,+1,OM=SUB,(AS,BND)                                PAR       672
      L     16  000000 X                 MULT     PRIOP  PR.MULT,+1,OM=MUL,(AS,DIS,COM,BND)                      PAR       673
      L     17  000000 X                 DIV      PRIOP  PR.DIV,+1,OM=DIV,(DIS,BND)                              PAR       674
      L     20  000000 X                 UMIN     PRIOP  PR.UMIN,,OM=UMI,(UNAR,BND)                              PAR       675
      L                                 * FV                         NOTE EXP ASSOCIATION CHANGE FROM FTN 4      PAR       676
      L     21  000000                   EXP      PRIOP  PR.EXP            SEE POP.EXP                           PAR       677
      L                                                                                                          PAR       678
      L     22  000000 X                 LT       PRIOP  PR.REL,,OM=LT,(CHAR)                                    PAR       679
      L     23  000000 X                 GE       PRIOP  PR.REL,,OM=GE,(CHAR)                                    PAR       680
      L     24  000000 X                 EQ       PRIOP  PR.REL,,OM=EQ,(CHAR,COM)                                PAR       681
      L     25  000000 X                 NE       PRIOP  PR.REL,,OM=NE,(CHAR,COM)                                PAR       682
      L     26  000000 X                 LE       PRIOP  PR.REL,,OM=GE,(CHAR)          REVERSED TO O.GE          PAR       683
      L     27  000000 X                 GT       PRIOP  PR.REL,,OM=LT,(CHAR)          REVERSED TO O.LT          PAR       684
      L                                                                                                          PAR       685
      L     30  000000 X                 NOT      PRIOP  PR.NOT,,OM=NOT,(MASK,UNAR)                              PAR       686
      L     31  000000 X                 AND      PRIOP  PR.AND,+1,OM=AND,(AS,COM,MASK)                          PAR       687
      L     32  000000 X                 XOR      PRIOP  PR.XOR,+1,OM=XOR,(AS,COM,MASK)                          PAR       688
      L     33  000000 X                 NEQV     PRIOP  PR.XOR,+1,OM=XOR,(AS,COM,MASK)                          FC51485    29
      L     34  000000 X                 EQV      PRIOP  PR.EQV,+1,OM=EQV,(AS,COM,MASK)                          PAR       689
      L     35  000000 X                 OR       PRIOP  PR.OR_,+1,OM=OR_,(AS,COM,MASK)                          PAR       690
      L                                                                                                          PAR       691
      L     36  000000 X                 CAT      PRIOP  PR.CAT,+1,V=CAT,(AS,CHAR,MDLS)                          PAR       692
      L                                                                                                          PAR       693
      L     37  000000                   LP       PRIOP  PR.LPAR,-1,,(NSQZ)                                      PAR       694
      L     40  000000                   RP       PRIOP  PR.RPAR                                                 PAR       695
      L     41  000000 X                 =        PRIOP  PR.EQUAL,-1,OM=STR,(CHAR)                               PAR       696
      L     42  000000                   COMMA    PRIOP  PR.COM,+1,,(MDLS,NSQZ,UNAR)                             PAR       697
      L     43  000000                   COLON    PRIOP  PR.COL,+1,,(MDLS)                                       PAR       698
      L     44  000000 X                 SLP      PRIOP  PR.ILL,,V=ERR                                           PAR       699
      L     45  000000                   STFA     PRIOP  PR.ILL                                                  PAR       700
      L     46  000000 X                 ILL      PRIOP  PR.ILL,,V=ERR                                           PAR       701
      L    275                                    LOC    *O                                                      PAR       702
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    19
        PARSER CONTROL TABLES.                                        SPECOPS 
  
                                        **        INVENTED OPERATORS.                                            PAR       704
                                        *                                                                        PAR       705
                                        *         THESE OPERATORS DO NOT DIRECTLY APPEAR IN THE SOURCE.          PAR       706
                                        *         THAT IS, THEY HAVE NO CORRESPONDING TOKENS TO INVOKE           PAR       707
                                        *         THEM.  THE SETOPS IN THE FIRST SET ARE STACKED BY THE          PAR       708
                                        *         PARSER IN SPECIAL CIRCUMSTANCES.  FOR EXAMPLE, IF A            PAR       709
                                        *         DIVIDE IS TURNED INTO A RECIPROCAL MULTIPLY.                   PAR       710
                                                                                                                 PAR       711
                                                                                                                 PAR       712
           275  000000 X                 IDIV     SETOP  PR.IDIV,+2,OM=DIV,(DIS,BND)                             FC5A150   430
           276  000000 X                 SDIV     SETOP  PR.SDIV,+1,OM=MUL,(AS,DIS,COM,BND)                      PAR       713
           277  000000 X                 MINUSOP  SETOP  O.MIN,0,OM=SUB,(AS,BND)                                 PAR       714
           300  000000 X                 CRDIV    SETOP  O.DIV,0,V=DVC.R,(DIS,BND,MDLS)                          FC5A150   431
  
  
  
  
                                        **        /OP/ - GENERATED INTEGER OPERATORS.                            PAR       716
                                        *                                                                        PAR       717
                                        *         DEFINED AS SMALL CONSTANTS.                                    PAR       718
                                        *         SEE USAGE IN SUBROUTINE *ASE* FOR DETAILS.                     PAR       719
                                                                                                                 PAR       720
                                                                                                                 PAR       721
           301                           INTEG    BSS                                                            PAR       722
                                                  QUAL   OP          DEFINE OPERATOR CODES AS SHORT CONSTANTS    PAR       723
      L      0                                    LOC    0                                                       PAR       724
      L      0  000000 X                 PLUS     SETOP  O.PL,0,V=ADD.I,(AS,COM,MDLS)                            PAR       725
      L      1  000000 X                 MINUS    SETOP  O.MIN,0,V=SUB.I,(AS,BND,MDLS)                           PAR       726
      L      2  000000 X                 UMIN     SETOP  O.UMIN,0,V=UMI.I,(UNAR,BND,MDLS)                        PAR       727
      L      3  000000 X                 MULT     SETOP  O.MULT,0,V=MUL.I,(AS,DIS,COM,MDLS)                      PAR       728
      L    305                                    LOC    *O                                                      PAR       729
                                                  QUAL   *                                                       PAR       730
  
  
  
  
                                        **        THE FOLLOWING SETOPS ARE NOT USED ON THE PARSING STACKS.       PAR       732
                                        *         THEY ARE MERELY TEMPLATES FOR (TH.) EMISSION.  THEREFORE,      PAR       733
                                        *         THERE ARE NO PRIORITY IMPLICATIONS OF THESE.  NEW ENTRIES      PAR       734
                                        *         ARE ADDED AS MAY BE CONVIENIENT FOR TURPLE EMITTERS.           PAR       735
                                        *         THE (TH.TBPR) IS SPECIFIED ONLY TO DRIVE THE USE-COUNT         PAR       736
                                        *         DETERMINATION IN *QCG*.                                        PAR       737
                                                                                                                 PAR       738
                                                                                                                 PAR       739
           305  000000 X                 DO.BEG   SOPENT O.BOTH,0,V=DOBZS,(MDLS,NSQZ)                            PAR       740
           306  000000 X                          SETOP  O.BOTH,0,V=DOBS,(NSQZ,MDLS)                             PAR       741
           307  000000 X                          SETOP  O.BOTH,0,V=DOBZL,(NSQZ,MDLS)                            PAR       742
           310  000000 X                          SETOP  O.BOTH,0,V=DOBL,(NSQZ,MDLS)                             PAR       743
           311  000000 X                 DO.END   SETOP  O.BOTH,0,OM=DOC,(NSQZ)                                  PAR       744
                                                                                                                 PAR       745
                                                                                                                 PAR       746
           312  000000 X                 MULROP   SOPENT O.MULT,0,V=MUL.R,(AS,DIS,COM,MDLS)                      PAR       747
           313  000000 X                 NOTLOP   SETOP  O.NOT,0,V=NOT.L,(MDLS,UNAR)                             PAR       748
           314  000000                   IN.EXP   SETOP  O.EXP,0,,(MDLS,BND)                                     PAR       749
           315  000000 X                ARYOP     SOPENT O.ARY,0,V=ARY,(MDLS)                                    FC50620   224
           316  000000 X                 DVLOP    SOPENT O.NONE,0,V=DVI,(MDLS,NSQZ)                              PAR       751
           317  000000 X                 ERROP    SOPENT O.ERR,0,V=ERR,(BND,MDLS,NSQZ)                           PAR       752
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    20
        PARSER CONTROL TABLES.                                        STATOPS 
  
           320  000000 X                 FUNOP    SETOP  O.NONE,0,V=FUNC,(MDLS,NSQZ)                             PAR       753
           321  000000 X                 INFOP    SETOP  O.NONE,0,V=INTF,(MDLS,NSQZ,BND)                         PAR       754
           322  000000 X                 LIBOP    SETOP  O.NONE,0,V=LIBF,(MDLS,NSQZ,BND)                         PAR       755
           323  000000 X                 FAPOP    SETOP  O.NONE,0,V=FAP,(MDLS,NSQZ,BND)                          PAR       756
           324  000000 X                 GAPOP    SOPENT O.1ST,0,V=GAP,(MDLS,NSQZ,UNAR)                          PAR       757
           325  000000 X                 IAPOP    SETOP  O.1ST,0,V=IAP,(MDLS,NSQZ,UNAR)                          PAR       758
           326  000000 X                 IOCTL    SOPENT O.2ND,0,V=APIOC,(MDLS,NSQZ)                             PAR       759
           327  000000 X                 IODTA    SOPENT O.BOTH,0,V=APIOD,(MDLS,NSQZ)                            PAR       760
           330  000000 X                 IOUNT    SOPENT O.BOTH,0,V=APIOU,(MDLS,NSQZ)                            PAR       761
           331  000000 X                 COLOP    SETOP  O.COLON,0,V=COLON,(MDLS,NSQZ)                           FC50417     6
           332  000000 X                 SUBST    SETOP  O.BOTH,0,V=SUBST,(MDLS,NSQZ)                            FC50417     7
           333  000000 X                 INTMAC   SETOP  O.MODC,0,V=INT,(MDLS,UNAR)                              PAR       764
           334  000000 X                 MCVOP    SETOP  O.MODC,0,OM=CONV,(UNAR)                                 PAR       765
           335  000000 X                 NOOPP    SOPENT O.SPACE,0,V=NOOP,(MDLS,NSQZ)                            PAR       766
           336  000000 X                 OPBSS    SOPENT O.NONE,0,V=BSS,(MDLS,NSQZ)                              PAR       768
           337  000000 X                 XMITOP   SETOP  O.1ST,0,V=XMIT,(MDLS)                                   FC5A140     7
                                                                                                                 PAR       769
                                                                                                                 PAR       770
           340  000000                   OPDUM    SOPENT O.NONE,0,,(MDLS,NSQZ)                                   PAR       771
           341  000000                            SETOP  O.1ST,0,,(MDLS,NSQZ)                                    PAR       772
           342  000000                            SETOP  O.2ND,0,,(MDLS,NSQZ)                                    PAR       773
           343  000000                            SETOP  O.BOTH,0,,(MDLS,NSQZ)                                   PAR       774
           344  000000 X                 RANOP    SETOP  O.BOTH,0,V=RANF,(MDLS,NSQZ)                             PAR       775
           345  000000 X                 EXPOP    SETOP  O.NONE,0,V=EXP.I,(MDLS)  FOR DATA ONLY                  PAR       776
           346  000000 X                 LGEOP    SETOP  O.BOTH,0,V=LGE                                          PAR       777
           347  000000 X                 LLTOP    SETOP  O.BOTH,0,V=LLT                                          PAR       778
           350  000000                   BIFFUN   SETOP  O.BOTH,0,,(MDLS)                                        PAR       779
                                                                                                                 PAR       780
                                                                                                                 PAR       781
           351  000000 X                 STRHOP   SETOP  O.=,0,V=STR.H,(MDLS,NSQZ)                               PAR       782
           352  000000 X                 VD.EQ    SOPENT O.=,0,V=STR.I,(MDLS,NSQZ)                               PAR       783
           353  000000 X                 VD.MI    SOPENT O.MIN,0,V=SUB.I,(AS,MDLS)                               PAR       784
           354  000000 X                 VD.MU    SOPENT O.MULT,0,V=MUL.I,(AS,DIS,COM,MDLS)                      PAR       785
           355  000000 X                 VD.PL    SOPENT O.PL,0,V=ADD.I,(AS,COM,MDLS)                            PAR       786
           356  000000 X                 VD.GP    SOPENT O.1ST,0,V=GPL,(MDLS,NSQZ)                               PAR       787
  
  
  
  
                                        **        F.NEGOP - NEGATION OF OPERATOR.                                PAR       789
                                                                                                                 PAR       790
                                                                                                                 PAR       791
           357                           F.NEGOP  BSS                                                            PAR       792
      L     22                                    LOC    O.LT                                                    PAR       793
      L     22                           O.NEGOP  BSS                LOWER LIMIT OF NEGATABLE OPS                PAR       794
                                                                                                                 PAR       795
      L     22  000000 X                 LT       PRIOP  O.GE,0,OM=GE                                            PAR       796
      L     23  000000 X                 GE       PRIOP  O.LT,0,OM=LT                                            PAR       797
      L     24  000000 X                 EQ       PRIOP  O.NE,0,OM=NE,(COM)                                      PAR       798
      L     25  000000 X                 NE       PRIOP  O.EQ,0,OM=EQ,(COM)                                      PAR       799
      L     26  000000                   LE       PRIOP  O.GT,0      NONE SUCH                                   PAR       800
      L     27  000000                   GT       PRIOP  O.LE,0      NONE SUCH                                   PAR       801
      L                                                                                                          PAR       802
      L     30                           Z.NEGOP  BSS                UPPER LIMIT OF NEGATABLE OPS                PAR       803
           365                                    LOC    *O                                                      PAR       804
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    21
        PARSER CONTROL TABLES.                                        SETARM
  
                                        **        SETARM - SET *ARGMODE* CELL FOR USE BY *PARSER*.               PAR       806
                                        *                                                                        PAR       807
                                        *         SETARM REF,(ATTR),COMAD,PARAD                                  PAR       808
                                        *                                                                        PAR       809
                                        *         REF   = CROSS REFERENCE VALUE.                                 PAR       810
                                        *         ATTR  = ATTRIBUTE BITS FOR THIS *ARGMODE*.                     PAR       811
                                        *         COMAD = C=XXX PROCESSOR ADDRESS FOR COMMA.                     PAR       812
                                        *         PARAD = A=XXX PROCESSOR ADDRESS FOR PAREN.                     PAR       813
                                        *                                                                        PAR       814
                                        *         FOR DEFINITION OF VARIOUS FIELDS AND THEIR USE SEE WRITE-UP    PAR       815
                                        *         OF CELL *ARGMODE*.                                             PAR       816
                                                                                                                 PAR       817
                                                                                                                 PAR       818
                                         SETARM   MACRO  REF,ATTR,COMAD,PARAD                                    PAR       819
                                                  IFEQ   REF,,2                                                  PAR       820
                                                  VFD    AM.REFL/55B                                             PAR       821
                                                  SKIP   1                                                       PAR       822
                                                  VFD    AM.REFL/REF                                             PAR       823
                                                  IRP    ATTR                                                    PAR       824
                                                  POS    AM.ATTR_P+1                                             PAR       825
                                                  VFD    1/1                                                     PAR       826
                                                  IRP                                                            PAR       827
                                                  POS    AM.ATRP                                                 PAR       828
                                                  VFD    AM.COML/=X_COMAD                                        PAR       829
                                                  VFD    AM.PADL/=X_PARAD                                        PAR       830
                                         SETARM   ENDM                                                           PAR       831
                                                                                                                 PAR       832
                                                                                                                 PAR       833
                                                  MACRO  SARENT,LAB,REF,ATTR,COMAD,PARAD                         PAR       834
                                         LAB      SETARM REF,(ATTR),COMAD,PARAD                                  PAR       835
                                                  ENTRY  LAB                                                     PAR       836
                                                  ENDM                                                           PAR       837
                                                                                                                 PAR       838
                                                                                                                 PAR       839
           365  0055                     ARRARM   SETARM ,,C=ARRAY,A=ARRAY                                       PAR       840
           366  0001                     CALLARM  SARENT CR.PAR,(ARE,FUN,LEV3),C=CALL,A=CALL                     FC5A188     5
           367  0055                     CNFARM   SETARM ,(EQ),C=CERR,PAR.NX                                     PAR       842
           370  0011                     DATARM   SARENT CR.DAT,(ARE,EQ,EOS),C=DVL,A=DVL  DATA STATEMENT         PAR       843
           371  0003                     DOARM    SARENT CR.DOI,(EQ),C=DO,A=DO         DO CONTROL                PAR       844
           372  0001                     EXTFARM  SETARM CR.PAR,(ARE,FUN,LEV3),C=FUN,A=FUN                       FC5A188     6
           373  0055                     IFARM    SARENT CR.IF,,C=CERR,A=IF            IF EXPRESSION             PAR       846
           374  0001                     INFARM   SETARM CR.INF,,C=INF,A=INF                                     PAR       847
           375  0055                     LPARM    SETARM ,,C=CERR,A=EXPR                                         FC5A221     5
           376  0055                     LBARM    SARENT CR.DEC,(COL),C=DBD,A=DBD      LOWER BOUND EXPRESSION    PAR       849
           377  0055                     UBARM    SARENT CR.DEC,,C=DBD,A=DBD           UPPER BOUND EXPRESSION    PAR       850
           400  0055                     PIXARM   SETARM ,(RP,COL),C=PIX,A=PIX                                   PAR       851
           401  0055                     PJXARM   SARENT CR.VGOTO,(EOS),C=PJX,PAR.NX   JUMP EXPRESSION           PAR       852
           402  0055                     SBSARM   SETARM CR.REF,(COL),C=SBS,A=SBS      SUBSTRING                 PAR       853
           403  0055                     STFARM   SETARM CR.REF,,C=STFA,A=STFA                                   FC5A125    16
           404  0055                     ESFARM   SETARM CR.REF,,C=CERR,A=STFE                                   FC5A125    17
                                                                                                                 PAR       856
                                        *         I/O SETARMS                                                    PAR       857
                                                                                                                 PAR       858
           405  0055                     BUFMOD   SARENT ,(RP),C=CERR,A=BMOD           BUFFER I/O MODE           PAR       859
           406  0055                     BUFFWA   SARENT ,,C=BFWA,C=CERR               BUFFER I/O FWA            PAR       860
           407  0055                     BUFLWA   SARENT ,,C=CERR,A=BLWA               BUFFER I/O LWA            PAR       861
           410  0055                     CNTARM   SARENT ,,C=CNT,C=CERR                ENCODE/DECODE COUNT       PAR       862
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    22
        PARSER CONTROL TABLES.                                        SETARM
  
           411  0003                     DOCOLI   SARENT CR.DOI,,C=DOCI,A=DOCI         DO COLLAPSE INDUCTION     FC50464    25
           412  0055                     DOCOLS   SARENT ,,C=DOCS,A=DOCS               DO COLLAPSE SUBSCRIPTS    PAR       864
           413  0055                     FMTARM   SARENT ,(ARE,EOS,RP),C=FMT,A=FMT     FORMAT                    PAR       865
           414  0055                     FOUARM   SARENT ,(ARE,EOS,RP),C=FOU,A=FOU     FORMAT OR UNIT            FC50464    26
           415  0055                     ICCARM   SARENT ,(RP),C=ICC,A=ICC             I/O CONTROL CHAR VARIABLE PAR       866
           416  0055                     ICCXARM  SARENT ,(RP),C=ICCX,A=ICCX           I/O CONTROL CHAR EXPR     PAR       867
           417  0055                     ICIARM   SARENT ,(RP),C=ICI,A=ICI             I/O CONTROL INT VARIABLE  PAR       868
           420  0055                     ICIXARM  SARENT ,(RP),C=ICIX,A=ICIX           I/O CONTROL INT EXPR      PAR       869
           421  0055                     ICLARM   SARENT ,(RP),C=ICL,A=ICL             I/O CONTROL LOG VARIABLE  PAR       870
           422  0027                     IOARGM   SARENT CR.OUT,(ARE,EQ,EOS),C=IOL,A=LIST    OUTPUT LIST ITEM    PAR       871
           423  0022                              SETARM CR.INP,(ARE,EQ,EOS),C=IOL,A=LIST    INPUT LIST ITEM     PAR       872
           424  0055                     STRARM   SARENT ,(ARE,RP),C=CERR,A=STR        ENCODE/DECODE STRING ADDR PAR       873
           425  0025                     UNTARM   SARENT CR.IOU,(ARE,EOS,RP),C=UNT,A=UNT     UNIT SPECIFIER      PAR       874
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    23
        PARSING (ANALYSIS).                                           PARSE 
  
                                        **        PAR -  ARITHMETIC STATEMENT PARSING ROUTINE.                   PAR       877
                                        *                                                                        PAR       878
                                        *         A GENERAL PURPOSE *ONE-PASS* ARITHMETIC PARSING ROUTINE USING  PAR       879
                                        *         PSEUDO REVERSE POLISH ALGORITHM. (N-TURPLE)                    PAR       880
                                        *                                                                        PAR       881
                                        *         THIS ROUTINE WILL TRANSLATE ANY ARITHMETIC, LOGICAL,           PAR       882
                                        *         RELATIONAL, OR MASKING EXPRESSION INTO PSEUDO- POLISH          PAR       883
                                        *         NOTATION.                                                      PAR       884
                                        *                                                                        PAR       885
                                        *         ENTRY  (B4) _ FIRST TOKEN TO PROCESS.                          PAR       886
                                        *                (ARGMODE) = PRESET TO INDICATE CURRENT MODE OF          PAR       887
                                        *                            EXPRESSION *PARSE* WILL HANDLE.             PAR       888
                                        *                            CONTROLS THE OUTERMOST PAREN LAYER.         PAR       889
                                        *                (ARGCOMA) = PRESET TO CURRENT ARGUMENT COUNT.           PAR       890
                                        *                            CAN BE GARBAGE IF NOT NEEDED.               PAR       891
                                        *                (PARMODE) = PARSE MODE FOR ENTIRE EXPRESSION.           PAR       892
                                        *                (CURST) = ORDINAL, RELATIVE TO T.PAR, POINTING TO       PAR       893
                                        *                          BREAK FOR SQUEEZING PROCESS.                  PAR       894
                                        *                                                                        PAR       895
                                        *         EXIT   (B4) _ LAST TOKEN PROCESSED.                            PAR       896
                                        *                (PARMODE) = 'PM=EXPR', RESET FOR NORMAL PARSE.          PAR       897
                                        *                                                                        PAR       898
                                        *                                                                        PAR       899
                                        *         --------------- L O C K  -  R E G I S T E R S --------------   PAR       900
                                        *                (B4) _ CURRENT TOKEN.                                   PAR       901
                                        *                (B5) _ CURRENT OP-STACK ENTRY.                          PAR       902
                                        *                (B6)-1 _ TOP ELEMENT (ESTACK) ENTRY.                    PAR       903
                                        *         NO ROUTINE CALLED BY *PAR* MAY DESTROY ANY OF THE ABOVE REGS.  PAR       904
                                        *         ------------------------------------------------------------   PAR       905
                                        *                                                                        PAR       906
                                        *         USES   ALL REGISTERS.                                          PAR       907
                                                                                                                 PAR       908
                                                                                                                 PAR       909
                                                                                                                 PAR       910
           426  0400400426 +             PAR      SUBR   =           ENTRY/EXIT...                               PAR       911
           427  13666                             SHRINK T=PCS                                                   FC51075    11
           430  5110000000 X                      SA1    T=PAR                                                   PAR       912
                          5120000000 X            SA2    ARGMODE                                                 PAR       913
           431  5130000000 X                      SA3    PARMODE                                                 PAR       914
                          10733                   BX7    X3          SET (PARNOW) = (PARMODE)                    PAR       915
           432  5170000000 +                      SA7    PARNOW                                                  PAR       916
                          6160000000 X            SB6    ESTACK      (B6) -> ELEMENT STACK                       PAR       917
           433  10611                             BX6    X1                                                      PAR       918
                     43700                        MX7    0                                                       PAR       919
                                   0              ERRNZ  PM=EXPR                                                 PAR       920
                          7202776267 -            SX0    X2-A=LIST                                               PAR       921
                                   0              ERRNZ  18-AM.PADL                                              PAR       922
                                   0              ERRNZ  AM.PADP                                                 PAR       923
           434  54730                             SA7    A3          RESET (PARMODE) FOR NEXT TIME               PAR       924
                     0310000437 +                 NZ     X0,PAR1     IF NOT I/O LIST ITEM                        PAR       925
           435  5110000000 X                      SA1    DATFLG                                                  FC5A218   203
                          0311000437 +            NZ     X1,PAR1     IF PROCESSING *DATA*                        FC5A218   204
           436  76710                             =X7    1                                                       PAR       928
           437  6150000000 X             PAR1     SB5    OSTACK      (B5) -> OPERATOR STACK                      PAR       929
                          5170000012 +            SA7    CMLFLG                                                  PAR       930
                                                  HX2    AM.REF                                                  PAR       931
           440  21260                             AX2    AM.REFP                                                 PAR       932
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    24
        PARSING (ANALYSIS).                                           PARSE 
  
                     13777                        BX7    0                                                       PAR       933
                          5160000000 X            SA6    LDEAD       SET = LENGTH + 1 OF T.PAR ON ENTRY          PAR       934
           441  5170000000 X                      SA7    INSTF       INDICATE NO STATEMENT FUNCTION EXPANSION    PAR       935
                          5170000000 X            SA7    IFREL2      INDICATE NOT IF OF ONE RELATIONAL           PAR       936
           442  73620                             SX6    X2                                                      PAR       937
                     76700                        =X7    O.EOS                                                   PAR       938
                          5160000000 X            SA6    REFVAR      RESET CURRENT REFERENCE VALUE               PAR       939
           443  5170000000 X                      SA7    OSTACK      EOS TO OPERATOR STACK                       PAR       940
                          56540                   SA5    B4                                                      PAR       941
                               63350              SB3    X5                                                      PAR       942
           444  5130000172 +                      SA3    FEXPR                                                   PAR       943
                          22433                   LX4    B3,X3                                                   PAR       944
           445  0334000461 +                      MI     X4,PAR.NX   IF FIRST ELEMENT LEGAL                      PAR       945
                                                                                                                 PAR       946
                                        **        NOTE - FOLLOWING IS A ***KLUDGE*** DESIGNED TO PREVENT         PAR       947
                                        *         A MODE-OUT WHEN PROCESSING :    DATA 1XX                       PAR       948
                                                                                                                 PAR       949
                          5110000000 +            SA1    PARNOW                                                  PAR       950
           446  7201777772                        SX0    X1-PM=DATA                                              PAR       951
                          0310000453 +            NZ     X0,PAR5     IF NOT *DATA* CALLING                       FC5A111    27
           447  5110000000 X                      SA1    ERL=CON                                                 FC5A111    28
                          10611                   BX6    X1                                                      FC5A111    29
           450  5160000000 X                      SA6    FILL.3      SET FILLER FOR DIAGNOSTIC                   FC5A111    30
                          6170000000 X            FATAL  E.DVL1      DATA VARIABLE LIST CONTAINS CONSTANT        FC5A111    31
           452  0400000000 X                      EQ     DAT.Z       GO TO DATA ERROR PROCESSOR                  FC5A111    32
                                                                                                                 FC5A111    33
           453  6170000000 X             PAR5     FATAL  E.AT10      ILLEGAL FIRST ELEMENT OF STATEMENT          FC5A111    34
           454  0305001435 +                      ZR     X5,PAR.EOS  IF *EOS* FIRST ELEMENT                      PAR       957
                                   0              ERRNZ  O.EOS                                                   FC50068     5
                          6225777731              SB2    X5-O.ILL                                                FC50068     6
           455  0420001475 +                      ZR     B2,PAR.STOP IF INVALID STRING TOKEN                     FC50068     7
                          5154000001              SA5    B4+1        POINT TO NEXT TOKEN                         FC50377     6
           456  0400001420 +                      EQ     PAREX11                                                 PAR       958
  
  
  
  
                                        **        A=EXPR - POP EXPRESSION PAREN.  DO NOTHING BUT MARK            FC5A221     7
                                        *         TOP OF ESTACK AS *EXPR*.                                       FC5A221     8
                                                                                                                 FC5A221     9
           457  57161                    A=EXPR   =A1    B6-1                                                    FC5A221    10
                     7120000010                   CLAS=  X2,TP,(EXPR)                                            FC5A221    11
                               12712              BX7    X1+X2                                                   FC5A221    12
           460  54710                             SA7    A1                                                      FC5A221    13
                                        *         EQ     PAR.NX                                                  FC5A221    14
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    25
        PARSE/ANALYZE NEXT ELEMENT.                                   PAR.NX
  
                                        **        PARSE MASTER LOOP.                                             PAR       961
                                        *         PAR.NX LOADS THE NEXT ELEMENT AND FOLLOWING ELEMENT AND        PAR       962
                                        *         CHECKS IF AN ILLEGAL OPERATOR/OPERAND COMBINATION IS ABOUT     PAR       963
                                        *         TO BE PROCESSED.                                               PAR       964
                                        *                                                                        PAR       965
                                        *         IF LEGAL COMBINATION --                                        PAR       966
                                        *                JUMP TO PROCESS ELEMENT.                                PAR       967
                                        *                                                                        PAR       968
                                        *         IF ILLEGAL COMBINATION --                                      PAR       969
                                        *                JUMP TO PAR.EX TO OUTPUT COMBINATION THAT IS IN ERROR   PAR       970
                                        *                AND EXIT PAR.                                           PAR       971
                                        *                                                                        PAR       972
                                        *         UPON EXIT FROM PAR.NX REGISTERS ARE SET TO --                  PAR       973
                                        *                                                                        PAR       974
                                        *                (X1) = CURRENT *TB* ENTRY.                              PAR       975
                                        *                (X2) = CURRENT OPERATOR PRIORITY TABLE ENTRY (SETOP).   PAR       976
                                        *                (X3) = LAST OPERATOR STACK ENTRY.                       PAR       977
                                        *                (X5) = NEXT *TB* ENTRY.                                 PAR       978
                                        *                (B4) _ CURRENT *TB* ENTRY.                              PAR       979
                                        *                (B5) _ CURRENT *OSTACK* ENTRY.                          PAR       980
                                                                                                                 PAR       981
           461                           PAR.NX   BSSENT 0           ENTRY...                                    PAR       982
           461  56140                             SA1    B4          CURRENT *TB* ENTRY                          PAR       983
                     56541                        SA5    B4+B1       NEXT *TB* ENTRY                             PAR       984
                          0301001435 +            ZR     X1,PAR.EOS  IF END OF STATEMENT  (*EOS*)                PAR       985
                                   0              ERRNZ  O.EOS                                                   PAR       986
           462  63350                             SB3    X5                                                      PAR       987
                                   0              ERRNZ  18-TB.TOTL                                              PAR       988
                     5231000122 +                 SA3    X1-O.DEF+F.CONO                                         PAR       989
                                   0              ERRNZ  18-TB.TOTL                                              PAR       990
                               22433              LX4    B3,X3                                                   PAR       991
           463  5221000226 +                      SA2    X1-O.SEP+F.PRIOR                                        PAR       992
                          63730                   SB7    X3          JUMP ADDRESS                                PAR       993
                               56350              SA3    B5                                                      PAR       994
                                                                                                                 PAR       995
                                         SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                           PAR       996
                                                  SA3    CO.SNAP                                                 PAR       997
                                                  LX3    1RZ                                                     PAR       998
                                                  PL     X3,PAR.NXS  IF PARSE SNAP NOT SELECTED                  PAR       999
                                                  SA3    B5                                                      PAR      1000
                                         MASTER   PARSNAP                                                        PAR      1001
                                         PAR.NXS  SA3    B5                                                      PAR      1002
                                         SNAP=Z   ENDIF                                                          PAR      1003
                                                                                                                 PAR      1004
                                         .T       IFEQ   TEST,ON                                                 PAR      1005
                                                  =B2    X1-O.DEF                                                PAR      1006
                                                  MI     B2,"BLOWUP" TOKEN VERRY ILL                             PAR      1007
                                                  SB2    X1-O.ILL                                                PAR      1008
                                                  GT     B2,"BLOWUP" THIS TOKEN TOO BIG FOR CONO TABLE           PAR      1009
                                         .T       ENDIF                                                          PAR      1010
                                                                                                                 PAR      1011
           464  6120000047                        SB2    O.ENDNX                                                 PAR      1012
                          0723001404 +            GT     B3,B2,PAREX IF FOLLOWING TOKEN OUT OF CONO TABLE        PAR      1013
           465  0324001404 +                      PL     X4,PAREX    IF ILLEGAL OPERATOR COMBINATION             PAR      1014
                          0277000000              JP     B7          JUMP TO ANALYZE CURRENT TOKEN               PAR      1015
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    26
        PARSE/ANALYZE CONSTANT ELEMENT.                               O.TRUE
  
                                        **        HERE IF ELEMENT IS LOGICAL CONSTANT.                           PAR      1018
                                                                                                                 PAR      1019
                                                                                                                 PAR      1020
           466                           PAR.TRU  BSS    0           ENTRY...    (FROM CONO)                     PAR      1021
           466                           PAR.FAL  BSS    0           ENTRY...    (FROM CONO)                     PAR      1022
           466  5130000000 +                      SA3    PARNOW                                                  PAR      1023
                          6273777774              SB7    X3-PM=DIM                                               PAR      1024
           467  0570000473 +                      NZ     B7,PAR.FAL1       IF NOT 'DIM BOUND' PARSING            PAR      1025
                          6170000000 X            SB7    E.DM01                                                  PAR      1026
           470  0100004130 +                      RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR           PAR      1027
           471  5110000000 X                      SA1    CONONE                                                  PAR      1028
                          22601                   LX6    X1                                                      PAR      1029
           472  0400000475 +                      EQ     TNK.ES                                                  PAR      1030
                                                                                                                 PAR      1031
           473  6271777765               PAR.FAL1 SB7    X1-O.TRUE                                               PAR      1032
                                   0              ERRNZ  O.TRUE+1-O.FALSE                                        PAR      1033
                          5117000000 X            SA1    B7+VTRUE                                                PAR      1034
           474  10611                             BX6    X1                                                      PAR      1035
                                                                                                                 PAR      1036
                                                                                                                 PAR      1037
           475                           TNK.ES   BSS    0           CONSTANT OPERAND TO ESTACK                  PAR      1038
           475  66441                             SB4    B4+B1       ADVANCE TOKEN POINTER                       PAR      1039
                     56660                        SA6    B6                                                      PAR      1040
                          6166000001              SB6    B6+1        ADVANCE ESTACK TOP                          PAR      1041
           476  0400000461 +                      EQ     PAR.NX                                                  PAR      1042
  
  
  
  
                                        **        TNK - CONVERT NUMERIC CONSTANTS.                               PAR      1044
                                        *                                                                        PAR      1045
                                        *         CALLS  DEC, OCT, NBC.                                          PAR      1046
                                                                                                                 PAR      1047
                                                                                                                 PAR      1048
           477                           PAR.OCT  BSS    0           O.OCT + O.HEX = BOOLEAN CONSTANTS           PAR      1049
           477  6170000000 X                      ANSI   E.DC1       O.OCT AND O.HEX NON-ANSI                    FC50560     5
           500  6170000000 X                      MDERR  E.MDE2      OCTAL AND HEX ARE MACHINE DEPENDENT         F1037F5   433
           501  0100000000 X                      CALL   OCT                                                     PAR      1050
           502  0400000504 +                      EQ     TNK.DBL                                                 PAR      1051
                                                                                                                 PAR      1052
                                                                                                                 PAR      1053
           503                           PAR.DEC  BSS    0           O.CONS = DECIMAL CONSTANT                   PAR      1054
           503  0100000000 X                      CALL   DEC         TRANSLATE CONSTANT TO BINARY VALUE          PAR      1055
                                                                                                                 PAR      1056
                                                                                                                 PAR      1057
                                        *         TNK.DBL - ENTRY WHEN COMPLEX CONSTANT DISCOVERED.              PAR      1058
                                        *                (X1) = MODE OF CONSTANT.                                PAR      1059
                                        *                (X2) = LOWER HALF OF VALUE (IF DOUBLE-WORD).            PAR      1060
                                        *                (X6) = UPPER (OR ONLY) HALF OF VALUE.                   PAR      1061
                                                                                                                 PAR      1062
           504  5130000000 +             TNK.DBL  SA3    PARNOW                                                  PAR      1063
                          6273777774              SB7    X3-PM=DIM                                               PAR      1064
           505  0570000511 +                      NZ     B7,TNK.DBL5    IF NOT 'DIM BOUND' PROCESSING            PAR      1065
                          0301000511 +            ZR     X1,TNK.DBL5    IF MODE BOOLEAN                          PAR      1066
           506  6221777775                        SB2    X1-M.INT                                                PAR      1067
                          0420000511 +            ZR     B2,TNK.DBL5    IF MODE INTEGER                          PAR      1068
           507  6170000000 X                      SB7    E.DM01                                                  PAR      1069
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    27
        PARSE/ANALYZE CONSTANT ELEMENT.                               PAR.TNK 
  
                          0100004130 +            RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR           PAR      1070
           510  76111                             =X1    M.INT                                                   PAR      1071
                     76610                        =X6    1           DUMMY UP A CONSTANT 1                       PAR      1072
           511  10722                    TNK.DBL5 BX7    X2                                                      PAR      1073
                     0100000000 X                 CALL   NBC         ENTER BINARY OF CONSTANT                    PAR      1074
           512  56241                             SA2    B4+B1                                                   PAR      1075
                     5110000171 +                 SA1    ACONS                                                   PAR      1076
                               66441              =B4    B4+1                                                    PAR      1077
           513  63320                             SB3    X2                                                      PAR      1078
                     56660                        SA6    B6                                                      PAR      1079
                          22431                   LX4    B3,X1                                                   PAR      1080
                               66661              =B6    B6+1                                                    PAR      1081
           514  0334000461 +                      MI     X4,PAR.NX   IF NEXT OK TO FOLLOW CONSTANT               PAR      1082
                          57141                   =A1    B4-1                                                    PAR      1083
                               56540              SA5    B4          SET TOKEN FOR ERROR MESSAGE                 PAR      1084
           515  6144777776                        SB4    B4-1                                                    FC5A216     6
                          6221777737              SB2    X1-O.RP                                                 FC5A216     7
           516  0520001404 +                      NZ     B2,PAREX    IF NOT COMPLEX CONSTANT                     FC5A216     8
                          5140000000 X            SA4    ARGMODE                                                 FC5A216     9
           517  20425                             SBIT   X4,AM.RPP                                               FC5A216    10
                     0324001404 +                 PL     X4,PAREX    IF NO SPECIAL PROCESSING                    FC5A216    11
                               66441              =B4    B4+1                                                    FC5A216    12
           520  6170000000 X                      SB7    E.PX5                                                   FC50041     6
                          0400001404 +            EQ     PAREX                                                   PAR      1086
  
  
  
  
                                        **        ELEMENT IS A PARAMETER SYMBOL.                                 PAR      1088
                                        *                                                                        PAR      1089
                                        *         ENTRY  (B7) = SYMTAB *WB* INDEX.                               PAR      1090
                                        *                (A2, X2) = SYMTAB (WB).                                 PAR      1091
                                                                                                                 PAR      1092
                                                                                                                 PAR      1093
           521                           TNK.PARM BSS    0           ENTRY ... FROM TRE                          PAR      1094
                                                  LX2    -WB.MODEP                                               F1037F5   434
           521  43371                             MX3    -WB.MODEL                                               F1037F5   435
                     15323                        BX3    -X3*X2      EXTRACT MODE                                F1037F5   436
                                                  LX2    WB.MODEP                                                F1037F5   437
                          0313000523 +            NZ     X3,TNKPR0   IF NOT BOOLEAN                              F1037F5   438
                                   0              ERRNZ  M.BOOL                                                  F1037F5   439
           522  6170000000 X                      MDERR  E.MDE2                                                  F1037F5   440
                                                                                                                 F1037F5   441
           523  5130000000 +             TNKPR0   SA3    PARNOW                                                  F1037F5   442
                          7233777774              SX3    X3-PM=DIM                                               PAR      1096
           524  0313000532 +                      NZ     X3,TNKPR1   IF NOT 'DIM BOUND' PARSE                    PAR      1097
                          43771                   MX7    -WB.MODEL                                               PAR      1098
                                                  LX2    -WB.MODEP                                               PAR      1099
                               15127              BX1    -X7*X2      EXTRACT MODE                                PAR      1100
                                                  LX2    WB.MODEP    RESTORE X2 TO NOMINAL POSITION              FC5A111    35
           525  6221777775                        SB2    X1-M.INT                                                PAR      1101
                          0301000532 +            ZR     X1,TNKPR1   IF MODE BOOLEAN                             PAR      1102
           526  0420000532 +                      ZR     B2,TNKPR1   IF MODE INTEGER                             PAR      1103
                          6170000000 X            SB7    E.DM01                                                  PAR      1104
           527  0100004130 +                      RJ     DBE         OUTPUT ILLEGAL MODE DIAGNOSTIC              PAR      1105
           530  5110000000 X                      SA1    CONONE                                                  PAR      1106
                          22601                   LX6    X1                                                      PAR      1107
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    28
        PARSE/ANALYZE CONSTANT ELEMENT.                               TNK.PARM
  
           531  0400000475 +                      EQ     TNK.ES                                                  PAR      1108
                                                                                                                 PAR      1109
           532  43771                    TNKPR1   MX7    -WB.MODEL                                               PAR      1110
                                                  LX2    -WB.MODEP                                               PAR      1111
                     20052                        LX0    XR.TAGP                                                 PAR      1112
                          15527                   BX5    -X7*X2      (X5) = MODE                                 PAR      1113
                               54421              =A4    A2-WB.W+WC.W                                            PAR      1114
           533  5110000000 X                      SA1    REFVAR                                                  PAR      1115
                          10600                   BX6    X0                                                      PAR      1116
           534  6170000535 +                      ADDREF X6,X1       ENTER REFERENCE TABLE                       PAR      1117
           535  43644                             MX6    -WC.RAL                                                 PAR      1118
                                                  LX4    -WC.RAP                                                 PAR      1119
                     6225777771                   SB2    X5-M.CHAR                                               PAR      1120
                               15746              BX7    -X6*X4      (X7) = INDEX OF CONSTANT                    PAR      1121
           536  0420000546 +                      ZR     B2,TNKPR4   IF CHARACTER PARAMETER                      PAR      1122
                          5130000000 X            SA3    T.CON                                                   FC50275     8
           537  63770                             SB7    X7          CONSTANT INDEX                              FC50275     9
                     53137                        SA1    X3+B7       UPPER HALF                                  FC50275    10
                          54211                   =A2    A1+1        LOWER HALF (MAY BE NEEDED)                  FC50275    11
                               22601              LX6    X1                                                      FC50275    12
           540  10155                             BX1    X5          MODE                                        FC50275    13
                     22702                        LX7    X2                                                      FC50275    14
                          0100000000 X            CALL   NBC         ENTER BINARY OF CONSTANT                    FC50275    15
           541  5134000001                        SA3    B4+1                                                    FC50275    16
                                                  LX3    -TB.TOTP                                                FC50275    17
                          6273777740              SB7    X3-O.LP                                                 FC50275    18
                                   0              ERRNZ  18-TB.TOTL                                              FC50275    19
           542  0570000475 +                      NZ     B7,TNK.ES   IF NOT FOLLOWED BY LEFT PAREN               FC5A111    40
                          6170000000 X            FATAL  E.AT20      ** ILLEGAL USE OF PARAMETER                 FC5A111    41
           544  66441                             =B4    B4+1        B4 _ LEFT PAREN                             FC5A111    42
                     0100004451 +                 RJ     SPE         SKIP PARENTHESIZED EXPR                     FC5A111    43
           545  0620000000 X                      PL     B2,PSL      IF *EOS* FOUND BY SPE                       FC5A111    44
                          0400000475 +            EQ     TNK.ES                                                  FC5A403     7
                                                                                                                 PAR      1130
           546  43652                    TNKPR4   MX6    -WC.CLENL                                               PAR      1131
                     20436                        LX4    WC.RAP-WC.CLENP                                         PAR      1132
                          22207                   LX2    X7          (X1) = CHAR INDEX  = (WC.RA)                PAR      1134
                               15146              BX1    -X6*X4      (X2) = CHAR LENGTH = (WC.CLEN)              PAR      1135
           547  5134000001                        SA3    B4+1                                                    FC50275    20
                                                  LX3    -TB.TOTP                                                FC50275    21
                          6273777740              SB7    X3-O.LP                                                 FC50275    22
                                   0              ERRNZ  18-TB.TOTL                                              FC50275    23
           550  0570000602 +                      NZ     B7,PAR.CHR1 IF NOT FOLLOWED BY LEFT PAREN               PAR      1139
                          6170000000 X            FATAL  E.AT18      ** SUBSTRING ILLEGAL FOR PARAMETER FILL.    PAR      1140
           552  20330                             LX3    TB.TOTP-TB.IOCPP                                        PAR      1141
                     63430                        SB4    X3          SKIP OVER THE PARENTHESIZED GROUP           PAR      1142
                          0400000602 +            EQ     PAR.CHR1                                                PAR      1143
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    29
        PARSE/ANALYZE CONSTANT ELEMENT.                               PAR.HOL 
  
                                        **        HERE IF ELEMENT IS A *HOLLERITH CONSTANT*.                     PAR      1145
                                                                                                                 PAR      1146
                                                                                                                 PAR      1147
           553                           PAR.HOL  BSS    0                                                       PAR      1148
           553  6170000000 X                      MDERR  E.MDE2      ALL HOLLERITH FORMS ARE MACHINE DEPENDENT   F1037F5   443
           554  6170000000 X                      ANSI   E.AT08      HOLLERITH IS NON-ANSI                       FC50796     6
           555  10011                             BX0    X1                                                      PAR      1149
                     21022                        AX0    TB.LCONP                                                PAR      1150
                          43263                   MX2    -TB.LCONL                                               PAR      1151
                               15702              BX7    -X2*X0                                                  PAR      1152
           556  6277777776                        SB7    X7-1                                                    PAR      1153
                          0470000570 +            ZR     B7,PAR.HOL5 IF LENGTH=1, OK                             PAR      1154
           557  5120000000 X                      SA2    ARGMODE                                                 FC5A415    12
                          6272775167 -            SB7    X2-A=CALL                                               FC5A415    13
           560  0470000564 +                      ZR     B7,PAR.HOL1 IF SUBROUTINE ARGUMENT                      FC5A415    14
                          6272775145 -            SB7    X2-A=FUN                                                FC5A415    15
           561  0470000564 +                      ZR     B7,PAR.HOL1 IF FUNCTION ARGUMENT                        FC5A415    16
                                   0              ERRNZ  18-AM.PADL                                              FC5A415    17
                          6170000000 X            TRIV   E.AT03      HOLLERITH MORE THAN ONE WORD - TRUNCATED    PAR      1155
           563  0400000565 +                      EQ     PAR.HOL2                                                FC5A415    18
                                                                                                                 FC5A415    19
           564  7160000001               PAR.HOL1 SX6    1                                                       FC5A415    20
                          5160000000 X            SA6    NSQZLH      SET FLAG TO NOT SQUEEZE                     FC5A415    21
                                                                                                                 FC5A415    22
           565                           PAR.HOL2 BSS    0                                                       FC5A415    23
           565  20122                             LX1    -TB.SHCP                                                FC50796     7
                     73610                        SX6    X1          INDEX INTO (T.CON)                          PAR      1157
                                   0              ERRNZ  18-TB.SHCL                                              PAR      1158
                          5110000000 X            SA1    S=CON                                                   PAR      1159
           566  20154                             LX1    TP.ORDP                                                 PAR      1160
                     20624                        LX6    TP.BIASP                                                PAR      1161
                          12616                   BX6    X1+X6       FORM CON. *P1* ENTRY                        PAR      1162
           567  0400000475 +                      EQ     TNK.ES      GO ENTER STACK                              PAR      1164
                                                                                                                 FC50796     8
           570  20122                    PAR.HOL5 LX1    -TB.SHCP                                                FC50796     9
                     5120000000 X                 SA2    T.CON                                                   FC50796    10
                               63710              SB7    X1                                                      FC50796    11
                                   0              ERRNZ  18-TB.SHCL                                              FC50796    12
           571  53127                             SA1    X2+B7       BINARY OF CONSTANT                          FC50796    13
                     76700                        =X7    M.BOOL                                                  FC50796    14
                          22601                   LX6    X1                                                      FC50796    15
           572  0100000000 X                      CALL   NCS         PROVIDE TP.SHRT WHEN APPROPRIATE            FC50796    16
           573  0400000475 +                      EQ     TNK.ES      GO ENTER STACK                              FC50796    17
  
  
  
  
                                        **        PAR.CHR - ELEMENT IS A CHARACTER CONSTANT.                     PAR      1166
                                        *                                                                        PAR      1167
                                        *         STACK A SUBSTRING OPERAND (INTERMEDIATE).                      PAR      1168
                                        *                                                                        PAR      1169
                                        *         ENTRY  (X1) = CURRENT TOKEN.                                   PAR      1170
                                        *                                                                        PAR      1171
                                        *         CALLS  ECC.                                                    PAR      1172
                                                                                                                 PAR      1173
                                                                                                                 PAR      1174
           574                           PAR.CHR  BSS    0           ENTRY ... FROM (F.CONO)                     PAR      1175
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    30
        PARSE/ANALYZE CONSTANT ELEMENT.                               PAR.CHR 
  
           574  5130000000 +                      SA3    PARNOW                                                  PAR      1176
                          20122                   LX1    -TB.SHCP                                                PAR      1177
                               43755              MX7    -TB.CLCNL                                               PAR      1178
           575  43052                             MX0    -TB.SHCL                                                PAR      1179
                     15210                        BX2    -X0*X1      CHAR IND = SHC [TB ENTRY]                   PAR      1180
                          6170000000 X            SB7    E.DM01                                                  PAR      1181
           576  20117                             LX1    TB.SHCP-TB.CLCNP                                        PAR      1182
                     15117                        BX1    -X7*X1      CHAR LEN = CLCN [TB ENTRY]                  PAR      1183
                          7233777774              SX3    X3-PM=DIM                                               PAR      1184
           577  0313000602 +                      NZ     X3,PAR.CHR1       IF NOT 'DIM BOUND' PARSE              PAR      1185
                          0100004130 +            RJ     DBE         OUTPUT DIMENSION BOUND MODE ERROR           PAR      1186
           600  5110000000 X                      SA1    CONONE                                                  PAR      1187
                          22601                   LX6    X1                                                      PAR      1188
           601  0400000475 +                      EQ     TNK.ES                                                  PAR      1189
                                                                                                                 PAR      1190
           602  0100004167 +            PAR.CHR1  RJ     ECC         EMIT CHARACTER CONSTANT                     PAR      1191
           603  66441                             SB4    B4+B1                                                   PAR      1192
                     0400000461 +                 EQ     PAR.NX                                                  PAR      1193
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    31
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                        **        TRE - TRANSLATE ELEMENT.                                       PAR      1196
                                        *                                                                        PAR      1197
                                        *         TRE FIRST SCANS THE SYMBOL TABLE TO CHECK IF ELEMENT HAS       PAR      1198
                                        *         ALREADY BEEN TAGGED.  IF IT HAS IT DOES SOME SIMPLE SYNTAX     PAR      1199
                                        *         CHECKING AND EXITS.  IF NOT IT THEN CHECKS THE SYNTAX USAGE    PAR      1200
                                        *         AND DEPENDING ON ITS USE WILL EITHER ---                       PAR      1201
                                        *                A.  CALL TSF TO TRANSLATE SPECIAL FUNCTION, OR,         PAR      1202
                                        *                B.  ENTER TAG INTO SYMBOL TABLE AS A VARIABLE.          PAR      1203
                                        *                                                                        PAR      1204
                                        *         IN ALL CASES TRE WILL SET UP THE EXIT CONDITIONS NEEDED FOR    PAR      1205
                                        *         PARSE TO MAKE SENSE OUT OF THIS MESS.                          PAR      1206
                                        *                                                                        PAR      1207
                                        *         ENTRY  (B4) _ TOKEN TO TRANSLATE.                              PAR      1208
                                        *                       (MUST CONTAIN O.VAR BITS IN LOW ORDER.)          PAR      1209
                                        *                                                                        PAR      1210
                                        *         EXIT   (X6) = SYMBOL TABLE ENTRY.                              PAR      1211
                                        *                (B2) = PAR.NX     IF VARIABLE,                          PAR      1212
                                        *                     = PAR.SUB    IF ARRAY,                             PAR      1213
                                        *                     = PAR.FUN    IF FUNCTION                           PAR      1214
                                        *                                                                        PAR      1215
                                        *         USES   CANNOT DESTROY   A4-5,A7   B4-B6.                       PAR      1216
                                        *                                                                        PAR      1217
                                        *         CALLS  SCAN, TRV, TSF.                                         PAR      1218
                                                                                                                 PAR      1219
                                                                                                                 PAR      1220
           604                           PAR.VAR  BSS    0                                                       PAR      1221
           604  56140                             SA1    B4                                                      PAR      1222
                     43052                        MX0    TB.TOCL                                                 PAR      1223
                          11601                   BX6    X0*X1       SYMBOL ONLY                                 PAR      1224
                               13777              BX7    0                                                       PAR      1225
           605  5160000000 X                      SA6    FILL.       IN CASE OF ERROR                            PAR      1226
                          5170000001 +            SA7    ATTR        CLEAR ATTRIBUTE CELL                        PAR      1227
           606  5160000013 +                      SA6    CSYMBOL     SAVE CURRENT SYMBOL                         PAR      1228
                          56241                   =A2    B4+1                                                    PAR      1229
           607  6272777766                        SB7    X2-O.VAR                                                PAR      1230
                          0570000611 +            NZ     B7,PAR.VAR2 IF LESS THAN 8 CHARACTERS IN NAME           PAR      1231
           610  0100000000 X                      CALL   TLV         TRUNCATE NAME -- SORT OF                    PAR      1232
                                                                                                                 FC50326    17
           611  0100000000 X             PAR.VAR2 CALL   SSY         SEARCH SYMBOL TABLE                         PAR      1233
           612  5130000000 X                      SA3    REFVAR                                                  PAR      1234
                          7170000040              CLAS=  X7,WB,(VAR)                                             PAR      1235
           613  6223777754                        SB2    X3-CR.STR                                               PAR      1236
                          0520000615 +            NZ     B2,TRE6     IF NOT PROCESSING A *SET*                   PAR      1237
           614  7170000240                        CLAS=  X7,WB,(VAR,DEF)                                         PAR      1238
                                                                                                                 FC50326    18
           615  0770000770 +             TRE6     MI     B7,TRE80    IF *NIT*                                    PAR      1239
                                                                                                                 PAR      1240
                                        **        HERE IF ELEMENT ALREADY IN SYMBOL TABLE.                       FC5A294     6
                                        *                                                                        FC5A294     7
                                        *         GO THRU SEQUENCE OF CHECKS FOR PROPER USE.                     FC5A294     8
                                        *                                                                        FC5A294     9
                                        *         1. CHECK IF PARAMETER.                                         FC5A294    10
                                        *                YES - GO TO TNK.PARM.                                   FC5A294    11
                                        *                NO  - GO TO 2.                                          FC5A294    12
                                        *                                                                        FC5A294    13
                                        *         3. CHECK IF CLASS " VARIABLE.                                  FC5A294    14
                                        *                YES - CHECK AND PROCESS THE REQUIRED NONVARIABLE.       FC5A294    15
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    32
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                        *                NO  - GO TO 3.                                          FC5A294    16
                                        *                                                                        FC5A294    17
                                        *         3. CHECK IF CLASS = ARRAY.                                     FC5A294    18
                                        *                YES - CHECK IF FOLLOWED BY *(*.                         FC5A294    19
                                        *                      IF NOT OUTPUT FATAL MESSAGE NOTING REFERENCE TO   FC5A294    20
                                        *                      AN ARRAY WITHOUT SUBSCRIPT (AS REQUIRED).         FC5A294    21
                                        *                NO  - GO TO 4.                                          FC5A294    22
                                        *                                                                        FC5A294    23
                                        *         4. TREAT AS A VARIABLE.                                        FC5A294    24
                                        *                    - CHECK IF FOLLOWED BY *(*.                         FC5A294    25
                                        *                      IF SO OUTPUT ILLEGAL USE OF VARIABLE.             FC5A294    26
                                                                                                                 PAR      1257
                                                                                                                 PAR      1258
                          20663                   HX6    WB.PARM                                                 PAR      1259
           616  0336000521 +                      MI     X6,TNK.PARM       IF PARAMETER VARIABLE                 PAR      1260
                          0100000000 X            CALL   CT1         CONSTRUCT (TP.) FORM OPERAND                PAR      1261
           617  5160000014 +                      SA6    CSYTAG                                                  PAR      1262
                          54661                   =A6    A6-CSYTAG+CSYREF                                        PAR      1263
                               10622              BX6    X2          SAVE (WB)                                   PAR      1264
           620  43401                             CLAS=  X4,WB,(SFA)                                             FC50326    19
                          15664                   BX6    -X4*X6      CLEAR WB.SFA (IF PRESENT)                   FC50326    20
                               56141              SA1    B4+B1       FETCH NEXT TOKEN                            PAR      1265
           621  22302                             LX3    X2                                                      PAR      1266
                     54661                        =A6    A6-CSYREF+CSYWB                                         PAR      1267
                          7201777740              SX0    X1-O.LP                                                 PAR      1268
           622  20366                             SBIT   X3,WB.VARP                                              PAR      1269
                     0323000653 +                 PL     X3,TRE30    IF NOT VARIABLE                             PAR      1270
                               20367              SBIT   X3,WB.ARYP/WB.VARP                                      PAR      1271
           623  0323000643 +                      PL     X3,TRE22    IF NOT ARRAY                                PAR      1272
                          12667                   BX6    X6+X7                                                   PAR      1273
                               43701              CLAS=  X7,TP,(ARR)                                             PAR      1274
                     6120001130 +                 SB2    PAR.SUB                                                 PAR      1275
                               54620              SA6    A2          RESET TAG WITH APPROPRIATE CLASS BITS       PAR      1276
           625  5170000001 +                      SA7    ATTR                                                    PAR      1277
                          0100004040 +            RJ     CIL         CHECK IF ILLEGAL LEVEL                      PAR      1278
           626  0300001011 +                      ZR     X0,TREX     IF ARRAY FOLLOWED BY *(*                    PAR      1279
                          5130000000 X            SA3    ARGMODE                                                 PAR      1280
           627  20321                             HX3    AM.ARE                                                  PAR      1282
                     43401                        MX4    1                                                       FC5A279     5
                          0323000640 +            PL     X3,TRE15    IF ENTIRE ARRAY REFERENCE ILLEGAL           FC5A228     5
           630  5114777776                        SA1    B4-1        FETCH PREVIOUS TOKEN                        FC5A228     6
                          7211777740              SX1    X1-O.LP                                                 FC5A228     7
           631  0301000635 +                      ZR     X1,TRE14    IF LP PRECEDES, OK                          FC5A228     8
                          7211777772              SX1    X1+O.LP-O.SLP                                           FC5A228     9
           632  0301000635 +                      ZR     X1,TRE14    IF SPECIAL LP PRECEDES, OK                  FC5A228    10
                          7211000002              SX1    X1+O.SLP-O.COMMA                                        FC5A228    11
           633  0301000635 +                      ZR     X1,TRE14    IF COMMA PRECEDES, OK                       FC5A228    12
                          7211777772              SX1    X1+O.COMMA-O.DOBI                                       FC5A228    13
           634  0301000635 +                      ZR     X1,TRE14    IF DO-BEGIN PRECEDES, OK                    FC5A228    14
                          0400000640 +            EQ     TRE15       IF PREVIOUS TOKEN INDICATES INVALID         FC5A228    15
                                                                                                                 FC5A228    16
           635  7200777776               TRE14    SX0    X0+O.LP-O.RP                                            FC5A228    17
                          0300000641 +            ZR     X0,TRE16    IF RP FOLLOWS, OK                           FC5A228    18
           636  7200777775                        SX0    X0+O.RP-O.COMMA                                         FC5A228    19
                          0300000641 +            ZR     X0,TRE16    IF COMMA FOLLOWS, OK                        FC5A228    20
           637  7200000042                        SX0    X0+O.COMMA-O.EOS                                        FC5A228    21
                          0300000641 +            ZR     X0,TRE16    IF EOS FOLLOWS, OK (FOR I/O LISTS)          FC5A228    22
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    33
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                                                                                                 FC5A228    23
           640  6170000000 X             TRE15    FATAL  E.VA08      ** ARRAY MISSING SUBSCRIPT                  FC5A228    24
                                                                                                                 FC5A228    25
           641  11143                    TRE16    BX1    X4*X3       SET (TP.ARE) = (AM.ARE)                     FC5A279     6
                     20106                        LX1    TP.AREP+1                                               PAR      1287
                          6120000461 +            SB2    PAR.NX                                                  PAR      1288
           642  12717                             BX7    X1+X7       UPDATE (ATTR)                               PAR      1289
                     54770                        SA7    A7                                                      PAR      1290
                          0400001011 +            EQ     TREX        EXIT..                                      PAR      1291
                                                                                                                 PAR      1292
                                                                                                                 PAR      1293
                                        *         HERE IF POSSIBLE VARIABLE.                                     PAR      1294
                                                                                                                 PAR      1295
           643  12667                    TRE22    BX6    X6+X7       ADD IN CLASS BITS                           PAR      1296
                     6120000461 +                 SB2    PAR.NX      INDICATE VARIABLE                           PAR      1297
                               54620              SA6    A2          RESET TAG WITH APPROPRIATE CLASS BITS       PAR      1298
           644  0100004040 +                      RJ     CIL         CHECK ILLEGAL LEVEL                         PAR      1299
           645  0310001011 +                      NZ     X0,TREX     IF NOT FOLLOWED BY LEFT PAREN               PAR      1300
                          56141                   SA1    B4+B1                                                   PAR      1301
           646  6120001140 +                      SB2    PAR.SBS                                                 PAR      1302
                                                  HX1    TB.COL                                                  PAR      1303
                          0331001011 +            MI     X1,TREX     IF SUBSTRING LPAREN                         PAR      1304
           647  6170000000 X                      FATAL  E.VA03      ILLEGAL *(* FOLLOWING VARIABLE NAME         PAR      1305
                                                                                                                 PAR      1306
                                        *         SKIP OVER BAD PARENTHESIZED EXPRESSION.                        PAR      1307
                                                                                                                 PAR      1308
           650  66441                             =B4    B4+1                                                    PAR      1309
                     0100004451 +                 RJ     SPE         SKIP PARENTHESIZED EXPRESSION               FC5A294    27
           651  0620000000 X                      PL     B2,PSL      IF *EOS* FOUND                              FC5A111    48
                          6120000461 +            SB2    PAR.NX                                                  PAR      1324
           652  0400001011 +                      EQ     TREX        EXIT..                                      PAR      1325
                                                                                                                 PAR      1326
                                        *         HERE IF POSSIBLE FUNCTION/SUBROUTINE.                          PAR      1327
                                                                                                                 PAR      1328
           653  6120001151 +             TRE30    SB2    PAR.FUN     INDICATE EXTERNAL                           PAR      1329
                          20373                   SBIT   X3,WB.NVARP/WB.VARP                                     PAR      1330
           654  0323000733 +                      PL     X3,TRE70    IF VARIABLE                                 PAR      1331
                          57541                   =A5    B4-1        X5 = TOKEN BEFORE POSSIBLE FUNCTION         FC5A164    44
           655  7240777774                        SX4    X0+O.LP-O.COMMA                                         FC5A164    45
                          6235777735              SB3    X5-O.COMMA                                              FC5A164    46
           656  7255777733                        SX5    X5-O.SLP                                                FC5A164    47
                          20366                   SBIT   X3,WB.FUNP/WB.NVARP                                     PAR      1332
           657  0323000704 +                      PL     X3,TRE40    IF NOT A FUNCTION                           PAR      1333
                          0300001011 +            ZR     X0,TREX     IF FOLLOWED BY *(* - OK                     PAR      1334
                                                                                                                 PAR      1335
                                        *         REFERENCE TO A FUNCTION/SUBROUTINE WITHOUT A LEFT PAREN,       PAR      1336
                                        *         LEGAL IF INSIDE OF A FUNCTION ARGUMENT LIST.                   PAR      1337
                                                                                                                 PAR      1338
           660  10733                    TRE30.1  BX7    X3                                                      FC5A437     5
                     6120000461 +                 SB2    PAR.NX                                                  PAR      1342
           661  6170000000 X                      SB7    E.VA04                                                  PAR      1343
                          5110000000 X            SA1    ARGMODE                                                 FC5A437     6
           662  20127                             SBIT   X1,AM.FUNP                                              FC5A437     7
                     0321000702 +                 PL     X1,TRE35    IF STAND ALONE EXTERNAL NOT ALLOWED         FC5A437     8
           663  7200777776                        SX0    X0+O.LP-O.RP                                            FC5A164    48
                          0300000665 +            ZR     X0,TRE31    IF FOLLOWED BY RP                           FC5A164    49
           664  0314000702 +                      NZ     X4,TRE35    IF NOT FOLLOWED BY A COMMA                  FC5A164    50
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    34
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                                                                                                 FC5A164    51
           665  0305000667 +             TRE31    ZR     X5,TRE33    IF PRECEDED BY A SPECIAL LP                 FC5A164    52
                          7255000005              SX5    X5+O.SLP-O.LP                                           FC5A164    53
           666  0305000667 +                      ZR     X5,TRE33    IF PRECEDED BY LP                           FC5A164    54
                          0530000702 +            NZ     B3,TRE35    IF NOT PRECEDED BY A COMMA                  FC5A164    55
                                                                                                                 FC5A164    56
           667  6170000000 X             TRE33    SB7    E.VA05                                                  FC5A164    57
                          20761                   LX7    WB.FUNP-WB.INTFP                                        PAR      1346
                               20362              SBIT   X3,WB.DEXTP/WB.FUNP                                     PAR      1347
           670  0333001011 +                      MI     X3,TREX     IF DECLARED AS EXTERNAL                     PAR      1348
                          0327000702 +            PL     X7,TRE35    IF NOT DECLARED AS INTRINSIC                PAR      1349
                                                                                                                 PAR      1350
                                        *         CHECK WHETHER INTRINSIC NAME ALLOWED AS ACTUAL ARGUMENT.       PAR      1351
                                                                                                                 PAR      1352
           671  43063                             MX0    -WB.JPFL                                                PAR      1353
                     20344                        LX3    1+WB.DEXTP-WB.JPFP                                      PAR      1354
                          15730                   BX7    -X0*X3      JPFI = JPF[WBI] = INTRINSIC TABLE INDEX     PAR      1355
           672  7100000000 X                      SX0    Z.INTA                                                  PAR      1356
                          6170000000 X            SB7    E.VA06                                                  PAR      1357
           673  37370                             IX3    X7-X0                                                   PAR      1358
                     0333000702 +                 MI     X3,TRE35    IF FUNC NAME NOT ALLOWED                    PAR      1359
                                                                                                                 PAR      1360
                                        *         APPEND SUFFIX TO INTRINSIC FUNCTION NAME.                      PAR      1361
                                                                                                                 PAR      1362
           674  5217000000 X                      SA1    X7+F.INTF                                               PAR      1363
                          5120000025 +            SA2    FUNCALL                                                 PAR      1364
           675  5170002601 +                      SA7    /CF/IT                                                  PAR      1365
                          0100003155 +            RJ     TXI         TAG EXTERNAL INTRINSICS                     PAR      1366
           676  5110002604 +                      SA1    /CF/TP                                                  PAR      1367
                          5130000014 +            SA3    CSYTAG                                                  PAR      1368
           677  5120004547 +                      CLAS=  X2,TP,(ORD)                                             PAR      1369
                          11121                   BX1    X2*X1       GET ORD FROM (/CF/TP)                       PAR      1370
                               15612              BX6    -X2*X1      GET REST OF ATTRIBUTES FROM (CSYTAG)        PAR      1371
           700  6120000461 +                      SB2    PAR.NX                                                  PAR      1372
                          12616                   BX6    X1+X6                                                   PAR      1373
           701  5160000014 +                      SA6    CSYTAG      UPDATE CSYTAG                               PAR      1374
                          0400001011 +            EQ     TREX        EXIT...                                     PAR      1375
                                                                                                                 PAR      1376
           702  0100000000 X             TRE35    FATAL  B7                                                      PAR      1377
           703  0400001011 +                      EQ     TREX        EXIT...                                     PAR      1378
                                                                                                                 PAR      1379
                                        *         HERE IF POSSIBLE SUBROUTINE.                                   PAR      1380
                                                                                                                 PAR      1381
           704  20301                    TRE40    SBIT   X3,WB.SUBP/WB.FUNP                                      PAR      1382
                     0323000714 +                 PL     X3,TRE60    IF NOT A SUBROUTINE                         PAR      1383
           705  0300000712 +                      ZR     X0,TRE41    IF FOLLOWED BY *(*                          FC5A294    28
                          5130000000 X            SA3    ARGMODE                                                 PAR      1384
           706  6120000461 +                      =B2    PAR.NX                                                  PAR      1385
                          20327                   SBIT   X3,AM.FUNP                                              PAR      1386
           707  0333001011 +                      MI     X3,TREX     IF STAND ALONE OK THIS CASE                 FC5A294    29
                          6170000000 X            FATAL  E.VA04      ** EXTERNAL REFERENCE REQUIRES ARGUMENTS    FC5A294    30
           711  0400001011 +                      EQ     TREX                                                    FC5A294    31
                                                                                                                 FC5A294    32
           712  6170000000 X             TRE41    WARN   E.VA07      ** SUBROUTINE USED AS FUNCTION              FC5A294    33
           713  6120001151 +                      SB2    PAR.FUN     TREAT AS FUNCTION                           FC5A294    34
                          0400001011 +            EQ     TREX        EXIT..                                      PAR      1396
                                                                                                                 PAR      1397
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    35
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE 
  
                                        *         HERE IF DEFINED AS NOT-VAR BUT NOT A SUBROUTINE/FUNCTION.      PAR      1398
                                                                                                                 PAR      1399
           714  20372                    TRE60    SBIT   X3,WB.ENTP/WB.SUBP                                      PAR      1400
                     0323000730 +                 PL     X3,TRE65    IF NOT ENTRY POINT                          PAR      1401
           715  5130000000 X                      SA3    S=VALUE                                                 PAR      1402
                          43071                   MX0    -WB.MODEL                                               PAR      1403
                                                  LX6    -WB.MODEP                                               PAR      1404
                               15160              BX1    -X0*X6      ISOLATE MODE OF THIS ENTRY NAME             PAR      1405
                                                  LX6    WB.MODEP                                                PAR      1406
           716  36031                             IX0    X3+X1       (X0) = SYMORD OF PROPER VALUE. SYMBOL       PAR      1407
                     5110000000 X                 SA1    MOD                                                     PAR      1408
                               20160              HX1    MO.FUN                                                  PAR      1409
           717  0321000722 +                      PL     X1,TRE62    IF NOT IN FUNCTION SUBPROGRAM               PAR      1410
                          5120000000 +            SA2    PARNOW                                                  PAR      1411
           720  6272777774                        SB7    X2-PM=DIM                                               PAR      1412
                          6127777775              SB2    B7+PM=DIM-PM=DATA                                       PAR      1413
           721  0470000722 +                      ZR     B7,TRE62    IF PARSING DIMENSION BOUND                  PAR      1414
                          0520000724 +            NZ     B2,TRE63    IF NOT PARSING DATA STATEMENT               PAR      1415
                                                                                                                 FC5A279     7
           722  5110000000 X             TRE62    SA1    S=BU                                                    PAR      1416
                          10011                   BX0    X1                                                      PAR      1417
           723  6170000000 X                      FATAL  E.VA01      ** ILLEGAL USE OF ENTRY NAME                PAR      1418
                                                                                                                 PAR      1419
           724  0100000000 X             TRE63    CALL   CT1         CONSTRUCT (TP.) FORM OPERAND                PAR      1420
           725  5160000014 +                      SA6    CSYTAG                                                  PAR      1421
                          10622                   BX6    X2          SAVE *WB*                                   PAR      1422
                               56141              SA1    B4+B1       FETCH NEXT TOKEN                            PAR      1423
           726  7201777740                        SX0    X1-O.LP                                                 PAR      1424
                          5160000016 +            SA6    CSYWB                                                   PAR      1425
           727  0400000643 +                      EQ     TRE22                                                   PAR      1426
                                                                                                                 PAR      1427
           730  20355                    TRE65    SBIT   X3,WB.NLSTP/WB.ENTP                                     PAR      1428
                     0333000000 X                 MI     X3,E.VA13   IF NAMELIST GROUP NAME                      PAR      1429
                               20306              SBIT   X3,WB.DEXTP/WB.NLSTP                                    FC5A437     9
           731  0323000733 +                      PL     X3,TRE70    IF UNCLASSIFIED NON-VARIABLE                FC5A437    10
                          0300000733 +            ZR     X0,TRE70    IF FOLLOWED BY *(*, OKAY                    FC5A437    11
           732  20312                             SBIT   X3,WB.FUNP/WB.DEXTP                                     FC5A437    12
                     0400000660 +                 EQ     TRE30.1     TREAT AS FUNCTION IN THIS CONTEXT           FC5A437    13
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    36
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                                        *         CHECK UNCLASSIFIED TAG FOR POSSIBLE VARIABLE OR FUNCTION       PAR      1432
                                        *         CLASSIFICATION.                                                PAR      1433
                                        *                                                                        PAR      1434
                                        *         ANSI COMMENT......                                             PAR      1435
                                        *         ANSI ALLOWS A PROGRAMMER TO DEFINE AN INTRINSIC FUNCTION IN A  PAR      1436
                                        *         TYPE STATEMENT.  THUS A SYMBOL BY THE NAME OF A KNOWN          PAR      1437
                                        *         INTRINSIC FUNCTION WILL BE SET INTO OUR SYMBOL TABLE BUT WILL  PAR      1438
                                        *         NOT HAVE A CLASSIFICATION ON ITS USE.  WE ALSO HAVE TO WATCH   PAR      1439
                                        *         OUT FOR A SYMBOL THAT IS IN THE SYMBOL TABLE THAT HAS ONLY THE PAR      1440
                                        *         *EXTERNAL* CLASSIFICATION BITS ON.  IN *EXTERNAL* CASE IT IS   PAR      1441
                                        *         SORT OF SIMPLE, CONTEXT TELLS USE WHAT TO DO.                  PAR      1442
                                        *                IN THE CASE OF A SYMBOL THAT HAS MERELY BEEN TYPED, WE  PAR      1443
                                        *         MUST CHECK IF IT IS A *BEF* OR *INLINE* AND THEN CHECK IF THE  PAR      1444
                                        *         MODE OF TYPING IS THE SAME AS THE EXPLICIT TYPING GIVEN THE    PAR      1445
                                        *         FUNCTION BY ANSI.                                              PAR      1446
                                        *         IF IT IS, THEN SYMBOL IS THE INTRINSIC DEFINED BY              PAR      1447
                                        *         ANSI.  IF NOT, ITS DEFAULT IS SET TO A VARIABLE OR             PAR      1448
                                        *         EXTERNAL FUNCTION DEPENDING ON THE CONTEXT.                    PAR      1449
                                        *                                                                        PAR      1450
                                        *                                                                        PAR      1451
                                        *         ENTRY  (X0) = 0, IF FOLLOWED BY *(*.                           PAR      1452
                                        *                (X6) = SYMTAB (WB) FOR SYMBOL IN PROGRESS.              PAR      1453
                                        *                (A2) = ADDRESS OF SYMTAB (WB).                          PAR      1454
                                        *                (X7) = CLASS BITS (ONLY IF FOUND TO BE A VARIABLE).     PAR      1455
                                        *                (B7) = INDEX OF SYMTAB (WB).                            PAR      1456
                                        *                                                                        PAR      1457
                                        *         EXIT   (X6) = UPDATED (WB) WORD.                               PAR      1458
                                        *                       ALSO UPDATED IN TABLE OFF OF *A2*.               PAR      1459
                                        *                (B2) = PAR.XX PROCESSING ADDRESS FOR PARSER.            PAR      1460
                                        *                                                                        PAR      1461
                                        *         CALLS  SLT.                                                    PAR      1462
                                                                                                                 PAR      1463
                                                                                                                 PAR      1464
           733  22207                    TRE70    LX2    X7                                                      PAR      1465
                     6120000461 +                 =B2    PAR.NX                                                  PAR      1466
                               10166              BX1    X6                                                      PAR      1467
           734  0310000761 +                      NZ     X0,TRE76    IF NOT FOLLOWED BY *(* - SET VARIABLE BIT   PAR      1468
                                                                                                                 PAR      1469
                                        **        HERE IF ENTITY FOLLOWED BY *(*, BUT DOES NOT HAVE CLASS.       PAR      1470
                                        *         IF DECLARED EXTERNAL, SET CLASS = USER FUNCTION.               PAR      1471
                                        *         ELSE IF FOLLOWED BY SUBSTRING LPAREN, IT MUST BE               PAR      1472
                                        *                A CHARACTER VARIABLE.                                   PAR      1473
                                        *         ELSE IF IT IS A FORMAL PARAMETER, CLASS = USER FUNCTION.       PAR      1474
                                        *         ELSE SET CLASS = FUNCTION,                                     PAR      1475
                                        *                IF IN TABLE, FUNT = INTRINSIC, ELSE FUNT = USER.        PAR      1476
                                                                                                                 PAR      1477
                          20145                   HX1    WB.DEXT                                                 PAR      1478
                               56341              SA3    B4+B1                                                   PAR      1479
           735  0331000756 +                      MI     X1,TRE74    IF DECLARED EXTERNAL                        PAR      1480
                                                  HX3    TB.COL                                                  PAR      1481
                          6120001140 +            SB2    PAR.SBS                                                 PAR      1482
           736  0333000767 +                      MI     X3,TRE78    IF FOLLOWED BY SUBSTRING LPAREN             PAR      1483
                          20106                   LX1    WB.DEXTP-WB.FPP                                         PAR      1484
           737  0331000756 +                      MI     X1,TRE74    IF FORMAL PARAMETER                         PAR      1485
                                                                                                                 PAR      1486
                                        *         HERE IF NOT FORMAL PARAM.  CHECK IF ENTITY APPEARED IN TYPE    PAR      1487
                                        *         STATEMENT AND TYPE AND NAME SAME AS AN INTRINSIC.              PAR      1488
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    37
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                                                                                                                 PAR      1489
                          43052                   MX0    WA.SYML                                                 PAR      1490
                               55321              =A3    A2-WB.W+WA.W                                            PAR      1491
           740  76570                             SX5    B7          REMEMBER (X5) = WB INDEX OF SYMBOL          PAR      1492
                     11103                        BX1    X0*X3       SYMBOL ONLY                                 PAR      1493
                          0100000000 X            CALL   SLT         SCAN LIBRARY TABLE                          PAR      1494
           741  5110000000 X                      SA1    T.SYM                                                   PAR      1495
                          63750                   SB7    X5          RESTORE (B7) = WB INDEX                     PAR      1496
                               53217              SA2    X1+B7       RESTORE (A2) -> SYMTAB (WB)                 PAR      1497
           742  0720000756 +                      MI     B2,TRE74    IF NOT IN TABLE -- USER FUNCTION            PAR      1498
                          5112000000 X            SA1    B2+F.INTF                                               FC5A227    92
           743  20144                             SBIT   X1,IT.GNOP                                              FC5A227    93
                     43071                        MX0    -WB.MODEL                                               FC5A227    94
                                                  LX0    WB.MODEP                                                FC5A227    95
                          0321000746 +            PL     X1,TRE71    IF NOT GENERIC ONLY INTRINSIC               FC5A227    96
           744  6170000000 X                      WARN   E.TY9                                                   FC5A227    97
           745  0400000750 +                      EQ     TRE72                                                   FC5A227    98
                                                                                                                 FC5A227    99
           746  13163                    TRE71    BX1    X6-X3                                                   FC5A227   100
                     15110                        BX1    -X0*X1                                                  PAR      1502
                          0301000750 +            ZR     X1,TRE72    IF DECLARED MODE AGREES WITH INTRIN TABLE   PAR      1503
           747  6170000000 X                      WARN   E.TY2       ** CONFLICTING MODE IGNORED                 PAR      1504
                                                                                                                 PAR      1505
                                        *         CONFIRMED AS INTRINSIC FUNCTION.                               PAR      1506
                                                                                                                 PAR      1507
           750  5110000000 X             TRE72    SA1    STAGE                                                   FC5A227   101
                          7140000000 X            SX4    FEC=EXU                                                 FC5A227   102
           751  11606                             BX6    X0*X6       CLEAR USER DEFINED MODE                     FC5A227   103
                     37441                        IX4    X4-X1                                                   FC5A227   104
                          43000                   MX0    0                                                       FC5A227   105
                               12663              BX6    X6+X3       MERGE IN NEW CLASS BITS                     FC5A227   106
           752  0314000753 +                      NZ     X4,TRE73    IF NOT IN EXECUTABLES                       FC5A227   107
                          43001                   CLAS=  X0,WB,(TYP)                                             FC5A227   108
                                                                                                                 FC5A227   109
           753  15660                    TRE73    BX6    -X0*X6      CLEAR EXPLICIT TYPE BIT (AS APPLICABLE)     FC5A227   110
                     54620                        SA6    A2                                                      FC5A227   111
                          54121                   =A1    A2-WB.W+WC.W                                            PAR      1511
                               12717              BX7    X1+X7       MERGE (WC.FUNI) PER SLT                     PAR      1512
           754  6120001151 +                      SB2    PAR.FUN                                                 PAR      1513
                          54710                   SA7    A1                                                      PAR      1514
           755  0400001011 +                      EQ     TREX        EXIT..                                      PAR      1518
                                                                                                                 PAR      1519
                                        *         CONFIRMED USER FUNCTION.                                       PAR      1520
                                                                                                                 PAR      1521
           756                           TRE74    BSS                                                            PAR      1522
                                         .USER    IFNE   MF.USER                                                 PAR      1523
                                                  =A3    A2-WB.W+WC.W                                            PAR      1524
                                                  =X0    MF.USER                                                 PAR      1525
                                                  LX0    WC.FUNTP                                                PAR      1526
                                                  BX7    X0+X3       SET FUNCTION TYPE = USER FUNC               PAR      1527
                                                  SA7    A3                                                      PAR      1528
                                         .USER    ENDIF                                                          PAR      1529
           756  7130050100                        CLAS=  X3,WB,(NVAR,FUN,EXT)                                    PAR      1530
                          12663                   BX6    X6+X3       MERGE NEW CLASS BITS                        PAR      1531
           757  6120001151 +                      SB2    PAR.FUN                                                 PAR      1532
                          54620                   SA6    A2          UPDATE INFO IN SYMTAB                       PAR      1533
           760  0400001011 +                      EQ     TREX        EXIT..                                      PAR      1534
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    38
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                                                                                                                 PAR      1535
                                        *         HERE IF NAME NOT FOLLOWED BY LEFT PAREN.                       PAR      1536
                                        *         A.  IF EXTERNAL BIT SET, CONTINUE, NOT SETTING ANY OTHER BITS. PAR      1537
                                        *         B.  IF NOT (A), SET VARIABLE BITS DEFINED IN (X2).             PAR      1538
                                                                                                                 PAR      1539
           761  20145                    TRE76    HX1    WB.DEXT                                                 PAR      1540
                     0321000767 +                 PL     X1,TRE78    IF NOT DECLARED EXTERNAL, CHANGE CLASS      FC5A164    58
           762  6170000000 X                      SB7    E.VA04                                                  FC5A164    59
                          7200777776              SX0    X0+O.LP-O.RP                                            FC5A164    60
           763  0300000764 +                      ZR     X0,TRE77    IF FOLLOWED BY RP                           FC5A164    61
                          0314000702 +            NZ     X4,TRE35    IF NOT FOLLOWED BY A COMMA                  FC5A164    62
                                                                                                                 FC5A164    63
           764  0305001011 +             TRE77    ZR     X5,TREX     IF PRECEDED BY A SLP                        FC5A164    64
                          7255000005              SX5    X5+O.SLP-O.LP                                           FC5A164    65
           765  0305001011 +                      ZR     X5,TREX     IF PRECEDED BY LP                           FC5A164    66
                          0530000702 +            NZ     B3,TRE35    IF NOT PRECEDED BY A COMMA                  FC5A164    67
           766  0400001011 +                      EQ     TREX                                                    FC5A164    68
                                                                                                                 FC5A164    69
           767  12662                    TRE78    BX6    X6+X2       CONFIRMED AS VAR                            PAR      1542
                     54620                        SA6    A2                                                      PAR      1543
                          0400001011 +            EQ     TREX        EXIT..                                      PAR      1544
                                                                                                                 PAR      1545
                                        *         HERE IF ELEMENT NOT IN SYMBOL TABLE.                           PAR      1546
                                        *         CHECK IF FOLLOWED BY NON-COLON LEFT PAREN.                     PAR      1547
                                        *         IF YES, MUST BE A FUNCTION REFERENCE -- CALL *SLT*.            PAR      1548
                                        *         IF NO,  MUST BE A SIMPLE VARIABLE -- ADD TO TABLE AND EXIT.    PAR      1549
                                                                                                                 PAR      1550
           770  56141                    TRE80    =A1    B4+1                                                    PAR      1551
                     7221777740                   SX2    X1-O.LP                                                 PAR      1552
           771  7140000461 +                      SX4    PAR.NX                                                  PAR      1553
                          0312000773 +            NZ     X2,TRE83    IF NOT FOLLOWED BY LPAREN                   PAR      1554
                                                  HX1    TB.COL                                                  PAR      1555
           772  0321001001 +                      PL     X1,TRE90    IF NOT SUBSTRING LPAREN                     PAR      1556
                          7140001140 +            SX4    PAR.SBS                                                 PAR      1557
                                                                                                                 FC5A279     8
           773  0100000000 X             TRE83    CALL   STY         SET MODE                                    PAR      1558
           774  36771                             IX7    X7+X1       ADD IN CLASS FIELD                          PAR      1559
                     5110000000 X                 ADSYM  T.SYM       ADD SYMBOL, TAG TO TABLE                    PAR      1560
           776  0100000000 X                      CALL   CT1         CONSTRUCT OPERAND FOR SYMBOL                PAR      1561
           777  63240                             SB2    X4                                                      PAR      1562
                     5160000014 +                 SA6    CSYTAG      SAVE P2 TAG                                 PAR      1563
                               54661              =A6    A6-CSYTAG+CSYREF                                        PAR      1564
          1000  10622                             BX6    X2                                                      PAR      1565
                     0400001011 +                 EQ     TREX        EXIT..                                      PAR      1566
                                                                                                                 PAR      1567
                                        *         HERE IF NOT IN TABLE AND FOLLOWED BY *(*.                      PAR      1568
                                        *         EXIT   (NEXT) = 0, SYMBOL ALREADY USED, ARGUMENT COUNT SET.    PAR      1569
                                                                                                                 PAR      1570
          1001  10166                    TRE90    BX1    X6                                                      PAR      1571
                     0100000000 X                 CALL   SLT         SCAN LIBRARY TABLE                          PAR      1572
          1002  10577                             BX5    X7          REMEMBER SYMTAB (WC) PER SLT                PAR      1573
                     43100                        MX1    0                                                       PAR      1574
                          13222                   BX2    0                                                       PAR      1575
          1003  0620001004 +                      PL     B2,TRE94    IF INTRINSIC FUNCTION                       PAR      1576
                          0100000000 X            CALL   STY         SET IMPLICIT TYPE                           PAR      1577
                                                                                                                 FC5A279     9
          1004  12713                    TRE94    BX7    X1+X3       *WB*                                        PAR      1578
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    39
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                     12225                        BX2    X2+X5       *WC*                                        PAR      1579
                          5170000016 +            SA7    CSYWB                                                   PAR      1580
          1005  5110000000 X                      ADSYM  T.SYM       ADD NAME TO SYMTAB                          PAR      1581
          1006  0100000000 X                      CALL   CT1         CONSTRUCT OPERAND FOR SYMBOL                PAR      1582
          1007  5160000014 +                      SA6    CSYTAG                                                  PAR      1583
                          54661                   =A6    A6-CSYTAG+CSYREF                                        PAR      1584
          1010  6120001151 +                      SB2    PAR.FUN     INDICATE EXTERNAL                           PAR      1585
                          10622                   BX6    X2                                                      PAR      1586
                                        *         EQ     TREX        EXIT..                                      PAR      1587
                                                                                                                 PAR      1588
                                                                                                                 PAR      1589
                                        **        EXIT ROUTINE, BUT CHECK IF CROSS REFERENCE HAS BEEN REQUESTED  PAR      1590
                                        *         FIRST....                                                      PAR      1591
                                        *         ENTRY  (CSYMBOL, CSYTAG) = SET UP.                             PAR      1592
                                        *                (X6) = SYMTAB PROPERTY WORD (WB).                       PAR      1593
                                        *                (B2) = PROCESSOR ADDRESS.                               PAR      1594
                                                                                                                 PAR      1595
          1011  5160000016 +             TREX     SA6    CSYWB                                                   PAR      1596
                                                  LX6    -WB.MODEP                                               F1037F5   444
                          43171                   MX1    -WB.MODEL                                               F1037F5   445
                               15161              BX1    -X1*X6      EXTRACT MODE                                F1037F5   446
                                                  LX6    WB.MODEP                                                F1037F5   447
          1012  0311001014 +                      NZ     X1,TREX00   IF NOT MODE BOOLEAN                         F1037F5   448
                                   0              ERRNZ  M.BOOL                                                  F1037F5   449
                          6170000000 X            MDERR  E.MDE2                                                  F1037F5   450
                                                                                                                 F1037F5   451
          1014  10166                    TREX00   BX1    X6                                                      F1037F5   452
                     20157                        HX1    WB.FUN                                                  F1037F5   453
                          20655                   HX6    WB.EXT                                                  F1037F5   454
                               11116              BX1    X1*X6                                                   F1037F5   455
          1015  0321001024 +                      PL     X1,TREX0A   IF NOT EXTERNAL FUNCTION                    F1037F5   456
                          5110004550 +            SA1    =0LDATE                                                 F1037F5   457
          1016  5120000013 +                      SA2    CSYMBOL                                                 F1037F5   458
                          5130004551 +            SA3    =0LTIME                                                 F1037F5   459
          1017  5140004552 +                      SA4    =0LCLOCK                                                F1037F5   460
                          13112                   BX1    X1-X2                                                   F1037F5   461
          1020  0301001023 +                      ZR     X1,TREX0    IF *DATE*                                   F1037F5   462
                          13132                   BX1    X3-X2                                                   F1037F5   463
          1021  0301001023 +                      ZR     X1,TREX0    IF *TIME*                                   F1037F5   464
                          13142                   BX1    X4-X2                                                   F1037F5   465
          1022  0311001024 +                      NZ     X1,TREX0A   IF NOT *CLOCK*                              F1037F5   466
                                                                                                                 F1037F5   467
          1023  6170000000 X             TREX0    MDERR  E.MDE5      ** DATE, TIME, AND CLOCK ARE MACHINE DEP.   F1037F5   468
                                                                                                                 F1037F5   469
          1024  20617                    TREX0A   LX6    WB.EXTP+1   RESTORE X6                                  F1037F5   470
                     5110000012 +                 SA1    CMLFLG                                                  FC5A141   291
          1025  0301001034 +                      ZR     X1,TREX1    IF NOT INPUT LIST ITEMS                     FC5A141   292
                          0321001034 +            PL     X1,TREX1    IF NOT ARRAY SUBSCRIPT                      FC5A141   293
          1026  10166                             BX1    X6                                                      FC5A141   294
                     20157                        HX1    WB.FUN                                                  FC5A141   295
                          0321001034 +            PL     X1,TREX1    IF NOT A FUNCTION                           FC5A141   296
          1027  5110000000 X                      SA1    T=ILI                                                   FC5A141   297
                          0301001034 +            ZR     X1,TREX1    IF NO INPUT LIST ITEMS                      FC5A141   298
          1030  76620                             SX6    B2                                                      FC5A141   299
                     5160000000 X                 SA6    PARPA       PRESERVE PROCESSOR ADDRESS (B2)             FC5A141   300
                               76610              =X6    1           INDICATE RESTART                            FC50935     6
          1031  0100000000 X                      CALL   IOJ         ISSUE RESTART                               FC5A141   302
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    40
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
          1032  5110000000 X                      SA1    PARPA                                                   FC5A141   303
                          5120000016 +            SA2    CSYWB                                                   FC5A141   304
          1033  63210                             SB2    X1          RESTORE B2                                  FC5A141   305
                     10622                        BX6    X2          RESTORE X6                                  FC5A141   306
                                                                                                                 FC5A141   307
          1034  5110000000 +             TREX1    SA1    PARNOW                                                  FC5A141   308
                          0301001072 +            ZR     X1,TREX8    IF STANDARD PARSE                           PAR      1598
          1035  7211777774                        SX1    X1-PM=DIM                                               PAR      1599
                          0311001072 +            NZ     X1,TREX8    IF NOT 'DIM BOUND' PARSING                  PAR      1600
          1036  20666                             SBIT   X6,WB.VARP                                              PAR      1601
                     6170000000 X                 SB7    E.DM17                                                  PAR      1602
          1037  0326001056 +                      PL     X6,TREX2    IF NOT VARIABLE                             FC5A141   309
                          20667                   SBIT   X6,WB.ARYP/WB.VARP                                      PAR      1604
          1040  6170000000 X                      SB7    E.DM18                                                  PAR      1605
                          0336001056 +            MI     X6,TREX2    IF ARRAY                                    FC5A141   310
          1041  5110000000 X                      SA1    MOD                                                     FC50438    19
                          6170000000 X            SB7    E.DM14      ** ADJUSTABLE ARRAY CANT BE IN MAIN PROGRAM FC50438    20
          1042  20162                             SBIT   X1,MO.PROP                                              FC50438    21
                     0331001056 +                 MI     X1,TREX2    IF IN MAIN PROGRAM                          FC50438    22
          1043  5110000000 X                      SA1    TB=TYPE                                                 FC50438    23
                          6170000000 X            SB7    E.DM21      ** ADJUSTABLE ARRAY CANT BE IN COMMON       FC50438    24
          1044  20122                             LX1    -KW.JMPP                                                FC50438    25
                     63310                        SB3    X1                                                      FC50438    26
                                   0              ERRNZ  18-KW.JMPL                                              FC50438    27
                          67303                   SB3    -B3                                                     FC50438    28
          1045  7113000000 X                      SX1    B3+KW=COMM                                              FC50438    29
                          0301001056 +            ZR     X1,TREX2    IF PROCESSING COMMON ARRAY                  FC50438    30
          1046  5110000000 X                      SA1    T.SYM                                                   FC50438    31
                          5120000000 X            SA2    DIRT                                                    FC50438    32
          1047  63320                             SB3    X2                                                      FC50438    33
                     53113                        SA1    X1+B3       FETCH ARRAY *WB*                            FC50438    34
                          20154                   SBIT   X1,WB.COMP                                              FC50438    35
          1050  0331001056 +                      MI     X1,TREX2    IF PROCESSING COMMON ARRAY                  FC50438    36
                          5110000014 +            SA1    CSYTAG                                                  PAR      1607
          1051  43071                             MX0    -TP.MODEL                                               PAR      1608
                                                  LX1    -TP.MODEP                                               PAR      1609
                     11101                        BX1    X0*X1       CLEAR MODE                                  PAR      1610
                          76011                   =X0    M.INT                                                   PAR      1611
                               36610              IX6    X1+X0       FORCE MODE INTEGER                          PAR      1612
                                                  LX6    TP.MODEP                                                PAR      1613
          1052  54610                             SA6    A1                                                      PAR      1614
                     5110000000 X                 SA1    T.SYM                                                   PAR      1615
                                                  HX6    TP.ORD                                                  PAR      1616
                               21654              AX6    -TP.ORDL    EXTRACT ORDINAL                             PAR      1617
          1053  63360                             SB3    X6                                                      PAR      1618
                     20601                        LX6    1                                                       PAR      1619
                          63363                   SB3    X6+B3       CONVERT ORDINAL TO INDEX                    PAR      1620
                                   0              ERRNZ  3-Z=SYM                                                 PAR      1621
                               66331              =B3    B3-WA.W+WB.W                                            PAR      1622
          1054  53113                             SA1    X1+B3                                                   PAR      1623
                     43601                        CLAS=  X6,WB,(VDS)                                             PAR      1624
                               12661              BX6    X6+X1                                                   PAR      1625
          1055  54610                             SA6    A1          SET VDS BIT FOR THE VARIABLE                PAR      1626
                     0400001074 +                 EQ     TREX9                                                   PAR      1627
                                                                                                                 PAR      1628
          1056  0100004130 +             TREX2    RJ     DBE         OUTPUT DIMENSION ERROR                      FC5A141   311
          1057  56141                             =A1    B4+1                                                    PAR      1630
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    41
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               TRE70 
  
                     7211777740                   SX1    X1-O.LP                                                 PAR      1631
          1060  0311001070 +                      NZ     X1,TREX6    IF NOT *(* FOLLOWING ILLEGAL NAME           PAR      1632
                          66441                   =B4    B4+1                                                    PAR      1633
                               66310              =B3    1           INITIALIZE *LP* COUNTER                     PAR      1634
          1061  66200                             =B2    0           INITIALIZE *RP* COUNTER                     PAR      1635
                                                                                                                 FC5A279    10
          1062  66441                    TREX3    =B4    B4+1                                                    PAR      1636
                     56140                        SA1    B4                                                      PAR      1637
                          0301000000 X            ZR     X1,PSL      IF *EOS*, EXIT...                           PAR      1638
          1063  6271777740                        SB7    X1-O.LP                                                 PAR      1639
                          0470001066 +            ZR     B7,TREX4    IF *(*                                      PAR      1640
          1064  6271777737                        SB7    X1-O.RP                                                 PAR      1641
                          0470001067 +            ZR     B7,TREX5    IF *)*                                      PAR      1642
          1065  0400001062 +                      EQ     TREX3                                                   PAR      1643
                                                                                                                 FC5A279    11
          1066  66331                    TREX4    =B3    B3+1                                                    PAR      1644
                     0400001062 +                 EQ     TREX3                                                   PAR      1645
                                                                                                                 FC5A279    12
          1067  66221                    TREX5    =B2    B2+1                                                    PAR      1646
                     0523001062 +                 NE     B2,B3,TREX3                                             PAR      1647
                                                                                                                 FC5A279    13
          1070  5110000000 X             TREX6    SA1    CONONE                                                  PAR      1648
                          66661                   =B6    B6+1                                                    PAR      1649
                               22601              LX6    X1                                                      PAR      1650
          1071  57661                             =A6    B6-1                                                    PAR      1651
                     66441                        =B4    B4+1        ADVANCE CURSOR PAST *)*                     PAR      1652
                          0400000461 +            EQ     PAR.NX                                                  PAR      1653
                                                                                                                 PAR      1654
          1072  20641                    TREX8    SBIT   X6,WB.VDSP                                              PAR      1655
                     0326001074 +                 PL     X6,TREX9    IF NOT FORWARD REFERENCE FORMAL PARAMETER   PAR      1656
          1073  6170000000 X                      FATAL  E.AT04                                                  PAR      1657
                                                                                                                 PAR      1658
          1074  5120000015 +             TREX9    SA2    CSYREF                                                  PAR      1659
                                                  HX2    TP.ORD                                                  PAR      1660
                          76520                   SX5    B2          SET (X5) = PROCESSOR ADDRESS                PAR      1661
                               21254              AX2    -TP.ORDL    ISOLATE (X2) = SYMBOL ORDINAL               PAR      1662
          1075  20252                             LX2    XR.TAGP                                                 PAR      1663
                     5110000000 X                 SA1    REFVAR      TYPE OF REFERENCE                           PAR      1664
                               22602              LX6    X2                                                      PAR      1665
          1076  5130000000 X                      SA3    ARGMODE                                                 FC5A338    60
                          6170000000 X            SB7    A=UNT                                                   FC5A338    61
          1077  67707                             SB7    -B7                                                     FC5A338    62
                     63737                        SB7    X3+B7                                                   FC5A338    63
                          0570001104 +            NZ     B7,TREX10   IF NOT UNIT SPECIFIER                       FC5A338    64
          1100  5130000014 +                      SA3    CSYTAG                                                  FC5A338    65
                          43071                   MX0    -TP.MODEL                                               FC5A338    66
                               15030              BX0    -X0*X3      EXTRACT MODE                                FC5A338    67
          1101  7200777771                        SX0    X0-M.CHAR                                               FC5A338    68
                          0310001104 +            NZ     X0,TREX10   IF NOT INTERNAL FILE                        FC5A338    69
          1102  5130000000 X                      SA3    IODIR                                                   FC5A338    70
                          7110000027              SX1    CR.OUT                                                  FC5A338    71
          1103  0303001104 +                      ZR     X3,TREX10   IF READ                                     FC5A338    72
                          7110000022              SX1    CR.INP                                                  FC5A338    73
                                                                                                                 FC5A338    74
          1104  6170001105 +             TREX10   ADDREF X6,X1                                                   FC5A338    75
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    42
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               VARX
  
                                        **        VARX - TRANSLATION OF SYMBOL COMPLETE.                         PAR      1668
                                        *                                                                        PAR      1669
                                        *         ENTRY  (X5) = PROCESSOR ADDRESS.                               PAR      1670
                                        *                (ATTR) = ATTRIBUTE BITS TO BE SET FOR PASS 2.           PAR      1671
                                        *                (CSYMBOL, CSYTAG, CSYWB) = SET UP.                      PAR      1672
                                                                                                                 PAR      1673
                                                                                                                 PAR      1674
          1105  63250                             SB2    X5          (B2) = PROCESSOR JUMP ADDRESS               PAR      1675
                     5150000014 +                 SA5    CSYTAG      FETCH (X5) = PASS 1 TAG FORM                PAR      1676
          1106  5140000001 +                      SA4    ATTR                                                    PAR      1677
                          66441                   =B4    B4+1                                                    PAR      1678
                               66661              SB6    B6+B1       ADVANCE ESTACK POINTER                      PAR      1679
          1107  12645                             BX6    X4+X5       MERGE P2 ATTRIBUTE BITS                     PAR      1680
                     57661                        SA6    B6-B1       STACK THE SYMBOL                            PAR      1681
                          5120000012 +            SA2    CMLFLG                                                  PAR      1682
          1110  0302001112 +                      ZR     X2,PAR.VAR7 IF NOT INPUT I/O LIST ITEMS                 PAR      1683
                          56241                   =A2    B4+1                                                    FC5A141   313
          1111  7202777740                        SX0    X2-O.LP                                                 FC5A141   314
                          0100000000 X            CALL   CML         CHECK FOR MATCH IN LIST TABLE               FC5A141   315
                                                                                                                 PAR      1690
                                        *         TRANSFER TO SELECTED PROCESSOR --                              PAR      1691
                                        *                (X6) = EL-STAK ENTRY = P2 TAG OF SYMBOL.                PAR      1692
                                                                                                                 PAR      1693
          1112  0222000000               PAR.VAR7 JP     B2          JUMP TO PROCESS TRANSLATED SYMBOL           PAR      1694
  
  
  
  
                                        **        STFD - PARSE STATEMENT FUNCTION DUMMY ARG. TOKEN.              PAR      1696
                                                                                                                 PAR      1697
          1113  20152                    PAR.STFD LX1    -TB.ACTEP                                               PAR      1698
                     53510                        SA5    X1                                                      PAR      1699
                                   0              ERRNZ  TB.ACTEL-18                                             PAR      1700
                          43060                   MX0    -TB.ORDL                                                PAR      1701
                               20136              LX1    TB.ACTEP-TB.ORDP                                        PAR      1702
          1114  15610                             BX6    -X0*X1                                                  PAR      1703
                     5120000000 X                 SA2    T.SYM                                                   PAR      1704
                               22016              LX0    B1,X6                                                   PAR      1705
          1115  63721                             =B7    X2+WB.W                                                 PAR      1706
                     36006                        IX0    X0+X6                                                   PAR      1707
                          53207                   SA2    B7+X0       WB(DUMMY)                                   PAR      1708
                               54321              =A3    A2+WC.W-WB.W                                            PAR      1709
          1116  43071                             MX0    -WB.MODEL                                               PAR      1710
                                                  LX2    -WB.MODEP                                               PAR      1711
                     15620                        BX6    -X0*X2                                                  PAR      1712
                          43052                   MX0    -WC.CLENL                                               PAR      1713
                               20336              LX3    -WC.CLENP                                               PAR      1714
          1117  15130                             BX1    -X0*X3                                                  PAR      1715
                     43700                        MX7    0           CLEAR ATTRIBUTE SUMP                        FC50652     6
                          5170000001 +            SA7    ATTR        UPDATE                                      FC50445    10
          1120  0100004066 +                      RJ     CLM         COERCE MODE AND CHARACTER LENGTH            PAR      1716
          1121  10655                             BX6    X5                                                      PAR      1717
                     56660                        SA6    B6          STACK CONVERTED ACTUAL                      PAR      1718
                          66661                   =B6    B6+1                                                    PAR      1719
                               66441              =B4    B4+1                                                    PAR      1720
          1122  0470001124 +                      ZR     B7,STFD1    IF NO CONVERSION PROBLEM                    FC50148     9
                          0100000000 X            FATAL  B7                                                      PAR      1722
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    43
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               PAR.STFD
  
          1123  0400000461 +                      EQ     PAR.NX                                                  PAR      1723
                                                                                                                 FC50148    10
          1124  57141                    STFD1    =A1    B4-1                                                    FC50148    11
                     20152                        LX1    -TB.ACTEP   ACTUAL ARGUMENT POINTER                     FC50148    12
                          53110                   SA1    X1                                                      FC50148    13
                                   0              ERRNZ  18-TB.ACTEL                                             FC50148    14
                               37115              IX1    X1-X5                                                   FC50148    15
          1125  0301000461 +                      ZR     X1,PAR.NX   IF NO MODE COERSION                         FC50148    16
                          6170000000 X            ANSI   E.SF13      ** DUMMY/ACTUAL ARGUMENT TYPES MUST MATCH   FC50148    17
          1127  0400000461 +                      EQ     PAR.NX                                                  FC50148    18
  
  
  
  
                                        **        HERE IF ELEMENT IS *ARRAY(*.                                   PAR      1725
                                                                                                                 PAR      1726
          1130  5110000000 X             PAR.SUB  SA1    CO.DBSB                                                 FC50281     6
                          0321001133 +            PL     X1,PAR.SUB1 IF SUBSCRIPTS IN-LINE                       FC50281     7
          1131  5110000000 X                      SA1    T=PAR                                                   FC50281     8
                          10611                   BX6    X1                                                      FC50281     9
          1132  5160000004 +                      SA6    CURST       INHIBIT SQUEEZE                             FC50281    10
                                                                                                                 FC50281    11
          1133  0100003664 +             PAR.SUB1 RJ     SSO         SET UP SUBSCRIPT OPERATOR                   FC50281    12
                                                                     *SSO* RETURNS  (X4) = NEW *ARGMIS*,         PAR      1728
                                                                                    (X7) = NEW *ARGCOMA*.        PAR      1729
          1134  5110000012 +                      SA1    CMLFLG                                                  PAR      1730
                          0301001136 +            ZR     X1,PAR.SUB2 IF NOT I/O INPUT LIST ITEM                  FC50281    13
          1135  0331001136 +                      MI     X1,PAR.SUB2 IF FLAG ALREADY SET FOR A *(*               FC50281    14
                          77605                   =X6    -B5         FLAG SET TO ADDR OF *(*                     PAR      1733
                               54610              SA6    A1                                                      PAR      1734
                                                                                                                 FC50281    15
          1136  5130000365 +             PAR.SUB2 SA3    ARRARM                                                  FC50281    16
                          10633                   BX6    X3                                                      PAR      1736
          1137  6130000044                        =B3    O.SLP                                                   PAR      1737
                          0400001206 +            EQ     PAR.SPS     ENTER PAREN STACK                           PAR      1738
  
  
  
  
                                        **        HERE IF ELEMENT IS SUBSTRINGED VARIABLE.                       PAR      1740
                                        *                                                                        PAR      1741
                                        *         ENTRY  (X6) = VARIABLE BEING SUBSTRINGED.                      PAR      1742
                                        *                                                                        PAR      1743
                                        *         EXIT   TO PAR.SPS --                                           PAR      1744
                                        *                ARGMIS = OPERAND FOR VARIABLE.                          PAR      1745
                                                                                                                 PAR      1746
                                                                                                                 PAR      1747
          1140                           PAR.SBS  BSS    0           ENTRY...                                    PAR      1748
                                         .T       IFEQ   TEST,ON                                                 PAR      1749
                                                  SA1    B4                                                      PAR      1750
                                                  HX1    TB.COL                                                  PAR      1751
                                                  PL     X1,"BLOWUP" IF NOT SUBSTRING LPAREN                     PAR      1752
                                         .T       ENDIF                                                          PAR      1753
                                                                                                                 PAR      1754
          1140  5110000012 +                      SA1    CMLFLG                                                  FC5A141   316
                          0301001142 +            ZR     X1,PAR.SBS5 IF NOT I/O INPUT LIST ITEM                  FC5A141   317
          1141  0331001142 +                      MI     X1,PAR.SBS5 IF FLAG ALREADY SET FOR SUBSTRING *(*       FC5A141   318
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    44
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               PAR.SBS 
  
                          77705                   =X7    -B5         FLAG SET TO ADDRESS OF *(*                  FC5A141   319
                               54710              SA7    A1                                                      FC5A141   320
                                                                                                                 FC5A141   321
          1142  10466                    PAR.SBS5 BX4    X6          ARGMIS = OPERAND                            FC5A141   322
                                                  LX6    -TP.MODEP                                               PAR      1756
                     43171                        MX1    -TP.MODEL                                               PAR      1757
                          5130000402 +            SA3    SBSARM                                                  PAR      1758
          1143  15761                             BX7    -X1*X6                                                  PAR      1759
                     6130000044                   SB3    O.SLP                                                   PAR      1760
          1144  6227777771                        SB2    X7-M.CHAR                                               PAR      1761
                          20722                   LX7    AC.MODEP    ARGCOMA = [MODE, CNT=0]                     PAR      1762
                               10633              BX6    X3          ARGMODE = (SBSARM)                          PAR      1763
          1145  0420001206 +                      ZR     B2,PAR.SPS  IF MODE = CHARACTER                         PAR      1764
                          6170000000 X            FATAL  E.AT16      ** CAN ONLY SUBSTRING CHAR                  PAR      1765
          1147  0100004451 +                      RJ     SPE         SKIP THE SUBSTRING                          FC50774     6
          1150  6144000001                        SB4    B4+1                                                    FC50774     7
                          0400000461 +            EQ     PAR.NX      CONTINUE                                    FC50774     8
  
  
  
  
                                        **        HERE IF ELEMENT IS A *FUNCTION* OF SOME KIND ....              PAR      1768
                                                                                                                 PAR      1769
                                                                                                                 PAR      1770
          1151  10066                    PAR.FUN  BX0    X6                                                      PAR      1771
                                                  HX0    TP.ORD                                                  PAR      1772
                     5110000000 X                 SA1    T.SYM                                                   PAR      1773
                               21054              AX0    -TP.ORDL    ISOLATE (X0) = SYMORD OF FUNCTION           PAR      1774
          1152  36700                             IX7    X0+X0                                                   PAR      1775
                     6271000002                   =B7    X1+WC.W                                                 PAR      1776
                               36307              IX3    X0+X7       (X3) = INDEX = Z=SYM * ORDINAL              PAR      1777
                                   0              ERRNZ  3-Z=SYM                                                 PAR      1778
          1153  53537                             SA5    X3+B7       FETCH SYMTAB WORD (WC)                      PAR      1779
                     43171                        MX1    -WC.FUNTL                                               PAR      1780
                          20503                   LX5    -WC.FUNTP                                               PAR      1781
                               15251              BX2    -X1*X5      ISOLATE TYPE OF FUNCTION                    PAR      1782
          1154  63720                             SB7    X2                                                      PAR      1783
                     0277001155 +                 JP     B7+FUNT     PROCESS EACH FUNCTION TYPE                  PAR      1784
                                                                                                                 PAR      1785
          1155                           FUNT     BSS    0                                                       PAR      1786
      L      0                                    LOC    0                                                       PAR      1787
                                                                                                                 PAR      1788
      L      0  5130000372 +             MF.USER  SA3    EXTFARM                                                 PAR      1789
                          0400001175 +            EQ     FUN.XU      EXTERNAL USER                               PAR      1790
                                                                                                                 PAR      1791
      L      1  0400001162 +             MF.STF   EQ     FUN.IS      INLINE STATEMENT FUNCTION                   PAR      1792
                                                                                                                 PAR      1793
      L      2  5130000374 +             MF.LIB   SA3    INFARM                                                  PAR      1794
                          0400001170 +            EQ     FUN.IN      INTRINSIC FUNCTION                          PAR      1795
                                                                                                                 PAR      1796
      L      3  20571                    MF.BEF   LX5    WC.FUNTP    RESTORE (X5) = SYMTAB (WC)                  PAR      1797
                     0400401160 +                 EQ     "BLOWUP"    **** DOES NOT HAPPEN IN PHASE 0 ****        PAR      1798
                                                                                                                 PAR      1799
      L      4  5130000374 +             MF.INL   SA3    INFARM                                                  PAR      1800
                          0400401161 +            EQ     "BLOWUP"                                                PAR      1801
                                                                                                                 PAR      1802
          1162                                    LOC    *O                                                      PAR      1803
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    45
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               FUN.IS
  
                                        **        HERE IF REFERENCE TO STATEMENT FUNCTION.                       PAR      1805
                                        *                                                                        PAR      1806
                                        *         CALL STMFT/SFR TO EXPAND THE REFERENCE BY SUBSTITUTING         PAR      1807
                                        *         PARAMETERS.                                                    PAR      1808
                                        *                                                                        PAR      1809
                                        *         EXIT   TO PAR.SPS --                                           PAR      1810
                                        *                (B4) -> FIRST TOKEN OF EXPANSION, IN (T.STF).           PAR      1811
                                        *                (B6) RESET ABOVE STATEMENT FUNCTION ESTACK ENTRY.       PAR      1812
                                        *                (INSTF) RESET TO INDICATE IN STATEMENT FUNCTION.        PAR      1813
                                        *                (ALC.REG) = LOCKS (B4) TO (T.STF).                      PAR      1814
                                        *                 ARGMODE = (STFARM).                                    PAR      1815
                                        *                 ARGMIS = OPERAND FOR FUNCTION NAME.                    PAR      1816
                                        *                 ARGCOMA = B3.                                          PAR      1817
                                                                                                                 PAR      1818
                                                                                                                 PAR      1819
          1162  55551                    FUN.IS   =A5    A5+WB.W-WC.W                                            PAR      1820
                     20547                        HX5    WB.SFX                                                  PAR      1821
                          0325001165 +            PL     X5,FUN.IS1  IF NOT RECURSIVE FUNCTION NEST              FC5A411    36
          1163  6170000000 X                      FATAL  E.SF10                                                  PAR      1823
          1164  0400001475 +                      EQ     PAR.STOP                                                PAR      1824
                                                                                                                 PAR      1825
          1165  10466                    FUN.IS1  BX4    X6          ARGMIS = FUNCTION NAME OPERAND              FC5A411    37
                     5130000403 +                 SA3    STFARM                                                  PAR      1827
                               67661              =B6    B6-1        UNSTACK SF NAME                             PAR      1828
          1166  76760                             =X7    B6                                                      PAR      1829
                     20722                        LX7    AC.EARGP    ARGCOMA = (ESTACK(ARG1),COMMA COUNT)        PAR      1830
                          10633                   BX6    X3                                                      PAR      1831
          1167  6130000044                        SB3    O.SLP                                                   PAR      1832
                          0400001206 +            EQ     PAR.SPS     SET PAREN STACK                             PAR      1833
  
  
  
  
                                        **        HERE IF INTRINSIC FUNCTION REFERENCE.                          PAR      1835
                                                                                                                 PAR      1836
          1170                           FUN.IN   BSS                                                            PAR      1837
          1170  5110000013 +                      SA1    CSYMBOL     NAME OF INTRINSIC                           PAR      1838
                          6130000044              SB3    O.ILP       SET INTRINSIC LEFT-PAREN                    PAR      1839
                                                  LX0    AS.ORDP                                                 PAR      1840
          1171  36410                             IX4    X1+X0       (X4) = ARGMIS   = AS.[SYM, ORD]             PAR      1841
                     5120004553 +                 SA2    =4LLOCF                                                 PAR      1842
                               37712              IX7    X1-X2                                                   PAR      1843
          1172  0317001174 +                      NZ     X7,FUN.IN1  IF THIS IS NOT 'LOCF'                       FC5A411    38
                          5110004554 +            CLAS=  X1,AM,(ARE,FUN,LEV3)                                    PAR      1845
          1173  12313                             BX3    X1+X3       ALLOW UN-LOADABLE NAMES                     PAR      1846
                                                                                                                 FC5A411    39
          1174  10633                    FUN.IN1  BX6    X3          ARGMODE                                     FC5A411    40
                     13777                        BX7    0           CLEAR ARGCOMA INITIALLY                     FC5A411    41
                                   0              ERRNZ  M.BOOL      IF FALSE, MUST INITIALIZE AC.MODE TO M.BOOL FC5A411    42
                          0400001206 +            EQ     PAR.SPS     ENTER PAREN STACK                           PAR      1849
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    46
        PARSE/ANALYZE SYMBOLIC ELEMENT.                               FUN.XU
  
                                        **        HERE IF REFERENCE TO AN EXTERNAL FUNCTION.                     PAR      1851
                                                                                                                 PAR      1852
          1175  20533                    FUN.XU   LX5    WC.FUNTP-1-WC.CTYPP                                     PAR      1853
                     0325001200 +                 PL     X5,FUN.XU4  IF NOT ASSUMED-LENGTH CHARACTER             PAR      1854
                               43101              MX1    1                                                       PAR      1855
          1176  15751                             BX7    -X1*X5      CLEAR (WC.CTYP), TO AVOID FURTHER MESSAGES  PAR      1856
                     20736                        LX7    WC.CTYPP+1                                              PAR      1857
                          54750                   SA7    A5                                                      PAR      1858
          1177  6170000000 X                      FATAL  E.VA12      ** F.P. FUNCTION WITH LENGTH=(*)            PAR      1859
          1200  43271                    FUN.XU4  MX2    -TP.MODEL                                               PAR      1860
                     10466                        BX4    X6                                                      PAR      1861
                                                  LX6    -TP.MODEP                                               PAR      1862
                          15762                   BX7    -X2*X6      EXTRACT (X7) = MODE OF FUNCTION             PAR      1863
                                  17              ERRMI  AC.MODEL-WB.MODEL                                       PAR      1864
                               10633              BX6    X3                                                      PAR      1865
          1201  20722                             LX7    AC.MODEP                                                PAR      1866
                     5120000000 X                 SA2    T=BLST                                                  PAR      1867
          1202  0302001205 +                      ZR     X2,FUN.XU5  IF NOT IN BLOCK STRUCTURE                   PAR      1868
                          7100040000              CLAS=  X0,WB,(DLER)                                            PAR      1869
          1203  10577                             BX5    X7                                                      PAR      1870
                     0100000000 X                 CALL   PDA         PROPOGATE DO LOOP ATTRIBUTE                 PAR      1871
          1204  10755                             BX7    X5                                                      PAR      1872
          1205  6130000044               FUN.XU5  SB3    O.SLP                                                   PAR      1873
                          0400001206 +            EQ     PAR.SPS                                                 PAR      1874
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    47
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.SPS 
  
                                        **        SPS - SET PARENTHESIS STACK.                                   PAR      1877
                                        *                                                                        PAR      1878
                                        *                                                                        PAR      1879
                                        *         ENTRY  (X4) = NEW VALUE FOR ARGMIS.                            PAR      1880
                                        *                (X6) = NEW VALUE FOR ARGMODE.                           PAR      1881
                                        *                (X7) = NEW VALUE FOR ARGCOMA.                           PAR      1882
                                        *                (B3) = TOKEN VALUE TO BE ENTERED IN OSTACK.  MUST BE    PAR      1883
                                        *                       A LEFT PAREN OPERATOR (O.LP, O.SLP, ETC.).       PAR      1884
                                        *                (B4) _ LEFT PAREN IN *TB*.                              PAR      1885
                                        *                                                                        PAR      1886
                                        *         EXIT   WITH *ADDOP* ENTRY CONDITIONS SET.                      PAR      1887
                                        *                (X1) = SPECIAL LEFT PAREN TOKEN VALUE (=B3 ON ENTRY).   PAR      1888
                                        *                (X2) = STANDARD LEFT PAREN OPERATOR.                    PAR      1889
                                        *                (B3) = TOKEN VALUE OF NEXT *TB* ENTRY.                  PAR      1890
                                        *                (B4) _ NEXT *TB* ENTRY.                                 PAR      1891
                                        *                (B5) = ADVANCED BY:  1                                  FC51075    12
                                        *                                                                        PAR      1893
                                        *         RESET ...                                                      PAR      1894
                                        *                (ARGMODE,ARGCOMA,ARGMIS).                               PAR      1895
                                        *                (REFVAR).                                               PAR      1896
                                        *                                                                        PAR      1897
                                        *         OPERATOR STACK UPON EXIT ...                                   PAR      1898
                                        *                N = LEFT PAREN OPERATOR                                 FC51075    13
                                        *                                                                        FC51075    14
                                        *         PARSER CONTEXT STACK ( T.PCS ) UPON EXIT ...                   FC51075    15
                                        *                N - 2      =  OLD ARGMODE                               FC51075    16
                                        *                N - 1      =  OLD ARGCOMA                               FC51075    17
                                        *                N          =  OLD ARGMIS                                FC51075    18
                                                                                                                 PAR      1903
                                                                                                                 PAR      1904
          1206  5160001245 +             PAR.SPS  SA6    SV67        SAV NEW ARGMODE                             FC51075    19
                          5076000001              SA7    A6+1        SAV NEW ARGCOMA                             FC51075    20
          1207  5120000000 X                      SA2    ARGMODE                                                 PAR      1906
                          22602                   LX6    X2                                                      FC51075    21
          1210  5110000000 X                      ADDWD  T.PCS       SAVE OLD VALUE FOR ARGMODE TO T.PCS         FC51075    22
          1211  5150000000 X                      SA5    ARGCOMA                                                 PAR      1910
                          22605                   LX6    X5                                                      FC51075    23
          1212  5110000000 X                      ADDWD  T.PCS       SAVE OLD VALUE FOR ARGCOMA TO T.PCS         FC51075    24
          1213  6120777773 X                      SB2    ESTACK-4                                                FC51075    25
                          6170000000 X            SB7    E.LP3       ** EXPRESSION TOO COMPLICATED               PAR      1913
          1214  0652001563 +                      GE     B5,B2,POP.RP5     IF OUT OF ROOM                        PAR      1914
                          5130000000 X            SA3    ARGMIS                                                  PAR      1917
          1215  10633                             BX6    X3                                                      FC51075    26
                     5110000000 X                 ADDWD  T.PCS       SAVE OLD VALUE FOR ARGMIS TO T.PCS          FC51075    27
          1217  76130                             SX1    B3          DPC FOR *(*                                 PAR      1922
                     5120001245 +                 SA2    SV67                                                    FC51075    28
          1220  5032000001                        SA3    A2+1                                                    FC51075    29
                          10622                   BX6    X2          NEW ARGMODE                                 FC51075    30
                               22703              LX7    X3          NEW ARGCOMA                                 FC51075    31
          1221  5160000000 X                      SA6    ARGMODE     RESET NEW *ARGMODE*                         FC51075    32
                          5170000000 X            SA7    ARGCOMA     RESET NEW *ARGCOMA*                         FC51075    33
          1222  10066                             BX0    X6                                                      FC51075    34
                     22704                        LX7    X4                                                      FC51075    35
                                                  HX0    AM.REF                                                  FC51075    36
                          5170000000 X            SA7    ARGMIS      RESET NEW *ARGMIS*                          FC51075    37
          1223  5120000265 +                      SA2    F.PRIOR-O.SEP+O.LP                                      PAR      1924
                          21060                   AX0    AM.REFP                                                 PAR      1925
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    48
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.SPS 
  
                               66441              =B4    B4+1        UPDATE TO NEXT ELEMENT                      PAR      1926
          1224  10700                             BX7    X0                                                      PAR      1927
                     54630                        SA6    A3          RESET NEW *ARGMIS*                          PAR      1928
                          5170000000 X            SA7    REFVAR      SET REFERENCE CELL TO NEW VALUE             PAR      1929
          1225  43063                             MX0    -SP.TBPRL                                               FC50104    83
                     66551                        SB5    B5+B1                                                   PAR      1931
                                                  LX0    SP.TBPRP                                                FC50104    84
                          11302                   BX3    X0*X2                                                   PAR      1933
                               36631              IX6    X3+X1       CONSTRUCT LOP INSTAK SETOP WORD             PAR      1934
          1226  56650                             SA6    B5                                                      PAR      1935
                     56540                        =A5    B4                                                      PAR      1936
                          63350                   SB3    X5                                                      PAR      1937
                                   0              ERRNZ  18-TB.TOTL                                              PAR      1938
          1227  5231000122 +                      SA3    X1-O.DEF+F.CONO                                         PAR      1939
                          22433                   LX4    B3,X3                                                   PAR      1940
          1230  0334000461 +                      MI     X4,PAR.NX   IF CURRENT / NEXT TOKEN PAIR LEGAL          PAR      1941
                                                                                                                 PAR      1942
                                        *         CHECK FOR IRREGULAR SYNTAX ALLOWED FOR --                      PAR      1943
                                        *         ( )    FUNCTION WITH NO ARGUMENTS.                             PAR      1944
                                        *         ( :    SUBSTRING DEFAULT FIRST.                                PAR      1945
                                                                                                                 PAR      1946
                          6225777737              SB2    X5-O.RP                                                 PAR      1947
          1231  5120000000 X                      SA2    ARGMODE                                                 PAR      1948
                                                  LX2    -AM.PADP                                                PAR      1949
                                   0              ERRNZ  18-AM.PADL                                              PAR      1950
                          0520001237 +            NZ     B2,PAR.SPS2 IF NOT RIGHT PAREN                          PAR      1951
          1232  6222775145 -                      SB2    X2-A=FUN                                                PAR      1952
                          0420001235 +            ZR     B2,PAR.SPS1 IF PROCESSING FUNCTION                      PAR      1953
          1233  6222775061 -                      SB2    X2-A=STFA                                               PAR      1954
                          0420001235 +            ZR     B2,PAR.SPS1 IF PROCESSING ASF                           PAR      1955
          1234  6222775133 -                      SB2    X2-A=INF                                                PAR      1956
                          0520001404 +            NZ     B2,PAREX    IF NOT PROCESSING INTRINSIC FUNCTION        PAR      1957
          1235  5120000000 X             PAR.SPS1 SA2    ARGCOMA                                                 PAR      1958
                          43721                   MX7    AC.CNTL-1                                               PAR      1959
                               20722              LX7    AC.CNTL+AC.CNTP                                         PAR      1960
          1236  12727                             BX7    X2+X7       MAKE COUNT -1 FOR NULL ARGUMENT LIST        PAR      1961
                     54720                        SA7    A2                                                      PAR      1962
                          0400000461 +            EQ     PAR.NX                                                  PAR      1963
                                                                                                                 PAR      1964
          1237  6122777774               PAR.SPS2 =B2    B2+O.RP-O.COLON                                         PAR      1965
                          0520001243 +            NZ     B2,PAR.SPS5 IF NOT COLON                                FC5A167     4
          1240  6222775655 -                      SB2    X2-A=SBS                                                PAR      1967
                          0520001404 +            NZ     B2,PAREX    IF NOT SUBSTRING LPAREN                     PAR      1968
          1241  5110000000 X                      SA1    CONONE                                                  PAR      1969
                          10611                   BX6    X1                                                      PAR      1970
                               66661              SB6    B6+B1       INVENT AND STACK DEFAULT FIRST OPERAND      PAR      1971
          1242  57661                             SA6    B6-B1                                                   PAR      1972
                     0400000461 +                 EQ     PAR.NX                                                  PAR      1973
                                                                                                                 FC5A167     5
          1243  6122000043               PAR.SPS5 =B2    B2+O.COLON-O.EOS                                        FC5A167     6
                          0520001404 +            NZ     B2,PAREX    IF NOT EOS                                  FC5A167     7
          1244  67441                             =B4    B4-1        **KLUDGE** TO PREVENT MODE OUT ON  ( EOS    FC5A167     8
                     0400001404 +                 EQ     PAREX                                                   FC5A167     9
                                                                                                                 FC51075    38
          1245                     2     SV67     BSS    2                                                       FC51075    39
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    49
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.CM
  
                                        **        PROCESS COMMA OPERATOR.                                        PAR      1975
                                        *                                                                        PAR      1976
                                        *         WHEN A COLON IS LEGAL, IT IS PARSED THE SAME AS A COMMA.       PAR      1977
                                        ** FV     IT WOULD BE NICE TO TELL HERE A BIT ABOUT (OSTACK) FLUSHING.   PAR      1978
                                        *         MOTIVATION FOR THE FOLLOWING CODE IS NOT EXACTLY STRAIGHT-     PAR      1979
                                        *         FORWARD.                                                       PAR      1980
                                                                                                                 PAR      1981
                                                                                                                 PAR      1982
          1247                           PAR.CM   BSS    0                                                       PAR      1983
          1247  5140000000 X                      SA4    ARGMODE                                                 FC5A414     5
                          0305001267 +            ZR     X5,PAR.CM9  IF *,* FOLLOWED BYE *EOS*                   FC50985     8
                                   0              ERRNZ  O.EOS                                                   PAR      1987
                                                                                                                 PAR      1988
                                        *         POP HOLDING STACK FOR ARGUMENT.                                PAR      1989
                                        *         JOINED HERE BY COLON PARSING.                                  PAR      1990
                                                                                                                 PAR      1991
          1250  20363                    PAR.CM5  LX3    -SP.STPRP                                               FC50104    85
                     43463                        MX4    -SP.STPRL                                               FC50104    86
                          15334                   BX3    -X4*X3      EXTRACT (X3) = LOP STACK PRIORITY           PAR      1994
          1251  6170000014                        SB7    PR.SLP+1                                                PAR      1995
                          67707                   SB7    -B7                                                     PAR      1996
                               63737              SB7    X3+B7                                                   PAR      1997
          1252  0770001256 +                      MI     B7,PAR.CM7  IF NOT ARITHMETIC OPERATOR                  PAR      1998
                          7160000042              =X6    O.COMMA                                                 PAR      1999
          1253  56350                             SA3    B5          (X3) = POPP-ED OPERATOR                     PAR      2000
                                                  LX6    SP.TBPRP                                                FC50104    87
                     67551                        =B5    B5-1                                                    PAR      2002
                          22106                   LX1    X6                                                      PAR      2003
          1254  5160000007 +                      SA6    POPDPC      INDICATE *,* CAUSING POP                    PAR      2004
                          0100001510 +            RJ     POP         POP OPERATOR                                PAR      2005
          1255  56350                             SA3    B5                                                      PAR      2006
                     0400001250 +                 EQ     PAR.CM5     LOOP                                        PAR      2007
                                                                                                                 PAR      2008
                                        *         SET COMMA INTO OPERATOR STACK AND POP ARGUMENT.                PAR      2009
                                                                                                                 PAR      2010
          1256  56140                    PAR.CM7  SA1    B4                                                      PAR      2011
                                                  LX1    -TB.TOTP                                                PAR      2012
                     5221000226 +                 SA2    F.PRIOR-O.SEP+X1                                        PAR      2013
                                   0              ERRNZ  18-TB.TOTL                                              PAR      2014
                               43063              MX0    -SP.TBPRL                                               FC50104    88
                                         .T       IFEQ   TEST,ON     ASSERT:  TOKEN IN [COMMA, COLON]            PAR      2016
                                         A        BITMIC (O.COMMA,O.COLON)                                       PAR      2017
                                                  SB7    X1                                                      PAR      2018
                                                  SA3    ="A"                                                    PAR      2019
                                                  LX6    X3,B7                                                   PAR      2020
                                                  PL     X6,"BLOWUP"                                             PAR      2021
                                         .T       ENDIF                                                          PAR      2022
                                                  LX0    SP.TBPRP                                                FC50104    89
                                                  LX1    SP.TBPRP                                                FC50104    90
          1257  11302                             BX3    X0*X2       FORM COP INSTAK SETOP WORD                  PAR      2025
                     36631                        IX6    X3+X1                                                   PAR      2026
                          56651                   =A6    B5+1        *,* OPERATOR TO OP-STACK                    PAR      2027
                                                                                                                 PAR      2028
                                        *         POP COMMA OPERATOR.  ADD IMPLIED COMMA TO OPERATOR STACK       PAR      2029
                                        *         IF NEXT IS *EOS*.                                              PAR      2030
                                                                                                                 PAR      2031
                               10366              BX3    X6                                                      PAR      2032
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    50
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.CM
  
          1260  56150                             SA1    B5                                                      PAR      2033
                     0100001510 +                 RJ     POP         POP COMMA OPERATOR                          PAR      2034
          1261  5130000000 X                      SA3    ARGMODE                                                 PAR      2035
                                                  LX3    -AM.PADP                                                PAR      2036
                                   0              ERRNZ  18-AM.PADL                                              FC50985     9
                          6273774333 -            SB7    X3-A=ARRAY                                              FC50985    10
          1262  0470001264 +                      ZR     B7,PAR.CM8  IF SUBSCRIPT DONT INHIBIT SQUEEZE           FC50985    11
                          5110000000 X            SA1    T=PAR                                                   FC50985    12
          1263  10611                             BX6    X1                                                      FC50985    13
                     5160000004 +                 SA6    CURST       RESET SQUEEZE LIMIT                         FC50985    14
                                                                                                                 FC50985    15
          1264  6273776267 -             PAR.CM8  SB7    X3-A=LIST                                               FC50985    16
                          0470001457 +            ZR     B7,PAREXIT  IF IN I/O LIST                              PAR      2039
          1265  6273776160 -                      SB7    X3-A=DVL                                                FC50147     7
                          0470001457 +            ZR     B7,PAREXIT  IF IN DATA VARIABLE LIST                    FC50147     8
          1266  66441                             =B4    B4+1        NEXT                                        PAR      2040
                     0400000461 +                 EQ     PAR.NX                                                  PAR      2041
                                                                                                                 PAR      2042
                                        *         HERE IF COMMA FOLLOWED BY *EOS*.  LEGAL ONLY IN I/O LIST.      PAR      2043
                                                                                                                 PAR      2044
          1267  6224776267 -             PAR.CM9  SB2    X4-A=LIST                                               FC50985    17
                          0520001404 +            NZ     B2,PAREX    IF NOT I/O LIST PROCESSING                  PAR      2046
          1270  66441                             =B4    B4+1                                                    PAR      2047
                     0400000461 +                 EQ     PAR.NX      CONTINUE TO NEXT                            PAR      2048
  
  
  
  
                                        **        PAR.COL - PARSE COLON.                                         PAR      2050
                                        *                                                                        PAR      2051
                                        *         VERIFY THAT COLON IS LEGAL IN THIS (ARGMODE).                  PAR      2052
                                        *         THEN HANDLE AS IF IT WERE A COMMA.  THIS MEANS THAT ALL (C=)   PAR      2053
                                        *         PROCESSORS FOR CONTEXTS WHERE COLON IS LEGAL MUST BE ABLE TO   PAR      2054
                                        *         PROPERLY DISCRIMINATE BETWEEN COMMA AND COLON.                 PAR      2055
                                        *                                                                        PAR      2056
                                        *         ALSO PERMITS IRREGULAR SYNTAX FOR OMITTED SUBSTRING-LAST.      PAR      2057
                                                                                                                 PAR      2058
                                                                                                                 PAR      2059
          1271                           PAR.COL  BSS                ENTRY...                                    PAR      2060
          1271  5140000000 X                      SA4    ARGMODE                                                 PAR      2061
                                                  LX4    -AM.PADP                                                PAR      2062
                          63740                   SB7    X4          (B7) = PAREN POPPER ADDRESS                 PAR      2063
                                   0              ERRNZ  18-AM.PADL                                              PAR      2064
                               20423              LX4    AM.PADP-1-AM.COLP                                       PAR      2065
          1272  0324001404 +                      PL     X4,PAR.ERR  IF COLON NOT PERMITTED                      PAR      2066
                          6225777737              SB2    X5-O.RP                                                 PAR      2067
          1273  0520001250 +                      NZ     B2,PAR.CM5  IF NOT FOLLOWED BY RPAREN                   PAR      2068
                          6120002122 +            SB2    A=SBS                                                   PAR      2069
          1274  0427001250 +                      EQ     B2,B7,PAR.CM5     IF A SUBSTRING COLON                  PAR      2070
                          6120000065 +            SB2    A=PIX                                                   PAR      2071
          1275  0427001250 +                      EQ     B2,B7,PAR.CM5     IF PIX CALL -- DIAGNOSIS BY CALLER    PAR      2072
                          0400001404 +            EQ     PAREX                                                   PAR      2073
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    51
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.LP
  
                                        **        HERE IF UNQUALIFIED LEFT PARENTHESIS.                          PAR      2075
                                        *         IF THIS IS AN ARRAY SUBSTRING LPAREN, THEN (TB.SBS) WILL       PAR      2076
                                        *         HAVE BEEN SET WHEN THE SUBSCRIPT RPAREN WAS FOUND.  OTHERWISE, PAR      2077
                                        *         IF IT IS NOT PART OF A COMPLEX CONSTANT, THEN IT ENCLOSES      PAR      2078
                                        *         SOME EXPRESSION.                                               PAR      2079
                                                                                                                 PAR      2080
                                                                                                                 PAR      2081
          1276                           PAR.LP   BSS    0                                                       PAR      2082
          1276  56440                             SA4    B4                                                      PAR      2083
                     20402                        HX4    TB.SBS                                                  PAR      2084
                          0324001300 +            PL     X4,PAR.LP2  IF NOT A SUBSTRING LEFT PAREN               PAR      2085
          1277  57161                             SA1    B6-B1                                                   PAR      2086
                     10611                        BX6    X1          OBJECT OF SUBSTRING IS STACK TOP            PAR      2087
                          0400001140 +            EQ     PAR.SBS                                                 PAR      2088
                                                                                                                 PAR      2089
          1300  20403                    PAR.LP2  LX4    -TB.SBSP                                                PAR      2090
                     0100000000 X                 RJ     CFC         CHECK FOR COMPLEX CONSTANT                  PAR      2091
          1301  64440                             SB4    A4                                                      PAR      2092
                     0300001304 +                 ZR     X0,PAR.LP5  IF CPLX CONST                               PAR      2093
                               13777              =X7                                                            PAR      2094
          1302  5110000375 +                      SA1    LPARM                                                   PAR      2095
                          6130000037              SB3    O.LP                                                    PAR      2096
          1303  10611                             BX6    X1                                                      PAR      2097
                     43400                        MX4    0                                                       PAR      2098
                          0400001206 +            EQ     PAR.SPS                                                 PAR      2099
                                                                                                                 PAR      2100
          1304  10611                    PAR.LP5  BX6    X1          REAL PART, IMAGINARY IN X2                  PAR      2101
                     7110000005                   =X1    M.CPLX                                                  PAR      2102
                               67441              =B4    B4-1                                                    PAR      2103
          1305  0400000504 +                      EQ     TNK.DBL                                                 PAR      2104
  
  
  
  
                                        **        HERE IF DUMMY LEFT PAREN AT BEGINNING OF *TB* FOUND.           PAR      2106
                                        *                                                                        PAR      2107
                                        *         PROCESS BY SETTING PAREN STACK TO PROPER MODE FOR OPERATING    PAR      2108
                                        *         WITHIN CURRENT STATEMENT, THEN ADD SPECIAL PAREN TO OPERATOR   PAR      2109
                                        *         STACK.                                                         PAR      2110
                                                                                                                 PAR      2111
          1306                           PAR.DLP  BSS    0                                                       PAR      2112
          1306  5130000000 X                      SA3    ARGMODE                                                 PAR      2113
                          5120000000 X            SA2    ARGCOMA                                                 PAR      2114
          1307  63310                             SB3    X1          OPERATOR                                    PAR      2115
                     10633                        BX6    X3                                                      PAR      2116
                          22702                   LX7    X2                                                      PAR      2117
          1310  0400001206 +                      EQ     PAR.SPS     SET PAREN STACK                             PAR      2118
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    52
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.RP
  
                                        **        HERE FOR ALL RIGHT PARENS.                                     PAR      2120
                                        *                                                                        PAR      2121
                                        ** FV            ----- THIS NEEDS WORK ----                              PAR      2122
                                        *         THE CONO TABLE ENTRY FOR RIGHT PAREN ALLOWS TWO FOLLOWERS      PAR      2123
                                        *         WHICH ARE NOT PERMITTED IN NORMAL CONTEXTS --                  PAR      2124
                                        *                O.LP     O.VAR                                          PAR      2125
                                        *         ARE LEGAL RIGHT PAREN FOLLOWER TOKENS ONLY WHEN --             PAR      2126
                                        *                CHARARY (SUBX) (F : L)                                  PAR      2127
                                        *                IOVERB (IOCTL) VAR                                      PAR      2128
                                        *                IOVERB (IOCTL) (IOLOOP...)                              PAR      2129
                                        *                IF (EXPR) VAR ...                                       PAR      2130
                                        *         THE CHARACTER ARRAY SUBSTRING CONTEXT IS DISCOVERED BY         PAR      2131
                                        *         THE CODE BELOW.  THE OTHER STRANGE CONTEXTS ARE DENOTED        PAR      2132
                                        *         BY THE (AM.RP) BIT IN THE CURRENT (ARGMODE).  WHEN NONE        PAR      2133
                                        *         OF THESE "SPECIAL" RULES APPLY, WE MUST TREAT VAR AND LP       PAR      2134
                                        *         AS CONO VIOLATIONS.                                            PAR      2135
                                        *                                                                        PAR      2136
                                        *         ENTRY  (A5, X5) = NEXT TOKEN.                                  PAR      2137
                                                                                                                 PAR      2138
                                                                                                                 PAR      2139
          1311                           PAR.RP   BSS                                                            PAR      2140
          1311  43701                             MX7    1                                                       PAR      2141
                     6170000037                   SB7    O.LP                                                    PAR      2142
                               63250              SB2    X5          (B2) = NEXT TOKEN                           PAR      2143
                                   0              ERRNZ  TB.TOTP                                                 PAR      2144
                                                  HX5    TB.COL                                                  PAR      2145
          1312  5140000000 X                      SA4    ARGMODE                                                 PAR      2146
                          0572001320 +            NE     B7,B2,PAR.RP1     IF NOT FOLLOWED BY LEFT PAREN         PAR      2147
          1313  6120000000 X                      SB2    A=DOCS                                                  PAR      2148
                          63740                   SB7    X4                                                      PAR      2149
                                   0              ERRNZ  18-AM.PADL                                              PAR      2150
                                   0              ERRNZ  AM.PADP                                                 PAR      2151
          1314  0427000000 X                      EQ     B2,B7,IDCEX IF I/O LOOP SCAN -- STOP COLLAPSE           PAR      2152
                          0325001322 +            PL     X5,PAR.RP2  IF NOT A COLON LP                           PAR      2153
          1315  6274774333 -                      SB7    X4-A=ARRAY                                              PAR      2154
                          0570001322 +            NZ     B7,PAR.RP2  IF THIS NOT END OF ARRAY SUBSCRIPT          PAR      2155
          1316  20502                             LX5    TB.COLP-TB.SBSP                                         PAR      2156
                     12675                        BX6    X7+X5       MARK THE LP AS ARRAY SUBSTRING              PAR      2157
                          20672                   LX6    TB.SBSP+1                                               PAR      2158
                               54650              SA6    A5                                                      PAR      2159
          1317  0400001367 +                      EQ     PAR.STD                                                 PAR      2160
                                                                                                                 PAR      2161
          1320  6170000011               PAR.RP1  SB7    O.VAR                                                   PAR      2162
                          0572001367 +            NE     B7,B2,PAR.STD     IF NOT FOLLOWED BY VAR                PAR      2163
          1321  6224776170 -                      SB2    X4-A=IF                                                 PAR      2164
                          0420001367 +            ZR     B2,PAR.STD  IF PARSING *IF* STATEMENT                   PAR      2165
                                                                                                                 PAR      2166
          1322  20425                    PAR.RP2  HX4    AM.RP                                                   PAR      2167
                     0334001367 +                 MI     X4,PAR.STD  IF SPECIAL SYNTAX ALLOWED                   PAR      2168
                               54550              SA5    A5          RELOAD TOKEN FOR ERROR MESSAGE              PAR      2169
          1323  0400001411 +                      EQ     PAREX3                                                  PAR      2170
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    53
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.= 
  
                                        **        EQUAL SIGN - ADVANCE THRU CHAIN.                               PAR      2172
                                                                                                                 PAR      2173
                                                                                                                 PAR      2174
          1324                           PAR.EQL  BSS    0                                                       PAR      2175
          1324  5140000000 X                      SA4    ARGMODE                                                 PAR      2176
                          43001                   MX0    1                                                       PAR      2177
                               20050              LX0    AM.EQP+1                                                PAR      2178
          1325  11004                             BX0    X0*X4                                                   PAR      2179
                     0310001330 +                 NZ     X0,PAR.EQL2 IF *=* ALLOWED                              PAR      2180
          1326  6170000000 X                      FATAL  E.AT06      ILLEGAL USE OF ASSIGNMENT OPERATOR          PAR      2181
          1327  66441                             =B4    B4+1        BYPASS BAD *=*                              PAR      2182
                     0400000461 +                 EQ     PAR.NX                                                  PAR      2183
                                                                                                                 PAR      2184
          1330  5140000000 X             PAR.EQL2 SA4    ZLE                                                     PAR      2185
                          0304001367 +            ZR     X4,PAR.STD  IF ZERO LEVEL EQUAL SIGN                    PAR      2186
          1331  66441                             =B4    B4+1        IGNORE ( SEE *EOS* PROCESS.)                PAR      2187
                     0400000461 +                 EQ     PAR.NX      CONTINUE ...  (IGNORING *=*)                PAR      2188
  
  
  
  
                                        **        DIVIDE - CHECK FOR POSSIBLE INTEGER DIVIDE.                    FC5A150   433
                                                                                                                 FC5A150   434
          1332  57461                    PAR.DIV  =A4    B6-1        LAST OPERAND                                FC5A150   435
                     43071                        MX0    -TP.MODEL                                               FC5A150   436
                                                  LX4    -TP.MODEP                                               FC5A150   437
                          5150001365 +            SA5    MULTOG                                                  FC5A150   438
          1333  76610                             =X6    1                                                       FC5A150   439
                     15740                        BX7    -X0*X4                                                  FC5A150   440
                          20611                   LX6    SP.STPRP                                                FC50104    91
          1334  7247777774                        SX4    X7-M.INT-1                                              FC5A150   442
                          13656                   BX6    X5-X6       TOGGLE MULTOG (FOR A/B*C*D === A/B *(C*D) ) FC5A150   443
                               54650              SA6    A5                                                      FC5A150   444
          1335  0324001367 +                      PL     X4,PAR.STD  IF NOT POSSIBLE INTEGER DIVIDE              FC5A150   445
                          5120000275 +            SA2    IDIV        THIS POPS ALL MULTS                         FC5A150   446
          1336  0400001367 +                      EQ     PAR.STD                                                 FC5A150   447
  
  
  
  
                                        **        PLUS - CHECK WHETHER UNARY OR BINARY.                          PAR      2190
                                                                                                                 PAR      2191
                                                                                                                 PAR      2192
          1337                           PAR.PL   BSS    0                                                       PAR      2193
          1337  57441                             =A4    B4-1        LOAD LAST OPERATOR                          PAR      2194
                     5150004555 +                 SA5    ="PREUNAR"                                              PAR      2195
                               63740              SB7    X4                                                      PAR      2196
          1340  22075                             LX0    B7,X5                                                   PAR      2197
                     0320001367 +                 PL     X0,PAR.STD  IF NOT UNARY PLUS                           PAR      2198
          1341  5140000000 X                      SA4    CONZER                                                  PAR      2199
                          10744                   BX7    X4                                                      PAR      2200
                               56760              SA7    B6                                                      PAR      2201
          1342  66661                             =B6    B6+1                                                    PAR      2202
                     0400001367 +                 EQ     PAR.STD                                                 PAR      2203
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    54
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.MI
  
                                        **        MINUS - CHECK WHETHER UNARY OR BINARY.                         PAR      2205
                                                                                                                 PAR      2206
                                                                                                                 PAR      2207
          1343                           PAR.MIN  BSS    0                                                       PAR      2208
          1343  57441                             =A4    B4-1        LOAD LAST OPERATOR                          PAR      2209
                     5150004555 +                 SA5    ="PREUNAR"                                              PAR      2210
                               63740              SB7    X4                                                      PAR      2211
          1344  22075                             LX0    B7,X5                                                   PAR      2212
                     0320001367 +                 PL     X0,PAR.STD  IF NOT UNARY MINUS                          PAR      2213
          1345  5120000246 +                      SA2    F.PRIOR-O.SEP+O.UMIN                                    PAR      2214
                          7110000020              =X1    O.UMIN                                                  PAR      2215
          1346  0400001367 +                      EQ     PAR.STD     PROCESS AS UNARY MINUS                      PAR      2216
  
  
  
  
                                        **        STAR - MAY BE STATEMENT LABEL PARAMETER INDICATOR.             PAR      2218
                                                                                                                 PAR      2219
                                                                                                                 PAR      2220
                                         PRELABL  BITMIC (O.LP,O.SLP,O.COMMA)                                    PAR      2221
                                         POSTLAB  BITMIC (O.COMMA,O.RP)                                          PAR      2222
                                                                                                                 PAR      2223
          1347                           PAR.MULT BSS    0                                                       PAR      2224
          1347  57441                             SA4    B4-B1                                                   PAR      2225
                     5150004556 +                 SA5    ="PRELABL"                                              PAR      2226
                               63740              SB7    X4                                                      PAR      2227
                                   0              ERRNZ  18-TB.TOTL                                              PAR      2228
          1350  22775                             LX7    X5,B7                                                   PAR      2229
                     0327001362 +                 PL     X7,PAR.MU10 IF NOT UNARY STAR                           FC5A150   448
          1351  5140000000 X                      SA4    ARGMODE                                                 PAR      2231
                                                  LX4    -AM.PADP                                                PAR      2232
                          6224775167 -            SB2    X4-A=CALL                                               PAR      2233
          1352  0520001404 +                      NZ     B2,PAREX    IF NOT IN SUBROUTINE ARGLIST                PAR      2234
                          56441                   SA4    B4+B1                                                   PAR      2235
                               54241              SA2    A4+B1                                                   PAR      2236
          1353  6274777772                        SB7    X4-O.CONS                                               PAR      2237
                          63220                   SB2    X2                                                      PAR      2238
          1354  0570001404 +                      NZ     B7,PAREX    IF STAR NOT FOLLOWED BY DIGIT(S)            PAR      2239
                          5150004557 +            SA5    ="POSTLAB"                                              PAR      2240
          1355  22725                             LX7    X5,B2                                                   PAR      2241
                     0327001404 +                 PL     X7,PAREX    IF LABEL NOT STANDING ALONE                 PAR      2242
                               64420              SB4    A2          ADVANCE TOKEN POINTER PAST LABEL            PAR      2243
          1356  10644                             BX6    X4                                                      PAR      2244
                     5120004560 +                 CLAS=  X2,WB,(ALRN,SREF)                                       FC51356    20
          1357  0100000000 X                      CALL   ISL         IDENTIFY STATEMENT LABEL                    PAR      2246
          1360  0336001420 +                      MI     X6,PAREX11  IF ERROR IN LABEL                           PAR      2247
                          43471                   MX4    -TP.MODEL   = -7                                        PAR      2248
                                   0              ERRNZ  7-N.TYPE                                                PAR      2249
                               16664              BX6    -X4+X6      **** KLUDGE ****                            PAR      2250
          1361  56660                             SA6    B6          STACK THE LABEL OPERAND                     PAR      2251
                     66661                        SB6    B6+B1                                                   PAR      2252
                          0400000461 +            EQ     PAR.NX                                                  PAR      2253
                                                                                                                 FC5A150   449
          1362  5140001365 +             PAR.MU10 SA4    MULTOG                                                  FC5A150   450
                          37224                   IX2    X2-X4                                                   FC5A150   451
                               76510              =X5    1                                                       FC5A150   452
          1363  20511                             LX5    SP.STPRP                                                FC50104    92
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    55
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.MULT
  
                     13745                        BX7    X4-X5                                                   FC5A150   454
                          54740                   SA7    A4                                                      FC5A150   455
          1364  0400001367 +                      EQ     PAR.STD                                                 FC5A150   456
                                                                                                                 FC5A150   457
          1365                     1     MULTOG   BSSZ   1                                                       FC5A150   458
  
  
  
  
                                        **        XOR - DIAGNOSE NON-ANSI                                        FC5A471     9
                                                                                                                 FC5A471    10
          1366  6170000000 X             PAR.XOR  ANSI   E.AT21                                                  FC5A471    11
                                        *         EQ     PAR.STD     FALL THROUGH FOR NOW                        FC5A471    12
                                                                                                                 FC5A471    13
                                                                                                                 FC5A471    14
                                        **        PAR.STD - MAKE STACK OR POP DECISION.                          PAR      2255
                                        *                                                                        PAR      2256
                                        *         COMPARE CURRENT OPERATOR (COP) TO LAST OPERATOR (LOP) --       PAR      2257
                                        *         IF COP .GE. LOP  --  ADD COP TO OPERATOR STACK.                PAR      2258
                                        *         IF COP .LT. LOP  --  POP LOP, AND LOOP TO PERFORM SAME CHECK   PAR      2259
                                        *                           ON NEW STACK TOP, AGAIN.                     PAR      2260
                                        *                                                                        PAR      2261
                                        *         ENTRY  (X1) = COP, TOKEN TYPE FOR CURRENT OPERATOR.            PAR      2262
                                        *                (X2) = SETOP WORD FOR COP.                              PAR      2263
                                        *                (X3) = LOP, LAST OPERATOR (INSTACK *SETOP* WORD).       PAR      2264
                                        *                                                                        PAR      2265
                                        *         EXIT   PAR.ADOP -- IF COP BECOMES .GE. LOP.                    PAR      2266
                                        *                PAR.NX   -- WHEN POP REPLIES ENUF DONE.                 PAR      2267
                                        *                                                                        PAR      2268
                                        *         CALLS  POP.                                                    PAR      2269
                                                                                                                 PAR      2270
                                                                                                                 PAR      2271
          1367                           PAR.STD  BSS    0                                                       PAR      2272
          1367  43552                             MX5    CH.DPCL                                                 FC5A204     5
                     5241000000 X                 SA4    X1+CHARMAP                                              FC5A204     6
                                                  HX4    CH.DPC                                                  FC5A204     7
                               11654              BX6    X5*X4       X6 = DPC OF COP                             FC5A204     8
          1370  5160000000 X                      SA6    FILL.2      SET FILLER FOR E.AT14                       FC5A204     9
                                                                                                                 FC5A204    10
          1371  20363                    PAR.CAT  LX3    -SP.STPRP                                               FC50104    93
                     66441                        SB4    B4+B1                                                   PAR      2274
                          43463                   MX4    -SP.STPRL                                               FC50104    94
                                                  LX2    -SP.TBPRP                                               FC50104    95
                               15534              BX5    -X4*X3                                                  PAR      2277
          1372  43463                             MX4    -SP.TBPRL                                               FC50104    96
                     15024                        BX0    -X4*X2      EXTRACT (X0) = TOKEN BUFFER PRIORITY        PAR      2279
                          37005                   IX0    X0-X5                                                   PAR      2280
                               20311              LX3    SP.STPRP    RESTORE LAST OPERATOR                       FC50104    97
                                                  LX2    SP.TBPRP    RESTORE CURRENT OPERATOR                    FC50104    98
          1373  0320001400 +                      PL     X0,PAR.ADOP IF COP .GE. LOP, ADD TO OPSTACK             PAR      2283
                                                                                                                 PAR      2284
                                        *         SET UP FOR *POP* CALL.                                         PAR      2285
                                        *                (X1) = COP.                                             PAR      2286
                                        *                (X3) = OPSTACK ENTRY FOR OPERATOR TO BE POPPED.         PAR      2287
                                                                                                                 PAR      2288
                          10611                   BX6    X1                                                      PAR      2289
                               67551              =B5    B5-1                                                    PAR      2290
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    56
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.STD 
  
          1374  22702                             LX7    X2                                                      PAR      2291
                     5160000007 +                 SA6    POPDPC      SAVE *DPC* FOR OPERATOR                     PAR      2292
                               67441              =B4    B4-1                                                    PAR      2293
          1375  54761                             =A7    A6-POPDPC+POPPER  SAVE OPERATOR STACK WORD (SETOP WORD) PAR      2294
                     0100001510 +                 RJ     POP         POP OPERATOR                                PAR      2295
                                                                                                                 PAR      2296
                                        *         RETURN FROM *POP*.                                             PAR      2297
                                        *         IF *POPPER* HAS BEEN SET NEGATIVE, OPERATOR HAS BEEN           PAR      2298
                                        *         NULLED  (I.E., WHEN RIGHT PAREN POPPING LEFT PAREN).           PAR      2299
                                                                                                                 PAR      2300
          1376  5120000010 +                      SA2    POPPER                                                  PAR      2301
                          56350                   SA3    B5          RELOAD LAST OPERATOR                        PAR      2302
                               55121              =A1    A2-POPPER+POPDPC                                        PAR      2303
          1377  0322001367 +                      PL     X2,PAR.STD  CONTINUE CHECK FOR POPPING                  PAR      2304
                          0400000461 +            EQ     PAR.NX      NEXT                                        PAR      2305
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    57
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.ADOP
  
                                        **        ADD OPERATOR TO OP-STACK.                                      PAR      2307
                                        *                                                                        PAR      2308
                                        *         ENTRY  (X1) = DPC FOR OPERATOR.                                PAR      2309
                                        *                (X2) = CURRENT OPERATOR STACK ENTRY.                    PAR      2310
                                        *                                                                        PAR      2311
                                        *         EXIT   (B5) = UPDATED TO POINT TO CURRENT OPERAND.             PAR      2312
                                        *                (X6) = OPERAND ADDED TO ESTACK.                         PAR      2313
                                                                                                                 PAR      2314
                                                                                                                 PAR      2315
          1400  43063                    PAR.ADOP MX0    -SP.TBPRL                                               FC50104    99
                     66551                        SB5    B5+B1       UPDATE POINTER                              PAR      2317
                          6120777767 X            SB2    ESTACK-8                                                PAR      2318
          1401  6170000000 X                      SB7    E.LP3       ** EXPRESSION TOO COMPLICATED               PAR      2319
                          0652001563 +            GE     B5,B2,POP.RP5     IF OSTACK TOO FULL                    PAR      2320
                                                  LX0    SP.TBPRP                                                FC50104   100
          1402  11302                             BX3    X0*X2                                                   PAR      2322
                     36631                        IX6    X3+X1       PRIORITY + ORIGINAL ENTRY                   PAR      2323
                          56650                   SA6    B5          ADD TO STACK                                PAR      2324
          1403  0400000461 +                      EQ     PAR.NX                                                  PAR      2325
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    58
        PARSE/ANALYZE NEXT SEPARATOR.                                 ERR 
  
                                        **        HERE IF ILLEGAL COMBINATION OF CURRENT/NEXT TOKENS.            PAR      2327
                                        *                                                                        PAR      2328
                                        *         ENTRY  (X1) = TOKEN VALUE FOR OPERATOR.                        PAR      2329
                                        *                (X5) = NEXT TOKEN (THE ONE FOLLOWING (X1)).             PAR      2330
                                                                                                                 PAR      2331
                                                                                                                 PAR      2332
          1404                           PAR.ERR  BSS    0                                                       PAR      2333
                                                                                                                 PAR      2334
          1404  5140000000 X             PAREX    SA4    ARGMODE                                                 PAR      2335
                          10044                   BX0    X4                                                      PAR      2336
                               20025              SBIT   X0,AM.RPP                                               PAR      2337
          1405  0320001410 +                      PL     X0,PAREX2   IF NO SPECIAL SYNTAX ALLOWED                PAR      2338
                                                                                                                 FC50792     6
          1406  6221777737               PAREX1   SB2    X1-O.RP                                                 PAR      2339
                          0520001411 +            NZ     B2,PAREX3   IF NOT LOOKING AT *)*                       PAR      2340
          1407  0277000000                        JP     B7          CONTINUE                                    PAR      2341
                                                                                                                 PAR      2342
          1410  6224776170 -             PAREX2   SB2    X4-A=IF                                                 PAR      2343
                          0420001406 +            ZR     B2,PAREX1   IF IN *IF* PROCESSING                       PAR      2344
                                                                                                                 PAR      2345
          1411  43052                    PAREX3   MX0    CH.DPCL                                                 PAR      2346
                     5221000000 X                 SA2    X1+CHARMAP                                              PAR      2347
          1412  0312001413 +                      NZ     X2,PAREX5   IF NOT *SYMBOL*                             PAR      2348
                          10211                   BX2    X1          USE (TB.TOC)                                PAR      2349
                                                                                                                 FC50792     7
          1413  11602                    PAREX5   BX6    X0*X2                                                   PAR      2350
                     5225000000 X                 SA2    X5+CHARMAP                                              PAR      2351
          1414  5160000000 X                      SA6    FILL.       SET FILLER                                  PAR      2352
                          0312001416 +            NZ     X2,PAREX10  IF NOT *SYMBOL*                             PAR      2353
          1415  10255                             BX2    X5                                                      PAR      2354
                                                                                                                 FC50792     8
          1416  11602                    PAREX10  BX6    X0*X2                                                   PAR      2355
                     6170000000 X                 SB7    E.AT02                                                  PAR      2356
                               54661              SA6    A6+B1       SET FILLER                                  PAR      2357
          1417  0100000000 X                      FATAL  B7          OUTPUT ERROR                                PAR      2358
                                                                                                                 FC50792     9
          1420  7245777735               PAREX11  =X4    X5-O.COMMA                                              PAR      2359
                          0304001422 +            ZR     X4,PAREX13  IF COMMA                                    FC50885     5
          1421  7215777737                        =X1    X5-O.RP                                                 FC50885     6
                          0311001423 +            NZ     X1,PAREX15  IF NOT RP                                   FC50885     7
                                                                                                                 FC50885     8
          1422  6144000001               PAREX13  SB4    B4+1        MOVE PAST IT                                FC50885     9
                                                                                                                 PAR      2366
          1423  56540                    PAREX15  SA5    B4                                                      FC5A442    11
                     0305001424 +                 ZR     X5,PAREX16  IF EOS                                      FC5A442    12
                                   0              ERRNZ  O.EOS                                                   FC5A442    13
                               66441              =B4    B4+1                                                    FC5A442    14
                                                                                                                 FC5A442    15
          1424  13444                    PAREX16  BX4    0                                                       FC5A442    16
                     43500                        MX5    0                                                       PAR      2369
                          6130400317 +            EMIT   ERROP,*                                                 PAR      2370
          1426  5150000000 X                      SA5    CDIFLG                                                  FC5A442    17
                          0305001433 +            ZR     X5,PAREX17  IF NO DO INDICATION ERROR                   FC5A442    18
          1427  5110000000 X                      SA1    T.BLST                                                  FC5A442    19
                          5120000000 X            SA2    T=BLST                                                  FC5A442    20
          1430  6222777776                        =B2    X2-1                                                    FC5A442    21
                          53112                   SA1    X1+B2       X1 = LC. WORD                               FC5A442    22
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    59
        PARSE/ANALYZE NEXT SEPARATOR.                                 ERR 
  
                                                  LX1    -LC.CNTP                                                FC5A442    23
          1431  6221777771                        SB2    X1-1-DO.W                                               FC5A442    24
                                   0              ERRNZ  LC.CNTL-18                                              FC5A442    25
                          55112                   SA1    A1-B2       X1 = DO.W                                   FC5A442    26
                                                  LX1    -DO.IODP                                                FC5A442    27
                               63210              SB2    X1          IMPLIED DO INDICATION                       FC5A442    28
                                   0              ERRNZ  18-DO.IODL                                              FC5A442    29
          1432  0520001475 +                      NZ     B2,PAR.STOP IF ERROR IN IMPLIED DO                      FC5A442    30
                                                                                                                 FC5A442    31
          1433  5110000000 X             PAREX17  SA1    ARGMODE                                                 FC5A442    32
                          6271775167 -            SB7    X1-A=CALL                                               FC50792    11
                                   0              ERRNZ  18-AM.PADL                                              FC50792    12
          1434  0470001475 +                      ZR     B7,PAR.STOP EXIT IF PROCESSING CALL ARGUMENT            FC50792    13
                          0400000461 +            EQ     PAR.NX      CONTINUE..  (IGNORING NASTY CHARACTER)      PAR      2371
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    60
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.EOS 
  
                                        **        END OF STATEMENT (*EOS*) TOKEN ENCOUNTERED.                    PAR      2373
                                        *                                                                        PAR      2374
                                        *         PROCESSING WHEN *EOS* FOUND IS DEPENDENT UPON THE VALUE OF     PAR      2375
                                        *         *ZLE*.  UPON ENTRY TO *PAR* THE CONDITION OF *ZLE* WAS SET TO  PAR      2376
                                        *         INDICATE WHETHER AN *=* WAS FOUND DURING THE TABBING OF THE    PAR      2377
                                        *         CURRENT STATEMENT BEING PROCESSED.  *ZLE* UPON ENTRY TO THIS   PAR      2378
                                        *         SECTION POINTS TO THE LAST *=* FOUND DURING TABS PROCESS,      PAR      2379
                                        *         WHERE ALL PREVIOUS *=* CONTAIN A LINK TO PREVIOUS *=* .        PAR      2380
                                        *         THUS A SIMPLE CHECK IF DONE ON *ZLE* TO DETERMINE IF WE HAVE   PAR      2381
                                        *         PROCESSED WHAT IS ON THE LEFT HAND SIDE OF THE *=*S, OR        PAR      2382
                                        *         WHETHER THERE WAS ONE FOR THIS STATEMENT.  IN ANY CASE WE WILL PAR      2383
                                        *         LINK BACKWARDS THRU THE TABBED *TB* TILL WE FINALLY COME TO    PAR      2384
                                        *         THE TERMINAL LEFT MEMBER OF THE STATEMENT.                     PAR      2385
                                        *                                                                        PAR      2386
                                        *         GENERAL FLOW.                                                  PAR      2387
                                        *                                                                        PAR      2388
                                        *         A.  FLUSH REMAINDER OF OP-STACK.                               PAR      2389
                                        *         B.  CHECK IF LAST *=* (LEFT MEMBER) HAS BEEN PROCESSED.        PAR      2390
                                        *             1.  IF YES - SET ENDING CONDITIONS AND EXIT.               PAR      2391
                                        *             2.  IF NO  - RESET *TB* POINTER,(B4), AND *ZLE* TO NEW     PAR      2392
                                        *                         CONDITION.                                     PAR      2393
                                        *                                                                        PAR      2394
                                        *         VISUAL EXAMPLE.                                                PAR      2395
                                        *                                                                        PAR      2396
                                        *                0        1         2         3         4                PAR      2397
                                        *                12345678901234567890123456789012345678901               PAR      2398
                                        *                A=B=C=D=E=F=R**2-K+L-ARR(I,J,K+L,4,5,6,7)               PAR      2399
                                        *                           ZLE=12  (ENTRY TO PAR)                       PAR      2400
                                        *         POINTER=        8                                              PAR      2401
                                        *         POINTER=      6                                                PAR      2402
                                        *         POINTER=    4                                                  PAR      2403
                                        *         POINTER=  2                                                    PAR      2404
                                                                                                                 PAR      2405
                                                                                                                 PAR      2406
          1435                           PAR.EOS  BSS    0                                                       PAR      2407
          1435  6130000000 X                      SB3    OSTACK                                                  PAR      2408
                          67353                   SB3    B5-B3                                                   PAR      2409
          1436  0703001460 +                      GT     B3,PAR.EOS6 IF OPERATOR STACK NOT EMPTY                 PAR      2410
                          5110000000 X            SA1    ZLE                                                     PAR      2411
          1437  0301001450 +                      ZR     X1,PAR.EOS3 IF TRUE *EOS*                               PAR      2412
                          53210                   SA2    X1                                                      PAR      2413
                               76600              =X6    O.EOS                                                   PAR      2414
          1440  21222                             AX2    TB.TOCP                                                 PAR      2415
                     54620                        SA6    A2          REPLACE *=* WITH *EOS*                      PAR      2416
                          63420                   SB4    X2          RESET *B4* TO *=*                           PAR      2417
          1441  5110000000 X                      SA1    TB=1ST                                                  PAR      2418
                          66210                   =B2    1                                                       PAR      2419
          1442  0312001443 +                      NZ     X2,PAR.EOS1 IF NOT LAST *=*                             PAR      2420
                          63410                   SB4    X1          RESET TO STARTING POSITION                  PAR      2421
                               66200              =B2    0                                                       PAR      2422
                                                                                                                 FC50478     6
          1443  10622                    PAR.EOS1 BX6    X2                                                      PAR      2423
                     56342                        SA3    B4+B2                                                   PAR      2424
                          5160000000 X            SA6    ZLE         RESET TO NEXT LEVEL                         PAR      2425
          1444  7110000041                        =X1    O.=                                                     PAR      2426
                          7160000023              =X6    CR.STR                                                  PAR      2427
          1445  6273777766                        SB7    X3-O.VAR                                                PAR      2428
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    61
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.EOS 
  
                                   0              ERRNZ  18-TB.TOTL                                              PAR      2429
                          5120000267 +            SA2    F.PRIOR-O.SEP+O.=                                       PAR      2430
          1446  5160000000 X                      SA6    REFVAR      SET UP FOR *STORE*                          PAR      2431
                          0470001400 +            ZR     B7,PAR.ADOP IF LEFT MEMBER IS A SYMBOL                  PAR      2432
          1447  6170000000 X                      FATAL  E.VA11      ILLEGAL LEFT MEMBER                         PAR      2433
                                                                                                                 PAR      2434
                                        *         HERE IF LAST *=* PROCESSED.                                    PAR      2435
                                                                                                                 PAR      2436
          1450  5110000000 X             PAR.EOS3 SA1    ARGMODE                                                 PAR      2437
                          7130000042              =X3    O.COMMA                                                 PAR      2438
          1451  20126                             SBIT   X1,AM.EOSP                                              PAR      2439
                     0321001457 +                 PL     X1,PAREXIT  IF NO SPECIAL EOS PROCESSING                PAR      2440
                               10633              BX6    X3                                                      PAR      2441
          1452  5110000000 X                      SA1    T.PAR                                                   FC50478     7
                          5120000000 X            SA2    T=PAR                                                   FC50478     8
          1453  0302001456 +                      ZR     X2,PAR.EOS4 IF NO PARSE FILE                            FC50478     9
                          6272777774              SB7    X2-Z=TURP                                               FC50478    10
          1454  53217                             SA2    X1+B7       FETCH LAST TURPLE                           FC50478    11
                     43063                        MX0    -TH.OVALL                                               FC50478    12
                                                  LX2    -TH.OVALP                                               FC50478    13
                          15220                   BX2    -X0*X2      EXTRACT LAST OPERATOR                       FC50478    14
          1455  7222777712                        SX2    X2-O.ERR                                                FC50478    15
                          0302001457 +            ZR     X2,PAREXIT  IF LAST WAS ERROR TURPLE                    FC50478    16
                                                                                                                 FC50478    17
          1456  76100                    PAR.EOS4 =X1    O.EOS                                                   FC50478    18
                     56651                        =A6    B5+1                                                    PAR      2443
                                                  LX1    SP.TBPRP                                                FC50104   101
                          0100001510 +            RJ     POP         POP LAST ARGUMENT                           PAR      2445
  
  
  
  
                                        **        PAREXIT - EXIT PARSER.                                         PAR      2447
                                        *                                                                        PAR      2448
                                        *         ENTRY  (B4) _ TOKEN WHICH STOPPED SCAN.  I.E., 1 PAST          PAR      2449
                                        *                       LAST TOKEN TRANSLATED.                           PAR      2450
                                        *                                                                        PAR      2451
                                        *         EXIT   (B4) _ LAST TOKEN TRANSLATED BY PARSER.                 PAR      2452
                                                                                                                 PAR      2453
                                                                                                                 PAR      2454
          1457                           PAREXIT  BSSENT 0           EXIT PARSER THROUGH HERE                    PAR      2455
                                                                                                                 PAR      2456
                                         SNAP=P   IFEQ   TEST,ON     DUMP PARSED FILE                            PAR      2457
                                                  SA1    CO.SNAP                                                 PAR      2458
                                                  LX1    1RP                                                     PAR      2459
                                                  PL     X1,PAR.EOSA IF SNAP NOT REQUESTED                       PAR      2460
                                                  CALL   SN.PAR                                                  PAR      2461
                                         PAR.EOSA BSS    0                                                       PAR      2462
                                         SNAP=P   ENDIF                                                          PAR      2463
                                                                                                                 PAR      2464
                                         SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                           PAR      2465
                                                  SA1    CO.SNAP                                                 PAR      2466
                                                  LX1    1RZ                                                     PAR      2467
                                                  PL     X1,PAR.EOSS IF PARSE SNAP NOT SELECTED                  PAR      2468
                                         PARSEXIT PARSNAP                                                        PAR      2469
                                         PAR.EOSS BSS    0                                                       PAR      2470
                                         SNAP=Z   ENDIF                                                          PAR      2471
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    62
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAREXIT 
  
                                                                                                                 PAR      2472
          1457  67441                             =B4    B4-1        RESET TO LAST ELEMENT PROCESSED             PAR      2473
                     0400000426 +                 EQ     PARX        EXIT..                                      PAR      2474
  
  
  
  
                                        **        FLUSH REMAINING OP STACKS.                                     PAR      2476
                                                                                                                 PAR      2477
          1460  56350                    PAR.EOS6 SA3    B5          OPERATOR TO POP                             PAR      2478
                     67551                        =B5    B5-1                                                    PAR      2479
                          43063                   MX0    -SP.TBPRL                                               FC50104   102
                                                  LX3    -SP.TBPRP                                               FC50104   103
                               15230              BX2    -X0*X3      EXTRACT (X2) = COP TOKEN BUFFER PRIORITY    PAR      2482
          1461  6222777733                        SB2    X2-O.SLP                                                PAR      2483
                          6232777740              SB3    X2-O.LP                                                 PAR      2484
                                                  LX3    SP.TBPRP                                                FC50104   104
          1462  0420001470 +                      ZR     B2,PAR.EOS8 IF *(* BEING POPPED                         PAR      2486
                          0530001464 +            NZ     B3,PAR.EOS7 IF NOT POPPING *LP*                         PAR      2487
          1463  6170000000 X                      SB7    E.LP1                                                   PAR      2488
                          0400001563 +            EQ     POP.RP5     TAKE ERROR EXIT                             PAR      2489
                                                                                                                 PAR      2490
          1464  13666                    PAR.EOS7 BX6    0                                                       PAR      2491
                     56150                        SA1    B5                                                      PAR      2492
                          5160000010 +            SA6    POPPER                                                  PAR      2493
          1465  55661                             =A6    A6-POPPER+POPDPC                                        PAR      2494
                     0100001510 +                 RJ     POP         POP OPERATOR                                PAR      2495
          1466  5110000010 +                      SA1    POPPER                                                  PAR      2496
                          0321001435 +            PL     X1,PAR.EOS  IF NO PROCESSING NOT SET                    PAR      2497
          1467  67441                             =B4    B4-1        RESET *B4*                                  PAR      2498
                     67551                        =B5    B5-1                                                    PAR      2499
                          0400001435 +            EQ     PAR.EOS     CONTINUE                                    PAR      2500
                                                                                                                 PAR      2501
          1470  5150000000 X             PAR.EOS8 SA5    ARGMODE                                                 PAR      2502
                          20526                   HX5    AM.EOS                                                  PAR      2503
          1471  0325001473 +                      PL     X5,PAR.EOS9 IF EOS DOESNT UNSTACK *(*                   PAR      2504
                          7110000040              SX1    O.RP                                                    PAR      2505
          1472  77701                             =X7    -1                                                      PAR      2506
                     5170000010 +                 SA7    POPPER                                                  PAR      2507
                                                                                                                 FC50478    19
          1473  10611                    PAR.EOS9 BX6    X1                                                      PAR      2508
                     5160000007 +                 SA6    POPDPC      UPDATE   DPC   FOR OPERATOR                 PAR      2509
                               76100              =X1    O.EOS       INDICATE *(* BEING POPPED BY  *EOS*         PAR      2510
                                                  LX1    SP.TBPRP                                                FC50104   105
          1474  0100001510 +                      RJ     POP                                                     PAR      2512
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    63
        PARSE/ANALYZE NEXT SEPARATOR.                                 PAR.STOP
  
                                        **        PAR.STOP - CATASTROPHIC ERROR FOUND IN CURRENT STATEMENT.      PAR      2514
                                        *                OUTPUT ERROR TURPLE AND EXIT BACK TO MASTER LOOP,       PAR      2515
                                        *                IGNORING RETURN TO CALLER OF PAR.                       PAR      2516
                                        *                                                                        PAR      2517
                                        *         EXIT   TO *PSL* TO START NEXT STATEMENT.                       PAR      2518
                                        *                                                                        PAR      2519
                                        *         CALLS  ADT.                                                    PAR      2520
                                                                                                                 PAR      2521
                                                                                                                 PAR      2522
          1475  5130000317 +             PAR.STOP SA3    ERROP                                                   PAR      2523
                          13666                   SHRINK T=SCR       IN CASE OF ERRORS                           FC50904     5
                          76700                   =X7    0                                                       PAR      2524
                               13444              BX4    0                                                       PAR      2525
          1477  22603                             LX6    X3                                                      PAR      2526
                     76500                        =X5    0                                                       PAR      2527
                          5170000002 +            SA7    SMOD                                                    PAR      2528
          1500  54671                             =A6    A7-SMOD+SOPR                                            PAR      2529
                     0100003740 +                 RJ     ADT         ADD ERROR TURPLE                            PAR      2530
          1501  5120000000 X                      SA2    T.TB                                                    FC50396    17
                          63320                   SB3    X2                                                      FC50396    18
                               67343              SB3    B4-B3                                                   FC50396    19
          1502  56141                             =A1    B4+1        PREFETCH                                    FC50396    20
                     76610                        =X6    1                                                       FC50396    21
                                                                                                                 FC50396    22
          1503  5011777776               STOP1    SA1    A1-1        FETCH TOKEN                                 FC50396    23
                          6221777727              SB2    X1-O.DOCI                                               FC50396    24
          1504  0420000000 X                      ZR     B2,PSL      IF DO CONCLUSION, NO HANGING IMPLIED DO     FC50396    25
                          6221777730              SB2    X1-O.DOBI                                               FC50396    26
          1505  0420001507 +                      ZR     B2,STOP2    IF DO BEGIN, HANGING IMPLIED DO             FC50396    27
                          6133777776              SB3    B3-1                                                    FC50396    28
          1506  0630001503 +                      PL     B3,STOP1    IF NOT FINISHED                             FC50396    29
                          0400000000 X            EQ     PSL         EXIT                                        FC50396    30
                                                                                                                 FC50396    31
          1507  5160000000 X             STOP2    SA6    CDIFLG      ERROR IN DO INDICATION                      FC50396    32
                          0400000000 X            EQ     PSL         START ANEW                                  PAR      2531
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    64
        POPPING (SYNTHESIS).                                          POP 
  
                                        **        POP - EMIT TURPLES FOR TOP OPERATOR.                           PAR      2534
                                        *                PROCESSING.                                             PAR      2535
                                        *                                                                        PAR      2536
                                        *         ENTRY  (X1) = OPERATOR CAUSING (X3) TO BE POPPED.              PAR      2537
                                        *                (X3) = CURRENT OPERATOR BEING POPPED.                   PAR      2538
                                        *                                                                        PAR      2539
                                        ** FV     EXPLAIN (B5) BETTER, SOMETIME.                                 PAR      2540
                                        *                (B5) _ OPERATOR BELOW OF OPERATOR BEING POPPED.         PAR      2541
                                        *                E.G., IF  .AND.  WERE POPPED BY  .NOT. , THE OPSTACK    PAR      2542
                                        *                    WOULD LOOK LIKE BELOW,  WITH B5 POINTING TO *EOS*.  PAR      2543
                                        *                      OPSTACK =    0     1     2                        PAR      2544
                                        *                                 EOS .AND. .NOT.                        PAR      2545
                                        *                            B5     '                                    PAR      2546
                                        *                                                                        PAR      2547
                                        *                (B6)-1  _  TOP OPERAND IN ESTACK.                       PAR      2548
                                        *                                                                        PAR      2549
                                        *         EXIT   (B6)-1  _  TOP OPERAND IN ESTACK.                       PAR      2550
                                        *                TOP OPERAND = RESULT OF POPPED OPERATION.               PAR      2551
                                        *                (B5) _ TOP OPERATOR IN OSTACK.                          PAR      2552
                                        *                (B4) _ NEXT TOKEN.                                      PAR      2553
                                        *                                                                        PAR      2554
                                        *                NOTE- NOT ALL SUB-PROCESSORS RELATED TO *POP* EXIT THRU PAR      2555
                                        *                      POPX.                                             PAR      2556
                                        *                    A.  TO PAR.NX - PARENTHESIS POPPERS.                PAR      2557
                                        *                    B.  TO PAR.ADOP - WHEN OPERATOR CHANGED.            PAR      2558
                                        *         USES   ALL.                                                    PAR      2559
                                                                                                                 PAR      2560
          1510                           IOL.RTN  BSSENT 0           ...RETURN FROM IOL                          PAR      2561
                                                                                                                 PAR      2562
          1510  0400401510 +             POP      SUBR   0                                                       PAR      2563
          1511  43663                             MX6    -SP.TBPRL                                               FC50104   106
                     5150000000 X                 SA5    T.PAR                                                   PAR      2565
                                                  LX1    -SP.TBPRP                                               FC50104   107
                               76700              SX7    B0          CLEAR RESULT MODE                           PAR      2567
          1512  15116                             BX1    -X6*X1      ISOLATE OP CAUSING POP                      PAR      2568
                                                  LX3    -SP.TBPRP                                               FC50104   108
                     5170000002 +                 SA7    SMOD                                                    PAR      2570
                               15236              BX2    -X6*X3      EXTRACT (X2) = TOKEN TYPE OF POPPED OP      PAR      2571
                                                  LX3    SP.TBPRP                                                FC50104   109
          1513  5140000000 X                      SA4    T=PAR                                                   PAR      2573
                          63310                   SB3    X1          (B3) = TOKEN TYPE OF OPERATOR CAUSING POP   PAR      2574
                               22603              LX6    X3                                                      PAR      2575
          1514  5170000001 +                      SA7    ATTR        CLEAR ATTRIBUTE CELL                        PAR      2576
                          36045                   IX0    X4+X5                                                   PAR      2577
          1515  5160000003 +                      SA6    SOPR        SAVE OPERATOR                               PAR      2578
                          7270777774              SX7    X0-Z=TURP+OR.OPR                                        PAR      2579
          1516  5170000006 +                      SA7    LASTAD      LAST TURPLE OPERATOR ADDRESS                PAR      2580
                          5146777775              SA4    B6-2        1ST OPERAND INTO (X4)                       PAR      2581
          1517  53570                             SA5    X7                                                      PAR      2582
                     5222000173 +                 SA2    X2-O.DEF+F.POPNX                                        PAR      2583
          1520  6170000046                        SB7    O.ILL                                                   PAR      2584
                          0773401520 +            GT     B3,B7,"BLOWUP"                                          PAR      2585
          1521  10655                             BX6    X5                                                      PAR      2586
                     76700                        =X7    0                                                       PAR      2587
                          5160000005 +            SA6    LASTOP      SET LAST OPERATOR                           PAR      2588
          1522  66200                             =B2    0           ALWAYS A *0* UPON EXIT                      PAR      2589
                     54541                        =A5    A4+1        2ND OPERAND INTO (X5)                       PAR      2590
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    65
        POPPING (SYNTHESIS).                                          POP 
  
                                                                                                                 PAR      2591
                                         SNAP=Z   IFEQ   TEST,ON     DUMP PARSE TABLES                           PAR      2592
                                                  SA5    CO.SNAP                                                 PAR      2593
                                                  LX5    1RZ                                                     PAR      2594
                                                  PL     X5,POPS     IF PARSE SNAP NOT SELECTED                  PAR      2595
                                                  =A5    A4+1                                                    PAR      2596
                                         POPP     PARSNAP                                                        PAR      2597
                                         POPS     =A5    A4+1                                                    PAR      2598
                                         SNAP=Z   ENDIF                                                          PAR      2599
                                                                                                                 PAR      2600
                          10633                   BX6    X3          CURRENT OPERATOR                            PAR      2601
                               63720              SB7    X2                                                      PAR      2602
          1523  20626                             SBIT   X6,SP.COMP                                              FC50104   110
                     0326001536 +                 PL     X6,POP.JP   IF NOT COMMUTATIVE OPERATOR                 PAR      2604
                                                                                                                 PAR      2605
                                        **        FIX ORDER OF COMMUTATIVE OPERATORS IN TAG NUMERIC ORDER.       PAR      2606
                                        *                                                                        PAR      2607
                                        ** FV            FIX COMMUTATIVE SORT ORDER --                           PAR      2608
                                        *         6      INTR.                                                   PAR      2609
                                        *         5      ARY  --  DOUBLE, SINGLE.                                PAR      2610
                                        *         4      VAR / PROGRAMMER  -- DOUBLE, SINGLE.                    PAR      2611
                                        *         3      VAR / INVENTED --  CONSTANTS LAST.                      PAR      2612
                                        *         0      SHORT CONSTANT.                                         PAR      2613
                                        *                                                                        PAR      2614
                                        *         SORT BY (ORBI) WITHIN EACH ABOVE CLASS.                        PAR      2615
                                                                                                                 PAR      2616
                                         .KEY     ECHO   ,OP=(4,5),KY=(1,2)                                      PAR      2617
                                                  BX.KY  X.OP                                                    PAR      2618
                                                  LX.OP  -TP.INTRP                                               PAR      2619
                                                  SX6    B1                                                      PAR      2620
                                                  AX.KY  TP.ORBIP                                                PAR      2621
                                                  BX7    X6*X.OP     KEY = 1S8 * INTR                            PAR      2622
                                                  LX7    TP.ORBIL+8                                              PAR      2623
                                                  LX.OP  TP.INTRP-TP.SHRTP                                       PAR      2624
                                                  BX.KY  X.KY+X7                                                 PAR      2625
                                                  BX7    -X.OP*X6    KEY += 1S1 * (NOT SHORT)                    PAR      2626
                                                  LX7    TP.ORBIL+1                                              PAR      2627
                                                  LX.OP  TP.SHRTP-TP.MODEP                                       PAR      2628
                                                  MX6    -TP.MODEL                                               PAR      2629
                                                  BX.KY  X.KY+X7                                                 PAR      2630
                                                  BX7    -X6*X.OP    KEY += 1S4 * MODE                           PAR      2631
                                                  LX7    TP.ORBIL+4                                              PAR      2632
                                                  ERRMI  8-4-TP.MODEL                                            PAR      2633
                                                  LX.OP  -TP.MODEP   RESTORE (X.OP) = OPERAND                    PAR      2634
                                                  BX.KY  X.KY+X7                                                 PAR      2635
                                         .KEY     ENDD                                                           PAR      2636
                                                                                                                 PAR      2637
                               37712              IX7    X1-X2       SORT BY (KEY, ORD, BIAS)                    PAR      2638
          1534  10144                             BX1    X4                                                      PAR      2639
                     0327001536 +                 PL     X7,POP.JP   IF IN NUMERIC ORDER                         PAR      2640
                               10455              BX4    X5                                                      PAR      2641
          1535  22501                             LX5    X1                                                      PAR      2642
                                                                                                                 PAR      2643
                                        **        ENTER POPPING ROUTINE WITH --                                  PAR      2644
                                        *                (B2) = ALWAYS A *0* UPON EXIT.                          PAR      2645
                                        *                (B3) = TOKEN TYPE OF OPERATOR CAUSING POP.              PAR      2646
                                        *                (X3) = OPERATOR.                                        PAR      2647
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    66
        POPPING (SYNTHESIS).                                          POP 
  
                                        *                (X4) = 1ST OPERAND.                                     PAR      2648
                                        *                (X5) = 2ND OPERAND.                                     PAR      2649
                                        *                (X7) .GE. 0, IF OPERANDS NOT REVERSED.                  PAR      2650
                                                                                                                 PAR      2651
          1536  0277000000               POP.JP   JP     B7          JUMP TO POPPER...                           PAR      2652
  
  
  
  
                                        **        POP.ERR - SOMETHING UNCLEAN HAPPENED.                          PAR      2654
                                        *                                                                        PAR      2655
                                        *         EMIT ERROR TURPLE.                                             PAR      2656
                                                                                                                 PAR      2657
                                                                                                                 PAR      2658
          1537                           POP.ERR  BSS    0                                                       PAR      2659
          1537  5130000317 +                      SA3    ERROP                                                   PAR      2660
                          76700                   =X7    0           CLEAR OPERATOR CELL                         PAR      2661
                               43400              MX4    0                                                       PAR      2662
          1540  13555                             BX5    0           (1OP) = (2OP) = NIL                         PAR      2663
                     5170000003 +                 SA7    SOPR                                                    PAR      2664
          1541  0400001546 +                      EQ     POP.ST1     ADD ERROR TURPLE                            PAR      2665
  
  
  
  
                                        **        STD -  SET DOMINANT MODE / ADD TURPLE TO PARSED FILE.          PAR      2667
                                        *                                                                        PAR      2668
                                        *         ENTRY  (X3) = OPERATOR.                                        PAR      2669
                                        *                (X4) = 1ST OPERAND.                                     PAR      2670
                                        *                (X5) = 2ND OPERAND.                                     PAR      2671
                                        *                                                                        PAR      2672
                                        *         CALLS  SDM.                                                    PAR      2673
                                                                                                                 PAR      2674
                                                                                                                 PAR      2675
          1542                           POP.STD  BSSENT 0                                                       PAR      2676
                                                                                                                 FC5A150   459
                                        *         IF POPPING CAUSED BY OPR. WITH LOWER PRIORITY THAN MULT,       FC5A150   460
                                        *         RESET MULT TOGGLE SO NEXT * WILL BE 'POPABLE'.                 FC5A150   461
                                                                                                                 FC5A150   462
          1542  43063                             MX0    -SP.TBPRL                                               FC50104   111
                     5110000010 +                 SA1    POPPER                                                  FC5A150   464
                                                  LX1    -SP.TBPRP                                               FC50104   112
                               15710              BX7    -X0*X1                                                  FC5A150   466
          1543  43600                             MX6    0                                                       FC5A150   467
                     7277777723                   SX7    X7-PR.MULT                                              FC5A150   468
          1544  0327001545 +                      PL     X7,POP.ST0  IF COP GE PRIOR(*)                          FC5A150   469
                          5160001365 +            SA6    MULTOG      MULTOG = 0                                  FC5A150   470
                                                                                                                 FC5A150   471
          1545  0100004370 +             POP.ST0  RJ     SDM         SET DOMINANT MODE                           FC5A150   472
                                                                                                                 PAR      2678
                                                                                                                 PAR      2679
                                        **        ST1 -  ADD TURPLE TO PARSED FILE.                              PAR      2680
                                        *                                                                        PAR      2681
                                        *         ENTRY  (X3) = OPERATOR.                                        PAR      2682
                                        *                (X4) = 1ST OPERAND.                                     PAR      2683
                                        *                (X5) = 2ND OPERAND.                                     PAR      2684
                                        *                                                                        PAR      2685
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    67
        POPPING (SYNTHESIS).                                          POP.STD 
  
                                        *         CALLS  ADT, OMC.                                               PAR      2686
                                                                                                                 PAR      2687
                                                                                                                 PAR      2688
          1546                           POP.ST1  BSS    0           ENTRY...                                    PAR      2689
          1546  10633                             BX6    X3                                                      PAR      2690
                     5160000003 +                 SA6    SOPR        SET OPERATOR CELL                           PAR      2691
          1547  0100004272 +                      RJ     OMC                                                     PAR      2692
          1550  0100003740 +                      RJ     ADT         ADD TURPLE                                  PAR      2693
          1551  0400001510 +                      EQ     POPX        EXIT..                                      PAR      2694
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    68
        POPPING (SYNTHESIS).                                          C=OPER
  
                                        **        POP.CM - PROCESSING OF A COMMA.                                PAR      2696
                                        *                                                                        PAR      2697
                                        *         C=XXX PROCESSING SECTION.                                      PAR      2698
                                        *                                                                        PAR      2699
                                        *         ENTRY  (ARGMODE) = CURRENT VALUE FOR C= IN DEFINED FIELD.      PAR      2700
                                        *                (X3) = CURRENT OPERATOR WORD FOR COMMA.                 PAR      2701
                                        *                (X4) = 1ST OPERAND.                                     PAR      2702
                                        *                (X5) = 2ND OPERAND.                                     PAR      2703
                                        *                                                                        PAR      2704
                                        *         EXIT   SEE INDIVIDUAL PROCESSORS.                              PAR      2705
                                        *                (NOTE - NOT ALL PROCESSORS EXIT DIRECTLY THRU *POP*...) PAR      2706
                                                                                                                 PAR      2707
                                                                                                                 PAR      2708
          1552                           POP.COL  BSS    0                                                       PAR      2709
          1552                           POP.CM   BSS    0                                                       PAR      2710
          1552  5110000000 X                      SA1    ARGCOMA                                                 PAR      2711
                          5120000000 X            SA2    ARGMODE                                                 PAR      2712
          1553  76010                             SX0    B1                                                      PAR      2713
                                                  LX0    AC.CNTP                                                 PAR      2714
                     36610                        IX6    X1+X0       UPDATE NUMBER OF ARGUMENTS                  PAR      2715
                          43052                   MX0    -AM.COML                                                PAR      2716
                               10722              BX7    X2                                                      PAR      2717
          1554  21222                             AX2    AM.COMP                                                 PAR      2718
                     15020                        BX0    -X0*X2      C=XXX ADDRESS                               PAR      2719
                          54610                   SA6    A1                                                      PAR      2720
                               63200              SB2    X0                                                      PAR      2721
                                                                                                                 PAR      2722
                                        *         TRANSFER TO PROCESSORS WITH  ...                               PAR      2723
                                        *                (X2) = (ARGMODE) SHIFTED BY AM.COMP.                    PAR      2724
                                        *                (X6) = CURRENT VALUE OF *ARGCOMA*.                      PAR      2725
                                                                                                                 PAR      2726
          1555  0222000000                        JP     B2          JUMP TO INDIVIDUAL PROCESSOR                PAR      2727
  
  
  
  
                                        **        C=CERR - IF COMMA NOT ALLOWED FOR PAREN LEVEL CURRENTLY IN.    PAR      2729
                                                                                                                 PAR      2730
                                                                                                                 PAR      2731
          1556                           C=CERR   BSSENT 0           ENTRY...                                    PAR      2732
          1556  6170000000 X                      FATAL  E.AT05                                                  PAR      2733
          1557                           C=ERR    BSSENT 0           ENTRY...                                    PAR      2734
          1557  0400001537 +                      EQ     POP.ERR                                                 PAR      2735
  
  
  
  
                                        **        POP.RP - RIGHT PAREN BEING POPPED.                             PAR      2737
                                        *         OUTPUT ERROR, TOO FEW LEFT PARENS - SCANNING STOPPED.          PAR      2738
                                        *                                                                        PAR      2739
                                        *         JOINTED AT POP.RP5  BY LEFT PAREN POPPER IF NOT BEING POPPED   PAR      2740
                                        *         BY RIGHT PAREN -- ERROR = TOO FEW RIGHT PARENS.                PAR      2741
                                        *                                                                        PAR      2742
                                        *         EXIT   TO C=ERR.                                               PAR      2743
                                                                                                                 PAR      2744
                                                                                                                 PAR      2745
          1560                           POP.RP   BSS    0                                                       PAR      2746
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    69
        POPPING (SYNTHESIS).                                          POP.RP
  
          1560  56151                             =A1    B5+1                                                    PAR      2747
                     21122                        AX1    TB.IOSPP    TEST FOR SPECIAL RIGHT PAREN                PAR      2748
                          0301001562 +            ZR     X1,POP.RP1  IF NOT SPECIAL RP, THEN ERROR               PAR      2749
          1561  0400001450 +                      EQ     PAR.EOS3    CONTINUE PROCESSING IO LIST                 PAR      2750
          1562  6144777774               POP.RP1  =B4    B4-3        SET FOR ERROR PROCESSING                    PAR      2751
                          6170000000 X            SB7    E.LP2                                                   PAR      2752
          1563  0100000000 X             POP.RP5  FATAL  B7                                                      PAR      2753
          1564  0400001475 +                      EQ     PAR.STOP    CATASTROPHIC ERROR, START ANEW              PAR      2754
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    70
        POPPING (SYNTHESIS).                                          POP.PN
  
                                        **        POP.PN - RIGHT PARENTHESIS POPPING LEFT PARENTHESIS.           PAR      2756
                                        *                                                                        PAR      2757
                                        *         A=XXX PROCESSING SECTION.                                      PAR      2758
                                        *                                                                        PAR      2759
                                        *         GENERAL FLOW.                                                  PAR      2760
                                        *         UPON ENTRY ARGMODE AND ARGCOMA ARE SET TO THE CURRENT MODE     PAR      2761
                                        *         OF THE SUB-EXPRESSION DEFINED IN PARENTHESIS AS SET WHEN       PAR      2762
                                        *         THE OPEN PAREN WAS FOUND.                                      PAR      2763
                                        *                                                                        PAR      2764
                                        *         THE NEW VALUES TO BE SET FOR CELLS ARGMODE,ARGCOMA AND ARGMIS  PAR      2765
                                        *         WERE PREVIOUSLY SET BY *SPS* TO BE IN THE OPERATOR STACK IN    PAR      2766
                                        *         FRONT OF THE CURRENT LEFT PAREN THAT IS CURRENTLY BEING POPPED PAR      2767
                                        *         THUS WE RESET ALL THREE OF THESE CELLS AS DEFINED BELOW.       PAR      2768
                                        *                                                                        PAR      2769
                                        *         AFTER THIS WE EXIT TO THE APPROPRIATE A=XXX PROCESSOR DEFINED  PAR      2770
                                        *         BY THE A= FIELD OF THE ENTRY ARGMODE.                          PAR      2771
                                        *                                                                        PAR      2772
                                        *         NOTE -                                                         PAR      2773
                                        *         IF LEFT PAREN NOT BEING POPPED BY RIGHT PAREN - NEXT ENTRY     PAR      2774
                                        *         IN *TB* IS REPLACED WITH AN *EOS* AND EXIT IS MADE TO C=CERR   PAR      2775
                                        *         TO OUTPUT ERROR INDICATING TOO MANY LEFT PARENS, AND TO ADD    PAR      2776
                                        *         ERROR TURPLE TO PARSED FILE.                                   PAR      2777
                                        *                                                                        PAR      2778
                                        *         PARSER CONTEXT STACK                                           FC51075    40
                                        *                                                                        FC51075    41
                                        *                N - 2       ARGMODE.                                    FC51075    42
                                        *                N - 1       ARGCOMA.                                    FC51075    43
                                        *                N           ARGMIS                                      FC51075    44
                                        *                                                                        PAR      2782
                                        *         ARGMODE FORMAT.                                                PAR      2783
                                        *         +-----------+-----------+-----------------+-----------------+  PAR      2784
                                        *         +           +           +                 +                 +  PAR      2785
                                        *         +  REFVAR   +ATTRIBUTES +      C=XXX      +       A=XXX     +  PAR      2786
                                        *         +           +           +                 +                 +  PAR      2787
                                        *         +-----------+-----------+-----------------+-----------------+  PAR      2788
                                        *              12         12               18               18           PAR      2789
                                        *                                                                        PAR      2790
                                        *         ARGCOMA FORMAT.                                                PAR      2791
                                        *         +-----------------------+-----------------+-----------------+  PAR      2792
                                        *         +///////////////////////+  MODE  OF  PARM + CURRENT ARGUMENT+  PAR      2793
                                        *         +///////////////////////+ ( MAY BE OTHER )+    -  1         +  PAR      2794
                                        *         +///////////////////////+                 +                 +  PAR      2795
                                        *         +-----------------------+-----------------+-----------------+  PAR      2796
                                        *                    24                   18               18            PAR      2797
                                        *                                                                        PAR      2798
                                        *                                                                        PAR      2799
                                        *         ENTRY  (X3) = CURRENT *(* OPERATOR TO BE PROCESSED.            PAR      2800
                                        *                (B3) = CURRENT VALUE OF ARGMODE.                        PAR      2801
                                        *                (B4) -> RIGHT PARENTHESIS IN TOKEN BUFFER.              PAR      2802
                                        *                (POPPER) = TABBED VALUE FOR RIGHT PAREN OPERATOR.       PAR      2803
                                        *                                                                        PAR      2804
                                        *         EXIT   DEPENDING ON THE PARTICULAR VALUE FOR A=, EXIT IS THRU  PAR      2805
                                        *                A.  POP.STD - TO PROCESS OPERATOR, OR,                  PAR      2806
                                        *                B.  POPX    - IGNORE OPERATOR.                          PAR      2807
                                        *                              (NOTE - IN CERTAIN *POPPER* IS SET TO     PAR      2808
                                        *                                      INDICATE BYPASSING OF PAREN.)     PAR      2809
                                        *                                                                        PAR      2810
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    71
        POPPING (SYNTHESIS).                                          POP.PN
  
                                        *         USES   A2-4,A6   X5   B3.                                      PAR      2811
                                                                                                                 PAR      2812
                                                                                                                 PAR      2813
          1565                           POP.PN   BSS    0                                                       PAR      2814
          1565  5140000000 X                      SA4    ARGMODE                                                 PAR      2815
                          5130000007 +            SA3    POPDPC                                                  PAR      2816
          1566  5150000000 X                      SA5    ARGCOMA                                                 PAR      2817
                          43063                   MX0    -SP.TBPRL                                               FC50104   113
                                                  LX3    -SP.TBPRP                                               FC50104   114
                               15730              BX7    -X0*X3      EXTRACT (X7) = TOKEN TYPE FOR POP-ING OP    PAR      2820
          1567  6227777737                        SB2    X7-O.RP                                                 PAR      2821
                                                  LX4    -AM.PADP                                                PAR      2822
                          63340                   SB3    X4                                                      PAR      2823
                                   0              ERRNZ  18-AM.PADL                                              PAR      2824
                                                  LX4    AM.PADP                                                 PAR      2825
          1570  5130000000 X                      SA3    ARGMIS                                                  PAR      2826
                          6170000000 X            SB7    E.LP1       IN CASE OF PARENTHESIS MISMATCH             PAR      2827
          1571  0520001563 +                      NZ     B2,POP.RP5  IF *(* NOT BEING POPPED BY *)*              PAR      2828
                          10744                   BX7    X4                                                      PAR      2829
                                                  LX5    -AC.CNTP                                                PAR      2830
                               63250              SB2    X5                                                      PAR      2831
                                   0              ERRNZ  18-AC.CNTL                                              PAR      2832
          1572  5170000000 X                      SA7    SCR         SAVE CURRENT *ARGMODE*                      PAR      2833
                          22605                   LX6    X5                                                      PAR      2834
                               10733              BX7    X3                                                      PAR      2835
          1573  5120000000 X                      SA2    T.PCS                                                   FC51075    45
                          5140000000 X            SA4    T=PCS                                                   FC51075    46
          1574  36024                             IX0    X2+X4                                                   FC51075    47
                     5220777774                   SA2    X0-Z=PSTACK+AM.W                                        FC51075    48
                               54671              =A6    A7+1        SAVE CURRENT *ARGCOMA*                      PAR      2837
          1575  54421                             =A4    A2-AM.W+AC.W                                            PAR      2838
                     54761                        =A7    A6+1        SAVE CURRENT *ARGMIS*                       PAR      2839
                          10622                   BX6    X2                                                      PAR      2840
          1576  5120000000 X                      SA2    T=PCS                                                   FC51075    49
                          7272777774              SX7    X2-Z=PSTACK                                             FC51075    50
          1577  54720                             SA7    A2                                                      FC51075    51
                     5130000012 +                 SA3    CMLFLG                                                  PAR      2842
                               54541              =A5    A4-AC.W+AS.W                                            PAR      2843
          1600  73235                             SX2    X3+B5                                                   PAR      2844
                     5160000000 X                 SA6    ARGMODE     RESET ARGMODE                               PAR      2845
          1601  0312001602 +                      NZ     X2,POP.PN1  IF NO NEED TO RESET FLAG                    PAR      2846
                          76710                   =X7    1                                                       PAR      2847
                               54730              SA7    A3                                                      PAR      2848
          1602  21660                    POP.PN1  AX6    AM.REFP                                                 PAR      2849
                     5120000000 X                 SA2    ARGCOMA                                                 PAR      2850
                               10744              BX7    X4                                                      PAR      2851
          1603  5160000000 X                      SA6    REFVAR      RESET CROSS REFERENCE VALUE                 PAR      2852
                          54720                   SA7    A2          RESET ARGCOMA                               PAR      2853
                               10655              BX6    X5                                                      PAR      2854
          1604  5160000000 X                      SA6    ARGMIS                                                  PAR      2855
                          5146777775              SA4    B6-2        1ST OPERAND                                 PAR      2856
          1605  43673                             MX6    -1                                                      PAR      2857
                     66441                        =B4    B4+1        BYPASS RIGHT PARENTHESIS                    PAR      2858
                          57561                   =A5    B6-1        2ND OPERAND                                 PAR      2859
          1606  5160000010 +                      SA6    POPPER      INDICATE IGNORE FUTHER PROCESSING OF PAREN  PAR      2860
                                                                                                                 PAR      2861
                                        *         EXIT TO A=XXX PROCESSOR WITH THE FOLLOWING CONDITIONS SET --   PAR      2862
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    72
        POPPING (SYNTHESIS).                                          POP.PN
  
                                        *                (X2) = (ARGCOMA).                                       PAR      2863
                                        *                (X4) = (1OP).                                           PAR      2864
                                        *                (X5) = (2OP).                                           PAR      2865
                                        *                (B2) = NUMBER OF ARGUMENTS - 1 INSIDE PARENS.           PAR      2866
                                        *                (B4) -> NEXT ELEMENT PAST CLOSING RIGHT PAREN.          PAR      2867
                                        *                                                                        PAR      2868
                                        *                (SCR+AM.W) = (ARGMODE) FOR PAREN BEING CLOSED.          PAR      2869
                                        *                (SCR+AC.W) = (ARGCOMA)  -    -     -      -             PAR      2870
                                        *                (SCR+AS.W) = (ARGMIS )  -    -     -      -             PAR      2871
                                                                                                                 PAR      2872
                          0233000000              JP     B3                                                      PAR      2873
  
  
  
  
                                        **        A=IF - PROCESS TERMINAL PARENTHESIS OF *IF* EXPRESSION.        PAR      2875
                                        *         EXIT   TO PAREXIT.                                             PAR      2876
                                        *                (IFRESLT) = EXPRESSION RESULT OPERATOR.                 PAR      2877
                                        *                (IFMOD) = MODE OF RESULT.                               PAR      2878
                                                                                                                 PAR      2879
                                                                                                                 PAR      2880
          1607                           A=IF     BSS    0                                                       PAR      2881
          1607  0400001614 +                      EQ     AIF8        **** TEMP ****                              PAR      2882
          1610  5110000005 +                      SA1    LASTOP                                                  PAR      2883
                                         RELOP    BITMIC (O.LT,O.GE,O.EQ,O.NE)                                   PAR      2884
                          5120004561 +            SA2    ="RELOP"                                                PAR      2885
          1611  63710                             SB7    X1                                                      PAR      2886
                     22672                        LX6    X2,B7                                                   PAR      2887
                          0326001614 +            PL     X6,AIF8     IF LAST OP NOT RELATION                     PAR      2888
          1612  10155                             BX1    X5                                                      PAR      2889
                     0100004123 +                 RJ     COR         CHECK IF OPERAND IS REDUCIBLE INTERMEDIATE  PAR      2890
          1613  0310001614 +                      NZ     X0,AIF8     IF RELATION-OP NOT INPUT TO IF-OP           PAR      2891
          1614  57161                    AIF8     SA1    B6-B1       FETCH TOP OF OPERAND STACK                  PAR      2892
                     43071                        MX0    -TP.MODEL                                               PAR      2893
                          22701                   LX7    X1                                                      PAR      2894
                                                  LX1    -TP.MODEP                                               PAR      2895
                               15610              BX6    -X0*X1                                                  PAR      2896
          1615  5170000000 X                      SA7    IFRESLT                                                 PAR      2897
                          5160000000 X            SA6    IFMOD                                                   PAR      2898
          1616  0400001457 +                      EQ     PAREXIT     FOUND TERMINAL *)* OF IF (EXP) - EXIT ...   PAR      2899
  
  
  
  
                                        **        A=LIST - PROCESS CLOSING OF AN I/O LIST.                       PAR      2901
                                        *         A=DVL - PROCESS CLOSING OF DATA VARIABLE LIST.                 PAR      2902
                                        *                                                                        PAR      2903
                                        *         NOTE THAT A=DVL SHOULD BE SAME AS A=LIST, BUT MUST HAVE        PAR      2904
                                        *         A DIFFERENT ADDRESS SO 'SPECIAL' FLAG TESTS IN PAR WILL        PAR      2905
                                        *         NOT DO IDIOTIC THINGS.                                         PAR      2906
                                                                                                                 PAR      2907
                                                                                                                 PAR      2908
                                1510 +   A=LIST   EQU    POPX        EXIT...                                     PAR      2909
                                                                                                                 PAR      2910
          1617  0400001510 +             A=DVL    EQ     POPX        ME TOO..                                    PAR      2911
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    73
        POP/EMIT SIMPLE OPERATORS.                                    POP=COM 
  
                                        **        POP=COM - POP GENERAL COMMUTATIVE OPERATOR.                    PAR      2914
                                        *                                                                        PAR      2915
                                        *         PURPOSE - TO DISCOVER A "CLUSTER" OF ASSOCIATIVE/COMMUTATIVE   PAR      2916
                                        *                OPERATORS, AND TO COMBINE ALL CONSTANTS OCCURRING IN    PAR      2917
                                        *                IT INTO A SINGLE CONSTANT.  IF ONLY ONE CONSTANT, IT    PAR      2918
                                        *                WILL BE LAST.                                           PAR      2919
                                        *                                                                        PAR      2920
                                        *         THE TERM 'CLUSTER' IS FROM AHO AND ULLMAN, 1973, THEORY OF     PAR      2921
                                        *         PARSING, TRANSLATION AND COMPILATION, VOL 2, CHAPTER 11.       PAR      2922
                                        *                                                                        PAR      2923
                                        *         THE CURRENT OPERATOR IS IN THE MIDST OF A CLUSTER, IF:         PAR      2924
                                        *         (A)  IT IS COMUTATIVE.  (THIS IS ASSUMED -- DO NOT ENTER THIS  PAR      2925
                                        *              THIS ROUTINE WITH A NON-COMUTATIVE OPERATOR.)             PAR      2926
                                        *         (B)  IT IS ALSO ASSOCIATIVE.                                   PAR      2927
                                        *         (C)  IT IS BEING POPPED BY AN IDENTICAL OPERATOR, WHICH IS     PAR      2928
                                        *              STILL ASSOCIATIVE.  (ASSOCIATIVITY AND COMUTATIVITY CAN   PAR      2929
                                        *              BE WIPED OUT FOR A PARTICULAR INSTANCE OF AN OPERATOR     PAR      2930
                                        *              DURING THE PARSING PROCESS.)                              PAR      2931
                                        *                                                                        PAR      2932
                                        *         METHOD - WHEN THE OPERATOR BEING POPPED IS WITHIN A CLUSTER,   PAR      2933
                                        *                AND IF EXACTLY ONE OPERAND IS CONSTANT, THEN:           PAR      2934
                                        *                (A)  REVERSE OPERAND STACK ENTRIES, IF NECESSARY, TO    PAR      2935
                                        *                     ENSURE THE CONSTANT OPERAND IS SECOND, AND         PAR      2936
                                        *                (B)  DELAY POPPING THE OPERATOR.                        PAR      2937
                                        *                                                                        PAR      2938
                                        *         THUS, CONSTANT OPERANDS IN A CLUSTER BUBBLE TOWARD THE END.    PAR      2939
                                        *         WHENEVER TWO CONSTANTS MEET, LET THE OPERAND POP NORMALLY, SO  PAR      2940
                                        *         THAT CONRED CAN COMBINE THEM.  THE RESULTANT SINGLE CONSTANT   PAR      2941
                                        *         WILL RESUME BUBBLING ON THE NEXT TRIP THRU HERE.  IF NEITHER   PAR      2942
                                        *         OPERAND IS CONSTANT, ALSO POP NORMALLY.                        PAR      2943
                                        *                                                                        PAR      2944
                                        *         THE MECHANICS OF DELAYING THE POP IS SORT OF DIRTY --          PAR      2945
                                        *         THE OPERATOR IS PUT BACK ON (OSTACK), AND WE EXIT DIRECTLY     PAR      2946
                                        *         TO PAR.ADOP,   N O T   THRU THE POP ENTRY POINT.               PAR      2947
                                        *                                                                        PAR      2948
                                        *         ENTRY  (X3) = COMMUTATIVE OPERATOR.                            PAR      2949
                                                                                                                 PAR      2950
                                                                                                                 PAR      2951
          1620  5110000007 +             POP=COM  SA1    POPDPC      ENTRY...                                    PAR      2952
                          43063                   MX0    -SP.TBPRL                                               FC50104   115
                                                  LX3    -SP.TBPRP                                               FC50104   116
                               15730              BX7    -X0*X3      (X7) = TOKEN TYPE OF OP BEING POPPED        PAR      2955
          1621  37117                             IX1    X1-X7                                                   PAR      2956
                                                  LX3    SP.TBPRP                                                FC50104   117
                     0311001542 +                 NZ     X1,POP.STD  IF NOT BEING POPPED BY LIKE OPERATOR        PAR      2958
                               10633              BX6    X3                                                      PAR      2959
          1622  20627                             HX6    SP.AS                                                   FC50104   118
                     0326001542 +                 PL     X6,POP.STD  IF OPERATOR NOT ASSOCIATIVE                 PAR      2961
          1623  5110000276 +                      SA1    SDIV                                                    FC5A221    15
                          43263                   MX2    -SP.STPRL                                               FC50104   119
                               13113              BX1    X1-X3                                                   FC5A221    17
          1624  20163                             LX1    -SP.STPRP                                               FC50104   120
                     15212                        BX2    -X2*X1                                                  FC5A221    19
                          0302001542 +            ZR     X2,POP.STD  IF * POPPING SPECIAL DIVIDE                 FC5A221    20
                                                                                                                 PAR      2962
                                        **        CHECK IF OPERANDS ARE CONSTANTS.                               PAR      2963
                                        *         JOINED HERE TO POP A SPECIAL DIVIDE.                           PAR      2964
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    74
        POP/EMIT SIMPLE OPERATORS.                                    POP=COM 
  
                                                                                                                 PAR      2965
                                                                                                                 PAR      2966
          1625                           POP.SDIV BSS                                                            PAR      2967
                                         .T       IFEQ   TEST,ON                                                 PAR      2968
                                                  SA2    B6-B1       TOP-1                                       PAR      2969
                                                  SA1    A2-B1       TOP-2                                       PAR      2970
                                                  BX7    X2-X5                                                   PAR      2971
                                                  BX6    X1-X4                                                   PAR      2972
                                                  BX1    X1-X5                                                   PAR      2973
                                                  BX2    X2-X4                                                   PAR      2974
                                                  ZR     X6,POPCOM2  IF (1OP) = TOP-2                            PAR      2975
                                                  NZ     X2,"BLOWUP" IF (1OP) NOT FROM STACK                     PAR      2976
                                                  NZ     X1,"BLOWUP" IF (2OP) <> TOP-2                           PAR      2977
                                                  EQ     POPCOM8                                                 PAR      2978
                                                                                                                 PAR      2979
                                         POPCOM2  NZ     X7,"BLOWUP" IF (2OP) <> TOP-1                           PAR      2980
                                         POPCOM8  BSS                OK..                                        PAR      2981
                                         .T       ENDIF                                                          PAR      2982
                                                                                                                 PAR      2983
          1625  10144                             BX1    X4                                                      PAR      2984
                     0100000000 X                 CALL   LCT         LOAD CONSTANT (1OP)                         PAR      2985
          1626  77301                             SX3    -B1                                                     PAR      2986
                     10155                        BX1    X5                                                      PAR      2987
                          0420001631 +            ZR     B2,COM3     IF FIRST IS NOT CONSTANT                    PAR      2988
          1627  10644                             BX6    X4                                                      PAR      2989
                     22705                        LX7    X5          ROTATE OPERANDS                             PAR      2990
                          76300                   SX3    B0          INDICATE 1 CONSTANT SO FAR                  PAR      2991
                               57661              SA6    B6-B1                                                   PAR      2992
          1630  10566                             BX5    X6                                                      PAR      2993
                     22407                        LX4    X7                                                      PAR      2994
                          55761                   SA7    A6-B1                                                   PAR      2995
                                                                                                                 PAR      2996
          1631  0100000000 X             COM3     CALL   LCT         LOAD CONSTANT (2OP)                         PAR      2997
          1632  63730                             SB7    X3                                                      PAR      2998
                     0420001633 +                 ZR     B2,COM4     IF (2OP) IS NOT CONSTANT                    PAR      2999
                               63731              SB7    X3+B1                                                   PAR      3000
                                                                                                                 PAR      3001
                                        *         (B7) = -1, NEITHER IS CONSTANT.                                PAR      3002
                                        *              =  0, ONLY 1 OPERAND IS CONSTANT.                         PAR      3003
                                        *              = +1, BOTH ARE CONSTANT.                                  PAR      3004
                                                                                                                 PAR      3005
          1633  5130000003 +             COM4     SA3    SOPR        RELOAD POPPED OPERATOR                      PAR      3006
                          0570001542 +            NZ     B7,POP.STD  IF BOTH OR NONE ARE CONSTANTS               PAR      3007
          1634  5120000010 +                      SA2    POPPER                                                  PAR      3008
                          66551                   =B5    B5+1        RETAIN OPERATOR ON OSTACK                   PAR      3009
                               55121              =A1    A2-POPPER+POPDPC                                        PAR      3010
          1635  66441                             =B4    B4+1        ADVANCE TO NEXT TOKEN                       PAR      3011
                     0400001400 +                 EQ     PAR.ADOP    RESET OPERATOR STACK                        PAR      3012
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    75
        POP/EMIT SIMPLE OPERATORS.                                    POP.DIV 
  
                                        **        POP.DIV - DIVIDE BEING POPPED.                                 PAR      3014
                                        *                                                                        PAR      3015
                                        *         PURPOSE                                                        PAR      3016
                                        *         TO CHANGE SEQUENCE - A  =  B / C / D / E / F                   PAR      3017
                                        *                          TO  A  =  B /(C * D * E * F )                 PAR      3018
                                        *                                                                        PAR      3019
                                        *         GENERAL FLOW.                                                  PAR      3020
                                        *                                                                        PAR      3021
                                        *         1. IF DIVIDE BEING POPPED IS COMMUTATIVE - DIVIDE WAS          PAR      3022
                                        *            PREVIOUSLY CHANGED TO SPECIAL MULTIPLY.                     PAR      3023
                                        *                A.  CHANGE DPC FOR OPERATOR TO MULTIPLY, THUS MAKING    PAR      3024
                                        *                    DIVIDE LOOK LIKE A TRUE MULTIPLY.                   PAR      3025
                                        *                B.  RESET POPPER TO SPECIAL DIVIDE.                     PAR      3026
                                        *                C.  RESET OPERATOR STACK FOR CURRENT DIVIDE TO (A).     PAR      3027
                                        *                                                                        PAR      3028
                                        *         2. IF DIVIDE BEING POPPED IS NOT COMMUTATIVE - DIVIDE IS 1ST   PAR      3029
                                        *            IN SEQUENCE.                                                PAR      3030
                                        *                B.  IF BOTH OPERANDS ARE CONSTANTS LET DIVIDE BE        PAR      3031
                                        *                    POPPED.  IF NOT, GO TO (C).                         PAR      3032
                                        *                C.  CHANGE POPPER TO SPECIAL DIVIDE.                    PAR      3033
                                        *                D.  RESET *B5* INDICATING DIVIDE NOT POPPED.            PAR      3034
                                        *                E.  EXIT TO PAR.ADOP TO ADD SECOND DIVIDE AS SPECIAL    PAR      3035
                                        *                    DIVIDE.                                             PAR      3036
                                        *                                                                        PAR      3037
                                        *         3. IF DIVIDE NOT BEING POPPED BY DIVIDE                        PAR      3038
                                        *                A.  CHECK IF DIVIDE BEING POPPED IS A SPECIAL DIVIDE    PAR      3039
                                        *                    THAT HAS NOT BEEN COMFIRMED.                        PAR      3040
                                        *                B.  IF (A) IS TRUE, CHANGE DIVIDE TO TRUE MULTIPLY      PAR      3041
                                        *                    AND EXIT TO POP.STD, POPPING AS MULTIPLY.           PAR      3042
                                        *                C.  IF (A) IS FALSE, EXIT TO POP.STD TO POP DIVIDE.     PAR      3043
                                                                                                                 PAR      3044
                                                                                                                 PAR      3045
          1636                           POP.DIV  BSS    0                                                       PAR      3046
          1636  10155                             BX1    X5                                                      PAR      3047
                     0100000000 X                 CALL   LCT         LOAD CONSTANT TEST                          PAR      3048
          1637  0420001643 +                      ZR     B2,POP.DV2  IF DENOMINATOR NOT CONSTANT                 PAR      3049
                          0316001643 +            NZ     X6,POP.DV2  IF DENOMINATOR NOT ZERO                     PAR      3050
          1640  7200777772                        SX0    X0-M.CPLX                                               PAR      3051
                          0310001642 +            NZ     X0,POP.DV1  IF DENOM. NOT COMPLEX                       PAR      3052
          1641  0317001643 +                      NZ     X7,POP.DV2  IF AIMAG(DENOM.) NZ                         PAR      3053
                                                                                                                 PAR      3054
          1642  6170000000 X             POP.DV1  FATAL  E.DC4       ** DIVIDE BY ZERO                           PAR      3055
                                                                                                                 PAR      3056
          1643  5110000000 X             POP.DV2  SA1    CO.RNDM                                                 FC50392    12
                          5120000000 X            SA2    CO.RNDD                                                 FC50392    13
          1644  13112                             BX1    X1-X2                                                   FC50392    14
                     22203                        LX2    X3                                                      FC50392    15
                          0311001661 +            NZ     X1,POP.DV10 IF DIFFERENT ARITHMETIC SELECTED            FC50392    16
          1645  5110000007 +                      SA1    POPDPC                                                  FC50392    17
                          43063                   MX0    -SP.TBPRL                                               FC50104   121
                                                  LX3    -SP.TBPRP                                               FC50104   122
                               15230              BX2    -X0*X3      (X2) = TOKEN BEING POPPED                   PAR      3060
          1646  37012                             IX0    X1-X2                                                   PAR      3061
                     10233                        BX2    X3                                                      PAR      3062
                          0310001661 +            NZ     X0,POP.DV10 IF NOT DIVIDE POPPING DIVIDE                PAR      3063
          1647  20226                             SBIT   X2,SP.COMP                                              FC50104   123
                     0322001654 +                 PL     X2,POP.DV5  IF NOT POPPING SPECIAL DIVIDE               PAR      3065
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    76
        POP/EMIT SIMPLE OPERATORS.                                    POP.DIV 
  
          1650  5110000276 +                      SA1    SDIV                                                    PAR      3066
                          76210                   =X2    O.DIV&O.MULT                                            PAR      3067
                                                  LX2    SP.TBPRP                                                FC50104   124
                               13632              BX6    X3-X2                                                   PAR      3069
          1651  22701                             LX7    X1                                                      PAR      3070
                     5160000003 +                 SA6    SOPR        SET CONFIRMED MULTIPLY                      PAR      3071
                               10366              BX3    X6                                                      PAR      3072
          1652  5170000010 +                      SA7    POPPER      CHANGE TO SPECIAL DIVIDE                    PAR      3073
                          56651                   =A6    B5+1        CHANGE IN STACK ALSO (INCASE MULT NO POP)   PAR      3074
          1653  0400001625 +                      EQ     POP.SDIV    HANDLE AS MULTIPLY                          PAR      3075
                                                                                                                 PAR      3076
                                        *         HERE FOR FIRST DIVIDE IN SEQUENCE.                             PAR      3077
                                                                                                                 PAR      3078
          1654  12145                    POP.DV5  BX1    X4+X5                                                   FC5A150   473
                     43071                        MX0    -TP.MODEL                                               FC5A150   474
                                                  LX1    -TP.MODEP                                               FC5A150   475
                          15210                   BX2    -X0*X1                                                  FC5A150   476
          1655  7202777774                        SX0    X2-M.REAL                                               FC5A150   477
                                   0              ERRNZ  M.INT-2                                                 FC5A150   478
                                   0              ERRNZ  M.BOOL                                                  FC5A150   479
                          0330001661 +            MI     X0,POP.DV10 IF INTEGER DIVIDE                           FC5A150   480
          1656  5120000276 +                      SA2    SDIV        CHANGE TO SPECIAL DIVIDE                    FC5A150   481
                          66441                   =B4    B4+1        NEXT                                        PAR      3080
          1657  7110000017                        =X1    O.DIV                                                   PAR      3081
                          66551                   =B5    B5+1        REACTIVATE 1ST DIVIDE                       PAR      3082
          1660  0400001400 +                      EQ     PAR.ADOP    IGNORE- SET INTO OPERATOR STACK             PAR      3083
                                                                                                                 PAR      3084
          1661  20226                    POP.DV10 SBIT   X2,SP.COMP                                              FC50104   125
                     0332001672 +                 MI     X2,POP.DV25 IF POPPING SPECIAL DIVIDE                   FC5A150   482
                                         .INV     IFEQ   NOINVERT,0                                              FC5A150   483
          1662  0420001665 +                      ZR     B2,POP.DV15 IF DENOMINATOR IS NOT CONSTANT              FC5A150   484
                          43600                   MX6    0                                                       FC5A150   485
          1663  5160001674 +                      SA6    POP.DVA                                                 FC5A150   486
                          0100000000 X            CALL   PDC         PROCESS DIVIDE BY CONSTANT                  FC5A150   487
          1664  5110001674 +                      SA1    POP.DVA                                                 FC5A150   488
                          0311001671 +            NZ     X1,POP.DV20 IF DIVIDE CHANGED TO MULTIPLY               FC5A150   489
                                         .INV     ENDIF                                                          FC5A150   490
                                                                                                                 FC5A150   491
          1665  43071                    POP.DV15 MX0    -TP.MODEL                                               FC5A150   492
                                                  LX4    -TP.MODEP                                               FC5A150   493
                                                  LX5    -TP.MODEP                                               FC5A150   494
                     15140                        BX1    -X0*X4      X1 = MODE OF 1OP                            FC5A150   495
                          15250                   BX2    -X0*X5      X2 = MODE OF 2OP                            FC5A150   496
          1666  7211777772                        SX1    X1-M.CPLX                                               FC5A150   497
                          7222777774              SX2    X2-M.REAL                                               FC5A150   498
                                                  LX4    TP.MODEP                                                FC5A150   499
                                                  LX5    TP.MODEP                                                FC5A150   500
          1667  0311001672 +                      NZ     X1,POP.DV25 IF NUMERATOR NOT COMPLEX                    FC5A150   501
                          0312001672 +            NZ     X2,POP.DV25 IF DENOMINATOR NOT REAL                     FC5A150   502
          1670  5130000300 +                      SA3    CRDIV       CHANGE OP TO SPECIAL CPLX/REAL DIVIDE       FC5A150   503
                          0400001672 +            EQ     POP.DV25                                                FC5A150   504
                                                                                                                 FC5A150   505
          1671  5130000244 +             POP.DV20 SA3    F.PRIOR+O.MULT-O.SEP                                    FC5A150   506
                                                                                                                 FC5A150   507
          1672  76210                    POP.DV25 =X2    O.DIV&O.MULT                                            FC5A150   508
                                                  LX2    SP.TBPRP                                                FC50104   126
                     13632                        BX6    X3-X2                                                   PAR      3089
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    77
        POP/EMIT SIMPLE OPERATORS.                                    POP.DIV 
  
                          5160000003 +            SA6    SOPR        SET CONFIRMED MULTIPLY                      PAR      3090
          1673  10366                             BX3    X6                                                      PAR      3091
                     0400001542 +                 EQ     POP.STD     POP AS TRUE MULTIPLY                        PAR      3092
                                                                                                                 FC5A150   509
          1674                     1     POP.DVA  BSSENT 1           *CONVERT TO MULTIPLY* FLAG                  FC5A150   510
  
  
  
  
                                        **        POP.PL - PLUS BEING POPPED.                                    PAR      3094
                                        *                                                                        PAR      3095
                                        *         PURPOSE                                                        PAR      3096
                                        *         1.  TO CHANGE SEQUENCE   A = -B + C                            PAR      3097
                                        *                               TO A =  C - B                            PAR      3098
                                        *         2.  TO CHANGE SEQUENCE   A =  CONSTANT + VARIABLE              PAR      3099
                                        *                               TO A =  VARIABLE + CONSTANT              PAR      3100
                                                                                                                 PAR      3101
                                                                                                                 PAR      3102
          1675                           POP.PL   BSS    0                                                       PAR      3103
          1675  5110000004 +                      SA1    CURST                                                   FC50612    16
                          5120000000 X            SA2    T=PAR                                                   FC50612    17
          1676  37112                             IX1    X1-X2                                                   FC50612    18
                     0301001620 +                 ZR     X1,POP=COM  IF LAST TURPLE NOT TO BE SQUEEZED           FC50612    19
          1677  5110000005 +                      SA1    LASTOP                                                  PAR      3104
                          6271777757              SB7    X1-O.UMIN                                               PAR      3105
          1700  5120000006 +                      SA2    LASTAD                                                  PAR      3106
                          0570001620 +            NZ     B7,POP=COM  IF LAST OP NOT *UNARY-*                     PAR      3107
          1701  10144                             BX1    X4                                                      PAR      3108
                     0100004123 +                 RJ     COR         CHECK IF OPERAND IS INPUT TO OPERATOR       PAR      3109
          1702  0310001620 +                      NZ     X0,POP=COM  IF *UNARY-* NOT INPUT INTO *PLUS*           PAR      3110
                          5130000277 +            SA3    MINUSOP                                                 PAR      3111
          1703  10455                             BX4    X5          (1OP) = OLD (2OP)                           PAR      3112
                     53511                        =A5    X1+OR.1OP   (2OP) = (1OP) OF THE *UMIN* INTERMEDIATE    PAR      3113
                          10633                   BX6    X3                                                      PAR      3114
          1704  5110000000 X                      SA1    INSTF                                                   FC51427     6
                          0311001706 +            NZ     X1,POP.PL4  IF IN ARITHMETIC STATEMENT FUNCTION         FC51427     7
          1705  54720                             SA7    A2          RESET LENGTH OF T.PAR                       FC51427     8
                                                                                                                 FC51427     9
          1706  5160000003 +             POP.PL4  SA6    SOPR                                                    FC51427    10
                          0400001542 +            EQ     POP.STD                                                 PAR      3117
  
  
  
  
                                        **        POP.MUL - MULTIPLY BEING POPPED.                               PAR      3119
                                                                                                                 PAR      3120
                                                                                                                 PAR      3121
                                1620 +   POP.MUL  EQU    POP=COM                                                 PAR      3122
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    78
        POP/EMIT SIMPLE OPERATORS.                                    POP.UM
  
                                        **        POP.UM - PROCESS UNARY MINUS BEING POPPED.                     PAR      3124
                                        *                                                                        PAR      3125
                                        *         PURPOSE.                                                       PAR      3126
                                        *         1.  TO CHANGE SEQUENCE    A = - CONSTANT                       PAR      3127
                                        *                            TO     A =   CONSTANT                       PAR      3128
                                        *         2.  TO CHANGE SEQENCE     A = - ( - B )                        PAR      3129
                                        *                            TO     A =       B                          PAR      3130
                                        *         3.  TO CHANGE SEQUENCE    A = - (B - C)                        PAR      3131
                                        *                            TO     A =    C - B                         PAR      3132
                                                                                                                 PAR      3133
                                                                                                                 PAR      3134
          1707                           POP.UM   BSS    0                                                       PAR      3135
          1707  5110000005 +                      SA1    LASTOP                                                  PAR      3136
                          5120000006 +            SA2    LASTAD                                                  PAR      3137
                                                                                                                 PAR      3138
                                        *         CHECK FOR -(A-B)                                               PAR      3139
                                                                                                                 PAR      3140
          1710  6221777762                        SB2    X1-O.MIN                                                PAR      3141
                          6271777757              SB7    X1-O.UMIN                                               PAR      3142
          1711  5110000000 X                      SA1    INSTF       STATEMENT FUNCTION FLAG                     FC50664     7
                          0311001724 +            NZ     X1,POP=UNO  SKIP OPTIMIZATION IF IN STATEMENT FUNCTION  FC50664     8
          1712  0520001717 +                      NZ     B2,POP=UNR  IF LAST NOT BINARY MINUS                    PAR      3143
                          10155                   BX1    X5                                                      PAR      3144
          1713  0100004123 +                      RJ     COR                                                     PAR      3145
          1714  0310001724 +                      NZ     X0,POP=UNO  IF NOT INPUT INTO THIS OPERATOR             PAR      3146
                          53311                   =A3    X1-OR.OPR+OR.1OP                                        PAR      3147
                               10633              BX6    X3                                                      PAR      3148
          1715  54431                             =A4    A3-OR.1OP+OR.2OP                                        PAR      3149
                     10744                        BX7    X4                                                      PAR      3150
                          54640                   SA6    A4          REVERSE THE ORDER OF THE SUBTRACT           PAR      3151
                               54730              SA7    A3                                                      PAR      3152
          1716  0400001510 +                      EQ     POPX        EXIT..                                      PAR      3153
  
  
  
  
                                        **        POP=UNR - POP SELF-INVERSE UNARY OPERATOR.                     PAR      3155
                                        *                                                                        PAR      3156
                                        *         ENTRY  (B7) = 0 IF OPERAND IS RESULT OF SAME OPERATOR.         PAR      3157
                                                                                                                 PAR      3158
                                                                                                                 PAR      3159
          1717                           POP=UNR  BSS    0           ENTRY...                                    PAR      3160
          1717  0570001724 +                      NZ     B7,POP=UNO  IF OPERAND NOT RESULT OF SAME OPERATOR      PAR      3161
                          10155                   BX1    X5                                                      PAR      3162
          1720  0100004123 +                      RJ     COR                                                     PAR      3163
          1721  0310001724 +                      NZ     X0,POP=UNO  IF NOT INPUT INTO THIS OPERATOR             PAR      3164
                          53311                   =A3    X1+OR.1OP                                               PAR      3165
                               54720              SA7    A2          RESET LENGTH OF T=PAR                       PAR      3166
          1722  7110000010                        CLAS=  X1,TP,(EXPR)                                            FC5A218   205
                          12613                   BX6    X1+X3                                                   FC5A218   206
                               57661              =A6    B6-1        PUT OPERAND BACK IN ELEMENT STACK           PAR      3168
          1723  0400001510 +                      EQ     POPX        EXIT..                                      PAR      3169
                                                                                                                 PAR      3170
                                                                                                                 PAR      3171
                                        **        POP=UNO - OUTPUT UNARY OPERATOR.                               PAR      3172
                                                                                                                 PAR      3173
                                                                                                                 PAR      3174
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    79
        POP/EMIT SIMPLE OPERATORS.                                    POP=UNR 
  
          1724                           POP=UNO  BSS                                                            PAR      3175
          1724  10455                             BX4    X5          (1OP) = (2OP) FOR SDM                       PAR      3176
                     66661                        =B6    B6+1        ADJUST ELSTAK TO REMOVE ONLY 1 ELEMENT      PAR      3177
                          0400001542 +            EQ     POP.STD                                                 PAR      3178
  
  
  
  
                                        **        CHECK IF .NOT. (.NOT. EXPRESSION) COMBINATION.                 PAR      3180
                                                                                                                 PAR      3181
                                                                                                                 PAR      3182
          1725                           POP.NOT  BSS    0                                                       PAR      3183
          1725  5110000005 +                      SA1    LASTOP                                                  PAR      3184
                          6271777747              SB7    X1-O.NOT                                                PAR      3185
          1726  0400001717 +                      EQ     POP=UNR                                                 PAR      3186
  
  
  
  
                                        **        POP.LOG - POPPING BINARY LOGICAL OPERATOR.                     PAR      3188
                                                                                                                 PAR      3189
                                                                                                                 PAR      3190
          1727                           POP.LOG  BSS    0                                                       PAR      3191
          1727  10633                             BX6    X3                                                      PAR      3192
                     20626                        HX6    SP.COM                                                  FC50104   127
                          0336001620 +            MI     X6,POP=COM  IF COMMUTATIVE OPERATOR                     PAR      3194
          1730  0400001542 +                      EQ     POP.STD                                                 PAR      3195
  
  
  
  
                                        **        RELATIONALS BEING POPPED.                                      PAR      3197
                                        *                                                                        PAR      3198
                                        *         REVERSE OPERANDS AND CHANGE  .LE. INTO .GE.                    PAR      3199
                                        *                                 AND  .GT. INTO .LT.                    PAR      3200
                                                                                                                 PAR      3201
                                                                                                                 PAR      3202
          1731  7110000005               POP.LE   =X1    O.LE&O.GE                                               PAR      3203
                          0400001733 +            EQ     REL1                                                    PAR      3204
                                                                                                                 PAR      3205
          1732  7110000005               POP.GT   =X1    O.GT&O.LT                                               PAR      3206
          1733  10055                    REL1     BX0    X5          INTERCHANGE OPERANDS                        PAR      3207
                                                  LX1    SP.TBPRP                                                FC50104   128
                     13631                        BX6    X3-X1       CHANGE OPERATOR                             PAR      3209
                          22504                   LX5    X4                                                      PAR      3210
          1734  5160000003 +                      SA6    SOPR                                                    PAR      3211
                          13331                   BX3    X3-X1                                                   PAR      3212
                               22400              LX4    X0                                                      PAR      3213
                                                                                                                 PAR      3214
                                                                                                                 PAR      3215
          1735                           POP.REL  BSS    0                                                       PAR      3216
          1735  0100004542 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      3217
          1736  10655                             BX6    X5          PRESERVE X5                                 PAR      3218
                     10544                        BX5    X4                                                      PAR      3219
                          0100004542 +            RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      3220
          1737  10566                             BX5    X6          RESTORE X5                                  PAR      3221
                     22603                        LX6    X3                                                      PAR      3222
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    80
        POP/EMIT SIMPLE OPERATORS.                                    POP.REL 
  
                          5160000011 +            SA6    LASTREL     REMEMBER (TH.SKEL) OF RELATION              PAR      3223
          1740  0100004370 +                      RJ     SDM         SELECT DOMINANT MODE                        PAR      3224
          1741  0100004272 +                      RJ     OMC         OUTPUT MODE CONVERSION                      PAR      3225
          1742  5120000000 +                      SA2    PARNOW                                                  PAR      3226
                          7212777770              SX1    X2-PM=PARM                                              FC5A156    15
          1743  0301001745 +                      ZR     X1,REL3     IF PROCESSING *PARAMETER* STATEMENT         FC5A156    16
                          7222777775              SX2    X2-PM=CXP                                               PAR      3227
          1744  0312001760 +                      NZ     X2,REL5     IF NOT PARSING CONSTANT EXPRESSIONS         PAR      3228
          1745  5110000002 +             REL3     SA1    SMOD                                                    FC5A156    17
                          7271777771              SX7    X1-M.CHAR                                               PAR      3230
          1746  0317001760 +                      NZ     X7,REL5     IF DOMINANT MODE NOT CHARACTER              PAR      3231
                          10733                   BX7    X3                                                      PAR      3232
          1747  5170000000 X                      SA7    PCR.RO      SAVE RELOP                                  PAR      3233
                          10144                   BX1    X4                                                      PAR      3234
          1750  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT 1OP                  PAR      3235
          1751  6122000002                        SB2    B2+2                                                    PAR      3236
                          0520001760 +            NZ     B2,REL5     IF 1OP NOT CHARACTER CONSTANT               PAR      3237
          1752  5160000000 X                      SA6    PCR.1OP     SAVE T.CON INDEX                            PAR      3238
                          54761                   =A7    A6+1        SAVE CHARACTER LENGTH                       PAR      3239
                               10155              BX1    X5                                                      PAR      3240
          1753  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT 2OP                  PAR      3241
          1754  6122000002                        SB2    B2+2                                                    PAR      3242
                          0520001760 +            NZ     B2,REL5     IF 2OP NOT CHARACTER CONSTANT               PAR      3243
          1755  5160000000 X                      SA6    PCR.2OP     SAVE T.CON INDEX                            PAR      3244
                          54761                   =A7    A6+1        SAVE CHARACTER LENGTH                       PAR      3245
          1756  0100000000 X                      CALL   PCR         PROCESS CHARACTER RELATIONALS               PAR      3246
          1757  0400001510 +                      EQ     POPX                                                    PAR      3247
                                                                                                                 PAR      3248
          1760  5110000002 +             REL5     SA1    SMOD                                                    PAR      3249
                          7170000001              SX7    M.LOG                                                   PAR      3250
          1761  10611                             BX6    X1                                                      PAR      3251
                     54710                        SA7    A1          (SMOD) = M.LOG                              PAR      3252
                          5160000017 +            SA6    RELA        SAVE OPERAND MODE                           PAR      3253
          1762  0100003740 +                      RJ     ADT         ISSUE TURPLE                                PAR      3254
          1763  0620001510 +                      PL     B2,POPX     IF TURPLE NOT EMITTED (CONSTANT OR SQUEEZED FC5A207     5
                                                                                                                 PAR      3258
                                        *         ASSUMING THAT THIS IS EXPRESSION IN SINGLE-RELATIONAL          PAR      3259
                                        *         IF, SAVE ORDINAL OF SPECIAL SKELETON.  IF THIS IS NOT          PAR      3260
                                        *         THE CASE IFREL2 WILL BE ZEROED IN ADT BY NEXT TURPLE ISSUED.   PAR      3261
                                                                                                                 PAR      3262
                          5110000011 +            SA1    LASTREL                                                 PAR      3263
          1764  5120000017 +                      SA2    RELA                                                    PAR      3264
                          43063                   MX0    -SP.TBPRL                                               FC50104   129
                               15610              BX6    -X0*X1                                                  PAR      3266
          1765  6276777753                        SB7    X6-O.EQ                                                 PAR      3267
                          73220                   SX2    X2                                                      PAR      3268
                               20201              LX2    1                                                       PAR      3269
          1766  73227                             SX2    X2+B7                                                   PAR      3270
                     20273                        LX2    -1                                                      PAR      3271
                          5212001774 +            SA1    IFRELT+X2   IFRELT(2*MODE+OP-O.EQ)                      PAR      3272
          1767  0332001770 +                      MI     X2,REL10    IF WANT LOWER HALF                          PAR      3273
                          20136                   LX1    30                                                      PAR      3274
                                                                                                                 PAR      3275
          1770  10611                    REL10    BX6    X1                                                      PAR      3276
                     73110                        SX1    X1                                                      PAR      3277
                          0770001510 +            LT     B7,B0,POPX  IF NOT .EQ. OR .NE.                         PAR      3278
          1771  0717001510 +                      GT     B7,B1,POPX  IF NOT .EQ. OR .NE.                         PAR      3279
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    81
        POP/EMIT SIMPLE OPERATORS.                                    POP.REL 
  
                                   0              ERRNZ  O.NE-O.EQ-1                                             PAR      3280
                          73110                   SX1    X1                                                      PAR      3281
          1772  0331001510 +                      MI     X1,POPX     IF NO SPECIAL SKEL                          PAR      3282
                          5160000000 X            SA6    IFREL2      SAVE (OPPOSITE,THIS) SPECIAL PAIR           PAR      3283
          1773  0400001510 +                      EQ     POPX                                                    PAR      3284
                                                                                                                 PAR      3285
          1774                           IFRELT   BSS    0                                                       PAR      3286
                                                  ECHO   ,MODE=(B,L,I,R,D,C,H)                                   PAR      3287
                                                  ECHO   ,OP=(EQ,NE) LT,GE)                                      PAR      3288
                                                  VFD    12/0,18/=YV=I_OP.MODE                                   FC5A158A  419
                                                  ENDD                                                           PAR      3290
  
  
  
  
                                        **        POP.CAT - CATENATION OF CHARACTER EXPRESSIONS.                 PAR      3292
                                        *                                                                        PAR      3293
                                        *         NOTE THAT THE CATENATION PRIOP IS MARKED (TH.MDLS), WHICH      PAR      3294
                                        *         IS WHY THE OPERAND MODES MUST BE CHECKED HERE.  THIS WOULD     PAR      3295
                                        *         NOT BE NECESSARY IF (OM=CAT) WERE INVENTED AND (TH.MDLS)       PAR      3296
                                        *         REMOVED (SDM WOULD CHECK MODES).  THE PRESENT CODE HOWEVER,    PAR      3297
                                        *         CAN GIVE A MORE SPECIFIC ERROR MESSAGE, ALBEIT AT THE COST     PAR      3298
                                        *         OF A WORD OR TWO OF CORE.                                      PAR      3299
                                                                                                                 PAR      3300
                                                                                                                 PAR      3301
          2003                           POP.CAT  BSS    0                                                       PAR      3302
          2003  43071                             MX0    -TP.MODEL                                               PAR      3303
                                   0              ERRNZ  TP.MODEP                                                PAR      3304
                     15140                        BX1    -X0*X4      (X1) = MODE (1OP)                           PAR      3305
                          15250                   BX2    -X0*X5      (X2) = MODE (2OP)                           PAR      3306
          2004  7211777771                        SX1    X1-M.CHAR                                               PAR      3307
                          7222777771              SX2    X2-M.CHAR                                               PAR      3308
          2005  0311002031 +                      NZ     X1,CAT2     IF (1OP) NOT TYPE CHARACTER                 PAR      3309
                          0312002031 +            NZ     X2,CAT2     IF (2OP) NOT TYPE CHARACTER                 PAR      3310
          2006  10633                             BX6    X3                                                      PAR      3311
                     10144                        BX1    X4                                                      PAR      3312
                          5160000017 +            SA6    CATA        SAVE (CATA) = OPERATOR WORD                 PAR      3313
          2007  0100000000 X                      CALL   LCH         CHECK IF (1OP) IS CHAR CONSTANT             PAR      3314
          2010  6172000002                        SB7    B2+2                                                    PAR      3315
                          63360                   SB3    X6          SAVE (B3) = INDEX OF (1OP)                  PAR      3316
                               10155              BX1    X5                                                      PAR      3317
          2011  0570002020 +                      NZ     B7,CAT1     IF (1OP) NOT CHAR CONSTANT                  PAR      3318
                          5170000020 +            SA7    CATB        SAVE (CATB) = CHAR LEN OF (1OP)             PAR      3319
          2012  0100000000 X                      CALL   LCH         CHECK IF (2OP) IS CHAR CONSTANT             PAR      3320
          2013  6172000002                        SB7    B2+2                                                    PAR      3321
                          5130000020 +            SA3    CATB        (X3) = LEN OF (1OP)                         PAR      3322
          2014  0570002020 +                      NZ     B7,CAT1     IF (2OP) NOT CHAR CONSTANT                  PAR      3323
                          63260                   SB2    X6          (B2) = INDEX OF (2OP)                       PAR      3324
          2015  0100000000 X                      CALL   PCC         PERFORM CHARACTER CONCATENATION             PAR      3325
          2016  6166777775                        =B6    B6-2        POP TWO OPERANDS                            PAR      3326
                          0100004167 +            RJ     ECC         EMIT CHAR CONSTANTS                         PAR      3327
          2017  0400001510 +                      EQ     POPX                                                    PAR      3328
                                                                                                                 PAR      3329
          2020  10755                    CAT1     BX7    X5                                                      PAR      3330
                     5170002033 +                 SA7    CATC        SAVE 2OP                                    PAR      3331
                               10144              BX1    X4                                                      PAR      3332
          2021  0100004242 +                      RJ     GOL         SEE IF 1OP IS FIXED LENGTH                  PAR      3333
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    82
        POP/EMIT SIMPLE OPERATORS.                                    POP.CAT 
  
          2022  5160000020 +                      SA6    CATB        SAVE FIXED/PASSED FLAG                      PAR      3334
                          5110002033 +            SA1    CATC                                                    PAR      3335
          2023  0100004242 +                      RJ     GOL         SEE IF 2OP IS FIXED LENGTH                  PAR      3336
          2024  5110000020 +                      SA1    CATB                                                    PAR      3337
                          43001                   MX0    1                                                       PAR      3338
                               12616              BX6    X1+X6                                                   PAR      3339
          2025  11006                             BX0    X0*X6       MI IFF EITHER OPERAND NOT FIXED-LENGTH      PAR      3340
                     20033                        LX0    1+TH.PLCP                                               PAR      3341
                          5150002033 +            SA5    CATC        RESTORE 2OP                                 PAR      3342
          2026  5130000017 +                      SA3    CATA        RESTORE OPERATOR                            PAR      3343
                          12303                   BX3    X0+X3       MARK OPERATOR PASSED LENGTH                 PAR      3344
                               20046              LX0    TP.LCFP-TH.PLCP                                         PAR      3345
          2027  7170001000                        CLAS=  X7,TP,(CAT)                                             PAR      3346
                          12707                   BX7    X0+X7       MARK OPERAND AS PASSED LENGTH (LCF)         PAR      3347
          2030  5170000001 +                      SA7    ATTR        MARK RESULT OPERAND AS CAT                  PAR      3348
                          0400001542 +            EQ     POP.STD                                                 PAR      3349
                                                                                                                 PAR      3350
          2031  6170000000 X             CAT2     FATAL  E.AT15      ** OPERANDS OF // MUST BE CHARACTER         PAR      3351
          2032  0400001537 +                      EQ     POP.ERR                                                 PAR      3352
                                                                                                                 PAR      3353
          2033                     1     CATC     BSS    1                                                       PAR      3354
  
  
  
  
                                        **        POP.EQL - VALIDATE ASSIGNMENT.                                 PAR      3356
                                        *                                                                        PAR      3357
                                        *         A.  CHECKS LEFT SIDE FOR LEGALITY -- CANNOT BE A               PAR      3358
                                        *                CONSTANT.  IF EXPRESSION, MUST BE ARRAY LOAD.           PAR      3359
                                        *         B.  VALIDATES NOT RESETTING AN ACTIVE DO-CONTROL               PAR      3360
                                        *                INDEX.                                                  PAR      3361
                                        *         C.  SET DOMINANT MODE BY COERECING R.H.S.                      PAR      3362
                                        *         D.  SET (WB.DEF) TO INDICATE VARIABLE DEFINED.                 PAR      3363
                                        *         E.  IF CHARACTER ASSIGNMENT, CHECKS FOR OVERLAP BETWEEN        FC5A441     9
                                        *                THE TARGET VARIABLE AND ANY OF THE ELEMENTS IN THE      FC5A441    10
                                        *                SOURCE EXPRESSION.                                      FC5A441    11
                                                                                                                 PAR      3364
                                                                                                                 PAR      3365
          2034                           POP.EQL  BSS    0                                                       PAR      3366
          2034  10733                             BX7    X3                                                      PAR      3367
                     5170000017 +                 SA7    EQLA                                                    PAR      3368
                               43071              MX0    -TP.MODEL                                               PAR      3369
                                                  LX5    -TP.MODEP                                               PAR      3370
          2035  15650                             BX6    -X0*X5      DM = MODE OF L.H.S.                         PAR      3371
                     22504                        LX5    X4                                                      PAR      3372
                          0100004076 +            RJ     CMR         COERCE MODE OF R.H.S.                       PAR      3373
          2036  10455                             BX4    X5          (1OP) = CONVERTED R.H.S.                    PAR      3374
                     0470002040 +                 ZR     B7,EQL30    IF CONVERSION OK                            PAR      3375
                               57461              SA4    B6-B1       (1OP) = L.H.S.          /* FAKE LHS=LHS     PAR      3376
          2037  0100000000 X                      FATAL  B7                                                      PAR      3377
          2040  57561                    EQL30    SA5    B6-B1       (2OP) = L.H.S.                              PAR      3378
                     5130000000 X                 SA3    T=BLST                                                  PAR      3379
                               10633              BX6    X3                                                      PAR      3380
          2041  0100000000 X                      CALL   MDD         MARK DO PARAMETERS DEFINED                  PAR      3381
          2042  57561                             SA5    B6-B1       (2OP) = L.H.S                               PAR      3382
                     0100004144 +                 CALL   DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      3383
          2043  0316002050 +                      NZ     X6,EQL48    IF L.H.S. IS CONSTANT OR EXPRESSION         PAR      3384
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    83
        POP/EMIT SIMPLE OPERATORS.                                    POP.EQL 
  
                                                                                                                 PAR      3385
                                        *         L.H.S. IN SYMTAB,                                              PAR      3386
                                        *         CHECK FOR REDEFINING ACTIVE DO CONTROL INDEX.                  PAR      3387
                                                                                                                 PAR      3388
                          10122                   BX1    X2                                                      PAR      3389
                               20166              HX1    WB.VAR                                                  PAR      3390
          2044  0321002050 +                      PL     X1,EQL48    IF SYMBOL NOT A VAR                         PAR      3391
                          7110000200              CLAS=  X1,WB,(DEF)                                             FC5A211    72
          2045  12621                             BX6    X2+X1       MARK VARIABLE AS DEFINED                    PAR      3398
                     54620                        SA6    A2                                                      PAR      3399
                          6130000000              SB3    0           INDICATE NOT DO CONTROL INDEX               FC50718    10
          2046  0100000000 X                      CALL   DDR         DIAGNOSE DO REDEFINITION                    FC5A211    73
          2047  0400002052 +                      EQ     EQL50                                                   PAR      3400
                                                                                                                 PAR      3401
          2050  6170000000 X             EQL48    FATAL  E.VA11      ILLEGAL LEFT MEMBER                         PAR      3402
          2051  0400002106 +                      EQ     EQL99.1     X5 MAY HAVE A BLOWUP OPERAND FROM DOA, EXIT FC51521     6
                                                                                                                 PAR      3403
                                        *         TEST FOR IDENTICAL L.H.S. AND R.H.S. -- ELIMINATE              PAR      3404
                                        *                ENTIRE OPERATION IF SO.                                 PAR      3405
                                                                                                                 PAR      3406
          2052  13045                    EQL50    BX0    X4-X5                                                   PAR      3407
                     67661                        =B6    B6-1        ELIMINATE ONE OPERAND                       PAR      3408
                          0300001510 +            ZR     X0,POPX     IF LEFT MEMBER = RIGHT MEMBER               PAR      3409
          2053  5120000000 X                      SA2    T=PAR                                                   PAR      3410
                          7272000003              SX7    X2+Z=TURP   SQZ NOT SMART ENUF TO CROSS STORES          PAR      3411
          2054  5170000004 +                      SA7    CURST                                                   PAR      3412
                          66661                   =B6    B6+1                                                    PAR      3414
                                                                                                                 FC5A441    12
                                        *         IF CHARACTER ASSIGNMENT, CHECK FOR TARGET/SOURCE OVERLAP.      FC5A441    13
                                                                                                                 FC5A441    14
                               43071              MX0    -TP.MODEL                                               FC50189    12
                                                  LX5    -TP.MODEP                                               FC50189    13
          2055  15050                             BX0    -X0*X5      ISOLATE TARGET MODE                         FC50189    14
                                                  LX5    TP.MODEP    RESET X5                                    FC5A441    15
                     7200777771                   SX0    X0-M.CHAR                                               FC50189    15
          2056  0310002106 +                      NZ     X0,EQL99.1  IF NOT TYPE CHARACTER                       FC5A441    16
                          22704                   LX7    X4                                                      FC5A441    17
                               10655              BX6    X5                                                      FC50189    17
          2057  5170000020 +                      SA7    EQLB        SAVE X4 (SOURCE OPERAND)                    FC5A441    18
                          5160000021 +            SA6    EQLC        SAVE X5 (TARGET VARIABLE)                   FC5A441    19
          2060  76400                             SX4    B0          INDICATE TARGET CHARACTERISTICS             FC5A441    20
                     0100004313 +                 RJ     SCB         SET CHARACTER BOUNDS                        FC5A441    21
          2061  5150000020 +                      SA5    EQLB        SOURCE OPERAND                              FC5A441    22
                          10255                   BX2    X5                                                      FC5A441    23
                               20262              SBIT   X2,TP.CATP                                              FC5A441    24
          2062  0332002064 +                      MI     X2,EQL60    IF SOURCE IS CONCATENATION EXPRESSION       FC5A441    25
                          0100004022 +            RJ     CDI         CHECK DATA INTERFERENCE                     FC5A441    26
          2063  0400002105 +                      EQ     EQL99       EXIT                                        FC50189    25
                                                                                                                 FC50189    26
          2064  10155                    EQL60    BX1    X5                                                      FC5A441    27
                     20520                        LX5    -TP.ORDP                                                FC5A441    28
                          43054                   MX0    -TP.ORDL                                                FC50189    29
                               15550              BX5    -X0*X5      GET ORDINAL OF CONCAT TURPLE                FC5A441    29
          2065  63351                             SB3    X5+B1       SET CURRENT NODE                            FC5A441    30
                     66200                        SB2    B0          SET LAST NODE = LAMDA                       FC50189    32
                                                                                                                 FC50189    33
          2066  66730                    EQL65    SB7    B3          B7=CURRENT NODE,LEFT BRANCH                 FC50189    34
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    84
        POP/EMIT SIMPLE OPERATORS.                                    POP.EQL 
  
                     0630002067 +                 GE     B3,B0,EQL70 IF WE WANT LEFT BRANCH                      FC50189    35
                               67713              SB7    B1-B3       B7=CURRENT NODE,RIGHT BRANCH                FC50189    36
                                                                                                                 FC50189    37
          2067  5150000000 X             EQL70    SA5    T.PAR                                                   FC5A441    31
                          53557                   SA5    X5+B7       GET LEFT/RIGHT BRANCH                       FC5A441    32
                               20562              SBIT   X5,TP.CATP                                              FC5A441    33
          2070  0335002102 +                      MI     X5,EQL90    IF BRANCH IS CONCAT EXPRESSION              FC5A441    34
                          20512                   LX5    1+TP.CATP   SHIFT RESTORE                               FC5A441    35
          2071  0100004022 +                      RJ     CDI         CHECK DATA INTERFERENCE                     FC5A441    36
                                                                                                                 FC50189    44
          2072  0730002074 +             EQL75    LT     B3,B0,EQL80 IF CURRENT NODE, RIGHT BRANCH               FC50189    45
                          67303                   SB3    B0-B3       SET CURRENT NODE, RIGHT BRANCH              FC50189    46
          2073  0400002066 +                      EQ     EQL65       GO PROCESS RIGHT BRANCH                     FC50189    47
                                                                                                                 FC50189    48
          2074  0420002105 +             EQL80    EQ     B2,B0,EQL99 IF LAST NODE = LAMDA                        FC50189    49
                          66720                   SB7    B2          B7=LAST NODE,LEFT BRANCH                    FC50189    50
          2075  0620002076 +                      GE     B2,B0,EQL85 IF LAST NODE=LEFT BRANCH                    FC50189    51
                          67712                   SB7    B1-B2       B7=LAST NODE,RIGHT BRANCH                   FC50189    52
                                                                                                                 FC50189    53
          2076  5150000000 X             EQL85    SA5    T.PAR                                                   FC5A441    37
                          53557                   SA5    X5+B7       GET LEFT/RIGHT BRANCH                       FC5A441    38
                               67703              SB7    B0-B3                                                   FC50189    56
          2077  77771                             SX7    B7-B1       X7=ORD OF CURRENT NODE                      FC50189    57
                     20754                        LX7    TP.ORDP                                                 FC50189    58
                          7160003006              SX6    M.CHAR+TP.INTRM+TP.CATM  SET ATTRIBUTE BITS             FC50189    59
          2100  12767                             BX7    X6+X7                                                   FC50189    60
                     54750                        SA7    A5          RESTORE LEFT/RIGHT BRANCH                   FC5A441    39
                          66320                   SB3    B2          SET CURRENT=LAST NODE                       FC50189    62
                               63250              SB2    X5          SET LAST NODE=STORED THREAD                 FC5A441    40
          2101  0400002072 +                      EQ     EQL75                                                   FC50189    64
                                                                                                                 FC50189    65
          2102  76720                    EQL90    SX7    B2          X7=LAST NODE                                FC50189    66
                     54750                        SA7    A5          STORE THREAD IN TREE                        FC5A441    41
                          66230                   SB2    B3          SET LAST=CURRENT NODE                       FC50189    68
                               20532              LX5    1-TP.ORDP+TP.CATP                                       FC5A441    42
          2103  43054                             MX0    -TP.ORDL                                                FC50189    70
                     15550                        BX5    -X0*X5      GET ORDINAL OF CURRENT NODE                 FC5A441    43
                          63351                   SB3    X5+B1       SET CURRENT                                 FC5A441    44
          2104  0400002066 +                      EQ     EQL65                                                   FC50189    73
                                                                                                                 FC50189    74
          2105  5150000021 +             EQL99    SA5    EQLC        RESTORE X5                                  FC5A441    45
                          5140000020 +            SA4    EQLB        RESTORE X4                                  FC5A441    46
                                                                                                                 FC5A441    47
          2106  5130000017 +             EQL99.1  SA3    EQLA        RESTORE X3                                  FC5A441    48
                          0400001542 +            EQ     POP.STD     EXIT                                        FC50189    76
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    85
        POP/EMIT SUBSTRING.                                           C=SBS 
  
                                        **        C=SBS - SUBSTRING COLON.                                       PAR      3418
                                        *                                                                        PAR      3419
                                        *         ENTRY  (X5) = FIRST SUBSTRING OPERAND.                         PAR      3420
                                        *                                                                        PAR      3421
                                        *         WHEN THE COLON IS IMMEDIATELY FOLLOWED BY A RIGHT PAREN,       PAR      3422
                                        *         A DEFAULT SUBSTRING-LAST IS INVENTED AND STACKED.              PAR      3423
                                                                                                                 PAR      3424
                                                                                                                 PAR      3425
          2107                           C=SBS    BSS    0           ENTRY...                                    PAR      3426
          2107  0100002155 +                      RJ     CSM         CHECK SUBSTRING MODE                        PAR      3427
          2110  56141                             SA1    B4+B1       PEEK AHEAD                                  PAR      3428
                                                  LX1    -TB.TOTP                                                PAR      3429
                     6221777737                   SB2    X1-O.RP                                                 PAR      3430
          2111  0520001510 +                      NZ     B2,POPX     IF COLON NOT IMMEDIATELY FOLLOWED BY RPAREN PAR      3431
                          5150000000 X            SA5    ARGMIS                                                  PAR      3432
                                        ** MQ            IS (ESTACK-2) ALSO SAME ???                             PAR      3433
          2112  0100004144 +                      RJ     DOA         DETERMINE OPERAND ATTRIBUTES                PAR      3434
          2113  0316402113 +                      NZ     X6,"BLOWUP" IF EXPRESSION OR CONSTANT                   PAR      3435
                          54421                   =A4    A2-WB.W+WC.W                                            PAR      3436
                               43052              MX0    -WC.CLENL                                               PAR      3437
          2114  20436                             LX4    -WC.CLENP                                               PAR      3438
                     15640                        BX6    -X0*X4      (X6) = CHAR LENGTH                          PAR      3439
                                                  LX4    WC.CLENP-1-WC.CTYPP                                     PAR      3440
                          76711                   =X7    M.INT                                                   PAR      3441
          2115  0334002117 +                      MI     X4,CSBS4    IF ADAPTABLE LENGTH                         PAR      3442
                          0100000000 X            CALL   NCS         ENTER CONSTANT                              PAR      3443
          2116  0400002121 +                      EQ     CSBS8                                                   PAR      3444
                                                                                                                 PAR      3445
          2117  5110000000 X             CSBS4    SA1    S=VD                                                    PAR      3446
                          20154                   LX1    TP.ORDP                                                 PAR      3447
                               20624              LX6    TP.BIASP                                                PAR      3448
                                                  LX7    TP.MODEP                                                PAR      3449
          2120  12217                             BX2    X1+X7                                                   PAR      3450
                     12662                        BX6    X6+X2       CONSTRUCT OPERAND = VD.+(CLEN)              PAR      3451
          2121  56660                    CSBS8    SA6    B6                                                      PAR      3452
                     66661                        SB6    B6+B1       STACK DEFAULT-LAST OPERAND                  PAR      3453
                          0400001510 +            EQ     POPX        EXIT..                                      PAR      3454
  
  
  
  
                                        **        A=SBS - SUBSTRING RIGHT PAREN.                                 PAR      3456
                                        *                                                                        PAR      3457
                                        *         ENTRY  (X4) = OPERAND FOR FIRST.                               PAR      3458
                                        *                (X5) = OPERAND FOR LAST.                                PAR      3459
                                                                                                                 PAR      3460
                                                                                                                 PAR      3461
          2122                           A=SBS    BSS    0           ENTRY...                                    PAR      3462
          2122  0100002155 +                      RJ     CSM         CHECK SUBSTRING MODE                        PAR      3463
          2123  5146777775                        SA4    B6-2        RESTORE *FIRST*                             FC5A385     7
                          10144                   BX1    X4                                                      PAR      3464
          2124  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT FIRST                PAR      3465
          2125  5160002153 +                      SA6    ASBSA       SAVE VALUE OF FIRST                         PAR      3466
                          66320                   SB3    B2          SAVE FLAG                                   PAR      3467
                               10155              BX1    X5                                                      PAR      3468
          2126  0100000000 X                      CALL   LCH         LOAD POSSIBLE CONSTANT LAST                 PAR      3469
          2127  56020                             SA0    B2          SAVE *LAST* FLAG                            PAR      3470
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    86
        POP/EMIT SUBSTRING.                                           A=SBS 
  
                     5160002154 +                 SA6    ASBSB       SAVE VALUE OF SECOND                        PAR      3471
          2130  5156777774                        SA5    B6-3        SUBSTRING SYMBOL/ARRAY INTER.               PAR      3472
                          0100004144 +            RJ     DOA         GET SYMBOL                                  PAR      3473
          2131  64200                             SB2    A0                                                      PAR      3474
                     5150002154 +                 SA5    ASBSB                                                   PAR      3475
                               10655              BX6    X5                                                      PAR      3476
          2132  57561                             =A5    B6-1        RELOAD *LAST*                               PAR      3477
                     55121                        =A1    A2+WA.W-WB.W                                            PAR      3478
                          43052                   MX0    WA.SYML                                                 PAR      3479
                                                  LX0    WA.SYML+WA.SYMP                                         PAR      3480
                               11701              BX7    X0*X1       ISOLATE SYMBOL                              PAR      3481
          2133  5170000000 X                      SA7    FILL.       SET CELL FOR ERROR MESSAGES                 PAR      3482
                          54121                   =A1    A2+WC.W-WB.W                                            PAR      3483
                               43051              MX0    -WC.CLIFL                                               PAR      3484
          2134  20137                             LX1    -WC.CLIFP                                               PAR      3485
                     15110                        BX1    -X0*X1      ISOLATE LENGTH INFO                         PAR      3486
                          20173                   LX1    WC.CLIFP+59-WC.CTYPP                                    PAR      3487
                               73210              SX2    X1                                                      PAR      3488
          2135  0321002136 +                      PL     X1,ASBS10   IF LENGTH CONSTANT                          FC5A294    35
                          76210                   =X2    1                                                       PAR      3490
                               20222              LX2    18          X2 = POSITIVE LARGE NUMBER                  PAR      3491
                                                                                                                 PAR      3492
          2136  5130002153 +             ASBS10   SA3    ASBSA       X3 = FIRST                                  PAR      3493
                          0530002140 +            NZ     B3,ASBS20   IF FIRST CONSTANT                           PAR      3494
          2137  76310                             =X3    1                                                       PAR      3495
                                                                                                                 PAR      3496
          2140  0520002141 +             ASBS20   NZ     B2,ASBS30   IF LAST IS CONSTANT                         PAR      3497
                          10622                   BX6    X2                                                      PAR      3498
                                                                                                                 PAR      3499
          2141  76010                    ASBS30   =X0    1                                                       PAR      3500
                     37130                        IX1    X3-X0                                                   PAR      3501
                          37760                   IX7    X6-X0                                                   PAR      3502
                               12717              BX7    X1+X7       MI IFF FIRST OR LAST NOT POSITIVE           PAR      3503
          2142  37063                             IX0    X6-X3       MI IFF FIRST GT LAST                        PAR      3504
                     12007                        BX0    X0+X7                                                   PAR      3505
                          37126                   IX1    X2-X6       MI IF LAST GT LENGTH                        FC5A164    70
                               12001              BX0    X0+X1                                                   PAR      3507
          2143  0320002145 +                      PL     X0,ASBS40   IF NO ERROR                                 PAR      3508
                          6170000000 X            FATAL  E.AT16      INVALID SUBSTRING                           PAR      3509
                                                                                                                 PAR      3510
          2145  5130000331 +             ASBS40   SA3    COLOP                                                   PAR      3511
                          0100004370 +            RJ     SDM         SET UP (SMOD) AND (SOPR)                    PAR      3512
          2146  0100003740 +                      RJ     ADT         T1 = (COLON, FIRST, LAST)                   PAR      3513
                                                                                                                 PAR      3514
          2147  5140000002 X                      SA4    SCR+AS.W    (1OP) = (ARGMIS)                            PAR      3515
                          5130000332 +            SA3    SUBST                                                   PAR      3516
          2150  57561                             SA5    B6-B1       (2OP) = T1                                  PAR      3517
                     0100004370 +                 RJ     SDM         SET UP (SMOD) AND (SOPR)                    PAR      3518
          2151  0100003740 +                      RJ     ADT         T2 = (SUBST, SYMORD, T1)                    PAR      3519
          2152  0400001510 +                      EQ     POPX        EXIT..                                      PAR      3520
                                                                                                                 PAR      3521
          2153                     1     ASBSA    BSS    1           PRESERVE VALUE OF FIRST HERE                PAR      3522
          2154                     1     ASBSB    BSS    1           PRESERVE VALUE OF LAST HERE                 PAR      3523
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    87
        POP/EMIT SUBSTRING.                                           CSM 
  
                                        **        CSM - CHECK SUBSTRING MODE.                                    PAR      3525
                                        *                                                                        PAR      3526
                                        *                                                                        PAR      3529
                                        *         ENTRY  (X5) = SUBSTRING OPERAND.                               PAR      3530
                                        *                (B6)-1 -> STACK ENTRY FOR OPERAND.                      PAR      3531
                                        *                                                                        PAR      3532
                                        *         EXIT   (X5) = LEGAL SUBSTRING OPERAND.                         PAR      3533
                                        *                STACK ENTRY ALSO LEGAL.                                 PAR      3534
                                        *                                                                        PAR      3535
                                        *         USES   X0,X2,X3,X6  B7  A5,A6.                                 PAR      3536
                                        *                                                                        FC5A385     8
                                        *         CALLS  CMR                                                     FC5A385     9
                                                                                                                 PAR      3538
                                                                                                                 PAR      3539
          2155  0400402155 +             CSM      SUBR   0           ENTRY/EXIT...                               PAR      3540
          2156  43071                             MX0    -TP.MODEL                                               PAR      3541
                                                  LX5    -TP.MODEP                                               PAR      3542
                     15250                        BX2    -X0*X5                                                  PAR      3543
                                                  LX5    TP.MODEP                                                PAR      3544
                          7232777775              SX3    X2-M.INT                                                PAR      3545
                                                  =X2    X2-M.BOOL                                               PAR      3546
          2157  0302002155 +                      ZR     X2,EXIT.    IF TYPE = BOOLEAN                           PAR      3548
                          0303002155 +            ZR     X3,EXIT.    IF TYPE = INTEGER                           PAR      3549
          2160  6170000000 X                      ANSI   E.AT17      ** NON-INTEGER EXPRESSION                   FC5A385    10
          2161  7160000002                        SX6    M.INT                                                   FC5A385    11
                          0100004076 +            RJ     CMR         COERCE MODE OF RESULT                       FC5A385    12
          2162  0470002164 +                      ZR     B7,CSM1     IF NO CONVERSION ERROR                      FC5A385    13
                          0100000000 X            FATAL  B7                                                      FC5A385    14
          2163  5150000000 X                      SA5    CONONE                                                  PAR      3550
                          6166000001              SB6    B6+1        CODE ASSUMES CONSTANT NOT IN ESTACK         FC5A491     6
                                                                                                                 FC5A385    15
          2164  10655                    CSM1     BX6    X5                                                      FC5A385    16
                     57661                        SA6    B6-B1                                                   PAR      3552
                          0400002155 +            EQ     EXIT.                                                   PAR      3554
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    88
        POP/EMIT DO LOOP INDICIES.                                    A=DO
  
                                        **        A=DO - PROCESS CLOSING OF *DO*.                                PAR      3557
                                                                                                                 PAR      3558
                                                                                                                 PAR      3559
          2165                           A=DO     BSS    0                                                       FC5A138     6
          2165  5110000001 X                      SA1    SCR+1       FETCH PRIOR ARGCOMA                         FC5A138     7
                                                  LX1    -AC.CNTP                                                FC5A138     8
                          7211777774              SX1    X1-3        MUST HAVE AT LEAST TWO INDICES              FC5A138     9
                                   0              ERRNZ  18-AC.CNTL                                              FC5A138    10
          2166  0321001457 +                      PL     X1,PAREXIT  IF SUFFICIENT DO INDEX PARAMETERS           FC5A138    11
                          6170000000 X            FATAL  E.DO00                                                  FC5A138    12
                                                                                                                 FC51277     7
          2170  5120000000 X             A=DO5    SA2    T=BLST                                                  FC51277     8
                          7262777766              SX6    X2-Z=BLST-1                                             FC5A138    14
          2171  54620                             SHRINK A2,X6                                                   FC5A138    15
                                                                                                                 FC51277     9
                     5110000000 X                 SA1    T.BLST                                                  FC51277    10
          2172  5120000000 X                      SA2    T=BLST                                                  FC51277    11
                          6222777776              SB2    X2-1                                                    FC51277    12
          2173  0302002177 +                      ZR     X2,A=DO9    IF NO NESTED BLOCK STRUCTURE                FC51277    13
                                                                                                                 FC51277    14
                          53312                   SA3    X1+B2       FETCH LC. WORD FOR BLOCK                    FC51277    15
                                                  LX3    -LC.CNTP                                                FC51277    16
                               63730              SB7    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY        FC51277    17
                                   0              ERRNZ  18-LC.CNTL                                              FC51277    18
          2174  20306                             HX3    LC.DO                                                   FC51277    19
                     21352                        AX3    -LC.DOL     EXTRACT DO LOOP HEADER LABEL INDEX          FC51277    20
                          0303002177 +            ZR     X3,A=DO9    IF NOT DO LOOP                              FC51277    21
                                                                                                                 FC51277    22
          2175  67227                             SB2    B2-B7                                                   FC51277    23
                     63212                        SB2    X1+B2       TOP OF T.BLST ENTRY                         FC51277    24
                          5132000006              SA3    B2+DO.W+1                                               FC51277    25
          2176  20352                             HX3    DO.IOD                                                  FC51277    26
                     21352                        AX3    -DO.IODL    EXTRACT IMPLIED IO DO FLAG                  FC51277    27
                          0313002170 +            NZ     X3,A=DO5    IF IMPLIED IO DO THEN SHRINK                FC51277    28
                                                                                                                 FC51277    29
          2177  76600                    A=DO9    =X6    0                                                       FC51277    30
                     5160000000 X                 SA6    CDIFLG      CLEAR TO AVOID SECOND SCRATCH               FC5A138    17
          2200  0400000000 X                      EQ     PSL                                                     FC5A138    18
  
  
  
  
                                        **        C=DO - DIGEST DO LOOP INDICIES.                                PAR      3562
                                        *                                                                        PAR      3563
                                        *         ENTRY  (X5) = OPERAND FOR THIS INDEX.                          PAR      3564
                                        *                (X6) = (ARGCOMA).                                       PAR      3565
                                        *                (AC.CNT) = 1 + INDEX NUMBER, SEE (B3) BELOW.            PAR      3566
                                        *                                                                        PAR      3567
                                        *         JUMPS TO INDIVIDUAL INDEX PROCESSORS, WITH --                  PAR      3568
                                        *                (B3) = CURRENT INDEX NUMBER.                            PAR      3569
                                        *                     = 0, CONTROL                                       PAR      3570
                                        *                     = 1, INITIAL                                       PAR      3571
                                        *                     = 2, LIMIT                                         PAR      3572
                                        *                     = 3, INCREMENT                                     PAR      3573
                                        *                     = 4, ERROR                                         PAR      3574
                                        *                (FILL.2) = ERROR LITERAL FOR NAME OF THIS PARAMETER.    PAR      3575
                                        *                                                                        PAR      3576
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    89
        POP/EMIT DO LOOP INDICIES.                                    C=DO
  
                                        *         EXIT   POPX                                                    PAR      3577
                                                                                                                 PAR      3578
          2201                           C=DO     BSS                ENTRY...                                    PAR      3579
                                                  LX6    -AC.CNTP                                                PAR      3580
          2201  6236777776                        SB3    X6-1        SET (B3) = CURRENT INDEX NUMBER             PAR      3581
                                   0              ERRNZ  18-AC.CNTL                                              PAR      3582
                          5110000000 X            SA1    T=PAR                                                   FC50842     5
          2202  5123000000 X                      SA2    B3+DO.DPC                                               PAR      3583
                          22601                   LX6    X1                                                      FC50842     6
                               10722              BX7    X2          PREPARE (FILL.2) FOR ERROR MESSAGE          PAR      3584
          2203  5160000004 +                      SA6    CURST                                                   FC50842     7
                          5170000000 X            SA7    FILL.2                                                  PAR      3585
          2204  0233002205 +                      JP     B3+DOXA     ENTER INDEX PROCESSOR                       PAR      3586
                                                                                                                 PAR      3587
          2205                           DOXA     BSS                                                            PAR      3588
      L      0                                    LOC    0                                                       PAR      3589
      L      0  0400002223 +                      EQ     DOC         CONTROL INDEX                               PAR      3590
      L      1  0400002213 +                      EQ     DOS         START (INITIAL) INDEX                       PAR      3591
      L      2  0400002217 +                      EQ     DOL         LIMIT INDEX                                 PAR      3592
      L      3  0400002221 +                      EQ     DOI         INCREMENT INDEX                             PAR      3593
          2211                                    LOC    *O                                                      PAR      3594
          2211                           DO.ERR1  BSS    0           TOO MANY INDICES                            PAR      3595
                                                                                                                 PAR      3596
                                        *         RETURN FOR ALL *DO* DEFINITION ERRORS.                         PAR      3597
                                                                                                                 PAR      3598
          2211  6170000000 X             DO.ERR1  FATAL  E.DO00                                                  PAR      3599
          2212  0400000426 +                      EQ     PARX        EXIT PAR ENTIRELY                           PAR      3600
  
  
  
  
                                        **        DOS - DO START INDEX.                                          PAR      3602
                                        *                                                                        PAR      3603
                                        *         THE EQUAL SIGN ON OSTACK IS CHANGED INTO A COMMA, SO           PAR      3604
                                        *         THAT FURTHER COMMAS WILL POP CORRECTLY.  THIS ALSO             PAR      3605
                                        *         AVOIDS COMPLICATIONS IN THE EQUAL-CHAINING MECHANISM,          PAR      3606
                                        *         AND WITH REPLACEMENT STATEMENT DIAGNOSES.                      PAR      3607
                                                                                                                 PAR      3608
                                                                                                                 PAR      3609
          2213  7100000013               DOS      =X0    PR.SLP                                                  PAR      3610
                          7130000042              =X3    O.COMMA                                                 PAR      3611
          2214  20011                             LX0    SP.STPRP                                                FC50104   130
                                                  LX3    SP.TBPRP                                                FC50104   131
                     12703                        BX7    X0+X3                                                   PAR      3614
                          56750                   SA7    B5          REPLACE *=* WITH SPECIAL *COMMA*            PAR      3615
          2215  0100002262 +                      RJ     CDP         CONVERT DO PARAMETER                        PAR      3616
          2216  56620                             =A6    B2+DOSI.W   SET (DO-START INDEX) IN DO TABLE            PAR      3620
                     0400001510 +                 EQ     POPX        EXIT..                                      PAR      3622
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    90
        POP/EMIT DO LOOP INDICIES.                                    DOL 
  
                                        **        DOL - DO LIMIT INDEX.                                          PAR      3624
                                        *                                                                        PAR      3625
                                        *         EXIT   DOI - PRESET DEFAULT INCREMENT.                         PAR      3626
                                                                                                                 PAR      3627
                                                                                                                 PAR      3628
          2217  0100002262 +             DOL      RJ     CDP         CONVERT DO PARAMETER                        PAR      3629
          2220  56621                             =A6    B2+DOLI.W   SET (LIMIT) IN DO TABLE                     PAR      3630
                     5150000000 X                 SA5    CONONE      PRESET (INCREMENT) = 1                      PAR      3631
                                        *         EQ     DOI         ...                                         PAR      3632
  
  
  
  
                                        **        DOI - DO INCREMENT INDEX.                                      PAR      3634
                                        *                                                                        PAR      3635
                                        ** FV     NOTE THAT DOI USED TO ATTEMPT TO CHECK FOR ZERO INCREMENT.     PAR      3636
                                        *         IT DID NOT CATCH TYPE REAL OR DOUBLE, HOWEVER.  THIS CODE      PAR      3637
                                        *         LETS A ZERO INCREMENT GO THRU.  IT WILL BE PROPERLY DIAGNOSED  PAR      3638
                                        *         IN *DTC*.  OTHER CHOICES ARE TO DIAGNOSE IN CONSTANT REDUCER,  PAR      3639
                                        *         OR PUT OUT THE DIVIDE, AND LET AN OBJECT TIME INFINITY KILL    PAR      3640
                                        *         THE PROGRAM.                                                   PAR      3641
                                                                                                                 PAR      3642
                                                                                                                 PAR      3643
          2221  0100002262 +             DOI      RJ     CDP         CONVERT DO PARAMETER                        PAR      3644
          2222  5162000002                        =A6    B2+DOII.W   SET (INCREMENT) IN DO TABLE                 PAR      3645
                          0400001510 +            EQ     POPX        EXIT..                                      PAR      3646
  
  
  
  
                                        **        DOC - DO CONTROL INDEX.                                        PAR      3648
                                        *                                                                        PAR      3649
                                        *         EXIT   C=DO - CYCLE AGAIN, FOR INITIAL INDEX.                  PAR      3650
                                                                                                                 PAR      3651
                                                                                                                 PAR      3652
          2223  10144                    DOC      BX1    X4                                                      PAR      3653
                     22504                        LX5    X4          REMEMBER (X5) = CONTROL-INDEX OPERAND       PAR      3654
                          0100004144 +            RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      3655
          2224  6170000000 X                      SB7    E.DO15      ** CONTROL INDEX CANNOT BE CONST/EXPR       PAR      3656
                          0316002243 +            NZ     X6,DOC4     IF OPERAND NOT ADDRESSABLE                  PAR      3657
          2225  55321                             =A3    A2-WB.W+WA.W                                            PAR      3658
                     43752                        MX7    WA.SYML                                                 PAR      3659
                          6170000000 X            SB7    E.DO04      ** CONTROL INDEX MUST BE SIMPLE VARIABLE    PAR      3660
                                                  HX3    WA.SYM                                                  PAR      3661
          2226  11673                             BX6    X7*X3       (FILL.) = NAME OF SYMBOL                    PAR      3662
                     5160000000 X                 SA6    FILL.                                                   PAR      3663
          2227  0321002243 +                      PL     X1,DOC4     IF OPERAND SYMBOL IS NOT *WB.VAR*           PAR      3664
                          20167                   SBIT   X1,WB.ARYP/WB.VARP                                      FC5A253     4
          2230  0331002243 +                      MI     X1,DOC4     IF SYMBOL IS ARRAY                          FC5A253     5
                          7110000200              CLAS=  X1,WB,(DEF)                                             FC50956     8
          2231  43701                             CLAS=  X7,WB,(1REF)                                            FC50221     5
                          15727                   BX7    -X7*X2      CLEAR STRAY FLAG                            FC50221     6
                               54720              SA7    A2                                                      PAR      3670
          2232  5130000000 X                      SA3    DATFLG                                                  PAR      3671
                          7233777772              SX3    X3-PM=DATA                                              PAR      3672
          2233  0303002237 +                      ZR     X3,DOC2     IF IN *DATA* PROCESSING                     PAR      3673
                          12771                   BX7    X7+X1       MARK VARIABLE AS DEFINED                    FC50956     9
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    91
        POP/EMIT DO LOOP INDICIES.                                    DOC 
  
                               54720              SA7    A2                                                      FC50956    10
          2234  5110000000 X                      SA1    T.BLST                                                  FC5A211    76
                          5120000000 X            SA2    T=BLST                                                  FC5A211    77
          2235  6272777771                        SB7    X2-Z=BLST-1+DOCI.W                                      FC5A211    78
                          76700                   =X7    0                                                       FC5A211    79
                               53717              SA7    X1+B7       CLEAR DOCI.W TO AVOID NOISE                 FC5A211    80
          2236  6130777776                        SB3    -1          INDICATE DO CONTROL INDEX                   FC50718    11
                          0100000000 X            CALL   DDR         DIAGNOSE DO REDEFINITION                    FC5A211    81
                                                                                                                 PAR      3675
          2237  5140004562 +             DOC2     SA4    ="M.OKDOC"                                              FC5A254     5
                          63200                   SB2    X0                                                      PAR      3677
                               22424              LX4    B2                                                      PAR      3678
          2240  0334002244 +                      MI     X4,DOC7     IF THIS TYPE PERMITTED                      PAR      3679
                          5230000000 X            SA3    X0+MOD.DPC                                              PAR      3680
          2241  10633                             BX6    X3                                                      PAR      3681
                     6170000000 X                 SB7    E.DO15      ** DO INDEX CANNOT BE <TYPE>                PAR      3682
          2242  5160000000 X                      SA6    FILL.3                                                  PAR      3683
          2243  0100000000 X             DOC4     FATAL  B7                                                      PAR      3684
                                                                                                                 PAR      3685
                                        *         DETERMINE CONTROL INDEX MODE.  SELECT CONCLUSION TURPLE.       PAR      3686
                                                                                                                 PAR      3687
          2244  5130000311 +             DOC7     SA3    DO.END                                                  PAR      3688
                          10455                   BX4    X5          (1OP) = (2OP)    /* INHIBIT MODE CONVERSION PAR      3689
          2245  5110000000 X                      SA1    WO.DOLG     FETCH DO LOOP LENGTH INDICATOR              PAR      3690
                          20152                   LX1    SP.SKELP                                                FC50104   132
                               36313              IX3    X1+X3       SELECT SKELETON (LONG OR SHORT)             PAR      3692
          2246  0100004370 +                      RJ     SDM         SELECT DOMINANT MODE                        PAR      3693
          2247  5110000002 +                      SA1    SMOD                                                    PAR      3694
                          5120000000 X            SA2    T=BLST                                                  PAR      3695
          2250  73610                             SX6    X1                                                      PAR      3696
                     5160000000 X                 SA6    DOMODE                                                  PAR      3697
                               43022              MX0    SP.SKELL                                                FC50104   133
          2251  6272777775                        SB7    X2-Z=BLST-1+DP.W                                        PAR      3699
                          5110000000 X            SA1    T.BLST                                                  PAR      3700
                                                  HX3    SP.SKEL                                                 FC50104   134
          2252  11703                             BX7    X0*X3       (DP.TURC)[T.DO] = CONCLUSION SKELETON       PAR      3702
                     20722                        LX7    -SP.SKELP+DP.TURCP                                      FC50104   135
                          53717                   SA7    X1+B7                                                   PAR      3704
                               76110              SX1    B1                                                      PAR      3706
          2253  5120000000 X                      SA2    ARGCOMA                                                 PAR      3707
                          57561                   SA5    B6-B1       RETURN (X5) = (START-INDEX) OPERAND         PAR      3708
                               10744              BX7    X4                                                      PAR      3709
                                                  LX1    AC.CNTP                                                 PAR      3710
          2254  36621                             IX6    X2+X1       INCREMENT COMMA COUNT                       PAR      3711
                     5077777773                   =A7    A7-DP.W+DOCI.W    SET (CONTROL-INDEX) IN DO TABLE       PAR      3712
                               54620              SA6    A2                                                      PAR      3713
                                                  LX6    -AC.CNTP    RETURN (X6) = COMMA COUNT                   PAR      3714
          2255  20720                             LX7    -TP.ORDP                                                PAR      3715
                     43154                        MX1    -TP.ORDL                                                PAR      3716
                          15771                   BX7    -X1*X7      EXTRACT SYMORD OF CONTROL INDEX             PAR      3717
                               20755              LX7    WB.DIP                                                  PAR      3718
          2256  5027000001                        SA2    A7-DOCI.W+DORT.W  X2 = OPERAND OF DO-TOP LABEL          PAR      3719
                          20220                   LX2    -TP.ORDP                                                PAR      3720
                               15221              BX2    -X1*X2      EXTRACT SYMORD                              PAR      3721
          2257  5110000000 X                      SA1    T.SYM                                                   PAR      3722
                          63720                   SB7    X2                                                      PAR      3723
                               20201              LX2    1                                                       PAR      3724
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    92
        POP/EMIT DO LOOP INDICIES.                                    DOC 
  
          2260  63727                             SB7    X2+B7                                                   PAR      3725
                     66771                        =B7    B7+WB.W     CONVERT TO *WB* INDEX                       PAR      3726
                          53117                   SA1    X1+B7       X1 = *WB* OF DO-TOP                         PAR      3727
                               12771              BX7    X7+X1       MERGE WITH INDEX OF CONTROL VARIABLE        PAR      3728
          2261  54710                             SA7    A1          UPDATE *WB*                                 PAR      3729
                     0400002201 +                 EQ     C=DO        CYCLE FOR (START-INDEX)                     PAR      3730
  
  
  
  
                                        **        CDP - CONVERT DO PARAMETER.                                    PAR      3732
                                        *                                                                        PAR      3733
                                        *         ENTRY  (X5) = INDEX OPERAND.                                   PAR      3734
                                        *                                                                        PAR      3735
                                        *         EXIT   (B2) = FWA ENTRY FOR THIS LOOP.                         PAR      3736
                                        *                (B6)  DECREMENTED.                                      PAR      3737
                                        *                (X6) = OPERAND IN DESIRED MODE.                         PAR      3738
                                        *                                                                        PAR      3739
                                        *         CALLS  CMR, FATAL, LCH.                                        PAR      3740
                                                                                                                 PAR      3741
                                                                                                                 PAR      3742
          2262  0400402262 +             CDP      SUBR   0           ENTRY/EXIT...                               PAR      3743
          2263  10155                             BX1    X5                                                      PAR      3744
                     0100000000 X                 CALL   LCH         LOAD/CHECK CONSTANT                         PAR      3745
          2264  5130004563 +                      SA3    ="M.OKDO"                                               PAR      3746
                          5110000000 X            SA1    DOMODE                                                  PAR      3747
          2265  63200                             SB2    X0                                                      PAR      3748
                     22323                        LX3    B2                                                      PAR      3749
                          0333002272 +            MI     X3,CDP2     IF THIS TYPE PERMITTED                      PAR      3750
          2266  5220000000 X                      SA2    X0+MOD.DPC                                              PAR      3751
                          10722                   BX7    X2                                                      PAR      3752
          2267  5170000000 X                      SA7    FILL.3                                                  PAR      3753
                          6170000000 X            FATAL  E.DO16      ** DO <INDEX> PARAMETER CANNOT BE <TYPE>    PAR      3754
          2271  5150000000 X                      SA5    S=BU                                                    PAR      3755
                                                  LX1    TP.MODEP                                                PAR      3756
                          12551                   BX5    X5+X1       INVENT INNOCOUS OPERAND                     PAR      3757
                                                  LX1    -TP.MODEP                                               PAR      3758
                                                                                                                 PAR      3759
          2272  10611                    CDP2     BX6    X1                                                      PAR      3760
                     0100004076 +                 RJ     CMR         COERCE MODE OF PARAMETER                    PAR      3761
                                                                                                                 PAR      3762
          2273  5110000000 X                      SA1    T.BLST                                                  PAR      3763
                          5120000000 X            SA2    T=BLST                                                  PAR      3764
          2274  10655                             BX6    X5          RETURN (X6) = CONVERTED OPERAND             PAR      3765
                     36312                        IX3    X1+X2                                                   PAR      3766
                          67661                   SB6    B6-B1       DECREMENT ESTACK TOP                        PAR      3767
          2275  6223777766                        SB2    X3-Z=BLST-1                                             PAR      3768
                          0400002262 +            EQ     EXIT.                                                   PAR      3769
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    93
        POP/EMIT DO LOOP INDICIES.                                    DTC 
  
                                        **        DTC - DETERMINE TRIP COUNT.                                    PAR      3771
                                        *                                                                        PAR      3772
                                        *         ENTRY  FROM LABEL/CDI AFTER DO PARAMETERS ARE PARSED.          PAR      3773
                                        *                TOP ENTRY ON (T.BLST) SETUP.                            PAR      3774
                                        *                                                                        PAR      3775
                                        *         EXIT   (X5) = TRIP COUNT OPERAND (INTEGER MODE).               PAR      3776
                                        *                                                                        PAR      3777
                                        *         USES   CANNOT DESTROY B4.                                      PAR      3778
                                        *                                                                        PAR      3779
                                        *         CALLS  ACT, CMR                                                PAR      3780
                                                                                                                 PAR      3781
                                                                                                                 PAR      3782
          2276  0400402276 +             DTC      SUBR   =           ...ENTRY/EXIT...                            PAR      3783
          2277  5110000000 X                      SA1    T.BLST                                                  PAR      3784
                          5120000000 X            SA2    T=BLST                                                  PAR      3785
          2300  36112                             IX1    X1+X2                                                   PAR      3786
                     6221777766                   SB2    X1-Z=BLST-1                                             PAR      3787
                               56520              =A5    B2+DOSI.W          (2OP) = M1                           FC50772    11
          2301  54451                             =A4    A5-DOSI.W+DOLI.W   (1OP) = M2                           FC50772    12
                     13645                        BX6    X4-X5                                                   FC50772    13
                          5160002325 +            SA6    DTCA        SAVE FOR LATER REFERENCE                    FC5A122     4
          2302  54141                             =A1    A4-DOLI.W+DOII.W           M3                           FC50772    14
                     10611                        BX6    X1                                                      PAR      3791
                          56661                   =A6    B6+1        ESTACK[TOP+1] = M3                          FC50772    15
                               56660              =A6    B6+0        ESTACK[TOP+0] = M3                          FC50772    16
          2303  6166000004                        SB6    B6+4        TOP = TOP + 4                               PAR      3795
                          7110000015              SX1    O.MIN                                                   PAR      3796
          2304  0100003732 +                      RJ     ACT         T1 = (MINUS, M2, M1)                        FC50772    17
                                                                                                                 PAR      3798
          2305  57561                             SA5    B6-B1                                                   PAR      3799
                     7110000014                   SX1    O.PL                                                    FC50772    18
                               55451              SA4    A5-B1                                                   PAR      3801
          2306  0100003732 +                      RJ     ACT         T2 = (PLUS, T1, M3)                         FC50772    19
                                                                                                                 PAR      3803
          2307  5120000000 X                      SA2    CONONE                                                  FC5A132    76
                          57461                   SA4    B6-B1                                                   PAR      3804
                               55541              SA5    A4-B1                                                   PAR      3805
          2310  13025                             BX0    X2-X5                                                   FC5A132    77
                     10155                        BX1    X5                                                      PAR      3806
                          0300002315 +            ZR     X0,DTC15    IF M3 = 1                                   FC5A132    78
          2311  0100000000 X                      CALL   LCT         LOAD CONSTANT TEST                          PAR      3807
          2312  0420002314 +                      ZR     B2,DTC10    IF INCR. NOT CONSTANT                       PAR      3808
                          0316002314 +            NZ     X6,DTC10    IF INCR. NZ                                 PAR      3809
          2313  6170000000 X                      FATAL  E.DO02      INCR. MUST NOT BE ZERO                      PAR      3810
                                                                                                                 PAR      3811
          2314  7110000017               DTC10    SX1    O.DIV                                                   PAR      3812
                          0100003732 +            RJ     ACT         T3 = (DIV, T2, M3)                          PAR      3813
                                                                                                                 PAR      3814
          2315  5156777776               DTC15    SA5    B6-1        FETCH T3                                    FC5A132    79
                          5120000000 X            SA2    DATFLG                                                  PAR      3816
          2316  0302002322 +                      ZR     X2,DTC20    IF NOT IN DATA STATEMENT                    PAR      3817
                          10255                   BX2    X5                                                      PAR      3818
                               43071              MX0    -TP.MODEL                                               PAR      3819
                                                  LX2    -TP.MODEP                                               PAR      3820
          2317  15020                             BX0    -X0*X2                                                  PAR      3821
                     6220777775                   SB2    X0-M.INT                                                PAR      3822
          2320  0300002322 +                      ZR     X0,DTC20    IF TC IS BOOLEAN                            PAR      3823
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    94
        POP/EMIT DO LOOP INDICIES.                                    DTC 
  
                                   0              ERRNZ  M.BOOL                                                  PAR      3824
                          0420002322 +            ZR     B2,DTC20    IF TC IS INTEGER                            PAR      3825
          2321  6170000000 X                      FATAL  E.DO17      MUST BE INTEGER IN DATA                     PAR      3826
                                                                                                                 PAR      3827
          2322  76611                    DTC20    =X6    M.INT                                                   PAR      3828
                     67661                        SB6    B6-B1       TOP = TOP - 1     /* RESTORE (B6)           PAR      3829
                          0100004076 +            RJ     CMR         COERCE MODE:  TC = INT (T3)                 PAR      3830
          2323  5110002325 +                      SA1    DTCA                                                    FC5A122     5
                          0311002276 +            NZ     X1,EXIT.    IF M1 .NE. M2                               FC5A122     6
          2324  5150000000 X                      SA5    CONONE                                                  FC5A122     7
                          0400002276 +            EQ     EXIT.                                                   FC5A122     8
                                                                                                                 FC5A122     9
          2325                     1     DTCA     BSS    1                                                       FC5A122    10
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    95
        POP/EMIT EXPONENTIATION.                                      POP.EXP 
  
                                        **        POP.EXP - SYNTHESIZE RESULT OF EXPONENTIATION.                 PAR      3834
                                        *                                                                        PAR      3835
                                        *         POP.EXP EVALUATES CURRENT EXPONENTIAL BEING POPPED FOR         PAR      3836
                                        *         SIMPLE COMPILE TIME REDUCTION, TRANSFORMATIONS ON OPERATOR AND PAR      3837
                                        *         CONVERSION NECESSARY TO PROCESS BOTH EXTERNAL AND INTERNAL     PAR      3838
                                        *         PROCESSING.                                                    PAR      3839
                                        *                                                                        PAR      3840
                                        *         TRANSFORMATIONS POSSIBLE.                                      PAR      3841
                                        *                                                                        PAR      3842
                                        *         1.  INTEGER TO REAL (CONSTANT).                                PAR      3843
                                        *             IF POWER HAS AN INTEGRAL VALUE, CHANGE FORM TO             PAR      3844
                                        *             FLOAT(INTEGER) TO IFIX(REAL).                              PAR      3845
                                        *                                                                        PAR      3846
                                        *         2.  INTEGER TO INTEGER (CONSTANT).                             PAR      3847
                                        *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS   PAR      3848
                                        *             INLINE.                                                    PAR      3849
                                        *                                                                        PAR      3850
                                        *         3.  REAL TO INTEGER (CONSTANT).                                PAR      3851
                                        *             IF CONSTANT IS .LE. EXP.IL, PROCESS USING DEFINED MACROS   PAR      3852
                                        *             INLINE.                                                    PAR      3853
                                        *                                                                        PAR      3854
                                        *                                                                        PAR      3855
                                        *         ENTRY  (X3) = O.EXP OPERATOR.                                  PAR      3856
                                        *                (X4) = 1ST OPERAND.                                     PAR      3857
                                        *                (X5) = 2ND OPERAND.                                     PAR      3858
                                                                                                                 PAR      3859
                                                                                                                 PAR      3860
                                  20     EXP.IL   EQU    16          UPPER LIMIT FOR COMPUTING ** INLINE         FC5A390     6
                                  20     TOIL.I   EQU    EXP.IL      INTEGER                                     PAR      3862
                                  20     TOIL.R   EQU    EXP.IL      REAL                                        PAR      3863
                                   2     TOIL.D   EQU    2           DOUBLE                                      PAR      3864
                                   4     TOIL.Z   EQU    4           COMPLEX                                     PAR      3865
                                                                                                                 PAR      3866
                                                                                                                 PAR      3867
          2326                           POP.EXP  BSS    0                                                       PAR      3868
          2326  5110000000 X                      SA1    =XDATFLG                                                PAR      3869
                          5130000345 +            SA3    EXPOP                                                   PAR      3870
          2327  0311001542 +                      NZ     X1,POP.STD  IF COMPILING DATA STATEMENT                 PAR      3871
                                                                                                                 PAR      3872
          2330  43071                    EXP10    MX0    -TP.MODEL                                               PAR      3873
                     15640                        BX6    -X0*X4      MODE OF BASE                                PAR      3874
                          5216002407 +            SA1    X6+OM=EXP                                               PAR      3875
                                   0              ERRNZ  M.BOOL                                                  PAR      3876
          2331  0316002332 +                      NZ     X6,EXP11    IF MODE OF BASE NOT BOOLEAN                 PAR      3877
                          76611                   =X6    M.INT                                                   PAR      3878
                                                                                                                 PAR      3879
          2332  15350                    EXP11    BX3    -X0*X5      (X3) = MODE OF POWER                        PAR      3880
                     5160000002 +                 SA6    SMOD        (SMOD) = EFFECTIVE MODE OF BASE             PAR      3881
                               20303              LX3    3                                                       PAR      3882
          2333  63230                             SB2    X3          SHIFT COUNT = 8 * (MODE OF POWER)           PAR      3883
                     43064                        MX0    -8                                                      PAR      3884
                          23121                   AX1    B2,X1                                                   PAR      3885
                               15610              BX6    -X0*X1      (X6) = OFFSET TO CONTROL WORD               PAR      3886
          2334  5236002416 +                      SA3    X6+EXP.BASE                                             PAR      3887
                          10733                   BX7    X3                                                      PAR      3888
                                                  HX3    IT.DPC                                                  PAR      3889
                               21330              AX3    -IT.DPCL                                                PAR      3890
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    96
        POP/EMIT EXPONENTIATION.                                      POP.EXP 
  
          2335  0303002420 +                      ZR     X3,EXP90    IF ILLEGAL MODE COMBO                       PAR      3891
                          0100004135 +            RJ     DDC         DIAGNOSE DOUBLE AND COMPLEX EXPRESSION      FC50014    28
                                                                                                                 PAR      3892
          2336  5170002600 +                      SA7    /CF/IE      SAVE INTRINSIC TABLE ENTRY                  PAR      3893
                          74630                   SX6    A3                                                      PAR      3894
                               10155              BX1    X5                                                      PAR      3895
          2337  5160000017 +                      SA6    EXPA        REMEMBER (EXPA) = ADDRESS OF CONTROL WORD   PAR      3896
                          0100000000 X            CALL   LCT         CHECK IF POWER IS CONSTANT                  PAR      3897
          2340  5160000022 +                      SA6    TER2        SAVE POWER                                  PAR      3898
                          0420002400 +            ZR     B2,EXP60    IF POWER NOT CONSTANT                       PAR      3899
          2341  6270777774                        SB7    X0-M.REAL                                               PAR      3900
                          0570002356 +            NZ     B7,EXP30    IF POWER NOT MODE REAL                      PAR      3901
                                                                                                                 PAR      3902
                                        *         POWER IS REAL CONSTANT.  IF IT IS AN EXACT INTEGER, CHANGE     PAR      3903
                                        *         THE OPERAND SO THAT THE EQUIVALENT (REAL ** INT) OPERATION     PAR      3904
                                        *         IS EVALUATED.  SUPPRESS THIS ACTION WHEN PARSING A REQUIRED    PAR      3905
                                        *         CONSTANT EXPRESSION (E.G., PARAMETER).                         PAR      3906
                                        *                                                                        PAR      3907
                                        *         IF NOT PARAMETER STMT THEN                                     PAR      3908
                                        *             IF LIR(POWER) THEN                                         PAR      3909
                                        *                 IF MODE.BASE IN [INTEGER, BOOL] THEN                   PAR      3910
                                        *                     BASE := FLOAT(BASE)                                PAR      3911
                                        *                 ENDIF                                                  PAR      3912
                                        *                 POWER := IFIX(POWER)                                   PAR      3913
                                        *                 STARTOVER                                              PAR      3914
                                        ** FV         ELSIF POWER = 0.5 THEN                                     PAR      3915
                                        *                 CHANGE TO SQRT CALL      /* HOW ???                    PAR      3916
                                        *             ENDIF                                                      PAR      3917
                                        *         ENDIF                                                          PAR      3918
                                                                                                                 PAR      3919
                                                                                                                 PAR      3920
          2342  5110000000 +                      SA1    PARNOW                                                  PAR      3921
                          6271777770              SB7    X1-PM=PARM                                              PAR      3922
          2343  0570002346 +                      NZ     B7,EXP20    IF NOT 'PARAMETER' PROCESSING               FC5A156    18
                          6170000000 X            FATAL  E.PX7       REAL POWER ILLEGAL ON 'PARAMETER'           FC5A156    19
          2345  5150000000 X                      SA5    CONONE                                                  FC5A156    20
                          0400000426 +            EQ     PARX                                                    FC5A156    21
                                                                                                                 FC5A156    22
          2346  10266                    EXP20    BX2    X6                                                      FC5A156    23
                     0100000000 X                 CALL   LIR         LOAD INTEGRAL REAL                          PAR      3925
          2347  0316002375 +                      NZ     X6,EXP40    IF POWER NOT INTEGRAL VALUE                 PAR      3926
                          10577                   BX5    X7                                                      PAR      3927
                               57761              SA7    B6-B1       POWER := IFIX (POWER)                       PAR      3928
          2350  43071                             MX0    -TP.MODEL                                               PAR      3929
                                                  LX4    -TP.MODEP                                               PAR      3930
                     15340                        BX3    -X0*X4      (X3) = MODE OF BASE                         PAR      3931
                                                  LX4    TP.MODEP                                                PAR      3932
                          10622                   BX6    X2                                                      PAR      3933
          2351  5160000022 +                      SA6    TER2                                                    PAR      3934
                          7160000003              =X6    M.REAL                                                  PAR      3935
          2352  37336                             IX3    X3-X6                                                   PAR      3936
                     0323002330 +                 PL     X3,EXP10    IF MODE.BASE .GE. REAL                      PAR      3937
                               10544              BX5    X4                                                      PAR      3938
          2353  0100004076 +                      CALL   CMR         FLOAT (BASE)                                PAR      3939
                                                  IFEQ   TEST,ON,1                                               PAR      3940
                                                  NZ     B7,"BLOWUP" IF BASE MODE NFG                            PAR      3941
          2354  10755                             BX7    X5                                                      PAR      3942
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    97
        POP/EMIT EXPONENTIATION.                                      POP.EXP 
  
                     57561                        SA5    B6-B1                                                   PAR      3943
                          22407                   LX4    X7                                                      PAR      3944
                               55751              SA7    A5-B1                                                   PAR      3945
          2355  0400002330 +                      EQ     EXP10       STARTOVER..                                 PAR      3946
                                                                                                                 PAR      3947
                                                                                                                 PAR      3948
                                        *         IF POWER IS INTEGER CONSTANT, HANDLE END CASE VALUES.          PAR      3949
                                        *         (NOTE THAT POWER = 0 CANNOT BE CHANGED INTO CONSTANT 1 UNLESS  PAR      3950
                                        *         BASE IS CONSTANT.  OTHERWISE, MIGHT LOOSE AN EXECUTION ERROR   PAR      3951
                                        *         OF VARIABLE ZERO ** ZERO.)                                     PAR      3952
                                                                                                                 PAR      3953
                                        *         IF BOOL DO WHAT ????                                           PAR      3954
                                                                                                                 PAR      3955
          2356  66771                    EXP30    =B7    B7+M.REAL-M.INT                                         PAR      3956
                     0570002375 +                 NZ     B7,EXP40    IF POWER NOT MODE INTEGER                   PAR      3957
          2357  0316002372 +                      NZ     X6,EXP35    IF POWER VALUE NOT ZERO                     PAR      3958
                          10144                   BX1    X4                                                      PAR      3959
          2360  0100000000 X                      CALL   LCT         LOAD CONSTANT TEST (BASE)                   PAR      3960
          2361  6170000000 X                      SB7    =XE.XP7     ** VARIABLE TO 0 RESULTS = 0                PAR      3961
                          0420002365 +            ZR     B2,EXP32    IF BASE NOT CONSTANT                        PAR      3962
          2362  0316002366 +                      NZ     X6,EXP34    IF BASE NOT ZERO                            PAR      3963
                          6170000000 X            TRIV   E.XP3       ** 0 TO 0 IS INDEFINITE                     PAR      3964
          2364  0400002400 +                      EQ     EXP60                                                   FC5A243    23
                                                                                                                 PAR      3966
          2365  0100000000 X             EXP32    TRIV   B7                                                      PAR      3967
          2366  5120000002 +             EXP34    SA2    SMOD                                                    PAR      3968
                          5150000000 X            SA5    CONONE                                                  PAR      3969
          2367  10622                             BX6    X2                                                      PAR      3970
                     0100004076 +                 CALL   CMR         CONVERT MODE OF (CONSTANT ONE)              PAR      3971
          2370  67661                             =B6    B6-1                                                    PAR      3972
                     10655                        BX6    X5                                                      PAR      3973
                          57661                   SA6    B6-B1                                                   PAR      3974
          2371  0400001510 +                      EQ     POPX        EXIT..                                      PAR      3975
                                                                                                                 PAR      3976
                                        *         CHECK IF POWER IS *1*.  IF SO, REMOVE CONSTANT *1*             PAR      3977
                                        *         FROM *ESTACK* AND EXIT, POPPING NOTHING.                       PAR      3978
                                                                                                                 PAR      3979
          2372  43273                    EXP35    MX2    -1                                                      PAR      3980
                     36062                        IX0    X6+X2                                                   PAR      3981
                          0310002375 +            NZ     X0,EXP40    IF POWER NE 1                               PAR      3982
          2373  7130000010                        CLAS=  X3,TP,(EXPR)                                            PAR      3983
                          67661                   =B6    B6-1                                                    PAR      3984
                               12643              BX6    X4+X3                                                   PAR      3985
          2374  57661                             =A6    B6-1        RESTORE BASE (IN CASE CHANGED)              PAR      3986
                     0400001510 +                 EQ     POPX        EXIT..                                      PAR      3987
                                                                                                                 PAR      3988
                                        *         GENERAL TRANSFORMS NOW EXHAUSTED.  GOTO SPECIFIC PROCESSOR,    PAR      3989
                                        *         WHEN ONE EXISTS.                                               PAR      3990
                                                                                                                 PAR      3991
          2375  5110000017 +             EXP40    SA1    EXPA                                                    PAR      3992
                          53310                   SA3    X1                                                      PAR      3993
                               63310              SB3    X1          (B3) = ADDRESS OF CONTROL WORD              PAR      3994
          2376  20352                             HX3    IT.PAR                                                  PAR      3995
                     0323002400 +                 PL     X3,EXP60    IF NO SPECIAL PROCESSING                    PAR      3996
          2377  5120000022 +                      SA2    TER2        (X2) = VALUE OF CONSTANT POWER              PAR      3997
                          0233000001              JP     B3+1                                                    PAR      3998
                                                                                                                 PAR      3999
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    98
        POP/EMIT EXPONENTIATION.                                      POP.EXP 
  
                                                                                                                 PAR      4000
                                        *         NO REDUCTION POSSIBLE.  ISSUE TURPLES LIKE FUNCTION CALL.      PAR      4001
                                                                                                                 PAR      4002
          2400  5110002600 +             EXP60    SA1    /CF/IE                                                  PAR      4003
                          43071                   MX0    -IT.ARGML                                               PAR      4004
                               20171              LX1    -IT.ARGMP                                               PAR      4005
          2401  15610                             BX6    -X0*X1      (SMOD) = MODE OF RESULT                     PAR      4006
                     5160000002 +                 SA6    SMOD                                                    PAR      4007
                               57561              SA5    B6-B1                                                   PAR      4008
          2402  55451                             SA4    A5-B1                                                   PAR      4009
                     22705                        LX7    X5                                                      PAR      4010
                          66661                   SB6    B6+B1       ADJUST ESTACK, FUNCTION NAME NOT THERE      PAR      4011
                               10644              BX6    X4                                                      PAR      4012
          2403  57761                             SA7    B6-B1       STACK BASE AND POWER                        PAR      4013
                     55671                        SA6    A7-B1                                                   PAR      4014
                          20103                   LX1    IT.ARGMP                                                PAR      4015
                               76711              =X7    2           INDICATE TWO ARGUMENTS                      PAR      4016
          2404  5120000027 +                      SA2    FUNCALL+2                                               PAR      4017
                          43600                   MX6    0           FAKE (WB.JPF) = 0                           PAR      4018
          2405  5170002576 +                      SA7    /CF/AC                                                  PAR      4019
                          5160002601 +            SA6    /CF/IT                                                  PAR      4020
          2406  0400002652 +                      EQ     ABEF                                                    PAR      4021
  
  
  
  
                                        **        EMODE - MODE SELECTION MATRIX FOR EXPONENTIATION.              PAR      4023
                                                                                                                 PAR      4024
                                                                                                                 PAR      4025
                                         EMODE    MACRO  MU,MI,MR,MD,MZ                                          PAR      4026
                                         C        MICRO  1,,$4/0$                                                PAR      4027
                                        .1        ECHO   ,FORMS=(HE,MZ,MD,MR,MI,LE,MU)                           PAR      4028
                                         C        MICRO  1,,$"C",8/TO.FORMS-EXP.BASE$                            PAR      4029
                                        .1        ENDD                                                           PAR      4030
                                                  VFD    "C"                                                     PAR      4031
                                         EMODE    ENDM                                                           PAR      4032
                                                                                                                 PAR      4033
                                                                                                                 PAR      4034
          2407                           OM=EXP   BSS    0                                                       PAR      4035
      L      0                                    LOC    0                                                       PAR      4036
      L      0  00010140240404000020     M.BOOL   EMODE  II,II,IR,ID,IZ                                          PAR      4037
      L      1  00010000000000000000     M.LOG    EMODE  LE,LE,LE,LE,LE                                          PAR      4038
      L      2  00010140240404000020     M.INT    EMODE  II,II,IR,ID,IZ                                          PAR      4039
      L      3  00010220400705200025     M.REAL   EMODE  RI,RI,RR,RD,RZ                                          PAR      4040
      L      4  00010300541206000030     M.DBL    EMODE  DI,DI,DR,DD,DZ                                          PAR      4041
      L      5  00010360701506600033     M.CPLX   EMODE  ZI,ZI,ZR,ZD,ZZ                                          PAR      4042
      L      6  00010020040100200001     M.CHAR   EMODE  HE,HE,HE,HE,HE                                          PAR      4043
      L   2416                                    LOC    *O                                                      PAR      4044
                                                  PURGMAC EMODE                                                  PAR      4045
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE    99
        POP/EMIT EXPONENTIATION.                                      TO.** 
  
                                        **        EXPONENTATION CONTROL WORDS.                                   PAR      4047
                                        *                                                                        PAR      4048
                                        *         EACH MODE COMBINATION IN (OM=EXP) POINTS TO ONE OF THE         PAR      4049
                                        *         FOLLOWING CONTROL WORDS.  EACH WORD IS EITHER (A) AN ERROR     PAR      4050
                                        *         INDICATION, OR (B) AN INTRINSIC FUNCTION SPECIFIER.            PAR      4051
                                        *                                                                        PAR      4052
                                        *         THE WORDS ARE NOMINALLY IN (IT.) FORMAT.  AN ERROR WORD HAS    PAR      4053
                                        *                (IT.DPC) = 0                                            PAR      4054
                                        *                (BITS 17-00) = DIAGNOSTIC ADDRESS.                      PAR      4055
                                        *                                                                        PAR      4056
                                        *         IF (IT.PAR) IS SET THEN THE WORD FOLLOWING THE (IT.) ENTRY     PAR      4057
                                        *         IS EXECUTABLE CODE, BEGINNING A SPECIAL ANALYSIS ROUTINE,      FC50014    29
                                        *         CALLED FOR CONSTANT OPERANDS ONLY.                             FC50014    30
                                                                                                                 PAR      4059
                                                                                                                 PAR      4060
          2416                           EXP.BASE BSS    0           FWA OF CONTROL WORDS                        PAR      4061
                                                                                                                 PAR      4062
                                                                                                                 PAR      4063
                                        *         ILLEGAL COMBINATIONS.                                          PAR      4064
                                                                                                                 PAR      4065
          2416  00000000000000000000 X   TO.LE    CON    E.XP1       LOGICAL BASE OR POWER                       PAR      4066
          2417  00000000000000000000 X   TO.HE    CON    E.XP6       CHARACTER BASE OR POWER                     PAR      4067
                                                                                                                 PAR      4072
          2420  63770                    EXP90    FATAL  X7                                                      PAR      4073
          2421  67661                             SB6    B6-B1       SET RESULT = BASE                           PAR      4074
                     0400001510 +                 EQ     POPX        EXIT..                                      PAR      4075
  
  
  
  
                                        **        OBJECT LIBRARY EXPONENTIAL ROUTINES.                           PAR      4077
                                                                                                                 PAR      4078
                                                                                                                 PAR      4079
                                         EXPEX    MACRO  NAME,ARGTYP,FUNTYP,PAR,FLAGS,BRP                        PAR      4080
                                         Y        MICRO  1,, NAME                                                PAR      4081
                                         Z        MICCNT Y                                                       PAR      4082
                                                  ERRNZ  4-Z         ASSUMED LENGTH IS 4                         PAR      4083
                                        *                                                                        PAR      4084
                                         C        SET                                                            PAR      4085
                                                  IRP    BRP                                                     PAR      4086
                                         C        SET    C+1S_BRP                                                PAR      4087
                                                  IRP                                                            PAR      4088
                                         .D       DECMIC C                                                       PAR      4089
                                        *                                                                        PAR      4090
                                         .A       SET    6+PAR                                                   PAR      4091
                                         .C       MICRO  1,,$NAME$                                               PAR      4092
                                                  VFD    IT.DPCL/0L".C",IT.ATTRL/.A,IT.ARGCL/2_,IT.JPADL/".D",__ PAR      4093
                                        ,IT.ARGML/M.ARGTYP,IT.MODEL/M.FUNTYP                                     PAR      4094
                                         EXPEX    ENDM                                                           PAR      4095
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   100
        POP/EMIT EXPONENTIATION.                                      =XLIB 
  
                                        **        GENERAL COMBINATIONS - NO SPECIAL ANALYSIS.                    PAR      4097
                                        ** FV     DO ANY EXPONENT ROUTINE PRESERVE ANY B-REGISTERS ???           PAR      4098
                                                                                                                 PAR      4099
                                                                                                                 PAR      4100
          2422  11241730000003100023     TO.IR    EXPEX  ITOX,INT,REAL                                           PAR      4101
          2423  11241704000003100024     TO.ID    EXPEX  ITOD,INT,DBL                                            PAR      4102
          2424  11241732000003100025     TO.IZ    EXPEX  ITOZ,INT,CPLX                                           PAR      4103
          2425  30241731000003100033     TO.RR    EXPEX  XTOY,REAL,REAL                                          PAR      4104
          2426  30241704000003100034     TO.RD    EXPEX  XTOD,REAL,DBL                                           PAR      4105
          2427  30241732000003100035     TO.RZ    EXPEX  XTOZ,REAL,CPLX                                          PAR      4106
          2430  04241730000003100044     TO.DR    EXPEX  DTOX,DBL,DBL                                            PAR      4107
          2431  04241704000003100044     TO.DD    EXPEX  DTOD,DBL,DBL                                            PAR      4108
          2432  04241732000003100045     TO.DZ    EXPEX  DTOZ,DBL,CPLX                                           PAR      4109
          2433  32241730000003100055     TO.ZR    EXPEX  ZTOX,CPLX,CPLX                                          FC5A310     5
          2434  32241704000003100055     TO.ZD    EXPEX  ZTOD,CPLX,CPLX                                          FC5A310     6
          2435  32241732000003100055     TO.ZZ    EXPEX  ZTOZ,CPLX,CPLX                                          FC50014    33
  
  
  
  
                                        **        TO.INT - EXPAND SMALL POWERS BY INLINE MULTIPLIES.             PAR      4111
                                        *                (X2) = VALUE OF POWER.                                  PAR      4112
                                        *                POWER IS NONZERO INTEGER CONSTANT, .NE. 1               PAR      4113
                                                                                                                 PAR      4114
                                                                                                                 PAR      4115
          2436  11241712000003500022     TO.II    EXPEX  ITOJ,INT,INT,1                                          PAR      4116
          2437  0322002441 +                      PL     X2,TO.II5   IF POWER IS POSITIVE                        PAR      4117
                          6170000000 X            TRIV   E.XP4       (INTEGER TO NEGATIVE CONST, RESULT ZERO)    PAR      4118
          2441  6170000020               TO.II5   SB7    TOIL.I                                                  PAR      4119
                          7150000000 X            SX5    V=MUL.I                                                 PAR      4120
          2442  0400002462 +                      EQ     EXM                                                     PAR      4121
                                                                                                                 PAR      4122
                                                                                                                 PAR      4123
          2443  30241711000003500033     TO.RI    EXPEX  XTOI,REAL,REAL,1                                        PAR      4124
          2444  7150000000 X                      SX5    V=MUL.R                                                 PAR      4125
                          6170000020              SB7    TOIL.R                                                  PAR      4126
          2445  0400002462 +                      EQ     EXM                                                     PAR      4127
                                                                                                                 PAR      4128
                                                                                                                 PAR      4129
          2446  04241711000003500044     TO.DI    EXPEX  DTOI,DBL,DBL,1                                          PAR      4130
          2447  6170000002                        SB7    TOIL.D                                                  PAR      4131
                          7150000000 X            SX5    V=MUL.D                                                 PAR      4132
          2450  0400002462 +                      EQ     EXM                                                     PAR      4133
                                                                                                                 PAR      4134
                                                                                                                 PAR      4135
          2451  32241711000003500055     TO.ZI    EXPEX  ZTOI,CPLX,CPLX,1                                        PAR      4136
          2452  7150000000 X                      SX5    V=MUL.C                                                 PAR      4137
                          6170000004              SB7    TOIL.Z                                                  PAR      4138
          2453  0400002462 +                      EQ     EXM                                                     PAR      4139
                                                                                                                 PAR      4140
                                                  PURGMAC EXPEX                                                  PAR      4141
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   101
        POP/EMIT EXPONENTIATION.                                      EXD 
  
                                        **        EXD - EVALUATE INTEGER EXPONENTIAL, FROM CONRED/*SED*.         PAR      4143
                                        *                                                                        PAR      4144
                                        *         ENTRY  (X1) = VALUE OF INTEGER BASE.                           PAR      4145
                                        *                (X6) = VALUE OF INTEGER EXPONENT.                       PAR      4146
                                        *                                                                        PAR      4147
                                        *         EXIT   (X6) = RESULT OPERAND (M.INT).                          PAR      4148
                                                                                                                 PAR      4149
                                                                                                                 PAR      4150
          2454  0400402454 +             EXD      SUBR   =           ENTRY/EXIT...                               PAR      4151
          2455  10711                             BX7    X1                                                      PAR      4152
                     5170000022 +                 SA7    TER2                                                    PAR      4153
          2456  5150000304 +                      SA5    INTEG+/OP/MULT                                          PAR      4154
                          76711                   =X7    M.INT                                                   PAR      4155
          2457  5170000002 +                      SA7    SMOD                                                    PAR      4156
                          0100000000 X            CALL   NCS         ENTER CONSTANT FOR BASE OPERAND             PAR      4157
          2460  5160002536 +                      SA6    EXOPDS                                                  PAR      4158
                          0100002545 +            RJ     EXV         EVALUATE EXPONENTIAL                        PAR      4159
          2461  0306402461 +                      ZR     X6,"BLOWUP" IF SUBSUMPTION FAILED                       PAR      4160
                          0400002454 +            EQ     EXIT.                                                   PAR      4161
  
  
  
  
                                        **        EXM - EXPAND EXPONENTATION INTO MULTIPLIES.                    PAR      4163
                                        *                                                                        PAR      4164
                                        *         ENTRY  (B7) = LIMIT TO EXPAND.                                 PAR      4165
                                        *                (X5) = MULTIPLY SKELETON NAME, FOR BASE MODE.           PAR      4166
                                        *                (X4) = OPERAND FOR BASE.                                PAR      4167
                                        *                (X2) = VALUE OF POWER.                                  PAR      4168
                                        *                (TER2) = VALUE OF POWER.                                PAR      4169
                                        *                (SMOD) = MODE OF BASE.                                  PAR      4170
                                        *                POWER IS NONZERO INTEGER CONSTANT.                      PAR      4171
                                        *         EMIT SERIES OF MULTIPLIES TO EVALUATE ** INLINE.               PAR      4172
                                                                                                                 PAR      4173
                                                                                                                 PAR      4174
          2462                           EXM      BSS                                                            PAR      4175
          2462  5110000314 +                      SA1    IN.EXP      OPERATOR SKELETON                           PAR      4176
                          20552                   LX5    SP.SKELP                                                FC50104   136
                               12715              BX7    X1+X5       (SOPR) = COMPLETE MULTIPLY SKELETON         PAR      4178
          2463  5170000003 +                      SA7    SOPR                                                    PAR      4179
                          10644                   BX6    X4                                                      PAR      4180
                               22104              LX1    X4                                                      PAR      4181
          2464  5160002536 +                      SA6    EXOPDS      EXOPDS(0) = BASE OPERAND                    PAR      4182
                          76471                   SX4    B7+B1                                                   PAR      4183
          2465  0100000000 X                      CALL   LCT         LOAD CONSTANT TEST (BASE)                   PAR      4184
          2466  0420002472 +                      ZR     B2,EXM2     IF BASE NOT CONSTANT                        PAR      4185
                          54761                   SA7    A6+B1                                                   PAR      4186
          2467  0100002545 +                      RJ     EXV         EVALUATE CONSTANT EXPONENTIAL               PAR      4187
          2470  0306002400 +                      ZR     X6,EXP60    IF NOT REDUCED                              PAR      4188
                          67661                   SB6    B6-B1                                                   PAR      4189
                               57661              SA6    B6-B1                                                   PAR      4190
          2471  0400001510 +                      EQ     POPX        EXIT..                                      PAR      4191
                                                                                                                 PAR      4192
          2472  5120000022 +             EXM2     SA2    TER2                                                    PAR      4193
                          37124                   IX1    X2-X4                                                   PAR      4194
          2473  0321002400 +                      PL     X1,EXP60    IF POWER .GE. (LIM+1)                       PAR      4195
                          0332002400 +            MI     X2,EXP60    IF POWER IS NEGATIVE, CAN-T BE EXPANDED     PAR      4196
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   102
        POP/EMIT EXPONENTIATION.                                      EXM 
  
                                         .T       IFEQ   TEST,ON                                                 PAR      4197
                                                  SX7    X2-2                                                    PAR      4198
                                                  MI     X7,"BLOWUP" IF POWER = 0, OR = 1                        PAR      4199
                                         .T       ENDIF                                                          PAR      4200
                                                                                                                 PAR      4201
          2474  67661                             SB6    B6-B1       COMPENSATE FOR (B6) ADJUSTMENT IN EXM4 LOOP PAR      4202
                     76710                        =X7    1           N=1                                         PAR      4203
                          5170000017 +            SA7    EXPA                                                    PAR      4204
          2475  5212002515 +                      SA1    EXMB-2+X2   ECW = EXMB(POWER)                           PAR      4205
                                                                                                                 PAR      4206
          2476  43071                    EXM4     MX0    -3                                                      PAR      4207
                     20103                        LX1    3           ECW = SHIFT (ECW , 3)                       PAR      4208
                          15610                   BX6    -X0*X1      J = FIELDN[ECW]                             PAR      4209
          2477  0306001510 +                      ZR     X6,POPX     IF J EQ 0                                   PAR      4210
                          6237002536 +            SB3    X7+EXOPDS                                               PAR      4211
          2500  10711                             BX7    X1                                                      PAR      4212
                     66661                        SB6    B6+B1       DONT REDUCE STACK SIZE                      PAR      4213
                          5170000020 +            SA7    EXPB                                                    PAR      4214
          2501  5236002507 +                      SA3    EXMA-1+X6   OCW = EXMA(J)                               PAR      4215
                          53433                   SA4    X3+B3       OP1 = EXOPDS(N-IND1(OCW))                   PAR      4216
                               21322              AX3    18                                                      PAR      4217
          2502  53533                             SA5    X3+B3       OP2 = EXOPDS(N-IND2(OCW))                   PAR      4218
                     5130000003 +                 SA3    SOPR                                                    PAR      4219
          2503  0100003740 +                      RJ     ADT         OUTPUT MULTIPLY                             PAR      4220
          2504  57161                             SA1    B6-B1                                                   PAR      4221
                     5120000017 +                 SA2    EXPA                                                    PAR      4222
                               10611              BX6    X1                                                      PAR      4223
          2505  5262002536 +                      SA6    EXOPDS+X2   EXOPDS(N) = TOP OF ESTACK                   PAR      4224
                          73721                   =X7    X2+1        N = N + 1                                   PAR      4225
          2506  5110000020 +                      SA1    EXPB                                                    PAR      4226
                          54720                   SA7    A2                                                      PAR      4227
          2507  0400002476 +                      EQ     EXM4        LOOP..                                      PAR      4228
                                                                                                                 PAR      4229
                                                                                                                 PAR      4230
                                         EXORN    MACRO  RJ,RK                                                   PAR      4231
                                                  VFD    24/,18/-RJ,18/-RK                                       PAR      4232
                                                  ENDM                                                           PAR      4233
                                                                                                                 PAR      4234
          2510                           EXMA     BSS    0                                                       PAR      4235
      L      1                                    LOC    1                                                       PAR      4236
      L      1  00000000777776777776              EXORN  1,1         (N-1)*(N-1)                                 PAR      4237
      L      2  00000000777776777775              EXORN  1,2         (N-1)*(N-2)                                 PAR      4238
      L      3  00000000777776777774              EXORN  1,3         (N-1)*(N-3)                                 PAR      4239
      L      4  00000000777776777773              EXORN  1,4         (N-1)*(N-4)                                 PAR      4240
      L      5  00000000777776777772              EXORN  1,5         (N-1)*(N-5)                                 PAR      4241
      L      6  00000000777775777774              EXORN  2,3         (N-2)*(N-3)                                 PAR      4242
      L      7  00000000777774777773              EXORN  3,4         (N-3)*(N-4)                                 PAR      4243
      L   2517                                    LOC    *O                                                      PAR      4244
                                                                                                                 PAR      4245
                                   0     MAXMUL   SET    0                                                       PAR      4247
                                         EXOC     MACRO  A                                                       PAR      4248
                                         .M       SET    0                                                       PAR      4249
                                         .N       SET    0                                                       PAR      4250
                                         .S       SET    A_B                                                     PAR      4251
                                                  DUP    14,5        COUNT NUMBER OF OGITS IN STRING             PAR      4252
                                         .S       SET    .S/8                                                    PAR      4253
                                         .N       SET    .N+3                                                    PAR      4254
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   103
        POP/EMIT EXPONENTIATION.                                      EXM 
  
                                         .M       SET    .M+1                                                    PAR      4255
                                                  IFEQ   .S,0,1                                                  PAR      4256
                                                  STOPDUP                                                        PAR      4257
                                                  VFD    .N/A_B,*P/.N/3                                          PAR      4258
                                         MAXMUL   MAX    MAXMUL,.M                                               PAR      4259
                                                  ENDM                                                           PAR      4260
                                                  NOREF  .N,.S,.M                                                PAR      4261
                                                                                                                 PAR      4262
                                        **        EXMB - EXPONENTIAL MACRO EXPANSION SKELETON CONTROL TABLE.     PAR      4263
                                        *                                                                        PAR      4264
                                        *         FORMAT - 42/DDDD0, 18/N.INST ( IN MACRO EXPANSION ).           PAR      4265
                                        *                D = DIGIT INDICATING OPERANDS OF MULTIPLY OPERATOR.     PAR      4266
                                        *                I.E. AN INDEX INTO *EXMA*.                              PAR      4267
                                                                                                                 PAR      4268
          2517                           EXMB     BSS    0                                                       PAR      4269
      L      2                                    LOC    2                                                       PAR      4270
      L      2  10000000000000000001              EXOC   1           X**2                                        PAR      4271
      L      3  12000000000000000002              EXOC   12          X**2 * X                                    PAR      4272
      L      4  11000000000000000002              EXOC   11          (X**2)**2                                   PAR      4273
      L      5  11300000000000000003              EXOC   113         (X**2)**2 * X                               PAR      4274
      L      6  11200000000000000003              EXOC   112         (X**2)**2) * X**2                           PAR      4275
      L      7  11620000000000000004              EXOC   1162        (X**2)**2 * (X**2 * X)                      PAR      4276
      L     10  11100000000000000003              EXOC   111         ((X**2)**2)**2                              PAR      4277
      L     11  11140000000000000004              EXOC   1114                                                    PAR      4278
      L     12  11310000000000000004              EXOC   1131                                                    PAR      4279
      L     13  11623000000000000005              EXOC   11623                                                   PAR      4280
      L     14  11120000000000000004              EXOC   1112                                                    PAR      4281
      L     15  11125000000000000005              EXOC   11125                                                   PAR      4282
      L     16  11124000000000000005              EXOC   11124                                                   PAR      4283
      L     17  12113000000000000005              EXOC   12113                                                   PAR      4284
      L     20  11110000000000000004              EXOC   1111        (((X**2)**2)**2)**2                         PAR      4285
          2536                                    LOC    *O                                                      PAR      4286
                                                                                                                 PAR      4287
          2536                     6     EXOPDS   BSS    MAXMUL+1                                                PAR      4288
  
  
  
  
                                        **        EXV - EVALUATE CONSTANT EXPONENTIAL.                           PAR      4290
                                        *                                                                        PAR      4291
                                        *         ENTRY  (X5) = MULTIPLY SKELETON INDEX (FOR MODE OF BASE).      PAR      4292
                                        *                (SOPR) = MULTIPLY OPERATOR (FOR MODE OF BASE).          PAR      4293
                                        *                (SMOD) = MODE OF BASE.                                  PAR      4294
                                        *                (EXOPDS+0) = OPERAND FOR BASE.                          PAR      4295
                                        *                (TER2) = VALUE OF POWER (INTEGER ONLY).                 PAR      4296
                                        *                                                                        PAR      4297
                                        *         EXIT   (X6) .NZ. = OPERAND FOR RESULT.                         PAR      4298
                                        *                     .ZR. = EVALUATION FAILED.                          PAR      4299
                                        *                                                                        PAR      4300
                                        *         USES   ALL BUT A0, B4-6.                                       PAR      4301
                                        *         CELLS  EXPA, EXPB, TER1, TER2.                                 PAR      4302
                                        *         CALLS  ACT, CCR.                                               PAR      4303
                                                                                                                 PAR      4304
                                                                                                                 PAR      4305
          2544  6170000000 X             EXV9     TRIV   E.XP5       ** CONSTANT TO CONSTANT WON'T EVALUATE      PAR      4306
                                                                                                                 PAR      4307
          2545  0400402545 +             EXV      SUBR   0           ENTRY/EXIT...                               PAR      4308
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   104
        POP/EMIT EXPONENTIATION.                                      EXV 
  
          2546  20522                             LX5    -SP.SKELP                                               FC50104   137
                     5215000000 X                 SA1    X5+=XF.SKCR                                             PAR      4310
                                                  LX1    -VS.CRAP                                                PAR      4311
                               73710              SX7    X1          (EXPB) = ADDRESS OF CONSTANT REDUCER        PAR      4312
                                   0              ERRNZ  18-VS.CRAL                                              PAR      4313
          2547  5170000020 +                      SA7    EXPB                                                    PAR      4314
                          5130000002 +            SA3    SMOD                                                    PAR      4315
          2550  5150000000 X                      SA5    CONONE                                                  PAR      4316
                          10633                   BX6    X3                                                      PAR      4317
          2551  0100004076 +                      CALL   CMR         (EXVG) = OPERAND FOR CONSTANT ONE           PAR      4318
                                         .T       IFEQ   TEST,ON,1                                               PAR      4319
                                                  NZ     B7,"BLOWUP" IF CAN'T CONVERT ONE                        PAR      4320
          2552  5120000022 +                      SA2    TER2                                                    PAR      4321
                          10655                   BX6    X5                                                      PAR      4322
          2553  5160002537 +                      SA6    EXVG                                                    PAR      4323
                          54661                   SA6    A6+B1       (EXVG+1) ALSO = ONE                         PAR      4324
                               10122              BX1    X2                                                      PAR      4325
          2554  21273                             AX2    -1                                                      PAR      4326
                     13721                        BX7    X2-X1       SCALE = ABS(POWER)                          PAR      4327
                          5170000017 +            SA7    EXPA                                                    FC5A158A  420
                                                                                                                 PAR      4328
          2555  43073                    EXV4     MX0    -1                                                      PAR      4329
                     15270                        BX2    -X0*X7      (X2) = ODD(SCALE)                           PAR      4330
                          0302002561 +            ZR     X2,EXV6     IF SCALE NOT ODD                            PAR      4332
          2556  5140002536 +                      SA4    EXVF        FAC                                         PAR      4333
                          5130000020 +            SA3    EXPB                                                    PAR      4334
          2557  54541                             SA5    A4+B1       G                                           PAR      4335
                     10733                        BX7    X3                                                      PAR      4336
                          0100000000 X            CALL   CCR         G = G * FAC                                 PAR      4337
          2560  0306002544 +                      ZR     X6,EXV9     IF BAD MULTIPLY                             PAR      4338
                          5160002537 +            SA6    EXVG                                                    PAR      4339
          2561  5140002536 +             EXV6     SA4    EXVF                                                    PAR      4340
                          5130000020 +            SA3    EXPB                                                    PAR      4341
          2562  5150000017 +                      SA5    EXPA                                                    FC5A158A  421
                          23715                   AX7    X5,B1       SCALE = SCALE/2                             FC5A158A  422
                               54750              SA7    A5                                                      FC5A158A  423
          2563  0307002570 +                      ZR     X7,EXV7     IF SCALE = 0                                FC5A158A  424
                          10544                   BX5    X4                                                      PAR      4342
                               22703              LX7    X3                                                      PAR      4343
          2564  0100000000 X                      CALL   CCR         FAC = FAC * FAC                             PAR      4344
          2565  0306002544 +                      ZR     X6,EXV9     IF BAD MULTIPLY                             PAR      4345
                          5160002536 +            SA6    EXVF                                                    PAR      4346
          2566  5150000017 +                      SA5    EXPA                                                    FC5A158A  425
                          10755                   BX7    X5                                                      FC5A158A  426
          2567  0400002555 +                      EQ     EXV4                                                    FC5A158A  427
                                                                                                                 PAR      4350
                                        *         IF POWER WAS NEGATIVE, RESULT = RECIPROCAL.                    PAR      4351
                                                                                                                 PAR      4352
          2570  5110000022 +             EXV7     SA1    TER2                                                    FC5A158A  428
                          5150002537 +            SA5    EXVG                                                    PAR      4354
          2571  0321002575 +                      PL     X1,EXV8     IF POWER WAS POSITIVE                       PAR      4355
                          54451                   SA4    A5+B1       (1OP) = CONSTANT ONE                        PAR      4356
          2572  7110000017                        SX1    O.DIV                                                   PAR      4357
                          66661                   SB6    B6+B1       COMPENSATE FOR DECREMENT IN ACT             PAR      4358
          2573  0100003732 +                      RJ     ACT         ADD CONVERTED TURPLE                        PAR      4359
          2574  57561                             SA5    B6-B1                                                   PAR      4360
                                                                                                                 PAR      4361
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   105
        POP/EMIT EXPONENTIATION.                                      EXV 
  
          2575  10655                    EXV8     BX6    X5          RETURN (X6) = RESULT                        PAR      4362
                     0400002545 +                 EQ     EXIT.                                                   PAR      4363
                                                                                                                 PAR      4364
                                2536 +   EXVF     EQU    EXOPDS      HOLDS CURRENT FACTOR = BASE ** (2**N)       PAR      4365
                                2537 +   EXVG     EQU    EXVF+1      HOLDS PARTIAL RESULT                        PAR      4366
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   106
        POP/EMIT APLIST AND FUNCTION REFERENCE. 
  
                                        **        POP/EMIT APLIST AND FUNCTION REFERENCE.                        PAR      4368
                                                                                                                 PAR      4369
                                                                                                                 PAR      4370
                                                  QUAL   CF          CALL FUNCTION CELLS                         PAR      4371
          2576                     1     AC       BSS    1           ACTUAL ARGUMENT COUNT                       PAR      4372
          2577                     1     APL      BSS    1           APLIST OPERATOR                             PAR      4373
          2600                     1     IE       BSS    1           INTRINSIC TABLE ENTRY                       PAR      4374
          2601                     1     IT       BSS    1           INTRINSIC TABLE INDEX                       PAR      4375
          2602                     1     MA       BSS    1           .NZ. IF POST-COERCION NEEDED                PAR      4376
          2603                     1     RJ       BSS    1           FUNCTION CALL OPERATOR                      PAR      4377
          2604                     1     TP       BSS    1           TAG FOR ROUTINE                             PAR      4378
                                                  QUAL   *                                                       PAR      4379
                                         CF=AC    EQUENT /CF/AC      ACTUAL ARGUMENT COUNT FOR KEY/CALL          PAR      4380
  
  
  
  
                                        **        C=CALL - PROCESS ARGUMENT FROM CALL STATEMENT                  PAR      4382
                                        *                                                                        PAR      4383
                                        *         ENTRY  (X5) = OPERAND FOR ARGUMENT.                            PAR      4384
                                                                                                                 PAR      4385
                                                                                                                 PAR      4386
          2605                           C=CALL   BSS    0                                                       PAR      4387
          2605  0100004542 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4388
          2606  0100003144 +                      RJ     SSA         STACK SUBROUTINE ARGUMENT                   PAR      4389
          2607  0400001510 +                      EQ     POPX                                                    PAR      4390
  
  
  
  
                                        **        A=CALL - SUBROUTINE CALL RIGHT PAREN.                          PAR      4392
                                        *                                                                        PAR      4393
                                        *         ENTRY  (X5) = FINAL OPERAND.                                   PAR      4394
                                        *                (SCR+AC.W) = ARGCOMA.                                   PAR      4395
                                        *                (CALLTAG) = OPERAND FOR SUBROUTINE.                     PAR      4396
                                        *                                                                        PAR      4397
                                        *         WE FIRST CALL SSA TO STACK THE FINAL ARGUMENT.  AFTER THAT,    PAR      4398
                                        *         THE ARGUMENTS ARE SITTING AS FOLLOWS --                        PAR      4399
                                        *         ESTACK = NORMAL ARGS ARE ON THE ELEMENT STACK.                 PAR      4400
                                        *                (B6) -> TOP (EMPTY) POSITION, AS USUAL.                 PAR      4401
                                        *         (T.ARG) = LABEL ARGUMENTS HAVE BEEN COLLECTED IN THIS TABLE.   PAR      4402
                                        *         (AC.CNT) = TOTAL ARG COUNT (NORMS + LABELS).                   PAR      4403
                                        *         IF THERE WERE NO LABEL ARGS, (T=ARG) = ZERO.                   PAR      4404
                                        *                                                                        PAR      4405
                                        *         CRL IS CALLED TO MOVE ANY LABEL ARGS ONTO THE TOP OF ESTACK,   PAR      4406
                                        *         AFTER ALL THE NORMAL ONES.  SO THE STACK THEN LOOKS            PAR      4407
                                        *         LIKE IT ALWAYS DOES, AND WE CAN EMIT THE ENTIRE ARGUMENT       PAR      4408
                                        *         LIST NORMALLY.  (ACTUALLY, CRL INSERTS AN INVENTED LABEL       PAR      4409
                                        *         BETWEEN THE TWO GROUPS, BUT AS HE ADJUSTS THE ARG COUNTS       PAR      4410
                                        *         APPROPRIATELY IT IS NONE OF OUR BUSINESS.)                     PAR      4411
                                        *                                                                        PAR      4412
                                        *         NOTE THAT WE ONLY GET HERE IF THERE WERE ARGUMENTS.            PAR      4413
                                        *         OMITTED ARGLIST CASE IS HANDLED IN KEY/CLL.                    PAR      4414
                                        *         EMPTY ARGLIST WILL BE DIAGNOSED EARLY IN PAR.                  PAR      4415
                                        *                                                                        PAR      4416
                                        *         EXIT   TO POPX.                                                PAR      4417
                                        *                RJ TURPLE NOT YET OUT.                                  PAR      4418
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   107
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=CALL
  
                                        *                                                                        PAR      4419
                                        *         CALLS  CRL, EAL, IAC, SSA, TPC, VEL                            PAR      4420
                                                                                                                 PAR      4421
                                                                                                                 PAR      4422
          2610                           A=CALL   BSS    0                                                       PAR      4423
          2610  0100004542 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4424
          2611  0100003144 +                      RJ     SSA         STACK SUBROUTINE ARGUMENT                   PAR      4425
          2612  0100003133 +                      RJ     IAC         INCREMENT ARGUMENT COUNT                    PAR      4426
          2613  5140000000 X                      SA4    CALLTAG                                                 PAR      4427
                          0100003235 +            RJ     VEL         VALIDATE ARGUMENT LIST                      PAR      4428
          2614  5120000000 X                      SA2    T=SLARG                                                 PAR      4429
                          0302002616 +            ZR     X2,ACALL3   IF NO STATEMENT LABEL PARAMETERS            PAR      4430
          2615  0100000000 X                      CALL   CRL         PROCESS CALL RETURN LABELS                  PAR      4431
                                                                                                                 PAR      4432
          2616  56140                    ACALL3   SA1    B4                                                      PAR      4433
                     0301002621 +                 ZR     X1,ACALL5   IF *EOS*                                    PAR      4434
          2617  6170000000 X                      FATAL  E.SU10                                                  FC50966     6
                                   0              ERRNZ  O.EOS                                                   PAR      4435
          2620  76600                             =X6    O.EOS                                                   FC50634     6
                     56640                        SA6    B4          RESET CURRENT T.TB TO *EOS*                 FC50634     7
                                                                                                                 PAR      4437
          2621  5130002577 +             ACALL5   SA3    /CF/APL                                                 PAR      4438
                          0100003007 +            RJ     EAL         EMIT AP LIST                                PAR      4439
          2622  0400001510 +                      EQ     POPX        EXIT.                                       PAR      4440
  
  
  
  
                                        **        C=FUN - USER FUNCTION COMMA.                                   PAR      4442
                                        *                                                                        PAR      4443
                                        *         ARGUMENT MOVED TO T.ARG OR T.SLARG.                            PAR      4444
                                        *                                                                        PAR      4445
                                        *         NOTE EXTREMELY DIRTY KLUDGE FOR STATEMENT LABEL PARAMETER --   PAR      4446
                                        *         PAR.MULT SET IT'S MODE = 7 SO WE COULD RECOGNIZE IT.           PAR      4447
                                                                                                                 PAR      4448
                                                                                                                 PAR      4449
          2623                           C=FUN    BSS    0           ENTRY...                                    PAR      4450
          2623  0100004542 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4451
          2624  43071                             MX0    -TP.MODEL                                               PAR      4452
                                                  LX0    TP.MODEP                                                PAR      4453
                     15150                        BX1    -X0*X5      X1 = MODE OF ARG                            PAR      4454
                          12101                   BX1    X0+X1                                                   PAR      4455
                                   0              ERRNZ  N.TYPE-7                                                PAR      4456
                                   0              ERRNZ  TP.MODEL-3                                              PAR      4457
          2625  0311002630 +                      NZ     X1,CFUN5    IF NOT STATEMENT LABEL PARAMETER            PAR      4458
                          6170000000 X            FATAL  E.SU11                                                  PAR      4459
          2627  0400001510 +                      EQ     POPX                                                    PAR      4460
                                                                                                                 PAR      4461
          2630  0100003144 +             CFUN5    RJ     SSA         STACK SUBPROGRAM ARGUMENT                   PAR      4462
          2631  0400001510 +                      EQ     POPX        EXIT..                                      PAR      4463
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   108
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=FUN 
  
                                        **        A=FUN - USER FUNCTION RIGHT PAREN.                             PAR      4465
                                        *                                                                        PAR      4466
                                        *         ENTRY  (SCR+AS.W) = OPERAND FOR ROUTINE (SET BY PAR.FUN).      PAR      4467
                                        *         ARGUMENTS ARE ON T.ARG AND T.SLARG .                           PAR      4468
                                        *                                                                        PAR      4469
                                        *         EXIT   TO GFR.                                                 PAR      4470
                                        *                                                                        PAR      4471
                                        *         CALLS  IAC,SSA,TPC,VEL                                         PAR      4472
                                                                                                                 PAR      4473
                                                                                                                 PAR      4474
          2632                           A=FUN    BSS    0                                                       PAR      4475
          2632  0100004542 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4476
          2633  5120000320 +                      SA2    FUNOP                                                   PAR      4477
                          10622                   BX6    X2          SET RJ TYPE = USER FUNCTION                 PAR      4478
          2634  5160002603 +                      SA6    /CF/RJ                                                  PAR      4479
                          0100003133 +            RJ     IAC         INCREMENT ARGUMENT COUNT                    PAR      4480
          2635  0307002637 +                      ZR     X7,AFUN4    IF NO ARGS                                  PAR      4481
                          0100003144 +            RJ     SSA         STACK SUBPROGRAM ARGUMENT                   PAR      4482
          2636  5110002576 +                      SA1    /CF/AC                                                  PAR      4483
                          10711                   BX7    X1          RESTORE (X7) = ARG COUNT                    PAR      4484
                                                                                                                 PAR      4485
          2637  5140000002 X             AFUN4    SA4    SCR+AS.W    FETCH (ARGMIS)                              PAR      4486
                          0100003235 +            RJ     VEL         VALIDATE EXTERNAL LIST                      PAR      4487
          2640  0400002774 +                      EQ     GFR         GO GENERATE FUNCTION REFERENCE              PAR      4488
  
  
  
  
                                        **        C=INF - INTRINSIC FUNCTION COMMA.                              PAR      4490
                                        *                                                                        PAR      4491
                                        *         ARGUMENT IS LEFT ON (ESTACK).                                  PAR      4492
                                                                                                                 PAR      4493
                                                                                                                 PAR      4494
          2641                           C=INF    BSS                ENTRY...                                    PAR      4495
          2641  0100004542 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4496
          2642  5120000000 X                      SA2    ARGCOMA                                                 PAR      4497
                          0100003204 +            RJ     VAM         VALIDATE ARGUMENT MODE                      PAR      4498
          2643  0400001510 +                      EQ     POPX                                                    PAR      4499
  
  
  
  
                                        **        A=INF - INTRINSIC FUNCTION RIGHT PAREN.                        PAR      4501
                                                                                                                 PAR      4502
                                                                                                                 PAR      4503
          2644                           A=INF    BSS                ENTRY...                                    PAR      4504
          2644  0100004542 +                      RJ     TPC         TEST FOR PASSED LENGTH CONCATENATION        PAR      4505
          2645  0100003133 +                      RJ     IAC         INCREMENT ARG COUNT                         PAR      4506
          2646  0100003204 +                      RJ     VAM         VALIDATE FINAL ARGUMENT MODE                PAR      4507
          2647  5170000002 +                      SA7    SMOD                                                    PAR      4508
                          0100003257 +            RJ     VIL         VALIDATE INTRISIC ARG LIST                  PAR      4510
          2650  10122                             BX1    X2                                                      PAR      4511
                     20250                        HX2    IT.XTER                                                 PAR      4512
                          0322002665 +            PL     X2,ABIF     IF INLINE INTRINSIC                         PAR      4513
          2651  5120000025 +                      SA2    FUNCALL                                                 PAR      4514
                                        *         EQ     ABEF                                                    PAR      4515
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   109
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ABEF
  
                                        **        ABEF - CALL EXTERNAL INTRINSIC FUNCTION.                       PAR      4517
                                        *                                                                        PAR      4518
                                        *         ENTRY  (X1) = INTRINSIC TABLE ENTRY.                           PAR      4519
                                        *                (CF/IE) = INTRINSIC TABLE ENTRY.                        PAR      4520
                                        *                (CF/IT) = INTRINSIC TABLE INDEX.                        PAR      4521
                                        *                (X2) = (FUNI) FOR CALL BY NAME.                         PAR      4522
                                        *               (CF/AC) = NUMBER OF ARGS IN CALL.                        PAR      4523
                                                                                                                 PAR      4524
                                                                                                                 PAR      4525
          2652                           ABEF     BSS                                                            PAR      4526
          2652  5130000000 X                      SA3    CO.DBTB                                                 PAR      4527
                          20146                   HX1    IT.BYN                                                  PAR      4528
                               12431              BX4    X3+X1                                                   PAR      4529
          2653  20126                             LX1    IT.BYNP+1                                               PAR      4530
                     0334002655 +                 MI     X4,ABEF2    IF (TRACEBACK) OR (BY-NAME FUNC)            PAR      4531
          2654  5120000026 +                      SA2    FUNCALL+1                                               PAR      4532
                                                                                                                 FC5A411    43
          2655  10622                    ABEF2    BX6    X2          SET CALLING SEQUENCE STYLE                  PAR      4533
                     5160000024 +                 SA6    FUNCALL-1                                               PAR      4534
          2656  0100003155 +                      RJ     TXI         TAG EXTERNAL INTRINSIC                      PAR      4535
          2657  5150002576 +                      SA5    /CF/AC      X5 = NO. OF ARGS (NO. WORDS FOR ALLOC,MOVE) PAR      4536
                          5140000000 X            SA4    T=ARG       SAVE OLD T.ARG LENGTH IN X4                 PAR      4537
          2660  5110000000 X                      ALLOC  T.ARG,X5                                                PAR      4538
          2662  36314                             IX3    X1+X4       X3 = DESTINATION OF MOVE                    PAR      4539
                     63250                        SB2    X5                                                      PAR      4540
                          67662                   SB6    B6-B2       REMOVE ARGS FROM ESTACK                     PAR      4541
                               10155              MOVE   X5,B6,X3    ARGS MOVED TO T.ARG                         PAR      4542
          2664  0400002774 +                      EQ     GFR         GO GENERATE FUNCTION REFERENCE              PAR      4543
  
  
  
  
                                        **        ABIF - CALL INLINE INTRINSIC FUNCTION.                         PAR      4545
                                        *                                                                        PAR      4546
                                        *         ENTRY  (X1) = INTRINSIC TABLE ENTRY                            PAR      4547
                                                                                                                 PAR      4548
                                                                                                                 PAR      4549
          2665                           ABIF     BSS                                                            PAR      4550
          2665  5120000000 +                      SA2    PARNOW                                                  FC5A227   112
                          7222777772              SX2    X2-PM=DATA                                              FC5A227   113
          2666  0312002670 +                      NZ     X2,ABIF0    IF NOT PROCESSING DATA VARIABLE LIST        FC5A227   114
                          6170000000 X            ANSI   E.ANS5                                                  FC5A227   115
                                                                                                                 FC5A227   116
          2670                           ABIF0    BSS    0                                                       FC5A227   117
          2670  5120000000 +                      SA2    PARNOW                                                  FC5A184    79
                          7222777770              SX2    X2-PM=PARM                                              FC5A184    80
          2671  0312002673 +                      NZ     X2,ABIF1    IF NOT *PARAMETER* PROCESSING               FC5A184    81
                          6170000000 X            ANSI   E.ANS5      ** FUNCTION REF. IN CONSTANT EXPRESSION     FC5A184    82
                                                                                                                 FC5A184    83
          2673  0100003030 +             ABIF1    RJ     ESF         EVALUATE SPECIAL FUNCTION                   FC5A184    84
          2674  0332001510 +                      MI     X2,POPX     IF FUNCTION REDUCED                         PAR      4552
                          5110002576 +            SA1    /CF/AC                                                  PAR      4553
          2675  63710                             SB7    X1                                                      PAR      4554
                     0717002700 +                 GT     B7,B1,ABIF2       IF MULTIPLE ARGUMENTS                 PAR      4555
                               43601              LDBIT  X6,SP.UNARP                                             FC50104   138
                                                                                                                 FC5A411    44
                                         .T       IFEQ   TEST,ON,1                                               PAR      4557
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   110
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ABIF
  
                                                  ZR     B7,"BLOWUP" IF INLINE WITH ZERO ARGUMENTS               FC5A227   118
                                                                                                                 FC5A411    45
                     12336                        BX3    X3+X6       INDICATE UNARY TURPLE                       PAR      4559
                          5156777776              SA5    B6-1        FETCH ARGUMENT                              FC5A411    46
          2677  0400001546 +                      EQ     POP.ST1     EXIT..                                      PAR      4560
                                                                                                                 PAR      4561
          2700  10633                    ABIF2    BX6    X3          SET (SOPR) = OPERATOR PER ESF               PAR      4562
                     77771                        SX7    B7-B1       INITIAL (TC) = (ARG COUNT) - 1              PAR      4563
                          5160000003 +            SA6    SOPR                                                    PAR      4564
          2701  54710                             SA7    A1                                                      PAR      4565
                                                                                                                 PAR      4566
          2702  5130000003 +             ABIF4    SA3    SOPR              REPEAT ...                            PAR      4567
                          57561                   SA5    B6-B1       (2OP) = ESTACK [TOP]                        PAR      4568
                               55451              SA4    A5-B1       (1OP) = ESTACK [TOP-1]                      PAR      4569
          2703  0100003740 +                      RJ     ADT         ADD TURPLE                                  PAR      4570
          2704  5110002576 +                      SA1    /CF/AC                                                  PAR      4571
                          7271777776              SX7    X1-1        (TC) = (TC) - 1                             PAR      4572
          2705  54710                             SA7    A1                UNTIL (TC) = 0                        PAR      4573
                     0317002702 +                 NZ     X7,ABIF4    IF MORE ARGS TO ISSUE                       PAR      4574
                                                                                                                 PAR      4575
                               57561              SA5    B6-B1                                                   PAR      4576
          2706  10755                             BX7    X5          REMOVE FUNCTION NAME FROM STACK             PAR      4577
                     67661                        SB6    B6-B1                                                   PAR      4578
                          55751                   SA7    A5-B1                                                   PAR      4579
                                                                                                                 PAR      4580
                                        *         IF THIS FUNCTION REQUIRES POST-CONVERSION, DO IT NOW.          PAR      4581
                                        *                (CF/MA) = TARGET RESULT MODE.                           PAR      4582
                                                                                                                 PAR      4583
          2707  5120002602 +                      SA2    /CF/MA                                                  PAR      4584
                          0302001510 +            ZR     X2,POPX     IF MODE ALREADY CORRECT                     PAR      4585
          2710  73620                             SX6    X2          (SMOD) = TARGET RESULT MODE                 PAR      4586
                     5130000334 +                 SA3    MCVOP                                                   PAR      4587
                               21222              AX2    18                                                      PAR      4588
          2711  5160000002 +                      SA6    SMOD                                                    PAR      4589
                          73120                   SX1    X2                                                      PAR      4590
                               20152              LX1    SP.SKELP                                                FC50104   139
          2712  57561                             SA5    B6-B1       (2OP) = RESULT (ADT WILL FIX UNAR)          PAR      4592
                     36731                        IX7    X3+X1       FORM TURPLE HEADER FOR CONVERSION OPERATOR  PAR      4593
                          66661                   SB6    B6+B1       ADJUST ELSTAK FOR UNARY                     PAR      4594
          2713  5170000003 +                      SA7    SOPR                                                    PAR      4595
                          0100003740 +            RJ     ADT         ADD CONVERSION TURPLE                       PAR      4596
          2714  0400001510 +                      EQ     POPX        EXIT..                                      PAR      4597
  
  
  
  
                                        **        C=STFA - STATEMENT FUNCTION ACTUAL ARGUMENT COMMA.             PAR      4599
                                                                                                                 PAR      4600
          2715  0400001510 +             C=STFA   EQ     POPX                                                    PAR      4601
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   111
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=STFA
  
                                        **        A=STFA - STATEMENT FUNCTION ACTUAL ARGUMENT RIGHT PAREN.       PAR      4603
                                                                                                                 PAR      4604
          2716  5110000000 X             A=STFA   SA1    DATFLG                                                  FC5A227   119
                          0301002720 +            ZR     X1,STFA1    IF NOT PROCESSING DATA STATEMENT            FC5A227   120
          2717  6170000000 X                      FATAL  E.DVR5                                                  FC5A227   121
                                                                                                                 FC5A227   122
          2720  5140000002 X             STFA1    SA4    SCR+AS.W    ARGMIS IS FUNCTION ORD                      FC5A227   123
                          20420                   LX4    -TP.ORDP                                                PAR      4606
                               43054              MX0    -TP.ORDL                                                PAR      4607
          2721  5110000000 X                      SA1    T.SYM                                                   FC5A227   124
                          15340                   BX3    -X0*X4                                                  PAR      4609
                               22713              LX7    B1,X3                                                   PAR      4610
          2722  63311                             =B3    X1+WB.W                                                 PAR      4611
                     36037                        IX0    X3+X7                                                   PAR      4612
                          53303                   SA3    B3+X0                                                   PAR      4613
                               43001              MX0    1                                                       PAR      4614
          2723  20025                             LX0    1+WB.SFXP                                               PAR      4615
                     12630                        BX6    X3+X0                                                   PAR      4616
                          54431                   =A4    A3+WC.W-WB.W                                            PAR      4617
                               55331              =A3    A3+WA.W-WB.W                                            PAR      4618
          2724  43052                             MX0    WA.SYML                                                 PAR      4619
                     11703                        BX7    X0*X3                                                   PAR      4620
                          5170000000 X            SA7    FILL.                                                   PAR      4621
          2725  20414                             LX4    -WC.ARGCP                                               PAR      4622
                     43063                        MX0    -WC.ARGCL                                               PAR      4623
                          15740                   BX7    -X0*X4                                                  PAR      4624
          2726  6237777776                        SB3    X7-1                                                    PAR      4625
                          0423002731 +            EQ     B2,B3,STFA10      IF ARG COUNT OK                       PAR      4626
          2727  6170000000 X                      FATAL  E.SF09                                                  PAR      4627
          2730  66321                             =B3    B2+1                                                    PAR      4628
                     67663                        SB6    B6-B3       UNSTACK ARGS                                PAR      4629
                          0400001475 +            EQ     PAR.STOP                                                PAR      4630
                                                                                                                 PAR      4631
          2731  5063000001               STFA10   SA6    A3+WB.W-WA.W      MARK SF *EXPANDING*                   PAR      4632
                          43055                   MX0    -WB.STFPL                                               PAR      4633
                               20617              LX6    -WB.STFPP                                               PAR      4634
          2732  20252                             LX2    -AC.EARGP                                               PAR      4635
                     15660                        BX6    -X0*X6                                                  PAR      4636
                          5110000000 X            SA1    T.STF                                                   PAR      4637
          2733  36016                             IX0    X1+X6                                                   PAR      4638
                     76740                        SX7    B4          ARGCOMA = *TB* POINTER RESTORE              PAR      4639
                          5130000000 X            SA3    INSTF                                                   PAR      4640
          2734  0303002735 +                      ZR     X3,STFA15   IF NOT PARSING FROM STATEMENT FUNCTION      PAR      4641
                          37771                   IX7    X7-X1       RELATIVIZE TOKEN POINTER                    PAR      4642
                                                                                                                 PAR      4643
                                         STFA15   LX7    AC.TBRP                                                 PAR      4644
          2735  63400                             SB4    X0          POINT TO WORD BEFORE SKEL (SPS ADVANCES)    PAR      4645
                     53300                        SA3    X0          FIRST DUMMY ARG REFERENCE                   PAR      4647
                          5110000000 X            SA1    ALC.STF                                                 PAR      4648
          2736  10611                             BX6    X1                                                      PAR      4649
                     5160000000 X                 SA6    ALC.REG     LOCK B4 TO T.STF                            PAR      4650
                               73220              SX2    X2                                                      PAR      4651
                                   0              ERRNZ  AC.EARGL-18                                             PAR      4652
          2737  20352                             LX3    -SF.DACPP                                               PAR      4653
                     73030                        SX0    X3                                                      PAR      4654
                                   0              ERRNZ  SF.DACPL-18                                             PAR      4655
                          20352                   LX3    SF.DACPP-SF.PEARP                                       PAR      4656
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   112
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=STFA
  
                               73330              SX3    X3                                                      PAR      4657
                                   0              ERRNZ  SF.PEARL-18                                             PAR      4658
          2740  20322                             LX3    TB.ACTEP                                                PAR      4659
                     20244                        LX2    SF.PEARP                                                PAR      4660
                          20022                   LX0    SF.DACPP                                                PAR      4661
                               12602              BX6    X0+X2                                                   PAR      4662
          2741  20052                             LX0    -SF.DACPP                                               PAR      4663
                     20252                        LX2    TB.ACTEP-SF.PEARP                                       PAR      4664
                          54630                   SA6    A3                                                      PAR      4665
                               43460              MX4    -TB.DACL                                                PAR      4666
          2742  0300002745 +                      ZR     X0,STFA30   IF NO PARAMETERS USED                       FC5A172     9
                                                                                                                 PAR      4667
          2743  53104                    STFA20   SA1    X0+B4       NEXT ARG REF IN SKELETON                    PAR      4668
                     36512                        IX5    X1+X2       ADD IN NEW ESTACK BASE                      PAR      4669
                          37653                   IX6    X5-X3       SUBTRACT PREVIOUS BASE                      PAR      4670
                               20130              LX1    -TB.DACP                                                PAR      4671
          2744  54610                             SA6    A1                                                      PAR      4672
                     15014                        BX0    -X4*X1                                                  PAR      4673
                          0310002743 +            NZ     X0,STFA20   IF NOT END OF DUMMY ARG REF                 PAR      4674
                                                                                                                 FC5A172    10
          2745  5140000002 X             STFA30   SA4    SCR+AS.W    PROPOGATE ARGMIS                            FC5A172    11
                          5110000000 X            SA1    INSTF                                                   PAR      4676
          2746  73611                             =X6    X1+1                                                    PAR      4677
                     54610                        SA6    A1          INSTF = INSTF + 1 */ SF EXPANSION DEPTH     PAR      4678
                          5110000404 +            SA1    ESFARM                                                  PAR      4679
          2747  10611                             BX6    X1          ARGMODE = ESFARM  */ BEGIN EXPANSION        PAR      4680
                     6130000044                   SB3    O.SLP                                                   PAR      4681
          2750  0400001206 +                      EQ     PAR.SPS                                                 PAR      4682
  
  
  
  
                                        **        A=STFE - POP RIGHT PAREN AFTER EXPANDING ST. FUNCT. BODY.      PAR      4684
                                                                                                                 PAR      4685
          2751  5120000002 X             A=STFE   SA2    SCR+AS.W                                                PAR      4686
                          5110000000 X            SA1    INSTF                                                   PAR      4687
          2752  20220                             LX2    -TP.ORDP                                                PAR      4688
                     43054                        MX0    -TP.ORDL                                                PAR      4689
                          15020                   BX0    -X0*X2                                                  PAR      4690
                               22410              LX4    B1,X0                                                   PAR      4691
          2753  36440                             IX4    X4+X0                                                   PAR      4692
                     7261777776                   SX6    X1-1                                                    PAR      4693
                               54610              SA6    A1          POP ONE LEVEL OF SF EXPANSION               PAR      4694
          2754  0316002757 +                      NZ     X6,STFE10   IF STILL IN SF EXPANSION                    PAR      4695
                          5110000000 X            SA1    ALC.00                                                  PAR      4696
          2755  10611                             BX6    X1                                                      PAR      4697
                     5160000000 X                 SA6    ALC.REG     UNLOCK B4                                   PAR      4698
          2756  0400002760 +                      EQ     STFE20                                                  PAR      4699
                                                                                                                 PAR      4700
          2757  5110000000 X             STFE10   SA1    T.STF                                                   PAR      4701
                          63212                   SB2    X1+B2       ABSOLUTIZE STATEMENT FUNCTION TOKEN POINTER PAR      4702
                                                                                                                 PAR      4703
          2760  5110000000 X             STFE20   SA1    T.SYM                                                   PAR      4704
                          63311                   =B3    X1+WB.W                                                 PAR      4705
                               43073              MX0    -1                                                      PAR      4706
          2761  53143                             SA1    X4+B3                                                   PAR      4707
                     20024                        LX0    WB.SFXP                                                 PAR      4708
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   113
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       A=STFE
  
                          11601                   BX6    X0*X1       CLEAR *EXPANDING* FLAG                      PAR      4709
                               54610              SA6    A1                                                      PAR      4710
          2762  55511                             =A5    A1-WB.W+WA.W                                            FC50474     9
                     43652                        MX6    WA.SYML                                                 FC50474    10
                          11665                   BX6    X6*X5       SYMBOL ONLY                                 FC50474    11
                               66420              SB4    B2          RESTORE TOKEN BUFFER POINTER                PAR      4711
          2763  5160000000 X                      SA6    FILL.       FOR POSSIBLE DIAGNOSTIC                     FC50474    12
                          54411                   =A4    A1+WC.W-WB.W                                            PAR      4712
                               43063              MX0    -WC.ARGCL                                               PAR      4713
          2764  20414                             LX4    -WC.ARGCP                                               PAR      4714
                     15140                        BX1    -X0*X4                                                  PAR      4715
                          57561                   =A5    B6-1                                                    PAR      4716
                               10655              BX6    X5                                                      PAR      4717
          2765  63310                             SB3    X1                                                      PAR      4718
                     65653                        SB6    A5-B3       REPLACE ARG1 ON ESTACK WITH EXPANSION       PAR      4719
                          43071                   MX0    -TP.MODEL                                               PAR      4720
                               20254              LX2    TP.ORDP-TP.MODEP                                        PAR      4721
          2766  15620                             BX6    -X0*X2                                                  PAR      4722
                     20422                        LX4    WC.ARGCP-WC.CLENP                                       PAR      4723
                          43052                   MX0    -WC.CLENL                                               PAR      4724
                               15140              BX1    -X0*X4                                                  PAR      4725
          2767  0100004066 +                      RJ     CLM         COERCE MODE AND CHAR LEN TO S.F.            PAR      4726
          2770  10655                             BX6    X5                                                      PAR      4727
                     56660                        SA6    B6          REPLACE EXP WITH CONVERSION                 PAR      4728
                          66661                   =B6    B6+1                                                    PAR      4729
          2771  0470000461 +                      ZR     B7,PAR.NX   IF NO CONVERSION ERROR                      PAR      4730
                          6170000000 X            FATAL  E.SF15                                                  FC50474    13
          2773  0400000461 +                      EQ     PAR.NX                                                  PAR      4732
  
  
  
  
                                        **        GFR - GENERATE FUNCTION REFERENCE.                             PAR      4734
                                        *                                                                        PAR      4735
                                        *         EMITS FUNCTION AP-BEGIN TURPLE (V=FAP), EMITS AP LIST, AND     PAR      4736
                                        *         THEN SET UP FOR THE RJ, AND RETURN TO POP MAIN.                PAR      4737
                                        *                                                                        PAR      4738
                                        *         ENTRY  (/CF/) SET UP.                                          PAR      4739
                                        *                (SMOD) = RESULT MODE OF FUNCTION.                       PAR      4740
                                        *                                                                        PAR      4741
                                        *         EXIT   TO POP.ST1 --                                           PAR      4742
                                        *                (X3) = OPR        = (CF/RJ)                             PAR      4743
                                        *                (X4) = 1OP        = (CF/TP)                             PAR      4744
                                        *                (X5) = 2OP        = (CF/AC)                             PAR      4745
                                        *                (CURST) = SQUEEZE BOUNDARY RESET.                       PAR      4746
                                        *                                                                        PAR      4747
                                        *         CALLS  EAL, EMIT.                                              PAR      4748
                                                                                                                 PAR      4749
                                                                                                                 PAR      4750
          2774                           GFR      BSS                ENTRY...                                    PAR      4751
          2774  5120000002 +                      SA2    SMOD                                                    PAR      4752
                          5130000323 +            SA3    FAPOP                                                   PAR      4753
          2775  20222                             LX2    SP.MODEP                                                FC50104   140
                     5150002576 +                 SA5    /CF/AC      (2OP) = NUMBER OF ARGS IN CALL              PAR      4755
                               12623              BX6    X2+X3       SET MODE IN TURPLE HEADER                   PAR      4756
          2776  5140002604 +                      SA4    /CF/TP      (1OP) = TAG OF ROUTINE                      PAR      4757
                          20524                   LX5    TP.BIASP                                                PAR      4758
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   114
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       GFR 
  
          2777  5160000003 +                      SA6    SOPR                                                    PAR      4759
                          6036400000              EMIT   A6,*                                                    PAR      4760
          3001  5130002577 +                      SA3    /CF/APL                                                 PAR      4761
                          0100003007 +            RJ     EAL         EMIT AP LIST                                PAR      4762
                                                                                                                 PAR      4763
                                        *         EMIT RJ TO ROUTINE, AND RESET SQUEEZE BOUNDARY.                PAR      4764
                                                                                                                 PAR      4765
          3002  5140002604 +                      SA4    /CF/TP      (1OP) = TAG OF ROUTINE                      PAR      4766
                          5110000000 X            SA1    T=PAR                                                   FC5A323     5
          3003  5130002603 +                      SA3    /CF/RJ      (OPR) = JUMP TYPE                           PAR      4768
                          5150002576 +            SA5    /CF/AC      (2OP) = NUMBER OF ARGS IN THIS CALL         PAR      4769
          3004  7271000003                        SX7    X1+Z=TURP                                               PAR      4770
                          66661                   SB6    B6+B1       ADJUST ESTACK FOR SINGLE ELEMENT            PAR      4771
          3005  5170000004 +                      SA7    CURST       RESET SQUEEZE BOUNDARY                      PAR      4772
                          20524                   LX5    TP.BIASP                                                PAR      4773
          3006  0400001546 +                      EQ     POP.ST1     EXIT..                                      PAR      4774
  
  
  
  
                                        **        EAL - EMIT ACTUAL-PARAMETER LIST.                              PAR      4776
                                        *                                                                        PAR      4777
                                        *         EMIT THE ACTUAL PARAMETER LIST, ONE TURPLE PER ARGUMENT.       PAR      4778
                                        *                                                                        PAR      4779
                                        *         NOTE - CALLERS OUTSIDE OF PAR SHOULD BE PARTICULARLY CAREFUL   PAR      4780
                                        *                ABOUT (B6) AND ESTACK UPON ENTRY AND RETURN.            PAR      4781
                                        *                                                                        PAR      4782
                                        *         ENTRY  (CF/AC) = NUMBER OF ARGS.                               PAR      4783
                                        *                (X3) = APLIST OPERATOR.                                 PAR      4784
                                        *                ARGS ON T.ARG.                                          PAR      4785
                                        *                                                                        PAR      4786
                                        *         EXIT   (CF/APL) = APLIST OPERATOR = SAVED (X3).                PAR      4787
                                        *                (T=ARG) = 0.                                            PAR      4788
                                        *                                                                        PAR      4789
                                        *         USES   ALL BUT  A0, B4, B5.                                    PAR      4790
                                        *         CALLS  EMT                                                     PAR      4791
                                                                                                                 PAR      4792
                                                                                                                 PAR      4793
          3007  0400403007 +             EAL      SUBR   =           ENTRY/EXIT...                               PAR      4794
          3010  10633                             BX6    X3                                                      PAR      4795
                     5120002576 +                 SA2    /CF/AC                                                  PAR      4796
                               43500              MX5    0           (2OP) = NIL                                 PAR      4797
          3011  5160002577 +                      SA6    /CF/APL                                                 PAR      4798
                          0302003007 +            ZR     X2,EXIT.    IF NO ARGUMENTS                             PAR      4799
          3012  5110000000 X                      SA1    T.ARG                                                   PAR      4800
                          5130000000 X            SA3    T=ARG                                                   PAR      4801
          3013  36113                             IX1    X1+X3                                                   PAR      4802
                     37112                        IX1    X1-X2       FWA OF ARGUMENT LIST                        PAR      4803
                          66200                   =B2    0                                                       PAR      4804
                                                                                                                 PAR      4805
          3014  53412                    EAL10    SA4    X1+B2       X4 = NEXT ARGUMENT                          PAR      4806
                     76621                        =X6    B2+1                                                    PAR      4807
                          5160003026 +            SA6    EALA        UPDATE AND SAVE INDEX                       PAR      4808
          3015  43071                             MX0    -TP.MODEL                                               PAR      4809
                     5120002577 +                 SA2    /CF/APL     FETCH APLIST OPERATOR                       PAR      4810
                                                  LX4    -TP.MODEP                                               PAR      4811
                               15740              BX7    -X0*X4      ISOLATE MODE OF THIS ARG                    PAR      4812
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   115
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       EAL 
  
          3016  20722                             LX7    SP.MODEP                                                FC50104   141
                     12672                        BX6    X7+X2       SET TURPLE MODE PER ARG                     PAR      4814
                                                  LX4    TP.MODEP    (1OP) = ARG                                 PAR      4815
                          5160000003 +            SA6    SOPR                                                    PAR      4816
          3017  6036400000                        EMIT   A6,*                                                    PAR      4817
          3020  5110000000 X                      SA1    T.ARG                                                   PAR      4818
                          5120000000 X            SA2    T=ARG                                                   PAR      4819
          3021  36112                             IX1    X1+X2                                                   PAR      4820
                     5130002576 +                 SA3    /CF/AC                                                  PAR      4821
                               37113              IX1    X1-X3       REFRESH FWA OF ARGLIST                      PAR      4822
          3022  5120003026 +                      SA2    EALA                                                    PAR      4823
                          63220                   SB2    X2                                                      PAR      4824
                               37432              IX4    X3-X2                                                   PAR      4825
          3023  0314003014 +                      NZ     X4,EAL10    IF MORE ARGUMENTS                           PAR      4826
                          5110000000 X            SA1    T=ARG                                                   PAR      4827
          3024  37613                             IX6    X1-X3       X6 = NEW LENGTH OF T.ARG                    PAR      4828
                     5160000000 X                 SHRINK T=ARG,X6                                                PAR      4829
          3025  0400003007 +                      EQ     EXIT.                                                   PAR      4830
                                                                                                                 PAR      4831
          3026                     1     EALA     BSS    1                                                       PAR      4832
  
  
  
  
                                        **        ESF - EVALUATE SPECIAL INTRINSIC FUNCTION.                     PAR      4834
                                        *                                                                        PAR      4835
                                        *         ENTRY  (X1) = INTRINSIC TABLE ENTRY.                           PAR      4836
                                        *                ARGUMENTS ON TOP OF ESTACK.                             PAR      4837
                                        *                                                                        PAR      4838
                                        *         EXIT   (X2) .MI. = FUNCTION COMPLETELY REDUCED --              PAR      4839
                                        *                RESULT ON ESTACK.                                       PAR      4840
                                        *                                                                        PAR      4841
                                        *         ELSE   (X2) .PL. = ISSUE INLINE FUNCTION --                    PAR      4842
                                        *                (X3) = TURPLE HEADER FOR FUNC.                          PAR      4843
                                        *                (ESTACK) = ARGUMENTS POSSIBLY ALTERED.                  PAR      4844
                                        *                (SMOD) POSSIBLY ALTERED.                                PAR      4845
                                        *                                                                        PAR      4846
                                        *         USES   ALL BUT A0,  B4-6.                                      PAR      4847
                                        *         CALLS  ADT, CMR, ESA, FATAL, LCH, LCT, NCS, TAGSEX.            PAR      4848
                                                                                                                 PAR      4849
                                                                                                                 PAR      4850
          3027  5110000350 +             ESF9     SA1    BIFFUN                                                  PAR      4851
                          20252                   LX2    SP.SKELP                                                FC50104   142
                               12312              BX3    X1+X2       FORM TURPLE HEADER                          PAR      4853
                                                                                                                 PAR      4854
          3030  0400403030 +             ESF      SUBR   -           ENTRY/EXIT...                               PAR      4855
          3031  43064                             MX0    -IT.JPADL                                               PAR      4856
                     20166                        LX1    -IT.JPADP                                               PAR      4857
                          15610                   BX6    -X0*X1      ISOLATE (X6) = POINTER TO SKEL OR PARSER    PAR      4858
                               20160              LX1    IT.JPADP-1-IT.PARP                                      PAR      4859
          3032  7226000000 X                      SX2    X6+OM=INL   (X2) = (POSSIBLE) SKELETON INDEX            PAR      4860
                          0321003027 +            PL     X1,ESF9     IF NO PARSER PROCESSING                     PAR      4861
          3033  57561                             SA5    B6-B1                                                   PAR      4862
                     63760                        SB7    X6                                                      PAR      4863
                          0277003034 +            JP     B7+ESFBASE                                              PAR      4864
                                                                                                                 PAR      4865
                                                                                                                 PAR      4866
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   116
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ESF 
  
                                                  MACRO  ESINL,NAM                                               PAR      4867
                                                  BSS                                                            PAR      4868
                                         D        MICRO  1,7, ES=NAM                                             PAR      4869
                                         "D"      EQUENT *-ESFBASE                                               PAR      4870
                                                  ENDM                                                           PAR      4871
                                                                                                                 PAR      4872
          3034                           ESFBASE  BSS    0           BASE ADDRESS                                PAR      4873
  
  
  
  
                                        **        ES.CMP - COERCE OPERANDS OF DYADIC 'CMPLX'.                    PAR      4875
                                        *                                                                        PAR      4876
                                        *         BOTH OPERANDS MUST BE COERCED TO TYPE REAL BEFORE THE          PAR      4877
                                        *         FUNCTION CAN BE ISSUED.                                        PAR      4878
                                                                                                                 PAR      4879
                                                                                                                 PAR      4880
          3034                           CMPL     ESINL                                                          PAR      4881
          3034  7160000003                        =X6    M.REAL                                                  PAR      4882
                          0100004076 +            CALL   CMR         COERCE (2OP) MODE                           PAR      4883
                                         .T       IFEQ   TEST,ON,1                                               PAR      4884
                                                  NZ     B7,"BLOWUP" IF VIL LET BAD MODE THRU                    PAR      4885
          3035  10755                             BX7    X5                                                      PAR      4886
                     57761                        SA7    B6-B1                                                   PAR      4887
                                                                                                                 PAR      4888
                          7160000003              =X6    M.REAL                                                  PAR      4889
          3036  55571                             SA5    A7-B1                                                   PAR      4890
                     0100004076 +                 CALL   CMR         COERCE (1OP) MODE                           PAR      4891
                                         .T       IFEQ   TEST,ON,1                                               PAR      4892
                                                  NZ     B7,"BLOWUP" IF VIL LET BAD MODE THRU                    PAR      4893
          3037  7120000000 X                      SX2    V=CMPLX                                                 PAR      4894
                          7160000005              =X6    M.CPLX      RESTORE (SMOD)  (CMR DESTROYED IT)          PAR      4895
          3040  10755                             BX7    X5                                                      PAR      4896
                     5160000002 +                 SA6    SMOD                                                    PAR      4897
          3041  5176777775                        SA7    B6-2                                                    PAR      4898
                          0400003027 +            EQ     ESF9                                                    PAR      4899
  
  
  
  
                                        **        ES.LEN - CHARACTER LENGTH INTRINSIC.                           PAR      4901
                                        *                                                                        PAR      4902
                                        *         IF OPERAND IS CONSTANT, REDUCE FUNCTION.                       PAR      4903
                                        *         ELSE, SET UP TO ISSUE AS EXTERNAL.                             PAR      4904
                                                                                                                 PAR      4905
                                                                                                                 PAR      4906
          3042                           LEN      ESINL                                                          PAR      4907
          3042  5110000000 +                      SA1    PARNOW                                                  FC5A227   125
                          7211777770              SX1    X1-PM=PARM                                              FC5A227   126
          3043  0311003045 +                      NZ     X1,ES.LEN1  IF NOT PARAMETER CONSTANT EXPRESSION        FC5A227   127
                          6170000000 X            FATAL  E.INF3                                                  FC5A227   128
                                                                                                                 FC5A227   129
          3045  10155                    ES.LEN1  BX1    X5                                                      FC5A227   130
                                                  LX5    -TP.MODEP                                               PAR      4910
                     13666                        BX6    0           PRESET ERROR INTRINSIC                      PAR      4911
                          43071                   MX0    -TP.MODEL                                               PAR      4912
                               15050              BX0    -X0*X5                                                  PAR      4913
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   117
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ES.LEN
  
          3046  6270777771                        SB7    X0-M.CHAR                                               PAR      4914
                          0570003051 +            NZ     B7,ES.LEN4  IF NOT CHAR, ERROR                          PAR      4915
          3047  0100004242 +                      RJ     GOL         GET OPERAND LENGTH                          PAR      4916
          3050  0327003053 +                      PL     X7,ES.LEN6  IF CONSTANT LENGTH                          PAR      4917
                          7160000000 X            SX6    OMI=LEN                                                 PAR      4918
                                                                                                                 PAR      4919
          3051  5216000000 X             ES.LEN4  SA1    X6+F.INTF                                               PAR      4920
                          5120000025 +            SA2    FUNCALL     FORCE CALL-BY-NAME                          PAR      4921
          3052  5160002601 +                      SA6    /CF/IT                                                  PAR      4922
                          0400002652 +            EQ     ABEF        GO TREAT AS EXTERNAL ...                    PAR      4923
                                                                                                                 PAR      4924
          3053  10677                    ES.LEN6  BX6    X7          RESULT VALUE = LENGTH OF CONSTANT STRING    PAR      4925
                     76711                        =X7    M.INT                                                   PAR      4926
                          0400003075 +            EQ     ES.MSK8                                                 PAR      4927
  
  
  
  
                                        **        ES.XXX - TRANSFORM LGE(C1,C2) ETC. INTO C1.LGE.C2  .           PAR      4929
                                                                                                                 PAR      4930
          3054                           LGE      ESINL                                                          PAR      4931
          3054  5146777775                        SA4    B6-2                                                    PAR      4932
                          5130000346 +            SA3    LGEOP                                                   PAR      4933
                                                                                                                 PAR      4934
          3055  10733                    LXX10    BX7    X3                                                      PAR      4935
                     5170000003 +                 SA7    SOPR                                                    PAR      4936
                               67661              =B6    B6-1        EAT FUNCTION NAME                           PAR      4937
          3056  0100003740 +                      RJ     ADT                                                     PAR      4938
          3057  77201                             =X2    -1                                                      PAR      4939
                     0400003030 +                 EQ     EXIT.                                                   PAR      4940
                                                                                                                 PAR      4941
          3060                           LGT      ESINL                                                          PAR      4942
          3060  5130000347 +                      SA3    LLTOP                                                   PAR      4943
                                                                                                                 PAR      4944
                                        *         INVERT OPERANDS FOR INVERTED OPERATOR.                         PAR      4945
                                                                                                                 PAR      4946
          3061  10455                    LXX20    BX4    X5                                                      PAR      4947
                     5156777775                   SA5    B6-2                                                    PAR      4948
          3062  0400003055 +                      EQ     LXX10                                                   PAR      4949
                                                                                                                 PAR      4950
          3063                           LLE      ESINL                                                          PAR      4951
          3063  5130000346 +                      SA3    LGEOP                                                   PAR      4952
                          0400003061 +            EQ     LXX20                                                   PAR      4953
                                                                                                                 PAR      4954
          3064                           LLT      ESINL                                                          PAR      4955
          3064  5146777775                        SA4    B6-2                                                    PAR      4956
                          5130000347 +            SA3    LLTOP                                                   PAR      4957
          3065  0400003055 +                      EQ     LXX10                                                   PAR      4958
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   118
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ES.MSK
  
                                        **        ES.MSK - ATTEMPT REDUCTION OF 'MASK'.                          PAR      4960
                                                                                                                 PAR      4961
                                                                                                                 PAR      4962
          3066                           MASK     ESINL                                                          PAR      4963
          3066  10155                             BX1    X5                                                      PAR      4964
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          PAR      4965
          3067  7120000000 X                      SX2    V=MASK                                                  PAR      4966
                          0720003077 +            MI     B2,ES.MSK9  IF LONG CONSTANT                            FC5A190     9
          3070  0521003027 +                      NE     B2,B1,ESF9  IF NOT SHORT INTEGER CONSTANT               PAR      4967
                          0306003072 +            ZR     X6,ES.MSK5  IF MASK(-0)                                 FC5A190    10
          3071  0336003077 +                      MI     X6,ES.MSK9  IF NEGATIVE ARG.                            FC5A190    11
                                                                                                                 FC5A190    12
          3072  7216777702               ES.MSK5  SX1    X6-61                                                   FC5A190    13
                          0321003077 +            PL     X1,ES.MSK9  IF ARG GT 60                                FC5A190    14
          3073  43101                             MX1    1                                                       PAR      4968
                     6276777776                   SB7    X6-1                                                    PAR      4969
                               76700              =X7    M.BOOL      SET MODE OF NEW CONSTANT                    PAR      4970
          3074  23671                             AX6    B7,X1                                                   PAR      4971
                     10166                        BX1    X6                                                      PAR      4972
                          21173                   AX1    59                                                      PAR      4973
                               11616              BX6    X1*X6                                                   PAR      4974
          3075  67661                    ES.MSK8  SB6    B6-B1       DECREMENT STACK FOR FUNCTION NAME           PAR      4975
                     0100000000 X                 CALL   NCS         ENTER NEW CONSTANT                          PAR      4976
          3076  77201                             =X2    -1          INDICATE REDUCED                            PAR      4977
                     57661                        =A6    B6-1        REPLACE *MASK(CON)* WITH CON                PAR      4978
                          0400003030 +            EQ     EXIT.                                                   PAR      4979
                                                                                                                 FC5A190    15
          3077  6170000000 X             ES.MSK9  WARN   E.INF1                                                  FC5A190    16
          3100  0400003027 +                      EQ     ESF9                                                    FC5A190    17
  
  
  
  
                                        **        ES.SHF - ATTEMPT REDUCTION OF 'SHIFT'.                         PAR      4981
                                                                                                                 PAR      4982
                                                                                                                 PAR      4983
          3101                           SHIFT    ESINL                                                          PAR      4984
          3101  10155                             BX1    X5                                                      PAR      4985
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          PAR      4986
          3102  7120000000 X                      SX2    V=SHIFT                                                 PAR      4987
                          0720003113 +            MI     B2,ES.SHF5  IF LONG CONSTANT                            FC5A190    18
          3103  0521003027 +                      NE     B2,B1,ESF9  IF NOT SHORT INTEGER CONSTANT               PAR      4988
                          10266                   BX2    X6                                                      FC5A190    19
                               21273              AX2    59                                                      FC5A190    20
          3104  13226                             BX2    X2-X6                                                   FC5A190    21
                     7222777702                   SX2    X2-61                                                   FC5A190    22
          3105  0322003113 +                      PL     X2,ES.SHF5  IF ABS(ARG) .GT. 60                         FC5A190    23
                          6276777703              SB7    X6-60                                                   PAR      4989
          3106  7120000000 X                      SX2    V=SHIFT                                                 PAR      4994
                          0306003110 +            ZR     X6,ES.SHF4  IF NULL SHIFT (0)                           FC50148    19
          3107  0470003110 +                      ZR     B7,ES.SHF4  IF NULL SHIFT (60)                          FC50148    20
                          0400003027 +            EQ     ESF9        EXIT, NOT REDUCED                           PAR      4996
                                                                                                                 FC50148    21
          3110  5116777775               ES.SHF4  SA1    B6-2        SHIFT VALUE ARGUMENT                        FC50148    22
                          77201                   =X2    -1          INDICATE REDUCTION                          FC50148    23
                               64610              SB6    A1          RESET ESTACK POINTER                        FC50148    24
          3111  43071                             MX0    -TP.MODEL                                               FC50372     5
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   119
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ES.SHF
  
                     11601                        BX6    X0*X1       CLEAR SHIFT VALUE MODE                      FC50372     6
                          76100                   =X1    M.BOOL                                                  FC50372     7
                               12661              BX6    X6+X1       RESULT MODE IS BOOLEAN                      FC50372     8
          3112  5061777776                        SA6    A1-1        REPLACE SHIFT WITH VALUE OPERAND            FC50372     9
                          0400003030 +            EQ     EXIT.                                                   FC50148    27
                                                                                                                 FC5A190    24
          3113  6170000000 X             ES.SHF5  WARN   E.INF2      SHIFT ARG OUT OF RANGE                      FC5A190    25
          3114  7120000000 X                      SX2    V=SHIFT                                                 FC5A296     6
                          0400003027 +            EQ     ESF9                                                    FC5A190    26
  
  
  
  
                                        **        ES.LOC - EVALUATE 'LOCF' INTRINSIC.                            PAR      4998
                                        *                                                                        PAR      4999
                                        *         IF THE ARGUMENT IS TYPE CHARACTER, EMIT LIBRARY CALL.          PAR      5000
                                        *         IF NOT, THE FUNCTION IS ELIMINATED.                            PAR      5001
                                        *         RESULT IS THE OPERAND, WITH (TP.ADDR) SET.                     PAR      5002
                                                                                                                 PAR      5003
                                                                                                                 PAR      5004
          3115                           LOCF     ESINL                                                          PAR      5005
          3115  0100004144 +                      RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      5006
          3116  0306003120 +                      ZR     X6,ES.LOC2  IF OPERAND OKAY                             PAR      5007
                          6170000000 X            FATAL  E.INF                                                   PAR      5008
                                                                                                                 PAR      5009
          3120  6270777771               ES.LOC2  SB7    X0-M.CHAR                                               PAR      5010
                          43601                   CLAS=  X6,WB,LOCF                                              FC5A206     4
          3121  12662                             BX6    X6+X2       LOCF[WB(ARG)] = 1                           FC5A206     5
                     54620                        SA6    A2                                                      FC5A206     6
                          7160000000 X            SX6    OMI=LCF                                                 PAR      5011
          3122  0470003051 +                      ZR     B7,ES.LEN4  IF CHARACTER ARGUMENT, DO IT EXTERNAL       PAR      5012
                          7100004030              CLAS=  X0,TP,(ADDR,LCF,EXPR)                                   PAR      5013
          3123  43271                             MX2    -TP.MODEL                                               PAR      5014
                                                  LX2    TP.MODEP                                                PAR      5015
                     11525                        BX5    X2*X5       SET RESULT MODE = M.BOOL                    PAR      5016
                                         .MODE    IFNE   M.BOOL,0                                                PAR      5017
                                                  =X2    M.BOOL                                                  PAR      5018
                                                  LX2    TP.MODEP                                                PAR      5019
                                                  BX5    X5+X2                                                   PAR      5020
                                         .MODE    ENDIF                                                          PAR      5021
                          12650                   BX6    X5+X0                                                   PAR      5022
                               77201              =X2    -1                                                      PAR      5023
          3124  67661                             =B6    B6-1        REPLACE LOCF(ARG) WITH ADDR(ARG)            PAR      5024
                     57661                        =A6    B6-1                                                    PAR      5025
                          0400003030 +            EQ     EXIT.                                                   PAR      5026
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   120
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       ES.RAN
  
                                        **        ES.RAN - GENERATE 'RANF' REFERENCE.                            PAR      5028
                                        *                                                                        PAR      5029
                                        *         INVENT OPERAND (RANDOM.), AND PUT IT'S NAME IN SYMTAB.         PAR      5030
                                                                                                                 PAR      5031
                                                                                                                 PAR      5032
          3125                           RANF     ESINL                                                          PAR      5033
          3125  5110003132 +                      TAGSEX S.RANDOM    TAG SYSTEM EXTERNAL                         PAR      5034
          3126  5130000344 +                      SA3    RANOP                                                   PAR      5035
                          10466                   BX4    X6          (1OP) = SYMORD (RANDOM.)                    PAR      5036
                               22603              LX6    X3                                                      PAR      5037
          3127  10544                             BX5    X4          (2OP) = (1OP)                               PAR      5038
                     66661                        SB6    B6+B1       COMPENSATE FOR ADT STACK DECREMENT          PAR      5039
                                         .T       IFEQ   TEST,ON                                                 PAR      5040
                                                  SA2    SMOD                                                    PAR      5041
                                                  SX7    X2-M.REAL                                               PAR      5042
                                                  NZ     X7,"BLOWUP" IF (SMOD) INCORRECT                         PAR      5043
                                         .T       ENDIF                                                          PAR      5044
                          5160000003 +            SA6    SOPR                                                    PAR      5045
          3130  0100003740 +                      RJ     ADT                                                     PAR      5046
          3131  77201                             =X2    -1                                                      PAR      5047
                     0400003030 +                 EQ     EXIT.                                                   PAR      5048
                                                                                                                 PAR      5049
          3132  22011604171557000000     S.RANDOM =XLIB  RANDOM                                                  PAR      5050
  
  
  
  
                                        **        IAC - INCREMENT ARG COUNT.                                     PAR      5052
                                        *                                                                        PAR      5053
                                        *         THIS WOULD PERHAPS NOT NEED TO BE A SUBROUTINE, EXCEPT         PAR      5054
                                        *         FOR THE NECESSITY TO DO PART-WORD SIGNED ARITHMETIC.           PAR      5055
                                        *         ON ENTRY, (AC.CNT) MAY BE = -1, IF THERE WERE ZERO             PAR      5056
                                        *         ACTUAL ARGUMENTS.                                              PAR      5057
                                        *                                                                        PAR      5058
                                        *         ENTRY  (SCR+AC.W) = ARGCOMA.                                   PAR      5059
                                        *                                                                        PAR      5060
                                        *         EXIT   (X7) = FINAL ARGUMENT COUNT.                            PAR      5061
                                        *                (CF/AC) = (X7).                                         PAR      5062
                                        *                ARGCOMA UPDATED, (AC.CNT) = (X7).                       PAR      5063
                                        *                (A2, X2) = UPDATED ARGCOMA.                             PAR      5064
                                        *                                                                        PAR      5065
                                        *         USES   X0,X3,X6,X7  A7                                         PAR      5066
                                                                                                                 PAR      5067
                                                                                                                 PAR      5068
          3133  0400403133 +             IAC      SUBR   0           ENTRY/EXIT..                                PAR      5069
          3134  5120000001 X                      SA2    SCR+AC.W                                                PAR      5070
                                                  LX2    -AC.CNTP                                                PAR      5071
                          43052                   MX0    -AC.CNTL                                                PAR      5072
                               73721              SX7    X2+B1                                                   PAR      5073
                                   0              ERRNZ  18-AC.CNTL                                              PAR      5074
          3135  11302                             BX3    X0*X2       CLEAR PREVIOUS ARG COUNT                    PAR      5075
                     36637                        IX6    X3+X7       MERGE INCREMENTED COUNT                     PAR      5076
                          5170002576 +            SA7    /CF/AC                                                  PAR      5077
                                                  LX6    AC.CNTP                                                 PAR      5078
          3136  10266                             BX2    X6                                                      PAR      5079
                     54620                        SA6    A2                                                      PAR      5080
                          0400003133 +            EQ     EXIT.                                                   PAR      5081
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   121
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       MAD 
  
                                        **        MAD - MARK ARGUMENT DEFINED.                                   PAR      5083
                                        *                                                                        PAR      5084
                                        *         WHEN AN ACTUAL ARGUMENT IS ADDRESSABLE, IT MAY BE REDEFINED BY PAR      5085
                                        *         THE CALLED ROUTINE.  *MAD* SETS (WB.DEF) FOR SUCH ARGUMENTS,   PAR      5086
                                        *         UNLESS THEY ARE (WB.NVAR).                                     PAR      5087
                                        *                                                                        PAR      5088
                                        *         ENTRY  (X5) = OPERAND TO BE MARKED.                            PAR      5089
                                        *                                                                        PAR      5090
                                        *         EXIT   (X7, A7) = SYMTAB ENTRY FOR OPERAND.                    PAR      5091
                                        *                                                                        PAR      5092
                                        *         USES   ...                                                     PAR      5093
                                                                                                                 PAR      5094
                                                                                                                 PAR      5095
          3137  0400403137 +             MAD      SUBR   0           ENTRY/EXIT...                               PAR      5096
          3140  0100004144 +                      RJ     DOA         DETERMINE OPERAND ADDRESSIBILITY            PAR      5097
          3141  0316003137 +                      NZ     X6,EXIT.    IF NOT CALL-BY-REFERENCE ARGUMENT           PAR      5098
                          7130000200              CLAS=  X3,WB,(DEF)                                             PAR      5099
          3142  12732                             BX7    X3+X2                                                   PAR      5100
                                         .T       IFEQ   TEST,ON                                                 PAR      5101
                                                  HX2    WB.NVAR                                                 PAR      5102
                                                  BX3    X1-X2                                                   PAR      5103
                                                  PL     X3,"BLOWUP" IF (VAR .EQV. NVAR)                         PAR      5104
                                         .T       ENDIF                                                          PAR      5105
                     0321003137 +                 PL     X1,EXIT.    IF ARG IS NOT KNOWN AS VARIABLE             PAR      5106
                               54720              SA7    A2                                                      PAR      5107
          3143  0400003137 +                      EQ     EXIT.                                                   PAR      5108
  
  
  
  
                                        **        SSA -  STACK SUBPROGRAM ARGUMENT.                              PAR      5110
                                        *                                                                        PAR      5111
                                        *         NOTE EXTREMELY DIRTY KLUDGE FOR STATEMENT LABEL PARAMETER --   PAR      5112
                                        *         PAR.MULT SET IT'S MODE = 7, SO WE COULD RECOGNIZE IT.          PAR      5113
                                        *                                                                        PAR      5114
                                        *         ENTRY  (X5) = OPERAND FOR THIS ARGUMENT.                       PAR      5115
                                                                                                                 PAR      5116
                                                                                                                 PAR      5117
          3144  0400403144 +             SSA      SUBR   0           ENTRY/EXIT...                               PAR      5118
          3145  43071                             MX0    -TP.MODEL                                               PAR      5119
                                                  LX0    TP.MODEP                                                PAR      5120
                     15250                        BX2    -X0*X5      (X2) = MODE OF ARG                          PAR      5121
                          12102                   BX1    X0+X2                                                   PAR      5122
                                   0              ERRNZ  7-N.TYPE                                                PAR      5123
                                   0              ERRNZ  TP.MODEL-3                                              PAR      5124
                               67661              =B6    B6-1        REMOVE ARG FROM ESTACK                      PAR      5125
          3146  0301003152 +                      ZR     X1,SSA2     IF MODE = ALL BITS, ARG IS LABEL            PAR      5126
                          10655                   BX6    X5                                                      PAR      5127
          3147  5110000000 X                      ADDWD  T.ARG                                                   PAR      5128
          3150  0100003137 +                      RJ     MAD         MARK ARGUMENT DEFINED                       PAR      5129
          3151  0400003144 +                      EQ     EXIT.                                                   PAR      5130
                                                                                                                 PAR      5131
          3152  11605                    SSA2     BX6    X0*X5       REMOVE WEIRD MODE                           PAR      5132
                     5110000000 X                 ADDWD  T.SLARG                                                 PAR      5133
          3154  0400003144 +                      EQ     EXIT.                                                   PAR      5134
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   122
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       TXI 
  
                                        **        TXI - TAG EXTERNAL INTRINSIC.                                  PAR      5136
                                        *                                                                        PAR      5137
                                        *         ENTRY  (X1) = INTRINSIC TABLE ENTRY.                           PAR      5138
                                        *                (X2) = CALLING SEQUENCE (SEE FUNI MACRO).               PAR      5139
                                        *                (/CF/IT) = INTRINSIC TABLE INDEX.                       PAR      5140
                                        *                                                                        PAR      5141
                                        *         EXIT   (/CF/TP) = ROUTINE TAG (OPERAND).                       PAR      5142
                                        *                (/CF/IE) = INTRINSIC TABLE ENTRY.                       PAR      5143
                                        *                (SMOD) = RESULT MODE OF FUNCTION.                       PAR      5144
                                        *                NAME ENTERED IN SYMTAB.                                 PAR      5145
                                        *                                                                        PAR      5146
                                        *         IF TRACEBACK IS NOT SELECTED, SUBSTITUTE THE CALL-BY-VALUE     PAR      5147
                                        *         FUNCTION NAME.                                                 PAR      5148
                                                                                                                 PAR      5149
                                                                                                                 PAR      5150
          3155  0400403155 +             TXI      SUBR   0           ENTRY/EXIT...                               PAR      5151
          3156  53320                             SA3    X2                                                      PAR      5152
                     10711                        BX7    X1          (CF/IE) = TABLE ENTRY                       PAR      5153
                          43044                   MX0    IT.DPCL                                                 PAR      5154
                                                  HX1    IT.DPC                                                  PAR      5155
                               10633              BX6    X3          (CF/APL) = APLIST OPERATOR                  PAR      5156
          3157  26222                             UX2,B2             (B2) = FUNCTION TYPE FOR (WC.FUNT)          PAR      5157
                     5170002600 +                 SA7    /CF/IE                                                  PAR      5158
                               11401              BX4    X0*X1       EXTRACT (X4) = SPECIFIC NAME                PAR      5159
          3160  5160002577 +                      SA6    /CF/APL                                                 PAR      5160
                          20236                   LX2    30                                                      PAR      5161
                               53320              SA3    X2                                                      PAR      5162
          3161  76520                             SX5    B2                                                      PAR      5163
                     10733                        BX7    X3          (CF/RJ) = FUNCTION CALL OPERATOR            PAR      5164
                          26272                   UX2,B7             (B7) = SUFFIX CHARACTER                     PAR      5165
                               43066              MX0    -6                                                      PAR      5166
          3162  5170002603 +                      SA7    /CF/RJ                                                  PAR      5167
                          6120000030              SB2    IT.DPCP                                                 PAR      5168
          3163  22620                    TXI2     LX6    X0,B2       POSITION CHARACTER MASK                     PAR      5169
                     15246                        BX2    -X6*X4                                                  PAR      5170
                          6122000006              SB2    B2+6                                                    PAR      5171
          3164  0302003163 +                      ZR     X2,TXI2     IF NO SIGNIFICANT CHARACTER YET             PAR      5172
                          6122777763              SB2    B2-2*6                                                  PAR      5173
          3165  5130000000 X                      SA3    WO.CS       COLLATE FIXED/USER FLAG                     PAR      5174
                          76010                   =X0    1                                                       PAR      5175
                               13303              BX3    X0-X3       FIXED = 1, USER = ZERO                      PAR      5176
          3166  20326                             LX3    IT.CHARP                                                PAR      5177
                     11031                        BX0    X3*X1                                                   PAR      5178
                          0300003170 +            ZR     X0,TXI1     IF NOT COLLATE = FIXED AND CHAR OR ICHAR RE PAR      5179
          3167  6177000600                        SB7    B7+0600B    2RF:                                        PAR      5180
                          6122777771              SB2    B2-6                                                    PAR      5181
                                                                                                                 PAR      5182
          3170  76270                    TXI1     SX2    B7                                                      PAR      5183
                     22222                        LX2    B2          MOVE SUFFIX TO LAST EMPTY CHAR SLOT         PAR      5184
                          12124                   BX1    X2+X4       APPEND SUFFIX TO NAME                       PAR      5185
          3171  0100000000 X                      TAGSEX A1          TAG SYSTEM EXTERNAL                         PAR      5186
          3172  7110050320                        CLAS=  X1,WB,(NVAR,EXT,CGS,FUN,DEF)                            PAR      5187
                          5160002604 +            SA6    /CF/TP                                                  PAR      5188
          3173  5130002601 +                      SA3    /CF/IT                                                  PAR      5189
                          12712                   BX7    X1+X2       MERGE FUNC ATTRIBUTES ONTO NEW SYMBOL (WB)  PAR      5190
          3174  5140002600 +                      SA4    /CF/IE                                                  PAR      5191
                          43671                   MX6    -IT.MODEL                                               PAR      5192
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   123
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       TXI 
  
                               20357              LX3    WB.JPFP                                                 PAR      5193
          3175  12773                             BX7    X7+X3       SET (WB.JPF) = INTRINSIC TABLE INDEX        PAR      5194
                                                  LX4    -IT.MODEP                                               PAR      5195
                     15646                        BX6    -X6*X4                                                  PAR      5196
                          5160000002 +            SA6    SMOD        SET (SMOD) = RESULT MODE                    PAR      5197
                                                  LX6    WB.MODEP                                                PAR      5198
          3176  12776                             BX7    X7+X6       SET (WB.MODE) = RESULT MODE                 PAR      5199
                                   0              ERRMI  IT.MODEL-WB.MODEL                                       PAR      5200
                     54720                        SA7    A2          UPDATE SYMTAB (WB)                          PAR      5201
                                                                                                                 PAR      5202
                          6225777774              SB2    X5-MF.BEF                                               PAR      5203
          3177  20571                             LX5    WC.FUNTP-WC.BRPP                                        PAR      5204
                     43164                        MX1    -IT.JPADL                                               PAR      5205
                          13666                   BX6    0           CLEN = 0                                    PAR      5206
                               20466              LX4    IT.MODEP-IT.JPADP                                       PAR      5207
          3200  0520003201 +                      NZ     B2,TXI6     IF NOT A CALL-BY-VALUE FUNC                 PAR      5208
                          15241                   BX2    -X1*X4      EXTRACT (X2) = B-REGISTERS PRESERVED        PAR      5209
                               12525              BX5    X2+X5                                                   PAR      5210
                                         TXI6     LX5    WC.BRPP     (X5) = SYMTAB (WC.)[FUNT, BRP]              PAR      5211
          3201  5130000002 +                      SA3    SMOD                                                    PAR      5212
                          6223777771              SB2    X3-M.CHAR                                               PAR      5213
          3202  0520003203 +                      NZ     B2,TXI7     IF RESULT MODE NOT CHARACTER                PAR      5214
                          76610                   SX6    B1          CLEN = 1                                    PAR      5215
                               20636              LX6    WC.CLENP                                                PAR      5216
                                                                                                                 PAR      5217
          3203  12656                    TXI7     BX6    X5+X6                                                   PAR      5218
                     54621                        =A6    A2-WB.W+WC.W                                            PAR      5219
                          0400003155 +            EQ     EXIT.                                                   PAR      5220
  
  
  
  
                                        **        VAM -  VALIDATE ARGUMENT MODE AGREEMENT FOR INTRINSICS.        PAR      5222
                                        *                                                                        PAR      5223
                                        *         ENTRY  (X5) = ARGUMENT TO CHECK.                               PAR      5224
                                        *                (A2,X2) = LOGICAL (ARGCOMA).                            PAR      5225
                                        *                (A2)-AC.W+AS.W -> LOGICAL (ARGMIS).                     PAR      5226
                                        *                                                                        PAR      5227
                                        *         EXIT   (X7) = MODE OF ARGUMENT.                                PAR      5228
                                        *                (A2) -> LOGICAL (ARGCOMA) UPDATED IF FIRST ARG.         PAR      5229
                                        *                (FILL.) = FUNCTION NAME.                                PAR      5230
                                        *                                                                        PAR      5231
                                        *         USES   A3,6   X0-3,X6-7   B7.                                  PAR      5232
                                                                                                                 PAR      5234
                                                                                                                 PAR      5235
          3204  0400403204 +             VAM      SUBR               ENTRY/EXIT...                               PAR      5236
          3205  43071                             MX0    -TP.MODEL                                               FC5A411    47
                                                  LX5    -TP.MODEP                                               FC5A411    48
                     15350                        BX3    -X0*X5      EXTRACT ARGUMENT MODE                       FC5A411    49
                                                  LX5    TP.MODEP                                                FC5A411    50
                          43601                   CLAS=  X6,AC,(BOOL)                                            FC5A411    51
          3206  0313003207 +                      NZ     X3,VAM0     IF ARGUMENT NOT BOOLEAN                     FC5A411    52
                                   0              ERRNZ  M.BOOL                                                  FC5A411    53
                          12262                   BX2    X6+X2       INDICATE BOOLEAN ARGUMENT                   FC5A411    54
                                                                                                                 FC5A411    55
          3207  20230                    VAM0     LX2    -AC.MAXMP                                               FC5A411    56
                     15620                        BX6    -X0*X2      EXTRACT MAXIMUM ARGUMENT                    FC5A411    57
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   124
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VAM 
  
                          11202                   BX2    X0*X2       CLEAR MAXIMUM ARGUMENT                      FC5A411    58
                               37063              MX0    X6+X3                                                   FC5A411    59
          3211  12620                             BX6    X2+X0       INSERT MAXIMUM MODE [THUS FAR]              FC5A411    60
                     20644                        LX6    AC.MAXMP                                                FC5A411    61
                          54620                   SA6    A2          UPDATE ARGCOMA                              FC5A411    62
                               10266              BX2    X6                                                      FC5A411    63
          3212  5130000000 X                      SA3    T.SYM                                                   PAR      5237
                          6273000001              SB7    X3+WB.W                                                 PAR      5238
          3213  54321                             =A3    A2-AC.W+AS.W                                            PAR      5239
                     43752                        MX7    -AS.ORDL                                                PAR      5240
                          10633                   BX6    X3                                                      PAR      5241
                                                  LX6    -AS.ORDP                                                PAR      5242
                               15767              BX7    -X7*X6      ORD[ARGMIS] = TAG(FUNCTION)                 PAR      5243
          3214  22617                             LX6    B1,X7                                                   PAR      5244
                     36167                        IX1    X6+X7                                                   PAR      5245
                          43744                   MX7    AS.SYML                                                 PAR      5246
                                                  HX3    AS.SYM                                                  PAR      5247
                               11673              BX6    X7*X3       SET (FILL.) = FUNCTION NAME                 PAR      5248
                                                  LX2    -AC.CNTP                                                PAR      5249
          3215  5160000000 X                      SA6    FILL.                                                   PAR      5250
                          53317                   SA3    B7+X1       WB(FUNCTION)                                PAR      5251
                               20346              HX3    WB.GENF                                                 PAR      5252
          3216  10155                             BX1    X5                                                      PAR      5253
                                                  LX1    -TP.MODEP                                               PAR      5254
                     43071                        MX0    -TP.MODEL                                               PAR      5255
                          15710                   BX7    -X0*X1      MODE OF ARGUMENT                            PAR      5256
          3217  0333003222 +                      MI     X3,VAM1     IF GENERIC FUNCTION                         PAR      5257
                          43063                   MX0    -WB.JPFL                                                PAR      5258
                               20343              LX3    WB.GENFP+1-WB.JPFP                                      PAR      5259
          3220  15030                             BX0    -X0*X3                                                  PAR      5260
                     5230000000 X                 SA3    F.INTF+X0                                               PAR      5261
                               43071              MX0    -IT.ARGML                                               PAR      5262
          3221  20371                             LX3    -IT.ARGMP                                               PAR      5263
                     15330                        BX3    -X0*X3      ARGM[INTF(JPF[WB(FUNCTION)])]  REQUIRED MOD PAR      5264
                          0303003233 +            ZR     X3,VAM10    IF ARGM = M.BOOL                            FC5A411    64
                                   0              ERRNZ  M.BOOL                                                  PAR      5266
                                                                                                                 PAR      5267
          3222  63720                    VAM1     SB7    X2                                                      PAR      5268
                                   0              ERRNZ  18-AC.CNTL                                              PAR      5269
                     0717003225 +                 GT     B7,B1,VAM2  IF NOT FIRST ARG                            PAR      5270
                               20252              LX2    AC.CNTP-AC.MODEP                                        PAR      5271
          3223  12672                             BX6    X7+X2       SET (AC.MODE) = MODE OF FIRST ARG           PAR      5272
                     20622                        LX6    AC.MODEP                                                PAR      5273
                          54620                   SA6    A2                                                      PAR      5274
          3224  0400003204 +                      EQ     EXIT.                                                   PAR      5275
                                                                                                                 PAR      5276
          3225  20252                    VAM2     LX2    AC.CNTP-AC.MODEP                                        PAR      5277
                     73220                        SX2    X2          (X2) = REQUIRED MODE OF ARG                 PAR      5278
                                   0              ERRNZ  18-AC.MODEL                                             PAR      5279
                          13072                   BX0    X7-X2                                                   PAR      5280
          3226  0300003204 +                      ZR     X0,EXIT.    IF MODE AGREEMENT                           PAR      5281
                          76000                   =X0    0                                                       PAR      5282
          3227  0302003233 +                      ZR     X2,VAM10    IF REQUIRED MODE TYPELESS                   PAR      5283
                          0317003231 +            NZ     X7,VAM4     IF ACTUAL ARG NOT BOOLEAN                   PAR      5284
          3230  7222777771                        SX2    X2-M.CHAR                                               PAR      5285
                          0312003204 +            NZ     X2,EXIT.    IF DEFINED MODE NOT CHARACTER               PAR      5286
                                                                                                                 PAR      5287
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   125
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VAM 
  
          3231  6170000000 X             VAM4     FATAL  E.SU03      WRONG ARGUMENT MODE                         PAR      5288
          3232  7170000000                        SX7    M.BOOL      MODE BITS = BOOLEAN                         PAR      5289
                          0400003204 +            EQ     EXIT.                                                   PAR      5290
                                                                                                                 PAR      5291
          3233  7207777771               VAM10    SX0    X7-M.CHAR                                               PAR      5292
                          0300003231 +            ZR     X0,VAM4     IF THIS ARGUMENT MODE IS CHARACTER          PAR      5293
          3234  0400003204 +                      EQ     EXIT.                                                   PAR      5294
  
  
  
  
                                        **        VEL -  VALIDATE ARGUMENT LIST FOR EXTERNAL.                    PAR      5296
                                        *                                                                        PAR      5297
                                        *         ENTRY  (X7) = NUMBER OF ARGUMENTS.                             PAR      5298
                                        *                (X4) = CURRENT ROUTINE TAG.                             PAR      5299
                                        *                                                                        PAR      5300
                                        *         EXIT   IF 1ST REFERENCE,                                       PAR      5301
                                        ** FV - RE-WRITE THIS MESS.                                              PAR      5302
                                        *                   SYMTAB (WC.ARGC, WB.DEF) SET.                        PAR      5303
                                        *                   ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*.           PAR      5304
                                        *                IF NOT 1ST REFERENCE,                                   PAR      5305
                                        *                   ARGUMENT COUNT CHECKED AGAINST *MAX.SARG*.           PAR      5306
                                        *                   ARGUMENT COUNT CHECKED AGAINST (WC.ARGC).            PAR      5307
                                        *                (CF/APL) = OPERATOR FOR USER AP LIST.                   PAR      5308
                                        *                (SMOD) = MODE OF ROUTINE.                               PAR      5309
                                        *                (X3) = PRESERVED.                                       PAR      5310
                                        *                (A4) = ADDRESS OF SYMTAB (WB) OF ROUTINE.               PAR      5311
                                        *                                                                        PAR      5312
                                        *         USES   X0-4,X6-7    A1-4,A6-7    B2-3,B7.                      PAR      5313
                                        *                (FILL.)                                                 PAR      5314
                                        *         CALLS  FATAL, FSA.                                             PAR      5315
                                                                                                                 PAR      5316
                                                                                                                 PAR      5317
          3235  0400403235 +             VEL      SUBR   =           ENTRY/EXIT...                               PAR      5318
          3236  10644                             BX6    X4          SET (CF/TP) = OPERAND FOR ROUTINE           PAR      5319
                     5130000324 +                 SA3    GAPOP                                                   PAR      5320
                               43071              MX0    -TP.MODEL                                               PAR      5321
          3237  10166                             BX1    X6                                                      PAR      5322
                     5160002604 +                 SA6    /CF/TP                                                  PAR      5323
                               10477              BX4    X7          (X4) = NUMBER OF ARGS                       PAR      5324
                                                  LX6    -TP.MODEP                                               PAR      5325
          3240  15760                             BX7    -X0*X6      SET (SMOD) = RESULT MODE                    PAR      5326
                     22603                        LX6    X3          SET (CF/APL) FOR USER ARGLIST               PAR      5327
                          5170000002 +            SA7    SMOD                                                    PAR      5328
          3241  5160002577 +                      SA6    /CF/APL                                                 PAR      5329
                          0100004234 +            RJ     FSA         FIND SYMBOL ATTRIBUTES                      PAR      5330
                                         .T       IFEQ   TEST,ON                                                 PAR      5331
                                                  MI     B7,"BLOWUP"       IF NOT IN SYMTAB                      PAR      5332
                                                  MI     X1,"BLOWUP"       IF SYMTAB HAS *VAR* SET               PAR      5333
                                                  LX1    WB.VARP-WB.NVARP                                        PAR      5334
                                                  PL     X1,"BLOWUP"       IF *NVAR* NOT SET                     PAR      5335
                                                  CLAS=  X1,WB,(FUN,SUB)                                         PAR      5336
                                                  BX1    X1*X2                                                   PAR      5337
                                                  ZR     X1,"BLOWUP"       IF NEITHER *FUN* NOR *SUB*            PAR      5338
                                         .T       ENDIF                                                          PAR      5339
          3242  73240                             SX2    X4                                                      PAR      5340
                     7100000200                   CLAS=  X0,WB,(DEF)                                             PAR      5341
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   126
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VEL 
  
                               54420              SA4    A2          FETCH (X4) = SYMTAB WORD (WB)               PAR      5342
          3243  54121                             =A1    A2-WB.W+WC.W                                            PAR      5343
                     11604                        BX6    X0*X4                                                   PAR      5344
                          6222777013              SB2    X2-MAX.SARG                                             PAR      5345
          3244  0316003250 +                      NZ     X6,VEL30    IF ALREADY DEFINED                          PAR      5346
                          20260                   LX2    WC.ARGCP                                                PAR      5347
                               12740              BX7    X4+X0       SET DEFINED BIT                             PAR      5348
          3245  36621                             IX6    X2+X1       SET ARGUMENT COUNT                          PAR      5349
                     6170000000 X                 SB7    E.SU08      TOO MANY ARGUMENTS                          PAR      5350
          3246  0702003254 +                      GT     B2,VEL50    IF NARGS .GT. MAX                           PAR      5351
                          54610                   SA6    A1                                                      PAR      5352
                               54740              SA7    A4          UPDATE SYMTAB ENTRY (WC + WB)               PAR      5353
          3247  0400003235 +                      EQ     EXIT.                                                   PAR      5354
                                                                                                                 PAR      5355
                                                                                                                 PAR      5356
                                        *         HERE IF NOT 1ST REFERENCE TO EXTERNAL.                         PAR      5357
                                        *                (X2) = ARGUMENT COUNT.                                  PAR      5358
                                                                                                                 PAR      5359
          3250  43063                    VEL30    MX0    -WC.ARGCL                                               PAR      5360
                     20114                        LX1    -WC.ARGCP                                               PAR      5361
                          15010                   BX0    -X0*X1      ISOLATE (X1) = PREVIOUS ARGUMENT COUNT      PAR      5362
          3251  6170000000 X                      SB7    E.SU02      ARGUMENT COUNT INCONSISTENT                 PAR      5363
                          37602                   IX6    X0-X2                                                   PAR      5364
          3252  0316003254 +                      NZ     X6,VEL50    IF ARGUMENT COUNT NON-AGREEMENT             PAR      5365
                          6170000000 X            SB7    E.SU08      TOO MANY ARGUMENTS                          PAR      5366
          3253  0602003235 +                      LE     B2,EXIT.    IF DOES NOT EXCEED COMPILER DEFINED LIMITS  PAR      5367
                                                                                                                 PAR      5368
                                        *         ARGUMENT COUNT DOES NOT AGREE WITH FIRST USAGE.                PAR      5369
                                                                                                                 PAR      5370
                                                                                                                 PAR      5371
          3254  55241                    VEL50    =A2    A4-WB.W+WA.W      LOAD SYMBOL WORD                      PAR      5372
                     43152                        MX1    WA.SYML                                                 PAR      5373
                          11612                   BX6    X1*X2                                                   PAR      5374
          3255  5160000000 X                      SA6    FILL.                                                   PAR      5375
                          0100000000 X            FATAL  B7                                                      PAR      5376
          3256  0400003235 +                      EQ     EXIT.                                                   PAR      5377
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   127
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
                                        **        VIL - VALIDATE INTRINSIC LIST.                                 PAR      5379
                                        *                                                                        PAR      5380
                                        *         CHECKS FOR CORRECT ARGUMENT COUNT:  REQUIRED ARG COUNT MUST BE PAR      5381
                                        *         EXACTLY EQUAL TO ACTUAL ARG COUNT, EXCEPT WHEN --              PAR      5382
                                        *         (A)  IF FUNCTION PERMITS AN INDEFINITE NUMBER OF ARGUMENTS,    PAR      5383
                                        *                THE ACTUAL COUNT MUST BE >= TWO.                        PAR      5384
                                        *         (B)  IF FUNCTION NAME IS 'CMPLX' (WHOSE REQUIRED ARG COUNT IS  PAR      5385
                                        *                SPECIFIED IN PARSKEL/F.INTF AS TWO), THEN ACTUAL COUNT  PAR      5386
                                        *                CAN BE = ONE.  IF SO, CHANGE THE INTRINSIC INDEX TO     PAR      5387
                                        *                REFER TO 'CPLX$', WHICH IS ASSUMED TO BE THE IMMEDIA-   PAR      5388
                                        *                TELY PRECEEDING ENTRY.                                  PAR      5389
                                        *                                                                        PAR      5390
                                        *         IF THIS INTRINSIC IS MARKED AS GENERIC, VIL IS RESPONSIBLE FOR PAR      5391
                                        *         SELECTING A SPECIFIC FUNCTION BASED ON ACTUAL ARGUMENT MODE.   PAR      5392
                                        *         ALL DOWN-STREAM PROCESSORS WORK SOLELY WITH MODE-SPECIFIC      PAR      5393
                                        *         INTRINSICS (EXCEPT 'CMPLX', SEE ESF).                          PAR      5394
                                        *                                                                        PAR      5395
                                        *         CHECK VALIDITY OF ARGUMENT MODE.  ACTUAL AND REQUIRED MUST     PAR      5396
                                        *         MATCH EXACTLY, EXCEPT WHEN --                                  PAR      5397
                                        *         (A)  REQUIRED = BOOLEAN.  ACTUAL CAN BE ANYTHING EXECPT        PAR      5398
                                        *                DOUBLE, COMPLEX, OR CHARACTER.                          PAR      5399
                                        *         (B)  REQUIRED = INTEGER.  ACTUAL CAN BE BOOLEAN, WHICH IS      PAR      5400
                                        *                TREATED AS AN INTEGER.                                  PAR      5401
                                        *         (C)  INTRINSIC IS GENERIC.                                     PAR      5402
                                        *                                                                        PAR      5403
                                        *         FOR SOME INDEFINITE ARG COUNT INTRINSICS, THE COMPUTATION IS   PAR      5404
                                        *         PERFORMED IN THE MODE OF THE ARGUMENTS, AND THEN POST-COERCED  PAR      5405
                                        *         TO THE RESULT MODE.  VIL SEARCHES THE LIST AT (SKEL/F.IMCV) TO PAR      5406
                                        *         DETERMINE IF THIS IS SUCH A FUNCTION.  IF SO, LEAVE (SMOD) SET PAR      5407
                                        *         TO ARGUMENT MODE, AND SET (CF/MA) FLAG.                        PAR      5408
                                        *                                                                        PAR      5409
                                        *         IF BOOLEAN ARGUMENTS OCCUR, TREAT AS FOLLOWS:                  FC5A411    65
                                        *                                                                        FC5A411    66
                                        *              1.  IF INTRINSIC TYPE IS BOOLEAN, ARGUMENTS ARE UNCHANGED FC5A411    67
                                        *                                                                        FC5A411    68
                                        *              2.  IF ONLY ONE ARGUMENT [BOOLEAN]:                       FC5A411    69
                                        *                  A. IF GENERIC INTRINSIC:                              FC5A411    70
                                        *                     (1) IF INTEGER IS LEGAL, TREAT AS INTEGER [EXCEPT  FC5A411    71
                                        *                         INTRINSIC FUNCTIONS DBLE, REAL, CMPLX].        FC5A411    72
                                        *                     (2) OTHERWISE, TREAT AS REAL.                      FC5A411    73
                                        *                  B. IF SPECIFIC INTRINSIC, TREAT AS REQUIRED MODE.     FC5A411    74
                                        *                                                                        FC5A411    75
                                        *              3.  IF MORE THAN ONE ARGUMENT [AT LEAST ONE ARGUMENT IS   FC5A411    76
                                        *                  BOOLEAN]:                                             FC5A411    77
                                        *                  A. IF GENERIC INTRINSIC:                              FC5A411    78
                                        *                     (1) IF ALL ARGUMENTS BOOLEAN, TREAT AS INTEGER     FC5A411    79
                                        *                         [EXCEPT CMPLX].                                FC5A411    80
                                        *                     (2) OTHERWISE, CONVERT BOOLEAN ARGUMENTS TO HIGHES FC5A411    81
                                        *                         ARGUMENT MODE.                                 FC5A411    82
                                        *                  B. IF SPECIFIC INTRINSIC, TREAT BOOLEAN ARGUMENTS AS  FC5A411    83
                                        *                     REQUIRED MODE.                                     FC5A411    84
                                        *                                                                        FC5A411    85
                                        *         ENTRY  (X5) = OPERAND FOR LAST ARG.                            PAR      5410
                                        *                (CF/AC) = NUMBER OF ARGUMENTS IN THIS CALL.             PAR      5411
                                        *                (SMOD) = MODE OF ARGUMENTS.                             PAR      5412
                                        *                (SCR .. SCR+2) = (ARGMODE, ARGCNT, ARGMISC).            PAR      5413
                                        *                (FILL.) = FUNCTION NAME.                                PAR      5414
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   128
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
                                        *                                                                        PAR      5415
                                        *         EXIT   IF FUNCTION NOT REDUCED --                              PAR      5416
                                        *                (X2) = INTRINSIC TABLE ENTRY OF SPECIFIC NAME.          PAR      5417
                                        *                (CF/IT) = INTRINSIC TABLE INDEX OF SPECIFIC NAME.       PAR      5418
                                        *                (CF/MA) .ZR. = NO POST-EVALUATION CONVERSION REQUIRED.  PAR      5419
                                        *                        .NZ. = (F.IMCV) ENTRY FOR THIS FUNCTION.        PAR      5420
                                        *                (SMOD) = MODE FOR ISSUING FUNCTION TURPLES.             PAR      5421
                                        *                (AC.MODE) = RESULT MODE.                                PAR      5422
                                        *                                                                        PAR      5423
                                        *         ELSE   TO *POPX* --                                            PAR      5424
                                        *                FUNCTION REDUCED.                                       PAR      5425
                                        *                (ESTACK.TOP) = RESULT OPERAND.                          PAR      5426
                                        *                                                                        PAR      5427
                                        *         USES   ALL BUT A0, B4,B5,B6.                                   PAR      5428
                                        *                                                                        FC5A411    86
                                        *         CALLS  CMR, CT1                                                FC5A411    87
                                                                                                                 PAR      5430
                                                                                                                 PAR      5431
          3257  0400403257 +             VIL      SUBR               ENTRY/EXIT...                               PAR      5432
          3260  5140000002 X                      SA4    SCR+AS.W                                                PAR      5433
                          13777                   BX7    0           (CF/MA) = 0                                 PAR      5434
                                                  LX4    -AS.ORDP                                                PAR      5435
                               73040              SX0    X4          EXTRACT (X0) = SYMORD OF FUNCTION           PAR      5436
                                   0              ERRNZ  18-AS.ORDL                                              PAR      5437
          3261  5170002602 +                      SA7    /CF/MA                                                  PAR      5438
                          0100000000 X            CALL   CT1         LOAD SYMTAB (WB)                            PAR      5439
                                                                                                                 FC5A411    88
                                         .T       IFEQ   TEST,ON                                                 PAR      5440
                                                  CLAS=  X1,WB,(LAB,VAR)                                         PAR      5441
                                                  BX3    X1*X2                                                   PAR      5442
                                                  NZ     X3,"BLOWUP"       IF SYMTAB ENTRY IS ILL                PAR      5443
                                                  BX1    X2                                                      PAR      5444
                                                  HX1    WB.FUN                                                  PAR      5445
                                                  PL     X1,"BLOWUP"       IF SYMTAB ENTRY IS ILL                PAR      5446
                                         .T       ENDIF                                                          PAR      5447
                                                                                                                 FC5A411    89
          3262  43063                             MX0    -WB.JPFL                                                PAR      5448
                     20215                        LX2    -WB.JPFP                                                PAR      5449
                          54420                   SA4    A2          REMEMBER (A4,X4) = SYMTAB (WB)              PAR      5450
                               15320              BX3    -X0*X2      EXTRACT (X3) = FJ = INTRINSIC TABLE INDEX   PAR      5451
          3263  5213000000 X                      SA1    X3+F.INTF                                               PAR      5452
                          5120002576 +            SA2    /CF/AC                                                  PAR      5453
          3264  43771                             MX7    -IT.ARGCL                                               PAR      5454
                     20156                        LX1    -IT.ARGCP                                               PAR      5455
                          15017                   BX0    -X7*X1      EXTRACT (X0) = DEFINED ARGUMENT COUNT       PAR      5456
          3265  6170000000 X                      SB7    E.SU05      WRONG NUMBER OF ARGUMENTS                   PAR      5457
                          63220                   SB2    X2                                                      PAR      5458
                               12770              BX7    X7+X0                                                   PAR      5459
          3266  5170000017 +                      SA7    VILA                                                    PAR      5460
                          0317003271 +            NZ     X7,VIL05    IF INFINITE ARG COUNT NOT PERMITTED         FC5A411    90
          3267  0712003300 +                      GT     B2,B1,VIL15 IF TWO OR MORE ARGUMENTS                    FC5A411    91
                          6170000000 X            SB7    E.SU09      NOT ENOUGH ARGUMENTS                        PAR      5463
          3270  0400003275 +                      EQ     VIL10       OUTPUT ERROR                                FC5A411    92
                                                                                                                 PAR      5465
          3271  37602                    VIL05    IX6    X0-X2                                                   FC5A411    93
                     0306003300 +                 ZR     X6,VIL15    IF ARGUMENT COUNT AGREEMENT                 FC5A411    94
                               76211              SX2    B1+B1                                                   PAR      5468
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   129
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3272  7170000000 X                      SX7    OMI=CPX                                                 PAR      5469
                          37637                   IX6    X3-X7                                                   PAR      5470
          3273  0316003275 +                      NZ     X6,VIL10    IF FUNCTION NAME NOT 'CMPLX'                FC5A411    95
                          37332                   IX3    X3-X2       FJ = FJ - 2                                 PAR      5472
          3274  0421003300 +                      EQ     B2,B1,VIL15 IF ACTUAL COUNT .EQ. 1                      FC5A411    96
                                                                                                                 PAR      5474
                                        *         ARGUMENT COUNT DOES NOT AGREE WITH ANSI SPEC.                  PAR      5475
                                                                                                                 PAR      5476
          3275  0100000000 X             VIL10    FATAL  B7                                                      FC5A411    97
          3276  5120000000 X                      SA2    F.INTF      SUBSTITUTE ERROR INTRINSIC                  PAR      5478
                          13777                   BX7    0                                                       PAR      5479
          3277  5170002601 +                      SA7    /CF/IT                                                  PAR      5480
                          0400003257 +            EQ     EXIT.                                                   PAR      5481
                                                                                                                 PAR      5482
                                        *         SELECT SPECIFIC NAME, IF GENERIC.                              PAR      5483
                                        *                (X3) = FJ = INTRINSIC TABLE INDEX.                      PAR      5484
                                        *                (X4) = SYMTAB (WB).                                     PAR      5485
                                                                                                                 PAR      5486
          3300                           VIL15    BSS                                                            FC5A411    98
                                                                                                                 FC5A411    99
                                         .T       IFEQ   TEST,ON                                                 PAR      5488
                                                  SX6    Z.INTF                                                  PAR      5489
                                                  IX6    X3-X6                                                   PAR      5490
                                                  PL     X6,"BLOWUP"       IF FJ .GE. INTRIN TABLE LENGTH        PAR      5491
                                         .T       ENDIF                                                          PAR      5492
                                                                                                                 FC5A411   100
          3300  5110000001 X                      SA1    SCR+AC.W                                                PAR      5493
                                                  HX1    AC.BOOL                                                 FC5A411   101
                          0321003376 +            PL     X1,VIL60    IF NO BOOLEAN ARGUMENTS                     FC5A411   102
          3301  5223000000 X                      SA2    X3+F.INTF                                               FC5A411   103
                          43071                   MX0    -IT.ARGML                                               FC5A411   104
                               20271              LX2    -IT.ARGMP                                               FC5A411   105
          3302  15220                             BX2    -X0*X2      EXTRACT REQUIRED ARGUMENT MODE              FC5A411   106
                     0302003376 +                 ZR     X2,VIL60    IF BOOLEAN                                  FC5A411   107
                                   0              ERRNZ  M.BOOL                                                  FC5A411   108
                                                  LX1    AC.BOOLL+AC.BOOLP                                       FC5A411   109
                                                  LX1    -AC.CNTP                                                FC5A411   110
                               63210              SB2    X1          EXTRACT ARGUMENT COUNT                      FC5A411   111
          3303  20130                             LX1    AC.CNTP-AC.MAXMP                                        FC5A411   112
                     73510                        SX5    X1          EXTRACT MAXIMUM MODE                        FC5A411   113
                                   0              ERRNZ  18-AC.MAXML                                             FC5A411   114
                          0521003332 +            NE     B2,B1,VIL21 IF MORE THAN ONE ARGUMENT                   FC5A411   115
                                                                                                                 FC5A411   116
                                        *         FIRST TEST FOR GENERIC FUNCTION, IF SO CONVERT APPROPRIATLY.   FC5A411   117
                                                                                                                 FC5A411   118
          3304  22104                             LX1    X4                                                      FC5A411   119
                     20146                        SBIT   X1,WB.GENFP                                             FC5A411   120
                          0321003321 +            PL     X1,VIL19    IF NOT GENERIC                              FC5A411   121
          3305  5110000000 X                      SA1    FILL.       SAVED FUNCTION NAME                         FC5A411   122
                          5120004564 +            SA2    =4LREAL                                                 FC5A411   123
          3306  37212                             IX2    X1-X2                                                   FC5A411   124
                     0302003312 +                 ZR     X2,VIL16    IF INTRINSIC REAL                           FC5A411   125
          3307  5120004565 +                      SA2    =4LDBLE                                                 FC5A411   126
                          37212                   IX2    X1-X2                                                   FC5A411   127
          3310  0302003312 +                      ZR     X2,VIL16    IF INTRINSIC DBLE                           FC5A411   128
                          5120004566 +            SA2    =5LCMPLX                                                FC5A411   129
          3311  37212                             IX2    X1-X2                                                   FC5A411   130
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   130
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
                     0312003314 +                 NZ     X2,VIL17    IF NOT INTRINSIC CMPLX                      FC5A411   131
                                                                                                                 FC5A411   132
          3312  5116777776               VIL16    SA1    B6-1        FETCH ARGUMENT                              FC5A411   133
                          7160000003              SX6    M.REAL                                                  FC5A411   134
          3313  0400003327 +                      EQ     VIL20                                                   FC5A411   135
                                                                                                                 FC5A411   136
          3314  5213000001 X             VIL17    SA1    X3+1+F.INTF  GENERIC SELECTION VECTOR                   FC5A411   137
                          6170000020              SB7    M.INT*8     SHIFT FOR INTEGER                           FC5A411   138
          3315  7160000003                        SX6    M.REAL                                                  FC5A411   139
                          43064                   MX0    -8                                                      FC5A411   140
                               15010              BX0    -X0*X1      VECTOR FOR INTEGER                          FC5A411   141
          3316  5116777776                        SA1    B6-1        FETCH ARGUMENT                              FC5A411   142
                          7200777400              SX0    X0-1S8+1                                                FC5A411   143
          3317  0300003327 +                      ZR     X0,VIL20    IF INTEGER NOT ALLOWED [TREAT AS REAL]      FC5A411   144
                          7160000002              SX6    M.INT                                                   FC5A411   145
          3320  0400003327 +                      EQ     VIL20                                                   FC5A411   146
                                                                                                                 FC5A411   147
                                        *         ONE ARGUMENT, CONVERT TO REQUIRED MODE (NOT GENERIC)           FC5A411   148
                                                                                                                 FC5A411   149
          3321  57161                    VIL19    =A1    B6-1        FETCH ARGUMENT                              FC5A411   150
                     10622                        BX6    X2          REQUIRED MODE                               FC5A411   151
                          7222777773              SX2    X2-M.DBL                                                FC5A411   152
          3322  0332003327 +                      MI     X2,VIL20    IF NOT DBL OR CMPLX                         FC5A411   153
                          22501                   LX5    X1          OPERAND                                     FC5A411   154
          3323  0100004076 +                      RJ     CMR         COERCE MODE TO REQUIRED                     FC5A411   155
          3324  5110000002 X                      SA1    SCR+AS.W                                                FC5A411   156
                                                  LX1    -AS.ORDP                                                FC5A411   157
                          73010                   SX0    X1          EXTRACT INTRINSIC SYMTAB ORDINAL            FC5A411   158
                                   0              ERRNZ  18-AS.ORDL                                              FC5A411   159
          3325  0100000000 X                      CALL   CT1         LOAD SYMTAB WB.                             FC5A411   160
          3326  54420                             SA4    A2          RESTORE (A4, X4) TO WB. OF INTRINSIC        FC5A411   161
                     57161                        =A1    B6-1        REFETCH ORIGINAL ARGUMENT                   FC5A411   162
                          43671                   MX6    -TP.MODEL                                               FC5A411   163
                                                  LX5    -TP.MODEP                                               FC5A411   164
                               15656              BX6    -X6*X5      EXTRACT MODE                                FC5A411   165
                                                                                                                 FC5A411   166
          3327  12716                    VIL20    BX7    X1+X6       MERGE IN PROPER MODE                        FC5A411   167
                                   0              ERRNZ  M.BOOL                                                  FC5A411   168
                     5071000000                   SA7    A1+         UPDATE                                      FC5A411   169
                               22507              LX5    X7          RESTORE ARGUMENT                            FC5A411   170
          3330  5110000001 X                      SA1    SCR+AC.W                                                FC5A411   171
                          20622                   LX6    AC.MODEP                                                FC5A411   172
                               12616              BX6    X1+X6       MERGE IN CONVERTED MODE                     FC5A411   173
                                   0              ERRNZ  M.BOOL                                                  FC5A411   174
          3331  5061000000                        SA6    A1+         UPDATE                                      FC5A411   175
                          0400003376 +            EQ     VIL60                                                   FC5A411   176
                                                                                                                 FC5A411   177
                                        *         TWO OR MORE ARGUMENTS, CONVERT TO INTEGER OR MAXIMUM MODE      FC5A411   178
                                        *         (B2) = NUMBER OF ARGUMENTS                                     FC5A411   179
                                        *         (X2) = REQUIRE MODE                                            FC5A411   180
                                        *         (X4) = SYMTAB WB.                                              FC5A411   181
                                        *         (X5) = MAXIMUM MODE                                            FC5A411   182
                                                                                                                 FC5A411   183
          3332  6235777771               VIL21    SB3    X5-M.CHAR                                               FC5A411   184
                          0430003376 +            ZR     B3,VIL60    IF MAXMODE = CHAR, ERROR                    FC5A411   185
          3333  6235777776                        SB3    X5-M.LOG                                                FC5A411   186
                          0430003376 +            ZR     B3,VIL60    IF MAXMODE = LOGICAL, ERROR                 FC5A411   187
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   131
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3334  22002                             LX0    X2          PRESERVE REQUIRED MODE                      FC5A422     6
                     5110000000 X                 SA1    FILL.                                                   FC5A411   189
          3335  5120004566 +                      SA2    =5LCMPLX                                                FC5A411   190
                          37112                   IX1    X1-X2                                                   FC5A411   192
                               10200              BX2    X0          RESTORE REQUIRED MODE                       FC5A422     7
          3336  0311003340 +                      NZ     X1,VIL21.1  IF NOT INTRINSIC COMPLEX                    FC5A422     8
                          7150000003              SX5    M.REAL      BOOLEAN ARGUMENTS TREATED AS REAL           FC5A422     9
          3337  0400003342 +                      EQ     VIL22                                                   FC5A422    10
                                                                                                                 FC5A422    11
          3340  0315003342 +             VIL21.1  NZ     X5,VIL22    IF MAXMODE " BOOLEAN                        FC5A422    12
                          76511                   =X5    M.INT                                                   FC5A411   194
                               10144              BX1    X4                                                      FC5A411   195
          3341  20146                             SBIT   X1,WB.GENFP                                             FC5A411   196
                     0331003342 +                 MI     X1,VIL22    IF GENERIC FUNCTION                         FC5A411   197
                               10522              BX5    X2          SET TO REQUIRED MODE                        FC5A411   198
                                                                                                                 FC5A411   199
          3342  6235777773               VIL22    SB3    X5-M.DBL                                                FC5A411   200
                          0630003354 +            PL     B3,VIL30    IF MODE DOUBLE OR COMPLEX, EXPLICIT CONVERT FC5A411   201
          3343  67361                             =B3    B6-1        INITIAL FETCH REGISTER                      FC5A411   202
                     43071                        MX0    -TP.MODEL                                               FC5A411   203
                                                                                                                 FC5A411   204
          3344  56130                    VIL23    SA1    B3          FETCH NEXT ARGUMENT                         FC5A411   205
                     15210                        BX2    -X0*X1      EXTRACT ARGUMENT MODE                       FC5A411   206
                          0312003346 +            NZ     X2,VIL24    IF ARGUMENT NOT BOOLEAN                     FC5A411   207
          3345  12615                             BX6    X1+X5       CONVERT TO PROPER MODE                      FC5A411   208
                                   0              ERRNZ  M.BOOL                                                  FC5A411   209
                     54610                        SA6    A1          UPDATE                                      FC5A411   210
                                                                                                                 FC5A411   211
          3346  6122777776               VIL24    SB2    B2-1                                                    FC5A411   212
                          0420003350 +            ZR     B2,VIL25    IF ALL ARGUMENTS PROCESSED                  FC5A411   213
          3347  6133777776                        SB3    B3-1                                                    FC5A411   214
                          0400003344 +            EQ     VIL23       CONTINUE PROCESSING                         FC5A411   215
                                                                                                                 FC5A411   216
          3350  5110000001 X             VIL25    SA1    SCR+AC.W                                                FC5A411   217
                          43052                   MX0    -AC.MODEL                                               FC5A411   218
                               20022              LX0    AC.MODEP                                                FC5A411   219
          3351  15010                             BX0    -X0*X1      EXTRACT MODE                                FC5A411   220
                     0310003376 +                 NZ     X0,VIL60    IF MODE NOT BOOLEAN                         FC5A411   221
                                   0              ERRNZ  M.BOOL                                                  FC5A411   222
                               20522              LX5    AC.MODEP                                                FC5A411   223
          3352  12615                             BX6    X1+X5       MERGE IN CONVERTED MODE                     FC5A411   224
                     54610                        SA6    A1          UPDATE                                      FC5A411   225
                          5156777776              SA5    B6-1        RESTORE LAST ARGUMENT                       FC5A411   226
          3353  0400003376 +                      EQ     VIL60                                                   FC5A411   227
                                                                                                                 FC5A411   228
                                        *         DOUBLE/COMPLEX CONVERSION                                      FC5A411   229
                                                                                                                 FC5A411   230
          3354  6136777776               VIL30    SB3    B6-1        INITIAL FETCH REGISTER                      FC5A411   231
                                                                                                                 FC5A411   232
          3355  5113000000               VIL31    SA1    B3+         FETCH NEXT ARGUMENT                         FC5A411   233
                          43071                   MX0    -TP.MODEL                                               FC5A411   234
                               15210              BX2    -X0*X1      EXTRACT ARGUMENT MODE                       FC5A411   235
          3356  0312003365 +                      NZ     X2,VIL32    IF ARGUMENT NOT BOOLEAN                     FC5A411   236
                                   0              ERRNZ  M.BOOL                                                  FC5A411   237
                          73650                   SX6    X5                                                      FC5A411   238
                               20622              LX6    18                                                      FC5A411   239
          3357  76530                             SX5    B3                                                      FC5A411   240
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   132
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
                     12665                        BX6    X6+X5                                                   FC5A411   241
                          20622                   LX6    18                                                      FC5A411   242
                               76520              SX5    B2                                                      FC5A411   243
          3360  12665                             BX6    X6+X5                                                   FC5A411   244
                     5160000020 +                 SA6    VILB        SAVE (X5), (B3), (B2)                       FC5A411   245
                               21644              AX6    18+18       COERSION MODE                               FC5A411   246
          3361  22501                             LX5    X1          OPERAND                                     FC5A411   247
                     0100004076 +                 RJ     CMR         COERSE BOOLEAN OPERAND                      FC5A411   248
          3362  5110000020 +                      SA1    VILB                                                    FC5A411   249
                          63210                   SB2    X1          RESTORE (B2)                                FC5A411   250
                               21122              AX1    18                                                      FC5A411   251
          3363  63310                             SB3    X1          RESTORE (B3)                                FC5A411   252
                     21122                        AX1    18                                                      FC5A411   253
                          10655                   BX6    X5                                                      FC5A411   254
                               56630              SA6    B3          UPDATE WITH THE COERCED OPERAND             FC5A411   255
          3364  22501                             LX5    X1          RESTORE (X5)                                FC5A411   256
                                                                                                                 FC5A411   257
          3365  6122777776               VIL32    SB2    B2-1                                                    FC5A411   258
                          0420003367 +            ZR     B2,VIL33    IF ALL ARGUMENTS PROCESSED                  FC5A411   259
          3366  6133777776                        SB3    B3-1                                                    FC5A411   260
                          0400003355 +            EQ     VIL31       CONTINUE PROCESSING                         FC5A411   261
                                                                                                                 FC5A411   262
          3367  5110000002 X             VIL33    SA1    SCR+AS.W                                                FC5A411   263
                                                  LX1    -AS.ORDP                                                FC5A411   264
                          73010                   SX0    X1          EXTRACT INTRINSIC SYMTAB ORDINAL            FC5A411   265
                                   0              ERRNZ  18-AS.ORDL                                              FC5A411   266
          3370  0100000000 X                      CALL   CT1         LOAD SYMTAB (WB)                            FC5A411   267
          3371  54420                             SA4    A2          RESTORE (A4, X4) TO WB. OF INTRINSIC        FC5A411   268
                     43063                        MX0    -WB.JPFL                                                FC5A411   269
                          20415                   LX4    -WB.JPFP                                                FC5A411   270
                               15340              BX3    -X0*X4      RESTORE X3 TO INTRINSIC TABLE INDEX         FC5A411   271
          3372  20457                             LX4    WB.JPFP                                                 FC5A411   272
                     5110000001 X                 SA1    SCR+AC.W                                                FC5A411   273
                               43052              MX0    -AC.MODEL                                               FC5A411   274
          3373  20022                             LX0    AC.MODEP                                                FC5A411   275
                     15010                        BX0    -X0*X1      EXTRACT MODE                                FC5A411   276
                          0310003375 +            NZ     X0,VIL35    IF MODE NOT BOOLEAN                         FC5A411   277
                                   0              ERRNZ  M.BOOL                                                  FC5A411   278
          3374  20522                             LX5    AC.MODEP                                                FC5A411   279
                     12615                        BX6    X1+X5       MERGE IN CONVERTED MODE                     FC5A411   280
                          5061000000              SA6    A1+         UPDATE                                      FC5A411   281
                                                                                                                 FC5A411   282
          3375  5156777776               VIL35    SA5    B6-1        RESTORE LAST ARGUMENT                       FC5A411   283
                                                                                                                 FC5A411   284
          3376  5110000001 X             VIL60    SA1    SCR+AC.W                                                FC5A411   285
                          20152                   LX1    -AC.MODEP                                               PAR      5494
                               73710              SX7    X1          (X7) = ACTUAL MODE OF ARGS                  PAR      5495
                                   0              ERRNZ  18-AC.MODEL                                             PAR      5496
          3377  20446                             HX4    WB.GENF                                                 PAR      5497
                     0324003410 +                 PL     X4,VIL70    IF NOT GENERIC FUNCTION                     PAR      5498
                               20703              LX7    3                                                       PAR      5499
          3400  63770                             SB7    X7          (B7) = 8 * ARGUMENT MODE                    PAR      5500
                     20771                        LX7    -3                                                      PAR      5501
                          5223000001 X            SA2    X3+1+F.INTF       FETCH SELECTION VECTOR FOR GENERIC    PAR      5502
          3401  43064                             MX0    -8                                                      PAR      5503
                     23272                        AX2    B7                                                      PAR      5504
                          15320                   BX3    -X0*X2      EXTRACT (X3) = NEW FJ                       PAR      5505
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   133
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3402  0313003406 +                      NZ     X3,VIL66    IF NOT NULL CONVERSION                      PAR      5506
                          55221                   SA2    A2-B1       FETCH INTRINSIC ENTRY OF THE GENERIC NAME   PAR      5507
                               43071              MX0    -IT.MODEL                                               PAR      5508
                                                  LX2    -IT.MODEP                                               PAR      5509
                                                  LX5    -TP.MODEP                                               PAR      5510
          3403  15320                             BX3    -X0*X2      (X3) = RESULT MODE OF GENERIC               PAR      5511
                                                  IFNE   IT.MODEL,TP.MODEL,1                                     PAR      5512
                                                  MX0    -TP.MODEL                                               PAR      5513
                     11105                        BX1    X0*X5                                                   PAR      5514
                          12713                   BX7    X1+X3       RESULT OPERAND = ORIGINAL WITH NEW MODE     PAR      5515
                               43301              CLAS=  X3,TP,(EXPR)                                            PAR      5516
                                                  LX7    TP.MODEP                                                PAR      5517
                     12673                        BX6    X7+X3                                                   PAR      5518
                          6166777776              SB6    B6-1        EAT FUNCTION NAME                           PAR      5519
          3405  22506                             LX5    X6          STACK AND RETURN RESULT                     PAR      5520
                     57661                        SA6    B6-B1                                                   PAR      5521
                          0400001510 +            EQ     POPX        EXIT..                                      PAR      5522
                                                                                                                 PAR      5523
          3406  6223777400               VIL66    SB2    X3-1S8+1                                                PAR      5524
                          6170000000 X            SB7    E.SU07      INVALID ARGUMENT MODE                       PAR      5525
          3407  0420003275 +                      ZR     B2,VIL10    IF MODE NOT PROVIDED                        FC5A411   286
                                                                                                                 PAR      5527
                                        *         CHECK IF MODE OF ARG LIST AGREES.                              PAR      5528
                                        *                (X1) = (SCR+AC.W) WITH (AC.MODE) SHIFTED TO BOTTOM.     PAR      5529
                                        *                (X3) = FJ = INTRINSIC TABLE INDEX.                      PAR      5530
                                        *                (X7) = (AC.MODE) = ACTUAL MODE OF ARGS.                 PAR      5531
                                                                                                                 PAR      5532
          3410  5223000000 X             VIL70    SA2    X3+F.INTF                                               PAR      5533
                          10633                   BX6    X3                                                      PAR      5534
                               43071              MX0    -IT.ARGML                                               PAR      5535
          3411  5160002601 +                      SA6    /CF/IT      RETURN (CF/IT) = INTRINSIC TABLE INDEX      PAR      5536
                          20271                   LX2    -IT.ARGMP                                               PAR      5537
                               15620              BX6    -X0*X2      (X6) = REQUIRED ARGUMENT MODE               PAR      5538
          3412  20203                             LX2    IT.ARGMP-IT.MODEP                                       PAR      5539
                                                  IFNE   IT.ARGML,IT.MODEL,1                                     PAR      5540
                                                  MX0    -IT.MODEL                                               PAR      5541
                     0334003421 +                 MI     X4,VIL78    IF GENERIC INTRINSIC                        PAR      5542
          3413  6170000000 X                      SB7    E.SU03      WRONG ARGUMENT MODE                         PAR      5543
                          13367                   BX3    X6-X7                                                   PAR      5544
          3414  0303003421 +                      ZR     X3,VIL78    IF ACTUAL .EQ. REQUIRED                     PAR      5545
                                                  =X6    X6-M.BOOL                                               PAR      5546
                          0316003417 +            NZ     X6,VIL74    IF REQUIRED MODE NOT BOOL                   PAR      5547
          3415  7237777771                        SX3    X7-M.CHAR                                               PAR      5548
                          0313003421 +            NZ     X3,VIL78    IF ACTUAL MODE NOT CHARACTER                PAR      5549
          3416  0400003275 +                      EQ     VIL10                                                   FC5A411   287
                                                                                                                 PAR      5551
          3417  0317003275 +             VIL74    NZ     X7,VIL10    IF ACTUAL MODE NOT BOOLEAN                  FC5A411   288
                          7266777775              =X6    X6+M.BOOL-M.INT                                         PAR      5553
          3420  0316003275 +                      NZ     X6,VIL10    IF REQUIRED MODE NOT BOOL/INT AND ACTUAL IS FC5A411   289
                                                                                                                 FC5A411   290
          3421  13717                    VIL78    BX7    X1-X7       CLEAR PREVIOUS (AC.MODE)                    PAR      5555
                     5130000017 +                 SA3    VILA                                                    PAR      5556
                               15620              BX6    -X0*X2                                                  PAR      5557
          3422  12767                             BX7    X6+X7       SET (AC.MODE) = RESULT MODE                 PAR      5558
                     20722                        LX7    AC.MODEP                                                PAR      5559
                                                  LX2    IT.MODEP    RETURN (X2) = INTRINSIC TABLE ENTRY         PAR      5560
                          54710                   SA7    A1                                                      PAR      5561
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   134
        POP/EMIT APLIST AND FUNCTION REFERENCE.                       VIL 
  
          3423  0313003430 +                      NZ     X3,VIL84    IF INDEFINITE ARG COUNT NOT PERMITTED       PAR      5562
                          5110002601 +            SA1    /CF/IT      (X1) = INDEX OF THIS INTRINSIC              PAR      5564
          3424  5130000000 X                      SA3    F.IMCV                                                  PAR      5565
                          6170000000 X            SB7    Z.IMCV                                                  PAR      5566
          3425  6120000044                        SB2    2*18                                                    PAR      5567
                                                                                                                 FC5A411   291
          3426  23723                    VIL82    AX7    X3,B2                                                   PAR      5568
                     37071                        IX0    X7-X1                                                   PAR      5569
                          0300003431 +            ZR     X0,VIL86    IF FUNCTION REQUIRES POST-COERCION          PAR      5570
          3427  67771                             SB7    B7-B1                                                   PAR      5571
                     54331                        SA3    A3+B1                                                   PAR      5572
                          0670003426 +            PL     B7,VIL82    IF MORE TO CHECK                            PAR      5573
                                                                                                                 FC5A411   292
          3430  5160000002 +             VIL84    SA6    SMOD                                                    PAR      5574
                          0400003257 +            EQ     EXIT.                                                   PAR      5575
                                                                                                                 PAR      5576
          3431  10633                    VIL86    BX6    X3          INDICATE POST-EVALUATION COERCION REQUIRED  PAR      5577
                     5160002602 +                 SA6    /CF/MA                                                  PAR      5578
          3432  0400003257 +                      EQ     EXIT.                                                   PAR      5579
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   135
        POP/EMIT ARRAY SUBSCRIPTS.
  
                                        **        POP/EMIT ARRAY SUBSCRIPTS.                                     PAR      5581
                                                                                                                 PAR      5582
                                                                                                                 PAR      5583
                                                  QUAL   AR                                                      PAR      5584
          3433                     1     BIAS     BSS    1           CONSTANT SUBSCRIPT BIAS ACCUMULATOR         PAR      5585
          3434                     1     DIMI     BSS    1           INDEX OF ARRAY IN T.DIM                     PAR      5586
          3435                     1     NSUB     BSS    1           COUNT OF SUBSCRIPTS (IN ARRAY REF)          PAR      5587
          3436                     1     VDSK     BSS    1           SKELETON  *VD.*  OPERAND                    PAR      5588
                                                  QUAL   *                                                       PAR      5589
                                                                                                                 PAR      5590
          3437  03052357000000000000     S.CES    =XLIB  CES         DEFINE NAME OF RUN-TIME SUBSCRIPT FUNCTION  PAR      5591
  
  
  
  
                                        **        INTLCT  - CALL *LCT*, INTEGER/BOOLEAN RESULT EXPECTED.         PAR      5593
                                        *                                                                        PAR      5594
                                        *         CALLS *LCT*.  IN TEST MODE ONLY, ABORTS IF THE OPERAND MODE    PAR      5595
                                        *         IS NOT INTEGER OR BOOLEAN  ( *SSR* BUG ).                      PAR      5596
                                        *                                                                        PAR      5597
                                        *                                                                        PAR      5598
                                        *         INTLCT    (NO PARAMETERS.)                                     PAR      5599
                                        *                                                                        PAR      5600
                                        *         ENTRY/EXIT -- SEE *LCT*.                                       PAR      5601
                                        *                                                                        PAR      5602
                                        *         USES   X2.    A2.    B7.                                       PAR      5603
                                        *                                                                        PAR      5604
                                        *         CALLS  LCT.                                                    PAR      5605
                                                                                                                 PAR      5606
                                                                                                                 PAR      5607
                                         INTLCT   MACRO                                                          PAR      5608
                                                  CALL   LCT                                                     PAR      5609
                                         .T       IFEQ   TEST,ON                                                 PAR      5610
                                                  SA2    ="BOOLINT"                                              PAR      5611
                                                  SB7    X0          MODE                                        PAR      5612
                                                  LX2    B7                                                      PAR      5613
                                                  PL     X2,"BLOWUP" IF RESULT NOT INTEGER OR BOOLEAN            PAR      5614
                                         .T       ENDIF                                                          PAR      5615
                                         INTLCT   ENDM                                                           PAR      5616
  
  
  
  
                                        **        SUBERR - ISSUE SUBSCRIPT ERROR MESSAGE.                        PAR      5618
                                        *                                                                        PAR      5619
                                        *         SUBERR ERRADDR                                                 PAR      5620
                                        *                                                                        PAR      5621
                                        *         ERRADDR = ERROR SKELETON ADDRESS (B7).                         PAR      5622
                                                                                                                 PAR      5623
                                                                                                                 PAR      5624
                                         SUBERR   MACRO  ERRADDR                                                 PAR      5625
                                                  =B7    ERRADDR                                                 PAR      5626
                                                  CALL   OSE                                                     PAR      5627
                                         SUBERR   ENDM                                                           PAR      5628
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   136
        POP/EMIT ARRAY SUBSCRIPTS.                                    ARYMIC
  
                                        **        MICROS USED THROUGHOUT SUBSCRIPT PROCESSOR.                    PAR      5630
                                                                                                                 PAR      5631
                                                                                                                 PAR      5632
                                         ALLNUM   BITMIC (M.BOOL,M.INT,M.REAL,M.DBL,M.CPLX)                      PAR      5633
                                         BOOLINT  BITMIC (M.BOOL,M.INT)                                          PAR      5634
                                   5     CPLX     DECMIC M.CPLX                                                  PAR      5635
                                   4     DBL      DECMIC M.DBL                                                   PAR      5636
                                                                                                                 PAR      5637
                                  60     WD2MASK  =      1S"DBL"+1S"CPLX"                                        PAR      5638
  
  
  
  
                                        **        C=ARRAY -  RESET DIMENSION MULTIPLIER FOR SUBSCRIPT OPERATION. PAR      5640
                                        *                                                                        PAR      5641
                                        *                                                                        PAR      5642
                                        *         ENTRY  (X5) = CURRENT SUBSCRIPT EXPRESSION RESULT.             PAR      5643
                                        *                                                                        PAR      5644
                                        *         EXIT   (B4) UPDATED BY 1.                                      PAR      5645
                                        *                                                                        PAR      5646
                                        *         USES   X4,X6.    A4,A6.    B4.                                 PAR      5647
                                        *                                                                        PAR      5648
                                        *         CALLS  SSR.                                                    PAR      5649
                                                                                                                 PAR      5650
                                                                                                                 PAR      5651
          3440                           C=ARRAY  BSS    0                                                       PAR      5652
          3440  5110000000 X                      SA1    ARGMIS                                                  PAR      5653
                          55411                   =A4    A1+AC.W-AS.W      *ARGCOMA*                             PAR      5654
                               10611              BX6    X1                                                      PAR      5655
          3441  5160000002 X                      SA6    SCR+AS.W    POP ARRAY NAME EARLY FOR *FERRS*            PAR      5656
                          0100003673 +            RJ     SSR         STANDARDIZE SUBSCRIPT RESULT                PAR      5657
          3442  10644                             BX6    X4                                                      PAR      5658
                     66441                        =B4    B4+1        (B4) = ADVANCE TO NEXT TOKEN                PAR      5659
                          5160000000 X            SA6    ARGCOMA                                                 PAR      5660
          3443  0400000461 +                      EQ     PAR.NX      CONTINUE ...                                PAR      5661
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   137
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
                                        **        A=ARRAY - PROCESS CLOSING PAREN FOR CURRENT SUBSCRIPT.         PAR      5663
                                        *                                                                        PAR      5664
                                        *         POP HOLDING STACK FOR SUBSCRIPT.                               PAR      5665
                                        *                                                                        PAR      5666
                                        *         ENTRY  (X2) = (ARGCOMA) = (SCR+1).                             PAR      5667
                                        *                (X5) = RESULT FOR LAST SUBSCRIPT IN THIS REFERENCE.     PAR      5668
                                        *                                                                        PAR      5669
                                        *         USES   ALL BUT    A0, B4.                                      PAR      5670
                                        *                                                                        PAR      5671
                                        *         CALLS  ADU/ADT, ASE, EMIT(EMT), GDI, MFP, MSP, NCS,            PAR      5672
                                        *                SLB, SSR, SUBERR(OSE), TAGSEX(TSX).                     PAR      5673
                                                                                                                 PAR      5674
                                                                                                                 PAR      5675
          3444                           A=ARRAY  BSS    0           ENTRY...                                    PAR      5676
          3444  76010                             =X0    1                                                       PAR      5677
                                                  LX0    AC.CNTP                                                 PAR      5678
                     36420                        IX4    X2+X0       INCREMENT COUNT OF SUBSCRIPTS               PAR      5679
                          0100003673 +            RJ     SSR         STANDARDIZE LAST SUBSCRIPT                  PAR      5680
          3445  13666                             BX6    0                                                       PAR      5681
                     5160003433 +                 SA6    /AR/BIAS    INITIALIZE SUBSCRIPT BIAS = 0               PAR      5682
                                                                                                                 PAR      5683
                                        *         CHECK THAT SUBSCRIPT COUNT MATCHES DIMENSION COUNT.            PAR      5684
                                                                                                                 PAR      5685
                                                  LX4    -AC.CNTP                                                PAR      5686
                               63240              SB2    X4          (B2) = COUNT OF SUBSCRIPTS                  PAR      5687
                                   0              ERRNZ  AC.CNTL-18                                              PAR      5688
                                                  LX4    AC.CNTP                                                 PAR      5689
          3446  0100003606 +                      RJ     GDI         GET DIMENSION INFORMATION                   PAR      5690
          3447  0423003464 +                      EQ     B2,B3,A=AR8 IF SUBSCRIPT COUNT .EQ. DIMENSION COUNT     FC51082    11
                          6170000000 X            SUBERR E.SB7       ISSUE MSG *SUBSCRIPT/DIMEN COUNT MISMATCH*  FC51082    12
          3451  0732003462 +                      GT     B2,B3,A=AR6 IF SUBSCRIPT COUNT .GT. DIMENSION COUNT     FC51082    13
                                                                                                                 FC51082    14
                                        *         HERE IF SUBSCRIPT COUNT .LT. DIMENSION COUNT                   FC51082    15
                                                                                                                 FC51082    16
                          5120000000 X            SA2    CONONE                                                  FC51082    17
          3452  22702                             LX7    X2                                                      FC51082    18
                     5110003434 +                 SA1    /AR/DIMI                                                FC51082    19
          3453  5130000000 X                      SA3    T.DIM                                                   FC51082    20
                          36113                   IX1    X1+X3                                                   FC51082    21
                               53310              SA3    X1          (A3) -> DIM HEADER                          FC51082    22
          3454  66722                             SB7    B2+B2                                                   FC51082    23
                     54137                        SA1    A3+B7       (A1) -> LB , UB                             FC51082    24
                          67732                   SB7    B3-B2       (B7) = DIMENSION COUNT - SUBSCRIPT COUNT    FC51082    25
          3455  0331003460 +                      MI     X1,A=AR4    IF ADJUSTABLE LOWER BOUND                   FC51082    26
                          5120004567 +            CLAS=  X2,TP,(BIAS)                                            FC51082    27
          3456  20106                             LX1    -D2.LBP-DM.INFP-DM.INFL                                 FC51082    28
                     21120                        AX1    TP.ORDL                                                 FC51082    29
                          11721                   BX7    X2*X1       X7 = LOWER BOUND OF SUBSCRIPT               FC51082    30
          3457  5120000000 X                      SA2    CONZERI                                                 FC51082    31
                          12772                   BX7    X7+X2                                                   FC51082    32
                                                                                                                 FC51082    33
          3460  56760                    A=AR4    SA7    B6          B6 -> TOP OF ESTACK + 1                     FC51082    34
                     66661                        SB6    B6+B1                                                   FC51082    35
                          67771                   SB7    B7-B1                                                   FC51082    36
          3461  0707003460 +                      GT     B7,A=AR4    IF NOT DONE PADDING ESTACK                  FC51082    37
                          0400003463 +            EQ     A=AR7                                                   FC51082    38
                                                                                                                 FC51082    39
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   138
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
                                        *         HERE IF SUBSCRIPT COUNT .GT. DIMENSION COUNT                   FC51082    40
                                                                                                                 FC51082    41
          3462  67723                    A=AR6    SB7    B2-B3       (B7) = SUBSCRIPT COUNT - DIMENSION COUNT    FC51082    42
                     67667                        SB6    B6-B7       ADJUST ESTACK                               FC51082    43
                                                                                                                 FC51082    44
          3463  76630                    A=AR7    SX6    B3                                                      FC51082    45
                     5160003435 +                 SA6    /AR/NSUB    UPDATE TO ACTUAL SUBSCRIPT COUNT            FC51082    46
                                                                                                                 PAR      5692
                                        *         SELECT IN-LINE OR OUT-OF-LINE SUBSCRIPT EVALUATION.            PAR      5693
                                        *         EVALUATE IN-LINE IF ALL SUBSCRIPT EXPRESSIONS ARE CONSTANT     PAR      5694
                                        *         AND THE ARRAY IS NOT ADJUSTABLE, EVEN IF THE DEBUGGING OPTION  PAR      5695
                                        *         WAS SELECTED ON THE *FTN* CONTROL STATEMENT.                   PAR      5696
                                                                                                                 PAR      5697
          3464  5110000000 X             A=AR8    SA1    DATFLG                                                  FC51082    47
                          5120000000 X            SA2    CO.DBSB                                                 PAR      5699
                                                  SBIT   X3,DH.VDP                                               PAR      5700
                                                  SBIT   X4,AC.VSUBP                                             PAR      5701
          3465  12634                             BX6    X3+X4       VARDIM .OR. VARSUB                          PAR      5702
                                                  LX3    DH.VDP+1    (X3) = RESTORE *DH.W* NATURAL POSITION      PAR      5703
                                                  LX4    AC.VSUBP+1  (X4) = RESTORE *ARGCOMA* NATURAL POSITION   PAR      5704
                     11726                        BX7    X2*X6       C.C. OPT .AND. VAR---                       PAR      5705
                          0311003467 +            NZ     X1,A=AR10   IF PROCESSING DATA ITEM                     PAR      5706
          3466  0337003500 +                      MI     X7,A=AR20   IF SUBSCRIPT TO BE EVALUATED OUT-OF-LINE    PAR      5707
                                                                                                                 PAR      5708
                                        *         HERE IF SUBSCRIPT TO BE EVALUATED IN-LINE.                     PAR      5709
                                                                                                                 PAR      5710
          3467                           A=AR10   BSS    0                                                       PAR      5711
          3467  5110000000 X                      SA1    S=VD        INITIALIZE SKELETON VD. OPERAND             PAR      5712
                          76211                   =X2    M.INT                                                   PAR      5713
                               13777              BX7    0                                                       PAR      5714
          3470  20154                             LX1    TP.ORDP                                                 PAR      5715
                                                  LX2    TP.MODEP                                                PAR      5716
                     12612                        BX6    X1+X2                                                   PAR      5717
                          5160003436 +            SA6    /AR/VDSK                                                PAR      5718
          3471  56760                             =A7    B6          CREATE EMPTY SUBSCRIPT VALUE                PAR      5719
                     66661                        =B6    B6+1                                                    PAR      5720
                          0400003473 +            EQ     A=AR14                                                  PAR      5721
                                                                                                                 PAR      5722
                                        *         PROCESS SUBSCRIPT EXPRESSION RESULTS FROM RIGHT TO LEFT.       PAR      5723
                                                                                                                 PAR      5724
          3472  5110003435 +             A=AR12   SA1    /AR/NSUB                                                PAR      5725
                          0100003615 +            RJ     MSP         MULTIPLY BY DIMENSION SPAN                  PAR      5726
          3473  0100003550 +             A=AR14   RJ     ASE         ADD SUBSCRIPT EXPRESSION                    PAR      5727
          3474  5110003435 +                      SA1    /AR/NSUB                                                PAR      5728
                          0100003653 +            RJ     SLB         SUBTRACT LOWER BOUND                        PAR      5729
          3475  5110003435 +                      SA1    /AR/NSUB                                                PAR      5730
                          76210                   =X2    1                                                       PAR      5731
                               37612              IX6    X1-X2       DECREMENT SUBSCRIPT COUNT                   PAR      5732
          3476  63760                             SB7    X6                                                      PAR      5733
                     54610                        SA6    A1                                                      PAR      5734
                          0707003472 +            GT     B7,B0,A=AR12      IF ANOTHER DIMENSION                  PAR      5735
          3477  0400003523 +                      EQ     A=AR30                                                  PAR      5736
                                                                                                                 PAR      5737
                                        *         HERE IF SUBSCRIPT TO BE CHECKED AND EVALUATED OUT-OF-LINE.     PAR      5738
                                                                                                                 PAR      5739
          3500                           A=AR20   BSS    0                                                       PAR      5740
          3500  43001                             CLAS=  X0,DH,(MAT)                                             PAR      5741
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   139
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
                          12630                   BX6    X3+X0                                                   PAR      5742
                               54630              SA6    A3          MARK *MATERIALIZE DIM INFO AT RUN-TIME*     PAR      5743
                                                                                                                 PAR      5744
                                        *         EMIT APLIST TURPLE FOR RUN-TIME DIMTAB ADDRESS.                PAR      5745
                                                                                                                 PAR      5746
          3501  5110000000 X                      SA1    S=RD                                                    PAR      5747
                          5120003434 +            SA2    /AR/DIMI                                                PAR      5748
          3502  20154                             LX1    TP.ORDP                                                 PAR      5749
                     76500                        =X5    0           (2OP)                                       PAR      5750
                          20224                   LX2    TP.BIASP                                                PAR      5751
                               12412              BX4    X1+X2       (1OP)                                       PAR      5752
          3503  6130400324 +                      EMIT   GAPOP,*                                                 PAR      5753
                                                                                                                 PAR      5754
                                        *         EMIT APLIST TURPLE FOR EACH SUBSCRIPT EXPRESSION RESULT.       PAR      5755
                                                                                                                 PAR      5756
          3504  5110003435 +                      SA1    /AR/NSUB                                                PAR      5757
                          63710                   SB7    X1          (B7) = COUNT OF SUBSCRIPTS                  PAR      5758
                                                                                                                 PAR      5759
                                         .T       IFEQ   TEST,ON                                                 PAR      5760
                                                  LE     B7,B0,"BLOWUP"    IF SUBSCRIPT COUNT ERROR              PAR      5761
                                                  SB2    MAX.DIM                                                 PAR      5762
                                                  GT     B7,B2,"BLOWUP"    IF SUBSCRIPT COUNT ERROR              PAR      5763
                                         .T       ENDIF                                                          PAR      5764
                                                                                                                 PAR      5765
                               13555              BX5    0           (2OP)                                       PAR      5766
          3505  57467                             SA4    B6-B7       (1OP) = 1ST SUBSCRIPT (ELSTACK)             PAR      5767
          3506  5110000324 +             A=AR22   SA1    GAPOP                                                   PAR      5768
                          43071                   MX0    -TP.MODEL                                               PAR      5769
                                                  LX4    -TP.MODEP                                               PAR      5770
                               15240              BX2    -X0*X4      EXTRACT MODE                                PAR      5771
                                                  LX4    TP.MODEP                                                PAR      5772
          3507  20222                             LX2    SP.MODEP                                                FC50104   143
                     12612                        BX6    X1+X2                                                   PAR      5774
                          5160000003 +            SA6    SOPR                                                    PAR      5775
          3510  6036400000                        EMIT   A6,*        SUBSCRIPT TURPLE                            PAR      5776
          3511  64741                             =B7    A4+1        ADVANCE TO NEXT SUBSCRIPT                   PAR      5777
                     54441                        =A4    A4+1                                                    PAR      5778
                          0776003506 +            LT     B7,B6,A=AR22      IF ANOTHER SUBSCRIPT                  PAR      5779
          3512  5110003435 +                      SA1    /AR/NSUB                                                PAR      5780
                          63710                   SB7    X1          COUNT OF SUBSCRIPTS                         PAR      5781
                               67667              SB6    B6-B7       REMOVE SUBSCRIPTS FROM ELSTACK              PAR      5782
                                                                                                                 PAR      5783
                                        *         EMIT APLIST TURPLE FOR ARRAY NAME.                             PAR      5784
                                                                                                                 PAR      5785
          3513  5110000002 X                      SA1    SCR+AS.W    ARRAY NAME FROM *ARGMIS*                    PAR      5786
                          10611                   BX6    X1                                                      PAR      5787
                               76700              =X7    M.BOOL      DUMMY MODE                                  PAR      5788
          3514  0100000000 X                      CALL   NCS         NAME TO RUN-TIME CONTAB                     PAR      5789
          3515  10466                             BX4    X6          (1OP)                                       PAR      5790
                                   0              ERRNZ  M.BOOL                                                  PAR      5791
                     43500                        MX5    0           (2OP)                                       PAR      5792
                          6130400324 +            EMIT   GAPOP,*                                                 PAR      5793
                                        **        CALL   MFP         (WAS) MARK FIRST PARAMETERS                 PAR      5794
                                                                                                                 PAR      5795
                                        *         EMIT FUNCTION CALL TO LIBRARY BOUNDS CHECK ROUTINE.            PAR      5796
                                                                                                                 PAR      5797
          3517  5110003437 +                      TAGSEX S.CES                                                   PAR      5798
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   140
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
          3520  5110003435 +                      SA1    /AR/NSUB                                                PAR      5799
                          5130000320 +            SA3    FUNOP                                                   PAR      5800
          3521  10466                             BX4    X6          (1OP)                                       PAR      5801
                     7251000002                   SX5    X1+2        (2OP) = NR SUBS + 2 (DIM ADDR, ARRAY NAME)  PAR      5802
                               20524              LX5    TP.BIASP                                                PAR      5803
          3522  66661                             =B6    B6+1        DUMMY ADVANCE                               PAR      5804
                     0100003543 +                 RJ     ADU         EMIT CALL TO LIB FUNC  * CES. *             PAR      5805
                                                                                                                 PAR      5806
                                        *         PREPARE TO ISSUE THE ARRAY REFERENCE.                          PAR      5807
                                        *                                                                        PAR      5808
                                        *         ENTRY  (B6)-2  ->  ARRAY OPERAND.                              PAR      5809
                                        *                (B6)-1  ->  SUBSCRIPT VALUE.                            PAR      5810
                                        *                            NOTE THAT THE SUBSCRIPT VALUE IS NULL (=0)  PAR      5811
                                        *                            IF ALL SUBSCRIPTS ARE CONSTANT AND          PAR      5812
                                        *                            THE ARRAY IS NOT ADJUSTABLE.                PAR      5813
                                        *                (B6)    ->  UNSPECIFIED.                                PAR      5814
                                                                                                                 PAR      5815
                                                                                                                 PAR      5816
          3523                           A=AR30   BSS    0                                                       PAR      5817
                                                                                                                 PAR      5818
                                        *         ADD ACCUMULATED CONSTANT BIAS TO ARRAY OPERAND IN ELSTACK.     PAR      5819
                                        *         IF DOUBLE OR COMPLEX ARRAY, DOUBLE BOTH THE BIAS AND THE       PAR      5820
                                        *         VARIABLE SUBSCRIPT VALUE (IF ANY).                             PAR      5821
                                                                                                                 PAR      5822
          3523  67661                             =B6    B6-1        ASSUME CONSTANT SUBSCRIPT (NO SUBSCR VALUE) PAR      5823
                     57461                        =A4    B6-1        (X4) = ARRAY NAME IN ELSTACK                PAR      5824
                          7110000060              SX1    WD2MASK                                                 PAR      5825
          3524  43071                             MX0    -TP.MODEL                                               PAR      5826
                                                  LX4    -TP.MODEP                                               PAR      5827
                     15640                        BX6    -X0*X4      EXTRACT MODE                                PAR      5828
                                                  LX4    TP.MODEP                                                PAR      5829
                          63260                   SB2    X6                                                      PAR      5830
                               23121              AX1    B2          MODE BIT TO POS 0                           PAR      5831
          3525  43073                             MX0    -1                                                      PAR      5832
                     15210                        BX2    -X0*X1      =1 IF DOUBLE OR COMPLEX, =0 IF ELSE         PAR      5833
                          5110003433 +            SA1    /AR/BIAS                                                PAR      5834
          3526  43044                             MX0    -TP.BIASL                                               PAR      5835
                     6232000024                   SB3    X2+TP.BIASP                                             PAR      5836
                               20024              LX0    TP.BIASP                                                PAR      5837
          3527  11604                             BX6    X0*X4       CLEAR BIAS FIELD                            PAR      5838
                     22131                        LX1    B3          DOUBLES THE BIAS IF DBL OR CPLX ARRAY       PAR      5839
                          15710                   BX7    -X0*X1                                                  PAR      5840
                               56460              =A4    B6                                                      PAR      5841
          3530  12667                             BX6    X6+X7       INSERT BIAS IN ARRAY OPERAND                PAR      5842
                     57661                        =A6    B6-1        UPDATE ARRAY OPERAND                        PAR      5843
                          0304001510 +            ZR     X4,POPX     IF NULL SUBSCRIPT VALUE                     PAR      5844
                                                                                                                 PAR      5845
                                        *         HERE IF ANY SUBSCRIPT EXPRESSION WAS VARIABLE OR ANY BOUND     PAR      5846
                                        *         WAS ADJUSTABLE.  PREPARE TO ISSUE  *ARYOP*  ARRAY REFERENCE.   PAR      5847
                                                                                                                 PAR      5848
          3531  66661                             =B6    B6+1        NOTE THAT SUBSCRIPT VALUE EXISTS            PAR      5849
                     10544                        BX5    X4          (2OP) = SUBSCRIPT VALUE                     PAR      5850
                          0302003533 +            ZR     X2,A=AR32   IF NOT DOUBLE OR COMPLEX ARRAY              PAR      5851
          3532  5130000301 +                      SA3    INTEG+/OP/PLUS                                          PAR      5852
                          0100003543 +            RJ     ADU         ISSUE *ADD* TO DOUBLE THE SUBSCRIPT VALUE   PAR      5853
                                                                                                                 PAR      5854
          3533  57461                    A=AR32   =A4    B6-1        FETCH 2OP (SUBSCRIPT VALUE)                 FC5A140     8
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   141
        POP/EMIT ARRAY SUBSCRIPTS.                                    A=ARRAY 
  
                     7100022000                   CLAS=  X0,TP,(ARR,INTR)                                        FC5A140     9
                               11104              BX1    X0*X4                                                   FC5A140    10
          3534  13101                             BX1    X0-X1                                                   FC5A140    11
                     0311003537 +                 NZ     X1,A=AR40   IF NOT SUBSCRIPTED SUBSCRIPT                FC5A140    12
                               43500              MX5    0                                                       FC5A140    13
          3535  5130000337 +                      SA3    XMITOP                                                  FC5A140    14
                          10633                   BX6    X3                                                      FC5A140    15
                               66661              =B6    B6+1        INCREMENT FOR XMIT TURPLE                   FC5A140    16
          3536  5160000003 +                      SA6    SOPR                                                    FC5A140    17
                          0100003740 +            RJ     ADT         ADD THE XMIT TURPLE                         FC5A140    18
          3537  5130000315 +             A=AR40   SA3    ARYOP                                                   FC5A140    19
                          22603                   LX6    X3                                                      PAR      5856
          3540  5160000003 +                      SA6    SOPR                                                    PAR      5857
                          7100020100              CLAS=  X0,TP,(ARR,ARS)                                         PAR      5858
          3541  5110000001 +                      SA1    ATTR                                                    PAR      5859
                          12701                   BX7    X0+X1       MERGE (ATTR)                                PAR      5860
                               54710              SA7    A1          UPDATE (ATTR) = ARRAY                       PAR      5861
          3542  57561                             =A5    B6-1        (2OP) = SUBSCRIPT VALUE                     PAR      5862
                     55451                        =A4    A5-1        (1OP) = ARRAY                               PAR      5863
                          0400001542 +            EQ     POP.STD                                                 PAR      5864
  
  
  
  
                                        **        ADU - FANCY *ADT* LINKAGE SUBROUTINE.                          PAR      5873
                                        *                                                                        PAR      5874
                                        *         DOES THE FOLLOWING AND THEN CALLS *ADT* ...                    PAR      5875
                                        *                1.  INCREMENTS (B6) BY ONE, TO FAKE (2OP) ON ELSTACK.   PAR      5876
                                        *                2.  STORES (X3)=(OPR) IN (SOPR).                        PAR      5877
                                        *                3.  STORES  *INTEGER RESULT MODE*  IN (SMOD).           PAR      5878
                                        *                                                                        PAR      5879
                                        *         ENTRY  (X3) = OPERATOR.                                        PAR      5880
                                        *                (X4) = FIRST OPERAND.                                   PAR      5881
                                        *                (X5) = SECOND OPERAND.                                  PAR      5882
                                        *                (B6)-1  ->  NOMINAL FIRST OPERAND IN ELSTACK.           PAR      5883
                                        *                                                                        PAR      5884
                                        *         EXIT   *ADT* HAS BEEN CALLED.                                  PAR      5885
                                        *                (B6) = UNCHANGED.                                       PAR      5886
                                        *                                                                        PAR      5887
                                        *         USES   X6-7.    A6-7.    B6.                                   PAR      5888
                                        *                                                                        PAR      5889
                                        *         CALLS  ADT.                                                    PAR      5890
                                                                                                                 PAR      5891
                                                                                                                 PAR      5892
          3543  0400403543 +             ADU      SUBR   0           **  ENTRY/EXIT  **                          PAR      5893
          3544  10633                             BX6    X3                                                      PAR      5894
                     76711                        =X7    M.INT                                                   PAR      5895
                          5160000003 +            SA6    SOPR                                                    PAR      5896
          3545  66661                             =B6    B6+1                                                    PAR      5897
                     46000                        NO                                                             PAR      5898
                          5170000002 +            SA7    SMOD                                                    PAR      5899
          3546  0100003740 +                      RJ     ADT                                                     PAR      5900
          3547  0400003543 +                      EQ     EXIT.                                                   PAR      5901
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   142
        POP/EMIT ARRAY SUBSCRIPTS.                                    ASE 
  
                                        **        ASE - ADD SUBSCRIPT EXPRESSION.                                PAR      5903
                                        *                                                                        PAR      5904
                                        *         ENTRY  (B6)-2  ->  SUBSCRIPT EXPRESSION RESULT OPERAND.        PAR      5905
                                        *                (B6)-1  ->  SUBSCRIPT VALUE OPERAND.                    PAR      5906
                                        *                                                                        PAR      5907
                                        *         USES   X0-7.    A1-7.    B2-3,B7.                              PAR      5908
                                        *                                                                        PAR      5909
                                        *         CALLS  ADU/ADT, LCT.                                           PAR      5910
                                        *                                                                        PAR      5911
                                        *         NOTE-- COMMENTING CONVENTION WITHIN *ASE* ...                  PAR      5912
                                        *                PREFIX LETTERS ARE AS FOLLOWS ...                       PAR      5913
                                        *                                                                        PAR      5914
                                        *                   K   CONSTANT BIAS TO BE ADDED TO /AR/BIAS.           PAR      5915
                                        *                   N   NEW SUBSCRIPT VALUE TURPLE BEING FORMED.         PAR      5916
                                        *                   V   SUBSCRIPT VALUE TURPLE IN ELSTACK.               PAR      5917
                                        *                   X   SUBSCRIPT EXPRESSION RESULT INTERMED TURPLE.     PAR      5918
                                        *                                                                        PAR      5919
                                        *                E.G.,  (X-1OP) = FIRST OPERAND OF SUBSCR EXPR TURPLE.   PAR      5920
                                                                                                                 PAR      5921
                                                                                                                 PAR      5922
          3550  0400403550 +             ASE      SUBR   0           **  ENTRY/EXIT  **                          PAR      5923
          3551  67661                             =B6    B6-1        POP SUBSCR EXPR RESULT                      PAR      5924
                     76300                        =X3    /OP/PLUS                (N-OPR) = PLUS                  PAR      5925
                          57161                   =A1    B6-1                                                    PAR      5926
                               10511              BX5    X1          SAVE (N-2OP) = SUBSCR EXPR RESULT OPERAND   PAR      5927
          3552  0100000000 X                      INTLCT             CHECK RESULT TYPE                           PAR      5928
          3553  0420003556 +                      ZR     B2,ASE20    IF RESULT VARIABLE OR INTERMED              PAR      5929
                                                                                                                 PAR      5930
                                        *         HERE IF RESULT IS A CONSTANT.                                  PAR      5931
                                                                                                                 PAR      5932
                                        * ASE10   BSS    0                                                       PAR      5933
                                                                                                                 PAR      5934
                          5110003433 +            SA1    /AR/BIAS                                                PAR      5935
          3554  56260                             SA2    B6          (X2) = SUBSCR VALUE OPERAND                 PAR      5936
                     36616                        IX6    X1+X6       BIAS = BIAS + CONSTANT SUBSCR EXPR          PAR      5937
                          10722                   BX7    X2                                                      PAR      5938
                               54610              SA6    A1                                                      PAR      5939
          3555  57761                             =A7    B6-1        BUBBLE SUBSCR VALUE OPD DOWN (LIKE *ADT*)   PAR      5940
                     0400003550 +                 EQ     EXIT.                                                   PAR      5941
                                                                                                                 PAR      5942
                                        *         HERE IF RESULT IS NOT A CONSTANT.                              PAR      5943
                                        *                (N-OPR) = (X3) = PLUS.                                  PAR      5944
                                        *                (N-2OP) = (X5) = SUBSCR EXPR RESULT OPERAND.            PAR      5945
                                                                                                                 PAR      5946
          3556                           ASE20    BSS    0                                                       PAR      5947
          3556  10755                             BX7    X5                                                      PAR      5948
                     20761                        SBIT   X7,TP.INTRP                                             PAR      5949
                          0327003601 +            PL     X7,ASE32    IF NOT INTERMEDIATE                         PAR      5950
                                                                                                                 PAR      5951
                                        *         HERE IF RESULT IS AN INTERMEDIATE.                             PAR      5952
                                                                                                                 PAR      5953
          3557  43054                             MX0    -TP.ORDL                                                PAR      5954
                     20733                        LX7    -TP.ORDP+TP.INTRP+1                                     PAR      5955
                          5110000000 X            SA1    T.PAR                                                   PAR      5956
          3560  15070                             BX0    -X0*X7                                                  PAR      5957
                     63200                        SB2    X0                                                      PAR      5958
                                   2              ERRMI  18-TP.ORDL                                              PAR      5959
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   143
        POP/EMIT ARRAY SUBSCRIPTS.                                    ASE 
  
                          5120000303 +            SA2    INTEG+/OP/UMIN                                          PAR      5960
          3561  53112                             SA1    X1+B2       (X-OPR)  TH. WORD                           PAR      5961
                                                  HX1    TH.SKEL                                                 FC50104   144
                     21156                        AX1    -TH.SKELL                                               FC50104   145
                                                  HX2    SP.SKEL                                                 FC50104   146
                          21252                   AX2    -SP.SKELL                                               FC50104   147
                               37212              IX2    X1-X2                                                   FC50104   148
          3562  56460                             SA4    B6                                                      PAR      5965
                     0312003565 +                 NZ     X2,ASE22    IF OPERATOR NOT *UMIN*                      FC50104   149
          3563  0304003550 +                      ZR     X4,EXIT.    IF NO SUBSCR VALUE, (X-OPD) BECOMES (V-OPD) PAR      5967
                          76310                   =X3    /OP/MINUS               (N-OPR) = MINUS                 PAR      5968
                               54511              =A5    A1+OR.1OP-OR.OPR        (N-2OP) = (X-1OP)               PAR      5969
          3564  0400003604 +                      EQ     ASE34                                                   PAR      5970
                                                                                                                 PAR      5971
          3565  55221                    ASE22    =A2    A2-/OP/UMIN+/OP/MINUS                                   PAR      5972
                     67301                        =B3    -1          NOTE (X-OPR) *MINUS*                        PAR      5973
                                                  HX2    SP.SKEL                                                 FC50104   150
                          21252                   AX2    -SP.SKELL                                               FC50104   151
                               37212              IX2    X1-X2                                                   FC50104   152
          3566  0302003570 +                      ZR     X2,ASE24    IF (X-OPR) *MINUS*                          FC50104   153
                          55221                   =A2    A2-/OP/MINUS+/OP/PLUS                                   PAR      5978
                               66300              =B3    0           NOTE (X-OPR) *PLUS*                         PAR      5979
                                                  HX2    SP.SKEL                                                 FC50104   154
          3567  21252                             AX2    -SP.SKELL                                               FC50104   155
                     37212                        IX2    X1-X2                                                   FC50104   156
                          0312003601 +            NZ     X2,ASE32    IF (X-OPR) NOT *PLUS* (AND NOT *MINUS*)     FC50104   157
                                                                                                                 FC50104   158
          3570  54411                    ASE24    =A4    A1+OR.1OP-OR.OPR                                        PAR      5984
                     10144                        BX1    X4                                                      PAR      5985
                          0100000000 X            INTLCT             CHECK (X-1OP) TYPE                          PAR      5986
          3571  54141                             =A1    A4+OR.2OP-OR.1OP                                        PAR      5987
                     10466                        BX4    X6          SAVE POSSIBLE (N-K) = CONVERTED (X-1OP)     PAR      5988
                          0520003575 +            NZ     B2,ASE26    IF (X-1OP) CONSTANT                         PAR      5989
          3572  0100000000 X                      INTLCT             CHECK (X-2OP) TYPE                          PAR      5990
          3573  0420003601 +                      ZR     B2,ASE32    IF (X-2OP) (AND X-1OP) NOT CONST, CAN-T OPT PAR      5991
                          76030                   SX0    B3                                                      PAR      5992
                               54540              =A5    A4+OR.1OP-OR.1OP        (N-2OP) = (X-1OP)               PAR      5993
          3574  21001                             AX0    1           = +0 IF (X-OPR) *PLUS*, = -0 IF *MINUS*     PAR      5994
                     13460                        BX4    X6-X0       (N-K), COMPLEMENTED IF *MINUS* NOTED        PAR      5995
                          0400003600 +            EQ     ASE30                                                   PAR      5996
                                                                                                                 PAR      5997
                                        *         HERE IF (X-1OP) IS CONSTANT.                                   PAR      5998
                                                                                                                 PAR      5999
          3575  0100000000 X             ASE26    INTLCT             CHECK (X-2OP) TYPE                          PAR      6000
                                                                                                                 PAR      6001
                                         .T       IFEQ   TEST,ON                                                 PAR      6002
                                                  NZ     B2,"BLOWUP" IF BOTH (X-OPS) CONST, *CONRED* BUG LIKELY  PAR      6003
                                         .T       ELSE                                                           PAR      6004
          3576  0520003601 +                      NZ     B2,ASE32    IF (X-2OP) (AND X-1OP) ARE CONST, CAN-T OPT PAR      6005
                                         .T       ENDIF                                                          PAR      6006
                                                                                                                 PAR      6007
                          54541                   =A5    A4+OR.2OP-OR.1OP        (N-2OP) = (X-2OP)               PAR      6008
          3577  0430003600 +                      ZR     B3,ASE30    IF (X-OPR) IS *PLUS*                        PAR      6009
                          76310                   =X3    /OP/MINUS               (N-OPR) = MINUS                 PAR      6010
                                                                                                                 PAR      6011
                                        *         HERE TO *ADD*  (X4)=(N-K)  CONSTANT TO ACCUMULATED BIAS.       PAR      6012
                                                                                                                 PAR      6013
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   144
        POP/EMIT ARRAY SUBSCRIPTS.                                    ASE 
  
          3600                           ASE30    BSS    0                                                       PAR      6014
          3600  5110003433 +                      SA1    /AR/BIAS                                                PAR      6015
                          36614                   IX6    X1+X4                                                   PAR      6016
                               54610              SA6    A1                                                      PAR      6017
                                                                                                                 PAR      6018
                                        *         HERE TO *ADD* SUBSCRIPT EXPRESSION RESULT (HOWEVER OPTIMIZED)  PAR      6019
                                        *         TO PREVIOUS SUBSCRIPT VALUE.                                   PAR      6020
                                                                                                                 PAR      6021
          3601  56460                    ASE32    SA4    B6                      (N-1OP) = SUBSCR VALUE OPERAND  PAR      6022
                     66210                        =B2    /OP/MINUS                                               PAR      6023
                          0314003604 +            NZ     X4,ASE34    IF ANY PREVIOUS SUBSCRIPT VALUE             PAR      6024
          3602  63330                             SB3    X3                                                      PAR      6025
                     76311                        =X3    /OP/UMIN                (N-OPR) = UNARY MINUS           PAR      6026
                          0432003604 +            EQ     B3,B2,ASE34 IF (N-OPR) *MINUS*, ISSUE *UMIN*            PAR      6027
          3603  10655                             BX6    X5                                                      PAR      6028
                     57661                        =A6    B6-1        (N-2OP) TO ELSTACK AS NEW SUBSCR VALUE      PAR      6029
                          0400003550 +            EQ     EXIT.                                                   PAR      6030
                                                                                                                 PAR      6031
          3604  5233000301 +             ASE34    SA3    X3+INTEG    (X3) = SELECTED (TH.)                       PAR      6032
                          0100003543 +            RJ     ADU         ISSUE NEW TURPLE                            PAR      6033
          3605  0400003550 +                      EQ     EXIT.                                                   PAR      6034
  
  
  
  
                                        **        GDI - GET DIMENSION DECLARATOR INFORMATION.                    PAR      6036
                                        *                                                                        PAR      6037
                                        *                                                                        PAR      6038
                                        *         ENTRY  (B2) = NUMBER OF SUBSCRIPT FOR WHICH INFO REQUESTED.    PAR      6039
                                        *                (/AR/DIMI) = INDEX OF ARRAY IN T.DIM.                   PAR      6040
                                        *                                                                        PAR      6041
                                        *         EXIT   (B2) = UNCHANGED.                                       PAR      6042
                                        *                (B3) = COUNT OF DIMENSIONS.                             PAR      6043
                                        *                (A3,X3) = DIM HEADER (DH.W) FOR ARRAY IN T.DIM.         PAR      6044
                                        *            IF SUBSCRIPT NUMBER VALID, (B2 .LE. B3), ALSO RETURNS ...   PAR      6045
                                        *                (X1) = LOWER BOUND (SIGN-EXT IF CON, VD. ORD IF ADJ).   PAR      6046
                                        *                (X2) = UPPER BOUND (SIGN-EXT IF CON, VD. ORD IF ADJ).   PAR      6047
                                        *                (X6) = ADJUSTABLE LOWER BOUND FLAG (DI.TDP),            PAR      6048
                                        *                       EXTENDED FROM B59 THROUGH B0.                    PAR      6049
                                        *                (X7) = ADJUSTABLE UPPER BOUND FLAG (DI.TDP), POS B59.   PAR      6050
                                        *                (A1) -> LB,UB (D2.W) FOR SUBSCRIPT IN T.DIM.            PAR      6051
                                        *                                                                        PAR      6052
                                        *         USES   X1-3,X6-7.    A1-3.    B3,B7.                           PAR      6053
                                        *                                                                        PAR      6054
                                        *         CALLS  NONE.                                                   PAR      6055
                                                                                                                 PAR      6056
                                                                                                                 PAR      6057
          3606  0400403606 +             GDI      SUBR   0           **  ENTRY/EXIT  **                          PAR      6058
          3607  5110003434 +                      SA1    /AR/DIMI    ARRAY INDEX IN T.DIM                        PAR      6059
                                                                                                                 PAR      6060
                                         .T       IFEQ   TEST,ON                                                 PAR      6061
                                                  MI     X1,"BLOWUP" IF INDEX BELOW T.DIM                        PAR      6062
                                                  SA2    T=DIM                                                   PAR      6063
                                                  IX2    X2-X1                                                   PAR      6064
                                                  MI     X2,"BLOWUP" IF INDEX ABOVE T.DIM                        PAR      6065
                                         .T       ENDIF                                                          PAR      6066
                                                                                                                 PAR      6067
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   145
        POP/EMIT ARRAY SUBSCRIPTS.                                    GDI 
  
                          5120000000 X            SA2    T.DIM                                                   PAR      6068
          3610  36112                             IX1    X1+X2                                                   PAR      6069
                     53310                        SA3    X1          *(A3,X3) = DIM HEADER                       PAR      6070
                          43766                   MX7    -DH.DIML                                                PAR      6071
                                                  LX3    -DH.DIMP                                                PAR      6072
                               15637              BX6    -X7*X3                                                  PAR      6073
                                                  LX3    DH.DIMP                                                 PAR      6074
          3611  63360                             SB3    X6          *(B3) = COUNT OF DIMS                       PAR      6075
                     0732003606 +                 GT     B2,B3,EXIT. IF SUBSCR NUMBER .GT. DIM COUNT  (ERROR)    PAR      6076
                               66722              SB7    B2+B2                                                   PAR      6077
                                   0              ERRNZ  Z=DD-2                                                  PAR      6078
          3612  54137                             SA1    A3+B7       *(A1) -> LB, UB                             PAR      6079
                     10611                        BX6    X1                                                      PAR      6080
                                                  LX6    59-D2.LBP-DM.TDP                                        FC5A231   122
                          21673                   AX6    59-0        *(X6) = SIGN-EXT ADJUST. LOWER BOUND FLAG   PAR      6082
                               10711              BX7    X1                                                      PAR      6083
          3613  20736                             LX7    59-D2.UBP-DM.TDP  *(X7) = ADJUSTABLE UPPER BOUND FLAG   FC5A231   123
                     10211                        BX2    X1                                                      PAR      6085
                          20106                   LX1    -D2.LBP-DM.INFP-DM.INFL                                 FC5A231   124
                               21144              AX1    -DM.INFL    *(X1) = SIGN EXTENDED LOWER BOUND           FC5A231   125
          3614  20244                             LX2    -D2.UBP-DM.INFP-DM.INFL                                 FC5A231   126
                     21244                        AX2    -DM.INFL    *(X2) = SIGN EXTENDED UPPER BOUND           FC5A231   127
                          0400003606 +            EQ     EXIT.                                                   PAR      6090
  
  
  
  
                                        **        MSP - MULTIPLY BY DIMENSION SPAN.                              PAR      6092
                                        *                                                                        PAR      6093
                                        *         ENTRY  (X1) = NUMBER OF CURRENT SUBSCRIPT.                     PAR      6094
                                        *                                                                        PAR      6095
                                        *         USES   X0-7.    A1-6.    B2.                                   PAR      6096
                                        *                                                                        PAR      6097
                                        *         CALLS  ADU/ADT, GDI, LCT, NCS.                                 PAR      6098
                                                                                                                 PAR      6099
                                                                                                                 PAR      6100
          3615  0400403615 +             MSP      SUBR   0           **  ENTRY/EXIT  **                          PAR      6101
          3616  63210                             SB2    X1                                                      PAR      6102
                     0100003606 +                 RJ     GDI         GET DIMENSION INFORMATION                   PAR      6103
          3617  55111                             =A1    A1+D1.W-D2.W      (X1) = DIM SPAN WORD FROM T.DIM       PAR      6104
                     10511                        BX5    X1                                                      PAR      6105
                          20136                   LX1    59-D1.SPANP-DM.TDP                                      FC5A231   128
                               20544              LX5    -D1.SPANP-DM.INFP-DM.INFL                               FC5A231   129
          3620  5130003433 +                      SA3    /AR/BIAS    (X3) = ACCUMULATED BIAS                     PAR      6108
                          57461                   =A4    B6-1        (1OP) = SUBSCRIPT VALUE                     PAR      6109
                               21544              AX5    -DM.INFL    (X5) = SPAN                                 FC5A231   130
          3621  0331003640 +                      MI     X1,MSP20    IF ADJUSTABLE SPAN                          PAR      6111
                                                                                                                 PAR      6112
                                        *         HERE IF FIXED SPAN.                                            PAR      6113
                                        *                                                                        PAR      6114
                                        *                (X3) = BIAS.                                            PAR      6115
                                        *                (X4) = SUBSCRIPT VALUE.                                 PAR      6116
                                        *                (X5) = SPAN.                                            PAR      6117
                                                                                                                 PAR      6118
                                        * MSP10   BSS    0                                                       PAR      6119
                          42635                   IX6    X3*X5       BIAS = BIAS * SPAN                          PAR      6120
                                   0     .FIX     SET    --  IN TROUBLE IF PARTIAL PRODUCT EXCEEDS 2**24.        PAR      6121
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   146
        POP/EMIT ARRAY SUBSCRIPTS.                                    MSP 
  
                               54630              SA6    A3                                                      PAR      6122
          3622  0304003615 +                      ZR     X4,EXIT.    IF NULL SUBSCRIPT VALUE                     PAR      6123
                                                                                                                 PAR      6124
                                        *         HERE IF FIXED SPAN AND SUBSCR VALUE EXISTS.  ISSUE MULTIPLY.   PAR      6125
                                                                                                                 PAR      6126
                          10244                   BX2    X4                                                      PAR      6127
                               20261              SBIT   X2,TP.INTRP                                             PAR      6128
          3623  0322003635 +                      PL     X2,MSP16    IF SUBSCRIPT VALUE NOT AN INTERMEDIATE      PAR      6129
                          5110000000 X            SA1    T.PAR                                                   PAR      6130
          3624  43054                             MX0    -TP.ORDL                                                PAR      6131
                     20233                        LX2    -TP.ORDP+TP.INTRP+1                                     PAR      6132
                          15320                   BX3    -X0*X2      EXTRACT ORD                                 PAR      6133
                               63230              SB2    X3                                                      PAR      6134
                                   2              ERRMI  18-TP.ORDL                                              PAR      6135
          3625  5120000304 +                      SA2    INTEG+/OP/MULT                                          PAR      6136
                          53112                   SA1    X1+B2       TH. OF LAST SUBSCR TURPLE                   PAR      6137
                                                  HX1    TH.SKEL                                                 FC50104   159
                               21156              AX1    -TH.SKELL                                               FC50104   160
                                                  HX2    SP.SKEL                                                 FC50104   161
          3626  21252                             AX2    -SP.SKELL                                               FC50104   162
                     37112                        IX1    X1-X2                                                   FC50104   163
                          0311003635 +            NZ     X1,MSP16    IF LAST OPERATOR NOT A MULTIPLY             FC50104   164
                                                                                                                 PAR      6142
                                        *         HERE IF LAST SUBSCRIPT EXPR OPERATOR WAS A MULTIPLY.           PAR      6143
                                                                                                                 PAR      6144
          3627  54411                             =A4    A1+OR.1OP-OR.OPR  SUBSCRIPT RESULT (1OP)                PAR      6145
                     10144                        BX1    X4                                                      PAR      6146
                          0100000000 X            CALL   LCT         CHECK (1OP) TYPE                            PAR      6147
          3630  0420003632 +                      ZR     B2,MSP12    IF (1OP) NOT A CONSTANT                     PAR      6148
                                                                                                                 PAR      6149
                                         .T       IFEQ   TEST,ON                                                 PAR      6150
                                                  SA2    ="BOOLINT"                                              PAR      6151
                                                  SB2    X0          MODE                                        PAR      6152
                                                  LX2    B2                                                      PAR      6153
                                                  PL     X2,"BLOWUP" IF NOT BOOL OR INT  ( *SSR* ERROR )         PAR      6154
                                         .T       ENDIF                                                          PAR      6155
                                                                                                                 PAR      6156
                          42565                   IX5    X6*X5       NEW (2OP) = K-OPD * CONST SPAN              PAR      6157
                                   0     .FIX     SET    --  IN TROUBLE IF PARTIAL PRODUCT EXCEEDS 2**24.        PAR      6158
                               54441              =A4    A4-OR.1OP+OR.2OP  NEW (1OP)                             PAR      6159
          3631  0400003636 +                      EQ     MSP18       ISSUE NEW MULTIPLY TURPLE (OLD MAY DANGLE)  PAR      6160
                                                                                                                 PAR      6161
          3632  54441                    MSP12    =A4    A4+OR.2OP-OR.1OP  SUBSCRIPT RESULT (2OP)                PAR      6162
                     10144                        BX1    X4                                                      PAR      6163
                          0100000000 X            CALL   LCT         CHECK (2OP) TYPE                            PAR      6164
          3633  0420003635 +                      ZR     B2,MSP16    IF (2OP) NOT A CONSTANT                     PAR      6165
                                                                                                                 PAR      6166
                                         .T       IFEQ   TEST,ON                                                 PAR      6167
                                                  SA2    ="BOOLINT"                                              PAR      6168
                                                  SB2    X0          MODE                                        PAR      6169
                                                  LX2    B2                                                      PAR      6170
                                                  PL     X2,"BLOWUP" IF NOT BOOL OR INT  ( *SSR* ERROR )         PAR      6171
                                         .T       ENDIF                                                          PAR      6172
                                                                                                                 PAR      6173
                          42565                   IX5    X6*X5       NEW (2OP) = K-OPD * CONST SPAN              PAR      6174
                                   0     .FIX     SET    --  IN TROUBLE IF PARTIAL PRODUCT EXCEEDS 2**24.        PAR      6175
                               55441              =A4    A4-OR.2OP+OR.1OP  NEW (1OP)                             PAR      6176
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   147
        POP/EMIT ARRAY SUBSCRIPTS.                                    MSP 
  
          3634  0400003636 +                      EQ     MSP18       ISSUE NEW MULTIPLY TURPLE (OLD MAY DANGLE)  PAR      6177
                                                                                                                 PAR      6178
                                        *         HERE TO ISSUE (SUBSCRIPT VALUE / PRED OPD) * (CONSTANT SPAN).  PAR      6179
                                        *                (X4) = (1OP).                                           PAR      6180
                                        *                (X5) = CONSTANT FOR (2OP).                              PAR      6181
                                                                                                                 PAR      6182
          3635  5146777776               MSP16    SA4    B6-1        (1OP) = PREVIOUS RESULT                     PAR      6183
          3636  10655                    MSP18    BX6    X5                                                      PAR      6184
                     76711                        =X7    M.INT                                                   PAR      6185
                          0100000000 X            CALL   NCS                                                     PAR      6186
          3637  10566                             BX5    X6          (2OP) = SPAN                                PAR      6187
                     0400003651 +                 EQ     MSP30                                                   PAR      6188
                                                                                                                 PAR      6189
                                        *         HERE TO PROCESS ADJUSTABLE DIMENSION SPAN.                     PAR      6190
                                        *                (A3,X3) = /AR/BIAS, BIAS ACCUMULATOR.                   PAR      6191
                                        *                (X4) = (1OP) = SUBSCRIPT VALUE.                         PAR      6192
                                        *                (X5) = VD. ORDINAL OF SPAN.                             PAR      6193
                                                                                                                 PAR      6194
          3640  10655                    MSP20    BX6    X5                                                      PAR      6195
                     43700                        MX7    0                                                       PAR      6196
                          5160000017 +            SA6    MSPA        TEMP SAVE VD. ORD                           PAR      6197
          3641  54730                             SA7    A3          CLEAR BIAS ACCUMULATOR                      PAR      6198
                     10544                        BX5    X4          PRESET (2OP) = SUBSCRIPT VALUE              PAR      6199
                          0313003643 +            NZ     X3,MSP22    IF BIAS .NZ., GO ADD IT IN                  PAR      6200
          3642  0304003615 +                      ZR     X4,EXIT.    IF NULL SUBSCRIPT VALUE                     PAR      6201
                          0400003647 +            EQ     MSP28                                                   PAR      6202
                                                                                                                 PAR      6203
          3643  10633                    MSP22    BX6    X3                                                      PAR      6204
                     76711                        =X7    M.INT                                                   PAR      6205
                          0100000000 X            CALL   NCS                                                     PAR      6206
          3644  5130000301 +                      SA3    INTEG+/OP/PLUS    (OPR) = INTEGER ADD                   PAR      6207
                          10566                   BX5    X6          (2OP) = BIAS                                PAR      6208
          3645  0304003647 +                      ZR     X4,MSP28    IF NULL SUBSCRIPT VALUE                     PAR      6209
                          0100003543 +            RJ     ADU         ISSUE ADD                                   PAR      6210
          3646  57561                             =A5    B6-1        (2OP) = NEW SUBSCRIPT VALUE                 PAR      6211
                                                                                                                 PAR      6212
          3647  5110000017 +             MSP28    SA1    MSPA        SAVED VD. ORDINAL                           PAR      6213
                          5120003436 +            SA2    /AR/VDSK    VD. OPERAND SKELETON, PRESET WITH (S=VD)    PAR      6214
          3650  20124                             LX1    TP.BIASP                                                PAR      6215
                     12412                        BX4    X1+X2       (1OP) = ADJUSTABLE SPAN                     PAR      6216
                                                                                                                 PAR      6217
          3651  5130000304 +             MSP30    SA3    INTEG+/OP/MULT                                          PAR      6218
                          0100003543 +            RJ     ADU                                                     PAR      6219
          3652  0400003615 +                      EQ     EXIT.                                                   PAR      6220
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   148
        POP/EMIT ARRAY SUBSCRIPTS.                                    SLB 
  
                                        **        SLB - SUBTRACT LOWER BOUND.                                    PAR      6222
                                        *                                                                        PAR      6223
                                        *                                                                        PAR      6224
                                        *         ENTRY  (X1) = CURRENT SUBSCRIPT NUMBER.                        PAR      6225
                                        *                                                                        PAR      6226
                                        *         USES   X2-6.    A2-4,A6.    B2.                                PAR      6227
                                        *                                                                        PAR      6228
                                        *         CALLS  ADU/ADT, GDI.                                           PAR      6229
                                                                                                                 PAR      6230
                                                                                                                 PAR      6231
          3653  0400403653 +             SLB      SUBR   0           **  ENTRY/EXIT  **                          PAR      6232
          3654  63210                             SB2    X1          (B2) = CURRENT SUBSCRIPT NUMBER             PAR      6233
                     0100003606 +                 RJ     GDI         GET DIMENSION INFORMATION                   PAR      6234
          3655  0336003657 +                      MI     X6,SLB2     IF LOWER BOUND IS ADJUSTABLE                PAR      6235
                          5120003433 +            SA2    /AR/BIAS                                                PAR      6236
          3656  37621                             IX6    X2-X1       BIAS = BIAS - LOWER BOUND (CONSTANT)        PAR      6237
                     54620                        SA6    A2                                                      PAR      6238
                          0400003653 +            EQ     EXIT.                                                   PAR      6239
                                                                                                                 PAR      6240
                                        *         HERE IF LOWER BOUND IS ADJUSTABLE.                             PAR      6241
                                                                                                                 PAR      6242
          3657  5120003436 +             SLB2     SA2    /AR/VDSK                                                PAR      6243
                          57461                   =A4    B6-1        (1OP) = SUBSCRIPT VALUE                     PAR      6244
                               20124              LX1    TP.BIASP                                                PAR      6245
          3660  12521                             BX5    X2+X1       (2OP) = ADJUSTABLE LOWER BOUND              PAR      6246
                     5130000302 +                 SA3    INTEG+/OP/MINUS   (OPR) = INTEGER SUBTRACT              PAR      6247
          3661  0314003662 +                      NZ     X4,SLB3     IF SUBSCRIPT VALUE NOT NULL                 PAR      6248
                          54331                   =A3    A3-/OP/MINUS+/OP/UMIN                                   PAR      6249
          3662  0100003543 +             SLB3     RJ     ADU         ISSUE SUBTRACT OR UNARY MINUS               PAR      6250
          3663  0400003653 +                      EQ     EXIT.                                                   PAR      6251
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   149
        POP/EMIT ARRAY SUBSCRIPTS.                                    SSO 
  
                                        **        SSO -  SET UP SUBSCRIPT OPERATIONS.                            PAR      6253
                                        *                                                                        PAR      6254
                                        *         CALLED WHEN PARSER HAS ENCOUNTED AN ARRAY NAME FOLLOWED        PAR      6255
                                        *         BY A LEFT PAREN.  SETS CONDITIONS FOR PARSER TO INDICATE       PAR      6256
                                        *         WE ARE NOW IN SUBSCRIPT MODE.                                  PAR      6257
                                        *                                                                        PAR      6258
                                        *         ENTRY  (CSYTAG) = PASS 1 TAG-FORM OF ARRAY.                    PAR      6259
                                        *                (CSYWB) = T.SYM WORD B FOR ARRAY.                       PAR      6260
                                        *                                                                        PAR      6261
                                        *         EXIT   (X4) = NEW *ARGMIS*.                                    PAR      6262
                                        *                (X7) = NEW *ARGCOMA*.                                   PAR      6263
                                        *                                                                        PAR      6264
                                        *         USES   X0-4,X7.    A1-3.    B2-3.                              PAR      6265
                                        *                                                                        PAR      6266
                                        *         CALLS  NONE.                                                   PAR      6267
                                                                                                                 PAR      6268
                                                                                                                 PAR      6269
          3664  0400403664 +             SSO      SUBR   0           **  ENTRY/EXIT  **                          PAR      6270
          3665  5110000014 +                      SA1    CSYTAG                                                  PAR      6271
                          5120000000 X            SA2    T.SYM                                                   PAR      6272
          3666  43054                             MX0    -TP.ORDL                                                PAR      6273
                     20120                        LX1    -TP.ORDP                                                PAR      6274
                          15710                   BX7    -X0*X1       EXTRACT T.SYM ORDINAL OF ARRAY             PAR      6275
                               63270              =B2    X7+WA.W                                                 PAR      6276
                                   2              ERRMI  18-TP.ORDL                                              PAR      6277
                                                                                                                 PAR      6278
                                         .T       IFEQ   TEST,ON                                                 PAR      6279
                                                  MI     B2,"BLOWUP"       IF INDEX BELOW T.SYM                  PAR      6280
                                                  SA3    T=SYM                                                   PAR      6281
                                                  SB3    X3                                                      PAR      6282
                                                  GT     B2,B3,"BLOWUP"    IF INDEX ABOVE T.SYM                  PAR      6283
                                         .T       ENDIF                                                          PAR      6284
                                                                                                                 PAR      6285
          3667  22017                             LX0    X7,B1                                                   PAR      6286
                     63202                        SB2    X0+B2                                                   PAR      6287
                                   0              ERRNZ  Z=SYM-3                                                 PAR      6288
                          53222                   SA2    X2+B2                                                   PAR      6289
                               43052              MX0    WA.NAMEL                                                PAR      6290
                                                  HX2    WA.NAME                                                 PAR      6291
          3670  5110000016 +                      SA1    CSYWB                                                   PAR      6292
                          11402                   BX4    X0*X2       *(X4) = ARGMIS [NAME=ARRAY NAME]            PAR      6293
                                   0              ERRNZ  WA.NAMEP-AS.NAMEP                                       PAR      6294
                               43057              MX0    -WB.PNTL                                                PAR      6295
          3671  20115                             LX1    -WB.PNTP                                                PAR      6296
                     15010                        BX0    -X0*X1       EXTRACT T.DIM INDEX OF ARRAY               PAR      6297
                                                                                                                 PAR      6298
                                         .T       IFEQ   TEST,ON                                                 PAR      6299
                                                  MI     X0,"BLOWUP"       IF INDEX BELOW T.DIM                  PAR      6300
                                                  SA2    T=DIM                                                   PAR      6301
                                                  IX2    X2-X0                                                   PAR      6302
                                                  MI     X2,"BLOWUP"       IF INDEX ABOVE T.DIM                  PAR      6303
                                         .T       ENDIF                                                          PAR      6304
                                                                                                                 PAR      6305
                          20744                   LX7    AC.SYMP                                                 PAR      6306
                               20022              LX0    AC.DIMIP                                                PAR      6307
          3672  12770                             BX7    X7+X0       *(X7) = ARGCOMA[VSUB=0,SYM=*,DIMI=**,CNT=0] PAR      6308
                     0400003664 +                 EQ     EXIT.                                                   PAR      6309
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   150
        POP/EMIT ARRAY SUBSCRIPTS.                                    SSR 
  
                                        **        SSR - STANDARDIZE SUBSCRIPT RESULT.                            PAR      6311
                                        *                                                                        PAR      6312
                                        *         ENTRY  (X4) = ARGCOMA.                                         PAR      6313
                                        *                (X5) = SUBSCRIPT EXPRESSION RESULT.                     PAR      6314
                                        *                (B6)-1  ->  SUBSCRIPT EXPR RESULT.                      PAR      6315
                                        *                                                                        PAR      6316
                                        *         EXIT   (X4) = ARGCOMA.                                         PAR      6317
                                        *                                                                        PAR      6318
                                        *         USES   X0-7.    A1-4,A6-7.    B2-3,B6-7.                       PAR      6319
                                        *                                                                        PAR      6320
                                        *         CALLS  ADU/ADT, GDI, LCT, NCS, SUBERR(OSE).                    PAR      6321
                                                                                                                 PAR      6322
                                                                                                                 PAR      6323
          3673  0400403673 +             SSR      SUBR   0           **  ENTRY/EXIT  **                          PAR      6324
                                                  LX4    -AC.CNTP                                                PAR      6325
          3674  73640                             SX6    X4                                                      PAR      6326
                     63240                        SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT              PAR      6327
                                   0              ERRNZ  AC.CNTL-18                                              PAR      6328
                          5160003435 +            SA6    /AR/NSUB    SAVE CURRENT SUBSCRIPT COUNT                PAR      6329
          3675  20452                             LX4    -AC.DIMIP+AC.CNTP                                       PAR      6330
                     73740                        SX7    X4                                                      PAR      6331
                                   0              ERRNZ  AC.DIMIL-18                                             PAR      6332
                          20422                   LX4    AC.DIMIP    (X4) = RESTORE *ARGCOMA* NATURAL POSITION   PAR      6333
          3676  5170003434 +                      SA7    /AR/DIMI    SAVE INDEX OF ARRAY IN T.DIM                PAR      6334
                          0100003606 +            RJ     GDI         GET DIMENSION INFORMATION                   PAR      6335
          3677  0732003673 +                      GT     B2,B3,EXIT. IF TOO MANY SUBSCRIPTS (DIAGNOSED LATER)    PAR      6336
                          10155                   BX1    X5                                                      PAR      6337
          3700  0100000000 X                      CALL   LCT                                                     PAR      6338
          3701  5120004570 +                      SA2    ="ALLNUM"                                               PAR      6339
                          6170000000 X            SB7    E.SB2       PRESET MSG  *NOT NUMERIC TYPE*              PAR      6340
          3702  63300                             SB3    X0          (B3) = MODE                                 PAR      6341
                     22232                        LX2    B3                                                      PAR      6342
                          0322003726 +            PL     X2,SSR30    IF SUBSCRIPT NOT NUMERIC                    PAR      6343
          3703  10066                             BX0    X6          (X0) = CONSTANT SUBSCRIPT VALUE (=0 IF VAR) PAR      6344
                     66711                        =B7    M.INT                                                   PAR      6345
                          0437003705 +            EQ     B3,B7,SSR2  IF SUBSCRIPT INTEGER                        PAR      6346
          3704  6170000000 X                      SUBERR E.SB3       ISSUE MSG *(NON-ANS) NOT INTEGER*           PAR      6347
          3705  5120004571 +             SSR2     SA2    ="BOOLINT"                                              PAR      6348
                          76711                   =X7    M.INT                                                   PAR      6349
                               22232              LX2    B3                                                      PAR      6350
          3706  0520003713 +                      NZ     B2,SSR20    IF SUBSCRIPT CONSTANT                       PAR      6351
                                                                                                                 PAR      6352
                                        *         HERE IF SUBSCRIPT IS VARIABLE.                                 PAR      6353
                                        *         FORCE INTEGER MODE IF NOT BOOLEAN OR INTEGER.                  PAR      6354
                                                                                                                 PAR      6355
                                        * SSR10   BSS    0                                                       PAR      6356
                          43001                   CLAS=  X0,AC,(VSUB)                                            PAR      6357
                               12440              BX4    X4+X0       FLAG VARIABLE SUBSCRIPT                     PAR      6358
          3707  0332003673 +                      MI     X2,EXIT.    IF SUBSCRIPT IS BOOLEAN OR INTEGER          PAR      6359
                          22604                   LX6    X4                                                      PAR      6360
                               13444              BX4    0           (1OP) = DUMMY                               PAR      6361
          3710  5160000017 +                      SA6    SSRA        TEMP SAVE ARGCOMA                           PAR      6362
                          5130000333 +            SA3    INTMAC      (X3) = *INT* OPERATOR                       PAR      6363
          3711  0100003543 +                      RJ     ADU         *INT* CONVERSION TURPLE TO T.PAR            PAR      6364
          3712  5140000017 +                      SA4    SSRA        RESTORE (X4) = ARGCOMA                      PAR      6365
                          0400003673 +            EQ     EXIT.                                                   PAR      6366
                                                                                                                 PAR      6367
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   151
        POP/EMIT ARRAY SUBSCRIPTS.                                    SSR 
  
                                        *         HERE IF SUBSCRIPT IS CONSTANT.                                 PAR      6368
                                                                                                                 PAR      6369
          3713  10500                    SSR20    BX5    X0          (X5) = CONSTANT SUBSCRIPT VALUE             PAR      6370
                     0332003716 +                 MI     X2,SSR22    IF SUBSCRIPT IS BOOLEAN OR INTEGER CONSTANT PAR      6371
                               26075              UX0,B7 X5          INTEGERIZE CONSTANT                         PAR      6372
          3714  22670                             LX6    X0,B7                                                   PAR      6373
                     10566                        BX5    X6          (X5) = SAVE INTEGERIZED CONSTANT            PAR      6374
                          0100000000 X            CALL   NCS                                                     PAR      6375
          3715  57661                             =A6    B6-1        INTEGERIZED SUBSCRIPT TO ELSTACK            PAR      6376
                     10055                        BX0    X5                                                      PAR      6377
                                                                                                                 PAR      6378
                                        *         HERE WITH (X0)=(X5) = INTEGER (OR BOOLEAN) CONSTANT SUBSCRIPT. PAR      6379
                                        *         CHECK ...                                                      PAR      6380
                                        *                1.  IS SUBSCRIPT MAGNITUDE .LT. 2**23-1  (IF TOO BIG,   PAR      6381
                                        *                    WE RUN INTO FIELD OVERFLOWS IN *A=ARRAY*.)          PAR      6382
                                        *                2.  IS NUMBER OF SUBSCRIPT  .LE.  NUMBER OF DIMENSIONS. PAR      6383
                                        *                3.  IS SUBSCRIPT .LE. UPPER BOUND AND .GE. LOWER BOUND. PAR      6384
                                                                                                                 PAR      6385
          3716  21027                    SSR22    AX0    DM.INFL-1   DISCARD VALID SUBSCRIPT BITS                FC5A231   131
                     6170000000 X                 SB7    E.SB4       PRESET MSG *MAGNITUDE .GT. 2**23-1 *        PAR      6387
                                                  LX4    -AC.CNTP                                                PAR      6388
                               63240              SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT              PAR      6389
                                   0              ERRNZ  AC.CNTL-18                                              PAR      6390
                                                  LX4    AC.CNTP                                                 PAR      6391
          3717  0310003726 +                      NZ     X0,SSR30    IF ABS(SUBSCRIPT) TOO LARGE                 PAR      6392
                          0100003606 +            RJ     GDI         GET DIMENSION INFORMATION                   PAR      6393
          3720  0336003722 +                      MI     X6,SSR24    IF LOWER BOUND ADJUSTABLE                   PAR      6394
                          37051                   IX0    X5-X1                                                   PAR      6395
          3721  6170000000 X                      SB7    E.SB5       PRESET MSG *SUBSCRIPT .LT. LOWER BOUND*     PAR      6396
                          0330003724 +            MI     X0,SSR28    IF SUBSCRIPT .LT. LOWER BOUND               PAR      6397
          3722  0337003673 +             SSR24    MI     X7,EXIT.    IF UPPER BOUND ADJUSTABLE                   PAR      6398
                          37025                   IX0    X2-X5                                                   PAR      6399
          3723  6170000000 X                      SB7    E.SB6       PRESET MSG *SUBSCRIPT .GT. UPPER BOUND*     PAR      6400
                          0320003673 +            PL     X0,EXIT.    IF SUBSCRIPT .LE. UPPER BOUND               PAR      6401
          3724  0100000000 X             SSR28    SUBERR B7                                                      PAR      6402
          3725  0400003673 +                      EQ     EXIT.                                                   PAR      6403
                                                                                                                 PAR      6404
                                        *         HERE IF SUBSCRIPT MAGNITUDE OR MODE ERROR.                     PAR      6405
                                        *         SUBSTITUTE LEGAL SUBSCRIPT VALUE.                              PAR      6406
                                        *                (B7) -> ERROR MESSAGE TO BE ISSUED.                     PAR      6407
                                                                                                                 PAR      6408
          3726  0100000000 X             SSR30    SUBERR B7          ISSUE ERROR MESSAGE                         PAR      6409
                                                  LX4    -AC.CNTP                                                PAR      6410
          3727  63240                             SB2    X4          (B2) = CURRENT SUBSCRIPT COUNT              PAR      6411
                                   0              ERRNZ  AC.CNTL-18                                              PAR      6412
                                                  LX4    AC.CNTP                                                 PAR      6413
                     0100003606 +                 RJ     GDI         GET DIMENSION INFORMATION                   PAR      6414
          3730  15616                             BX6    -X6*X1      (X6) = LB IF LB CONST, = 0 IF LB ADJUST     PAR      6415
                     76711                        =X7    M.INT                                                   PAR      6416
                          0100000000 X            CALL   NCS                                                     PAR      6417
          3731  57661                             =A6    B6-1         *SAFE* SUBSCRIPT TO ELSTACK                PAR      6418
                     0400003673 +                 EQ     EXIT.                                                   PAR      6419
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   152
        SUBROUTINES.                                                  ACT 
  
                                        **        ACT -  ADD CONVERTED TURPLE.                                   PAR      6422
                                        *                                                                        PAR      6423
                                        *         ENTRY  (X1) = TOKEN TYPE OF OPERATOR.                          PAR      6424
                                        *                (X4) = 1OP                                              PAR      6425
                                        *                (X5) = 2OP                                              PAR      6426
                                        *                                                                        PAR      6427
                                        *         EXIT   (B6) = DECREMENTED BY ONE.                              PAR      6428
                                        *                ((B6)-1) -> RESULT OPERAND.                             PAR      6429
                                        *                SPECIFIC-MODE TURPLE PUT OUT.                           PAR      6430
                                        *                                                                        PAR      6431
                                        *         USES   CANNOT DESTROY A0, B4,B5                                PAR      6432
                                        *         CALLS  ADT, OMC, SDM.                                          PAR      6433
                                                                                                                 PAR      6434
                                                                                                                 PAR      6435
          3732  0400403732 +             ACT      SUBR   =           ...ENTRY/EXIT...                            PAR      6436
          3733  5221000226 +                      SA2    X1-O.SEP+F.PRIOR                                        PAR      6437
                          43063                   MX0    -SP.TBPRL                                               FC50104   165
                                                  LX2    -SP.TBPRP                                               FC50104   166
                               11702              BX7    X0*X2       CLEAR STACK PRIORITY                        PAR      6440
          3734  12371                             BX3    X7+X1       SET (TH.TBPR) = TOKEN TYPE                  PAR      6441
                                                  LX3    SP.TBPRP                                                FC50104   167
                     0100004370 +                 RJ     SDM         SELECT DOMINANT MODE                        PAR      6443
          3735  0100004272 +                      RJ     OMC         OUTPUT MODE CONVERSION (IF NECESSARY)       PAR      6444
          3736  0100003740 +                      RJ     ADT         ADD TURPLE                                  PAR      6445
          3737  0400003732 +                      EQ     EXIT.                                                   PAR      6446
  
  
  
  
                                        **        ADT - ADD TURPLE TO PARSED FILE.                               PAR      6448
                                        *                                                                        PAR      6449
                                        *         GENERAL FLOW                                                   PAR      6450
                                        *                                                                        FC50391     6
                                        *         A. CBB - CONVERTS 1OP AND 2OP TO BASE/BIAS FORMAT, AS NEEDED.  FC50391     7
                                        *                                                                        FC50391     8
                                        *         B. CCR - CHECKS IF CURRENT TURPLE CAN BE PERFORMED AT COMPILE  FC50391     9
                                        *                  TIME, IF OPERATION IS DEFINED, IF TURPLE CAN BE       PAR      6452
                                        *                  MODIFIED TO A FASTER DEFINED OPERATION, ETC.          PAR      6453
                                        *                                                                        PAR      6454
                                        *         C. SQZ - CHECKS IF CURRENT TURPLE CAN BE SQUEEZED OUT BECAUSE  FC50391    10
                                        *                  OF A PREVIOUS ALIKE TURPLE.                           PAR      6456
                                        *                                                                        PAR      6457
                                        *         D. ALC - ALLOCATES ROOM FOR CURRENT TURPLE.                    FC50391    11
                                        *                                                                        PAR      6459
                                        *                                                                        PAR      6460
                                        *         ENTRY  (X3) = OPERATOR.                                        PAR      6461
                                        *                (X4) = 1ST OPERAND.                                     PAR      6462
                                        *                (X5) = 2ND OPERAND.                                     PAR      6463
                                        *                (SOPR) = (X3).                                          PAR      6464
                                        *                (SMOD) = RESULTANT MODE OF TURPLE.                      PAR      6465
                                        *                         (SEE DEFINITION IN *SDM*.)                     PAR      6466
                                        *                (ATTR) = EXTRA BITS TO MERGE INTO RESULT OPERAND.       PAR      6467
                                        *                                                                        PAR      6468
                                        *         EXIT   T.PAR UPDATED BY Z=TURP, IF TURPLE NOT SQUEEZED OR      PAR      6469
                                        *                REDUCED.                                                PAR      6470
                                        *                (B2) = MI IFF TURPLE EMITTED                            FC5A207     6
                                        *                (B6) = UPDATED BY -1.                                   PAR      6471
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   153
        SUBROUTINES.                                                  ADT 
  
                                        *                ESTACK (B6) = INTERMEDIATE GENERATED BY CURRENT TURPLE. PAR      6472
                                        *                (ATTR) = 0.                                             PAR      6473
                                        *                                                                        PAR      6474
                                        *         USES   X0-3,X6-7.    A1-3,A6-7.    B2-3,B6-7.                  PAR      6475
                                        *                                                                        PAR      6476
                                        *         CALLS  ALC, CBB, CCR, DBE, EMT, SQZ                            FC50391    12
                                        *                                                                        PAR      6478
                                        *         NOTE   THIS ROUTINE DEPENDS ON THE ORDER.....                  PAR      6479
                                        *                ...OSTACK FOLLOWED BY ESTACK.                           PAR      6480
                                                                                                                 PAR      6481
                                                                                                                 PAR      6482
          3740  0400403740 +             ADT      SUBR   =           ENTRY/EXIT...                               PAR      6483
          3741  5110000000 X                      SA1    DATFLG                                                  FC50391    13
                          7211777772              SX1    X1-PM=DATA                                              FC50391    14
          3742  0301003746 +                      ZR     X1,ADT1     IF PARSING *DATA*                           FC50391    15
                          0100004012 +            RJ     CBB         CONVERT 2OP TO BASE/BIAS FORMAT             FC50391    16
          3743  10055                             BX0    X5                                                      FC50391    17
                     22504                        LX5    X4                                                      FC50391    18
                          10400                   BX4    X0          SWAP 1OP/2OP FOR CBB                        FC50391    19
          3744  0100004012 +                      RJ     CBB         CONVERT 2OP TO BASE/BIAS FORMAT             FC50391    20
          3745  22005                             LX0    X5                                                      FC50391    21
                     10544                        BX5    X4                                                      FC50391    22
                          22400                   LX4    X0          RESTORE                                     FC50391    23
                                                                                                                 FC50391    24
          3746  5110000000 +             ADT1     SA1    PARNOW                                                  FC50391    25
                          43600                   MX6    0                                                       PAR      6485
          3747  5160000000 X                      SA6    IFREL2      INDICATE LAST TURPLE NOT RELATIONAL         PAR      6486
                          7211777774              SX1    X1-PM=DIM                                               PAR      6487
          3750  0311003754 +                      NZ     X1,ADT2     IF NOT 'DIM BOUND' PARSING                  FC50391    26
                          43001                   CLAS=  X0,SP,(NSQZ)                                            FC50104   168
          3751  12603                             BX6    X0+X3       DONT SQUEEZE DIMENSION BOUNDS EXPRESSION    PAR      6490
                     22306                        LX3    X6                                                      PAR      6491
                          5160000003 +            SA6    SOPR                                                    PAR      6492
          3752  20633                             HX6    SP.BND                                                  FC50104   169
                     0336003754 +                 MI     X6,ADT2     IF LEGAL OPERATION                          FC50391    27
          3753  6170000000 X                      SB7    E.DM11                                                  PAR      6495
                          0100004130 +            RJ     DBE         OUTPUT DIMENSION BOUND ERROR                PAR      6496
                                                                                                                 PAR      6497
          3754  10033                    ADT2     BX0    X3                                                      FC50391    28
                     20023                        HX0    SP.UNAR                                                 FC50104   170
                          0320003756 +            PL     X0,ADT3     IF NOT UNARY TURPLE                         FC50391    29
          3755  10455                             BX4    X5          (P1) = ONLY OPERAND (1OP)                   PAR      6501
                     43500                        MX5    0           (P2) = NIL                                  PAR      6502
                                                                                                                 PAR      6503
          3756  43652                    ADT3     MX6    -SP.SKELL                                               FC50391    30
                     10700                        BX7    X0                                                      FC50947     9
                          20073                   LX0    SP.UNARP+1-SP.SKELP                                     FC50104   172
                               15206              BX2    -X6*X0                                                  PAR      6506
          3757  5212000000 X                      SA1    X2+=XF.SKCR                                             PAR      6507
                                                  LX1    -VS.CRAP                                                PAR      6508
                          10077                   BX0    X7                                                      FC50947    10
                               73710              SX7    X1          (X7) = ADDRESS OF CONSTANT REDUCER          PAR      6509
                                   0              ERRNZ  18-VS.CRAL                                              PAR      6510
          3760  0307003770 +                      ZR     X7,ADT5     IF THIS SKEL NOT REDUCIBLE                  PAR      6511
                          0320003764 +            PL     X0,ADT4     IF NOT UNARY TURPLE                         FC50947    11
          3761  5110000000 X                      SA1    CO.DOLG                                                 FC50947    12
                          0301003764 +            ZR     X1,ADT4     IF NOT LONG DO                              FC50947    13
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   154
        SUBROUTINES.                                                  ADT 
  
          3762  5110000000 X                      SA1    ARGMODE                                                 FC50947    14
                          6271775612 -            SB7    X1-A=DO                                                 FC50947    15
          3763  0470003770 +                      ZR     B7,ADT5     IF DO INDUCTION VARIABLE                    FC50947    16
                                                                                                                 FC50947    17
          3764  0100000000 X             ADT4     CALL   CCR         CHECK CONSTANT REDUCTION                    FC50947    18
          3765  5130000003 +                      SA3    SOPR                                                    PAR      6514
                          0306003770 +            ZR     X6,ADT5     IF TURPLE NOT REDUCED                       PAR      6515
          3766  67661                             SB6    B6-B1       POP ELEMENT STACK                           PAR      6516
                     57661                        SA6    B6-B1       ESTACK.TOP = RESULT OF REDUCTION            PAR      6517
                          6120000001              SB2    1                                                       FC5A207     7
          3767  0400003740 +                      EQ     EXIT.                                                   PAR      6518
                                                                                                                 PAR      6519
          3770  10033                    ADT5     BX0    X3                                                      PAR      6520
                     20022                        HX0    SP.NSQZ                                                 FC50104   173
                          76650                   SX6    B5                                                      PAR      6522
                               67201              SB2    -B1         INDICATE NO SQUEEZE PERFORMED               PAR      6523
          3771  0330003775 +                      MI     X0,ADT7     IF SQZ INHIBITED FOR THIS TURPLE            PAR      6525
                          5160004011 +            SA6    ADTA        SAVE B5                                     PAR      6526
          3772  0100004462 +                      RJ     SQZ         CHECK IF CURRENT TURPLE CAN BE ELIMINATED   PAR      6527
          3773  5110004011 +                      SA1    ADTA        RESTORE B5                                  PAR      6528
                          63510                   SB5    X1          RESTORE *B5*                                PAR      6529
          3774  0620003740 +                      PL     B2,ADTX     IF OPERATION SQUEEZED                       PAR      6530
                                                                                                                 PAR      6531
                                        *         SET UP INTERMEDIATE RESULT OPERAND ON ESTACK.                  PAR      6532
                                        *                (X4) = (1OP).                                           PAR      6533
                                        *                (X5) = (2OP).                                           PAR      6534
                                                                                                                 PAR      6535
          3775  5130000003 +             ADT7     SA3    SOPR                                                    PAR      6536
                          43063                   MX0    -SP.TBPRL                                               FC50104   174
                                                  LX3    -SP.TBPRP                                               FC50104   175
                               15730              BX7    -X0*X3      ISOLATE (X7) = TOKEN TYPE OF OPERATOR       PAR      6539
          3776  6277777736                        SB7    X7-O.=                                                  PAR      6540
                          10655                   BX6    X5          FIRST GUESS RESULT = STORE TARGET           PAR      6541
                               43700              MX7    0                                                       PAR      6542
          3777  0470004003 +                      ZR     B7,ADT8     IF STORE TURPLE                             PAR      6543
                          5130000002 +            SA3    SMOD                                                    PAR      6544
          4000  5110000001 +                      SA1    ATTR        ATTRIBUTES FOR RESULT                       PAR      6545
                          5120000000 X            SA2    T=PAR                                                   PAR      6546
          4001  7100002000                        SX0    TP.INTRM                                                PAR      6547
                          36113                   IX1    X1+X3       MERGE ATTRIBUTE + RESULT MODE               PAR      6548
                               20254              LX2    TP.ORDP                                                 PAR      6549
          4002  12302                             BX3    X0+X2       ORD + INTR                                  PAR      6550
                     12631                        BX6    X3+X1       + (ATTR) + (SMOD)                           PAR      6551
                                                                                                                 FC50391    31
          4003  67661                    ADT8     SB6    B6-B1       POP ELEMENT STACK                           PAR      6552
                     5170000001 +                 SA7    ATTR                                                    PAR      6553
                               57661              SA6    B6-B1       ESTACK.TOP = NEW INTERMEDIATE               PAR      6554
                                                                                                                 PAR      6555
                                        *         REFORM.                                                        PAR      6556
                                        *         SET RESULTANT MODE IN OPERATOR WORD THE SAME AS THE            PAR      6558
                                        *         INTERMEDIATE JUST PUT INTO ELEMENT STACK FOR RESULTS OF THIS   PAR      6559
                                        *         TURPLE.                                                        PAR      6560
                                        *         EMIT TURPLE TO PARSED FILE.                                    PAR      6561
                                                                                                                 PAR      6562
          4004  5120000002 +                      SA2    SMOD                                                    PAR      6563
                          5130000003 +            SA3    SOPR                                                    PAR      6564
          4005  73220                             SX2    X2          EXTRACT (X2) = DOMINANT MODE                PAR      6565
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   155
        SUBROUTINES.                                                  ADT 
  
                     20222                        LX2    SP.MODEP                                                FC50104   176
                          12623                   BX6    X2+X3       (ADTA) = TURPLE HEADER                      PAR      6567
          4006  5160004011 +                      SA6    ADTA                                                    PAR      6568
                          6130404011 +            EMIT   ADTA,*      EMIT TURPLE TO IL                           PAR      6569
          4010  67201                             =B2    -1                                                      FC5A207     8
                     0400003740 +                 EQ     EXIT.       EXIT...                                     PAR      6570
                                                                                                                 PAR      6571
          4011                     1     ADTA     BSS    1           SAVE REGISTER VALUE                         PAR      6572
  
  
  
  
                                        **        CBB -  CONVERT TO BASE/BIAS                                    FC50391    33
                                        *                                                                        FC50391    34
                                        *         ENTRY  (X5) = OPERAND (TP.FORMAT)                              FC50391    35
                                        *                                                                        FC50391    36
                                        *         EXIT   (X5) = OPERAND (BASE/BIAS FORMAT)                       FC50391    37
                                        *                                                                        FC50391    38
                                        *         CALLS BBC                                                      FC50391    39
                                        *                                                                        FC50391    40
                                        *         USES   X0                                                      FC50391    41
                                                                                                                 FC50391    42
                                                                                                                 FC50391    43
          4012  0400404012 +             CBB      SUBR               ...ENTRY/EXIT...                            FC50391    44
          4013  22005                             LX0    X5                                                      FC50391    45
                     20052                        SBIT   X0,TP.EQVP                                              FC50391    46
                          0320004012 +            PL     X0,EXIT.    IF NOT EQUIVALENCED                         FC50391    47
          4014  43071                             MX0    -TP.MODEL                                               FC50391    48
                                                  LX5    -TP.MODEP                                               FC50391    49
                     15050                        BX0    -X0*X5      EXTRACT MODE                                FC50391    50
                                                  LX5    TP.MODEP                                                FC50391    51
                          7200777771              SX0    X0-M.CHAR                                               FC50391    52
          4015  0300004012 +                      ZR     X0,EXIT.    IF TYPE CHARACTER                           FC50391    53
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS                        FC50391    54
          4016  0400004012 +                      EQ     EXIT.                                                   FC50391    55
  
  
  
  
                                        **        CDI - CHECK DATA INTERFERENCE.                                 FC5A441    49
                                        *                                                                        FC5A441    50
                                        *         CHECKS ONE ELEMENT IN A CHARACTER EXPRESSION TO DETERMINE      FC5A441    51
                                        *         IF IT OVERLAPS THE TARGET VARIABLE BEING STORED TO.            FC5A441    52
                                        *                                                                        FC5A441    53
                                        *         ENTRY  (X5) = SOURCE CHARACTER OPERAND.                        FC5A441    54
                                        *                                                                        FC5A441    55
                                        *         EXIT   WARNING DIAGNOSTIC ISSUED IF OVERLAP DETECTED.          FC5A441    56
                                        *                                                                        FC5A441    57
                                        *         USES   X-ALL, B-NONE, A-1,2,6,7.                               FC5A441    58
                                        *                                                                        FC5A441    59
                                        *         CALLS  SCB.                                                    FC5A441    60
                                                                                                                 FC50189    91
                                                                                                                 FC50189    92
          4017  6170000000 X             CDI00    WARN   E.AT11      ISSUE WARNING                               FC5A441    61
                                                                                                                 FC5A441    62
          4020                           CDIX     BSS    0           ... EXIT ...                                FC5A421     9
          4020  5110004036 +                      SA1    CDIA        RESTORE B2                                  FC5A421    10
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   156
        SUBROUTINES.                                                  CDI 
  
                          54211                   SA2    A1+B1       RESTORE B7                                  FC5A421    11
                               63210              SB2    X1                                                      FC5A421    12
          4021  63720                             SB7    X2                                                      FC5A421    13
                                                                                                                 FC5A421    14
          4022  0400404022 +             CDI      SUBR   -           ... ENTRY ...                               FC5A421    15
          4023  76620                             SX6    B2          SAVE B2  (USED BY BBC)                      FC5A421    16
                     76770                        SX7    B7          SAVE B7                                     FC5A421    17
                          5160004036 +            SA6    CDIA                                                    FC5A421    18
          4024  54761                             SA7    A6+B1                                                   FC5A421    19
                     76410                        SX4    B1          INDICATE SOURCE OPERAND                     FC5A441    63
                          0100004313 +            CALL   SCB         SET CHARACTER BOUNDS                        FC5A441    64
          4025  5110004365 +                      SA1    SCBB        GET TARGET LOWER BOUND                      FC5A441    65
                          5120004366 +            SA2    SCBC        GET TARGET UPPER BOUND                      FC5A441    66
          4026  0306004033 +                      ZR     X6,CDI50    IF VARIABLE L.B.                            FC50189   154
                          0307004035 +            ZR     X7,CDI60    IF VARIABLE U.B.                            FC50189   155
          4027  37016                             IX0    X1-X6                                                   FC50189   156
                     0320004031 +                 PL     X0,CDI40    IF TARGET L.B. >= L.B.                      FC50189   157
                               37226              IX2    X2-X6                                                   FC50189   158
          4030  0322004017 +                      PL     X2,CDI00    IF TARGET U.B. >= L.B.                      FC50189   159
                          0400004020 +            EQ     CDIX        EXIT                                        FC5A421    25
                                                                                                                 FC50189   161
          4031  0300004017 +             CDI40    ZR     X0,CDI00    IF TARGET L.B. = L.B.                       FC50189   162
                          37071                   IX0    X7-X1                                                   FC50189   163
          4032  0320004017 +                      PL     X0,CDI00    IF U.B. >= TARGET L.B.                      FC50189   164
                          0400004020 +            EQ     CDIX        EXIT                                        FC5A421    26
                                                                                                                 FC50189   166
          4033  37071                    CDI50    IX0    X7-X1                                                   FC50189   167
                     0330004020 +                 MI     X0,CDIX     IF U.B. < TARGET L.B.                       FC5A421    27
                               37027              IX0    X2-X7                                                   FC50189   169
          4034  0330004020 +                      MI     X0,CDIX     IF TARGET U.B. < U.B.                       FC5A421    28
                          0400004017 +            EQ     CDI00       GO ISSUE WARNING                            FC50189   171
                                                                                                                 FC50189   172
          4035  10766                    CDI60    BX7    X6                                                      FC50189   173
                     0400004033 +                 EQ     CDI50       SET U.B. = L.B.                             FC50189   174
                                                                                                                 FC5A421    29
          4036                     2     CDIA     BSS    2           REGISTER SAVE AREA                          FC5A421    30
  
  
  
  
                                        **        CIL - CHECK ILLEGAL USE OF LEVEL 3 NAME.                       PAR      6574
                                        *                                                                        PAR      6575
                                        *         ENTRY  (X3) = SYMTAB (WB) SHIFTED TO WB.ARY IN SIGN.           PAR      6576
                                        *                                                                        PAR      6577
                                        *         EXIT   DIAGNOSTIC OUTPUT FOR ILLEGAL USAGE.                    PAR      6578
                                        *                                                                        PAR      6579
                                        *         USES   A1   X2-3   B3.                                         PAR      6580
                                                                                                                 PAR      6581
                                                                                                                 PAR      6582
          4040  0400404040 +             CIL      SUBR               ...ENTRY/EXIT...                            PAR      6583
          4041  20353                             SBIT   X3,WB.LEVP/WB.ARYP                                      PAR      6584
                     0323004040 +                 PL     X3,EXIT.    IF NOT LEVEL NAME                           PAR      6585
                               20353              LX3    WB.LEVP+1-WB.LEVNP    RIGHT-JUSTIFY LEVEL NUMBER        PAR      6586
          4042  43272                             MX2    -WB.LEVNL                                               PAR      6587
                     15232                        BX2    -X2*X3      (X2) = LEVEL NUMBER                         PAR      6588
                          7222777774              SX2    X2-3                                                    PAR      6589
          4043  0312004040 +                      NZ     X2,EXIT.    IF NOT LEVEL 3                              PAR      6590
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   157
        SUBROUTINES.                                                  CIL 
  
                                                                                                                 PAR      6591
                                        *         HERE IF LEVEL 3 TAG.                                           PAR      6592
                                                                                                                 PAR      6593
                          5130000000 X            SA3    ARGMODE                                                 PAR      6594
          4044  20322                             HX3    AM.LEV3                                                 PAR      6595
                     0333004040 +                 MI     X3,EXIT.    IF LEVEL 3 PERMITTED                        PAR      6596
          4045  5130000000 X                      SA3    DATFLG                                                  FC50023     4
                          0313004040 +            NZ     X3,EXIT.    IF IN DATA STATEMENT                        FC50023     5
                                                                                                                 PAR      6597
                                        *         HERE IF ILLEGAL USE OF LEVEL 3.                                PAR      6598
                                                                                                                 PAR      6599
          4046  6170000000 X                      FATAL  E.LV11                                                  PAR      6600
          4047  0400004040 +                      EQ     EXIT.                                                   PAR      6601
  
  
  
  
                                        **        CLC - COERCE LENGTH OF CHARACTER RESULT.                       PAR      6603
                                        *                                                                        PAR      6604
                                        *         ENTRY  (X1) = DLEN, DESIRED LENGTH.                            PAR      6605
                                        *                (X5) = OI, OPERAND TO BE COERCED.                       PAR      6606
                                        *         METHOD --                                                      PAR      6607
                                        *           IF LEN(OI) IS KNOWN, AND = DLEN  THEN                        PAR      6608
                                        *                RETURN (OI)                                             PAR      6609
                                        *           ELSE  (* MUST TRUNCATE OR PAD *)                             PAR      6610
                                        *                WINC = (DLEN+9) / 10                                    PAR      6611
                                        *                FCA = 10 * (N.CT)                                       PAR      6612
                                        *                (N.CT) = (N.CT) + WINC                                  PAR      6613
                                        *                PUSH  OI                                                PAR      6614
                                        *                CALL  ECS (S=CT, NDX, DL)                               PAR      6615
                                        *                RO = ADT (STR.H, OI, T2)                                PAR      6616
                                        *           ENDIF                                                        PAR      6617
                                        *                                                                        PAR      6618
                                        *         EXIT   (X5) = CONVERTED OPERAND.                               PAR      6619
                                        *                                                                        PAR      6620
                                        *         USES   ALL BUT:  A0.  B4-6.                                    PAR      6621
                                        *                (SOPR), (SMOD)                                          PAR      6622
                                        *         CALLS  ADT, ECS.                                               PAR      6623
                                                                                                                 PAR      6624
                                                                                                                 PAR      6625
          4050  0400404050 +             CLC      SUBR   0           ENTRY/EXIT...                               PAR      6626
          4051  10755                             BX7    X5                                                      PAR      6627
                     56760                        SA7    B6          PUSH  OI                                    PAR      6628
                          66661                   SB6    B6+B1                                                   PAR      6629
                               10411              BX4    X1                                                      FC5A132    80
          4052  10155                             BX1    X5                                                      FC5A132    81
                     0100004242 +                 RJ     GOL         GET OPERAND LENGTH                          FC5A132    82
          4053  10144                             BX1    X4                                                      FC5A132    83
                     0337004055 +                 MI     X7,CLC10    IF OPERAND LENGTH NOT DETERMINABLE          FC5A132    84
                               37047              IX0    X4-X7                                                   FC5A132    85
          4054  0300004065 +                      ZR     X0,CLC80    IF OPERAND LENGTH = DLEN                    FC5A132    86
                                                                                                                 FC5A132    87
          4055  5120000000 X             CLC10    SA2    N.CT        NDX = N.CT                                  FC5A132    88
                          10711                   BX7    X1                                                      PAR      6633
          4056  7130000011                        CW     X3,X7       WINC = (DLEN+9) / 10                        PAR      6634
                               36623              IX6    X2+X3       (N.CT) = (N.CT) + WINC                      PAR      6635
          4060  54620                             SA6    A2                                                      PAR      6636
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   158
        SUBROUTINES.                                                  CLC 
  
                                        *                            T2 = ECS (DLEN, NDX, S=CT)                  PAR      6637
                     5130000000 X                 SA3    S=CT                                                    PAR      6638
          4061  0100004172 +                      RJ     ECS         EMIT CHARACTER SUBSTRING                    PAR      6639
          4062  5130000351 +                      SA3    STRHOP                                                  PAR      6640
                          57561                   SA5    B6-B1       (2OP) = T2                                  PAR      6641
                               10633              BX6    X3                                                      PAR      6642
          4063  55451                             SA4    A5-B1       (1OP) = OI                                  PAR      6643
                     5160000003 +                 SA6    SOPR                                                    PAR      6644
          4064  0100003740 +                      RJ     ADT         PUSH   ADT (V=STR.H, OI, T2)                PAR      6645
                                                                                                                 PAR      6646
          4065  57561                    CLC80    SA5    B6-B1                                                   PAR      6647
                     67661                        SB6    B6-B1       POP  RO                                     PAR      6648
                                        **FV             NEED TO RETURN INDICATION OF (TRUNC, EQ, PAD)           PAR      6649
                          0400004050 +            EQ     EXIT.                                                   PAR      6650
  
  
  
  
                                        **        CLM - COERCE MODE AND CHARACTER LENGTH.                        PAR      6652
                                        *                                                                        PAR      6653
                                        *         ENTRY  (X1) = CHARACTER LENGTH (IMMATERIAL UNLESS              PAR      6654
                                        *                            (X6) = M.CHAR).                             PAR      6655
                                        *                (X5) = OPERAND TO BE COERCED.                           PAR      6656
                                        *                (X6) = DM, DESIRED MODE.                                PAR      6657
                                        *                                                                        PAR      6658
                                        *         EXIT   SAME AS CMR.                                            PAR      6659
                                        *                                                                        PAR      6660
                                        *         USES   ALL BUT:  A0.  B4-6.                                    PAR      6661
                                        *                (SOPR)                                                  PAR      6662
                                        *         CALLS  CLC, CMR.                                               PAR      6663
                                                                                                                 PAR      6664
                                                                                                                 PAR      6665
          4066  0400404066 +             CLM      SUBR   0           ENTRY/EXIT...                               PAR      6666
          4067  10711                             BX7    X1                                                      PAR      6667
                     5170004075 +                 SA7    CLMA                                                    PAR      6668
          4070  0100004076 +                      RJ     CMR         COERCE MODE OF RESULT                       PAR      6669
          4071  5110000002 +                      SA1    SMOD                                                    PAR      6670
                          0570004066 +            NZ     B7,EXIT.    IF ERROR IN CONVERSION                      PAR      6671
          4072  7261777771                        SX6    X1-M.CHAR                                               PAR      6672
                          0316004066 +            NZ     X6,EXIT.    IF DOMINANT MODE NOT CHARACTER              PAR      6673
          4073  5110004075 +                      SA1    CLMA                                                    PAR      6674
                          0100004050 +            RJ     CLC         COERCE CHARACTER LENGTH                     PAR      6675
          4074  66700                             SB7    B0          (**** TEMP ****)  INDICATE NO ERROR         PAR      6676
                                        **FV             NEED ERROR FOR CONTEXTS WHERE PADDING IS ILLEGAL.       PAR      6677
                     0400004066 +                 EQ     EXIT.                                                   PAR      6678
                                                                                                                 PAR      6679
          4075                     1     CLMA     BSS    1                                                       PAR      6680
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   159
        SUBROUTINES.                                                  CMR 
  
                                        **        CMR - COERCE MODE OF RESULT.                                   PAR      6682
                                        *                                                                        PAR      6683
                                        *         VERIFY LEGALITY OF RESULT MODE, AND SELECT CONVERSION.         PAR      6684
                                        *                                                                        PAR      6685
                                        *         ENTRY  (X5) = OPERAND TO BE COERCED.                           PAR      6686
                                        *                (X6) = DM, DESIRED MODE.                                PAR      6687
                                        *                                                                        PAR      6688
                                        *         EXIT   (X5) = CONVERTED OPERAND.                               PAR      6689
                                        *                (B7) .NZ. = ADDRESS OF ERROR MESSAGE, WHEN CONVERSION   PAR      6690
                                        *                            IS ILLEGAL.  (X5) = ORIGINAL OPERAND.       PAR      6691
                                        *                (B7) .ZR. = CONVERSION OKAY.                            PAR      6692
                                        *                (SMOD) = DM.                                            PAR      6693
                                        *                (SOPR)  DESTROYED.                                      PAR      6694
                                        *                                                                        PAR      6695
                                        *         USES   ALL BUT A0, B4, B5, B6.                                 PAR      6696
                                        *                                                                        PAR      6697
                                        *         CALLS  ADT, KCV, LCT, NBC                                      PAR      6698
                                                                                                                 PAR      6699
                                                                                                                 PAR      6700
          4076  0400404076 +             CMR      SUBR   =           ...ENTRY/EXIT...                            PAR      6701
          4077  43071                             MX0    -TP.MODEL                                               PAR      6702
                                                  LX5    -TP.MODEP                                               PAR      6703
                     15450                        BX4    -X0*X5      (X4) = AM = ACTUAL MODE OF OPERAND          PAR      6704
                          5224000000 X            SA2    X4+F.MODC   FETCH ROW (AM) OF MODE CONVERSION MATRIX    PAR      6705
          4100  11105                             BX1    X0*X5                                                   PAR      6706
                     36716                        IX7    X1+X6       RMO = SAME OPERAND WITH DESIRED MODE        PAR      6707
                          5160000002 +            SA6    SMOD                                                    PAR      6708
                                                  LX5    TP.MODEP                                                PAR      6709
                                                  LX7    TP.MODEP                                                PAR      6710
          4101  56760                             SA7    B6          ESTACK(TOP) = RMO                           PAR      6711
                     73760                        SX7    X6                                                      PAR      6712
                          20703                   LX7    3           (B2) = 8 * DM                               PAR      6713
                               63270              SB2    X7                                                      PAR      6714
          4102  43064                             MX0    -8                                                      PAR      6715
                     23122                        AX1    B2,X2       SLIDE ROW TO DOMINANT COLUMN                PAR      6716
                          15310                   BX3    -X0*X1      SKO = MODC (X7, DM)                         PAR      6717
          4103  0303004116 +                      ZR     X3,CMR60    IF NO CONVERSION NECESSARY                  PAR      6718
                          7213777400              SX1    X3-1S8+1                                                PAR      6719
          4104  0301004117 +                      ZR     X1,CMR90    IF MODE CONVERSION ERROR                    PAR      6720
                          10155                   BX1    X5                                                      PAR      6722
          4105  0100000000 X                      CALL   LCT         LOAD BINARY OF CONSTANT                     PAR      6723
          4106  0420004112 +                      ZR     B2,CMR30    IF NOT CONSTANT                             PAR      6724
                          5110000002 +            SA1    SMOD                                                    PAR      6725
          4107  0100000000 X                      CALL   KCV         CONVERT CONSTANT VALUE                      PAR      6726
                                         .T       IFEQ   TEST,ON,1                                               PAR      6727
                                                  MI     B2,"BLOWUP" IF ILLEGAL CONVERSION (WE ALREADY CHECKED)  PAR      6728
          4110  0602004116 +                      LE     B2,CMR60    IF OLD VALUE IS CORRECT                     PAR      6729
                          0100000000 X            CALL   NBC         ENTER BINARY OF CONSTANT                    PAR      6730
          4111  10566                             BX5    X6                                                      PAR      6731
                     66700                        SB7    B0                                                      PAR      6732
                          0400004076 +            EQ     EXIT.                                                   PAR      6733
                                                                                                                 PAR      6734
                                        *         LEGAL NON-NULL CONVERSION, OPERAND NOT CONSTANT.               PAR      6735
                                        *         EMIT TURPLE.                                                   PAR      6736
                                        *                (X3) = SKO = SKELETON OFFSET.                           PAR      6737
                                                                                                                 PAR      6738
          4112  5120000334 +             CMR30    SA2    MCVOP                                                   PAR      6739
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   160
        SUBROUTINES.                                                  CMR 
  
                          20352                   LX3    SP.SKELP                                                FC50104   177
                               36623              IX6    X2+X3       (TH.SKEL) = BASE + OFFSET                   PAR      6741
          4113  6166000002                        SB6    B6+2        ADVANCE ESTACK FOR ADT                      PAR      6742
                          5160000003 +            SA6    SOPR                                                    PAR      6743
          4114  36323                             IX3    X2+X3       (X3) = (SOPR)                               PAR      6744
                     0100003740 +                 RJ     ADT         ADD CONVERSION TURPLE                       PAR      6745
          4115  6166777776                        SB6    B6-1        REMOVE RESULT FROM ESTACK                   PAR      6746
                                                                                                                 PAR      6747
          4116  56560                    CMR60    SA5    B6          RETURN (X5) = COERCED RESULT                PAR      6748
                     66700                        SB7    B0                                                      PAR      6749
                          0400004076 +            EQ     EXIT.                                                   PAR      6750
                                                                                                                 PAR      6751
          4117  5216000000 X             CMR90    SA1    X6+MOD.DPC                                              PAR      6752
                          5224000000 X            SA2    X4+MOD.DPC                                              PAR      6753
          4120  10711                             BX7    X1          SET (FILL.3) = DM       /* DESIRED          PAR      6754
                     22602                        LX6    X2          SET (FILL.2) = AM       /* ACTUAL           PAR      6755
                          5170000000 X            SA7    FILL.3                                                  PAR      6756
          4121  6170000000 X                      SB7    E.AT19      ** <AM> CANNOT BE CONVERTED TO <DM>         PAR      6757
                          55671                   SA6    A7-B1                                                   PAR      6758
          4122  0400004076 +                      EQ     EXIT.                                                   PAR      6759
  
  
  
  
                                        **        COR - CHECK IF INPUT OPERAND IS REDUCIBLE.                     PAR      6761
                                        *                                                                        PAR      6762
                                        *         IF THE INPUT OPERAND IS THE RESULT INTERMEDIATE OF THE VERY    PAR      6763
                                        *         LAST TURPLE EMITTED, THEN IT IS POTENTIALLY REDUCIBLE.         PAR      6764
                                        *                                                                        PAR      6765
                                        *         ENTRY  (X1) = INPUT OPERAND.                                   PAR      6766
                                        *                                                                        PAR      6767
                                        *         EXIT   (X0) = 0, OPERAND IS INPUT.                             PAR      6768
                                        *                (X7) = (T=PAR) - Z=TURP                                 PAR      6769
                                        *                (X1) = (LASTAD).                                        PAR      6770
                                        *                (A2) -> T=PAR.                                          PAR      6771
                                        *                                                                        PAR      6772
                                        *         USES   A1,A2  X0                                               PAR      6773
                                                                                                                 PAR      6774
                                                                                                                 PAR      6775
          4123  0400404123 +             COR      SUBR               ENTRY/EXIT...                               PAR      6776
          4124  10011                             BX0    X1                                                      PAR      6777
                     20061                        SBIT   X0,TP.INTRP                                             PAR      6778
                          0320004123 +            PL     X0,EXIT.    IF NOT INTERMEDIATE                         PAR      6779
          4125  5120000000 X                      SA2    T=PAR                                                   PAR      6780
                                                  HX1    TP.ORD                                                  PAR      6781
                          21154                   AX1    TP.ORDP                                                 PAR      6782
          4126  7272777774                        SX7    X2-Z=TURP                                               PAR      6783
                          37017                   IX0    X1-X7                                                   PAR      6784
          4127  5110000006 +                      SA1    LASTAD                                                  PAR      6785
                          0400004123 +            EQ     EXIT.                                                   PAR      6786
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   161
        SUBROUTINES.                                                  DBE 
  
                                        **        DBE -  DIMENSION BOUND ERROR OUTPUT                            PAR      6788
                                        *                                                                        PAR      6789
                                        *         ENTRY  (B7) = ERROR ADDRESS                                    PAR      6790
                                        *                                                                        PAR      6791
                                        *         USES   A1,A2,A6,A7  X1,X2,X6,X7  B7                            PAR      6792
                                        *                                                                        PAR      6793
                                        *         CALLS  PDM                                                     PAR      6794
                                                                                                                 PAR      6795
                                                                                                                 PAR      6796
          4130  0400404130 +             DBE      SUBR               ...ENTRY/EXIT...                            PAR      6797
          4131  5110000000 X                      SA1    CDBB                                                    PAR      6798
                          54211                   =A2    A1+1                                                    PAR      6799
                               22701              LX7    X1                                                      PAR      6800
          4132  22602                             LX6    X2                                                      PAR      6801
                     5170000000 X                 SA7    FILL.                                                   PAR      6802
                               54671              =A6    A7+1                                                    PAR      6803
          4133  0100000000 X                      FATAL  B7                                                      PAR      6804
          4134  0400004130 +                      EQ     EXIT.                                                   PAR      6805
  
  
  
  
                                        **        DDC - DIAGNOSE DOUBLE AND COMPLEX OPERANDS IN AN EXPRESSION.   FC50014    35
                                        *                                                                        FC50014    36
                                        *         CALLED TO ISSUE AN ANSI DIAGNOSTIC IF DOUBLE PRECISION         FC50014    37
                                        *         AND COMPLEX OPERANDS ARE MIXED IN AN EXPRESSION.               FC50014    38
                                        *                                                                        FC50014    39
                                        *         ENTRY  (X4) = 1OP                                              FC50014    40
                                        *                (X5) = 2OP                                              FC50014    41
                                        *                                                                        FC50014    42
                                        *         EXIT   ANSI DIAGNOSTIC ISSUED IF NECESSARY.                    FC50014    43
                                        *                                                                        FC50014    44
                                        *         CALLS  ANSI= .                                                 FC50014    45
                                        *                                                                        FC50014    46
                                        *         USES   X - 0,1,6  B - 7.                                       FC50014    47
                                                                                                                 FC50014    48
                                                                                                                 FC50014    49
          4135  0400404135 +             DDC      SUBR               ENTRY/EXIT...                               FC50014    50
          4136  43071                             MX0    -TP.MODEL                                               FC50014    51
                     12645                        BX6    X4+X5                                                   FC50014    52
                          11145                   BX1    X4*X5                                                   FC50014    53
                                                  LX6    -TP.MODEP                                               FC50014    54
                                                  LX1    -TP.MODEP                                               FC50014    55
                               15660              BX6    -X0*X6                                                  FC50014    56
          4137  15110                             BX1    -X0*X1                                                  FC50014    57
                                   0              ERRNZ  M.DBL-4                                                 FC50014    58
                                   0              ERRNZ  M.CPLX-M.DBL-1                                          FC50014    59
                     6276777772                   SB7    X6-M.CPLX                                               FC50014    60
          4140  0570004135 +                      NZ     B7,EXIT.    IF NEITHER 1OP NOR 2OP IS COMPLEX           FC50014    61
                          6271777773              SB7    X1-M.DBL                                                FC50014    62
          4141  0570004135 +                      NZ     B7,EXIT.    IF NEITHER 1OP NOR 2OP IS DOUBLE            FC50014    63
                          6170000000 X            ANSI   E.ANS4      ** MIXTURE OF DOUBLE AND COMPLEX OPNDS      FC50014    64
          4143  0400004135 +                      EQ     EXIT.                                                   FC50014    65
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   162
        SUBROUTINES.                                                  DOA 
  
                                        **        DOA - DETERMINE OPERAND ADDRESSABILITY.                        PAR      6807
                                        *                                                                        PAR      6808
                                        *         THERE ARE CONTEXTS IN WHICH AN OPERAND IS REQUIRED TO BE       PAR      6809
                                        *         CAPABLE OF BEING A STORE TARGET -- I.E., IT MUST POSESS AN     PAR      6810
                                        *         ADDRESS.  FROM A FORTRAN LANGUAGE STANDPOINT, THIS MEANS THAT  PAR      6811
                                        *         IT CANNOT BE AN EXPRESSION NOR A CONSTANT.  ALSO, IN AN ACTUAL PAR      6812
                                        *         ARGUMENT LIST, WHILE OPERANDS DO NOT HAVE TO BE ADDRESSABLE,   PAR      6813
                                        *         WE WANT TO KNOW WHEN THEY ARE, SO THAT POTENTIAL DEFINITION    PAR      6814
                                        *         CAN BE NOTED.                                                  PAR      6815
                                        *                                                                        PAR      6816
                                        *         SINCE ARRAY ELEMENT AND SUBSTRING REFERENCES ARE REPRESENTED   PAR      6817
                                        *         BY COMBINATIONS OF TURPLES, DETECTING ADDRESSABLE OPERANDS     PAR      6818
                                        *         IS COMPLEX ENOUGH TO WARRANT THIS SUBROUTINE.                  PAR      6819
                                        *                                                                        PAR      6820
                                        *         ENTRY  (X5) = OPERAND.                                         PAR      6821
                                        *                                                                        PAR      6822
                                        *         EXIT   (X6) .NZ. = OPERAND IS NOT ADDRESSABLE.                 PAR      6823
                                        *                (FILL.3) = ERRLIT FOR WHY NOT --                        PAR      6824
                                        *                         = 'CONSTANT' OR 'EXPRESSION'.                  PAR      6825
                                        *                (X5) = BLOWUP OPERAND, WITH MODE OF ORIGINAL.           PAR      6826
                                        *                                                                        PAR      6827
                                        *         ELSE   (X6) .ZR. = OPERAND IS IN SYMTAB, AND IS NOT A LABEL.   PAR      6828
                                        *                (X0) = MODE.                                            PAR      6829
                                        *                (X5) = PRESERVED.                                       PAR      6830
                                        *                (A2,X2) = SYMTAB (WB) FOR REFERENCED SYMBOL.            PAR      6831
                                        *                (X1) = SYMTAB (WB), WITH (WB.VAR) EXPOSED.              PAR      6832
                                        *                IF (WB.VAR) IS SET, THEN OPERAND IS IN FACT A VALID     PAR      6833
                                        *                            STORE-TARGET.                               PAR      6834
                                        *                                                                        PAR      6835
                                        *         USES   A1-3,6-7.  X0-3,5-7.  B2,7.                             PAR      6836
                                        *         CALLS  LCH.                                                    PAR      6837
                                                                                                                 PAR      6838
                                                                                                                 PAR      6839
          4144  0400404144 +             DOA      SUBR   =           ENTRY/EXIT...                               PAR      6840
          4145  10155                             BX1    X5                                                      PAR      6841
                     0100000000 X                 CALL   LCH         LOAD CONSTANT TEST                          PAR      6842
          4146  10255                             BX2    X5                                                      PAR      6843
                     6170000000 X                 SB7    ERL=CON                                                 PAR      6844
          4147  0520004164 +                      NZ     B2,DOA8     IF CONSTANT                                 PAR      6845
                          6170000000 X            SB7    ERL=XPR                                                 PAR      6846
          4150  20270                             HX2    TP.EXPR                                                 PAR      6847
                     0332004164 +                 MI     X2,DOA8     IF EXPRESSION                               PAR      6848
                                                                                                                 PAR      6849
                                        *         OPERAND IS NOT PRO FORMA EVIL.  NOW FIGURE OUT WHAT IT IS,     PAR      6850
                                        *         AND HOW TO GET TO IT'S SYMTAB ENTRY.                           PAR      6851
                                                                                                                 PAR      6852
                               22105              LX1    X5                                                      PAR      6853
          4151  20265                             LX2    TP.EXPRP-TP.INTRP                                       PAR      6854
                     0322004161 +                 PL     X2,DOA6     IF NOT INTERMEDIATE                         PAR      6855
                                                  HX1    TP.ORD                                                  PAR      6856
                               21154              AX1    -TP.ORDL                                                PAR      6857
                                         .T       IFEQ   TEST,ON                                                 PAR      6858
                                                  MI     X1,"BLOWUP" IF NEGATIVE ORDINAL                         PAR      6859
                                                  SA3    T=PAR                                                   PAR      6860
                                                  IX7    X1-X3                                                   PAR      6861
                                                  PL     X7,"BLOWUP" IF ORDINAL .GE. TABLE LENGTH                PAR      6862
                                         .T       ENDIF                                                          PAR      6863
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   163
        SUBROUTINES.                                                  DOA 
  
          4152  5130000000 X                      SA3    T.PAR                                                   PAR      6864
                          36713                   IX7    X1+X3                                                   PAR      6865
                               53370              =A3    X7+OR.OPR                                               PAR      6866
          4153  54131                             =A1    A3-OR.OPR+OR.1OP                                        PAR      6867
                     20271                        LX2    TP.INTRP-TP.ARRP                                        PAR      6868
                          0332004161 +            MI     X2,DOA6     IF ARRAY ELEMENT                            PAR      6869
                                                  HX3    TH.SKEL                                                 PAR      6870
          4154  21356                             AX3    -TH.SKELL                                               PAR      6871
                     7170000000 X                 SX7    V=SUBST                                                 PAR      6872
                               37637              IX6    X3-X7                                                   PAR      6873
          4155  0316004164 +                      NZ     X6,DOA8     IF NOT SUBSTRING INTERMEDIATE               PAR      6874
                          10211                   BX2    X1                                                      PAR      6875
                               20261              HX2    TP.INTR                                                 PAR      6876
          4156  0322004161 +                      PL     X2,DOA6     IF SUBSTRING (1OP) NOT FURTHER INTERMEDIATE PAR      6877
                                                                                                                 PAR      6878
                                        *         (X5) IS A INTERMEDIATE POINTING TO A SUBSTRING TURPLE.         PAR      6879
                                        *         (1OP) OF THE SUBSTRING IS AN INTERMEDIATE, SO WE MUST          PAR      6880
                                        *         PENETRATE ONE LEVEL FURTHER INTO THE PARSED FILE.  IT          PAR      6881
                                        *         MUST BE AN ARRAY ELEMENT BEING SUBSTRINGED.                    PAR      6882
                                                                                                                 PAR      6883
                                                  HX1    TP.ORD                                                  PAR      6884
                          21154                   AX1    -TP.ORDL                                                PAR      6885
                                         .T       IFEQ   TEST,ON                                                 PAR      6886
                                                  MI     X1,"BLOWUP" IF NEGATIVE ORDINAL                         PAR      6887
                                                  SA3    =XT=PAR                                                 PAR      6888
                                                  IX7    X1-X3                                                   PAR      6889
                                                  PL     X7,"BLOWUP" IF ORDINAL .GE. TABLE LENGTH                PAR      6890
                                         .T       ENDIF                                                          PAR      6891
          4157  5130000000 X                      SA3    T.PAR                                                   PAR      6892
                          36713                   IX7    X1+X3                                                   PAR      6893
                               53171              =A1    X7+OR.1OP                                               PAR      6894
          4160  20271                             LX2    TP.INTRP-TP.ARRP                                        PAR      6895
                     0322004164 +                 PL     X2,DOA8     IF NOT ARRAY ELEMENT INTERMEDIATE           PAR      6896
                                                                                                                 PAR      6897
                                        *         RETRIEVE SYMBOL TABLE INFO.  REJECT STATEMENT LABELS.          PAR      6898
                                        *                (X1)[TP.ORD] = ORDINAL OF SYMBOL.                       PAR      6899
                                                                                                                 PAR      6900
                                         DOA6     HX1    TP.ORD                                                  PAR      6901
                                         .T       IFEQ   TEST,ON                                                 PAR      6902
                                                  MI     X1,"BLOWUP" IF ILL ORDINAL                              PAR      6903
                                                  BX3    X1                                                      PAR      6904
                                                  LX3    TP.ORDL+TP.ORDP                                         PAR      6905
                                                  HX3    TP.ORD                                                  PAR      6906
                                                  AX3    -TP.ORDL    (X3) = SYMORD OF OPERAND                    PAR      6907
                                                  SA2    T=SYM                                                   PAR      6908
                                                  LX7    X3,B1                                                   PAR      6909
                                                  IX7    X3+X7                                                   PAR      6910
                                                  ERRNZ  3-Z=SYM                                                 PAR      6911
                                                  IX7    X7-X2                                                   PAR      6912
                                                  PL     X7,"BLOWUP" IF ORDINAL .GE. SYMTAB LENGTH               PAR      6913
                                         .T       ENDIF                                                          PAR      6914
                                                                                                                 PAR      6915
          4161  21154                             AX1    -TP.ORDL                                                PAR      6916
                     5120000000 X                 SA2    T.SYM                                                   PAR      6917
                               22711              LX7    X1,B1                                                   PAR      6918
          4162  63721                             =B7    X2+WB.W                                                 PAR      6919
                     36371                        IX3    X7+X1       (X3) = SYMTAB INDEX                         PAR      6920
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   164
        SUBROUTINES.                                                  DOA 
  
                                   0              ERRNZ  3-Z=SYM                                                 PAR      6921
                          76600                   SX6    B0                                                      PAR      6922
                               53237              SA2    X3+B7       FETCH (A2,X2) = SYMTAB (WB)                 PAR      6923
          4163  10122                             BX1    X2                                                      PAR      6924
                                         .T       IFEQ   TEST,ON                                                 PAR      6925
                                                  HX1    WB.LAB                                                  PAR      6926
                                                  MI     X1,"BLOWUP" IF STATEMENT LABEL                          PAR      6927
                                                  LX1    WB.LABP+1                                               PAR      6928
                                         .T       ENDIF                                                          PAR      6929
                     20166                        HX1    WB.VAR                                                  PAR      6930
                          0400004144 +            EQ     EXIT.                                                   PAR      6931
                                                                                                                 PAR      6932
                                        *         OPERAND IS EXPRESSION OR CONSTANT.  SET UP ERROR LITERAL,      PAR      6933
                                        *         AND RETURN PARAMETERS.                                         PAR      6934
                                                                                                                 PAR      6935
          4164  56170                    DOA8     SA1    B7                                                      PAR      6936
                     10611                        BX6    X1          (FILL.3) = WORD FOR DIAGNOSTIC              PAR      6937
                          5120000000 X            SA2    S=BU                                                    PAR      6938
          4165  10500                             BX5    X0                                                      PAR      6939
                     20254                        LX2    TP.ORDP                                                 PAR      6940
                                                  LX5    TP.MODEP                                                PAR      6941
                          12525                   BX5    X2+X5       INVENT BLOWUP OPERAND                       PAR      6942
          4166  5160000000 X                      SA6    FILL.3                                                  PAR      6943
                          0400004144 +            EQ     EXIT.                                                   PAR      6944
  
  
  
  
                                        **        ECC - EMIT CHARACTER CONSTANT.                                 PAR      6946
                                        *                                                                        PAR      6947
                                        *         SINCE AN IL OPERAND DOES NOT HAVE ENOUGH FIELDS TO             PAR      6948
                                        *         COMPLETELY REPRESENT A CHARACTER CONSTANT (SYMORD, BIAS,       PAR      6949
                                        *         AND LENGTH), SUCH OPERANDS MUST BE EMITTED AS SUBSTRING        PAR      6950
                                        *         REFERENCES.  SEE ECS FOR DETAILS.                              PAR      6951
                                        *                                                                        PAR      6952
                                        *         NOTE - CALLERS OUTSIDE PAR SHOULD BE PARTICULARLY CAREFUL      PAR      6953
                                        *                OF ESTACK AND (B6) ON ENTRY AND RETURN.                 PAR      6954
                                        *                                                                        PAR      6955
                                        *         ENTRY  (X1) = CHARACTER LENGTH                                 PAR      6956
                                        *                (X2) = CHARACTER INDEX                                  PAR      6957
                                        *                (B6) -> TOP+1 OF ESTACK.                                PAR      6958
                                        *                                                                        PAR      6959
                                        *         EXIT   RESULT ON TOP OF ESTACK.                                PAR      6960
                                        *                ((B6)-1) -> RESULT.           /* ON TOP OF ESTACK       PAR      6961
                                        *                ESTACK TOP HAS BEEN ADVANCED BY 1.                      PAR      6962
                                        *                                                                        PAR      6963
                                        *         CALLS  ECS.                                                    PAR      6964
                                                                                                                 PAR      6965
                                                                                                                 PAR      6966
          4167  0400404167 +             ECC      SUBR   =           ENTRY/EXIT...                               PAR      6967
          4170  5130000000 X                      SA3    S=CON                                                   PAR      6968
                          0100004172 +            RJ     ECS         EMIT CHARACTER SUBSTRING                    PAR      6969
          4171  0400004167 +                      EQ     EXIT.                                                   PAR      6970
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   165
        SUBROUTINES.                                                  ECS 
  
                                        **        ECS - EMIT CHARACTER SUBSTRING.                                PAR      6972
                                        *                                                                        PAR      6973
                                        *         EMITS SUBSTRING REFERENCE TO A COMPILER INVENTED SYMBOL.       PAR      6974
                                        *                                                                        PAR      6975
                                        *         ENTRY  (X1) = LENGTH, IN CHARACTERS.                           PAR      6976
                                        *                (X2) = INDEX, IN WORDS INTO SYMBOL (SYO)                PAR      6977
                                        *                (X3) = SYO = ORDINAL OF SYMBOL.                         PAR      6978
                                        *                (B6) -> TOP+1 OF ESTACK.                                PAR      6979
                                        *         THE DETAILS ARE --                                             PAR      6980
                                        *                FIRST  = 10 * INDEX + 1                                 PAR      6981
                                        *                LAST   = FIRST + LENGTH - 1                             PAR      6982
                                        *                PUSH   SYO                                              PAR      6983
                                        *                PUSH   FIRST                                            PAR      6984
                                        *                PUSH   LAST                                             PAR      6985
                                        *                T1 = ADT (V=COLON,  FIRST, LAST)                        PAR      6986
                                        *                T2 = ADT (V=SUBST,  SYO,   T1)                          PAR      6987
                                        *                ESTACK[TOP] = T2                     /* PER ADT         PAR      6988
                                        *                                                                        PAR      6989
                                        *         EXIT   RESULT ON TOP OF ESTACK.                                PAR      6990
                                        *                ((B6)-1) -> RESULT.           /* ON TOP OF ESTACK       PAR      6991
                                        *                ESTACK TOP HAS BEEN ADVANCED BY 1.                      PAR      6992
                                        *                (SMOD) = M.CHAR                                         PAR      6993
                                        *                                                                        PAR      6994
                                        *         NOTE - CALLERS OUTSIDE PAR SHOULD BE PARTICULARLY CAREFUL      PAR      6995
                                        *                OF ESTACK AND (B6) ON ENTRY AND RETURN.                 PAR      6996
                                        *                                                                        PAR      6997
                                        *         CALLS  ADT.                                                    PAR      6998
                                                                                                                 PAR      6999
                                                                                                                 PAR      7000
          4172  0400404172 +             ECS      SUBR   0           ENTRY/EXIT...                               PAR      7001
          4173  7160000006                        =X6    M.CHAR                                                  PAR      7002
                          76510                   SX5    B1                                                      PAR      7003
                               20354              LX3    TP.ORDP                                                 PAR      7004
          4174  5160000002 +                      SA6    SMOD                                                    PAR      7005
                          36422                   WC     X4,X2       FCA = 10 * INDEX                            PAR      7006
                                                  LX6    TP.MODEP                                                PAR      7007
                     12736                        BX7    X3+X6       FORM (3OP) = [TP]SYO                        PAR      7008
                          36545                   IX5    X4+X5       FIRST = FCA + 1                             PAR      7009
          4176  7100010002                        CLAS=  X0,TP,(SHRT),INT                                        PAR      7010
                          5130000331 +            SA3    COLOP                                                   PAR      7011
          4177  36641                             IX6    X4+X1       LAST = FCA + LENGTH                         PAR      7012
                     20524                        LX5    TP.BIASP                                                PAR      7013
                          56760                   SA7    B6          PUSH (SYO)                                  PAR      7014
                               12405              BX4    X0+X5       FORM (1OP) = FIRST                          PAR      7015
          4200  20624                             LX6    TP.BIASP                                                PAR      7016
                     10733                        BX7    X3          (SOPR) = (COLOP)                            PAR      7017
                          6166000003              SB6    B6+3        ADVANCE FOR PUSH (SYO, FIRST, LAST)         PAR      7018
          4201  5170000003 +                      SA7    SOPR                                                    PAR      7019
                          12560                   BX5    X6+X0       FORM (2OP) = LAST                           PAR      7020
          4202  0100003740 +                      RJ     ADT         EMIT COLON TURPLE                           PAR      7021
                                                                                                                 PAR      7022
          4203  5130000332 +                      SA3    SUBST                                                   PAR      7023
                          57561                   SA5    B6-B1       (4OP) = RESULT OF COLON TURPLE              PAR      7024
                               10733              BX7    X3                                                      PAR      7025
          4204  5170000003 +                      SA7    SOPR                                                    PAR      7026
                          55451                   SA4    A5-B1       (3OP) = SYMORD (SYO)                        PAR      7027
          4205  0100003740 +                      RJ     ADT         FINISH SUBSTRING TURPLE                     PAR      7028
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   166
        SUBROUTINES.                                                  ECS 
  
          4206  0400004172 +                      EQ     EXIT.                                                   PAR      7029
  
  
  
  
                                        **        EMT - EMIT TURPLE TO TABLE.                                    PAR      7031
                                        *                                                                        PAR      7032
                                        *         THIS ROUTINE IS TO BE USED TO OUTPUT ALL TURPLES.              PAR      7033
                                        *         TAKES CARE OF SETTING LINE NUMBER, ETC.                        PAR      7034
                                        *                                                                        PAR      7035
                                        *         ENTRY  (B3) = OPERATOR SELECTOR.  IS EITHER --                 PAR      7036
                                        *                     =  1/ 1,  1/ T,  16/ ADDRESS OF SETOP WORD,  OR -- PAR      7037
                                        *                     =  1/ 0,  1/ T,  2/ 0,  2/DD,  12/ SKELETON.       PAR      7038
                                        *                (T) = 0 :  EMIT TO (T.PAR),                             PAR      7039
                                        *                    = 1 :  EMIT TO TABLE IN (A1).                       PAR      7040
                                        *                (DD) = DUCABILITY,  0 = NONE,                           PAR      7041
                                        *                                    1 = FIRST,                          PAR      7042
                                        *                                    2 = SECOND,                         PAR      7043
                                        *                                    3 = BOTH.                           PAR      7044
                                        *                (A1,X1) = TABLE *TURPLE* IS TO BE ADDED TO, IF (T) = 1. PAR      7045
                                        *                (X4) = (1OP).                                           PAR      7046
                                        *                (X5) = (2OP).                                           PAR      7047
                                        *                                                                        PAR      7048
                                        *         EXIT   (A1,X1) = TABLE *TURPLE* WAS ADDED TO.                  PAR      7049
                                        *                                                                        PAR      7050
                                        *         USES   A2-3,A6-7   B2-3,B7   X0-3,X6-7.                        PAR      7051
                                        *         CALLS  ALLOC, SN.EMT .                                         PAR      7052
                                                                                                                 PAR      7053
                                                                                                                 PAR      7054
          4207  0400404207 +             EMT      SUBR   =           ENTRY/EXIT...                               PAR      7055
          4210  66233                             SB2    B3+B3                                                   PAR      7056
                     0720004212 +                 MI     B2,EMT2     IF TABLE PRESET IN (A1)                     PAR      7057
          4211  5110000000 X                      SA1    T.PAR                                                   PAR      7058
          4212  7100000003               EMT2     ALLOC  A1,Z=TURP   RESERVE ROOM FOR TURPLE                     PAR      7059
          4213  76230                             SX2    B3                                                      PAR      7060
                     43054                        MX0    -16                                                     PAR      7061
                          22705                   LX7    X5                                                      PAR      7062
                               15320              BX3    -X0*X2      ISOLATE (POSSIBLE) SETOP ADDRESS            PAR      7063
          4214  57771                             =A7    B7-Z=TURP+OR.2OP                                        PAR      7064
                     22604                        LX6    X4                                                      PAR      7065
                          55671                   =A6    A7-OR.2OP+OR.1OP                                        PAR      7066
          4215  0730004220 +                      MI     B3,EMT4     IF SETOP ADDRESS GIVEN                      PAR      7067
                          43060                   MX0    -12                                                     PAR      7068
                               15220              BX2    -X0*X2      ISOLATE SKELETON ORDINAL                    PAR      7069
          4216  21314                             AX3    12                                                      PAR      7070
                     5233000340 +                 SA3    X3+OPDUM                                                PAR      7071
                               20252              LX2    SP.SKELP                                                FC50104   178
          4217  12332                             BX3    X3+X2                                                   PAR      7073
                     0400004221 +                 EQ     EMT5                                                    PAR      7074
                                                                                                                 PAR      7075
          4220  5233000000               EMT4     SA3    X3+         FETCH OPERATOR WORD                         PAR      7076
          4221  5120004573 +             EMT5     CLAS=  X2,SP,(SKEL,1ATR,MODC)                                  FC50104   179
                          15632                   BX6    -X2*X3      CLEAR PASS 1 FIELDS FROM OPERATOR           PAR      7078
                               43252              MX2    -SP.SKELL                                               FC50104   180
          4222  20322                             LX3    -SP.SKELP                                               FC50104   181
                     15232                        BX2    -X2*X3      EXTRACT SKELETON INDEX                      FC50104   182
                          20256                   LX2    TH.SKELP                                                FC50104   183
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   167
        SUBROUTINES.                                                  EMT 
  
                               12626              BX6    X2+X6       REPOSITION SKELETON INDEX                   FC50104   184
          4223  55661                             =A6    A6-OR.1OP+OR.OPR                                        PAR      7079
                     22306                        LX3    X6          TH. FORMAT OF HEADER                        FC50104   185
                                                                                                                 PAR      7080
                                         .T       IFEQ   TEST,ON     DUMP EMITTED TURPLE                         PAR      7081
                                                  SA2    CO.SNAP                                                 PAR      7082
                                                  HX6    TH.SKEL                                                 PAR      7083
                                                  SX7    =XZ.SKCR                                                PAR      7084
                                                  AX6    -TH.SKELL                                               PAR      7085
                                                  IX7    X6-X7                                                   PAR      7086
                                                  LX2    1RQ                                                     PAR      7087
                                                  BX7    -X7+X6      .MI. IFF NOT (0 .LE. SKEL .LT. MAX)         PAR      7088
                                                  PL     X7,EMT8     IF SKEL OKAY                                PAR      7089
                                                  FATAL  E.ZEMT      ** SKEL ILL                                 PAR      7090
                                         EMT8     BX2    X2+X7                                                   PAR      7091
                                                  PL     X2,EMT9     IF NOT ((SNAP=Q) OR (SKEL ILL))             PAR      7092
                                                  SX0    EMT                                                     PAR      7093
                                                  CALL   SN.EMT                                                  PAR      7094
                                         EMT9     MI     X7,"BLOWUP" IF SKEL ILL                                 PAR      7095
                                         .T       ENDIF                                                          PAR      7096
                          0400004207 +            EQ     EXIT.                                                   PAR      7097
  
  
  
  
                                        **        FAT -  FLUSH ARGUMENT TURPLES.                                 PAR      7099
                                        *                                                                        PAR      7100
                                        *         ENTRY  (X4) = LENGTH OF TURPLES TO BE KEPT.                    PAR      7101
                                        *                (T.IOARG) = FLUSHED TURPLES AT THE END.                 PAR      7102
                                        *                                                                        PAR      7103
                                        *                (T=IOARG) = DECREMENTED TO ACCOUNT FOR FLUSHED TURPLES. PAR      7104
                                        *                        = SAME AS (X4) ON ENTRY.                        PAR      7105
                                        *                *TURPLES* MOVED TO PARSED TABLE.                        PAR      7106
                                        *                                                                        PAR      7107
                                        *         USES   A1-4,A6-7   X0-4,X6-7   B2-3,B7.                        PAR      7108
                                        *                                                                        PAR      7109
                                        *         CALLS  ALC, MVE=.                                              PAR      7110
                                                                                                                 PAR      7111
                                                                                                                 PAR      7112
          4224  0400404224 +             FAT      SUBR   =           ENTRY/EXIT...                               PAR      7113
          4225  5120000000 X                      SA2    T=IOARG                                                 PAR      7114
                          37024                   IX0    X2-X4       (X0) = WORD COUNT OF TURPLES TO BE MOVED    PAR      7115
          4226  0300004224 +                      ZR     X0,EXIT.    IF NO TURPLES TO MOVE                       PAR      7116
                                         .T       IFEQ   TEST,ON,1                                               PAR      7117
                                                  MI     X0,"BLOWUP"       IF FLUSH REQUEST EXCEEDS TABLE LENGTH PAR      7118
                          5110000000 X            ALLOC  T.PAR,X0                                                PAR      7119
          4230  5120000000 X                      SA2    T.IOARG                                                 PAR      7120
                          5110000000 X            SA1    T=IOARG                                                 PAR      7121
          4231  10644                             BX6    X4                                                      PAR      7122
                     36242                        IX2    X4+X2       (X2) = SOURCE ADDRESS                       PAR      7123
                          37114                   IX1    X1-X4       (X1) = WORD COUNT OF TURPLES TO BE MOVED    PAR      7124
                               54610              SHRINK A1,X6       REDUCE ARGUMENT TABLE SIZE                  PAR      7125
          4232  76070                             SX0    B7                                                      PAR      7126
                     37301                        IX3    X0-X1       (X3) = DESTINATION ADDRESS                  PAR      7127
                          0100000000 X            MOVE   X1,X2,X3    MOVE TURPLES TO PARSED TABLE                PAR      7128
          4233  0400004224 +                      EQ     EXIT.                                                   PAR      7129
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   168
        SUBROUTINES.                                                  FSA 
  
                                        **        FSA - FIND SYMBOL ATTRIBUTES.                                  PAR      7131
                                        *                                                                        PAR      7132
                                        *         ENTRY  (X1) = OPERAND (TP. FORMAT).                            PAR      7133
                                        *                                                                        PAR      7134
                                        *         EXIT   (B7) .LT. 0 IF OPERAND NOT IN SYMTAB.                   PAR      7135
                                        *                "BLOWUP" IF STATEMENT LABEL.                            PAR      7136
                                        *                (X0) = ORDINAL OF SYMBOL.                               PAR      7137
                                        *                (X1) = SYMTAB (WB) WITH *VAR* BIT EXPOSED.              PAR      7138
                                        *                (A2, X2) = SYMTAB ATTRIBUTE WORD (WB).                  PAR      7139
                                        *                (B7) = SYMTAB (WB) INDEX.                               PAR      7140
                                        *                                                                        PAR      7141
                                        *         USES   A1-2   X0-2.                                            PAR      7142
                                                                                                                 PAR      7143
                                                                                                                 PAR      7144
          4234  0400404234 +             FSA      SUBR               ENTRY/EXIT...                               PAR      7145
          4235  7120052000                        CLAS=  X2,TP,(INTR,SHRT,GL)                                    PAR      7146
                          11021                   BX0    X2*X1                                                   PAR      7147
                               67701              SB7    -B1                                                     PAR      7148
          4236  0310004234 +                      NZ     X0,EXIT.    IF OPERAND NOT A SYMBOL                     PAR      7149
                          43254                   MX2    -TP.ORDL                                                PAR      7150
                               20120              LX1    -TP.ORDP                                                PAR      7151
          4237  15012                             BX0    -X2*X1      EXTRACT (X0) = SYMTAB ORDINAL               PAR      7152
                     22210                        LX2    X0,B1                                                   PAR      7153
                          36120                   IX1    X2+X0       (X1) = INDEX = SYMORD * Z=SYM               PAR      7154
                                   0              ERRNZ  3-Z=SYM                                                 PAR      7155
                               63711              =B7    X1+WB.W     RETURN (B7) = SYMTAB (WB) INDEX             PAR      7156
                                         .T       IFEQ   TEST,ON                                                 PAR      7157
                                                  SA2    T=SYM                                                   PAR      7158
                                                  IX2    X1-X2                                                   PAR      7159
                                                  PL     X2,"BLOWUP"       IF (INDEX) .GE. (SYMTAB LENGTH)       PAR      7160
                                         .T       ENDIF                                                          PAR      7161
          4240  5110000000 X                      SA1    T.SYM                                                   PAR      7162
                          53217                   SA2    X1+B7       FETCH SYMTAB (WB)                           PAR      7163
                               10122              BX1    X2                                                      PAR      7164
                                         .T       IFEQ   TEST,ON                                                 PAR      7165
                                                  HX1    WB.LAB                                                  PAR      7166
                                                  MI     X1,"BLOWUP"       IF STATEMENT LABEL                    PAR      7167
                                                  LX1    WB.LABP-WB.VARP                                         PAR      7168
                                         .T       ELSE                                                           PAR      7169
          4241  20166                             HX1    WB.VAR                                                  PAR      7170
                                         .T       ENDIF                                                          PAR      7171
                     0400004234 +                 EQ     EXIT.                                                   PAR      7172
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   169
        SUBROUTINES.                                                  GOL 
  
                                        **        GOL - GET CHARACTER OPERAND LENGTH.                            PAR      7174
                                        *                                                                        PAR      7175
                                        *         ENTRY  (X1) = OPD, CHARACTER OPERAND                           PAR      7176
                                        *                                                                        PAR      7177
                                        *         EXIT   (X6) = MI IFF OPERAND PASSED LENGTH, ELSE PL            PAR      7178
                                        *                (X7) = MI IFF OPERAND LENGTH NOT EXACTLY KNOWN,         PAR      7179
                                        *                       ELSE = LENGTH IN CHARACTERS                      PAR      7180
                                        *                                                                        PAR      7181
                                        *         PRESERVES A4,X4                                                PAR      7182
                                                                                                                 PAR      7183
          4242  0400404242 +             GOL      SUBR   =           ENTRY/EXIT...                               FC5A171A  344
                                         .T       IFEQ   TEST,ON                                                 PAR      7185
                                                  BX5    X1                                                      PAR      7186
                                                  HX5    TP.SHRT                                                 PAR      7187
                                                  MI     X5,"BLOWUP" IF SHORT CON                                PAR      7188
                                                  LX5    TP.SHRTP+1-TP.MODEP                                     PAR      7189
                                                  MX0    -TP.MODEL                                               PAR      7190
                                                  BX0    -X0*X5                                                  PAR      7191
                                                  SB7    X0-M.CHAR                                               PAR      7192
                                                  NZ     B7,"BLOWUP" IF NOT CHARACTER OPERAND                    PAR      7193
                                         .T       ENDIF                                                          PAR      7194
                                                                                                                 PAR      7195
          4243  7160000000                        SX6    0                                                       PAR      7196
                          5160004270 +            SA6    GOLA        FLAG NOT SUBSTRING                          PAR      7197
                                                                                                                 PAR      7198
          4244  10511                    GOL10    BX5    X1                                                      PAR      7199
                     20561                        HX5    TP.INTR                                                 PAR      7200
                                                                                                                 PAR      7201
          4245  43054                    GOL20    MX0    -TP.ORDL                                                PAR      7202
                     20120                        LX1    -TP.ORDP                                                PAR      7203
                          15110                   BX1    -X0*X1                                                  PAR      7204
          4246  0335004251 +                      MI     X5,GOL30    IF OPERAND IS INTERMEDIATE                  PAR      7205
                          0100000000 X            CALL   GCL         GET CHARACTER LENGTH                        PAR      7206
          4247  12612                             BX6    X1+X2       CHAR LENGTH OR -0                           PAR      7207
                     5110004270 +                 SA1    GOLA                                                    PAR      7208
                               12716              BX7    X1+X6       IF SUBSTRING, NOT EXACT LENGTH              PAR      7209
          4250  0400004242 +                      EQ     EXIT.                                                   PAR      7210
                                                                                                                 PAR      7211
                                        *         OPERAND IS INTERMEDIATE.  MAY BE SUBSTRING, ARRAY, FUNCTION    PAR      7212
                                        *         OR CONCATANATION.                                              PAR      7213
                                                                                                                 PAR      7214
          4251  5120000000 X             GOL30    SA2    T.PAR                                                   PAR      7215
                          63220                   =B2    X2+OR.OPR                                               PAR      7216
                               53312              SA3    B2+X1       OPERATOR WORD                               PAR      7217
          4252  14633                             BX6    -X3                                                     PAR      7219
                                                  HX6    TH.SKEL                                                 FC50104   186
                     21656                        AX6    -TH.SKELL   EXTRACT (SIGN EXTEND) NEGATIVE SKEL ORDINAL FC50104   187
                          63760                   SB7    X6                                                      PAR      7220
                               54131              =A1    A3+OR.1OP-OR.OPR                                        PAR      7222
          4253  43500                             MX5    0                                                       PAR      7223
                     7127000000 X                 SX2    B7+V=CAT                                                PAR      7224
          4254  7107000000 X                      SX0    B7+V=SUBST                                              PAR      7225
                          0302004266 +            ZR     X2,GOL50    IF CONCAT                                   PAR      7226
          4255  0310004245 +                      NZ     X0,GOL20    IF NOT SUBST. (MUST BE ARRAY OR FUNCTION)   PAR      7227
                                                                                                                 PAR      7228
                                        *         PROCESS SUBSTRING.                                             PAR      7229
                                        *         IF SUBSTRING IS OF CONSTANT LENGTH, FINE. OTHERWISE            PAR      7230
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   170
        SUBROUTINES.                                                  GOL 
  
                                        *         WE STILL NEED TO KNOW IF BASE VARIABLE (OR ARRAY) IS FIXED     PAR      7231
                                        *         OR PASSED-LENGTH.                                              PAR      7232
                                                                                                                 PAR      7233
                          10611                   BX6    X1                                                      PAR      7234
          4256  5160004271 +                      SA6    GOLB        SAVE SUBSTRING 1OP                          PAR      7235
                          54311                   =A3    A1+OR.2OP-OR.1OP                                        PAR      7236
                               43054              MX0    -TP.ORDL                                                PAR      7237
          4257  66221                             =B2    B2+OR.1OP-OR.OPR                                        PAR      7238
                     20320                        LX3    -TP.ORDP                                                PAR      7239
                          15630                   BX6    -X0*X3                                                  PAR      7240
                               53162              SA1    B2+X6       1OP OF COLON                                PAR      7241
          4260  54311                             =A3    A1+OR.2OP-OR.1OP  2OP OF COLON                          PAR      7242
                     0100000000 X                 CALL   LCT         EVALUATE 1OP                                PAR      7243
          4261  0521004264 +                      NE     B2,B1,GOL40 IF NOT CONSTANT                             PAR      7244
                          10133                   BX1    X3                                                      PAR      7245
          4262  7236777776                        SX3    X6-1        FIRST - 1                                   PAR      7246
                          0100000000 X            CALL   LCT         EVALUATE 2OP                                PAR      7247
          4263  37763                             IX7    X6-X3       SUBSTRING LENGTH                            PAR      7248
                     10677                        BX6    X7                                                      PAR      7249
                          0421004242 +            EQ     B2,B1,EXIT. IF CONSTANT                                 PAR      7250
                                                                                                                 PAR      7251
          4264  5110004271 +             GOL40    SA1    GOLB        RESET OPERAND TO SUBSTRING SYMBOL           PAR      7252
                          43674                   MX6    60                                                      PAR      7253
          4265  5160004270 +                      SA6    GOLA        FLAG SUBSTRING                              PAR      7254
                          0400004244 +            EQ     GOL10       REEVALUATE                                  PAR      7255
                                                                                                                 PAR      7256
                                        *         CONCATANATION.  FOR NOW, WE DETERMINE FIXED/PASSED LENGTH      PAR      7257
                                        *         ONLY.  EVENTUALLY WE WANT TO RETURN LENGTH[TH] ALSO.           PAR      7258
                                                                                                                 PAR      7259
          4266  20341                    GOL50    SBIT   X3,TH.PLCP                                              FC50104   188
                     43774                        MX7    60          EXACT LENGTH NOT KNOWN                      PAR      7261
                          10633                   BX6    X3          FIXED/PASSED LENGTH FLAG                    PAR      7262
          4267  0400004242 +                      EQ     EXIT.                                                   PAR      7263
                                                                                                                 PAR      7264
          4270                     1     GOLA     BSS    1                                                       PAR      7265
          4271                     1     GOLB     BSS    1                                                       PAR      7266
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   171
        SUBROUTINES.                                                  OMC 
  
                                        **        OMC - OUTPUT MODE CONVERSION.                                  PAR      7268
                                        *                                                                        PAR      7269
                                        *         ENTRY  (X3) = OPERATOR.                                        PAR      7270
                                        *                (X4) = 1ST OPERAND.                                     PAR      7271
                                        *                (X5) = 2ND OPERAND.                                     PAR      7272
                                        *                (SMOD) = 24/ 0,  18/ DOP,  18/ DM                       PAR      7273
                                        *                                                                        PAR      7274
                                        *         EXIT   (X3) = PRESERVED.                                       PAR      7275
                                        *                (X4) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE    PAR      7276
                                        *                            OPERAND =2, OTHERWISE PRESERVED.            PAR      7277
                                        *                (X5) = MODE CONVERSION INTERMEDIATE IF DOMINANT MODE    PAR      7278
                                        *                            OPERAND=1, OTHERWISE PRESERVED.             PAR      7279
                                        *                (SMOD) = 42/ 0,  18/ DM                                 PAR      7280
                                        *                                                                        PAR      7281
                                        *         USES   CANNOT DESTROY   B4-6   X3-5.                           PAR      7282
                                        *                X4,X5 MAY BE REPLACED BY MODE CONV. INTERMEDIATE.       PAR      7283
                                        *                                                                        PAR      7284
                                        *                                                                        PAR      7285
                                        *                DOP = DOMINANT OPERAND --                               PAR      7286
                                        *                               = 0  NO CONVERSION.                      PAR      7287
                                        *                               = 1  CONVERT ARG IN X5 TO DOMINANT MODE. PAR      7288
                                        *                               = 2  CONVERT ARG IN X4 TO DOMINANT MODE. PAR      7289
                                        *                DM = DOMINANT MODE.                                     PAR      7290
                                                                                                                 PAR      7291
                                                                                                                 PAR      7292
          4272  0400404272 +             OMC      SUBR   =           ENTRY/EXIT...                               FC5A150   511
          4273  5110000002 +                      SA1    SMOD                                                    PAR      7294
                          73610                   SX6    X1          (X6) = DOMINANT MODE                        PAR      7295
                               21122              AX1    18                                                      PAR      7296
          4274  0301004272 +                      ZR     X1,EXIT.    IF NO CONVERSION REQUIRED                   PAR      7297
                                                                                                                 PAR      7298
                          10733                   BX7    X3                                                      PAR      7299
          4275  5170004310 +                      SA7    OMCA        SAVE (X3)                                   PAR      7300
                          10755                   BX7    X5                                                      PAR      7301
                               54771              SA7    A7+B1       SAVE (2OP) = (X5)                           PAR      7302
          4276  10744                             BX7    X4                                                      PAR      7303
                     54771                        SA7    A7+B1       SAVE (1OP) = (X4)                           PAR      7304
                          5221004305 +            SA2    X1+OMC.RC                                               PAR      7305
          4277  5251004310 +                      SA5    X1+OMCA     (X5) = OPERAND TO CONVERT                   PAR      7306
                          10722                   BX7    X2          PLUG RESTORE CODE                           PAR      7307
          4300  5170004304 +                      SA7    OMC.RR                                                  PAR      7308
                          0100004076 +            RJ     CMR         COERCE MODE OF RESULT                       PAR      7309
          4301  0570404301 +                      NZ     B7,"BLOWUP"       IF CONVERSION NOT POSSIBLE            PAR      7310
                          5130004310 +            SA3    OMCA                                                    PAR      7311
          4302  10655                             BX6    X5                                                      PAR      7312
                     22703                        LX7    X3                                                      PAR      7313
                          57661                   SA6    B6-B1       SET ESTACK[TOP] = NEW RESULT                PAR      7314
          4303  5170000003 +                      SA7    SOPR        RESTORE (SOPR) = OPERATOR                   PAR      7315
                                                                                                                 PAR      7316
          4304                     1     OMC.RR   BSS    1           ** FILLED **                                PAR      7317
          4305  0400004272 +                      EQ     EXIT.                                                   PAR      7318
                                                                                                                 PAR      7319
                                        **        SKELETON RESTORE REGISTER WORDS.                               PAR      7320
                                                                                                                 PAR      7321
          4306  5140004312 +             OMC.X5   =A4    OMCA+2      RESTORE *X4*                                PAR      7322
                          5156777776              SA5    B6-1        RESET *X5* TO CONVERSION INTERMEDIATE       PAR      7323
          4307  5146777776               OMC.X4   SA4    B6-1        RESET *X4* TO CONVERSION INTERMEDIATE       PAR      7324
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   172
        SUBROUTINES.                                                  OMC 
  
                          5150004311 +            =A5    OMCA+1      RESTORE *X5*                                PAR      7325
                                                                                                                 PAR      7326
                                4305 +   OMC.RC   EQU    OMC.X5-1                                                PAR      7327
                                                                                                                 PAR      7328
          4310                     3     OMCA     BSS    3                                                       PAR      7329
  
  
  
  
                                        **        SCB - SET CHARACTER BOUNDS.                                    FC5A441    68
                                        *                                                                        FC5A441    69
                                        *         ENTRY  (X4) = ZR IF TARGET TP.                                 FC5A441    70
                                        *                       NZ IF SOURCE ELEMENT TP.                         FC5A441    71
                                        *                (X5) = TP. ENTRY.                                       FC5A441    72
                                        *                                                                        FC5A441    73
                                        *         EXIT   IF CALLED WITH (X4) ZR:                                 FC5A441    74
                                        *                  (SCBA) = BASE MEMBER ORDINAL.                         FC5A441    75
                                        *                  (SCBB) = LOWER CHARACTER BOUND.                       FC5A441    76
                                        *                  (SCBC) = UPPER CHARACTER BOUND.                       FC5A441    77
                                        *                IF CALLED WITH (X4) NZ:                                 FC5A441    78
                                        *                  EXIT TO *CDIX* IF BASE ORDINAL .NE. (SCBA).           FC5A441    79
                                        *                  ELSE (X6) = LOWER CHARACTER BOUND.                    FC5A441    80
                                        *                       (X7) = UPPER CHARACTER BOUND.                    FC5A441    81
                                        *                                                                        FC5A441    82
                                        *         USES   X-ALL, B-2,7, A-1,2,6,7.                                FC5A441    83
                                                                                                                 FC5A441    84
                                                                                                                 FC5A441    85
          4313  0400404313 +             SCB      SUBR   0           ... ENTRY/EXIT ...                          FC5A441    86
          4314  10655                             BX6    X5                                                      FC5A441    87
                     20661                        SBIT   X6,TP.INTRP                                             FC5A441    88
                          66700                   SB7    B0          (B7) = 0 IF SUBSTRING NOT PRESENT           FC5A441    89
          4315  0326004324 +                      PL     X6,SCB20    IF NOT TURPLE POINTER                       FC5A441    90
                          20520                   LX5    -TP.ORDP                                                FC5A441    91
                               43054              MX0    -TP.ORDL                                                FC5A441    92
          4316  15550                             BX5    -X0*X5      ISOLATE TURPLE ORDINAL                      FC5A441    93
                     63750                        SB7    X5                                                      FC5A441    94
                          5110000000 X            SA1    T.PAR                                                   FC5A441    95
          4317  53117                             SA1    X1+B7       TURPLE HEADER                               FC5A441    96
                     21156                        AX1    -TH.SKELL                                               FC5A441    97
                          14111                   BX1    -X1                                                     FC5A441    98
          4320  7211000000 X                      SX1    X1+V=SUBST                                              FC5A441    99
                          0311004323 +            NZ     X1,SCB10    IF NOT SUBSTRING                            FC5A441   100
          4321  54111                             SA1    A1+B1       GET VARIABLE POINTER                        FC5A441   101
                     64711                        SB7    A1+B1       (B7) = ADDRESS OF COLON POINTER             FC5A441   102
                          10511                   BX5    X1          (X5) = VARIABLE POINTER                     FC5A441   103
                               20161              SBIT   X1,TP.INTRP                                             FC5A441   104
          4322  0321004324 +                      PL     X1,SCB20    IF STATIC VARIABLE                          FC5A441   105
                                                                                                                 FC5A441   106
          4323  0304002105 +             SCB10    ZR     X4,EQL99    IF TARGET - NO CHECKING                     FC5A441   107
                          0400004020 +            EQ     CDIX        IF SOURCE - NO CHECKING THIS ELEMENT        FC5A441   108
                                                                                                                 FC5A441   109
          4324  10655                    SCB20    BX6    X5                                                      FC5A441   110
                     43754                        MX7    -TP.ORDL                                                FC5A441   111
                          20620                   LX6    -TP.ORDP                                                FC5A441   112
                               15767              BX7    -X7*X6      (X7) = SYM TAB ORDINAL                      FC5A441   113
          4325  5120000000 X                      SA2    T.SYM       GET SYM TAB *WB* WORD                       FC5A441   114
                          63270                   SB2    X7                                                      FC5A441   115
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   173
        SUBROUTINES.                                                  SCB 
  
                               22617              LX6    X7,B1                                                   FC5A441   116
          4326  63262                             SB2    B2+X6                                                   FC5A441   117
                     66221                        =B2    B2+WB.W     CONVERT TO *WB* INDEX                       FC5A441   118
                          53322                   SA3    X2+B2       *WB*                                        FC5A441   119
                               10655              BX6    X5                                                      FC5A441   120
          4327  20652                             HX6    TP.EQV                                                  FC5A441   121
                     0326004331 +                 PL     X6,SCB30    IF NOT EQUIVALENCED                         FC5A441   122
                               43760              MX7    -WB.BASEL                                               FC5A441   123
          4330  20333                             LX3    -WB.BASEP                                               FC5A441   124
                     15737                        BX7    -X7*X3      (X7) = SYM ORD OF BASE ENTRY                FC5A441   125
                                                                                                                 FC5A441   126
          4331  0314004333 +             SCB30    NZ     X4,SCB40    IF SOURCE ELEMENT                           FC5A441   127
                          5170004364 +            SA7    SCBA        SAVE TARGET BASE ORD                        FC5A441   128
          4332  0400004335 +                      EQ     SCB50                                                   FC5A441   129
                                                                                                                 FC5A441   130
          4333  5120004364 +             SCB40    SA2    SCBA        COMPARE TARGET/SOURCE BASE ORDS             FC5A441   131
                          37027                   IX0    X2-X7                                                   FC5A441   132
          4334  0310004020 +                      NZ     X0,CDIX     IF BASES DIFFER - OK                        FC5A441   133
                                                                                                                 FC5A441   134
                                        *         IF SUBSRING NOT PRESENT, COMPUTE:                              FC5A441   135
                                        *           LOWER BOUND = RA*10 + BCP + BIAS*CLEN + 1                    FC5A441   136
                                        *           UPPER BOUND = (LOWER BOUND) + CLEN - 1                       FC5A441   137
                                                                                                                 FC5A441   138
          4335  54131                    SCB50    =A1    A3+WC.W-WB.W  *WC*                                      FC5A441   139
                     43044                        MX0    -WC.RAL                                                 FC5A441   140
                                                  LX1    -WC.RAP                                                 FC5A441   141
                          15610                   BX6    -X0*X1      RA                                          FC5A441   142
          4336  7170000012                        SX7    10                                                      FC5A441   143
                          42667                   IX6    X6*X7       RA*10                                       FC5A441   144
                               43070              MX0    -WC.BCPL                                                FC5A441   145
          4337  20144                             LX1    WC.RAP-WC.BCPP                                          FC5A441   146
                     15210                        BX2    -X0*X1      BCP                                         FC5A441   147
                          36662                   IX6    X6+X2       RA*10 + BCP                                 FC5A441   148
                               10755              BX7    X5                                                      FC5A441   149
          4340  20720                             HX7    TP.BIAS                                                 FC5A441   150
                     21744                        AX7    -TP.BIASL   BIAS                                        FC5A441   151
                          43052                   MX0    -WC.CLENL                                               FC5A441   152
                               20166              LX1    WC.BCPP-WC.CLENP                                        FC5A441   153
          4341  15210                             BX2    -X0*X1      CLEN                                        FC5A441   154
                     42727                        IX7    X2*X7       BIAS*CLEN                                   FC5A441   155
                          36667                   IX6    X6+X7       RA*10 + BCP + BIAS*CLEN                     FC5A441   156
                               76010              SX0    B1                                                      FC5A441   157
          4342  36660                             IX6    X6+X0       RA*10 + BCP + BIAS*CLEN + 1                 FC5A441   158
                     0570004344 +                 NZ     B7,SCB60    IF SUBSTRING PRESENT                        FC5A441   159
                               36762              IX7    X6+X2       UPPER BOUND = (LOWER BOUND) + CLEN - 1      FC5A441   160
          4343  37770                             IX7    X7-X0                                                   FC5A441   161
                     0400004356 +                 EQ     SCB70                                                   FC5A441   162
                                                                                                                 FC5A441   163
                                        *         IF SUBSTRING PRESENT, COMPUTE AS FOLLOWS:                      FC5A441   164
                                        *           IF VARIABLE LOWER SUBSTRING VALUE, THEN LOWER BOUND = 0;     FC5A441   165
                                        *             ELSE L.B. = RA*10 + BCP + BIAS*CLEN + (LOWER SUBSTR)       FC5A441   166
                                        *           IF VARIABLE UPPER SUBSTRING VALUE, THEN UPPER BOUND = 0;     FC5A441   167
                                        *             ELSE U.B. = (L.B.) + (UPPER SUBSTR) - (LOWER SUBSTR)       FC5A441   168
                                                                                                                 FC5A441   169
          4344  56170                    SCB60    SA1    B7          GET COLON POINTER                           FC5A441   170
                     20120                        LX1    -TP.ORDP                                                FC5A441   171
                          43054                   MX0    -TP.ORDL                                                FC5A441   172
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   174
        SUBROUTINES.                                                  SCB 
  
                               15110              BX1    -X0*X1      COLON ORDINAL                               FC5A441   173
          4345  43700                             MX7    0           SET FOR VARIABLE UPPER BOUND                FC5A441   174
                     76010                        SX0    B1                                                      FC5A441   175
                          37560                   IX5    X6-X0       (X5) = VALUE FOR COMPUTING UPPER BOUND      FC5A441   176
                               10655              BX6    X5          (X6) = VALUE FOR COMPUTING LOWER BOUND      FC5A441   177
          4346  63711                             SB7    X1+B1                                                   FC5A441   178
                     5110000000 X                 SA1    T.PAR                                                   FC5A441   179
                               53117              SA1    X1+B7       FETCH LOWER SUBSTRING BOUND                 FC5A441   180
          4347  22201                             LX2    X1                                                      FC5A441   181
                     20157                        SBIT   X1,TP.SHRTP                                             FC5A441   182
                          0331004351 +            MI     X1,SCB62    IF SHORT CONSTANT                           FC5A441   183
          4350  43600                             MX6    0           SET VARIABLE LOWER BOUND                    FC5A441   184
                     0400004352 +                 EQ     SCB64                                                   FC5A441   185
                                                                                                                 FC5A441   186
          4351  20220                    SCB62    HX2    TP.BIAS                                                 FC5A441   187
                     21244                        AX2    -TP.BIASL   LOWER SUBSTRING BOUND                       FC5A441   188
                          36662                   IX6    X6+X2       FINAL LOWER BOUND VALUE                     FC5A441   189
                                                                                                                 FC5A441   190
          4352  54111                    SCB64    SA1    A1+B1       FETCH UPPER SUBSTRING BOUND                 FC5A441   191
                     22201                        LX2    X1                                                      FC5A441   192
                          20157                   SBIT   X1,TP.SHRTP                                             FC5A441   193
          4353  0321004355 +                      PL     X1,SCB67    IF NOT SHORT CONSTANT                       FC51168     9
                          20220                   HX2    TP.BIAS                                                 FC5A441   195
                               21244              AX2    -TP.BIASL   UPPER SUBSTRING BOUND                       FC5A441   196
          4354  36752                             IX7    X5+X2       FINAL UPPER BOUND VALUE                     FC5A441   197
                     0400004356 +                 EQ     SCB70                                                   FC51168    10
                                                                                                                 FC51168    11
          4355  7170077777               SCB67    SX7    77777B      SET SOURCE U.B. TO MAX LENGTH               FC51168    12
                                                                                                                 FC5A441   198
          4356  0314004313 +             SCB70    NZ     X4,EXIT.    IF CALLED FOR SOURCE ELEMENT                FC5A441   199
                          5160004365 +            SA6    SCBB        STORE LOWER BOUND                           FC5A441   200
          4357  0316004361 +                      NZ     X6,SCB80    IF LOWER BOUND NOT VARIABLE                 FC5A441   201
                          0307002105 +            ZR     X7,EQL99    IF BOTH VARIABLE - NO CHECKING              FC5A441   202
          4360  5170004365 +                      SA7    SCBB        STORE UPPER BOUND FOR BOTH                  FC5A441   203
                                                                                                                 FC5A441   204
          4361  5170004366 +             SCB80    SA7    SCBC        STORE UPPER BOUND                           FC5A441   205
                          0317004313 +            NZ     X7,EXIT.    IF UPPER BOUND NOT VARIABLE                 FC5A441   206
          4362  7170077777                        SX7    77777B      SET TARGET U.B. TO MAX LENGTH               FC51168    13
                          5170004366 +            SA7    SCBC        STORE UPPER BOUND                           FC51168    14
          4363  0400004313 +                      EQ     EXIT.       RETURN                                      FC5A441   208
                                                                                                                 FC5A441   209
          4364                     1     SCBA     BSS    1           BASE ORDINAL                                FC5A441   210
          4365                     1     SCBB     BSS    1           LOWER CHARACTER BOUND                       FC5A441   211
          4366                     1     SCBC     BSS    1           UPPER CHARACTER BOUND                       FC5A441   212
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   175
        SUBROUTINES.                                                  SDM 
  
                                        **        SDM - SELECT DOMINANT MODE.                                    PAR      7331
                                        *                                                                        PAR      7332
                                        *         ENTRY  (X3) = OPERATOR.                                        PAR      7333
                                        *                (X4) = 1ST OPERAND.                                     PAR      7334
                                        *                (X5) = 2ND OPERAND.                                     PAR      7335
                                        *                                                                        PAR      7336
                                        *         EXIT   (X3) = OPERATOR, WITH --                                PAR      7337
                                        *                       (TH.SMD) = TRUE (SPECIFIC MODE DETERMINED).      PAR      7338
                                        *                       (TH.SKEL) = SPECIFIC SKELETON.                   PAR      7339
                                        *                       (TH.STPR) = 0.                                   PAR      7340
                                        *                (X4) = 1ST OPERAND.                                     PAR      7341
                                        *                (X5) = 2ND OPERAND.                                     PAR      7342
                                        *                (X6) = (X3).                                            PAR      7343
                                        *                (SOPR) = (X3).                                          PAR      7344
                                        *                (SMOD) =  24/ 0,  18/ POINT,  18/ DM                    PAR      7345
                                        *                        (POINT) = 0, IF NO CONVERSION REQUIRED,         PAR      7346
                                        *                                = 1, IF 1ST  OPERAND IS DOMINANT MODE,  PAR      7347
                                        *                                = 2, IF 2ND  OPERAND IS DOMINANT MODE.  PAR      7348
                                        *                        (DM) = DOMINANT (AND RESULT) MODE.              PAR      7349
                                        *                                                                        PAR      7350
                                        *         USES   A1,A2,A3  X0,X7  B2,B3,B7                               PAR      7351
                                                                                                                 PAR      7352
                                                                                                                 PAR      7353
          4367  10633                    SDM90    BX6    X3                                                      PAR      7354
                     46000                        NO                                                             PAR      7355
                          5160000003 +            SA6    SOPR        UPDATE OPERATOR                             PAR      7356
                                                                                                                 PAR      7357
          4370  0400404370 +             SDM      SUBR   =           ENTRY/EXIT...                               PAR      7358
          4371  5110000000 X                      SA1    CO.ANSI                                                 FC50014    66
                          0301004373 +            ZR     X1,SDM5     IF ANSI NOT ON CONTROL CARD                 FC50014    67
          4372  0100004135 +                      RJ     DDC         DIAGNOSE DBL PREC. AND CPLX. EXPRESSION     FC50014    68
                                                                                                                 FC50014    69
          4373  43001                    SDM5     CLAS=  X0,SP,(SMD)                                             FC50104   189
                          11203                   BX2    X0*X3                                                   PAR      7360
                               22603              LX6    X3                                                      PAR      7361
          4374  0312004370 +                      NZ     X2,EXIT.    IF (TH.SMD) SET ON ENTRY                    PAR      7362
                          43763                   MX7    -SP.STPRL                                               FC50104   190
                               12303              BX3    X0+X3       INDICATE SPECIFIC MODE DETERMINED           PAR      7364
          4375  20711                             LX7    SP.STPRP                                                FC50104   191
                     11373                        BX3    X7*X3       CLEAR (TH.STPR)                             PAR      7366
                          43071                   MX0    -TP.MODEL                                               PAR      7367
                                                  LX4    -TP.MODEP                                               PAR      7368
                               15740              BX7    -X0*X4      DM = MODE1 = MODE OF (1OP)                  PAR      7369
          4376  20624                             HX6    SP.MDLS                                                 FC50104   192
                     5170000002 +                 SA7    SMOD        INITIALIZE (SMOD) = MODE1                   PAR      7371
                                                  LX4    TP.MODEP                                                PAR      7372
          4377  0336004367 +                      MI     X6,SDM90    IF MODE CONVERSION INHIBITED FOR THIS OP    PAR      7373
                          43163                   MX1    -SP.TBPRL                                               FC50104   193
                               15231              BX2    -X1*X3      EXTRACT (X2) = TOKEN TYPE OF OPERATOR       PAR      7375
                                   0              ERRNZ  SP.TBPRP                                                FC50104   194
          4400  6272777733                        SB7    X2-O.SLP                                                PAR      7377
                          0470004367 +            ZR     B7,SDM90    IF SPECIAL LEFT PAREN, ALWAYS MODELESS      PAR      7378
                                                                                                                 PAR      7379
                                        *         IF UNARY OPERATOR, INHIBIT CONVERSION.                         PAR      7380
                                                                                                                 PAR      7381
                                                  LX5    -TP.MODEP                                               PAR      7382
          4401  22103                             LX1    X3                                                      PAR      7383
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   176
        SUBROUTINES.                                                  SDM 
  
                     15650                        BX6    -X0*X5      MODE2 = MODE OF (2OP)                       PAR      7384
                          20123                   HX1    SP.UNAR                                                 FC50104   195
          4402  0321004403 +                      PL     X1,SDM16    IF BINARY OPERATOR                          PAR      7386
                          10766                   BX7    X6          MODE1 = MODE2                               PAR      7387
                                                                                                                 PAR      7388
                                        *         FIND DOMINANT MODE.                                            PAR      7389
                                        *                (X6) = MODE2                                            PAR      7390
                                        *                (X7) = MODE1                                            PAR      7391
                                                                                                                 PAR      7392
          4403  66300                    SDM16    SB3    B0          TRY POINT = 0                               PAR      7393
                     37176                        IX1    X7-X6                                                   PAR      7394
                          0301004406 +            ZR     X1,SDM20    IF MODE1 .EQ. MODE2                         PAR      7395
          4404  66311                             =B3    2                                                       PAR      7396
                     0331004406 +                 MI     X1,SDM20    IF MODE1 .LT. MODE2                         PAR      7397
                               22607              LX6    X7          SET (X6) = DM = MODE1                       PAR      7398
          4405  15750                             BX7    -X0*X5      SET (X7) = MODE2                            PAR      7399
                     66310                        SB3    B1          POINT = 1                                   PAR      7400
                                                                                                                 PAR      7401
                                        *         CHECK FOR ILLEGAL USE OF TYPE CHARACTER OPERANDS.              PAR      7402
                                                                                                                 PAR      7403
          4406  7216777771               SDM20    SX1    X6-M.CHAR                                               PAR      7404
                                                  LX5    TP.MODEP                                                PAR      7405
                          0311004420 +            NZ     X1,SDM30    IF DM .NE. CHARACTER                        PAR      7406
                                   0              ERRNZ  M.CHAR+1-N.TYPE   ASSUMES CHAR IS LARGEST TYPE          PAR      7407
          4407  0430004413 +                      ZR     B3,SDM24    IF POINT .ZR.   /* BOTH ARE CHAR            PAR      7408
                          6170000000 X            SB7    E.AT13      ** CHARACTER AND OTHER TYPE MIXED           PAR      7409
          4410  0100000000 X             SDM22    FATAL  B7                                                      PAR      7410
          4411  66300                             SB3    B0          POINT = 0    /* INHIBIT CONVERSION          PAR      7411
                     7160000006                   =X6    M.CHAR                                                  PAR      7412
                               10766              BX7    X6                                                      PAR      7413
          4412  0400004432 +                      EQ     SDM40                                                   PAR      7414
                                                                                                                 PAR      7415
          4413  10133                    SDM24    BX1    X3                                                      PAR      7416
                     20131                        HX1    SP.CHAR                                                 FC50104   196
                          6170000000 X            SB7    E.AT14      ** ILLEGAL USE OF TYPE CHARACTER OPERAND    PAR      7418
          4414  0321004410 +                      PL     X1,SDM22    IF THIS OPERATOR ILL FOR CHAR               PAR      7419
                          43052                   MX0    -SP.SKELL                                               FC50104   197
                               20322              LX3    -SP.SKELP                                               FC50104   198
          4415  15730                             BX7    -X0*X3      (X7) = ADDRESS OF MODE SELECTION WORDS      PAR      7422
                     53271                        SA2    X7+B1                                                   PAR      7423
                          11103                   BX1    X0*X3                                                   PAR      7424
                               12312              BX3    X1+X2       SET (TH.SKEL) = CHARACTER-SPECIFIC SKELETON PAR      7425
          4416  5160000002 +                      SA6    SMOD                                                    PAR      7426
                          20352                   LX3    SP.SKELP                                                FC50104   199
          4417  0400004367 +                      EQ     SDM90       EXIT..                                      PAR      7428
                                                                                                                 PAR      7429
                                        *         IF MASKING OPERATOR, DETERMINE RESULT MODE.                    PAR      7430
                                                                                                                 PAR      7431
          4420  10133                    SDM30    BX1    X3                                                      PAR      7432
                     20130                        HX1    SP.MASK                                                 FC50104   200
                          0321004431 +            PL     X1,SDM37    IF NOT LOGICAL/MASKING                      PAR      7434
          4421  7216777776                        SX1    X6-M.LOG                                                PAR      7435
                          7227777776              SX2    X7-M.LOG                                                PAR      7436
          4422  0301004423 +                      ZR     X1,SDM32    IF DM = LOGICAL                             PAR      7437
                          0312004426 +            NZ     X2,SDM36    IF NEITHER (MODE1 NOR MODE2) IS LOGICAL     PAR      7438
          4423  0430004432 +             SDM32    ZR     B3,SDM40    IF POINT .ZR., BOTH ARE LOGICAL             PAR      7439
                          6170000000 X            FATAL  E.AT01      LOGICAL AND OTHER TYPE CANNOT BE MIXED      PAR      7440
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   177
        SUBROUTINES.                                                  SDM 
  
          4425  66300                             SB3    B0                                                      PAR      7441
                     76610                        =X6    M.LOG                                                   PAR      7442
                          0400004432 +            EQ     SDM40                                                   PAR      7443
                                                                                                                 PAR      7444
          4426  76600                    SDM36    =X6    M.BOOL      SET RESULT MODE = BOOLEAN                   PAR      7445
                     66300                        SB3    B0          POINT = 0      /* INHIBIT ANY CONVERSION    PAR      7446
                          6170000000 X            ANSI   E.AT07      MASKING OPERATION IS NON ANSI               PAR      7447
          4430  0400004432 +                      EQ     SDM40                                                   PAR      7448
                                                                                                                 PAR      7449
          4431  0316004432 +             SDM37    NZ     X6,SDM40    IF DOMINANT MODE NOT BOOLEAN                PAR      7450
                                   0              ERRNZ  M.BOOL                                                  PAR      7451
                          76611                   =X6    M.INT                                                   PAR      7452
                                                                                                                 PAR      7453
                                        *         VERIFY LEGALITY OF DOMINANT MODE, AND SELECT CONVERSION.       PAR      7454
                                        *                (B3) = POINT                                            PAR      7455
                                        *                (X6) = DM, DOMINANT MODE (ASSUME RESULT MODE SAME).     PAR      7456
                                        *                (X7) = MODE OF NON-DOMINANT OPERAND.                    PAR      7457
                                                                                                                 PAR      7458
          4432  5227000000 X             SDM40    SA2    X7+F.MODC   FETCH ROW OF MODE CONVERSION MATRIX         PAR      7459
                          76130                   SX1    B3                                                      PAR      7460
                               73760              SX7    X6                                                      PAR      7461
          4433  20122                             LX1    18                                                      PAR      7462
                     20703                        LX7    3           (B2) = 8 * DM                               PAR      7463
                          12616                   BX6    X1+X6       (SMOD) =  0 / POINT / DM                    PAR      7464
                               63270              SB2    X7                                                      PAR      7465
          4434  43064                             MX0    -8                                                      PAR      7466
                     23122                        AX1    B2,X2       SLIDE ROW TO DOMINANT COLUMN                PAR      7467
                          15210                   BX2    -X0*X1      (X2) = MODC (X7, DM)                        PAR      7468
          4435  0312004436 +                      NZ     X2,SDM44    IF MODE CONVERSION NECESSARY                PAR      7469
                          7266000000              SX6    X6+         POINT = 0                                   PAR      7470
          4436  5160000002 +             SDM44    SA6    SMOD                                                    PAR      7471
                          7212777400              SX1    X2-1S8+1                                                PAR      7472
          4437  6170000000 X                      SB7    E.AT01      LOGICAL AND OTHER TYPE OPERANDS MIXED       PAR      7473
                          0301004445 +            ZR     X1,SDM80    IF MODE CONVERSION ERROR                    PAR      7474
                                                                                                                 PAR      7475
                                        *         SELECT SPECIFIC SKELETON.                                      PAR      7476
                                        *                (B2) = 8 * DM                                           PAR      7477
                                                                                                                 PAR      7478
          4440  43752                             MX7    -SP.SKELL                                               FC50104   201
                     20322                        LX3    -SP.SKELP                                               FC50104   202
                          15237                   BX2    -X7*X3      AD = (TH.SKEL)  /* MODE SELECTOR ADDRESS    PAR      7481
                               53120              SA1    X2                                                      PAR      7482
          4441  11673                             BX6    X7*X3       CLEAR PREVIOUS (TH.SKEL)                    PAR      7483
                     23321                        AX3    B2,X1       SLIDE VECTOR TO DOMINANT MODE               PAR      7484
                          21160                   AX1    6*8         BASE = MIN SKEL INDEX OF THIS OPERATOR      PAR      7485
                               15030              BX0    -X0*X3      DOMOFF = OFFSET TO DOMINANT SKELETON        PAR      7486
          4442  12661                             BX6    X6+X1                                                   PAR      7487
                     6270777400                   SB7    X0-1S8+1                                                PAR      7488
                               36360              IX3    X6+X0       (TH.SKEL) = BASE + DOMOFF                   PAR      7489
          4443  20352                             LX3    SP.SKELP                                                FC50104   203
                     0770004367 +                 MI     B7,SDM90    IF OPERATION DEFINED FOR THIS MODE          PAR      7491
          4444  6170000000 X                      SB7    E.AT01                                                  PAR      7492
                                                                                                                 PAR      7493
                                        *         ON ERROR, INHIBIT CONVERSION.                                  PAR      7494
                                        *                (B7) = ERROR MESSAGE ADDRESS.                           PAR      7495
                                                                                                                 PAR      7496
          4445  5130000317 +             SDM80    SA3    ERROP                                                   PAR      7497
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   178
        SUBROUTINES.                                                  SDM 
  
                          0100000000 X            FATAL  B7                                                      PAR      7498
          4446  5110000002 +                      SA1    SMOD                                                    PAR      7499
                          43001                   MX0    1                                                       PAR      7500
                               73710              SX7    X1          POINT = 0                                   PAR      7501
          4447  20050                             LX0    1+SP.MDLSP                                              FC50104   204
                     12303                        BX3    X0+X3       RESET OPERATOR MODELESS WHEN ERROR          PAR      7503
                          54710                   SA7    A1                                                      PAR      7504
          4450  0400004367 +                      EQ     SDM90       EXIT..                                      PAR      7505
  
  
  
  
                                        **        SPE -  SKIP PARENTHESIZED EXPRESSION.                          FC5A111    50
                                        *                                                                        FC5A111    51
                                        *         ENTRY  (B4) _ LEFT PAREN OF AN EXPRESSION.                     FC5A111    52
                                        *                                                                        FC5A111    53
                                        *         EXIT   (B4) _ MATCHING *)* OR *EOS* AS INDICATED BY B2 BELOW.  FC5A111    54
                                        *                                                                        FC5A111    55
                                        *                (B2) = PL IF *EOS* ENCOUNTERED.                         FC5A111    56
                                        *                     = MI IF MATCHING *)* FOUND.                        FC5A111    57
                                        *                                                                        FC5A111    58
                                        *         USES   X - 1  A - 1  B - 2,3,4,7.                              FC5A111    59
                                                                                                                 FC5A111    60
          4451  0400404451 +             SPE      SUBR               ENTRY/EXIT...                               FC5A111    61
          4452  66310                             =B3    1           INITIALIZE *LP* COUNTER                     FC5A111    62
                     66200                        =B2    0           INITIALIZE *RP* COUNTER                     FC5A111    63
                                                                                                                 FC5A111    64
          4453  66441                    SPE10    =B4    B4+1                                                    FC5A111    65
                     56140                        SA1    B4                                                      FC5A111    66
                          0301004451 +            ZR     X1,EXIT.    IF *EOS*                                    FC5A111    67
          4454  6271777740                        SB7    X1-O.LP                                                 FC5A111    68
                          0470004457 +            ZR     B7,SPE20    IF *(*                                      FC5A111    69
          4455  6271777737                        SB7    X1-O.RP                                                 FC5A111    70
                          0470004460 +            ZR     B7,SPE30    IF *)*                                      FC5A111    71
          4456  0400004453 +                      EQ     SPE10                                                   FC5A111    72
                                                                                                                 FC5A111    73
          4457  66331                    SPE20    =B3    B3+1                                                    FC5A111    74
                     0400004453 +                 EQ     SPE10                                                   FC5A111    75
                                                                                                                 FC5A111    76
          4460  66221                    SPE30    =B2    B2+1                                                    FC5A111    77
                     0523004453 +                 NE     B2,B3,SPE10                                             FC5A111    78
                               67201              =B2    -1          INDICATE MATCHING *)* FOUND                 FC5A111    79
          4461  0400004451 +                      EQ     EXIT.                                                   FC5A111    80
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   179
        SUBROUTINES.                                                  SQZ 
  
                                        **        SQZ -  SQUEEZE OPERATION IF POSSIBLE.                          PAR      7507
                                        *                                                                        PAR      7508
                                        *         CHECK TO SEE IF CURRENT TURPLE HAS ALREADY BEEN POPPED.        PAR      7509
                                        *         NOTE THAT THE PRESENT ROUTINE DOES NOT ATTEMPT TO SQUEEZE      PAR      7510
                                        *         ACROSS STORES.  TO DO SO REQUIRES LOOKING AT EQUIVALANCE-      PAR      7511
                                        *         CLASS BASES.  TEACHING SQZ TO DO THAT TRICK PROPERLY WOULD     PAR      7512
                                        *         IMPROVE QCG CODE FOR CASES LIKE:  ARY(I,J,K) = ARY(I,J,K)+1.   PAR      7513
                                        *         POP.EQL RESETS (CURST) DUE TO THIS PROPERTY.                   PAR      7514
                                        *                                                                        PAR      7515
                                        *         IF FOUND,                                                      PAR      7516
                                        *                SET *ESTACK* ENTRY = TO INTERMEDIATE ORDINAL OF         PAR      7517
                                        *                TURPLE THAT MATCHED AND EXIT SETTING B2 \ 0.            PAR      7518
                                        *                                                                        PAR      7519
                                        *         IF NOT FOUND,                                                  PAR      7520
                                        *                SET B2 < 0 AND EXIT.                                    PAR      7521
                                        *                                                                        PAR      7522
                                        *         ENTRY  (X3) = CURRENT OPERATOR.                                PAR      7523
                                        *                (X4) = 1ST OPERAND.                                     PAR      7524
                                        *                (X5) = 2ND OPERAND.                                     PAR      7525
                                        *                (B2) = .MI. (INDICATES NO SQUEEZE)                      FC50104   205
                                        *                                                                        PAR      7526
                                        *         EXIT   (B2) > 0 SQUEEZE PERFORMED.                             PAR      7527
                                        *                                                                        PAR      7528
                                        *         USES   X0-4,X6-7.    A1-2,A6.    B2-3,B5-7.                    PAR      7529
                                        *                                                                        PAR      7530
                                        *         CALLS  SN.SQZ.                                                 PAR      7531
                                                                                                                 PAR      7532
                                                                                                                 PAR      7533
          4462  0400404462 +             SQZ      SUBR               ENTRY/EXIT...                               PAR      7534
          4463  5110000000 X                      SA1    T.PAR                                                   PAR      7541
                          43063                   MX0    -SP.TBPRL                                               FC50104   206
                                                  LX3    -SP.TBPRP                                               FC50104   207
                               15030              BX0    -X0*X3      EXTRACT OPERATOR VALUE INDEX                FC50104   208
          4464  6270777736                        SB7    X0-O.=                                                  FC50104   209
                          0470004462 +            ZR     B7,EXIT.    CAN NOT SQUEEZE STORES                      FC50104   210
                                                  LX3    SP.TBPRP                                                FC50104   211
          4465  5120000000 X                      SA2    T=PAR                                                   PAR      7543
                          0302004462 +            ZR     X2,SQZ      IF T.PAR EMPTY                              FC51609     8
          4466  36012                             IX0    X1+X2       LWA+1                                       PAR      7544
                     5120000004 +                 SA2    CURST                                                   PAR      7545
          4467  6230777774                        =B3    X0-Z=TURP   LAST OPERATOR                               PAR      7546
                          36012                   IX0    X1+X2                                                   PAR      7547
                               63500              =B5    X0+OR.OPR   FWA                                         PAR      7548
          4470  5120004574 +                      CLAS=  X2,SP,(1ATR,MODC,MODE)                                  FC50104   212
                          15332                   BX3    -X2*X3      CLEAR PASS 1 FIELDS                         FC50104   213
                               22003              LX0    X3                                                      FC50104   214
                                                  HX0    SP.SKEL                                                 FC50104   215
          4471  21052                             AX0    -SP.SKELL   EXTRACT SKELETON ORDINAL                    FC50104   216
                     43222                        MX2    SP.SKELL                                                FC50104   217
                                                  HX3    SP.SKEL                                                 FC50104   218
                          15332                   BX3    -X2*X3      CLEAR SP.SKEL                               FC50104   219
                                                  LX3    SP.SKELL+SP.SKELP                                       FC50104   220
                               20056              LX0    TH.SKELP                                                FC50104   221
          4472  12303                             BX3    X0+X3       CONVERT TO TH. FORMAT                       FC50104   222
                     5120000000 X                 SA2    =XCO.OPT                                                FC51322    11
          4473  0302004475 +                      ZR     X2,SQZ5     IF OPT .EQ. 0                               FC51322    12
                          0400004514 +            EQ     SQZ12       CHECK FOR INTEGER ADD OR SUB TURPLE SQUEEZE FC51322    13
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   180
        SUBROUTINES.                                                  SQZ 
  
                                                                                                                 PAR      7551
                                        *         SCAN PARSED FILE BACKWARDS FOR MATCHING TURPLE.                PAR      7552
                                                                                                                 PAR      7553
          4474  6120777776               SQZ4     SB2    -1                                                      FC51322    14
                                                                                                                 FC51322    15
          4475  5113000000               SQZ5     SA1    B3+                                                     FC51322    16
                          5120004575 +            CLAS=  X2,TH,(SKEL,OVAL)                                       FC50104   224
          4476  0735004462 +                      LT     B3,B5,EXIT. IF FINISHED                                 PAR      7555
                          6133777774              =B3    B3-Z=TURP                                               PAR      7557
          4477  11621                             BX6    X2*X1       CLEAR IRRELEVANT FIELDS                     FC50104   225
                     13663                        BX6    X6-X3                                                   FC50104   226
                          0316004475 +            NZ     X6,SQZ5     IF DIFFERENT SKEL                           PAR      7562
                                                                                                                 PAR      7564
                                        *         OPERATOR IS THE SAME,  CHECK 2ND OPERAND.                      PAR      7565
                                                                                                                 PAR      7566
          4500  5021000002                        =A2    A1+OR.2OP   2ND OPERAND                                 FC50104   227
                          37725                   IX7    X2-X5                                                   PAR      7567
                               10611              BX6    X1          SAVE OPERATOR                               PAR      7568
          4501  0317004475 +                      NZ     X7,SQZ5     IF 2ND OPERAND NOT THE SAME                 PAR      7569
                                                                                                                 PAR      7570
                                        *         2ND OPERAND IS A MATCH,  CHECK 1ST OPERAND.                    PAR      7571
                                                                                                                 PAR      7572
                          55121                   =A1    A2+OR.1OP-OR.2OP                                        PAR      7573
                               37214              IX2    X1-X4                                                   PAR      7574
          4502  0312004475 +                      NZ     X2,SQZ5     IF (1OP) DIFFERENT                          PAR      7575
                                                                                                                 PAR      7576
                                        *         ELIMINATE TURPLE,  SQUEEZE PERFORMED.                          PAR      7577
                                                                                                                 PAR      7578
          4503  7110000000 X             SQZ6     SX1    V=ARY                                                   FC51322    17
                          43056                   MX0    -TH.SKELL                                               FC50199     6
                               20616              LX6    -TH.SKELP                                               FC50199     7
          4504  15260                             BX2    -X0*X6      EXTRACT SKELETON ORDINAL                    FC50199     8
                     37221                        IX2    X2-X1                                                   FC50199     9
                          7130022000              CLAS=  X3,TP,(ARR,INTR)                                        FC50199    10
          4505  0302004506 +                      ZR     X2,SQZ7     IF SQUEEZED TURPLE WAS ARRAY LOAD           FC50199    11
                          7130002000              CLAS=  X3,TP,(INTR)                                            FC50199    12
                                                                                                                 FC50199    13
          4506  43070                    SQZ7     MX0    -TH.MODEL                                               FC50199    14
                     5110000000 X                 SA1    T.PAR                                                   PAR      7584
                               20634              LX6    TH.SKELP-TH.MODEP                                       FC50199    15
          4507  15560                             BX5    -X0*X6      DOMINANT MODE                               PAR      7587
                     6221777774                   =B2    X1-Z=TURP                                               PAR      7589
                               77432              SX4    B3-B2       ORDINAL                                     PAR      7590
          4510  36635                             IX6    X3+X5       ATTRIBUTES + MODE                           FC50199    16
                     20454                        LX4    TP.ORDP                                                 PAR      7592
                          36646                   IX6    X4+X6       ORDINAL + ATTRIBUTES + MODE                 FC50199    17
                               67661              =B6    B6-1                                                    PAR      7594
          4511  5120000001 +                      SA2    ATTR                                                    FC50199    18
                          7130001020              CLAS=  X3,TP,(CAT,LCF)                                         FC50199    19
          4512  11232                             BX2    X3*X2       EXTRACT NECESSARY ATTRIBUTES                FC50199    20
                     12626                        BX6    X2+X6       MERGE INTO INTERMEDIATE TURPLE              FC50199    21
                          57661                   SA6    B6-B1       PUT THE EQUIVALENT INTERMEDIATE ON ESTACK   PAR      7595
                                                                                                                 PAR      7597
                                         SNAP=Q   IFEQ   TEST,ON     DUMP SQUEEZED TURPLE                        PAR      7598
                                                  SA1    CO.SNAP                                                 PAR      7599
                                                  BX2    X1                                                      PAR      7600
                                                  LX1    1RQ                                                     PAR      7601
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   181
        SUBROUTINES.                                                  SQZ 
  
                                                  LX2    1RO                                                     PAR      7602
                                                  BX1    X1+X2                                                   PAR      7603
                                                  PL     X1,SQZ9     IF NEITHER SNAP=(O NOR Q) SELECTED          PAR      7604
                                                  RJ     SN.SQZ                                                  PAR      7605
                                         SQZ9     BSS                                                            PAR      7606
                                         SNAP=Q   ENDIF                                                          PAR      7607
          4513  0400004462 +                      EQ     EXIT.                                                   PAR      7608
                                                                                                                 FC51322    18
                                        **        CHECK IF AN INTEGER ADD TURPLE FOLLOWING AN INTEGER            FC51609     9
                                        *         MULTPLY TURPLE CAN BE SUBSUMED AND SQUEEZED.                   FC51322    20
                                        *                                                                        FC51322    21
                                        *                                                                        FC51322    22
                                                                                                                 FC51322    23
          4514  10133                    SQZ12    BX1    X3          CURRENT OPERATOR                            FC51322    24
                     20116                        LX1    -TH.SKELP                                               FC51322    25
                          43056                   MX0    -TH.SKELL                                               FC51322    26
                               15210              BX2    -X0*X1                                                  FC51322    27
          4515  7100000000 X                      SX0    V=ADD.I                                                 FC51322    28
                          37120                   IX1    X2-X0                                                   FC51322    29
          4516  6170000001                        SB7    1                                                       FC51322    30
                          0311004474 +            NZ     X1,SQZ4     IF NOT V=ADD.I                              FC51609    10
          4517  56130                             SA1    B3          OPERATOR OF LAST TURPLE ENTERED TO T.PAR    FC51609    11
                     20116                        LX1    -TH.SKELP                                               FC51322    38
                          43056                   MX0    -TH.SKELL                                               FC51322    39
                               15210              BX2    -X0*X1                                                  FC51322    40
          4520  7100000000 X                      SX0    V=MUL.I                                                 FC51322    41
                          37120                   IX1    X2-X0                                                   FC51322    42
          4521  0311004474 +                      NZ     X1,SQZ4     IF LAST ENTERED TURPLE IS NOT V=MUL.I       FC51322    43
                          5011000001              SA1    A1+OR.1OP   FIRST OPERAND OF LAST ENTERED               FC51322    44
          4522  5021000001                        SA2    A1+OR.2OP-OR.1OP  SECOND OPERAND OF LAST ENTERED        FC51322    45
                          54020                   SA0    A2                                                      FC51322    46
                               10011              BX0    X1                                                      FC51322    47
          4523  20057                             LX0    59-TP.SHRTP                                             FC51322    48
                     0330004474 +                 MI     X0,SQZ4     IF SHORT CONSTANT                           FC51322    49
                               20002              LX0    TP.SHRTP-TP.INTRP                                       FC51322    50
          4524  0330004474 +                      MI     X0,SQZ4     IF INTERMEDATE                              FC51322    51
                          10022                   BX0    X2                                                      FC51322    52
                               20057              LX0    59-TP.SHRTP                                             FC51322    53
          4525  0320004474 +                      PL     X0,SQZ4     IF NOT SHORT CONSTANT                       FC51322    54
                          10144                   BX1    X4          FIRST OPERAND OF TURPLE TO BE ADDED         FC51322    55
                               22205              LX2    X5          SECOND OPERAND OF TURPLE TO BE ADDED        FC51322    56
          4526  20161                             LX1    59-TP.INTRP                                             FC51322    57
                     20261                        LX2    59-TP.INTRP                                             FC51322    58
                          13012                   BX0    X1-X2                                                   FC51322    59
          4527  0320004474 +                      PL     X0,SQZ4     IF NEITHER OR BOTH INTERMEDATE              FC51322    60
                          22604                   LX6    X4          POSSIBLE INTERMEDATE                        FC51322    61
                               10755              BX7    X5          POSSIBLE NON INTERMEDATE                    FC51322    62
          4530  0331004531 +                      MI     X1,SQZ14    IF FIRST INTERMEDATE                        FC51322    63
                          22605                   LX6    X5          INTERMEDATE                                 FC51322    64
                               10744              BX7    X4          NON INTERMEDATE                             FC51322    65
                                                                                                                 FC51322    66
          4531  43020                   SQZ14     MX0    TP.ORDL                                                 FC51322    67
                     11106                        BX1    X0*X6                                                   FC51322    68
                          20120                   LX1    TP.ORDL                                                 FC51322    69
          4532  5120000000 X                      SA2    T.PAR                                                   FC51322    70
                          63220                   SB2    X2                                                      FC51322    71
                               63212              SB2    B2+X1                                                   FC51322    72
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   182
        SUBROUTINES.                                                  SQZ 
  
          4533  0523004474 +                      NE     B2,B3,SQZ4  IF NOT LAST TURPLE                          FC51322    73
                          54210                   SA2    A1                                                      FC51322    74
                               13027              BX0    X2-X7                                                   FC51322    75
          4534  0310004474 +                      NZ     X0,SQZ4     IF OPERANDS NOT EQUAL                       FC51322    76
                          6133777774              SB3    B3-Z=TURP   UPDATE FOR PROPER INTR POINTER              FC51322    77
          4535  43044                             MX0    -TP.BIASL                                               FC51322    78
                     54100                        SA1    A0          SECOND OPERAND OF LAST TURPLE(CONSTANT)     FC51322    79
                          20024                   LX0    TP.BIASP                                                FC51322    80
                               15210              BX2    -X0*X1      X2 -> BIAS                                  FC51322    81
          4536  11101                             BX1    X0*X1       X1 -> CLEARED BIAS                          FC51322    82
                     20220                        LX2    TP.ORDL                                                 FC51322    83
                          21244                   AX2    -TP.BIASL                                               FC51322    84
                               76670              SX6    B7                                                      FC51322    85
          4537  36762                             IX7    X6+X2       ADD OR SUB                                  FC51322    86
                     20724                        LX7    TP.BIASP                                                FC51609    12
                          15670                   BX6    -X0*X7                                                  FC51322    88
                               36761              IX7     X6+X1                                                  FC51322    89
          4540  54700                             SA7    A0          2ND OPERAND OF LAST TURPLE (CONSTANT)       FC51322    90
                                                                                                                 FC51322    91
                                         .T       IFEQ   TEST,ON                                                 FC51322    92
                                                  SA1    CO.SNAP                                                 FC51322    93
                                                  BX2    X1                                                      FC51322    94
                                                  LX1    1RQ                                                     FC51322    95
                                                  LX2    1RO                                                     FC51322    96
                                                  BX1    X1+X2                                                   FC51322    97
                                                  PL     X1,SQZ17    IF NEITHER SNAP=(O NOR Q) SELECTED          FC51322    98
                                                  PL     B7,SQZ15    IF V=ADD.I SQUEEZED                         FC51322    99
                                                  EQ     SQZ17                                                   FC51322   103
                                         SQZ15    BSS                                                            FC51322   104
                                                  SA2    SQZE                                                    FC51322   105
                                                  BX6    X2                                                      FC51322   106
                                                  SA6    SQZB        SET V=ADD.I MSG                             FC51609    13
                                         SQZ17    BSS                                                            FC51322   108
                                         .T       ENDIF                                                          FC51322   109
                                                                                                                 FC51322   110
                     5020777775                   SA2    A0-OR.2OP                                               FC51322   111
                               10622              BX6    X2          OPERATOR OF LAST TURPLE IN T.PAR            FC51322   112
          4541  0400004503 +                      EQ     SQZ6                                                    FC51322   113
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   183
        SUBROUTINES.                                                  SN.SQZ
  
                                        **        SN.SQZ - NOTIFY OF SQUEEZE OPERATION PERFORMED.                PAR      7610
                                        *                                                                        PAR      7611
                                        *         ENTRY  (B3)+Z=TURP -> OPERATOR THAT WAS SQUEEZED.              PAR      7612
                                        *                                                                        PAR      7613
                                        *         EXIT   (A1) DESTROYED.                                         PAR      7614
                                        *                                                                        PAR      7615
                                        *         USES   DESTROYS *A1* ONLY...                                   PAR      7616
                                        *         CALLS  COD, PLINE, SFN, SVR=, RSR=.                            PAR      7617
                                                                                                                 PAR      7618
                                                                                                                 PAR      7619
                                         .T       IFEQ   TEST,ON     IF TEST MODE                                PAR      7620
                                                                                                                 PAR      7621
                                         SN.SQZ   SUBR   0                                                       PAR      7622
                                                  CALL   SVR=        SAVE ALL REGISTERS                          PAR      7623
                                                  SA3    SV=B+3      FETCH [B3]                                  PAR      7624
                                                  SA2    T.PAR                                                   PAR      7625
                                                  IX0    X3-X2                                                   PAR      7626
                                                  SX1    X0+Z=TURP                                               PAR      7627
                                                  CALL   COD         CONVERT TO OCTAL                            PAR      7628
                                                  LX4    -6                                                      PAR      7629
                                                  MX0    5*6                                                     PAR      7630
                                                  SA1    T=PAR                                                   PAR      7631
                                                  BX5    X0*X4                                                   PAR      7632
                                                  CALL   COD         CONVERT TO OCTAL                            PAR      7633
                                                  MX0    -5*6                                                    PAR      7634
                                                  BX4    -X0*X6                                                  PAR      7635
                                                  BX6    X5+X4                                                   PAR      7636
                                                  SA6    SQZBO                                                   PAR      7637
                                                  SA1    SOPR                                                    PAR      7638
                                                  MX0    -SP.SKELL                                               FC50104   228
                                                  LX1    -SP.SKELP                                               FC50104   229
                                                  BX1    -X0*X1      ISOLATE (X1) = SKELETON NUMBER              PAR      7641
                                                  SA2    X1+=XF.SKNAM                                            PAR      7642
                                                  BX6    X2                                                      PAR      7643
                                                  SA6    SQZBN                                                   PAR      7644
                                                  PLINE  SQZB,SQZBL                                              PAR      7645
                                                  SA1    SQZG                                                    FC51322   114
                                                  BX6    X1                                                      FC51322   115
                                                  SA6    SQZB        RESTORE OPERATOR SQUEEZ MSG                 FC51322   116
                                                  CALL   RSR=        RESTORE ALL REGISTERS                       PAR      7646
                                                  EQ     EXIT.                                                   PAR      7647
                                                                                                                 PAR      7648
                                         SQZB     DIS    2,**OPERATOR SQUEEZ AT                                  FC51322   117
                                         SQZBO    DIS    1, 1234 1234                                            PAR      7650
                                                  DIS    1, IS SKEL                                              PAR      7651
                                         SQZBN    DIS    1,V=SKEL                                                PAR      7652
                                         SQZBL    =      *-SQZB                                                  PAR      7653
                                         SQZE     DIS    1,** V=ADD.I                                            FC51322   118
                                         SQZG     DIS    1,**OPERATOR                                            FC51322   120
                                         .T       ENDIF                                                          PAR      7654
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   184
        SUBROUTINES.                                                  TPC 
  
                                        **        TPC -  TEST FOR PASSED LENGTH CHARACTER CONCATENATION          PAR      7656
                                        *                                                                        PAR      7657
                                        *         THIS ROUTINE IS CALLED BY ARGUMENT PROCESSORS TO TEST FOR      PAR      7658
                                        *         ARGUMENTS INVOLVING CONCATENATION OF A PASSED LENGTH VARIABLE. PAR      7659
                                        *                                                                        PAR      7660
                                        *         ENTRY  (X5) = OPERAND TO BE TESTED                             PAR      7661
                                        *                                                                        PAR      7662
                                        *         EXIT   (X5) = UNCHANGED                                        PAR      7663
                                        *                                                                        PAR      7664
                                        *         USES   X1   B7                                                 PAR      7665
                                                                                                                 PAR      7666
                                                                                                                 PAR      7667
          4542  0400404542 +             TPC      SUBR   =           ...ENTRY/EXIT...                            PAR      7668
          4543  10155                             BX1    X5                                                      PAR      7669
                     20162                        SBIT   X1,TP.CATP                                              PAR      7670
                          0321004542 +            PL     X1,EXIT.    IF NOT CONCATENATION                        PAR      7671
          4544  20105                             SBIT   X1,TP.LCFP/TP.CATP                                      PAR      7672
                     0321004542 +                 PL     X1,EXIT.    IF NOT PASSED LENGTH CHARACTER              PAR      7673
          4545  6170000000 X                      FATAL  E.SU01                                                  PAR      7674
          4546  0400004542 +                      EQ     EXIT.                                                   PAR      7675
  
  
  
  
                                                  LIST   D                                                       PAR      7677
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        E.MDE2
             0 X                        T=SCR 
             0 Y                        V=IEQ.B 
             0 Y                        V=INE.B 
             0 Y                        V=IEQ.L 
             0 Y                        V=INE.L 
             0 Y                        V=IEQ.I 
             0 Y                        V=INE.I 
             0 Y                        V=IEQ.R 
             0 Y                        V=INE.R 
             0 Y                        V=IEQ.D 
             0 Y                        V=INE.D 
             0 Y                        V=IEQ.C 
             0 Y                        V=INE.C 
             0 Y                        V=IEQ.H 
             0 Y                        V=INE.H 
             0 X                        CO.OPT
  
                                        CONTENT OF LITERALS BLOCK.
  
          4547  77777400000000000000    ;;@ 
          4550  04012405000000000000    DATE
          4551  24111505000000000000    TIME
          4552  03141703130000000000    CLOCK 
          4553  14170306000000000000    LOCF
          4554  00000141000000000000      A6
          4555  40000077752745000000    5  ;\W+ 
          4556  00000000002240000000         R5 
          4557  00000000001200000000         J
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   185
        SUBROUTINES.                                                  LITERALS
  
          4560  00000000010000000100        A   A 
          4561  00000074000000000000       @
          4562  16000000000000000000    N 
          4563  56000000000000000000    , 
          4564  22050114000000000000    REAL
          4565  04021405000000000000    DBLE
          4566  03152014300000000000    CMPLX 
          4567  00000377777774000000      C;;;@ 
          4570  57000000000000000000    . 
          4571  50000000000000000000    / 
          4572  00000631463146314632      FY-Y-Y-Z
          4573  77777777776000777000    ;;;;;# ;' 
          4574  00000077776017777000       ;;#O;' 
          4575  77776000000000000777    ;;#     G;
  
          4576                                    END                                                            PAR      7678
  
                             77600B CM  STORAGE USED            22193 STATEMENTS     2435 SYMBOLS 
                               PARALLEL CPU ASSEMBLY           18.251 SECONDS        7425 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ABEF         2652   PROGRAM*       98/22    109/10 L  117/10
        ABEF2        2655   PROGRAM*      109/15    109/18 L
        ABIF         2665   PROGRAM*      108/54    109/38 L
        ABIF0        2670   PROGRAM*      109/41    109/44 L
        ABIF1        2673   PROGRAM*      109/47    109/50 L
        ABIF2        2700   PROGRAM*      109/54    110/07 L
        ABIF4        2702   PROGRAM*      110/12 L  110/19
        ACALL3       2616   PROGRAM*      107/12    107/15 L
        ACALL5       2621   PROGRAM*      107/16    107/22 L
        ACONS         171   PROGRAM*       14/11 L   27/07
        ACT          3732   PROGRAM*       93/28     93/33     93/47    104/55    152/15 L  152/15 E
        AC.CNTL        22   FTX            48/34     71/22     89/06    120/50    137/26    151/23
                                           48/35     88/08    120/48    124/39    150/18    151/45
        AC.CNTP         0   FTX            48/35    124/41    124/47    129/39    150/20
        AC.DIMIL       22   FTX           150/22
        AC.DIMIP       22   FTX           149/55    150/20    150/23
        AC.EARGL       22   FTX           111/53
        AC.EARGP       22   FTX            45/26    111/37
        AC.MAXML       22   FTX           129/41
        AC.MAXMP       44   FTX           123/56    124/04    129/39
        AC.MODEL       22   FTX            46/14    124/49    131/35    132/34    132/48
        AC.MODEP       22   FTX            44/11    124/41    124/47    131/36    132/35    132/46
                                           46/16    124/43    130/42    131/40    132/39    133/55
        AC.SYMP        44   FTX           149/54
        AC.W            1   FTX            71/31    120/46    129/27    131/34    132/45
                                           71/38    124/09    130/41    132/33    136/28
        ADT          3740   PROGRAM*       63/18     86/43    110/15    120/19    152/24    158/09    165/57
                                           67/08     86/49    110/41    141/10    153/12 L  160/06
                                           80/34    102/24    117/28    141/52    153/12 E  165/50
        ADTA         4011   PROGRAM*      154/18 S  154/20    155/03 S  155/04    155/08 L
        ADT1         3746   PROGRAM*      153/15    153/25 L
        ADT2         3754   PROGRAM*      153/29    153/35    153/39 L
        ADT3         3756   PROGRAM*      153/41    153/45 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   186
        SYMBOLIC REFERENCE TABLE. 
  
        ADT4         3764   PROGRAM*      153/55    153/57    154/05 L
        ADT5         3770   PROGRAM*      153/54    154/03    154/07    154/13 L
        ADT7         3775   PROGRAM*      154/17    154/28 L
        ADT8         4003   PROGRAM*      154/35    154/45 L
        ADU          3543   PROGRAM*      140/07    140/55    141/45 L  144/20    147/34    147/43    148/29    150/54
        ADW             0   EXTERNAL*       3/13 X   47/35     47/38     47/44    121/49    121/54
        AFUN4        2637   PROGRAM*      108/17    108/22 L
        AIF8         1614   PROGRAM*       72/23     72/29     72/32     72/33 L
        ALC             0   EXTERNAL*       3/13 X  109/23    166/34    167/46
        ALC.REG         0   EXTERNAL*       3/13 X  111/51 S  112/47 S
        ALC.STF         0   EXTERNAL*       3/13 X  111/49
        ALC.00          0   EXTERNAL*       3/13 X  112/45
        AM.AREL         1   FTX            32/38     45/44
        AM.AREP        52   FTX            21/36     21/40     22/04     22/11     22/13     45/44
                                           21/38     22/03     22/10     22/12     32/38
        AM.ATRP        44   FTX            21/35     21/40     21/45     21/50     22/01     22/06     22/11
                                           21/36     21/41     21/46     21/54     22/02     22/07     22/12
                                           21/37     21/42     21/47     21/55     22/03     22/08     22/13
                                           21/38     21/43     21/48     21/56     22/04     22/09
                                           21/39     21/44     21/49     21/57     22/05     22/10
        AM.COLP        50   FTX            21/44     21/46     21/48     50/44
        AM.COML        22   FTX            21/35     21/40     21/45     21/50     22/01     22/06     22/11
                                           21/36     21/41     21/46     21/54     22/02     22/07     22/12
                                           21/37     21/42     21/47     21/55     22/03     22/08     22/13
                                           21/38     21/43     21/48     21/56     22/04     22/09     68/21
                                           21/39     21/44     21/49     21/57     22/05     22/10
        AM.COMP        22   FTX            68/23
        AM.EOSL         1   FTX            62/35
        AM.EOSP        45   FTX            21/38     22/03     22/10     22/13     62/35
                                           21/47     22/04     22/11     61/11
        AM.EQP         47   FTX            21/37     21/38     21/39     22/10     22/11     53/07
        AM.FUNL         1   FTX            45/44
        AM.FUNP        44   FTX            21/36     21/40     33/53     34/49     45/44
        AM.LEV3L        1   FTX            45/44    157/05
        AM.LEV3P       51   FTX            21/36     21/40     45/44    157/05
        AM.PADL        22   FTX            21/35     21/41     21/47     21/56     22/05     22/11     50/05
                                           21/36     21/42     21/48     21/57     22/06     22/12     50/43
                                           21/37     21/43     21/49     22/01     22/07     22/13     52/31
                                           21/38     21/44     21/50     22/02     22/08     23/47     59/12
                                           21/39     21/45     21/54     22/03     22/09     29/18     71/14
                                           21/40     21/46     21/55     22/04     22/10     48/25
        AM.PADP         0   FTX            23/48     50/44     52/32
        AM.REFL        14   FTX            21/35     21/40     21/45     21/50     22/01     22/06     22/11
                                           21/36     21/41     21/46     21/54     22/02     22/07     22/12
                                           21/37     21/42     21/47     21/55     22/03     22/08     22/13
                                           21/38     21/43     21/48     21/56     22/04     22/09
                                           21/39     21/44     21/49     21/57     22/05     22/10
        AM.REFP        60   FTX            23/57     47/57     71/44
        AM.RPL          1   FTX            52/48
        AM.RPP         46   FTX            21/46     22/03     22/05     22/07     22/09     22/13     52/48
                                           21/54     22/04     22/06     22/08     22/12     27/20     58/11
        AM.W            0   FTX            71/29     71/31
        ANSI=           0   EXTERNAL*       4/19 X   26/36     43/09     87/24    109/48    177/07
                                            7/13     29/06     55/12    109/42    161/52
        ARGCOMA         0   EXTERNAL*       3/26 X    8/30 S   47/36     48/33     68/16     71/45    108/36
                                            7/20 S   10/03 S   47/51 S   51/43     71/07     91/40    136/34 S
        ARGMIS          0   EXTERNAL*       3/26 X   47/42     47/55 S   71/16     71/50 S   85/15    136/27
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   187
        SYMBOLIC REFERENCE TABLE. 
  
        ARGMODE         0   EXTERNAL*       3/26 X   23/38     33/52     47/50 S   50/40     54/30     62/34    154/01
                                            7/21 S   27/19     34/47     48/23     51/42     58/09     68/17    157/04
                                            8/25 S   29/13     41/40     49/10     52/27     59/10     71/05
                                            9/53 S   32/37     47/33     50/03     53/05     61/09     71/40 S
        ARRARM        365   PROGRAM*       21/35 L   43/32
        ARYOP         315   PROGRAM*       19/55 L   19/55 E  141/11
        ASBSA        2153   PROGRAM*       85/53 S   86/23     86/52 L
        ASBSB        2154   PROGRAM*       86/01 S   86/05     86/53 L
        ASBS10       2136   PROGRAM*       86/19     86/23 L
        ASBS20       2140   PROGRAM*       86/24     86/27 L
        ASBS30       2141   PROGRAM*       86/27     86/30 L
        ASBS40       2145   PROGRAM*       86/38     86/41 L
        ASE          3550   PROGRAM*      138/43    142/21 L
        ASE20        3556   PROGRAM*      142/27    142/45 L
        ASE22        3565   PROGRAM*      143/09    143/15 L
        ASE24        3570   PROGRAM*      143/20    143/28 L
        ASE26        3575   PROGRAM*      143/33    143/44 L
        ASE30        3600   PROGRAM*      143/40    143/53    144/01 L
        ASE32        3601   PROGRAM*      142/48    143/26    143/35    143/49    144/09 L
        ASE34        3604   PROGRAM*      143/13    144/11    144/14    144/19 L
        AS.NAMEP       22   FTX           149/42
        AS.ORDL        22   FTX           124/10    128/24    130/29    132/26
        AS.SYML        44   FTX           124/16
        AS.W            2   FTX            71/38    108/22    112/21    124/09    130/26    136/28    139/45
                                           86/45    111/07    112/35    128/20    132/23    136/30 S
        ATTR            1   PROGRAM*        5/37 L   32/34 S   42/50 S   82/15 S  154/37    180/48
                                           31/32 S   42/10     64/43 S  141/15    154/46 S
        A=ARRAY      3444   PROGRAM*       21/35     50/06     52/35    137/14 L
        A=AR10       3467   PROGRAM*      138/22    138/27 L
        A=AR12       3472   PROGRAM*      138/41 L  138/51
        A=AR14       3473   PROGRAM*      138/37    138/43 L
        A=AR20       3500   PROGRAM*      138/23    138/56 L
        A=AR22       3506   PROGRAM*      139/27 L  139/38
        A=AR30       3523   PROGRAM*      138/52    140/19 L
        A=AR32       3533   PROGRAM*      140/53    140/57 L
        A=AR4        3460   PROGRAM*      137/44    137/52 L  137/55
        A=AR40       3537   PROGRAM*      141/04    141/11 L
        A=AR6        3462   PROGRAM*      137/31    138/03 L
        A=AR7        3463   PROGRAM*      137/56    138/06 L
        A=AR8        3464   PROGRAM*      137/29    138/14 L
        A=BLWA          0   EXTERNAL*       4/04 X   21/56
        A=BMOD          0   EXTERNAL*       4/04 X   21/54
        A=CALL       2610   PROGRAM*       21/36     29/14     54/32     59/11    107/05 L
        A=DBD           0   EXTERNAL*       3/23 X   21/44     21/45
        A=DO         2165   PROGRAM*       21/39     88/04 L  154/02
        A=DOCI          0   EXTERNAL*       4/04 X   22/01
        A=DOCS          0   EXTERNAL*       4/04 X   22/02     52/29
        A=DO5        2170   PROGRAM*       88/12 L   88/34
        A=DO9        2177   PROGRAM*       88/19     88/27     88/36 L
        A=DVL        1617   PROGRAM*       21/38     50/14     72/55 L
        A=EXPR        457   PROGRAM*       21/43     24/41 L
        A=FMT           0   EXTERNAL*       4/04 X   22/03
        A=FOU           0   EXTERNAL*       4/07 X   22/04
        A=FUN        2632   PROGRAM*       21/40     29/16     48/27    108/11 L
        A=ICC           0   EXTERNAL*       4/04 X   22/05
        A=ICCX          0   EXTERNAL*       4/04 X   22/06
        A=ICI           0   EXTERNAL*       4/04 X   22/07
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   188
        SYMBOLIC REFERENCE TABLE. 
  
        A=ICIX          0   EXTERNAL*       4/05 X   22/08
        A=ICL           0   EXTERNAL*       4/05 X   22/09
        A=IF         1607   PROGRAM*       21/41     52/45     58/18     72/22 L
        A=INF        2644   PROGRAM*       21/42     48/31    108/46 L
        A=LIST       1510   PROGRAM*       22/10     22/11     23/46     50/12     50/21     72/53 D
        A=PIX          65   PROGRAM*        9/07 L   21/46     50/50
        A=SBS        2122   PROGRAM*       21/48     48/42     50/48     85/48 L
        A=STFA       2716   PROGRAM*       21/49     48/29    111/03 L
        A=STFE       2751   PROGRAM*       21/50    112/35 L
        A=STR           0   EXTERNAL*       4/05 X   22/12
        A=UNT           0   EXTERNAL*       4/05 X   22/13     41/41
        BBC             0   EXTERNAL*       3/26 X  155/34
        BIFFUN        350   PROGRAM*       20/27 L  115/42
        BUFFWA        406   PROGRAM*       21/55 L   21/55 E
        BUFLWA        407   PROGRAM*       21/56 L   21/56 E
        BUFMOD        405   PROGRAM*       21/54 L   21/54 E
        B1=1            0 
        CALLARM       366   PROGRAM*       21/36 L   21/36 E
        CALLTAG         0   EXTERNAL*       3/26 X  107/09
        CATA           17   PROGRAM*        6/12 D   81/37 S   82/10
        CATB           20   PROGRAM*        6/13 D   81/43 S   81/46     82/01 S   82/04
        CATC         2033   PROGRAM*       81/55 S   82/02     82/09     82/21 L
        CAT1         2020   PROGRAM*       81/42     81/47     81/54 L
        CAT2         2031   PROGRAM*       81/33     81/34     82/18 L
        CBB          4012   PROGRAM*      153/16    153/20    155/24 L
        CCR             0   EXTERNAL*       3/16 X  104/29    104/40    154/05
        CDBB            0   EXTERNAL*       3/23 X  161/11
        CDI          4022   PROGRAM*       83/47     84/09    156/05 L
        CDIA         4036   PROGRAM*      155/57    156/08 S  156/36 L
        CDIFLG          0   EXTERNAL*       4/13 X   58/52     63/34 S   88/37 S
        CDIX         4020   PROGRAM*      155/56 L  156/20    156/25    156/28    156/30    172/50    173/18
        CDI00        4017   PROGRAM*      155/54 L  156/19    156/22    156/24    156/31
        CDI40        4031   PROGRAM*      156/17    156/22 L
        CDI50        4033   PROGRAM*      156/14    156/27 L  156/34
        CDI60        4035   PROGRAM*      156/15    156/33 L
        CDP          2262   PROGRAM*       89/46     90/06     90/24     92/22 L
        CDP2         2272   PROGRAM*       92/29     92/39 L
        CFC             0   EXTERNAL*       3/20 X   51/17
        CFUN5        2630   PROGRAM*      107/45    107/49 L
        CF=AC        2576   PROGRAM*      106/13 D  106/13 E
        CHARMAP         0   EXTERNAL*       3/26 X   55/35     58/22     58/27
        CH.DPCL        52   FTX            55/34     58/21
        CIL          4040   PROGRAM*       32/35     33/17    156/50 L
        CLC          4050   PROGRAM*      157/41 L  158/42
        CLC10        4055   PROGRAM*      157/49    157/53 L
        CLC80        4065   PROGRAM*      157/51    158/11 L
        CLM          4066   PROGRAM*       42/51    113/22    158/33 L
        CLMA         4075   PROGRAM*      158/35 S  158/41    158/47 L
        CML             0   EXTERNAL*       4/05 X   42/19
        CMLFLG         12   PROGRAM*        5/49 L   23/55 S   39/46     42/15     43/26     43/55     71/37
        CMR          4076   PROGRAM*       82/46     92/40     96/54    104/10    116/28    132/08    159/20 L  171/42
                                           87/26     94/07     97/29    116/20    130/25    158/36    159/20 E
        CMR30        4112   PROGRAM*      159/42    159/57 L
        CMR60        4116   PROGRAM*      159/37    159/47    160/09 L
        CMR90        4117   PROGRAM*      159/39    160/13 L
        CNF            30   PROGRAM*        7/04 L    7/04 E
        CNFARM        367   PROGRAM*        7/17     21/37 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   189
        SYMBOLIC REFERENCE TABLE. 
  
        CNF1           34   PROGRAM*        7/12      7/17 L
        CNTARM        410   PROGRAM*       21/57 L   21/57 E
        COD             0   EXTERNAL*       3/54 X
        COLOP         331   PROGRAM*       20/10 L   86/41    165/40
        COM3         1631   PROGRAM*       74/24     74/33 L
        COM4         1633   PROGRAM*       74/35     74/42 L
        CONONE          0   EXTERNAL*       4/22 X   26/11     30/12     48/44     90/08     94/10     97/27    137/35
                                            8/50     27/56     41/22     87/29     93/35     96/36    104/08
        CONZER          0   EXTERNAL*       4/22 X   53/50
        CONZERI         0   EXTERNAL*       4/27 X  137/49
        COR          4123   PROGRAM*       72/31     77/29     78/24     78/45    160/40 L
        CO.ANSI         0   EXTERNAL*       3/54 X  175/29
        CO.DBSB         0   EXTERNAL*       3/54 X   43/17    138/15
        CO.DBTB         0   EXTERNAL*       3/54 X  109/11
        CO.DOLG         0   EXTERNAL*       3/55 X  153/56
        CO.OPT          0   EXTERNAL*     179/55
        CO.RNDD         0   EXTERNAL*       3/54 X   75/45
        CO.RNDM         0   EXTERNAL*       3/54 X   75/44
        CO.SNAP         0   EXTERNAL*       3/54 X
        CRDIV         300   PROGRAM*       19/13 L   76/50
        CRL             0   EXTERNAL*       4/10 X  107/13
        CR.DAT         11   FTX            21/38
        CR.DEC         55   FTX            21/44     21/45
        CR.DOI          3   FTX            21/39     22/01
        CR.IF          55   FTX            21/41
        CR.INF          1   FTX            21/42
        CR.INP         22   FTX            22/11     41/53
        CR.IOU         25   FTX            22/13
        CR.OUT         27   FTX            22/10     41/51
        CR.PAR          1   FTX            21/36     21/40
        CR.REF         55   FTX            21/48     21/49     21/50
        CR.STR         23   FTX            31/42     60/56
        CR.VGOTO       55   FTX            21/47
        CSBS4        2117   PROGRAM*       85/25     85/29 L
        CSBS8        2121   PROGRAM*       85/27     85/35 L
        CSM          2155   PROGRAM*       85/10     85/49     87/15 L
        CSM1         2164   PROGRAM*       87/27     87/32 L
        CSYMBOL        13   PROGRAM*        5/51 L   31/33 S   39/33     45/37
        CSYREF         15   PROGRAM*        5/53 L   32/18     32/24     38/42     39/06     41/33
        CSYTAG         14   PROGRAM*        5/52 L   32/18     34/36 S   38/41 S   39/05 S   40/34     42/09
                                           32/17 S   34/30     35/25 S   38/42     39/06     41/45    149/19
        CSYWB          16   PROGRAM*        5/54 L   32/24     35/29 S   39/02 S   39/18 S   40/02    149/40
        CT1             0   EXTERNAL*       3/26 X   32/16     35/24     38/39     39/04    128/26    130/30    132/27
        CURST           4   PROGRAM*        5/40 L   43/21 S   77/20     89/11 S  179/40
                                            5/40 E   50/10 S   83/26 S  114/14 S
        C=ARRAY      3440   PROGRAM*       21/35    136/26 L
        C=BFWA          0   EXTERNAL*       4/05 X   21/55
        C=CALL       2605   PROGRAM*       21/36    106/23 L
        C=CERR       1556   PROGRAM*       21/37     21/43     21/54     21/56     22/12     68/40 E
                                           21/41     21/50     21/55     21/57     68/40 L
        C=CNT           0   EXTERNAL*       4/05 X   21/57
        C=DBD           0   EXTERNAL*       3/23 X   21/44     21/45
        C=DO         2201   PROGRAM*       21/39     89/03 L   92/06
        C=DOCI          0   EXTERNAL*       4/05 X   22/01
        C=DOCS          0   EXTERNAL*       4/05 X   22/02
        C=DVL           0   EXTERNAL*       3/20 X   21/38
        C=ERR        1557   PROGRAM*       68/42 L   68/42 E
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   190
        SYMBOLIC REFERENCE TABLE. 
  
        C=FMT           0   EXTERNAL*       4/06 X   22/03
        C=FOU           0   EXTERNAL*       4/07 X   22/04
        C=FUN        2623   PROGRAM*       21/40    107/37 L
        C=ICC           0   EXTERNAL*       4/06 X   22/05
        C=ICCX          0   EXTERNAL*       4/06 X   22/06
        C=ICI           0   EXTERNAL*       4/06 X   22/07
        C=ICIX          0   EXTERNAL*       4/06 X   22/08
        C=ICL           0   EXTERNAL*       4/06 X   22/09
        C=INF        2641   PROGRAM*       21/42    108/34 L
        C=IOL           0   EXTERNAL*       4/06 X   22/10     22/11
        C=PIX          64   PROGRAM*        9/04 L   21/46
        C=PJX           0   EXTERNAL*       4/10 X   21/47
        C=SBS        2107   PROGRAM*       21/48     85/09 L
        C=STFA       2715   PROGRAM*       21/49    110/49 L
        C=UNT           0   EXTERNAL*       4/06 X   22/13
        DATARM        370   PROGRAM*       21/38 L   21/38 E
        DATFLG          0   EXTERNAL*       3/26 X   90/54     95/36    138/14    157/07
                                           23/51     93/50    111/03    153/13
        DAT.Z           0   EXTERNAL*       3/20 X   24/25
        DBE          4130   PROGRAM*       26/10     27/01     27/55     30/11     40/56    153/37    161/10 L
        DDC          4135   PROGRAM*       96/02    161/38 L  175/31
        DDR             0   EXTERNAL*       4/13 X   83/12     91/08
        DEC             0   EXTERNAL*       3/16 X   26/43
        DH.DIML         6   FTX           145/04
        DH.MATP        70   FTX           138/57
        DIRT            0   EXTERNAL*       3/23 X   40/29
        DM.INFL        30   FTX           137/46    145/19    145/20    145/21    145/22    145/43    145/46    151/19
        DM.INFP         0   FTX           137/46    145/19    145/21    145/43
        DM.TDP         35   FTX           145/17    145/42
        DOA          4144   PROGRAM*       82/56     85/17     86/03     90/38    119/22    121/15    162/34 L  162/34 E
        DOARM         371   PROGRAM*       21/39 L   21/39 E
        DOA6         4161   PROGRAM*      162/49    163/06    163/14    163/38 L
        DOA8         4164   PROGRAM*      162/39    162/42    163/11    163/33    164/16 L
        DOC          2223   PROGRAM*       89/17     90/36 L
        DOCI.W          3   FTX            91/04     91/45     91/45 S   91/52
        DOCOLI        411   PROGRAM*       22/01 L   22/01 E
        DOCOLS        412   PROGRAM*       22/02 L   22/02 E
        DOC2         2237   PROGRAM*       90/56     91/10 L
        DOC4         2243   PROGRAM*       90/40     90/47     90/49     91/18 L
        DOC7         2244   PROGRAM*       91/13     91/22 L
        DOI          2221   PROGRAM*       89/20     90/24 L
        DOII.W          2   FTX            90/25     90/25 S   93/22
        DOL          2217   PROGRAM*       89/19     90/06 L
        DOLI.W          1   FTX            90/07     93/19     93/22
        DOMODE          0   EXTERNAL*       4/13 X   91/31 S   92/26
        DORT.W          4   FTX            91/52
        DOS          2213   PROGRAM*       89/18     89/40 L
        DOSI.W          0   FTX            89/47     93/18     93/19
        DOXA         2205   PROGRAM*       89/13     89/15 L
        DO.BEG        305   PROGRAM*       19/45 L   19/45 E
        DO.DPC          0   EXTERNAL*       3/31 X   89/08
        DO.END        311   PROGRAM*       19/49 L   91/22
        DO.ERR1      2211   PROGRAM*       89/22 L   89/26 L
        DO.IODL        22   FTX            59/07     88/32     88/33
        DO.IODP         0   FTX            88/32
        DO.W            5   FTX            59/02     88/31
        DP.TURCP        0   FTX            91/37
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   191
        SYMBOLIC REFERENCE TABLE. 
  
        DP.W            7   FTX            91/33     91/45     91/45 S
        DTC          2276   PROGRAM*       93/13 L   93/13 E
        DTCA         2325   PROGRAM*       93/21 S   94/08     94/13 L
        DTC10        2314   PROGRAM*       93/42     93/43     93/46 L
        DTC15        2315   PROGRAM*       93/40     93/49 L
        DTC20        2322   PROGRAM*       93/51     93/57     94/02     94/05 L
        DVLOP         316   PROGRAM*       19/56 L   19/56 E
        D1.SPANP        0   FTX           145/42    145/43
        D1.W            0   FTX           145/40
        D2.LBP         36   FTX           137/46    145/19
        D2.UBP          0   FTX           145/17    145/21
        D2.W            1   FTX           145/40
        EAL          3007   PROGRAM*      107/23    114/04    114/39 L  114/39 E
        EALA         3026   PROGRAM*      114/53 S  115/11    115/20 L
        EAL10        3014   PROGRAM*      114/51 L  115/14
        ECC          4167   PROGRAM*       30/16     81/51    164/50 L  164/50 E
        ECS          4172   PROGRAM*      158/03    164/52    165/30 L
        EMT          4207   PROGRAM*       58/51    115/05    139/35    155/04    166/30 E
                                          114/02    139/12    139/52    166/30 L
        EMT2         4212   PROGRAM*      166/32    166/34 L
        EMT4         4220   PROGRAM*      166/42    166/51 L
        EMT5         4221   PROGRAM*      166/49    166/52 L
        EQLA           17   PROGRAM*        6/04 D   82/41 S   84/44
        EQLB           20   PROGRAM*        6/05 D   83/39 S   83/43     84/42
        EQLC           21   PROGRAM*        6/06 D   83/40 S   84/41
        EQL30        2040   PROGRAM*       82/48     82/51 L
        EQL48        2050   PROGRAM*       82/57     83/07     83/15 L
        EQL50        2052   PROGRAM*       83/13     83/21 L
        EQL60        2064   PROGRAM*       83/46     83/50 L
        EQL65        2066   PROGRAM*       83/57 L   84/13     84/39
        EQL70        2067   PROGRAM*       84/01     84/04 L
        EQL75        2072   PROGRAM*       84/11 L   84/30
        EQL80        2074   PROGRAM*       84/11     84/15 L
        EQL85        2076   PROGRAM*       84/17     84/20 L
        EQL90        2102   PROGRAM*       84/07     84/32 L
        EQL99        2105   PROGRAM*       83/48     84/15     84/41 L  172/49    174/33
        EQL99.1      2106   PROGRAM*       83/16     83/36     84/44 L
        ERL=CON         0   EXTERNAL*       3/43 X   24/21    162/38
        ERL=XPR         0   EXTERNAL*       3/43 X  162/40
        ERROP         317   PROGRAM*       19/57 L   19/57 E   58/51     63/10     66/16    177/57
        ERT             0   EXTERNAL*       3/27 X   28/10     41/55
        ESF          3030   PROGRAM*      109/50    115/46 L
        ESFARM        404   PROGRAM*       21/50 L  112/25
        ESFBASE      3034   PROGRAM*      115/55    116/18    117/21    117/41    118/04    119/21
                                          116/07 L  116/47    117/32    117/45    118/37    120/06
        ESF9         3027   PROGRAM*      115/42 L  115/52    116/36    118/09    118/29    118/42    118/52    119/09
        ESTACK          0   EXTERNAL*       3/27 X   23/42     47/39     57/12
        ESY             0   EXTERNAL*       3/27 X   38/38     39/03
        ES=CMPL         0                 116/18 D  116/18 E
        ES=LEN          6                 116/47 D  116/47 E
        ES=LGE         20                 117/21 D  117/21 E
        ES=LGT         24                 117/32 D  117/32 E
        ES=LLE         27                 117/41 D  117/41 E
        ES=LLT         30                 117/45 D  117/45 E
        ES=LOCF        61                 119/21 D  119/21 E
        ES=MASK        32                 118/04 D  118/04 E
        ES=RANF        71                 120/06 D  120/06 E
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   192
        SYMBOLIC REFERENCE TABLE. 
  
        ES=SHIF        45                 118/37 D  118/37 E
        ES.LEN1      3045   PROGRAM*      116/50    116/53 L
        ES.LEN4      3051   PROGRAM*      117/02    117/07 L  119/31
        ES.LEN6      3053   PROGRAM*      117/04    117/12 L
        ES.LOC2      3120   PROGRAM*      119/23    119/26 L
        ES.MSK5      3072   PROGRAM*      118/10    118/13 L
        ES.MSK8      3075   PROGRAM*      117/14    118/22 L
        ES.MSK9      3077   PROGRAM*      118/08    118/11    118/14    118/28 L
        ES.SHF4      3110   PROGRAM*      118/50    118/51    118/54 L
        ES.SHF5      3113   PROGRAM*      118/41    118/47    119/07 L
        EXD          2454   PROGRAM*      101/09 L  101/09 E
        EXM          2462   PROGRAM*      100/31    100/37    100/43    100/49    101/36 L
        EXMA         2510   PROGRAM*      102/19    102/39 L
        EXMB         2517   PROGRAM*      102/09    103/15 L
        EXM2         2472   PROGRAM*      101/46    101/54 L
        EXM4         2476   PROGRAM*      102/11 L  102/32
        EXOPDS       2536   PROGRAM*      101/16 S  101/43 S  102/15    102/28 S  103/34 L  105/04
        EXPA           17   PROGRAM*        6/02 D   96/07 S   97/50    102/08 S  102/26    104/20 S  104/34    104/43
        EXPB           20   PROGRAM*        6/03 D  102/18 S  102/30    104/06 S  104/26    104/33
        EXPOP         345   PROGRAM*       20/24 L   95/37
        EXP10        2330   PROGRAM*       95/40 L   96/52     97/04
        EXP11        2332   PROGRAM*       95/44     95/47 L
        EXP20        2346   PROGRAM*       96/34     96/39 L
        EXP30        2356   PROGRAM*       96/12     97/14 L
        EXP32        2365   PROGRAM*       97/20     97/25 L
        EXP34        2366   PROGRAM*       97/21     97/26 L
        EXP35        2372   PROGRAM*       97/16     97/38 L
        EXP40        2375   PROGRAM*       96/41     97/15     97/40     97/50 L
        EXP60        2400   PROGRAM*       96/10     97/23     97/54     98/04 L  101/49    101/56    101/57
        EXP90        2420   PROGRAM*       96/01     99/24 L
        EXP.BASE     2416   PROGRAM*       95/54     98/42     98/44     98/46     99/16 L
                                           98/41     98/43     98/45     98/47
        EXP.IL         20                  95/28 D   95/29     95/30
        EXTFARM       372   PROGRAM*       21/40 L   44/43
        EXV          2545   PROGRAM*      101/17    101/48    103/57 L
        EXVF         2536   PROGRAM*      104/25    104/32    104/42 S  105/04 D  105/05
        EXVG         2537   PROGRAM*      104/15 S  104/31 S  104/50    105/05 D
        EXV4         2555   PROGRAM*      104/22 L  104/45
        EXV6         2561   PROGRAM*      104/24    104/32 L
        EXV7         2570   PROGRAM*      104/37    104/49 L
        EXV8         2575   PROGRAM*      104/51    105/01 L
        EXV9         2544   PROGRAM*      103/55 L  104/30    104/41
        E.ANS4          0   EXTERNAL*       3/33 X  161/52
        E.ANS5          0   EXTERNAL*       3/33 X  109/42    109/48
        E.AT01          0   EXTERNAL*       3/31 X  176/57    177/33    177/52
        E.AT02          0   EXTERNAL*       3/31 X   58/33
        E.AT03          0   EXTERNAL*       3/31 X   29/19
        E.AT04          0   EXTERNAL*       3/31 X   41/31     41/31
        E.AT05          0   EXTERNAL*       3/31 X   68/41
        E.AT06          0   EXTERNAL*       3/31 X   53/10     53/10
        E.AT07          0   EXTERNAL*       3/31 X  177/07
        E.AT08          0   EXTERNAL*       3/32 X   29/06
        E.AT09          0   EXTERNAL*       3/32 X    7/13
        E.AT10          0   EXTERNAL*       3/32 X   24/27
        E.AT11          0   EXTERNAL*       3/45 X  155/54
        E.AT13          0   EXTERNAL*       3/32 X  176/26
        E.AT14          0   EXTERNAL*       3/32 X  176/35
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   193
        SYMBOLIC REFERENCE TABLE. 
  
        E.AT15          0   EXTERNAL*       3/32 X   82/18
        E.AT16          0   EXTERNAL*       3/32 X   44/14     86/39
        E.AT17          0   EXTERNAL*       3/32 X   87/24
        E.AT18          0   EXTERNAL*       3/33 X   28/44
        E.AT19          0   EXTERNAL*       3/33 X  160/18
        E.AT20          0   EXTERNAL*       3/33 X   28/29
        E.AT21          0   EXTERNAL*       3/33 X   55/12
        E.DC1           0   EXTERNAL*       3/33 X   26/36
        E.DC4           0   EXTERNAL*       3/34 X   75/42
        E.DM01          0   EXTERNAL*       3/34 X   26/09     26/57     27/54     30/06
        E.DM11          0   EXTERNAL*       3/34 X  153/36
        E.DM14          0   EXTERNAL*       3/34 X   40/17
        E.DM17          0   EXTERNAL*       3/34 X   40/11
        E.DM18          0   EXTERNAL*       3/34 X   40/14
        E.DM21          0   EXTERNAL*       3/34 X   40/21
        E.DO00          0   EXTERNAL*       3/34 X   88/10     89/26
        E.DO02          0   EXTERNAL*       3/35 X   93/44
        E.DO04          0   EXTERNAL*       3/35 X   90/43
        E.DO15          0   EXTERNAL*       3/35 X   90/39     91/16
        E.DO16          0   EXTERNAL*       3/35 X   92/33
        E.DO17          0   EXTERNAL*       3/35 X   94/03
        E.DVL1          0   EXTERNAL*       3/35 X   24/24
        E.DVR5          0   EXTERNAL*       3/35 X  111/05
        E.INF           0   EXTERNAL*       3/36 X  119/24
        E.INF1          0   EXTERNAL*       3/36 X  118/28
        E.INF2          0   EXTERNAL*       3/36 X  119/07
        E.INF3          0   EXTERNAL*       3/36 X  116/51
        E.LP1           0   EXTERNAL*       3/37 X   62/20     71/17
        E.LP2           0   EXTERNAL*       3/37 X   69/06
        E.LP3           0   EXTERNAL*       3/37 X   47/40     57/13
        E.LV11          0   EXTERNAL*       3/37 X  157/12
        E.MDE2          0   EXTERNAL*      26/37     27/42     29/05     39/25
        E.MDE5          0   EXTERNAL*       3/43 X   39/43
        E.PX1           0   EXTERNAL*       3/37 X    8/47
        E.PX5           0   EXTERNAL*       3/37 X   27/23
        E.PX6           0   EXTERNAL*       3/37 X   10/24     10/43
        E.PX7           0   EXTERNAL*       3/37 X   96/35
        E.SB2           0   EXTERNAL*       3/38 X  150/30
        E.SB3           0   EXTERNAL*       3/38 X  150/37
        E.SB4           0   EXTERNAL*       3/38 X  151/20
        E.SB5           0   EXTERNAL*       3/38 X  151/29
        E.SB6           0   EXTERNAL*       3/38 X  151/33
        E.SB7           0   EXTERNAL*       3/38 X  137/30
        E.SF09          0   EXTERNAL*       3/38 X  111/29
        E.SF10          0   EXTERNAL*       3/38 X   45/19
        E.SF13          0   EXTERNAL*       3/44 X   43/09
        E.SF15          0   EXTERNAL*       3/44 X  113/27
        E.SU01          0   EXTERNAL*       3/39 X  184/19    184/19
        E.SU02          0   EXTERNAL*       3/39 X  126/22
        E.SU03          0   EXTERNAL*       3/39 X  125/01    133/38
        E.SU05          0   EXTERNAL*       3/39 X  128/46
        E.SU07          0   EXTERNAL*       3/39 X  133/20
        E.SU08          0   EXTERNAL*       3/39 X  126/09    126/25
        E.SU09          0   EXTERNAL*       3/39 X  128/52
        E.SU10          0   EXTERNAL*       3/39 X  107/17    107/17
        E.SU11          0   EXTERNAL*       3/40 X  107/46
        E.TY2           0   EXTERNAL*       3/40 X   37/22
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   194
        SYMBOLIC REFERENCE TABLE. 
  
        E.TY4           0   EXTERNAL*       3/40 X   10/26
        E.TY9           0   EXTERNAL*       3/40 X   37/16
        E.VA01          0   EXTERNAL*       3/40 X   35/22     35/22
        E.VA03          0   EXTERNAL*       3/40 X   33/23
        E.VA04          0   EXTERNAL*       3/40 X   33/51     34/51     38/08
        E.VA05          0   EXTERNAL*       3/40 X   34/07
        E.VA06          0   EXTERNAL*       3/41 X   34/19
        E.VA07          0   EXTERNAL*       3/41 X   34/54
        E.VA08          0   EXTERNAL*       3/41 X   33/02
        E.VA11          0   EXTERNAL*       3/41 X   61/05     83/15
        E.VA12          0   EXTERNAL*       3/41 X   46/09     46/09
        E.VA13          0   EXTERNAL*       3/41 X   35/33
        E.XP1           0   EXTERNAL*       3/42 X   99/21
        E.XP3           0   EXTERNAL*       3/42 X   97/22
        E.XP4           0   EXTERNAL*       3/42 X  100/28
        E.XP5           0   EXTERNAL*       3/42 X  103/55
        E.XP6           0   EXTERNAL*       3/42 X   99/22
        E.XP7           0   EXTERNAL*       3/42 X   97/19
        E.ZEMT          0   EXTERNAL*       3/42 X
        FAPOP         323   PROGRAM*       20/04 L  113/52
        FAT          4224   PROGRAM*      167/40 L  167/40 E
        FEC=EXU         0   EXTERNAL*       3/27 X   37/27
        FEXPR         172   PROGRAM*       14/14 L   24/11
        FILL.           0   EXTERNAL*       3/43 X   58/28 S   90/46 S  113/07 S  126/34 S  131/02
                                           31/31 S   86/12 S  111/23 S  124/20 S  129/49    161/15 S
        FILL.2          0   EXTERNAL*       3/43 X   55/38 S   89/12 S
        FILL.3          0   EXTERNAL*       3/43 X   24/23 S   91/17 S   92/32 S  160/17 S  164/23 S
        FMTARM        413   PROGRAM*       22/03 L   22/03 E
        FOUARM        414   PROGRAM*       22/04 L   22/04 E
        FSA          4234   PROGRAM*      125/46    168/15 L
        FUNCALL        25   PROGRAM*        6/23 L   34/26     98/18    108/55    109/16    109/19 S  117/08
        FUNOP         320   PROGRAM*       20/01 L  108/13    140/02
        FUNT         1155   PROGRAM*       44/38     44/40 L
        FUN.IN       1170   PROGRAM*       44/49     45/36 L
        FUN.IN1      1174   PROGRAM*       45/43     45/47 L
        FUN.IS       1162   PROGRAM*       44/46     45/16 L
        FUN.IS1      1165   PROGRAM*       45/18     45/22 L
        FUN.XU       1175   PROGRAM*       44/44     46/03 L
        FUN.XU4      1200   PROGRAM*       46/04     46/10 L
        FUN.XU5      1205   PROGRAM*       46/18     46/23 L
        F.CONO        122   PROGRAM*       13/16 L   25/29     48/14
        F.IMCV          0   EXTERNAL*       4/30 X  134/03
        F.INTF          0   EXTERNAL*       4/30 X   37/11    124/31    129/10    130/07    133/28
                                           34/25    117/07    128/41    129/30    132/54
        F.MODC          0   EXTERNAL*       4/30 X  159/24    177/19
        F.NEGOP       357   PROGRAM*       20/43 L
        F.POPNX       173   PROGRAM*       14/31 L   64/50
        F.PRIOR       242   PROGRAM*       18/13 L   25/32     47/56     49/38     54/10     61/02     76/53    152/16
        F.SKCR          0   EXTERNAL*       4/30 X  104/02    153/49
        F.SKNAM         0   EXTERNAL*       4/30 X
        GAPOP         324   PROGRAM*        6/23      6/25     20/05 L   20/05 E  125/36    139/12    139/27    139/52
        GCL             0   EXTERNAL*       4/22 X  169/33
        GDI          3606   PROGRAM*      137/28    144/48 L  145/39    148/13    150/25    151/26    151/47
        GFR          2774   PROGRAM*      108/24    109/28    113/50 L
        GOL          4242   PROGRAM*       81/57     82/03    117/03    157/47    169/11 L  169/11 E
        GOLA         4270   PROGRAM*      169/24 S  169/35    170/24 S  170/35 L
        GOLB         4271   PROGRAM*      170/05 S  170/22    170/36 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   195
        SYMBOLIC REFERENCE TABLE. 
  
        GOL10        4244   PROGRAM*      169/26 L  170/25
        GOL20        4245   PROGRAM*      169/29 L  169/54
        GOL30        4251   PROGRAM*      169/32    169/42 L
        GOL40        4264   PROGRAM*      170/14    170/22 L
        GOL50        4266   PROGRAM*      169/53    170/30 L
        IAC          3133   PROGRAM*      107/08    108/16    108/48    120/45 L
        IAPOP         325   PROGRAM*        6/24     20/06 L
        ICCARM        415   PROGRAM*       22/05 L   22/05 E
        ICCXARM       416   PROGRAM*       22/06 L   22/06 E
        ICIARM        417   PROGRAM*       22/07 L   22/07 E
        ICIXARM       420   PROGRAM*       22/08 L   22/08 E
        ICLARM        421   PROGRAM*       22/09 L   22/09 E
        IDCEX           0   EXTERNAL*       4/06 X   52/33
        IDIV          275   PROGRAM*       19/10 L   53/35
        IFARM         373   PROGRAM*       21/41 L   21/41 E
        IFMOD           0   EXTERNAL*       4/10 X   72/39 S
        IFRELT       1774   PROGRAM*       80/50     81/07 L
        IFREL2          0   EXTERNAL*       4/10 X   24/04 S   81/04 S  153/27 S
        IFRESLT         0   EXTERNAL*       4/10 X   72/38 S
        INFARM        374   PROGRAM*       21/42 L   44/48     44/54
        INFOP         321   PROGRAM*        6/24     20/02 L
        INSTF           0   EXTERNAL*       3/27 X   24/03 S   77/35     78/20    111/42    112/22    112/36
        INTEG         301   PROGRAM*       19/24 L  140/54    144/19    147/31    148/26
                                          101/12    143/01    146/15    147/42
        INTMAC        333   PROGRAM*       20/12 L  150/53
        IN.EXP        314   PROGRAM*       19/54 L  101/37
        IOARGM        422   PROGRAM*       22/10 L   22/10 E
        IOCTL         326   PROGRAM*       20/07 L   20/07 E
        IODIR           0   EXTERNAL*       4/07 X   41/50
        IODTA         327   PROGRAM*       20/08 L   20/08 E
        IOJ             0   EXTERNAL*       4/07 X   39/57
        IOL.RTN      1510   PROGRAM*       64/28 L   64/28 E
        IOUNT         330   PROGRAM*       20/09 L   20/09 E
        ISL             0   EXTERNAL*       4/13 X   54/45
        IT.ARGCL        3   FTX           100/05    100/08    100/11    100/14    100/26    100/46
                                          100/06    100/09    100/12    100/15    100/34    128/43
                                          100/07    100/10    100/13    100/16    100/40
        IT.ARGCP       16   FTX           128/44
        IT.ARGML        3   FTX            98/05    100/07    100/10    100/13    100/16    100/40    129/31
                                          100/05    100/08    100/11    100/14    100/26    100/46    133/30
                                          100/06    100/09    100/12    100/15    100/34    124/32    133/35 F
        IT.ARGMP        3   FTX            98/06     98/16    124/33    129/32    133/32    133/34
        IT.ATTRL        7   FTX           100/05    100/07    100/09    100/11    100/13    100/15    100/26    100/40
                                          100/06    100/08    100/10    100/12    100/14    100/16    100/34    100/46
        IT.BYNL         1   FTX           109/12
        IT.BYNP        25   FTX           109/12    109/14
        IT.CHARP       26   FTX           122/42
        IT.DPCL        44   FTX            95/57    100/07    100/10    100/13    100/16    100/40
                                          100/05    100/08    100/11    100/14    100/26    100/46
                                          100/06    100/09    100/12    100/15    100/34    122/19
        IT.DPCP        30   FTX           122/33
        IT.GNOP        27   FTX            37/12
        IT.JPADL       10   FTX           100/05    100/08    100/11    100/14    100/26    100/46
                                          100/06    100/09    100/12    100/15    100/34    115/47
                                          100/07    100/10    100/13    100/16    100/40    123/13
        IT.JPADP        6   FTX           115/48    115/50    123/15
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   196
        SYMBOLIC REFERENCE TABLE. 
  
        IT.MODEL        3   FTX           100/05    100/08    100/11    100/14    100/26    100/46    133/03
                                          100/06    100/09    100/12    100/15    100/34    122/57    133/07 F
                                          100/07    100/10    100/13    100/16    100/40    123/08    133/35 F
        IT.MODEP        0   FTX           123/15    133/34
        IT.PARL         1   FTX            97/53
        IT.PARP        21   FTX            97/53    115/50
        IT.XTERL        1   FTX           108/53
        IT.XTERP       23   FTX           108/53
        KCV             0   EXTERNAL*       3/16 X  159/44
        KW=COMM         0   EXTERNAL*       3/23 X   40/26
        KW.JMPL        22   FTX            40/24
        KW.JMPP        52   FTX            40/22
        LASTAD          6   PROGRAM*        5/43 L   64/47 S   77/26     78/14    160/49
        LASTOP          5   PROGRAM*        5/41 L   64/55 S   72/24     77/24     78/13     79/13
        LASTREL        11   PROGRAM*        5/48 L   80/01 S   80/41
        LBARM         376   PROGRAM*       21/44 L   21/44 E
        LCH             0   EXTERNAL*       3/16 X   80/15     81/38     85/52     92/24    118/39
                                           10/23     80/21     81/44     85/56    118/06    162/36
        LCT             0   EXTERNAL*       3/16 X   74/33     96/08    142/26    143/44    150/28    170/17
                                            8/38     75/35     97/18    143/30    146/28    159/41
                                           74/21     93/41    101/45    143/34    146/45    170/13
        LC.CNTL        22   FTX            59/03     88/24
        LC.DOL         22   FTX            88/25     88/26
        LC.DOP         44   FTX            88/25
        LDEAD           0   EXTERNAL*       3/27 X   24/02 S
        LGEOP         346   PROGRAM*       20/25 L  117/23    117/42
        LIBOP         322   PROGRAM*        6/23      6/25     20/03 L
        LIR             0   EXTERNAL*       3/16 X   96/40
        LLTOP         347   PROGRAM*       20/26 L  117/33    117/47
        LPARM         375   PROGRAM*       21/43 L   51/21
        LXX10        3055   PROGRAM*      117/25 L  117/39    117/48
        LXX20        3061   PROGRAM*      117/37 L  117/43
        MAD          3137   PROGRAM*      121/14 L  121/50
        MAXMUL          5                 102/50 D  103/18 D  103/20 D  103/22 D  103/24 D  103/26 D  103/28 D  103/30 D
                                          103/17    103/19    103/21    103/23    103/25    103/27    103/29    103/31
                                          103/17 D  103/19 D  103/21 D  103/23 D  103/25 D  103/27 D  103/29 D  103/31 D
                                          103/18    103/20    103/22    103/24    103/26    103/28    103/30    103/34
        MAX.CL      77777   FTX            10/27
        MAX.SARG      764   FTX           126/04
        MCVOP         334   PROGRAM*       20/13 L  110/32    159/57
        MDD             0   EXTERNAL*       3/48 X   82/54
        MDERR=          0   EXTERNAL*       4/19 X   26/37     27/42     29/05     39/25     39/43
        MF.BEF          3   FTX             6/24     44/51 L  123/11
        MF.INL          4   FTX            44/54 L
        MF.LIB          2   FTX             6/23      6/25     44/48 L
        MF.STF          1   FTX            44/46 L
        MF.USER         0   FTX            37/46 F   44/43 L
        MINUSOP       277   PROGRAM*       19/12 L   77/31
        MOD             0   EXTERNAL*       4/22 X   35/11     40/16
        MOD.DPC         0   EXTERNAL*       3/43 X   91/14     92/30    160/13    160/14
        MO.FUNL         1   FTX            35/12
        MO.FUNP        13   FTX            35/12
        MO.PROP        11   FTX            40/18
        MSP          3615   PROGRAM*      138/42    145/37 L
        MSPA           17   PROGRAM*        6/08 D  147/21 S  147/37
        MSP12        3632   PROGRAM*      146/29    146/43 L
        MSP16        3635   PROGRAM*      146/08    146/22    146/46    147/07 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   197
        SYMBOLIC REFERENCE TABLE. 
  
        MSP18        3636   PROGRAM*      146/41    147/01    147/08 L
        MSP20        3640   PROGRAM*      145/47    147/19 L
        MSP22        3643   PROGRAM*      147/24    147/28 L
        MSP28        3647   PROGRAM*      147/26    147/33    147/37 L
        MSP30        3651   PROGRAM*      147/12    147/42 L
        MULROP        312   PROGRAM*       19/52 L   19/52 E
        MULTOG       1365   PROGRAM*       53/27     54/54     55/05 L   66/47 S
        MVE=            0   EXTERNAL*       4/43 X  109/27    167/55
        M.BOOL          0   FTX            27/41     76/20     98/41 L  123/53    130/38    131/54    139/47
                                           29/40     87/21    118/17    124/36    130/44    132/38    139/50
                                           39/24     94/01    119/02    125/02    131/26    133/41    177/05
                                           45/49     95/43    119/36 F  129/35    131/39    133/48    177/11
        M.CHAR          6   FTX            10/13     44/10     81/32     98/47 L  123/21    130/54    158/39    176/21
                                           28/13     80/10     83/35    117/01    124/55    133/43    165/31    176/24
                                           41/48     81/31     84/25    119/26    125/05    155/32    165/31    176/29
        M.CPLX          5   FTX            51/28     76/44    100/07    100/13    100/15    100/46    136/06    161/48
                                           75/38     98/46 L  100/10    100/14    100/16    116/32    161/47
        M.DBL           4   FTX            10/37    100/06    100/11    100/13    130/22    136/07    161/47
                                           98/45 L  100/09    100/12    100/40    131/17    161/46    161/50
        M.INT           2   FTX             8/41     40/38     87/25     98/43 L  101/13    133/48    150/35
                                            8/52     53/31     93/56    100/05    117/13    138/29    150/39
                                           26/55     76/19     94/05    100/06    130/08    141/47    151/49
                                           27/02     85/24     95/45    100/07    130/15    147/09    165/39
                                           27/51     87/20     97/14    100/26    131/11    147/29    177/12
        M.LOG           1   FTX            80/30     98/42 L  130/56    176/52    176/53    177/02
        M.REAL          3   FTX            76/18     96/11     97/14    100/05    100/09    100/34    116/26    130/09
                                           76/45     96/50     98/44 L  100/08    100/10    116/19    130/04    131/07
        NBC             0   EXTERNAL*       3/16 X   27/05     28/23    159/48
        NCS             0   EXTERNAL*       3/16 X   29/42    101/15    139/48    147/30    151/50
                                            3/27 X   85/26    118/23    147/10    151/08
        NOINVERT        0   FTX            76/30 F
        NOOPP         335   PROGRAM*       20/14 L   20/14 E
        NOTLOP        313   PROGRAM*       19/53 L
        NSQZLH          0   EXTERNAL*       4/26 X   29/23 S
        N.CT            0   EXTERNAL*       4/22 X  157/53
        N.TYPE          7   FTX            54/48    107/43    121/44    176/24
        OCT             0   EXTERNAL*       3/16 X   26/38
        OMC          4272   PROGRAM*       67/07     80/03    152/23    171/26 L  171/26 E
        OMCA         4310   PROGRAM*      171/33 S  171/39    171/44    171/55    172/01    172/05 L
        OMC.RC       4305   PROGRAM*      171/38    172/03 D
        OMC.RR       4304   PROGRAM*      171/41 S  171/50 L
        OMC.X4       4307   PROGRAM*      171/57 L
        OMC.X5       4306   PROGRAM*      171/55 L  172/03
        OMI=CPX         0   EXTERNAL*       4/31 X  129/01
        OMI=LCF         0   EXTERNAL*       4/31 X  119/30
        OMI=LEN         0   EXTERNAL*       4/31 X  117/05
        OM=ADD          0   EXTERNAL*       4/31 X   18/15
        OM=AND          0   EXTERNAL*       4/31 X   18/31
        OM=CONV         0   EXTERNAL*       4/31 X   20/13
        OM=DIV          0   EXTERNAL*       4/31 X   18/18     19/10
        OM=DOC          0   EXTERNAL*       4/32 X   19/49
        OM=EQ           0   EXTERNAL*       4/32 X   18/25     20/50
        OM=EQV          0   EXTERNAL*       4/32 X   18/34
        OM=EXP       2407   PROGRAM*       95/42     98/39 L
        OM=GE           0   EXTERNAL*       4/32 X   18/24     18/27     20/47
        OM=INL          0   EXTERNAL*       4/32 X  115/51
        OM=LT           0   EXTERNAL*       4/32 X   18/23     18/28     20/48
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   198
        SYMBOLIC REFERENCE TABLE. 
  
        OM=MUL          0   EXTERNAL*       4/32 X   18/17     19/11
        OM=NE           0   EXTERNAL*       4/32 X   18/26     20/49
        OM=NOT          0   EXTERNAL*       4/33 X   18/30
        OM=OR           0   EXTERNAL*       4/33 X   18/35
        OM=STR          0   EXTERNAL*       4/33 X   18/41
        OM=SUB          0   EXTERNAL*       4/33 X   18/16     19/12
        OM=UMI          0   EXTERNAL*       4/33 X   18/19
        OM=XOR          0   EXTERNAL*       4/33 X   18/32     18/33
        OPBSS         336   PROGRAM*       20/15 L   20/15 E
        OPDUM         340   PROGRAM*       20/19 L   20/19 E  166/46
        OR.OPR          0   FTX            64/46    143/12    146/26    163/04    169/43    170/08
                                           78/26    143/28    163/03    167/02    169/49    179/43
        OR.1OP          1   FTX            77/33     78/47    143/31    146/26    146/57    166/41    170/06    180/23
                                           78/26    143/12    143/37    146/40    163/04    167/02    170/08    181/29
                                           78/28    143/28    143/52    146/43    163/31    169/49    170/12    181/30
        OR.2OP          2   FTX            78/28    143/52    146/43    166/39    170/06    180/16    181/30
                                          143/31    146/40    146/57    166/41    170/12    180/23    182/36
        OSE             0   EXTERNAL*       3/43 X  137/30    150/37    151/35    151/42
        OSTACK          0   EXTERNAL*       3/27 X   23/54     24/08 S   60/36
        O.AND          31   FTX            13/19     13/22     13/25     13/30     14/04     15/04 L
                                           13/20     13/23     13/27     13/47 L   14/06     18/31 L
                                           13/21     13/24     13/29     13/55     14/12
        O.ARY          60   FTX            19/55
        O.BOTH         57   FTX            19/45     19/47     19/49     20/09     20/22     20/25     20/27
                                           19/46     19/48     20/08     20/11     20/23     20/26
        O.CAT          36   FTX            13/22     13/24     13/27     13/55     14/06     18/37 L
                                           13/23     13/25     13/52 L   14/04     15/09 L
        O.CHAR          4   FTX            13/22 L   13/25     13/41     13/44     13/49     13/52     14/01     14/15
                                           13/23     13/39     13/42     13/47     13/50     13/54     14/03     14/37 L
                                           13/24     13/40     13/43     13/48     13/51     13/57     14/06
        O.COLON        43   FTX            13/19     13/23     13/27     14/02 L   14/12     20/10
                                           13/20     13/24     13/54     14/04     15/15 L   48/40
                                           13/21     13/25     13/55     14/06     18/43 L   48/50
        O.COMMA        42   FTX            13/19     13/23     13/29     14/04     18/42 L   32/56     58/37
                                           13/20     13/24     13/30     14/06     32/46     33/39     61/10
                                           13/21     13/25     13/55     14/12     32/48     33/40     89/41
                                           13/22     13/27     14/01 L   15/14 L   32/54     49/24
        O.CONS          5   FTX            13/23 L   13/26     13/35     13/40     13/44     13/49     13/57     14/06
                                           13/23     13/32     13/36     13/41     13/46     13/50     14/01     14/15
                                           13/24     13/33     13/37     13/42     13/47     13/51     14/02     14/38 L
                                           13/25     13/34     13/39     13/43     13/48     13/54     14/03     54/36
        O.DEF           0   FTX            13/17     13/24     13/32     13/39     13/46     13/52     14/03     25/29
                                           13/19     13/25     13/33     13/40     13/47     13/54     14/04     48/14
                                           13/20     13/26     13/34     13/41     13/48     13/55     14/06     64/50
                                           13/21     13/27     13/35     13/42     13/49     13/57     14/12
                                           13/22     13/29     13/36     13/43     13/50     14/01     14/15
                                           13/23     13/30     13/37     13/44     13/51     14/02     14/32
        O.DIV          17   FTX            13/19     13/23     13/27     14/04     14/49 L   76/02     76/55
                                           13/20     13/24     13/35 L   14/06     18/18 L   76/24     93/46
                                           13/21     13/25     13/55     14/12     19/13     76/24    104/53
        O.DOBI         47   FTX            14/01     32/48     63/28
        O.DOCI         50   FTX            63/26
        O.ENDNX        47   FTX            25/52
        O.EOS           0   FTX            13/18 L   13/22     13/27     14/01     14/12     25/26     58/46    107/18
                                           13/19     13/23     13/29     14/02     14/33 L   32/56     60/42    107/19
                                           13/20     13/24     13/30     14/04     24/06     48/50     61/25
                                           13/21     13/25     13/55     14/06     24/29     49/12     62/43
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   199
        SYMBOLIC REFERENCE TABLE. 
  
        O.EQ           24   FTX            13/19     13/22     13/25     13/55     14/12     20/49 L   81/01
                                           13/20     13/23     13/27     14/04     14/55 L   20/50
                                           13/21     13/24     13/41 L   14/06     18/25 L   80/45
        O.EQV          34   FTX            13/19     13/22     13/25     13/30     14/04     15/07 L
                                           13/20     13/23     13/27     13/50 L   14/06     18/34 L
                                           13/21     13/24     13/29     13/55     14/12
        O.ERR          65   FTX            19/57     61/22
        O.EXP          21   FTX            13/23     13/25     13/37 L   14/04     14/12     18/21 L
                                           13/24     13/27     13/55     14/06     14/51 L   19/54
        O.FALSE        13   FTX            13/23     13/30 L   13/48     13/51     14/01     14/15
                                           13/24     13/46     13/49     13/54     14/03     14/44 L
                                           13/25     13/47     13/50     13/57     14/06     26/16
        O.GE           23   FTX            13/19     13/22     13/25     13/55     14/12     20/47
                                           13/20     13/23     13/27     14/04     14/54 L   20/48 L
                                           13/21     13/24     13/40 L   14/06     18/24 L   79/38
        O.GT           27   FTX            13/19     13/22     13/25     13/55     14/12     20/51
                                           13/20     13/23     13/27     14/04     15/01 L   20/52 L
                                           13/21     13/24     13/44 L   14/06     18/28 L   79/41
        O.HEX           7   FTX            13/23     13/32     13/36     13/41     13/46     13/50     14/01     14/15
                                           13/24     13/33     13/37     13/42     13/47     13/51     14/02     14/40 L
                                           13/25 L   13/34     13/39     13/43     13/48     13/54     14/03
                                           13/25     13/35     13/40     13/44     13/49     13/57     14/06
        O.HOLL          1   FTX            13/19 L   13/32     13/36     13/41     13/46     13/50     14/01     14/15
                                           13/23     13/33     13/37     13/42     13/47     13/51     14/02     14/34 L
                                           13/24     13/34     13/39     13/43     13/48     13/54     14/03
                                           13/25     13/35     13/40     13/44     13/49     13/57     14/06
        O.ILL          46   FTX            14/06 L   15/19 L   18/46 L   24/30     64/51
        O.ILP          44   FTX            45/38
        O.LE           26   FTX            13/19     13/22     13/25     13/55     14/12     20/51 L
                                           13/20     13/23     13/27     14/04     14/57 L   20/52
                                           13/21     13/24     13/43 L   14/06     18/27 L   79/38
        O.LP           37   FTX            13/23     13/35     13/43     13/51     14/02     28/41     34/03     42/18
                                           13/24     13/36     13/44     13/52     14/03     32/25     35/28     47/56
                                           13/25     13/37     13/46     13/54 L   14/06     32/42     38/09     51/22
                                           13/27     13/39     13/47     13/54     14/15     32/44     38/14     52/23
                                           13/32     13/40     13/48     13/55     15/11 L   32/52     38/29     62/16
                                           13/33     13/41     13/49     13/57     18/39 L   33/39     41/01    178/31
                                           13/34     13/42     13/50     14/01     28/26     33/55     41/10
        O.LT           22   FTX            13/19     13/22     13/25     13/55     14/12     20/44     79/41
                                           13/20     13/23     13/27     14/04     14/53 L   20/47 L
                                           13/21     13/24     13/39 L   14/06     18/23 L   20/48
        O.MIN          15   FTX            13/19     13/25     13/41     13/47     13/54     14/03     14/47 L   78/18
                                           13/20     13/27     13/42     13/48     13/55     14/04     18/16 L   93/27
                                           13/21     13/33 L   13/43     13/49     13/57     14/06     19/12
                                           13/23     13/39     13/44     13/50     14/01     14/12     19/28
                                           13/24     13/40     13/46     13/51     14/02     14/15     20/32
        O.MODC         61   FTX            20/12     20/13
        O.MULT         16   FTX            13/19     13/23     13/27     14/04     14/48 L   19/52     76/53
                                           13/20     13/24     13/34 L   14/06     18/17 L   20/33     76/55
                                           13/21     13/25     13/55     14/12     19/30     76/02
        O.NE           25   FTX            13/19     13/22     13/25     13/55     14/12     20/49
                                           13/20     13/23     13/27     14/04     14/56 L   20/50 L
                                           13/21     13/24     13/42 L   14/06     18/26 L   81/01
        O.NEGOP        22                  20/45 L
        O.NEQV         33   FTX            13/19     13/22     13/25     13/30     14/04     15/06 L
                                           13/20     13/23     13/27     13/49 L   14/06     18/33 L
                                           13/21     13/24     13/29     13/55     14/12
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   200
        SYMBOLIC REFERENCE TABLE. 
  
        O.NONE         54   FTX            19/56     20/01     20/02     20/03     20/04     20/15     20/19     20/24
        O.NOT          30   FTX            13/23     13/46 L   13/48     13/51     14/01     14/06     18/30 L
                                           13/24     13/46     13/49     13/54     14/02     14/15     19/53
                                           13/25     13/47     13/50     13/57     14/03     15/03 L   79/14
        O.OCT           6   FTX            13/23     13/32     13/36     13/41     13/46     13/50     14/01     14/15
                                           13/24 L   13/33     13/37     13/42     13/47     13/51     14/02     14/39 L
                                           13/24     13/34     13/39     13/43     13/48     13/54     14/03
                                           13/25     13/35     13/40     13/44     13/49     13/57     14/06
        O.OR           35   FTX            13/19     13/22     13/25     13/30     14/04     15/08 L
                                           13/20     13/23     13/27     13/51 L   14/06     18/35 L
                                           13/21     13/24     13/29     13/55     14/12
        O.PERIOD       10   FTX            13/23     13/32     13/36     13/41     13/46     13/50     14/01     14/15
                                           13/24     13/33     13/37     13/42     13/47     13/51     14/02     14/41 L
                                           13/25     13/34     13/39     13/43     13/48     13/54     14/03
                                           13/26 L   13/35     13/40     13/44     13/49     13/57     14/06
        O.PL           14   FTX            13/19     13/25     13/41     13/47     13/54     14/03     14/46 L
                                           13/20     13/27     13/42     13/48     13/55     14/04     18/15 L
                                           13/21     13/32 L   13/43     13/49     13/57     14/06     19/27
                                           13/23     13/39     13/44     13/50     14/01     14/12     20/34
                                           13/24     13/40     13/46     13/51     14/02     14/15     93/31
        O.QHOLL         2   FTX            13/20 L   13/32     13/36     13/41     13/46     13/50     14/01     14/15
                                           13/23     13/33     13/37     13/42     13/47     13/51     14/02     14/35 L
                                           13/24     13/34     13/39     13/43     13/48     13/54     14/03
                                           13/25     13/35     13/40     13/44     13/49     13/57     14/06
        O.RLCON         3   FTX            13/21 L   13/32     13/36     13/41     13/46     13/50     14/01     14/15
                                           13/23     13/33     13/37     13/42     13/47     13/51     14/02     14/36 L
                                           13/24     13/34     13/39     13/43     13/48     13/54     14/03
                                           13/25     13/35     13/40     13/44     13/49     13/57     14/06
        O.RP           40   FTX            13/19     13/24     13/55 L   14/12     32/54     48/40     71/11
                                           13/20     13/25     13/55     15/12 L   33/55     50/46     85/13
                                           13/21     13/27     14/02     18/40 L   38/09     58/14    178/33
                                           13/22     13/29     14/04     27/17     41/12     58/39
                                           13/23     13/30     14/06     32/52     48/22     62/37
        O.SEP          14   FTX            18/14     25/32     47/56     49/38     54/10     61/02     76/53    152/16
        O.SLP          44   FTX             8/29     13/24     14/06     18/44 L   33/41     43/34     45/28    112/27
                                           10/02     13/25     14/15     32/44     34/03     43/34     46/23    175/51
                                           13/23     14/03 L   15/16 L   32/46     38/14     44/09     62/15
        O.SPACE        53   FTX            20/14
        O.STAR         16   FTX            14/01     14/02     14/03
        O.STFA         45   FTX            13/32     13/36     13/41     13/46     13/50     13/57     14/04 L
                                           13/33     13/37     13/42     13/47     13/51     14/01     14/15
                                           13/34     13/39     13/43     13/48     13/52     14/02     15/18 L
                                           13/35     13/40     13/44     13/49     13/54     14/03     18/45 L
        O.TRUE         12   FTX            13/23     13/29 L   13/48     13/51     14/01     14/15     26/16
                                           13/24     13/46     13/49     13/54     14/03     14/43 L
                                           13/25     13/47     13/50     13/57     14/06     26/15
        O.UMIN         20   FTX            13/23     13/25     14/06     18/19 L   54/10     77/25
                                           13/24     13/36 L   14/50 L   19/29     54/11     78/19
        O.VAR          11   FTX            13/23     13/32     13/37     13/43     13/49     13/55     14/06     60/57
                                           13/24     13/33     13/39     13/44     13/50     13/57     14/15
                                           13/25     13/34     13/40     13/46     13/51     14/01     14/42 L
                                           13/27 L   13/35     13/41     13/47     13/52     14/02     31/35
                                           13/27     13/36     13/42     13/48     13/54     14/03     52/43
        O.XOR          32   FTX            13/19     13/22     13/25     13/30     14/04     15/05 L
                                           13/20     13/23     13/27     13/48 L   14/06     18/32 L
                                           13/21     13/24     13/29     13/55     14/12
        O.1ST          55   FTX            20/05     20/06     20/16     20/20     20/35
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   201
        SYMBOLIC REFERENCE TABLE. 
  
        O.2ND          56   FTX            20/07     20/21
        O.=            41   FTX            13/23     13/25     13/55     14/06     18/41 L   20/31     61/02    179/34
                                           13/24     13/27     13/57 L   15/13 L   20/30     60/55    154/32
        PAR           426   PROGRAM*        7/22      8/32     10/05     23/35 L   23/35 E
        PAREX        1404   PROGRAM*       25/53     27/18     27/24     48/43     48/53     50/52     54/38     58/09 L
                                           25/54     27/21     48/32     48/51     50/22     54/33     54/41
        PAREXIT      1457   PROGRAM*        9/08     50/15     61/23     61/41 E   88/09
                                           50/13     61/12     61/41 L   72/40
        PAREX1       1406   PROGRAM*       58/14 L   58/19
        PAREX10      1416   PROGRAM*       58/29     58/32 L
        PAREX11      1420   PROGRAM*       24/33     54/46     58/37 L
        PAREX13      1422   PROGRAM*       58/38     58/42 L
        PAREX15      1423   PROGRAM*       58/40     58/44 L
        PAREX16      1424   PROGRAM*       58/45     58/49 L
        PAREX17      1433   PROGRAM*       58/53     59/10 L
        PAREX2       1410   PROGRAM*       58/12     58/18 L
        PAREX3       1411   PROGRAM*       52/51     58/15     58/21 L
        PAREX5       1413   PROGRAM*       58/23     58/26 L
        PARMODE         0   EXTERNAL*       3/27 X    8/21 S    9/48 S   23/39
        PARNOW          0   PROGRAM*        5/36 L   23/41 S   26/51     35/14     96/32    116/48
                                            5/36 E   24/18     27/44     40/06    109/39    153/25
                                            8/34 S   26/06     30/01     80/04    109/45
        PARPA           0   EXTERNAL*       5/35 D   39/55 S   40/01
        PAR1          437   PROGRAM*       23/50     23/52     23/54 L
        PAR5          453   PROGRAM*       24/20     24/27 L
        PAR.ADOP     1400   PROGRAM*       55/50     57/10 L   61/04     74/48     76/26
        PAR.CAT      1371   PROGRAM*       13/52     55/40 L
        PAR.CHR       574   PROGRAM*       13/22     29/57 L
        PAR.CHR1      602   PROGRAM*       28/43     28/47     30/10     30/16 L
        PAR.CM       1247   PROGRAM*       14/01     49/09 L
        PAR.CM5      1250   PROGRAM*       49/17 L   49/32     50/47     50/49     50/51
        PAR.CM7      1256   PROGRAM*       49/23     49/36 L
        PAR.CM8      1264   PROGRAM*       50/07     50/12 L
        PAR.CM9      1267   PROGRAM*       49/11     50/21 L
        PAR.COL      1271   PROGRAM*       14/02     50/39 L
        PAR.DEC       503   PROGRAM*       13/23     13/26     26/42 L
        PAR.DIV      1332   PROGRAM*       13/35     53/24 L
        PAR.DLP      1306   PROGRAM*       14/03     51/41 L
        PAR.EOS      1435   PROGRAM*       13/18     24/28     25/25     60/35 L   62/29     62/32
        PAR.EOS1     1443   PROGRAM*       60/48     60/52 L
        PAR.EOS3     1450   PROGRAM*       60/40     61/09 L   69/04
        PAR.EOS4     1456   PROGRAM*       61/16     61/25 L
        PAR.EOS6     1460   PROGRAM*       60/38     62/10 L
        PAR.EOS7     1464   PROGRAM*       62/19     62/23 L
        PAR.EOS8     1470   PROGRAM*       62/18     62/34 L
        PAR.EOS9     1473   PROGRAM*       62/36     62/41 L
        PAR.EQL      1324   PROGRAM*       13/57     53/04 L
        PAR.EQL2     1330   PROGRAM*       53/09     53/14 L
        PAR.ERR      1404   PROGRAM*       14/12     14/15     50/45     58/07 L
        PAR.FAL       466   PROGRAM*       13/30     26/05 L
        PAR.FAL1      473   PROGRAM*       26/08     26/15 L
        PAR.FUN      1151   PROGRAM*       33/35     34/55     37/39     37/55     39/07     44/25 L
        PAR.HOL       553   PROGRAM*       13/19     13/20     13/21     29/04 L
        PAR.HOL1      564   PROGRAM*       29/15     29/17     29/22 L
        PAR.HOL2      565   PROGRAM*       29/20     29/25 L
        PAR.HOL5      570   PROGRAM*       29/12     29/35 L
        PAR.LP       1276   PROGRAM*       13/54     51/08 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   202
        SYMBOLIC REFERENCE TABLE. 
  
        PAR.LP2      1300   PROGRAM*       51/11     51/16 L
        PAR.LP5      1304   PROGRAM*       51/19     51/27 L
        PAR.MIN      1343   PROGRAM*       13/33     54/04 L
        PAR.MULT     1347   PROGRAM*       13/34     54/23 L
        PAR.MU10     1362   PROGRAM*       54/29     54/54 L
        PAR.NX        461   PROGRAM*       21/37     26/25     33/30     38/30     44/17     50/24     57/19
                                           21/47     27/13     33/50     41/27     48/16     53/12     59/14
                                           24/13     30/18     34/34     43/01     48/38     53/17    113/26
                                           25/22 L   33/06     34/48     43/08     48/48     54/52    113/28
                                           25/22 E   33/15     36/35     43/10     50/17     56/15    136/35
        PAR.OCT       477   PROGRAM*       13/24     13/25     26/35 L
        PAR.PL       1337   PROGRAM*       13/32     53/44 L
        PAR.RP       1311   PROGRAM*       13/55     52/21 L
        PAR.RP1      1320   PROGRAM*       52/28     52/43 L
        PAR.RP2      1322   PROGRAM*       52/34     52/36     52/48 L
        PAR.SBS      1140   PROGRAM*       33/20     36/51     38/34     43/48 L   51/14
        PAR.SBS5     1142   PROGRAM*       43/56     43/57     44/04 L
        PAR.SPS      1206   PROGRAM*       43/35     45/29     46/24     51/25    112/28
                                           44/13     45/50     47/31 L   51/47
        PAR.SPS1     1235   PROGRAM*       48/28     48/30     48/33 L
        PAR.SPS2     1237   PROGRAM*       48/26     48/40 L
        PAR.SPS5     1243   PROGRAM*       48/41     48/50 L
        PAR.STD      1367   PROGRAM*       13/36     13/41     13/46     13/51     52/49     53/49     55/03
                                           13/37     13/42     13/47     52/41     53/15     53/54     55/33 L
                                           13/39     13/43     13/49     52/44     53/34     54/09     56/14
                                           13/40     13/44     13/50     52/46     53/36     54/12
        PAR.STFD     1113   PROGRAM*       14/04     42/31 L
        PAR.STOP     1475   PROGRAM*       14/06     24/31     45/20     59/08     59/13     63/10 L   69/08    111/32
        PAR.SUB      1130   PROGRAM*       32/32     43/17 L
        PAR.SUB1     1133   PROGRAM*       43/18     43/23 L
        PAR.SUB2     1136   PROGRAM*       43/27     43/28     43/32 L
        PAR.TRU       466   PROGRAM*       13/29     26/04 L
        PAR.VAR       604   PROGRAM*       13/27     31/26 L
        PAR.VAR2      611   PROGRAM*       31/36     31/39 L
        PAR.VAR7     1112   PROGRAM*       42/16     42/24 L
        PAR.XOR      1366   PROGRAM*       13/48     55/12 L
        PCC             0   EXTERNAL*       3/16 X   81/49
        PCR             0   EXTERNAL*       3/17 X   80/26
        PCR.RO          0   EXTERNAL*       3/17 X   80/13 S
        PCR.1OP         0   EXTERNAL*       3/17 X   80/18 S
        PCR.2OP         0   EXTERNAL*       3/17 X   80/24 S
        PDA             0   EXTERNAL*       4/13 X   46/21
        PDC             0   EXTERNAL*       3/48 X   76/34
        PDM             0   EXTERNAL*       4/19 X   33/02     41/31     68/41     88/10     97/25    113/27    155/54
                                            8/47     33/23     42/57     69/07     89/26     99/24    116/51    157/12
                                           10/56     34/39     44/14     75/42     91/18    100/28    118/28    161/17
                                           24/24     34/51     45/19     82/18     92/33    103/55    119/07    176/27
                                           24/27     34/54     46/09     82/50     93/44    107/17    119/24    176/57
                                           28/29     35/22     53/10     83/15     94/03    107/46    125/01    178/01
                                           28/44     37/16     58/35     86/39     96/35    111/05    126/35    184/19
                                           29/19     37/22     61/05     87/28     97/22    111/29    129/09
        PIX            40   PROGRAM*        8/16 L    8/16 E
        PIXA           62   PROGRAM*        8/26 S    8/35      8/55 L   11/11
        PIXARM        400   PROGRAM*        8/19      9/49     21/46 L
        PIXB           63   PROGRAM*        8/18 S    8/44      8/56 L
        PIX8           55   PROGRAM*        8/39      8/44 L
        PIX9           60   PROGRAM*        8/50 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   203
        SYMBOLIC REFERENCE TABLE. 
  
        PJXARM        401   PROGRAM*       21/47 L   21/47 E
        PKX            66   PROGRAM*        9/47 L    9/47 E
        PKXA           62   PROGRAM*        9/54 S   11/04     11/11 D
        PKXB          121   PROGRAM*        9/57 S   10/53     11/12 L
        PKX6          107   PROGRAM*       10/20     10/37 L
        PKX7          111   PROGRAM*       10/40     10/43 L
        PKX8          114   PROGRAM*       10/25     10/29     10/44     10/53 L
        PKX9          117   PROGRAM*       10/47     10/49     11/04 L
        PM=CXP          2   FTX            80/07
        PM=DATA         5   FTX            24/19     35/16     90/55    109/40    153/14
        PM=DIM          3   FTX            26/07     26/52     27/45     30/09     35/15     35/16     40/08    153/28
        PM=EXPR         0   FTX            23/45
        PM=ICE          1   FTX             8/20
        PM=PARM         7   FTX            80/05     96/33    109/46    116/49
        POP          1510   PROGRAM*       49/30     50/02     56/05     61/28     62/27     62/45     64/30 L
        POPDPC          7   PROGRAM*        5/45 L   49/29 S   56/04     62/26     71/06     74/46
                                            5/46     56/02 S   56/13     62/42 S   73/39     75/49
        POPPER         10   PROGRAM*        5/46 D   56/11     62/25 S   62/28     66/41     74/44     76/08 S
                                           56/04     56/13     62/26     62/39 S   71/55 S   74/46
        POP=COM      1620   PROGRAM*       73/39 L   77/23     77/27     77/30     77/48     79/26
        POP=UNO      1724   PROGRAM*       78/21     78/25     78/43     78/46     79/01 L
        POP=UNR      1717   PROGRAM*       78/22     78/42 L   79/15
        POP.CAT      2003   PROGRAM*       15/09     81/26 L
        POP.CM       1552   PROGRAM*       15/14     68/15 L
        POP.COL      1552   PROGRAM*       15/15     68/14 L
        POP.DIV      1636   PROGRAM*       14/49     75/33 L
        POP.DVA      1674   PROGRAM*       76/33 S   76/35     77/05 L   77/05 E
        POP.DV1      1642   PROGRAM*       75/39     75/42 L
        POP.DV10     1661   PROGRAM*       75/48     75/55     76/21     76/28 L
        POP.DV15     1665   PROGRAM*       76/31     76/39 L
        POP.DV2      1643   PROGRAM*       75/36     75/37     75/40     75/44 L
        POP.DV20     1671   PROGRAM*       76/36     76/53 L
        POP.DV25     1672   PROGRAM*       76/29     76/48     76/49     76/51     76/55 L
        POP.DV5      1654   PROGRAM*       75/57     76/14 L
        POP.EQL      2034   PROGRAM*       15/13     82/39 L
        POP.ERR      1537   PROGRAM*       14/33     14/36     14/39     14/42     15/18     68/43
                                           14/34     14/37     14/40     14/43     15/19     82/19
                                           14/35     14/38     14/41     14/44     66/15 L
        POP.EXP      2326   PROGRAM*       14/51     95/35 L
        POP.GT       1732   PROGRAM*       15/01     79/41 L
        POP.JP       1536   PROGRAM*       65/14     65/50     66/05 L
        POP.LE       1731   PROGRAM*       14/57     79/38 L
        POP.LOG      1727   PROGRAM*       15/04     15/05     15/06     15/07     15/08     79/23 L
        POP.MUL      1620   PROGRAM*       14/48     77/48 D
        POP.NOT      1725   PROGRAM*       15/03     79/12 L
        POP.PL       1675   PROGRAM*       14/46     77/19 L
        POP.PL4      1706   PROGRAM*       77/36     77/39 L
        POP.PN       1565   PROGRAM*       15/11     15/16     71/04 L
        POP.PN1      1602   PROGRAM*       71/41     71/44 L
        POP.REL      1735   PROGRAM*       14/53     14/54     14/55     14/56     79/51 L
        POP.RP       1560   PROGRAM*       15/12     68/57 L
        POP.RP1      1562   PROGRAM*       69/03     69/05 L
        POP.RP5      1563   PROGRAM*       47/41     57/14     62/21     69/07 L   71/18
        POP.SDIV     1625   PROGRAM*       74/03 L   76/10
        POP.STD      1542   PROGRAM*       14/47     66/35 E   73/48     74/43     77/40     79/27     84/45    141/20
                                           66/35 L   73/45     73/54     77/03     79/04     82/16     95/38
        POP.ST0      1545   PROGRAM*       66/46     66/49 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   204
        SYMBOLIC REFERENCE TABLE. 
  
        POP.ST1      1546   PROGRAM*       66/21     67/04 L  110/05    114/16
        POP.UM       1707   PROGRAM*       14/50     78/12 L
        PR.AND         32                  16/19 L   18/31
        PR.CAT         43                  16/22 L   18/37
        PR.COL         21                  16/13 L   18/43
        PR.COM         16                  16/12 L   18/42
        PR.DIV         54                  16/27 L   18/18
        PR.EQUAL       13                  16/08 L   16/09     18/41
        PR.EQV         24                  16/14 L   16/16     18/34
        PR.EXP         57                  16/30 L   18/21
        PR.IDIV        53                  16/29 L   19/10
        PR.ILL         62                  16/31 L   18/44     18/45     18/46
        PR.LPAR        10                  16/07 L   18/39
        PR.MI          46                  16/24 L   18/16
        PR.MULT        54                  16/26 L   16/27     16/28     16/29     18/17     66/45
        PR.NEQV        24                  16/17 L
        PR.NOT         35                  16/20 L   18/30
        PR.OR          27                  16/18 L   18/35
        PR.PL          46                  16/23 L   16/24     18/15
        PR.REL         40                  16/21 L   18/23     18/24     18/25     18/26     18/27     18/28
        PR.RPAR         5                  16/06 L   18/40
        PR.SDIV        56                  16/28 L   19/11
        PR.SET         65                  16/04 D   16/08     16/13     16/18 D   16/21     16/23     16/26 D
                                           16/06     16/08     16/13 D   16/19     16/21     16/23 D   16/30
                                           16/06     16/08 D   16/14     16/19     16/21 D   16/25     16/30
                                           16/06 D   16/12     16/14     16/19 D   16/22     16/25     16/30 D
                                           16/07     16/12     16/14 D   16/20     16/22     16/25 D   16/31
                                           16/07     16/12 D   16/18     16/20     16/22 D   16/26     16/31
                                           16/07 D   16/13     16/18     16/20 D   16/23     16/26     16/31 D
        PR.SLP         13                  16/09 L   16/10     49/20     89/40
        PR.SMULT       15                  16/11 L
        PR.SPL         14                  16/10 L   16/11
        PR.UMIN        51                  16/25 L   18/19
        PR.XOR         24                  16/16 L   16/17     18/32     18/33
        PSL             0   EXTERNAL*       4/13 X   28/32     41/09     63/32     88/38
                                            7/23     33/29     63/27     63/35
        RANOP         344   PROGRAM*       20/23 L  120/08
        REFVAR          0   EXTERNAL*       3/28 X   24/07 S   28/08     31/40     41/38     48/04 S   61/03 S   71/47 S
        REG=            0   EXTERNAL*       4/01 X
        RELA           17   PROGRAM*        6/07 D   80/33 S   80/42
        REL1         1733   PROGRAM*       79/39     79/42 L
        REL10        1770   PROGRAM*       80/51     80/54 L
        REL3         1745   PROGRAM*       80/06     80/09 L
        REL5         1760   PROGRAM*       80/08     80/11     80/17     80/23     80/29 L
        RSR=            0   EXTERNAL*       4/01 X
        SBSARM        402   PROGRAM*       21/48 L   44/07
        SCB          4313   PROGRAM*       83/42    156/11    172/28 L
        SCBA         4364   PROGRAM*      173/13 S  173/16    174/42 L
        SCBB         4365   PROGRAM*      156/12    174/31 S  174/34 S  174/43 L
        SCBC         4366   PROGRAM*      156/13    174/36 S  174/39 S  174/44 L
        SCB10        4323   PROGRAM*      172/42    172/49 L
        SCB20        4324   PROGRAM*      172/32    172/47    172/52 L
        SCB30        4331   PROGRAM*      173/07    173/12 L
        SCB40        4333   PROGRAM*      173/12    173/16 L
        SCB50        4335   PROGRAM*      173/14    173/24 L
        SCB60        4344   PROGRAM*      173/44    173/55 L
        SCB62        4351   PROGRAM*      174/11    174/15 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   205
        SYMBOLIC REFERENCE TABLE. 
  
        SCB64        4352   PROGRAM*      174/13    174/19 L
        SCB67        4355   PROGRAM*      174/22    174/28 L
        SCB70        4356   PROGRAM*      173/47    174/26    174/30 L
        SCB80        4361   PROGRAM*      174/32    174/36 L
        SCR             0   EXTERNAL*       4/22 X   86/45    111/07    120/46    130/26    132/23    136/30 S
                                            5/35     88/05    112/21    128/20    130/41    132/33    139/45
                                           71/23 S  108/22    112/35    129/27    131/34    132/45
        SDIV          276   PROGRAM*       19/11 L   73/49     76/01     76/22
        SDM          4370   PROGRAM*       66/49     80/02     86/42     86/48     91/27    152/22    175/28 L  175/28 E
        SDM16        4403   PROGRAM*      176/03    176/10 L
        SDM20        4406   PROGRAM*      176/12    176/14    176/21 L
        SDM22        4410   PROGRAM*      176/27 L  176/36
        SDM24        4413   PROGRAM*      176/25    176/33 L
        SDM30        4420   PROGRAM*      176/23    176/49 L
        SDM32        4423   PROGRAM*      176/54    176/56 L
        SDM36        4426   PROGRAM*      176/55    177/05 L
        SDM37        4431   PROGRAM*      176/51    177/10 L
        SDM40        4432   PROGRAM*      176/31    176/56    177/03    177/08    177/10    177/19 L
        SDM44        4436   PROGRAM*      177/29    177/31 L
        SDM5         4373   PROGRAM*      175/30    175/33 L
        SDM80        4445   PROGRAM*      177/34    177/57 L
        SDM90        4367   PROGRAM*      175/24 L  175/47    175/52    176/45    177/51    178/08
        SF.DACPL       22   FTX           111/56
        SF.DACPP       22   FTX           111/54    111/57    112/05    112/07
        SF.PEARL       22   FTX           112/02
        SF.PEARP       44   FTX           111/57    112/04    112/08
        SLB          3653   PROGRAM*      138/45    148/11 L
        SLB2         3657   PROGRAM*      148/14    148/22 L
        SLB3         3662   PROGRAM*      148/27    148/29 L
        SLT             0   EXTERNAL*       3/28 X   37/06     38/50
        SMOD            2   PROGRAM*        5/38 L   80/09     98/08 S  113/51    134/14 S  159/27 S  176/43 S
                                            5/38 E   80/29    101/14 S  116/34 S  141/51 S  159/43    177/31 S
                                           63/16 S   91/28    104/07    123/05 S  154/36    165/34 S  178/02
                                           63/17     95/48 S  108/50 S  123/20    154/55    171/27
                                           64/37 S   97/26    110/34 S  125/44 S  158/37    175/45 S
        SNP=            0   EXTERNAL*       4/01 X
        SN.EMT          0   EXTERNAL*       3/51 X
        SN.PAR          0   EXTERNAL*       3/51 X
        SOPR            3   PROGRAM*        5/39 L   67/06 S   79/46 S  110/40 S  139/34 S  154/06    165/48 S
                                            5/39 E   74/42    101/40 S  114/01 S  141/09 S  154/28    165/55 S
                                           63/17     76/06 S  102/23    115/04 S  141/13 S  154/56    171/48 S
                                           64/45 S   77/01 S  110/09 S  117/26 S  141/48 S  158/08 S  175/26 S
                                           66/20 S   77/39 S  110/12    120/18 S  153/33 S  160/04 S
        SPE          4451   PROGRAM*       28/31     33/28     44/15    178/24 L
        SPE10        4453   PROGRAM*      178/28 L  178/35    178/38    178/41
        SPE20        4457   PROGRAM*      178/32    178/37 L
        SPE30        4460   PROGRAM*      178/34    178/40 L
        SP.ASL          1   FTX            73/47
        SP.ASP         44   FTX            18/15     18/31     18/34     19/11     19/28     20/32     73/47
                                           18/16     18/32     18/35     19/12     19/30     20/33
                                           18/17     18/33     18/37     19/27     19/52     20/34
        SP.BNDL         1   FTX           153/34
        SP.BNDP        40   FTX            18/15     18/18     19/11     19/28     19/57     20/04
                                           18/16     18/19     19/12     19/29     20/02    153/34
                                           18/17     19/10     19/13     19/54     20/03
        SP.CHARL        1   FTX           176/34
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   206
        SYMBOLIC REFERENCE TABLE. 
  
        SP.CHARP       42   FTX            18/23     18/25     18/27     18/37    176/34
                                           18/24     18/26     18/28     18/41
        SP.COML         1   FTX            79/25
        SP.COMP        45   FTX            18/15     18/26     18/33     19/11     19/52     20/49     75/56
                                           18/17     18/31     18/34     19/27     20/33     20/50     76/28
                                           18/25     18/32     18/35     19/30     20/34     65/13     79/25
        SP.DISP        46   FTX            18/17     18/18     19/10     19/11     19/13     19/30     19/52     20/33
        SP.MASKL        1   FTX           176/50
        SP.MASKP       43   FTX            18/30     18/31     18/32     18/33     18/34     18/35    176/50
        SP.MDLSL        1   FTX           175/44
        SP.MDLSP       47   FTX            18/37     19/29     19/52     20/01     20/07     20/14     20/22     20/32
                                           18/42     19/30     19/53     20/02     20/08     20/15     20/23     20/33
                                           18/43     19/45     19/54     20/03     20/09     20/16     20/24     20/34
                                           19/13     19/46     19/55     20/04     20/10     20/19     20/27     20/35
                                           19/27     19/47     19/56     20/05     20/11     20/20     20/30    175/44
                                           19/28     19/48     19/57     20/06     20/12     20/21     20/31    178/05
        SP.MODCL       11   FTX           166/52    179/44
        SP.MODCP       11   FTX           166/52    179/44
        SP.MODEL        4   FTX           179/44
        SP.MODEP       22   FTX           113/53    115/01    139/32    155/01    179/44
        SP.NSQZL        1   FTX           154/14
        SP.NSQZP       51   FTX            18/39     19/47     19/57     20/04     20/08     20/14     20/21     20/31
                                           18/42     19/48     20/01     20/05     20/09     20/15     20/22     20/35
                                           19/45     19/49     20/02     20/06     20/10     20/19     20/23    153/30
                                           19/46     19/56     20/03     20/07     20/11     20/20     20/30    154/14
        SP.SKELL       22   FTX            18/15     18/30     18/44     19/46     20/03     20/15     20/31    143/06
                                           18/16     18/31     18/45     19/47     20/04     20/16     20/32    143/18
                                           18/17     18/32     18/46     19/48     20/05     20/19     20/33    143/24
                                           18/18     18/33     19/10     19/49     20/06     20/20     20/34    146/20
                                           18/19     18/34     19/11     19/52     20/07     20/21     20/35    153/45
                                           18/21     18/35     19/12     19/53     20/08     20/22     20/47    166/52
                                           18/23     18/37     19/13     19/54     20/09     20/23     20/48    166/54
                                           18/24     18/39     19/27     19/55     20/10     20/24     20/49    176/37
                                           18/25     18/40     19/28     19/56     20/11     20/25     20/50    177/39
                                           18/26     18/41     19/29     19/57     20/12     20/26     20/51    179/48
                                           18/27     18/42     19/30     20/01     20/13     20/27     20/52    179/49
                                           18/28     18/43     19/45     20/02     20/14     20/30     91/32
        SP.SKELP       52   FTX            91/25    101/38    110/36    153/47    166/47    166/55    176/44    177/50
                                           91/37    104/01    115/43    160/01    166/52    176/38    177/40
        SP.SMDP        41   FTX           175/33
        SP.STPRL       11   FTX            18/15     18/28     18/42     19/29     19/56     20/10     20/23     20/47
                                           18/16     18/30     18/43     19/30     19/57     20/11     20/24     20/48
                                           18/17     18/31     18/44     19/45     20/01     20/12     20/25     20/49
                                           18/18     18/32     18/45     19/46     20/02     20/13     20/26     20/50
                                           18/19     18/33     18/46     19/47     20/03     20/14     20/27     20/51
                                           18/21     18/34     19/10     19/48     20/04     20/15     20/30     20/52
                                           18/23     18/35     19/11     19/49     20/05     20/16     20/31     49/18
                                           18/24     18/37     19/12     19/52     20/06     20/19     20/32     55/42
                                           18/25     18/39     19/13     19/53     20/07     20/20     20/33     73/50
                                           18/26     18/40     19/27     19/54     20/08     20/21     20/34    175/37
                                           18/27     18/41     19/28     19/55     20/09     20/22     20/35
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   207
        SYMBOLIC REFERENCE TABLE. 
  
        SP.STPRP       11   FTX            18/15     18/30     18/44     19/46     20/03     20/15     20/31     53/30
                                           18/16     18/31     18/45     19/47     20/04     20/16     20/32     54/57
                                           18/17     18/32     18/46     19/48     20/05     20/19     20/33     55/40
                                           18/18     18/33     19/10     19/49     20/06     20/20     20/34     55/48
                                           18/19     18/34     19/11     19/52     20/07     20/21     20/35     73/52
                                           18/21     18/35     19/12     19/53     20/08     20/22     20/47     89/42
                                           18/23     18/37     19/13     19/54     20/09     20/23     20/48    175/39
                                           18/24     18/39     19/27     19/55     20/10     20/24     20/49
                                           18/25     18/40     19/28     19/56     20/11     20/25     20/50
                                           18/26     18/41     19/29     19/57     20/12     20/26     20/51
                                           18/27     18/42     19/30     20/01     20/13     20/27     20/52
                                           18/28     18/43     19/45     20/02     20/14     20/30     49/17
        SP.TBPRL       11   FTX            18/15     18/31     18/46     19/49     20/07     20/22     20/48     73/40
                                           18/16     18/32     19/10     19/52     20/08     20/23     20/49     75/50
                                           18/17     18/33     19/11     19/53     20/09     20/24     20/50     80/43
                                           18/18     18/34     19/12     19/54     20/10     20/25     20/51    152/17
                                           18/19     18/35     19/13     19/55     20/11     20/26     20/52    154/29
                                           18/21     18/37     19/27     19/56     20/12     20/27     48/05    175/48
                                           18/23     18/39     19/28     19/57     20/13     20/30     49/40    179/31
                                           18/24     18/40     19/29     20/01     20/14     20/31     55/45
                                           18/25     18/41     19/30     20/02     20/15     20/32     57/10
                                           18/26     18/42     19/45     20/03     20/16     20/33     62/12
                                           18/27     18/43     19/46     20/04     20/19     20/34     64/31
                                           18/28     18/44     19/47     20/05     20/20     20/35     66/40
                                           18/30     18/45     19/48     20/06     20/21     20/47     71/08
        SP.TBPRP        0   FTX           175/50
        SP.UNARL        1   FTX           153/40    176/02
        SP.UNARP       50   FTX            18/19     18/42     19/53     20/06     20/13    153/40    176/02
                                           18/30     19/29     20/05     20/12    109/55    153/47
        SP.1ATRL       16   FTX           166/52    179/44
        SP.1ATRP       34   FTX           166/52    179/44
        SQZ          4462   PROGRAM*      154/19    179/29 L  179/38
        SQZ12        4514   PROGRAM*      179/57    181/14 L
        SQZ14        4531   PROGRAM*      181/48    181/52 L
        SQZ4         4474   PROGRAM*      180/04 L  181/28    181/36    181/45    182/04
                                          181/21    181/34    181/39    182/01
        SQZ5         4475   PROGRAM*      179/56    180/06 L  180/12    180/19    180/25
        SQZ6         4503   PROGRAM*      180/29 L  182/38
        SQZ7         4506   PROGRAM*      180/35    180/38 L
        SSA          3144   PROGRAM*      106/25    107/07    107/49    108/18    121/39 L
        SSA2         3152   PROGRAM*      121/47    121/53 L
        SSO          3664   PROGRAM*       43/23    149/18 L
        SSR          3673   PROGRAM*      136/31    137/18    150/14 L
        SSRA           17   PROGRAM*        6/09 D  150/52 S  150/55
        SSR2         3705   PROGRAM*      150/36    150/38 L
        SSR20        3713   PROGRAM*      150/41    151/03 L
        SSR22        3716   PROGRAM*      151/04    151/19 L
        SSR24        3722   PROGRAM*      151/27    151/31 L
        SSR28        3724   PROGRAM*      151/30    151/35 L
        SSR30        3726   PROGRAM*      150/33    151/25    151/42 L
        SSY             0   EXTERNAL*       3/28 X   31/39
        STAGE           0   EXTERNAL*       3/28 X   37/26
        STFARM        403   PROGRAM*       21/49 L   45/23
        STFA1        2720   PROGRAM*      111/04    111/07 L
        STFA10       2731   PROGRAM*      111/28    111/34 L
        STFA15       2735   PROGRAM*      111/43    111/46 L
        STFA20       2743   PROGRAM*      112/13 L  112/19
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   208
        SYMBOLIC REFERENCE TABLE. 
  
        STFA30       2745   PROGRAM*      112/11    112/21 L
        STFD1        1124   PROGRAM*       42/56     43/03 L
        STFE10       2757   PROGRAM*      112/44    112/50 L
        STFE20       2760   PROGRAM*      112/48    112/53 L
        STOP1        1503   PROGRAM*       63/25 L   63/31
        STOP2        1507   PROGRAM*       63/29     63/34 L
        STRARM        424   PROGRAM*       22/12 L   22/12 E
        STRHOP        351   PROGRAM*       20/30 L  158/04
        STY             0   EXTERNAL*       3/28 X   38/36     38/55
        SUBST         332   PROGRAM*       20/11 L   86/46    165/52
        SVR=            0   EXTERNAL*       4/01 X
        SV67         1245   PROGRAM*       47/31 S   47/46     48/55 L
        SV=B            0   EXTERNAL*       4/01 X
        S=BU            0   EXTERNAL*       4/22 X   35/20     92/34    164/18
        S=CON           0   EXTERNAL*       4/22 X   10/38     29/29    164/51
        S=CT            0   EXTERNAL*       4/22 X  158/02
        S=RD            0   EXTERNAL*       4/22 X  139/06
        S=VALUE         0   EXTERNAL*       4/23 X   35/05
        S=VD            0   EXTERNAL*       4/23 X   85/29    138/28
        S.CES        3437   PROGRAM*      135/11 L  139/57    139/57
        S.RANDOM     3132   PROGRAM*      120/07    120/23 L
        TB=TYPE         0   EXTERNAL*       4/16 X   40/20
        TB=1ST          0   EXTERNAL*       4/16 X   60/46
        TB.ACTEL       22   FTX            42/33     43/06
        TB.ACTEP       22   FTX            42/31     42/35     43/04    112/03    112/08
        TB.CLCNL       17   FTX            30/03
        TB.CLCNP       33   FTX            30/07
        TB.COLP        73   FTX            52/37
        TB.DACL        14   FTX           112/10
        TB.DACP        44   FTX           112/16
        TB.IOCPP       44   FTX            28/45
        TB.IOSPP       22   FTX            69/02
        TB.LCONL       11   FTX            29/09
        TB.LCONP       22   FTX            29/08
        TB.ORDL        14   FTX            42/34
        TB.ORDP        60   FTX            42/35
        TB.SBSL         1   FTX            51/10
        TB.SBSP        71   FTX            51/10     51/16     52/37     52/39
        TB.SHCL        22   FTX            29/28     29/38     30/04
        TB.SHCP        52   FTX            29/26     29/35     30/02     30/07
        TB.TOCL        52   FTX            31/28
        TB.TOCP        22   FTX            60/43
        TB.TOTL        22   FTX             7/10     25/30     28/42     49/39     61/01
                                           25/28     28/27     48/13     54/27
        TB.TOTP         0   FTX             7/11     28/45     52/25
        TEMPS          17   PROGRAM*        5/57 L    6/02      6/04      6/06      6/08      6/10      6/12
                                            6/01      6/03      6/05      6/07      6/09      6/11      6/13
        TER2           22   PROGRAM*        6/15 L   96/09 S   96/49 S   97/55    101/11 S  101/54    104/13    104/49
        TEST            0   FTX            25/36 F   61/51 F  104/11 F  121/19 F  143/46 F  149/47 F  164/05 F  169/12 F
                                           25/45 F   65/02 F  109/57 F  125/47 F  144/51 F  159/45 F  167/05 F  180/54 F
                                           43/49 F   74/04 F  116/21 F  128/28 F  146/31 F  162/52 F  167/44 F  182/20 F
                                           49/41 F   96/55 F  116/29 F  129/21 F  146/48 F  163/23 F  168/27 F  183/11 F
                                           61/43 F  102/01 F  120/13 F  139/19 F  149/27 F  163/39 F  168/35 F
        TH.MODEL        4   FTX           180/38
        TH.MODEP       22   FTX           180/40
        TH.OVALL       11   FTX            61/19    180/07
        TH.OVALP        0   FTX           180/07
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   209
        SYMBOLIC REFERENCE TABLE. 
  
        TH.PLCP        32   FTX            82/08     82/12    170/30
        TH.SKELL       16   FTX           143/04    163/08    172/39    180/30    181/24
                                          146/18    169/47    180/07    181/16
        TH.SKELP       56   FTX           166/57    179/53    180/07    180/31    180/40    181/15    181/23
        TLV             0   EXTERNAL*       3/28 X   31/37
        TNKPR0        523   PROGRAM*       27/40     27/44 L
        TNKPR1        532   PROGRAM*       27/46     27/52     27/53     28/03 L
        TNKPR4        546   PROGRAM*       28/15     28/35 L
        TNK.DBL       504   PROGRAM*       26/39     26/51 L   51/30
        TNK.DBL5      511   PROGRAM*       26/53     26/54     26/56     27/04 L
        TNK.ES        475   PROGRAM*       26/13     26/21 L   28/01     28/28     28/33     29/33     29/43     30/14
        TNK.PARM      521   PROGRAM*       27/35 L   32/15
        TOIL.D          2                  95/31 D  100/41
        TOIL.I         20                  95/29 D  100/29
        TOIL.R         20                  95/30 D  100/36
        TOIL.Z          4                  95/32 D  100/48
        TO.DD        2431   PROGRAM*       98/45    100/12 L
        TO.DI        2446   PROGRAM*       98/45    100/40 L
        TO.DR        2430   PROGRAM*       98/45    100/11 L
        TO.DZ        2432   PROGRAM*       98/45    100/13 L
        TO.HE        2417   PROGRAM*       98/41     98/42     98/43     98/44     98/45     98/46     98/47     99/22 L
        TO.ID        2423   PROGRAM*       98/41     98/43    100/06 L
        TO.II        2436   PROGRAM*       98/41     98/43    100/26 L
        TO.II5       2441   PROGRAM*      100/27    100/29 L
        TO.IR        2422   PROGRAM*       98/41     98/43    100/05 L
        TO.IZ        2424   PROGRAM*       98/41     98/43    100/07 L
        TO.LE        2416   PROGRAM*       98/41     98/42     98/43     98/44     98/45     98/46     98/47     99/21 L
        TO.RD        2426   PROGRAM*       98/44    100/09 L
        TO.RI        2443   PROGRAM*       98/44    100/34 L
        TO.RR        2425   PROGRAM*       98/44    100/08 L
        TO.RZ        2427   PROGRAM*       98/44    100/10 L
        TO.ZD        2434   PROGRAM*       98/46    100/15 L
        TO.ZI        2451   PROGRAM*       98/46    100/46 L
        TO.ZR        2433   PROGRAM*       98/46    100/14 L
        TO.ZZ        2435   PROGRAM*       98/46    100/16 L
        TPC          4542   PROGRAM*       79/52    106/24    107/38    108/35    184/13 L
                                           79/55    107/06    108/12    108/47    184/13 E
        TP.ADDRL        1   FTX           119/32
        TP.ADDRP       13   FTX           119/32
        TP.AREP         5   FTX            33/05
        TP.ARRL         1   FTX           141/01    141/14    180/34
        TP.ARRP        15   FTX            32/31    141/01    141/14    163/05    163/32    180/34
        TP.ARSL         1   FTX           141/14
        TP.ARSP         6   FTX           141/14
        TP.BIASL       30   FTX            10/12    137/45    173/35    174/15    174/23    182/06
                                           10/16    140/37    173/36    174/16    174/24    182/12
        TP.BIASP       24   FTX            10/12    113/57    139/10    140/39    165/42    174/15    182/15
                                           29/31    114/15    140/05    147/39    165/45    174/23
                                           85/31    137/45    140/38    148/24    173/35    182/08
        TP.CATL         1   FTX           180/49
        TP.CATM      1000   FTX            84/25
        TP.CATP        11   FTX            83/45     84/06     84/08     84/35    180/49    184/15    184/17
        TP.EQVL         1   FTX           173/06
        TP.EQVP        21   FTX           155/26    173/06
        TP.EXPRL        1   FTX           119/32    162/41
        TP.EXPRP        3   FTX           119/32    133/11    162/41    162/48
        TP.GLL          1   FTX           168/16
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   210
        SYMBOLIC REFERENCE TABLE. 
  
        TP.GLP         16   FTX           168/16
        TP.INTRL        1   FTX           141/01    163/13    168/16    169/27    180/34
        TP.INTRM     2000   FTX            84/25    154/39
        TP.INTRP       12   FTX            10/19     65/46    142/47    160/42    163/32    172/46    181/43
                                           10/21     65/46    142/53    162/48    168/16    180/34
                                           10/45     65/46    146/07    163/05    169/27    181/35
                                           65/46    141/01    146/11    163/13    172/30    181/42
        TP.LCFL         1   FTX           119/32    180/49
        TP.LCFP         4   FTX            82/12    119/32    180/49    184/17
        TP.MODEL        3   FTX            10/07     54/47     76/15     93/53    114/54    123/47    133/07 F  175/41
                                           40/35     65/46     76/39     95/40    116/56    124/25    139/28
                                           41/46     65/46     81/27     96/44    118/57    125/37    140/28
                                           44/06     65/46     82/42    107/39    119/33    130/33    155/28
                                           46/10     65/46     83/31    107/44    121/40    131/20    159/21
                                           53/25     72/34     87/16    113/16    121/45    131/51    161/39
        TP.MODEP        0   FTX            10/15     65/46     65/46     81/28    113/17    165/39
        TP.ORBIL       50   FTX            65/46     65/46     65/46     65/46     65/46     65/46
        TP.ORBIP       24   FTX            65/46     65/46
        TP.ORDL        20   FTX            10/17     44/28    111/09    142/57    149/25    168/20    172/53    182/11
                                           34/31     83/52    112/38    146/10    162/51    169/29    173/57
                                           40/44     84/36    137/47    146/14    163/22    170/07    181/52
                                           41/36     91/49    142/52    149/21    163/53    172/34    181/54
        TP.ORDP        54   FTX            10/15     83/51     91/48    113/17    146/11    164/20    170/09    180/45
                                           10/19     84/24     91/53    138/31    149/22    165/33    172/33
                                           29/30     84/35    111/08    139/08    154/41    168/21    172/54
                                           34/31     85/30    112/37    142/53    160/46    169/30    173/56
        TP.SHRTL        1   FTX           165/39    168/16
        TP.SHRTP       14   FTX            10/45     65/46     65/46    168/16    174/21    181/35
                                           65/46     65/46    165/39    174/10    181/33    181/38
        TREB           17   PROGRAM*        6/01 D
        TREX         1011   PROGRAM*       32/36     33/22     34/10     34/50     37/41     38/15     38/44
                                           33/09     33/31     34/37     34/52     37/57     38/17     39/18 L
                                           33/18     33/44     34/40     34/56     38/13     38/21
        TREX0        1023   PROGRAM*       39/37     39/39     39/43 L
        TREX0A       1024   PROGRAM*       39/31     39/41     39/45 L
        TREX00       1014   PROGRAM*       39/23     39/27 L
        TREX1        1034   PROGRAM*       39/47     39/48     39/51     39/53     40/06 L
        TREX10       1104   PROGRAM*       41/44     41/49     41/52     41/55 L
        TREX2        1056   PROGRAM*       40/12     40/15     40/19     40/27     40/33     40/56 L
        TREX3        1062   PROGRAM*       41/07 L   41/14     41/17     41/20
        TREX4        1066   PROGRAM*       41/11     41/16 L
        TREX5        1067   PROGRAM*       41/13     41/19 L
        TREX6        1070   PROGRAM*       41/02     41/22 L
        TREX8        1072   PROGRAM*       40/07     40/09     41/29 L
        TREX9        1074   PROGRAM*       40/54     41/30     41/33 L
        TRE14         635   PROGRAM*       32/43     32/45     32/47     32/49     32/52 L
        TRE15         640   PROGRAM*       32/40     32/50     33/02 L
        TRE16         641   PROGRAM*       32/53     32/55     32/57     33/04 L
        TRE22         643   PROGRAM*       32/29     33/14 L   35/30
        TRE30         653   PROGRAM*       32/27     33/35 L
        TRE30.1       660   PROGRAM*       33/49 L   35/38
        TRE31         665   PROGRAM*       33/56     34/02 L
        TRE33         667   PROGRAM*       34/02     34/04     34/07 L
        TRE35         702   PROGRAM*       33/54     33/57     34/05     34/11     34/21     34/39 L   38/11     38/16
        TRE40         704   PROGRAM*       33/43     34/44 L
        TRE41         712   PROGRAM*       34/46     34/54 L
        TRE6          615   PROGRAM*       31/43     31/46 L
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   211
        SYMBOLIC REFERENCE TABLE. 
  
        TRE60         714   PROGRAM*       34/45     35/03 L
        TRE62         722   PROGRAM*       35/13     35/17     35/20 L
        TRE63         724   PROGRAM*       35/18     35/24 L
        TRE65         730   PROGRAM*       35/04     35/32 L
        TRE70         733   PROGRAM*       33/37     35/35     35/36     36/34 L
        TRE71         746   PROGRAM*       37/15     37/19 L
        TRE72         750   PROGRAM*       37/17     37/21     37/26 L
        TRE73         753   PROGRAM*       37/32     37/35 L
        TRE74         756   PROGRAM*       36/49     36/54     37/10     37/45 L
        TRE76         761   PROGRAM*       36/37     38/06 L
        TRE77         764   PROGRAM*       38/10     38/13 L
        TRE78         767   PROGRAM*       36/52     38/07     38/19 L
        TRE80         770   PROGRAM*       31/46     38/28 L
        TRE83         773   PROGRAM*       38/31     38/36 L
        TRE90        1001   PROGRAM*       38/33     38/49 L
        TRE94        1004   PROGRAM*       38/54     38/57 L
        TSX             0   EXTERNAL*       3/28 X  120/07    122/51    139/57
        TXI          3155   PROGRAM*       34/28    109/20    122/16 L
        TXI1         3170   PROGRAM*      122/44    122/48 L
        TXI2         3163   PROGRAM*      122/34 L  122/37
        TXI6         3201   PROGRAM*      123/16    123/19 L
        TXI7         3203   PROGRAM*      123/22    123/26 L
        T=ARG           0   EXTERNAL*       4/23 X  109/22    114/46    115/07    115/15    115/17    115/17 S
        T=BLST          0   EXTERNAL*       4/23 X   58/55     88/12     91/03     92/43
                                           46/17     82/52     88/17     91/29     93/15
        T=DIM           0   EXTERNAL*       4/23 X
        T=ILI           0   EXTERNAL*       4/23 X   39/52
        T=IOARG         0   EXTERNAL*       4/23 X  167/41    167/48
        T=PAR           0   EXTERNAL*       4/23 X    8/37 S   23/37     61/15     83/24    154/38
                                            8/22      9/50     43/19     64/40     89/07    160/44
                                            8/37     11/07 S   50/08     77/21    114/09    179/37
        T=PCS           0   EXTERNAL*       4/26 X   23/36     23/36 S   71/27     71/34
        T=SCR           0   EXTERNAL*      63/11 S
        T=SLARG         0   EXTERNAL*       4/24 X  107/11
        T=SYM           0   EXTERNAL*       4/24 X
        T.ARG           0   EXTERNAL*       4/24 X  109/23    114/45    115/06    121/49    121/49
        T.BLST          0   EXTERNAL*       4/24 X   58/54     88/16     91/02     91/34     92/42     93/14
        T.CON           0   EXTERNAL*       4/24 X   28/16     29/36
        T.DIM           0   EXTERNAL*       4/24 X  137/38    145/01
        T.IOARG         0   EXTERNAL*       4/24 X  167/47
        T.PAR           0   EXTERNAL*       4/24 X   84/04    146/09    166/33    172/37    180/39
                                           61/14     84/20    163/01    167/46    174/07    181/55
                                           64/32    142/54    163/29    169/42    179/30
        T.PCS           0   EXTERNAL*       4/26 X   47/35     47/35     47/38     47/38     47/44     71/26
        T.SLARG         0   EXTERNAL*       4/25 X  121/54
        T.STF           0   EXTERNAL*       4/25 X  111/39    112/50
        T.SYM           0   EXTERNAL*       4/25 X   38/38     40/28     42/37     91/55    112/53    149/20    168/32
                                           37/07     39/03     40/42     44/27    111/10    124/07    163/54    172/56
        T.TB            0   EXTERNAL*       4/25 X   63/19
        UBARM         377   PROGRAM*       21/45 L   21/45 E
        UNTARM        425   PROGRAM*       22/13 L   22/13 E
        VAM          3204   PROGRAM*      108/37    108/49    123/46 L
        VAM0         3207   PROGRAM*      123/52    123/56 L
        VAM1         3222   PROGRAM*      124/27    124/38 L
        VAM10        3233   PROGRAM*      124/35    124/53    125/05 L
        VAM2         3225   PROGRAM*      124/40    124/47 L
        VAM4         3231   PROGRAM*      124/54    125/01 L  125/06
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   212
        SYMBOLIC REFERENCE TABLE. 
  
        VD.EQ         352   PROGRAM*       20/31 L   20/31 E
        VD.GP         356   PROGRAM*       20/35 L   20/35 E
        VD.MI         353   PROGRAM*       20/32 L   20/32 E
        VD.MU         354   PROGRAM*       20/33 L   20/33 E
        VD.PL         355   PROGRAM*       20/34 L   20/34 E
        VEL          3235   PROGRAM*      107/10    108/23    125/34 L  125/34 E
        VEL30        3250   PROGRAM*      126/05    126/19 L
        VEL50        3254   PROGRAM*      126/10    126/24    126/31 L
        VIL          3257   PROGRAM*      108/51    128/19 L
        VILA           17   PROGRAM*        6/10 D  128/49 S  133/52
        VILB           20   PROGRAM*        6/11 D  132/05 S  132/09
        VIL05        3271   PROGRAM*      128/50    128/55 L
        VIL10        3275   PROGRAM*      128/53    129/03    129/09 L  133/21    133/45    133/47    133/49
        VIL15        3300   PROGRAM*      128/51    128/56    129/05    129/19 L
        VIL16        3312   PROGRAM*      129/52    129/55    130/03 L
        VIL17        3314   PROGRAM*      130/01    130/07 L
        VIL19        3321   PROGRAM*      129/48    130/20 L
        VIL20        3327   PROGRAM*      130/05    130/14    130/16    130/23    130/37 L
        VIL21        3332   PROGRAM*      129/42    130/54 L
        VIL21.1      3340   PROGRAM*      131/06    131/10 L
        VIL22        3342   PROGRAM*      131/08    131/10    131/14    131/17 L
        VIL23        3344   PROGRAM*      131/22 L  131/32
        VIL24        3346   PROGRAM*      131/24    131/29 L
        VIL25        3350   PROGRAM*      131/30    131/34 L
        VIL30        3354   PROGRAM*      131/18    131/48 L
        VIL31        3355   PROGRAM*      131/50 L  132/21
        VIL32        3365   PROGRAM*      131/53    132/18 L
        VIL33        3367   PROGRAM*      132/19    132/23 L
        VIL35        3375   PROGRAM*      132/37    132/43 L
        VIL60        3376   PROGRAM*      129/29    129/34    130/46    130/55    130/57    131/38    131/44    132/45 L
        VIL66        3406   PROGRAM*      133/01    133/19 L
        VIL70        3410   PROGRAM*      132/50    133/28 L
        VIL74        3417   PROGRAM*      133/42    133/47 L
        VIL78        3421   PROGRAM*      133/37    133/40    133/44    133/51 L
        VIL82        3426   PROGRAM*      134/07 L  134/12
        VIL84        3430   PROGRAM*      134/01    134/14 L
        VIL86        3431   PROGRAM*      134/09    134/17 L
        VS.CRAL        22   FTX           104/05    153/53
        VTRUE           0   EXTERNAL*       4/25 X   26/17
        V=ADD.I         0   EXTERNAL*       4/33 X   19/27     20/34    181/18
        V=APIOC         0   EXTERNAL*       4/34 X   20/07
        V=APIOD         0   EXTERNAL*       4/34 X   20/08
        V=APIOU         0   EXTERNAL*       4/34 X   20/09
        V=ARY           0   EXTERNAL*       4/34 X   19/55    180/29
        V=BSS           0   EXTERNAL*       4/34 X   20/15
        V=CAT           0   EXTERNAL*       4/34 X   18/37    169/51
        V=CMPLX         0   EXTERNAL*       4/34 X  116/31
        V=COLON         0   EXTERNAL*       4/35 X   20/10
        V=DOBL          0   EXTERNAL*       4/35 X   19/48
        V=DOBS          0   EXTERNAL*       4/35 X   19/46
        V=DOBZL         0   EXTERNAL*       4/35 X   19/47
        V=DOBZS         0   EXTERNAL*       4/35 X   19/45
        V=DVC.R         0   EXTERNAL*       4/35 X   19/13
        V=DVI           0   EXTERNAL*       4/35 X   19/56
        V=ERR           0   EXTERNAL*       4/36 X   18/44     18/46     19/57
        V=EXP.I         0   EXTERNAL*       4/36 X   20/24
        V=FAP           0   EXTERNAL*       4/36 X   20/04
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   213
        SYMBOLIC REFERENCE TABLE. 
  
        V=FUNC          0   EXTERNAL*       4/36 X   20/01
        V=GAP           0   EXTERNAL*       4/36 X   20/05
        V=GPL           0   EXTERNAL*       4/36 X   20/35
        V=IAP           0   EXTERNAL*       4/36 X   20/06
        V=IEQ.B         0   EXTERNAL*      81/11
        V=IEQ.C         0   EXTERNAL*      81/11
        V=IEQ.D         0   EXTERNAL*      81/11
        V=IEQ.H         0   EXTERNAL*      81/11
        V=IEQ.I         0   EXTERNAL*      81/11
        V=IEQ.L         0   EXTERNAL*      81/11
        V=IEQ.R         0   EXTERNAL*      81/11
        V=INE.B         0   EXTERNAL*      81/11
        V=INE.C         0   EXTERNAL*      81/11
        V=INE.D         0   EXTERNAL*      81/11
        V=INE.H         0   EXTERNAL*      81/11
        V=INE.I         0   EXTERNAL*      81/11
        V=INE.L         0   EXTERNAL*      81/11
        V=INE.R         0   EXTERNAL*      81/11
        V=INT           0   EXTERNAL*       4/36 X   20/12
        V=INTF          0   EXTERNAL*       4/37 X   20/02
        V=LGE           0   EXTERNAL*       4/37 X   20/25
        V=LIBF          0   EXTERNAL*       4/37 X   20/03
        V=LLT           0   EXTERNAL*       4/37 X   20/26
        V=MASK          0   EXTERNAL*       4/37 X  118/07
        V=MUL.C         0   EXTERNAL*       4/37 X  100/47
        V=MUL.D         0   EXTERNAL*       4/37 X  100/42
        V=MUL.I         0   EXTERNAL*       4/38 X   19/30     20/33    100/30    181/26
        V=MUL.R         0   EXTERNAL*       4/38 X   19/52    100/35
        V=NOOP          0   EXTERNAL*       4/38 X   20/14
        V=NOT.L         0   EXTERNAL*       4/38 X   19/53
        V=RANF          0   EXTERNAL*       4/38 X   20/23
        V=SHIFT         0   EXTERNAL*       4/38 X  118/40    118/49    119/08
        V=STR.H         0   EXTERNAL*       4/38 X   20/30
        V=STR.I         0   EXTERNAL*       4/39 X   20/31
        V=SUBST         0   EXTERNAL*       4/39 X   20/11    163/09    169/52    172/41
        V=SUB.I         0   EXTERNAL*       4/39 X   19/28     20/32
        V=UMI.I         0   EXTERNAL*       4/39 X   19/29
        V=XMIT          0   EXTERNAL*       4/39 X   20/16
        WA.NAMEL       52   FTX           149/38
        WA.NAMEP       22   FTX           149/42
        WA.SYML        52   FTX            37/02     86/09     90/42    111/21    113/04    126/32
        WA.W            0   FTX            37/03     86/08    111/20    113/03    149/24
                                           40/49     90/41    111/34 S  126/31
        WB.ALRNL        1   FTX            54/44
        WB.ALRNP       36   FTX            54/44
        WB.ARYP        12   FTX            32/28     40/13     90/48    156/51
        WB.BASEL       14   FTX           173/08
        WB.BASEP       41   FTX           173/09
        WB.CGSL         1   FTX           122/52
        WB.CGSP         4   FTX           122/52
        WB.COMP        17   FTX            40/32
        WB.DEFL         1   FTX            31/44    122/52
        WB.DEFP         7   FTX            31/44    122/52
        WB.DEXTL        1   FTX            36/47     38/06
        WB.DEXTP       26   FTX            34/09     34/16     35/34     35/37     36/47     36/53     38/06
        WB.DIP         55   FTX            91/51
        WB.ENTP        15   FTX            35/03     35/32
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   214
        SYMBOLIC REFERENCE TABLE. 
  
        WB.EXTL         1   FTX            37/53     39/29    122/52
        WB.EXTP        16   FTX            37/53     39/29     39/45    122/52
        WB.FPP         20   FTX            36/53
        WB.FUNL         1   FTX            37/53     39/28     39/50    122/52
        WB.FUNP        14   FTX            33/42     34/09     35/37     39/28    122/52
                                           34/08     34/44     37/53     39/50
        WB.GENFL        1   FTX           124/22    132/49
        WB.GENFP       25   FTX           124/22    124/29    129/47    131/13    132/49
        WB.INTFP       27   FTX            34/08
        WB.JPFL        11   FTX            34/15    124/28    128/37    132/29
        WB.JPFP        57   FTX            34/16    123/01    124/29    128/38    132/30    132/32
        WB.LEVNL        2   FTX           156/54
        WB.LEVNP       55   FTX           156/53
        WB.LEVP        33   FTX           156/51    156/53
        WB.LOCFP       22   FTX           119/27
        WB.MODEL        3   FTX            27/37     28/03     37/13     42/43    123/08
                                           27/47     35/06     39/20     46/14
        WB.NLSTP       34   FTX            35/32     35/34
        WB.NVARL        1   FTX            37/53    122/52
        WB.NVARP        6   FTX            33/36     33/42     37/53    122/52
        WB.PARML        1   FTX            32/14
        WB.PARMP       10   FTX            32/14
        WB.PNTL        15   FTX           149/43
        WB.PNTP        57   FTX           149/44
        WB.SFAP        40   FTX            32/20
        WB.SFXL         1   FTX            45/17
        WB.SFXP        24   FTX            45/17    111/17    112/57
        WB.SREFL        1   FTX            54/44
        WB.SREFP        6   FTX            54/44
        WB.STFPL       17   FTX           111/35
        WB.STFPP       55   FTX           111/36
        WB.SUBP        13   FTX            34/44     35/03
        WB.TYPP        31   FTX            37/33
        WB.VARL         1   FTX            31/44     83/06    164/10    168/40
        WB.VARP         5   FTX            31/44     32/28     40/10     83/06    164/10
                                           32/26     33/36     40/13     90/48    168/40
        WB.VDSP        32   FTX            40/51     41/29
        WB.W            1   FTX            28/07     42/39     86/08    111/13    112/54    124/08    168/26
                                           37/03     42/42     86/13    111/19    113/03    126/02    173/03
                                           37/37     45/16     90/41    111/20    113/08    126/31    173/24
                                           40/49     85/19     92/02    111/34 S  123/27    163/56
        WB.1REFP       37   FTX            90/51
        WC.ARGCL       11   FTX           111/25    113/09    126/19
        WC.ARGCP       60   FTX           111/24    113/10    113/19    126/06    126/20
        WC.BCPL         4   FTX           173/30
        WC.BCPP        30   FTX           173/31    173/38
        WC.BRPP         0   FTX           123/12
        WC.CLENL       22   FTX            28/35     42/46     85/20    113/20    173/37
        WC.CLENP       36   FTX            28/36     42/47     85/21    113/19    123/24    173/38
        WC.CLIFL       23   FTX            86/14
        WC.CLIFP       35   FTX            86/15     86/17
        WC.CTYPP       35   FTX            46/03     46/07     86/17
        WC.FUNTL        3   FTX            44/34
        WC.FUNTP       71   FTX            44/35     44/51     46/03    123/12
        WC.RAL         30   FTX            28/11    173/25
        WC.RAP          0   FTX            28/36    173/31
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   215
        SYMBOLIC REFERENCE TABLE. 
  
        WC.W            2   FTX            28/07     42/42     45/16     86/13    113/08    126/02
                                           37/37     44/30     85/19    111/19    123/27    173/24
        WD2MASK        60                 136/09 D  140/27
        WOF             0   EXTERNAL*       4/25 X
        WO.CS           0   EXTERNAL*       4/25 X  122/39
        WO.DOLG         0   EXTERNAL*       4/25 X   91/24
        XMITOP        337   PROGRAM*       20/16 L  141/06
        XR.TAGP        52   FTX            28/05     41/37
        ZLE             0   EXTERNAL*       3/28 X    7/08 S   53/14     60/39     60/54 S
        ZLEQUAL         0   EXTERNAL*       3/28 X    7/05
        Z=BLST         10   FTX            88/13     91/04     91/33     92/47     93/17
        Z=DD            2   FTX           145/11
        Z=PSTACK        3   FTX            71/29     71/35
        Z=SYM           3   FTX            40/48     44/32    149/36    164/01    168/25
        Z=TURP          3   FTX            61/17     83/25    160/47    166/39    179/41    180/42
                                           64/46    114/12    166/34    179/41    180/09    182/05
        Z.IMCV          0   EXTERNAL*       4/39 X  134/04
        Z.INTA          0   EXTERNAL*       4/39 X   34/18
        Z.INTF          0   EXTERNAL*       4/40 X
        Z.NEGOP        30                  20/54 L
        Z.SKCR          0   EXTERNAL*       4/40 X
        .A              0                  58/51 D  100/07 D  100/10 D  100/13 D  100/16 D  100/40 D  115/05 D  139/52 D
                                           58/51    100/07    100/10    100/13    100/16    100/40    115/05    139/52
                                          100/05 D  100/08 D  100/11 D  100/14 D  100/26 D  100/46 D  139/12 D  155/04 D
                                          100/05    100/08    100/11    100/14    100/26    100/46    139/12    155/04
                                          100/06 D  100/09 D  100/12 D  100/15 D  100/34 D  114/02 D  139/35 D
                                          100/06    100/09    100/12    100/15    100/34    114/02    139/35
        .FIX            0                 145/57 D  146/39 D  146/56 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  OP
  
  
        C               0                  19/27 D   19/27     19/28 D   19/28     19/29 D   19/29     19/30 D   19/30
        MINUS           1                  19/28 L  143/11    143/15    143/21    143/54    144/10    148/26    148/28
        MULT            3                  19/30 L  101/12    146/15    147/42
        PLUS            0                  19/27 L  140/54    142/23    143/21    147/31
        UMIN            2                  19/29 L  143/01    143/15    144/13    148/28
  
  
  
  
                                                  SYMBOL QUALIFIER =  CF
  
  
        AC           2576   PROGRAM*       98/20 S  106/13    109/21    110/16    114/11    115/09    128/42
                                          106/05 L  108/19    109/52    113/54    114/41    120/53 S
        APL          2577   PROGRAM*      106/06 L  107/22    114/03    114/43 S  114/55    122/25 S  125/45 S
        IE           2600   PROGRAM*       96/04 S   98/04    106/07 L  122/23 S  122/56
        IT           2601   PROGRAM*       34/27 S   98/21 S  106/08 L  117/09 S  122/54    129/12 S  133/31 S  134/02
        MA           2602   PROGRAM*      106/09 L  110/29    128/25 S  134/18 S
        RJ           2603   PROGRAM*      106/10 L  108/15 S  114/10    122/32 S
        TP           2604   PROGRAM*       34/29    106/11 L  113/56    114/08    122/53 S  125/39 S
1       PAR - EXPRESSION TRANSLATION.                                 COMPASS 3.7-871.     24/05/02. 13.16.49.      PAGE   216
        SYMBOLIC REFERENCE TABLE.                                     AR
  
                                                  SYMBOL QUALIFIER =  AR
  
  
        BIAS         3433   PROGRAM*      135/05 L  137/20 S  140/36    142/33    144/02    145/44    148/15
        DIMI         3434   PROGRAM*      135/06 L  137/37    139/07    144/49    150/24 S
        NSUB         3435   PROGRAM*      135/07 L  138/41    138/46    139/39    150/19 S
                                          138/07 S  138/44    139/16    140/01
        VDSK         3436   PROGRAM*      135/08 L  138/34 S  147/38    148/22
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1425              IDENT  CONRED 
                       1425                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1420 
                                        LITERALS* LOCAL        1420         5 
  
  
                                        ENTRY POINTS. 
  
                                        B=CONRE          0+           PCR.1OP        574+           D=BSS         1123+ 
                                        LVEC             6+           PCR.2OP        576+           D=DOBD2       1123+ 
                                        LLVEC           10+           PCR.RO         600+           D=DVI         1220+ 
                                        RVEC            12+           KCV            757+           GPS           1321+ 
                                        RLVEC           13+           LCH           1006+           D=EXP.I       1337+ 
                                        REG=T           14+           LCT           1041+           D=STR.I       1346+ 
                                        CTAA            43+           LIR           1056+           D=DOBS        1367+ 
                                        DEC             62+           NBC           1064+           D=DOBL        1367+ 
                                        OCT            223+           NCS           1102+           D=DOBZS       1367+ 
                                        TNK            250+           SED           1117+           D=DOBZL       1367+ 
                                        CCR            442+           D=NOOP        1123+           D=DOC.S       1401+ 
                                        CTA            474+           D=ARY         1123+           D=DOC.L       1401+ 
                                        PCC            513+           D=SUBST       1123+ 
                                        PCR            555+           D=COLON       1123+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       CT1       E.DVR2    E.DABL    DOA       T=DVV     BLNKCOM   EXD 
                                        ALC       E.AT16    E.DC1     E.DSE     PDM       T=PAR     MOD       ANSI= 
                                        DATAFLG   E.DC      E.DVR3    E.ANS6    ECB       T.CON     F.SKEL
                                        DAT.Z     E.DC3     E.DVR4    PSL       ECS       T.DAR     F.SCT 
                                        EDI       E.DC6     FILL.     TB=TYPE   PIK=PS    T.DIM     V=COLON 
                                        KW=DATA   E.DC8     E.DVL1    EXT       S=CON     T.DVV     V=SUBST 
                                        NCM       E.DC9     E.DAUC    PARNOW    T=CON     T.PAR     MNS=
                                        SCT       E.DVR1    E.DABC    SMOD      T=DAR     T.SYM     MVE=
  
  
  
  
                                                  IDENT  CONRED                                                  CONRED      2
                                         CONRED   SECT   (FRONT END CONSTANT ARITHMETIC.)                        CONRED      3
  
  
  
  
  
                                        ***              CONRED PERFORMS COMPILE TIME ARITHMETIC FOR THE         CONRED      5
                                        *         FRONT END.  UNLIKE MOST OF THE REST OF PASS 1, CONRED          CONRED      6
                                        *         KNOWS THE TARGET MACHINE FAIRLY INTIMATELY.  THUS, IT          CONRED      7
                                        *         MUST BE THROUGHLY RE-WORKED IN ORDER TO ADAPT THIS COMPILER    CONRED      8
                                        *         TO A COMPUTER OTHER THAN CYBER 70/170.                         CONRED      9
                                                                                                                 CONRED     10
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     2
                                                                      CONRED
  
                                                                                                                 CONRED     11
                                        *         IN ALLOC                                                       CONRED     12
                                                  EXT    ADW,ALC                                                 CONRED     13
                                                                                                                 CONRED     14
                                        *         IN DATA                                                        CONRED     15
                                                  EXT    DATAFLG,DAT.Z,EDI,KW=DATA                               FC50923     8
                                                                                                                 CONRED     17
                                        *         IN FEC                                                         CONRED     18
                                                  EXT    NCM,SCT,CT1                                             FC5A111    81
                                                                                                                 CONRED     20
                                        *         IN FERRS                                                       CONRED     21
                                                  EXT    E.AT16,E.DC,E.DC3,E.DC6,E.DC8,E.DC9,E.DVR1,E.DVR2       CONRED     22
                                                  EXT    E.DC1                                                   FC5A460     5
                                                  EXT    E.DVR3,E.DVR4,FILL.,E.DVL1,E.DAUC,E.DABC,E.DABL,E.DSE   FC5A111    82
                                                  EXT    E.ANS6                                                  FC5A184    85
                                                                                                                 CONRED     24
                                        *         IN LABEL                                                       CONRED     25
                                                  EXT    PSL                                                     CONRED     26
                                                                                                                 CONRED     27
                                        *         IN LEX                                                         FC50923     9
                                                  EXT    TB=TYPE                                                 FC50923    10
                                        *         IN PAR                                                         CONRED     28
                                                  EXT    EXT,PARNOW,SMOD,DOA                                     FC5A111    83
                                                                                                                 CONRED     30
                                        *         IN PEM                                                         CONRED     31
                                                  EXT    PDM                                                     CONRED     32
                                                                                                                 CONRED     33
                                        *         IN PUC                                                         CONRED     34
                                                  EXT    ECB,ECS,PIK=PS,S=CON,T=CON,T=DAR,T=DVV,T=PAR,T.CON      CONRED     35
                                                  EXT    T.DAR,T.DIM,T.DVV,T.PAR,T.SYM,BLNKCOM,MOD               FC5A111    84
                                                                                                                 CONRED     37
                                        *         IN QSKEL/FSKEL                                                 CONRED     38
                                                  EXT    F.SKEL,F.SCT,V=COLON,V=SUBST                            CONRED     39
                                                                                                                 CONRED     40
                                        *         IN UTILITY                                                     CONRED     41
                                                  EXT    MNS=,MVE=                                               CONRED     42
                                                                                                                 CONRED     43
                                                                                                                 CONRED     44
             0                     3     PCCA     BSS    3           TEMPS FOR *PCC*                             CONRED     45
                                   1 +   PCCB     EQU    PCCA+1                                                  CONRED     46
                                   2 +   PCCC     EQU    PCCA+2                                                  CONRED     47
             3                     3     PCCD     BSS    3           TEMPS FOR *PCC* TO SAVE (B4)-(B6)           CONRED     48
                                   0 +   CCRA     EQU    PCCA        ADDRESS OF CONSTANT REDUCER FOR *CCR*       CONRED     49
             6                           SKPSET   CTEXT                                                          SKPSET      2
  
  
  
  
                                        **        SKPSET - SETS THE FTYP CONSTANTS WHICH DETERMINE THE           SKPSET      4
                                        *                  SK.NUM FIELDS. SEE SKOP MACRO DOCUMENTATION.          SKPSET      5
                                                                                                                 SKPSET      6
                                                  MACRO  SKPSET,FTYP,LL,UL,MODULES,OFFSET                        SKPSET      7
                                         SKL.FTYP SET    LL                                                      SKPSET      8
                                         SKU.FTYP SET    UL                                                      SKPSET      9
                                         SKM.FTYP SET    MODULES                                                 SKPSET     10
                                         SKO.FTYP SET    OFFSET                                                  SKPSET     11
                                         SKPSET   ENDM                                                           SKPSET     12
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     3
  
  
                                         SKPSET   ENDX                                                           SKPSET     13
             6                           SKPCONQ  CTEXT                                                          SKPCONQ     2
  
  
  
  
                                         RG       SKPSET 0,7,1,0                                                 SKPCONQ     4
                                         OP       SKPSET 1,6,-Z=TURP,0                                           SKPCONQ     5
                                         TMP      SKPSET 1,20,1,-1                                               SKPCONQ     6
                                         CON      SKPSET 0,0,1,0                                                 SKPCONQ     7
                                         GOP      SKPSET 1,6,1,-1                                                SKPCONQ     8
                                         SKPCONQ  ENDX                                                           SKPCONQ     9
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     4
        COMSEIS - SKELETON DESCRIPTION FOR QCG. 
  
             6                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
  
  
  
  
                                        **        SKELETON OP-CODE TYPE VALUES.                                  COMSEIS     4
                                                                                                                 COMSEIS     5
                                                                                                                 COMSEIS     6
                                   0     M.COND   EQU    0           CONDITIONAL                                 COMSEIS     7
                                   1     M.NORM   EQU    1           ARITHMETIC OP-CODES                         COMSEIS     8
                                   2     M.INCR   EQU    2           LOAD REGISTER OP-CODES                      COMSEIS     9
                                   3     M.BRAN   EQU    3           BRANCH OP-CODES                             COMSEIS    10
                                   4     M.SHIF   EQU    4           REGISTER SHIFT OP-CODES                     COMSEIS    11
                                   5     M.ICALL  EQU    5           IF NEEDS TO CALL A EXTERNAL PROCESSOR TO    COMSEIS    12
                                   6     M.INOOP  EQU    6           SPECIAL TYPE FOR NOOPS                      COMSEIS    13
                                   7     M.ISBRN  EQU    7           TYPE FOR A BRANCH TO OTHER SKELS            COMSEIS    14
                                  10     M.LOAD   EQU    10B         LOAD/STORE INSTRUCTIONS                     COMSEIS    15
                                  21     M.RND    EQU    21B         M.NORM + THE ROUNDABLE BIT.                 COMSEIS    16
                                  40     M.IEND   EQU    40B         END OF SKELETON                             COMSEIS    17
                                  73     P.IEND   EQU    59                                                      COMSEIS    18
  
  
  
  
                                        **        SK. - WORD FORMAT OF SKELETON INSTRUCTION.                     COMSEIS    20
                                                                                                                 COMSEIS    21
                                                                                                                 COMSEIS    22
                                                  DESCRIBE  SK.,60                                               COMSEIS    23
      L     73  40000000000000000000     END      DEFINE 1                                                       COMSEIS    24
      L     72  20000000000000000000     RND      DEFINE 1                                                       COMSEIS    25
      L     66  77000000000000000000     TYP      DEFINE 6,59                                                    COMSEIS    26
      L     60  00770000000000000000     GH       DEFINE 6                                                       COMSEIS    27
      L     55  00777000000000000000     OPC      DEFINE 9,53                                                    COMSEIS    28
      L     42  00000777600000000000     IF       DEFINE 11                                                      COMSEIS    29
      L     27  00000000177740000000     JF       DEFINE 11                                                      COMSEIS    30
      L     14  00000000000037770000     KF       DEFINE 11                                                      COMSEIS    31
      L      0  00000000000000007777     QF       DEFINE 12                                                      COMSEIS    32
      L     44  00777777000000000000     ATTR     DEFINE 18,53                                                   COMSEIS    33
      L     22  00000000777777000000     ARG      DEFINE 18                                                      COMSEIS    34
      L      0  00000000000000777777     JPAD     DEFINE 18                                                      COMSEIS    35
  
  
  
  
                                        **        SR.      -- SKELETON REGISTER/CONSTANT FIELD --                COMSEIS    37
                                        *                THE SR. STRUCTURE IS A SUB-STRUCTURE OF SK. IT          COMSEIS    38
                                        *                RESIDES IN THE SK.I, SK.J, AND SK.K FIELDS.             COMSEIS    39
                                        *                THESE FIELDS CONTROL THE CONSTRUCTION IF THE            COMSEIS    40
                                        *                I, J, AND K/Q PORTION OF A PREBINARY WORD.              COMSEIS    41
                                                                                                                 COMSEIS    42
                                                  DESCRIBE   SR.,11                                              COMSEIS    43
                                3700     OAD      DEFINE 5                                                       COMSEIS    44
                                0077     NUM      DEFINE 6                                                       COMSEIS    45
                                                                                                                 COMSEIS    46
                                                  ENDX                                                           COMSEIS    47
             6                     2     LVEC     BSSENT 2           OPERAND VALUES, UPPER                       FC5A150   515
            10                     2     LLVEC    BSSENT 2           OPERAND VALUES, LOWER                       FC5A150   516
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     5
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SR
  
            12                     1     RVEC     BSSENT 1           RESULT, UPPER                               FC5A150   517
            13                     1     RLVEC    BSSENT 1           RESULT, LOWER                               FC5A150   518
                                                                                                                 CONRED     57
            14                           REG=T    BSSENT 0           FOR QCG (USES SAME VECTOR)                  CONRED     58
            14                    24     TVEC     BSS    SKU.TMP     TEMP OPERAND VALUES                         CONRED     59
            40                     3     FIELD    BSSZ   3           POINTERS TO I,J,K OPERANDS                  CONRED     60
            43                     2     CTAA     BSSENT 2           SAVE (1OP,2OP)                              FC5A150   519
            45                     1     PIK      BSS    1           (PIK=PS+OPCODE)                             CONRED     62
            46                     1     OPCODE   BSS    1                                                       CONRED     63
            47  00123                    INST=23  VFD    15/00123B   NOMINAL INSTRUCTION (BX1 X2+X3)             CONRED     64
            50  00122                    INST=22  VFD    15/00122B                                               CONRED     65
            51  00100                    INST=00  VFD    15/00100B   JKVAL INSTRUCTION (LX1 59)                  CONRED     66
            52  00103                    INST=03  VFD    15/00103B   J=B0 INSTRUCTION (NX1 X2)                   CONRED     67
            53  00173                    INST=73  VFD    15/00173B   J=B7 INSTRUCTION (UX1 B7,X3)                CONRED     68
            54  00132                    INST=32  VFD    15/00132B   KJ INSTRUCTION (BX1 -X2*X3)                 CONRED     69
            55  00720                    INST=SB  VFD    15/00720B         SET B (SB7 X2+0)                      FC5A190    27
  
  
  
  
                                        **        IMPLIES -          CREATE IMPLICATION BIT MASK MICRO.          CONRED     71
                                        *                                                                        CONRED     72
                                        *         RELOP  IMPLIES     (RELOP1,RELOP2,...,RELOPN)                  CONRED     73
                                        *                                                                        CONRED     74
                                        *         INTENDED TO BE USED BY *PCR*, THIS MACRO WILL                  CONRED     75
                                        *         CREATE A MICRO NAMED *RELOP* WHICH CONSISTS OF                 CONRED     76
                                        *         20 OCTAL DIGITS, HAVING A ONE-BIT IN BIT POSITIONS             CONRED     77
                                        *         RELOP1,RELOP2,...,RELOPN.                                      CONRED     78
                                        *                                                                        CONRED     79
                                        *         AN EXAMPLE OF THE INTENDED USAGE :                             CONRED     80
                                        *                                                                        CONRED     81
                                        *         LT     IMPLIES     (O.LT,O.NE,O.LE)                            CONRED     82
                                        *                                                                        CONRED     83
                                        *         THIS WOULD CREATE A MICRO *LT* HAVING ONE-BITS                 CONRED     84
                                        *         IN BIT POSITIONS DEFINED BY *PAR* RELATIONAL OPERATORS         CONRED     85
                                        *         O.LT, O.NE, O.LE.                                              CONRED     86
                                                                                                                 CONRED     87
                                                  MACRO  IMPLIES,RELOP,RELOPS                                    CONRED     88
                                         ''Z      MICRO  1,60, 0000000000_0000000000_0000000000_0000000000_00000 CONRED     89
                                        ,00000_0000000000                                                        CONRED     90
                                                                                                                 CONRED     91
                                                  IRP    RELOPS                                                  CONRED     92
                                                  ERRMI  59-RELOPS                                               CONRED     93
                                         ''TB     MICRO  61-RELOPS,,/"''Z"/                                      CONRED     94
                                         ''LB     MICRO                                                          CONRED     95
                                                  IFNE   59-RELOPS,,1                                            CONRED     96
                                         ''LB     MICRO  1,59-RELOPS, "''Z"                                      CONRED     97
                                         ''Z      MICRO  1,60, "''LB"1"''TB"                                     CONRED     98
                                                  IRP                                                            CONRED     99
                                                                                                                 CONRED    100
                                        *         CONVERT BINARY TO OCTAL.                                       CONRED    101
                                                                                                                 CONRED    102
                                         RELOP    MICRO                                                          CONRED    103
                                         ''N      SET                                                            CONRED    104
                                         .1       DUP    60D/3                                                   CONRED    105
                                         ''N      SET    1+''N                                                   CONRED    106
                                         ''B1     MICRO  3*''N-2,1, "''Z"                                        CONRED    107
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     6
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       IMPLIES 
  
                                         ''B2     MICRO  3*''N-1,1, "''Z"                                        CONRED    108
                                         ''B3     MICRO  3*''N-0,1, "''Z"                                        CONRED    109
                                         ''B3     OCTMIC "''B1"*4+"''B2"*2+"''B3",1                              CONRED    110
                                         RELOP    MICRO  1,, "RELOP""''B3"                                       CONRED    111
                                         .1       ENDD                                                           CONRED    112
                                                                                                                 CONRED    113
                                         RELOP    MICRO  1,, "RELOP"B                                            CONRED    114
                                         IMPLIES  ENDM                                                           CONRED    115
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     7
        FRONT END NUMERIC CONVERSION ROUTINES.                        DEC 
  
                                        **        DEC - CONVERT DECIMAL CONSTANT TO INTERNAL BINARY.             CONRED    118
                                        *                                                                        CONRED    119
                                        *         ENTRY  (B4) -> FIRST TOKEN OF CONSTANT.                        CONRED    120
                                        *                                                                        CONRED    121
                                        *                (DATAFLG) = MI IF *DATA* CALLING.                       CONRED    122
                                        *                          = PL OTHERWISE.                               CONRED    123
                                        *                                                                        CONRED    124
                                        *         EXIT   (B4) -> LAST TOKEN OF CONSTANT.                         CONRED    125
                                        *                (X1) = MODE OF CONSTANT.                                CONRED    126
                                        *                (X2) = 0, OR LOWER HALF OF DOUBLE CONSTANT.             CONRED    127
                                        *                (X6) = UPPER OR ONLY HALF OF CONSTANT.                  CONRED    128
                                        *                                                                        CONRED    129
                                        *         USES   A1-5  B2,7   X0-3,6-7.                                  CONRED    130
                                        *                (X4,X5 ARE NOT DESTROYED)                               CONRED    131
                                        *         NOTE                                                           CONRED    132
                                        *         NO-ONE SHOULD ATTEMPT TO CHANGE THE ALGORITHM OR FOR THAT      CONRED    133
                                        *         MATTER ANY CODE WITHIN THIS ROUTINE WITHOUT FIRST CHECKING     CONRED    134
                                        *         ROUTINES --- KODER,KRAKER,RUN2.3,FTN,COMPASS AND               CONRED    135
                                        *         ANY OTHER COMPILER/ASSEMBLER THAT TRANSLATES CONSTANTS INTO    CONRED    136
                                        *         BINARY FORM.                                                   CONRED    137
                                                                                                                 CONRED    138
                                                                                                                 CONRED    139
                                   0              ERRNZ  TB.TOTP     ENDEMIC ASSUMPTIONS                         CONRED    140
                                   0              ERRNZ  18-TB.TOTL                                              CONRED    141
                                   0              ERRNZ  TB.TOCL+TB.TOCP-60                                      CONRED    142
                                                                                                                 CONRED    143
                                        **        RESTORE REGISTERS AND EXIT.                                    CONRED    144
                                        *                (X7) = LOWER HALF OF WORD (IF DOUBLE)                   CONRED    145
                                        *                (X6) = UPPER HALF                                       CONRED    146
                                        *                (X1) = MODE                                             CONRED    147
                                                                                                                 CONRED    148
            56  5110000175 +             DEC60    SA1    DECA        HERE IF EVERYTHING OK                       CONRED    149
                          54211                   SA2    A1+B1                                                   CONRED    150
                               53010              SA0    X1          RESTORE *A0*                                CONRED    151
            57  63320                             SB3    X2          RESTORE *B3*                                CONRED    152
                     54421                        SA4    A2+B1       RESTORE *X4*                                CONRED    153
                          54541                   SA5    A4+B1       RESTORE *X5*                                CONRED    154
                               54151              SA1    A5+B1                                                   CONRED    155
            60  10277                             BX2    X7          LOWER PART OF RESULTS                       CONRED    156
                     54311                        SA3    A1+B1                                                   CONRED    157
                          22701                   LX7    X1          RESTORE *X7*                                CONRED    158
                               76160              SX1    B6          MODE                                        CONRED    159
            61  63630                             SB6    X3          RESTORE *B6*                                CONRED    160
                     54331                        SA3    A3+B1                                                   CONRED    161
                          63530                   SB5    X3          RESTORE *B5*                                CONRED    162
                               67441              SB4    B4-B1       RESET TO LAST PART OF CONSTANT.             CONRED    163
                                                                                                                 CONRED    164
            62  0400400062 +             DEC      SUBR   =           ENTRY/EXIT...                               CONRED    165
            63  56140                             SA1    B4                                                      CONRED    166
                     56241                        =A2    B4+1                                                    CONRED    167
                          6271777772              =B7    X1-O.CONS                                               CONRED    168
            64  0470000070 +                      ZR     B7,DEC7     IF LEADING DIGIT                            CONRED    169
                          6271777767              =B7    X1-O.PERIOD                                             CONRED    170
            65  0570000067 +                      NZ     B7,DEC3     IF 1ST NOT *.*                              CONRED    171
                          6222777772              =B2    X2-O.CONS                                               CONRED    172
            66  0420000070 +                      ZR     B2,DEC7     IF NUMBER FOLLOWS PERIOD                    CONRED    173
            67  66441                    DEC3     =B4    B4+1        ADVANCE TO NEXT TOKEN                       CONRED    174
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     8
        FRONT END NUMERIC CONVERSION ROUTINES.                        DEC 
  
                     0400000170 +                 EQ     DECEX1      ERROR                                       CONRED    175
                                                                                                                 CONRED    176
                                         *        HERE IF GOOD BEGINNING.                                        CONRED    177
                                                                                                                 CONRED    178
            70  74600                    DEC7     SX6    A0                                                      CONRED    179
                     5160000175 +                 SA6    DECA        SAVE *A0*                                   CONRED    180
                               76630              SX6    B3                                                      CONRED    181
            71  54661                             SA6    A6+B1       SAVE *B3*                                   CONRED    182
                     10644                        BX6    X4                                                      CONRED    183
                          54661                   SA6    A6+B1       SAVE *X4*                                   CONRED    184
                               10655              BX6    X5                                                      CONRED    185
            72  54661                             SA6    A6+B1       SAVE *X5*                                   CONRED    186
                     10677                        BX6    X7                                                      CONRED    187
                          54661                   SA6    A6+B1       SAVE *X7*                                   CONRED    188
                               76660              SX6    B6                                                      CONRED    189
            73  54661                             SA6    A6+B1       SAVE *B6*                                   CONRED    190
                     76650                        SX6    B5                                                      CONRED    191
                          54661                   SA6    A6+B1       SAVE *B5*                                   CONRED    192
                               66500              SB5    B0          CLEAR B5                                    CONRED    193
                                                                                                                 CONRED    194
                                        *         PROCESS DECIMAL CONSTANT.                                      CONRED    195
                                                                                                                 CONRED    196
            74  13222                             BX2    0           CLEAR                                       CONRED    197
                     43006                        MX0    CHAR                                                    CONRED    198
                          66611                   =B6    M.INT                                                   CONRED    199
            75  7130000000                        SX3    0                                                       CONRED    200
                          43766                   MX7    -CHAR                                                   CONRED    201
                               66310              =B3    1           CLEAR OVERFLOW COUNT (TO 1)                 CONRED    202
                                                                                                                 CONRED    203
                                        *         GET NEXT ELEMENT TO PROCESS FOR NUMBER.                        CONRED    204
                                                                                                                 CONRED    205
            76  5144000000               DEC11    SA4    B4+         LOAD NEXT WORD                              CONRED    206
                          6274777767              =B7    X4-O.PERIOD                                             CONRED    207
            77  6224777772                        SB2    X4-O.CONS                                               CONRED    208
                          0304000146 +            ZR     X4,DEC40    IF *EOS*                                    CONRED    209
                                   0              ERRNZ  O.EOS                                                   CONRED    210
           100  0471000107 +                      EQ     B7,B1,DEC16 IF ALPHA                                    CONRED    211
                                   0              ERRNZ  O.PERIOD+1-O.VAR                                        CONRED    212
                          0420000107 +            ZR     B2,DEC16    IF NUMERIC                                  CONRED    213
           101  0570000146 +                      NZ     B7,DEC40    IF NO DECIMAL POINT                         CONRED    214
                          0760000170 +            MI     B6,DECEX1   IF PREVIOUS DECIMAL POINT - ERROR           CONRED    215
           102  67601                             =B6    -1          INDICATE IN FRACTION PART                   CONRED    216
                     66441                        =B4    B4+1                                                    CONRED    217
                          0400000076 +            EQ     DEC11       LOOP                                        CONRED    218
                                                                                                                 CONRED    219
                                        *         BUILD INTEGER NUMBER IN (X3).                                  CONRED    220
                                                                                                                 CONRED    221
           103  36665                    DEC13    IX6    X6+X5       2*LOW PART + DIGIT                          CONRED    222
                     0660000104 +                 PL     B6,DEC14    IF NOT IN FRACTIONAL FIELD                  CONRED    223
                               67661              =B6    B6-1                                                    CONRED    224
           104  22513                    DEC14    LX5    X3,B1       2*HIGH PART                                 CONRED    225
                     66331                        =B3    B3+1        INCREMENT OVERFLOW COUNT.                   CONRED    226
                          0311000107 +            NZ     X1,DEC16    IF OVERFLOW OF 108 BITS                     CONRED    227
           105  20203                             LX2    3           8*LOW PART                                  CONRED    228
                     66310                        =B3    1           RESET OVERFLOW COUNT                        CONRED    229
                          36662                   IX6    X6+X2       10*LOW PART + DIGIT                         CONRED    230
                               20303              LX3    3           8*HIGH PART                                 CONRED    231
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE     9
        FRONT END NUMERIC CONVERSION ROUTINES.                        DEC 
  
           106  15260                             BX2    -X0*X6      CLEAR CARRY FROM LOW PART                   CONRED    232
                     36535                        IX5    X3+X5       10*HIGH PART                                CONRED    233
                          21666                   AX6    54          POSITION CARRY                              CONRED    234
                               36356              IX3    X5+X6       10*HIGH PART + CARRY                        CONRED    235
           107  20406                    DEC16    LX4    CHAR        NEXT CHARACTER                              CONRED    236
                     15547                        BX5    -X7*X4                                                  CONRED    237
                          6225000000              SB2    X5+         SAVE CURRENT ELEMENT                        CONRED    238
           110  7265777744                        SX6    X5-1R0                                                  CONRED    239
                          22512                   LX5    X2,B1       2*LOW PART                                  CONRED    240
                               11103              BX1    X0*X3       PICK OFF ANY CARRY PAST 108 BITS            CONRED    241
           111  0326000103 +                      PL     X6,DEC13    IF DIGIT                                    CONRED    242
                          0520000113 +            NZ     B2,DEC19    IF NOT END OF WORD                          CONRED    243
           112  66441                             =B4    B4+1                                                    CONRED    244
                     0400000076 +                 EQ     DEC11       LOOP                                        CONRED    245
                                                                                                                 CONRED    246
           113  0301000116 +             DEC19    ZR     X1,DEC20    IF NO OVERFLOW                              CONRED    247
                          5150000000 X            SA5    DATAFLG                                                 CONRED    248
           114  0335000116 +                      MI     X5,DEC20    IF ERROR TO BE SUPPRESSED                   CONRED    249
                          6150000001              SB5    1           SET FLAG TO INDICATE ERROR PROCESSED        CONRED    250
           115  6170000000 X                      WARN   E.DC8                                                   CONRED    251
                                                                                                                 CONRED    252
           116  5150000000 X             DEC20    SA5    PARNOW                                                  CONRED    253
                          7265777776              SX6    X5-PM=ICE                                               FC5A156    24
           117  0306000151 +                      ZR     X6,DEC41    IF PROCESSING INTEGER CONSTANT EXPR.        CONRED    255
                          7152777772              SX5    B2-1RE                                                  CONRED    256
           120  0305000122 +                      ZR     X5,DEC21    IF *E*                                      CONRED    257
                          73651                   =X6    X5+1                                                    CONRED    258
           121  0316000151 +                      NZ     X6,DEC41    IF NOT *D*                                  CONRED    259
                          76510                   =X5    1                                                       CONRED    260
           122  0760000123 +             DEC21    MI     B6,DEC22    IF PREVIOUS DECIMAL POINT                   CONRED    261
                          67601                   =B6    -1                                                      CONRED    262
           123  66363                    DEC22    SB3    B6+B3       OVERFLOW - FRACTION DIGIT COUNT             CONRED    263
                     56140                        SA1    B4                                                      CONRED    264
                          63650                   SB6    X5          SET FLAG (D=1,E=0)                          CONRED    265
                               43006              MX0    CHAR                                                    CONRED    266
           124  20106                             LX1    CHAR                                                    CONRED    267
                     11601                        BX6    X0*X1                                                   CONRED    268
                          43500                   MX5    0                                                       CONRED    269
           125  0306000140 +                      ZR     X6,DEC30    IF NO EMBEDDED EXPONENT                     CONRED    270
                          66441                   =B4    B4+1                                                    CONRED    271
                               13666              BX6    0                                                       CONRED    272
           126  6120000000 X                      SB2    E.DC3                                                   CONRED    273
                          0400000133 +            EQ     DEC26       PROCESS EXPONENT                            CONRED    274
                                                                                                                 CONRED    275
                                        *         HERE IF EMBEDDED EXPONENT --                                   CONRED    276
                                        *         FORM   CONSTANT EXXX                                           CONRED    277
                                        *         OR     CONSTANT DXXX                                           CONRED    278
                                                                                                                 CONRED    279
           127  56140                    DEC24    SA1    B4                                                      CONRED    280
                     6271777772                   SB7    X1-O.CONS                                               CONRED    281
           130  6120000000 X                      SB2    E.DC3                                                   CONRED    282
                          13666                   BX6    0           CLEAR ASSEMBLY REGISTER.                    CONRED    283
           131  0301000171 +                      ZR     X1,DECEX    IF *EOS* - ERROR                            CONRED    284
                          0570000171 +            NZ     B7,DECEX    IF SEPARATOR - ERROR                        CONRED    285
           132  66441                             =B4    B4+1                                                    CONRED    286
                                                                                                                 CONRED    287
                                        *         BUILD INTEGER EXPONENT IN (X6).                                CONRED    288
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    10
        FRONT END NUMERIC CONVERSION ROUTINES.                        DEC 
  
                                                                                                                 CONRED    289
           133  20106                    DEC26    LX1    CHAR        NEXT DIGIT                                  CONRED    290
                     15417                        BX4    -X7*X1                                                  CONRED    291
                          6274777732              SB7    X4-1R9-1                                                CONRED    292
           134  0304000155 +                      ZR     X4,DEC50    IF END OF EXPONENT                          CONRED    293
                          7147000012              SX4    B7+1R9-1R0+1                                            CONRED    294
           135  0670000171 +                      PL     B7,DECEX    IF NON-NUMERIC (DELIMITER)                  CONRED    295
                          0334000171 +            MI     X4,DECEX    IF NON-NUMERIC (ALPHA)                      CONRED    296
           136  22016                             LX0    X6,B1       2*EXPONENT                                  CONRED    297
                     13445                        BX4    X4-X5       SIGN DIGIT                                  CONRED    298
                          20603                   LX6    3           8*EXPONENT                                  CONRED    299
                               36040              IX0    X4+X0       2*EXPONENT+DIGIT                            CONRED    300
           137  36660                             IX6    X6+X0       10*EXPONENT+ (OR -) DIGIT                   CONRED    301
                     0400000133 +                 EQ     DEC26       LOOP                                        CONRED    302
                                                                                                                 CONRED    303
                                        *         HERE IF NO EMBEDDED EXPONENT.                                  CONRED    304
                                        *                (X5) = SIGN OF EXPONENT                                 CONRED    305
                                        *         CHECK FOR FORMS --                                             CONRED    306
                                        *                CONSTANT E+XXX   CONSTANT D+XXX                         CONRED    307
                                        *         OR     CONSTANT E-XXX   CONSTANT D-XXX                         CONRED    308
                                                                                                                 CONRED    309
           140  56141                    DEC30    SA1    B4+B1       NEXT WORD                                   CONRED    310
                     6144000002                   SB4    B4+2                                                    CONRED    311
           141  6271777763                        =B7    X1-O.PL                                                 CONRED    312
                          0470000127 +            ZR     B7,DEC24    IF *+*                                      CONRED    313
           142  67771                             =B7    B7-1                                                    CONRED    314
                     43574                        MX5    60          SET SIGN NEGATIVE                           CONRED    315
                          0470000127 +            ZR     B7,DEC24    IF *-*                                      CONRED    316
           143  67441                             =B4    B4-1                                                    CONRED    317
                     13555                        BX5    0           SET SIGN POSITIVE                           CONRED    318
                                                                                                                 CONRED    319
                                        *         HERE IF NO EXPONENT SPECIFIED.                                 CONRED    320
                                        *         SET NULL EXPONENT AND SEND *NOTE* ERROR TO OUTPUT.             CONRED    321
                                                                                                                 CONRED    322
                          6170000000 X            TRIV   E.DC6                                                   CONRED    323
           145  0400000156 +                      EQ     DEC52       CONTINUE.                                   CONRED    324
                                                                                                                 CONRED    325
           146  0301000151 +             DEC40    ZR     X1,DEC41    IF NO OVERFLOW                              CONRED    326
                          5150000000 X            SA5    DATAFLG                                                 CONRED    327
           147  0335000151 +                      MI     X5,DEC41    IF ERROR TO BE SUPPRESSED                   CONRED    328
                          6150000001              SB5    1           SET FLAG TO INDICATE ERROR PROCESSED        CONRED    329
           150  6170000000 X                      WARN   E.DC8                                                   CONRED    330
                                                                                                                 CONRED    331
           151  66363                    DEC41    SB3    B6+B3       OVERFLOW-FRACTIONAL DIGIT COUNT             CONRED    332
                     0760000154 +                 MI     B6,DEC45    IF DECIMAL POINT IN NUMBER                  FC5A120     5
                               20366              LX3    54                                                      FC5A120     6
           152  36623                             IX6    X2+X3                                                   CONRED    344
                     20306                        LX3    6                                                       CONRED    345
                          21305                   AX3    5                                                       CONRED    346
           153  0303000056 +                      ZR     X3,DEC60    IF NO OVERFLOW OF 59 BITS                   CONRED    347
                          0400000170 +            EQ     DECEX1      ERROR                                       CONRED    348
                                                                                                                 CONRED    349
           154  66600                    DEC45    SB6    B0          SET FLAG (E=0)                              CONRED    350
                     0400000156 +                 EQ     DEC52                                                   CONRED    351
                                                                                                                 CONRED    352
           155  63363                    DEC50    SB3    X6+B3       ADD EXPONENT TO SCALING                     CONRED    353
                     21611                        AX6    9                                                       CONRED    354
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    11
        FRONT END NUMERIC CONVERSION ROUTINES.                        DEC 
  
                          0316000170 +            NZ     X6,DECEX1   IF EXPONENT .GT. 512 - ERROR                CONRED    355
                                                                                                                 CONRED    356
                                        *         FLOATING CONVERSION BY FSCALE.                                 CONRED    357
                                        *         MODIFY DOUBLE WORD INTEGER INPUT FOR                           CONRED    358
                                        *         FSCALE WHICH REQUIRES...                                       CONRED    359
                                        *         LOW ORDER INTEGER INTEGER PART, X1, BITS 54-00.                CONRED    360
                                        *         HIGH ORDER INTEGER PART, X2, BITS 58-00.                       CONRED    361
                                                                                                                 CONRED    362
           156  66556                    DEC52    SB5    B5+B6                                                   CONRED    363
                     46000                        NO                                                             CONRED    364
                          0550000163 +            NZ     B5,DEC53    IF DOUBLE PRECISION OR ERROR FLAG SET       CONRED    365
           157  6120000060                        SB2    48                                                      CONRED    366
                          46000                   NO                                                             CONRED    367
                               23122              AX1    B2,X2                                                   CONRED    368
           160  0301000163 +                      ZR     X1,DEC53    IF NO SINGLE PRECISION OVERFLOW             CONRED    369
                          5150000000 X            SA5    DATAFLG                                                 CONRED    370
           161  0335000163 +                      MI     X5,DEC53    IF ERROR TO BE SUPPRESSED                   CONRED    371
                          6170000000 X            WARN   E.DC8                                                   CONRED    372
                                                                                                                 CONRED    373
           163  43501                    DEC53    MX5    1                                                       CONRED    374
                     20373                        LX3    -1          POSITION HIGH PART                          CONRED    375
                          11453                   BX4    X5*X3       GET CARRY BIT                               CONRED    376
                               15035              BX0    -X5*X3      SET HIGH PART FOR FSCALE                    CONRED    377
           164  20467                             LX4    -5          POSITION CARRY BIT                          CONRED    378
                     12142                        BX1    X4+X2       SET LOW PART FOR FSCALE                     CONRED    379
                          56040                   SA0    B4                                                      CONRED    380
                               66460              SB4    B6                                                      CONRED    381
           165  6166000003                        SB6    B6+M.REAL   SET MODE                                    CONRED    382
                                   0              ERRNZ  M.REAL+1-M.DBL                                          CONRED    383
                          0100000265 +            RJ     FSCALE      CONVERT FLOATING CONSTANT                   CONRED    384
           166  10611                             BX6    X1                                                      CONRED    385
                     10722                        BX7    X2                                                      CONRED    386
                          66240                   SB2    B4                                                      CONRED    387
                               64400              SB4    A0                                                      CONRED    388
           167  0420000056 +                      ZR     B2,DEC60    IF CONVERSION SUCCESSFUL                    CONRED    389
                                                                                                                 CONRED    390
           170  6120000000 X             DECEX1   SB2    E.DC        CONVERSION ERROR                            CONRED    391
                                                                                                                 FC50923    11
           171  66720                    DECEX    FATAL  B2                                                      CONRED    392
           172  7110000000 X                      SX1    KW=DATA                                                 FC50923    12
                          5120000000 X            SA2    TB=TYPE                                                 FC50923    13
                                                  HX2    KW.JMP                                                  FC50923    14
           173  21252                             AX2    -KW.JMPL                                                FC50923    15
                     37221                        IX2    X2-X1                                                   FC50923    16
                          0312000000 X            NZ     X2,PSL      IF NOT PROCESSING DATA STATEMENT            FC50923    17
           174  43600                             MX6    0                                                       CONRED    393
                     54610                        SA6    A1          CLEAR DATA FLAG                             FC50656    10
                          0400000000 X            EQ     DAT.Z       EXIT... [TO CLEAN UP AFTER DATA]            FC50656    11
                                                                                                                 CONRED    396
           175                     7     DECA     BSS    7           REGISTER SAVE/RESTORE AREA                  CONRED    397
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    12
        FRONT END NUMERIC CONVERSION ROUTINES.                        DTA 
  
                                        **        DTA -  DPC TO ASCII CONVERSION                                 CONRED    399
                                        *                                                                        CONRED    400
                                        *         ENTRY  (X3) = DPC CHARACTER, LEFT JUSTIFIED.                   CONRED    401
                                        *                                                                        CONRED    402
                                        *         EXIT   (X3) = ASCII EQUIVALENT, RIGHT JUSTIFIED.               CONRED    403
                                        *                                                                        CONRED    404
                                        *         USES   X - 3,5,6,7  A - 5                                      CONRED    405
                                                                                                                 CONRED    406
           204  0400400204 +             DTA      SUBR               ENTRY/EXIT...                               CONRED    407
           205  43603                             MX6    3                                                       CONRED    408
                     11763                        BX7    X6*X3                                                   CONRED    409
                          20703                   LX7    3           X7 = PROPER TABLE OFFSET                    CONRED    410
           206  5257000213 +                      SA5    DTACT+X7    X5 = PROPER TABLE WORD                      CONRED    411
                          20303                   LX3    3                                                       CONRED    412
                               11763              BX7    X6*X3                                                   CONRED    413
           207  20703                             LX7    3           X7 = CHARACTER POSITION                     CONRED    414
                     76660                        SX6    B6          PRESERVE B6                                 CONRED    415
                          63670                   SB6    X7                                                      CONRED    416
                               20702              LX7    2                                                       CONRED    417
           210  73776                             SX7    X7+B6                                                   CONRED    418
                     63676                        SB6    X7+B6       B6 = SHIFT COUNT                            CONRED    419
                          22565                   LX5    B6,X5                                                   CONRED    420
                               63660              SB6    X6          RESTORE B6                                  CONRED    421
           211  43606                             MX6    CHAR                                                    CONRED    422
                     11365                        BX3    X6*X5                                                   CONRED    423
                          20306                   LX3    CHAR        X3 = ASCII CONVERSION                       CONRED    424
           212  0400000204 +                      EQ     EXIT.                                                   CONRED    425
                                                                                                                 CONRED    426
                                                                                                                 CONRED    427
                                 D_A              CODE   A                                                       CONRED    428
                                                                                                                 CONRED    429
           213  32414243444546470000     DTACT    CON    8L:ABCDEFG                                              CONRED    430
           214  50515253545556570000              CON    8LHIJKLMNO                                              CONRED    431
           215  60616263646566670000              CON    8LPQRSTUVW                                              CONRED    432
           216  70717220212223240000              CON    8LXYZ01234                                              CONRED    433
           217  25262730311315120000              CON    8L56789+-*                                              CONRED    434
           220  17101104350014160000              CON    8L/()$= ,.                                              CONRED    435
                                         .IP      IFEQ   IP.CSET,IP.C63                                          FC5A196     4
                                                  VFD    30/5L#[]:",6/77B,12/2L!&,12/0                           FC5A196     5
                                         .IP      ELSE                                                           FC5A196     6
           221  03737505027701060000              VFD    30/5L#[]%",6/77B,12/2L!&,12/0                           FC5A196     7
                                         .IP      ENDIF                                                          FC5A196     8
           222  07373436407476330000              CON    8L'?<>@\^;                                              FC5A196     9
                                                                                                                 CONRED    438
                                 A_D              CODE   D                                                       CONRED    439
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    13
        FRONT END NUMERIC CONVERSION ROUTINES.                        OCT 
  
                                        **        OCT -  CONVERT OCTAL/HEX CONSTANT TO BINARY.                   CONRED    441
                                        *                                                                        CONRED    442
                                        *         ENTRY  (B4) -> FIRST TOKEN OF OCTAL OR HEX CONSTANT.           CONRED    443
                                        *                                                                        CONRED    444
                                        *         EXIT   (B4) -> LAST TOKEN OF CONSTANT.                         CONRED    445
                                        *                (X1) = M.BOOL                                           CONRED    446
                                        *                (X6) = VALUE OF CONSTANT.                               CONRED    447
                                        *                                                                        CONRED    448
                                        *         USES   A1-3   X0-3,X6-7    B2,7.                               CONRED    449
                                                                                                                 CONRED    450
                                                                                                                 CONRED    451
           223  0400400223 +             OCT      SUBR   =           ENTRY/EXIT...                               CONRED    452
           224  56340                             SA3    B4                                                      CONRED    453
                     13666                        BX6    0           CLEAR ACCUMULATOR                           CONRED    454
                          6170000003              SB7    3           SET (B7) = LOG2 (RADIX)       /* ASSUME (8) CONRED    455
           225  7120000024                        SX2    60/3        INITIALIZE DIGIT COUNT                      CONRED    456
                          63330                   SB3    X3                                                      CONRED    457
                               43066              MX0    -CHAR                                                   CONRED    458
           226  6120000006                        =B2    O.OCT                                                   CONRED    459
                          0423000231 +            EQ     B2,B3,OCT40 IF OCT TOKEN                                CONRED    460
           227  66221                             =B2    B2-O.OCT+O.HEX                                          CONRED    461
                     6177000001                   SB7    B7+1        ADJUST FOR BASE 16                          CONRED    462
           230  7120000017                        SX2    60/4                                                    CONRED    463
                          0523400230 +            NE     B2,B3,"BLOWUP"    IF NOT HEX TOKEN -- CALLER MESSED UP  CONRED    464
                                                                                                                 CONRED    465
           231  20306                    OCT40    LX3    CHAR                                                    CONRED    466
                     15130                        BX1    -X0*X3                                                  CONRED    467
                          6231777734              SB3    X1-1R8                                                  CONRED    468
           232  0301000241 +                      ZR     X1,OCT50    IF WORD EXHAUSTED                           CONRED    469
                          7211777744              SX1    X1-1R0                                                  CONRED    470
           233  0730000235 +                      MI     B3,OCT44    IF CHARACTER NOT TOO BIG FOR OCTAL          CONRED    471
                          6231777765              SB3    X1-10                                                   CONRED    472
           234  67401                             SB4    -B1         INDICATE NON-OCTAL CHARACTER                CONRED    473
                     0730000235 +                 MI     B3,OCT44    IF CHARACTER NOT TOO BIG FOR HEX            CONRED    474
                               66700              SB7    B0          INDICATE ILL CHARACTER                      CONRED    475
                                                                                                                 FC5A381     7
           235  7222777776               OCT44    SX2    X2-1                                                    CONRED    476
                          0321000240 +            PL     X1,OCT48    IF DIGIT                                    CONRED    477
           236  7211000044                        SX1    X1+1R0-1RA+10                                           CONRED    478
                          6231777757              SB3    X1+1RA-10-1RG                                           FC5A381     8
           237  67401                             SB4    -B1         INDICATE NON-OCTAL CHARACTER                CONRED    479
                     0730000240 +                 MI     B3,OCT48    IF LEGAL HEX DIGIT [A,B,C,D,E,F]            FC5A381     9
                               66700              =B7    0           INDICATE INVALID DIGIT                      FC5A381    10
                                                                                                                 FC5A381    11
           240  22676                    OCT48    LX6    B7                                                      CONRED    480
                     12616                        BX6    X1+X6       MERGE NEW DIGIT                             CONRED    481
                          0400000231 +            EQ     OCT40       LOOP..                                      CONRED    482
                                                                                                                 CONRED    483
           241  54331                    OCT50    =A3    A3+1        FETCH NEXT WORD                             CONRED    484
                     63330                        SB3    X3                                                      CONRED    485
                          0423000231 +            EQ     B2,B3,OCT40 IF MORE OF OUR TOKENS                       CONRED    486
           242  76340                             SX3    B4                                                      CONRED    488
                     65431                        SB4    A3-B1       ADVANCE TOKEN POINTER                       CONRED    489
                          0322000244 +            PL     X2,OCT94    IF NOT TOO MANY DIGITS                      CONRED    490
           243  6170000000 X                      WARN   E.DC8       ** OCT/HEX CONSTANT TOO LONG                CONRED    491
                                                                                                                 CONRED    492
           244  0470000246 +             OCT94    ZR     B7,OCT95    IF PATENTLY ILLEGAL CHARACTER               CONRED    493
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    14
        FRONT END NUMERIC CONVERSION ROUTINES.                        OCT 
  
                          0323000247 +            PL     X3,OCT96    IF NO HEX DIGITS APPEARED                   CONRED    494
           245  6132777771                        SB3    B2-O.OCT                                                CONRED    495
                          0530000247 +            NZ     B3,OCT96    IF HEX ALLOWED                              CONRED    496
                                                                                                                 FC5A381    12
           246  6170000000 X             OCT95    WARN   E.DC9       ** ILLEGAL DIGIT IN OCT/HEX CONSTANT        CONRED    497
                                                                                                                 CONRED    498
           247  76100                    OCT96    =X1    M.BOOL                                                  CONRED    499
                     0400000223 +                 EQ     EXIT.                                                   CONRED    500
  
  
  
  
                                        **        TNK - TRANSLATE NUMERIC KONSTANT.                              CONRED    502
                                        *                                                                        CONRED    503
                                        *         ENTRY  (B4) -> FIRST TOKEN OF CONSTANT.                        CONRED    504
                                        *                                                                        CONRED    505
                                        *         EXIT   (B4) -> LAST TOKEN OF CONSTANT.                         CONRED    506
                                        *                (X1) = MODE OF CONSTANT.                                CONRED    507
                                        *                (X2) = LOWER HALF OF CONSTANT, IF NEEDED.               CONRED    508
                                        *                (X6) = UPPER, OR ONLY, HALF OF CONSTANT.                CONRED    509
                                        *                                                                        CONRED    510
                                        *         USES   A1-5   B2-3,7   X0-3,6-7.                               CONRED    511
                                        *                (X4-5 ARE NOT DESTROYED)                                CONRED    512
                                        *                                                                        CONRED    513
                                        *         CALLS  DEC, FATAL, OCT.                                        CONRED    514
                                                                                                                 CONRED    515
                                                                                                                 CONRED    516
           250  0400400250 +             TNK      SUBR   =           ENTRY/EXIT...                               CONRED    517
           251  56340                             SA3    B4                                                      CONRED    518
                     6223777772                   SB2    X3-O.CONS                                               CONRED    519
           252  6172777774                        =B7    B2+O.CONS-O.PERIOD                                      CONRED    520
                          0420000254 +            ZR     B2,TNK2     IF DECIMAL NUMBER                           CONRED    521
           253  0570000256 +                      NZ     B7,TNK4     IF NOT DECIMAL POINT                        CONRED    522
                                                                                                                 FC5A460     6
           254  0100000062 +             TNK2     RJ     DEC         TRANSLATE DECIMAL CONSTANT                  FC5A120     7
           255  0400000250 +                      EQ     EXIT.                                                   CONRED    528
                                                                                                                 CONRED    529
           256  67721                    TNK4     =B7    B2+O.CONS-O.OCT                                         CONRED    530
                     67271                        =B2    B7+O.OCT-O.HEX                                          CONRED    531
                          0470000260 +            ZR     B7,TNK5     IF OCTAL TOKEN                              CONRED    532
           257  0520000263 +                      NZ     B2,TNK9     IF NOT HEX TOKEN                            CONRED    533
                                                                                                                 FC5A460     7
           260  6170000000 X             TNK5     ANSI   E.DC1       O.OCT AND O.HEX NON-ANSI                    FC5A460     8
           261  0100000223 +                      RJ     OCT                                                     FC5A460     9
           262  0400000250 +                      EQ     EXIT.                                                   CONRED    535
                                                                                                                 CONRED    536
           263  6170000000 X             TNK9     FATAL  E.DC        ** CONSTANT CANNOT BE CONVERTED             CONRED    537
           264  0400000000 X                      EQ     PSL         EXIT..      RETURN FOR NEXT STATEMENT       CONRED    538
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    15
        FSCALE - FLOATING DP CONVERSION.
  
           264                                    CTEXT  FSCALE - FLOATING DP CONVERSION.                        FSCALE      2
                                                                                                                 FSCALE      3
                                                                                                                 FSCALE      4
                                        **        FSCALE  -  CONVERT INTEGER CONSTANT WITH OR WITHOUT            FSCALE      5
                                        *                    FLOATING CONSTANT.                                  FSCALE      6
                                        *                    EXPONENT TO SINGLE OR DOUBLE PRECISION              FSCALE      7
                                        *                                                                        FSCALE      8
                                        *         RICK JAMES.   (AUTHOR).                                        FSCALE      9
                                        *                                                                        FSCALE     10
                                        *         ENTRY  (X0) = HIGH ORDER PART OF INTEGER CONSTANT              FSCALE     11
                                        *                       IN BITS 58-00.                                   FSCALE     12
                                        *                (X1) = LOW ORDER PART OF INTEGER CONSTANT               FSCALE     13
                                        *                       IN BITS 54-00.                                   FSCALE     14
                                        *                (X5) = 1RX WHERE X = + OR - (SIGN OF RESULT).           FSCALE     15
                                        *                (B1) = 1.                                               FSCALE     16
                                        *                (B3) = POWER OF 10.                                     FSCALE     17
                                        *                (B4) = 0, SINGLE PRECISION.                             FSCALE     18
                                        *                (B4) = 1, DOUBLE PRECISION.                             FSCALE     19
                                        *                                                                        FSCALE     20
                                        *         EXIT   (X1) = HIGH ORDER BITS DP CONSTANT.                     FSCALE     21
                                        *                (X2) = LOW ORDER BITS DP CONSTANT.                      FSCALE     22
                                        *                (B1) = 1.                                               FSCALE     23
                                        *                (B4) = 0, CONVERSION OK.                                FSCALE     24
                                        *                (B4) = -1, ERROR OVERFLOW.                              FSCALE     25
                                        *                                                                        FSCALE     26
                                        *         ACTION 1.  CONVERT INTEGER TO TRIPLE PRECISION                 FSCALE     27
                                        *                    FLOATING POINT.                                     FSCALE     28
                                        *                2.  SCALE BY BIG POWER OF 5 OR 10 (TRIPLE               FSCALE     29
                                        *                    MULTIPLY, X432 * X017).                             FSCALE     30
                                        *                3.  MULTIPLY BY 1E20 AS NEEDED.                         FSCALE     31
                                        *                4.  FINISH CONVERSION BY MULTIPLYING BY N               FSCALE     32
                                        *                    WHERE 1E20 .GE. N .LE. 1.                           FSCALE     33
                                        *                5.  ROUND RESULT.                                       FSCALE     34
                                        *                6.  SET SIGN.                                           FSCALE     35
                                        *                7.  ADJUST BY POWER OF 2 AND CHECK.                     FSCALE     36
                                        *                                                                        FSCALE     37
                                        *         USES   A. -,-,-,3,4,-,-,-                                      FSCALE     38
                                        *                B. -,-,2,3,4,5,-,7                                      FSCALE     39
                                        *                X. 0,1,2,3,4,5,6,7                                      FSCALE     40
                                                                                                                 FSCALE     41
           265  0400400265 +             FSCALE   SUBR               ENTRY/EXIT                                  FSCALE     42
           266  43752                             MX7    -18                                                     FSCALE     43
                     15417                        BX4    -X7*X1      BOT                                         FSCALE     44
                          6120000022              SB2    18                                                      FSCALE     45
           267  27404                             PX4    B0,X4                                                   FSCALE     46
                     66740                        SB7    B4                                                      FSCALE     47
                          66400                   SB4    B0          CLEAR ERROR FLAG                            FSCALE     48
                               21122              AX1    18          LOW MID                                     FSCALE     49
           270  0300000275 +                      ZR     X0,CIF      IF NO HIGH ORDER BITS                       FSCALE     50
                          43761                   MX7    -11                                                     FSCALE     51
                               15207              BX2    -X7*X0      HI MID                                      FSCALE     52
           271  24404                             NX4    B0,X4                                                   FSCALE     53
                     6150000102                   SB5    66                                                      FSCALE     54
                               20245              LX2    37                                                      FSCALE     55
           272  21013                             AX0    11          TOP                                         FSCALE     56
                     12112                        BX1    X1+X2       MID                                         FSCALE     57
                          27050                   PX0    X0,B5                                                   FSCALE     58
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    16
        FSCALE - FLOATING DP CONVERSION.
  
                               27121              PX1    B2                                                      FSCALE     59
           273  24000                             NX0    B0,X0       TOP                                         FSCALE     60
                     24101                        NX1    B0,X1                                                   FSCALE     61
                          32201                   DX2    X0+X1                                                   FSCALE     62
                               30001              FX0    X0+X1       UPPER                                       FSCALE     63
           274  32724                             DX7    X2+X4       LOWER                                       FSCALE     64
                     30124                        FX1    X2+X4       MIDDLE                                      FSCALE     65
                          0400000277 +            EQ     CIF1                                                    FSCALE     66
                                                                                                                 FSCALE     67
           275  27121                    CIF      PX1    B2,X1                                                   FSCALE     68
                     46000                        NO                                                             FSCALE     69
                          24404                   NX4    B0,X4                                                   FSCALE     70
                               24101              NX1    B0,X1                                                   FSCALE     71
           276  30014                             FX0    X1+X4       UPPER                                       FSCALE     72
                     32114                        DX1    X1+X4       MIDDLE                                      FSCALE     73
                          46000                   NO                                                             FSCALE     74
                               32711              DX7    X1+X1       LOWER (PACKED ZERO)                         FSCALE     75
                                                                                                                 FSCALE     76
           277  67271                    CIF1     SB2    B7-B1                                                   FSCALE     77
                     0420000300 +                 ZR     B2,CIF2     IF DOUBLE PRECISION                         FSCALE     78
                               43700              MX7    0           TO INDICATE ONLY SINGLE NEEDED              FSCALE     79
                                                                                                                 FSCALE     80
           300  76430                    CIF2     SX4    B3                                                      FSCALE     81
                     7133000500                   SX3    B3+320                                                  FSCALE     82
                               21410              AX4    8                                                       FSCALE     83
           301  0314000351 +                      NZ     X4,CIF16    IF NOT WITHIN 1E-256 TO 1E+256              FSCALE     84
                          21306                   AX3    6           EXP/64+4                                    FSCALE     85
                               66700              SB7    B0                                                      FSCALE     86
           302  5243000404 +                      SA4    CIFB+X3                                                 FSCALE     87
                          0304000314 +            ZR     X4,CIF5     IF EXP IS 0 TO 64                           FSCALE     88
           303  14333                             BX3    -X3                                                     FSCALE     89
                     6133000500                   SB3    B3+320                                                  FSCALE     90
                               20306              LX3    6                                                       FSCALE     91
           304  63333                             SB3    B3+X3                                                   FSCALE     92
                                                                                                                 FSCALE     93
                                        *         TRIPLE OR DOUBLE MULTIPLY.                                     FSCALE     94
                                                                                                                 FSCALE     95
           305  6150000012               CIF3     SB5    10                                                      FSCALE     96
                          5034000012              SA3    A4+10       M                                           FSCALE     97
           306  0307000311 +                      ZR     X7,CIF4     IF ONLY SINGLE PRECISION                    FSCALE     98
                          54235                   SA2    A3+B5       L                                           FSCALE     99
                               40747              FX7    X4*X7       L=U*L                                       FSCALE    100
           307  40220                             FX2    X2*X0       L=L*U                                       FSCALE    101
                     30772                        FX7    X7+X2       L                                           FSCALE    102
                          42230                   DX2    X3*X0       L=M*U                                       FSCALE    103
                               42641              DX6    X4*X1       L=U*M                                       FSCALE    104
           310  30727                             FX7    X2+X7       L                                           FSCALE    105
                     40231                        FX2    X3*X1       L=M*M                                       FSCALE    106
                          30776                   FX7    X7+X6       L                                           FSCALE    107
                               30727              FX7    X2+X7       LOWER                                       FSCALE    108
                                                                                                                 FSCALE    109
           311  40330                    CIF4     FX3    X3*X0       M=M*U                                       FSCALE    110
                     40241                        FX2    X4*X1       M=U*M                                       FSCALE    111
                          42640                   DX6    X4*X0       M=U*U                                       FSCALE    112
                               40040              FX0    X4*X0       UPPER                                       FSCALE    113
           312  30432                             FX4    X3+X2       M                                           FSCALE    114
                     30164                        FX1    X6+X4       MIDDLE                                      FSCALE    115
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    17
        FSCALE - FLOATING DP CONVERSION.
  
                          0307000314 +            ZR     X7,CIF5     IF ONLY SINGLE PRECISION                    FSCALE    116
           313  32332                             DX3    X3+X2       L                                           FSCALE    117
                     32664                        DX6    X6+X4       L                                           FSCALE    118
                          30773                   FX7    X7+X3       L                                           FSCALE    119
                               30776              FX7    X7+X6       LOWER                                       FSCALE    120
                                                                                                                 FSCALE    121
                                        *         MULTIPLY BY 1E20 AS NEEDED.                                    FSCALE    122
                                                                                                                 FSCALE    123
           314  5140000403 +             CIF5     SA4    CIFA+20                                                 FSCALE    124
                          6120000024              SB2    20                                                      FSCALE    125
           315  0732000323 +                      LT     B3,B2,CIF8  IF NO NEED TO MULTIPLY BY 1E20              FSCALE    126
                                                                                                                 FSCALE    127
                                        *         1 * 3 OR 1 * 2 MULTIPLY.                                       FSCALE    128
                                                                                                                 FSCALE    129
           316  40341                    CIF6     FX3    X4*X1       M=U*M                                       FSCALE    130
                     42240                        DX2    X4*X0       M=U*U                                       FSCALE    131
                          0307000321 +            ZR     X7,CIF7     IF ONLY SINGLE NEEDED                       FSCALE    132
           317  40747                             FX7    X4*X7       L=U*L                                       FSCALE    133
                     32632                        DX6    X3+X2       L                                           FSCALE    134
                          42141                   DX1    X4*X1       L=U*M                                       FSCALE    135
                               46000              NO                                                             FSCALE    136
           320  30776                             FX7    X7+X6       L                                           FSCALE    137
                     6100000000                   SB0    0                                                       FSCALE    138
                               30771              FX7    X7+X1       LOWER                                       FSCALE    139
                                                                                                                 FSCALE    140
           321  30132                    CIF7     FX1    X3+X2       MIDDLE                                      FSCALE    141
                     40040                        FX0    X4*X0       UPPER                                       FSCALE    142
                          67332                   SB3    B3-B2                                                   FSCALE    143
                               46000              NO                                                             FSCALE    144
           322  0632000316 +                      GE     B3,B2,CIF6  IF NEED TO MULTIPLY BY 1E20 AGAIN           FSCALE    145
                                                                                                                 FSCALE    146
                                        *         MULTIPLY BY LESS THAN 1E20 IF NECESSARY.                       FSCALE    147
                                                                                                                 FSCALE    148
           323  5143000357 +             CIF8     SA4    CIFA+B3                                                 FSCALE    149
                          0703000316 +            GT     B3,CIF6     IF NECESSARY MULTIPLY BY .LT. 1E20          FSCALE    150
           324  20572                             LX5    -2                                                      FSCALE    151
                     21574                        AX5    60                                                      FSCALE    152
                                                                                                                 FSCALE    153
                                        *         DOUBLE COMBINE.                                                FSCALE    154
                                                                                                                 FSCALE    155
                          0307000332 +            ZR     X7,CIF10    IF ONLY SINGLE NEEDED                       FSCALE    156
           325  32417                             DX4    X1+X7                                                   FSCALE    157
                     30117                        FX1    X1+X7                                                   FSCALE    158
                          46000                   NO                                                             FSCALE    159
                               32301              DX3    X0+X1                                                   FSCALE    160
           326  30001                             FX0    X0+X1                                                   FSCALE    161
                     34134                        RX1    X3+X4                                                   FSCALE    162
                          46000                   NO                                                             FSCALE    163
                               30301              FX3    X0+X1                                                   FSCALE    164
           327  46000                             NO                                                             FSCALE    165
                     13753                        BX7    X5-X3       UPPER SIGN FOR T.DBL                        FSCALE    166
                          32001                   DX0    X0+X1                                                   FSCALE    167
                               13111              BX1    X1-X1                                                   FSCALE    168
           330  26300                             UX3    B0,X0                                                   FSCALE    169
                     0303000331 +                 ZR     X3,CIF9     IF LOW ORDER DP MANTISSA .EQ. 0             FSCALE    170
                               13150              BX1    X5-X0       LOWER SIGN FOR T.DBL                        FSCALE    171
                                                                                                                 FSCALE    172
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    18
        FSCALE - FLOATING DP CONVERSION.
  
           331  0470000356 +             CIF9     ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY        FSCALE    173
                          0400000334 +            EQ     CIF11                                                   FSCALE    174
                                                                                                                 FSCALE    175
                                        *         SINGLE COMBINE.                                                FSCALE    176
                                                                                                                 FSCALE    177
           332  32401                    CIF10    DX4    X0+X1                                                   FSCALE    178
                     30001                        FX0    X0+X1                                                   FSCALE    179
                          34304                   RX3    X0+X4                                                   FSCALE    180
                               13753              BX7    X5-X3       SIGN FOR T.REL                              FSCALE    181
           333  0470000356 +                      ZR     B7,CIF18    IF NO UNDER/OVERFLOW CHECK NECESSARY        FSCALE    182
                                                                                                                 FSCALE    183
                                                                                                                 FSCALE    184
                                        *         CHECK FOR UNDER FLOW.                                          FSCALE    185
                                                                                                                 FSCALE    186
           334  0670000342 +             CIF11    PL     B7,CIF13                                                FSCALE    187
                          6150776000              SB5    -1777B                                                  FSCALE    188
           335  26121                             UX1    B2,X1                                                   FSCALE    189
                     66227                        SB2    B2+B7                                                   FSCALE    190
                          46000                   NO                                                             FSCALE    191
                               27121              PX1    B2,X1                                                   FSCALE    192
           336  0625000337 +                      GE     B2,B5,CIF12 IF NOT UNDERFLOW                            FSCALE    193
                          43100                   MX1    0           CLEAR LOW ORDER REGISTER                    FSCALE    194
                                                                                                                 FSCALE    195
           337  26727                    CIF12    UX7    B2,X7                                                   FSCALE    196
                     66227                        SB2    B2+B7                                                   FSCALE    197
                          46000                   NO                                                             FSCALE    198
                               27727              PX7    B2,X7                                                   FSCALE    199
           340  0625000356 +                      GE     B2,B5,CIF18 IF NO UNDERFLOW                             FSCALE    200
                          7170000000              SX7    0                                                       FSCALE    201
           341  0400000356 +                      EQ     CIF18                                                   FSCALE    202
                                                                                                                 FSCALE    203
                                        *         CHECK FOR OVERFLOW.                                            FSCALE    204
                                                                                                                 FSCALE    205
           342  26727                    CIF13    UX7    B2,X7                                                   FSCALE    206
                     6150001777                   SB5    1777B                                                   FSCALE    207
                               66227              SB2    B2+B7                                                   FSCALE    208
           343  0625000350 +                      GE     B2,B5,CIF15 IF OVERFLOW                                 FC5A345     5
                          27727                   PX7    B2,X7                                                   FSCALE    210
                               26121              UX1    B2,X1                                                   FSCALE    211
           344  66227                             SB2    B2+B7                                                   FSCALE    212
                     27121                        PX1    B2,X1                                                   FSCALE    213
                          0400000356 +            EQ     CIF18                                                   FSCALE    214
                                                                                                                 FSCALE    215
           345  6123777273               CIF14    SB2    B3-324                                                  FSCALE    216
                          5140000415 +            SA4    CIFB+9      MULTIPLY BY 5**256                          FSCALE    217
           346  6170000400                        SB7    +256                                                    FSCALE    218
                          46000                   NO                                                             FSCALE    219
                               67337              SB3    B3-B7                                                   FSCALE    220
           347  0720000305 +                      MI     B2,CIF3                                                 FSCALE    221
                                                                                                                 FSCALE    222
           350  6140777776               CIF15    SB4    -1          ERROR RETURN ON OVERFLOW                    FSCALE    223
                          0400000265 +            EQ     EXIT.                                                   FSCALE    224
                                                                                                                 FSCALE    225
           351  0630000345 +             CIF16    PL     B3,CIF14                                                FSCALE    226
                          6123000505              SB2    B3+325                                                  FSCALE    227
           352  0720000355 +                      MI     B2,CIF17                                                FSCALE    228
                          5140000404 +            SA4    CIFB                                                    FSCALE    229
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    19
        FSCALE - FLOATING DP CONVERSION.
  
           353  6170777272                        SB7    -325                                                    FSCALE    230
                          46000                   NO                                                             FSCALE    231
                               67337              SB3    B3-B7                                                   FSCALE    232
           354  0400000305 +                      EQ     CIF3                                                    FSCALE    233
                                                                                                                 FSCALE    234
           355  7170000000               CIF17    SX7    0                                                       FSCALE    235
                          7110000000              SX1    0                                                       FSCALE    236
                                                                                                                 FSCALE    237
           356  10211                    CIF18    BX2    X1                                                      FSCALE    238
                     10177                        BX1    X7                                                      FSCALE    239
                          0400000265 +            EQ     EXIT.                                                   FSCALE    240
                                                                                                                 FSCALE    241
                                        *         WORKING CONSTANTS.                                             FSCALE    242
                                                                                                                 FSCALE    243
           357                           CIFA     BSS    0           1.0EN  WHERE N = 0 TO 20 INCLUSIVE          FSCALE    244
                                   0     CIFA1    SET    0                                                       FSCALE    245
                                  25              DUP    21,3                                                    FSCALE    246
                                         CIFA2    DECMIC CIFA1                                                   FSCALE    247
                                                  DATA   1.0E"CIFA2"                                             FSCALE    248
                                         CIFA1    SET    CIFA1+1                                                 FSCALE    249
                                                                                                                 FSCALE    250
           404                           CIFB     BSS    0                                                       FSCALE    251
           404  03355134732416677076              CON    03355134732416677076B   5**-325          UPPER          FSCALE    252
           405  01756003050311261572              CON    01756003050311261572B  10**-256          UPPER          FSCALE    253
           406  05224437760335652043              CON    05224437760335652043B  10**-192          UPPER          FSCALE    254
           407  10466735010637062274              CON    10466735010637062274B  10**-128          UPPER          FSCALE    255
           410  13735207775211722471              CON    13735207775211722471B  10** -64          UPPER          FSCALE    256
           411  00000000000000000000              CON    0                                                       FSCALE    257
           412  22456047403722377717              CON    22456047403722377717B  10**  64          UPPER          FSCALE    258
           413  25724473510762300351              CON    25724473510762300351B  10** 128          UPPER          FSCALE    259
           414  31167007036743234447              CON    31167007036743234447B  10** 192          UPPER          FSCALE    260
           415  30435247735376716771              CON    30435247735376716771B   5** 256          UPPER          FSCALE    261
                                                                                                                 FSCALE    262
           416  02554430410147521675              CON    02554430410147521675B   5**-325         MIDDLE          FSCALE    263
           417  01150623477244210525              CON    01150623477244210525B  10**-256         MIDDLE          FSCALE    264
           420  04426300317330603243              CON    04426300317330603243B  10**-192         MIDDLE          FSCALE    265
           421  07667112025437131766              CON    07667112025437131766B  10**-128         MIDDLE          FSCALE    266
           422  13137232247710714327              CON    13137232247710714327B  10** -64         MIDDLE          FSCALE    267
           423  00000000000000000000              CON    0                                                       FSCALE    268
           424  21655155247457665561              CON    21655155247457665561B  10**  64         MIDDLE          FSCALE    269
           425  25124315770633631554              CON    25124315770633631554B  10** 128         MIDDLE          FSCALE    270
           426  30362526520556761123              CON    30362526520556761123B  10** 192         MIDDLE          FSCALE    271
           427  27636750673556710033              CON    27636750673556710033B   5** 256         MIDDLE          FSCALE    272
                                                                                                                 FSCALE    273
           430  01751523413613350414              CON    01751523413613350414B   5**-325          LOWER          FSCALE    274
           431  00357757552302120270              CON    00357757552302120270B  10**-256          LOWER          FSCALE    275
           432  03622142373563615574              CON    03622142373563615574B  10**-192          LOWER          FSCALE    276
           433  07066405673367560600              CON    07066405673367560600B  10**-128          LOWER          FSCALE    277
           434  12332173154211024710              CON    12332173154211024710B  10** -64          LOWER          FSCALE    278
           435  00000000000000000000              CON    0                                                       FSCALE    279
           436  21056166544576650371              CON    21056166544576650371B  10**  64          LOWER          FSCALE    280
           437  24321553040115601066              CON    24321553040115601066B  10** 128          LOWER          FSCALE    281
           440  27567507542405607432              CON    27567507542405607432B  10** 192          LOWER          FSCALE    282
           441  27034617735255702442              CON    27034617735255702442B   5** 256          LOWER          FSCALE    283
                                                                                                                 FSCALE    284
                                                                                                                 FSCALE    285
                                         FSCALE   ENDX                                                           FSCALE    286
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    20
        FSCALE - FLOATING DP CONVERSION.
  
                                                                                                                 CONRED    540
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    21
        CONSTANT REDUCTION.                                           CCR 
  
                                        **        CCR - COMPUTE CONSTANT REDUCTION.                              CONRED    543
                                        *                                                                        CONRED    544
                                        *         CCR IS CALLED BY PAR/ADT WHEN A TURPLE IS ABOUT TO BE          CONRED    545
                                        *         EMITTED.  IT ATTEMPTS TO REDUCE THE TURPLE IF IT HAS           CONRED    546
                                        *         CONSTANT OPERAND(S) --                                         CONRED    547
                                        *         A.  BY PERFORMING THE OPERATION AT COMPILE TIME  (2 + 3)       CONRED    548
                                        *         B.  RESULT INDEPENDENT OF VARIABLE OPERAND       (0 / X)       CONRED    549
                                        *         C.  ISSUE DIAGNOSTIC FOR END CASES            (OVERFLOW)       CONRED    550
                                        *                                                                        CONRED    551
                                        *         ENTRY  (X4) = 1ST OPERAND.                                     CONRED    552
                                        *                (X5) = 2ND OPERAND.                                     CONRED    553
                                        *                (X7) = INDEX OF REDUCTION SKEL. (IN F.SKEL)             CONRED    554
                                        *                (SOPR) = OPERATOR.                                      CONRED    555
                                        *                (SMOD) = RESULT MODE.                                   CONRED    556
                                        *                                                                        CONRED    557
                                        *         EXIT   (X6) .ZR. = TURPLE MUST BE EMITTED.                     CONRED    558
                                        *                (X4, X5, SOPR) MAY HAVE BEEN CHANGED.                   CONRED    559
                                        *                                                                        CONRED    560
                                        *         ELSE   (X6) .NZ. = RESULT OPERAND FOR SPECIFIED TURPLE.        CONRED    561
                                        *                            DO NOT ISSUE TURPLE.                        CONRED    562
                                        *                (X4,X5) = PRESERVED.                                    CONRED    563
                                        *                                                                        CONRED    564
                                        *         USES   ALL BUT A0,  B4-6.                                      CONRED    565
                                        *         CELLS  (SCR TO SCR+3)                                          CONRED    566
                                        *                                                                        CONRED    567
                                        *         CALLS  LCH, PCA.                                               CONRED    568
                                                                                                                 CONRED    569
                                                                                                                 CONRED    570
           442  0400400442 +             CCR      SUBR   =           ENTRY/EXIT...                               CONRED    571
           443  5170000000 +                      SA7    CCRA                                                    CONRED    572
                                                                                                                 CONRED    573
                                        *         REDUCIBLE OPERATOR FOUND, CHECK FOR CONSTANTS AS OPERANDS.     CONRED    574
                                        *         FIRST, CALL LCH AND COMPUTE CONSTANTALITY IN RANGE (0 .. 3),   CONRED    575
                                        *         THEN SUBTRACT ONE TO GIVE RANGE (-1 .. 2), VIZ --              CONRED    576
                                        *                (1OP, 2OP) =  CC     CV    VC    VV                     CONRED    577
                                        *                FOR 1 VAR  =  0      0     2     2                      CONRED    578
                                        *                ADD 2 VAR  =   0      1     0     1                     CONRED    579
                                        *                FIRST SUM  =   0      1     2     3                     CONRED    580
                                        *                REDUCE - 1 =  -1      0    +1    +2                     CONRED    581
                                        *         FOR CONSTANTS AT:  BOTH,   1OP,  2OP,   NEITHER.               CONRED    582
                                                                                                                 CONRED    583
                          5170000473 +            SA7    CONRB                                                   FC51344     7
           444  10144                             BX1    X4                                                      CONRED    584
                     0100001041 +                 RJ     LCT         LOAD FIRST CONSTANT                         CONRED    585
           445  5160000006 +                      SA6    LVEC                                                    CONRED    586
                          43600                   MX6    0           INDICATE NO REDUCE                          CONRED    587
           446  5170000010 +                      SA7    LLVEC                                                   CONRED    588
                          10155                   BX1    X5                                                      CONRED    589
           447  0420000442 +                      ZR     B2,EXIT.    IF 1ST IS NOT CONSTANT                      CONRED    590
                          0305000471 +            ZR     X5,CCR8     IF (2OP) IS NIL                             CONRED    591
           450  5120000000 X                      SA2    SMOD        RESULT MODE                                 FC51344     8
                          7222777773              SX2    X2-M.DBL                                                FC51344     9
           451  5032000001                        SA3    A2+1        OPERATOR                                    FC51344    10
                          7233777763              SX3    X3-O.PL                                                 FC51344    11
           452  12623                             BX6    X2+X3                                                   FC51344    12
                     76221                        SX2    B2+B1                                                   FC51344    13
                          12662                   BX6    X6+X2                                                   FC51344    14
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    22
        CONSTANT REDUCTION.                                           CCR 
  
           453  5160000473 +                      SA6    CONRB       0 IF RESULT DOUBLE, OPERATOR +, CONST LONG  FC51344    15
                          0100001041 +            RJ     LCT         LOAD SECOND CONSTANT                        CONRED    592
           454  5160000007 +                      SA6    LVEC+1                                                  CONRED    593
                          43600                   MX6    0                                                       CONRED    594
           455  5170000011 +                      SA7    LLVEC+1                                                 CONRED    595
                          0420000442 +            ZR     B2,EXIT.    IF (2OP) NOT CONSTANT                       CONRED    596
           456  76221                             SX2    B2+B1                                                   FC51344    16
                     0312000471 +                 NZ     X2,CCR8     IF 2OP NOT LONG CONSTANT                    FC51344    17
           457  5130000473 +                      SA3    CONRB                                                   FC51344    18
                          0333000471 +            MI     X3,CCR8     IF RESULT NOT DBLE, ORT .NE. +, 1OP NOT LNG FC51344    19
           460  0313000471 +                      NZ     X3,CCR8     IF RESULT NOT DBLE, OPR .NE. +, 1OP NOT LNG FC51344    20
                          5120000006 +            SA2    LVEC        1OP UPPER                                   FC51344    21
           461  5130000010 +                      SA3    LLVEC       1OP LOWER                                   FC51344    22
                          0312000466 +            NZ     X2,CONR3    IF 1OP UPPER NOT ZERO                       FC51344    23
           462  0313000466 +                      NZ     X3,CONR3    IF 2OP LOWER NOT ZERO                       FC51344    24
                          22005                   LX0    X5                                                      FC51344    25
                                                                                                                 FC51344    26
                                        *         HERE IF ATTEMPT TO ADD ZERO TO A DOUBLE PRECISION CONSTANT     FC51344    27
                                                                                                                 FC51344    28
           463  10622                    CONR2    BX6    X2          UPPER RESULT                                FC51344    29
                     10733                        BX7    X3          LOWER RESULT                                FC51344    30
                          5160000012 +            SA6    RVEC                                                    FC51344    31
           464  5076000001                        SA7    A6+1                                                    FC51344    32
                          10600                   BX6    X0                                                      FC51344    33
           465  0400000442 +                      EQ     EXIT.                                                   FC51344    34
                                                                                                                 FC51344    35
           466  5022000001               CONR3    SA2    A2+1        2OP UPPER                                   FC51344    36
                          5033000001              SA3    A3+1        2OP LOWER                                   FC51344    37
           467  0312000471 +                      NZ     X2,CCR8     IF 2OP UPPER NOT ZERO                       FC51344    38
                          0313000471 +            NZ     X3,CCR8     IF 2OP LOWER NOT ZERO                       FC51344    39
           470  10044                             BX0    X4                                                      FC51344    40
                     0400000463 +                 EQ     CONR2                                                   FC51344    41
                                                                                                                 CONRED    597
                                        *         REDUCE EXPRESSION AT COMPILE TIME.                             CONRED    598
                                                                                                                 CONRED    599
           471  5130000000 +             CCR8     SA3    CCRA                                                    CONRED    600
                          0100000474 +            RJ     CTA         PERFORM COMPILE TIME REDUCTION              FC5A150   520
           472  0400000442 +                      EQ     EXIT.                                                   CONRED    602
                                                                                                                 FC51344    42
           473                     1     CONRB    BSS    1                                                       FC51344    43
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    23
        CONSTANT REDUCTION.                                           CTA 
  
                                        **        CTA -  COMPILE TIME ARITHMETIC.                                FC50392    19
                                        *                                                                        CONRED    605
                                        *         ENTRY  (X3) = INDEX OF CONSTANT REDUCER.                       CONRED    606
                                        *                (LVEC,LVEC+1) = UPPER HALVES OF (1OP,2OP)               CONRED    607
                                        *                (LLVEC,LLVEC+1) = LOWER HALVES OF (1OP,2OP)             CONRED    608
                                        *                (TER2+1) = LOWER HALF OF 2OP.                           CONRED    609
                                        *                                                                        CONRED    610
                                        *         EXIT   SAME AS CCR.                                            CONRED    611
                                        *                (RVEC,RLVEC) = RESULTS IN BINARY OF REDUCTION.          CONRED    612
                                        *                                                                        CONRED    613
                                        *         USES   A1-7,  X0-7,  B2-3,B7.                                  CONRED    614
                                        *         CELLS  (SCR+4).                                                CONRED    615
                                        *                                                                        CONRED    616
                                        *         CALLS  CIO, CFO, NBC.                                          CONRED    617
                                                                                                                 CONRED    618
                                                                                                                 CONRED    619
           474  0400400474 +             CTA      SUBR   =           ENTRY/EXIT...                               FC5A150   521
           475  10644                             BX6    X4                                                      CONRED    621
                     10755                        BX7    X5                                                      CONRED    622
                          5160000043 +            SA6    CTAA                                                    FC5A150   522
           476  54761                             =A7    A6+1                                                    CONRED    624
                     5253777776 X                 SA5    =XF.SKEL+X3-1                                           CONRED    625
                                                                                                                 CONRED    626
           477  54551                    CTA10    =A5    A5+1                                                    FC5A150   523
                     10255                        BX2    X5                                                      CONRED    628
                          43067                   MX0    -SK.TYPL+1                                              CONRED    629
                               21266              AX2    SK.TYPP                                                 CONRED    630
           500  15020                             BX0    -X0*X2                                                  CONRED    631
                     6230777770                   SB3    X0-M.ISBRN                                              CONRED    632
           501  0530000502 +                      NZ     B3,CTA20    IF THIS INSTRUCTION NOT SKEL BRANCH         FC5A150   524
                          53550                   SA5    X5          RESET SKEL POINTER                          CONRED    634
                                                                                                                 CONRED    635
           502  0100000601 +             CTA20    RJ     ISI         INTERPRET INSTRUCTION SKELETON              FC5A150   525
           503  54550                             SA5    A5                                                      CONRED    637
                                                  HX5    SK.END                                                  CONRED    638
                     0325000477 +                 PL     X5,CTA10    IF NOT THROUGH WITH SKEL                    FC5A150   526
                                                                                                                 CONRED    640
                                        *         FORM OPERAND FOR REDUCED VALUE                                 CONRED    641
                                                                                                                 CONRED    642
           504  5120000012 +                      SA2    RVEC                                                    CONRED    643
                          5130000013 +            SA3    RLVEC                                                   CONRED    644
           505  5110000000 X                      SA1    SMOD                                                    CONRED    645
                          10622                   BX6    X2                                                      CONRED    646
                               10733              BX7    X3                                                      CONRED    647
           506  0100001064 +                      RJ     NBC                                                     CONRED    648
           507  5140000043 +                      SA4    CTAA                                                    FC5A150   527
                          54541                   =A5    A4+1        RESTORE ORIGINAL OPERANDS                   FC5A150   528
           510  0400000474 +                      EQ     EXIT.                                                   CONRED    649
                                                                                                                 CONRED    650
                                        *         PROCESS ERROR DETECTED WHILE REDUCING.                         CONRED    651
                                                                                                                 CONRED    652
           511                           CTA.ER   BSS    0                                                       FC5A150   529
           511  43600                             MX6    0                                                       CONRED    654
                     5140000043 +                 SA4    CTAA                                                    FC5A150   530
                               54541              =A5    A4+1                                                    CONRED    656
           512  0400000474 +                      EQ     EXIT.                                                   CONRED    657
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    24
        CONSTANT REDUCTION.                                           PCC 
  
                                        **        PCC -  PERFORM CHARACTER CONCATENATION.                        CONRED    659
                                        *                DOES CONCATENATION OF TWO CHARACTER CONSTANT OPERANDS.  CONRED    660
                                        *                                                                        CONRED    661
                                        *         ENTRY  (X3) = LENGTH OF (1OP), IN CHARS                        CONRED    662
                                        *                (X7) = LENGTH OF (2OP), IN CHARS                        CONRED    663
                                        *                (B3) = CON INDEX OF (1OP)                               CONRED    664
                                        *                (B2) = CON INDEX OF (2OP)                               CONRED    665
                                        *         EXIT   (X1) = LENGTH OF RESULT, IN CHARS                       CONRED    666
                                        *                (X2) = CON INDEX OF RESULT                              CONRED    667
                                        *         CALLS  ALC,MVE=,MNS=,NCM                                       CONRED    668
                                        *         USES   ALL BUT B4,B5,B6                                        CONRED    669
                                                                                                                 CONRED    670
                                                                                                                 CONRED    671
           513  0400400513 +             PCC      SUBR   =           ENTRY/EXIT.                                 CONRED    672
           514  36637                             IX6    X3+X7       NEWLEN = OP1LEN + OP2LEN                    CONRED    673
                     10433                        BX4    X3                                                      CONRED    674
                          5160000000 +            SA6    PCCA        (PCCA) = NEWLEN, IN CHARACTERS              CONRED    675
           515  7150000011                        CW     X5,X6       NEWLEN = NEWLEN / 10                        CONRED    676
           517  5076000001                        SA7    A6-PCCA+PCCB      (PCCB) = OP2LEN                       CONRED    677
                          5110000000 X            ALLOC  T.CON,X5    ALLOCATE FOR NEWLEN                         CONRED    678
           521  5120001421 +                      SA2    =1H                                                     CONRED    679
                          10622                   BX6    X2                                                      CONRED    680
                               63212              SB2    X1+B2       FWA2 = FWA(T.CON) + INDOP2                  CONRED    681
           522  76770                             SX7    B7                                                      CONRED    682
                     57671                        =A6    B7-1        LWA(T.CON) = 10H                            CONRED    683
                          73213                   SX2    X1+B3       SFWA1 = FWA(T.CON) + INDOP1                 CONRED    684
                               37375              IX3    X7-X5       NEWFWA = LWA(T.CON) + 1 - NEWLEN            CONRED    685
           523  37731                             IX7    X3-X1       NEWIND = NEWFWA - FWA(T.CON)                CONRED    686
                     22504                        LX5    X4          SAVE (X5) = OP1LEN                          CONRED    687
                          7110000011              CW     X1,X4       OP1LEN = OP1LEN / 10                        CONRED    688
           525  36631                             IX6    X3+X1                                                   CONRED    689
                     63360                        SB3    X6          (B3) = FWA1 + OP1LEN                        CONRED    690
                          5170000002 +            SA7    PCCC        (PCCC) = NEWIND                             CONRED    691
           526  0100000000 X                      MOVE   X1,X2,X3    MOVE OP1 TO NEW LOCATION                    CONRED    692
           527  5130000001 +                      SA3    PCCB        LENOP2 = (PCCB)                             CONRED    693
                          22013                   BC     X0,X3       LENOP2 = LENOP2 * 6                         CONRED    694
                     5140001420 +                 WX4    X5,X2       DFB = (X2) = REMAINDER OF LENOP1/10         CONRED    695
           534  0302000535 +                      ZR     X2,PCC5     IF OP1 MULT OF 10 CHARS                     CONRED    696
                          67331                   =B3    B3-1                                                    CONRED    697
                                                                                                                 CONRED    698
           535  22312                    PCC5     BC     X3,X2       DFB = DFB * 6                               CONRED    699
                               76640              SX6    B4                                                      CONRED    700
           536  76750                             SX7    B5                                                      CONRED    701
                     76220                        SX2    B2          SFWA = FWA2                                 CONRED    702
                          66200                   =B2    0           SFB = 0                                     CONRED    703
           537  5160000003 +                      SA6    PCCD        (PCCD) = (B4)                               CONRED    704
                          54761                   =A7    A6+1        (PCCD+1) = (B5)                             CONRED    705
                               76660              SX6    B6                                                      CONRED    706
           540  76430                             SX4    B3          DFWA = (B3)                                 CONRED    707
                     63430                        SB4    X3                                                      CONRED    708
                          54671                   =A6    A7+1        (PCCD+2) = (B6)                             CONRED    709
           541  0100000000 X                      MOVEB  X0,X2,B2,X4,B4    MOVE OP2 TO END OF OP1                CONRED    710
                                                                                                                 CONRED    711
                                        *         BLANK FILL LAST WORD.                                          CONRED    712
                                        *         (X4) -> NEXT DESTINATION ADDRESS.                              CONRED    713
                                        *         (B4) -> DESTINATION NEXT BIT                                   CONRED    714
                                                                                                                 CONRED    715
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    25
        CONSTANT REDUCTION.                                           PCC 
  
           542  5150000002 +                      SA5    PCCC        NEWIND = (PCCC)                             CONRED    716
                          5035000001              SA3    A5-PCCC+PCCD                                            CONRED    717
           543  54231                             =A2    A3+1                                                    CONRED    718
                     63430                        SB4    X3          RESTORE (B4)                                CONRED    719
                          63520                   SB5    X2          RESTORE (B5)                                CONRED    720
                               54321              =A3    A2+1                                                    CONRED    721
           544  5140000000 X                      SA4    T=CON                                                   CONRED    722
                          5110000000 X            SA1    T.CON                                                   CONRED    723
           545  63630                             SB6    X3          RESTORE (B6)                                CONRED    724
                     37045                        IX0    X4-X5       NEWLEN = (T=CHAR) - NEWIND                  CONRED    725
                          63710                   SB7    X1          *DO NOT ALLOCATE FOR THIS*                  CONRED    726
                               63257              SB2    X5+B7       FWACON = FWA(T.CON) + NEWIND                CONRED    727
           546  10755                             BX7    X5                                                      CONRED    728
                     63302                        SB3    B2+X0       LWACON = FWA CON + NEWLEN                   CONRED    729
                          54740                   SA7    A4          (T=CHAR) = (T=CHAR) - NEWLEN = NEWIND       CONRED    730
           547  0100000000 X                      RJ     NCM                                                     CONRED    731
           550  10255                             BX2    X5          NEWIND = (X5)                               CONRED    732
                     5110000000 +                 SA1    PCCA        NEWLEN = (PCCA)   */IN CHARS                CONRED    733
           551  0770000553 +                      MI     B7,PCC20    IF NOT IN TABLE                             CONRED    734
                          7127000000              SX2    B7+         NEWIND = (B7)                               CONRED    735
           552  0400000513 +                      EQ     EXIT.                                                   CONRED    736
                                                                                                                 CONRED    737
                                        *         (X0) = NEWLEN IN WORDS.                                        CONRED    738
                                                                                                                 CONRED    739
           553  5130000000 X             PCC20    SA3    T=CON                                                   CONRED    740
                          36630                   IX6    X3+X0                                                   CONRED    741
                               54630              SA6    A3          (T=CHAR) = (T=CHCAR) + NEWLEN               CONRED    742
           554  0400000513 +                      EQ     EXIT.                                                   CONRED    743
  
  
  
  
                                        **        PCR -  PROCESS CHARACTER RELATIONALS.                          CONRED    745
                                        *                                                                        CONRED    746
                                        *         ENTRY  (PCR.1OP) = T.CON INDEX OF 1ST OPERAND                  CONRED    747
                                        *                (PCR.1OP+1) = LENGTH OF 1ST OPERAND                     CONRED    748
                                        *                                                                        CONRED    749
                                        *                (PCR.2OP) = T.CON INDEX OF 2ND OPERAND                  CONRED    750
                                        *                (PCR.2OP+1) = LENGTH OF 2ND OPERAND                     CONRED    751
                                        *                                                                        CONRED    752
                                        *                (PCR.RO) = RELATIONAL OPERATOR                          CONRED    753
                                        *                                                                        CONRED    754
                                        *         EXIT   (B6) = UPDATED BY -1                                    CONRED    755
                                        *                                                                        CONRED    756
                                        *                ESTACK(B6-1) = RESULT OF REDUCTION                      CONRED    757
                                        *                                                                        CONRED    758
                                        *         CALLS  CCS,NBC.                                                CONRED    759
                                        *                                                                        CONRED    760
                                        *         USES   ALL BUT A0  B4,B5,B6.                                   CONRED    761
                                                                                                                 CONRED    762
                                         LT       IMPLIES    (O.LT,O.NE,O.LE)                                    CONRED    763
                                         EQ       IMPLIES    (O.EQ,O.GE,O.LE)                                    CONRED    764
                                         GT       IMPLIES    (O.GT,O.GE,O.NE)                                    CONRED    765
                                                                                                                 CONRED    766
           555  0400400555 +             PCR      SUBR   =                 ENTRY/EXIT...                         CONRED    767
           556  5140000000 X                      SA4    T.CON                                                   CONRED    768
                          5120000574 +            SA2    PCR.1OP                                                 CONRED    769
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    26
        CONSTANT REDUCTION.                                           PCR 
  
           557  5130000576 +                      SA3    PCR.2OP                                                 CONRED    770
                          36142                   IX1    X4+X2                                                   CONRED    771
                               53110              SA1    X1          (A1,X1) _ 1ST STRING                        CONRED    772
           560  36243                             IX2    X4+X3                                                   CONRED    773
                     53220                        SA2    X2          (A2,X2) _ 2ND STRING                        CONRED    774
                          5140000575 +            =A4    PCR.1OP+1                                               CONRED    775
           561  63240                             SB2    X4          B2 = LENGTH OF 1ST STRING                   CONRED    776
                     5130000577 +                 =A3    PCR.2OP+1                                               CONRED    777
                               63330              SB3    X3          B3 = LENGTH OF 2ND STRING                   CONRED    778
           562  0100000766 +                      RJ     CCS         COMPARE CHARACTER STRINGS                   CONRED    779
           563  5110001422 +                      LDX    X1,"EQ"     X1 = IMPLICATION VECTOR FOR EQ              CONRED    780
                          0307000566 +            ZR     X7,PCR10    IF 1ST STRING .EQ. 2ND STRING               CONRED    781
           564  5110001423 +                      LDX    X1,"LT"     X1 = IMPLICATION VECTOR FOR LT              CONRED    782
                          0337000566 +            MI     X7,PCR10    IF 1ST STRING .LT. 2ND STRING               CONRED    783
           565  5110001424 +                      LDX    X1,"GT"     X1 = IMPLICATION VECTOR GT                  CONRED    784
                                                                                                                 CONRED    785
           566  5120000600 +             PCR10    SA2    PCR.RO      X2 = RELOP FROM SOURCE STATEMENT            CONRED    786
                          63220                   SB2    X2                                                      CONRED    787
           567  6130000073                        SB3    59                                                      CONRED    788
                          67332                   SB3    B3-B2                                                   CONRED    789
                               22631              LX6    X1,B3                                                   CONRED    790
           570  21673                             AX6    59                                                      CONRED    791
                     43173                        MX1    59                                                      CONRED    792
                          11616                   BX6    X1*X6       X6 = COMPILER TRUE OR FALSE                 CONRED    793
           571  7110000001                        SX1    M.LOG       INDICATE TYPE LOGICAL                       CONRED    794
                          43700                   MX7    0                                                       CONRED    795
           572  0100001064 +                      RJ     NBC         GET OPERAND REPRESENTING RESULT             CONRED    796
           573  67661                             =B6    B6-1        POP ESTACK                                  CONRED    797
                     57661                        =A6    B6-1        STACK RESULT OF REDUCTION                   CONRED    798
                          0400000555 +            EQ     EXIT.                                                   CONRED    799
                                                                                                                 CONRED    800
                                                                                                                 CONRED    801
           574                     2     PCR.1OP  BSSENT 2                                                       CONRED    802
           576                     2     PCR.2OP  BSSENT 2                                                       CONRED    803
           600                     1     PCR.RO   BSSENT 1                                                       CONRED    804
  
  
  
  
                                        **        ISI - INTERPRET SKELETON INSTRUCTION.                          CONRED    806
                                                                                                                 CONRED    807
           601  0400400601 +             ISI      SUBR                                                           CONRED    808
           602  20514                             LX5    -SK.GHP                                                 CONRED    809
                     43066                        MX0    -SK.GHL                                                 CONRED    810
                          6120000003              SB2    3                                                       CONRED    811
           603  15650                             BX6    -X0*X5                                                  CONRED    812
                     5160000740 +                 SA6    COL.PO      *COL* NEEDS PIK=PS OFFSET                   FC5A158A  429
           604  5216000000 X                      SA1    =XPIK=PS+X6                                             CONRED    813
                          10711                   BX7    X1                                                      CONRED    814
                               20666              LX6    45+9                                                    CONRED    815
           605  5170000045 +                      SA7    PIK                                                     CONRED    816
                          5160000046 +            SA6    OPCODE                                                  CONRED    817
           606  5110000047 +                      SA1    INST=23                                                 CONRED    818
                          20544                   LX5    SK.GHP-SK.KFP     RIGHT JUSTIFY K INFO                  CONRED    819
                               12616              BX6    X1+X6                                                   CONRED    820
           607  20753                             HX7    OD.JKV                                                  CONRED    821
                     0327000610 +                 PL     X7,ISI5     IF NOT JK VALUE INSTRUCTION                 CONRED    822
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    27
        CONSTANT REDUCTION.                                           ISI 
  
                               43600              MX6    0           LOP WILL DEFINE INSTRUCTION                 CONRED    823
                                                                                                                 CONRED    824
           610  5160000633 +             ISI5     SA6    INST        INITIALIZE FOR NOMINAL INSTRUCTION          CONRED    825
                                                                                                                 CONRED    826
           611  43066                    ISI10    MX0    -SR.NUML                                                CONRED    827
                     15250                        BX2    -X0*X5                                                  CONRED    828
                          20566                   LX5    -SR.NUML                                                CONRED    829
                               43067              MX0    -SR.OADL                                                CONRED    830
           612  15150                             BX1    -X0*X5                                                  CONRED    831
                     20567                        LX5    -SR.OADL                                                CONRED    832
                          0100000640 +            RJ     LOP         LOAD OPERAND                                CONRED    833
           613  67221                             =B2    B2-1        FIELDN = FIELDN - 1                         CONRED    834
                     5162000040 +                 SA6    FIELD+B2    SAVE POINTER TO OPERAND VALUE               CONRED    835
           614  0520000611 +                      NZ     B2,ISI10    IF NOT FIELD1 (I)                           CONRED    836
                          5110000045 +            SA1    PIK                                                     CONRED    837
           615  20157                             HX1    OD.COPY                                                 CONRED    838
                     0321000623 +                 PL     X1,ISI20    IF NOT JJ INSTRUCTION                       CONRED    839
           616  5140000046 +                      SA4    OPCODE                                                  CONRED    840
                          5120000050 +            SA2    INST=22                                                 CONRED    841
           617  12624                             BX6    X2+X4                                                   CONRED    842
                     5160000633 +                 PLUG   AT=INST,FROM=X6                                         CONRED    843
           622  0400000630 +                      EQ     ISI30                                                   CONRED    844
                                                                                                                 CONRED    845
           623  20171                    ISI20    LX1    OD.COPYP-OD.KJP                                         CONRED    846
                     0321000630 +                 PL     X1,ISI30    IF NOT K=J INSTRUCTION                      CONRED    847
           624  5140000046 +                      SA4    OPCODE                                                  CONRED    848
                          5120000054 +            SA2    INST=32                                                 CONRED    849
           625  12624                             BX6    X2+X4                                                   CONRED    850
                     5160000633 +                 PLUG   AT=INST,FROM=X6                                         CONRED    851
                                                                                                                 CONRED    852
           630  5120000041 +             ISI30    SA2    FIELD+1                                                 CONRED    853
                          54321                   =A3    A2+1                                                    CONRED    854
                               53220              SA2    X2                                                      CONRED    855
           631  53330                             SA3    X3                                                      CONRED    856
                     0100000713 +                 RJ     COL         CHECK OPERAND LEGALITY                      CONRED    857
           632  5110000040 +                      SA1    FIELD                                                   CONRED    858
                          53110                   SA1    X1                                                      CONRED    859
                                                                                                                 CONRED    860
           633  0400400633 +             INST     EQ     "BLOWUP"                                                CONRED    861
                                                                                                                 CONRED    862
                                        *         STORE RESULT.                                                  CONRED    863
                                                                                                                 CONRED    864
           634  5120000040 +                      SA2    FIELD                                                   CONRED    865
                          10711                   BX7    X1                                                      CONRED    866
                               53720              SA7    X2                                                      CONRED    867
           635  5110000045 +                      SA1    PIK                                                     CONRED    868
                          20156                   HX1    OD.FPA                                                  CONRED    869
           636  0321000601 +                      PL     X1,EXIT.    IF NOT FLOATING POINT ARITHMETIC            CONRED    870
                          0357000511 +            OR     X7,CTA.ER   IF RESULT OUT OF RANGE                      FC5A150   531
           637  0377000511 +                      ID     X7,CTA.ER   IF RESULT INDEF.                            FC5A150   532
                          0400000601 +            EQ     EXIT.                                                   CONRED    873
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    28
        CONSTANT REDUCTION.                                           LOP 
  
                                        **        LOP - LOAD OPERAND.                                            CONRED    875
                                                                                                                 CONRED    876
                                                  MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ                          CONRED    877
                                                  IFC    EQ,/OPEQ//,5                                            CONRED    878
                                                  IFC    NE,/LAST/NOTLAST/,2                                     CONRED    879
                                                  IFC    NE,/NOTLAST/NONE/,1                                     CONRED    880
                                                  EQ     LOP.OP                                                  CONRED    881
                                                  IFC    NE,/LAST/NONE/,1                                        CONRED    882
                                                  EQ     LOP.OP                                                  CONRED    883
                                                  ENDM                                                           CONRED    884
                                                                                                                 CONRED    885
           640  0400400640 +             LOP      SUBR                                                           CONRED    886
           641  5140000046 +                      SA4    OPCODE                                                  CONRED    887
                          63310                   SB3    X1                                                      CONRED    888
           642  0233000643 +                      JP     LOP.JT+B3                                               CONRED    889
                                                                                                                 CONRED    890
           643                           LOP.JT   BSS    0                                                       CONRED    891
      L      0                                    LOC    0                                                       CONRED    892
                                                  LIST   -X,G                                                    CONRED    893
      L      0                           SKOP     CTEXT                                                          SKOP        2
      L      0  0400000672 +                      EQ     LOP.A                                                  SKOP    .1
      L      1  0400000672 +                      EQ     LOP.A                                                  SKOP    .1
      L      2  0400000700 +                      EQ     LOP.B                                                  SKOP    .1
      L      3  0400000700 +                      EQ     LOP.B                                                  SKOP    .1
      L      4  0400000672 +                      EQ     LOP.X                                                  SKOP    .1
      L      5  0400000672 +                      EQ     LOP.X                                                  SKOP    .1
      L      6  0400000673 +                      EQ     LOP.L                                                  SKOP    .1
      L      7  0400000673 +                      EQ     LOP.L                                                  SKOP    .1
      L     10  0400000674 +                      EQ     LOP.LL                                                 SKOP    .1
      L     11  0400000674 +                      EQ     LOP.LL                                                 SKOP    .1
      L     12  0400000672 +                      EQ     LOP.P                                                  SKOP    .1
      L     13  0400000675 +                      EQ     LOP.R                                                  SKOP    .1
      L     14  0400000676 +                      EQ     LOP.RL                                                 SKOP    .1
      L     15  0400000672 +                      EQ     LOP.GP                                                 SKOP    .1
      L     16  0400000672 +                      EQ     LOP.GL                                                 SKOP    .1
      L     17  0400000672 +                      EQ     LOP.GL                                                 SKOP    .1
      L     20  0400000672 +                      EQ     LOP.GLL                                                SKOP    .1
      L     21  0400000672 +                      EQ     LOP.GLL                                                SKOP    .1
      L     22  0400000677 +                      EQ     LOP.T                                                  SKOP    .1
      L     23  0400000677 +                      EQ     LOP.T                                                  SKOP    .1
      L     24  0400000672 +                      EQ     LOP.Q                                                  SKOP    .1
      L     25  0400000672 +                      EQ     LOP.S                                                  SKOP    .1
      L     26  0400000704 +                      EQ     LOP.K                                                  SKOP    .1
                                                                                                                 CONRED    895
                                                  LIST   *                                                       CONRED    896
           672                                    LOC    *O                                                      CONRED    897
                                                                                                                 CONRED    898
           672                           LOP.A    BSS    0                                                       CONRED    899
           672                           LOP.X    BSS    0                                                       CONRED    900
           672                           LOP.P    BSS    0                                                       CONRED    901
           672                           LOP.GP   BSS    0                                                       CONRED    902
           672                           LOP.GL   BSS    0                                                       CONRED    903
           672                           LOP.GLL  BSS    0                                                       CONRED    904
           672                           LOP.Q    BSS    0                                                       CONRED    905
           672                           LOP.S    BSS    0                                                       CONRED    906
           672  0400400672 +                      EQ     "BLOWUP"                                                CONRED    907
                                                                                                                 CONRED    908
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    29
        CONSTANT REDUCTION.                                           LOP 
  
           673  7262000005 +             LOP.L    SX6    LVEC+X2-1                                               CONRED    909
                          0400000640 +            EQ     EXIT.                                                   CONRED    910
                                                                                                                 CONRED    911
           674  7262000007 +             LOP.LL   SX6    LLVEC+X2-1                                              CONRED    912
                          0400000640 +            EQ     EXIT.                                                   CONRED    913
                                                                                                                 CONRED    914
           675  7160000012 +             LOP.R    SX6    RVEC                                                    CONRED    915
                          0400000640 +            EQ     EXIT.                                                   CONRED    916
                                                                                                                 CONRED    917
           676  7160000013 +             LOP.RL   SX6    RLVEC                                                   CONRED    918
                          0400000640 +            EQ     EXIT.                                                   CONRED    919
                                                                                                                 CONRED    920
           677  7262000014 +             LOP.T    SX6    TVEC+X2                                                 CONRED    921
                          0400000640 +            EQ     EXIT.                                                   CONRED    922
                                                                                                                 CONRED    923
           700  5110000053 +             LOP.B    SA1    INST=73                                                 CONRED    924
                          0521000702 +            NE     B2,B1,LOPB10      IF NOT I FIELD                        FC5A190    28
           701  5110000055 +                      SA1    INST=SB                                                 FC5A190    29
                                                                                                                 FC5A190    30
           702  12614                    LOPB10   BX6    X1+X4                                                   FC5A190    31
                     5160000633 +                 SA6    INST        J = B7                                      CONRED    926
           703  0400000640 +                      EQ     EXIT.                                                   CONRED    927
                                                                                                                 CONRED    928
           704  5110000045 +             LOP.K    SA1    PIK                                                     CONRED    929
                          20255                   LX2    45                                                      CONRED    930
                               20153              HX1    OD.JKV                                                  CONRED    931
           705  0321000710 +                      PL     X1,LOP.K10  IF NOT JKVAL INSTR.                         CONRED    932
                          5110000051 +            SA1    INST=00                                                 CONRED    933
           706  12014                             BX0    X1+X4                                                   CONRED    934
                     12602                        BX6    X0+X2                                                   CONRED    935
                          5110000633 +            SA1    INST                                                    CONRED    936
           707  12661                             BX6    X6+X1                                                   CONRED    937
                     54610                        SA6    A1                                                      CONRED    938
                          0400000640 +            EQ     EXIT.                                                   CONRED    939
                                                                                                                 CONRED    940
           710  20173                    LOP.K10  LX1    OD.JKVP-OD.BJP                                          CONRED    941
                     0321000640 +                 PL     X1,EXIT.    IF NOT B-REG INSTR.                         CONRED    942
                                                  IFNE   TEST,0,1                                                CONRED    943
                                                  NZ     X2,"BLOWUP" IF VAL .NZ.                                 CONRED    944
           711  5110000052 +                      SA1    INST=03                                                 CONRED    945
                          12614                   BX6    X1+X4                                                   CONRED    946
           712  5160000633 +                      SA6    INST                                                    CONRED    947
                          0400000640 +            EQ     EXIT.                                                   CONRED    948
  
  
  
  
                                        **        COL - CHECK OPERAND LEGALITY.                                  CONRED    950
                                                                                                                 CONRED    951
           713  0400400713 +             COL      SUBR                                                           CONRED    952
           714  5110000045 +                      SA1    PIK                                                     CONRED    953
                          20150                   HX1    OD.UP                                                   CONRED    954
           715  0321000722 +                      PL     X1,COL10    IF NOT UNPACK INSTRUCTION                   CONRED    955
                          10733                   BX7    X3                                                      CONRED    956
           716  0100000741 +                      RJ     CFO         CHECK FLOATING POINT OPERAND                CONRED    957
           717  0400000713 +                      EQ     EXIT.       TO ALLOW REDUCTION OF NINT (IF NO PROBLEM)  CONRED    958
           720  26033                             UX0    B3,X3                                                   CONRED    959
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    30
        CONSTANT REDUCTION.                                           COL 
  
                     0630000511 +                 PL     B3,CTA.ER   IF VALUE TOO LARGE TO FIX                   FC5A150   533
           721  0400000713 +                      EQ     EXIT.                                                   CONRED    961
                                                                                                                 CONRED    962
           722  20101                    COL10    LX1    OD.UPP-OD.PKP                                           CONRED    963
                     0321000725 +                 PL     X1,COL20    IF NOT PACK INSTRUCTION                     CONRED    964
                               10733              BX7    X3                                                      CONRED    965
           723  0100000744 +                      RJ     CIO         CHECK INTEGER OPERAND                       CONRED    966
           724  0400000713 +                      EQ     EXIT.                                                   CONRED    967
                                                                                                                 CONRED    968
           725  20105                    COL20    LX1    OD.PKP-OD.FPAP                                          CONRED    969
                     0321000713 +                 PL     X1,EXIT.    IF NOT FP ARITHMETIC                        CONRED    970
                               10722              BX7    X2                                                      CONRED    971
           726  0100000741 +                      RJ     CFO         CHECK 1OP                                   CONRED    972
           727  10733                             BX7    X3                                                      CONRED    973
                     0100000741 +                 RJ     CFO         CHECK 2OP                                   CONRED    974
           730  26722                             UX7    X2,B2       B2 = EXPONENT OF 1OP                        FC5A158A  430
                     6122000060                   SB2    B2+60B                                                  FC5A158A  431
                               26733              UX7    X3,B3       B3 = EXPONENT OF 2OP                        FC5A158A  432
           731  6133000060                        SB3    B3+60B                                                  FC5A158A  433
                          6170002050              SB7    1770B+60B   B7 = TEST VALUE                             FC5A158A  434
           732  20173                             LX1    OD.FPAP-OD.DIVP                                         FC5A158A  435
                     0321000735 +                 PL     X1,COL30    IF NOT DIVIDE                               FC5A158A  436
                               24103              NX1    X3                                                      FC5A158A  437
           733  0301000511 +                      ZR     X1,CTA.ER   IF DIVIDE BY ZERO                           FC5A158A  438
                          67223                   SB2    B2-B3                                                   FC5A158A  439
           734  0772000511 +                      GT     B2,B7,CTA.ER      IF RESULT OF DIVIDE WOULD BE BAD      FC5A158A  440
                          0400000713 +            EQ     EXIT.                                                   FC5A158A  441
                                                                                                                 FC5A158A  442
           735  5110000740 +             COL30    SA1    COL.PO      X1 = OFFSET INTO PIK=PS TABLE               FC5A158A  443
                          7211777737              SX1    X1-40B      ADDS AND SUBTRACTS HAVE OFFSETS .LT. 40B    FC5A158A  444
           736  0331000713 +                      MI     X1,EXIT.    IF ADD OR SUBTRACT                          FC5A158A  445
                          66223                   SB2    B2+B3                                                   FC5A158A  446
           737  0772000511 +                      GT     B2,B7,CTA.ER      IF RESULT OF MULTIPLY WOULD BE BAD    FC5A158A  447
                          0400000713 +            EQ     EXIT.                                                   FC5A158A  448
                                                                                                                 FC5A158A  449
           740                     1     COL.PO   BSS    1           OFFSET INTO PIK.PS TABLE                    FC5A158A  450
  
  
  
  
                                        **        CFO - CHECK FL. PT. OPDERAND.                                  CONRED    980
                                        *                                                                        CONRED    981
                                        *         PRESERVES X1,X2,X3 , B3,B4,B5,B6 , A5                          CONRED    982
                                                                                                                 CONRED    983
           741  0400400741 +             CFO      SUBR                                                           CONRED    984
           742  0357000511 +                      OR     X7,CTA.ER   IF OPERAND OUT OF RANGE                     FC5A150   535
                          0377000511 +            ID     X7,CTA.ER   IF OPERAND INDEF.                           FC5A150   536
           743  0400000741 +                      EQ     EXIT.                                                   CONRED    987
  
  
  
  
                                        **        CIO - CHECK INTEGER ABOUT TO BE FLOATED.                       CONRED    989
                                                                                                                 CONRED    990
           744  0400400744 +             CIO      SUBR                                                           CONRED    991
           745  21760                             AX7    60-12                                                   CONRED    992
                     0307000744 +                 ZR     X7,EXIT.    IF NOT TOO LARGE                            CONRED    993
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    31
        CONSTANT REDUCTION.                                           CIO 
  
           746  0400000511 +                      EQ     CTA.ER                                                  FC5A150   537
  
  
  
  
                                        **        KMOD - CONSTANT MODE-CONVERSION SELECTOR MATRIX.               CONRED    996
                                        *                                                                        CONRED    997
                                        * TYPE    KMOD   B,L,I,R,D,Z,H                                           CONRED    998
                                                                                                                 CONRED    999
                                                                                                                 CONRED   1000
                                                  MACRO  KMOD,TYPE,U,L,I,R,D,Z,H                                 CONRED   1001
                                         E        MICRO                                                          CONRED   1002
                                         .1       ECHO   ,P=(H,Z,D,R,I,L,U)                                      CONRED   1003
                                                  IFC    EQ,/P/--/,2                                             CONRED   1004
                                         E        MICRO  1,,$"E"8/0,$                                            CONRED   1005
                                                  SKIP   4                                                       CONRED   1006
                                                  IFC    EQ,/P/**/,2                                             CONRED   1007
                                         E        MICRO  1,,$"E"8/KCNN-KCEE,$                                    CONRED   1008
                                                  SKIP   1                                                       CONRED   1009
                                         E        MICRO  1,,$"E"8/KC_P-KCEE,$                                    CONRED   1010
                                         .1       ENDD                                                           CONRED   1011
                                        *                                                                        CONRED   1012
                                         M.TYPE   VFD    4/0,"E"                                                 CONRED   1013
                                                  ENDM                                                           CONRED   1014
                                                                                                                 CONRED   1015
                                                                                                                 CONRED   1016
           747                           KMOD     BSS    0           CONSTANT MODE-CONVERSION SELECTOR MATRIX    CONRED   1017
      L      0                                    LOC    0                                                       CONRED   1018
      L      0  00000140300100200001     BOOL     KMOD   **,--,**,**,RD,RZ,--                                    CONRED   1019
      L      1  00000000000000000400     LOG      KMOD   --,**,--,--,--,--,--                                    CONRED   1020
      L      2  00000120240500200001     INT      KMOD   **,--,**,IR,ID,IZ,--                                    CONRED   1021
      L      3  00000140300101600001     REAL     KMOD   **,--,RI,**,RD,RZ,--                                    CONRED   1022
      L      4  00000140040101600001     DBL      KMOD   **,--,DI,**,**,DZ,--                                    CONRED   1023
      L      5  00000020300101600001     CPLX     KMOD   **,--,ZI,**,ZD,**,--                                    CONRED   1024
      L      6  00010000000000000000     CHAR     KMOD   --,--,--,--,--,--,**                                    CONRED   1025
      L      7                           N.TYPE   BSS                                                            CONRED   1026
           756                                    LOC    *O                                                      CONRED   1027
  
  
  
  
                                        **        KCV - CONVERT CONSTANT VALUE.                                  CONRED   1029
                                        *                                                                        CONRED   1030
                                        *         ENTRY  (X6, X7) = OLD VALUE OF CONSTANT.                       CONRED   1031
                                        *                (X0) = OLD MODE.                                        CONRED   1032
                                        *                (X1) = DESIRED MODE.                                    CONRED   1033
                                        *                                                                        CONRED   1034
                                        *         EXIT   (B2) .MI. = ILLEGAL CONVERSION.                         CONRED   1035
                                        *                     .ZR. = NULL CONVERSION (OLD CONSTANT IS EQUIVALENT CONRED   1036
                                        *                            VALUE).                                     CONRED   1037
                                        *                (X1) = DESIRED MODE.                                    CONRED   1038
                                        *                (X6, X7) = NEW VALUE OF CONSTANT.                       CONRED   1039
                                        *                                                                        CONRED   1040
                                        *         USES   A1,A2  X0,X2,X3  B7.                                    CONRED   1041
                                                                                                                 CONRED   1042
                                                                                                                 CONRED   1043
           756  6120777776               KCEE     SB2    -1          INDICATE ILL CONVERSION                     CONRED   1044
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    32
        CONSTANT REDUCTION.                                           KCV 
  
                                                                                                                 CONRED   1045
           757  0400400757 +             KCV      SUBR   =           ENTRY/EXIT...                               CONRED   1046
           760  5220000747 +                      SA2    X0+KMOD     FETCH ROW FOR OLD MODE                      CONRED   1047
                          20103                   LX1    3           (B2) = 8 * SMOD                             CONRED   1048
                               43064              MX0    -8                                                      CONRED   1049
           761  63210                             SB2    X1                                                      CONRED   1050
                     23322                        AX3    B2,X2       SLIDE ROW TO DOMINANT COLUMN                CONRED   1051
                          15330                   BX3    -X0*X3                                                  CONRED   1052
                               21103              AX1    3           RESTORE (X1) = (SMOD)                       CONRED   1053
           762  6223777776                        SB2    X3-1                                                    CONRED   1054
                          0222000757 +            JP     B2+KCEE+1   ENTER MODE-CONVERTER..                      CONRED   1055
                                                                                                                 CONRED   1056
                                                                                                                 CONRED   1057
                                 757 +   KCNN     EQU    EXIT.       NULL CONVERSION                             CONRED   1058
                                                                                                                 CONRED   1059
                                 756 +   KCEE     EQU    KCNN-1      ILL CONVERSION                              CONRED   1060
                                                                                                                 CONRED   1061
           763                           KCIR     BSS                INT  ->  REAL                               CONRED   1062
           763                           KCID     BSS                INT  ->  DBL                                CONRED   1063
           763                           KCIZ     BSS                INT  ->  CPLX                               CONRED   1064
           763  27206                             PX2    X6                                                      CONRED   1065
                     6100000000                   SB0    +                                                       CONRED   1066
                               24602              NX6    X2                                                      CONRED   1067
                                                                                                                 CONRED   1068
           764                           KCRD     BSS                REAL ->  DBL                                CONRED   1069
           764                           KCRZ     BSS                REAL ->  CPLX                               CONRED   1070
           764                           KCDZ     BSS                DBL  ->  CPLX                               CONRED   1071
           764                           KCZD     BSS                CPLX ->  DBL                                CONRED   1072
           764  76700                             SX7    B0          LOWER = ZERO                                CONRED   1073
                     0400000757 +                 EQ     EXIT.                                                   CONRED   1074
                                                                                                                 CONRED   1075
           765                           KCRI     BSS                REAL ->  INT                                CONRED   1076
           765                           KCDI     BSS                DBL  ->  INT                                CONRED   1077
           765                           KCZI     BSS                CPLX ->  INT                                CONRED   1078
           765  26276                             UX2,B7 X6                                                      CONRED   1079
                     22672                        LX6    X2,B7                                                   CONRED   1080
                          0400000757 +            EQ     EXIT.                                                   CONRED   1081
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    33
        CONSTANT TEST AND MANIPULATION.                               CCS 
  
                                        **        CCS -  COMPARE CHARACTER STRINGS.                              CONRED   1084
                                        *                                                                        CONRED   1085
                                        *         ENTRY  (A1,X1) _ 1ST CHARACTER STRING.                         CONRED   1086
                                        *                (B2) = LENGTH OF THE 1ST STRING.                        CONRED   1087
                                        *                                                                        CONRED   1088
                                        *                (A2,X2) _ 2ND CHARACTER STRING                          CONRED   1089
                                        *                (B3) = LENGTH OF THE 2ND STRING.                        CONRED   1090
                                        *                                                                        CONRED   1091
                                        *         EXIT   (X7) = MI IF 1ST STRING .LT. 2ND.                       CONRED   1092
                                        *                     = ZR IF 1ST STRING .EQ. 2ND                        CONRED   1093
                                        *                     = PLNZ IF 1ST STRING .GT. 2ND.                     CONRED   1094
                                        *                                                                        CONRED   1095
                                        *         CALLS  GNC.                                                    CONRED   1096
                                        *                                                                        CONRED   1097
                                        *         USES   X - ALL  A - 1,2,5  B - 2,3,7                           CONRED   1098
                                                                                                                 CONRED   1099
           766  0400400766 +             CCS      SUBR               ENTRY/EXIT...                               CONRED   1100
           767  6170000012                        SB7    10          NEXT WORD FLAG                              CONRED   1101
                          43006                   MX0    CHAR                                                    CONRED   1102
                                                                                                                 CONRED   1103
           770  76323                    CCS10    SX3    B2+B3                                                   CONRED   1104
                     43700                        MX7    0                                                       CONRED   1105
                          0303000766 +            ZR     X3,EXIT.    IF BOTH STRINGS DONE                        CONRED   1106
           771  0100000774 +                      RJ     GNC         GET NEXT CHARACTERS                         CONRED   1107
           772  37743                             IX7    X4-X3                                                   CONRED   1108
                     0317000766 +                 NZ     X7,EXIT.    IF STRINGS DONT MATCH HERE                  CONRED   1109
           773  0400000770 +                      EQ     CCS10       CONTINUE                                    CONRED   1110
  
  
  
  
                                        **        GNC -  GET NEXT CHARACTERS.                                    CONRED   1112
                                        *                                                                        CONRED   1113
                                        *         MEANT TO BE USED IN CONJUNCTION WITH CCS.                      CONRED   1114
                                        *                                                                        CONRED   1115
                                        *         ENTRY  (A1,X1) _ A WORD OF 1ST CHARACTER STRING.               CONRED   1116
                                        *                (B2) = NUMBER OF CHARACTERS LEFT IN THE STRING.         CONRED   1117
                                        *                                                                        CONRED   1118
                                        *                (A2,X2) _ A WORD OF 2ND CHARACTER STRING.               CONRED   1119
                                        *                (B3) = NUMBER OF CHARACTERS LEFT IN THE STRING.         CONRED   1120
                                        *                                                                        CONRED   1121
                                        *                (X0) = CHARACTER MASK IN UPPER 6 BITS.                  CONRED   1122
                                        *                                                                        CONRED   1123
                                        *                (B7) = NUMBER OF CHARS IN X1,X2 NOT YET COMPARED.       CONRED   1124
                                        *                                                                        CONRED   1125
                                        *         NOTE - WHEN EITHER B2 OR B3 ARE ZERO ON EXIT,                  CONRED   1126
                                        *                IT INDICATES THAT THE CORRESPONDING STRING HAS BEEN     CONRED   1127
                                        *                EXHAUSTED, AND THAT THE ASSOCIATED REGISTERS NO LONGER  CONRED   1128
                                        *                POINT TO THE STRING.                                    CONRED   1129
                                        *                                                                        CONRED   1130
                                        *         CALLS  DTA.                                                    CONRED   1131
                                        *                                                                        CONRED   1132
                                        *         USES   X - 1,2,3,4,5,6,7  A - 1,2,5  B - 2,3,7                 CONRED   1133
                                                                                                                 CONRED   1134
           774  0400400774 +             GNC      SUBR               ENTRY/EXIT...                               CONRED   1135
           775  0520000777 +                      NZ     B2,GNC10    IF 1ST STRING NOT EXHAUSTED                 CONRED   1136
                          66221                   =B2    B2+1        GUARANTEES B2 STAYS ZERO                    CONRED   1137
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    34
        CONSTANT TEST AND MANIPULATION.                               GNC 
  
           776  5110001421 +                      SA1    =10H            SUPPLY BLANKS FROM NOW ON               CONRED   1138
                                                                                                                 CONRED   1139
           777  0530001001 +             GNC10    NZ     B3,GNC20    IF 2ND STRING NOT EXHAUSTED                 CONRED   1140
                          66331                   =B3    B3+1        GUARANTEES B3 STAYS ZERO                    CONRED   1141
          1000  5120001421 +                      SA2    =10H            SUPPLY BLANKS FROM NOW ON               CONRED   1142
                                                                                                                 CONRED   1143
          1001  11301                    GNC20    BX3    X0*X1       ISOLATE CHARACTER FROM 1ST STRING           CONRED   1144
                     0100000204 +                 RJ     DTA         DPC TO ASCII                                CONRED   1145
          1002  10433                             BX4    X3          PRESERVES ABOVE CONVERSION                  CONRED   1146
                     11302                        BX3    X0*X2       ISOLATE CHARACTER FROM 2ND STRING           CONRED   1147
                          0100000204 +            RJ     DTA         DPC TO ASCII                                CONRED   1148
          1003  20106                             LX1    CHAR                                                    CONRED   1149
                     20206                        LX2    CHAR                                                    CONRED   1150
                          67221                   =B2    B2-1                                                    CONRED   1151
                               67331              =B3    B3-1                                                    CONRED   1152
          1004  67771                             =B7    B7-1                                                    CONRED   1153
                     0570000774 +                 NZ     B7,EXIT.    IF NEXT WORD NOT REQUIRED                   CONRED   1154
                               54111              =A1    A1+1                                                    CONRED   1155
          1005  54221                             =A2    A2+1                                                    CONRED   1156
                     0400000774 +                 EQ     EXIT.                                                   CONRED   1157
  
  
  
  
                                        **        LCH - LOAD VALUE OF CONSTANT.                                  CONRED   1159
                                        *                                                                        CONRED   1160
                                        *         ENTRY  (X1) = OPERAND FOR PROPOSED CONSTANT.                   CONRED   1161
                                        *                                                                        CONRED   1162
                                        *         EXIT   (X0) = MODE OF OPERAND.                                 CONRED   1163
                                        *                (B2, X3, X6, X7) = SEE BELOW.                           CONRED   1164
                                        *                                                                        CONRED   1165
                                        *         IF OPERAND NOT CONSTANT --                                     CONRED   1166
                                        *                (B2) = 0                                                CONRED   1167
                                        *                                                                        CONRED   1168
                                        *         IF CHARACTER CONSTANT --                                       CONRED   1169
                                        *                (B2) = -2                                               CONRED   1170
                                        *                (X6) = WORD INDEX OF VALUE (IN T.CON).                  CONRED   1171
                                        *                (X7) = CONSTANT LENGTH (CHARS).                         CONRED   1172
                                        *                                                                        CONRED   1173
                                        *         IF LONG CONSTANT (IN T.CON) --                                 CONRED   1174
                                        *                (B2) = -1                                               CONRED   1175
                                        *                (X3) = WORD INDEX OF VALUE IN (T.CON).                  CONRED   1176
                                        *                (X6) = UPPER HALF OF VALUE.                             CONRED   1177
                                        *                (X7) = LOWER HALF.                                      CONRED   1178
                                        *                                                                        CONRED   1179
                                        *         IF SHORT CONSTANT RESULT --                                    CONRED   1180
                                        *                (B2) = +1                                               CONRED   1181
                                        *                (X6) = VALUE.                                           CONRED   1182
                                        *                                                                        CONRED   1183
                                        *                                                                        CONRED   1184
                                        *         USES   A1-3,6.   X0-3,6-7.  B2,7.                              CONRED   1185
                                        *         CALLS  LCT.                                                    CONRED   1186
                                                                                                                 CONRED   1187
                                                                                                                 CONRED   1188
          1006  0400401006 +             LCH      SUBR   =           ENTRY/EXIT...                               CONRED   1189
          1007  43071                             MX0    -TP.MODEL                                               CONRED   1190
                     10611                        BX6    X1                                                      CONRED   1191
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    35
        CONSTANT TEST AND MANIPULATION.                               LCH 
  
                          66200                   SB2    B0          PRESET RESULT = NOT CONSTANT                CONRED   1192
                                                  LX1    -TP.MODEP                                               CONRED   1193
                               15010              BX0    -X0*X1      (X0) = MODE OF OPERAND                      CONRED   1194
          1010  20620                             HX6    TP.BIAS                                                 CONRED   1195
                     6270777771                   =B7    X0-M.CHAR                                               CONRED   1196
                               20120              LX1    TP.MODEP-TP.ORDP                                        CONRED   1197
          1011  21644                             AX6    -TP.BIASL   RETURN (X6) = INDEX INTO CON TABLE          CONRED   1198
                     43754                        MX7    -TP.ORDL                                                CONRED   1199
                          15717                   BX7    -X7*X1      (X7) = (TP.ORD)                             CONRED   1200
                               20141              LX1    TP.ORDP-1-TP.INTRP                                      CONRED   1201
          1012  0570001032 +                      NZ     B7,LCH6     IF OPERAND MODE NOT CHARACTER               CONRED   1202
                                                                                                                 CONRED   1203
                                        *         WHEN RESULT IS CHARACTER, IT SHOULD BE AN INTERMEDIATE WHICH   CONRED   1204
                                        *         POINTS TO A SUBSTRING TURPLE.                                  CONRED   1205
                                                                                                                 CONRED   1206
                          0321001031 +            PL     X1,LCH4     IF OPERAND NOT INTERMEDIATE                 CONRED   1207
                                                                                                                 CONRED   1208
                                         .T       IFEQ   TEST,ON                                                 CONRED   1209
                                                  NZ     X6,"BLOWUP" IF BIAS NOT ZERO                            CONRED   1210
                                                  MI     X6,"BLOWUP"                                             CONRED   1211
                                                  SA2    T=PAR                                                   CONRED   1212
                                                  IX6    X7-X2                                                   CONRED   1213
                                                  PL     X6,"BLOWUP" IF INTERMEDIATE TOO BIG                     CONRED   1214
                                         .T       ENDIF                                                          CONRED   1215
                                                                                                                 CONRED   1216
          1013  5120000000 X                      SA2    T.PAR                                                   CONRED   1217
                          63720                   =B7    X2+OR.OPR                                               CONRED   1218
                               53377              SA3    X7+B7       FETCH OPERATOR WORD OF TURPLE               CONRED   1219
          1014  43056                             MX0    -TH.SKELL                                               CONRED   1220
                     20316                        LX3    -TH.SKELP                                               CONRED   1221
                          15630                   BX6    -X0*X3      (X6) = OPERATOR                             CONRED   1222
          1015  7170000000 X                      SX7    V=SUBST                                                 CONRED   1223
                          37667                   IX6    X6-X7                                                   CONRED   1224
          1016  0316001031 +                      NZ     X6,LCH4     IF NOT SUBSTRING TURPLE                     CONRED   1225
                          54331                   =A3    A3-OR.OPR+OR.1OP                                        CONRED   1227
                               43754              MX7    -TP.ORDL                                                CONRED   1228
          1017  5110000000 X                      SA1    S=CON                                                   CONRED   1229
                          20320                   LX3    -TP.ORDP                                                CONRED   1230
                               15637              BX6    -X7*X3                                                  CONRED   1231
          1020  37361                             IX3    X6-X1                                                   CONRED   1232
                     0313001031 +                 NZ     X3,LCH4     IF NOT SUBSTRING OF CONSTANT                CONRED   1233
                               20341              LX3    TP.ORDP-1-TP.INTRP                                      FC50172     6
          1021  0333001031 +                      MI     X3,LCH4     IF ARRAY INTERMEDIATE                       FC50172     7
                          54331                   =A3    A3-OR.1OP+OR.2OP                                        CONRED   1234
                               20320              LX3    -TP.ORDP                                                CONRED   1235
          1022  15237                             BX2    -X7*X3      (X2) = (2OP.ORD) OF SUBSTRING               CONRED   1236
                                                                                                                 CONRED   1237
                                         .T       IFEQ   TEST,ON                                                 CONRED   1238
                                                  LX3    TP.ORDP-1-TP.INTRP                                      CONRED   1239
                                                  PL     X3,"BLOWUP" IF (2OP) NOT FURTHER INTERMEDIATE           CONRED   1240
                                                  SA1    X2+B7                                                   CONRED   1241
                                                  SX7    V=COLON                                                 CONRED   1242
                                                  LX1    -TH.SKELP                                               CONRED   1243
                                                  MX0    -TH.SKELL                                               CONRED   1244
                                                  BX0    -X0*X1                                                  CONRED   1245
                                                  IX6    X0-X7                                                   CONRED   1246
                                        *         IF COLON-INTR-ORD(X2) .GE. SUBST-INTR-ORD THEN BLOWUP.         CONRED   1247
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    36
        CONSTANT TEST AND MANIPULATION.                               LCH 
  
                                         .T       ENDIF                                                          CONRED   1248
                                                                                                                 CONRED   1249
                     66771                        =B7    B7-OR.OPR+OR.1OP                                        CONRED   1250
                          53127                   SA1    X2+B7       FETCH SUBSTRING FIRST                       CONRED   1251
                               54311              =A3    A1-OR.1OP+OR.2OP                                        CONRED   1252
          1023  0100001041 +                      RJ     LCT         LOAD VALUE                                  CONRED   1253
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1254
                                                  NE     B2,B1,"BLOWUP"  IF NOT SHORT CONSTANT                   CONRED   1255
          1024  10133                             BX1    X3                                                      CONRED   1256
                     7236777776                   SX3    X6-1        (X3) = FIRST CHAR POSITION                  CONRED   1257
          1025  0100001041 +                      RJ     LCT         LOAD VALUE OF SUBSTRING-LAST                CONRED   1258
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1259
                                                  NE     B2,B1,"BLOWUP"  IF NOT SHORT CONSTANT                   CONRED   1260
          1026  37763                             IX7    X6-X3       CONLEN = LAST - (FIRST - 1)                 CONRED   1261
                     7110000011                   CW     X1,X3       CFWA = (FIRST - 1) / 10                     CONRED   1262
          1030  6120777775                        SB2    -2          INDICATE CHARACTER CONSTANT                 CONRED   1263
                          10611                   BX6    X1                                                      CONRED   1264
                                                                                                                 FC50201     6
          1031  7100000006               LCH4     =X0    M.CHAR                                                  CONRED   1265
                          0400001006 +            EQ     EXIT.                                                   CONRED   1266
                                                                                                                 CONRED   1267
                                        *         RESULT IS NON-CHARACTER.                                       CONRED   1268
                                                                                                                 CONRED   1269
          1032  5120000000 X             LCH6     SA2    S=CON                                                   CONRED   1270
                          7107000006              SX0    B7+M.CHAR                                               CONRED   1271
          1033  0331001006 +                      MI     X1,EXIT.    IF RESULT IS INTERMEDIATE                   CONRED   1272
                          20172                   LX1    TP.INTRP-TP.SHRTP                                       CONRED   1273
                               37272              IX2    X7-X2                                                   CONRED   1274
          1034  0331001040 +                      MI     X1,LCH8     IF SHORT CONSTANT                           CONRED   1275
                          0312001006 +            NZ     X2,EXIT.    IF NOT CONSTANT                             CONRED   1276
          1035  5110000000 X                      SA1    T.CON                                                   CONRED   1277
                          36716                   IX7    X1+X6                                                   CONRED   1278
                               53271              SA2    X7+B1       LOAD CONSTANT                               CONRED   1279
          1036  10366                             BX3    X6          RETURN (X3) = INDEX INTO (T.CON)            CONRED   1280
                     53170                        SA1    X7                                                      CONRED   1281
                          67201                   SB2    -B1         INDICATE CONSTANT IN (T.CON)                CONRED   1282
                               10722              BX7    X2                                                      CONRED   1283
          1037  22601                             LX6    X1                                                      CONRED   1284
                     0400001006 +                 EQ     EXIT.                                                   CONRED   1285
                                                                                                                 CONRED   1286
          1040  66210                    LCH8     SB2    B1                                                      CONRED   1287
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1288
                                                  NZ     X7,"BLOWUP" IF SHORT CON WITH ORDINAL                   CONRED   1289
                     0400001006 +                 EQ     EXIT.                                                   CONRED   1290
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    37
        CONSTANT TEST AND MANIPULATION.                               LCT 
  
                                        **        LCT -  LOAD BINARY OF CONSTANT.                                CONRED   1292
                                        *                                                                        CONRED   1293
                                        *         ENTRY  (X1) = OPERAND FOR PROPOSED CONSTANT.                   CONRED   1294
                                        *                                                                        CONRED   1295
                                        *         EXIT   (X0) = MODE OF OPERAND.                                 CONRED   1296
                                        *                (B2, X6, X7) = SEE BELOW.                               CONRED   1297
                                        *                                                                        CONRED   1298
                                        *         IF OPERAND NOT CONSTANT --                                     CONRED   1299
                                        *                (B2) = 0                                                CONRED   1300
                                        *                (X6) = 0                                                CONRED   1301
                                        *                                                                        CONRED   1302
                                        *         IF LONG CONSTANT (IN T.CON) --                                 CONRED   1303
                                        *                (B2) = -1                                               CONRED   1304
                                        *                (X6) = UPPER HALF OF VALUE.                             CONRED   1305
                                        *                (X7) = LOWER HALF.                                      CONRED   1306
                                        *                (X1=X6, X2=X7, TRUE IF LONG BIT SET)                    CONRED   1307
                                        *                                                                        CONRED   1308
                                        *         IF SHORT CONSTANT --                                           CONRED   1309
                                        *                (B2) = +1                                               CONRED   1310
                                        *                (X6) = VALUE.                                           CONRED   1311
                                        *                                                                        CONRED   1312
                                        *                USES        A1-2   X0-2,6-7   B2,7.                     CONRED   1313
                                                                                                                 CONRED   1314
                                                                                                                 CONRED   1315
          1041  0400401041 +             LCT      SUBR   =           ENTRY/EXIT...                               CONRED   1316
          1042  13666                             BX6    0                                                       CONRED   1317
                     66200                        SB2    B0          INDICATE NOT CONSTANT                       CONRED   1318
                          43071                   MX0    -TP.MODEL                                               CONRED   1319
                               15010              BX0    -X0*X1      EXTRACT MODE                                CONRED   1320
          1043  6270777771                        SB7    X0-M.CHAR                                               CONRED   1321
                          0470001041 +            ZR     B7,EXIT.    IF CHARACTER OPERAND                        CONRED   1322
          1044  10211                             BX2    X1                                                      CONRED   1323
                     20261                        SBIT   X2,TP.INTRP                                             CONRED   1324
                          0332001041 +            MI     X2,EXIT.    IF INTERMEDIATE                             CONRED   1325
          1045  20272                             SBIT   X2,TP.SHRTP/TP.INTRP                                    CONRED   1326
                     0332001053 +                 MI     X2,LCT1     IF SHORT CONSTANT                           CONRED   1327
                               22701              LX7    X1                                                      CONRED   1328
                                                  HX7    TP.ORD      LEFT ADJUST                                 CONRED   1329
          1046  21754                             AX7    -TP.ORDL    ISOLATE SIGN EXTENDED ORD FIELD             CONRED   1330
                     13666                        BX6    0           =0, NO CONSTANT                             CONRED   1331
                          5120000000 X            SA2    S=CON                                                   CONRED   1332
          1047  37272                             IX2    X7-X2                                                   CONRED   1333
                     0312001041 +                 NZ     X2,EXIT.    IF NOT *CONSTANT*                           CONRED   1334
          1050  5120000000 X                      SA2    T.CON                                                   CONRED   1335
                          20120                   HX1    -TP.BIAS    LEFT ADJUST                                 CONRED   1336
                               21144              AX1    -TP.BIASL   ISOLATE SIGN EXTENDED BIAS                  CONRED   1337
          1051  36212                             IX2    X1+X2                                                   CONRED   1338
                     53120                        SA1    X2          LOAD CONSTANT (1ST WORD)                    CONRED   1339
                          54211                   =A2    A1+1        LOAD CONSTANT (2ND WORD)                    CONRED   1340
                               67201              =B2    -1          INDICATE NOT SHORT CONSTANT                 CONRED   1341
          1052  10611                             BX6    X1          1ST WORD                                    CONRED   1342
                     22702                        LX7    X2          2ND WORD                                    CONRED   1343
                          0400001041 +            EQ     EXIT.                                                   CONRED   1344
                                                                                                                 CONRED   1345
          1053  20120                    LCT1     HX1    TP.BIAS                                                 CONRED   1346
                     21144                        AX1    -TP.BIASL   SHIFT TO LOW WITH SIGN EXTEND               CONRED   1347
                          66210                   =B2    1           INDICATE SHORT CONSTANT                     CONRED   1348
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    38
        CONSTANT TEST AND MANIPULATION.                               LCT 
  
                               10611              BX6    X1                                                      CONRED   1349
          1054  0400001041 +                      EQ     EXIT.                                                   CONRED   1350
  
  
  
  
                                        **        LIR - LOAD INTEGER OF REAL.                                    CONRED   1352
                                        *                                                                        CONRED   1353
                                        *         ENTRY  (X2) = FLOATING POINT VALUE.                            CONRED   1354
                                        *                                                                        CONRED   1355
                                        *         EXIT   IF VALUE IS AN EXACT INTEGER --                         CONRED   1356
                                        *                (X6) .ZR.                                               CONRED   1357
                                        *                (X2) = IFIX (VALUE).                                    CONRED   1358
                                        *                (X7) = OPERAND FOR IFIX (VALUE).                        CONRED   1359
                                        *                                                                        CONRED   1360
                                        *         ELSE   (X6) .NZ. = VALUE IS NOT EXACT INTEGER.                 CONRED   1361
                                        *                (X2) PRESERVED.                                         CONRED   1362
                                        *                                                                        CONRED   1363
                                        *         USES   ---                                                     CONRED   1364
                                        *         CALLS  NCS.                                                    CONRED   1365
                                                                                                                 CONRED   1366
                                                                                                                 CONRED   1367
          1055  76610                    LIR10    =X6    1                                                       CONRED   1368
                                                                                                                 CONRED   1369
          1056  0400401056 +             LIR      SUBR   =           ENTRY/EXIT...                               CONRED   1370
          1057  26022                             UX0,B2 X2                                                      CONRED   1371
                     22620                        LX6    B2,X0                                                   CONRED   1372
                          27706                   PX7    X6                                                      CONRED   1373
                               24707              NX7                                                            CONRED   1374
          1060  37072                             IX0    X7-X2                                                   CONRED   1375
                     0310001055 +                 NZ     X0,LIR10    IF NOT EXACT INTEGER                        CONRED   1376
                                                                                                                 CONRED   1377
                               76711              =X7    M.INT                                                   CONRED   1378
          1061  5160000006 +                      SA6    LVEC                                                    CONRED   1379
                          0100001102 +            RJ     NCS         CREATE OPERAND                              CONRED   1380
          1062  5120000006 +                      SA2    LVEC                                                    CONRED   1381
                          10766                   BX7    X6                                                      CONRED   1382
                               43600              MX6    0                                                       CONRED   1383
          1063  0400001056 +                      EQ     EXIT.                                                   CONRED   1384
  
  
  
  
                                        **        NBC -  ENTER BINARY CONSTANT.                                  CONRED   1386
                                        *                                                                        CONRED   1387
                                        *         ENTRY  (X1) = MODE OF CONSTANT.                                CONRED   1388
                                        *                (X6) = UPPER HALF OF CONSTANT.                          CONRED   1389
                                        *                (X7) = LOWER HALF OF CONSTANT, IF DBL OR CPLX.          CONRED   1390
                                        *                                                                        CONRED   1391
                                        *         EXIT   (X6) = OPERAND REPRESENTING CONSTANT.                   CONRED   1392
                                        *                                                                        CONRED   1393
                                        *         USES   ALL BUT  A0,A5  X5  B4,B5,B6.                           CONRED   1394
                                        *         CALLS  NCM, NCS.                                               CONRED   1395
                                                                                                                 CONRED   1396
                                                                                                                 CONRED   1397
          1064  0400401064 +             NBC      SUBR   =           ENTRY/EXIT...                               CONRED   1398
          1065  6221777773                        =B2    X1-M.DBL                                                CONRED   1399
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    39
        CONSTANT TEST AND MANIPULATION.                               NBC 
  
                          0620001070 +            PL     B2,NBC4     IF MULTI-WORD CONSTANT                      CONRED   1400
                                   1              ERRMI  M.CPLX-M.DBL                                            CONRED   1401
                                   2              ERRMI  M.CHAR-M.DBL                                            CONRED   1402
                                                                                                                 CONRED   1403
          1066  73710                             SX7    X1                                                      CONRED   1404
                     0100001102 +                 CALL   NCS         ENTER SINGLE-WORD CONSTANT                  CONRED   1405
          1067  0400001064 +                      EQ     EXIT.                                                   CONRED   1406
                                                                                                                 CONRED   1407
                                        *         HERE IF DOUBLE WORD CONSTANT                                   CONRED   1408
                                                                                                                 CONRED   1409
          1070  5160001077 +             NBC4     SA6    NBCA        SAVE (NBCA+0, +1) = CONSTANT VALUE          CONRED   1410
                          66700                   SB7    B0          (B7) = ADD IF NOT FOUND                     CONRED   1411
                               54761              SA7    A6+B1                                                   CONRED   1412
                                         .TEST    IFEQ   TEST,ON                                                 CONRED   1413
                                                  SB2    X1-M.CHAR                                               CONRED   1414
                                                  ZR     B2,"BLOWUP"       IF TYPE CHARACTER -- NFG              CONRED   1415
                                         .TEST    ENDIF                                                          CONRED   1416
          1071  64260                             SB2    A6          (B2) = FWA VALUE                            CONRED   1417
                     10611                        BX6    X1                                                      CONRED   1418
                          54671                   =A6    A7+1        REMEMBER (NBCA+2) = MODE OF CONSTANT        CONRED   1419
          1072  5110000000 X                      SA1    T.CON                                                   CONRED   1420
                          6132000002              SB3    B2+2        (B3) = LWA+1 OF VALUE                       CONRED   1421
          1073  0100000000 X                      CALL   NCM         ENTER CONSTANT MULTIPLE                     CONRED   1422
          1074  5110000000 X                      SA1    S=CON                                                   CONRED   1423
                          76670                   SX6    B7                                                      CONRED   1424
                               20154              LX1    TP.ORDP                                                 CONRED   1425
          1075  20624                             LX6    TP.BIASP    ACTUAL CONSTANT ORDINAL IN BIAS             CONRED   1426
                     5130001101 +                 SA3    NBCA+2                                                  CONRED   1427
                               12216              BX2    X1+X6                                                   CONRED   1428
                                                  LX3    TP.MODEP                                                CONRED   1429
          1076  12623                             BX6    X2+X3       OPERAND = SYMORD(CON.) + BIAS + MODE        CONRED   1430
                     0400001064 +                 EQ     EXIT.                                                   CONRED   1431
                                                                                                                 CONRED   1432
          1077                     2     NBCA     BSS    2           CONSTANT VALUE                              CONRED   1433
          1101                     1              BSS    1           CONSTANT MODE                               CONRED   1434
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    40
        CONSTANT TEST AND MANIPULATION.                               NCS 
  
                                        **        NCS -  SCAN / ENTER SINGLE WORD CONSTANT INTO CONSTANT TABLE.  CONRED   1436
                                        *                                                                        CONRED   1437
                                        *         CONSTANT TABLE IS SCANNED TO CHECK IF CONSTANT IS ALREADY IN   CONRED   1438
                                        *         TABLE.  IF SO, ADDS IN REQUESTED MODE BITS AND EXITS.          CONRED   1439
                                        *                                                                        CONRED   1440
                                        *         ENTRY  (X6) = CONSTANT VALUE TO ENTERED.                       CONRED   1441
                                        *                (X7) = MODE OF CONSTANT.                                CONRED   1442
                                        *                                                                        CONRED   1443
                                        *         EXIT   (X6) = *TP* ORDINAL FORM OF CONSTANT.                   CONRED   1444
                                        *                       BIAS FIELD CONTAINS SHORT CONSTANT.              CONRED   1445
                                        *                                                                        CONRED   1446
                                        *         USES   A1-3,6-7   X0-3,6-7   B2-3,7.                           CONRED   1447
                                        *                                                                        CONRED   1448
                                        *         CALLS  ADW,SCT                                                 CONRED   1449
                                                                                                                 CONRED   1450
                                                                                                                 CONRED   1451
          1102  0400401102 +             NCS      SUBR   =           ENTRY/EXIT...                               CONRED   1452
                                         .T       IFEQ   TEST,ON                                                 CONRED   1453
                                                  SB2    X7-M.DBL                                                CONRED   1454
                                                  PL     B2,"BLOWUP" IF DOUBLE OR COMPLEX OR CHARACTER           CONRED   1455
                                                  ERRMI  M.CHAR-M.DBL                                            CONRED   1456
                                         .T       ENDIF                                                          CONRED   1457
          1103  10266                             BX2    X6                                                      CONRED   1458
                     21221                        AX2    TP.SHRTB-1                                              CONRED   1459
                          0312001107 +            NZ     X2,NCS10    IF UPPER BITS NOT ALL SAME                  CONRED   1460
          1104  43044                             MX0    -TP.BIASL                                               CONRED   1461
                     15660                        BX6    -X0*X6                                                  CONRED   1462
                          20624                   LX6    TP.BIASP    SHORT CONSTANT TO BIAS FIELD                CONRED   1463
                               43101              CLAS=  X1,TP,(SHRT)                                            CONRED   1464
                     12267                        BX2    X6+X7       MERGE MODE                                  CONRED   1465
                          36621                   IX6    X2+X1                                                   CONRED   1466
          1106  0400001102 +                      EQ     EXIT.                                                   CONRED   1467
                                                                                                                 CONRED   1468
                                         NCS10    LX7    TP.MODEP                                                CONRED   1469
          1107  5170001077 +                      SA7    NCSA        SAVE MODE                                   CONRED   1470
                          5110000000 X            SCAN   T.CON,SCT   SCAN CONSTANT TABLE                         CONRED   1471
          1111  76370                             SX3    B7                                                      CONRED   1472
                     0670001114 +                 PL     B7,NCS20    IF CONSTANT IN TABLE                        CONRED   1473
          1112  0100000000 X                      ADDWD  A1          ENTER CONSTANT                              CONRED   1474
          1113  7232777776                        =X3    X2-1                                                    CONRED   1475
          1114  5110000000 X             NCS20    SA1    S=CON                                                   CONRED   1476
                          5120001077 +            SA2    NCSA                                                    CONRED   1477
          1115  20154                             LX1    TP.ORDP                                                 CONRED   1478
                     12612                        BX6    X1+X2       CON. SYMBOL ORDINAL                         CONRED   1479
                          20324                   LX3    TP.BIASP                                                CONRED   1480
                               12636              BX6    X3+X6       ACTUAL CONSTANT ORDINAL IN BIAS             CONRED   1481
          1116  0400001102 +                      EQ     EXIT.                                                   CONRED   1482
                                                                                                                 CONRED   1483
                                1077 +   NCSA     EQU    NBCA        MODE OF CONSTANT                            CONRED   1484
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    41
        DATA STATEMENT INTERPRETER                                    SED 
  
                                        **        SED - SIMULATE EXECUTION OF DATA STATEMENT TURPLES.            CONRED   1487
                                        *         CALLED BY *DATA* AFTER PARSING OF DATA STATEMENT VARIABLE LIST CONRED   1488
                                        *         *SED* INTERPRETIVELY SCANS PARSE OUTPUT IN T.DAR AND           CONRED   1489
                                        *         CALLS *EDI* FOR EACH ITEM.                                     CONRED   1490
  
  
  
  
                                                  DESCRIBE DV.,60    DATA VARIABLE VALUE TABLE (T.DVV)           CONRED   1492
      L     44  77777777000000000000     VAL      DEFINE 24          CURRENT VALUE OF VARIABLE                   CONRED   1493
                                                  DEFINE 18                                                      CONRED   1494
      L      0  00000000000000777777     PNT      DEFINE 18          INDEX TO WORD C OF SYMTAB ENTRY             CONRED   1495
  
  
  
  
                                         HEREFOR  MACRO  SKEL                                                    CONRED   1497
                                                  IRP    SKEL                                                    CONRED   1498
                                         D=SKEL   BSSENT 0                                                       CONRED   1499
                                                  IRP                                                            CONRED   1500
                                         HEREFOR  ENDM                                                           CONRED   1501
  
  
  
  
          1117  0400401117 +             SED      SUBR   =                                                       CONRED   1503
          1120  7160000000                        SX6    0                                                       CONRED   1504
                          5160001157 +            SA6    SED.ERR                                                 CONRED   1505
          1121  5160001156 +                      SA6    SEDTURP     I=0                                         CONRED   1506
                          76600                   SHRINK T=DVV,0                                                 CONRED   1507
                                                                                                                 CONRED   1508
          1123                                    HEREFOR (NOOP,ARY,SUBST,COLON,BSS,DOBD2)                       CONRED   1509
          1123                           SED.RTN  BSS    0                                                       CONRED   1510
                                                                                                                 CONRED   1511
          1123  5110001156 +                      SA1    SEDTURP                                                 CONRED   1512
                          5120000000 X            SA2    T=DAR                                                   CONRED   1513
          1124  7261000003                        SX6    X1+3        I = I + 1                                   CONRED   1514
                          37026                   IX0    X2-X6                                                   CONRED   1515
          1125  0330001147 +                      MI     X0,SED.END  IF I = (T=DAR)                              CONRED   1516
                          5120000000 X            SA2    T.DAR                                                   CONRED   1517
          1126  54610                             SA6    A1                                                      CONRED   1518
                     63321                        =B3    X2+OR.1OP                                               CONRED   1519
                          36012                   IX0    X1+X2                                                   CONRED   1520
                               53100              =A1    X0+OR.OPR                                               CONRED   1521
          1127  63500                             SB5    X0                                                      CONRED   1522
                     43056                        MX0    -TH.SKELL                                               CONRED   1523
                          20116                   LX1    -TH.SKELP                                               CONRED   1524
                               15610              BX6    -X0*X1                                                  CONRED   1525
          1130  5246000000 X                      SA4    F.SCT+X6    TURPLE CONTROL WORD FOR THIS TURPLE         CONRED   1526
                          20452                   LX4    -VS.DRAP                                                FC5A132    89
                               63740              SB7    X4                                                      FC5A132    90
                                   0              ERRNZ  18-VS.DRAL                                              FC5A132    91
          1131  0770001132 +                      MI     B7,SED10    IF NO *HEREFOR*                             FC5A132    92
                          0277000000              JP     B7          GO TO APPROPRIATE *HEREFOR*                 FC5A132    93
                                                                                                                 FC5A132    94
          1132  20422                    SED10    LX4    VS.DRAP-VS.CRAP                                         FC5A132    95
                     73740                        SX7    X4                                                      FC5A132    96
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    42
        DATA STATEMENT INTERPRETER                                    SED 
  
                                   0              ERRNZ  18-VS.CRAL                                              FC5A132    97
                          0307001141 +            ZR     X7,SED15    IF NOT REDUCIBLE, ERROR                     FC5A132    98
          1133  54411                             =A4    A1+OR.1OP-OR.OPR                                        CONRED   1531
                     54541                        =A5    A4+OR.2OP-OR.1OP                                        CONRED   1532
                          0100001160 +            RJ     CDR         CONSTANT-REDUCE TURPLE                      CONRED   1533
                                                                                                                 CONRED   1534
                                        *         STORE CONSTANT-VALUE IN TURPLE HEADER.                         CONRED   1535
                                                                                                                 CONRED   1536
          1134  43044                    SED.STO  MX0    -TH.DVALL                                               CONRED   1537
                     15660                        BX6    -X0*X6                                                  CONRED   1538
                          5110001156 +            SA1    SEDTURP                                                 CONRED   1539
          1135  5120000000 X                      SA2    T.DAR                                                   CONRED   1540
                          36712                   IX7    X1+X2                                                   CONRED   1541
          1136  5217777774                        =A1    X7-3+OR.OPR                                             CONRED   1542
                          20146                   LX1    -TH.DVALP                                               CONRED   1543
                               11101              BX1    X0*X1       CLEAR DVAL                                  CONRED   1544
          1137  12761                             BX7    X6+X1       INSERT VALUE                                CONRED   1545
                     20726                        LX7    TH.DVALP                                                CONRED   1546
                          43101                   CLAS=  X1,TH,(DDEF)                                            FC5A111    85
          1140  12771                             BX7    X7+X1       INDICATE DATA DEFINED                       FC5A111    86
                     54710                        SA7    A1                                                      CONRED   1547
                          0400001123 +            EQ     SED.RTN                                                 CONRED   1548
                                                                                                                 CONRED   1549
          1141  5100000000 X             SED15    SA0    E.DSE       ** SYNTAX ERROR IN DATA STATEMENT           FC5A111    90
                          76010                   =X0    1                                                       FC5A111    91
                                                                                                                 CONRED   1555
                                                                                                                 CONRED   1556
                                        *         ERROR IN INTERPRETIVE SCAN.  TERMINATE PROCESSING.             CONRED   1557
                                                                                                                 CONRED   1558
          1142  7160000001               SED.ABT  SX6    1                                                       CONRED   1559
                          5160001157 +            SA6    SED.ERR                                                 CONRED   1560
                                                                                                                 CONRED   1561
                                        *         PLACE SYM[WA(X0)] IN FILL.                                     CONRED   1562
                                                                                                                 CONRED   1563
          1143  5110000000 X                      SA1    T.SYM                                                   CONRED   1564
                          22610                   LX6    B1,X0                                                   CONRED   1565
                               36706              IX7    X0+X6                                                   CONRED   1566
          1144  63610                             =B6    X1+WA.W                                                 CONRED   1567
                     53176                        SA1    B6+X7                                                   CONRED   1568
                                                  HX1    WA.SYM                                                  CONRED   1569
                          43052                   MX0    WA.SYML                                                 CONRED   1570
                               11601              BX6    X0*X1                                                   CONRED   1571
          1145  5160000000 X                      SA6    FILL.                                                   CONRED   1572
                          64700                   SB7    A0                                                      CONRED   1573
          1146  0100000000 X                      FATAL  B7                                                      CONRED   1574
                                                                                                                 CONRED   1575
                                        *         END OF INTERPRETIVE SCAN.                                      CONRED   1576
                                                                                                                 CONRED   1577
          1147  5110000000 X             SED.END  SA1    T=DVV                                                   CONRED   1578
                          5150001157 +            SA5    SED.ERR                                                 CONRED   1579
          1150  5120000000 X                      SA2    T.DVV                                                   CONRED   1580
                          5130000000 X            SA3    T.SYM                                                   CONRED   1581
          1151  43022                             MX0    WC.DVPL                                                 CONRED   1582
                     63530                        SB5    X3                                                      CONRED   1583
                          63610                   SB6    X1                                                      CONRED   1584
                               20060              LX0    WC.DVPL+WC.DVPP                                         CONRED   1585
          1152  76600                             SHRINK T=DVV,0                                                 CONRED   1586
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    43
        DATA STATEMENT INTERPRETER                                    SED 
  
                                                                                                                 CONRED   1587
                                        *         CLEAR WC.DVP OF ENTRIES USED.                                  CONRED   1588
                                                                                                                 CONRED   1589
          1153  0460001117 +             SED20    ZR     B6,EXIT.    IF T. EXHAUSTED                             CONRED   1590
                          67661                   =B6    B6-1                                                    CONRED   1591
                               53426              SA4    X2+B6                                                   CONRED   1592
                                                  LX4    -DV.PNTP                                                CONRED   1593
          1154  53145                             SA1    B5+X4                                                   CONRED   1594
                                   0              ERRNZ  DV.PNTL-18                                              CONRED   1595
                     15710                        BX7    -X0*X1                                                  CONRED   1596
                          54710                   SA7    A1                                                      CONRED   1597
          1155  0400001153 +                      EQ     SED20                                                   CONRED   1598
                                                                                                                 CONRED   1599
          1156                     1     SEDTURP  BSS    1                                                       CONRED   1600
          1157                     1     SED.ERR  BSS    1           ERROR FLAG                                  CONRED   1601
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    44
        DATA STATEMENT INTERPRETER                                    CDR 
  
                                        **        CDR - COMPUTE CONSTANT REDUCTION IN *SED*.                     CONRED   1603
                                        *                                                                        CONRED   1604
                                        *         ENTRY  (X4) = 1OP                                              CONRED   1605
                                        *                (X5) = 2OP                                              CONRED   1606
                                        *                (X7) = CONSTANT REDUCTION ADDRESS                       CONRED   1607
                                        *                                                                        CONRED   1608
                                        *         EXIT   (X6) = CONSTANT VALUE                                   CONRED   1609
                                                                                                                 CONRED   1610
          1160  0400401160 +             CDR      SUBR                                                           CONRED   1611
          1161  5170000000 +                      SA7    CCRA                                                    CONRED   1612
                          10144                   BX1    X4                                                      CONRED   1613
          1162  0100001173 +                      RJ     LCD         LOAD 1OP                                    CONRED   1614
          1163  5160000006 +                      SA6    LVEC                                                    CONRED   1615
                          10155                   BX1    X5                                                      CONRED   1616
          1164  0305001166 +                      ZR     X5,CDR10    IF 2OP NIL                                  CONRED   1617
                          0100001173 +            RJ     LCD         LOAD 2OP                                    CONRED   1618
          1165  5160000007 +                      SA6    LVEC+1                                                  CONRED   1619
                                                                                                                 CONRED   1620
          1166  5130000000 +             CDR10    SA3    CCRA                                                    CONRED   1621
                          0100000474 +            RJ     CTA         CONSTANT REDUCE TURPLE                      FC5A150   538
                                         .T       IFEQ   TEST,ON,1                                               CONRED   1623
                                                  ZR     X6,"BLOWUP" IF NOT REDUCIBLE                            CONRED   1624
          1167  10166                             BX1    X6                                                      CONRED   1625
                     0100001041 +                 RJ     LCT         GET CONSTANT VALUE                          CONRED   1626
          1170  5110001156 +                      SA1    SEDTURP                                                 CONRED   1627
                          5120000000 X            SA2    T.DAR                                                   CONRED   1628
          1171  36012                             IX0    X1+X2                                                   CONRED   1629
                     6250777774                   SB5    X0-3        RESTORE TURPLE POINTER                      CONRED   1630
          1172  0400001160 +                      EQ     EXIT.                                                   CONRED   1631
  
  
  
  
                                        **        LCD - LOAD CONSTANT FOR *SED*.                                 CONRED   1633
                                        *         LCD LOADS A DATA INTERPRETATION CONSTANT VALUE, WHICH          CONRED   1634
                                        *         MAY BE A CONSTANT OR THE CURRENT VALUE OF AN INTERPRETED       CONRED   1635
                                        *         TURPLE OR LOOP/INDEX VARIABLE.                                 CONRED   1636
                                                                                                                 CONRED   1637
          1173  0400401173 +             LCD      SUBR                                                           CONRED   1638
          1174  10611                             BX6    X1                                                      CONRED   1639
                     5160001217 +                 SA6    LCDA                                                    CONRED   1640
                                                  LX6    -TP.MODEP                                               CONRED   1641
                               43071              MX0    -TP.MODEL                                               CONRED   1642
          1175  15060                             BX0    -X0*X6                                                  CONRED   1643
                     5100000000 X                 SA0    E.DVR4      NOT INTEGER                                 CONRED   1644
          1176  6220777775                        SB2    X0-M.INT                                                CONRED   1645
                          0300001200 +            ZR     X0,LCD5     IF BOOLEAN                                  CONRED   1646
                                   0              ERRNZ  M.BOOL                                                  CONRED   1647
          1177  0520001142 +                      NZ     B2,SED.ABT  OF NOT INTEGER                              CONRED   1648
                                                                                                                 CONRED   1649
          1200  20661                    LCD5     LX6    TP.MODEP-1-TP.INTRP                                     CONRED   1650
                     0336001212 +                 MI     X6,LCD10    IF INTERMEDIATE                             CONRED   1651
          1201  0100001041 +                      RJ     LCT         TRY TO LOAD CONSTANT                        CONRED   1652
          1202  0520001173 +                      NZ     B2,EXIT.    IF CONSTANT                                 CONRED   1653
                                                                                                                 CONRED   1654
                                        *         LOAD CURRENT VALUE OFLOOP/INDEX VARIABLE.                      CONRED   1655
                                                                                                                 CONRED   1656
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    45
        DATA STATEMENT INTERPRETER                                    LCD 
  
                          5110001217 +            SA1    LCDA                                                    CONRED   1657
          1203  5120000000 X                      SA2    T.SYM                                                   CONRED   1658
                          43054                   MX0    -TP.ORDL                                                CONRED   1659
                               20120              LX1    -TP.ORDP                                                CONRED   1660
          1204  15610                             BX6    -X0*X1                                                  CONRED   1661
                     6272000002                   SB7    X2+WC.W                                                 CONRED   1662
                               22716              LX7    B1,X6                                                   CONRED   1663
          1205  36067                             IX0    X6+X7                                                   CONRED   1664
                     53207                        SA2    X0+B7       WORD C OF VAR                               CONRED   1665
                          5110000000 X            SA1    T.DVV                                                   CONRED   1666
          1206  20236                             LX2    -WC.DVPP                                                CONRED   1667
                     6222777776                   SB2    X2-1                                                    CONRED   1668
                               53212              SA2    X1+B2                                                   CONRED   1669
          1207  73060                             SX0    X6          ORD                                         CONRED   1670
                     5100000000 X                 SA0    E.DVR1      VARIABLE FILL. NOT DO INDEX                 CONRED   1671
          1210  0720001142 +                      MI     B2,SED.ABT  IF NOT STORED INTO                          CONRED   1672
                                   0              ERRNZ  WC.DVPL-18                                              CONRED   1673
                                                  HX2    DV.VAL                                                  CONRED   1674
                          21244                   AX2    -DV.VALL                                                CONRED   1675
                               10622              BX6    X2                                                      CONRED   1676
          1211  0400001173 +                      EQ     EXIT.                                                   CONRED   1677
                                                                                                                 CONRED   1678
                                        *         GET VALUE OF INTERMEDIATE FROM TURPLE HEADER.                  CONRED   1679
                                                                                                                 CONRED   1680
          1212  20120                    LCD10    LX1    -TP.ORDP                                                CONRED   1681
                     43054                        MX0    -TP.ORDL                                                CONRED   1682
                          5120000000 X            SA2    T.DAR                                                   CONRED   1683
          1213  15610                             BX6    -X0*X1                                                  CONRED   1684
                     63220                        =B2    X2+OR.OPR                                               CONRED   1685
                          53162                   SA1    B2+X6                                                   CONRED   1686
                               43201              CLAS=  X2,TH,(DDEF)                                            FC5A111    92
                     11221                        BX2    X2*X1                                                   FC5A111    93
                          5100000000 X            SA0    E.DSE                                                   FC5A111    94
          1215  76010                             =X0    1                                                       FC5A111    95
                     0302001142 +                 ZR     X2,SED.ABT  IF NOT YET DEFINED                          FC5A111    96
                               20116              HX1    TH.DVAL                                                 CONRED   1687
          1216  21144                             AX1    -TH.DVALL                                               CONRED   1688
                     10611                        BX6    X1                                                      CONRED   1689
                          0400001173 +            EQ     EXIT.                                                   CONRED   1690
                                                                                                                 CONRED   1691
          1217                     1     LCDA     BSS    1                                                       CONRED   1692
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    46
        DATA STATEMENT INTERPRETER                                    DVI 
  
          1220                                    HEREFOR DVI                                                    CONRED   1694
          1220  56251                             =A2    B5+OR.1OP                                               CONRED   1695
                     10122                        BX1    X2                                                      CONRED   1696
                          20261                   HX2    TP.INTR                                                 CONRED   1697
          1221  0322001242 +                      PL     X2,DVI10    IF NOT INTERMEDIATE                         CONRED   1698
                          20271                   LX2    TP.INTRP-TP.ARYP                                        CONRED   1699
          1222  0332001242 +                      MI     X2,DVI10    IF ARRAY                                    CONRED   1700
                                                                                                                 CONRED   1701
                                        *         PROCESS SUBSTRING.                                             CONRED   1702
                                                                                                                 CONRED   1703
                          20120                   LX1    -TP.ORDP                                                CONRED   1704
                               43054              MX0    -TP.ORDL                                                CONRED   1705
          1223  15610                             BX6    -X0*X1                                                  CONRED   1706
                     53163                        SA1    B3+X6       1OP                                         CONRED   1707
                          5160001271 +            SA6    DVIA                                                    CONRED   1708
          1224  0100001276 +                      RJ     EDS         EVALUATE DATA SCALAR                        CONRED   1709
          1225  5120001271 +                      SA2    DVIA                                                    CONRED   1710
                          63421                   =B4    X2+OR.2OP-OR.1OP                                        CONRED   1711
                               54620              SA6    A2          SAVE WC OF BASE                             CONRED   1712
          1226  56143                             SA1    B4+B3       2OP                                         CONRED   1713
                     43054                        MX0    -TP.ORDL                                                CONRED   1714
                          20120                   LX1    -TP.ORDP                                                CONRED   1715
                               15610              BX6    -X0*X1                                                  CONRED   1716
          1227  53163                             SA1    B3+X6       COLON 1OP                                   CONRED   1717
                     73761                        =X7    X6+OR.2OP-OR.1OP                                        CONRED   1718
                          5170001272 +            SA7    DVIB                                                    CONRED   1719
          1230  66470                             SB4    B7                                                      CONRED   1720
                     0100001173 +                 RJ     LCD         GET SUBSTRING START                         CONRED   1721
          1231  10366                             BX3    X6                                                      CONRED   1722
                     5110001272 +                 SA1    DVIB                                                    CONRED   1723
                               53113              SA1    B3+X1       COLON 2OP                                   CONRED   1724
          1232  0100001173 +                      RJ     LCD         GET SUBSTRING END                           CONRED   1725
          1233  5120001271 +                      SA2    DVIA                                                    CONRED   1726
                          10466                   BX4    X6                                                      CONRED   1727
                               10622              BX6    X2                                                      CONRED   1728
          1234  66740                             SB7    B4                                                      CONRED   1729
                                                                                                                 CONRED   1730
                                        *         CHECK SUBSTRING START AND END FOR VALIDITY.                    CONRED   1731
                                                                                                                 CONRED   1732
                     76010                        =X0    1                                                       CONRED   1733
                          37130                   IX1    X3-X0                                                   CONRED   1734
                               37240              IX2    X4-X0                                                   CONRED   1735
          1235  12712                             BX7    X1+X2       MI IFF EITHER NOT POSITIVE                  CONRED   1736
                     5110001273 +                 SA1    CLEN        SET BY EDS                                  CONRED   1737
                               37043              IX0    X4-X3       MI IFF START GT END                         CONRED   1738
          1236  12007                             BX0    X0+X7                                                   CONRED   1739
                     37213                        IX2    X1-X3       MI IF START GT CLEN                         CONRED   1740
                          12002                   BX0    X0+X2                                                   CONRED   1741
                               12201              BX2    X0+X1                                                   CONRED   1742
          1237  76060                             SX0    B6                                                      CONRED   1743
                     5100000000 X                 SA0    E.AT16      INVALID SUBSTRING                           CONRED   1744
          1240  0332001142 +                      MI     X2,SED.ABT  IF INVALID SUBSTRING                        CONRED   1745
                          0100000000 X            CALL   ECS         EVALUATE SUBSTRING                          CONRED   1746
          1241  0400001243 +                      EQ     DVI20                                                   CONRED   1747
                                                                                                                 CONRED   1748
          1242  0100001276 +             DVI10    RJ     EDS         EVALUATE SCALAR                             CONRED   1749
                                                                                                                 CONRED   1750
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    47
        DATA STATEMENT INTERPRETER                                    DVI 
  
          1243  10466                    DVI20    BX4    X6          PRESERVE X6                                 FC5A111    97
                     76670                        SX6    B7                                                      FC5A111    98
                          5160001275 +            SA6    DVIC        PRESERVE B7                                 FC5A111    99
          1244  76060                             SX0    B6          PRESERVE B6                                 FC5A111   100
                     0100000000 X                 CALL   CT1         GET OPERAND OF VARIABLE                     FC5A111   101
          1245  63600                             SB6    X0          RESTORE B6                                  FC5A111   102
                     10566                        BX5    X6                                                      FC5A111   103
                          0100000000 X            CALL   DOA         DETERMINE OPERAND ADDRESSABILITY            FC5A111   104
          1246  76060                             SX0    B6          X0 = SYMORD FOR POSSIBLE ERROR              FC5A111   105
                     0306001251 +                 ZR     X6,DVI30    IF NOT INVALID STORE TARGET                 FC5A111   106
          1247  6170000000 X                      FATAL  E.DVL1                                                  FC5A111   107
          1250  0400001147 +                      EQ     SED.END                                                 FC5A111   108
                                                                                                                 FC5A111   109
                                        **        CHECK FOR IMPROPER CLASS OF THE REFERENCED SYMBOL.             FC5A111   110
                                        *         SET DEFINED AND VAR BITS IN SYMTAB ENTRY.                      FC5A111   111
                                                                                                                 FC5A111   112
          1251  7130200510               DVI30    CLAS=  X3,WB,(FP,NVAR,LAB,PARM)                                FC5A111   113
                          11332                   BX3    X3*X2                                                   FC5A111   114
          1252  5100000000 X                      SA0    E.DAUC                                                  FC5A111   115
                          0313001142 +            NZ     X3,SED.ABT  IF USEAGE CONFLICT                          FC5A111   116
          1253  7170000240                        CLAS=  X7,WB,(DEF,VAR)                                         FC5A111   117
                          12672                   BX6    X7+X2       MERGE BITS                                  FC5A111   118
                               54620              SA6    A2          UPDATE *WB*                                 FC5A111   119
                                                                                                                 FC5A111   120
                                        **        CHECK FOR VARIABLE IN BLANK COMMON OR LOCAL                    FC5A111   121
                                        *         VARIABLE IN BLOCK DATA PROGRAM UNIT.                           FC5A111   122
                                                                                                                 FC5A111   123
          1254  54121                             =A1    A2-WB.W+WC.W                                            FC5A111   124
                     20254                        HX2    WB.COM                                                  FC5A111   125
                          0322001263 +            PL     X2,DVI40    IF NOT IN COMMON                            FC5A111   126
          1255  43662                             MX6    -WC.RBL                                                 FC5A111   127
                     20114                        LX1    -WC.RBP                                                 FC5A111   128
                          5130000000 X            SA3    BLNKCOM                                                 FC5A111   129
          1256  15616                             BX6    -X6*X1      ISOLATE BLOCK NUMBER                        FC5A111   130
                     37663                        IX6    X6-X3                                                   FC5A111   131
                          5100000000 X            SA0    E.DABC                                                  FC5A111   132
          1257  0306001142 +                      ZR     X6,SED.ABT  IF IN BLANK COMMON                          FC5A111   133
                          5130000000 X            SA3    MOD                                                     FC5A184    86
          1260  20363                             HX3    MO.BLK                                                  FC5A184    87
                     0333001265 +                 MI     X3,DVI50    IF IN BLOCK DATA                            FC50201     7
          1261  6170000000 X                      ANSI   E.ANS6      ** COMMON PRESET IN BLOCK DATA ONLY         FC5A184    89
          1262  0400001265 +                      EQ     DVI50                                                   FC5A111   134
                                                                                                                 FC5A111   135
          1263  5130000000 X             DVI40    SA3    MOD                                                     FC5A111   136
                          20363                   HX3    MO.BLK                                                  FC5A111   137
          1264  5100000000 X                      SA0    E.DABL                                                  FC5A111   138
                          0333001142 +            MI     X3,SED.ABT  IF BLOCK DATA LOCAL VAR                     FC5A111   139
                                                                                                                 FC5A111   140
          1265  10144                    DVI50    BX1    X4                                                      FC5A111   141
                     5120001275 +                 SA2    DVIC                                                    FC5A111   142
          1266  5130001274 +                      SA3    COUNT                                                   FC5A111   143
                          63720                   SB7    X2                                                      FC5A111   144
                               10633              BX6    X3                                                      FC5A111   145
          1267  0100000000 X                      CALL   EDI         FILE ADDRESS/COUNT                          CONRED   1754
          1270  0400001123 +                      EQ     SED.RTN                                                 CONRED   1755
                                                                                                                 CONRED   1756
          1271                     1     DVIA     BSS    1                                                       CONRED   1757
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    48
        DATA STATEMENT INTERPRETER                                    DVI 
  
          1272                     1     DVIB     BSS    1                                                       CONRED   1758
          1273                     1     CLEN     BSS    1                                                       CONRED   1759
          1274                     1     COUNT    BSS    1                                                       CONRED   1760
          1275                     1     DVIC     BSS    1                                                       FC5A111   146
  
  
  
  
                                        **        EDS - EVALUATE SCALAR FOR DATA.                                CONRED   1762
                                        *                                                                        CONRED   1763
                                        *         PRESERVES B3,B5                                                CONRED   1764
                                                                                                                 CONRED   1765
          1276  0400401276 +             EDS      SUBR                                                           CONRED   1766
          1277  10311                             BX3    X1                                                      CONRED   1767
                     5115000002                   SA1    B5+OR.2OP                                               CONRED   1768
          1300  0100001173 +                      RJ     LCD         GET NUMBER OF ELEMENTS (COUNT)              CONRED   1769
          1301  5160001274 +                      SA6    COUNT                                                   CONRED   1770
                          10133                   BX1    X3                                                      CONRED   1771
                               10211              BX2    X1                                                      CONRED   1772
          1302  43600                             MX6    0                                                       CONRED   1773
                     20261                        HX2    TP.INTR                                                 CONRED   1774
                          0322001306 +            PL     X2,EDS10    IF NOT ARRAY                                CONRED   1775
          1303  20233                             LX2    TP.INTRP+1-TP.ORDP                                      CONRED   1776
                     43054                        MX0    -TP.ORDL                                                CONRED   1777
                          15620                   BX6    -X0*X2                                                  CONRED   1778
                               63661              =B6    X6+OR.2OP-OR.1OP                                        CONRED   1779
          1304  56136                             SA1    B3+B6                                                   CONRED   1780
                     0100001173 +                 RJ     LCD         GET INDEX                                   CONRED   1781
          1305  67661                             =B6    B6+OR.1OP-OR.2OP                                        CONRED   1782
                     56136                        SA1    B3+B6                                                   CONRED   1783
                                                                                                                 CONRED   1784
          1306  10211                    EDS10    BX2    X1                                                      CONRED   1785
                     20120                        HX1    TP.BIAS                                                 CONRED   1786
                          21144                   AX1    -TP.BIASL                                               CONRED   1787
                               43054              MX0    -TP.ORDL                                                CONRED   1788
          1307  20220                             LX2    -TP.ORDP                                                CONRED   1789
                     15220                        BX2    -X0*X2      ARRAY ORD                                   CONRED   1790
                          36516                   IX5    X1+X6       BIAS = BIAS + INDEX                         CONRED   1791
                               10755              BX7    X5                                                      CONRED   1792
          1310  5170001320 +                      SA7    EDSA        SAVE INDEX                                  CONRED   1793
                          5130000000 X            SA3    T.SYM                                                   CONRED   1794
          1311  63620                             SB6    X2          ORD FOR CALLER                              CONRED   1795
                     63230                        SB2    X3                                                      CONRED   1796
                          0100000000 X            CALL   ECB         EVALUATE CONSTANT BIAS                      CONRED   1797
                                                                                                                 CONRED   1798
                                        *         CHECK VALIDITY OF INDEX AND NUMBER OF ELEMENTS.                CONRED   1799
                                                                                                                 CONRED   1800
          1312  0100001321 +                      RJ     GPS         GET PRODUCT OF SPANS AND CLEN               CONRED   1801
          1313  5170001273 +                      SA7    CLEN                                                    CONRED   1802
                          5120001320 +            SA2    EDSA        INDEX                                       CONRED   1803
          1314  5140001274 +                      SA4    COUNT                                                   CONRED   1804
                          23322                   AX3    B2,X2       INDEX IN ELEMENTS                           CONRED   1805
                               36034              IX0    X3+X4       INDEX + 1 OF LAST ELEMENT                   CONRED   1806
          1315  37710                             IX7    X1-X0       MI IFF LAST ELEMENT EXCEEDS SPAN            CONRED   1807
                     12737                        BX7    X3+X7       ALSO MI IF FIRST ELEMENT BELOW SPAN         CONRED   1808
                          76060                   SX0    B6                                                      CONRED   1809
          1316  5100000000 X                      SA0    =XE.DVR2    FILL. SUBSCRIPT OUTSIDE ARRAY BOUNDS        CONRED   1810
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    49
        DATA STATEMENT INTERPRETER                                    EDS 
  
                          0337001142 +            MI     X7,SED.ABT  IF INVALID REF.                             CONRED   1811
          1317  0400001276 +                      EQ     EXIT.                                                   CONRED   1812
                                                                                                                 CONRED   1813
          1320                     1     EDSA     BSS    1                                                       CONRED   1814
  
  
  
  
                                        **        GPS - GET PRODUCT OF SPANS AND CLEN.                           CONRED   1816
                                        *                                                                        CONRED   1817
                                        *         ENTRY  B6 = SYMTAB ORD                                         CONRED   1818
                                        *                                                                        CONRED   1819
                                        *         EXIT   X1 = PRODUCT OF SPANS IN ELEMENTS                       CONRED   1820
                                        *                X2 = DITTO IN WORDS                                     CONRED   1821
                                        *                X7 = CLEN (0 IF NOT CHAR)                               CONRED   1822
                                        *                B2 = 1 IF MODE = DOUBLE OR COMPLEX, ELSE 0              CONRED   1823
                                        *                                                                        CONRED   1824
                                        *         PRESERVES B3,B5,B6,B7,X6                                       CONRED   1825
                                                                                                                 CONRED   1826
          1321  0400401321 +             GPS      SUBR   =                                                       CONRED   1827
          1322  5110000000 X                      SA1    T.SYM                                                   CONRED   1828
                          76260                   SX2    B6                                                      CONRED   1829
                               63211              =B2    X1+WB.W                                                 CONRED   1830
          1323  22712                             LX7    B1,X2                                                   CONRED   1831
                     36272                        IX2    X7+X2                                                   CONRED   1832
                          53122                   SA1    X2+B2       WB                                          CONRED   1833
          1324  5120000000 X                      SA2    T.DIM                                                   CONRED   1834
                          43057                   MX0    -WB.PNTL                                                CONRED   1835
                               63220              SB2    X2                                                      CONRED   1836
          1325  20115                             LX1    -WB.PNTP                                                CONRED   1837
                     15710                        BX7    -X0*X1                                                  CONRED   1838
                          53272                   SA2    X7+B2                                                   CONRED   1839
                               43044              MX0    -DH.PSL                                                 CONRED   1840
          1326  20236                             LX2    -DH.PSP                                                 CONRED   1841
                     20156                        LX1    WB.PNTP-WB.MODEP-1                                      CONRED   1842
                          43372                   MX3    -WB.MODEL+1                                             CONRED   1843
                               15313              BX3    -X3*X1      MODE/2                                      CONRED   1844
          1327  15120                             BX1    -X0*X2      PRODUCT OF SPANS IN ELEMENTS                CONRED   1845
                     66210                        =B2    1                                                       CONRED   1846
                          23221                   AX2    B2,X1                                                   CONRED   1847
          1330  7273777775                        SX7    X3-M.DBL/2                                              CONRED   1848
                          0307001321 +            ZR     X7,EXIT.    IF DOUBLE OR COMPLEX (DEPENDS ON M.DBL/2 =  CONRED   1849
          1331  66200                             =B2    0                                                       CONRED   1850
                     43700                        MX7    0                                                       CONRED   1851
                          10211                   BX2    X1                                                      CONRED   1852
          1332  7203777774                        SX0    X3-M.CHAR/2                                             CONRED   1853
                          0310001321 +            NZ     X0,EXIT.    IF NOT CHAR (DEPENDS ON NO TYPE = M.CHAR+1) CONRED   1854
          1333  54311                             =A3    A1+WC.W-WB.W                                            CONRED   1855
                     43052                        MX0    -WC.CLENL                                               CONRED   1856
                          20336                   LX3    -WC.CLENP                                               CONRED   1857
                               15730              BX7    -X0*X3                                                  CONRED   1858
          1334  10311                             BX3    X1                                                      CONRED   1859
                     7120000011                   CW     X2,X3                                                   CONRED   1860
          1336  0400001321 +                      EQ     EXIT.                                                   CONRED   1861
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    50
        DATA STATEMENT INTERPRETER                                    EXP.I 
  
                                        **        EXP.I - EXPONENTIAL TURPLE.                                    CONRED   1863
                                        *         EXPANSION OF I**J HAS BEEN DEFERRED UNTIL NOW WHEN I AND J     CONRED   1864
                                        *         ARE KNOWN.                                                     CONRED   1865
                                                                                                                 CONRED   1866
          1337                                    HEREFOR EXP.I                                                  CONRED   1867
          1337  5115000002                        SA1    B5+OR.2OP   EXPONENT                                    CONRED   1868
                          0100001173 +            RJ     LCD         GET VALUE                                   CONRED   1869
          1340  5160001345 +                      SA6    EXPA                                                    CONRED   1870
                          5115000001              SA1    B5+OR.1OP                                               CONRED   1871
          1341  0100001173 +                      RJ     LCD         GET BASE VALUE                              CONRED   1872
          1342  5110001345 +                      SA1    EXPA                                                    CONRED   1873
                          0100000000 X            CALL   EXD         EXPAND AND GET VALUE OF I**J                CONRED   1874
          1343  10166                             BX1    X6                                                      CONRED   1875
                     0100001041 +                 RJ     LCT                                                     CONRED   1876
          1344  0400001134 +                      EQ     SED.STO     PLACE VALUE IN HEADER AND CONTINUE          CONRED   1877
                                                                                                                 CONRED   1878
          1345                     1     EXPA     BSS    1                                                       CONRED   1879
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    51
        DATA STATEMENT INTERPRETER                                    STR.I 
  
          1346                                    HEREFOR STR.I                                                  CONRED   1881
                                                                                                                 CONRED   1882
                                        *         SIMULATE STORE TURPLE BY FILING VAL(1OP) IN DVV(2OP)           CONRED   1883
                                                                                                                 CONRED   1884
          1346  56151                             =A1    B5+OR.1OP                                               CONRED   1885
                     0100001173 +                 RJ     LCD         GET RIGHT HAND VALUE                        CONRED   1886
          1347  10566                             BX5    X6                                                      CONRED   1887
                     5125000002                   SA2    B5+OR.2OP   GET TARGET TAG                              CONRED   1888
          1350  0100001352 +                      RJ     SDV         STORE DATA VALUE                            CONRED   1889
          1351  0400001123 +                      EQ     SED.RTN                                                 CONRED   1890
  
  
  
  
                                        **        SDV - STORE DATA VALUE.                                        CONRED   1892
                                        *                                                                        CONRED   1893
                                        *         ENTRY  (X2) = OPERAND OF TARGET                                CONRED   1894
                                        *                (X5) = VALUE TO BE STORED                               CONRED   1895
                                                                                                                 CONRED   1896
          1352  0400401352 +             SDV      SUBR                                                           CONRED   1897
          1353  20220                             LX2    -TP.ORDP                                                CONRED   1898
                     43054                        MX0    -TP.ORDL                                                CONRED   1899
                          15620                   BX6    -X0*X2                                                  CONRED   1900
                               63660              SB6    X6                                                      CONRED   1901
          1354  5110000000 X                      SA1    T.SYM                                                   CONRED   1902
                          66766                   SB7    B6+B6                                                   CONRED   1903
          1355  7211000002                        SX1    X1+WC.W                                                 CONRED   1904
                          66776                   SB7    B7+B6                                                   CONRED   1905
                               53117              SA1    X1+B7       WC OF TARGET                                CONRED   1906
          1356  5120000000 X                      SA2    T.DVV                                                   CONRED   1907
                          43052                   MX0    -WC.DVPL                                                CONRED   1908
          1357  6222777776                        SB2    X2-1                                                    CONRED   1909
                          20136                   LX1    -WC.DVPP                                                CONRED   1910
                               15710              BX7    -X0*X1                                                  CONRED   1911
          1360  11201                             BX2    X0*X1                                                   CONRED   1912
                     53372                        SA3    B2+X7       DVV(DVP)                                    CONRED   1913
                          7167000002              SX6    B7+WC.W                                                 CONRED   1914
                                                  LX6    DV.PNTP                                                 CONRED   1915
          1361  0317001365 +                      NZ     X7,SDV10    IF ALREADY IN DVV                           CONRED   1916
                          5130000000 X            SA3    T=DVV                                                   CONRED   1917
          1362  73731                             =X7    X3+1                                                    CONRED   1918
                     12727                        BX7    X2+X7                                                   CONRED   1919
                          20736                   LX7    WC.DVPP                                                 CONRED   1920
                               54710              SA7    A1          INCLUDE POINTER TO DVV ENTRY IN WC          CONRED   1921
          1363  5110000000 X                      ADDWD  T.DVV                                                   CONRED   1922
          1364  54360                             SA3    A6                                                      CONRED   1923
                                                                                                                 CONRED   1924
          1365  43044                    SDV10    MX0    -DV.VALL                                                CONRED   1925
                     15550                        BX5    -X0*X5                                                  CONRED   1926
                          20544                   LX5    DV.VALP                                                 CONRED   1927
                               12656              BX6    X5+X6                                                   CONRED   1928
          1366  54630                             SA6    A3          VAL[DVV(TARGET)] = VALUE                    CONRED   1929
                     0400001352 +                 EQ     EXIT.                                                   CONRED   1930
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    52
        DATA STATEMENT INTERPRETER                                    DO
  
          1367                                    HEREFOR (DOBS,DOBL,DOBZS,DOBZL)                                CONRED   1932
                                                                                                                 CONRED   1933
                                        *         PLACE SIMULATED DO-TOP ADDRESS (NEXT TURPLE) IN                CONRED   1934
                                        *         WC.BRAD OF DO.N .                                              CONRED   1935
                                                                                                                 CONRED   1936
          1367  5135000007                        SA3    B5+7                                                    CONRED   1937
                          5140000000 X            SA4    T.SYM                                                   CONRED   1938
          1370  5120001156 +                      SA2    SEDTURP                                                 CONRED   1939
                          20320                   LX3    -TP.ORDP                                                CONRED   1940
                               43054              MX0    -TP.ORDL                                                CONRED   1941
                                                  LX2    WC.BRADP                                                CONRED   1942
          1371  15630                             BX6    -X0*X3                                                  CONRED   1943
                     6274000002                   SB7    X4+WC.W                                                 CONRED   1944
                               22716              LX7    B1,X6                                                   CONRED   1945
          1372  36067                             IX0    X6+X7                                                   CONRED   1946
                     53107                        SA1    B7+X0       WORD C OF DO.N FOR THIS LOOP                CONRED   1947
                          12721                   BX7    X2+X1                                                   CONRED   1948
                               54710              SA7    A1          INSTALL BRANCH ADDRESS                      CONRED   1949
                                                                                                                 CONRED   1950
                                        *         SET ITERATION COUNT  (DC.N = # OF TRIPS)                       CONRED   1951
                                                                                                                 CONRED   1952
          1373  5115000002                        SA1    B5+OR.2OP   NUMBER OF TRIPS                             CONRED   1953
                          0100001173 +            RJ     LCD         LOAD VALUE                                  CONRED   1954
          1374  56551                             =A5    B5+OR.1OP                                               CONRED   1955
                     43054                        MX0    -TP.ORDL                                                CONRED   1956
                          20520                   LX5    -TP.ORDP                                                CONRED   1957
                               15050              BX0    -X0*X5      ORD OF CONTROL VARIABLE (1OP)               CONRED   1958
          1375  5100000000 X                      SA0    E.DVR3      TRIP COUNT OF FILL. MUST BE POSITIVE        CONRED   1959
                          76510                   =X5    1                                                       FC5A132    99
                               37565              IX5    X6-X5                                                   FC5A132   100
          1376  0335001142 +                      MI     X5,SED.ABT  SET B7 AND FILL. ORD                        CONRED   1961
                          10566                   BX5    X6                                                      CONRED   1962
          1377  5125000004                        SA2    B5+4        DC.N TAG                                    CONRED   1963
                          0100001352 +            RJ     SDV         STORE VALUE IN DC.N                         CONRED   1964
          1400  0400001123 +                      EQ     SED.RTN                                                 CONRED   1965
  
  
  
  
          1401                                    HEREFOR (DOC.S,DOC.L)                                          CONRED   1967
                                                                                                                 CONRED   1968
                                        *         INCREMENT I = I + M3.                                          CONRED   1969
                                                                                                                 CONRED   1970
          1401  56151                             =A1    B5+OR.1OP                                               CONRED   1971
                     54311                        =A3    A1+OR.2OP-OR.1OP                                        CONRED   1972
                          0100001173 +            RJ     LCD         GET I (1OP)                                 CONRED   1973
          1402  10133                             BX1    X3                                                      CONRED   1974
                     10366                        BX3    X6                                                      CONRED   1975
                          0100001173 +            RJ     LCD         GET M3 (2OP)                                CONRED   1976
          1403  36536                             IX5    X3+X6                                                   CONRED   1977
                     5125000001                   SA2    B5+OR.1OP                                               CONRED   1978
          1404  0100001352 +                      RJ     SDV         STORE NEW I                                 CONRED   1979
          1405  5110001156 +                      SA1    SEDTURP                                                 CONRED   1980
                          5120000000 X            SA2    T.DAR                                                   CONRED   1981
          1406  36012                             IX0    X1+X2                                                   CONRED   1982
                     5210000002                   SA1    X0-3+5      DC.                                         CONRED   1983
                               10311              BX3    X1                                                      CONRED   1984
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    53
        DATA STATEMENT INTERPRETER                                    DOEND 
  
          1407  0100001173 +                      RJ     LCD         GET TRIP COUNT                              CONRED   1985
          1410  76010                             =X0    1                                                       CONRED   1986
                     37560                        IX5    X6-X0       DC. = DC. - 1                               CONRED   1987
                          0305001123 +            ZR     X5,SED.RTN  IF DC. = 0  */ LOOP EXHAUSTED               CONRED   1988
                                        *         CLEAR WC.DVP[L1]  (I) WHEN EXHAUSTED                           CONRED   1989
          1411  10233                             BX2    X3                                                      CONRED   1990
                     0100001352 +                 RJ     SDV         STORE NEW DC.                               CONRED   1991
                                                                                                                 CONRED   1992
                                        *         RESET SEDTURP TO BRAD[DO.] TO SIMULATE BRANCH-BACK.            CONRED   1993
                                                                                                                 CONRED   1994
          1412  5110001156 +                      SA1    SEDTURP                                                 CONRED   1995
                          5120000000 X            SA2    T.DAR                                                   CONRED   1996
          1413  36012                             IX0    X1+X2                                                   CONRED   1997
                     53101                        =A1    X0-3+4      DO. OPERAND                                 CONRED   1998
                          5120000000 X            SA2    T.SYM                                                   CONRED   1999
          1414  20120                             LX1    -TP.ORDP                                                CONRED   2000
                     43054                        MX0    -TP.ORDL                                                CONRED   2001
                          15610                   BX6    -X0*X1                                                  CONRED   2002
          1415  6272000002                        SB7    X2+WC.W                                                 CONRED   2003
                          22716                   LX7    B1,X6                                                   CONRED   2004
                               36067              IX0    X6+X7                                                   CONRED   2005
          1416  53107                             SA1    B7+X0       WC OF DO.                                   CONRED   2006
                                                  LX1    -WC.BRADP                                               CONRED   2007
                     73610                        SX6    X1                                                      CONRED   2008
                                   0              ERRNZ  WC.BRADL-18                                             CONRED   2009
                          5160001156 +            SA6    SEDTURP                                                 CONRED   2010
          1417  0400001123 +                      EQ     SED.RTN                                                 CONRED   2011
  
  
  
  
                                                  LIST   D                                                       CONRED   2013
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        ANSI= 
             0 X                        EXD 
  
                                        CONTENT OF LITERALS BLOCK.
  
          1420  00000631463146314632      FY-Y-Y-Z
          1421  55555555555555555555
          1422  00000000000026000000          V 
          1423  00000000000031000000          Y 
          1424  00000000000052000000          ) 
  
          1425                                    END                                                            CONRED   2014
  
                             75000B CM  STORAGE USED             5941 STATEMENTS     1715 SYMBOLS      000005 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            4.722 SECONDS        1563 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/03 X   40/39     51/45
        ALC             0   EXTERNAL*       2/03 X   24/20
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        ANSI=           0   EXTERNAL*      14/43     47/41
        BLNKCOM         0   EXTERNAL*       2/30 X   47/33
        B1=1            0 
        CCR           442   PROGRAM*       21/29 L   21/29 E
        CCRA            0   PROGRAM*        2/43 D   21/30 S   22/36     44/10 S   44/19
        CCR8          471   PROGRAM*       21/50     22/08     22/10     22/11     22/29     22/30     22/36 L
        CCS           766   PROGRAM*       26/10     33/17 L
        CCS10         770   PROGRAM*       33/21 L   33/27
        CDR          1160   PROGRAM*       42/05     44/09 L
        CDR10        1166   PROGRAM*       44/15     44/19 L
        CFO           741   PROGRAM*       29/55     30/13     30/15     30/45 L
        CHAR            6   FTX             8/24      9/05      9/36     12/24     13/18     33/19     34/13
                                            8/27      9/35     10/02     12/26     13/26     34/12
        CIF           275   PROGRAM*       15/49     16/10 L
        CIFA          357   PROGRAM*       17/09     17/34     19/15 L
        CIFA1          25                  19/16 D   19/20 D   19/20 D   19/20 D   19/20 D   19/20 D   19/20 D   19/20 D
                                           19/20     19/20     19/20     19/20     19/20     19/20     19/20
                                           19/20 D   19/20 D   19/20 D   19/20 D   19/20 D   19/20 D   19/20 D
                                           19/20     19/20     19/20     19/20     19/20     19/20     19/20
                                           19/20 D   19/20 D   19/20 D   19/20 D   19/20 D   19/20 D   19/20 D
                                           19/20     19/20     19/20     19/20     19/20     19/20     19/20
        CIFB          404   PROGRAM*       16/29     18/45     18/57     19/22 L
        CIF1          277   PROGRAM*       16/08     16/19 L
        CIF10         332   PROGRAM*       17/41     18/06 L
        CIF11         334   PROGRAM*       18/02     18/15 L
        CIF12         337   PROGRAM*       18/21     18/24 L
        CIF13         342   PROGRAM*       18/15     18/34 L
        CIF14         345   PROGRAM*       18/44 L   18/54
        CIF15         350   PROGRAM*       18/37     18/51 L
        CIF16         351   PROGRAM*       16/26     18/54 L
        CIF17         355   PROGRAM*       18/56     19/06 L
        CIF18         356   PROGRAM*       18/01     18/10     18/28     18/30     18/42     19/09 L
        CIF2          300   PROGRAM*       16/20     16/23 L
        CIF3          305   PROGRAM*       16/38 L   18/49     19/04
        CIF4          311   PROGRAM*       16/40     16/52 L
        CIF5          314   PROGRAM*       16/30     17/01     17/09 L
        CIF6          316   PROGRAM*       17/15 L   17/30     17/35
        CIF7          321   PROGRAM*       17/17     17/26 L
        CIF8          323   PROGRAM*       17/11     17/34 L
        CIF9          331   PROGRAM*       17/55     18/01 L
        CIO           744   PROGRAM*       30/07     30/55 L
        CLEN         1273   PROGRAM*       46/44     48/02 L   48/49 S
        COL           713   PROGRAM*       27/35     29/50 L
        COL10         722   PROGRAM*       29/53     30/04 L
        COL20         725   PROGRAM*       30/05     30/10 L
        COL30         735   PROGRAM*       30/22     30/29 L
        COL.PO        740   PROGRAM*       26/47 S   30/29     30/36 L
        CONRB         473   PROGRAM*       21/42 S   22/01 S   22/09     22/40 L
        CONR2         463   PROGRAM*       22/20 L   22/32
        CONR3         466   PROGRAM*       22/14     22/15     22/27 L
        COUNT        1274   PROGRAM*       47/51     48/03 L   48/17 S   48/51
        CTA           474   PROGRAM*       22/37     23/17 L   23/17 E   44/20
        CTAA           43   PROGRAM*        5/07 L    5/07 E   23/20 S   23/46     23/54
        CTA10         477   PROGRAM*       23/24 L   23/36
        CTA20         502   PROGRAM*       23/30     23/33 L
        CTA.ER        511   PROGRAM*       23/52 L   27/50     30/24     30/33     30/47
                                           27/49     30/01     30/26     30/46     31/01
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        CT1             0   EXTERNAL*       2/09 X   47/05
        DATAFLG         0   EXTERNAL*       2/06 X    9/17     10/39     11/16
        DAT.Z           0   EXTERNAL*       2/06 X   11/48
        DEC            62   PROGRAM*        7/48 L    7/48 E   14/35
        DECA          175   PROGRAM*        7/32      8/06 S   11/50 L
        DECEX         171   PROGRAM*        9/53      9/54     10/07     10/08     11/39 L
        DECEX1        170   PROGRAM*        8/01      8/41     10/51     11/01     11/37 L
        DEC11          76   PROGRAM*        8/32 L    8/44      9/14
        DEC13         103   PROGRAM*        8/48 L    9/11
        DEC14         104   PROGRAM*        8/49      8/51 L
        DEC16         107   PROGRAM*        8/37      8/39      8/53      9/05 L
        DEC19         113   PROGRAM*        9/12      9/16 L
        DEC20         116   PROGRAM*        9/16      9/18      9/22 L
        DEC21         122   PROGRAM*        9/26      9/30 L
        DEC22         123   PROGRAM*        9/30      9/32 L
        DEC24         127   PROGRAM*        9/49 L   10/25     10/28
        DEC26         133   PROGRAM*        9/43     10/02 L   10/14
        DEC3           67   PROGRAM*        7/54      7/57 L
        DEC30         140   PROGRAM*        9/39     10/22 L
        DEC40         146   PROGRAM*        8/35      8/40     10/38 L
        DEC41         151   PROGRAM*        9/24      9/28     10/38     10/40     10/44 L
        DEC45         154   PROGRAM*       10/45     10/53 L
        DEC50         155   PROGRAM*       10/05     10/56 L
        DEC52         156   PROGRAM*       10/36     10/54     11/09 L
        DEC53         163   PROGRAM*       11/11     11/15     11/17     11/20 L
        DEC60          56   PROGRAM*        7/32 L   10/50     11/35
        DEC7           70   PROGRAM*        7/52      7/56      8/05 L
        DH.PSL         30   FTX            49/33
        DH.PSP         36   FTX            49/34
        DOA             0   EXTERNAL*       2/23 X   47/08
        DTA           204   PROGRAM*       12/09 L   34/08     34/11
        DTACT         213   PROGRAM*       12/13     12/32 L
        DVIA         1271   PROGRAM*       46/15 S   46/17     46/33     47/57 L
        DVIB         1272   PROGRAM*       46/26 S   46/30     48/01 L
        DVIC         1275   PROGRAM*       47/03 S   47/50     48/04 L
        DVI10        1242   PROGRAM*       46/05     46/07     46/56 L
        DVI20        1243   PROGRAM*       46/54     47/01 L
        DVI30        1251   PROGRAM*       47/10     47/17 L
        DVI40        1263   PROGRAM*       47/30     47/44 L
        DVI50        1265   PROGRAM*       47/40     47/42     47/49 L
        DV.PNTL        22                  41/12 D   43/09
        DV.PNTP         0                  41/12 D
        DV.VALL        30                  41/10 D   45/19     51/48
        DV.VALP        44                  41/10 D   51/50
        D=ARY        1123   PROGRAM*       41/32 L   41/32 E
        D=BSS        1123   PROGRAM*       41/32 L   41/32 E
        D=COLON      1123   PROGRAM*       41/32 L   41/32 E
        D=DOBD2      1123   PROGRAM*       41/32 L   41/32 E
        D=DOBL       1367   PROGRAM*       52/01 L   52/01 E
        D=DOBS       1367   PROGRAM*       52/01 L   52/01 E
        D=DOBZL      1367   PROGRAM*       52/01 L   52/01 E
        D=DOBZS      1367   PROGRAM*       52/01 L   52/01 E
        D=DOC.L      1401   PROGRAM*       52/40 L   52/40 E
        D=DOC.S      1401   PROGRAM*       52/40 L   52/40 E
        D=DVI        1220   PROGRAM*       46/01 L   46/01 E
        D=EXP.I      1337   PROGRAM*       50/05 L   50/05 E
        D=NOOP       1123   PROGRAM*       41/32 L   41/32 E
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        D=STR.I      1346   PROGRAM*       51/01 L   51/01 E
        D=SUBST      1123   PROGRAM*       41/32 L   41/32 E
        ECB             0   EXTERNAL*       2/29 X   48/44
        ECS             0   EXTERNAL*       2/29 X   46/53
        EDI             0   EXTERNAL*       2/06 X   47/54
        EDS          1276   PROGRAM*       46/16     46/56     48/13 L
        EDSA         1320   PROGRAM*       48/40 S   48/50     49/04 L
        EDS10        1306   PROGRAM*       48/22     48/32 L
        EXD             0   EXTERNAL*      50/12
        EXPA         1345   PROGRAM*       50/08 S   50/11     50/17 L
        EXT             0   EXTERNAL*       2/23 X
        E.ANS6          0   EXTERNAL*       2/15 X   47/41     47/41
        E.AT16          0   EXTERNAL*       2/12 X   46/51
        E.DABC          0   EXTERNAL*       2/14 X   47/36
        E.DABL          0   EXTERNAL*       2/14 X   47/46
        E.DAUC          0   EXTERNAL*       2/14 X   47/19
        E.DC            0   EXTERNAL*       2/12 X   11/37     14/47
        E.DC1           0   EXTERNAL*       2/13 X   14/43
        E.DC3           0   EXTERNAL*       2/12 X    9/42      9/51
        E.DC6           0   EXTERNAL*       2/12 X   10/35
        E.DC8           0   EXTERNAL*       2/12 X    9/20     10/42     11/18     13/55
        E.DC9           0   EXTERNAL*       2/12 X   14/05
        E.DSE           0   EXTERNAL*       2/14 X   42/24     45/33
        E.DVL1          0   EXTERNAL*       2/14 X   47/11     47/11
        E.DVR1          0   EXTERNAL*       2/12 X   45/15
        E.DVR2          0   EXTERNAL*       2/12 X   48/57
        E.DVR3          0   EXTERNAL*       2/14 X   52/28
        E.DVR4          0   EXTERNAL*       2/14 X   44/45
        FIELD          40   PROGRAM*        5/06 L   27/13 S   27/31     27/36     27/43
        FILL.           0   EXTERNAL*       2/14 X   42/43 S
        FSCALE        265   PROGRAM*       11/30     15/41 L
        F.SCT           0   EXTERNAL*       2/33 X   41/49
        F.SKEL          0   EXTERNAL*       2/33 X   23/22
        GNC           774   PROGRAM*       33/24     33/55 L
        GNC10         777   PROGRAM*       33/56     34/03 L
        GNC20        1001   PROGRAM*       34/03     34/07 L
        GPS          1321   PROGRAM*       48/48     49/20 L   49/20 E
        INST          633   PROGRAM*       27/03 S   27/21 S   27/29 S   27/39 L   29/21 S   29/31     29/42 S
        INST=SB        55   PROGRAM*        5/16 L   29/18
        INST=00        51   PROGRAM*        5/12 L   29/28
        INST=03        52   PROGRAM*        5/13 L   29/40
        INST=22        50   PROGRAM*        5/11 L   27/19
        INST=23        47   PROGRAM*        5/10 L   26/53
        INST=32        54   PROGRAM*        5/15 L   27/27
        INST=73        53   PROGRAM*        5/14 L   29/16
        IP.CSET         0   FTX            12/38 F
        IP.C63          2   FTX            12/38 F
        ISI           601   PROGRAM*       23/33     26/42 L
        ISI10         611   PROGRAM*       27/05 L   27/14
        ISI20         623   PROGRAM*       27/17     27/24 L
        ISI30         630   PROGRAM*       27/22     27/25     27/31 L
        ISI5          610   PROGRAM*       26/57     27/03 L
        KCDI          765   PROGRAM*       31/33     32/33 L
        KCDZ          764   PROGRAM*       31/33     32/27 L
        KCEE          756   PROGRAM*       31/29     31/31     31/33     31/35     32/11
                                           31/30     31/32     31/34     31/57 L   32/16 D
        KCID          763   PROGRAM*       31/31     32/19 L
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        KCIR          763   PROGRAM*       31/31     32/18 L
        KCIZ          763   PROGRAM*       31/31     32/20 L
        KCNN          757   PROGRAM*       31/29     31/31     31/33     31/35     32/16
                                           31/30     31/32     31/34     32/14 D
        KCRD          764   PROGRAM*       31/29     31/32     32/25 L
        KCRI          765   PROGRAM*       31/32     32/32 L
        KCRZ          764   PROGRAM*       31/29     31/32     32/26 L
        KCV           757   PROGRAM*       32/02 L   32/02 E
        KCZD          764   PROGRAM*       31/34     32/28 L
        KCZI          765   PROGRAM*       31/34     32/34 L
        KMOD          747   PROGRAM*       31/27 L   32/03
        KW=DATA         0   EXTERNAL*       2/06 X   11/40
        KW.JMPL        22   FTX            11/43
        LCD          1173   PROGRAM*       44/12     44/39 L   46/32     48/28     50/10     52/23     52/49
                                           44/16     46/28     48/16     50/07     51/06     52/46     53/01
        LCDA         1217   PROGRAM*       44/41 S   45/01     45/41 L
        LCD10        1212   PROGRAM*       44/52     45/25 L
        LCD5         1200   PROGRAM*       44/47     44/51 L
        LCH          1006   PROGRAM*       34/55 L   34/55 E
        LCH4         1031   PROGRAM*       35/16     35/34     35/41     35/43     36/19 L
        LCH6         1032   PROGRAM*       35/11     36/24 L
        LCH8         1040   PROGRAM*       36/29     36/41 L
        LCT          1041   PROGRAM*       21/44     36/06     37/25 L   44/24     50/14
                                           22/02     36/11     37/25 E   44/53
        LCT1         1053   PROGRAM*       37/36     37/55 L
        LIR          1056   PROGRAM*       38/25 L   38/25 E
        LIR10        1055   PROGRAM*       38/23 L   38/31
        LLVEC          10   PROGRAM*        4/57 L    4/57 E   21/47 S   22/05 S   22/13     29/04
        LOP           640   PROGRAM*       27/11     28/12 L
        LOPB10        702   PROGRAM*       29/17     29/20 L
        LOP.A         672   PROGRAM*       28/48 L
        LOP.B         700   PROGRAM*       29/16 L
        LOP.GL        672   PROGRAM*       28/52 L
        LOP.GLL       672   PROGRAM*       28/53 L
        LOP.GP        672   PROGRAM*       28/51 L
        LOP.JT        643   PROGRAM*       28/15     28/17 L
        LOP.K         704   PROGRAM*       29/24 L
        LOP.K10       710   PROGRAM*       29/27     29/36 L
        LOP.L         673   PROGRAM*       29/01 L
        LOP.LL        674   PROGRAM*       29/04 L
        LOP.P         672   PROGRAM*       28/50 L
        LOP.Q         672   PROGRAM*       28/54 L
        LOP.R         675   PROGRAM*       29/07 L
        LOP.RL        676   PROGRAM*       29/10 L
        LOP.S         672   PROGRAM*       28/55 L
        LOP.T         677   PROGRAM*       29/13 L
        LOP.X         672   PROGRAM*       28/49 L
        LVEC            6   PROGRAM*        4/56 L   21/45 S   22/12     38/34 S   44/13 S
                                            4/56 E   22/03 S   29/01     38/36     44/17 S
        MNS=            0   EXTERNAL*       2/36 X   24/52
        MOD             0   EXTERNAL*       2/30 X   47/38     47/44
        MO.BLKL         1   FTX            47/39     47/45
        MO.BLKP        10   FTX            47/39     47/45
        MVE=            0   EXTERNAL*       2/36 X   24/34
        M.BOOL          0   FTX            14/07     31/29 L   44/48
        M.BRAN          3                   4/12 D
        M.CHAR          6   FTX            31/35 L   35/05     36/19     36/25     37/30     39/03     49/46
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        M.COND          0                   4/09 D
        M.CPLX          5   FTX            31/34 L   39/02
        M.DBL           4   FTX            11/29     21/52     31/33 L   38/57     38/57     39/02     39/03     49/41
        M.ICALL         5                   4/14 D
        M.IEND         40                   4/19 D
        M.INCR          2                   4/11 D
        M.INOOP         6                   4/15 D
        M.INT           2   FTX             8/25     31/31 L   38/33     44/46
        M.ISBRN         7                   4/16 D   23/29
        M.LOAD         10                   4/17 D
        M.LOG           1   FTX            26/25     31/30 L
        M.NORM          1                   4/10 D
        M.REAL          3   FTX            11/28     11/29     31/32 L
        M.RND          21                   4/18 D
        M.SHIF          4                   4/13 D
        NBC          1064   PROGRAM*       23/45     26/27     38/56 L   38/56 E
        NBCA         1077   PROGRAM*       39/11 S   39/28     39/34 L   40/49
        NBC4         1070   PROGRAM*       39/01     39/11 L
        NCM             0   EXTERNAL*       2/09 X   25/16     39/23
        NCS          1102   PROGRAM*       38/35     39/06     40/17 L   40/17 E
        NCSA         1077   PROGRAM*       40/35 S   40/42     40/49 D
        NCS10        1107   PROGRAM*       40/25     40/34 L
        NCS20        1114   PROGRAM*       40/38     40/41 L
        N.TYPE          7   FTX            31/36 L
        OCT           223   PROGRAM*       13/12 L   13/12 E   14/44
        OCT40         231   PROGRAM*       13/20     13/26 L   13/47     13/51
        OCT44         235   PROGRAM*       13/31     13/34     13/37 L
        OCT48         240   PROGRAM*       13/38     13/42     13/45 L
        OCT50         241   PROGRAM*       13/29     13/49 L
        OCT94         244   PROGRAM*       13/54     13/57 L
        OCT95         246   PROGRAM*       13/57     14/05 L
        OCT96         247   PROGRAM*       14/01     14/03     14/07 L
        OD.BJP         21   FTX            29/36
        OD.COPYL        1   FTX            27/16
        OD.COPYP       14   FTX            27/16     27/24
        OD.DIVP        16   FTX            30/21
        OD.FPAL         1   FTX            27/47
        OD.FPAP        15   FTX            27/47     30/10     30/21
        OD.JKVL         1   FTX            26/56     29/26
        OD.JKVP        20   FTX            26/56     29/26     29/36
        OD.KJP         17   FTX            27/24
        OD.PKP         22   FTX            30/04     30/10
        OD.UPL          1   FTX            29/52
        OD.UPP         23   FTX            29/52     30/04
        OPCODE         46   PROGRAM*        5/09 L   26/52 S   27/18     27/26     28/13
        OR.OPR          0   FTX            35/27     35/35     36/03     41/44     42/03     42/14     42/14     45/29
        OR.1OP          1   FTX            35/35     36/05     42/04     46/25     50/09     52/44
                                           35/44     41/42     46/02     48/26     51/05     52/45
                                           36/03     42/03     46/18     48/29     52/24     52/51
        OR.2OP          2   FTX            35/44     42/04     46/25     48/26     50/06     52/22
                                           36/05     46/18     48/15     48/29     51/08     52/45
        O.CONS          5   FTX             7/51      7/55      8/34      9/50     14/30     14/31     14/31     14/38
        O.EOS           0   FTX             8/36
        O.EQ           24   FTX            25/52
        O.GE           23   FTX            25/52     25/53
        O.GT           27   FTX            25/53
        O.HEX           7   FTX            13/21     14/39
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        O.LE           26   FTX            25/51     25/52
        O.LT           22   FTX            25/51
        O.NE           25   FTX            25/51     25/53
        O.OCT           6   FTX            13/19     13/21     14/02     14/38     14/39
        O.PERIOD       10   FTX             7/53      8/33      8/38     14/31     14/31
        O.PL           14   FTX            10/24     10/24     21/54
        O.VAR          11   FTX             8/38
        PARNOW          0   EXTERNAL*       2/23 X    9/22
        PCC           513   PROGRAM*       24/14 L   24/14 E
        PCCA            0   PROGRAM*        2/39 L    2/40      2/41      2/43     24/17 S   24/19 S   25/18
        PCCB            1   PROGRAM*        2/40 D   24/19 S   24/35
        PCCC            2   PROGRAM*        2/41 D   24/33 S   25/01     25/02
        PCCD            3   PROGRAM*        2/42 L   24/46 S   25/02
        PCC20         553   PROGRAM*       25/19     25/25 L
        PCC5          535   PROGRAM*       24/38     24/41 L
        PCR           555   PROGRAM*       25/55 L   25/55 E
        PCR10         566   PROGRAM*       26/12     26/14     26/17 L
        PCR.RO        600   PROGRAM*       26/17     26/35 L   26/35 E
        PCR.1OP       574   PROGRAM*       25/57     26/06     26/33 L   26/33 E
        PCR.2OP       576   PROGRAM*       26/01     26/08     26/34 L   26/34 E
        PDM             0   EXTERNAL*       2/26 X   10/35     11/18     13/55     14/47     47/11
                                            9/20     10/42     11/39     14/05     42/45
        PIK            45   PROGRAM*        5/08 L   26/51 S   27/15     27/46     29/24     29/51
        PIK=PS          0   EXTERNAL*       2/29 X   26/48
        PM=ICE          1   FTX             9/23
        PSL             0   EXTERNAL*       2/18 X   11/45     14/48
        P.IEND         73                   4/20 D
        REG=T          14   PROGRAM*        5/04 L    5/04 E
        RLVEC          13   PROGRAM*        5/02 L    5/02 E   23/41     29/10
        RVEC           12   PROGRAM*        5/01 L    5/01 E   22/22 S   23/40     29/07
        SCT             0   EXTERNAL*       2/09 X   40/36
        SDV          1352   PROGRAM*       51/09     51/20 L   52/34     52/52     53/07
        SDV10        1365   PROGRAM*       51/39     51/48 L
        SED          1117   PROGRAM*       41/26 L   41/26 E
        SEDTURP      1156   PROGRAM*       41/29 S   42/11     44/25     52/53     53/26 S
                                           41/35     43/14 L   52/08     53/11
        SED10        1132   PROGRAM*       41/53     41/56 L
        SED15        1141   PROGRAM*       42/02     42/24 L
        SED20        1153   PROGRAM*       43/04 L   43/12
        SED.ABT      1142   PROGRAM*       42/30 L   45/16     46/52     47/37     49/01
                                           44/49     45/35     47/20     47/47     52/31
        SED.END      1147   PROGRAM*       41/39     42/49 L   47/12
        SED.ERR      1157   PROGRAM*       41/28 S   42/31 S   42/50     43/15 L
        SED.RTN      1123   PROGRAM*       41/33 L   42/22     47/55     51/10     52/35     53/04     53/27
        SED.STO      1134   PROGRAM*       42/09 L   50/15
        SKL.CON         0                   3/10 D
        SKL.GOP         1                   3/11 D
        SKL.OP          1                   3/08 D
        SKL.RG          0                   3/07 D
        SKL.TMP         1                   3/09 D
        SKM.CON         1                   3/10 D
        SKM.GOP         1                   3/11 D
        SKM.OP    7777774                   3/08 D
        SKM.RG          1                   3/07 D
        SKM.TMP         1                   3/09 D
        SKO.CON         0                   3/10 D
        SKO.GOP   7777776                   3/11 D
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        SKO.OP          0                   3/08 D
        SKO.RG          0                   3/07 D
        SKO.TMP   7777776                   3/09 D
        SKU.CON         0                   3/10 D
        SKU.GOP         6                   3/11 D
        SKU.OP          6                   3/08 D
        SKU.RG          7                   3/07 D
        SKU.TMP        24                   3/09 D    5/05
        SK.ARGL        22                   4/39 D
        SK.ARGP        22                   4/39 D
        SK.ATTRL       22                   4/38 D
        SK.ATTRP       44                   4/38 D
        SK.ENDP        73                   4/29 D
        SK.GHL          6                   4/32 D   26/44
        SK.GHP         60                   4/32 D   26/43     26/54
        SK.IFL         13                   4/34 D
        SK.IFP         42                   4/34 D
        SK.JFL         13                   4/35 D
        SK.JFP         27                   4/35 D
        SK.JPADL       22                   4/40 D
        SK.JPADP        0                   4/40 D
        SK.KFL         13                   4/36 D
        SK.KFP         14                   4/36 D   26/54
        SK.OPCL        11                   4/33 D
        SK.OPCP        55                   4/33 D
        SK.QFL         14                   4/37 D
        SK.QFP          0                   4/37 D
        SK.RNDP        72                   4/30 D
        SK.TYPL         6                   4/31 D   23/26
        SK.TYPP        66                   4/31 D   23/27
        SMOD            0   EXTERNAL*       2/23 X   21/51     23/42
        SR.NUML         6                   4/53 D   27/05     27/07
        SR.NUMP         0                   4/53 D
        SR.OADL         5                   4/52 D   27/08     27/10
        SR.OADP         6                   4/52 D
        S=CON           0   EXTERNAL*       2/29 X   35/37     36/24     37/41     39/24     40/41
        TB=TYPE         0   EXTERNAL*       2/21 X   11/41
        TB.TOCL        52   FTX             7/25
        TB.TOCP        22   FTX             7/25
        TB.TOTL        22   FTX             7/24
        TB.TOTP         0   FTX             7/23
        TEST            0   FTX            29/38 F   35/48 F   36/12 F   39/14 F   44/21 F
                                           35/18 F   36/07 F   36/42 F   40/18 F
        TH.DDEFP       25   FTX            42/19     45/31
        TH.DVALL       30   FTX            42/09     45/36     45/37
        TH.DVALP       26   FTX            42/15     42/18     45/36
        TH.SKELL       16   FTX            35/29     41/46
        TH.SKELP       56   FTX            35/30     41/47
        TNK           250   PROGRAM*       14/28 L   14/28 E
        TNK2          254   PROGRAM*       14/32     14/35 L
        TNK4          256   PROGRAM*       14/33     14/38 L
        TNK5          260   PROGRAM*       14/40     14/43 L
        TNK9          263   PROGRAM*       14/41     14/47 L
        TP.ARYP        15   FTX            46/06
        TP.BIASL       30   FTX            35/04     37/45     37/55     40/26     48/34
                                           35/07     37/46     37/56     48/33
        TP.BIASP       24   FTX            35/04     37/45     37/55     39/27     40/28     40/45     48/33
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        TP.INTRL        1   FTX            46/04     48/21
        TP.INTRP       12   FTX            35/10     36/27     37/35     46/04     48/21
                                           35/42     37/33     44/51     46/06     48/23
        TP.MODEL        3   FTX            34/56     37/28     44/43
        TP.MODEP        0   FTX            35/06     44/51
        TP.ORDL        20   FTX            35/08     37/39     45/26     46/21     48/35     52/10     53/17
                                           35/36     45/03     46/12     48/24     51/22     52/25
        TP.ORDP        54   FTX            35/06     35/42     40/43     46/11     48/36     52/26
                                           35/10     35/45     45/04     46/22     51/21     53/16
                                           35/38     39/26     45/25     48/23     52/09
        TP.SHRTB       22   FTX            40/24
        TP.SHRTP       14   FTX            36/27     37/35     40/29
        TVEC           14   PROGRAM*        5/05 L   29/13
        T=CON           0   EXTERNAL*       2/29 X   25/07     25/25
        T=DAR           0   EXTERNAL*       2/29 X   41/36
        T=DVV           0   EXTERNAL*       2/29 X   41/30     41/30 S   42/49     42/57     42/57 S   51/40
        T=PAR           0   EXTERNAL*       2/29 X
        T.CON           0   EXTERNAL*       2/29 X   24/20     25/08     25/56     36/31     37/44     39/21     40/36
        T.DAR           0   EXTERNAL*       2/30 X   41/40     42/12     44/26     45/27     52/54     53/12
        T.DIM           0   EXTERNAL*       2/30 X   49/27
        T.DVV           0   EXTERNAL*       2/30 X   42/51     45/10     51/30     51/45
        T.PAR           0   EXTERNAL*       2/30 X   35/26
        T.SYM           0   EXTERNAL*       2/30 X   42/52     48/41     51/25     53/15
                                           42/35     45/02     49/21     52/07
        VS.CRAL        22   FTX            42/01
        VS.CRAP         0   FTX            41/56
        VS.DRAL        22   FTX            41/52
        VS.DRAP        22   FTX            41/50     41/56
        V=COLON         0   EXTERNAL*       2/33 X
        V=SUBST         0   EXTERNAL*       2/33 X   35/32
        WA.SYML        52   FTX            42/41
        WA.W            0   FTX            42/38
        WB.COML         1   FTX            47/29
        WB.COMP        17   FTX            47/29
        WB.DEFL         1   FTX            47/21
        WB.DEFP         7   FTX            47/21
        WB.FPL          1   FTX            47/17
        WB.FPP         20   FTX            47/17
        WB.LABL         1   FTX            47/17
        WB.LABP         3   FTX            47/17
        WB.MODEL        3   FTX            49/36
        WB.MODEP        0   FTX            49/35
        WB.NVARL        1   FTX            47/17
        WB.NVARP        6   FTX            47/17
        WB.PARML        1   FTX            47/17
        WB.PARMP       10   FTX            47/17
        WB.PNTL        15   FTX            49/28
        WB.PNTP        57   FTX            49/30     49/35
        WB.VARL         1   FTX            47/21
        WB.VARP         5   FTX            47/21
        WB.W            1   FTX            47/28     49/23     49/48
        WC.BRADL       22   FTX            53/25
        WC.CLENL       22   FTX            49/49
        WC.CLENP       36   FTX            49/50
        WC.DVPL        22   FTX            42/53     42/56     45/17     51/31
        WC.DVPP        36   FTX            42/56     45/11     51/33     51/43
        WC.RBL         12   FTX            47/31
1       CONRED - FRONT END CONSTANT ARITHMETIC.                       COMPASS 3.7-871.     24/05/02. 13.17.10.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        WC.RBP         60   FTX            47/32
        WC.W            2   FTX            45/06     47/28     49/48     51/27     51/37     52/13     53/19
        Z=TURP          3   FTX             3/08
        ''N            24                  25/51 D   25/51 D   25/51 D   25/52 D   25/52 D   25/52 D   25/53 D   25/53 D
                                           25/51     25/51     25/51     25/52     25/52     25/52     25/53     25/53
                                           25/51 D   25/51 D   25/51 D   25/52 D   25/52 D   25/52 D   25/53 D   25/53 D
                                           25/51     25/51     25/51     25/52     25/52     25/52     25/53     25/53
                                           25/51 D   25/51 D   25/51 D   25/52 D   25/52 D   25/53 D   25/53 D   25/53 D
                                           25/51     25/51     25/51     25/52     25/52     25/53     25/53     25/53
                                           25/51 D   25/51 D   25/51 D   25/52 D   25/52 D   25/53 D   25/53 D   25/53 D
                                           25/51     25/51     25/51     25/52     25/52     25/53     25/53     25/53
                                           25/51 D   25/51 D   25/51 D   25/52 D   25/52 D   25/53 D   25/53 D   25/53 D
                                           25/51     25/51     25/51     25/52     25/52     25/53     25/53     25/53
                                           25/51 D   25/51 D   25/52 D   25/52 D   25/52 D   25/53 D   25/53 D   25/53 D
                                           25/51     25/51     25/52     25/52     25/52     25/53     25/53     25/53
                                           25/51 D   25/51 D   25/52 D   25/52 D   25/52 D   25/53 D   25/53 D   25/53 D
                                           25/51     25/51     25/52     25/52     25/52     25/53     25/53     25/53
                                           25/51 D   25/51 D   25/52 D   25/52 D   25/52 D   25/53 D   25/53 D
                                           25/51     25/51     25/52     25/52     25/52     25/53     25/53
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      207              IDENT  STMTF
                        207                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       204 
                                        LITERALS* LOCAL         204         3 
  
  
                                        ENTRY POINTS. 
  
                                        B=STMTF          0+           SFD              0+           SFDEX          177+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       REFVAR    STY       E.SF00    E.SF05    E.SF12    ANSI=     T=SCR 
                                        ALC       SCSA      TRV       E.SF01    E.SF06    E.SF14    PDM       T.STF 
                                        ERT       SCS       WANFP     E.SF02    E.SF07    FILL.     E=TOTAL   T.SCR 
                                        ESY       SCT       E.LP1     E.SF03    E.SF08    FILL.2    SCR       T.SYM 
                                        FEC.RTN   SSY       E.LP2     E.SF04    E.SF11    FILL.3    T=STF     MVE=
  
  
  
  
                                                  IDENT  STMTF                                                   STMTF       2
                                         STMTF    SECT   (STATEMENT FUNCTION PROCESSOR.)                         STMTF       3
  
  
  
  
  
                                        *         IN ALLOC                                                       STMTF       5
                                                  EXT    ADW,ALC                                                 STMTF       6
                                                                                                                 STMTF       7
                                        *         IN FEC                                                         STMTF       8
                                                  EXT    ERT,ESY,FEC.RTN,REFVAR,SCSA,SCS,SCT,SSY,STY,TRV,WANFP   FC5A192    67
                                                                                                                 STMTF      10
                                        *         IN FERRS                                                       STMTF      11
                                                  EXT    E.LP1,E.LP2,E.SF00,E.SF01,E.SF02,E.SF03,E.SF04,E.SF05   FC5A300    23
                                                  EXT    E.SF06,E.SF07,E.SF08,E.SF11,E.SF12,E.SF14,FILL.,FILL.2  FC5A300    24
                                                  EXT    FILL.3                                                  FC5A300    25
                                                                                                                 STMTF      14
                                        *         IN PEM                                                         STMTF      15
                                                  EXT    ANSI=,PDM                                               FC50106     9
                                                                                                                 STMTF      17
                                        *         IN PUC                                                         STMTF      18
                                                  EXT    E=TOTAL,SCR,T=STF,T=SCR,T.STF,T.SCR,T.SYM               STMTF      19
                                                                                                                 STMTF      20
                                        *         IN UTILITY                                                     STMTF      21
                                                  EXT    MVE=                                                    STMTF      22
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     2
                                                                      SCRATCH 
  
                                   3 X   STFERR   EQU    SCR+3       ERROR IN STATEMENT FUNCTION REFERENCE       STMTF      24
                                   4 X   FWASTF   EQU    SCR+4       FWA OF STATEMENT FUNCTION RELATIVE TO T.STF STMTF      25
                                   5 X   FWAREF   EQU    SCR+5       FWA OF REFERENCE                            STMTF      26
                                   6 X   SVB6     EQU    SCR+6                                                   STMTF      27
                                   7 X   SVB5     EQU    SCR+7                                                   STMTF      28
  
  
  
  
                                                  DESCRIBE ST.       SCRATCH TABLE HOLDS DUMMY ARGUMENTS         FC50104   230
      L     22  77777777777777000000     SYM      DEFINE 42          SYMBOLIC NAME                               STMTF      31
      L     17  00000000000000700000     MODE     DEFINE 3           ARG TYPE                                    STMTF      32
             0  00000000000000077777     CNT      DEFINE 15          ARG USE COUNT                               STMTF      33
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     3
        DEFINITION.                                                   SFD 
  
                                        **        SFD -  STATEMENT FUNCTION DEFINITION PROCESSOR.                STMTF      36
                                        *         ENTERED FROM FRONT END CONTROLLER.                             STMTF      37
                                        *         ENTRY  (B4) - START OF STATEMENT.                              STMTF      38
                                        *         EXIT   TO *FEC.RNX*.                                           STMTF      39
                                        *                                                                        STMTF      40
                                        *         T.STF ENTRY FORMAT.                                            STMTF      41
                                        *         1      = 24/0, 18/0, 18/LENGTH OF SKELETON + ARGUMENT WORDS    STMTF      42
                                        *         2 TO N = 6/0, 18/LEN OF REF, 18/FWA OF REF, 18/NO OF USES      STMTF      43
                                        *                                                                        STMTF      44
                                        *         N+1    = ACTUAL SKELETON, WITH DUMMY PARAMETERS ENTRIES IN THE STMTF      45
                                        *                  FOLLOWING FORMAT                                      STMTF      46
                                        *                  18/PARAMETER NUMBER, 24/0, 18/O.STFA                  STMTF      47
                                        *                                                                        STMTF      48
                                        *         USES T.SCR FOR PARAMETER CHECKING.                             STMTF      49
                                                                                                                 STMTF      50
                                                                                                                 STMTF      51
             0                           SFD      BSSENT 0           ENTRY...                                    STMTF      52
             0  76600                             SHRINK T=SCR,0                                                 STMTF      53
                               43052              MX0    WA.SYML                                                 STMTF      54
             1  56240                             =A2    B4                                                      STMTF      55
                     11602                        BX6    X0*X2                                                   STMTF      56
                          5160000000 X            SA6    FILL.3                                                  FC5A300    26
             2  0100000000 X                      CALL   SSY         SCAN SYMBOL TABLE                           STMTF      58
             3  0770000014 +                      MI     B7,SFD05    IF NOT ALREADY IN SYMBOL TABLE              STMTF      59
                          7120000010              CLAS=  X2,WB,(LAB)                                             STMTF      60
             4  11226                             BX2    X2*X6                                                   STMTF      61
                     0312000000 X                 NZ     X2,E.SF08   IF STATEMENT LABEL                          STMTF      62
                               43201              CLAS=  X2,WB,(NVAR)                                            STMTF      63
                     11226                        BX2    X2*X6                                                   STMTF      64
                          0312000010 +            NZ     X2,SFD03    IF ALREADY KNOWN AS *NVAR*                  STMTF      65
             6  7120200040                        CLAS=  X2,WB,(FP,VAR)                                          STMTF      66
                          11226                   BX2    X2*X6                                                   STMTF      67
             7  0302000014 +                      ZR     X2,SFD05    IF NOT NVAR, VAR, OR FP -- OKAY             STMTF      68
                          0400000000 X            EQ     E.SF08      CONFLICTING DEFINITION                      STMTF      69
                                                                                                                 STMTF      70
            10  20657                    SFD03    SBIT   X6,WB.FUNP                                              STMTF      71
                     0326000000 X                 PL     X6,E.SF08   IF PREVIOUSLY DEFINED .NOT. FUNCTION        STMTF      72
                               54221              =A2    A2-WB.W+WC.W                                            STMTF      73
            11  43171                             MX1    -WC.FUNTL                                               STMTF      74
                     20203                        LX2    -WC.FUNTP                                               STMTF      75
                          15221                   BX2    -X1*X2      ISOLATE (X2) = FUNCTION TYPE                STMTF      76
            12  7222777776                        =X2    X2-MF.STF                                               STMTF      77
                          0312000000 X            NZ     X2,E.SF08   IF PREVIOUSLY DEFINED .NOT. STMT FUNCTION   STMTF      78
            13  6170000000 X                      WARN   E.SF07      DUPLICATE STATEMENT FUNCTION - NEW OVERIDES STMTF      79
                                                                                                                 FC50326    21
            14  56241                    SFD05    =A2    B4+1                                                    STMTF      80
                     66441                        =B4    B4+1                                                    STMTF      81
                          6272777740              SB7    X2-O.(                                                  STMTF      82
            15  0570000014 +                      NZ     B7,SFD05    IF LEFT PAREN NOT FOUND                     STMTF      83
                          57241                   =A2    B4-1                                                    STMTF      84
                               43052              MX0    TB.TOCL                                                 STMTF      85
            16  11602                             BX6    X0*X2                                                   STMTF      86
                     5110000000 X                 ADDWD  T.SCR                                                   STMTF      87
            20  5160000000 X                      SA6    FILL.                                                   STMTF      88
                          43600                   MX6    0                                                       STMTF      89
            21  5110000000 X                      ADDWD  T.SCR                                                   STMTF      90
            22  5144000001                        SA4    B4+1                                                    STMTF      91
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     4
        DEFINITION.                                                   SFD 
  
                          6274777737              SB7    X4-O.RP                                                 STMTF      92
            23  0570000025 +                      NZ     B7,SFD7     IF NOT NULL PARAMETER LIST                  FC5A192    68
                          6144000001              SB4    B4+1                                                    STMTF      94
            24  0400000064 +                      EQ     SFD20                                                   STMTF      95
                                                                                                                 STMTF      96
                                        **        ADD DUMMY ARGS TO SCRATCH TABLE                                STMTF      97
                                                                                                                 STMTF      98
            25  43600                    SFD7     MX6    0                                                       FC5A192    69
                     5160000000 X                 SA6    WANFP       AVOID TURNING WA.NFP ON IN *SSY* OR *ESY*   FC5A192    70
                                                                                                                 FC5A192    71
            26  56441                    SFD10    =A4    B4+1                                                    STMTF      99
                     66441                        =B4    B4+1                                                    STMTF     100
                          6274777766              SB7    X4-O.VAR                                                STMTF     101
            27  0470000034 +                      ZR     B7,SFD11    IF A VARIABLE                               FC5A192    72
                          6170000000 X            FATAL  E.SF06      ** DUMMY ARG NOT SIMPLE VAR                 FC5A192    73
            31  43601                             MX6    1                                                       FC5A192    74
                     20622                        LX6    1+WA.NFPP                                               FC5A192    75
                          5160000000 X            SA6    WANFP       RESET WA.NFP CELL                           FC5A192    76
            32  76600                             SHRINK T=SCR,0     CLEAN UP SCRATCH TABLE                      FC50610     6
            33  0400000000 X                      EQ     FEC.RTN                                                 FC5A192    77
                                                                                                                 FC5A192    78
            34  66200                    SFD11    =B2    0                                                       FC5A192    79
                     0100000000 X                 CALL   TRV         ENTER ARGUMENT INTO SYMBOL TABLE            STMTF     104
            35  10600                             BX6    X0                                                      STMTF     105
                     5160000203 +                 SA6    SFDA        SAVE SYMTAB ORD                             STMTF     106
                               55421              =A4    A2+WA.W-WB.W                                            STMTF     107
            36  43052                             MX0    WA.SYML                                                 STMTF     108
                     11604                        BX6    X0*X4                                                   STMTF     109
                          5160000000 X            SA6    FILL.2                                                  STMTF     110
            37  43071                             MX0    -WB.MODEL                                               FC5A300    27
                                                  LX2    -WB.MODEP                                               FC5A300    28
                     15020                        BX0    -X0*X2      EXTRACT MODE                                FC5A300    29
                                                  LX2    WB.MODEP                                                FC5A300    30
                          20261                   SBIT   X2,WB.ARYP                                              FC5A300    31
            40  0322000042 +                      PL     X2,SFD12    IF DUMMY ARGUMENT NOT AN ARRAY              FC50326    22
                          6170000000 X            ANSI   E.SF11      DUMMY ARG CANNOT BE AN ARRAY                STMTF     112
                                                                                                                 STMTF     113
            42  20213                    SFD12    LX2    WB.ARYL+WB.ARYP                                         FC50326    23
                     5110000204 +                 CLAS=  X1,WB,(SAVE,LEV,VDS,LCM,FP,COM,ARY,EQV,DEF)             FC50326    24
                               11112              BX1    X1*X2                                                   FC50326    25
            43  0311000045 +                      NZ     X1,SFD13    IF DUMMY ARGUMENT IS FIXED AS TRUE VARIABLE FC50326    26
                          43701                   CLAS=  X7,WB,(SFA)                                             FC50326    27
            44  12772                             BX7    X7+X2       MERGE IN DUMMY ARGUMENT PROPERTY            FC50326    28
                     54720                        SA7    A2                                                      FC50326    29
                                                                                                                 FC50326    30
            45  7200777771               SFD13    SX0    X0-M.CHAR                                               FC5A300    33
                          0310000050 +            NZ     X0,SFD15    IF NOT TYPE CHARACTER                       FC5A300    34
            46  54421                             =A4    A2+WC.W-WB.W                                            FC5A300    35
                     20436                        SBIT   X4,WC.CTYPP                                             FC5A300    36
                          0324000050 +            PL     X4,SFD15    IF NOT PASSED LENGTH                        FC5A300    37
            47  6170000000 X                      FATAL  E.SF14                                                  FC5A300    38
                                                                                                                 FC5A300    39
                                         SFD15    LX6    ST.SYMP-WA.SYMP                                         FC5A300    40
            50  5110000000 X                      SCAN   T.SCR,SCT   LOOK FOR DUMMY ARG                          STMTF     115
            51  0770000054 +                      MI     B7,SFD17    IF NOT ALREADY REFERENCED                   FC5A300    41
                          6170000000 X            FATAL  E.SF05      DUPLICATE DUMMY ARGUMENT                    STMTF     117
            53  0400000057 +                      EQ     SFD19                                                   FC5A300    42
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     5
        DEFINITION.                                                   SFD 
  
                                                                                                                 FC5A300    43
            54  5110000000 X             SFD17    ADDWD  T.SCR                                                   FC5A300    44
            55  5140000203 +                      SA4    SFDA                                                    STMTF     119
                          10644                   BX6    X4                                                      STMTF     120
            56  5110000000 X                      ADDWD  T.SCR       WORD 2 OF SCR ENTRY = SYMORD                STMTF     121
                                                                                                                 FC5A213     6
            57  56441                    SFD19    =A4    B4+1                                                    FC5A300    45
                     66441                        =B4    B4+1                                                    STMTF     123
                          6274777735              SB7    X4-O.COMMA                                              STMTF     124
            60  0470000026 +                      ZR     B7,SFD10    IF MORE ARGUMENTS                           STMTF     125
                          43601                   MX6    1                                                       FC5A192    82
                               20622              LX6    1+WA.NFPP                                               FC5A192    83
            61  5160000000 X                      SA6    WANFP       RESET WA.NFP CELL                           FC5A192    84
                          6274777737              SB7    X4-O.)                                                  STMTF     126
            62  0470000064 +                      ZR     B7,SFD20    IF CLOSING *)*                              FC50883     6
                          76600                   SHRINK T=SCR,0     CLEAN UP SCRATCH FILE                       FC50883     7
                          0400000000 X            EQ     E.SF00      ERROR MSG - EXPECTED RIGHT PAREN ...        FC50883     8
                                                                                                                 STMTF     128
                                        **        HERE IF END OF ARGUMENT STRING FOUND                           STMTF     129
                                        *         (B4) _ CLOSING *)*                                             STMTF     130
                                                                                                                 STMTF     131
            64  56241                    SFD20    SA2    B4+B1                                                   STMTF     132
                     66441                        SB4    B4+B1                                                   STMTF     133
                          6272777736              SB7    X2-O.=                                                  STMTF     134
            65  0570000000 X                      NZ     B7,E.SF01   IF NO *=* FOLLOWING END OF ARGUMENTS        STMTF     135
                          76640                   SX6    B4                                                      STMTF     136
                               66540              SB5    B4          LENGTH OF STATEMENT FUNCTION SKELETON       STMTF     137
            66  5120000206 +                      SA2    STFMASK                                                 STMTF     138
                          5160000001 X            SA6    SCR+1       SAVE START OF STATEMENT FUNCTION            STMTF     139
            67  10622                             BX6    X2                                                      STMTF     140
                     5160000000 X                 SA6    SCSA        SET MASK FOR *SCS*                          STMTF     141
                               66300              =B3    0           ARG CHAIN                                   STMTF     142
                                                                                                                 STMTF     143
                                        **        HERE IF *=* FOUND AFTER END OF ARGUMENTS. SCAN THROUGH THE     STMTF     144
                                        *         STATEMENT FUNCTION REPLACING ALL REFERENCES TO DUMMY ARGUMENTS STMTF     145
                                        *         WITH:  18/ ARGUMENT NUM,  24/0,  18/ O.AFSA                    STMTF     146
                                        *         CHECK IF STATEMENT FUNCTION IS RECURSIVE, AND OUTPUT ERROR IF  STMTF     147
                                        *         SO.                                                            STMTF     148
                                                                                                                 STMTF     149
            70  6160000000                        SB6    0           BALANCED PARENTHESES INDICATOR              FC5A300    46
                                                                                                                 FC5A300    47
            71  56141                    SFD30    SA1    B4+B1                                                   STMTF     150
                     66441                        SB4    B4+B1                                                   STMTF     151
                          10611                   BX6    X1                                                      STMTF     152
                               57241              =A2    B4-1                                                    FC50106    11
            72  0301000123 +                      ZR     X1,SFD50    IF *EOS*                                    STMTF     153
                          6271777740              SB7    X1-O.LP                                                 FC50106    12
            73  0570000077 +                      NZ     B7,SFD31    IF NOT *(*                                  FC50106    13
                          6166000001              SB6    B6+1        INCREMENT PARENTHESIS COUNT                 FC5A300    48
            74  6272777732                        SB7    X2-O.STFA                                               FC50106    14
                          0570000071 +            NZ     B7,SFD30    IF *(* DOES NOT FOLLOW DUMMY ARGUMENT       FC5A300    49
            75  6170000000 X                      FATAL  E.SF12      ** DUMMY ARGUMENT MUST BE USED AS VARIABLE  FC50106    16
            76  0400000071 +                      EQ     SFD30                                                   FC5A300    50
                                                                                                                 FC50106    17
            77  6271777737               SFD31    SB7    X1-O.RP                                                 FC5A300    51
                          0570000101 +            NZ     B7,SFD32    IF NOT *)*                                  FC5A300    52
           100  6166777776                        SB6    B6-1        DECREMENT PARENTHESIS COUNT                 FC5A300    53
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     6
        DEFINITION.                                                   SFD 
  
                          0400000071 +            EQ     SFD30                                                   FC5A300    54
                                                                                                                 FC5A300    55
           101  6271777766               SFD32    SB7    X1-O.VAR                                                FC5A300    56
                          0570000071 +            NZ     B7,SFD30    IF NOT VARIABLE                             STMTF     155
           102  5110000000 X                      SCAN   T.SCR,SCS   SCAN TO SEE IF ARGUMENT                     STMTF     156
           103  0770000071 +                      MI     B7,SFD30    IF NOT IN TABLE (NOT ARGUMENT)              STMTF     157
                          0470000000 X            ZR     B7,E.SF03   IF RECURSIVE DEFINITION                     STMTF     158
           104  5160000000 X                      SA6    FILL.2                                                  FC50106    19
                          5144777776              SA4    B4-1                                                    FC50106    20
           105  7204777772                        SX0    X4-O.CONS                                               FC5A118     6
                          0300000071 +            ZR     X0,SFD30    IF NOT ARGUMENT (E,D TYPE CONSTANT)         FC5A118     7
           106  7204777767                        SX0    X4-O.PERIOD                                             FC5A118     8
                          0300000071 +            ZR     X0,SFD30    IF NOT ARGUMENT (E, D, TYPE CONSTANT)       FC5A118     9
           107  76010                             =X0    1                                                       STMTF     159
                     36702                        IX7    X0+X2       UPDATE USE COUNT                            STMTF     160
                          77671                   =X6    B7-1                                                    STMTF     161
                               23616              AX6    B1,X6                                                   STMTF     162
                                                  LX0    ST.CNTP                                                 FC50104   232
           110  54720                             SA7    A2          RESET WITH USE COUNT UPDATED                STMTF     164
                                                                                                                 STMTF     165
                                        **        HERE IF ARGUMENT REFERENCE FOUND.                              STMTF     166
                                                                                                                 STMTF     167
                     54421                        =A4    A2+1                                                    STMTF     168
                          20460                   LX4    TB.ORDP                                                 STMTF     169
                               76330              SX3    B3                                                      STMTF     170
           111  20622                             LX6    TB.ACTEP                                                STMTF     171
                     20344                        LX3    TB.DACP                                                 STMTF     172
                          12663                   BX6    X6+X3                                                   STMTF     173
                               67345              SB3    B4-B5       NEW CHAIN POINTER                           STMTF     174
           112  12664                             BX6    X6+X4       INSTALL MODE IN TOKEN                       STMTF     175
                     7100000045                   SX0    O.STFA                                                  STMTF     176
                               36606              IX6    X0+X6                                                   STMTF     177
           113  56640                             SA6    B4          RESET TO INDICATE ARGUMENT.                 STMTF     178
                     56341                        =A3    B4+1                                                    STMTF     179
                          6273777766              SB7    X3-O.VAR                                                STMTF     180
           114  0570000071 +                      NZ     B7,SFD30    IF NOT LONG NAME                            STMTF     181
                                                                                                                 STMTF     182
                                        **        THROW AWAY EXCESS TOKENS IN NAME (OVERWRITE STRING BUFFER)     STMTF     183
                                                                                                                 STMTF     184
           115  5033000001               SFD35    SA3    A3+1                                                    FC5A300    57
                          6273777766              SB7    X3-O.VAR                                                STMTF     186
           116  0470000115 +                      ZR     B7,SFD35    IF MORE TOKENS IN NAME                      FC5A300    58
                          5013777776              SA1    A3-1                                                    FC5A300    59
                                                                                                                 FC5A300    60
           117  54111                    SFD37    =A1    A1+1                                                    FC5A300    61
                     0311000117 +                 NZ     X1,SFD37    IF NOT *EOS*                                FC5A300    62
                               65731              =B7    A3-1                                                    STMTF     191
           120  75117                             MOVE   A1-B7,A3,B4+1     THROW AWAY THE WHOLE MESS             STMTF     192
           122  0400000071 +                      EQ     SFD30       CONTINUE                                    STMTF     193
                                                                                                                 STMTF     194
                                        **        VALIDATE THAT ALL DUMMY PARAMETERS ARE USED.                   STMTF     195
                                        *         (IF ONE IS NOT USED OUTPUT WARNING MESSAGE.)                   STMTF     196
                                                                                                                 STMTF     197
           123  0460000126 +             SFD50    ZR     B6,SFD52    IF PARENTHESES BALANCED                     FC5A300    63
                          6170000000 X            SB7    E.LP2                                                   FC5A300    64
           124  0760000125 +                      MI     B6,SFD51    IF TOO FEW LEFT PARENS                      FC5A300    65
                          6170000000 X            SB7    E.LP1                                                   FC5A300    66
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     7
        DEFINITION.                                                   SFD 
  
                                                                                                                 FC5A300    67
           125  0100000000 X             SFD51    FATAL  B7                                                      FC5A300    68
                                                                                                                 FC5A300    69
           126  5120000000 X             SFD52    SA2    T=SCR                                                   FC5A300    70
                          5140000000 X            SA4    T.SCR                                                   STMTF     199
           127  76630                             SX6    B3                                                      STMTF     203
                     5160000002 X                 SA6    SCR+2       SAVE CHAIN POINTER                          STMTF     204
                               43055              MX0    -ST.CNTL                                                FC50104   233
           130  6232777775                        SB3    X2-2        DO NOT CHECK STMT FUNCTION                  STMTF     206
                          43552                   MX5    TB.TOCL                                                 STMTF     207
                               67545              SB5    B4-B5       LENGTH OF STATEMENT FUNCTION SKELETON       STMTF     208
           131  23212                             AX2    B1,X2                                                   STMTF     209
                     6262777776                   SB6    X2-1                                                    STMTF     210
                                                                                                                 STMTF     211
           132  53243                    SFD55    SA2    X4+B3                                                   FC5A300    71
                     6133777775                   SB3    B3-2                                                    STMTF     213
                                                  LX2    -ST.CNTP                                                FC50104   234
                               15120              BX1    -X0*X2                                                  STMTF     215
           133  0730000137 +                      MI     B3,SFD60    IF END OF ARGUMENT LIST                     STMTF     216
                          0311000132 +            NZ     X1,SFD55    IF ARGUMENT USED                            FC5A300    72
           134  11652                             BX6    X5*X2                                                   STMTF     218
                     5160000000 X                 SA6    FILL.2      ARGUMENT NOT USED.                          STMTF     219
           135  6170000000 X                      WARN   E.SF04      ARGUMENT NEVER USED                         STMTF     220
           136  0400000132 +                      EQ     SFD55       LOOP THROUGH TABLE                          FC5A300    73
                                                                                                                 STMTF     222
                                        **        HERE WHEN ALL ARGUMENT REFERENCES IN STATEMENT FUNCTION HAVE   STMTF     223
                                        *         BEEN TRANSLATED AND VALIDATED.                                 STMTF     224
                                        *         NOW ADD SKELETON FOR STATEMENT FUNCTION TO T.STF.              STMTF     225
                                        *         (B5) = LENGTH OF SKELETON FOR THIS STATEMENT FUNCTION          STMTF     226
                                        *         (B6) = NUMBER OF PARAMETERS.                                   STMTF     227
                                                                                                                 STMTF     228
           137  0615000000 X             SFD60    LE     B5,B1,E.SF02      IF NULL PARAMETER LIST                STMTF     229
                          5120000000 X            SA2    E=TOTAL                                                 STMTF     230
           140  0312000177 +                      NZ     X2,SFDEX    IF ERRORS, SUPPRESS DEFINITION              STMTF     231
                          76661                   =X6    B6+1                                                    STMTF     232
                               76750              SX7    B5                                                      STMTF     233
           141  5160000202 +                      SA6    ARGNUM      SAVE B6 CELL                                STMTF     234
                          5170000201 +            SA7    STFLEN      SAVE B5 CELL                                STMTF     235
                                                                                                                 STMTF     236
                                        **        MAKE SYMBOL TABLE ENTRY                                        STMTF     237
                                                                                                                 STMTF     238
           142  5110000000 X                      SA1    T.SCR                                                   STMTF     239
                          7160000055              =X6    CR.DEC                                                  STMTF     240
           143  53210                             SA2    X1                                                      STMTF     241
                     5160000000 X                 SA6    REFVAR      SET REF MAP VALUE                           STMTF     242
                               10622              BX6    X2                                                      STMTF     243
           144  0100000000 X                      CALL   SSY         SCAN SYMBOL TABLE                           STMTF     244
           145  0670000150 +                      PL     B7,SFD64    IF ALREADY IN SYMTAB                        STMTF     245
                          0100000000 X            CALL   STY         SET IMPLICIT TYPE                           STMTF     246
           146  10711                             BX7    X1                                                      STMTF     247
                     5110000000 X                 ADSYM  T.SYM       ADD STATEMENT FUNCTION NAME TO SYMTAB       STMTF     248
                                                                                                                 STMTF     249
           150  10422                    SFD64    BX4    X2          PRESERVE *WB*                               STMTF     250
                     66570                        SB5    B7          PRESERVE SYMTAB ORDINAL                     STMTF     251
                          20052                   LX0    XR.TAGP                                                 STMTF     252
                               10600              ADDREF X0,CR.DEF                                               STMTF     253
           153  7130010300                        CLAS=  X3,WB,(NVAR,FUN,DEF)                                    STMTF     254
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     8
        DEFINITION.                                                   SFD 
  
                          12634                   BX6    X3+X4                                                   STMTF     255
           154  5120000000 X                      SA2    T.SYM                                                   STMTF     256
                          66451                   =B4    B5+WC.W-WB.W                                            STMTF     257
                               53324              SA3    X2+B4                                                   STMTF     258
           155  5110000205 +                      CLAS=  X1,WC,(FUNT,ARGC)                                       STMTF     259
                          53625                   =A6    X2+B5                                                   STMTF     260
                               66750              SB7    B5          RESTORE B7                                  STMTF     261
           156  76760                             SX7    B6          SET (WC.ARGC) = NUMBER OF ARGUMENTS         STMTF     262
                     15331                        BX3    -X1*X3      CLEAR POSSIBLE PREVIOUS FIELDS              STMTF     263
                          20760                   LX7    WC.ARGCP                                                STMTF     264
                               76110              =X1    MF.STF                                                  STMTF     265
           157  12373                             BX3    X7+X3                                                   STMTF     266
                     20171                        LX1    WC.FUNTP                                                STMTF     267
                          12731                   BX7    X3+X1       UPDATE (WC)                                 STMTF     268
                               54730              SA7    A3                                                      STMTF     269
           160  76670                             SX6    B7                                                      STMTF     270
                     5160000000 X                 SA6    SCR         REMEMBER (SCR) = SYMTAB INDEX OF NAME       STMTF     271
                                                                                                                 STMTF     272
                                        **        ADD SKELETON TO TABLE                                          STMTF     273
                                                                                                                 STMTF     274
           161  5110000202 +                      SA1    ARGNUM                                                  STMTF     275
                          5120000201 +            SA2    STFLEN                                                  STMTF     276
           162  63610                             SB6    X1                                                      STMTF     277
                     63520                        SB5    X2                                                      STMTF     278
                          5110000001 X            SA1    SCR+1                                                   STMTF     279
           163  63410                             SB4    X1                                                      STMTF     280
                     7145000002                   SX4    B5+2        ROOM FOR HEADER AND EOS                     STMTF     281
           164  5150000000 X                      SA5    T=STF                                                   STMTF     282
                          5110000000 X            ALLOC  T.STF,X4    RESERVE SPACE FOR THIS STATEMENT FUNCTION   STMTF     283
                                                                                                                 STMTF     284
                                        **        (X1) = NEW ORGIN OF TS.ARG.                                    STMTF     285
                                        *         (X2) = LENGTH.                                                 STMTF     286
                                        *         (X5) = FWA FOR CURRENT SKELETON RELATIVE TO T.STF              STMTF     287
                                        *         (B6) = NUMBER OF PARAMETERS +1.                                STMTF     288
                                                                                                                 STMTF     289
           166  5140000000 X                      SA4    T.SYM                                                   STMTF     290
                          36115                   IX1    X1+X5                                                   STMTF     291
           167  5130000000 X                      SA3    SCR         STATEMENT FUNCTION *WB* INDEX               STMTF     292
                          77061                   =X0    B6-1        NUMBER OF ARGUMENTS                         STMTF     293
                               63740              SB7    X4                                                      STMTF     294
           170  53237                             SA2    X3+B7       TAG FOR CURRENT STATEMENT FUNCTION          STMTF     295
                     43655                        MX6    -WB.STFPL                                               STMTF     296
                          20655                   LX6    WB.STFPP                                                STMTF     297
                               11262              BX2    X6*X2                                                   STMTF     298
           171  63310                             SB3    X1          FWA FOR HEADER                              STMTF     299
                     56441                        =A4    B4+1        FWA OF SKELETON                             STMTF     300
                          20555                   LX5    WB.STFPP                                                STMTF     301
                               12625              BX6    X2+X5       SET (WB.STFP) = INDEX OF MACRO IN T.STF     STMTF     302
           172  54620                             SA6    A2          STATEMENT FUNCTION *WB*                     STMTF     303
                     5130000002 X                 SA3    SCR+2                                                   STMTF     304
                               10633              BX6    X3                                                      STMTF     305
           173  20622                             LX6    SF.DACPP                                                STMTF     306
                     56630                        SA6    B3          HEADER GETS CHAIN POINTER                   STMTF     307
                          66331                   =B3    B3+1                                                    STMTF     308
                                                                                                                 STMTF     309
                                        **        ADD SKELETON TO T.STF FOR LATER PROCESSING WHEN STATEMENT      STMTF     310
                                        *         FUNCTION IS REFERENCED.                                        STMTF     311
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE     9
        DEFINITION.                                                   SFD 
  
                                        *         (B5) = LENGTH OF SKELETON.                                     STMTF     312
                                        *         (A4) _ SKELETON                                                STMTF     313
                                        *         (B3) _ FWA FOR SKELETON                                        STMTF     314
                                                                                                                 STMTF     315
           174  10644                    SFD70    BX6    X4                                                      STMTF     316
                     67551                        =B5    B5-1                                                    STMTF     317
                          56630                   SA6    B3          ADD SKELETON WORD TO T.STF                  STMTF     318
                               54441              =A4    A4+1        NEXT WORD                                   STMTF     319
           175  66331                             =B3    B3+1                                                    STMTF     320
                     0550000174 +                 NZ     B5,SFD70    IF NOT END                                  STMTF     321
                               76600              =X6    O.EOS       INDICATE END OF STATEMENT FUNCTION          STMTF     322
           176  7170000040                        =X7    O.RP                                                    STMTF     323
                          54760                   SA7    A6                                                      STMTF     324
                               54671              =A6    A7+1                                                    STMTF     325
           177                           SFDEX    BSSENT 0           ...RETURN FROM ERROR PROCESSOR              STMTF     326
           177  76600                             SHRINK T=SCR,0     CLEAR TABLE                                 STMTF     327
           200  0400000000 X                      EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...             STMTF     328
                                                                                                                 STMTF     329
                                         STFMASK  SYMASK (TB.TOC)                                                STMTF     330
           201  00000000000000000000     STFLEN   DATA   0           TEMP SAVE CELL                              STMTF     331
           202  00000000000000000000     ARGNUM   DATA   0           TEMP SAVE CELL                              STMTF     332
           203                     1     SFDA     BSS    1                                                       STMTF     333
  
  
  
  
                                                                                                                 STMTF     335
                                                  LIST   D                                                       STMTF     336
  
                                        CONTENT OF LITERALS BLOCK.
  
           204  00000000005400703200         = 'Z 
           205  77770000000000000000    ;;
           206  77777777777777000000    ;;;;;;; 
  
           207                                    END                                                            STMTF     337
  
                             73600B CM  STORAGE USED             2073 STATEMENTS     1425 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.918 SECONDS         335 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       1/37 X    3/53      3/56      5/02      5/05
        ALC             0   EXTERNAL*       1/37 X    8/29
        ANSI=           0   EXTERNAL*       1/48 X    4/36
        ARGNUM        202   PROGRAM*        7/37 S    8/21      9/21 L
        B1=1            0 
        CR.DEC         55   FTX             7/43
        CR.DEF          4   FTX             7/56
        ERT             0   EXTERNAL*       1/40 X    7/56
        ESY             0   EXTERNAL*       1/40 X    7/51
        E=TOTAL         0   EXTERNAL*       1/51 X    7/33
        E.LP1           0   EXTERNAL*       1/43 X    6/57
        E.LP2           0   EXTERNAL*       1/43 X    6/55
        E.SF00          0   EXTERNAL*       1/43 X    5/17
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE    10
        SYMBOLIC REFERENCE TABLE. 
  
        E.SF01          0   EXTERNAL*       1/43 X    5/25
        E.SF02          0   EXTERNAL*       1/43 X    7/32
        E.SF03          0   EXTERNAL*       1/43 X    6/07
        E.SF04          0   EXTERNAL*       1/43 X    7/23      7/23
        E.SF05          0   EXTERNAL*       1/43 X    4/56
        E.SF06          0   EXTERNAL*       1/44 X    4/15
        E.SF07          0   EXTERNAL*       1/44 X    3/44
        E.SF08          0   EXTERNAL*       1/44 X    3/27      3/34      3/37      3/43
        E.SF11          0   EXTERNAL*       1/44 X    4/36
        E.SF12          0   EXTERNAL*       1/44 X    5/52
        E.SF14          0   EXTERNAL*       1/44 X    4/51
        FEC.RTN         0   EXTERNAL*       1/40 X    4/20      9/17
        FILL.           0   EXTERNAL*       1/44 X    3/54 S
        FILL.2          0   EXTERNAL*       1/44 X    4/29 S    6/08 S    7/22 S
        FILL.3          0   EXTERNAL*       1/45 X    3/22 S
        FWAREF          5   EXTERNAL*       2/03 D
        FWASTF          4   EXTERNAL*       2/02 D
        MF.STF          1   FTX             3/42      3/42      8/11
        MVE=            0   EXTERNAL*       1/54 X    6/48
        M.CHAR          6   FTX             4/46
        O.COMMA        42   FTX             5/09
        O.CONS          5   FTX             6/10
        O.EOS           0   FTX             9/11
        O.LP           37   FTX             5/47
        O.PERIOD       10   FTX             6/12
        O.RP           40   FTX             4/01      5/55      9/12
        O.STFA         45   FTX             5/50      6/31
        O.VAR          11   FTX             4/13      6/03      6/35      6/41
        O.(            37   FTX             3/48
        O.)            40   FTX             5/14
        O.=            41   FTX             5/24
        PDM             0   EXTERNAL*       1/48 X    3/44      4/15      4/51      4/56      5/52      7/02      7/23
        REFVAR          0   EXTERNAL*       1/40 X    7/45 S
        SCR             0   EXTERNAL*       1/51 X    2/02      2/04      5/29 S    8/17 S    8/38
                                            2/01      2/03      2/05      7/07 S    8/25      8/50
        SCS             0   EXTERNAL*       1/40 X    6/05
        SCSA            0   EXTERNAL*       1/40 X    5/31 S
        SCT             0   EXTERNAL*       1/40 X    4/54
        SFD             0   PROGRAM*        3/17 L    3/17 E
        SFDA          203   PROGRAM*        4/25 S    5/03      9/22 L
        SFDEX         177   PROGRAM*        7/34      9/15 L    9/15 E
        SFD03          10   PROGRAM*        3/30      3/36 L
        SFD05          14   PROGRAM*        3/24      3/33      3/46 L    3/49
        SFD10          26   PROGRAM*        4/11 L    5/10
        SFD11          34   PROGRAM*        4/14      4/22 L
        SFD12          42   PROGRAM*        4/35      4/38 L
        SFD13          45   PROGRAM*        4/41      4/46 L
        SFD15          50   PROGRAM*        4/47      4/50      4/53 L
        SFD17          54   PROGRAM*        4/55      5/02 L
        SFD19          57   PROGRAM*        4/57      5/07 L
        SFD20          64   PROGRAM*        4/04      5/15      5/22 L
        SFD30          71   PROGRAM*        5/42 L    5/53      6/04      6/11      6/36
                                            5/51      6/01      6/06      6/13      6/49
        SFD31          77   PROGRAM*        5/48      5/55 L
        SFD32         101   PROGRAM*        5/56      6/03 L
        SFD35         115   PROGRAM*        6/40 L    6/42
        SFD37         117   PROGRAM*        6/45 L    6/46
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE    11
        SYMBOLIC REFERENCE TABLE. 
  
        SFD50         123   PROGRAM*        5/46      6/54 L
        SFD51         125   PROGRAM*        6/56      7/02 L
        SFD52         126   PROGRAM*        6/54      7/04 L
        SFD55         132   PROGRAM*        7/15 L    7/20      7/24
        SFD60         137   PROGRAM*        7/19      7/32 L
        SFD64         150   PROGRAM*        7/48      7/53 L
        SFD7           25   PROGRAM*        4/02      4/08 L
        SFD70         174   PROGRAM*        9/05 L    9/10
        SF.DACPP       22   FTX             8/52
        SSY             0   EXTERNAL*       1/40 X    3/23      7/47
        STFERR          3   EXTERNAL*       2/01 D
        STFLEN        201   PROGRAM*        7/38 S    8/22      9/20 L
        STFMASK       206   PROGRAM*        5/28
        STY             0   EXTERNAL*       1/40 X    7/49
        ST.CNTL        17                   2/13 D    7/08
        ST.CNTP         0                   2/13 D
        ST.MODEL        3                   2/12 D
        ST.MODEP       17                   2/12 D
        ST.SYML        52                   2/11 D
        ST.SYMP        22                   2/11 D
        SVB5            7   EXTERNAL*       2/05 D
        SVB6            6   EXTERNAL*       2/04 D
        TB.ACTEP       22   FTX             6/26
        TB.DACP        44   FTX             6/27
        TB.ORDP        60   FTX             6/24
        TB.TOCL        52   FTX             3/51      7/10      9/19
        TB.TOCP        22   FTX             9/19
        TRV             0   EXTERNAL*       1/40 X    4/23
        T=SCR           0   EXTERNAL*       1/51 X    3/18 S    4/19 S    5/16 S    9/16
                                            3/18      4/19      5/16      7/04      9/16 S
        T=STF           0   EXTERNAL*       1/51 X    8/28
        T.SCR           0   EXTERNAL*       1/51 X    3/56      4/54      5/05      6/05      7/42
                                            3/53      3/56      5/02      5/05      7/05
        T.STF           0   EXTERNAL*       1/51 X    8/29
        T.SYM           0   EXTERNAL*       1/51 X    7/51      8/02      8/36
        WANFP           0   EXTERNAL*       1/40 X    4/09 S    4/18 S    5/13 S
        WA.NFPP        21   FTX             4/17      5/12
        WA.SYML        52   FTX             3/19      4/27
        WA.W            0   FTX             4/26
        WB.ARYL         1   FTX             4/38      4/39
        WB.ARYP        12   FTX             4/34      4/38      4/39
        WB.COML         1   FTX             4/39
        WB.COMP        17   FTX             4/39
        WB.DEFL         1   FTX             4/39      7/57
        WB.DEFP         7   FTX             4/39      7/57
        WB.EQVL         1   FTX             4/39
        WB.EQVP        11   FTX             4/39
        WB.FPL          1   FTX             3/31      4/39
        WB.FPP         20   FTX             3/31      4/39
        WB.FUNL         1   FTX             7/57
        WB.FUNP        14   FTX             3/36      7/57
        WB.LCML         1   FTX             4/39
        WB.LCMP        21   FTX             4/39
        WB.LEVL         1   FTX             4/39
        WB.LEVP        33   FTX             4/39
        WB.MODEL        3   FTX             4/30
        WB.NVARL        1   FTX             7/57
1       STMTF - STATEMENT FUNCTION PROCESSOR.                         COMPASS 3.7-871.     24/05/02. 13.17.15.      PAGE    12
        SYMBOLIC REFERENCE TABLE. 
  
        WB.NVARP        6   FTX             3/28      7/57
        WB.SAVEL        1   FTX             4/39
        WB.SAVEP       35   FTX             4/39
        WB.SFAP        40   FTX             4/42
        WB.STFPL       17   FTX             8/42
        WB.STFPP       55   FTX             8/43      8/47
        WB.VARL         1   FTX             3/31
        WB.VARP         5   FTX             3/31
        WB.VDSL         1   FTX             4/39
        WB.VDSP        32   FTX             4/39
        WB.W            1   FTX             3/38      4/26      4/48      8/03
        WC.ARGCL       11   FTX             8/05
        WC.ARGCP       60   FTX             8/05      8/10
        WC.CTYPP       35   FTX             4/49
        WC.FUNTL        3   FTX             3/39      8/05
        WC.FUNTP       71   FTX             3/40      8/05      8/13
        WC.W            2   FTX             3/38      4/48      8/03
        XR.TAGP        52   FTX             7/55
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1221              IDENT  LABEL
                       1221                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1204 
                                        LITERALS* LOCAL        1204        15 
  
  
                                        ENTRY POINTS. 
  
                                        B=LABEL          0+           PSL            272+           DDR            742+ 
                                        DOMODE           0+           KW=DO          313+           FBS            771+ 
                                        CUL              1+           CDI            334+           PDA           1127+ 
                                        GSL             21+           CDIFLG         563+           RBE           1136+ 
                                        ISL            103+           PDT            571+ 
                                        STL0R          270+           ALU            672+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       ESY       E.DO05    E.SL03    E.SL17    IFFLAG    ANSI=     WO.DOLG 
                                        ALC       FEC.RTN   E.DO06    E.SL04    E.SL18    INIF      PDM       WO.DOOT 
                                        LCT       FLOW      E.DO07    E.SL05    E.SL19    KW=ENDI   CONONE    WO.LOR
                                        ARGCOMA   HANGER    E.DO08    E.SL06    FILL.     TB=TYPE   E=TOTAL   T=DATL
                                        ARGMODE   INN       E.DO12    E.SL07    FILL.2    KW=FORM   N.DOB     V=GOTO
                                        ASK       IFLEVEL   E.DO13    E.SL08    FILL.3    ACT       N.GL      V=NOOP
                                        ASL       LDEAD     E.DO14    E.SL09    E.DO20    CURST     T=ARG     V=DOC.S 
                                        BBC       NOPATH    E.DO18    E.SL10    E.SL20    DOARM     T=BLST    V=DOC.O 
                                        CSB       OIL       E.DO19    E.SL11    MDD       DO.BEG    T=PAR     MVE=
                                        CSLTAG    REFLIN    E.IF16    E.SL12    DER       DTC       T=SCR     V=DOC.1 * 
                                        CT1       REFNUM    E.NP1     E.SL13    LPE       EMT       T.BLST    CO.OPT
                                        DTI       SSY       E.SL00    E.SL14    DMT=      OPBSS     T.PAR     E.DO10
                                        ERT       E.DO01    E.SL01    E.SL15    CO.SNAP   OPDUM     T.SCR 
                                        ESTACK    E.DO03    E.SL02    E.SL16    IODOLEN   PAR       T.SYM 
  
  
  
  
                                                  IDENT  LABEL                                                   LABEL       2
                                         LABEL    SECT   (LABELS AND *DO* STATEMENT.)                            LABEL       3
  
  
  
  
  
                                        *         IN ALLOC                                                       LABEL       5
                                                  EXT    ADW,ALC                                                 LABEL       6
                                                                                                                 LABEL       7
                                        *         IN CONRED                                                      LABEL       8
                                                  EXT    LCT                                                     LABEL       9
                                                                                                                 LABEL      10
                                        *         IN FEC                                                         LABEL      11
                                                  EXT    ARGCOMA,ARGMODE,ASK,ASL,BBC,CSB,CSLTAG,CT1,DTI,ERT      FC5A231   132
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     2
                                                                      LABEL 
  
                                                  EXT    ESTACK,ESY,FEC.RTN,FLOW,HANGER,INN,IFLEVEL,LDEAD        LABEL      13
                                                  EXT    NOPATH,OIL,REFLIN,REFNUM,SSY                            FC50632     6
                                                                                                                 LABEL      15
                                        *         IN FERRS                                                       LABEL      16
                                                  EXT    E.DO01,E.DO03,E.DO05,E.DO06,E.DO07,E.DO08,E.DO12,E.DO13 FC5A211    82
                                                  EXT    E.DO14,E.DO18,E.DO19,E.IF16,E.NP1,E.SL00,E.SL01,E.SL02  FC5A211    83
                                                  EXT    E.SL03,E.SL04,E.SL05,E.SL06,E.SL07,E.SL08,E.SL09,E.SL10 FC5A211    84
                                                  EXT    E.SL11,E.SL12,E.SL13,E.SL14,E.SL15,E.SL16,E.SL17,E.SL18 FC5A211    85
                                                  EXT    E.SL19,FILL.,FILL.2,FILL.3,E.DO20,E.SL20                FC51356    21
                                                                                                                 LABEL      22
                                        *         IN FLINK                                                       LABEL      23
                                                  EXT    MDD,DER,LPE                                             FC5A141   324
                                                                                                                 LABEL      25
                                        *         IN FSNAP                                                       LABEL      26
                                                  EXT    DMT=                                                    LABEL      27
                                                                                                                 LABEL      28
                                        *         IN FTN                                                         LABEL      29
                                                  EXT    CO.SNAP                                                 LABEL      30
                                                                                                                 LABEL      31
                                        *         IN IO                                                          FC5A111   147
                                                  EXT    IODOLEN                                                 FC5A111   148
                                                                                                                 FC5A111   149
                                        *         IN KEY                                                         LABEL      32
                                                  EXT    IFFLAG,INIF,KW=ENDI                                     FC5A341    22
                                                                                                                 LABEL      34
                                        *         IN LEX                                                         LABEL      35
                                                  EXT    TB=TYPE,KW=FORM                                         LABEL      36
                                                                                                                 LABEL      37
                                        *         IN PAR                                                         LABEL      38
                                                  EXT    ACT,CURST,DOARM,DO.BEG,DTC,EMT,OPBSS,OPDUM,PAR          LABEL      39
                                                                                                                 LABEL      40
                                        *         IN PEM                                                         LABEL      41
                                                  EXT    ANSI=,PDM                                               FC5A211    87
                                                                                                                 LABEL      43
                                        *         IN PUC                                                         LABEL      44
                                                  EXT    CONONE,E=TOTAL,N.DOB,N.GL,T=ARG,T=BLST,T=PAR,T=SCR      FC50749     7
                                                  EXT    T.BLST,T.PAR,T.SCR,T.SYM,WO.DOLG,WO.DOOT,WO.LOR         FC50749     8
                                                  EXT    T=DATL                                                  FC51499     8
                                                                                                                 LABEL      47
                                        *         IN QSKEL/FSKEL                                                 FC50015    10
                                                  EXT    V=GOTO,V=NOOP,V=DOC.S,V=DOC.O                           FC51364    15
                                                                                                                 LABEL      50
                                        *         IN UTILITY                                                     LABEL      51
                                                  EXT    MVE=                                                    LABEL      52
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     3
                                                                      CELLS 
  
                                        **        DATA STORAGE.                                                  LABEL      54
                                                                                                                 LABEL      55
                                                                                                                 LABEL      56
             0                     1     DOMODE   BSSENT 1           MODE OF CURRENT LOOP CONTROL-INDEX          LABEL      57
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     4
        STATEMENT LABELS.                                             CUL 
  
                                        **        CUL -  COMPILE (UPCOMING) STATEMENT LABEL                      LABEL      60
                                        *         ENTRY  X1 = DPC STATEMENT LABEL TO BE ASSEMBLED                LABEL      61
                                        *                     (0L FORMAT, MUST HAVE AT LEAST 12 ZERO BITS TERM-  LABEL      62
                                        *                     INATING FIELD)                                     LABEL      63
                                        *                                                                        LABEL      64
                                        *         EXIT   (B2) = SHIFT COUNT NECESSARY TO LEFT-JUSTIFY (X6).      LABEL      65
                                        *                IF VALID LABEL --                                       LABEL      66
                                        *                  (X6) = DPC STATEMENT LABEL IN 0R FORM                 LABEL      67
                                        *                IF ERROR --                                             LABEL      68
                                        *                  (X6) = -1                                             LABEL      69
                                        *                                                                        LABEL      70
                                        *         POSTS ERRORS FOR ILL-FORMED STATEMENT LABELS.                  LABEL      71
                                        *         AND EXIT WITH STATEMENT LABEL = TO *ERR.*                      LABEL      72
                                        *         USES   X - 0,1,2,3,4,6,7  A - 2,3,6  B - 2,3,7.                FC5A168A   13
                                                                                                                 LABEL      74
                                                                                                                 LABEL      75
             1  0400400001 +             CUL      SUBR   =           ...ENTRY/EXIT...                            LABEL      76
             2  5120000020 +                      SA2    ZRBLMSK     (X2) = ZERO AND BLANK MASK                  FC5A168A   14
                          5130001204 +            SA3    ="NUM09"    (X3) = 0...9 MASK                           FC5A168A   15
             3  10611                             BX6    X1                                                      FC5A168A   16
                     43066                        MX0    -CHAR                                                   FC5A168A   17
                          5160000000 X            SA6    FILL.                                                   FC5A168A   18
             4  6120000074                        SB2    10*CHAR                                                 FC5A168A   19
                          13666                   BX6    0                                                       FC5A168A   20
                               66320              SB3    B2                                                      FC5A168A   21
                                                                                                                 FC5A168A   22
             5  0301000015 +             CUL10    ZR     X1,CUL30    IF NO MORE CHARS                            FC5A168A   23
                          20106                   LX1    CHAR                                                    FC5A168A   24
                               15710              BX7    -X0*X1                                                  FC5A168A   25
             6  63770                             SB7    X7                                                      FC5A168A   26
                     13117                        BX1    X1-X7       ERASE CHARACTER FROM INPUT                  FC5A168A   27
                          22472                   LX4    X2,B7                                                   FC5A168A   28
             7  0334000005 +                      MI     X4,CUL10    IF BLANK OR LEAD 0                          FC5A168A   29
                          22473                   LX4    X3,B7                                                   FC5A168A   30
            10  7120040000                        SX2    1BS14       CLEAR LEAD 0 BIT                            FC5A168A   31
                          20606                   LX6    CHAR                                                    FC5A168A   32
                               12667              BX6    X6+X7       PACK CHAR                                   FC5A168A   33
            11  6122777771                        SB2    B2-CHAR                                                 FC5A168A   34
                          0334000005 +            MI     X4,CUL10    IF DIGIT                                    FC5A168A   35
            12  6170000000 X                      SB7    E.SL15                                                  FC5A168A   36
                                                                                                                 FC5A168A   37
            13  0100000000 X             CUL20    FATAL  B7                                                      FC5A168A   38
            14  43673                             MX6    -1                                                      FC5A168A   39
                     0400000001 +                 EQ     EXIT.                                                   FC5A168A   40
                                                                                                                 FC5A168A   41
            15  6170000000 X             CUL30    SB7    E.SL19      ** INVALID LABEL                            FC5A168A   42
                          0423000013 +            EQ     B2,B3,CUL20 IF ZERO/NULL LABEL                          FC5A168A   43
            16  6130000030                        SB3    4*CHAR                                                  FC5A168A   44
                          6170000000 X            SB7    E.SL14      ** LABEL TOO LONG                           FC5A168A   45
            17  0632000013 +                      LE     B2,B3,CUL20 IF LABEL TOO LONG                           FC5A168A   46
                          0400000001 +            EQ     EXIT.                                                   FC5A168A   47
                                                                                                                 FC5A168A   48
            20  00000000040000040000     ZRBLMSK  CON    1BS32+1BS14                                             FC5A168A   49
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     5
        STATEMENT LABELS.                                             GSL 
  
                                        **        GSL -  GET STATEMENT LABEL                                     LABEL     136
                                        *                                                                        LABEL     137
                                        *         ENTERED FROM *FEC.* - STMT TRANSITION TABLE EXECUTIVE          LABEL     138
                                        *         THIS ROUTINE HANDLES ALL LABEL DEFINITIONS                     LABEL     139
                                        *                                                                        FC50514     7
                                        *         ENTRY  (X6) = STATEMENT LABEL FIELD                            LABEL     140
                                        *                (FILL.) = STATEMENT LABEL, LEFT-JUSTIFIED               LABEL     141
                                        *                (REFLIN) = LINE NUMBER IN (XR.LINE) FIELD, REST ZERO.   LABEL     142
                                        *                                                                        LABEL     143
                                        *         EXIT   (STN) = STMT LABEL FIELD OF SOURCE CARD IN OR           LABEL     144
                                        *                     FORMAT.                                            LABEL     145
                                        *                (CSLTAG) = TAG OF THE STATEMENT LABEL.  42/ 0,  18/TAG  LABEL     146
                                        *                (DTI) = COPY OF (CSLTAG) IF THIS IS A DO-TERMINAL       LABEL     147
                                        *                                                                        LABEL     148
                                        *         USES   A1,A2,A3,A5,A6  X0,X1,X2,X3,X5,X6,X7  B2,B3,B7          LABEL     149
                                        *                                                                        LABEL     150
                                        *         CALLS  ALU, ERT, ESY, SSY                                      LABEL     151
                                                                                                                 LABEL     152
                                                                                                                 LABEL     153
            21  0400400021 +             GSL      SUBR   =           ...ENTRY/EXIT...                            LABEL     154
            22  0336000021 +                      MI     X6,EXIT.    IF ERROR, EXIT TO CONTROLLER...             LABEL     155
                          20630                   LX6    WA.STLP                                                 LABEL     156
            23  0100000000 X                      CALL   SSY         SEARCH SYMBOL TABLE                         LABEL     157
            24  5150000000 X                      SA5    TB=TYPE                                                 LABEL     158
                          6120000000 X            SB2    E.SL01                                                  LABEL     159
            25  10755                             BX7    X5                                                      LABEL     160
                     20722                        LX7    -KW.JMPP                                                LABEL     161
                          43352                   MX3    -KW.JMPL                                                LABEL     162
                               15373              BX3    -X3*X7      ISOLATE STMT PROCESSOR ADDRESS              LABEL     163
            26  7170000000 X                      SX7    KW=FORM                                                 LABEL     164
                          37337                   IX3    X3-X7                                                   LABEL     165
                               63330              SB3    X3                                                      LABEL     166
            27  7170000210                        CLAS=  X7,WB,(LAB,SDEF)                                        LABEL     167
                          0770000034 +            MI     B7,GSL5     IF LABEL NOT PREVIOUSLY IN SYMTAB           LABEL     168
            30  5130001205 +                      CLAS=  X3,WB,(SDEF,FDEF,NDEF)                                  LABEL     169
                          11132                   BX1    X3*X2                                                   LABEL     170
            31  0301000045 +                      ZR     X1,GSL10    IF LABEL NOT DEFINED                        LABEL     171
                                                                                                                 LABEL     172
                                        **        HERE IF *STATEMENT LABEL* IS IN TABLE AND *DEFINED*            LABEL     173
                                        *         ERROR - DUPLICATE STATEMENT LABEL DEFINITION.                  LABEL     174
                                                                                                                 LABEL     175
                          6120000000 X            SB2    E.SL00                                                  LABEL     176
            32  0530000063 +                      NZ     B3,GSL20    IF NOT A FORMAT STATEMENT                   LABEL     177
                          6120000000 X            SB2    E.SL16                                                  LABEL     178
            33  0400000063 +                      EQ     GSL20                                                   LABEL     179
                                                                                                                 LABEL     180
                                        **        HERE IF *STATEMENT LABEL* IS NOT IN TABLE.                     LABEL     181
                                                                                                                 LABEL     182
            34  5120000000 X             GSL5     SA2    REFLIN                                                  LABEL     183
                          20230                   LX2    -XR.LINEP+WC.LINEP                                      LABEL     184
            35  0530000037 +                      NZ     B3,GSL5A    IF NOT A FORMAT STMT                        LABEL     185
                          5110001206 +            CLAS=  X1,WB,(LAB,FDEF)                                        LABEL     186
            36  10711                             BX7    X1                                                      LABEL     187
                     0400000043 +                 EQ     GSL7                                                    LABEL     188
                                                                                                                 LABEL     189
            37  20524                    GSL5A    SBIT   X5,KW.LBLP                                              LABEL     190
                     0335000042 +                 MI     X5,GSL6     IF EXECUTABLE STMT                          LABEL     191
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     6
        STATEMENT LABELS.                                             GSL 
  
            40  5110001207 +                      CLAS=  X1,WB,(LAB,NDEF)                                        LABEL     192
                          10711                   BX7    X1                                                      LABEL     193
            41  0400000043 +                      EQ     GSL7                                                    LABEL     194
                                                                                                                 LABEL     195
            42  7170000210               GSL6     CLAS=  X7,WB,(LAB,SDEF)                                        LABEL     196
                                                                                                                 FC50293     5
            43  5110000000 X             GSL7     ADSYM  T.SYM                                                   LABEL     197
            44  66200                             =B2    0                                                       LABEL     198
                     0400000063 +                 EQ     GSL20       CONTINUE                                    LABEL     199
                                                                                                                 LABEL     200
                                        **        HERE IF *STATEMENT LABEL* IS IN TABLE.                         LABEL     201
                                        *                AND IS NOT-DEFINED.                                     LABEL     202
                                                                                                                 LABEL     203
            45  5130000000 X             GSL10    SA3    REFLIN                                                  LABEL     204
                          10177                   BX1    X7          PRESERVE X7                                 LABEL     205
                               20330              LX3    -XR.LINEP+WC.LINEP                                      LABEL     206
            46  10733                             BX7    X3                                                      LABEL     207
                     5072000001                   SA7    A2-WB.W+WC.W                                            LABEL     208
                               10711              BX7    X1          RESTORE X7                                  LABEL     209
            47  0530000055 +                      NZ     B3,GSL10A   IF NOT A FORMAT STMT                        LABEL     210
                          5110001210 +            CLAS=  X1,WB,(FREF,SREF,DOT)                                   LABEL     211
            50  66200                             =B2    0                                                       LABEL     212
                     43301                        CLAS=  X3,WB,(FDEF)                                            LABEL     213
                               11112              BX1    X1*X2                                                   LABEL     214
            51  0301000056 +                      ZR     X1,GSL10B   IF NO REF BITS SET                          LABEL     215
                          20646                   HX6    WB.FREF                                                 LABEL     216
            52  0336000056 +                      MI     X6,GSL10B   IF PREVIOUSLY REFED AS FORMAT               LABEL     217
                          6120000000 X            SB2    E.SL10                                                  LABEL     218
            53  20620                             LX6    WB.FREFP-WB.DOTP                                        LABEL     219
                     0336000056 +                 MI     X6,GSL10B   IF A *DO* TERMINAL                          LABEL     220
            54  6120000000 X                      SB2    E.SL12                                                  LABEL     221
                          0400000056 +            EQ     GSL10B                                                  LABEL     222
                                                                                                                 LABEL     223
            55  20524                    GSL10A   SBIT   X5,KW.LBLP                                              LABEL     224
                     0335000060 +                 MI     X5,GSL11    IF EXECUTABLE STMT                          LABEL     225
                                                                                                                 FC50293     6
            56  12623                    GSL10B   BX6    X2+X3                                                   LABEL     226
                     54620                        SA6    A2          RESET *WB* INDICATING DEFINED               LABEL     227
                          10266                   BX2    X6                                                      LABEL     228
            57  0400000063 +                      EQ     GSL20                                                   LABEL     229
                                                                                                                 LABEL     230
            60  66200                    GSL11    =B2    0                                                       LABEL     231
                     20246                        HX2    WB.FREF                                                 LABEL     232
                          0322000062 +            PL     X2,GSL15    IF PRIOR REF WAS NOT AS FORMAT              LABEL     233
            61  6120000000 X                      SB2    E.SL13      PREVIOUSLY USED AS FORMAT                   LABEL     234
                                                                                                                 FC50293     7
            62  12667                    GSL15    BX6    X6+X7                                                   LABEL     235
                     22206                        LX2    X6          REMEMBER (X2) = NEW (WB.)                   LABEL     236
                          54620                   SA6    A2          RESET *WB* INDICATING DEFINED               LABEL     237
                                                                                                                 LABEL     238
                                        *         SETUP LABEL CELLS AND LINKAGES.                                LABEL     239
                                        *                (X0) = SYMORD OF LABEL.                                 LABEL     240
                                        *                (X2) = SYMTAB (WB) OF LABEL.                            LABEL     241
                                        *                (B2) = ERROR MESSAGE, .ZR. IF OKAY.                     LABEL     242
                                                                                                                 LABEL     243
            63  10600                    GSL20    BX6    X0                                                      LABEL     244
                     5160000000 X                 SA6    CSLTAG                                                  LABEL     245
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     7
        STATEMENT LABELS.                                             GSL 
  
            64  0420000067 +                      ZR     B2,GSL30    IF NO ERROR                                 LABEL     246
                          66720                   FATAL  B2                                                      LABEL     247
            66  0400000077 +                      EQ     GSL50                                                   FC50514     8
                                                                                                                 LABEL     249
            67  10122                    GSL30    BX1    X2                                                      LABEL     250
                     20166                        HX1    WB.DOT                                                  LABEL     251
                          0321000071 +            PL     X1,GSL40    IF NOT A DO-TERMINATOR                      LABEL     252
            70  5160000000 X                      SA6    DTI         INDICATE DO TERMINATION                     LABEL     253
                                                                                                                 FC50293     8
            71  5130000000 X             GSL40    SA3    T=BLST                                                  LABEL     254
                          0303000077 +            ZR     X3,GSL50    IF NOT IN BLOCK STRUCTURE                   FC50514     9
            72  20247                             SBIT   X2,WB.FDEFP                                             LABEL     256
                     0332000077 +                 MI     X2,GSL50    IF FORMAT LABEL                             FC50514    10
            73  5110000000 X                      SA1    TB=TYPE                                                 FC5A341    23
                          7120000000 X            SX2    KW=ENDI                                                 FC5A341    24
                                                  HX1    KW.JMP                                                  FC5A341    25
            74  21152                             AX1    -KW.JMPL    EXTRACT STATEMENT TYPE                      FC5A341    26
                     37212                        IX2    X1-X2                                                   FC5A341    27
                          0302000077 +            ZR     X2,GSL50    IF ENDIF, DEFER ANALYSIS                    FC50514    11
            75  5110000000 X                      SA1    FILL.                                                   FC50293     9
                          10711                   BX7    X1                                                      FC50293    10
                               54711              =A7    A1+1        DPC OF LABEL TO FILL.2                      FC50293    11
            76  6120000001                        SB2    1           INDICATE LABEL BEING DEFINED                LABEL     258
                          0100000672 +            RJ     ALU         ANALYZE THE LABEL USAGE                     LABEL     259
                                                                                                                 FC50514    12
            77  5120000000 X             GSL50    SA2    CSLTAG                                                  FC50514    13
                          7110000014              SX1    CR.LAB                                                  FC50514    14
           100  20252                             LX2    XR.TAGP                                                 FC50514    15
                     10622                        ADDREF X2,X1                                                   FC50514    16
           102  0400000021 +                      EQ     EXIT.                                                   LABEL     260
  
  
  
  
                                        **        ISL -  IDENTIFY STATEMENT LABEL                                LABEL     262
                                        *                                                                        LABEL     263
                                        *         ENTRY  (X6) = STATEMENT LABEL (IN STRING BUFFER FORMAT).       LABEL     264
                                        *                                                                        LABEL     265
                                        *                (X2) = USAGE DEFINITION FOR STATEMENT LABEL.            LABEL     266
                                        *                --  SELECT ONE OF FOLLOWING  --                         LABEL     267
                                        *                WB.SREF = CONTROL LABEL.  ==  GO TO  1                  LABEL     268
                                        *                WB.FREF = FORMAT LABEL.   ==  PRINT  1                  LABEL     269
                                        *                WB.DOT  = DO DEFINITION.  ==  DO     1                  LABEL     270
                                        *                *NULL*  = ASSIGN LABEL.   ==  ASSIGN 1 TO I             LABEL     271
                                        *                                                                        LABEL     272
                                        *                (REFNUM)= TYPE OF REFERENCE FOR *CROSS REFERENCE*       LABEL     273
                                        *                          PROCESSOR.                                    LABEL     274
                                        *                                                                        LABEL     275
                                        *         EXIT   (X6) = PASS 2 TAG FOR STATEMENT LABEL                   LABEL     276
                                        *                                                                        LABEL     277
                                        *         NOTE   (X6) = -1 IF SYNTAX ERROR IN STATEMENT LABEL            LABEL     278
                                        *                                                                        LABEL     279
                                        *         USES   A1,A2,A3,A4,A6,A7  X0,X1,X2,X3,X4,X6,X7  B2,B3,B7       LABEL     280
                                        *                FILL.2 = CURRENT STATEMENT LABEL IN 0L FORM.            LABEL     281
                                        *                                                                        LABEL     282
                                        *         CALLS  ALU, CT1, CUL, ESY, RBE, SSY                            LABEL     283
                                                                                                                 LABEL     284
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     8
        STATEMENT LABELS.                                             ISL 
  
                                                                                                                 LABEL     285
           103  0400400103 +             ISL      SUBR   =           ...ENTRY/EXIT...                            LABEL     286
                                                                                                                 LABEL     287
                                        *         FORM STATEMENT LABEL                                           LABEL     288
                                                                                                                 LABEL     289
           104  7206777772                        SX0    X6-O.CONS                                               LABEL     290
                          0300000106 +            ZR     X0,ISL2     IF DIGIT STRING                             LABEL     291
           105  73060                             SX0    X6                                                      LABEL     292
                     0310000000 X                 NZ     X0,E.SL18   IF TYPED OTHER THAN DIGIT STRING            LABEL     293
           106  43052                    ISL2     MX0    TB.TOCL                                                 LABEL     294
                                                  LX6    59-TB.TOCL-TB.TOCP+1                                    LABEL     295
                     11606                        BX6    X0*X6                                                   LABEL     296
                          10722                   BX7    X2                                                      LABEL     297
           107  5160000000 X                      SA6    FILL.2                                                  LABEL     298
                          5110000000 X            SA1    IFFLAG                                                  LABEL     299
           110  7120000100                        CLAS=  X2,WB,(SREF)                                            LABEL     300
                          11327                   BX3    X2*X7                                                   LABEL     301
                               13323              BX3    X2-X3       X3 = 0 ONLY IF WB.SREF IS SET               LABEL     302
           111  12313                             BX3    X1+X3       X3 = 0 IF IFFLAG AND PREVIOUS X3 ARE BOTH 0 LABEL     303
                     43200                        MX2    0                                                       LABEL     304
                          0313000113 +            NZ     X3,ISL4     IF WB.ACT NOT TO BE SET                     LABEL     305
           112  7120004000                        CLAS=  X2,WB,(ACT)                                             LABEL     306
                                                                                                                 LABEL     307
           113  12772                    ISL4     BX7    X7+X2                                                   LABEL     308
                     22106                        LX1    X6                                                      LABEL     309
                          5170000267 +            SA7    STLUSE      SET USAGE DEFINITION                        LABEL     310
           114  0100000001 +                      RJ     CUL                                                     LABEL     311
           115  5160000270 +                      SA6    STL0R       SAVE 0R LABEL                               LABEL     312
                          0336000265 +            MI     X6,ISL75    IF ERROR - EXIT                             FC51356    22
           116  20630                             LX6    WA.STLP                                                 LABEL     314
                     0100000000 X                 CALL   SSY                                                     LABEL     315
           117  0770000234 +                      MI     B7,ISL40    IF STATEMENT LABEL NOT IN TABLE             LABEL     316
                          5130000000 X            SA3    T=BLST                                                  FC51356    23
           120  0303000125 +                      ZR     X3,ISL4A    IF NOT IN A DO OR BLOCK IF STRUCTURE        FC51356    24
                          5110000000 X            SA1    T.BLST                                                  FC51356    25
           121  6233777776                        SB3    X3-1                                                    FC51356    26
                          53313                   SA3    X1+B3                                                   FC51356    27
                               20330              LX3    -LC.DOP                                                 FC51356    28
           122  63330                             SB3    X3                                                      FC51356    29
                     0430000125 +                 ZR     B3,ISL4A    IF NOT IN A *DO*                            FC51356    30
           123  5130001211 +                      CLAS=  X3,WB,(ALRN,GOTO)                                       FC51356    31
                          10733                   BX7    X3                                                      FC51356    32
           124  5130000267 +                      SA3    STLUSE                                                  FC51356    33
                          15637                   BX6    -X7*X3                                                  FC51356    34
                               54630              SA6    A3          WB.ALRN OR WB.GOTO CLEARED                  FC51356    35
           125  22302                    ISL4A    LX3    X2          X3 = WB OF LABEL                            FC51356    36
                     20364                        SBIT   X3,WB.DEFP                                              FC51356    37
                          0323000135 +            PL     X3,ISL5     IF NOT YET DEFINED                          FC51356    38
           126  5130001211 +                      CLAS=  X3,WB,(ALRN,GOTO)                                       FC51356    39
                          22603                   LX6    X3                                                      FC51356    40
           127  5130000267 +                      SA3    STLUSE                                                  FC51356    41
                          0303000135 +            ZR     X3,ISL5     IF AMBIGUOUS USAGE                          FC51564     7
           130  12332                             BX3    X3+X2                                                   FC51564     8
                     11763                        BX7    X6*X3                                                   FC51356    42
                          15636                   BX6    -X6*X3                                                  FC51564     9
                               12667              BX6    X6+X7                                                   FC51356    45
           131  20265                             HX2    WB.SREF                                                 FC51564    10
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE     9
        STATEMENT LABELS.                                             ISL 
  
                     0332000134 +                 MI     X2,ISL4B    IF NOT FIRST REFERENCE                      FC51564    11
                               54320              SA3    A2                                                      FC51564    12
                                                  HX3    WB.FR                                                   FC51564    13
           132  21352                             AX3    -WB.FRL                                                 FC51564    14
                     0313000134 +                 NZ     X3,ISL4B    IF NOT FIRST REFERENCE                      FC51564    15
           133  5130000000 X                      SA3    REFLIN                                                  FC51564    16
                          20344                   LX3    -XR.LINEP+WB.FRP                                        FC51564    17
                               12663              BX6    X6+X3                                                   FC51564    18
                                                                                                                 FC51564    19
           134  54620                    ISL4B    SA6    A2          UPDATE WB,(GOTO OR ALRN) AND REF LINE       FC51564    20
                                                                                                                 LABEL     317
                                        **        STATEMENT LABEL ALREADY IN TABLE                               LABEL     318
                                        *         CHECK VALIDITY OF CURRENT USE                                  LABEL     319
                                                                                                                 LABEL     320
           135  0100000000 X             ISL5     CALL   CT1                                                     FC51356    47
           136  5160000271 +                      SA6    STLTAG                                                  LABEL     322
                          22602                   LX6    X2                                                      LABEL     323
                               10022              BX0    X2                                                      LABEL     324
           137  6120000000 X                      SB2    E.SL11                                                  LABEL     325
                          20244                   SBIT   X2,WB.NDEFP                                             LABEL     326
           140  0332000241 +                      MI     X2,ISL50    IF LABEL DEFINED ON NON-EXECUTABLE          LABEL     327
                          5130000267 +            SA3    STLUSE                                                  LABEL     328
           141  5110001212 +                      CLAS=  X1,WB,(SDEF,FDEF)                                       LABEL     329
                          11110                   BX1    X1*X0                                                   LABEL     330
           142  0301000200 +                      ZR     X1,ISL20    IF LABEL NOT DEFINED                        LABEL     331
                          0313000150 +            NZ     X3,ISL9     IF UNAMBIGUOUS USAGE                        LABEL     332
           143  5130000000 X                      SA3    IFFLAG                                                  LABEL     333
                          7120004000              CLAS=  X2,WB,(ACT)                                             FC51564    21
           144  0303000145 +                      ZR     X3,ISL6     IF WB.ACT TO BE SET                         LABEL     335
                          43200                   MX2    0                                                       FC51564    22
                                                                                                                 LABEL     337
           145  20164                    ISL6     SBIT   X1,WB.SDEFP                                             LABEL     338
                     0331000147 +                 MI     X1,ISL8     IF DEFINED AS EXECUATABLE LABEL             LABEL     339
                               43201              CLAS=  X2,WB,(FREF)                                            LABEL     340
           147  12662                    ISL8     BX6    X6+X2                                                   LABEL     341
                     54620                        SA6    A2          RESET *WB* INDICATING THIS REFERENCE        LABEL     342
                          0400000260 +            EQ     ISL72       NO PROCESSING FOR AMBIGUOUS CASE            LABEL     343
                                                                                                                 LABEL     344
                                        **        STATEMENT LABEL IS DEFINED.  TEST EXISTING DEFINITION BITS VS. LABEL     345
                                        *         USAGE BITS PASSED TO THIS ROUTINE.  ACTION IS TAKEN AS PER THE LABEL     346
                                        *         DECISION MATRIX BELOW:                                         LABEL     347
                                        *                                                                        LABEL     348
                                        *                            IN SYMBOL TABLE                             LABEL     349
                                        *                                                                        LABEL     350
                                        *                          DOT      FMT      LAB                         LABEL     351
                                        *                      +---------+--------+--------+                     LABEL     352
                                        *                DOT   +  E.SL02 + E.SL04 + E.SL17 +                     LABEL     353
                                        *                      +---------+--------+--------+                     LABEL     354
                                        *    USAGE       FMT   +  E.SL03 + ISL60  + E.SL06 +                     LABEL     355
                                        *                      +---------+--------+--------+                     LABEL     356
                                        *                LAB   +  ISL60  + E.SL05 + ISL60  +                     LABEL     357
                                        *                      +---------+--------+--------+                     LABEL     358
                                        *                                                                        LABEL     359
                                        *                (X0) = SYMBOL TABLE *WB* ENTRY                          LABEL     360
                                        *                (X3) = USAGE BITS                                       LABEL     361
                                                                                                                 LABEL     362
           150  20366                    ISL9     SBIT   X3,WB.DOTP                                              LABEL     363
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    10
        STATEMENT LABELS.                                             ISL 
  
                     0323000156 +                 PL     X3,ISL12    IF NOT USED AS DO TERMINATOR                LABEL     364
                                                                                                                 LABEL     365
                                        *         WHEN LABEL ALREADY DEFINED, USE AS DO TERMINATOR IS ILLEGAL.   LABEL     366
                                        *         SORT OUT WHAT HAPPENED AND ISSUE PROPER DIAGNOSTIC.            LABEL     367
                                                                                                                 LABEL     368
                               20066              SBIT   X0,WB.DOTP                                              LABEL     369
           151  0320000153 +                      PL     X0,ISL10    IF NOT DEFINED AS DO TERMINATOR             LABEL     370
                          6120000000 X            SB2    E.SL02      DO LABEL ALREADY DEFINED, BAD NESTING       LABEL     371
           152  0400000241 +                      EQ     ISL50                                                   LABEL     372
                                                                                                                 LABEL     373
           153  6120000000 X             ISL10    SB2    E.SL17      DO LABEL DEFINITION PRECEEDS DO STATEMENT   LABEL     374
                          20055                   SBIT   X0,WB.FDEFP/WB.DOTP                                     LABEL     375
           154  0320000241 +                      PL     X0,ISL50    IF NOT DEFINED AS FORMAT                    LABEL     376
                          6120000000 X            SB2    E.SL04      ILLEGAL TRANSFER TO FORMAT                  LABEL     377
           155  0400000241 +                      EQ     ISL50                                                   LABEL     378
                                                                                                                 LABEL     379
           156  20354                    ISL12    SBIT   X3,WB.FREFP/WB.DOTP                                     LABEL     380
                     0323000163 +                 PL     X3,ISL16    IF NOT USED AS FORMAT                       LABEL     381
                                                                                                                 LABEL     382
                                        *         LABEL USED AS FORMAT.  IF DEFINED AS NON FORMAT, ISSUE THE     LABEL     383
                                        *         PROPER DIAGNOSTIC.                                             LABEL     384
                                                                                                                 LABEL     385
                               20066              SBIT   X0,WB.DOTP                                              LABEL     386
           157  0320000161 +                      PL     X0,ISL14    IF NOT DEFINED AS DO TERMINATOR             LABEL     387
                          6120000000 X            SB2    E.SL03      ILLEGAL USE OF DO TERMINATOR AS FORMAT      LABEL     388
           160  0400000241 +                      EQ     ISL50                                                   LABEL     389
                                                                                                                 LABEL     390
           161  20055                    ISL14    SBIT   X0,WB.FDEFP/WB.DOTP                                     LABEL     391
                     0330000243 +                 MI     X0,ISL60    IF DEFINED AS FORMAT                        LABEL     392
           162  6120000000 X                      SB2    E.SL06      REFERENCE TO EXECUATABLE LABEL AS FORMAT    LABEL     393
                          0400000241 +            EQ     ISL50                                                   LABEL     394
                                                                                                                 LABEL     395
                                        *         THE LABEL HAS BEEN USED AS AN EXECUTABLE LABEL.                LABEL     396
                                                                                                                 LABEL     397
           163  6120000000 X             ISL16    SB2    E.SL05      ILLEGAL TRANSFER TO FORMAT                  LABEL     398
                          22300                   LX3    X0                                                      FC51356    48
                               20047              SBIT   X0,WB.FDEFP                                             LABEL     399
           164  0330000241 +                      MI     X0,ISL50    IF DEFINED AS FORMAT                        LABEL     400
                          20012                   SBIT   X0,WB.INAP/WB.FDEFP                                     LABEL     402
           165  0320000173 +                      PL     X0,ISL18    IF NO ATTEMPT TO TRANSFER INTO CLOSED BLOCK FC51356    49
                          20335                   SBIT   X3,WB.ALRNP                                             FC51356    50
           166  0323000171 +                      PL     X3,ISL17    IF NO ALTERNATE RETURN INTO CLOSED BLOCK    FC51356    51
                          66270                   SB2    B7                                                      FC51356    52
           167  6170000000 X                      WARN   E.SL20      ALTERNATE RETURN INTO CLOSED BLOCK          FC51356    53
           170  66720                             SB7    B2                                                      FC51356    54
                                                                                                                 FC51356    55
           171  20301                    ISL17    SBIT   X3,WB.GOTOP/WB.ALRNP                                    FC51356    56
                     6120000000 X                 SB2    E.SL09      ILLEGAL TRANSFER INTO CLOSED BLOCK          FC51356    57
           172  0333000241 +                      MI     X3,ISL50    IF UNCONDITIONAL *GOTO* INTO CLOSED BLOCK   FC51356    58
                                                                                                                 FC51356    59
           173  20052                    ISL18    SBIT   X0,WB.INDOP/WB.INAP                                     FC51356    60
                     0320000176 +                 PL     X0,ISL19    IF NOT IN A DO                              FC51356    61
                               66270              SB2    B7                                                      FC50015    14
           174  6170000000 X                      ANSI   E.DO19                                                  FC50015    15
           175  66720                             SB7    B2                                                      FC50015    16
                                                                                                                 FC50015    17
           176  0100000000 X             ISL19    CALL   DER         DETECT EXTENDED RANGE (DO LOOPS)            FC51356    62
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    11
        STATEMENT LABELS.                                             ISL 
  
           177  0400000243 +                      EQ     ISL60                                                   LABEL     405
                                                                                                                 LABEL     406
                                                                                                                 LABEL     407
                                        **        STATEMENT LABEL IS NOT DEFINED.  TEST EXISTING REFERENCE BITS  LABEL     408
                                        *         VS. USAGE BITS PASSED TO THIS ROUTINE.  ACTION TAKEN AS PER    LABEL     409
                                        *         THE DECISION MATRIX BELOW:                                     LABEL     410
                                        *                                                                        LABEL     411
                                        *                            IN SYMBOL TABLE                             LABEL     412
                                        *                                                                        LABEL     413
                                        *                          DOT      FMT      LAB                         LABEL     414
                                        *                      +---------+--------+--------+                     LABEL     415
                                        *                DOT   +  ISL30  + E.SL07 + ISL30  +                     LABEL     416
                                        *                      +---------+--------+--------+                     LABEL     417
                                        *    USAGE       FMT   +  E.SL06 + ISL60  + E.SL06 +                     LABEL     418
                                        *                      +---------+--------+--------+                     LABEL     419
                                        *                LAB   +  ISL60  + E.SL08 + ISL60  +                     LABEL     420
                                        *                      +---------+--------+--------+                     LABEL     421
                                        *                                                                        LABEL     422
                                        *                (X0) = SYMBOL TABLE *WB* ENTRY                          LABEL     423
                                        *                (X3) = USAGE BITS                                       LABEL     424
                                                                                                                 LABEL     425
           200  0303000260 +             ISL20    ZR     X3,ISL72    IF USAGE AMBIGUOUS (ASSIGN)                 LABEL     426
                          5110001210 +            CLAS=  X1,WB,(SREF,FREF,DOT)                                   LABEL     427
           201  11101                             BX1    X0*X1                                                   LABEL     428
                     0301000243 +                 ZR     X1,ISL60    IF NO REFERENCE BITS SET                    LABEL     429
                                                                                                                 LABEL     430
                               20366              SBIT   X3,WB.DOTP                                              LABEL     431
           202  0323000205 +                      PL     X3,ISL22    IF NOT USED AS DO TERMINATOR                LABEL     432
                                                                                                                 LABEL     433
                                        *         THIS USAGE IS AS DO TERMINATOR.                                LABEL     434
                                                                                                                 LABEL     435
                          20046                   SBIT   X0,WB.FREFP                                             LABEL     436
           203  0320000214 +                      PL     X0,ISL30    IF NOT REFERENCED AS FORMAT                 LABEL     437
                          6120000000 X            SB2    E.SL07      ILLEGAL REFERENCE TO DO TERMINAL AS FORMAT  LABEL     438
           204  0400000241 +                      EQ     ISL50                                                   LABEL     439
                                                                                                                 LABEL     440
           205  20354                    ISL22    SBIT   X3,WB.FREFP/WB.DOTP                                     LABEL     441
                     0323000212 +                 PL     X3,ISL26    IF NOT USED AS FORMAT                       LABEL     442
                                                                                                                 LABEL     443
                                        *         USAGE AS FORMAT                                                LABEL     444
                                                                                                                 LABEL     445
                               20066              SBIT   X0,WB.DOTP                                              LABEL     446
           206  0320000210 +                      PL     X0,ISL24    IF NOT REFERENCED AS DO TERMINATOR          LABEL     447
                          6120000000 X            SB2    E.SL06      EXECUTABLE LABEL USED AS FORMAT             LABEL     448
           207  0400000241 +                      EQ     ISL50                                                   LABEL     449
                                                                                                                 LABEL     450
           210  20054                    ISL24    SBIT   X0,WB.FREFP/WB.DOTP                                     LABEL     451
                     0330000243 +                 MI     X0,ISL60    IF REFERENCED AS FORMAT                     LABEL     452
           211  6120000000 X                      SB2    E.SL08                                                  LABEL     453
                          0400000241 +            EQ     ISL50                                                   LABEL     454
                                                                                                                 LABEL     455
           212  20046                    ISL26    SBIT   X0,WB.FREFP                                             LABEL     456
                     0320000243 +                 PL     X0,ISL60    IF NOT REFERENCED AS FORMAT                 LABEL     457
           213  6120000000 X                      SB2    E.SL08                                                  LABEL     458
                          0400000241 +            EQ     ISL50                                                   LABEL     459
                                                                                                                 LABEL     460
                                                                                                                 LABEL     461
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    12
        STATEMENT LABELS.                                             ISL 
  
                                        **        STATEMENT LABEL REFERENCE IS AS A DO LOOP TERMINATOR.  THE     LABEL     462
                                        *         LABEL CANNOT BE ENTERED INTO T.BLST VIA ALU BECAUSE THIS       LABEL     463
                                        *         STATEMENT BEGINS A NEW BLOCK STRUCTURE.  THUS THE FOLLOWING    LABEL     464
                                        *         ANALYSIS.                                                      LABEL     465
                                                                                                                 LABEL     466
                                                                                                                 LABEL     467
           214  20020                    ISL30    SBIT   X0,WB.DOTP/WB.FREFP                                     LABEL     468
                     0320000243 +                 PL     X0,ISL60    IF NOT ALREADY DO TERMINATOR                FC50015    19
                                                                                                                 LABEL     470
                                        *         THIS LABEL TERMINATES MULTIPLE DO STATEMENTS (AT LEAST ONE     LABEL     471
                                        *         OTHER).  THE BLOCK STRUCTURES MUST BE CONTIGUOUS FOR ALL DO    LABEL     472
                                        *         LOOPS ENDING AT THIS TERMINATOR.  (E.G., NO OTHER DO LOOP OR   LABEL     473
                                        *         IF BLOCK MAY BE INTERSPERCED.)                                 LABEL     474
                                                                                                                 LABEL     475
           215  5110000000 X                      SA1    T.BLST                                                  LABEL     476
                          5130000000 X            SA3    T=BLST                                                  LABEL     477
           216  6233777776                        SB3    X3-1                                                    LABEL     478
                          53313                   SA3    X1+B3       FETCH COUNT WORD                            LABEL     479
                               20330              LX3    -LC.DOP                                                 LABEL     480
           217  63330                             SB3    X3          EXTRACT DO INDEX                            LABEL     481
                                   0              ERRNZ  18-LC.DOL                                               LABEL     482
                     0530000224 +                 NZ     B3,ISL31    IF NOT BLOCK IF                             LABEL     483
           220  5110000000 X                      SA1    T.SYM                                                   LABEL     484
                          7100000040              CLAS=  X0,WB,(DOT)                                             LABEL     485
           221  15660                             BX6    -X0*X6      CLEAR DO TERMINAL BIT                       LABEL     486
                     53617                        SA6    X1+B7                                                   LABEL     487
                          5110000271 +            SA1    STLTAG                                                  LABEL     488
           222  22601                             LX6    X1                                                      LABEL     489
                     0100001136 +                 RJ     RBE         REMOVE DO ENTRY                             LABEL     490
           223  6120000000 X                      SB2    E.DO06      ILLEGAL NESTING OF IF BLOCK AND DO          LABEL     491
                          0400000241 +            EQ     ISL50                                                   LABEL     492
                                                                                                                 LABEL     493
           224  20344                    ISL31    LX3    LC.DOP-LC.CNTP                                          LABEL     494
                     6233777776                   SB3    X3-1                                                    LABEL     495
                                   0              ERRNZ  18-LC.CNTL                                              LABEL     496
                               55333              SA3    A3-B3       BASE OF SEGMENT                             LABEL     497
           225  5033000005                        =A3    A3+DO.W                                                 LABEL     498
                          5110000271 +            SA1    STLTAG                                                  LABEL     499
           226  20352                             LX3    -DO.TAGP                                                LABEL     500
                     73330                        SX3    X3          ISOLATE (X3) = SYMORD OF INNERMOST DO TERM  LABEL     501
                                   0              ERRNZ  18-DO.TAGL                                              LABEL     502
                                                  HX1    TP.ORD                                                  LABEL     503
                          21154                   AX1    -TP.ORDL    ISOLATE (X1) = SYMORD OF THIS LABEL         LABEL     504
                               37113              IX1    X1-X3                                                   LABEL     505
           227  0301000260 +                      ZR     X1,ISL72    IF LEGAL NESTING                            LABEL     506
                          5110000000 X            SA1    T.SYM                                                   LABEL     507
           230  7100000040                        CLAS=  X0,WB,(DOT)                                             LABEL     508
                          15660                   BX6    -X0*X6      CLEAR DO TERMINAL BIT                       LABEL     509
                               53617              SA6    X1+B7                                                   LABEL     510
           231  5110000271 +                      SA1    STLTAG                                                  LABEL     511
                          22601                   LX6    X1                                                      LABEL     512
           232  0100001136 +                      RJ     RBE         REMOVE DO ENTRY                             LABEL     513
           233  6120000000 X                      SB2    E.DO12      ILLEGAL DO NEST                             LABEL     514
                          0400000241 +            EQ     ISL50                                                   LABEL     515
                                                                                                                 LABEL     516
                                        **        STATEMENT LABELS FIRST USE                                     LABEL     517
                                        *         A.  SET USAGE BITS AND (WB.LAB) FOR SYMTAB.                    LABEL     518
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    13
        STATEMENT LABELS.                                             ISL 
  
                                        *         B.  ADD LABEL TO STATEMENT LABEL TABLE                         LABEL     519
                                        *         C.  CONTINUE, CHECKING CROSS REFERENCE, AND LINK               LABEL     520
                                                                                                                 LABEL     521
           234  5130000267 +             ISL40    SA3    STLUSE                                                  LABEL     522
                          7170000010              CLAS=  X7,WB,(LAB)                                             LABEL     523
           235  12737                             BX7    X3+X7                                                   LABEL     524
                     43200                        MX2    0                                                       LABEL     525
                          0100000000 X            ADSYM  A1          ADD LABEL TO TABLE                          LABEL     526
           236  0100000000 X                      CALL   CT1         FORM (TP.) OPERAND FOR LABEL                LABEL     527
           237  5160000271 +                      SA6    STLTAG                                                  LABEL     528
                          5120000267 +            SA2    STLUSE      RELOAD USAGE                                LABEL     529
           240  43100                             MX1    0           MARK FIRST USE                              FC50015    20
                     0400000245 +                 EQ     ISL70       CONTINUE                                    LABEL     530
                                                                                                                 LABEL     531
                                        **        OUTPUT ERROR  (B2) _ ERROR                                     LABEL     532
                                                                                                                 LABEL     533
           241  66720                    ISL50    FATAL  B2                                                      LABEL     534
           242  43673                             MX6    59          (X6) = -1 IMPLIES ERROR IN DO               LABEL     535
                     0400000103 +                 EQ     EXIT.       EXIT...                                     LABEL     536
                                                                                                                 LABEL     537
                                        **        SET TAG IN TABLE ADDING DEFINED BITS FOR USAGE                 LABEL     538
                                        *                (X2) = CLASSIFICATION BITS.                             LABEL     539
                                        *                (X6) = SYMTAB WORD (WB.) FOR LABEL.                     LABEL     540
                                        *                (B7) = SYMTAB (WB.) INDEX.                              LABEL     541
                                                                                                                 LABEL     542
           243                           ISL60    BSS    0                                                       LABEL     543
           243  5110000000 X                      SA1    T.SYM                                                   LABEL     544
                          5120000267 +            SA2    STLUSE                                                  LABEL     545
           244  10366                             BX3    X6                                                      FC50015    21
                     12662                        BX6    X6+X2                                                   LABEL     546
                          53617                   SA6    X1+B7       REPLACE TAG REFLECTING USE.                 LABEL     547
                               10133              BX1    X3          SAVE OLD WB. WORD                           FC50015    22
                                                                                                                 LABEL     548
                                        **        DO LABEL ANALYSIS IF IN BLOCK STRUCTURE AND ADD LABEL TO       LABEL     549
                                        *         CROSS REFERENCE TABLE.                                         LABEL     550
                                        *                (X2) = USAGE.                                           LABEL     551
                                                                                                                 LABEL     552
           245  0302000260 +             ISL70    ZR     X2,ISL72    IF AMBIGUOUS REFERENCE (ASSIGN)             FC5A450     7
                          43001                   CLAS=  X0,WB,(FREF)                                            LABEL     555
           246  11702                             BX7    X0*X2                                                   LABEL     556
                     0317000260 +                 NZ     X7,ISL72    IF PROCESSING FORMAT                        LABEL     557
                               43001              CLAS=  X0,WB,(DOT)                                             LABEL     558
                     11702                        BX7    X0*X2                                                   LABEL     560
                          0317000260 +            NZ     X7,ISL72    IF DEFINES NESTING                          LABEL     561
           250  20165                             HX1    WB.SREF                                                 FC50015    23
                     0331000255 +                 MI     X1,ISL71    IF NOT FIRST REF                            FC50015    24
           251  5110000000 X                      SA1    T.SYM                                                   LABEL     562
                          53117                   SA1    X1+B7       FETCH *WB*                                  LABEL     563
                               22001              LX0    X1                                                      LABEL     564
                                                  HX0    WB.FR                                                   LABEL     565
           252  21052                             AX0    -WB.FRL     EXTRACT FIRST REFERENCE                     LABEL     566
                     0310000255 +                 NZ     X0,ISL71    IF NOT FIRST REFERENCE                      LABEL     567
                               10711              BX7    X1                                                      LABEL     568
           253  5120000000 X                      SA2    REFLIN                                                  LABEL     569
                          20244                   LX2    -XR.LINEP+WB.FRP                                        LABEL     570
                               12727              BX7    X2+X7                                                   LABEL     571
           254  54710                             SA7    A1          UPDATE WITH FIRST REFERENCE LINE            LABEL     572
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    14
        STATEMENT LABELS.                                             ISL 
  
                                                                                                                 FC5A450     8
           255  5130000000 X             ISL71    SA3    T=BLST                                                  FC5A450     9
                          0303000260 +            ZR     X3,ISL72    IF NOT IN A BLOCK STRUCTURE                 FC5A450    10
           256  5110000271 +                      SA1    STLTAG                                                  FC5A450    11
                                                  HX1    TP.ORD                                                  LABEL     574
                          21154                   AX1    -TP.ORDL    EXTRACT SYMBOL TABLE ORDINAL                LABEL     575
                               10611              BX6    X1                                                      LABEL     576
           257  6120000000                        SB2    0           INDICATE LABEL BEING REFERENCED             LABEL     577
                          0100000672 +            RJ     ALU         ANALYZE THE LABEL USAGE                     LABEL     578
                                                                                                                 LABEL     579
                                        **        ADD LABEL TO CROSS REFERENCE TABLE -- IF SELECTED.             LABEL     580
                                                                                                                 LABEL     581
           260  5130000271 +             ISL72    SA3    STLTAG                                                  LABEL     582
                          5120000000 X            SA2    WO.LOR                                                  LABEL     583
           261  10633                             BX6    X3                                                      LABEL     584
                     0322000103 +                 PL     X2,EXIT.    IF NO REFERENCE MAP                         LABEL     585
                                                  HX3    TP.ORD      LEFT JUSTIFY                                LABEL     586
                               21354              AX3    -TP.ORDL    ISOLATE ORDINAL                             LABEL     587
           262  5110000000 X                      SA1    REFNUM                                                  LABEL     588
                          20352                   LX3    XR.TAGP                                                 LABEL     589
                               10633              ADDREF X3,X1                                                   LABEL     590
           264  5110000271 +                      SA1    STLTAG                                                  LABEL     591
                          10611                   BX6    X1          RESTORE TAG                                 LABEL     592
                               63720              SB7    X2          RESTORE INDEX                               LABEL     593
           265  43700                    ISL75    MX7    0                                                       FC51356    63
                     5170000267 +                 SA7    STLUSE                                                  FC51356    64
           266  0400000103 +                      EQ     EXIT.                                                   LABEL     594
                                                                                                                 LABEL     595
           267  00000000000000000000     STLUSE   DATA   0           TYPE OF REFERENCE ON ENTRY TO *ISL*         LABEL     596
           270  00000000000000000000     STL0R    CONENT 0           STATEMENT LABEL IN 0R FORMAT                LABEL     597
           271  00000000000000000000     STLTAG   DATA   0           PASS TWO TAG OF LABEL                       LABEL     598
  
  
  
  
                                        **        PSL -  PROCESS STATEMENT LABEL.                                LABEL     600
                                        *                                                                        LABEL     601
                                        *         ENTRY  (STN) = STATEMENT LABEL ON CURRENT CARD PROCESSING.     LABEL     602
                                        *                (DTI) = TAG OF STATEMENT LABEL IF THIS IS A DO-TERMINAL LABEL     603
                                        *                (INIF) = P2.TAG TO BE COMPILED IN FRONT OF NEXT STMNT   LABEL     604
                                        *                            FOR JUMP AROUND ANY ONE-BRANCH *IF*.        LABEL     605
                                        *                                                                        LABEL     606
                                        *         EXIT   IF STATEMENT LABEL PRESENT --                           LABEL     607
                                        *                1. IF *DO* LABEL PROCESS *DO* CONCLUSION CODE           LABEL     608
                                        *                                                                        LABEL     609
                                        *                EXIT TO FRONT END CONTROLLER *FEC*.                     LABEL     610
                                        *                                                                        LABEL     611
                                        *         USES   ALL REGISTERS.                                          LABEL     612
                                        *                                                                        LABEL     613
                                        *         CALLS  CSB, PDT                                                LABEL     614
                                                                                                                 LABEL     615
                                                                                                                 LABEL     616
           272                           PSL      BSSENT 0           ENTRY...                                    LABEL     617
           272  13666                             SHRINK T=ARG       IN CASE OF ERRORS                           LABEL     618
           273  5110000563 +                      SA1    CDIFLG                                                  LABEL     619
                          0301000302 +            ZR     X1,PSL1     IF NO ERRORS DURING *CDI*                   LABEL     620
           274  43600                             MX6    0                                                       LABEL     621
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    15
        STATEMENT LABELS.                                             PSL 
  
                     54610                        SA6    A1          RESET THE FLAG                              LABEL     622
                          5110000000 X            SA1    T.BLST                                                  LABEL     623
           275  5120000000 X                      SA2    T=BLST                                                  LABEL     624
                          6222777776              =B2    X2-1                                                    LABEL     625
           276  53112                             SA1    X1+B2       X1 = LC. WORD                               LABEL     626
                                                  LX1    -LC.CNTP                                                LABEL     627
                     6221777771                   SB2    X1-1-DO.W                                               LABEL     628
                                   0              ERRNZ  LC.CNTL-18                                              LABEL     629
                               55112              SA1    A1-B2       X1 = DO.W                                   LABEL     630
                                                  LX1    -DO.IODP                                                FC5A211    88
           277  63210                             SB2    X1          IMPLIED DO INDICATOR                        FC5A211    89
                                   0              ERRNZ  18-DO.IODL                                              FC5A211    90
                     43601                        MX6    1                                                       FC5A211    91
                          0520000301 +            NZ     B2,PSL0     IF IMPLIED DO                               FC5A211    92
           300  20152                             LX1    DO.IODP-DO.TAGP                                         FC5A211    93
                     73610                        SX6    X1                                                      LABEL     632
                                   0              ERRNZ  DO.TAGL-18                                              LABEL     633
                          20654                   LX6    TP.ORDP                                                 LABEL     634
           301  0100001136 +             PSL0     RJ     RBE         REMOVE BLOCK ENTRY                          FC5A211    94
                                                                                                                 LABEL     636
           302  5110000000 X             PSL1     SA1    HANGER                                                  LABEL     637
                          5120000000 X            SA2    INIF                                                    LABEL     638
           303  0311000311 +                      NZ     X1,PSL4     IF HANGING STATEMENT                        LABEL     639
                          0302000305 +            ZR     X2,PSL2     IF NO ACTIVE *IF*                           LABEL     640
           304  13666                             BX6    0                                                       LABEL     641
                     5160000000 X                 SA6    NOPATH                                                  LABEL     642
           305  0100000000 X             PSL2     CALL   CSB         CHECK FOR SEQUENCE BREAK                    LABEL     643
                                                                                                                 LABEL     644
                                        **        COMPILE DO-TERMINATION CODE, IF NECESSARY.                     LABEL     645
                                                                                                                 LABEL     646
           306  5120000000 X                      SA2    DTI                                                     LABEL     647
                          0302000000 X            ZR     X2,FEC.RTN  IF NO DO TERMINATION                        LABEL     648
           307  20222                             LX2    DO.TAGP                                                 LABEL     649
                     0100000571 +                 RJ     PDT         PROCESS *DO* TERMINATION                    LABEL     650
           310  0400000000 X                      EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...             LABEL     651
                                                                                                                 LABEL     652
           311  0312400311 +             PSL4     NZ     X2,"BLOWUP" IF PENDING IF-LABEL                         LABEL     653
                          0400000000 X            EQ     FEC.RTN     EXIT TO FRONT END CONTROLLER...             LABEL     654
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    16
        *DO* STATEMENT.                                               SDO 
  
                                        **        SDO -  SET-UP *DO* FOR PROCESSING                              LABEL     657
                                        *                                                                        LABEL     658
                                        *         *SDO* ENTERED FROM CONTROLLER. (*FEC*)                         LABEL     659
                                        *                                                                        LABEL     660
                                        *         ENTRY  (B4) _ *TB* WHERE *DO* STARTS.                          LABEL     661
                                        *                                                                        LABEL     662
                                        *         EXIT   TO PSL.                                                 LABEL     663
                                        *                                                                        LABEL     664
                                        *         USES   ALL REGISTERS.                                          LABEL     665
                                                                                                                 LABEL     666
                                                                                                                 LABEL     667
           312  00000000000000000000              CON    0           DUMMY FOR DUMB *ASK*                        LABEL     668
                                                                                                                 LABEL     669
           313                                    HEREIF DO                                                      LABEL     670
           313  5150000333 +                      SA5    SDOA                                                    LABEL     671
                          0100000000 X            CALL   ASK         ADJUST STATEMENT KEYWORD                    LABEL     672
           314  56140                             SA1    B4                                                      LABEL     673
                     6271777772                   SB7    X1-O.CONS                                               LABEL     674
           315  0570000000 X                      NZ     B7,E.DO05   IF NO LABEL                                 LABEL     675
                          0100000000 X            CALL   ASL         ADJUST STATEMENT LABEL                      LABEL     676
           316  10611                             BX6    X1                                                      LABEL     677
                     56440                        SA4    B4          FETCH SUPPOSED VARIABLE                     LABEL     678
                          6224777735              SB2    X4-O.COMMA                                              LABEL     680
           317  0520000320 +                      NZ     B2,SDO1     IF NOT A COMMA                              LABEL     681
                          66441                   =B4    B4+1        SKIP IT                                     LABEL     682
                               56440              SA4    B4                                                      LABEL     683
                                                                                                                 LABEL     684
           320  6224777766               SDO1     SB2    X4-O.VAR                                                LABEL     685
                          0520000000 X            NZ     B2,E.DO14   IF NO CONTROL INDEX                         LABEL     686
           321  6044000001                        SB4    A4+1        POINT TO *=*                                FC5A231   134
                          22704                   LX7    X4          SAVE CONTROL INDEX FOR  ERROR RECOVERY      FC50886     8
                               56440              SA4    B4                                                      FC50886     9
           322  6274777736                        SB7    X4-O.=                                                  FC50886    10
                          0470000327 +            ZR     B7,SDO3     IF *=*                                      FC50886    11
           323  6170000000 X                      FATAL  E.DO10                                                  FC50886    12
                                                                                                                 FC50886    13
           324  56441                    SDO2     =A4    B4+1                                                    FC50886    14
                     66441                        =B4    B4+1                                                    FC50886    15
                          0304000272 +            ZR     X4,PSL      IF *EOS*                                    FC50886    16
                                   0              ERRNZ  O.EOS                                                   FC50886    17
           325  6274777736                        SB7    X4-O.=                                                  FC50886    18
                          0570000324 +            NZ     B7,SDO2     IF NOT *=*, CONTINUE SEARCH                 FC50886    19
           326  5174777776                        SA7    B4-1        MOVE CONTROL INDEX TO LEFT OF *=*           FC50886    20
                                                                                                                 FC50886    21
           327  0100000334 +             SDO3     RJ     CDI         PROCESS *DO* DEFINITION                     FC50886    22
           330  5130000000 X                      SA3    FLOW                                                    LABEL     695
                          0303000272 +            ZR     X3,PSL      IF DO IS ACCESSABLE (NOT NOPATH)            LABEL     696
                                                                                                                 LABEL     697
                                        *         NOTE - FOR DO LOOPS, ONLY THE DO STATEMENT WILL GET THE NOPATH LABEL     698
                                        *                WARNING MESSAGE.  FLOW, NOPATH AND LDEAD ARE CLEARED,   LABEL     699
                                        *                AND THE DO LOOP CODE WILL BE GENERATED. CHECKING ALL    LABEL     700
                                        *                CASES FOR NOPATH CONDITIONS DIDNT SEEM WORTH THE CODE   LABEL     701
                                        *                SAVINGS.                                                LABEL     702
                                                                                                                 LABEL     703
           331  13777                             BX7    0                                                       LABEL     704
                     54730                        SA7    A3                                                      LABEL     705
                          5170000000 X            SA7    NOPATH                                                  LABEL     706
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    17
        *DO* STATEMENT.                                               SDO 
  
           332  5170000000 X                      SA7    LDEAD                                                   LABEL     707
                          0400000000 X            EQ     E.NP1                                                   LABEL     708
                                                                                                                 LABEL     709
           333  04170000000013001214 +   SDOA     VFD    24/2LDO,9/0,9/2*CHAR-1,18/=1L0+1                        LABEL     710
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    18
        *DO* STATEMENT.                                               CDI 
  
                                        **        CDI -  COMPILE *DO* INITIAL TURPLES.                           LABEL     712
                                        *                                                                        LABEL     713
                                        *         ENTRY  (B4) _ *=* OF *DO* STATEMENT.                           LABEL     714
                                        *                (X6) =                                                  LABEL     715
                                        *                1. IF LOW ORDER 18 BITS ARE ZERO                        LABEL     716
                                        *                   PROCESSING A PROGRAMMER *DO*                         LABEL     717
                                        *                2. OTHERWISE ASSUMED TO BE A I/O LIST PROCESSOR CALL.   LABEL     718
                                        *                                                                        LABEL     719
                                        *         EXIT   ENTRYS MADE INTO -                                      LABEL     720
                                        *                (X6) = 0                                                LABEL     721
                                        *                1. T.SYM OF STATEMENT LABEL.(IF NOT I/O LIST PROCESS)   LABEL     722
                                        *                2. T.BLST OF *DO* PARAMETERS. (SEE T.BLST WRITE-UP)     LABEL     723
                                        *                                                                        LABEL     724
                                        *                (X6) = 1S59                                             LABEL     725
                                        *                *DO* DEFINITION CONTAINED AN ERROR -- NO TABLE ENTRIES  LABEL     726
                                        *                MADE IN T.BLST.                                         LABEL     727
                                        *                                                                        LABEL     728
                                        *         CALLS  ACT,ALC,CT1,DTC,EMT,FLP,ISL,INN,LCT,MXP,PAR             LABEL     729
                                        *                                                                        LABEL     730
                                        *         USES   ALL REGISTERS.                                          LABEL     731
                                                                                                                 LABEL     732
                                                                                                                 LABEL     733
           334  0400400334 +             CDI      SUBR   =           ENTRY/EXIT...                               LABEL     734
           335  5120000000 X                      SA2    E=TOTAL                                                 LABEL     735
                          7272000001              SX7    X2+1                                                    LABEL     736
           336  5170000563 +                      SA7    CDIFLG      PRESERVE ORIGINAL STMT ERROR COUNT          LABEL     737
                          63760                   SB7    X6                                                      LABEL     738
                               76770              SX7    B7                                                      FC50632     7
           337  5170000562 +                      SA7    CDIE        INDICATE USER VS I/O DO                     FC50632     8
                          0570000345 +            NZ     B7,CDI10    IF I/O DO                                   LABEL     740
                                                                                                                 LABEL     741
                                        **        IDENTIFY STATEMENT LABEL AS DO TERMINATOR.                     LABEL     742
                                                                                                                 LABEL     743
           340  7120000040                        CLAS=  X2,WB,(DOT)                                             LABEL     744
                          7170000004              =X7    CR.DO       MARK DO IN CROSS REF.                       LABEL     745
           341  5170000000 X                      SA7    REFNUM                                                  LABEL     746
                          0100000103 +            RJ     ISL         IDENTIFY STATEMENT LABEL                    LABEL     747
           342  0326000344 +                      PL     X6,CDI5     IF NO ERROR IN DO STATEMENT LABEL           LABEL     748
                          43700                   MX7    0                                                       LABEL     749
           343  5170000563 +                      SA7    CDIFLG                                                  LABEL     750
                          0400000334 +            EQ     EXIT.                                                   LABEL     751
                                                                                                                 LABEL     752
                                         CDI5     HX6    TP.ORD                                                  LABEL     753
           344  21654                             AX6    -TP.ORDL                                                LABEL     754
                     20622                        LX6    DO.TAGP     INDICATE PROGRAMMER DO                      LABEL     755
                                                                                                                 LABEL     756
                                        *         INVENT DO-BEGIN LABEL, CREATE (T.BLST) ENTRY.                  LABEL     757
                                        *                (X6) = DO.[TAG OR IOD] SET UP.                          LABEL     758
                                                                                                                 LABEL     759
           345  5110000000 X             CDI10    SA1    N.DOB                                                   LABEL     760
                          5160000556 +            SA6    CDIA        SAVE TAG FOR TERMINAL LABEL                 LABEL     761
           346  7170041757                        SX7    3RDO.                                                   LABEL     762
                          0100000000 X            CALL   INN         INVENT NEW NAME FOR DO-BEGIN LABEL          LABEL     763
           347  5150000000 X                      SA5    REFLIN                                                  LABEL     764
                          5140000556 +            SA4    CDIA                                                    LABEL     765
           350  43160                             MX1    -WB.TLL                                                 LABEL     766
                     20452                        LX4    -DO.TAGP                                                LABEL     767
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    19
        *DO* STATEMENT.                                               CDI 
  
                          15741                   BX7    -X1*X4                                                  LABEL     768
                               54321              =A3    A2-WB.W+WC.W                                            LABEL     769
           351  20530                             LX5    -XR.LINEP+WC.LINEP                                      LABEL     770
                     20741                        LX7    WB.TLP                                                  LABEL     771
                          7110024210              CLAS=  X1,WB,(DOGL,SDEF,LAB,ACT)                               FC5A125    18
           352  12227                             BX2    X2+X7       SET SYMORD OF TERMINAL LABEL                LABEL     773
                     12735                        BX7    X3+X5       SET DEFLINE IN SYMTAB(DOGL)                 LABEL     774
                          12612                   BX6    X1+X2                                                   LABEL     775
                               54730              SA7    A3                                                      LABEL     776
           353  63500                             SB5    X0          REMEMBER (B5) = SYMORD OF DOBEGIN           LABEL     777
                     54620                        SA6    A2          SET ATTRIBUTES FOR DOBEGIN LABEL            LABEL     778
                          10600                   BX6    X0                                                      LABEL     779
           354  5160000557 +                      SA6    CDIB        SAVE SYMORD                                 LABEL     780
                          5110000000 X            ALLOC  T.BLST,Z=BLST+1                                         LABEL     784
           356  7120000011                        SX2    Z=BLST+1                                                LABEL     785
                          20560                   LX5    -WC.LINEP+LC.LINEP                                      LABEL     786
                                                  LX2    LC.CNTP                                                 LABEL     787
                               12652              BX6    X5+X2       ORGIN/COUNT WORD                            LABEL     788
           357  10744                             BX7    X4                                                      LABEL     789
                     76450                        SX4    B5                                                      LABEL     790
                          20401                   LX4    1                                                       LABEL     791
                               73445              SX4    X4+B5                                                   LABEL     792
           360  73441                             =X4    X4+WB.W     CONVERT TO *WB* INDEX                       LABEL     793
                     20444                        LX4    LC.DOP                                                  LABEL     794
                          12664                   BX6    X6+X4       MERGE IN DO.N INDEX                         LABEL     795
                               20722              LX7    DO.TAGP                                                 LABEL     796
           361  57671                             SA6    B7-B1                                                   LABEL     797
                     76050                        SX0    B5                                                      LABEL     798
                          5177777773              =A7    B7-Z=BLST-1+DO.W                                        LABEL     799
           362  0100000000 X                      CALL   CT1         CONSTRUCT (TP) FOR DOB LAB                  LABEL     800
           363  55671                             =A6    A7-DO.W+DORT.W                                          LABEL     801
                     76700                        =X7    0                                                       LABEL     802
                          5076000003              =A7    A6-DORT.W+DP.W  CLEAR                                   LABEL     803
           364  5110000000 X                      SA1    CONONE      INITIALIZE INDUCTION PARAMETERS             FC50749     9
                          10711                   BX7    X1                                                      FC50749    10
                               22601              LX6    X1                                                      FC50749    11
           365  5067777772                        =A6    A7-DP.W+DOII.W                                          FC50749    12
                          55761                   =A7    A6-DOII.W+DOLI.W                                        FC50749    13
                               55671              =A6    A7-DOLI.W+DOSI.W                                        FC50749    14
                                                                                                                 LABEL     804
                                        *         PARSE DO INDICIES.                                             LABEL     805
                                        *                INSTALL SPECIAL LEFT PAREN IF I/O LOOP.                 LABEL     807
                                                                                                                 LABEL     808
           366  5120000556 +                      SA2    CDIA                                                    LABEL     809
                          63320                   SB3    X2                                                      LABEL     810
                               67441              SB4    B4-B1       POINT TO TOKEN FOR CONTROL INDEX            LABEL     811
           367  0430000371 +                      ZR     B3,CDI20    IF NOT IN I/O LIST PROCESSING               LABEL     812
                          7160000044              =X6    O.SLP                                                   LABEL     814
           370  57641                             SA6    B4-B1       INDICATE TERMINATION OF MATCHING *)*        LABEL     817
                     67441                        SB4    B4-B1                                                   LABEL     818
                                                                                                                 FC5A371     7
           371  76700                    CDI20    =X7    0                                                       LABEL     819
                     5130000000 X                 SA3    DOARM                                                   LABEL     820
                               10633              BX6    X3                                                      LABEL     821
           372  5170000000 X                      SA7    ARGCOMA                                                 LABEL     822
                          5160000000 X            SA6    ARGMODE                                                 LABEL     823
           373  0100000000 X                      CALL   PAR         PARSE DO INDICIES                           LABEL     824
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    20
        *DO* STATEMENT.                                               CDI 
  
                                                                                                                 LABEL     825
                                        *         DETERMINE TRIP COUNT, PUT IT IN THIS T.BLST ENTRY.             LABEL     826
                                                                                                                 LABEL     827
           374  0100000000 X                      CALL   DTC         DETERMINE TRIP COUNT                        LABEL     828
           375  5110000000 X                      SA1    T.BLST                                                  LABEL     829
                          5120000000 X            SA2    T=BLST                                                  LABEL     830
           376  36112                             IX1    X1+X2                                                   LABEL     831
                     6251777766                   SB5    X1-Z=BLST-1                                             LABEL     832
                               22605              LX6    X5                                                      LABEL     833
           377  5160000561 +                      SA6    CDID        SAVE TC FOR POSSIBLE OPTIMIZATION           FC50594     7
                          5165000006              SA6    B5+DOTC.W                                               LABEL     834
                                                                                                                 FC5A138    19
                                        *         OUTPUT THE STORE OF START INDEX INTO DO CONTROL.               FC5A138    20
                                                                                                                 FC5A138    21
           400  5046777771                        =A4    A6-DOTC.W+DOSI.W                                        FC5A138    22
                          5054000003              =A5    A4-DOSI.W+DOCI.W                                        FC5A138    23
           401  6160000001 X                      SB6    ESTACK+1                                                FC5A138    24
                          7110000041              SX1    O.=                                                     FC5A138    25
           402  0100000000 X                      CALL   ACT         OUTPUT STORE TURPLE                         FC5A138    26
           403  5110000000 X                      SA1    T.BLST                                                  FC5A138    28
                          5120000000 X            SA2    T=BLST                                                  FC5A138    29
           404  36112                             IX1    X1+X2                                                   FC5A138    30
                     6251777766                   SB5    X1-Z=BLST-1                                             FC5A138    31
           405  5120000000 X                      SA2    E=TOTAL                                                 LABEL     835
                          5140000563 +            SA4    CDIFLG                                                  LABEL     836
           406  7244777776                        =X4    X4-1                                                    LABEL     837
                          37224                   IX2    X2-X4                                                   LABEL     838
                               43600              MX6    0                                                       LABEL     839
           407  54640                             SA6    A4          RESET THE FLAG                              LABEL     840
                     0302000414 +                 ZR     X2,CDI30    IF NO ERRORS INSIDE DO                      LABEL     841
                               13777              BX7    0                                                       LABEL     844
           410  5125000005                        SA2    B5+DO.W                                                 FC5A138    32
                          5175000004              SA7    B5+DORT.W   INDICATE ERROR IN DO                        FC5A138    33
           411  63720                             SB7    X2                                                      LABEL     848
                     43601                        MX6    1           INDICATE ERROR                              LABEL     849
                          0470000334 +            ZR     B7,EXIT.    IF PROGRAM DEFINED *DO* (NOT I/O)           LABEL     850
           412  43601                             MX6    1                                                       FC5A111   150
                     0100001136 +                 RJ     RBE         REMOVE BLOCK ENTRY FOR IMPLIED DO           FC5A111   151
           413  43601                             MX6    1           INDICATE ERROR                              LABEL     852
                     0400000334 +                 EQ     EXIT.                                                   LABEL     853
                                                                                                                 LABEL     854
                                        *         TEST INCREMENT FOR CONSTANT.  IF NOT CONSTANT, INVENT CELL     LABEL     855
                                        *         TO STORE THE INCREMENT.  REPLACE INCREMENT WITH CELL NAME      LABEL     856
                                        *         (TP. FORMAT) IN DOII.W.                                        LABEL     857
                                        *                (B5) _ DOSI.W OF THE CURRENT DO                         LABEL     858
                                                                                                                 LABEL     859
           414  5145000002               CDI30    SA4    B5+DOII.W                                               LABEL     860
                          10144                   BX1    X4                                                      LABEL     861
                               22504              LX5    X4          SAVE INCREMENT                              LABEL     862
           415  0100000000 X                      CALL   LCT         TEST FOR CONSTANT                           LABEL     863
           416  0520000427 +                      NZ     B2,CDI40    IF CONSTANT                                 LABEL     864
                          5120000000 X            SA2    N.DOB                                                   LABEL     865
           417  5110000556 +                      SA1    CDIA        USE AS DUMMY FOR INN                        LABEL     866
                          7212777776              SX1    X2-1        USE LAST DO.N NUMBER                        LABEL     867
           420  7170041157                        SX7    3RDI.                                                   LABEL     868
                          0100000000 X            CALL   INN         INVENT NEW NAME FOR INCREMENT VARIABLE      LABEL     869
           421  22405                             LX4    X5          RESTORE INCREMENT VARIABLE                  LABEL     870
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    21
        *DO* STATEMENT.                                               CDI 
  
                     7170000040                   CLAS=  X7,WB,(VAR)                                             LABEL     871
                               43171              MX1    -WB.MODEL                                               LABEL     872
                                   0              ERRNZ  TP.MODEL-WB.MODEL                                       LABEL     873
           422  15141                             BX1    -X1*X4      EXTRACT MODE                                LABEL     874
                                   0              ERRNZ  TP.MODEP-WB.MODEP+TP.MODEL-WB.MODEL                     LABEL     875
                     12772                        BX7    X7+X2                                                   LABEL     876
                          12771                   BX7    X7+X1                                                   LABEL     877
                               54720              SA7    A2          UPDATE *WB*                                 LABEL     878
           423  0100000000 X                      CALL   CT1         GET TP. FORMAT                              LABEL     879
           424  7110000041                        SX1    O.=                                                     LABEL     880
                          6160000001 X            SB6    ESTACK+1                                                LABEL     881
           425  22506                             LX5    X6                                                      LABEL     882
                     0100000000 X                 CALL   ACT         OUTPUT STORE TURPLE FOR INCREMENT CELL      LABEL     883
           426  43673                             MX6    -1          MARK POSSIBLE NEGATIVE INCREMENT            LABEL     884
                                                                                                                 LABEL     885
                                        **        SELECT PROPER DO BEGIN SKELETON AND MODIFY AS NECESSARY THE    LABEL     886
                                        *         DO CONCLUSION SKELETON FOR MEGATURPLE OUTPUT.                  LABEL     887
                                        *                (X5) = OPERAND FOR (DOII.W).                            LABEL     888
                                                                                                                 LABEL     889
           427  0326000433 +             CDI40    PL     X6,CDI405   IF NOT POSSIBLE NEGATIVE INCREMENT          LABEL     890
                          5120000557 +            SA2    CDIB        SYMORD OF LOOP TOP LABEL                    LABEL     891
           430  5110000000 X                      SA1    T.SYM                                                   LABEL     892
                          22612                   LX6    B1,X2                                                   LABEL     893
                               36262              IX2    X6+X2                                                   LABEL     894
           431  36121                             IX1    X2+X1                                                   LABEL     895
                     5221000001                   SA2    X1+WB.W                                                 LABEL     896
                               43101              MX1    1                                                       LABEL     897
           432  20134                             LX1    1+WB.NINP                                               LABEL     898
                     12612                        BX6    X1+X2       NIN[WB(LOOPTOP)] = 1                        LABEL     899
                          54620                   SA6    A2                                                      LABEL     900
                                                                                                                 LABEL     901
           433  5110000000 X             CDI405   SA1    T.BLST                                                  LABEL     902
                          5120000000 X            SA2    T=BLST                                                  LABEL     903
           434  36112                             IX1    X1+X2                                                   LABEL     904
                     6251777766                   SB5    X1-Z=BLST-1                                             LABEL     905
                               10655              BX6    X5          POSSIBLY RESET INCREMENT OPERAND            LABEL     906
           435  5165000002                        SA6    B5+DOII.W                                               LABEL     907
                          5155000001              SA5    B5+DOLI.W   X5 = DO LIMIT                               LABEL     908
           436  0100000000 X                      CALL   BBC         CONVERT TO BASE/BIAS FORM                   LABEL     909
           437  10655                             BX6    X5                                                      LABEL     910
                     5165000001                   SA6    B5+DOLI.W   REPLACE TABLE ENTRY WITH CONVERSION         LABEL     911
           440  5155000003                        SA5    B5+DOCI.W   X5 = OPERAND FOR CONTROL INDEX              LABEL     912
                          5110000000 X            SA1    T=BLST                                                  FC5A138    34
           441  10611                             BX6    X1                                                      LABEL     914
                     0100000000 X                 CALL   MDD         MARK DO PARAMETER DEFINED                   LABEL     915
           442  5115000006                        SA1    B5+DOTC.W                                               LABEL     916
                          0100000000 X            CALL   LCT         TEST FOR CONSTANT TRIP COUNT                LABEL     917
           443  5110000000 X                      SA1    WO.DOOT     MINIMUM TRIP COUNT                          LABEL     918
                          63310                   SB3    X1                                                      LABEL     919
           444  0420000500 +                      ZR     B2,CDI70    IF TRIP COUNT NOT CONSTANT                  LABEL     920
                          76010                   =X0    1                                                       FC5A132   101
                               37060              IX0    X6-X0                                                   FC5A132   102
           445  0320000457 +                      PL     X0,CDI50    IF TRIP COUNT .GE. 1                        LABEL     922
                          6170000000 X            SB7    E.DO01                                                  LABEL     923
           446  0430000447 +                      ZR     B3,CDI41    IF IN ZERO TRIP MODE                        LABEL     924
                          6170000000 X            SB7    E.DO18      FATAL - TRIP COUNT LESS THAN 1              LABEL     925
                                                                                                                 LABEL     926
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    22
        *DO* STATEMENT.                                               CDI 
  
           447  0100000000 X             CDI41    WARN   B7                                                      LABEL     927
           450  5110000000 X                      SA1    N.GL                                                    LABEL     928
                          5125000007              SA2    B5+DP.W                                                 LABEL     929
           451  7140040000                        CLAS=  X4,TP,(GL)                                              LABEL     930
                          10711                   BX7    X1                                                      LABEL     931
                               73611              =X6    X1+1                                                    LABEL     932
           452  54610                             SA6    A1          INCREMENT N.GL                              LABEL     933
                     20154                        LX1    TP.ORDP                                                 LABEL     934
                          12414                   BX4    X1+X4       (1OP) = GL FOR EXIT                         LABEL     935
                               20752              LX7    DP.DOXLP                                                LABEL     936
           453  12772                             BX7    X7+X2                                                   LABEL     937
                     43052                        MX0    -DP.TURCL                                               LABEL     938
                                                  LX0    DP.TURCP                                                LABEL     939
                          11707                   BX7    X0*X7       CLEAR CONCLUSION SKELETON                   LABEL     940
                               54720              SA7    A2          UPDATE DP.W                                 LABEL     941
           454  43500                             MX5    0           (2OP) = NULL                                LABEL     942
                     6130000000 X                 EMIT   V=GOTO                                                  LABEL     943
           456  43600                             MX6    0                                                       LABEL     944
                     0400000334 +                 EQ     EXIT.                                                   LABEL     945
                                                                                                                 LABEL     946
                                        *         CONSTANT TRIP COUNT.  DO LOOP MUST MATERIALIZE.                LABEL     947
                                        *                (B5) _ DOSI.W OF THE CURRENT DO                         LABEL     948
                                        *                (X6) = TRIP COUNT (BINARY)                              LABEL     949
                                                                                                                 LABEL     950
           457  5110000000 X             CDI50    SA1    WO.DOLG     DO LOOP LENGTH INDICATOR                    FC5A371     8
                          6130000001              SB3    1           LOOP EXECUTES, MODIFY TRIP COUNT INDICATOR  FC5A371     9
           460  0311000500 +                      NZ     X1,CDI70    IF LONG LOOP SELECTED                       FC5A371    10
                          5110001214 +            SA1    =10HTRIP COUNT                                          FC5A371    11
           461  7120377777                        SX2    MAX.SDL                                                 FC5A371    12
                          10711                   BX7    X1                                                      FC5A371    13
                               76010              =X0    1                                                       FC5A371    14
           462  36020                             IX0    X2+X0                                                   FC5A371    15
                     37062                        IX0    X6-X2                                                   FC5A371    16
                          0320000476 +            PL     X0,CDI60    IF TRIP COUNT TOO LARGE FOR SHORT LOOP      FC5A371    17
           463  5115000000                        SA1    B5+                                                     FC5A371    18
                          0100000564 +            RJ     KDI         CONVERT INITIAL                             FC5A371    19
           464  22306                             LX3    X6          *M1* BINARY                                 FC5A371    20
                     56151                        =A1    B5-DOSI.W+DOLI.W                                        FC5A371    21
                          0100000564 +            RJ     KDI         CONVERT LIMIT                               FC5A371    22
           465  22406                             LX4    X6          *M2* BINARY                                 FC5A371    23
                     5115000002                   =A1    B5-DOSI.W+DOII.W                                        FC5A371    24
           466  0100000564 +                      RJ     KDI         CONVERT INCREMENT                           FC5A371    25
           467  7120377777                        SX2    MAX.SDL                                                 FC5A371    26
                          76010                   =X0    1                                                       FC5A371    27
                               36202              IX2    X0+X2                                                   FC5A371    28
           470  36336                             IX3    X3+X6       *M1+M3*                                     FC5A371    29
                     0323000471 +                 PL     X3,CDI51    IF POSITIVE                                 FC5A371    30
                               14333              BX3    -X3         ABSOLUTE VALUE                              FC5A371    31
                                                                                                                 FC5A371    32
           471  5110001215 +             CDI51    SA1    =5HM1+M3                                                FC5A371    33
                          22701                   LX7    X1                                                      FC5A371    34
                               37332              IX3    X3-X2                                                   FC5A371    35
           472  0323000476 +                      PL     X3,CDI60    IF M1+M3 TOO LARGE FOR SHORT LOOP           FC5A371    36
                          36446                   IX4    X4+X6       *M2+M3*                                     FC5A371    37
           473  0324000474 +                      PL     X4,CDI52    IF POSITIVE                                 FC5A371    38
                          14444                   BX4    -X4         ABSOLUTE VALUE                              FC5A371    39
                                                                                                                 FC5A371    40
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    23
        *DO* STATEMENT.                                               CDI 
  
           474  5110001216 +             CDI52    SA1    =5HM2+M3                                                FC5A371    41
                          10711                   BX7    X1                                                      FC5A371    42
                               37442              IX4    X4-X2                                                   FC5A371    43
           475  0334000500 +                      MI     X4,CDI70    IF M2+M3 IS SMALL ENOUGH FOR SHORT LOOP     FC5A371    44
                                                                                                                 FC5A371    45
           476  5170000000 X             CDI60    SA7    FILL.3                                                  FC5A371    46
                          6170000000 X            FATAL  E.DO03      ** TOO LARGE FOR SHORT LOOP                 FC5A371    47
                                                                                                                 LABEL     963
                                        **        SELECT THE PROPER TURPLE                                       LABEL     964
                                        *                (B3) = MINIMUM TRIP COUNT INDICATOR                     LABEL     965
                                        *                (B5) _ DOSI.W OF THE CURRENT DO                         LABEL     966
                                                                                                                 LABEL     967
           500  0530000503 +             CDI70    NZ     B3,CDI80    IF ONE TRIP DO LOOPS SELECTED               LABEL     968
                          5110000000 X            SA1    N.GL                                                    LABEL     969
           501  5125000007                        SA2    B5+DP.W                                                 LABEL     970
                          73611                   =X6    X1+1                                                    LABEL     971
                               54610              SA6    A1          INCREMENT N.GL                              LABEL     972
           502  20152                             LX1    DP.DOXLP                                                LABEL     973
                     12612                        BX6    X1+X2       ADD IN DOXL                                 LABEL     974
                          54620                   SA6    A2                                                      LABEL     975
                                                                                                                 FC50594     8
           503  5110000000 X             CDI80    SA1    WO.DOLG     DO LOOP LENGTH                              LABEL     976
                          5125000003              SA2    B5+DOCI.W                                               FC50050     4
           504  43071                             MX0    -TP.MODEL                                               FC50050     5
                                                  LX2    -TP.MODEP                                               FC50050     6
                     15020                        BX0    -X0*X2                                                  FC50050     7
                          6220777774              SB2    X0-M.REAL                                               FC50050     8
           505  0720000506 +                      MI     B2,CDI81    IF CONTROL VARIABLE INTEGER OR BOOLEAN      FC50050     9
                          76110                   =X1    1           SIMULATE LONG LOOP                          FC50050    10
                                                                                                                 FC50050    11
           506  20101                    CDI81    LX1    1                                                       FC50050    12
                     63313                        SB3    B3+X1       SELECT PROPER TURPLE HEADER                 LABEL     978
                          5123000000 X            SA2    B3+DO.BEG   FETCH PROPER TURPLE HEADER                  LABEL     979
           507  22602                             LX6    X2                                                      LABEL     980
                     5160000560 +                 SA6    CDIC        SAVE FOR TURPLE OUTPUT                      LABEL     981
                                                                                                                 LABEL     982
                                        *         INVENT TRIP COUNT VARIABLE                                     LABEL     983
                                                                                                                 LABEL     984
           510  5110000561 +                      SA1    CDID        TRIP COUNT                                  FC50594     9
                          0100000000 X            CALL   LCT         CHECK FOR CONSTANT                          FC50594    10
           511  0420000525 +                      ZR     B2,CDI82    IF TRIP COUNT NOT CONSTANT                  FC50594    11
                          76110                   SX1    B1                                                      FC50915     6
                               37661              IX6    X6-X1                                                   FC50915     7
           512  0316000525 +                      NZ     X6,CDI82    IF TRIP COUNT " 1                           FC50594    13
                          5110000000 X            SA1    T.BLST                                                  FC50594    14
           513  5120000000 X                      SA2    T=BLST                                                  FC50594    15
                          5130000000 X            SA3    =XCO.OPT                                                FC5A511    19
           514  63230                             SB2    X3                                                      FC5A511    20
                     6252777775                   SB5    X2-Z=BLST-1+DP.W                                        FC51364    18
                               53315              SA3    X1+B5                                                   FC51364    19
           515  6170000000 X                      SB7    V=DOC.S                                                 FC51364    20
                          14333                   BX3    -X3                                                     FC51364    21
                               73337              SX3    X3+B7                                                   FC51364    22
           516  0313000522 +                      NZ     X3,CDI81A   IF SKEL NOT V=DOC.S                         FC51364    23
                          7160000000 X            SX6    V=DOC.O                                                 FC5A511    21
           517  0420000520 +                      EQ     B2,CDI81B   IF OPT .EQ. 0                               FC5A511    22
                          7160000000 X            SX6    =YV=DOC.1                                               FC5A511    23
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    24
        *DO* STATEMENT.                                               CDI 
  
                                                                                                                 FC5A511    24
           520  54630                    CDI81B   SA6    A3                                                      FC5A511    25
                     5140000000 X                 SA4    T=DATL                                                  FC51499     9
           521  0304000525 +                      ZR     X4,CDI82    IF NOT IN DATA STATEMENT                    FC51499    10
                                                                                                                 FC51364    28
           522  6252777766               CDI81A   SB5    X2-Z=BLST-1 INDEX OF THIS DO ENTRY                      FC51364    29
                          43674                   MX6    -0          INDICATE ONE TRIP DO                        FC50594    17
                               63515              SB5    X1+B5                                                   FC50594    18
           523  5165000004                        SA6    B5+DORT.W   REFLECT ONE TRIP                            FC50594    19
                          7160000000              SX6    0           INDICATE NO ERROR                           FC50594    20
           524  0400000334 +                      EQ     EXIT.                                                   FC50594    21
                                                                                                                 FC50594    22
           525  5120000000 X             CDI82    SA2    N.DOB                                                   FC50594    23
                          5110000556 +            SA1    CDIA        USE AS DUMMY FOR INN                        LABEL     986
           526  7212777776                        SX1    X2-1        USE LAST DO.N NUMBER                        LABEL     987
                          7170040357              SX7    3RDC.                                                   LABEL     988
           527  0100000000 X                      CALL   INN         INVENT NEW NAME FOR TRIP COUNT VARIABLE     LABEL     989
           530  7170000042                        CLAS=  X7,WB,(VAR),INT                                         LABEL     990
                          12772                   BX7    X7+X2                                                   LABEL     991
                               54720              SA7    A2          UPDATE *WB*                                 LABEL     992
           531  5130000000 X                      SA3    T.BLST                                                  LABEL     993
                          5140000000 X            SA4    T=BLST                                                  LABEL     994
           532  6254777766                        SB5    X4-Z=BLST-1 (B5) = (T.BLST) INDEX OF THIS DO            LABEL     995
                          63735                   SB7    X3+B5                                                   LABEL     996
           533  5117000007                        SA1    B7+DP.W                                                 LABEL     997
                          22600                   LX6    X0                                                      LABEL     998
                               20622              LX6    DP.DOTIP                                                LABEL     999
           534  12616                             BX6    X1+X6       MERGE IN TRIP COUNT ORDINAL                 LABEL    1000
                     54610                        SA6    A1                                                      LABEL    1001
                                                                                                                 LABEL    1002
                                        **        FINALLY, EMIT DO-INITIAL MEGATURPLE TO THE IL.                 LABEL    1003
                                        *                                                                        LABEL    1004
                                        *         A DO-INITIAL MEGA-TURPLE CONSISTS OF THREE TURPLES,            LABEL    1005
                                        *         ORGANIZED AS FOLLOWS --                                        LABEL    1006
                                        *                                                                        LABEL    1007
                                        *         1.  OPR = DOBEGIN SKELETON.                                    LABEL    1008
                                        *                P1 = CONTROL INDEX.               (DOCI.W)              LABEL    1009
                                        *                P2 = TRIP COUNT.                  (DOTC.W)              LABEL    1010
                                        *                                                                        LABEL    1011
                                        *         2.  OPR = NOOP.                                                LABEL    1012
                                        *                P3 = TRIP COUNT VARIABLE (DC.N).  (DP.DOTI)             LABEL    1013
                                        *                P4 = UPPER VALUE        (DOLI.W)                        LABEL    1014
                                        *                                                                        LABEL    1015
                                        *         3.  OPR = NOOP.                                                LABEL    1016
                                        *                P5 = GL FOR DO-BEGIN.             (DORT.W)              LABEL    1017
                                        *                P6 = GL FOR DO-END.               (DP.DOXL)             LABEL    1018
                                        *                                                                        LABEL    1019
                                        *         NOTE THAT (P6) IS OMITTED (ZERO) FOR A ONE-TRIP LOOP.          LABEL    1020
                                        *                                                                        LABEL    1021
                                        *         ALSO RECORD POINTER TO THIS MEGATURPLE IN THE (T.BLST) ENTRY.  LABEL    1022
                                                                                                                 LABEL    1023
                                                                                                                 LABEL    1024
                          5110000000 X            SA1    T=PAR                                                   LABEL    1025
           535  5127000005                        =A2    B7+DO.W                                                 LABEL    1026
                          20152                   LX1    DO.FLGP                                                 LABEL    1027
                               12612              BX6    X1+X2       RECORD INDEX OF DOB MEGATURPLE              LABEL    1028
           536  5147000003                        =A4    B7+DOCI.W                                               LABEL    1029
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    25
        *DO* STATEMENT.                                               CDI 
  
                          5054000003              =A5    A4-DOCI.W+DOTC.W                                        LABEL    1030
           537  54620                             SA6    A2                                                      LABEL    1031
                     6130400560 +                 EMIT   CDIC,*                                                  LABEL    1032
                                                                                                                 LABEL    1033
           541  5130000000 X                      SA3    T.BLST                                                  LABEL    1034
                          63735                   SB7    X3+B5                                                   LABEL    1035
           542  5147000007                        =A4    B7+DP.W                                                 LABEL    1036
                          56571                   =A5    B7+DOLI.W                                               LABEL    1037
                               20430              HX4    DP.DOTI                                                 LABEL    1038
           543  21452                             AX4    -DP.DOTIL   EXTRACT TRIP COUNT VARIABLE ORDINAL         LABEL    1039
                     22004                        LX0    X4                                                      LABEL    1040
                          0100000000 X            CALL   CT1         GET INTO TP. FORMAT                         LABEL    1041
           544  10466                             BX4    X6                                                      LABEL    1042
                     6130030000 X                 EMIT   V=NOOP,BOTH                                             LABEL    1043
                                                                                                                 LABEL    1044
           546  5130000000 X                      SA3    T.BLST                                                  LABEL    1045
                          63735                   SB7    X3+B5                                                   LABEL    1046
           547  5147000004                        =A4    B7+DORT.W                                               LABEL    1047
                          5054000003              =A5    A4-DORT.W+DP.W                                          LABEL    1048
                                                  HX5    DP.DOXL                                                 LABEL    1049
           550  21552                             AX5    -DP.DOXLL   EXTRACT DO END GL ORDINAL                   LABEL    1050
                     0305000552 +                 ZR     X5,CDI90    IF NO GENERATED LABEL                       LABEL    1051
                               43101              CLAS=  X1,TP,(GL)                                              LABEL    1052
                     20554                        LX5    TP.ORDP                                                 LABEL    1053
                          12551                   BX5    X5+X1                                                   LABEL    1054
                                                                                                                 FC5A371    48
           552  6130000000 X             CDI90    EMIT   V=NOOP                                                  LABEL    1055
           553  5110000562 +                      SA1    CDIE        TYPE OF DO                                  FC50632     9
                          0311000555 +            NZ     X1,CDI95    IF I/O DO                                   FC50632    10
           554  0100000000 X                      CALL   OIL         FLUSH I.L.                                  FC50632    11
                                                                                                                 FC50632    12
           555  7160000000               CDI95    SX6    0           INDICATE NO ERRORS                          FC50632    13
                                                                                                                 LABEL    1060
                                         SNAP=N   IFEQ   TEST,ON                                                 LABEL    1061
                                                  SA1    CO.SNAP                                                 LABEL    1062
                                                  LX1    1RN                                                     LABEL    1063
                                                  PL     X1,CDIXX    IF (SNAP=N) NOT SELECTED                    LABEL    1064
                                         CDI      DUMPT  (BLST)                                                  LABEL    1065
                                         CDIXX    BSS                                                            LABEL    1066
                                         SNAP=N   ENDIF                                                          LABEL    1067
                                                                                                                 LABEL    1068
                          0400000334 +            EQ     EXIT.                                                   LABEL    1069
                                                                                                                 LABEL    1070
           556                     1     CDIA     BSS    1           GENERAL SAVE CELL                           LABEL    1071
           557                     1     CDIB     BSS    1           DO BEGIN LABEL (TP. FORMAT)                 LABEL    1072
           560                     1     CDIC     BSS    1           DO BEGIN TURPLE HEADER                      LABEL    1073
           561                     1     CDID     BSS    1           DO TRIP COUNT (TP.)                         FC50594    24
           562                     1     CDIE     BSS    1           DO TYPE INDICATOR                           FC50632    14
           563                     1     CDIFLG   BSZENT 1           ERRORS IN STMT + 1 (ON ENTRY)               LABEL    1074
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    26
        *DO* STATEMENT.                                               KDI 
  
                                        **        KDI - CONVERT DO INDEX (TO BINARY)                             FC5A371    50
                                        *                                                                        FC5A371    51
                                        *         ENTRY  (X1) = TP. FORM OF INDEX                                FC5A371    52
                                        *                                                                        FC5A371    53
                                        *         EXIT   (X6) = BINARY OF CONSTANT                               FC5A371    54
                                        *                                                                        FC5A371    55
                                        *         CALLS  LCT                                                     FC5A371    56
                                        *                                                                        FC5A371    57
                                        *         USES   X0,X6                                                   FC5A371    58
                                                                                                                 FC5A371    59
                                                                                                                 FC5A371    60
           564  0400400564 +             KDI      SUBR               ...ENTRY/EXIT...                            FC5A371    61
           565  0100000000 X                      CALL   LCT         LOAD BINARY OF CONSTANT                     FC5A371    62
           566  0420000564 +                      ZR     B2,EXIT.    IF NOT CONSTANT                             FC5A371    63
                          7200777774              SX0    X0-M.REAL                                               FC5A371    64
           567  0330000564 +                      MI     X0,EXIT.    IF NOT FLOATING                             FC5A371    65
                          26626                   UX6    X6,B2                                                   FC5A371    66
                               22626              LX6    B2,X6       INTEGERIZE                                  FC5A371    67
           570  0400000564 +                      EQ     EXIT.                                                   FC5A371    68
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    27
        *DO* STATEMENT.                                               PDT 
  
                                        **        PDT -  PROCESS *DO* TABLES.                                    LABEL    1077
                                        *                                                                        LABEL    1078
                                        *         *PDT* WILL EMIT A *D0* CONCLUSION MEGATURPLE TO T.PAR.         LABEL    1079
                                        *                                                                        LABEL    1080
                                        *         ENTRY  IF I/O LIST PROCESSING                                  LABEL    1081
                                        *                (X2) = TABLE FORMAT FOR AN I/O DO.                      LABEL    1082
                                        *         TABLE FORMAT=                                                  LABEL    1083
                                        *                       24/ 0,  18/ 0       18/ TP.ORDL                  LABEL    1084
                                        *                                                                        LABEL    1085
                                        *                IF PROGRAMMER DEFINED *DO*                              LABEL    1086
                                        *                (X2) = TABLE FORMAT FOR PROGRAMMER DO.                  LABEL    1087
                                        *         TABLE FORMAT=                                                  LABEL    1088
                                        *                       24/ 0,  18/ TP.ORDL, 18/ 0                       LABEL    1089
                                        *                                                                        LABEL    1090
                                        *         EXIT   DO CONCLUSION SKELETONS ADDED TO PARSED FILE.           LABEL    1091
                                        *                                                                        LABEL    1092
                                        *         USES   ALL REGISTERS EXCEPT *B4*                               LABEL    1093
                                        *                                                                        LABEL    1094
                                        *         CALLS  EMT, FBS, PDT                                           LABEL    1095
                                                                                                                 LABEL    1096
                                                                                                                 LABEL    1097
           571  0400400571 +             PDT      SUBR   =           ENTRY/EXIT...                               LABEL    1098
                                                                                                                 LABEL    1099
                                         SNAP=N   IFEQ   TEST,ON                                                 LABEL    1100
                                                  SA1    CO.SNAP                                                 LABEL    1101
                                                  LX1    1RN         DO SNAP FLAG                                LABEL    1102
                                                  PL     X1,PDT1A                                                LABEL    1103
                                         N-PDT    DUMPT  (BLST)                                                  LABEL    1104
                                         PDT1A    BSS    0                                                       LABEL    1105
                                         SNAP=N   ENDIF                                                          LABEL    1106
                                                                                                                 LABEL    1107
           572  10622                             BX6    X2                                                      LABEL    1108
                     5160000670 +                 SA6    PDTA        SAVE STATEMENT TAG (LOW ORDER)              LABEL    1109
                                                                                                                 FC50594    25
           573  5140000000 X             PDT1     SA4    T=BLST                                                  LABEL    1110
                          0304000571 +            ZR     X4,EXIT.    IF ALL BLOCKS REMOVED (FOR ERRORS)          LABEL    1111
           574  5110000000 X                      SA1    T.BLST                                                  LABEL    1112
                          6234777776              =B3    X4-1                                                    LABEL    1113
           575  53313                             SA3    X1+B3       FETCH COUNT WORD                            LABEL    1114
                     20330                        LX3    -LC.DOP                                                 LABEL    1115
                          73030                   SX0    X3          EXTRACT DO LOOP INDEX                       LABEL    1116
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1117
           576  0310000602 +                      NZ     X0,PDT2     IF NOT IF BLOCK                             LABEL    1118
                          6170000000 X            FATAL  E.IF16      UNTERMINATED IF BLOCK                       LABEL    1119
           600  7160000000                        SX6    0           INDICATE IF BLOCK                           LABEL    1120
                          0100001136 +            RJ     RBE         REMOVE THE BLOCK ENTRY                      LABEL    1121
           601  0400000573 +                      EQ     PDT1        CONTINUE PROCESSING                         LABEL    1122
                                                                                                                 LABEL    1123
           602  5120000670 +             PDT2     SA2    PDTA        FETCH DO CONCLUSION                         LABEL    1124
                          20344                   LX3    LC.DOP-LC.CNTP                                          LABEL    1125
                               73030              SX0    X3          EXTRACT SEGMENT SIZE                        LABEL    1126
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1127
           603  37040                             IX0    X4-X0                                                   LABEL    1128
                     6250000005                   SB5    X0-DOSI.W+DO.W                                          LABEL    1129
                               43022              MX0    DO.FLGL                                                 LABEL    1130
           604  53315                             SA3    X1+B5                                                   LABEL    1131
                     13532                        BX5    X3-X2       COMPARE TABLE ENTRY TO LABEL                LABEL    1132
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    28
        *DO* STATEMENT.                                               PDT 
  
                                                  HX5    DO.FLG                                                  LABEL    1133
                          6053777772              =B5    A3-DO.W     (B5) = ADDRESS OF THIS DO-TABLE ENTRY       LABEL    1134
           605  15250                             BX2    -X0*X5      REMOVE (DO.FLG) FROM COMPARISON             LABEL    1135
                     0302000612 +                 ZR     X2,PDT5     IF NOT ILLEGALLY NESTED DO                  LABEL    1136
           606  6170000000 X                      FATAL  E.DO12                                                  LABEL    1137
           607  5110000670 +                      SA1    PDTA                                                    LABEL    1138
                          20130                   HX1    DO.TAG                                                  LABEL    1139
                               21152              AX1    -DO.TAGL    EXTRACT LABEL SYMTAB ORDINAL                LABEL    1140
           610  10611                             BX6    X1                                                      LABEL    1141
                     20654                        LX6    TP.ORDP                                                 LABEL    1142
                          0100001136 +            RJ     RBE         REMOVE THE T.BLST ENTRY                     LABEL    1143
           611  0400000571 +                      EQ     EXIT.                                                   LABEL    1144
                                                                                                                 LABEL    1145
                                        **        CHECK IF *DO* DEFINITION HAD ERRORS.                           LABEL    1146
                                        *         (B5) = FWA FROM *DO* TABLE FOR CURRENT *DO*.                   LABEL    1147
                                        *         (X3) = CURRENT *DO* ENTRY TAG.                                 LABEL    1148
                                        *         (X4) = CURRENT LENGTH OF DO TABLE                              LABEL    1149
                                                                                                                 LABEL    1150
           612  5125000004               PDT5     SA2    B5+DORT.W                                               LABEL    1151
                          0312000620 +            NZ     X2,PDT7     IF NO ERROR IN DO DEFINITION                LABEL    1152
           613  0332000615 +                      MI     X2,PDT6     IF NO CODE BECAUSE ONE TRIP LOOP            FC50594    26
                          6170000000 X            TRIV   E.DO13      DEFINITION ERROR                            LABEL    1153
                                                                                                                 FC50594    27
           615  63730                    PDT6     SB7    X3                                                      FC50594    28
                     0570000650 +                 NZ     B7,PDT40    IF CURRENT IS AN I/O IMPLIED DO             FC50594    29
           616  0100000771 +                      RJ     FBS         FINISH THE DO STRUCTURE                     FC50594    30
           617  0400000650 +                      EQ     PDT40                                                   LABEL    1155
                                                                                                                 LABEL    1156
           620  63730                    PDT7     SB7    X3                                                      LABEL    1157
                     0570000623 +                 NZ     B7,PDT10    IF CURRENT IS AN I/O IMPLIED DO             LABEL    1158
           621  0100000771 +                      RJ     FBS         FINISH THE DO STRUCTURE                     LABEL    1159
           622  66700                             =B7    0           INDICATE PROGRAMMER *DO*                    LABEL    1160
                                                                                                                 FC50594    31
           623                           PDT10    BSS    0                                                       LABEL    1161
                                                                                                                 LABEL    1162
                                        **        EMIT DO-CONCLUSION MEGA-TURPLE TO PARSED FILE.                 LABEL    1163
                                        *                                                                        LABEL    1164
                                        *         THE T.BLST SEGMENT BEING PROCESSED HAS LABELS REMOVED.         LABEL    1165
                                        *                                                                        LABEL    1166
                                        *         A DO-CONCLUSION MEGA-TURPLE CONSISTS OF TWO TURPLES,           LABEL    1167
                                        *         OPTIONALLY FOLLOWED BY A DO-EXIT LABEL DEFINITION TURPLE,      LABEL    1168
                                        *         ORGANIZED AS FOLLOWS --                                        LABEL    1169
                                        *         1.  OPR = DOEND SKELETON.                                      LABEL    1170
                                        *                P1 = CONTROL INDEX.               (DOCI.W)              LABEL    1171
                                        *                P2 = INCREMENT VALUE OR (DI.N)    (DOII.W)              LABEL    1172
                                        *         2.  OPR = NOOP.                                                LABEL    1173
                                        *                P3 = INVENTED DO-BEGIN LABEL.     (DORT.W)              LABEL    1174
                                        *                P4 = TRIP COUNT VARIABLE (DC.N)   (DP.DOTI)             LABEL    1175
                                        *                                                                        LABEL    1176
                                        *         3.   OPR = OPBSS (IF NECESSARY)                                LABEL    1177
                                        *                P5 = GL FOR DO-CONCLUSION.        (DP.DOXL)             LABEL    1178
                                        *                P6 = NULL.                                              LABEL    1179
                                                                                                                 LABEL    1180
           623  5110000000 X                      SA1    T.BLST                                                  LABEL    1181
                          5120000000 X            SA2    T=BLST                                                  LABEL    1182
           624  6252777766                        SB5    X2-Z=BLST-1 RELATIVIZE (B5) = INDEX OF CURRENT DO       LABEL    1183
                          63715                   SB7    X1+B5                                                   LABEL    1184
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    29
        *DO* STATEMENT.                                               PDT 
  
           625  5127000007                        SA2    B7+DP.W                                                 LABEL    1185
                          20252                   HX2    DP.TURC                                                 LABEL    1186
                               21252              AX2    -DP.TURCL   EXTRACT DO CONCLUSION SKELETON              LABEL    1187
           626  0302000641 +                      ZR     X2,PDT25    IF CONCLUSION NOT TO BE OUTPUT              LABEL    1188
                          20252                   LX2    SP.SKELP                                                FC50104   235
           627  5130000003 X                      SA3    OPDUM+DUC=BOTH                                          LABEL    1190
                          12623                   BX6    X2+X3                                                   LABEL    1191
           630  5160000671 +                      SA6    PDTB        SAVE FOR TURPLE OUTPUT                      LABEL    1192
                          5147000003              =A4    B7+DOCI.W                                               LABEL    1193
           631  55541                             =A5    A4-DOCI.W+DOII.W                                        LABEL    1194
                     6130400671 +                 EMIT   PDTB,*                                                  LABEL    1195
                                                                                                                 LABEL    1196
           633  5130000000 X                      SA3    T.BLST                                                  LABEL    1197
                          63735                   SB7    X3+B5                                                   LABEL    1198
           634  5147000004                        =A4    B7+DORT.W                                               LABEL    1199
                          5054000003              =A5    A4-DORT.W+DP.W                                          LABEL    1200
           635  20530                             HX5    DP.DOTI                                                 LABEL    1201
                     21552                        AX5    -DP.DOTIL   EXTRACT TRIP COUNT VARIABLE ORDINAL         LABEL    1202
                          10055                   BX0    X5                                                      LABEL    1203
           636  0100000000 X                      CALL   CT1         GET TP. FORM OF TRIP COUNT VARIABLE         LABEL    1204
           637  22506                             LX5    X6                                                      LABEL    1205
                     6130020000 X                 EMIT   V=NOOP,2ND                                              LABEL    1206
                                                                                                                 LABEL    1207
           641  5110000000 X             PDT25    SA1    T.BLST                                                  LABEL    1208
                          63715                   SB7    X1+B5                                                   LABEL    1209
           642  5147000007                        SA4    B7+DP.W                                                 LABEL    1210
                                                  HX4    DP.DOXL                                                 LABEL    1211
                          21452                   AX4    -DP.DOXLL   EXTRACT DO CONCLUSION GL                    LABEL    1212
           643  0304000646 +                      ZR     X4,PDT30    IF NO GENERATED LABEL                       LABEL    1213
                          7110040000              CLAS=  X1,TP,(GL)                                              LABEL    1214
           644  20454                             LX4    TP.ORDP                                                 LABEL    1215
                     12441                        BX4    X4+X1                                                   LABEL    1216
                          43500                   MX5    0                                                       LABEL    1217
           645  6130400000 X                      EMIT   OPBSS,*                                                 LABEL    1218
                                                                                                                 LABEL    1219
                                        **        CLEAR *DO* CELLS.  CHECK IF MORE THAN ONE *DO* TERMINATES      LABEL    1220
                                        *         ON CURRENT LABEL.  PROPAGATE (DLNI) ATTRIBUTE OUTWARD.         LABEL    1221
                                                                                                                 LABEL    1222
           646  5110000000 X             PDT30    SA1    T=PAR                                                   LABEL    1223
                          10711                   BX7    X1                                                      LABEL    1224
           647  5170000000 X                      SA7    CURST       DONT SQUEEZE PAST DO                        LABEL    1225
                                                                                                                 LABEL    1226
           650  5140000000 X             PDT40    SA4    T=BLST                                                  LABEL    1227
                          7264777766              SX6    X4-Z=BLST-1                                             LABEL    1244
           651  54640                             SHRINK A4,X6       REMOVE CONCLUDED LOOP FROM DO-STACK         LABEL    1245
                     0306000571 +                 ZR     X6,EXIT.    IF DO-STACK EMPTY                           LABEL    1246
           652  5120000000 X                      SA2    T=BLST                                                  LABEL    1247
                          7100100000              CLAS=  X0,WB,(DLNI)                                            LABEL    1248
           653  0100001127 +                      RJ     PDA         PROPOGATE DO LOOP ATTRIBUTES                LABEL    1249
                                                                                                                 LABEL    1250
                                        *         CHECK FOR BLOCK IF ENTRY                                       LABEL    1251
                                                                                                                 LABEL    1252
           654  5110000000 X                      SA1    T.BLST                                                  LABEL    1253
                          5120000000 X            SA2    T=BLST                                                  LABEL    1254
           655  6222777776                        SB2    X2-1                                                    LABEL    1255
                          53312                   SA3    X1+B2       FETCH COUNT WORD                            LABEL    1256
                               20330              LX3    -LC.DOP                                                 LABEL    1257
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    30
        *DO* STATEMENT.                                               PDT 
  
           656  73030                             SX0    X3          EXTRACT DO INDEX                            LABEL    1258
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1259
                     0300000571 +                 ZR     X0,EXIT.    IF BLOCK IF                                 LABEL    1260
                                                                                                                 LABEL    1261
                                        **        CHECK IF MORE THAN ONE LOOP TERMINATES ON THIS *DO* LABEL.     LABEL    1262
                                        *                (X6) = CURRENT LENGTH OF DO TABLE                       LABEL    1263
                                                                                                                 LABEL    1264
                               20344              LX3    LC.DOP-LC.CNTP                                          LABEL    1265
           657  73030                             SX0    X3          EXTRACT COUNT                               LABEL    1266
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1267
                     37020                        IX0    X2-X0       INDEX TO NEXT LOOP SEGMENT                  LABEL    1268
                          5120000670 +            SA2    PDTA        FETCH (X2) = TAG OF CURRENT DO LABEL        LABEL    1269
           660  6220000005                        =B2    X0+DO.W                                                 LABEL    1270
                          43052                   MX0    -DO.TAGL                                                LABEL    1271
                               53312              SA3    X1+B2                                                   LABEL    1272
           661  20022                             LX0    DO.TAGP                                                 LABEL    1273
                     15330                        BX3    -X0*X3                                                  LABEL    1274
                          13732                   BX7    X3-X2                                                   LABEL    1275
           662  0317000571 +                      NZ     X7,EXIT.    IF NOT CURRENT *DO* LABEL.                  LABEL    1276
                                                                                                                 LABEL    1277
                                        **        NESTING OF *DO* WITH SINGLE TERMINATOR. MARK LABEL AS          LABEL    1278
                                        *         TERMINATING MORE THAN ONE DO, IF PROGRAMMER DO.  (IS THIS      LABEL    1279
                                        *         REALLY NECESSARY?)                                             LABEL    1280
                                                                                                                 LABEL    1281
                          63730                   SB7    X3                                                      LABEL    1282
                                   0              ERRNZ  18-DO.IODL                                              LABEL    1283
                               10466              BX4    X6                                                      LABEL    1284
           663  6053777772                        =B5    A3-DO.W                                                 LABEL    1285
                          0570000612 +            NZ     B7,PDT5     IF IN *I/O* DO                              LABEL    1286
           664  10633                             BX6    X3                                                      LABEL    1287
                     5110000000 X                 SA1    T.SYM                                                   LABEL    1288
                               21622              AX6    DO.TAGP                                                 LABEL    1289
           665  63260                             SB2    X6          EXTRACT (B2) = SYMORD OF DO-LABEL           LABEL    1290
                                   0              ERRNZ  18-DO.TAGL                                              LABEL    1291
                     76622                        SX6    B2+B2                                                   LABEL    1292
                          63262                   SB2    X6+B2       CONVERT ORDINAL TO INDEX                    LABEL    1293
                                   0              ERRNZ  3-Z=SYM                                                 LABEL    1294
                               66221              =B2    B2+WB.W                                                 LABEL    1295
           666  53212                             SA2    X1+B2       LOAD *WB*                                   LABEL    1296
                     7100100000                   CLAS=  X0,WB,(DLNI)                                            LABEL    1297
                               12620              BX6    X2+X0                                                   LABEL    1298
           667  54620                             SA6    A2          INDICATE LABEL TERMINATES MORE THAN 1 LOOP  LABEL    1299
                     0400000612 +                 EQ     PDT5        CONTINUE                                    LABEL    1300
                                                                                                                 LABEL    1301
           670  00000000000000000000     PDTA     CON    0           CURRENT DO LABEL                            LABEL    1302
           671                     1     PDTB     BSS    1           TURPLE HEADER FOR DO CONCLUSION             LABEL    1303
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    31
        DO NEST AND IF BLOCK LABEL LINKAGE.                           ALU 
  
                                        **        ALU -  ANALYZE LABEL USAGE                                     LABEL    1306
                                        *                                                                        LABEL    1307
                                        *         CALLED WHEN A LABEL DEFINITION OR REFERENCE OCCURS WITHIN A DO LABEL    1308
                                        *         LOOP OR BLOCK IF STRUCTURE.                                    LABEL    1309
                                        *                                                                        LABEL    1310
                                        *         ENTRY  (B2) = DEFINITION/REFERENCE INDICATOR                   LABEL    1311
                                        *                (B7) = SYMBOL TABLE *WB* INDEX                          LABEL    1312
                                        *                (X6) = CURRENT LABEL SYMBOL TABLE ORDINAL               LABEL    1313
                                        *                                                                        LABEL    1314
                                        *         EXIT                                                           LABEL    1315
                                        *                                                                        LABEL    1316
                                        *         USES   A1,A2,A3,A6,A7  X0,X1,X2,X3,X6,X7  B2,B3,B7             LABEL    1317
                                        *                                                                        LABEL    1318
                                        *         CALLS  ADW                                                     LABEL    1319
                                                                                                                 LABEL    1320
                                                                                                                 LABEL    1321
           672  0400400672 +             ALU      SUBR   =           ...ENTRY/EXIT...                            FC5A341    29
           673  5110000000 X                      SA1    T.BLST                                                  LABEL    1323
                          5120000000 X            SA2    T=BLST                                                  LABEL    1324
           674  6232777776                        =B3    X2-1                                                    LABEL    1325
                          53313                   SA3    X1+B3       FETCH DO/ORIGIN/COUNT WORD                  LABEL    1326
                                                  LX3    -LC.CNTP                                                LABEL    1327
                               73030              SX0    X3          EXTRACT SEGMENT SIZE                        LABEL    1328
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1329
           675  6230777766                        SB3    X0-Z=BLST-1 COUNT OF LABELS IN THIS STRUCTURE           LABEL    1330
                          20352                   LX3    LC.CNTP-LC.LINEP                                        LABEL    1331
                               73030              SX0    X3          EXTRACT BLOCK ORIGIN                        LABEL    1332
                                   0              ERRNZ  18-LC.LINEL                                             LABEL    1333
           676  5110000000 X                      SA1    T.SYM                                                   LABEL    1334
                          20352                   LX3    LC.LINEP-LC.DOP                                         LABEL    1335
                               73330              SX3    X3          EXTRACT DO INDEX                            LABEL    1336
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1337
           677  0313000706 +                      NZ     X3,ALU5     IF DO LOOP                                  LABEL    1338
                                                                                                                 LABEL    1339
                                        *         HERE WHEN CURRENT STRUCTURE IS IF BLOCK                        LABEL    1340
                                        *                (X0) = BLOCK ORIGIN LINE NUMBER                         LABEL    1341
                                        *                (X1) = (T.SYM)                                          LABEL    1342
                                        *                (B2) = REF/DEF INDICATOR                                LABEL    1343
                                                                                                                 LABEL    1344
                          0520000701 +            NZ     B2,ALU1     IF LABEL BEING DEFINED                      LABEL    1345
           700  43301                             CLAS=  X3,LA,(REF)                                             LABEL    1346
                          0400000731 +            EQ     ALU20                                                   LABEL    1347
                                                                                                                 LABEL    1348
           701  53217                    ALU1     SA2    X1+B7       FETCH *WB*                                  LABEL    1349
                     10322                        BX3    X2                                                      FC50293    12
                                                  HX2    WB.FR                                                   LABEL    1350
                          21252                   AX2    -WB.FRL     EXTRACT FIRST REFERENCE                     LABEL    1351
                               20365              SBIT   X3,WB.SREFP                                             FC50293    13
           702  0323000705 +                      PL     X3,ALU2     IF NOT PREVIOUSLY REFERENCED                FC50293    14
                          37020                   IX0    X2-X0                                                   LABEL    1353
           703  0320000705 +                      PL     X0,ALU2     IF FIRST REFERENCE WITHIN CURRENT ARM       LABEL    1354
                          6170000000 X            FATAL  E.SL09                                                  LABEL    1355
                                                                                                                 LABEL    1356
           705  43301                    ALU2     CLAS=  X3,LA,(DEF)                                             LABEL    1357
                     0400000731 +                 EQ     ALU20                                                   LABEL    1358
                                                                                                                 LABEL    1359
                                        *         HERE WHEN DATA STRUCTURE IS DO LOOP                            LABEL    1360
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    32
        DO NEST AND IF BLOCK LABEL LINKAGE.                           ALU 
  
                                        *                (X0) = BLOCK ORIGIN LINE NUMBER                         LABEL    1361
                                        *                (X1) = (T.SYM)                                          LABEL    1362
                                        *                (X3) = DO LOOP HEADER LABEL INDEX                       LABEL    1363
                                        *                (B2) = REF/DEF INDICATOR                                LABEL    1364
                                                                                                                 LABEL    1365
           706  0520000715 +             ALU5     NZ     B2,ALU10    IF LABEL IS BEING DEFINED                   LABEL    1366
                          63230                   SB2    X3          PRESERVE DO HEADER INDEX                    LABEL    1367
                               53217              SA2    X1+B7       FETCH *WB*                                  LABEL    1368
           707  20264                             SBIT   X2,WB.SDEFP                                             LABEL    1369
                     43301                        CLAS=  X3,LA,(REF)                                             LABEL    1370
           710  0322000731 +                      PL     X2,ALU20    IF LABEL NOT YET DEFINED                    LABEL    1371
                          54221                   =A2    A2-WB.W+WC.W                                            LABEL    1372
                               20214              HX2    WC.LINE                                                 LABEL    1373
           711  21236                             AX2    -WC.LINEP   EXTRACT DEFINITION LINE NUMBER              LABEL    1374
                     37020                        IX0    X2-X0                                                   LABEL    1375
                          53212                   SA2    X1+B2       FETCH DO LOOP HEADER *WB*                   LABEL    1376
                               43701              CLAS=  X7,WB,(DLBB)                                            LABEL    1377
                     0320000714 +                 PL     X0,ALU7     IF DEFINITION IS WITHIN CURRENT DO LOOP     LABEL    1378
           713  5130001217 +                      CLAS=  X3,LA,(REF,EXT)                                         LABEL    1379
                          7170200000              CLAS=  X7,WB,(DLEX)                                            LABEL    1380
                                                                                                                 FC50293    15
           714  12727                    ALU7     BX7    X2+X7                                                   LABEL    1381
                     54720                        SA7    A2          UPDATE DO HEADER *WB*                       LABEL    1382
                          0400000731 +            EQ     ALU20                                                   LABEL    1383
                                                                                                                 LABEL    1384
                                        *         HERE WHEN LABEL IS DEFINED WITHIN LOOP                         LABEL    1385
                                                                                                                 LABEL    1386
           715  53217                    ALU10    SA2    X1+B7                                                   LABEL    1387
                     63230                        SB2    X3          PRESERVE DO HEADER INDEX                    LABEL    1388
                          43301                   CLAS=  X3,LA,(DEF)                                             LABEL    1389
                               20265              SBIT   X2,WB.SREFP                                             LABEL    1390
           716  0322000731 +                      PL     X2,ALU20    IF NOT PREVIOUSLY REFERENCED                LABEL    1391
                          20207                   LX2    WB.SREFP+WB.SREFL-WB.FRP-WB.FRL                         LABEL    1392
                               21252              AX2    -WB.FRL     EXTRACT FIRST REFERENCE LINE                LABEL    1393
           717  0302000731 +                      ZR     X2,ALU20    IF FIRST REFERENCE IS ASSIGN                FC50879     6
                          37020                   IX0    X2-X0                                                   LABEL    1394
           720  0320000731 +                      PL     X0,ALU20    IF REFERENCE WAS INSIDE THIS LOOP           LABEL    1395
                          53212                   SA2    X1+B2       FETCH DO HEADER *WB*                        LABEL    1396
                               43701              CLAS=  X7,WB,(DLEN)                                            LABEL    1397
                     12727                        BX7    X2+X7                                                   LABEL    1398
                          54720                   SA7    A2          RESET DO HEADER *WB* INDICATING ENTRY       LABEL    1399
           722  5110000000 X                      SA1    T.SYM                                                   FC51356    65
                          22216                   LX2    B1,X6       X6 -> CURRENT LABEL SYMBOL TABLE ORDINAL    FC51356    66
                               36226              IX2    X2+X6                                                   FC51356    67
           723  36121                             IX1    X2+X1                                                   FC51356    68
                     5211000001                   SA1    X1+WB.W                                                 FC51356    69
                               43200              MX2    0                                                       FC51356    70
           724  22002                             LX0    X2                                                      FC51356    71
                     20135                        SBIT   X1,WB.ALRNP                                             FC51356    72
                          0321000726 +            PL     X1,ALU12    IF NO ALTERNATE RETURN TO THIS LABEL        FC51356    73
           725  43201                             CLAS=  X2,LA,(ALRN)                                            FC51356    74
                          22002                   LX0    X2                                                      FC51356    75
                                                                                                                 FC51356    76
           726  20101                    ALU12    SBIT   X1,WB.GOTOP/WB.ALRNP                                    FC51356    77
                     0321000730 +                 PL     X1,ALU14    IF NO *GOTO* TO THIS LABEL                  FC51356    78
                               43201              CLAS=  X2,LA,(GOTO)                                            FC51356    79
                                                                                                                 FC51356    80
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    33
        DO NEST AND IF BLOCK LABEL LINKAGE.                           ALU 
  
           730  5130001220 +             ALU14    CLAS=  X3,LA,(DEF,ENT)                                         FC51356    81
                          12332                   BX3    X3+X2                                                   FC51356    82
                               12330              BX3    X3+X0                                                   FC51356    83
                                                                                                                 LABEL    1401
                                        *         FINISH UP THIS ENTRY                                           LABEL    1402
                                        *                (B3) = COUNT OF LABELS IN STRUCTURE                     LABEL    1403
                                        *                (X3) = BITS TO SET IN LABEL WORD                        LABEL    1404
                                        *                (X6) = LABEL SYMBOL TABLE ORDINAL                       LABEL    1405
                                                                                                                 LABEL    1406
           731  5110000000 X             ALU20    SA1    T.BLST                                                  LABEL    1407
                          5120000000 X            SA2    T=BLST                                                  LABEL    1408
           732  6222777776                        SB2    X2-1                                                    LABEL    1409
                          67223                   SB2    B2-B3                                                   FC5A124    37
                               53112              SA1    X1+B2       PREFETCH LABEL WORD                         FC5A124    38
                                                                                                                 FC5A124    39
           733  0430000737 +             ALU21    ZR     B3,ALU25    IF NO MORE LABELS                           FC5A124    40
                          67331                   =B3    B3-1                                                    FC5A124    41
                               13716              BX7    X1-X6                                                   FC5A124    42
           734  73770                             SX7    X7                                                      FC5A124    43
                     10211                        BX2    X1          SAVE CURRENT LABEL                          FC5A124    44
                          54111                   =A1    A1+1        (A1,X1) = A+C NEXT LABEL                    FC5A124    45
           735  0317000733 +                      NZ     X7,ALU21    IF NOT A MATCH                              FC5A124    46
                                                                                                                 LABEL    1419
                                        *         CURRENT LABEL ALREADY REFERENCED OR DEFINED IN CURRENT BLOCK   LABEL    1420
                                        *         MERGE IN CURRENT USAGE BITS.                                   LABEL    1421
                                                                                                                 LABEL    1422
                          12632                   BX6    X3+X2                                                   FC5A124    47
           736  5061777776                        SA6    A1-1        UPDATE TABLE ENTRY                          FC5A124    48
                          0400000672 +            EQ     EXIT.                                                   LABEL    1425
                                                                                                                 LABEL    1426
                                        *         THE CURRENT LABEL IS NEW TO THE CURRENT BLOCK.  ADD TO T.BLST  LABEL    1427
                                        *         AND UPDATE THE COUNT WORD                                      LABEL    1428
                                                                                                                 LABEL    1429
           737  12636                    ALU25    BX6    X3+X6                                                   LABEL    1430
                     54610                        SA6    A1          ADD THE LABEL ENTRY                         FC5A124    49
                          76610                   =X6    1                                                       FC5A124    50
                               36661              IX6    X6+X1       INCREMENT THE DO/ORIGIN/COUNT WORD          FC5A124    51
           740  5110000000 X                      ADDWD  T.BLST                                                  LABEL    1434
           741  0400000672 +                      EQ     EXIT.                                                   LABEL    1435
  
  
  
  
                                        **        DDR -  DIAGNOSE DO (INDEX) REDEFINITION                        FC5A211    96
                                        *                                                                        FC5A211    97
                                        *         ENTRY  (X5) = POSSIBLE DO INDEX                                FC5A211    98
                                        *                (B3) = .MI. DO CONTROL INDEX                            FC50718    12
                                        *                       .PL. NOT DO CONTROL INDEX                        FC50718    13
                                        *                                                                        FC5A211    99
                                        *         EXIT   (X5) = BASE/BIAS FORM OF POSSIBLE DO INDEX              FC5A211   100
                                        *                DO INDEX REDEFINITION DIAGNOSED (AS APPLICABLE)         FC5A211   101
                                        *                                                                        FC5A211   102
                                        *         CALLS  BBC, RBE                                                FC50718    14
                                        *                                                                        FC5A211   104
                                        *         USES   A1,A2,A3,A7  X1,X2,X3,X7  B2,B7                         FC5A211   105
                                                                                                                 FC5A211   106
                                                                                                                 FC5A211   107
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    34
        DO NEST AND IF BLOCK LABEL LINKAGE.                           DDR 
  
           742  0400400742 +             DDR      SUBR   =           ...ENTRY/EXIT...                            FC5A211   108
           743  10755                             BX7    X5                                                      FC5A211   109
                     20761                        SBIT   X7,TP.INTRP                                             FC5A211   110
                          0337000742 +            MI     X7,EXIT.    IF ARRAY LOAD, CANT TELL                    FC5A211   111
           744  43771                             MX7    -TP.MODEL                                               FC5A211   112
                                                  LX5    -TP.MODEP                                               FC5A211   113
                     15757                        BX7    -X7*X5                                                  FC5A211   114
                                                  LX5    TP.MODEP                                                FC5A211   115
                          7277777771              SX7    X7-M.CHAR                                               FC5A211   116
           745  0307000742 +                      ZR     X7,EXIT.    IF CHARACTER OPERAND                        FC5A211   117
                          0100000000 X            CALL   BBC         CONVERT TO BASE/BIAS                        FC5A211   118
           746  5110000000 X                      SA1    T.BLST                                                  FC5A211   119
                          5120000000 X            SA2    T=BLST                                                  FC5A211   120
           747  6222777776                        SB2    X2-1                                                    FC5A211   121
                          43750                   MX7    TP.ORBIL                                                FC5A211   122
                                                  LX7    TP.ORBIL+TP.ORBIP                                       FC5A211   123
           750  0302000742 +                      ZR     X2,EXIT.    IF NO ACTIVE BLOCKS                         FC5A211   124
                                                                                                                 FC50718    15
           751  53312                    DDR1     SA3    X1+B2       FETCH LC. WORD FOR BLOCK                    FC5A211   125
                                                  LX3    -LC.CNTP                                                FC5A211   126
                     63730                        SB7    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY        FC5A211   127
                                   0              ERRNZ  18-LC.CNTL                                              FC5A211   128
                          20306                   HX3    LC.DO                                                   FC5A211   129
                               21352              AX3    -LC.DOL     EXTRACT DO LOOP HEADER LABEL INDEX          FC5A211   130
           752  67227                             SB2    B2-B7                                                   FC5A211   131
                     0303000770 +                 ZR     X3,DDR5     IF NOT DO LOOP                              FC5A428     7
           753  6172000004                        SB7    B2+DOCI.W+1                                             FC5A211   133
                          53317                   SA3    X1+B7                                                   FC5A211   134
                               37353              IX3    X5-X3                                                   FC5A211   135
           754  11373                             BX3    X7*X3       EXTRACT TAG/BIAS                            FC5A211   136
                     0313000770 +                 NZ     X3,DDR5     IF NO DO INDEX REDEFINITION                 FC5A428     8
           755  6222777776                        SB2    X2-1        RESTORE INVALID ENTRY LC. POINTER           FC5A428     9
                          53312                   SA3    X1+B2       LC. WORD                                    FC5A428    10
                                                  LX3    -LC.CNTP                                                FC5A428    11
                               63730              SB7    X3          NUMBER OF WORDS IN T.BLST ENTRY             FC5A428    12
                                   0              ERRNZ  18-LC.CNTL                                              FC5A428    13
           756  67227                             SB2    B2-B7                                                   FC5A428    14
                     63212                        SB2    X1+B2       TOP OF T.BLST ENTRY                         FC5A428    15
                          5132000006              SA3    B2+DO.W+1                                               FC5A428    16
           757  43601                             MX6    1           NEGATIVE IF IMPLIED DO (FOR RBE)            FC5A428    17
                     20352                        HX3    DO.IOD                                                  FC5A428    18
                          21352                   AX3    -DO.IODL    EXTRACT IMPLIED DO FLAG                     FC5A428    19
           760  0313000765 +                      NZ     X3,DDR2     IF IMPLIED I/O DO                           FC5A428    20
                          5110000271 +            SA1    STLTAG      CURRENT DO TERMINAL                         FC50718    18
           761  10611                             BX6    X1          FOR RBE CALL                                FC50718    19
                                                  HX1    TP.ORD                                                  FC50718    20
                     21154                        AX1    -TP.ORDL    EXTRACT ORDINAL                             FC50718    21
                          63210                   SB2    X1                                                      FC50718    22
                               20101              LX1    1                                                       FC50718    23
           762  63212                             SB2    B2+X1       CONVERT ORDINAL TO INDEX                    FC50718    24
                                   0              ERRNZ  3-Z=SYM                                                 FC50718    25
                     66221                        =B2    B2+WB.W                                                 FC50718    26
                          5110000000 X            SA1    T.SYM                                                   FC50718    27
           763  53112                             SA1    X1+B2       FETCH DO TERMINAL *WB*                      FC50718    28
                     7170000040                   CLAS=  X7,WB,(DOT)                                             FC50718    29
                               15717              BX7    -X7*X1      CLEAR DO TERMINAL BIT                       FC50718    30
           764  54710                             SA7    A1          UPDATE                                      FC50718    31
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    35
        DO NEST AND IF BLOCK LABEL LINKAGE.                           DDR 
  
                                                                                                                 FC5A428    21
           765  0100001136 +             DDR2     RJ     RBE         REMOVE THE DO ENTRY                         FC5A428    22
           766  43600                             MX6    0                                                       FC50718    33
                     5160000563 +                 SA6    CDIFLG      CLEAR TO AVOID SECOND SCRATCH               FC50718    34
           767  0400000000 X                      EQ     E.DO08      ** DO INDEX REDEFINITION                    FC50718    35
                                                                                                                 FC50718    36
           770  0620000751 +             DDR5     PL     B2,DDR1     IF MORE BLOCKS                              FC5A428    23
                          0400000742 +            EQ     EXIT.                                                   FC5A211   139
  
  
  
  
                                        **        FBS -  FINISH BLOCK STRUCTURE                                  LABEL    1437
                                        *                                                                        LABEL    1438
                                        *         CALLED WHEN A DO LOOP OR BLOCK IF ARM IS COMPLETED.            LABEL    1439
                                        *         ALL LABEL WORDS ARE MERGED INTO THE NEXT OUTER BLOCK           LABEL    1440
                                        *         (AS NECESSARY) AND THE CURRENT BLOCK IS RETURNED TO T.BLST     LABEL    1441
                                        *         WITH AN UPDATED LC. WORD.                                      LABEL    1442
                                        *                                                                        LABEL    1443
                                        *         USES   A1,A2,A3,A5,A6,A7  X0,X1,X2,X3,X5,X6,X7  B2,B3,B7       LABEL    1444
                                        *                                                                        LABEL    1445
                                        *         CALLS  ADW, ALC, ALU, MVE=                                     LABEL    1446
                                                                                                                 LABEL    1447
                                                                                                                 LABEL    1448
           771  0400400771 +             FBS      SUBR   =           ...ENTRY/EXIT...                            LABEL    1449
                                                                                                                 LABEL    1450
                                        *         COPY THE BLOCK STRUCTURE SEGMENT TO T.SCR FOR PROCESSING EASE. LABEL    1451
                                                                                                                 LABEL    1452
           772  5110000000 X                      SA1    T.BLST                                                  LABEL    1453
                          5120000000 X            SA2    T=BLST                                                  LABEL    1454
           773  6232777776                        =B3    X2-1                                                    LABEL    1455
                          53113                   SA1    X1+B3       FETCH COUNT WORD                            LABEL    1456
                               10611              BX6    X1                                                      FC5A127    28
           774  5160001124 +                      SA6    FBSA        SAVE                                        FC5A127    29
                                                  LX1    -LC.CNTP                                                LABEL    1457
                          63310                   SB3    X1                                                      LABEL    1458
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1459
                               20130              LX1    LC.CNTP-LC.DOP                                          LABEL    1460
           775  63210                             SB2    X1                                                      LABEL    1461
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1462
                     5110000000 X                 ALLOC  T.SCR,B3                                                LABEL    1463
           777  22301                             LX3    X1          DESTINATION                                 LABEL    1464
                     5150000000 X                 SA5    T=BLST                                                  LABEL    1465
          1000  5120000000 X                      SA2    T.BLST                                                  LABEL    1466
                          76130                   SX1    B3          LENGTH                                      LABEL    1467
                               37551              IX5    X5-X1       NEW LENGTH OF T.BLST                        LABEL    1468
          1001  10655                             SHRINK T=BLST,X5                                               LABEL    1469
                               36225              IX2    X2+X5       SOURCE                                      LABEL    1470
          1002  0100000000 X                      MOVE   X1,X2,X3                                                LABEL    1471
          1003  66720                             SB7    B2                                                      LABEL    1472
                     5110000000 X                 SA1    T.SCR                                                   LABEL    1473
                               63210              SB2    X1          BASE OF THE CURRENT SEGMENT                 LABEL    1474
          1004  6133777766                        SB3    B3-Z=BLST-1 NUMBER OF LABELS TO PROCESS                 LABEL    1475
                          0570001036 +            NZ     B7,FBS10    IF BLOCK IS DO LOOP                         LABEL    1476
                                                                                                                 LABEL    1477
                                        *         BLOCK IS IF BLOCK                                              LABEL    1478
                                                                                                                 LABEL    1479
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    36
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
          1005  0430001013 +                      ZR     B3,FBS3     IF NO LABELS IN THIS ARM                    LABEL    1480
                          6122000010              SB2    B2+Z=BLST   ADVANCE TO FIRST LABEL                      LABEL    1481
                                                                                                                 FC50594    32
          1006  56120                    FBS1     SA1    B2          FETCH LABEL                                 LABEL    1482
                     73210                        SX2    X1          EXTRACT ORDINAL                             LABEL    1483
                                   0              ERRNZ  0-LA.ORDP+18-LA.ORDL                                    LABEL    1484
                                                  SBIT   X1,LA.DEFP                                              LABEL    1485
                          0321001012 +            PL     X1,FBS2     IF LABEL NOT DEFINED IN CURRENT BLOCK       LABEL    1486
          1007  5110000000 X                      SA1    T.SYM                                                   LABEL    1487
                          63720                   SB7    X2                                                      LABEL    1488
                               20201              LX2    1                                                       LABEL    1489
          1010  63727                             SB7    B7+X2       CONVERT ORDINAL TO INDEX                    LABEL    1490
                                   0              ERRNZ  3-Z=SYM                                                 LABEL    1491
                     66771                        =B7    B7-WA.W+WB.W                                            LABEL    1492
                          53217                   SA2    X1+B7                                                   LABEL    1493
                               43301              CLAS=  X3,WB,(INA)                                             LABEL    1494
                     12623                        BX6    X2+X3                                                   LABEL    1495
                          54620                   SA6    A2          MARK DEFINED LABEL AS INACTIVE              LABEL    1496
                                                                                                                 FC50594    33
          1012  66221                    FBS2     =B2    B2+1                                                    LABEL    1497
                     67331                        =B3    B3-1                                                    LABEL    1498
                          0530001006 +            NZ     B3,FBS1     IF NOT FINISHED                             LABEL    1499
                                                                                                                 LABEL    1500
          1013  5110000000 X             FBS3     SA1    T=BLST                                                  LABEL    1501
                          0301001025 +            ZR     X1,FBS5     IF THIS IS ONLY BLOCK                       LABEL    1502
                                                                                                                 LABEL    1503
                                        *         MERGE LABELS INTO OUTER BLOCK                                  LABEL    1504
                                                                                                                 LABEL    1505
          1014  5120000000 X                      SA2    T=SCR                                                   LABEL    1506
                          7222777776              SX2    X2-1                                                    LABEL    1507
          1015  10622                             SHRINK A2,X2       REMOVE COUNT WORD (LC.)                     LABEL    1508
                                                                                                                 LABEL    1509
          1016  5110000000 X             FBS4     SA1    T.SCR                                                   LABEL    1510
                          6252777767              SB5    X2-Z=BLST                                               LABEL    1511
          1017  0450001025 +                      ZR     B5,FBS5     IF NO MORE LABELS                           LABEL    1512
                          6252777776              SB5    X2-1                                                    LABEL    1513
          1020  53315                             SA3    X1+B5       FETCH LABEL                                 LABEL    1514
                     43001                        CLAS=  X0,LA,(DEF)                                             LABEL    1515
                          11003                   BX0    X0*X3                                                   LABEL    1516
                                                  HX0    LA.DEF                                                  LABEL    1517
                               20001              LX0    LA.DEFL                                                 LABEL    1518
          1021  63200                             SB2    X0          REF/DEF INDICATOR                           LABEL    1519
                                                  LX3    -LA.ORDP                                                LABEL    1520
                     73630                        SX6    X3          EXTRACT ORDINAL                             LABEL    1521
                                   0              ERRNZ  18-LA.ORDL                                              LABEL    1522
                          36366                   IX3    X6+X6                                                   LABEL    1523
                               36336              IX3    X3+X6       CONVERT ORDINAL TO INDEX                    LABEL    1524
          1022  63731                             =B7    X3-WA.W+WB.W                                            LABEL    1525
                     0100000672 +                 RJ     ALU         ANALYZE LABEL USAGE (FOR OUTER STRUCTURE)   LABEL    1526
          1023  5120000000 X                      SA2    T=SCR                                                   LABEL    1527
                          7222777776              SX2    X2-1                                                    LABEL    1528
          1024  10622                             SHRINK A2,X2       REMOVE THE LABEL JUST PROCESSED             LABEL    1529
                          0400001016 +            EQ     FBS4                                                    LABEL    1530
                                                                                                                 LABEL    1531
                                        *         MOVE BLOCK BACK TO T.BLST                                      LABEL    1532
                                                                                                                 LABEL    1533
          1025  5110000000 X             FBS5     ALLOC  T.BLST,Z=BLST                                           LABEL    1534
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    37
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
          1027  7110000010                        SX1    Z=BLST      LENGTH                                      LABEL    1535
                          5120000000 X            SA2    T.SCR       SOURCE                                      LABEL    1536
          1030  7137777767                        SX3    B7-Z=BLST   DESTINATION                                 LABEL    1537
                          0100000000 X            MOVE   X1,X2,X3                                                LABEL    1538
          1031  7160000011                        SX6    Z=BLST+1                                                LABEL    1539
                          5110000000 X            SA1    REFLIN                                                  LABEL    1540
          1032  20114                             LX1    -XR.LINEP+LC.LINEP                                      LABEL    1541
                     12616                        BX6    X1+X6                                                   LABEL    1542
                          5110001124 +            SA1    FBSA        OLD COUNT WORD                              FC5A127    30
          1033  43201                             CLAS=  X2,LC,(GLM)                                             FC5A127    31
                     11112                        BX1    X1*X2                                                   FC5A127    32
                          12616                   BX6    X1+X6       MERGE IN LC.GLM (IF PRESENT)                FC5A127    33
          1034  5110000000 X                      ADDWD  T.BLST      NEW LC. WORD                                LABEL    1543
          1035  0400001122 +                      EQ     FBS25                                                   LABEL    1544
                                                                                                                 LABEL    1545
                                        *         BLOCK IS DO LOOP                                               LABEL    1546
                                        *                (B2) = BASE OF SEGMENT                                  LABEL    1547
                                        *                (B3) = NUMBER OF LABELS TO PROCESS                      LABEL    1548
                                        *                (B7) = DO LOOP HEADER LABEL INDEX                       LABEL    1549
                                        *                (X1) = (T.SCR)                                          LABEL    1550
                                                                                                                 LABEL    1551
          1036  0430001013 +             FBS10    ZR     B3,FBS3     IF NO LABELS IN THIS ARM                    FC51488     6
                          5110000000 X            SA1    T.SYM                                                   LABEL    1553
          1037  53317                             SA3    X1+B7       DO HEADER LABEL *WB*                        LABEL    1554
                     6122000010                   SB2    B2+Z=BLST   ADVANCE TO FIRST LABEL                      LABEL    1555
                               43600              MX6    0                                                       FC51356    84
          1040  5160001125 +                      SA6    ALRNF                                                   FC51356    85
                          5160001126 +            SA6    GOTOF                                                   FC51356    86
                                                                                                                 FC50594    34
          1041  56120                    FBS11    SA1    B2          FETCH LABEL WORD                            LABEL    1556
                     73210                        SX2    X1          EXTRACT ORDINAL                             LABEL    1557
                          10711                   BX7    X1          LABEL WORD USED AT FBS12                    FC51356    87
                                   0              ERRNZ  0-LA.ORDP+18-LA.ORDL                                    LABEL    1558
                               20101              SBIT   X1,LA.REFP                                              LABEL    1559
          1042  0321001050 +                      PL     X1,FBS12    IF NOT REFERENCED IN THIS DO LOOP           LABEL    1560
                          20101                   SBIT   X1,LA.EXTP/LA.REFP                                      LABEL    1561
          1043  0331001050 +                      MI     X1,FBS12    IF KNOWN TO BE EXIT                         LABEL    1562
                          20172                   SBIT   X1,LA.DEFP/LA.EXTP                                      LABEL    1563
          1044  0331001050 +                      MI     X1,FBS12    IF LABEL DEFINED IN THIS DO LOOP            LABEL    1564
                          5110000000 X            SA1    T.SYM                                                   LABEL    1565
          1045  7160200000                        CLAS=  X6,WB,(DLEX)                                            LABEL    1566
                          12336                   BX3    X3+X6       MERGE LOOP EXIT BIT                         LABEL    1567
                               63720              SB7    X2                                                      LABEL    1568
          1046  20201                             LX2    1                                                       LABEL    1569
                     63727                        SB7    B7+X2       CONVERT ORDINAL TO INDEX                    LABEL    1570
                                   0              ERRNZ  3-Z=SYM                                                 LABEL    1571
                          66771                   =B7    B7-WA.W+WB.W                                            LABEL    1572
                               53217              SA2    X1+B7                                                   LABEL    1573
          1047  7160000400                        CLAS=  X6,WB,(SLEX)                                            LABEL    1574
                          12626                   BX6    X2+X6                                                   LABEL    1575
                               54620              SA6    A2                                                      LABEL    1576
                                                                                                                 FC50594    35
          1050  20704                    FBS12    SBIT   X7,LA.ALRNP                                             FC51356    88
                     0327001052 +                 PL     X7,FBS12A   IF NO *ALTERNATE RETURN* TO THIS LABEL      FC51356    89
                               43601              MX6    1                                                       FC51356    90
          1051  5160001125 +                      SA6    ALRNF                                                   FC51356    91
                                                                                                                 FC51356    92
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    38
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
          1052  20701                    FBS12A   SBIT   X7,LA.GOTOP/LA.ALRNP                                    FC51356    93
                     0327001054 +                 PL     X7,FBS12B   IF NO *GOTO* TO THIS LABEL                  FC51356    94
                               43601              MX6    1                                                       FC51356    95
          1053  5160001126 +                      SA6    GOTOF                                                   FC51356    96
                                                                                                                 FC51356    97
          1054  66221                    FBS12B   =B2    B2+1                                                    FC51356    98
                     67331                        =B3    B3-1                                                    LABEL    1578
                          0530001041 +            NZ     B3,FBS11    IF NOT FINISHED                             LABEL    1579
                                                                                                                 LABEL    1580
                                        *         TEST FOR ILLEGAL ENTRY/EXIT CONDITIONS                         LABEL    1581
                                                                                                                 LABEL    1582
          1055  43101                             CLAS=  X1,WB,(DLC)                                             LABEL    1583
                          12631                   BX6    X3+X1       MARK LOOP CLOSED                            LABEL    1584
                               54630              SA6    A3          UPDATE DO LOOP HEADER LABEL *WB*            LABEL    1585
          1056  20601                             LX6    WB.DLENP-WB.DLEXP                                       LABEL    1586
                     15136                        BX1    -X6*X3                                                  LABEL    1587
                          10233                   BX2    X3                                                      FC50015    25
                               20152              HX1    WB.DLEN     MI IFF LOOP HAS ENTRY AND NO EXIT           LABEL    1589
          1057  20252                             HX2    WB.DLEN     MI IFF LOOP HAS EXIT AND NO ENTRY           LABEL    1590
                     0322001061 +                 PL     X2,FBS13A   IF NO ENTRY                                 FC50015    26
          1060  6170000000 X                      ANSI   E.DO19      LOOP HAS ENTRY                              FC50015    27
                                                                                                                 FC50015    28
          1061  0321001066 +             FBS13A   PL     X1,FBS14    IF NO ENTRY OR HAS EXIT                     FC50015    29
                          5120001125 +            SA2    ALRNF                                                   FC51356    99
          1062  0322001064 +                      PL     X2,FBS13B   IF NO ALTERNATE RETURN TO LOOP              FC51356   100
                          6170000000 X            WARN   E.DO20                                                  FC51356   101
                                                                                                                 FC51356   102
          1064  5120001126 +             FBS13B   SA2    GOTOF                                                   FC51356   103
                          0322001066 +            PL     X2,FBS14    IF NO *GOTO* TO THIS LOOP                   FC51356   104
          1065  6170000000 X                      FATAL  E.DO07                                                  FC51356   105
                                                                                                                 FC50594    36
          1066  15263                    FBS14    BX2    -X3*X6                                                  FC50015    30
                     20252                        HX2    WB.DLEN                                                 FC50015    31
                          20353                   SBIT   X3,WB.DLEXP                                             FC50015    32
                               43001              CLAS=  X0,WB,(INDO)                                            FC50015    33
                     0333001071 +                 MI     X3,FBS14A   IF DO LOOP CONTAINS EXIT                    FC50015    34
                               43001              CLAS=  X0,WB,(INA)                                             FC50015    35
                                                                                                                 FC50015    36
                                        *         WHEN NO EXIT FROM CLOSED DO LOOP, MARK ALL DEFINED LABELS      FC50015    37
                                        *         INACTIVE.  IF OPEN, MARK *INDO*.                               FC50015    38
                                                                                                                 FC50015    39
          1071  5110000000 X             FBS14A   SA1    T.SCR                                                   FC50015    40
                          5130000000 X            SA3    T=SCR                                                   FC50015    41
          1072  6233777766                        SB3    X3-Z=BLST-1 NUMBER OF LABELS                            FC50015    42
                          6221000010              SB2    X1+Z=BLST   STARTING POINT                              FC50015    43
                                                                                                                 FC50594    37
          1073  56120                    FBS15    SA1    B2          FETCH LABEL                                 FC50015    44
                     73310                        SX3    X1          EXTRACT ORDINAL                             FC50015    45
                                   0              ERRNZ  0-LA.ORDP+18-LA.ORDL                                    FC50015    46
                                                  SBIT   X1,LA.DEFP                                              FC50015    47
                          0321001077 +            PL     X1,FBS16    IF LABEL NOT DEFINED IN CURRENT LOOP        FC50015    48
          1074  5110000000 X                      SA1    T.SYM                                                   FC50015    49
                          63730                   SB7    X3                                                      FC50015    50
                               20301              LX3    1                                                       FC50015    51
          1075  63737                             SB7    B7+X3       CONVERT ORDINAL TO INDEX                    FC50015    52
                                   0              ERRNZ  3-Z=SYM                                                 FC50015    53
                     66771                        =B7    B7-WA.W+WB.W                                            FC50015    54
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    39
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
                          53317                   SA3    X1+B7                                                   FC50015    55
                               12603              BX6    X0+X3                                                   FC50015    56
          1076  54630                             SA6    A3          MARK DEFINED LABEL AS INACTIVE              FC50015    57
                                                                                                                 FC50594    38
          1077  66221                    FBS16    =B2    B2+1                                                    FC50015    58
                     67331                        =B3    B3-1                                                    FC50015    59
                          0530001073 +            NZ     B3,FBS15    IF NOT FINISHED                             FC50015    60
          1100  0322001101 +                      PL     X2,FBS18    IF NO POSSIBLE LEGAL ENTRY                  FC50015    61
                          0100000000 X            CALL   LPE         LINK POSSIBLE-ENTRY DO LOOPS                FC5A127    34
                                                                                                                 FC50594    39
          1101  5120000000 X             FBS18    SA2    T=BLST                                                  FC50015    62
                          0302001113 +            ZR     X2,FBS20    IF THIS IS ONLY BLOCK                       LABEL    1604
                                                                                                                 LABEL    1605
                                        *         MERGE LABELS INTO OUTER BLOCK                                  LABEL    1606
                                                                                                                 LABEL    1607
          1102  5120000000 X                      SA2    T=SCR                                                   LABEL    1608
                          7222777776              SX2    X2-1                                                    LABEL    1609
          1103  10622                             SHRINK A2,X2       REMOVE COUNT WORD (LC.)                     LABEL    1610
                                                                                                                 LABEL    1611
          1104  5110000000 X             FBS19    SA1    T.SCR                                                   FC50015    63
                          6252777767              SB5    X2-Z=BLST                                               LABEL    1613
          1105  0450001113 +                      ZR     B5,FBS20    IF NO MORE LABELS                           LABEL    1614
                          6252777776              SB5    X2-1                                                    LABEL    1615
          1106  53315                             SA3    X1+B5       FETCH LABEL                                 LABEL    1616
                     43001                        CLAS=  X0,LA,(DEF)                                             LABEL    1617
                          11003                   BX0    X0*X3                                                   LABEL    1618
                                                  HX0    LA.DEF                                                  LABEL    1619
                               20001              LX0    LA.DEFL                                                 LABEL    1620
          1107  63200                             SB2    X0          REF/DEF INDICATOR                           LABEL    1621
                                                  LX3    -LA.ORDP                                                LABEL    1622
                     73630                        SX6    X3          EXTRACT ORDINAL                             LABEL    1623
                                   0              ERRNZ  18-LA.ORDL                                              LABEL    1624
                          36366                   IX3    X6+X6                                                   LABEL    1625
                               36336              IX3    X3+X6       CONVERT ORDINAL TO INDEX                    LABEL    1626
          1110  63731                             =B7    X3-WA.W+WB.W                                            LABEL    1627
                     0100000672 +                 RJ     ALU         ANALYZE LABEL USAGE (FOR OUTER STRUCTURE)   LABEL    1628
          1111  5120000000 X                      SA2    T=SCR                                                   LABEL    1629
                          7222777776              SX2    X2-1                                                    LABEL    1630
          1112  10622                             SHRINK A2,X2       REMOVE THE LABEL JUST PROCESSED             LABEL    1631
                          0400001104 +            EQ     FBS19                                                   FC50015    64
                                                                                                                 LABEL    1633
                                        *         MOVE BLOCK BACK TO T.BLST                                      LABEL    1634
                                                                                                                 LABEL    1635
          1113  5110000000 X             FBS20    ALLOC  T.BLST,Z=BLST                                           LABEL    1636
          1115  7110000010                        SX1    Z=BLST      LENGTH                                      LABEL    1637
                          5120000000 X            SA2    T.SCR       SOURCE                                      LABEL    1638
          1116  7137777767                        SX3    B7-Z=BLST   DESTINATION                                 LABEL    1639
                          0100000000 X            MOVE   X1,X2,X3                                                LABEL    1640
          1117  5110001124 +                      SA1    FBSA                                                    LABEL    1641
                          7160000011              SX6    Z=BLST+1                                                LABEL    1642
          1120  43052                             MX0    -LC.CNTL                                                LABEL    1643
                     11101                        BX1    X0*X1       CLEAR COUNT                                 LABEL    1644
                          12616                   BX6    X1+X6                                                   LABEL    1645
          1121  5110000000 X                      ADDWD  T.BLST      NEW LC. WORD                                LABEL    1646
                                                                                                                 LABEL    1647
          1122  76600                    FBS25    SHRINK T=SCR,B0                                                LABEL    1648
          1123  0400000771 +                      EQ     EXIT.                                                   LABEL    1649
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    40
        DO NEST AND IF BLOCK LABEL LINKAGE.                           FBS 
  
                                                                                                                 LABEL    1650
          1124                     1     FBSA     BSS    1                                                       LABEL    1651
          1125                     1     ALRNF    BSS    1                                                       FC51356   106
          1126                     1     GOTOF    BSS    1                                                       FC51356   107
  
  
  
  
                                        **        PDA -  PROPOGATE DO LOOP ATTRIBUTES                            LABEL    1653
                                        *                                                                        LABEL    1654
                                        *         ENTRY  (X0) = DO ATTRIBUTE BITS TO PROPOGATE                   LABEL    1655
                                        *                (X2) = (T=BLST)                                         LABEL    1656
                                        *                                                                        LABEL    1657
                                        *         EXIT   ALL DO LOOPS CURRENTLY ACTIVE GAIN ATTRIBUTES           LABEL    1658
                                        *                                                                        LABEL    1659
                                        *         USES   A1,A3,A7  X0,X1,X2,X3,X7  B2,B3,B7                      FC5A341    30
                                                                                                                 LABEL    1661
                                                                                                                 LABEL    1662
          1127  0400401127 +             PDA      SUBR   =           ...ENTRY/EXIT...                            LABEL    1663
          1130  5110000000 X                      SA1    T.BLST                                                  LABEL    1664
                          6222777776              SB2    X2-1                                                    LABEL    1665
                                                                                                                 FC5A341    31
          1131  53312                    PDA1     SA3    X1+B2       FETCH LC. WORD FOR BLOCK                    LABEL    1666
                                                  LX3    -LC.CNTP                                                LABEL    1667
                     63730                        SB7    X3          NUMBER OF WORDS IN THIS T.BLST ENTRY        LABEL    1668
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1669
                          20330                   LX3    LC.CNTP-LC.DOP                                          LABEL    1670
                               63330              SB3    X3          DO LOOP HEADER LABEL INDEX                  LABEL    1671
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1672
          1132  67227                             SB2    B2-B7                                                   LABEL    1673
                     0430001135 +                 ZR     B3,PDA2     IF NOT DO LOOP                              LABEL    1674
          1133  5130000000 X                      SA3    T.SYM                                                   LABEL    1675
                          53333                   SA3    X3+B3       FETCH *WB*                                  LABEL    1676
                               12730              BX7    X3+X0       MERGE IN ATTRIBUTE BITS                     LABEL    1677
          1134  54730                             SA7    A3                                                      LABEL    1678
                                                                                                                 FC5A341    32
          1135  0620001131 +             PDA2     PL     B2,PDA1     IF MORE BLOCKS                              LABEL    1679
                          0400001127 +            EQ     EXIT.                                                   LABEL    1680
  
  
  
  
                                        **        RBE  - REMOVE BLOCK ENTRY                                      LABEL    1682
                                        *                                                                        LABEL    1683
                                        *                CALLED WHEN AN ERROR IS DETECTED IN DO PROCESSING       LABEL    1684
                                        *                WHICH RENDERS THE DO TERMINAL UNCOMPILABLE.             LABEL    1685
                                        *                                                                        LABEL    1686
                                        *         ENTRY  (X6) = MI FOR IMPLIED DO.                               FC5A111   152
                                        *                     = ZR FOR BLOCK IF.                                 FC5A111   153
                                        *                     = DO TERMINATOR (TP. FORMAT) FOR PROGRAMMER DO.    FC5A111   154
                                        *                                                                        FC5A111   155
                                        *                (IODOLEN) = LENGTH OF T.BLST PRIOR TO                   FC5A111   156
                                        *                            COMPILING IMPLIED DO.                       FC5A111   157
                                        *                                                                        LABEL    1688
                                        *         EXIT   ALL DO ENTRIES ON T.BLST PERTAINING TO THAT TERMINATOR  LABEL    1689
                                        *                ARE REMOVED.   THE WB.DOIX BIT IS UNSET FOR THE CONTROL LABEL    1690
                                        *                INDEX OF EACH DO REMOVED.                               LABEL    1691
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    41
        DO NEST AND IF BLOCK LABEL LINKAGE.                           RBE 
  
                                        *                                                                        LABEL    1692
                                        *         USES   A1,A2,A3,A6  X0,X1,X2,X3,X6  B2,B3,B7                   LABEL    1693
                                        *                                                                        LABEL    1694
                                        *         CALLS  ALC, FBS, MVE=                                          LABEL    1695
                                                                                                                 LABEL    1696
                                                                                                                 LABEL    1697
          1136  0400401136 +             RBE      SUBR   =           ...ENTRY/EXIT...                            LABEL    1698
          1137  0336001176 +                      MI     X6,RBE10    IF IMPLIED DO                               FC5A111   158
                          0316001146 +            NZ     X6,RBE1     IF NOT BLOCK IF                             LABEL    1699
          1140  5110000000 X                      SA1    IFLEVEL                                                 LABEL    1700
                          7261777776              SX6    X1-1                                                    LABEL    1701
          1141  5061000000                        SA6    A1+         DECREMENT IF LEVEL                          LABEL    1702
                          0100000771 +            RJ     FBS         FINISH BLOCK STRUCTURE                      LABEL    1703
          1142  5110000000 X                      SA1    T.BLST                                                  LABEL    1704
                          5120000000 X            SA2    T=BLST                                                  LABEL    1705
          1143  6222777776                        SB2    X2-1                                                    LABEL    1706
                          53312                   SA3    X1+B2       FETCH COUNT                                 LABEL    1707
                               73330              SX3    X3                                                      LABEL    1708
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1709
          1144  37223                             IX2    X2-X3                                                   LABEL    1710
                     10622                        SHRINK T=BLST,X2                                               LABEL    1711
          1145  0400001136 +                      EQ     EXIT.                                                   LABEL    1712
                                                                                                                 LABEL    1713
                                   0     .FIX     SET    --          MRR - REDO THIS TO UTILIZE FBS              LABEL    1714
                                                                                                                 LABEL    1715
                                         RBE1     HX6    TP.ORD      LEFT JUSTIFY DO TERMINAL LABEL              LABEL    1716
          1146  21654                             AX6    -TP.ORDL    ISOLATE                                     LABEL    1717
                     63360                        SB3    X6                                                      LABEL    1718
                          67303                   SB3    -B3         PRESERVE TAG OF DO TERMINAL                 LABEL    1719
                               13666              SHRINK T=SCR                                                   LABEL    1720
                                                                                                                 LABEL    1721
          1150  5120000000 X             RBE2     SA2    T.BLST                                                  LABEL    1722
                          5130000000 X            SA3    T=BLST                                                  LABEL    1723
          1151  6223777776                        SB2    X3-1                                                    LABEL    1724
                          53122                   SA1    X2+B2       FETCH COUNT WORD                            LABEL    1725
                                                  LX1    -LC.CNTP                                                LABEL    1726
                               63210              SB2    X1          EXTRACT COUNT                               LABEL    1727
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1728
          1152  20130                             LX1    LC.CNTP-LC.DOP                                          LABEL    1729
                     73110                        SX1    X1          EXTRACT DO.N INDEX                          LABEL    1730
                                   0              ERRNZ  18-LC.DOL                                               LABEL    1731
                          0301001156 +            ZR     X1,RBE3     IF BLOCK IF STRUCTURE                       LABEL    1732
          1153  76020                             SX0    B2                                                      LABEL    1733
                     37030                        IX0    X3-X0                                                   LABEL    1734
                          6270000005              SB7    X0+DO.W                                                 LABEL    1735
          1154  53127                             SA1    X2+B7                                                   LABEL    1736
                     21122                        AX1    DO.TAGP                                                 LABEL    1737
                          73113                   SX1    X1+B3                                                   LABEL    1738
          1155  0301001163 +                      ZR     X1,RBE4     IF NOT DO ENTRY MATCH                       FC5A211   140
                                                                                                                 LABEL    1757
                                        *         IF NOT A DO ENTRY TO DISCARD, SAVE ON T.SCR                    LABEL    1758
                                        *                (B2) = SIZE OF BLOCK INFORMATION SEGMENT                LABEL    1759
                                                                                                                 LABEL    1760
          1156  5110000000 X             RBE3     ALLOC  T.SCR,B2                                                LABEL    1761
          1160  5110000000 X                      SA1    T.BLST                                                  LABEL    1762
                          5120000000 X            SA2    T=BLST                                                  LABEL    1763
          1161  76020                             SX0    B2                                                      LABEL    1764
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    42
        DO NEST AND IF BLOCK LABEL LINKAGE.                           RBE 
  
                     36212                        IX2    X1+X2                                                   LABEL    1765
                          37220                   IX2    X2-X0       SOURCE                                      LABEL    1766
                               76120              SX1    B2          LENGTH                                      LABEL    1767
          1162  77372                             SX3    B7-B2       DESTINATION                                 LABEL    1768
                     0100000000 X                 MOVE   X1,X2,X3                                                LABEL    1769
                                                                                                                 LABEL    1770
                                        *         SCRATCH LAST T.BLST ENTRY                                      LABEL    1771
                                        *                (B2) = SIZE OF BLOCK INFORMATION SEGMENT                LABEL    1772
                                                                                                                 LABEL    1773
          1163  5110000000 X             RBE4     SA1    T=BLST                                                  LABEL    1774
                          76020                   SX0    B2                                                      LABEL    1775
                               37110              IX1    X1-X0                                                   LABEL    1776
          1164  10611                             SHRINK A1,X1                                                   LABEL    1777
                          0316001150 +            NZ     X6,RBE2     IF NOT FINISHED                             LABEL    1778
                                                                                                                 LABEL    1779
                                        *         THE BLOCK INFORMATION IS NOW ON T.SCR, IN REVERSE ORDER.       LABEL    1780
                                        *         MOVE IT BACK TO T.BLST, IN PROPER FORM.                        LABEL    1781
                                                                                                                 LABEL    1782
          1165  5120000000 X                      SA2    T=SCR                                                   LABEL    1783
                          0302001136 +            ZR     X2,EXIT.    IF NO BLOCK INFORMATION                     LABEL    1784
          1166  5110000000 X                      ALLOC  T.BLST,X2                                               LABEL    1785
          1170  63210                             SB2    X1                                                      LABEL    1786
                     63320                        SB3    X2                                                      LABEL    1787
          1171  5110000000 X             RBE5     SA1    T.SCR                                                   LABEL    1788
                          67731                   =B7    B3-1                                                    LABEL    1789
                               53217              SA2    B7+X1       FETCH COUNT WORD                            LABEL    1790
                                                  LX2    -LC.CNTP                                                LABEL    1791
          1172  63720                             SB7    X2          EXTRACT COUNT                               LABEL    1792
                                   0              ERRNZ  18-LC.CNTL                                              LABEL    1793
                     67337                        SB3    B3-B7                                                   LABEL    1794
                          73213                   SX2    B3+X1       SOURCE                                      LABEL    1795
                               76170              SX1    B7          LENGTH                                      LABEL    1796
          1173  76320                             SX3    B2          DESTINATION                                 LABEL    1797
                     66227                        SB2    B2+B7       INCREMENT                                   LABEL    1798
                          0100000000 X            MOVE   X1,X2,X3                                                LABEL    1799
          1174  0530001171 +                      NZ     B3,RBE5     IF NOT FINISHED                             LABEL    1800
                          13666                   SHRINK T=SCR                                                   LABEL    1801
                          0400001136 +            EQ     EXIT.                                                   LABEL    1802
                                                                                                                 FC5A211   141
                                        *         LOOP IS AN IMPLIED DO. EACH LEVEL OF THE LOOP                  FC5A111   159
                                        *         MUST BE DELETED FROM T.BLST.                                   FC5A211   142
                                                                                                                 FC5A111   162
          1176  5130000000 X             RBE10    SA3    IODOLEN                                                 FC51490    12
                          7233777767              SX3    X3-Z=BLST                                               FC51490    13
                                                                                                                 FC51490    14
          1177  5110000000 X             RBE12    SA1    T.BLST                                                  FC51490    15
                          5120000000 X            SA2    T=BLST                                                  FC51490    16
          1200  0302001136 +                      ZR     X2,EXIT.    IF BLST EMPTY                               FC51490    17
                          6222777776              SB2    X2-1                                                    FC51490    18
          1201  53112                             SA1    X1+B2                                                   FC51490    19
                     73110                        SX1    X1          ISOLATE COUNT                               FC51490    20
                          37121                   IX1    X2-X1                                                   FC51490    21
                               10611              SHRINK T=BLST,X1   ELIMINATE ENTIRE IMPLIED DO                 FC5A111   197
                          7233777767              SX3    X3-Z=BLST                                               FC51490    22
          1203  0323001177 +                      PL     X3,RBE12    IF ANOTHER LEVEL IN IMPLIED *DO*            FC51490    23
                          0400001136 +            EQ     EXIT.                                                   FC5A111   198
                                                                                                                 LABEL    1803
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    43
        DO NEST AND IF BLOCK LABEL LINKAGE.                           RBE 
  
                                                  LIST   D                                                       LABEL    1804
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        E.DO10
             0 X                        CO.OPT
             0 Y                        V=DOC.1 
  
                                        CONTENT OF LITERALS BLOCK.
  
          1204  00000000077740000000        G;5 
          1205  00000000000044000200          9 B 
          1206  00000000000004000010          D  H
          1207  00000000000040000010          5  H
          1210  00000000000010000140          H A5
          1211  00000000014000000000        A5
          1212  00000000000004000200          D B 
          1213  33000000000000000000    0 
          1214  24221120550317251624    TRIP COUNT
          1215  15344515365555555555    M1+M3 
          1216  15354515365555555555    M2+M3 
          1217  30000000000000000000    X 
          1220  44000000000000000000    9 
  
          1221                                    END                                                            LABEL    1805
  
                             74400B CM  STORAGE USED             6945 STATEMENTS     1612 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            5.777 SECONDS        1360 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACT             0   EXTERNAL*       2/30 X   20/19     21/13
        ADW             0   EXTERNAL*       1/51 X   33/38     37/13     39/54
        ALC             0   EXTERNAL*       1/51 X   19/14     35/41     36/57     39/44     41/54     42/21
        ALRNF        1125   PROGRAM*       37/27 S   37/56 S   38/24     40/03 L
        ALU           672   PROGRAM*        7/24     14/09     31/17 L   31/17 E   36/49     39/36
        ALU1          701   PROGRAM*       31/40     31/44 L
        ALU10         715   PROGRAM*       32/06     32/28 L
        ALU12         726   PROGRAM*       32/50     32/54 L
        ALU14         730   PROGRAM*       32/55     33/01 L
        ALU2          705   PROGRAM*       31/49     31/51     31/54 L
        ALU20         731   PROGRAM*       31/42     31/55     32/11     32/24     32/32     32/35     32/37     33/10 L
        ALU21         733   PROGRAM*       33/16 L   33/22
        ALU25         737   PROGRAM*       33/16     33/34 L
        ALU5          706   PROGRAM*       31/33     32/06 L
        ALU7          714   PROGRAM*       32/18     32/22 L
        ANSI=           0   EXTERNAL*       2/33 X   10/54     38/21
        ARGCOMA         0   EXTERNAL*       1/57 X   19/55 S
        ARGMODE         0   EXTERNAL*       1/57 X   19/56 S
        ASK             0   EXTERNAL*       1/57 X   16/16
        ASL             0   EXTERNAL*       1/57 X   16/20
        BBC             0   EXTERNAL*       1/57 X   21/39     34/11
        B1=1            0 
        CDI           334   PROGRAM*       16/45     18/23 L   18/23 E
        CDIA          556   PROGRAM*       18/51 S   18/55     19/44     20/53     24/14     25/44 L
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        CDIB          557   PROGRAM*       19/13 S   21/21     25/45 L
        CDIC          560   PROGRAM*       23/35 S   25/03     25/46 L
        CDID          561   PROGRAM*       20/10 S   23/39     25/47 L
        CDIE          562   PROGRAM*       18/29 S   25/28     25/48 L
        CDIFLG        563   PROGRAM*       14/55     18/26 S   18/40 S   20/25     25/49 L   25/49 E   35/04 S
        CDI10         345   PROGRAM*       18/30     18/50 L
        CDI20         371   PROGRAM*       19/47     19/52 L
        CDI30         414   PROGRAM*       20/30     20/47 L
        CDI40         427   PROGRAM*       20/51     21/20 L
        CDI405        433   PROGRAM*       21/20     21/32 L
        CDI41         447   PROGRAM*       21/55     22/01 L
        CDI5          344   PROGRAM*       18/38     18/43 L
        CDI50         457   PROGRAM*       21/53     22/25 L
        CDI51         471   PROGRAM*       22/47     22/50 L
        CDI52         474   PROGRAM*       22/55     23/01 L
        CDI60         476   PROGRAM*       22/34     22/53     23/06 L
        CDI70         500   PROGRAM*       21/50     22/27     23/04     23/13 L
        CDI80         503   PROGRAM*       23/13     23/22 L
        CDI81         506   PROGRAM*       23/28     23/31 L
        CDI81A        522   PROGRAM*       23/54     24/06 L
        CDI81B        520   PROGRAM*       23/56     24/02 L
        CDI82         525   PROGRAM*       23/41     23/44     24/04     24/13 L
        CDI90         552   PROGRAM*       25/22     25/27 L
        CDI95         555   PROGRAM*       25/29     25/32 L
        CHAR            6   FTX             4/21      4/23      4/28      4/36      4/38      4/48     17/04
        CONONE          0   EXTERNAL*       2/36 X   19/34
        CO.OPT          0   EXTERNAL*      23/47
        CO.SNAP         0   EXTERNAL*       2/18 X
        CR.DO           4   FTX            18/35
        CR.LAB         14   FTX             7/27
        CSB             0   EXTERNAL*       1/57 X   15/27
        CSLTAG          0   EXTERNAL*       1/57 X    6/57 S    7/26
        CT1             0   EXTERNAL*       1/57 X    9/15     13/09     19/30     21/09     25/12     29/20
        CUL             1   PROGRAM*        4/17 L    4/17 E    8/27
        CUL10           5   PROGRAM*        4/27 L    4/33      4/39
        CUL20          13   PROGRAM*        4/42 L    4/47      4/50
        CUL30          15   PROGRAM*        4/27      4/46 L
        CURST           0   EXTERNAL*       2/30 X   29/41 S
        DDR           742   PROGRAM*       34/01 L   34/01 E
        DDR1          751   PROGRAM*       34/19 L   35/07
        DDR2          765   PROGRAM*       34/43     35/02 L
        DDR5          770   PROGRAM*       34/26     34/31     35/07 L
        DER             0   EXTERNAL*       2/12 X   10/57
        DMT=            0   EXTERNAL*       2/15 X
        DOARM           0   EXTERNAL*       2/30 X   19/53
        DOCI.W          3   FTX            20/16     21/42     23/23     24/57     25/01     29/09     29/10     34/27
        DOII.W          2   FTX            19/37     19/37 S   19/38     20/47     21/37 S   22/41     29/10
        DOLI.W          1   FTX            19/38     19/39     21/38     21/41 S   22/38     25/08
        DOMODE          0   PROGRAM*        3/04 L    3/04 E
        DORT.W          4   FTX            19/31     19/33 S   24/09 S   25/18     28/19     29/15
                                           19/33     20/33 S   25/18     25/19     29/15     29/16
        DOSI.W          0   FTX            19/39     20/15     20/16     22/38     22/41     27/54
        DOTC.W          6   FTX            20/11 S   20/15     21/46     25/01
        DO.BEG          0   EXTERNAL*       2/30 X   23/33
        DO.FLGL        22   FTX            27/55
        DO.FLGP        52   FTX            24/55
        DO.IODL        22   FTX            15/12     30/26     34/41     34/42
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        DO.IODP         0   FTX            15/15     34/41
        DO.TAGL        22   FTX            12/41     15/17     28/07     28/08     30/14     30/34
        DO.TAGP        22   FTX            12/39     15/33     18/57     28/07     30/32
                                           15/15     18/45     19/26     30/16     41/47
        DO.W            5   FTX            12/37     19/29     19/31     24/54     28/02     30/28     41/45
                                           15/07     19/29 S   20/32     27/54     30/13     34/39
        DP.DOTIL       22   FTX            25/09     25/10     29/17     29/18
        DP.DOTIP       22   FTX            24/27     25/09     29/17
        DP.DOXLL       22   FTX            25/21     29/28
        DP.DOXLP       52   FTX            22/10     23/18
        DP.TURCL       22   FTX            22/12     29/02     29/03
        DP.TURCP        0   FTX            29/02
        DP.W            7   FTX            19/33     19/37     22/03     23/49     25/07     25/19     29/16
                                           19/33 S   19/37 S   23/15     24/25     25/07     29/01     29/26
        DTC             0   EXTERNAL*       2/30 X   20/04
        DTI             0   EXTERNAL*       1/57 X    7/08 S   15/31
        DUC=            0   FTX            22/17     25/27
        DUC=BOTH        3   FTX            25/14     29/06
        DUC=2ND         2   FTX            29/22
        EMT             0   EXTERNAL*       2/30 X   22/17     25/03     25/14     25/27     29/11     29/22     29/34
        ERT             0   EXTERNAL*       1/57 X    7/29     14/21
        ESTACK          0   EXTERNAL*       2/01 X   20/17     21/11
        ESY             0   EXTERNAL*       2/01 X    6/07     13/08
        E=TOTAL         0   EXTERNAL*       2/36 X   18/24     20/24
        E.DO01          0   EXTERNAL*       2/05 X   21/54
        E.DO03          0   EXTERNAL*       2/05 X   23/07
        E.DO05          0   EXTERNAL*       2/05 X   16/19
        E.DO06          0   EXTERNAL*       2/05 X   12/30
        E.DO07          0   EXTERNAL*       2/05 X   38/30
        E.DO08          0   EXTERNAL*       2/05 X   35/05
        E.DO10          0   EXTERNAL*      16/35
        E.DO12          0   EXTERNAL*       2/05 X   12/53     28/05     28/05
        E.DO13          0   EXTERNAL*       2/05 X   28/22
        E.DO14          0   EXTERNAL*       2/06 X   16/29
        E.DO18          0   EXTERNAL*       2/06 X   21/56
        E.DO19          0   EXTERNAL*       2/06 X   10/54     38/21     38/21
        E.DO20          0   EXTERNAL*       2/09 X   38/26
        E.IF16          0   EXTERNAL*       2/06 X   27/44
        E.NP1           0   EXTERNAL*       2/06 X   17/02
        E.SL00          0   EXTERNAL*       2/06 X    5/42
        E.SL01          0   EXTERNAL*       2/06 X    5/25
        E.SL02          0   EXTERNAL*       2/06 X   10/08
        E.SL03          0   EXTERNAL*       2/07 X   10/25
        E.SL04          0   EXTERNAL*       2/07 X   10/14
        E.SL05          0   EXTERNAL*       2/07 X   10/35
        E.SL06          0   EXTERNAL*       2/07 X   10/30     11/44
        E.SL07          0   EXTERNAL*       2/07 X   11/34
        E.SL08          0   EXTERNAL*       2/07 X   11/49     11/54
        E.SL09          0   EXTERNAL*       2/07 X   10/48     31/52
        E.SL10          0   EXTERNAL*       2/07 X    6/28
        E.SL11          0   EXTERNAL*       2/08 X    9/19
        E.SL12          0   EXTERNAL*       2/08 X    6/31
        E.SL13          0   EXTERNAL*       2/08 X    6/45
        E.SL14          0   EXTERNAL*       2/08 X    4/49
        E.SL15          0   EXTERNAL*       2/08 X    4/40
        E.SL16          0   EXTERNAL*       2/08 X    5/44
        E.SL17          0   EXTERNAL*       2/08 X   10/11
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        E.SL18          0   EXTERNAL*       2/08 X    8/09
        E.SL19          0   EXTERNAL*       2/09 X    4/46
        E.SL20          0   EXTERNAL*       2/09 X   10/44     10/44
        FBS           771   PROGRAM*       28/26     28/31     35/25 L   35/25 E   41/13
        FBSA         1124   PROGRAM*       35/34 S   37/09     39/49     40/02 L
        FBS1         1006   PROGRAM*       36/04 L   36/22
        FBS10        1036   PROGRAM*       35/54     37/22 L
        FBS11        1041   PROGRAM*       37/30 L   38/08
        FBS12        1050   PROGRAM*       37/35     37/37     37/39     37/53 L
        FBS12A       1052   PROGRAM*       37/54     38/01 L
        FBS12B       1054   PROGRAM*       38/02     38/06 L
        FBS13A       1061   PROGRAM*       38/20     38/23 L
        FBS13B       1064   PROGRAM*       38/25     38/28 L
        FBS14        1066   PROGRAM*       38/23     38/29     38/32 L
        FBS14A       1071   PROGRAM*       38/36     38/42 L
        FBS15        1073   PROGRAM*       38/47 L   39/07
        FBS16        1077   PROGRAM*       38/51     39/05 L
        FBS18        1101   PROGRAM*       39/08     39/11 L
        FBS19        1104   PROGRAM*       39/20 L   39/40
        FBS2         1012   PROGRAM*       36/08     36/20 L
        FBS20        1113   PROGRAM*       39/12     39/22     39/44 L
        FBS25        1122   PROGRAM*       37/14     39/56 L
        FBS3         1013   PROGRAM*       36/01     36/24 L   37/22
        FBS4         1016   PROGRAM*       36/33 L   36/53
        FBS5         1025   PROGRAM*       36/25     36/35     36/57 L
        FEC.RTN         0   EXTERNAL*       2/01 X   15/32     15/35     15/38
        FILL.           0   EXTERNAL*       2/09 X    4/22 S    7/20
        FILL.2          0   EXTERNAL*       2/09 X    8/14 S
        FILL.3          0   EXTERNAL*       2/09 X   23/06 S
        FLOW            0   EXTERNAL*       2/01 X   16/46
        GOTOF        1126   PROGRAM*       37/28 S   38/04 S   38/28     40/04 L
        GSL            21   PROGRAM*        5/20 L    5/20 E
        GSL10          45   PROGRAM*        5/37      6/14 L
        GSL10A         55   PROGRAM*        6/20      6/34 L
        GSL10B         56   PROGRAM*        6/25      6/27      6/30      6/32      6/37 L
        GSL11          60   PROGRAM*        6/35      6/42 L
        GSL15          62   PROGRAM*        6/44      6/47 L
        GSL20          63   PROGRAM*        5/43      5/45      6/09      6/40      6/56 L
        GSL30          67   PROGRAM*        7/01      7/05 L
        GSL40          71   PROGRAM*        7/07      7/10 L
        GSL5           34   PROGRAM*        5/34      5/49 L
        GSL5A          37   PROGRAM*        5/51      5/56 L
        GSL50          77   PROGRAM*        7/03      7/11      7/13      7/19      7/26 L
        GSL6           42   PROGRAM*        5/57      6/05 L
        GSL7           43   PROGRAM*        5/54      6/03      6/07 L
        HANGER          0   EXTERNAL*       2/01 X   15/21
        IFFLAG          0   EXTERNAL*       2/24 X    8/15      9/27
        IFLEVEL         0   EXTERNAL*       2/01 X   41/10
        INIF            0   EXTERNAL*       2/24 X   15/22
        INN             0   EXTERNAL*       2/01 X   18/53     20/56     24/17
        IODOLEN         0   EXTERNAL*       2/21 X   42/43
        ISL           103   PROGRAM*        8/02 L    8/02 E   18/37
        ISL10         153   PROGRAM*       10/07     10/11 L
        ISL12         156   PROGRAM*       10/01     10/17 L
        ISL14         161   PROGRAM*       10/24     10/28 L
        ISL16         163   PROGRAM*       10/18     10/35 L
        ISL17         171   PROGRAM*       10/42     10/47 L
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        ISL18         173   PROGRAM*       10/40     10/51 L
        ISL19         176   PROGRAM*       10/52     10/57 L
        ISL2          106   PROGRAM*        8/07      8/10 L
        ISL20         200   PROGRAM*        9/25     11/22 L
        ISL22         205   PROGRAM*       11/28     11/37 L
        ISL24         210   PROGRAM*       11/43     11/47 L
        ISL26         212   PROGRAM*       11/38     11/52 L
        ISL30         214   PROGRAM*       11/33     12/07 L
        ISL31         224   PROGRAM*       12/22     12/33 L
        ISL4          113   PROGRAM*        8/21      8/24 L
        ISL4A         125   PROGRAM*        8/34      8/40      8/46 L
        ISL4B         134   PROGRAM*        9/01      9/05      9/10 L
        ISL40         234   PROGRAM*        8/32     13/04 L
        ISL5          135   PROGRAM*        8/48      8/52      9/15 L
        ISL50         241   PROGRAM*        9/21     10/13     10/26     10/38     11/35     11/50     12/31     13/17 L
                                           10/09     10/15     10/31     10/49     11/45     11/55     12/54
        ISL6          145   PROGRAM*        9/29      9/32 L
        ISL60         243   PROGRAM*       10/29     11/01     11/25     11/48     11/53     12/08     13/26 L
        ISL70         245   PROGRAM*       13/13     13/38 L
        ISL71         255   PROGRAM*       13/46     13/52     14/02 L
        ISL72         260   PROGRAM*        9/37     11/22     12/45     13/38     13/41     13/44     14/03     14/13 L
        ISL75         265   PROGRAM*        8/29     14/25 L
        ISL8          147   PROGRAM*        9/33      9/35 L
        ISL9          150   PROGRAM*        9/26      9/57 L
        KDI           564   PROGRAM*       22/36     22/39     22/42     26/12 L
        KW=DO         313   PROGRAM*       16/14 L   16/14 E
        KW=ENDI         0   EXTERNAL*       2/24 X    7/15
        KW=FORM         0   EXTERNAL*       2/27 X    5/30
        KW.JMPL        22   FTX             5/28      7/17
        KW.JMPP        52   FTX             5/27
        KW.LBLP        47   FTX             5/56      6/34
        LA.ALRNP       67   FTX            32/51     37/53     38/01
        LA.DEFL         1   FTX            33/01     36/41     39/28
        LA.DEFP        73   FTX            33/01     37/38
        LA.ENTL         1   FTX            33/01
        LA.ENTP        70   FTX            33/01
        LA.EXTL         1   FTX            32/19
        LA.EXTP        71   FTX            32/19     37/36     37/38
        LA.GOTOP       66   FTX            32/56     38/01
        LA.ORDL        22   FTX            36/06     36/45     37/33     38/49     39/32
        LA.ORDP         0   FTX            36/06     37/33     38/49
        LA.REFL         1   FTX            32/19
        LA.REFP        72   FTX            31/41     32/10     32/19     37/34     37/36
        LCT             0   EXTERNAL*       1/54 X   20/50     21/47     23/40     26/13
        LC.CNTL        22   FTX            12/35     27/52     31/24     34/36     39/51     41/19     42/29
                                           15/08     30/10     34/22     35/37     40/26     41/38
        LC.CNTP         0   FTX            12/33     27/50     30/08     31/26     35/38     40/27     41/39
        LC.DOL         22   FTX            12/21     30/02     34/23     35/40     41/41
                                           27/42     31/32     34/24     40/29
        LC.DOP         44   FTX             8/38     12/33     27/40     29/57     31/30     35/38     41/39
                                           12/19     19/24     27/50     30/08     34/23     40/27
        LC.LINEL       22   FTX            31/28
        LC.LINEP       22   FTX            19/16     31/26     31/30     37/07
        LDEAD           0   EXTERNAL*       2/01 X   17/01 S
        LPE             0   EXTERNAL*       2/12 X   39/09
        MAX.SDL    377777   FTX            22/29     22/43
        MDD             0   EXTERNAL*       2/12 X   21/45
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        MVE=            0   EXTERNAL*       2/44 X   35/49     37/04     39/48     42/05     42/35
        M.CHAR          6   FTX            34/09
        M.INT           2   FTX            24/18
        M.REAL          3   FTX            23/27     26/15
        NOPATH          0   EXTERNAL*       2/02 X   15/26 S   16/57 S
        N.DOB           0   EXTERNAL*       2/36 X   18/50     20/52     24/13
        N.GL            0   EXTERNAL*       2/36 X   22/02     23/14
        OIL             0   EXTERNAL*       2/02 X   25/30
        OPBSS           0   EXTERNAL*       2/30 X   29/34
        OPDUM           0   EXTERNAL*       2/30 X   29/06
        O.COMMA        42   FTX            16/23
        O.CONS          5   FTX             8/06     16/18
        O.EOS           0   FTX            16/40
        O.SLP          44   FTX            19/48
        O.VAR          11   FTX            16/28
        O.=            41   FTX            16/33     16/41     20/18     21/10
        PAR             0   EXTERNAL*       2/30 X   19/57
        PDA          1127   PROGRAM*       29/49     40/19 L   40/19 E
        PDA1         1131   PROGRAM*       40/23 L   40/37
        PDA2         1135   PROGRAM*       40/31     40/37 L
        PDM             0   EXTERNAL*       2/33 X    7/02     13/17     22/01     27/44     28/22     38/26
                                            4/42     10/44     16/35     23/07     28/05     31/52     38/30
        PDT           571   PROGRAM*       15/34     27/22 L   27/22 E
        PDTA          670   PROGRAM*       27/33 S   27/49     28/06     30/12     30/45 L
        PDTB          671   PROGRAM*       29/08 S   29/11     30/46 L
        PDT1          573   PROGRAM*       27/35 L   27/47
        PDT10         623   PROGRAM*       28/30     28/34 L
        PDT2          602   PROGRAM*       27/43     27/49 L
        PDT25         641   PROGRAM*       29/04     29/24 L
        PDT30         646   PROGRAM*       29/29     29/39 L
        PDT40         650   PROGRAM*       28/25     28/27     29/43 L
        PDT5          612   PROGRAM*       28/04     28/19 L   30/29     30/43
        PDT6          615   PROGRAM*       28/21     28/24 L
        PDT7          620   PROGRAM*       28/20     28/29 L
        PSL           272   PROGRAM*       14/53 L   14/53 E   16/39     16/47
        PSL0          301   PROGRAM*       15/14     15/19 L
        PSL1          302   PROGRAM*       14/56     15/21 L
        PSL2          305   PROGRAM*       15/24     15/27 L
        PSL4          311   PROGRAM*       15/23     15/37 L
        RBE          1136   PROGRAM*       12/29     15/19     27/46     35/02     41/07 E
                                           12/52     20/38     28/11     41/07 L
        RBE1         1146   PROGRAM*       41/09     41/26 L
        RBE10        1176   PROGRAM*       41/08     42/43 L
        RBE12        1177   PROGRAM*       42/46 L   42/55
        RBE2         1150   PROGRAM*       41/32 L   42/14
        RBE3         1156   PROGRAM*       41/42     41/54 L
        RBE4         1163   PROGRAM*       41/49     42/10 L
        RBE5         1171   PROGRAM*       42/24 L   42/36
        REFLIN          0   EXTERNAL*       2/02 X    5/49      6/14      9/06     13/54     18/54     37/06
        REFNUM          0   EXTERNAL*       2/02 X   14/19     18/36 S
        SDOA          333   PROGRAM*       16/15     17/04 L
        SDO1          320   PROGRAM*       16/24     16/28 L
        SDO2          324   PROGRAM*       16/37 L   16/42
        SDO3          327   PROGRAM*       16/34     16/45 L
        SP.SKELP       52   FTX            29/05
        SSY             0   EXTERNAL*       2/02 X    5/23      8/31
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        STLTAG        271   PROGRAM*        9/16 S   12/38     13/10 S   14/13     14/31 L
                                           12/27     12/50     14/04     14/22     34/44
        STLUSE        267   PROGRAM*        8/26 S    8/51     13/04     13/28     14/29 L
                                            8/43      9/22     13/11     14/26 S
        STL0R         270   PROGRAM*        8/28 S   14/30 L   14/30 E
        TB=TYPE         0   EXTERNAL*       2/27 X    5/24      7/14
        TB.TOCL        52   FTX             8/10
        TEST            0   FTX            25/34 F   27/24 F
        TP.GLP         16   FTX            25/23
        TP.INTRP       12   FTX            34/03
        TP.MODEL        3   FTX            21/03     21/05     23/24     34/05
        TP.MODEP        0   FTX            21/05
        TP.ORBIL       50   FTX            34/15
        TP.ORDL        20   FTX            12/43     14/06     14/18     18/44     34/47     41/27
        TP.ORDP        54   FTX            15/18     22/08     25/24     28/10     29/31
        T=ARG           0   EXTERNAL*       2/36 X   14/54     14/54 S
        T=BLST          0   EXTERNAL*       2/36 X   15/03     23/46     29/47     35/30     39/11     41/56
                                            7/10     20/06     24/22     29/54     35/43     41/15     42/10
                                            8/33     20/21     27/35     31/19     35/47     41/21     42/47
                                           12/16     21/33     28/55     33/11     35/47 S   41/21 S   42/53
                                           14/02     21/43     29/43     34/13     36/24     41/33     42/53 S
        T=DATL          0   EXTERNAL*       2/38 X   24/03
        T=PAR           0   EXTERNAL*       2/36 X   24/53     29/39
        T=SCR           0   EXTERNAL*       2/36 X   36/50     39/16     39/56     41/30     42/19     42/37 S
                                           36/29     38/43     39/37     39/56 S   41/30 S   42/37
        T.BLST          0   EXTERNAL*       2/37 X   20/05     25/05     29/24     34/12     37/13     41/14
                                            8/35     20/20     25/16     29/53     35/29     39/44     41/32
                                           12/15     21/32     27/37     31/18     35/44     39/54     41/55
                                           15/02     23/45     28/54     33/10     36/57     39/54     42/21
                                           19/14     24/21     29/13     33/38     37/13     40/20     42/46
        T.PAR           0   EXTERNAL*       2/37 X
        T.SCR           0   EXTERNAL*       2/37 X   35/51     37/02     39/20     41/54
                                           35/41     36/33     38/42     39/46     42/24
        T.SYM           0   EXTERNAL*       2/37 X   12/23     13/27     21/22     31/29     34/53     37/23     38/52
                                            6/07     12/46     13/47     30/31     32/42     36/09     37/40     40/32
        V=DOC.O         0   EXTERNAL*       2/41 X   23/55
        V=DOC.S         0   EXTERNAL*       2/41 X   23/51
        V=DOC.1         0   EXTERNAL*      23/57
        V=GOTO          0   EXTERNAL*       2/41 X   22/17
        V=NOOP          0   EXTERNAL*       2/41 X   25/14     25/27     29/22
        WA.STLP        30   FTX             5/22      8/30
        WA.W            0   FTX            36/14     36/48     37/47     38/57     39/35
        WB.ACTL         1   FTX            19/05
        WB.ACTP        13   FTX            19/05
        WB.ALRNL        1   FTX             8/41      8/49
        WB.ALRNP       36   FTX             8/41      8/49     10/41     10/47     32/49     32/54
        WB.DEFP         7   FTX             8/47
        WB.DLBBP       22   FTX            32/17
        WB.DLCP        31   FTX            38/12
        WB.DLENL        1   FTX            38/18     38/19     38/33
        WB.DLENP       21   FTX            32/39     38/15     38/18     38/19     38/33
        WB.DLEXP       20   FTX            38/15     38/34
        WB.DOGLL        1   FTX            19/05
        WB.DOGLP       15   FTX            19/05
        WB.DOTL         1   FTX             6/21      7/06     11/23
        WB.DOTP         5   FTX             6/21      7/06     10/06     10/17     10/28     11/27     11/42     12/07
                                            6/29      9/57     10/12     10/23     11/23     11/37     11/47     13/42
1       LABEL - LABELS AND *DO* STATEMENT.                            COMPASS 3.7-871.     24/05/02. 13.17.17.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        WB.FDEFL        1   FTX             5/35      5/52      9/23
        WB.FDEFP       24   FTX             5/35      6/23      9/23     10/28     10/39
                                            5/52      7/12     10/12     10/37
        WB.FREFL        1   FTX             6/21      6/26      6/43     11/23
        WB.FREFP       25   FTX             6/21      6/29      9/34     11/23     11/37     11/52     13/39
                                            6/26      6/43     10/17     11/32     11/47     12/07
        WB.FRL         22   FTX             9/04     13/51     31/47     32/33     32/34
        WB.FRP         52   FTX             9/07     13/55     32/33
        WB.GOTOL        1   FTX             8/41      8/49
        WB.GOTOP       35   FTX             8/41      8/49     10/47     32/54
        WB.INAP        12   FTX            10/39     10/51     36/16     38/37
        WB.INDOP       34   FTX            10/51     38/35
        WB.LABL         1   FTX             5/33      5/52      6/01      6/05     19/05
        WB.LABP         3   FTX             5/33      5/52      6/01      6/05     19/05
        WB.MODEL        3   FTX            21/02     21/03     21/05
        WB.MODEP        0   FTX            21/05     24/18
        WB.NDEFL        1   FTX             5/35      6/01
        WB.NDEFP       27   FTX             5/35      6/01      9/20
        WB.NINP        33   FTX            21/28
        WB.SDEFL        1   FTX             5/33      5/35      6/05      9/23     19/05
        WB.SDEFP        7   FTX             5/33      5/35      6/05      9/23      9/32     19/05     32/09
        WB.SREFL        1   FTX             6/21      8/57     11/23     13/45     32/33
        WB.SREFP        6   FTX             6/21      8/57     11/23     13/45     31/48     32/31     32/33
        WB.TLL         14   FTX            18/56
        WB.TLP         41   FTX            19/04
        WB.VARL         1   FTX            24/18
        WB.VARP         5   FTX            24/18
        WB.W            1   FTX             6/18 S   19/23     30/38     32/46     36/14     37/47     39/35
                                           19/02     21/26     32/12     34/52     36/48     38/57
        WC.LINEL       22   FTX            32/13
        WC.LINEP       36   FTX             5/50      6/16     19/03     19/16     32/13     32/14
        WC.W            2   FTX             6/18 S   19/02     32/12
        WO.DOLG         0   EXTERNAL*       2/37 X   22/25     23/22
        WO.DOOT         0   EXTERNAL*       2/37 X   21/48
        WO.LOR          0   EXTERNAL*       2/37 X   14/14
        XR.LINEP        6   FTX             5/50      6/16      9/07     13/55     19/03     37/07
        XR.TAGP        52   FTX             7/28     14/20
        ZRBLMSK        20   PROGRAM*        4/18      4/53 L
        Z=BLST         10   FTX            19/14     20/08     24/06     31/25     36/57     37/25     39/44     42/44
                                           19/15     20/23     24/23     35/53     37/01     38/44     39/45     42/54
                                           19/29     21/35     28/56     36/02     37/03     38/45     39/47
                                           19/29 S   23/49     29/44     36/34     37/05     39/21     39/50
        Z=SYM           3   FTX            30/37     34/51     36/13     37/46     38/56
        .A              0                  22/17 D   25/03 D   25/14 D   25/27 D   29/11 D   29/22 D   29/34 D
                                           22/17     25/03     25/14     25/27     29/11     29/22     29/34
        .FIX            0                  41/24 D
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      621              IDENT  QCGC 
                        621                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       616 
                                        LITERALS* LOCAL         616         3 
                                        RGFILE    COMMON          0        30 
  
  
                                        ENTRY POINTS. 
  
                                        B=QCGC           0+           RGX             15+           DUC.2ND        126+ 
                                        REGFILE          0+/RGFILE/   RREG            16+           DUC.BTH        132+ 
                                        REG=G            0+           TRACE           17+           POS            150+ 
                                        REG=GL           0+           TYPLOD          20+           RED            167+ 
                                        REG=GP           0+           UUC             21+           DPT            253+ 
                                        CII              6+           WQ.CS           22+           QCP            262+ 
                                        N$IT             6+           WQ.DOOT         23+           SMB            300+ 
                                        N$OT             7+           CAI             24+           WIN            316+ 
                                        DRITE           10+           PIG             47+           WTE            313+ 
                                        NOLDS           13+           DUC.           117+           ITS            554+ 
                                        RGC             14+           DUC.1ST        122+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       DMT=      L.APLF    CBI       N.VD      S=VD      T.OUS     CDS 
                                        ALC.CAI   SN.PAR    EIS       F.LBT     PIK=PS    T=GL      T.PAR     MVE=
                                        ALC.REG   CO.CS     ENT.EGL   MOD       S=CT      T=OUS     T.SYM     WTO=
                                        ALC.00    CO.DBID   ENT.VD    N$LC      S=LC      T=PAR     T.VDIM    SBM=
                                        ALC       CO.DBST   OCIOL     N.CTMAX   S=IT      T=SYM     F.SCT 
                                        REG=T     CO.DOOT   SNP=      N.GL      S=OT      T=VDIM    V=ARY 
                                        CHARMAP   CO.SNAP   BINIO     N.STMAX   S=ST      T.API     V=BVD 
                                        SCS       F.PB      BN=BUF    N.ST      S=TA0     T.GL      V=NOOP
                                        SCSA      APLFLG    BN=TEM    N.TABLE   S=TRACE   T.IOI     V=SUBST 
  
  
  
  
                                                  IDENT  QCGC                                                    QCGC        2
                                         QCGC     SECT   (QUICK CODE GENERATOR CONTROLLER.)                      QCGC        3
  
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     2
                                                                      QCGC
  
                                        ***       QCGC - QUICK CODE GENERATOR CONTROLLER.                        QCGC        5
                                        *                                                                        QCGC        6
                                        *         FOR QCG.                                                       QCGC        7
                                                                                                                 QCGC        8
                                                                                                                 QCGC        9
                                   0     .FAST    EQU    0                                                       QCGC       10
                                   1     .OPT     EQU    1                                                       QCGC       11
                                   0     .CG      EQU    .FAST       INDICATE QUICK CODE GENERATOR               QCGC       12
                                                                                                                 QCGC       13
                                                                                                                 QCGC       14
                                        *         IN ALLOC                                                       QCGC       15
                                                  EXT    ADW,ALC.CAI,ALC.REG,ALC.00,ALC                          QCGC       16
                                                                                                                 QCGC       17
                                        *         IN CONRED                                                      QCGC       18
                                                  EXT    REG=T                                                   QCGC       19
                                                                                                                 QCGC       20
                                        *         IN FEC                                                         QCGC       21
                                                  EXT    CHARMAP,SCS,SCSA                                        QCGC       22
                                                                                                                 QCGC       23
                                        *         IN FSNAP                                                       QCGC       24
                                                  EXT    DMT=,SN.PAR                                             QCGC       25
                                                                                                                 QCGC       26
                                        *         IN FTN                                                         QCGC       27
                                                  EXT    CO.CS,CO.DBID,CO.DBST,CO.DOOT,CO.SNAP,F.PB              FC50545    11
                                                                                                                 QCGC       29
                                        *         IN FUN                                                         FC50239     8
                                                  EXT    APLFLG,L.APLF                                           FC50239     9
                                                                                                                 FC50239    10
                                        *         IN GEN                                                         QCGC       30
                                                  EXT    EIS,ENT.EGL,ENT.VD,OCIOL                                QCGC       31
                                                                                                                 QCGC       32
                                        *         IN IDP                                                         QCGC       33
                                                  EXT    SNP=                                                    QCGC       34
                                                                                                                 QCGC       35
                                        *         IN PUC                                                         QCGC       36
                                                  EXT    BINIO,BN=BUF,BN=TEM,CBI,F.LBT,MOD,N$LC,N.CTMAX,N.GL     QCGC       37
                                                  EXT    N.STMAX,N.ST,N.TABLE,N.VD,PIK=PS,S=CT,S=LC,S=IT,S=OT    QCGC       38
                                                  EXT    S=ST,S=TA0,S=TRACE,S=VD,T=GL,T=OUS,T=PAR,T=SYM          QCGC       39
                                                  EXT    T=VDIM,T.API,T.GL,T.IOI,T.OUS,T.PAR,T.SYM,T.VDIM        QCGC       40
                                                                                                                 QCGC       41
                                        *         IN QSKEL                                                       QCGC       42
                                                  EXT    F.SCT                                                   QCGC       43
                                                  EXT    V=ARY,V=BVD,V=NOOP,V=SUBST                              QCGC       44
                                                                                                                 QCGC       45
                                        *         IN REG                                                         QCGC       46
                                                  EXT    CDS                                                     QCGC       47
                                                                                                                 QCGC       48
                                        *         IN UTILITY                                                     QCGC       49
                                                  EXT    MVE=,WTO=                                               QCGC       50
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     3
        COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.
  
             0                                    CTEXT  COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.          COMAQCG     2
  
  
  
  
                                        ***       COMAQCG - MACROS FOR FTN QUICK CODE GENERATOR.                 COMAQCG     4
                                        *                                                                        COMAQCG     5
                                        *         COPYRIGHT CONTROL DATA CORPORAION. 1976, 1977.                 COMAQCG     6
  
  
  
  
                                        **        CBSS - MACRO TO COMPILE A *BSS* OPERATION.                     COMAQCG     8
                                        *                                                                        COMAQCG     9
                                        *         CBSS   LOC,SIZE,REG                                            COMAQCG    10
                                        *                                                                        COMAQCG    11
                                        *         *LOC*  = LOCATION TAG TO BE DEFINED (= 1 FOR FORCE UPPER ONLY) COMAQCG    12
                                        *         *SIZE* = AMOUNT OF SPACE TO RESERVE (= 0 FOR DEFINITION ONLY)  COMAQCG    13
                                        *         *REG*  = REGISTER TO COMPILE FROM (*X7* ASSUMED IF OMITTED)    COMAQCG    14
                                        *                  IF OMITTED, INSTRUCTION WILL BE FORMED IN THE         COMAQCG    15
                                        *                  SPECIFIED REGISTER, BUT WILL NOT BE STORED TO CORE.   COMAQCG    16
                                                                                                                 COMAQCG    17
                                                                                                                 COMAQCG    18
                                         CBSS     MACRO  LOC,SIZE,REG                                            COMAQCG    19
                                         A        MICRO  1,, X7                                                  COMAQCG    20
                                                  IFC    NE,*REG**,1                                             COMAQCG    21
                                         A        MICRO  1,, REG                                                 COMAQCG    22
                                                  =X0    LOC                                                     COMAQCG    23
                                                  ="A"   I.BSS                                                   COMAQCG    24
                                                  L"A"   PB.GHIJP                                                COMAQCG    25
                                                  I"A"   "A"+X0                                                  COMAQCG    26
                                                  IFC    EQ,*REG**,1                                             COMAQCG    27
                                                  WCODE  X7                                                      COMAQCG    28
                                         CBSS     ENDM                                                           COMAQCG    29
  
  
  
  
                                        **        CRJ -  COMPILE RETURN JUMP TO EXTERNAL.                        COMAQCG    31
                                        *                                                                        COMAQCG    32
                                        *         CRJ    TYPE                                                    COMAQCG    33
                                        *                                                                        COMAQCG    34
                                        *         *TYPE* = ONE OF THE FOLLOWING --                               COMAQCG    35
                                        *                <OMITTED> = ALLOW TRACE INFORMATION TO BE COMPILED.     COMAQCG    36
                                        *                *ALLOW* = ALLOW TRACE INFORMATION TO BE COMPILED.       COMAQCG    37
                                        *                *NONE* = DO NOT COMPILE TRACE INFORMATION.              COMAQCG    38
                                        *                *MUST* = MUST COMPILE TRACE INFORMATION.                COMAQCG    39
                                        *                                                                        COMAQCG    40
                                        *         IF TYPE=ALLOW, GENERATION OF TRACE INFO DEPENDS ON THE         COMAQCG    41
                                        *         COMPILER OPTION (CO.TBK).                                      COMAQCG    42
                                        *                                                                        COMAQCG    43
                                        *         CALLS  CRJ.                                                    COMAQCG    44
                                                                                                                 COMAQCG    45
                                                                                                                 COMAQCG    46
                                         CRJ      MACRO  TYPE                                                    COMAQCG    47
                                         A        MICRO  1,1, TYPE                                               COMAQCG    48
                                        .1        IFC    EQ,**"A"*                                               COMAQCG    49
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     4
        COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.                CRJ 
  
                                                  =X1    1                                                       COMAQCG    50
                                        .1        ENDIF                                                          COMAQCG    51
                                         .2       IFC    EQ,*A*"A"*                                              COMAQCG    52
                                                  =X1    1                                                       COMAQCG    53
                                         .2       ENDIF                                                          COMAQCG    54
                                         .3       IFC    EQ,*N*"A"*                                              COMAQCG    55
                                                  BX1    0                                                       COMAQCG    56
                                         .3       ENDIF                                                          COMAQCG    57
                                         .4       IFC    EQ,*M*"A"*                                              COMAQCG    58
                                                  =X1    -1                                                      COMAQCG    59
                                         .4       ENDIF                                                          COMAQCG    60
                                                  RJ     =XCRJ                                                   COMAQCG    61
                                         CRJ      ENDM                                                           COMAQCG    62
  
  
  
  
                                        **        DEFINE MACHINE OP-CODES.                                       COMAQCG    64
                                                                                                                 COMAQCG    65
                                                                                                                 COMAQCG    66
                                                  MACRO  DEFINS,INST,OPC,TYPE                                    COMAQCG    67
                                         A        MICRO  1,, BS9                                                 COMAQCG    68
                                                  IFC    EQ,/TYPE/M.BRAN/,1                                      COMAQCG    69
                                         A        MICRO  1,, BS6                                                 COMAQCG    70
                                         INST     EQU    OPC"A"                                                  COMAQCG    71
                                                  ENDM                                                           COMAQCG    72
                                                                                                                 COMAQCG    73
                                         DEFPO    OPSYN  NIL         PSUEDO-OP VALUES ARE IN TEXT                COMAQCG    74
  
  
  
  
                                        **        DRITE - MACRO TO BE USED FOR CHECKING DELAYED STORE ACTIVITY   COMAQCG    76
                                        *                ARGUMENT *CONTROL* MAY BE --                            COMAQCG    77
                                        *                  A.  *DEACTIVATE = DEACTIVATES ANY DELAYED STORE IN    COMAQCG    78
                                        *                                    PROGRESS.                           COMAQCG    79
                                        *                  B.  *X1-X7*     = DEACTIVATE DELAYED STORE ONLY IF    COMAQCG    80
                                        *                                    (X1-X7) = (DRITE).                  COMAQCG    81
                                                                                                                 COMAQCG    82
                                                                                                                 COMAQCG    83
                                         DRITE    MACRO  CONTROL                                                 COMAQCG    84
                                        .1        IFC    EQ,*CONTROL*DEACTIVATE*                                 COMAQCG    85
                                                  BX0    0                                                       COMAQCG    86
                                        .1        ELSE                                                           COMAQCG    87
                                         .2       IFC    NE,*CONTROL*X0*                                         COMAQCG    88
                                                  BX0    CONTROL                                                 COMAQCG    89
                                         .2       ENDIF                                                          COMAQCG    90
                                        .1        ENDIF                                                          COMAQCG    91
                                                  RJ     =XCDS                                                   COMAQCG    92
                                         DRITE    ENDM                                                           COMAQCG    93
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     5
        COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.                WPOP
  
                                        **        WPOP - WRITE PSUEDO-OP TO PB.                                  COMAQCG    95
                                        *                                                                        COMAQCG    96
                                        *         WPOP   PSN,RETURN                                              COMAQCG    97
                                                                                                                 COMAQCG    98
                                                                                                                 COMAQCG    99
                                         WPOP     MACRO  PSN,RET                                                 COMAQCG   100
                                                  =X7    PSN                                                     COMAQCG   101
                                                  LX7    PB.GHIJP                                                COMAQCG   102
                                                  WCODE  X7,RET                                                  COMAQCG   103
                                                  ENDM                                                           COMAQCG   104
  
  
  
  
                                        **        WCODE - WRITE PREBINARY CODE FILE.                             COMAQCG   106
                                        *                                                                        COMAQCG   107
                                        *         WCODE   REG,RETURN                                             COMAQCG   108
                                        *                                                                        COMAQCG   109
                                        *         REG =   ANY *X* REGISTER, (X7)                                 COMAQCG   110
                                        *         RETURN = RETURN ADDRESS.  *+1 ASSUMED IF OMITTED.              COMAQCG   111
                                        *                            (B2) IS NATURAL REGISTER.                   COMAQCG   112
                                        *                                                                        COMAQCG   113
                                        *         USED FOR *ALL* WRITES TO THE PREBINARY FILE.                   COMAQCG   114
                                        *                                                                        COMAQCG   115
                                        *         CALLS  WIN                                                     COMAQCG   116
                                                                                                                 COMAQCG   117
                                                  PURGMAC  WCODE                                                 COMAQCG   118
                                                                                                                 COMAQCG   119
                                         WCODE    MACRO  R,RETURN                                                COMAQCG   120
                                                  IFC    NE,/X7/R/,1                                             COMAQCG   121
                                                  BX7    R                                                       COMAQCG   122
                                                  =B2    RETURN  *+2-*P/60                                       COMAQCG   123
                                                  JP     =XWIN                                                   COMAQCG   124
                                         WCODE    ENDM                                                           COMAQCG   125
  
  
  
  
                                         O$       MICRO  1,,/T./                                                 COMAQCG   127
                                         L$       MICRO  1,,/T=/                                                 COMAQCG   128
                                         TP       MICRO  1,,/P2/                                                 COMAQCG   129
                                         BIAS     MICRO  1,,/BIAS/                                               COMAQCG   130
                                         ORD      MICRO  1,,/TAG/                                                COMAQCG   131
                                                                                                                 COMAQCG   132
                                                                                                                 COMAQCG   133
                                         COMAQCG  ENDX                                                           COMAQCG   134
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     6
        COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN. 
  
             0                                    CTEXT  COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.     COMSQCG     2
  
  
  
  
                                        ***       COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GENERATOR.      COMSQCG     4
                                        *                                                                        COMSQCG     5
                                        *         COPYRIGHT CONTROL DATA CORP. 1977.                             COMSQCG     6
  
  
  
  
                                        **        AT - FORM FOR ATF CELL IN FUN                                  COMSQCG     8
                                        *         THIS CELL DRIVES APLIST GENERATION                             COMSQCG     9
                                                                                                                 COMSQCG    10
                                                                                                                 COMSQCG    11
                                                  DESCRIBE AT.,60    ATF (APLIST TYPE INFO) WORD                 COMSQCG    12
      L     73  40000000000000000000     LEN      DEFINE             PROCESSING I/O LEN                          COMSQCG    13
      L     72  20000000000000000000     IOC      DEFINE             PROCESSING I/O CONTROL CODE                 COMSQCG    14
      L     71  10000000000000000000     CHAR     DEFINE             CHAR TYPE APLIST FOR ASM                    COMSQCG    15
      L     70  04000000000000000000     NUL      DEFINE             THIS ITEM HAS NON-UNITY ARRAY LEN           COMSQCG    16
      L     67  02000000000000000000     LEV0     DEFINE             LEVEL 0                                     COMSQCG    17
      L     66  01000000000000000000     SPR      DEFINE             SPACE PREVIOUSLY RESERVED                   COMSQCG    18
      L     61  00760000000000000000     MODE     DEFINE 5                                                       COMSQCG    19
                                                  DEFINE 31                                                      COMSQCG    20
      L      1  00000000000000777776     FILL     DEFINE 17                                                      COMSQCG    21
             0  00000000000000000001     IO       DEFINE                                                         COMSQCG    22
  
  
  
  
                                        **        OP. - OPERATOR DESCRIPTION WORD.                               COMSQCG    24
                                        *                                                                        COMSQCG    25
                                        *         AT THE BEGINNING OF QCG, THE ROUTINE QUIK/DOW TRANSFORMS       COMSQCG    26
                                        *         THE (TH.) FORMAT RECEIVED IN THE INTERMEDIATE LANGUAGE FILE    COMSQCG    27
                                        *         INTO (OP.) FORM, SO THE REST OF QCG IS NOT AWARE OF (TH.).     COMSQCG    28
                                        *                                                                        COMSQCG    29
                                        *         AS CODE GENERATION PROCEEDS, THE (OP.) WORDS ARE RE-USED AS    COMSQCG    30
                                        *         STATUS WORDS FOR THE INTERMEDIATE THEY GIVE RISE TO.  IF THE   COMSQCG    31
                                        *         INTERMEDIATE SHOULD GET STORED OUT INTO A TEMP, THE STATUS     COMSQCG    32
                                        *         WORD IS REPLACED BY A (P2.) REPRESENTING THE TEMP.             COMSQCG    33
                                                                                                                 COMSQCG    34
                                                                                                                 COMSQCG    35
                                                  DESCRIBE  OP.                                                  COMSQCG    36
      L     56  77776000000000000000     SKEL     DEFINE 14          (RELATIVE) ADDRESS OF SKELETON              FC50104     9
      L     34  00001777776000000000     LINE     DEFINE 18          LINE/SEQUENCE NO. (1ST TURPLE OF STATEMENT) FC50104    10
                                                  REDEF  LINE                                                    FC50104    11
                                                  DEFINE 4                                                       FC50104    12
      L     34  00000077776000000000     2ORD     DEFINE 14                                                      FC50104    13
      L     26  00000000001760000000     CHIN     DEFINE 6                                                       COMSQCG    40
      L     22  00000000000017000000     MODE     DEFINE TH.MODEL                                                COMSQCG    41
      L     22  00000000000007000000     2MOD     DEQU   MODE,WB.MODEL                                           COMSQCG    42
                                   1              ERRMI  OP.MODEL-OP.2MODL                                       COMSQCG    43
                                   0              ERRMI  4-OP.MODEL                                              COMSQCG    44
      L     16  00000000000000740000     QATR     DEFINE 4                                                       COMSQCG    45
             0  00000000000000037777     1ORD     DEFINE 14                                                      COMSQCG    46
                                   0              ERRNZ  OP.2ORDL-OP.1ORDL                                       COMSQCG    47
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     7
        COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.           OP. 
  
             0  00000000000000777777     TOT      DEFINE 18,17                                                   COMSQCG    48
  
  
  
  
                                                  REDEF  QATR        QCG REFORMATTING ATTRIBUTES                 COMSQCG    50
                                                  DEFINE 1                                                       FC5A166     5
      L     20  00000000000000200000     BSSI     DEFINE 1           BSS ISSUED BY *BOS*                         FC5A166     6
      L     17  00000000000000100000     1DUC     DEFINE                                                         COMSQCG    52
      L     16  00000000000000040000     2DUC     DEFINE                                                         COMSQCG    53
  
  
  
  
                                                  REDEF  TOT         USE TOTAL FIELDS FOR ACCURATE USE COUNTING  COMSQCG    55
      L     11  00000000000000777000     LTOT     DEFINE 9                                                       COMSQCG    56
             0  00000000000000000777     UTOT     DEFINE 9                                                       COMSQCG    57
             0  00000000000000000777     USE      DEQU   UTOT                                                    COMSQCG    58
                                   0              ERRNZ  OP.USEL-OP.LTOTL                                        COMSQCG    59
  
  
  
  
                                        **        P2. - PASS TWO TAG FORM.                                       COMSQCG    61
                                        *                                                                        COMSQCG    62
                                        *         A "P2. TAG-FORM" IS THE REPRESENTATION OF AN OPERAND USED      COMSQCG    63
                                        *         BY THE QUICK CODE GENERATOR.  AT THE BEGINNING OF QCG, THE     COMSQCG    64
                                        *         ROUTINE GEN/DUC TRANSFORMS THE (TP.) FORMAT RECEIVED IN THE    COMSQCG    65
                                        *         INTERMEDIATE LANGUAGE FILE INTO (P2.), SO THE REST OF QCG      COMSQCG    66
                                        *         NOT AWARE OF (TP.).                                            COMSQCG    67
                                                                                                                 COMSQCG    68
                                                                                                                 COMSQCG    69
                                                  DESCRIBE  P2.                                                  COMSQCG    70
      L     54  77777400000000000000     TAG      DEFINE 16          PREFIX + TABLE ORDINAL                      COMSQCG    71
      L     71  70000000000000000000     PFX      DEFINE 3,59                                                    COMSQCG    72
      L     54  07777400000000000000     ORD      DEFINE 13                                                      COMSQCG    73
      L     24  00000377777774000000     BIAS     DEFINE 24                                                      COMSQCG    74
      L     24  77777777777774000000     ORBI     DEQU   BIAS,P2.TAGL+P2.BIASL                                   COMSQCG    75
      L     21  00000000000003400000     2ATR     DEFINE 3           ATTRIBUTES KEPT THROUGH PASS 2              COMSQCG    76
             0  00000000000000377777     IL.      DEFINE 17          FIELDS APPEARING IN IL                      COMSQCG    77
             0  00000000000000377777     ST.      DEQU   IL.         FIELDS USED FOR OPERAND STATUS  (T.OUS)     COMSQCG    78
             0  00000000000000377777     RG.      DEQU   IL.         FIELDS USED FOR REGISTER STATUS (REGFILE)   COMSQCG    79
                                   0              ERRNZ  P2.IL.P                                                 COMSQCG    80
                                                                                                                 COMSQCG    81
                                                                                                                 COMSQCG    82
                                                  REDEF  IL.                                                     COMSQCG    83
      L     16  00000000000000340000     RSTS     DEFINE 3           STATUS DURING PASS 2                        COMSQCG    84
      L     11  00000000000000037000     CLAS     DEFINE 5           OPERAND CLASS                               COMSQCG    85
             0  00000000000000000777     USE      DEFINE OP.USEL     COUNT OF USES OF OPERAND (PASS 2)           COMSQCG    86
                                   0              ERRNZ  P2.USEP                                                 COMSQCG    87
                                                                                                                 COMSQCG    88
                                                                                                                 COMSQCG    89
                                                  REDEF  2ATR                                                    COMSQCG    90
      L     23  00000000000002000000     LCM      DEFINE             OPERAND IN ECS/LCM                          COMSQCG    91
      L     22  00000000000001000000     FP       DEFINE             OPERAND IS A FORMAL PARAMETER               COMSQCG    92
      L     21  00000000000000400000     LONG     DEFINE             OPERAND IS DOUBLE/COMPLEX                   COMSQCG    93
                                                                                                                 COMSQCG    94
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     8
        COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.           P2. 
  
                                                                                                                 COMSQCG    95
                                                  REDEF  RSTS                                                    COMSQCG    96
      L     20  00000000000000200000     TYP      DEFINE             (REGFILE) = REGISTER CONTAINS LOWER WORD    COMSQCG    97
      L     17  00000000000000100000     LST      DEFINE             (OUS, DUC) = LOWER WORD LOADED  (IN LREG)   COMSQCG    98
      L     16  00000000000000040000     UST      DEFINE             (OUS, DUC) = UPPER WORD LOADED  (IN UREG)   COMSQCG    99
                                                                                                                 COMSQCG   100
                                                                                                                 COMSQCG   101
                                                  REDEF              THIS FORM USED FOR ODD-BALL TURPLES         COMSQCG   102
      L     54  77777400000000000000     TAGU     DEFINE P2.TAGL                                                 COMSQCG   103
      L     34  00000377776000000000     TAGM     DEFINE P2.TAGL                                                 COMSQCG   104
                                                  DEFINE 6                                                       COMSQCG   105
      L      6  00000000000017777700     TAGL     DEFINE P2.TAGL                                                 COMSQCG   106
  
  
  
  
                                        **        P2.CLAS - ATTRIBUTES OF OPERANDS.                              COMSQCG   108
                                                                                                                 COMSQCG   109
                                                                                                                 COMSQCG   110
                                                  REDEF  CLAS                                                    COMSQCG   111
      L     15  00000000000000020000     ARR      DEFINE             SUBSCRIPTED ARRAY REF                       COMSQCG   112
      L     14  00000000000000010000     SHRT     DEFINE             SHORT CONSTANT IN TAG FIELD                 COMSQCG   113
      L     13  00000000000000004000     ADDR     DEFINE             ADDRESS REFERENCE                           COMSQCG   114
      L     12  00000000000000002000     INTR     DEFINE             OPERAND IS AN INTERMEDIATE (TAG = IL INDEX) COMSQCG   115
      L     11  00000000000000001000     CNCT     DEFINE             OPERAND IS A CATENATION RESULT INTERMED     COMSQCG   116
      L     11  00000000000000001000     CAT      DEQU   CNCT                                                    COMSQCG   117
                                                                                                                 COMSQCG   118
                                                                                                                 COMSQCG   119
                                  15     P2=PFX   DECMIC P2.PFXP-P2.ORDP                                         COMSQCG   120
                                  15     P2=PFX   EQU    "P2=PFX"                                                COMSQCG   121
                                         P2=PFX   MICRO  1,,/1S"P2=PFX"/                                         COMSQCG   122
                               20000     K2.GL    EQU    K=GL*"P2=PFX"                                           COMSQCG   123
                               40000     K2.AP    EQU    K=AP*"P2=PFX"                                           COMSQCG   124
                               60000     K2.IO    EQU    K=IO*"P2=PFX"                                           COMSQCG   125
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE     9
        COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.           T.OUS 
  
                                        **        T.OUS - OPERAND USAGE STATUS.                                  COMSQCG   127
                                        *                                                                        COMSQCG   128
                                        *         AT THE START OF TS MODE PASS 2, NON-INTERMEDIATE OPERANDS IN   COMSQCG   129
                                        *         THE *IL* SEGMENT TO BE PROCESSED ARE ENTERED INTO (T.OUS),     COMSQCG   130
                                        *         ALONG WITH THEIR USE COUNTS.  THE TAG-FIELD OF THE OPERAND IN  COMSQCG   131
                                        *         THE IL IS CHANGED INTO A C.OUS TAG, WHICH POINTS TO THE T.OUS  COMSQCG   132
                                        *         ENTRY FOR THAT OPERAND.                                        COMSQCG   133
                                        *                                                                        COMSQCG   134
                                        *         AS CODE GENERATION PROCEEDS, OPERAND STATUS ENTRIES IN (T.OUS) COMSQCG   135
                                        *         ARE UPDATED TO REFLECT CURRENT REGISTER ASSIGNMENT AND         COMSQCG   136
                                        *         NUMBER OF USES REMAINING.                                      COMSQCG   137
                                        *                                                                        COMSQCG   138
                                        *         THE UPPER FIELDS OF AN OPERAND STATUS ENTRY ARE (AND MUST BE)  COMSQCG   139
                                        *         THE SAME AS UPPER FIELDS OF AN *IL* OPERAND.  (SEE "P2."       COMSQCG   140
                                        *         STRUCTURE DECLARATION.                                         COMSQCG   141
                                                                                                                 COMSQCG   142
                                                                                                                 COMSQCG   143
                                                  DESCRIBE  ST.,P2.ST.L                                          COMSQCG   144
                              340000     STAT     DEFINE 3           STATUS OF OPERAND (SEE BELOW)               COMSQCG   145
                                                  DEFINE 2                                                       COMSQCG   146
                              007700     LREG     DEFINE 6           REGISTER CONTAINING LOWER WORD              COMSQCG   147
                              000077     UREG     DEFINE 6           REGISTER CONTAINING UPPER WORD              COMSQCG   148
                                   0              ERRNZ  P2.ST.P                                                 COMSQCG   149
                                                                                                                 COMSQCG   150
                                                  REDEF  STAT                                                    COMSQCG   151
                                                  DEFINE                                                         COMSQCG   152
                              100000     LST      DEFINE             LOWER STATUS                                COMSQCG   153
                              040000     UST      DEFINE             UPPER STATUS                                COMSQCG   154
  
  
  
  
                                                  REDEF                                                          COMSQCG   156
                              340000     CST      DEFINE 3           CHARACTER STATUS FIELD                      COMSQCG   157
                              037774     ORD1     DEFINE 12          ORIGINAL (NON-EQIV) ORDINAL OF CHARACTER    COMSQCG   158
                                                                                                                 COMSQCG   159
                                                                                                                 COMSQCG   160
                                                  REDEF  CST                                                     COMSQCG   161
                              200000     CTM      DEFINE ON IF IN TEMPORARY STORAGE                              COMSQCG   162
                              100000     CAC      DEFINE ON IF CAC ENTRY EXISTS                                  COMSQCG   163
                              040000     UKL      DEFINE 1           UNKNOWN-LENGTH CONCAT.                      FC5A243     8
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    10
        COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.           RG. 
  
                                        **        RG. - QCG REGISTER ALLOCATION FIELDS.                          COMSQCG   166
                                                                                                                 COMSQCG   167
                                                                                                                 COMSQCG   168
                                                  DESCRIBE  RG.,P2.RG.L                                          COMSQCG   169
                              200000     TYP      DEFINE             REGISTER CONTAINS LOWER WORD OF OPERAND     COMSQCG   170
                                                  DEFINE 7                                                       COMSQCG   171
                              000777     USE      DEFINE P2.USEL     NUMBER OF REMAINING USES OF OPERAND         COMSQCG   172
                                   0              ERRNZ  P2.USEP-RG.USEP                                         COMSQCG   173
                                   0              ERRNZ  P2.RG.P                                                 COMSQCG   174
                                  11     A        DECMIC RG.USEL                                                 COMSQCG   175
                                 777     MAX.USEC EQU    1S"A"-1     MAXIMUM USE COUNT                           COMSQCG   176
                                 400     RLOCK    EQU    1S"A"/2     REGISTER LOCKED BIT                         COMSQCG   177
  
  
  
  
                                        **        RS. - REGISTER SCAN WORDS.                                     COMSQCG   179
                                                                                                                 COMSQCG   180
                                                                                                                 COMSQCG   181
                                                  DESCRIBE  RS.                                                  COMSQCG   182
      L     66  77000000000000000000     INS      DEFINE PB.GHL      MACHINE OPCODE TO LOAD REGISTER             COMSQCG   183
      L     44  00777777000000000000     MSK      DEFINE 18          WIDTH OF SCAN FIELD                         COMSQCG   184
      L     22  00000000777777000000     NUM      DEFINE 18          NUMBER OF REGS IN SCAN                      COMSQCG   185
             0  00000000000000777777     TYP      DEFINE 18          TYPE OF REGS IN SCAN (FORM - 0T0)           COMSQCG   186
                                   0              ERRNZ  RS.TYPP                                                 COMSQCG   187
                                                                                                                 COMSQCG   188
                                                                                                                 COMSQCG   189
                                         COMSQCG  ENDX                                                           COMSQCG   190
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    11
        COMSQRF - QCG REGISTER ASSOCIATES.
  
             0                                    CTEXT  COMSQRF - QCG REGISTER ASSOCIATES.                      COMSQRF     2
  
  
  
  
                                        ***       COMSQRF - QCG REGISTER ASSOCIATES.                             COMSQRF     4
                                        *                                                                        COMSQRF     5
                                        *         COPYRIGHT CONTROL DATA CORP. 1977.                             COMSQRF     6
  
  
  
  
                                        **        RGFILE - QCG REGISTER ASSOCIATES.                              COMSQRF     8
                                        *                                                                        COMSQRF     9
                                        *         NOTE -- THESE EQUATES ARE USED TO INDEX INTO THE REGISTER      COMSQRF    10
                                        *         FILE.  IF THE ACTUAL CELLS ARE TO BE ADDRESSED, USE THE SYMBOL COMSQRF    11
                                        *         *=XREGFILE*, PLUS ONE OF THE FOLLOWING OFFSETS.                COMSQRF    12
                                                                                                                 COMSQRF    13
                                                                                                                 COMSQRF    14
                                                  USE    /RGFILE/                                                COMSQRF    15
             0                           REGFILE  BSS                BASE ADDRESS                                COMSQRF    16
             0                                    LOC    0                                                       COMSQRF    17
                                                                                                                 COMSQRF    18
             0                           REG.B    BSS                *B* REGISTERS                               COMSQRF    19
             0                     1     R.B0     BSS    1                                                       COMSQRF    20
             1                     1     R.B1     BSS    1                                                       COMSQRF    21
             2                     1     R.B2     BSS    1                                                       COMSQRF    22
             3                     1     R.B3     BSS    1                                                       COMSQRF    23
             4                     1     R.B4     BSS    1                                                       COMSQRF    24
             5                     1     R.B5     BSS    1                                                       COMSQRF    25
             6                     1     R.B6     BSS    1                                                       COMSQRF    26
             7                     1     R.B7     BSS    1                                                       COMSQRF    27
                                                                                                                 COMSQRF    28
            10                           REG.A    BSS                *A* REGISTERS                               COMSQRF    29
            10                     1     R.A0     BSS    1                                                       COMSQRF    30
            11                     1     R.A1     BSS    1                                                       COMSQRF    31
            12                     1     R.A2     BSS    1                                                       COMSQRF    32
            13                     1     R.A3     BSS    1                                                       COMSQRF    33
            14                     1     R.A4     BSS    1                                                       COMSQRF    34
            15                     1     R.A5     BSS    1                                                       COMSQRF    35
            16                     1     R.A6     BSS    1                                                       COMSQRF    36
            17                     1     R.A7     BSS    1                                                       COMSQRF    37
                                                                                                                 COMSQRF    38
            20                           REG.X    BSS                *X* REGISTERS                               COMSQRF    39
            20                     1     R.X0     BSS    1                                                       COMSQRF    40
            21                     1     R.X1     BSS    1                                                       COMSQRF    41
            22                     1     R.X2     BSS    1                                                       COMSQRF    42
            23                     1     R.X3     BSS    1                                                       COMSQRF    43
            24                     1     R.X4     BSS    1                                                       COMSQRF    44
            25                     1     R.X5     BSS    1                                                       COMSQRF    45
            26                     1     R.X6     BSS    1                                                       COMSQRF    46
            27                     1     R.X7     BSS    1                                                       COMSQRF    47
                                                                                                                 COMSQRF    48
            30                           L.RGFILE BSS                LENGTH OF REGISTER FILE                     COMSQRF    49
            30                                    LOC    *O                                                      COMSQRF    50
                                                  USE    *                                                       COMSQRF    51
                                                                                                                 COMSQRF    52
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    12
        COMSQRF - QCG REGISTER ASSOCIATES.                            RGFILE
  
                                                                                                                 COMSQRF    53
                                         COMSQRF  ENDX                                                           COMSQRF    54
                                                  ENTRY  REGFILE                                                 QCGC       54
                                                                                                                 QCGC       55
                                                  LIST   -X          SKPSET IS LISTED IN QSKEL                   QCGC       56
             0                           SKPSET   CTEXT                                                          SKPSET      2
                                        *                            SKPCONQ IS LISTED IN QSKEL                  QCGC       58
             0                           SKPCONQ  CTEXT                                                          SKPCONQ     2
                                                  LIST   *                                                       QCGC       60
  
  
  
  
                                        **        REG=G  - VECTORS OF GENERATED OPERANDS.                        QCGC       62
                                                                                                                 QCGC       63
                                                                                                                 QCGC       64
             0                     6     REG=G    BSZENT SKU.GOP                                                 QCGC       65
                                                                                                                 QCGC       66
                                         REG=GL   EQUENT REG=G       USE-COUNTED (L) OPERANDS                    QCGC       67
                                         REG=GP   EQUENT REG=G       NO REGISTER (P) OPERANDS                    QCGC       68
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    13
        DATA CELLS.                                                   CELLS 
  
                                        **        DATA CELLS GLOBAL TO QCG.                                      QCGC       71
                                                                                                                 QCGC       72
                                                                                                                 QCGC       73
                                                                                                                 QCGC       74
             6                           CII      BSSENT 0           DUMMY ENTRY POINT FOR QCG ONLY              QCGC       75
             6  00000000000000000000     N$IT     CONENT 0                                                       QCGC       76
             7  00000000000000000000     N$OT     CONENT 0                                                       QCGC       77
                                                                                                                 QCGC       78
            10                     3     DRITE    BSZENT 3           DELAYED STORE INFO                          QCGC       79
                                                                                                                 QCGC       80
            13  00000000000000000000     NOLDS    CONENT 0           NUMBER OF LOADS                             QCGC       81
                                                                                                                 QCGC       82
            14  00000000000000000006     RGC      CONENT 6           REGISTER USAGE COUNT                        QCGC       83
                                                                     = 1 + NUMBER OF LOAD REGISTERS              QCGC       84
                                                                                                                 QCGC       85
            15  00000000000000000005     RGX      CONENT 5           NUMBER OF LOAD REGISTERS                    QCGC       86
                                                                                                                 QCGC       87
            16  77777777777777777777     RREG     CONENT -0          REQUIRED HARD REGISTER TO ASSIGN FOR LOAD   QCGC       88
                                                                     .GE. 0  =  0TR, REGISTER TO LOAD INTO       QCGC       89
                                                                     .LT. 0  = -0TR, MEANS LOAD SATISFIED        QCGC       90
                                                                     .EQ. -0,  NOT ACTIVE                        QCGC       91
                                                                                                                 QCGC       92
            17  00000000000000000000     TRACE    CONENT 0           LINE NUMBER OF RJ IN PROCESS                QCGC       93
                                                                                                                 QCGC       94
            20  00000000000000000000     TYPLOD   CONENT 0           TYPE OF CURRENT LOAD (0=UPPER, 1=LOWER)     QCGC       95
                                                                                                                 QCGC       96
            21  00000000000000000000     UUC      CONENT 0           USE COUNT INCREMENT                         QCGC       97
  
  
  
  
                                        **        QCG WORKING COPY OF COMPILER OPTIONS.                          QCGC       99
                                        *         1.  INITIALIZED = (CO.) AT BEGINNING OF PROGRAM-UNIT.          QCGC      100
                                        *         2.  RESET BY (V=C$) TURPLES.                                   QCGC      101
                                        *         3.  USED TO DETERMINE QCG BEHAVIOR.                            QCGC      102
                                        *         THESE EXIST BECAUSE (WO.) MAY BE OUT OF SYNCH.                 QCGC      103
                                                                                                                 QCGC      104
                                                                                                                 QCGC      105
            22                     1     WQ.CS    BSSENT 1           COLLATING SEQUENCE                          QCGC      106
            23                     1     WQ.DOOT  BSSENT 1           DO-LOOP ONE-TRIP                            QCGC      107
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    14
        CAI - COMPILE ALL INSTRUCTIONS.                               CAI 
  
                                        **        CAI -  COMPILE ALL INSTRUCTIONS.                               QCGC      128
                                        *                                                                        QCGC      129
                                        *         ENTRY  (T.PAR) = IL SEGMENT TO PROCESS.                        QCGC      130
                                        *                          THE SEGMENT MUST BE WELL-FORMED AND           QCGC      131
                                        *                          CANNOT BE EMPTY.                              QCGC      132
                                        *                (PASS)  SET.                                            QCGC      133
                                        *                                                                        QCGC      134
                                        *         EXIT   (T.PAR) = EMPTY.                                        QCGC      135
                                        *                (T.OUS) = EMPTY.                                        QCGC      136
                                        *                (N.STMAX) = MAXIMUM TEMPORARY CELL USED.                QCGC      137
                                        *                                                                        QCGC      138
                                        *         USES   ALL.                                                    QCGC      139
                                        *         CALLS  DOW, DUC, EIS.                                          QCGC      140
                                                                                                                 QCGC      141
                                                                                                                 QCGC      142
            24  0400400024 +             CAI      SUBR   =           ENTRY/EXIT...                               QCGC      143
            25  13666                             SETMEM REGFILE,L.RGFILE                                        FC5A171A  345
            27  13666                             SETMEM APLFLG,L.APLF                                           FC50239    11
            31  0100000047 +                      RJ     PIG         PROCESS I. L. FOR GEN                       QCGC      144
            32  5140000000 X                      SA4    T.PAR                                                   QCGC      145
                                                                                                                 QCGC      146
                                        **        DUMP NUMBER OF TERMS FOUND (ONLY IF IN TEST MODE)              QCGC      147
                                                                                                                 QCGC      148
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                QCGC      149
                                                  SA2    CO.SNAP                                                 QCGC      150
                                                  LX2    1RA                                                     QCGC      151
                                                  PL     X2,CAI2SN   IF *ARITH* SNAP NOT REQUESTED               QCGC      152
                                         SNP=A    DUMPT  (OUS)       OPERAND USAGE STATUS                        QCGC      153
                                                  CALL   SN.PAR                                                  QCGC      154
                                         CAI2SN   BSS    0                                                       QCGC      155
                                         .TEST    ENDIF                                                          QCGC      156
                                                                                                                 QCGC      157
                          13666                   SETMEM =XREG=T,SKU.TMP   CLEAR T_N VECTOR                      QCGC      158
                                                                                                                 QCGC      159
                                        **        PROCESS EXPANSION OF PARSED FILE FOR CODE GENERATION.          QCGC      160
                                                                                                                 QCGC      161
            35  63440                             SB4    X4          PRESET *B4* TO START OF PARSED FILE         QCGC      162
                     5110000000 X                 SA1    ALC.CAI                                                 QCGC      163
                               10711              BX7    X1          LOCK (B4) _ PARSED FILE                     QCGC      164
            36  5170000000 X                      SA7    ALC.REG                                                 QCGC      165
                          0100000000 X            CALL   EIS         EXPAND INSTRUCTION SKELETONS                QCGC      166
            37  13000                             DRITE  DEACTIVATE                                              QCGC      167
            40  5110000000 X                      SA1    ALC.00      UNLOCK (B4)                                 QCGC      168
                          10711                   BX7    X1                                                      QCGC      169
            41  5170000000 X                      SA7    ALC.REG                                                 QCGC      170
                                                                                                                 QCGC      171
                                        **        EXIT --   P A S S   T W O....                                  QCGC      172
                                                                                                                 QCGC      173
                                                                                                                 QCGC      174
                          76600                   SHRINK T=PAR,0                                                 QCGC      175
                          5160000000 X            SHRINK T=OUS,X6                                                QCGC      176
                                                                                                                 QCGC      177
                                        **        RESET N.STMAX TO MAXIMUM TEMPORARY BIAS.                       QCGC      178
                                                                                                                 QCGC      179
            43  5120000000 X                      SA2    N.STMAX                                                 QCGC      180
                          5130000000 X            SA3    N.ST                                                    QCGC      181
            44  37623                             MX6    X2+X3       (X6) = MAX TEMP-TAG GENERATED               QCGC      182
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    15
        CAI - COMPILE ALL INSTRUCTIONS.                               CAI 
  
                     54620                        SA6    A2          RESET N.STMAX                               QCGC      183
                          76700                   =X7    0                                                       QCGC      184
                               54730              SA7    A3          RESET (TG.TEM)                              QCGC      185
            46  0400000024 +                      EQ     EXIT.       EXIT...                                     QCGC      194
                                                                                                                 QCGC      195
  
  
  
  
                                        **        PIG -  PREPARE I. L. FOR GEN                                   QCGC      199
                                        *         PIG CALLS THE I. L. REFORMATTERS AND CHECKS THE                QCGC      200
                                        *         I. L. TYPE FOR A VAR DIM I. L. WHEN A V-DIM I. L.              QCGC      201
                                        *         IS FOUND IT IS SAVED IN T.VDIN FOR REPEATED USE                QCGC      202
                                        *         AT ENTRY CODE TIME                                             QCGC      203
                                        *                                                                        QCGC      204
                                        *         ENTRY  I. L. IN PASS 1 FORM(OPERATORS - TH, OPERANDS - TP)     QCGC      205
                                        *                                                                        QCGC      206
                                        *         EXIT   OPERATORS ARE OP, AND OPERANDS ARE P2 FORMAT            QCGC      207
                                        *                IF PROCESSING V-DIM I. L.:                              QCGC      208
                                        *                ENT.VD SET TO 1                                         QCGC      209
                                        *                T.VDIM CONTAINS V-DIM I. L.                             QCGC      210
                                        *                                                                        QCGC      211
                                        *         USES   A1,A2,A3,A6,A7 X0,X1,X2,X3,X6,X7                        QCGC      212
                                        *                                                                        QCGC      213
                                        *         CALLS  ADW, ALC, DUC, DOW, MVE=                                QCGC      214
                                                                                                                 QCGC      215
                                                                                                                 QCGC      216
            47  0400400047 +             PIG      SUBR   =           ...ENTRY/EXIT...                            QCGC      217
            50  76600                             SHRINK T=OUS,0                                                 QCGC      218
            51  5110000000 X                      SA1    T.PAR                                                   QCGC      219
                          53210                   =A2    X1          GET THE FIRST OPERAND FOR V-DIM TEST        QCGC      220
                                                  HX2    OP.SKEL                                                 QCGC      221
            52  7100000000 X                      SX0    V=BVD                                                   QCGC      222
                          21256                   AX2    -OP.SKELL                                               QCGC      223
                               37002              IX0    X0-X2                                                   QCGC      224
            53  0310000066 +                      NZ     X0,PIG5     IF NOT A BVD, CONTINUE NORMALLY             QCGC      225
                          76710                   =X7    1                                                       QCGC      226
            54  5120000000 X                      SA2    ENT.VD      GET VDIM FLAG                               QCGC      227
                          0312000066 +            NZ     X2,PIG5     IF VAR-DIM PROCESS ALREADY INITIALIZED      QCGC      228
            55  54720                             SA7    A2          SET V-DIM FLAG                              QCGC      229
                     76600                        SHRINK T=VDIM,0                                                QCGC      230
            56  5120000000 X                      SA2    T=PAR                                                   QCGC      231
                          5110000000 X            ALLOC  T.VDIM,X2-Z=TURP  MAKE ROOM TO MOVE V-DIM I.L.          QCGC      232
            60  5110000000 X                      SA1    T=VDIM      COUNT                                       QCGC      233
                          5120000000 X            SA2    T.PAR       SOURCE                                      QCGC      234
            61  5130000000 X                      SA3    T.VDIM      DESTINATION                                 QCGC      235
                          0100000000 X            MOVE   X1,X2,X3    MOVE V-DIM I.L. TO T.VDIM                   QCGC      236
            62  7160000003                        SHRINK T=PAR,3     SHRINK T.PAR BY LENGTH OF VDIM IL           QCGC      237
            63  5120000000 X                      SA2    T=VDIM      (X2) = VDIM LENGTH = VDIM I.L. LENGTH       QCGC      238
                          5130000000 X            SA3    T.PAR       DESTINATION                                 QCGC      239
            64  36232                             IX2    X3+X2       FWA TO BE MOVED = FIN TURPLE ADDERESS       QCGC      240
                     7110000003                   MOVE   Z=TURP,X2,X3      MOVE FIN TURP TO FWA I. L.            QCGC      241
                                                                                                                 FC50452    12
            66  5110000000 X             PIG5     SA1    T.PAR                                                   QCGC      242
                          0100000075 +            RJ     DOW         DEFORM  OPERATOR WORD                       QCGC      243
                                                                                                                 QCGC      244
                                        **        SET-UP USAGE TABLE -- THEN SORT FROM HIGHEST TO LOWEST USAGE   QCGC      245
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    16
        CAI - COMPILE ALL INSTRUCTIONS.                               PIG 
  
                                                                                                                 QCGC      246
            67  76600                             =X6    0                                                       QCGC      247
                     5110000000 X                 ADDWD  T.OUS       START OUS WITH A ZERO WORD                  QCGC      248
            71  5110000000 X                      SA1    T.PAR       (A1,X1) _,= FWA I. L. FOR DUC               QCGC      249
                          0100000105 +            RJ     DUC         DETERMINE USE COUNTS                        QCGC      250
            72  13666                             BX6    0                                                       QCGC      251
                     5110000000 X                 ADDWD  T.PAR       END INDICATOR                               QCGC      252
            74  0400000047 +                      EQ     EXIT.                                                   QCGC      253
                                                                                                                 QCGC      254
  
  
  
  
                                        **        DOW - DEFORM OPERATOR WORD.                                    QCGC      256
                                        *                                                                        QCGC      257
                                        *         THE OPERATOR WORD OF EACH TURPLE (TH. FORMAT) IS DEFORMED      QCGC      258
                                        *         INTO THE QCG OPERATOR/STATUS WORD (OP. FORMAT).                QCGC      259
                                        *                                                                        QCGC      260
                                        *         ENTRY  (A1, X1) = ORIGIN WORD OF TABLE CONTAINING PARSED FILE. QCGC      261
                                        *                                                                        QCGC      262
                                        *         EXIT   (A1, X1) PRESERVED.                                     QCGC      263
                                                                                                                 QCGC      264
                                                                                                                 QCGC      265
            75  0400400075 +             DOW      SUBR               ...ENTRY/EXIT...                            QCGC      266
            76  5021000000 X                      SA2    A1+N.TABLE  LENGTH OF TABLE                             QCGC      267
                          6130000003              SB3    Z=TURP                                                  QCGC      268
            77  5231777774                        SA3    X1-Z=TURP                                               QCGC      269
                          63520                   SB5    X2                                                      QCGC      270
                               43270              MX2    -OP.QATRL                                               QCGC      271
           100  20230                             LX2    TH.QATRP                                                QCGC      272
                                   0              ERRNZ  TH.QATRL-OP.QATRL                                       QCGC      273
                     43466                        MX4    -OP.CHINL                                               QCGC      274
                                                  LX4    TH.OVALP                                                FC50104   236
                                   3              ERRMI  TH.OVALL-OP.CHINL                                       FC50104   237
                          5150000616 +            CLAS=  X5,OP,(SKEL,LINE,MODE)                                  QCGC      277
                                   0              ERRNZ  TH.SKELP-OP.SKELP                                       QCGC      278
                                   0              ERRNZ  TH.SKELL-OP.SKELL                                       QCGC      279
                                   0              ERRNZ  TH.LINEP-OP.LINEP                                       QCGC      280
                                   0              ERRNZ  TH.LINEL-OP.LINEL                                       QCGC      281
                                   0              ERRNZ  TH.MODEP-OP.MODEP                                       QCGC      282
                                   0              ERRNZ  TH.MODEL-OP.MODEL                                       QCGC      283
                                                                                                                 QCGC      284
           101  54333                    DOW2     SA3    A3+B3       FETCH NEXT OPERAND                          QCGC      285
                     67553                        SB5    B5-B3                                                   QCGC      286
                          0750000075 +            MI     B5,EXIT.    IF TABLE EXHAUSTED                          QCGC      287
           102  11053                             BX0    X5*X3       PRESERVE USEFUL FIELDS                      QCGC      288
                     15732                        BX7    -X2*X3      EXTRACT QATR BITS                           QCGC      289
                          20762                   LX7    -TH.QATRP+OP.QATRP      POSITION QATR BITS              QCGC      290
                               12070              BX0    X7+X0       ADD IN NEW QATR FIELD                       QCGC      291
           103  15634                             BX6    -X4*X3      EXTRACT CHARMAP INDEX                       QCGC      292
                     20626                        LX6    -TH.OVALP+OP.CHINP                                      FC50104   238
                          12706                   BX7    X0+X6                                                   QCGC      294
                               54730              SA7    A3          STORE QCG FORM OF OPERATOR/STATUS WORD      QCGC      295
           104  0400000101 +                      EQ     DOW2        LOOP..                                      QCGC      296
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    17
        CAI - COMPILE ALL INSTRUCTIONS.                               DUC 
  
                                        **        DUC -  DECIDE ON USE COUNT                                     QCGC      298
                                        *                DUC IS THE CONTROLLER FOR REFORMATTING OF               QCGC      299
                                        *                OPERANDS FROM PASS1 TO PASS2 FORMAT. THE                QCGC      300
                                        *                PRIMARY DECISION IS WHETHER OPERANDS ARE                QCGC      301
                                        *                REFORMATTED WITH OR WITHOUT USE COUNTS.                 QCGC      302
                                        *                                                                        QCGC      303
                                        *         ENTRY  INTERMEDIATE LANGUAGE BUILT                             QCGC      304
                                        *                OPERANDS IN TP. FORMAT                                  QCGC      305
                                        *                (A1) _ T.PAR                                            QCGC      306
                                        *                (X1) = FWA OF I. L.                                     QCGC      307
                                        *                                                                        QCGC      308
                                        *         EXIT   I. L. ORERANDS IN P2. FORMAT                            QCGC      309
                                        *                USE COUNTS SET IN P2.USE OF CHOSEN OPERANDS             QCGC      310
                                        *                USE COUNT SET IN OP.USE FIELD OF OPERATOR/STAT WORDS    QCGC      311
                                        *                                                                        QCGC      312
                                        *         USES   A1,A2,A3,  X1,X2,X3,X4,  B4,B5,B6,B7                    QCGC      313
                                        *                                                                        QCGC      314
                                        *         CALLS  KUT, TIL, TIU                                           QCGC      315
                                                                                                                 QCGC      316
           105  0400400105 +             DUC      SUBR               ...ENTRY/EXIT...                            QCGC      317
           106  5021000000 X                      SA2    A1+N.TABLE  LOAD LENGTH OF TABLE BEING PROCESSED        QCGC      318
                          36021                   IX0    X2+X1                                                   QCGC      319
                               64410              SB4    A1          SAVE TABLE ADDRESS                          QCGC      320
           107  7242777774                        SX4    X2-Z=TURP   LENGTH - Z=TURP                             QCGC      321
                          63510                   SB5    X1          FWA OF TABLE                                QCGC      322
                               10122              BX1    X2                                                      QCGC      323
           110  53345                             SA3    X4+B5                                                   QCGC      324
                     0400000113 +                 EQ     DUC1       CONTINUE                                     QCGC      325
                                                                                                                 QCGC      326
                                        **        REGISTER ALLOCATION                                            QCGC      327
                                        *         (X2) = WORD FROM TABLE                                         QCGC      328
                                        *         (X4) = DECREMENT WORD                                          QCGC      329
                                        *         (B4) _ TABLE ORIGIN WORD OF TABLE BEING SCANNED                QCGC      330
                                        *         (B5) = FWA OF TABLE                                            QCGC      331
                                                                                                                 QCGC      332
                                                                                                                 QCGC      333
           111  56140                    DUC.NX   SA1    B4                                                      QCGC      334
                     63510                        SB5    X1          RESET FWA OF TABLE                          QCGC      335
                          53345                   SA3    X4+B5       NEXT TURPLE HEADER                          QCGC      336
           112  0334000105 +                      MI     X4,EXIT.    IF FINISHED                                 QCGC      337
                                                                                                                 QCGC      338
                                        *         DETERMINE TYPE OF OPERAND                                      QCGC      339
                                        *         (X3) = OPERATOR WORD                                           QCGC      340
                                                                                                                 QCGC      341
           113  43166                    DUC1     MX1    -OP.CHINL                                               QCGC      342
                     20346                        LX3    -OP.CHINP                                               QCGC      343
                          15231                   BX2    -X1*X3      EXTRACT (X3) = CHARMAP INDEX                QCGC      344
           114  5212000000 X                      SA1    X2+CHARMAP  FETCH DUCABILITY VECTOR ELEMENT             QCGC      345
                          7244777774              SX4    X4-Z=TURP                                               QCGC      346
           115  5023000002                        =A2    A3+OR.2OP   PRELOAD 2ND OPERAND                         QCGC      347
                          20326                   LX3    OP.CHINP    RESTORE (X3)                                QCGC      348
                               63610              SB6    X1          B6 = DUC., DUC.1ST, DUC.2ND OR DUC.BTH      QCGC      349
                                   0              ERRNZ  18-CH.OPCL                                              QCGC      350
           116  0266000000                        JP     B6          (B6) = DUC.,DUC.1ST,DUC.2ND OR DUC.BTH      QCGC      351
                                                                                                                 QCGC      352
           117                           DUC.     BSSENT 0                 NEITHER OPPERAND IS USE COUNTED       QCGC      353
           117  0100000176 +                      RJ     TIL               REFORMAT WITHOUT USE COUNT            QCGC      354
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    18
        CAI - COMPILE ALL INSTRUCTIONS.                               DUC 
  
           120  5022777776               DUC2     SA2    A2-OR.2OP+OR.1OP   FETCH SECOND OPERAND                 QCGC      355
                          0100000176 +            RJ     TIL         REFORMAT WITHOUT USE COUNT                  QCGC      356
           121  0400000111 +                      EQ     DUC.NX      CONTINUE                                    QCGC      357
                                                                                                                 QCGC      358
           122                           DUC.1ST  BSSENT 0                 FIRST OPERAND USE COUNTED             QCGC      359
           122  0100000137 +                      RJ     KUT         KILL UNUSED TURPLE                          QCGC      360
           123  0100000176 +                      RJ     TIL               REFORMAT WITHOUT USE COUNT            QCGC      361
           124  5022777776               DUC3     SA2    A2-OR.2OP+OR.1OP   FETCH FIRST OPERAND                  QCGC      362
                          0100000210 +            RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      363
           125  0400000111 +                      EQ     DUC.NX      CONTINUE                                    QCGC      364
                                                                                                                 QCGC      365
           126                           DUC.2ND  BSSENT 0           2ND OPERAND USE COUNTED                     QCGC      366
           126  0100000137 +                      RJ     KUT         KILL UNUSED TURPLE                          QCGC      367
           127  0100000210 +                      RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      368
           130  5022777776                        SA2    A2-OR.2OP+OR.1OP   GET FIRST OPERAND                    QCGC      369
                          0100000176 +            RJ     TIL         REFORMAT WITHOUT USE COUNT                  QCGC      370
           131  0400000111 +                      EQ     DUC.NX      CONTINUE                                    QCGC      371
                                                                                                                 QCGC      372
           132                           DUC.BTH  BSSENT 0           BOTH OPERANDS USE COUNTED                   QCGC      373
           132  0100000137 +                      RJ     KUT         KILL UNUSED TURPLE                          QCGC      374
           133  0100000210 +                      RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      375
           134  56140                             SA1    B4          FWA INTERMEDIATE LANGUAGE                   QCGC      376
                     63510                        SB5    X1                PASS FWA TO TIU                       QCGC      377
                          5022777776              SA2    A2-OR.2OP+OR.1OP  GET FIRST OPERAND                     QCGC      378
           135  0100000210 +                      RJ     TIU         REFORMAT WITH USE COUNT                     QCGC      379
           136  0400000111 +                      EQ     DUC.NX      CONTINUE                                    QCGC      380
  
  
  
  
                                        **        KUT - KILL UNUSED TURPLE.                                      QCGC      382
                                        *                                                                        QCGC      383
                                        *         KUT ATTEMPTS TO NO-OP 'DANGLING' INTERMEDIATES, THOSE WHICH    QCGC      384
                                        *         GENERATE VALUES WHICH ARE NEVER REFERRED TO.  THIS IS          QCGC      385
                                        *         NECESSARY IN VARDIM EXPANSION, AND DESIREABLE IN GENERAL.      QCGC      386
                                        *                                                                        QCGC      387
                                        *         ENTRY  (A3) -> TURPLE HEADER.                                  QCGC      388
                                        *                                                                        QCGC      389
                                        *         EXIT   NORMAL, IF TURPLE NOT KILLED.                           QCGC      390
                                        *         ELSE   TO *DUC.*, IF TURPLE IS NO-OPED.                        QCGC      391
                                        *                                                                        QCGC      392
                                        *         KEEPS  (A2,X2),  X4,  B4,B5.                                   QCGC      393
                                                                                                                 QCGC      394
                                                                                                                 QCGC      395
           137  0400400137 +             KUT      SUBR   0           ENTRY/EXIT.                                 QCGC      396
           140  43156                             MX1    -OP.1ORDL                                               QCGC      397
                     54330                        SA3    A3                                                      QCGC      398
                                                  LX1    OP.1ORDP                                                QCGC      399
                          15631                   BX6    -X1*X3      EXTRACT (X6) = INDEX INTO (T.OUS)           QCGC      400
           141  0316000137 +                      NZ     X6,EXIT.    IF THIS RESULT NEEDED                       QCGC      401
                                                                                                                 QCGC      402
                                        ** MQ - NEED A 'KILL' BIT IN (F.SCT).                                    QCGC      403
                                        *         FOR NOW, ASSUME THAT OPERATORS WHICH ARE NOT CONSTANT-REDUCIBL QCGC      404
                                        *         ARE PRESENT FOR A GOOD REASON AND SHOULD NOT BE KILLED.        QCGC      405
                                        *         NOTE THAT (DUC=NONE) OPERATORS ARE NEVER PRESENTED TO KUT.     QCGC      406
                                                                                                                 QCGC      407
                                                  HX3    OP.SKEL                                                 QCGC      408
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    19
        CAI - COMPILE ALL INSTRUCTIONS.                               KUT 
  
                          21356                   AX3    -OP.SKELL                                               QCGC      409
           142  5213000000 X                      SA1    X3+F.SCT    FETCH SKELETON CONTROL WORD                 QCGC      410
                          20152                   HX1    VS.CRA                                                  QCGC      411
                               21152              AX1    -VS.CRAL                                                QCGC      412
           143  0301000137 +                      ZR     X1,EXIT.    IF NOT A VALUE TURPLE                       QCGC      413
                                                                                                                 QCGC      414
                                        *         FOR NOW, DON'T KILL EXCEPT WHEN EXPANDING VARDIM.              QCGC      415
                                                                                                                 QCGC      416
                          56140                   SA1    B4                                                      QCGC      417
                               53110              SA1    X1                                                      QCGC      418
                                                  HX1    OP.SKEL                                                 QCGC      419
           144  21156                             AX1    -OP.SKELL                                               QCGC      420
                     7160000000 X                 SX6    V=BVD                                                   QCGC      421
                               37716              IX7    X1-X6                                                   QCGC      422
           145  0317000137 +                      NZ     X7,EXIT.    IF NOT EXPANDING VARDIM                     QCGC      423
                                        ** FV            THIS SHOULD ALSO WORK FOR NORMAL IL SEGMENTS....        QCGC      424
                          7160000000 X            SX6    V=NOOP                                                  QCGC      425
           146  7100000054                        SX0    O.NONE                                                  QCGC      426
                          20656                   LX6    OP.SKELP                                                QCGC      427
                               20026              LX0    OP.CHINP                                                QCGC      428
           147  12760                             BX7    X6+X0       CHANGE TO NO-OP OPERATOR                    QCGC      429
                     54730                        SA7    A3                                                      QCGC      430
                          0400000117 +            EQ     DUC.                                                    QCGC      431
  
  
  
  
                                        **        POS - PREPARE OPERAND AND STATUS WORD                          QCGC      433
                                        *                1. AN OPERAND STATUS WORD IS EITHER CREATED             QCGC      434
                                        *                   OR UPDATED AND PLACED IN T.OUS.                      QCGC      435
                                        *                2. L AND GL TYPE OPERANDS (IDENTICAL FORMATS) ARE       QCGC      436
                                        *                   CREATED AND RETURNED TO THE CALLER TO BE PLACED      QCGC      437
                                        *                   IN THE I. L. OR REG=GL TABLE AS NEEDED.              QCGC      438
                                        *                                                                        QCGC      439
                                        *         CALLED BY:                                                     QCGC      440
                                        *                TIU WHICH PLACES OPERANDS IN THE I. L. AND              QCGC      441
                                        *                SUBSKEL PROCESSORS WHICH PLACE OPERANDS IN REG=GL.      QCGC      442
                                        *                                                                        QCGC      443
                                        *         ENTRY  (X2) = OPERAND IN P2 FORMAT                             QCGC      444
                                        *                (X6) = USE COUNT INCREMENT.                             QCGC      445
                                        *                       1 IF CALLER IS TIU                               QCGC      446
                                        *                       0 OTHERWISE                                      QCGC      447
                                        *                                                                        QCGC      448
                                        *         EXIT   (X2) = (X6) FOR INTERMEDIATES                           QCGC      449
                                        *                     = OPERAND STATUS WORD FOR NON-INTERMEDIATES        QCGC      450
                                        *                (X6) = I. L. ENTRY/PSEUDO OPERAND                       QCGC      451
                                        *                T.OUS ENTRY IS SET                                      QCGC      452
                                        *                                                                        QCGC      453
                                        *         CALLS  SCS AND ADDWD                                           QCGC      454
                                        *                                                                        QCGC      455
                                        *         SAVES  A4, B4,B5 X4,X5                                         QCGC      456
                                        *                                                                        QCGC      457
                                        *         WARNING - NO GL OPERAND SHOULD BE CREATED WITHOUT CALLING POS. QCGC      458
                                                                                                                 QCGC      459
           150  0400400150 +             POS      SUBR   =           ENTRY/EXIT                                  QCGC      460
           151  5160000166 +                      SA6   POS.INC                                                  QCGC      461
                          7130437000              CLAS=  X3,P2,(TAG,BIAS,2ATR,CLAS)  SCAN MASK                   QCGC      462
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    20
        CAI - COMPILE ALL INSTRUCTIONS.                               POS 
  
           152  10633                             BX6    X3                                                      QCGC      463
                     5160000000 X                 SA6    SCSA                                                    QCGC      464
           153  7110000777                        CLAS=  X1,RG,(USE)                                             QCGC      465
                          10622                   BX6    X2                                                      QCGC      466
                               11112              BX1    X1*X2       EXTRACT USE COUNT                           QCGC      467
           154  0311000150 +                      NZ     X1,EXIT.    IF OPERAND USE ALREADY COUNTED              QCGC      468
                                                                                                                 QCGC      469
                                         .TEST    IFEQ   TEST,ON                                                 QCGC      470
                                                  BX1    X2                                                      QCGC      471
                                                  SBIT   X1,P2.INTRP                                             QCGC      472
                                                  MI     X1,"BLOWUP" MUST COUNT ALL INTERMEDIATES                QCGC      473
                                         .TEST    ENDIF                                                          QCGC      474
                                                                                                                 QCGC      475
                          5110000000 X            SCAN   T.OUS,SCS   SCAN STATUS WORD TABLE                      QCGC      476
           156  5110000166 +                      SA1    POS.INC     GET USE COUNT INCREMENT                     QCGC      477
                          0770000161 +            MI     B7,POS1     IF NOT ALREADY IN TABLE                     QCGC      478
           157  36621                             IX6    X2+X1       INCREMENT USE COUNT (MAY BE 0)              QCGC      479
                     54620                        SA6    A2          REPLACE STATUDS WORD                        QCGC      480
                          5110000000 X            SA1    T.OUS                                                   QCGC      481
           160  0400000163 +                      EQ     POS2                                                    QCGC      482
                                                                                                                 QCGC      483
                                        *         *OPERAND* NOT IN TABLE (1ST USE) INITALIZE USE COUNT           QCGC      484
                                        *         AND ADD TO OPERAND USE TABLE                                   QCGC      485
                                        *         (X6) = I. L. ENTRY/PSUEDO OPERAND NOT YET USE COUNTED          QCGC      486
                                                                                                                 QCGC      487
           161  5130000000 X             POS1     SA3    SCSA        RELOAD MASK                                 QCGC      488
                          11636                   BX6    X3*X6       CLEAR USE COUNT FIELD                       QCGC      489
                               36661              IX6    X6+X1       SET USE COUNT TO POS.INC                    QCGC      490
           162  5110000000 X                      ADDWD  T.OUS                                                   QCGC      491
                                                                                                                 QCGC      492
                                        **        HERE WE BUILD THE NEW I.L. ENTRY OR PSEUDO OPERAND.  THIS      FC50452    13
                                        *         MEANS CREATING A NEW T.OUS TAG NEEDED BY REG.                  QCGC      494
                                        *         T.OUS TAG = C.OUS + ORDINAL INTO T.OUS                         QCGC      495
                                        *         (A6) _ OPERAND STATUS WORD.                                    QCGC      496
                                        *         (X1) = FWA T.OUS.                                              QCGC      497
                                        *         (X6) = OPERAND STATUS WORD OF THE I. L. ENTRY/PSEUDO OPERAND   QCGC      498
                                                                                                                 QCGC      499
           163  63710                    POS2     SB7    X1          (B7) = FWA OF T.OUS                         QCGC      500
                     43020                        MX0    P2.TAGL     MASK TO REMOVE SYM,PRO OR SHRT CON TAG      QCGC      501
                          75167                   SX1    A6-B7       (X1) = ORDINAL INTO T.OUS                   QCGC      502
                                                  LX0    P2.TAGL+P2.TAGP                                         QCGC      503
                               15660              BX6    -X0*X6      REMOVE TAG                                  QCGC      504
           164  20154                             LX1    P2.TAGP     POSITION NEW TAG                            QCGC      505
                     54260                        SA2    A6          PUT STATUS WORD IN X2 FOR EXIT              QCGC      506
                          36661                   IX6    X6+X1       REPLACE *TAG* WITH T.OUS ORDINAL            QCGC      507
           165  0400000150 +                      EQ     EXIT.                                                   QCGC      508
                                                                                                                 QCGC      509
           166  00000000000000000000     POS.INC  CON    0           INC = 1 IF TIU IS CALLER, 0 OTHERWISE       QCGC      510
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    21
        CAI - COMPILE ALL INSTRUCTIONS.                               RED 
  
                                        **        RED -  REFORMAT FOR EXPANSION AND DEFINITION                   QCGC      512
                                        *                                                                        QCGC      513
                                        *         RED REFORMATS THE OPERATOR AS FOLLOWS:                         QCGC      514
                                        *                (1) THE LINE NUMBER IS REPLACED BY THE OUS ORDINAL      QCGC      515
                                        *                (2) THE USE TOTALS ARE SET IN THE OP.LTOT AND OP.UTOT   QCGC      516
                                        *                    FIELDS.                                             QCGC      517
                                        *                                                                        QCGC      518
                                        *         ENTRY  (X5) = OPERATOR WORD                                    QCGC      519
                                        *                                                                        QCGC      520
                                        *         EXIT   (X6) = SKELETON ORDINAL                                 QCGC      521
                                        *                (X7) = OPERATOR WORD NEW FORMAT                         QCGC      522
                                        *                       OP.SKELL/SKEL,OP.2ORD/OUS ORDINAL,OP.CHIN/CHIN,  QCGC      523
                                        *                       OP.MODEL/MODE,OP.LTOTL/LOWER USE TOTAL,          QCGC      524
                                        *                       OP.UTOTL/UPPER USE TOTAL                         QCGC      525
                                        *                ((B4)+OR.OPR) = NEW OPERATOR WORD (X7)                  QCGC      526
                                        *                                                                        QCGC      527
                                        *         USES   A1,A5,A7   X0,X1,X5,X6,X7,   B7                         QCGC      528
                                        *                                                                        QCGC      529
                                        *         NOTE - UNLIKE THE OTHER REFORMATTERS RED IS NOT CALLED         QCGC      530
                                        *         FROM QCGC.  IT IS CALLED FORM THE MAIN LOOP IN EIS, AF-        QCGC      531
                                        *         TER THE LINE NO. FIELD HAS BEEN USED.                          QCGC      532
                                                                                                                 QCGC      533
                                                                                                                 QCGC      534
           167  0400400167 +             RED      SUBR   =           ENTRY/EXIT                                  QCGC      535
           170  5110000617 +                      CLAS=  X1,OP,(SKEL,CHIN,MODE,BSSI)  PRESERVED FIELDS           FC5A166     7
                          43056                   MX0    -OP.1ORDL   SET OUS ORDINAL MASK                        QCGC      537
                                   0              ERRNZ  OP.2ORDL-OP.1ORDL                                       FC50104   239
                                   0              ERRNZ  OP.1ORDP                                                QCGC      539
                               11615              BX6    X1*X5       SANITIZE NEW OPERATOR WORD                  QCGC      540
           171  15050                             BX0    -X0*X5      EXTRACT OUS ORDINAL                         QCGC      541
                     5110000000 X                 SA1    T.OUS       GET OUS FWA                                 QCGC      542
                               63700              SB7    X0          (B7) = OUS ORDINAL                          QCGC      543
           172  20034                             LX0    OP.2ORDP    POSITION OUS ORDINAL                        QCGC      544
                     53517                        SA5    B7+X1       GET STATUS WORD                             QCGC      545
                          43163                   MX1    -RG.USEL    SET USE COUNT MASK                          QCGC      546
                               36706              IX7    X0+X6       ADD IN OUS ORDINAL TO 2ORD FIELD            QCGC      547
           173  15151                             BX1    -X1*X5      EXTRACT USE TOTAL  FROM STATUS WORD         QCGC      548
                                   0              ERRNZ  RG.USEP                                                 QCGC      549
                     10011                        BX0    X1                                                      QCGC      550
                          20011                   LX0    OP.LTOTP    POSITION LOWER TOTAL                        QCGC      551
                                                  LX1    OP.UTOTP    OPSITION UPPER TOTAL                        QCGC      552
                               36771              IX7    X7+X1       ADD IN UPPER TOTAL                          QCGC      554
                                                  HX6    OP.SKEL                                                 QCGC      555
           174  21656                             AX6    -OP.SKELL   EXTRACT SKELETON ORDINAL                    FC50104   240
                     36770                        IX7    X7+X0       ADD IN LOWER TOTAL                          QCGC      557
                          5174000000              SA7    B4+OR.OPR   RESET OPERATOR WORD                         QCGC      558
           175  0400000167 +                      EQ     EXIT.                                                   QCGC      559
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    22
        CAI - COMPILE ALL INSTRUCTIONS.                               TIL 
  
                                        **        TIL -  TRANSFORM INTERMEDIATE LANGUAGE.                        QCGC      561
                                        *                                                                        QCGC      562
                                        *         CHANGES PASS 1 (TP.) OPERAND STRUCTURE TO THE (P2.) OPERAND    QCGC      563
                                        *         STRUCTURE REQUIRED BY (QCG).                                   QCGC      564
                                        *                                                                        QCGC      565
                                        *         ENTRY  (A2) _ OPERAND WORD                                     QCGC      566
                                        *                (X0) = C.XXX (P2. TAG PREFIX).                          QCGC      567
                                        *                (X2) = OPERAND WORD (TP. FORMAT).                       QCGC      568
                                        *                                                                        QCGC      569
                                        *         EXIT   (A2) _ OPERAND WORD                                     QCGC      570
                                        *                (X2) = OPERAND WORD IN P2. FORMAT.                      QCGC      571
                                        *                (X5) = OPERAND WORD IN TP. FORMAT.                      QCGC      572
                                        *                                                                        QCGC      573
                                        *                PARSED FILE OPERAND SET TO P2. FORMAT.                  QCGC      574
                                        *                                                                        QCGC      575
                                        *         USES   A1,A3,  X0,X1,X2,X3,X5,X6,  B2,B3                       QCGC      576
                                                                                                                 QCGC      577
                                                                                                                 QCGC      578
           176  0400400176 +             TIL      SUBR               ENTRY/EXIT                                  QCGC      579
           177  10522                             BX5    X2          TP. WORD KEPT IN X5 THROUGHOUT              QCGC      580
                     5130000620 +                 CLAS=  X3,TP,(TAG,BIAS,LCM,FP,INTR,SHRT,ADDR,ARR,CAT)          QCGC      581
                                                  ECHO   2,F=(TAG,BIAS,LCM,FP,INTR,SHRT,ADDR,ARR,CAT)            QCGC      582
                                                  ERRNZ  TP.F_P-P2.F_P                                           QCGC      583
                                                  ERRNZ  TP.F_L-P2.F_L                                           QCGC      584
                                                                                                                 QCGC      585
                               43071              MX0    -TP.MODEL                                               QCGC      586
                                                  LX2    -TP.MODEP                                               QCGC      587
           200  15120                             BX1    -X0*X2      OPERAND MODE                                QCGC      588
                                                  LX2    TP.MODEP    RESTORE OPERAND                             QCGC      589
                     11632                        BX6    X3*X2       FIELDS TO BE PRESERVED FOR PASS 2           QCGC      590
                          43073                   MX0    -1                                                      QCGC      591
           201  7211777773                        SX1    X1-M.DBL    0 OR 1 IMPLIES LONG                         QCGC      592
                          7130040000              CLAS=  X3,TP,(GL)                                              QCGC      593
           202  11101                             BX1    X0*X1       ZERO IMPLIES LONG                           QCGC      594
                     20021                        LX0    P2.LONGP                                                QCGC      595
                          0311000204 +            NZ     X1,TIL10    IF NOT DOUBLE OR COMPLEX                    QCGC      596
           203  16660                             BX6    -X0+X6      P2.LONG = 1                                 QCGC      597
                                                                                                                 QCGC      598
           204  11132                    TIL10    BX1    X3*X2                                                   QCGC      599
                     20153                        LX1    P2.PFXP-TP.GLP                                          QCGC      600
                                   0              ERRNZ  K=GL-1                                                  QCGC      601
                          12661                   BX6    X6+X1       P2.PFX = TP.GL                              QCGC      602
                               20261              HX2    P2.INTR                                                 QCGC      603
           205  0322000207 +                      PL     X2,TIL20    IF NOT INTERMEDIATE OPERAND                 QCGC      604
                          43020                   MX0    P2.TAGL                                                 QCGC      605
                               43250              MX2    P2.TAGL+P2.BIASL                                        QCGC      606
           206  11106                             BX1    X0*X6       EXTRACT TAG                                 QCGC      607
                     15662                        BX6    -X2*X6      CLEAR TAG AND BIAS                          QCGC      608
                          20144                   LX1    P2.BIASP-P2.TAGP                                        QCGC      609
                               12616              BX6    X1+X6       P2.BIAS = TP.TAG         P2.TAG = 0         QCGC      610
                                                                                                                 QCGC      611
           207  10266                    TIL20    BX2    X6                                                      QCGC      612
                     54620                        SA6    A2          RESET OPERAND WORD                          QCGC      613
                          0400000176 +            EQ     EXIT.                                                   QCGC      614
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    23
        CAI - COMPILE ALL INSTRUCTIONS.                               TIU 
  
                                        **        TIU -  TRANSFORM INTERMEDIATE LANGUAGE AND INSERT              FC50104   241
                                        *                USE COUNT. CALLED FROM DUC TO REFORMAT                  QCGC      617
                                        *                OPERANDS REQUIRING USE COUNTS. AS IN TIL                QCGC      618
                                        *                TP. FORMAT GIVES WAY TO THE P2. FORMAT.                 QCGC      619
                                        *                                                                        QCGC      620
                                        *         ENTRY  (A2) _ OPERAND WORD                                     QCGC      621
                                        *                (X2) = OPERAND WORD P2. FORMAT                          QCGC      622
                                        *                (X4) = NEXT TURPLE HEADER ORDINAL                       QCGC      623
                                        *                (B4) = T.PAR                                            QCGC      624
                                        *                (B5) = FWA INTERMEDIATE LANGUAGE                        FC50452    14
                                        *                                                                        QCGC      626
                                        *         EXIT   (A2) _ PRESERVED                                        QCGC      627
                                        *                (X2) = OPERAND IN P2. FORMAT                            QCGC      628
                                        *                (X4) - PRESERVED                                        QCGC      629
                                        *                (X5) = OPERAND IN TP. FORMAT                            QCGC      630
                                        *                (B4) - PRESERVED                                        QCGC      631
                                        *                                                                        QCGC      632
                                        *         USES   A1,A3,A5,A6,A7,  X0,X1,X2,X3,X5,X6,X7,  B5,B7           QCGC      633
                                        *                FWA AND LENGTH POINTER WORDS FOR MANAGED TABLES         QCGC      634
                                        *                                                                        QCGC      635
                                        *         CALLS ADDWD,SCAN AND TIL                                       QCGC      636
                                        *                                                                        QCGC      637
                                        *         NOTE - NEITHER ADDWD NOR SCAN CAN DESTROY X4,X5,B4 OR B5       QCGC      638
                                                                                                                 QCGC      639
           210  0400400210 +             TIU      SUBR               ENTRY/EXIT                                  QCGC      640
           211  6274000004                        SB7    X4+Z=TURP+OR.1OP                                        QCGC      641
                          66775                   SB7    B7+B5                                                   QCGC      642
                               65727              SB7    A2-B7                                                   QCGC      643
           212  43600                             MX6    0                                                       QCGC      644
                     0570000216 +                 NZ     B7,TIU1  IF NOT PROCESSING 1OP                          QCGC      645
                               63745              SB7    B5+X4                                                   QCGC      646
           213  5137000003                        SA3    B7+Z=TURP                                               QCGC      647
                                                  HX3    OP.SKEL                                                 FC50104   242
                          21356                   AX3    -OP.SKELL   EXTRACT SKELETON ORDINAL                    FC50104   243
                               14133              BX1    -X3                                                     QCGC      649
           214  6271000000 X                      SB7    X1+V=SUBST                                              QCGC      650
                          0570000216 +            NZ     B7,TIU1     IF NOT SUBSTRING OPERAND                    QCGC      651
           215  43601                             MX6    1                                                       QCGC      652
                                                                                                                 QCGC      653
           216  5160000615 +             TIU1     SA6    =STIUA                                                  QCGC      654
                          5150000252 +            SA5    TIU.TP      PRESET A5                                   QCGC      655
           217  0100000176 +                      RJ     TIL         REFORMAT TO P2.                             QCGC      656
           220  10655                             BX6    X5                                                      QCGC      657
                     54650                        SA6    A5          STORE TP. WORD                              QCGC      658
                          10122                   BX1    X2                                                      QCGC      659
                               20161              SBIT   X1,P2.INTRP                                             QCGC      660
           221  0331000227 +                      MI     X1,TIU8     IF INTERMEDIATE                             QCGC      661
                          0306000210 +            ZR     X6,EXIT.    IF NULL ARG. OF TWOARG                      QCGC      662
                                                                                                                 QCGC      663
                                        **        OPERAND IS A SYMBOL                                            QCGC      664
                                                                                                                 QCGC      665
                                        **        (A2) _ P2 OPERAND                                              QCGC      666
                                        *         (X2) = P2 OPERAND                                              QCGC      667
                                        *         (B5) = FWA I. L.                                               QCGC      668
                                                                                                                 QCGC      669
           222  65525                    TIU5     =B5    A2-B5       (B5) = OPERAND ORDINAL IN I. L.             QCGC      670
                     76610                        =X6    1           SET USE COUNT INCREMENT FOR POS             QCGC      671
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    24
        CAI - COMPILE ALL INSTRUCTIONS.                               TIU 
  
                          0100000150 +            RJ     POS         PREPARE OPERAND AND STATUS WORD             QCGC      672
           223  56340                             SA3    B4          GET FWA I. L.                               QCGC      673
                     5150000252 +                 SA5    TIU.TP      PLACE TP. FORM IN (X5)                      QCGC      674
           224  5110000615 +                      SA1    TIUA                                                    QCGC      675
                          53235                   SA2    X3+B5       RESTORE OPERAND                             QCGC      676
           225  0331000210 +                      MI     X1,EXIT.    IF SUBSTRING 1OP                            QCGC      677
                          54620                   SA6    A2          STORE NEW OPERAND                           QCGC      678
           226  0400000210 +                      EQ     EXIT.                                                   QCGC      679
                                                                                                                 QCGC      680
                                        **        INTERMEDIATE CASE:  HERE USE COUNTING MUST                     QCGC      681
                                        *         BE MORE ACCURATE.  THE USE COUNT IS ACUMULATED                 QCGC      682
                                        *         IN THE STATUS WORD FOR THE INTERMEDIATE.  WE                   QCGC      683
                                        *         INCREMENT USE COUNT AS FOLLOWS:                                QCGC      684
                                                                                                                 QCGC      685
                                        *         1) INC = 1:  FOR OPERANDS OF NON DEFERED TURPLES               QCGC      686
                                        *         2) INC = USE(CURRENT OPERATOR):  FOR DEFERED TURPLES           QCGC      687
                                        *         3) INC = TWICE 2): FOR CPLX/DBL DEFERED TURPLES                QCGC      688
                                        *                                                                        QCGC      689
                                        *         THERE ARE 2 OPERATERS INPORTANT TO ANY INTERMEDIATE:           QCGC      690
                                        *         THE *CURRENT OPERATOR* - THE OPERATOR OF THE TURPLE CON-       QCGC      691
                                        *         TAINING THE INTERMEDIATE,  AND                                 QCGC      692
                                        *         THE *ASSOCIATE OPERATOR* - THE OPERATOR OUR INTERMEDIATE       QCGC      693
                                        *         POINTS TO.  THE ASSOCIATE IS USED TO CARRY A POINTER TO THE    QCGC      694
                                        *         STATUS WORD,  AND IS LATER USED TO CARRY THE USE TOTALS.       QCGC      695
                                        *                                                                        QCGC      696
                                        *         (X4)+Z=TURP = I. L. ORDINAL OF THE CURRENT OPERATOR            QCGC      697
                                        *         (X2) = P2.WORD (BIAS = I. L. ORDINAL OF THE ASSOC OPERATOR)    QCGC      698
                                        *         (X5) = TP. WORD                                                QCGC      699
                                        *         (B4) = T.PAR                                                   QCGC      700
                                        *         (B5) = FWA(I. L.)                                              QCGC      701
                                                                                                                 QCGC      702
                                                                                                                 QCGC      703
           227  6274000003               TIU8     SB7    X4+Z=TURP   (B7)= I. L. ORDINAL OF THE CURRENT OPERATOR QCGC      704
                          43671                   MX6    -OP.2MODL   SET MODE MASK                               QCGC      705
                               56357              SA3    B5+B7       GET CURRENT OPERATOR                        QCGC      706
           230  14133                             BX1    -X3         GET NEGATIVE OF SKELETON ORD                QCGC      708
                                                  HX1    TH.SKEL                                                 FC50104   244
                     21156                        AX1    -TH.SKELL   EXTRACT (SIGN EXTEND) NEGATIVE SKEL ORDINAL FC50104   245
                          6271000000 X            SB7    X1+V=ARY    *FTN4* ONLY...WILL CHANGE FOR NEW TURPLES   QCGC      709
           231  43056                             MX0    -OP.1ORDL   SET MASK FOR STATUS WORD ORDINAL IN OUS     QCGC      711
                     76710                        =X7    1           SET INITIAL USE COUNT INCREMENT             QCGC      712
                          0570000236 +            NZ     B7,TIU9     IF NOT DEFERED TURPLE                       QCGC      713
                                                                                                                 QCGC      714
                                        **        HERE WE COMPUTE THE USE COUNT INCREMENT FOR DEFERED TURPLE     QCGC      715
                                        *         OPERANDS                                                       QCGC      716
                                        *         (X7) = 1           A BIT-0 MASK FOR MODE CHECKING              QCGC      717
                                                                                                                 QCGC      718
           232  20352                             LX3    -OP.2MODP   POSITION MODE OF CURRENT OPERATOR           FC50104   246
                     15636                        BX6    -X6*X3      EXTRACT MODE                                QCGC      720
                          43563                   MX5    -OP.USEL    SET MASK FOR USE COUNT INCREMENT            QCGC      721
                               20322              LX3    OP.2MODP-OP.1ORDP POSITION ORD OF CUR OPERATOR'S ST WD  QCGC      722
           233  7266777773                        SX6    X6-M.DBL    (X6) = 0 OR 1 IF MODE = DBL OR CPLX RESP.   QCGC      723
                                   0              ERRNZ  M.DBL-M.CPLX+1                                          QCGC      724
                          15330                   BX3    -X0*X3      (X3) = OUS ORD OF THE CUR. OPERATOR ST WORD QCGC      725
                               15667              BX6    -X7*X6      CLEAR BIT 0 FROM MODE DIFFERENCE            QCGC      726
           234  63730                             SB7    X3                                                      QCGC      727
                     5130000000 X                 SA3    T.OUS       GET OUS FWA                                 QCGC      728
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    25
        CAI - COMPILE ALL INSTRUCTIONS.                               TIU 
  
                               53337              SA3    X3+B7       GET STATUS WORD FOR CURRENT OPERATOR        QCGC      729
           235  15735                             BX7    -X5*X3      (X7) = USE INC IF OPERAND^OPERATOR NOT DBL  QCGC      730
                     0316000236 +                 NZ     X6,TIU9     IF CURRENT OPERATOR MODE NOT DBL/CPLX       QCGC      731
                               20701              LX7    1           TWICE INCREMENT IF OPETATOR DOUBLE/COMPLEX  QCGC      732
                                                                                                                 QCGC      733
                                        **        (X0) = MASK FOR OUS ORDINAL                                    QCGC      734
                                        *         (X2) = OPERAND SHIFTED                                         QCGC      735
                                        *         (X7) = USE COUNT INCREMENT                                     QCGC      736
                                        *         (B5) = FWA I. L.                                               QCGC      737
                                                                                                                 QCGC      738
           236  20250                    TIU9     LX2    -P2.BIASP   POSITION I. L. ORDINAL OF ASSOC OPERATOR    QCGC      739
                     53325                        SA3    B5+X2       GET ASSOCIATE OPERATOR                      QCGC      740
                          15530                   BX5    -X0*X3      (X5) = ORD OF STATUS WORD FOR ASSOCIATE     QCGC      741
                               20224              LX2    P2.BIASP    RESET OPERAND                               QCGC      742
           237  65525                             SB5    A2-B5       IL ORD OF CURRENT OPERAND                   QCGC      743
                     0315000244 +                 NZ     X5,TIU11    IF STATUS WORD ALREADY IN TABLE             QCGC      744
                                                                                                                 QCGC      745
                                        **        MUST ENTER NEW STATUS WORD WITH INITIAL USE COUNT.             QCGC      746
                                        *         ALSO ORDINAL TO STATUS WORD MUST BE PLACED IN THE              QCGC      747
                                        *         ASSOCIATE OPERATOR.                                            QCGC      748
                                                                                                                 QCGC      749
           240  5150000000 X                      SA5    T=OUS       GET OUS ORDINAL                             QCGC      750
                          36627                   IX6    X2+X7       ADD INITIAL USE COUNT INTO STATUS WORD      QCGC      751
                               12735              BX7    X3+X5       ADD ORDINAL INTO OPERATOR                   QCGC      752
                                   0              ERRNZ  OP.1ORDP                                                QCGC      753
           241  54730                             SA7    A3          RESET ASSOCIATE OPERATOR WITH ORDINAL SET   QCGC      754
                     5110000000 X                 ADDWD  T.OUS                                                   QCGC      755
           243  56240                             SA2    B4          GET FWA I. L.                               QCGC      756
                     53225                        SA2    X2+B5       RESET OPERAND POINTER                       FC50452    15
                          0400000246 +            EQ     TIU12       WRAP IT UP                                  QCGC      758
                                                                                                                 QCGC      759
                                        **        OPERAND IN TABLE. MUST INCREMENT USE COUNT                     QCGC      760
                                                                                                                 QCGC      761
           244  5130000000 X             TIU11    SA3    T.OUS       GET FWA OUS                                 QCGC      762
                          63750                   SB7    X5          (B7) = OUS ORD                              QCGC      763
                               36627              IX6    X2+X7       INSERT DUMMY USE IN OPERAND                 QCGC      764
           245  53337                             SA3    B7+X3       GET STATUS WORD OF OPERAND                  QCGC      765
                     36773                        IX7    X7+X3       INCREMENT USE TOTAL IN STATUS WORD          QCGC      766
                          54730                   SA7    A3          RESET STATUS WORD                           QCGC      767
                                                                                                                 QCGC      768
           246  20554                    TIU12    LX5    P2.TAGP     POSITION OUS ORDINAL                        QCGC      769
                     12665                        BX6    X6+X5       INSERT OUS ORDINAL IN TAG FIELD             QCGC      770
                          5150000252 +            SA5    TIU.TP      RESTORE TP WORD                             QCGC      771
           247  22206                             LX2    X6          (X2) = CURRENT VALUE OR OPERAND             QCGC      772
                     5110000615 +                 SA1    TIUA                                                    QCGC      773
           250  0331000210 +                      MI     X1,EXIT.    IF SUBSTRING 1OP                            QCGC      774
                          54620                   SA6    A2          RESET OPERAND                               QCGC      775
           251  0400000210 +                      EQ     EXIT.                                                   QCGC      776
                                                                                                                 QCGC      777
           252                     1     TIU.TP   BSS    1           SAVE AREA FOR TP. WORD                      QCGC      778
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    26
        QCG SUPPORT ROUTINES.                                         DPT 
  
                                        **        DPT -  DEFINE PROGRAM TAG.                                     QCGC      781
                                        *                                                                        QCGC      782
                                        *         ENTRY  (X6) = ENTRY FOR *T.GL*, (WC) FORMAT                    QCGC      783
                                        *                                                                        QCGC      784
                                        *         USES   A1,A2,A6  X0,X7                                         QCGC      785
                                        *                                                                        QCGC      786
                                        *         CALLS ALC                                                      QCGC      787
                                                                                                                 QCGC      788
                                                                                                                 QCGC      789
           253  0400400253 +             DPT      SUBR   =           ...ENTRY/EXIT...                            QCGC      790
           254  5110000000 X                      SA1    N.GL                                                    QCGC      791
                          5120000000 X            SA2    T=GL                                                    QCGC      792
           255  5160000261 +                      SA6    DPTA        SAVE (X6)                                   QCGC      793
                          73311                   =X3    X1+1                                                    QCGC      794
                               37032              IX0    X3-X2                                                   QCGC      795
                                                  IFEQ   TEST,ON,1                                               QCGC      796
                                                  MI     X0,"BLOWUP" IF (N.GL) .LT. (T=GL)                       QCGC      797
           256  5110000000 X                      ALLOC  T.GL,X0     INSURE TABLE LARGE ENOUGH FOR ALL GLS       QCGC      798
           257  5120000261 +                      SA2    DPTA                                                    QCGC      799
                          10622                   BX6    X2                                                      QCGC      800
                               53613              SA6    X1+B3       STORE ENTRY IN GL TABLE                     QCGC      801
           260  0400000253 +                      EQ     EXIT.                                                   QCGC      802
                                                                                                                 QCGC      803
           261                     1     DPTA     BSS    1           SAVE (X6)                                   QCGC      804
  
  
  
  
                                        **        QCP - QUICK CODE PRESETS.                                      QCGC      806
                                        *                                                                        QCGC      807
                                        *         SETS UP CELLS FOR QCG.                                         QCGC      808
                                                                                                                 QCGC      809
                                                                                                                 QCGC      810
           262  0400400262 +             QCP      SUBR   =           ENTRY/EXIT...                               QCGC      811
           263  7160000000                        SX6    0                                                       QCGC      812
                          5160000010 +            SA6    DRITE                                                   QCGC      813
           264  7170000454 +                      SX7    WINOC                                                   QCGC      815
                          5170000520 +            SA7    PSTAB       SET WIN JUMP TABLE TO OC$XXX                QCGC      816
           265  76600                             =X6    0                                                       QCGC      817
                     5110000000 X                 ADDWD  T.IOI       ADD ZERO WORD AT START OF TABLE             QCGC      818
           267  5110000000 X                      ADDWD  T.API       ADD ZERO WORD AT START OF TABLE             QCGC      819
           270  5110000000 X                      ADDWD  T.GL        ADD ZERO WORD AT START OF TABLE             QCGC      820
           271  5160000000 X                      SA6    ENT.EGL     PRESET ENTRY GENERATED LABEL                QCGC      821
                          5066000001              SA6    A6+1        PRESET ENTRY SYM TAB ORDINAL(ENT.STO)       QCGC      822
           272  5066000001                        SA6    A6+1        PRESET AD SUB COUNTER (ENT.SUB)             QCGC      823
                          54661                   =A6    A6+B1       PRESET SUB0 COUNTER (ENT.SB0)               QCGC      824
           273  5066000001                        SA6    A6+1        PRESET VAR DIM FLAG(ENT.VD)                 QCGC      825
                          54661                   SA6    A6+B1       PRESET N.ALTEN - ALTERNATE ENTRY COUNTER    QCGC      826
           274  5110000000 X                      SA1    CO.CS                                                   QCGC      827
                          5120000000 X            SA2    CO.DOOT                                                 QCGC      828
           275  10611                             BX6    X1          INITIALIZE WORKING QCG COPY OF OPTIONS      QCGC      829
                     22702                        LX7    X2                                                      QCGC      830
                          5160000022 +            SA6    WQ.CS                                                   QCGC      831
           276  54761                             =A7    A6-WQ.CS+WQ.DOOT                                        QCGC      832
                     7160000033                   SX6    I.LOO                                                   QCGC      833
           277  5160000000 X                      SA6    OCIOL       INITIALIZE                                  QCGC      834
                          0400000262 +            EQ     EXIT.       EXIT...                                     QCGC      835
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    27
        QCG SUPPORT ROUTINES.                                         SMB 
  
                                        **        SMB - SET MAT BIT FOR VARIABLES.                               QCGC      837
                                        *         SINCE QCG DOES NOT SET THE MAT BIT IN THE SYMBOL TABLE         QCGC      838
                                        *         FOR LOCAL VARIABLES, THIS ROUTINE IS CALLED FROM *REC*         QCGC      839
                                        *         TO SET MAT[WB.] = 1 , IF VAR[WB.] = 1.                         QCGC      840
                                                                                                                 QCGC      841
                                                                                                                 QCGC      842
           300  0400400300 +             SMB      SUBR   =           ENTRY/EXIT.                                 QCGC      843
           301  5130000000 X                      SA3    MOD                                                     QCGC      844
                          20363                   HX3    MO.BLK                                                  QCGC      845
           302  0333000300 +                      MI     X3,EXIT.    IF BLOCK DATA                               QCGC      846
                          5130000000 X            SA3    T.SYM                                                   QCGC      847
           303  5120000000 X                      SA2    T=SYM                                                   QCGC      848
                          63620                   SB6    X2                                                      QCGC      849
                               43401              CLAS=  X4,WB,(VAR)                                             QCGC      850
                     6130000003                   SB3    Z=SYM                                                   QCGC      851
                               53331              =A3    X3+WB.W                                                 QCGC      852
           305  43201                             CLAS=  X2,WB,(MAT)                                             QCGC      853
                                                                                                                 FC50326    31
           306  54333                    SMB10    SA3    A3+B3       WBI = WB ENTRY OF T.SYM                     QCGC      854
                     67663                        SB6    B6-B3                                                   QCGC      855
                          0460000300 +            ZR     B6,EXIT.    IF END OF T.SYM                             QCGC      856
           307  10033                             BX0    X3                                                      FC50326    32
                     20070                        SBIT   X0,WB.LABP                                              FC50326    33
                          0330000306 +            MI     X0,SMB10    IF STATEMENT LABEL                          FC50326    34
           310  20037                             SBIT   X0,WB.SFAP/WB.LABP                                      FC50326    35
                     0330000306 +                 MI     X0,SMB10    IF STATEMENT FUNCTION DUMMY ARGUMENT        FC50326    36
                               11143              BX1    X4*X3       VARI = VAR[WBI]                             QCGC      857
           311  12632                             BX6    X3+X2                                                   QCGC      858
                     0301000306 +                 ZR     X1,SMB10    IF VARI .EQ. 0                              QCGC      859
                               54630              SA6    A3          MAT[WBI] = 1                                QCGC      860
           312  0400000306 +                      EQ     SMB10                                                   QCGC      861
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    28
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.
  
           312                                    CTEXT  COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.              COMFWIN     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFWIN     4
                                                  QUAL   COMFWIN                                                 COMFWIN     5
                                 D_D              BASE   D                                                       COMFWIN     6
  
  
  
  
                                        **        WIN -  WRITE INSTRUCTIONS TO PREBINARY.                        COMFWIN     8
                                        *                                                                        COMFWIN     9
                                        *         ENTRY  (X7) = INSTRUCTION TO TRANSFER                          COMFWIN    10
                                        *                (B2) = EXIT ADDRESS.                                    COMFWIN    11
                                        *                                                                        COMFWIN    12
                                        *         EXIT   INSTRUCTION TRANSFERRED TO PREBINARY                    COMFWIN    13
                                        *                (X7) = DESTROYED.                                       COMFWIN    14
                                        *                                                                        COMFWIN    15
                                        *         USES   A - 1,2,3,6,7                                           COMFWIN    16
                                        *                X - 0,1,2,6,7                                           COMFWIN    17
                                        *                B - 2,3,7                                               COMFWIN    18
                                        *                ------ C A N  N E V E R  D E S T R O Y ------           COMFWIN    19
                                        *         QCG      A0,4,5  X3,4,5  B4,5,6                                COMFWIN    20
                                        *         CCG      A4      X4      B4,5                                  COMFWIN    21
                                                                                                                 FC5A158A   26
                                                                                                                 FC5A158A   27
                                         #RM      IFNE   CP#RM,0                                                 FC5A158A   28
                                                  PURGMAC WRITEO                                                 FC5A158A   29
                                                                                                                 FC5A158A   30
                                        *         REDEFINE WRITEO TO CALL WRITEW UNTIL FA=WTO IS AVAIL.          FC5A158A   31
                                                                                                                 FC5A158A   32
                                         WRITEO   MACRO  FET                                                     FC5A158A   33
                                                  SX7    B2                                                      FC5A158A   34
                                                  SX3    B7                                                      FC5A158A   35
                                                  LX3    18                                                      FC5A158A   36
                                                  BX7    X3+X7                                                   FC5A158A   37
                                                  SX3    B6                                                      FC5A158A   38
                                                  MX1    -18                                                     FC5A158A   39
                                                  BX3    -X1*X3                                                  FC5A158A   40
                                                  LX3    18+18                                                   FC5A158A   41
                                                  BX7    X3+X7                                                   FC5A158A   42
                                                  SA6    =SWTOA                                                  FC5A158A   43
                                                  SA7    =SWTOB                                                  FC5A158A   44
                                                  WRITEW FET,WTOA,1                                              FC5A158A   45
                                                  SA3    WTOB                                                    FC5A158A   46
                                                  SB2    X3                                                      FC5A158A   47
                                                  AX3    18                                                      FC5A158A   48
                                                  SB7    X3                                                      FC5A158A   49
                                                  AX3    18                                                      FC5A158A   50
                                                  SB6    X3                                                      FC5A158A   51
                                         WRITEO   ENDM                                                           FC5A158A   52
                                         #RM      ENDIF                                                          FC5A158A   53
                                                                                                                 COMFWIN    22
                                                                                                                 COMFWIN    23
                                  14     P.COPY   =      12          DEFINE COPY BIT OF PIK=PS TABLE             COMFWIN    24
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    29
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                                                                                                                 COMFWIN    25
                                        *         WTE - ENTRY POINT FOR WRITING 60-BIT WORD TO PREBINARY.        COMFWIN    26
                                                                                                                 COMFWIN    27
           313                           WTE      BSS    0                                                       COMFWIN    28
           313  5170000522 +                      SA7    WINB                                                    COMFWIN    29
                          10633                   BX6    X3                                                      COMFWIN    30
                               43700              MX7    0                                                       COMFWIN    31
           314  54771                             =A7    A7+1                                                    COMFWIN    32
                     5160000524 +                 SA6    WINC                                                    COMFWIN    33
           315  0400000366 +                      EQ     WIN100                                                  COMFWIN    34
                                                                                                                 COMFWIN    35
                                                                                                                 COMFWIN    36
           316                           WIN      BSS    0           ENTRY...                                    COMFWIN    37
                                                                                                                 COMFWIN    38
                                        *         DETERMINE IF PSEUDO INSTRUCTION                                COMFWIN    39
                                                                                                                 COMFWIN    40
           316  10633                             BX6    X3                                                      COMFWIN    41
                     5160000524 +                 SA6    WINC        SAVE X3                                     COMFWIN    42
                               43014              MX0    PB.GHIJL                                                COMFWIN    43
           317  5170000522 +                      SA7    WINB        SAVE (X7)                                   COMFWIN    44
                                                                                                                 COMFWIN    45
                                         .SNAP=W  IFEQ   TEST,ON                                                 COMFWIN    46
                                                  SA3    =XCO.SNAP                                               COMFWIN    47
                                                  LX3    1RW                                                     COMFWIN    48
                                                  PL     X3,WIN1                                                 COMFWIN    49
                                                  =X6    B2                                                      COMFWIN    50
                                                  SA6    A7+1        STORE RETURN ADDRESS IN WINB+1              COMFWIN    51
                                         W=WIN    SNAP   WINB,,2,NONE,,1E5                                       COMFWIN    52
                                         WIN1     BSS    0                                                       COMFWIN    53
                                         .SNAP=W  ENDIF                                                          COMFWIN    54
                                                                                                                 COMFWIN    55
                          76600                   =X6    0                                                       COMFWIN    56
           320  5067000001                        SA6    A7+1        INITIALIZE WINB + 1 TO ZERO                 COMFWIN    57
                          11207                   BX2    X0*X7                                                   COMFWIN    58
                               20214              LX2    PB.GHIJL                                                COMFWIN    59
           321  63320                             SB3    X2          (B3) = GHIJ                                 COMFWIN    60
                     21206                        AX2    PB.GHL      (X2) = GH                                   COMFWIN    61
                          0302000402 +            ZR     X2,PSI      IF A PSEUDO, GO PROCESS IT...               COMFWIN    62
                                                                                                                 COMFWIN    63
                                        *         ADVANCE  *ORG* COUNTER IF NECESSARY                            COMFWIN    64
                                                                                                                 COMFWIN    65
           322  5212000000 X                      SA1    X2+=XPIK=PS GET INSTRUCTION SKELETON                    COMFWIN    66
                                                                                                                 COMFWIN    67
                                        *         ENTRY TO ADVANCE ORG/PARCEL AS DETERMINED BY SIZE INDICATOR    COMFWIN    68
                                        *         (X1) AND TO ISSUE INSTRUCTION.                                 COMFWIN    69
                                                                                                                 COMFWIN    70
           323  5120000553 +             WIN10    SA2    ORG                                                     COMFWIN    71
                          5130000552 +            SA3    PARCEL                                                  COMFWIN    72
           324  7263000001                        SX6    X3+1                                                    COMFWIN    73
                          0321000331 +            PL     X1,WIN40    IF SHORT, PARCEL = PARCEL + 1               COMFWIN    74
           325  6273777774                        SB7    X3-3                                                    COMFWIN    75
                          0470000327 +            ZR     B7,WIN20    IF PARCEL = 3                               COMFWIN    76
           326  7263000002                        SX6    X3+2                                                    COMFWIN    77
                          0400000331 +            EQ     WIN40       PARCEL = PARCEL +2                          COMFWIN    78
                                                                                                                 COMFWIN    79
           327  76611                    WIN20    =X6    2                                                       COMFWIN    80
                     54630                        SA6    A3          PARCEL = 2                                  COMFWIN    81
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    30
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          73621                   =X6    X2+1                                                    COMFWIN    82
                               54620              SA6    A2          ORG = ORG + 1                               COMFWIN    83
           330  0400000366 +                      EQ     WIN100                                                  COMFWIN    84
                                                                                                                 COMFWIN    85
           331  6276777773               WIN40    SB7    X6-4                                                    COMFWIN    86
                          0570000333 +            NZ     B7,WIN50    IF PARCEL NE 4                              COMFWIN    87
           332  73621                             =X6    X2+1        ORG = ORG + 1                               COMFWIN    88
                     54620                        SA6    A2                                                      COMFWIN    89
                          76600                   =X6    0           PARCEL = 0                                  COMFWIN    90
                                                                                                                 COMFWIN    91
           333  54630                    WIN50    SA6    A3                                                      COMFWIN    92
                     5120000521 +                 SA2    WINA                                                    COMFWIN    93
           334  0331000366 +                      MI     X1,WIN100   IF LONG                                     COMFWIN    94
                                                                                                                 COMFWIN    95
                                        *         15 BIT INSTRUCTION. FIRST WE MUST CHECK IF IT IS A TRANSMIT    COMFWIN    96
                                        *         TO ITSELF, THEN IF IT IS A *10*,*14* OR *47* INSTRUCTION       COMFWIN    97
                                        *         WE MUST COPY THE *J* PART INTO THE *K* PART, THEN PACK         COMFWIN    98
                                        *         IT. IF PACKING IT COMPLETES THE PACKAGE WE OUTPUT IT TO        COMFWIN    99
                                        *         T.PB AND CLEAR *WINA*.                                         COMFWIN   100
                                                                                                                 COMFWIN   101
                          20157                   LX1    59-P.COPY                                               COMFWIN   102
                               43006              MX0    PB.GHL                                                  COMFWIN   103
                                                  HX7    PB.GH                                                   COMFWIN   104
           335  11607                             BX6    X0*X7       EXTRACT (X6) = (PB.GH)                      COMFWIN   105
                                                  LX7    PB.GHL+PB.GHP                                           COMFWIN   106
                     43071                        MX0    -PB.IL                                                  COMFWIN   107
                          20606                   LX6    PB.GHL                                                  COMFWIN   108
           336  0331000344 +                      MI     X1,WIN65    IF *10*, *14* OR *47* INSTRUCTION           COMFWIN   109
                                                                                                                 COMFWIN   110
                                        *         FOR *15*, *16* AND *17* INSTRUCTIONS, INTERCHANGE (J) WITH (K) COMFWIN   111
                                                                                                                 COMFWIN   112
                          6276777760              SB7    X6-17B                                                  COMFWIN   113
           337  0707000357 +                      GT     B7,WIN70    IF (PB.GH) .GT. 17B                         COMFWIN   114
                          6276777762              SB7    X6-15B                                                  COMFWIN   115
           340  0770000357 +                      LT     B7,WIN70    IF (PB.GH) .LT. 15B                         COMFWIN   116
                          20055                   LX0    PB.KP                                                   COMFWIN   117
                               15170              BX1    -X0*X7      (X1) = ORIGINAL (K) PORTION                 COMFWIN   118
           341  11707                             BX7    X0*X7                                                   COMFWIN   119
                     20003                        LX0    -PB.KP+PB.JP                                            COMFWIN   120
                          20103                   LX1    -PB.KP+PB.JP      (X1) = NEW (J)                        COMFWIN   121
                               15670              BX6    -X0*X7      (X6) = ORIGINAL (J) PORTION                 COMFWIN   122
           342  11707                             BX7    X0*X7                                                   COMFWIN   123
                     20671                        LX6    -PB.JP+PB.KP      (X6) = NEW (K)                        COMFWIN   124
                          12171                   BX1    X7+X1                                                   COMFWIN   125
                               12716              BX7    X1+X6                                                   COMFWIN   126
           343  0400000357 +                      EQ     WIN70                                                   COMFWIN   127
                                                                                                                 COMFWIN   128
           344  6276777767               WIN65    SB7    X6-10B                                                  COMFWIN   129
                          0570000355 +            NZ     B7,WIN60    IF NOT TRANSMIT (10IJX) INSTRUCTION         COMFWIN   130
           345  43171                             MX1    -PB.JL                                                  COMFWIN   131
                     20063                        LX0    PB.IP                                                   COMFWIN   132
                          20160                   LX1    PB.JP                                                   COMFWIN   133
                               15070              BX0    -X0*X7      *I* REGISTER                                COMFWIN   134
           346  15171                             BX1    -X1*X7      *J* REGISTER                                COMFWIN   135
                     20071                        LX0    PB.JP-PB.IP                                             COMFWIN   136
                          37601                   IX6    X0-X1                                                   COMFWIN   137
           347  5130000552 +                      SA3    PARCEL                                                  COMFWIN   138
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    31
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          0316000355 +            NZ     X6,WIN60    IF NOT TRANSMIT TO SELF                     COMFWIN   139
           350  7263777776                        SX6    X3-1                                                    COMFWIN   140
                          5160000552 +            SA6    PARCEL      THIS INST DOESNT COUNT / PARCEL = PARCEL-1  COMFWIN   141
           351  0326000365 +                      PL     X6,WINX     IF CURRENT WORD NOT NOW COMPLETELY EMPTY    COMFWIN   142
                          5130000553 +            SA3    ORG                                                     COMFWIN   143
           352  7160000003                        SX6    3                                                       COMFWIN   144
                          54660                   SA6    A6          PARCEL = 3                                  COMFWIN   145
           353  7263777776                        SX6    X3-1                                                    COMFWIN   146
                          54630                   SA6    A3          ORG = ORG - 1                               COMFWIN   147
           354  0400000365 +                      EQ     WINX                                                    COMFWIN   148
                                                                                                                 COMFWIN   149
                                        *         IT*S A *10*,*14* OR *47* INSTRUCTION, COPY *J* INTO *K* FIELD. COMFWIN   150
                                        *         THIS IS DONE HERE BECAUSE *GEN* IS SIMPLIFIED IF HE            COMFWIN   151
                                        *         DOES NOT HAVE TO COMPLETE THE *K* PORTION OF THESE             COMFWIN   152
                                        *         INSTRUCTIONS.                                                  COMFWIN   153
                                                                                                                 COMFWIN   154
           355  43071                    WIN60    MX0    -PB.JL                                                  COMFWIN   155
                     46000                        NO                                                             COMFWIN   156
                          20060                   LX0    PB.JP                                                   COMFWIN   157
                               46000              NO                                                             COMFWIN   158
           356  15170                             BX1    -X0*X7                                                  COMFWIN   159
                     46000                        NO                                                             COMFWIN   160
                          20171                   LX1    PB.KP-PB.JP                                             COMFWIN   161
                               12771              BX7    X7+X1                                                   COMFWIN   162
                                                                                                                 COMFWIN   163
                                        *         NOW WE MAY PACK IT AND OUTPUT THE PACKAGE TO T.PB IF FULL.     COMFWIN   164
                                                                                                                 COMFWIN   165
           357  6272777776               WIN70    =B7    X2-1                                                    COMFWIN   166
                          0770000364 +            MI     B7,WIN80    IF NO PACKAGE PRESENT                       COMFWIN   167
           360  20755                             LX7    -15         POSITION INSTRUCTION                        COMFWIN   168
                     0470000364 +                 ZR     B7,WIN80    IF ONE PACKAGE PRESENT                      COMFWIN   169
                               20755              LX7    -15         RE-POSITION INSTRUCTION                     COMFWIN   170
           361  7100077777                        SX0    77777B                                                  COMFWIN   171
                          12727                   BX7    X2+X7       INSERT THIRD PACKAGE                        COMFWIN   172
                               43600              MX6    0                                                       COMFWIN   173
           362  12707                             BX7    X0+X7       INSERT LOW ORDER BITS                       COMFWIN   174
                     54620                        SA6    A2          CLEAR WINA                                  COMFWIN   175
                          5170000522 +            SA7    WINB        SAVE INSTRUCTION                            COMFWIN   176
           363  0400000366 +                      EQ     WINW        OUTPUT SAVED INSTRUCTIONS                   COMFWIN   177
                                                                                                                 COMFWIN   178
           364  12727                    WIN80    BX7    X2+X7       ADD NEW PACKAGE                             COMFWIN   179
                     76010                        =X0    1                                                       COMFWIN   180
                          36707                   IX7    X0+X7       INCREMENT PACKAGE COUNT                     COMFWIN   181
                               54720              SA7    A2          STORE IN WINA                               COMFWIN   182
                                                                                                                 COMFWIN   183
           365  5130000524 +             WINX     SA3    WINC        RESTORE (X3)                                COMFWIN   184
                          0222000000              JP     B2          RETURN..                                    COMFWIN   185
                                                                                                                 COMFWIN   186
                                        *         ENTRY HERE FOR LONG INSTRUCTION OR MOST PSEUDOS.               COMFWIN   187
                                        *         OUTPUT ANY PACKED 15-BIT INSRUCTION THAT ARE WAITING.          COMFWIN   188
                                        *         OUTPUT CURRENT INSTRUCTION (FROM WINB). FORCE UPPER            COMFWIN   189
                                        *         IF WINB+1 IS NONZERO. RETURN.                                  COMFWIN   190
                                                                                                                 COMFWIN   191
           366                           WIN100   BSS    0           **** TEMP ****                              COMFWIN   192
           366                           WINW     BSS    0           ...WRITE PB                                 COMFWIN   193
           366  5120000521 +                      SA2    WINA                                                    COMFWIN   194
                          64740                   SB7    A4          SAVE (A4,X4)                                COMFWIN   195
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    32
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                               10644              BX6    X4                                                      COMFWIN   196
           367  5160000525 +                      SA6    WIND                                                    COMFWIN   197
                          0302000373 +            ZR     X2,WINW7    IF NO PACKED SHORT INSTRUCTIONS WAITING     COMFWIN   198
           370  5130000521 +                      SA3    WINA                                                    COMFWIN   199
                          43055                   MX0    -PB.INSTL                                               COMFWIN   200
                               76700              SX7    B0          INDICATE NO ACCUMULATED SHORT INSTRUCTIONS  COMFWIN   201
           371  16630                             BX6    -X0+X3      MERGE FLAG WITH PACKED INSTRUCTIONS         COMFWIN   202
                     54720                        SA7    A2                                                      COMFWIN   203
                          5110000002 X            WRITEO =XF.PB      WRITE ONE WORD TO PREBINARY FILE            COMFWIN   204
           373  5130000522 +             WINW7    SA3    WINB                                                    COMFWIN   205
                          10633                   BX6    X3                                                      COMFWIN   206
           374  5110000002 X                      WRITEO F.PB        WRITE ONE WORD (CURRENT INSTRUCTION)        COMFWIN   207
           375  5110000525 +                      SA1    WIND                                                    COMFWIN   208
                          56470                   SA4    B7          RESTORE (A4, X4)                            COMFWIN   209
                               10411              BX4    X1                                                      COMFWIN   210
           376  5110000523 +             WINW8    SA1    WINB+1                                                  COMFWIN   211
                          0301000365 +            ZR     X1,WINX     IF NO FORCE UPPER AFTER REQUESTED           COMFWIN   212
           377  5130000552 +                      SA3    PARCEL                                                  COMFWIN   213
                          5120000553 +            SA2    ORG                                                     COMFWIN   214
           400  0303000365 +                      ZR     X3,WINX     IF ALREADY UPPER                            COMFWIN   215
                          73621                   SX6    X2+B1                                                   COMFWIN   216
                               43700              MX7    0                                                       COMFWIN   217
           401  54620                             SA6    A2          ADVANCE ORIGIN COUNTER                      COMFWIN   218
                     54730                        SA7    A3          INDICATE EMPTY WORD                         COMFWIN   219
                          0400000365 +            EQ     WINX                                                    COMFWIN   220
  
  
  
  
                                        **        PSI - PROCESS PSEUDO INSTRUCTION.                              COMFWIN   222
                                        *                                                                        COMFWIN   223
                                        *         USED IN CONJUNCTION WITH THE PSEUDO INSTRUCTION JUMP TABLES    COMFWIN   224
                                        *         AT *WINOC* AND *WINI*.  THE DECISION WHETHER TO FORCE UPPER    COMFWIN   225
                                        *         BEFORE OR AFTER THE INSTRUCTION IS MADE AT THIS POINT.         COMFWIN   226
                                        *                                                                        COMFWIN   227
                                        *         ENTRY  (X2) = GH  (ALWAYS 0)                                   COMFWIN   228
                                        *                (X7) = INSTRUCTION                                      COMFWIN   229
                                        *                (WINB) = (X7)                                           COMFWIN   230
                                        *                (B3) = GHIJ                                             COMFWIN   231
                                        *                                                                        COMFWIN   232
                                        *         EXIT   (X1) .LT. 0, THEN LONG INSTRUCTION                      COMFWIN   233
                                        *                     .GE. 0, THEN SHORT INSTRUCTION                     COMFWIN   234
                                        *                (X2) = GH  (SOMETIMES)                                  COMFWIN   235
                                        *                (B3) = GHIJ  (USUALLY, BUT NOT ALWAYS)                  COMFWIN   236
                                        *                (WINB) = INSTRUCTION                                    COMFWIN   237
                                        *                (WINB+1) = MI IF FORCE UPPER AFTER, ELSE 0              COMFWIN   238
                                                                                                                 COMFWIN   239
                                                                                                                 COMFWIN   240
           402                           PSI      BSS                ...ENTRY                                    COMFWIN   241
                                                                                                                 COMFWIN   242
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                COMFWIN   243
                                                  SB7    Z.PSUD      LENGTH OF PSEUDO TABLE                      COMFWIN   244
                                                  GE     B3,B7,"BLOWUP"    IF ILLEGAL PSUEDO                     COMFWIN   245
                                                                                                                 COMFWIN   246
           402  5110000520 +                      SA1    PSTAB       (X1) = FWA OF OC$XXX OR I.XXX JUMP TABLE    COMFWIN   247
                          53313                   SA3    X1+B3                                                   COMFWIN   248
                               63730              SB7    X3          (B7) = ADDRESS OF PSEUDO PROCESSOR          COMFWIN   249
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    33
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           403  0277000000                        JP     B7          EXIT TO PSEUDO PROCESSOR...                 COMFWIN   250
                                                                                                                 COMFWIN   251
                                                                                                                 COMFWIN   252
                                        **        PSEUDO INSTRUCTION PROCESSORS.                                 COMFWIN   253
                                                                                                                 COMFWIN   254
                                                                                                                 COMFWIN   255
           404                           WI=BOS   BSS    0           BOS - BEGINNING OF STATEMENT.               COMFWIN   256
                                         .CG      IFEQ   .CG,.FAST                                               FC50452     6
           404  5120000000 X                      SA2    CO.DBID                                                 FC50452     7
                          5130000000 X            SA3    CO.DBST                                                 FC50545     9
           405  12223                             BX2    X2+X3                                                   FC50545    10
                     0302000366 +                 ZR     X2,WIN100   IF 5700 TABLE NOT REQUIRED                  FC50452     8
           406  0100000526 +                      RJ     BNW         BEGIN NEW WORD                              FC50452     9
                                         .CG      ENDIF                                                          FC50452    10
           407  0400000366 +                      EQ     WIN100                                                  COMFWIN   257
                                                                                                                 COMFWIN   258
                                                                                                                 COMFWIN   259
           410                           WO=IDNT  BSS    0           IDENT - BEGIN OBJECT PROGRAM                COMFWIN   260
           410  76600                             =X6    0                                                       COMFWIN   261
                     5160000553 +                 SA6    =XORG       INIT  ORG  TO  0                            COMFWIN   262
           411  5160000000 X                      SA6    =XCBI       INIT  CBI  TO  0                            COMFWIN   263
                          5160000552 +            SA6    PARCEL                                                  COMFWIN   264
           412  5160000521 +                      SA6    WINA        INIT PACKED 15-BIT INSTRUCTIONS             FC50860     9
                          0400000366 +            EQ     WIN100                                                  COMFWIN   265
                                                                                                                 COMFWIN   266
                                                                                                                 COMFWIN   267
           413                           WI=LD0   BSS    0           LOAD INSTRUCTION FOR LEVEL 0                COMFWIN   268
           413                           WI=ST0   BSS    0           STORE INSTRUCTION FOR LEVEL 0               COMFWIN   269
           413  5130000552 +                      SA3    PARCEL                                                  COMFWIN   270
                          5120000553 +            SA2    ORG                                                     COMFWIN   271
           414  73631                             =X6    X3+1                                                    COMFWIN   272
                     77101                        =X1    -1          INDICATE LONG                               COMFWIN   273
                          0400000331 +            EQ     WIN40       COUNT AS SHORT INSTRUCTION                  COMFWIN   274
                                                                                                                 COMFWIN   275
           415                           WO=ADDR  BSS    0           FILE VECTOR POINTER WORD                    COMFWIN   276
           415                           WI=CPL   BSS    0           CPL LIST ITEM                               COMFWIN   277
           415                           WO=PLIM  BSS    0           PRINT LIMIT WORD                            FC50049     7
           415                           WI=SUBI  BSS    0           SUB INDEX                                   COMFWIN   278
           415                           WI=SB0I  BSS    0           SUB0 INDEX                                  COMFWIN   279
           415                           WI=ZERO  BSS    0           ZERO WORD                                   COMFWIN   280
           415                           WO=FVEC  BSS    0           FILE POINTER WORD                           COMFWIN   281
           415  43100                             MX1    0                                                       COMFWIN   282
                     76210                        SX2    B1          RESERVE SPACE FOR WORD                      COMFWIN   283
                          0100000532 +            RJ     DLT         ADVANCE ORIGIN COUNTER                      COMFWIN   284
           416  0400000366 +                      EQ     WIN100                                                  COMFWIN   285
                                                                                                                 COMFWIN   286
                                                                                                                 COMFWIN   287
           417                           WO=TRAC  BSS    0           TRAC - GENERATE TRACEBACK WORDS.            COMFWIN   288
           417  5130000000 X                      SA3    =XS=TRACE                                               COMFWIN   289
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   290
           420  7120000001                        SX2    1                                                       COMFWIN   291
                          0100000532 +            RJ     DLT         DEFINE LABEL TAG (TRACE.  BSS 1)            COMFWIN   292
           421  5130000000 X                      SA3    =XS=TA0                                                 COMFWIN   293
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   294
           422  7120000001                        SX2    1                                                       COMFWIN   295
                          0100000532 +            RJ     DLT         DEFINE LABEL TAG (TEMPA0.  BSS 1)           COMFWIN   296
           423  0400000366 +                      EQ     WIN100                                                  COMFWIN   297
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    34
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
                                                                                                                 COMFWIN   298
                                                                                                                 COMFWIN   299
           424                           WO=CON   BSS                *READ CON TABLE PSEUDO                      COMFWIN   300
           424  0400000366 +                      EQ     WIN100                                                  COMFWIN   301
                                                                                                                 COMFWIN   302
                                                                                                                 COMFWIN   303
           425                           WI=USE   BSS    0           *USE* PSEUDO INSTRUCTION                    COMFWIN   304
           425                           WO=USE   BSS                                                            COMFWIN   305
           425  0100000602 +                      RJ     PUSE        EXCHANGE PARCEL AND ORG (BLEN) COUNTERS     COMFWIN   306
           426  0400000366 +                      EQ     WIN100                                                  COMFWIN   307
                                                                                                                 COMFWIN   308
                                                                                                                 COMFWIN   309
           427                           WI=OTR   BSS    0           OTR INSTRUCTION (6102B)                     COMFWIN   310
           427  5130000553 +                      SA3    ORG                                                     COMFWIN   311
                          5120000552 +            SA2    PARCEL                                                  COMFWIN   312
           430  76611                             =X6    2                                                       COMFWIN   313
                     54620                        SA6    A2          PARCEL = 2                                  COMFWIN   314
                          73631                   =X6    X3+1                                                    COMFWIN   315
           431  0302000366 +                      ZR     X2,WIN100   IF PARCEL WAS 0                             COMFWIN   316
                          54630                   SA6    A3          ORG = ORG + 1                               COMFWIN   317
           432  0400000366 +                      EQ     WIN100                                                  COMFWIN   318
                                                                                                                 COMFWIN   319
           433                           WI=RJ6   BSS    0           RJT INSTRUCTION (0100B)                     COMFWIN   320
           433  5130000553 +                      SA3    ORG                                                     COMFWIN   321
                          73631                   =X6    X3+1                                                    COMFWIN   322
           434  5160000523 +                      SA6    WINB+1      FORCE UPPER AFTER                           COMFWIN   323
                          5120000522 +            SA2    WINB        RJ6 INSTRUCTION                             FC50264     8
           435  54630                             SA6    A3          ORG = ORG + 1                               COMFWIN   324
                     43052                        MX0    -PB.BIASL                                               FC50264     9
                          20260                   LX2    -PB.BIASP                                               FC50264    10
                               15020              BX0    -X0*X2      EXTRACT LINE/SEQUENCE NUMBER                FC50264    11
           436  7200770001                        SX0    X0-7776B                                                FC50264    12
                          0330000366 +            MI     X0,WIN100   IF LINE/SEQUENCE NUMBER .LT. 4095           FC50264    13
           437  73661                             =X6    X6+1                                                    FC50264    14
                     54660                        SA6    A6          INCREMENT ORG COUNTER                       FC50264    15
                          0400000366 +            EQ     WIN100                                                  COMFWIN   325
                                                                                                                 COMFWIN   326
           440                           WI=UJP   BSS    0           EQ INSTRUCTION (0400B)                      COMFWIN   327
           440                           WI=JPI   BSS    0           JP INSTRUCTION (0200B)                      COMFWIN   328
           440                           WI=RJ3   BSS    0           RJ INSTRUCTION (0100B)                      COMFWIN   329
           440  77601                             =X6    -B1                                                     COMFWIN   330
                     5160000523 +                 SA6    WINB+1      SET FLAG TO FORCE UPPER AFTER               COMFWIN   331
                               10166              =X1    X6          LONG INSTRUCTION                            COMFWIN   332
           441  0400000323 +                      EQ     WIN10                                                   COMFWIN   333
                                                                                                                 COMFWIN   334
           442                           WI=BSS   BSS    0           BSS, BSSZ PSEUDO INSTRUCTION                COMFWIN   335
           442                           WO=BSS   BSS    0                                                       COMFWIN   336
           442                           WO=BSSZ  BSS                                                            COMFWIN   337
           442  10077                             BX0    X7                                                      FC50001     5
                     0100000526 +                 RJ     BNW         BEGIN NEW WORD                              COMFWIN   338
           443  10300                             BX3    X0                                                      FC50001     6
                     43052                        MX0    -PB.TAGL                                                COMFWIN   339
                          20336                   LX3    -PB.TAGP                                                COMFWIN   341
                               15130              BX1    -X0*X3                                                  COMFWIN   342
           444  20322                             LX3    PB.TAGP-PB.BIASP                                        COMFWIN   343
                     43052                        MX0    -PB.BIASL                                               COMFWIN   344
                          15230                   BX2    -X0*X3                                                  COMFWIN   345
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    35
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           445  0100000532 +                      RJ     DLT         DEFINE LABEL AND RESERVE BLOCK STORAGE      COMFWIN   346
           446  0400000366 +                      EQ     WIN100                                                  COMFWIN   347
                                                                                                                 COMFWIN   348
                                                                                                                 COMFWIN   349
           447                           WO=END   BSS    0                                                       COMFWIN   350
           447  76700                             =X7    0           FAKE AN INSTRUCTION TO CALL PUSE            COMFWIN   351
                     0100000602 +                 RJ     PUSE        STORE PARCEL AND ORG COUNT IN T.LBT         COMFWIN   352
           450  0400000366 +                      EQ     WIN100                                                  COMFWIN   353
                                                                                                                 COMFWIN   354
                                                                                                                 COMFWIN   355
                                        *         THE FOLLOWING PSEUDOS NEED NO PASS 2 PROCESSING.               COMFWIN   356
                                                                                                                 COMFWIN   357
                                                                                                                 COMFWIN   358
           451                           WI=LOO   BSS    0           LOO - TURN ON /OFF OBJECT LISTING           COMFWIN   359
           451                           WO=LOO   BSS    0                                                       COMFWIN   360
           451                           WI=EMI   BSS    0           EMI - END MACHINE INSTRUCTIONS.             COMFWIN   361
           451                           WI=BCI   BSS                BCI - BEGIN CCG TYPE INSTRUCTION            COMFWIN   362
           451                           WI=ECI   BSS                ECI - END CCG TYPE INSTRUCTION              COMFWIN   363
           451                           WO=BMI   BSS    0           BMI - BEGIN MACHINE INSTRUCTIONS.           COMFWIN   364
           451                           WO=NLST  BSS                *READ NAMELIST TABLE PSEUDO                 COMFWIN   366
           451                           WO=APL   BSS                APLIST                                      COMFWIN   367
           451                           WO=IOM   BSS                PROCESS I/O APLISTS                         COMFWIN   368
           451                           WO=FMT   BSS                FORMAT                                      COMFWIN   369
           451                           WO=EQUN  BSS                NEGATIVE RELOCATION                         COMFWIN   370
           451                           WO=LCC   BSS                LOADER CONTROL DIRECTIVES                   COMFWIN   371
           451  0400000366 +                      EQ     WIN100                                                  COMFWIN   374
           452                           WI=DATA  BSS    0                                                       FC50001     7
           452  0100000526 +                      RJ     BNW         FORCE UPPER                                 FC50001     8
           453  0400000366 +                      EQ     WIN100                                                  FC50001     9
  
  
  
  
           454                           WO=CMNT  BSS    0                                                       COMFWIN   386
                                        *         MANIPULATION.                                                  COMFWIN   387
                                                                                                                 COMFWIN   388
                                                                                                                 COMFWIN   389
                                                  PURGMAC PSUD,IPSUD                                             COMFWIN   390
                                                                                                                 COMFWIN   391
                                         PSUD     MACRO  PSN                                                     COMFWIN   392
                                                  VFD    42/0,18/WO=PSN                                          COMFWIN   393
                                         PSUD     ENDM                                                           COMFWIN   394
                                                                                                                 COMFWIN   395
                                         IPSUD    MACRO  PSN                                                     COMFWIN   396
                                                  VFD    42/0,18/WI=PSN                                          COMFWIN   397
                                         IPSUD    ENDM                                                           COMFWIN   398
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    36
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSUD                COMFWIN 
  
                                        *         PSEUDO INSTRUCTION DEFINITIONS ARE GIVEN BELOW.                COMSPSU     3
                                                                                                                 COMSPSU     4
      L      0                                    LOC    0                                                       COMSPSU     5
                                 454 +   OCPSUD   EQU    *O                                                      COMSPSU     6
      L      0  00000000000000000415 +            PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD               COMSPSU     7
      L      1  00000000000000000442 +            PSUD   BSS                                                     COMSPSU     8
      L      2  00000000000000000451 +            PSUD   APL         APLIST                                      COMSPSU     9
      L      3  00000000000000000451 +            PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                COMSPSU    10
      L      4  00000000000000000424 +            PSUD   CON         *READ* CONSTANT TABLE PSEUDO                COMSPSU    14
      L      5  00000000000000000447 +            PSUD   END                                                     COMSPSU    17
      L      6  00000000000000000451 +            PSUD   EQUN        NEGATIVE RELOCATION MACRO                   COMSPSU    18
      L      7  00000000000000000451 +            PSUD   FMT         FORMAT/FMT MACRO                            COMSPSU    19
      L     10  00000000000000000415 +            PSUD   FVEC        FILE POINTER WORD                           COMSPSU    20
      L     11  00000000000000000410 +            PSUD   IDNT                                                    COMSPSU    22
      L     12  00000000000000000451 +            PSUD   IOM                                                     COMSPSU    23
      L     13  00000000000000000451 +            PSUD   LCC                                                     COMSPSU    24
      L     14  00000000000000000451 +            PSUD   LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    25
      L     15  00000000000000000451 +            PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                COMSPSU    26
      L     16  00000000000000000415 +            PSUD   PLIM                                                    FC50049     6
      L     17  00000000000000000417 +            PSUD   TRAC        GENERATE (TRACE.) WORD                      COMSPSU    30
      L     20  00000000000000000425 +            PSUD   USE                                                     COMSPSU    31
      L                                                                                                          COMSPSU    32
                                                                                                                 COMSPSU    33
                                 475 +   IPSUD    EQU    *O                                                      COMSPSU    34
      L     21  00000000000000000451 +            IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                  COMSPSU    35
      L     22  00000000000000000404 +            IPSUD  BOS         BEGINNING OF STATEMENT                      COMSPSU    36
      L     23  00000000000000000415 +            IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                  COMSPSU    37
      L     24  00000000000000000442 +            IPSUD  BSS         GENERATE A BSS                              COMSPSU    38
      L     25  00000000000000000452 +            IPSUD  DATA        DATA SUB-TABLE HEADER                       COMSPSU    39
      L     26  00000000000000000451 +            IPSUD  ECI         END CCG TYPE INSTRUCTION                    COMSPSU    40
      L     27  00000000000000000451 +            IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                COMSPSU    41
      L     30  00000000000000000440 +            IPSUD  JPI         GENERATE INDEXED JUMP                       COMSPSU    42
      L     31  00000000000000000413 +            IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                COMSPSU    43
      L     32  00000000000000000413 +            IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0            COMSPSU    44
      L     33  00000000000000000451 +            IPSUD  LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    45
      L     34  00000000000000000427 +            IPSUD  OTR         GENERATE  SB0    B0 + LINENUM               COMSPSU    46
      L     35  00000000000000000440 +            IPSUD  RJ3         GENERATE  RJ                                COMSPSU    47
      L     36  00000000000000000433 +            IPSUD  RJ6         GENERATE  RJT                               COMSPSU    48
      L     37  00000000000000000415 +            IPSUD  SUBI        CREATE A SUB INDEX WORD                     COMSPSU    49
      L     40  00000000000000000415 +            IPSUD  SB0I        CREATE A SUB0 INDEX WORD                    COMSPSU    50
      L     41  00000000000000000440 +            IPSUD  UJP         GENERATE  EQ                                COMSPSU    51
      L     42  00000000000000000425 +            IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK             COMSPSU    52
      L     43  00000000000000000415 +            IPSUD  ZERO        OUTPUT A ZERO WORD                          COMSPSU    53
      L                                                                                                          COMSPSU    54
                                  44     Z.PSUD   =      *L                                                      COMSPSU    55
                                  33              ERRMI  77B-*L      TOO MANY PSEUDOS                            COMSPSU    56
           520                                    LOC    *O                                                      COMSPSU    57
                                                                                                                 COMSPSU    58
                                        * PSU     ENDX                                                           COMSPSU    59
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    37
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    SAVE                COMFWIN 
  
                                        *         WIN SAVE AREA.                                                 COMFWIN   401
                                                                                                                 COMFWIN   402
           520  00000000000000000000     PSTAB    CON    0           FWA OF OC$XXX OR I.XXX TABLE                COMFWIN   403
           521  00000000000000000000     WINA     CON    0           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      COMFWIN   404
           522  00000000000000000000     WINB     CON    0           TEMP STORE OF INSTRUCTION                   COMFWIN   405
                                                                     ** WINB MUST BE AT WINA+1 **                COMFWIN   406
           523  00000000000000000000              CON    0           MINUS IF FORCE UPPER AFTER, ELSE 0          COMFWIN   407
           524  00000000000000000000     WINC     CON    0           SAVE OF X3                                  COMFWIN   408
           525                     1     WIND     BSS    1           SAVE OF (X4)                                COMFWIN   409
  
  
  
  
                                         .CG      IFEQ   .CG,.FAST                                               FC50001    10
                                        **        BNW - BEGIN NEW WORD.                                          COMFWIN   411
                                        *                                                                        COMFWIN   412
                                        *         EXIT   (PARCEL) = 0                                            COMFWIN   413
                                        *                                                                        COMFWIN   414
                                        *         USES   X2,X3,A6  X2,X3,X6.                                     COMFWIN   415
                                                                                                                 COMFWIN   416
                                                                                                                 COMFWIN   417
           526  0400400526 +             BNW      SUBR   0           ENTRY/EXIT...                               COMFWIN   418
           527  5120000552 +                      SA2    PARCEL                                                  COMFWIN   419
                          5130000553 +            SA3    ORG                                                     COMFWIN   420
           530  0302000526 +                      ZR     X2,EXIT.    IF ALREADY AT TOP OF WORD                   COMFWIN   421
                          43600                   MX6    0                                                       COMFWIN   422
                               54620              SA6    A2          (PARCEL) = 0                                COMFWIN   423
           531  73631                             SX6    X3+B1                                                   COMFWIN   424
                     54630                        SA6    A3          ADVANCE ORIGIN COUNTER                      COMFWIN   425
                          0400000526 +            EQ     EXIT.                                                   COMFWIN   426
                                                                                                                 FC50001    11
                                         .CG      ELSE                                                           FC50001    12
                                                                                                                 FC50001    13
                                                  EXT    FSU#        IN CGTM                                     FC50001    14
                                         BNW      EQU    FSU#                                                    FC50001    15
                                         .CG      ENDIF                                                          FC50001    16
  
  
  
  
                                        **        DLT - DEFINE LABEL TAG.                                        COMFWIN   428
                                        *                                                                        COMFWIN   429
                                        *         ENTRY  (X1) = TAG TO DEFINE.                                   COMFWIN   430
                                        *                (X2) = NUMBER OF WORDS TO RESERVE.                      COMFWIN   431
                                        *                (ORG, CBI) = SET AS DESIRED FOR DEFINITION.             COMFWIN   432
                                        *                (PARCEL)  ALREADY FORCED UPPER.                         COMFWIN   433
                                        *                                                                        COMFWIN   434
                                        *         EXIT   (ORG) ADVANCED.                                         COMFWIN   435
                                        *                                                                        COMFWIN   436
                                        *         CALLS  DPT                                                     COMFWIN   437
                                        *                                                                        COMFWIN   438
                                        *         CANNOT DESTROY  A0,4,5  X4,5  B2,4,5,6                         COMFWIN   439
                                                                                                                 COMFWIN   440
                                                                                                                 COMFWIN   441
           532  0400400532 +             DLT      SUBR   0           ENTRY/EXIT...                               COMFWIN   442
           533  5130000553 +                      SA3    ORG                                                     COMFWIN   443
                          36632                   IX6    X3+X2       ADVANCE ORIGIN COUNTER                      COMFWIN   444
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    38
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    DLT                 COMFWIN 
  
                               54630              SA6    A3                                                      COMFWIN   445
           534  0301000532 +                      ZR     X1,EXIT.    IF NO TAG                                   COMFWIN   446
                          43056                   MX0    -PB.ORDL                                                COMFWIN   447
                                                  LX1    PB.TAGP-PB.ORDP                                         COMFWIN   448
                               15610              BX6    -X0*X1      ORD[TAG]                                    COMFWIN   449
           535  21117                             AX1    -PB.ORDP+PB.PFXP  ISOLATE (X1) = PFX[TAG]               COMFWIN   450
                                  17              ERRMI  PB.PFXP-PB.ORDP   CODE ASSUMES [PFX] TO LEFT OF [ORD]   COMFWIN   451
                     5120000000 X                 SA2    CBI                                                     COMFWIN   452
                               63760              SB7    X6          (B7) = ORDINAL OF TAG                       COMFWIN   453
           536  20260                             LX2    WC.RBP                                                  COMFWIN   454
                     76610                        =X6    ML.PROG                                                 COMFWIN   455
                                                  LX3    WC.RAP                                                  COMFWIN   456
                          63310                   SB3    X1          (B3) = TAG PREFIX                           COMFWIN   457
                               20672              LX6    WC.RLP                                                  COMFWIN   458
           537  12223                             BX2    X2+X3                                                   COMFWIN   459
                     12626                        BX6    X2+X6       FORM ADDRESS DEFINITION WORD                COMFWIN   460
                          0233000540 +            JP     B3+DLTA     PROCESS ACCORDING TO TAG PREFIX             COMFWIN   461
                                                                                                                 COMFWIN   462
           540                           DLTA     BSS    0           TAG TYPE JUMP VECTOR                        COMFWIN   463
      L      0                                    LOC    0                                                       COMFWIN   464
      L      0  5110000000 X             K=SYM    SA1    =XT.SYM                                                 COMFWIN   465
                          0400000545 +            EQ     DLT2                                                    COMFWIN   466
      L      1  0400000550 +             K=GL     EQ     DLT4                                                    COMFWIN   467
      L      2  0400400542 +             K=AP     EQ     "BLOWUP"                                                COMFWIN   468
      L      3  0400400543 +             K=IO     EQ     "BLOWUP"                                                COMFWIN   469
      L      4  0400400544 +             K=LC     EQ     "BLOWUP"                                                COMFWIN   470
      L      5                           K=END    BSS    0           VERIFY VECTOR SYNCHRONIZATION               COMFWIN   471
           545                                    LOC    *O                                                      COMFWIN   472
                                                                                                                 COMFWIN   473
                                                                                                                 COMFWIN   474
           545                           DLT2     BSS                ... TAG IS IN SYMBOL TABLE                  COMFWIN   475
           545  76277                             SX2    B7+B7                                                   COMFWIN   476
                     73027                        SX0    X2+B7       (X0) = INDEX = L.SYM * SYMORD               COMFWIN   477
                                   0              ERRNZ  3-Z=SYM                                                 COMFWIN   478
                          6231000002              =B3    X1+WC.W                                                 COMFWIN   479
           546  53203                             SA2    X0+B3       FETCH SYMTAB ADDRESS WORD                   COMFWIN   480
                                                                                                                 COMFWIN   481
                                         .TEST    IFEQ   TEST,ON                                                 COMFWIN   482
                                                  CLAS=  X3,WC,(RL,RB,RA)                                        COMFWIN   483
                                                  BX1    X3*X2                                                   COMFWIN   484
                                                  NZ     X1,"BLOWUP" IF PREVIOUSLY ASSIGNED ADDRESS              COMFWIN   485
                                         .TEST    ENDIF                                                          COMFWIN   486
                                                                                                                 COMFWIN   487
                     12626                        BX6    X2+X6       SET ADDRESS FIELDS                          COMFWIN   488
                          54620                   SA6    A2                                                      COMFWIN   489
           547  0400000532 +                      EQ     EXIT.                                                   COMFWIN   490
                                                                                                                 COMFWIN   491
                                                                                                                 COMFWIN   492
           550                           DLT4     BSS                ... TAG IS GENERATED LABEL                  COMFWIN   493
           550  66370                             SB3    B7                                                      COMFWIN   494
                     0100000253 +                 CALL   DPT         DEFINE PROGRAM TAG                          COMFWIN   495
           551  0400000532 +                      EQ     EXIT.                                                   COMFWIN   496
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    39
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    COMFWIN             COMFWIN 
  
                                         QUAL$    IF     -DEF,QUAL$,1                                            COMFWIN   498
                                                  QUAL   *                                                       COMFWIN   499
                                 316 +   WIN      EQU    /COMFWIN/WIN                                            COMFWIN   500
                                 313 +   WTE      EQU    /COMFWIN/WTE                                            COMFWIN   501
                                 520 +   PSTAB    EQU    /COMFWIN/PSTAB                                          COMFWIN   502
                                 475 +   WINI     EQU    /COMFWIN/IPSUD                                          COMFWIN   503
                                 454 +   WINOC    EQU    /COMFWIN/OCPSUD                                         COMFWIN   504
                                         QUAL$    ENDIF                                                          COMFWIN   505
                                         COMFWIN  ENDX                                                           COMFWIN   506
                                                  ENTRY  WIN                                                     QCGC      863
                                                  ENTRY  WTE                                                     QCGC      864
                                                                                                                 QCGC      865
           552                     1     PARCEL   BSSZ   1                                                       QCGC      866
           553                     1     ORG      BSSZ   1                                                       QCGC      867
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    40
        COMFITS - ISSUE TEMP STORAGE.                                 ITS 
  
           554                           ITS      CTEXT  COMFITS - ISSUE TEMP STORAGE.                           COMFITS     2
                                                                                                                 COMFITS     3
                                                                                                                 COMFITS     4
                                                  IF     -DEF,QUAL$,1                                            COMFITS     5
                                                  QUAL   COMFITS                                                 COMFITS     6
                                 D_D              BASE   *                                                       COMFITS     7
  
  
  
  
                                        **        ITS - ISSUE TEMP STORAGE.                                      COMFITS     9
                                                                                                                 COMFITS    10
                                                                                                                 COMFITS    11
           554  0400400554 +             ITS      SUBR   0           ENTRY/EXIT...                               COMFITS    12
           555  7110000000 X                      ISUSE$ TEM         USE TEM.                                    COMFITS    13
                                                                                                                 COMFITS    14
           560  6150000573 +                      SB5    ITSA                                                    COMFITS    15
           561  56150                    ITS2     SA1    B5                                                      COMFITS    16
                     0301000566 +                 ZR     X1,ITS4     IF NO MORE TEMPS TO ISSUE                   COMFITS    17
                               53210              SA2    X1                                                      COMFITS    18
           562  66551                             SB5    B5+B1                                                   COMFITS    19
                     21122                        AX1    18                                                      COMFITS    20
                          53310                   SA3    X1          FETCH SYMORD OF TEMP NAME                   COMFITS    21
           563  7160000001                        SX6    OC$BSS                                                  COMFITS    22
                                                  =X3    X3+K.SYM*K=PFX                                          COMFITS    23
                          20336                   LX3    PB.ORDP                                                 COMFITS    24
                               20214              LX2    PB.BIASP                                                COMFITS    25
           564  20660                             LX6    PB.GHIJP                                                COMFITS    26
                     12132                        BX1    X3+X2                                                   COMFITS    27
                          36761                   IX7    X6+X1                                                   COMFITS    28
           565  6120000561 +                      WCODE  X7,ITS2     ISSUE  * TAG  BSS  (N.TAG) *                COMFITS    29
                                                                                                                 COMFITS    30
           566  7110000000 X             ITS4     ISUSE$ BUF         USE BUF.                                    COMFITS    31
           571  7170000006                        SX7    OC$EQUN                                                 COMFITS    32
                          20760                   LX7    PB.GHIJP                                                COMFITS    33
           572  6120000554 +                      WCODE  X7,EXIT.                                                COMFITS    34
                                                                                                                 COMFITS    35
                                                                                                                 COMFITS    36
           573                           ITSA     BSS    0           TABLE OF TEMPS TO ISSUE                     COMFITS    37
           573  00000000000000 X                  VFD    24/0,18/=XS=ST,18/=XN.STMAX                             COMFITS    38
                              000000 X
           574  00000000000000 X                  VFD    24/0,18/=XS=CT,18/=XN.CTMAX                             COMFITS    39
                              000000 X
           575  00000000000000 X                  VFD    24/0,18/=XS=IT,18/=XN$IT                                COMFITS    40
                              000006 +
           576  00000000000000 X                  VFD    24/0,18/=XS=OT,18/=XN$OT                                COMFITS    41
                              000007 +
           577  00000000000000 X                  VFD    24/0,18/=XS=VD,18/=XN.VD                                COMFITS    42
                              000000 X
           600  00000000000000 X                  VFD    24/0,18/=XS=LC,18/=XN$LC                                COMFITS    43
                              000000 X
           601  00000000000000000000              CON    0                                                       COMFITS    44
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    41
        COMFITS - ISSUE TEMP STORAGE.                                 COMFITS             COMFITS 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFITS    46
                                                  QUAL   *                                                       COMFITS    47
                                 554 +   ITS      EQU    /COMFITS/ITS                                            COMFITS    48
                                         QUAL$    ENDIF                                                          COMFITS    49
                                                                                                                 COMFITS    50
                                                                                                                 COMFITS    51
                                         COMFITS  ENDX                                                           COMFITS    52
                                                  ENTRY  ITS                                                     QCGC      869
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    42
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION
  
           602                                    CTEXT   COMFUSE - PROCESS USE PSEUDO INSTRUCTION               COMFUSE     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFUSE     4
                                                  QUAL   COMFUSE                                                 COMFUSE     5
                                 D_D              BASE   D                                                       COMFUSE     6
  
  
  
  
                                        **        PUSE - PROCESS USE PSEUDO.                                     COMFUSE     8
                                        *                                                                        COMFUSE     9
                                        *         SWITCH *ORG* AND *PARCEL* COUNTERS, SAVING THE OLD             COMFUSE    10
                                        *         AND GETTING THE NEW.                                           COMFUSE    11
                                        *         ENTRY  (X7) = INSTRUCTION (USE PSEUDO)                         COMFUSE    12
                                        *                                                                        COMFUSE    13
                                        *         CAN NOT DESTROY - A0,4,5  X4,5  B2,3,4,5,6                     COMFUSE    14
                                                                                                                 COMFUSE    15
                                                                                                                 COMFUSE    16
           602  0400400602 +             PUSE     SUBR   0           ENTRY/EXIT                                  COMFUSE    17
                                                                                                                 COMFUSE    18
                                        *         SAVE THE OLD.                                                  COMFUSE    19
                                                                                                                 COMFUSE    20
           603  5120000000 X                      SA2    =XCBI       CURRENT BLOCK INDEX                         COMFUSE    21
                          43666                   MX6    -LB.PARCL                                               COMFUSE    22
                               43052              MX0    -LB.ORGL                                                COMFUSE    23
           604  20666                             LX6    LB.PARCP                                                COMFUSE    24
                     63720                        SB7    X2                                                      COMFUSE    25
                          5130000553 +            SA3    =XORG                                                   COMFUSE    26
           605  5117000000 X                      SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                  COMFUSE    27
                                                  LX0    LB.ORGP                                                 COMFUSE    28
                          11006                   BX0    X0*X6       MASK FOR LB.PARC + LB.ORG                   COMFUSE    29
                                                  LX3    LB.ORGP     POSITION OLD ORG COUNTER                    COMFUSE    30
           606  5120000552 +                      SA2    =XPARCEL                                                COMFUSE    31
                          11101                   BX1    X0*X1       SAVE ALL BUT LB.ORG AND LB.PARC             COMFUSE    32
                               20266              LX2    LB.PARCP                                                COMFUSE    33
           607  12323                             BX3    X2+X3       OLD PARCEL  +  ORG                          COMFUSE    34
                     12631                        BX6    X3+X1                                                   COMFUSE    35
                          54610                   SA6    A1                                                      COMFUSE    36
                                                                                                                 COMFUSE    37
                                        *         GET THE NEW.                                                   COMFUSE    38
                                                                                                                 COMFUSE    39
                               20736              HX7    PB.BIAS                                                 COMFUSE    40
           610  21752                             AX7    -PB.BIASL   ISOLATE INDEX                               COMFUSE    41
                     63770                        SB7    X7                                                      COMFUSE    42
                          5117000000 X            SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                  COMFUSE    43
           611  15610                             BX6    -X0*X1      ISOLATE NEW PARCEL AND ORG                  COMFUSE    44
                     20152                        HX1    LB.ORG                                                  COMFUSE    45
                          5170000000 X            SA7    =XCBI       SAVE NEW INDEX                              COMFUSE    46
           612  21152                             AX1    -LB.ORGL                                                COMFUSE    47
                     10711                        BX7    X1                                                      COMFUSE    48
                                                  HX6    LB.PARC                                                 COMFUSE    49
                          21666                   AX6    -LB.PARCL   NEW PARCEL COUNT                            COMFUSE    50
           613  5170000553 +                      SA7    =XORG                                                   COMFUSE    51
                          5160000552 +            SA6    =XPARCEL                                                COMFUSE    52
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    43
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION                                          COMFUSE 
  
           614  0400000602 +                      EQ     EXIT.                                                   COMFUSE    53
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFUSE    55
                                                  QUAL   *                                                       COMFUSE    56
                                 602 +   PUSE     EQU    /COMFUSE/PUSE                                           COMFUSE    57
                                         QUAL$    ENDIF                                                          COMFUSE    58
                                         COMFUSE  ENDX                                                           COMFUSE    59
                                                                                                                 QCGC      871
  
  
  
  
                                                  LIST   D                                                       QCGC      873
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        SBM=
           615                          TIUA
  
                                        CONTENT OF LITERALS BLOCK.
  
           616  77777777776017000000    ;;;;;#O 
           617  77776000001777200000    ;;#  O;P
           620  77777777777777037000    ;;;;;;;C' 
  
           621                                    END                                                            QCGC      874
  
                             75200B CM  STORAGE USED             5694 STATEMENTS     1788 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            4.514 SECONDS        1073 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/12 X   16/03     16/07     20/29     25/27     26/40     26/41     26/42
        ALC             0   EXTERNAL*       2/12 X   15/43     26/18
        ALC.CAI         0   EXTERNAL*       2/12 X   14/38
        ALC.REG         0   EXTERNAL*       2/12 X   14/40 S   14/45 S
        ALC.00          0   EXTERNAL*       2/12 X   14/43
        APLFLG          0   EXTERNAL*       2/27 X   14/18 S
        AT.CHARP       71                   6/20 D
        AT.FILLL       21                   6/26 D
        AT.FILLP        1                   6/26 D
        AT.IOCP        72                   6/19 D
        AT.IOM          1                   6/27 D
        AT.IOP          0                   6/27 D
        AT.LENP        73                   6/18 D
        AT.LEV0P       67                   6/22 D
        AT.MODEL        5                   6/24 D
        AT.MODEP       61                   6/24 D
        AT.NULP        70                   6/21 D
        AT.SPRP        66                   6/23 D
        BINIO           0   EXTERNAL*       2/36 X
        BN=BUF          0   EXTERNAL*       2/36 X   40/33
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        BN=TEM          0   EXTERNAL*       2/36 X   40/15
        B1=1            0 
        CAI            24   PROGRAM*       14/16 L   14/16 E
        CBI             0   EXTERNAL*       2/36 X   33/21 S   38/08     42/26     42/51 S
        CDS             0   EXTERNAL*       2/46 X   14/42
        CHARMAP         0   EXTERNAL*       2/18 X   17/48
        CH.OPCL        22   FTX            17/53
        CII             6   PROGRAM*       13/05 L   13/05 E
        CO.CS           0   EXTERNAL*       2/24 X   26/49
        CO.DBID         0   EXTERNAL*       2/24 X   33/09
        CO.DBST         0   EXTERNAL*       2/24 X   33/10
        CO.DOOT         0   EXTERNAL*       2/24 X   26/50
        CO.SNAP         0   EXTERNAL*       2/24 X
        CP#RM           0   FTX            28/29 F
        DMT=            0   EXTERNAL*       2/21 X
        DOW            75   PROGRAM*       15/55     16/24 L
        DOW2          101   PROGRAM*       16/43 L   16/54
        DPT           253   PROGRAM*       26/10 L   26/10 E   38/51
        DPTA          261   PROGRAM*       26/13 S   26/19     26/24 L
        DRITE          10   PROGRAM*       13/09 L   13/09 E   26/36 S
        DUC           105   PROGRAM*       16/05     17/20 L
        DUC1          113   PROGRAM*       17/28     17/45 L
        DUC2          120   PROGRAM*       18/01 L
        DUC3          124   PROGRAM*       18/08 L
        DUC.          117   PROGRAM*       17/56 L   17/56 E   19/23
        DUC.BTH       132   PROGRAM*       18/19 L   18/19 E
        DUC.NX        111   PROGRAM*       17/37 L   18/03     18/10     18/17     18/26
        DUC.1ST       122   PROGRAM*       18/05 L   18/05 E
        DUC.2ND       126   PROGRAM*       18/12 L   18/12 E
        EIS             0   EXTERNAL*       2/30 X   14/41
        ENT.EGL         0   EXTERNAL*       2/30 X   26/43 S
        ENT.VD          0   EXTERNAL*       2/30 X   15/38
        F.LBT           0   EXTERNAL*       2/36 X   42/32     42/48
        F.PB            0   EXTERNAL*       2/24 X   32/09     32/12
        F.SCT           0   EXTERNAL*       2/42 X   19/02
        ITS           554   PROGRAM*       41/03 D   41/08 E
        I.LOO          33   FTX            26/55
        KUT           137   PROGRAM*       18/06     18/13     18/20     18/45 L
        K2.AP       40000                   8/33 D
        K2.GL       20000                   8/32 D
        K2.IO       60000                   8/34 D
        K=AP            2   FTX             8/33
        K=GL            1   FTX             8/32     22/41
        K=IO            3   FTX             8/34
        K=PFX      100000   FTX            33/50     33/54     40/25
        K.SYM           0   FTX            33/50     33/54     40/25
        LB.ORGL        22   FTX            42/28     42/50     42/52
        LB.ORGP         0   FTX            42/50
        LB.PARCL        6   FTX            42/27     42/55
        LB.PARCP       66   FTX            42/29     42/38
        L.APLF          0   EXTERNAL*       2/27 X   14/18     14/18
        L.RGFILE       30                  11/54 L   14/17
        MAX.USEC      777                  10/11 D
        ML.PROG         1   FTX            38/11
        MOD             0   EXTERNAL*       2/36 X   27/08
        MO.BLKL         1   FTX            27/09
        MO.BLKP        10   FTX            27/09
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        MVE=            0   EXTERNAL*       2/49 X   15/47     15/52
        M.CPLX          5   FTX            24/53
        M.DBL           4   FTX            22/32     24/52     24/53
        NOLDS          13   PROGRAM*       13/11 L   13/11 E
        N$IT            6   PROGRAM*       13/06 L   13/06 E   40/44
        N$LC            0   EXTERNAL*       2/36 X   40/50
        N$OT            7   PROGRAM*       13/07 L   13/07 E   40/46
        N.CTMAX         0   EXTERNAL*       2/36 X   40/42
        N.GL            0   EXTERNAL*       2/36 X   26/11
        N.ST            0   EXTERNAL*       2/37 X   14/56
        N.STMAX         0   EXTERNAL*       2/37 X   14/55     40/40
        N.TABLE         0   EXTERNAL*       2/37 X   16/25     17/21
        N.VD            0   EXTERNAL*       2/37 X   40/48
        OCIOL           0   EXTERNAL*       2/30 X   26/56 S
        OC$BSS          1   FTX            40/24
        OC$EQUN         6   FTX            40/34
        OC$USE         20   FTX            40/15     40/33
        OP.BSSIM   200000                   7/08 D
        OP.BSSIP       20                   7/08 D   21/25
        OP.CHINL        6                   6/50 D   16/32     16/34     17/45     21/25
        OP.CHINP       26                   6/50 D   16/51     17/46     17/51     19/20     21/25
        OP.LINEL       22                   6/46 D    6/47     16/35     16/39
        OP.LINEP       34                   6/46 D    6/47     16/35     16/38
        OP.LTOTL       11                   7/16 D    7/19
        OP.LTOTP       11                   7/16 D   21/40
        OP.MODEL        4                   6/51 D    6/53      6/54     16/35     16/41     21/25
        OP.MODEP       22                   6/51 D    6/52     16/35     16/40     21/25
        OP.QATRL        4                   6/55 D    7/06     16/29     16/31
        OP.QATRP       16                   6/55 D    7/06     16/48
        OP.SKELL       16                   6/45 D   16/35     19/01     21/25     23/34
                                           15/34     16/37     19/12     21/44
        OP.SKELP       56                   6/45 D   16/35     16/36     19/19     21/25
        OP.TOTL        22                   7/01 D    7/15
        OP.TOTP         0                   7/01 D    7/15
        OP.USEL        11                   7/18 D    7/19      7/49     24/50
        OP.USEP         0                   7/18 D
        OP.UTOTL       11                   7/17 D    7/18
        OP.UTOTP        0                   7/17 D    7/18
        OP.1DUCM   100000                   7/09 D
        OP.1DUCP       17                   7/09 D
        OP.1ORDL       16                   6/56 D    6/57     18/46     21/26     21/27     24/40
        OP.1ORDP        0                   6/56 D   21/28     24/51     25/25
        OP.2DUCM    40000                   7/10 D
        OP.2DUCP       16                   7/10 D
        OP.2MODL        3                   6/52 D    6/53     24/34
        OP.2MODP       22                   6/52 D   24/48     24/51
        OP.2ORDL       16                   6/49 D    6/57     21/27
        OP.2ORDP       34                   6/49 D   21/33
        ORG           553   PROGRAM*       29/47     32/19     33/30     34/24     37/56     42/31
                                           31/05     33/20 S   34/14     37/24     39/14 L   42/56 S
        OR.OPR          0   FTX            21/46 S
        OR.1OP          1   FTX            18/01     18/08     18/15     18/24     23/26
        OR.2OP          2   FTX            17/50     18/01     18/08     18/15     18/24
        O.NONE         54   FTX            19/18
        PARCEL        552   PROGRAM*       29/48     31/03 S   33/22 S   34/15     39/13 L   42/57 S
                                           30/57     32/18     33/29     37/23     42/36
        PB.BIASL       22   FTX            34/29     34/56     42/45     42/46
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        PB.BIASP       14   FTX            34/30     34/55     40/15     40/27     40/33     42/45
        PB.GHIJL       14   FTX            29/19     29/35
        PB.GHIJP       60   FTX            40/15     40/28     40/33     40/35
        PB.GHL          6   FTX            10/21     29/37     30/22     30/27
        PB.IL           3   FTX            30/26
        PB.INSTL       17   FTX            32/05
        PB.IP          63   FTX            30/51     30/55
        PB.JL           3   FTX            30/50     31/17
        PB.JP          60   FTX            30/39     30/40     30/43     30/52     30/55     31/19     31/23
        PB.KP          55   FTX            30/36     30/39     30/40     30/43     31/23
        PB.ORDL        16   FTX            38/03
        PB.ORDP        36   FTX            38/06     38/07     40/26
        PB.PFXP        55   FTX            38/06     38/07
        PB.TAGL        22   FTX            34/52
        PB.TAGP        36   FTX            34/53     34/55
        PIG            47   PROGRAM*       14/19     15/28 L   15/28 E
        PIG5           66   PROGRAM*       15/36     15/39     15/54 L
        PIK=PS          0   EXTERNAL*       2/37 X   29/42
        POS           150   PROGRAM*       19/55 L   19/55 E   24/01
        POS1          161   PROGRAM*       20/16     20/26 L
        POS2          163   PROGRAM*       20/20     20/38 L
        POS.INC       166   PROGRAM*       19/56 S   20/15     20/48 L
        PSTAB         520   PROGRAM*       26/38 S   39/05 D
        PUSE          602   PROGRAM*       34/09     35/07     43/08 D
        P2=PFX         15                   8/30 D
        P2.ADDRM     4000                   8/23 D
        P2.ADDRP       13                   8/23 D   22/24
        P2.ARRM     20000                   8/21 D
        P2.ARRP        15                   8/21 D   22/24
        P2.BIASL       30                   7/37 D    7/38     19/57     22/24     22/46
        P2.BIASP       24                   7/37 D    7/38     19/57     22/24     22/49     25/11     25/14
        P2.CATM      1000                   8/26 D
        P2.CATP        11                   8/26 D   22/24
        P2.CLASL        5                   7/48 D    8/20     19/57
        P2.CLASP       11                   7/48 D    8/20     19/57
        P2.CNCTM     1000                   8/25 D
        P2.CNCTP       11                   8/25 D    8/26
        P2.FPP         22                   7/55 D   22/24
        P2.IL.L        21                   7/40 D    7/41      7/42      7/46
        P2.IL.P         0                   7/40 D    7/41      7/42      7/43      7/46
        P2.INTRM     2000                   8/24 D
        P2.INTRP       12                   8/24 D   22/24     22/43     23/46
        P2.LCMP        23                   7/54 D   22/24
        P2.LONGM   400000                   7/56 D
        P2.LONGP       21                   7/56 D   22/35
        P2.LSTM    100000                   8/04 D
        P2.LSTP        17                   8/04 D
        P2.ORBIL       50                   7/38 D
        P2.ORBIP       24                   7/38 D
        P2.ORDL        15                   7/36 D
        P2.ORDP        54                   7/36 D    8/29
        P2.PFXL         3                   7/35 D
        P2.PFXP        71                   7/35 D    8/29     22/40
        P2.RG.L        21                   7/42 D   10/04
        P2.RG.P         0                   7/42 D   10/09
        P2.RSTSL        3                   7/47 D    8/02
        P2.RSTSP       16                   7/47 D    8/02
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        P2.SHRTM    10000                   8/22 D
        P2.SHRTP       14                   8/22 D   22/24
        P2.ST.L        21                   7/41 D    9/18
        P2.ST.P         0                   7/41 D    9/23
        P2.TAGL        20                   7/34 D    8/09      8/12     20/39     22/45
                                            7/38      8/10     19/57     22/24     22/46
        P2.TAGLL       20                   8/12 D
        P2.TAGLP        6                   8/12 D
        P2.TAGML       20                   8/10 D
        P2.TAGMP       34                   8/10 D
        P2.TAGP        54                   7/34 D   19/57     20/43     22/24     22/49     25/41
        P2.TAGUL       20                   8/09 D
        P2.TAGUP       54                   8/09 D
        P2.TYPM    200000                   8/03 D
        P2.TYPP        20                   8/03 D
        P2.USEL        11                   7/49 D   10/07
        P2.USEP         0                   7/49 D    7/50     10/08
        P2.USTM     40000                   8/05 D
        P2.USTP        16                   8/05 D
        P2.2ATRL        3                   7/39 D    7/53     19/57
        P2.2ATRP       21                   7/39 D    7/53     19/57
        QCP           262   PROGRAM*       26/34 L   26/34 E
  U     QUAL$                              28/06 F   39/01 F   40/04 F   41/01 F   42/06 F   43/06 F
        RED           167   PROGRAM*       21/24 L   21/24 E
        REGFILE         0   RGFILE         11/21 L   12/03 E   14/17 S
        REG=G           0   PROGRAM*       12/17 L   12/17 E   12/19     12/20
        REG=GL          0   PROGRAM*       12/19 D   12/19 E
        REG=GP          0   PROGRAM*       12/20 D   12/20 E
        REG=T           0   EXTERNAL*       2/15 X   14/33 S
        REG.A          10                  11/34 L
        REG.B           0                  11/24 L
        REG.X          20                  11/44 L
        RGC            14   PROGRAM*       13/13 L   13/13 E
        RGX            15   PROGRAM*       13/16 L   13/16 E
        RG.TYPM    200000                  10/05 D
        RG.TYPP        20                  10/05 D
        RG.USEL        11                  10/07 D   10/10     20/03     21/35
        RG.USEP         0                  10/07 D   10/08     20/03     21/38
        RLOCK         400                  10/12 D
        RREG           16   PROGRAM*       13/18 L   13/18 E
        RS.INSL         6                  10/21 D
        RS.INSP        66                  10/21 D
        RS.MSKL        22                  10/22 D
        RS.MSKP        44                  10/22 D
        RS.NUML        22                  10/23 D
        RS.NUMP        22                  10/23 D
        RS.TYPL        22                  10/24 D
        RS.TYPP         0                  10/24 D   10/25
        R.A0           10                  11/35 L
        R.A1           11                  11/36 L
        R.A2           12                  11/37 L
        R.A3           13                  11/38 L
        R.A4           14                  11/39 L
        R.A5           15                  11/40 L
        R.A6           16                  11/41 L
        R.A7           17                  11/42 L
        R.B0            0                  11/25 L
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        R.B1            1                  11/26 L
        R.B2            2                  11/27 L
        R.B3            3                  11/28 L
        R.B4            4                  11/29 L
        R.B5            5                  11/30 L
        R.B6            6                  11/31 L
        R.B7            7                  11/32 L
        R.X0           20                  11/45 L
        R.X1           21                  11/46 L
        R.X2           22                  11/47 L
        R.X3           23                  11/48 L
        R.X4           24                  11/49 L
        R.X5           25                  11/50 L
        R.X6           26                  11/51 L
        R.X7           27                  11/52 L
        SBM=            0   EXTERNAL*      14/18
        SCS             0   EXTERNAL*       2/18 X   20/14
        SCSA            0   EXTERNAL*       2/18 X   20/02 S   20/26
        SKU.GOP         6                  12/17
        SKU.TMP        24                  14/33
        SMB           300   PROGRAM*       27/07 L   27/07 E
        SMB10         306   PROGRAM*       27/19 L   27/24     27/26     27/29     27/31
        SNP=            0   EXTERNAL*       2/33 X
        SN.PAR          0   EXTERNAL*       2/21 X
        ST.CACM    100000                   9/40 D
        ST.CACP        17                   9/40 D
        ST.CSTL         3                   9/34 D    9/38
        ST.CSTP        16                   9/34 D    9/38
        ST.CTMM    200000                   9/39 D
        ST.CTMP        20                   9/39 D
        ST.LREGL        6                   9/21 D
        ST.LREGP        6                   9/21 D
        ST.LSTM    100000                   9/27 D
        ST.LSTP        17                   9/27 D
        ST.ORD1L       14                   9/35 D
        ST.ORD1P        2                   9/35 D
        ST.STATL        3                   9/19 D    9/25
        ST.STATP       16                   9/19 D    9/25
        ST.UKLM     40000                   9/41 D
        ST.UKLP        16                   9/41 D
        ST.UREGL        6                   9/22 D
        ST.UREGP        0                   9/22 D
        ST.USTM     40000                   9/28 D
        ST.USTP        16                   9/28 D
        S=CT            0   EXTERNAL*       2/37 X   40/42
        S=IT            0   EXTERNAL*       2/37 X   40/44
        S=LC            0   EXTERNAL*       2/37 X   40/50
        S=OT            0   EXTERNAL*       2/37 X   40/46
        S=ST            0   EXTERNAL*       2/38 X   40/40
        S=TA0           0   EXTERNAL*       2/38 X   33/53
        S=TRACE         0   EXTERNAL*       2/38 X   33/49
        S=VD            0   EXTERNAL*       2/38 X   40/48
        TEST            0   FTX            14/24 F   20/08 F   26/16 F   29/22 F   32/51 F   38/38 F
        TH.LINEL       22   FTX            16/39
        TH.LINEP       34   FTX            16/38
        TH.MODEL        4   FTX             6/51     16/41
        TH.MODEP       22   FTX            16/40
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        TH.OVALL       11   FTX            16/34
        TH.OVALP        0   FTX            16/51
        TH.QATRL        4   FTX            16/31
        TH.QATRP       30   FTX            16/30     16/48
        TH.SKELL       16   FTX            16/37     24/38
        TH.SKELP       56   FTX            16/36
        TIL           176   PROGRAM*       17/57     18/02     18/07     18/16     22/19 L   23/42
        TIL10         204   PROGRAM*       22/36     22/39 L
        TIL20         207   PROGRAM*       22/44     22/52 L
        TIU           210   PROGRAM*       18/09     18/14     18/21     18/25     23/25 L
        TIUA          615   PROGRAM*       23/40 S   24/04     25/45
        TIU1          216   PROGRAM*       23/30     23/37     23/40 L
        TIU11         244   PROGRAM*       25/16     25/34 L
        TIU12         246   PROGRAM*       25/30     25/41 L
        TIU5          222   PROGRAM*       23/56 L
        TIU8          227   PROGRAM*       23/47     24/33 L
        TIU9          236   PROGRAM*       24/42     25/03     25/11 L
        TIU.TP        252   PROGRAM*       23/41     24/03     25/43     25/50 L
        TP.ADDRL        1   FTX            22/21     22/24
        TP.ADDRP       13   FTX            22/21     22/24
        TP.ARRL         1   FTX            22/21     22/24
        TP.ARRP        15   FTX            22/21     22/24
        TP.BIASL       30   FTX            22/21     22/24
        TP.BIASP       24   FTX            22/21     22/24
        TP.CATL         1   FTX            22/21     22/24
        TP.CATP        11   FTX            22/21     22/24
        TP.FPL          1   FTX            22/21     22/24
        TP.FPP         22   FTX            22/21     22/24
        TP.GLP         16   FTX            22/40
        TP.INTRL        1   FTX            22/21     22/24
        TP.INTRP       12   FTX            22/21     22/24
        TP.LCML         1   FTX            22/21     22/24
        TP.LCMP        23   FTX            22/21     22/24
        TP.MODEL        3   FTX            22/26
        TP.SHRTL        1   FTX            22/21     22/24
        TP.SHRTP       14   FTX            22/21     22/24
        TP.TAGL        20   FTX            22/21     22/24
        TP.TAGP        54   FTX            22/21     22/24
        TRACE          17   PROGRAM*       13/23 L   13/23 E
        TYPLOD         20   PROGRAM*       13/25 L   13/25 E
        T=GL            0   EXTERNAL*       2/38 X   26/12
        T=OUS           0   EXTERNAL*       2/38 X   14/51     14/51 S   15/29     15/29 S   25/22
        T=PAR           0   EXTERNAL*       2/38 X   14/50     14/50 S   15/42     15/48     15/48 S
        T=SYM           0   EXTERNAL*       2/38 X   27/12
        T=VDIM          0   EXTERNAL*       2/39 X   15/41     15/41 S   15/44     15/49
        T.API           0   EXTERNAL*       2/39 X   26/41     26/41
        T.GL            0   EXTERNAL*       2/39 X   26/18     26/42
        T.IOI           0   EXTERNAL*       2/39 X   26/40
        T.OUS           0   EXTERNAL*       2/39 X   20/14     20/29     24/57     25/34
                                           16/03     20/19     21/31     25/27
        T.PAR           0   EXTERNAL*       2/39 X   14/20     15/30     15/45     15/50     15/54     16/04     16/07
        T.SYM           0   EXTERNAL*       2/39 X   27/11     38/21
        T.VDIM          0   EXTERNAL*       2/39 X   15/43     15/46
        UUC            21   PROGRAM*       13/27 L   13/27 E
        VS.CRAL        22   FTX            19/03     19/04
        VS.CRAP         0   FTX            19/03
        V=ARY           0   EXTERNAL*       2/43 X   24/39
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        V=BVD           0   EXTERNAL*       2/43 X   15/33     19/13
        V=NOOP          0   EXTERNAL*       2/43 X   19/17
        V=SUBST         0   EXTERNAL*       2/43 X   23/36
        WB.LABP         3   FTX            27/23     27/25
        WB.MATP        36   FTX            27/17
        WB.MODEL        3   FTX             6/52
        WB.SFAP        40   FTX            27/25
        WB.VARP         5   FTX            27/14
        WB.W            1   FTX            27/16
        WC.RBP         60   FTX            38/10
        WC.RLP         72   FTX            38/14
        WC.W            2   FTX            38/35
        WIN           316   PROGRAM*       39/03 D   39/10 E   40/15     40/31     40/33     40/36
        WINI          475   PROGRAM*       39/06 D
        WINOC         454   PROGRAM*       26/37     39/07 D
        WQ.CS          22   PROGRAM*       13/39 L   13/39 E   26/53 S   26/54
        WQ.DOOT        23   PROGRAM*       13/40 L   13/40 E   26/54
        WTE           313   PROGRAM*       39/04 D   39/11 E
        WTO=            0   EXTERNAL*       2/49 X   32/09     32/12
        Z=SYM           3   FTX            27/15     38/34
        Z=TURP          3   FTX            15/43     16/26     17/24     23/26     24/33
                                           15/52     16/27     17/49     23/32
        .CG             0                   2/08 D   33/08 F   37/14 F
        .FAST           0                   2/06 D    2/08     33/08 F   37/14 F
        .OPT            1                   2/07 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFWIN 
  
  
        BNW           526   PROGRAM*       33/13     34/50     35/28     37/22 L
        DLT           532   PROGRAM*       33/44     33/52     33/56     35/01     37/55 L
        DLTA          540   PROGRAM*       38/17     38/19 L
        DLT2          545   PROGRAM*       38/22     38/31 L
        DLT4          550   PROGRAM*       38/23     38/49 L
        IPSUD         475   PROGRAM*       36/24 D   39/06
        K=AP            2                  38/24 L
        K=END           5                  38/27 L
        K=GL            1                  38/23 L
        K=IO            3                  38/25 L
        K=LC            4                  38/26 L
        K=SYM           0                  38/21 L
        OCPSUD        454   PROGRAM*       36/04 D   39/07
        PSI           402   PROGRAM*       29/38     32/49 L
        PSTAB         520   PROGRAM*       32/55     37/03 L   39/05
        P.COPY         14                  28/57 D   30/21
        WIN           316   PROGRAM*       29/13 L   39/03
        WINA          521   PROGRAM*       30/12     31/56     32/04     33/23 S   37/04 L
        WINB          522   PROGRAM*       29/05 S   31/38 S   32/16     34/27     37/05 L
                                           29/20 S   32/10     34/26 S   34/42 S
        WINC          524   PROGRAM*       29/09 S   29/18 S   31/46     37/08 L
        WIND          525   PROGRAM*       32/02 S   32/13     37/09 L
        WINW          366   PROGRAM*       31/39     31/55 L
        WINW7         373   PROGRAM*       32/03     32/10 L
        WINW8         376   PROGRAM*       32/16 L
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    51
        SYMBOLIC REFERENCE TABLE.                                     COMFWIN 
  
        WINX          365   PROGRAM*       31/04     31/10     31/46 L   32/17     32/20     32/25
        WIN10         323   PROGRAM*       29/47 L   34/44
        WIN100        366   PROGRAM*       29/10     31/54 L   33/24     34/04     34/21     35/02     35/29
                                           30/03     33/12     33/45     34/10     34/33     35/08
                                           30/13     33/15     33/57     34/19     34/36     35/26
        WIN20         327   PROGRAM*       29/52     29/56 L
        WIN40         331   PROGRAM*       29/50     29/54     30/05 L   33/33
        WIN50         333   PROGRAM*       30/06     30/11 L
        WIN60         355   PROGRAM*       30/49     31/01     31/17 L
        WIN65         344   PROGRAM*       30/28     30/48 L
        WIN70         357   PROGRAM*       30/33     30/35     30/46     31/28 L
        WIN80         364   PROGRAM*       31/29     31/31     31/41 L
        WI=BCI        451   PROGRAM*       35/17 L   36/25
        WI=BOS        404   PROGRAM*       33/07 L   36/26
        WI=BSS        442   PROGRAM*       34/46 L   36/28
        WI=CPL        415   PROGRAM*       33/36 L   36/27
        WI=DATA       452   PROGRAM*       35/27 L   36/29
        WI=ECI        451   PROGRAM*       35/18 L   36/30
        WI=EMI        451   PROGRAM*       35/16 L   36/31
        WI=JPI        440   PROGRAM*       34/39 L   36/32
        WI=LD0        413   PROGRAM*       33/27 L   36/33
        WI=LOO        451   PROGRAM*       35/14 L   36/35
        WI=OTR        427   PROGRAM*       34/13 L   36/36
        WI=RJ3        440   PROGRAM*       34/40 L   36/37
        WI=RJ6        433   PROGRAM*       34/23 L   36/38
        WI=SB0I       415   PROGRAM*       33/39 L   36/40
        WI=ST0        413   PROGRAM*       33/28 L   36/34
        WI=SUBI       415   PROGRAM*       33/38 L   36/39
        WI=UJP        440   PROGRAM*       34/38 L   36/41
        WI=USE        425   PROGRAM*       34/07 L   36/42
        WI=ZERO       415   PROGRAM*       33/40 L   36/43
        WO=ADDR       415   PROGRAM*       33/35 L   36/05
        WO=APL        451   PROGRAM*       35/21 L   36/07
        WO=BMI        451   PROGRAM*       35/19 L   36/08
        WO=BSS        442   PROGRAM*       34/47 L   36/06
        WO=BSSZ       442   PROGRAM*       34/48 L
        WO=CMNT       454   PROGRAM*       35/34 L
        WO=CON        424   PROGRAM*       34/03 L   36/09
        WO=END        447   PROGRAM*       35/05 L   36/10
        WO=EQUN       451   PROGRAM*       35/24 L   36/11
        WO=FMT        451   PROGRAM*       35/23 L   36/12
        WO=FVEC       415   PROGRAM*       33/41 L   36/13
        WO=IDNT       410   PROGRAM*       33/18 L   36/14
        WO=IOM        451   PROGRAM*       35/22 L   36/15
        WO=LCC        451   PROGRAM*       35/25 L   36/16
        WO=LOO        451   PROGRAM*       35/15 L   36/17
        WO=NLST       451   PROGRAM*       35/20 L   36/18
        WO=PLIM       415   PROGRAM*       33/37 L   36/19
        WO=TRAC       417   PROGRAM*       33/48 L   36/20
        WO=USE        425   PROGRAM*       34/08 L   36/21
        WTE           313   PROGRAM*       29/04 L   39/04
        Z.PSUD         44                  36/45 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFITS 
1       QCGC - QUICK CODE GENERATOR CONTROLLER.                       COMPASS 3.7-871.     24/05/02. 13.17.24.      PAGE    52
        SYMBOLIC REFERENCE TABLE.                                     COMFITS 
  
        ITS           554   PROGRAM*       40/14 L   41/03
        ITSA          573   PROGRAM*       40/17     40/39 L
        ITS2          561   PROGRAM*       40/18 L   40/31     40/31
        ITS4          566   PROGRAM*       40/19     40/33 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFUSE 
  
  
        PUSE          602   PROGRAM*       42/22 L   43/08
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2034              IDENT  QSKEL
                       2034                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1562 
                                        RGFILE    COMMON          0        30 
                                        SKLNAM    COMMON          0         0 
                                        SCT       LOCAL        1562       252 
  
  
                                        ENTRY POINTS. 
  
                                        B=QSKEL          0+           V=ANINT         75            W=MFPNT       1043
                                        F.SKNAM          0+/SKLNAM/   V=MAX0          76            W=FUNT        1045
                                        F.SKEL           0+           V=DMAX1         77            W=DFENT       1051
                                        V=ILL            0            V=MIN0         100            W=TMENT       1055
                                        V=ADD.I          1            V=DMIN1        101            W=ALENT       1061
                                        V=ADD.R          2            V=AMAX1        102            W=TENT        1067
                                        V=ADD.D          3            V=AMIN1        103            V=SEG          174
                                        V=ADD.C          4            V=MAX1         102            V=NOOP         175
                                        V=ADD.B          1            V=MIN1         103            V=HDR          176
                                        V=SUB.I          5            V=AMAX0         76            V=FILE         177
                                        V=SUB.R          6            V=AMIN0        100            V=PLIM         200
                                        V=SUB.D          7            V=AMOD         104            V=SEX          201
                                        V=SUB.C         10            V=AND           65            V=CDLOO        202
                                        V=SUB.B          5            V=BOOL          57            V=CDDOT        203
                                        V=MUL.I         11            V=COMPL         64            V=CDCS         204
                                        W=IMVC          37            V=CONJG        105            V=DATA         205
                                        W=IMV           37            V=CMPLX        106            V=FIN          206
                                        W=SHFC          40            V=DABS         107            V=LCC          207
                                        V=MUL.R         12            V=DBLE          62            V=DVI          210
                                        V=MUL.D         13            V=DDIM         110            V=EXP.I        211
                                        V=MUL.C         14            V=DIM          111            V=DOBD2        212
                                        V=MUL.B         11            V=DINT         112            V=I123         213
                                        V=DIV.I         15            V=DPROD        113            V=I122         214
                                        W=IDVC          65            V=DNINT        114            V=R122         215
                                        W=IDV           65            V=DSIGN        115            V=I113         216
                                        W=IDP2          73            V=EQV           66            V=R113         217
                                        V=DIV.R         16            V=FLOAT         56            V=I121         220
                                        V=DIV.D         17            V=IABS          71            V=IN23         221
                                        V=DIV.C         20            V=IDINT         61            V=I1N3         222
                                        V=DIV.B         15            V=IDNIN        116            V=R1N3         223
                                        V=DVC.R         21            V=IFIX          61            V=I12N         224
                                        V=UMI.I         22            V=INT           61            V=IN22         225
                                        V=UMI.R         22            V=ISIGN        117            V=RN22         226
                                        V=UMI.D         23            V=IDIM         120            V=I1NN         227
                                        V=UMI.C         23            V=MASK         121            V=R1NN         230
                                        V=LT.I          24            W=MASKV        533            V=INN3         231
                                        V=LT.R          25            W=MASKC        541            V=RNN3         232
                                        V=LT.D          26            V=MOD          122            V=I11N         233
                                        V=LT.H          27            W=MODG         543            V=R11N         234
                                        V=LLT           30            W=MODP2        553            V=IN2N         235
                                        V=LT.B          24            V=NEQV          70            V=I1N1         236
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        V=GE.I          31            V=NINT         116            V=IFT          237
                                        V=GE.R          32            V=OR            67            V=IFF          240
                                        V=GE.D          33            V=RANF         123            V=I111         241
                                        V=GE.B          31            V=REAL          57            V=RN2N         235
                                        V=GE.H          34            V=SIGN         117            V=RN23         221
                                        V=LGE           35            V=SNGL          57            V=R111         241
                                        V=NE.I          36            V=SHIFT        124            V=R12N         224
                                        V=NE.R          37            W=SHIFV        565            V=R123         213
                                        V=NE.D          40            W=SHLC          40            V=DNN3         232
                                        V=NE.C          40            W=SHRC          73            V=DN2N         235
                                        V=NE.B          36            V=XOR           70            V=DN22         226
                                        V=NE.H          41            V=DOBS         125            V=DN23         221
                                        V=LNE           42            V=DOBL         126            V=D1NN         230
                                        V=EQ.I          43            V=DOBZS        127            V=D1N3         223
                                        V=EQ.R          44            V=DOBZL        130            V=D11N         234
                                        V=EQ.D          45            V=DOC.S        131            V=D113         217
                                        V=EQ.C          45            V=DOC.O        132            V=D111         241
                                        V=EQ.B          43            W=DOC.K        621            V=D12N         224
                                        V=EQ.H          46            V=DOC.L        133            V=D122         215
                                        V=LEQ           47            V=DOC.R        134            V=D123         213
                                        V=STR.I         50            V=DOC.D        135            V=IEQ.I        242
                                        V=STR.R         50            V=IOLC         136            V=IEQ.R        243
                                        V=STR.D         51            V=LCIF         137            V=IEQ.D        244
                                        V=STR.H         52            V=GOTO         140            V=IEQ.C        245
                                        V=STR.C         51            V=AGOTO        141            V=INE.I        246
                                        V=STR.B         50            V=CGOTO        142            V=INE.R        247
                                        V=CAT           53            V=JGOTO        143            V=INE.D        250
                                        V=COLON         54            V=RGOTO        144            V=INE.C        251
                                        V=SUBST         55            V=ASSGN        145            SKEND         1254+ 
                                        V=ITOR          56            V=BSS          146            F.SCT         1562+ 
                                        V=ITOB          57            V=ARY          147            F.SKCR        1562+ 
                                        V=ITOD          60            V=GAP          150            Z.SCT          252
                                        V=ITOC          60            V=FAP          151            Z.SKCR         252
                                        V=RTOI          61            V=IAP          152            OM=CONV         55
                                        V=RTOD          62            W=IAPS1        732            OM=IF          213
                                        V=RTOC          62            W=IAPD1        733            OM=INL          55
                                        V=RTOB          57            W=IAPS2        735            OM=ADD        1255+ 
                                        V=DTOI          61            W=IAPD2        736            OM=SUB        1256+ 
                                        V=DTOR          57            V=APIOC        153            OM=MUL        1257+ 
                                        V=DTOB          57            V=APIOD        154            OM=DIV        1260+ 
                                        V=DTOC          63            V=APIOU        155            OM=UMI        1261+ 
                                        V=XMIT          57            W=APSTR        743            OM=LT         1262+ 
                                        V=CTOI          61            W=IPLG0        745            OM=GE         1264+ 
                                        V=CTOR          57            W=CAPST        754            OM=NE         1266+ 
                                        V=CTOB          57            W=CIS0S        757            OM=EQ         1270+ 
                                        V=CTOD          63            W=CIA0S        770            OM=NOT        1272+ 
                                        V=BTOD          62            W=LUA         1001            OM=AND        1273+ 
                                        V=BTOR          57            W=SUA         1003            OM=OR         1274+ 
                                        V=BTOI          57            V=SUBR         156            OM=EQV        1275+ 
                                        V=BTOC          62            V=FUNC         157            OM=XOR        1276+ 
                                        V=NOT.L         64            V=LIBF         160            OM=STR        1277+ 
                                        V=NOT.B         64            V=INTF         161            OM=DOC        1301+ 
                                        V=AND.L         65            V=IOSUB        162            F.MODC        1303+ 
                                        V=AND.B         65            V=ERR          163            F.IFS         1312+ 
                                        V=EQV.L         66            V=STOP         164            F.IFN         1321+ 
                                        V=EQV.B         66            V=PEND         164            F.INTF        1327+ 
                                        V=OR.L          67            V=PAUS         165            Z.INTA          77
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        V=OR.B          67            V=RET          166            Z.INTF         227
                                        V=XOR.L         70            V=RTNK         167            OMI=CPX         30
                                        V=XOR.B         70            V=GPL          170            OMI=LEN        130
                                        V=NEQV.         70            V=ENTR         171            OMI=SHF        141
                                        V=ABS           71            V=BVD          172            OMI=LCF         51
                                        V=SUM1S         72            V=EVD          173            F.IMCV        1556+ 
                                        V=AIMAG         73            W=PROM        1035            Z.IMCV           4
                                        V=AINT          74            W=PROS        1041
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        O=APRET   O=EVD     ES=LGT    D=I11N  * D=EVD   * D=DOC.L * D=AIMAG * D=GE.D  * 
                                        O=FAP     O=FIN     ES=LLE    D=RNN3  * D=BVD   * D=DOC.O * D=SUM1S * D=GE.R  * 
                                        O=FUN     O=FINX    ES=LLT    D=INN3  * D=ENTR  * D=DOC.S * D=ABS   * D=GE.I  * 
                                        O=GAP     O=FPENT   ES=LOCF   D=R1NN  * D=GPL   * D=DOBZL * D=XOR.L * D=LLT   * 
                                        O=HLEX    O=FPHDR   ES=MASK   D=I1NN  * D=RTNK  * D=DOBZS * D=OR.L  * D=LT.H  * 
                                        O=HREL    O=FUNT    ES=RANF   D=RN22  * D=RET   * D=DOBL  * D=EQV.L * D=LT.D  * 
                                        O=HSTO    O=GENT    ES=SHIF   D=IN22  * D=PAUS  * D=DOBS  * D=AND.L * D=LT.R  * 
                                        O=IAP     O=GENTX   S=AEXIT   D=I12N  * D=STOP  * D=SHIFT * D=NOT.L * D=LT.I  * 
                                        O=INF     O=GFD     S=BU      D=R1N3  * D=ERR   * D=RANF  * D=DTOC  * D=UMI.D * 
                                        O=IOC     O=HCAT    S=ENTRY   D=I1N3  * D=IOSUB * D=MOD   * D=RTOD  * D=UMI.I * 
                                        O=IOD     O=HCOL    S=ERR     D=IN23  * D=INTF  * D=MASK  * D=RTOI  * D=DVC.R * 
                                        O=IOF     O=HDR     S=EXIT    D=I121  * D=LIBF  * D=IDIM  * D=ITOD  * D=DIV.C * 
                                        O=IOU     O=HSBS    S=FILES   D=R113  * D=FUNC  * D=ISIGN * D=ITOB  * D=DIV.D * 
                                        O=LIB     O=ID      S=INIT    D=I113  * D=SUBR  * D=IDNIN * D=ITOR  * D=DIV.R * 
                                        O=LIBF    O=ILL     S=TA0     D=R122  * D=APIOU * D=DSIGN * D=SUBST * D=DIV.I * 
                                        O=LURET   O=IM      S=TRACE   D=I122  * D=APIOD * D=DNINT * D=COLON * D=MUL.C * 
                                        O=SCRET   O=LCC     S=VALUE   D=I123  * D=APIOC * D=DPROD * D=CAT   * D=MUL.D * 
                                        O=SUB     O=MASK    O=PAR     D=DOBD2 * D=IAP   * D=DINT  * D=STR.H * D=MUL.R * 
                                        O=SURET   O=MENT    D=INE.C * D=EXP.I * D=FAP   * D=DIM   * D=STR.D * D=MUL.I * 
                                        O=BVD     O=MOD     D=INE.D * D=DVI   * D=GAP   * D=DDIM  * D=STR.I * D=SUB.C * 
                                        O=CAR     O=NOOP    D=INE.R * D=LCC   * D=ARY   * D=DABS  * D=LEQ   * D=SUB.D * 
                                        O=CBJ     O=PASG    D=INE.I * D=FIN   * D=BSS   * D=CMPLX * D=EQ.H  * D=SUB.R * 
                                        O=CDCS    O=PCG     D=IEQ.C * D=DATA  * D=ASSGN * D=CONJG * D=EQ.D  * D=SUB.I * 
                                        O=CDDOT   O=PDE     D=IEQ.D * D=CDCS  * D=RGOTO * D=AMOD  * D=EQ.R  * D=ADD.C * 
                                        O=CDLOO   O=PLA     D=IEQ.R * D=CDDOT * D=JGOTO * D=AMIN1 * D=EQ.I  * D=ADD.D * 
                                        O=CDW     O=PLIM    D=IEQ.I * D=CDLOO * D=CGOTO * D=AMAX1 * D=LNE   * D=ADD.R * 
                                        O=CRJ     O=RGT     D=I111  * D=SEX   * D=AGOTO * D=DMIN1 * D=NE.H  * D=ADD.I * 
                                        O=DATA    O=SEX     D=IFF   * D=PLIM  * D=GOTO  * D=MIN0  * D=NE.D  * D=ILL   * 
                                        O=DOC     O=SHIFT   D=IFT   * D=FILE  * D=LCIF  * D=DMAX1 * D=NE.R  * 
                                        O=DOB     ES=CMPL   D=I1N1  * D=HDR   * D=IOLC  * D=MAX0  * D=NE.I  * 
                                        O=DOBZ    ES=LEN    D=IN2N  * D=NOOP  * D=DOC.D * D=ANINT * D=LGE   * 
                                        O=ENT     ES=LGE    D=R11N  * D=SEG   * D=DOC.R * D=AINT  * D=GE.H  * 
  
  
  
  
                                                  IDENT  QSKEL                                                   QSKEL       2
                                         QSKEL    SECT   ((QCG)   INSTRUCTION SKELETON CONSTRUCTION.)            QSKEL       3
  
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     4
                                                                      QSKEL 
  
                                        *         IN FUN                                                         QSKEL       5
                                                  EXT    O=APRET,O=FAP,O=FUN,O=GAP,O=HLEX,O=HREL,O=HSTO,O=IAP    FC50237     7
                                                  EXT    O=INF,O=IOC,O=IOD,O=IOF,O=IOU,O=LIB,O=LIBF,O=LURET      FC50237     8
                                                  EXT    O=SCRET,O=SUB,O=SURET                                   FC50237     9
                                                                                                                 QSKEL       8
                                        *         IN GEN                                                         QSKEL       9
                                                  EXT    O=BVD,O=CAR,O=CBJ,O=CDCS,O=CDDOT,O=CDLOO,O=CDW,O=CRJ    FC50237    10
                                                  EXT    O=DATA,O=DOC,O=DOB,O=DOBZ,O=ENT,O=EVD,O=FIN,O=FINX      FC50237    11
                                                  EXT    O=FPENT,O=FPHDR,O=FUNT,O=GENT,O=GENTX,O=GFD,O=HCAT      FC50237    12
                                                  EXT    O=HCOL,O=HDR,O=HSBS,O=ID,O=ILL,O=IM,O=LCC,O=MASK,O=MENT FC50237    13
                                                  EXT    O=MOD,O=NOOP,O=PASG,O=PCG,O=PDE,O=PLA,O=PLIM,O=RGT      FC50237    14
                                                  EXT    O=SEX,O=SHIFT                                           FC50237    15
                                                                                                                 QSKEL      15
                                        *         IN PAR                                                         QSKEL      16
                                                  EXT    ES=CMPL,ES=LEN,ES=LGE,ES=LGT,ES=LLE,ES=LLT,ES=LOCF      FC50237    16
                                                  EXT    ES=MASK,ES=RANF,ES=SHIF                                 FC50237    17
                                                                                                                 QSKEL      18
                                        *         IN PUC                                                         QSKEL      19
                                                  EXT    S=AEXIT,S=BU,S=ENTRY,S=ERR,S=EXIT,S=FILES,S=INIT,S=TA0  FC50237    18
                                                  EXT    S=TRACE,S=VALUE                                         FC50237    19
                                                                                                                 QSKEL      22
                                        *         IN REG                                                         QSKEL      23
                                                  EXT    O=PAR                                                   QSKEL      24
  
  
  
  
                                        ***       QSKEL - QCG INSTRUCTION SKELETONS.                             QSKEL      26
                                        *                                                                        QSKEL      27
                                        *         R. H. FRANK        71-12-31.                                   QSKEL      28
                                        *         L. D. HARE         75-07-09.     REWRITE.                      QSKEL      29
                                        *         M. A. HERBACH      76-07-31.     FTN 5 COMMON SKELETONS.       QSKEL      30
                                        *         W. E. DICK         77-05-99.     FTN 5 QCG.                    QSKEL      31
                                        *                                                                        QSKEL      32
                                        *         THIS DECK CONTAINS ALL INSTRUCTION SKELETONS AND               QSKEL      33
                                        *         THE NECESSARY PSEUDO CODE FOR GENERATING THEM.                 QSKEL      34
                                        *         AS SUCH, THIS DECK IS NON EXECUTABLE.                          QSKEL      35
                                        *         MODIFICATIONS MUST BE HANDLED WITH EXTREME CARE, ATTENTION     QSKEL      36
                                        *         BEING PAID ESPECIALLY TO TABLES THAT LIE HEREIN AND            QSKEL      37
                                        *         ARE REFERENCED BY GEN.                                         QSKEL      38
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     5
        MACRO DEFINITIONS.
  
                                        **        THE FOLLOWING MACROS ARE DEFINED IN THIS DECK TO CAUSE         QSKEL      40
                                        *         THE COMDECKS TO GENERATE QCG FORMAT SKELETON DEFINITIONS.      QSKEL      41
                                   1     .OPT     EQU    1                                                       QSKEL      42
                                   0     .FAST    EQU    0                                                       QSKEL      43
                                   0     .CG      EQU    .FAST                                                   QSKEL      44
                                                                                                                 QSKEL      45
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     6
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.
  
             0                                    CTEXT  COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.            COMFSKL     2
                                                                                                                 COMFSKL     3
                                                                                                                 COMFSKL     4
  
  
  
  
                                        **        DEFINS  -  DEFINE INSTRUCTION.                                 COMFSKL     6
                                        *                                                                        COMFSKL     7
                                        * INST    DEFINS OPC,TYPE                                                COMFSKL     8
                                        *                                                                        COMFSKL     9
                                        *         INST   = INSTRUCTION MNEMONIC.                                 COMFSKL    10
                                        *         OPC    = OPCODE.                                               COMFSKL    11
                                        *         TYPE   = INSTRUCTION TYPE, (SEE TYPE DEFINITION).              COMFSKL    12
                                        *                                                                        COMFSKL    13
                                        *         DEFINES A MACRO OF NAME "INST" WHICH UTILIZES *FORM*           COMFSKL    14
                                        *         TO CREATE A SKELETON ELEMENT.                                  COMFSKL    15
                                                                                                                 COMFSKL    16
                                                                                                                 COMFSKL    17
                                                  MACRO  DEFINS,INST,OPC,TYPE                                    COMFSKL    18
                                         B        MICRO                                                          COMFSKL    19
                                         A        MICRO  1,, BS9                                                 COMFSKL    20
                                                  IFEQ   TYPE,M.BRAN,2                                           COMFSKL    21
                                         B        MICRO  2,1,/OPC/                                               COMFSKL    22
                                         A        MICRO  1,, BS6                                                 COMFSKL    23
                                         INST     EQU    OPC"A"                                                  COMFSKL    24
                                        *                                                                        COMFSKL    25
                                                  MACRO  INST,AD,I,J,K                                           COMFSKL    26
                                                                                                                 COMFSKL    27
                                        *         SUPPRESS CONREDUCTION OF SKEL USING NON-ARITH INSTR.           COMFSKL    28
                                                                                                                 COMFSKL    29
                                                  IFC    EQ,/TYPE/M.INCR/,1                                      COMFSKL    30
                                                  SKIP   3                                                       COMFSKL    31
                                                  IFC    EQ,/TYPE/M.BRAN/,1                                      COMFSKL    32
                                                  SKIP   1                                                       COMFSKL    33
                                                  IFC    EQ,/TYPE/M.LOAD/,1                                      COMFSKL    34
                                         U="STEM" SET    0                                                       COMFSKL    35
                                                  FORM   (I,J,K),INST,TYPE,AD                                    COMFSKL    36
                                         INST     ENDM                                                           COMFSKL    37
                                        *                                                                        COMFSKL    38
                                                  IFC    EQ,/"B"/3/,5                                            COMFSKL    39
                                         INST.    OPSYN  INST                                                    COMFSKL    40
                                                  PURGMAC INST                                                   COMFSKL    41
                                                  MACRO  INST,AD,I,J                                             COMFSKL    42
                                         AD       INST.  0,I,J                                                   COMFSKL    43
                                         INST     ENDM                                                           COMFSKL    44
                                         DEFINS   ENDM                                                           COMFSKL    45
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     7
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  FORM
  
                                        **        FORM  -  FORM INSTRUCTION SKELETON ELEMENT.                    COMFSKL    47
                                        *                                                                        COMFSKL    48
                                        *         IJK    = I,J,K PORTIONS OF INSTRUCTION BOUNDED BY              COMFSKL    49
                                        *                  PARENTHESES.                                          COMFSKL    50
                                        *         OPCODE = OPCODE.                                               COMFSKL    51
                                        *         TYPE   = INSTRUCTION TYPE, (SEE TYPE DEFINITION).              COMFSKL    52
                                        *                                                                        COMFSKL    53
                                        *         THIS IS THE MAIN MACRO FOR SKELETON CONSTRUCTION.              COMFSKL    54
                                        *         EACH MACRO CREATED BY *DEFINS* AND *DEFUJP* INCLUDES           COMFSKL    55
                                        *         A CALL TO *FORM*. THE SECOND AND THIRD PARAMETERS TO           COMFSKL    56
                                        *         *FORM* (OPCODE AND TYPE) ARE TAKEN FROM THE *DEFINS*           COMFSKL    57
                                        *         OR *DEFUJP* MACRO EXPANSION THAT DEFINED THE MACRO             COMFSKL    58
                                        *         NAMED WITH THE OPCODE MNEMONIC IN THE LOCATION FIELD           COMFSKL    59
                                        *         OF THE CALL. THE *IJK* PARAMETER IS SUPPLIED TO *FORM* AS      COMFSKL    60
                                        *         THE THREE PARAMETERS OF THE MACRO WHOSE NAME IS THIS           COMFSKL    61
                                        *         MNEMONIC. THE MACRO FLOW PROCEEDS TOWARD THE FORMATION         COMFSKL    62
                                        *         OF THREE MICROS "H", "L" AND "Q"..                             COMFSKL    63
                                        *                                                                        COMFSKL    64
                                        *         "H"    = INSTRUCTION TYPE AND OPCODE.                          COMFSKL    65
                                        *         "L"    = 3*(CONSTANT, AT. INDEX), 1 EACH FOR I, J QND K.       COMFSKL    66
                                        *         "Q"    = SET IF 12 BIT Q FIELD PRESENT.                        COMFSKL    67
                                        *                                                                        COMFSKL    68
                                        *         INSTRUCTION SKELETON ELEMENT FORMAT CREATED BY A CALL          COMFSKL    69
                                        *         TO *FORM* IS..                                                 COMFSKL    70
                                        *                                                                        COMFSKL    71
                                        *         + <-------------------- SK. STRUCTURE ---------------------> + COMFSKL    72
                                        *         +                                                            + COMFSKL    73
                                        *         +              + <----- SR. STRUCTURES -------> +            + COMFSKL    74
                                        *         +              +                                +            + COMFSKL    75
                                        *         +-----+--------+----------+----------+----------+------------+ COMFSKL    76
                                        *         + TYP + OPCODE +    I     +    J     +    K     +     Q      + COMFSKL    77
                                        *         +     +        +----+-----+----+-----+----+-----+            + COMFSKL    78
                                        *         +     +        +ADDR+ NUM +ADDR+ NUM +ADDR+ NUM +            + COMFSKL    79
                                        *         +-----+--------+----+-----+----+-----+----+-----+------------+ COMFSKL    80
                                        *            6      9      5     6     5    6     5    6       12        COMFSKL    81
                                        *                                                                        COMFSKL    82
                                        *         *ADDR* IS THE AT. INDEX REFERRED TO ABOVE.                     COMFSKL    83
                                                                                                                 COMFSKL    84
                                                                                                                 COMFSKL    85
                                         FORM1 MACRO OC,TYPE,AD                                                  COMFSKL    86
                                          VFD "H""L""Q"                                                          COMFSKL    87
                                         AD BSS 0                                                                COMFSKL    88
                                         L MICRO                                                                 COMFSKL    89
                                         Q MICRO 1,,$,12/0$                                                      COMFSKL    90
                                         X SET TYPE                                                              COMFSKL    91
                                         H MICRO 1,,$6/X,9/OC/64$                                                COMFSKL    92
                                          ENDM                                                                   COMFSKL    93
                                                                                                                 COMFSKL    94
                                                                                                                 COMFSKL    95
                                         FORM     MACRO  IJK,OC,TYPE,AD                                          COMFSKL    96
                                         RM       RMT                                                            COMFSKL    97
                                          FORM1 OC,TYPE,AD                                                       COMFSKL    98
                                         RM       RMT                                                            COMFSKL    99
                                        .1        IRP    IJK                                                     COMFSKL   100
                                                  IFC    EQ,  IJK ,4                                             COMFSKL   101
                                         RM       RMT                                                            COMFSKL   102
                                                  SETCON 0                                                       COMFSKL   103
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     8
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  FORM
  
                                                  RMT                                                            COMFSKL   104
                                                  SKIP   6                                                       COMFSKL   105
                                                  IFC    LT, IJK 0 ,2      IF PARAMETER IS A LETTER              COMFSKL   106
                                                  SETOTH IJK                                                     COMFSKL   107
                                                  SKIP   3                                                       COMFSKL   108
                                         RM       RMT                                                            COMFSKL   109
                                                  SETCON IJK                                                     COMFSKL   110
                                                  RMT                                                            COMFSKL   111
                                        .1        IRP                                                            COMFSKL   112
                                         SKELAD   SET    SKELAD+1                                                COMFSKL   113
                                         FORM     ENDM                                                           COMFSKL   114
  
  
  
  
                                        **        SETCON  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR          COMFSKL   116
                                        *                  A CONSTANT.                                           COMFSKL   117
                                        *                                                                        COMFSKL   118
                                        *         *SETCON* WILL SET THE I,J OR K NUM FIELD IF THE PARAMETER      COMFSKL   119
                                        *         (I,J ORK) PASSED IS NOT PRECEEDED BY A PLUS OR MINUS           COMFSKL   120
                                        *         SIGN, NO LENGTH CHECKS ARE MADE. IF THE CONSTANT IS            COMFSKL   121
                                        *         SIGNED IT INDICATES AN 18 BIT CONSTANT, *SETCON* WILL          COMFSKL   122
                                        *         PUT THE LOWER 12 BITS IN THE Q FIELD, THUS REDEFINING          COMFSKL   123
                                        *         IT, AND THE UPPER 6 BITS IN THE RELATIVE NUM FIELD. A          COMFSKL   124
                                        *         GIVEN CONSTANT CAN BE THUS PLACED IN THE Q FIELD BY            COMFSKL   125
                                        *         PRECEEDING IT WITH A + OR - SIGN. ]HE ADDR FIELD               COMFSKL   126
                                        *         DEFINED, TO AT.Q0.                                             COMFSKL   127
                                                                                                                 COMFSKL   128
                                                                                                                 COMFSKL   129
                                         SETCON   MACRO  IJK                                                     COMFSKL   130
                                        .1        IFC    LT, IJK +                                               COMFSKL   131
                                        *                                                                        COMFSKL   132
                                        *         HERE IF UNSIGNED CONSTANT.                                     COMFSKL   133
                                        *                                                                        COMFSKL   134
                                         L        MICRO  1,,$"L",5/AT.K0,6/IJK$                                  COMFSKL   135
                                        .1        ELSE                                                           COMFSKL   136
                                        *                                                                        COMFSKL   137
                                        *         FOR SIGNED CONSTANTS OR ADDRESS REFERENCES,                    COMFSKL   138
                                        *         SET THE 18 BIT Q-FIELD.                                        COMFSKL   139
                                        *                                                                        COMFSKL   140
                                         U="STEM" SET    0                                                       COMFSKL   141
                                                  IFC    GE,/IJK/=/,2                                            COMFSKL   142
                                         L        MICRO  1,,$"L",SR.OADL/AT.S0$                                  COMFSKL   143
                                                  SKIP   1                                                       COMFSKL   144
                                         L        MICRO  1,,$"L",SR.OADL/AT.Q0$                                  COMFSKL   145
                                         Q        MICRO  1,,$,SK.JPADL/IJK$                                      COMFSKL   146
                                        .1        ENDIF                                                          COMFSKL   147
                                         SETCON   ENDM                                                           COMFSKL   148
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE     9
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  SETOTH
  
                                        **        SETOTH  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR          COMFSKL   150
                                        *                  A NON-CONSTANT.                                       COMFSKL   151
                                        *                                                                        COMFSKL   152
                                        *         *SETOTH* WILL SET THE NUM FIELD (I,J OR K) TO A CONSTANT       COMFSKL   153
                                        *         OBTAINED FROM THE T. MICRO TABLE, THE ADDR FIELD WILL          COMFSKL   154
                                        *         BE SET TO POINT TO THE AT. TABLE ENTRY WHICH WILL CONTAIN      COMFSKL   155
                                        *         THE ADDRESS OF THE CODE IN *GEN* THAT PROCESSES THIS           COMFSKL   156
                                        *         TYPE OF I,J OR K PARAMETER. THE TYPE OF CONSTANT SET IN        COMFSKL   157
                                        *         THE NUM FIELD IS ALSO DETERMINED FROM THE I,J OR K             COMFSKL   158
                                        *         PARAMETER.                                                     COMFSKL   159
                                                                                                                 COMFSKL   160
                                                                                                                 COMFSKL   161
                                         SETOTH   MACRO  IJK                                                     COMFSKL   162
                                                                                                                 COMFSKL   163
                                        *         SUPPRESS CONREDUCTION IF UNPROCESSABLE OPERAND.                COMFSKL   164
                                                                                                                 COMFSKL   165
                                                  IF     -DEF,IJK.C,1                                            COMFSKL   166
                                         U="STEM" SET    0                                                       COMFSKL   167
                                         IJK=     SET    IJK=+1                                                  COMFSKL   168
                                         RM RMT                                                                  COMFSKL   169
                                            SETOTH1 IJK                                                          COMFSKL   170
                                            RMT                                                                  COMFSKL   171
                                            ENDM                                                                 COMFSKL   172
                                                                                                                 COMFSKL   173
                                                                                                                 COMFSKL   174
                                         SETOTH1 MACRO IJK                                                       COMFSKL   175
                                         IJK=  SET  IJK=-1                                                       COMFSKL   176
                                               IFNE IJK=                                                         COMFSKL   177
                                         L MICRO 1,,$"L",5/AT.IJK,6/IJK.$                                        COMFSKL   178
                                               ELSE                                                              COMFSKL   179
                                         L MICRO 1,,$"L",5/ZT.IJK,6/IJK.$                                        COMFSKL   180
                                               ENDIF                                                             COMFSKL   181
                                               ENDM                                                              COMFSKL   182
  
  
  
  
                                        **        DEFPO - DEFINE PSUEDO OPCODE.                                  COMFSKL   184
                                        *                                                                        COMFSKL   185
                                        * INST    DEFPO  PSN                                                     COMFSKL   186
                                        *                                                                        COMFSKL   187
                                        *         INST   = INSTRUCTION MNEMONIC.                                 COMFSKL   188
                                        *         PSN    = PSUEDO OP VALUE (FROM FTNTEXT).                       COMFSKL   189
                                        *                                                                        COMFSKL   190
                                        *         DEFINES A MACRO OF NAME *INST* WHICH UTILIZES *FORM*           COMFSKL   191
                                        *         TO CREATE AN PSUEDO OPCODE SKELETON ELEMENT.                   COMFSKL   192
                                        *         THE *TYPE* IS ALWAYS SET TO *M.BRAN*.                          COMFSKL   193
                                        *                                                                        COMFSKL   194
                                        *         NOTE THAT THE GENERATED *INST* MACRO HAS ONLY A SINGLE         COMFSKL   195
                                        *         PARAMETER (FOR *K*).  THIS IS BECAUSE THE *I* AND *J*          COMFSKL   196
                                        *         FIELDS ARE SET TO DETERMINE THE OPCODE VALUE.                  COMFSKL   197
                                                                                                                 COMFSKL   198
                                                                                                                 COMFSKL   199
                                                  MACRO  DEFPO,INST,PSN                                          COMFSKL   200
                                                  LOCAL  JDIG                                                    COMFSKL   201
                                         JDIG     EQU    PSN-PSN/1S3*1S3                                         COMFSKL   202
                                                  MACRO  INST,AD,Q                                               COMFSKL   203
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    10
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  DEFPO 
  
                                                  FORM   (0,0+JDIG,Q),PSN*1S3,M.BRAN,AD                          COMFSKL   204
                                         INST     ENDM                                                           COMFSKL   205
                                         DEFPO    ENDM                                                           COMFSKL   206
  
  
  
  
                                        **        ENDF - FLUSH LAST SKELETON WORD.                               COMFSKL   208
                                        *                                                                        COMFSKL   209
                                        *         MICROS "H","L" AND "Q" SET TO NUL STRINGS AFTER FLUSHING       COMFSKL   210
                                        *         TO CORE.                                                       COMFSKL   211
                                                                                                                 COMFSKL   212
                                                                                                                 COMFSKL   213
                                         ENDF     MACRO                                                          COMFSKL   214
                                         RM       HERE                                                           COMFSKL   215
                                                  VFD    "H""L""Q"                                               COMFSKL   216
                                         H        MICRO                                                          COMFSKL   217
                                         L        MICRO                                                          COMFSKL   218
                                         Q        MICRO                                                          COMFSKL   219
                                         ENDF     ENDM                                                           COMFSKL   220
  
  
  
  
                                        **        ENDS - END MACRO SKELETON.                                     COMFSKL   222
                                        *                                                                        COMFSKL   223
                                        *         *ENDS* IS IDENTICAL TO *ENDF* EXCEPT THE END SKELETON          COMFSKL   224
                                        *         FLAG (BIT 59) IS SET IN THE SKELETON ELEMENT BEFORE            COMFSKL   225
                                        *         FLUSHING.                                                      COMFSKL   226
                                                                                                                 COMFSKL   227
                                                                                                                 COMFSKL   228
                                         ENDS     MACRO                                                          COMFSKL   229
                                         RM       HERE                                                           COMFSKL   230
                                         X        SET    X+M.IEND                                                COMFSKL   231
                                                  VFD    "H""L""Q"                                               COMFSKL   232
                                         H        MICRO                                                          COMFSKL   233
                                         L        MICRO                                                          COMFSKL   234
                                         Q        MICRO                                                          COMFSKL   235
                                         ENDS     ENDM                                                           COMFSKL   236
  
  
  
  
                                        **        SETSPC  -  SET SPECIAL SKELETON.                               COMFSKL   238
                                        *                                                                        COMFSKL   239
                                        *         USED BY *CALL*, *RESET* AND *USESKL*, TO SET UP POINTERS       COMFSKL   240
                                        *         TO SPECIAL CODE THAT MUST BE EXECUTED AT THIS POINT IN         COMFSKL   241
                                        *         THE CURRENT SKELETON EXPANSION.                                COMFSKL   242
                                                                                                                 COMFSKL   243
                                                                                                                 COMFSKL   244
                                         SETSPC   MACRO  TYPE,AD,ARG                                             COMFSKL   245
                                                  VFD    "H""L""Q"                                               COMFSKL   246
                                         H        MICRO  1,,$SK.TYPL/X,SK.ATTRL/0,SK.ARGL/ARG,SK.JPADL/AD$       COMFSKL   247
                                         X        SET    TYPE                                                    COMFSKL   248
                                         L        MICRO                                                          COMFSKL   249
                                         Q        MICRO                                                          COMFSKL   250
                                         SKELAD   SET    SKELAD+1                                                COMFSKL   251
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    11
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.
  
                                         SETSPC   ENDM                                                           COMFSKL   252
  
  
  
  
                                        **        RESET  -  RESET CURRENT SKELETON POINTER.                      COMFSKL   254
                                        *                                                                        COMFSKL   255
                                        *         RESET *ARG* WORDS TO FIND NEXT TURPLE.                         COMFSKL   256
                                                                                                                 COMFSKL   257
                                                                                                                 COMFSKL   258
                                         RESET    MACRO  TO,ARG                                                  COMFSKL   259
                                         RM       RMT                                                            COMFSKL   260
                                                  SETSPC M.ISBRN,-TO,ARG                                         COMFSKL   261
                                         RM       RMT                                                            COMFSKL   262
                                         RESET    ENDM                                                           COMFSKL   263
  
  
  
  
                                        **        BRANCH  -  CONTINUE SKELETON ELSEWHERE.                        COMFSKL   265
                                        *                                                                        COMFSKL   266
                                        *         SKELETON POINTER RESET TO WITHIN OTHER SKELETON.               COMFSKL   267
                                                                                                                 COMFSKL   268
                                                                                                                 COMFSKL   269
                                         BRANCH   MACRO  TO,IJK                                                  COMFSKL   270
                                                  IRP    IJK                                                     COMFSKL   271
                                         IJK=     SET    IJK=+1                                                  COMFSKL   272
                                                  IRP                                                            COMFSKL   273
                                         RM       RMT                                                            COMFSKL   274
                                                  IRP    IJK                                                     COMFSKL   275
                                         IJK=     SET    IJK=-1                                                  COMFSKL   276
                                                  IRP                                                            COMFSKL   277
                                                  IFC    LT,/TO/=/,2                                             COMFSKL   278
                                                  SETSPC M.ISBRN,TO                                              COMFSKL   279
                                                  SKIP   1                                                       COMFSKL   280
                                                  SETSPC M.IRST,TO                                               COMFSKL   281
                                         RM       RMT                                                            COMFSKL   282
                                         BRANCH   ENDM                                                           COMFSKL   283
  
  
  
  
                                        **        MICNAM - GENERATE MICRO OF SKELETON NAME.                      COMFSKL   285
                                        *                                                                        COMFSKL   286
                                        *         GENERATED NAME IS --                                           COMFSKL   287
                                        *         A.  TRUNCATED TO FIVE CHARACTERS.                              COMFSKL   288
                                        *         B.  PREFIX 'IF' IS REMOVED FROM IF SKELS.                      COMFSKL   289
                                        *         C.  RULE (B.) DOES NOT APPLY TO 'IFIX'.                        COMFSKL   290
                                                                                                                 COMFSKL   291
                                                                                                                 COMFSKL   292
                                                  MACRO  MICNAM,MIC,NAME                                         COMFSKL   293
                                         MIC      MICRO  1,5,/NAME/                                              COMFSKL   294
                                         .A       MICRO  1,2,/NAME/                                              COMFSKL   295
                                                  IFC    EQ,/".A"/IF/,2                                          COMFSKL   296
                                                  IFC    NE,/NAME/IFIX/,1                                        COMFSKL   297
                                         MIC      MICRO  3,,/NAME/                                               COMFSKL   298
                                                  ENDM                                                           COMFSKL   299
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    12
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  SKEL
  
                                        **        SKEL - DECLARE BEGINNING OF A SKELETAL EXPANSION.              COMFSKL   302
                                        *                                                                        COMFSKL   303
                                                                                                                 COMFSKL   304
                                                                                                                 COMFSKL   305
                                                  MACRO  SKEL,NAME,CONPRO                                        COMFSKL   306
                                         STEM     MICNAM NAME                                                    COMFSKL   307
                                         U="STEM" SET    SKELAD                                                  COMFSKL   308
                                         W="STEM" EQU    SKELAD                                                  COMFSKL   309
                                         V="STEM" EQU    COUNT                                                   COMFSKL   310
                                         COUNT    SET    COUNT+1                                                 COMFSKL   311
                                         LBF      MICRO  1,8,/V="STEM"        /                                  COMFSKL   312
                                                  IFC    EQ,/CONPRO//,2                                          COMFSKL   313
                                         SCT RMT= ("LBF" VFD 6/0,18/W="STEM",18/=YD="STEM",18/U="STEM")          COMFSKL   314
                                                  SKIP   2                                                       COMFSKL   315
                                         CONPRO   MICNAM CONPRO                                                  COMFSKL   316
                                         SCT RMT= ("LBF" VFD 6/0,18/W="STEM",18/=YD="STEM",18/W="CONPRO")        COMFSKL   317
                                                  ENTRY  V="STEM"                                                COMFSKL   318
                                        *                            SET SKEL NAME TABLE IN TEST MODE            COMFSKL   319
                                         .T       IFEQ   TEST,ON,3                                               COMFSKL   320
                                                  USE    /SKLNAM/                                                COMFSKL   321
                                                  DIS    1,V="STEM"                                              COMFSKL   322
                                                  USE    *                                                       COMFSKL   323
                                         SKEL     ENDM                                                           COMFSKL   324
  
  
  
  
                                        **        SUBSKEL - DECLARE BEGINNING OF SUB-EXPANSION.                  COMFSKL   326
                                        *                                                                        COMFSKL   327
                                                                                                                 COMFSKL   328
                                                                                                                 COMFSKL   329
                                                  MACRO  SUBSKEL,NAM                                             COMFSKL   330
                                         STEM     MICNAM NAM                                                     COMFSKL   331
                                         W="STEM" EQU    SKELAD                                                  COMFSKL   332
                                                  ENTRY  W="STEM"                                                COMFSKL   333
                                                  ENDM                                                           COMFSKL   334
  
  
  
  
                                        **        SKEQU  -  EQUATE SKELETONS.                                    COMFSKL   336
                                                                                                                 COMFSKL   337
                                                                                                                 COMFSKL   338
                                                  MACRO  SKEQU,NEW,OLD,NOENT                                     COMFSKL   339
                                         OSM      MICNAM OLD                                                     COMFSKL   340
                                         NSM      MICNAM NEW                                                     COMFSKL   341
                                         W="NSM"  EQU    W="OSM"                                                 COMFSKL   342
                                         VEQU     RMT=   (V="NSM"   EQU    V="OSM")                              COMFSKL   343
                                        *                                                                        COMFSKL   344
                                                  IFC    NE,/NOENT/-/,1                                          COMFSKL   345
                                                  ENTRY  V="NSM"                                                 COMFSKL   346
                                         SKEQU    ENDM                                                           COMFSKL   347
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    13
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  SUBEQU
  
                                        **        SUBEQU - DEFINE EQUIVALENT PASS 2 SKELETON.                    COMFSKL   349
                                                                                                                 COMFSKL   350
                                                                                                                 COMFSKL   351
                                                  MACRO  SUBEQU,NEW,OLD                                          COMFSKL   352
                                         OSM      MICNAM OLD                                                     COMFSKL   353
                                         NSM      MICNAM NEW                                                     COMFSKL   354
                                         W="NSM"  EQUENT W="OSM"                                                 COMFSKL   355
                                                  ENDM                                                           COMFSKL   356
  
  
  
  
                                        **        CALL - CALL AN EXTERNAL PROCESSOR TO PROCESS/ OR PARTIALLY     COMFSKL   358
                                        *                PROCESS CURRENT TURPLE.                                 COMFSKL   359
                                        *                                                                        COMFSKL   360
                                        *         NOTE - CONVENTIONS EXPECTED BY THE CALL *ARG* PERAMETER ARE:   COMFSKL   361
                                        *                SKOP GENERATED CONSTANTS APPEAR IN CALL CALLS AS IS,    COMFSKL   362
                                        *                OTHER COMPILER CONSTANTS ARE PRIFIXED BY 0+             COMFSKL   363
                                        *                RELOCATABLES ARE PREFIXED WITH =X                       COMFSKL   364
                                                                                                                 COMFSKL   365
                                                                                                                 COMFSKL   366
                                                  PURGMAC CALL                                                   COMFSKL   367
                                                                                                                 COMFSKL   368
                                         CALL     MACRO  TO,ARG                                                  COMFSKL   369
                                         U="STEM" SET    0                                                       COMFSKL   370
                                         RM       RMT                                                            COMFSKL   371
                                         .1       IFEQ   .CG,.OPT                                                COMFSKL   372
                                                  SETSPC M.ICALL,0,0                                             COMFSKL   373
                                         .1       ELSE                                                           COMFSKL   374
                                                  IFC    NE, ARG  ,3                                             COMFSKL   375
                                                  IFC    LT, ARG 0 ,2                                            COMFSKL   376
                                                  SETSPC M.ICALL,=XO=TO,-ARG.                                    COMFSKL   377
                                                  SKIP   1                                                       COMFSKL   378
                                                  SETSPC M.ICALL,=XO=TO,ARG                                      COMFSKL   379
                                        .1        ENDIF                                                          COMFSKL   380
                                         RM       RMT                                                            COMFSKL   381
                                         CALL     ENDM                                                           COMFSKL   382
                                                                                                                 COMFSKL   383
  
  
  
  
                                        **        CALLQ AND CALLC - TO AVOID CONDITIONAL CODE IN THE             COMFSKL   385
                                        *         COMDECK SKEL THESE MACROS ARE DEFINED.                         COMFSKL   386
                                                                                                                 COMFSKL   387
                                                  IFEQ   .CG,.FAST,3                                             COMFSKL   388
                                         CALLQ    OPSYN  CALL                                                    COMFSKL   389
                                         CALLC    OPSYN  NIL                                                     COMFSKL   390
                                                  SKIP   2                                                       COMFSKL   391
                                         CALLC    OPSYN  CALL                                                    COMFSKL   392
                                         CALLQ    OPSYN  NIL                                                     COMFSKL   393
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    14
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  MICMIC
  
                                        **        MICMIC  -  GET MICRO OF A MICRO.                               COMFSKL   395
                                        *                                                                        COMFSKL   396
                                        *         MIC = RESULTING MICRO.                                         COMFSKL   397
                                        *         N   = STARTING CHARACTER POSITION.                             COMFSKL   398
                                        *         CMIC= CURRENT MICRO.                                           COMFSKL   399
                                                                                                                 COMFSKL   400
                                                                                                                 COMFSKL   401
                                                  MACRO  MICMIC,MIC,N,CMIC                                       COMFSKL   402
                                         MIC      MICRO  N,,/"CMIC"/                                             COMFSKL   403
                                         MICMIC   ENDM                                                           COMFSKL   404
                                                                                                                 COMFSKL   405
                                        *         END OF MACROS.                                                 COMFSKL   406
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    15
        TABLES AND EQUATES.                                           SKEL. 
  
                                         EQU.     OPSYN   EQU                                                    COMFSKL   408
                                                  PURGMAC EQU                                                    COMFSKL   409
                                                                                                                 COMFSKL   410
                                                  MACRO  EQU,LOC,VAR                                             COMFSKL   411
                                                  NOREF   LOC                                                    COMFSKL   412
                                         LOC      EQU.    VAR                                                    COMFSKL   413
                                                  ENDM                                                           COMFSKL   414
                                                                                                                 COMFSKL   415
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    16
        COMSEIS - SKELETON DESCRIPTION FOR QCG. 
  
             0                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
  
  
  
  
                                        **        SKELETON OP-CODE TYPE VALUES.                                  COMSEIS     4
                                                                                                                 COMSEIS     5
                                                                                                                 COMSEIS     6
                                         M.COND   EQU    0           CONDITIONAL                                 COMSEIS     7
                                         M.NORM   EQU    1           ARITHMETIC OP-CODES                         COMSEIS     8
                                         M.INCR   EQU    2           LOAD REGISTER OP-CODES                      COMSEIS     9
                                         M.BRAN   EQU    3           BRANCH OP-CODES                             COMSEIS    10
                                         M.SHIF   EQU    4           REGISTER SHIFT OP-CODES                     COMSEIS    11
                                         M.ICALL  EQU    5           IF NEEDS TO CALL A EXTERNAL PROCESSOR TO    COMSEIS    12
                                         M.INOOP  EQU    6           SPECIAL TYPE FOR NOOPS                      COMSEIS    13
                                         M.ISBRN  EQU    7           TYPE FOR A BRANCH TO OTHER SKELS            COMSEIS    14
                                         M.LOAD   EQU    10B         LOAD/STORE INSTRUCTIONS                     COMSEIS    15
                                         M.RND    EQU    21B         M.NORM + THE ROUNDABLE BIT.                 COMSEIS    16
                                         M.IEND   EQU    40B         END OF SKELETON                             COMSEIS    17
                                         P.IEND   EQU    59                                                      COMSEIS    18
  
  
  
  
                                        **        SK. - WORD FORMAT OF SKELETON INSTRUCTION.                     COMSEIS    20
                                                                                                                 COMSEIS    21
                                                                                                                 COMSEIS    22
                                                  DESCRIBE  SK.,60                                               COMSEIS    23
      L     73  40000000000000000000     END      DEFINE 1                                                       COMSEIS    24
      L     72  20000000000000000000     RND      DEFINE 1                                                       COMSEIS    25
      L     66  77000000000000000000     TYP      DEFINE 6,59                                                    COMSEIS    26
      L     60  00770000000000000000     GH       DEFINE 6                                                       COMSEIS    27
      L     55  00777000000000000000     OPC      DEFINE 9,53                                                    COMSEIS    28
      L     42  00000777600000000000     IF       DEFINE 11                                                      COMSEIS    29
      L     27  00000000177740000000     JF       DEFINE 11                                                      COMSEIS    30
      L     14  00000000000037770000     KF       DEFINE 11                                                      COMSEIS    31
             0  00000000000000007777     QF       DEFINE 12                                                      COMSEIS    32
      L     44  00777777000000000000     ATTR     DEFINE 18,53                                                   COMSEIS    33
      L     22  00000000777777000000     ARG      DEFINE 18                                                      COMSEIS    34
             0  00000000000000777777     JPAD     DEFINE 18                                                      COMSEIS    35
  
  
  
  
                                        **        SR.      -- SKELETON REGISTER/CONSTANT FIELD --                COMSEIS    37
                                        *                THE SR. STRUCTURE IS A SUB-STRUCTURE OF SK. IT          COMSEIS    38
                                        *                RESIDES IN THE SK.I, SK.J, AND SK.K FIELDS.             COMSEIS    39
                                        *                THESE FIELDS CONTROL THE CONSTRUCTION IF THE            COMSEIS    40
                                        *                I, J, AND K/Q PORTION OF A PREBINARY WORD.              COMSEIS    41
                                                                                                                 COMSEIS    42
                                                  DESCRIBE   SR.,11                                              COMSEIS    43
                                3700     OAD      DEFINE 5                                                       COMSEIS    44
                                0077     NUM      DEFINE 6                                                       COMSEIS    45
                                                                                                                 COMSEIS    46
                                                  ENDX                                                           COMSEIS    47
                                                                                                                 COMFSKL   417
                                                  PURGMAC EQU                                                    COMFSKL   418
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    17
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SR
  
                                         EQU      OPSYN   EQU.                                                   COMFSKL   419
                                                                                                                 COMFSKL   420
                                                                                                                 COMFSKL   421
                                        *         MICROS USED DURING SKELETON CONSTRUCTION TO DEFINE A           COMFSKL   422
                                        *         PARTICULAR TYPE OF OPERATION, OPERAND OR CONSTANT.             COMFSKL   423
                                                                                                                 COMFSKL   424
                                         N1       MICRO  1,, P2            IF-BRANCH 1ST LABEL                   COMFSKL   425
                                         N2       MICRO  1,, P3            IF-BRANCH 2ND LABEL                   COMFSKL   426
                                         N3       MICRO  1,, P4            IF-BRANCH 3RD LABEL                   COMFSKL   427
                                         K-1      MICRO  1,, +777776B      MINUS ONE                             COMFSKL   428
                                         TBR      MICRO  1,, B6            TEMPORARY B-REGISTER                  COMFSKL   429
                                         IR       MICRO  1,, X6            DO INDEX REGISTER.                    COMFSKL   430
                                                                                                                 COMFSKL   431
                                        **        MUST DEFINE B0.,...,X7. MICROS.                                COMFSKL   432
                                        *         EACH OF THESE MICROS JUST EQUALS THE REGISTER NUMBER           COMFSKL   433
                                        *         X6. = 6, ETC.                                                  COMFSKL   434
                                                                                                                 COMFSKL   435
                                                  NOREF  .RCON                                                   COMFSKL   436
                                   0     .RCON    SET    0                                                       COMFSKL   437
                                  10     .1       DUP    8                                                       COMFSKL   438
                                         RCON     DECMIC .RCON                                                   COMFSKL   439
                                         A_"RCON"_. MICRO    1,,/"RCON"/                                         COMFSKL   440
                                         B_"RCON"_. MICRO    1,,/"RCON"/                                         COMFSKL   441
                                         X_"RCON"_. MICRO    1,,/"RCON"/                                         COMFSKL   442
                                         .RCON    SET    .RCON+1                                                 COMFSKL   443
                                         .1       ENDD                                                           COMFSKL   444
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    18
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SKOP
  
                                        **        INITIALIZE ASSEMBLER VALUES FOR SKELETON EXPANAION.            COMFSKL   446
                                                                                                                 COMFSKL   447
                                        **        SKOP   - SKELETON OPERAND MACRO. SETS ASSEMBLY CONSTANTS       COMFSKL   448
                                        *                FOR IJK PARAMETERS OF THE INSTRUCTION MACROS.           COMFSKL   449
                                        *                                                                        COMFSKL   450
                                        *         CONSTANTS SET:                                                 COMFSKL   451
                                        *                                                                        COMFSKL   452
                                        *         OP_N.  ALSO KNOWN AS IJK. IN SETOTH, IS SET BY SKOP.           COMFSKL   453
                                        *                OP_N. IS USED TO SET THE SR.NUM FIELD. N STANDS         COMFSKL   454
                                        *                FOR SOME INTEGER WHICH IS GIVEN BY THE MICRO Z          COMFSKL   455
                                        *                WITHIN THE SKOP MACRO BODY.                             COMFSKL   456
                                        *                EXAMPLE: SKOP DEFINES R1.,L1. AND L2. THESE VALUES      COMFSKL   457
                                        *                THEN FILL THE I,J,AND K SR.NUM FIELDS WHENEVER A        COMFSKL   458
                                        *                MACRO CALL LIKE - IS   R1,L1,L2 - OCCURS.               COMFSKL   459
                                        *                                                                        COMFSKL   460
                                        *         OP_N=  AKA IJK=, IS INITIALIZED HERE TO ZERO. OP_N= IS         COMFSKL   461
                                        *                THE COUNTER USED FOR LAST USE CALCULATIONS. N IS        COMFSKL   462
                                        *                LIKE THE N FOR OP_N..                                   COMFSKL   463
                                        *                                                                        COMFSKL   464
                                        *         AT.OP_N AND ZT.OP_N                                            COMFSKL   465
                                        *                                                                        COMFSKL   466
                                        *                AKA AT.IJK AND ZT.IJK, ARE SET HERE. THEY ARE           COMFSKL   467
                                        *                EMPLOYED AS ORDINALS INTO THE MAIN EIS JUMP TABLE.      COMFSKL   468
                                        *                WHEN AN OPERAND IS NOT BEING USED FOR THE LAST          COMFSKL   469
                                        *                TIME WITHIN A SKELETON, AT.OP_N IS THE ORDINAL.         COMFSKL   470
                                        *                OTHERWISE ZT.OP_N IS USED.(N CHOSEN AS IN OP_N.)        COMFSKL   471
                                        *                                                                        COMFSKL   472
                                        *         THE PERAMETERS:                                                COMFSKL   473
                                        *                                                                        COMFSKL   474
                                        *         OP     THE ROOT LETTER OR COMBINATION OF LETTERS USED AS       COMFSKL   475
                                        *                PERAMETES IN AN INSTRUCTION SKELETON.(AS IN L OF L1     COMFSKL   476
                                        *                AND L2 OR RU OF RU1,RU2). FOR CONSTANTS OR ADDRESS      COMFSKL   477
                                        *                REFERENCES OP NEVER ACTUALLY APPEARS IN THE IN-         COMFSKL   478
                                        *                STRUCTION MACRO CALL. IN THESE CASES IT IS Q OR S.      COMFSKL   479
                                        *                                                                        COMFSKL   480
                                        *         LAST AND NOTLAST -                                             COMFSKL   481
                                        *                                                                        COMFSKL   482
                                        *                THESE PARMS ARE USED TO DETERMINE IF THE                COMFSKL   483
                                        *                ORDINALS ZT.OP_N AND AT.OP_N ARE GENERATED.             COMFSKL   484
                                        *                                                                        COMFSKL   485
                                        *         FTYP   FUNCTION TYPE: A CENTRAL TASK OF SKOP IS TO             COMFSKL   486
                                        *                DEFINE THE FUNCTION WHICH MAPS N INTO OP_N..            COMFSKL   487
                                        *                THIS FUNCTION,IS ENTIRELY DITERMINED BY THE             COMFSKL   488
                                        *                FOUR CONSTANTS:                                         COMFSKL   489
                                        *                                                                        COMFSKL   490
                                        *                SKL.FTYP    SKOP DOMAIN LOWER LIMIT                     COMFSKL   491
                                        *                SKU.FTYP    SKOP DOMAIN UPPER LIMIT                     COMFSKL   492
                                        *                SKM.FTYP    INCREMENT MODULES(MOD)                      COMFSKL   493
                                        *                SKO.FTYP    SKOP RANGE OFFSET                           COMFSKL   494
                                        *                                                                        COMFSKL   495
                                        *                ALL ARE CREATED BY SKPSET. OUR FUNCTION MAPS            COMFSKL   496
                                        *                THE SET (SKL.FTYP,SKL.FTYP+1,...,SKU.FTYP)INTO A RANGE  COMFSKL   497
                                        *                BOUNDED BELOW BY SKL.FTYP-SKO.FTYP. IT IS THE INTEGER   COMFSKL   498
                                        *                FUNCTION GIVEN RECURSIVELY BY:                          COMFSKL   499
                                        *                                                                        COMFSKL   500
                                        *                OP_N. = OP_N-1. + MAX(SKM.FTYP,1) ... SKM.FTYP.GE.0     COMFSKL   501
                                        *                OP_N. = OP_N-1. + 1 + SWITCH(N)   ... SKM.FTYP.LT.0     COMFSKL   502
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    19
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SKOP
  
                                        *                                                                        COMFSKL   503
                                        *                WHERE OP_SKL.FTYP-1.=SKL.FTYP+SKO.FTYP-MAX(SKM.FTYP,1)  COMFSKL   504
                                        *                      SWITCH(N)=1 IF N=0 MOD(SKM.FTYP) AND 0 OTHERWISE  COMFSKL   505
                                        *                                                                        COMFSKL   506
                                        *                                                                        COMFSKL   507
                                        *         OPEQ   SIGNALS SKOP TO SET AT.OP_N AND/OR ZT.OP_N              COMFSKL   508
                                        *                EQUAL TO AT.OPEQ_N AND/OR ZT.OPEQ_N RESP.               COMFSKL   509
                                        *                                                                        COMFSKL   510
                                        *         WARNING REMEMBER TO DEFINE AT.OPEQ_N AND ZT.OPEQ_N             COMFSKL   511
                                        *         FIRST. ALSO, THE SKOP CALL STRUCTURES MUST BE THE SAME         COMFSKL   512
                                                                                                                 COMFSKL   513
                                                                                                                 COMFSKL   514
                                                  MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ,CON                      COMFSKL   515
                                         C        SET    1                                                       COMFSKL   516
                                                  IFC    NE, OPEQ  ,1                                            COMFSKL   517
                                         C        SET    0                                                       COMFSKL   518
                                                  IFC    NE,/NOTLAST/NONE/,3                                     COMFSKL   519
                                         AT.      SET    T.IND                                                   COMFSKL   520
                                         AT.OP    SET    AT.OPEQ                                                 COMFSKL   521
                                         T.IND    SET    T.IND+C                                                 COMFSKL   522
                                                  IFC    NE,/LAST/NONE/,5                                        COMFSKL   523
                                                  IFC    NE,/LAST/NOTLAST/,4                                     COMFSKL   524
                                         ZT.      SET    T.IND                                                   COMFSKL   525
                                         ZT.OP    SET    ZT.OPEQ                                                 COMFSKL   526
                                         T.IND    SET    T.IND+C                                                 COMFSKL   527
                                                  SKIP   1                                                       COMFSKL   528
                                         ZT.OP    SET    AT.OP                                                   COMFSKL   529
                                         B        MAX    1,SKM.FTYP                                              COMFSKL   530
                                         C        SET    SKL.FTYP+SKO.FTYP                                       COMFSKL   531
                                         A        SET    SKL.FTYP                                                COMFSKL   532
                                         Z        SET    SKL.FTYP                                                COMFSKL   533
                                                  DUP    SKU.FTYP/B-SKL.FTYP/B+1                                 COMFSKL   534
                                         Z        DECMIC Z                                                       COMFSKL   535
                                                  NOREF  OP"Z"=                                                  COMFSKL   536
                                         OP"Z"=   SET    0                                                       COMFSKL   537
                                                  IFLT   SKM.FTYP,0,3                                            COMFSKL   538
                                                  IFEQ   SKM.FTYP+A,0,2                                          COMFSKL   539
                                         A        SET    B                                                       COMFSKL   540
                                         C        SET    C+B                                                     COMFSKL   541
                                                  NOREF  OP"Z".                                                  COMFSKL   542
                                         OP"Z".   EQU    C                                                       COMFSKL   543
                                                  IFC    NE,/CON//,2                                             COMFSKL   544
                                                  NOREF  OP"Z".C                                                 COMFSKL   545
                                         OP"Z".C  SET    1                                                       COMFSKL   546
                                         A        SET    A+B                                                     COMFSKL   547
                                         C        SET    C+B                                                     COMFSKL   548
                                         Z        SET    Z+1                                                     COMFSKL   549
                                                  IFC    NE,/NOTLAST/NONE/,2                                     COMFSKL   550
                                                  NOREF  AT.OP"Z"                                                COMFSKL   551
                                         AT.OP"Z" EQU    AT.OP                                                   COMFSKL   552
                                                  IFC    NE,/LAST/NONE/,2                                        COMFSKL   553
                                                  NOREF  ZT.OP"Z"                                                COMFSKL   554
                                         ZT.OP"Z" EQU    ZT.OP                                                   COMFSKL   555
                                                  ENDD                                                           COMFSKL   556
                                         SKOP     ENDM                                                           COMFSKL   557
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    20
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SKOP
  
                                        **        CONSTANTS NEEDED FOR SKOP CALLS                                COMFSKL   559
                                                                                                                 COMFSKL   560
                                   0     T.IND    SET    0                                                       COMFSKL   561
                                                                                                                 COMFSKL   562
                                        **        SET THE SKOP NUM SELECTION PARAMETERS                          COMFSKL   563
                                                                                                                 COMFSKL   564
             0                           SKPSET   CTEXT                                                          SKPSET      2
  
  
  
  
                                        **        SKPSET - SETS THE FTYP CONSTANTS WHICH DETERMINE THE           SKPSET      4
                                        *                  SK.NUM FIELDS. SEE SKOP MACRO DOCUMENTATION.          SKPSET      5
                                                                                                                 SKPSET      6
                                                  MACRO  SKPSET,FTYP,LL,UL,MODULES,OFFSET                        SKPSET      7
                                         SKL.FTYP SET    LL                                                      SKPSET      8
                                         SKU.FTYP SET    UL                                                      SKPSET      9
                                         SKM.FTYP SET    MODULES                                                 SKPSET     10
                                         SKO.FTYP SET    OFFSET                                                  SKPSET     11
                                         SKPSET   ENDM                                                           SKPSET     12
                                         SKPSET   ENDX                                                           SKPSET     13
             0                           SKPCONQ  CTEXT                                                          SKPCONQ     2
  
  
  
  
                                         RG       SKPSET 0,7,1,0                                                 SKPCONQ     4
                                         OP       SKPSET 1,6,-Z=TURP,0                                           SKPCONQ     5
                                         TMP      SKPSET 1,20,1,-1                                               SKPCONQ     6
                                         CON      SKPSET 0,0,1,0                                                 SKPCONQ     7
                                         GOP      SKPSET 1,6,1,-1                                                SKPCONQ     8
                                         SKPCONQ  ENDX                                                           SKPCONQ     9
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    21
        SKOP - EIS TO QSKEL LINKAGE                                   SKOP
  
                                        ***       SKOP - THE EIS TO QSKEL LINKAGE.                               COMFSKL   568
                                        *                                                                        COMFSKL   569
                                        *         THE SKOP COMDECK IS CALLED BY DECKS WHICH REFER TO THE         COMFSKL   570
                                        *         (AT.) SYMBOLS.                                                 COMFSKL   571
                                        *                                                                        COMFSKL   572
                                        *         QSKEL- HERE THE SKOP COMDECK SETS ASSEMBLER CONSTANTS          COMFSKL   573
                                        *                WHICH ARE ORDINALS INTO THE SKOP TABLE OF EIS,          COMFSKL   574
                                        *                AND SETS OTHER CONSTANTS NEEDED FOR SKELETON            COMFSKL   575
                                        *                GENERATION IN QSKEL.                                    COMFSKL   576
                                        *                                                                        COMFSKL   577
                                        *         EIS  - HERE SKOP GENERATES THE BASIC JUMP TABLE (SKOP)         COMFSKL   578
                                        *                WHICH CONTROLS THE CONSTRUCTION OF A NORMAL PRE-        COMFSKL   579
                                        *                BINARY INSTRUCTION. TABLE ENTRIES HAVE THE FORMAT:      COMFSKL   580
                                        *                30/0,30/EIS.NOTLAST OR EIS.LAST.                        COMFSKL   581
  
  
  
  
                                        **        EIS INTERNAL FLOW DRIVEN BY SKOP.                              COMFSKL   583
                                        *                                                                        COMFSKL   584
                                        *         ***IMPORTANT**FACT***                                          COMFSKL   585
                                        *                                                                        COMFSKL   586
                                        *                COMPLETE KNOWLEDGE OF THE FLOW OF EIS CAN BE OB-        COMFSKL   587
                                        *                TAINED BY CORRELATING THE SKELETON INSTRUCTION          COMFSKL   588
                                        *                MACRO CALLS WITH SKOP ENTRIES.                          COMFSKL   589
                                        *                                                                        COMFSKL   590
                                        *                EXAMPLE: TO DETERMINE HOW EIS PROCESSES                 COMFSKL   591
                                        *                                                                        COMFSKL   592
                                        *                         IS     R1,L1,L2                                COMFSKL   593
                                        *                                                                        COMFSKL   594
                                        *                LOOK AT THE SKOP ENTRIES:                               COMFSKL   595
                                        *                                                                        COMFSKL   596
                                        *                R        SKOP   NONE,IR,OP  AND                         COMFSKL   597
                                        *                L        SKOP   LNU,L,OP                                COMFSKL   598
                                        *                                                                        COMFSKL   599
                                        *                SEE THE SKOP MACRO HEADER. FLOW PASSES THROUH           COMFSKL   600
                                        *                THE PROCESSORS EIS.NOTLAST OR EIS.LAST. SO, IN          COMFSKL   601
                                        *                OUR EXAMPLE FLOW IS THROUGH EIS.L, EIS.LNU, OR          COMFSKL   602
                                        *                EIS.IR (A *NONE* IMPLIES NO PROCESSOR). IF A PAR-       COMFSKL   603
                                        *                AMETER IS BEING USED FOR THE LAST TIME WITHIN A         COMFSKL   604
                                        *                CODE SKELETON THE PROCESSOR CHOSEN IS EIS.LAST (EIS.L   COMFSKL   605
                                        *                OR EIS.IR IN OUR EXAMPLE). FOR NOT LAST USE CHOOSE      COMFSKL   606
                                        *                THE PROCESSOR EIS.NOTLAST (EIS.LNU).                    COMFSKL   607
                                        *                                                                        COMFSKL   608
                                        *                NOW, TO DETERMINE FLOW:   READ THE INSTRUCTION          COMFSKL   609
                                        *                PERAMETERS FROM RIGHT TO LEFT. THIS IS THE ORDER OF     COMFSKL   610
                                        *                FLOW. IT IS A FACT THAT THE EIS.IR PROCESSOR IS A       COMFSKL   611
                                        *                TERMINAS PROCESSOR, SO IN OUR EXAMPLE WE KNOW ALL       COMFSKL   612
                                        *                PERAMETERS ARE IN A LAST USE CASE. SO, FLOW PASSES      COMFSKL   613
                                        *                FROM EIS.L TO EIS.L TO EIS.IR.                          COMFSKL   614
                                                                                                                 COMFSKL   615
             0                           SKOP     CTEXT                                                          SKOP        2
                                                                                                                 SKOP        3
                                                                                                                 SKOP        4
                                         A        SKOP   AA,CA,RG                                                SKOP        5
                                         B        SKOP   AB,CB,RG                                                SKOP        6
                                         X        SKOP   AX,CX,RG                                                SKOP        7
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    22
        SKOP - EIS TO QSKEL LINKAGE                                   EIS 
  
                                         L        SKOP   LNU,L,OP,,CON                                           SKOP        8
                                         LU       SKOP   LNU,L,OP,L,CON                                          SKOP        9
                                         LL       SKOP   LNL,LL,OP,,CON                                          SKOP       10
                                         P        SKOP   P,P,OP                                                  SKOP       11
                                         R        SKOP   NONE,IR,OP,,CON                                         SKOP       12
                                         RU       SKOP   NONE,IR,OP,R,CON                                        SKOP       13
                                         RL       SKOP   NONE,IRL,OP,,CON                                        SKOP       14
                                         GP       SKOP   GP,GP,GOP                                               SKOP       15
                                         GL       SKOP   GLN,GL,GOP                                              SKOP       16
                                         GLU      SKOP   GLN,GL,GOP,GL                                           SKOP       17
                                         GLL      SKOP   GLNL,GLL,GOP                                            SKOP       18
                                         T        SKOP   AT,CT,TMP,,CON                                          SKOP       19
                                         Q        SKOP   Q,NONE,CON                                              SKOP       20
                                         S        SKOP   S,NONE,CON                                              SKOP       21
                                         K        SKOP   K,NONE,CON                                              SKOP       22
                                                  ENDX                                                           SKOP       23
                                                                                                                 COMFSKL   617
                                   1     B6.C     SET    1           ALLOW B6 AS CONREDUCED OPERAND              COMFSKL   618
                                                  NOREF  SKELAD                                                  COMFSKL   619
                                   0     SKELAD   SET    0                                                       COMFSKL   620
                                   0     COUNT    SET    0           INITIALIZE COUNT OF SKELS                   COMFSKL   621
                                                                                                                 COMFSKL   622
                                                                                                                 COMFSKL   623
                                                  LIST   -X          COMSQRF IS LISTED IN DECK *QUIK*            COMFSKL   624
                                                  LIST   *                                                       COMFSKL   626
                                        **        DEFINE INSTRUCTION MACROS                                      COMFSKL   627
                                                                                                                 COMFSKL   628
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    23
        DEFINS - DEFINE MACHINE OPCODES.
  
             0                                    CTEXT  DEFINS - DEFINE MACHINE OPCODES.                        DEFINS      2
  
  
  
  
                                        *         PSUEDO-OPS WHICH OCCUR BETWEEN BMI/EMI.                        DEFINS      4
                                                                                                                 DEFINS      5
                                        **        HARD NUMBERS ARE USED FOR FLOATING POINT                       DEFINS      6
                                        *         OPCODES IN THE ROUNDABLE OPCODE PLUGGING                       DEFINS      7
                                        *         ROUTINE, ROR (IN COMFROR). IT WAS FELT THAT                    DEFINS      8
                                        *         A DEFINS CALL FOR THE EXPRESSED PURPOSE OF                     DEFINS      9
                                        *         SYMBOLICALLY DEFINING 4 PERMANT CONSTANTS                      DEFINS     10
                                        *         WOULD BE EXCESSIVE.                                            DEFINS     11
                                                                                                                 DEFINS     12
                                                                                                                 DEFINS     13
                                         JPQ      DEFPO  I.JPI       INDEXED JUMP                                DEFINS     14
                                         RJ3      DEFPO  I.RJ3       30-BIT RETURN JUMP                          DEFINS     15
                                         UJP      DEFPO  I.UJP       UNCONDITIONAL JUMP                          DEFINS     16
                                         LABL     DEFPO  I.BSS       DEFINE LABEL TAG                            DEFINS     17
                                                                                                                 DEFINS     18
                                                                                                                 DEFINS     19
                                        *         DIRECT ACCESS LCM.                                             DEFINS     20
                                                                                                                 DEFINS     21
                                         DRL      DEFINS 014,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE    DEFINS     22
                                         DWL      DEFINS 015,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE    DEFINS     23
                                                                                                                 DEFINS     24
                                                                                                                 DEFINS     25
                                        *                            CONDITIONAL BRANCHES.                       DEFINS     26
                                                                                                                 DEFINS     27
                                         ZR       DEFINS 030,M.BRAN                                              DEFINS     28
                                         NZ       DEFINS 031,M.BRAN                                              DEFINS     29
                                         PL       DEFINS 032,M.BRAN                                              DEFINS     30
                                         MI       DEFINS 033,M.BRAN                                              DEFINS     31
                                                                                                                 DEFINS     32
                                         IR       DEFINS 034,M.BRAN                                              DEFINS     33
                                         ORJ      DEFINS 035,M.BRAN                                              DEFINS     34
                                         DFJ      DEFINS 036,M.BRAN                                              DEFINS     35
                                         IDJ      DEFINS 037,M.BRAN                                              DEFINS     36
                                                                                                                 DEFINS     37
                                         EQB      DEFINS 040,M.BRAN                                              DEFINS     38
                                         NEB      DEFINS 050,M.BRAN                                              DEFINS     39
                                         LEB      DEFINS 060,M.BRAN                                              DEFINS     40
                                         GEB      DEFINS 060,M.BRAN                                              DEFINS     41
                                         LTB      DEFINS 070,M.BRAN                                              DEFINS     42
                                         GTB      DEFINS 070,M.BRAN                                              DEFINS     43
                                                                                                                 DEFINS     44
                                                                                                                 DEFINS     45
                                        *                            BOOLEAN UNIT.                               DEFINS     46
                                                                                                                 DEFINS     47
                                         XMT      DEFINS 10,M.SHIF                                               DEFINS     48
                                         AND      DEFINS 11,M.NORM                                               DEFINS     49
                                         OR       DEFINS 12,M.NORM                                               DEFINS     50
                                         XOR      DEFINS 13,M.NORM                                               DEFINS     51
                                         NEQV     DEFINS 13,M.NORM                                               FC51485    13
                                         CLR      DEFINS 13,M.NORM                                               DEFINS     52
                                         XMTC     DEFINS 14,M.NORM                                               DEFINS     53
                                         STR      DEFINS 15,M.NORM                                               DEFINS     54
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    24
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                         IMP      DEFINS 16,M.NORM                                               DEFINS     55
                                         EQV      DEFINS 17,M.NORM                                               DEFINS     56
                                                                                                                 DEFINS     57
                                                                                                                 DEFINS     58
                                        *                            SHIFT UNIT.                                 DEFINS     59
                                                                                                                 DEFINS     60
                                         KLS      DEFINS 20,M.SHIF                                               DEFINS     61
                                         KRS      DEFINS 21,M.SHIF                                               DEFINS     62
                                         ILS      DEFINS 22,M.SHIF                                               DEFINS     63
                                         IRS      DEFINS 23,M.SHIF                                               DEFINS     64
                                         NR       DEFINS 24,M.NORM                                               DEFINS     65
                                         RNR      DEFINS 25,M.NORM                                               DEFINS     66
                                         UP       DEFINS 26,M.NORM                                               DEFINS     67
                                         PK       DEFINS 27,M.NORM                                               DEFINS     68
                                         FMA      DEFINS 43,M.NORM                                               DEFINS     69
                                                                                                                 DEFINS     70
                                        *                            ADD UNIT.                                   DEFINS     71
                                                                                                                 DEFINS     72
                                         FA       DEFINS 30,M.NORM                                               DEFINS     73
                                         FS       DEFINS 31,M.NORM                                               DEFINS     74
                                         FAR      DEFINS 30,M.RND                                                DEFINS     75
                                         FSR      DEFINS 31,M.RND                                                DEFINS     76
                                         DFA      DEFINS 32,M.NORM                                               DEFINS     77
                                         DFS      DEFINS 33,M.NORM                                               DEFINS     78
                                         RFA      DEFINS 34,M.NORM                                               DEFINS     79
                                         RFS      DEFINS 35,M.NORM                                               DEFINS     80
                                                                                                                 DEFINS     81
                                                                                                                 DEFINS     82
                                        *                            LONG ADD UNIT.                              DEFINS     83
                                                                                                                 DEFINS     84
                                         IA       DEFINS 36,M.NORM                                               DEFINS     85
                                         IS       DEFINS 37,M.NORM                                               DEFINS     86
                                                                                                                 DEFINS     87
                                                                                                                 DEFINS     88
                                        *                            MULTIPLY UNIT.                              DEFINS     89
                                                                                                                 DEFINS     90
                                         FM       DEFINS 40,M.NORM                                               DEFINS     91
                                         FMR      DEFINS 40,M.RND                                                DEFINS     92
                                         RFM      DEFINS 41,M.NORM                                               DEFINS     93
                                         DFM      DEFINS 42,M.NORM                                               DEFINS     94
                                         IM       DEFINS 42,M.NORM                                               DEFINS     95
                                                                                                                 DEFINS     96
                                                                                                                 DEFINS     97
                                        *                            DIVIDE UNIT.                                DEFINS     98
                                                                                                                 DEFINS     99
                                         FD       DEFINS 44,M.NORM                                               DEFINS    100
                                         FDR      DEFINS 44,M.RND                                                DEFINS    101
                                         RFD      DEFINS 45,M.NORM                                               DEFINS    102
                                         NOP      DEFINS 46,M.NORM                                               DEFINS    103
                                         CX       DEFINS 47,M.NORM                                               DEFINS    104
                                                                                                                 DEFINS    105
                                                                                                                 DEFINS    106
                                        *                            INCREMENT UNIT.                             DEFINS    107
                                                                                                                 DEFINS    108
                                         SA=AK    DEFINS 50,M.INCR                                               DEFINS    109
                                         SA=BK    DEFINS 51,M.INCR                                               DEFINS    110
                                         SA=XK    DEFINS 52,M.INCR                                               DEFINS    111
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    25
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                         SA=XB    DEFINS 53,M.INCR                                               DEFINS    112
                                         SA=AB    DEFINS 54,M.INCR                                               DEFINS    113
                                         SA=AMB   DEFINS 55,M.INCR                                               DEFINS    114
                                         SA=BB    DEFINS 56,M.INCR                                               DEFINS    115
                                         SA=BMB   DEFINS 57,M.INCR                                               DEFINS    116
                                                                                                                 DEFINS    117
                                         SB=AK    DEFINS 60,M.INCR                                               DEFINS    118
                                         SB=BK    DEFINS 61,M.INCR                                               DEFINS    119
                                         SB=XK    DEFINS 62,M.INCR                                               DEFINS    120
                                         SB=XB    DEFINS 63,M.INCR                                               DEFINS    121
                                         SB=AB    DEFINS 64,M.INCR                                               DEFINS    122
                                         SB=AMB   DEFINS 65,M.INCR                                               DEFINS    123
                                         SB=BB    DEFINS 66,M.INCR                                               DEFINS    124
                                         SB=BMB   DEFINS 67,M.INCR                                               DEFINS    125
                                                                                                                 DEFINS    126
                                                                                                                 DEFINS    127
                                         SX=AK    DEFINS 70,M.INCR                                               DEFINS    128
                                         SX=BK    DEFINS 71,M.INCR                                               DEFINS    129
                                         SX=XK    DEFINS 72,M.INCR                                               DEFINS    130
                                         SX=XB    DEFINS 73,M.INCR                                               DEFINS    131
                                         SX=AB    DEFINS 74,M.INCR                                               DEFINS    132
                                         SX=AMB   DEFINS 75,M.INCR                                               DEFINS    133
                                         SX=BB    DEFINS 76,M.INCR                                               DEFINS    134
                                         SX=BMB   DEFINS 77,M.INCR                                               DEFINS    135
                                                                                                                 DEFINS    136
                                         LD       DEFINS 50,M.LOAD                                               DEFINS    137
                                         LDB      DEFINS 60,M.LOAD                                               DEFINS    138
                                         ST       DEFINS 50,M.LOAD                                               DEFINS    139
                                                                                                                 DEFINS    140
                                                                                                                 DEFINS    141
                                                  ENDX                                                           DEFINS    142
                                                                                                                 COMFSKL   630
                                        **        SPECIAL CASE INSTRUCTIONS                                      COMFSKL   631
                                                                                                                 COMFSKL   632
                                        IAZ       OPSYN  IA                                                      COMFSKL   633
                                        ISZ       OPSYN  IS                                                      COMFSKL   634
                                        PNR       OPSYN  NR                                                      COMFSKL   635
                                                                                                                 COMFSKL   636
                                                  MACRO  DEF,AD,I,J,K                                            COMFSKL   637
                                         AD       XMT    I,K                                                     COMFSKL   638
                                                  ENDM                                                           COMFSKL   639
                                                                                                                 COMFSKL   640
                                        **        KLS AND KRS EXPAND TO TWO INSTRUCTION WORDS                    COMFSKL   641
                                        *         DURING QCG ASSEMBLY-TIME SKELETON CONSTRUCTION.                COMFSKL   642
                                        *         FMA IS MADE COMPATIBLE WITH CCG VERSION.                       COMFSKL   643
                                                                                                                 COMFSKL   644
                                         FMA.     OPSYN  FMA                                                     COMFSKL   645
                                         KLS.     OPSYN  KLS                                                     COMFSKL   646
                                         KRS.     OPSYN  KRS                                                     COMFSKL   647
                                                  PURGMAC FMA,KLS,KRS                                            COMFSKL   648
                                                                                                                 COMFSKL   649
                                                                                                                 COMFSKL   650
                                                  MACRO  FMA,AD,I,JK                                             COMFSKL   651
                                         AD       FMA.   I,,JK                                                   COMFSKL   652
                                         FMA      ENDM                                                           COMFSKL   653
                                                                                                                 COMFSKL   654
                                                  MACRO  KLS,AD,I,J,K                                            COMFSKL   655
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    26
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                         AD       XMT   I,J                                                      COMFSKL   656
                                                  KLS.   I,,K                                                    COMFSKL   657
                                         KLS      ENDM                                                           COMFSKL   658
                                                                                                                 COMFSKL   659
                                                  MACRO  KRS,AD,I,J,K                                            COMFSKL   660
                                         AD       XMT   I,J                                                      COMFSKL   661
                                                  KRS.   I,,K                                                    COMFSKL   662
                                         KRS      ENDM                                                           COMFSKL   663
                                                                                                                 COMFSKL   664
                                                  MACRO  XMTL,AD,I,J,K                                           COMFSKL   665
                                         OP       MICRO  1,1,/K/                                                 COMFSKL   666
                                                  IFC    EQ,/"OP"/G/,1                                           COMFSKL   667
                                         OP       MICRO  2,1,/K/                                                 COMFSKL   668
                                                  IFC    EQ,/"OP"/L/,3                                           COMFSKL   669
                                        AD        XMT    I,I                                                     COMFSKL   670
                                                  LD     K,,+R.I                                                 COMFSKL   671
                                                  SKIP   1                                                       COMFSKL   672
                                         AD       SA=BK  I,,K                                                    COMFSKL   673
                                         XMTL     ENDM                                                           COMFSKL   674
                                                                                                                 COMFSKL   675
                                                  MACRO  RJT,AD,TO                                               COMFSKL   676
                                         AD       CALL   CRJ,TO                                                  COMFSKL   677
                                         RJT      ENDM                                                           COMFSKL   678
                                                                                                                 COMFSKL   679
                                                  PURGMAC            LOAD                                        COMFSKL   680
                                                                                                                 COMFSKL   681
                                                  MACRO  LOAD,AD,I,J,K                                           COMFSKL   682
                                         AD       SA=XK  X1,J,K                                                  COMFSKL   683
                                                  XMT    I,X1                                                    COMFSKL   684
                                                  ENDM                                                           COMFSKL   685
                                                                                                                 COMFSKL   686
                                                  PURGMAC            JIN                                         COMFSKL   687
                                                                                                                 COMFSKL   688
                                                  MACRO  JIN,AD,I,J,K                                            COMFSKL   689
                                         AD       CALL   CBJ                                                     COMFSKL   690
                                                  ENDM                                                           COMFSKL   691
                                                                                                                 COMFSKL   692
                                                  PURGMAC DEFINS                                                 COMFSKL   693
                                                                                                                 COMFSKL   694
                                        *         SPECIAL EQUATE TABLE FOR *REG*.                                COMFSKL   695
                                                                                                                 COMFSKL   696
                                                  LIST   D                                                       COMFSKL   697
                                                                                                                 COMFSKL   698
                                                                                                                 COMFSKL   699
                                        **        INITIALIZE H,L AND Q MICROS.                                   COMFSKL   700
                                                                                                                 COMFSKL   701
                                         H        MICRO                                                          COMFSKL   702
                                         L        MICRO                                                          COMFSKL   703
                                         Q        MICRO                                                          COMFSKL   704
                                                                                                                 COMFSKL   705
                                                                                                                 COMFSKL   706
                                        *         BASE ADDRESS OF SKELETONS.                                     COMFSKL   707
                                                                                                                 COMFSKL   708
                                                                                                                 COMFSKL   709
                                                  USE    /SKLNAM/                                                COMFSKL   710
             0                           F.SKNAM  BSSENT             FWA SKELETON NAMES (IN TEST MODE)           COMFSKL   711
                                                  USE    *                                                       COMFSKL   712
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    27
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                                                                                                 COMFSKL   713
             0                           F.SKEL   BSSENT                                                         COMFSKL   714
                                                                                                                 COMFSKL   715
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    28
        SKEL - INSTRUCTION SKELETON EXPANSIONS. 
  
             0                                    CTEXT  SKEL - INSTRUCTION SKELETON EXPANSIONS.                 SKEL        2
                                                                                                                 SKEL        3
                                                                                                                 SKEL        4
                                        ***       SKEL - INSTRUCTION SKELETON EXPANSIONS.                        SKEL        5
                                        *                                                                        SKEL        6
                                        *         THE SKELETONS DESCRIBE TO PASS 2 (QCG OR BRIDGE) WHAT          SKEL        7
                                        *         PREBINARY INSTRUCTIONS SHOULD BE ISSUED IN RESPONSE TO         SKEL        8
                                        *         A PARTICULAR TURPLE.                                           SKEL        9
                                                                                                                 SKEL       10
                                        ILL       SKEL                                                           SKEL       11
                                                  CALL   ILL                                                     SKEL       12
             0 0                                  ENDS                                                           SKEL       13
                                                                                                                 SKEL       14
                                                                                                                 SKEL       15
                                                                                                                 SKEL       16
                                                                                                                 SKEL       17
                                         ADD.I    SKEL                                                           SKEL       18
                                                  IA     R1,L1,L2                                                SKEL       19
             1 0                                  ENDS                                                           SKEL       20
                                                                                                                 SKEL       21
                                         ADD.R    SKEL                                                           SKEL       22
                                                  FAR    T1,L1,L2                                                SKEL       23
                                                  NR     R1,0,T1                                                 SKEL       24
             2 0                                  ENDS                                                           SKEL       25
                                                                                                                 SKEL       26
                                         ADD.D    SKEL                                                           SKEL       27
                                                  FA     T1,LU1,LU2                                              SKEL       28
                                                  DFA    T2,LU1,LU2                                              SKEL       29
                                                  FA     T3,LL1,LL2                                              SKEL       30
                                         ADD.D1   NR     T4,0,T1                                                 SKEL       31
                                                  FA     T5,T2,T3                                                SKEL       32
                                                  FA     T6,T4,T5                                                SKEL       33
                                                  NR     T7,0,T6                                                 SKEL       34
                                                  DFA    T8,T4,T5                                                SKEL       35
                                                  NR     T9,0,T8                                                 SKEL       36
                                                  FA     RU1,T7,T9                                               SKEL       37
                                                  DFA    RL1,T7,T9                                               SKEL       38
             4 0                                  ENDS                                                           SKEL       39
                                                                                                                 SKEL       40
                                         ADD.C    SKEL                                                           SKEL       41
                                                  FAR    T1,LU1,LU2                                              SKEL       42
                                                  NR     RU1,0,T1                                                SKEL       43
                                                  FAR    T2,LL1,LL2                                              SKEL       44
                                                  NR     RL1,0,T2                                                SKEL       45
            17 0                                  ENDS                                                           SKEL       46
                                                                                                                 SKEL       47
                                         ADD.B    SKEQU  ADD.I                                                   SKEL       48
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    29
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       SUBTR.
  
                                        *         SUBTRACT INSTRUCTIONS.                                         SKEL       50
                                                                                                                 SKEL       51
                                                                                                                 SKEL       52
                                         SUB.I    SKEL                                                           SKEL       53
                                                  IS     R1,L1,L2                                                SKEL       54
            23 0                                  ENDS                                                           SKEL       55
                                                                                                                 SKEL       56
                                         SUB.R    SKEL                                                           SKEL       57
                                                  FSR    T1,L1,L2                                                SKEL       58
                                                  NR     R1,0,T1                                                 SKEL       59
            24 0                                  ENDS                                                           SKEL       60
                                                                                                                 SKEL       61
                                         SUB.D    SKEL                                                           SKEL       62
                                                  FS     T1,LU1,LU2                                              SKEL       63
                                                  DFS    T2,LU1,LU2                                              SKEL       64
                                                  FS     T3,LL1,LL2                                              SKEL       65
                                                  BRANCH ADD.D1,(T1,T2,T3)                                       SKEL       66
            26 0                                  ENDS                                                           SKEL       67
                                                                                                                 SKEL       68
                                         SUB.C    SKEL                                                           SKEL       69
                                                  FSR    T1,LU1,LU2                                              SKEL       70
                                                  NR     RU1,0,T1                                                SKEL       71
                                                  FSR    T2,LL1,LL2                                              SKEL       72
                                                  NR     RL1,0,T2                                                SKEL       73
            32 0                                  ENDS                                                           SKEL       74
                                                                                                                 SKEL       75
                                         SUB.B    SKEQU  SUB.I                                                   SKEL       76
  
  
  
  
                                        *         MULTIPLY INSTRUCTIONS.                                         SKEL       78
                                                                                                                 SKEL       79
                                                                                                                 SKEL       80
                                                                                                                 SKEL       81
                                         MUL.I    SKEL   IMVC                                                    SKEL       82
                                                  CALL   IM                                                      SKEL       83
            36 0                                  ENDS                                                           SKEL       84
                                                                                                                 SKEL       85
                                         IMVC     SUBSKEL                                                        SKEL       86
                                                  IM     R1,L1,L2                                                SKEL       87
            37 0                                  ENDS                                                           SKEL       88
                                                                                                                 SKEL       89
                                         IMV      SUBEQU IMVC                                                    SKEL       90
                                                                                                                 SKEL       91
                                        *         OPERATIONS THAT UTILIZE THE SHIFT INSTRUCTION.                 SKEL       92
                                        *         INTEGER MULTIPLY SKELETONS.                                    SKEL       93
                                                                                                                 SKEL       94
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    16
                                         IM2      SUBSKEL                                                        SKEL       95
                                        *         MULTIPLY BY 2.                                                 SKEL       96
                                                  IA     R1,L1,L1                                                SKEL       97
                                                  ENDS                                                           SKEL       98
                                         #CD      ENDIF                                                          FC5A128    17
                                                                                                                 SKEL       99
                                         SHFC     SUBSKEL                                                        SKEL      100
                                        *         MULTIPLY POWER OF 2.                                           SKEL      101
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    30
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MULT. 
  
                                                  KLS    T2,L1,GP1                                               SKEL      102
                                                  XMT    R1,T2                                                   SKEL      103
            40 0                                  ENDS                                                           SKEL      104
                                                                                                                 SKEL      105
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    18
                                         SHFS     SUBSKEL                                                        SKEL      106
                                        *         MULTIPLY SUM OF TWO POWERS OF 2.                               SKEL      107
                                                  KLS    T2,L1,GP2                                               SKEL      108
                                                  IA     T3,T2,L1                                                SKEL      109
                                                  KLS    T5,T3,GP1                                               SKEL      110
                                                  XMT    R1,T5                                                   SKEL      111
                                                  ENDS                                                           SKEL      112
                                                                                                                 SKEL      113
                                         SHFD     SUBSKEL                                                        SKEL      114
                                        *         MULTIPLY DIFFERENCE OF TWO POWERS OF 2.                        SKEL      115
                                                  KLS    T2,L1,GP1                                               SKEL      116
                                                  KLS    T4,L1,GP2                                               SKEL      117
                                                  IS     R1,T4,T2                                                SKEL      118
                                                  ENDS                                                           SKEL      119
                                                                                                                 SKEL      120
                                         SHFS1    SUBSKEL                                                        SKEL      121
                                        *         MULTIPLY POWER OF 2 PLUS 1.                                    SKEL      122
                                                  KLS    T2,L1,GP1                                               SKEL      123
                                                  IA     R1,T2,L1                                                SKEL      124
                                                  ENDS                                                           SKEL      125
                                                                                                                 SKEL      126
                                         SHFD1    SUBSKEL                                                        SKEL      127
                                        *         MULTIPLY POWER OF 2 MINUS 1.                                   SKEL      128
                                                  KLS    T2,L1,GP1                                               SKEL      129
                                                  IS     R1,T2,L1                                                SKEL      130
                                                  ENDS                                                           SKEL      131
                                         #CD      ENDIF                                                          FC5A128    19
                                                                                                                 SKEL      132
                                         MUL.R    SKEL                                                           SKEL      133
                                                  FMR    R1,L1,L2                                                SKEL      134
            43 0                                  ENDS                                                           SKEL      135
                                                                                                                 SKEL      136
                                         MUL.D    SKEL                                                           SKEL      137
                                                  FM     T1,LL1,LU2                                              SKEL      138
                                                  FM     T2,LU1,LL2                                              SKEL      139
                                                  FA     T3,T1,T2                                                SKEL      140
                                                  FM     T4,LU1,LU2                                              SKEL      141
                                                  DFM    T5,LU1,LU2                                              SKEL      142
                                                  FA     T6,T3,T5                                                SKEL      143
                                                  FA     RU1,T4,T6                                               SKEL      144
                                                  DFA    RL1,T4,T6                                               SKEL      145
            44 0                                  ENDS                                                           SKEL      146
                                                                                                                 SKEL      147
                                         MUL.C    SKEL                                                           SKEL      148
                                                  FMR    T1,LU1,LU2                                              SKEL      149
                                                  FMR    T2,LL1,LL2                                              SKEL      150
                                                  FSR    T3,T1,T2                                                SKEL      151
                                                  NR     RU1,0,T3                                                SKEL      152
                                                  FMR    T4,LU1,LL2                                              SKEL      153
                                                  FMR    T5,LL1,LU2                                              SKEL      154
                                                  FAR    T6,T4,T5                                                SKEL      155
                                                  NR     RL1,0,T6                                                SKEL      156
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    31
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MULT. 
  
            54 0                                  ENDS                                                           SKEL      157
                                                                                                                 SKEL      158
                                         MUL.B    SKEQU  MUL.I                                                   SKEL      159
  
  
  
  
                                        *         DIVIDE INSTRUCTIONS.                                           SKEL      161
                                                                                                                 SKEL      162
                                                                                                                 SKEL      163
                                                                                                                 SKEL      164
                                         DIV.I    SKEL   IDVC                                                    SKEL      165
                                                  CALL   ID                                                      SKEL      166
            64 0                                  ENDS                                                           SKEL      167
                                                                                                                 SKEL      168
                                         IDVC     SUBSKEL                                                        SKEL      169
                                                  PK     T1,0,L2                                                 SKEL      170
                                                  NR     T2,0,T1                                                 SKEL      171
                                                  PK     T3,0,L1                                                 SKEL      172
                                                  FDR    T4,T3,T2                                                SKEL      173
                                         .IDZ     IFEQ   .IDC,1                                                  FC5A483    26
                                                  FMA    T5,60                                                   FC5A483    27
                                                  FA     T6,T5,T4                                                FC5A483    28
                                                  UP     T7,"TBR",T6                                             FC5A483    29
                                                  ILS    R1,"TBR",T7                                             FC5A483    30
                                         .IDZ     ELSE                                                           FC5A483    31
                                                  UP     T5,"TBR",T4                                             FC5A483    32
                                                  ILS    R1,"TBR",T5                                             FC5A483    33
                                         .IDZ     ENDIF                                                          FC5A483    34
            65 0                                  ENDS                                                           SKEL      176
                                                                                                                 SKEL      177
                                         IDV      SUBEQU IDVC                                                    SKEL      178
                                                                                                                 SKEL      179
                                         IDP2     SUBSKEL                                                        SKEL      180
                                        *         INTEGER DIVIDE BY POWER OF 2 SKELETON.                         SKEL      181
                                                  KRS    T2,L1,GP1                                               SKEL      182
                                                  XMT    R1,T2                                                   SKEL      183
            73 0                                  ENDS                                                           SKEL      184
                                                                                                                 SKEL      185
                                         DIV.R    SKEL                                                           SKEL      186
                                                  FDR    R1,L1,L2                                                SKEL      187
            76 0                                  ENDS                                                           SKEL      188
                                                                                                                 SKEL      189
                                         DIV.D    SKEL                                                           SKEL      190
                                                  FD     T1,LU1,LU2                                              SKEL      191
                                                  FM     T2,T1,LU2                                               SKEL      192
                                                  FS     T3,LU1,T2                                               SKEL      193
                                                  DFS    T4,LU1,T2                                               SKEL      194
                                                  NR     T5,0,T3                                                 SKEL      195
                                                  FA     T6,T4,T5                                                SKEL      196
                                                  DFM    T7,T1,LU2                                               SKEL      197
                                                  FS     T8,LL1,T7                                               SKEL      198
                                                  FA     T9,T6,T8                                                SKEL      199
                                                  FM     T10,T1,LL2                                              SKEL      200
                                                  FS     T11,T9,T10                                              SKEL      201
                                                  FD     T12,T11,LU2                                             SKEL      202
                                                  FA     T13,T1,T12                                              SKEL      203
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    32
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       DIV.
  
                                                  NR     T14,0,T13                                               SKEL      204
                                                  DFA    T15,T1,T12                                              SKEL      205
                                                  FA     RU1,T15,T14                                             SKEL      206
                                                  DFA    RL1,T15,T14                                             SKEL      207
            77 0                                  ENDS                                                           SKEL      208
                                                                                                                 SKEL      209
                                         DIV.C    SKEL                                                           SKEL      210
                                                  FMR    T1,LU1,LL2                                              SKEL      211
                                                  FMR    T2,LL1,LU2                                              SKEL      212
                                                  FSR    T3,T2,T1                                                SKEL      213
                                                  NR     T4,0,T3                                                 SKEL      214
                                                  FMR    T5,LU1,LU2                                              SKEL      215
                                                  FMR    T6,LL1,LL2                                              SKEL      216
                                                  FAR    T7,T5,T6                                                SKEL      217
                                                  NR     T8,0,T7                                                 SKEL      218
                                                  FMR    T9,LU2,LU2                                              SKEL      219
                                                  FMR    T10,LL2,LL2                                             SKEL      220
                                                  FAR    T11,T9,T10                                              SKEL      221
                                                  NR     T12,0,T11                                               SKEL      222
                                                  FDR    RU1,T8,T12                                              SKEL      223
                                                  FDR    RL1,T4,T12                                              SKEL      224
           120 0                                  ENDS                                                           SKEL      225
                                                                                                                 SKEL      226
                                         DIV.B    SKEQU  DIV.I                                                   SKEL      227
                                                                                                                 FC5A150     8
                                         DVC.R    SKEL               SPECIAL COMPLEX/REAL                        FC5A150     9
                                                  FDR    RU1,LU1,L2                                              FC5A150    10
                                                  FDR    RL1,LL1,L2                                              FC5A150    11
           136 0                                  ENDS                                                           FC5A150    12
                                                                                                                 FC5A150    13
                                         #CD      IFEQ   .CG,.OPT                                                FC5A150    14
                                         DIR.R    SKEL               SPECIAL REAL ROUNDED DIVIDE FOR 1/CON       FC5A150    15
                                                  RFD    R1,L1,L2                                                FC5A150    16
                                                  ENDS                                                           FC5A150    17
                                                                                                                 FC5A150    18
                                         DIR.C    SKEL               SPECIAL ROUNDED DIVIDE FOR 1/CON            FC5A150    19
                                                  FMR    T1,LU1,LL2                                              FC5A150    20
                                                  FMR    T2,LL1,LU2                                              FC5A150    21
                                                  FSR    T3,T2,T1                                                FC5A150    22
                                                  NR     T4,0,T3                                                 FC5A150    23
                                                  FMR    T5,LU1,LU2                                              FC5A150    24
                                                  FMR    T6,LL1,LL2                                              FC5A150    25
                                                  FAR    T7,T5,T6                                                FC5A150    26
                                                  NR     T8,0,T7                                                 FC5A150    27
                                                  FMR    T9,LU2,LU2                                              FC5A150    28
                                                  FMR    T10,LL2,LL2                                             FC5A150    29
                                                  FAR    T11,T9,T10                                              FC5A150    30
                                                  NR     T12,0,T11                                               FC5A150    31
                                                  RFD    RU1,T8,T12                                              FC5A150    32
                                                  RFD    RL1,T4,T12                                              FC5A150    33
                                                  ENDS                                                           FC5A150    34
                                         #CD      ENDIF                                                          FC5A150    35
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    33
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       UMIN. 
  
                                        *         UNARY MINUS INSTRUCTIONS.                                      SKEL      229
                                                                                                                 SKEL      230
                                                                                                                 SKEL      231
                                                                                                                 SKEL      232
                                         UMI.I    SKEL                                                           SKEL      233
                                                  XMTC   R1,L1                                                   SKEL      234
           140 0                                  ENDS                                                           SKEL      235
                                                                                                                 SKEL      236
                                         UMI.R    SKEQU  UMI.I                                                   SKEL      237
                                                                                                                 SKEL      238
                                         UMI.D    SKEL                                                           SKEL      239
                                                  XMTC   RU1,LU1                                                 SKEL      240
                                                  XMTC   RL1,LL1                                                 SKEL      241
           141 0                                  ENDS                                                           SKEL      242
                                                                                                                 SKEL      243
                                         UMI.C    SKEQU  UMI.D                                                   SKEL      244
  
  
  
  
                                        *         RELATIONAL OPERATORS.                                          SKEL      246
                                        *                                                                        SKEL      247
                                        *             VAR1 .OP. VAR2 = PERFORM IN VAR MODE, RESULTS = LOGICAL    SKEL      248
                                        *             LOG1 .OP. LOG2 = ILLEGAL.                                  SKEL      249
                                                                                                                 SKEL      250
                                         LT.I     SKEL                                                           SKEL      251
                                                  IS     T1,L1,L2                                                SKEL      252
                                                  CLR    T2                                                      SKEL      253
                                                  IAZ    R1,T1,T2                                                SKEL      254
           143 0                                  ENDS                                                           SKEL      255
                                                                                                                 SKEL      256
                                         LT.R     SKEL                                                           SKEL      257
                                                  FSR    T1,L1,L2                                                SKEL      258
                                                  PNR    R1,0,T1                                                 SKEL      259
           146 0                                  ENDS                                                           SKEL      260
                                                                                                                 SKEL      261
                                         LT.D     SKEL                                                           SKEL      262
                                                  FS     T1,LL1,LL2                                              SKEL      263
                                                  FS     T2,LU1,LU2                                              SKEL      264
                                                  PNR    T3,0,T2                                                 SKEL      265
                                                  DFS    T4,LU1,LU2                                              SKEL      266
                                                  FA     T5,T1,T4                                                SKEL      267
                                                  FA     RU1,T3,T5                                               SKEL      268
           150 0                                  ENDS                                                           SKEL      269
                                                                                                                 SKEL      270
                                         LT.H     SKEL                                                           SKEL      271
                                                  CALL   HREL                                                    SKEL      272
                                         LTH1     DEF    R1,,"X6."                                               SKEL      273
           156 0                                  ENDS                                                           SKEL      274
                                                                                                                 SKEL      275
                                         LLT      SKEL               ASCII LT                                    SKEL      276
                                                  CALL   HLEX                                                    SKEL      277
           160                                    BRANCH LTH1                                                    SKEL      278
           160 0                                  ENDS                                                           SKEL      279
                                                                                                                 SKEL      280
                                         LT.B     SKEQU  LT.I                                                    SKEL      281
                                                                                                                 SKEL      282
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    34
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                         GE.I     SKEL                                                           SKEL      283
                                                  IS     T1,L1,L2                                                SKEL      284
                                                  CLR    T2                                                      SKEL      285
                                                  IAZ    T3,T1,T2                                                SKEL      286
                                                  XMTC   R1,T3                                                   SKEL      287
           162 0                                  ENDS                                                           SKEL      288
                                                                                                                 SKEL      289
                                         GE.R     SKEL                                                           SKEL      290
                                                  FSR    T1,L1,L2                                                SKEL      291
                                                  PNR    T2,0,T1                                                 SKEL      292
                                                  XMTC   R1,T2                                                   SKEL      293
           166 0                                  ENDS                                                           SKEL      294
                                                                                                                 SKEL      295
                                         GE.D     SKEL                                                           SKEL      296
                                                  DFS    T1,LU1,LU2                                              SKEL      297
                                                  FS     T2,LU1,LU2                                              SKEL      298
                                                  PNR    T3,0,T2                                                 SKEL      299
                                                  FS     T4,LL1,LL2                                              SKEL      300
                                                  FA     T5,T1,T4                                                SKEL      301
                                                  FA     T6,T3,T5                                                SKEL      302
                                                  XMTC   RU1,T6                                                  SKEL      303
           171 0                                  ENDS                                                           SKEL      304
                                                                                                                 SKEL      305
                                         GE.B     SKEQU  GE.I                                                    SKEL      306
                                                                                                                 SKEL      307
                                         GE.H     SKEL                                                           SKEL      308
                                                  CALL   HREL                                                    SKEL      309
                                         GEH1     DEF    T1,,"X6."                                               SKEL      310
                                                  XMTC   R1,T1                                                   SKEL      311
           200 0                                  ENDS                                                           SKEL      312
                                                                                                                 SKEL      313
                                         LGE      SKEL               ASCII GE                                    SKEL      314
                                                  CALL   HLEX                                                    SKEL      315
           203                                    BRANCH GEH1                                                    SKEL      316
           203 0                                  ENDS                                                           SKEL      317
                                                                                                                 SKEL      318
                                         NE.I     SKEL                                                           SKEL      319
                                                  CLR    T1                                                      SKEL      320
                                                  IS     T2,L1,L2                                                SKEL      321
                                                  IAZ    T3,T2,T1                                                SKEL      322
                                                  ISZ    T4,T1,T3                                                SKEL      323
                                                  OR     R1,T4,T3                                                SKEL      324
           205 0                                  ENDS                                                           SKEL      325
                                                                                                                 SKEL      326
                                         NE.R     SKEL                                                           SKEL      327
                                                  FSR    T1,L1,L2                                                SKEL      328
                                                  PNR    T2,0,T1                                                 SKEL      329
                                                  CLR    T3                                                      SKEL      330
                                                  ISZ    T4,T3,T2                                                SKEL      331
                                                  OR     R1,T2,T4                                                SKEL      332
           212 0                                  ENDS                                                           SKEL      333
                                                                                                                 SKEL      334
                                         NE.D     SKEL                                                           SKEL      335
                                                  FS     T1,LU1,LU2                                              SKEL      336
                                                  FS     T2,LL1,LL2                                              SKEL      337
                                                  PNR    T3,0,T1                                                 SKEL      338
                                                  DFS    T4,LU1,LU2                                              FC51325     7
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    35
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                                  PNR    T5,0,T4                                                 FC51325     8
                                                  CLR    T6                                                      FC51325     9
                                                  PNR    T7,0,T2                                                 FC51325    10
                                                  OR     T8,T3,T7                                                FC51325    11
                                                  OR     T9,T8,T5                                                FC51325    12
                                                  ISZ    T10,T6,T9                                               FC51325    13
                                                  OR     RU1,T10,T9                                              FC51325    14
           217 0                                  ENDS                                                           SKEL      344
                                                                                                                 SKEL      345
                                         NE.C     SKEQU  NE.D                                                    SKEL      346
                                                                                                                 SKEL      347
                                         NE.B     SKEQU  NE.I                                                    SKEL      348
                                                                                                                 SKEL      349
                                         NE.H     SKEL                                                           SKEL      350
                                                  CALL   HREL                                                    SKEL      351
                                         NEH1     DEF    T1,,"X6."                                               SKEL      352
                                                  KLS    T3,T1,1                                                 SKEL      353
                                                  XMT    R1,T3                                                   SKEL      354
           232 0                                  ENDS                                                           SKEL      355
                                                                                                                 SKEL      356
                                         LNE      SKEL               ASCII NE                                    SKEL      357
                                                  CALL   HLEX                                                    SKEL      358
           237                                    BRANCH NEH1                                                    SKEL      359
           237 0                                  ENDS                                                           SKEL      360
                                                                                                                 SKEL      361
                                         EQ.I     SKEL                                                           SKEL      362
                                                  IS     T1,L1,L2                                                SKEL      363
                                                  CLR    T2                                                      SKEL      364
                                                  IAZ    T3,T1,T2                                                SKEL      365
                                                  ISZ    T4,T2,T3                                                SKEL      366
                                                  EQV    R1,T3,T4                                                SKEL      367
           241 0                                  ENDS                                                           SKEL      368
                                                                                                                 SKEL      369
                                         EQ.R     SKEL                                                           SKEL      370
                                                  FSR    T1,L1,L2                                                SKEL      371
                                                  PNR    T2,0,T1                                                 SKEL      372
                                                  CLR    T3                                                      SKEL      373
                                                  ISZ    T4,T3,T2                                                SKEL      374
                                                  EQV    R1,T4,T2                                                SKEL      375
           246 0                                  ENDS                                                           SKEL      376
                                                                                                                 SKEL      377
                                         EQ.D     SKEL                                                           SKEL      378
                                                  FS     T1,LU1,LU2                                              SKEL      379
                                                  PNR    T2,0,T1                                                 SKEL      380
                                                  DFS    T3,LU1,LU2                                              FC51325    15
                                                  PNR    T4,0,T3                                                 FC51325    16
                                                  FS     T5,LL1,LL2                                              FC51325    17
                                                  CLR    T6                                                      FC51325    18
                                                  PNR    T7,0,T5                                                 FC51325    19
                                                  OR     T8,T2,T7                                                FC51325    20
                                                  OR     T9,T8,T4                                                FC51325    21
                                                  ISZ    T10,T6,T9                                               FC51325    22
                                                  EQV    RU1,T9,T10                                              FC51325    23
           253 0                                  ENDS                                                           SKEL      387
                                                                                                                 SKEL      388
                                         EQ.C     SKEQU  EQ.D                                                    SKEL      389
                                                                                                                 SKEL      390
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    36
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                         EQ.B     SKEQU  EQ.I                                                    SKEL      391
                                                                                                                 SKEL      392
                                         EQ.H     SKEL                                                           SKEL      393
                                                  CALL   HREL                                                    SKEL      394
                                         EQH1     DEF    T1,,"X6."                                               SKEL      395
                                                  KLS    T3,T1,1                                                 SKEL      396
                                                  XMTC   R1,T3                                                   SKEL      397
           266 0                                  ENDS                                                           SKEL      398
                                                                                                                 SKEL      399
                                         LEQ      SKEL               ASCII EQ                                    SKEL      400
                                                  CALL   HLEX                                                    SKEL      401
           273                                    BRANCH EQH1                                                    SKEL      402
           273 0                                  ENDS                                                           SKEL      403
  
  
  
  
                                        *         STORE SKELETONS.                                               SKEL      405
                                        *                                                                        SKEL      406
                                                                                                                 SKEL      407
                                                                                                                 SKEL      408
                                         STR.I    SKEL                                                           SKEL      409
                                                  ST     L2,L1                                                   SKEL      410
           275 0                                  ENDS                                                           SKEL      411
                                                                                                                 SKEL      412
                                         STR.R    SKEQU  STR.I                                                   SKEL      413
                                                                                                                 SKEL      414
                                         STR.D    SKEL                                                           SKEL      415
                                                  XMT    T1,LL1                                                  FC5A164     7
                                                  ST     LL2,T1                                                  FC50701     7
                                                  ST     LU2,LU1                                                 SKEL      416
           276 0                                  ENDS                                                           SKEL      418
                                                                                                                 SKEL      419
                                         STR.H    SKEL                                                           SKEL      420
                                                  CALL   HSTO                                                    SKEL      421
           301 0                                  ENDS                                                           SKEL      422
                                                                                                                 SKEL      423
                                         STR.C    SKEQU  STR.D                                                   SKEL      424
                                                                                                                 SKEL      425
                                         STR.B    SKEQU  STR.I                                                   SKEL      426
  
  
  
  
                                        *         CHARACTER SUBSTRING, CATENATION SKELETONS.                     SKEL      428
                                                                                                                 SKEL      429
                                                                                                                 SKEL      430
                                         CAT      SKEL                                                           SKEL      431
                                                  CALL   HCAT                                                    SKEL      432
           302 0                                  ENDS                                                           SKEL      433
                                                                                                                 SKEL      434
                                                                                                                 SKEL      435
                                         COLON    SKEL               (P1=FIRST, P2=LAST)                         SKEL      436
                                                  CALL   HCOL                                                    SKEL      437
           303 0                                  ENDS                                                           SKEL      438
                                                                                                                 SKEL      439
                                         SUBST    SKEL               (P1=SYMBOL, P2=COLON INTERMEDIATE)          SKEL      440
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    37
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       CHAR
  
                                                  CALL   HSBS                                                    SKEL      441
           304 0                                  ENDS                                                           SKEL      442
  
  
  
  
                                        **        MODE CONVERSION SKELETONS.                                     SKEL      444
                                                                                                                 SKEL      445
                                                                                                                 SKEL      446
                                         ITOR     SKEL                                                           SKEL      447
                                                  PK     T1,0,L1     INTEGER TO REAL CONVERSION                  SKEL      448
                                                  NR     R1,0,T1                                                 SKEL      449
           305 0                                  ENDS                                                           SKEL      450
                                                                                                                 SKEL      451
                                         ITOB     SKEL               XMIT -- NO CONVERSION                       SKEL      452
                                                  XMT    R1,LU1                                                  SKEL      453
           307 0                                  ENDS                                                           SKEL      454
                                                                                                                 SKEL      455
                                         ITOD     SKEL                                                           SKEL      456
                                                  PK     T1,0,L1     INTEGER TO DOUBLE CONVERSION                SKEL      457
                                                  NR     RU1,0,T1                                                SKEL      458
                                                  CLR    RL1                                                     SKEL      459
           310 0                                  ENDS                                                           SKEL      460
                                                                                                                 SKEL      461
                                         ITOC     SKEQU  ITOD        INTEGER TO COMPLEX CONVERSION               SKEL      462
                                                                                                                 SKEL      463
                                                                                                                 SKEL      464
                                         RTOI     SKEL                                                           SKEL      465
                                                  UP     T1,"TBR",L1     REAL TO INTEGER CONVERSION              SKEL      466
                                                  ILS    R1,"TBR",T1                                             SKEL      467
           313 0                                  ENDS                                                           SKEL      468
                                                                                                                 SKEL      469
                                         RTOD     SKEL                                                           SKEL      470
                                                  XMT    RU1,L1      REAL TO DOUBLE CONVERSION                   SKEL      471
                                                  CLR    RL1                                                     SKEL      472
           315 0                                  ENDS                                                           SKEL      473
                                                                                                                 SKEL      474
                                         RTOC     SKEQU  RTOD                                                    SKEL      475
                                         RTOB     SKEQU  ITOB        XMIT                                        SKEL      476
                                                                                                                 SKEL      477
                                                                                                                 SKEL      478
                                         DTOI     SKEQU  RTOI                                                    SKEL      479
                                         DTOR     SKEQU  ITOB        XMIT                                        SKEL      480
                                         DTOB     SKEQU  DTOR                                                    SKEL      481
                                                                                                                 SKEL      482
                                         DTOC     SKEL                                                           SKEL      483
                                                  XMT    RU1,LU1     DOUBLE TO COMPLEX CONVERSION                SKEL      484
                                                  CLR    RL1                                                     SKEL      485
           317 0                                  ENDS                                                           SKEL      486
                                                                                                                 FC5A140     5
                                         XMIT     SKEQU  ITOB                                                    FC5A140     6
                                                                                                                 SKEL      487
                                                                                                                 SKEL      488
                                         CTOI     SKEQU  DTOI                                                    SKEL      489
                                         CTOR     SKEQU  DTOR                                                    SKEL      490
                                         CTOB     SKEQU  CTOR                                                    SKEL      491
                                         CTOD     SKEQU  DTOC        COMPLEX TO DOUBLE                           SKEL      492
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    38
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MODECON 
  
                                                                                                                 SKEL      493
                                         BTOD     SKEQU  RTOD                                                    SKEL      494
                                         BTOR     SKEQU  ITOB        XMIT                                        SKEL      495
                                         BTOI     SKEQU  ITOB        XMIT                                        SKEL      496
                                         BTOC     SKEQU  RTOD                                                    SKEL      497
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    39
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       LOGICAL 
  
                                        **        LOGICAL AND BOOLEAN OPERATORS.                                 SKEL      499
                                        *                                                                        SKEL      500
                                        *         MUST OCCUR BEFORE INLINE FUNCTION SKELS.                       SKEL      501
                                        *         MUST OCCUR AFTER MODE CONVERSION SKELS.                        SKEL      502
                                                                                                                 SKEL      503
                                                                                                                 SKEL      504
                                         NOT.L    SKEL                                                           SKEL      505
                                                  XMTC   R1,L1                                                   SKEL      506
           321 0                                  ENDS                                                           SKEL      507
                                                                                                                 SKEL      508
                                         NOT.B    SKEQU  NOT.L                                                   SKEL      509
                                                                                                                 SKEL      510
                                                                                                                 SKEL      511
                                         AND.L    SKEL                                                           SKEL      512
                                                  AND    R1,L1,L2                                                SKEL      513
           322 0                                  ENDS                                                           SKEL      514
                                                                                                                 SKEL      515
                                         AND.B    SKEQU  AND.L                                                   SKEL      516
                                                                                                                 SKEL      517
                                                                                                                 SKEL      518
                                         EQV.L    SKEL                                                           SKEL      519
                                                  EQV    R1,L1,L2                                                SKEL      520
           323 0                                  ENDS                                                           SKEL      521
                                                                                                                 SKEL      522
                                         EQV.B    SKEQU  EQV.L                                                   SKEL      523
                                                                                                                 SKEL      524
                                                                                                                 SKEL      525
                                         OR.L     SKEL                                                           SKEL      526
                                                  OR     R1,L1,L2                                                SKEL      527
           324 0                                  ENDS                                                           SKEL      528
                                                                                                                 SKEL      529
                                         OR.B     SKEQU  OR.L                                                    SKEL      530
                                                                                                                 SKEL      531
                                                                                                                 SKEL      532
                                         XOR.L    SKEL                                                           SKEL      533
                                                  XOR    R1,L1,L2                                                SKEL      534
           325 0                                  ENDS                                                           SKEL      535
                                                                                                                 SKEL      536
                                         XOR.B    SKEQU  XOR.L                                                   SKEL      537
                                         NEQV.B   SKEQU  XOR.L                                                   FC51485    14
                                         NEQV.L   SKEQU  XOR.L                                                   FC51485    15
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    40
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                        **        INTRINSIC FUNCTION SKELETONS.                                  SKEL      539
                                                                                                                 SKEL      540
                                                                                                                 SKEL      541
                                         ABS      SKEL                                                           SKEL      542
                                                  KRS    T2,L1,59                                                SKEL      543
                                                  XOR    R1,L1,T2                                                SKEL      544
           326 0                                  ENDS                                                           SKEL      545
                                                                                                                 SKEL      546
                                                                                                                 SKEL      547
                                         SUM1S    SKEL                                                           FC5A496     9
                                                  CX     R1,L1                                                   FC5A496    10
           331 0                                  ENDS                                                           FC5A496    11
                                                                                                                 FC5A496    12
                                                                                                                 FC5A496    13
                                         AIMAG    SKEL                                                           SKEL      548
                                                  XMT    R1,LL1      IMAGINARY PART OF COMPLEX (1OP)             SKEL      549
           332 0                                  ENDS                                                           SKEL      550
                                                                                                                 SKEL      551
                                         AINT     SKEL                                                           SKEL      552
                                                  CLR    T1                                                      SKEL      553
                                                  PK     T2,0,T1                                                 SKEL      554
                                                  FA     T3,L1,T2                                                SKEL      555
                                                  NR     R1,0,T3                                                 SKEL      556
           333 0                                  ENDS                                                           SKEL      557
                                                                                                                 SKEL      558
                                         ANINT    SKEL                                                           SKEL      559
                                         ANINT1   KRS    T2,L1,59                                                SKEL      560
                                                  PK     T3,0,T2                                                 SKEL      561
                                                  RFA    T4,L1,T3                                                SKEL      562
                                                  NR     R1,0,T4                                                 SKEL      563
           337 0                                  ENDS                                                           SKEL      564
                                                                                                                 SKEL      565
                                                                                                                 SKEL      566
                                         MAX0     SKEL                                                           SKEL      567
                                                  IS     T1,L1,L2  I=MAX0(I1,I2)                                 SKEL      568
                                         MAX01    KRS    T3,T1,59                                                SKEL      569
                                                  XOR    T4,L1,L2                                                SKEL      570
                                                  AND    T5,T4,T3                                                SKEL      571
                                                  XOR    R1,T5,L1                                                SKEL      572
           344 0                                  ENDS                                                           SKEL      573
                                                                                                                 SKEL      574
                                         DMAX1    SKEL                                                           SKEL      575
                                                  FS     T1,LU1,LU2                                              SKEL      576
                                                  DFS    T2,LU1,LU2                                              SKEL      577
                                                  FS     T3,LL1,LL2                                              SKEL      578
                                         DMAX11   NR     T4,0,T1                                                 SKEL      579
                                                  FA     T5,T2,T3                                                SKEL      580
                                                  FA     T6,T4,T5                                                SKEL      581
                                                  KRS    T8,T6,59                                                SKEL      582
                                                  XOR    T9,LU1,LU2                                              SKEL      583
                                                  XOR    T10,LL1,LL2                                             SKEL      584
                                                  AND    T11,T8,T9                                               SKEL      585
                                                  XOR    RU1,T11,LU1                                             SKEL      586
                                                  AND    T12,T8,T10                                              SKEL      587
                                                  XOR    RL1,T12,LL1                                             SKEL      588
           352 0                                  ENDS                                                           SKEL      589
                                                                                                                 SKEL      590
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    41
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                         MIN0     SKEL                                                           SKEL      591
                                                  IS     T1,L2,L1   I=MIN0(I1,I2)                                SKEL      592
                                                  BRANCH MAX01,(T1,L1,L2)                                        SKEL      593
           370 0                                  ENDS                                                           SKEL      594
                                                                                                                 SKEL      595
                                         DMIN1    SKEL                                                           SKEL      596
                                                  FS     T1,LU2,LU1                                              SKEL      597
                                                  DFS    T2,LU2,LU1                                              SKEL      598
                                                  FS     T3,LL2,LL1                                              SKEL      599
                                                  BRANCH DMAX11,(T1,T2,T3,LL1,LL2,LU1,LU2)                       SKEL      600
           372 0                                  ENDS                                                           SKEL      601
                                                                                                                 SKEL      602
                                         AMAX1    SKEL                                                           SKEL      603
                                                  FS     T1,L1,L2  R=AMAX1(R1,R2)                                SKEL      604
                                                  BRANCH MAX01,(T1,L1,L2)                                        SKEL      605
           376 0                                  ENDS                                                           SKEL      606
                                                                                                                 SKEL      607
                                         AMIN1    SKEL                                                           SKEL      608
                                                  FS     T1,L2,L1  R=AMIN1(R1,R2)                                SKEL      609
                                                  BRANCH MAX01,(T1,L1,L2)                                        SKEL      610
           400 0                                  ENDS                                                           SKEL      611
                                                                                                                 SKEL      612
                                         MAX1     SKEQU  AMAX1                                                   SKEL      613
                                         MIN1     SKEQU  AMIN1                                                   SKEL      614
                                         AMAX0    SKEQU  MAX0                                                    SKEL      615
                                         AMIN0    SKEQU  MIN0                                                    SKEL      616
                                                                                                                 SKEL      617
                                         AMOD     SKEL                                                           SKEL      618
                                                  FD     T1,L1,L2                                                SKEL      619
                                                  CLR    T2                                                      SKEL      620
                                                  PK     T3,0,T2                                                 SKEL      621
                                                  FA     T4,T1,T3                                                SKEL      622
                                                  NR     T5,0,T4                                                 SKEL      623
                                                  FM     T6,T5,L2                                                SKEL      624
                                                  DFM    T7,T5,L2                                                SKEL      625
                                                  DFS    T8,L1,T6                                                SKEL      626
                                                  FS     T9,L1,T6                                                SKEL      627
                                                  FS     T10,T8,T7                                               SKEL      628
                                                  NR     T11,0,T9                                                SKEL      629
                                                  FA     T12,T10,T11                                             SKEL      630
                                                  NR     R1,0,T12                                                SKEL      631
           402 0                                  ENDS                                                           SKEL      632
                                                                                                                 SKEL      633
                                                                                                                 SKEL      634
                                         AND      SKEQU  AND.B                                                   SKEL      635
                                                                                                                 SKEL      636
                                                                                                                 SKEL      637
                                         BOOL     SKEQU  ITOB        BOOLEAN TO INTEGER                          SKEL      638
                                                                                                                 SKEL      639
                                         COMPL    SKEQU  NOT.B                                                   SKEL      640
                                                                                                                 SKEL      641
                                                                                                                 SKEL      642
                                         CONJG    SKEL                                                           SKEL      643
                                                  XMT    RU1,LU1                                                 SKEL      644
                                                  XMTC   RL1,LL1                                                 SKEL      645
           417 0                                  ENDS                                                           SKEL      646
                                                                                                                 SKEL      647
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    42
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      648
                                         CMPLX    SKEL                                                           SKEL      649
                                                  XMT    RU1,L1                                                  SKEL      650
                                                  XMT    RL1,L2                                                  SKEL      651
           421 0                                  ENDS                                                           SKEL      652
                                                                                                                 SKEL      653
                                                                                                                 SKEL      654
                                         DABS     SKEL                                                           SKEL      655
                                                  KRS    T2,LU1,59                                               SKEL      656
                                                  XOR    RU1,T2,LU1                                              SKEL      657
                                                  XOR    RL1,T2,LL1                                              SKEL      658
           423 0                                  ENDS                                                           SKEL      659
                                                                                                                 SKEL      660
                                                                                                                 SKEL      661
                                         DBLE     SKEQU  RTOD                                                    SKEL      662
                                                                                                                 SKEL      663
                                                                                                                 SKEL      664
                                         DDIM     SKEL                                                           SKEL      665
                                                                                                                 SKEL      666
                                        *         MOST OF THIS SKEL IS SUB.D .  A VIABLE CALLSKEL                SKEL      667
                                        *         WOULD BE USEFUL HERE.                                          SKEL      668
                                                                                                                 SKEL      669
                                                  FS     T1,LU1,LU2                                              SKEL      670
                                                  DFS    T2,LU1,LU2                                              SKEL      671
                                                  FS     T3,LL1,LL2                                              SKEL      672
                                                  NR     T4,0,T1                                                 SKEL      673
                                                  FA     T5,T2,T3                                                SKEL      674
                                                  FA     T6,T4,T5                                                SKEL      675
                                                  NR     T7,0,T6                                                 SKEL      676
                                                  DFA    T8,T4,T5                                                SKEL      677
                                                  NR     T9,0,T8                                                 SKEL      678
                                                  FA     T10,T7,T9                                               SKEL      679
                                                  DFA    T11,T7,T9                                               SKEL      680
                                                  KRS    T13,T10,59                                              SKEL      681
                                                  STR    RU1,T13,T10                                             SKEL      682
                                                  STR    RL1,T13,T11                                             SKEL      683
           427 0                                  ENDS                                                           SKEL      684
                                                                                                                 SKEL      685
                                         DIM      SKEL                                                           SKEL      686
                                                  FS     T1,L1,L2                                                SKEL      687
                                                  NR     T2,0,T1                                                 SKEL      688
                                                  KRS    T4,T1,59                                                SKEL      689
                                                  STR    R1,T4,T2                                                SKEL      690
           446 0                                  ENDS                                                           SKEL      691
                                                                                                                 SKEL      692
                                                                                                                 SKEL      693
                                         DINT     SKEL                                                           SKEL      694
                                                  KRS    T2,LU1,59                                               FC51035     5
                                                  PK     T3,0,T2                                                 FC51035     6
                                                  FA     T4,T3,LU1                                               FC51035     7
                                                  NR     T5,0,T4                                                 FC51035     8
                                                  FA     T6,T3,LL1                                               FC51035     9
                                                  NR     T7,0,T6                                                 FC51035    10
                                                  FA     RU1,T7,T5                                               FC51035    11
                                                  DFA    RL1,T7,T5                                               FC51035    12
           453 0                                  ENDS                                                           FC51035    13
                                                                                                                 SKEL      701
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    43
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                         DPROD    SKEL                                                           SKEL      702
                                                  FM     RU1,L1,L2                                               SKEL      703
                                                  DFM    RL1,L1,L2                                               SKEL      704
           464 0                                  ENDS                                                           SKEL      705
                                                                                                                 SKEL      706
                                         DNINT    SKEL                                                           SKEL      707
                                                  KRS    T2,LU1,59                                               FC51035    14
                                                  PK     T3,0,T2                                                 FC51035    15
                                                  RFA    T4,T3,LU1                                               FC51035    16
                                                  NR     T5,0,T4                                                 FC51035    17
                                                  RFA    T6,T3,LL1                                               FC51035    18
                                                  NR     T7,0,T6                                                 FC51035    19
                                                  FA     RU1,T7,T5                                               FC51035    20
                                                  DFA    RL1,T7,T5                                               FC51035    21
           466 0                                  ENDS                                                           FC51035    22
                                                                                                                 SKEL      711
                                                                                                                 SKEL      712
                                         DSIGN    SKEL                                                           SKEL      713
                                                  KRS    T2,LU1,59                                               SKEL      714
                                                  XOR    T3,T2,LU1                                               SKEL      715
                                                  XOR    T4,T2,LL1                                               SKEL      716
                                                  CLR    T5                                                      SKEL      717
                                                  IAZ    T6,T5,LU2                                               SKEL      718
                                                  KRS    T8,T6,59                                                SKEL      719
                                                  XOR    RU1,T3,T8                                               SKEL      720
                                                  XOR    RL1,T4,T8                                               SKEL      721
           477 0                                  ENDS                                                           SKEL      722
                                                                                                                 SKEL      723
                                                                                                                 SKEL      724
                                         EQV      SKEQU  EQV.B                                                   SKEL      725
                                                                                                                 SKEL      726
                                                                                                                 SKEL      727
                                         FLOAT    SKEQU  ITOR                                                    SKEL      728
                                                                                                                 SKEL      729
                                                                                                                 SKEL      730
                                         IABS     SKEQU  ABS                                                     SKEL      731
                                                                                                                 SKEL      732
                                                                                                                 SKEL      733
                                         IDINT    SKEQU  RTOI                                                    SKEL      734
                                                                                                                 SKEL      735
                                         IDNINT   SKEL                                                           SKEL      736
                                                  KRS    T2,L1,59                                                SKEL      737
                                                  PK     T3,0,T2                                                 SKEL      738
                                                  RFA    T4,T3,L1                                                SKEL      739
                                                  UP     R1,0,T4                                                 SKEL      740
           511 0                                  ENDS                                                           SKEL      741
                                                                                                                 SKEL      742
                                                                                                                 SKEL      743
                                         IFIX     SKEQU  RTOI                                                    SKEL      744
                                                                                                                 SKEL      745
                                                                                                                 SKEL      746
                                         INT      SKEQU  RTOI                                                    SKEL      747
                                                                                                                 SKEL      748
                                                                                                                 SKEL      749
                                         ISIGN    SKEL                                                           SKEL      750
                                                  KRS    T2,L1,59                                                SKEL      751
                                                  XOR    T3,T2,L1                                                SKEL      752
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    44
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                  CLR    T4                                                      SKEL      753
                                                  IAZ    T5,T4,L2                                                SKEL      754
                                                  KRS    T7,T5,59                                                SKEL      755
                                                  XOR    R1,T7,T3                                                SKEL      756
           516 0                                  ENDS                                                           SKEL      757
                                                                                                                 SKEL      758
                                                                                                                 SKEL      759
                                         IDIM     SKEL                                                           SKEL      760
                                                  IS     T1,L1,L2                                                SKEL      761
                                                  KRS    T3,T1,59                                                SKEL      762
                                                  STR    R1,T3,T1                                                SKEL      763
           526 0                                  ENDS                                                           SKEL      764
                                                                                                                 SKEL      765
                                         MASK     SKEL                                                           SKEL      766
                                                  CALL   MASK                                                    SKEL      767
           532 0                                  ENDS                                                           SKEL      768
                                                                                                                 SKEL      769
                                         MASKV    SUBSKEL                                                        SKEL      770
                                                  FMA    T1,1                                                    SKEL      771
                                                  SB=XK  "TBR",L1,-1                                             SKEL      772
                                                  IRS    T2,"TBR",T1                                             SKEL      773
                                                  KRS    T4,T2,59                                                SKEL      774
                                                  AND    R1,T4,T2                                                SKEL      775
           533 0                                  ENDS                                                           SKEL      776
                                                                                                                 SKEL      777
                                         MASKC    SUBSKEL                                                        SKEL      778
                                                  FMA    R1,P1                                                   SKEL      779
           541 0                                  ENDS                                                           SKEL      780
                                                                                                                 SKEL      781
                                         MOD      SKEL   MODG                                                    SKEL      782
                                                  CALL   MOD                                                     SKEL      783
           542 0                                  ENDS                                                           SKEL      784
                                                                                                                 SKEL      785
                                         MODG     SUBSKEL                                                        SKEL      786
                                                  PK     T1,0,L2    I=MOD(J,K)                                   SKEL      787
                                                  NR     T2,0,T1                                                 SKEL      788
                                                  PK     T3,0,L1                                                 SKEL      789
                                                  FD     T4,T3,T2                                                SKEL      790
                                                  UP     T5,"TBR",T4                                             SKEL      791
                                                  ILS    T6,"TBR",T5                                             SKEL      792
                                                  IM     T7,T6,L2                                                SKEL      793
                                                  IS     R1,L1,T7                                                SKEL      794
           543 0                                  ENDS                                                           SKEL      795
                                                                                                                 SKEL      796
                                         MODP2    SUBSKEL                                                        SKEL      797
                                                  KRS    T2,L1,59                                                SKEL      798
                                                  XOR    T3,L1,T2                                                SKEL      799
                                                  FMA    T4,GP1                                                  SKEL      800
                                                  STR    T5,T4,T3                                                SKEL      801
                                                  XOR    R1,T5,T2                                                SKEL      802
           553 0                                  ENDS                                                           SKEL      803
                                                                                                                 SKEL      804
                                                                                                                 SKEL      805
                                         NEQV     SKEQU  XOR.B                                                   SKEL      806
                                                                                                                 SKEL      807
                                         NINT     SKEQU  IDNINT                                                  SKEL      808
                                                                                                                 SKEL      809
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    45
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      810
                                         OR       SKEQU  OR.B                                                    SKEL      811
                                                                                                                 SKEL      812
                                                                                                                 SKEL      813
                                         RANF     SKEL                                                           SKEL      814
                                                  DFM    T1,LL2,LU1                                              SKEL      815
                                                  ST     L1,T1                                                   SKEL      816
                                                  NR     R1,0,T1                                                 SKEL      817
           561 0                                  ENDS                                                           SKEL      818
                                                                                                                 SKEL      819
                                         REAL     SKEQU  CTOR        COMPLEX TO REAL                             SKEL      820
                                                                                                                 SKEL      821
                                                                                                                 SKEL      822
                                         SIGN     SKEQU  ISIGN                                                   SKEL      823
                                                                                                                 SKEL      824
                                                                                                                 SKEL      825
                                         SNGL     SKEQU  REAL                                                    SKEL      826
                                                                                                                 SKEL      827
                                                                                                                 SKEL      828
                                         SHIFT    SKEL   SHIFV                                                   FC5A190     6
                                                  CALL   SHIFT                                                   SKEL      830
           564 0                                  ENDS                                                           SKEL      831
                                                                                                                 SKEL      832
                                         SHIFV    SUBSKEL                                                        SKEL      833
                                                  SB=XB  "TBR",L2                                                SKEL      834
                                                  ILS    R1,"TBR",L1                                             SKEL      835
           565 0                                  ENDS                                                           SKEL      836
                                                                                                                 SKEL      837
                                         SHLC     SUBEQU SHFC                                                    SKEL      838
                                                                                                                 SKEL      839
                                         SHRC     SUBEQU IDP2                                                    SKEL      840
                                                                                                                 SKEL      841
                                                                                                                 SKEL      842
                                         XOR      SKEQU  NEQV                                                    SKEL      843
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    46
        SKEL - INSTRUCTION SKELETON EXPANSIONS. 
  
                                        **        V=DOB - DO BEGIN EXPANSION.                                    SKEL      845
                                        *                (L1) = CONTROL INDEX    (I)                             SKEL      846
                                        *                (L2) = NUMBER OF TRIPS  (TC)                            SKEL      847
                                        *                (L3) = TRIP COUNTER     (DC.N)                          SKEL      848
                                        *                (L4) = UPPER LIMIT      (M2)                            SKEL      849
                                        *                (P5) = DOBEGIN LABEL                                    SKEL      850
                                        *                (P6) = DOEND LABEL      (ONLY IF ZERO-TRIP LOOP)        SKEL      851
                                        *         MEGATURPLE SIZE = 3 TURPLES.                                   SKEL      852
                                                                                                                 SKEL      853
                                                                                                                 SKEL      854
                                                                                                                 SKEL      855
                                         DOBS     SKEL               ONE-TRIP DO BEGIN                           SKEL      856
                                                  CALLC  DOO         SEE IF OPTIMIZABLE                          SKEL      857
                                         DOBS1    CALL   DOBZ        GL1 = 1                                     SKEL      858
                                                  IS     T1,L2,GL1                                               SKEL      859
                                                  ST     L3,T1                                                   SKEL      860
                                                  CALLQ  CAR                                                     SKEL      861
                                                  CALL   DOB,P5                                                  SKEL      862
           567 0                                  ENDS                                                           SKEL      863
                                                                                                                 SKEL      864
                                         DOBL     SKEL                                                           SKEL      865
                                                  CALLC  DOL         FLAG LONG DO                                SKEL      866
           574                                    BRANCH DOBS1                                                   SKEL      867
           574 0                                  ENDS                                                           SKEL      868
                                                                                                                 SKEL      869
                                         DOBZS    SKEL               ZERO-TRIP DO BEGIN, SHORT TRIP COUNT        SKEL      870
                                                  CALLC  DZO         SEE IF OPTIMIZABLE                          SKEL      871
                                                  SX=XK  T1,L2,-1                                                SKEL      872
                                                  ST     L3,T1                                                   SKEL      873
                                         DOBZ1    MI     T1,P6       IF (TRIP COUNT) <= 0 THEN SKIP LOOP         SKEL      874
                                                  CALLC  DOZ,P5                                                  SKEL      875
                                                  CALLQ  CAR                                                     SKEL      876
                                                  CALL   DOB,P5                                                  SKEL      877
           575 0                                  ENDS                                                           SKEL      878
                                                                                                                 SKEL      879
                                         DOBZL    SKEL               ZERO TRIP DO BEGIN, LONG COUNT              SKEL      880
                                                  CALLC  DOL         FLAG LONG DO                                SKEL      881
                                                  CALL   DOBZ        SET GL1 = -1                                SKEL      882
                                                  IS     T1,L2,GL1                                               SKEL      883
                                                  ST     L3,T1                                                   SKEL      884
                                                  BRANCH DOBZ1,T1                                                SKEL      885
           602 0                                  ENDS                                                           SKEL      886
                                                                                                                 SKEL      887
                                         #CD      IFEQ   .CG,.OPT                                                SKEL      888
                                         DOBO     SUBSKEL                  OPTIMIZED (NO TRIP COUNT) LOOP        SKEL      889
                                                  CALL   DOB,P5                                                  SKEL      890
                                                  ENDS                                                           SKEL      891
                                                                                                                 SKEL      892
                                         DOZO     SUBSKEL                  OPTIMIZED ZERO TRIP LOOP              SKEL      893
                                                  SX=XK  T1,L2,-1                                                SKEL      894
                                                  BRANCH DOBZ1,T1                                                SKEL      895
                                                  ENDS                                                           SKEL      896
                                                                                                                 SKEL      897
                                         #CD      ENDIF                                                          SKEL      898
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    47
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                        **        V=DOC - DO CONCLUSION CODE.                                    SKEL      900
                                        *                (L1) = CONTROL INDEX    (I)                             SKEL      901
                                        *                (L2) = INCREMENT VALUE  (M3)                            SKEL      902
                                        *                (P3) = DO BEGIN LABEL                                   SKEL      903
                                        *                (L4) = TRIP COUNTER     (DC.N)                          SKEL      904
                                        *         MEGATURPLE LENGTH = 2 TURPLES.                                 SKEL      905
                                                                                                                 SKEL      906
                                                                                                                 SKEL      907
                                         DOC.S    SKEL               INTEGER, SHORT LOOP                         SKEL      908
                                                  CALL   DOC,0       SET (GL1) = INTEGER -1                      SKEL      909
                                                  IA     T1,L2,L1                                                SKEL      910
                                         DOCS1    ST     L1,T1       CONTROL = CONTROL + INCREMENT               SKEL      911
                                                  SX=XK  T3,L4,-1    DECREMENT TRIP COUNTER                      SKEL      912
                                         DOCS2    ST     L4,T3                                                   SKEL      913
                                                  PL     T3,P3                                                   SKEL      914
                                                  CALL   PDE                                                     SKEL      915
           606 0                                  ENDS                                                           SKEL      916
                                                                                                                 SKEL      917
                                         DOC.O    SKEL                                                           FC51364     8
                                                  CALL   DOC,0                                                   FC51364     9
                                                  IA     T1,L2,L1                                                FC51364    10
                                                  ST     L1,T1       CONTROL = CONTROL + INCREMENT               FC51364    11
                                                  CALL   PDE                                                     FC51364    12
           615 0                                  ENDS                                                           FC51364    13
                                                                                                                 FC51364    14
                                         DOC.K    SUBSKEL            INTEGER, SHORT LOOP, CONSTANT INCREMENT     SKEL      918
                                                  SX=XK  T1,L1,P2                                                SKEL      919
                                                  BRANCH DOCS1,(T1)                                              SKEL      920
           621 0                                  ENDS                                                           SKEL      921
                                                                                                                 SKEL      922
                                         #CD      IFEQ   .CG,.OPT                                                SKEL      923
                                         DOC.1    SKEL                                                           FC5A511    13
                                                  IA     T1,L1,L2                                                FC5A511    14
                                                  ST     L1,T1       CONTROL = CONTROL + INCREMENT               FC5A511    15
                                                  CALL   PDE1                                                    FC5A511    16
                                                  ENDS                                                           FC5A511    17
                                                                                                                 FC5A511    18
                                         DC.OV    SUBSKEL            OPTIMIZED (NO TRIP COUNT), VAR. INCREMENT   SKEL      924
                                                  IA     T1,L1,L2                                                SKEL      925
                                         DC.O1    ST     L1,T1       I = I + INC                                 SKEL      926
                                                  IS     T3,GL1,T1                                               SKEL      927
                                                  PL     T3,P3                                                   SKEL      928
                                                  CALL   PDE                                                     SKEL      929
                                                  ENDS                                                           SKEL      930
                                                                                                                 SKEL      931
                                         DC.OC    SUBSKEL            OPTIMIZED (NO TRIP COUNT), CON. INCREMENT   SKEL      932
                                                  SX=XK  T1,L1,P2                                                SKEL      933
                                                  BRANCH DC.O1 ,T1                                               SKEL      934
                                                  ENDS                                                           SKEL      935
                                                                                                                 FC50136     6
                                         DC.OS    SUBSKEL                  OPTIMIZED, CON. INCREMENT AND ULIM    FC50136     7
                                                  SX=XK  T1,L1,P2                                                FC50136     8
                                                  ST     L1,T1                                                   FC50136     9
                                                  SX=XK  T2,T1,GP1                                               FC50136    10
                                                  MI     T2,P3                                                   FC50136    11
                                                  CALL   PDE                                                     FC50136    12
                                                  ENDS                                                           FC50136    13
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    48
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                                                                                                 FC5A113     4
                                         DC.O1    SUBSKEL            OPTIMIZED FOR I=J,J                         FC5A113     5
                                                  IA     T1,L1,L2                                                FC5A113     6
                                                  ST     L1,T1       CV = CV + INC                               FC5A113     7
                                                  CALL   PDE1                                                    FC50130     5
                                                  ENDS                                                           FC5A113     8
                                                                                                                 SKEL      936
                                         #CD      ENDIF                                                          SKEL      937
                                                                                                                 SKEL      938
                                                                                                                 SKEL      939
                                         DOC.L    SKEL               INTEGER, LONG LOOP                          SKEL      940
                                                  CALL   DOC,1                                                   SKEL      941
                                                  IA     T1,L1,L2                                                SKEL      942
                                         DOCL1    ST     L1,T1       CONTROL = CONTROL + INCREMENT               SKEL      943
                                         DOCL2    IA     T3,L4,GL1   DECREMENT TRIP COUNTER                      SKEL      944
                                                  BRANCH DOCS2,(T3)                                              SKEL      945
           623 0                                  ENDS                                                           SKEL      946
                                                                                                                 SKEL      947
                                         DOC.R    SKEL               REAL, ALWAYS LONG                           SKEL      948
                                                  CALL   DOC,1                                                   SKEL      949
                                                  FAR    T2,L1,L2                                                SKEL      950
                                                  NR     T1,0,T2                                                 SKEL      951
                                                  BRANCH DOCL1,(T1)                                              SKEL      952
           630 0                                  ENDS                                                           SKEL      953
                                                                                                                 SKEL      954
                                         DOC.D    SKEL               DOUBLE, ALWAYS LONG                         SKEL      955
                                                  CALL   DOC,1                                                   SKEL      956
                                                  FA     T1,LU1,LU2                                              SKEL      957
                                                  DFA    T2,LU1,LU2                                              SKEL      958
                                                  FA     T3,LL1,LL2                                              SKEL      959
                                                  NR     T4,0,T1                                                 SKEL      960
                                                  FA     T5,T2,T3                                                SKEL      961
                                                  FA     T6,T4,T5                                                SKEL      962
                                                  NR     T7,0,T6                                                 SKEL      963
                                                  DFA    T8,T4,T5                                                SKEL      964
                                                  NR     T9,0,T8                                                 SKEL      965
                                                  FA     T10,T7,T9                                               SKEL      966
                                                  DFA    T11,T7,T9                                               SKEL      967
                                                  ST     LU1,T10                                                 SKEL      968
                                                  ST     LL1,T11                                                 SKEL      969
           634                                    BRANCH DOCL2                                                   SKEL      970
           634 0                                  ENDS                                                           SKEL      971
                                                                                                                 FC5A218     8
                                         #CD      IFEQ   .CG,.OPT                                                FC5A218     9
                                                                                                                 FC5A218    10
                                         IOLC     SKEL               IO LIST COLLAPSE                            FC5A218    11
                                                  CALL   IOLC                                                    FC5A218    12
                                                  ENDS                                                           FC5A218    13
                                                                                                                 FC5A218    14
                                         IOLC1    SUBSKEL                  ONE TRIP (OPTIMIZED) HEADER           FC5A218    15
                                                  IA     T1,L3,L4    CV = ULIM + INCR (1)                        FC5A218    16
                                                  ST     L1,T1                                                   FC5A218    17
                                                  ENDS                                                           FC5A218    18
                                                                                                                 FC5A218    19
                                         IOLC0    SUBSKEL                  ZERO TRIP COLLAPSE HEADER             FC5A218    20
                                         #CD      ELSE                                                           FC5A218    21
                                         IOLC     SKEL               IO LIST COLLAPSE - DEFINE CONTROL VAR       FC5A218    22
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    49
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                         #CD      ENDIF                                                          FC5A218    23
                                                  IS     T1,L3,L2                                                FC5A218    24
                                                  KRS    T3,T1,59                                                FC5A218    25
                                                  IA     T4,L3,L4                                                FC5A218    26
                                                  AND    T5,T3,L2                                                FC5A218    27
                                                  STR    T6,T3,T4                                                FC5A218    28
                                                  OR     T7,T5,T6                                                FC5A218    29
                                                  ST     L1,T7                                                   FC5A218    30
           653 0                                  ENDS                                                           FC5A218    31
                                                                                                                 FC5A248     6
                                         LCIF     SKEL               PROTECT INNER CV DEFINITIONS                FC5A248     7
                                                  IS     T1,L3,L2                                                FC5A248     8
                                                  MI     T1,P1                                                   FC5A248     9
                                                  CALLC  IF,1                                                    FC5A248    10
           663 0                                  ENDS                                                           FC5A248    11
  
  
  
  
                                        **        *GO TO* INSTRUCTIONS.                                          SKEL      973
                                                                                                                 SKEL      974
                                                                                                                 SKEL      975
                                                                                                                 SKEL      976
                                         GOTO     SKEL                         UNCONDITIONAL GOTO                SKEL      977
                                                  UJP    P1                                                      SKEL      978
                                                  CALLC  PGT                                                     SKEL      979
           665 0                                  ENDS                                                           SKEL      980
                                                                                                                 SKEL      981
                                                                                                                 SKEL      982
                                         AGOTO    SKEL                         ASSIGNED GOTO                     SKEL      983
                                                  IR     L1,=XS=BU                                               SKEL      984
                                                  SB=XK  "TBR",L1,=XS=TRACE                                      SKEL      985
                                                  JIN    "TBR"                                                   SKEL      986
                                                  CALLC  PAG                                                     SKEL      987
           666 0                                  ENDS                                                           SKEL      988
                                                                                                                 SKEL      989
                                                                                                                 SKEL      990
                                         CGOTO    SKEL                         COMPUTED GOTO                     SKEL      991
                                        *                            (X1) = EXPRESSION VALUE                     SKEL      992
                                                  SX=BK  T1,0,P2     SX6 N.BRANCHES                              SKEL      993
                                                  SX=XK  T2,L1,-1    SX0 X1-1                                    SKEL      994
                                                  IS     T3,T2,T1    IX2 X0-X6                                   SKEL      995
                                                  IMP    T4,T3,T2    BX3 -X2+X0                                  SKEL      996
                                                  KRS    T6,T4,59    AX3 59                                      SKEL      997
                                                  STR    T7,T6,T2    BX4 -X3*X0                                  SKEL      998
                                                  AND    T8,T6,T1    BX5 X3*X6                                   SKEL      999
                                                  IA     T9,T7,T8    BX6 X4+X5                                   SKEL     1000
                                                  SB=XB  "TBR",T9    SB2 X6                                      SKEL     1001
                                                  CALLQ  CAR                                                     SKEL     1002
                                                  CALL   PCG,"TBR"                                               SKEL     1003
           671 0                                  ENDS                                                           SKEL     1004
                                                                                                                 SKEL     1005
                                         JGOTO    SKEL                         JUMP TO A COMPUTED GOTO BRANCH    SKEL     1006
                                                  UJP    P1                                                      SKEL     1007
                                                  CALLC  JGOC                                                    SKEL     1008
           705 0                                  ENDS                                                           SKEL     1009
                                                                                                                 SKEL     1010
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    50
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       GOTO
  
                                         RGOTO    SKEL               INDEXED JUMP TO ALTERNATE RETURN LABELS     SKEL     1011
                                                  CALL   RGT                                                     SKEL     1012
                                                  DEF    T1,,"X1."                                               SKEL     1013
                                                  SX=XK  T2,T1,-1                                                SKEL     1014
                                                  SX=XK  T3,T2,GP2                                               SKEL     1015
                                                  IMP    T4,T3,T2                                                SKEL     1016
                                                  KRS    T6,T4,59                                                SKEL     1017
                                                  STR    T7,T6,T1                                                SKEL     1018
                                                  LOAD   T8,T7,GP1                                               SKEL     1019
                                                  SB=XB  "TBR",T8                                                SKEL     1020
                                                  CALLQ  CAR                                                     SKEL     1021
                                                  JIN    "TBR"                                                   SKEL     1022
           706 0                                  ENDS                                                           SKEL     1023
                                                                                                                 SKEL     1024
                                                                                                                 SKEL     1025
                                         ASSGN    SKEL                                                           SKEL     1026
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1027
                                                  CALL   PASG         SETS GL1 TO LA.+K                          SKEL     1028
                                                  ST     L2,GL1                                                  SKEL     1029
                                                                                                                 SKEL     1030
                                         #CD      ELSE                                                           SKEL     1031
                                                  CALL   PASG,L1      ISSUES ST1 L1-TEMPA0.                      SKEL     1032
                                                  ENDS                                                           SKEL     1033
                                                                                                                 SKEL     1034
                                         ASLAB    SUBSKEL                  ASSIGN TO CODE LABEL                  SKEL     1035
                                                                                                                 SKEL     1036
                                        *         P=PASG DEFINES T1.                                             SKEL     1037
                                                                                                                 SKEL     1038
                                                  FMA    T2,1                                                    SKEL     1039
                                                  OR     T3,T1,T2                                                SKEL     1040
                                                  ST     L2,T3                                                   SKEL     1041
                                                  ENDS                                                           SKEL     1042
                                                                                                                 SKEL     1043
                                         ASFMT    SUBSKEL                  ASSIGN TO FORMAT LABEL                SKEL     1044
                                                  ST     L2,T1                                                   SKEL     1045
                                         #CD      ENDIF                                                          SKEL     1046
           723 0                                  ENDS                                                           SKEL     1047
                                                                                                                 SKEL     1048
                                         BSS      SKEL                                                           SKEL     1049
                                                  CALL   PLA,P1                                                  SKEL     1050
           725 0                                  ENDS                                                           SKEL     1051
                                                                                                                 SKEL     1052
                                         ARY      SKEL                     SUBSCRIPTED ARRAY LOAD                SKEL     1053
                                                  CALL   PAR         PROCESS ARRAY REFERENCE                     SKEL     1054
           726 0                                  ENDS                                                           SKEL     1055
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    51
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       APL 
  
                                        **        AP-LIST CONSTRUCTION.                                          SKEL     1057
                                                                                                                 SKEL     1058
                                                                                                                 SKEL     1059
                                         GAP      SKEL                                                           SKEL     1060
                                                  CALL   GAP         PROCESS GENERAL ACTUAL PARAMETER            SKEL     1061
           727 0                                  ENDS                                                           SKEL     1062
                                                                                                                 SKEL     1063
                                         FAP      SKEL                                                           SKEL     1064
                                                  CALL   FAP         FUNCTION APLIST FOLLOWS                     SKEL     1065
           730 0                                  ENDS                                                           SKEL     1066
                                                                                                                 SKEL     1067
                                         IAP      SKEL                                                           SKEL     1068
                                                  CALL   IAP         PROCESS INTRINSIC ACTUAL PARAMETER          SKEL     1069
           731 0                                  ENDS                                                           SKEL     1070
  
  
  
  
                                        **        V=RAG - REGISTER ASSIGNEMENT AND LOAD FOR CALL BY VALUE SKELS. SKEL     1072
                                        *                (1OP) = FIRST  ARGUMENT.                                SKEL     1073
                                        *                (2OP) = SECOND ARGUMENT (OR NIL).                       SKEL     1074
                                        *         QCG ONLY.  CCG DOES THIS WITH REGISTER STORES.                 SKEL     1075
                                                                                                                 SKEL     1076
                                                                                                                 SKEL     1077
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1078
                                                                                                                 SKEL     1079
                                         IAPS1    SUBSKEL                                                        SKEL     1080
                                                  LD     L1,,+R.X1   FIRST ARGUMENT                              SKEL     1081
           732 0                                  ENDS                                                           SKEL     1082
                                                                                                                 SKEL     1083
                                         IAPD1    SUBSKEL                                                        SKEL     1084
                                                  LD     LU1,,+R.X1  FIRST ARGUMENT, DOUBLE                      SKEL     1085
                                                  LD     LL1,,+R.X2                                              SKEL     1086
           733 0                                  ENDS                                                           SKEL     1087
                                                                                                                 SKEL     1088
                                         IAPS2    SUBSKEL                                                        SKEL     1089
                                                  LD     L1,,+R.X3   SECOND ARGUMENT                             SKEL     1090
           735 0                                  ENDS                                                           SKEL     1091
                                                                                                                 SKEL     1092
                                         IAPD2    SUBSKEL                                                        SKEL     1093
                                                  LD     LU1,,+R.X3  SECOND ARGUMENT, DOUBLE                     SKEL     1094
                                                  LD     LL1,,+R.X4                                              SKEL     1095
           736 0                                  ENDS                                                           SKEL     1096
                                         #CD      ENDIF                                                          SKEL     1097
                                                                                                                 SKEL     1098
                                        **        CALL BY REFERENCE APLIST SETUP AND CODE  SKELETONS             SKEL     1099
                                                                                                                 SKEL     1100
                                         APIOC    SKEL                                                           SKEL     1101
                                                  CALL   IOC         PROCESS I/O CONTROL PARAMETER               SKEL     1102
           740 0                                  ENDS                                                           SKEL     1103
                                                                                                                 SKEL     1104
                                         APIOD    SKEL                                                           SKEL     1105
                                                  CALL   IOD         PROCESS I/O DATA PARAMETER (LIST ITEM)      SKEL     1106
           741 0                                  ENDS                                                           SKEL     1107
                                                                                                                 SKEL     1108
                                         APIOU    SKEL                                                           SKEL     1109
                                                  CALL   IOU         PROCESS I/O UNIT                            SKEL     1110
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    52
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
           742 0                                  ENDS                                                           SKEL     1111
                                                                                                                 SKEL     1112
                                                                                                                 SKEL     1113
                                         APSTR    SUBSKEL                                                        SKEL     1114
                                                  ST     GL2,GL1                                                 SKEL     1115
                                                  CALL   APRET                                                   SKEL     1116
           743 0                                  ENDS                                                           SKEL     1117
                                                                                                                 SKEL     1118
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    20
                                         IPLUG    SUBSKEL                  MUST FOLLOW APSTR                     SKEL     1119
                                                  FMA    T1,36       PLUG ADDRESS INTO I/O AP-LIST               SKEL     1120
                                                  AND    T2,T1,GL2                                               SKEL     1121
                                                  OR     T3,T2,GL1                                               SKEL     1122
                                                  ST     GL2,T3                                                  SKEL     1123
                                                  CALL   APRET                                                   SKEL     1124
                                                  ENDS                                                           SKEL     1125
                                                                                                                 FC51544     7
                                         IPLG1    SUBSKEL                                                        FC51544     8
                                                  FMA    T1,36                                                   FC51544     9
                                                  AND    T2,T1,GL2                                               FC51544    10
                                                  STR    T3,T1,GL1                                               FC51544    11
                                                  OR     T4,T2,T3                                                FC51544    12
                                                  ST     GL2,T4                                                  FC51544    13
                                                  CALL   APRET                                                   FC51544    14
                                                  ENDS                                                           FC51544    15
                                                                                                                 FC51544    16
                                         IPLG2    SUBSKEL                                                        FC51544    17
                                                  FMA    T1,25                                                   FC51544    18
                                                  KLS    T3,T1,24                                                FC51544    19
                                                  STR    T4,T3,GL2                                               FC51544    20
                                                  AND    T5,T3,GL1                                               FC51544    21
                                                  OR     T6,T4,T5                                                FC51544    22
                                                  ST     GL2,T6                                                  FC51544    23
                                                  CALL   APRET                                                   FC51544    24
                                                  ENDS                                                           FC51544    25
                                         #CD      ENDIF                                                          FC5A128    21
                                                                                                                 SKEL     1126
                                         IPLG0    SUBSKEL                  PLUG LEVEL 0 I/O APLIST               SKEL     1127
                                                  FMA    T1,25       MX1   25                                    SKEL     1128
                                                  KLS    T3,T1,24    LX3   X1,24                                 SKEL     1129
                                                  STR    T4,T3,GL2   BX4   -X1*X.GL2                             SKEL     1130
                                                  OR     T5,T4,GL1   BX5   X4+X.GL1                              SKEL     1131
                                                  ST     GL2,T5                                                  SKEL     1132
                                                  CALL   APRET                                                   SKEL     1133
           745 0                                  ENDS                                                           SKEL     1134
                                                                                                                 SKEL     1135
                                        *         CHARACTER APLIST STORES.                                       SKEL     1136
                                                                                                                 SKEL     1137
                                         CAPST    SUBSKEL            NON IO CHARACTER APSTORE                    SKEL     1138
                                                  DEF    T1,,"X6."                                               SKEL     1139
                                                  ST     GL1,T1                                                  SKEL     1140
                                                  CALL   SCRET                                                   SKEL     1141
           754 0                                  ENDS                                                           SKEL     1142
                                                                                                                 SKEL     1143
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    22
                                         CISST    SUBSKEL            CHARACTER I/O SCALAR                        SKEL     1144
                                                  DEF    T1,,"X6."                                               SKEL     1145
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    53
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
                                                  FMA    T2,49                                                   FC51351     6
                                                  KLS    T4,T2,48                                                FC51351     7
                                                  STR    T5,T4,GL1                                               FC51351     8
                                                  AND    T7,T4,T1                                                FC51351     9
                                                  OR     T6,T7,T5                                                FC51351    10
                                                  ST     GL1,T6                                                  FC51351    11
                                                  CALL   SCRET                                                   SKEL     1151
                                                  ENDS                                                           SKEL     1152
                                                                                                                 SKEL     1153
                                         CIAST    SUBSKEL            CHARACTER I/O ARRAY                         SKEL     1154
                                                  DEF    T1,,"X6."                                               SKEL     1155
                                                  FMA    T2,30                                                   SKEL     1156
                                                  AND    T3,T2,GL1                                               SKEL     1157
                                                  STR    T4,T2,T1                                                SKEL     1158
                                                  OR     T5,T3,T4                                                SKEL     1159
                                                  ST     GL1,T5                                                  SKEL     1160
                                                  CALL   SCRET                                                   SKEL     1161
                                                  ENDS                                                           SKEL     1162
                                         #CD      ENDIF                                                          FC5A128    23
                                                                                                                 SKEL     1163
                                         CIS0S    SUBSKEL            CHARACTER I/O SCALAR (LEVEL 0)              SKEL     1164
                                                  DEF    T1,,"X6."                                               SKEL     1165
                                                  FMA    T2,49                                                   SKEL     1166
                                                  KLS    T4,T2,48                                                SKEL     1167
                                                  STR    T5,T4,GL1                                               SKEL     1168
                                                  AND    T7,T4,T1                                                SKEL     1169
                                                  OR     T6,T7,T5                                                SKEL     1170
                                                  ST     GL1,T6                                                  SKEL     1171
                                                  CALL   SCRET                                                   SKEL     1172
           757 0                                  ENDS                                                           SKEL     1173
                                                                                                                 SKEL     1174
                                         CIA0S    SUBSKEL            CHARACTER I/O ARRAY (LEVEL 0)               SKEL     1175
                                                  DEF    T1,,"X6."                                               SKEL     1176
                                                  FMA    T2,31                                                   SKEL     1177
                                                  KLS    T4,T2,30                                                SKEL     1178
                                                  AND    T5,T4,T1                                                SKEL     1179
                                                  STR    T6,T4,GL1                                               SKEL     1180
                                                  OR     T7,T5,T6                                                SKEL     1181
                                                  ST     GL1,T7                                                  SKEL     1182
                                                  CALL   SCRET                                                   SKEL     1183
           770 0                                  ENDS                                                           SKEL     1184
                                                                                                                 FC5A243     9
                                         #CD      IFEQ   .CG,.FAST                                               FC5A243    10
                                         LUA      SUBSKEL                  LOAD UNKNOWN-LENGTH APLIST ITEM       FC5A243    11
                                                  XMT    "X6.",GL1                                               FC5A243    12
                                                  CALL   LURET                                                   FC5A243    13
          1001 0                                  ENDS                                                           FC5A243    14
                                                                                                                 FC5A243    15
                                         SUA      SUBSKEL                  STORE UNKNOWN-LENGTH APLIST ITEM      FC5A243    16
                                                  DEF    T1,,"X6."                                               FC5A243    17
                                                  ST     GL1,T1                                                  FC5A243    18
                                                  CALL   SURET                                                   FC5A243    19
          1003 0                                  ENDS                                                           FC5A243    20
                                         #CD      ENDIF                                                          FC5A243    21
                                                                                                                 FC5A243    22
                                                                                                                 SKEL     1185
                                         SUBR     SKEL                                                           SKEL     1186
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    54
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
                                                  CALL   SUB         PROCESS SUBROUTINE                          SKEL     1187
          1006 0                                  ENDS                                                           SKEL     1188
                                                                                                                 SKEL     1189
                                         FUNC     SKEL                                                           SKEL     1190
                                                  CALL   FUN         PROCESS GENERAL FUNCTION                    SKEL     1191
          1007 0                                  ENDS                                                           SKEL     1192
                                                                                                                 SKEL     1193
                                         LIBF     SKEL               LIBRARY FUNCTION (NO ZERO TERMINATOR)       SKEL     1194
                                                  CALL   LIBF                                                    SKEL     1195
          1010 0                                  ENDS                                                           SKEL     1196
                                         INTF     SKEL                                                           SKEL     1197
                                                  CALL   INF         PROCESS INTRINSIC FUNCTION CALL             SKEL     1198
          1011 0                                  ENDS                                                           SKEL     1199
                                                                                                                 SKEL     1200
                                         IOSUB    SKEL                                                           SKEL     1201
                                                  CALL   IOF         PROCESS I/O ROUTINE                         SKEL     1202
          1012 0                                  ENDS                                                           SKEL     1203
                                                                                                                 SKEL     1204
                                         #CD      IFEQ   .CG,.OPT                                                SKEL     1205
                                                                                                                 SKEL     1206
                                         DFRS     SUBSKEL            DEFINE SINGLE-VALUED FUNCTION RESULT        SKEL     1207
                                                  DEF    R1,,"X6."                                               SKEL     1208
                                                  CALL   FRRET                                                   SKEL     1209
                                                  ENDS                                                           SKEL     1210
                                                                                                                 SKEL     1211
                                         DFRD     SUBSKEL            DOUBLE-VALUED FUNCTION RESULT               SKEL     1212
                                                  DEF    R1,,"X6."                                               SKEL     1213
                                                  DEF    RL1,,"X7."                                              SKEL     1214
                                                  CALL   FRRET                                                   SKEL     1215
                                                  ENDS                                                           SKEL     1216
                                                                                                                 SKEL     1217
                                         #CD      ENDIF                                                          SKEL     1218
                                                                                                                 SKEL     1219
                                                                                                                 SKEL     1220
                                         ERR      SKEL                         SOURCE PROGRAM FATAL ERROR        SKEL     1221
                                                  CALLQ  CDW         DRITE                                       SKEL     1222
                                                  RJT    =XS=ERR                                                 SKEL     1223
                                                  CALLQ  CAR         CLEAR REGS                                  SKEL     1224
          1013 0                                  ENDS                                                           SKEL     1225
  
  
  
  
                                        **        SUBPROGRAM EXIT INSTRUCTIONS.                                  SKEL     1227
                                                                                                                 SKEL     1228
                                                                                                                 SKEL     1229
                                         STOP     SKEL                                                           SKEL     1230
                                                  CALL   LIB                                                     SKEL     1231
                                                  CALLC  PEX                                                     SKEL     1232
          1016 0                                  ENDS                                                           SKEL     1233
                                                                                                                 SKEL     1234
                                         PEND     SKEQU  STOP                                                    SKEL     1235
                                                                                                                 SKEL     1236
                                         PAUS     SKEL                                                           SKEL     1237
                                                  CALL   LIB                                                     SKEL     1238
          1017 0                                  ENDS                                                           SKEL     1239
                                                                                                                 SKEL     1240
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    55
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       EXIT. 
  
                                         RET      SKEL                                                           SKEL     1241
                                                  CALLQ  CDW         DRITE                                       SKEL     1242
                                                  UJP    =XS=EXIT                                                SKEL     1243
                                                  CALLC  PEX                                                     SKEL     1244
          1020 0                                  ENDS                                                           SKEL     1245
                                                                                                                 SKEL     1246
                                         RTNK     SKEL               ALTERNATE RETURN                            SKEL     1247
                                                  XMTL   X1,T1,L1                                                SKEL     1248
                                                  CALLQ  CDW         CALL DRITE                                  SKEL     1249
                                                  UJP    =XS=AEXIT                                               SKEL     1250
                                                  CALLC  PEX                                                     SKEL     1251
          1022 0                                  ENDS                                                           SKEL     1252
  
  
  
  
                                        **        COMMON ENTRY DEFINITION CODE SKELETONS.                        SKEL     1254
                                        *                                                                        SKEL     1255
                                        *         V=ENTR PROCESS INITIAL REFERENCE TO AN ALT ENTRY               SKEL     1256
                                        *         V=BVD  BEGIN VAR DIM CODE                                      SKEL     1257
                                        *         V=EVD  END VAR DIM CODE                                        SKEL     1258
                                                                                                                 SKEL     1259
                                                                                                                 SKEL     1260
                                         GPL      SKEL               GET PASSED LENGTH (OF FP)                   SKEL     1261
                                                  FMA    T1,42                                                   SKEL     1262
                                                  KRS    T3,L1,30                                                SKEL     1263
                                                  STR    R1,T1,T3                                                SKEL     1264
          1026 0                                  ENDS                                                           SKEL     1265
                                                                                                                 SKEL     1266
                                         ENTR     SKEL                                                           SKEL     1267
                                                  CALL   ENT                                                     SKEL     1268
          1032 0                                  ENDS                                                           SKEL     1269
                                                                                                                 SKEL     1270
                                                                                                                 SKEL     1271
                                         BVD      SKEL               BEGIN VARDIM CODE                           SKEL     1272
                                                  CALL   BVD                                                     SKEL     1273
          1033 0                                  ENDS                                                           SKEL     1274
                                                                                                                 SKEL     1275
                                                                                                                 SKEL     1276
                                         EVD      SKEL               END VARDIM CODE                             SKEL     1277
                                                  CALL   EVD                                                     SKEL     1278
          1034 0                                  ENDS                                                           SKEL     1279
                                                                                                                 SKEL     1280
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1281
                                                                                                                 SKEL     1282
                                        **        QCG PROLOGUE AND ENTRY CODE SKELETONS                          SKEL     1283
                                        *                                                                        SKEL     1284
                                        *         V=PROM  - MAIN PROGRAM PROGLOGUE CODE.                         SKEL     1285
                                        *         V=PROS  - SUB PROGRAM PROGLOGUE CODE.                          SKEL     1286
                                        *                                                                        SKEL     1287
                                        *         V=MFPNT - FP CODE UNIQUE TO A MAIN ENTRY CODE OF A SUBR        SKEL     1288
                                        *         V=FUNT  - FUNCTION SUBPROGRAM RESULT CODE                      SKEL     1289
                                        *         V=DFENT - DOUBLE PRECISION FUNCTION CODE                       SKEL     1290
                                        *         V=TMENT - ENTRY/EXIT SETUP + A CALL TO GENERAL ENTRY FP CODE   SKEL     1291
                                        *         V=ALENT - NORMAL ALTERNATE ENTRY CODE                          SKEL     1292
                                        *         V=TENT  - TERMINATE ALTERNATE ENTRY CODE                       SKEL     1293
                                        *         V=FPENT - FP CODE FOR ALL ENTRY POINTS INCLUDES ANY VARDIM     SKEL     1294
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    56
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       ENTRY.
  
                                        *         V=VDENT - VAR DIM CODE EXPANSION (CALLS A NEW I. L.)           SKEL     1295
                                                                                                                 SKEL     1296
                                         PROM     SUBSKEL                  MAIN PROGRAM PROLOG                   SKEL     1297
                                                  LABL   =XS=ENTRY                                               SKEL     1298
                                                  XMTL   X1,T1,=XS=FILES                                         SKEL     1299
                                                  RJ3    =XS=INIT                                                SKEL     1300
                                                  CALL   FINX                                                    SKEL     1301
          1035 0                                  ENDS                                                           SKEL     1302
                                                                                                                 SKEL     1303
                                         PROS     SUBSKEL                  SUB PROGRAM PROLOG                    SKEL     1304
                                                  CALL   GENT              GENERATE ALT ENT CODE(CALLS V=ALENT)  SKEL     1305
                                         PROS.M   CALL   MENT              MAIN ENT (CALLS V=MFPNT OR V=TMENT)   SKEL     1306
          1041 0                                  ENDS                                                           SKEL     1307
                                                                                                                 SKEL     1308
                                        *         MAIN ENTRY CODE SUBSKELETONS                                   SKEL     1309
                                                                                                                 SKEL     1310
                                         MFPNT    SUBSKEL                  RESET A0 FOR CALLER                   SKEL     1311
                                                  SA=BK  A2,=XS=TA0                                              SKEL     1312
                                                  SA=XB  A0,X2                                                   SKEL     1313
          1043 0                                  ENDF                                                           SKEL     1314
                                                                                                                 SKEL     1315
                                         FUNT     SUBSKEL                  FUNCTION ENTRY CODE                   SKEL     1316
                                                  CALL   FUNT                                                    SKEL     1317
                                                  SA=BK  A4,=XS=VALUE                                            SKEL     1318
                                                  XMT    X6,X4                                                   SKEL     1319
          1045                                    BRANCH TMENT1            TERMINATE MAIN ENTRY                  SKEL     1320
          1045 0                                  ENDS                                                           SKEL     1321
                                                                                                                 SKEL     1322
                                         DFENT    SUBSKEL                  DOUBLE PRECISION CODE                 SKEL     1323
                                                  SA=BK  A4,=XS=VALUE                                            SKEL     1324
                                                  SA=AK  A3,A4,+1                                                SKEL     1325
                                                  XMT    X6,X4                                                   SKEL     1326
                                                  ILS    X7,,X3                                                  SKEL     1327
          1051 0                                  ENDF                                                           SKEL     1328
                                                                                                                 SKEL     1329
                                         TMENT    SUBSKEL                  TERMINATE MAIN ENTRY CODE             SKEL     1330
                                         TMENT1   LABL   =XS=ENTRY                                               SKEL     1331
                                                  UJP    =XS=ENTRY         RETURN ADDRESS WORD                   SKEL     1332
                                                  CALL   FPHDR       PROCESS HEADER INITIAL CODE                 F2950F5A   11
                                                  CALL   FINX                                                    SKEL     1334
          1055 0                                  ENDS                                                           SKEL     1335
                                                                                                                 SKEL     1336
                                        *         ALTERNATE ENTRY SUBSKELS                                       SKEL     1337
                                                                                                                 SKEL     1338
                                         ALENT    SUBSKEL                  STANDARD ALT-ENTRY CODE               SKEL     1339
                                                  LABL   GP1               GP1 IS ALENT TAG                      SKEL     1340
                                                  UJP    GP1                                                     SKEL     1341
                                                  SA=BK  A4,GP1                                                  SKEL     1342
                                                  XMT    X6,X4                                                   SKEL     1343
                                                  SA=BK  A6,=XS=ENTRY      STORE RETURN ADDR IN ENTRY/EXIT       SKEL     1344
                                                  CALL   FPENT                                                   SKEL     1345
          1061 0                                  ENDF                                                           SKEL     1346
                                                                                                                 SKEL     1347
                                        *         FP CODE CAN SANDWICH IN HERE.                                  SKEL     1348
                                                                                                                 SKEL     1349
                                         TENT     SUBSKEL                  TERMINATE ALT ENT CODE                SKEL     1350
                                                  UJP    GP2               (GP2) = ENTRY GENERATED LABEL         SKEL     1351
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    57
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       ENTRY.
  
                                                  CALL   GENTX             LOOP FOR NEXT ENTRY                   SKEL     1352
          1067                                    BRANCH PROS.M            GENTERAT MAIN ENTRY CODE              SKEL     1353
          1067 0                                  ENDS                                                           SKEL     1354
                                                                                                                 SKEL     1355
                                                                                                                 SKEL     1356
                                                                                                                 SKEL     1357
                                         #CD      ENDIF                                                          SKEL     1358
  
  
  
  
                                        **        IL STRUCTURE AND BOILER-PLATE.                                 SKEL     1360
                                                                                                                 SKEL     1361
                                                                                                                 SKEL     1362
                                         SEG      SKEL                                                           SKEL     1363
                                                  CALLC  SEG                                                     SKEL     1364
          1072 0                                  ENDS                                                           SKEL     1365
                                                                                                                 SKEL     1366
                                         NOOP     SKEL   ILL                                                     SKEL     1367
                                                  CALLQ  NOOP                                                    SKEL     1368
          1072 0                                  ENDS                                                           SKEL     1369
                                                                                                                 SKEL     1370
                                         HDR      SKEL                         BEGIN NEW PROGRAM-UNIT            SKEL     1371
                                                  CALL   HDR                                                     SKEL     1372
          1073 0                                  ENDS                                                           SKEL     1373
                                                                                                                 SKEL     1374
                                         FILE     SKEL                                                           SKEL     1375
                                                  CALL   GFD         GENERATE FILE DECLARATION                   SKEL     1376
          1074 0                                  ENDS                                                           SKEL     1377
                                                                                                                 SKEL     1378
                                         PLIM     SKEL                     END OF FILE DECLARATIONS              SKEL     1379
                                                  CALL   PLIM                                                    SKEL     1380
          1075 0                                  ENDS                                                           SKEL     1381
                                                                                                                 SKEL     1382
                                         SEX      SKEL                         START OF EXECUTABLES              SKEL     1383
                                                  CALL   SEX                                                     SKEL     1384
          1076 0                                  ENDS                                                           SKEL     1385
                                                                                                                 SKEL     1386
                                         CDLOO    SKEL               OBJECT LIST ON/OFF                          SKEL     1387
                                                  CALL   CDLOO                                                   SKEL     1388
          1077 0                                  ENDS                                                           SKEL     1389
                                                                                                                 SKEL     1390
                                         CDDOT    SKEL               ZERO/ONE-TRIP DO                            SKEL     1391
                                                  CALL   CDDOT                                                   SKEL     1392
          1100 0                                  ENDS                                                           SKEL     1393
                                                                                                                 SKEL     1394
                                         CDCS     SKEL               USER/FIXED COLLATE                          SKEL     1395
                                                  CALL   CDCS                                                    SKEL     1396
          1101 0                                  ENDS                                                           SKEL     1397
                                                                                                                 SKEL     1398
                                         DATA     SKEL               DATA TABLE INFO                             SKEL     1399
                                                  CALL   DATA                                                    SKEL     1400
          1102 0                                  ENDS                                                           SKEL     1401
                                                                                                                 SKEL     1402
                                         FIN      SKEL                         END OF IL                         SKEL     1403
                                                  CALLQ  CDW                                                     SKEL     1404
                                                  CALLQ  CAR                                                     SKEL     1405
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    58
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       HDR 
  
                                                  CALL   FIN                                                     SKEL     1406
          1103 0                                  ENDS                                                           SKEL     1407
                                                                                                                 SKEL     1408
                                         LCC      SKEL                         LOADER CONTROL CARD               SKEL     1409
                                                  CALL   LCC                                                     SKEL     1410
          1106 0                                  ENDS                                                           SKEL     1411
                                                                                                                 SKEL     1412
                                         DVI      SKEL                                                           SKEL     1413
                                                  CALL   ILL                                                     SKEL     1414
          1107 0                                  ENDS                                                           SKEL     1415
                                                                                                                 SKEL     1416
                                         EXP.I    SKEL               I**J FOR DATA                               SKEL     1417
                                                  CALL   ILL                                                     SKEL     1418
          1110 0                                  ENDS                                                           SKEL     1419
                                                                                                                 SKEL     1420
                                         DOBD2    SKEL                                                           SKEL     1421
                                                  CALLQ  NOOP                                                    SKEL     1422
          1111 0                                  ENDS                                                           SKEL     1423
  
  
  
  
                                        *         *IF* INSTRUCTION SKELETONS.                                    SKEL     1425
                                                                                                                 SKEL     1426
                                                                                                                 SKEL     1427
                                         IFI123   SKEL                                                           SKEL     1428
                                                  XMT    T1,L1                                                   FC5A164     9
                                                  ZR     T1,"N2"                                                 FC5A164    10
                                                  PL     T1,"N3"                                                 FC5A164    11
                                                                                                                 SKEL     1431
                                                  UJP    "N1"                                                    SKEL     1432
                                                  CALLC  IF,3                                                    SKEL     1433
          1112 0                                  ENDS                                                           SKEL     1434
                                                                                                                 SKEL     1435
                                         IFI122   SKEL                                                           SKEL     1436
                                                  CLR    T1                                                      SKEL     1437
                                                  IAZ    T2,T1,L1                                                SKEL     1438
                                                  PL     T2,"N2"                                                 SKEL     1439
                                                  UJP    "N1"                                                    SKEL     1440
                                                  CALLC  IF,2                                                    SKEL     1441
          1116 0                                  ENDS                                                           SKEL     1442
                                                                                                                 SKEL     1443
                                         IFR122   SKEL                                                           SKEL     1444
                                                  PNR    T1,0,L1                                                 SKEL     1445
                                                  PL     T1,"N2"                                                 SKEL     1446
                                                  UJP    "N1"                                                    SKEL     1447
                                                  CALLC  IF,2                                                    SKEL     1448
          1122 0                                  ENDS                                                           SKEL     1449
                                                                                                                 SKEL     1450
                                         IFI113   SKEL                                                           SKEL     1451
                                                  CLR    T1                                                      SKEL     1452
                                                  ISZ    T2,T1,L1                                                SKEL     1453
                                                  PL     T2,"N1"                                                 SKEL     1454
                                                  UJP    "N3"                                                    SKEL     1455
                                                  CALLC  IF,2                                                    SKEL     1456
          1125 0                                  ENDS                                                           SKEL     1457
                                                                                                                 SKEL     1458
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    59
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                         IFR113   SKEL                                                           SKEL     1459
                                                  XMTC   T1,L1                                                   SKEL     1460
                                                  PNR    T2,0,T1                                                 SKEL     1461
                                                  PL     T2,"N1"                                                 SKEL     1462
                                                  UJP    "N3"                                                    SKEL     1463
                                                  CALLC  IF,2                                                    SKEL     1464
          1131 0                                  ENDS                                                           SKEL     1465
                                                                                                                 SKEL     1466
                                         IFI121   SKEL                                                           SKEL     1467
                                                  ZR     L1,"N2"                                                 SKEL     1468
                                                  UJP    "N1"                                                    SKEL     1469
                                                  CALLC  IF,2                                                    SKEL     1470
          1135 0                                  ENDS                                                           SKEL     1471
                                                                                                                 SKEL     1472
                                         IFIN23   SKEL                                                           SKEL     1473
                                                  XMT    T1,L1                                                   FC5A164    12
                                                  ZR     T1,"N2"                                                 FC5A164    13
                                                  PL     T1,"N3"                                                 FC5A164    14
                                                  CALLC  IF,2                                                    SKEL     1476
          1137 0                                  ENDS                                                           SKEL     1477
                                                                                                                 SKEL     1478
                                         IFI1N3   SKEL                                                           SKEL     1479
                                                  CLR    T1                                                      SKEL     1480
                                                  IAZ    T2,T1,L1                                                SKEL     1481
                                                  MI     T2,"N1"                                                 SKEL     1482
                                                  NZ     T2,"N3"                                                 SKEL     1483
                                                  CALLC  IF,2                                                    SKEL     1484
          1142 0                                  ENDS                                                           SKEL     1485
                                                                                                                 SKEL     1486
                                         IFR1N3   SKEL                                                           SKEL     1487
                                                  PNR    T1,0,L1                                                 SKEL     1488
                                                  MI     T1,"N1"                                                 SKEL     1489
                                                  NZ     T1,"N3"                                                 SKEL     1490
                                                  CALLC  IF,2                                                    SKEL     1491
          1146 0                                  ENDS                                                           SKEL     1492
                                                                                                                 SKEL     1493
                                         IFI12N   SKEL                                                           SKEL     1494
                                                  XMT    T1,L1                                                   FC5A164    15
                                                  ZR     T1,"N2"                                                 FC5A164    16
                                                  MI     T1,"N1"                                                 FC5A164    17
                                                  CALLC  IF,2                                                    SKEL     1497
          1151 0                                  ENDS                                                           SKEL     1498
                                                                                                                 SKEL     1499
                                         IFIN22   SKEL                                                           SKEL     1500
                                                  CLR    T1                                                      SKEL     1501
                                                  IAZ    T2,T1,L1                                                SKEL     1502
                                                  PL     T2,"N2"                                                 SKEL     1503
                                                  CALLC  IF,1                                                    SKEL     1504
          1154 0                                  ENDS                                                           SKEL     1505
                                                                                                                 SKEL     1506
                                         IFRN22   SKEL                                                           SKEL     1507
                                                  PNR    T1,0,L1                                                 SKEL     1508
                                                  PL     T1,"N2"                                                 SKEL     1509
                                                  CALLC  IF,1                                                    SKEL     1510
          1157 0                                  ENDS                                                           SKEL     1511
                                                                                                                 SKEL     1512
                                         IFI1NN   SKEL                                                           SKEL     1513
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    60
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                                  CLR    T1                                                      SKEL     1514
                                                  IAZ    T2,T1,L1                                                SKEL     1515
                                                  MI     T2,"N1"                                                 SKEL     1516
                                                  CALLC  IF,1                                                    SKEL     1517
          1161 0                                  ENDS                                                           SKEL     1518
                                                                                                                 SKEL     1519
                                         IFR1NN   SKEL                                                           SKEL     1520
                                                  PNR    T1,0,L1                                                 SKEL     1521
                                                  MI     T1,"N1"                                                 SKEL     1522
                                                  CALLC  IF,1                                                    SKEL     1523
          1164 0                                  ENDS                                                           SKEL     1524
                                                                                                                 SKEL     1525
                                         IFINN3   SKEL                                                           SKEL     1526
                                                  CLR    T1                                                      SKEL     1527
                                                  ISZ    T2,T1,L1                                                SKEL     1528
                                                  MI     T2,"N3"                                                 SKEL     1529
                                                  CALLC  IF,1                                                    SKEL     1530
          1166 0                                  ENDS                                                           SKEL     1531
                                                                                                                 SKEL     1532
                                         IFRNN3   SKEL                                                           SKEL     1533
                                                  XMTC   T1,L1                                                   SKEL     1534
                                                  PNR    T2,0,T1                                                 SKEL     1535
                                                  MI     T2,"N3"                                                 SKEL     1536
                                                  CALLC  IF,1                                                    SKEL     1537
          1171 0                                  ENDS                                                           SKEL     1538
                                                                                                                 SKEL     1539
                                         IFI11N   SKEL                                                           SKEL     1540
                                                  CLR    T1                                                      SKEL     1541
                                                  ISZ    T2,T1,L1                                                SKEL     1542
                                                  PL     T2,"N1"                                                 SKEL     1543
                                                  CALLC  IF,1                                                    SKEL     1544
          1174 0                                  ENDS                                                           SKEL     1545
                                                                                                                 SKEL     1546
                                         IFR11N   SKEL                                                           SKEL     1547
                                                  XMTC   T1,L1                                                   SKEL     1548
                                                  PNR    T2,0,T1                                                 SKEL     1549
                                                  PL     T2,"N1"                                                 SKEL     1550
                                                  CALLC  IF,1                                                    SKEL     1551
          1177 0                                  ENDS                                                           SKEL     1552
                                                                                                                 SKEL     1553
                                         IFIN2N   SKEL                                                           SKEL     1554
                                                  ZR     L1,"N2"                                                 SKEL     1555
                                                  CALLC  IF,1                                                    SKEL     1556
          1202 0                                  ENDS                                                           SKEL     1557
                                                                                                                 SKEL     1558
                                         IFI1N1   SKEL                                                           SKEL     1559
                                                  NZ     L1,"N1"                                                 SKEL     1560
                                                  CALLC  IF,1                                                    SKEL     1561
          1203 0                                  ENDS                                                           SKEL     1562
                                                                                                                 SKEL     1563
                                                                                                                 SKEL     1564
                                                                                                                 SKEL     1565
                                         IFIFT    SKEL               JUMP TO ("N3") IF (L1) TRUE                 SKEL     1566
                                                  MI     L1,"N3"                                                 SKEL     1567
                                                  CALLC  IF,1                                                    SKEL     1568
          1204 0                                  ENDS                                                           SKEL     1569
                                                                                                                 SKEL     1570
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    61
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                         IFIFF    SKEL               JUMP TO ("N3") IF (L1) FALSE                SKEL     1571
                                                  PL     L1,"N3"                                                 SKEL     1572
                                                  CALLC  IF,1                                                    SKEL     1573
          1205 0                                  ENDS                                                           SKEL     1574
                                                                                                                 SKEL     1575
                                         IFI111   SKEL                                                           SKEL     1576
                                                  UJP    P2                                                      SKEL     1577
                                                  CALLC  PGT                                                     SKEL     1578
          1206 0                                  ENDS                                                           SKEL     1579
                                                                                                                 SKEL     1580
                                        *         IF SKELETON EQUIVALENTS.                                       SKEL     1581
                                                                                                                 SKEL     1582
                                        *         REAL                                                           SKEL     1583
                                                                                                                 SKEL     1584
                                         IFRN2N   SKEQU  IFIN2N                                                  SKEL     1585
                                         IFRN23   SKEQU  IFIN23                                                  SKEL     1586
                                         IFR111   SKEQU  IFI111                                                  SKEL     1587
                                         IFR12N   SKEQU  IFI12N                                                  SKEL     1588
                                         IFR123   SKEQU  IFI123                                                  SKEL     1589
                                                                                                                 SKEL     1590
                                        *         DOUBLE PRECISION                                               SKEL     1591
                                                                                                                 SKEL     1592
                                         IFDNN3   SKEQU  IFRNN3                                                  SKEL     1593
                                         IFDN2N   SKEQU  IFIN2N                                                  SKEL     1594
                                         IFDN22   SKEQU  IFRN22                                                  SKEL     1595
                                         IFDN23   SKEQU  IFIN23                                                  SKEL     1596
                                         IFD1NN   SKEQU  IFR1NN                                                  SKEL     1597
                                         IFD1N3   SKEQU  IFR1N3                                                  SKEL     1598
                                         IFD11N   SKEQU  IFR11N                                                  SKEL     1599
                                         IFD113   SKEQU  IFR113                                                  SKEL     1600
                                         IFD111   SKEQU  IFI111                                                  SKEL     1601
                                         IFD12N   SKEQU  IFI12N                                                  SKEL     1602
                                         IFD122   SKEQU  IFR122                                                  SKEL     1603
                                         IFD123   SKEQU  IFI123                                                  SKEL     1604
                                                                                                                 SKEL     1605
                                                                                                                 SKEL     1606
                                        *         IF(ONE RELATIONAL) SKELETONS.                                  SKEL     1607
                                        *         THESE MUST BE DEFINED IN PAIRS (EQ/NE OR LT/GE).               SKEL     1608
                                                                                                                 SKEL     1609
                                         IEQ.I    SKEL                                                           SKEL     1610
                                                  IS     T1,L1,L2                                                SKEL     1611
                                                  ZR     T1,"N3"                                                 SKEL     1612
                                                  CALLC  IF,1                                                    SKEL     1613
          1207 0                                  ENDS                                                           SKEL     1614
                                                                                                                 SKEL     1615
                                         IEQ.R    SKEL                                                           SKEL     1616
                                                  FSR    T1,L1,L2                                                SKEL     1617
                                                  NR     T2,,T1                                                  SKEL     1618
                                                  ZR     T2,"N3"                                                 SKEL     1619
                                                  CALLC  IF,1                                                    SKEL     1620
          1211 0                                  ENDS                                                           SKEL     1621
                                                                                                                 SKEL     1622
                                         IEQ.D    SKEL                                                           SKEL     1623
                                                  FSR    T1,LU1,LU2                                              SKEL     1624
                                                  PNR    T2,,T1                                                  SKEL     1625
                                                  FSR    T3,LL1,LL2                                              SKEL     1626
                                                  PNR    T4,,T3                                                  SKEL     1627
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    62
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                                  OR     T5,T2,T4                                                SKEL     1628
                                                  ZR     T5,"N3"                                                 SKEL     1629
                                                  CALLC  IF,1                                                    SKEL     1630
          1214 0                                  ENDS                                                           SKEL     1631
                                                                                                                 SKEL     1632
                                         IEQ.C    SKEL                                                           SKEL     1633
                                                  FSR    T1,LU1,LU2                                              SKEL     1634
                                                  PNR    T2,,T1                                                  SKEL     1635
                                                  FSR    T3,LL1,LL2                                              SKEL     1636
                                                  PNR    T4,,T3                                                  SKEL     1637
                                                  OR     T5,T2,T4                                                SKEL     1638
                                                  CLR    T6                                                      SKEL     1639
                                                  ISZ    T7,T6,T5                                                SKEL     1640
                                                  EQV    T8,T7,T5                                                FC50237     6
                                                  MI     T8,"N3"                                                 SKEL     1642
                                                  CALLC  IF,1                                                    SKEL     1643
          1222 0                                  ENDS                                                           SKEL     1644
                                                                                                                 SKEL     1645
                                         INE.I    SKEL                                                           SKEL     1646
                                                  IS     T1,L1,L2                                                SKEL     1647
                                                  NZ     T1,"N3"                                                 SKEL     1648
                                                  CALLC  IF,1                                                    SKEL     1649
          1233 0                                  ENDS                                                           SKEL     1650
                                                                                                                 SKEL     1651
                                         INE.R    SKEL                                                           SKEL     1652
                                                  FSR    T1,L1,L2                                                SKEL     1653
                                                  NR     T2,,T1                                                  SKEL     1654
                                                  NZ     T2,"N3"                                                 SKEL     1655
                                                  CALLC  IF,1                                                    SKEL     1656
          1235 0                                  ENDS                                                           SKEL     1657
                                                                                                                 SKEL     1658
                                         INE.D    SKEL                                                           SKEL     1659
                                                  FSR    T1,LU1,LU2                                              SKEL     1660
                                                  PNR    T2,,T1                                                  SKEL     1661
                                                  FSR    T3,LL1,LL2                                              SKEL     1662
                                                  PNR    T4,,T3                                                  SKEL     1663
                                                  OR     T5,T2,T4                                                SKEL     1664
                                                  NZ     T5,"N3"                                                 SKEL     1665
                                                  CALLC  IF,1                                                    SKEL     1666
          1240 0                                  ENDS                                                           SKEL     1667
                                                                                                                 SKEL     1668
                                         INE.C    SKEL                                                           SKEL     1669
                                                  FSR    T1,LU1,LU2                                              SKEL     1670
                                                  NR     T2,,T1                                                  SKEL     1671
                                                  FSR    T3,LL1,LL2                                              SKEL     1672
                                                  NR     T4,,T3                                                  SKEL     1673
                                                  NZ     T2,"N3"                                                 SKEL     1674
                                                  NZ     T4,"N3"                                                 SKEL     1675
                                                  CALLC  IF,2                                                    SKEL     1676
          1246 0                                  ENDS                                                           SKEL     1677
                                                                                                                 SKEL     1678
                                                                                                                 SKEL     1679
                                         SKEL     ENDX                                                           SKEL     1680
                                                                                                                 COMFSKL   717
                                        **        SKELETON TABLE TERMINATOR WORD                                 COMFSKL   718
                                                                                                                 COMFSKL   719
          1254  00000000000000000000     SKEND    CONENT 0                                                       COMFSKL   720
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    63
        SKELETON CONTROL TABLE.                                       SCT 
  
                                        **        SCT - SKELETON CONTROL TABLE.                                  COMFSKL   723
                                        *                                                                        COMFSKL   724
                                        *         THE SCT ACTUALLY CONSISTS OF TWO VECTORS --                    COMFSKL   725
                                        *         (F.SKCR) FOR FRONT END = ADDRESS OF CONRED PROCESSOR.          COMFSKL   726
                                        *         (F.SCT) FOR GEN = WORD INDEX OF SKEL BEGINNING.                COMFSKL   727
                                        *                                                                        COMFSKL   728
                                        *         IN QCG, BOTH OF THESE FIT INTO THE SAME WORD.                  COMFSKL   729
                                                                                                                 COMFSKL   730
                                                                                                                 COMFSKL   731
                                                  LIST   G,D                                                     COMFSKL   732
                                                  USE    SCT                                                     COMFSKL   733
          1562                           F.SCT    BSSENT             FWA SKEL BEGIN INDEX VECTOR                 COMFSKL   734
          1562                           F.SCT BSS                                                              BSSENT  .1
          1562                           F.SKCR   BSSENT             FWA SKEL CONSTANT REDUCTION VECTOR          COMFSKL   735
          1562                           F.SKCR BSS                                                             BSSENT  .1
      L      0                                    LOC    0                                                       COMFSKL   736
                                         SCT      HERE                                                           COMFSKL   737
      L      0  00000000000000 X         V=ILL    VFD 6/0,18/W=ILL,18/=YD=ILL,18/U=ILL                          SCT     .1
                              000000
      L      1  00000001000000 X         V=ADD.I  VFD 6/0,18/W=ADD.I,18/=YD=ADD.I,18/U=ADD.I                    SCT     .1
                              000001
      L      2  00000002000000 X         V=ADD.R  VFD 6/0,18/W=ADD.R,18/=YD=ADD.R,18/U=ADD.R                    SCT     .1
                              000002
      L      3  00000004000000 X         V=ADD.D  VFD 6/0,18/W=ADD.D,18/=YD=ADD.D,18/U=ADD.D                    SCT     .1
                              000004
      L      4  00000017000000 X         V=ADD.C  VFD 6/0,18/W=ADD.C,18/=YD=ADD.C,18/U=ADD.C                    SCT     .1
                              000017
      L      5  00000023000000 X         V=SUB.I  VFD 6/0,18/W=SUB.I,18/=YD=SUB.I,18/U=SUB.I                    SCT     .1
                              000023
      L      6  00000024000000 X         V=SUB.R  VFD 6/0,18/W=SUB.R,18/=YD=SUB.R,18/U=SUB.R                    SCT     .1
                              000024
      L      7  00000026000000 X         V=SUB.D  VFD 6/0,18/W=SUB.D,18/=YD=SUB.D,18/U=SUB.D                    SCT     .1
                              000026
      L     10  00000032000000 X         V=SUB.C  VFD 6/0,18/W=SUB.C,18/=YD=SUB.C,18/U=SUB.C                    SCT     .1
                              000032
      L     11  00000036000000 X         V=MUL.I  VFD 6/0,18/W=MUL.I,18/=YD=MUL.I,18/W=IMVC                     SCT     .1
                              000037
      L     12  00000043000000 X         V=MUL.R  VFD 6/0,18/W=MUL.R,18/=YD=MUL.R,18/U=MUL.R                    SCT     .1
                              000043
      L     13  00000044000000 X         V=MUL.D  VFD 6/0,18/W=MUL.D,18/=YD=MUL.D,18/U=MUL.D                    SCT     .1
                              000044
      L     14  00000054000000 X         V=MUL.C  VFD 6/0,18/W=MUL.C,18/=YD=MUL.C,18/U=MUL.C                    SCT     .1
                              000054
      L     15  00000064000000 X         V=DIV.I  VFD 6/0,18/W=DIV.I,18/=YD=DIV.I,18/W=IDVC                     SCT     .1
                              000065
      L     16  00000076000000 X         V=DIV.R  VFD 6/0,18/W=DIV.R,18/=YD=DIV.R,18/U=DIV.R                    SCT     .1
                              000076
      L     17  00000077000000 X         V=DIV.D  VFD 6/0,18/W=DIV.D,18/=YD=DIV.D,18/U=DIV.D                    SCT     .1
                              000077
      L     20  00000120000000 X         V=DIV.C  VFD 6/0,18/W=DIV.C,18/=YD=DIV.C,18/U=DIV.C                    SCT     .1
                              000120
      L     21  00000136000000 X         V=DVC.R  VFD 6/0,18/W=DVC.R,18/=YD=DVC.R,18/U=DVC.R                    SCT     .1
                              000136
      L     22  00000140000000 X         V=UMI.I  VFD 6/0,18/W=UMI.I,18/=YD=UMI.I,18/U=UMI.I                    SCT     .1
                              000140
      L     23  00000141000000 X         V=UMI.D  VFD 6/0,18/W=UMI.D,18/=YD=UMI.D,18/U=UMI.D                    SCT     .1
                              000141
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    64
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
      L     24  00000143000000 X         V=LT.I   VFD 6/0,18/W=LT.I,18/=YD=LT.I,18/U=LT.I                       SCT     .1
                              000143
      L     25  00000146000000 X         V=LT.R   VFD 6/0,18/W=LT.R,18/=YD=LT.R,18/U=LT.R                       SCT     .1
                              000146
      L     26  00000150000000 X         V=LT.D   VFD 6/0,18/W=LT.D,18/=YD=LT.D,18/U=LT.D                       SCT     .1
                              000150
      L     27  00000156000000 X         V=LT.H   VFD 6/0,18/W=LT.H,18/=YD=LT.H,18/U=LT.H                       SCT     .1
                              000000
      L     30  00000160000000 X         V=LLT    VFD 6/0,18/W=LLT,18/=YD=LLT,18/U=LLT                          SCT     .1
                              000000
      L     31  00000162000000 X         V=GE.I   VFD 6/0,18/W=GE.I,18/=YD=GE.I,18/U=GE.I                       SCT     .1
                              000162
      L     32  00000166000000 X         V=GE.R   VFD 6/0,18/W=GE.R,18/=YD=GE.R,18/U=GE.R                       SCT     .1
                              000166
      L     33  00000171000000 X         V=GE.D   VFD 6/0,18/W=GE.D,18/=YD=GE.D,18/U=GE.D                       SCT     .1
                              000171
      L     34  00000200000000 X         V=GE.H   VFD 6/0,18/W=GE.H,18/=YD=GE.H,18/U=GE.H                       SCT     .1
                              000000
      L     35  00000203000000 X         V=LGE    VFD 6/0,18/W=LGE,18/=YD=LGE,18/U=LGE                          SCT     .1
                              000000
      L     36  00000205000000 X         V=NE.I   VFD 6/0,18/W=NE.I,18/=YD=NE.I,18/U=NE.I                       SCT     .1
                              000205
      L     37  00000212000000 X         V=NE.R   VFD 6/0,18/W=NE.R,18/=YD=NE.R,18/U=NE.R                       SCT     .1
                              000212
      L     40  00000217000000 X         V=NE.D   VFD 6/0,18/W=NE.D,18/=YD=NE.D,18/U=NE.D                       SCT     .1
                              000217
      L     41  00000232000000 X         V=NE.H   VFD 6/0,18/W=NE.H,18/=YD=NE.H,18/U=NE.H                       SCT     .1
                              000000
      L     42  00000237000000 X         V=LNE    VFD 6/0,18/W=LNE,18/=YD=LNE,18/U=LNE                          SCT     .1
                              000000
      L     43  00000241000000 X         V=EQ.I   VFD 6/0,18/W=EQ.I,18/=YD=EQ.I,18/U=EQ.I                       SCT     .1
                              000241
      L     44  00000246000000 X         V=EQ.R   VFD 6/0,18/W=EQ.R,18/=YD=EQ.R,18/U=EQ.R                       SCT     .1
                              000246
      L     45  00000253000000 X         V=EQ.D   VFD 6/0,18/W=EQ.D,18/=YD=EQ.D,18/U=EQ.D                       SCT     .1
                              000253
      L     46  00000266000000 X         V=EQ.H   VFD 6/0,18/W=EQ.H,18/=YD=EQ.H,18/U=EQ.H                       SCT     .1
                              000000
      L     47  00000273000000 X         V=LEQ    VFD 6/0,18/W=LEQ,18/=YD=LEQ,18/U=LEQ                          SCT     .1
                              000000
      L     50  00000275000000 X         V=STR.I  VFD 6/0,18/W=STR.I,18/=YD=STR.I,18/U=STR.I                    SCT     .1
                              000000
      L     51  00000276000000 X         V=STR.D  VFD 6/0,18/W=STR.D,18/=YD=STR.D,18/U=STR.D                    SCT     .1
                              000000
      L     52  00000301000000 X         V=STR.H  VFD 6/0,18/W=STR.H,18/=YD=STR.H,18/U=STR.H                    SCT     .1
                              000000
      L     53  00000302000000 X         V=CAT    VFD 6/0,18/W=CAT,18/=YD=CAT,18/U=CAT                          SCT     .1
                              000000
      L     54  00000303000000 X         V=COLON  VFD 6/0,18/W=COLON,18/=YD=COLON,18/U=COLON                    SCT     .1
                              000000
      L     55  00000304000000 X         V=SUBST  VFD 6/0,18/W=SUBST,18/=YD=SUBST,18/U=SUBST                    SCT     .1
                              000000
      L     56  00000305000000 X         V=ITOR   VFD 6/0,18/W=ITOR,18/=YD=ITOR,18/U=ITOR                       SCT     .1
                              000305
      L     57  00000307000000 X         V=ITOB   VFD 6/0,18/W=ITOB,18/=YD=ITOB,18/U=ITOB                       SCT     .1
                              000307
      L     60  00000310000000 X         V=ITOD   VFD 6/0,18/W=ITOD,18/=YD=ITOD,18/U=ITOD                       SCT     .1
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    65
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                              000310
      L     61  00000313000000 X         V=RTOI   VFD 6/0,18/W=RTOI,18/=YD=RTOI,18/U=RTOI                       SCT     .1
                              000313
      L     62  00000315000000 X         V=RTOD   VFD 6/0,18/W=RTOD,18/=YD=RTOD,18/U=RTOD                       SCT     .1
                              000315
      L     63  00000317000000 X         V=DTOC   VFD 6/0,18/W=DTOC,18/=YD=DTOC,18/U=DTOC                       SCT     .1
                              000317
      L     64  00000321000000 X         V=NOT.L  VFD 6/0,18/W=NOT.L,18/=YD=NOT.L,18/U=NOT.L                    SCT     .1
                              000321
      L     65  00000322000000 X         V=AND.L  VFD 6/0,18/W=AND.L,18/=YD=AND.L,18/U=AND.L                    SCT     .1
                              000322
      L     66  00000323000000 X         V=EQV.L  VFD 6/0,18/W=EQV.L,18/=YD=EQV.L,18/U=EQV.L                    SCT     .1
                              000323
      L     67  00000324000000 X         V=OR.L   VFD 6/0,18/W=OR.L,18/=YD=OR.L,18/U=OR.L                       SCT     .1
                              000324
      L     70  00000325000000 X         V=XOR.L  VFD 6/0,18/W=XOR.L,18/=YD=XOR.L,18/U=XOR.L                    SCT     .1
                              000325
      L     71  00000326000000 X         V=ABS    VFD 6/0,18/W=ABS,18/=YD=ABS,18/U=ABS                          SCT     .1
                              000326
      L     72  00000331000000 X         V=SUM1S  VFD 6/0,18/W=SUM1S,18/=YD=SUM1S,18/U=SUM1S                    SCT     .1
                              000331
      L     73  00000332000000 X         V=AIMAG  VFD 6/0,18/W=AIMAG,18/=YD=AIMAG,18/U=AIMAG                    SCT     .1
                              000332
      L     74  00000333000000 X         V=AINT   VFD 6/0,18/W=AINT,18/=YD=AINT,18/U=AINT                       SCT     .1
                              000333
      L     75  00000337000000 X         V=ANINT  VFD 6/0,18/W=ANINT,18/=YD=ANINT,18/U=ANINT                    SCT     .1
                              000337
      L     76  00000344000000 X         V=MAX0   VFD 6/0,18/W=MAX0,18/=YD=MAX0,18/U=MAX0                       SCT     .1
                              000344
      L     77  00000352000000 X         V=DMAX1  VFD 6/0,18/W=DMAX1,18/=YD=DMAX1,18/U=DMAX1                    SCT     .1
                              000352
      L    100  00000370000000 X         V=MIN0   VFD 6/0,18/W=MIN0,18/=YD=MIN0,18/U=MIN0                       SCT     .1
                              000370
      L    101  00000372000000 X         V=DMIN1  VFD 6/0,18/W=DMIN1,18/=YD=DMIN1,18/U=DMIN1                    SCT     .1
                              000372
      L    102  00000376000000 X         V=AMAX1  VFD 6/0,18/W=AMAX1,18/=YD=AMAX1,18/U=AMAX1                    SCT     .1
                              000376
      L    103  00000400000000 X         V=AMIN1  VFD 6/0,18/W=AMIN1,18/=YD=AMIN1,18/U=AMIN1                    SCT     .1
                              000400
      L    104  00000402000000 X         V=AMOD   VFD 6/0,18/W=AMOD,18/=YD=AMOD,18/U=AMOD                       SCT     .1
                              000402
      L    105  00000417000000 X         V=CONJG  VFD 6/0,18/W=CONJG,18/=YD=CONJG,18/U=CONJG                    SCT     .1
                              000417
      L    106  00000421000000 X         V=CMPLX  VFD 6/0,18/W=CMPLX,18/=YD=CMPLX,18/U=CMPLX                    SCT     .1
                              000421
      L    107  00000423000000 X         V=DABS   VFD 6/0,18/W=DABS,18/=YD=DABS,18/U=DABS                       SCT     .1
                              000423
      L    110  00000427000000 X         V=DDIM   VFD 6/0,18/W=DDIM,18/=YD=DDIM,18/U=DDIM                       SCT     .1
                              000427
      L    111  00000446000000 X         V=DIM    VFD 6/0,18/W=DIM,18/=YD=DIM,18/U=DIM                          SCT     .1
                              000446
      L    112  00000453000000 X         V=DINT   VFD 6/0,18/W=DINT,18/=YD=DINT,18/U=DINT                       SCT     .1
                              000453
      L    113  00000464000000 X         V=DPROD  VFD 6/0,18/W=DPROD,18/=YD=DPROD,18/U=DPROD                    SCT     .1
                              000464
      L    114  00000466000000 X         V=DNINT  VFD 6/0,18/W=DNINT,18/=YD=DNINT,18/U=DNINT                    SCT     .1
                              000466
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    66
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
      L    115  00000477000000 X         V=DSIGN  VFD 6/0,18/W=DSIGN,18/=YD=DSIGN,18/U=DSIGN                    SCT     .1
                              000477
      L    116  00000511000000 X         V=IDNIN  VFD 6/0,18/W=IDNIN,18/=YD=IDNIN,18/U=IDNIN                    SCT     .1
                              000511
      L    117  00000516000000 X         V=ISIGN  VFD 6/0,18/W=ISIGN,18/=YD=ISIGN,18/U=ISIGN                    SCT     .1
                              000516
      L    120  00000526000000 X         V=IDIM   VFD 6/0,18/W=IDIM,18/=YD=IDIM,18/U=IDIM                       SCT     .1
                              000526
      L    121  00000532000000 X         V=MASK   VFD 6/0,18/W=MASK,18/=YD=MASK,18/U=MASK                       SCT     .1
                              000000
      L    122  00000542000000 X         V=MOD    VFD 6/0,18/W=MOD,18/=YD=MOD,18/W=MODG                         SCT     .1
                              000543
      L    123  00000561000000 X         V=RANF   VFD 6/0,18/W=RANF,18/=YD=RANF,18/U=RANF                       SCT     .1
                              000000
      L    124  00000564000000 X         V=SHIFT  VFD 6/0,18/W=SHIFT,18/=YD=SHIFT,18/W=SHIFV                    SCT     .1
                              000565
      L    125  00000567000000 X         V=DOBS   VFD 6/0,18/W=DOBS,18/=YD=DOBS,18/U=DOBS                       SCT     .1
                              000000
      L    126  00000574000000 X         V=DOBL   VFD 6/0,18/W=DOBL,18/=YD=DOBL,18/U=DOBL                       SCT     .1
                              000574
      L    127  00000575000000 X         V=DOBZS  VFD 6/0,18/W=DOBZS,18/=YD=DOBZS,18/U=DOBZS                    SCT     .1
                              000000
      L    130  00000602000000 X         V=DOBZL  VFD 6/0,18/W=DOBZL,18/=YD=DOBZL,18/U=DOBZL                    SCT     .1
                              000000
      L    131  00000606000000 X         V=DOC.S  VFD 6/0,18/W=DOC.S,18/=YD=DOC.S,18/U=DOC.S                    SCT     .1
                              000000
      L    132  00000615000000 X         V=DOC.O  VFD 6/0,18/W=DOC.O,18/=YD=DOC.O,18/U=DOC.O                    SCT     .1
                              000000
      L    133  00000623000000 X         V=DOC.L  VFD 6/0,18/W=DOC.L,18/=YD=DOC.L,18/U=DOC.L                    SCT     .1
                              000000
      L    134  00000630000000 X         V=DOC.R  VFD 6/0,18/W=DOC.R,18/=YD=DOC.R,18/U=DOC.R                    SCT     .1
                              000000
      L    135  00000634000000 X         V=DOC.D  VFD 6/0,18/W=DOC.D,18/=YD=DOC.D,18/U=DOC.D                    SCT     .1
                              000000
      L    136  00000653000000 X         V=IOLC   VFD 6/0,18/W=IOLC,18/=YD=IOLC,18/U=IOLC                       SCT     .1
                              000000
      L    137  00000663000000 X         V=LCIF   VFD 6/0,18/W=LCIF,18/=YD=LCIF,18/U=LCIF                       SCT     .1
                              000000
      L    140  00000665000000 X         V=GOTO   VFD 6/0,18/W=GOTO,18/=YD=GOTO,18/U=GOTO                       SCT     .1
                              000000
      L    141  00000666000000 X         V=AGOTO  VFD 6/0,18/W=AGOTO,18/=YD=AGOTO,18/U=AGOTO                    SCT     .1
                              000000
      L    142  00000671000000 X         V=CGOTO  VFD 6/0,18/W=CGOTO,18/=YD=CGOTO,18/U=CGOTO                    SCT     .1
                              000000
      L    143  00000705000000 X         V=JGOTO  VFD 6/0,18/W=JGOTO,18/=YD=JGOTO,18/U=JGOTO                    SCT     .1
                              000000
      L    144  00000706000000 X         V=RGOTO  VFD 6/0,18/W=RGOTO,18/=YD=RGOTO,18/U=RGOTO                    SCT     .1
                              000000
      L    145  00000723000000 X         V=ASSGN  VFD 6/0,18/W=ASSGN,18/=YD=ASSGN,18/U=ASSGN                    SCT     .1
                              000000
      L    146  00000725000000 X         V=BSS    VFD 6/0,18/W=BSS,18/=YD=BSS,18/U=BSS                          SCT     .1
                              000000
      L    147  00000726000000 X         V=ARY    VFD 6/0,18/W=ARY,18/=YD=ARY,18/U=ARY                          SCT     .1
                              000000
      L    150  00000727000000 X         V=GAP    VFD 6/0,18/W=GAP,18/=YD=GAP,18/U=GAP                          SCT     .1
                              000000
      L    151  00000730000000 X         V=FAP    VFD 6/0,18/W=FAP,18/=YD=FAP,18/U=FAP                          SCT     .1
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    67
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                              000000
      L    152  00000731000000 X         V=IAP    VFD 6/0,18/W=IAP,18/=YD=IAP,18/U=IAP                          SCT     .1
                              000000
      L    153  00000740000000 X         V=APIOC  VFD 6/0,18/W=APIOC,18/=YD=APIOC,18/U=APIOC                    SCT     .1
                              000000
      L    154  00000741000000 X         V=APIOD  VFD 6/0,18/W=APIOD,18/=YD=APIOD,18/U=APIOD                    SCT     .1
                              000000
      L    155  00000742000000 X         V=APIOU  VFD 6/0,18/W=APIOU,18/=YD=APIOU,18/U=APIOU                    SCT     .1
                              000000
      L    156  00001006000000 X         V=SUBR   VFD 6/0,18/W=SUBR,18/=YD=SUBR,18/U=SUBR                       SCT     .1
                              000000
      L    157  00001007000000 X         V=FUNC   VFD 6/0,18/W=FUNC,18/=YD=FUNC,18/U=FUNC                       SCT     .1
                              000000
      L    160  00001010000000 X         V=LIBF   VFD 6/0,18/W=LIBF,18/=YD=LIBF,18/U=LIBF                       SCT     .1
                              000000
      L    161  00001011000000 X         V=INTF   VFD 6/0,18/W=INTF,18/=YD=INTF,18/U=INTF                       SCT     .1
                              000000
      L    162  00001012000000 X         V=IOSUB  VFD 6/0,18/W=IOSUB,18/=YD=IOSUB,18/U=IOSUB                    SCT     .1
                              000000
      L    163  00001013000000 X         V=ERR    VFD 6/0,18/W=ERR,18/=YD=ERR,18/U=ERR                          SCT     .1
                              000000
      L    164  00001016000000 X         V=STOP   VFD 6/0,18/W=STOP,18/=YD=STOP,18/U=STOP                       SCT     .1
                              000000
      L    165  00001017000000 X         V=PAUS   VFD 6/0,18/W=PAUS,18/=YD=PAUS,18/U=PAUS                       SCT     .1
                              000000
      L    166  00001020000000 X         V=RET    VFD 6/0,18/W=RET,18/=YD=RET,18/U=RET                          SCT     .1
                              000000
      L    167  00001022000000 X         V=RTNK   VFD 6/0,18/W=RTNK,18/=YD=RTNK,18/U=RTNK                       SCT     .1
                              000000
      L    170  00001026000000 X         V=GPL    VFD 6/0,18/W=GPL,18/=YD=GPL,18/U=GPL                          SCT     .1
                              001026
      L    171  00001032000000 X         V=ENTR   VFD 6/0,18/W=ENTR,18/=YD=ENTR,18/U=ENTR                       SCT     .1
                              000000
      L    172  00001033000000 X         V=BVD    VFD 6/0,18/W=BVD,18/=YD=BVD,18/U=BVD                          SCT     .1
                              000000
      L    173  00001034000000 X         V=EVD    VFD 6/0,18/W=EVD,18/=YD=EVD,18/U=EVD                          SCT     .1
                              000000
      L    174  00001072000000 X         V=SEG    VFD 6/0,18/W=SEG,18/=YD=SEG,18/U=SEG                          SCT     .1
                              001072
      L    175  00001072000000 X         V=NOOP   VFD 6/0,18/W=NOOP,18/=YD=NOOP,18/W=ILL                        SCT     .1
                              000000
      L    176  00001073000000 X         V=HDR    VFD 6/0,18/W=HDR,18/=YD=HDR,18/U=HDR                          SCT     .1
                              000000
      L    177  00001074000000 X         V=FILE   VFD 6/0,18/W=FILE,18/=YD=FILE,18/U=FILE                       SCT     .1
                              000000
      L    200  00001075000000 X         V=PLIM   VFD 6/0,18/W=PLIM,18/=YD=PLIM,18/U=PLIM                       SCT     .1
                              000000
      L    201  00001076000000 X         V=SEX    VFD 6/0,18/W=SEX,18/=YD=SEX,18/U=SEX                          SCT     .1
                              000000
      L    202  00001077000000 X         V=CDLOO  VFD 6/0,18/W=CDLOO,18/=YD=CDLOO,18/U=CDLOO                    SCT     .1
                              000000
      L    203  00001100000000 X         V=CDDOT  VFD 6/0,18/W=CDDOT,18/=YD=CDDOT,18/U=CDDOT                    SCT     .1
                              000000
      L    204  00001101000000 X         V=CDCS   VFD 6/0,18/W=CDCS,18/=YD=CDCS,18/U=CDCS                       SCT     .1
                              000000
      L    205  00001102000000 X         V=DATA   VFD 6/0,18/W=DATA,18/=YD=DATA,18/U=DATA                       SCT     .1
                              000000
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    68
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
      L    206  00001103000000 X         V=FIN    VFD 6/0,18/W=FIN,18/=YD=FIN,18/U=FIN                          SCT     .1
                              000000
      L    207  00001106000000 X         V=LCC    VFD 6/0,18/W=LCC,18/=YD=LCC,18/U=LCC                          SCT     .1
                              000000
      L    210  00001107000000 X         V=DVI    VFD 6/0,18/W=DVI,18/=YD=DVI,18/U=DVI                          SCT     .1
                              000000
      L    211  00001110000000 X         V=EXP.I  VFD 6/0,18/W=EXP.I,18/=YD=EXP.I,18/U=EXP.I                    SCT     .1
                              000000
      L    212  00001111000000 X         V=DOBD2  VFD 6/0,18/W=DOBD2,18/=YD=DOBD2,18/U=DOBD2                    SCT     .1
                              000000
      L    213  00001112000000 X         V=I123   VFD 6/0,18/W=I123,18/=YD=I123,18/U=I123                       SCT     .1
                              000000
      L    214  00001116000000 X         V=I122   VFD 6/0,18/W=I122,18/=YD=I122,18/U=I122                       SCT     .1
                              000000
      L    215  00001122000000 X         V=R122   VFD 6/0,18/W=R122,18/=YD=R122,18/U=R122                       SCT     .1
                              000000
      L    216  00001125000000 X         V=I113   VFD 6/0,18/W=I113,18/=YD=I113,18/U=I113                       SCT     .1
                              000000
      L    217  00001131000000 X         V=R113   VFD 6/0,18/W=R113,18/=YD=R113,18/U=R113                       SCT     .1
                              000000
      L    220  00001135000000 X         V=I121   VFD 6/0,18/W=I121,18/=YD=I121,18/U=I121                       SCT     .1
                              000000
      L    221  00001137000000 X         V=IN23   VFD 6/0,18/W=IN23,18/=YD=IN23,18/U=IN23                       SCT     .1
                              000000
      L    222  00001142000000 X         V=I1N3   VFD 6/0,18/W=I1N3,18/=YD=I1N3,18/U=I1N3                       SCT     .1
                              000000
      L    223  00001146000000 X         V=R1N3   VFD 6/0,18/W=R1N3,18/=YD=R1N3,18/U=R1N3                       SCT     .1
                              000000
      L    224  00001151000000 X         V=I12N   VFD 6/0,18/W=I12N,18/=YD=I12N,18/U=I12N                       SCT     .1
                              000000
      L    225  00001154000000 X         V=IN22   VFD 6/0,18/W=IN22,18/=YD=IN22,18/U=IN22                       SCT     .1
                              000000
      L    226  00001157000000 X         V=RN22   VFD 6/0,18/W=RN22,18/=YD=RN22,18/U=RN22                       SCT     .1
                              000000
      L    227  00001161000000 X         V=I1NN   VFD 6/0,18/W=I1NN,18/=YD=I1NN,18/U=I1NN                       SCT     .1
                              000000
      L    230  00001164000000 X         V=R1NN   VFD 6/0,18/W=R1NN,18/=YD=R1NN,18/U=R1NN                       SCT     .1
                              000000
      L    231  00001166000000 X         V=INN3   VFD 6/0,18/W=INN3,18/=YD=INN3,18/U=INN3                       SCT     .1
                              000000
      L    232  00001171000000 X         V=RNN3   VFD 6/0,18/W=RNN3,18/=YD=RNN3,18/U=RNN3                       SCT     .1
                              000000
      L    233  00001174000000 X         V=I11N   VFD 6/0,18/W=I11N,18/=YD=I11N,18/U=I11N                       SCT     .1
                              000000
      L    234  00001177000000 X         V=R11N   VFD 6/0,18/W=R11N,18/=YD=R11N,18/U=R11N                       SCT     .1
                              000000
      L    235  00001202000000 X         V=IN2N   VFD 6/0,18/W=IN2N,18/=YD=IN2N,18/U=IN2N                       SCT     .1
                              000000
      L    236  00001203000000 X         V=I1N1   VFD 6/0,18/W=I1N1,18/=YD=I1N1,18/U=I1N1                       SCT     .1
                              000000
      L    237  00001204000000 X         V=IFT    VFD 6/0,18/W=IFT,18/=YD=IFT,18/U=IFT                          SCT     .1
                              000000
      L    240  00001205000000 X         V=IFF    VFD 6/0,18/W=IFF,18/=YD=IFF,18/U=IFF                          SCT     .1
                              000000
      L    241  00001206000000 X         V=I111   VFD 6/0,18/W=I111,18/=YD=I111,18/U=I111                       SCT     .1
                              000000
      L    242  00001207000000 X         V=IEQ.I  VFD 6/0,18/W=IEQ.I,18/=YD=IEQ.I,18/U=IEQ.I                    SCT     .1
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    69
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                              000000
      L    243  00001211000000 X         V=IEQ.R  VFD 6/0,18/W=IEQ.R,18/=YD=IEQ.R,18/U=IEQ.R                    SCT     .1
                              000000
      L    244  00001214000000 X         V=IEQ.D  VFD 6/0,18/W=IEQ.D,18/=YD=IEQ.D,18/U=IEQ.D                    SCT     .1
                              000000
      L    245  00001222000000 X         V=IEQ.C  VFD 6/0,18/W=IEQ.C,18/=YD=IEQ.C,18/U=IEQ.C                    SCT     .1
                              000000
      L    246  00001233000000 X         V=INE.I  VFD 6/0,18/W=INE.I,18/=YD=INE.I,18/U=INE.I                    SCT     .1
                              000000
      L    247  00001235000000 X         V=INE.R  VFD 6/0,18/W=INE.R,18/=YD=INE.R,18/U=INE.R                    SCT     .1
                              000000
      L    250  00001240000000 X         V=INE.D  VFD 6/0,18/W=INE.D,18/=YD=INE.D,18/U=INE.D                    SCT     .1
                              000000
      L    251  00001246000000 X         V=INE.C  VFD 6/0,18/W=INE.C,18/=YD=INE.C,18/U=INE.C                    SCT     .1
                              000000
      L    252                           Z.SCT    BSSENT             LENGTH OF SKEL VECTOR                       COMFSKL   738
      L    252                           Z.SCT BSS                                                              BSSENT  .1
      L    252                           Z.SKCR   BSSENT             LENGTH OF C.R. VECTOR                       COMFSKL   739
      L    252                           Z.SKCR BSS                                                             BSSENT  .1
          2034                                    LOC    *O                                                      COMFSKL   740
                                   0     1        ERRNZ  COUNT-Z.SCT                                             COMFSKL   741
                                                                                                                 COMFSKL   742
                                         VEQU     HERE                                                           COMFSKL   743
                                   1     V=ADD.B   EQU    V=ADD.I                                               VEQU    .1
                                   5     V=SUB.B   EQU    V=SUB.I                                               VEQU    .1
                                  11     V=MUL.B   EQU    V=MUL.I                                               VEQU    .1
                                  15     V=DIV.B   EQU    V=DIV.I                                               VEQU    .1
                                  22     V=UMI.R   EQU    V=UMI.I                                               VEQU    .1
                                  23     V=UMI.C   EQU    V=UMI.D                                               VEQU    .1
                                  24     V=LT.B   EQU    V=LT.I                                                 VEQU    .1
                                  31     V=GE.B   EQU    V=GE.I                                                 VEQU    .1
                                  40     V=NE.C   EQU    V=NE.D                                                 VEQU    .1
                                  36     V=NE.B   EQU    V=NE.I                                                 VEQU    .1
                                  45     V=EQ.C   EQU    V=EQ.D                                                 VEQU    .1
                                  43     V=EQ.B   EQU    V=EQ.I                                                 VEQU    .1
                                  50     V=STR.R   EQU    V=STR.I                                               VEQU    .1
                                  51     V=STR.C   EQU    V=STR.D                                               VEQU    .1
                                  50     V=STR.B   EQU    V=STR.I                                               VEQU    .1
                                  60     V=ITOC   EQU    V=ITOD                                                 VEQU    .1
                                  62     V=RTOC   EQU    V=RTOD                                                 VEQU    .1
                                  57     V=RTOB   EQU    V=ITOB                                                 VEQU    .1
                                  61     V=DTOI   EQU    V=RTOI                                                 VEQU    .1
                                  57     V=DTOR   EQU    V=ITOB                                                 VEQU    .1
                                  57     V=DTOB   EQU    V=DTOR                                                 VEQU    .1
                                  57     V=XMIT   EQU    V=ITOB                                                 VEQU    .1
                                  61     V=CTOI   EQU    V=DTOI                                                 VEQU    .1
                                  57     V=CTOR   EQU    V=DTOR                                                 VEQU    .1
                                  57     V=CTOB   EQU    V=CTOR                                                 VEQU    .1
                                  63     V=CTOD   EQU    V=DTOC                                                 VEQU    .1
                                  62     V=BTOD   EQU    V=RTOD                                                 VEQU    .1
                                  57     V=BTOR   EQU    V=ITOB                                                 VEQU    .1
                                  57     V=BTOI   EQU    V=ITOB                                                 VEQU    .1
                                  62     V=BTOC   EQU    V=RTOD                                                 VEQU    .1
                                  64     V=NOT.B   EQU    V=NOT.L                                               VEQU    .1
                                  65     V=AND.B   EQU    V=AND.L                                               VEQU    .1
                                  66     V=EQV.B   EQU    V=EQV.L                                               VEQU    .1
                                  67     V=OR.B   EQU    V=OR.L                                                 VEQU    .1
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    70
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                                  70     V=XOR.B   EQU    V=XOR.L                                               VEQU    .1
                                  70     V=NEQV.   EQU    V=XOR.L                                               VEQU    .1
                                  70     V=NEQV.   EQU    V=XOR.L                                               VEQU    .1
                                 102     V=MAX1   EQU    V=AMAX1                                                VEQU    .1
                                 103     V=MIN1   EQU    V=AMIN1                                                VEQU    .1
                                  76     V=AMAX0   EQU    V=MAX0                                                VEQU    .1
                                 100     V=AMIN0   EQU    V=MIN0                                                VEQU    .1
                                  65     V=AND   EQU    V=AND.B                                                 VEQU    .1
                                  57     V=BOOL   EQU    V=ITOB                                                 VEQU    .1
                                  64     V=COMPL   EQU    V=NOT.B                                               VEQU    .1
                                  62     V=DBLE   EQU    V=RTOD                                                 VEQU    .1
                                  66     V=EQV   EQU    V=EQV.B                                                 VEQU    .1
                                  56     V=FLOAT   EQU    V=ITOR                                                VEQU    .1
                                  71     V=IABS   EQU    V=ABS                                                  VEQU    .1
                                  61     V=IDINT   EQU    V=RTOI                                                VEQU    .1
                                  61     V=IFIX   EQU    V=RTOI                                                 VEQU    .1
                                  61     V=INT   EQU    V=RTOI                                                  VEQU    .1
                                  70     V=NEQV   EQU    V=XOR.B                                                VEQU    .1
                                 116     V=NINT   EQU    V=IDNIN                                                VEQU    .1
                                  67     V=OR   EQU    V=OR.B                                                   VEQU    .1
                                  57     V=REAL   EQU    V=CTOR                                                 VEQU    .1
                                 117     V=SIGN   EQU    V=ISIGN                                                VEQU    .1
                                  57     V=SNGL   EQU    V=REAL                                                 VEQU    .1
                                  70     V=XOR   EQU    V=NEQV                                                  VEQU    .1
                                 164     V=PEND   EQU    V=STOP                                                 VEQU    .1
                                 235     V=RN2N   EQU    V=IN2N                                                 VEQU    .1
                                 221     V=RN23   EQU    V=IN23                                                 VEQU    .1
                                 241     V=R111   EQU    V=I111                                                 VEQU    .1
                                 224     V=R12N   EQU    V=I12N                                                 VEQU    .1
                                 213     V=R123   EQU    V=I123                                                 VEQU    .1
                                 232     V=DNN3   EQU    V=RNN3                                                 VEQU    .1
                                 235     V=DN2N   EQU    V=IN2N                                                 VEQU    .1
                                 226     V=DN22   EQU    V=RN22                                                 VEQU    .1
                                 221     V=DN23   EQU    V=IN23                                                 VEQU    .1
                                 230     V=D1NN   EQU    V=R1NN                                                 VEQU    .1
                                 223     V=D1N3   EQU    V=R1N3                                                 VEQU    .1
                                 234     V=D11N   EQU    V=R11N                                                 VEQU    .1
                                 217     V=D113   EQU    V=R113                                                 VEQU    .1
                                 241     V=D111   EQU    V=I111                                                 VEQU    .1
                                 224     V=D12N   EQU    V=I12N                                                 VEQU    .1
                                 215     V=D122   EQU    V=R122                                                 VEQU    .1
                                 213     V=D123   EQU    V=I123                                                 VEQU    .1
                                                  USE    *                                                       COMFSKL   744
                                                  LIST   *                                                       COMFSKL   745
                                                                                                                 COMFSKL   746
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    71
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER. 
  
          1255                                    CTEXT  PARSKEL - SKELETON SELECTION TABLES FOR PARSER.         PARSKEL     2
                                                                                                                 PARSKEL     3
                                                                                                                 PARSKEL     4
                                        **        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.                PARSKEL     5
                                        *                                                                        PARSKEL     6
                                        *         ALL TABLES NECESSARY FOR THE PARSER TO SELECT PARTICULAR       PARSKEL     7
                                        *         SKELETONS RESIDE IN THIS DECK BECAUSE RELATIVE ADDRESSES       PARSKEL     8
                                        *         ARE USED.                                                      PARSKEL     9
  
  
  
  
                                        **        EQUATES FOR PARSER.                                            PARSKEL    11
                                        *                                                                        PARSKEL    12
                                        *         FOLLOWING SYMBOLS MUST BE BASE SKELETON OF THE INDICATED       PARSKEL    13
                                        *         GROUP.  IT IS NOT ALWAYS POSSIBLE TO VERIFY THIS CONSTRAINT    PARSKEL    14
                                        *         AT ASSEMBLY TIME, ALTHOUGH IF THESE SYMBOLS ARE NOT SET        PARSKEL    15
                                        *         PROPERLY, THE COMILER WILL MALFUNCTION.                        PARSKEL    16
                                                                                                                 PARSKEL    17
                                                                                                                 PARSKEL    18
                                         OM=CONV  EQUENT V=ITOR-1    FIRST MODE CONVERSION SKELETON, -1          PARSKEL    19
                                         OM=IF    EQUENT V=I123      FIRST IF-SKELETON                           PARSKEL    20
                                         OM=INL   EQUENT OM=CONV     FIRST INLINE INTRINSIC                      PARSKEL    21
  
  
  
  
                                        **        DMOD - BUILD MODE SELECTION VECTOR.                            PARSKEL    23
                                        *                                                                        PARSKEL    24
                                        * TYPE    DMOD   B,L,I,R,D,C,H                                           PARSKEL    25
                                        *                                                                        PARSKEL    26
                                        *         ENTRY  TYPE = GENERIC NAME OF THE OPERATION.                   PARSKEL    27
                                        *                B, L, I, R, D, C = SUFFIX LETTER FOR TYPED OPERATION.   PARSKEL    28
                                        *                            = "-" IF ERROR.                             PARSKEL    29
                                        *                H = SUFFIX LETTER FOR TYPE CHARACTER OPERATION,         PARSKEL    30
                                        *                            OMITTED IF CHARACTER NOT PERMITTED.         PARSKEL    31
                                        *                                                                        PARSKEL    32
                                        *         NOTE THAT MODE SELECTION WORD DOES NOT HAVE SYMBOLIC           PARSKEL    33
                                        *         FIELD DESCRIPTIONS.  THE FORMAT IS INHERENT TO THE USING       PARSKEL    34
                                        *         ROUTINES.  SEE PAR/SDM, OMC.                                   PARSKEL    35
                                                                                                                 PARSKEL    36
                                                                                                                 PARSKEL    37
                                                  MACRO  DMOD,TYPE,U,L,I,R,D,C,H                                 PARSKEL    38
                                         E        MICRO                                                          PARSKEL    39
                                         F        SET    1S17                                                    PARSKEL    40
                                        *                                                                        PARSKEL    41
                                         .1       ECHO   ,P=(C,D,R,I,L,U)                                        PARSKEL    42
                                                  IFC    EQ,/P/-/,2                                              PARSKEL    43
                                         E        MICRO  1,,$"E"8/-0,$                                           PARSKEL    44
                                                  SKIP   2                                                       PARSKEL    45
                                         E        MICRO  1,,$"E"8/V=TYPE.P-F,$                                   PARSKEL    46
                                         F        MIN    F,V=TYPE.P                                              PARSKEL    47
                                         .1       ENDD                                                           PARSKEL    48
                                        *                            PASTE IT TOGETHER                           PARSKEL    49
                                         OM=TYPE  VFD    12/F,"E"                                                PARSKEL    50
                                                  IFC    NE,/H//,1                                               PARSKEL    51
                                                  VFD    42/0,18/V=TYPE.H                                        PARSKEL    52
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    72
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               DMOD
  
                                                  ENTRY  OM=TYPE                                                 PARSKEL    53
                                                  ENDM                                                           PARSKEL    54
                                                                                                                 PARSKEL    55
                                                                                                                 PARSKEL    56
                                        *                                  ARITHMETIC.                           PARSKEL    57
          1255  00010060100100177400     ADD      DMOD   I,-,I,R,D,C                                             PARSKEL    58
          1256  00050060100100177400     SUB      DMOD   I,-,I,R,D,C                                             PARSKEL    59
          1257  00110060100100177400     MUL      DMOD   I,-,I,R,D,C                                             PARSKEL    60
          1260  00150060100100177400     DIV      DMOD   I,-,I,R,D,C                                             PARSKEL    61
          1261  00220020040000177400     UMI      DMOD   I,-,I,R,D,C                                             PARSKEL    62
                                                                                                                 PARSKEL    63
                                        *                                  RELATIONS.                            PARSKEL    64
          1262  00247760100100177400     LT       DMOD   B,-,I,R,D,-,H                                           PARSKEL    65
          1264  00317760100100177400     GE       DMOD   B,-,I,R,D,-,H                                           PARSKEL    66
          1266  00360040100100177400     NE       DMOD   B,-,I,R,D,D,H                                           PARSKEL    67
          1270  00430040100100177400     EQ       DMOD   B,-,I,R,D,D,H                                           PARSKEL    68
                                                                                                                 PARSKEL    69
                                        *                                  MASKING / LOGICAL.                    PARSKEL    70
          1272  00640000000000000000     NOT      DMOD   B,L,B,B,B,B                                             PARSKEL    71
          1273  00650000000000000000     AND      DMOD   B,L,B,B,B,B                                             PARSKEL    72
          1274  00670000000000000000     OR       DMOD   B,L,B,B,B,B                                             PARSKEL    73
          1275  00660000000000000000     EQV      DMOD   B,L,B,B,B,B                                             PARSKEL    74
          1276  00700000000000000000     XOR      DMOD   B,L,B,B,B,B                                             PARSKEL    75
                                                                                                                 PARSKEL    76
                                        *                                  MISCELLEANEOUS.                       PARSKEL    77
          1277  00500020040000000000     STR      DMOD   I,I,I,I,D,D,H                                           PARSKEL    78
          1301  01317760200300177777     DOC      DMOD   -,-,S,R,D,-       SHORT LOOPS                           PARSKEL    79
      L   1301                                    LOC    OM=DOC                  ****  KLUDGE  ****              PARSKEL    80
      L   1301  01337760100100177777     DOC      DMOD   -,-,L,R,D,-       LONG LOOPS                            PARSKEL    81
          1303                                    LOC    *O                                                      PARSKEL    82
  
  
  
  
                                        **        MCTBL - GENERATE ONE ROW OF MODE CONVERSION MATRIX.            PARSKEL    84
                                        *                                                                        PARSKEL    85
                                        * TYPE    MCTBL  B,L,I,R,D,C                                             PARSKEL    86
                                                                                                                 PARSKEL    87
                                                                                                                 PARSKEL    88
                                                  MACRO  MCTBL,TYPE,B,L,I,R,D,Z,H                                PARSKEL    89
                                         E        MICRO                                                          PARSKEL    90
                                         .1       ECHO   ,P=(H,Z,D,R,I,L,B)                                      PARSKEL    91
                                                  IFC    EQ,/P/----/,2                                           PARSKEL    92
                                         E        MICRO  1,,$"E",8/-0$                                           PARSKEL    93
                                                  SKIP   5                                                       PARSKEL    94
                                                  IFC    EQ,/P/****/,2                                           PARSKEL    95
                                         E        MICRO  1,,$"E",8/0$                                            PARSKEL    96
                                                  SKIP   2                                                       PARSKEL    97
                                         R        ERRMI  V=P-OM=CONV       RE-ORDER SKELS                        PARSKEL    98
                                         E        MICRO  1,,$"E",8/V=P-OM=CONV$                                  PARSKEL    99
                                         .1       ENDD                                                           PARSKEL   100
                                        *                                                                        PARSKEL   101
                                         M.TYPE   VFD    4/0"E"                                                  PARSKEL   102
                                         MCTBL    ENDM                                                           PARSKEL   103
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    73
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               F.MODC
  
                                        **        F.MODC - MODE CONVERSION MATRIX.                               PARSKEL   105
                                        *                                                                        PARSKEL   106
                                        *         ROW (WORD) INDEXED BY TYPE OF OPERAND.                         PARSKEL   107
                                        *         COLUMN (BYTE) INDEXED BY DOMINANT MODE.                        PARSKEL   108
                                        *                                                                        PARSKEL   109
                                        *         ----  =>  ERROR.                                               PARSKEL   110
                                        *         ****  =>  OKAY, NO CONVERSION NEEDED.                          PARSKEL   111
                                        *         MTON  =>  OKAY = OFFSET OF MODE CONVERSION SKELETON.           PARSKEL   112
                                                                                                                 PARSKEL   113
                                                                                                                 PARSKEL   114
          1303                           F.MODC   BSSENT             ADDRESS OF TABLE                            PARSKEL   115
      L      0                                    LOC    0                                                       PARSKEL   116
                                        *                BOOL LOG  INT  REAL DBL  CPLX CHAR                      PARSKEL   117
      L      0  03770120240000177400     BOOL     MCTBL  ****,----,****,****,RTOD,RTOC,----                      PARSKEL   118
      L      1  03777777777777600377     LOG      MCTBL  ----,****,----,----,----,----,----                      PARSKEL   119
      L      2  03770060140100177400     INT      MCTBL  ****,----,****,ITOR,ITOD,ITOC,----                      PARSKEL   120
      L      3  03770120240001177400     REAL     MCTBL  ****,----,RTOI,****,RTOD,RTOC,----                      PARSKEL   121
      L      4  03770140000201177402     DBL      MCTBL  DTOR,----,DTOI,DTOR,****,DTOC,----                      PARSKEL   122
      L      5  03770000300201177402     CPLX     MCTBL  CTOR,----,CTOI,CTOR,CTOD,****,----                      PARSKEL   123
      L      6  00007777777777777777     CHAR     MCTBL  ----,----,----,----,----,----,****                      PARSKEL   124
      L                                  .T       IFEQ   TEST,ON,1                                               PARSKEL   125
                                         NONE     MCTBL  ----,----,----,----,----,----,----                      PARSKEL   126
          1312                                    LOC    *O                                                      PARSKEL   127
  
  
  
  
                                        **        F.IFT - TABLES FOR SELECTING IF SKELETON.                      PARSKEL   129
                                                                                                                 PARSKEL   130
                                                                                                                 PARSKEL   131
                                                  MACRO  IFTBL,PRE,B,L,I,R,D,C,H                                 PARSKEL   132
                                         E        MICRO                                                          PARSKEL   133
                                         .1       ECHO   ,P=(B,L,I,R,D,C,H)                                      PARSKEL   134
                                                  IFC    EQ,/P/-/,2                                              PARSKEL   135
                                         E        MICRO  1,,$"E"8/-1,$                                           PARSKEL   136
                                                  SKIP   2                                                       PARSKEL   137
                                         R        ERRMI  V=P_PRE-OM=IF     (IF_P_PRE) SKEL OUT OF ORDER          PARSKEL   138
                                         E        MICRO  1,,$"E"8/V=_P_PRE-OM=IF,$                               PARSKEL   139
                                         .1       ENDD                                                           PARSKEL   140
                                        *                                                                        PARSKEL   141
                                                  VFD    "E"*P/0                                                 PARSKEL   142
                                                  ENDM                                                           PARSKEL   143
                                                                                                                 PARSKEL   144
                                                                                                                 PARSKEL   145
                                        *                                  NEXT LABEL NOT REFERENCED.            PARSKEL   146
          1312                           F.IFS    BSSENT                                                         PARSKEL   147
          1312  00177000000003767740     123      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   148
          1313  00777003010023767740     113      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   149
          1314  00377001002013767740     122      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   150
          1315  01377005012027767740     121      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   151
                                                                                                                 PARSKEL   152
                                        *                                  NEXT LABEL REFERENCED ONCE.           PARSKEL   153
          1316  01577006014033767740     N23      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   154
          1317  01777007020043767740     1N3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   155
          1320  02377011022047767740     12N      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   156
                                                                                                                 PARSKEL   157
                                        *                                  NEXT LABEL REFERENCED 2 OR 3 TIMES.   PARSKEL   158
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    74
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               F.IFT 
  
          1321                           F.IFN    BSSENT                                                         PARSKEL   159
          1321  03577016036077767740     NN3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   160
          1322  04177020042107767740     11N      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   161
          1323  02577012026057767740     N22      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   162
          1324  03177014032067767740     1NN      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   163
          1325  04777023046117767740     1N1      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   164
          1326  04577022044113767740     N2N      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   165
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    75
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF
  
                                        ***       F.INTF - TABLE OF ALL KNOWN INTRINSIC FUNCTIONS.               PARSKEL   168
                                        *                                                                        PARSKEL   169
                                        *         SEE FTN5TXT FOR FORMAT.                                        PARSKEL   170
                                        *                                                                        PARSKEL   171
                                        *         NAMES WHICH ARE GENERIC ONLY (THAT IS, A NAME WHICH IS NOT     PARSKEL   172
                                        *         ALSO A SPECIFIC NAME), ARE SPECIFIED AS 'EXTBF' SO AS NOT      PARSKEL   173
                                        *         TO REFER TO A NON-EXISTANT SKELETON.                           PARSKEL   174
                                        *         A GENERIC FUNCTION HAS A SELECTOR WORD INSERTED IN THIS        PARSKEL   175
                                        *         TABLE IMMEDIATELY FOLLOWING ITS ENTRY.                         PARSKEL   176
                                        *                                                                        PARSKEL   177
                                        *         SEE X3J3/90, TABLE 5.                                          PARSKEL   178
                                                                                                                 PARSKEL   179
                                                                                                                 PARSKEL   180
                                                  MACRO  NLINE,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                   PARSKEL   181
                                         .C       MICRO  1,,$NAME$                                               PARSKEL   182
                                         .CD      MICRO  1,,._NAME_.                                             FC50168     5
                                         .D       MICRO  1,, V=".CD"-OM=INL                                      FC50168     6
                                         R        ERRMI  ".D"        SKEL OUT OF ORDER _________________________ PARSKEL   184
                                         NAME     INTF=  ".C",ARGTYP,FUNTYP,NOARGS,(FLAGS)                       PARSKEL   185
                                                  ENDM                                                           PARSKEL   186
                                                                                                                 PARSKEL   187
                                                                                                                 PARSKEL   188
                                                  MACRO  NPAR,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                    PARSKEL   189
                                         .D       MICRO  1,9, =XES=NAME                                          PARSKEL   190
                                         NAME     INTF=  NAME,ARGTYP,FUNTYP,NOARGS,(PAR,FLAGS)                   PARSKEL   191
                                                  ENDM                                                           PARSKEL   192
                                                                                                                 PARSKEL   193
                                                                                                                 PARSKEL   194
                                                  MACRO  EXTBF,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS,BREG              PARSKEL   195
                                         .D       MICRO  1,, 0                                                   PARSKEL   196
                                                  IRP    BREG                                                    PARSKEL   197
                                         .D       DECMIC ".D"+1S_BREG                                            PARSKEL   198
                                                  IRP                                                            PARSKEL   199
                                         NAME     INTF=  NAME,ARGTYP,FUNTYP,NOARGS,(EXT,FLAGS)                   PARSKEL   200
                                                  ENDM                                                           PARSKEL   201
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    76
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF
  
                                        **        INLINE INTRINSICS.                                             PARSKEL   203
                                                                                                                 PARSKEL   204
                                                                                                                 PARSKEL   205
          1327                           F.INTF   BSSENT 0                                                       PARSKEL   206
                                                                                                                 PARSKEL   207
                                                  QUAL   INTF                                                    PARSKEL   208
                                                  NOREF  .A,.B,.G                                                PARSKEL   209
      L      0                                    LOC    0                                                       PARSKEL   210
      L      0  05222257000003340000     ERR.     EXTBF  BOOL,BOOL   DEFAULT ILLEGAL ENTRY                       FC50168     7
                                                                                                                 FC50168     8
      L      1  02241722570001040203     BTOR.    NLINE  BOOL,REAL,1 INVISIBLE SPECIFIC NAMES                    FC50168     9
      L      2  02241704570001040504     BTOD.    NLINE  BOOL,DBL,1                                              FC50168    10
      L      3  02241703570001040505     BTOC.    NLINE  BOOL,CPLX,1                                             FC50168    11
      L      4  11241704570001040324     ITOD.    NLINE  INT,DBL,1                                               FC50168    12
      L      5  11241703570001040325     ITOC.    NLINE  INT,CPLX,1                                              FC50168    13
      L      6  22241702570001040230     RTOB.    NLINE  REAL,BOOL,1                                             FC50168    14
      L      7  22241703570001040535     RTOC.    NLINE  REAL,CPLX,1                                             FC50168    15
      L     10  04241702570001040240     DTOB.    NLINE  DBL,BOOL,1                                              FC50168    16
      L     11  04241703570001040645     DTOC.    NLINE  DBL,CPLX,1                                              FC50168    17
      L     12  03241702570001040250     CTOB.    NLINE  CPLX,BOOL,1                                             FC50168    18
      L     13  03241711570001040452     CTOI.    NLINE  CPLX,INT,1                                              FC50168    19
      L     14  03241704570001040654     CTOD.    NLINE  CPLX,DBL,1                                              FC50168    20
                                                                                                                 PARSKEL   225
      L     15  01150130330001342123     AMAX0    NLINE  INT,REAL                                                PARSKEL   226
      L     16  01150130340001342533     AMAX1    NLINE  REAL,REAL                                               PARSKEL   227
      L     17  01151116330001342323     AMIN0    NLINE  INT,REAL                                                PARSKEL   228
      L     20  01151116340001342633     AMIN1    NLINE  REAL,REAL                                               PARSKEL   229
      L     21  01160400000000341000     AND      NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   230
      L     22  02171714000013077460     BOOL$    EXTBF  CHAR,BOOL,1,(BYN),(2,3,4,5,6,7)                         FC50168    21
      L     23  02171714000045040220     BOOL     NLINE  INT,BOOL,1,(GENERIC,GNO)                                FC5A227     6
      L     25  03100122000033040026     CHAR     EXTBF  INT,CHAR,1,(BYN,CHAR)                                   PARSKEL   233
      L     26  03152014570007040005     CMPL.    EXTBF  BOOL,CPLX,1,(GENERIC)   MUST BE CMPLX-2 (PAR/VIL)       FC50168    22
      L     30  031520143000455000 X     CMPLX    NPAR   REAL,CPLX,2,(GENERIC,GNO)                               FC5A227     7
      L     32  04021405000045040534     DBLE     NLINE  REAL,DBL,1,(GENERIC,GNO)                                FC5A227     8
      L     34  04150130340001342244     DMAX1    NLINE  DBL,DBL                                                 PARSKEL   237
      L     35  04151116340001342444     DMIN1    NLINE  DBL,DBL                                                 PARSKEL   238
      L     36  05212600000000341100     EQV      NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   239
      L     37  06141701240001040123     FLOAT    NLINE  INT,REAL,1                                              PARSKEL   240
      L     40  11031001220033040062     ICHAR    EXTBF  CHAR,INT,1,(BYN,CHAR)                                   PARSKEL   241
      L     41  11041116240001040442     IDINT    NLINE  DBL,INT,1                                               PARSKEL   242
      L     42  11061130000001040432     IFIX     NLINE  REAL,INT,1                                              PARSKEL   243
      L     43  11162400000005040432     INT      NLINE  REAL,INT,1,(GENERIC)                                    PARSKEL   244
      L     45  140705000000115000 X     LGE      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   245
      L     46  140724000000115000 X     LGT      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   246
      L     47  141405000000115000 X     LLE      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   247
      L     50  141424000000115000 X     LLT      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   248
      L     51  14170306000013077460     LOCF$    EXTBF  CHAR,BOOL,1,(BYN),(2,3,4,5,6,7)                         FC50168    23
      L     52  141703060000044400 X     LOCF     NPAR   BOOL,BOOL,1,(GEN,NANS)                                  FC5A227    10
      L     54  15013000000047340022     MAX      EXTBF  INT,INT,,(GENERIC,GNO)                                  FC5A227    11
      L     56  15013033000001342122     MAX0     NLINE  INT,INT                                                 PARSKEL   250
      L     57  15013034000001342532     MAX1     NLINE  REAL,INT                                                PARSKEL   251
      L     60  15111600000047340022     MIN      EXTBF  INT,INT,,(GENERIC,GNO)                                  FC5A227    12
      L     62  15111633000001342322     MIN0     NLINE  INT,INT                                                 PARSKEL   253
      L     63  15111634000001342632     MIN1     NLINE  REAL,INT                                                PARSKEL   254
      L     64  16052126000000341300     NEQV     NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   255
      L     65  17220000000000341200     OR       NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   256
      L     66  22050114000005040253     REAL     NLINE  CPLX,REAL,1,(GENERIC)                                   PARSKEL   257
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    77
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF              INTF
  
      L     70  23160714000001040243     SNGL     NLINE  DBL,REAL,1                                              PARSKEL   258
      L     71  30172200000000341300     XOR      NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   259
      L     72  14170700000047040033     LOG      EXTBF  REAL,REAL,1,(GENERIC,GNO)                               FC5A227    13
      L     74  14170734330047040033     LOG10    EXTBF  REAL,REAL,1,(GENERIC,GNO)                               FC5A227    14
      L     76  23251534230000041500     SUM1S    NLINE  BOOL,BOOL,1,(NONANSI)                                   FC5A496     8
                                                  QUAL                                                           PARSKEL   260
      L     77                           Z.INTA   BSSENT 0           ABOVE CANNOT BE ACTUAL ARGUMENTS            PARSKEL   261
                                                  QUAL   *                                                       PARSKEL   262
                                                                                                                 PARSKEL   263
      L     77  01022300000005041433     ABS      NLINE  REAL,REAL,1,(GENERIC)                                   PARSKEL   264
      L    101  01111501070001041653     AIMAG    NLINE  CPLX,REAL,1                                             PARSKEL   265
      L    102  01111624000005041733     AINT     NLINE  REAL,REAL,1,(GENERIC)                                   PARSKEL   266
      L    104  01151704000001102733     AMOD     NLINE  REAL,REAL,2                                             PARSKEL   267
      L    105  01161116240005042033     ANINT    NLINE  REAL,REAL,1,(GENERIC)                                   PARSKEL   268
      L    107  03010223000003040053     CABS     EXTBF  CPLX,REAL,1                                             PARSKEL   269
      L    110  03171520140000040700     COMPL    NLINE  BOOL,BOOL,1,(NONANSI)                                   PARSKEL   270
      L    111  03171612070001043055     CONJG    NLINE  CPLX,CPLX,1                                             PARSKEL   271
      L    112  04010223000001043244     DABS     NLINE  DBL,DBL,1                                               PARSKEL   272
      L    113  04041115000001103344     DDIM     NLINE  DBL,DBL,2                                               PARSKEL   273
      L    114  04111500000005103433     DIM      NLINE  REAL,REAL,2,(GENERIC)                                   PARSKEL   274
      L    116  04111624000001043544     DINT     NLINE  DBL,DBL,1                                               PARSKEL   275
      L    117  04151704000003100044     DMOD     EXTBF  DBL,DBL,2                                               PARSKEL   276
      L    120  04161116240001043744     DNINT    NLINE  DBL,DBL,1                                               PARSKEL   277
      L    121  04202217040001103634     DPROD    NLINE  REAL,DBL,2                                              PARSKEL   278
      L    122  04231107160001104044     DSIGN    NLINE  DBL,DBL,2                                               PARSKEL   279
      L    123  11010223000001041422     IABS     NLINE  INT,INT,1                                               PARSKEL   280
      L    124  11041115000001104322     IDIM     NLINE  INT,INT,2                                               PARSKEL   281
                                 116     V=IDNINT EQU    V=IDNIN                                                 PARSKEL   282
      L    125  11041611162401044142     IDNINT   NLINE  DBL,INT,1                                               PARSKEL   283
      L    126  11160405300013100062     INDEX    EXTBF  CHAR,INT,2,(BYN)                                        PARSKEL   284
      L    127  11231107160001104222     ISIGN    NLINE  INT,INT,2                                               PARSKEL   285
      L    130  14051600000013077462     LEN$     EXTBF  CHAR,INT,1,(BYN),(2,3,4,5,6,7)                          FC50168    24
      L    131  140516000000014400 X     LEN      NPAR   CHAR,INT,1                                              PARSKEL   287
      L    132  150123130000004400 X     MASK     NPAR   INT,BOOL,1,(NONANSI)                                    PARSKEL   290
      L    133  15170400000005104522     MOD      NLINE  INT,INT,2,(GENERIC)                                     PARSKEL   291
      L    135  16111624000005044132     NINT     NLINE  REAL,INT,1,(GENERIC)                                    PARSKEL   292
      L    137  220116060000004000 X     RANF     NPAR   BOOL,REAL,0,(NONANSI)                                   PARSKEL   293
      L    140  23050317160412037403     SECOND   EXTBF  BOOL,REAL,0,(BYN,NANS),(2,3,4,5,6,7)                    PARSKEL   294
      L    141  231011062400005000 X     SHIFT    NPAR   BOOL,BOOL,2,(NONANSI)                                   PARSKEL   295
      L    142  23110716000005104233     SIGN     NLINE  REAL,REAL,2,(GENERIC)                                   PARSKEL   296
                                                                                                                 PARSKEL   297
                                        *                            MATH LIBRARY INTRINSICS.                    PARSKEL   298
                                                                                                                 PARSKEL   299
      L    144  23212224000007074033     SQRT     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   300
      L    146  04232122240003040044     DSQRT    EXTBF  DBL,DBL,1                                               PARSKEL   301
      L    147  03232122240003040055     CSQRT    EXTBF  CPLX,CPLX,1                                             PARSKEL   302
      L    150  05302000000007074033     EXP      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   303
      L    152  04053020000003074044     DEXP     EXTBF  DBL,DBL,1,,(5,6,7)                                      PARSKEL   304
      L    153  03053020000003040055     CEXP     EXTBF  CPLX,CPLX,1                                             PARSKEL   305
      L    154  01141707000003074033     ALOG     EXTBF  REAL,REAL,1,,(5,6,7)                                    PARSKEL   307
      L    155  04141707000003040044     DLOG     EXTBF  DBL,DBL,1                                               PARSKEL   308
      L    156  03141707000003040055     CLOG     EXTBF  CPLX,CPLX,1                                             PARSKEL   309
      L    157  01141707343303074033     ALOG10   EXTBF  REAL,REAL,1,,(5,6,7)                                    PARSKEL   311
      L    160  04141707343303040044     DLOG10   EXTBF  DBL,DBL,1                                               PARSKEL   312
                                                                                                                 PARSKEL   313
      L    161  23111600000007074033     SIN      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   314
      L    163  04231116000003040044     DSIN     EXTBF  DBL,DBL,1                                               PARSKEL   315
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    78
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF              INTF
  
      L    164  03231116000003040055     CSIN     EXTBF  CPLX,CPLX,1                                             PARSKEL   316
      L    165  23111604000002040033     SIND     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   317
      L    166  03172300000007074033     COS      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   318
      L    170  04031723000003040044     DCOS     EXTBF  DBL,DBL,1                                               PARSKEL   319
      L    171  03031723000003040055     CCOS     EXTBF  CPLX,CPLX,1                                             PARSKEL   320
      L    172  03172304000002040033     COSD     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   321
      L    173  24011600000007040033     TAN      EXTBF  REAL,REAL,1,(GENERIC)                                   PARSKEL   322
      L    175  04240116000003040044     DTAN     EXTBF  DBL,DBL,1                                               PARSKEL   323
      L    176  24011604000002040033     TAND     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   324
                                                                                                                 PARSKEL   325
      L    177  01231116000007070033     ASIN     EXTBF  REAL,REAL,1,(GENERIC),(6,7)                             PARSKEL   326
      L    201  04012311160003040044     DASIN    EXTBF  DBL,DBL,1                                               PARSKEL   327
      L    202  01031723000007070033     ACOS     EXTBF  REAL,REAL,1,(GENERIC),(6,7)                             PARSKEL   328
      L    204  04010317230003040044     DACOS    EXTBF  DBL,DBL,1                                               PARSKEL   329
      L    205  01240116000007074033     ATAN     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   330
      L    207  04012401160003040044     DATAN    EXTBF  DBL,DBL,1                                               PARSKEL   331
      L    210  01240116350007134033     ATAN2    EXTBF  REAL,REAL,2,(GENERIC),(5,6,7)                           PARSKEL   332
      L    212  04012401163503100044     DATAN2   EXTBF  DBL,DBL,2                                               PARSKEL   333
                                                                                                                 PARSKEL   334
      L    213  23111610000007074033     SINH     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   335
      L    215  04231116100003070044     DSINH    EXTBF  DBL,DBL,1,,(6,7)                                        PARSKEL   336
      L    216  03172310000007074033     COSH     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   337
      L    220  04031723100003070044     DCOSH    EXTBF  DBL,DBL,1,,(6,7)                                        PARSKEL   338
      L    221  24011610000007040033     TANH     EXTBF  REAL,REAL,1,(GENERIC)                                   PARSKEL   339
      L    223  04240116100003070044     DTANH    EXTBF  DBL,DBL,1,,(6,7)                                        PARSKEL   340
      L    224  01240116100002040033     ATANH    EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   341
                                                                                                                 PARSKEL   342
      L    225  05220600000002040033     ERF      EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   343
      L    226  05220603000002040033     ERFC     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   344
                                                                                                                 PARSKEL   345
                                                  QUAL   *                                                       PARSKEL   346
      L    227                           Z.INTF   BSSENT 0           LENGTH OF INTRINSIC TABLE                   PARSKEL   347
          1556                                    LOC    *O                                                      PARSKEL   348
                                         OMI=CPX  EQUENT /INTF/CMPLX                                             PARSKEL   349
                                         OMI=LEN  EQUENT /INTF/LEN$                                              PARSKEL   350
                                         OMI=SHF  EQUENT /INTF/SHIFT                                             PARSKEL   351
                                         OMI=LCF  EQUENT /INTF/LOCF$                                             PARSKEL   352
  
  
  
  
                                        **        GENF - MODE SELECTION VECTORS FOR GENERIC INTRINSICS.          PARSKEL   354
                                        *                                                                        PARSKEL   355
                                        * NAME    GENF   B,I,R,D,Z,H,L                                           PARSKEL   356
                                        *                                                                        PARSKEL   357
                                        *         ENTRY  B,I,R,D,Z,H,L = SPECIFIC NAME FOR EACH TYPE --          PARSKEL   358
                                        *                            BOOL, INT, REAL, DBL, CPLX, CHAR, LOG.      PARSKEL   359
                                        *                NOTE THAT TRAILING ILLEGAL ENTRIES MAY BE OMITTED.      PARSKEL   360
                                        *                                                                        PARSKEL   361
                                        *         THIS MACRO FILLS IN THE SLOT LEFT IN (F.INTF), AFTER THE ENTRY PARSKEL   362
                                        *         FOR THE GENERIC NAME, WITH A MODE SELECTION VECTOR.            PARSKEL   363
                                        *         OBVIOUSLY THEN, THERE MUST BE A *GENF* MACRO CALL FOR EACH     PARSKEL   364
                                        *         INTRINSIC FUNCTION MARKED *GENERIC*.                           PARSKEL   365
                                                                                                                 PARSKEL   366
                                                                                                                 PARSKEL   367
                                                  MACRO  GENF,NAM,B,I,R,D,Z,H,L                                  PARSKEL   368
                                         E        MICRO                                                          PARSKEL   369
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    79
        INTRINSIC FUNCTION DEFINITIONS.                               GENF
  
                                        *                                                                        PARSKEL   370
                                         .1       ECHO   ,P=(H,Z,D,R,I,L,B)                                      PARSKEL   371
                                                  IFC    NE,/P//,1                                               PARSKEL   372
                                                  IFC    EQ,/P/-/,2                                              PARSKEL   373
                                         E        MICRO  1,,\"E"8/-0,\                                           PARSKEL   374
                                                  SKIP   4                                                       PARSKEL   375
                                                  IFC    EQ,/P/****/,2                                           PARSKEL   376
                                         E        MICRO  1,,\"E"8/0,\                                            PARSKEL   377
                                                  SKIP   1                                                       PARSKEL   378
                                         E        MICRO  1,,\"E"8//INTF/P,\                                      PARSKEL   379
                                         .1       ENDD                                                           PARSKEL   380
                                        *                                                                        PARSKEL   381
                                                  ORG    F.INTF+/INTF/NAM+1                                      PARSKEL   382
                                                  VFD    4/,"E"                                                  PARSKEL   383
                                                  ENDM                                                           PARSKEL   384
                                                                                                                 PARSKEL   385
                                                                                                                 PARSKEL   386
          1353  00220240400000177400     BOOL     GENF   ****,****,****,DTOB.,CTOB.,BOOL$                        FC50168    25
          1373  03770262044300177400     INT      GENF   ****,****,INT,IDINT,CTOI.,-                             FC50168    26
          1416  03771543400007777400     REAL     GENF   ****,FLOAT,****,SNGL,REAL,-                             PARSKEL   389
          1362  03770300003201177402     DBLE     GENF   BTOD.,ITOD.,DBLE,****,CTOD.,-                           FC50168    27
          1356  03770000440701377403     CMPL.    GENF   BTOC.,ITOC.,RTOC.,DTOC.,****,-                          FC50168    28
          1360  03777761403006177430     CMPLX    GENF   CMPLX,CMPLX,CMPLX,CMPLX,-,-                             PARSKEL   392
                                        *                            MODE CONVERSION FOR CMPLX DONE IN PAR/ESF.  PARSKEL   393
                                                                                                                 PARSKEL   394
          1427  03772164507724777523     ABS      GENF   IABS,IABS,ABS,DABS,CABS,-                               PARSKEL   395
          1432  03777764710277777777     AINT     GENF   -,-,AINT,DINT,-,-                                       PARSKEL   396
          1435  03777765010577777777     ANINT    GENF   -,-,ANINT,DNINT,-,-                                     PARSKEL   397
          1444  03777764551425177514     DIM      GENF   DIM,IDIM,DIM,DDIM,-,-                                   PARSKEL   398
          1402  00521242505212425052     LOCF     GENF   LOCF,LOCF,LOCF,LOCF,LOCF,LOCF,LOCF                      PARSKEL   399
          1463  03777764750426777533     MOD      GENF   MOD,MOD,AMOD,DMOD,-,-                                   PARSKEL   400
          1404  03777761601613577456     MAX      GENF   MAX0,MAX0,AMAX1,DMAX1,-,-                               PARSKEL   401
          1410  03777761642014577462     MIN      GENF   MIN0,MIN0,AMIN1,DMIN1,-,-                               PARSKEL   402
          1465  03777765253577777777     NINT     GENF   -,-,NINT,IDNINT,-,-                                     PARSKEL   403
          1472  03777765114225777527     SIGN     GENF   ISIGN,ISIGN,SIGN,DSIGN,-,-                              PARSKEL   404
                                                                                                                 PARSKEL   405
          1474  03773166314477777777     SQRT     GENF   -,-,SQRT,DSQRT,CSQRT,-                                  PARSKEL   406
          1500  03773266515077777777     EXP      GENF   -,-,EXP,DEXP,CEXP,-                                     PARSKEL   407
          1422  03773346655477777777     LOG      GENF   -,-,ALOG,DLOG,CLOG,-                                    PARSKEL   408
          1424  03777767015777777777     LOG10    GENF   -,-,ALOG10,DLOG10,-,-                                   PARSKEL   409
          1511  03773507156177777777     SIN      GENF   -,-,SIN,DSIN,CSIN,-                                     PARSKEL   410
          1516  03773627416677777777     COS      GENF   -,-,COS,DCOS,CCOS,-                                     PARSKEL   411
          1523  03777767657377777777     TAN      GENF   -,-,TAN,DTAN,-,-                                        PARSKEL   412
          1527  03777770057777777777     ASIN     GENF   -,-,ASIN,DASIN,-,-                                      PARSKEL   413
          1532  03777770220277777777     ACOS     GENF   -,-,ACOS,DACOS,-,-                                      PARSKEL   414
          1535  03777770360577777777     ATAN     GENF   -,-,ATAN,DATAN,-,-                                      PARSKEL   415
          1540  03777770521077777777     ATAN2    GENF   -,-,ATAN2,DATAN2,-,-                                    PARSKEL   416
          1543  03777770661377777777     SINH     GENF   -,-,SINH,DSINH,-,-                                      PARSKEL   417
          1546  03777771021677777777     COSH     GENF   -,-,COSH,DCOSH,-,-                                      PARSKEL   418
          1551  03777771162177777777     TANH     GENF   -,-,TANH,DTANH,-,-                                      PARSKEL   419
          1556                                    ORG    F.INTF+Z.INTF                                           PARSKEL   420
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    80
        INTRINSIC FUNCTION DEFINITIONS.                               F.IMCV
  
                                        **        F.IMCV - TABLE OF INTRINSICS REQUIRING MODE CONVERSION.        PARSKEL   422
                                        *                                                                        PARSKEL   423
                                        *         THE ARITHMETIC FOR THE FOLLOWING INLINE INTRINSICS IS          PARSKEL   424
                                        *         PERFORMED IN THE MODE OF THE ARGUMENTS.  THE PARTIAL           PARSKEL   425
                                        *         RESULT MUST THEREFORE BE CONVERTED INTO THE RESULT MODE        PARSKEL   426
                                        *         OF THE FUNCTION.                                               PARSKEL   427
                                        *                                                                        PARSKEL   428
                                        *         PAR/VIL SCANS THIS TABLE TO DETERMINE IF SUCH ACTION IS        PARSKEL   429
                                        *         REQUIRED, AND, IF SO, WHAT CONVERSION SKELETON TO USE.         PARSKEL   430
                                                                                                                 PARSKEL   431
                                                                                                                 PARSKEL   432
          1556                           F.IMCV   BSSENT             INTRINSICS TO MODE CONVERT                  PARSKEL   433
          1556  00000015000001000003              VFD    24//INTF/AMAX0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   434
          1557  00000017000001000003              VFD    24//INTF/AMIN0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   435
          1560  00000057000004000002              VFD    24//INTF/_MAX1,18/V=RTOI-OM=CONV,18/M.INT               PARSKEL   436
          1561  00000063000004000002              VFD    24//INTF/_MIN1,18/V=RTOI-OM=CONV,18/M.INT               PARSKEL   437
                                         Z.IMCV   EQUENT *-F.IMCV                                                PARSKEL   438
                                                                                                                 PARSKEL   439
                                                                                                                 PARSKEL   440
                                         PARSKEL  ENDX                                                           PARSKEL   441
                                                                                                                 COMFSKL   748
                                                                                                                 COMFSKL   749
                                                  ENDX                                                           COMFSKL   750
                                                                                                                 QSKEL      47
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 Y                        D=ILL 
             0 Y                        D=ADD.I 
             0 Y                        D=ADD.R 
             0 Y                        D=ADD.D 
             0 Y                        D=ADD.C 
             0 Y                        D=SUB.I 
             0 Y                        D=SUB.R 
             0 Y                        D=SUB.D 
             0 Y                        D=SUB.C 
             0 Y                        D=MUL.I 
             0 Y                        D=MUL.R 
             0 Y                        D=MUL.D 
             0 Y                        D=MUL.C 
             0 Y                        D=DIV.I 
             0 Y                        D=DIV.R 
             0 Y                        D=DIV.D 
             0 Y                        D=DIV.C 
             0 Y                        D=DVC.R 
             0 Y                        D=UMI.I 
             0 Y                        D=UMI.D 
             0 Y                        D=LT.I
             0 Y                        D=LT.R
             0 Y                        D=LT.D
             0 Y                        D=LT.H
             0 Y                        D=LLT 
             0 Y                        D=GE.I
             0 Y                        D=GE.R
             0 Y                        D=GE.D
             0 Y                        D=GE.H
             0 Y                        D=LGE 
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    81
        INTRINSIC FUNCTION DEFINITIONS.                               LITERALS
  
             0 Y                        D=NE.I
             0 Y                        D=NE.R
             0 Y                        D=NE.D
             0 Y                        D=NE.H
             0 Y                        D=LNE 
             0 Y                        D=EQ.I
             0 Y                        D=EQ.R
             0 Y                        D=EQ.D
             0 Y                        D=EQ.H
             0 Y                        D=LEQ 
             0 Y                        D=STR.I 
             0 Y                        D=STR.D 
             0 Y                        D=STR.H 
             0 Y                        D=CAT 
             0 Y                        D=COLON 
             0 Y                        D=SUBST 
             0 Y                        D=ITOR
             0 Y                        D=ITOB
             0 Y                        D=ITOD
             0 Y                        D=RTOI
             0 Y                        D=RTOD
             0 Y                        D=DTOC
             0 Y                        D=NOT.L 
             0 Y                        D=AND.L 
             0 Y                        D=EQV.L 
             0 Y                        D=OR.L
             0 Y                        D=XOR.L 
             0 Y                        D=ABS 
             0 Y                        D=SUM1S 
             0 Y                        D=AIMAG 
             0 Y                        D=AINT
             0 Y                        D=ANINT 
             0 Y                        D=MAX0
             0 Y                        D=DMAX1 
             0 Y                        D=MIN0
             0 Y                        D=DMIN1 
             0 Y                        D=AMAX1 
             0 Y                        D=AMIN1 
             0 Y                        D=AMOD
             0 Y                        D=CONJG 
             0 Y                        D=CMPLX 
             0 Y                        D=DABS
             0 Y                        D=DDIM
             0 Y                        D=DIM 
             0 Y                        D=DINT
             0 Y                        D=DPROD 
             0 Y                        D=DNINT 
             0 Y                        D=DSIGN 
             0 Y                        D=IDNIN 
             0 Y                        D=ISIGN 
             0 Y                        D=IDIM
             0 Y                        D=MASK
             0 Y                        D=MOD 
             0 Y                        D=RANF
             0 Y                        D=SHIFT 
             0 Y                        D=DOBS
             0 Y                        D=DOBL
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    82
        INTRINSIC FUNCTION DEFINITIONS.                               LITERALS
  
             0 Y                        D=DOBZS 
             0 Y                        D=DOBZL 
             0 Y                        D=DOC.S 
             0 Y                        D=DOC.O 
             0 Y                        D=DOC.L 
             0 Y                        D=DOC.R 
             0 Y                        D=DOC.D 
             0 Y                        D=IOLC
             0 Y                        D=LCIF
             0 Y                        D=GOTO
             0 Y                        D=AGOTO 
             0 Y                        D=CGOTO 
             0 Y                        D=JGOTO 
             0 Y                        D=RGOTO 
             0 Y                        D=ASSGN 
             0 Y                        D=BSS 
             0 Y                        D=ARY 
             0 Y                        D=GAP 
             0 Y                        D=FAP 
             0 Y                        D=IAP 
             0 Y                        D=APIOC 
             0 Y                        D=APIOD 
             0 Y                        D=APIOU 
             0 Y                        D=SUBR
             0 Y                        D=FUNC
             0 Y                        D=LIBF
             0 Y                        D=INTF
             0 Y                        D=IOSUB 
             0 Y                        D=ERR 
             0 Y                        D=STOP
             0 Y                        D=PAUS
             0 Y                        D=RET 
             0 Y                        D=RTNK
             0 Y                        D=GPL 
             0 Y                        D=ENTR
             0 Y                        D=BVD 
             0 Y                        D=EVD 
             0 Y                        D=SEG 
             0 Y                        D=NOOP
             0 Y                        D=HDR 
             0 Y                        D=FILE
             0 Y                        D=PLIM
             0 Y                        D=SEX 
             0 Y                        D=CDLOO 
             0 Y                        D=CDDOT 
             0 Y                        D=CDCS
             0 Y                        D=DATA
             0 Y                        D=FIN 
             0 Y                        D=LCC 
             0 Y                        D=DVI 
             0 Y                        D=EXP.I 
             0 Y                        D=DOBD2 
             0 Y                        D=I123
             0 Y                        D=I122
             0 Y                        D=R122
             0 Y                        D=I113
             0 Y                        D=R113
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    83
        INTRINSIC FUNCTION DEFINITIONS.                               LITERALS
  
             0 Y                        D=I121
             0 Y                        D=IN23
             0 Y                        D=I1N3
             0 Y                        D=R1N3
             0 Y                        D=I12N
             0 Y                        D=IN22
             0 Y                        D=RN22
             0 Y                        D=I1NN
             0 Y                        D=R1NN
             0 Y                        D=INN3
             0 Y                        D=RNN3
             0 Y                        D=I11N
             0 Y                        D=R11N
             0 Y                        D=IN2N
             0 Y                        D=I1N1
             0 Y                        D=IFT 
             0 Y                        D=IFF 
             0 Y                        D=I111
             0 Y                        D=IEQ.I 
             0 Y                        D=IEQ.R 
             0 Y                        D=IEQ.D 
             0 Y                        D=IEQ.C 
             0 Y                        D=INE.I 
             0 Y                        D=INE.R 
             0 Y                        D=INE.D 
             0 Y                        D=INE.C 
  
          2034                                    END                                                            QSKEL      48
  
                            106600B CM  STORAGE USED            48210 STATEMENTS     3198 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           41.811 SECONDS        5437 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADD.D1          7   PROGRAM*       28/38 L   29/18
        AND         11000                  23/51 D   40/40     40/56     49/09     53/30
                                           39/16     40/56     44/24     49/51     53/41
        ANINT1        337   PROGRAM*       40/31 L
        AT.            26                  21/55 D   21/57 D   22/02 D   22/04     22/09     22/12 D   22/14 D
                                           21/55     21/57     22/03 D   22/08 D   22/10 D   22/12     22/14
                                           21/56 D   22/01 D   22/03     22/08     22/11 D   22/13 D   22/15 D
                                           21/56     22/01     22/04 D   22/09 D   22/11     22/13     22/15
        AT.A            0                  21/55 D   21/55
        AT.B            2                  21/56 D   21/56
        AT.GL          16                  22/09 D   22/09     22/10
        AT.GLL         20                  22/11 D   22/11
        AT.GLU         16                  22/10 D   22/10
        AT.GP          15                  22/08 D   22/08
        AT.K           26                  22/15 D   22/15
        AT.L            6                  22/01 D   22/01     22/02
        AT.LL          10                  22/03 D   22/03
        AT.LU           6                  22/02 D   22/02
        AT.P           12                  22/04 D   22/04
        AT.Q           24                  22/13 D   22/13
        AT.S           25                  22/14 D   22/14
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        AT.T           22                  22/12 D   22/12
        AT.X            4                  21/57 D   21/57
        B1=1            0 
        B6.C            1                  22/18 D
        CLR         13000                  23/55 D   34/43     35/32     37/23     40/24     44/05     59/28     60/18
                                           33/30     34/51     35/40     37/36     41/42     58/41     59/49     60/32
                                           34/06     35/08     35/54     37/49     43/27     58/56     60/05     62/17
        COUNT         252                  22/21 D   33/32     36/34 D   41/01     46/12 D   51/48     57/31 D   59/51
                                           28/10     33/32 D   36/48     41/01 D   46/21     51/48 D   57/35     59/51 D
                                           28/10 D   33/37     36/48 D   41/06     46/21 D   51/52     57/35 D   59/57
                                           28/17     33/37 D   36/53     41/06 D   46/26     51/52 D   57/39     59/57 D
                                           28/17 D   33/46     36/53 D   41/13     46/26 D   51/56     57/39 D   60/07
                                           28/21     33/46 D   36/57     41/13 D   46/36     51/56 D   57/43     60/07 D
                                           28/21 D   33/51     36/57 D   41/18     46/36 D   53/57     57/43 D   60/13
                                           28/26     33/51 D   37/10     41/18 D   47/09     53/57 D   57/47     60/13 D
                                           28/26 D   34/01     37/10 D   41/28     47/09 D   54/04     57/47 D   60/20
                                           28/40     34/01 D   37/15     41/28 D   47/19     54/04 D   57/51     60/20 D
                                           28/40 D   34/08     37/15 D   41/53     47/19 D   54/08     57/51 D   60/27
                                           29/04     34/08 D   37/19     41/53 D   48/11     54/08 D   57/55     60/27 D
                                           29/04 D   34/14     37/19 D   42/02     48/11 D   54/11     57/55 D   60/34
                                           29/08     34/14 D   37/28     42/02 D   48/19     54/11 D   58/04     60/34 D
                                           29/08 D   34/26     37/28 D   42/08     48/19 D   54/15     58/04 D   60/41
                                           29/13     34/26 D   37/33     42/08 D   48/26     54/15 D   58/08     60/41 D
                                           29/13 D   34/32     37/33 D   42/18     48/26 D   54/35     58/08 D   60/46
                                           29/20     34/32 D   37/46     42/18 D   48/57     54/35 D   58/12     60/46 D
                                           29/20 D   34/37     37/46 D   42/39     48/57 D   54/47     58/12 D   60/53
                                           29/36     34/37 D   39/07     42/39 D   49/11     54/47 D   58/16     60/53 D
                                           29/36 D   34/45     39/07 D   42/47     49/11 D   54/54     58/16 D   61/01
                                           30/34     34/45 D   39/14     42/47 D   49/24     54/54 D   58/26     61/01 D
                                           30/34 D   34/53     39/14 D   43/01     49/24 D   55/01     58/26 D   61/06
                                           30/38     34/53 D   39/21     43/01 D   49/30     55/01 D   58/35     61/06 D
                                           30/38 D   35/14     39/21 D   43/06     49/30 D   55/07     58/35 D   61/40
                                           30/49     35/14 D   39/28     43/06 D   49/38     55/07 D   58/43     61/40 D
                                           30/49 D   35/21     39/28 D   43/18     49/38 D   55/24     58/43 D   61/46
                                           31/12     35/21 D   39/35     43/18 D   49/53     55/24 D   58/50     61/46 D
                                           31/12 D   35/26     39/35 D   43/41     49/53 D   55/30     58/50 D   61/53
                                           31/40     35/26 D   40/04     43/41 D   50/01     55/30 D   59/01     61/53 D
                                           31/40 D   35/34     40/04 D   43/55     50/01 D   55/35     59/01 D   62/06
                                           31/44     35/34 D   40/10     43/55 D   50/16     55/35 D   59/09     62/06 D
                                           31/44 D   35/42     40/10 D   44/08     50/16 D   55/40     59/09 D   62/19
                                           32/07     35/42 D   40/15     44/08 D   50/39     55/40 D   59/15     62/19 D
                                           32/07 D   36/03     40/15 D   44/14     50/39 D   57/15     59/15 D   62/25
                                           32/26     36/03 D   40/19     44/14 D   50/43     57/15 D   59/22     62/25 D
                                           32/26 D   36/10     40/19 D   44/30     50/43 D   57/19     59/22 D   62/32
                                           33/05     36/10 D   40/26     44/30 D   51/04     57/19 D   59/30     62/32 D
                                           33/05 D   36/22     40/26 D   45/05     51/04 D   57/23     59/30 D   62/42
                                           33/11     36/22 D   40/34     45/05 D   51/08     57/23 D   59/37     62/42 D
                                           33/11 D   36/28     40/34 D   45/20     51/08 D   57/27     59/37 D   69/21
                                           33/26     36/28 D   40/42     45/20 D   51/12     57/27 D   59/44
                                           33/26 D   36/34     40/42 D   46/12     51/12 D   57/31     59/44 D
        CX          47000                  24/50 D   40/12
        DFA         32000                  24/23 D   28/38     30/47     32/05     42/37     43/15     48/42
                                           28/38     28/38     32/05     42/37     42/56     48/42     48/42
        DFJ          3600                  23/37 D
        DFM         42000                  24/40 D   30/47     32/05     41/42     43/04     45/09
        DFS         33000                  24/24 D   32/05     34/22     35/54     41/11     42/37
                                           29/18     33/44     35/08     40/56     41/42
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        DMAX11        355   PROGRAM*       40/56 L   41/11
        DOBS1         567   PROGRAM*       46/14 L   46/24
        DOBZ1         577   PROGRAM*       46/34 L   46/42
        DOCL1         625   PROGRAM*       48/17 L   48/24
        DOCL2         626   PROGRAM*       48/17 L   48/42
        DOCS1         610   PROGRAM*       47/17 L   47/29
        DOCS2         612   PROGRAM*       47/17 L   48/17
        DRL          1400                  23/24 D
        DWL          1500                  23/25 D
        D=ABS           0   EXTERNAL*      65/18
        D=ADD.C         0   EXTERNAL*      63/26
        D=ADD.D         0   EXTERNAL*      63/24
        D=ADD.I         0   EXTERNAL*      63/20
        D=ADD.R         0   EXTERNAL*      63/22
        D=AGOTO         0   EXTERNAL*      66/41
        D=AIMAG         0   EXTERNAL*      65/22
        D=AINT          0   EXTERNAL*      65/24
        D=AMAX1         0   EXTERNAL*      65/36
        D=AMIN1         0   EXTERNAL*      65/38
        D=AMOD          0   EXTERNAL*      65/40
        D=AND.L         0   EXTERNAL*      65/10
        D=ANINT         0   EXTERNAL*      65/26
        D=APIOC         0   EXTERNAL*      67/04
        D=APIOD         0   EXTERNAL*      67/06
        D=APIOU         0   EXTERNAL*      67/08
        D=ARY           0   EXTERNAL*      66/53
        D=ASSGN         0   EXTERNAL*      66/49
        D=BSS           0   EXTERNAL*      66/51
        D=BVD           0   EXTERNAL*      67/34
        D=CAT           0   EXTERNAL*      64/47
        D=CDCS          0   EXTERNAL*      67/54
        D=CDDOT         0   EXTERNAL*      67/52
        D=CDLOO         0   EXTERNAL*      67/50
        D=CGOTO         0   EXTERNAL*      66/43
        D=CMPLX         0   EXTERNAL*      65/44
        D=COLON         0   EXTERNAL*      64/49
        D=CONJG         0   EXTERNAL*      65/42
        D=DABS          0   EXTERNAL*      65/46
        D=DATA          0   EXTERNAL*      67/56
        D=DDIM          0   EXTERNAL*      65/48
        D=DIM           0   EXTERNAL*      65/50
        D=DINT          0   EXTERNAL*      65/52
        D=DIV.C         0   EXTERNAL*      63/50
        D=DIV.D         0   EXTERNAL*      63/48
        D=DIV.I         0   EXTERNAL*      63/44
        D=DIV.R         0   EXTERNAL*      63/46
        D=DMAX1         0   EXTERNAL*      65/30
        D=DMIN1         0   EXTERNAL*      65/34
        D=DNINT         0   EXTERNAL*      65/56
        D=DOBD2         0   EXTERNAL*      68/09
        D=DOBL          0   EXTERNAL*      66/19
        D=DOBS          0   EXTERNAL*      66/17
        D=DOBZL         0   EXTERNAL*      66/23
        D=DOBZS         0   EXTERNAL*      66/21
        D=DOC.D         0   EXTERNAL*      66/33
        D=DOC.L         0   EXTERNAL*      66/29
        D=DOC.O         0   EXTERNAL*      66/27
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        D=DOC.R         0   EXTERNAL*      66/31
        D=DOC.S         0   EXTERNAL*      66/25
        D=DPROD         0   EXTERNAL*      65/54
        D=DSIGN         0   EXTERNAL*      66/01
        D=DTOC          0   EXTERNAL*      65/06
        D=DVC.R         0   EXTERNAL*      63/52
        D=DVI           0   EXTERNAL*      68/05
        D=ENTR          0   EXTERNAL*      67/32
        D=EQV.L         0   EXTERNAL*      65/12
        D=EQ.D          0   EXTERNAL*      64/35
        D=EQ.H          0   EXTERNAL*      64/37
        D=EQ.I          0   EXTERNAL*      64/31
        D=EQ.R          0   EXTERNAL*      64/33
        D=ERR           0   EXTERNAL*      67/20
        D=EVD           0   EXTERNAL*      67/36
        D=EXP.I         0   EXTERNAL*      68/07
        D=FAP           0   EXTERNAL*      66/57
        D=FILE          0   EXTERNAL*      67/44
        D=FIN           0   EXTERNAL*      68/01
        D=FUNC          0   EXTERNAL*      67/12
        D=GAP           0   EXTERNAL*      66/55
        D=GE.D          0   EXTERNAL*      64/15
        D=GE.H          0   EXTERNAL*      64/17
        D=GE.I          0   EXTERNAL*      64/11
        D=GE.R          0   EXTERNAL*      64/13
        D=GOTO          0   EXTERNAL*      66/39
        D=GPL           0   EXTERNAL*      67/30
        D=HDR           0   EXTERNAL*      67/42
        D=IAP           0   EXTERNAL*      67/02
        D=IDIM          0   EXTERNAL*      66/07
        D=IDNIN         0   EXTERNAL*      66/03
        D=IEQ.C         0   EXTERNAL*      69/06
        D=IEQ.D         0   EXTERNAL*      69/04
        D=IEQ.I         0   EXTERNAL*      68/57
        D=IEQ.R         0   EXTERNAL*      69/02
        D=IFF           0   EXTERNAL*      68/53
        D=IFT           0   EXTERNAL*      68/51
        D=ILL           0   EXTERNAL*      63/18
        D=INE.C         0   EXTERNAL*      69/14
        D=INE.D         0   EXTERNAL*      69/12
        D=INE.I         0   EXTERNAL*      69/08
        D=INE.R         0   EXTERNAL*      69/10
        D=INN3          0   EXTERNAL*      68/39
        D=INTF          0   EXTERNAL*      67/16
        D=IN2N          0   EXTERNAL*      68/47
        D=IN22          0   EXTERNAL*      68/31
        D=IN23          0   EXTERNAL*      68/23
        D=IOLC          0   EXTERNAL*      66/35
        D=IOSUB         0   EXTERNAL*      67/18
        D=ISIGN         0   EXTERNAL*      66/05
        D=ITOB          0   EXTERNAL*      64/55
        D=ITOD          0   EXTERNAL*      64/57
        D=ITOR          0   EXTERNAL*      64/53
        D=I1NN          0   EXTERNAL*      68/35
        D=I1N1          0   EXTERNAL*      68/49
        D=I1N3          0   EXTERNAL*      68/25
        D=I11N          0   EXTERNAL*      68/43
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        D=I111          0   EXTERNAL*      68/55
        D=I113          0   EXTERNAL*      68/17
        D=I12N          0   EXTERNAL*      68/29
        D=I121          0   EXTERNAL*      68/21
        D=I122          0   EXTERNAL*      68/13
        D=I123          0   EXTERNAL*      68/11
        D=JGOTO         0   EXTERNAL*      66/45
        D=LCC           0   EXTERNAL*      68/03
        D=LCIF          0   EXTERNAL*      66/37
        D=LEQ           0   EXTERNAL*      64/39
        D=LGE           0   EXTERNAL*      64/19
        D=LIBF          0   EXTERNAL*      67/14
        D=LLT           0   EXTERNAL*      64/09
        D=LNE           0   EXTERNAL*      64/29
        D=LT.D          0   EXTERNAL*      64/05
        D=LT.H          0   EXTERNAL*      64/07
        D=LT.I          0   EXTERNAL*      64/01
        D=LT.R          0   EXTERNAL*      64/03
        D=MASK          0   EXTERNAL*      66/09
        D=MAX0          0   EXTERNAL*      65/28
        D=MIN0          0   EXTERNAL*      65/32
        D=MOD           0   EXTERNAL*      66/11
        D=MUL.C         0   EXTERNAL*      63/42
        D=MUL.D         0   EXTERNAL*      63/40
        D=MUL.I         0   EXTERNAL*      63/36
        D=MUL.R         0   EXTERNAL*      63/38
        D=NE.D          0   EXTERNAL*      64/25
        D=NE.H          0   EXTERNAL*      64/27
        D=NE.I          0   EXTERNAL*      64/21
        D=NE.R          0   EXTERNAL*      64/23
        D=NOOP          0   EXTERNAL*      67/40
        D=NOT.L         0   EXTERNAL*      65/08
        D=OR.L          0   EXTERNAL*      65/14
        D=PAUS          0   EXTERNAL*      67/24
        D=PLIM          0   EXTERNAL*      67/46
        D=RANF          0   EXTERNAL*      66/13
        D=RET           0   EXTERNAL*      67/26
        D=RGOTO         0   EXTERNAL*      66/47
        D=RNN3          0   EXTERNAL*      68/41
        D=RN22          0   EXTERNAL*      68/33
        D=RTNK          0   EXTERNAL*      67/28
        D=RTOD          0   EXTERNAL*      65/04
        D=RTOI          0   EXTERNAL*      65/02
        D=R1NN          0   EXTERNAL*      68/37
        D=R1N3          0   EXTERNAL*      68/27
        D=R11N          0   EXTERNAL*      68/45
        D=R113          0   EXTERNAL*      68/19
        D=R122          0   EXTERNAL*      68/15
        D=SEG           0   EXTERNAL*      67/38
        D=SEX           0   EXTERNAL*      67/48
        D=SHIFT         0   EXTERNAL*      66/15
        D=STOP          0   EXTERNAL*      67/22
        D=STR.D         0   EXTERNAL*      64/43
        D=STR.H         0   EXTERNAL*      64/45
        D=STR.I         0   EXTERNAL*      64/41
        D=SUBR          0   EXTERNAL*      67/10
        D=SUBST         0   EXTERNAL*      64/51
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        D=SUB.C         0   EXTERNAL*      63/34
        D=SUB.D         0   EXTERNAL*      63/32
        D=SUB.I         0   EXTERNAL*      63/28
        D=SUB.R         0   EXTERNAL*      63/30
        D=SUM1S         0   EXTERNAL*      65/20
        D=UMI.D         0   EXTERNAL*      63/56
        D=UMI.I         0   EXTERNAL*      63/54
        D=XOR.L         0   EXTERNAL*      65/16
        EQB          4000                  23/40 D
        EQH1          267   PROGRAM*       36/08 L   36/13
        EQV         17000                  24/02 D   35/32     35/40     35/54     39/23     62/17
        ES=CMPL         0   EXTERNAL*       4/15 X   76/33
        ES=LEN          0   EXTERNAL*       4/15 X   77/33
        ES=LGE          0   EXTERNAL*       4/15 X   76/43
        ES=LGT          0   EXTERNAL*       4/15 X   76/44
        ES=LLE          0   EXTERNAL*       4/15 X   76/45
        ES=LLT          0   EXTERNAL*       4/15 X   76/46
        ES=LOCF         0   EXTERNAL*       4/15 X   76/48
        ES=MASK         0   EXTERNAL*       4/16 X   77/34
        ES=RANF         0   EXTERNAL*       4/16 X   77/37
        ES=SHIF         0   EXTERNAL*       4/16 X   77/39
        FA          30000                  24/19 D   28/38     32/05     34/22     41/42     42/56     48/42
                                           28/38     30/47     32/05     34/22     41/42     42/56     48/42
                                           28/38     30/47     32/05     40/24     42/37     42/56     48/42
                                           28/38     30/47     33/44     40/56     42/37     43/15     48/42
                                           28/38     32/05     33/44     40/56     42/37     48/42
        FAR         30000                  24/21 D   28/24     28/45     28/45     31/01     32/22     32/22     48/24
        FD          44000                  24/46 D   32/05     32/05     41/42     44/43
        FDR         44000                  24/47 D   31/30     31/42     32/22     32/22     32/29     32/29
        FM          40000                  24/37 D   30/47     30/47     30/47     32/05     32/05     41/42     43/04
        FMA         43000                  24/15 D   44/24     44/28     44/51     52/45     53/30     53/41     55/28
        FMR         40000                  24/38 D   31/01     31/01     32/22     32/22     32/22
                                           30/36     31/01     31/01     32/22     32/22     32/22
        FS          31000                  24/20 D   32/05     34/22     35/54     41/11     41/42     42/44
                                           29/18     32/05     34/22     35/54     41/11     41/42
                                           29/18     33/44     35/08     40/56     41/16     42/37
                                           32/05     33/44     35/08     40/56     41/21     42/37
        FSR         31000                  24/22 D   29/25     33/35     35/40     62/04     62/30     62/50
                                           29/11     31/01     34/12     61/51     62/17     62/40     62/50
                                           29/25     32/22     34/51     62/04     62/17     62/40
        F.IFN        1321   PROGRAM*       74/01 L   74/01 E
        F.IFS        1312   PROGRAM*       73/46 L   73/46 E
        F.IMCV       1556   PROGRAM*       80/12 L   80/12 E   80/17
        F.INTF       1327   PROGRAM*       76/04 L   79/21     79/28     79/33     79/39     79/44     79/49
                                           76/04 E   79/22     79/29     79/34     79/40     79/45     79/50
                                           79/18     79/23     79/30     79/35     79/41     79/46     79/51
                                           79/19     79/26     79/31     79/37     79/42     79/47
                                           79/20     79/27     79/32     79/38     79/43     79/48
        F.MODC       1303   PROGRAM*       73/11 L   73/11 E
        F.SCT        1562   PROGRAM*       63/12 L   63/12 E
        F.SKCR       1562   PROGRAM*       63/14 L   63/14 E
        F.SKEL          0   PROGRAM*       27/02 L   27/02 E
        F.SKNAM         0   SKLNAM         26/56 L   26/56 E
        GEB          6000                  23/43 D
        GEH1          201   PROGRAM*       34/30 L   34/35
        GTB          7000                  23/45 D
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        IA          36000                  24/31 D   34/06     43/27     47/24     49/09     59/28
                                           28/19     34/43     44/05     48/17     49/51     59/49
                                           33/30     35/32     47/17     48/17     58/41     60/05
        IDJ          3700                  23/38 D
        ILS         22000                  24/09 D   31/30     37/31     44/43     45/27     56/34
        IM          42000                  24/41 D   29/42     44/43
        IMP         16000                  24/01 D   49/51     50/13
        IR           3400                  23/35 D   49/35
        IRS         23000                  24/10 D   44/24
        IS          37000                  24/32 D   34/43     35/32     40/40     46/19     49/51     61/44
                                           29/06     34/43     35/32     41/04     46/42     58/56     62/17
                                           33/30     34/51     35/40     44/12     49/09     60/18     62/23
                                           34/06     35/08     35/54     44/43     49/15     60/32
        IT.DPCL        44   FTX            76/09     76/27     76/43     77/02     77/22     77/39     78/02     78/20
                                           76/11     76/28     76/44     77/03     77/23     77/40     78/03     78/21
                                           76/12     76/29     76/45     77/04     77/24     77/44     78/04     78/22
                                           76/13     76/30     76/46     77/05     77/25     77/45     78/05     78/23
                                           76/14     76/31     76/47     77/10     77/26     77/46     78/06     78/24
                                           76/15     76/32     76/48     77/11     77/27     77/47     78/07     78/25
                                           76/16     76/33     76/49     77/12     77/29     77/48     78/08     78/26
                                           76/17     76/34     76/50     77/13     77/30     77/49     78/09     78/28
                                           76/18     76/35     76/51     77/14     77/31     77/50     78/11     78/29
                                           76/19     76/36     76/52     77/15     77/32     77/51     78/12
                                           76/20     76/37     76/53     77/16     77/33     77/52     78/13
                                           76/21     76/38     76/54     77/17     77/34     77/53     78/14
                                           76/22     76/39     76/55     77/18     77/35     77/54     78/15
                                           76/24     76/40     76/56     77/19     77/36     77/56     78/16
                                           76/25     76/41     76/57     77/20     77/37     77/57     78/17
                                           76/26     76/42     77/01     77/21     77/38     78/01     78/18
        I.BSS          24   FTX            23/19     56/08     56/41     56/52
        I.JPI          30   FTX            23/16
        I.RJ3          35   FTX            23/17     56/08
        I.UJP          41   FTX            23/18     49/56     55/12     56/52     58/33     58/48     59/07     61/09
                                           49/27     55/05     56/41     57/03     58/41     58/56     59/13
        KLS         20000                  24/07 D   30/03     35/19     36/08     52/45     53/30     53/41
        KRS         21000                  24/08 D   40/31     42/12     42/56     43/27     44/05     44/51     50/13
                                           31/38     40/40     42/37     43/15     43/46     44/12     49/09     55/28
                                           40/07     40/56     42/44     43/27     44/05     44/24     49/51
        LD          50000                  25/26 D   51/29     51/34     51/34     51/38     51/43     51/43     55/12
        LDB         60000                  25/27 D
        LEB          6000                  23/42 D
        LTB          7000                  23/44 D
        LTH1          157   PROGRAM*       33/49 L   33/54
        MAX01         345   PROGRAM*       40/40 L   41/04     41/16     41/21
        MI           3300                  23/33 D   49/15     59/35     60/05     60/18     60/56
                                           46/34     59/28     59/42     60/11     60/25     62/17
        M.BOOL          0   FTX            73/14 L   76/12     76/18     76/29     76/37     76/55     77/05     77/37
                                           76/09     76/13     76/20     76/30     76/47     76/56     77/16     77/38
                                           76/11     76/16     76/28     76/32     76/48     77/02     77/34     77/39
        M.CHAR          6   FTX            73/20 L   76/31     76/43     76/45     76/47     77/32
                                           76/29     76/39     76/44     76/46     77/30     77/33
        M.CPLX          5   FTX            73/19 L   76/17     76/21     76/33     77/15     77/49     78/05
                                           76/13     76/19     76/22     76/57     77/17     77/52
                                           76/15     76/20     76/32     77/11     77/46     78/01
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        M.DBL           4   FTX            73/18 L   76/22     77/01     77/23     77/48     78/08     78/21
                                           76/12     76/34     77/18     77/24     77/51     78/12     78/23
                                           76/14     76/35     77/19     77/25     77/54     78/14     78/25
                                           76/18     76/36     77/21     77/29     77/57     78/16
                                           76/19     76/40     77/22     77/45     78/04     78/18
        M.INT           2   FTX            73/16 L   76/24     76/38     76/42     76/52     77/27     77/32     77/36
                                           76/14     76/26     76/39     76/49     76/53     77/29     77/33     80/15
                                           76/15     76/30     76/40     76/50     76/54     77/30     77/34     80/16
                                           76/21     76/31     76/41     76/51     77/26     77/31     77/35
        M.LOG           1   FTX            73/15 L   76/43     76/44     76/45     76/46
        M.REAL          3   FTX            73/17 L   76/27     76/54     77/12     77/37     77/56     78/13     78/28
                                           76/11     76/33     76/57     77/13     77/38     78/02     78/15     78/29
                                           76/16     76/34     77/01     77/14     77/40     78/03     78/17     80/13
                                           76/17     76/38     77/03     77/15     77/44     78/06     78/20     80/14
                                           76/24     76/41     77/04     77/20     77/47     78/07     78/22
                                           76/25     76/42     77/10     77/24     77/50     78/09     78/24
                                           76/26     76/51     77/11     77/36     77/53     78/11     78/26
        NEB          5000                  23/41 D
        NEH1          233   PROGRAM*       35/19 L   35/24
        NEQV        13000                  23/54 D
        NOP         46000                  24/49 D
        NR          24000                  24/11 D   29/25     33/35     35/54     41/42     43/15     59/35     62/17
                                           28/24     31/01     33/44     35/54     41/42     44/43     59/55     62/30
                                           28/38     31/01     34/12     35/54     42/37     45/09     60/11     62/40
                                           28/38     31/30     34/22     37/13     42/37     48/24     60/25     62/40
                                           28/38     32/05     34/51     37/23     42/37     48/42     60/39     62/50
                                           28/45     32/05     35/08     40/24     42/44     48/42     61/51     62/50
                                           28/45     32/22     35/08     40/31     42/56     48/42     62/04
                                           29/11     32/22     35/08     40/56     42/56     58/48     62/04
                                           29/25     32/22     35/40     41/42     43/15     59/07     62/17
        NZ           3100                  23/31 D   59/35     62/23     62/40     62/50
                                           59/28     60/49     62/30     62/50
        OMI=CPX        30                  78/34 D   78/34 E
        OMI=LCF        51                  78/37 D   78/37 E
        OMI=LEN       130                  78/35 D   78/35 E
        OMI=SHF       141                  78/36 D   78/36 E
        OM=ADD       1255   PROGRAM*       72/06 L   72/06 E
        OM=AND       1273   PROGRAM*       72/20 L   72/20 E
        OM=CONV        55                  71/21 D   71/23     73/16     73/18     80/13     80/15
                                           71/21 E   73/14     73/17     73/19     80/14     80/16
        OM=DIV       1260   PROGRAM*       72/09 L   72/09 E
        OM=DOC       1301   PROGRAM*       72/27 L   72/27 E   72/28     72/29 L   72/29 E
        OM=EQ        1270   PROGRAM*       72/16 L   72/16 E
        OM=EQV       1275   PROGRAM*       72/22 L   72/22 E
        OM=GE        1264   PROGRAM*       72/14 L   72/14 E
        OM=IF         213                  71/22 D   73/47     73/49     73/53     73/55     74/03     74/05     74/07
                                           71/22 E   73/48     73/50     73/54     74/02     74/04     74/06
        OM=INL         55                  71/23 D   76/17     76/26     76/38     76/55     77/12     77/21     77/35
                                           71/23 E   76/18     76/27     76/40     76/56     77/13     77/23     77/36
                                           76/11     76/19     76/28     76/41     76/57     77/14     77/24     77/40
                                           76/12     76/20     76/30     76/42     77/01     77/16     77/25
                                           76/13     76/21     76/34     76/50     77/02     77/17     77/26
                                           76/14     76/22     76/35     76/51     77/05     77/18     77/27
                                           76/15     76/24     76/36     76/53     77/10     77/19     77/29
                                           76/16     76/25     76/37     76/54     77/11     77/20     77/31
        OM=LT        1262   PROGRAM*       72/13 L   72/13 E
        OM=MUL       1257   PROGRAM*       72/08 L   72/08 E
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        OM=NE        1266   PROGRAM*       72/15 L   72/15 E
        OM=NOT       1272   PROGRAM*       72/19 L   72/19 E
        OM=OR        1274   PROGRAM*       72/21 L   72/21 E
        OM=STR       1277   PROGRAM*       72/26 L   72/26 E
        OM=SUB       1256   PROGRAM*       72/07 L   72/07 E
        OM=UMI       1261   PROGRAM*       72/10 L   72/10 E
        OM=XOR       1276   PROGRAM*       72/23 L   72/23 E
        OR          12000                  23/52 D   34/51     35/08     35/54     39/30     52/45     53/41     62/17
                                           34/43     35/08     35/08     35/54     49/09     53/30     62/04     62/40
        ORJ          3500                  23/36 D
        O=APRET         0   EXTERNAL*       4/02 X   52/07     52/45
        O=BVD           0   EXTERNAL*       4/07 X   55/37
        O=CAR           0   EXTERNAL*       4/07 X   46/19     46/34     49/51     50/13     54/39     58/02
        O=CBJ           0   EXTERNAL*       4/07 X   49/35     50/13
        O=CDCS          0   EXTERNAL*       4/07 X   57/49
        O=CDDOT         0   EXTERNAL*       4/07 X   57/45
        O=CDLOO         0   EXTERNAL*       4/07 X   57/41
        O=CDW           0   EXTERNAL*       4/07 X   54/39     55/05     55/12     58/02
        O=CRJ           0   EXTERNAL*       4/07 X   54/39
        O=DATA          0   EXTERNAL*       4/08 X   57/53
        O=DOB           0   EXTERNAL*       4/08 X   46/19     46/34
        O=DOBZ          0   EXTERNAL*       4/08 X   46/19     46/42
        O=DOC           0   EXTERNAL*       4/08 X   47/17     47/24     48/17     48/24     48/42
        O=ENT           0   EXTERNAL*       4/08 X   55/32
        O=EVD           0   EXTERNAL*       4/08 X   55/42
        O=FAP           0   EXTERNAL*       4/02 X   51/10
        O=FIN           0   EXTERNAL*       4/08 X   58/02
        O=FINX          0   EXTERNAL*       4/08 X   56/08     56/41
        O=FPENT         0   EXTERNAL*       4/09 X   56/52
        O=FPHDR         0   EXTERNAL*       4/09 X   56/41
        O=FUN           0   EXTERNAL*       4/02 X   54/06
        O=FUNT          0   EXTERNAL*       4/09 X   56/27
        O=GAP           0   EXTERNAL*       4/02 X   51/06
        O=GENT          0   EXTERNAL*       4/09 X   56/13
        O=GENTX         0   EXTERNAL*       4/09 X   57/03
        O=GFD           0   EXTERNAL*       4/09 X   57/29
        O=HCAT          0   EXTERNAL*       4/09 X   36/50
        O=HCOL          0   EXTERNAL*       4/10 X   36/55
        O=HDR           0   EXTERNAL*       4/10 X   57/25
        O=HLEX          0   EXTERNAL*       4/02 X   33/54     34/35     35/24     36/13
        O=HREL          0   EXTERNAL*       4/02 X   33/49     34/30     35/19     36/08
        O=HSBS          0   EXTERNAL*       4/10 X   37/02
        O=HSTO          0   EXTERNAL*       4/02 X   36/36
        O=IAP           0   EXTERNAL*       4/02 X   51/14
        O=ID            0   EXTERNAL*       4/10 X   31/14
        O=ILL           0   EXTERNAL*       4/10 X   28/12     58/10     58/14
        O=IM            0   EXTERNAL*       4/10 X   29/38
        O=INF           0   EXTERNAL*       4/03 X   54/13
        O=IOC           0   EXTERNAL*       4/03 X   51/50
        O=IOD           0   EXTERNAL*       4/03 X   51/54
        O=IOF           0   EXTERNAL*       4/03 X   54/17
        O=IOU           0   EXTERNAL*       4/03 X   52/01
        O=LCC           0   EXTERNAL*       4/10 X   58/06
        O=LIB           0   EXTERNAL*       4/03 X   54/50     54/56
        O=LIBF          0   EXTERNAL*       4/03 X   54/10
        O=LURET         0   EXTERNAL*       4/03 X   53/47
        O=MASK          0   EXTERNAL*       4/10 X   44/16
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        O=MENT          0   EXTERNAL*       4/10 X   56/13
        O=MOD           0   EXTERNAL*       4/11 X   44/32
        O=NOOP          0   EXTERNAL*       4/11 X   57/21     58/18
        O=PAR           0   EXTERNAL*       4/23 X   50/45
        O=PASG          0   EXTERNAL*       4/11 X   50/37
        O=PCG           0   EXTERNAL*       4/11 X   49/51
        O=PDE           0   EXTERNAL*       4/11 X   47/17     47/24
        O=PLA           0   EXTERNAL*       4/11 X   50/41
        O=PLIM          0   EXTERNAL*       4/11 X   57/33
        O=RGT           0   EXTERNAL*       4/11 X   50/13
        O=SCRET         0   EXTERNAL*       4/04 X   52/53     53/30     53/41
        O=SEX           0   EXTERNAL*       4/12 X   57/37
        O=SHIFT         0   EXTERNAL*       4/12 X   45/22
        O=SUB           0   EXTERNAL*       4/04 X   54/02
        O=SURET         0   EXTERNAL*       4/04 X   53/53
        PK          27000                  24/14 D   31/30     37/23     40/31     42/56     43/46     44/43
                                           31/30     37/13     40/24     41/42     43/15     44/43
        PL           3200                  23/32 D   58/33     58/48     59/07     59/49     60/32     61/04
                                           47/17     58/41     58/56     59/20     59/55     60/39
        PROS.M       1041   PROGRAM*       56/12 L   57/03
        RFA         34000                  24/25 D   40/31     43/15     43/15     43/46
        RFD         45000                  24/48 D
        RFM         41000                  24/39 D
        RFS         35000                  24/26 D
        RNR         25000                  24/12 D
        R.X1           21                  51/29     51/34     55/12
        R.X2           22                  51/34
        R.X3           23                  51/38     51/43
        R.X4           24                  51/43
        SA=AB       54000                  25/02 D
        SA=AK       50000                  24/55 D   56/34
        SA=AMB      55000                  25/03 D
        SA=BB       56000                  25/04 D
        SA=BK       51000                  24/56 D   56/08     56/20     56/27     56/34     56/52     56/52
        SA=BMB      57000                  25/05 D
        SA=XB       53000                  25/01 D   56/20
        SA=XK       52000                  24/57 D   50/13
        SB=AB       64000                  25/11 D
        SB=AK       60000                  25/07 D
        SB=AMB      65000                  25/12 D
        SB=BB       66000                  25/13 D
        SB=BK       61000                  25/08 D
        SB=BMB      67000                  25/14 D
        SB=XB       63000                  25/10 D   45/27     49/51     50/13
        SB=XK       62000                  25/09 D   44/24     49/35
        SKEND        1254   PROGRAM*       62/57 L   62/57 E
        SKL.CON         0                  20/30 D   22/13     22/14     22/15
        SKL.GOP         1                  20/31 D   22/08     22/09     22/10     22/11
        SKL.OP          1                  20/28 D   22/01     22/02     22/03     22/04     22/05     22/06     22/07
        SKL.RG          0                  20/27 D   21/55     21/56     21/57
        SKL.TMP         1                  20/29 D   22/12
        SKM.CON         1                  20/30 D   22/13     22/14     22/15
        SKM.GOP         1                  20/31 D   22/08     22/09     22/10     22/11
        SKM.OP    7777774                  20/28 D
        SKM.RG          1                  20/27 D   21/55     21/56     21/57
        SKM.TMP         1                  20/29 D   22/12
        SKO.CON         0                  20/30 D   22/13     22/14     22/15
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        SKO.GOP   7777776                  20/31 D   22/08     22/09     22/10     22/11
        SKO.OP          0                  20/28 D   22/01     22/02     22/03     22/04     22/05     22/06     22/07
        SKO.RG          0                  20/27 D   21/55     21/56     21/57
        SKO.TMP   7777776                  20/29 D   22/12
        SKU.CON         0                  20/30 D
        SKU.GOP         6                  20/31 D
        SKU.OP          6                  20/28 D
        SKU.RG          7                  20/27 D
        SKU.TMP        24                  20/29 D
        ST          50000                  25/28 D   36/32     46/34     47/17     48/42     50/37     52/53     53/53
                                           36/24     45/09     46/42     47/24     48/42     52/07     53/30
                                           36/32     46/19     47/17     48/17     49/09     52/45     53/41
        STR         15000                  23/57 D   42/37     44/12     49/09     50/13     53/30     55/28
                                           42/37     42/44     44/51     49/51     52/45     53/41
        SX=AB       74000                  25/21 D
        SX=AK       70000                  25/17 D
        SX=AMB      75000                  25/22 D
        SX=BB       76000                  25/23 D
        SX=BK       71000                  25/18 D   49/51
        SX=BMB      77000                  25/24 D
        SX=XB       73000                  25/20 D
        SX=XK       72000                  25/19 D   46/34     47/17     47/29     49/51     50/13     50/13
        S=AEXIT         0   EXTERNAL*       4/19 X   55/12
        S=BU            0   EXTERNAL*       4/19 X   49/35
        S=ENTRY         0   EXTERNAL*       4/19 X   56/08     56/41     56/41     56/52
        S=ERR           0   EXTERNAL*       4/19 X   54/39
        S=EXIT          0   EXTERNAL*       4/19 X   55/05
        S=FILES         0   EXTERNAL*       4/19 X   56/08
        S=INIT          0   EXTERNAL*       4/19 X   56/08
        S=TA0           0   EXTERNAL*       4/19 X   56/20
        S=TRACE         0   EXTERNAL*       4/20 X   49/35
        S=VALUE         0   EXTERNAL*       4/20 X   56/27     56/34
        TEST            0   FTX            73/21 F
        TMENT1       1055   PROGRAM*       56/27     56/41 L
        T.IND          27                  20/03 D   21/56 D   22/01 D   22/03 D   22/07 D   22/10 D   22/12 D   22/15 D
                                           21/55     21/57     22/02     22/04     22/08     22/10     22/12
                                           21/55 D   21/57 D   22/02 D   22/04 D   22/08 D   22/10 D   22/12 D
                                           21/55     21/57     22/02     22/05     22/09     22/11     22/13
                                           21/55 D   21/57 D   22/02 D   22/05 D   22/09 D   22/11 D   22/13 D
                                           21/56     22/01     22/03     22/06     22/09     22/11     22/14
                                           21/56 D   22/01 D   22/03 D   22/06 D   22/09 D   22/11 D   22/14 D
                                           21/56     22/01     22/03     22/07     22/10     22/12     22/15
        UP          26000                  24/13 D   31/30     37/31     43/46     44/43
        U=ABS         326                  40/04 D   65/18
        U=ADD.C        17                  28/40 D   63/26
        U=ADD.D         4                  28/26 D   63/24
        U=ADD.I         1                  28/17 D   63/20
        U=ADD.R         2                  28/21 D   63/22
        U=AGOTO         0                  49/30 D   49/31 D   49/32 D   49/33 D   49/35 D   49/35 D   66/41
        U=AIMAG       332                  40/15 D   65/22
        U=AINT        333                  40/19 D   65/24
        U=ALENT         0                  56/46 D   56/47 D   56/48 D   56/49 D   56/50 D   56/51 D   56/52 D
        U=AMAX1       376                  41/13 D   65/36
        U=AMIN1       400                  41/18 D   65/38
        U=AMOD        402                  41/28 D   65/40
        U=AND.L       322                  39/14 D   65/10
        U=ANINT       337                  40/26 D   65/26
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        U=APIOC         0                  51/48 D   51/49 D   67/04
        U=APIOD         0                  51/52 D   51/53 D   67/06
        U=APIOU         0                  51/56 D   51/57 D   67/08
        U=APSTR         0                  52/05 D   52/06 D
        U=ARY           0                  50/43 D   50/44 D   66/53
        U=ASSGN         0                  50/16 D   50/18 D   50/19 D   66/49
        U=BSS           0                  50/39 D   50/40 D   66/51
        U=BVD           0                  55/35 D   55/36 D   67/34
        U=CAPST         0                  52/51 D   52/52 D
        U=CAT           0                  36/48 D   36/49 D   64/47
        U=CDCS          0                  57/47 D   57/48 D   67/54
        U=CDDOT         0                  57/43 D   57/44 D   67/52
        U=CDLOO         0                  57/39 D   57/40 D   67/50
        U=CGOTO         0                  49/38 D   49/40 D   49/41 D   49/48 D   49/49 D   49/50 D   49/51 D   66/43
        U=CIA0S         0                  53/37 D   53/39 D   53/40 D
        U=CIS0S         0                  53/25 D   53/28 D   53/29 D
        U=CMPLX       421                  42/02 D   65/44
        U=COLON         0                  36/53 D   36/54 D   64/49
        U=CONJG       417                  41/53 D   65/42
        U=DABS        423                  42/08 D   65/46
        U=DATA          0                  57/51 D   57/52 D   67/56
        U=DDIM        427                  42/18 D   65/48
        U=DFENT         0                  56/30 D   56/31 D   56/32 D   56/33 D   56/34 D   56/34 D
        U=DIM         446                  42/39 D   65/50
        U=DINT        453                  42/47 D   65/52
        U=DIV.C       120                  32/07 D   63/50
        U=DIV.D        77                  31/44 D   63/48
        U=DIV.I         0                  31/12 D   31/13 D
        U=DIV.R        76                  31/40 D   63/46
        U=DMAX1       352                  40/42 D   65/30
        U=DMIN1       372                  41/06 D   65/34
        U=DNINT       466                  43/06 D   65/56
        U=DOBD2         0                  58/16 D   58/17 D   68/09
        U=DOBL        574                  46/21 D   66/19
        U=DOBS          0                  46/12 D   46/14 D   46/15 D   46/16 D   46/17 D   46/18 D   66/17
        U=DOBZL         0                  46/36 D   46/38 D   46/39 D   46/40 D   66/23
        U=DOBZS         0                  46/26 D   46/28 D   46/29 D   46/30 D   46/32 D   46/33 D   46/34 D   66/21
        U=DOC.D         0                  48/26 D   48/27 D   48/39 D   48/40 D   66/33
        U=DOC.K         0                  47/27 D
        U=DOC.L         0                  48/11 D   48/12 D   48/14 D   48/15 D   66/29
        U=DOC.O         0                  47/19 D   47/20 D   47/22 D   47/23 D   66/27
        U=DOC.R         0                  48/19 D   48/20 D   66/31
        U=DOC.S         0                  47/09 D   47/12 D   47/14 D   47/16 D   66/25
                                           47/10 D   47/13 D   47/15 D   47/17 D
        U=DPROD       464                  43/01 D   65/54
        U=DSIGN       477                  43/18 D   66/01
        U=DTOC        317                  37/46 D   65/06
        U=DVC.R       136                  32/26 D   63/52
        U=DVI           0                  58/08 D   58/09 D   68/05
        U=ENTR          0                  55/30 D   55/31 D   67/32
        U=EQV.L       323                  39/21 D   65/12
        U=EQ.D        253                  35/42 D   64/35
        U=EQ.H          0                  36/03 D   36/04 D   64/37
        U=EQ.I        241                  35/26 D   64/31
        U=EQ.R        246                  35/34 D   64/33
        U=ERR           0                  54/35 D   54/36 D   54/37 D   54/38 D   67/20
        U=EVD           0                  55/40 D   55/41 D   67/36
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        U=EXP.I         0                  58/12 D   58/13 D   68/07
        U=FAP           0                  51/08 D   51/09 D   66/57
        U=FILE          0                  57/27 D   57/28 D   67/44
        U=FIN           0                  57/55 D   57/56 D   57/57 D   58/01 D   68/01
        U=FUNC          0                  54/04 D   54/05 D   67/12
        U=FUNT          0                  56/23 D   56/24 D   56/25 D   56/27 D
        U=GAP           0                  51/04 D   51/05 D   66/55
        U=GE.D        171                  34/14 D   64/15
        U=GE.H          0                  34/26 D   34/27 D   64/17
        U=GE.I        162                  34/01 D   64/11
        U=GE.R        166                  34/08 D   64/13
        U=GOTO          0                  49/24 D   49/25 D   66/39
        U=GPL        1026                  55/24 D   67/30
        U=HDR           0                  57/23 D   57/24 D   67/42
        U=IAP           0                  51/12 D   51/13 D   67/02
        U=IAPD1         0                  51/32 D   51/33 D   51/34 D   51/34 D
        U=IAPD2         0                  51/41 D   51/42 D   51/43 D   51/43 D
        U=IAPS1         0                  51/28 D   51/29 D
        U=IAPS2         0                  51/37 D   51/38 D
        U=IDIM        526                  44/08 D   66/07
        U=IDNIN       511                  43/41 D   66/03
        U=IDP2          0                  31/36 D
        U=IEQ.C         0                  62/06 D   62/15 D   69/06
        U=IEQ.D         0                  61/53 D   62/02 D   69/04
        U=IEQ.I         0                  61/40 D   61/42 D   68/57
        U=IEQ.R         0                  61/46 D   61/49 D   69/02
        U=IFF           0                  61/01 D   61/02 D   68/53
        U=IFT           0                  60/53 D   60/54 D   68/51
        U=ILL           0                  28/10 D   28/11 D   63/18
        U=INE.C         0                  62/42 D   62/47 D   62/48 D   69/14
        U=INE.D         0                  62/32 D   62/38 D   69/12
        U=INE.I         0                  62/19 D   62/21 D   69/08
        U=INE.R         0                  62/25 D   62/28 D   69/10
        U=INN3          0                  60/13 D   60/16 D   68/39
        U=INTF          0                  54/11 D   54/12 D   67/16
        U=IN2N          0                  60/41 D   60/42 D   68/47
        U=IN22          0                  59/44 D   59/47 D   68/31
        U=IN23          0                  59/15 D   59/17 D   59/18 D   68/23
        U=IOLC          0                  48/57 D   49/08 D   66/35
        U=IOSUB         0                  54/15 D   54/16 D   67/18
        U=IPLG0         0                  52/41 D   52/42 D   52/43 D   52/44 D
        U=ISIGN       516                  43/55 D   66/05
        U=ITOB        307                  37/15 D   64/55
        U=ITOD        310                  37/19 D   64/57
        U=ITOR        305                  37/10 D   64/53
        U=I1NN          0                  59/57 D   60/03 D   68/35
        U=I1N1          0                  60/46 D   60/47 D   68/49
        U=I1N3          0                  59/22 D   59/25 D   59/26 D   68/25
        U=I11N          0                  60/27 D   60/30 D   68/43
        U=I111          0                  61/06 D   61/07 D   68/55
        U=I113          0                  58/50 D   58/53 D   58/54 D   68/17
        U=I12N          0                  59/37 D   59/39 D   59/40 D   68/29
        U=I121          0                  59/09 D   59/10 D   59/11 D   68/21
        U=I122          0                  58/35 D   58/38 D   58/39 D   68/13
        U=I123          0                  58/26 D   58/28 D   58/29 D   58/31 D   68/11
        U=JGOTO         0                  49/53 D   49/54 D   66/45
        U=LCC           0                  58/04 D   58/05 D   68/03
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        U=LCIF          0                  49/11 D   49/13 D   66/37
        U=LEQ           0                  36/10 D   36/11 D   64/39
        U=LGE           0                  34/32 D   34/33 D   64/19
        U=LIBF          0                  54/08 D   54/09 D   67/14
        U=LLT           0                  33/51 D   33/52 D   64/09
        U=LNE           0                  35/21 D   35/22 D   64/29
        U=LT.D        150                  33/37 D   64/05
        U=LT.H          0                  33/46 D   33/47 D   64/07
        U=LT.I        143                  33/26 D   64/01
        U=LT.R        146                  33/32 D   64/03
        U=LUA           0                  53/45 D   53/46 D
        U=MASK          0                  44/14 D   44/15 D   66/09
        U=MASKC         0                  44/27 D
        U=MASKV         0                  44/20 D   44/24 D
        U=MAX0        344                  40/34 D   65/28
        U=MFPNT         0                  56/18 D   56/19 D   56/20 D
        U=MIN0        370                  41/01 D   65/32
        U=MOD           0                  44/30 D   44/31 D
        U=MODP2         0                  44/48 D
        U=MUL.C        54                  30/49 D   63/42
        U=MUL.D        44                  30/38 D   63/40
        U=MUL.I         0                  29/36 D   29/37 D
        U=MUL.R        43                  30/34 D   63/38
        U=NE.D        217                  34/53 D   64/25
        U=NE.H          0                  35/14 D   35/15 D   64/27
        U=NE.I        205                  34/37 D   64/21
        U=NE.R        212                  34/45 D   64/23
        U=NOOP          0                  57/19 D   57/20 D
        U=NOT.L       321                  39/07 D   65/08
        U=OR.L        324                  39/28 D   65/14
        U=PAUS          0                  54/54 D   54/55 D   67/24
        U=PLIM          0                  57/31 D   57/32 D   67/46
        U=PROM          0                  56/05 D   56/07 D   56/08 D   56/08 D   56/08 D
        U=PROS          0                  56/11 D   56/12 D
        U=RANF          0                  45/05 D   45/07 D   66/13
        U=RET           0                  55/01 D   55/02 D   55/05 D   67/26
        U=RGOTO         0                  50/01 D   50/04 D   50/09 D   50/11 D   50/13 D
                                           50/02 D   50/05 D   50/10 D   50/12 D   66/47
        U=RNN3          0                  60/20 D   60/23 D   68/41
        U=RN22          0                  59/51 D   59/53 D   68/33
        U=RTNK          0                  55/07 D   55/08 D   55/09 D   55/12 D   55/12 D   67/28
        U=RTOD        315                  37/33 D   65/04
        U=RTOI        313                  37/28 D   65/02
        U=R1NN          0                  60/07 D   60/09 D   68/37
        U=R1N3          0                  59/30 D   59/32 D   59/33 D   68/27
        U=R11N          0                  60/34 D   60/37 D   68/45
        U=R113          0                  59/01 D   59/04 D   59/05 D   68/19
        U=R122          0                  58/43 D   58/45 D   58/46 D   68/15
        U=SEG        1072                  57/15 D   67/38
        U=SEX           0                  57/35 D   57/36 D   67/48
        U=SHFC          0                  30/01 D
        U=SHIFT         0                  45/20 D   45/21 D
        U=SHIFV         0                  45/25 D
        U=STOP          0                  54/47 D   54/48 D   67/22
        U=STR.D         0                  36/28 D   36/30 D   36/31 D   64/43
        U=STR.H         0                  36/34 D   36/35 D   64/45
        U=STR.I         0                  36/22 D   36/23 D   64/41
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        U=SUA           0                  53/51 D   53/52 D
        U=SUBR          0                  53/57 D   54/01 D   67/10
        U=SUBST         0                  36/57 D   37/01 D   64/51
        U=SUB.C        32                  29/20 D   63/34
        U=SUB.D        26                  29/13 D   63/32
        U=SUB.I        23                  29/04 D   63/28
        U=SUB.R        24                  29/08 D   63/30
        U=SUM1S       331                  40/10 D   65/20
        U=TENT          0                  56/57 D   57/01 D
        U=TMENT         0                  56/39 D   56/40 D   56/41 D   56/41 D
        U=UMI.D       141                  33/11 D   63/56
        U=UMI.I       140                  33/05 D   63/54
        U=XOR.L       325                  39/35 D   65/16
        V=ABS          71                  40/04 D   40/04 E   65/18 L   70/14     77/10
        V=ADD.B         1                  28/47 E   69/24 D
        V=ADD.C         4                  28/40 D   28/40 E   63/26 L   72/06
        V=ADD.D         3                  28/26 D   28/26 E   63/24 L   72/06
        V=ADD.I         1                  28/17 D   28/17 E   63/20 L   69/24     72/06
        V=ADD.R         2                  28/21 D   28/21 E   63/22 L   72/06
        V=AGOTO       141                  49/30 D   49/30 E   66/41 L
        V=AIMAG        73                  40/15 D   40/15 E   65/22 L   77/11
        V=AINT         74                  40/19 D   40/19 E   65/24 L   77/12
        V=AMAX0        76                  41/25 E   70/06 D   76/24
        V=AMAX1       102                  41/13 D   41/13 E   65/36 L   70/04     76/25
        V=AMIN0       100                  41/26 E   70/07 D   76/26
        V=AMIN1       103                  41/18 D   41/18 E   65/38 L   70/05     76/27
        V=AMOD        104                  41/28 D   41/28 E   65/40 L   77/13
        V=AND          65                  41/45 E   70/08 D   76/28
        V=AND.B        65                  39/18 E   69/55 D   70/08     72/20
        V=AND.L        65                  39/14 D   39/14 E   65/10 L   69/55     72/20
        V=ANINT        75                  40/26 D   40/26 E   65/26 L   77/14
        V=APIOC       153                  51/48 D   51/48 E   67/04 L
        V=APIOD       154                  51/52 D   51/52 E   67/06 L
        V=APIOU       155                  51/56 D   51/56 E   67/08 L
        V=ARY         147                  50/43 D   50/43 E   66/53 L
        V=ASSGN       145                  50/16 D   50/16 E   66/49 L
        V=BOOL         57                  41/48 E   70/09 D   76/30
        V=BSS         146                  50/39 D   50/39 E   66/51 L
        V=BTOC         62                  38/05 E   69/53 D   76/13
        V=BTOD         62                  38/02 E   69/50 D   76/12
        V=BTOI         57                  38/04 E   69/52 D
        V=BTOR         57                  38/03 E   69/51 D   76/11
        V=BVD         172                  55/35 D   55/35 E   67/34 L
        V=CAT          53                  36/48 D   36/48 E   64/47 L
        V=CDCS        204                  57/47 D   57/47 E   67/54 L
        V=CDDOT       203                  57/43 D   57/43 E   67/52 L
        V=CDLOO       202                  57/39 D   57/39 E   67/50 L
        V=CGOTO       142                  49/38 D   49/38 E   66/43 L
        V=CMPLX       106                  42/02 D   42/02 E   65/44 L
        V=COLON        54                  36/53 D   36/53 E   64/49 L
        V=COMPL        64                  41/50 E   70/10 D   77/16
        V=CONJG       105                  41/53 D   41/53 E   65/42 L   77/17
        V=CTOB         57                  37/56 E   69/48 D   76/20
        V=CTOD         63                  37/57 E   69/49 D   73/19     76/22
        V=CTOI         61                  37/54 E   69/46 D   73/19     76/21
        V=CTOR         57                  37/55 E   69/47 D   69/48     70/21     73/19
        V=DABS        107                  42/08 D   42/08 E   65/46 L   77/18
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        V=DATA        205                  57/51 D   57/51 E   67/56 L
        V=DBLE         62                  42/15 E   70/11 D   76/34
        V=DDIM        110                  42/18 D   42/18 E   65/48 L   77/19
        V=DIM         111                  42/39 D   42/39 E   65/50 L   77/20
        V=DINT        112                  42/47 D   42/47 E   65/52 L   77/21
        V=DIV.B        15                  32/24 E   69/27 D
        V=DIV.C        20                  32/07 D   32/07 E   63/50 L   72/09
        V=DIV.D        17                  31/44 D   31/44 E   63/48 L   72/09
        V=DIV.I        15                  31/12 D   31/12 E   63/44 L   69/27     72/09
        V=DIV.R        16                  31/40 D   31/40 E   63/46 L   72/09
        V=DMAX1        77                  40/42 D   40/42 E   65/30 L   76/35
        V=DMIN1       101                  41/06 D   41/06 E   65/34 L   76/36
        V=DNINT       114                  43/06 D   43/06 E   65/56 L   77/23
        V=DNN3        232                  61/23 E   70/31 D   74/02
        V=DN2N        235                  61/24 E   70/32 D
        V=DN22        226                  61/25 E   70/33 D   74/04
        V=DN23        221                  61/26 E   70/34 D   73/53
        V=DOBD2       212                  58/16 D   58/16 E   68/09 L
        V=DOBL        126                  46/21 D   46/21 E   66/19 L
        V=DOBS        125                  46/12 D   46/12 E   66/17 L
        V=DOBZL       130                  46/36 D   46/36 E   66/23 L
        V=DOBZS       127                  46/26 D   46/26 E   66/21 L
        V=DOC.D       135                  48/26 D   48/26 E   66/33 L   72/27     72/29
        V=DOC.L       133                  48/11 D   48/11 E   66/29 L   72/29
        V=DOC.O       132                  47/19 D   47/19 E   66/27 L
        V=DOC.R       134                  48/19 D   48/19 E   66/31 L   72/27     72/29
        V=DOC.S       131                  47/09 D   47/09 E   66/25 L   72/27
        V=DPROD       113                  43/01 D   43/01 E   65/54 L   77/24
        V=DSIGN       115                  43/18 D   43/18 E   66/01 L   77/25
        V=DTOB         57                  37/44 E   69/44 D   76/18
        V=DTOC         63                  37/46 D   37/46 E   65/06 L   69/49     73/18     76/19
        V=DTOI         61                  37/42 E   69/42 D   69/46     73/18
        V=DTOR         57                  37/43 E   69/43 D   69/44     69/47     73/18
        V=DVC.R        21                  32/26 D   32/26 E   63/52 L
        V=DVI         210                  58/08 D   58/08 E   68/05 L
        V=D1NN        230                  61/27 E   70/35 D   74/05
        V=D1N3        223                  61/28 E   70/36 D   73/54
        V=D11N        234                  61/29 E   70/37 D   74/03
        V=D111        241                  61/31 E   70/39 D
        V=D113        217                  61/30 E   70/38 D   73/48
        V=D12N        224                  61/32 E   70/40 D   73/55
        V=D122        215                  61/33 E   70/41 D   73/49
        V=D123        213                  61/34 E   70/42 D   73/47
        V=ENTR        171                  55/30 D   55/30 E   67/32 L
        V=EQV          66                  43/30 E   70/12 D   76/37
        V=EQV.B        66                  39/25 E   69/56 D   70/12     72/22
        V=EQV.L        66                  39/21 D   39/21 E   65/12 L   69/56     72/22
        V=EQ.B         43                  36/01 E   69/35 D   72/16
        V=EQ.C         45                  35/56 E   69/34 D
        V=EQ.D         45                  35/42 D   35/42 E   64/35 L   69/34     72/16
        V=EQ.H         46                  36/03 D   36/03 E   64/37 L   72/16
        V=EQ.I         43                  35/26 D   35/26 E   64/31 L   69/35     72/16
        V=EQ.R         44                  35/34 D   35/34 E   64/33 L   72/16
        V=ERR         163                  54/35 D   54/35 E   67/20 L
        V=EVD         173                  55/40 D   55/40 E   67/36 L
        V=EXP.I       211                  58/12 D   58/12 E   68/07 L
        V=FAP         151                  51/08 D   51/08 E   66/57 L
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        V=FILE        177                  57/27 D   57/27 E   67/44 L
        V=FIN         206                  57/55 D   57/55 E   68/01 L
        V=FLOAT        56                  43/33 E   70/13 D   76/38
        V=FUNC        157                  54/04 D   54/04 E   67/12 L
        V=GAP         150                  51/04 D   51/04 E   66/55 L
        V=GE.B         31                  34/24 E   69/31 D   72/14
        V=GE.D         33                  34/14 D   34/14 E   64/15 L   72/14
        V=GE.H         34                  34/26 D   34/26 E   64/17 L   72/14
        V=GE.I         31                  34/01 D   34/01 E   64/11 L   69/31     72/14
        V=GE.R         32                  34/08 D   34/08 E   64/13 L   72/14
        V=GOTO        140                  49/24 D   49/24 E   66/39 L
        V=GPL         170                  55/24 D   55/24 E   67/30 L
        V=HDR         176                  57/23 D   57/23 E   67/42 L
        V=IABS         71                  43/36 E   70/14 D   77/26
        V=IAP         152                  51/12 D   51/12 E   67/02 L
        V=IDIM        120                  44/08 D   44/08 E   66/07 L   77/27
        V=IDINT        61                  43/39 E   70/15 D   76/40
        V=IDNIN       116                  43/41 D   43/41 E   66/03 L   70/19     77/28
        V=IEQ.C       245                  62/06 D   62/06 E   69/06 L
        V=IEQ.D       244                  61/53 D   61/53 E   69/04 L
        V=IEQ.I       242                  61/40 D   61/40 E   68/57 L
        V=IEQ.R       243                  61/46 D   61/46 E   69/02 L
        V=IFF         240                  61/01 D   61/01 E   68/53 L
        V=IFIX         61                  43/49 E   70/16 D   76/41
        V=IFT         237                  60/53 D   60/53 E   68/51 L
        V=ILL           0                  28/10 D   28/10 E   63/18 L
        V=INE.C       251                  62/42 D   62/42 E   69/14 L
        V=INE.D       250                  62/32 D   62/32 E   69/12 L
        V=INE.I       246                  62/19 D   62/19 E   69/08 L
        V=INE.R       247                  62/25 D   62/25 E   69/10 L
        V=INN3        231                  60/13 D   60/13 E   68/39 L   74/02
        V=INT          61                  43/52 E   70/17 D   76/42
        V=INTF        161                  54/11 D   54/11 E   67/16 L
        V=IN2N        235                  60/41 D   60/41 E   68/47 L   70/26     70/32     74/07
        V=IN22        225                  59/44 D   59/44 E   68/31 L   74/04
        V=IN23        221                  59/15 D   59/15 E   68/23 L   70/27     70/34     73/53
        V=IOLC        136                  48/57 D   48/57 E   66/35 L
        V=IOSUB       162                  54/15 D   54/15 E   67/18 L
        V=ISIGN       117                  43/55 D   43/55 E   66/05 L   70/22     77/31
        V=ITOB         57                  37/15 D   64/55 L   69/43     69/51     70/09
                                           37/15 E   69/41     69/45     69/52
        V=ITOC         60                  37/25 E   69/39 D   73/16     76/15
        V=ITOD         60                  37/19 D   37/19 E   64/57 L   69/39     73/16     76/14
        V=ITOR         56                  37/10 D   37/10 E   64/53 L   70/13     71/21     73/16     80/13     80/14
        V=I1NN        227                  59/57 D   59/57 E   68/35 L   74/05
        V=I1N1        236                  60/46 D   60/46 E   68/49 L   74/06
        V=I1N3        222                  59/22 D   59/22 E   68/25 L   73/54
        V=I11N        233                  60/27 D   60/27 E   68/43 L   74/03
        V=I111        241                  61/06 D   61/06 E   68/55 L   70/28     70/39
        V=I113        216                  58/50 D   58/50 E   68/17 L   73/48
        V=I12N        224                  59/37 D   59/37 E   68/29 L   70/29     70/40     73/55
        V=I121        220                  59/09 D   59/09 E   68/21 L   73/50
        V=I122        214                  58/35 D   58/35 E   68/13 L   73/49
        V=I123        213                  58/26 D   58/26 E   68/11 L   70/30     70/42     71/22     73/47
        V=JGOTO       143                  49/53 D   49/53 E   66/45 L
        V=LCC         207                  58/04 D   58/04 E   68/03 L
        V=LCIF        137                  49/11 D   49/11 E   66/37 L
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        V=LEQ          47                  36/10 D   36/10 E   64/39 L
        V=LGE          35                  34/32 D   34/32 E   64/19 L
        V=LIBF        160                  54/08 D   54/08 E   67/14 L
        V=LLT          30                  33/51 D   33/51 E   64/09 L
        V=LNE          42                  35/21 D   35/21 E   64/29 L
        V=LT.B         24                  33/56 E   69/30 D   72/13
        V=LT.D         26                  33/37 D   33/37 E   64/05 L   72/13
        V=LT.H         27                  33/46 D   33/46 E   64/07 L   72/13
        V=LT.I         24                  33/26 D   33/26 E   64/01 L   69/30     72/13
        V=LT.R         25                  33/32 D   33/32 E   64/03 L   72/13
        V=MASK        121                  44/14 D   44/14 E   66/09 L
        V=MAX0         76                  40/34 D   40/34 E   65/28 L   70/06     76/50
        V=MAX1        102                  41/23 E   70/04 D   76/51
        V=MIN0        100                  41/01 D   41/01 E   65/32 L   70/07     76/53
        V=MIN1        103                  41/24 E   70/05 D   76/54
        V=MOD         122                  44/30 D   44/30 E   66/11 L   77/35
        V=MUL.B        11                  31/03 E   69/26 D
        V=MUL.C        14                  30/49 D   30/49 E   63/42 L   72/08
        V=MUL.D        13                  30/38 D   30/38 E   63/40 L   72/08
        V=MUL.I        11                  29/36 D   29/36 E   63/36 L   69/26     72/08
        V=MUL.R        12                  30/34 D   30/34 E   63/38 L   72/08
        V=NEQV         70                  44/54 E   70/18 D   70/24     76/55
        V=NEQV.        70                  39/40 E   39/41 E   70/02 D   70/03 D
        V=NE.B         36                  35/12 E   69/33 D   72/15
        V=NE.C         40                  35/10 E   69/32 D
        V=NE.D         40                  34/53 D   34/53 E   64/25 L   69/32     72/15
        V=NE.H         41                  35/14 D   35/14 E   64/27 L   72/15
        V=NE.I         36                  34/37 D   34/37 E   64/21 L   69/33     72/15
        V=NE.R         37                  34/45 D   34/45 E   64/23 L   72/15
        V=NINT        116                  44/56 E   70/19 D   77/36
        V=NOOP        175                  57/19 D   57/19 E   67/40 L
        V=NOT.B        64                  39/11 E   69/54 D   70/10     72/19
        V=NOT.L        64                  39/07 D   39/07 E   65/08 L   69/54     72/19
        V=OR           67                  45/02 E   70/20 D   76/56
        V=OR.B         67                  39/32 E   69/57 D   70/20     72/21
        V=OR.L         67                  39/28 D   39/28 E   65/14 L   69/57     72/21
        V=PAUS        165                  54/54 D   54/54 E   67/24 L
        V=PEND        164                  54/52 E   70/25 D
        V=PLIM        200                  57/31 D   57/31 E   67/46 L
        V=RANF        123                  45/05 D   45/05 E   66/13 L
        V=REAL         57                  45/11 E   70/21 D   70/23     76/57
        V=RET         166                  55/01 D   55/01 E   67/26 L
        V=RGOTO       144                  50/01 D   50/01 E   66/47 L
        V=RNN3        232                  60/20 D   60/20 E   68/41 L   70/31     74/02
        V=RN2N        235                  61/15 E   70/26 D
        V=RN22        226                  59/51 D   59/51 E   68/33 L   70/33     74/04
        V=RN23        221                  61/16 E   70/27 D
        V=RTNK        167                  55/07 D   55/07 E   67/28 L
        V=RTOB         57                  37/39 E   69/41 D   76/16
        V=RTOC         62                  37/38 E   69/40 D   73/14     73/17     76/17
        V=RTOD         62                  37/33 D   65/04 L   69/50     70/11     73/17
                                           37/33 E   69/40     69/53     73/14
        V=RTOI         61                  37/28 D   65/02 L   70/15     70/17     80/15
                                           37/28 E   69/42     70/16     73/17     80/16
        V=R1NN        230                  60/07 D   60/07 E   68/37 L   70/35     74/05
        V=R1N3        223                  59/30 D   59/30 E   68/27 L   70/36     73/54
        V=R11N        234                  60/34 D   60/34 E   68/45 L   70/37     74/03
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        V=R111        241                  61/17 E   70/28 D
        V=R113        217                  59/01 D   59/01 E   68/19 L   70/38     73/48
        V=R12N        224                  61/18 E   70/29 D
        V=R122        215                  58/43 D   58/43 E   68/15 L   70/41
        V=R123        213                  61/19 E   70/30 D
        V=SEG         174                  57/15 D   57/15 E   67/38 L
        V=SEX         201                  57/35 D   57/35 E   67/48 L
        V=SHIFT       124                  45/20 D   45/20 E   66/15 L
        V=SIGN        117                  45/14 E   70/22 D   77/40
        V=SNGL         57                  45/17 E   70/23 D   77/01
        V=STOP        164                  54/47 D   54/47 E   67/22 L   70/25
        V=STR.B        50                  36/40 E   69/38 D
        V=STR.C        51                  36/38 E   69/37 D
        V=STR.D        51                  36/28 D   36/28 E   64/43 L   69/37     72/26
        V=STR.H        52                  36/34 D   36/34 E   64/45 L   72/26
        V=STR.I        50                  36/22 D   36/22 E   64/41 L   69/36     69/38     72/26
        V=STR.R        50                  36/26 E   69/36 D
        V=SUBR        156                  53/57 D   53/57 E   67/10 L
        V=SUBST        55                  36/57 D   36/57 E   64/51 L
        V=SUB.B         5                  29/27 E   69/25 D
        V=SUB.C        10                  29/20 D   29/20 E   63/34 L   72/07
        V=SUB.D         7                  29/13 D   29/13 E   63/32 L   72/07
        V=SUB.I         5                  29/04 D   29/04 E   63/28 L   69/25     72/07
        V=SUB.R         6                  29/08 D   29/08 E   63/30 L   72/07
        V=SUM1S        72                  40/10 D   40/10 E   65/20 L   77/05
        V=UMI.C        23                  33/16 E   69/29 D   72/10
        V=UMI.D        23                  33/11 D   33/11 E   63/56 L   69/29     72/10
        V=UMI.I        22                  33/05 D   33/05 E   63/54 L   69/28     72/10
        V=UMI.R        22                  33/09 E   69/28 D   72/10
        V=XMIT         57                  37/51 E   69/45 D
        V=XOR          70                  45/34 E   70/24 D   77/02
        V=XOR.B        70                  39/39 E   70/01 D   70/18     72/23
        V=XOR.L        70                  39/35 D   39/35 E   65/16 L   70/01     70/02     70/03     72/23
        W=ABS         326                  40/04 D   43/36     65/18
        W=ADD.B         1                  28/47 D
        W=ADD.C        17                  28/40 D   63/26
        W=ADD.D         4                  28/26 D   63/24
        W=ADD.I         1                  28/17 D   28/47     63/20
        W=ADD.R         2                  28/21 D   63/22
        W=AGOTO       666                  49/30 D   66/41
        W=AIMAG       332                  40/15 D   65/22
        W=AINT        333                  40/19 D   65/24
        W=ALENT      1061                  56/45 D   56/45 E
        W=AMAX0       344                  41/25 D
        W=AMAX1       376                  41/13 D   41/23     65/36
        W=AMIN0       370                  41/26 D
        W=AMIN1       400                  41/18 D   41/24     65/38
        W=AMOD        402                  41/28 D   65/40
        W=AND         322                  41/45 D
        W=AND.B       322                  39/18 D   41/45
        W=AND.L       322                  39/14 D   39/18     65/10
        W=ANINT       337                  40/26 D   65/26
        W=APIOC       740                  51/48 D   67/04
        W=APIOD       741                  51/52 D   67/06
        W=APIOU       742                  51/56 D   67/08
        W=APSTR       743                  52/04 D   52/04 E
        W=ARY         726                  50/43 D   66/53
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        W=ASSGN       723                  50/16 D   66/49
        W=BOOL        307                  41/48 D
        W=BSS         725                  50/39 D   66/51
        W=BTOC        315                  38/05 D
        W=BTOD        315                  38/02 D
        W=BTOI        307                  38/04 D
        W=BTOR        307                  38/03 D
        W=BVD        1033                  55/35 D   67/34
        W=CAPST       754                  52/49 D   52/49 E
        W=CAT         302                  36/48 D   64/47
        W=CDCS       1101                  57/47 D   67/54
        W=CDDOT      1100                  57/43 D   67/52
        W=CDLOO      1077                  57/39 D   67/50
        W=CGOTO       671                  49/38 D   66/43
        W=CIA0S       770                  53/32 D   53/32 E
        W=CIS0S       757                  53/21 D   53/21 E
        W=CMPLX       421                  42/02 D   65/44
        W=COLON       303                  36/53 D   64/49
        W=COMPL       321                  41/50 D
        W=CONJG       417                  41/53 D   65/42
        W=CTOB        307                  37/56 D
        W=CTOD        317                  37/57 D
        W=CTOI        313                  37/54 D
        W=CTOR        307                  37/55 D   37/56     45/11
        W=DABS        423                  42/08 D   65/46
        W=DATA       1102                  57/51 D   67/56
        W=DBLE        315                  42/15 D
        W=DDIM        427                  42/18 D   65/48
        W=DFENT      1051                  56/29 D   56/29 E
        W=DIM         446                  42/39 D   65/50
        W=DINT        453                  42/47 D   65/52
        W=DIV.B        64                  32/24 D
        W=DIV.C       120                  32/07 D   63/50
        W=DIV.D        77                  31/44 D   63/48
        W=DIV.I        64                  31/12 D   32/24     63/44
        W=DIV.R        76                  31/40 D   63/46
        W=DMAX1       352                  40/42 D   65/30
        W=DMIN1       372                  41/06 D   65/34
        W=DNINT       466                  43/06 D   65/56
        W=DNN3       1171                  61/23 D
        W=DN2N       1202                  61/24 D
        W=DN22       1157                  61/25 D
        W=DN23       1137                  61/26 D
        W=DOBD2      1111                  58/16 D   68/09
        W=DOBL        574                  46/21 D   66/19
        W=DOBS        567                  46/12 D   66/17
        W=DOBZL       602                  46/36 D   66/23
        W=DOBZS       575                  46/26 D   66/21
        W=DOC.D       634                  48/26 D   66/33
        W=DOC.K       621                  47/26 D   47/26 E
        W=DOC.L       623                  48/11 D   66/29
        W=DOC.O       615                  47/19 D   66/27
        W=DOC.R       630                  48/19 D   66/31
        W=DOC.S       606                  47/09 D   66/25
        W=DPROD       464                  43/01 D   65/54
        W=DSIGN       477                  43/18 D   66/01
        W=DTOB        307                  37/44 D
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        W=DTOC        317                  37/46 D   37/57     65/06
        W=DTOI        313                  37/42 D   37/54
        W=DTOR        307                  37/43 D   37/44     37/55
        W=DVC.R       136                  32/26 D   63/52
        W=DVI        1107                  58/08 D   68/05
        W=D1NN       1164                  61/27 D
        W=D1N3       1146                  61/28 D
        W=D11N       1177                  61/29 D
        W=D111       1206                  61/31 D
        W=D113       1131                  61/30 D
        W=D12N       1151                  61/32 D
        W=D122       1122                  61/33 D
        W=D123       1112                  61/34 D
        W=ENTR       1032                  55/30 D   67/32
        W=EQV         323                  43/30 D
        W=EQV.B       323                  39/25 D   43/30
        W=EQV.L       323                  39/21 D   39/25     65/12
        W=EQ.B        241                  36/01 D
        W=EQ.C        253                  35/56 D
        W=EQ.D        253                  35/42 D   35/56     64/35
        W=EQ.H        266                  36/03 D   64/37
        W=EQ.I        241                  35/26 D   36/01     64/31
        W=EQ.R        246                  35/34 D   64/33
        W=ERR        1013                  54/35 D   67/20
        W=EVD        1034                  55/40 D   67/36
        W=EXP.I      1110                  58/12 D   68/07
        W=FAP         730                  51/08 D   66/57
        W=FILE       1074                  57/27 D   67/44
        W=FIN        1103                  57/55 D   68/01
        W=FLOAT       305                  43/33 D
        W=FUNC       1007                  54/04 D   67/12
        W=FUNT       1045                  56/22 D   56/22 E
        W=GAP         727                  51/04 D   66/55
        W=GE.B        162                  34/24 D
        W=GE.D        171                  34/14 D   64/15
        W=GE.H        200                  34/26 D   64/17
        W=GE.I        162                  34/01 D   34/24     64/11
        W=GE.R        166                  34/08 D   64/13
        W=GOTO        665                  49/24 D   66/39
        W=GPL        1026                  55/24 D   67/30
        W=HDR        1073                  57/23 D   67/42
        W=IABS        326                  43/36 D
        W=IAP         731                  51/12 D   67/02
        W=IAPD1       733                  51/31 D   51/31 E
        W=IAPD2       736                  51/40 D   51/40 E
        W=IAPS1       732                  51/27 D   51/27 E
        W=IAPS2       735                  51/36 D   51/36 E
        W=IDIM        526                  44/08 D   66/07
        W=IDINT       313                  43/39 D
        W=IDNIN       511                  43/41 D   44/56     66/03
        W=IDP2         73                  31/34 D   31/34 E   45/31
        W=IDV          65                  31/32 D   31/32 E
        W=IDVC         65                  31/16 D   31/16 E   31/32     63/44
        W=IEQ.C      1222                  62/06 D   69/06
        W=IEQ.D      1214                  61/53 D   69/04
        W=IEQ.I      1207                  61/40 D   68/57
        W=IEQ.R      1211                  61/46 D   69/02
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        W=IFF        1205                  61/01 D   68/53
        W=IFIX        313                  43/49 D
        W=IFT        1204                  60/53 D   68/51
        W=ILL           0                  28/10 D   63/18     67/40
        W=IMV          37                  29/44 D   29/44 E
        W=IMVC         37                  29/40 D   29/40 E   29/44     63/36
        W=INE.C      1246                  62/42 D   69/14
        W=INE.D      1240                  62/32 D   69/12
        W=INE.I      1233                  62/19 D   69/08
        W=INE.R      1235                  62/25 D   69/10
        W=INN3       1166                  60/13 D   68/39
        W=INT         313                  43/52 D
        W=INTF       1011                  54/11 D   67/16
        W=IN2N       1202                  60/41 D   61/15     61/24     68/47
        W=IN22       1154                  59/44 D   68/31
        W=IN23       1137                  59/15 D   61/16     61/26     68/23
        W=IOLC        653                  48/57 D   66/35
        W=IOSUB      1012                  54/15 D   67/18
        W=IPLG0       745                  52/38 D   52/38 E
        W=ISIGN       516                  43/55 D   45/14     66/05
        W=ITOB        307                  37/15 D   37/39     37/43     37/51     38/03     38/04     41/48     64/55
        W=ITOC        310                  37/25 D
        W=ITOD        310                  37/19 D   37/25     64/57
        W=ITOR        305                  37/10 D   43/33     64/53
        W=I1NN       1161                  59/57 D   68/35
        W=I1N1       1203                  60/46 D   68/49
        W=I1N3       1142                  59/22 D   68/25
        W=I11N       1174                  60/27 D   68/43
        W=I111       1206                  61/06 D   61/17     61/31     68/55
        W=I113       1125                  58/50 D   68/17
        W=I12N       1151                  59/37 D   61/18     61/32     68/29
        W=I121       1135                  59/09 D   68/21
        W=I122       1116                  58/35 D   68/13
        W=I123       1112                  58/26 D   61/19     61/34     68/11
        W=JGOTO       705                  49/53 D   66/45
        W=LCC        1106                  58/04 D   68/03
        W=LCIF        663                  49/11 D   66/37
        W=LEQ         273                  36/10 D   64/39
        W=LGE         203                  34/32 D   64/19
        W=LIBF       1010                  54/08 D   67/14
        W=LLT         160                  33/51 D   64/09
        W=LNE         237                  35/21 D   64/29
        W=LT.B        143                  33/56 D
        W=LT.D        150                  33/37 D   64/05
        W=LT.H        156                  33/46 D   64/07
        W=LT.I        143                  33/26 D   33/56     64/01
        W=LT.R        146                  33/32 D   64/03
        W=LUA        1001                  53/44 D   53/44 E
        W=MASK        532                  44/14 D   66/09
        W=MASKC       541                  44/26 D   44/26 E
        W=MASKV       533                  44/18 D   44/18 E
        W=MAX0        344                  40/34 D   41/25     65/28
        W=MAX1        376                  41/23 D
        W=MFPNT      1043                  56/17 D   56/17 E
        W=MIN0        370                  41/01 D   41/26     65/32
        W=MIN1        400                  41/24 D
        W=MOD         542                  44/30 D   66/11
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        W=MODG        543                  44/34 D   44/34 E   66/11
        W=MODP2       553                  44/45 D   44/45 E
        W=MUL.B        36                  31/03 D
        W=MUL.C        54                  30/49 D   63/42
        W=MUL.D        44                  30/38 D   63/40
        W=MUL.I        36                  29/36 D   31/03     63/36
        W=MUL.R        43                  30/34 D   63/38
        W=NEQV        325                  44/54 D   45/34
        W=NEQV.       325                  39/40 D   39/41 D
        W=NE.B        205                  35/12 D
        W=NE.C        217                  35/10 D
        W=NE.D        217                  34/53 D   35/10     64/25
        W=NE.H        232                  35/14 D   64/27
        W=NE.I        205                  34/37 D   35/12     64/21
        W=NE.R        212                  34/45 D   64/23
        W=NINT        511                  44/56 D
        W=NOOP       1072                  57/19 D   67/40
        W=NOT.B       321                  39/11 D   41/50
        W=NOT.L       321                  39/07 D   39/11     65/08
        W=OR          324                  45/02 D
        W=OR.B        324                  39/32 D   45/02
        W=OR.L        324                  39/28 D   39/32     65/14
        W=PAUS       1017                  54/54 D   67/24
        W=PEND       1016                  54/52 D
        W=PLIM       1075                  57/31 D   67/46
        W=PROM       1035                  56/03 D   56/03 E
        W=PROS       1041                  56/10 D   56/10 E
        W=RANF        561                  45/05 D   66/13
        W=REAL        307                  45/11 D   45/17
        W=RET        1020                  55/01 D   67/26
        W=RGOTO       706                  50/01 D   66/47
        W=RNN3       1171                  60/20 D   61/23     68/41
        W=RN2N       1202                  61/15 D
        W=RN22       1157                  59/51 D   61/25     68/33
        W=RN23       1137                  61/16 D
        W=RTNK       1022                  55/07 D   67/28
        W=RTOB        307                  37/39 D
        W=RTOC        315                  37/38 D
        W=RTOD        315                  37/33 D   37/38     38/02     38/05     42/15     65/04
        W=RTOI        313                  37/28 D   37/42     43/39     43/49     43/52     65/02
        W=R1NN       1164                  60/07 D   61/27     68/37
        W=R1N3       1146                  59/30 D   61/28     68/27
        W=R11N       1177                  60/34 D   61/29     68/45
        W=R111       1206                  61/17 D
        W=R113       1131                  59/01 D   61/30     68/19
        W=R12N       1151                  61/18 D
        W=R122       1122                  58/43 D   61/33     68/15
        W=R123       1112                  61/19 D
        W=SEG        1072                  57/15 D   67/38
        W=SEX        1076                  57/35 D   67/48
        W=SHFC         40                  29/56 D   29/56 E   45/29
        W=SHIFT       564                  45/20 D   66/15
        W=SHIFV       565                  45/24 D   45/24 E   66/15
        W=SHLC         40                  45/29 D   45/29 E
        W=SHRC         73                  45/31 D   45/31 E
        W=SIGN        516                  45/14 D
        W=SNGL        307                  45/17 D
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   106
        SYMBOLIC REFERENCE TABLE. 
  
        W=STOP       1016                  54/47 D   54/52     67/22
        W=STR.B       275                  36/40 D
        W=STR.C       276                  36/38 D
        W=STR.D       276                  36/28 D   36/38     64/43
        W=STR.H       301                  36/34 D   64/45
        W=STR.I       275                  36/22 D   36/26     36/40     64/41
        W=STR.R       275                  36/26 D
        W=SUA        1003                  53/49 D   53/49 E
        W=SUBR       1006                  53/57 D   67/10
        W=SUBST       304                  36/57 D   64/51
        W=SUB.B        23                  29/27 D
        W=SUB.C        32                  29/20 D   63/34
        W=SUB.D        26                  29/13 D   63/32
        W=SUB.I        23                  29/04 D   29/27     63/28
        W=SUB.R        24                  29/08 D   63/30
        W=SUM1S       331                  40/10 D   65/20
        W=TENT       1067                  56/56 D   56/56 E
        W=TMENT      1055                  56/36 D   56/36 E
        W=UMI.C       141                  33/16 D
        W=UMI.D       141                  33/11 D   33/16     63/56
        W=UMI.I       140                  33/05 D   33/09     63/54
        W=UMI.R       140                  33/09 D
        W=XMIT        307                  37/51 D
        W=XOR         325                  45/34 D
        W=XOR.B       325                  39/39 D   44/54
        W=XOR.L       325                  39/35 D   39/39     39/40     39/41     65/16
        XMT         10000                  23/50 D   35/19     40/07     42/12     44/05     50/13     53/47     59/20
                                           30/03     35/19     40/17     42/37     44/05     50/13     53/53     59/42
                                           30/03     36/08     40/31     42/44     44/12     52/45     55/12
                                           31/38     36/08     40/40     42/56     44/24     52/53     55/28
                                           31/38     36/32     40/56     43/15     44/51     53/30     56/27
                                           33/49     37/17     41/56     43/27     49/09     53/30     56/34
                                           34/30     37/36     42/05     43/27     49/51     53/41     56/52
                                           35/19     37/49     42/05     43/46     50/13     53/41     58/33
        XMTC        14000                  23/56 D   33/14     34/06     34/22     36/08     41/56     60/25
                                           33/07     33/14     34/12     34/30     39/09     59/07     60/39
        XOR         13000                  23/53 D   40/40     40/56     42/12     43/27     44/05     44/51
                                           39/37     40/40     40/56     42/12     43/27     44/05
                                           40/07     40/56     40/56     43/27     43/27     44/51
        ZR           3000                  23/30 D   59/13     59/42     61/44     62/04
                                           58/33     59/20     60/44     61/51
        ZT.            23                  21/55 D   21/56     22/01 D   22/03 D   22/05     22/07     22/10 D   22/12 D
                                           21/55     21/57 D   22/01     22/03     22/06 D   22/09 D   22/11 D   22/12
                                           21/56 D   21/57     22/02 D   22/05 D   22/07 D   22/09     22/11
        ZT.A            1                  21/55 D   21/55
        ZT.B            3                  21/56 D   21/56
        ZT.GL          17                  22/09 D   22/09     22/10
        ZT.GLL         21                  22/11 D   22/11
        ZT.GLU         17                  22/10 D   22/10
        ZT.GP          15                  22/08 D   22/08
        ZT.K           26                  22/15 D
        ZT.L            7                  22/01 D   22/01     22/02
        ZT.LL          11                  22/03 D   22/03
        ZT.LU           7                  22/02 D   22/02
        ZT.P           12                  22/04 D   22/04
        ZT.Q           24                  22/13 D
        ZT.R           13                  22/05 D   22/05     22/06
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   107
        SYMBOLIC REFERENCE TABLE. 
  
        ZT.RL          14                  22/07 D   22/07
        ZT.RU          13                  22/06 D   22/06
        ZT.S           25                  22/14 D
        ZT.T           23                  22/12 D   22/12
        ZT.X            5                  21/57 D   21/57
        Z=TURP          3   FTX            20/28
        Z.IMCV          4                  80/17 D   80/17 E
        Z.INTA         77                  77/07 L   77/07 E
        Z.INTF        227                  78/32 L   78/32 E   79/51
        Z.SCT         252                  69/16 L   69/16 E   69/21
        Z.SKCR        252                  69/18 L   69/18 E
        .CG             0                   5/05 D   29/49 F   32/31 F   47/31 F   50/17 F   52/09 F   53/43 F   55/44 F
                                           13/46 F   30/05 F   46/44 F   48/44 F   51/25 F   52/55 F   54/19 F
        .FAST           0                   5/04 D    5/05     13/46 F   50/17 F   51/25 F   53/43 F   55/44 F
        .IDC            0   FTX            31/21 F
        .OPT            1                   5/03 D   30/05 F   46/44 F   48/44 F   52/55 F
                                           29/49 F   32/31 F   47/31 F   52/09 F   54/19 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  INTF
  
  
        ABS            77                  77/10 L   79/26     79/26
        ACOS          202                  78/13 L   79/45     79/45
        AIMAG         101                  77/11 L
        AINT          102                  77/12 L   79/27     79/27
        ALOG          154                  77/50 L   79/39
        ALOG10        157                  77/53 L   79/40
        AMAX0          15                  76/24 L   80/13
        AMAX1          16                  76/25 L   79/32
        AMIN0          17                  76/26 L   80/14
        AMIN1          20                  76/27 L   79/33
        AMOD          104                  77/13 L   79/31
        AND            21                  76/28 L
        ANINT         105                  77/14 L   79/28     79/28
        ASIN          177                  78/11 L   79/44     79/44
        ATAN          205                  78/15 L   79/46     79/46
        ATANH         224                  78/26 L
        ATAN2         210                  78/17 L   79/47     79/47
        BOOL           23                  76/30 L   79/18
        BOOL$          22                  76/29 L   79/18
        BTOC.           3                  76/13 L   79/22
        BTOD.           2                  76/12 L   79/21
        BTOR.           1                  76/11 L
        CABS          107                  77/15 L   79/26
        CCOS          171                  78/05 L   79/42
        CEXP          153                  77/49 L   79/38
        CHAR           25                  76/31 L
        CLOG          156                  77/52 L   79/39
        CMPLX          30                  76/33 L   78/34     79/23     79/23
        CMPL.          26                  76/32 L   79/22
        COMPL         110                  77/16 L
        CONJG         111                  77/17 L
        COS           166                  78/03 L   79/42     79/42
        COSD          172                  78/06 L
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   108
        SYMBOLIC REFERENCE TABLE.                                     INTF
  
        COSH          216                  78/22 L   79/49     79/49
        CSIN          164                  78/01 L   79/41
        CSQRT         147                  77/46 L   79/37
        CTOB.          12                  76/20 L   79/18
        CTOD.          14                  76/22 L   79/21
        CTOI.          13                  76/21 L   79/19
        DABS          112                  77/18 L   79/26
        DACOS         204                  78/14 L   79/45
        DASIN         201                  78/12 L   79/44
        DATAN         207                  78/16 L   79/46
        DATAN2        212                  78/18 L   79/47
        DBLE           32                  76/34 L   79/21     79/21
        DCOS          170                  78/04 L   79/42
        DCOSH         220                  78/23 L   79/49
        DDIM          113                  77/19 L   79/29
        DEXP          152                  77/48 L   79/38
        DIM           114                  77/20 L   79/29     79/29
        DINT          116                  77/21 L   79/27
        DLOG          155                  77/51 L   79/39
        DLOG10        160                  77/54 L   79/40
        DMAX1          34                  76/35 L   79/32
        DMIN1          35                  76/36 L   79/33
        DMOD          117                  77/22 L   79/31
        DNINT         120                  77/23 L   79/28
        DPROD         121                  77/24 L
        DSIGN         122                  77/25 L   79/35
        DSIN          163                  77/57 L   79/41
        DSINH         215                  78/21 L   79/48
        DSQRT         146                  77/45 L   79/37
        DTAN          175                  78/08 L   79/43
        DTANH         223                  78/25 L   79/50
        DTOB.          10                  76/18 L   79/18
        DTOC.          11                  76/19 L   79/22
        EQV            36                  76/37 L
        ERF           225                  78/28 L
        ERFC          226                  78/29 L
        ERR.            0                  76/09 L
        EXP           150                  77/47 L   79/38     79/38
        FLOAT          37                  76/38 L   79/20
        IABS          123                  77/26 L   79/26
        ICHAR          40                  76/39 L
        IDIM          124                  77/27 L   79/29
        IDINT          41                  76/40 L   79/19
        IDNINT        125                  77/29 L   79/34
        IFIX           42                  76/41 L
        INDEX         126                  77/30 L
        INT            43                  76/42 L   79/19     79/19
        ISIGN         127                  77/31 L   79/35
        ITOC.           5                  76/15 L   79/22
        ITOD.           4                  76/14 L   79/21
        LEN           131                  77/33 L
        LEN$          130                  77/32 L   78/35
        LGE            45                  76/43 L
        LGT            46                  76/44 L
        LLE            47                  76/45 L
        LLT            50                  76/46 L
        LOCF           52                  76/48 L   79/30     79/30
1       QSKEL - (QCG)   INSTRUCTION SKELETON CONSTRUCTION.            COMPASS 3.7-871.     24/05/02. 13.17.29.      PAGE   109
        SYMBOLIC REFERENCE TABLE.                                     INTF
  
        LOCF$          51                  76/47 L   78/37
        LOG            72                  77/03 L   79/39
        LOG10          74                  77/04 L   79/40
        MASK          132                  77/34 L
        MAX            54                  76/49 L   79/32
        MAX0           56                  76/50 L   79/32
        MAX1           57                  76/51 L   80/15
        MIN            60                  76/52 L   79/33
        MIN0           62                  76/53 L   79/33
        MIN1           63                  76/54 L   80/16
        MOD           133                  77/35 L   79/31     79/31
        NEQV           64                  76/55 L
        NINT          135                  77/36 L   79/34     79/34
        OR             65                  76/56 L
        RANF          137                  77/37 L
        REAL           66                  76/57 L   79/20     79/20
        RTOB.           6                  76/16 L
        RTOC.           7                  76/17 L   79/22
        SECOND        140                  77/38 L
        SHIFT         141                  77/39 L   78/36
        SIGN          142                  77/40 L   79/35     79/35
        SIN           161                  77/56 L   79/41     79/41
        SIND          165                  78/02 L
        SINH          213                  78/20 L   79/48     79/48
        SNGL           70                  77/01 L   79/20
        SQRT          144                  77/44 L   79/37     79/37
        SUM1S          76                  77/05 L
        TAN           173                  78/07 L   79/43     79/43
        TAND          176                  78/09 L
        TANH          221                  78/24 L   79/50     79/50
        V=IDNINT      116                  77/28 D   77/29
        XOR            71                  77/02 L
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1246              IDENT  FUN
                       1246                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1236 
                                        LITERALS* LOCAL        1236        10 
                                        RGFILE    COMMON          0        30 
  
  
                                        ENTRY POINTS. 
  
                                        B=FUN            0+           O=IAP          115+           ESC            435+ 
                                        O=FAP            0+           O=INF          125+           UAP            620+ 
                                        O=LIBF          11+           O=IOC          131+           O=LURET        637+ 
                                        O=FUN           12+           O=IOD          146+           O=APRET       1136+ 
                                        O=GAP           43+           O=IOF          163+           O=SCRET       1163+ 
                                        O=HLEX          47+           O=IOU          205+           O=SURET       1200+ 
                                        O=HREL          51+           O=LIB          227+           APLFLG        1215+ 
                                        O=HSTO         100+           O=SUB          230+           L.APLF          21
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       ENT.SUB   S=CON     T=CLW     T.IOA     TRACE     W=IAPS1   DIT 
                                        ALC       NULLOP    S=FAR     T=IOA     T.IOI     UUC       W=IAPS2   GST 
                                        NCM       SUB.RET   S=FAS     T=PAR     T.OUS     WIN       W=IPLG0   RUT 
                                        ROUTNAM   BN=APL    S=FMC     T=SAP     T.PAR     V=SUBST   W=IPLUG   STS 
                                        SCT       ECB       S=FVS     T.API     T.SAP     W=APSTR   W=LUA     MVE=
                                        DMT=      ECS       S=LMC     T.APL     T.SYM     W=CAPST   W=SUA 
                                        CO.ARGF   GCL       S=MMC     T.CAC     WO.CS     W=CIA0S   CDS 
                                        CO.SNAP   N.ST      S=ST      T.CLW     WO.DOOT   W=CIS0S   CIA 
                                        CURSK     N.TABLE   T=APL     T.CON     POS       W=IAPD1   CRJ 
                                        EIS.PNX   S=CL      T=CAC     T.FPI     REG=G     W=IAPD2   CWI 
  
  
  
  
                                                  IDENT  FUN                                                     FUN         2
                                                                                                                 FUN         3
                                        *         ***** FRAG 5 NOTE *****  FUN USES THE OLD P2. FORMATS FROM GEN FUN         4
                                        *         AND MUST BE CONVERTED TO TP./PB. WHEN GEN/QCGC/QSKEL/ETC CUTS  FUN         5
                                        *         OVER TO THE NEW WORLD.                                         FUN         6
  
  
  
  
                                                                                                                 FUN         8
                                         FUN      SECT   ((QCG)    EXTERNAL PROCEDURE INVOCATION.)               FUN         9
  
  
  
  
  
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     2
                                                                      FUN 
  
                                        *         IN ALLOC                                                       FUN        11
                                                  EXT    ADW,ALC                                                 FUN        12
                                                                                                                 FUN        13
                                        *         IN FEC                                                         FUN        14
                                                  EXT    NCM,ROUTNAM,SCT                                         FUN        15
                                                                                                                 FUN        16
                                        *         IN FSNAP                                                       FUN        17
                                                  EXT    DMT=                                                    FUN        18
                                                                                                                 FUN        19
                                        *         IN FTN                                                         FUN        20
                                                  EXT    CO.ARGF,CO.SNAP                                         FUN        21
                                                                                                                 FUN        22
                                        *         IN GEN                                                         FUN        23
                                                  EXT    CURSK,EIS.PNX,ENT.SUB,NULLOP,SUB.RET                    FUN        24
                                                                                                                 FUN        25
                                        *         IN PUC                                                         FUN        26
                                                  EXT    BN=APL,ECB,ECS,GCL,N.ST,N.TABLE,S=CL,S=CON,S=FAR,S=FAS  FUN        27
                                                  EXT    S=FMC,S=FVS,S=LMC,S=MMC,S=ST,T=APL,T=CAC,T=CLW,T=IOA    FUN        28
                                                  EXT    T=PAR,T=SAP,T.API,T.APL,T.CAC,T.CLW,T.CON,T.FPI,T.IOA   FUN        29
                                                  EXT    T.IOI,T.OUS,T.PAR,T.SAP,T.SYM,WO.CS,WO.DOOT             FUN        30
                                                                                                                 FUN        31
                                        *         IN QCGC                                                        FUN        32
                                                  EXT    POS,REG=G,TRACE,UUC,WIN                                 FUN        33
                                                                                                                 FUN        34
                                        *         IN QSKEL                                                       FUN        35
                                                  EXT    V=SUBST,W=APSTR,W=CAPST,W=CIA0S,W=CIS0S,W=IAPD1,W=IAPD2 FUN        36
                                                  EXT    W=IAPS1,W=IAPS2,W=IPLG0,W=IPLUG,W=LUA,W=SUA             FC5A246     4
                                                                                                                 FUN        38
                                        *         IN REG                                                         FUN        39
                                                  EXT    CDS,CIA,CRJ,CWI,DIT,GST,RUT,STS                         FC5A246     5
                                                                                                                 FUN        41
                                        *         IN UTILITY                                                     FUN        42
                                                  EXT    MVE=                                                    FUN        43
  
  
  
  
                                                  LIST   -X          FOLLOWING COMDECKS ARE LISTED IN QCGC       FUN        45
             0                                    CTEXT  COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.          COMAQCG     2
             0                                    CTEXT  COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.     COMSQCG     2
             0                                    CTEXT  COMSQRF - QCG REGISTER ASSOCIATES.                      COMSQRF     2
                                                                     DEFINS IS LISTED IN QSKEL                   FUN        49
             0                                    CTEXT  DEFINS - DEFINE MACHINE OPCODES.                        DEFINS      2
                                                  LIST   *                                                       FC5A246     6
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     3
        (O=)  PROCESSORS CALLED BY SKELETONS. 
  
                                        *         TEMPORARY EQUATES TO GET LOAD CLEANED UP.                      FUN        52
                                                                                                                 FUN        53
                                   1     IO       EQU    1                                                       FUN        54
                                   0     USER     EQU    0                                                       FUN        55
  
  
  
  
                                        **        O=FAP - FIRST FUNCTION APLIST PROCESSOR                        FUN        57
                                        *         THIS ONLY EXITS TO FLAG THE FIRST APL OF                       FUN        58
                                        *         CHARACTER FUNCTION SO THAT A TEMP *VALUE.*                     FUN        59
                                        *         CAN BE ALLOCATED.                                              FUN        60
                                        *                                                                        FUN        61
                                        *         ENTRY - (OR.1OP) = P2 WORD FOR ROUTINE                         FUN        62
                                                                                                                 FUN        63
                                                                                                                 FUN        64
             0                           O=FAP    BSSENT 0                                                       FUN        65
             0  43600                             MX6    0                                                       FUN        66
                     5160001215 +                 SA6    APLEN       FOR O=IAP                                   FUN        67
                               56140              =A1    B4+OR.OPR   GET OPERATOR                                FUN        68
             1  43070                             MX0    -OP.MODEL   SET MODE MASK                               FUN        69
                     20152                        LX1    -OP.MODEP   POSITION MODE                               FUN        70
                          15610                   BX6    -X0*X1      EXTRACT MODE                                FUN        71
             2  6226777771                        SB2    X6-M.CHAR                                               FUN        72
                          0520000000 X            NZ     B2,NULLOP   IF MODE NOT CHARACTER                       FUN        73
             3  6150000000 X                      SB5    T.API                                                   FUN        74
                          6160000000 X            SB6    T.SAP                                                   FUN        75
             4  0100000605 +                      RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN        76
             5  56141                             =A1    B4+OR.1OP   GET FUNCTION OPERAND                        FUN        77
                     10611                        BX6    X1                                                      FUN        78
                          5110000000 X            ADDWD  T.SAP                                                   FUN        79
             7  5110001215 +                      SA1    APLEN                                                   FUN        80
                          73711                   =X7    X1+1                                                    FUN        81
                               54710              SA7    A1          INCREMENT APLIST LENGTH                     FC50239    12
            10  6144000003                        SB4    B4+Z=TURP                                               FUN        83
                          0400000000 X            EQ     EIS.PNX                                                 FUN        84
  
  
  
  
                                        **        O=FUN - RETURN JUMP TO CALL-BY-NAME FUNCTION.                  FUN        86
                                        *                                                                        FUN        87
                                        *         ENTRY  (1OP) = ROUTINE TAG.                                    FUN        88
                                        *                (B4) _ TURPLE BEING PROCESSED.                          FUN        89
                                        *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*        FUN        90
                                        *                            TURPLES --                                  FUN        91
                                        *                (APLEN) SET-UP BY *O=ARG*.                              FUN        92
                                        *                (T.APL) SET-UP BY *O=ARG*.                              FUN        93
                                        *                                                                        FUN        94
                                        *         EXIT   TO *EIS.PNX*.                                           FUN        95
                                        *                (B4) ADVANCED                                           FUN        96
                                        *         CALLS  PEJ, TRF.                                               FUN        97
                                        *                                                                        FUN        98
                                        *         NOTE   ALSO CONTAINS PROCESSING USED BY *O=BEF*.               FUN        99
                                                                                                                 FUN       100
                                                                                                                 FUN       101
            11                           O=LIBF   BSSENT 0           ENTRY FOR LIBRARY FUNCTIONS (CALL-BY-REF)   FUN       102
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     4
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=FUN 
  
            11  7160000001                        SX6    1           FLAG NO ZERO-TERM                           FUN       103
                          0400000013 +            EQ     O=FUN10                                                 FUN       104
                                                                                                                 FC50239    13
            12                           O=FUN    BSSENT 0           ENTRY...                                    FUN       105
            12  5120000000 X                      SA2    CO.ARGF                                                 FUN       106
                          10622                   BX6    X2                                                      FUN       107
                                                                                                                 FUN       108
            13  5160000042 +             O=FUN10  SA6    FUNA                                                    FUN       109
                          5120001232 +            SA2    FAF                                                     FUN       110
            14  6150000000 X                      SB5    T.API                                                   FUN       111
                          6160000000 X            SB6    T.SAP                                                   FUN       112
            15  0312000017 +                      NZ     X2,O=FUN15  IF APLIST ENCOUNTERED (NOT F() )            FUN       113
                          0316000017 +            NZ     X6,O=FUN15  IF NO TERMINATOR NEEDED                     FUN       114
            16  0100000605 +                      RJ     IAS         SET UP APLIST                               FUN       115
                                                                                                                 FUN       116
            17  56141                    O=FUN15  =A1    B4+OR.1OP                                               FUN       117
                     76700                        =X7    0                                                       FUN       118
                          10611                   BX6    X1                                                      FUN       119
            20  5170001232 +                      SA7    FAF         SET FIRST APLIST WORD FLAG                  FUN       120
                          5160000000 X            SA6    ROUTNAM                                                 FUN       121
            21  5114000000                        SA1    B4+OR.OPR                                               FUN       122
                          43770                   MX7    -OP.MODEL                                               FUN       123
                               20152              LX1    -OP.MODEP                                               FUN       124
            22  15717                             BX7    -X7*X1                                                  FUN       125
                     7277777771                   SX7    X7-M.CHAR                                               FUN       126
            23  0317000024 +                      NZ     X7,O=FUN1   IF NOT CHAR                                 FUN       127
                          0100000407 +            RJ     DCF         DEFINE CHARACTER FUNCTION                   FUN       128
                                                                                                                 FUN       129
            24  5110000042 +             O=FUN1   SA1    FUNA        ZERO-TERMINATOR FLAG                        FUN       130
                          0100001033 +            RJ     PEJ         COMPILE EXTERNAL JUMP.                      FUN       131
            25  43600                             MX6    0                                                       FUN       132
                     5160000000 X                 SHRINK T=SAP,X6                                                FUN       133
            26  5114000000                        SA1    B4+OR.OPR   GET OPERATOR                                FUN       134
                          43770                   MX7    -OP.MODEL                                               FUN       135
                               20152              LX1    -OP.MODEP                                               FUN       136
            27  15717                             BX7    -X7*X1      EXTRACT MODE                                FUN       137
                     7277777771                   SX7    X7-M.CHAR                                               FUN       138
            30  0317000031 +                      NZ     X7,O=FUN2   IF NOT CHARACTER                            FUN       139
                          0400000000 X            EQ     NULLOP                                                  FUN       140
                                                                                                                 FUN       141
                                        **        JOINED HERE BY CALL-BY-VALUE RETURN JUMP.                      FUN       142
                                                                                                                 FUN       143
            31  13555                    O=FUN2   BX5    0                                                       FUN       144
                     43700                        MX7    0                                                       FUN       145
                          6120000026              SB2    R.X6        0TR FOR UPPER HALF                          FUN       146
            32  66300                             =B3    0           RESULTS OF UPPER HALF                       FUN       147
                     5170000000 X                 SA7    UUC                                                     FUN       148
            33  0100000000 X                      CALL   DIT         DEFINE INTERMEDIATE RESULTS                 FUN       149
            34  56140                             =A1    B4+OR.OPR                                               FUN       150
                     43071                        MX0    -OP.2MODL                                               FUN       151
                          20152                   LX1    -OP.2MODP                                               FUN       152
                               15210              BX2    -X0*X1                                                  FUN       153
            35  6222777773                        SB2    X2-M.DBL                                                FUN       154
                          0420000037 +            EQ     B2,B0,O=FUN3  IF MODE DOUBLE                            FUN       155
            36  0521000041 +                      NE     B2,B1,O=FUN5  IF MODE NOT COMPLEX                       FUN       156
            37  13555                    O=FUN3   BX5    0                                                       FUN       157
                     6120000027                   SB2    R.X7        0TR FOR LOWER HALF                          FUN       158
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     5
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=FUN 
  
                               66310              =B3    1           RESULTS OF LOWER HALF                       FUN       159
            40  0100000000 X                      CALL   DIT         DEFINE INTERMEDIATE RESULTS                 FUN       160
            41  0400000000 X             O=FUN5   EQ     NULLOP      EXIT..                                      FUN       161
                                                                                                                 FUN       162
            42                     1     FUNA     BSS    1                                                       FUN       163
  
  
  
  
                                        **        O=GAP  GENERAL USER  APLIST PROCESSOR                          FUN       165
                                        *                SETS APLIST TYPE INSERTS ARGUMENT IN APL                FUN       166
                                        *                AND STEPS THE ARGUMENT COUNTER                          FUN       167
                                        *                                                                        FUN       168
                                        *         ENTRY  (1OP) = ARGUMENT                                        FUN       169
                                        *                (2OP) = NA                                              FUN       170
                                                                                                                 FUN       171
                                                                                                                 FUN       172
            43                           O=GAP    BSSENT 0                                                       FUN       173
            43  6150000000 X                      SB5    T.API                                                   FUN       174
                          6160000000 X            SB6    T.SAP                                                   FUN       175
            44  0100000605 +                      RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN       176
            45  56141                             =A1    B4+OR.1OP   GET APLIST ARGUMENT                         FUN       177
                     0100000621 +                 RJ     IAW         ISSUE APLIST WORD                           FUN       178
            46  6144000003                        SB4    B4+Z=TURP   GET NEXT OPERATOR                           FUN       179
                          0400000000 X            EQ     EIS.PNX                                                 FUN       180
  
  
  
  
                                        **        HREL - CHARACTER RELATIONAL PROCESSORS.                        FUN       182
                                        *         CALLED AS HREL FOR OPERATOR-TYPE RELATIONAL EXPRESSIONS,       FUN       183
                                        *         OR AS HLEX FOR LEXICAL FUNCTION-TYPE EXPRESSIONS.              FUN       184
                                                                                                                 FUN       185
            47                           O=HLEX   BSSENT 0                                                       FUN       186
            47  5110000000 X                      SA1    S=LMC                                                   FUN       187
                          10611                   BX6    X1                                                      FUN       188
            50  5160000077 +                      SA6    PCRB                                                    FUN       189
                          0400000053 +            EQ     PCR10                                                   FUN       190
                                                                                                                 FUN       191
            51                           O=HREL   BSSENT                                                         FUN       192
            51  5120000000 X                      SA2    WO.CS                                                   FUN       193
                          5212000000 X            SA1    S=FMC+X2    FMC./UMC.                                   FUN       194
            52  10611                             BX6    X1                                                      FUN       195
                     5160000077 +                 SA6    PCRB                                                    FUN       196
                                                                                                                 FUN       197
            53  0100001137 +             PCR10    RJ     SAS         STACK APLIST                                FUN       198
            54  5110000000 X                      SA1    CURSK       CURRENT SKELETON POINTER                    FUN       199
                          10711                   BX7    X1                                                      FUN       200
            55  5170001206 +                      SA7    FUN.CUR     SAVE                                        FUN       201
                          76600                   =X6    0                                                       FUN       202
            56  5110000000 X                      ADDWD  T.SAP       RESERVE FOR HEADER                          FUN       203
            57  5110001215 +                      SA1    APLEN                                                   FUN       204
                          73611                   =X6    X1+1                                                    FUN       205
                               54610              SA6    A1          BUMP APLIST POINTER                         FUN       206
            60  56541                             =A5    B4+OR.1OP                                               FUN       207
                     0100000260 +                 RJ     BGA         ISSUE LEFT SIDE                             FUN       208
            61  5110000000 X                      SA1    T=SAP                                                   FUN       209
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     6
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=HREL
  
                          10611                   BX6    X1                                                      FUN       210
            62  5160000076 +                      SA6    PCRA        SAVE APLIST SIZE                            FUN       211
                          5154000002              =A5    B4+OR.2OP                                               FUN       212
            63  0100000260 +                      RJ     BGA         ISSUE RIGHT SIDE                            FUN       213
            64  5110000076 +                      SA1    PCRA                                                    FUN       214
                          5120000000 X            SA2    T=SAP                                                   FUN       215
            65  7231777776                        SX3    X1-1                                                    FUN       216
                          37421                   IX4    X2-X1                                                   FUN       217
                               20352              LX3    IA.LEFTP                                                FUN       218
            66  20422                             LX4    IA.RITEP                                                FUN       219
                     43101                        MX1    1                                                       FUN       220
                          5120000000 X            SA2    T.SAP                                                   FUN       221
            67  20111                             LX1    1+IA.CRHP    REL HEADER TYPE APLIST                     FUN       222
                     12634                        BX6    X3+X4                                                   FUN       223
                          12761                   BX7    X6+X1                                                   FUN       224
                               53720              SA7    X2          STORE INTO RESERVED SPOT                    FUN       225
            70  5110000077 +                      SA1    PCRB        ROUTINE                                     FUN       226
                          10611                   BX6    X1                                                      FUN       227
                               20654              LX6    P2.TAGP                                                 FUN       228
            71  5160000000 X                      SA6    ROUTNAM                                                 FUN       229
                          0100001033 +            RJ     PEJ         ISSUE CALL                                  FUN       230
            72  0100000662 +                      RJ     PAS         RESTORE APLIST STRUCTURES                   FUN       231
            73  76700                             =X7    0                                                       FUN       232
                     5170001232 +                 SA7    FAF         ZERO OUT FIRST APL FLAG                     FUN       233
            74  5110001206 +                      SA1    FUN.CUR                                                 FUN       234
                          10711                   BX7    X1                                                      FUN       235
            75  5170000000 X                      SA7    CURSK       RESTORE SKEL POINTER                        FUN       236
                          0400000000 X            EQ     NULLOP                                                  FUN       237
                                                                                                                 FUN       238
            76                     1     PCRA     BSS    1                                                       FUN       239
            77                     1     PCRB     BSS    1                                                       FUN       240
  
  
  
  
                                        **        HSTO - CHARACTER ASSIGNMENT.                                   FUN       242
                                                                                                                 FUN       243
           100                           O=HSTO   BSSENT 0                                                       FUN       244
           100  5110000000 X                      SA1    CURSK                                                   FUN       245
                          10711                   BX7    X1                                                      FUN       246
           101  5170001206 +                      SA7    FUN.CUR     SAVE SKELETON POINTER                       FUN       247
                          0100001137 +            RJ     SAS         STACK APLIST STRUCTURES                     FUN       248
           102  5154000002                        =A5    B4+OR.2OP                                               FUN       249
                          0100000743 +            RJ     PCI         ENTER TARGET INTO APLIST                    FUN       250
           103  5154000001                        SA5    B4+OR.1OP                                               FUN       251
                          0100000260 +            RJ     BGA         PROCESS RIGHT-HAND EXPRESSION               FUN       252
           104  76600                             =X6    0                                                       FUN       253
                     5110000000 X                 ADDWD  T.SAP       APLIST TERMINATOR                           FUN       254
           106  5120001215 +                      SA2    APLEN                                                   FUN       255
                          73621                   =X6    X2+1                                                    FUN       256
                               54620              SA6    A2          INCREMENT APLIST LENGTH COUNTER             FC5A246     7
           107  5110000000 X                      SA1    S=MMC                                                   FUN       258
                          10711                   BX7    X1                                                      FUN       259
                               20754              LX7    P2.TAGP                                                 FUN       260
           110  5170000000 X                      SA7    ROUTNAM     ROUTINE IS CHARACTER MOVE ROUTINE           FUN       261
                          0100001033 +            RJ     PEJ         ISSUE - RJ   MMC -                          FUN       262
           111  5140001206 +                      SA4    FUN.CUR                                                 FUN       263
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     7
        (O=)  PROCESSORS CALLED BY SKELETONS.                         HSTO
  
                          10744                   BX7    X4                                                      FUN       264
           112  5170000000 X                      SA7    CURSK                                                   FUN       265
                          0100000662 +            RJ     PAS         RESTORE APLIST STRUCTURES                   FUN       266
           113  43700                             MX7    0                                                       FUN       267
                     5170001232 +                 SA7    FAF         SET FIRST APLIST FLAG                       FUN       268
           114  0400000000 X                      EQ     NULLOP                                                  FUN       269
  
  
  
  
                                        **        O=IAP - ISSUE ACTUAL PARAMETER OF EXTERNAL INTRINSIC.          FUN       271
                                        *                                                                        FUN       272
                                        *         ENTRY  (1OP) = ACTUAL PARAMETER                                FUN       273
                                        *                (OP.MODE) = MODE OF ARG.                                FUN       274
                                                                                                                 FUN       275
                                                                                                                 FUN       276
           115                           O=IAP    BSSENT             ENTRY...                                    FUN       277
           115  56140                             =A1    B4+OR.OPR                                               FUN       278
                     43070                        MX0    -OP.MODEL                                               FUN       279
                          5120001215 +            SA2    APLEN                                                   FUN       280
           116  20152                             LX1    -OP.MODEP                                               FUN       281
                     5232000123 +                 SA3    X2+IAPA                                                 FUN       282
                               15610              BX6    -X0*X1      ISOLATE MODE OF ARG                         FUN       283
           117  73721                             SX7    X2+B1       COUNT ARGUMENTS                             FUN       284
                     6276777773                   SB7    X6-M.DBL                                                FUN       285
                               54720              SA7    A2                                                      FUN       286
           120  0470000122 +                      EQ     B7,B0,IAP2  IF TYPE DOUBLE                              FUN       287
                          0471000122 +            EQ     B7,B1,IAP2  IF TYPE COMPLEX                             FUN       288
           121  20336                             LX3    30                                                      FUN       289
           122  10633                    IAP2     =X6    X3          SET SUBSKEL                                 FUN       290
                     0400000000 X                 EQ     SUB.RET     EXIT..                                      FUN       291
                                                                                                                 FUN       292
           123  0000000000 X             IAPA     VFD    30/W=IAPS1,30/W=IAPD1                                   FUN       293
                          0000000000 X
           124  0000000000 X                      VFD    30/W=IAPS2,30/W=IAPD2                                   FUN       294
                          0000000000 X
  
  
  
  
                                        **        O=INF - CALL EXTERNAL INTRINSIC FUNCTION.                      FUN       296
                                        *                                                                        FUN       297
                                        *         ENTRY  (1OP) = ROUTINE TAG                                     FUN       298
                                        *                (2OP) = NUMBER OF ARGUMENTS                             FUN       299
                                                                                                                 FUN       300
                                                                                                                 FUN       301
           125                           O=INF    BSSENT             ENTRY...                                    FUN       302
           125  56141                             =A1    B4+OR.1OP                                               FUN       303
                     10611                        BX6    X1                                                      FUN       304
                          13111                   CRJ    NONE                                                    FUN       305
           127  13777                             BX7    0                                                       FUN       306
                     5170001215 +                 SA7    APLEN                                                   FUN       307
           130  0400000031 +                      EQ     O=FUN2      CONTINUE..                                  FUN       308
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     8
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=IOC 
  
                                        **        PROCESS IO CONTROL APLIST ITEM                                 FUN       310
                                        *         PREPARES AND PASSES APLIST ITEMS TO SAP                        FUN       311
                                        *                                                                        FUN       312
                                        *         ENTRY  OR.1OP = CONTROL CODE                                   FUN       313
                                        *                OR.2OP = CONTROL ITEM                                   FUN       314
                                                                                                                 FUN       315
                                                                                                                 FUN       316
           131                           O=IOC    BSSENT 0                                                       FUN       317
           131  6150000000 X                      SB5    T.IOI                                                   FUN       318
                          6160000000 X            SB6    T.IOA                                                   FUN       319
           132  0100000605 +                      RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN       320
           133  5110001236 +                      CLAS=  X1,AT,(IO,IOC)                                          FUN       321
                          10611                   BX6    X1                                                      FUN       322
           134  5160001226 +                      SA6    ATF         ATF BITS SET - IO,IOC                       FUN       323
                          5114000002              SA1    B4+OR.2OP   GET CONTROL ITEM                            FUN       324
           135  0100000621 +                      RJ     IAW         ISSUE APLIST WORD FOR CONTROL ITEM          FUN       325
           136  5110000000 X                      SA1    T=IOA       GET LEN OF IO APLIST TABLE                  FUN       326
                          5120000000 X            SA2    T.IOA       GET FWA OF IO APLIST                        FUN       327
           137  56541                             =A5    B4+OR.1OP   GET CONTROL CODE OPERAND                    FUN       328
                     20550                        LX5    -P2.BIASP   POSITION CONTROL CODE                       FUN       329
                          43066                   MX0    -IA.MODEL                                               FUN       330
                               36212              IX2    X1+X2       ADD IOA FWA TO LENGTH                       FUN       331
           140  5232777776                        SA3    X2-1        GET IOA ENTRY FOR CONTROL ITEM              FUN       332
                          20360                   LX3    -IA.MODEP                                               FUN       333
                               11203              BX2    X0*X3       CLEAR MODE FROM CONTROL ITEM IOA ENTRY      FUN       334
           141  15550                             BX5    -X0*X5      EXTRACT CONTROL CODE                        FUN       335
                     12725                        BX7    X2+X5       MODE[CONTROL ITEM] = CONTROL CODE           FUN       336
                          20714                   LX7    IA.MODEP    RESET FOR RE-ENTRY TO IOA                   FUN       337
                               76600              =X6    0                                                       FUN       338
           142  54730                             SA7    A3          RESET IOA ENTRY                             FUN       339
                     5110000000 X                 ADDWD  T.IOA       ADD ZERO WORD 2ND WORD PLACE HOLDER         FC50239    14
           144  5110001215 +                      SA1    APLEN                                                   FUN       341
                          73611                   =X6    X1+1                                                    FUN       342
                               54610              SA6    A1          INCREMENT APLEN                             FC5A246     8
           145  6144000003                        SB4    B4+Z=TURP                                               FUN       344
                          0400000000 X            EQ     EIS.PNX                                                 FUN       345
  
  
  
  
                                        **        O=IOD  IO DATA PROCESSOR                                       FUN       347
                                        *         SET UP SAP CALLS FOR DATA LENGTH AND ITEM                      FUN       348
                                        *                                                                        FUN       349
                                        *         ENTRY  (1OP) = DATA ITEM(ADDRESS)                              FUN       350
                                        *                (2OP) = DATA LENGTH                                     FUN       351
                                                                                                                 FUN       352
           146                           O=IOD    BSSENT 0                                                       FUN       353
           146  6150000000 X                      SB5    T.IOI                                                   FUN       354
                          6160000000 X            SB6    T.IOA                                                   FUN       355
           147  0100000605 +                      RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN       356
           150  76310                             CLAS=  X3,AT,(IO)                                              FUN       357
                                                                                                                 FUN       358
                                        **        DETERMINE IF NUL(NOT UNITY LENGTH) BIT IS SET IN ATF           FUN       359
                                                                                                                 FUN       360
                     43501                        MX5    1                                                       FUN       361
                          56141                   =A1    B4+OR.1OP   GET DATA ITEM                               FUN       362
                               20571              LX5    1+AT.NULP                                               FUN       363
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE     9
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=IOD 
  
           151  54211                             =A2    A1+OR.2OP-OR.1OP                                        FUN       364
                     20257                        HX2    P2.SHRT                                                 FUN       365
                          0322000154 +            PL     X2,IOD10    IF LENGTH OPERAND NOT SHORT CON             FUN       366
           152  20265                             LX2    1+P2.SHRTP-P2.BIASP                                     FUN       367
                     7222777776                   SX2    X2-1                                                    FUN       368
           153  0312000154 +                      NZ     X2,IOD10    IF BIAS[2OP] NE 1                           FUN       369
                          43500                   MX5    0           NUL[ATF] = 0                                FUN       370
                                                                                                                 FUN       371
           154  12635                    IOD10    BX6    X3+X5                                                   FUN       372
                     5160001226 +                 SA6    ATF         ATF BITS SET - IO, CONDITIONAL NUL          FUN       373
                               10655              BX6    X5                                                      FUN       374
           155  5160000162 +                      SA6    IODA        SAVE NUL BIT FOR LENGTH WORD                FUN       375
                          0100000621 +            RJ     IAW         ISSUE APLIST WORD FOR DATA ADDRESS          FUN       376
           156  5120001237 +                      CLAS=  X2,AT,(IO,LEN)                                          FUN       377
                          5150000162 +            SA5    IODA                                                    FUN       378
           157  5114000002                        =A1    B4+OR.2OP                                               FUN       379
                          12625                   BX6    X2+X5       INSERT NON-UNITY LENGTH PROPERTY            FUN       380
           160  5160001226 +                      SA6    ATF         ATF BITS SET - IO, LEN, CONDITIONAL NUL     FUN       381
                          0100000621 +            RJ     IAW         ISSUE LENGTH OF ITEM                        FUN       382
           161  6144000003                        SB4    B4+Z=TURP   RESET OPERATOR POINTER                      FUN       383
                          0400000000 X            EQ     EIS.PNX                                                 FUN       384
                                                                                                                 FUN       385
           162                     1     IODA     BSSZ   1                                                       FUN       386
  
  
  
  
                                        **        O=IOF - ISSUE RJ TO I/O FUNCTION ROUTINE.                      FUN       388
                                        *                                                                        FUN       389
                                        *         ENTRY  (B4) = ADDRESS OF TURPLE.                               FUN       390
                                        *                (1OP) = SUBROUTINE TAG                                  FUN       391
                                        *                (2OP) = RESTART INDICATOR                               FUN       392
                                        *                                                                        FUN       393
                                        *         EXIT   (T.PB) UPDATED WITH...                                  FUN       394
                                        *                SA1     AP-LIST POINTER                                 FUN       395
                                        *                RJ      I/O ROUTINE                                     FUN       396
                                        *                                                                        FUN       397
                                        *         CALLS  CIA, CRJ, NAP                                           FUN       398
                                                                                                                 FUN       399
                                                                                                                 FUN       400
           163                           O=IOF    BSSENT 0           ENTRY...                                    FUN       401
           163  13000                             DRITE  DEACTIVATE                                              FUN       402
           164  0100000000 X                      CALL   CIA         CLEAR INTERMEDIATES / ASSOCIATES            FUN       403
           165  5154000002                        SA5    B4+OR.2OP   GET THE RESTART INDICATOR                   FUN       404
                          5120001232 +            SA2    FAF         GET FIRST APLIST ITEM FLAG                  FUN       405
           166  6150000000 X                      SB5    T.IOI                                                   FC50239    15
                          6160000000 X            SB6    T.IOA                                                   FC50239    16
           167  0312000170 +                      NZ     X2,IOF1     IF NON-EMPTY APLIST                         FUN       408
                          0100000605 +            RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN       409
                                                                                                                 FUN       410
           170  5110001215 +             IOF1     SA1    APLEN       GET CURRENT APLIST LENGTH                   FUN       411
                          10655                   BX6    X5                                                      FUN       412
                               76700              =X7    0                                                       FUN       413
           171  20647                             SBIT   X6,P2.BIASP                                             FUN       414
                     6231000002                   SB3    X1+2        STEP APLEN FOR ZERO WORD TERMINATORS        FUN       415
                               21673              AX6    59          SIGN EXTEND RESTART INDICATER               FUN       416
           172  76510                             =X5    IO          SET IO INDICATOR FOR NAP                    FUN       417
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    10
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=IOF 
  
                     5170001232 +                 SA7    FAF         SET FIRST APLIST ITEM FLAG                  FUN       418
           173  5110000000 X                      ADDWD  T.IOA       ADD RESTART WORD TO IO APLIST               FUN       419
           174  43673                             MX6    -1                                                      FUN       420
                     5110000000 X                 ADDWD  T.IOA       ADD ZERO WORD TO PAIR WITH RESTSRT          FUN       421
           176  0100000644 +                      RJ     NAP         ENTER THE AP-LIST IN T.APL                  FUN       422
                                                  HX6    IA.TAG                                                  FUN       423
           177  21652                             AX6    -IA.TAGL    ISOLATE AP-LIST TAG                         FUN       424
                     20636                        LX6    PB.TAGP     POSITION FOR PRE-BINARY                     FUN       425
                          7110051100              SX1    SA=BK+100B  FORCE AP-LIST LOAD INTO *A1*                FUN       426
           200  20155                             LX1    PB.INSTP                                                FUN       427
                     12716                        BX7    X1+X6       INSTRUCTION + AP-LIST TAG                   FUN       428
                          6120000202 +            WCODE  X7          COMPILE LOAD OF AP-LIST                     FUN       429
           202  56141                             =A1    B4+OR.1OP   FETCH I/O ROUTINE TAG                       FUN       430
                     22601                        LX6    X1                                                      FUN       431
                          5130000000 X            SA3    TRACE                                                   FUN       432
           203  77101                             CRJ    MUST        COMPILE THE RJ TO I/O ROUTINE               FUN       433
           204  0400000000 X                      EQ     NULLOP                                                  FUN       434
                                                                                                                 FUN       435
  
  
  
  
                                        **        O=IOU - IO UNIT TURPLE.  IT IS REALLY A IOC TURPLE             FUN       437
                                        *         WHO, UNLIKE OTHER IOC TURPLES HAS A 2OP THAT IS A LENGTH       FUN       438
                                        *         SPECIFIER, SO WE TREAT IT LIKE AN IOD-IOC HYBRED               FUN       439
                                        *                                                                        FUN       440
                                        *         ENTRY - (OR.1OP) = UNIT ITEM                                   FUN       441
                                        *                 (OR.2OP) = LENGTH                                      FUN       442
                                                                                                                 FUN       443
                                                                                                                 FUN       444
           205                           O=IOU    BSSENT 0                                                       FUN       445
           205  6150000000 X                      SB5    T.IOI                                                   FUN       446
                          6160000000 X            SB6    T.IOA                                                   FUN       447
           206  0100000605 +                      RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN       448
                                                                                                                 FUN       449
                                        **        FIRST SET UP ATF BITS FOR UNIT                                 FUN       450
                                        *         WE SET: IO, IOC .... ALWAYS                                    FUN       451
                                        *                 NUL ...  WHEN LENGTH NOT SHORT CON = 1                 FUN       452
                                                                                                                 FUN       453
           207  5110001236 +                      CLAS=  X1,AT,(IO,IOC)                                          FUN       454
                          43501                   MX5    1                                                       FUN       455
                               20571              LX5    1+AT.NULP                                               FUN       456
           210  5124000002                        SA2    B4+OR.2OP   GET LENGTH                                  FUN       457
                          20257                   HX2    P2.SHRT                                                 FUN       458
           211  0322000214 +                      PL     X2,IOU10    IF NOT SHORT CON LENGTH                     FUN       459
                          20265                   LX2    1+P2.SHRTP-P2.BIASP                                     FUN       460
           212  7222777776                        SX2    X2-1                                                    FUN       461
                          0312000214 +            NZ     X2,IOU10    IF LENGTH NE 1                              FUN       462
           213  43500                             MX5    0                                                       FUN       463
                                                                                                                 FUN       464
           214  12615                    IOU10    BX6    X1+X5       MERGE NUL WITH IO AND IOC BITS              FUN       465
                     5160001226 +                 SA6    ATF                                                     FUN       466
                               10655              BX6    X5                                                      FUN       467
           215  5160000162 +                      SA6    IODA        SAVE NUL BIT                                FUN       468
                          56141                   =A1    B4+OR.1OP   GET UNIT                                    FUN       469
           216  0100000621 +                      RJ     IAW         ISSUE APLIS WORD                            FUN       470
           217  43066                             MX0    -IA.MODEL                                               FUN       471
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    11
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=IOU 
  
                     5110000000 X                 SA1    T.IOA       GET FWA                                     FUN       472
           220  5120000000 X                      SA2    T=IOA       GET LEN                                     FUN       473
                          36312                   IX3    X1+X2       (X3) = LWA +1                               FUN       474
           221  5253777776                        SA5    X3-1        GET APL ITEM FOR UNIT TO REPLACE MODE       FUN       475
                          76110                   =X1    IC.UNT      (X1) = IO UNIT CONTROL CODE                 FUN       476
                               20560              LX5    -IA.MODEP                                               FUN       477
           222  11605                             BX6    X0*X5       EXTRACT MODE FROM UNIT ENTRY                FUN       478
                     12661                        BX6    X6+X1       MODE[UNIT] = IC.UNIT                        FUN       479
                          20614                   LX6    IA.MODEP    RESET IOA ENTRY                             FUN       480
                               54650              SA6    A5          RE-ENTER UNIT                               FUN       481
                                                                                                                 FUN       482
                                        **        SET UP ATF FOR LENGTN                                          FUN       483
                                        *         SAME AS UNIT ONLY LEN BIT IS SET                               FUN       484
                                                                                                                 FUN       485
           223  5110001240 +                      CLAS=  X1,AT,(IOC,IO,LEN)                                      FUN       486
                          5150000162 +            SA5    IODA                                                    FUN       487
           224  12615                             BX6    X1+X5       INSERT NUL PROPERTY                         FUN       488
                     5160001226 +                 SA6    ATF                                                     FUN       489
           225  5114000002                        SA1    B4+OR.2OP   GET LENGTH OPERAND                          FUN       490
                          0100000621 +            RJ     IAW         PROCESS LENGTH WORD                         FUN       491
           226  6144000003                        SB4    B4+Z=TURP                                               FUN       492
                          0400000000 X            EQ     EIS.PNX                                                 FUN       493
  
  
  
  
                                        **        O=SUB - ISSUE SUBROUTINE CALL.                                 FUN       495
                                        *                                                                        FUN       496
                                        *         ENTRY  (1OP) = ROUTINE TAG.                                    FUN       497
                                        *                (B4) -> TURPLE BEING PROCESSED.                         FUN       498
                                        *                ARGUMENTS HAVE BEEN SET UP BY PRECEEDING *O=ARG*        FUN       499
                                        *                            TURPLES --                                  FUN       500
                                        *                (APLEN) SET-UP BY *O=ARG*.                              FUN       501
                                        *                (T.APL) SET-UP BY *O=ARG*.                              FUN       502
                                        *         EXIT   TO *EIS.PNX*.                                           FUN       503
                                        *                (B4) ADVANCED.                                          FUN       504
                                        *         CALLS  PEJ                                                     FUN       505
                                                                                                                 FUN       506
                                                                                                                 FUN       507
           227                           O=LIB    BSSENT             ENTRY...                                    FUN       508
           227  7160000001                        SX6    1           NO TERMINTOR                                FUN       509
                          0400000231 +            EQ     SUB10                                                   FUN       510
                                                                                                                 FUN       511
           230                           O=SUB    BSSENT             ENTRY...                                    FUN       512
           230  5120000000 X                      SA2    CO.ARGF                                                 FUN       513
                          10622                   BX6    X2          TERMINATOR ACCORD. TO ARG=FIXED             FUN       514
                                                                                                                 FUN       515
           231  5160000042 +             SUB10    SA6    FUNA                                                    FUN       516
                          5120001232 +            SA2    FAF         GET FIRST APLIST ITEM INDICATOR             FUN       517
           232  6150000000 X                      SB5    T.API                                                   FUN       518
                          6160000000 X            SB6    T.SAP                                                   FUN       519
           233  7052000000                        SX5    A2+         SAVE ADDRESS OF FAF ACROSS IAS              FUN       520
                          0312000235 +            NZ     X2,SUB1     IF NOT EMPTY APLIST                         FUN       521
           234  0316000235 +                      NZ     X6,SUB1     IF NO TERMINATOR REQUIRED                   FUN       522
                          0100000605 +            RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN       523
                                                                                                                 FUN       524
           235  76700                    SUB1     =X7    0                                                       FUN       525
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    12
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=SUB 
  
                     53750                        SA7    X5          SET FAF TO INDICATE FIRST ITEM              FUN       526
                          56241                   =A2    B4+OR.1OP                                               FUN       527
                               10622              BX6    X2                                                      FUN       528
           236  5160000000 X                      SA6    ROUTNAM                                                 FUN       529
                          5110000042 +            SA1    FUNA        ZERO TERMINATOR FLAG                        FUN       530
           237  0100001033 +                      RJ     PEJ         PROCESS EXTERNAL JUMP                       FUN       531
           240  43600                             MX6    0                                                       FUN       532
                     5160000000 X                 SHRINK T=SAP,X6                                                FUN       533
           241  0400000000 X                      EQ     NULLOP      EXIT..                                      FUN       534
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    13
        SUBROUTINES.                                                  AAP 
  
                                        **        AAP - ADD WORD TO APLIST                                       FUN       537
                                        *                                                                        FUN       538
                                        *         ENTRY  (X1) = OPERAND OR STATUS WORD TO PASS TO APL            FUN       539
                                        *                (B7) = PLUG FLAG                                        FUN       540
                                        *                                                                        FUN       541
                                        *         EXIT   (X5) = PRESERVED                                        FUN       542
                                        *                (X6) = IA. WORD PASSED/TO PASS TO APL                   FUN       543
                                        *                                                                        FUN       544
                                        *         USES   ALL BUT (B5)                                            FUN       545
                                                                                                                 FUN       546
                                                                                                                 FUN       547
           242  0400400242 +             AAP      SUBR               ENTRY/EXIT.                                 FUN       548
           243  5150001226 +                      SA5    ATF                                                     FUN       549
                          76600                   =X6    0           CLEAR X6                                    FUN       550
                                                                                                                 FUN       551
                                        **        EXTRACT IA. INFORMATION FROM ATF                               FUN       552
                                                                                                                 FUN       553
                                         .ATF     ECHO   ,FLD=(IOC,CHAR,MODE)                                    FUN       554
                                                  CLAS=  X3,AT,FLD                                               FUN       555
                                                  BX0    X3*X5                   EXTRACT ATF FIELD               FUN       556
                                                  LX0    -AT.FLD_P+IA.FLD_P      POSITION FIELD IN IA. POSITION  FUN       557
                                                  BX6    X0+X6                   MERGE IN FIELD TO IA WORD       FUN       558
                                         .ATF     ENDD                                                           FUN       559
                                                                                                                 FUN       560
                                        **        EXTRACT P2 FIELDS FROM STATUS WORD                             FUN       561
                                                                                                                 FUN       562
                          43345                   MX3    P2.ORDL+P2.BIASL                                        FUN       563
                               20371              LX3    P2.ORDL+P2.BIASL+P2.ORBIP                               FUN       564
           250  11031                             BX0    X3*X1       TAG + BIAS                                  FUN       565
                     20072                        LX0    IA.ORBIP-P2.ORBIP                                       FUN       566
                          12606                   BX6    X0+X6                                                   FUN       567
                               43303              MX3    P2.PFXL                                                 FUN       568
                                                  LX3    P2.PFXL+P2.PFXP                                         FUN       569
           251  11031                             BX0    X3*X1                                                   FUN       570
                                                  LX0    IA.TAGP+P=PFX-P2.PFXP  REPOSITION PFX                   FUN       571
                     12606                        BX6    X0+X6                                                   FUN       572
                          76070                   SX0    B7                                                      FUN       573
                               20012              LX0    IA.STP      POSITION STORE BIT                          FUN       574
           252  5110000000 X                      SA1    WO.DOOT                                                 FUN       575
                          20105                   LX1    IA.VARP                                                 FUN       576
                               12001              BX0    X0+X1       VAR[IA] = DOTRIP                            FUN       577
           253  12660                             BX6    X6+X0       MERGE IN STORE BIT                          FUN       578
                     5110001223 +                 SA1    APTAB                                                   FUN       579
                               20505              SBIT   X5,AT.SPRP                                              FUN       580
           254  0335000242 +                      MI     X5,EXIT.    IF SPACE PREVIOUSLY RESERVED                FUN       581
                          53110                   ADDWD  X1          ADD IA WORD TO APTAB                        FUN       582
           256  5110001215 +                      SA1    APLEN                                                   FUN       583
                          7271000001              SX7    X1+1                                                    FUN       584
           257  5170001215 +                      SA7    APLEN                                                   FUN       585
                          0400000242 +            EQ     EXIT.                                                   FUN       586
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    14
        SUBROUTINES.                                                  BGA 
  
                                        **        BGA - BUILD GENERATED APLIST                                   FUN       588
                                        *                                                                        FC5A246     9
                                        *         BGA CONTROLS THE CONSTRUCTION OF APLSITS PASSED TO             FC5A246    10
                                        *         LIBRARY CHARACTER ROUTINES.  IT CALLS GNO, THE CONCATENATION   FC5A246    11
                                        *         TREE SPANNER  AND PASSES THE LEAVES ON TO PCI,THE APLIST ITEM  FUN       591
                                        *         PROCESSOR                                                      FUN       592
                                        *                                                                        FUN       593
                                        *         ENTRY - (X5) = OPERAND TO PASS TO APLIST                       FUN       594
                                        *                                                                        FUN       595
                                        *         USES ALL                                                       FUN       596
                                        *                                                                        FUN       597
                                        *         CALLS GNO,PCI(WHICH OFTEN CALLS ALL OF EIS)                    FUN       598
                                                                                                                 FUN       599
                                                                                                                 FUN       600
           260  0400400260 +             BGA      SUBR               ENTRY/EXIT.                                 FUN       601
           261  7100000400                        SX0    RLOCK       SET LOCK BIT TO MARK 1ST OPD                FUN       602
                          12705                   BX7    X0+X5       LOCK FIRST CURRENT-LINK                     FUN       603
                                                                                                                 FUN       604
                                        **        TRICK - WE SET THE I. L. ORDINAL FIELD OF THE                  FUN       605
                                        *         1ST LAST-LINK TO:  THE I. L. LENGTH - Z=TURP. THIS             FUN       606
                                        *         POINTS TO A DUMMY TURPLE WHO'S 2ND OPERAND IS THE              FUN       607
                                        *         ZERO WORD AT THE END OF THE I. L.  THE COMBINA-                FUN       608
                                        *         TION OF MARKING THE 1ST CURRENT-LINK AS A 1ST                  FUN       609
                                        *         OPERAND AND THEN ARANGING ITS CORESPONDING LAST-               FUN       610
                                        *         LINK TO POINT TO A DUMMY OPERAND WITH A ZERO 2OP,              FUN       611
                                        *         TRICKS GNO INTO RETURNING A ZERO CURRENT-LINK WHEN             FUN       612
                                        *         THE TREE WALK SHOULD TERMINATE.                                FUN       613
                                                                                                                 FUN       614
                               76600              =X6    0                                                       FUN       615
           262  5170001204 +                      SA7    LNK.CUR                                                 FUN       616
                          5120000000 X            SA2    T=PAR       GET I. L. LENGTH                            FUN       617
           263  5160001231 +                      SA6    CLEN        INITIALIZE CHAR LEN COUNTER FOR THIS LIST   FUN       618
                          7262777774              SX6    X2-Z=TURP   DUMMY ORDINAL TO INITIALIZE LNK.LST         FUN       619
           264  20624                             LX6    P2.BIASP    POSITION DUMMY ORDINAL                      FUN       620
                     10577                        BX5    X7                                                      FUN       621
                          5160001205 +            SA6    LNK.LST                                                 FUN       622
           265  0100000551 +                      RJ     GAS         GET APLIST STATUS OF OPERAND                FUN       623
           266  0612000270 +                      GE     B1,B2,BGA1  IF NOT IN  A TEMP                           FUN       624
                          0100000743 +            RJ     PCI         PROCESS CHAR ITEM                           FUN       625
           267  0400000260 +                      EQ     EXIT.                                                   FUN       626
                                                                                                                 FUN       627
           270  0305000260 +             BGA1     ZR     X5,EXIT.    IF WALK DONE                                FUN       628
                          0100000565 +            RJ     GNO         GET NEXT OPERAND                            FUN       629
           271  5150001203 +                      SA5    LEAF                                                    FUN       630
                          0100000743 +            RJ     PCI         PROCESS CHARACTER ITEM                      FUN       631
           272  5150001204 +                      SA5    LNK.CUR                                                 FUN       632
                          0400000270 +            EQ     BGA1                                                    FUN       633
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    15
        SUBROUTINES.                                                  CCA 
  
                                        **        CCA - COMPLETE CHARACTER ARRAY REFERENCE.                      FUN       635
                                        *                                                                        FUN       636
                                        *         ENTRY  (X1) = INDEX OPERAND.                                   FUN       637
                                                                                                                 FUN       638
           273  0400400273 +             CCA      SUBR                                                           FUN       639
           274  43700                             MX7    0                                                       FUN       640
                     5170001226 +                 SA7    ATF         INDEX IS NOT TYPE CHAR                      FUN       641
           275  0100001056 +                      RJ     SAP         PASS ADDRESS FUNCTIION TO APLIST            FUN       642
           276  5120000000 X                      SA2    S=FAR       GET ARRAY PROCESSOR SYMBOL ORDINAL          FUN       643
                          20254                   LX2    P2.TAGP     POSITION ROUTINE NAME                       FUN       644
                               10622              BX6    X2                                                      FUN       645
           277  76110                             =X1    1           SUPPRESS ZERO TERMINATOR                    FUN       646
                     5160000000 X                 SA6    ROUTNAM                                                 FUN       647
           300  0100001033 +                      RJ     PEJ         PROCESS EXTERNAL JUMP                       FUN       648
           301  0100000662 +                      RJ     PAS         POP APLIST STRUCTURES                       FUN       649
           302  0100001150 +                      RJ     SCI         STORE CHARACTER ITEM                        FUN       650
           303  56541                             =A5    B4+OR.1OP   GET ARRAY OPERAND                           FUN       651
                     0100000551 +                 RJ     GAS                                                     FUN       652
           304  66610                             =B6    1           SET STORE TO APLIST FLAG                    FUN       653
                     0100000417 +                 RJ     ECA         ENTER DUMMY ITEM TO CALLER'S APLIST         FUN       654
           305  0400000273 +                      EQ     EXIT.                                                   FUN       655
  
  
  
  
                                        **        CCT - CREATE CHARACTER TEMP                                    FUN       657
                                        *                                                                        FUN       658
                                        *         ENTRY  (X5) = I. L. OPERAND                                    FUN       659
                                        *                (X1) = CLEN                                             FUN       660
                                        *                (B6) = SPR(SPACE PREVIOULSY RESERVED) BIT               FUN       661
                                        *                                                                        FUN       662
                                        *         EXIT   (X6) = APL ENTRY FOR OPERAND                            FUN       663
                                        *                                                                        FUN       664
                                        *         USES ALL                                                       FUN       665
                                        *                                                                        FUN       666
                                        *         CALLS ECA,ECA,SSC                                              FUN       667
                                        *                                                                        FUN       668
                                        *         NOTE - CCT INHIBITS AAP FORM ACTUALLY MAKING AN ENTRY          FUN       669
                                        *                WHENEVET (B6) = 1 ON ENTRY. IN THAT CASE THE            FUN       670
                                        *                IS THE CALLERS.                                         FUN       671
                                        *                                                                        FUN       672
                                                                                                                 FUN       673
                                                                                                                 FUN       674
           306  0400400306 +             CCT      SUBR               ENTRY/EXIT                                  FUN       675
           307  10611                             BX6    X1                                                      FUN       676
                     7120000011                   CW     X2,X6                                                   FUN       677
           311  5130000000 X                      SA3    N.ST        GET INDEX OF THIS TEMP                      FUN       678
                          76060                   SX0    B6          GET SPR BIT                                 FUN       679
                               36623              IX6    X2+X3       INCREMENT TEMP COUNT BY NO OF WDS. NEEDED   FUN       680
           312  5120001226 +                      SA2    ATF                                                     FUN       681
                          20066                   LX0    AT.SPRP                                                 FUN       682
                               54630              SA6    A3          RESET N.ST                                  FUN       683
           313  12702                             BX7    X0+X2       ADD IN SPR PROPERTY                         FUN       684
                     20136                        LX1    WC.CLENP    POSITION CLEN OF TEMP                       FUN       685
                          54720                   SA7    A2          RESET ATF                                   FUN       686
                                                  LX3    WC.RAP      POSITION TEMP ARRAY BIAS                    FUN       687
                               12631              BX6    X3+X1       MERGE CLEN AN ARRAY INDEX                   FUN       688
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    16
        SUBROUTINES.                                                  CCT 
  
           314  0100000426 +                      RJ     ECW         ENTER CAC WORD                              FUN       689
                                                                                                                 FC5A243    24
                                        *         MARK EXPRESSION IN TEMPORARY, UNLESS IT INCLUDES A             FC5A243    25
                                        *         VARIABLE SUBSTRING.  IN THAT CASE, WE NEED TO REEVALUATE       FC5A243    26
                                        *         EXPRESSION BECAUSE APLIST WORD WITH CORRECT LENGTH IS          FC5A243    27
                                        *         RETURNED FROM MMC. AND MUST BE STORED TO OUTER APLIST.         FC5A243    28
                                                                                                                 FC5A243    29
           315  5160000341 +                      SA6    CCTC                                                    FC5A243    30
                          5130000000 X            SA3    S=ST        GET SYMBOL ORDINAL OF TEMPORARY ARRAY       FUN       690
           316  0100001167 +                      RJ     SSC         SET STATUS OF CHARACTER OPERAND             FUN       691
           317  5120000340 +                      SA2    CCTB                                                    FC5A243    31
                          0312000324 +            NZ     X2,CCT20    IF VARIABLE LENGTH EXPRESSION               FC5A243    32
           320  43001                             MX0    1                                                       FUN       692
                     20021                        LX0    1+ST.CTMP                                               FUN       693
                          12601                   BX6    X0+X1       CTM[STATUS] = 1                             FUN       694
                                                                                                                 FC5A243    33
           321  54610                    CCT10    SA6    A1                                                      FC5A243    34
                     5160000337 +                 SA6    CCTA        SAVE FOR MAIN APLIST                        FUN       696
           322  6160000000                        SB6    0                                                       FUN       697
                          0100000417 +            RJ     ECA         ENTER CHARACTER ITEM                        FUN       698
           323  0400000306 +                      EQ     EXIT.                                                   FUN       699
                                                                                                                 FC5A243    35
           324  5120000000 X             CCT20    SA2    N.ST                                                    FC5A243    36
                          5130000341 +            SA3    CCTC                                                    FC5A243    37
           325  5150000000 X                      SA5    T.OUS                                                   FC5A243    38
                          63650                   SB6    X5                                                      FC5A243    39
                               75616              SX6    A1-B6                                                   FC5A243    40
           326  54630                             SA6    A3          SAVE STATUS WORD OFFSET                     FC5A243    41
                     10611                        BX6    X1                                                      FC5A243    42
                          43030                   MX0    WC.RAL                                                  FC5A243    43
                               73721              =X7    X2+1        RESERVE TEMP FOR ADJUSTED-LENGTH ITEM       FC5A243    44
           327  20030                             LX0    WC.RAL+WC.RAP                                           FC5A243    45
                     5160000342 +                 SA6    CCTD        SAVE ORIGINAL ITEM                          FC5A243    46
                               54720              SA7    A2                                                      FC5A243    47
                                                  LX2    WC.RAP                                                  FC5A243    48
           330  15630                             BX6    -X0*X3      CLEAR OFFSET                                FC5A243    49
                     12626                        BX6    X2+X6       INSTALL NEW TEMP OFFSET                     FC5A243    50
                          0100000426 +            RJ     ECW         ENTER NEW CAC WORD                          FC5A243    51
           331  5150000342 +                      SA5    CCTD        RESTORE ORIGINAL ITEM                       FC5A243    52
                          5130000000 X            SA3    S=ST                                                    FC5A243    53
           332  76070                             SX0    B7          CAC OFFSET                                  FC5A243    54
                     20354                        LX3    P2.TAGP                                                 FC5A243    55
                          20024                   LX0    P2.BIASP                                                FC5A243    56
                               12230              BX2    X3+X0                                                   FC5A243    57
           333  7130340000                        CLAS=  X3,ST,(CTM,CAC,UKL)                                     FC5A243    58
                          12623                   BX6    X2+X3       STATUS IS ADJUSTED-LENGTH ITEM              FC5A243    59
           334  5120000000 X                      SA2    T.OUS                                                   FC5A243    60
                          5130000341 +            SA3    CCTC                                                    FC5A243    61
           335  36023                             IX0    X2+X3                                                   FC5A243    62
                     53100                        SA1    X0          RESTORE STATUS WORD ADDRESS                 FC5A243    63
                          10155                   BX1    X5          RESTORE ORIGINAL STATUS WORD FOR ECW        FC5A243    64
           336  0400000321 +                      EQ     CCT10                                                   FC5A243    65
                                                                                                                 FUN       700
           337                     1     CCTA     BSS    1                                                       FUN       701
           340                     1     CCTB     BSSZ   1                                                       FC5A243    66
           341                     1     CCTC     BSS    1                                                       FC5A243    67
           342                     1     CCTD     BSS    1                                                       FC5A243    68
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    17
        SUBROUTINES.                                                  DAC 
  
                                        **        DAC    DETERMINE APLIST COMPLEXITY                             FUN       703
                                        *                                                                        FUN       704
                                        *         THIS ROUTINE IS CALLED WHENEVER A CHARACTOR TYPE               FUN       705
                                        *         OPERAND IS DETECTED DURING APLIST (IO OR USER)                 FUN       706
                                        *         ITS PURPOSE IS TO DETERMINE WHETHER STACKING IS                FUN       707
                                        *         NECESSARY AND IF SO TO CALL THE CORRECT SUPPORT                FUN       708
                                        *         ROUTINES.                                                      FUN       709
                                        *                                                                        FUN       710
                                        *         ENTRY  (X5) = OPERAND                                          FUN       711
                                        *                                                                        FUN       712
                                        *         EXIT   ENTRY MADE IN APLIST FOR OPERAND                        FUN       713
                                        *                                                                        FUN       714
                                        *         USES ALL                                                       FUN       715
                                        *         CALLS  PCI,BGA,GCT,CGA,GAS,PAS,SAS                             FUN       716
                                                                                                                 FUN       717
                                                                                                                 FUN       718
           343  0400400343 +             DAC      SUBR               ENTRY/EXIT.                                 FUN       719
           344  10355                             BX3    X5                                                      FUN       720
                     20362                        SBIT   X3,P2.CNCTP POSITION CONCAT BIT                         FUN       721
                          0100000551 +            RJ     GAS         GET STATUS OF APLIST OPERAND                FUN       722
           345  10755                             BX7    X5                                                      FUN       723
                     5170000400 +                 SA7    DACA        SAVE OPERAND                                FUN       724
           346  0323000376 +                      PL     X3,DAC1     IF ITEM NOT A CONCATENATION TREE            FC5A246    12
                          0712000376 +            LT     B1,B2,DAC1  IF IN A TEMP                                FUN       726
                                                                                                                 FUN       727
                                        **        WE MUST BUILD AN APLIST FROM THE CONCATENATION TREE            FC5A246    13
                                        *                 ALLOCATE TEMP STORAGE                                  FUN       729
                                        *                 CREATE AN APLIST ENTRY FOR THE TEMP                    FUN       730
                                                                                                                 FUN       731
           347  0100001137 +                      RJ     SAS         STACK APLIST STRUCTURES                     FUN       732
           350  76600                             =X6    0                                                       FUN       733
                     5110000000 X                 ADDWD  T.SAP       RESERVE SPACE FOR TEMP CELL                 FUN       734
           352  5110001215 +                      SA1    APLEN                                                   FUN       735
                          73611                   =X6    X1+1                                                    FUN       736
                               54610              SA6    A1          INCREMENT APLEN                             FC5A246    14
           353  43700                             MX7    0                                                       FC5A243    69
                     5170000550 +                 SA7    FVSUKL                                                  FC5A243    70
           354  0100000260 +                      RJ     BGA         BUILD GENERATED APLIST (INSERT CONCAT APL)  FUN       738
           355  5110001231 +                      SA1    CLEN        SET CHARACTER LENGTH                        FUN       739
                          66610                   =B6    1           SET SPACE PREVIOUSLY RESERVED FLAG FOR TEMP FUN       740
           356  5150000400 +                      SA5    DACA        GET ORIGINAL OPERAND                        FUN       741
                          5130000550 +            SA3    FVSUKL                                                  FC5A243    71
           357  10733                             BX7    X3                                                      FC5A243    72
                     5170000340 +                 SA7    CCTB                                                    FC5A243    73
           360  0100000306 +                      RJ     CCT         CREATE CHAR TEMP                            FUN       742
           361  43700                             MX7    0                                                       FC5A243    74
                     5170000340 +                 SA7    CCTB        RESTORE ST.CTMP SETTING                     FC5A243    75
           362  5110001223 +                      SA1    APTAB                                                   FUN       743
                          53210                   SA2    X1          (X2) = FWA OF APLIST TAB                    FUN       744
                               21122              AX1    18          POSITION INDEX TO   FIRST WORD OF THIS LIST FUN       745
           363  36212                             IX2    X1+X2                                                   FUN       746
                     53620                        SA6    X2          SET TEMP APL IN PREVIOUSLY RESERVED SPACE   FUN       747
                          5110000000 X            SA1    S=MMC       SYMBOL ORDINAL OF MOVE ROUTINE              FUN       748
           364  73710                             SX7    X1                                                      FUN       749
                     20754                        LX7    P2.TAGP                                                 FUN       750
                          5170000000 X            SA7    ROUTNAM     SET ROUTINE NAME FOR PEJ                    FUN       751
           365  43100                             MX1    0           REQUEST ZERO TERMINATOR                     FUN       752
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    18
        SUBROUTINES.                                                  DAC 
  
                     0100001033 +                 RJ     PEJ         PROCESS EXTERNAL JUMP                       FUN       753
           366  0100000662 +                      RJ     PAS         POP APLIST STRUCTURE                        FUN       754
           367  5110000550 +                      SA1    FVSUKL                                                  FC5A243    76
                          0301000373 +            ZR     X1,DAC5     IF EXPRESSION LENGTH EXACTLY KNOWN          FC5A243    77
           370  0100001150 +                      RJ     SCI         STORE NEW APLIST WORD FROM MMC. TO APL      FC5A243    78
           371  5110000337 +                      SA1    CCTA                                                    FC5A243    79
                          0100001200 +            RJ     SUA         SAVE UNKNOWN-LENGTH APLIST                  FC5A243    80
           372  5110000550 +                      SA1    FVSUKL                                                  FC5A243    81
                                                                                                                 FC5A243    82
           373  63610                    DAC5     SB6    X1          STORE-TO-APLIST FLAG                        FC5A243    83
                     5110000337 +                 SA1    CCTA        TEMP SAVED BY CCT                           FUN       755
           374  0100000417 +                      RJ     ECA         ISSUE TEMP AS MAIN APLIST                   FUN       757
           375  0400000343 +                      EQ     EXIT.                                                   FUN       758
                                                                                                                 FUN       759
           376  5150000400 +             DAC1     SA5    DACA        GET ORIGINAL OPERAND                        FUN       760
                          0100000743 +            RJ     PCI         PROCESS CHARACTER ITEM                      FUN       761
           377  0400000343 +                      EQ     EXIT.                                                   FUN       762
                                                                                                                 FUN       763
           400                     1     DACA     BSS    1                                                       FUN       764
  
  
  
  
                                        **        DAT - DEFINE APLIST ADJUSTED-LENGTH TEMP FOR SKEL.             FC5A243    85
                                        *                                                                        FC5A243    86
                                        *         ENTRY  B6 = CAC ORDINAL FROM STATUS WORD                       FC5A243    87
                                                                                                                 FC5A243    88
           401  0400400401 +             DAT      SUBR                                                           FC5A243    89
           402  5110000000 X                      SA1    T.CAC                                                   FC5A243    90
                          53216                   SA2    X1+B6                                                   FC5A243    91
           403  5130000000 X                      SA3    S=ST                                                    FC5A243    92
                                                  LX2    -WC.RAP                                                 FC5A243    93
                          20354                   LX3    P2.TAGP                                                 FC5A243    94
                               73020              SX0    X2                                                      FC5A243    95
           404  20024                             LX0    P2.BIASP                                                FC5A243    96
                     12203                        BX2    X0+X3                                                   FC5A243    97
                          76600                   =X6    0                                                       FC5A243    98
           405  0100000000 X                      CALL   POS         PREPARE OPERAND                             FC5A243    99
           406  5160000000 X                      SA6    REG=G       GL1 FOR SKELETON                            FC5A243   100
                          0400000401 +            EQ     EXIT.                                                   FC5A243   101
  
  
  
  
                                        **        DCF - DEFINE CHARACTER FUNCTION                                FUN       766
                                        *         JUST AS DIT IN REG DEFINES AN INTERMIDIATE IN                  FUN       767
                                        *         THE REGFILE AND SETS REGISTER STATUS,  DCF                     FUN       768
                                        *         DEFINES TEMPORARY STORAGE AND SETS STATUS FOR A CHARACTER      FUN       769
                                        *         FUNCTION INTERMEDIATE.                                         FUN       770
                                        *                                                                        FUN       771
                                        *         ENTRY  ((B4)+OR.1OP) = FUNCTION                                FUN       772
                                        *                                                                        FUN       773
                                        *         EXIT   STATUS WORD SET                                         FUN       774
                                        *                TEMP STORAGE SET                                        FUN       775
                                        *                                                                        FUN       776
                                        *         CALL - CCT                                                     FUN       777
                                                                                                                 FUN       778
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    19
        SUBROUTINES.                                                  DCF 
  
                                                                                                                 FUN       779
           407  0400400407 +             DCF      SUBR               ENTRY/EXIT.                                 FUN       780
           410  5114000001                        SA1    B4+OR.1OP   GET FUNCTION                                FUN       781
                          21154                   AX1    P2.TAGP     POSITION ROUTINE NAMD                       FUN       782
                                   0              ERRNZ  60-P2.TAGP-P2.TAGL                                      FUN       783
           411  5140001243 +                      CLAS=  X4,OP,2ORD                                              FUN       784
                          5134000000              SA3    B4+OR.OPR   GET OPERATOR                                FUN       785
           412  11343                             BX3    X4*X3       EXTRACT OUS ORDINAL                         FUN       786
                     76010                        =X0    1                                                       FUN       787
                          20320                   LX3    -OP.2ORDP+P2.TAGP SET DUMMY TAG FOR SSC                 FUN       788
                               12430              BX4    X3+X0             ASIGN DUMMY USE COUNT                 FUN       789
                                   0              ERRNZ  P2.USEP                                                 FUN       790
           413  0100000000 X                      CALL   GCL         GET CHARACTER LENGTH                        FUN       791
           414  10544                             BX5    X4                                                      FUN       792
                     66610                        =B6    1           SPACE PREVIOUSLY RESERVED                   FUN       793
                          0100000306 +            RJ     CCT                                                     FUN       794
           415  5110001223 +                      SA1    APTAB                                                   FUN       795
                          53210                   SA2    X1                                                      FUN       796
                               63220              SB2    X2                                                      FUN       797
           416  21122                             AX1    18          POSITION FIRST WORD INDEX OF THIS LIST      FUN       798
                     53612                        SA6    B2+X1       STORE IA. WORD IN FW OF LIST                FUN       799
                          0400000407 +            EQ     EXIT.                                                   FUN       800
  
  
  
  
                                        **        ECA - ENTER CHARACTER ITEM TO APLIST                           FUN       802
                                        *         THE MAIN JOB IS TO SET THE CHARACTER SPECIFIC                  FUN       803
                                        *         FIELDS IN ATF AND CALL AAP.                                    FUN       804
                                        *                                                                        FUN       805
                                        *         ENTRY  (X1) = P2.TAGL/IA TAG,P2.BIASL/IA BIAS,REST/NA          FUN       806
                                        *                (B6) = STORE INDICATOR                                  FUN       807
                                        *                                                                        FUN       808
                                        *         EXIT   (X6) = IA WORD                                          FUN       809
                                        *                IF (^SPR[ATF]) THEN                                     FUN       810
                                        *                   (APLEN) = (APLEN)+1                                  FUN       811
                                        *                   (X6) ENTERED IN APLIST                               FUN       812
                                        *                                                                        FUN       813
                                        *         USES ALL BUT A4,X4 B2-5                                        FUN       814
                                        *                                                                        FUN       815
                                        *         CALLS AAP                                                      FUN       816
                                                                                                                 FUN       817
                                                                                                                 FUN       818
           417  0400400417 +             ECA      SUBR               ENTRY/EXIT                                  FUN       819
           420  5120001226 +                      SA2    ATF                                                     FUN       820
                          7100000006              SX0    M.CHAR      MODE = CHAR                                 FUN       821
           421  76610                             =X6    1                                                       FUN       822
                     5130001241 +                 CLAS=  X3,AT,MODE                                              FUN       823
                               20671              LX6    AT.CHARP    POSITION CHAR BIT                           FUN       824
           422  15723                             BX7    -X3*X2      CLEAR MODE FIELD                            FUN       825
                     20061                        LX0    AT.MODEP                                                FUN       826
                          12776                   BX7    X7+X6       MERGE IN CHAR BITS                          FUN       827
                               12770              BX7    X7+X0       MERGE IN MODE                               FUN       828
           423  5170001226 +                      SA7    ATF                                                     FUN       829
                          66760                   SB7    B6          SET STORE FLAG FOR AAP                      FUN       830
           424  0100000242 +                      RJ     AAP         ENTER APLIST WORD                           FUN       831
           425  0400000417 +                      EQ     EXIT.                                                   FUN       832
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    20
        SUBROUTINES.                                                  ECW 
  
                                        **        ECW- ENTER CAC WORD                                            FUN       834
                                        *         HERE WE ENTER A CAC WORD                                       FUN       835
                                        *         AND CHECK FOR UNIQUENESS. IF                                   FUN       836
                                        *         THE ENTRY ALREADY EXISTS WE                                    FUN       837
                                        *         DELETE IT.                                                     FUN       838
                                        *                                                                        FUN       839
                                        *         ENTRY  (X6) = WC WORD FOR CAC (ONLY CLEN, RA, AND BCP)         FUN       840
                                        *                                                                        FUN       841
                                        *         EXIT   (X6) - PRESERVED                                        FUN       842
                                        *                (B7) = ORDINAL INTO CAC OF ENTRY                        FUN       843
                                        *                                                                        FUN       844
                                        *         USES - A1,A3 X0,X1,X5,X6 B6,B7                                 FUN       845
                                        *                                                                        FUN       846
                                        *         SAVES  X5,B2-B5                                                FUN       847
                                        *                                                                        FUN       848
                                        *         CALLS ADDWD                                                    FUN       849
                                                                                                                 FUN       850
                                                                                                                 FUN       851
           426  0400400426 +             ECW      SUBR               ENTRY/EXIT                                  FUN       852
           427  5110000000 X                      ADDWD  T.CAC       ADD WC WORD TO CAC                          FUN       853
           430  6167777776                        SB6    B7-1        (B6) = LWA(CAC)                             FUN       854
                          6170777776              SB7    -1                                                      FUN       855
           431  6177000001               ECW1     SB7    B7+1                                                    FUN       856
                          53317                   SA3    X1+B7                                                   FUN       857
                               13036              BX0    X3-X6       COMPARE TO NEW ENTRY                        FUN       858
           432  0310000431 +                      NZ     X0,ECW1     IF NOT A MATCH                              FUN       859
                          7222777776              SX2    X2-1        LENGTH IF ENTRY A DUP                       FUN       860
           433  75036                             SX0    A3-B6                                                   FUN       861
                     0300000426 +                 ZR     X0,EXIT.                                                FUN       862
                               10622              SHRINK T=CAC,X2                                                FUN       863
                          0400000426 +            EQ     EXIT.                                                   FUN       864
  
  
  
  
                                        **        ESC -  EXPAND SHORT CONSTANT                                   FUN       866
                                        *                                                                        FUN       867
                                        *         ENTRY  (X5) = PROPOSED SHORT CONSTANT                          FUN       868
                                        *                                                                        FUN       869
                                        *         EXIT   (X1) = (S=CON)                                          FUN       870
                                        *                (X3) = BIAS IN T.CON OF ENTERED VALUE.                  FUN       871
                                        *                                                                        FUN       872
                                        *         USES   A1,A3,A6  X0,X1,X2,X3,X6  B2,B7                         FUN       873
                                        *                                                                        FUN       874
                                        *         CALLS  ADW, SCT                                                FUN       875
                                                                                                                 FUN       876
                                                                                                                 FUN       877
           435  0400400435 +             ESC      SUBR   =                                                       FUN       878
           436  20520                             HX5    P2.BIAS     ADJUST TO GET SIGN EXTEND                   FUN       879
                     21544                        AX5    -P2.BIASL   SHIFT TO LOW WITH SIGN EXTEND               FUN       880
                          10655                   BX6    X5                                                      FUN       881
           437  5110000000 X                      SCAN   T.CON,SCT                                               FUN       882
           440  76370                             SX3    B7                                                      FUN       883
                     0670000443 +                 PL     B7,ESC10    IF CONSTANT IN TABLE                        FUN       884
           441  0100000000 X                      ADDWD  A1          ENTER CONSTANT                              FUN       885
           442  7232777776                        =X3    X2-1                                                    FUN       886
           443  5110000000 X             ESC10    SA1    S=CON                                                   FUN       887
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    21
        SUBROUTINES.                                                  ESC 
  
                          0400000435 +            EQ     EXIT.       EXIT...                                     FUN       888
  
  
  
  
                                        **        FIA - FORMAT INTERMEDIATE ARRAY REDERENCE                      FUN       890
                                        *         FIA CONTROLS APLIST CONSTRUCTION AND SETTING UP THE            FUN       891
                                        *         STORE CODE AND LIBRARY CALLS.                                  FUN       892
                                        *                                                                        FUN       893
                                        *         ENTRY  (X5) = OPERAND                                          FUN       894
                                        *                                                                        FUN       895
                                        *         EXIT   APLIST GENERATED AND PLUG CODE EMITED FOR ARRAY LOAD.   FUN       896
                                        *                APL ADDED FOR ARRAY                                     FUN       897
                                        *                                                                        FUN       898
                                        *         USES ALL                                                       FUN       899
                                        *         CALLS  PCA,SCA,SAP,PEJ                                         FUN       900
                                                                                                                 FUN       901
                                                                                                                 FUN       902
           444  0400400444 +             FIA      SUBR               ENTRY/EXIT                                  FUN       903
           445  10055                             BX0    X5                                                      FUN       904
                     5120000000 X                 SA2    T.PAR       GET FWA I. L.                               FUN       905
                               21024              AX0    P2.BIASP    POSITION I. L. ORD FOR ASSOCIATE OPERATOR   FUN       906
           446  63220                             SB2    X2                                                      FUN       907
                     63202                        SB2    X0+B2       (B2) _ ASSOCIATE                            FUN       908
                          77642                   SX6    B4-B2       (X6) = ADDR(ASSOCIATE)-ADDR(CURRENT OPR)    FUN       909
                               66420              SB4    B2          RESET -ALLOC LOCKED- OPR POINTER            FUN       910
           447  5160001233 +                      SA6    DEFDIF      SET DEFERED OPERATOR DIFERENCE              FUN       911
                                                                                                                 FUN       912
                                        **        WE NOW PROCESS THE APLIST FOR THE FIA                          FUN       913
                                        *         LIBRARY CALL.                                                  FUN       914
                                                                                                                 FUN       915
                          0100001137 +            RJ     SAS         STACK APLIST STRUCTURES                     FUN       916
           450  5150001203 +                      SA5    LEAF        GET ARRAY OPERAND                           FUN       917
                          0100000551 +            RJ     GAS         GET APLIST STATUS                           FUN       918
           451  0621000452 +                      GE     B2,B1,FIA1  IF IN CAC TABLE                             FUN       919
                          56241                   =A2    B4+OR.1OP   GET ARRAY SYMBOL OPERAND                    FUN       920
                               10122              BX1    X2                                                      FUN       921
                                                                                                                 FUN       922
           452  10611                    FIA1     BX6    X1          COPY STATUS WORD                            FUN       923
                     54610                        SA6    A1          SET STATUS WORD TAG = SYM TAB ORDINAL       FUN       924
                          0100000700 +            RJ     PCA         PASS ARRAY OPERAND TO APLIST                FUN       925
           453  5114000002                        SA1    B4+OR.2OP   GET ADDRESS FUNCTION                        FUN       926
                          0100000273 +            RJ     CCA         COMPLETE ARRAY REF                          FUN       927
           454  5130001233 +                      SA3    DEFDIF      GET OFFSET TO ORIGINAL TURPLE               FUN       928
                          63434                   SB4    B4+X3       RESET (B4)                                  FUN       929
           455  0400000444 +                      EQ     EXIT.                                                   FUN       930
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    22
        SUBROUTINES.                                                  FVS 
  
                                        **        FVS    FORMAT VARIABLE SUBSTRING                               FUN       932
                                        *         FVS HNDLES ALL THE STORE CODE, CAC, AND                        FUN       933
                                        *         APLIST ENTRIES SUBSTRING OPERANDS.                             FUN       934
                                        *                                                                        FUN       935
                                        *         ENTRY  (X5) =SUBSTRING OPERAND                                 FUN       936
                                        *                                                                        FUN       937
                                        *         EXIT   CODE, APLISTS, AND CAC ENTRIES MADE                     FUN       938
                                        *                (LEAF) = SUBSTRING OPERAND                              FUN       939
                                        *                                                                        FUN       940
                                        *         USES   ALL                                                     FUN       941
                                        *                                                                        FUN       942
                                        *         CALLS ECW,ESC,PCA,SSC,SCI                                      FUN       943
                                                                                                                 FUN       944
                                                                                                                 FUN       945
           456  0400400456 +             FVS      SUBR               ENTRY/EXIT.                                 FUN       946
           457  5130000000 X                      SA3    S=FVS       SYMBOL ORDINAL OF FORM VARIABLE SUBSTRING   FUN       947
                          10633                   BX6    X3                                                      FUN       948
                               43744              MX7    -P2.BIASL   SET I. L. ORDINAL MASK                      FUN       949
           460  5160000546 +                      SA6    FVSA        SAVE ROUTINE NAME                           FUN       950
                          5120000000 X            SA2    T.PAR       GET FWA I. L.                               FUN       951
           461  20550                             LX5    -P2.BIASP   POSITION I. L. ORDINAL                      FUN       952
                     63220                        SB2    X2                                                      FUN       953
                          15057                   BX0    -X7*X5      EXTRACT I. L. ORDINAL OF SBST TURPLE        FUN       954
                               63202              SB2    B2+X0       (B2) = LOC(SUBSTRING TURP)                  FUN       955
           462  77642                             SX6    B4-B2       LOC(ORIGINAL)-LOC(SBST)= ORD(ORG)-ORD(SBST) FUN       956
                     66420                        SB4    B2          RESET LOCKED TURPLE POINTER TO SBST TURP    FUN       957
                          5160001233 +            SA6    DEFDIF      SET DEFERED TURPLE DIFFERENCE               FUN       958
                                                                                                                 FUN       959
                                        **        COMPUTE I.L. ORDINAL OF COLON                                  FC5A246    15
                                        *         (X0) = SBST TURP ORDINAL                                       FUN       961
                                        *         (X2) = FWA I. L.                                               FUN       962
                                        *         (X6) = ORD(ORIGINAL) - ORD(SBST)                               FUN       963
                                        *         (X7) = P2.BIAS MASK                                            FUN       964
                                                                                                                 FUN       965
                                                                                                                 FUN       966
           463  5134000002                        SA3    B4+OR.2OP   GET : OPERAND                               FUN       967
                          36660                   IX6    X6+X0       (X6) = ORD(ORIGINAL)                        FUN       968
                               20350              LX3    -P2.BIASP   POSITION I. L. ORD OF : TURPLE              FUN       969
           464  15337                             BX3    -X7*X3      (X3) = I. L. ORDINAL OF :                   FUN       970
                     37736                        IX7    X3-X6       (X7) = ORD(:) - ORD(ORIGINAL)               FUN       971
                          5170001234 +            SA7    COLDIF      SET : DIFFERENCE CELL                       FUN       972
           465  63530                             SB5    X3          (B5) = ORD(:)                               FUN       973
                                                                                                                 FUN       974
                                        **        GET SET UP ARRAY CASE. RESET (B4) _ ARRAY TURP                 FUN       975
                                        *         (X0) = ORD(SBST)                                               FUN       976
                                        *         (X2) = FWA I. L.                                               FUN       977
                                        *         (B4) _ SBST TURP                                               FUN       978
                                                                                                                 FUN       979
                     56541                        =A5    B4+OR.1OP         GET CHARACTER OPERAND FORM            FUN       980
                          20561                   SBIT   X5,P2.INTRP                                             FUN       981
           466  0325000474 +                      PL     X5,FVS1     IF NOT INTERMEDIATE, (B4) IS CORRECT        FUN       982
                          20533                   LX5    1+P2.INTRP-P2.BIASP-P2.BIASL  PLACE ARRAY ORD HIGH      FUN       983
           467  5130000000 X                      SA3    S=FAS       SYMBOL ORDINAL OF FORMAT ARRAY SUBSTRING    FUN       984
                          10733                   BX7    X3                                                      FUN       985
           470  5170000546 +                      SA7    FVSA        SAVE ROUTINE                                FUN       986
                          5110001233 +            SA1    DEFDIF                        GET DEFERED TURPLE DIFF   FUN       987
           471  21544                             AX5    -P2.BIASL   SIGN EXTEND ARRAY ORD                       FUN       988
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    23
        SUBROUTINES.                                                  FVS 
  
                     36225                        IX2    X2+X5       (X2) _ ARRAY TURPLE                         FUN       989
                          36710                   IX7    X1+X0       (X7) = ORD(ORIGINAL)                        FUN       990
                               63420              SB4    X2          RESET LOCKED (B4) POINTER TO ARRAY          FUN       991
           472  37775                             IX7    X7-X5       (X7) = ORD(ORIGINAL) - ORD(ARRAY)           FUN       992
                     43001                        MX0    1                                                       FUN       993
                          12770                   BX7    X7+X0       SET BIT 59 TO INDICATE ARRAY                FUN       994
                               54710              SA7    A1          RESET DEFDIF                                FUN       995
           473  0400000523 +                      EQ     FVS3        CONTINUE WITH PLUG CASE                     FUN       996
                                                                                                                 FUN       997
                                                                                                                 FUN       998
                                        **        DECTECT AND EFFECT CONSTANT SUBSTRING CASE                     FUN       999
                                        *         (X5) = VARIABLE OPD (1OP[SBST]), SHIFTED P2.INTRP              FUN      1000
                                        *         (B5) = I. L. ORD( : TURPLE )                                   FUN      1001
                                                                                                                 FUN      1002
           474  5130000000 X             FVS1     SA3    T.PAR       GET FWA I. L.                               FUN      1003
                          73331                   =X3    X3+OR.1OP   ADD IN FIRST OPERAND OFFSET                 FUN      1004
                               53335              SA3    X3+B5       GET FIRST SBST INDEX                        FUN      1005
           475  20564                             SBIT   X5,P2.FPP/P2.INTRP                                      FUN      1006
                     10655                        BX6    X5          SAVE FP FLAG                                FC50651    13
                          5160000547 +            SA6    FVSB                                                    FC50651    14
           476  54531                             =A5    A3-OR.1OP+OR.2OP  GET SECOND SBST INDEX                 FUN      1008
                     11035                        BX0    X3*X5                                                   FUN      1009
                          20057                   SBIT   X0,P2.SHRTP                                             FUN      1010
           477  0320000523 +                      PL     X0,FVS3     IF AT LEAST ONE SUBSTRING INDEX IS VARIABLE FUN      1011
                          5150000547 +            SA5    FVSB        GET FP FLAG                                 FC50651    15
           500  0325000505 +                      PL     X5,FVS15    SKIP IF NOT FP                              FC50651    16
                          5130000000 X            SA3    T.PAR                                                   FC50651    17
           501  73331                             =X3    X3+OR.1OP   (X3) FWA I.L. OFFSET BY 1OP                 FC50651    18
                     53335                        SA3    X3+B5       GET FIRST SBST INDEX                        FC50651    19
                          54431                   =A4    A3-OR.1OP+OR.2OP  GET SECOND INDEX                      FC50651    20
                               20350              LX3    -P2.BIASP                                               FC50651    21
           502  20450                             LX4    -P2.BIASP                                               FC50651    22
                     6233777776                   SB3    X3-1        EVALUATE SUBSTRING LENGTH                   FC50651    23
                               63240              SB2    X4                                                      FC50651    24
           503  77723                             SX7    B2-B3       LEN = U.B. - ( L.B. - 1 )                   FC50651    25
                     5170000547 +                 SA7    FVSB        SAVE SUBSTRING LENGTH                       FC50651    26
           504  0400000523 +                      EQ     FVS3        GO STACK AND PLUG                           FC50651    27
                                                                                                                 FC50651    28
           505                           FVS15    BSS    0                                                       FC50651    29
           505  43600                             MX6    0           FVSB CONTAINS FLAG, SET TO ZERO             FC51566     8
                     5160000547 +                 SA6    FVSB        TO AVOID USING FOR CONST. SUBST. SIZE       FC51566     9
           506  5150001203 +                      SA5    LEAF        GET SBST INTERMEDIATE OPERAND               FUN      1012
                          0100000551 +            RJ     GAS         GET APLIST STATUS                           FUN      1013
           507  0702000520 +                      LT     B0,B2,FVS2  ID IN CAC TAB                               FUN      1014
                                                                                                                 FUN      1015
                                                                                                                 FUN      1016
                                        **        ENTER CONSTANT SBST IN APLIST                                  FUN      1017
                                        *         (A1,X1) _,= STATUS WORD                                        FUN      1018
                                        *         (B5) = ORD(:)                                                  FUN      1019
                                                                                                                 FUN      1020
                          5124000001              SA2    B4+OR.1OP   GET CHARACTER OPERAND                       FUN      1021
           510  10622                             BX6    X2                                                      FUN      1022
                     54610                        SA6    A1          RESET STATUS WORD                           FUN      1023
                          54110                   SA1    A1          GET NEW STATUS WORD                         FUN      1024
           511  0100001207 +                      RJ     SCB         SUBSUME CONSTANT BIAS                       FUN      1025
           512  5130000000 X                      SA3    T.PAR                                                   FUN      1026
                          73331                   =X3    X3+OR.1OP   (X3) FWA I. L. OFFSET BY 1OP                FUN      1027
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    24
        SUBROUTINES.                                                  FVS 
  
                               53335              SA3    X3+B5       GET FIRST SBST INDEX                        FUN      1028
           513  54431                             =A4    A3-OR.1OP+OR.2OP GET SECOND INDEX                       FUN      1029
                     20350                        LX3    -P2.BIASP                                               FUN      1030
                          20450                   LX4    -P2.BIASP                                               FUN      1031
           514  0100000000 X                      CALL   ECS                                                     FUN      1032
           515  76570                             SX5    B7          (X5) = EQUIV CLASS BASE SYM TAB ORD         FUN      1033
                     0100000426 +                 RJ     ECW         ENTER CAC WORD                              FUN      1034
           516  7235000000                        SX3    X5+         (X3) = EQIV CLASS BASE SYMBOL ORD           FUN      1035
                          5150001203 +            SA5    LEAF                                                    FUN      1036
           517  0100001167 +                      RJ     SSC         SET STATUS OF CHARACTER                     FUN      1037
           520  6120000001               FVS2     SB2    1                                                       FUN      1038
                          0100000700 +            RJ     PCA         PROCESS CHARACTER APLIST ITEM               FUN      1039
           521  5110001233 +                      SA1    DEFDIF                                                  FUN      1040
                          63414                   SB4    B4+X1       RESET (B4)                                  FUN      1041
           522  0400000456 +                      EQ     EXIT.                                                   FUN      1042
                                                                                                                 FUN      1043
                                        **        MAIN CASE: FP'S,  ARRAYS,  AND VARIABLE SUBSTRINGS             FUN      1044
                                        *         TASKS: STACK CURRENT APLIST,  CREATE A SUBSTRING APLIST,       FUN      1045
                                        *         POP BACK TO OUR ORIGINAL APLIST,  WRITE SOME PLUG CODE         FUN      1046
                                        *         TO THE TO A DUMMY ENTRY IN THE ORIGINAL APLIST, AND ADD        FUN      1047
                                        *         THAT DUMMY TO THE APLIST.                                      FUN      1048
                                                                                                                 FUN      1049
           523  0100001137 +             FVS3     RJ     SAS         STACK APLIST INFO                           FUN      1050
           524  5150001203 +                      SA5    LEAF        GET SUBSTRING OPERAND                       FUN      1051
                          0100000551 +            RJ     GAS         GET APLIST STATUS OF SUBSTRING              FUN      1052
           525  0702000526 +                      LT     B0,B2,FVS4  IF ALREADY IN CAC TABLE                     FUN      1053
                          5114000001              SA1    B4+OR.1OP   GET CHARACTER OPERAND                       FUN      1054
                                                                                                                 FUN      1055
           526  10611                    FVS4     BX6    X1                                                      FUN      1056
                     54610                        SA6    A1          PLACE CORRECT SYMTAB ORDINAL IN STATUS WORD FUN      1057
                          0100000700 +            RJ     PCA         PROCESS CHARACTER AP                        FUN      1058
           527  5120001233 +                      SA2    DEFDIF      GET DEFERED TURPLE DIFFERENCE               FUN      1059
                          43700                   MX7    0                                                       FUN      1060
           530  5170001226 +                      SA7    ATF         INDEX AND SUBSTRING INDS NOT CHAR           FUN      1061
                          0322000532 +            PL     X2,FVS5     IF NOT ARRAY INTERMED.                      FUN      1062
           531  5114000002                        SA1    B4+OR.2OP   GET ADDRESS FUNCTION                        FUN      1063
                          0100001056 +            RJ     SAP         SELECT NORMAL APLIST PROCESSOR              FUN      1064
                                                                                                                 FUN      1065
           532  5120001233 +             FVS5     SA2    DEFDIF      GET DEFERED TURPLE ORDINAL DIFFERENCE       FUN      1066
                          5110001234 +            SA1    COLDIF      GET COLIN TURPLE DIFFERENCE                 FUN      1067
           533  63424                             SB4    B4+X2       RESET (B4) _ ORIGINAL TURPLE                FUN      1068
                     63414                        SB4    B4+X1       SET (B4) _ : TURPLE                         FUN      1069
                          14611                   BX6    -X1         (X6) = I.L. ORD(ORIGINAL) - ORD(:)          FUN      1070
                               54610              SA6    A1          RESET COLDIF                                FUN      1071
           534  5114000001                        SA1    B4+OR.1OP   GET FIRST SBST INDEX FUNCTION               FUN      1072
                          0100001056 +            RJ     SAP         OUTPUT APLIST WORD                          FUN      1073
           535  5114000002                        SA1    B4+OR.2OP   GET SECOND SBST INDEX FUNCTION              FUN      1074
                          0100001056 +            RJ     SAP         OUTPUT APLIST WORD                          FUN      1075
           536  5110000546 +                      SA1    FVSA        GET SUBSTRING ROUTINE SYM TAB ORD           FUN      1076
                          20154                   LX1    P2.TAGP     POSITION ORDINAL                            FUN      1077
                               10611              BX6    X1                                                      FUN      1078
           537  5160000000 X                      SA6    ROUTNAM     SET SUBSTRING ROUTINE NAME FOR PEJ          FUN      1079
                          0100001033 +            RJ     PEJ         PROCESS EXTERNAL JUMP TO SUBSTRING ROUTINE  FUN      1080
           540  5110001234 +                      SA1    COLDIF                                                  FUN      1081
                          0100000662 +            RJ     PAS         POP APLIST STRUCTURE                        FUN      1082
           541  63414                             SB4    B4+X1       (B4) _ ORIGINAL TURPLE                      FUN      1083
                     0100001150 +                 RJ     SCI         STORE INTO CHARACTER ITEM                   FUN      1084
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    25
        SUBROUTINES.                                                  FVS 
  
           542  5150001203 +                      SA5    LEAF                                                    FUN      1085
                          0100000551 +            RJ     GAS         GET STATUS WORD OF SUBSTRING                FUN      1086
           543  6160000001                        SB6    1           SET PLUG FLAG                               FUN      1087
                          0100000417 +            RJ     ECA         ENTER DUMMY ITEM                            FUN      1088
           544  7170000001                        SX7    1                                                       FC5A243   102
                          5170000550 +            SA7    FVSUKL      MARK EXPRESSION LENGTH NOT KNOWN            FC5A243   103
           545  0400000456 +                      EQ     EXIT.                                                   FUN      1089
                                                                                                                 FUN      1090
           546                     1     FVSA     BSS    1                                                       FUN      1091
           547                     1     FVSB     BSS    1                                                       FC50651    30
           550                     1     FVSUKL   BSSZ   1                                                       FC5A243   104
  
  
  
  
                                        **        GAS    GET APLIST STATUS OF OPERAND                            FUN      1093
                                        *                                                                        FUN      1094
                                        *         GAS CHECKS WHETHER A CHARACTER INTERMEDIATE IS IN              FUN      1095
                                        *         TEMPORARY STORAGE, TO AVIOD DUPLICATE ALLOCATIONS              FUN      1096
                                        *         FOR THE SAME OPERAND.  IT ALSO CHECKS TYPE AND FINDS A         FUN      1097
                                        *         CAC ORDINAL IF ONE EXISTS.                                     FUN      1098
                                        *                                                                        FUN      1099
                                        *         ENTRY - (X5) = I. L. ENTRY FOR OPERAND                         FUN      1100
                                        *                                                                        FUN      1101
                                        *         EXIT - (A1)_,(X1)= OPERAND STATUS WORD                         FUN      1102
                                        *                (X5) - PRESERVED                                        FUN      1103
                                        *                (B2) = -1: IF OPD NO TYPE CHARACTER                     FUN      1104
                                        *                        0: IF TYPE[OPD] = CHAR BUT NO CAC ENTRY EXISTS  FUN      1105
                                        *                        1: FOR TYPE CHAR WITH CAC ENTRY BUT NOT A TEMP  FUN      1106
                                        *                        2: FOR CHAR TEMPS (=> IN CAC TAB)               FUN      1107
                                        *                        3: STATUS IS ADJUSTED-LENGTH ITEM (FROM MMC.)   FC5A243   105
                                        *                (B7) = CAC ORDINAL IF (B2) .GE. 1                       FUN      1108
                                        *                                                                        FUN      1109
                                        *         USES   A1,A6, X0,X1,X5,X6, B2,B7                               FUN      1110
                                                                                                                 FUN      1111
                                                                                                                 FUN      1112
           551  0400400551 +             GAS      SUBR               ENTRY/EXIT                                  FUN      1113
           552  22605                             LX6    X5                                                      FUN      1114
                     66200                        =B2    0           SET NOT IN TEMP OR CAC                      FUN      1115
                          10155                   BX1    X5                                                      FUN      1116
                               43063              MX0    -P2.USEL                                                FUN      1117
           553  5160000564 +                      SA6    GASA        SAVE OPD FOR LATER CALL                     FUN      1118
                          15050                   BX0    -X0*X5      EXTRACT USE COUNT                           FUN      1119
           554  0300000551 +                      ZR     X0,EXIT.    IF NO STATUS WORD EXISTS                    FUN      1120
                          5110000000 X            SA1    T.OUS       GET FWA OF STATUS WORD TABLE                FUN      1121
           555  20520                             LX5    -P2.TAGP    POSITION OUS ORDINAL                        FUN      1122
                     63710                        SB7    X1                                                      FUN      1123
                          43054                   MX0    -P2.TAGL                                                FUN      1124
                               15050              BX0    -X0*X5                                                  FUN      1125
           556  53107                             SA1    B7+X0       GET STATUS WORD                             FUN      1126
                     10611                        BX6    X1                                                      FUN      1127
                          20554                   LX5    P2.TAGP                                                 FUN      1128
                               20654              SBIT   X6,ST.CACP                                              FUN      1129
           557  0326000551 +                      PL     X6,EXIT.    IF NOT IN CAC TAB                           FUN      1130
                          66221                   =B2    B2+1              SET IN CAC BUT NOT TEMP               FUN      1131
                               20673              SBIT   X6,ST.CTMP/ST.CACP                                      FUN      1132
           560  0326000562 +                      PL     X6,GAS1     IF NOT A TEMPORARY                          FUN      1133
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    26
        SUBROUTINES.                                                  GAS 
  
                          66221                   =B2    B2+1                      SET CHAR TEMP FLAG            FUN      1134
                               10066              BX0    X6                                                      FC5A243   106
           561  20002                             SBIT   X0,ST.UKLP/ST.CTMP                                      FC5A243   107
                     0320000562 +                 PL     X0,GAS1     IF NOT UNKNOWN LENGTH                       FC5A243   108
                               66221              =B2    B2+1                                                    FC5A243   109
                                                                                                                 FC5A243   110
           562  43044                    GAS1     MX0    -P2.BIASL   SET CAC ORDINAL MASK                        FUN      1135
                     20671                        LX6    1+ST.CTMP-P2.BIASP    POSITION CAC ORDINAL              FUN      1136
                          15060                   BX0    -X0*X6                EXTRACT CAC ORDINAL               FUN      1137
                               63700              SB7    X0                                                      FUN      1138
           563  0400000551 +                      EQ     EXIT.                                                   FUN      1139
                                                                                                                 FUN      1140
           564                     1     GASA     BSSZ   1                                                       FUN      1141
  
  
  
  
                                        **        GNO - GET NEXT OPERAND                                         FUN      1143
                                        *         THIS IS THE ACTUAL CONCATENATION TREE SPANNER.  EACH           FC5A246    16
                                        *         CALL PRODUCES THE NEXT LEAF AND THE NEXT RIGHT TREE            FUN      1145
                                        *         LINK, (OR.2OP), TO EXPLORE. THESE ARE SAVED IN LEAF            FUN      1146
                                        *         AND LNK.CUR RESP.  THE WALK DOES NOT INVOLVE A STACK           FUN      1147
                                        *         BUT INSTEAD RELIES ON A SYSTEM OF STORING PREVIOUS             FUN      1148
                                        *         LINKS DIRECTLY IN THE I. L.  UPON EXIT LNK.LST IS SET          FUN      1149
                                        *         TO THE VALUE OF THE LAST LINK OPERAND.  LNK.CUR                FUN      1150
                                        *         BECOMES THE NEXT R-LINK TO SEARCH, AND THE                     FUN      1151
                                        *         I. L. LOCATION OF THE CURRENT LINK IS PLUGGED WITH             FUN      1152
                                        *         LINK PRECEEDING THE LAST LINK.                                 FUN      1153
                                        *                                                                        FUN      1154
                                        *         NOTE - TO GNO OPERANDS ARE ONLY INPORTANT AS LINKS             FUN      1155
                                        *                IN THE TREE OR AS LEAVES. BGA ACTUALLY *VISITS*         FUN      1156
                                        *                THE LEAVES BY PUTTING THEM IN THE APLIST.               FUN      1157
                                        *                                                                        FUN      1158
                                        *         ENTRY  (LNK.CUR) = THE CURRENT LINK TO INVESTIGATE             FUN      1159
                                        *                (LNK.LST) = IS THE LAST LINK OPERAND VISITED            FUN      1160
                                        *                (X5) = LNK.CUR                                          FUN      1161
                                        *                                                                        FUN      1162
                                        *         EXIT   (LEAF) = NEXT OPERAND TO ADD TO APLIST                  FUN      1163
                                        *                LNK.CUR AND LNK.LST ARE SET AS ABOVE.                   FUN      1164
                                                                                                                 FUN      1165
                                                                                                                 FUN      1166
           565  0400400565 +             GNO      SUBR               ENTRY/EXIT                                  FUN      1167
           566  7100000400                        SX0    RLOCK       LOCK BIT  DISTINGUISHES 1OP FROM 2OP        FUN      1168
                          5120001205 +            SA2    LNK.LST     GET LAST LINK                               FUN      1169
           567  5110000000 X                      SA1    T.PAR       GET FWA I. L.                               FUN      1170
                          6170000062              SB7    59-P2.CNCTP SET CONCAT BIT SHIFT COUNT                  FUN      1171
           570  63211                             =B2    X1+OR.1OP   OFFSET FWA BY FIRST OPD POSITION            FUN      1172
                     22775                        LX7    B7,X5       POSITION CONCAT BIT FOR TEST                FUN      1173
                          0400000573 +            EQ     GNO2        JUMP TO END OF LEFT LINK LOOP               FUN      1174
                                                                                                                 FUN      1175
                                        **        LEFT LINK LOOP:   HERE WE WALK UP THE I. L.                    FUN      1176
                                        *         STORING LINKS AND FETCHING NEW LINKS UNTIL                     FUN      1177
                                        *         WE ENCOUNTER A NON-CONCATENATION OPERAND.                      FC5A246    17
                                        *         THIS IS THE LEAF.                                              FUN      1179
                                                                                                                 FUN      1180
           571  20762                    GNO1     LX7    1+P2.CNCTP-P2.BIASP   POSITION I. L. ORDINAL OF LINK    FUN      1181
                     10622                        BX6    X2                    (X6) = LAST LINK                  FUN      1182
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    27
        SUBROUTINES.                                                  GNO 
  
                          53172                   SA1    B2+X7       NEXT LINK = OR.1OP(BIAS[CURNT OP])          FUN      1183
                               10255              BX2    X5          LAST LINK = CURRENT LINK                    FUN      1184
           572  22771                             LX7    B7,X1       POSITION CONCAT BIT OF NEXT LINK            FUN      1185
                     5061000000                   SA6    A1+         OR.1OP(BIAS[CURNT OP]) = LAST LINK          FUN      1186
                               12501              BX5    X0+X1       CURRENT LINK = NEXT LINK WITH LOCK BIT SET  FUN      1187
           573  0337000571 +             GNO2     MI     X7,GNO1     IF CURRENT OPERAND IS A LINK                FUN      1188
                                                                                                                 FUN      1189
                                        **        WE HAVE A LEAF                                                 FUN      1190
                                        *         (X2) = NEW LAST LINK                                           FUN      1191
                                        *         (X5) = LEAF                                                    FUN      1192
                                        *         (X7) = (X5) SHIFTED BY 59-P2.CNCTP                             FUN      1193
                                        *         (B2) = (T.PAR)+OR.1OP                                          FUN      1194
                                                                                                                 FUN      1195
                          11605                   BX6    X0*X5       EXTRACT LOCK BIT FOR 1ST (LEFT) OPD TEST    FUN      1196
                               20712              LX7    1+P2.CNCTP        RESET CUR OPD, IT'S A LEAF            FUN      1197
           574  5170001203 +                      SA7    LEAF                                                    FUN      1198
                          6122000001              SB2    B2-OR.1OP+OR.2OP  (B2) = FWA I. L. + OR.2OP             FUN      1199
           575  10722                             BX7    X2          PREPARE FOR RIGHT LINK RESET LOOP           FUN      1200
                     0400000600 +                 EQ     GNO4        ENTER BACKTRACK LOOP                        FUN      1201
                                                                                                                 FUN      1202
                                        **        HERE WE STEP BACK DOWN THE I. L. REPLACING                     FUN      1203
                                        *         OPERANDS UNTIL WE FIND A LINK THAT IS A LEFT                   FUN      1204
                                        *         OPERAND.                                                       FUN      1205
                                                                                                                 FUN      1206
           576  21724                    GNO3     AX7    P2.BIASP                                                FUN      1207
                     10655                        BX6    X5          CUR = CURRENT LINK                          FUN      1208
                          53172                   SA1    B2+X7       LST = OR.2OP(BIAS[LAST LINK])               FUN      1209
                                   6              ERRMI  P2.BIASL-18                                             FUN      1210
                               22502              LX5    X2          CURRENT LINK = LAST LINK                    FUN      1211
           577  54610                             SA6    A1          OR.2OP(BIAS[LAST LINK]) = CUR               FUN      1212
                     22201                        LX2    X1          LAST LINK = LST                             FUN      1213
                          11605                   BX6    X0*X5       (X6) = LOCK BIT (CURRENT LINK)              FUN      1214
                               22702              LX7    X2                                                      FUN      1215
           600  0306000576 +             GNO4     ZR     X6,GNO3     IF NOT A 1ST (LEFT) OPD                     FUN      1216
                                                                                                                 FUN      1217
                          21224                   AX2    P2.BIASP    POSITION I. L, ORDINAL OF LAST LINK         FUN      1218
           601  5170001205 +                      SA7    LNK.LST     SET LAST LINK FOR RETURN                    FUN      1219
                          53122                   SA1    B2+X2       (X1) = OR.2OP(BIAS[LAST LINK])              FUN      1220
                               15610              BX6    -X0*X1      CLEAR LOCK BIT OR CURRENT LINK              FUN      1221
           602  5160001204 +                      SA6    LNK.CUR     SET CURRENT LINK FOR NEXT CALL              FUN      1222
                          0301000565 +            ZR     X1,EXIT.    IF OUR NEW R-LINK IS THE END OR WALK FLAG   FUN      1223
                                                                                                                 FUN      1224
           603  5021777776                        SA2    A1-OR.2OP+OR.1OP  GET OR.1OP (LEFT) OPD                 FUN      1225
                          22702                   LX7    X2                                                      FUN      1226
                               54710              SA7    A1          STORE PREVIOUS LAST LINK IN 2OP ,RIGHT OPD  FUN      1227
           604  15650                             BX6    -X0*X5      CLEAR LOCK BIT TO RESTORE OPERAND           FUN      1228
                     54620                        SA6    A2          RESET I. L. ENTRY TO ORIGINAL VALUE         FUN      1229
                          0400000565 +            EQ     EXIT.                                                   FUN      1230
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    28
        SUBROUTINES.                                                  IAS 
  
                                        **        IAS - STACK APLIST STRUCTURES                                  FUN      1232
                                        *         APLEN, APTAB, APIND, AND ATF ARE INITIALIZED HERE              FUN      1233
                                        *                                                                        FUN      1234
                                        *         ENTRY  (B5) _ APLIST INDEX TABLE POINTER WORD                  FUN      1235
                                        *                (B6) _ APLIST TABLE POINTER WORD                        FUN      1236
                                        *                                                                        FUN      1237
                                        *         EXIT   (B6) = CURRENT STACK DEPTH                              FUN      1238
                                        *                (LEVEL) = (B6)                                          FUN      1239
                                        *                (APLEN) = 0                                             FUN      1240
                                        *                (APTAB) = 42/INDX OF FW OF LIST,18/TAB CONTAINING LIST  FUN      1241
                                        *                (APIND) = APL NUMBER FOR - SA1  AP.(APIND) -            FUN      1242
                                        *                (ATF) = 0                                               FUN      1243
                                        *                (APLIST INDEX TABLE + (APIND)) = 0                      FUN      1244
                                        *                                                                        FUN      1245
                                        *         USES A1,A2,A3,A6   X1,X2,X3,X6   B5,B6                         FUN      1246
                                                                                                                 FUN      1247
                                                                                                                 FUN      1248
           605  0400400605 +             IAS      SUBR               ENTRY/EXIT.                                 FUN      1249
           606  5130001235 +                      SA3    LEVEL       GET CURRENT STACK DEPTH                     FUN      1250
                          43600                   MX6    0                                                       FUN      1251
           607  5160001226 +                      SA6    ATF         APLIST TYPE FLAG = 0                        FUN      1252
                          0313000611 +            NZ     X3,IAS1     IF LEVEL NOT ZERO INITIALIZE                FUN      1253
                                                                                                                 FUN      1254
                                        **        WE MUST DETERMINE IF THIS IS A SECOND VISIT                    FUN      1255
                                        *         OF IAS FOR THIS ZERO LEVEL APL.                                FUN      1256
                                                                                                                 FUN      1257
           610  5120001232 +                      SA2    FAF         GET FIRST APLIST FLAG                       FUN      1258
                          0312000605 +            NZ     X2,EXIT.    IF NOT FIRST VISIT INITIALIZE               FUN      1259
                                                                                                                 FUN      1260
                                        **        INITIALIZE VALUES                                              FUN      1261
                                                                                                                 FUN      1262
           611  76610                    IAS1     =X6    1                                                       FUN      1263
                     5160001232 +                 SA6    FAF         TURN FIRST APL FLAG OFF                     FUN      1264
                               76660              SX6    B6          (X6) = APLIST TABLE PTR                     FUN      1265
           612  5116000000 X                      SA1    B6+N.TABLE  (X1) = APLIST TABLE LEN WORD                FUN      1266
                          20122                   LX1    18                                                      FUN      1267
                               36616              IX6    X1+X6                                                   FUN      1268
           613  5160001223 +                      SA6    APTAB       SET APLIST TABLES CELL                      FUN      1269
                          5115000000 X            SA1    B5+N.TABLE  GET ORDINAL INTO INDEX TABLE                FUN      1270
           614  10611                             BX6    X1                                                      FUN      1271
                     5160001220 +                 SA6    APIND                                                   FUN      1272
           615  0313000616 +                      NZ     X3,IAS2     IF NOT USER FUNCTION                        FUN      1273
                          5160000620 +            SA6    UAP         FLAG LAST USER APLIST FOR RETURNS PROCESSOR FUN      1274
                                                                                                                 FUN      1275
           616  43600                    IAS2     MX6    0                                                       FUN      1276
                     56150                        ADDWD  B5          ADD 0 WORD TO AP INDEX TAB                  FUN      1277
           617  5160001215 +                      SA6    APLEN       INITIALIZE APLEN                            FUN      1278
                          0400000605 +            EQ     EXIT.                                                   FUN      1279
                                                                                                                 FUN      1280
           620                     1     UAP      BSSENT 1                                                       FUN      1281
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    29
        SUBROUTINES.                                                  IAW 
  
                                        **        IAW - ISSUE APLIST WORD.                                       FUN      1283
                                        *         CONTROLS ADDITION OF APLIST ITEM TO APPROPIATE (APL OR IOA)    FUN      1284
                                        *         TABLE,  AND FILING OF OPT2 USE/DEF ENTRY.                      FUN      1285
                                        *         SET AT.LEV0 IF THIS OPD IS LEVEL 0.                            FUN      1286
                                        *                                                                        FUN      1287
                                        *         ENTRY  (X1) = OPD, OPERAND WORD.                               FUN      1288
                                        *                                                                        FUN      1289
                                        *         EXIT   APLIST ENTRY MADE FOR INCOMMING OPERAND WORD            FUN      1290
                                        *                                                                        FUN      1291
                                        *         NOTE   THE ENTRY MADE MAY BE A TEMP RESULTING FROM A CONCAT    FUN      1292
                                        *                WALK, A DUMMY TO BE PLUGGED, A POINTER TO THE CLW,      FUN      1293
                                        *                TABLE OR A SIMPLE IA. REPRESENTATION OF THE OPERAND.    FUN      1294
                                        *                                                                        FUN      1295
                                        *         USES   ALL                                                     FUN      1296
                                        *         CALLS  GAS,PCL,DAC,SAP                                         FUN      1297
                                                                                                                 FUN      1298
                                                                                                                 FUN      1299
           621  0400400621 +             IAW      SUBR               ENTRY/EXIT                                  FUN      1300
           622  10511                             BX5    X1                                                      FUN      1301
                     5134000000                   SA3    B4+OR.OPR                                               FUN      1302
           623  0100000551 +                      RJ     GAS         GET APLIST STATUS                           FUN      1303
           624  5120001226 +                      SA2    ATF                                                     FUN      1304
                          43070                   MX0    -OP.MODEL                                               FUN      1305
                               20352              LX3    -OP.MODEP                                               FUN      1306
           625  15630                             BX6    -X0*X3                                                  FUN      1307
                     6266777771                   SB6    X6-M.CHAR   (B6) = MODE - CHARATER MODE                 FUN      1308
                               20661              LX6    AT.MODEP                                                FUN      1309
           626  12726                             BX7    X2+X6       MODE[ATF] = MODE[TURP(1)]                   FUN      1310
                     5170001226 +                 SA7    ATF                                                     FUN      1311
           627  0460000632 +                      ZR     B6,IAW30    IF CHARACTER                                FC5A165     9
                          5110000564 +            SA1    GASA        GET ORIGINAL OPERAND                        FUN      1313
           630  0100001056 +                      RJ     SAP         SELECT APLIST PROCESS                       FC5A246    18
           631  0400000621 +                      EQ     EXIT.                                                   FUN      1315
                                                                                                                 FUN      1316
                                         IAW30    HX7    AT.LEN                                                  FUN      1317
           632  0327000635 +                      PL     X7,IAW40    IF NOT PROCESSING CHAR ITEM LENGTH          FUN      1318
                          5110000564 +            SA1    GASA        GET ORIGINAL OPERAND                        FUN      1319
           633  0100000760 +                      RJ     PCL         PROCESS CHAR LEN                            FUN      1320
           634  0400000621 +                      EQ     EXIT.                                                   FUN      1321
                                                                                                                 FUN      1322
           635  0100000343 +             IAW40    RJ     DAC         DETERMINE APLIST COMPLEXITY                 FUN      1323
           636  0400000621 +                      EQ     EXIT.                                                   FUN      1324
  
  
  
  
                                        **        LUA - LOAD UNKNOWN LENGTH ADJUSTED TEMP.                       FC5A243   112
                                        *                                                                        FC5A243   113
                                        *         ENTRY  B7 = CAC ORDINAL FROM STATUS WORD                       FC5A243   114
                                                                                                                 FC5A243   115
           637                           O=LURET  BSSENT 0           RETURN FROM SKELETON                        FC5A243   116
           637  0400400637 +             LUA      SUBR                                                           FC5A243   117
           640  6120000026                        SB2    REG.X+6                                                 FC5A243   118
                          66670                   SB6    B7                                                      FC5A243   119
           641  0100000000 X                      CALL   RUT         CLEAR X6                                    FC5A243   120
           642  0100000401 +                      RJ     DAT         SET UP ST.+K FOR SKEL                       FC5A243   121
           643  7160000000 X                      SX6    W=LUA                                                   FC5A246    19
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    30
        SUBROUTINES.                                                  LUA 
  
                          0400000000 X            EQ     SUB.RET                                                 FC5A243   123
  
  
  
  
                                        **        NAP -  ENTER AP-LIST IN TABLE.                                 FUN      1326
                                        *                                                                        FUN      1327
                                        *         ENTRY  (B3) = LENGTH OF AP-LIST (INCLUDING THE ZERO WORD, IF   FUN      1328
                                        *                            ANY).                                       FUN      1329
                                        *                THE AP-LIST TO BE ENTERED IS THE LAST (B3) WORDS OF     FUN      1330
                                        *                            T.APL.                                      FUN      1331
                                        *                                                                        FUN      1332
                                        *         EXIT   (X6) = AP-TAG OF THE INDICATED LIST.                    FUN      1333
                                        *                (X3) = AP ORDINAL OF THIS AP-LIST.                      FUN      1334
                                        *                (TG.APL) IS UPDATED, AND ADDRESS OF TAG DEFINED.        FUN      1335
                                        *                                                                        FUN      1336
                                        *         USES   A1,A2,A3,A6  B2,B3,B7  X0                               FUN      1337
                                        *                                                                        FUN      1338
                                        *         CALLS  DPT, NCM                                                FUN      1339
                                                                                                                 FUN      1340
                                                                                                                 FUN      1341
           644  0400400644 +             NAP      SUBR               ...ENTRY/EXIT...                            FUN      1342
           645  5215000000 X                      SA1    T.APL+X5                                                FUN      1343
                          5225000000 X            SA2    T=APL+X5                                                FUN      1344
           646  67703                             SB7    -B3                                                     FUN      1345
                     63550                        SB5    X5                                                      FUN      1346
                          36012                   IX0    X1+X2       LWA+1 OF LIST                               FUN      1347
                               63207              SB2    X0+B7       FWA LIST = LWA+1 - LEN                      FUN      1348
           647  63300                             SB3    X0          (B3) = LWA + 1 FOR NCM                      FUN      1349
                     73627                        SX6    X2+B7       FAKE LENGTH FOR *NCM* PROCESSING.           FUN      1350
                          54620                   SA6    A2          RESET LENGTH FOR *NCM*                      FUN      1351
           650  0100000000 X                      CALL   NCM         SEARCH AP-TABLE FOR DUPLICATE LIST          FUN      1352
           651  76550                             =X5    B5                                                      FUN      1353
                     0670000654 +                 PL     B7,NAP1     IF ALREADY IN T.APL                         FUN      1354
           652  5125000000 X                      SA2    T=APL+B5                                                FUN      1355
                          36620                   IX6    X2+X0       RESTORE LENGTH                              FUN      1356
                               54620              SA6    A2          RESET T=APL                                 FUN      1357
           653  22602                             LX6    X2          ORDINAL OF T.APL ENTRY                      FUN      1358
                                                                                                                 FUN      1359
                                        **        ADD WC FORMAT WORD TO T.API AND CONSTRUCT A NEW TAG FOR CALLER FUN      1360
                                                                                                                 FUN      1361
           654  76210                    NAP1     =X2    1           WC.RL = 1                                   FUN      1362
                     23656                        AX6    B5                                                      FUN      1363
                          7135000000 X            SX3    BN=APL+B5   WC.RB = BN=APL                              FUN      1364
                                                  LX6    WC.RAP                                                  FUN      1365
           655  20272                             LX2    WC.RLP                                                  FUN      1366
                     36626                        IX6    X2+X6       ORDINAL + WC.RL                             FUN      1367
                          20360                   LX3    WC.RBP                                                  FUN      1368
                               12636              BX6    X3+X6       WC.RL + WC.RB + WC.RA                       FUN      1369
           656  5115000000 X                      SA1    T.API+B5    GET FWA OF APLIST INDEX                     FUN      1370
                          5120001220 +            SA2    APIND       GET ORDINAL INTO INDEX TABLE                FUN      1371
           657  36121                             IX1    X2+X1       ADD TABLE BASE TO INDEX                     FUN      1372
                     53610                        SA6    X1          SET   API ENTRY                             FUN      1373
                          20517                   LX5    P=PFX       POSITION APLIST TYPE OFFSET                 FUN      1374
           660  7262200000                        SX6    X2+K.AP     TAB = K.AP + APIND                          FUN      1375
                          36665                   IX6    X6+X5       ADD IN OFFSET                               FUN      1376
                               20652              LX6    IA.TAGP                                                 FUN      1377
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    31
        SUBROUTINES.                                                  NAP 
  
           661  0400000644 +                      EQ     EXIT.                                                   FUN      1378
  
  
  
  
                                        **        PAS - POP APLIST STRUCTURES                                    FUN      1380
                                        *         THIS ROUTINE ADJUSTS THE LEVEL AND RESTORES                    FUN      1381
                                        *         THE APLIST CELLS FROM THE PREVIOUS LEVEL.                      FUN      1382
                                        *                                                                        FUN      1383
                                        *         ENTRY  (LEVEL) = APLIST STACK DEPTH                            FUN      1384
                                        *                                                                        FUN      1385
                                        *         EXIT   (LEVEL) = (LEVEL)-1                                     FUN      1386
                                        *                (APLEN) = (APLEN+(LEVEL))                               FUN      1387
                                        *                (APTAB) = (APTAB+(LEVEL))                               FUN      1388
                                        *                (APIND) = (APIND+(LEVEL))                               FUN      1389
                                        *                (ATF) = (ATF+(LEVEL))                                   FUN      1390
                                        *                                                                        FUN      1391
                                        *         USES A2,A3,A6,  X2,X3,X6, B6                                   FUN      1392
                                                                                                                 FUN      1393
                                                                                                                 FUN      1394
           662  0400400662 +             PAS      SUBR               ENTRY/EXIT                                  FUN      1395
           663  5130001235 +                      SA3    LEVEL                                                   FUN      1396
                          63630                   SB6    X3                                                      FUN      1397
                                                                                                                 FUN      1398
                                         .POP     ECHO   ,P=(APLEN,APTAB,APIND,ATF)    P(0)=P(LEVEL)             FUN      1399
                                                  SA2    P+B6                                                    FUN      1400
                                                  BX6    X2                                                      FUN      1401
                                                  SA6    A2-B6                                                   FUN      1402
                                         .POP     ENDD                                                           FUN      1403
                                                                                                                 FUN      1404
           670  77661                             =X6    B6-1        DECREMENT LEVEL                             FC5A246    20
                     54630                        SA6    A3          RESET LEVEL                                 FUN      1406
                          5120001215 +            SA2    APLEN                                                   FUN      1407
           671  0306000675 +                      ZR     X6,PAS10    IF POPPED TO ZERO LEVEL                     FC50239    17
                          5130001223 +            SA3    APTAB       GET OUTER APLIST TABLE ADDRESS              FC50651    31
           672  63630                             SB6    X3                                                      FC50651    32
                     5033000001                   SA3    A3+1        GET INNER APLIST TABLE ADDRESS              FC50651    33
                               67606              SB6    -B6                                                     FC50651    34
           673  63636                             SB6    X3+B6                                                   FC50651    35
                     0560000675 +                 NE     B6,PAS10    IF NOT EQUAL, DO NOT ADD INNER APLEN        FC50651    36
                               54321              =A3    A2+1                                                    FC50239    18
           674  36223                             IX2    X2+X3       INCLUDE LENGTH OF INNER APLIST              FC50239    19
                                                                                                                 FC50239    20
           675  5130001226 +             PAS10    SA3    ATF                                                     FC50239    21
                          20373                   HX3    AT.IO                                                   FUN      1409
                               21373              AX3    59                                                      FUN      1410
           676  15223                             BX2    -X3*X2      IF IO SHRINK SAP TO ZERO                    FUN      1411
                     10622                        SHRINK T=SAP,X2                                                FC5A246    21
           677  0400000662 +                      EQ     EXIT.                                                   FUN      1413
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    32
        SUBROUTINES.                                                  PCA 
  
                                        **        PCA - PASS CHARACTER APLIST ITEM                               FUN      1415
                                        *                                                                        FUN      1416
                                        *         ENTRY -(X5) = I. L. OPERAND                                    FUN      1417
                                        *                (X1) = STATUS WORD                                      FUN      1418
                                        *                (B2) = CAC/TEM INDICATOR                                FUN      1419
                                        *                (B7) = CAC ORD (IF EXISTS)                              FUN      1420
                                        *                                                                        FUN      1421
                                        *         EXIT    APLIST AND CAC ENTRY MADE FOR OPD                      FUN      1422
                                        *                                                                        FUN      1423
                                        *         USES ALL BUT X5                                                FUN      1424
                                        *                                                                        FUN      1425
                                        *         CALLS SCB,ECA,ECW,SSC                                          FUN      1426
                                                                                                                 FUN      1427
                                                                                                                 FUN      1428
           700  0400400700 +             PCA      SUBR               ENTRY/EXIT.                                 FUN      1429
           701  10655                             BX6    X5                                                      FUN      1430
                     5160000731 +                 SA6    PCAA        SAV OPERAND                                 FUN      1431
                               10611              BX6    X1                                                      FUN      1432
           702  20651                             SBIT   X6,P2.FPP                                               FUN      1433
                     0336000724 +                 MI     X6,PCA2     IF FORMAL PARAMETER                         FUN      1434
           703  0702000710 +                      LT     B0,B2,PCA1  IF CAC ENTRY EXISTS                         FUN      1435
                          0100001207 +            RJ     SCB         SUBSUME CONSTANT BIAS                       FUN      1436
           704  7157000000                        SX5    B7+         SAVE ORD OF EQV CLASS ACROSS ECW            FUN      1437
                          0100000426 +            RJ     ECW         ENTER CAC WORD (IN X6, FROM SCB)            FC5A246    22
           705  73350                             SX3    X5          (X3) = EQV CLASS ORD                        FUN      1439
                     5150000731 +                 SA5    PCAA        (X5) = OPD                                  FUN      1440
           706  0100001167 +                      RJ     SSC         SET STATUS OF CHARACTER                     FUN      1441
           707  66200                             =B2    0                                                       FC5A243   124
                                                                                                                 FUN      1442
                                        **        NOW INCREMENT CLEN AND ADD IA WORD TO APLIST                   FC50239    22
                                        *         (X1) = STATUS WORD                                             FUN      1444
                                        *         (B7) = CAC ORDINAL                                             FUN      1445
                                                                                                                 FUN      1446
           710  5120000000 X            PCA1      SA2    T.CAC                                                   FC5A243   125
                          53327                   SA3    X2+B7       GET CAC WORD                                FUN      1449
                               43052              MX0    -WC.CLENL                                               FUN      1450
           711  20336                             LX3    -WC.CLENP                                               FUN      1451
                     5120001231 +                 SA2    CLEN                                                    FUN      1452
                               15330              BX3    -X0*X3      EXTRACT OPERAND CLEN                        FUN      1453
           712  36732                             IX7    X3+X2       ADD OPERAND CLEN TO CLEN TOTAL              FUN      1454
                     5170001231 +                 SA7    CLEN                                                    FUN      1455
           713  6160000002                        SB6    2                                                       FC5A243   126
                          0762000717 +            GT     B2,B6,PCA15 IF UNKNOWN LENGTH ITEM                      FC5A243   127
           714  66600                             =B6    0                                                       FC5A243   128
                                                                                                                 FC5A243   129
           715  0100000417 +             PCA12    RJ     ECA                                                     FC5A243   130
           716  5150000731 +                      SA5    PCAA                                                    FUN      1457
                          0400000700 +            EQ     EXIT.                                                   FUN      1458
                                                                                                                 FC5A243   131
           717  10611                    PCA15    BX6    X1                                                      FC5A243   132
                     5160000732 +                 SA6    PCAB                                                    FC5A243   133
           720  0100000637 +                      RJ     LUA         LOAD UNKNOWN-LENGTH ITEM ADJUSTMENT         FC5A243   134
           721  0100001150 +                      RJ     SCI                                                     FC5A243   135
           722  5110000732 +                      SA1    PCAB                                                    FC5A243   136
                          66610                   =B6    1                                                       FC5A243   137
           723  0400000715 +                      EQ     PCA12                                                   FC5A243   138
                                                                                                                 FUN      1459
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    33
        SUBROUTINES.                                                  PCA 
  
                                        **        FORMAL PARAMETER CASE                                          FUN      1460
                                        *         (X1) = STATUS WORD                                             FUN      1461
                                                                                                                 FUN      1462
           724  6160000000               PCA2     SB6    0                                                       FUN      1463
                          0100000417 +            RJ     ECA         ENTER CHARACTER APLIST ITEM DIRECTLY        FUN      1474
           725  20622                             LX6    -IA.TAGP    POSITION SYMTAB ORDINAL IN APLIST WORD      FUN      1475
                     73160                        SX1    X6          (X1) = SYM TAB ORDINAL FOR GCL              FUN      1476
                                   0              ERRNZ  18-IA.TAGL                                              FUN      1477
                          0100000000 X            RJ     GCL         GET CHARACTER LENGTH                        FUN      1478
           726  0322000727 +                      PL     X2,PCA25    CHECK IF ASSUMED SIZE FP                    FC50651    37
                          5110000547 +            SA1    FVSB        IF SO, GET CONST. SUB. SIZE                 FC50651    38
                                                                                                                 FC50651    39
           727                           PCA25    BSS    0                                                       FC50651    40
           727  5130001231 +                      SA3    CLEN        GET CURRENT CHARACTER LENGTH                FUN      1479
                          36631                   IX6    X3+X1       ADD NEW LENGTH SO SUM                       FUN      1480
                               54630              SA6    A3          RESET CLEN                                  FUN      1481
           730  0400000700 +                      EQ     EXIT.                                                   FUN      1482
                                                                                                                 FUN      1483
           731                     1     PCAA     BSSZ   1                                                       FUN      1484
           732                     1     PCAB     BSS    1                                                       FC5A243   139
  
  
  
  
                                        **        PCF - PROCESS CHARCTER FORMAL PARAMTER SCALAR.                 FUN      1486
                                        *         CALLS ARRAY OBJECT ROUTINE (FAR) WITH ZERO INDEX               FUN      1487
                                        *         TO FORMAT ADDRESS WORD.                                        FUN      1488
                                        *                                                                        FUN      1489
                                        *         ENTRY  (X5) = OPERAND                                          FUN      1490
                                                                                                                 FUN      1491
           733  0400400733 +             PCF      SUBR                                                           FUN      1492
           734  0100001137 +                      RJ     SAS         STACK APLIST FOR FAR CALL                   FUN      1493
           735  0100000551 +                      RJ     GAS         GET STATUS WORD                             FUN      1494
           736  0100000700 +                      RJ     PCA         FILE HEADER                                 FUN      1495
           737  43201                             MX2    1                                                       FUN      1496
                     20215                        LX2    1+P2.SHRTP                                              FUN      1497
                          76610                   =X6    1                                                       FUN      1498
           740  0100000000 X                      CALL   POS         PREPARE STATUS WORD                         FUN      1499
           741  10166                             BX1    X6                                                      FUN      1500
                     0100000273 +                 RJ     CCA         COMPLETE ARRAY REF                          FUN      1501
           742  0400000733 +                      EQ     EXIT.                                                   FUN      1502
  
  
  
  
                                        **        PCI -  PROCESS CHARACTER ITEM                                  FC5A246    23
                                        *                                                                        FC5A246    24
                                        *         PCI IS CALLED WHEN IT IS DETERMINED THAT NON-CONCATENATION     FC5A246    25
                                        *         CHARACTER ITEMS  ARE INVOLVED.  ITS FUNCTION IS TO SELECT THE  FC5A246    26
                                        *         CORRECT APLIST PROCESSOR FOR THIS OPERAND.                     FC5A246    27
                                        *                                                                        FUN      1509
                                        *         ENTRY  (X5) = OPERAND                                          FUN      1510
                                        *                                                                        FUN      1511
                                        *         EXIT   (X5) = OPERAND                                          FUN      1512
                                        *                (X1) = STATUS WORD                                      FUN      1513
                                        *                (B2) = TEMP/CAC INDICATOR FLAG                          FUN      1514
                                        *                (B7) = CAC ORDINAL IF EXISTS                            FUN      1515
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    34
        SUBROUTINES.                                                  PCI 
  
                                        *                                                                        FUN      1516
                                        *         USES   ALL                                                     FUN      1517
                                        *                                                                        FUN      1518
                                        *         CALLS  GAS, PCA, ECA, FIA, FVS                                 FUN      1519
                                                                                                                 FUN      1520
                                                                                                                 FUN      1521
           743  0400400743 +             PCI      SUBR               ENTRY/EXIT                                  FUN      1522
           744  10355                             BX3    X5                                                      FUN      1523
                     22705                        LX7    X5                                                      FUN      1524
                          0100000551 +            RJ     GAS         GET APLIST STATUS OF OPEAND                 FUN      1525
           745  5170001203 +                      SA7    LEAF        SAVE OPERAND                                FUN      1526
                          0712000750 +            LT     B1,B2,PCI1  IF ALREADY IN TEMPORARY STORAGE             FC5A246    28
           746  20756                             SBIT   X7,P2.ARRP  POSITION ARRAY BIT                          FC5A246    29
                     20361                        SBIT   X3,P2.INTRP                                             FUN      1529
                          0333000752 +            MI     X3,PCI2     IF INTERMEDIATE, CALL FIA OR FVS            FC5A246    30
           747  20364                             LX3    P2.INTRP-P2.FPP                                         FUN      1531
                     0333000756 +                 MI     X3,PCI4     IF FP SCALAR                                FUN      1532
                                                                                                                 FUN      1533
           750  0100000700 +             PCI1     RJ     PCA         PASS CHARACTER APLIST                       FC5A246    31
           751  0400000743 +                      EQ     EXIT.                                                   FUN      1535
                                                                                                                 FUN      1536
           752  0327000754 +             PCI2     PL     X7,PCI3     IF NOT AN ARRAY                             FUN      1537
                          0100000444 +            RJ     FIA         FORMAT INTERMEDIATE ARRAY                   FUN      1538
           753  0400000743 +                      EQ     EXIT.                                                   FUN      1539
                                                                                                                 FUN      1540
           754                           PCI3     BSS    0                                                       FUN      1541
                                                                                                                 FUN      1542
                                         .TEST    IFEQ   TEST,ON                                                 FUN      1543
                                                  SA2    T.PAR       GET FWA I. L.                               FUN      1544
                                                  LX7    1+P2.ARRP-P2.BIASP      POSITION I. L. ORDINAL          FUN      1545
                                                  SB2    X2                                                      FUN      1546
                                                  SA2    B2+X7       GET ASSOCIATE OPERATOR                      FUN      1547
                                                  AX2    OP.SKELP    POSITION SKELETON                           FUN      1548
                                                  BX2    -X2         GET NEGATIVE OR SKEL                        FUN      1549
                                                  SB2    X2+V=SUBST                                              FC5A246    32
                                                  NZ     B2,"BLOWUP" IF NOT A SUBSTRING                          FUN      1551
                                         .TEST    ENDIF                                                          FUN      1552
                                                                                                                 FUN      1553
           754  0100000456 +                      RJ     FVS         FORMAT VARIABLE SUBSTRING                   FUN      1554
           755  0400000743 +                      EQ     EXIT.                                                   FUN      1555
                                                                                                                 FUN      1556
           756  0100000733 +             PCI4     RJ     PCF         ISSUE CHARACTER FP SCALAR                   FUN      1557
           757  0400000743 +                      EQ     EXIT.                                                   FUN      1558
  
  
  
  
                                        **        PCL - PROCESS CHARACTER ARRAY ITEM LENGTH.                     FUN      1560
                                        *         IN THE CASE OF IO LIST COLLAPS THERE IS NOT ENOUGH             FUN      1561
                                        *         ROOM TO SAVE ALL THE REQUIRED CLEN AND ARRAY LENGTH            FUN      1562
                                        *         INFORMATION IN ONE CAC WORD,  SO WE MAKE TWO CLW ENTRIES       FUN      1563
                                        *         AND POINT TO THEM FORM THE APLIST. PCL ACOMPLISHES ALL OF      FUN      1564
                                        *         THIS.                                                          FUN      1565
                                        *                                                                        FUN      1566
                                        *         ENTRY  (X1) = OPD                                              FUN      1567
                                        *                (LEAF) = LAST OPERAND PASSED TO APLIST                  FUN      1568
                                        *                                                                        FUN      1569
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    35
        SUBROUTINES.                                                  PCL 
  
                                        *         EXIT   CLW AND APLIST ENTRIES MADE                             FUN      1570
                                        *                                                                        FUN      1571
                                        *         USES   ALL BUT X4, B4                                          FUN      1572
                                        *                                                                        FUN      1573
                                        *         CALLS GCL,AAP,SAP                                              FUN      1574
                                                                                                                 FUN      1575
                                                                                                                 FUN      1576
                                                                                                                 FUN      1577
           760  0400400760 +             PCL      SUBR                                                           FUN      1578
           761  5130001226 +                      SA3    ATF                                                     FUN      1579
                          20303                   HX3    AT.NUL                                                  FUN      1580
           762  0323001013 +                      PL     X3,PCL50    IF NOT ARRAY ITEM                           FUN      1581
                          5120001223 +            SA2    APTAB                                                   FUN      1582
           763  10611                             BX6    X1                                                      FUN      1583
                     7170000000 X                 SX7    T.CLW                                                   FUN      1584
           764  5160001017 +                      SA6    PCLA        SAVE OPERAND                                FUN      1585
                          54720                   SA7    A2          RESET APTAB FOR CLW ENTRIES                 FUN      1586
                               10622              BX6    X2                                                      FUN      1587
           765  5160001020 +                      SA6    PCLB        SAVE CURRENT APLIST TABLE                   FUN      1588
                          5150001203 +            SA5    LEAF        GET LAST OPERAND TO ALIST                   FUN      1589
           766  0100000551 +                      RJ     GAS         GET STATUS WORD OF LAST OPD TO APLIST       FUN      1590
           767  10011                             BX0    X1                                                      FC5A151     4
                     20172                        LX1    -ST.ORD1P                                               FUN      1591
                          20051                   HX0    P2.FP                                                   FC5A151     5
           770  0320000771 +                      PL     X0,PCL10    IF NOT FORMAL PARAMETER                     FC5A151     6
                          20122                   LX1    ST.ORD1P-P2.TAGP                                        FC5A151     7
                                                                                                                 FC5A151     8
           771  43060                    PCL10    MX0    -ST.ORD1L                                               FC5A151     9
                     15110                        BX1    -X0*X1      EXTRACT ORIGINAL ORDINAL OF OPD             FUN      1593
                          0100000000 X            CALL   GCL         GET FP LENGTH/TAG                           FUN      1594
           772  20124                             LX1    P2.BIASP                                                FUN      1595
                     20354                        LX3    P2.TAGP                                                 FUN      1596
                          12113                   BX1    X1+X3                                                   FUN      1597
                               66700              =B7    0                                                       FUN      1598
           773  0100000242 +                      RJ     AAP         ENTER CLEN TO CLW                           FUN      1599
           774  5110001017 +                      SA1    PCLA                                                    FUN      1600
                          0100001056 +            RJ     SAP         LENGTH TO CLW                               FUN      1601
           775  5150001215 +                      SA5    APLEN                                                   FUN      1602
                          7265777775              SX6    X5-2                                                    FUN      1603
           776  54650                             SA6    A5          DECRIMENT APLEN BY NUMBER OF CLW ENTRIES    FUN      1604
                                                                                                                 FUN      1605
                                        *         ELIMINATE LAST CLW PAIR IF ALREADY EXISTS.                     FUN      1606
                                                                                                                 FUN      1607
                     5150000000 X                 SA5    T.CLW                                                   FUN      1608
           777  5130000000 X                      SA3    T=CLW                                                   FUN      1609
                          6265000002              SB6    X5+2                                                    FUN      1610
          1000  36053                             IX0    X5+X3                                                   FUN      1611
                     63200                        SB2    X0                                                      FUN      1612
                          57221                   =A2    B2-1                                                    FUN      1613
                               55121              =A1    A2-1                                                    FUN      1614
          1001  7203777775                        SX0    X3-2        INDEX = T=CLW - 2                           FUN      1615
                          53350                   SA3    X5                                                      FUN      1616
                               53551              =A5    X5+1                                                    FUN      1617
                                                                                                                 FUN      1618
          1002  13613                    PCL30    BX6    X1-X3                                                   FUN      1619
                     13725                        BX7    X2-X5                                                   FUN      1620
                          5033000002              SA3    A3+2        W1 = W1+2                                   FUN      1621
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    36
        SUBROUTINES.                                                  PCL 
  
          1003  12667                             BX6    X6+X7       2 CLW WORDS CANNOT BE COMPLEMENTS           FUN      1622
                     54531                        =A5    A3+1        W2 = W2+2                                   FUN      1623
                          0316001002 +            NZ     X6,PCL30    IF NOT HIT                                  FUN      1624
          1004  65332                             SB3    A3-B2                                                   FUN      1625
                     0430001006 +                 ZR     B3,PCL40    IF HIT NOT END OF TABLE                     FUN      1626
                               10700              BX7    X0                                                      FUN      1627
          1005  5170000000 X                      SA7    T=CLW       T=CLW = T=CLW-2                             FUN      1628
                          75036                   SX0    A3-B6       INDEX = W1-T.CLW-2                          FUN      1629
                                                                                                                 FUN      1630
          1006  23210                    PCL40    AX2    B1,X0       BIAS = INDEX/2                              FUN      1631
                     5130001020 +                 SA3    PCLB        GET ORIGINAL APLIST TABLE POINTER           FUN      1632
                               10733              BX7    X3                                                      FUN      1633
          1007  5130000000 X                      SA3    S=CL        SYMBOL ORDINAL CHARACTER LENGTH DESCRIPTORS FUN      1634
                          20224                   LX2    P2.BIASP                                                FUN      1635
                               20354              LX3    P2.TAGP                                                 FUN      1636
          1010  12123                             BX1    X2+X3                                                   FUN      1637
                     5170001223 +                 SA7    APTAB       RESTORE ORIGINAL APTAB VALUE FOR THIS LEVEL FUN      1638
                               66700              =B7    0                                                       FUN      1639
          1011  0100000242 +                      RJ     AAP         FILE CL. POINTER TO APLIST                  FUN      1640
          1012  0400000760 +                      EQ     EXIT.                                                   FUN      1641
                                                                                                                 FUN      1642
          1013  76600                    PCL50    =X6    0                                                       FUN      1643
                     5110001223 +                 SA1    APTAB                                                   FUN      1644
                               53110              ADDWD  X1                                                      FUN      1645
          1015  5110001215 +                      SA1    APLEN                                                   FUN      1646
                          73711                   =X7    X1+1                                                    FUN      1647
                               54710              SA7    A1                                                      FUN      1648
          1016  0400000760 +                      EQ     EXIT.                                                   FUN      1649
                                                                                                                 FUN      1650
          1017                     1     PCLA     BSS    1                                                       FUN      1651
          1020                     1     PCLB     BSS    1                                                       FUN      1652
  
  
  
  
                                        **        PEJ -  PROCESS EXTERNAL JUMP.                                  FUN      1654
                                        *                                                                        FUN      1655
                                        *         ENTRY  (APLEN) = NUMBER OF ARGUMENTS.                          FUN      1656
                                        *                (ROUTNAM)= TAG OF ROUTINE TO CALL.                      FUN      1657
                                        *                (T.APL) = CONTAINS THE ARGUMENTS, AT THE VERY END OF    FUN      1658
                                        *                            THE TABLE.                                  FUN      1659
                                        *                (TRACE) = LINE NO. FOR TRACEBACK                        FUN      1660
                                                                                                                 FUN      1661
                                        *                (X1) = 0 IFF ZERO-TERMINATOR REQUIRED.                  FUN      1662
                                        *                                                                        FUN      1663
                                        *         EXIT   EXTERNAL JUMP COMPILED.                                 FUN      1664
                                        *                (APLEN) = 0                                             FUN      1665
                                        *                                                                        FUN      1666
                                        *         CALLS  ADDWD, CLOAD, CRJ                                       FUN      1667
                                                                                                                 FUN      1668
                                                                                                                 FUN      1669
          1021  5110000000 X             PEJ6     SA1    ROUTNAM                                                 FUN      1670
                          10611                   BX6    X1                                                      FUN      1671
                               20151              SBIT   X1,P2.FPP                                               FUN      1672
          1022  0321001031 +                      PL     X1,PEJ7     IF NOT FORMAL PARAMETER                     FUN      1673
                          20143                   LX1    1+P2.FPP-P2.TAGP  SHIFT ORDINAL TO BOTTOM               FUN      1674
                               43754              MX7    -P2.TAGL                                                FUN      1675
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    37
        SUBROUTINES.                                                  PEJ 
  
          1023  15117                             BX1    -X7*X1                                                  FUN      1676
                     76710                        =X7    1                                                       FUN      1677
                          63710                   SB7    X1                                                      FUN      1678
          1024  5170000000 X                      SA7    ENT.SUB     SET ADDSUB FLAG                             FUN      1679
                          66777                   SB7    B7+B7                                                   FUN      1680
          1025  5130000000 X                      SA3    T.SYM       GET SYMBOL TABLE BASE                       FUN      1681
                          73331                   =X3    X3+WB.W                                                 FUN      1682
                               63717              SB7    B7+X1       (B7) = 3 * ORDINAL                          FUN      1683
          1026  53137                             SA1    X3+B7       GET WB  OF ROUTINE                          FUN      1684
                                   0              ERRNZ  3-Z=SYM                                                 FUN      1685
                     5130000000 X                 SA3    T.FPI       GET FWA FP INDEX TABLE                      FUN      1686
                               20744              LX7    FP.LENP     POSITION SUB COUNTER INCREMENT              FC50239    23
          1027  20122                             HX1    WB.FPNO                                                 FUN      1688
                     6273777776                   =B7    X3-1        (B7) = FWA-1                                FUN      1689
                               21163              AX1    -WB.FPNOL   ISOLATE FPNO                                FUN      1690
          1030  53117                             SA1    B7+X1       GET FPI ENTRY FOR ROUTINE((A1)=FWA+FPNO-1)  FUN      1691
                     36771                        IX7    X7+X1       INCREMENT RA                                FC50239    24
                          54710                   SA7    A1                                                      FUN      1693
                                                                                                                 FC50239    25
          1031  5130000000 X             PEJ7     SA3    TRACE       SET LINE NUMBER                             FUN      1694
                          77101                   CRJ    MUST                                                    FUN      1695
                                                                                                                 FUN      1696
          1033  0400401033 +             PEJ      SUBR   -           ENTRY/EXIT...                               FUN      1697
          1034  10611                             BX6    X1                                                      FUN      1698
                     5160001055 +                 SA6    PEJA                                                    FUN      1699
          1035  0100000000 X                      CALL   CIA         CLEAR INTERMEDIATES/ASSOCIATES              FUN      1700
          1036  5130001215 +                      SA3    APLEN                                                   FUN      1701
                          5150000000 X            SA5    T=APL       GET CURRENT APLIST LENGTH                   FUN      1702
          1037  5110000000 X                      ALLOC  T.APL,X3    RESERVE ENOUGH SPACE FOR STACKED APLIST     FUN      1703
          1041  36315                             IX3    X1+X5       (X3) = *TO* = FWA(APL) + PREVIOUS LEN(APL)  FUN      1704
                     5120001223 +                 SA2    APTAB       GET POINTER TO STACKED APLIST               FUN      1705
                               53520              SA5    X2          GET FWA OR STACKED APLIST                   FUN      1706
          1042  21222                             AX2    18          POSITION INDEX OF LIST IN SAP               FUN      1707
                     63250                        SB2    X5                                                      FUN      1708
                          5110001215 +            SA1    APLEN       (X1) = *COUNT* = LENGTH OF CURRENT LIST     FC5A246    33
          1043  73222                             SX2    B2+X2       (X2) = *FROM* = FWA(SAP) + (INDEX OF LIST)  FUN      1710
                     0100000000 X                 MOVE   X1,X2,X3    MOVE CURRENT LIST APL                       FUN      1711
          1044  5120001215 +                      SA2    APLEN       GET APLIST LEN                              FUN      1712
                          43600                   MX6    0                                                       FUN      1713
                               54620              SA6    A2          APLEN = 0                                   FUN      1714
          1045  63320                             SB3    X2                                                      FUN      1715
                     5120001055 +                 SA2    PEJA                                                    FUN      1716
          1046  0312001050 +                      NZ     X2,PEJ1     IF NO TERMINATOR REQUESTED                  FUN      1717
                          66331                   =B3    B3+1                                                    FUN      1718
          1047  5110000000 X                      ADDWD  T.APL+USER  ZERO WORD APLIST TERM.                      FUN      1719
                                                                                                                 FUN      1720
          1050  0430001021 +             PEJ1     ZR     B3,PEJ6     IF NO APLIST                                FUN      1721
                                                                                                                 FUN      1722
                                         SNAP=L   IFNE   TEST        DUMP AP-LIST TABLE                          FUN      1723
                                                  SA3    CO.SNAP                                                 FUN      1724
                                                  LX3    1RL                                                     FUN      1725
                                                  PL     X3,PEJ3S    IF AP-LIST SNAP NOT SELECTED                FUN      1726
                                                  DUMPT  APL                                                     FUN      1727
                                         PEJ3S    BSS    0                                                       FUN      1728
                                         SNAP=L   ENDIF                                                          FUN      1729
                                                                                                                 FUN      1730
                          7150000000              SX5    USER                                                    FUN      1731
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    38
        SUBROUTINES.                                                  PEJ 
  
          1051  0100000644 +                      RJ     NAP         SCAN/ENTER AP-LIST TABLE.                   FUN      1732
          1052  43052                             MX0    -PB.TAGL                                                FUN      1733
                     21652                        AX6    IA.TAGP                                                 FUN      1734
                          7110005110              SX1    SA=BK/1S3+10B     GHIJ PORTION OF SA1 INSTRUCTION       FUN      1735
          1053  15660                             BX6    -X0*X6            EXTRACT PB. TAG (AP. APLIST INDEX)    FUN      1736
                     20160                        LX1    PB.GHIJP                                                FUN      1737
                          20636                   LX6    PB.TAGP                                                 FUN      1738
                               12761              BX7    X6+X1       MERGE GHIJ WITH ADDRESS FIELD               FUN      1739
          1054  6120001021 +                      WCODE  X7,PEJ6     COMPILE LOAD OF AP-LIST TAG                 FUN      1740
                                                                                                                 FUN      1741
          1055                     1     PEJA     BSS    1                                                       FUN      1742
  
  
  
  
                                        **        SAP - STANDARD APLIST PROCESSOR                                FUN      1744
                                        *               SAP PASSES A P2. FORMATTED WORD TO                       FUN      1745
                                        *               AAP WHICH PLACED THE TAG AND BIAS IN                     FUN      1746
                                        *               THE CORRESPINDING AP. POSITIONS FOR                      FUN      1747
                                        *               EVENTUAL ADDITION TO THE APROPRIATE APLIST               FUN      1748
                                        *               SAP ALSO SELECTS PLUG CODE AND STORE TO                  FUN      1749
                                        *               TEM CODE WHEN NEEDED.                                    FUN      1750
                                        *                                                                        FUN      1751
                                        *         ENTRY  (X1) = ARGUMENT IN OPERAND FORMAT                       FUN      1752
                                        *                (IOCTL)= 0 OR IA.IOCM                                   FUN      1753
                                        *                (ATF) = 0      FOR NOT IO APL                           FUN      1754
                                        *                        1      FOR AN IO APL ITEM/ADDERESS              FUN      1755
                                        *                        1S59+1 FOR AN IO APL LENGTH/CONTROL CODE        FUN      1756
                                        *                                                                        FUN      1757
                                        *         EXIT   NEW ENTRY MADE IN T.APL OR T.IOA                        FUN      1758
                                        *                CODE COMPILED TO EFFECT APLIST PLUG OR STORE TO TEMP    FUN      1759
                                        *                                                                        FUN      1760
                                        *         WARNING - THIS SUBROUTINE CALLS SUBSKELETONS WHICH RETURN TO   FUN      1761
                                        *                   EXIT POINT VIA A CALL TO EIS.                        FUN      1762
                                                                                                                 FUN      1763
                                                                                                                 FUN      1764
          1056  0400401056 +             SAP      SUBR               ENTRY/EXIT                                  FUN      1765
          1057  10511                             BX5    X1                                                      FUN      1766
                     43063                        MX0    -P2.USEL                                                FUN      1767
                          5130001226 +            SA3    ATF                                                     FUN      1768
          1060  63630                             SB6    X3          (B6) = IO INDICATOR                         FUN      1769
                     15010                        BX0    -X0*X1      EXTRACT USE COUNT FIELD                     FUN      1770
                          0300001062 +            ZR     X0,SAP5     IF OPERAND WAS NOT DUC-ED                   FUN      1771
          1061  6120000000                        SB2    0                                                       FUN      1772
                          0100000000 X            RJ     GST         GET PARTIAL STATUS OF UPPER HALF OF ARG     FUN      1773
                                                                                                                 FUN      1774
                                        **        DETETMINE APLIST PROCESSOR                                     FUN      1775
                                        *         (X1) = EITHER ARGUMENT STATUS WORD OR OPERAND WORD. WHEN       FUN      1776
                                        *                A STATUS WORD EXISTS IT IS USED. IN BOTH CASES THE      FUN      1777
                                        *                TAG AND BIAS FORMATS ARE SUITABLE FOR APLIST USE.       FUN      1778
                                        *                EXCEPTION: ARRAYS  REQUIRE A SEPERATE LOAD OF THE       FUN      1779
                                        *                1OP OF  THE DELAYED TURPLE.                             FUN      1780
                                        *         (X5) = ARG OPERAND WORD (AOP). IT HAS ALL P2. BITS PRESENT.    FUN      1781
                                        *         (B6) = IO INDICATOR*: 1 FOR IO, 0 FOR USER CALL.               FUN      1782
                                                                                                                 FUN      1783
          1062  22305                    SAP5     LX3    X5                                                      FUN      1784
                     5120001226 +                 SA2    ATF         GET APLIST TYPE FUNCTION                    FUN      1785
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    39
        SUBROUTINES.                                                  SAP 
  
                               10055              BX0    X5                                                      FUN      1786
          1063  20361                             SBIT   X3,P2.INTRP                                             FUN      1787
                     0323001071 +                 PL     X3,SAP10    IF NOT INTERMEDIATE                         FUN      1788
                                                                                                                 FUN      1789
                                         .TEST    IFEQ   TEST,ON                                                 FUN      1790
                                                  MX6    -P2.USEL                                                FUN      1791
                                                  BX6    -X6*X5                                                  FUN      1792
                                                  ZR     X6,"BLOWUP"           IF INTR NOT USE COUNTED           FUN      1793
                                         .TEST    ENDIF                                                          FUN      1794
                                                                                                                 FUN      1795
                               20056              SBIT   X0,P2.ARRP                                              FUN      1796
          1064  0320001117 +                      PL     X0,SAP50    IF NOT ARRAY INTERMEDIATE STORE TO TEMP     FUN      1797
                          43654                   MX6    -P2.TAGL                                                FUN      1798
                               20654              LX6    P2.TAGP                                                 FUN      1799
          1065  21124                             AX1    P2.BIASP    POSITION I. L. ORDINAL                      FUN      1800
                     5120000000 X                 SA2    T.PAR                                                   FUN      1801
          1066  6271000001                        SB7    X1+OR.1OP   (B7) = I. L. ORDINAL OF ARRAY TAG WORD      FUN      1802
                                   6              ERRMI  P2.BIASL-18                                             FUN      1803
                          53127                   SA1    B7+X2       GET ARRAY TAG                               FUN      1804
                               15116              BX1    -X6*X1            ISOLATE TAG                           FUN      1805
          1067  20373                             SBIT   X3,P2.ADDRP/P2.INTRP                                    FUN      1806
                     0333001105 +                 MI     X3,SAP30    IF LOCF STORE TO TEMP                       FUN      1807
          1070  0332001105 +                      MI     X2,SAP30    IF I/O LENGTH  (A(I),I=1,J(K))              FUN      1808
                          0400001077 +            EQ     SAP20             PLUG ADDRESS INTO APLIST              FUN      1809
                                                                                                                 FUN      1810
          1071  20060                    SAP10    SBIT   X0,P2.ADDRP                                             FUN      1811
                     0330001105 +                 MI     X0,SAP30    IF ADDRESS LOAD                             FUN      1812
                               20364              SBIT   X3,P2.FPP/P2.INTRP                                      FUN      1813
          1072  20064                             SBIT   X0,P2.LCMP/P2.ADDRP                                     FUN      1814
                     12003                        BX0    X0+X3                                                   FUN      1815
                          11020                   BX0    X2*X0                                                   FUN      1816
          1073  0330001105 +                      MI     X0,SAP30    IF FP/LCM IO LENGTH, STORE VALUE TO TEMP    FUN      1817
                          0332001133 +            MI     X2,SAP80    IF OTHER IO, LENGTH ENTER DIRECTLY INTO APL FUN      1818
          1074  43054                             MX0    -P2.TAGL                                                FUN      1819
                     20054                        LX0    P2.TAGP     POSITION STATUS WORD                        FUN      1820
                          15010                   BX0    -X0*X1      EXTRACT TAG                                 FUN      1821
          1075  0300001131 +                      ZR     X0,SAP70    IF SHORT CON, EXPAND TO LONG CON            FUN      1822
                          0560001133 +            NZ     B6,SAP80    IF IO APL, ENTER IN APL DIRECTLY            FUN      1823
          1076  0323001133 +                      PL     X3,SAP80    IF NOT FP, ENTER IN APL DIRECTLY            FUN      1824
                                                                                                                 FUN      1825
                                        **        PROCESSORS                                                     FUN      1826
                                        *         CASE 1) VALUE LOADS FOR ARRAYS AND NON-IO FPS    ...SAP20      FUN      1827
                                        *         CASE 2) ADDERESS LOADS AND IO LENGTH FOR FP/LCM  ...SAP30      FUN      1828
                                        *         CASE 3) NON-ARY INTERMEDIATES                    ...SAP50      FUN      1829
                                        *         CASE 4) NON-IO SHORT CONSTANTS                   ...SAP70      FUN      1830
                                        *         CASE 5) EVERYONE ELSE: MOST COMMON CASE          ...SAP80      FUN      1831
                                        *                                                                        FUN      1832
                                        *         ENTRY  (X1) = ARGUMENT STATUS WORD/OPERAND                     FUN      1833
                                        *                (X5) = ARGUMENT OPERAND                                 FUN      1834
                                        *                (B6) = IO INDICATOR                                     FUN      1835
                                        *                                                                        FUN      1836
                                        *         EXIT   (X1) = TAG AND BIAS WORD TO REFORMAT AND ENTER IN APL   FUN      1837
                                        *                (B5) = ORDINAL OF PLUG/STORE SKELETON OR -1.            FUN      1838
                                        *                (B7) = APLIST PLUG INDICATOR: 1 IF PLUG, ELSE 0         FUN      1839
                                                                                                                 FUN      1840
                                        **        ARRAY AND NON-IO FP PROCESSOR                                  FUN      1841
                                        *         SELECTS A STORE SKELETON WHICH PLUGS THE ADDRESS               FUN      1842
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    40
        SUBROUTINES.                                                  SAP 
  
                                        *         OF THE ARG IN THE APLIST. GENTEATED L OPERANDS ARE             FUN      1843
                                        *         CONSTRUCTED.                                                   FUN      1844
                                                                                                                 FUN      1845
          1077  76210                    SAP20    =X2    1                                                       FUN      1846
                     5130001215 +                 SA3    APLEN       GET CURRENT APL LENGTH FOR BIAS OF GL       FUN      1847
                               20213              LX2    P2.ADDRP                                                FUN      1848
          1100  12525                             BX5    X2+X5       SET ADDRESS BIT OF ARGUMENT                 FUN      1849
                     23363                        AX3    B6          IF IO, DIVIED APLIST LENGTH BY 2            FUN      1850
                          5120001220 +            SA2    APIND       TAG[GL2] = INDEX IN APLIST INDEX TABLE      FUN      1851
          1101  76060                             =X0    B6                                                      FUN      1852
                     7222040000                   SX2    X2+K2.AP    ADD IN PREFIX                               FUN      1853
                               20015              LX0    P2=PFX                                                  FUN      1854
          1102  36220                             IX2    X2+X0       TAG[GL2] = ORD[GL2] + PFX BASE + OFFSET     FUN      1855
                     20324                        LX3    P2.BIASP    BIAS[GL2] = NUMBER OF ARGUMENTS             FUN      1856
                          10711                   BX7    X1          (X7) = TAG AND BIAS WORD TO PASS TO APL     FUN      1857
                               20254              LX2    P2.TAGP                                                 FUN      1858
          1103  36223                             IX2    X2+X3       ADD BIAS INTO GL2 WORD                      FUN      1859
                     76410                        =X4    1           PLUG FLAG ON.                               FUN      1860
                          6150000000 X            SB5    W=IPLG0                                                 FUN      1861
          1104  0400001111 +                      EQ     SAP40       DO GL BOOKEEPING AND SELECT SKEL            FUN      1862
                                                                                                                 FUN      1863
                                        **        ADDRESS LOADS AND FP/LCM IO LENGTHS                            FUN      1864
                                        *         NON-INTERMEDIATE STORE TO TEMP. STORES THE                     FUN      1865
                                        *         ARGUMENT ADDRESS/VALUE IN TEMP AND THEN PASSEES                FUN      1866
                                        *         THE TEMP TAG AND BIAS TO THE APLIST.                           FUN      1867
                                                                                                                 FUN      1868
          1105  5120000000 X             SAP30    SA2    N.ST        GET NUMBER OF TEMPORARYS                    FUN      1869
                          5130000000 X            SA3    S=ST        GET ORDINAL OF TEMPORARY ARRAY              FUN      1870
          1106  73621                             =X6    X2+1                                                    FUN      1871
                     20354                        LX3    P2.TAGP     TAG[GL2] = ORDINAL OF TEMP ARRAY            FUN      1872
                          54620                   =A6    A2          UPDATE N.ST                                 FUN      1873
                               20224              LX2    P2.BIASP    BIAS[GL2] = NUMBER OF TEMPS                 FUN      1874
          1107  76400                             =X4    0           PLUG FLAG IS OFF                            FUN      1875
                     36223                        IX2    X2+X3       ADD GL2 TAG TO BIAS                         FUN      1876
                          43071                   MX0    -OP.2MODL                                               FUN      1877
                               10722              BX7    X2          (X7) = TAG AND BIAS TO PASS TO APL          FUN      1878
          1110  6150000000 X                      SB5    W=APSTR                                                 FUN      1879
                                                                                                                 FUN      1880
                                        **        BRANCH HERE IF SKELETON ALREADY SELECTED                       FUN      1881
                                        *         (X5) = ARGUEMENT OPERAND                                       FUN      1882
                                        *         (X7) = TAG AND BIAS WORD FOR APL                               FUN      1883
                                        *         (X2) = NEW STATUS WORD FOR GL2                                 FUN      1884
                                        *         (X4) = APL PLUG INDICATOR                                      FUN      1885
                                                                                                                 FUN      1886
          1111  5170000001 X             SAP40    SA7    REG=G+1     SAVE APL TAG, BIAS AS GL2                   FUN      1887
                          76600                   =X6    0                                                       FUN      1888
          1112  0100000000 X                      CALL   POS         PREPARE STATUS WORD                         FUN      1889
          1113  10255                             BX2    X5          (X2) = ARG OPERAND WORD                     FUN      1890
                     5150000001 X                 SA5    REG=G+1     (X5) = APL TAG AND BIAS                     FUN      1891
                               54650              SA6    A5          SET GL2                                     FUN      1892
          1114  76600                             =X6    0                                                       FUN      1893
                     0100000000 X                 CALL   POS         PROCESS OPERAND AND STATUS WORD             FUN      1894
          1115  5160000000 X                      SA6    REG=G       SET (GL1) = ARG                             FUN      1895
                          63740                   SB7    X4          (B7) = STORE TO FLAG                        FUN      1896
                               10155              BX1    X5          (X1) = APL TAG AND BIAS                     FUN      1897
          1116  0400001134 +                      EQ     SAP90                                                   FUN      1898
                                                                                                                 FUN      1899
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    41
        SUBROUTINES.                                                  SAP 
  
                                        **        NON-ARY INTERMEDIATE CASE                                      FUN      1900
                                        *         STORE TO TEMP WHENEVER THE INTERMEDIATE IS STILL               FUN      1901
                                        *         IN A REGISTER.                                                 FUN      1902
                                        *         THE SECOND GST SERVES TWO PURPOSES:                            FUN      1903
                                        *         1) IT ACTUALLY DOES CHECK THE REG STATUS FOR                   FUN      1904
                                        *            COMPLEX AND DOUBLE PRECISION INTERMEDIATES.                 FUN      1905
                                        *         2) IT PRODUCES A STATUS WORD WITH A TAG AND BIAS               FUN      1906
                                        *            SUITABLE FOR APL USE.                                       FUN      1907
                                        *                                                                        FUN      1908
                                        *         (B2) = 0 IFF UPPER HALF IS NOT IN A REG.                       FUN      1909
                                                                                                                 FUN      1910
          1117  6130000000               SAP50    SB3    0           TYPE=UPPER                                  FUN      1911
                          0100000000 X            CALL   STS         SET TAG STATUS (DECREMENT USE COUNT)        FUN      1912
          1120  0420001123 +                      ZR     B2,SAP55    IF NOT IN REG                               FUN      1913
                          10655                   BX6    X5                                                      FUN      1914
          1121  5160000000 X                      SA6    REG=G       SAVE OPERAND IN GENERATED OP TAB            FUN      1915
                          0100000000 X            CALL   CWI         STORE TO TEMPORARY                          FUN      1916
          1122  5150000000 X                      SA5    REG=G       RESTORE OPERAND                             FUN      1917
          1123  66210                    SAP55    =B2    1           LOWER HALF                                  FUN      1918
                     66700                        =B7    0           PARTIAL STATUS                              FUN      1919
                          0100000000 X            CALL   GST         GET STATUS OF LOWER HALF                    FUN      1920
          1124  6130000001                        SB3    1           SET TYPE = LOWER                            FUN      1921
                          0100000000 X            CALL   STS         SET TAG STATUS (DECREMENT USE TOTAL)        FUN      1922
          1125  10611                             BX6    X1                                                      FUN      1923
                     5160000000 X                 SA6    REG=G       SAVE STATUS WORD IN G-OPERAND TABLE         FUN      1924
          1126  0420001127 +                      ZR     B2,SAP60    IF LOWER PART NOT IN REG/EXISTANCE          FUN      1925
                          0100000000 X            CALL   CWI         WRITE LOWER PART TO TEMPORARY               FUN      1926
          1127  5110000000 X             SAP60    SA1    REG=G       (X1) = TEMP TAG, BIAS FOR APL               FUN      1927
                          66700                   =B7    0           PLUG FLAG OFF                               FUN      1928
                               67501              =B5    -1          INDICATE NO SKEL CALL                       FUN      1929
          1130  0400001134 +                      EQ     SAP90                                                   FUN      1930
                                                                                                                 FUN      1931
                                                                                                                 FUN      1932
                                        **        SHORT CON CASE                                                 FUN      1933
                                        *         DIFFERS ONLY FROM REGULAR CASE IN THAT SHORT                   FUN      1934
                                        *         CON MUST BE CONVERTED TO LONG CONS. THEY ARE                   FUN      1935
                                        *         THEN PASSED ON AS FOR REGULAR PROCESSING.                      FUN      1936
                                                                                                                 FUN      1937
          1131  0100000435 +             SAP70    RJ     ESC         EXPAND SHORT CONSTANT                       FUN      1938
          1132  20154                             LX1    P2.TAGP                                                 FUN      1939
                     20324                        LX3    P2.BIASP                                                FUN      1940
                          12113                   BX1    X1+X3                                                   FUN      1941
                                                                                                                 FUN      1942
                                                                                                                 FUN      1943
                                        **        MAIN CASE                                                      FUN      1944
                                        *         SET FLAGS AND PASS TAG AND BIAS WORD TO APL                    FUN      1945
                                                                                                                 FUN      1946
          1133  6150777776               SAP80    SB5    -1          NO SKEL CALLS                               FUN      1947
                          6170000000              SB7    0           PLUG FLAG OFF                               FUN      1948
                                                                                                                 FUN      1949
          1134  5150001226 +             SAP90    SA5    ATF         RESET APLIST TYPE FLAG                      FUN      1950
                          0100000242 +            RJ     AAP                                                     FUN      1951
          1135  76650                             SX6    B5          GET SKELETON                                FUN      1952
                     0650000000 X                 PL     B5,SUB.RET  PROCESS SKELETON                            FUN      1953
                                                                                                                 FUN      1954
                                        **        O=APRET - RETURN FROM APLIST SUBSKELS                          FUN      1955
                                        *                THIS IS A DUMMY SO THAT SKELETONS CAN                   FUN      1956
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    42
        SUBROUTINES.                                                  SAP 
  
                                        *                PROCESS LIKE SUBROUTINES.                               FUN      1957
                                                                                                                 FUN      1958
                                                                                                                 FUN      1959
          1136                           O=APRET  BSSENT 0           SUB SKEL RETURN                             FUN      1960
          1136  0400001056 +                      EQ     EXIT.       EXIT POINT FOR SAP                          FUN      1961
  
  
  
  
                                        **        SAS - STACK APLIST STRUCTURES                                  FUN      1963
                                        *         APLEN, APTAB, APIND, AND ATF ARE INITIALIZED HERE              FUN      1964
                                        *                                                                        FUN      1965
                                        *         ENTRY  (LEVEL) = CURRENT STACK DEPTH                           FUN      1966
                                        *                                                                        FUN      1967
                                        *         EXIT   (LEVEL) = NEW STACK DEPTH                               FUN      1968
                                        *                (B6) = (LEVEL)                                          FUN      1969
                                        *                (APLEN) = 0                                             FUN      1970
                                        *                (APTAB) = T.SAP OR PASSED VALUE                         FUN      1971
                                        *                (APIND) = APL NUMBER FOR - SA1  AP.(APIND) -            FUN      1972
                                        *                (ATF) = 0                                               FUN      1973
                                        *                (APLEN+(LEVEL)-1),(APTAB+(LEVEL)-1),...= THE  VALUES OF FUN      1974
                                        *                (APLEN),(APTAB),...RESP. UPON ENTRY TO SAS.             FUN      1975
                                        *                                                                        FUN      1976
                                        *         USES A1,A2,A3,A6   X1,X2,X3,X6   B6                            FUN      1977
                                                                                                                 FUN      1978
                                                                                                                 FUN      1979
          1137  0400401137 +             SAS      SUBR               ENTRY/EXIT.                                 FUN      1980
          1140  5130001235 +                      SA3    LEVEL       GET CURRENT STACK DEPTH                     FUN      1981
                          63631                   =B6    X3+1        (B6) = NEW LEVEL                            FUN      1982
                                                                                                                 FUN      1983
                                         .STACK   ECHO   ,P=(APLEN,APTAB,APIND,ATF)    P(LEVEL) = P(0)           FUN      1984
                                                  SA2    P                                                       FUN      1985
                                                  BX6    X2                                                      FUN      1986
                                                  SA6    A2+B6                                                   FUN      1987
                                         .STACK   ENDD                                                           FUN      1988
                                                                                                                 FUN      1989
                                        **        INITIALIZE VALUES                                              FUN      1990
                                                                                                                 FUN      1991
          1145  76660                             SX6    B6                                                      FUN      1992
                     54630                        SA6    A3          RESET LEVEL                                 FUN      1993
                          6150000000 X            SB5    T.API       APLIST INDEX POINTER                        FUN      1994
          1146  6160000000 X                      SB6    T.SAP       APLIST TABLE POINTER WORD                   FUN      1995
                          0100000605 +            RJ     IAS         INITIALIZE APLIST STRUCTURES                FUN      1996
          1147  0400001137 +                      EQ     EXIT.                                                   FUN      1997
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    43
        SUBROUTINES.                                                  SCI 
  
                                        **        SCI - STORE TO CHARACTER ITEM                                  FUN      1999
                                        *         THIS ROUTINE SETS UP A GENERATED L OPERAND AND                 FUN      2000
                                        *         SELECTS A STORE SKELETON THAT PERSERVES AND                    FUN      2001
                                        *         REPLACES THE FIELDS REQUIRED BY A PARTICULAR                   FUN      2002
                                        *         ITEM.                                                          FUN      2003
                                        *                                                                        FUN      2004
                                        *         ENTRY  NONE                                                    FUN      2005
                                        *                                                                        FUN      2006
                                        *         EXIT   PLUG CODE WRITTEN TO PRE-BINARY                         FUN      2007
                                        *                                                                        FUN      2008
                                        *         USES - ALL BUT B4                                              FUN      2009
                                        *                                                                        FUN      2010
                                        *         CALLS EIS                                                      FUN      2011
                                                                                                                 FUN      2012
                                                                                                                 FUN      2013
          1150  0400401150 +             SCI      SUBR               ENTRY/EXIT                                  FUN      2014
          1151  5150001226 +                      SA5    ATF                                                     FUN      2015
                                                                                                                 FUN      2016
                                        **        CONSTRUCT GENERATED L OPERAND                                  FUN      2017
                                                                                                                 FUN      2018
                          5130001215 +            SA3    APLEN       GET INDEX OF CURRENT ITEM IN APLIST         FUN      2019
          1152  63650                             SB6    X5                                                      FUN      2020
                     23363                        AX3    B6          LEN/2 IFF IO                                FUN      2021
                          7265000002              SX6    X5+K=AP     TAG PFX = K=AP+IO[ATF]V                     FUN      2022
          1153  20344                             LX3    -P2.TAGP+P2.BIASP                                       FUN      2023
                     5110001220 +                 SA1    APIND       GET CURRENT APLIST NUMBER                   FUN      2024
                               20615              LX6    P2=PFX                                                  FUN      2025
          1154  36616                             IX6    X1+X6       TAG = LIST NUMBER + PREFIX                  FUN      2026
                     36263                        IX2    X6+X3       ADD TAG AND BIAS (APLEN)                    FUN      2027
                          20254                   LX2    P2.TAGP                                                 FUN      2028
                               76600              =X6    0           SET USE COUNT INCREMENT                     FC50239    26
          1155  0100000000 X                      CALL   POS         PERPARE OPERAND STATUS WORD                 FUN      2030
          1156  5160000000 X                      SA6    REG=G       SET GL1 CELL                                FUN      2031
                                                                                                                 FUN      2032
                                        **        NOW CHOOSE A SKELETON                                          FUN      2033
                                        *         (X5) = ATF                                                     FUN      2034
                                                                                                                 FUN      2035
                          10055                   BX0    X5                                                      FUN      2036
                               20004              LX0    -AT.NULP                                                FUN      2037
          1157  77301                             =X3    -1          SET BIT-0 MASK                              FUN      2038
                     20573                        LX5    59-AT.IOP   POSITION IO BIT                             FUN      2039
                          15203                   BX2    -X3*X0      EXTRACT NUL BIT                             FUN      2040
                               21573              AX5    59          SIGN EXTEND IO BIT                          FUN      2041
          1160  7262000001                        =X6    X2+CIO      (X6)=2*NUL + CSKTAB IO OFFSET               FUN      2042
                          11656                   BX6    X5*X6       CLEAR IF NOT IO                             FUN      2043
          1161  5226001164 +                      SA2    X6+CSKTAB   GET PLUG SKELETON                           FUN      2044
                          73620                   SX6    X2                                                      FUN      2045
          1162  0400000000 X                      EQ     SUB.RET                                                 FUN      2046
                                                                                                                 FUN      2047
          1163                           O=SCRET  BSSENT 0           CHARACTER STORE SKELETON RETURN             FUN      2048
          1163  6170000001                        SB7    1           SET STORE FLAG TO AAP                       FUN      2049
                          0400001150 +            EQ     EXIT.                                                   FUN      2050
                                                                                                                 FUN      2051
          1164                           CSKTAB   BSS    0                                                       FUN      2052
      L      0                                    LOC    0                                                       FUN      2053
      L      0  00000000000000000000 X   CUSR     CON    W=CAPST     USER                                        FUN      2054
      L      1  00000000000000000000 X   CIO      CON    W=CIS0S     IO SCALAR LEVEL 0                           FUN      2055
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    44
        SUBROUTINES.                                                  SCI 
  
      L      2  00000000000000000000 X            CON    W=CIA0S     IO ARRAY LEVEL 0                            FUN      2056
          1167                                    LOC    *O                                                      FUN      2057
  
  
  
  
                                        **        SSC - SET STATUS OF CHARACTER                                  FUN      2059
                                        *         HERE WE SAVE PERTINENT INFORMATION ABOUT CHARACTER             FUN      2060
                                        *         OPERANDS.  OF INTEREST IS:                                     FUN      2061
                                        *                CAC ORDINAL IN P2.BIAS FIELD                            FUN      2062
                                        *                EQIVALENCE CLASS ORDINAL IN P2.TAG FIELD                FUN      2063
                                        *                ORIGINAL SYMBOL TABLE ENTRY IN ST.ORD1 FIELD            FUN      2064
                                        *                CAC BIT IS SET (P2.CACP)                                FUN      2065
                                        *                                                                        FUN      2066
                                        *         ENTRY  (X3) = EQUIV CLASS BASE ORDINAL                         FUN      2067
                                        *                (X5) = OPD                                              FUN      2068
                                        *                (B7) = CAC ORDINAL / FP NUMBER                          FUN      2069
                                        *                                                                        FUN      2070
                                        *         EXIT   (A1,X1) _,= STATUS WORD                                 FUN      2071
                                        *                (X3) - PRESERVED                                        FUN      2072
                                        *                (X5) - PRESERVED                                        FUN      2073
                                        *                (B7) - PRESERVED                                        FUN      2074
                                        *                                                                        FUN      2075
                                        *         USES   A1,A2,A7 X0,X1,X2,X7  B2                                FUN      2076
                                        *                                                                        FUN      2077
                                                                                                                 FUN      2078
                                                                                                                 FUN      2079
          1167  0400401167 +             SSC      SUBR               ENTRY/EXIT.                                 FUN      2080
                                                                                                                 FUN      2081
                                        .TEST     IFEQ   TEST,ON                                                 FUN      2082
                                                  MX0    -P2.USEL                                                FUN      2083
                                                  BX0    -X0*X5      EXTRACT USE COUNT                           FUN      2084
                                                  ZR     X0,"BLOWUP"                                             FUN      2085
                                        .TEST     ENDIF                                                          FUN      2086
                                                                                                                 FUN      2087
          1170  10755                             BX7    X5                                                      FUN      2088
                     5120000000 X                 SA2    T.OUS       GET FWA I. L.                               FUN      2089
                               21754              AX7    P2.TAGP     POSITION OUS ORDINAL                        FUN      2090
          1171  63220                             SB2    X2                                                      FUN      2091
                     20354                        LX3    P2.TAGP     POSITION EQUIV CLASS ORD                    FUN      2092
                          76070                   SX0    B7                                                      FUN      2093
                               53172              SA1    B2+X7       GET STATUS WORD                             FUN      2094
          1172  20024                             LX0    P2.BIASP    POSITION CAC ORD./FPNO                      FUN      2095
                     5120001244 +                 CLAS=  X2,P2,TAG                                               FUN      2096
                               36030              IX0    X3+X0       MERGE EQV BASE ORD AND CAC ORD/FPNO         FUN      2097
          1173  11721                             BX7    X2*X1       EXTRACT SYM ORD OF OPD                      FUN      2098
                     5120001245 +                 CLAS=  X2,P2,(TAG,BIAS)                                        FUN      2099
                               15112              BX1    -X2*X1      CLEAR TAG AND BIAS                          FUN      2100
          1174  7120037774                        CLAS=  X2,ST,(ORD1)                                            FUN      2101
                          15112                   BX1    -X2*X1      CLEAR OLD SYM TAB ORDINAL FIELD             FUN      2102
                               20552              LX5    -P2.FPP                                                 FUN      2103
          1175  20722                             LX7    -P2.TAGP+ST.ORD1P POSITION ORIGINAL SYM ORD             FUN      2104
                     76210                        =X2    1                                                       FUN      2105
                          15225                   BX2    -X5*X2      (X2) = FP[OPD]                              FUN      2106
                               12007              BX0    X0+X7       MERGE ORD1 (OLD SYM TAB ORD) INTO STAT. WD. FUN      2107
          1176  20320                             LX3    -P2.TAGP    RESET X3                                    FUN      2108
                     20217                        LX2    ST.CACP                                                 FUN      2109
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    45
        SUBROUTINES.                                                  SSC 
  
                          12702                   BX7    X0+X2       MERGE IN CAC BIT                            FUN      2110
                               20522              LX5    P2.FPP                                                  FUN      2111
          1177  10177                             BX1    X7                                                      FUN      2112
                     54710                        SA7    A1                                                      FUN      2113
                          0400001167 +            EQ     EXIT.                                                   FUN      2114
  
  
  
  
                                        **        SUA - STORE UNKNOWN-LENGTH APLIST ADJUSTED TEMP.               FC5A243   141
                                        *                                                                        FC5A243   142
                                        *         ENTRY  X1 = STATUS WORD.                                       FC5A243   143
                                                                                                                 FC5A243   144
          1200                           O=SURET  BSSENT 0           RETURN FROM SKELETON                        FC5A243   145
          1200  0400401200 +             SUA      SUBR                                                           FC5A243   146
          1201  20150                             LX1    -P2.BIASP                                               FC5A243   147
                     63610                        SB6    X1                                                      FC5A243   148
                          0100000401 +            RJ     DAT         SET UP ST.+K FOR SKEL                       FC5A243   149
          1202  7160000000 X                      SX6    W=SUA                                                   FC5A246    34
                          0400000000 X            EQ     SUB.RET                                                 FC5A243   151
  
  
  
  
                                        **        GLOBAL DATA CELLS FOR FUN                                      FUN      2116
                                                                                                                 FUN      2117
                                        **        WALK CELLS                                                     FUN      2118
                                                                                                                 FUN      2119
          1203                     1     LEAF     BSSZ   1                                                       FUN      2120
          1204                     1     LNK.CUR  BSSZ   1                                                       FUN      2121
          1205                     1     LNK.LST  BSSZ   1                                                       FUN      2122
                                                                                                                 FUN      2123
                                        **        SAVE CELLS                                                     FUN      2124
                                                                                                                 FUN      2125
          1206                     1     FUN.CUR  BSS    1           CURRENT SKELETON POINTER                    FC5A246    35
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    46
        SCB - SUBSUME CONSTANT CHARACTER BIAS.
  
          1207                                    CTEXT  SCB - SUBSUME CONSTANT CHARACTER BIAS.                  COMFSCB     2
                                        **        SCB - SUBSUME CONSTANT BIAS.                                   COMFSCB     3
                                        *         FORM WC. WORD INCLUDING OPERAND BIAS AND EQUIV. OFFSET.        COMFSCB     4
                                        *                                                                        COMFSCB     5
                                        *         ENTRY  (X1) = OPD                                              COMFSCB     6
                                        *                                                                        COMFSCB     7
                                        *         EXIT   (X6) = WCA, WC. FORMAT                                  COMFSCB     8
                                        *                (B7) = SYMBOL TABLE POINTER TO WHICH WCA APPLIES.       COMFSCB     9
                                        *                                                                        COMFSCB    10
                                        *         PRESERVES  B4,B5,B6                                            COMFSCB    11
                                                                                                                 COMFSCB    12
          1207  0400401207 +             SCB      SUBR                                                           COMFSCB    13
          1210  5150000000 X                      SA5    "O$"SYM                                                 COMFSCB    14
                          43054                   MX0    -"TP"."ORD"L                                            COMFSCB    15
                               63250              SB2    X5                                                      COMFSCB    16
          1211  20120                             LX1    -"TP"."ORD"P                                            COMFSCB    17
                     15210                        BX2    -X0*X1                                                  COMFSCB    18
                          43044                   MX0    -"TP"."BIAS"L                                           COMFSCB    19
                               20130              LX1    "TP"."ORD"P-"TP"."BIAS"P                                COMFSCB    20
          1212  15510                             BX5    -X0*X1                                                  COMFSCB    21
                     20544                        LX5    -"TP"."BIAS"L                                           COMFSCB    22
                          21544                   AX5    -"TP"."BIAS"L                                           COMFSCB    23
          1213  0100000000 X                      CALL   ECB         EVALUATE CONSTANT BIAS                      COMFSCB    24
          1214  0400001207 +                      EQ     EXIT.                                                   COMFSCB    25
                                         COMFSCB  ENDX                                                           COMFSCB    26
                                                                                                                 FUN      2128
                                        **        COUNTERS,  POINTERS AND FLAGS                                  FUN      2129
                                                                                                                 FUN      2130
          1215                           APLFLG   BSSENT 0                                                       FC50239    27
          1215                     3     APLEN    BSSZ   3           LENGTH OF CURRENT APLIST                    FUN      2131
          1220                     3     APIND    BSSZ   3           INDEX INTO INDEX TABLE                      FUN      2132
          1223                     3     APTAB    BSSZ   3           42/INDEX[FW LIST],18/TABLE PTR WORD (T.)    FUN      2133
          1226                     3     ATF      BSSZ   3           APLIST TYPE FUNCTION (CONTROLS IA. FORMAT)  FUN      2134
                                                                                                                 FUN      2135
          1231                     1     CLEN     BSSZ   1           LENGTH COUNTER FOR GENERATED APLISTS        FUN      2136
                                                                                                                 FUN      2137
          1232                     1     FAF      BSSZ   1           FIRST APLIST FLAG                           FUN      2138
                                                                                                                 FUN      2139
          1233                     1     DEFDIF   BSSZ   1           DEFERED TURPLE POINTER DIFERENCE            FUN      2140
          1234                     1     COLDIF   BSSZ   1           COLIN TURPLE POINTER DIFFERENCE             FUN      2141
                                                                                                                 FUN      2142
          1235                     1     LEVEL    BSSZ   1           STACK DEPTH INDICATOR                       FUN      2143
                                         L.APLF   EQUENT *-APLFLG                                                FC50239    28
  
  
  
  
                                                  LIST   D                                                       FUN      2150
  
                                        CONTENT OF LITERALS BLOCK.
  
          1236  20000000000000000001    P        A
          1237  40000000000000000001    5        A
          1240  60000000000000000001    #        A
          1241  00760000000000000000     ^
          1242  00000631463146314632      FY-Y-Y-Z
          1243  00000077776000000000       ;;#
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    47
        SCB - SUBSUME CONSTANT CHARACTER BIAS.                        LITERALS
  
          1244  77777400000000000000    ;;@ 
          1245  77777777777774000000    ;;;;;;@ 
  
          1246                                    END                                                            FUN      2151
  
                             75500B CM  STORAGE USED             8063 STATEMENTS     1875 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            6.623 SECONDS        1141 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        AAP           242   PROGRAM*       13/12 L   19/56     35/35     36/19     41/52
        ADW             0   EXTERNAL*       2/02 X    5/51      8/31     10/04     17/32     20/55     36/24
                                            3/31      6/48     10/02     13/46     20/20     28/46     37/45
        ALC             0   EXTERNAL*       2/02 X   37/29
        APIND        1220   PROGRAM*       28/41 S   30/51     31/29     40/09     42/35     43/26     46/31 L
        APLEN        1215   PROGRAM*        3/19 S    6/49      8/32     13/49 S   31/29     36/25     37/38     43/21
                                            3/32      7/20      9/51     17/33     31/33     37/27     40/05     46/30 L
                                            5/52      7/52 S   13/47     28/47 S   35/38     37/35     42/35
        APLFLG       1215   PROGRAM*       46/29 L   46/29 E   46/43
        APTAB        1223   PROGRAM*       13/43     19/17     31/29     35/13     36/23     42/35
                                           17/48     28/38 S   31/35     36/17 S   37/31     46/32 L
        ATF          1226   PROGRAM*        8/14 S   10/52 S   15/07 S   19/54 S   29/22     31/44     38/57     43/17
                                            9/10 S   11/18 S   15/50     24/34 S   29/29 S   35/10     41/51     46/33 L
                                            9/18 S   13/13     19/45     28/21 S   31/29     38/40     42/35
        AT.CHARP       71                  13/23     19/49
        AT.IOCP        72                   8/12     10/40     11/15     13/23
        AT.IOP          0                   8/12      9/14     10/40     11/15     31/45     43/41
        AT.LENP        73                   9/14     11/15
        AT.MODEL        5                  13/23     19/48
        AT.MODEP       61                  13/23     13/23     19/48     19/51     29/27
        AT.NULP        70                   8/57     10/42     35/11     43/39
        AT.SPRP        66                  13/44     15/51
        BGA           260   PROGRAM*        5/56      6/04      6/46     14/15 L   17/38
        BGA1          270   PROGRAM*       14/38     14/42 L   14/47
        BN=APL          0   EXTERNAL*       2/17 X   30/44
        B1=1            0 
        CCA           273   PROGRAM*       15/05 L   21/43     33/40
        CCT           306   PROGRAM*       15/44 L   17/45     19/16
        CCTA          337   PROGRAM*       16/18 S   16/54 L   18/06     18/11
        CCTB          340   PROGRAM*       16/11     16/55 L   17/44 S   17/47 S
        CCTC          341   PROGRAM*       16/08 S   16/24     16/48     16/56 L
        CCTD          342   PROGRAM*       16/33 S   16/39     16/57 L
        CCT10         321   PROGRAM*       16/17 L   16/52
        CCT20         324   PROGRAM*       16/12     16/23 L
        CDS             0   EXTERNAL*       2/30 X    9/42
        CIA             0   EXTERNAL*       2/30 X    9/43     37/26
        CIO             1                  43/44     43/57 L
        CLEN         1231   PROGRAM*       14/32 S   17/39     32/38     32/41 S   33/14     46/35 L
        COLDIF       1234   PROGRAM*       22/41 S   24/40     24/54     46/40 L
        CO.ARGF         0   EXTERNAL*       2/11 X    4/05     11/45
        CO.SNAP         0   EXTERNAL*       2/11 X
        CRJ             0   EXTERNAL*       2/30 X    7/50     10/16     37/21
        CSKTAB       1164   PROGRAM*       43/46     43/54 L
        CURSK           0   EXTERNAL*       2/14 X    5/47      6/27 S    6/39      7/02 S
        CUSR            0                  43/56 L
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        CWI             0   EXTERNAL*       2/30 X   41/17     41/27
        DAC           343   PROGRAM*       17/17 L   29/41
        DACA          400   PROGRAM*       17/22 S   17/41     18/15     18/19 L
        DAC1          376   PROGRAM*       17/23     17/24     18/15 L
        DAC5          373   PROGRAM*       18/04     18/10 L
        DAT           401   PROGRAM*       18/28 L   29/56     45/18
        DCF           407   PROGRAM*        4/27     19/02 L
        DEFDIF       1233   PROGRAM*       21/27 S   21/44     22/27 S   22/56     24/13     24/32     24/39     46/39 L
        DIT             0   EXTERNAL*       2/30 X    4/48      5/02
        DMT=            0   EXTERNAL*       2/08 X
        ECA           417   PROGRAM*       15/20     16/20     18/12     19/44 L   25/04     32/46     33/05
        ECB             0   EXTERNAL*       2/17 X   46/23
        ECS             0   EXTERNAL*       2/17 X   24/05
        ECW           426   PROGRAM*       16/01     16/38     20/19 L   24/07     32/24
        ECW1          431   PROGRAM*       20/23 L   20/26
        EIS.PNX         0   EXTERNAL*       2/14 X    3/36      5/25      8/36      9/21     11/22
        ENT.SUB         0   EXTERNAL*       2/14 X   37/04 S
        ESC           435   PROGRAM*       20/48 L   20/48 E   41/39
        ESC10         443   PROGRAM*       20/54     20/57 L
        FAF          1232   PROGRAM*        4/09      6/24 S    9/45     11/49     28/33 S
                                            4/19 S    7/05 S   10/01 S   28/27     46/37 L
        FIA           444   PROGRAM*       21/19 L   34/23
        FIA1          452   PROGRAM*       21/35     21/39 L
        FP.LENP        44   FTX            37/12
        FUNA           42   PROGRAM*        4/08 S    4/29      5/05 L   11/48 S   12/05
        FUN.CUR      1206   PROGRAM*        5/49 S    6/25      6/41 S    6/57     45/35 L
        FVS           456   PROGRAM*       22/15 L   34/39
        FVSA          546   PROGRAM*       22/19 S   22/55 S   24/49     25/09 L
        FVSB          547   PROGRAM*       23/20 S   23/25     23/36 S   23/41 S   25/10 L   33/11
        FVSUKL        550   PROGRAM*       17/37 S   17/42     18/03     18/08     25/06 S   25/11 L
        FVS1          474   PROGRAM*       22/51     23/15 L
        FVS15         505   PROGRAM*       23/26     23/39 L
        FVS2          520   PROGRAM*       23/44     24/11 L
        FVS3          523   PROGRAM*       23/08     23/24     23/37     24/23 L
        FVS4          526   PROGRAM*       24/26     24/29 L
        FVS5          532   PROGRAM*       24/35     24/39 L
        GAS           551   PROGRAM*       14/37     17/20     23/43     25/02     29/21     34/10
                                           15/18     21/34     24/25     25/37 L   33/33     35/21
        GASA          564   PROGRAM*       25/42 S   26/13 L   29/31     29/37
        GAS1          562   PROGRAM*       25/57     26/04     26/07 L
        GCL             0   EXTERNAL*       2/17 X   19/13     33/09     35/30
        GNO           565   PROGRAM*       14/43     26/42 L
        GNO1          571   PROGRAM*       26/56 L   27/06
        GNO2          573   PROGRAM*       26/49     27/06 L
        GNO3          576   PROGRAM*       27/25 L   27/34
        GNO4          600   PROGRAM*       27/19     27/34 L
        GST             0   EXTERNAL*       2/30 X   38/45     41/21
        IAPA          123   PROGRAM*        7/22      7/33 L
        IAP2          122   PROGRAM*        7/27      7/28      7/30 L
        IAS           605   PROGRAM*        3/28      5/21      8/50     10/34     28/18 L
                                            4/14      8/11      9/49     11/55     42/43
        IAS1          611   PROGRAM*       28/22     28/32 L
        IAS2          616   PROGRAM*       28/42     28/45 L
        IAW           621   PROGRAM*        5/23      8/16      9/13      9/19     10/56     11/20     29/18 L
        IAW30         632   PROGRAM*       29/30     29/35 L
        IAW40         635   PROGRAM*       29/36     29/41 L
        IA.CHARP       11   FTX            13/23
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    49
        SYMBOLIC REFERENCE TABLE. 
  
        IA.CRHP        10   FTX             6/13
        IA.IOCP        13   FTX            13/23
        IA.LEFTP       52   FTX             6/09
        IA.MODEL        6   FTX             8/21     10/57
        IA.MODEP       14   FTX             8/24      8/28     11/06     11/09     13/23
        IA.ORBIP       22   FTX            13/30
        IA.RITEP       22   FTX             6/10
        IA.STP         12   FTX            13/38
        IA.TAGL        22   FTX            10/07     33/08
        IA.TAGP        52   FTX            30/57     33/06     38/03
        IA.VARP         5   FTX            13/40
        IC.UNT          1   FTX            11/05
        IO              1                   3/03 D    9/57
        IODA          162   PROGRAM*        9/12 S    9/15      9/23 L   10/54 S   11/16
        IOD10         154   PROGRAM*        9/03      9/06      9/09 L
        IOF1          170   PROGRAM*        9/48      9/51 L
        IOU10         214   PROGRAM*       10/45     10/48     10/51 L
        K2.AP       40000                  40/11
        K=AP            2   FTX            43/24
        K.AP       200000   FTX            30/55
        LEAF         1203   PROGRAM*       14/44     23/42     24/24     27/16 S   35/20
                                           21/33     24/09     25/01     34/11 S   45/29 L
        LEVEL        1235   PROGRAM*       28/19     31/22     42/28     46/42 L
        LNK.CUR      1204   PROGRAM*       14/30 S   14/46     27/40 S   45/30 L
        LNK.LST      1205   PROGRAM*       14/36 S   26/44     27/37 S   45/31 L
        LUA           637   PROGRAM*       29/52 L   32/52
        L.APLF         21                  46/43 D   46/43 E
        MVE=            0   EXTERNAL*       2/33 X   37/37
        M.CHAR          6   FTX             3/24      4/25      4/37     19/46     29/26
        M.DBL           4   FTX             4/53      7/25
        NAP           644   PROGRAM*       10/05     30/22 L   38/01
        NAP1          654   PROGRAM*       30/34     30/42 L
        NCM             0   EXTERNAL*       2/05 X   30/32
        NULLOP          0   EXTERNAL*       2/14 X    3/25      4/39      5/03      6/28      7/06     10/17     12/09
        N.ST            0   EXTERNAL*       2/17 X   15/47     16/23     40/27
        N.TABLE         0   EXTERNAL*       2/17 X   28/35     28/39
        OP.MODEL        4                   3/21      4/22      4/34      7/19     29/23
        OP.MODEP       22                   3/22      4/23      4/35      7/21     29/24
        OP.2MODL        3                   4/50     40/35
        OP.2MODP       22                   4/51
        OP.2ORDL       16                  19/06
        OP.2ORDP       34                  19/06     19/10
        OR.OPR          0   FTX             3/20      4/21      4/33      4/49      7/18     19/07     29/20
        OR.1OP          1   FTX             3/29      6/45      9/01     15/17     23/16     23/51     24/45     39/17
                                            4/16      7/48     10/13     19/03     23/21     23/57     26/47
                                            5/22      8/19     10/55     21/36     23/28     24/02     27/17
                                            5/55      8/56     12/02     22/49     23/30     24/27     27/43
        OR.2OP          2   FTX             6/03      9/01     10/43     22/36     24/02     27/17
                                            6/43      9/16     11/19     23/21     24/36     27/43
                                            8/15      9/44     21/42     23/30     24/47
        O=APRET      1136   PROGRAM*       42/04 L   42/04 E
        O=FAP           0   PROGRAM*        3/17 L    3/17 E
        O=FUN          12   PROGRAM*        4/04 L    4/04 E
        O=FUN1         24   PROGRAM*        4/26      4/29 L
        O=FUN10        13   PROGRAM*        4/02      4/08 L
        O=FUN15        17   PROGRAM*        4/12      4/13      4/16 L
        O=FUN2         31   PROGRAM*        4/38      4/43 L    7/53
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    50
        SYMBOLIC REFERENCE TABLE. 
  
        O=FUN3         37   PROGRAM*        4/54      4/56 L
        O=FUN5         41   PROGRAM*        4/55      5/03 L
        O=GAP          43   PROGRAM*        5/18 L    5/18 E
        O=HLEX         47   PROGRAM*        5/34 L    5/34 E
        O=HREL         51   PROGRAM*        5/40 L    5/40 E
        O=HSTO        100   PROGRAM*        6/38 L    6/38 E
        O=IAP         115   PROGRAM*        7/17 L    7/17 E
        O=INF         125   PROGRAM*        7/47 L    7/47 E
        O=IOC         131   PROGRAM*        8/08 L    8/08 E
        O=IOD         146   PROGRAM*        8/47 L    8/47 E
        O=IOF         163   PROGRAM*        9/41 L    9/41 E
        O=IOU         205   PROGRAM*       10/31 L   10/31 E
        O=LIB         227   PROGRAM*       11/40 L   11/40 E
        O=LIBF         11   PROGRAM*        3/57 L    3/57 E
        O=LURET       637   PROGRAM*       29/51 L   29/51 E
        O=SCRET      1163   PROGRAM*       43/50 L   43/50 E
        O=SUB         230   PROGRAM*       11/44 L   11/44 E
        O=SURET      1200   PROGRAM*       45/14 L   45/14 E
        PAS           662   PROGRAM*        6/22      7/03     15/15     18/02     24/55     31/21 L
        PAS10         675   PROGRAM*       31/34     31/40     31/44 L
        PB.GHIJP       60   FTX            38/06
        PB.INSTP       55   FTX            10/10
        PB.TAGL        22   FTX            38/02
        PB.TAGP        36   FTX            10/08     38/07
        PCA           700   PROGRAM*       21/41     24/12     24/31     32/15 L   33/34     34/19
        PCAA          731   PROGRAM*       32/17 S   32/26     32/47     33/19 L
        PCAB          732   PROGRAM*       32/51 S   32/54     33/20 L
        PCA1          710   PROGRAM*       32/21     32/34 L
        PCA12         715   PROGRAM*       32/46 L   32/56
        PCA15         717   PROGRAM*       32/43     32/50 L
        PCA2          724   PROGRAM*       32/20     33/04 L
        PCA25         727   PROGRAM*       33/10     33/13 L
        PCF           733   PROGRAM*       33/31 L   34/42
        PCI           743   PROGRAM*        6/44     14/39     14/45     18/16     34/07 L
        PCI1          750   PROGRAM*       34/12     34/19 L
        PCI2          752   PROGRAM*       34/15     34/22 L
        PCI3          754   PROGRAM*       34/22     34/26 L
        PCI4          756   PROGRAM*       34/17     34/42 L
        PCL           760   PROGRAM*       29/38     35/09 L
        PCLA         1017   PROGRAM*       35/16 S   35/36     36/30 L
        PCLB         1020   PROGRAM*       35/19 S   36/11     36/31 L
        PCL10         771   PROGRAM*       35/25     35/28 L
        PCL30        1002   PROGRAM*       35/55 L   36/03
        PCL40        1006   PROGRAM*       36/05     36/10 L
        PCL50        1013   PROGRAM*       35/12     36/22 L
        PCRA           76   PROGRAM*        6/02 S    6/05      6/30 L
        PCRB           77   PROGRAM*        5/37 S    5/44 S    6/17      6/31 L
        PCR10          53   PROGRAM*        5/38      5/46 L
        PEJ          1033   PROGRAM*        4/30      6/21      6/56     12/06     15/14     18/01     24/53     37/23 L
        PEJA         1055   PROGRAM*       37/25 S   37/42     38/11 L
        PEJ1         1050   PROGRAM*       37/43     37/47 L
        PEJ6         1021   PROGRAM*       36/52 L   37/47     38/09
        PEJ7         1031   PROGRAM*       36/55     37/20 L
        POS             0   EXTERNAL*       2/23 X   18/38     33/38     40/47     40/52     43/32
        P2=PFX         15                  40/12     43/27
        P2.ADDRP       13                  39/21     39/26     39/29     40/06
        P2.ARRP        15                  34/13     39/11
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        P2.BIASL       30                  13/27     20/49     22/18     22/57     27/28     44/47     46/21
                                           13/28     20/50     22/52     26/07     39/18     46/18     46/22
        P2.BIASP       24                   8/20     14/34     21/22     23/31     26/08     35/31     40/32     44/47
                                            9/04     16/43     22/21     23/32     26/56     36/14     41/41     45/16
                                            9/54     18/35     22/38     24/03     27/25     39/15     43/25     46/19
                                           10/46     20/49     22/52     24/04     27/36     40/14     44/43
        P2.CNCTP       11                  17/19     26/46     26/56     27/15
        P2.FPP         22                  23/18     34/16     36/54     39/28     45/02
                                           32/19     35/24     36/56     44/51
        P2.INTRP       12                  22/50     22/52     23/18     34/14     34/16     39/02     39/21     39/28
        P2.LCMP        23                  39/29
        P2.ORBIP       24                  13/28     13/30
        P2.ORDL        15                  13/27     13/28
        P2.PFXL         3                  13/32
        P2.SHRTP       14                   9/02      9/04     10/44     10/46     23/23     33/36
        P2.TAGL        20                  19/05     25/48     36/57     39/13     39/34     44/44     44/47     46/14
        P2.TAGP        54                   6/19     17/55     19/10     35/26     39/14     41/40     44/40     44/56
                                            6/54     18/33     24/50     35/32     39/35     43/25     44/44     46/16
                                           15/10     19/04     25/46     36/15     40/16     43/30     44/47     46/19
                                           16/42     19/05     25/52     36/56     40/30     44/38     44/52
        P2.USEL        11                  25/41     38/39
        P2.USEP         0                  19/12
        P=PFX          17   FTX            30/54
        REG=G           0   EXTERNAL*       2/23 X   40/45 S   40/53 S   41/18     41/28
                                           18/39 S   40/49     41/16 S   41/25 S   43/33 S
        REG.X          20                  29/53
        RLOCK         400                  14/16     26/43
        ROUTNAM         0   EXTERNAL*       2/05 X    6/20 S   12/04 S   17/56 S   36/52
                                            4/20 S    6/55 S   15/13 S   24/52 S
        RUT             0   EXTERNAL*       2/30 X   29/55
        R.X6           26                   4/45
        R.X7           27                   4/57
        SAP          1056   PROGRAM*       15/08     24/37     24/46     24/48     29/32     35/37     38/37 L
        SAP10        1071   PROGRAM*       39/03     39/26 L
        SAP20        1077   PROGRAM*       39/24     40/04 L
        SAP30        1105   PROGRAM*       39/22     39/23     39/27     39/32     40/27 L
        SAP40        1111   PROGRAM*       40/20     40/45 L
        SAP5         1062   PROGRAM*       38/43     38/56 L
        SAP50        1117   PROGRAM*       39/12     41/12 L
        SAP55        1123   PROGRAM*       41/14     41/19 L
        SAP60        1127   PROGRAM*       41/26     41/28 L
        SAP70        1131   PROGRAM*       39/37     41/39 L
        SAP80        1133   PROGRAM*       39/33     39/38     39/39     41/48 L
        SAP90        1134   PROGRAM*       40/56     41/31     41/51 L
        SAS          1137   PROGRAM*        5/46      6/42     17/30     21/32     24/23     33/32     42/27 L
        SA=BK       51000                  10/09     38/04
        SCB          1207   PROGRAM*       23/55     32/22     46/12 L
        SCI          1150   PROGRAM*       15/16     18/05     24/57     32/53     43/16 L
        SCT             0   EXTERNAL*       2/05 X   20/52
        SSC          1167   PROGRAM*       16/10     24/10     32/27     44/28 L
        STS             0   EXTERNAL*       2/30 X   41/13     41/23
        ST.CACP        17                  16/45     25/53     25/56     44/57
        ST.CTMP        20                  16/14     16/45     25/56     26/03     26/08
        ST.ORD1L       14                  35/28     44/49
        ST.ORD1P        2                  35/23     35/26     44/49     44/52
        ST.UKLP        16                  16/45     26/03
        SUA          1200   PROGRAM*       18/07     45/15 L
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        SUB1          235   PROGRAM*       11/53     11/54     11/57 L
        SUB10         231   PROGRAM*       11/42     11/48 L
        SUB.RET         0   EXTERNAL*       2/14 X    7/31     30/01     41/54     43/48     45/20
        S=CL            0   EXTERNAL*       2/17 X   36/13
        S=CON           0   EXTERNAL*       2/17 X   20/57
        S=FAR           0   EXTERNAL*       2/17 X   15/09
        S=FAS           0   EXTERNAL*       2/17 X   22/53
        S=FMC           0   EXTERNAL*       2/18 X    5/42
        S=FVS           0   EXTERNAL*       2/18 X   22/16
        S=LMC           0   EXTERNAL*       2/18 X    5/35
        S=MMC           0   EXTERNAL*       2/18 X    6/52     17/53
        S=ST            0   EXTERNAL*       2/18 X   16/09     16/40     18/31     40/28
        TEST            0   FTX            34/28 F   37/49 F   39/05 F   44/30 F
        TRACE           0   EXTERNAL*       2/23 X   10/15     37/20
        T=APL           0   EXTERNAL*       2/18 X   30/24     30/35     37/28
        T=CAC           0   EXTERNAL*       2/18 X   20/30     20/30 S
        T=CLW           0   EXTERNAL*       2/18 X   35/45     36/07 S
        T=IOA           0   EXTERNAL*       2/18 X    8/17     11/02
        T=PAR           0   EXTERNAL*       2/19 X   14/31
        T=SAP           0   EXTERNAL*       2/19 X    4/32 S    6/06     12/08 S   31/48 S
                                            4/32      5/57     12/08     31/48
        T.API           0   EXTERNAL*       2/19 X    3/26      4/10      5/19     11/50     30/50     42/41
        T.APL           0   EXTERNAL*       2/19 X   30/23     37/29     37/45     37/45
        T.CAC           0   EXTERNAL*       2/19 X   18/29     20/20     20/20     32/34
        T.CLW           0   EXTERNAL*       2/19 X   35/15     35/44
        T.CON           0   EXTERNAL*       2/19 X   20/52     20/52
        T.FPI           0   EXTERNAL*       2/19 X   37/11
        T.IOA           0   EXTERNAL*       2/19 X    8/18      8/49     10/02     10/04     11/01
                                            8/10      8/31      9/47     10/02     10/33
        T.IOI           0   EXTERNAL*       2/20 X    8/09      8/48      9/46     10/32
        T.OUS           0   EXTERNAL*       2/20 X   16/25     16/47     25/45     44/37
        T.PAR           0   EXTERNAL*       2/20 X   21/21     22/20     23/15     23/27     23/56     26/45     39/16
        T.SAP           0   EXTERNAL*       2/20 X    3/31      5/20      5/51      6/48     17/32
                                            3/27      4/11      5/51      6/12     11/51     42/42
        T.SYM           0   EXTERNAL*       2/20 X   37/06     46/13
        UAP           620   PROGRAM*       28/43 S   28/50 L   28/50 E
        USER            0                   3/04 D   37/45     37/45     37/57
        UUC             0   EXTERNAL*       2/23 X    4/47 S
        V=SUBST         0   EXTERNAL*       2/26 X
        WB.FPNOL       11   FTX            37/13     37/15
        WB.FPNOP       41   FTX            37/13
        WB.W            1   FTX            37/07
        WC.CLENL       22   FTX            32/36
        WC.CLENP       36   FTX            15/54     32/37
        WC.RAL         30   FTX            16/30     16/32
        WC.RAP          0   FTX            16/32
        WC.RBP         60   FTX            30/48
        WC.RLP         72   FTX            30/46
        WIN             0   EXTERNAL*       2/23 X   10/12     38/09
        WO.CS           0   EXTERNAL*       2/20 X    5/41
        WO.DOOT         0   EXTERNAL*       2/20 X   13/39
        W=APSTR         0   EXTERNAL*       2/26 X   40/37
        W=CAPST         0   EXTERNAL*       2/26 X   43/56
        W=CIA0S         0   EXTERNAL*       2/26 X   44/01
        W=CIS0S         0   EXTERNAL*       2/26 X   43/57
        W=IAPD1         0   EXTERNAL*       2/26 X    7/33
        W=IAPD2         0   EXTERNAL*       2/26 X    7/35
1       FUN - (QCG)    EXTERNAL PROCEDURE INVOCATION.                 COMPASS 3.7-871.     24/05/02. 13.18.15.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        W=IAPS1         0   EXTERNAL*       2/27 X    7/33
        W=IAPS2         0   EXTERNAL*       2/27 X    7/35
        W=IPLG0         0   EXTERNAL*       2/27 X   40/19
        W=IPLUG         0   EXTERNAL*       2/27 X
        W=LUA           0   EXTERNAL*       2/27 X   29/57
        W=SUA           0   EXTERNAL*       2/27 X   45/19
        Z=SYM           3   FTX            37/10
        Z=TURP          3   FTX             3/35      5/24      8/35      9/20     11/21     14/33
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1545              IDENT  REG
                       1545                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1542 
                                        LITERALS* LOCAL        1542         3 
                                        RGFILE    COMMON          0        30 
  
  
                                        ENTRY POINTS. 
  
                                        B=REG            0+           CIA            110+           RLL           1010+ 
                                        P2=KEEP       1542+           CLI            143+           RUL           1015+ 
                                        RG=BADR          0+           CRJ            231+           REGLK         1024+ 
                                        RG=INTR          3+           CWI            260+           CLOADJ        1026+ 
                                        RG=TEMP          6+           DIT            305+           STRGLK        1027+ 
                                        RG=LOAD         11+           DSC            324+           RUT           1036+ 
                                        RG=LODX         14+           GNR            355+           SDS           1126+ 
                                        RG=SET          17+           GST            430+           SFR           1227+ 
                                        RG=STOR         22+           GSTC           453+           STS           1257+ 
                                        AIR             25+           GTR            454+           O=PAR         1322+ 
                                        ASR             37+           LSC            751+           SLD           1323+ 
                                        CDS             71+           LTG           1002+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        COD       RUT.REG   IDP=SVX   SVR=      RREG      N.TABLE   T.PAR     T.FPI 
                                        CO.DBTB   IJK       REG=      DRITE     TYPLOD    S=ST      T.SYM 
                                        CO.SNAP   INS.REG   RSR=      NOLDS     UUC       T=SYM     WOF 
                                        ESC       IDP=SVA   SNP=      RGC       WIN       T.BLKS    V=STR.I 
                                        EIS.PNX   IDP=SVB   SVB       RGX       N.ST      T.OUS     ENT.SB0 
  
  
  
  
                                                  IDENT  REG                                                     REG         2
                                         REG      SECT   ((QCG)    RESOURCE ALLOCATION.)                         REG         3
  
  
  
  
  
                                        *         IN FTN                                                         REG         5
                                                  EXT    COD,CO.DBTB,CO.SNAP                                     REG         6
                                                                                                                 REG         7
                                        *         IN FUN                                                         REG         8
                                                  EXT    ESC                                                     REG         9
                                                                                                                 REG        10
                                        *         IN GEN                                                         REG        11
                                                  EXT    EIS.PNX,RUT.REG,IJK,INS.REG                             FC50950     9
                                                                                                                 REG        13
                                        *         IN IDP                                                         REG        14
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     2
                                                                      REG 
  
                                                  EXT    IDP=SVA,IDP=SVB,IDP=SVX,REG=,RSR=,SNP=,SVB,SVR=         REG        15
                                                                                                                 REG        16
                                        *         IN QCGC                                                        REG        17
                                                  EXT    DRITE,NOLDS,RGC,RGX,RREG,TYPLOD,UUC,WIN                 REG        18
                                                                                                                 REG        19
                                        *         IN PUC                                                         REG        20
                                                  EXT    N.ST,N.TABLE,S=ST,T=SYM,T.BLKS,T.OUS,T.PAR,T.SYM,WOF    REG        21
                                                                                                                 REG        22
                                        *         IN QSKEL                                                       FC5A375     6
                                                  EXT    V=STR.I                                                 FC5A375     7
                                                                                                                 FC5A375     8
                                                  LIST   -X                                                      REG        23
                                                                     COMAQCG IS LISTED IN QCGC                   REG        24
             0                                    CTEXT  COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.          COMAQCG     2
                                                                     COMSQCG IS LISTED IN QCGC                   REG        26
             0                                    CTEXT  COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.     COMSQCG     2
                                                                     COMSQRF IS LISTED IN QCGC                   REG        28
             0                                    CTEXT  COMSQRF - QCG REGISTER ASSOCIATES.                      COMSQRF     2
                                                                     DEFINS IS LISTED IN QSKEL                   REG        30
             0                                    CTEXT  DEFINS - DEFINE MACHINE OPCODES.                        DEFINS      2
                                                                                                                 REG        32
                                                  ENTRY  P2=KEEP                                                 REG        33
                                         P2=KEEP  BFLIT  P2,(TAG,BIAS,2ATR)                                      REG        34
  
  
  
  
                                        **        DEFREG - CONSTRUCT REGISTER TYPE SCAN WORDS.                   REG        36
                                        *                                                                        REG        37
                                        *         FOR EACH REG TYPE THERE ARE THREE WORDS --                     REG        38
                                        *         1.  OPCODE AND NUMBER OF REGS IN CLASS (RS. FORMAT).           REG        39
                                        *         2.  60/N BITS FOR EACH REGISTER IN CLASS.                      REG        40
                                        *         3.  COPY OF WORD 2 (FOR INITIALIZATION).                       REG        41
                                        *                                                                        REG        42
                                        **T TYPE  6/ INST,  18/ MASK WIDTH,  18/ NUMBER,  18/ 0T0                REG        43
                                        *   SCAN  W/ R.R1,  W/ R.R2, ..., W/ R.RN                                REG        44
                                        *   COPY  W/ R.R1,  W/ R.R2, ..., W/ R.RN                                REG        45
                                        *         REGISTERS ARE SCANNED AND ASSIGNED FROM RIGHT TO LEFT.         REG        46
                                                                                                                 REG        47
                                                                                                                 REG        48
                                                  MACRO  DEFREG,TYPE,INST,REGS,CLAS                              REG        49
                                         B        SET                                                            REG        50
                                        *                            COUNT MEMBERS IN CLASS                      REG        51
                                        .1        IRP    REGS                                                    REG        52
                                         B        SET    B+1                                                     REG        53
                                        .1        IRP    REGS                                                    REG        54
                                         D        SET    60/B                                                    REG        55
                                        *                            GENERATE FIELD FOR EACH MEMBER              REG        56
                                         A        MICRO                                                          REG        57
                                        .2        IRP    REGS                                                    REG        58
                                         A        MICRO  1,, "A"D/R.REGS,                                        REG        59
                                        .2        IRP    REGS                                                    REG        60
                                        *                                                                        REG        61
                                                  ENTRY  TYPE                                                    REG        62
                                         TYPE     VFD    RS.INSL/INST/1S9,RS.MSKL/D,RS.NUML/B,RS.TYPL/CLAS       REG        63
                                                  VFD    "A"                                                     REG        64
                                                  VFD    "A"                                                     REG        65
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     3
                                                                      DEFREG
  
                                         DEFREG   ENDM                                                           REG        66
                                                                                                                 REG        67
                                                                                                                 REG        68
             0  61000014000005000000     RG=BADR  DEFREG SB=BK,(B1,B2,B3,B4,B5),REG.B                            REG        69
             3  72000024000003000020     RG=INTR  DEFREG SX=XK,(X0,X6,X7),REG.X                                  REG        70
             6  72000012000006000020     RG=TEMP  DEFREG SX=XK,(X0,X1,X2,X3,X4,X5),REG.X                         REG        71
            11  51000014000005000010     RG=LOAD  DEFREG SA=BK,(X1,X2,X3,X4,X5),REG.A                            REG        73
            14  71000014000005000020     RG=LODX  DEFREG SX=BK,(X1,X2,X3,X4,X5),REG.X                            REG        74
            17  72000012000006000020     RG=SET   DEFREG SX=XK,(X0,X1,X2,X3,X4,X5),REG.X                         REG        75
            22  71000036000002000020     RG=STOR  DEFREG SX=BK,(X7,X6),REG.X                                     REG        76
                                                                                                                 REG        78
                                                  PURGMAC DEFREG                                                 REG        79
  
  
  
  
                                        **        AIR -  ASSIGN *INTERMEDIATE* REGISTER.                         REG        81
                                        *                                                                        REG        82
                                        *         ENTRY  N/A                                                     REG        83
                                        *                                                                        REG        84
                                        *         EXIT   IF FREE REGISTER FOUND.                                 REG        85
                                        *                (B2) = REGISTER - 0TR, ASSIGNED                         REG        86
                                        *                                                                        REG        87
                                        *                IF NO FREE REGISTER FOUND.                              REG        88
                                        *                (B2) = - (0TR) FOR NEXT AVAILABLE LOAD REGISTER TO USE  REG        89
                                        *                (B5) = USE COUNT ON REGISTER.                           REG        90
                                        *                                                                        REG        91
                                        *         CALLS  DRITE,SFR                                               REG        92
                                                                                                                 REG        93
                                                                                                                 REG        94
            25  0400400025 +             AIR      SUBR   =           ENTRY/EXIT...                               REG        95
            26  6130000003 +                      SB3    RG=INTR                                                 REG        96
                          0100001227 +            RJ     SFR         SCAN FOR REGISTER                           REG        97
            27  0307000025 +                      ZR     X7,EXIT.    IF USE COUNT *0*                            REG        98
                                                                                                                 REG        99
                                        **        HERE IF *INTERMEDIATE* REGISTERS NOT FREE.                     REG       100
                                                                                                                 REG       101
                          13000                   DRITE  DEACTIVATE                                              REG       102
            31  0302000032 +                      ZR     X2,AIR1     IF REGISTER NOT RELEASED                    REG       103
                          0307000025 +            ZR     X7,EXIT.    IF LAST USE OF REGISTER                     REG       104
                                                                                                                 REG       105
            32  6130000011 +             AIR1     SB3    RG=LOAD                                                 REG       106
                          0100001227 +            RJ     SFR                                                     REG       107
            33  0307000025 +                      ZR     X7,EXIT.    IF REGISTER FREE                            REG       108
                          67202                   SB2    -B2                                                     REG       109
                               43063              MX0    -RG.USEL                                                REG       110
            34  5110000000 X                      SA1    RGX                                                     REG       111
                          0301000025 +            ZR     X1,EXIT.    IF NON-INTERMEDIATE NOT AVAILABLE           REG       112
            35  5221000000 C                      SA2    X1+REGFILE                                              REG       113
                          63210                   SB2    X1                                                      REG       114
                               15720              BX7    -X0*X2                                                  REG       115
            36  0400000025 +                      EQ     EXIT.                                                   REG       116
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     4
                                                                      ASR 
  
                                        **        ASR -  FIND AVAILABLE STORE REGISTER.                          REG       118
                                        *                                                                        REG       119
                                        *         ENTRY  N/A                                                     REG       120
                                        *                                                                        REG       121
                                        *         EXIT   (B2) = 0TR.                                             REG       122
                                        *                (X6) = 0R0.                                             REG       123
                                        *                                                                        REG       124
                                        *         CALLS  DRITE,SFR,RUT,GNT,CLI                                   REG       125
                                        *                                                                        REG       126
                                        *         USES   A2,A5,A6  X0,X7  B7                                     REG       127
                                                                                                                 REG       128
                                                                                                                 REG       129
            37  0400400037 +             ASR      SUBR   =           ENTRY/EXIT...                               REG       130
            40  6130000022 +                      SB3    RG=STOR                                                 REG       131
                          0100001227 +            RJ     SFR         SCAN FOR REGISTER                           REG       132
            41  0307000037 +                      ZR     X7,EXIT.    IF FREE REGISTER (USE COUNT = 0)            REG       133
                          13000                   DRITE  DEACTIVATE                                              REG       134
            43  0302000044 +                      ZR     X2,ASR1     IF REGISTER NOT FREED                       REG       135
                          0307000037 +            ZR     X7,EXIT.    IF LAST USE OF REGISTER                     REG       136
            44  5112000000 C             ASR1     SA1    B2+REGFILE                                              REG       137
                          10011                   BX0    X1                                                      REG       138
                               20061              SBIT   X0,P2.INTRP                                             REG       139
            45  0320000050 +                      PL     X0,ASR2     IF NOT INTERMEDIATE                         REG       140
                          20071                   SBIT   X0,P2.ARRP/P2.INTRP                                     REG       141
            46  0330000050 +                      MI     X0,ASR2     IF ARRAY-LOAD                               REG       142
                          5120000000 X            SA2    RGX                                                     REG       143
            47  0302000052 +                      ZR     X2,ASR5     IF NON-INTERMEDIATE NOT AVAILABLE           REG       144
                          63220                   SB2    X2                                                      REG       145
            50  0100001036 +             ASR2     RJ     RUT                                                     REG       146
            51  0400000037 +                      EQ     EXIT.                                                   REG       147
                                                                                                                 REG       148
            52  0100000375 +             ASR5     RJ     GNT         GET NEXT TEMPORARY                          REG       149
            53  76220                             SX2    B2                                                      REG       150
                     76700                        =X7    0                                                       REG       151
                          43071                   MX0    -3                                                      REG       152
                               10166              BX1    X6                                                      REG       153
            54  10655                             BX6    X5          SAVE X5                                     REG       154
                     5152000000 C                 SA5    B2+REGFILE  TAG BEING STORED                            REG       155
                               54750              SA7    A5          ZERO REGFILE ENTRY                          REG       156
            55  5160000060 +                      SA6    ASRA                                                    REG       157
                          15620                   BX6    -X0*X2                                                  REG       158
                               20603              LX6    3                                                       REG       159
            56  0100000143 +                      RJ     CLI         COMPILE LOAD (IN THIS CASE. A STORE) INS.   REG       160
            57  5150000060 +                      SA5    ASRA        RESTORE X5                                  REG       161
                          0400000037 +            EQ     EXIT.                                                   REG       162
                                                                                                                 REG       163
            60                     1     ASRA     BSS    1           SAVE X5 CELL                                REG       164
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     5
                                                                      AUT 
  
                                        **        AUT -  ADJUST USE TOTAL                                        REG       166
                                        *                                                                        REG       167
                                        *         NON-INTETMEDIATES:  DECRIMENTS USE FIELD OF OPERAND WORD       REG       168
                                        *                BY THE VALUE OR UC (USE COUNT INCRIMENT).               REG       169
                                        *                                                                        REG       170
                                        *         INTERMEDIATES:  DECRINENTS THE USE TOTAL IN THE OPERATOR       REG       171
                                        *                WORD AND PLACES THIS VALUE IN THE USE FIELS OF THE      REG       172
                                        *                OPERAND.                                                REG       173
                                        *                                                                        REG       174
                                        *         ENTRY  (A1) _ STATUS WORD                                      REG       175
                                        *                (X1) = STATUS WORD                                      REG       176
                                        *                (X2) = (UUC)                                            REG       177
                                        *                (X5) = OPERAND                                          REG       178
                                        *                (B3) = TYPE (UPPER OR LOWER)                            REG       179
                                        *                                                                        REG       180
                                        *         EXIT   (A1,X1) - PRESERVED                                     REG       181
                                        *                (X5) = OPERAND WITH UPDATED USE COUNT FIELD             REG       182
                                        *                (B3) - PRESERVED                                        REG       183
                                        *                                                                        REG       184
                                        *                USES        A2,A5,A7  X0,X2,X7  B7                      REG       185
                                        *                                                                        REG       186
                                        *         WARNING - TABLE MANAGER CALLS REQUIRE PROTECTION               REG       187
                                        *         OF THE POINTER IN (A1).                                        REG       188
                                                                                                                 REG       189
                                                                                                                 REG       190
            61  0400400061 +             AUT      SUBR               ENTRY/EXIT.                                 REG       191
            62  22705                             LX7    X5                                                      REG       192
                     10022                        BX0    X2                                                      REG       193
                          20761                   SBIT   X7,P2.INTRP                                             REG       194
            63  0327000061 +                      PL     X7,EXIT.    IF NOT INTERMEDIATE                         REG       195
                          5120000000 X            SA2    T.PAR       GET FWA I. L.                               REG       196
            64  20763                             LX7    1+P2.INTRP-P2.BIASP   POSITION I. L. ORDINAL            REG       197
                     5153000451 +                 SA5    B3+STATUS   GET SHIFT COUNT                             REG       198
                               63720              SB7    X2          ADD ORDINAL TO FWA                          REG       199
            65  21544                             AX5    36          POSITION SHIFT COUNT                        REG       200
                     53277                        SA2    B7+X7       GET USE TOTAL (OPERATOR WORD)               REG       201
                                   6              ERRMI  P2.BIASL-18                                             REG       202
                          20724                   LX7    P2.BIASP    RESET OPERAND                               REG       203
                               63750              SB7    X5          (B7) = OP.UTOTP OR OP.LTOTP                 REG       204
            66  43163                             MX1    -OP.UTOTL   SET USE TOTAL MASK                          REG       205
                     11517                        BX5    X1*X7       CLEAR USE FIELD OF OPERAND                  REG       206
                                   0              ERRNZ  OP.UTOTL-RG.USEL                                        REG       207
                          22070                   LX0    B7,X0                                                   REG       208
                               37720              IX7    X2-X0       SUBTRACT USE COUNT INCRIMENT                REG       209
            67  23272                             AX2    B7,X2       POSITION USE COUNT FOR OPERAND              REG       210
                     15221                        BX2    -X1*X2      EXTRACT USE COUNT                           REG       211
                          54720                   SA7    A2          RESET USE TOTAL                             REG       212
                               36552              IX5    X5+X2       ADD USE TOTAL INTO OPERAND                  REG       213
                                   0              ERRNZ  OP.UTOTL-RG.USEL                                        REG       214
            70  54110                             SA1    A1          RESET STATUS WORD                           REG       215
                     0400000061 +                 EQ     EXIT.                                                   REG       216
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     6
                                                                      CDS 
  
                                        **        CDS -  CHECK DELAYED STORE.                                    REG       218
                                        *                                                                        REG       219
                                        *         NOTE                                                           REG       220
                                        *                *CDS* SHOULD ALWAYS BE CALLED VIA MACRO *DRITE*         REG       221
                                        *                                                                        REG       222
                                        *         ENTRY  (X0) = 0 PROCESS DELAYED STORE IF SET                   REG       223
                                        *                       "0 PROCESS ONLY IF = TO (DRITE)                  REG       224
                                        *                       THAT BEING PROCESSED.                            REG       225
                                        *                (X1) = TAG CURRENTLY BEING PROCESSED                    REG       226
                                        *                                                                        REG       227
                                        *         EXIT   (X2) = 0 IF DELAYED STORE NOT PROCESSED.                REG       228
                                        *                       (X1) PRESERVED.                                  REG       229
                                        *                (X2) " 0 DELAYED STORE PROCESSED.                       REG       230
                                        *                       (X1) DESTROYED.                                  REG       231
                                        *                (B2) = REGISTER FOR *DRITE* RELEASED - 0TR.             REG       232
                                        *                (X6) = 0R0 OF REGISTER FREED.                           REG       233
                                        *                                                                        REG       234
                                        *         USES   A1,A2,A3  X0  B2,B7                                     REG       235
                                        *                (SCR2+4)                                                REG       236
                                        *         CALLS  CIW                                                     REG       237
                                                                                                                 REG       238
                                                                                                                 REG       239
            71  0400400071 +             CDS      SUBR   =           ENTRY/EXIT...                               REG       240
            72  5120000000 X                      SA2    DRITE                                                   REG       241
                          0302000071 +            ZR     X2,EXIT.    IF NO DELAYED STORE ACTIVE                  REG       242
            73  76760                             SX7    B6                                                      REG       243
                     5170000106 +                 SA7    CDSA        SAVE *B6*                                   REG       244
                                                                                                                 REG       245
                                        **        IF THE HARD REGISTER FLAG IS SET, WE TURN IT OFF TO PREVENT    REG       246
                                        *         ITS BEING DESTROYED BY A STORE INTO AN *FP*, THEN RESTORE IT.  REG       247
                                                                                                                 REG       248
            74  5110000000 X                      SA1    RREG                                                    REG       249
                          0331000100 +            MI     X1,CDS15    IF NO HARD REGISTER                         REG       250
            75  14711                             BX7    -X1                                                     REG       251
                     54710                        SA7    A1          TURN OFF FLAG                               REG       252
                          0100000124 +            RJ     CIW         COMPILE STORE                               REG       253
            76  5110000000 X                      SA1    RREG                                                    REG       254
                          14711                   BX7    -X1                                                     REG       255
                               54710              SA7    A1          RESTORE FLAG                                REG       256
            77  0400000101 +                      EQ     CDS20                                                   REG       257
                                                                                                                 REG       258
           100  0100000124 +             CDS15    RJ     CIW         COMPILE STORE                               REG       259
                                                                                                                 REG       260
           101  5110000000 X             CDS20    SA1    DRITE                                                   REG       261
                          13777                   BX7    0                                                       REG       262
                               76010              =X0    1                                                       REG       263
           102  5130000106 +                      SA3    CDSA                                                    REG       264
                          54710                   SA7    A1          CLEAR DELAYED STORE FLAG                    REG       265
                               63630              SB6    X3                                                      REG       266
           103  5122000000 C                      SA2    B2+REGFILE                                              REG       267
                          43363                   MX3    -RG.USEL                                                REG       268
                               13112              BX1    X1-X2                                                   REG       269
           104  15723                             BX7    -X3*X2                                                  REG       270
                     0311000071 +                 NZ     X1,EXIT.    IF RGFILE TAG NOT SAME AS DRITE TAG         REG       271
                               37720              IX7    X2-X0       USE COUNT-1                                 REG       272
           105  54720                             SA7    A2                                                      REG       273
                     15773                        BX7    -X3*X7      USE COUNT ONLY                              REG       274
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     7
                                                                      CDS 
  
                          0400000071 +            EQ     EXIT.                                                   REG       275
                                                                                                                 REG       276
           106  00000000000000000000     CDSA     DATA   0           SAVE *B6*                                   REG       277
  
  
  
  
                                        **        CIA -  CHECK IF ANY ACTIVE STORES / CLEAR ASSOCIATE.           REG       279
                                        *                                                                        REG       280
                                        *         ENTRY  N/A                                                     REG       281
                                        *                                                                        REG       282
                                        *         EXIT   ASSOCIATES CLEARED, INTERMEDIATES STORED.               REG       283
                                        *                                                                        REG       284
                                        *         USES   A1,A2,A3  X0  B2,B7                                     REG       285
                                        *                                                                        REG       286
                                        *         CALLS  DRITE,RUT                                               REG       287
                                                                                                                 REG       288
           107                     1     CIAA     BSSZ   1           LOCK CLEAR FLAG                             REG       289
                                                                                                                 REG       290
           110  0400400110 +             CIA      SUBR   =           ENTRY/EXIT...                               REG       291
           111  13000                             DRITE  DEACTIVATE                                              REG       292
           112  6170000027                        SB7    L.RGFILE-1                                              REG       293
                          43063                   MX0    -RG.USEL                                                REG       294
                               43700              MX7    0                                                       FC50950    10
           113  5170000000 X                      SA7    RUT.REG     CLEAR IJK OF PREVIOUS INSTRUCTION           FC50950    11
                          0400000115 +            EQ     CIA2                                                    REG       295
                                                                                                                 REG       296
           114  43700                    CIA1     MX7    0                                                       REG       297
                     54720                        SA7    A2          ZERO OUT REGFILE ENTRY                      REG       298
                                                                                                                 REG       299
           115  0470000110 +             CIA2     ZR     B7,EXIT.    IF FINISHED                                 REG       300
                          5127000000 C            SA2    B7+REGFILE                                              REG       301
           116  66270                             SB2    B7                                                      REG       302
                     15120                        BX1    -X0*X2                                                  REG       303
                          20263                   LX2    59-8                                                    REG       304
                               67771              =B7    B7-1                                                    REG       305
           117  0301000114 +                      ZR     X1,CIA1     IF USE COUNT ZERO                           REG       306
                          0322000122 +            PL     X2,CIA3     IF REGISTER UN-LOCKED                       REG       307
           120  5130000107 +                      SA3    CIAA                                                    REG       308
                          0303000115 +            ZR     X3,CIA2     IF REGISTER TO REMAIN LOCKED                REG       309
           121  43001                             MX0    1                                                       REG       310
                     15720                        BX7    -X0*X2      REMOVE LOCK BIT                             REG       311
                          20711                   LX7    9                                                       REG       312
                               54720              SA7    A2          RESTORE IN REGFILE                          REG       313
                                                                                                                 REG       314
           122  0100001036 +             CIA3     RJ     RUT         RESET TAG                                   REG       315
           123  43063                             MX0    -RG.USEL                                                REG       316
                     67721                        =B7    B2-1                                                    REG       317
                          0400000115 +            EQ     CIA2        CONTINUE                                    REG       318
                                                                                                                 REG       319
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     8
                                                                      CIW 
  
                                        **        CIW -  COMPILE WRITE INSTRUCTIONS                              REG       321
                                        *                                                                        REG       322
                                        *         ENTRY  (DRITE)  SET.                                           REG       323
                                        *                                                                        REG       324
                                        *         EXIT   (B2) = REGISTER FOR WRITE - 0TR.                        REG       325
                                        *                (X6) = 0R0.                                             REG       326
                                        *                                                                        REG       327
                                        *         USES   A1,A2,A3,A6,A7  X0  B2,B3,B7                            REG       328
                                        *                                                                        REG       329
                                        *         CALLS  DRITE,WCODE,CLI                                         REG       330
                                                                                                                 REG       331
                                                                                                                 REG       332
           124  0400400124 +             CIW      SUBR               ENTRY/EXIT...                               REG       333
           125  5120000000 X                      SA2    DRITE                                                   REG       334
                          43071                   MX0    -3                                                      REG       335
                               54121              =A1    A2+1        TAG FOR INSTRUCTION + *I* REGISTER          REG       336
           126  43763                             MX7    -RG.USEL                                                REG       337
                     15020                        BX0    -X0*X2      =00R (*A* REGISTER FOR LEFT MEMBER)         REG       338
                          15617                   BX6    -X7*X1      =0R0 (*I* REGISTER)                         REG       339
                               36706              IX7    X0+X6                                                   REG       340
           127  0300000135 +                      ZR     X0,CIW10    IF LEFT MEMBER NOT IN *A* REGISTER          REG       341
                          5230000010 C            SA3    X0+REGFILE+REG.A                                        REG       342
           130  7277005400                        SX7    X7+SA=AB/1S3                                            REG       343
                          13023                   BX0    X2-X3                                                   REG       344
                               20760              LX7    PB.INSTP+3                                              REG       345
           131  10366                             BX3    X6                                                      REG       346
                     21011                        AX0    RG.USEL                                                 REG       347
                          0310000135 +            NZ     X0,CIW10    IF NOT SAME TAG                             REG       348
           132  6120000133 +                      WCODE  X7                                                      REG       349
           133  10633                             BX6    X3                                                      REG       350
                     21303                        AX3    3                                                       REG       351
                          6223000020              SB2    X3+REG.X                                                REG       352
           134  0400000124 +                      EQ     EXIT.                                                   REG       353
                                                                                                                 REG       354
           135  10266                    CIW10    BX2    X6                                                      REG       355
                     5130001542 +                 SA3    P2=KEEP                                                 REG       356
                               21203              AX2    3                                                       REG       357
           136  11131                             BX1    X3*X1                                                   REG       358
                     10755                        BX7    X5                                                      REG       359
                          5170000142 +            SA7    CIWA        SAVE X5                                     REG       360
           137  10511                             BX5    X1                                                      REG       361
                     6222000020                   SB2    X2+REG.X                                                REG       362
           140  0100000143 +                      RJ     CLI                                                     REG       363
           141  5150000142 +                      SA5    CIWA        RESTORE X5                                  REG       364
                          0400000124 +            EQ     EXIT.                                                   REG       365
                                                                                                                 REG       366
           142  00000000000000000000     CIWA     DATA   0                                                       REG       367
  
  
  
  
                                        **        CLI - COMPILE LOAD INSTRUCTION.                                REG       369
                                        *                                                                        REG       370
                                        *         ENTRY  (B2) = REGISTER TO USE - 0TR                            REG       371
                                        *                (X1) = OPERAND TO LOAD (C.SYM TAG).                     REG       372
                                        *                (X5) = OPERAND TO LOAD (C.OUS TAG).                     REG       373
                                        *                (X6) = REGISTER TO USE - 0R0.                           REG       374
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE     9
                                                                      CLI 
  
                                        *                                                                        REG       375
                                        *         EXIT   (B2) = PRESERVED.                                       REG       376
                                        *                (X5) = PRESERVED.                                       REG       377
                                        *                                                                        REG       378
                                        *         USES   A2,A3,A6,A7  X0  B2,B3,B5,B7                            REG       379
                                        *                                                                        REG       380
                                        *         CALLS  GNR,WCODE,CLT,RLL,RUL,CLP                               REG       381
                                                                                                                 REG       382
                                                                                                                 REG       383
           143  0400400143 +             CLI      SUBR   =           ...ENTRY/EXIT...                            FC5A346    11
           144  10755                             BX7    X5                                                      REG       385
                     5170000222 +                 SA7    CLI.X5                                                  REG       386
                               43700              MX7    0                                                       REG       387
           145  5170001313 +                      SA7    STORE                                                   REG       388
                          43001                   MX0    1                                                       REG       389
                               20014              LX0    1+P2.ADDRP                                              REG       390
           146  11705                             BX7    X0*X5                                                   REG       391
                     5170001312 +                 SA7    ADDR                                                    REG       392
                               10711              BX7    X1                                                      REG       393
           147  5170000220 +                      SA7    CLI.X1      SAVE X1 (TAG)                               REG       394
                          43052                   MX0    -PB.BIASL                                               REG       395
                               20024              LX0    P2.BIASP                                                REG       396
           150  15710                             BX7    -X0*X1      BIAS                                        REG       397
                                                                                                                 REG       398
                                        **        CHECK FOR FORMAL PARAMETER.                                    REG       399
                                        *                                                                        REG       400
                                        *         (B3) = REGISTER TO USE - 00R.                                  REG       401
                                        *         (B5) = 0TR.                                                    REG       402
                                        *         (X1) = TAG TO BE LOADED.                                       REG       403
                                        *         (X2) = MX2   -P2.FPNOL                                         REG       404
                                        *         (X3) = TAG *BIAS*                                              REG       405
                                        *         (X6) = REGISTER TO USE - 0R0.                                  REG       406
                                                                                                                 REG       407
                     20764                        LX7    -P2.BIASP+PB.BIASP                                      REG       408
                          5170000221 +            SA7    CLI.X3      SAVE BIAS FIELD                             REG       409
           151  76720                             SX7    B2                                                      REG       410
                     5170000217 +                 SA7    CLIA                                                    REG       411
                                                                                                                 REG       412
                                        **        GET LOAD REGISTER FOR INDIRECT STORE.                          REG       413
                                                                                                                 REG       414
           152  5160000223 +                      SA6    CLI.X6      SAVE X6 (0R0)                               REG       415
                          6172777751              SB7    B2-R.X6                                                 REG       416
           153  0770000155 +                      MI     B7,CLI1     IF NOT STORE                                REG       417
                          76710                   =X7    1                                                       REG       418
           154  5170001313 +                      SA7    STORE                                                   REG       419
                                                                                                                 REG       420
           155  10211                    CLI1     BX2    X1                                                      REG       421
                     20250                        HX2    P2.LCM                                                  REG       422
                          0332000207 +            MI     X2,CLI100   IF LCM REF                                  REG       423
           156  20201                             LX2    P2.LCMP-P2.FPP                                          REG       424
                     10766                        BX7    X6                                                      REG       425
                          0322000175 +            PL     X2,CLI15    IF NOT FP                                   REG       426
           157  0770000163 +                      MI     B7,CLI5     IF NOT STORE                                REG       427
                          6130000011 +            SB3    RG=LOAD                                                 REG       428
           160  0100000355 +                      RJ     GNR         GET LOAD REGISTER                           REG       429
           161  10766                             BX7    X6          (0R0) LOAD REGISTER                         REG       430
                                                                                                                 REG       431
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    10
                                                                      CLI 
  
                                        *         RESTORE REGISTERS                                              REG       432
                                                                                                                 REG       433
                     5130000223 +                 SA3    CLI.X6                                                  REG       434
                               10633              BX6    X3          RESTORE X6                                  REG       435
           162  5110000220 +                      SA1    CLI.X1      RESTORE (X1)                                REG       436
                                                                                                                 REG       437
           163  10511                    CLI5     BX5    X1                                                      REG       438
                     21703                        AX7    3                                                       REG       439
                          63570                   SB5    X7          00R FPREG                                   REG       440
                               63565              SB5    X6+B5                                                   REG       441
           164  10677                             BX6    X7                                                      REG       442
                     20606                        LX6    6                                                       REG       443
                          0100000741 +            RJ     LPA         LOAD FP ADDRESS                             REG       444
           165  5120001312 +                      SA2    ADDR                                                    REG       445
                          5130000221 +            SA3    CLI.X3                                                  REG       446
           166  7175005200                        SX7    B5+SA=XK/1S3                                            REG       447
                          0302000173 +            ZR     X2,CLI10E   IF NOT ADDRESS                              REG       448
           167  6120772577                        SB2    -SA=XK/1S3                                              REG       449
                          0303000171 +            ZR     X3,CLI10D   IF ZERO BIAS                                REG       450
           170  7277002000                        SX7    X7-SA=XK/1S3+SX=XK/1S3                                  REG       451
                          0400000174 +            EQ     CLI11                                                   REG       452
                                                                                                                 REG       453
           171  6122001000               CLI10D   SB2    B2+XMT/1S3                                              FC5A258    52
                          73772                   SX7    X7+B2                                                   REG       455
           172  0400000174 +                      EQ     CLI11                                                   REG       456
                                                                                                                 REG       457
           173  0313000174 +             CLI10E   NZ     X3,CLI11    IF BIAS NE 0                                REG       458
                          7175005300              SX7    B5+SA=XB/1S3                                            REG       459
                                                                                                                 REG       460
           174  20760                    CLI11    LX7    PB.INSTP+3                                              REG       461
                                                                                                                 REG       462
                     36773                        IX7    X7+X3       ADD IN *BIAS*                               REG       463
                          0400000203 +            EQ     CLI20       COMPLETE LOAD                               REG       464
                                                                                                                 REG       465
                                        **        NOT FORMAL PARAMETER.                                          REG       466
                                                                                                                 REG       467
           175  43015                    CLI15    MX0    P2.ORDL                                                 REG       468
                     20071                        LX0    P2.ORDL+P2.ORDP                                         REG       469
                                                                                                                 REG       470
                                        *         RESTORE REGISTERS                                              REG       471
                                                                                                                 REG       472
                          5130000221 +            SA3    CLI.X3      RESTORE X3  (BIAS)                          REG       473
           176  5110000220 +                      SA1    CLI.X1      RESTORE X1  (TAG)                           REG       474
                                                                                                                 REG       475
                          11201                   BX2    X0*X1       TAG                                         REG       476
                               43003              MX0    P2.PFXL                                                 REG       477
                                                  LX0    P2.PFXL+P2.PFXP                                         REG       478
           177  11001                             BX0    X0*X1       EXTRACT TAG PREFIX                          REG       479
                     20272                        LX2    -P2.TAGP+PB.TAGP-PB.INSTP-3+60                          REG       480
                                                  LX0    -P2.PFXP+PB.TAGP+P=PFX-PB.INSTP-3+60      REPOSITION PF REG       481
                          12220                   BX2    X2+X0                                                   REG       482
           200  7276005100                        SX7    X6+SA=BK/1S3                                            REG       483
                          5150001312 +            SA5    ADDR                                                    REG       484
           201  0305000202 +                      ZR     X5,CLI18A   IF NOT ADDR REF                             REG       485
                          7276007100              SX7    X6+SX=BK/1S3                                            REG       486
                                                                                                                 REG       487
           202  36072                    CLI18A   IX0    X7+X2                                                   REG       488
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    11
                                                                      CLI 
  
                     20060                        LX0    PB.INSTP+3                                              REG       489
                          12730                   BX7    X3+X0       ADD IN *BIAS*                               REG       490
                                                                                                                 REG       491
           203  6120000204 +             CLI20    WCODE  X7                                                      REG       492
                                                                                                                 REG       493
           204  5150000222 +             CLI90    SA5    CLI.X5                                                  REG       494
                          43071                   MX0    -3                                                      REG       495
           205  5130000217 +                      SA3    CLIA                                                    REG       496
                          63230                   SB2    X3                                                      REG       497
                               15630              BX6    -X0*X3                                                  REG       498
           206  20603                             LX6    3           =0R0                                        REG       499
                     0400000143 +                 EQ     EXIT.                                                   REG       500
                                                                                                                 REG       501
                                        *         LCM REF.                                                       REG       502
                                                                                                                 REG       503
           207  43700                    CLI100   MX7    0                                                       REG       504
                     5170001311 +                 SA7    AFREG                                                   REG       505
                               76720              SX7    B2                                                      REG       506
           210  5170001310 +                      SA7    ALREG                                                   REG       507
                          10511                   BX5    X1                                                      REG       508
           211  7102777751                        SX0    B2-R.X6                                                 REG       509
                          0330000214 +            MI     X0,CLI110   IF NOT STORE                                REG       510
           212  43071                             MX0    -3                                                      REG       511
                     15070                        BX0    -X0*X7                                                  REG       512
                          63700                   SB7    X0                                                      REG       513
           213  0100001010 +                      RJ     RLL         LOCK HARD STORE REG                         REG       514
                                                                                                                 REG       515
           214  0100000515 +             CLI110   RJ     LLA         LOAD LCM ADDRESS                            REG       516
           215  0100000713 +                      RJ     LLV         LOAD LCM VALUE                              REG       517
           216  0400000204 +                      EQ     CLI90                                                   REG       518
                                                                                                                 REG       519
           217  00000000000000000000     CLIA     DATA   0                                                       REG       520
           220                     1     CLI.X1   BSS    1                                                       REG       521
           221                     1     CLI.X3   BSS    1                                                       REG       522
           222                     1     CLI.X5   BSS    1                                                       REG       523
           223                     1     CLI.X6   BSS    1                                                       REG       524
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    12
                                                                      CPL 
  
                                        **        CLP -  COMPILE LOAD OF POINTER WORD                            REG       526
                                        *                                                                        REG       527
                                        *         ENTRY  (X5) = ECS/LCM NAME TAG                                 REG       528
                                        *                                                                        REG       529
                                        *         EXIT   INSTRUCTION COMPILED TO LOAD POINTER WORD               REG       530
                                        *                                                                        REG       531
                                        *         USES   A1,A2,A3,A6  X0,X7  B2,B3,B6,B7                         REG       532
                                                                                                                 REG       533
                                                                                                                 REG       534
           224  0400400224 +             CLP      SUBR               ...ENTRY/EXIT...                            REG       535
           225  0100000412 +                      RJ     GPT         GET POINTER TAG                             REG       536
           226  20206                             LX2    PB.TAGP-CB.TAGP     ALIGN POINTER TAG                   REG       537
                     7110051000                   SX1    SA=BK                                                   REG       538
                               36716              IX7    X1+X6       ADD IN *I* REGISTER                         REG       539
           227  20755                             LX7    PB.INSTP     ALIGN                                      REG       540
                     36772                        IX7    X7+X2       ADD IN TAG                                  REG       541
                          6120000224 +            WCODE  X7,EXIT.    COMPILE LOAD OF POINTER                     REG       542
  
  
  
  
                                        **        CRJ -  COMPILE RETURN JUMP SEQUENCE                            REG       544
                                        *                                                                        REG       545
                                        *         SHOULD ALWAYS BE CALLED BY MACRO *CRJ*.                        REG       546
                                        *                                                                        REG       547
                                        *         COMPILES AN *RJ* TO A TAG, AND THE (OPTIONAL,DEPENDING ON      REG       548
                                        *                (CO.TBK)) TRACE-BACK INFORMATION.                       REG       549
                                        *         ALSO DEACTIVATES ANY DELAYED STORE, AND CLEARS ALL REGISTER    REG       550
                                        *                ASSOCIATES.                                             REG       551
                                        *         ENTRY  (X1)<0 IF TRACEBACK IS MANDATORY.                       REG       552
                                        *                   = 0 IF TRACEBACK IS PROHIBITED                       REG       553
                                        *                   > 0 IF TRACEBACK IS PERMITTED                        REG       554
                                        *                (X3) = LINE/SEQUENCE NUMBER FOR TRACEBACK               FC50264    16
                                        *                X6 = 18/TAG,42/XXXX                                     REG       556
                                        *         USES   A2,A3,A6,A7                                             REG       557
                                        *                                                                        REG       558
                                        *         CALLS  CIA, WCODE                                              REG       559
                                                                                                                 REG       560
           231  0400400231 +             CRJ      SUBR   =           ENTRY/EXIT...                               REG       561
           232  5120000000 X                      SA2    CO.DBTB     TRACEBACK FLAG                              REG       562
                          21654                   AX6    P2.TAGP       REMOVE LOW-ORDER GARBAGE                  REG       563
           233  7170000035                        =X7    I.RJ3                                                   REG       564
                          20652                   LX6    PB.TAGP-PB.GHIJP                                        REG       565
           234  0301000237 +                      ZR     X1,CRJ4     IF TRACE PROHIBITED                         REG       566
                          0331000236 +            MI     X1,CRJ2     IF TRACE MANDATORY                          REG       567
           235  0322000237 +                      PL     X2,CRJ4     IF T-OPTION NOT SELECTED                    REG       568
                                                                                                                 FC50264    17
           236  7170000036               CRJ2     SX7    I.RJ6                                                   FC50264    18
                          20330                   LX3    PB.BIASP-PB.GHIJP                                       REG       575
                               12663              BX6    X6+X3                                                   REG       576
                                                                                                                 FC50264    19
           237  12667                    CRJ4     BX6    X6+X7                                                   REG       577
                     20660                        LX6    PB.GHIJP                                                REG       578
                          5160000245 +            SA6    CRJA                                                    REG       579
           240  5170000107 +                      SA7    CIAA        SET LOCK CLEAR FLAG                         REG       580
                          0100000110 +            RJ     CIA         CLEAR REGISTER ASSOCIATES                   REG       581
           241  43600                             MX6    0                                                       REG       582
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    13
  
  
                     5160000107 +                 SA6    CIAA        CLEAR LOCK FLAG                             REG       583
           242  5120000245 +                      SA2    CRJA                                                    REG       584
                          10722                   BX7    X2                                                      REG       585
           243  6120000244 +                      WCODE  X7          RJ WORD TO LONG  FILE                       REG       586
           244  0400000231 +                      EQ     EXIT.                                                   REG       598
                                                                                                                 REG       599
           245                     1     CRJA     BSS    1           TEMP CELL FOR INSTRUCTION                   REG       600
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    14
                                                                      CRT 
  
                                        **        CRT - CHECK REGISTER TYPE                                      REG       604
                                        *                                                                        REG       605
                                        *         ENTRY  B2 = REGISTER TYPE TAG IS IN (0TR)                      REG       606
                                        *                B3 = REGISTER TYPE WANTED (0TR)                         REG       607
                                        *                *T* BIT VALUES                                          REG       608
                                        *                    =000 *B* REGISTER                                   REG       609
                                        *                    =010 *A* REGISTER                                   REG       610
                                        *                    =020 *X* REGISTER                                   REG       611
                                        *                                                                        REG       612
                                        *         EXIT   IF B7 = 0 IF TYPES MATCH                                REG       613
                                        *                X7 = INSTRUCTION TO TRANSFER TO SAME TYPE               REG       614
                                        *                                                                        REG       615
                                        *                IF B7 = INSTRUCTION TO TRANSFER IF DIFFERENT TYPES      REG       616
                                        *                X7 = B7                                                 REG       617
                                        *                                                                        REG       618
                                        *         THE FOLLOWING MATRIX IS USED TO DETERMINE INSTRUCTION          REG       619
                                        *                                                                        REG       620
                                        *                                                                        REG       621
                                        *                     WANT REGISTER TYPE                                 REG       622
                                        *                                                                        REG       623
                                        *                        X         A           B                         REG       624
                                        *                                                                        REG       625
                                        *                 +----------+----------+----------+                     REG       626
                                        *                 +          +          +          +                     REG       627
                                        *   I             +   SX=BB  +   SX=BB  +  -SB=BB  +                     REG       628
                                        *   N             +          +          +          +                     REG       629
                                        *                 +----------+----------+----------+                     REG       630
                                        *   R             +          +          +          +                     REG       631
                                        *   E             +   SA=AB  +  -SA=AB  +   SB=AB  +                     REG       632
                                        *   G             +          +          +          +                     REG       633
                                        *   I             +----------+----------+----------+                     REG       634
                                        *   S             +          +          +          +                     REG       635
                                        *   T             +  -XMIT   +  -XMIT   +   SB=XB  +                     REG       636
                                        *   E             +          +          +          +                     REG       637
                                        *   R             +----------+----------+----------+                     REG       638
                                        *                                                                        REG       639
                                        *                                                                        REG       640
                                        *         USES   A2  X0,X1,X2,X7  B7                                     REG       641
                                                                                                                 REG       642
                                                                                                                 REG       643
           246  0400400246 +             CRT      SUBR               ENTRY/EXIT...                               REG       644
           247  56330                             SA3    B3                                                      REG       645
                     76220                        SX2    B2          REGISTER TYPE TAG IS IN                     REG       646
                          73330                   SX3    X3          REGISTER TYPE WANTED                        REG       647
                               21203              AX2    3           ORDINAL INTO TABLE                          REG       648
           250  43054                             MX0    -16         INSTRUCTION MASK                            REG       649
                     21303                        AX3    3                                                       REG       650
                          5222000255 +            SA2    X2+CRTTAB   GET INSTRUCTION TABLE ENTRY                 REG       651
           251  20304                             LX3    4           16*TYPE WANTED                              REG       652
                     63730                        SB7    X3          SHIFT COUNT                                 REG       653
                          23272                   AX2    B7,X2       SHIFT TO APPROPRIATE INSTRUCTION            REG       654
                               15720              BX7    -X0*X2                                                  REG       655
           252  20754                             LX7    60-16                                                   REG       656
                     21757                        AX7    60-13       SIGN EXTEND                                 REG       657
                          63770                   SB7    X7          INSTRUCTION TO B7                           REG       658
           253  0327000246 +                      PL     X7,EXIT.    IF NOT TYPE MATCH - EXIT                    REG       659
                          66700                   =B7    0           FLAG TYPE MATCH                             REG       660
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    15
                                                                      CRT 
  
                               14777              BX7    -X7                                                     REG       661
           254  0400000246 +                      EQ     EXIT.                                                   REG       662
                                                                                                                 REG       663
                                         CRTI     MACRO  A,B,C                                                   REG       664
                                                  VFD    12/0,16/A,16/B,16/C                                     REG       665
                                                  ENDM                                                           REG       666
                                                                                                                 REG       667
           255  00003700017400111777     CRTTAB   CRTI   SX=BB,SX=BB,-SB=BB                                      REG       668
           256  00002600024777663000              CRTI   SA=AB,-SA=AB,SB=XB    **** TEMP SB=XB ****              REG       669
           257  00007377775777663000              CRTI   -XMT,-XMT,SB=XB                                         REG       670
                                                                                                                 REG       671
                                                  PURGMAC CRTI                                                   REG       672
  
  
  
  
                                        **        CWI -  COMPILE WRITE OF INTERMEDIATE.                          REG       674
                                        *                                                                        REG       675
                                        *         CALLED TO STORE TO TEMP CELL AN INTERMEDIATE THAT IS BEING     REG       676
                                        *         CLOBBERED AND HAS AT LEAST ONE REMAINING USE.                  REG       677
                                        *                                                                        REG       678
                                        *         ENTRY  (B2) = 0TR.TO PROCESS.                                  REG       679
                                        *                (X5) = TAG TO PROCESS.                                  REG       680
                                        *                                                                        REG       681
                                        *         EXIT   (B2) = REGISTER USED. (0TR)                             REG       682
                                        *                (X6) = TEMPORARY TAG  (TEMP-TAG, 2ATR).                 REG       683
                                        *                                                                        REG       684
                                        *                (SCR, SCR+1)                                            REG       685
                                        *                                                                        REG       686
                                        *         CALLS  GNT,ASR,WCODE,CLI                                       REG       687
                                                                                                                 REG       688
                                                                                                                 REG       689
           260  0400400260 +             CWI      SUBR   =           ENTRY/EXIT...                               REG       690
           261  43600                             MX6    0                                                       REG       691
                     10155                        BX1    X5                                                      REG       692
                          5162000000 C            SA6    B2+REGFILE  CLEAR REGISTER FILE FOR INTER. BEING STORED REG       693
           262  0100000375 +                      RJ     GNT                                                     REG       694
           263  43071                             MX0    -3                                                      FC50587     7
                     76520                        SX5    B2                                                      FC50587     8
                          15550                   BX5    -X0*X5      00R                                         FC50587     9
           264  6235000020                        SB3    X5+REG.X    0XR                                         FC50587    10
                          6173777751              SB7    B3-R.X6                                                 FC50587    11
           265  0670000273 +                      PL     B7,CWI20    IF IN STORE REGISTER                        REG       697
                          5160000303 +            SA6    CWIA        REMEMBER TAG                                REG       698
           266  10755                             BX7    X5                                                      REG       699
                     54761                        =A7    A6+1        SAVE REG                                    REG       700
                          0100000037 +            RJ     ASR                                                     REG       701
           267  5130000304 +                      SA3    CWIA+1      RETRIEVE REGISTER = 00L                     REG       702
                          36036                   IX0    X3+X6       =RL                                         REG       703
           270  7270001000                        SX7    X0+XMT/1S3                                              REG       704
                          10566                   BX5    X6                                                      REG       705
                               20760              LX7    PB.INSTP+3                                              REG       706
           271  6120000272 +                      WCODE  X7          COMPILE *XMIT* TO *R*                       REG       707
           272  5110000303 +                      SA1    CWIA        RETRIEVE TAG                                REG       708
                          21503                   AX5    3           =00L  (L-R  = R)                            REG       709
                               10611              BX6    X1                                                      REG       710
                                                                                                                 REG       711
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    16
                                                                      CWI 
  
                                        *         (X5) = REGISTER INTERMEDIATE IS IN = 00R                       REG       712
                                        *         (X6) = TEMP-TAG, 2ATR                                          REG       713
                                        *         (B6) _ INTERMEDIATE                                            REG       714
                                                                                                                 REG       715
           273  10166                    CWI20    BX1    X6                                                      REG       716
                     10655                        BX6    X5                                                      REG       718
                          20603                   LX6    3                                                       REG       719
           274  6255000020                        SB5    X5+REG.X                                                FC5A222     5
                          10511                   BX5    X1                                                      FC5A222     6
           275  7276005100                        SX7    X6+SA=BK/1S3                                            FC5A222     7
                          43052                   MX0    -PB.BIASL                                               FC5A222     8
                               20024              LX0    P2.BIASP                                                FC5A222     9
           276  15310                             BX3    -X0*X1      BIAS                                        FC5A222    10
                     20364                        LX3    PB.BIASP-P2.BIASP                                       FC5A222    11
                          43054                   MX0    -P2.TAGL                                                FC5A222    12
                               20054              LX0    P2.TAGP                                                 FC5A222    13
           277  15110                             BX1    -X0*X1      TAG                                         FC5A222    14
                     20156                        LX1    PB.TAGP-P2.TAGP                                         FC5A222    15
                          20760                   LX7    PB.INSTP+3                                              FC5A222    16
                               12037              BX0    X3+X7                                                   FC5A222    17
           300  12701                             BX7    X0+X1                                                   FC5A222    18
                     6120000302 +                 WCODE  X7                                                      FC5A222    19
           302  66250                             SB2    B5                                                      FC5A222    20
                     10655                        BX6    X5                                                      REG       722
                          0400000260 +            EQ     EXIT.                                                   REG       723
                                                                                                                 FC50264    20
           303                     2     CWIA     BSS    2           SAVE TAG, REGISTER                          REG       724
  
  
  
  
                                        **        DIT -  DEFINE INTERMEDIATE RESULTS.                            REG       726
                                        *         DIT IS CALLED WHEN AN INTERMEDIATE HAS JUST BEEN               REG       727
                                        *         CREATED.  SINCE AN OPERAND WORD FOR THE INTERMEDIATE           REG       728
                                        *         ONLY EXISTS AT SOME UNKNOWN PLACE FURTHER ON IN THE            REG       729
                                        *         I. L.,  DIT IS CALLED TO CREATE AN INTERMEDIATE OPER-          REG       730
                                        *         AND WORD TO STICK IN THE REGFILE.                              REG       731
                                        *                                                                        REG       732
                                        *         ENTRY  (B2) = REGISTER FOR INTERMEDIATE.                       REG       733
                                        *                (B3) = UP/LOW                                           REG       734
                                        *                (B4) = ADDRESS OF TURPLE FOR INTERMEDIATE.              REG       735
                                        *                (X5) = ATTR AMD CLASS BITS FOR INTERMEDIATE.            REG       736
                                        *                       IE. ARY, ADDR  ETC.                              REG       737
                                        *                                                                        REG       738
                                        *         EXIT   (B2) = 0TR, FOR INTERMEDIATE.                           REG       739
                                        *                (A1,X1) (_,=) STATUS WORD OF INTERMEDIATE               REG       740
                                        *                (X6) = 0R0, FOR INTERMEDIATE.                           REG       741
                                        *                INTERMEDIATE TAG PUT IN REGISTER FILE.                  REG       742
                                        *                                                                        REG       743
                                        *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B6,B7                   REG       744
                                        *                                                                        REG       745
                                        *         CALLS  STS                                                     REG       746
                                                                                                                 REG       747
           305  0400400305 +             DIT      SUBR   =           ENTRY/EXIT...                               REG       748
           306  5123000451 +                      SA2    B3+STATUS   GET SHIFT COUNT WORD FOR STATUS ROUTINES    REG       749
                          56340                   =A3    B4+OR.OPR   GET OPERATOR                                REG       750
                               21244              AX2    36          POSITION USE TOTAL SHIFT COUNT              REG       751
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    17
                                                                      DIT 
  
           307  63720                             SB7    X2          (B7) = OP.UTOTP OR OP.LTOTP                 REG       752
                     43003                        MX0    OP.2MODL    SET MODE MASK                               REG       753
                          23273                   AX2    B7,X3       POSITION USE TOTAL                          REG       754
           310  5110000000 X                      SA1    T.OUS                                                   REG       755
                          43663                   MX6    -OP.UTOTL   GET USE TOTAL (UTOTL = LTOTL NOW)           REG       756
                               20025              LX0    OP.2MODP+OP.2MODL                                       REG       757
           311  63710                             SB7    X1          (B7) = FWA OUS                              REG       758
                     15626                        BX6    -X6*X2      EXTRACT USE TOTAL                           REG       759
                          5120000000 X            SA2    T.PAR       GET FWA I. L.                               REG       760
           312  11003                             BX0    X0*X3       EXTRACT MODE                                REG       761
                     20052                        LX0    -OP.2MODP                                               REG       762
                          7210777773              SX1    X0-M.DBL                                                REG       763
           313  43073                             MX0    -1                                                      REG       764
                     11101                        BX1    X0*X1                                                   REG       765
                          0301000315 +            ZR     X1,DIT1     IF DOUBLE OR COMPLEX                        REG       766
           314  43074                             MX0    60                                                      REG       767
                                                                                                                 REG       768
           315  20021                    DIT1     LX0    P2.LONGP                                                REG       769
                     63520                        SB5    X2          (B5) = FWA I. L.                            REG       770
                          20322                   HX3    OP.2ORD     POSITION OUS ORD                            REG       771
                               21356              AX3    -OP.2ORDL   ISOLATE OUS ORD                             REG       772
           316  77245                             SX2    B4-B5       (X2) = I. L. ORD OF INTERMEDIATE            REG       773
                     53137                        SA1    B7+X3       GET STATUS WORD                             REG       774
                          20244                   LX2    P2.BIASP-P2.TAGP  PLACE I. L. ORD IN BIAS FIELD         REG       775
                               36332              IX3    X3+X2       ADD TAG TO BIAS                             REG       776
                                                                                                                 REG       777
                                        **        CONSTRUCT REGFILE ENTRY FOR INTERMIDIATE                       REG       778
                                        *         (A1) _ STATUS WORD                                             REG       779
                                        *         (X0) = MODE IN P2.2MOD FIELD                                   REG       780
                                        *         (X1) = STATUS WORD                                             REG       781
                                        *         (X3) = 18/I. L. ORD,24/0,18/OUS ORD                            REG       782
                                        *         (X5) = SELECTIVE BITS(ADDR,ARR,ETC.)                           REG       783
                                        *         (X6) = USE COUNT                                               REG       784
                                                                                                                 REG       785
                                                                                                                 REG       786
           317  7170002000                        CLAS=  X7,P2,(INTR)                                            REG       787
                                                  LX6    RG.USEP                                                 REG       788
                          12775                   BX7    X7+X5       SET *INTERMEDIATE* ATTRIBUTE                REG       789
                               20354              LX3    P2.TAGP     POSITION TAG AND BIAS                       REG       790
           320  16530                             BX5    -X0+X3      OUS ORD + I.L. ORD + LONG                   REG       791
                     36556                        IX5    X5+X6       ADD IN DUMMY USE COUNT                      REG       792
                                   0              ERRNZ  OP.UTOTL-P2.USEL                                        REG       793
                          12575                   BX5    X7+X5       (X5) NOW SUITABLE FOR ENTRY INTO REGFILE    REG       794
                                         .TEST    IFEQ   TEST,ON                                                 REG       795
                                                  NZ     X6,DIT8     IF INTERMEDIATE NEEDED (USE .NE. 0)         REG       796
                                                  SA2    CO.SNAP                                                 REG       797
                                                  LX2    1RW                                                     REG       798
                                                  PL     X2,DIT8     IF NOT REQUESTED                            REG       799
                                         USE=0    REG    (A1,X5)                                                 REG       800
                                         DIT8     BSS                                                            REG       801
                                         .TEST    ENDIF                                                          REG       802
                                                                                                                 REG       803
           321  0306000322 +                      ZR     X6,DIT9     IF USE COUNT ZERO NO REGFILE ENTRY          REG       804
                          0100001257 +            RJ     STS         SET TAG STATUS                              REG       805
           322  76320                    DIT9     SX3    B2          =0TR                                        REG       806
                     43271                        MX2    -3                                                      REG       807
                          15632                   BX6    -X2*X3      =00R                                        REG       808
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    18
                                                                      DIT 
  
                               20603              LX6    3                                                       REG       809
           323  0400000305 +                      EQ     EXIT.                                                   REG       810
  
  
  
  
                                        **        DSC -  DETERMINE STATUS CLASS                                  REG       812
                                        *         DSC GETS A TAG'S REGISTER STATUS,  COMPARES ITS                REG       813
                                        *         (0TR) TO A DESIRED REGISTER CLASS,  AND,  IF NEC-              REG       814
                                        *         ESSARY,  PASSES BACK AN INSTRUCTION AND REGISTER               REG       815
                                        *         CLASS TO SEARCH TO ACHIEVE CORRECT REGISTER STATUS.            REG       816
                                        *         NOTE - DSC IS REALLY JUST A GST WITH REGISTER CLASS            REG       817
                                        *         CHECKING.                                                      REG       818
                                        *                                                                        REG       819
                                        *         ENTRY  (X5) = OPERAND/REGFILE ENTRY                            REG       820
                                        *                (B2) = MODE TYPE (0 UPPER, 1 LOWER)                     REG       821
                                        *                (B3) = RG=XXXX :  THE REGISTER CLASS DESIRED            REG       822
                                        *                                                                        REG       823
                                        *         EXIT   (A1,X1) _,= STATUS WORD RESP.                           REG       824
                                        *                (X5) = SAME OPERAND                                     REG       825
                                        *                (X7) = TRANSFER INSTRUCTION OR N/A                      REG       826
                                        *                (B2) = (0TR)[OPERAND] OR 0                              REG       827
                                        *                (B3) = REGISTER CLASS TO SEARCH                         REG       828
                                        *                (B7) = 1 OF(0TR)[OPERAND] O. K.,  ELSE 0                REG       829
                                        *                                                                        REG       830
                                        *         USES   A1,A2,A3,A6,A7,  X0,X1,X2,X3,X6,X7  B2,B3,B7            REG       831
                                        *                                                                        REG       832
                                        *         CALLS  CRT,GST                                                 REG       833
                                                                                                                 REG       834
                                                                                                                 REG       835
           324  0400400324 +             DSC      SUBR   =           ENTRY/EXIT                                  REG       836
           325  0100000430 +                      RJ     GST         GET STATUS OF TAG                           REG       837
           326  0420000324 +                      ZR     B2,EXIT.                                                REG       838
                          0100000246 +            RJ     CRT         CHECK REGISTER TYPE                         REG       839
           327  0570000333 +                      NZ     B7,DSC1     IF TYPES DO NOT MATCH                       REG       840
                          5120000000 X            SA2    RREG        GET HARD REGISTER                           REG       841
           330  43371                             MX3    -3          SET (00R) MASK                              REG       842
                     76020                        SX0    B2          (X0) = (0TR)[OPERAND]                       REG       843
                          0332000324 +            MI     X2,EXIT.    IF NO HARD REGISTER                         REG       844
           331  13002                             BX0    X0-X2       COMPARE (0TR)[OPERAND] TO HARD REG (0TR)    REG       845
                     15003                        BX0    -X3*X0      CLEAR ALL BUT DIFFERENCE IN REG NUMBER      REG       846
                          0310000333 +            NZ     X0,DSC1     IF NOT IN CORRECT REGISTER                  REG       847
           332  14722                             BX7    -X2         CLEAR HARD REGISTER ASSIGNMENT              REG       848
                     54720                        SA7    A2                                                      REG       849
                          0400000324 +            EQ     EXIT.       FINISH UP                                   REG       850
                                                                                                                 REG       851
                                        *         TAG IS NOT IN CORRECT REGISTER.                                REG       852
                                        *         (X7) = INSTRUCTION TO USE.                                     REG       853
                                        *         (B2) = (0TR)[OPERAND]                                          REG       854
                                                                                                                 REG       855
           333  6277000000               DSC1     SB7    X7+                                                     REG       856
                          7102777751              SX0    B2-R.X6     (X0) = (0TR)[OPREAND] - (0TR)[X6]           REG       857
           334  0330000340 +                      MI     X0,DSC2     IF NOT STORE REGISTER                       REG       858
                                                                                                                 REG       859
                                        **        TAG IS CURRENTLY IN A STORE REGISTER.  THE REGISTER TO WHICH   REG       860
                                        *         IT WILL BE TRANSMITTED MAY NOT BE FREE AND MAY THEREFORE       REG       861
                                        *         REQUIRE A STORE REGISTER TO CONVEY ITS CONTENTS TO MEMORY.     REG       862
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    19
                                                                      DSC 
  
                                        *         WE LOCK THE STORE REGISTER NOW,REMEMBER IT, AND UNLOCK ITS     REG       863
                                        *         REGFILE ENTRY WHEN IT IS SAFE TO DO SO.                        REG       864
                                                                                                                 REG       865
                          76720                   SX7    B2                                                      REG       866
           335  5170001027 +                      SA7    STRGLK      REGISTER TO CLEAR                           REG       867
                          5122000000 C            SA2    B2+REGFILE  GET REGFILE ENTRY OF OPERAND                REG       868
           336  7100000400                        SX0    RLOCK                                                   REG       869
                          12702                   BX7    X0+X2       LOCK ON                                     REG       870
                               54720              SA7    A2          RESET REGFILE ENTRY WITH LOCK ON            REG       871
           337  0400000345 +                      EQ     DSC3                                                    REG       872
                                                                                                                 REG       873
           340  7100000010               DSC2     =X0    REG.A       (X0) = (0T0) FOR AN A-REG                   REG       874
                          76220                   SX2    B2          (X2) = (0TR)[OPERAND]                       REG       875
                               13777              BX7    0                                                       REG       876
           341  76370                             SX3    B7          (X3) = INSTRUCTION (GHIJ)                   REG       877
                     11202                        BX2    X0*X2       EXTRACT A-REG TYPE BIT                      REG       878
                          5172000000 C            SA7    B2+REGFILE                                              REG       879
           342  0302000345 +                      ZR     X2,DSC3     IF TAG NOT IN *A* REGISTER                  REG       880
                          5027000010              SA2    A7+REG.X-REG.A   GET ASSOCIATE *X* REG                  REG       881
           343  46000                             NO                                                             REG       882
                     13725                        BX7    X2-X5                                                   REG       883
                          21711                   AX7    RG.USEL                                                 REG       884
           344  0317000345 +                      NZ     X7,DSC3     IF NOT SAME TAGE IN *X* REGISTER            REG       885
                          54720                   SA7    A2          CLEAR ASSIGNMENT                            REG       886
           345  21311                    DSC3     AX3    9           (X3) = *G* PART OR TRANSFER INSTRUCTION     REG       887
                     6130000014 +                 SB3    RG=LODX                                                 REG       888
                               76770              SX7    B7          (X7) = INSTRUCTION                          REG       889
           346  43072                             MX0    -2          SET MASK FOR ORDINAL INTO DSCTAB            REG       890
                     7127776777                   SX2    B7-XMT/1S3  (X2) = TRANSFER INST (GHIJ) - XMT/1S3S3     REG       891
                               66710              SB7    B1                                                      REG       892
           347  0302000324 +                      ZR     X2,EXIT.    IF XMIT                                     REG       893
                                                                                                                 REG       894
                                        **        THE TRANSFER INSTRUCTION IS AN INCRIMENT INSTRUCTION           REG       895
                                        *         SO, WE USE THE BOTTOM 2 BITS OF THE *G* PORTION TO INDEX       REG       896
                                        *         INTO THE DSC.LOD TABLE, RG=XXX VALUES FOR CORRESPONDING        REG       897
                                        *         INCRIMENT REGISTER CLASSES.                                    REG       898
                                                                                                                 REG       899
                          15030                   BX0    -X0*X3      (X0) = 0-1 BIT OF *G* PART OR TRANSFER INST REG       900
           350  5220000352 +                      SA2    X0+DSC.LOD  GET TYPE OF LOAD TO USE                     REG       901
                          63320                   SB3    X2          (B3) = RG=LOAD,  RG=BADR OR RG=LODX         REG       902
           351  0400000324 +                      EQ     EXIT.       FINISH UP                                   REG       903
                                                                                                                 REG       904
           352                           DSC.LOD  BSS    0                                                       REG       905
           352  00000000000000000011 +            VFD    42/0,18/RG=LOAD                                         REG       906
           353  00000000000000000000 +            VFD    42/0,18/RG=BADR                                         REG       907
           354  00000000000000000014 +            VFD    42/0,18/RG=LODX                                         REG       908
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    20
                                                                      GNR 
  
                                        **        GNR -  GET NEXT REGISTER.                                      REG       911
                                        *                                                                        REG       912
                                        *         *GNR* IS CALLED WHEN A REGISTER IS NEEDED FOR A LOAD/SET       REG       913
                                        *         INSTRUCTION.  IT WILL ALWAYS ASSIGN A REGISTER NOTING          REG       914
                                        *         WHETHER A *HARD* REGISTER AND REGISTER TYPES AGREE.            REG       915
                                        *                                                                        REG       916
                                        *         ENTRY  (B3) = RG=XXXX REGISTER TYPE                            REG       917
                                        *                (X5) = TAG.                                             REG       918
                                        *                                                                        REG       919
                                        *         EXIT   (B2) = 0TR, FOR REGISTER ASSIGNED.                      REG       920
                                        *                (X6) = 0R0, FOR (B2)                                    REG       921
                                        *                                                                        REG       922
                                        *         USES   A1,A2,A3,A5  X0  B2,B3,B6,B7                            REG       923
                                        *                                                                        REG       924
                                        *         CALLS  SFR,RUT                                                 REG       925
                                        *                (SCR,SCR+1)                                             REG       926
                                                                                                                 REG       927
                                                                                                                 REG       928
           355  0400400355 +             GNR      SUBR   =           ENTRY/EXIT...                               REG       929
           356  0100001227 +                      RJ     SFR         FIND AVAILABLE REGISTER                     REG       930
           357  0307000363 +                      ZR     X7,GNR5     IF REGISTER FREE                            REG       931
                          5120000000 X            SA2    RGX                                                     REG       932
           360  76730                             SX7    B3                                                      REG       933
                     0302000361 +                 ZR     X2,GNR2     IF NON-INTERMEDIATE NOT AVAILABLE           REG       934
                               63220              SB2    X2                                                      REG       935
           361  5170000370 +             GNR2     SA7    GNRA                                                    REG       936
                          0100001036 +            RJ     RUT         CLEAR REGISTER                              REG       937
           362  5120000370 +                      SA2    GNRA                                                    REG       938
                          63320                   SB3    X2                                                      REG       939
           363  6170000011 +             GNR5     SB7    RG=LOAD                                                 REG       940
                          77037                   SX0    B3-B7                                                   REG       941
           364  0310000355 +                      NZ     X0,EXIT.    IF NOT *A* REGISTER LOAD                    REG       942
                          6122777767              SB2    B2-REG.X+REG.A                                          REG       943
           365  5112000000 C                      SA1    B2+REGFILE                                              REG       944
                          43063                   MX0    -RG.USEL                                                REG       945
                               15110              BX1    -X0*X1      USE COUNT ONLY                              REG       946
           366  0301000355 +                      ZR     X1,EXIT.    IF *A* REGISTER IS FREE                     REG       947
                          0100001036 +            RJ     RUT         CLEAR *A* REGISTER                          REG       948
           367  0400000355 +                      EQ     EXIT.                                                   REG       949
                                                                                                                 REG       950
           370  00000000000000000000     GNRA     DATA   0                                                       REG       951
  
  
  
  
                                        **        GPN - GET PARAMETER NUMBER.                                    REG       953
                                        *                                                                        REG       954
                                        *         ENTRY  (X1) = ORDINAL OF SYMBOL.                               REG       955
                                        *                NOTE - SYMBOL MUST BE A FORMAL PARAMETER.               REG       956
                                        *                                                                        REG       957
                                        *         EXIT   (X1) = FORMAL PARAMETER NUMBER.                         REG       958
                                        *                                                                        REG       959
                                        *         USES   A1,A2  X0  B7                                           REG       960
                                                                                                                 REG       961
                                                                                                                 REG       962
           371  0400400371 +             GPN      SUBR               ...ENTRY/EXIT...                            REG       963
           372  22211                             LX2    X1,B1                                                   REG       964
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    21
                                                                      GPN 
  
                     36121                        IX1    X2+X1       (X1) = INDEX = ORDINAL * L.SYM              REG       965
                                   0              ERRNZ  3-Z=SYM                                                 REG       966
                                         .TEST    IFNE   TEST                                                    REG       967
                                                  MI     X1,"BLOWUP"       IF ILLEGAL SYMORD                     REG       968
                                                  SA2    T=SYM                                                   REG       969
                                                  IX2    X1-X2                                                   REG       970
                                                  PL     X2,"BLOWUP"       IF INDEX .GE. SYMTAB LENGTH           REG       971
                                         .TEST    ENDIF                                                          REG       972
                          5120000000 X            SA2    T.SYM                                                   REG       973
           373  63721                             =B7    X2+WB.W                                                 REG       974
                     53117                        SA1    X1+B7       FETCH SYMTAB WORD (WB)                      REG       975
                          43063                   MX0    -WB.FPNOL                                               REG       976
                                         .TEST    IFEQ   TEST,ON                                                 REG       977
                                                  BX2    X1                                                      REG       978
                                                  HX2    WB.FP                                                   REG       979
                                                  PL     X2,"BLOWUP"       IF NOT A FORMAL PARAMETER             REG       980
                                         .TEST    ENDIF                                                          REG       981
                               20133              LX1    -WB.FPNOP                                               REG       982
           374  15110                             BX1    -X0*X1      ISOLATE (X1) = F.P. NUMBER                  REG       983
                     0400000371 +                 EQ     EXIT.                                                   REG       984
  
  
  
  
                                        **        GNT - GENERATE TEMPORARY TAG.                                  REG       986
                                        *                                                                        REG       987
                                        *         ENTRY  (X1) = INTERMEDIATE TO PROCESS                          REG       988
                                        *                (B2) = 0TR OF REGISTER INTERMEDIATE IS IN               REG       989
                                        *                                                                        REG       990
                                        *         EXIT   (B2) = PRESERVED                                        REG       991
                                        *                (X6) = TEMP, P2 TAG-FORM                                REG       992
                                        *                                                                        REG       993
                                        *         USES   A1,A2,A3,A6,A7 X0 B3,B7.                                REG       994
                                        *                                                                        REG       995
                                        *         CALLS  NONE.                                                   REG       996
                                                                                                                 REG       997
                                                                                                                 REG       998
           375  0400400375 +             GNT      SUBR               ENTRY/EXIT...                               REG       999
           376  43073                             MX0    -1                                                      REG      1000
                     5130000000 X                 SA3    T.OUS       GET FWA OUS TAB                             REG      1001
                               20154              LX1    -RG.TYPP                                                REG      1002
           377  63330                             SB3    X3          START OF OUS TABLE                          REG      1003
                     15710                        BX7    -X0*X1      TAG TYPE (0 = UPPER HALF, 1 = LOWER HALF)   REG      1004
                          5120000000 X            SA2    N.ST        NUMBER OF SET TEM CELLS                     REG      1005
           400  63770                             SB7    X7          (B7) = UP/LOW INDICATOR                     REG      1006
                     73721                        =X7    X2+1        ADVANCE N.ST                                REG      1007
                          20140                   LX1    RG.TYPP-P2.TAGP                                         REG      1008
                               43054              MX0    -P2.TAGL                                                REG      1009
           401  15010                             BX0    -X0*X1                                                  REG      1010
                     20132                        LX1    P2.TAGP-1-P2.LONGP                                      REG      1011
                          53303                   SA3    X0+B3       LOAD STATUS WORD                            REG      1012
                                                                                                                 REG      1013
                                        **        NOW WE ARE READY TO CREATE A TEMP CELL IF                      REG      1014
                                        *         HASN'T ALREADY BEEN DONE.  THE INTERMEDIAT'S                   REG      1015
                                        *         STATUS WORD WILL RECIEVE THE FOLLOWING FORMAT:                 REG      1016
                                        *         P2.TAGL/SYM TAB ORDINAL OF TEMP ARRAY,                         REG      1017
                                        *         P2.BIASL/(N.ST) OFFSET IN TEMP ARRAY,                          REG      1018
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    22
                                                                      GNT 
  
                                        *         24/NORMAL STATUS WORD FIELDS.                                  REG      1019
                                        *                                                                        REG      1020
                                        *         (X0) = 0-BIT MASK FOR MODE CHECK                               REG      1021
                                        *         (A2,X2) _,= (N.ST)                                             REG      1022
                                        *         (A3,X3) _,= STATUS WORD                                        REG      1023
                                        *         (X6) = MODE                                                    REG      1024
                                        *         (X7) = (N.ST) + 1                                              REG      1025
                                        *         (N.ST) = NUMBER OF TEMPS ALREADY ALOCATED                      REG      1026
                                                                                                                 REG      1027
                               20224              LX2    P2.BIASP    BIAS[STWD] = OFFSET OF TEM IN TEM-ARRAY     REG      1028
           402  10611                             BX6    X1                                                      REG      1029
                     22103                        LX1    X3                                                      REG      1030
                          7100777776              SX0    -1                                                      REG      1031
           403  0326000404 +                      PL     X6,GNT5     IF NOT DOUBLE OR COMPLEX                    REG      1032
                          7277000001              SX7    X7+1        ADVANCE (N.ST) TWICE IF DOUBLE-WORD         REG      1033
                                                                                                                 REG      1034
           404  21154                    GNT5     AX1    P2.TAGP     ISOLATE TAG FIELD                           REG      1035
                                   0              ERRNZ  60-P2.TAGP-P2.TAGL                                      REG      1036
                     0311000407 +                 NZ     X1,GNT10    IF ALREADY DEFINED                          REG      1037
                               43644              MX6    60-P2.BIASL                                             REG      1038
           405  5110000000 X                      SA1    S=ST        GET TEMP ORDINAL                            REG      1039
                          20624                   LX6    P2.BIASP                                                REG      1040
                                   0              ERRNZ  K.SYM                                                   REG      1041
                               11363              BX3    X6*X3       CLEAR BIAS FIELD                            REG      1042
           406  54720                             SA7    A2          RESET TEM COUNTER                           REG      1043
                     20154                        LX1    P2.TAGP     POSITION ARRAY ORDINAL IN TAG FIELD         REG      1044
                          36212                   IX2    X1+X2       ADD TAG TO BIAS                             REG      1045
                               12323              BX3    X2+X3       ADD NEW TAG AND BIAS TO STATUS WORD FIELDS  REG      1046
                                                                                                                 REG      1047
                                        **        (X0) = -1 (BIT MASK)                                           REG      1048
                                        *         (A3,X3) _,= STATUS WORD                                        REG      1049
                                        *         (B7) = TAG TYPE (UPPER/LOWER)                                  REG      1050
                                                                                                                 REG      1051
           407  5120001543 +             GNT10    CLAS=  X2,P2,(TAG,BIAS)                                        REG      1052
                          11623                   BX6    X2*X3       ISOLATE TAG AND BIAS FOR STORE WORD         REG      1053
                               20016              LX0    ST.STATP                                                REG      1054
           410  22270                             LX2    X0,B7       MASK FOR SPECIFIED STATUS BIT               REG      1055
                     76170                        SX1    B7          (X1) = TYPE (0-UPPER:1-LOWER)               REG      1056
                          11723                   BX7    X2*X3       CLEAR STATUS BIT                            REG      1057
                               20124              LX1    P2.BIASP    POSITION TYPE IN BIAS FIELD                 REG      1058
                                                                                                                 REG      1059
                                         .TEST    IFEQ   TEST,ON                                                 REG      1060
                                                  SA2    CO.SNAP                                                 REG      1061
                                                  LX2    1RH                                                     REG      1062
                                                  PL     X2,GNT22    IF SNAP = H NOT SELECTED                    REG      1063
                                         SNP=H    SNAP   GNT,,1,(B6,B2,A3,A7,X5,X7,X6,X1)                        REG      1064
                                         GNT22    BSS                                                            REG      1065
                                         .TEST    ENDIF                                                          REG      1066
                                                                                                                 REG      1067
           411  54730                             SA7    A3          CLEAR STATUS OF TAG                         REG      1068
                     36616                        IX6    X1+X6       ADD TYPE TO BIAS OF STORE WORD              REG      1069
                          0400000375 +            EQ     EXIT.                                                   REG      1070
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    23
                                                                      GPT 
  
                                        **        GPT -  GET POINTER TAG                                         REG      1072
                                        *         GPT ALSO INCREMENTS *BIAS* BY OFFSET IN COMMON BLOCK.          FC5A209     5
                                        *                                                                        REG      1073
                                        *         ENTRY  (X5) = ECS/LCM NAME TAG                                 REG      1074
                                        *                                                                        REG      1075
                                        *         EXIT   (X2) = POINTER-WORD TAG                                 REG      1076
                                        *                (X5) = PRESERVED                                        REG      1077
                                        *                                                                        REG      1078
                                        *         USES   A2,A3  B2,B7  X0,X2,X3,X7                               FC5A209     6
                                                                                                                 REG      1080
           412  0400400412 +             GPT      SUBR   0                                                       REG      1081
           413  5130000000 X                      SA3    T.SYM                                                   REG      1082
                          6273000002              =B7    X3+WC.W                                                 REG      1083
           414  43257                             MX2    -TG.ORDL                                                REG      1084
                     20520                        LX5    -P2.TAGP                                                REG      1085
                          15252                   BX2    -X2*X5      (X2) = TAG ORDINAL                          REG      1086
                               20554              LX5    P2.TAGP            RESTORE X5                           REG      1087
           415  22312                             LX3    X2,B1                                                   REG      1088
                     36232                        IX2    X3+X2       (X2) = INDEX = 3 * SYMORD                   REG      1089
                                   0              ERRNZ  3-Z=SYM                                                 REG      1090
                          5130000000 X            SA3    T.BLKS                                                  REG      1091
           416  53227                             SA2    X2+B7       (X2) = ADDRESS TABLE ENTRY                  REG      1092
                     10722                        BX7    X2                                                      FC5A209     7
                          20744                   HX7    WC.RA                                                   FC5A209     8
           417  6223000001                        SB2    X3+CB.W                                                 FC5A209     9
                          21744                   AX7    -WC.RAL     SIGN EXTEND OFFSET IN BLOCK/CLASS           FC5A209    10
                               43362              MX3    -WC.RBL                                                 REG      1094
           420  21260                             AX2    WC.RBP                                                  REG      1095
                     15223                        BX2    -X3*X2      (X2) = BLOCK NUMBER                         REG      1096
                          55321                   =A3    A2+WB.W-WC.W                                            FC5A209    11
                               20362              HX3    WB.EQV                                                  FC5A209    12
           421  43060                             MX0    -WB.BASEL                                               FC5A209    13
                     0323000424 +                 PL     X3,GPT10    IF NOT EQUIVALENCED                         FC5A209    14
                               20345              LX3    WB.EQVP+1-WB.BASEP                                      FC5A209    15
           422  15330                             BX3    -X0*X3                                                  FC5A209    16
                     22013                        LX0    B1,X3                                                   FC5A209    17
                          36330                   IX3    X3+X0                                                   FC5A209    18
                               53337              SA3    X3+B7       WC(BASE)                                    FC5A209    19
           423  20344                             HX3    WC.RA                                                   FC5A209    20
                     21344                        AX3    -WC.RAL     SIGN EXTEND OFFSET OF CLASS IN BLOCK        FC5A209    21
                          36737                   IX7    X3+X7       RELOCATE CLASS IN BLOCK                     FC5A209    22
                                                                                                                 FC5A209    23
           424  5130000626 +             GPT10    SA3 BIAS                                                       FC5A209    24
                          43044                   MX0    -P2.BIASL                                               FC5A209    25
                               20344              LX3    59-23                                                   FC5A209    26
           425  21344                             AX3    59-23       SIGN EXTEND BIAS                            FC5A209    27
                     36737                        IX7    X3+X7       ADD IN BLOCK/CLASS OFFSET                   FC5A209    28
                          15770                   BX7    -X0*X7                                                  FC5A209    29
                               54730              SA7    A3                                                      FC5A209    30
           426  53222                             SA2    X2+B2       BLOCK TABLE ENTRY                           FC5A209    31
                     43322                        MX3    CB.TAGL                                                 REG      1098
                          20352                   LX3    CB.TAGL+CB.TAGP                                         REG      1099
                               11232              BX2    X3*X2       (X2) = POINTER-WORD TAG                     REG      1100
           427  0400000412 +                      EQ     GPTX              EXIT..                                REG      1101
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    24
                                                                      GST 
  
                                        **        GST -  GET STATUS OF TAG                                       REG      1103
                                        *         GST CHECKS IF THE GETS THE STATUS WORD OF                      REG      1104
                                        *         AN OPERAND OR REGFILE ENTRY.  IT THEN CHECKS                   REG      1105
                                        *         THE STATUS BIT OF THE STATUS WORD AND PASSES                   REG      1106
                                        *         THE REGISTER STATUS OF THE OPERAND BACK TO                     REG      1107
                                        *         THE CALLER.                                                    REG      1108
                                        *                                                                        REG      1109
                                        *         ENTRY  (X5) = OPERAND/REGFILE ENTRY                            REG      1110
                                        *                (B2) = MODE TYPE (0 UPPER, 1 LOWER)                     REG      1111
                                        *                                                                        REG      1112
                                        *         EXIT   (A1,X1) _,= STATUS WORD                                 REG      1113
                                        *                (X5) - PRESERVED                                        REG      1114
                                        *                (X6) = (0R0)                                            REG      1115
                                        *                (B2) = (0TR) IF OPERAND IN REG,  ELSE 0                 REG      1116
                                        *                                                                        REG      1117
                                        *         USES   A1,A2,A6,  X0,X1,X2,X6,  B2,B7                          REG      1118
                                        *                                                                        REG      1119
                                        *         CANNOT DESTROY A4,X4  B4,B5,B6                                 REG      1120
                                                                                                                 REG      1121
                                                                                                                 REG      1122
           430  0400400430 +             GST      SUBR   =           ENTRY/EXIT.                                 REG      1123
           431  43654                             MX6    -P2.TAGL    SET MASK FOR ORDINAL INTO OUS TABLE         REG      1124
                     5120000000 X                 SA2    T.OUS       GET FWA OF OUS TABLE                        REG      1125
                               20520              LX5    -P2.TAGP    POSITION ORDINAL                            REG      1126
           432  63720                             SB7    X2          (B7) = FWA OUS TAB                          REG      1127
                     15056                        BX0    -X6*X5      EXTRACT OUS ORDINAL                         REG      1128
                          74220                   SX2    A2          (X2) _ T.OUS                                REG      1129
                                                                                                                 REG      1130
                                         .TEST    IFEQ   TEST,ON     VALIDITY CHECK FOR TYPE AND OPERAND         REG      1131
                                                  MI     B2,"BLOWUP" IF BAD TYPE                                 REG      1132
                                                  SA1    X2+N.TABLE  GET TABLE LENGTH                            REG      1133
                                                  LT     B1,B2,"BLOWUP"    IF TYPE BAD                           REG      1134
                                                  IX6    X1-X0                                                   REG      1135
                                                  MI     X6,"BLOWUP" IF ORDINAL NOT WITHIN TABLE                 REG      1136
                                         .TEST    ENDIF                                                          REG      1137
                                                                                                                 REG      1138
                               20222              LX2    18          POSITION TABLE FWA FOR STATUS WORD POINTER  REG      1139
           433  53107                             SA1    B7+X0       GET STATUS WORD                             REG      1140
                     20554                        LX5    P2.TAGP     RESET OPERAND WORD                          REG      1141
                          36602                   IX6    X0+X2       (X6) = 42/T.OUS,18/ORDINAL, ST. WD. POINTER REG      1142
           434  5122000451 +                      SA2    B2+STATUS   GET STATUS SHIFT COUNTS                     REG      1143
                          5160000453 +            SA6    GSTC        SET STATUS WORD POINTER                     REG      1144
           435  14022                             BX0    -X2                                                     REG      1145
                     21222                        AX2    18          POSITION NEXT SHIFT COUNT                   REG      1146
                          6270000073              SB7    59+X0       (B7) = SHIFT COUNT TO MOVE ST. BIT TO TOP   REG      1147
           436  22071                             LX0    B7,X1       POSITION STATUS BIT                         REG      1148
                     66200                        =B2    0                                                       REG      1149
                          63720                   SB7    X2          (B7) = ST.UREGP OR ST.LREGP                 REG      1150
                               43666              MX6    -ST.UREGL   SET (0TR) MASK                              REG      1151
                                   3              ERRMI  ST.UREGL-3                                              REG      1152
           437  0320000446 +                      PL     X0,GST1     IF NOT IN REG EXIT WITH (B2) = 0            REG      1153
                          23071                   AX0    B7,X1       POSITION (0TR)                              REG      1154
                               15606              BX6    -X6*X0      EXTRACT (0TR)                               REG      1155
           440  63260                             SB2    X6                                                      REG      1156
                                                                                                                 REG      1157
                                        **        SOMETIMES A TAG IS REMOVED FROM THE REGFILE WITHOUT            REG      1158
                                        *         HAVING ITS STATUS BIT CLEARED. EXAMPLE: WHEN ITS USE           REG      1159
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    25
                                                                      GST 
  
                                        *         COUNT IS ZERO (SEE EIS.AT). THIS FACT MOTIVATES THE            REG      1160
                                        *         THE APARENTLY USELESS CODE THAT FOLLOWS.                       REG      1161
                                                                                                                 REG      1162
                     5122000000 C                 SA2    B2+REGFILE  GET REGFILE ENTRY  INDICATED BY STAT WORD   REG      1163
                               13025              BX0    X2-X5                                                   REG      1164
           441  5120001544 +                      CLAS=  X2,P2,(USE,LONG)                                        REG      1165
                          15202                   BX2    -X2*X0                                                  REG      1166
           442  0312000446 +                      NZ     X2,GST1     IF NOT SAME OPERAND                         REG      1167
                          7100000010              SX0    REG.A       (X0) = (0T0) FOR A REG                      REG      1168
           443  11006                             BX0    X0*X6                                                   REG      1169
                     0300000447 +                 ZR     X0,GST2     IF NOT IN AN A-REG CLEAN UP                 REG      1170
           444  5122000010 C                      SA2    B2+REGFILE+REG.X-REG.A  GET ASSOCIATE X-REG             REG      1171
                          13225                   BX2    X2-X5                                                   REG      1172
                               21211              AX2    RG.USEL     CLEAR USE FIELD(PROBABLY DOES DIFFER)       REG      1173
           445  0302000447 +                      ZR     X2,GST2     IF X-REG ENTRY NOT THE SAME                 REG      1174
                                                                                                                 REG      1175
           446  6120000000               GST1     SB2    0           SET NOT IN REG FLAG                         REG      1176
                          7160000000              SX6    0           (0R0) = 0                                   REG      1177
                                                                                                                 REG      1178
           447  43071                    GST2     MX0    -3                                                      REG      1179
                     15660                        BX6    -X0*X6      (X6) = (00R)                                REG      1180
                          20603                   LX6    3           (X6) = (0R0)                                REG      1181
           450  0400000430 +                      EQ     EXIT.                                                   REG      1182
                                                                                                                 REG      1183
           451  00000000000000000016     STATUS   VFD    24/OP.UTOTP,18/ST.UREGP,18/ST.USTP                      REG      1184
           452  00000011000006000017              VFD    24/OP.LTOTP,18/ST.LREGP,18/ST.LSTP                      REG      1185
                                                                                                                 REG      1186
           453                           GSTC     BSSENT 0                                                       FC50264    21
           453  00000000000000 X                  VFD    24/0,18/T.OUS,18/"BLOWUP"                               REG      1188
                              400453 +
  
  
  
  
                                        **        GTR -GET TEMPORARY REGISTER                                    REG      1190
                                        *                                                                        REG      1191
                                        *         ENTRY  NONE                                                    REG      1192
                                        *         EXIT   (B2) = 0TR OF REG GOTTEN - SET BY SUBROUTINES           REG      1193
                                        *                (X6) = 0R0 OF REG GOTTEN - SET BY SUBROUTINES           REG      1194
                                        *                                                                        REG      1195
                                        *         SAVES  B4,B6 A4,X4,X5                                          REG      1196
                                        *                                                                        REG      1197
                                        *         CALLS  ASR, RUT AND SFR                                        REG      1198
                                                                                                                 REG      1199
           454  0400400454 +             GTR      SUBR   =           ENTRY/EXIT                                  REG      1200
           455  6130000006 +                      SB3    RG=TEMP                                                 REG      1201
                          0100001227 +            RJ     SFR                                                     REG      1202
           456  0307000454 +                      ZR     X7,EXIT.    IF TEMP REGISTER AVAILABLE                  REG      1203
                          5110000000 X            SA1    RGX                                                     REG      1204
           457  0301000462 +                      ZR     X1,GTR5     IF NON-INTERMEDIATE NOT AVAILABLE           REG      1205
                          63210                   SB2    X1                                                      REG      1206
           460  0100001036 +                      RJ     RUT                                                     REG      1207
           461  0400000454 +                      EQ     EXIT.                                                   REG      1208
                                                                                                                 REG      1209
                                                                                                                 REG      1210
                                        **        TAKE CARE TO AVOID DEADLOCK THAT WILL OCCUR IF BOTH STORE      REG      1211
                                        *         REGISTERS ARE LOCKED.                                          REG      1212
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    26
                                                                      GTR 
  
                                                                                                                 REG      1213
           462  5110000026 C             GTR5     SA1    REGFILE+R.X6                                            REG      1214
                          5120000027 C            SA2    REGFILE+R.X7                                            REG      1215
           463  7130000400                        =X3    RLOCK                                                   REG      1216
                          43063                   MX0    -RG.USEL                                                REG      1217
                               15110              BX1    -X0*X1      USE COUNT ON *X6*                           REG      1218
           464  37113                             IX1    X1-X3                                                   REG      1219
                     0321000470 +                 PL     X1,GTR10    IF *X6* IS LOCKED                           REG      1220
                               15220              BX2    -X0*X2      USE COUNT ON *X7*                           REG      1221
           465  37123                             IX1    X2-X3                                                   REG      1222
                     0321000470 +                 PL     X1,GTR10    IF *X7* IS LOCKED                           REG      1223
                                                                                                                 REG      1224
                                        *         NEITHER *X6* NOR *X7* IS LOCKED                                REG      1225
                                                                                                                 REG      1226
           466  0100000037 +                      RJ     ASR         ASSIGN STORE REGISTER                       REG      1227
           467  0400000454 +                      EQ     EXIT.                                                   REG      1228
                                                                                                                 REG      1229
                                        *         USE TEMP REGISTER OF LOWEST USE COUNT.                         REG      1230
                                                                                                                 REG      1231
           470  0100001036 +             GTR10    RJ     RUT                                                     REG      1232
           471  0400000454 +                      EQ     EXIT.                                                   REG      1233
  
  
  
  
                                        **        LFP -  LOAD FORMAL PARAMETER ADDRESS                           REG      1235
                                        *                                                                        REG      1236
                                        *         ENTRY  (X1) = TAG                                              REG      1237
                                        *         EXIT   (B6) = (R00) *FP* LOAD REGISTER USED FOR *SAJ*          REG      1238
                                        *                (B2) = (0TR) *FP* SET REGISTER USED FOR *SBK* OR *SXI*  REG      1239
                                        *                                                                        REG      1240
                                        *         OUTPUTS TO INTERMEDIATE FILE                                   REG      1241
                                        *                SAJ    A0+FP                                            REG      1242
                                        *         AND EITHER                                                     REG      1243
                                        *                SBK    XJ+BIAS    (CM/SCM TAG)                          REG      1244
                                        *         OR                                                             REG      1245
                                        *                SXI    R+BIAS     (ECS/LCM TAG -- R CONTAINS SUBSCRIPT) REG      1246
                                        *                                                                        REG      1247
                                        *         USES   A1,A2,A3  X0,X5  B2,B3,B5,B6                            REG      1248
                                        *                                                                        REG      1249
                                        *         CALLS  GNR, GPN, RLL, RUL, RUT, SFR, WCODE.                    REG      1250
                                                                                                                 REG      1251
                                                                                                                 REG      1252
           472  0400400472 +             LFP      SUBR               ...ENTRY/EXIT...                            REG      1253
           473  5130001310 +                      SA3    ALREG                                                   REG      1254
                          43071                   MX0    -3                                                      REG      1255
           474  6273777751                        SB7    X3-R.X6                                                 REG      1256
                          15630                   BX6    -X0*X3                                                  REG      1257
                               10511              BX5    X1                                                      REG      1258
           475  20606                             LX6    6           =R00                                        REG      1259
                     0770000500 +                 NG     B7,LFP4     IF *AREG NOT STORE REGISTER                 REG      1260
           476  6130000011 +                      SB3    RG=LOAD                                                 REG      1261
                          0100000355 +            RJ     GNR                                                     REG      1262
           477  20603                             LX6    3           R00                                         REG      1263
           500  5160000514 +             LFP4     SA6    LFPA                                                    REG      1264
                          0100000741 +            RJ     LPA         LOAD FP BASE ADDRESS                        REG      1265
           501  5130000514 +                      SA3    LFPA                                                    REG      1266
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    27
                                                                      LFP 
  
                                                                                                                 REG      1267
                                        *         NOW OUTPUT LOAD OF ACTUAL ADDRESS VIA A *B* SET.               REG      1268
                                                                                                                 REG      1269
                          63630                   SB6    X3          SAVE ADDRESS FUNCTION REGISTER              REG      1270
           502  6130000000 +                      =B3    RG=BADR                                                 REG      1271
                          0100001227 +            RJ     SFR         GET NEXT *B* REGISTER                       REG      1272
           503  20603                             LX6    3                                                       REG      1273
                     76360                        SX3    B6                                                      REG      1274
                          21303                   AX3    3                                                       REG      1275
                               43052              MX0    -PB.BIASL                                               REG      1276
           504  36663                             IX6    X6+X3                                                   REG      1277
                     21524                        AX5    P2.BIASP                                                REG      1278
                          7170062000              SX7    SB=XK                                                   REG      1279
           505  15250                             BX2    -X0*X5      BIAS ON TAG                                 REG      1280
                     0312000507 +                 NZ     X2,LFP10    IF NOT *0* BIAS                             REG      1281
           506  7170063000                        SX7    SB=XB                                                   REG      1282
           507  12667                    LFP10    BX6    X6+X7                                                   REG      1283
                     20214                        LX2    PB.BIASP                                                REG      1284
                          20655                   LX6    PB.INSTP     OP-CODE + REGISTERS                        REG      1285
                               36726              IX7    X2+X6       ADD IN OP-CODE                              REG      1286
           510  66520                             SB5    B2                                                      REG      1287
                     6120000512 +                 WCODE  X7                                                      REG      1288
           512  66250                             SB2    B5                                                      REG      1289
                     0400000472 +                 EQ     EXIT.                                                   REG      1290
                                                                                                                 REG      1291
           513  00000000000000000000     FPREG    DATA   0           FORMAL PARAMETER REGISTER                   REG      1292
           514                     1     LFPA     BSS    1                                                       REG      1293
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    28
                                                                      LLA 
  
                                        **        LLA - LOAD LCM ADDRESS.                                        REG      1295
                                        *                                                                        REG      1296
                                        *         ENTRY  (ALREG) = 0TR OF FINAL REFERENCE REGISTER               REG      1297
                                        *                (AFREG) = 0TR OF ADDRESS FUNCTION OR 0                  REG      1298
                                        *                (X5) = TAG                                              REG      1299
                                        *                (STORE) NZ IFF THIS IS STORE OPERATION                  REG      1300
                                        *                (ADDR) NZ IFF THIS IS ADDRESS REF.                      REG      1301
                                        *                AFREG LOCKED.                                           REG      1302
                                        *                ALREG LOCKED IF STORE NZ9                               REG      1303
                                        *         EXIT   (X5) PRESERVED                                          REG      1304
                                        *         ALREG AND AFREG UNLOCKED                                       REG      1305
                                        *                (SETREG) 00R OF REGISTER WITH ADDRESS.                  REG      1306
                                                                                                                 REG      1307
           515  0400400515 +             LLA      SUBR                                                           REG      1308
           516  43600                             MX6    0                                                       FC51413     7
                     5160000633 +                 SA6    BIASF       INITIALIZE                                  FC51413     8
                               43044              MX0    -P2.BIASL                                               REG      1309
           517  10655                             BX6    X5                                                      REG      1310
                     20650                        LX6    -P2.BIASP                                               REG      1311
                          15660                   BX6    -X0*X6                                                  REG      1312
           520  5160000626 +                      SA6    BIAS                                                    REG      1313
                          5110001310 +            SA1    ALREG                                                   REG      1314
           521  5120001313 +                      SA2    STORE                                                   REG      1315
                          63210                   SB2    X1          SETREG = ALREG                              REG      1316
                               43071              MX0    -3                                                      REG      1317
           522  15610                             BX6    -X0*X1                                                  REG      1318
                     0302000525 +                 ZR     X2,LLA10    IF NOT STORE                                REG      1319
           523  6130000017 +                      SB3    RG=SET                                                  REG      1320
                          0100000355 +            RJ     GNR         SETREG = GNR(RG=SET.                        REG      1321
           524  21603                             AX6    3                                                       REG      1322
                                                                                                                 REG      1323
           525  10266                    LLA10    BX2    X6                                                      FC51509     6
                     76620                        SX6    B2                                                      FC51509     7
                          43071                   MX0    -3                                                      REG      1327
                               15660              BX6    -X0*X6                                                  REG      1328
           526  5160000627 +                      SA6    SETREG                                                  REG      1329
                          10055                   BX0    X5                                                      FC51509     8
                               20051              HX0    P2.FP                                                   FC51509     9
           527  0320000532 +                      PL     X0,LLA11    IF NOT FORMAL PARAMETER                     FC51509    10
                          5130001313 +            SA3    STORE                                                   FC51509    11
           530  0313000532 +                      NZ     X3,LLA11    IF STORE                                    FC51509    12
                          63720                   SB7    X2                                                      FC51509    13
           531  0100001010 +                      RJ     RLL                                                     FC51509    14
                                                                                                                 REG      1330
           532  0100000634 +             LLA11    RJ     LLB         LOAD BASE ADDRESS(FROM A0 OR LC.)           FC51509    15
           533  5160000513 +                      SA6    FPREG                                                   REG      1332
                          5160000630 +            SA6    LLAA        T1 = FPREG                                  REG      1333
           534  5120000626 +                      SA2    BIAS                                                    FC51413     9
                          20244                   LX2    -P2.BIASL                                               FC51413    10
                               43053              MX0    TP.ORBIL+3                                              FC51413    11
           535  21244                             AX2    -P2.BIASL                                               FC51413    12
                     0322000536 +                 PL     X2,LLA13    IF BIAS NOT MINUS                           FC51413    13
                               14222              BX2    -X2                                                     FC51413    14
           536  11702                    LLA13    BX7    X0*X2                                                   FC51413    15
                     5170000633 +                 SA7    BIASF                                                   FC51413    16
           537  5110001311 +                      SA1    AFREG                                                   REG      1334
                          43071                   MX0    -3                                                      REG      1335
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    29
                                                                      LLA 
  
           540  5120000626 +                      SA2    BIAS                                                    REG      1336
                          15710                   BX7    -X0*X1                                                  REG      1337
           541  0301000604 +                      ZR     X1,LLA50    IF NOT INDEXED REF.                         REG      1338
                          5170000631 +            SA7    LLAB        T2 = AFREG                                  REG      1339
           542  0302000611 +                      ZR     X2,LLA90    IF NO BIAS                                  REG      1340
                          5130000627 +            SA3    SETREG                                                  REG      1341
           543  10733                             BX7    X3                                                      REG      1342
                     5170000630 +                 SA7    LLAA        T1 = SETREG                                 REG      1343
           544  5160000631 +                      SA6    LLAB        T2 = FPREG                                  REG      1344
                          15110                   BX1    -X0*X1                                                  REG      1345
                               20155              LX1    PB.KP                                                   REG      1346
           545  20660                             LX6    PB.JP                                                   REG      1347
                     7120036000                   SX2    IA                                                      REG      1348
                               12016              BX0    X1+X6                                                   REG      1349
           546  20363                             LX3    PB.IP                                                   REG      1350
                     20255                        LX2    PB.INSTP                                                REG      1351
                          12223                   BX2    X2+X3                                                   REG      1352
                               12702              BX7    X0+X2                                                   REG      1353
           547  6120000550 +                      WCODE  X7          IX_SETREG FPREG+AFREG                       FC51560     5
           550  5120000627 +                      SA2    SETREG                                                  FC51601     5
                          5130000631 +            SA3    LLAB                                                    FC51601     6
           551  63720                             SB7    X2          IN CASE OF RLL CALL                         FC51601     7
                     13232                        BX2    X3-X2                                                   FC51601     8
                          0312000567 +            NZ     X2,LLA30    IF NO CONFLICT                              FC51601     9
           552  0100001010 +                      RJ     RLL         LOCK SETREG                                 FC51601    10
           553  5120000633 +                      SA2    BIASF                                                   FC51601    11
                          0312000560 +            NZ     X2,LLA14    IF ABS(BIAS) GT 2**17                       FC51601    12
           554  6130000017 +                      SB3    RG=SET      CHECK REGISTERS 0-5                         FC51601    13
                          0100001227 +            RJ     SFR                                                     FC51601    14
           555  0307000561 +                      ZR     X7,LLA14A   IF FREE                                     FC51601    15
                          6130000022 +            SB3    RG=STOR     CHECK REGISTERS 6-7                         FC51601    16
           556  0100001227 +                      RJ     SFR                                                     FC51601    17
           557  0307000561 +                      ZR     X7,LLA14A   IF FREE                                     FC51601    18
                                                                                                                 FC51601    19
           560  6130000011 +             LLA14    SB3    RG=LOAD                                                 FC51601    20
                          0100000355 +            RJ     GNR         GET A LOAD REGISTER                         FC51601    21
                                                                                                                 FC51601    22
           561  21603                    LLA14A   AX6    3                                                       FC51601    23
                     5160000631 +                 SA6    LLAB                                                    FC51601    24
           562  0400000567 +                      EQ     LLA30                                                   FC51601    25
                                                                                                                 REG      1355
           563  5110000513 +             LLA15    SA1    FPREG                                                   REG      1356
                          63710                   SB7    X1                                                      REG      1357
           564  0100001010 +                      RJ     RLL         LOCK FPREG                                  REG      1358
           565  6130000011 +                      SB3    RG=LOAD                                                 REG      1359
                          0100000355 +            RJ     GNR         GET A LOAD REG                              FC51601    26
           566  21603                             AX6    3                                                       FC51601    27
                     5160000631 +                 SA6    LLAB        T2 = GRN(LOAD)                              FC51601    28
                                                                                                                 REG      1363
           567  5120000626 +             LLA30    SA2    BIAS                                                    REG      1364
                          5130000633 +            SA3    BIASF                                                   FC50920    23
           570  0303000600 +                      ZR     X3,LLA40    IF ABS(BIAS) LT 2**17                       REG      1368
                          10655                   BX6    X5                                                      REG      1369
           571  5160000632 +                      SA6    LLAC                                                    REG      1370
                          43001                   MX0    1                                                       REG      1371
                               20015              LX0    1+P2.SHRTP  FAKE                                        REG      1372
           572  20224                             LX2    P2.BIASP                                                REG      1373
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    30
                                                                      LLA 
  
                     12502                        BX5    X0+X2                                                   REG      1374
                          0100000000 X            CALL   ESC         EXPAND SHORT CONSTANT                       REG      1375
           573  5150000632 +                      SA5    LLAC                                                    REG      1376
                          7100051000              SX0    SA=BK                                                   REG      1377
           574  20055                             LX0    PB.INSTP                                                REG      1378
                     20314                        LX3    PB.BIASP                                                REG      1379
                          20136                   LX1    PB.TAGP                                                 REG      1380
                               12603              BX6    X0+X3                                                   REG      1381
           575  5130000631 +                      SA3    LLAB                                                    REG      1382
                          12761                   BX7    X6+X1                                                   REG      1383
                               20363              LX3    PB.IP                                                   REG      1384
           576  12773                             BX7    X7+X3                                                   REG      1385
                     6120000611 +                 WCODE  X7,LLA90    SA_T2 CON.+K                                REG      1386
                                                                                                                 REG      1387
           600  43052                    LLA40    MX0    -PB.BIASL                                               FC51601    29
                     15220                        BX2    -X0*X2                                                  REG      1389
                          20214                   LX2    PB.BIASP                                                REG      1390
           601  7100071000                        SX0    SX=BK                                                   REG      1391
                          5130000631 +            SA3    LLAB                                                    FC51601    30
           602  20055                             LX0    PB.INSTP                                                REG      1393
                     20363                        LX3    PB.IP                                                   REG      1394
                          12002                   BX0    X0+X2                                                   REG      1395
                               12703              BX7    X0+X3                                                   REG      1396
           603  6120000611 +                      WCODE  X7,LLA90    SX_T2 BIAS                                  REG      1397
                                                                                                                 REG      1398
                                        *         NON-INDEXED (SCALAR OR CON ARRAY ELEMENT)                      REG      1399
                                                                                                                 REG      1400
           604  5110000626 +             LLA50    SA1    BIAS                                                    REG      1401
                          0311000563 +            NZ     X1,LLA15    IF BIAS                                     REG      1402
           605  5110000627 +                      SA1    SETREG                                                  REG      1403
                          5120000513 +            SA2    FPREG                                                   REG      1404
           606  20163                             LX1    PB.IP                                                   REG      1405
                     20260                        LX2    PB.JP                                                   REG      1406
                          7100010000              SX0    XMT                                                     REG      1407
           607  12612                             BX6    X1+X2                                                   REG      1408
                     20055                        LX0    PB.INSTP                                                REG      1409
                          12706                   BX7    X0+X6                                                   REG      1410
           610  6120000616 +                      WCODE  X7,LLA100   BX_SETREG FPREG                             REG      1411
                                                                                                                 REG      1412
           611  5110000627 +             LLA90    SA1    SETREG                                                  REG      1413
                          5120000630 +            SA2    LLAA                                                    REG      1414
           612  5130000631 +                      SA3    LLAB                                                    REG      1415
                          7100036000              SX0    IA                                                      REG      1416
           613  20055                             LX0    PB.INSTP                                                REG      1417
                     20163                        LX1    PB.IP                                                   REG      1418
                          12001                   BX0    X0+X1                                                   REG      1419
                               20260              LX2    PB.JP                                                   REG      1420
           614  20355                             LX3    PB.KP                                                   REG      1421
                     12002                        BX0    X0+X2                                                   REG      1422
                          12703                   BX7    X0+X3                                                   REG      1423
           615  6120000616 +                      WCODE  X7          IX_SETREG T1+T2                             REG      1424
                                                                                                                 REG      1425
           616  5110000513 +             LLA100   SA1    FPREG                                                   REG      1426
                          63710                   SB7    X1                                                      REG      1427
           617  0100001015 +                      RJ     RUL         UNLOCK FPREG                                REG      1428
           620  5110001311 +                      SA1    AFREG                                                   REG      1429
                          0301000623 +            ZR     X1,LLA110   NO ADDRESS FUNCTION                         REG      1430
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    31
                                                                      LLA 
  
           621  43071                             MX0    -3                                                      REG      1431
                     15110                        BX1    -X0*X1                                                  REG      1432
                          63710                   SB7    X1                                                      REG      1433
           622  0100001015 +                      RJ     RUL         UNLOCK AFREG                                REG      1434
                                                                                                                 REG      1435
           623  5120000627 +             LLA110   SA2    SETREG                                                  REG      1436
                          63720                   SB7    X2                                                      REG      1437
           624  0100001015 +                      RJ     RUL         UNLOCK SETREG                               REG      1438
           625  0400000515 +                      EQ     EXIT.                                                   REG      1439
                                                                                                                 REG      1440
           626                     1     BIAS     BSS    1                                                       REG      1441
           627                     1     SETREG   BSS    1                                                       REG      1442
           630                     1     LLAA     BSS    1                                                       REG      1443
           631                     1     LLAB     BSS    1                                                       REG      1444
           632                     1     LLAC     BSS    1                                                       REG      1445
           633                     1     BIASF    BSS    1                                                       FC50920    29
  
  
  
  
                                        **        LLB - LOAD LCM BASE ADDRESS.                                   REG      1447
                                        *         ENTRY  (X5) = TAG                                              REG      1448
                                        *                                                                        REG      1449
                                        *         EXIT   (X5) PRESERVED                                          REG      1450
                                        *                X6 = 00R USED FOR LOAD                                  REG      1451
                                                                                                                 REG      1452
           634  0400400634 +             LLB      SUBR                                                           REG      1453
           635  6130000011 +                      SB3    RG=LOAD                                                 REG      1454
                          0100000355 +            RJ     GNR                                                     REG      1455
                                        *                                                                        FC51555     6
                                        *         CHECK IF REGISTER JUST SELECTED INTERFERS WITH A UEM READ      FC51555     7
                                        *         IF SO TRANSFER UEM RESULT TO X6 ONLY IF X6 AND X7 FREE.        FC51555     8
                                        *                                                                        FC51555     9
           636  5110000712 +                      SA1    LINS        LAST UEM INSTRUCTION                        FC51555    10
                          0301000676 +            ZR     X1,LLB9     IF NO UEM INST                              FC51555    11
           637  5120001256 +                      SA2    REGE                                                    FC51555    12
                          0302000676 +            ZR     X2,LLB9     IF REGFILE ENTRY FREE                       FC51555    13
           640  7120001400                        SX2    DRL                                                     FC51555    14
                          43011                   MX0    PB.GHL+PB.IL                                            FC51555    15
                               11301              BX3    X0*X1                                                   FC51555    16
           641  20255                             LX2    PB.INSTP                                                FC51555    17
                     13223                        BX2    X2-X3                                                   FC51555    18
                          0312000676 +            NZ     X2,LLB9     IF LAST INST NOT 014, READ UEM              FC51555    19
           642  20117                             LX1    PB.INSTL                                                FC51555    20
                     43003                        MX0    PB.JL                                                   FC51555    21
                          20006                   LX0    PB.JL+PB.KL                                             FC51555    22
                               11201              BX2    X0*X1                                                   FC51555    23
           643  13326                             BX3    X2-X6                                                   FC51555    24
                     0313000676 +                 NZ     X3,LLB9     IF LOAD REG DOES NOT CONFLICT WITH UEM READ FC51555    25
           644  5110000026 C                      SA1    REGFILE+REG.X+6                                         FC51555    26
                          0311000676 +            NZ     X1,LLB9     IF X6 REG NOT AVAILABLE                     FC51555    27
           645  5031000001                        SA3    A1+1                                                    FC51555    28
                          0313000676 +            NZ     X3,LLB9     IF X7 REG NOT AVAILABLE                     FC51555    29
           646  76720                             SX7    B2                                                      FC51555    30
                     5170000705 +                 SA7    LLSV        SAVE B2                                     FC51555    31
           647  5067000001                        SA6    A7+1        SAVE X6                                     FC51555    32
                          22705                   LX7    X5                                                      FC51555    33
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    32
                                                                      LLB 
  
           650  5076000001                        SA7    A6+1        SAVE X5                                     FC51555    34
                          22702                   LX7    X2                                                      FC51555    35
           651  5170000710 +                      SA7    SVX2        REG BEING WIPED OUT                         FC51555    36
                          5150001256 +            SA5    REGE        REGFILE ENTRY OF REG WIPED OUT              FC51555    37
           652  43073                             MX0    -1                                                      FC51555    38
                     10355                        BX3    X5                                                      FC51555    39
                          21320                   AX3    RG.TYPP                                                 FC51555    40
                               15730              BX7    -X0*X3                                                  FC51555    41
           653  63270                             SB2    X7                                                      FC51555    42
                     5170000711 +                 SA7    SVB2        UPPER/LOWER FLAG                            FC51555    43
           654  0100000430 +                      RJ     GST         GET STATUS FOR STS CALL                     FC51555    44
           655  6120000026                        SB2    R.X6                                                    FC51555    45
                          5130000711 +            SA3    SVB2                                                    FC51555    46
           656  63330                             SB3    X3          UPPER/LOWER FLAG                            FC51555    47
                     0100001257 +                 RJ     STS         SET STATUS                                  FC51555    48
           657  6170000006                        SB7    R.X6-REG.X                                              FC51555    49
                          0100001010 +            RJ     RLL         LOCK X6                                     FC51555    50
           660  5110000000 X                      SA1    INS.REG     I REG FOR NEXT INST                         FC51555    51
                          7100000777              SX0    MAX.USEC                                                FC51555    52
           661  11701                             BX7    X0*X1                                                   FC51555    53
                     5120000710 +                 SA2    SVX2        REG WIPED OUT                               FC51555    54
                               21203              AX2    PB.KL                                                   FC51555    55
           662  13727                             BX7    X2-X7                                                   FC51555    56
                     0317000673 +                 NZ     X7,LLB8     IF I REG OF NEXT AND REG WIPED OUT NOT SAME FC51555    57
           663  7170000006                        SX7    R.X6-REG.X                                              FC51555    58
                          5170000000 X            SA7    INS.REG     UPDATE TO NEW REG                           FC51555    59
           664  5110001024 +                      SA1    REGLK                                                   FC51555    60
                          5031000001              SA3    A1+1                                                    FC51555    61
           665  13013                             BX0    X1-X3                                                   FC51555    62
                     0310000673 +                 NZ     X0,LLB8     IF NO LOCK                                  FC51555    63
                               13012              BX0    X1-X2                                                   FC51555    64
           666  0310000673 +                      NZ     X0,LLB8     IF REG NOT JUST WIPED OUT                   FC51555    65
                          5170001024 +            SA7    REGLK                                                   FC51555    66
           667  5077000001                        SA7    A7+1        UPDATE REGLK                                FC51555    67
                          5120000710 +            SA2    SVX2        RESTORE X2 FOR WCODE                        FC51555    68
           670  7110000006                        SX1    R.X6-REG.X                                              FC51555    69
                          7100010000              SX0    XMT                                                     FC51555    70
           671  20106                             LX1    PB.JL+PB.KL                                             FC51555    71
                     12001                        BX0    X0+X1                                                   FC51555    72
                          12702                   BX7    X0+X2                                                   FC51555    73
                               20755              LX7    PB.INSTP                                                FC51555    74
           672  6120000673 +                      WCODE  X7,LLB8                                                 FC51555    75
                                                                                                                 FC51555    76
           673  5110000705 +             LLB8     SA1    LLSV                                                    FC51555    77
                          63210                   SB2    X1          RESTORE B2                                  FC51555    78
           674  5021000001                        SA2    A1+1                                                    FC51555    79
                          22602                   LX6    X2          RESTORE X6                                  FC51555    80
           675  5032000001                        SA3    A2+1                                                    FC51555    81
                          10533                   BX5    X3          RESTORE X5                                  FC51555    82
                                                                                                                 FC51555    83
           676  20603                    LLB9     LX6    3                                                       FC51555    84
                     43700                        MX7    0                                                       FC51555    85
                          5170000712 +            SA7    LINS                                                    FC51555    86
           677  5160000514 +                      SA6    LFPA                                                    REG      1457
                          10055                   BX0    X5                                                      REG      1458
                               20051              HX0    P2.FP                                                   REG      1459
           700  0320000703 +                      PL     X0,LLB20    IF NOT FORMAL                               REG      1460
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    33
                                                                      LLB 
  
                          0100000741 +            RJ     LPA         LOAD FP BASE ADDRESS                        REG      1461
                                                                                                                 REG      1462
           701  5130000514 +             LLB10    SA3    LFPA                                                    REG      1463
                          21306                   AX3    6                                                       REG      1464
                               10633              BX6    X3                                                      REG      1465
           702  0400000634 +                      EQ     EXIT.                                                   REG      1466
                                                                                                                 REG      1467
           703  0100000224 +             LLB20    RJ     CLP         LOAD COMMON POINTER                         REG      1468
           704  0400000701 +                      EQ     LLB10                                                   REG      1469
                                                                                                                 FC51555    87
           705                     3     LLSV     BSS    3           SAVE AREA                                   FC51555    88
           710                     1     SVX2     BSS    1                                                       FC51555    89
           711                     1     SVB2     BSS    1                                                       FC51555    90
           712  00000000000000000000     LINS     CON    0                                                       FC51555    91
  
  
  
  
                                        **        LLV - LOAD LCM VALUE.                                          REG      1471
                                                                                                                 REG      1472
           713  0400400713 +             LLV      SUBR                                                           REG      1473
           714  5110001312 +                      SA1    ADDR                                                    REG      1474
                          5120000000 X            SA2    T.SYM                                                   REG      1475
           715  0311000713 +                      NZ     X1,EXIT.    IF ADDRESS REF.                             REG      1476
                                         #MD      IFEQ   .DAL,1                                                  REG      1477
                          43054                   MX0    -P2.TAGL                                                REG      1478
                               10155              BX1    X5                                                      REG      1479
           716  63721                             =B7    X2+WB.W                                                 REG      1480
                     20120                        LX1    -P2.TAGP                                                REG      1481
                          15610                   BX6    -X0*X1                                                  REG      1482
                               22116              LX1    B1,X6                                                   REG      1483
           717  36361                             IX3    X6+X1                                                   REG      1484
                     5160000740 +                 SA6    LLVTAG                                                  REG      1485
                               53237              SA2    B7+X3                                                   REG      1486
           720  43072                             MX0    -WB.LEVNL                                               REG      1487
                     10722                        BX7    X2                                                      REG      1488
                          20217                   LX2    -WB.LEVNP                                               REG      1489
                               15620              BX6    -X0*X2                                                  REG      1490
           721  5120001310 +                      SA2    ALREG                                                   REG      1491
                          43071                   MX0    -3                                                      REG      1492
           722  5110000627 +                      SA1    SETREG                                                  REG      1493
                          15220                   BX2    -X0*X2                                                  REG      1494
           723  5130001313 +                      SA3    STORE                                                   REG      1495
                          0306000730 +            ZR     X6,LLV20    IF LEVEL 0 REF.                             REG      1496
           724  20306                             LX3    PB.IP-PB.INSTP                                          REG      1497
                     7233001400                   SX3    DRL+X3                                                  REG      1498
                               20260              LX2    PB.JP                                                   REG      1499
           725  20355                             LX3    PB.INSTP                                                REG      1500
                     20155                        LX1    PB.KP                                                   REG      1501
                          12032                   BX0    X3+X2                                                   REG      1502
                               12710              BX7    X1+X0                                                   REG      1503
           726  5170000712 +                      SA7    LINS        LAST UEM INSTRUCTION                        FC51555    92
                          6120000713 +            WCODE  X7,EXIT.                                                REG      1504
                                                                                                                 REG      1505
           730  7233000031               LLV20    SX3    I.LD0+X3                                                REG      1506
                          20203                   LX2    PB.H2P+3                                                REG      1507
                                                  LX1    PB.H2P                                                  REG      1508
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    34
                                                                      LLV 
  
                               20360              LX3    PB.GHIJP                                                REG      1509
           731  43063                             MX0    -WB.FPOL                                                REG      1510
                     20733                        LX7    -WB.FPOP                                                REG      1511
                          15070                   BX0    -X0*X7                                                  REG      1512
                               12332              BX3    X3+X2                                                   REG      1513
           732  12713                             BX7    X1+X3                                                   REG      1514
                     5110000740 +                 SA1    LLVTAG                                                  REG      1515
                               20136              LX1    PB.TAGP                                                 REG      1516
           733  12771                             BX7    X7+X1                                                   REG      1517
                     5110000000 X                 SA1    =XT.FPI                                                 REG      1518
           734  6271777776                        SB7    X1-1                                                    REG      1519
                          53207                   SA2    B7+X0                                                   REG      1520
                               76310              =X3    1                                                       REG      1521
           735  20322                             LX3    FP.SUB0P                                                REG      1522
                     36623                        IX6    X2+X3                                                   REG      1523
                          5160000000 X            SA6    =XENT.SB0   FLAG LEVEL0 REF ISSUED                      REG      1524
           736  54620                             SA6    A2          INCREMENT FP.SUB0                           REG      1525
                     6120000713 +                 WCODE  X7,EXIT.                                                REG      1526
                                                                                                                 REG      1527
           740                     1     LLVTAG   BSS    1                                                       REG      1528
                                         #MD      ELSE                                                           REG      1529
                                                  EQ     "BLOWUP"                                                REG      1530
                                         #MD      ENDIF                                                          REG      1531
  
  
  
  
                                        **        LPA - LOAD FORMAL PARAMETER BASE ADDRESS.                      REG      1533
                                                                                                                 REG      1534
           741  0400400741 +             LPA      SUBR                                                           REG      1535
           742  20520                             LX5    -P2.TAGP                                                REG      1536
                     43054                        MX0    -P2.TAGL                                                REG      1537
                          15150                   BX1    -X0*X5                                                  REG      1538
                               20554              LX5    P2.TAGP                                                 REG      1539
           743  0100000371 +                      RJ     GPN         GET PARAMETER NUMBER                        REG      1540
           744  7271777776                        SX7    X1-1                                                    REG      1541
                          7206050000              SX0    X6+SA=AK                                                REG      1542
           745  0317000746 +                      NZ     X7,LPA10    IF NOT FIST FP                              REG      1543
                          7206054000              SX0    X6+SA=AB                                                REG      1544
                                                                                                                 REG      1545
           746  20714                    LPA10    LX7    PB.BIASP                                                REG      1546
                     20055                        LX0    PB.INSTP                                                REG      1547
                          36707                   IX7    X0+X7                                                   REG      1548
           747  6120000750 +                      WCODE  X7                                                      REG      1549
           750  0400000741 +                      EQ     EXIT.                                                   REG      1550
  
  
  
  
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    35
                                                                      LSC 
  
                                        **        LSC - LOAD SHORT CONSTANT.                                     REG      1553
                                        *                                                                        REG      1554
                                        *         ENTRY  (B3) = RG=XXXX - SCAN TYPE FOR REGISTER LOAD.           REG      1555
                                        *                (B4) = PARSED FILE ADDRESS FOR CURRENT TURPLE.          REG      1556
                                        *                (X1) = T.OUS FORM OF TAG TO BE LOADED.                  REG      1557
                                        *                (X5) = I. L. FORM OF TAG TO BE LOADED.                  REG      1558
                                        *                                                                        REG      1559
                                        *         EXIT   (B2) = REGISTER - (0TR)                                 REG      1560
                                        *                (X6) = REGISTER (0R0)                                   REG      1561
                                        *                                                                        REG      1562
                                        *         USES    ALL REGISTERS EXCEPT A0,A4,  X4,X5, AND  B4            REG      1563
                                        *                                                                        REG      1564
                                        *         CALLS  ASR,GNR,WCODE                                           REG      1565
                                                                                                                 REG      1566
           751  0400400751 +             LSC      SUBR   =           ENTRY/EXIT...                               REG      1567
           752  43766                             MX7    -OP.CHINL   MASK FOR OPERATOR TYPE                      REG      1568
                     56240                        =A2    B4+OR.OPR                                               REG      1569
                          21226                   AX2    OP.CHINP    POSITION OPERATOR TYPE                      REG      1570
                               15227              BX2    -X7*X2      EXTRACT OPERATOR TYPE                       REG      1571
           753  10611                             BX6    X1                                                      REG      1572
                     76730                        SX7    B3          SCAN TYPE FOR SFR                           REG      1573
                          5130000000 X            SA3    RREG        GET HARD REG CELL                           REG      1574
           754  5160001000 +                      SA6    LSCA        (LSCA) = STATUS WORD OF SHORT CON           REG      1575
                          54761                   =A7    A6+1        (LSCA+1) = REGISTER SCAN TYPE               REG      1576
           755  0323000760 +                      PL     X3,LSC10    IF REGISTER ALREADY ASSIGNED                REG      1577
                          6272777736              SB7    X2-O.=                                                  REG      1578
           756  0570000760 +                      NZ     B7,LSC10    IF NOT PROCESSING STORE TURPLE              REG      1579
                          0100000037 +            RJ     ASR         ASSIGN STORAGE REGISTER                     REG      1580
           757  0400000761 +                      EQ     LSC20                                                   REG      1581
                                                                                                                 REG      1582
           760  0100000355 +             LSC10    RJ     GNR         GET REGISTER                                REG      1583
                                                                                                                 REG      1584
           761  10766                    LSC20    BX7    X6          (0R0)                                       REG      1585
                     5130001001 +                 SA3    LSCA+1      GET SCAN TYPE                               REG      1586
                               20703              LX7    3           (X7) = (R00)                                REG      1587
           762  55231                             =A2    A3-1        GET STATUS WORD OF SHORT CON                REG      1588
                     6170000000 +                 SB7    RG=BADR                                                 REG      1589
                               67707              SB7    -B7                                                     REG      1590
           763  63737                             SB7    X3+B7       (B7) = (SCAN TYPE)-RG=BADR                  REG      1591
                     20220                        HX2    P2.BIAS     POSITION SIGN BIT OF CONSTANT VALUE         REG      1592
                          7217071000              SX1    X7+SX=BK    OPCODE+I00                                  REG      1593
           764  0570000765 +                      NZ     B7,LSC21    IF NOT *B* REGISTER LOAD                    REG      1594
                          7217061000              SX1    X7+SB=BK    OPCODE+I00                                  REG      1595
           765  21244                    LSC21    AX2    -P2.BIASL   SIGN EXTENDED CONSTANT, (X2) = CONSTANT.    REG      1596
                     0570000770 +                 NZ     B7,LSC22    IF NOT *B* REGISTER LOAD                    REG      1597
           766  0312000773 +                      NZ     X2,LSC30    IF NOT CONSTANT ZERO                        REG      1598
                          7217066000              SX1    X7+SB=BB    OPCODE+I00                                  REG      1599
           767  0400000773 +                      EQ     LSC30                                                   REG      1600
                                                                                                                 REG      1601
                                        *         IF *0* COMPILE: BXI XI-XI (IF +0), BXI -XI-XI (IF -0)          REG      1602
                                                                                                                 REG      1603
           770  0312000773 +             LSC22    NZ     X2,LSC30    IF CONSTANT NOT ZERO                        REG      1604
                          7217013000              SX1    X7+CLR      OP-CODE + I00                               REG      1605
           771  0322000772 +                      PL     X2,LSC24    IF CONSTANT = POSITIVE ZERO                 REG      1606
                          7217017000              SX1    X7+EQV      OP-CODE + I00                               REG      1607
           772  21706                    LSC24    AX7    6           (X7) = 00I                                  REG      1608
                     36717                        IX7    X1+X7       OP-CODE + I0I                               REG      1609
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    36
                                                                      LSC 
  
                          36176                   IX1    X7+X6       OP-CODE + I0I+0I0                           REG      1610
                               43200              MX2    0           MAKE SURE BIAS IS ZERO                      REG      1611
                                                                                                                 REG      1612
                                        *         (X1) = OP-CODE + REGISTER (RIGHT JUSTIFIED)                    REG      1613
                                        *         (X2) = CONSTANT.                                               REG      1614
                                        *         (B2) = REGISTER (0TR)                                          REG      1615
                                                                                                                 REG      1616
           773  43052                    LSC30    MX0    -PB.BIASL   MASK FOR SHORT CONSTANT                     REG      1617
                     20155                        LX1    PB.INSTP    POSITION OPCODE                             REG      1618
                          15220                   BX2    -X0*X2      MASK OFF SIGN BITS                          REG      1619
                               66520              SB5    B2          SAVE (0TR) ACROSS WCODE                     REG      1620
           774  20214                             LX2    PB.BIASP    POSITION CONSTANT IN PB. BIAS FIELD         REG      1621
                     36712                        IX7    X1+X2       ADD CONSTANT INTO INSTRUCTION               REG      1622
                          6120000776 +            WCODE  X7                                                      REG      1623
           776  76650                             SX6    B5          (0TR)                                       REG      1624
                     43071                        MX0    -3                                                      REG      1625
                          66250                   SB2    B5          (B2) = (0TR)                                REG      1626
                               15660              BX6    -X0*X6      (00R)                                       REG      1627
           777  20603                             LX6    3           (X6) = (0R0)                                REG      1628
                     0400000751 +                 EQ     EXIT.                                                   REG      1629
                                                                                                                 REG      1630
          1000  00000000000000000000     LSCA     DATA   0,0                                                     REG      1631
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    37
                                                                      LTG 
  
                                        **        LTG -  LOAD TAG                                                REG      1633
                                        *                                                                        REG      1634
                                        *         ENTRY  (B2) = 0 (LOAD UPPER HALF)                              REG      1635
                                        *                     = 1 (LOAD LOWER HALF)                              REG      1636
                                        *                (B3) = REGISTER GROUP FOR LOAD (RG=XXX).                REG      1637
                                        *                (X1) = STATUS WORD OF TAG TO BE LOADED.                 REG      1638
                                        *                (X5) = TAG TO BE LOADED.                                REG      1639
                                        *                                                                        REG      1640
                                        *         EXIT   (B2) = REGISTER (0TR)                                   REG      1641
                                        *                (B6) = STATUS WORD FOR TAG.                             REG      1642
                                        *                (X6) = REGISTER (0R0)                                   REG      1643
                                        *                                                                        REG      1644
                                        *         USES   ALL REGISTERS EXCEPT A0,A4 B4.                          REG      1645
                                        *                                                                        REG      1646
                                        *         CALLS  GNR,CLI                                                 REG      1647
                                                                                                                 REG      1648
                                                                                                                 REG      1649
          1002  0400401002 +             LTG      SUBR   =           ENTRY/EXIT...                               REG      1650
          1003  10611                             BX6    X1                                                      REG      1651
                     76320                        SX3    B2          (X3) = TYPE (UPPER/LOWER)                   REG      1652
                          20324                   LX3    P2.BIASP    POSITION TYPE TO OFFSET BIAS                REG      1653
                               36663              IX6    X6+X3       ADD (TYPLOD) INTO BIAS                      REG      1654
          1004  5160001007 +                      SA6    LTGA        SAVE TAG TO BE USED IN INSTRUCTION          REG      1655
                          0100000355 +            RJ     GNR         GET REGISTER                                REG      1656
          1005  5110001007 +                      SA1    LTGA                                                    REG      1657
                          0100000143 +            RJ     CLI         COMPILE LOAD INSTRUCTION                    REG      1658
          1006  0400001002 +                      EQ     EXIT.                                                   REG      1659
                                                                                                                 REG      1660
                                                                                                                 REG      1661
          1007  00000000000000000000     LTGA     DATA   0                                                       REG      1662
                                                                                                                 REG      1663
  
  
  
  
                                        **        RLL -  LOCK REGISTER *X* AND *A* REGISTER.                     REG      1665
                                        *                                                                        REG      1666
                                        *         ENTRY  (B7) = REGISTER TO LOCK - 00R.                          REG      1667
                                        *                                                                        REG      1668
                                        *         EXIT   REGISTER LOCKED.                                        REG      1669
                                        *                (X7) = LOCK REGISTER - 00R.                             REG      1670
                                        *                                                                        REG      1671
                                        *         USES   A1,A2,A7  X0                                            REG      1672
                                        *         CANNOT DESTROY *X6*                                            FC5A258    54
                                                                                                                 REG      1674
                                                                                                                 REG      1675
          1010  0400401010 +             RLL      SUBR   =           ENTRY/EXIT...                               REG      1676
          1011  7100000400                        =X0    RLOCK                                                   REG      1677
                          5117000020 C            SA1    B7+REGFILE+REG.X                                        REG      1678
          1012  12710                             BX7    X1+X0                                                   REG      1679
                     5127000010 C                 SA2    B7+REGFILE+REG.A                                        REG      1680
                               54710              SA7    A1          LOCK ON *X*                                 REG      1681
          1013  12720                             BX7    X2+X0                                                   REG      1682
                     54720                        SA7    A2          LOCK ON *A*                                 REG      1683
                          76770                   SX7    B7          REGISTER = 00R.                             REG      1684
          1014  0400001010 +                      EQ     EXIT.                                                   REG      1685
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    38
                                                                      RUL 
  
                                        **        RUL -  UNLOCK REGISTER *X* AND *A* REGISTER.                   REG      1687
                                        *                                                                        REG      1688
                                        *         ENTRY  (B7) = REGISTER TO UNLOCK - 00R.                        REG      1689
                                        *                                                                        REG      1690
                                        *         EXIT   REGISTER UNLOCKED.                                      REG      1691
                                        *                                                                        REG      1692
                                        *         USES   A1,A2,A7  X0                                            REG      1693
                                        *         CANNOT DESTROY *X6*                                            FC5A258    55
                                                                                                                 REG      1695
                                                                                                                 REG      1696
          1015  0400401015 +             RUL      SUBR   =           ENTRY/EXIT...                               REG      1697
          1016  7100000400                        =X0    RLOCK                                                   REG      1698
                          0770001015 +            LT     B7,EXIT.    IF NO REGISTER TO UNLOCK                    REG      1699
          1017  5117000020 C                      SA1    B7+REGFILE+REG.X                                        REG      1700
                                                                                                                 REG      1701
                                        *         DO NOT TOUCH TEMP *X* REGISTER                                 REG      1702
                                                                                                                 REG      1703
                          43263                   MX2    -RG.USEL                                                REG      1704
                               15712              BX7    -X2*X1      USE COUNT                                   REG      1705
          1020  7120000777                        =X2    MAX.USEC                                                REG      1706
                          13272                   BX2    X7-X2                                                   REG      1707
          1021  0302001022 +                      ZR     X2,RUL1     IF TEMP REGISTER                            REG      1708
                          15710                   BX7    -X0*X1                                                  REG      1709
                               54710              SA7    A1          CLEAR LOCK ON *X*                           REG      1710
          1022  5127000010 C             RUL1     SA2    B7+REGFILE+REG.A                                        REG      1711
                          15720                   BX7    -X0*X2                                                  REG      1712
                               54720              SA7    A2          CLEAR LOCK ON *A*                           REG      1713
          1023  0400001015 +                      EQ     EXIT.                                                   REG      1714
                                                                                                                 REG      1715
          1024                     3     REGLK    BSSENT 3           LOCK REGISTER                               REG      1716
                                1025 +   CLOADK   EQU    REGLK+1     *K* PORTION                                 REG      1717
                                         CLOADJ   EQUENT REGLK+2     *J* PORTION                                 REG      1718
          1027                     1     STRGLK   BSSENT 1                                                       REG      1719
  
  
  
  
                                        **        RUT -  RESET USAGE TABLE FOR REGISTER BEING CLOBBERED.         REG      1721
                                        *                                                                        REG      1722
                                        *         ENTRY  (B2) = 0TR OF REGISTER BEING CLOBBERED.                 REG      1723
                                        *                                                                        REG      1724
                                        *         EXIT   (B2) = PRESERVED.                                       REG      1725
                                        *                (B3) = 00R (R FROM *B2*)                                REG      1726
                                        *                RGFILE, USEFILE CLEARED FOR (B2).                       REG      1727
                                        *                                                                        REG      1728
                                        *         USES   A1,A2,A3,A6,A7  X0  B3,B5,B7                            REG      1729
                                        *                DESTORYS (A5) BUT NOT (X5)                              REG      1730
                                        *                                                                        REG      1731
                                        *         (SCR2) FOR SAVING *X5*                                         REG      1732
                                        *                                                                        REG      1733
                                        *         CALLS  GST,SFR,DRITE,WCODE                                     REG      1734
                                                                                                                 REG      1735
                                                                                                                 REG      1736
          1030  5150001115 +             RUT.X    SA5    RUTA        RESTORE (X5)                                REG      1737
                          76650                   SX6    B5                                                      REG      1738
                               13777              BX7    0                                                       REG      1739
          1031  66250                             SB2    B5          RESTORE*B2*                                 REG      1740
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    39
                                                                      RUT 
  
                     43071                        MX0    -3                                                      REG      1741
                                                                                                                 REG      1742
                                        **        CLEAR REGFILE ENTRY.                                           REG      1743
                                                                                                                 REG      1744
                          6155777757              SB5    B5-REG.X                                                REG      1745
          1032  5112000000 C                      SA1    B2+REGFILE                                              REG      1746
                          0750001035 +            MI     B5,RUT35    IF NOT X REG CLEAR ONLY ONE ENTRY           REG      1747
          1033  5125000010 C                      SA2    B5+REGFILE+REG.A  FETCH CORRESPONDING A-REG             REG      1748
                          13221                   BX2    X2-X1                                                   REG      1749
                               21211              AX2    RG.USEL                                                 REG      1750
          1034  0312001035 +                      NZ     X2,RUT35    IF TAGS NOT EQUAL                           REG      1751
                          5072000000              SA7    A2+         CLOBBER A REG                               REG      1752
          1035  15660                    RUT35    BX6    -X0*X6                                                  REG      1753
                     54710                        SA7    A1          (B2+REGFILE) IS ALWAYS CLOBBERED.           REG      1754
                          63360                   SB3    X6          =00R                                        REG      1755
                               20603              LX6    3           =0R0                                        REG      1756
                                                                                                                 REG      1757
          1036  0400401036 +             RUT      SUBR   =           ENTRY/EXIT...                               REG      1758
          1037  10755                             BX7    X5                                                      REG      1759
                     66520                        SB5    B2                                                      REG      1760
                          5170001115 +            SA7    RUTA                                                    REG      1761
          1040  7160001030 +                      SX6    RUT.X                                                   REG      1762
                          5152000000 C            SA5    B2+REGFILE                                              REG      1763
          1041  5160001120 +                      SA6    RUT.ADR                                                 REG      1764
          1042  10155                    RUT5     BX1    X5                                                      REG      1765
                     43073                        MX0    -1                                                      REG      1766
                          66700                   =B7    0           STATUS OF TAG ONLY                          REG      1767
                               21120              AX1    RG.TYPP                                                 REG      1768
          1043  15710                             BX7    -X0*X1                                                  REG      1769
                     63270                        SB2    X7          TAG TYPE (0 = UPPER HALF, 1 = LOWER HALF)   REG      1770
                          5170001123 +            SA7    RUT.TYP                                                 REG      1771
          1044  0100000430 +                      RJ     GST         GET STATUS OF TAG                           REG      1772
          1045  5120001120 +                      SA2    RUT.ADR                                                 REG      1773
                          63720                   SB7    X2                                                      REG      1774
          1046  0520001047 +                      NZ     B2,RUT6     IF STATUS NOT SET CLEAR ENTRY               REG      1775
                          0277000000              JP     B7                                                      REG      1776
                                                                                                                 REG      1777
                                                                                                                 REG      1778
                                        *         TAG IS ACTIVE, IF IT IS A SIMPLE TAG INDICATE IN REGISTER      REG      1779
                                        *         POINTER WORD THAT TAG IS NO LONGER IN A REGISTER - PUT TAG     REG      1780
                                        *         BACK IN TABLE FROM REGISTER FILE AND CLEAR REGISTER ENTRY      REG      1781
                                        *         FROM *0TR* ON ENTRY.                                           REG      1782
                                                                                                                 REG      1783
          1047  5120001123 +             RUT6     SA2    RUT.TYP                                                 REG      1784
                          43073                   MX0    -1                                                      REG      1785
                               10755              BX7    X5                                                      REG      1786
          1050  6232000016                        SB3    X2+ST.STATP                                             REG      1787
                          22030                   LX0    X0,B3                                                   REG      1788
                               11601              BX6    X0*X1       INDICATE TAG NOT IN REGISTER                REG      1789
          1051  54610                             SA6    A1                                                      REG      1790
                     20761                        SBIT   X7,P2.INTRP                                             REG      1791
                          0337001053 +            MI     X7,RUT20    IF INTERMEDIATE                             REG      1792
          1052  0277000000                        JP     B7                                                      REG      1793
                                                                                                                 REG      1794
                                        *         FOUND INTERMEDIATE IN REGISTER -- MUST SAVE IN TEMPORARY       REG      1795
                                        *         (B2) = 0TR                                                     REG      1796
                                        *         (X5) = TAG                                                     REG      1797
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    40
                                                                      RUT 
  
                                                                                                                 REG      1798
                                        *RUT20    SBIT   X2,P2.ADDRP/P2.INTRP                                    REG      1799
                                        *         MI     X2,RUT30                                                REG      1800
          1053                           RUT20    BSS    0                                                       REG      1801
                                                                                                                 REG      1802
                                         SNAP=H   IFNE   TEST                                                    REG      1803
                                                  SX6    3RRUT                                                   REG      1804
                                                  RJ     REGPRO                                                  REG      1805
                                         SNAP=H   ENDIF                                                          REG      1806
          1053  20771                             SBIT   X7,P2.ARRP/P2.INTRP                                     REG      1807
                     0327001055 +                 PL     X7,RUT25    IF NOT ARRAY-LOAD                           REG      1808
                                                                                                                 REG      1809
                                        **        INTERMEDIATE IS ARY-LOD -- INDICATE POST-PROCESSING REQUIRED.  REG      1810
                                                                                                                 REG      1811
          1054  0277000000                        JP     B7                                                      REG      1812
                                                                                                                 REG      1813
          1055  7105777751               RUT25    SX0    B5-R.X6                                                 REG      1814
                          10755                   BX7    X5                                                      REG      1815
                               66250              SB2    B5                                                      REG      1816
          1056  0320001111 +                      PL     X0,RUT28    IF ALREADY IN STORE REGISTER                REG      1817
                          76650                   SX6    B5                                                      REG      1818
          1057  6130000022 +                      SB3    RG=STOR                                                 REG      1819
                          5160001122 +            SA6    INT.REG     SAVE 0TR OF REGISTER BEING CLOBBERED        REG      1820
          1060  5170001121 +                      SA7    INT.TAG                                                 REG      1821
                          0100001227 +            RJ     SFR         GET STORE REGISTER                          REG      1822
          1061  5120000000 X                      SA2    RUT.REG     IJK OF PREVIOUS INSTRUCTION                 FC50950    12
                          0302001075 +            ZR     X2,RUT26A   IF IJK OF PREVIOUS INST CLEARED             FC50950    13
          1062  21206                             AX2    6                                                       FC50950    14
                     21603                        AX6    3           STORE REGISTER SELECTED                     FC50950    15
                          13026                   BX0    X2-X6                                                   FC50950    16
          1063  0310001072 +                      NZ     X0,RUT26    IF STORE REG NOT I OF PREVIOUS INST         FC50950    17
                          0317001072 +            NZ     X7,RUT26    IF NON ZERO USE COUNT                       FC50950    18
                                                                                                                 FC50950    19
          1064  7132777751               RUT25A   SX3    B2-R.X6                                                 FC50950    20
                          0313001067 +            NZ     X3,RUT25B   IF STORE REG SELECTED NOT X6                FC50950    21
          1065  6120000027                        SB2    R.X7                                                    FC50950    22
                          5152000000 C            SA5    B2+REGFILE                                              FC50950    23
          1066  0400001070 +                      EQ     RUT25C                                                  FC50950    24
                                                                                                                 FC50950    25
          1067  6120000026               RUT25B   SB2    R.X6                                                    FC50950    26
                          5152000000 C            SA5    B2+REGFILE                                              FC50950    27
                                                                                                                 FC50950    28
          1070  7170001103 +             RUT25C   SX7    RUT27                                                   FC50950    29
                          5170001120 +            SA7    RUT.ADR                                                 FC50950    30
          1071  66520                             SB5    B2                                                      FC50950    31
                     0400001042 +                 EQ     RUT5                                                    FC50950    32
                                                                                                                 FC50950    33
          1072  5130000000 X             RUT26    SA3    IJK                                                     FC50950    34
                          0313001075 +            NZ     X3,RUT26A   IF K PART OF INST NOT JUST PROCESSED        FC50950    35
          1073  5110000000 X                      SA1    INS.REG     K OF CURRENT INSTRUCTION                    FC50950    36
                          13316                   BX3    X1-X6                                                   FC50950    37
          1074  0303001064 +                      ZR     X3,RUT25A   IF STORE REG IS *K* OF CURRENT INSTRUCTION  FC50950    38
                                                                                                                 FC50950    39
          1075  66520                    RUT26A   SB5    B2                                                      FC50950    40
                     0307001103 +                 ZR     X7,RUT27    IF REGISTER AVAILABLE                       REG      1824
                               13000              DRITE  DEACTIVATE                                              REG      1825
          1077  5152000000 C                      SA5    B2+REGFILE                                              REG      1826
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    41
                                                                      RUT 
  
                          7170001103 +            SX7    RUT27                                                   REG      1827
          1100  5170001120 +                      SA7    RUT.ADR     RESET JUMP ADDRESS                          REG      1828
                          0302001042 +            ZR     X2,RUT5     IF REGISTER NOT FREED                       REG      1829
          1101  43063                             MX0    -RG.USEL                                                REG      1830
                     66520                        SB5    B2                                                      REG      1831
                          15250                   BX2    -X0*X5                                                  REG      1832
          1102  0312001042 +                      NZ     X2,RUT5     IF NOT LAST USE OF REGISTER                 REG      1833
                                                                                                                 REG      1834
                                        **        TRANSFER INTERMEDIATE TO STORE REGISTER.                       REG      1835
                                                                                                                 REG      1836
          1103  76650                    RUT27    SX6    B5          0TR *I* REGISTER                            REG      1837
                     43071                        MX0    -3                                                      REG      1838
                          5110001122 +            SA1    INT.REG     0TR *J* REGISTER                            REG      1839
          1104  15260                             BX2    -X0*X6                                                  REG      1840
                     15710                        BX7    -X0*X1                                                  REG      1841
                          20203                   LX2    3                                                       REG      1842
                               36772              IX7    X7+X2                                                   REG      1843
          1105  7277001000                        SX7    X7+XMT/1S3                                              REG      1844
                          20760                   LX7    PB.INSTP+3                                              REG      1845
          1106  6120001107 +                      WCODE  X7                                                      REG      1846
          1107  6170001030 +                      SB7    RUT.X                                                   REG      1847
                          5120001122 +            SA2    INT.REG                                                 REG      1848
          1110  66250                             SB2    B5                                                      REG      1849
                     5150001121 +                 SA5    INT.TAG                                                 REG      1850
                               63520              SB5    X2                                                      REG      1851
                                                                                                                 REG      1852
                                        **        STORE INTERMEDIATE IN TEMPORARY.                               REG      1853
                                        *         (X5) = INTERMEDIATE TAG.                                       REG      1854
                                        *         (B2) = 0TR OF STORE REGISTER.                                  REG      1855
                                                                                                                 REG      1856
          1111  76650                    RUT28    SX6    B5                                                      REG      1857
                     76770                        SX7    B7                                                      REG      1858
                          5160001116 +            SA6    RUTA+1                                                  REG      1859
          1112  5170001120 +                      SA7    RUT.ADR                                                 REG      1860
                          0100000260 +            RJ     CWI         STORE INTERMEDIATE IN TEMPORARY             REG      1861
          1113  5110001116 +                      SA1    RUTA+1                                                  REG      1862
                          5120001120 +            SA2    RUT.ADR                                                 REG      1863
          1114  63510                             SB5    X1                                                      REG      1864
                     63720                        SB7    X2                                                      REG      1865
                          0277000000              JP     B7                                                      REG      1866
                                                                                                                 REG      1867
          1115                     3     RUTA     BSS    3           RUT SCRATCH                                 REG      1868
          1120  00000000000000000000     RUT.ADR  DATA   0                                                       REG      1869
          1121  00000000000000000000     INT.TAG  DATA   0           INTERMEDIATE TAG                            REG      1870
          1122  00000000000000000000     INT.REG  DATA   0           0TR OF REGISTER INTERMEDIATE IS IN          REG      1871
          1123  00000000000000000000     RUT.TYP  DATA   0           TYPE OF TAG                                 REG      1872
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    42
                                                                      SDS 
  
                                        **        SDS -  SET DELAYED STORE IN MOTION.                            REG      1874
                                        *                                                                        REG      1875
                                        *         ENTRY  (B3) = REGISTER NUMBER FOR RIGHT MEMBER RESULTS = 0TR.  REG      1876
                                        *                       MUST INDICATE EITHER *X6* OR *X7*                REG      1877
                                        *                (X1) = TAG FOR LEFT MEMBER.                             REG      1878
                                        *                                                                        REG      1879
                                        *         NOTE --                                                        REG      1880
                                        *         IF CURRENT TAG BEING SET IS SAME AS *DRITE*, *DRITE* IS IGNORE REG      1881
                                        *                                                                        REG      1882
                                        *         EXIT   TAG FOR LEFT MEMBER SET INTO *RGFILE* *X* ASSOCIATE     REG      1883
                                        *                (DRITE) = - 0TR. FOR LEFT MEMBER IF ALREADY IN *A* REG  REG      1884
                                        *                            TAG, IF NOT IN AN *A* REGISTER.             REG      1885
                                        *                                                                        REG      1886
                                        *         USES   A1,A2,A3,A5,A6,A7  X0  B2,B3,B5,B7                      REG      1887
                                        *                (SDSA,SDSA+1)                                           REG      1888
                                        *                                                                        REG      1889
                                        *         CALLS  DRITE,GST,SST,SFR,WCODE                                 REG      1890
                                                                                                                 REG      1891
                                                                                                                 REG      1892
          1124  5120001221 +             SDS.X    SA2    SDSA                                                    REG      1893
                          43071                   MX0    -3                                                      REG      1894
                               46000              NO                                                             REG      1895
          1125  15620                             BX6    -X0*X2                                                  REG      1896
                     63220                        SB2    X2                                                      REG      1897
                          20603                   LX6    3                                                       REG      1898
                                                                                                                 REG      1899
                                                                                                                 REG      1900
          1126  0400401126 +             SDS      SUBR   =           ENTRY/EXIT...                               REG      1901
          1127  76730                             SX7    B3                                                      REG      1902
                     76020                        SX0    B2                                                      REG      1903
                          5130000000 X            SA3    DRITE                                                   REG      1904
          1130  10655                             BX6    X5                                                      REG      1905
                     20020                        LX0    RG.TYPP                                                 REG      1906
                          5170001221 +            SA7    SDSA        SAVE REGISTER                               REG      1907
          1131  12550                             BX5    X5+X0                                                   REG      1908
                     13053                        BX0    X5-X3                                                   REG      1909
                          54671                   =A6    A7+1        SAVE REGISTER                               REG      1910
                               21020              AX0    RG.TYPP                                                 REG      1911
          1132  66620                             SB6    B2                                                      REG      1912
                     0300001135 +                 ZR     X0,SDS10    IF CURRENT TAG ALREADY DELAYED- IGNORE OLD  REG      1913
          1133  0303001135 +                      ZR     X3,SDS10    IF NO *DRITE*                               REG      1914
                          13000                   DRITE  DEACTIVATE  FORCE PROCESSING OF ANY DELAYED STORE       REG      1915
                                                                                                                 REG      1916
                                        *         (X6) = TAG CURRENTLY PROCESSING.                               REG      1917
                                                                                                                 REG      1918
          1135  66260                    SDS10    SB2    B6                                                      REG      1919
                     66700                        =B7    0           STATUS OF TAG ONLY                          REG      1920
                          0100000430 +            RJ     GST         GET STATUS OF TAG                           REG      1921
          1136  43071                             MX0    -3                                                      REG      1922
                     7130000010                   =X3    REG.A                                                   REG      1923
                               11605              BX6    X0*X5                                                   REG      1924
          1137  76220                             SX2    B2                                                      REG      1925
                     0420001144 +                 ZR     B2,SDS15    IF TAG NOT IN REGISTER                      REG      1926
                               11732              BX7    X3*X2                                                   REG      1927
          1140  43373                             MX3    -1                                                      REG      1928
                     6176000016                   SB7    B6+ST.STATP                                             REG      1929
                               22373              LX3    X3,B7                                                   REG      1930
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    43
                                                                      SDS 
  
          1141  0307001143 +                      ZR     X7,SDS12    IF NOT IN *A* REGISTER                      REG      1931
                          76700                   =X7    0                                                       REG      1932
                               15220              BX2    -X0*X2      =00R (LEFT MEMBER)                          REG      1933
          1142  6122000010                        SB2    B2+REG.X-REG.A                                          REG      1934
                          36662                   IX6    X6+X2                                                   REG      1935
                                                                                                                 REG      1936
          1143  5172000000 C             SDS12    SA7    B2+REGFILE  CLEAR REGISTER FILE                         REG      1937
                          11731                   BX7    X3*X1       CLEAR STATUS OF TAG                         REG      1938
                               54710              SA7    A1                                                      REG      1939
          1144  5120001221 +             SDS15    SA2    SDSA        *X* REGISTER FOR LEFT MEMBER                REG      1940
                          5160000000 X            SA6    DRITE       SET DRITE IN MOTION                         REG      1941
          1145  63220                             SB2    X2                                                      REG      1942
                     15620                        BX6    -X0*X2                                                  REG      1943
                          43363                   MX3    -RG.USEL                                                REG      1944
                               20603              LX6    3           =0R0 (RIGHT MEMBER)                         REG      1945
          1146  5122000000 C                      SA2    B2+REGFILE                                              REG      1946
                          11031                   BX0    X3*X1       CLEAR USE COUNT                             REG      1947
                               15723              BX7    -X3*X2      USE COUNT (RIGHT MEMBER)                    REG      1948
          1147  36606                             IX6    X0+X6                                                   REG      1949
                     76060                        SX0    B6                                                      REG      1950
                          66360                   SB3    B6                                                      REG      1951
                               20024              LX0    P2.BIASP                                                REG      1952
          1150  36660                             IX6    X6+X0                                                   REG      1953
                     54661                        =A6    A6+1                                                    REG      1954
                          54761                   =A7    A6+1                                                    REG      1955
          1151  0317001155 +                      NZ     X7,SDS20    IF NOT LAST USE OF RIGHT MEMBER             REG      1956
                          6170001153 +            SB7    SDS16                                                   FC5A375     9
          1152  0400001173 +                      EQ     SDS32       POSSIBLY FORCE RELOAD OF CURRENT TAG        FC5A375    10
          1153  0100001257 +             SDS16    RJ     STS         SET TAG STATUS                              FC5A375    11
                                                                                                                 FC5A375    12
          1154  0400001124 +                      EQ     SDS.X       FINISH UP                                   REG      1958
                                                                                                                 REG      1959
          1155  10722                    SDS20    BX7    X2                                                      REG      1960
                     76010                        =X0    1                                                       REG      1961
                          54761                   =A7    A6+1                                                    REG      1962
                               37250              IX2    X5-X0       USE COUNT - 1 (LEFT MEMBER)                 REG      1963
          1156  15023                             BX0    -X3*X2                                                  REG      1964
                     5120000453 +                 SA2    GSTC        REMEMBER LOCATION OF STATUS WORD            REG      1965
                               10722              BX7    X2                                                      REG      1966
          1157  0300001124 +                      ZR     X0,SDS.X    IF LAST USE OF LEFT MEMBER                  REG      1967
                          6170001161 +            SB7    SDS22                                                   FC5A375    13
          1160  0400001173 +                      EQ     SDS32       POSSIBLY FORCE RELOAD OF CURRENT TAG        FC5A375    14
          1161  5170001222 +             SDS22    SA7    SDSA+1                                                  FC5A375    15
                                                                                                                 FC5A375    16
                          6130000014 +            SB3    RG=LODX                                                 REG      1969
          1162  0100001227 +                      RJ     SFR                                                     REG      1970
          1163  0317001124 +                      NZ     X7,SDS.X    IF X REGISTER NOT AVAILABLE                 REG      1971
                          5110001221 +            SA1    SDSA        =0TR) (RIGHT MEMBER)                        REG      1972
          1164  43071                             MX0    -3                                                      REG      1973
                     7236001000                   SX3    X6+XMT/1S3                                              REG      1974
                               15110              BX1    -X0*X1      =00R                                        REG      1975
          1165  66520                             SB5    B2                                                      REG      1976
                     36731                        IX7    X3+X1                                                   REG      1977
                          20760                   LX7    PB.INSTP+3                                              REG      1978
          1166  6120001167 +                      WCODE  X7                                                      REG      1979
          1167  5120001222 +                      SA2    SDSA+1                                                  REG      1980
                          66250                   SB2    B5                                                      REG      1981
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    44
                                                                      SDS 
  
                               63720              SB7    X2          ORDINAL IN TABLE OF STATUS WORD             REG      1982
          1170  21222                             AX2    18                                                      REG      1983
                     53220                        SA2    X2          FETCH ORIGIN OF TABLE                       REG      1984
                          53127                   SA1    X2+B7                                                   REG      1985
                               66360              SB3    B6                                                      REG      1986
          1171  0100001257 +                      RJ     STS         SET TAG STATUS                              REG      1987
          1172  0400001124 +                      EQ     SDS.X       FINISH UP                                   REG      1988
                                                                                                                 FC5A375    17
                                        *         FORCE RELOAD OF CURRENT TAG IF TAG IS A SUBSCRIPTED STORE WITH FC5A375    18
                                        *         SCALAR OFFSET AND IS NOT LAST USE OF TAG AND A SUBSCRIPTED     FC5A375    19
                                        *         STORE WITH VARIABLE SUBSCRIPTS IS FOUND BEFORE SECOND USE OF   FC5A375    20
                                        *         TAG.                                                           FC5A375    21
                                                                                                                 FC5A375    22
          1173  22006                    SDS32    LX0    X6                                                      FC5A375    23
                     10655                        BX6    X5                                                      FC5A375    24
                          5160001220 +            SA6    SDSX5       SAVE X5                                     FC5A375    25
          1174  10622                             BX6    X2                                                      FC5A375    26
                     5160001217 +                 SA6    SDSX2       SAVE X2                                     FC5A375    27
                               22600              LX6    X0                                                      FC5A375    28
          1175  5154000002                        SA5    B4+OR.2OP                                               FC5A375    29
                          22305                   LX3    X5                                                      FC5A375    30
                               20556              SBIT   X5,P2.ARRP                                              FC5A375    31
          1176  0325001215 +                      PL     X5,SDS42    IF NOT ARRAY REFERENCE                      FC5A375    32
                          43020                   MX0    P2.TAGL                                                 FC5A375    33
          1177  5055777775                        SA5    A5-OR.2OP   SET A5                                      FC5A375    34
                                                                                                                 FC5A375    35
          1200  5055000003               SDS34    SA5    A5+Z=TURP   NEXT TURPLE                                 FC5A375    36
                          0305001215 +            ZR     X5,SDS42    IF END OF T.PAR                             FC5A375    37
                                                                                                                 FC5A375    38
                                         SDS35    HX5    OP.SKEL                                                 FC5A375    39
          1201  21556                             AX5    -OP.SKELL   EXTRACT SKELTON ORDINAL                     FC5A375    40
                     14555                        BX5    -X5                                                     FC5A375    41
                          5025000002              SA2    A5+OR.2OP                                               FC5A375    42
          1202  6255000000 X                      SB5    X5+V=STR.I                                              FC5A375    43
                          0550001200 +            NZ     B5,SDS34    IF NOT STORE (V=STR.I)                      FC5A375    44
          1203  22502                             LX5    X2                                                      FC5A375    45
                     20561                        SBIT   X5,P2.INTRP                                             FC5A375    46
                          0325001211 +            PL     X5,SDS40    IF NOT INTERMEDIATE                         FC5A375    47
          1204  20571                             SBIT   X5,P2.ARRP/P2.INTRP                                     FC5A375    48
                     0325001211 +                 PL     X5,SDS40    IF NOT ARRAY (LEFT MEMBER)                  FC5A375    49
                                                                                                                 FC5A375    50
          1205  22502                    SDS38    LX5    X2                                                      FC5A375    51
                     5120000000 X                 SA2    T.PAR                                                   FC5A375    52
                               20520              HX5    P2.BIAS                                                 FC5A375    53
          1206  21544                             AX5    -P2.BIASL                                               FC5A375    54
                     63550                        SB5    X5                                                      FC5A375    55
                          63525                   SB5    X2+B5                                                   FC5A375    56
          1207  5125000001                        SA2    B5+OR.1OP   ARRAY (LEFT MEMBER)                         FC5A375    57
                          13521                   BX5    X2-X1       X1 = TAG FOR LEFT MEMBER(T.OUS)             FC5A375    58
                               11205              BX2    X0*X5                                                   FC5A375    59
          1210  0302001124 +                      ZR     X2,SDS.X    IF ARRAY WITH VARIABLE SUBSCRIPT FOUND      FC5A375    60
                          0400001200 +            EQ     SDS34       LOOP                                        FC5A375    61
                                                                                                                 FC5A375    62
          1211  5025000001               SDS40    SA2    A5+OR.1OP                                               FC5A375    63
                          22502                   LX5    X2                                                      FC5A375    64
                               20561              SBIT   X5,P2.INTRP                                             FC5A375    65
          1212  0335001200 +                      MI     X5,SDS34    IF INTERMEDIATE                             FC5A375    66
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    45
                                                                      SDS 
  
                          20571                   SBIT   X5,P2.ARRP/P2.INTRP                                     FC5A375    67
          1213  0325001200 +                      PL     X5,SDS34    IF NOT ARRAY(RIGHT MEMBER)                  FC5A375    68
                          13523                   BX5    X2-X3       X3 = TAG FOR LEFT MEMBER(T.PAR)             FC5A375    69
                               11205              BX2    X0*X5                                                   FC5A375    70
          1214  0312001200 +                      NZ     X2,SDS34    IF ARRAY WITH SCALAR OFFSET NOT FOUND       FC5A375    71
                                                                                                                 FC5A375    72
          1215  5120001217 +             SDS42    SA2    SDSX2       RELOAD X2                                   FC5A375    73
                          5150001220 +            SA5    SDSX5       RELOAD X5                                   FC5A375    74
          1216  0277000000                        JP     B7          RETURN TO SDS16 OR SDS22                    FC5A375    75
                                                                                                                 FC5A375    76
          1217  00000000000000000000     SDSX2    DATA   0           X2 SAVED HERE                               FC5A375    77
          1220  00000000000000000000     SDSX5    DATA   0           X5 SAVED HERE                               FC5A375    78
                                                                                                                 REG      1989
          1221  00000000000000000000     SDSA     DATA   0,0         SAVE REQUESTED REGISTER                     REG      1990
  
  
  
  
                                        **        SFR -  SCAN FOR REGISTER.                                      REG      1992
                                        *                                                                        REG      1993
                                        *         *SFR* SCANS THE REGISTER FILE FINDING THE LOWEST USE COUNT     REG      1994
                                        *         REGISTER AVAILABLE OF THE TYPE REQUESTED.  *SFR* MAKES A       REG      1995
                                        *         SPECIAL CASE WHEN *RREG* IS SET OR A LOAD REGISTER IS          REG      1996
                                        *         REQUESTED TO STOP *J* AND *K* FROM GETTING THE SAME REGISTER.  REG      1997
                                        *                                                                        REG      1998
                                        *         UPON EXIT *SFR* RESTORES THE REGISTER SCAN WORD REPOSITIONED   REG      1999
                                        *         TO POINT TO THE NEXT REGISTER TO START SCANNING.               REG      2000
                                        *         (ALL REGISTER SCAN WORDS ARED DEFINED TO BE USED CYCLICALLY).  REG      2001
                                        *                                                                        REG      2002
                                        *         ENTRY  (B3) = RG=XXXX, TYPE OF REGISTER.                       REG      2003
                                        *                                                                        REG      2004
                                        *         EXIT   (B2) = 0TR, OF REGISTER FOUND.                          REG      2005
                                        *                (B3) = PRESERVED                                        REG      2006
                                        *                (X6) = 0R0.                                             REG      2007
                                        *                (X7) = USE COUNT                                        REG      2008
                                        *                                                                        REG      2009
                                        *         USES   A1,A2,A3  X0,X6,X7  B2,B3,B5,B7                         REG      2010
                                        *                (SCR2 FOR SAVING *X5*)                                  REG      2011
                                                                                                                 REG      2012
                                                                                                                 REG      2013
          1223  5110001256 +             SFR.X    SA1    REGE        ADD OF REGFILE ENTRY SELECTED               FC51555    93
                          53110                   SA1    X1                                                      FC51555    94
                               10611              BX6    X1                                                      FC51555    95
          1224  5160001256 +                      SA6    REGE        REGFILE ENTRY IF NOT ZERO USE COUNT ELSE 0  FC51555    96
                          10622                   BX6    X2                                                      FC51555    97
                               76320              SX3    B2                                                      REG      2015
          1225  43071                             MX0    -3                                                      REG      2016
                     56631                        =A6    B3+1        RESET REGISTER SKELETON WORD                REG      2017
                          5150001255 +            SA5    SFRA        RESTORE *X5*                                REG      2018
          1226  15630                             BX6    -X0*X3                                                  REG      2019
                     20603                        LX6    3                                                       REG      2020
                                                                                                                 REG      2021
          1227  0400401227 +             SFR      SUBR   =           ...ENTRY/EXIT...                            FC5A346    12
          1230  56130                             SA1    B3                                                      REG      2023
                     13666                        BX6    0                                                       REG      2024
                          5120000000 X            SA2    RREG                                                    REG      2025
          1231  20152                             LX1    -RS.NUMP                                                REG      2026
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    46
                                                                      SFR 
  
                     14722                        BX7    -X2                                                     REG      2027
                          5160000000 X            SA6    RGX                                                     REG      2028
          1232  0332001236 +                      MI     X2,SFR5     IF NO HARD REGISTER                         REG      2029
                          43063                   MX0    -RG.USEL                                                REG      2030
                               54720              SA7    A2                                                      REG      2031
          1233  63220                             SB2    X2                                                      REG      2032
                     43171                        MX1    -3                                                      REG      2033
                          15621                   BX6    -X1*X2                                                  REG      2034
          1234  5132000000 C                      SA3    B2+REGFILE                                              REG      2035
                          20603                   LX6    3           =0R0                                        REG      2036
                               15730              BX7    -X0*X3      USE COUNT FOR HARD REGISTER                 REG      2037
          1235  0400001227 +                      EQ     EXIT.                                                   REG      2038
                                                                                                                 REG      2039
          1236  63710                    SFR5     SB7    X1          NUMBER OF REGISTERS                         REG      2040
                                   0              ERRNZ  18-RS.NUML                                              REG      2041
                     43301                        MX3    1                                                       REG      2042
                          10755                   BX7    X5                                                      REG      2043
                               20152              LX1    RS.NUMP-RS.MSKP                                         REG      2044
          1237  7150000400                        SX5    RLOCK                                                   REG      2045
                          5170001255 +            SA7    SFRA                                                    REG      2046
          1240  6251777776                        SB5    X1-1        LENGTH OF MASK - 1                          REG      2047
                                   0              ERRNZ  18-RS.MSKL                                              REG      2048
                          23053                   AX0    B5,X3       FORM MASK FOR REGISTER WORD                 REG      2049
                               54211              =A2    A1+1        LOAD REGISTER SKELETON WORD                 REG      2050
          1241  66551                             =B5    B5+1        RESTORE LENGTH                              REG      2051
                     22050                        LX0    B5,X0       SHIFT MASK TO LOW ORDER                     REG      2052
                          43163                   MX1    -RG.USEL                                                REG      2053
                               22252              LX2    B5,X2       NEXT REGISTER ORDINAL                       REG      2054
          1242  11602                             BX6    X0*X2                                                   REG      2055
                     5236000000 C                 SA3    X6+REGFILE                                              REG      2056
                               15131              BX1    -X1*X3      EXTRACT USE COUNT                           REG      2057
                                                                                                                 REG      2058
          1243  63260                    SFR10    SB2    X6                                                      REG      2059
                     74630                        SX6    A3                                                      FC51555    98
                          5160001256 +            SA6    REGE        RETAIN ADD OF REGFILE SELECTED              FC51555    99
          1244  10711                             BX7    X1                                                      REG      2060
                     0317001246 +                 NZ     X7,SFR12    IF REGISTER NOT FREE                        FC50949     7
                               43600              MX6    0                                                       FC50949     8
          1245  54630                             SA6    A3          A3 => CURRENT REGFILE ENTRY                 FC50949     9
                     0400001223 +                 EQ     SFR.X                                                   FC50949    10
                                                                                                                 REG      2062
          1246  0470001223 +             SFR12    ZR     B7,SFR.X    IF FINISHED                                 REG      2063
                          11602                   BX6    X0*X2       NEXT REGISTER ORDINAL                       REG      2064
                               43163              MX1    -RG.USEL                                                REG      2065
          1247  5236000000 C                      SA3    X6+REGFILE                                              REG      2066
                          15131                   BX1    -X1*X3      EXTRACT USE COUNT                           REG      2067
                               37317              IX3    X1-X7                                                   REG      2068
          1250  0333001243 +                      NG     X3,SFR10    IF NEW LOW                                  REG      2069
                          67771                   =B7    B7-1                                                    REG      2070
                               22252              LX2    X2,B5       SHIFT REGISTER WORD FOR NEXT ORDINAL        REG      2071
          1251  5236000000 C                      SA3    X6+REGFILE                                              REG      2072
                          37115                   IX1    X1-X5                                                   REG      2073
                               20361              SBIT   X3,P2.INTRP                                             REG      2074
          1252  0333001246 +                      MI     X3,SFR12    IF INTERMEDIATE                             REG      2075
                          0321001246 +            PL     X1,SFR12    IF NOT NEW LOW (NON-INTERMEDIATE)           REG      2076
          1253  36515                             IX5    X1+X5                                                   REG      2077
                     5160000000 X                 SA6    RGX                                                     FC51555   100
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    47
                                                                      SFR 
  
          1254  0400001246 +                      EQ     SFR12                                                   REG      2079
                                                                                                                 REG      2080
          1255                     1     SFRA     BSS    1                                                       REG      2081
          1256                     1     REGE     BSS    1           REGFILE ENTRY IF NOT ZERO USE COUNT ELSE 0  FC51555   101
  
  
  
  
                                        **        STS - SET TAG STATUS                                           REG      2083
                                        *                                                                        REG      2084
                                        *         ENTRY  (B2) = REGISTER (0TR)                                   REG      2085
                                        *                (B3) = TYPE OF LOAD.                                    REG      2086
                                        *                       0 = UPPER HALF OF TAG.                           REG      2087
                                        *                       1 = LOWER HALF OF TAG.                           REG      2088
                                        *                (A1) = STATUS WORD ADDRESS.                             REG      2089
                                        *                (X1) = STATUS WORD.                                     REG      2090
                                        *                                                                        REG      2091
                                        *         EXIT   (A1,X1) _,= STATUS WORD                                 REG      2092
                                        *                (X5) = OPERAND OR REGFILE ENTRY WITH CURRENT USE COUNT  REG      2093
                                        *                (STATUS WORD) - APROPRIATE ST BIT AND REG FIELD SET     REG      2094
                                        *                (REGFILE(0TR)) - UPDATED WITH CORRECT USE COUNT         REG      2095
                                        *                                                                        REG      2096
                                        *         USES   A2,  X0,X2,X7,  B7                                      REG      2097
                                        *                                                                        REG      2098
                                        *         CALLS  AUT                                                     REG      2099
                                        *                                                                        REG      2100
                                        *                                                                        REG      2101
                                        *         NOTE - X1 AND X5 HAVE SOME FIELDS UPDATED,  BUT                REG      2102
                                        *         THEY RETAIN THE SAME DATA STRUCTURE ACROSS STS.                REG      2103
                                        *                                                                        REG      2104
                                        *         WARNING - IF THESE ROUTINES EVER MAKE TABLE MAN-               REG      2105
                                        *         AGER CALLS IN THE FUTURE.  CARE MUST BE TAKEN TO               REG      2106
                                        *         PRESERVE (A1) AS THE STATUS WORDPOINTER.                       REG      2107
                                                                                                                 REG      2108
                                                                                                                 REG      2109
          1257  0400401257 +             STS      SUBR   =           ENTRY/EXIT.                                 REG      2110
          1260  5120000000 X                      SA2    UUC         GET USE COUNT INCREMENT                     FC5A258    56
                          0100000061 +            RJ     AUT         ADJUST USE TOTAL                            REG      2112
          1261  0420001257 +                      ZR     B2,EXIT.    IF NO REGISTER REQUIRED                     REG      2113
                          5123000451 +            SA2    B3+STATUS   GET SHIFT COUNTS FOR STATUS ROUTINES        REG      2114
          1262  76010                             =X0    1                                                       REG      2115
                     63720                        SB7    X2          SET SHIFT COUNT TO ST.LST OR ST.UST         REG      2116
                          22770                   LX7    B7,X0       POSITION STATUS BIT                         REG      2117
                               76020              =X0    B2          (X0) = (0TR)                                REG      2118
          1263  21222                             AX2    18          POSITION NEXT SHIFT COUNT                   REG      2119
                     12117                        BX1    X1+X7       INSERT STATUS BIT IN STATUS WORD            REG      2120
                          63720                   SB7    X2          (B7) = ST.UREGP OR ST.LREGP                 REG      2121
                               43266              MX2    -ST.UREGL   SET (0TR) MASK                              REG      2122
          1264  22272                             LX2    B7,X2       POSITION (0TR) MASK                         REG      2123
                     22770                        LX7    B7,X0       POSITION (0TR)                              REG      2124
                          11121                   BX1    X2*X1       CLEAR APROPRIATE REG FIELD                  REG      2125
                               76030              SX0    B3          (X0) = TYPE (1 OR 0)                        REG      2126
          1265  36171                             IX1    X7+X1       ADD (0TR) INTO STATUS WORD                  REG      2127
                     20020                        LX0    RG.TYPP     POSITION TYPE BIT                           REG      2128
                          12550                   BX5    X5+X0       ADD IN TYPE BIT TO REGFILE ENTRY            REG      2129
                               22701              LX7    X1                                                      REG      2131
          1266  54710                             SA7    A1          RESET STATUS WORD                           REG      2133
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    48
                                                                      STS 
  
                     5122000000 C                 SA2    B2+REGFILE                                              FC50748     6
                               43063              MX0    -P2.USEL                                                FC50748     7
          1267  22702                             LX7    X2                                                      FC50748     8
                     15220                        BX2    -X0*X2      USE COUNT                                   FC50748     9
                          0302001277 +            ZR     X2,STS1     IF NO USE COUNT                             FC50748    10
          1270  7100000400                        SX0    RLOCK                                                   FC50748    11
                          11002                   BX0    X0*X2       LOCK BIT EXTRACTION                         FC50748    12
          1271  0310001277 +                      NZ     X0,STS1     IF LOCK BIT SET                             FC50748    13
                          13057                   BX0    X5-X7                                                   FC50748    14
                               21011              AX0    P2.USEL     ELIMINATE USE COUNT                         FC50748    15
          1272  0310001277 +                      NZ     X0,STS1     IF TAGS NOT EQUAL                           FC50748    16
                          63320                   SB3    X2          REGFILE USE COUNT                           FC50964     8
                               43063              MX0    -P2.USEL                                                FC50748    17
          1273  15750                             BX7    -X0*X5                                                  FC50964     9
                     63770                        SB7    X7          INCOMING OPERAND USE COUNT                  FC50964    10
                          11505                   BX5    X0*X5                                                   FC50748    18
          1274  0737001276 +                      GT     B7,B3,STSA  IF OPERAND USE COUNT .GT. REGFILE USE CNT   FC50964    11
                          36552                   IX5    X5+X2       ELSE RETAIN REGFILE USE COUNT               FC50748    19
          1275  0400001277 +                      EQ     STS1                                                    FC50964    12
                                                                                                                 FC50964    13
          1276  36557                    STSA     IX5    X5+X7       RETAIN INCOMING OPERAND USE COUNT           FC50964    14
                                                                                                                 FC50964    15
                                                                                                                 FC50748    20
          1277  7102777767               STS1     SX0    B2-REG.A    (XO) = (OTR) - (010)                        FC50748    21
                          5120000000 X            SA2    UUC         GET USE COUNT DECREMENT VALUE               FC50748    22
          1300  21003                             AX0    3           (X0) = (00T) = (001)                        FC50748    23
                     37752                        IX7    X5-X2       SUBTRACT USE COUNT INCRIMENT                FC50748    24
                          0310001303 +            NZ     X0,STS2     IF NOT AN A-REG                             FC50748    25
          1301  10255                             BX2    X5                                                      REG      2137
                     5172000010 C                 SA7    B2+REGFILE+REG.X-REG.A    PLACE TAG IN ASOCIATED X-REG  REG      2138
                               20250              SBIT   X2,P2.LCMP                                              REG      2139
          1302  0332001257 +                      MI     X2,EXIT.    IF LCM, DONT PLACE IN A-REG                 REG      2140
                                                                                                                 REG      2141
          1303  5172000000 C             STS2     SA7    B2+REGFILE  MAKE REGFILE ENTRY FOR TAG                  FC50748    26
                          0400001257 +            EQ     EXIT.                                                   REG      2143
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    49
        SUBSCRIPT PROCESSING. 
  
          1304  00000000000000000000     ALTAG    DATA   0           PASS 3 ARRAY LOAD TAG                       REG      2145
          1305                     3     SAVEB4   BSS    3                                                       REG      2146
          1310  00000000000000000000     ALREG    CON    0                                                       REG      2147
          1311  00000000000000000000     AFREG    CON    0                                                       REG      2148
          1312  00000000000000000000     ADDR     DATA   0                                                       REG      2149
          1313                     1     STORE    BSS    1                                                       REG      2150
          1314                     1     ADDRS    BSS    1                                                       REG      2151
          1315                     1     STORES   BSS    1                                                       REG      2152
          1316  00000000000000000000     SAVEB2   DATA   0                                                       REG      2153
          1317  00000000000000000000     TRIP     DATA   0                                                       REG      2154
          1320  00000000000000000000     SAVEX1   DATA   0                                                       REG      2155
          1321  00000000000000401321 +   AFSTS    CON    "BLOWUP"    LOCATION OF ADDRESS FUNCTION STATUS WORD    REG      2156
                                                                                                                 REG      2157
                                        **        O=PAR - PROCESS ARRAY REFERENCE.                               REG      2158
                                        *                                                                        REG      2159
                                        *         ENTRY HERE FROM ARITH WHEN SUBSCRIPT TURPLE FOUND.             REG      2160
                                        *         PROCESSING IS DEFERRED UNTIL USE OF SUBSCRIPTED ARRAY IS       REG      2161
                                        *         DETERMINED.  IF THE SUBSCRIPT IS A SUBSCRIPTED ARRAY, THEN     REG      2162
                                        *         ARRAY IS PROCESSED.                                            REG      2163
                                        *                                                                        REG      2164
                                        *         ENTRY  (B4) _ START OF SUBSCRIPT ARRAY TURPLE. (OPERATOR WORD) REG      2165
                                        *                (B4+1)_ ARRAY TAG.+ BIAS    (OR.1OP)                    REG      2166
                                        *                (B4+2)  INTERMEDIATE        (OR.2OP)                    REG      2167
                                        *                                                                        REG      2168
                                        *         EXIT   (B4) UPDATED, EXIT TO EIS.PNX.                          REG      2169
                                        *         USES   CANNOT DESTROY *B4*.                                    REG      2170
                                                                                                                 REG      2171
                                                                                                                 REG      2172
          1322                           O=PAR    BSSENT 0           ENTRY...                                    REG      2173
                                         .T       IFEQ   TEST,ON                                                 FC5A140    20
                                                  SA5    B4+OR.2OP                                               REG      2174
                                                  CLAS=  X0,TP,(ARR,INTR)                                        FC5A140    21
                                                  BX1    X0*X5                                                   FC5A140    22
                                                  BX1    X0-X1                                                   FC5A140    23
                                                  ZR     X1,"BLOWUP" IF SUBSCRIPTED SUBSCRIPT                    FC5A140    24
                                         .T       ENDIF                                                          FC5A140    25
          1322  6144000003                        SB4    B4+Z=TURP                                               FC5A140    26
                          0400000000 X            EQ     EIS.PNX     SET POST PROCESSING FLAG                    REG      2194
                                                                                                                 REG      2195
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    50
        SUBSCRIPT PROCESSING.                                         SLD 
  
                                        **        SLD -  SUBSCRIPT LOAD.                                         REG      2197
                                        *                                                                        REG      2198
                                        *         CALLED WHEN PROCESSING AN INTERMEDIATE AND FOUND THAT IT IS AN REG      2199
                                        *         ARRAY LOAD.                                                    REG      2200
                                        *                                                                        REG      2201
                                        *         EXIT   SUBSCRIPT LOADED IN (X6) REGISTER.                      REG      2202
                                        *                (X6) = REGISTER - (0R0).                                REG      2203
                                        *                (B3) = REGISTER - (0TR).                                REG      2204
                                        *                                                                        REG      2205
                                        *         (NOLDS) = (NOLDS) +1                                           REG      2206
                                        *                                                                        REG      2207
                                        *         USES   A1,A2,A3,A4,A5  X0  B2,B3,B5,B6,B7                      REG      2208
                                        *                CELLS -  SCR2 TO SCR2+6                                 REG      2209
                                                                                                                 REG      2210
          1323  0400401323 +             SLD      SUBR   =           ENTRY/EXIT...                               REG      2211
          1324  76640                             SX6    B4                                                      REG      2212
                     10744                        BX7    X4                                                      REG      2213
                          5120000000 X            SA2    T.PAR                                                   REG      2214
          1325  22105                             LX1    X5                                                      REG      2215
                     37662                        IX6    X6-X2                                                   REG      2216
                          20120                   HX1    P2.BIAS                                                 REG      2217
                               21144              AX1    -P2.BIASL   ISOLATE I. L. ORDINAL OF ARRAY TURPLE       REG      2218
          1326  5160001305 +                      SA6    SAVEB4      SAVE *B4*                                   REG      2219
                          63410                   SB4    X1                                                      REG      2220
                               74640              SX6    A4                                                      REG      2221
          1327  54661                             =A6    A6+1        SAVE *A4*                                   REG      2222
                     63424                        SB4    X2+B4       SUBSCRIPT TURPLE                            REG      2223
                          54761                   =A7    A6+1        SAVE *X4*                                   REG      2224
                               76700              =X7    0           SET VALUE WANTED FLAG                       REG      2225
          1330  5170001315 +                      SA7    STORES                                                  REG      2226
                          20560                   SBIT   X5,P2.ADDRP                                             REG      2227
          1331  0325001332 +                      PL     X5,SLD1     IF NOT ADDRESS REFERENCE                    REG      2228
                          7170020000              =X7    SX=AK-SA=AK ADD IN TO OP-CODE FOR ADDRESS/VALUE         REG      2229
                                                                                                                 REG      2230
          1332  5170001314 +             SLD1     SA7    ADDRS       NZ IF NO VALUE LOAD                         REG      2231
                          5154000002              SA5    B4+OR.2OP   ADDRESS FUNCTION TAG                        REG      2232
          1333  5110000000 X                      SA1    RREG                                                    REG      2233
                          43674                   MX6    -0                                                      REG      2234
                               10711              BX7    X1                                                      REG      2235
          1334  54610                             SA6    A1                                                      REG      2236
                     76620                        SX6    B2                                                      REG      2237
                          5170001310 +            SA7    ALREG       SAVE HARD REGISTER FLAG                     REG      2238
          1335  5170001541 +                      SA7    ALREGS                                                  FC50131     5
                          5160000000 X            SA6    TYPLOD                                                  REG      2239
          1336  7207777751                        SX0    X7-R.X6                                                 REG      2240
                          0330001342 +            MI     X0,SLD15    IF NOT STORE REGISTER                       REG      2241
                                                                                                                 REG      2242
                                        *         LOCK STORE REGISTER TO FORCE THE OTHER STORE REGISTER TO BE    REG      2243
                                        *         USED FOR ANY STORES TO TEMPORARIES                             REG      2244
                                                                                                                 REG      2245
          1337  43071                             MX0    -3                                                      REG      2246
                     15070                        BX0    -X0*X7                                                  REG      2247
                          63700                   SB7    X0          (00R) HARD REGISTER FLAG                    REG      2248
          1340  0100001010 +                      RJ     RLL         LOCK HARD REGISTER                          REG      2249
          1341  76710                             =X7    1                                                       REG      2250
                     5170001315 +                 SA7    STORES                                                  REG      2251
          1342  10055                    SLD15    DRITE  X5                                                      REG      2252
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    51
        SUBSCRIPT PROCESSING.                                         SLD 
  
          1343  13666                             BX6    0                                                       REG      2253
                     5160001317 +                 SA6    TRIP        RESET RE-TRY INDICATOR                      REG      2254
          1344  6130000011 +                      SB3    RG=LOAD                                                 REG      2255
                          66200                   SB2    B0                                                      REG      2256
                               66710              SB7    B1                                                      REG      2257
          1345  0100000430 +                      RJ     GST         GET STATUS OF ADDRESS FUNCTION              REG      2258
          1346  5120000453 +                      SA2    GSTC                                                    REG      2259
                          10722                   BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS    REG      2260
          1347  5170001321 +                      SA7    AFSTS                                                   REG      2261
                          6160401347 +            SB6    "BLOWUP"    **** DEBUG ****                             REG      2262
          1350  0420001354 +                      ZR     B2,SLD2     IF TAG NOT IN REGISTER                      REG      2263
                          10066                   BX0    X6                                                      REG      2264
                               21003              AX0    3                                                       REG      2265
          1351  5220000020 C                      SA2    X0+REGFILE+REG.X                                        REG      2266
                          13052                   BX0    X5-X2                                                   REG      2267
                               20261              SBIT   X2,P2.INTRP                                             REG      2268
          1352  0332001401 +                      MI     X2,SLD3     IF INTERMEDIATE, NO CONFLICT                REG      2269
                          21011                   AX0    RG.USEL                                                 REG      2270
          1353  0300001401 +                      ZR     X0,SLD3     IF CORRECT TAG                              REG      2271
          1354  5120001542 +             SLD2     SA2    P2=KEEP                                                 REG      2272
                          11121                   BX1    X2*X1                                                   REG      2273
                               66200              SB2    B0          INDICATE TYPLOD = UPPER                     REG      2274
          1355  0100001002 +                      RJ     LTG         LOAD ADDRESS FUNCTION                       REG      2275
          1356  10255                             BX2    X5                                                      FC50131     6
                     20250                        HX2    P2.LCM                                                  FC50131     7
                          0322001362 +            PL     X2,SLD21    IF NOT LCM ADDRESS FUNCTION                 FC50131     8
          1357  10266                             BX2    X6                                                      FC50825     7
                     21203                        AX2    3                                                       FC50825     8
                          6222000020              SB2    X2+REG.X    USE X-REG FOR STATUS                        FC50825     9
          1360  5120001541 +                      SA2    ALREGS                                                  FC50131    12
                          10722                   BX7    X2                                                      FC50131    13
          1361  5170001310 +                      SA7    ALREG       RESTORE FROM POSSIBLE CLI USE               FC50131    14
                                                                                                                 FC50131    15
          1362  5120001317 +             SLD21    SA2    TRIP                                                    FC50131    16
                          0302001401 +            ZR     X2,SLD3     IF NO RECORD OF TROUBLE                     REG      2277
          1363  5130001316 +                      SA3    SAVEB2      (0TR) ARRAY LOAD REG                        REG      2278
                          63330                   SB3    X3                                                      REG      2279
          1364  5114000001                        SA1    B4+OR.1OP                                               FC51572     5
                          20150                   HX1    P2.LCM                                                  FC51572     6
          1365  0321001366 +                      PL     X1,SLD23    IF NOT UEM LOAD/STORE                       FC51572     7
                          6133000010              SB3    B3+REG.X-REG.A     USE X REGISTER FOR UEM               FC51572     8
                                                                                                                 FC51572     9
          1366  0523001401 +             SLD23    NE     B2,B3,SLD3  IF NO CONFLICT                              FC51572    10
                                                                                                                 REG      2281
                                        **        PROBLEM DUE TO ADDRESS FUNCTION AND ARRAY LOAD CLAIMING        REG      2282
                                        *         SAME REGISTER.  ADDRESS FUNCTION MUST BE COPIED TO ANOTHER     REG      2283
                                        *         REGISTER.                                                      REG      2284
                                                                                                                 REG      2285
                                                                                                                 REG      2286
                                         .TEST    IFEQ   TEST,ON                                                 REG      2287
                                                  =X0    1                                                       REG      2288
                                                  BX0    -X0*X2                                                  REG      2289
                                         S=SLDCL  SNAP   SLD,,,(B2,B4,X5)                                        REG      2290
                                         S=SLDTP  SNAP   *SAVEB4,,3,NONE                                         REG      2291
                                                  NZ     X0,"BLOWUP" TRIP NE 1 OR +0 IS ILLEGAL                  REG      2292
                                         .TEST    ENDIF                                                          REG      2293
                                                                                                                 REG      2294
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    52
        SUBSCRIPT PROCESSING.                                         SLD 
  
                          21603                   AX6    3           (00R)  ADDRESS FUNCTION REGISTER            FC50408     6
                               63760              SB7    X6                                                      FC50408     7
          1367  0100001010 +                      CALL   RLL         LOCK ADDRESS FUNCTION REGISTER              FC50408     8
          1370  0100000025 +                      RJ     AIR         ASSIGN INTERMEDIATE REGISTER                REG      2295
          1371  0620001372 +                      PL     B2,SLD25    IF REGISTER FREE                            REG      2296
                          0100000037 +            RJ     ASR         ASSIGN STORE REGISTER                       REG      2297
          1372  5130001316 +             SLD25    SA3    SAVEB2      (0TR) ADDRESS FUNCTION REGISTER             REG      2298
                          63530                   SB5    X3                                                      REG      2299
                               76620              SX6    B2          (0TR) *I* REGISTER                          REG      2300
          1373  43071                             MX0    -3                                                      REG      2301
                                                                                                                 REG      2302
                                        *         MAKE ADJUSTMENTS TO *REGFILE*                                  REG      2303
                                                                                                                 REG      2304
                     13777                        BX7    0                                                       REG      2305
                          5175000010 C            SA7    B5+REGFILE+REG.X-REG.A  CLEAR OLD REGFILE ENTRY         REG      2306
                                                                                                                 REG      2307
                                        *         COMPILE TRANSMIT INSTRUCTION                                   REG      2308
                                                                                                                 REG      2309
          1374  15260                             BX2    -X0*X6      (00R) *I* REGISTER                          REG      2310
                     15730                        BX7    -X0*X3      (00R) *J* REGISTER                          REG      2311
                          20203                   LX2    3                                                       REG      2312
                               36772              IX7    X7+X2                                                   REG      2313
          1375  7277001000                        SX7    X7+XMT/1S3                                              REG      2314
                          20760                   LX7    PB.INSTP+3                                              REG      2315
                               66520              SB5    B2                                                      REG      2316
          1376  6120001377 +                      WCODE  X7                                                      REG      2317
                                                                                                                 REG      2318
                                        *         ADJUST/RESTORE REGISTERS                                       REG      2319
                                                                                                                 REG      2320
          1377  66250                             SB2    B5          (0TR) NEW ADDRESS FUNCTION REGISTER         REG      2321
                     43071                        MX0    -3                                                      REG      2322
                          76620                   SX6    B2                                                      REG      2323
                               15660              BX6    -X0*X6                                                  REG      2324
          1400  20603                             LX6    3           (0R0) NEW ADDRESS FUNCTION REGISTER         REG      2325
          1401  5110001321 +             SLD3     SA1    AFSTS                                                   REG      2326
                          63710                   SB7    X1          ORDINAL IN TABLE OF STATUS WORD             REG      2327
                               21122              AX1    18                                                      REG      2328
          1402  53210                             SA2    X1          FETCH TABLE ORIGIN                          REG      2329
                     5130000000 X                 SA3    UUC         GET USE COUNT DECRIMENT                     REG      2330
                               53127              SA1    X2+B7       GET STATUS WORD OF ADDRESS FUNCTION         REG      2331
          1403  10755                             BX7    X5                                                      REG      2332
                     5120001317 +                 SA2    TRIP        GET TROUBLE INDICATOR                       REG      2333
                               20761              SBIT   X7,P2.INTRP                                             REG      2334
          1404  0327001406 +                      PL     X7,SLD31    IF NOT INTERMEDIATE                         REG      2335
                          15732                   BX7    -X2*X3      (X7) = 0 IF TRIP=1 OR UUC IF TRIP=0         REG      2336
          1405  5170000000 X                      SA7    UUC         RESET UUC TO AVOID DOUBLE USE DECRIMENT     REG      2337
          1406  6130000000               SLD31    SB3    0           TYPE=UPPER                                  REG      2338
                          0100001257 +            RJ     STS         SET TAG STATUS                              REG      2339
          1407  10733                             BX7    X3                                                      REG      2340
                     5170000000 X                 SA7    UUC         RESTORE UUC                                 REG      2341
                               21603              AX6    3                                                       REG      2342
          1410  63760                             SB7    X6                                                      REG      2343
                     0100001010 +                 RJ     RLL         LOCK ADDRESS FUNCTION REGISTER              FC51150     9
          1411  5110001310 +                      SA1    ALREG                                                   FC51150    10
                          76620                   SX6    B2                                                      REG      2346
                               10711              BX7    X1                                                      REG      2347
          1412  5160001311 +                      SA6    AFREG                                                   REG      2348
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    53
        SUBSCRIPT PROCESSING.                                         SLD 
  
                          5170000000 X            SA7    RREG        RESET HARD REGISTER FLAG                    REG      2349
          1413  7207777751                        SX0    X7-R.X6                                                 REG      2350
                          0330001416 +            MI     X0,SLD32    IF NOT STORE REGISTER                       REG      2351
          1414  43071                             MX0    -3                                                      REG      2352
                     15070                        BX0    -X0*X7                                                  REG      2353
                          63700                   SB7    X0          (00R) HARD REGISTER FLAG                    REG      2354
          1415  0100001015 +                      RJ     RUL         UNLOCK HARD REGISTER                        REG      2355
          1416  6130000011 +             SLD32    SB3    RG=LOAD                                                 REG      2356
                          0100000355 +            RJ     GNR         GET ARRAY LOAD REGISTER                     REG      2357
          1417  76720                             SX7    B2                                                      REG      2358
                     5170001316 +                 SA7    SAVEB2                                                  FC51150    11
          1420  5154000002                        SA5    B4+OR.2OP    ADDRESS FUNCTION TAG                       FC51150    12
                          6130000011 +            SB3    RG=LOAD                                                 REG      2361
          1421  66200                             SB2    B0                                                      REG      2362
                     66710                        SB7    B1                                                      REG      2363
                          0100000430 +            RJ     GST         GET STATUS OF ADDRESS FUNCTION (AGAIN)      REG      2364
          1422  5120000453 +                      SA2    GSTC                                                    REG      2365
                          10722                   BX7    X2          SAVE LOCATION OF ADDRESS FUNCTION STATUS    REG      2366
          1423  5170001321 +                      SA7    AFSTS                                                   REG      2367
                          6160401423 +            SB6    "BLOWUP"    **** DEBUG ****                             REG      2368
          1424  0520001426 +                      NZ     B2,SLD35    IF TAG IN REGISTER                          REG      2369
                          5120001317 +            SA2    TRIP                                                    REG      2370
          1425  73621                             =X6    X2+1                                                    FC50131    17
                     54620                        SA6    A2          INCREMENT TRIP HISTORY                      REG      2372
                          0400001354 +            EQ     SLD2                                                    REG      2373
                                                                                                                 REG      2374
          1426  5150001316 +             SLD35    SA5    SAVEB2                                                  REG      2375
                          63250                   SB2    X5          RESTORE B2                                  REG      2376
          1427  6122000010                        SB2    B2+REG.X-REG.A                                          REG      2377
                          5154000001              SA5    B4+OR.1OP                                               REG      2378
          1430  76620                             SX6    B2                                                      REG      2379
                     10755                        BX7    X5          ARRAY TAG - PASS 3 FORMAT                   REG      2380
                          5160001310 +            SA6    ALREG                                                   REG      2381
          1431  5170001304 +                      SA7    ALTAG                                                   REG      2382
                          5130001311 +            SA3    AFREG                                                   REG      2383
          1432  43771                             MX7    -3                                                      REG      2384
                     15637                        BX6    -X7*X3      (00R)                                       REG      2385
                          21303                   AX3    3           (00T)                                       REG      2386
                               63760              SB7    X6          (00R) FOR *RUL*                             REG      2387
          1433  7140051000                        SX4    SA=BK                                                   REG      2388
                          0303001435 +            ZR     X3,SLD4     IF *B* REGISTER                             REG      2389
          1434  7140052000                        SX4    SA=XK                                                   REG      2390
                          0100001015 +            RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER            REG      2391
          1435  5130000000 X             SLD4     SA3    TYPLOD      TYPE OF LOAD (0=UPPER HALF, 1= LOWER HALF)  REG      2392
                          5110001314 +            SA1    ADDRS                                                   REG      2393
          1436  10711                             BX7    X1                                                      REG      2394
                     5170001312 +                 SA7    ADDR                                                    REG      2395
          1437  5110001315 +                      SA1    STORES                                                  REG      2396
                          10711                   BX7    X1                                                      REG      2397
          1440  5170001313 +                      SA7    STORE                                                   REG      2398
                          5110001304 +            SA1    ALTAG       ARRAY LOAD TAG                              REG      2399
          1441  20324                             LX3    P2.BIASP                                                REG      2400
                                        *                                                                        REG      2401
                                        *         (X1)    = ARRAY TAG                                            REG      2402
                                        *         (X5)    = ARRAY TAG                                            REG      2403
                                        *         (X4)    = SA=XK OR SA=BK                                       REG      2404
                                        *         (ALREG) =  I REGISTER (OTR)                                    REG      2405
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    54
        SUBSCRIPT PROCESSING.                                         SLD 
  
                                        *         (AFREG) = J REGISTER (OTR)                                     REG      2406
                                        *         (ADDR)  = 0 IF VALUE WANTED                                    REG      2407
                                        *                 = 20000 IF ADDRESS WANTED                              REG      2408
                                        *                                                                        REG      2409
                     5120001312 +                 SA2    ADDR                                                    REG      2410
                               36113              IX1    X1+X3                                                   REG      2411
          1442  10311                             BX3    X1                                                      REG      2412
                     36424                        IX4    X2+X4       ADD IN VALUE FLAG                           REG      2413
                          10733                   BX7    X3                                                      REG      2414
                               20750              HX7    P2.LCM                                                  REG      2415
          1443  0337001445 +                      MI     X7,SLD40    IF LCM REF                                  REG      2416
                          20351                   SBIT   X3,P2.FPP                                               REG      2417
          1444  0323001466 +                      PL     X3,SLD8     IF ARRAY-LOAD NOT FORMAL PARAMETER          REG      2418
                                                                                                                 REG      2419
                                        *         RELOCK ADDRESS FUNCTION REGISTER TO AVOID CONFLICT WITH        REG      2420
                                        *         *FP* LOAD REGISTER IN LCM/ECS CASE.                            REG      2421
                                                                                                                 REG      2422
          1445  10711                    SLD40    BX7    X1                                                      REG      2423
                     5170001320 +                 SA7    SAVEX1      SAVE X1                                     REG      2424
          1446  0100001010 +                      RJ     RLL                                                     REG      2425
          1447  5110001310 +                      SA1    ALREG                                                   REG      2426
                          7221777751              SX2    X1-R.X6                                                 REG      2427
          1450  0332001452 +                      MI     X2,SLD42    IF NOT STORE REG, REG LOCK  IS NOT ON.      REG      2428
                          6271777757              SB7    X1-REG.X                                                REG      2429
          1451  0100001010 +                      RJ     RLL         HARD STORE REG MUST BE LOCKED.              REG      2430
                                                                                                                 REG      2431
          1452  5110001320 +             SLD42    SA1    SAVEX1                                                  REG      2432
                          10711                   BX7    X1                                                      REG      2433
                               20750              HX7    P2.LCM                                                  REG      2434
          1453  0337001511 +                      MI     X7,SLD100   IF LCM REF                                  REG      2435
                          0100000472 +            RJ     LFP         LOAD ADDRESS OF FP                          REG      2436
          1454  5130001310 +                      SA3    ALREG                                                   REG      2437
                          7203777751              SX0    X3-R.X6                                                 REG      2438
          1455  0330001457 +                      MI     X0,SLD44    IF NOT A STORE REG                          REG      2439
                          6273777757              SB7    X3-REG.X                                                REG      2440
          1456  0100001015 +                      RJ     RUL         UNLOCK HARD STORE REG                       REG      2441
          1457  5130001311 +             SLD44    SA3    AFREG                                                   REG      2442
                          43071                   MX0    -3                                                      REG      2443
                               15330              BX3    -X0*X3      (00R) ADDRESS FUNCTION REGISTER             REG      2444
          1460  63730                             SB7    X3                                                      REG      2445
                     0100001015 +                 RJ     RUL         UNLOCK ADDRESS FUNCTION REGISTER            REG      2446
          1461  5130001311 +                      SA3    AFREG       (0TR) ADDRESS FUNCTION                      REG      2447
                          76620                   SX6    B2          (00R) *FP* B REGISTER                       REG      2448
                               21303              AX3    3           (00T) ADDRESS FUNCTION REGISTER             REG      2449
          1462  7110053000                        SX1    SA=XB                                                   REG      2450
                          5120001312 +            SA2    ADDR                                                    REG      2451
          1463  0313001464 +                      NZ     X3,SLD6     IF NOT IN *B* REGISTER                      REG      2452
                          7110056000              SX1    SA=BB                                                   REG      2453
          1464  36412                    SLD6     IX4    X1+X2       ADD IN ADDRESS/VALUE FUNCTION               REG      2454
                     12764                        BX7    X6+X4       SET *K* REGISTER IN INSTRUCTION             REG      2455
                          20755                   LX7    PB.INSTP                                                REG      2456
          1465  0400001474 +                      EQ     SL.CMP      CONTINUE                                    REG      2457
                                                                                                                 REG      2458
                                        **        ADD IN BIAS FIELD FOR TAG IN (X1)                              REG      2459
                                                                                                                 REG      2460
          1466  43044                    SLD8     MX0    -P2.BIASL                                               FC50760     6
                     10711                        BX7     X1                                                     FC50760     7
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    55
        SUBSCRIPT PROCESSING.                                         SLD 
  
                          20750                   LX7    -P2.BIASP                                               FC50760     8
                               15770              BX7    -X0*X7      (X7) = BIAS                                 FC50760     9
          1467  10277                             BX2    X7                                                      FC50760    10
                     5170000626 +                 SA7    BIAS                                                    FC50760    11
                               20244              LX2    -P2.BIASL                                               FC50760    12
          1470  21265                             AX2    -P2.BIASL+17                                            FC50760    13
                     20455                        LX4    PB.INSTP    OP-CODE                                     FC50760    14
                          0312001515 +            NZ     X2,SLD102   IF ABS(BIAS) .GT. 2**17                     FC50760    15
          1471  43052                             MX0    -PB.BIASL                                               REG      2462
                     20150                        LX1    -P2.BIASP                                               REG      2463
                          15710                   BX7    -X0*X1                                                  REG      2464
                               20144              LX1    P2.BIASP-P2.TAGP                                        REG      2465
          1472  43054                             MX0    -P2.TAGL                                                REG      2466
                     20714                        LX7    PB.BIASP                                                REG      2467
                          12474                   BX4    X7+X4       PB.BIAS = TRUNC(P2.BIAS)                    REG      2468
                               15710              BX7    -X0*X1                                                  REG      2469
          1473  20736                             LX7    PB.TAGP                                                 REG      2470
                     12774                        BX7    X7+X4       PB.TAG = P2.TAG                             REG      2471
                                                                                                                 REG      2472
                                        **        OUTPUT CODE TO LOAD ARRAY INTO REGISTER.                       REG      2473
                                        *                                                                        REG      2474
                                        *         (AFREG) = REGISTER FOR *J* PART OF INSTRUCTION.                REG      2475
                                        *         (ALREG) = REGISTER FREE FOR LOAD. (0TR)                        REG      2476
                                        *         (X7) = INSTRUCTION OP-CODE IN HIGH ORDER + BIAS IF PRESENT     REG      2477
                                                                                                                 REG      2478
          1474  5120001311 +             SL.CMP   SA2    AFREG                                                   REG      2479
                          43071                   MX0    -3                                                      REG      2480
                               15420              BX4    -X0*X2      EXTRACT *J* REGISTER                        REG      2481
          1475  20460                             LX4    -12                                                     REG      2482
                     36774                        IX7    X7+X4       ADD IN *J* REGISTER                         REG      2483
                          5110001310 +            SA1    ALREG                                                   REG      2484
          1476  15610                             BX6    -X0*X1                                                  REG      2485
                     20663                        LX6    60-9        *I* REGISTER                                REG      2486
                          36767                   IX7    X6+X7       ADD IN *I* REGISTER                         REG      2487
          1477  6120001500 +                      WCODE  X7          COMPILE ARRAY LOAD                          REG      2488
                                                                                                                 REG      2489
          1500  5150001312 +             SLCMPQ   SA5    ADDR                                                    REG      2490
                          5120001310 +            SA2    ALREG       (0TR)                                       REG      2491
          1501  0305001502 +                      ZR     X5,SL.CMP0  IF ADDRESS NOT REQUESTED                    REG      2492
                          7150004000              =X5    P2.ADDRM                                                REG      2493
          1502  7255020000               SL.CMP0  =X5    X5+P2.ARRM                                              REG      2494
                          5110000000 X            SA1    TYPLOD                                                  REG      2495
          1503  63220                             SB2    X2                                                      REG      2496
                     63310                        SB3    X1                                                      REG      2497
                                                                                                                 REG      2498
                                        *         DEFINE ARRAY LOAD RESULTS.                                     REG      2499
                                                                                                                 REG      2500
                          0100000305 +            RJ     DIT         DEFINE INTERMEDIATE                         REG      2501
                                                                                                                 REG      2502
                                        *         RESTORE REGISTERS AND EXIT.                                    REG      2503
                                                                                                                 REG      2504
          1504  5150001305 +                      SA5    SAVEB4                                                  REG      2505
                          76700                   =X7    0                                                       REG      2506
                               54151              =A1    A5+1                                                    REG      2507
          1505  5120000000 X                      SA2    T.PAR                                                   REG      2508
                          36552                   IX5    X5+X2                                                   REG      2509
                               63450              SB4    X5          RESTORE *B4*                                REG      2510
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    56
        SUBSCRIPT PROCESSING.                                         SLD 
  
          1506  54211                             =A2    A1+1                                                    REG      2511
                     5130000000 X                 SA3    NOLDS                                                   REG      2512
          1507  5170001311 +                      SA7    AFREG                                                   REG      2513
                          53410                   SA4    X1          RESTORE *A4*                                REG      2514
                               73731              =X7    X3+1                                                    REG      2515
          1510  10422                             BX4    X2          RESTORE *X4*                                REG      2516
                     54730                        SA7    A3          UPDATE NO. OF LOADS                         REG      2517
                          0400001323 +            EQ     EXIT.                                                   REG      2518
                                                                                                                 REG      2519
          1511  5150001304 +             SLD100   SA5    ALTAG                                                   REG      2520
                          5110000000 X            SA1    TYPLOD                                                  FC50010     9
          1512  20124                             LX1    P2.BIASP                                                FC50010    10
                     36515                        IX5    X1+X5       ADD 1 IF LOWER                              FC50010    11
                          0100000515 +            RJ     LLA         LOAD LCM ADDRESS                            REG      2521
          1513  0100000713 +                      RJ     LLV         LOAD LCM VALUE                              REG      2522
          1514  0400001500 +                      EQ     SLCMPQ                                                  REG      2523
                                                                                                                 FC50131    18
                                        *         HERE IF CA FIELD OVERFLOWS                                     FC50760    16
                                                                                                                 FC50760    17
          1515  43054                    SLD102   MX0    -P2.TAGL                                                FC50760    18
                     20120                        LX1    P2.TAGL                                                 FC50760    19
                          15710                   BX7    -X0*X1                                                  FC50760    20
                               20736              LX7    PB.TAGP                                                 FC50760    21
          1516  12774                             BX7    X7+X4                                                   FC50760    22
                     5170001537 +                 SA7    SLAA                                                    FC50760    23
          1517  6130000011 +                      SB3    RG=LOAD                                                 FC50760    24
                          0100000355 +            CALL   GNR                                                     FC50760    25
          1520  21603                             AX6    3                                                       FC50760    26
                     5160001540 +                 SA6    SLBB        CA LOAD REG                                 FC50760    27
                               43001              MX0    1                                                       FC50760    28
          1521  20015                             LX0    1+P2.SHRTP                                              FC50760    29
                     5120000626 +                 SA2    BIAS                                                    FC50760    30
                               20224              LX2    P2.BIASP                                                FC50760    31
          1522  12502                             BX5    X0+X2                                                   FC50760    32
                     0100000000 X                 CALL   ESC         EXPAND SHORT CONSTANT                       FC50760    33
          1523  7100051000                        SX0    SA=BK                                                   FC50760    34
                          20055                   LX0    PB.INSTP                                                FC50760    35
                               20314              LX3    PB.BIASP    (X3) = BIAS IN T.CON                        FC50760    36
          1524  20136                             LX1    PB.TAGP     (X1) = (S=CON)                              FC50760    37
                     12603                        BX6    X0+X3                                                   FC50760    38
                          5130001540 +            SA3    SLBB        CA LOAD REG                                 FC50760    39
          1525  12761                             BX7    X6+X1                                                   FC50760    40
                     20363                        LX3    PB.IP                                                   FC50760    41
                          12773                   BX7    X7+X3                                                   FC50760    42
          1526  6120001527 +                      WCODE  X7          SA    CON.+K                                FC50760    43
          1527  7120036000                        SX2    IA                                                      FC50760    44
                          20255                   LX2    PB.INSTP    OP-CODE                                     FC50760    45
          1530  5130001311 +                      SA3    AFREG                                                   FC50760    46
                          43071                   MX0    -3                                                      FC50760    47
                               15430              BX4    -X0*X3                                                  FC50760    48
          1531  10344                             BX3    X4                                                      FC50760    49
                     20463                        LX4    PB.IP       I REG                                       FC50760    50
                          12442                   BX4    X4+X2                                                   FC50760    51
                               20360              LX3    PB.JP       J REG                                       FC50760    52
          1532  12243                             BX2    X4+X3                                                   FC50760    53
                     5150001540 +                 SA5    SLBB                                                    FC50760    54
                               20555              LX5    PB.KP       K REG                                       FC50760    55
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    57
        SUBSCRIPT PROCESSING.                                         SLD 
  
          1533  12725                             BX7    X2+X5                                                   FC50760    56
                     6120001535 +                 WCODE  X7          IX    JX + KX                               FC50760    57
          1535  5120001537 +                      SA2    SLAA                                                    FC50760    58
                          10722                   BX7    X2                                                      FC50760    59
          1536  0400001474 +                      EQ     SL.CMP                                                  FC50760    60
                                                                                                                 FC50760    61
          1537                     1     SLAA     BSS    1                                                       FC50760    62
          1540                     1     SLBB     BSS    1                                                       FC50760    63
          1541                     1     ALREGS   BSS    1           LOCAL COPY ALREG                            FC50131    19
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    58
        SNAPS.                                                        REGPRO
  
                                        **        REGPRO - HELP ME DETERMINE IF REGISTERS ARE BEING ASSIGNED     REG      2526
                                        *         CORRECTLY.                                                     REG      2527
                                        *                                                                        REG      2528
                                        *         ENTRY  (B2) = REGISTER BEING CLOBBERED, RESET ETC.             REG      2529
                                        *                (X6) = CALLER NAME IN 3R FORMAT.                        REG      2530
                                        *                                                                        REG      2531
                                        *         EXIT   MESSAGE PRINTED.                                        REG      2532
                                        *                                                                        REG      2533
                                        *         DESTROYS *A1,X1, X6*                                           REG      2534
                                                                                                                 REG      2535
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                REG      2536
                                                                                                                 REG      2537
                                         REGPRO   SUBR               ...ENTRY/EXIT...                            REG      2538
                                                  SA1    CO.SNAP                                                 REG      2539
                                                  LX1    1RH                                                     REG      2540
                                                  PL     X1,REGPROX  IF NOT REQUESTED.                           REG      2541
                                                  SA1    =7L                                                     REG      2542
                                                  BX6    X1+X6                                                   REG      2543
                                                  SA6    REGLNN      CALLER NAME.                                REG      2544
                                         REGFILE  CORE   REGFILE,L.RGFILE                                        REG      2545
                                                  CALL   SVR=                                                    REG      2546
                                                  SA1    SVB+4                                                   REG      2547
                                                  SA2    T.PAR                                                   REG      2548
                                                  SX0    X1                                                      REG      2549
                                                  IX1    X0-X2                                                   REG      2550
                                                  CALL   COD         CONVERT TO DPC                              REG      2551
                                                  SA6    REGLNO                                                  REG      2552
                                                  SA1    SVB+2                                                   REG      2553
                                                  SX1    X1                                                      REG      2554
                                                  CALL   COD         CONVERT TO DPC                              REG      2555
                                                  SA6    REGLNW                                                  REG      2556
                                                  SA1    RGC                                                     REG      2557
                                                  CALL   COD                                                     REG      2558
                                                  SA6    REGRGC                                                  REG      2559
                                                  SA1    RGX                                                     REG      2560
                                                  CALL   COD                                                     REG      2561
                                                  SA6    REGRGX                                                  REG      2562
                                                  PLINE  REGLN,10    PRINT CONTENTS OF RGC, RGX                  REG      2563
                                                  CALL   RSR=                                                    REG      2564
                                                  EQ     REGPRO      CONTINUE                                    REG      2565
                                                                                                                 REG      2566
                                         REGLN    DATA   30H REGISTER REASSIGNMENT -HELP-                        REG      2567
                                         REGLNO   DATA   10H                                                     REG      2568
                                         REGLNW   DATA   10H                                                     REG      2569
                                         REGLNN   DATA   0                                                       REG      2570
                                                  DATA   10H  RGC =                                              REG      2571
                                         REGRGC   DATA   0                                                       REG      2572
                                                  DATA   10H  RGX =                                              REG      2573
                                         REGRGX   DATA   0                                                       REG      2574
                                                                                                                 REG      2575
                                         .TEST    ENDIF                                                          REG      2576
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    59
        SNAPS.                                                        END 
  
                                                  LIST   D                                                       REG      2578
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        T.FPI 
             0 X                        ENT.SB0 
  
                                        CONTENT OF LITERALS BLOCK.
  
          1542  77777777777777400000    ;;;;;;;5
          1543  77777777777774000000    ;;;;;;@ 
          1544  00000000000000400777           5G;
  
          1545                                    END                                                            REG      2579
  
                             75600B CM  STORAGE USED             7244 STATEMENTS     1907 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            6.068 SECONDS        1468 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADDR         1312   PROGRAM*        9/18 S   10/53     49/05 L   54/05     55/37
                                           10/14     33/22     53/47 S   54/46
        ADDRS        1314   PROGRAM*       49/07 L   50/35 S   53/45
        AFREG        1311   PROGRAM*       11/17 S   30/56     52/57 S   54/37     55/26     56/48
                                           28/56     49/04 L   53/35     54/42     56/03 S
        AFSTS        1321   PROGRAM*       49/12 L   51/09 S   52/35     53/19 S
        AIR            25   PROGRAM*        3/31 L    3/31 E   52/04
        AIR1           32   PROGRAM*        3/39      3/42 L
        ALREG        1310   PROGRAM*       11/19 S   28/22     49/03 L   51/32 S   53/33 S   54/32     55/38
                                           26/45     33/39     50/42 S   52/54     54/21     55/31
        ALREGS       1541   PROGRAM*       50/43 S   51/30     57/09 L
        ALTAG        1304   PROGRAM*       49/01 L   53/34 S   53/51     56/10
        ASR            37   PROGRAM*        4/13 L    4/13 E   15/47     26/15     35/28     52/06
        ASRA           60   PROGRAM*        4/40 S    4/44      4/47 L
        ASR1           44   PROGRAM*        4/18      4/20 L
        ASR2           50   PROGRAM*        4/23      4/25      4/29 L
        ASR5           52   PROGRAM*        4/27      4/32 L
        AUT            61   PROGRAM*        5/26 L   47/38
        BIAS          626   PROGRAM*       23/43     28/48     29/50     31/11 L   56/32
                                           28/21 S   29/01     30/28     55/04 S
        BIASF         633   PROGRAM*       28/16 S   28/55 S   29/26     29/51     31/16 L
        B1=1            0 
        CB.TAGL        22   FTX            23/51     23/52
        CB.TAGP        30   FTX            12/12     23/52
        CB.W            1   FTX            23/25
        CDS            71   PROGRAM*        3/38      4/17      6/23 L    6/23 E    7/21     40/56     42/42     50/57
        CDSA          106   PROGRAM*        6/27 S    6/47      7/03 L
        CDS15         100   PROGRAM*        6/33      6/42 L
        CDS20         101   PROGRAM*        6/40      6/44 L
        CIA           110   PROGRAM*        7/20 L    7/20 E   12/56
        CIAA          107   PROGRAM*        7/18 L    7/39     12/55 S   13/01 S
        CIA1          114   PROGRAM*        7/28 L    7/37
        CIA2          115   PROGRAM*        7/26      7/31 L    7/40      7/49
        CIA3          122   PROGRAM*        7/38      7/46 L
        CIW           124   PROGRAM*        6/36      6/42      8/13 L
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        CIWA          142   PROGRAM*        8/40 S    8/44      8/47 L
        CIW10         135   PROGRAM*        8/21      8/28      8/35 L
        CLI           143   PROGRAM*        4/43      8/43      9/10 L    9/10 E   37/26
        CLIA          217   PROGRAM*        9/37 S   11/08     11/32 L
        CLI1          155   PROGRAM*        9/43      9/47 L
        CLI10D        171   PROGRAM*       10/19     10/23 L
        CLI10E        173   PROGRAM*       10/17     10/27 L
        CLI100        207   PROGRAM*        9/49     11/16 L
        CLI11         174   PROGRAM*       10/21     10/25     10/27     10/30 L
        CLI110        214   PROGRAM*       11/22     11/28 L
        CLI15         175   PROGRAM*        9/52     10/37 L
        CLI18A        202   PROGRAM*       10/54     10/57 L
        CLI20         203   PROGRAM*       10/33     11/04 L
        CLI5          163   PROGRAM*        9/53     10/07 L
        CLI90         204   PROGRAM*       11/06 L   11/30
        CLI.X1        220   PROGRAM*        9/20 S   10/05     10/43     11/33 L
        CLI.X3        221   PROGRAM*        9/35 S   10/15     10/42     11/34 L
        CLI.X5        222   PROGRAM*        9/12 S   11/06     11/35 L
        CLI.X6        223   PROGRAM*        9/41 S   10/03     11/36 L
        CLOADJ       1026   PROGRAM*       38/32 D   38/32 E
        CLOADK       1025   PROGRAM*       38/31 D
        CLP           224   PROGRAM*       12/10 L   33/08
        CLR         13000                  35/53
        COD             0   EXTERNAL*       1/49 X
        CO.DBTB         0   EXTERNAL*       1/49 X   12/40
        CO.SNAP         0   EXTERNAL*       1/49 X
        CRJ           231   PROGRAM*       12/39 L   12/39 E
        CRJA          245   PROGRAM*       12/54 S   13/02     13/07 L
        CRJ2          236   PROGRAM*       12/45     12/48 L
        CRJ4          237   PROGRAM*       12/44     12/46     12/52 L
        CRT           246   PROGRAM*       14/41 L   18/34
        CRTTAB        255   PROGRAM*       14/48     15/08 L
        CWI           260   PROGRAM*       15/33 L   15/33 E   41/35
        CWIA          303   PROGRAM*       15/44 S   15/48     15/54     16/27 L
        CWI20         273   PROGRAM*       15/43     16/05 L
        DIT           305   PROGRAM*       16/54 L   16/54 E   55/48
        DIT1          315   PROGRAM*       17/15     17/18 L
        DIT9          322   PROGRAM*       17/53     17/55 L
        DRITE           0   EXTERNAL*       2/04 X    6/24      6/44      8/14     42/31     43/11 S
        DRL          1400                  31/38     33/46
        DSC           324   PROGRAM*       18/31 L   18/31 E
        DSC1          333   PROGRAM*       18/35     18/42     18/51 L
        DSC2          340   PROGRAM*       18/53     19/12 L
        DSC3          345   PROGRAM*       19/10     19/18     19/23     19/25 L
        DSC.LOD       352   PROGRAM*       19/39     19/43 L
        EIS.PNX         0   EXTERNAL*       1/55 X   49/38
        ENT.SB0         0   EXTERNAL*      34/16 S
        EQV         17000                  35/55
        ESC             0   EXTERNAL*       1/52 X   30/02     56/35
        FPREG         513   PROGRAM*       27/26 L   28/46 S   29/42     30/31     30/53
        FP.SUB0P       22   FTX            34/14
        GNR           355   PROGRAM*        9/55     20/19 E   28/29     29/46     35/31     53/09
                                           20/19 L   26/53     29/36     31/29     37/24     56/27
        GNRA          370   PROGRAM*       20/26 S   20/28     20/41 L
        GNR2          361   PROGRAM*       20/24     20/26 L
        GNR5          363   PROGRAM*       20/21     20/30 L
        GNT           375   PROGRAM*        4/32     15/37     21/38 L
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        GNT10         407   PROGRAM*       22/19     22/34 L
        GNT5          404   PROGRAM*       22/14     22/17 L
        GPN           371   PROGRAM*       20/56 L   34/35
        GPT           412   PROGRAM*       12/11     23/11 L
        GPT10         424   PROGRAM*       23/33     23/43 L
        GST           430   PROGRAM*       18/32     24/21 L   24/21 E   32/11     39/32     42/48     51/06     53/16
        GSTC          453   PROGRAM*       24/42 S   25/28 L   25/28 E   43/38     51/07     53/17
        GST1          446   PROGRAM*       24/51     25/08     25/17 L
        GST2          447   PROGRAM*       25/11     25/15     25/20 L
        GTR           454   PROGRAM*       25/45 L   25/45 E
        GTR10         470   PROGRAM*       26/08     26/11     26/20 L
        GTR5          462   PROGRAM*       25/50     26/02 L
        IA          36000                  29/13     30/43     56/46
        IDP=SVA         0   EXTERNAL*       2/01 X
        IDP=SVB         0   EXTERNAL*       2/01 X
        IDP=SVX         0   EXTERNAL*       2/01 X
        IJK             0   EXTERNAL*       1/55 X   40/48
        INS.REG         0   EXTERNAL*       1/55 X   32/18     32/26 S   40/50
        INT.REG      1122   PROGRAM*       40/23 S   41/13     41/22     41/45 L
        INT.TAG      1121   PROGRAM*       40/24 S   41/24     41/44 L
        I.LD0          31   FTX            33/55
        I.RJ3          35   FTX            12/42     12/42
        I.RJ6          36   FTX            12/48
        K.SYM           0   FTX            22/23
        LFP           472   PROGRAM*       26/44 L   54/31
        LFPA          514   PROGRAM*       26/55 S   26/57     27/27 L   32/54 S   33/03
        LFP10         507   PROGRAM*       27/15     27/17 L
        LFP4          500   PROGRAM*       26/51     26/55 L
        LINS          712   PROGRAM*       31/34     32/53 S   33/14 L   33/52 S
        LLA           515   PROGRAM*       11/28     28/14 L   56/14
        LLAA          630   PROGRAM*       28/47 S   29/08 S   30/41     31/13 L
        LLAB          631   PROGRAM*       29/04 S   29/21     29/48 S   30/19     31/14 L
                                           29/09 S   29/39 S   30/09     30/42
        LLAC          632   PROGRAM*       29/54 S   30/03     31/15 L
        LLA10         525   PROGRAM*       28/27     28/32 L
        LLA100        616   PROGRAM*       30/38     30/53 L
        LLA11         532   PROGRAM*       28/39     28/41     28/45 L
        LLA110        623   PROGRAM*       30/57     31/06 L
        LLA13         536   PROGRAM*       28/52     28/54 L
        LLA14         560   PROGRAM*       29/27     29/35 L
        LLA14A        561   PROGRAM*       29/30     29/33     29/38 L
        LLA15         563   PROGRAM*       29/42 L   30/29
        LLA30         567   PROGRAM*       29/24     29/40     29/50 L
        LLA40         600   PROGRAM*       29/52     30/15 L
        LLA50         604   PROGRAM*       29/03     30/28 L
        LLA90         611   PROGRAM*       29/05     30/13     30/24     30/40 L
        LLB           634   PROGRAM*       28/45     31/27 L
        LLB10         701   PROGRAM*       33/03 L   33/09
        LLB20         703   PROGRAM*       32/57     33/08 L
        LLB8          673   PROGRAM*       32/24     32/30     32/32     32/42     32/44 L
        LLB9          676   PROGRAM*       31/35     31/37     31/43     31/49     31/51     31/53     32/51 L
        LLSV          705   PROGRAM*       31/55 S   32/44     33/11 L
        LLV           713   PROGRAM*       11/29     33/21 L   56/15
        LLVTAG        740   PROGRAM*       33/33 S   34/07     34/20 L
        LLV20         730   PROGRAM*       33/44     33/55 L
        LPA           741   PROGRAM*       10/13     26/56     33/01     34/30 L
        LPA10         746   PROGRAM*       34/38     34/41 L
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        LSC           751   PROGRAM*       35/15 L   35/15 E
        LSCA         1000   PROGRAM*       35/23 S   35/34     36/22 L
        LSC10         760   PROGRAM*       35/25     35/27     35/31 L
        LSC20         761   PROGRAM*       35/29     35/33 L
        LSC21         765   PROGRAM*       35/42     35/44 L
        LSC22         770   PROGRAM*       35/45     35/52 L
        LSC24         772   PROGRAM*       35/54     35/56 L
        LSC30         773   PROGRAM*       35/46     35/48     35/52     36/08 L
        LTG          1002   PROGRAM*       37/18 L   37/18 E   51/23
        LTGA         1007   PROGRAM*       37/23 S   37/25     37/30 L
        L.RGFILE       30                   7/22
        MAX.USEC      777                  32/19     38/20
        M.DBL           4   FTX            17/12
        NOLDS           0   EXTERNAL*       2/04 X   56/02
        N.ST            0   EXTERNAL*       2/07 X   21/44
        N.TABLE         0   EXTERNAL*       2/07 X
        OP.CHINL        6                  35/16
        OP.CHINP       26                  35/18
        OP.LTOTP       11                  25/26
        OP.SKELL       16                  44/31
        OP.UTOTL       11                   5/40      5/42      5/49     17/05     17/42
        OP.UTOTP        0                  25/25
        OP.2MODL        3                  17/02     17/06
        OP.2MODP       22                  17/06     17/11
        OP.2ORDL       16                  17/20     17/21
        OP.2ORDP       34                  17/20
        OR.OPR          0   FTX            16/56     35/17
        OR.1OP          1   FTX            44/48     44/54     51/38     53/30
        OR.2OP          2   FTX            44/20     44/25     44/33     50/36     53/12
        O=PAR        1322   PROGRAM*       49/29 L   49/29 E
        O.=            41   FTX            35/26
        PB.BIASL       22   FTX             9/21     16/11     27/10     30/15     36/08     55/09
        PB.BIASP       14   FTX             9/34     16/14     30/06     34/41     55/14
                                           12/49     27/18     30/17     36/12     56/38
        PB.GHIJP       60   FTX            12/43     12/49     12/53     34/01
        PB.GHL          6   FTX            31/39
        PB.H2P          0   FTX            33/56
        PB.IL           3   FTX            31/39
        PB.INSTL       17   FTX            31/44
        PB.INSTP       55   FTX             8/25     12/15     29/16     30/44     33/48     43/54     56/37
                                           10/30     15/52     30/05     31/41     34/42     52/24     56/47
                                           10/49     16/19     30/20     32/41     36/09     54/51
                                           11/01     27/19     30/36     33/45     41/19     55/07
        PB.IP          63   FTX            29/15     30/11     30/21     30/32     30/45     33/45     56/43     56/52
        PB.JL           3   FTX            31/45     31/46     32/38
        PB.JP          60   FTX            29/12     30/33     30/47     33/47     56/54
        PB.KL           3   FTX            31/46     32/22     32/38
        PB.KP          55   FTX            29/11     30/48     33/49     56/57
        PB.TAGP        36   FTX            10/49     12/43     30/07     55/17     56/39
                                           12/12     16/18     34/08     56/23
        P2=KEEP      1542   PROGRAM*        2/22 E    8/36     51/20
        P2.ADDRM     4000                  55/40
        P2.ADDRP       13                   9/16     50/31
        P2.ARRM     20000                  55/41
        P2.ARRP        15                   4/24     40/10     44/22     44/39     45/01
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        P2.BIASL       30                   2/23     22/34     28/49     35/44     50/21     55/05
                                            5/37     23/44     28/51     44/44     50/22     55/06
                                           22/20     28/17     35/40     44/45     54/56
        P2.BIASP       24                   2/23      9/34     22/10     27/12     37/21     53/52     56/12
                                            5/32     16/12     22/22     28/19     43/22     55/01     56/33
                                            5/38     16/14     22/34     29/57     44/44     55/10
                                            9/22     17/24     22/40     35/40     50/21     55/12
        P2.FPP         22                   9/50     28/38     32/56     54/12
        P2.INTRP       12                   4/22      5/29     39/51     44/37     44/56     46/53     52/43
                                            4/24      5/32     40/10     44/39     45/01     51/16
        P2.LCMP        23                   9/48      9/50     48/31     51/25     51/39     54/10     54/29
        P2.LONGP       21                  17/18     21/50     25/06
        P2.ORDL        15                  10/37     10/38
        P2.ORDP        54                  10/38
        P2.PFXL         3                  10/46
        P2.SHRTP       14                  29/56     56/31
        P2.TAGL        20                   2/23     21/48     22/34     33/26     44/24     56/20
                                           16/15     22/18     24/22     34/32     55/13     56/21
        P2.TAGP        54                   2/23     16/16     17/39     22/17     22/34     24/24     34/31
                                           10/49     16/18     21/47     22/18     23/15     24/39     34/34
                                           12/41     17/24     21/50     22/26     23/17     33/29     55/12
        P2.USEL        11                  17/42     25/06     48/02     48/10     48/13
        P2.USEP         0                  25/06
        P2.2ATRL        3                   2/23
        P2.2ATRP       21                   2/23
        REGE         1256   PROGRAM*       31/36     32/04     45/41     45/44 S   46/35 S   47/04 L
        REGFILE         0   RGFILE          3/49      8/22     25/04     37/49     39/08     43/07 S   46/51     52/15 S
                                            4/20     15/36 S   25/12     37/51     39/23     43/16     48/01
                                            4/38     19/06     26/02     38/14     40/37     46/09     48/30 S
                                            6/50     19/17 S   26/03     38/25     40/41     46/30     48/34 S
                                            7/32     20/34     31/50     39/06     40/57     46/45     51/14
        REGLK        1024   PROGRAM*       32/27     32/33 S   38/30 L   38/30 E   38/31     38/32
        REG=            0   EXTERNAL*       2/01 X
        REG.A          10                   3/07     19/19     25/12     39/08     48/24     52/15 S
                                            8/22     20/33     37/51     42/50     48/30 S   53/29
                                           19/12     25/09     38/25     43/04     51/41
        REG.B           0                   3/04
        REG.X          20                   3/05      3/10     16/08     31/50     37/49     48/30 S   52/15 S
                                            3/06      8/32     19/19     32/16     38/14     51/14     53/29
                                            3/08      8/42     20/33     32/25     39/05     51/29     54/24
                                            3/09     15/41     25/12     32/36     43/04     51/41     54/35
        RGC             0   EXTERNAL*       2/04 X
        RGX             0   EXTERNAL*       2/04 X    3/47      4/26     20/22     25/49     46/02 S   46/57 S
        RG=BADR         0   PROGRAM*        3/04 E    3/04 L   19/45     27/05     27/05     35/37
        RG=INTR         3   PROGRAM*        3/05 E    3/05 L    3/32
        RG=LOAD        11   PROGRAM*        3/07 E    3/42     19/44     26/52     29/45     51/03     53/13
                                            3/07 L    9/54     20/30     29/35     31/28     53/08     56/26
        RG=LODX        14   PROGRAM*        3/08 E    3/08 L   19/26     19/46     43/45
        RG=SET         17   PROGRAM*        3/09 E    3/09 L   28/28     29/28
        RG=STOR        22   PROGRAM*        3/10 E    3/10 L    4/14     29/31     40/22
        RG=TEMP         6   PROGRAM*        3/06 E    3/06 L   25/46
        RG.TYPP        20                  21/41     21/47     32/07     39/28     42/33     42/38     47/54
        RG.USEL        11                   3/46      6/51      8/17     20/35     38/18     43/14     46/44
                                            5/42      7/23      8/27     25/14     39/10     46/04     51/18
                                            5/49      7/47     19/22     26/05     41/04     46/27
        RLL          1010   PROGRAM*       11/26     29/25     32/17     37/47 E   52/03     54/20
                                           28/43     29/44     37/47 L   50/54     52/53     54/25
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        RLOCK         400                  19/07     26/04     37/48     37/48     38/12     38/12     46/19     48/06
        RREG            0   EXTERNAL*       2/04 X    6/32      6/37     18/36     35/22     45/56     50/37     53/01 S
        RSR=            0   EXTERNAL*       2/01 X
        RS.INSL         6                   3/04      3/05      3/06      3/07      3/08      3/09      3/10
        RS.MSKL        22                   3/04      3/05      3/06      3/07      3/08      3/09      3/10     46/22
        RS.MSKP        44                  46/18
        RS.NUML        22                   3/04      3/05      3/06      3/07      3/08      3/09      3/10     46/15
        RS.NUMP        22                  45/57     46/18
        RS.TYPL        22                   3/04      3/05      3/06      3/07      3/08      3/09      3/10
        RUL          1015   PROGRAM*       30/55     31/08     38/11 E   53/43     54/41
                                           31/04     38/11 L   53/07     54/36
        RUL1         1022   PROGRAM*       38/22     38/25 L
        RUT          1036   PROGRAM*        4/29      7/46     20/27     20/38     25/52     26/20     39/18 L   39/18 E
        RUTA         1115   PROGRAM*       38/54     39/21 S   41/33 S   41/36     41/42 L
        RUT20        1053   PROGRAM*       39/52     40/04 L
        RUT25        1055   PROGRAM*       40/11     40/17 L
        RUT25A       1064   PROGRAM*       40/34 L   40/52
        RUT25B       1067   PROGRAM*       40/35     40/40 L
        RUT25C       1070   PROGRAM*       40/38     40/43 L
        RUT26        1072   PROGRAM*       40/31     40/32     40/48 L
        RUT26A       1075   PROGRAM*       40/27     40/49     40/54 L
        RUT27        1103   PROGRAM*       40/43     40/55     41/01     41/11 L
        RUT28        1111   PROGRAM*       40/20     41/31 L
        RUT35        1035   PROGRAM*       39/07     39/11     39/13 L
        RUT5         1042   PROGRAM*       39/25 L   40/46     41/03     41/07
        RUT6         1047   PROGRAM*       39/35     39/44 L
        RUT.ADR      1120   PROGRAM*       39/24 S   39/33     40/44 S   41/02 S   41/34 S   41/37     41/43 L
        RUT.REG         0   EXTERNAL*       1/55 X    7/25 S   40/26
        RUT.TYP      1123   PROGRAM*       39/31 S   39/44     41/46 L
        RUT.X        1030   PROGRAM*       38/54 L   39/22     41/21
        R.B1            1                   3/04      3/04
        R.B2            2                   3/04      3/04
        R.B3            3                   3/04      3/04
        R.B4            4                   3/04      3/04
        R.B5            5                   3/04      3/04
        R.X0           20                   3/05      3/05      3/06      3/06      3/09      3/09
        R.X1           21                   3/06      3/06      3/07      3/07      3/08      3/08      3/09      3/09
        R.X2           22                   3/06      3/06      3/07      3/07      3/08      3/08      3/09      3/09
        R.X3           23                   3/06      3/06      3/07      3/07      3/08      3/08      3/09      3/09
        R.X4           24                   3/06      3/06      3/07      3/07      3/08      3/08      3/09      3/09
        R.X5           25                   3/06      3/06      3/07      3/07      3/08      3/08      3/09      3/09
        R.X6           26                   3/05      3/10     15/42     26/47     32/25     40/34     53/02
                                            3/05      9/42     18/52     32/12     32/36     40/40     54/22
                                            3/10     11/21     26/02     32/16     40/17     50/45     54/33
        R.X7           27                   3/05      3/05      3/10      3/10     26/03     40/36
        SAVEB2       1316   PROGRAM*       49/09 L   51/36     52/07     53/11 S   53/27
        SAVEB4       1305   PROGRAM*       49/02 L   50/23 S   55/52
        SAVEX1       1320   PROGRAM*       49/11 L   54/19 S   54/27
        SA=AB       54000                   8/23     15/09     34/39
        SA=AK       50000                  34/37     50/33
        SA=BB       56000                  54/48
        SA=BK       51000                   3/07     10/52     12/13     16/10     30/04     53/40     56/36
        SA=XB       53000                  10/28     54/45
        SA=XK       52000                  10/16     10/18     10/20     53/42
        SB=BB       66000                  15/08     35/47
        SB=BK       61000                   3/04     35/43
        SB=XB       63000                  15/09     15/10     27/16
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        SB=XK       62000                  27/13
        SDS          1126   PROGRAM*       42/28 L   42/28 E
        SDSA         1221   PROGRAM*       42/20     42/34 S   43/10     43/43 S   43/48     43/56     45/14 L
        SDSX2        1217   PROGRAM*       44/18 S   45/07     45/11 L
        SDSX5        1220   PROGRAM*       44/16 S   45/08     45/12 L
        SDS10        1135   PROGRAM*       42/40     42/41     42/46 L
        SDS12        1143   PROGRAM*       43/01     43/07 L
        SDS15        1144   PROGRAM*       42/53     43/10 L
        SDS16        1153   PROGRAM*       43/27     43/29 L
        SDS20        1155   PROGRAM*       43/26     43/33 L
        SDS22        1161   PROGRAM*       43/41     43/43 L
        SDS32        1173   PROGRAM*       43/28     43/42     44/14 L
        SDS34        1200   PROGRAM*       44/27 L   44/35     44/52     44/57     45/02     45/05
        SDS35        1201   PROGRAM*       44/30 L
        SDS38        1205   PROGRAM*       44/42 L
        SDS40        1211   PROGRAM*       44/38     44/40     44/54 L
        SDS42        1215   PROGRAM*       44/23     44/28     45/07 L
        SDS.X        1124   PROGRAM*       42/20 L   43/31     43/40     43/47     44/07     44/51
        SETREG        627   PROGRAM*       28/36 S   29/06     29/20     30/30     30/40     31/06     31/12 L   33/41
        SFR          1227   PROGRAM*        3/33      4/15     25/47     29/29     40/25     45/53 L
                                            3/43     20/20     27/06     29/32     43/46     45/53 E
        SFRA         1255   PROGRAM*       45/49     46/20 S   47/03 L
        SFR10        1243   PROGRAM*       46/33 L   46/48
        SFR12        1246   PROGRAM*       46/37     46/42 L   46/54     46/55     47/01
        SFR5         1236   PROGRAM*       46/03     46/14 L
        SFR.X        1223   PROGRAM*       45/41 L   46/40     46/42
        SLAA         1537   PROGRAM*       56/25 S   57/03     57/07 L
        SLBB         1540   PROGRAM*       56/29 S   56/41     56/56     57/08 L
        SLCMPQ       1500   PROGRAM*       55/37 L   56/16
        SLD          1323   PROGRAM*       50/15 L   50/15 E
        SLD1         1332   PROGRAM*       50/32     50/35 L
        SLD100       1511   PROGRAM*       54/30     56/10 L
        SLD102       1515   PROGRAM*       55/08     56/20 L
        SLD15        1342   PROGRAM*       50/46     50/57 L
        SLD2         1354   PROGRAM*       51/11     51/20 L   53/25
        SLD21        1362   PROGRAM*       51/26     51/34 L
        SLD23        1366   PROGRAM*       51/40     51/43 L
        SLD25        1372   PROGRAM*       52/05     52/07 L
        SLD3         1401   PROGRAM*       51/17     51/19     51/35     51/43     52/35 L
        SLD31        1406   PROGRAM*       52/44     52/47 L
        SLD32        1416   PROGRAM*       53/03     53/08 L
        SLD35        1426   PROGRAM*       53/21     53/27 L
        SLD4         1435   PROGRAM*       53/41     53/44 L
        SLD40        1445   PROGRAM*       54/11     54/18 L
        SLD42        1452   PROGRAM*       54/23     54/27 L
        SLD44        1457   PROGRAM*       54/34     54/37 L
        SLD6         1464   PROGRAM*       54/47     54/49 L
        SLD8         1466   PROGRAM*       54/13     54/56 L
        SL.CMP       1474   PROGRAM*       54/52     55/26 L   57/05
        SL.CMP0      1502   PROGRAM*       55/39     55/41 L
        SNP=            0   EXTERNAL*       2/01 X
        STATUS        451   PROGRAM*        5/33     16/55     24/41     25/25 L   47/40
        STORE        1313   PROGRAM*        9/14 S    9/45 S   28/23     28/40     33/43     49/06 L   53/50 S
        STORES       1315   PROGRAM*       49/08 L   50/30 S   50/56 S   53/48
        STRGLK       1027   PROGRAM*       19/05 S   38/33 L   38/33 E
        STS          1257   PROGRAM*       17/54     32/15     43/29     44/06     47/36 L   47/36 E   52/48
        STSA         1276   PROGRAM*       48/17     48/21 L
1       REG - (QCG)    RESOURCE ALLOCATION.                           COMPASS 3.7-871.     24/05/02. 13.18.22.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        STS1         1277   PROGRAM*       48/05     48/08     48/11     48/19     48/24 L
        STS2         1303   PROGRAM*       48/28     48/34 L
        ST.LREGP        6                  25/26
        ST.LSTP        17                  25/26
        ST.STATP       16                  22/36     39/47     42/56
        ST.UREGL        6                  24/49     24/50     47/48
        ST.UREGP        0                  25/25
        ST.USTP        16                  25/25
        SVB             0   EXTERNAL*       2/01 X
        SVB2          711   PROGRAM*       32/10 S   32/13     33/13 L
        SVR=            0   EXTERNAL*       2/01 X
        SVX2          710   PROGRAM*       32/03 S   32/21     32/35     33/12 L
        SX=AK       70000                  50/33
        SX=BB       76000                  15/08
        SX=BK       71000                   3/08      3/10     10/55     30/18     35/41
        SX=XK       72000                   3/05      3/06      3/09     10/20
        S=ST            0   EXTERNAL*       2/07 X   22/21
        TEST            0   FTX            17/44 F   21/13 F   24/29 F   49/30 F   58/11 F
                                           21/03 F   22/42 F   40/06 F   51/50 F
        TG.ORDL        15   FTX            23/14
        TP.ORBIL       50   FTX            28/50
        TRIP         1317   PROGRAM*       49/10 L   51/02 S   51/34     52/42     53/22
        TYPLOD          0   EXTERNAL*       2/04 X   50/44 S   53/44     55/42     56/11
        T=SYM           0   EXTERNAL*       2/07 X
        T.BLKS          0   EXTERNAL*       2/07 X   23/21
        T.FPI           0   EXTERNAL*      34/10
        T.OUS           0   EXTERNAL*       2/07 X   17/04     21/40     24/23     25/29
        T.PAR           0   EXTERNAL*       2/07 X    5/31     17/09     44/43     50/18     55/55
        T.SYM           0   EXTERNAL*       2/07 X   21/09     23/12     33/23
        UUC             0   EXTERNAL*       2/04 X   47/37     48/25     52/39     52/46 S   52/50 S
        V=STR.I         0   EXTERNAL*       2/10 X   44/34
        WB.BASEL       14   FTX            23/32
        WB.BASEP       41   FTX            23/34
        WB.EQVL         1   FTX            23/31
        WB.EQVP        11   FTX            23/31     23/34
        WB.FPNOL       11   FTX            21/12
        WB.FPNOP       41   FTX            21/18
        WB.FPOL        11   FTX            34/02
        WB.FPOP        41   FTX            34/03
        WB.LEVNL        2   FTX            33/35
        WB.LEVNP       55   FTX            33/37
        WB.W            1   FTX            21/10     23/30     33/28
        WC.RAL         30   FTX            23/24     23/26     23/39     23/40
        WC.RAP          0   FTX            23/24     23/39
        WC.RBL         12   FTX            23/27
        WC.RBP         60   FTX            23/28
        WC.W            2   FTX            23/13     23/30
        WIN             0   EXTERNAL*       2/04 X   12/17     16/22     30/13     30/51     34/18     41/20     55/35
                                            8/29     13/04     27/22     30/24     32/42     34/44     43/55     56/45
                                           11/04     15/53     29/19     30/38     33/53     36/14     52/26     57/02
        WOF             0   EXTERNAL*       2/07 X
        XMT         10000                  10/23     15/50     30/34     41/18     52/23
                                           15/10     19/29     32/37     43/50
        Z=SYM           3   FTX            21/02     23/20
        Z=TURP          3   FTX            44/27     49/37
        .DAL            1   FTX            33/25 F
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1613              IDENT  GEN
                       1613                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1611 
                                        LITERALS* LOCAL        1611         2 
                                        RGFILE    COMMON          0        30 
  
  
                                        ENTRY POINTS. 
  
                                        B=GEN            0+           O=CDCS         550+           O=FINX        1215+ 
                                        EIS              0+           O=CDDOT        552+           O=GFD         1341+ 
                                        EIS.PNX         12+           O=CDLOO        554+           O=HDR         1372+ 
                                        SUB.RET         17+           OCIOL          560+           O=DATA        1430+ 
                                        NULLOP         125+           O=ENT          561+           O=ILL         1443+ 
                                        O=NOOP         125+           O=GENT         571+           O=LCC         1444+ 
                                        O=BVD          125+           O=GENTX        573+           O=PLIM        1450+ 
                                        O=HSBS         125+           O=FPENT        610+           O=RGT         1500+ 
                                        O=HCAT         125+           O=FPHDR        645+           O=SEX         1507+ 
                                        O=HCOL         125+           ISA            647+           O=IM          1557+ 
                                        CURSK          136+           O=EVD         1065+           O=ID          1560+ 
                                        EIS.GP         213+           O=FUNT        1072+           O=MASK        1561+ 
                                        INS.REG        457+           O=MENT        1103+           O=MOD         1562+ 
                                        IJK            461+           ENT.EGL       1135+           O=SHIFT       1563+ 
                                        RUT.REG        466+           ENT.STO       1136+           O=DOB         1564+ 
                                        O=CAR          523+           ENT.SUB       1137+           O=DOBZ        1565+ 
                                        O=CBJ          525+           ENT.SB0       1140+           O=DOC         1570+ 
                                        O=CDW          530+           ENT.VD        1141+           O=PDE         1573+ 
                                        O=PLA          537+           N.ALTEN       1142+           O=PCG         1574+ 
                                        O=CRJ          542+           O=FIN         1200+           O=PASG        1602+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       BN=FMT    S=EXIT    T=FPI     ITS       W=DFENT   DIT       SLD 
                                        ALC       BN=IOAP   S=FID     T=LA      PIG       W=FUNT    DSC       STRGLK
                                        ALC.CAI   BN=NLST   S=FILES   T=PAR     POS       W=IDV     GNR       STS 
                                        ALC.REG   BN=STRT   S=GPL     T=VDI     RED       W=IMV     GSTC      MVE=
                                        ALC.00    BN=SUB    S=LA      T=VDIM    REG=G     W=MASKV   GTR       S=BUF 
                                        REG=T     BN=TEM    S=LENP    T.DATS    RGC       W=MFPNT   LSC       N.BUF 
                                        ESTACK    LEVEL0    S=SA1     T.DIM     RGX       W=MODG    LTG       CO.STAT 
                                        CO.DBER   MOD       S=SPA     T.ENTP    RREG      W=PROM    P2=KEEP   N.ST
                                        CO.DBID   NARGS     S=SUB     T.FPI     TRACE     W=PROS    REGLK     N.STMAX 
                                        CO.LL     N.ARP     S=SUBI    T.LA      TYPLOD    W=SHIFV   RG=INTR   S=SLI 
                                        CO.SNAP   N.CON     S=SUB0I   T.PAR     UUC       W=TENT    RG=LOAD   ENTRJ 
                                        UAP       N.EPL     S=TA0     T.SYM     WIN       W=TMENT   RG=LODX   CLI 
                                        IDP=SVB   N.FP      S=TRACE   T.VDI     WTE       AIR       RG=STOR   GST 
                                        IDP=SVX   N.GL      S=UPW     T.VDIM    F.SCT     ASR       RG=TEMP   SFR 
                                        REG=      S=AEXIT   S=VALUE   WO.CS     F.SKEL    CDS       RLL 
                                        BN=APL    S=CP      T=CON     WO.DOOT   V=BSS     CIA       RUL 
                                        BN=CODE   S=CPL     T=DATS    S=SA0     V=NOOP    CLOADJ    RUT 
                                        BN=CON    S=ENTRY   T=ENTP    DRITE     W=ALENT   CRJ       SDS 
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     2
  
  
                                                  IDENT  GEN                                                     GEN         2
                                         GEN      SECT   ((QCG)    QUICK CODE GENERATOR.)                        GEN         3
  
  
  
  
  
                                        *         IN ALLOC                                                       GEN         5
                                                  EXT    ADW,ALC,ALC.CAI,ALC.REG,ALC.00                          GEN         6
                                                                                                                 GEN         7
                                        *         IN CONRED                                                      GEN         8
                                                  EXT    REG=T                                                   GEN         9
                                                                                                                 GEN        10
                                        *         IN FEC                                                         GEN        11
                                                  EXT    ESTACK                                                  GEN        12
                                                                                                                 GEN        13
                                        *         IN FTN                                                         GEN        14
                                                  EXT    CO.DBER,CO.DBID,CO.LL,CO.SNAP                           GEN        15
                                                                                                                 GEN        16
                                        *         IN FUN                                                         GEN        17
                                                  EXT    UAP                                                     GEN        18
                                                                                                                 GEN        19
                                        *         IN IDP                                                         GEN        20
                                                  EXT    IDP=SVB,IDP=SVX,REG=                                    GEN        21
                                                                                                                 GEN        22
                                        *         IN PUC                                                         GEN        23
                                                  EXT    BN=APL,BN=CODE,BN=CON,BN=FMT,BN=IOAP,BN=NLST,BN=STRT    GEN        24
                                                  EXT    BN=SUB,BN=TEM,LEVEL0,MOD,NARGS,N.ARP,N.CON,N.EPL,N.FP   GEN        25
                                                  EXT    N.GL,S=AEXIT,S=CP,S=CPL,S=ENTRY,S=EXIT,S=FID,S=FILES    GEN        26
                                                  EXT    S=GPL,S=LA,S=LENP,S=SA1,S=SPA,S=SUB,S=SUBI,S=SUB0I      GEN        27
                                                  EXT    S=TA0,S=TRACE,S=UPW,S=VALUE,T=CON,T=DATS,T=ENTP,T=FPI   GEN        28
                                                  EXT    T=LA,T=PAR,T=VDI,T=VDIM,T.DATS,T.DIM,T.ENTP,T.FPI,T.LA  GEN        29
                                                  EXT    T.PAR,T.SYM,T.VDI,T.VDIM,WO.CS,WO.DOOT                  GEN        30
                                                  EXT    S=SA0                                                   FC5A436    19
                                                                                                                 GEN        31
                                        *         IN QCGC                                                        GEN        32
                                                  EXT    DRITE,ITS,PIG,POS,RED,REG=G,RGC,RGX,RREG,TRACE,TYPLOD   GEN        33
                                                  EXT    UUC,WIN,WTE                                             GEN        34
                                                                                                                 GEN        35
                                        *         IN QSKEL/FSKEL                                                 FC5A337    19
                                                  EXT    F.SCT,F.SKEL,V=BSS,V=NOOP,W=ALENT,W=DFENT,W=FUNT,W=IDV  FC5A337    20
                                                  EXT    W=IMV,W=MASKV,W=MFPNT,W=MODG,W=PROM,W=PROS,W=SHIFV      GEN        38
                                                  EXT    W=TENT,W=TMENT                                          GEN        39
                                                                                                                 GEN        40
                                        *         IN REG                                                         GEN        41
                                                  EXT    AIR,ASR,CDS,CIA,CLOADJ,CRJ,DIT,DSC,GNR,GSTC,GTR,LSC     GEN        42
                                                  EXT    LTG,P2=KEEP,REGLK,RG=INTR,RG=LOAD,RG=LODX,RG=STOR       GEN        43
                                                  EXT    RG=TEMP,RLL,RUL,RUT,SDS,SLD,STRGLK,STS                  GEN        44
                                                                                                                 GEN        45
                                        *         IN UTILITY                                                     GEN        46
                                                  EXT    MVE=                                                    GEN        47
                                                                                                                 GEN        48
                                                  LIST   -X                                                      GEN        49
                                                                     COMAQCG IS LISTED IN QCGC                   GEN        50
             0                                    CTEXT  COMAQCG - MACROS FOR THE QUICK CODE GENERATOR.          COMAQCG     2
                                                                     COMSEIS IS LISTED IN QSKEL                  GEN        52
             0                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     3
                                                                      GEN 
  
                                                                     COMSQCG IS LISTED IN QCGC                   GEN        54
             0                                    CTEXT  COMSQCG - STRUCTURE DECLARATIONS FOR QUIK CODE GEN.     COMSQCG     2
                                                                     COMSQRF IS LISTED IN QCGC                   GEN        56
             0                                    CTEXT  COMSQRF - QCG REGISTER ASSOCIATES.                      COMSQRF     2
                                                                     DEFINS IS LISTED IN QSKEL                   GEN        58
             0                                    CTEXT  DEFINS - DEFINE MACHINE OPCODES.                        DEFINS      2
                                                  LIST   *                                                       GEN        60
  
  
  
  
                                        **        ISSUE - ISSUE OPERATION OR PSEUDO TO PB.                       GEN        62
                                        *                                                                        GEN        63
                                        *         ISSUE  OP,TAG,RETURN                                           GEN        64
                                        *                                                                        GEN        65
                                        *         ENTRY  *OP* = OPERATION CODE FOR (PB.GHIJ).                    GEN        66
                                        *                            (X7 IS NATURAL REGISTER)                    GEN        67
                                        *                *TAG* = VALUE FOR (PB.TAG).                             GEN        68
                                        *                        IF PROPERLY POSITIONED, A BIAS VALUE CAN        GEN        69
                                        *                        ALSO BE PRESENT IN THE REGISTER.                GEN        70
                                        *                        BE CAREFUL.                                     GEN        71
                                        *                            (X1 IS NATURAL REGISTER)                    GEN        72
                                        *                *RETURN* = OPTIONAL RETURN ADDRESS.                     GEN        73
                                        *                *RETURN* OMITTED = CONTINUE IN LINE.                    GEN        74
                                        *                            (B2 IS NATURAL REGISTER)                    GEN        75
                                        *                                                                        GEN        76
                                        *         CALLS  WCODE.                                                  GEN        77
                                                                                                                 GEN        78
                                                                                                                 GEN        79
                                         ISSUE    MACRO  OP,TG,RET                                               GEN        80
                                                  =X7    OP                                                      GEN        81
                                                  LX7    PB.GHIJP                                                GEN        82
                                        *                                                                        GEN        83
                                                  IFC    NE,/TG//,3                                              GEN        84
                                                  =X1    TG                                                      GEN        85
                                                  LX1    PB.TAGP                                                 GEN        86
                                                  BX7    X7+X1                                                   GEN        87
                                        *                                                                        GEN        88
                                                  WCODE  X7,RET                                                  GEN        89
                                                  ENDM                                                           GEN        90
                                                                                                                 GEN        91
                                         O$       MICRO  1,,/T./                                                 GEN        92
                                         L$       MICRO  1,,/T=/                                                 GEN        93
                                         BT       MICRO  1,,/B6/                                                 GEN        94
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     4
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS 
  
                                        **        EIS -  EXPAND INSTRUCTION SKELETON.                            GEN        97
                                        *                                                                        GEN        98
                                        *         HEART OF PASS TWO PROCESSING.  *EIS* USES THE PARSED FILE,     GEN        99
                                        *         BUILT DURING PASS ONE AS A PSEUDO- MICRO PROGRAMMING FILE TO   GEN       100
                                        *         GENERATE OBJECT CODE FOR THE CURRENT SEQUENCE.  EACH TURPLE    GEN       101
                                        *         IS EXPANDED USING THE OR.OPR WORD AS THE ADDRESS FOR THE       GEN       102
                                        *         SKELETON.  AS EACH PORTION OF THE INSTRUCTION IS PROCESSED     GEN       103
                                        *         *EIS* KEEPS TRACK OF REGISTERS USED, TYPE OF USAGE, OP-CODES   GEN       104
                                        *         AND SEQUENCE BREAKS WITHIN THE PASS ONE FILE.                  GEN       105
                                        *                                                                        GEN       106
                                        *                                                                        GEN       107
                                        *         SPECIAL CASING IS DONE WHEN THE OP-CODE FOR A GIVEN EXPANSION  GEN       108
                                        *         DEFINES EITHER A LOAD OR STORE OPERATION.  AFTER THE J PORTION GEN       109
                                        *         OF A LOAD INSTRUCTION IS SET INTO *INS.REG*, EIS LOOKS AT THE  GEN       110
                                        *         TYPE OF REGISTERS USED TO DETERMINE WHAT TYPE OF LOAD          GEN       111
                                        *         INSTRUCTION IS TO BE COMPILED.  IN DOING THIS, *EIS* MIGHT     GEN       112
                                        *         HAVE TO INSERT SPECIAL SEQUENCES OF SKELETONS TO GET THE       GEN       113
                                        *         REGISTERS SET-UP CORRECTLY FOR ADDRESS GENERATION.             GEN       114
                                        *                                                                        GEN       115
                                        *         CURRENTLY THERE ARE FOUR MAJOR ROUTES *EIS* MAY TAKE           GEN       116
                                        *         1.  NON-STANDARD PROCESSORS                                    GEN       117
                                        *             EXTERNAL PROCESSOR MUST BE CALLED TO EXPAND CURRENT        GEN       118
                                        *             SKELETON.                                                  GEN       119
                                        *         2.  A RESET OF SKELETON                                        GEN       120
                                        *             CURRENT SKELETON USES ANOTHER SKELETON TO COMPLETE         GEN       121
                                        *             EXPANSION OF CURRENT TURPLE.                               GEN       122
                                        *         3.  A CALL DURING SKELETON EXPANSION                           GEN       123
                                        *             SUB-PROCESS INSIDE SKELETON REQUIRES A SPECIAL PROCESSOR   GEN       124
                                        *             TO HANDLE SUB-FUNCTION OF TURPLE.                          GEN       125
                                        *         4.  A USE OF ANOTHER SKELETON FOR A SUB-PROCESS OF CURRENT     GEN       126
                                        *             TURPLE.                                                    GEN       127
                                        *             CURRENT TURPLE IS PARTIAL DEFINED BY ANOTHER SKELETON.     GEN       128
                                        *                                                                        GEN       129
                                        *         ENTRY  (B4) _ 1ST PARSED TURPLE.                               GEN       130
                                        *                                                                        GEN       131
                                        *         EXIT   CODE COMPILED FOR PARSED FILE.                          GEN       132
                                        *                                                                        GEN       133
                                        *         --------------- L O C K  -  R E G I S T E R S --------------   GEN       134
                                        *                                                                        GEN       135
                                        *                       B4 _ POINTS TO CURRENT TURPLE.                   GEN       136
                                        *                       A4,X4 = CURRENT INSTRUCTION SKELETON.            GEN       137
                                        *                                                                        GEN       138
                                        *         NO ROUTINE INTERNAL TO *EIS* MAY DESTROY ABOVE REGISTERS.      GEN       139
                                        *         ------------------------------------------------------------   GEN       140
                                                                                                                 GEN       141
                                                                                                                 GEN       142
             0                           O=EISX   BSS    0           LAST SKELETON                               GEN       143
                                                                                                                 GEN       144
             0  0400400000 +             EIS      SUBR   =           ENTRY/EXIT...                               GEN       145
             1  7160000005                        SX6    R.X5-R.X0                                               GEN       146
                          43773                   MX7    -1                                                      GEN       147
             2  5160000000 X                      SA6    RGX         INITIALIZE REGISTER USAGE                   GEN       148
                          73661                   =X6    X6+1                                                    GEN       149
             3  5170000000 X                      SA7    REGLK                                                   GEN       150
                          5170000000 X            SA7    STRGLK                                                  GEN       151
             4  5160000000 X                      SA6    RGC         INITIALIZE LOAD REGISTERS                   GEN       152
                                                                                                                 GEN       153
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     5
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS 
  
                                        *         RESET REGISTER SKELETON WORDS                                  GEN       154
                                                                                                                 GEN       155
                                         RESET    ECHO   ,CLASS=(INTR,TEMP,LOAD,LODX,STOR)                       GEN       156
                                                  =A1    =XRG=CLASS+2                                            GEN       157
                                                  BX6    X1                                                      GEN       158
                                                  =A6    A1-1                                                    GEN       159
                                         RESET    ENDD                                                           GEN       160
                                                                                                                 GEN       161
            12                           EIS.PNX  BSSENT 0                                                       GEN       162
                                                                                                                 GEN       163
                                         .SNAP=W  IFEQ   TEST,ON                                                 GEN       164
                                                  SA5    CO.SNAP                                                 GEN       165
                                                  LX5    1RW                                                     GEN       166
                                                  PL     X5,PNX1                                                 GEN       167
                                         TURP=W   REGS   (B4),,1E5                                               GEN       168
                                         PNX1     BSS    0                                                       GEN       169
                                         .SNAP=W  ENDIF                                                          GEN       170
                                                                                                                 GEN       171
            12  56540                             =A5    B4+OR.OPR                                               GEN       172
                     43052                        MX0    -OP.LINEL                                               GEN       173
                          20034                   LX0    OP.LINEP                                                GEN       174
                               15150              BX1    -X0*X5      EXTRACT (X1) = LINE NUMBER                  GEN       175
            13  0301000014 +                      ZR     X1,PNX4     IF NO LINE NUMBER                           GEN       176
                          0100000467 +            RJ     BOS         BEGINNING OF STATEMENT                      GEN       177
                                                                                                                 FC5A337    21
            14  0305000000 +             PNX4     ZR     X5,EXIT.    IF END OF I. L.                             GEN       178
                          0100000000 X            CALL   RED         REFORMAT OPR FOR EXPANSION AND DEFINITION   GEN       179
            15  5226000000 X                      SA2    X6+F.SCT    LOAD CONTROL WORD FOR SKELETON              GEN       180
                          7170000001              SX7    1+                                                      GEN       181
            16  20230                             LX2    -VS.SBIP                                                GEN       182
                     73620                        SX6    X2          (X6) = SKELETON BEGIN ORDINAL (W=)          GEN       183
                                   0              ERRNZ  18-VS.SBIL                                              GEN       184
                          5170000000 X            SA7    UUC         INITIALIZE USE COUNT DECREMENT              GEN       185
                                                                                                                 GEN       186
            17                           SUB.RET  BSSENT 0           SUBSKELETON RETURN                          GEN       187
            17  6226000000 X                      SB2    X6+F.SKEL   INSTRUCTION SKELETON ADDRESS                GEN       188
                          5142777776              SA4    B2-1        DUMMY LOAD TO ACTIVATE (A4)                 GEN       189
                                                                                                                 GEN       190
                                         .SNAP=W  IFEQ   TEST,ON                                                 GEN       191
                                                  SA1    CO.SNAP                                                 GEN       192
                                                  LX1    1RW                                                     GEN       193
                                                  PL     X1,SRET1                                                GEN       194
                                         SKEL=W   REGS   (X6),,1E5                                               GEN       195
                                         SRET1    BSS    0                                                       GEN       196
                                         .SNAP=W  ENDIF                                                          GEN       197
                                                                                                                 GEN       198
                                                                                                                 GEN       199
            20                           EIS.LNX  BSS    0                                                       GEN       200
            20  7160777774                        SX6    -3                                                      GEN       201
                          13555                   BX5    0           CLEAR REGISTER ASSEMBLE - 000.              GEN       202
            21  5160000461 +                      SA6    IJK                                                     GEN       203
                          74741                   =X7    A4+1                                                    GEN       204
                               54441              =A4    A4+1                                                    GEN       205
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     6
        EIS - EXPAND INSTRUCTION SKELETONS.                           SPECIAL 
  
                                        **        CHECK IF SKELETON REQUIRES SPECIAL HANDLING                    GEN       207
                                        *                                                                        GEN       208
                                        *         S-BRANCH - BRANCH TO A NEW SKELETON X AND CONTINUE             GEN       209
                                        *         CALL   - EXTERNAL PROCESSOR *RJ* TO X.                         GEN       210
                                        *         OTHER  - NORMAL PROCESSING.                                    GEN       211
                                        *                                                                        GEN       212
                                        *         ENTRY  (X4) = CURRENT SKELETON WORD.                           GEN       213
                                                                                                                 GEN       214
            22  10044                             BX0    X4                                                      GEN       215
                     5170000136 +                 SA7    CURSK                                                   GEN       216
                               21066              AX0    SK.TYPP                                                 GEN       217
            23  43167                             MX1    -SK.TYPL+1                                              GEN       218
                     15701                        BX7    -X1*X0      EXTRACT OPCODE TYPE                         GEN       219
                          63770                   SB7    X7                                                      GEN       220
            24  5170000462 +                      SA7    OPTYP                                                   GEN       221
                          0277000025 +            JP     B7+EIS.TYP                                              GEN       222
                                                                                                                 GEN       223
            25                           EIS.TYP  BSS    0                                                       GEN       224
      L      0                                    LOC    0                                                       GEN       225
      L      0  0400000046 +             M.COND   EQ     EIS.COND    CONDITIONAL                                 GEN       226
      L      1  0400000046 +             M.NORM   EQ     EIS.LN1     ARITHMETIC OPCODES                          GEN       227
      L      2  0400000046 +             M.INCR   EQ     EIS.LN1     LOAD REGISTER                               GEN       228
      L      3  0400000046 +             M.BRAN   EQ     EIS.BRN     BRANCH                                      GEN       229
      L      4  0400000046 +             M.SHIF   EQ     EIS.SHF     SHIFT / XMT                                 GEN       230
      L      5  0400000037 +             M.ICALL  EQ     EIS.CALL    CALL A SUBROUTINE                           GEN       231
      L      6  0400000125 +             M.INOOP  EQ     NULLOP      FOR PROCESSING NOOPS                        GEN       232
      L      7  0400000036 +             M.ISBRN  EQ     EIS.SBRN    FOR BRANCHING TO ANOTHER SKELETON           GEN       233
      L     10  0400000043 +             M.LOAD   EQ     EIS.LOD     LOAD / STORE TURPLE                         GEN       234
      L     11                           L.MTBL   BSS                LENGTH OF TYPE JUMP-VECTOR                  GEN       235
            36                                    LOC    *O                                                      GEN       236
                                                                                                                 GEN       237
                                        **        IF PROCESSING *RESET* SKELETON                                 GEN       238
                                                                                                                 GEN       239
            36                           EIS.SBRN BSS    0                                                       GEN       240
            36  63240                             =B2    X4          GET SKELETON ADDRESS                        GEN       241
                                         .TEST    IFEQ   TEST,ON                                                 GEN       242
                                                  MI     B2,"BLOWUP" IF OLD TURPLE RESET CALL                    GEN       243
                                         .TEST    ENDIF                                                          GEN       244
                     57421                        =A4    B2-1        INITIALIZATION LOAD FOR EIS.LNX             GEN       245
                          0400000020 +            EQ     EIS.LNX                                                 GEN       246
                                                                                                                 GEN       247
                                        **        IF PROCESSING *CALL* SKELETON                                  GEN       248
                                                                                                                 GEN       249
            37  63240                    EIS.CALL SB2    X4          JUMP ADDRESS                                GEN       250
                     21422                        AX4    SK.ARGP                                                 GEN       251
                          73140                   SX1    X4                                                      GEN       252
                               63740              SB7    X4                                                      GEN       253
                                                                                                                 GEN       254
                                        **        WHEN (P.MARG) IS POSITIVE, IT CONTAINS THE ARGUMENT TO THE     GEN       255
                                        *         MACRO.                                                         GEN       256
                                                                                                                 GEN       257
            40  20154                             LX1    P2.TAGP                                                 GEN       258
                     0670000042 +                 GE     B7,EIS.CL5  IF A CONSTANT                               GEN       259
                                                                                                                 GEN       260
                                        **        WHEN (P.MARG) IS NEGATIVE, THE MACRO ARGUMENT IS IN THE PARSED GEN       261
                                        *         TURPLE, AND (P.MARG) IS THE COMPLEMENT OF THE ORDINAL IN THE   GEN       262
                                        *         TURPLE WHICH CONTAINS THE ARGUMENT.                            GEN       263
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     7
        EIS - EXPAND INSTRUCTION SKELETONS.                           SPECIAL 
  
                                                                                                                 GEN       264
                               63740              SB7    X4                                                      GEN       265
            41  57147                             SA1    B4-B7       LOAD ARGUMENT FROM PARSED FILE              GEN       266
            42  0222000000               EIS.CL5  JP     B2          EXECUTE CALLED ROUTINE                      GEN       267
                                                                                                                 GEN       268
                                        **        IF PROCESSING *LOAD* TYPE INSTRUCTION.                         GEN       269
                                                                                                                 GEN       270
            43  43060                    EIS.LOD  MX0    -SK.QFL                                                 GEN       271
                     15640                        BX6    -X0*X4                                                  GEN       272
                          0306000046 +            ZR     X6,EIS.LN1  IF NO HARD REGISTER SPECIFIED               GEN       273
            44  5160000000 X                      SA6    RREG        SET HARD REGISTER                           GEN       274
                          5160000465 +            SA6    HREG        SET LOCK FLAG                               GEN       275
            45  0400000046 +                      EQ     EIS.LN1                                                 GEN       276
                                                                                                                 GEN       277
                                        **        EIS.LN1 - START PROCESSING OF CURRENT SKELETON.                GEN       278
                                        *                                                                        GEN       279
                                        *         ENTRY  (A4),(X4) = CURRENT SKELETON WORD.                      GEN       280
                                        *                (IJK) = -3.                                             GEN       281
                                                                                                                 GEN       282
            46                           EIS.COND BSS    0                                                       GEN       283
            46                           EIS.BRN  BSS    0                                                       GEN       284
            46                           EIS.SHF  BSS    0                                                       GEN       285
            46                           EIS.NOOP BSS    0                                                       GEN       286
            46  43011                    EIS.LN1  MX0    SK.OPCL                                                 GEN       287
                     20066                        LX0    SK.OPCP+SK.OPCL                                         GEN       288
                          11604                   BX6    X0*X4       EXTRACT OP-CODE FIELD                       GEN       289
                               20460              LX4    -SK.QFL                                                 GEN       290
            47  21655                             AX6    SK.OPCP                                                 GEN       291
                     5160000460 +                 SA6    OPCODE      CURRENT OP-CODE                             GEN       292
                                                                                                                 GEN       293
                                        **        RETURN HERE FOR NEXT PROCESSING OF NEXT PORTION OF INSTRUCTION GEN       294
                                        *         CURRENTLY EXPANDING WITHIN SKELETON.                           GEN       295
                                                                                                                 GEN       296
            50  5110000461 +             EIS.NX   SA1    IJK                                                     GEN       297
                          43066                   MX0    -SR.NUML                                                GEN       298
            51  6271777774                        SB7    X1-3                                                    GEN       299
                          0717000105 +            GT     B7,B1,EIS.CMP     IF FINISHED.                          GEN       300
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     8
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.JP
  
                                        **        HERE IF NOT END OF CURRENT SKELETON.                           GEN       302
                                        *         JUMP TO PROCESSOR FOR CURRENT PORTION OF INSTRUCTION.          GEN       303
                                        *                                                                        GEN       304
                                        *         ENTRY  (X0) = MASK OF -SR.OADL                                 GEN       305
                                        *                (X4) = SKELETON SHIFTED BY N*SR.OADL                    GEN       306
                                        *                                                                        GEN       307
                                        *         EXIT   (X3) = (INUM) FIELD.                                    GEN       308
                                        *                (X6) = 0                                                GEN       309
                                                                                                                 GEN       310
            52  76610                             =X6    1                                                       GEN       311
                     15340                        BX3    -X0*X4      REGISTER/CONSTANT NUMBER.                   GEN       312
                          43067                   MX0    -SR.OADL                                                GEN       313
                               20466              LX4    -SR.NUML                                                GEN       314
            53  5160000000 X                      SA6    UUC         SET UPDATE USE COUNT INCREMENT              GEN       315
                          15140                   BX1    -X0*X4                                                  GEN       316
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                GEN       317
                                                  SX2    X1-L.ATABLE                                             GEN       318
                                                  PL     X2,"BLOWUP"       IF INDEX OUTSIDE VECTOR               GEN       319
                                         .TEST    ENDIF                                                          GEN       320
            54  5221000056 +                      SA2    X1+AT.BASE                                              GEN       321
                          63220                   SB2    X2          ADDRESS OF PROCESSOR.                       GEN       322
                               66700              =B7    0                                                       GEN       323
            55  13666                             BX6    0           CLEAR REGISTER ASSIGNMENT                   GEN       324
                     0222000000                   JP     B2                                                      GEN       325
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE     9
        EIS - EXPAND INSTRUCTION SKELETONS.                           TYPES 
  
                                        **        INDIVIDUAL PROCESSOR SECTION FOR SPECIFIED TYPE OF REQUEST     GEN       327
                                        *         NOTE   AT.I TABLE MAY NOT EXCEED 5 BITS IN LENGTH,             GEN       328
                                        *                MAXIMUM LENGTH =37B...                                  GEN       329
                                                                                                                 GEN       330
                                                                                                                 GEN       331
                                                  MACRO  SKOP,OP,NOTLAST,LAST,STRING,OPEQ                        GEN       332
                                         .1       IFC    EQ,/OPEQ//                                              GEN       333
                                                  IFC    NE, LAST NOTLAST ,5                                     GEN       334
                                                  IFC    NE, NOTLAST NONE ,4                                     GEN       335
                                         ADDRESS  MICRO  1,, EIS.NOTLAST                                         GEN       336
                                         CHRCNT   MICCNT ADDRESS                                                 GEN       337
                                         BLANKS   MICRO  CHRCNT+1,,/            /                                GEN       338
                                                  CON    "ADDRESS""BLANKS"AT.OP                                  GEN       339
                                                  IFC    NE, LAST NONE ,4                                        GEN       340
                                         ADDRESS  MICRO  1,, EIS.LAST                                            GEN       341
                                         CHRCNT   MICCNT ADDRESS                                                 GEN       342
                                         BLANKS   MICRO  CHRCNT+1,,/            /                                GEN       343
                                                  CON    "ADDRESS""BLANKS"ZT.OP                                  GEN       344
                                         .1       ENDIF                                                          GEN       345
                                                  ENDM                                                           GEN       346
                                                                                                                 GEN       347
                                         OPSTR    MICRO              NULL DEF FOR *SKOP*                         GEN       348
                                                                                                                 GEN       349
                                                                                                                 GEN       350
            56                           AT.BASE  BSS                BASE OF FIELD PROCESSOR JUMP VECTOR         GEN       351
      L      0                                    LOC    0                                                       GEN       352
                                                  LIST   G,-X                                                    GEN       353
                                                                     SKOP IS LISTED IN QSKEL                     GEN       354
      L      0                           SKOP     CTEXT                                                          SKOP        2
      L      0  00000000000000000421 +            CON    EIS.AA      AT.A                                       SKOP    .1
      L      1  00000000000000000421 +            CON    EIS.CA      ZT.A                                       SKOP    .1
      L      2  00000000000000000137 +            CON    EIS.AB      AT.B                                       SKOP    .1
      L      3  00000000000000000212 +            CON    EIS.CB      ZT.B                                       SKOP    .1
      L      4  00000000000000000142 +            CON    EIS.AX      AT.X                                       SKOP    .1
      L      5  00000000000000000144 +            CON    EIS.CX      ZT.X                                       SKOP    .1
      L      6  00000000000000000224 +            CON    EIS.LNU     AT.L                                       SKOP    .1
      L      7  00000000000000000225 +            CON    EIS.L       ZT.L                                       SKOP    .1
      L     10  00000000000000000222 +            CON    EIS.LNL     AT.LL                                      SKOP    .1
      L     11  00000000000000000223 +            CON    EIS.LL      ZT.LL                                      SKOP    .1
      L     12  00000000000000000427 +            CON    EIS.P       ZT.P                                       SKOP    .1
      L     13  00000000000000000405 +            CON    EIS.IR      ZT.R                                       SKOP    .1
      L     14  00000000000000000404 +            CON    EIS.IRL     ZT.RL                                      SKOP    .1
      L     15  00000000000000000213 +            CON    EIS.GP      ZT.GP                                      SKOP    .1
      L     16  00000000000000000214 +            CON    EIS.GLN     AT.GL                                      SKOP    .1
      L     17  00000000000000000215 +            CON    EIS.GL      ZT.GL                                      SKOP    .1
      L     20  00000000000000000216 +            CON    EIS.GLNL    AT.GLL                                     SKOP    .1
      L     21  00000000000000000217 +            CON    EIS.GLL     ZT.GLL                                     SKOP    .1
      L     22  00000000000000000172 +            CON    EIS.AT      AT.T                                       SKOP    .1
      L     23  00000000000000000206 +            CON    EIS.CT      ZT.T                                       SKOP    .1
      L     24  00000000000000000423 +            CON    EIS.Q       AT.Q                                       SKOP    .1
      L     25  00000000000000000425 +            CON    EIS.S       AT.S                                       SKOP    .1
      L     26  00000000000000000421 +            CON    EIS.K       AT.K                                       SKOP    .1
                                                  LIST   *                                                       GEN       356
                                                                                                                 GEN       357
      L     27                           L.ATABLE BSS                NUMBER OF FIELD PROCESSORS                  GEN       358
           105                                    LOC    *O                                                      GEN       359
                                 -11              ERRPL  L.ATABLE-1S5                                            GEN       360
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    10
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.CMP 
  
                                        **        COMPILE - FLUSH INSTRUCTION TO LONG FILE.                      GEN       362
                                        *                                                                        GEN       363
                                        *             HERE WHEN  I,J,K AND Q PORTIONS OF SKELETON HAVE BEEN      GEN       364
                                        *             EVALUATED.                                                 GEN       365
                                        *                                                                        GEN       366
                                        *         ENTRY  INS.REG = REGISTERS - IJK                               GEN       367
                                        *                (X1) = REGISTERS - I00                                  GEN       368
                                        *                (X6) = REGISTERS - 0I0                                  GEN       369
                                        *                (X4) = SKELETON WORD SHIFTED TO SK.TYPP FIELD           GEN       370
                                                                                                                 GEN       371
                                                                                                                 GEN       372
           105  5120000462 +             EIS.CMP  SA2    OPTYP                                                   GEN       373
                          43063                   MX0    -SK.OPCL                                                GEN       374
                               22104              LX1    X4          SAVE                                        GEN       375
           106  6272777767                        SB7    X2-M.LOAD                                               GEN       376
                          0570000114 +            NZ     B7,EIS.CM1  IF NOT *LOAD* OP-CODE                       GEN       377
                                                                                                                 GEN       378
                                        **        TERMINATE INSTRUCTION *LOAD* OPERATOR                          GEN       379
                                                                                                                 GEN       380
           107  10344                             BX3    X4                                                      GEN       381
                     5110000000 X                 SA1    RREG                                                    GEN       382
                               20355              LX3    59-SK.ENDP+SK.OPCP                                      GEN       383
           110  6271010000                        SB7    X1+XMT                                                  GEN       384
                          0570000125 +            NZ     B7,NULLOP   IF LOAD SATISFIED                           GEN       385
           111  14211                             BX2    -X1                                                     GEN       386
                     43773                        MX7    -1                                                      GEN       387
                          5150000457 +            SA5    INS.REG                                                 GEN       388
           112  54710                             SA7    A1          INDICATE SATISFIED                          GEN       389
                     36725                        IX7    X2+X5                                                   GEN       390
                          20755                   LX7    PB.INSTP                                                GEN       391
           113  0400000124 +                      EQ     EIS.CM6                                                 GEN       392
                                                                                                                 GEN       393
           114  15240                    EIS.CM1  BX2    -X0*X4      OPCODE FIELD                                GEN       394
                                                                                                                 GEN       395
                                        **         DUMP CURRENT INSTRUCTION.                                     GEN       396
                                                                                                                 GEN       397
                     10322                        BX3    X2                                                      GEN       398
                          21303                   AX3    3                                                       GEN       399
                               20463              LX4    -SK.OPCL                                                GEN       400
           115  63230                             SB2    X3                                                      GEN       401
                     5150000457 +                 SA5    INS.REG                                                 GEN       402
                               43066              MX0    -SK.TYPL                                                GEN       403
           116  15040                             BX0    -X0*X4      TYPE FIELD.                                 GEN       404
                                                                                                                 GEN       405
                     20555                        LX5    60-SK.OPCL-3-3                                          GEN       406
                                        *         (X2) = OP-CODE                                                 GEN       407
                                        *         (X5) = I,J,K PORTION OF INSTRUCTION                            GEN       408
                                        *         (A5) _ INS.REG                                                 GEN       409
                                                                                                                 GEN       410
                          63320                   SB3    X2          GET OPCODE FOR JUMP TESTS                   GEN       411
                               54340              SA3    A4          RESET SKELETON INSTRUCTION WORD             GEN       412
           117  20263                             LX2    -SK.OPCL    POSITION OPCODE FOR PRE-BINARY              GEN       413
                                                  HX3    SK.END      POSITION END OF SKELETON BIT                GEN       414
                     36752                        IX7    X5+X2       SET PRE-BIN,OPCODE + I,J,K/Q FIELDS         GEN       415
                          0430000122 +            ZR     B3,CBREAK   IF UNCONDITIONAL JUMP CLEAR REGS            GEN       416
           120  5120000000 X                      SA2    DRITE                                                   GEN       417
                          6133777677              SB3    B3-XMT/1S6  (XMT = CONDITIONALS + 1)                    GEN       418
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    11
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.CMP 
  
           121  0302000124 +                      ZR     X2,COMPILE  IF NO DELAYED STORE WRITE TO PRE-BIN        GEN       419
                          0630000124 +            PL     B3,COMPILE  IF NOT A JUMP WRITE TO PRE-BIN              GEN       420
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    12
        EIS - EXPAND INSTRUCTION SKELETONS.                           CREAK 
  
                                        **        CBREAK - CHECK IF CURRENT OPCODE BEING COMPILED                GEN       422
                                        *         BREAKS THE CURRENT REGISTER ALLOCATION SEQUENCE.               GEN       423
                                        *                                                                        GEN       424
                                        *         NOTE - GENERAL RETURN ADDRESS FOR EXTERNAL PROCESSORS.         GEN       425
                                        *         ENTRY  (X3) = SKELETON SHIFTED BY SK.ENDP                      GEN       426
                                        *                (X7) = INSTRUCTION ABOUT TO BE ADDED TO T.PB            GEN       427
                                                                                                                 GEN       428
           122  5170000000 X             CBREAK   SA7    ESTACK                                                  GEN       429
                          0100000000 X            CALL   CIA         CLEAR REGISTER FILE                         GEN       430
           123  5120000000 X                      SA2    ESTACK                                                  GEN       431
                          10722                   BX7    X2                                                      GEN       432
                                                                                                                 GEN       433
                                        **        COMPILE - OUTPUT INSTRUCTION TO LONG FILE.                     GEN       434
                                        *                                                                        GEN       435
                                        *         ENTRY  SAME AS *CBREAK*                                        GEN       436
                                                                                                                 GEN       437
           124                           EIS.CM6  BSS    0                                                       GEN       438
           124  6120000125 +             COMPILE  WCODE  X7           INSTRUCTION TO LONG FILE                   GEN       439
                                                                                                                 GEN       440
                                        **        NULLOP - NULL PROCESSING                                       GEN       441
                                        *                                                                        GEN       442
                                        *         ENTRY  SAME AS *CBREAK* (X7) IGNORED.                          GEN       443
                                                                                                                 GEN       444
           125                           NULLOP   BSSENT 0                                                       GEN       445
           125                           O=NOOP   BSSENT 0           NULLOP FOR TURPLE                           GEN       446
           125                           O=BVD    BSSENT 0           BEGIN VARDIM                                GEN       447
           125                           O=HSBS   BSSENT 0           SUBSTRING PROCESSOR IS A NULLOP             GEN       448
           125                           O=HCAT   BSSENT 0           CONCAT IS DEFERED                           GEN       449
           125                           O=HCOL   BSSENT 0           COLON TURPLE IS DEFERRED                    FC50066     8
           125  5110000461 +                      SA1    IJK                                                     FC50950    41
                          7211777771              SX1    X1-6                                                    FC50950    42
           126  0311000130 +                      NZ     X1,EIS.CM9  IF INSTRUCTION NOT COMPLETED                FC50950    43
                          5110000457 +            SA1    INS.REG                                                 FC50950    44
           127  10711                             BX7    X1                                                      FC50950    45
                     5170000466 +                 SA7    RUT.REG     IJK PARTS OF INSTRUCTION JUST COMPLETED     FC50950    46
                                                                                                                 FC50950    47
           130  43600                    EIS.CM9  MX6    0                                                       FC50950    48
                     13777                        =X7                                                            GEN       452
                          5160000457 +            SA6    INS.REG     CLEAR REGISTER ASSEMBLY CELL                GEN       453
           131  54761                             =A7    A6+1        CLEAR OPCODE CELL                           GEN       454
                     5110000000 X                 SA1    REGLK                                                   GEN       455
                               54711              =A7    A1+1        *I* PORTION                                 GEN       456
           132  54671                             =A6    A7+1        *J* PORTION                                 GEN       457
                     63710                        SB7    X1                                                      GEN       458
                          0100000000 X            CALL   RUL         UNLOCK REGISTER                             GEN       459
           133  43673                             MX6    -1                                                      GEN       460
                     5130000136 +                 SA3    CURSK                                                   GEN       461
                               53430              SA4    X3                                                      GEN       462
                                                  HX4    SK.END                                                  GEN       463
           134  5160000000 X                      SA6    REGLK                                                   GEN       464
                          0324000020 +            PL     X4,EIS.LNX  IF NOT LAST INST. IN SKEL                   GEN       465
           135  6144000003                        SB4    B4+Z=TURP                                               GEN       466
                          0400000012 +            EQ     EIS.PNX     PROCESS NEXT TURPLE                         GEN       467
                                                                                                                 GEN       468
           136                     1     CURSK    BSSENT 1                                                       GEN       469
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    13
        EIS - EXPAND INSTRUCTION SKELETONS.                           HARDRG
  
                                        **        2.  ASSIGN TEMPORARY REGISTER.                                 GEN       471
                                        **            A.  ASSIGN TEMPORARY *B* REGISTER.                         GEN       472
                                                                                                                 GEN       473
                                                                                                                 GEN       474
           137  6223000000               EIS.AB   SB2    X3+REG.B    SET 0TR IN B2.                              GEN       475
                          10633                   BX6    X3                                                      GEN       476
                               20603              LX6    3           SET 0R0 FOR EIS.REG                         GEN       477
                                                                                                                 GEN       478
                                        **        CREATE A DUMMY ENTRY FOR THE REGFILE                           GEN       479
                                                                                                                 GEN       480
           140  7170000777                        SX7    MAX.USEC    MAX USE COUNT PREVENTS SELECTION            GEN       481
                                                  LX7    RG.USEP                                                 GEN       482
                          5172000000 C            SA7    B2+REGFILE  SET IN REGFILE                              GEN       483
           141  0400000440 +                      EQ     EIS.LRF                                                 GEN       484
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    14
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.X 
  
                                        **        EIS.AX AND EIS.CX - HARD *X* REGISTER PROCESSORS               GEN       487
                                        *                                                                        GEN       488
                                        *         ENTRY  (X3) = REGISTER REQUESTED TO ASSIGN                     GEN       489
                                        *                                                                        GEN       490
                                        *         IF REGISTER REQUESTING IS NOT A STORE REGISTER, REGISTER IS    GEN       491
                                        *         SET AFTER ANY CONFLICT WITH A TEMPORARY REGISTER IS RESOLVED.  GEN       492
                                        *         IF A STORE REGISTER IS REQUESTED, A CHECK IS MADE FOR A STORE  GEN       493
                                        *         REG  DEADLOCK, ONCE THIS IS REMEDIED THE HARD REG IS SET.      GEN       494
                                        *         A DUMMY REGFILE ENTRY IS SET WITH MAX.USEC-1 FOR NOT LAST USE  GEN       495
                                        *         OR 0 FOR LAST USE.                                             GEN       496
                                                                                                                 GEN       497
           142  63630                    EIS.AX   SB6    X3                                                      GEN       498
                     7160000776                   SX6    MAX.USEC-1                                              GEN       499
           143  0400000145 +                      EQ     EIS.X                                                   GEN       500
                                                                                                                 GEN       501
           144  63630                    EIS.CX   SB6    X3                                                      GEN       502
                     76600                        =X6    0                                                       GEN       503
                          0400000145 +            EQ     EIS.X                                                   GEN       504
                                                                                                                 GEN       505
           145  6273777771               EIS.X    SB7    X3-R.X6+REG.X     (B7) = 0TR(X.6)-0TR(TARGET)           GEN       506
                          7233000020              SX3    X3+REG.X                                                GEN       507
           146  20324                             LX3    P2.BIASP    POSITION HARD REGISTER NUMBER               GEN       508
                     36663                        IX6    X6+X3       FORM DUMMY REGFILE ENTRY                    GEN       509
                          5160000171 +            SA6    EISXA       SAVE DUMMY REGFILE ENTRY                    GEN       510
           147  66260                             SB2    B6          (B2) = 00R OF TARGET                        GEN       511
                     0770000152 +                 MI     B7,EIS.X5   IF NOT REQUESTING STORE REGISTER            GEN       512
                               13000              DRITE  DEACTIVATE                                              GEN       513
           151  67706                             SB7    -B6                                                     GEN       514
                     6177000007                   SB7    B7-REG.X+R.X7     (B7) = 0TR(X7)-0TR(TARGET)            GEN       515
                               66260              SB2    B6          (B2) = 00R OF THE TARGET                    GEN       516
                                                                                                                 GEN       517
                                        **        TEST FOR TEMPORARY REG CLASH                                   GEN       518
                                                                                                                 GEN       519
           152  5116000020 C             EIS.X5   SA1    B6+REG.X+REGFILE  EXAMINE ENTRY IN TARGET REGISTER      GEN       520
                          43363                   MX3    -RG.USEL    SET USE COUNT MASK                          GEN       521
                               15013              BX0    -X3*X1      EXTRACT USE COUNT                           GEN       522
           153  7200777000                        SX0    X0-MAX.USEC SUBTRACT THE SPECIAL TEMP REG USE COUNT     GEN       523
                          0320000157 +            PL     X0,EIS.X7         IF A TEMP FIND A NEW REGISTER         GEN       524
           154  0770000166 +                      MI     B7,EIS.X10        IF NOT A STORE REG CLEAR IT           GEN       525
                          5117000026 C            SA1    B7+R.X6+REGFILE   GET REGFILE ENTRY FOR OTHER STORE REG GEN       526
           155  15013                             BX0    -X3*X1      EXTRACT USE COUNT                           GEN       527
                     7200777000                   SX0    X0-MAX.USEC SUBTRACT USE COUNT GIVEN TO TEMP REGS       GEN       528
           156  0330000166 +                      MI     X0,EIS.X10  NO DEADLOCK EXISTS CLEAR TARGET REG         GEN       529
                          6127000006              SB2    B7-REG.X+R.X6     (B2) = 00R OF THE OTHER STORE REG     GEN       530
                                                                                                                 GEN       531
                                        **        TROUBLE - EITHER OUR HARD REG IS CURRENTLY HOLDING A TEMPORARY GEN       532
                                        *         OR IT WILL CREATE A STORE REG DEADLOCK. WE MUST:               GEN       533
                                        *                (1) FIND A NEW TEMP REG.                                GEN       534
                                        *                (2) TRANSMIT OUR TEMP TO THAT REG. AND                  GEN       535
                                        *                (3) RESET THE REG=T AND USAGE TABLES.                   GEN       536
                                        *                                                                        GEN       537
                                        *         (B2) = 00R OF REG TO CLEAR                                     GEN       538
                                        *         (B6) = ORIGINAL TARGET REG                                     GEN       539
                                                                                                                 GEN       540
           157  76520                    EIS.X7   SX5    B2          SAVE REG TO CLEAR ACROSS GTR CALL           GEN       541
                     0100000000 X                 CALL   GTR         GET TEMPORARY REGISTER                      GEN       542
           160  36765                             IX7    X6+X5       (X7) = 0IJ                                  GEN       543
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    15
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.X 
  
                     7277001000                   SX7    X7+XMT/1S3  ADD OPCODE IN FOR XMT INSTRUCTION           GEN       544
           161  5215000020 C                      SA1    X5+REG.X+REGFILE  GET REGFILE ENTRY FOR REG TO CLEAR    GEN       545
                          76620                   SX6    B2          0TR OF THE NEW TEMP REG                     GEN       546
                               10311              BX3    X1                                                      GEN       547
           162  21344                             AX3    -P2.BIASL   ISOLATE TEMP ORDINAL INTO REG=T             GEN       548
                     5263000000 X                 SA6    X3+REG=T    RESET TEMP TABLE ENTRY                      GEN       549
                               20760              LX7    PB.GHIJP    POSITION INSTRUCTION FOR WCODE              GEN       550
           163  10611                             BX6    X1                                                      GEN       551
                     5162000000 C                 SA6    B2+REGFILE  RESET USAGE TABLE (REGFILE)                 GEN       552
           164  6120000165 +                      WCODE  X7          WRITE TRANSMIT INSTRUCTION                  GEN       553
           165  63250                             SB2    X5                                                      GEN       554
                     0100000000 X                 CALL   RUT         CLEAR TEMPORARY REGISTER                    GEN       555
                                                                                                                 GEN       556
                                        **       CLEANUP - CLEAR TARGET REG, RESET REGFILE AND SET EXIT VALUES   GEN       557
                                                                                                                 GEN       558
           166  6126000020               EIS.X10  SB2    B6+REG.X                                                GEN       559
                          0100000000 X            CALL   RUT         CLEAR REGFILE ENTRY                         GEN       560
           167  5110000171 +             EIS.X15  SA1    EISXA       GET DUMMY REGFILE ENTRY                     GEN       561
                          10711                   BX7    X1                                                      GEN       562
           170  5172000000 C                      SA7    B2+REGFILE  RESET USE TABLE TO DUMMY X-TAG              GEN       563
                          0400000451 +            EQ     EIS.REG                                                 GEN       564
                                                                                                                 GEN       565
           171                     1     EISXA    BSS    1                                                       GEN       566
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    16
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.AT
  
                                        **            C.  ASSIGN TEMPORARY *X* REGISTER.                         GEN       568
                                        *                 ASSIGN X0, X7, X6 IN THAT ORDER, IF ALL ARE IN USE     GEN       569
                                        *                 KILLS ANY DELAYED STORES.  IF ONE FREED USES REGISTER  GEN       570
                                        *                 FROM DELAYED STORE, IF NOT USES ONE OF LOAD REGISTERS  GEN       571
                                        *                 DEPENDING ON HOW MANY LOAD REGISTERS ARE LOCKED.       GEN       572
                                                                                                                 GEN       573
                                                                                                                 GEN       574
           172  5213000000 X             EIS.AT   SA1    X3+REG=T                                                GEN       575
                          63630                   SB6    X3          ORDINAL OF TEMPORARY                        GEN       576
                               63210              SB2    X1          REGISTER - 0TR                              GEN       577
           173  0311000202 +                      NZ     X1,EIS.AT30 IF ALREADY LOADED - USE IT                  GEN       578
                                                                                                                 GEN       579
                                        **        CHECK FOR UNNECESSARY TRANSMIT INSTRUCTION.  IF FOUND,         GEN       580
                                        *         MAKE *I* REGISTER SAME AS *J* REGISTER SO THAT *PIG* WILL      GEN       581
                                        *         ELIMINATE INSTRUCTION.                                         GEN       582
                                                                                                                 GEN       583
                          5120000460 +            SA2    OPCODE                                                  GEN       584
           174  6272777677                        SB7    X2-XMT/1S6                                              GEN       585
                          0570000201 +            NZ     B7,EIS.AT10 IF NOT *XMT*                                GEN       586
           175  5120000457 +                      SA2    INS.REG                                                 GEN       587
                          43071                   MX0    -3                                                      GEN       588
                               21203              AX2    3                                                       GEN       589
           176  15020                             BX0    -X0*X2      *J* REGISTER                                GEN       590
                     5220000020 C                 SA2    X0+REGFILE+REG.X      FETCH STATUS OF *J* REGISTER      GEN       591
                               43163              MX1    -RG.USEL                                                GEN       592
           177  15121                             BX1    -X1*X2      USE COUNT                                   GEN       593
                     0311000201 +                 NZ     X1,EIS.AT10 IF USE COUNT NOT ZERO                       GEN       594
                                                                                                                 GEN       595
                                        *         TRANSMIT INSTRUCTION IS UNNECESSARY                            GEN       596
                                                                                                                 GEN       597
           200  6220000020                        SB2    X0+REG.X    *I* REGISTER - 0TR                          GEN       598
                          0400000202 +            EQ     EIS.AT30                                                GEN       599
                                                                                                                 GEN       600
           201  0100000000 X             EIS.AT10 CALL   GTR         GET A TEMPORARY REGISTER                    GEN       601
                                                                                                                 GEN       602
                                        **        FOUND REGISTER FREE FOR TEMPORARY ASSIGNMENT.                  GEN       603
                                        *         (B2) = 0TR.                                                    GEN       604
                                        *         (B6) = ORDINAL OF TEMPORARY.                                   GEN       605
                                                                                                                 GEN       606
           202  76360                    EIS.AT30 SX3    B6                                                      GEN       607
                     76720                        SX7    B2                                                      GEN       608
                          20324                   LX3    P2.BIASP    POSITION REG=T ORDINAL                      GEN       609
           203  7120000777                        =X2    MAX.USEC                                                GEN       610
                          43071                   MX0    -3                                                      GEN       611
                               12623              BX6    X2+X3       DUMMY TAG FOR REGFILE                       GEN       612
           204  5176000000 X                      SA7    B6+REG=T    SET *REG=T* FILE                            GEN       613
                          5162000000 C            SA6    B2+REGFILE                                              GEN       614
           205  15670                             BX6    -X0*X7                                                  GEN       615
                     20603                        LX6    3                                                       GEN       616
                          0400000440 +            EQ     EIS.LRF                                                 GEN       617
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    17
        EIS - EXPAND INSTRUCTION SKELETONS.                           CLTEMP
  
                                        **        CLEAR REGISTER ASSIGNMENT FOR CURRENT SKELETON.                GEN       619
                                        *             A.  PROCESS TEMPORARY - WITH CLEARING OF T-REGISTER.       GEN       620
                                                                                                                 GEN       621
           206  5223000000 X             EIS.CT   SA2    X3+REG=T    LOAD TEMPORARY REGISTER CELL                GEN       622
                          76700                   =X7    0                                                       GEN       623
                               43171              MX1    -3                                                      GEN       624
           207  54720                             SA7    A2          CLEAR TEMPORARY REGISTER CELL               GEN       625
                                                                                                                 GEN       626
                                        **        CLEAR *USEFILE* USAGE COUNT ON REGISTER POINTED TO BY *0TR*    GEN       627
                                        *         IN *X2*.                                                       GEN       628
                                        *         (X1) = REGISTER MASK.                                          GEN       629
                                        *         (X2) = 0TR FOR REGISTER TO BE CLEARED.                         GEN       630
                                                                                                                 GEN       631
           210  15621                    EIS.CT5  BX6    -X1*X2      REGISTER ONLY = 00R                         GEN       632
                     63220                        SB2    X2                                                      GEN       633
                          13777                   BX7    0                                                       GEN       634
                               20603              LX6    3           =0R0                                        GEN       635
           211  5272000000 C                      SA7    X2+REGFILE                                              GEN       636
                          0400000440 +            EQ     EIS.LRF                                                 GEN       637
  
  
  
  
                                        **        EIS.CB - LAST USE OF *B* REGISTER.                             GEN       639
                                                                                                                 GEN       640
                                                                                                                 GEN       641
           212  73230                    EIS.CB   SX2    X3                                                      GEN       642
                     43171                        MX1    -3                                                      GEN       643
                          0400000210 +            EQ     EIS.CT5     CONTINUE                                    GEN       644
  
  
  
  
                                        **        EIS.G - LOAD INVENTED OPERAND.                                 GEN       646
                                                                                                                 GEN       647
                                        **        EIS.GP READS UP AN INVENTED OPERAND OF THE P TYPE              GEN       648
                                        *                THIS IS IDENTICAL TO EIS.P IN ALL ASPECTS EXCEPT        GEN       649
                                        *                THE TABLE FROM WHICH THE OPERAND IS FETCHED.            GEN       650
                                        *                                                                        GEN       651
                                        *         ENTRY  (X3) = THE ORDINAL INTO REG=GP TABLE (SR.NUM FIELD)     GEN       652
                                                                                                                 GEN       653
           213                           EIS.GP   BSSENT 0                                                       GEN       654
           213  5223000000 X                      SA2    X3+REG=G    GET PSEUDO OPERAND                          GEN       655
                          0400000430 +            EQ     EIS.P4                                                  GEN       656
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    18
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.GL
  
                                        **        EIS.GL -                                                       GEN       658
                                        *                PROCESSES GENERATED L TYPE OPERANDS.                    GEN       659
                                        *                OPERANDS RECENTLY STORED IN THE REG=G TABLE ARE         GEN       660
                                        *                READ UP AND PASSED TO EIS.L AS IF THEY WERE NORMAL      GEN       661
                                        *                OPERANDS TAKEN FROM THE I. L.                           GEN       662
                                        *         EIS.GLN -                                                      GEN       663
                                        *                SAME AS EIS.GL ONLY THE USE COUNT IS NOT DECRIMENTED    GEN       664
                                        *         EIS.GLL -                                                      GEN       665
                                        *                SAME AS EIS.GL ONLY TYPE IS SET TO 1 FOR LOWER HALF     GEN       666
                                        *         EIS.GLNL -                                                     GEN       667
                                        *                SAME AS EIS.GL ONLY TYPE IS 1 AND USE COUNT IS OFF.     GEN       668
                                        *                                                                        GEN       669
                                        *         ENTRY  (X3) = ORDINAL INTO REG=G (SR.NUM FIELD)                GEN       670
                                        *                                                                        GEN       671
                                        *         EXIT   (X5) = OPERAND TO PROCESS                               GEN       672
                                        *                (X6) = TYPE UPPER/LOWER                                 GEN       673
                                                                                                                 GEN       674
                                                                                                                 GEN       675
           214  7170000000               EIS.GLN  SX7    0           (X7) = USE COUNT DECRIMENT                  GEN       676
                          5170000000 X            SA7    UUC         DO NOT  DECREMENT USE COUNT                 GEN       677
           215  7160000000               EIS.GL   SX6    0           (X6) = TYPE UPPER                           GEN       678
                          0400000220 +            EQ     EIS.GL2     PROCESS GENERATED OPERAND                   GEN       679
                                                                                                                 GEN       680
           216  7170000000               EIS.GLNL SX7    0           (X7) USE COUNT DECRIMENT                    GEN       681
                          5170000000 X            SA7    UUC         DO NOT DECRIMENT USE COUNT                  GEN       682
           217  7160000001               EIS.GLL  SX6    1           (X6) = TYPE LOWER                           GEN       683
                          0400000220 +            EQ     EIS.GL2     PROCESS GENERATED OPERAND                   GEN       684
                                                                                                                 GEN       685
                                                                                                                 GEN       686
           220  5253000000 X             EIS.GL2  SA5    X3+REG=G    GET PSEUDO OPERAND                          GEN       687
                          43063                   MX0    60-RG.USEL                                              GEN       688
                                                  LX0    RG.USEP                                                 GEN       689
                               11505              BX5    X0*X5       REMOVE USE COUNT                            GEN       690
           221  76710                             =X7    1           NEW USE COUNT                               GEN       691
                     36557                        IX5    X5+X7       ADD USE COUNT INTO OPERAND                  GEN       692
                          0400000226 +            EQ     EIS.L2      PROCESS LOAD                                GEN       693
  
  
  
  
                                        **        EIS.LL - PROCESS LOAD OF LOWER PART OF DOUBLE WORD VARIABLE.   GEN       695
                                        *                                                                        GEN       696
                                        *         ENTRY  (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.            GEN       697
                                        *                (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.            GEN       698
                                                                                                                 GEN       699
           222  76600                    EIS.LNL  =X6    0                                                       GEN       700
                     5160000000 X                 SA6    UUC                                                     GEN       701
                                                                                                                 GEN       702
           223  53534                    EIS.LL   SA5    X3+B4       TAG TO BE LOADED                            GEN       703
                     76610                        =X6    1           INDICATE LOWER HALF                         GEN       704
                          0400000226 +            EQ     EIS.L2                                                  GEN       705
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    19
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.L 
  
                                        **           C. PROCESS LOAD INTO *A*,*X* REGISTER.                      GEN       707
                                        *                ENTRY - (X3) = RELATIVE ORDINAL OF TAG TO BE LOADED.    GEN       708
                                        *                        (B7) = REGISTER NUMBER. IF 0 - ANY REGISTER.    GEN       709
                                                                                                                 GEN       710
  
  
  
  
                                        **        EIS.LNU - SAME AS EIS.L BUT DOES NOT RESET USE COUNT OF        GEN       712
                                        *         TAG BEING LOADED.                                              GEN       713
                                                                                                                 GEN       714
                                                                                                                 GEN       715
           224  76600                    EIS.LNU  =X6    0                                                       GEN       716
                     5160000000 X                 SA6    UUC                                                     GEN       717
           225  53534                    EIS.L    SA5    X3+B4       TAG TO BE LOADED                            GEN       718
                     76600                        =X6    0           UPPER HALF                                  GEN       719
                                                                                                                 GEN       720
           226  5160000000 X             EIS.L2   SA6    TYPLOD      LOAD TYPE CELL 1 FOR LOWER, 0 FOR UPPER     GEN       721
                          63660                   SB6    X6                                                      GEN       722
                                                                                                                 GEN       723
                                         .TEST    IFEQ   TEST,ON                                                 GEN       724
                                                  MX0    -RG.USEL                                                GEN       725
                                                  BX1    -X0*X5      EXTRACT USE COUNT                           GEN       726
                                                  ZR     X1,"BLOWUP" IF OPREAND WAS NOT DUC-ED                   GEN       727
                                                  SX1    X1-RLOCK                                                GEN       728
                                                  PL     X1,"BLOWUP" IMPOSSIBLE USE COUNT                        GEN       729
                                         .TEST    ENDIF                                                          GEN       730
                                                                                                                 GEN       731
           227  5110000461 +                      SA1    IJK         SR. FIELD INDICATOR: -3 IF K,0 IF J,3 IF I  GEN       732
                          7201777776              =X0    X1-1                                                    GEN       733
           230  5110000462 +                      SA1    OPTYP       GET SK.TYP FIELD OF CURRETN SKELETON WORD   GEN       734
                          7211777767              =X1    X1-M.LOAD                                               GEN       735
           231  20620                             LX6    RG.TYPP                                                 GEN       736
                     12556                        BX5    X5+X6                                                   GEN       737
                          5120000000 X            SA2    RREG                                                    GEN       738
           232  0330000234 +                      MI     X0,EIS.L3   IF PROCESSING J OR K FIELDS                 GEN       739
                          0322000234 +            PL     X2,EIS.L3   IF HARD REGISTER LOAD                       GEN       740
           233  0301000357 +                      ZR     X1,EIS.STO  IF OPTYP IS LOAD/STORE COMPILE A STORE      GEN       741
           234  13000                    EIS.L3   DRITE  DEACTIVATE                                              GEN       742
           235  10155                             BX1    X5                                                      GEN       743
                     66260                        SB2    B6                                                      GEN       744
                          10055                   BX0    X5                                                      GEN       745
                               20161              SBIT   X1,P2.INTRP                                             GEN       746
           236  0321000242 +                      PL     X1,EIS.L5   IF NOT INTERMEDIATE                         GEN       747
                          20056                   SBIT   X0,P2.ARRP                                              GEN       748
           237  0320000242 +                      PL     X0,EIS.L5   IF NOT ARY-LOD                              GEN       749
                          66260                   SB2    B6                                                      GEN       750
           240  0100000000 X                      CALL   SLD         LOAD SUBSCRIPTED ARRAY                      GEN       751
           241  0400000347 +                      EQ     EIS.L21                                                 FC5A346    13
                                                                                                                 GEN       753
           242  6130000000 X             EIS.L5   SB3    RG=LOAD                                                 GEN       754
                          0100000000 X            CALL   DSC         DETERMINE REGISTER STATUS CLASS             GEN       755
           243  5120000000 X                      SA2    GSTC                                                    GEN       756
                          22307                   LX3    X7                                                      GEN       757
                               10722              BX7    X2                                                      GEN       758
           244  5170000356 +                      SA7    EIS.LST     SAVE LOCATION OF STATUS WORD                GEN       759
                          10733                   BX7    X3                                                      GEN       760
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    20
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LNU 
  
           245  5120000000 X                      SA2    P2=KEEP                                                 GEN       761
                          11121                   BX1    X2*X1                                                   GEN       762
           246  5130000000 X                      SA3    TYPLOD                                                  GEN       763
                          10255                   BX2    X5                                                      GEN       764
                               20257              SBIT   X2,P2.SHRTP                                             GEN       765
           247  0332000261 +                      MI     X2,EIS.L10  IF SHORT CONSTANT                           GEN       766
                          36113                   IX1    X1+X3                                                   GEN       767
           250  0420000257 +                      ZR     B2,EIS.L7   IF TAG NOT IN REGISTER                      GEN       768
                          43020                   MX0    P2.TAGL                                                 GEN       769
                               11001              BX0    X0*X1                                                   GEN       770
           251  20020                             LX0    P2.TAGL                                                 GEN       771
                     7220757777                   SX2    X0-"P2=PFX"                                             GEN       772
           252  0322000256 +                      PL     X2,EIS.L6   IF NOT SYMTAB SYMBOL                        GEN       773
                          5120000000 X            SA2    T.SYM                                                   GEN       774
           253  63621                             =B6    X2+WB.W                                                 GEN       775
                     36200                        IX2    X0+X0                                                   GEN       776
                          36020                   IX0    X2+X0                                                   GEN       777
                               53206              SA2    X0+B6       WB(TAG)                                     GEN       778
           254  10022                             BX0    X2                                                      GEN       779
                     5120001611 +                 CLAS=  X2,WB,(EQV,BMEM)                                        GEN       780
                               11202              BX2    X0*X2                                                   GEN       781
           255  0312000257 +                      NZ     X2,EIS.L7   IF SYMBOL EQUIVALENCED                      GEN       782
                                                                                                                 GEN       783
           256                           EIS.L6   BSS    0                                                       GEN       784
           256  0520000264 +                      NZ     B2,EIS.L12   IF TAG IN REGISTER                         GEN       785
           257  63230                    EIS.L7   SB2    X3          INDICATE UPPER OR LOWER                     GEN       786
                     0100000000 X                 CALL   LTG         LOAD TAG                                    GEN       787
           260  0400000277 +                      EQ     EIS.L15                                                 GEN       788
                                                                                                                 GEN       789
           261  6130000000 X             EIS.L10  SB3    RG=LODX                                                 GEN       790
                          0520000264 +            NZ     B2,EIS.L12  IF TAG IN REGISTER                          GEN       791
           262  0100000000 X                      CALL   LSC         LOAD SHORT CONSTANT                         GEN       792
           263  0400000277 +                      EQ     EIS.L15                                                 GEN       793
                                                                                                                 GEN       794
           264  0470000277 +             EIS.L12  ZR     B7,EIS.L15  IF TAG IN CORRECT REGISTER                  GEN       795
                          5170000463 +            SA7    EIS.INST    SAVE INSTRUNCION                            GEN       796
           265  21603                             AX6    3                                                       GEN       797
                     5067000001                   =A6    A7+EIS.JREG-EIS.INST  SAVE *J* REGISTER                 GEN       798
           266  0100000000 X                      CALL   GNR         GET REGISTER                                GEN       799
           267  5120000464 +                      SA2    EIS.JREG                                                GEN       800
                          10366                   BX3    X6                                                      GEN       801
           270  5012777776                        =A1    A2-EIS.JREG+EIS.INST                                    GEN       802
                          36062                   IX0    X6+X2       =0IJ                                        GEN       803
                               66520              SB5    B2                                                      GEN       804
           271  36710                             IX7    X1+X0       OP-CODE + IJ                                GEN       805
                     20760                        LX7    PB.INSTP+3                                              GEN       806
                          6120000273 +            WCODE  X7                                                      GEN       807
           273  5110000000 X                      SA1    STRGLK                                                  GEN       808
                          0331000276 +            MI     X1,EIS.L13  IF NO ASSIGNMENT TO CLEAR                   GEN       809
           274  5211000000 C                      SA1    X1+REGFILE                                              GEN       810
                          7100000400              SX0    RLOCK                                                   GEN       811
           275  15610                             BX6    -X0*X1      UNLOCK STORE REGISTER                       GEN       812
                     54610                        SA6    A1                                                      GEN       813
           276  10633                    EIS.L13  BX6    X3                                                      GEN       814
                     66250                        SB2    B5                                                      GEN       815
                                                                                                                 GEN       816
                                        *         INDICATE TAG IN REGISTER IN REGISTER.                          GEN       817
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    21
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LNU 
  
                                        *         UPDATE USE COUNT ON TAG AND PUT IN REGFILE.                    GEN       818
                                        *         (B2) = REGISTER (0TR)                                          GEN       819
                                        *         (X5) = TAG (FROM PARSED FILE)                                  GEN       820
                                        *         (X6) = REGISTER (0R0)                                          GEN       821
                                        *                (EIS.LST) = LOCATION OF TAG STATUS WORD                 GEN       822
                                                                                                                 GEN       823
           277  5110000461 +             EIS.L15  SA1    IJK                                                     FC5A346    14
                          7201777776              SX0    X1-1                                                    FC5A346    15
           300  0320000343 +                      PL     X0,EIS.L20  IF NOT PROCESSING  J OR K  FIELD            FC5A346    16
                          7130000400              SX3    RLOCK                                                   FC5A346    17
           301  77102                             SX1    -B2                                                     FC5A346    18
                     6271000026                   SB7    X1+R.X6                                                 FC5A346    19
           302  0707000343 +                      LT     B0,B7,EIS.L20  IF TAG NOT IN STORE REGISTER             FC5A346    20
                          5127000027 C            SA2    B7+REGFILE+R.X7                                         FC5A346    21
           303  11132                             BX1    X3*X2                                                   FC5A346    22
                     0301000343 +                 ZR     X1,EIS.L20  IF OTHER STORE REGISTER NOT LOCKED          FC5A346    23
                               76720              SX7    B2                                                      FC5A346    24
           304  5170000354 +                      SA7    EIS.LK      SAVE OTR OF REGISTER TAG IS IN              FC5A346    25
                          5130000000 X            SA3    UUC                                                     FC5A346    26
           305  76700                             SX7    B0                                                      FC5A346    27
                     54730                        SA7    A3          SET USE COUNT TO ZERO TEMPORARILY           FC5A346    28
                          10733                   BX7    X3                                                      FC5A346    29
           306  5170000353 +                      SA7    EIS.LUC     CURRENT USE COUNT                           FC5A346    30
                          5130000000 X            SA3    TYPLOD                                                  FC5A346    31
           307  5110000356 +                      SA1    EIS.LST     GET LOCATION OF STATUS WORD                 GEN       825
                          63710                   SB7    X1          ORDINAL IN TABLE OF STATUS WORD             GEN       826
                               21122              AX1    18                                                      GEN       827
           310  53210                             SA2    X1          FETCH ORIGIN OF TABLE                       GEN       828
                     53127                        SA1    X2+B7                                                   GEN       829
                          63330                   SB3    X3                                                      GEN       830
           311  0100000000 X                      RJ     STS         SET STATUS OF TAG                           GEN       831
           312  6130000000 X                      SB3    RG=TEMP                                                 FC5A346    32
                          0100000000 X            CALL   SFR                                                     FC5A346    33
           313  0317000316 +                      NZ     X7,EIS.L16  IF TEMPORARY REGISTER NOT AVAILABLE         FC5A346    34
                          76620                   SX6    B2          OTR ASSIGNED BY *SFR*                       FC5A346    35
           314  5160000355 +                      SA6    EIS.LX                                                  FC5A346    36
                          5120000354 +            SA2    EIS.LK      OTR OF REG HOLDING TAG                      FC5A346    37
           315  63220                             SB2    X2                                                      FC5A346    38
                     0400000341 +                 EQ     EIS.L19     SET STATUS USING REAL USE COUNT             FC5A346    39
                                                                                                                 FC5A346    40
           316  6130000000 X             EIS.L16  SB3    RG=LODX                                                 FC5A346    41
                          0100000000 X            CALL   GNR                                                     FC5A346    42
           317  76720                             SX7    B2          OTR OF REG ASSIGNED BY *GNR*                FC5A346    43
                     5170000355 +                 SA7    EIS.LX                                                  FC5A346    44
           320  5130000000 X                      SA3    TYPLOD                                                  FC5A346    45
                          63230                   SB2    X3                                                      FC5A346    46
           321  0100000000 X                      CALL   GST                                                     FC5A346    47
           322  0520000330 +                      NZ     B2,EIS.L17  IF TAG IN REGISTER - XMIT                   FC5A346    48
                          5110000356 +            SA1    EIS.LST     GET LOCATION OF STATUS WORD                 FC5A346    49
           323  63710                             SB7    X1          ORDINAL IN TABLE OF STATUS WORD             FC5A346    50
                     21122                        AX1    18                                                      FC5A346    51
                          53210                   SA2    X1          FETCH ORIGIN OF TABLE                       FC5A346    52
                               53127              SA1    X2+B7                                                   FC5A346    53
           324  5130000000 X                      SA3    TYPLOD      UPPER/LOWER                                 FC5A346    54
                          20324                   LX3    P2.BIASP    POSITION TYPE                               FC5A346    55
                               36113              IX1    X1+X3       ADD(TYPLOD) INTO BIAS                       FC5A346    56
           325  5130000355 +                      SA3    EIS.LX      ASSIGNED REGISTER                           FC5A346    57
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    22
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LNU 
  
                          63230                   SB2    X3                                                      FC5A346    58
                               43071              MX0    -3                                                      FC5A346    59
           326  15630                             BX6    -X0*X3                                                  FC5A346    60
                     20603                        LX6    3                                                       FC5A346    61
                          0100000000 X            CALL   CLI                                                     FC5A346    62
           327  0400000341 +                      EQ     EIS.L19                                                 FC5A346    63
                                                                                                                 FC5A346    64
           330  5120000355 +             EIS.L17  SA2    EIS.LX      OTR OF REGISTER TO TRANSMIT TO              FC5A346    65
                          63220                   SB2    X2                                                      FC5A346    66
                               43071              MX0    -3                                                      FC5A346    67
           331  15220                             BX2    -X0*X2      (00R) *I* REGISTER                          FC5A346    68
                     5130000354 +                 SA3    EIS.LK                                                  FC5A346    69
                               76600              SX6    B0                                                      FC5A346    70
           332  63530                             SB5    X3          OTR OF REGISTER TRANSMITTING FROM           FC5A346    71
                     15730                        BX7    -X0*X3      (00R) *J* REGISTER                          FC5A346    72
                          5115000000 C            SA1    B5+REGFILE  *X* REGFILE ENTRY                           FC5A346    73
           333  5135777767 C                      SA3    B5+REGFILE-REG.A  *A* REGFILE ENTRY                     FC5A346    74
                          13131                   BX1    X3-X1                                                   FC5A346    75
                               21111              AX1    OP.USEL                                                 FC5A346    76
           334  0311000335 +                      NZ     X1,EIS.L18  IF TAGS NOT EQUAL CLEAR X REGFILE NTRY ONLY FC5A346    77
                          54630                   SA6    A3          CLEAR OLD *A* REGFILE ENTRY                 FC5A346    78
                                                                                                                 FC5A346    79
           335  54610                    EIS.L18  SA6    A1          CLEAR OLD *X* REGFILE ENTRY                 FC5A346    80
                     20203                        LX2    3                                                       FC5A346    81
                          36772                   IX7    X7+X2                                                   FC5A346    82
           336  7277001000                        SX7    X7+XMT/1S3                                              FC5A346    83
                          20760                   LX7    PB.GHIJP                                                FC5A346    84
                               66520              SB5    B2                                                      FC5A346    85
           337  6120000340 +                      WCODE  X7          TRANSMIT                                    FC5A346    86
           340  66250                             SB2    B5                                                      FC5A346    87
                                                                                                                 FC5A346    88
           341  5110000353 +             EIS.L19  SA1    EIS.LUC     SAVED USE COUNT                             FC5A346    89
                          10711                   BX7    X1                                                      FC5A346    90
           342  5170000000 X                      SA7    UUC         RESTORE USE COUNT                           FC5A346    91
                                                                                                                 FC5A346    92
           343  5130000000 X             EIS.L20  SA3    TYPLOD                                                  FC5A346    93
                          5110000356 +            SA1    EIS.LST     GET LOCATION OF STATUS WORD                 FC5A346    94
           344  63710                             SB7    X1                                                      FC5A346    95
                     21122                        AX1    18                                                      FC5A346    96
                          53210                   SA2    X1          FETCH ORIGIN OF TABLE                       FC5A346    97
                               53127              SA1    X2+B7                                                   FC5A346    98
           345  63330                             SB3    X3                                                      FC5A346    99
                     0100000000 X                 CALL   STS         SET STATUS OF TAG                           FC5A346   100
           346  43071                             MX0    -3                                                      FC5A346   101
                     76120                        SX1    B2                                                      FC5A346   102
                          15610                   BX6    -X0*X1                                                  FC5A346   103
                               20603              LX6    3           0R0                                         FC5A346   104
                                                                                                                 GEN       832
           347  5110000465 +             EIS.L21  SA1    HREG                                                    FC5A346   105
                          0301000440 +            ZR     X1,EIS.LRF  IF HARD REGISTER TO REMAIN UN-LOCKED        GEN       834
           350  10266                             BX2    X6                                                      GEN       835
                     43700                        MX7    0                                                       GEN       836
                          20271                   LX2    -3                                                      GEN       837
                               54710              SA7    A1          CLEAR HREG                                  GEN       838
           351  63720                             SB7    X2                                                      GEN       839
                     0100000000 X                 CALL   RLL         LOCK REGISTER                               GEN       840
           352  0400000440 +                      EQ     EIS.LRF                                                 GEN       841
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    23
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LNU 
  
           353  00000000000000000000     EIS.LUC  DATA   0           USE COUNT SAVED HERE                        FC5A346   106
           354  00000000000000000000     EIS.LK   DATA   0           OTR OF REG TAG IS IN                        FC5A346   107
           355  00000000000000000000     EIS.LX   DATA   0           REG ASSIGNED AFTER GNR CALL                 FC5A346   108
                                                                                                                 GEN       842
           356  00000000000000400356 +   EIS.LST  CON    "BLOWUP"    LOCATION OF TAG STATUS WORD                 GEN       843
  
  
  
  
                                        **        EIS.STO - STORE PROCESSOR.                                     GEN       845
                                        *                                                                        GEN       846
                                        *         ENTRY  (X5) = STORE TARGET (THE LEFT MEMBER)                   GEN       847
                                        *                       SHOULD = OR.1OP OR OR.2OP                        GEN       848
                                                                                                                 GEN       849
           357  5120000457 +             EIS.STO  SA2    INS.REG     GET (0R0) FOR RIGHT HAND SIDE               GEN       850
                          13777                   BX7    0                                                       GEN       851
                               22602              LX6    X2                                                      GEN       852
           360  5170000000 X                      SA7    UUC         DO NOT DECRIMENT USE COUNT                  GEN       853
                          21203                   AX2    3           (X2) = (00R)                                GEN       854
           361  6222000020                        SB2    X2+REG.X    ADD IN TYPE FOR (0TR)                       GEN       855
                          7102777751              SX0    B2-R.X6                                                 GEN       856
           362  0320000370 +                      PL     X0,EIS.ST1  IF IN *STORE* REGISTER                      GEN       857
                          63720                   SB7    X2                                                      FC50066     9
           363  0100000000 X                      RJ     RLL         LOCK RHS IN CASE ASR CALLS DRITE(FP OR LCM) FC50066    10
           364  0100000000 X                      RJ     ASR         ASSIGN STORE REGISTER                       GEN       858
           365  7170767777                        SX7    -XMT                                                    GEN       859
                          5170000000 X            SA7    RREG        SET *RIGHT MEMBER NOT IN STORE REG* FLAG    GEN       860
           366  5110000457 +                      SA1    INS.REG                                                 FC50066    11
                          21103                   AX1    3                                                       FC50066    12
                               63710              SB7    X1                                                      FC50066    13
           367  0100000000 X                      RJ     RUL         UNLOCK RHS REG                              FC50066    14
                                                                                                                 GEN       861
                                        *         CHECK LEFT MEMBER FOR VARIABLE TYPE                            GEN       862
                                        *                (B2) = 0TR RIGHT MEMBER                                 GEN       863
                                        *                (X5) = LEFT MEMBER                                      GEN       864
                                                                                                                 GEN       865
           370  10255                    EIS.ST1  BX2    X5                                                      GEN       866
                     20261                        SBIT   X2,P2.INTRP                                             GEN       867
                          0322000402 +            PL     X2,EIS.ST3  IF NOT INTERMEDIATE, SKIP ARRAY LOAD        GEN       868
                                                                                                                 GEN       869
                                        *         LEFT MEMBER IS A *SUBSCRIPTED ARRAY INVOLVING ADDRESS FUNCTION GEN       870
                                                                                                                 GEN       871
           371  5110000000 X                      SA1    RREG        GET HARD REG CELL                           GEN       872
                          76720                   SX7    B2                                                      GEN       873
           372  6271010000                        SB7    X1+XMT                                                  GEN       874
                          54710                   SA7    A1          SET HARD REG = 0TR OF RIGHE HAND SIDE       GEN       875
           373  0570000377 +                      NZ     B7,EIS.ST2   IF RIGHT HAND SIDE IN STORE REG            GEN       876
                                                                                                                 GEN       877
                                        *         COMPILE A TRANSMIT OF THE RIGHT MEMBER INTO A STORE REG.       GEN       878
                                                                                                                 GEN       879
                          5130000457 +            SA3    INS.REG     GET CURRENT 0R0, THE J-REG                  GEN       880
           374  43071                             MX0    -3                                                      GEN       881
                     14211                        BX2    -X1         SET XMT OPCODE IN (X2)                      GEN       882
                          36732                   IX7    X3+X2       ADD  XMT + 0J0                              GEN       883
                               20603              LX6    3           (X6) = R00 OF THE I-REG                     GEN       884
           375  36776                             IX7    X7+X6       ADD I-REG TO INSTRUCTION WORD               GEN       885
                     20755                        LX7    PB.INSTP                                                GEN       886
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    24
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.STO 
  
                          6120000377 +            WCODE  X7          WRITE TRANSMIT INSTRUCTION                  GEN       887
           377  66260                    EIS.ST2  SB2    B6          SET TYPE ( 1 IF UPPER, 0 IF LOWER)          GEN       888
                     76710                        =X7    1                                                       GEN       889
                          5170000000 X            SA7    UUC         SET USE COUNT DECREMENT CELL.               GEN       890
           400  0100000000 X                      CALL   SLD         LOAD SUBSCRIPTED ARRAY                      GEN       891
           401  0400000451 +                      EQ     EIS.REG                                                 GEN       892
                                                                                                                 GEN       893
                                        *         SET DELAYED STORE IN MOTION                                    GEN       894
                                                                                                                 GEN       895
           402  66320                    EIS.ST3  SB3    B2          SET 0TR OF RIGHT HAND SIDE                  GEN       896
                     66260                        SB2    B6          SET TYPE ( 1 FOR UPPER, 0 FOR LOWER)        GEN       897
                          0100000000 X            CALL   SDS         SET DELAYED STORE                           GEN       898
           403  0400000451 +                      EQ     EIS.REG                                                 GEN       899
  
  
  
  
                                        **        EIS.IR - SET INTERMEDIATE RESULT REGISTER.                     GEN       901
                                        *                                                                        GEN       902
                                        *             ENTRY  (B4) _ TURPLE.                                      GEN       903
                                        *             EXIT   (X6) REGISTER NUMBER - 0R0.                         GEN       904
                                        *             USES   A1,A2,A3  X0  B2,B7                                 GEN       905
                                        *             CALLS  CDS                                                 GEN       906
                                                                                                                 GEN       907
                                                                                                                 GEN       908
           404  6160000001               EIS.IRL  SB6    1           SET TYPE = FOR 1 LOWER HALF                 GEN       909
                          0400000406 +            EQ     EIS.IR1                                                 GEN       910
                                                                                                                 GEN       911
           405  6160000000               EIS.IR   SB6    0           SET TYPE = 0 FOR UPPER HALF                 GEN       912
                          0400000406 +            EQ     EIS.IR1                                                 GEN       913
                                                                                                                 GEN       914
                                        *         CHECK IF NEXT TURPLE IS A STORE TURPLE                         GEN       915
                                                                                                                 GEN       916
           406  5124000003               EIS.IR1  SA2    B4+Z=TURP   GET NEXT OPERATOR                           GEN       917
                          13666                   BX6    0                                                       GEN       918
           407  5160000000 X                      SA6    UUC         DO NOT DECRIMENT USE COUNT                  GEN       919
                          43066                   MX0    -OP.CHINL                                               GEN       920
                               21226              AX2    OP.CHINP                                                GEN       921
           410  15220                             BX2    -X0*X2      EXTRACT OPERATOR CHARACTOR INDEX            GEN       922
                     7222777736                   SX2    X2-O.=      SUBTRACT INDEX FOR A STORE                  GEN       923
           411  0312000413 +                      NZ     X2,EIS.IR10 IF NEXT TURP NOT A STORE, GET ANY FREE REG  GEN       924
                          0100000000 X            CALL   ASR         FIND AVAILABLE STORE REGISTER               GEN       925
           412  0400000417 +                      EQ     EIS.IR30    CONTINUE                                    GEN       926
                                                                                                                 GEN       927
                                        *         IF INTERMEDIATE NOT INPUT INTO *STORE* TURPLE                  GEN       928
                                                                                                                 GEN       929
           413  0100000000 X             EIS.IR10 CALL   AIR         ASSIGN INTERMEDIATE REGISTER                GEN       930
           414  0620000416 +                      PL     B2,EIS.IR20 IF REGISTER AVAILABLE                       GEN       931
                          0100000000 X            CALL   ASR         USE STORE REGISTER                          GEN       932
           415  0400000417 +                      EQ     EIS.IR30                                                GEN       933
                                                                                                                 GEN       934
           416  0307000417 +             EIS.IR20 ZR     X7,EIS.IR30 IF REGISTER FREE                            GEN       935
                          0100000000 X            CALL   RUT         CLEAR TEMPORARY REGISTER                    GEN       936
                                                                                                                 GEN       937
                                        **        (B2) = 0TR. FOR RESULTS.                                       GEN       938
                                                                                                                 GEN       939
           417  76500                    EIS.IR30 =X5    0                                                       GEN       940
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    25
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.IR
  
                     66360                        SB3    B6          INTERMEDIATE TYPE (UPPER/LOWER)             GEN       941
                          0100000000 X            CALL   DIT         DEFINE INTERMEDIATE                         GEN       942
           420  0400000451 +                      EQ     EIS.REG                                                 GEN       943
  
  
  
  
                                        **        SET CONSTANT FOR CURRENT INSTRUCTION.                          GEN       945
                                                                                                                 GEN       946
           421                           EIS.AA   BSS    0                                                       GEN       947
           421                           EIS.CA   BSS    0                                                       GEN       948
           421  73630                    EIS.K    SX6    X3          6 BIT TYPE CONSTANT.                        GEN       949
                     67201                        =B2    -1          INDICATE NOT A REGISTER (FOR EIS.LRF)       GEN       950
                          20603                   LX6    3                                                       GEN       951
           422  0400000440 +                      EQ     EIS.LRF                                                 GEN       952
  
  
  
  
                                        **        EIS.Q - IMMEDIATE 18 BIT OPERAND.                              GEN       954
                                        *                                                                        GEN       955
                                        *         NOTE THAT INCREMENT UNIT IS NOT USED TO EXTRACT THE FIELD FROM GEN       956
                                        *         THE SKELETON WORD, BECAUSE SIGN EXTENSION IS NOT WANTED.       GEN       957
                                                                                                                 GEN       958
                                                                                                                 GEN       959
           423  54240                    EIS.Q    SA2    A4          RELOAD SKELETON WORD                        GEN       960
                     43052                        MX0    -SK.JPADL                                               GEN       961
                                                  LX2    -SK.JPADP                                               GEN       962
                          43600                   MX6    0           TAG = 0                                     GEN       963
                               15720              BX7    -X0*X2      BIAS = JPAD                                 GEN       964
           424  0400000432 +                      EQ     EIS.P5      PROCESS AS INTERMEDIATE                     GEN       965
  
  
  
  
                                        **        EIS.S - SYMORD OF OPERAND IS IN AN (S=ORD) CELL.               GEN       967
                                                                                                                 GEN       968
                                                                                                                 GEN       969
           425  54240                    EIS.S    SA2    A4          GET SKELETON WORD                           GEN       970
                                                  LX2    -SK.JPADP                                               GEN       971
                     53220                        SA2    X2          GET SYMBOL TABLE TAG                        GEN       972
                                   0              ERRNZ  18-SK.JPADL                                             GEN       973
                          10622                   BX6    X2          TAG = (JPAD)                                GEN       974
                               43700              MX7    0                                                       GEN       975
           426  0400000432 +                      EQ     EIS.P5                                                  GEN       976
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    26
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.P 
  
                                        **        PROCESS TAG AND BIAS FIELD SIMULTANEOULSY.                     GEN       978
                                        *         WILL PROCESS P2.TAGL AND/OR P2.BIASL ELEMENTS OF TURPLE        GEN       979
                                        *         OPERAND FOR ADD IN TO INSTRUCTION BUILD WORD.                  GEN       980
                                        *                                                                        GEN       981
                                        *         ENTRY  (X3)  RELATIVE WORD IN PARSE FILE TO USE                GEN       982
                                        *                (B4)  START OF TURPLE                                   GEN       983
                                        *                                                                        GEN       984
                                        *         EXIT   TO EIS.PX5 TO COMPLETE INSTRUCTION BUILD.               GEN       985
                                                                                                                 GEN       986
                                                                                                                 GEN       987
           427                           EIS.P    BSS    0                                                       GEN       988
           427  53234                             SA2    X3+B4       LOAD PARSED FILE WORD = 18/TAG,18/BIAS,24/0 GEN       989
                                                                                                                 GEN       990
           430  43052                    EIS.P4   MX0    -PB.BIASL                                               GEN       991
                     20250                        LX2    -P2.BIASP                                               GEN       992
                          15720                   BX7    -X0*X2      TRUNC(P2.BIAS)                              GEN       993
                               43054              MX0    -P2.TAGL                                                GEN       994
           431  20244                             LX2    P2.BIASP-P2.TAGP                                        GEN       995
                     15620                        BX6    -X0*X2      P2.TAG                                      GEN       996
                                                                                                                 GEN       997
                                        *         (X6) = TAG                                                     GEN       998
                                        *         (X7) = 18-BIT BIAS                                             GEN       999
                                                                                                                 GEN      1000
           432  5150000462 +             EIS.P5   SA5    OPTYP                                                   GEN      1001
                          6275777773              SB7    X5-M.SHIF                                               GEN      1002
                                                                                                                 GEN      1003
                                        *         REPOSITION TAG PREFIX FROM P2 TO PB POSITION.                  GEN      1004
                                                                                                                 GEN      1005
           433  43003                             MX0    P2.PFXL                                                 GEN      1006
                     20020                        LX0    P2.PFXL+P2=PFX                                          GEN      1007
                          11006                   BX0    X0*X6       EXTRACT TAG PREFIX                          GEN      1008
                               15660              BX6    -X0*X6      CLEAR PREFIX FROM TAG                       GEN      1009
           434  20002                             LX0    P=PFX-P2=PFX      REPOSITION                            GEN      1010
                     12606                        BX6    X0+X6                                                   GEN      1011
                          20752                   LX7    -PB.BIASL                                               GEN      1012
                               12667              BX6    X6+X7       18/BIAS,24/0,18/TAG                         GEN      1013
           435  0470000451 +                      ZR     B7,EIS.REG  IF IMEDIATE VALUE IS A SHIFT COUNT          GEN      1014
                                                                                                                 GEN      1015
                                        **        WE ARE COMPILING A 30-BIT INSTRUCTION. WE MUST                 GEN      1016
                                        *         BE CAREFUL TO PLACE OUR IMEDIATE VALUE IN THE COR-             GEN      1017
                                        *         RECT POSITION SO THAT EIS.REG WILL SHIFT IT TO THE             GEN      1018
                                        *         SAME POSITION REGARDLESS OF WHERE IJK IS PIONTING.             GEN      1019
                                                                                                                 GEN      1020
                          5130000461 +            SA3    IJK                  GET VARIABLE SHIFT COUNT           GEN      1021
           436  6263777722                        SB6    X3-60+PB.TAGL-PB.KL  NEGATIVE OF DISIRED SHIFT COUNT    GEN      1022
                                 -11              ERRPL  6-PB.TAGL+PB.KL   POSSIBLE DANGER OF DROPPED BITS       GEN      1023
                          67606                   SB6    -B6         SET SHIFT COUNT                             GEN      1024
                               22666              LX6    B6,X6       POSITION IMEDIATE FIELDS                    GEN      1025
           437  0400000451 +                      EQ     EIS.REG                                                 GEN      1026
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    27
        EIS - EXPAND INSTRUCTION SKELETONS.                           EIS.LRF 
  
                                        **        LOCK REGISTER FILE FOR REGISTER USED IN CURRENT INSTRUCTION    GEN      1028
                                        *                                                                        GEN      1029
                                        *         ENTRY  (B2) = 0TR                                              GEN      1030
                                        *                (X6) = 0R0, AS ABOVE.                                   GEN      1031
                                        *                                                                        GEN      1032
                                        *         EXIT   LOCK BIT SET IN (REGFILE) IF ASSIGNMENT IS FOR          GEN      1033
                                        *                            *K* PORTION OF INSTRUCTION.                 GEN      1034
                                        *                CLEAR LOCK BIT ON *K* IF PROCESSING *J*                 GEN      1035
                                                                                                                 GEN      1036
                                                                                                                 GEN      1037
           440  5120000461 +             EIS.LRF  SA2    IJK                                                     GEN      1038
                          5110000000 X            SA1    REGLK                                                   GEN      1039
           441  43773                             MX7    -1                                                      GEN      1040
                     0322000446 +                 PL     X2,EIS.LRF5 IF NOT PROCESSING *K*                       GEN      1041
           442  0720000451 +                      MI     B2,EIS.REG  IF A CONSTANT (NOT A REGISTER)              GEN      1042
                          76520                   SX5    B2                                                      GEN      1043
                               43171              MX1    -3                                                      GEN      1044
           443  15251                             BX2    -X1*X5      GET REGISTER -00R                           GEN      1045
                     63720                        SB7    X2                                                      GEN      1046
                          0100000000 X            CALL   RLL         LOCK REGISTER                               GEN      1047
           444  5170000000 X                      SA7    REGLK       SAVE REGISTER  -00R.                        GEN      1048
                          54771                   =A7    A7+1                                                    GEN      1049
           445  0400000451 +                      EQ     EIS.REG     CONTINUE                                    GEN      1050
                                                                                                                 GEN      1051
           446  54710                    EIS.LRF5 SA7    A1          CLEAR *REGLK*                               GEN      1052
                     0312000451 +                 NZ     X2,EIS.REG  IF NOT PROCESSING *J*                       GEN      1053
           447  5170000000 X                      SA7    CLOADJ                                                  GEN      1054
                          63710                   SB7    X1                                                      GEN      1055
           450  0100000000 X                      CALL   RUL         UNLOCK REGISTER                             GEN      1056
                                        *         EQ     EIS.REG                                                 GEN      1057
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    28
        EIS - EXPAND INSTRUCTION SKELETONS.                           REG 
  
                                        **        9.  SET REGISTER IN TO BUILD REGISTER,(X5), AND CONTINUE       GEN      1059
                                        *             TO NEXT.                                                   GEN      1060
                                        *             ENTRY  (X6) = REGISTER - 0R0                               GEN      1061
                                        *                                                                        GEN      1062
                                        *             EXIT   (X1) REGISTER SHIFTED APPROPRIATELY.                GEN      1063
                                        *                    (X4) SHIFTED BY -L.INUM                             GEN      1064
                                        *                    (B6) UPDATED BY 3.                                  GEN      1065
                                        *                    INS.REG =  REGISTER ADDED IN PROPER POSITION.       GEN      1066
                                                                                                                 GEN      1067
                                                                                                                 GEN      1068
           451  5130000461 +             EIS.REG  SA3    IJK                                                     GEN      1069
                          5110000457 +            SA1    INS.REG                                                 GEN      1070
           452  63630                             SB6    X3                                                      GEN      1071
                     0323000454 +                 PL     X3,EIS.RG5  IF POSITIVE SHIFT                           GEN      1072
           453  6166000074                        SB6    B6+60       NO DROPPING THE BITS..                      GEN      1073
           454  22266                    EIS.RG5  LX2    B6,X6                                                   GEN      1074
                     12612                        BX6    X1+X2                                                   GEN      1075
                          20467                   LX4    -SR.OADL                                                GEN      1076
           455  7273000003                        SX7    X3+3                                                    GEN      1077
                          54610                   SA6    A1          UPDATE ASSIGNED                             GEN      1078
                               54730              SA7    A3          UPDATE *IJK*                                GEN      1079
           456  0400000050 +                      EQ     EIS.NX      CONTINUE FOR NEXT PORTION OF INSTRUCTION.   GEN      1080
                                                                                                                 GEN      1081
           457                     1     INS.REG  BSZENT 1           IJK PARTS OF INSTRUCTION                    FC50950    49
           460  00000000000000000000     OPCODE   DATA   0           OPCODE                                      GEN      1083
           461                     1     IJK      BSZENT 1           = 3 PROCESSING *I* PART                     FC50950    50
                                                                     = 0    -       *J*  -                       GEN      1085
                                                                     =-3    -       *K*  -                       GEN      1086
           462  00000000000000000000     OPTYP    DATA   0           M.XXX FOR OP-CODE FIELD OF SKELETON         GEN      1087
                                                                                                                 GEN      1088
                                                                                                                 GEN      1089
           463  00000000000000000000     EIS.INST DATA   0           INSTRUNCION TO PUT TAG IN CORRECT REGISTER  GEN      1090
           464  00000000000000000000     EIS.JREG DATA   0           *J* REGISTER FOR ABOVE                      GEN      1091
           465                     1     HREG     BSSZ   1           LOCK HARD REGISTER FLAG                     GEN      1092
           466                     1     RUT.REG  BSZENT 1           IJK PARTS OF PREVIOUS INSTRUCTION           FC50950    51
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    29
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=XXX 
  
                                        **        O=XXX - THIS SECTION CONTAINS SPECIAL PROCESSING ROUTINES      GEN      1095
                                        *                 USED FOR EXPANSION OF SKELETONS.                       GEN      1096
  
  
  
  
                                        **        BOS - BEGINNING OF STATEMENT.                                  GEN      1098
                                        *                                                                        GEN      1099
                                        *         ENTRY  (A5) _ CURRENT TURPLE HEADER.                           FC5A337    22
                                        *                (X0) = COMPLEMENT MASK OF [OP.LINE].                    GEN      1101
                                        *                (X1) = [OP.LINE] OF CURRENT TURPLE.                     GEN      1102
                                        *                (X5) = CURRENT TURPLE HEADER.                           GEN      1103
                                        *                                                                        GEN      1104
                                        *         EXIT   LINE NUMBER REMOVED FROM CURRENT TURPLE HEADER.         GEN      1105
                                        *                (X5) = ADJUSTED TURPLE HEADER.                          GEN      1106
                                        *                (TRACE) = CURRENT LINE NUMBER.                          GEN      1107
                                        *                                                                        GEN      1108
                                        *         ISSUES (I.BOS) PSUEDO.                                         GEN      1109
                                        *                (I.OTR) IF *ER* SELECTED.                               GEN      1110
                                        *                (RJ FID) IF *DB=ID* SELECTED.                           GEN      1111
                                        *                                                                        GEN      1112
                                        *         USES   ALL BUT  A0,  B4.                                       GEN      1113
                                        *         CALLS  WCODE.                                                  GEN      1114
                                                                                                                 GEN      1115
                                                                                                                 GEN      1116
           467  0400400467 +             BOS      SUBR   0           ENTRY/EXIT...                               GEN      1117
           470  11605                             BX6    X0*X5       REMOVE LINE NUMBER FROM (OP.)               GEN      1118
                     20140                        LX1    -OP.LINEP                                               GEN      1119
                          5120000000 X            SA2    CO.DBER                                                 GEN      1120
           471  5130000000 X                      SA3    CO.DBID                                                 GEN      1121
                          12223                   BX2    X2+X3                                                   GEN      1122
                               11505              BX5    X0*X5       ADJUST (X5) ALSO                            GEN      1123
           472  22701                             LX7    X1                                                      GEN      1124
                     54650                        SA6    A5                                                      GEN      1125
                          5170000000 X            SA7    TRACE                                                   GEN      1126
           473  0302000477 +                      ZR     X2,BOS4     IF ERROR RECOVERY DE-SELECTED               FC50936     6
                          0313000476 +            NZ     X3,BOS3     IF CO.DBID ON                               FC50936     7
           474  13000                             DRITE  DEACTIVATE                                              GEN      1128
           475  0400000477 +                      EQ     BOS4                                                    FC50936     8
                                                                                                                 FC5A337    23
           476  0100000000 X             BOS3     CALL   CIA         CLEAR ALL REGISTERS                         FC50936     9
           477  5110000000 X             BOS4     SA1    TRACE                                                   GEN      1129
                          7130000022              SX3    I.BOS                                                   GEN      1130
           500  20114                             LX1    PB.BIASP                                                GEN      1131
                     20360                        LX3    PB.GHIJP                                                GEN      1132
                          12413                   BX4    X1+X3                                                   GEN      1133
                               10744              WCODE  X4          ISSUE  * BOS  LINE-NUMBER *                 GEN      1134
           502  5124000003                        SA2    B4+Z=TURP   NEXT TURPLE                                 FC5A166     8
                          14322                   BX3    -X2                                                     FC5A166     9
                                                  HX3    TH.SKEL                                                 FC50104   247
                               21356              AX3    -TH.SKELL   EXTRACT (SIGN EXTEND) NEGATIVE SKEL ORDINAL FC50104   248
           503  7233000000 X                      SX3    X3+V=BSS                                                FC5A337    24
                          0313000511 +            NZ     X3,BOS5     IF BSS NOT NEXT                             FC5A166    13
           504  7100200000                        CLAS=  X0,OP,BSSI                                              FC5A166    14
                          12602                   BX6    X0+X2                                                   FC5A166    15
                               54620              SA6    A2          MARK BSS ISSUED                             FC5A166    16
           505  54121                             =A1    A2+OR.1OP                                               FC5A166    17
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    30
        (O=)  PROCESSORS CALLED BY SKELETONS.                         BOS 
  
                     0100000532 +                 RJ     PBW         PREPARE BSS FOR WCODE                       FC5A166    18
           506  5170000000 X                      SA7    ESTACK      SAVE BSS                                    FC5A166    19
                          0100000000 X            CALL   CIA         CLEAR ALL REGISTERS                         FC5A166    20
           507  5120000000 X                      SA2    ESTACK                                                  FC5A166    21
                          10722                   BX7    X2                                                      FC5A166    22
           510  6120000511 +                      WCODE  X7          ISSUE BSS                                   FC5A166    23
                                                                                                                 FC5A166    24
           511  5120000000 X             BOS5     SA2    CO.DBER                                                 FC5A166    25
                          5130000000 X            SA3    CO.DBID                                                 GEN      1136
           512  7160000016                        SX6    I.BOS&I.OTR                                             GEN      1137
                          12223                   BX2    X2+X3                                                   GEN      1138
           513  0302000467 +                      ZR     X2,EXIT.    IF OBJECT-TIME-REPRIEVE DE-SELECTED         GEN      1139
                          5120000000 X            SA2    MOD                                                     GEN      1140
           514  20263                             HX2    MO.BLK                                                  GEN      1141
                     0332000467 +                 MI     X2,EXIT.    IF PROCESSING BLOCK DATA                    GEN      1142
                               20660              LX6    PB.GHIJP                                                GEN      1143
           515  13746                             BX7    X4-X6       SWITCH OPCODE                               GEN      1144
                     0303000522 +                 ZR     X3,BOS8     IF INTERACTIVE DEBUG NOT SELECTED           GEN      1145
           516  6120000517 +                      WCODE  X7                                                      GEN      1146
           517  0100000000 X                      CALL   CIA         CLEAR ALL REGISTERS                         GEN      1147
           520  7130000035                        SX3    I.RJ3                                                   GEN      1148
                          5140000000 X            SA4    S=FID                                                   GEN      1149
           521  20360                             LX3    PB.GHIJP                                                GEN      1150
                     20436                        LX4    PB.TAGP                                                 GEN      1151
                          12734                   BX7    X3+X4                                                   GEN      1152
                                                                                                                 FC5A337    25
           522  6120000467 +             BOS8     WCODE  X7,EXIT.                                                GEN      1153
  
  
  
  
                                        **        CAR -  CLEAR ALL REGISTER ASSOCIATES.                          GEN      1155
                                        *                                                                        GEN      1156
                                        *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                GEN      1157
                                        *                                                                        GEN      1158
                                        *         EXIT   *DRITE* CLEARED.                                        GEN      1159
                                        *                ALL REGISTER ASSOCIATES CLEARED.                        GEN      1160
                                        *                EXIT TO NULLOP                                          GEN      1161
                                        *                                                                        GEN      1162
                                        *         CALLS  CAR.                                                    GEN      1163
                                                                                                                 GEN      1164
           523                           O=CAR    BSSENT             ENTRY...                                    GEN      1165
           523  0100000000 X                      CALL   CIA         CLEAR REGISTER FILE                         GEN      1166
           524  0400000125 +                      EQ     NULLOP                                                  GEN      1167
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    31
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=CBJ 
  
                                        **        O=CBJ -  COMPILE INDEXED (B) JUMP.                             GEN      1169
                                        *                                                                        GEN      1170
                                        *         ENTRY  (X1) = LABEL                                            GEN      1171
                                        *                (A4,X4) = SKELETON WORD                                 GEN      1172
                                        *                                                                        GEN      1173
                                        *         EXIT   TO EIS.CMP                                              GEN      1174
                                        *                (X7) = INSTRUCTION TO COMPILE                           GEN      1175
                                        *                (X3) = SKELETON SHIFTED BY P.IEND                       GEN      1176
                                        *                AN  * JP   B6 + L.N  *  HAS BEEN CONSTRUCTED            GEN      1177
                                                                                                                 GEN      1178
                                                                                                                 GEN      1179
           525                           O=CBJ    BSSENT 0           ENTRY...                                    GEN      1180
           525  20156                             LX1    -P2.TAGP+PB.TAGP                                        GEN      1181
                     7150000006                   SX5    R.B6        ** B6 ONLY **                               GEN      1182
           526  7120000030                        =X2    I.JPI                                                   GEN      1183
                          12115                   BX1    X1+X5                                                   GEN      1184
                               20260              LX2    PB.GHIJP                                                GEN      1185
           527  12712                             BX7    X1+X2       12/GHIJ,18/TAG(IF EXISTS),18/0,12/B-REG     GEN      1186
                     0400000122 +                 EQ     CBREAK      RETURN TO COMPILE INSTRUCTION               GEN      1187
  
  
  
  
                                        **        CDW -  CHECK *DRITE* FLAG AND PROCESS IF SET.                  GEN      1189
                                        *                                                                        GEN      1190
                                        *         ENTRY  (B4) _ CURRENT *TURPLE* BEING PROCESSED.                GEN      1191
                                        *                                                                        GEN      1192
                                        *         EXIT   *DRITE* CLEARED.                                        GEN      1193
                                        *                EXIT TO NULLOP                                          GEN      1194
                                        *                                                                        GEN      1195
                                        *         CALLS  CDS                                                     GEN      1196
                                                                                                                 GEN      1197
                                                                                                                 GEN      1198
           530                           O=CDW    BSSENT             ENTRY...                                    GEN      1199
           530  13000                             DRITE  DEACTIVATE                                              GEN      1200
           531  0400000125 +                      EQ     NULLOP                                                  GEN      1201
  
  
  
  
                                        **        CBSS - DEFINE LABEL.                                           GEN      1203
                                        *                                                                        GEN      1204
                                        *         ENTRY  (X1) = LABEL TO DEFINE.                                 GEN      1205
                                        *                (X4) = SKELETON WORD                                    GEN      1206
                                        *                                                                        GEN      1207
                                        *         EXIT   TO *CBREAK*                                             GEN      1208
                                        *                (X3) = SKELETON SHIFTED BY SK.ENDP                      GEN      1209
                                        *                (X7) = INSTRUCTION FORMATTED FOR LONG FILE              GEN      1210
                                        *                                                                        GEN      1211
                                        *         NOTE THAT QCG CANNOT TAKE ADVANTAGE OF THE INACTIVE LABEL      GEN      1212
                                        *         BIT (WB.INA), BECAUSE IT IS NOT GUARENTEED CORRECT UNTIL       GEN      1213
                                        *         THE ENTIRE PROGRAM-UNIT HAS BEEN SCANNED.                      GEN      1214
                                        *                                                                        GEN      1215
                                        *         USES   CANNOT DESTROY  A0,A4  B4                               GEN      1216
                                                                                                                 GEN      1217
                                                                                                                 GEN      1218
           532  0400400532 +             PBW      SUBR               PREPARE BSS FOR WCODE                       FC5A166    26
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    32
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=CBSS
  
           533  20120                             LX1    -P2.TAGP                                                GEN      1221
                     43057                        MX0    -P2.ORDL                                                GEN      1222
                          15210                   BX2    -X0*X1                                                  GEN      1223
                               43003              MX0    P2.PFXL                                                 GEN      1224
           534  20020                             LX0    P2.PFXL+P2=PFX                                          GEN      1225
                     11001                        BX0    X0*X1                                                   GEN      1226
                          20002                   LX0    P=PFX-P2=PFX      REPOSITION TAG PREFIX                 GEN      1227
                               12202              BX2    X0+X2                                                   GEN      1228
           535  7100000024                        =X0    I.BSS                                                   GEN      1229
                          20060                   LX0    PB.GHIJP                                                GEN      1230
                               20236              LX2    PB.TAGP                                                 GEN      1231
           536  12702                             BX7    X0+X2                                                   GEN      1232
                     0400000532 +                 EQ     EXIT.                                                   FC5A166    27
  
  
  
  
           537                           O=PLA    BSSENT 0                                                       FC5A166    29
           537  56240                             SA2    B4                                                      FC5A166    30
                     20253                        HX2    OP.BSSI                                                 FC5A166    31
                          0332000125 +            MI     X2,NULLOP   IF BSS  ISSUED AT BOS                       FC5A166    32
  
  
  
  
           540  0100000532 +             O=CBSS   RJ     PBW                                                     FC5A166    34
           541  0400000122 +                      EQ     CBREAK                                                  FC5A166    35
  
  
  
  
                                        **        CRJ -  COMPILE SIMPLE RJT (WITH TRACE)                         GEN      1235
                                        *                                                                        GEN      1236
                                        *         ENTRY  (X1) = 18/TAG OF ROUTINE,42/0                           GEN      1237
                                        *                (X4) = SKELETON WORD                                    GEN      1238
                                        *                                                                        GEN      1239
                                        *         EXIT   TO NULLOP                                               GEN      1240
                                        *                (X3) = SKELETON SHIFTED BY P.IEND                       GEN      1241
                                                                                                                 GEN      1242
                                                                                                                 GEN      1243
           542                           O=CRJ    BSSENT             ENTRY...                                    GEN      1244
           542  5140000136 +                      SA4    CURSK                                                   GEN      1245
                          53240                   SA2    X4          FETCH CURRENT SKEL WORD                     GEN      1246
                               20230              HX2    SK.ARG                                                  GEN      1247
           543  0332000545 +                      MI     X2,CRJ2     IF (X1) ALREADY IN RIGHT FORMAT             GEN      1248
                          20120                   LX1    -P2.TAGP                                                GEN      1249
                               43054              MX0    -P2.TAGL                                                GEN      1250
           544  15110                             BX1    -X0*X1                                                  GEN      1251
                     53110                        SA1    X1                                                      GEN      1252
                          20154                   LX1    P2.TAGP                                                 GEN      1253
           545  5130000000 X             CRJ2     SA3    TRACE                                                   GEN      1254
                          43020                   MX0    P2.TAGL                                                 GEN      1255
                               11601              BX6    X0*X1       TAG                                         GEN      1256
           546  77101                             CRJ    MUST        COMPILE RJT (WITH TRACE)                    GEN      1257
           547  0400000125 +                      EQ     NULLOP      EXIT..                                      GEN      1258
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    33
        (O=)  PROCESSORS CALLED BY SKELETONS.                         CDCS
  
                                        **        O=CDCS - RESET USER/FIXED COLLATE.                             GEN      1260
                                                                                                                 GEN      1261
           550                           O=CDCS   BSSENT 0                                                       GEN      1262
           550  56141                             =A1    B4+OR.1OP                                               GEN      1263
                     43044                        MX0    -P2.BIASL                                               GEN      1264
                          20150                   LX1    -P2.BIASP                                               GEN      1265
                               15610              BX6    -X0*X1                                                  GEN      1266
           551  5160000000 X                      SA6    WO.CS       SET COLLATE FIXED/USER                      GEN      1267
                          0400000125 +            EQ     NULLOP                                                  GEN      1268
  
  
  
  
                                        **        O=CDDOT - RESET ZERO/ONE-TRIP LOOP.                            GEN      1270
                                                                                                                 GEN      1271
           552                           O=CDDOT  BSSENT 0                                                       GEN      1272
           552  56141                             =A1    B4+OR.1OP                                               GEN      1273
                     43044                        MX0    -P2.BIASL                                               GEN      1274
                          20150                   LX1    -P2.BIASP                                               GEN      1275
                               15610              BX6    -X0*X1                                                  GEN      1276
           553  5160000000 X                      SA6    WO.DOOT     SET DO TRIP 0/1                             GEN      1277
                          0400000125 +            EQ     NULLOP                                                  GEN      1278
  
  
  
  
                                        **        O=CDLOO - RESET OBJECT LIST ON/OFF.                            GEN      1280
                                                                                                                 GEN      1281
           554                           O=CDLOO  BSSENT 0                                                       GEN      1282
           554  56141                             =A1    B4+OR.1OP                                               GEN      1283
                     43044                        MX0    -P2.BIASL                                               GEN      1284
                          20150                   LX1    -P2.BIASP                                               GEN      1285
           555  5120000560 +                      SA2    OCIOL                                                   GEN      1286
                          15110                   BX1    -X0*X1                                                  GEN      1287
                               20260              LX2    PB.GHIJP                                                GEN      1288
           556  20114                             LX1    PB.BIASP                                                GEN      1289
                     12712                        BX7    X1+X2                                                   GEN      1290
                          6120000125 +            WCODE  X7,NULLOP   OC$ OR I.IOL 0/1                            GEN      1291
                                                                                                                 GEN      1292
           560                     1     OCIOL    BSSENT 1           CURRENT OBJECT LIST CONTROL OPCODE          GEN      1293
  
  
  
  
                                        **        O=ENT - ALTERNATE ENTRY POINT DEFINITION.                      GEN      1295
                                        *                                                                        GEN      1296
                                        *         EXIT   TO O=CBSS --                                            GEN      1297
                                        *                (X1) = GL TO BE DEFINED                                 GEN      1298
                                                                                                                 GEN      1299
                                                                                                                 GEN      1300
           561                           O=ENT    BSSENT             ENTRY...                                    GEN      1301
           561  5110000000 X                      SA1    N.GL                                                    GEN      1302
                          73611                   SX6    X1+B1       COUNT GENERATED LABELS                      GEN      1303
                               54610              SA6    A1                                                      GEN      1304
           562  56241                             =A2    B4+OR.1OP   GET ENTRY TAG                               GEN      1305
                     5130001142 +                 SA3    N.ALTEN     GET NUMBER OF ALTERNATE ENTRIES             GEN      1306
                               10611              BX6    X1                                                      GEN      1307
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    34
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=ENT 
  
           563  73731                             =X7    X3+1                                                    GEN      1308
                     21254                        AX2    P2.TAGP     POSITION SYMBOL TABLE ORDINAL               GEN      1309
                          54730                   SA7    A3          UPDATE ALTERNATE ENTRY COUNT                GEN      1310
                               22512              LX5    B1,X2       MULTIPLY ORDINAL BY 2                       GEN      1311
                                   0              ERRNZ  K.SYM                                                   GEN      1312
           564  5130000000 X                      SA3    T.SYM       (X3) = SYM TAB ORDINAL                      GEN      1313
                          43055                   MX0    60-WC.EGLL  SET ENTRY GENERATED LABEL MASK              GEN      1314
                               36552              IX5    X5+X2       INDEX = 2*ORD + ORD                         GEN      1315
                                   0              ERRNZ  3-Z=SYM                                                 GEN      1316
           565  20036                             LX0    WC.EGLP     POSITION EGL MASK                           GEN      1317
                     6273000002                   =B7    X3+WC.W                                                 GEN      1318
                               20636              LX6    WC.EGLP     POSITION GL ORDINAL                         GEN      1319
           566  53357                             SA3    X5+B7       GET WC. OF ENTRY                            GEN      1320
                     7211020000                   SX1    X1+K2.GL    TAG FOR GENERATED LABEL                     GEN      1321
                               11303              BX3    X0*X3       CLEAR EGL FIELD                             GEN      1322
           567  12663                             BX6    X6+X3       ADD GL ORDINAL INTO WC.EGL                  GEN      1323
                     20154                        LX1    P2.TAGP                                                 GEN      1324
                          54630                   SA6    A3          RESET WC                                    GEN      1325
           570  0400000540 +                      EQ     O=CBSS                                                  GEN      1326
  
  
  
  
                                        **        O=GENT - MAIN CONTROLER OF ALTERNATE ENTRY CODE GENERATION.    GEN      1328
                                        *                IT PRESIDES OVER A LARGE SKELETON DRIVEN LOOP.          GEN      1329
                                        *                O=GENTX IS THE RETURN POINT FROM SKELETON CALLS.        GEN      1330
                                                                                                                 GEN      1331
                                                                                                                 GEN      1332
           571                           O=GENT   BSSENT 0                                                       GEN      1333
           571  5110000000 X                      SA1    S=ENTRY     ORDINAL OF MAIN ENTRY                       GEN      1334
                          7261000000              SX6    X1+                                                     GEN      1335
           572  5160001136 +                      SA6    ENT.STO     INITIALIZE SYMBOL TABLE ORDINAL FOR SCAN    GEN      1336
                                                                                                                 GEN      1337
           573                           O=GENTX  BSSENT 0                                                       GEN      1338
           573  5120001142 +                      SA2    N.ALTEN     GET ALTERNATE ENTRY COUNT                   GEN      1339
                          7272777776              =X7    X2-1                                                    GEN      1340
           574  0302000125 +                      ZR     X2,NULLOP   IF NO MORE ALTERNATE ENTRIES                GEN      1341
                          5150001136 +            SA5    ENT.STO     GET SYM TAB ORDINAL OF LAST ENTRY           GEN      1342
           575  54720                             SA7    A2          RESET NUMBER OF ALT ENTS (N.ALTEN)          GEN      1343
                     22315                        LX3    X5,B1       MULTIPLY SYM ORDINAL BY TWO                 GEN      1344
                          5120000000 X            SA2    T.SYM       GET SYMBOL TABLE FWA FOR SEARCH LOOP        GEN      1345
           576  36335                             IX3    X3+X5       (X3) = 3 * SYM TAB ORDINAL                  GEN      1346
                     73331                        =X3    X3+WB.W     (X3) = WB ORDINAL OF LAST ENTRY             GEN      1347
                          6170000003              SB7    Z=SYM       SET WB ORD INCRIMENT FOR SYM TAB SEARCH     GEN      1348
           577  7265000000                        SX6    X5+                                                     GEN      1349
                                                                                                                 GEN      1350
                                        **        SYMBOL TABLE ENTRY SEARCH:                                     GEN      1351
                                        *         SCAN SYMBOL TABLE UNTIL ALTERNATR ENTRIES ARE EXAUSTED.        GEN      1352
                                                                                                                 GEN      1353
           600  73337                    GENT5    =X3    X3+B7       INCRIMENT WB ORDINAL                        GEN      1354
                     73661                        =X6    X6+1        INCRIMENT SYMTAB ORDINAL                    GEN      1355
                          36123                   IX1    X2+X3       ADD ORIGIN TO  WB ORDINAL.                  GEN      1356
                               53110              =A1    X1          GET WB OF POSSEBLE ENTRY                    GEN      1357
           601  20156                             SBIT   X1,WB.ENTP                                              GEN      1358
                     0321000600 +                 PL     X1,GENT5    IF NOT AN ENTRY                             GEN      1359
                               20112              SBIT   X1,WB.LABP/WB.ENTP                                      GEN      1360
           602  0331000600 +                      MI     X1,GENT5    IF LABEL                                    GEN      1361
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    35
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=GENT
  
                                                                                                                 GEN      1362
                                        **        WE HAVE AN ENTRY. NOW SET REG=G TABLE, WITH THE                GEN      1363
                                        *         THE ENTRY AND ENTRY GENERATED LABEL (EGL),AND CALL             GEN      1364
                                        *         W=ALENT (THE NORMAL ALT ENT CODE SKEL).                        GEN      1365
                                                                                                                 GEN      1366
                          43055                   MX0    -WC.EGLL    SET EGL MASK                                GEN      1367
                               54111              =A1    A1-WB.W+WC.W      GET WC                                GEN      1368
           603  20136                             LX1    -WC.EGLP    POSITION EGL FIELD                          GEN      1369
                     54650                        =A6    A5          RESET SYM TAB ORDINAL (ENT.STO)             GEN      1370
                          20654                   LX6    P2.TAGP     POSITION TAG FOR GP PROCESSING              GEN      1371
                               15110              BX1    -X0*X1      EXTRACT EGL FIELD                           GEN      1372
           604  5160000000 X                      SA6    REG=G       (GP1) = ALTERNATE ENTRY TAG                 GEN      1373
                          7271020000              SX7    X1+K2.GL                                                GEN      1374
           605  20754                             LX7    P2.TAGP     POSITION TAG FOR GP2                        GEN      1375
                     5170000001 X                 SA7    REG=G+1     (GP2) = EGL                                 GEN      1376
           606  7160000000 X                      SX6    W=ALENT     SKELETON FOR STANDARD ENTRY CODE            GEN      1377
                          5170001135 +            SA7    ENT.EGL     SAVE ENTRY GENERATED LABEL TAG              GEN      1378
           607  0400000017 +                      EQ     SUB.RET                                                 GEN      1379
  
  
  
  
                                        **        O=FPENT                                                        GEN      1381
                                        *                DECIDES TO PROCEED WITH NORMAL ENTRY CODE OR TO         FC50066    15
                                        *                TO SANDWITCH IN FP CODE. NORMAL FP CODE IS GENERATED    GEN      1383
                                        *                BY W=FPENT WHICH LEADS TO W=ADSUB (ADD SUB CODE) AND    GEN      1384
                                        *                W=VDENT (VAR DIM) CALLS.                                GEN      1385
                                                                                                                 GEN      1386
                                                                                                                 GEN      1387
           610                           O=FPENT  BSSENT 0                                                       GEN      1388
           610  7160000000                        SX6    0                                                       F2950F5A   14
                          5160000000 X            SA6    =XENTRJ     FLAG NO RJ ISSUED SINCE CODE MODIFICATION   F2950F5A   15
                                                                                                                 F2950F5A   16
           611                           FPENT1   BSS    0                                                       F2950F5A   17
           611  5140001136 +                      SA4    ENT.STO     ENTRY POINT SYMORD                          GEN      1389
                          0100000647 +            RJ     ISA         ISSUE SAVE A0 OR RJ CPL.                    GEN      1390
           612  5140001136 +                      SA4    ENT.STO                                                 GEN      1391
                          0100000746 +            RJ     OSC         ISSUE SUB CODE                              GEN      1392
           613  0100000767 +                      RJ     OZC         ISSUE SUB0 CODE                             GEN      1393
           614  5110001141 +                      SA1    ENT.VD            GET VAR DIM FLAG                      GEN      1394
                          5110000000 X            SA1    ENTRJ                                                   F2950F5A   18
           615  0311000627 +                      NZ     X1,FPENT2   IF RJ ISSUED (OR NOT NEEDED)                F2950F5A   19
                          5120000000 X            SA2    N.GL                                                    F2950F5A   20
           616  73621                             =X6    X2+1                                                    F2950F5A   21
                     7242100000                   SX4    X2+K.GL   TAG OF GL                                     F2950F5A   22
                               54620              SA6    A2          N.GL = N.GL + 1                             F2950F5A   23
           617  7170000035                        ISSUE  I.RJ3,X4    RJ GL                                       F2950F5A   24
           622  7170000024                        ISSUE  I.BSS,X4    GL BSS 0                                    F2950F5A   25
           625  7170000043                        ISSUE  I.ZERO      BSS 1                                       F2950F5A   26
                                                                                                                 F2950F5A   27
           627  5110001141 +             FPENT2   SA1    ENT.VD      VARDIM FLAG                                 F2950F5A   28
                          0301001067 +            ZR     X1,EVD1     IF NO VARDIM CODE                           GEN      1395
           630  76600                             SHRINK T=PAR,0                                                 GEN      1396
           631  5150000000 X                      SA5    T=VDIM      LENGTH OF THE SPARE I.L.                    GEN      1397
                          5110000000 X            ALLOC  T.PAR,X5    GET SPACE FOR THE SPARE I.L.                GEN      1398
           633  5120000000 X                      SA2    T.VDIM      FWA OF VDIM I.L.                            GEN      1399
                          5130000000 X            SA3    T.PAR       DESTINATION OF VDIM I. L. MOVE              GEN      1400
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    36
        (O=)  PROCESSORS CALLED BY SKELETONS.                         O=FPENT 
  
           634  10155                             MOVE   X5,X2,X3    MOVE VDIM I. L. TO T.PAR                    GEN      1401
           635  5110000000 X                      SA1    ALC.00                                                  GEN      1402
                          10711                   BX7    X1          UNLOCK (B4)                                 GEN      1403
           636  5170000000 X                      SA7    ALC.REG                                                 GEN      1404
                          5110001136 +            SA1    ENT.STO                                                 GEN      1405
           637  0100001010 +                      RJ     MAV         MARK VD IN *VDI* ALLOWED FROM THSI ENTRY    GEN      1406
           640  0100001052 +                      RJ     MVT         NO-OP STORES NOT APPLICABLE                 GEN      1407
           641  0100000000 X                      CALL   PIG         PROCESS I.L. FOR GEN                        GEN      1408
           642  5110000000 X                      SA1    ALC.CAI                                                 GEN      1409
                          10711                   BX7    X1          RESTORE (B4) LOCK -> (T.PAR)                GEN      1410
           643  5170000000 X                      SA7    ALC.REG                                                 GEN      1411
                          5110000000 X            SA1    T.PAR                                                   GEN      1412
           644  63410                             =B4    X1          SET B4 FOR EIS                              GEN      1413
                     0400000012 +                 EQ     EIS.PNX     RESTART GEN TO PROCESS VAR DIM I. L.        GEN      1414
                                                                                                                 F2950F5A   29
           645                           O=FPHDR  BSSENT 0                                                       F2950F5A   30
           645  43601                             MX6    1                                                       F2950F5A   31
                     5160000000 X                 SA6    ENTRJ       FLAG RJ NOT NEEDED TO VOID HEADER           F2950F5A   32
           646  0400000611 +                      EQ     FPENT1                                                  F2950F5A   33
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    37
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
           646                           ISA      CTEXT  COMFISA - ISSUE SAVE A0 OR RJ CPL. .                    COMFISA     2
                                        **        ISA - ISSUE SAVE A0 CODE OR RJ CPL.                            COMFISA     3
                                        *                                                                        COMFISA     4
                                        *         ENTRY  (X4) = SYMTAB ORDINAL OF ENTRY OR HEADER                COMFISA     5
                                                                                                                 COMFISA     6
           647  0400400647 +             ISA      SUBR   =                                                       COMFISA     7
           650  5120000000 X                      SA2    =XCO.DBID                                               COMFISA     8
                          0302000656 +            ZR     X2,ISA05    IF DB=ID NOT SELECTED                       COMFISA     9
           651  7170007461                        ISSUE  7461B       SX6 A1                                      COMFISA    10
           653  5110000000 X                      SA1    =XS=SA1                                                 COMFISA    11
                          7170005160              ISSUE  5160B,X1    SA6 SAVEA1.                                 COMFISA    12
                                                                                                                 COMFISA    13
           656  5120000000 X             ISA05    SA2    =XN.EPL                                                 COMFISA    14
                          0312000700 +            NZ     X2,ISA20    IF CPL. CALL NEEDED                         COMFISA    15
                                                                                                                 FC50249     7
           657  5110000000 X             ISA15    SA1    =XN.FP                                                  FC50249     8
                          0311000662 +            NZ     X1,ISA17    IF FP/S                                     COMFISA    17
           660  5120000000 X                      SA2    MOD                                                     FC50249     9
                          43051                   MX0    -MO.CLIFL                                               COMFISA    20
                               20237              LX2    -MO.CLIFP                                               COMFISA    21
           661  15220                             BX2    -X0*X2                                                  COMFISA    22
                     0302000647 +                 ZR     X2,EXIT.    IF NOT CHARACTER FUNCTION                   COMFISA    23
                                                                                                                 COMFISA    24
           662  7170007460               ISA17    ISSUE  7460B       SX6 A0                                      COMFISA    25
           664  7170005401                        ISSUE  5401B       SA0 A1                                      COMFISA    26
           666  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    27
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    28
           671  5120000000 X                      SA2    =XCO.DBID                                               FC5A436     5
                          0302000647 +            ZR     X2,EXIT.    RETURN IF DEBUG NOT ON                      FC5A436     6
           672  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436     7
           674  5110000000 X                      SA1    =XS=SA0                                                 FC5A436     8
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436     9
           677  0400000647 +                      EQ     EXIT.                                                   COMFISA    29
                                                                                                                 COMFISA    30
           700  5120000000 X             ISA20    SA2    =X"O$"SYM                                               COMFISA    31
                          22514                   LX5    B1,X4                                                   COMFISA    32
                               36645              IX6    X4+X5                                                   COMFISA    33
           701  63721                             =B7    X2+WB.W                                                 COMFISA    34
                     53367                        SA3    B7+X6                                                   COMFISA    35
                          43057                   MX0    -WB.PNTL                                                COMFISA    36
                               20315              LX3    -WB.PNTP                                                COMFISA    37
           702  15630                             BX6    -X0*X3                                                  COMFISA    38
                     5140000000 X                 SA4    =X"O$"ENTP                                              COMFISA    39
           703  0306000657 +                      ZR     X6,ISA15    IF NO FPS THIS ENTRY                        COMFISA    40
                          36446                   IX4    X4+X6                                                   COMFISA    41
           704  5120000000 X                      SA2    =XMOD                                                   COMFISA    42
                          43051                   MX0    -MO.CLIFL                                               COMFISA    43
                               20237              LX2    -MO.CLIFP                                               COMFISA    44
           705  15220                             BX2    -X0*X2                                                  COMFISA    45
                     0302000716 +                 ZR     X2,ISA30    IF NOT CHAR FUNCTION                        COMFISA    46
                                                                                                                 COMFISA    47
           706  7170001061                        ISSUE  1061B       BX6 X1                                      COMFISA    48
           710  76110                             =X1    1                                                       COMFISA    49
                     20152                        LX1    PB.BIASP-PB.TAGP                                        COMFISA    50
                          7170005011              ISSUE  5011B,X1     SA1 A1+1                                   COMFISA    51
           713  5110000000 X                      SA1    =XS=GPL                                                 COMFISA    52
                          7170005160              ISSUE  5160B,X1     SA6 GPL.                                   COMFISA    53
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    38
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
                                                                                                                 COMFISA    54
           716  5214777776               ISA30    SA1    X4-1                                                    COMFISA    55
                          43652                   MX6    -EH.BIASL                                               COMFISA    56
                                                  LX1    -EH.BIASP                                               COMFISA    57
                               15316              BX3    -X6*X1                                                  COMFISA    58
           717  5110000000 X                      SA1    =XS=CP                                                  COMFISA    59
                          20352                   LX3    PB.BIASP-PB.TAGP                                        COMFISA    60
                               12413              BX4    X1+X3                                                   COMFISA    61
           720  7170007060                        ISSUE  7060B       SX6 A0+                                     COMFISA    62
           722  5110000000 X                      SA1    =XS=GPL                                                 COMFISA    63
                          7170005100              ISSUE  5100B,X1          SA0 GPL.                              COMFISA    64
           725  7170005130                        ISSUE  5130B,X4    SA3 CP.+BIAS[ENTP]                          COMFISA    65
           730  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    66
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    67
           733  5110000000 X                      SA1    =XS=CPL                                                 COMFISA    68
                          7170000035              ISSUE  I.RJ3,X1          RJ CPL.                               COMFISA    69
           736  5120000000 X                      SA2    =XCO.DBID                                               FC5A436    10
                          0302000744 +            ZR     X2,ISA35    IF DEBUG NOT ON                             FC5A436    11
           737  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436    12
           741  5110000000 X                      SA1    =XS=SA0                                                 FC5A436    13
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436    14
                                 744 +   ISA35    EQU    *                                                       FC5A436    15
           744  43601                             MX6    1                                                       F2950F5A    5
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    6
           745  0400000647 +                      EQ     EXIT.                                                   COMFISA    70
                                         COMFISA  ENDX                                                           COMFISA    71
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    39
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            OSC 
  
           745                           OSC      CTEXT  COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.      COMFOSC     2
                                        **        OSC - OUTPUT SUB CODE.                                         COMFOSC     3
                                        *                                                                        COMFOSC     4
                                        *         ENTRY  X4 = SYMTAB ORDINAL OF ENTRY                            COMFOSC     5
                                        *                                                                        COMFOSC     6
                                        *         PRESERVES X4                                                   COMFOSC     7
                                                                                                                 COMFOSC     8
           746  0400400746 +             OSC      SUBR                                                           COMFOSC     9
           747  5110001137 +                      SA1    =XCC$SUB                                                COMFOSC    10
                          0301000746 +            ZR     X1,EXIT.    IF NO SUBS                                  COMFOSC    11
           750  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    12
                          22314                   LX3    B1,X4                                                   COMFOSC    13
                               36534              IX5    X3+X4                                                   COMFOSC    14
           751  63721                             =B7    X2+WB.W                                                 COMFOSC    15
                     53557                        SA5    X5+B7                                                   COMFOSC    16
                          43057                   MX0    -WB.PNTL                                                COMFOSC    17
                               20515              LX5    -WB.PNTP                                                COMFOSC    18
           752  15650                             BX6    -X0*X5                                                  COMFOSC    19
                     0306000746 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    20
           753  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    21
                          36616                   IX6    X1+X6                                                   COMFOSC    22
           754  5226777776                        SA2    X6-1                                                    COMFOSC    23
                          43055                   MX0    -EH.SUBIL                                               COMFOSC    24
                               20233              LX2    -EH.SUBIP                                               COMFOSC    25
           755  15620                             BX6    -X0*X2                                                  COMFOSC    26
                     0306000746 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    27
           756  5130000000 X                      SA3    =XS=SUBI                                                COMFOSC    28
                          7266777776              SX6    X6-1                                                    COMFOSC    29
           757  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    30
                     12136                        BX1    X3+X6                                                   COMFOSC    31
                          7170005110              ISSUE  5110B,X1    SA1 SUBI.+BIAS                              COMFOSC    32
           762  5110000000 X                      SA1    =XS=SPA                                                 COMFOSC    33
                          7170000035              ISSUE  I.RJ3,X1          RJ SP5.                               COMFOSC    34
           765  43601                             MX6    1                                                       F2950F5A    7
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    8
           766  0400000746 +                      EQ     EXIT.                                                   COMFOSC    35
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    40
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            OZC 
  
                                        **        OZC - OUTPUT SUB0 CODE.                                        COMFOSC    37
                                        *                                                                        COMFOSC    38
                                        *         ENTRY  X4 = SYMTAB ORDINAL OF ENTRY                            COMFOSC    39
                                        *                                                                        COMFOSC    40
                                        *         PRESERVES X4                                                   COMFOSC    41
                                                                                                                 COMFOSC    42
           767  0400400767 +             OZC      SUBR                                                           COMFOSC    43
           770  5110000000 X                      SA1    =XLEVEL0                                                COMFOSC    44
                          0301000767 +            ZR     X1,EXIT.    IF NO SUB0                                  COMFOSC    45
                                         #MD      IFEQ   .DAL,1                                                  COMFOSC    46
           771  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    47
                          22314                   LX3    B1,X4                                                   COMFOSC    48
                               36534              IX5    X3+X4                                                   COMFOSC    49
           772  63721                             =B7    X2+WB.W                                                 COMFOSC    50
                     53557                        SA5    X5+B7                                                   COMFOSC    51
                          43057                   MX0    -WB.PNTL                                                COMFOSC    52
                               20515              LX5    -WB.PNTP                                                COMFOSC    53
           773  15650                             BX6    -X0*X5                                                  COMFOSC    54
                     0306000767 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    55
           774  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    56
                          36616                   IX6    X1+X6                                                   COMFOSC    57
           775  5226777776                        SA2    X6-1                                                    COMFOSC    58
                          43055                   MX0    -EH.SB0IL                                               COMFOSC    59
                               20252              LX2    -EH.SB0IP                                               COMFOSC    60
           776  15620                             BX6    -X0*X2                                                  COMFOSC    61
                     0306000767 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    62
           777  5130000000 X                      SA3    =XS=SUB0I                                               COMFOSC    63
                          7266777776              SX6    X6-1                                                    COMFOSC    64
          1000  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    65
                     12136                        BX1    X3+X6                                                   COMFOSC    66
                          7170005110              ISSUE  5110B,X1    SA1 SUB0I.+BIAS                             COMFOSC    67
          1003  5110000000 X                      SA1    =XS=SLI                                                 COMFOSC    68
                          7170000035              ISSUE  I.RJ3,X1          RJ SLI.                               COMFOSC    69
          1006  43601                             MX6    1                                                       F2950F5A    9
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A   10
          1007  0400000767 +                      EQ     EXIT.                                                   COMFOSC    70
                                         #MD      ELSE                                                           COMFOSC    71
                                         .TEST    IFEQ   TEST,1,1                                                COMFOSC    72
                                                  EQ     "BLOWUP"                                                COMFOSC    73
                                         #MD      ENDIF                                                          COMFOSC    74
                                         COMFOSC  ENDX                                                           COMFOSC    75
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    41
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
          1007                           MAV      CTEXT  COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.        COMFMAV     2
                                        **        MAV - MARK APPROPRIATE VARDIM.                                 COMFMAV     3
                                        *                                                                        COMFMAV     4
                                        *         MAV SETS VD.ALO BIT IN VARDIM INFORMATION TABLE (T.VDI OR O$VD COMFMAV     5
                                        *         MAV SETS VD.ALO BIT IN VARDIM INFORMATION TABLE                COMFMAV     6
                                        *         (T. OR O$ VDI) FOR ALL VARDIM CELLS CONTAINING A VALUE DEFINED COMFMAV     7
                                        *         FOR THIS ENTRY.  THIS INCLUDES ALL VARIABLE DIMENSION          COMFMAV     8
                                        *         CODE FOR ARRAYS IN THE FP LIST OF THIS ENTRY AND               COMFMAV     9
                                        *         CHARACTER LENGTH TEMPS FOR PASSED-LENGTH ITEMS                 COMFMAV    10
                                        *         APPEARING ON THIS LIST.                                        COMFMAV    11
                                        *                                                                        COMFMAV    12
                                        *         ENTRY  (X1) = SYMTAB ORDINAL OF ENTRY POINT (OR HEADER)        COMFMAV    13
                                                                                                                 COMFMAV    14
          1010  0400401010 +             MAV      SUBR                                                           COMFMAV    15
                                                                                                                 COMFMAV    16
                                        *         CLEAR VD.ALO OF ALL VARDIM CELLS.                              COMFMAV    17
                                                                                                                 COMFMAV    18
          1011  5120000000 X                      SA2    =X"O$"VDI                                               COMFMAV    19
                          5130000000 X            SA3    =X"L$"VDI                                               COMFMAV    20
          1012  63730                             SB7    X3                                                      COMFMAV    21
                     43001                        CLAS=  X0,VD,ALO                                               COMFMAV    22
                               53420              SA4    X2                                                      COMFMAV    23
                                                                                                                 COMFMAV    24
          1013  15640                    MAV10    BX6    -X0*X4                                                  COMFMAV    25
                     67771                        SB7    B7-B1                                                   COMFMAV    26
                          54640                   SA6    A4                                                      COMFMAV    27
                               54441              SA4    A4+B1                                                   COMFMAV    28
          1014  0570001013 +                      NZ     B7,MAV10    IF VDI NOT EXHAUSTED                        COMFMAV    29
                          5120000000 X            SA2    "O$"SYM                                                 COMFMAV    30
          1015  22311                             LX3    B1,X1                                                   COMFMAV    31
                     36413                        IX4    X1+X3                                                   COMFMAV    32
                          63721                   =B7    X2+WB.W                                                 COMFMAV    33
                               53247              SA2    B7+X4                                                   COMFMAV    34
          1016  43057                             MX0    -WB.PNTL                                                COMFMAV    35
                     20215                        LX2    -WB.PNTP                                                COMFMAV    36
                          15620                   BX6    -X0*X2                                                  COMFMAV    37
          1017  0306001010 +                      ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFMAV    38
                          5110000000 X            SA1    =X"O$"ENTP                                              COMFMAV    39
          1020  36016                             IX0    X1+X6                                                   COMFMAV    40
                     53200                        SA2    X0          SKIP HEADER                                 COMFMAV    41
                          6160000074              S"BT"  60                                                      COMFMAV    42
                                                                                                                 COMFMAV    43
          1021  0560001023 +             MAV20    NZ     "BT",MAV30  IF THIS WORD NOT FINISHED                   COMFMAV    44
                          6160000074              S"BT"  60                                                      COMFMAV    45
          1022  5022000001                        SA2    A2+1                                                    COMFMAV    46
                                                                                                                 COMFMAV    47
          1023  6166777760               MAV30    S"BT"  "BT"-15                                                 COMFMAV    48
                          43055                   MX0    -EF.ORDL                                                COMFMAV    49
                               23462              AX4    "BT",X2                                                 COMFMAV    50
          1024  15340                             BX3    -X0*X4                                                  COMFMAV    51
                     0303001010 +                 ZR     X3,EXIT.    IF LAST PARAMETER                           COMFMAV    52
                               22413              LX4    B1,X3                                                   COMFMAV    53
          1025  36634                             IX6    X3+X4                                                   COMFMAV    54
                     53567                        SA5    B7+X6       WB(ENTP(I))                                 COMFMAV    55
                          20561                   HX5    WB.ARY                                                  COMFMAV    56
          1026  0325001043 +                      PL     X5,MAV90    IF NOT DIMENSIONED                          COMFMAV    57
                          43357                   MX3    -WB.PNTL                                                COMFMAV    58
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    42
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
                               20530              LX5    1+WB.ARYP-WB.PNTP                                       COMFMAV    59
          1027  15353                             BX3    -X3*X5                                                  COMFMAV    60
                     5110000000 X                 SA1    =X"O$"DIM                                               COMFMAV    61
                               36513              IX5    X1+X3                                                   COMFMAV    62
          1030  53150                             SA1    X5                                                      COMFMAV    63
                                                  HX1    DH.VD                                                   COMFMAV    64
                     0321001043 +                 PL     X1,MAV90    IF NOT VARIABLE-DIMENSION                   COMFMAV    65
                               20102              LX1    DH.VDP-DH.VPP                                           COMFMAV    66
          1031  0321001033 +                      PL     X1,MAV40    IF NOT VARIABLE PRODUCT OF SPANS            COMFMAV    67
                          10311                   BX3    X1                                                      COMFMAV    68
                               20334              LX3    1+DH.VPP-DH.PSP                                         COMFMAV    69
          1032  0100001046 +                      RJ     MVD         MARK PRODUCT OF SPAN VD.                    COMFMAV    70
                                                                                                                 COMFMAV    71
          1033  20172                    MAV40    LX1    1+DH.VPP-DH.DIMP                                        COMFMAV    72
                     43366                        MX3    -DH.DIML                                                COMFMAV    73
                          15313                   BX3    -X3*X1      NUMBER OF DIMS                              COMFMAV    74
                               63230              SB2    X3                                                      COMFMAV    75
                                                                                                                 COMFMAV    76
          1034  54111                    MAV50    =A1    A1+1                                                    COMFMAV    77
                     20136                        LX1    59-D1.SPANP-DM.TDP                                      FC5A231     8
                          0321001036 +            PL     X1,MAV60    IF NOT VARIABLE SPAN                        COMFMAV    79
          1035  20136                             LX1    1+DM.TDP                                                FC5A231     9
                     10311                        BX3    X1                                                      COMFMAV    81
                          0100001046 +            RJ     MVD         MARK SPAN VD.                               COMFMAV    82
                                                                                                                 COMFMAV    83
          1036  54111                    MAV60    =A1    A1+1                                                    COMFMAV    84
                                                  LX1    59-D2.LBP-DM.TDP                                        FC5A231    10
                     0321001040 +                 PL     X1,MAV70    IF VARIABLE LOWER BOUND                     COMFMAV    86
                               10311              BX3    X1                                                      COMFMAV    87
          1037  20336                             LX3    1+DM.TDP                                                FC5A231    11
                     0100001046 +                 RJ     MVD         MARK LOWER BOUND VD.                        COMFMAV    89
                                                                                                                 COMFMAV    90
          1040  20136                    MAV70    LX1    D2.LBP-D2.UBP                                           COMFMAV    91
                     0321001042 +                 PL     X1,MAV80    IF NOT VARIABLE UPPER BOUND                 COMFMAV    92
                               10311              BX3    X1                                                      COMFMAV    93
          1041  20336                             LX3    1+DM.TDP                                                FC5A231    12
                     0100001046 +                 RJ     MVD         MARK UPPER BOUND VD.                        COMFMAV    95
                                                                                                                 COMFMAV    96
          1042  67221                    MAV80    =B2    B2-1                                                    COMFMAV    97
                     0520001034 +                 NZ     B2,MAV50    IF MORE DIMENSIONS TO GO                    COMFMAV    98
                                                                                                                 COMFMAV    99
          1043  54351                    MAV90    =A3    A5+WC.W-WB.W                                            COMFMAV   100
                     20336                        HX3    WC.CTYP                                                 COMFMAV   101
                          0323001021 +            PL     X3,MAV20    IF NOT PASSED-LENGTH CHARACTER FORMAL       COMFMAV   102
                                                  LX3    1+WC.CTYPP-WC.CLENP                                     COMFMAV   103
          1044  0100001046 +                      RJ     MVD         MARK CLEN VD.                               COMFMAV   104
          1045  0400001021 +                      EQ     MAV20                                                   COMFMAV   105
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    43
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MVD 
  
                                        **        MVD - MARK VARDIM AS ALLOWED FOR THIS ENTRY.                   COMFMAV   107
                                        *                                                                        COMFMAV   108
                                        *         ENTRY - X3 CONTAINS VD. BIAS, RIGHT JUSTIFIED.                 COMFMAV   109
                                        *                                                                        COMFMAV   110
                                        *         PRESERVES - X1,X2,X5, A1,A2,A5, B4,B7                          COMFMAV   111
                                                                                                                 COMFMAV   112
          1046  0400401046 +             MVD      SUBR                                                           COMFMAV   113
          1047  43052                             MX0    -WC.CLENL                                               COMFMAV   114
                     15630                        BX6    -X0*X3                                                  COMFMAV   115
                          5130000000 X            SA3    "O$"VDI                                                 COMFMAV   116
          1050  43401                             CLAS=  X4,VD,ALO                                               COMFMAV   117
                          36036                   IX0    X3+X6                                                   COMFMAV   118
                               53300              SA3    X0                                                      COMFMAV   119
          1051  12643                             BX6    X4+X3                                                   COMFMAV   120
                     54630                        SA6    A3          ALO[VDI(ORD)] = 1                           COMFMAV   121
                          0400001046 +            EQ     EXIT.                                                   COMFMAV   122
                                         COMFMAV  ENDX                                                           COMFMAV   123
  
  
  
  
                                        **        MVT - MARK VARDIM TURPLES NOT ALLOWED FOR THIS ENTRY.          GEN      1419
                                                                                                                 GEN      1420
          1052  0400401052 +             MVT      SUBR                                                           GEN      1421
          1053  5110000000 X                      SA1    T.VDI                                                   GEN      1422
                          5120000000 X            SA2    T.PAR                                                   GEN      1423
          1054  5130000000 X                      SA3    T=VDI                                                   GEN      1424
                          7160000000 X            SX6    V=NOOP                                                  GEN      1425
          1055  20656                             LX6    TH.SKELP                                                GEN      1426
                     7100000054                   =X0    O.NONE                                                  GEN      1427
                                                  LX0    TH.OVALP                                                FC50104   249
                               12660              BX6    X6+X0                                                   GEN      1429
          1056  5211777776                        SA1    X1-1                                                    GEN      1430
                          63730                   SB7    X3                                                      GEN      1431
                               63220              SB2    X2                                                      GEN      1432
          1057  64717                             SB7    A1+B7                                                   GEN      1433
                                                                                                                 GEN      1434
          1060  65617                    MVT10    SB6    A1-B7                                                   GEN      1435
                     0460001052 +                 ZR     B6,EXIT.    IF VDI EXHAUSTED                            GEN      1436
                               54111              =A1    A1+1                                                    GEN      1437
          1061  20101                             HX1    VD.ALO                                                  GEN      1438
                     0331001060 +                 MI     X1,MVT10    IF THIS VD APPLIES TO THIS ENTRY POINT      GEN      1439
                               20173              LX1    VD.ALOP+1-VD.LENP                                       GEN      1440
          1062  6261777776                        SB6    X1-1                                                    GEN      1441
                                   0              ERRNZ  VD.LENL-18                                              GEN      1442
                          20152                   LX1    VD.LENP-VD.PNTP                                         GEN      1443
                               73016              SX0    X1+B6                                                   GEN      1444
                                   0              ERRNZ  VD.PNTL-18                                              GEN      1445
          1063  22110                             LX1    B1,X0                                                   GEN      1446
                     36010                        IX0    X1+X0                                                   GEN      1447
                          53602                   SA6    B2+X0       STORE = NOOP                                GEN      1448
          1064  0400001060 +                      EQ     MVT10                                                   GEN      1449
                                                                                                                 GEN      1450
                                        **        RETURN FROM PROCESSING VAR DIM  I. L.                          GEN      1451
                                        *         HERE WE RESET THE VD I. L. FOR THE NEXT ENTRY                  GEN      1452
                                                                                                                 GEN      1453
                                                                                                                 GEN      1454
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    44
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MVT 
  
          1065                           O=EVD    BSSENT 0           END VARDIM                                  GEN      1455
          1065  13000                             DRITE  DEACTIVATE  CHECK DELAYED WRITE                         GEN      1456
          1066  0100000000 X                      CALL   CIA         CLEAR REGFILE                               GEN      1457
          1067  5110001135 +             EVD1     SA1    ENT.EGL     GET ENTRY GENERATED LABEL                   GEN      1458
                          0301001215 +            ZR     X1,O=FINX   IF PROCESSING MAIN ENTRY                    GEN      1459
                              100000              ERRZR  K.GL                                                    GEN      1460
          1070  10711                             BX7    X1                                                      GEN      1461
                     7160000000 X                 SX6    W=TENT      SET TERMINATE ENTRY CODE                    GEN      1462
          1071  5170000001 X                      SA7    REG=G+1     SET GP2 FOR W=TENT                          GEN      1463
                          0400000017 +            EQ     SUB.RET                                                 GEN      1464
  
  
  
  
                                        **        O=FUNT  SETS X6 AND X7 TO FUNCTION RESULT IF NEEDED.           GEN      1466
                                                                                                                 GEN      1467
                                                                                                                 GEN      1468
          1072                           O=FUNT   BSSENT 0                                                       GEN      1469
          1072  5110000000 X                      SA1    MOD         GET PROGRAM MODE                            GEN      1470
                          7160000000 X            SX6    W=TMENT     NORMAL TERMINAL CODE SKEL FOR MAIN ENTRY    GEN      1471
          1073  20160                             SBIT   X1,MO.FUNP                                              GEN      1472
                     0321000017 +                 PL     X1,SUB.RET  IF NOT A FUNCTION                           GEN      1473
                               20114              LX1    MO.FUNP+1-MO.MODEP      POSITION MODE                   GEN      1474
          1074  43071                             MX0    -MO.MODEL   SET MODE MASK                               GEN      1475
                     15010                        BX0    -X0*X1      EXTRACT MODE                                GEN      1476
                          6270777771              SB7    X0-M.CHAR                                               GEN      1477
          1075  0470000017 +                      ZR     B7,SUB.RET  IF CHARACTER FUNCTION                       GEN      1478
                          7160000000 X            SX6    W=DFENT                                                 GEN      1479
          1076  5110000000 X                      SA1    S=VALUE                                                 GEN      1480
                          7211000004              SX1    X1+M.DBL                                                GEN      1481
          1077  73211                             =X2    X1+M.CPLX-M.DBL                                         GEN      1482
                     22311                        LX3    B1,X1                                                   GEN      1483
                          22412                   LX4    B1,X2                                                   GEN      1484
                               36131              IX1    X3+X1                                                   GEN      1485
          1100  36242                             IX2    X4+X2                                                   GEN      1486
                     5130000000 X                 SA3    T.SYM                                                   GEN      1487
                               63731              =B7    X3+WB.W                                                 GEN      1488
          1101  53117                             SA1    X1+B7                                                   GEN      1489
                     53227                        SA2    X2+B7                                                   GEN      1490
                          12012                   BX0    X1+X2                                                   GEN      1491
                               20063              HX0    WB.MDF                                                  FC5A191    19
          1102  0330000017 +                      MI     X0,SUB.RET  IF THERE IS DOUBLE OR COMPLEX ENTRY         GEN      1493
                          0400000125 +            EQ     NULLOP      CONTINUE WITH SINGLE FUNCTION SKEL          GEN      1494
  
  
  
  
                                        **        O=MENT MAIN ENTRY CODE PROCESSOR.                              GEN      1496
                                        *                CHOOSES BETWEEN FP MAIN ENTRY CODE AND NORMAL MAIN      GEN      1497
                                        *                ENTRY CODE.                                             GEN      1498
                                                                                                                 GEN      1499
                                                                                                                 GEN      1500
          1103                           O=MENT   BSSENT 0                                                       GEN      1501
          1103  0100001143 +                      RJ     ICP         ISSUE CP. AND GPL. TABLES                   GEN      1502
          1104  5110000000 X                      SA1    MOD                                                     GEN      1503
                          43051                   MX0    -MO.CLIFL                                               GEN      1504
                               20137              LX1    -MO.CLIFP                                               GEN      1505
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    45
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              O=MENT
  
          1105  15110                             BX1    -X0*X1                                                  GEN      1506
                     0311001110 +                 NZ     X1,MENT05   IF CHARACTER FUNCTION                       GEN      1507
          1106  5110000000 X                      SA1    N.FP        GET NUMBER OF FORMAL PARAMETERS             GEN      1508
                          7150000000 X            SX5    W=FUNT      FUNCTION ENTRY CODE SKELETON                GEN      1509
          1107  0301001111 +                      ZR     X1,MENT1    IF NO FORMAL PAREMETERS                     GEN      1510
                                                                                                                 GEN      1511
          1110  7150000000 X             MENT05   SX5    W=MFPNT     SUBSKEL FOR MAIN ENTRY                      GEN      1512
                                                                                                                 GEN      1513
          1111  76000                    MENT1    CBSS   0           FORCE UPPER ON START BLOCK                  GEN      1514
          1114  7110000000 X                      ISUSE  STRT        USE   START.                                GEN      1515
          1117  5120000000 X                      SA2    CO.DBER                                                 GEN      1516
                          0302001121 +            ZR     X2,MENT2    IF OTR DESELEDTED                           GEN      1517
          1120  0100001547 +                      RJ     SOR         SET OBJECT TIME REPRIEVE                    GEN      1518
                                                                                                                 GEN      1519
          1121  5110000000 X             MENT2    SA1    S=EXIT                                                  GEN      1520
                          7170000024              ISSUE  I.BSS,X1    EXIT. BSS 0                                 GEN      1521
          1124  5110000000 X                      SA1    =XN.ARP                                                 GEN      1522
                          0301001132 +            ZR     X1,MENT25   IF NO ALT ENTRIES                           GEN      1523
          1125  7170007110                        ISSUE  7110B       SX1 0                                       GEN      1524
          1127  5110000000 X                      SA1    S=AEXIT                                                 GEN      1525
                          7170000024              ISSUE  I.BSS,X1    AEXIT. BSS 0                                GEN      1526
                                                                                                                 GEN      1527
          1132  13777                    MENT25   BX7    0                                                       GEN      1528
                     10655                        =X6    X5          (X6) = SUBSKEL ORDINAL                      GEN      1529
                          5170001135 +            SA7    ENT.EGL     SET EGL FLAG TO INDICATE MAIN ENTRY         GEN      1530
          1133  5110000000 X                      SA1    S=ENTRY                                                 GEN      1531
                          10711                   BX7    X1                                                      GEN      1532
          1134  5170001136 +                      SA7    ENT.STO     FLAG MAIN ENTRY                             GEN      1533
                          0400000017 +            EQ     SUB.RET                                                 GEN      1534
                                                                                                                 GEN      1535
          1135                     1     ENT.EGL  BSZENT 1           ENTRY GENERATED LABEL CELL                  GEN      1536
          1136                     1     ENT.STO  BSZENT 1           SYM TAB ORDINAL FOR ENTRY SYM TAB SCAN.     GEN      1537
          1137                     1     ENT.SUB  BSZENT 1           ADD SUB FLAG                                GEN      1538
                                1137 +   CC$SUB   EQU    ENT.SUB                                                 GEN      1539
          1140                     1     ENT.SB0  BSZENT 1                                                       GEN      1540
                                1140 +   CC$SUB0  EQU    ENT.SB0                                                 GEN      1541
          1141                     1     ENT.VD   BSZENT 1           VARDIM I. L. FLAG                           GEN      1542
          1142                     1     N.ALTEN  BSZENT 1           ALTERNATE ENTRY COUNTER                     GEN      1543
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    46
        COMFICP - ISSUE CP. AND GPL. TABLES.                          ICP 
  
          1143                           ICP      CTEXT  COMFICP - ISSUE CP. AND GPL. TABLES.                    COMFICP     2
          1143  0400401143 +             ICP      SUBR                                                           COMFICP     3
          1144  5110000000 X                      SA1    =XN.EPL                                                 COMFICP     4
                          0301001143 +            ZR     X1,EXIT.    IF NO CPL. CALLS NEEDED                     COMFICP     5
          1145  7110000000 X                      ISUSE  TEM         USE TEM.                                    COMFICP     6
          1150  5120000000 X                      SA2    =XS=GPL                                                 COMFICP     7
                          5130000000 X            SA3    =X"L$"FPI                                               COMFICP     8
          1151  20352                             LX3    PB.BIASP-PB.TAGP                                        COMFICP     9
                     12123                        BX1    X2+X3                                                   COMFICP    10
                          7170000024              ISSUE  I.BSS,X1    GPL. BSS "L$"FPI                            COMFICP    11
          1154  5110000000 X                      SA1    =XS=CP                                                  COMFICP    12
                          7170000024              ISSUE  I.BSS,X1          CP. BSS 0                             COMFICP    13
                                                                                                                 COMFICP    14
                                        *         ISSUE CPL WORD FOR EACH FORMAL PARAMETER.                      COMFICP    15
                                                                                                                 COMFICP    16
          1157  5110000000 X                      SA1    =X"O$"ENTP                                              COMFICP    17
                          6150777776              SB5    -1                                                      COMFICP    18
          1160  53010                             SA0    X1                                                      COMFICP    19
                     0400001164 +                 EQ     ICP20                                                   COMFICP    20
                                                                                                                 COMFICP    21
                                        *         ISSUE ZERO TERMINATOR FOR THIS LIST.                           COMFICP    22
                                                                                                                 COMFICP    23
          1161  7170000043               ICP10    ISSUE  I.ZERO                                                  COMFICP    24
          1163  5110000000 X                      SA1    "O$"ENTP                                                COMFICP    25
                          53010                   SA0    X1                                                      COMFICP    26
                                                                                                                 COMFICP    27
          1164  6155000002               ICP20    SB5    B5+2        SKIP HEADER                                 COMFICP    28
                          5110000000 X            SA1    =X"L$"ENTP                                              COMFICP    29
          1165  63710                             SB7    X1                                                      COMFICP    30
                     67757                        SB7    B5-B7                                                   COMFICP    31
                          0670001143 +            PL     B7,EXIT.    IF END OF ENTP                              COMFICP    32
          1166  54405                             SA4    B5+A0                                                   COMFICP    33
                     6160000074                   S"BT"  60                                                      COMFICP    34
                                                                                                                 COMFICP    35
          1167  0560001171 +             ICP30    NZ     "BT",ICP40  IF THIS WORD NOT EXHAUSTED                  COMFICP    36
                          6160000074              S"BT"  60                                                      COMFICP    37
          1170  66551                             SB5    B5+B1                                                   COMFICP    38
                     54405                        SA4    A0+B5                                                   COMFICP    39
                                                                                                                 COMFICP    40
          1171  6166777760               ICP40    S"BT"   "BT"-15                                                COMFICP    41
                          43055                   MX0    -EF.ORDL                                                COMFICP    42
                               23364              AX3    "BT",X4                                                 COMFICP    43
          1172  15630                             BX6    -X0*X3                                                  COMFICP    44
                     0306001161 +                 ZR     X6,ICP10    IF END OF LIST                              COMFICP    45
          1173  7170000023                        ISSUE  I.CPL,X6                                                COMFICP    46
          1176  5110000000 X                      SA1    "O$"ENTP                                                COMFICP    47
                          53010                   SA0    X1                                                      COMFICP    48
          1177  0400001167 +                      EQ     ICP30                                                   COMFICP    49
                                         COMFICP  ENDX                                                           COMFICP    50
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    47
        COMFICP - ISSUE CP. AND GPL. TABLES.                          O=FIN 
  
                                        **        O=FIN - END OF IL.                                             GEN      1546
                                        *                                                                        GEN      1547
                                        *         ENTRY  (B4) = TURPLE.                                          GEN      1548
                                        *         EXIT   TO EISX.                                                GEN      1549
                                                                                                                 GEN      1550
                                                                                                                 GEN      1551
          1200                           O=FIN    BSSENT             ENTRY...                                    GEN      1552
          1200  5120000000 X                      SA2    MOD                                                     GEN      1553
                          20262                   HX2    MO.PRO                                                  GEN      1554
          1201  0322001212 +                      PL     X2,FIN3     IF A SUB PROGRAM                            GEN      1555
                          76000                   CBSS   0           FORCE UPPER                                 GEN      1556
          1204  7110000000 X                      ISUSE  STRT        USE START                                   GEN      1557
          1207  5120000000 X                      SA2    CO.DBER                                                 GEN      1558
                          0302001211 +            ZR     X2,FIN2     IF OTR DE-SELECTED                          GEN      1559
          1210  0100001547 +                      RJ     SOR         SET OBJRCT TIME REPRIEVE                    GEN      1560
          1211  7160000000 X             FIN2     SX6    W=PROM      SET MAIN PROGRAM SKELETON                   GEN      1561
                          0400000017 +            EQ     SUB.RET     PROCESS MAIN PROLOGUE                       GEN      1562
                                                                                                                 GEN      1563
          1212  20201                    FIN3     LX2    MO.PROP-MO.BLKP                                         GEN      1564
                     0332001215 +                 MI     X2,O=FINX   IF BLOCK DATA, TERMINATE                    GEN      1565
          1213  0100001231 +                      RJ     OST         OUTPUT SUB TABLES                           GEN      1566
          1214  7160000000 X                      SX6    W=PROS                                                  GEN      1567
                          0400000017 +            EQ     SUB.RET     ISSUE PROLOG                                GEN      1568
                                                                                                                 GEN      1569
                                        *         PROLOG SKELETONS RETURN TO O=FINX.                             GEN      1570
                                                                                                                 GEN      1571
          1215                           O=FINX   BSSENT             ...RETURN FROM PROLOG SKELETONS             GEN      1572
          1215  76000                             CBSS   0           FORCE UPPER ON START BLOCK                  GEN      1573
          1220  7170000027                        WPOP   I.EMI       END MACHINE INSTRUCTIONS                    GEN      1574
          1222  5120000000 X                      SA2    =XN.STMAX                                               FC50138     5
                          5130000000 X            SA3    =XN.ST                                                  FC50138     6
          1223  37623                             MX6    X2+X3                                                   FC50138     7
                     54620                        SA6    A2          MAX IN NEWEST TEMP VECTOR SIZE              FC50138     8
                          0100000000 X            CALL   ITS         ISSUE TEMP STORAGE                          GEN      1575
          1225  5110000000 X                      SA1    T=CON                                                   GEN      1576
                          10611                   BX6    X1                                                      GEN      1577
          1226  5160000000 X                      SA6    N.CON       FOR PASS 3                                  GEN      1578
                          7170000005              WPOP   OC$END,EISX       EXIT..                                GEN      1579
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    48
        COMFICP - ISSUE CP. AND GPL. TABLES.                          OST 
  
                                        **        OST - OUTPUT SUB AND SUB0 INDEX TABLES.                        GEN      1581
                                                                                                                 GEN      1582
          1231  0400401231 +             OST      SUBR                                                           GEN      1583
          1232  5110001137 +                      SA1    ENT.SUB                                                 GEN      1584
                          0301001250 +            ZR     X1,OST10    IF NO SUBS                                  GEN      1585
          1233  7110000000 X                      ISUSE  SUB                                                     GEN      1586
          1236  5110000000 X                      SA1    S=SUB                                                   GEN      1587
                          7170000024              ISSUE  I.BSS,X1    SUB. BSS 0                                  GEN      1588
          1241  7110000000 X                      ISUSE  TEM                                                     GEN      1589
          1244  5110000000 X                      SA1    S=SUBI                                                  GEN      1590
                          7170000024              ISSUE  I.BSS,X1    SUBI. BSS 0                                 GEN      1591
          1247  76600                             =X6    0                                                       GEN      1592
                     0100001260 +                 RJ     OSI         ISSUE SUBI.                                 GEN      1593
                                                                                                                 GEN      1594
          1250  7110000000 X             OST10    ISUSE  TEM                                                     GEN      1595
          1253  5110000000 X                      SA1    S=SUB0I                                                 GEN      1596
                          7170000024              ISSUE  I.BSS,X1    SUB0I. BSS 0                                GEN      1597
          1256  76610                             =X6    1                                                       GEN      1598
                     0100001260 +                 RJ     OSI         ISSUE SUB0I.                                GEN      1599
          1257  0400001231 +                      EQ     EXIT.                                                   GEN      1600
  
  
  
  
                                        **        OSI - ISSUE SUB INDEX TABLE.                                   GEN      1602
                                        *                                                                        GEN      1603
                                        *         ENTRY  X6 = 0/1 FOR SUB/SUB0                                   GEN      1604
                                                                                                                 GEN      1605
          1260  0400401260 +             OSI      SUBR                                                           GEN      1606
          1261  5160001325 +                      SA6    OSIA                                                    GEN      1607
                          43700                   MX7    0                                                       GEN      1608
          1262  5170001326 +                      SA7    OSIB                                                    GEN      1609
                          5170001330 +            SA7    OSID        TOTAL = 0                                   GEN      1610
          1263  5110000000 X                      SA1    T.ENTP                                                  GEN      1611
                          57001                   =A0    -1                                                      GEN      1612
                               63510              SB5    X1                                                      GEN      1613
          1264  0400001277 +                      EQ     OSI20                                                   GEN      1614
                                                                                                                 GEN      1615
                                        *         ISSUE ZERO TERMINATOR FOR THIS LIST.                           GEN      1616
                                                                                                                 GEN      1617
          1265  5120001326 +             OSI10    SA2    OSIB                                                    GEN      1618
                          5140001330 +            SA4    OSID                                                    GEN      1619
          1266  37142                             IX1    X4-X2                                                   GEN      1620
                     0301001277 +                 ZR     X1,OSI20    IF NO SUBS THIS LIST                        GEN      1621
          1267  7170000043                        ISSUE  I.ZERO                                                  GEN      1622
          1271  5110000000 X                      SA1    T.ENTP                                                  GEN      1623
                          63510                   SB5    X1                                                      GEN      1624
          1272  5110001326 +                      SA1    OSIB                                                    GEN      1625
                          73611                   SX6    X1+B1       TOTAL = TOTAL + 1                           GEN      1626
                               54610              SA6    A1                                                      GEN      1627
          1273  54640                             SA6    A4          NEW LEN = TOTAL                             GEN      1628
                     73641                        SX6    X4+B1                                                   GEN      1629
                          5110001327 +            SA1    OSIC                                                    GEN      1630
          1274  53215                             SA2    X1+B5                                                   GEN      1631
                     5110001325 +                 SA1    OSIA                                                    GEN      1632
          1275  5211001331 +                      SA1    OSIS+X1                                                 GEN      1633
                          63310                   SB3    X1                                                      GEN      1634
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    49
        COMFICP - ISSUE CP. AND GPL. TABLES.                          OSI 
  
                               22636              LX6    B3                                                      GEN      1635
          1276  12726                             BX7    X2+X6                                                   GEN      1636
                     54720                        SA7    A2          SUBI[ENTP(I)] = OLD SUBI LEN+1              GEN      1637
                                                                                                                 GEN      1638
          1277  5000000002               OSI20    SA0    A0+2        SKIP HEADER                                 GEN      1639
                          75601                   SX6    A0-B1       POINTS TO HEADER                            GEN      1640
                               54505              SA5    B5+A0                                                   GEN      1641
          1300  5160001327 +                      SA6    OSIC                                                    GEN      1642
                          5110000000 X            SA1    T=ENTP                                                  GEN      1643
          1301  63710                             SB7    X1                                                      GEN      1644
                     65707                        SB7    A0-B7                                                   GEN      1645
                          0670001260 +            PL     B7,EXIT.    IF ENTP FINISHED                            GEN      1646
          1302  6160000074                        SB6    60                                                      GEN      1647
                                                                                                                 GEN      1648
          1303  0560001305 +             OSI30    NZ     B6,OSI40    IF THIS WORD NOT EXHAUSTED                  GEN      1649
                          6160000074              SB6    60                                                      GEN      1650
          1304  54001                             =A0    A0+1                                                    GEN      1651
                     54505                        SA5    B5+A0                                                   GEN      1652
                                                                                                                 GEN      1653
          1305  6166777760               OSI40    SB6    B6-15                                                   GEN      1654
                          43055                   MX0    -EF.ORDL                                                GEN      1655
                               23365              AX3    B6,X5                                                   GEN      1656
          1306  15630                             BX6    -X0*X3                                                  GEN      1657
                     0306001265 +                 ZR     X6,OSI10    IF END OF LIST                              GEN      1658
          1307  5110000000 X                      SA1    T.SYM                                                   GEN      1659
                          22716                   LX7    B1,X6                                                   GEN      1660
                               36376              IX3    X7+X6                                                   GEN      1661
          1310  63711                             =B7    X1+WB.W                                                 GEN      1662
                     53137                        SA1    B7+X3                                                   GEN      1663
                          43063                   MX0    -WB.FPNOL                                               GEN      1664
          1311  5120000000 X                      SA2    =XT.FPI                                                 GEN      1665
                          20133                   LX1    -WB.FPNOP                                               GEN      1666
                               15110              BX1    -X0*X1                                                  GEN      1667
          1312  36312                             IX3    X1+X2                                                   GEN      1668
                     5233777776                   SA3    X3-1                                                    GEN      1669
          1313  5140001325 +                      SA4    OSIA                                                    GEN      1670
                          5224001335 +            SA2    OSIM2+X4                                                GEN      1671
          1314  11023                             BX0    X2*X3                                                   GEN      1672
                     0300001303 +                 ZR     X0,OSI30    IF THIS FP NOT APPLICABLE                   GEN      1673
          1315  5224001337 +                      SA2    OSIM3+X4                                                GEN      1674
                          11023                   BX0    X2*X3                                                   GEN      1675
          1316  0300001303 +                      ZR     X0,OSI30    IF SUB0 AND NOT LEVEL 0                     GEN      1676
                          5214001333 +            SA1    OSIO+X4     INSTRUCTION OPCODE                          GEN      1677
          1317  10711                             ISSUE  X1,X6                                                   GEN      1678
          1322  5110001326 +                      SA1    OSIB                                                    GEN      1679
                          73611                   =X6    X1+1                                                    GEN      1680
                               54610              SA6    A1          TOTAL = TOTAL + 1                           GEN      1681
          1323  5110000000 X                      SA1    T.ENTP                                                  GEN      1682
                          63510                   SB5    X1                                                      GEN      1683
          1324  0400001303 +                      EQ     OSI30                                                   GEN      1684
                                                                                                                 GEN      1685
          1325                     1     OSIA     BSS    1                                                       GEN      1686
          1326                     1     OSIB     BSSZ   1                                                       GEN      1687
          1327                     1     OSIC     BSS    1                                                       GEN      1688
          1330                     1     OSID     BSSZ   1                                                       GEN      1689
          1331  00000000000000000041     OSIS     CON    EH.SUBIP,EH.SB0IP                                       GEN      1690
          1332  00000000000000000022
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    50
        COMFICP - ISSUE CP. AND GPL. TABLES.                          OSI 
  
          1333  00000000000000000037     OSIO     CON    I.SUBI,I.SB0I                                           GEN      1691
          1334  00000000000000000040
          1335                           OSIM2    BFMW   FP,LEN                                                  GEN      1692
          1336                                    BFMW   FP,(VDS,SUB0)                                           GEN      1693
          1337  77777777777777777777     OSIM3    VFD    60/-0                                                   GEN      1694
          1340                                    BFMW   FP,LEV0                                                 GEN      1695
  
  
  
  
                                        **        O=GFD - GENERATE FILE DECLARATION.                             GEN      1697
                                        *                                                                        GEN      1698
                                        *         ENTRY  (B4) -> (V=FILE) TURPLE.                                GEN      1699
                                        *                (1OP.BIAS) = FILE TABLE INDEX.                          GEN      1700
                                        *                                                                        GEN      1701
                                        *         EXIT   TO EIS.PNX                                              GEN      1702
                                                                                                                 GEN      1703
                                                                                                                 GEN      1704
                                         TP       MICRO  1,, P2                                                  GEN      1705
                                                                                                                 GEN      1706
                                                                                                                 GEN      1707
          1341                           O=GFD    BSSENT 0           ENTRY...                                    GEN      1708
          1341  66540                             SB5    B4                                                      GEN      1709
          1341                           COMFGFD  CTEXT              GENERATE FILE DECLARATIONS.                 COMFGFD     2
                                                                                                                 COMFGFD     3
                                        **               GFD HANDLES THE (V=FILE) TURPLE FOR QCG AND BRIDGE.     COMFGFD     4
                                        *                                                                        COMFGFD     5
                                        *         ENTRY  (B5) -> CURRENT TURPLE.                                 COMFGFD     6
                                                                                                                 COMFGFD     7
                     5110000000 X                 SA1    "O$"SYM                                                 COMFGFD     8
                               43044              MX0    -"TP".BIASL                                             COMFGFD     9
          1342  56251                             =A2    B5+OR.1OP                                               COMFGFD    10
                     20250                        LX2    -"TP".BIASP                                             COMFGFD    11
                          15420                   BX4    -X0*X2      ISOLATE (X4) = SYMTAB *WB* INDEX            COMFGFD    12
                               63711              =B7    X1-WB.W+WC.W                                            COMFGFD    13
          1343  53347                             SA3    X4+B7       FETCH SYMTAB *WC*                           COMFGFD    14
                                                  LX3    -WC.BFLP                                                COMFGFD    15
                     43752                        MX7    -WC.BFLL                                                COMFGFD    16
                          15637                   BX6    -X7*X3      ISOLATE FILE INDEX (OR BUFFER LENGTH)       COMFGFD    17
                               20336              LX3    WC.BFLP-WC.MRLP                                         COMFGFD    18
          1344  55131                             =A1    A3-WC.W+WB.W      *WB*                                  COMFGFD    19
                     20105                        LX1    -WB.EQUP-1                                              COMFGFD    20
                          0321001354 +            PL     X1,GFD4     IF NOT EQUIVALENCED FILE                    COMFGFD    21
                                                                                                                 COMFGFD    22
                                        *         EQUIVALENCED FILE.                                             COMFGFD    23
                                                                                                                 COMFGFD    24
          1345  10144                             BX1    X4                                                      COMFGFD    25
                     10466                        BX4    X6                                                      COMFGFD    26
                          7170000010              ISSUE  OC$FVEC,X1                                              COMFGFD    27
          1350  7170000010                        ISSUE  OC$FVEC,X4                                              COMFGFD    28
          1353  0400001371 +                      EQ     GFD6                                                    COMFGFD    29
                                                                                                                 COMFGFD    30
                                        *         NON-EQUIVALENCED FILE.                                         COMFGFD    31
                                                                                                                 COMFGFD    32
          1354  5110000000 X             GFD4     SA1    =XCO.STAT                                               F1037F5    46
                          0321001362 +            PL     X1,GFD5     IF NOT *STATIC* MODE                        F1037F5    47
          1355  5110000000 X                      SA1    =XN.BUF     X1 = BUFL,MRL,FIT SPACE SO FAR              F1037F5    48
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    51
        COMFICP - ISSUE CP. AND GPL. TABLES.                          O=GFD 
  
                          36116                   IX1    X1+X6       ADD BUFL TO TOTAL                           F1037F5    49
                               73730              SX7    X3          X7 = MRL (CHARS)                            F1037F5    50
                                   0              ERRNZ  WC.MRLL-18                                              F1037F5    51
          1356  7120000011                        CW     X2,X7       X2 = MRL (WORDS)                            F1037F5    52
                                         .RM      IFEQ   CP#RM,0                                                 F1037F5    53
          1360  7222000051                        SX2    X2+L.FIT6+L.FET6  X2 = MRL + FIT                        F1037F5    54
                                         .RM      ELSE                                                           F1037F5    55
                                                  SX2    X2+L.FIT7+L.FET7  X2 = MRL + FIT                        F1037F5    56
                                         .RM      ENDIF                                                          F1037F5    57
                          36712                   IX7    X1+X2       X7 = BUFL + MRL + FIT + C(N.BUF)            F1037F5    58
          1361  5170000000 X                      SA7    N.BUF       UPDATE THE CELL                             F1037F5    59
                                                                                                                 F1037F5    60
          1362  20652                    GFD5     LX6    PB.BIASP-PB.TAGP                                        F1037F5    61
                     12146                        BX1    X4+X6       MERGE ORDINAL AND BUFL                      F1037F5    62
                          73430                   SX4    X3                                                      F1037F5    63
                                   0              ERRNZ  WC.MRLL-18                                              F1037F5    64
          1363  7170000010                        ISSUE  OC$FVEC,X1                                              F1037F5    65
          1366  10144                             BX1    X4                                                      F1037F5    66
                     20152                        LX1    PB.BIASP-PB.TAGP                                        COMFGFD    39
                          7170000010              ISSUE  OC$FVEC,X1                                              COMFGFD    40
                                                                                                                 COMFGFD    41
          1371                           GFD6     BSS    0                                                       COMFGFD    42
                                                                                                                 COMFGFD    43
                                                  ENDX                                                           COMFGFD    44
          1371  6144000003                        SB4    B4+Z=TURP                                               GEN      1711
                          0400000012 +            EQ     EIS.PNX                                                 GEN      1712
  
  
  
  
                                        **        O=HDR - BEGINNING OF PROGRAM-UNIT.                             GEN      1714
                                        *                                                                        GEN      1715
                                        *         ENTRY  (B4) = TURPLE.                                          GEN      1716
                                        *         EXIT   TO EIS.PNX .                                            GEN      1717
                                                                                                                 GEN      1718
                                                                                                                 GEN      1719
          1372                           O=HDR    BSSENT             ENTRY...                                    GEN      1720
          1372  6144000003                        SB4    B4+Z=TURP                                               GEN      1721
                          7170000011              WPOP   OC$IDNT                                                 GEN      1722
          1375  5120000000 X                      SA2    MOD                                                     GEN      1723
                          20263                   HX2    MO.BLK                                                  GEN      1724
          1376  0332000012 +                      MI     X2,EIS.PNX  IF BLOCKDATA, NO TRACE WORD                 GEN      1725
                          7170000017              WPOP   OC$TRAC                                                 GEN      1726
          1401  5120000000 X                      SA2    MOD                                                     GEN      1727
                          20262                   HX2    MO.PRO                                                  GEN      1728
          1402  5110000000 X                      SA1    S=UPW                                                   GEN      1729
                          0322001412 +            PL     X2,HDR6     IF NOT MAIN PROGRAM                         GEN      1730
          1403  0301000012 +                      ZR     X1,EIS.PNX  IF NO FILE ARGUMENTS                        GEN      1731
                          76710                   ISSUE  OC$BSS,X1   UPW.  BSS 0                                 GEN      1732
          1406  5120000000 X                      SA2    NARGS                                                   GEN      1733
                          73721                   SX7    X2+B1                                                   GEN      1734
                               22117              LX1    X7,B1       FILETAB LEN = 2 * (NARGS + 1)               GEN      1735
          1407  20152                             LX1    -PB.TAGP+PB.BIASP                                       GEN      1736
                     7170000010                   ISSUE  OC$FVEC,X1,EIS.PNX                                      GEN      1737
                                                                                                                 GEN      1738
          1412  5110000000 X             HDR6     SA1    S=SA1                                                   GEN      1739
                          76710                   ISSUE  OC$BSS,X1   SAVEA1 BSS 0                                GEN      1740
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    52
        COMFICP - ISSUE CP. AND GPL. TABLES.                          O=HDR 
  
          1415  7170000043                        WPOP   I.ZERO                                                  FC5A436    20
                                                                                                                 FC5A436    21
                                        *         CID REQUIRES SAVEA0 TO BE AT SAVEA1+1.                         FC5A436    22
                                                                                                                 FC5A436    23
          1417  5110000000 X                      SA1    S=SA0                                                   FC5A436    24
                          76710                   ISSUE  OC$BSS,X1   SAVEA0  BSS  0                              FC5A436    25
          1422  7170000003                        WPOP   OC$BMI                                                  GEN      1741
          1424  7170000043                        WPOP   I.ZERO                                                  GEN      1742
          1426  7170000027                        WPOP   I.EMI,EIS.PNX                                           GEN      1743
  
  
  
  
                                        **        DATA - PROCESS DATA TURPLE AND TABLE.                          GEN      1745
                                                                                                                 GEN      1746
                                                                                                                 GEN      1747
          1430                           O=DATA   BSSENT 0                                                       GEN      1748
          1430  5110000000 X                      SA1    T=DATS                                                  GEN      1749
                          10411                   BX4    X1                                                      GEN      1750
                               20152              LX1    PB.BIASP-PB.TAGP                                        GEN      1751
          1431  7170000025                        ISSUE  I.DATA,X1                                               GEN      1752
                                                                                                                 GEN      1753
          1434  6150000000                        SB5    0                                                       GEN      1754
                          63640                   SB6    X4                                                      GEN      1755
          1435  6120001436 +                      SB2    DATA10      EXIT FROM WTE                               GEN      1756
                                                                                                                 GEN      1757
          1436  5110000000 X             DATA10   SA1    T.DATS                                                  GEN      1758
                          0456001441 +            EQ     B5,B6,DATA20      IF DATA TABLE EXHAUSTED               GEN      1759
          1437  53515                             SA5    X1+B5                                                   GEN      1760
                     10755                        BX7    X5                                                      GEN      1761
                          6155000001              SB5    B5+1                                                    GEN      1762
          1440  0400000000 X                      JP     WTE         WRITE DATA TABLE ENTRY TO PREBINARY         GEN      1763
                                                                                                                 GEN      1764
          1441  76600                    DATA20   SHRINK T=DATS,0                                                GEN      1765
          1442  0400000125 +                      EQ     NULLOP                                                  GEN      1766
  
  
  
  
                                        **        O=ILL - TURPLE CODE LOST.                                      GEN      1768
                                                                                                                 GEN      1769
          1443                           O=ILL    BSSENT                                                         GEN      1770
          1443  0400401443 +                      EQ     "BLOWUP"                                                GEN      1771
  
  
  
  
                                        **        O=LCC - LOADER CONTROL CARD.                                   GEN      1773
                                        *                                                                        GEN      1774
                                        *         ENTRY  (B4) = TURPLE.                                          GEN      1775
                                        *         EXIT   TO EIS.PNX .                                            GEN      1776
                                                                                                                 GEN      1777
                                                                                                                 GEN      1778
          1444                           O=LCC    BSSENT             ENTRY...                                    GEN      1779
          1444  56141                             =A1    B4+OR.1OP                                               GEN      1780
                     7170000013                   SX7    OC$LCC                                                  GEN      1781
                               20164              LX1    0-P2.BIASP+PB.BIASP                                     GEN      1782
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    53
        COMFICP - ISSUE CP. AND GPL. TABLES.                          O=LCC 
  
          1445  20760                             LX7    PB.GHIJP                                                GEN      1783
                     5124000002                   =A2    B4+OR.2OP                                               GEN      1784
                               12771              BX7    X7+X1                                                   GEN      1785
          1446  20212                             LX2    0-P2.BIASP+PB.TAGP                                      GEN      1786
                     12772                        BX7    X7+X2                                                   GEN      1787
                          6144000003              SB4    B4+Z=TURP                                               GEN      1788
          1447  6120000012 +                      WCODE  X7,EIS.PNX                                              GEN      1789
  
  
  
  
                                        **        O=PLIM - MARK END OF FILE DEFINITIONS.                         GEN      1791
                                                                                                                 GEN      1792
                                                                                                                 GEN      1793
          1450                           O=PLIM   BSSENT             ENTRY...                                    GEN      1794
          1450  6144000003                        SB4    B4+Z=TURP                                               GEN      1795
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    54
        COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                     PLI 
  
          1450                           PLI      CTEXT  COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.               COMFPLI     2
                                        **        COMFPLI ISSUES THE APLIST FOR THE FCL INITIALIZATION CALL.     COMFPLI     3
                                        *         IT IS INCLUDED IN GEN AND BRIDGE.                              COMFPLI     4
                                                                                                                 COMFPLI     5
                          5110000000 X            SA1    =XS=UPW                                                 COMFPLI     6
          1451  0301001456 +                      ZR     X1,PLI4     IF NO FILES                                 COMFPLI     7
                          7170000010              ISSUE  OC$FVEC     CON 0       TERMINATE FILE LIST             COMFPLI     8
          1454  7170000010                        ISSUE  OC$FVEC     CON 0                                       COMFPLI     9
          1456  5110000000 X             PLI4     SA1    S=FILES                                                 COMFPLI    10
                          76710                   ISSUE  OC$BSS,X1   FILES. BSS 0                                COMFPLI    11
          1461  5140000000 X                      SA4    =XCO.STAT   STATIC MODE FLAG                            F1037F5    67
                          5110000000 X            SA1    S=UPW                                                   COMFPLI    12
          1462  76710                             =X7    1                                                       COMFPLI    13
                     20402                        LX4    1-59        MOVE FLAG TO BIT 1                          F1037F5    68
                          12774                   BX7    X7+X4                                                   F1037F5    69
                               20752              LX7    PB.BIASP-PB.TAGP                                        COMFPLI    14
          1463  12117                             BX1    X1+X7                                                   COMFPLI    15
                     76700                        ISSUE  OC$ADDR,X1    CON 1S18+UPW.                             COMFPLI    16
          1466  7170000016                        ISSUE  OC$PLIM     CON PLIM                                    FC50049     5
          1470  0304001477 +                      ZR     X4,PLI10    IF NOT *STATIC* MODE                        F1037F5    70
                          5110000000 X            SA1    =XN.BUF                                                 F1037F5    71
          1471  5140000000 X                      SA4    =XS=BUF                                                 F1037F5    72
                          20152                   LX1    PB.BIASP-PB.TAGP                                        F1037F5    73
                               12114              BX1    X1+X4                                                   F1037F5    74
          1472  76700                             ISSUE  OC$ADDR,X1   CON    BUF.,C(N.BUF)                       F1037F5    75
          1474  5110000000 X                      SA1    =XN.BUF                                                 F1037F5    76
                          20152                   LX1    PB.BIASP-PB.TAGP                                        F1037F5    77
                               12114              BX1    X1+X4                                                   F1037F5    78
          1475  76710                             ISSUE  OC$BSS,X1   BUF.   BSS   C(N.BUF)                       F1037F5    79
                                                                                                                 F1037F5    80
          1477                           PLI10    BSS    0                                                       F1037F5    81
                                         COMFPLI  ENDX                                                           COMFPLI    20
          1477  0400000012 +                      EQ     EIS.PNX                                                 GEN      1797
  
  
  
  
                                        **        O=RGT - ALTERNATE RETURN                                       GEN      1799
                                                                                                                 GEN      1800
                                                                                                                 GEN      1801
          1500                           O=RGT    BSSENT 0                                                       GEN      1802
          1500  43230                             MX2    P2.BIASL                                                GEN      1803
                     20254                        LX2    P2.BIASL+P2.BIASP                                       GEN      1804
                          5114000002              =A1    B4+OR.2OP                                               GEN      1805
          1501  13312                             BX3    X1-X2       NEGATE BIAS                                 GEN      1806
                     43101                        MX1    1                                                       GEN      1807
                          11323                   BX3    X2*X3                                                   GEN      1808
                               20115              LX1    1+P2.SHRTP                                              GEN      1809
          1502  12613                             BX6    X1+X3                                                   GEN      1810
                     5160000001 X                 SA6    REG=G+1     GL2 = -2OP                                  GEN      1811
                               56541              =A5    B4+OR.1OP                                               GEN      1812
          1503  5130000000 X                      SA3    UAP                                                     GEN      1813
                          7213040000              SX1    X3+K2.AP                                                GEN      1814
          1504  20154                             LX1    P2.ORDP                                                 GEN      1815
                     20550                        LX5    -P2.BIASP                                               GEN      1816
                          73650                   SX6    X5                                                      GEN      1817
                               20624              LX6    P2.BIASP                                                GEN      1818
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    55
        COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                     O=RGT 
  
          1505  12616                             BX6    X1+X6                                                   GEN      1819
                     5160000000 X                 SA6    REG=G       GL1 = APIND + BIAS[OP1]                     GEN      1820
          1506  0400000125 +                      EQ     NULLOP      CONTINUE WITH SKEL                          GEN      1821
  
  
  
  
                                        **        O=SEX  - START EXECUTABLES.                                    GEN      1823
                                        *                                                                        GEN      1824
                                        *         ENTRY  (B4) = TURPLE                                           GEN      1825
                                        *         EXIT   TO EIS.PNX                                              GEN      1826
                                        *         CALLS  CBSS, SOR, WCODE.                                       GEN      1827
                                                                                                                 GEN      1828
                                                                                                                 GEN      1829
          1507                           O=SEX    BSSENT             ENTRY...                                    GEN      1830
          1507  6144000003                        SB4    B4+Z=TURP                                               GEN      1831
                          7110000000 X            ISUSE$ CON         USE CON.                                    GEN      1832
          1513  7170000004                        WPOP   OC$CON      PROCESS LITERALS                            GEN      1833
          1515  7110000000 X                      ISUSE$ FMT         USE FMT.                                    GEN      1834
          1520  7170000007                        WPOP   OC$FMT      PROCESS FORMATS                             GEN      1835
          1522  7110000000 X                      ISUSE$ APL         USE APL.                                    GEN      1837
          1525  76711                             WPOP   OC$APL      PROCESS AP-LIST                             GEN      1838
          1527  7110000000 X                      ISUSE$ IOAP        USE IOAPL.                                  GEN      1839
          1532  7170000012                        WPOP   OC$IOM      PROCESS I/O APLISTS.                        GEN      1840
          1534  7110000000 X                      ISUSE$ NLST        USE NLST.                                   GEN      1841
          1537  7170000015                        WPOP   OC$NLST     PROCESS NAMELIST DEFS                       GEN      1842
          1541  7120000000 X                      SX2    BN=CODE                                                 GEN      1843
                          7160000020              SX6    OC$USE                                                  GEN      1844
          1542  20214                             LX2    PB.BIASP                                                GEN      1845
                     20660                        LX6    PB.GHIJP                                                GEN      1846
                          12726                   BX7    X2+X6       ISSUE   * USE  CODE. *                      GEN      1847
          1543  6120001544 +                      WCODE  X7                                                      GEN      1848
          1544  7160000033                        SX6    I.LOO                                                   GEN      1849
                          5160000560 +            SA6    OCIOL       CURRENT OBJECT ON/OFF OPCODE                GEN      1850
          1545  7170000003                        WPOP   OC$BMI,EIS.PNX    BEGIN MACHINE INSTRUCTIONS            GEN      1851
  
  
  
  
                                        **        SOR -  SET OBJECT TIME REPRIEVE CODE                           GEN      1853
                                        *                                                                        GEN      1854
                                        *         ISSUES OBJECT-TIME-REPRIEVE HEADER --                          GEN      1855
                                        *                        +   SB0   B2-LEN.      CT.LENP = L.10           GEN      1856
                                        *                            SB0   B2+TRACE.    CT.TRAC = L.0            GEN      1857
                                        *         CALLS  WCODE.                                                  GEN      1858
                                        *                                                                        GEN      1859
                                        *         EXIT   TO CALLER                                               GEN      1860
                                                                                                                 GEN      1861
          1547  0400401547 +             SOR      SUBR   0                                                       GEN      1862
          1550  7140000034                        SX4    I.OTR                                                   GEN      1863
                          5120000000 X            SA2    S=LENP                                                  GEN      1864
                                                  =X2    X2+K.SYM                                                GEN      1865
          1551  20460                             LX4    PB.GHIJP                                                GEN      1866
                     20236                        LX2    PB.TAGP                                                 GEN      1867
                          12724                   BX7    X2+X4       12/I.OTR,18/TAG OF LENGTH WORD,30/0         GEN      1868
          1552  6120001553 +                      WCODE  X7          SB0    B2-LEN.                              GEN      1869
          1553  7120061020                        SX2    SB=BK+2S3   AVOID FORCE UPPER WITH REAL INST            GEN      1870
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    56
        COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                     SOR 
  
                          20255                   LX2    PB.INSTP                                                GEN      1871
          1554  5130000000 X                      SA3    S=TRACE                                                 GEN      1872
                          73430                   =X4    X3+K.SYM                                                GEN      1873
                               20436              LX4    PB.TAGP                                                 GEN      1874
          1555  36724                             IX7    X2+X4       12/6102,18/TAG OF TRACE WORD,30/0           GEN      1875
                     6120001547 +                 WCODE  X7,EXIT.    SB0   B2+L.0                                GEN      1876
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    57
        PROCESSORS TO SELECT SUB-SKELETONS.                           O=IM
  
                                        **        O=IM - INTEGER MULTIPLY.                                       GEN      1879
                                                                                                                 GEN      1880
                                                                                                                 GEN      1881
          1557                           O=IM     BSSENT 0           ENTRY...                                    GEN      1882
          1557  7160000000 X                      SX6    W=IMV       GENERAL INTEGER MULTIPLY                    GEN      1883
                          0400000017 +            EQ     SUB.RET                                                 GEN      1884
  
  
  
  
                                        **        O=ID - INTEGER DIVIDE.                                         GEN      1886
                                                                                                                 GEN      1887
                                                                                                                 GEN      1888
          1560                           O=ID     BSSENT 0                                                       GEN      1889
          1560  7160000000 X                      SX6    W=IDV       GENERAL INTEGER DIVIDE                      GEN      1890
                          0400000017 +            EQ     SUB.RET                                                 GEN      1891
  
  
  
  
                                        **        O=MASK - SELECT MASK GENERATION CODE.                          GEN      1893
                                                                                                                 GEN      1894
                                                                                                                 GEN      1895
          1561                           O=MASK   BSSENT 0                                                       GEN      1896
          1561  7160000000 X                      SX6    W=MASKV     SET GENERAL MASK                            GEN      1897
                          0400000017 +            EQ     SUB.RET                                                 GEN      1898
  
  
  
  
                                        **        O=MOD - SELECT CODE FOR MODULUS FUNCTION.                      GEN      1900
                                                                                                                 GEN      1901
                                                                                                                 GEN      1902
          1562                           O=MOD    BSSENT 0                                                       GEN      1903
          1562  7160000000 X                      SX6    W=MODG      SET GENERAL MODULUS SKEL                    GEN      1904
                          0400000017 +            EQ     SUB.RET                                                 GEN      1905
  
  
  
  
                                        *         O=SHIFT - SELECT SUBSKEL FOR SHIFT FUNCTION                    GEN      1907
                                                                                                                 GEN      1908
          1563                           O=SHIFT  BSSENT 0                                                       GEN      1909
          1563  7160000000 X                      SX6    W=SHIFV     SET GENERAL SHIFT SKEL                      GEN      1910
                          0400000017 +            EQ     SUB.RET                                                 GEN      1911
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    58
        (O=DO)  DO LOOP SKELETON PROCESSORS.                          O=DOB 
  
                                        **        O=DOB - FINAL ACTION OF A DO-BEGIN SKELETON.                   GEN      1914
                                        *                                                                        GEN      1915
                                        *         ENTRY  (X1) = DO-TOP LABEL OPERAND.                            GEN      1916
                                        *                                                                        GEN      1917
                                        *         EXIT   TO O=CBSS --                                            GEN      1918
                                        *                (X1) = DO-TOP LABEL OPERAND.                            GEN      1919
                                        *                (B4) ADVANCED OVER MEGA-TURPLE.                         GEN      1920
                                                                                                                 GEN      1921
                                                                                                                 GEN      1922
          1564                           O=DOB    BSSENT 0           ENTRY...                                    GEN      1923
          1564  6144000006                        SB4    B4+2*Z=TURP ADVANCE REST OF MEGATURP                    GEN      1924
                          0400000540 +            EQ     O=CBSS                                                  GEN      1925
  
  
  
  
                                        **        O=DOBZ - BEGIN ZERO TRIP DO LOOP                               GEN      1927
                                        *         DOBZ CREATES A 1 SUBTRACT FROM TRIP COUNT.                     GEN      1928
                                        *         ITS ONLY JOB IS TO CREATE A GENERATED L                        GEN      1929
                                        *         OPERAND (GL1) WHICH IS A SHORT CONSTANT  1.                    GEN      1930
                                        *                                                                        GEN      1931
                                        *         ENTRY  NONE                                                    GEN      1932
                                        *                                                                        GEN      1933
                                        *         EXIT   (REG=G) = I. L. FORMAT ENTRY FOR SHORT CON -1           GEN      1934
                                        *                                                                        GEN      1935
                                        *         SAVES  A4,X4,B4                                                GEN      1936
                                                                                                                 GEN      1937
                                                                                                                 GEN      1938
                                                                                                                 GEN      1939
          1565                           O=DOBZ   BSSENT 0                                                       GEN      1940
          1565  76010                             =X0    1                                                       GEN      1941
                     43201                        MX2    1                                                       GEN      1942
                          20014                   LX0    P2.SHRTP    SET SHORT CONSTANT BIT                      GEN      1943
                               76600              =X6    0           USE COUNT INCRIMENT = 0                     GEN      1944
          1566  20225                             LX2    1+P2.BIASP  POSITION CONSTANT                           GEN      1945
                     12220                        BX2    X2+X0       CONSTRUCT STATUS WORD                       GEN      1946
                          0100000000 X            RJ     POS         PREPARE OPERAND STATUS WORD                 GEN      1947
          1567  5160000000 X                      SA6    REG=G       SET GL1                                     GEN      1948
                          0400000125 +            EQ     NULLOP                                                  GEN      1949
  
  
  
  
                                        **        O=DOC - FIRST ACTION OF A DO CONCLUSION SKELETON.              GEN      1951
                                        *                                                                        GEN      1952
                                        *         ENTRY  (X1) = 0, IFF (DO=SHORT) LOOP CONCLUDING.               GEN      1953
                                        *                                                                        GEN      1954
                                        *         EXIT   TO *EIS.LNX* = CONTINUE WITH SKELETON.                  GEN      1955
                                        *                (GL1) = SHORT CONSTANT -1.                              GEN      1956
                                                                                                                 GEN      1957
                                                                                                                 GEN      1958
          1570                           O=DOC    BSSENT 0           ENTRY...                                    GEN      1959
          1570  43127                             MX1    P2.BIASL-1                                              GEN      1960
                     7130010000                   CLAS=  X3,P2,(SHRT)                                            GEN      1961
                               20154              LX1    P2.BIASL+P2.BIASP                                       GEN      1962
          1571  12231                             BX2    X3+X1                                                   GEN      1963
                     76600                        SX6    B0                                                      GEN      1964
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    59
        (O=DO)  DO LOOP SKELETON PROCESSORS.                          O=DOC 
  
                          0100000000 X            CALL   POS         PROCESS OPERAND STATUS                      GEN      1965
          1572  5160000000 X                      SA6    REG=G       SET (GL1) = MINUS ONE                       GEN      1966
                          0400000020 +            EQ     EIS.LNX     EXIT..                                      GEN      1967
  
  
  
  
  
  
  
  
                                        **        O=PDE - FINAL ACTION OF A DO-CONCLUSION SKELETON.              GEN      1970
                                        *                                                                        GEN      1971
                                        *         O=PDE IS MAINLY PROVIDED FOR COMPATIBILITY WITH THE BRIDGE --  GEN      1972
                                        *         ITS FUNCTION IS NOT NECESSARY TO QCG, BUT IS POSSIBLY A SLIGHT GEN      1973
                                        *         EFFICIENCY IMPROVEMENT.                                        GEN      1974
                                        *                                                                        GEN      1975
                                        *         EXIT   TO *EIS.PNX*.                                           GEN      1976
                                        *                (B4) ADVANCED OVER MEGATURPLE.                          GEN      1977
                                                                                                                 GEN      1978
                                                                                                                 GEN      1979
          1573                           O=PDE    BSSENT 0           ENTRY/EXIT...                               GEN      1980
          1573  6144000006                        SB4    B4+2*Z=TURP ADVANCE OVER MEGA-TURPLE                    GEN      1981
                          0400000012 +            EQ     EIS.PNX     EXIT..                                      GEN      1982
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    60
        (O=GO)  COMPUTED GOTO PROCESSOR.                              O=CGT 
  
                                        **        O=CGT  COMPUTED GOTO PROCESSOR                                 GEN      1985
                                        *                HERE THE KEY DECISION IS WHETHER THE LINE NUMBER        GEN      1986
                                        *                IS GREATER THAN 7777B. THE REASON FOLLOWS:              GEN      1987
                                        *                THE ACTUAL JUMP CODE HAS THE FORM  JP   B6+L.N          GEN      1988
                                        *                                             L.N   RGT  =XGOTOER.       GEN      1989
                                        *                                                   EQ   TAG1            GEN      1990
                                        *                                                   ........             GEN      1991
                                        *                                                   EQ   TAGN            GEN      1992
                                        *                    TWELVE BITS OF THE RJT WORD RESERVED FOR THE        GEN      1993
                                        *                LINE NUMBER(TRACEBACK). IF LINE NO.IS GREATER THAN      GEN      1994
                                        *                7777B ANOTHER WORD IS USED TO CARRY THE LINE NO.        GEN      1995
                                        *                NOW, THE GOC SUB-SKELS SET B6, AND THUS MUST BE         GEN      1996
                                        *                DIFFER TO ACCOUNT FOR THE EXTRA WORD.IN BOTH CASES      GEN      1997
                                        *                B6 IS ZERO IF THE CONTROL VARIABLE IS NOT BETWEEN       GEN      1998
                                        *                1 AND N. OTHERWISE B6 POINTS TO THE APPROPRIATE         GEN      1999
                                        *                EQ   TAGI .                                             GEN      2000
                                                                                                                 GEN      2001
  
  
  
  
                                        **        SET UP GP AND SUBSKEL ORDINAL FOR COMPUTED GO TO.              GEN      2003
                                                                                                                 GEN      2004
                                                                                                                 GEN      2005
          1574                           O=PCG    BSSENT 0                                                       GEN      2006
          1574  5150000000 X                      SA5    N.GL        GET GL ORDINAL                              GEN      2007
                          7110060030              =X1    I.JPI+6S12  OPCODE FOR INDEX JUMP +6 FOR B6             GEN      2008
                                   0              ERRNZ  PB.BJRP                                                 GEN      2009
                                   0              ERRNZ  12-PB.GHIJL                                             GEN      2010
          1575  73651                             =X6    X5+1                                                    GEN      2011
                     7255100000                   SX5    X5+K.GL     ADD ON GL PREFIX                            GEN      2012
                              100000              ERRMI  K.GL                                                    GEN      2013
                               20160              LX1    PB.GHIJP    POSITION OPCODE AND B6 INDICATOR            GEN      2014
          1576  54650                             =A6    A5          RESET GL COUNTER                            GEN      2015
                     20536                        LX5    PB.TAGP     POSITION TAG                                GEN      2016
                          36715                   IX7    X1+X5       ADD TAG TO OPCODE + B6 INDICATOR            GEN      2017
          1577  6120001600 +                      WCODE  X7          WRITE: JP  B6+GL.N                          GEN      2018
          1600  7170000024                        =X7    I.BSS                                                   GEN      2019
                          20760                   LX7    PB.GHIJP                                                GEN      2020
                               36775              IX7    X7+X5                                                   GEN      2021
          1601  6120000125 +                      WCODE  X7,NULLOP   WRITE:  GL.N   BSS  0                       GEN      2022
  
  
  
  
                                        **        PASG- ASSIGN TURPLE PROCESSOR.                                 GEN      2024
                                        *         MAINTAIN LABEL ADDRESS (LA.) TABLE AND DEFINE GL1.             GEN      2025
                                                                                                                 GEN      2026
          1602                           O=PASG   BSSENT 0                                                       GEN      2027
          1602  5110000000 X                      SA1    S=LA                                                    GEN      2028
                          5120000000 X            SA2    T=LA                                                    GEN      2029
          1603  20154                             LX1    P2.TAGP                                                 GEN      2030
                     20224                        LX2    P2.BIASP                                                GEN      2031
                          76600                   =X6    0                                                       GEN      2032
                               12212              BX2    X1+X2                                                   GEN      2033
          1604  0100000000 X                      RJ     POS         PREPARE OPERAND                             GEN      2034
          1605  5160000000 X                      SA6    REG=G       GL1 = LA. + K, K= T=LA                      GEN      2035
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    61
        (O=GO)  COMPUTED GOTO PROCESSOR.                              O=PASG
  
                          56141                   =A1    B4+OR.1OP                                               GEN      2036
                               43054              MX0    -P2.TAGL                                                GEN      2037
          1606  20120                             LX1    -P2.TAGP                                                GEN      2038
                     15610                        BX6    -X0*X1                                                  GEN      2039
                          5110000000 X            ADDWD  T.LA        LA(K) = SYMORD(1OP)                         GEN      2040
          1610  0400000125 +                      EQ     NULLOP                                                  GEN      2041
  
  
  
  
                                                  LIST   D                                                       GEN      2043
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        SFR 
             0 X                        GST 
             0 X                        CLI 
             0 X                        ENTRJ 
             0 X                        S=SLI 
             0 X                        N.STMAX 
             0 X                        N.ST
             0 X                        CO.STAT 
             0 X                        N.BUF 
             0 X                        S=BUF 
  
                                        CONTENT OF LITERALS BLOCK.
  
          1611  00000000000002001000          B H 
          1612  00000631463146314632      FY-Y-Y-Z
  
          1613                                    END                                                            GEN      2044
  
                             73600B CM  STORAGE USED             9908 STATEMENTS     2034 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            7.446 SECONDS        1764 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       2/09 X   61/05
        AIR             0   EXTERNAL*       2/46 X   24/47
        ALC             0   EXTERNAL*       2/09 X   35/55
        ALC.CAI         0   EXTERNAL*       2/09 X   36/09
        ALC.REG         0   EXTERNAL*       2/09 X   36/04 S   36/11 S
        ALC.00          0   EXTERNAL*       2/09 X   36/02
        ASR             0   EXTERNAL*       2/46 X   23/25     24/42     24/49
        AT.BASE        56   PROGRAM*        8/20      9/25 L
        BN=APL          0   EXTERNAL*       2/27 X   55/21
        BN=CODE         0   EXTERNAL*       2/27 X   55/27
        BN=CON          0   EXTERNAL*       2/27 X   55/17
        BN=FMT          0   EXTERNAL*       2/27 X   55/19
        BN=IOAP         0   EXTERNAL*       2/27 X   55/23     55/23
        BN=NLST         0   EXTERNAL*       2/27 X   55/25
        BN=STRT         0   EXTERNAL*       2/27 X   45/10     45/10     47/12
        BN=SUB          0   EXTERNAL*       2/28 X   48/06
        BN=TEM          0   EXTERNAL*       2/28 X   46/05     48/09     48/15
        BOS           467   PROGRAM*        5/24     29/26 L
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        BOS3          476   PROGRAM*       29/37     29/41 L
        BOS4          477   PROGRAM*       29/36     29/39     29/42 L
        BOS5          511   PROGRAM*       29/53     30/08 L
        BOS8          522   PROGRAM*       30/18     30/27 L
        B1=1            0 
        CBREAK        122   PROGRAM*       10/55     12/08 L   31/19     32/27
        CC$SUB       1137   PROGRAM*       39/09     45/34 D
        CC$SUB0      1140   PROGRAM*       45/36 D
        CDS             0   EXTERNAL*       2/46 X   14/27     19/39     29/38     31/35     44/02
        CHRCNT          5 
        CIA             0   EXTERNAL*       2/46 X   12/09     29/41     30/03     30/20     30/43     44/03
        CLI             0   EXTERNAL*      22/05
        CLOADJ          0   EXTERNAL*       2/46 X   27/27 S
        COMPILE       124   PROGRAM*       11/01     11/02     12/18 L
        CO.DBER         0   EXTERNAL*       2/18 X   29/29     30/08     45/11     47/13
        CO.DBID         0   EXTERNAL*       2/18 X   29/30     30/09     37/07     37/28     38/17
        CO.LL           0   EXTERNAL*       2/18 X
        CO.SNAP         0   EXTERNAL*       2/18 X
        CO.STAT         0   EXTERNAL*      50/55     54/11
        CP#RM           0   FTX            51/05 F
        CRJ             0   EXTERNAL*       2/46 X   32/54
        CRJ2          545   PROGRAM*       32/45     32/51 L
        CURSK         136   PROGRAM*        6/10 S   12/47     12/55 L   12/55 E   32/42
        DATA10       1436   PROGRAM*       52/25     52/27 L
        DATA20       1441   PROGRAM*       52/28     52/34 L
        DH.DIML         6   FTX            42/15
        DH.DIMP         0   FTX            42/14
        DH.PSP         36   FTX            42/11
        DH.VDP         73   FTX            42/08
        DH.VPP         71   FTX            42/08     42/11     42/14
        DIT             0   EXTERNAL*       2/46 X   25/02
        DM.TDP         35   FTX            42/20     42/22     42/30     42/36
        DRITE           0   EXTERNAL*       2/37 X   10/56
        DSC             0   EXTERNAL*       2/46 X   19/52
        D1.SPANP        0   FTX            42/20
        D2.LBP         36   FTX            42/33
        D2.UBP          0   FTX            42/33
        EF.ORDL        17   FTX            41/48     46/41     49/21
        EH.BIASL       22   FTX            38/03
        EH.SB0IL       17   FTX            40/23
        EH.SB0IP       22   FTX            40/24     49/56
        EH.SUBIL       17   FTX            39/23
        EH.SUBIP       41   FTX            39/24     49/56
        EIS             0   PROGRAM*        4/49 L    4/49 E
        EISXA         171   PROGRAM*       14/24 S   15/18     15/23 L
        EIS.AA        421   PROGRAM*       25/10 L
        EIS.AB        137   PROGRAM*       13/05 L
        EIS.AT        172   PROGRAM*       16/08 L
        EIS.AT10      201   PROGRAM*       16/19     16/27     16/34 L
        EIS.AT30      202   PROGRAM*       16/11     16/32     16/40 L
        EIS.AX        142   PROGRAM*       14/12 L
        EIS.BRN        46   PROGRAM*        6/23      7/21 L
        EIS.CA        421   PROGRAM*       25/11 L
        EIS.CALL       37   PROGRAM*        6/25      6/44 L
        EIS.CB        212   PROGRAM*       17/27 L
        EIS.CL5        42   PROGRAM*        6/53      7/04 L
        EIS.CMP       105   PROGRAM*        7/37     10/12 L
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        EIS.CM1       114   PROGRAM*       10/16     10/33 L
        EIS.CM6       124   PROGRAM*       10/31     12/17 L
        EIS.CM9       130   PROGRAM*       12/32     12/37 L
        EIS.COND       46   PROGRAM*        6/20      7/20 L
        EIS.CT        206   PROGRAM*       17/04 L
        EIS.CT5       210   PROGRAM*       17/14 L   17/29
        EIS.CX        144   PROGRAM*       14/16 L
        EIS.GL        215   PROGRAM*       18/21 L
        EIS.GLL       217   PROGRAM*       18/26 L
        EIS.GLN       214   PROGRAM*       18/19 L
        EIS.GLNL      216   PROGRAM*       18/24 L
        EIS.GL2       220   PROGRAM*       18/22     18/27     18/30 L
        EIS.GP        213   PROGRAM*       17/42 L   17/42 E
        EIS.INST      463   PROGRAM*       20/36 S   20/38 S   20/42     28/32 L
        EIS.IR        405   PROGRAM*       24/29 L
        EIS.IRL       404   PROGRAM*       24/26 L
        EIS.IR1       406   PROGRAM*       24/27     24/30     24/34 L
        EIS.IR10      413   PROGRAM*       24/41     24/47 L
        EIS.IR20      416   PROGRAM*       24/48     24/52 L
        EIS.IR30      417   PROGRAM*       24/43     24/50     24/52     24/57 L
        EIS.JREG      464   PROGRAM*       20/38 S   20/40     20/42     28/33 L
        EIS.K         421   PROGRAM*       25/12 L
        EIS.L         225   PROGRAM*       19/15 L
        EIS.LK        354   PROGRAM*       21/18 S   21/37     22/12     23/02 L
        EIS.LL        223   PROGRAM*       18/49 L
        EIS.LNL       222   PROGRAM*       18/46 L
        EIS.LNU       224   PROGRAM*       19/13 L
        EIS.LNX        20   PROGRAM*        5/48 L    6/40     12/51     59/03
        EIS.LN1        46   PROGRAM*        6/21      6/22      7/10      7/13      7/24 L
        EIS.LOD        43   PROGRAM*        6/28      7/08 L
        EIS.LRF       440   PROGRAM*       13/14     16/50     17/19     22/50     22/57     25/15     27/11 L
        EIS.LRF5      446   PROGRAM*       27/14     27/25 L
        EIS.LST       356   PROGRAM*       19/56 S   21/25     21/49     22/37     23/05 L
        EIS.LUC       353   PROGRAM*       21/23 S   22/32     23/01 L
        EIS.LX        355   PROGRAM*       21/36 S   21/44 S   21/57     22/08     23/03 L
        EIS.L10       261   PROGRAM*       20/06     20/30 L
        EIS.L12       264   PROGRAM*       20/25     20/31     20/35 L
        EIS.L13       276   PROGRAM*       20/49     20/54 L
        EIS.L15       277   PROGRAM*       20/28     20/33     20/35     21/07 L
        EIS.L16       316   PROGRAM*       21/34     21/41 L
        EIS.L17       330   PROGRAM*       21/48     22/08 L
        EIS.L18       335   PROGRAM*       22/20     22/23 L
        EIS.L19       341   PROGRAM*       21/39     22/06     22/32 L
        EIS.L2        226   PROGRAM*       18/36     18/51     19/18 L
        EIS.L20       343   PROGRAM*       21/09     21/13     21/16     22/36 L
        EIS.L21       347   PROGRAM*       19/49     22/49 L
        EIS.L3        234   PROGRAM*       19/36     19/37     19/39 L
        EIS.L5        242   PROGRAM*       19/44     19/46     19/51 L
        EIS.L6        256   PROGRAM*       20/13     20/24 L
        EIS.L7        257   PROGRAM*       20/08     20/22     20/26 L
        EIS.NOOP       46   PROGRAM*        7/23 L
        EIS.NX         50   PROGRAM*        7/34 L   28/22
        EIS.P         427   PROGRAM*       26/11 L
        EIS.PNX        12   PROGRAM*        5/09 L   12/53     51/26     51/48     52/09     53/07     55/35     59/24
                                            5/09 E   36/14     51/42     51/54     52/09     54/33     55/35
        EIS.P4        430   PROGRAM*       17/44     26/14 L
        EIS.P5        432   PROGRAM*       25/31     25/45     26/24 L
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        EIS.Q         423   PROGRAM*       25/26 L
        EIS.REG       451   PROGRAM*       15/21     24/13     26/37     27/15     27/26
                                           24/06     25/03     26/49     27/23     28/11 L
        EIS.RG5       454   PROGRAM*       28/14     28/16 L
        EIS.S         425   PROGRAM*       25/39 L
        EIS.SBRN       36   PROGRAM*        6/27      6/34 L
        EIS.SHF        46   PROGRAM*        6/24      7/22 L
        EIS.STO       357   PROGRAM*       19/38     23/15 L
        EIS.ST1       370   PROGRAM*       23/22     23/37 L
        EIS.ST2       377   PROGRAM*       23/47     24/02 L
        EIS.ST3       402   PROGRAM*       23/39     24/10 L
        EIS.TYP        25   PROGRAM*        6/16      6/18 L
        EIS.X         145   PROGRAM*       14/14     14/18     14/20 L
        EIS.X10       166   PROGRAM*       14/39     14/43     15/16 L
        EIS.X15       167   PROGRAM*       15/18 L
        EIS.X5        152   PROGRAM*       14/26     14/34 L
        EIS.X7        157   PROGRAM*       14/38     14/55 L
        ENTRJ           0   EXTERNAL*      35/32 S   35/41     36/18 S   38/24 S   39/35 S   40/35 S
        ENT.EGL      1135   PROGRAM*       35/17 S   44/04     45/25 S   45/31 L   45/31 E
        ENT.SB0      1140   PROGRAM*       45/35 L   45/35 E   45/36
        ENT.STO      1136   PROGRAM*       34/32 S   34/38     35/35     35/37     36/05     45/28 S   45/32 L   45/32 E
        ENT.SUB      1137   PROGRAM*       45/33 L   45/33 E   45/34     48/04
        ENT.VD       1141   PROGRAM*       35/40     35/51     45/37 L   45/37 E
        ESTACK          0   EXTERNAL*       2/15 X   12/08 S   12/10     30/02 S   30/04
        EVD1         1067   PROGRAM*       35/52     44/04 L
        FIN2         1211   PROGRAM*       47/14     47/16 L
        FIN3         1212   PROGRAM*       47/10     47/19 L
        FPENT1        611   PROGRAM*       35/34 L   36/19
        FPENT2        627   PROGRAM*       35/42     35/51 L
        FP.LENL        16   FTX            50/03
        FP.LENP        44   FTX            50/03
        FP.LEV0L        1   FTX            50/06
        FP.LEV0P       70   FTX            50/06
        FP.SUB0L       22   FTX            50/04
        FP.SUB0P       22   FTX            50/04
        FP.VDSL         1   FTX            50/04
        FP.VDSP        73   FTX            50/04
        F.SCT           0   EXTERNAL*       2/41 X    5/28
        F.SKEL          0   EXTERNAL*       2/41 X    5/36
        GENT5         600   PROGRAM*       34/50 L   34/55     34/57
        GFD4         1354   PROGRAM*       50/43     50/55 L
        GFD5         1362   PROGRAM*       50/56     51/13 L
        GFD6         1371   PROGRAM*       50/51     51/22 L
        GNR             0   EXTERNAL*       2/46 X   20/39     21/42
        GST             0   EXTERNAL*      21/47
        GSTC            0   EXTERNAL*       2/46 X   19/53
        GTR             0   EXTERNAL*       2/46 X   14/56     16/34
        HDR6         1412   PROGRAM*       51/47     51/56 L
        HREG          465   PROGRAM*        7/12 S   22/49     28/34 L
        ICP          1143   PROGRAM*       44/54     46/02 L
        ICP10        1161   PROGRAM*       46/23 L   46/44
        ICP20        1164   PROGRAM*       46/19     46/27 L
        ICP30        1167   PROGRAM*       46/35 L   46/48
        ICP40        1171   PROGRAM*       46/35     46/40 L
        IDP=SVB         0   EXTERNAL*       2/24 X
        IDP=SVX         0   EXTERNAL*       2/24 X
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        IJK           461   PROGRAM*        5/51 S   12/30     21/07     27/11     28/26 L
                                            7/34     19/29     26/44     28/11     28/26 E
        INS.REG       457   PROGRAM*       10/27     12/33     16/20     23/28     28/12     28/24 E
                                           10/41     12/39 S   23/15     23/51     28/24 L
        ISA           647   PROGRAM*       35/36     37/06 L   37/06 E
        ISA05         656   PROGRAM*       37/08     37/13 L
        ISA15         657   PROGRAM*       37/16 L   37/44
        ISA17         662   PROGRAM*       37/17     37/24 L
        ISA20         700   PROGRAM*       37/14     37/35 L
        ISA30         716   PROGRAM*       37/50     38/02 L
        ISA35         744   PROGRAM*       38/18     38/22 D
        ITS             0   EXTERNAL*       2/37 X   47/34
        I.BOS          22   FTX            29/43     30/10
        I.BSS          24   FTX            32/09     35/48     45/16     46/10     47/11     47/28     48/11     60/38
                                           35/48     45/09     45/21     46/12     47/11     48/08     48/17
        I.CPL          23   FTX            46/45     46/45
        I.DATA         25   FTX            52/21
        I.EMI          27   FTX            47/29     47/29     52/09
        I.JPI          30   FTX            31/15     31/15     60/27
        I.LOO          33   FTX            55/33
        I.OTR          34   FTX            30/10     55/50
        I.RJ3          35   FTX            30/21     35/47     38/16     39/33     40/33
        I.SB0I         40   FTX            50/01
        I.SUBI         37   FTX            50/01
        I.USE          42   FTX            45/10     46/05     47/12     48/06     48/09     48/15
        I.ZERO         43   FTX            35/49     35/49     46/23     48/45     48/45     52/01     52/01     52/08
        K2.AP       40000                  54/53
        K2.GL       20000                  34/14     35/13
        K.GL       100000   FTX            35/45     44/06     60/31     60/32
        K.SYM           0   FTX            34/05     55/52     56/03
        LEVEL0          0   EXTERNAL*       2/28 X   40/08
        LSC             0   EXTERNAL*       2/46 X   20/32
        LTG             0   EXTERNAL*       2/47 X   20/27
        L.ATABLE       27                   9/55 L    9/57
        L.FET6         15   FTX            51/06
        L.FIT6         34   FTX            51/06
        L.MTBL         11                   6/29 L
        MAV          1010   PROGRAM*       36/06     41/14 L
        MAV10        1013   PROGRAM*       41/24 L   41/28
        MAV20        1021   PROGRAM*       41/43 L   42/44     42/47
        MAV30        1023   PROGRAM*       41/43     41/47 L
        MAV40        1033   PROGRAM*       42/09     42/14 L
        MAV50        1034   PROGRAM*       42/19 L   42/40
        MAV60        1036   PROGRAM*       42/21     42/26 L
        MAV70        1040   PROGRAM*       42/28     42/33 L
        MAV80        1042   PROGRAM*       42/34     42/39 L
        MAV90        1043   PROGRAM*       41/56     42/07     42/42 L
        MAX.USEC      777                  13/11     14/13     14/37     14/42     16/43     16/43
        MENT05       1110   PROGRAM*       45/02     45/07 L
        MENT1        1111   PROGRAM*       45/05     45/09 L
        MENT2        1121   PROGRAM*       45/12     45/15 L
        MENT25       1132   PROGRAM*       45/18     45/23 L
        MOD             0   EXTERNAL*       2/28 X   37/18     44/19     47/08     51/44
                                           30/13     37/46     44/55     51/40
        MO.BLKL         1   FTX            30/14     51/41
        MO.BLKP        10   FTX            30/14     47/19     51/41
        MO.CLIFL       23   FTX            37/19     37/47     44/56
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        MO.CLIFP       35   FTX            37/20     37/48     44/57
        MO.FUNP        13   FTX            44/21     44/23
        MO.MODEL        3   FTX            44/24
        MO.MODEP        0   FTX            44/23
        MO.PROL         1   FTX            47/09     51/45
        MO.PROP        11   FTX            47/09     47/19     51/45
        MVD          1046   PROGRAM*       42/12     42/24     42/31     42/37     42/46     43/07 L
        MVE=            0   EXTERNAL*       2/51 X   36/01
        MVT          1052   PROGRAM*       36/07     43/24 L
        MVT10        1060   PROGRAM*       43/38 L   43/42     43/52
        M.BRAN          3                   6/23 L
        M.CHAR          6   FTX            44/26
        M.COND          0                   6/20 L
        M.CPLX          5   FTX            44/31
        M.DBL           4   FTX            44/30     44/31
        M.ICALL         5                   6/25 L
        M.INCR          2                   6/22 L
        M.INOOP         6                   6/26 L
        M.ISBRN         7                   6/27 L
        M.LOAD         10                   6/28 L   10/15     19/32
        M.NORM          1                   6/21 L
        M.SHIF          4                   6/24 L   26/25
        NARGS           0   EXTERNAL*       2/28 X   51/50
        NULLOP        125   PROGRAM*        6/26     12/24 E   32/21     33/22     44/43     58/39
                                           10/24     30/44     32/55     33/38     52/35     60/41
                                           12/24 L   31/36     33/09     34/37     55/03     61/06
        N.ALTEN      1142   PROGRAM*       33/56     34/35     45/38 L   45/38 E
        N.ARP           0   EXTERNAL*       2/28 X   45/17
        N.BUF           0   EXTERNAL*      50/57     51/11 S   54/21     54/26
        N.CON           0   EXTERNAL*       2/28 X   47/37 S
        N.EPL           0   EXTERNAL*       2/28 X   37/13     46/03
        N.FP            0   EXTERNAL*       2/28 X   37/16     45/03
        N.GL            0   EXTERNAL*       2/29 X   33/52     35/43     60/26
        N.ST            0   EXTERNAL*      47/31
        N.STMAX         0   EXTERNAL*      47/30
        OCIOL         560   PROGRAM*       33/33     33/40 L   33/40 E   55/34 S
        OC$ADDR         0   FTX            54/18     54/25
        OC$APL          2   FTX            55/22
        OC$BMI          3   FTX            52/07     52/07     55/35
        OC$BSS          1   FTX            51/49     51/57     52/06     54/10     54/29
        OC$CON          4   FTX            55/18     55/18
        OC$END          5   FTX            47/38
        OC$FMT          7   FTX            55/20
        OC$FVEC        10   FTX            50/49     51/17     51/20     54/07     54/08
                                           50/50     51/17     51/54     54/08
        OC$IDNT        11   FTX            51/39
        OC$IOM         12   FTX            55/24
        OC$LCC         13   FTX            52/56
        OC$NLST        15   FTX            55/26
        OC$PLIM        16   FTX            54/19     54/19
        OC$TRAC        17   FTX            51/43
        OC$USE         20   FTX            55/17     55/19     55/21     55/23     55/25     55/28
        OPCODE        460   PROGRAM*        7/29 S   16/17     28/25 L
        OPTYP         462   PROGRAM*        6/15 S   10/12     19/31     26/24     28/29 L
        OP.BSSIP       20                  32/20
        OP.CHINL        6                  24/37
        OP.CHINP       26                  24/38
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        OP.LINEL       22                   5/20
        OP.LINEP       34                   5/21     29/28
        OP.USEL        11                  22/19
        OR.OPR          0   FTX             5/19
        OR.1OP          1   FTX            29/57     33/17     33/55     52/55     61/01
                                           33/04     33/30     50/32     54/51
        OR.2OP          2   FTX            53/02     54/44
        OSC           746   PROGRAM*       35/38     39/08 L
        OSI          1260   PROGRAM*       48/13     48/19     48/29 L
        OSIA         1325   PROGRAM*       48/30 S   48/55     49/36     49/52 L
        OSIB         1326   PROGRAM*       48/32 S   48/41     48/48     49/45     49/53 L
        OSIC         1327   PROGRAM*       48/53     49/08 S   49/54 L
        OSID         1330   PROGRAM*       48/33 S   48/42     49/55 L
        OSIM2        1335   PROGRAM*       49/37     50/03 L
        OSIM3        1337   PROGRAM*       49/40     50/05 L
        OSIO         1333   PROGRAM*       49/43     50/01 L
        OSIS         1331   PROGRAM*       48/56     49/56 L
        OSI10        1265   PROGRAM*       48/41 L   49/24
        OSI20        1277   PROGRAM*       48/37     48/44     49/05 L
        OSI30        1303   PROGRAM*       49/15 L   49/39     49/42     49/50
        OSI40        1305   PROGRAM*       49/15     49/20 L
        OST          1231   PROGRAM*       47/21     48/03 L
        OST10        1250   PROGRAM*       48/05     48/15 L
        OZC           767   PROGRAM*       35/39     40/07 L
        O=BVD         125   PROGRAM*       12/26 L   12/26 E
        O=CAR         523   PROGRAM*       30/42 L   30/42 E
        O=CBJ         525   PROGRAM*       31/12 L   31/12 E
        O=CBSS        540   PROGRAM*       32/26 L   34/19     58/12
        O=CDCS        550   PROGRAM*       33/03 L   33/03 E
        O=CDDOT       552   PROGRAM*       33/16 L   33/16 E
        O=CDLOO       554   PROGRAM*       33/29 L   33/29 E
        O=CDW         530   PROGRAM*       31/34 L   31/34 E
        O=CRJ         542   PROGRAM*       32/41 L   32/41 E
        O=DATA       1430   PROGRAM*       52/17 L   52/17 E
        O=DOB        1564   PROGRAM*       58/10 L   58/10 E
        O=DOBZ       1565   PROGRAM*       58/30 L   58/30 E
        O=DOC        1570   PROGRAM*       58/52 L   58/52 E
        O=EISX          0   PROGRAM*        4/47 L
        O=ENT         561   PROGRAM*       33/51 L   33/51 E
        O=EVD        1065   PROGRAM*       44/01 L   44/01 E
        O=FIN        1200   PROGRAM*       47/07 L   47/07 E
        O=FINX       1215   PROGRAM*       44/05     47/20     47/27 L   47/27 E
        O=FPENT       610   PROGRAM*       35/30 L   35/30 E
        O=FPHDR       645   PROGRAM*       36/16 L   36/16 E
        O=FUNT       1072   PROGRAM*       44/18 L   44/18 E
        O=GENT        571   PROGRAM*       34/29 L   34/29 E
        O=GENTX       573   PROGRAM*       34/34 L   34/34 E
        O=GFD        1341   PROGRAM*       50/22 L   50/22 E
        O=HCAT        125   PROGRAM*       12/28 L   12/28 E
        O=HCOL        125   PROGRAM*       12/29 L   12/29 E
        O=HDR        1372   PROGRAM*       51/37 L   51/37 E
        O=HSBS        125   PROGRAM*       12/27 L   12/27 E
        O=ID         1560   PROGRAM*       57/14 L   57/14 E
        O=ILL        1443   PROGRAM*       52/42 L   52/42 E
        O=IM         1557   PROGRAM*       57/04 L   57/04 E
        O=LCC        1444   PROGRAM*       52/54 L   52/54 E
        O=MASK       1561   PROGRAM*       57/24 L   57/24 E
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        O=MENT       1103   PROGRAM*       44/53 L   44/53 E
        O=MOD        1562   PROGRAM*       57/34 L   57/34 E
        O=NOOP        125   PROGRAM*       12/25 L   12/25 E
        O=PASG       1602   PROGRAM*       60/49 L   60/49 E
        O=PCG        1574   PROGRAM*       60/25 L   60/25 E
        O=PDE        1573   PROGRAM*       59/22 L   59/22 E
        O=PLA         537   PROGRAM*       32/18 L   32/18 E
        O=PLIM       1450   PROGRAM*       53/15 L   53/15 E
        O=RGT        1500   PROGRAM*       54/41 L   54/41 E
        O=SEX        1507   PROGRAM*       55/15 L   55/15 E
        O=SHIFT      1563   PROGRAM*       57/43 L   57/43 E
        O.NONE         54   FTX            43/30
        O.=            41   FTX            24/40
        PBW           532   PROGRAM*       30/01     31/57 L   32/26
        PB.BIASL       22   FTX            26/14     26/35
        PB.BIASP       14   FTX            29/44     39/29     46/08     48/15     52/20     54/27     55/23
                                           33/36     40/29     47/12     51/13     52/57     55/17     55/25
                                           37/54     45/10     48/06     51/19     54/16     55/19     55/29
                                           38/07     46/05     48/09     51/53     54/23     55/21
        PB.BJRP         0   FTX            60/28
        PB.GHIJL       14   FTX            60/29
        PB.GHIJP       60   FTX            15/07     37/11     38/14     45/21     48/08     51/43     54/08     55/23
                                           22/27     37/24     38/16     46/05     48/09     51/49     54/10     55/24
                                           29/45     37/25     38/19     46/10     48/11     51/54     54/18     55/25
                                           30/16     37/27     38/21     46/12     48/15     51/57     54/19     55/26
                                           30/23     37/30     39/31     46/23     48/17     52/01     54/25     55/30
                                           31/17     37/32     39/33     46/45     48/45     52/06     54/29     55/35
                                           32/10     37/52     40/31     47/11     49/44     52/07     55/17     55/53
                                           33/35     37/55     40/33     47/12     50/49     52/08     55/18     60/33
                                           35/47     37/57     45/09     47/28     50/50     52/09     55/19     60/39
                                           35/48     38/09     45/10     47/29     51/17     52/21     55/20
                                           35/49     38/11     45/16     47/38     51/20     53/01     55/21
                                           37/09     38/12     45/19     48/06     51/39     54/07     55/22
        PB.INSTP       55   FTX            10/30     20/46     23/57     56/01
        PB.KL           3   FTX            26/45     26/46
        PB.TAGL        22   FTX            26/45     26/46
        PB.TAGP        36   FTX            30/24     37/54     38/21     45/21     49/44     51/53     54/16     60/35
                                           31/13     37/55     39/29     46/08     50/49     51/54     54/18
                                           32/11     37/57     39/31     46/10     50/50     51/57     54/23
                                           35/47     38/07     39/33     46/12     51/13     52/06     54/25
                                           35/48     38/11     40/29     46/45     51/17     52/20     54/27
                                           37/11     38/12     40/31     48/08     51/19     52/21     54/29
                                           37/27     38/14     40/33     48/11     51/20     53/04     55/54
                                           37/32     38/16     45/16     48/17     51/49     54/10     56/04
        PIG             0   EXTERNAL*       2/37 X   36/08
        PLI10        1477   PROGRAM*       54/20     54/31 L
        PLI4         1456   PROGRAM*       54/06     54/09 L
        PNX4           14   PROGRAM*        5/23      5/26 L
        POS             0   EXTERNAL*       2/37 X   58/37     59/01     60/56
        P2=KEEP         0   EXTERNAL*       2/47 X   20/01
        P2=PFX         15                  26/30     26/33     32/05     32/07
        P2.ARRP        15                  19/45
        P2.BIASL       30                  15/05     33/18     50/31     54/43     58/55
                                           33/05     33/31     54/42     58/53
        P2.BIASP       24                  14/22     26/15     33/19     52/57     54/55     58/55
                                           16/42     26/18     33/32     53/04     54/57     60/53
                                           21/55     33/06     50/33     54/43     58/35
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        P2.INTRP       12                  19/43     23/38
        P2.ORDL        15                  32/02
        P2.ORDP        54                  54/54
        P2.PFXL         3                  26/29     26/30     32/04     32/05
        P2.SHRTP       14                  20/05     54/48     58/33
        P2.TAGL        20                  20/09     20/11     26/17     32/47     32/52     61/02
        P2.TAGP        54                   6/52     31/13     32/46     34/02     35/10     60/52
                                           26/18     32/01     32/50     34/17     35/14     61/03
        P=PFX          17   FTX            26/33     32/07
        RED             0   EXTERNAL*       2/37 X    5/27
        REGFILE         0   RGFILE         13/13 S   14/40     15/09 S   16/24     17/18 S   21/14     22/17
                                           14/34     15/02     15/20 S   16/47 S   20/50     22/16
        REGLK           0   EXTERNAL*       2/47 X    4/54 S   12/41     12/50 S   27/12     27/21 S
        REG=            0   EXTERNAL*       2/24 X
        REG=G           0   EXTERNAL*       2/37 X   18/30     35/15 S   54/50 S   58/38 S   60/57 S
                                           17/43     35/12 S   44/09 S   55/02 S   59/02 S
        REG=T           0   EXTERNAL*       2/12 X   15/06 S   16/08     16/46 S   17/04
        REG.A          10                  22/17
        REG.B           0                  13/05
        REG.X          20                  14/20     14/29     14/44     15/16     16/31
                                           14/21     14/34     15/02     16/24     23/20
        RGC             0   EXTERNAL*       2/37 X    4/56 S
        RGX             0   EXTERNAL*       2/37 X    4/52 S
        RG=INTR         0   EXTERNAL*       2/47 X    5/07
        RG=LOAD         0   EXTERNAL*       2/47 X    5/07     19/51
        RG=LODX         0   EXTERNAL*       2/47 X    5/07     20/30     21/41
        RG=STOR         0   EXTERNAL*       2/47 X    5/07
        RG=TEMP         0   EXTERNAL*       2/48 X    5/07     21/32
        RG.TYPP        20                  19/33
        RG.USEL        11                  14/35     16/25     18/31
        RLL             0   EXTERNAL*       2/48 X   22/56     23/24     27/20
        RLOCK         400                  20/51     21/10
        RREG            0   EXTERNAL*       2/37 X    7/11 S   10/21     19/35     23/27 S   23/43
        RUL             0   EXTERNAL*       2/48 X   12/45     23/31     27/29
        RUT             0   EXTERNAL*       2/48 X   15/12     15/17     24/53
        RUT.REG       466   PROGRAM*       12/35 S   28/35 L   28/35 E
        R.B6            6                  31/14
        R.X0           20                   4/50
        R.X5           25                   4/50
        R.X6           26                  14/20     14/40     14/44     21/12     23/21
        R.X7           27                  14/29     21/14
        SB=BK       61000                  55/57
        SDS             0   EXTERNAL*       2/48 X   24/12
        SFR             0   EXTERNAL*      21/33
        SK.ARGL        22                  32/44
        SK.ARGP        22                   6/45     32/44
        SK.ENDP        73                  10/22
        SK.JPADL       22                  25/27     25/42
        SK.OPCL        11                   7/24      7/25     10/13     10/39     10/45     10/52
        SK.OPCP        55                   7/25      7/28     10/22
        SK.QFL         14                   7/08      7/27
        SK.TYPL         6                   6/12     10/42
        SK.TYPP        66                   6/11
        SLD             0   EXTERNAL*       2/48 X   19/48     24/05
        SOR          1547   PROGRAM*       45/13     47/15     55/49 L
        SR.NUML         6                   7/35      8/13
        SR.OADL         5                   8/12     28/18
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        STRGLK          0   EXTERNAL*       2/48 X    4/55 S   20/48
        STS             0   EXTERNAL*       2/48 X   21/31     22/43
        SUB.RET        17   PROGRAM*        5/35 L   35/18     44/22     44/42     47/17     57/06     57/26     57/45
                                            5/35 E   44/10     44/27     45/29     47/23     57/16     57/36
        S=AEXIT         0   EXTERNAL*       2/29 X   45/20
        S=BUF           0   EXTERNAL*      54/22
        S=CP            0   EXTERNAL*       2/29 X   38/06     46/11
        S=CPL           0   EXTERNAL*       2/29 X   38/15
        S=ENTRY         0   EXTERNAL*       2/29 X   34/30     45/26
        S=EXIT          0   EXTERNAL*       2/29 X   45/15
        S=FID           0   EXTERNAL*       2/29 X   30/22
        S=FILES         0   EXTERNAL*       2/29 X   54/09
        S=GPL           0   EXTERNAL*       2/30 X   37/56     38/10     46/06
        S=LA            0   EXTERNAL*       2/30 X   60/50
        S=LENP          0   EXTERNAL*       2/30 X   55/51
        S=SA0           0   EXTERNAL*       2/34 X   37/31     38/20     52/05
        S=SA1           0   EXTERNAL*       2/30 X   37/10     51/56
        S=SLI           0   EXTERNAL*      40/32
        S=SPA           0   EXTERNAL*       2/30 X   39/32
        S=SUB           0   EXTERNAL*       2/30 X   48/07
        S=SUBI          0   EXTERNAL*       2/30 X   39/27     48/10
        S=SUB0I         0   EXTERNAL*       2/30 X   40/27     48/16
        S=TA0           0   EXTERNAL*       2/31 X   37/26     38/13
        S=TRACE         0   EXTERNAL*       2/31 X   56/02
        S=UPW           0   EXTERNAL*       2/31 X   51/46     54/05     54/12
        S=VALUE         0   EXTERNAL*       2/31 X   44/29
        TEST            0   FTX             5/11 F    5/39 F    6/36 F    8/16 F   19/21 F
        TH.SKELL       16   FTX            29/51
        TH.SKELP       56   FTX            43/29
        TRACE           0   EXTERNAL*       2/37 X   29/35 S   29/42     32/51
        TYPLOD          0   EXTERNAL*       2/37 X   19/18 S   20/03     21/24     21/45     21/54     22/36
        T=CON           0   EXTERNAL*       2/31 X   47/35
        T=DATS          0   EXTERNAL*       2/31 X   52/18     52/34     52/34 S
        T=ENTP          0   EXTERNAL*       2/31 X   46/28     49/09
        T=FPI           0   EXTERNAL*       2/31 X   46/07
        T=LA            0   EXTERNAL*       2/32 X   60/51
        T=PAR           0   EXTERNAL*       2/32 X   35/53     35/53 S
        T=VDI           0   EXTERNAL*       2/32 X   41/19     43/27
        T=VDIM          0   EXTERNAL*       2/32 X   35/54
        T.DATS          0   EXTERNAL*       2/32 X   52/27
        T.DIM           0   EXTERNAL*       2/32 X   42/03
        T.ENTP          0   EXTERNAL*       2/32 X   39/20     41/38     46/24     48/34     49/48
                                           37/43     40/20     46/16     46/46     48/46
        T.FPI           0   EXTERNAL*       2/32 X   49/31
        T.LA            0   EXTERNAL*       2/32 X   61/05
        T.PAR           0   EXTERNAL*       2/33 X   35/55     35/57     36/12     43/26
        T.SYM           0   EXTERNAL*       2/33 X   34/06     37/35     40/11     44/36     50/30
                                           20/14     34/41     39/11     41/29     49/25
        T.VDI           0   EXTERNAL*       2/33 X   41/18     43/10     43/25
        T.VDIM          0   EXTERNAL*       2/33 X   35/56
        UAP             0   EXTERNAL*       2/21 X   54/52
        UUC             0   EXTERNAL*       2/38 X    8/14 S   18/25 S   19/14 S   22/34 S   24/04 S
                                            5/33 S   18/20 S   18/47 S   21/19     23/18 S   24/36 S
        VD.ALOL         1   FTX            43/41
        VD.ALOP        72   FTX            41/21     43/11     43/41     43/43
        VD.LENL        22   FTX            43/45
        VD.LENP         0   FTX            43/43     43/46
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        VD.PNTL        22   FTX            43/48
        VD.PNTP        22   FTX            43/46
        VS.SBIL        22   FTX             5/32
        VS.SBIP        44   FTX             5/30
        V=BSS           0   EXTERNAL*       2/41 X   29/52
        V=NOOP          0   EXTERNAL*       2/41 X   43/28
        WB.ARYL         1   FTX            41/55
        WB.ARYP        12   FTX            41/55     42/01
        WB.BMEML        1   FTX            20/20
        WB.BMEMP       23   FTX            20/20
        WB.ENTP        15   FTX            34/54     34/56
        WB.EQUP        66   FTX            50/42
        WB.EQVL         1   FTX            20/20
        WB.EQVP        11   FTX            20/20
        WB.FPNOL       11   FTX            49/30
        WB.FPNOP       41   FTX            49/32
        WB.LABP         3   FTX            34/56
        WB.MDFL         1   FTX            44/41
        WB.MDFP        10   FTX            44/41
        WB.PNTL        15   FTX            37/40     39/16     40/16     41/34     41/57
        WB.PNTP        57   FTX            37/41     39/17     40/17     41/35     42/01
        WB.W            1   FTX            20/15     35/07     39/14     41/32     44/37     50/35
                                           34/43     37/38     40/14     42/42     49/28     50/41
        WC.BFLL        22   FTX            50/38
        WC.BFLP         0   FTX            50/40
        WC.CLENL       22   FTX            43/08
        WC.CTYPL        1   FTX            42/43
        WC.CTYPP       35   FTX            42/43
        WC.EGLL        17   FTX            34/07     35/06
        WC.EGLP        36   FTX            34/10     34/12     35/08
        WC.MRLL        22   FTX            51/03     51/16
        WC.MRLP        36   FTX            50/40
        WC.W            2   FTX            34/11     35/07     42/42     50/35     50/41
        WIN             0   EXTERNAL*       2/38 X   35/49     38/12     45/21     48/09     51/54     54/19     55/32
                                           12/18     37/09     38/14     46/05     48/11     51/57     54/25     55/35
                                           15/10     37/11     38/16     46/10     48/15     52/01     54/29     55/56
                                           20/47     37/24     38/19     46/12     48/17     52/06     55/17     56/06
                                           22/29     37/25     38/21     46/23     48/45     52/07     55/18     60/37
                                           24/01     37/27     39/31     46/45     49/44     52/08     55/19     60/41
                                           29/47     37/30     39/33     47/11     50/49     52/09     55/20
                                           30/06     37/32     40/31     47/12     50/50     52/21     55/21
                                           30/19     37/52     40/33     47/28     51/17     53/07     55/22
                                           30/27     37/55     45/09     47/29     51/20     54/07     55/23
                                           33/38     37/57     45/10     47/38     51/39     54/08     55/24
                                           35/47     38/09     45/16     48/06     51/43     54/10     55/25
                                           35/48     38/11     45/19     48/08     51/49     54/18     55/26
        WO.CS           0   EXTERNAL*       2/33 X   33/08 S
        WO.DOOT         0   EXTERNAL*       2/33 X   33/21 S
        WTE             0   EXTERNAL*       2/38 X   52/32
        W=ALENT         0   EXTERNAL*       2/41 X   35/16
        W=DFENT         0   EXTERNAL*       2/41 X   44/28
        W=FUNT          0   EXTERNAL*       2/41 X   45/04
        W=IDV           0   EXTERNAL*       2/41 X   57/15
        W=IMV           0   EXTERNAL*       2/42 X   57/05
        W=MASKV         0   EXTERNAL*       2/42 X   57/25
        W=MFPNT         0   EXTERNAL*       2/42 X   45/07
        W=MODG          0   EXTERNAL*       2/42 X   57/35
1       GEN - (QCG)    QUICK CODE GENERATOR.                          COMPASS 3.7-871.     24/05/02. 13.18.29.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        W=PROM          0   EXTERNAL*       2/42 X   47/16
        W=PROS          0   EXTERNAL*       2/42 X   47/22
        W=SHIFV         0   EXTERNAL*       2/42 X   57/44
        W=TENT          0   EXTERNAL*       2/43 X   44/08
        W=TMENT         0   EXTERNAL*       2/43 X   44/20
        XMT         10000                  10/23     10/57     15/01     16/18     22/26     23/26     23/45
        Z=SYM           3   FTX            34/09     34/44
        Z=TURP          3   FTX            12/52     29/48     51/38     53/16     58/11
                                           24/34     51/25     53/06     55/16     59/23
        .DAL            1   FTX            40/10 F
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      430              IDENT  REC
                        430                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       421 
                                        LITERALS* LOCAL         421         7 
  
  
                                        ENTRY POINTS. 
  
                                        B=REC            0+           WO.57            1+           ADA            302+ 
                                        WO.56            0+           REC              2+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ALC       FBP       CO.LOO    ERRORS    T=BLKS    T=LCA     T.IOI     SMB 
                                        BT.IDNT   FBP.EQ    CO.OPT    F.LBT     T=LA      T=LNT     T.SUB     REL.RTN 
                                        BT.IDN9   POL.EQ    CO.QC     NREXT     T=CLW     T=NLST    T.SUB0    E.MO1 
                                        FAS       POL       CO.SNAP   N.CON     T=CON     T=SUB     T.SYM     E.MO8 
                                        SNR       WLF.EQ    FV.LGO    PASS      T=DIM     T=SUB0    USAVE     CIO=
                                        CLE.EQ    WLF       F.PB      SUM.LBT   T=DATS    T=SYM     WO.LOA    SBM=
                                        ESL.EQ    BST.EQ    TL.CSOP   S=CL      T=FMT     T.API     WO.LOM    TV=CUR
                                        ESL       BST       WNB=      S=CON     T=FPI     T.BLKS    WO.LOO    ALC.PAR 
                                        CLE       DMT=      MAP       S=LA      T=FPO     T.DIM     WO.LOR    TV=END
                                        RADOL1    CO.DBID   PDM       S=VALUE   T=GL      T.FPI     Z.LBT     CGE 
                                        RADOL2    CO.DBPM   BINIO     T=API     T=IOA     T.FPO     BCT 
                                        RADRTN    CO.DBST   COMSIZ    T=APL     T=IOI     T.GL      PCA 
  
  
  
  
                                                  IDENT  REC                                                     REC         2
                                         REC      SECT   (REAR END CONTROLLER.)                                  REC         3
  
  
  
  
  
                                        *         IN ALLOC                                                       REC         5
                                                  EXT    ALC                                                     REC         6
                                                                                                                 REC         7
                                        *         IN FAS                                                         REC         8
                                                  EXT    BT.IDNT,BT.IDN9,FAS,SNR,CLE.EQ,ESL.EQ,ESL,CLE           REC         9
                                                  EXT    RADOL1,RADOL2,RADRTN,FBP,FBP.EQ                         REC        10
                                                  EXT    POL.EQ,POL,WLF.EQ,WLF,BST.EQ,BST                        REC        11
                                                                                                                 REC        12
                                        *         IN RSNAP                                                       REC        13
                                                  EXT    DMT=                                                    REC        14
                                                                                                                 REC        15
                                        *         IN FTN                                                         REC        16
                                                  EXT    CO.DBID,CO.DBPM,CO.DBST,CO.LOO,CO.OPT,CO.QC,CO.SNAP     FC5A262    35
                                                  EXT    FV.LGO,F.PB,TL.CSOP,WNB=                                FC5A262    36
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     2
                                                                      REC 
  
                                                                                                                 REC        20
                                        *         IN MAP                                                         REC        21
                                                  EXT    MAP                                                     REC        22
                                                                                                                 REC        23
                                        *         IN PEM                                                         REC        24
                                                  EXT    PDM                                                     REC        25
                                                                                                                 REC        26
                                        *         IN PUC                                                         REC        27
                                                  EXT    BINIO,COMSIZ,ERRORS,F.LBT,NREXT,N.CON,PASS,SUM.LBT      REC        28
                                                  EXT    S=CL,S=CON,S=LA,S=VALUE,T=API,T=APL,T=BLKS,T=LA         REC        29
                                                  EXT    T=CLW,T=CON,T=DIM,T=DATS,T=FMT,T=FPI,T=FPO,T=GL,T=IOA   REC        30
                                                  EXT    T=IOI,T=LCA,T=LNT,T=NLST,T=SUB,T=SUB0,T=SYM,T.API       REC        31
                                                  EXT    T.BLKS,T.DIM,T.FPI,T.FPO,T.GL,T.IOI,T.SUB,T.SUB0,T.SYM  REC        32
                                                  EXT    USAVE,WO.LOA,WO.LOM,WO.LOO,WO.LOR,Z.LBT                 REC        33
                                                                                                                 REC        34
                                        *         IN QCGC                                                        REC        35
                                                  EXT    BCT,PCA,SMB                                             REC        36
                                                                                                                 REC        37
                                        *         IN QCGLINK                                                     REC        38
                                                  EXT    REL.RTN                                                 REC        39
                                                                                                                 REC        40
                                        *         IN RERRS                                                       REC        41
                                                  EXT    E.MO1,E.MO8                                             FC5A126    40
                                                                                                                 REC        43
                                        *         IN UTILITY                                                     REC        44
                                                  EXT    CIO=,SBM=                                               REC        45
                                                                                                                 REC        46
                                                                                                                 REC        47
             0                     1     WO.56    BSSENT 1           WRITE 5600 TABLE FOR CID/PMD                REC        48
             1                     1     WO.57    BSSENT 1           WRITE 5700 TABLE FOR CID                    REC        49
  
  
  
  
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     3
        COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS.
  
             2                                    CTEXT  COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS.              COMSLBT     2
  
  
  
  
                                        **        IF CALLER DOES NOT DEFINE *LBLK* MACRO, THEN THIS              COMSLBT     4
                                        *         COMDECK DEFINES LOCAL BLOCK NUMBERS.                           COMSLBT     5
                                                                                                                 COMSLBT     6
                                                                                                                 COMSLBT     7
                                         .MAC     IF     -MAC,LBLK                                               COMSLBT     8
                                                                                                                 COMSLBT     9
                                                  MACRO  LBLK,NR,NAM                                             COMSLBT    10
                                         NR       SET    '?LBT#NN                                                COMSLBT    11
                                         '?LBT#NN SET    '?LBT#NN+1                                              COMSLBT    12
                                                  ENDM                                                           COMSLBT    13
                                                                                                                 COMSLBT    14
                                   0     '?LBT#NN SET                                                            COMSLBT    15
                                                                                                                 COMSLBT    16
                                         .MAC     ENDIF                                                          COMSLBT    17
  
  
  
  
                                         BN=STRT  LBLK   START.                                                  COMSLBT    19
                                         BN=CODE  LBLK   CODE.                                                   COMSLBT    20
                                         BN=CON   LBLK   LITERL.                                                 COMSLBT    21
                                         BN=FMT   LBLK   FORMAT.                                                 COMSLBT    22
                                         BN=TEM   LBLK   TEMPS.                                                  COMSLBT    23
                                         BN=APL   LBLK   APLST.                                                  COMSLBT    24
                                         BN=IOAP  LBLK   IOAPL.                                                  COMSLBT    25
                                         BN=NLST  LBLK   NAMLST.                                                 COMSLBT    26
                                         BN=VAR   LBLK   VARS.                                                   COMSLBT    27
                                         BN=SUB   LBLK   SUB.                                                    COMSLBT    28
                                         BN=SUB0  LBLK   SUB0.                                                   COMSLBT    29
                                         BN=BUF   LBLK   BUFER.                                                  COMSLBT    30
                                                                                                                 COMSLBT    31
                                                  PURGMAC LBLK                                                   COMSLBT    32
                                                                                                                 COMSLBT    33
                                                                                                                 COMSLBT    34
                                                  ENDX                                                           COMSLBT    35
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     4
                                                                      REC 
  
                                        **        REC - REAR END CONTROLLER.                                     REC        54
                                        *                                                                        REC        55
                                        *         ENTRY  FROM INIT23                                             REC        56
                                        *                                                                        REC        57
                                        *         EXIT   TO REAR END LOADER                                      REC        58
                                                                                                                 REC        59
                                                                                                                 REC        60
             2                           REC      BSSENT 0           ...ENTRY                                    REC        61
             2  0100000000 X                      CALL   CGE         CHECK ON ERRORS FROM (2,2) OVERLAY          REC        62
             3  0100000071 +                      RJ     REP         REAR END PRESETS                            REC        63
             4  7170000003                        =X7    PASS=END                                                REC        64
                          5170000000 X            SA7    PASS                                                    REC        65
             5  5110000000 X                      SA1    =XTV=END                                                FC5A128   329
                          76700                   SX7    B0                                                      FC5A128   330
             6  5170000000 X                      SA7    =XALC.PAR                                               FC5A128   331
                          10711                   BX7    X1                                                      FC5A128   332
             7  5170000000 X                      SA7    =XTV=CUR    SET CURRENT PHASE TO END (FOR ALLOC)        FC5A128   333
                          0100000107 +            RJ     END         PERFORM STORAGE ALLOCATION                  REC        66
                                                                                                                 REC        67
                                         .T       IFEQ   TEST,ON                                                 REC        68
                                                  SA1    CO.SNAP                                                 REC        69
                                                  LX1    1RE                                                     REC        70
                                                  PL     X1,REC02S   IF (SNAP=E) NOT SELECTED                    REC        71
                                         SNAP=E   DUMPT  (SYM)                                                   REC        72
                                         REC02S   BSS                                                            REC        73
                                         .T       ENDIF                                                          REC        74
                                                                                                                 REC        75
                                        *         OUTPUT REFERENCE MAP.                                          REC        76
                                                                                                                 REC        77
            10  5110000000 X                      SA1    WO.LOA                                                  REC        78
                          5120000000 X            SA2    WO.LOM                                                  REC        79
            11  5130000000 X                      SA3    WO.LOR                                                  REC        80
                          12112                   BX1    X1+X2                                                   REC        81
                               12113              BX1    X1+X3                                                   REC        82
            12  0301000013 +                      ZR     X1,REC20    IF NO ATTRIBUTES, MAP OR REFERENCE          REC        83
                          0100000000 X            CALL   MAP                                                     REC        84
                                                                                                                 REC        85
                                        *         PERFORM ASSEMBLY.                                              REC        86
                                                                                                                 REC        87
            13  0100000000 X             REC20    CALL   BCT         CONVERT CONSTANT TABLE                      REC        88
            14  0100000000 X                      CALL   PCA         CONVERT CONSTANTS IN T.CAC                  REC        89
            15  5120000000 X                      SA2    FV.LGO                                                  REC        90
                          5130000000 X            SA3    CO.LOO                                                  FC5A262    37
            16  10633                             BX6    X3                                                      REC        92
                     5160000000 X                 SA6    WO.LOO      INITIALIZE WORKING OLIST FLAG               REC        93
            17  5110000000 X                      SA1    CO.QC                                                   REC        94
                          12623                   BX6    X2+X3                                                   REC        95
            20  0331000060 +                      MI     X1,REC60    IF QC MODE, SKIP ASSEMBLY                   REC        96
                          0306000060 +            ZR     X6,REC60    IF NEITHER OL NOR BINARY REQUESTED          REC        97
            21  7170000005                        =X7    PASS=FAS                                                REC        98
                          5170000000 X            SA7    PASS        SET PASS TO ASSEMBLY                        REC        99
            22  0312000027 +                      NZ     X2,REC30    IF BINARY REQUESTED                         REC       100
                          7160000000 X            PLUG   AT=WLF.EQ,TO=WLF,VOID=NO      TURN OFF WRITING OF LGO   REC       101
                          7160000000 X            PLUG   AT=BST.EQ,TO=BST,VOID=NO      TURN OFF WRITING OF *SUB* REC       102
            27  0313000040 +             REC30    NZ     X3,REC40    IF OBJECT LISTING REQUESTED                 REC       103
                          7160000000 X            PLUG   AT=POL.EQ,TO=POL,VOID=NO      TURN OFF OBJECT LISTING   REC       104
                          7160000000 X            PLUG   AT=RADOL1,TO=RADRTN,VOID=NO                             REC       105
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     5
                                                                      REC 
  
                          7160000000 X            PLUG   AT=RADOL2,TO=RADRTN,VOID=NO                             REC       106
                          7160000000 X            PLUG   AT=FBP.EQ,TO=FBP,VOID=NO                                REC       107
                                                                                                                 REC       108
            40  5140000001 +             REC40    SA4    WO.57                                                   REC       109
                          0314000045 +            NZ     X4,REC50    IF 57 TABLE REQUESTED                       REC       110
            41  7160000000 X                      PLUG   AT=CLE.EQ,TO=CLE,VOID=NO                                REC       111
            43  7160000000 X                      PLUG   AT=ESL.EQ,TO=ESL,VOID=NO                                REC       112
                                                                                                                 REC       113
            45                           REC50    BSS    0                                                       REC       114
            45  0100000342 +                      RJ     MER         MARK EXTERNAL RELOCATION                    REC       123
            46  5170000000 X                      SA7    NREXT                                                   REC       124
                          5110000000 X            SA1    ERRORS                                                  FC5A262    38
            47  0311000057 +                      NZ     X1,REC59    IF FATAL ERRORS                             REC       126
                                         .RM      IFNE   CP#RM,0                                                 REC       127
                                                  RECALL F.PB                                                    FC5A262    39
                                                  READ   F.PB                                                    FC5A262    40
                                                                                                                 REC       130
                                         .RM      ELSE                                                           REC       131
                          7120000000 X            RECALL F.PB                                                    FC5A262    41
            51  5110000000 X                      SA1    BINIO                                                   REC       132
                          0331000055 +            MI     X1,REC55    IF CCG OR PHYSICAL I/O HAS OCCURED          REC       133
            52  5110000000 X                      SA1    F.PB+I.FET  X1 = CODE/STATUS WORD                       REC       134
                          43652                   MX6    -18                                                     FC5A130     5
                               11161              BX1    X6*X1       ERASE OLD CODE/STATUS                       REC       136
            53  7160000023                        SX6    23B                                                     REC       137
                          12616                   BX6    X1+X6       SIMULATE REWIND,RECALL,READ                 REC       138
                               54610              SA6    A1          UPDATE THE FET                              REC       139
            54  0400000057 +                      EQ     REC59                                                   REC       140
                                                                                                                 REC       141
            55                           REC55    BSS    0                                                       REC       142
            55  7120000000 X                      READ   F.PB                                                    FC5A262    42
                                         .RM      ENDIF                                                          REC       145
                                                                                                                 REC       146
            57  0100000000 X             REC59    CALL   FAS         PERFORM ASSEMBLY                            REC       147
                                                                                                                 REC       148
                                        *         TRASH TABLES NO LONGER REQUIRED.                               REC       149
                                                                                                                 REC       150
            60  13666                    REC60    SHRINK T=CON                                                   REC       151
            61  5160000000 X                      SHRINK T=FMT,X6                                                REC       152
                          5160000000 X            SHRINK T=NLST,X6                                               REC       153
            62  5160000000 X                      SHRINK T=GL,X6                                                 REC       154
                          5160000000 X            SHRINK T=APL,X6                                                REC       155
            63  5160000000 X                      SHRINK T=API,X6                                                REC       156
                          5160000000 X            SHRINK T=LCA,X6                                                REC       157
            64  5160000000 X                      SHRINK T=IOA,X6                                                REC       158
                          5160000000 X            SHRINK T=IOI,X6                                                REC       159
            65  5160000000 X                      SHRINK T=DATS,X6                                               REC       160
                          5160000000 X            SHRINK T=FPI,X6                                                REC       161
            66  5160000000 X                      SHRINK T=FPO,X6                                                REC       162
                          5160000000 X            SHRINK T=SUB,X6                                                REC       163
            67  13666                             SHRINK T=SUB0                                                  REC       164
            70  5160000000 X                      SHRINK T=LNT,X6                                                REC       165
                          0400000000 X            EQ     REL.RTN     TRANSFER TO REAR END LOADER...              REC       166
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     6
                                                                      REP 
  
                                        **        REP - REAR END PRESETS.                                        REC       168
                                        *                                                                        REC       169
                                        *         SET UP CELLS FOR REAR END.                                     REC       170
                                                                                                                 REC       171
                                                                                                                 REC       172
            71  0400400071 +             REP      SUBR   0           ENTRY/EXIT...                               REC       173
            72  5110000000 X                      SA1    TL.CSOP                                                 REC       174
                          54211                   SA2    A1+B1                                                   REC       175
                               10611              BX6    X1          SET C.C. OPTIONS INTO 77-TABLE              REC       176
            73  5130000000 X                      SA3    CO.DBST                                                 REC       177
                          5140000000 X            SA4    CO.DBID                                                 REC       178
            74  12334                             BX3    X3+X4                                                   REC       179
                     22702                        LX7    X2                                                      REC       180
                          7150000000 X            SX5    BT.IDN9                                                 REC       181
            75  5265000000 X                      SA6    X5+BT.IDNT                                              REC       182
                          54121                   =A1    A2+1        (TL.CSOP+3)                                 FC51002     5
                               54761              =A7    A6+1                                                    REC       183
            76  5120000421 +                      SA2    =7R                                                     FC51002     6
                          43022                   MX0    18                                                      FC51002     7
                               11601              BX6    X0*X1                                                   FC51002     8
            77  12662                             BX6    X6+X2                                                   FC51002     9
                     54671                        =A6    A7+1                                                    FC51002    10
                          5150000000 X            SA5    CO.DBPM                                                 REC       184
           100  12635                             BX6    X3+X5                                                   REC       185
                     10733                        BX7    X3                                                      REC       186
                          5160000000 +            SA6    WO.56       (WO.56) = (CO.DBST).O.(CO.DBID).O.(CO.DBPM) REC       187
           101  5170000001 +                      SA7    WO.57       (WO.57) = (CO.DBID) OR (CO.DBST)            REC       188
                          5110000000 X            SA1    BINIO                                                   REC       189
           102  0321000071 +                      PL     X1,EXIT.    IF NOT CCG AND NO PHYSICAL I/O HAS OCCURED  REC       190
                          5110000000 X            SA1    FV.LGO                                                  FC50616    20
           103  5120000000 X                      SA2    CO.LOO                                                  FC50616    21
                          12112                   BX1    X1+X2                                                   FC50616    22
           104  0301000071 +                      ZR     X1,EXIT.    IF B=0 AND LO=-O                            FC50616    23
                          7120000000 X            REWIND F.PB                                                    REC       191
           106  0400000071 +                      EQ     EXIT.       EXIT...                                     REC       192
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     7
        RELOCATE SYMBOL TABLES.                                       END 
  
                                        ***       END - RELOCATE SYMBOL TABLES.                                  REC       195
                                        *                                                                        REC       196
                                        *         ASSIGNS ALL ADDRESSES THAT ARE NOT YET KNOWN, RESERVING        REC       197
                                        *                STORAGE WHERE NECESSARY.                                REC       198
                                        *         ANY "VAR"S IN THE SYMTAB WHICH DO NOT YET HAVE AN              REC       199
                                        *         ADDRESS WILL BE ASSIGNED SPACE IN (BN=VAR).                    REC       200
                                                                                                                 REC       201
                                                                                                                 REC       202
           107  0400400107 +             END      SUBR   0           ENTRY/EXIT...                               REC       203
                                                                                                                 REC       204
                                                                                                                 REC       205
                                        **        THE FOLLOWING CODE SOLVES THE VALUE. STORAGE ALLOCATION        REC       206
                                        *         PROBLEM BY SEARCHING THE LIST OF VALUE. SYMBOLS IN REVERSE     REC       207
                                        *         ORDER AND ASSIGNING THE BASE MEMBER THE TYPE OF THE FIRST      REC       208
                                        *         ONE WHICH HAS WB.DEF SET. IF NONE OF THEM ARE DEFINED, A       REC       209
                                        *         ZERO WILL BE STORED AT S=VALUE                                 REC       210
                                                                                                                 REC       211
                                                                                                                 REC       212
           110  5110000000 X                      SA1    S=VALUE                                                 REC       213
                          63210                   SB2    X1                                                      REC       214
                               20101              LX1    1                                                       REC       215
           111  63212                             SB2    X1+B2       CONVERT TO INDEX                            REC       216
                     5120000000 X                 SA2    T.SYM                                                   REC       217
           112  6122000001                        SB2    B2+WB.W                                                 REC       218
                          63722                   SB7    X2+B2       SAVE ADDRESS OF BASE MEMBER                 REC       219
           113  6122000025                        SB2    B2+Z=SYM*N.TYPE                                         REC       220
                          53222                   SA2    X2+B2       INITIALIZE FETCH REG                        REC       221
           114  7170000006                        SX7    M.CHAR                                                  REC       222
                                                                                                                 REC       223
           115  5022777774               END1A    SA2    A2-Z=SYM                                                REC       224
                          20264                   SBIT   X2,WB.DEFP                                              FC50252    18
           116  0332000121 +                      MI     X2,END1B    IF A VALUE. IS DEFINED                      FC50252    19
                          7277777776              =X7    X7-1                                                    REC       226
           117  0327000115 +                      PL     X7,END1A    IF NOT DONE                                 REC       227
                                                                                                                 REC       228
                                        **        HERE IF NO VALUE. HAS BEEN DEFINED                             REC       229
                                                                                                                 REC       230
                          43600                   MX6    0                                                       REC       231
                               54610              SA6    A1                                                      REC       232
           120  0400000123 +                      EQ     END1C                                                   REC       233
                                                                                                                 REC       234
                                         END1B    LX7    WB.MODEP    POSITION NEW MODE                           REC       235
           121  43071                             MX0    -WB.MODEL                                               REC       236
                                                  LX0    WB.MODEP                                                REC       237
                     56270                        SA2    B7          *WB* OF BASE MEMBER                         REC       238
                          11202                   BX2    X0*X2       ERASE PREVIOUS MODE                         REC       239
                               12627              BX6    X2+X7       FILL IN NEW MODE                            REC       240
           122  54620                             SA6    A2          UPDATE *WB*                                 REC       241
                                                                                                                 REC       242
           123                           END1C    BSS    0                                                       REC       243
                                                                                                                 REC       244
                                                                                                                 REC       245
                                        **        PART 1 - COMPLETE LOCAL BLOCK LENGTHS.                         REC       246
                                        *                TBLN [LBT(BN=FMT)] = (T=FMT)                            REC       247
                                        *                TBLN [LBT(BN=CON)] = (T=CON)                            FC5A262    43
                                        *                TBLN [LBT(BN=APL)] = (T=APL) + (T=LCA)-1                REC       249
                                        *                TBLN [LBT(BN=IOAP)] = (T=IOA)/2 + (T=CLW)/2             REC       250
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     8
        RELOCATE SYMBOL TABLES.                                       END 
  
                                        *                WC.RA [S=CHAR] = (T=CON)                                REC       251
                                        *                WC.RA [S=CL]   = (T=IOAP)/2                             REC       252
                                                                                                                 REC       253
                                                                                                                 REC       254
           123  5110000000 X                      SA1    T=FMT                                                   REC       255
                          5140000003 X            SA4    F.LBT+BN=FMT                                            FC5A262    44
           124  43200                             MX2    0                                                       REC       257
                     0100000312 +                 RJ     GBS         RESERVE FORMAT BLOCK                        REC       258
           125  5130000000 X                      SA3    CO.OPT                                                  REC       259
                          5110000000 X            SA1    T=LA                                                    REC       260
           126  0313000130 +                      NZ     X3,END1     IF NOT QUICK CODE GENERATOR                 REC       261
                          5120000000 X            SA2    S=LA                                                    REC       262
           127  0100000312 +                      RJ     GBS         GENERATE SPACE FOR (LA.)                    REC       263
                                                                                                                 REC       264
           130  5044777776               END1     SA4    A4-BN=FMT+BN=CON  GENERATE (BN=CON)                     REC       265
                          5110000000 X            SA1    =XN.CON                                                 REC       266
           131  5120000000 X                      SA2    S=CON                                                   REC       267
                          0100000312 +            RJ     GBS         GENERATE SPACE FOR (CON.)                   REC       268
                                                                                                                 REC       269
           132  5044000003                        SA4    A4-BN=CON+BN=APL        GENERATE (BN=APL)               REC       270
                          5120000000 X            SA2    T=LCA                                                   REC       271
           133  5110000000 X                      SA1    T=APL                                                   REC       272
                          7272777776              SX7    X2-1                                                    REC       273
           134  43200                             MX2    0                                                       REC       274
                     36117                        IX1    X1+X7       LENGTH = T=APL + T=LCA - 1                  REC       275
                          0100000312 +            RJ     GBS                                                     REC       276
           135  5110000000 X                      SA1    T=IOA                                                   FC5A262    45
                          5044000001              SA4    A4-BN=APL+BN=IOAP       GENERATE (BN=IOAP)              REC       279
           136  21101                             AX1    1           IOLEN = T=IOA / Z=IOA                       REC       280
                                   0              ERRNZ  2-Z=IOA                                                 REC       281
                     43200                        MX2    0                                                       REC       282
                          0100000312 +            RJ     GBS         COUNT SPACE FOR IO APLS                     REC       283
           137  5110000000 X                      SA1    T=CLW                                                   REC       284
                          5120000000 X            SA2    S=CL                                                    REC       285
           140  21101                             AX1    1           CLLEN = T=CLW / Z=CLW                       REC       286
                                   0              ERRNZ  2-Z=CLW                                                 REC       287
                     0100000312 +                 RJ     GBS         DEFINE SPACE FOR (CL.)                      REC       288
                                                                                                                 REC       289
                                                                                                                 REC       290
                                        **        PART 2 - PROCESS NAMELISTS.                                    REC       291
                                        *         FOR ALL REFERENCED NAMELIST GROUP NAMES, SET                   REC       292
                                        *         RL[WCI] = ML.PROG,                                             REC       293
                                        *         RB[WCI] = BN=NLST,                                             REC       294
                                        *         RA[WCI] = SUMMED LENGTH OF (I-1) GROUP DEFINITION APLISTS.     REC       295
                                                                                                                 REC       296
                                                                                                                 REC       297
                                         .T       IFEQ   TEST,ON                                                 REC       298
                                                  SA1    F.LBT+BN=NLST                                           REC       299
                                                  NZ     X1,"BLOWUP" IF SPURIOUS USE OF  *NAMLST.*  BLOCK        REC       300
                                         .T       ENDIF                                                          REC       301
                                                                                                                 REC       302
           141  13777                             BX7    0           (X7) = RA = ACCUM LENGTH  *NAMLST.*  BLOCK  REC       303
                     43400                        MX4    0                                                       REC       304
                          0100000302 +            RJ     ADA         ASSIGN BLOCK-REL RUN-TIME DIMTAB ADDRESSES  REC       305
           142  66200                             =B2    0           (B2) = *****                                REC       306
                     66300                        =B3    0           (B3) = *****                                REC       307
                                                                                                                 REC       308
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE     9
        RELOCATE SYMBOL TABLES.                                       END 
  
                                        *         PROCESS A NAMELIST GROUP.                                      REC       309
                                                                                                                 REC       310
           143  66332                    END2     SB3    B3+B2       ADVANCE TO NEXT GROUP                       REC       311
                     66200                        =B2    0                                                       REC       312
                          0100000000 X            CALL   SNR         SET NAMELIST REGISTERS                      REC       313
           144  0730000151 +                      MI     B3,END4     IF NO MORE GROUPS                           REC       314
                                                                                                                 REC       315
                                        *         SET RA,RL,RB IN T.SYM WORD C FOR GROUP-NAME.                   REC       316
                                                                                                                 REC       317
                          54111                   =A1    A1+WC.W-WB.W                                            REC       318
                                                                                                                 REC       319
                                         .T       IFEQ   TEST,ON                                                 REC       320
                                                  CLAS=  X3,WC,(RLRB,RA)                                         REC       321
                                                  BX6    X3*X1                                                   REC       322
                                                  NZ     X6,"BLOWUP" IF TRASH IN WORD C                          REC       323
                                         .T       ENDIF                                                          REC       324
                                                                                                                 REC       325
                                   0              ERRNZ  WC.RAP                                                  REC       326
                               12317              BX3    X1+X7                                                   REC       327
           145  5120000300 +                      SA2    ENDA        SKELETON  *RL=PROG, RB=(BN=NLST)*           REC       328
                          36632                   IX6    X3+X2                                                   REC       329
                               54610              SA6    A1          RA,RL,RB TO WORD C                          REC       330
           146  76144                             SX1    B4+B4                                                   REC       331
                     73211                        =X2    X1+1                                                    REC       332
                          36772                   IX7    X7+X2       RA = RA + 2*NMEM + 1 (FOR GROUP HDR)        REC       333
           147  0420000143 +                      ZR     B2,END2     IF NO MEMBERS                               REC       334
                          76141                   =X1    B4+1        GROUP LEN (IN T.NLST) = (NR MEM - 1)/4 + 1  REC       335
                               21102              AX1    2                                                       REC       336
           150  63211                             =B2    X1+1                                                    REC       337
                     0400000143 +                 EQ     END2        LOOP FOR NEXT GROUP                         REC       338
                                                                                                                 REC       339
                                        *         HERE WHEN ALL GROUPS PROCESSED.                                REC       340
                                                                                                                 REC       341
           151  5170000007 X             END4     SA7    F.LBT+BN=NLST     DEFINE LENGTH OF  *NAMLST.*  BLOCK    REC       342
                                                                                                                 REC       343
                                                                                                                 REC       344
                                                                                                                 REC       345
                                                                                                                 REC       346
                                        **        PART 3 - PROCESS FORMAT LABELS.                                REC       347
                                        *         FOR ALL FORMAT LABELS, SET                                     REC       348
                                        *         RL[WCI] = ML.PROG,                                             REC       349
                                        *         RB[WCI] = BN=FMT                                               REC       350
                                        *         RA[WCI] = RA[WCI] + 1                                          REC       351
                                                                                                                 REC       352
                                                                                                                 REC       353
                          5120000000 X            SA2    T=SYM                                                   REC       354
           152  5110000000 X                      SA1    T.SYM                                                   REC       355
                          5140000422 +            CLAS=  X4,WC,(RLRB)                                            REC       356
           153  5150000423 +                      CLAS=  X5,WB,(LAB,FDEF)                                        REC       357
                          63720                   SB7    X2          LENSYM = LEN(T.SYM)                         REC       358
                               53311              =A3    X1+WB.W     WBA = FWA(T.SYM)                            REC       359
           154  5120000301 +                      SA2    ENDB        SKELETON  *RL=PROG, RB=(BN=FMT)*            REC       360
                          6130000003              =B3    Z=SYM                                                   REC       361
           155  7100000001                        SX0    1                                                       REC       362
                                                  LX0    WC.RAP                                                  REC       363
                                                                                                                 FC50252    20
           156  54333                    END10    SA3    A3+B3       WBA = WBA + Z=SYM, WBI = (WBA)              REC       364
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    10
        RELOCATE SYMBOL TABLES.                                       END 
  
                     67773                        SB7    B7-B3       LENSYM = LENSYM - Z=SYM                     REC       365
                          0470000162 +            ZR     B7,END15    IF END OF T.SYM                             REC       366
           157  11653                             BX6    X5*X3                                                   REC       367
                     37765                        IX7    X6-X5                                                   REC       368
                          0317000156 +            NZ     X7,END10    IF NOT FORMAT LABEL                         REC       369
           160  54131                             =A1    A3-WB.W+WC.W      WCI                                   REC       370
                     15714                        BX7    -X4*X1      CLEAR (RLRB) FIELD                          REC       371
                          36772                   IX7    X7+X2                                                   REC       372
                               36770              IX7    X7+X0       RA[WCI] = RA[WCI] + 1                       REC       373
           161  54710                             SA7    A1          (RL,RB,RA)[WCI] = (ML.PROG,BN=FMT,RA+1)[WC. REC       374
                     0400000156 +                 EQ     END10                                                   REC       375
                                                                                                                 REC       376
                                                                                                                 REC       377
                                        **        PART 5 - ASSIGN ADDRESSES TO LOCAL SYMBOLS.                    REC       378
                                                                                                                 REC       379
                                                                                                                 REC       380
           162                           END15    BSS                                                            REC       381
           162  0100000000 X                      RJ     SMB         SET MAT BIT                                 REC       382
           163  0100000365 +                      RJ     SSA         SET SYMBOL ADDRESSES                        REC       383
                                                                                                                 REC       384
                                                                                                                 REC       385
                                        **        PART 6 - COMPUTE LENGTH OF SUB AND SUB0 BLOCK.                 REC       386
                                        *                FOR EACH FORMAL PARAMETER, RELOCATE ITS NUMBER OF SUB   REC       387
                                        *                REFERENCES (LEN[FP.], SUB0[FP.] OF T.FPI ENTRY )        REC       388
                                        *                RELATIVE TO THE SUB AND SUB0 BLOCK.                     REC       389
                                        *         AN T.FPO ENTRY IS MADE ALSO FOR EACH F.P.S, FORMATTED AS FP. . REC       390
                                                                                                                 REC       391
                                                                                                                 REC       392
           164  5140000000 X                      SA4    T=FPI                                                   REC       393
                          0304000214 +            ZR     X4,END60    IF NO FORMAL PARAMETERS                     REC       394
           165  5110000000 X                      ALLOC  T.FPO,X4                                                REC       395
           167  63210                             SB2    X1                                                      REC       396
                     63740                        SB7    X4          FPLEN = (T=FPI)                             REC       397
                          5130000000 X            SA3    T.FPI                                                   FC50252    21
           170  43400                             MX4    0           LENSUB = 0                                  REC       399
                     43500                        MX5    0           SUB0LEN = 0                                 REC       400
                          66300                   SB3    B0          IND = 0                                     REC       401
                               63430              SB4    X3                                                      REC       402
           171  66511                             =B5    2                                                       REC       403
                     43056                        MX0    -FP.SUBL                                                REC       404
                                                                                                                 FC50252    22
           172  0470000203 +             END45    ZR     B7,END50    IF END OF T.FPI                             REC       406
                          56343                   SA3    B4+B3       FPI = T.FPI(IND)                            REC       407
           173  5110000424 +                      CLAS=  X1,FP,(CA,SUB,SUB0)                                     FC50252    23
                          10644                   BX6    X4                                                      REC       409
                               15731              BX7    -X1*X3      CLEAR (SUB,SUB0) FIELDS                     REC       410
           174  20522                             LX5    FP.SUB0P                                                REC       411
                     20644                        LX6    FP.SUBP                                                 REC       412
                          12656                   BX6    X5+X6                                                   REC       413
                               20552              LX5    -FP.SUB0P   RESTORE (X5)                                REC       414
           175  67771                             SB7    B7-B1       FPLEN = FPLEN - 1                           REC       418
                     20330                        LX3    -FP.LENP                                                REC       419
                                   0              ERRNZ  FP.LENP-FP.SUBP                                         REC       420
                          15130                   BX1    -X0*X3      LENI = LEN[FPI]                             REC       421
                               20322              LX3    FP.LENP-FP.SUB0P                                        REC       423
           176  43252                             MX2    -FP.SUB0L                                               FC50252    24
                     15330                        BX3    -X0*X3      SUB0I = SUB0[FPI]                           REC       424
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    11
        RELOCATE SYMBOL TABLES.                                       END 
  
                          12776                   BX7    X7+X6                                                   REC       425
                               56623              SA6    B2+B3       [T.FPO(IND)] = (LENSUB,LENSUB0)[FP.]        REC       426
           177  54730                             SA7    A3          [FPI]  = (LENSUB,LENSUB0) [FP.]             REC       427
                     66331                        SB3    B3+B1       IND = IND + 1                               REC       428
                          0301000201 +            ZR     X1,END48    IF LENI .EQ. 0                              REC       429
           200  36441                             IX4    X4+X1       LENSUB = LENSUB + LENI                      REC       430
                     73441                        SX4    X4+B1       ALLOW FOR 0 TERMINATOR WORD                 REC       431
                                                                                                                 FC50252    25
           201  0303000172 +             END48    ZR     X3,END45    IF SUB0I .EQ. 0                             REC       432
                          36553                   IX5    X5+X3       LENSUB0 = LENSUB0 + SUB0I                   REC       433
                               73555              SX5    X5+B5       ALLOW FOR TERMINATOR AND HEADER WORD        REC       434
           202  0400000172 +                      EQ     END45                                                   REC       435
                                                                                                                 REC       436
           203  10644                    END50    BX6    X4                                                      REC       437
                     10755                        BX7    X5                                                      REC       438
                          73060                   SX0    X6                                                      REC       439
                                                  LX6    LB.TBLNP                                                REC       440
                                                  LX7    LB.TBLNP                                                REC       441
           204  5160000011 X                      SA6    F.LBT+BN=SUB      TBLN[T.LBT(BN=SUB )] = LENSUB         REC       442
                          5170000012 X            SA7    F.LBT+BN=SUB0     TBLN[T.LBT(BN=SUB0)] = LENSUB0        REC       443
           205  5130000000 X                      SA3    FV.LGO                                                  FC5A262    46
                          0303000214 +            ZR     X3,END60    IF NO BINARY                                REC       445
           206  0304000212 +                      ZR     X4,END55    IF LENSUB .EQ. 0                            REC       446
                          5110000000 X            ALLOC  T.SUB,X0  ALLOCATE SPACE FOR T.SUB                      REC       447
           210  43674                             MX6    60                                                      REC       448
                     53610                        SETMEM X1,X2,X6    INITIALIZE TO -0                            REC       449
                                                                                                                 FC5A128   334
           212                           END55    BSS    0                                                       FC5A128   335
           212  76600                             SHRINK T=SUB0,0                                                FC5A197     5
                                         #MD      IFNE   .DAL,0,1                                                FC5A128   336
           213  0100000330 +                      RJ     ISZ         INITIALIZE SUB0 TABLE                       FC5A128   337
                                                                                                                 REC       453
                                                                                                                 REC       454
                                        **        PART 7 - PROCESS LOCAL BLOCK TABLES.                           REC       455
                                        *         CONVERT BASE LENGTH IN LOCAL BLOCK TABLE INTO PROGRAM          REC       456
                                        *         RELOCATABLE ADDRESS  (ORG).                                    REC       457
                                        *         ALSO,  SET BLEN[LBT] = TBLN[LBT].                              REC       458
                                                                                                                 REC       459
                                                                                                                 REC       460
           214                           END60    BSS    0                                                       REC       461
           214  5120777776 X                      =A2    F.LBT-1     LBTA = F.LBT-1  (PRE-FETCH)                 REC       462
                          6120000000 X            SB2    Z.LBT       LENLBT = LENGTH OF LOCAL BLOCK TABLE        FC5A262    47
           215  76600                             =X6    0           ORG = 0                                     REC       464
                     43052                        MX0    -LB.BLENL                                               REC       465
                          5110000000 X            SA1    ERRORS                                                  FC5A174    17
           216  0311000225 +                      NZ     X1,END90    IF FATAL ERRORS                             FC5A174    18
                                                                                                                 REC       466
           217  54221                    END70    SA2    A2+B1       LBTA= LBTA+1,  LBTI = (LBTA)                REC       467
                     7150000003                   SX5    3           INITIALIZE PARCEL COUNT = 3                 REC       468
                               10722              BX7    X2                                                      REC       469
                                                  LX2    -LB.TBLNP                                               REC       470
                                                  HX7    LB.PARC                                                 REC       471
           220  21766                             AX7    -LB.PARCL   PARCNT = PARC[LBTI]                         REC       472
                     66300                        =B3    0           ROUNDUP = 0                                 REC       473
                          0307000222 +            ZR     X7,END80    IF PARCNT  EQ  0 (NO NEED TO ROUND UP)      REC       474
           221  66310                             SB3    B1          ROUNDUP = 1                                 REC       475
                                                                                                                 FC50252    26
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    12
        RELOCATE SYMBOL TABLES.                                       END 
  
           222  15220                    END80    BX2    -X0*X2      TBLNI= TBLN[LBTI]                           REC       476
                     10766                        BX7    X6                                                      REC       477
                                                  LX7    LB.ORGP                                                 REC       478
                          73223                   SX2    X2+B3       BLENI = TBLNI + ROUNDUP                     REC       479
                               67221              SB2    B2-B1       LENLBT = LENLBT - 1                         REC       480
           223  20566                             LX5    LB.PARCP                                                REC       481
                     36662                        IX6    X6+X2       ORG = ORG + BLENI                           REC       482
                          20222                   LX2    LB.BLENP                                                REC       483
                               12775              BX7    X7+X5                                                   REC       484
           224  12772                             BX7    X7+X2                                                   REC       485
                     54720                        SA7    A2          (BLEN,ORG) [LBTI] = (TBLNI,ORG) [LB.]       REC       486
                          0520000217 +            NZ     B2,END70    IF LENLBT  NE  0                            REC       487
                                                                                                                 REC       488
           225  5160000000 X             END90    SA6    SUM.LBT     PROGRAM UNIT LENGTH = ORG                   FC5A262    48
                                                                                                                 REC       490
                                                                                                                 REC       491
                                        **        PART 8 - RELOCATE SYMBOL TABLE FOR ALL LOCAL BLOCKS.           REC       492
                                        *                                                                        REC       493
                                        *         IF  RL = ML.PROG,                                              REC       494
                                        *         RELOCATE THIS ENTRY, SETTING..                                 REC       495
                                        *         RA[WC] = RA[WC] + ORG [LBT( RB[WB] )],                         REC       496
                                        *         RB[WC] = 0                                                     REC       497
                                                                                                                 REC       498
                                                                                                                 REC       499
                          5110000000 X            SA1    T.SYM                                                   FC5A262    49
           226  6130000003                        =B3    Z=SYM                                                   REC       501
                          5120000000 X            SA2    T=SYM                                                   FC5A262    50
           227  5231000002                        SA3    X1+WC.W     WCA = (T.SYM)+WC.W                          REC       503
                          6272777774              SB7    X2-Z=SYM    LENSYM = (T=SYM) - Z=SYM                    REC       504
           230  6140000000 X                      SB4    F.LBT                                                   FC5A262    51
                          43072                   MX0    -WC.RLL                                                 REC       506
                               43762              MX7    -WC.RBL                                                 REC       507
                                                                                                                 REC       508
                                        *         B3  =  LENGTH OF SYMBOL TABLE ENTRY                            REC       509
                                        *         B4  =  BASE ADDRESS OF LBT                                     REC       510
                                        *         B7  =  SYMTAB LENGTH                                           REC       511
                                        *         X0  =  MASK FOR (WC.RL)                                        REC       512
                                        *         A3  =  ADDRESS CURRENT SYMBOL TABLE  WC.W  ENTRY               REC       513
                                                                                                                 REC       514
           231  54333                    END100   SA3    A3+B3       WCA = WCA + Z=SYM, WCI = (WCA)              REC       515
                     20302                        LX3    -WC.RLP                                                 REC       516
                          0470000240 +            ZR     B7,END110   IF TABLE EXHAUSTED                          REC       517
                                                  IFEQ   TEST,ON,1                                               REC       518
                                                  MI     B7,"BLOWUP" IF SYMBOL TABLE NOT MULT OF Z=SYM           REC       519
           232  15430                             BX4    -X0*X3      RLI = RL[WCI]                               REC       520
                     67773                        SB7    B7-B3       LENSYM = LENSYM - Z=SYM                     REC       521
                          6224777776              SB2    X4-ML.PROG        = WC.RL(I) - ML.PROG                  REC       522
           233  0520000231 +                      NE     B2,B0,END100      IF RL(I) .NE. ML.PROG                 REC       523
                          55531                   =A5    A3-WC.W+WB.W      *WB*                                  REC       524
                               43101              CLAS=  X1,WB,(FUN)                                             REC       525
                     11515                        BX5    X1*X5                                                   REC       526
                          0315000231 +            NZ     X5,END100   IF A FUNCTION                               REC       527
           235  20312                             LX3    WC.RLP-WC.RBP                                           REC       528
                     11673                        BX6    X7*X3                                                   REC       529
                          15337                   BX3    -X7*X3      RBI = RB[WCI]                               REC       530
                               53534              SA5    X3+B4       LBI = LBT(RBI)                              REC       531
           236  20660                             LX6    WC.RBP                                                  REC       532
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    13
        RELOCATE SYMBOL TABLES.                                       END 
  
                     20552                        HX5    LB.ORG      ORGI = ORG[LBI]                             REC       533
                          21552                   AX5    -LB.ORGL+WC.RAP                                         REC       534
                                                  LX5    WC.RAP                                                  REC       535
                               36665              IX6    X6+X5       RAI = RAI + ORGI                            REC       536
           237  54630                             SA6    A3          (RB,RA)[WCI] = (0,RAI) [WC.]                REC       537
                     0400000231 +                 EQ     END100                                                  REC       538
                                                                                                                 REC       539
                                                                                                                 REC       540
                                        **        PART 9 - PROCESS AUXILIARY TABLES.                             REC       541
                                                                                                                 REC       542
                                                                                                                 REC       543
           240                           END110   BSS    0                                                       REC       544
           240  5110000000 X                      SA1    ERRORS                                                  FC5A262    52
                          0311000247 +            NZ     X1,END115   IF FATAL ERRORS, SKIP RELOCATING AUX TABLES REC       546
           241  5110000000 X                      SA1    T=GL                                                    FC5A262    53
                          5120000000 X            SA2    T.GL                                                    FC5A262    54
           242  0100000356 +                      RJ     RAT         RELOCATE T.GL                               REC       549
           243  5110000000 X                      SA1    T=API                                                   FC5A262    55
                          5120000000 X            SA2    T.API                                                   FC5A262    56
           244  0100000356 +                      RJ     RAT         RELOCATE T.API                              REC       552
           245  5110000000 X                      SA1    T=IOI                                                   FC5A262    57
                          5120000000 X            SA2    T.IOI                                                   FC5A262    58
           246  0100000356 +                      RJ     RAT         RELOCATE T.IOI                              REC       555
                                                                                                                 REC       556
                                                                                                                 REC       557
                                        **        PART 10 - RELOCATE LOCAL EQUIVALENCED VARIABLES.               REC       558
                                        *                                                                        REC       559
                                        *         WORD WC.W OF EACH LOCAL EQUIV VARIABLE IS                      REC       560
                                        *         MODIFIED IN THE FOLLOWING WAY....                              REC       561
                                        *                                                                        REC       562
                                        *         WB.COM(I) = WB.COM(M)                                          REC       563
                                        *         WB.SAVE(I) = WB.SAVE(M), IF UNIVERSAL SAVE                     REC       564
                                        *         WC.RL(I) = WC.RL(M)                                            REC       565
                                        *         WC.RB(I) = WC.RB(M)                                            REC       566
                                        *         WC.RA(I) = WC.RA(I) + WC.RA(M)                                 REC       567
                                        *                WHERE I = THE CURRENT LOCAL EQUIV VARIABLE              REC       568
                                        *                          BEING PROCESSED,                              REC       569
                                        *                      M = WC.BASE(I), THE ORDINAL OF THE BASE           REC       570
                                        *                          MEMBER.                                       REC       571
                                                                                                                 REC       572
                                                                                                                 REC       573
           247                           END115   BSS    0                                                       REC       574
           247  5110000000 X                      SA1    T=SYM                                                   FC5A262    59
                          5120000000 X            SA2    T.SYM                                                   FC5A262    60
           250  6130000003                        =B3    Z=SYM                                                   REC       577
                          53421                   =A4    X2+WB.W     WBA = FWA(T.SYM) + WB.W                     REC       578
                               63410              SB4    X1          LENSYM = (T=SYM)                            REC       579
           251  6252000002                        =B5    X2+WC.W                                                 REC       580
                          43014                   MX0    WC.RLRBL                                                REC       581
                                                  LX0    WC.RLRBL+WC.RLRBP                                       REC       582
                                                                                                                 FC50252    27
           252  54443                    END120   SA4    A4+B3       WBA = WBA + Z=SYM,  WBI = (WBA)             REC       583
                     67443                        SB4    B4-B3       LENSYM = LENSYM - Z=SYM                     REC       584
                          0440000264 +            ZR     B4,END130   IF END OF T.SYM                             REC       585
           253  7110000010                        CLAS=  X1,WB,(LAB)                                             REC       586
                          43760                   MX7    -WB.BASEL                                               REC       587
                               22604              LX6    X4                                                      REC       588
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    14
        RELOCATE SYMBOL TABLES.                                       END 
  
           254  11214                             BX2    X1*X4                                                   REC       589
                     20462                        SBIT   X4,WB.EQVP                                              FC50252    28
                          0324000252 +            PL     X4,END120   IF NOT EQUIVALENCED                         FC50252    29
           255  0312000252 +                      NZ     X2,END120   IF LABEL                                    REC       591
                          20445                   LX4    1+WB.EQVP-WB.BASEP                                      REC       592
                               15747              BX7    -X7*X4      BASEI = BASE[WBI]                           REC       593
                                                                                                                 REC       594
                                         .TEST    IFEQ   TEST,ON,1                                               REC       595
                                                  ZR     X7,"BLOWUP" BASE ORD SHOULD NOT BE 0                    REC       596
                                                                                                                 REC       597
           256  54341                             =A3    A4-WB.W+WC.W      WCI                                   REC       598
                     22217                        LX2    X7,B1                                                   REC       599
                          36227                   IX2    X2+X7       STINDB = 3 * BASEI                          REC       600
                                   0              ERRNZ  3-Z=SYM                                                 REC       601
                               15730              BX7    -X0*X3      ALL BUT (RLRB)                              REC       602
           257  7110100000                        CLAS=  X1,WB,(COM)                                             REC       603
                          20441                   LX4    WB.BASEP    RESTORE (X4)                                REC       604
                               53225              SA2    X2+B5       WCB = T.SYM(STINDB) + WC.W                  REC       605
           260  55521                             =A5    A2-WC.W+WB.W      WBB = WB ENTRY OF BASE                REC       606
                     11115                        BX1    X1*X5       COMB = COM[WBB]                             REC       607
                          12614                   BX6    X1+X4                                                   REC       608
                               11302              BX3    X0*X2       RLRBB = RLRB[WCB]                           REC       609
           261  20244                             HX2    WC.RA                                                   REC       610
                     21244                        AX2    -WC.RAL     RAB = RA[WCB]                               REC       611
                          5110000000 X            SA1    =XUSAVE                                                 REC       612
           262  11115                             BX1    X1*X5       SAVEB = SAVE[WBB] IF UNIVERSAL SAVE         REC       613
                     12661                        BX6    X6+X1                                                   REC       614
                          12773                   BX7    X7+X3                                                   REC       615
                               36772              IX7    X7+X2                                                   REC       616
           263  54730                             SA7    A3          (RLRB,RA) [WCI] = (RARBB,RAI+RAB) [WC.]     REC       617
                     54640                        SA6    A4          (COM,SAVE) [WBI] = (COMB,SAVEB) [WBB]       REC       618
                          0400000252 +            EQ     END120                                                  REC       619
                                                                                                                 REC       620
                                                                                                                 REC       621
                                        **        PART 11 - DIAGNOSE OBJECT PROGRAM LENGTH TOO LONG FOR ANY      REC       622
                                        *         POSSIBLE SCM.                                                  REC       623
                                                                                                                 REC       624
                                                                                                                 REC       625
           264  43301                    END130   MX3    1                                                       REC       626
                     0100000320 +                 RJ     GCL         GET LCM COMMON LENGTH                       REC       627
           265  5160000001 X                      SA6    COMSIZ+1                                                REC       628
                          43300                   MX3    0                                                       REC       629
           266  0100000320 +                      RJ     GCL         GET CM COMMON LENGTH                        REC       630
           267  7170377777                        SX7    MAX.SPCM                                                FC5A126    41
                          76110                   =X1    1                                                       FC5A126    42
                               36771              IX7    X7+X1                                                   FC5A126    43
           270  37767                             IX7    X6-X7                                                   FC5A126    44
                     5110000000 X                 SA1    SUM.LBT                                                 FC5A126    45
           271  5160000000 X                      SA6    COMSIZ                                                  REC       633
                          36216                   IX2    X1+X6       OBJ PROG LEN = PROG LEN + COMMON LEN        REC       634
           272  7100377777                        SX0    MAX.SPCM                                                FC5A126    46
                          76110                   =X1    1                                                       FC5A126    47
                               36001              IX0    X0+X1                                                   FC5A126    48
           273  37020                             IX0    X2-X0                                                   FC5A126    49
                     0337000275 +                 MI     X7,END140   IF COMMON LEN O.K.                          REC       636
           274  6170000000 X                      FATAL  E.MO8       COMMON LENGTH TOO LONG                      REC       637
           275  0330000107 +             END140   MI     X0,EXIT.    IF OBJ PROG LEN  O.K.                       REC       638
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    15
        RELOCATE SYMBOL TABLES.                                       END 
  
                          6170000000 X            FATAL  E.MO1       PROGRAM UNIT LENGTH TOO LONG                REC       639
           277  0400000107 +                      EQ     EXIT.       EXIT...                                     REC       640
                                                                                                                 REC       641
                                                                                                                 REC       642
                                                                                                                 REC       643
           300                           ENDA     BSS    0           DEFINE SKELETON  *RL=PROG, RB=(BN=NLST)*    REC       644
                                  74              POS    WC.RLP+WC.RLL                                           REC       645
           300  2                                 VFD    WC.RLL/ML.PROG                                          REC       646
                                   0              ERRMI  *P-WC.RBP-WC.RBL                                        REC       647
                                  72              POS    WC.RBP+WC.RBL                                           REC       648
                0007                              VFD    WC.RBL/BN=NLST                                          REC       649
                    0000000000000000              VFD    *P/0                                                    REC       650
                                                                                                                 REC       651
           301                           ENDB     BSS    0           DEFINE SKELETON  *RL=PROG, RB=(BN=FMT)*     REC       652
                                  74              POS    WC.RLP+WC.RLL                                           REC       653
           301  2                                 VFD    WC.RLL/ML.PROG                                          REC       654
                                   0              ERRMI  *P-WC.RBP-WC.RBL                                        REC       655
                                  72              POS    WC.RBP+WC.RBL                                           REC       656
                0003                              VFD    WC.RBL/BN=FMT                                           REC       657
                    0000000000000000              VFD    *P/0                                                    REC       658
  
  
  
  
                                        **        ADA - ASSIGN (RUN-TIME) DIMENSION TABLE ADDRESSES.             REC       660
                                        *                                                                        REC       661
                                        *         SEARCHES THRU T.DIM FOR ENTRIES WITH RUN-TIME MATERIALIZATION  REC       662
                                        *         BIT (DH.MAT) SET.  FOR EACH SUCH ENTRY, ASSIGNS A BLOCK- OR    REC       663
                                        *         PROGRAM-RELATIVE ADDRESS, REFERENCED TO A BASE ADDRESS         REC       664
                                        *         PROVIDED BY THE CALLER IN (X7).                                REC       665
                                        *                                                                        REC       666
                                        *                                                                        REC       667
                                        *         ENTRY  (X7) = BASE ADDRESS, AS ABOVE.                          REC       668
                                        *                (X4) = 0, IF (DH.MAT) TO BE HONORED.                    REC       669
                                        *                (X4) = 1S59, IF TO COUNT ALL ENTRIES.                   REC       670
                                        *                                                                        REC       671
                                        *         EXIT   (X7) = INCREMENTED BY TOTAL LENGTH OF DIMENSION TABLES  REC       672
                                        *                       TO BE MATERIALIZED AT RUN-TIME.                  REC       673
                                        *                (T.DIM) = (DH.RA) SET IN HEADERS THAT HAD (DH.MAT) ON.  REC       674
                                        *                                                                        REC       675
                                        *         USES   A - 1,2.   X - ALL.   B - 2,3.                          REC       676
                                        *                                                                        REC       677
                                        *         CALLS  NONE.                                                   REC       678
                                                                                                                 REC       679
                                                                                                                 REC       680
           302  0400400302 +             ADA      SUBR   =           ENTRY/EXIT...                               REC       681
           303  5110000000 X                      SA1    T=DIM                                                   REC       682
                          5120000000 X            SA2    T.DIM                                                   REC       683
           304  43066                             MX0    -DH.DIML                                                REC       684
                     66200                        =B2    0           (B2) = T.DIM INDEX OF ARRAY ENTRY HEADER    REC       685
                          63310                   SB3    X1          (B3) = LENGTH OF T.DIM                      REC       686
                               43544              MX5    -DH.RAL                                                 REC       687
           305  0623000302 +             ADA2     GE     B2,B3,EXIT. IF END OF T.DIM                             REC       688
                          53122                   SA1    X2+B2       NEXT ENTRY HEADER                           REC       689
                                                  LX1    -DH.DIMP                                                REC       690
                               15310              BX3    -X0*X1      EXTRACT NUMBER OF DIMENSIONS                REC       691
           306  63232                             SB2    B2+X3                                                   REC       692
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    16
        RELOCATE SYMBOL TABLES.                                       ADA 
  
                     73331                        =X3    X3+1                                                    REC       693
                          63232                   SB2    B2+X3       ADVANCE INDEX TO NEXT HEADER (2*NRDIM + 1)  REC       694
                               20103              LX1    DH.DIMP-1-DH.MATP                                       REC       695
           307  12641                             BX6    X4+X1       MATI = (X4) .OR. (DH.MAT)                   REC       696
                     0326000305 +                 PL     X6,ADA2     IF THIS ENTRY NOT MATERIAL                  REC       697
                               20163              LX1    DH.MATP+1-DH.RAP                                        REC       698
           310  11151                             BX1    X5*X1       CLEAR DH.RA                                 REC       699
                     12617                        BX6    X1+X7       ADDRESS TO HEADER                           REC       700
                          36773                   IX7    X7+X3       ADVANCE ADDRESS (1*NRDIM + 1)               REC       701
                               20606              LX6    DH.RAP                                                  REC       702
           311  54610                             SA6    A1                                                      REC       703
                     0400000305 +                 EQ     ADA2        LOOP FOR NEXT ENTRY                         REC       704
  
  
  
  
                                        **        GBS - GENERATE BLOCK OF STORAGE.                               REC       706
                                        *                                                                        REC       707
                                        *         ENTRY  (X1) = LENGTH.                                          REC       708
                                        *                (X2) = SYMORD TO BE DEFINED.                            REC       709
                                        *                (A4,X4) = LOCAL BLOCK TABLE ENTRY.                      REC       710
                                        *                                                                        REC       711
                                        *         EXIT   (A4,X4) = NEW BLOCK TABLE ENTRY.                        REC       712
                                        *                (WC.RA(SYMORD)) = OLD LENGTH OF BLOCK.                  REC       713
                                        *                BLOCK TABLE ENTRY UPDATED.                              REC       714
                                        *         USES   A1,A2,A3,A6,A7  X1,X2,X3,X6,X7  B7                      REC       715
                                                                                                                 REC       716
                                                                                                                 REC       717
           312  0400400312 +             GBS      SUBR   0           ENTRY/EXIT...                               REC       718
                                                  LX1    LB.TBLNP                                                REC       719
           313  36641                             IX6    X4+X1       TBLN(I) = TBLN(I) + LENGTH                  REC       720
                     54640                        SA6    A4                                                      REC       721
                          0302000317 +            ZR     X2,GBS8     IF NO SYMBOL                                REC       722
                                                                                                                 REC       723
           314  5110000000 X                      SA1    T.SYM                                                   REC       724
                          22712                   LX7    X2,B1                                                   REC       725
                                                  LX4    -LB.TBLNP                                               REC       726
                               36227              IX2    X2+X7       STI = 3 * SYMORD                            REC       727
                                   0              ERRNZ  3-Z=SYM                                                 REC       728
           315  6271000002                        =B7    X1+WC.W                                                 REC       729
                          43052                   MX0    -LB.TBLNL                                               REC       730
                               53227              SA2    X2+B7       WCI = T.SYM(STI) + WC.W                     REC       731
           316  15440                             BX4    -X0*X4      ADDR = ORIGINAL LENGTH OF BLOCK             REC       732
                                                  LX4    WC.RAP                                                  REC       733
                     12724                        BX7    X2+X4       RA[WCI] = ADDR                              REC       734
                          54720                   SA7    A2                                                      REC       735
                                                                                                                 REC       736
           317  10466                    GBS8     BX4    X6          RETURN (X4) = NEW ENTRY                     REC       737
                     0400000312 +                 EQ     EXIT.                                                   REC       738
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    17
        RELOCATE SYMBOL TABLES.                                       GCL 
  
                                        **        GCL -  GET COMMON LENGTHS.                                     REC       740
                                        *         THIS ROUTINE SUMS SIZE OF CM OR LCM COMMON BLOCKS.             REC       741
                                        *                                                                        REC       742
                                        *         ENTRY  X3 = MASK(LCM), WHERE LCM = 0 FOR CM,  1 FOR LCM        REC       743
                                        *         EXIT   (X6) = TOTAL SIZE OF LOCAL COMMON                       REC       744
                                        *         USES   A1,A2,X0,X1,X2,B2-B6                                    REC       745
                                                                                                                 REC       746
                                                                                                                 REC       747
           320  0400400320 +             GCL      SUBR   0           ENTRY/EXIT...                               REC       748
           321  5120000000 X                      SA2    T.BLKS                                                  REC       749
                          63221                   =B2    X2+CB.W                                                 REC       750
                               76600              =X6    0           COMLEN = 0                                  REC       751
           322  5110000000 X                      SA1    T=BLKS                                                  REC       752
                          66611                   =B6    Z=BLKS      BLKIND = Z=BLKS                             REC       753
                               63410              SB4    X1                                                      REC       754
           323  66360                             SB3    B6                                                      REC       755
                     43044                        MX0    -CB.BLENL                                               REC       756
           324  0664000320 +             GCL10    GE     B6,B4,EXIT. IF END OF T.BLKS                            REC       757
                          56126                   SA1    B2+B6       CBI = CB ENTRY OF T.BLKS                    REC       758
                               10211              BX2    X1                                                      REC       759
           325  66663                             SB6    B6+B3       BLKIND = BLKIND + Z=BLKS                    REC       760
                     21100                        AX1    CB.BLENP                                                REC       761
                          15110                   BX1    -X0*X1      BLENI = BLEN[CBI]                           REC       762
                                                  HX2    CB.LCM                                                  REC       763
                               13223              BX2    X2-X3                                                   REC       764
           326  0332000324 +                      MI     X2,GCL10    IF NOT REQUESTED RESIDENCE                  REC       765
                          36661                   IX6    X6+X1       BLKLEN = BLKLEN + BLENI                     REC       766
           327  0400000324 +                      EQ     GCL10                                                   REC       767
  
  
  
  
                                        **        ISZ -  INITIALIZE SUB0 TABLE.                                  REC       769
                                        *                SET HEADER (0) AND TERMINATOR (-0) WORDS FOR EACH F.P.  REC       770
                                        *                ENTRY IN THE SUB0 TABLE.                                REC       771
                                        *                                                                        FC5A128   338
                                        *         ENTRY  (X5) = SIZE OF SUB0 TABLE, INC. HEADERS AND TERMS.      FC5A128   339
                                                                                                                 REC       772
                                                                                                                 REC       773
                                         #MD      IFNE   .DAL,0                                                  FC5A128   340
           330  0400400330 +             ISZ      SUBR   0           ENTRY/EXIT...                               REC       774
           331  0305000330 +                      ZR     X5,EXIT.    IF NO SUB0 TABLE                            FC5A128   341
                          5110000000 X            ALLOC  T.SUB0,X5   ALLOCATE SPACE FOR TABLE                    FC5A128   342
           333  5110000000 X                      SA1    T.SUB0                                                  REC       775
                          5120000000 X            SA2    T.FPO                                                   REC       776
           334  5130000000 X                      SA3    T=SUB0                                                  REC       777
                          5140000000 X            SA4    T=FPO                                                   REC       778
           335  63210                             SB2    X1                                                      REC       779
                     63340                        SB3    X4                                                      REC       780
                          36513                   IX5    X1+X3                                                   REC       781
                               43600              MX6    0           0 HEADER WORD                               REC       782
           336  43774                             MX7    60          -0 TERMINATOR WORD                          REC       783
                     5275777776                   SA7    X5-1        LWA(T.SUB0) = -0                            REC       784
                                   0              ERRMI  FUDGE-1                                                 REC       785
           337  0430000330 +             ISZ10    ZR     B3,EXIT.    IF END OF TABLE                             REC       786
                          67331                   SB3    B3-B1       I = I - 1                                   REC       787
                               53523              SA5    X2+B3       FPOI = T.FPO(I)                             REC       788
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    18
        RELOCATE SYMBOL TABLES.                                       ISZ 
  
           340  21522                             AX5    FP.SUB0P                                                REC       789
                     53652                        SA6    X5+B2       T.SUB0(SUB0FWA) = 0                         REC       790
                          55761                   =A7    A6-1        T.SUB0(SUB0FWA-1) = -0                      REC       791
           341  0400000337 +                      EQ     ISZ10                                                   REC       792
                                         #MD      ENDIF                                                          FC5A128   343
  
  
  
  
                                        **        MER - MARK EXTERNAL RELOCATION.                                REC       794
                                        **        PART 4 - PROCESS EXTERNAL SYMBOLS.                             REC       795
                                        *         FOR ALL EXTERNALS, SET                                         REC       796
                                        *         WC.RL(I) = ML.EXT                                              REC       797
                                        *         WC.RB(I) = 0                                                   REC       798
                                        *         SET (NREXT) = NUMBER OF EXTERNALS.                             REC       799
                                        *         FOR EXTERNALS WHICH ARE FORMAL PARAMETERS, REGARD AS NON-      REC       800
                                        *         EXTERNALS FROM NOW ON, SO SET  EXT[WBI] = 0.                   REC       801
                                                                                                                 REC       802
                                                                                                                 REC       803
           342  0400400342 +             MER      SUBR   0           ENTRY/EXIT...                               REC       804
           343  5120000000 X                      SA2    T=SYM                                                   REC       805
                          5110000000 X            SA1    T.SYM                                                   REC       806
           344  5140000422 +                      CLAS=  X4,WC,(RLRB)                                            REC       807
                          7100040000              CLAS=  X0,WB,(EXT)                                             REC       808
           345  76710                             SX7    B1          INITIALIZE EXTERNAL COUNTER                 REC       809
                     63720                        SB7    X2                                                      REC       810
                          6130000003              =B3    Z=SYM                                                   REC       811
           346  7120000003                        =X2    ML.EXT      RLI = ML.EXT                                REC       812
                          53311                   =A3    X1+WB.W                                                 REC       813
                               20272              LX2    WC.RLP                                                  REC       814
           347  54333                    MER20    SA3    A3+B3       WBA = WBA + L.SYM, WBI = (WBA)              REC       815
                     67773                        SB7    B7-B3                                                   REC       816
                          0470000342 +            ZR     B7,EXIT.    IF SYMTAB EXHAUSTED                         REC       817
           350  10533                             BX5    X3                                                      REC       818
                     11603                        BX6    X0*X3                                                   REC       819
                          20570                   HX5    WB.LAB                                                  REC       820
           351  0335000347 +                      MI     X5,MER20    IF LABEL                                    REC       821
                          0306000347 +            ZR     X6,MER20    IF NOT EXTERNAL                             REC       822
           352  20557                             LX5    WB.LABP-WB.FPP                                          REC       823
                     54131                        =A1    A3-WB.W+WC.W                                            REC       824
                          0325000354 +            PL     X5,MER30    IF NOT F.P.                                 REC       825
           353  15630                             BX6    -X0*X3                                                  REC       826
                     54630                        SA6    A3          EXT[WBI] = 0                                REC       827
                          0400000347 +            EQ     MER20                                                   REC       828
                                                                                                                 REC       829
           354  73771                    MER30    SX7    X7+B1       COUNT EXTERNALS                             REC       830
                     15514                        BX5    -X4*X1      CLEAR (RLRB) FIELD                          REC       831
                          36652                   IX6    X5+X2                                                   REC       832
                               54610              SA6    A1          (RL,RB) [WCI] = (RLI,0) [WC.]               REC       833
           355  0400000347 +                      EQ     MER20                                                   REC       834
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    19
        RELOCATE SYMBOL TABLES.                                       RAT 
  
                                        **        RAT -  RELOCATE AUXILLIARY TABLES.                             REC       836
                                        *         ENTRY -(A1) = LENGTH OF TABLE                                  REC       837
                                        *                (A2) = FWA  OF TABLE                                    REC       838
                                        *                                                                        REC       839
                                        *         THE TABLE ELEMENTS ARE ONE WORD PER TABLE ENTRY                REC       840
                                        *         EACH TABLE ENTRY HAS THE FORMAT AS DEFINED BY WC.W OF THE      REC       841
                                        *         SYMBOL TABLE.                                                  REC       842
                                                                                                                 REC       843
                                                                                                                 REC       844
           356  0400400356 +             RAT      SUBR   0           ENTRY/EXIT...                               REC       845
           357  6120000000 X                      SB2    =XF.LBT                                                 REC       846
                          0301000356 +            ZR     X1,EXIT.    IF LENGTH OF TABLE = 0                      REC       847
           360  63310                             SB3    X1          LENTAB = LENGTH OF TABLE                    REC       848
                     53120                        SA1    X2          TA = FWA OF TABLE                           REC       849
                          43752                   MX7    -LB.ORGL                                                REC       850
           361  67331                    RAT10    SB3    B3-B1       LENTAB = LENTAB - 1                         REC       851
                     54111                        SA1    A1+B1       TA = TA + 1,  TI = (TA)                     REC       852
                          0430000356 +            EQ     B3,B0,EXIT. IF TABLE EXHAUSTED                          REC       853
           362  10211                             BX2    X1                                                      REC       854
                     20202                        HX2    WC.RB                                                   REC       855
                          21262                   AX2    -WC.RBL     RBI = RB[TI]                                REC       856
                               53422              SA4    X2+B2       LBI = LBT(RBI)                              REC       857
                                                  LX4    -LB.ORGP                                                REC       858
           363  15447                             BX4    -X7*X4      ORGI = ORG[LBI]                             REC       859
                                                  LX4    WC.RAP                                                  REC       860
                     36614                        IX6    X1+X4                                                   REC       861
                          54610                   SA6    A1          RA[TI] = (RA[TI] + ORGI) [WC.]              REC       862
           364  0400000361 +                      EQ     RAT10                                                   REC       863
  
  
  
  
                                        **        SSA - SET SYMBOL ADDRESSES.                                    REC       865
                                        *                                                                        REC       866
                                        *         PHASE 1 OF SYMBOL TABLE COMPLETION.                            REC       867
                                        *                                                                        REC       868
                                        *         FIRST, INDEX THE SYMBOL TABLE RELATIVE TO THE LBT (F.LBT).     REC       869
                                        *         THIS INVOLVES SETTING THE  WC.RB  FIELD OF UNIQUE LOCAL        REC       870
                                        *         SYMBOLS TO AN INDEX WHICH POINTS INTO THE FIXED TABLE,  F.LBT. REC       871
                                        *         ALSO, THE TBLN FIELD OF  F.LBT  WILL BE ADJUSTED TO ACCOUNT    REC       872
                                        *         FOR THE LENGTH OF EACH UNIQUE LOCAL SYMBOL PROCESSED.          REC       873
                                        *                                                                        REC       874
                                        *         FOR UNIQUE LOCAL VARIABLES, SET...                             REC       875
                                        *         WC.RL(I) = ML.PROG  / (INDICATES PROGRAM RELOCATABLE).         REC       876
                                        *         WC.RB(I) = (BN=VAR),                                           REC       877
                                        *         WC.RA(I) = TBLN [LBT(BN=VAR)]                                  REC       878
                                        *         TBLN [LBT(BN=VAR)] = TBLN [LBT(BN=VAR)] + DIM SIZE             REC       879
                                        *                FOR EACH LOCAL VARIABLE.                                REC       880
                                        *         FOR CHARACTER VARIABLES, DIM SIZE = DIM SIZE * CLEN[WCI] / 10  REC       881
                                                                                                                 REC       882
                                                                                                                 REC       883
           365  0400400365 +             SSA      SUBR   0           ENTRY/EXIT...                               REC       884
           366  5110000000 X                      SA1    T.SYM                                                   FC5A262    61
                          6130000003              =B3    Z=SYM                                                   REC       886
           367  5120000000 X                      SA2    T=SYM                                                   FC5A262    62
                          53311                   =A3    X1+WB.W     WBA = FWA(T.SYM) + WB.W                     REC       888
           370  5140000425 +                      CLAS=  X4,WB,(LAB,FP,EXT,NVAR,NLST,PARM,EQV,COM,ENT,SAVE)      REC       889
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    20
        RELOCATE SYMBOL TABLES.                                       SSA 
  
                          76610                   =X6    ML.PROG                                                 REC       890
           371  7150000010                        =X5    BN=VAR                                                  REC       891
                          20672                   LX6    WC.RLP                                                  REC       892
                               20560              LX5    WC.RBP                                                  REC       893
           372  12556                             BX5    X5+X6       (X5) = (RL,RB) = (ML.PROG,BN=VAR) [WC.]     REC       894
                     63720                        SB7    X2          STLEN = (T=SYM)                             REC       895
                          5110000000 X            SA1    =XT.DIM                                                 REC       896
           373  13000                             BX0    0           VARLEN = 0                                  REC       897
                     63510                        =B5    X1          FWA DIM TABLE  (T.DIM)                      REC       898
                                                                                                                 REC       899
                                        *         B3  =  LENGTH OF SYMBOL TABLE ENTRY                            REC       900
                                        *         B5  =  FWA  DIMENSION TABLES                                   REC       901
                                        *         B7  =  SYMBOL TABLE LENGTH                                     REC       902
                                        *         (X0) =  VARLEN                                                 REC       903
                                        *         X4 = CLASS BITS MASK                                           REC       904
                                                                                                                 REC       905
           374  54333                    SSA10    SA3    A3+B3       WBA = WBA + L.SYM, WBI = (WBA)              REC       906
                     67773                        SB7    B7-B3       STLEN = STLEN + L.SYM                       REC       907
                          0470000414 +            ZR     B7,SSA30    IF SYMTAB EXHAUSTED                         REC       908
                                                                                                                 REC       909
                                         .TEST    IFEQ   TEST,ON,1                                               REC       910
                                                  MI     B7,"BLOWUP" IF SYMBOL TABLE LENGTH NOT MULT OF L.SYM    REC       911
                                                                                                                 REC       912
           375  11243                             BX2    X4*X3                                                   REC       913
                     0312000374 +                 NZ     X2,SSA10    IF NOT UNIQUE LOCAL, AVOID..                REC       914
                               20335              SBIT   X3,WB.MATP                                              FC5A262    63
           376  0323000374 +                      PL     X3,SSA10    IF NOT MATERIALIZED                         FC5A262    64
                          54131                   =A1    A3-WB.W+WC.W      WCI = WC.W ENTRY                      REC       916
           377  5120000426 +                      CLAS=  X2,WC,(RLRB,RA)                                         REC       917
                          11221                   BX2    X2*X1       RBRAI = (RLRB, RA) [WCI]                    REC       918
                               43671              MX6    -WB.MODEL                                               REC       919
           400  0312000374 +                      NZ     X2,SSA10    IF STORAGE ALREADY ALLOCATED                REC       920
                          20354                   LX3    WB.MATP+1-WB.PNTP                                       REC       922
                               43757              MX7    -WB.PNTL                                                REC       923
           401  15237                             BX2    -X7*X3      DTIND = PNT[WBI]                            REC       924
                     53225                        SA2    X2+B5       TDI = T.DIM(DTIND)                          REC       925
                          20206                   HX2    DH.PS                                                   REC       926
                               21244              AX2    -DH.PSL     SIZE = PS[TDI]                              REC       927
           402  20357                             LX3    WB.PNTP-WB.MODEP                                        REC       928
                     15736                        BX7    -X6*X3      MODEI = MODE[WBI]                           REC       929
                          7267777771              SX6    X7-M.CHAR                                               REC       930
           403  43374                             MX3    -0                                                      REC       931
                     6227777773                   SB2    X7-M.DBL                                                REC       932
           404  0420000411 +                      EQ     B2,B0,SSA20 IF MODE = DOUBLE                            REC       933
                          0421000411 +            EQ     B2,B1,SSA20 IF MODE = COMPLEX                           REC       934
           405  7130000000                        SX3    0           INDICATE SINGLE WORD ELEMENT                REC       935
                          0316000411 +            NZ     X6,SSA20    IF NOT MODE CHARACTER                       REC       936
           406  10711                             BX7    X1                                                      REC       937
                     20714                        HX7    WC.CLEN                                                 REC       938
                          21752                   AX7    -WC.CLENL   CLENI = CLEN[WCI]                           REC       939
                               42727              IX7    X2*X7       SIZE = SIZE * CLENI                         REC       940
           407  7120000011                        CW     X2,X7       SIZE = SIZE / 10                            REC       941
                                                                                                                 FC5A262    65
           411  12115                    SSA20    BX1    X1+X5                                                   REC       942
                     43644                        MX6    -WC.RAL                                                 REC       943
                          15706                   BX7    -X6*X0                                                  REC       944
                                         .T       IFEQ   TEST,ON                                                 REC       945
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    21
        RELOCATE SYMBOL TABLES.                                       SSA 
  
                                                  LX1    -WC.RAP                                                 REC       946
                                                  BX6    -X6*X1      RAI = RA[WCI]                               REC       947
                                                  NZ     X6,"BLOWUP" IF RAI .NE. 0                               REC       948
                                                  LX1    WC.RAP                                                  REC       949
                                         .T       ENDIF                                                          REC       950
                               11332              BX3    X3*X2                                                   REC       951
           412  36223                             IX2    X2+X3       SIZE = 2 * SIZE (IF DOUBLE WORD)            REC       952
                                                  LX7    WC.RAP                                                  REC       953
                     12771                        BX7    X7+X1                                                   REC       954
                          36020                   IX0    X2+X0       VARLEN = VARLEN + SIZE                      REC       955
                               54710              SA7    A1          (RL,RB,RA)[WCI] = (RLI,BN=VAR,VARLEN)[WC.]  REC       956
           413  0400000374 +                      EQ     SSA10                                                   REC       957
                                                                                                                 REC       958
                                        *         UPDATE BLOCK LENGTH FOR (BN=VAR) BLOCK.                        REC       959
                                        *         (X0) = VARLEN                                                  REC       960
                                                                                                                 REC       961
           414  6140000010 X             SSA30    SB4    F.LBT+BN=VAR                                            FC5A126    50
                          56340                   SA3    B4          LBVAR = LBT ENTRY FOR VARIABLES             REC       963
                               43652              MX6    -LB.TBLNL                                               REC       964
                                                  LX3    -LB.TBLNP                                               REC       965
           415  11763                             BX7    X6*X3                                                   REC       966
                     7140377777                   SX4    MAX.SPCM                                                FC5A139     4
                               76110              =X1    1                                                       FC5A139     5
           416  36441                             IX4    X4+X1                                                   FC5A139     6
                     37404                        IX4    X0-X4                                                   FC5A139     7
                          0334000420 +            MI     X4,SSA40    IF VARIABLE LENGTH .LE. MAX.SPCM            FC5A139     8
           417  7100377777                        SX0    MAX.SPCM                                                FC5A139     9
                                                                                                                 FC5A262    66
           420  12770                    SSA40    BX7    X7+X0                                                   FC5A139    10
                                                  LX7    LB.TBLNP                                                REC       974
                     54730                        SA7    A3          TBLN[LBVAR] = VARLEN                        REC       975
                          0400000365 +            EQ     EXIT.                                                   REC       976
  
  
  
  
                                                  LIST   D                                                       REC       978
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        CGE 
             0 X                        TV=END
             0 X                        ALC.PAR 
             0 X                        TV=CUR
  
                                        CONTENT OF LITERALS BLOCK.
  
           421  00000055555555555555
           422  77770000000000000000    ;;
           423  00000000000004000010          D  H
           424  03777777777777000000    C;;;;;; 
           425  00000000006000361510         # 3MH
           426  77770000000077777777    ;;    ;;;;
           427  00000631463146314632      FY-Y-Y-Z
  
           430                                    END                                                            REC       979
  
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    22
        RELOCATE SYMBOL TABLES. 
  
                             70000B CM  STORAGE USED             3300 STATEMENTS     1816 SYMBOLS      000016 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            2.807 SECONDS         638 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADA           302   PROGRAM*        8/54     15/46 L   15/46 E
        ADA2          305   PROGRAM*       15/53 L   16/05     16/12
        ALC             0   EXTERNAL*       1/45 X   10/31     11/24     17/43
        ALC.PAR         0   EXTERNAL*       4/15 S
        BCT             0   EXTERNAL*       2/17 X    4/40
        BINIO           0   EXTERNAL*       2/09 X    5/20      6/28
        BN=APL          5                   3/29 D    8/20      8/28
        BN=BUF         13                   3/35 D
        BN=CODE         1                   3/25 D
        BN=CON          2                   3/26 D    8/15      8/20
        BN=FMT          3                   3/27 D    8/06      8/15     15/19
        BN=IOAP         6                   3/30 D    8/28
        BN=NLST         7                   3/31 D    9/34 S   15/11
        BN=STRT         0                   3/24 D
        BN=SUB         11                   3/33 D   11/19 S
        BN=SUB0        12                   3/34 D   11/20 S
        BN=TEM          4                   3/28 D
        BN=VAR         10                   3/32 D   20/02     20/02     21/17
        BST             0   EXTERNAL*       1/50 X    4/54
        BST.EQ          0   EXTERNAL*       1/50 X    4/54 S
        BT.IDNT         0   EXTERNAL*       1/48 X    6/15 S
        BT.IDN9         0   EXTERNAL*       1/48 X    6/14
        B1=1            0 
        CB.BLENL       30   FTX            17/17
        CB.BLENP        0   FTX            17/22
        CB.W            1   FTX            17/11
        CGE             0   EXTERNAL*       4/09
        CIO=            0   EXTERNAL*       2/26 X    5/31      6/34
        CLE             0   EXTERNAL*       1/48 X    5/06
        CLE.EQ          0   EXTERNAL*       1/48 X    5/06 S
        COMSIZ          0   EXTERNAL*       2/09 X   14/41 S   14/49 S
        CO.DBID         0   EXTERNAL*       1/56 X    6/11
        CO.DBPM         0   EXTERNAL*       1/56 X    6/23
        CO.DBST         0   EXTERNAL*       1/56 X    6/10
        CO.LOO          0   EXTERNAL*       1/56 X    4/43      6/31
        CO.OPT          0   EXTERNAL*       1/56 X    8/09
        CO.QC           0   EXTERNAL*       1/56 X    4/46
        CO.SNAP         0   EXTERNAL*       1/56 X
        CP#RM           0   FTX             5/14 F
        DH.DIML         6   FTX            15/49
        DH.DIMP         0   FTX            16/03
        DH.MATP        70   FTX            16/03     16/06
        DH.PSL         30   FTX            20/37     20/38
        DH.PSP         36   FTX            20/37
        DH.RAL         30   FTX            15/52
        DH.RAP          6   FTX            16/06     16/10
        DMT=            0   EXTERNAL*       1/53 X
        END           107   PROGRAM*        4/18      7/09 L
        ENDA          300   PROGRAM*        9/20     15/06 L
        ENDB          301   PROGRAM*        9/52     15/14 L
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    23
        SYMBOLIC REFERENCE TABLE. 
  
        END1          130   PROGRAM*        8/11      8/15 L
        END1A         115   PROGRAM*        7/30 L    7/34
        END1B         121   PROGRAM*        7/32      7/42 L
        END1C         123   PROGRAM*        7/40      7/50 L
        END10         156   PROGRAM*        9/57 L   10/05     10/11
        END100        231   PROGRAM*       12/40 L   12/48     12/52     13/06
        END110        240   PROGRAM*       12/42     13/12 L
        END115        247   PROGRAM*       13/14     13/42 L
        END120        252   PROGRAM*       13/52 L   14/03     14/04     14/32
        END130        264   PROGRAM*       13/54     14/39 L
        END140        275   PROGRAM*       14/55     14/57 L
        END15         162   PROGRAM*       10/02     10/17 L
        END2          143   PROGRAM*        9/03 L    9/26      9/30
        END4          151   PROGRAM*        9/06      9/34 L
        END45         172   PROGRAM*       10/42 L   11/09     11/12
        END48         201   PROGRAM*       11/05     11/09 L
        END50         203   PROGRAM*       10/42     11/14 L
        END55         212   PROGRAM*       11/23     11/28 L
        END60         214   PROGRAM*       10/30     11/22     11/40 L
        END70         217   PROGRAM*       11/48 L   12/12
        END80         222   PROGRAM*       11/55     12/01 L
        END90         225   PROGRAM*       11/46     12/14 L
        ERRORS          0   EXTERNAL*       2/09 X    5/12     11/45     13/13
        ESL             0   EXTERNAL*       1/48 X    5/07
        ESL.EQ          0   EXTERNAL*       1/48 X    5/07 S
        E.MO1           0   EXTERNAL*       2/23 X   15/01
        E.MO8           0   EXTERNAL*       2/23 X   14/56     14/56
        FAS             0   EXTERNAL*       1/48 X    5/34
        FBP             0   EXTERNAL*       1/49 X    5/02
        FBP.EQ          0   EXTERNAL*       1/49 X    5/02 S
        FP.CAL          6   FTX            10/44
        FP.CAP         62   FTX            10/44
        FP.LENP        44   FTX            10/52     10/53     10/55
        FP.SUBL        16   FTX            10/40     10/44
        FP.SUBP        44   FTX            10/44     10/48     10/53
        FP.SUB0L       22   FTX            10/44     10/56
        FP.SUB0P       22   FTX            10/44     10/47     10/50     10/55     18/01
        FUDGE           1   FTX            17/54
        FV.LGO          0   EXTERNAL*       1/57 X    4/42      6/30     11/21
        F.LBT           0   EXTERNAL*       2/09 X    9/34 S   11/20 S   12/30     21/17
                                            8/06     11/19 S   11/41     19/11
        F.PB            0   EXTERNAL*       1/57 X    5/19      5/22      5/31      6/34
        GBS           312   PROGRAM*        8/08      8/13      8/18      8/26      8/32      8/37     16/29 L
        GBS8          317   PROGRAM*       16/33     16/48 L
        GCL           320   PROGRAM*       14/40     14/43     17/09 L
        GCL10         324   PROGRAM*       17/18 L   17/26     17/28
        ISZ           330   PROGRAM*       11/31     17/41 L
        ISZ10         337   PROGRAM*       17/55 L   18/04
        I.FET           0   FTX             5/22
        LB.BLENL       22   FTX            11/44
        LB.BLENP       22   FTX            12/08
        LB.ORGL        22   FTX            13/01     13/02     19/15
        LB.ORGP         0   FTX            13/01
        LB.PARCL        6   FTX            11/53
        LB.PARCP       66   FTX            12/06
        LB.TBLNL       22   FTX            16/41     21/19
        MAP             0   EXTERNAL*       2/03 X    4/36
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        MAX.SPCM   377777   FTX            14/44     14/51     21/22     21/27
        MER           342   PROGRAM*        5/10     18/20 L
        MER20         347   PROGRAM*       18/31 L   18/37     18/38     18/44     18/50
        MER30         354   PROGRAM*       18/41     18/46 L
        ML.EXT          3   FTX            18/28
        ML.PROG         1   FTX            12/47     15/08     15/16     20/01
        M.CHAR          6   FTX             7/28     20/41
        M.DBL           4   FTX            20/43
        NREXT           0   EXTERNAL*       2/09 X    5/11 S
        N.CON           0   EXTERNAL*       2/09 X    8/16
        N.TYPE          7   FTX             7/26
        PASS            0   EXTERNAL*       2/09 X    4/12 S    4/51 S
        PASS=END        3   FTX             4/11      4/11
        PASS=FAS        5   FTX             4/50
        PCA             0   EXTERNAL*       2/17 X    4/41
        PDM             0   EXTERNAL*       2/06 X   14/56     15/01
        POL             0   EXTERNAL*       1/50 X    4/56
        POL.EQ          0   EXTERNAL*       1/50 X    4/56 S
        RADOL1          0   EXTERNAL*       1/49 X    4/57 S
        RADOL2          0   EXTERNAL*       1/49 X    5/01 S
        RADRTN          0   EXTERNAL*       1/49 X    4/57      5/01
        RAT           356   PROGRAM*       13/17     13/20     13/23     19/10 L
        RAT10         361   PROGRAM*       19/16 L   19/28
        REC             2   PROGRAM*        4/08 L    4/08 E
        REC20          13   PROGRAM*        4/35      4/40 L
        REC30          27   PROGRAM*        4/52      4/55 L
        REC40          40   PROGRAM*        4/55      5/04 L
        REC50          45   PROGRAM*        5/05      5/09 L
        REC55          55   PROGRAM*        5/21      5/30 L
        REC59          57   PROGRAM*        5/13      5/28      5/34 L
        REC60          60   PROGRAM*        4/48      4/49      5/38 L
        REL.RTN         0   EXTERNAL*       2/20 X    5/53
        REP            71   PROGRAM*        4/10      6/06 L
        SBM=            0   EXTERNAL*       2/26 X   11/26
        SMB             0   EXTERNAL*       2/17 X   10/18
        SNR             0   EXTERNAL*       1/48 X    9/05
        SSA           365   PROGRAM*       10/19     19/52 L
        SSA10         374   PROGRAM*       20/17 L   20/25     20/27     20/32     21/12
        SSA20         411   PROGRAM*       20/44     20/45     20/47     20/54 L
        SSA30         414   PROGRAM*       20/19     21/17 L
        SSA40         420   PROGRAM*       21/26     21/29 L
        SUM.LBT         0   EXTERNAL*       2/09 X   12/14 S   14/48
        S=CL            0   EXTERNAL*       2/10 X    8/34
        S=CON           0   EXTERNAL*       2/10 X    8/17
        S=LA            0   EXTERNAL*       2/10 X    8/12
        S=VALUE         0   EXTERNAL*       2/10 X    7/19
        TEST            0   FTX             4/20 F    8/47 F    9/12 F   12/43 F   14/08 F   20/21 F   20/57 F
        TL.CSOP         0   EXTERNAL*       1/57 X    6/07
        TV=CUR          0   EXTERNAL*       4/17 S
        TV=END          0   EXTERNAL*       4/13
        T=API           0   EXTERNAL*       2/10 X    5/43      5/43 S   13/18
        T=APL           0   EXTERNAL*       2/10 X    5/42      5/42 S    8/22
        T=BLKS          0   EXTERNAL*       2/10 X   17/13
        T=CLW           0   EXTERNAL*       2/11 X    8/33
        T=CON           0   EXTERNAL*       2/11 X    5/38      5/38 S
        T=DATS          0   EXTERNAL*       2/11 X    5/47      5/47 S
        T=DIM           0   EXTERNAL*       2/11 X   15/47
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    25
        SYMBOLIC REFERENCE TABLE. 
  
        T=FMT           0   EXTERNAL*       2/11 X    5/39      5/39 S    8/05
        T=FPI           0   EXTERNAL*       2/11 X    5/48      5/48 S   10/29
        T=FPO           0   EXTERNAL*       2/11 X    5/49      5/49 S   17/47
        T=GL            0   EXTERNAL*       2/11 X    5/41      5/41 S   13/15
        T=IOA           0   EXTERNAL*       2/11 X    5/45      5/45 S    8/27
        T=IOI           0   EXTERNAL*       2/12 X    5/46      5/46 S   13/21
        T=LA            0   EXTERNAL*       2/10 X    8/10
        T=LCA           0   EXTERNAL*       2/12 X    5/44      5/44 S    8/21
        T=LNT           0   EXTERNAL*       2/12 X    5/52      5/52 S
        T=NLST          0   EXTERNAL*       2/12 X    5/40      5/40 S
        T=SUB           0   EXTERNAL*       2/12 X    5/50      5/50 S
        T=SUB0          0   EXTERNAL*       2/12 X    5/51      5/51 S   11/29     11/29 S   17/46
        T=SYM           0   EXTERNAL*       2/12 X    9/46     12/27     13/43     18/21     19/55
        T.API           0   EXTERNAL*       2/12 X   13/19
        T.BLKS          0   EXTERNAL*       2/13 X   17/10
        T.DIM           0   EXTERNAL*       2/13 X   15/48     20/07
        T.FPI           0   EXTERNAL*       2/13 X   10/34
        T.FPO           0   EXTERNAL*       2/13 X   10/31     17/45
        T.GL            0   EXTERNAL*       2/13 X   13/16
        T.IOI           0   EXTERNAL*       2/13 X   13/22
        T.SUB           0   EXTERNAL*       2/13 X   11/24
        T.SUB0          0   EXTERNAL*       2/13 X   17/43     17/44
        T.SYM           0   EXTERNAL*       2/13 X    7/23      9/47     12/25     13/44     16/35     18/22     19/53
        USAVE           0   EXTERNAL*       2/14 X   14/25
        WB.BASEL       14   FTX            13/56
        WB.BASEP       41   FTX            14/05     14/17
        WB.COML         1   FTX            19/57
        WB.COMP        17   FTX            19/57
        WB.DEFP         7   FTX             7/31
        WB.ENTL         1   FTX            19/57
        WB.ENTP        15   FTX            19/57
        WB.EQVL         1   FTX            19/57
        WB.EQVP        11   FTX            14/02     14/05     19/57
        WB.EXTL         1   FTX            19/57
        WB.EXTP        16   FTX            19/57
        WB.FDEFL        1   FTX             9/49
        WB.FDEFP       24   FTX             9/49
        WB.FPL          1   FTX            19/57
        WB.FPP         20   FTX            18/39     19/57
        WB.FUNP        14   FTX            12/50
        WB.LABL         1   FTX             9/49     18/36     19/57
        WB.LABP         3   FTX             9/49     18/36     18/39     19/57
        WB.MATP        36   FTX            20/26     20/33
        WB.MODEL        3   FTX             7/43     20/31
        WB.MODEP        0   FTX            20/39
        WB.NLSTL        1   FTX            19/57
        WB.NLSTP       34   FTX            19/57
        WB.NVARL        1   FTX            19/57
        WB.NVARP        6   FTX            19/57
        WB.PARML        1   FTX            19/57
        WB.PARMP       10   FTX            19/57
        WB.PNTL        15   FTX            20/34
        WB.PNTP        57   FTX            20/33     20/39
        WB.SAVEL        1   FTX            19/57
        WB.SAVEP       35   FTX            19/57
        WB.W            1   FTX             7/24      9/51     12/49     14/11     18/29     19/56
                                            9/10     10/06     13/46     14/19     18/40     20/28
1       REC - REAR END CONTROLLER.                                    COMPASS 3.7-871.     24/05/02. 13.18.38.      PAGE    26
        SYMBOLIC REFERENCE TABLE. 
  
        WC.CLENL       22   FTX            20/49     20/50
        WC.CLENP       36   FTX            20/49
        WC.RAL         30   FTX            14/23     14/24     20/29     20/55
        WC.RAP          0   FTX             9/18     13/02     14/23     20/29
        WC.RBL         12   FTX            12/32     15/10     15/17     15/19     19/21
                                           15/09     15/11     15/18     19/20
        WC.RBP         60   FTX            12/53     12/57     15/09     15/10     15/17     15/18     19/20     20/04
        WC.RLL          2   FTX            12/31     15/07     15/08     15/15     15/16
        WC.RLP         72   FTX            12/41     12/53     15/07     15/15     18/30     20/03
        WC.RLRBL       14   FTX             9/48     13/49     18/23     20/29
        WC.RLRBP       60   FTX             9/48     18/23     20/29
        WC.W            2   FTX             9/10     12/28     13/48     14/19     18/40
                                           10/06     12/49     14/11     16/40     20/28
        WLF             0   EXTERNAL*       1/50 X    4/53
        WLF.EQ          0   EXTERNAL*       1/50 X    4/53 S
        WNB=            0   EXTERNAL*       1/57 X    5/19
        WO.LOA          0   EXTERNAL*       2/14 X    4/30
        WO.LOM          0   EXTERNAL*       2/14 X    4/31
        WO.LOO          0   EXTERNAL*       2/14 X    4/45 S
        WO.LOR          0   EXTERNAL*       2/14 X    4/32
        WO.56           0   PROGRAM*        2/29 L    2/29 E    6/26 S
        WO.57           1   PROGRAM*        2/30 L    2/30 E    5/04      6/27 S
        Z=BLKS          2   FTX            17/14
        Z=CLW           2   FTX             8/36
        Z=IOA           2   FTX             8/30
        Z=SYM           3   FTX             7/26      9/53     12/29     14/14     18/27
                                            7/30     12/26     13/45     16/39     19/54
        Z.LBT           0   EXTERNAL*       2/14 X   11/42
        .DAL            1   FTX            11/30 F   17/40 F
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       35              IDENT  RERRS
                         35                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0         1 
                                        LITERALS* LOCAL           1        26 
                                        FORMAT.   LOCAL          27         6 
  
  
                                        ENTRY POINTS. 
  
                                        B=RERRS          0+           FILL.3           4+           E.MO8           32+ 
                                        DICT             1+           L.FILL           3            E.CCG           34+ 
                                        FILL.            2+           E.MO1           27+ 
                                        FILL.2           3+           E.MO2           30+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        PEM       PEMS      ERR.F     ERR.D 
  
  
  
  
                                                  IDENT  RERRS                                                   RERRS       2
                                         RERRS    SECT   (REAR END ERROR MESSAGE TEXTS.)                         RERRS       3
  
  
  
  
  
                                        *         IN PEM                                                         RERRS       5
                                                  EXT    PEM,PEMS                                                RERRS       6
                                                                                                                 RERRS       7
                                        *         IN PUC                                                         RERRS       8
                                                  EXT    ERR.F,ERR.D                                             RERRS       9
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     2
        COMAERR - ERROR MACROS. 
  
             0                                    CTEXT  COMAERR - ERROR MACROS.                                 COMAERR     2
  
  
  
  
                                        ***       DIAGNOSTICS SECTION OF COMPILER.                               COMAERR     4
                                        *                                                                        COMAERR     5
                                        *         GENERAL DISCUSSION OF DIAGNOSTICS --                           COMAERR     6
                                        *                                                                        COMAERR     7
                                        *         ALL DIAGNOSTICS FOR SOURCE FORTRAN MUST BE CONTAINED WITHIN    COMAERR     8
                                        *         THIS SECTION OF THE COMPILER. WHEN A NEW DIAGNOSTIC IS TO BE   COMAERR     9
                                        *         ADDED THE FOLLOWING GENERAL RULES MUST BE ADHERED TO --        COMAERR    10
                                        *         1.  ALL DIAGNOSTICS MUST START WITH  E.XXX                     COMAERR    11
                                        *                                                                        COMAERR    12
                                        *             WHERE XXX HAS SOME MEANING AS TO THE SECTION WHERE THE     COMAERR    13
                                        *             ERROR WAS DETECTED.                                        COMAERR    14
                                        *                                                                        COMAERR    15
                                        *         2.  ANY DIAGNOSTIC THAT USES A FILL. AND DOES NOT PRESET IT TO COMAERR    16
                                        *             INTERNAL FORM MUST HAVE EITHER *S* OR *V* AS THE SECOND    COMAERR    17
                                        *             CHARACTER SPECIFIED IN THE DIAGNOSTIC DEFINITION.          COMAERR    18
                                        *                *S* FORM = FILL. IS ALREADY IN 0L FORM.                 COMAERR    19
                                        *                *V* FORM = FILL. SHOULD BE FORMED FROM *SB* STARTING    COMAERR    20
                                        *                           AT B4.                                       COMAERR    21
                                        *                                                                        COMAERR    22
                                        *         3.  ALL *ANSI* DIAGNOSTICS SHOULD USE *ANSI* MACRO TO OUTPUT   COMAERR    23
                                        *             GIVEN ANSI ERROR. (THIS WILL IMPROVE THE SPEED OF          COMAERR    24
                                        *             COMPILATION WHEN *ANSI* ERRORS ARE NOT REQUESTED.)         COMAERR    25
                                        *                                                                        COMAERR    26
                                        *         4.  ALL COLON/SEMICOLON BREAKS IN DIAGNOSTICS MUST USE *--*    COMAERR    27
                                        *             TO REPRESENT BREAK.                                        COMAERR    28
                                        *                                                                        COMAERR    29
                                        *         5.  DIAGNOSTICS MAY BE ANY OF THE FOLLOWING TYPES              COMAERR    30
                                        *            (ONLY THE FIRST CHARACTER OF TYPE IS USED...)               COMAERR    31
                                        *                                                                        COMAERR    32
                                        *            A - ANSI.  USAGE DOES NOT CONFORM TO AMERICAN NATIONAL      COMAERR    33
                                        *                STANDARD FORTRAN, X3J3/90-1977.                         COMAERR    34
                                        *                                                                        COMAERR    35
                                        *            C - CONTINUATION.  THIS IS A CONTINUATION OF A PREVIOUS     COMAERR    36
                                        *                DIAGNOSTIC.  IT WILL GET PRINTED OR NOT ACCORDING TO    COMAERR    37
                                        *                WHETHER THE PREVIOUS ERROR WAS SELECTED.                COMAERR    38
                                                                                                                 COMAERR    39
                                        *            D - DEBUG.  INFORMATIVE FOR MAINTENANCE.  TEST MODE ONLY.   COMAERR    40
                                        *                                                                        COMAERR    41
                                        *            F - FATAL.  FATAL TO EXECUATION.  INHIBITS BINARY OUTPUT.   COMAERR    42
                                        *                                                                        COMAERR    43
                                        *            K - CATASTROPHIC.  FATAL TO COMPILATION.  RESUME WITH NEXT  COMAERR    44
                                        *                PROGRAM UNIT.                                           COMAERR    45
                                        *                                                                        COMAERR    46
                                        *            T - TRIVIAL.  NO ACTUAL VIOLATION OF THE LANGUAGE, BUT THE  COMAERR    47
                                        *                STATEMENT SO FLAGGED MAY RESULT IN NO ACTION.  (E.G.,   COMAERR    48
                                        *                NULL TRANSFERS)                                         COMAERR    49
                                        *                                                                        COMAERR    50
                                        *            W - WARNING.  A MORE SEVERE ERROR THAN TRIVIAL.  LANGUAGE   COMAERR    51
                                        *                MAY HAVE BEEN VIOLATED, BUT COMPILER COULD FIGURE OUT   COMAERR    52
                                        *                WHAT WAS INTENDED.                                      COMAERR    53
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     3
        COMAERR - ERROR MACROS.                                       LIMITS
  
                                        ***       ------    LIMITATIONS ON DIAGNOSTICS    ------                 COMAERR    55
                                        *                                                                        COMAERR    56
                                        *                                                                        COMAERR    57
                                        *         1.  NO DIAGNOSTIC MAY EXCEED 16 WORDS, NOR MAY IT BE TOO LONG  COMAERR    58
                                        *             TO FIT ON ONE TTY LINE (UP TO 72 CHARACTERS MAY BE LISTED) COMAERR    59
                                        *                                                                        COMAERR    60
                                        *         2.  NO DIAGNOSTIC MAY USE A COLON.                             COMAERR    61
                                        *                                                                        COMAERR    62
                                        *         3.  NUMBER OF WORDS IN DICTIONARY MUST NOT EXCEED              COMAERR    63
                                        *             512 WORDS.                                                 COMAERR    64
                                        *                                                                        COMAERR    65
                                        *         4.  NO DIAGNOSTIC MAY USE A SPECIAL CHARACTER > 65B DPC AS THE COMAERR    66
                                        *             LAST CHARACTER IN A 10H WORD.                              COMAERR    67
                                        *                                                                        COMAERR    68
                                        *         5.  SPECIAL CARE SHOULD BE USED WHEN A WORD IN THE ERROR       COMAERR    69
                                        *             MESSAGE CONTAINS EITHER A *(* OR *)*.                      COMAERR    70
  
  
  
  
                                        **               THE N-WORD FORMAT IS --                                 COMAERR    72
                                        *                                                                        COMAERR    73
                                        **T  FIRST    9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,5/ERTYP,1/M,18/ERXIT       COMAERR    74
                                        **T  REST     9/ERWD1,9/ERWD2,9/ERWD3,9/ERWD4,9/ERWD5,9/ERWD6,5/0,1/M    COMAERR    75
                                        *                                                                        COMAERR    76
                                        *         ERWD(I) = DICTIONARY ORDINAL OF THE TEXT WORD.  A ZERO ORDINAL COMAERR    77
                                        *                INDICATES THE END OF THE MESSAGE.                       COMAERR    78
                                        *         ERTYPE = ORDINAL OF THE ERROR-TYPE-SELECTION SWITCH.  DEFINED  COMAERR    79
                                        *                BY THE *ERRTYP* MACRO, AND LINKED TO BY *ERROR* MACRO.  COMAERR    80
                                        *                *PEM* WILL LIST THIS ERROR IF THE CELL POINTED TO BY    COMAERR    81
                                        *                THE INDICATED SWITCH IS NEGATIVE.                       COMAERR    82
                                        *         M    = IF SET, MORE SKELETON WORDS FOLLOW.                     COMAERR    83
                                        *                IF CLEAR, THE MESSAGE IS OVER.                          COMAERR    84
                                        *         ERXIT = IF POSITIVE, ADDRESS TO RETURN TO AFTER PROCESSING.    COMAERR    85
                                        *                 IF NEGATIVE, EXIT IS TO *PWE1*, AND (ERXIT)-4S15 IS    COMAERR    86
                                        *                THE SPECIAL FORMATTING ADDRESS.                         COMAERR    87
                                        *                                                                        COMAERR    88
                                        *         THE LAST CHARACTER OF EACH WORD IN THE DICTIONARY INDICATES    COMAERR    89
                                        *         HOW MANY CHARACTERS ARE IN THAT WORD.  THIS IS DONE SO *PEM*   COMAERR    90
                                        *         DOES NOT HAVE TO LOOP ON EACH CHARACTER.  IF THE WORD CONTAINS COMAERR    91
                                        *         TEN CHARACTERS, THE LAST CHARACTER IS UNMODIFIED.  IF THE WORD COMAERR    92
                                        *         CONTAINS FEWER THAN TEN CHARACTERS, THE LAST CHARACTER IS SET  COMAERR    93
                                        *         = DT.BIAS + (LENGTH OF WORD).  THE *ERROR* AND *ERRLIT* MACROS COMAERR    94
                                        *         CREATE SUCH WORDS, AND PUT THEM IN THE LITERAL POOL.  THUS,    COMAERR    95
                                        *         THE ASSEMBLER ELIMINATES DUPLICATES AUTOMATICALLY.             COMAERR    96
                                        *                                                                        COMAERR    97
                                        *         IF THE ERROR MESSAGE WORD IS .GT. 10 CHARACTERS THE DICTIONARY COMAERR    98
                                        *         WORD WILL CONTAIN 9 CHARACTERS FOLLOWED BY A COLON AND THE     COMAERR    99
                                        *         MESSAGE WORD WILL BE CONTINUED INTO THE NEXT DICTIONARY WORD.  COMAERR   100
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     4
        COMAERR - ERROR MACROS.                                       ERROR 
  
                                        **        ERROR - MACRO TO DEFINE ERROR MESSAGES.                        COMAERR   102
                                        *                                                                        COMAERR   103
                                        *         ALL ERROR MESSAGES MUST BE DEFINED BY THIS MACRO.              COMAERR   104
                                        *         TRANSLATES THE DIAGNOSTIC TEXT INTO THE FORM DISCUSSED ABOVE,  COMAERR   105
                                        *         WHILE GENERATING A DICTIONARY OF LITERALS.                     COMAERR   106
                                        *                                                                        COMAERR   107
                                        *                                                                        COMAERR   108
                                        * LOC     ERROR  TYPE,EXIT,(TEXT)                                        COMAERR   109
                                        *                                                                        COMAERR   110
                                        *         TYPE   =  ONE OR TWO CHARACTER ERROR-TYPE INDICATOR.           COMAERR   111
                                        *                1.  FIRST CHARACTER DESCRIBES THE SEVERITY OF THE       COMAERR   112
                                        *                    ERROR -- VALID CHARACTERS ARE DEFINED BY *ERRTYP*   COMAERR   113
                                        *                    MACRO, Q.V.                                         COMAERR   114
                                        *                2.  SECOND CHARACTER SELECTS SPECIAL FILL. FORMATTING   COMAERR   115
                                        *                    BY THE ERROR PROCESSOR.  SEE *PEM* FOR DETAILS.     COMAERR   116
                                        *                                                                        COMAERR   117
                                        *         EXIT   =  ADDRESS TO RETURN TO AFTER PRINTING THE DIAGNOSTIC.  COMAERR   118
                                        *                IF IT IS "*" (STAR, 46B DPC), THEN CONTROL RETURNS TO   COMAERR   119
                                        *                CALLER, AND ERROR MUST BE REFERENCED BY ANSI, FATAL,    COMAERR   120
                                        *                NOTE, OR WARN MACRO.                                    COMAERR   121
                                        *                OTHERWISE, IT IS SIMPLY THE ADDRESS TO RETURN TO AFTER  COMAERR   122
                                        *                PROCESSING THE ERROR.                                   COMAERR   123
                                        *                                                                        COMAERR   124
                                        *         TEXT   =  FROM ONE TO 16 WORDS OF TEXT.  WORDS ARE SEPARATED   COMAERR   125
                                        *                BY BLANKS.  NO WORD MAY CONTAIN A NEGATION (^ 76B), OR  COMAERR   126
                                        *                SEMI-COLON (; 77B).  THE TENTH CHARACTER OF A WORD MAY  COMAERR   127
                                        *                NOT BE A CHARACTER WITH DPC .GE.65B NOR MAY IT BE A     COMAERR   128
                                        *                COLON.                                                  COMAERR   129
                                                                                                                 COMAERR   130
                                                                                                                 COMAERR   131
                                                  MACRO  ERROR,LOC,TYPE,EXIT,MSG                                 COMAERR   132
                                        *                                                                        COMAERR   133
                                        *                DETERMINE (A)  SPECIAL FORMATTING, AND (B) SEVERITY.    COMAERR   134
                                        *                                                                        COMAERR   135
                                         A        MICRO  2,1,/TYPE/                                              COMAERR   136
                                         B        MICRO  1,1, TYPE                                               COMAERR   137
                                        *                                                                        COMAERR   138
                                        *                SET UP (LOC) CALLING STYLE, AND (X) EXIT ADDRESS.       COMAERR   139
                                        *                                                                        COMAERR   140
                                                  ENTRY  LOC                                                     COMAERR   141
                                        .3        IFC    EQ, EXIT *                                              COMAERR   142
                                         LOC      EQU    DT.NEXT                                                 COMAERR   143
                                         X        MICRO  1,, =XPEM"A"+4S15                                       COMAERR   144
                                        .3        ELSE                                                           COMAERR   145
                                         LOC      SB7    DT.NEXT                                                 COMAERR   146
                                                  EQ     =XPEM"A"                                                COMAERR   147
                                         X        MICRO  1,, =X_EXIT                                             COMAERR   148
                                        .3        ENDIF                                                          COMAERR   149
                                        *                                                                        COMAERR   150
                                                  USE    FORMAT.                                                 COMAERR   151
                                         T        MICRO  1,,^_MSG_^                                              COMAERR   152
                                        *                                                                        COMAERR   153
                                        *                DUP THRU THE MESSAGE FOR EACH WORD.                     COMAERR   154
                                        *                                                                        COMAERR   155
                                         L        SET    0                                                       COMAERR   156
                                         U        MICRO  1,,                                                     COMAERR   157
                                        .1        DUP    16                                                      COMAERR   158
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     5
        COMAERR - ERROR MACROS.                                       ERROR 
  
                                         L        SET    L+1                                                     COMAERR   159
                                         .2       IFC    NE,^^"T"^                                               COMAERR   160
                                                  IFC    EQ,/"U"//,2                                             COMAERR   161
                                         S        MICRO  1,, "T"                                                 COMAERR   162
                                                  SKIP   2                                                       COMAERR   163
                                         S        MICRO  1,, "U"                                                 COMAERR   164
                                         U        MICRO  1,,                                                     COMAERR   165
                                                  ERRMIC S                                                       COMAERR   166
                                                  IFEQ   L,5,1                                                   COMAERR   167
                                                  VFD    L=ERTYPE/=XERR."B",1/1,L=ERXIT/"X"                      COMAERR   168
                                                  IFEQ   L,11,1                                                  COMAERR   169
                                                  VFD    L=ERMORE/0,1/1                                          COMAERR   170
                                                  VFD    L=ERWORD/1-DICT+=10H"S""A"                              COMAERR   171
                                         .2       ELSE   1                                                       COMAERR   172
                                                  STOPDUP                                                        COMAERR   173
                                        .1        ENDD                                                           COMAERR   174
                                        .4        IFC    NE,^^"T"^                                               COMAERR   175
                                         4        ERR    LOC  -- TOO MANY WORDS IN TEXT -- TRUNCATED AFTER       COMAERR   176
                                        ,                            ("T")                                       COMAERR   177
                                        .4        ENDIF                                                          COMAERR   178
                                        *                                                                        COMAERR   179
                                        *                WRAP UP, AND BIND OFF THE SKELETON.                     COMAERR   180
                                        *                                                                        COMAERR   181
                                        .6        IFEQ   *,DT.NEXT                                               COMAERR   182
                                                  POS    P=ERTYPE                                                COMAERR   183
                                                  VFD    L=ERTYPE/=XERR."B",1/0,L=ERXIT/"X"                      COMAERR   184
                                        .6        ELSE   1                                                       COMAERR   185
                                                  POS    0                                                       COMAERR   186
                                         DT.NEXT  SET    *                                                       COMAERR   187
                                                  USE    *                                                       COMAERR   188
                                                  ENDM                                                           COMAERR   189
                                                                                                                 COMAERR   190
                                                                                                                 COMAERR   191
                                         ERRMIC   MACRO  S                                                       COMAERR   192
                                         K        MICCNT S                                                       COMAERR   193
                                                  IFGT   K,10,5                                                  COMAERR   194
                                         U        MICRO  10,, "S"                                                COMAERR   195
                                         S        MICRO  1,9, "S"                                                COMAERR   196
                                         A        MICRO  1,1,/:/                                                 COMAERR   197
                                         K        SET    8                                                       COMAERR   198
                                                  SKIP   3                                                       COMAERR   199
                                                  IFLT   K,9,1                                                   COMAERR   200
                                         S        MICRO  1,9,^"S"        ^                                       COMAERR   201
                                         A        MICRO  K,1,/!&'?<>@\^ /                                        COMAERR   202
                                         T        MICRO  K+2,,^"T"^                                              COMAERR   203
                                         ERRMIC   ENDM                                                           COMAERR   204
                                                                                                                 COMAERR   205
                                                                                                                 COMAERR   206
                                  65     DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC            COMAERR   207
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     6
        COMAERR - ERROR MACROS.                                       ERRLIT
  
                                        **        ERRLIT - MACRO TO GENERATE A LITERAL OF PROPER FORM FOR ERROR  COMAERR   209
                                        *                MESSAGE PROCESSOR.                                      COMAERR   210
                                        *                                                                        COMAERR   211
                                        *         ERRLIT WORD                                                    COMAERR   212
                                                                                                                 COMAERR   213
                                                                                                                 COMAERR   214
                                                  MACRO  ERRLIT,LOC,WORD                                         COMAERR   215
                                         S        MICRO  1,,^_WORD_^                                             COMAERR   216
                                                  ERRMIC S                                                       COMAERR   217
                                         LOC      LIT    10H"S""A"                                               COMAERR   218
                                                  IFC    NE,/LOC//,1                                             COMAERR   219
                                                  ENTRY  LOC                                                     COMAERR   220
                                         ERRLIT   ENDM                                                           COMAERR   221
                                                                                                                 COMAERR   222
                                                                                                                 COMAERR   223
                                                  USE    FORMAT.                                                 COMAERR   224
                                  27 +   DT.NEXT  SET    *                                                       COMAERR   225
                                                  USE    *                                                       COMAERR   226
                                                  NOREF  DT.NEXT                                                 COMAERR   227
  
  
  
  
                                        **        DICT - THESE MUST BE THE FIRST LITERALS IN THE (1,0) OVERLAY.  COMAERR   229
                                        *         THESE LITERALS ARE USED BY ERROR PROCESSING ROUTINES.          COMAERR   230
                                                                                                                 COMAERR   231
                                         T        MICRO  1,,                                                     COMAERR   232
                                                                                                                 COMAERR   233
                                                  ENTRY  DICT,FILL.,FILL.2,FILL.3,L.FILL                         COMAERR   234
                                   1 +   DICT     LIT    1H          BASE ADDRESS OF LITERALS                    COMAERR   235
                                                  NOREF  DICT                                                    COMAERR   236
                                                                                                                 COMAERR   237
                                         FILL.    ERRLIT FILL.       THESE ARE FOR MESSAGE FILL-INS              COMAERR   238
                                         FILL.2   ERRLIT FILL.2                                                  COMAERR   239
                                         FILL.3   ERRLIT FILL.3                                                  COMAERR   240
                                   3     L.FILL   EQU    FILL.3-FILL.+1 LENGTH OF FILL. REGION FOR PEMS.         COMAERR   241
                                         COMAERR  ENDX                                                           COMAERR   242
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     7
        COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR
  
             0                                    CTEXT  COMSERR - SYMBOL DEFINITIONS FOR ERROR PROCESSOR        COMSERR     2
  
  
  
  
                                        **        DISPLAY CODE VALUES OF ASSEMBLY CONSTANTS.                     COMSERR     4
                                                                                                                 COMSERR     5
                                                                                                                 COMSERR     6
                                  23     ANS.CONT DECMIC ANS.CONT    MAX CONTINUATION LINES ALLOWED BY ANSI      COMSERR     7
                                2003     L.IOBUF6 OCTMIC L.IOBUF6    DEFAULT IO BUFFER LENGTH                    COMSERR     8
                                 764     MAX.BLK  DECMIC MAX.BLK     MAX COMMON BLOCKS ALLOWED                   COMSERR     9
                              360000     MAX.BUFL OCTMIC MAX.BUFL    MAX IO BUFFER LENGTH                        COMSERR    10
                                   7     MAX.DIM  DECMIC MAX.DIM     MAX DIMENSIONS ALLOWED                      COMSERR    11
                                 764     MAX.SARG DECMIC MAX.SARG    MAX SUBPROGRAM ARGUMENTS                    COMSERR    12
                                  61     MAX.PARG DECMIC MAX.PARG    MAX MAIN PROGRAM ARGUMENTS                  COMSERR    13
                                   7     MAX.LFN  DECMIC MAX.LFN     MAX CHARACTERS IN LOGICAL FILE NAME         COMSERR    14
                              377777     MAX.RECL OCTMIC MAX.RECL    MAX RECORD LENGTH                           FC5A145     4
                                 211     NOR.RECL DECMIC NOR.RECL    NORMAL RECORD LENGTH                        COMSERR    17
                                         MAX.CL   MICRO  1,, 2**15-1 MAX CHARACTER LENGTH                        COMSERR    18
                                   0              ERRNZ  1S15-1-MAX.CL     MAX.CL OUT OF SYNCH WITH TEXT         COMSERR    19
                                         MAX.SPAN MICRO  1,, 2**23-1 MAX DIMENSION SPAN                          COMSERR    20
                                   0              ERRNZ  23-MAX.SPAN                                             COMSERR    21
                              377777     MAX.SPCM DECMIC MAX.SPCM                                                COMSERR    22
                             3777770     MAX.SPLC DECMIC MAX.SPLC                                                COMSERR    23
  
  
  
  
                                        ****      ERRSKEL - ERROR MESSAGE SKELETON TABLE FORMAT.                 COMSERR    25
                                        *                                                                        COMSERR    26
                                        *         IN ORDER TO REDUCE CORE REQUIREMENTS AND STILL PRINT FULL-LINE COMSERR    27
                                        *         NARRATIVE DIAGNOSTICS BENEATH THE STATEMENT, ERROR MESSAGE     COMSERR    28
                                        *         TEXT IS KEPT IN A SKELETAL FORM, WHEREIN EACH WORD IS          COMSERR    29
                                        *         REPRESENTED BY AN ORDINAL INTO A DICTIONARY.                   COMSERR    30
                                                                                                                 COMSERR    31
                                                                                                                 COMSERR    32
                                   4     N.ER1ST  EQU    4                                                       COMSERR    33
                                   6     N.ERREST EQU    6                                                       COMSERR    34
                                                  DESCRIBE ER.,60                                                COMSERR    35
      L     23  00000000000076000000     TYP      DEFINE 5,23        ERROR TYPE INDICATOR                        COMSERR    36
      L      1  00000000000001777776     XIT      DEFINE 18          EXIT ADDRESS                                COMSERR    37
                                  11     ER.WORDL EQU    9           LENGTH OF EACH ORDINAL BYTE                 COMSERR    38
      L      5  00000000000000000040     MORE     DEFINE 1,5         CONTINUATION FLAG                           COMSERR    39
                                        ****                                                                     COMSERR    40
                                  11     L=ERWORD EQU    ER.WORDL                                                COMSERR    41
                                   5     L=ERTYPE EQU    ER.TYPL                                                 COMSERR    42
                                  30     P=ERTYPE EQU    ER.TYPP+ER.TYPL                                         COMSERR    43
                                   5     L=ERMORE EQU    ER.TYPL                                                 COMSERR    44
                                  22     L=ERXIT  EQU    ER.XITL                                                 COMSERR    45
                                                  NOREF  L=ERWORD,L=ERTYPE,P=ERTYPE,L=ERMORE,L=ERXIT             COMSERR    46
                                  65     DT.BIAS  EQU    1R!-1       MUST AGREE WITH STRING IN ERRMIC            COMSERR    47
                                         COMSERR  ENDX                                                           COMSERR    48
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     8
        COMFERR                                                       COMFERR 
  
             0                           COMFERR  CTEXT  COMFERR                                                 COMFERR     2
  
  
  
  
                                        **        COMMON DIAGNOSTIC SKELETONS                                    COMFERR     4
                                        *                                                                        COMFERR     5
                                        *         ALL DIAGNOSTICS APPEARING IN DECKS BELOW SHOULD BE PLACED IN   COMFERR     6
                                        *         THIS COMDECK.                                                  COMFERR     7
                                        *                                                                        COMFERR     8
                                        *         REC, RLINK, PEM, ALLOC, FAS, MAP, LIST                         COMFERR     9
                                                                                                                 COMFERR    10
                                                                                                                 COMFERR    11
            27  005                      E.MO1    ERROR  F,*,(PROGRAM LENGTH EXCEEDS 2**17-1)                    COMFERR    12
            30  011                      E.MO2    ERROR  F,*,(TABLE OVERFLOW -- INCREASE FIELD LENGTH AND RERUN) COMFERR    13
                                                                                                                 COMFERR    15
                                         .TEST    IFEQ   TEST,ON     IF TESTMODE                                 COMFERR    16
                                         E.MO4    ERROR  D,*,(PREBINARY SPILLS TO DISK)                          COMFERR    17
                                         E.MO5    ERROR  D,*,(REFERENCE FILE SPILLS TO DISK)                     COMFERR    18
                                         E.MO6    ERROR  DS,*,(THRESHOLD REACHED -- ONLY FILL. LEFT OUT OF FILL. COMFERR    19
                                        ,2)                                                                      COMFERR    20
                                         E.MO7    ERROR  D,*,(LINK AND FILL TABLES SPILLS TO DISK)               COMFERR    21
                                         .TEST    ENDIF                                                          COMFERR    22
                                                                                                                 COMFERR    23
            32  020                      E.MO8    ERROR  F,*,("SCM" COMMON BLOCK LENGTH EXCEEDS "MAX.SPCM")      COMFERR    24
                                                                                                                 COMFERR    25
                                         .T       IFEQ   TEST,ON                                                 COMFERR    26
                                         E.TC1    ERROR  DS,*,(TABLE FILL. CRASH)                                COMFERR    27
                                         .T       ENDIF                                                          COMFERR    28
                                                                                                                 COMFERR    29
                                         COMFERR  ENDX                                                           COMFERR    30
  
  
  
  
                                        **        (2,2) PRODUCED ERRORS.                                         RERRS      15
                                        *                                                                        RERRS      16
                                                                                                                 RERRS      17
                                                                                                                 RERRS      18
            34  024                      E.CCG    ERROR  F,*,("LCM" HARDWARE ERROR)                              RERRS      19
  
  
  
  
                                                  LIST   D                                                       RERRS      21
  
                                        CONTENT OF LITERALS BLOCK.
  
             1  55555555555555555555
             2  06111414575555555572    FILL.    <
             3  06111414573555555573    FILL.2   >
             4  06111414573655555573    FILL.3   >
             5  20221707220115555574    PROGRAM  @
             6  14051607241055555573    LENGTH   >
             7  05300305050423555574    EXCEEDS  @
            10  35474734424634555574    2**17-1  @
            11  24010214055555555572    TABLE    <
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE     9
        COMFERR                                                       LITERALS
  
            12  17260522061417275575    OVERFLOW \
            13  46465555555555555567    --       &
            14  11160322050123055575    INCREASE \
            15  06110514045555555572    FIELD    <
            16  01160455555555555570    AND      '
            17  22052225165555555572    RERUN    <
            20  03155555555555555567    CM       &
            21  03171515171655555573    COMMON   >
            22  02141703135555555572    BLOCK    <
            23  34363433423455555573    131071   >
            24  05032355555555555570    ECS      '
            25  10012204270122055575    HARDWARE \
            26  05222217225555555572    ERROR    <
  
            35                                    END                                                            RERRS      22
  
                             67600B CM  STORAGE USED              984 STATEMENTS     1673 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.980 SECONDS          63 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ANS.CONT       23   FTX             7/09
        B1=1            0 
        DT.BIAS        65                   5/49 D    7/51 D
        ERR.D           0   EXTERNAL*       1/40 X
        ERR.F           0   EXTERNAL*       1/40 X    8/14      8/15      8/25      8/40
        ER.MOREM       40                   7/43 D
        ER.MOREP        5                   7/43 D
        ER.TYPL         5                   7/40 D    7/46      7/47      7/48
        ER.TYPP        23                   7/40 D    7/47
        ER.WORDL       11                   7/42 D    7/45
        ER.XITL        22                   7/41 D    7/49
        ER.XITP         1                   7/41 D
        E.CCG          34   PROGRAM*        8/40 E    8/40 D
        E.MO1          27   PROGRAM*        8/14 E    8/14 D
        E.MO2          30   PROGRAM*        8/15 E    8/15 D
        E.MO8          32   PROGRAM*        8/25 E    8/25 D
        FILL.           2   PROGRAM*        6/29 E    6/33 E    6/36
        FILL.2          3   PROGRAM*        6/29 E    6/34 E
        FILL.3          4   PROGRAM*        6/29 E    6/35 E    6/36
        L.FILL          3                   6/29 E    6/36 D
        L.IOBUF6     2003   FTX             7/10
        MAX.BLK       764   FTX             7/11
        MAX.BUFL   360000   FTX             7/12
        MAX.CL      77777   FTX             7/20
        MAX.DIM         7   FTX             7/13
        MAX.LFN         7   FTX             7/16
        MAX.PARG       61   FTX             7/15
        MAX.RECL   377777   FTX             7/17
        MAX.SARG      764   FTX             7/14
        MAX.SPAN       27   FTX             7/22
        MAX.SPCM   377777   FTX             7/23
        MAX.SPLC  3777770   FTX             7/24
        NOR.RECL      211   FTX             7/18
        N.ERREST        6                   7/38 D
1       RERRS - REAR END ERROR MESSAGE TEXTS.                         COMPASS 3.7-871.     24/05/02. 13.18.41.      PAGE    10
        SYMBOLIC REFERENCE TABLE. 
  
        N.ER1ST         4                   7/37 D
        PEM             0   EXTERNAL*       1/37 X    8/14      8/15      8/25      8/40
        PEMS            0   EXTERNAL*       1/37 X
        TEST            0   FTX             8/17 F    8/27 F
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      433              IDENT  RLINK
                        433                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0       432 
                                        LITERALS* LOCAL         432         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=RLINK          0+           LEXFLG           1+           BCT            332+ 
                                        FEC=BY           0            LDB              2+           SMB            352+ 
                                        STAGE            0+           CGE              4+           PAT            367+ 
                                        BLL              1+           LSR             13+           PCA            411+ 
                                        CHARMAP          1+           N.ALTEN         14+           SCS            422+ 
                                        FEC.RTN          1+           CII            165+           SCSA           431+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       RNI       S=CON     T=CON     T.CON     T.SYM     E.MO2 
                                        APCON     PDM       T=APL     T.APL     T.CUT     T=NLST    SNR 
                                        ERR22     N.TABLE   T=CAC     T.CAC     T.STMT    E.CCG 
  
  
  
  
                                                  IDENT  RLINK                                                   RLINK       2
                                         RLINK    SECT   (REAR-END LINKAGES.)                                    RLINK       3
  
  
  
  
  
                                        *         IN ALLOC                                                       RLINK       5
                                                  EXT    ADW                                                     RLINK       6
                                                                                                                 RLINK       7
                                        *         IN CCGLINK                                                     RLINK       8
                                                  EXT    APCON,ERR22                                             RLINK       9
                                                                                                                 RLINK      10
                                        *         IN FAS                                                         RLINK      11
                                                  EXT    RNI                                                     RLINK      12
                                                                                                                 RLINK      13
                                        *         IN PEM                                                         RLINK      14
                                                  EXT    PDM                                                     RLINK      15
                                                                                                                 RLINK      16
                                        *         IN PUC                                                         RLINK      17
                                                  EXT    N.TABLE,S=CON,T=APL,T=CAC,T=CON,T.APL,T.CAC,T.CON,T.CUT RLINK      18
                                                  EXT    T.STMT,T.SYM,T=NLST                                     FC51315     6
                                                                                                                 RLINK      20
                                        *         IN RERRS                                                       RLINK      21
                                                  EXT    E.CCG,E.MO2                                             RLINK      22
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     2
                                                                      RLINK 
  
                                        ***              RLINK PROVIDES ENTRY POINTS.......                      RLINK      24
                                                                                                                 RLINK      25
                                                                                                                 RLINK      26
                                         FEC=BY   EQUENT 0                                                       RLINK      27
             0                     1     STAGE    BSSENT 1                                                       RLINK      28
                                                                                                                 RLINK      29
             1                           BLL      BSSENT                                                         RLINK      30
             1                           CHARMAP  BSSENT                                                         RLINK      31
             1                           FEC.RTN  BSSENT                                                         RLINK      32
             1                           LEXFLG   BSSENT                                                         FC50889    21
             1  0400400001 +                      EQ     "BLOWUP"                                                RLINK      33
                                                                                                                 RLINK      34
                                                                                                                 RLINK      35
             2  0400400002 +             LDB      SUBR   =           DUMMY ENTRY POINT                           RLINK      36
                                         .T       IFEQ   TEST,ON,2                                               RLINK      37
                                                  SA1    =XT.STMT                                                RLINK      38
                                                  NZ     X1,"BLOWUP" IF STATEMENT TABLE NOT EMPTY                RLINK      39
             3  0400000002 +                      EQ     EXIT.                                                   RLINK      40
  
  
  
  
                                        **        CGE -  CHECK (CODE) GENERATOR ERRORS                           RLINK      42
                                        *                                                                        RLINK      43
                                        *         QUERIES *ERR22* FOR ERRORS NOTED DURING (2,2) OVERLAY.         RLINK      44
                                        *         OUTPUTS THE PROPER DIAGNOSTIC, AS APPLICABLE.                  RLINK      45
                                                                                                                 RLINK      46
                                                                                                                 RLINK      47
             4  0400400004 +             CGE      SUBR   =           ...ENTRY/EXIT...                            RLINK      48
             5  5110000000 X                      SA1    ERR22                                                   RLINK      49
                          0301000004 +            ZR     X1,EXIT.    IF NO DIAGNOSTICS TO OUTPUT                 RLINK      50
             6  6170000000 X                      SB7    E.MO2       INSUFFICIENT FL                             RLINK      51
                          7211777776              SX1    X1-1                                                    RLINK      52
             7  0311000010 +                      NZ     X1,CGE1     IF NOT FL MESSAGE                           RLINK      53
                          6170000000 X            SB7    E.CCG       ECS/LCM HARDWARE ERROR                      RLINK      54
                                                                                                                 RLINK      55
            10  0100000000 X             CGE1     FATAL  B7                                                      RLINK      56
            11  7160000000                        SX6    0                                                       RLINK      57
                          5160000000 X            SA6    ERR22       CLEAR DIAGNOSTIC FLAG                       RLINK      58
            12  0400000004 +                      EQ     EXIT.                                                   RLINK      59
  
  
  
  
            13  00000000000000000000     LSR      CONENT 0           .NZ. IF FORMAL PARAMETER REFERENCE          RLINK      61
            14  00000000000000000000     N.ALTEN  CONENT 0           NUMBER OF ALTERNATE ENTRIES                 RLINK      62
                                                                                                                 RLINK      63
                                                                                                                 RLINK      64
                                        *         RTT - REGISTER TRANSLATION TABLE.                              RLINK      65
                                                                                                                 RLINK      66
            15                           RTT      BSS                                                            RLINK      67
                                                  ECHO   2,T=(1,0,2) (B,A,X)                                     RLINK      68
                                                  ECHO   1,N=(0,1,2,3,4,5,6,7)                                   RLINK      69
                                                  VFD    9/200B,3/T,45/0,3/N                                     RLINK      70
                                                                                                                 RLINK      71
                                                                                                                 RLINK      72
                                        *         HTT - H FIELD TRANSLATION TABLE.                               RLINK      73
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     3
                                                                      CELLS 
  
                                                                                                                 RLINK      74
            45                           HTT      BSS                                                            RLINK      75
                                                  ECHO   1,T=(4,5,6,7,3)   RJOBK (A+,A-,B+,B-,X+)                RLINK      76
                                                  VFD    6/T,54/0                                                RLINK      77
                                                                                                                 RLINK      78
                                                                                                                 RLINK      79
                                        *         BJT - B JUMP TABLE.                                            RLINK      80
                                                                                                                 RLINK      81
            52                           BJT      BSS                                                            RLINK      82
                                   4     .Z       SET    4                                                       RLINK      83
                                                  ECHO   2,T=(EQ,NE,GE,LT)                                       RLINK      84
                                         JB.T     =      .Z                                                      RLINK      85
                                         .Z       SET    .Z+1                                                    RLINK      86
                                                                                                                 RLINK      87
                                                  ECHO   1,JT=("BJUMPS")                                         RLINK      88
                                                  CON    JB.JT                                                   RLINK      89
  
  
  
  
                                        **        OPR - DEFINE OPR MACRO FOR JUMPS.                              RLINK      91
                                                                                                                 RLINK      92
                                                  PURGMAC            OPR                                         RLINK      93
                                                                                                                 RLINK      94
                                                  MACRO  OPR,NAM                                                 RLINK      95
                                                  EQ     CI=NAM                                                  RLINK      96
                                         OPR      ENDM                                                           RLINK      97
                                                                                                                 RLINK      98
            56                           OPJP     BSS                                                            RLINK      99
      L      0                                    LOC    0                                                       RLINK     100
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     4
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
      L      0                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                        **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.      OPRDEFS     3
  
  
                                        **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS      OPRDEFS     5
                                        *         M IS MAXIMUM STRING LENGTH                                     OPRDEFS     6
                                        *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS        OPRDEFS     7
                                                                                                                 OPRDEFS     8
                                                  MACRO  GETARG,S,N,M,SS                                         OPRDEFS     9
                                         S        MICRO  N-15,M,$SS$                                             OPRDEFS    10
                                         S        MICRO  1,, "S"                                                 OPRDEFS    11
                                         GETARG   ENDM                                                           OPRDEFS    12
                                                                                                                 OPRDEFS    13
                                        **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST    OPRDEFS    14
                                                                                                                 OPRDEFS    15
                                                  MACRO  V=,V,S,L1,L2                                            OPRDEFS    16
                                         V        SET    -1                                                      OPRDEFS    17
                                                  ECHO   3,P1=(L1),P2=(L2)                                       OPRDEFS    18
                                                  IFC    EQ,/S/P1/,2                                             OPRDEFS    19
                                         V        SET    P2                                                      OPRDEFS    20
                                                  STOPDUP                                                        OPRDEFS    21
                                                  ERRMI  V           ILLEGAL MACRO PARAM - S                     OPRDEFS    22
                                         V=       ENDM                                                           OPRDEFS    23
                                                                                                                 OPRDEFS    24
                                        **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO           OPRDEFS    25
                                                                                                                 OPRDEFS    26
                                                  MACRO  FUNIT,N,F66,F76                                         OPRDEFS    27
                                         M        IFEQ   .CPU,76,2                                               OPRDEFS    28
                                         N        EQU    F76 F66           DEFAULT TO 6600 UNIT                  OPRDEFS    29
                                         M        SKIP   1                                                       OPRDEFS    30
                                         N        EQU    F66                                                     OPRDEFS    31
                                         FUNIT    ENDM                                                           OPRDEFS    32
  
  
                                        **        FUNCTIONAL UNIT CODES FOR 6600/7600                            OPRDEFS    34
                                        *                                                                        OPRDEFS    35
                                        * UNIT    FUNIT  66,76 UNIT NUMBER                                       OPRDEFS    36
                                                                                                                 OPRDEFS    37
                                                  QUAL   FUNIT                                                   OPRDEFS    38
                                        *PSEUDO   FUNIT  0                                                       OPRDEFS    39
                                         BRANCH   FUNIT  1                                                       OPRDEFS    40
                                         BOOL     FUNIT  2                                                       OPRDEFS    41
                                         SHIFT    FUNIT  3                                                       OPRDEFS    42
                                         IADD     FUNIT  4                                                       OPRDEFS    43
                                         FADD     FUNIT  5                                                       OPRDEFS    44
                                         MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                  OPRDEFS    45
                                         DIVIDE   FUNIT  8                                                       OPRDEFS    46
                                         INC      FUNIT  9                 INC2 = 10 ON A 6600                   OPRDEFS    47
                                         NORM     FUNIT  SHIFT,7                                                 OPRDEFS    48
                                         BJUMP    FUNIT  INC,BRANCH                                              OPRDEFS    49
                                         XJUMP    FUNIT  IADD,BRANCH                                             OPRDEFS    50
                                         LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600        OPRDEFS    51
                                         POPC     FUNIT  DIVIDE,11                                               OPRDEFS    52
                                         PACK     FUNIT  SHIFT,BOOL                                              OPRDEFS    53
                                                  QUAL   *                                                       OPRDEFS    54
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     5
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
                                        **        FORMAT OF THE *OPR* DEFINITION IS -                            OPRDEFS    56
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     5
                                        *                                                                        OPRDEFS    58
                                        *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                        OPRDEFS    59
                                        *         TYPE - INSTRUCTION TYPE ( I - IV )                             OPRDEFS    60
                                        *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"            OPRDEFS    61
                                        *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT       OPRDEFS    62
                                        *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).   OPRDEFS    63
                                        *         T9   -  990 EXECUTION TIME OR "-" FOR SPECIAL INST             CCGA092     6
                                        *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST       OPRDEFS    64
                                        *                FOR B-JUMPS THE STACK TIME IS USED.                     OPRDEFS    65
                                        *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.              OPRDEFS    66
                                        *                TIME FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31      OPRDEFS    67
                                        *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.    OPRDEFS    68
                                        *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION         OPRDEFS    69
                                        *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS        OPRDEFS    70
                                        *               AVAILABLE AND DIFFERENT FROM THE FIRST.                  OPRDEFS    71
                                        *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600          OPRDEFS    72
                                        *                ( INCREMENT AND MULTIPLY ).                             OPRDEFS    73
                                        *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )               OPRDEFS    74
                                        *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                     OPRDEFS    75
                                        *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION               OPRDEFS    76
                                        *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )   OPRDEFS    77
                                        *                                                                        OPRDEFS    78
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     7
                                        *         PSEUDO INSTRUCTIONS                                            CCGA092     8
      L      0  0400000324 +             EOQ      OPR (  IV     -   -  1/ 1/1    -     -      -              A ) CCGA092     9
      L      1  0400000172 +             BOS      OPR (  IV     -   -      -     -     -      -                ) CCGA092    10
      L      2  0400000325 +             EOS      OPR (  IV     -   -      -     -     -      -              A ) CCGA092    11
      L      3  0400000321 +             DAR      OPR (  I      -   -      -     -     -      -                ) CCGA092    12
      L      4  0400000330 +             RS       OPR (  II     -   -      -     -     -      -       REGST    ) CCGA092    13
      L      5  0400000322 +             DEF      OPR (  II     -   -      -     -     -      -              D ) CCGA092    14
      L      6  0400000316 +             LAB      OPR (  IV     -   - 31/31/31   -     -      -              B ) CCGA092    15
      L      7  0400000323 +             ENT      OPR (  IV     -   -      -     -     -      -              B ) CCGA092    16
                                        *         REGISTER TO REGISTER MACHINE INSTRUCTIONS                      CCGA092    17
      L     10  0400000202 +             XMT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    18
      L     11  0400000175 +             AND      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    19
      L     12  0400000175 +             OR       OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    20
      L     13  0400000175 +             XOR      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    21
      L     14  0400000202 +             XMTC     OPR (  I      -   -  3/ 3/2  BOOL    -     15  K=J           ) CCGA092    22
      L     15  0400000206 +             STR      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    23
      L     16  0400000206 +             IMP      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    24
      L     17  0400000206 +             EQV      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    25
      L     20  0400000233 +             KLS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    26
      L     21  0400000233 +             KRS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    27
      L     22  0400000175 +             ILS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    28
      L     23  0400000175 +             IRS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    29
      L     24  0400000175 +             NR       OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    30
      L     25  0400000175 +             RNZ      OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    31
      L     26  0400000175 +             UP       OPR (  I      -   -  3/ 3/2  PACK    -     15  2R            ) CCGA092    32
      L     27  0400000175 +             PK       OPR (  I      -   -  3/ 3/2  PACK    -     15                ) CCGA092    33
      L     30  0400000175 +             FA       OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    34
      L     31  0400000175 +             FS       OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    35
      L     32  0400000175 +             DFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    36
      L     33  0400000175 +             DFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    37
      L     34  0400000175 +             RFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    38
      L     35  0400000175 +             RFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    39
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     6
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
      L     36  0400000175 +             IA       OPR (  I    COMM USI 3/ 3/2  IADD    -     15                ) CCGA092    40
      L     37  0400000175 +             IS       OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    41
      L     40  0400000175 +             FM       OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    42
      L     41  0400000175 +             RFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    43
      L     42  0400000175 +             DFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    44
      L     43  0400000233 +             FMA      OPR (  II     -   -  4/ 3/2  SHIFT   -     15  K=J  ZEROP    ) CCGA092    45
      L     44  0400000175 +             FD       OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    46
      L     45  0400000175 +             RFD      OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    47
      L     46  0400000171 +             NOP      OPR (  III    -   -      -     -     -      -       REGST    ) CCGA092    48
      L     47  0400000175 +             CX       OPR (  I      -   -  6/ 8/2  POPC    -     15  K=J           ) CCGA092    49
                                        *         MEMORY REFERENCE AND SET (LOAD IMMEDIATE ) INSTRUCTIONS        CCGA092    50
      L     50  0400000241 +             LD       OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    51
      L     51  0400000241 +             ST       OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    52
      L     52  0400000241 +             STT      OPR (  III    -   -  3/ 3/2  INC    FU1    30                ) CCGA092    53
      L     53  0400000241 +             PLD      OPR (  I      -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    54
      L     54  0400000241 +             PST      OPR (  I      -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    55
      L     55  0400000241 +             S        OPR (  II     -   -  3/ 3/2  INC    FU1    30       ZEROP    ) CCGA092    56
      L     56  0400000261 +             SLD      OPR (  I    COMM  -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    57
      L     57  0400000261 +             SST      OPR (  I    COMM  -  3/10/2  INC    FU1    15       STORE    ) CCGA092    58
      L     60  0400000261 +             SA       OPR (  I    COMM  -  3/ 3/2  INC    FU1    15                ) CCGA092    59
      L     61  0400000262 +             SDL      OPR (  I      -   -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    60
      L     62  0400000262 +             SDS      OPR (  I      -   -  3/10/2  INC    FU1    15       STORE    ) CCGA092    61
      L     63  0400000262 +             SS       OPR (  I      -   -  3/ 3/2  INC    FU1    15                ) CCGA092    62
      L     64  0400000213 +             DRL      OPR (  I      -   -  8/ 0/17 LCM     -     15       LOAD2    ) CCGA092    63
      L     65  0400000217 +             DWL      OPR (  I      -   -  3/ 0/3  LCM     -     15       STORE2   ) CCGA092    64
                                        *         CONDITIONAL JUMPS                                              CCGA092    65
      L     66  0400000327 +             RJXJ     OPR (  III    -   -  5/ 9/3  XJUMP   -     30       ECJUMP   ) CCGA092    66
      L     67  0400000272 +             JPX      OPR (  III    -   -  5/11/2  XJUMP   -     30       JUMP   C ) CCGA092    67
      L     70  0400000276 +             JPBB     OPR (  III    -   -  5/ 8/3  BJUMP   -     30       JUMP   C ) CCGA092    68
                                        *         UNCONDITIONAL JUMPS                                            CCGA092    69
      L     71  0400000303 +             JIN      OPR (  III    -   - 29/14/13 INC    FU1    30       UJUMP  A ) CCGA092    70
      L     72  0400000305 +             RJ3      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    71
      L     73  0400000307 +             RJ6      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    72
      L     74  0400000314 +             UJP      OPR (  IV     -   -  5/14/13 BJUMP  FU1    30       UJUMP  A ) CCGA092    73
                                        *         SPECIAL INSTRUCTIONS FOR THE OPTIMIZER                         CCGA092    74
      L     75  0400000241 +             ILD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    75
      L     76  0400000241 +             TLD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    76
      L     77  0400000241 +             TST      OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    77
      L    100  0400000230 +             IAZ      OPR (  I    COMM  -  3/ 3/2  IADD    -     15                ) CCGA092    78
      L    101  0400000231 +             ISZ      OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    79
      L    102  0400000232 +             IM       OPR (  I    COMM  -  7/10/5  MULT   FU1    15                ) CCGA092    80
      L    103  0400000236 +             LDC      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    81
      L    104  0400000326 +             LDV      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    82
      L    105  0400000320 +             CLR      OPR (  II     -   -  4/ 3/2  SHIFT  BOOL   15  K=J  ZEROP    ) CCGA092    83
      L    106  0400000331 +             SXT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    84
                                                                                                                 OPRDEFS   156
                                        *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                OPRDEFS   157
                                                                                                                 OPRDEFS   158
                                         BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                        OPRDEFS   159
                                         RELOPS   MICRO  1,,/EQ,NE,GT,LT,GE,LE/                                  OPRDEFS   160
                                         XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,IR,OR,DF,ID/                            OPRDEFS   161
                                         ^XJUMPS  MICRO  1,,/NZ,ZR,MI,PL,OR,IR,ID,DF/                            OPRDEFS   162
                                                                                                                 OPRDEFS   163
                                                  PURGMAC GETARG,FUNIT,V=,OPR                                    OPRDEFS   164
                                                  ENDX                                                           OPRDEFS   165
           165                                    LOC    *O                                                      RLINK     102
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     7
        CII - CONVERT ISSUED INSTRUCTIONS.                            CII 
  
                                        **        CII - CONVERT ISSUED INSTRUCTIONS.                             RLINK     105
                                        *                                                                        RLINK     106
                                        *         CALLED FROM *RAD* OF FAS TO CONVERT INSTRUCTIONS               RLINK     107
                                        *         FROM *SI* TO *PB* FORMAT.                                      RLINK     108
                                        *         ENTRY  (X5) = INSTRUCTION IN *SI* FORMAT                       RLINK     109
                                        *         EXIT   (X5) = INSTRUCTION IN *PB* FORMAT                       RLINK     110
                                                                                                                 RLINK     111
                                                                                                                 RLINK     112
           165  0400400165 +             CII      SUBR   =           ...ENTRY/EXIT...                            RLINK     113
                                                                                                                 RLINK     114
                                        *         INITIALIZE REGISTERS FOR PROCESSORS --                         RLINK     115
                                        *         (B2) = OC[PI]                                                  RLINK     116
                                        *         (B6) = RTT                                                     RLINK     117
                                        *         (X0) = MASK(-6)                                                RLINK     118
                                        *         (X4) = RTT( RI[PI] )                                           RLINK     119
                                        *         (X5) = [PI]                                                    RLINK     120
                                                                                                                 RLINK     121
           166  43066                             MX0    -6                                                      RLINK     122
                     6160000015 +                 SB6    RTT                                                     RLINK     123
                               15650              BX6    -X0*X5                                                  RLINK     124
           167  26725                             UX7    B2,X5                                                   RLINK     125
                     5246000015 +                 SA4    RTT+X6      I = RTT( RI[PI] )                           RLINK     126
           170  0222000056 +                      JP     OPJP+B2     JUMP( OPJP( OC[PI] )                        RLINK     127
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     8
        INSTRUCTION PROCESSORS.                                       NOP 
  
                                        **        PROCESS NOP.                                                   RLINK     130
                                                                                                                 RLINK     131
           171                           CI=NOP   BSS                                                            RLINK     132
           171  0400000165 +                      EQ     EXIT.                                                   RLINK     133
  
  
  
  
                                        **        PROCESS BOS.                                                   RLINK     135
                                                                                                                 RLINK     136
           172                           CI=BOS   BSS                                                            RLINK     137
           172  7170000022                        SX7    I.BOS                                                   RLINK     138
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     139
                               20536              LX5    -SI.CAP                                                 RLINK     140
           173  73350                             SX3    X5          CA[PI]                                      RLINK     141
                     20314                        LX3    PB.BIASP                                                RLINK     142
                          12573                   BX5    X7+X3       [PB] = [PB] + BIAS[PB]                      RLINK     143
           174  0400000165 +                      EQ     EXIT.                                                   RLINK     144
  
  
  
  
                                        **        TYPE I  OC=10-17,22-30,31-42,44,45,47                          RLINK     146
                                        *         PRI RJORK   (GH IJK)                                           RLINK     147
                                        *         FROM (OC,RK,RJ,RI) TO (GHIJK)                                  RLINK     148
                                                                                                                 RLINK     149
                                         TYI      MACRO  NAM                                                     RLINK     150
                                                  IRP    NAM                                                     RLINK     151
                                         CI=NAM   BSS    0                                                       RLINK     152
                                                  IRP                                                            RLINK     153
                                         TYI      ENDM                                                           RLINK     154
                                                                                                                 RLINK     155
           175                                    TYI    (AND,OR,XOR)                                            RLINK     156
           175                                    TYI    (ILS,IRS,NR,RNZ,UP,PK,FA)         OC = 22-30            RLINK     157
           175                                    TYI    (FS,DFA,DFS,RFA,RFS,IA,IS,FM,RFM,DFM) OC=31-42          RLINK     158
           175                                    TYI    (FD,RFD,CX)                       OC = 44,45,47         RLINK     159
                                                                                                                 RLINK     160
           175                           TYI      BSS                                                            RLINK     161
           175  76720                             SX7    B2          (X7) = OC                                   RLINK     162
                     20766                        LX7    PB.GHP                                                  RLINK     163
                          73340                   SX3    X4          I = RTT( RI[PI] )                           RLINK     164
                               20363              LX3    PB.IP                                                   RLINK     165
           176  12773                             BX7    X7+X3       [P] = OC[PB] + I[PB]                        RLINK     166
                     20566                        LX5    -SI.RJP                                                 RLINK     167
                          15250                   BX2    -X0*X5                                                  RLINK     168
                               53326              SA3    B6+X2       J = RTT( RJ[PI] )                           RLINK     169
           177  73230                             SX2    X3                                                      RLINK     170
                     20260                        LX2    PB.JP                                                   RLINK     171
                          12772                   BX7    X7+X2       [PB] = [PB] + J[PB]                         RLINK     172
                               20566              LX5    SI.RJP-SI.RKP                                           RLINK     173
           200  15250                             BX2    -X0*X5                                                  RLINK     174
                     53326                        SA3    B6+X2       RK = RTT( RK[PI] )                          RLINK     175
                          73230                   SX2    X3                                                      RLINK     176
                               20255              LX2    PB.KP                                                   RLINK     177
           201  12572                             BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     178
                     0400000165 +                 EQ     EXIT.                                                   RLINK     179
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE     9
        INSTRUCTION PROCESSORS.                                       TYPE1 
  
                                        *         XMT AND XMTC NEED K=J                                          RLINK     181
                                                                                                                 RLINK     182
           202                           CI=XMT   BSS                                                            RLINK     183
           202                           CI=XMTC  BSS                                                            RLINK     184
           202  76720                             SX7    B2          (X7) = OC                                   RLINK     185
                     20766                        LX7    PB.GHP                                                  RLINK     186
                          73340                   SX3    X4          I = RTT( RI[PI] )                           RLINK     187
                               20363              LX3    PB.IP                                                   RLINK     188
           203  12773                             BX7    X7+X3       [P] = OC[PB] + I[PB]                        RLINK     189
                     20566                        LX5    -SI.RJP                                                 RLINK     190
                          15250                   BX2    -X0*X5                                                  RLINK     191
                               53326              SA3    B6+X2       J = RTT( RJ[PI] )                           RLINK     192
           204  73230                             SX2    X3                                                      RLINK     193
                     20260                        LX2    PB.JP                                                   RLINK     194
                          12772                   BX7    X7+X2       [PB] = [PB] + J[PB]                         RLINK     195
                               20271              LX2    PB.KP-PB.JP                                             RLINK     196
           205  12572                             BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     197
                     0400000165 +                 EQ     EXIT.                                                   RLINK     198
  
  
  
  
                                                                                                                 RLINK     200
                                        *         NON-COMMUTATIVE BOOLEANS ARE OCIKJ.                            RLINK     201
                                                                                                                 RLINK     202
           206                           CI=STR   BSS    0                                                       RLINK     203
           206                           CI=IMP   BSS    0                                                       RLINK     204
           206                           CI=EQV   BSS    0                                                       RLINK     205
           206  76720                             SX7    B2          (X7) = OC                                   RLINK     206
                     20766                        LX7    PB.GHP                                                  RLINK     207
                          73340                   SX3    X4          I = RTT( RI[PI] )                           RLINK     208
                               20363              LX3    PB.IP                                                   RLINK     209
           207  12773                             BX7    X7+X3       [P] = OC[PB] + I[PB]                        RLINK     210
                     20566                        LX5    -SI.RJP                                                 RLINK     211
                          15250                   BX2    -X0*X5                                                  RLINK     212
                               53326              SA3    B6+X2       J = RTT( RJ[PI] )                           RLINK     213
           210  73230                             SX2    X3                                                      RLINK     214
                     20255                        LX2    PB.KP                                                   RLINK     215
                          12772                   BX7    X7+X2       [PB] = [PB] + J[PB]                         RLINK     216
                               20566              LX5    SI.RJP-SI.RKP                                           RLINK     217
           211  15250                             BX2    -X0*X5                                                  RLINK     218
                     53326                        SA3    B6+X2       RK = RTT( RK[PI] )                          RLINK     219
                          73230                   SX2    X3                                                      RLINK     220
                               20260              LX2    PB.JP                                                   RLINK     221
           212  12572                             BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     222
                     0400000165 +                 EQ     EXIT.                                                   RLINK     223
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    10
        INSTRUCTION PROCESSORS.                                       LCM 
  
                                        **        LCM READ AND WRITE - TYPE I   OC=64,65                         RLINK     225
                                        *         PRJ RK   (01I JK) I=4,5                                        RLINK     226
                                        *         FROM (OC,RI,RJ,RK) TO (GHIJK)                                  RLINK     227
                                                                                                                 RLINK     228
                                                  ECHO   8,NAM=(DRL,DWL),II=(4,5),OP=(LD,ST)                     RLINK     229
                                         CI=NAM   SB2    01B                                                     RLINK     230
                                                  SX4    II                                                      RLINK     231
                                                  LX5    -SI.IHP                                                 RLINK     232
                                                  SX3    X5                                                      RLINK     233
                                                  LX5    SI.IHP+SI.RJP-SI.RIP    FAKE TYI (RJ=RI, RJ=RK)         RLINK     234
                                                  ZR     X3,TYI      IF IH = 0  */ NOT LEVEL 0                   RLINK     235
                                                  SX7    I.OP_0                                                  RLINK     236
                                                  EQ     SUB0                                                    RLINK     237
                                                                                                                 RLINK     238
           223  20760                    SUB0     LX7    PB.GHIJP                                                RLINK     239
                     7233737777                   SX3    X3-IH.LCM                                               RLINK     240
                               20336              LX3    PB.TAGP                                                 RLINK     241
           224  12773                             BX7    X7+X3                                                   RLINK     242
                     20566                        LX5    -SI.RJP                                                 RLINK     243
                          15350                   BX3    -X0*X5                                                  RLINK     244
                               53336              SA3    B6+X3                                                   RLINK     245
           225  73330                             SX3    X3                                                      RLINK     246
                     20303                        LX3    3                                                       RLINK     247
                          20566                   LX5    SI.RJP-SI.RKP                                           RLINK     248
                               15250              BX2    -X0*X5                                                  RLINK     249
           226  53226                             SA2    B6+X2                                                   RLINK     250
                     73220                        SX2    X2                                                      RLINK     251
                          12223                   BX2    X2+X3                                                   RLINK     252
                                                  LX2    PB.H2P                                                  RLINK     253
                               12572              BX5    X7+X2                                                   RLINK     254
           227  0400000165 +                      EQ     EXIT.                                                   RLINK     255
  
  
  
  
                                        **        INTEGER ARITHMETIC - TYPE I  OC=77,100,101                     RLINK     257
                                        *         IXI XJOXK   (GH IJK)  GH=36,37,42                              RLINK     258
                                        *         FROM (OC,RI,RJ,RK) TO (GHIJK)                                  RLINK     259
                                                                                                                 RLINK     260
                                                  ECHO   2,NAM=(IAZ,ISZ,IM),OC=(36B,37B,42B)                     RLINK     261
                                         CI=NAM   SB2    OC                                                      RLINK     262
                                                  EQ     TYI                                                     RLINK     263
  
  
  
  
                                        **        TYPE II  OC=20,21,43                                           RLINK     265
                                        *         PRI    JK   (GH IJK)  GH=20,21,43                              RLINK     266
                                        *         FROM (OC,CA,RI) TO (GHIJK)                                     RLINK     267
                                                                                                                 RLINK     268
                                                  ECHO   1,NAM=(KLS,KRS,FMA)                                     RLINK     269
                                         CI=NAM   BSS                                                            RLINK     270
           233  76720                             SX7    B2          (X7) = OPCODE                               RLINK     271
                     20766                        LX7    PB.GHP                                                  RLINK     272
                          73340                   SX3    X4          I = RTT( RI[PB] )                           RLINK     273
                               20363              LX3    PB.IP                                                   RLINK     274
           234  12773                             BX7    X7+X3       [PB] = OC[PB] + I[PB]                       RLINK     275
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    11
        INSTRUCTION PROCESSORS.                                       TYII
  
                     20536                        LX5    -SI.CAP                                                 RLINK     276
                          43066                   MX0    -PB.JL-PB.KL                                            RLINK     277
                               15250              BX2    -X0*X5                                                  RLINK     278
           235  20255                             LX2    PB.KP                                                   RLINK     279
                                   0              ERRNZ  PB.KP+3-PB.JP     CODE ASSUMES 6/IJ                     RLINK     280
                     12572                        BX5    X7+X2       [PB] = [PB] + JK[PB]                        RLINK     281
                          0400000165 +            EQ     EXIT.                                                   RLINK     282
  
  
  
  
                                        **        TYPE III  OC=50-54,74                                          RLINK     284
                                        *         SRI    RJ+CA+IH-H2   (GH IJQ)                                  RLINK     285
                                        *         FROM (H2,OC,CA,IH,RJ,RI H2) TO (GHIJ,TAG,BIAS,TAG2)            RLINK     286
                                                                                                                 RLINK     287
                                        *         LDC (CONSTANT LOAD) PREPROCESSOR.                              RLINK     288
                                                                                                                 RLINK     289
           236                           CI=LDC   BSS    0                                                       RLINK     290
           236  6120000050                        SB2    OC.LD                                                   RLINK     291
                          43652                   MX6    -SI.CAL                                                 RLINK     292
           237  5110000000 X                      SA1    =XT.CUT                                                 RLINK     293
                          20536                   LX5    -SI.CAP                                                 RLINK     294
                               63710              SB7    X1                                                      RLINK     295
           240  11265                             BX2    X6*X5                                                   RLINK     296
                     53157                        SA1    B7+X5                                                   RLINK     297
                          12512                   BX5    X1+X2                                                   RLINK     298
                               20536              LX5    SI.CAP      CA = CUT(CA)                                RLINK     299
                                                                                                                 RLINK     300
                                                  ECHO   1,NAM=(LD,ST,STT,PLD,PST,S,ILD,TLD,TST)                 RLINK     301
                                         CI=NAM   BSS                                                            RLINK     302
                                                                                                                 RLINK     303
           241  26734                             UX7    B3,X4       I = RTT( RI[PI] )                           RLINK     304
                     20763                        LX7    PB.IP                                                   RLINK     305
                          7113000005              SX1    B3+5        G[OC]                                       RLINK     306
           242  20171                             LX1    PB.GHP+3                                                RLINK     307
                     12771                        BX7    X7+X1       [PB] = G[PB] + I[PB]                        RLINK     308
                          20566                   LX5    -SI.RJP                                                 RLINK     309
                               15250              BX2    -X0*X5                                                  RLINK     310
           243  53326                             SA3    B6+X2       J = RTT( RJ[P] )                            RLINK     311
                     26233                        UX2    B3,X3                                                   RLINK     312
                          76330                   SX3    B3                                                      RLINK     313
                               20260              LX2    PB.JP                                                   RLINK     314
           244  12772                             BX7    X7+X2       [PB] = [PB] + J[PB]                         RLINK     315
                     20566                        LX5    SI.RJP-SI.IHP                                           RLINK     316
                          43130                   MX1    -IH.CAIHL                                               RLINK     317
                               15251              BX2    -X1*X5                                                  RLINK     318
           245  0312000247 +                      NZ     X2,LD1      IF IHCA[PI] .NE. 0                          RLINK     319
                          20301                   LX3    1           RJ*2                                        RLINK     320
           246  6170000000                        SB7    0                                                       RLINK     321
                          0400000267 +            EQ     TIB2        PROCESS AS 15 BIT SRI RJ                    RLINK     322
                                                                                                                 RLINK     323
           247  20366                    LD1      LX3    PB.GHP                                                  RLINK     324
                     12773                        BX7    X7+X3       [PB] = [PB] + H[PB]                         RLINK     325
                          43052                   MX0    -SI.IHL                                                 RLINK     326
                               15650              BX6    -X0*X5                                                  RLINK     327
           250  0306000252 +                      ZR     X6,LD2      IF IH[PI] .EQ. 0                            RLINK     328
                          0100000343 +            RJ     CFP         CHECK FORMAL PARAMETERS                     RLINK     329
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    12
        INSTRUCTION PROCESSORS.                                       TYIII 
  
           251  43052                             MX0    -PB.TAGL                                                RLINK     330
                     15650                        BX6    -X0*X5                                                  RLINK     331
                          20636                   LX6    PB.TAGP                                                 RLINK     332
                               12776              BX7    X7+X6       [PB] = [PB] + TAG[PB]                       RLINK     333
           252  20552                    LD2      LX5    SI.IHP-SI.CAP                                           RLINK     334
                     43052                        MX0    -SI.CAL                                                 RLINK     335
                          15650                   BX6    -X0*X5      CA[PI]                                      RLINK     336
           253  0306000254 +                      ZR     X6,LD3      IF CA[PI] .EQ. 0                            RLINK     337
                          20614                   LX6    PB.BIASP                                                RLINK     338
                               12776              BX7    X7+X6       [PB] = [PB] + BIAS[PB]                      RLINK     339
           254  20536                    LD3      LX5    SI.CAP+59-SI.H2P                                        RLINK     340
                     0325000260 +                 PL     X5,LD4      IF H2[PI] .EQ. 0                            RLINK     341
                               10077              BX0    X7                                                      RLINK     342
           255  0100000000 X                      RJ     =XRNI       READ NEXT INSTRUCTION                       RLINK     343
           256  10700                             BX7    X0                                                      RLINK     344
                     73650                        SX6    X5          H2[PI]                                      RLINK     345
                          0100000343 +            RJ     CFP         CHECK FORMAL PARAMETERS                     RLINK     346
           257  73650                             SX6    X5          H2[PI]                                      RLINK     347
                                                  LX6    PB.H2P                                                  RLINK     348
                     12776                        BX7    X7+X6       [PB] = [PB] + H2[PB]                        RLINK     349
           260  10577                    LD4      BX5    X7                                                      RLINK     350
                     0400000165 +                 EQ     EXIT.                                                   RLINK     351
  
  
  
  
                                        **        TYPE I MEMORY REFS  OC=56-63                                   RLINK     353
                                        *         SRI RJORK  (GH IJK)  G=5,6,7 H=3-7                             RLINK     354
                                        *         FROM (OC,RK,RJ,RI) TO (GHIJK)                                  RLINK     355
                                                                                                                 RLINK     356
                                                  ECHO   1,NAM=(SLD,SST,SA)    (56,57,60)                        RLINK     357
                                         CI=NAM   BSS                                                            RLINK     358
           261  6170000000                        SB7    0           FLAG A +BK                                  RLINK     359
                          0400000263 +            EQ     TIB                                                     RLINK     360
                                                                                                                 RLINK     361
                                                  ECHO   1,NAM=(SDL,SDS,SS)    (61,62,63)                        RLINK     362
                                         CI=NAM   BSS                                                            RLINK     363
           262  6170000001                        SB7    1           FLAG A -BK                                  RLINK     364
                                                                                                                 RLINK     365
           263  26734                    TIB      UX7    B3,X4       I = RTT( RI[PI] )                           RLINK     366
                     20763                        LX7    PB.IP       [PB] = I[PB]                                RLINK     367
                          7113000005              SX1    B3+5        G[PB]                                       RLINK     368
           264  20171                             LX1    PB.GHP+3                                                RLINK     369
                     12771                        BX7    X7+X1       [PB] = [P] + G[PB]                          RLINK     370
                          20566                   LX5    -SI.RJP                                                 RLINK     371
                               15250              BX2    -X0*X5                                                  RLINK     372
           265  53326                             SA3    B6+X2                                                   RLINK     373
                     26233                        UX2    B3,X3       J = RTT( RJ[PI] )                           RLINK     374
                          76333                   SX3    B3+B3       2 * TYPE(RJ)                                RLINK     375
                               20260              LX2    PB.JP                                                   RLINK     376
           266  12772                             BX7    X7+X2       [PB] = [PB] + J[PB]                         RLINK     377
                                                                                                                 RLINK     378
           267  73137                    TIB2     SX1    X3+B7                                                   RLINK     379
                     5231000045 +                 SA3    HTT+X1      GET H PART OF OPCODE                        RLINK     380
                               12773              BX7    X7+X3       [PB] = [PB] + H[PB]                         RLINK     381
           270  20566                             LX5    SI.RJP-SI.RKP                                           RLINK     382
                     15250                        BX2    -X0*X5                                                  RLINK     383
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    13
        INSTRUCTION PROCESSORS.                                       TIB 
  
                          53326                   SA3    B6+X2                                                   RLINK     384
                               73230              SX2    X3                                                      RLINK     385
           271  20255                             LX2    PB.KP                                                   RLINK     386
                     12572                        BX5    X7+X2       [PB] = [PB] + K[PB]                         RLINK     387
                          0400000165 +            EQ     EXIT.                                                   RLINK     388
  
  
  
  
                                        **        X JUMPS  OC=66                                                 RLINK     390
                                        *         JT     XJ,IH   (03I JQ)                                        RLINK     391
                                        *         FROM (OC,CA,RI) TO (GHI,TAG)                                   RLINK     392
                                                                                                                 RLINK     393
           272                           CI=JPX   BSS                                                            RLINK     394
           272  73340                             SX3    X4          [PB] = RTT[RI]                              RLINK     395
                     20536                        LX5    -SI.CAP                                                 RLINK     396
                          7275000030              SX7    030B+X5     I = XJT( CA[PI] )                           RLINK     397
           273  20763                             LX7    PB.IP                                                   RLINK     398
                     20360                        LX3    PB.JP                                                   RLINK     399
                          20522                   LX5    SI.CAP-SI.IHP                                           RLINK     400
                               12773              BX7    X7+X3       [PB] = [PB] + J[PB]                         RLINK     401
                                                                                                                 RLINK     402
                                        *         CJP - COMMON JUMP IH PROCESSING.                               RLINK     403
                                                                                                                 RLINK     404
           274                           CJP      BSS                                                            RLINK     405
           274  43052                             MX0    -SI.IHL                                                 RLINK     406
                     15350                        BX3    -X0*X5                                                  RLINK     407
                          20336                   LX3    PB.TAGP                                                 RLINK     408
                               12573              BX5    X7+X3       [PB] = [PB] + IH[PB]                        RLINK     409
           275  0400000165 +                      EQ     EXIT.                                                   RLINK     410
  
  
  
  
                                        **        B JUMPS   OC=67                                                RLINK     412
                                        *         JT  BI,BJ,K   (0H IJQ) H=4,5,6                                 RLINK     413
                                        *         FROM (OC,CA,RI,RJ) TO (GHIJ,TAG)                               RLINK     414
                                                                                                                 RLINK     415
           276                           CI=JPBB  BSS                                                            RLINK     416
           276  73740                             SX7    X4          I = RTT( RJ[PI] )                           RLINK     417
                     20763                        LX7    PB.IP                                                   RLINK     418
                          20536                   LX5    -SI.CAP                                                 RLINK     419
           277  5235000052 +                      SA3    BJT+X5      GH = BJT( CA[PI] )                          RLINK     420
                          20366                   LX3    PB.GHP                                                  RLINK     421
                               12737              BX7    X3+X7       [PB] = I[PB] + GH[PB]                       RLINK     422
           300  20530                             LX5    SI.CAP-SI.RJP                                           RLINK     423
                     15650                        BX6    -X0*X5                                                  RLINK     424
                          53466                   SA4    B6+X6       J = RTT( RJ[PI] )                           RLINK     425
                               73340              SX3    X4                                                      RLINK     426
           301  20360                             LX3    PB.JP                                                   RLINK     427
                     12773                        BX7    X7+X3                                                   RLINK     428
                          20566                   LX5    SI.RJP-SI.IHP                                           RLINK     429
           302  0400000274 +                      EQ     CJP         ADD IN IH FIELD                             RLINK     430
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    14
        INSTRUCTION PROCESSORS.                                       JIN 
  
                                        **        INDEXED JUMP  OC=70                                            RLINK     432
                                        *         JP  BI+IH   (02 I0Q)                                           RLINK     433
                                        *         FROM (OC,CA,RI) TO (I.JPI,TAG,BJR)                             RLINK     434
                                                                                                                 RLINK     435
           303                           CI=JIN   BSS                                                            RLINK     436
           303  7170000030                        SX7    I.JPI                                                   RLINK     437
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     438
                               73340              SX3    X4          I = RTT( RI[PI] )                           RLINK     439
                                                  LX3    PB.BJRP                                                 RLINK     440
           304  20560                             LX5    -SI.IHP                                                 RLINK     441
                     12773                        BX7    X7+X3       [PB] = [PB] + BJR[PB]                       RLINK     442
                          0400000274 +            EQ     CJP         ADD IH FIELD                                RLINK     443
  
  
  
  
                                        **        RETURN JUMP  OC=71                                             RLINK     445
                                        *         RJ  IH   (01 Q)                                                RLINK     446
                                        *         FROM (OC,IH) TO (I.RJ3,TAG)                                    RLINK     447
                                                                                                                 RLINK     448
           305                           CI=RJ3   BSS                                                            RLINK     449
           305  7170000035                        SX7    I.RJ3                                                   RLINK     450
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     451
           306  0400000274 +                      EQ     CJP         PROCESS IH FIELD                            RLINK     452
  
  
  
  
                                        **        RETURN JUMP WITH TRACEBACK   OC=72                             RLINK     454
                                        *         RJT  IH,CA   (+01 Q)                                           RLINK     455
                                        *         FROM (OC,CA,HI) (TYPE IV) TO (I.RJ6,TAG,BIAS)                  RLINK     456
                                                                                                                 RLINK     457
           307                           CI=RJ6   BSS                                                            RLINK     458
           307  7170000036                        SX7    I.RJ6                                                   RLINK     459
                          20760                   LX7    PB.GHIJP    [PB] = OC[P]                                RLINK     460
                               20536              LX5    -SI.CAP                                                 RLINK     461
           310  43052                             MX0    -SI.CAL                                                 RLINK     462
                     15350                        BX3    -X0*X5                                                  RLINK     463
                          20314                   LX3    PB.BIASP    BIAS[PB] = LINE NUMBER                      RLINK     464
                               12773              BX7    X7+X3       [PB] = [PB] + BIAS[PB]                      RLINK     465
           311  20536                             LX5    SI.CAP                                                  RLINK     466
                     73650                        SX6    X5          IH[PI]                                      RLINK     467
                          0100000343 +            RJ     CFP         CHECK FOR FORMAL PARAMETER                  RLINK     468
           312  73650                             SX6    X5          IH[PI]                                      RLINK     469
                     20636                        LX6    PB.TAGP                                                 RLINK     470
                          12576                   BX5    X7+X6       [PB] = [PB] + IH[PB]                        RLINK     471
           313  0400000165 +                      EQ     EXIT.                                                   RLINK     472
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    15
        INSTRUCTION PROCESSORS.                                       UJP 
  
                                        **        UNCONDITIONAL JUMP   OC=73                                     RLINK     474
                                        *         EQ  IH   (04 Q)                                                RLINK     475
                                        *         FROM (OC,IH) TO (I.UJP,TAG,BIAS)                               RLINK     476
                                                                                                                 RLINK     477
           314                           CI=UJP   BSS                                                            RLINK     478
           314  7170000041                        SX7    I.UJP                                                   RLINK     479
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     480
           315  0400000274 +                      EQ     CJP         ADD IH FIELD                                RLINK     481
  
  
  
  
                                        **        LABELS  OC=6                                                   RLINK     483
                                        *         IH  BSS  0                                                     RLINK     484
                                        *         FROM (OC,IH) TO (I.BSS,TAG)                                    RLINK     485
                                                                                                                 RLINK     486
           316                           CI=LAB   BSS                                                            RLINK     487
           316  7170000024                        SX7    I.BSS                                                   RLINK     488
                          20760                   LX7    PB.GHIJP    [PB] = OC[PB]                               RLINK     489
           317  0400000274 +                      EQ     CJP         ADD IH FIELD...                             RLINK     490
  
  
  
  
                                        **        ERRORS - THESE OP CODES SHOULD NEVER BE ENCOUNTERED.           RLINK     492
                                                                                                                 RLINK     493
                                                                                                                 RLINK     494
                                                  MACRO  ILL,NAM                                                 RLINK     495
                                         CI=NAM   EQ     "BLOWUP"                                                RLINK     496
                                         ILL      ENDM                                                           RLINK     497
                                                                                                                 RLINK     498
                                                                                                                 RLINK     499
           320  0400400320 +             CLR      ILL                                                            RLINK     500
           321  0400400321 +             DAR      ILL                                                            RLINK     501
           322  0400400322 +             DEF      ILL                                                            RLINK     502
           323  0400400323 +             ENT      ILL                                                            RLINK     503
           324  0400400324 +             EOQ      ILL                                                            RLINK     504
           325  0400400325 +             EOS      ILL                                                            RLINK     505
           326  0400400326 +             LDV      ILL                                                            RLINK     506
           327  0400400327 +             RJXJ     ILL                                                            RLINK     507
           330  0400400330 +             RS       ILL                                                            RLINK     508
           331  0400400331 +             SXT      ILL                                                            RLINK     509
                                                                                                                 RLINK     510
           332                                    LOC    *O                                                      RLINK     511
  
  
  
  
                                        **        BCT - CONVERT CONSTANT TABLE.                                  RLINK     513
                                        *                                                                        RLINK     514
                                        *         REFORMAT *CUT* AS ORDINALS TO CON. ARRAY, SQUEEZE UNUSED       RLINK     515
                                        *         ENTRIES OUT OF *CON*.                                          RLINK     516
                                                                                                                 RLINK     517
           332  0400400332 +             BCT      SUBR   =                                                       RLINK     518
           333  43600                             MX6    0                                                       RLINK     519
                     5110000000 X                 ADDWD  T.CUT                                                   RLINK     520
           335  5130000000 X                      SA3    =XT.CON                                                 RLINK     521
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    16
        INSTRUCTION PROCESSORS.                                       BCT 
  
                          66200                   SB2    B0          I = 0                                       RLINK     522
                               63320              SB3    X2          N = L.CUT                                   RLINK     523
           336  63430                             SB4    X3                        (B4) = CON                    RLINK     524
                     63510                        SB5    X1                        (B5) = CUT                    RLINK     525
                          7170000000              SX7    0           J = 0                                       RLINK     526
                                                                                                                 RLINK     527
           337  56552                    BCT1     SA5    B5+B2                                                   RLINK     528
                     0305000341 +                 ZR     X5,BCT2     IF CUT(I) = 0 */ CON NOT REFERENCED         RLINK     529
                                                                                                                 RLINK     530
                               54750              SA7    A5          CUT(I) = J    */ SET ORDINAL                RLINK     531
           340  56442                             SA4    B4+B2                                                   RLINK     532
                     10644                        BX6    X4          CON(J) = CON(I)  */ MOVE TO FINAL POSITION  RLINK     533
                          53674                   SA6    B4+X7                                                   RLINK     534
                               73771              SX7    X7+B1       J = J + 1                                   RLINK     535
                                                                                                                 RLINK     536
           341  66221                    BCT2     SB2    B2+B1       I = I + 1                                   RLINK     537
                     0723000337 +                 LT     B2,B3,BCT1  IF I < N                                    RLINK     538
           342  5170000000 X                      SA7    =XT=CON                                                 RLINK     539
                          0400000332 +            EQ     EXIT.                                                   RLINK     540
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    17
        POST SUPPORT ROUTINES.                                        CFP 
  
                                        **        CFP - CHECK FOR FORMAL PARAMETERS.                             RLINK     543
                                        *                                                                        RLINK     544
                                        *         ENTRY  (X6) = IH[PI] OR H2[PI]                                 RLINK     545
                                        *                                                                        RLINK     546
                                        *         EXIT   IF FP[WB]=1, RA[WC] IN O.SYM1                           RLINK     547
                                        *                             (LSR) SET NONZERO                          RLINK     548
                                        *                ELSE NO CHANGE                                          RLINK     549
                                        *                                                                        RLINK     550
                                        *         CANNOT DESTROY  X5,X7                                          RLINK     551
                                                                                                                 RLINK     552
                                                                                                                 RLINK     553
           343  0400400343 +             CFP      SUBR               ...ENTRY/EXIT...                            RLINK     554
           344  10366                             BX3    X6                                                      RLINK     555
                     21317                        AX3    IH.IP                                                   RLINK     556
                          0313000343 +            NZ     X3,EXIT.    IF NOT SYMBOL TABLE SYMBOL                  RLINK     557
           345  63260                             SB2    X6                                                      RLINK     558
                     36366                        IX3    X6+X6                                                   RLINK     559
                          63232                   SB2    X3+B2       3*SYMORD                                    RLINK     560
                                   0              ERRNZ  3-Z=SYM                                                 RLINK     561
           346  5120000000 X                      SA2    =XT.SYM                                                 RLINK     562
                          6122000001              SB2    B2+WB.W                                                 RLINK     563
           347  53222                             SA2    X2+B2       WB OF SYMTAB                                RLINK     564
                     20253                        HX2    WB.FP                                                   RLINK     565
                          0322000343 +            PL     X2,EXIT.    IF NOT F.P., EXIT...                        RLINK     566
           350  54321                             =A3    A2+1        WC OF SYMTAB                                RLINK     567
                                                  LX3    -WC.RAP                                                 RLINK     568
                     76210                        =X2    1                                                       RLINK     569
                          36632                   IX6    X3+X2       RA[WC] = RA[WC] + 1                         RLINK     570
                                                  LX6    WC.RAP      RESTORE POSITION                            RLINK     571
                               54630              SA6    A3          UPDATE RA[WC]                               RLINK     572
           351  5160000013 +                      SA6    LSR         FLAG F.P.                                   RLINK     573
                          0400000343 +            EQ     EXIT.       DONE...                                     RLINK     574
  
  
  
  
                                        **        SMB - SET MAT BIT FOR VARIABLES.                               RLINK     576
                                        *         ALL NAMELIST MEMBERS THAT HAVE CLAS BITS(MAT,EQV,DEF,VAR) SET, FC51315     7
                                        *         RESULT IN THE *EQ. * BASE MEMBER *MAT* BIT BEING CHECKED/SET.  FC51315     8
                                        *                                                                        FC51315     9
                                                                                                                 RLINK     578
                                                                                                                 RLINK     579
           352  0400400352 +             SMB      SUBR   =           ENTRY/EXIT.                                 RLINK     580
           353  5140000000 X                      SA4    T=NLST                                                  FC51315    10
                          0304000352 +            ZR     X4,SMB      IF NO NAMELIST ENTRIES                      FC51315    11
           354  66210                             SB2    B1                                                      FC51315    12
                     66300                        SB3    B0                                                      FC51315    13
                                                                                                                 FC51315    14
           355  0100000000 X             SMB3     CALL   SNR         SET NAMELIST REGISTERS                      FC51315    15
           356  5140000432 +                      CLAS=  X4,WB,(MAT,EQV,DEF,VAR)                                 FC51315    16
                          11341                   BX3    X4*X1       X1 =   T.SYM WORD B OF REQUESTED NAME       FC51315    17
                               13434              BX4    X3-X4                                                   FC51315    18
           357  0314000364 +                      NZ     X4,SMB4     IF(MAT,EQV,DEF,VAR)CLASS BITS NOT SET       FC51315    19
                          43014                   MX0    WB.BASEL                                                FC51315    20
                                   0              ERRNZ  WB.BASEL-12                                             FC51315    21
                               20055              LX0    WB.BASEP-WB.PNTP-1                                      FC51315    22
                                   0              ERRNZ  WB.PNTL-13                                              FC51315    23
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    18
        POST SUPPORT ROUTINES.                                        SMB 
  
           360  11301                             BX3    X0*X1                                                   FC51315    24
                     21341                        AX3    -WB.BASEP+WB.CLASP+1                                    FC51315    25
                                   0              ERRNZ  WB.PNTL-13                                              FC51315    26
                          5140000000 X            SA4    T.SYM                                                   FC51315    27
           361  6254000001                        SB5    X4+WB.W                                                 FC51315    28
                          63635                   SB6    X3+B5                                                   FC51315    29
                               22413              LX4    X3,B1                                                   FC51315    30
           362  53146                             SA1    B6+X4       (X1)=T.SYM WORD B OF EQV CLASS BASE MEMBER  FC51315    31
                     43301                        CLAS=  X3,WB,(MAT)                                             FC51315    32
                               12613              BX6    X1+X3                                                   FC51315    33
           363  54610                             SA6    A1                                                      FC51315    34
                                                                                                                 FC51315    35
           364  0702000355 +             SMB4     GT     B2,SMB3     IF MORE MEMBERS                             FC51315    36
                          0730000352 +            LT     B3,SMB      IF NO MORE GROUPS                           FC51315    37
           365  66210                             SB2    B1                                                      FC51315    38
                     0400000355 +                 EQ     SMB3        CHECK MEMBERS OF NEXT GROUP                 FC51315    39
           366  0400000352 +                      EQ     EXIT.                                                   RLINK     581
  
  
  
  
                                        **        PAT - PRE-PROCESS AP-LIST TABLES.                              RLINK     583
                                        *                FOR EACH AP-LIST ENTRY, IF TAG[AP.] .EQ. (S=CON), SET   RLINK     584
                                        *                BIAS[AP.] = T.CUT( BIAS[AP.]).                          RLINK     585
                                        *         CALLED FROM *FO=APL* AND *FO=IOM* OF FAS.                      RLINK     586
                                        *         ENTRY  (B6) = 0 IF PROCESSING T.APL                            RLINK     587
                                        *                     = 1 IF PROCESSING T.IOA                            RLINK     588
                                                                                                                 RLINK     589
                                                                                                                 RLINK     590
           367  0400400367 +             PAT      SUBR   =           ENTRY/EXIT.                                 RLINK     591
           370  5116000000 X                      SA1    =XT.APL+B6                                              RLINK     592
                          5126000000 X            SA2    =XT=APL+B6                                              RLINK     593
           371  5130000000 X                      SA3    =XAPCON                                                 RLINK     594
                          0303000367 +            ZR     X3,EXIT.    IF NO CONSTANTS IN AP-LISTS                 RLINK     595
           372  5150000000 X                      SA5    =XS=CON                                                 RLINK     596
                          5140000000 X            SA4    =XT.CUT                                                 RLINK     597
           373  63540                             SB5    X4                                                      RLINK     598
                     66361                        SB3    B6+B1       (B3) .EQ. 1 IF T.APL, .EQ. 2 IF T.API       RLINK     599
                                   0              ERRNZ  2-Z=IOA                                                 RLINK     600
                          43052                   MX0    -IA.TAGL                                                RLINK     601
                               43344              MX3    -IA.BIASL                                               RLINK     602
           374  63220                             SB2    X2                                                      RLINK     603
                     5221777776                   SA2    X1-1                                                    RLINK     604
           375  7110001400                        CLAS=  X1,IA,(CRH,CHAR)                                        RLINK     605
                                                                                                                 RLINK     606
                                        *         PROCESS NEXT ENTRY OF AP-LIST TABLE.                           RLINK     607
                                        *         (A1) = API                                                     RLINK     608
                                        *         (B2) = APLEN                                                   RLINK     609
                                        *         (B3) = Z=APL/Z=IOA                                             RLINK     610
                                        *         (X5) = (S=CON)                                                 RLINK     611
                                        *         (B6) = T.APL/T.IOA INDICATOR                                   RLINK     612
                                        *         (B5) = FWA(T.CUT)                                              RLINK     613
                                                                                                                 RLINK     614
           376  0420000367 +             PAT10    ZR     B2,EXIT.    IF END OF TABLE                             RLINK     615
                          54221                   SA2    A2+B1                                                   RLINK     616
                               11412              BX4    X1*X2                                                   RLINK     617
           377  67223                             SB2    B2-B3                                                   RLINK     618
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    19
        POST SUPPORT ROUTINES.                                        PAT 
  
                     20222                        LX2    -IA.TAGP                                                RLINK     619
                          15620                   BX6    -X0*X2      TAGI = TAG[AP2]                             RLINK     620
           400  0314000404 +                      NZ     X4,PAT20    IF CHARACTER                                RLINK     621
                          37756                   IX7    X5-X6                                                   RLINK     622
                               20230              LX2    IA.TAGP-IA.BIASP                                        RLINK     623
           401  0317000404 +                      NZ     X7,PAT20    IF TAGI .NE. (S=CON)                        RLINK     624
                          15623                   BX6    -X3*X2      BIASI = BIAS[API]                           RLINK     625
                               11732              BX7    X3*X2       CLEAR BIAS FIELD                            RLINK     626
           402  53465                             SA4    X6+B5       CUI = T.CUT(BIASI)                          RLINK     627
                     15443                        BX4    -X3*X4                                                  RLINK     628
                          12774                   BX7    X7+X4                                                   RLINK     629
                               20722              LX7    IA.BIASP                                                RLINK     630
           403  54720                             SA7    A2                                                      RLINK     631
                                                                                                                 RLINK     632
           404  0561000376 +             PAT20    NE     B6,B1,PAT10 IF NOT PROCESSING IO-APLISTS                RLINK     633
                                                                                                                 RLINK     634
                                        *         FOR IO-APLISTS, PROCESS IO1 ENTRY IF LIST ITEM.                RLINK     635
                                        *         (X1) = AP1                                                     RLINK     636
                                                                                                                 RLINK     637
                          54221                   SA2    A2+B1                                                   RLINK     638
                               20222              LX2    -IA.TAGP                                                RLINK     639
           405  15620                             BX6    -X0*X2      TAGI = TAG[IO1]                             RLINK     640
                     37665                        IX6    X6-X5                                                   RLINK     641
                          20230                   LX2    IA.TAGP-IA.BIASP                                        RLINK     642
                               15423              BX4    -X3*X2      BIASI = BIAS[IO1]]                          RLINK     643
           406  11732                             BX7    X3*X2       CLEAR BIAS FIELD                            RLINK     644
                     0316000376 +                 NZ     X6,PAT10    IF TAGI .NE. (S=CON)                        RLINK     645
                               53445              SA4    X4+B5       CUI = T.CUT(BIASI)                          RLINK     646
           407  15443                             BX4    -X3*X4                                                  RLINK     647
                     12774                        BX7    X7+X4                                                   RLINK     648
                          20722                   LX7    IA.BIASP                                                RLINK     649
                               54720              SA7    A2          BIAS[AP2] = CUI                             RLINK     650
           410  0400000376 +                      EQ     PAT10                                                   RLINK     651
  
  
  
  
                                        **        PCA - PROCESS CONSTANT REFERENCES IN T.CAC.                    RLINK     653
                                                                                                                 RLINK     654
           411  0400400411 +             PCA      SUBR   =                                                       RLINK     655
           412  5110000000 X                      SA1    =XAPCON                                                 RLINK     656
                          5120000000 X            SA2    =XT=CAC                                                 RLINK     657
           413  0301000411 +                      ZR     X1,EXIT.    IF NO CONSTANTS IN APLISTS                  RLINK     658
                          5130000000 X            SA3    =XT.CAC                                                 RLINK     659
           414  0302000411 +                      ZR     X2,EXIT.    IF NO T.CAC                                 RLINK     660
                          5140000000 X            SA4    =XT.CUT                                                 RLINK     661
           415  6262777776                        SB6    X2-1                                                    RLINK     662
                          63340                   SB3    X4                                                      RLINK     663
                                                                                                                 RLINK     664
           416  53136                    PCA10    SA1    X3+B6                                                   RLINK     665
                     0760000411 +                 MI     B6,EXIT.    IF TOP OF TABLE                             RLINK     666
                               67661              SB6    B6-B1                                                   RLINK     667
           417  20113                             LX1    59-WC.RBP                                               RLINK     668
                     0321000416 +                 PL     X1,PCA10    IF RB NE 1  */ NOT CON.                     RLINK     669
                               20161              LX1    1+WC.RBP-WC.RAP                                         RLINK     670
           420  53413                             SA4    B3+X1       CUT[RA]                                     RLINK     671
                                   6              ERRMI  WC.RAL-18                                               RLINK     672
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    20
        POST SUPPORT ROUTINES.                                        PCA 
  
                     73210                        SX2    X1                                                      RLINK     673
                          13012                   BX0    X1-X2       CLEAR RA                                    RLINK     674
                               12740              BX7    X4+X0       ADD IN RA[CUT ENTRY]                        RLINK     675
                                                  LX7    WC.RAP                                                  RLINK     676
           421  54710                             SA7    A1                                                      RLINK     677
                     0400000416 +                 EQ     PCA10                                                   RLINK     678
           421                           COMFSCS  CTEXT                                                          COMFSCS     2
                                        **        SCS - SCAN TABLE WITH SUPPLIED MASK.                           COMFSCS     3
                                        *                                                                        COMFSCS     4
                                        *         ENTRY  (A1) - TABLE TO BE SEARCHED                             COMFSCS     5
                                        *                (X6) - ENTRY LOOKING FOR IN GIVEN TABLE                 COMFSCS     6
                                        *                (SCSA) = MASK TO BE USED                                COMFSCS     7
                                        *                                                                        COMFSCS     8
                                        *         EXIT   IF ENTRY *NIT* - (B7) IS NEGATIVE                       COMFSCS     9
                                        *                                 (A1),(X1) PRESERVED                    COMFSCS    10
                                        *                                 (X6) UNTOUCHED                         COMFSCS    11
                                        *                IF ENTRY *IT*  - (B7) ORDINAL OF MATCHING ENTRY         COMFSCS    12
                                        *                                 (X2) ALL 60 BITS OF MATCHING ENTRY     COMFSCS    13
                                        *                                 (A2) _ TO MATCHING ENTRY               COMFSCS    14
                                        *                                 (X6) = (X2) .AND. MASK                 COMFSCS    15
                                        *                                                                        COMFSCS    16
                                        *         USES   A2,A3,A6  X0,X1  B2,B7                                  COMFSCS    17
                                                                                                                 COMFSCS    18
                                                                                                                 COMFSCS    19
           422  0400400422 +             SCS      SUBR   =           ...ENTRY/EXIT...                            COMFSCS    20
           423  5021000000 X                      SA2    A1+=XN.TABLE                                            COMFSCS    21
                          5130000431 +            SA3    SCSA                                                    COMFSCS    22
           424  5261777776                        SA6    X1-1        STORE CRITERION BELOW TABLE                 COMFSCS    23
                                   0              ERRMI  FUDGE-1     CODE REQUIRES 1 SLOP WORD                   COMFSCS    24
                          64760                   SB7    A6                                                      COMFSCS    25
                               53227              SA2    X2+B7       FETCH LAST ENTRY                            COMFSCS    26
                                                                                                                 COMFSCS    27
                                        **        LOOP TILL MATCH FOUND                                          COMFSCS    28
                                                                                                                 COMFSCS    29
           425  13026                    SCS1     BX0    X2-X6                                                   COMFSCS    30
                     55221                        =A2    A2-1        FETCH NEXT TABLE ENTRY                      COMFSCS    31
                          46000                   NO                                                             COMFSCS    32
                               11030              BX0    X3*X0       MASK                                        COMFSCS    33
           426  0310000425 +                      NZ     X0,SCS1     IF NOT HIT - LOOP                           COMFSCS    34
                                                                                                                 COMFSCS    35
                          65727                   SB7    A2-B7       RELATIVE POSITION OF ENTRY                  COMFSCS    36
                               54221              =A2    A2+1        TABLE ENTRY AT HIT                          COMFSCS    37
           427  0770000422 +                      MI     B7,SCSX     IF DUMMY HIT - EXIT...                      COMFSCS    38
                          11632                   BX6    X3*X2       MASK OFF                                    COMFSCS    39
           430  0400000422 +                      EQ     SCSX        EXIT...                                     COMFSCS    40
                                                                                                                 COMFSCS    41
           431  00000000000000000000     SCSA     CONENT 0           MASK TO BE USED                             COMFSCS    42
                                                  ENDX                                                           COMFSCS    43
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    21
        POST SUPPORT ROUTINES.                                        RLINK 
  
                                                  LIST   D                                                       RLINK     681
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        SNR 
  
                                        CONTENT OF LITERALS BLOCK.
  
           432  00000000010000001240        A   J5
  
           433                                    END                                                            RLINK     682
  
                             67700B CM  STORAGE USED             1752 STATEMENTS     1797 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            1.552 SECONDS         485 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW             0   EXTERNAL*       1/40 X   15/56
        APCON           0   EXTERNAL*       1/43 X   18/33     19/41
        BCT           332   PROGRAM*       15/54 L   15/54 E
        BCT1          337   PROGRAM*       16/07 L   16/17
        BCT2          341   PROGRAM*       16/08     16/16 L
        BJT            52   PROGRAM*        3/09 L   13/43
        BLL             1   PROGRAM*        2/07 L    2/07 E
        B1=1            0 
        CFP           343   PROGRAM*       11/57     12/17     14/43     17/12 L
        CGE             4   PROGRAM*        2/29 L    2/29 E
        CGE1           10   PROGRAM*        2/34      2/37 L
        CHARMAP         1   PROGRAM*        2/08 L    2/08 E
        CII           165   PROGRAM*        7/09 L    7/09 E
        CI=AND        175   PROGRAM*        5/37      8/33 L
        CI=BOS        172   PROGRAM*        5/28      8/11 L
        CI=CLR        320   PROGRAM*        6/44     15/33 L
        CI=CX         175   PROGRAM*        6/10      8/36 L
        CI=DAR        321   PROGRAM*        5/30     15/34 L
        CI=DEF        322   PROGRAM*        5/32     15/35 L
        CI=DFA        175   PROGRAM*        5/54      8/35 L
        CI=DFM        175   PROGRAM*        6/05      8/35 L
        CI=DFS        175   PROGRAM*        5/55      8/35 L
        CI=DRL        213   PROGRAM*        6/24     10/13 L
        CI=DWL        217   PROGRAM*        6/25     10/13 L
        CI=ENT        323   PROGRAM*        5/34     15/36 L
        CI=EOQ        324   PROGRAM*        5/27     15/37 L
        CI=EOS        325   PROGRAM*        5/29     15/38 L
        CI=EQV        206   PROGRAM*        5/43      9/28 L
        CI=FA         175   PROGRAM*        5/52      8/34 L
        CI=FD         175   PROGRAM*        6/07      8/36 L
        CI=FM         175   PROGRAM*        6/03      8/35 L
        CI=FMA        233   PROGRAM*        6/06     10/52 L
        CI=FS         175   PROGRAM*        5/53      8/35 L
        CI=IA         175   PROGRAM*        6/01      8/35 L
        CI=IAZ        230   PROGRAM*        6/39     10/42 L
        CI=ILD        241   PROGRAM*        6/36     11/30 L
        CI=ILS        175   PROGRAM*        5/46      8/34 L
        CI=IM         232   PROGRAM*        6/41     10/42 L
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    22
        SYMBOLIC REFERENCE TABLE. 
  
        CI=IMP        206   PROGRAM*        5/42      9/27 L
        CI=IRS        175   PROGRAM*        5/47      8/34 L
        CI=IS         175   PROGRAM*        6/02      8/35 L
        CI=ISZ        231   PROGRAM*        6/40     10/42 L
        CI=JIN        303   PROGRAM*        6/31     14/05 L
        CI=JPBB       276   PROGRAM*        6/29     13/39 L
        CI=JPX        272   PROGRAM*        6/28     13/14 L
        CI=KLS        233   PROGRAM*        5/44     10/52 L
        CI=KRS        233   PROGRAM*        5/45     10/52 L
        CI=LAB        316   PROGRAM*        5/33     15/17 L
        CI=LD         241   PROGRAM*        6/12     11/30 L
        CI=LDC        236   PROGRAM*        6/42     11/18 L
        CI=LDV        326   PROGRAM*        6/43     15/39 L
        CI=NOP        171   PROGRAM*        6/09      8/03 L
        CI=NR         175   PROGRAM*        5/48      8/34 L
        CI=OR         175   PROGRAM*        5/38      8/33 L
        CI=PK         175   PROGRAM*        5/51      8/34 L
        CI=PLD        241   PROGRAM*        6/15     11/30 L
        CI=PST        241   PROGRAM*        6/16     11/30 L
        CI=RFA        175   PROGRAM*        5/56      8/35 L
        CI=RFD        175   PROGRAM*        6/08      8/36 L
        CI=RFM        175   PROGRAM*        6/04      8/35 L
        CI=RFS        175   PROGRAM*        5/57      8/35 L
        CI=RJXJ       327   PROGRAM*        6/27     15/40 L
        CI=RJ3        305   PROGRAM*        6/32     14/21 L
        CI=RJ6        307   PROGRAM*        6/33     14/33 L
        CI=RNZ        175   PROGRAM*        5/49      8/34 L
        CI=RS         330   PROGRAM*        5/31     15/41 L
        CI=S          241   PROGRAM*        6/17     11/30 L
        CI=SA         261   PROGRAM*        6/20     12/32 L
        CI=SDL        262   PROGRAM*        6/21     12/37 L
        CI=SDS        262   PROGRAM*        6/22     12/37 L
        CI=SLD        261   PROGRAM*        6/18     12/32 L
        CI=SS         262   PROGRAM*        6/23     12/37 L
        CI=SST        261   PROGRAM*        6/19     12/32 L
        CI=ST         241   PROGRAM*        6/13     11/30 L
        CI=STR        206   PROGRAM*        5/41      9/26 L
        CI=STT        241   PROGRAM*        6/14     11/30 L
        CI=SXT        331   PROGRAM*        6/45     15/42 L
        CI=TLD        241   PROGRAM*        6/37     11/30 L
        CI=TST        241   PROGRAM*        6/38     11/30 L
        CI=UJP        314   PROGRAM*        6/34     15/05 L
        CI=UP         175   PROGRAM*        5/50      8/34 L
        CI=XMT        202   PROGRAM*        5/36      9/03 L
        CI=XMTC       202   PROGRAM*        5/40      9/04 L
        CI=XOR        175   PROGRAM*        5/39      8/33 L
        CJP           274   PROGRAM*       13/25 L   13/53     14/12     14/24     15/08     15/20
        ERR22           0   EXTERNAL*       1/43 X    2/30      2/39 S
        E.CCG           0   EXTERNAL*       1/56 X    2/35
        E.MO2           0   EXTERNAL*       1/56 X    2/32
        FEC=BY          0                   2/04 D    2/04 E
        FEC.RTN         1   PROGRAM*        2/09 L    2/09 E
        FUDGE           1   FTX            20/29
        HTT            45   PROGRAM*        3/02 L   12/54
        IA.BIASL       30   FTX            18/41
        IA.BIASP       22   FTX            19/05     19/12     19/24     19/31
        IA.CHARL        1   FTX            18/44
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    23
        SYMBOLIC REFERENCE TABLE. 
  
        IA.CHARP       11   FTX            18/44
        IA.CRHL         1   FTX            18/44
        IA.CRHP        10   FTX            18/44
        IA.TAGL        22   FTX            18/40
        IA.TAGP        52   FTX            19/01     19/05     19/21     19/24
        IH.CAIHL       44   CTX            11/45
        IH.IP          17   CTX            17/14
        IH.LCM      40000   CTX            10/16
        I.BOS          22   FTX             8/12
        I.BSS          24   FTX            15/18
        I.JPI          30   FTX            14/06
        I.LD0          31   FTX            10/13
        I.RJ3          35   FTX            14/22
        I.RJ6          36   FTX            14/34
        I.ST0          32   FTX            10/13
        I.UJP          41   FTX            15/06
        JB.EQ           4                   3/13 D    3/16
        JB.GE           6                   3/13 D    3/16
        JB.LT           7                   3/13 D    3/16
        JB.NE           5                   3/13 D    3/16
        LDB             2   PROGRAM*        2/14 L    2/14 E
        LD1           247   PROGRAM*       11/47     11/52 L
        LD2           252   PROGRAM*       11/56     12/05 L
        LD3           254   PROGRAM*       12/08     12/11 L
        LD4           260   PROGRAM*       12/12     12/21 L
        LEXFLG          1   PROGRAM*        2/10 L    2/10 E
        LSR            13   PROGRAM*        2/45 L    2/45 E   17/31 S
        N.ALTEN        14   PROGRAM*        2/46 L    2/46 E
        N.TABLE         0   EXTERNAL*       1/52 X   20/26
        OC.LD          50   CTX            11/19
        OPJP           56   PROGRAM*        3/29 L    7/23
        PAT           367   PROGRAM*       18/30 L   18/30 E
        PAT10         376   PROGRAM*       18/54 L   19/15     19/27     19/33
        PAT20         404   PROGRAM*       19/03     19/06     19/15 L
        PB.BIASP       14   FTX             8/16     12/09     14/39
        PB.GHIJP       60   FTX             8/13     10/15     14/07     14/23     14/35     15/07     15/19
        PB.GHP         66   FTX             8/40      9/06      9/30     10/54     11/35     11/52     12/43     13/44
        PB.IP          63   FTX             8/42      9/08      9/32     10/56     11/33     12/41     13/18     13/41
        PB.JL           3   FTX            11/02
        PB.JP          60   FTX             8/48      9/16     11/05     12/50     13/50
                                            9/14      9/44     11/42     13/19
        PB.KL           3   FTX            11/02
        PB.KP          55   FTX             8/54      9/16      9/38     11/04     11/05     13/03
        PB.TAGL        22   FTX            12/01
        PB.TAGP        36   FTX            10/17     12/03     13/28     14/45
        PCA           411   PROGRAM*       19/40 L   19/40 E
        PCA10         416   PROGRAM*       19/50 L   19/54     20/06
        PDM             0   EXTERNAL*       1/49 X    2/37
        RNI             0   EXTERNAL*       1/46 X   12/14
        RTT            15   PROGRAM*        2/51 L    7/19      7/22
        SCS           422   PROGRAM*       20/25 L   20/25 E
        SCSA          431   PROGRAM*       20/27     20/47 L   20/47 E
        SCS1          425   PROGRAM*       20/35 L   20/39
        SI.CAL         22   CTX            11/20     12/06     14/37
        SI.CAP         36   CTX             8/14     11/22     12/05     13/16     13/42     14/36
                                           11/01     11/27     12/11     13/20     13/46     14/41
        SI.H2P         73   CTX            12/11
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    24
        SYMBOLIC REFERENCE TABLE. 
  
        SI.IHL         22   CTX            11/54     13/26
        SI.IHP         14   CTX            10/13     10/13     11/44     12/05     13/20     13/52     14/10
        SI.RIP          0   CTX            10/13     10/13
        SI.RJP          6   CTX             8/44      9/10      9/40     10/13     10/24     11/44     12/56     13/52
                                            8/50      9/34     10/13     10/19     11/37     12/45     13/46
        SI.RKP         14   CTX             8/50      9/40     10/24     12/56
        SMB           352   PROGRAM*       17/43 L   17/43 E   17/45     18/14
        SMB3          355   PROGRAM*       17/49 L   18/13     18/16
        SMB4          364   PROGRAM*       17/53     18/13 L
        SNR             0   EXTERNAL*      17/49
        STAGE           0   PROGRAM*        2/05 L    2/05 E
        SUB0          223   PROGRAM*       10/13     10/13     10/15 L
        S=CON           0   EXTERNAL*       1/52 X   18/35
        TEST            0   FTX             2/15 F
        TIB           263   PROGRAM*       12/34     12/40 L
        TIB2          267   PROGRAM*       11/50     12/53 L
        TYI           175   PROGRAM*        8/38 L   10/13     10/13     10/42     10/42     10/42
        T=APL           0   EXTERNAL*       1/52 X   18/32
        T=CAC           0   EXTERNAL*       1/52 X   19/42
        T=CON           0   EXTERNAL*       1/52 X   16/18 S
        T=NLST          0   EXTERNAL*       1/53 X   17/44
        T.APL           0   EXTERNAL*       1/52 X   18/31
        T.CAC           0   EXTERNAL*       1/52 X   19/44
        T.CON           0   EXTERNAL*       1/52 X   15/57
        T.CUT           0   EXTERNAL*       1/52 X   11/21     15/56     18/36     19/46
        T.STMT          0   EXTERNAL*       1/53 X
        T.SYM           0   EXTERNAL*       1/53 X   17/20     18/04
        WB.BASEL       14   FTX            17/54     17/55
        WB.BASEP       41   FTX            17/56     18/02
        WB.CLASP        5   FTX            18/02
        WB.DEFL         1   FTX            17/50
        WB.DEFP         7   FTX            17/50
        WB.EQVL         1   FTX            17/50
        WB.EQVP        11   FTX            17/50
        WB.FPL          1   FTX            17/23
        WB.FPP         20   FTX            17/23
        WB.MATL         1   FTX            17/50
        WB.MATP        36   FTX            17/50     18/09
        WB.PNTL        15   FTX            17/57     18/03
        WB.PNTP        57   FTX            17/56
        WB.VARL         1   FTX            17/50
        WB.VARP         5   FTX            17/50
        WB.W            1   FTX            17/21     18/05
        WC.RAL         30   FTX            19/57
        WC.RAP          0   FTX            19/55
        WC.RBP         60   FTX            19/53     19/55
        Z=IOA           2   FTX            18/39
        Z=SYM           3   FTX            17/19
        .Z             10                   3/10 D    3/13 D    3/13 D    3/13 D    3/13 D
                                            3/13      3/13      3/13      3/13
  
  
  
  
                                                  SYMBOL QUALIFIER =  FUNIT 
  
  
1       RLINK - REAR-END LINKAGES.                                    COMPASS 3.7-871.     24/05/02. 13.18.42.      PAGE    25
        SYMBOLIC REFERENCE TABLE.                                     FUNIT 
  
        BJUMP          11                   4/50 D
        BOOL            2                   4/42 D
        BRANCH          1                   4/41 D
        DIVIDE         10                   4/47 D    4/53
        FADD            5                   4/45 D
        IADD            4                   4/44 D    4/51
        INC            11                   4/48 D    4/50
        LCM            12                   4/52 D
        MULT            6                   4/46 D
        NORM            3                   4/49 D
        PACK            3                   4/54 D
        POPC           10                   4/53 D
        SHIFT           3                   4/43 D    4/49      4/54
        XJUMP           4                   4/51 D
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2437              IDENT  FAS
                       2437                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      2424 
                                        LITERALS* LOCAL        2424        13 
  
  
                                        ENTRY POINTS. 
  
                                        B=FAS            0+           TAGSUB0        206+           CLE           1037+ 
                                        BT.IDNT          0+           OL=BIN         207+           CLE.EQ        1040+ 
                                        BT.IDN8         10            OL=LBF         210+           DLF           1310+ 
                                        BT.IDN9         11            OL=PB          211+           ESL           1407+ 
                                        BT.XFR1         61+           OL=RL          212+           ESL.EQ        1410+ 
                                        CIDMOD          65+           FAS            221+           FBP           1430+ 
                                        COMMOD          66+           APLA           335+           FBP.EQ        1431+ 
                                        FCLMOD          70+           RADRTN         467+           POL           2176+ 
                                        FAPSUD         132+           RADOL1         531+           POL.EQ        2177+ 
                                        ORG            201+           RADOL2         551+           RNI           2323+ 
                                        PARCEL         202+           RADC           753+           SNR           2347+ 
                                        ORGSUB         203+           BST            770+           WLF           2410+ 
                                        SUBFLG         204+           BST.EQ         771+           WLF.EQ        2411+ 
                                        ORGSUB0        205+           CAB           1027+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       PIK       S=BU      T=LNT     T.FPO     WO.LOO    LI=ZERO * LI=NLST * 
                                        ALC       VFD       S=LENP    T=NLST    T.GL      WO.56     LI=UJP  * LI=LOO  * 
                                        DMT=      BINIO     S=ENTRY   T=PTXT    T.IOA     WO.57     LI=SB0I * LI=LCC  * 
                                        FI=BRLI   BN=APL    S=RD      T=PTXTR   T.IOI     T.CLWB    LI=SUBI * LI=IOM  * 
                                        CO.ARGC   BN=SUB    S=SA1     T=SCR     T.LA      T=CLWB    LI=RJ6  * LI=IDNT * 
                                        CO.DBPM   BN=SUB0   S=VD      T=SYM     T.LCA     LEVEL2    LI=RJ3  * LI=FVEC * 
                                        CO.OPT    CBI       T=APL     T=XFIL    T.LCC     ADA       LI=OTR  * LI=FMT  * 
                                        CO.PW     ERRORS    T=BLKS    T.API     T.LGOB    CII       LI=ST0  * LI=EQUN * 
                                        CO.SNAP   F.LBT     T=CLW     T.APL     T.LINK    PAT       LI=LD0  * LI=END  * 
                                        CP.MODL   IDENT     T=DIM     T.BLKS    T.LNT     CIO=      LI=JPI  * LI=CON  * 
                                        FV.LGO    LINEBUF   T=DATS    T.CAC     T.NLST    DXB       LI=EMI  * LI=BMI  * 
                                        F.LGO     LINES     T=ENT     T.CLW     T.PTXT    MVE=      LI=ECI  * LI=APL  * 
                                        F.PB      MOD       T=FILL    T.CON     T.PTXTR   RDW=      LI=DATA * LI=BSS  * 
                                        GT1       NREXT     T=IOA     T.DATS    T.SCR     SFN       LI=CPL  * LI=ADDR * 
                                        TL.DATE   N.TABLE   T=LA      T.DIM     T.SUB     SST       LI=BOS  * 
                                        TL.PTYP   PIA       T=LCA     T.ENT     T.SUB0    WOD       LI=BCI  * 
                                        TL.TIME   PIK=PS    T=LCC     T.FILL    T.SYM     WTW=      LI=USE  * 
                                        CO.ARGF   SAVE      T=LGOB    T.FMT     T.XFIL    CO.LL     LI=TRAC * 
                                        IDP=      SUM.LBT   T=LINK    T.FPI     USAVE     LI=FLA  * LI=PLIM * 
  
  
  
  
                                        **IF DEF,TEST                                                            FC5A388    14
                                                  IDENT  FAS                                                     FAS         2
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     2
  
  
                                         FAS      SECT   (FORTRAN INTERNAL ASSEMBLER.)                           FAS         3
  
  
  
  
  
                                                                                                                 FAS         5
                                                                                                                 FAS         6
                                        *         IN ALLOC                                                       FAS         7
                                                  EXT    ADW,ALC                                                 FAS         8
                                                                                                                 FAS         9
                                        *         IN FSNAP                                                       FAS        10
                                                  EXT    DMT=,FI=BRLI                                            FAS        11
                                                                                                                 FAS        12
                                        *         IN FTN                                                         FAS        13
                                                  EXT    CO.ARGC,CO.DBPM,CO.OPT,CO.PW,CO.SNAP,CP.MODL,FV.LGO     FAS        14
                                                  EXT    F.LGO,F.PB,GT1,TL.DATE,TL.PTYP,TL.TIME                  FAS        15
                                                  EXT    CO.ARGF                                                 FC51002    11
                                                                                                                 FAS        16
                                        *         IN IDP                                                         FAS        17
                                                  EXT    IDP=                                                    FAS        18
                                                                                                                 FAS        19
                                        *         IN LIST                                                        FAS        20
                                                  EXT    PIK,VFD                                                 FC5A219     5
                                                                                                                 FAS        22
                                        *         IN PUC                                                         FAS        23
                                                  EXT    BINIO,BN=APL,BN=SUB,BN=SUB0,CBI,ERRORS,F.LBT,IDENT      FAS        24
                                                  EXT    LINEBUF,LINES,MOD,NREXT,N.TABLE,PIA,PIK=PS,SAVE,SUM.LBT FAS        25
                                                  EXT    S=BU,S=LENP,S=ENTRY,S=RD,S=SA1,S=VD,T=APL,T=BLKS,T=CLW  FAS        26
                                                  EXT    T=DIM,T=DATS,T=ENT,T=FILL,T=IOA,T=LA,T=LCA,T=LCC,T=LGOB FAS        27
                                                  EXT    T=LINK,T=LNT,T=NLST,T=PTXT,T=PTXTR,T=SCR,T=SYM          FAS        28
                                                  EXT    T=XFIL,T.API,T.APL,T.BLKS,T.CAC,T.CLW,T.CON,T.DATS      FAS        29
                                                  EXT    T.DIM,T.ENT,T.FILL,T.FMT,T.FPI,T.FPO,T.GL,T.IOA,T.IOI   FAS        30
                                                  EXT    T.LA,T.LCA,T.LCC,T.LGOB,T.LINK,T.LNT,T.NLST,T.PTXT      FAS        31
                                                  EXT    T.PTXTR,T.SCR,T.SUB,T.SUB0,T.SYM,T.XFIL,USAVE,WO.LOO    FAS        32
                                                  EXT    WO.56,WO.57,T.CLWB,T=CLWB                               FC5A219     6
                                                  EXT    LEVEL2                                                  FC5A406     5
                                                                                                                 FAS        34
                                        *         IN REC                                                         FAS        35
                                                  EXT    ADA                                                     FAS        36
                                                                                                                 FAS        37
                                        *         IN RLINK                                                       FAS        38
                                                  EXT    CII,PAT                                                 FAS        39
                                                                                                                 FAS        40
                                        *         IN UTILITY                                                     FAS        41
                                                  EXT    CIO=,DXB,MVE=,RDW=,SFN,SST,WOD,WTW=                     FAS        42
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     3
                                                                      FAS 
  
                                        **        PASS *THREE* -- ASSEMBLE THE OBJECT CODE.                      FAS        44
                                        *                                                                        FAS        45
                                        *         *FAS*  CONTROLLING ROUTINE FOR FORTRAN INTERNAL ASSEMBLER.     FAS        46
                                        *                                                                        FAS        47
                                        *                                                                        FAS        48
                                        *         ********** PSEUDO INSTRUCTION PROCESSORS *********             FAS        49
                                        *                                                                        FAS        50
                                        *                                                                        FAS        51
                                        *         *DDS*  DUMP DATA STATEMENTS -- READS THE TRANSLATED *DATA*     FAS        52
                                        *                STATEMENTS FROM *T.DATS* AND PRODUCES CORRESPONDING     FAS        53
                                        *                BINARY TABLES FOR THE LOADER.                           FAS        54
                                        *                                                                        FAS        55
                                        *         *DFT*  DUMP FILE TABLES.  DUMPS FIT + FET (S).                 FAS        56
                                        *                                                                        FAS        57
                                        *         *DIT*  DUMP IDENTIFICATION TABLES.  DUMPS IDNT, LDSET, PIDL,   FAS        58
                                        *                ENTR TABLES AND TRACEBACK WORDS.                        FAS        59
                                        *                                                                        FAS        60
                                        *         *DLC*  DUMP *LDSET COMMON* DIRECTIVES FOR COMMON AND LOCAL     FAS        61
                                        *                BLOCKS DECLARED TO BE SAVED.                            FAS        62
                                        *                                                                        FAS        63
                                        *         *KAP*  TRANSLATES THE AP-LISTS GENERATED IN *T.APL* INTO       FAS        64
                                        *                THE BINARY OUTPUT.                                      FAS        65
                                        *                                                                        FAS        66
                                        *         *KIO*  TRANSLATE THE I/O AP-LIST GENERATED IN *T.IOA*          FAS        67
                                        *                INTO THE BINARY OUTPUT.                                 FAS        68
                                        *         *KNS*  READS THE TRANSLATED *NAMELIST* GROUP DEFINITIONS FROM  FAS        69
                                        *                *T.NLST* AND PRODUCES APPROPRIATE BINARY.               FAS        70
                                        *                                                                        FAS        71
                                        *         *KON*  PROCESS THE SAVED CONSTANTS (T.CON) INTO THE BINARY.    FAS        72
                                        *                                                                        FAS        73
                                        *         *RAD*  READS PSEUDO OBJECT CODE FROM *T.PB* (OR THE OVERFLOW   FAS        74
                                        *                FILE), FILLING IN ACTUAL ADDRESSES AND RELOCATION BASES FAS        75
                                        *                AND WRITING BINARY.  ALSO WRITES OBJECT LISTING VIA A   FAS        76
                                        *                CALL TO  *PIK*  (IN  *LIST*  ) IF REQUIRED.             FAS        77
                                        *                                                                        FAS        78
                                        *                                                                        FAS        79
                                        *          ********** SUPPORTING ROUTINES **********                     FAS        80
                                        *                                                                        FAS        81
                                        *                                                                        FAS        82
                                        *         *BNW*  STORES CURRENT TEXT WORD INTO TEXT TABLE AND BEGINS     FAS        83
                                        *                A NEW WORD.                                             FAS        84
                                        *                                                                        FAS        85
                                        *         *BST*  BUILD  *SUB*  OBJECT TABLE.                             FAS        86
                                        *                                                                        FAS        87
                                        *         *BSZ*  BUILD *SUB0* OBJECT TABLE.                              FAS        88
                                        *                                                                        FAS        89
                                        *         *DFD*  DUMPS STATEMENT/LINE NUMBER (5700) AND LOADER SYMBOL    FAS        90
                                        *                (5600) TABLES TO BINARY.                                FAS        91
                                        *                                                                        FAS        92
                                        *         *DLC*  DUMP *LDSET,COMMON* DIRECTIVES FOR SAVE                 FAS        93
                                        *                                                                        FAS        94
                                        *         *DLF*  FLUSHES THE LINK AND FILL TABLES ACCUMLATED BY THE      FAS        95
                                        *                OTHER PROCESSORS.                                       FAS        96
                                        *                                                                        FAS        97
                                        *         *DTX*  FLUSHES THE *TEXT* TABLE BEING CONSTRUCTED, AND RESETS  FAS        98
                                        *                THE ORIGIN COUNTER APPROPRIATELY.                       FAS        99
                                        *                                                                        FAS       100
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     4
                                                                      FAS 
  
                                        *         *FST*  FORMAT LOADER SYMBOL TABLE FOR CID/ PMDMP IN A SCRATCH  FAS       101
                                        *                TABLE.                                                  FAS       102
                                        *                                                                        FAS       103
                                        *         *OCL*  TRANSLATES ENTRIES OF T.CLW (TABLE OF CHARACTER LENGTH  FAS       104
                                        *                WORDS) INTO BINARY FORM DEFINED AS LO. .                FAS       105
                                        *                                                                        FAS       106
                                        *         *ORD*  OUTPUT RUN-TIME DIMENSION TABLE TO BINARY.              FAS       107
                                        *                                                                        FAS       108
                                        *         *OTB*  OUTPUT A TABLE TO BINARY FILE.                          FAS       109
                                        *                                                                        FAS       110
                                        *         *OSB*  OUTPUT *SUB* /*SUB0* BLOCK TO BINARY FILE.              FAS       111
                                        *                                                                        FAS       112
                                        *         *PAW*  PREPARE I/O AP-LIST WORD FOR NAMELIST MEMBERS.          FAS       113
                                        *                                                                        FAS       114
                                        *         *PIT*  WRITE IDNT(77) TABLE TO BINARY FILE.                    FAS       115
                                        *                                                                        FAS       116
                                        *         *POL*  TRANSFER CONTROL TO APPROPRIATE LISTING ROUTINE         FAS       117
                                        *                IN DECK *LIST* IF LISTING OPTION IS ON.                 FAS       118
                                        *                                                                        FAS       119
                                        *         *PUSE* SUBROUTINE TO PROCESS   USE  PSEUDO.  SWITCHES ORG      FAS       120
                                        *                AND PARCEL COUNTERS AS DICTATED BY  USE  PSEUDO         FAS       121
                                        *                INSTRUCTION.  CALLED BY PSEUDO INSTRUCTION PROCESSOR    FAS       122
                                        *                PP=USE.                                                 FAS       123
                                        *                                                                        FAS       124
                                        *         *RBS*  RELOCATE   BSS  INSTRUCTIONS.                           FAS       125
                                        *                                                                        FAS       126
                                        *         *REL*  CALLED BY OTHER ROUTINES TO DETERMINE VALUE AND         FAS       127
                                        *                RELOCATION OF TAGS.                                     FAS       128
                                        *                                                                        FAS       129
                                        *         *RNI*  READS ONE WORD FROM THE PRE-BINARY FILE (T.PB OR F.PB). FAS       130
                                        *                                                                        FAS       131
                                        *         *SMW*  STORES MULTIPLE WORDS INTO BINARY TEXT, WITHOUT         FAS       132
                                        *                RELOCATION.                                             FAS       133
                                        *                                                                        FAS       134
                                        *         *STI*  FOR A BLOCK DATA SUBPROGRAM, SKIP PB INSTRUCTIONS       FAS       135
                                        *                UNTIL AN I.EMI INSTRUCTION IS REACHED.                  FAS       136
                                        *                                                                        FAS       137
                                        *         *STX*  STORES ONE WORD INTO THE *TEXT* CURRENTLY BEING BUILT,  FAS       138
                                        *                UPDATING ORIGIN COUNTER AND RELOCATION BYTES.           FAS       139
                                        *                                                                        FAS       140
                                        *         *WLF*  DOES THE ACTUAL WRITE TO THE BINARY, WHETHER IT BE A    FAS       141
                                        *                FILE (*LGO*), OR, WHEN COMPILING-TO-CORE, ADDING TO A   FAS       142
                                        *                TABLE (*T.LGO*).                                        FAS       143
  
  
  
  
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     5
        MACROS AND DEFINITIONS.                                       WLGO
  
                                        **        WLGO - MACRO TO OUTPUT BINARY TO LGO.                          FAS       147
                                        *                                                                        FAS       148
                                        *         WLGO   FWA,WC                                                  FAS       149
                                        *                                                                        FAS       150
                                        *         ENTRY  FWA = SOURCE ADDRESS OF WORDS TO BE OUTPUT (B6).        FAS       151
                                        *                WC  = NUMBER OF WORDS TO OUTPUT  (B7).                  FAS       152
                                        *         CALLS  WLF                                                     FAS       153
                                                                                                                 FAS       154
                                                                                                                 FAS       155
                                         WLGO     MACRO  F,W                                                     FAS       156
                                                  =B6    F                                                       FAS       157
                                                  =B7    W                                                       FAS       158
                                                  RJ     WLF                                                     FAS       159
                                         WLGO     ENDM                                                           FAS       160
  
  
  
  
                                         MODLVL   MICRO  1,5,/"MODLVL"     /                                     FAS       162
                                                                                                                 FAS       163
                                                                                                                 FAS       164
                                        **        TARGET - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR FOR   FAS       165
                                        *                  WHICH THE PROGRAM IS OPTIMIZED.                       FAS       166
                                        *                                                                        FAS       167
                                        *         VALID - TWO CHARACTERS INDICATING THE TYPE OF PROCESSOR ON     FAS       168
                                        *                 WHICH THE PROGRAM CAN BE EXECUTED.                     FAS       169
                                        *                                                                        FAS       170
                                        *         TARGET  AND  VALID  ARE CALCULATED FROM  MODEL                 FAS       171
                                        *                                                                        FAS       172
                                        *         MODEL      -->      TARGET     -->      VALID                  FAS       173
                                        *         71                  64                  64                     FAS       174
                                        *         72                  64                  64                     FAS       175
                                        *         73                  64                  64                     FAS       176
                                        *         74                  66                  6X                     FAS       177
                                        *         76                  76                  7X                     FAS       178
                                        *         171                 64                  64                     FAS       179
                                        *         172                 64                  64                     FAS       180
                                        *         173                 64                  64                     FAS       181
                                        *         174                 64                  64                     FAS       182
                                        *         175                 C5                  CX                     FAS       183
                                        *         176                 76                  7X                     FAS       184
                                        *                                                                        FAS       185
                                                                                                                 FAS       186
                                         .TMP    MICRO  2,1,/"MDL"/   73747576                                   F2950F5    30
                                         TARGET  MICRO  2*".TMP"-5,2,/6466C576/                                  F2950F5    31
                                         VALID   MICRO  2*".TMP"-5,2,/646XCX7X/                                  F2950F5    32
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     6
        BINARY OUTPUT TABLE DEFINITIONS.
  
                                        **        BT.--- BINARY OUTPUT TABLE DEFINITIONS.                        FAS       200
                                                                                                                 FAS       201
                                                                                                                 FAS       202
                                3400     BT=PIDL  EQU    3400B       PROGRAM/BLOCK TABLE                         FAS       203
                                3500     BT=PTEXT EQU    3500B       PARTIAL WORD TEXT TABLE                     FAS       204
                                3600     BT=ENTR  EQU    3600B       ENTRY POINT TABLE                           FAS       205
                                3700     BT=XTEXT EQU    3700B                                                   FC5A132   103
                                4100     BT=XFILL EQU    4100B       EXTENDED FILL OR *XFILL* TABLE              FAS       207
                                4200     BT=FILL  EQU    4200B       COMMON *FILL* TABLE                         FAS       208
                                4700     BT=XREPL EQU    4700B                                                   FC5A132   104
                                4400     BT=LINK  EQU    4400B       EXTERNAL *LINK* TABLE                       FAS       210
                                4600     BT=XFER  EQU    4600B       TRANSFER ADDRESS TABLE                      FAS       211
                                5600     BT=LSYM  EQU    5600B       LOADER SYMBOL TABLE                         FAS       212
                                5700     BT=LSTN  EQU    5700B       LOADER STMT AND LINE NUMBER TABLE           FAS       213
                                7000     BT=LDSET EQU    7000B       *LDSET* OBJECT DIRECTIVE                    FAS       214
                                  10     BT=LIB   EQU    10B         *LIB* SUB-DIRECTIVE                         FAS       215
                                  32     BT=CMN   EQU    32B         *COMMON* SUB-DIRECTIVE                      FAS       216
                                  11     BT=MAP   EQU    11B         *MAP* SUB-DIRECTIVE                         FAS       217
                                  12     BT=PREST EQU    12B         *PRESET* SUB-DIRECTIVE                      FAS       218
                                7700     BT=IDNT  EQU    7700B       IDENT (PREFIX) TABLE                        FAS       219
                                7777     BT=MXWC  EQU    7777B       MAXIMUM WORD COUNT PER TABLE OUTPUT TO LGO  FAS       220
                                                                                                                 FAS       221
                                                                                                                 FAS       222
                                        **        HEADER WORD DEFINITIONS. (BT.)                                 FAS       223
                                                                                                                 FAS       224
                                                                                                                 FAS       225
                                                  DESCRIBE  BT.,60                                               FAS       226
      L     60  77770000000000000000     CN       DEFINE 12          CODE NUMBER                                 FAS       227
      L     44  00007777000000000000     WC       DEFINE 12          WORD COUNT                                  FAS       228
      L     43  00000000400000000000     PMDT     DEFINE 1           =1 IF CREATE ZZZZZDT FILE FOR PMDMP         FAS       229
                                                  DEFINE 8                                                       FAS       230
      L     22  00000000000777000000     RL       DEFINE 9                                                       FAS       231
      L     21  00000000000000400000     TYP      DEFINE 1           BLOCK TYPE  (PIDL DESCRIPTIONS)             FAS       232
                                                  DEFINE 17                                                      FAS       233
                                                                                                                 FC5A132   105
                                        *         DEFINE XTEXT HEADER WORD                                       FC5A132   106
                                                                                                                 FC5A132   107
                                                  REDEF                                                          FC5A132   108
      L     60  77770000000000000000     CN       DEFINE 12          CODE NUMBER                                 FC5A132   109
      L     44  00007777000000000000     WC       DEFINE 12          WORD COUNT                                  FC5A132   110
      L     43  00000000400000000000     PMDT     DEFINE 1           =1 IF CREATE ZZZZZDT FILE FOR PMDMP         FC5A132   111
                                                  DEFINE 2                                                       FC5A132   112
      L     30  00000000077700000000     RLX      DEFINE 9                                                       FC5A132   113
                                                  DEFINE 24                                                      FC5A132   114
                                                                                                                 FAS       234
                                        *         DEFINE PARTIAL WORD TEXT TABLE FORMAT (BT.PTEXT).              FAS       235
                                                                                                                 FAS       236
                                                  REDEF                                                          FAS       237
      L     52  77777700000000000000     LEN      DEFINE 18                                                      FAS       238
      L     44  00000077000000000000     BCP      DEFINE 6                                                       FAS       239
      L     43  00000000400000000000     RP       DEFINE 1           REPLICATION INDICATOR                       FAS       240
                                                  DEFINE 2                                                       FAS       241
      L     30  00000000077700000000     RB       DEFINE 9           RELOCATION BASE                             FAS       242
             0  00000000000077777777     FWA      DEFINE 24                                                      FAS       243
                                                                                                                 FAS       244
      L     30  00007777777700000000     RIP      DEFINE 24,47       REPLICATION INCREMENT FOR PTEXT             FAS       245
             0  00000000000077777777     RCP      DEFINE 24,23       REPLICATION COUNT FOR PTEXT                 FAS       246
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     7
        BINARY OUTPUT TABLE DEFINITIONS.
  
                                                                                                                 FAS       247
                                        *         DEFINE REPLICATION TABLE FORMAT (BT.XREP)                      FC5A132   115
                                                                                                                 FC5A132   116
                                                  REDEF                                                          FC5A132   117
      L     55  77777000000000000000     C        DEFINE 15          NO. OF TIMES BLOCK COPIED                   FC5A132   118
      L     41  00000777700000000000     B        DEFINE 12          BLOCK SIZE                                  FC5A132   119
      L     41  00077777700000000000     K        DEQU   B,18        DESTINATION ADDRESS INCREMENT               FC5A132   120
      L     30  00000000077700000000     RS       DEFINE 9           RELOCATION BASE                             FC5A132   121
             0  00000000000077777777     AS       DEFINE 24          RELATIVE ADDRESS                            FC5A132   122
  
  
  
  
                                        *         LOADER SYMBOL TABLE HEADER TEMPLATE.                           FAS       257
                                                                                                                 FAS       258
                                        *         DEFINE  HEADER WORD (BT.) .                                    FAS       259
                                                                                                                 FAS       260
                                                  REDEF                                                          FAS       261
      L     60  77770000000000000000     CN       DEFINE 12          CODE NUMBER                                 FAS       262
      L     44  00007777000000000000     WC       DEFINE 12          WORD COUNT                                  FAS       263
                                                  DEFINE 2                                                       FAS       264
      L     30  00000000177700000000     LO       DEFINE 10          LANGUAGE ORDINAL, =4 FOR FTN5               FAS       265
      L     27  00000000000040000000     LTB      DEFINE 1           =1 IF LAST SYMBOL TABLE                     FAS       266
      L     26  00000000000020000000     DST      DEFINE 1           =1 IF THIS IS A DIMENSION DESCRIPTOR        FAS       267
      L     24  00000000000014000000     TY       DEFINE 2           PROGRAM TYPE                                FAS       268
                                                  DEFINE 2                                                       FAS       269
             0  00000000000000777777     SA1      DEFINE 18          RELATIVE ADDRESS OF WORD TO SAVE REG. A1    FAS       270
                                                                                                                 FAS       271
                                   4     L.BTRB   EQU    4           WIDTH OF A RELOCATION BYTE                  FAS       272
                                  16     L.77     EQU    16B                                                     FAS       273
  
  
  
  
                                        **        BT.IDNT - IDNT (PREFIX) TABLE DIRECTIVE                        FAS       275
                                                                                                                 FAS       276
             0                           BT.IDNT  BSSENT 0           PREFIX TABLE LAYOUT                         FAS       277
                                                                                                                 FAS       278
             0                                    LOC    0                                                       FAS       279
                                                                                                                 FAS       280
             0  77000016000000000000              VFD    BT.CNL/BT=IDNT,BT.WCL/L.77,*P/0                         FAS       281
             1  47474747474747555555              DIS    1,*******         DECK NAME                             FAS       282
             2  55151550040450313155              DIS    2, MM/DD/YY  HH.MM.SS.                                  FAS       283
             4  16172355355743574255              DATA   10H"OS.ID"                                              FAS       284
             5  06241655555555405734              DATA   10H"LPNAME""VER"                                        FAS       285
             6  43423455554137413755              VFD    30/5H"MODLVL",12/2H"TARGET",12/2H"VALID",6/1H           FAS       286
             7  55115555555555555555              DATA   2H I        HARDWARE DEPENDENCIES                       FAS       287
            10  55555555555555555555     BT.IDN8  CONENT 1H          PROG-UNIT TYPE                              FAS       288
                                        *                                           ---  OPTIONS  ---            FAS       289
            11  55555555555555555555     BT.IDN9  CONENT 1H          DBUG TRACE                                  FAS       290
            12  55555555555555555555     BT.IDNTA DIS    1,                               ROUND SYS              FAS       291
            13  55555555555555555555              DIS    1,                                                      FC51002    12
            14  55555555555555555555     BT.IDNTB DIS    1,                               ARG                    FC51002    13
            15                     2     BT.IDNTU BSSZ   L.77-*+1                        USER COMMENT            FAS       292
                                                                                                                 FAS       293
            17                                    LOC    *O                                                      FAS       294
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     8
        BINARY OUTPUT TABLE DEFINITIONS.                              BT.DBMP 
  
                                        **        BT.DBMP - *LDSET PRESET* AND *LDSET MAP* LOADER SUB-DIRECTIVES FAS       296
                                        *         REQUIRED BY PMDMP.                                             FAS       297
                                                                                                                 FAS       298
            17                           BT.DBPM  BSS                                                            FAS       299
            17  00120001000000000001              VFD    BT.CNL/BT=PREST,BT.WCL/1,18/0,18/1                      FAS       300
            20  60000000000433400000              VFD    60/60000000000433400000B                                FAS       301
            21  00110001000000000007              VFD    BT.CNL/BT=MAP,BT.WCL/1,17/0,18/3,1/1                    FAS       302
            22  32323232321520000000              DATA   7LZZZZZMP                                               FAS       303
                                   4     BT.DBPML EQU    *-BT.DBPM                                               FAS       304
  
  
  
  
                                        **        BT.LIB - *LDSET(LIB=FORTRAN)* LOADER OBJECT DIRECTIVE.         FAS       306
                                                                                                                 FAS       307
            23  00100001000000000000     BT.LIB   VFD    BT.CNL/BT=LIB,BT.WCL/BT.LIBL-1,*P/0                     FAS       308
            24  06241640141102000000              DATA   L FTN5LIB                                               FAS       309
                                   2     BT.LIBL  EQU    *-BT.LIB                                                FAS       310
  
  
  
  
                                        **        BT.ERR - THIS LINE IS ALL THE BINARY OUTPUT IF THERE WERE      FAS       312
                                        *                FATAL ERRORS.                                           FAS       313
                                                                                                                 FAS       314
                                2424 +   BT.ERR   LIT    28LERRORS IN COMPILATION.                               FAS       315
  
  
  
  
                                        **        BT.XREP - REPLICATION TABLES BUILT HERE.                       FC5A132   124
                                                                                                                 FC5A132   125
            25  47000002000000000001     BT.XREP  VFD    BT.CNL/BT=XREPL,BT.WCL/2,*P/1                           FC5A132   126
            26  00000000000100000000              VFD    27/0,9/1,24/**    SOURCE OF REPL                        FC5A132   127
            27  00000000000100000000              VFD    15/**,12/0,9/1,24/**    REPL COUNT, DESTINATION OF REPL FC5A132   128
                                   3     BT.XREPL EQU    *-BT.XREP                                               FC5A132   129
                                                                                                                 FC5A132   130
  
  
  
  
                                        **        BT.PTEXT - PARTIAL WORD TEXT TABLE BUILT HERE.                 FAS       352
                                                                                                                 FAS       353
            30  35000000000000000000     BT.PTEXT VFD    BT.CNL/BT=PTEXT,BT.WCL/**,*P/0                          FAS       354
            31  000000000000                      VFD    BT.LENL/**,BT.BCPL/**,BT.RPL/**,2/0,BT.RBL/**,          FAS       355
                            00000000              VFD    BT.FWAL/**                                              FAS       356
            32  00000000000000000000              VFD    12/0,BT.RIPL/**,BT.RCPL/**                              FAS       357
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE     9
        BINARY OUTPUT TABLE DEFINITIONS.
  
                                                                                                                 FAS       359
                                        **        BT.TEXT - PARTIAL *TEXT* TABLE BUILT HERE.                     FAS       360
                                                                                                                 FAS       361
            33  00000000000000000000     BT.TXWC  DATA   0           WORD COUNT                                  FAS       362
            34  00000000000000000000     BT.TEXT  DATA   0           PARTIAL TABLE PROPER                        FAS       363
            35  00000000000000000000     BT.TXRB  DATA   0           RELOCATION BYTES                            FAS       364
            36                    17              BSSZ   15                                                      FAS       365
                                  20     BT.TXTL  EQU    *-BT.TXRB   LENGTH OF WORKING BUFFER                    FAS       366
                                                                                                                 FAS       367
            55  00000000000000000000     BINWORD  DATA   0           PARTIAL BINARY OUTPUT WORD                  FAS       368
            56  00000000000000000000     BINREL   DATA   0           PARTIAL RELOCATION                          FAS       369
                                                                                                                 FAS       370
            57  36000000000000000000     BT.ENTR  VFD    BT.CNL/BT=ENTR,*P/0                                     FAS       371
            60  46000001000000000000     BT.XFER  VFD    BT.CNL/BT=XFER,BT.WCL/1,*P/0                            FAS       372
            61                     1     BT.XFR1  BSSENT 1           ROUTINE NAME GOES HERE                      FAS       373
  
  
  
  
                                        *         STATEMENT LINE NUMBER TABLE HEADER TEMPLATE.                   FAS       375
                                                                                                                 FAS       376
                                   4     BT=FTN5  EQU    4           LANGUAGE ORDINAL FOR FTN5                   FAS       377
                                   3     BT=LSYML EQU    3           NO. OF WORDS PER (5600) TABLE ENTRY         FAS       378
                                   0              ERRNZ  Z=SYM-BT=LSYML                                          FAS       379
                                                                                                                 FAS       380
            62  57000000000400000000     BT.LSTN  VFD    BT.CNL/BT=LSTN,BT.WCL/**,12/BT=FTN5,*P/0                FAS       381
                                                                                                                 FAS       382
                                        *         LOADER SYMBOL TABLE HEADER TEMPLATE.                           FAS       383
                                                                                                                 FAS       384
            63  560000000004             BT.LSYL  VFD    BT.CNL/BT=LSYM,BT.WCL/**,2/0,BT.LOL/BT=FTN5             FAS       385
                            00000000              VFD    BT.LTBL/0,BT.DSTL/0,BT.TYL/0,2/0,BT.SA1L/**             FAS       386
            64  560000000004             BT.LSYM  VFD    BT.CNL/BT=LSYM,BT.WCL/**,2/0,BT.LOL/BT=FTN5             FAS       387
                            00000000              VFD    BT.LTBL/0,BT.DSTL/0,BT.TYL/0,2/0,BT.SA1L/**             FAS       388
  
  
  
  
                                                  PURGMAC  MODEV                                                 FAS       390
                                                  MACRO  MODEV,ADDR,B,L,I,R,D,COMPLEX,CHAR,COMMA                 FAS       391
                                                  ENTRY  ADDR                                                    FAS       392
                                         ADDR     VFD    28/0,4/COMMA,4/CHAR,4/COMPLEX,4/D,4/R,4/I,4/L,4/B       FAS       393
                                                  ENDM                                                           FAS       394
                                                                                                                 FAS       395
            65  00000000000725031026     CIDMOD   MODEV  6,1,2,3,4,5,7,0   MODES FOR CID/PMD                     FAS       396
                                                                                                                 FAS       397
            66  00000000000514400501     COMMOD   MODEV  1,4,1,0,2,3,5,0   MODES FOR COBOL (DAP S1518)           FAS       398
            67  00000000000000000006     LABMOD   CON    6           MODE FOR LABELS                             FC5A121     4
                                                                                                                 FAS       399
            70  00000000017025031026     FCLMOD   MODEV  6,1,2,3,4,5,8,7   MODES FOR FCL                         FAS       400
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    10
        BINARY OUTPUT TABLE DEFINITIONS.                              ICDEF 
  
                                        **        ICDEF - MACRO TO DEFINE I/O CONTROL CODE PROCESSING TABLE.     FAS       402
                                                                                                                 FAS       403
                                                                                                                 FAS       404
                                                  PURGMAC ICDEF                                                  FAS       405
                                                                                                                 FAS       406
                                                  MACRO  ICDEF,ICN,NULL                                          FAS       407
                                                  JP     KIO=ICN                                                 FAS       408
                                         -        VFD    30/0                                                    FAS       409
                                         ICDEF    ENDM                                                           FAS       410
  
  
  
  
                                        **        DEFINE I/O CONTROL CODES.                                      COMSIOC     3
                                                                                                                 COMSIOC     4
                                                                                                                 COMSIOC     5
      L      1                                    LOC    1                                                       COMSIOC     6
                                  71 +   IOCAD    EQU    *O                                                      COMSIOC     7
      L      1  0400001720 +             UNT      ICDEF  UNIT=                                                   COMSIOC     8
      L      2  0400001701 +             END      ICDEF  END=                                                    COMSIOC     9
      L      3  0400001701 +             ERR      ICDEF  ERR=                                                    COMSIOC    10
      L      4  0400001714 +             FMT      ICDEF  FMT=                                                    COMSIOC    11
      L      5  0400001720 +             IOS      ICDEF  IOSTAT=                                                 COMSIOC    12
      L      6  0400001720 +             REC      ICDEF  REC=                                                    COMSIOC    13
      L      7  0400001701 +             SKP      ICDEF  SKIP                                                    COMSIOC    14
      L     10  0400001701 +             NML      ICDEF  NAMELIST NAME (GROUP)                                   COMSIOC    15
      L     11  0400001700 +                      ICDEF                                                          COMSIOC    16
      L     12  0400001700 +                      ICDEF                                                          COMSIOC    17
      L     13  0400001700 +                      ICDEF                                                          COMSIOC    18
      L     14  0400001712 +             ACC      ICDEF  ACCESS=                                                 COMSIOC    19
      L     15  0400001712 +             BLK      ICDEF  BLANK=                                                  COMSIOC    20
      L     16  0400001712 +             BFL      ICDEF  BUFL=                                                   COMSIOC    21
      L     17  0400001712 +             DIR      ICDEF  DIRECT=                                                 COMSIOC    22
      L     20  0400001712 +             EXS      ICDEF  EXIST=                                                  COMSIOC    23
      L     21  0400001712 +             FIL      ICDEF  FILE=                                                   COMSIOC    24
      L     22  0400001712 +             FOR      ICDEF  FORM=                                                   COMSIOC    25
      L     23  0400001712 +             FMD      ICDEF  FORMATTED=                                              COMSIOC    26
      L     24  0400001712 +             NAM      ICDEF  NAME=                                                   COMSIOC    27
      L     25  0400001712 +             NMD      ICDEF  NAMED=                                                  COMSIOC    28
      L     26  0400001712 +             NXT      ICDEF  NEXTREC=                                                COMSIOC    29
      L     27  0400001712 +             NUM      ICDEF  NUMBER=                                                 COMSIOC    30
      L     30  0400001712 +             OPE      ICDEF  OPENED=                                                 COMSIOC    31
      L     31  0400001701 +             RCL      ICDEF  RECL=                                                   COMSIOC    32
      L     32  0400001712 +             SEQ      ICDEF  SEQUENTIAL=                                             COMSIOC    33
      L     33  0400001712 +             STA      ICDEF  STATUS=                                                 COMSIOC    34
      L     34  0400001712 +             UNF      ICDEF  UNFORMATTED=                                            COMSIOC    35
      L     35  0400001705 +             BUF      ICDEF  BFFER I/O FWA AND LWA                                   COMSIOC    36
      L     36  0400001723 +             CNT      ICDEF  ENCODE/DECODE COUNT                                     COMSIOC    37
      L     37  0400001701 +             MOD      ICDEF  BUFFER I/O MODE                                         COMSIOC    38
      L     40  0400001723 +             STR      ICDEF  ENCODE/DECODE STRING ADDRESS                            COMSIOC    39
      L     41  0400001706 +             FMTA     ICDEF  ASSIGNED FORMAT                                         COMSIOC    40
      L                                                                                                          COMSIOC    41
           132                                    LOC    *O                                                      COMSIOC    42
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    11
        BINARY OUTPUT TABLE DEFINITIONS.                              PSUD
  
                                        **        PSUD,IPSUD - MACRO TO DEFINE PSEUDO INSTRUCTION JUMP TABLE.    FAS       413
                                                                                                                 FAS       414
                                                                                                                 FAS       415
                                                  PURGMAC PSUD,IPSUD                                             FAS       416
                                         PSUD     MACRO  PSN                                                     FAS       417
                                                  JP     FO=PSN                                                  FAS       418
                                        -         VFD    12/0,18/=YLI=PSN                                        FAS       419
                                         PSUD     ENDM                                                           FAS       420
                                                                                                                 FAS       421
                                         IPSUD    MACRO  PSN                                                     FAS       422
                                                  JP     FI=PSN                                                  FAS       423
                                        -         VFD    12/0,18/=YLI=PSN                                        FAS       424
                                         IPSUD    ENDM                                                           FAS       425
           132                           FAPSUD   BSSENT 0           ENTRY FROM *LIST*                           FAS       426
  
  
  
  
                                        *         PSEUDO INSTRUCTION DEFINITIONS ARE GIVEN BELOW.                COMSPSU     3
                                                                                                                 COMSPSU     4
      L      0                                    LOC    0                                                       COMSPSU     5
                                 132 +   OCPSUD   EQU    *O                                                      COMSPSU     6
      L      0  0400000275 +                      PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD               COMSPSU     7
      L      1  0400000340 +                      PSUD   BSS                                                     COMSPSU     8
      L      2  0400000306 +                      PSUD   APL         APLIST                                      COMSPSU     9
      L      3  0400000336 +                      PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                COMSPSU    10
      L      4  0400000342 +                      PSUD   CON         *READ* CONSTANT TABLE PSEUDO                COMSPSU    14
      L      5  0400000436 +                      PSUD   END                                                     COMSPSU    17
      L      6  0400000345 +                      PSUD   EQUN        NEGATIVE RELOCATION MACRO                   COMSPSU    18
      L      7  0400000347 +                      PSUD   FMT         FORMAT/FMT MACRO                            COMSPSU    19
      L     10  0400000356 +                      PSUD   FVEC        FILE POINTER WORD                           COMSPSU    20
      L     11  0400000367 +                      PSUD   IDNT                                                    COMSPSU    22
      L     12  0400000372 +                      PSUD   IOM                                                     COMSPSU    23
      L     13  0400000403 +                      PSUD   LCC                                                     COMSPSU    24
      L     14  0400000412 +                      PSUD   LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    25
      L     15  0400000414 +                      PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                COMSPSU    26
      L     16  0400000366 +                      PSUD   PLIM                                                    FC50049     6
      L     17  0400000424 +                      PSUD   TRAC        GENERATE (TRACE.) WORD                      COMSPSU    30
      L     20  0400000420 +                      PSUD   USE                                                     COMSPSU    31
      L                                                                                                          COMSPSU    32
                                                                                                                 COMSPSU    33
                                 153 +   IPSUD    EQU    *O                                                      COMSPSU    34
      L     21  0400000565 +                      IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                  COMSPSU    35
      L     22  0400000613 +                      IPSUD  BOS         BEGINNING OF STATEMENT                      COMSPSU    36
      L     23  0400000616 +                      IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                  COMSPSU    37
      L     24  0400000610 +                      IPSUD  BSS         GENERATE A BSS                              COMSPSU    38
      L     25  0400000567 +                      IPSUD  DATA        DATA SUB-TABLE HEADER                       COMSPSU    39
      L     26  0400000606 +                      IPSUD  ECI         END CCG TYPE INSTRUCTION                    COMSPSU    40
      L     27  0400000631 +                      IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                COMSPSU    41
      L     30  0400000633 +                      IPSUD  JPI         GENERATE INDEXED JUMP                       COMSPSU    42
      L     31  0400000653 +                      IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                COMSPSU    43
      L     32  0400000662 +                      IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0            COMSPSU    44
      L     33  0400000636 +                      IPSUD  LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    45
      L     34  0400000640 +                      IPSUD  OTR         GENERATE  SB0    B0 + LINENUM               COMSPSU    46
      L     35  0400000651 +                      IPSUD  RJ3         GENERATE  RJ                                COMSPSU    47
      L     36  0400000715 +                      IPSUD  RJ6         GENERATE  RJT                               COMSPSU    48
      L     37  0400000665 +                      IPSUD  SUBI        CREATE A SUB INDEX WORD                     COMSPSU    49
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    12
        BINARY OUTPUT TABLE DEFINITIONS.                              PSUD
  
      L     40  0400000663 +                      IPSUD  SB0I        CREATE A SUB0 INDEX WORD                    COMSPSU    50
      L     41  0400000701 +                      IPSUD  UJP         GENERATE  EQ                                COMSPSU    51
      L     42  0400000737 +                      IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK             COMSPSU    52
      L     43  0400000745 +                      IPSUD  ZERO        OUTPUT A ZERO WORD                          COMSPSU    53
      L                                                                                                          COMSPSU    54
                                  44     Z.PSUD   =      *L                                                      COMSPSU    55
                                  33              ERRMI  77B-*L      TOO MANY PSEUDOS                            COMSPSU    56
           176                                    LOC    *O                                                      COMSPSU    57
                                                                                                                 COMSPSU    58
                                        * PSU     ENDX                                                           COMSPSU    59
      L     44                                    LOC    Z.PSUD                                                  FAS       428
      L     44  00000000000000000000 X   OC=FLA   CON    =YLI=FLA                                                FAS       429
           177                                    LOC    *O                                                      FAS       430
  
  
  
  
                                        **        CELLS.                                                         FAS       432
                                                                                                                 FAS       433
                                                                                                                 FAS       434
           177                     1     BCI      BSSZ   1           .LT. 0 IF PROCESSING CCG TYPE INSTRUCTIONS  FAS       435
           200                     1     DELAY    BSSZ   1           12/2000B+FPNO, 48/ORGIN  (FOR *BST*)        FAS       436
           201  00000000000000000000     ORG      CONENT 0           ORIGIN COUNTER                              FAS       437
           202  00000000000000000000     PARCEL   CONENT 0           PARCEL COUNTER, 3=EMPTY, -1=FULL            FAS       438
           203  00000000000000000000     ORGSUB   CONENT 0           LISTING ORIGIN COUNTER FOR SUB BLOCK        FAS       439
           204  00000000000000000000     SUBFLG   CONENT 0           .LT. 0 IF INHIBIT *SUB*                     FAS       440
           205  00000000000000000000     ORGSUB0  CONENT 0           LISTING ORIGIN COUNTER FOR SUB0 BLOCK       FAS       441
           206  00000000000000000000     TAGSUB0  CONENT 0           LISTING TAG FOR *SUB0*                      FAS       442
           207                     1     OL=BIN   BSSENT 1           BINARY WORD TO BE LISTED                    FAS       443
           210                     1     OL=LBF   BSSENT 1           LABEL FIELD FWA          (PW .VS. NON-PW)   FAS       444
           211                     1     OL=PB    BSSENT 1           (PB.) FORMAT INSTRUCTION TO BE LISTED       FAS       445
           212                     1     OL=RL    BSSENT 1           RELOCATION INDICATOR FOR LISTING            FAS       446
           213                     1     SAVVD    BSS    1           SAVED WC.RA OF *VD.*                        FAS       449
           214                     4     TEMP     BSS    4           TEMPORARIES                                 FAS       450
           220                     1     RELSIZ   BSS    1                                                       FAS       451
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    13
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FAS 
  
                                        **        FAS -  FORTRAN INTERNAL ASSEMBLER.                             FAS       454
                                        *         CONTROLLING ROUTINE.                                           FAS       455
                                        *         CALLED BY AND EXITS TO  *REC*.                                 FAS       456
                                        *         PROCESSES THE PRE-BINARY FILE (T.PB OR F.PB).                  FAS       457
                                        *                                                                        FAS       458
                                        *         USES   ALL                                                     FAS       459
                                        *                                                                        FAS       460
                                        *         CALLS  DDS,DFT,DIT,GCL,PCT,PFT,RIP,RNI                         FAS       461
                                                                                                                 FAS       462
                                                                                                                 FAS       463
           221  0400400221 +             FAS      SUBR   =           ENTRY/EXIT                                  FAS       464
                                                                                                                 FAS       465
                                                                                                                 FAS       466
                                        *         INITIALIZE LINK AND FILL TABLES.                               FAS       467
                                                                                                                 FAS       468
           222  13666                             BX6    0                                                       FAS       469
                     5110000000 X                 SA1    CO.ARGC                                                 FAS       470
           223  0311000225 +                      NZ     X1,FAS1     IF ARG=COMMON                               FAS       471
                          5160000066 +            SA6    COMMOD      [ALL]COMMOD = 0                             FAS       472
           224  5160000067 +                      SA6    LABMOD                                                  FC5A121     5
                                                                                                                 FAS       473
           225  5160000000 X             FAS1     SHRINK T=LINK,X6                                               FAS       474
                          5160000000 X            SHRINK T=FILL,X6                                               FAS       475
           226  5160000000 X                      SHRINK T=XFIL,X6                                               FAS       476
                          5160000000 X            SHRINK T=LNT,X6                                                FAS       477
           227  5120000000 X                      SA2    NREXT                                                   FAS       478
                          5110000000 X            ALLOC  T.LINK,X2   ALLOCATE BASIC LINK TABLE                   FAS       479
           231  5110000000 X                      ALLOC  T.FILL,1    ALLOCATE BASIC FILL TABLE                   FAS       480
           233  5110000000 X                      ALLOC  T.XFIL,1    ALLOCATE EXTENDED FILL TABLE                FAS       481
           235  5120000000 X                      SA2    CO.OPT                                                  FC5A171A  347
                          0302000242 +            ZR     X2,FAS5     IF OPT = 0, BUFFER IS STATIC                FC5A171A  348
                                                                                                                 FAS       482
                                        *         INITIALIZE LGO BUFFER.                                         FAS       483
                                                                                                                 FAS       484
           236  5120000000 X                      SA2    FV.LGO                                                  FAS       485
                          0302000242 +            ZR     X2,FAS5     IF BINARY NOT REQUESTED                     FAS       486
           237  13666                             SHRINK T=LGOB                                                  FAS       487
                                                  IFEQ   CP#RM,0,2   IF CIO I/O                                  FAS       488
           240  5120000005 X                      SA2    F.LGO+I.CBSET                                           FAS       489
                                                  SKIP   1           SKIP 7RM CODE                               FAS       490
                                                  SA2    F.LGO+I.HBSET                                           FAS       491
                                                                                                                 FAS       492
                          20252                   LX2    -18                                                     FAS       493
                               73020              SX0    X2                                                      FAS       494
           241  5110000000 X                      ALLOC  T.LGOB,X0   GET ROOM FOR LGO BUFFER                     FAS       495
                                                                                                                 FAS       496
                                                  IFNE   CP#RM,0,1   IF NOT SCOPE 2                              FAS       497
                                                  RECALL F.LGO                                                   FAS       498
                                                                                                                 FAS       499
           242  5120000000 X             FAS5     SA2    ERRORS                                                  FAS       500
                          0312000455 +            NZ     X2,END.ERR  IF FATAL ERRORS                             FAS       501
                                                                                                                 FAS       502
                                        *         CALCULATE COMPLEMENT OF (PROGRAM UNIT LENGTH) = -(SUM.LBT),    FAS       503
                                        *         AND SAVE IN  T.SYM(S=LENP) FOR OBJECT TIME REPRIEVE            FAS       504
                                        *         ...SPECIFICALLY USED DURING PROCESSING OF (SB0 B2 - LEN) INST. FAS       505
                                                                                                                 FAS       506
           243  5130000000 X                      SA3    S=LENP      ORDINAL INTO LENP ENTRY IN T.SYM            FAS       507
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    14
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FAS 
  
                          5110000000 X            SA1    SUM.LBT                                                 FAS       508
           244  22013                             LX0    X3,B1                                                   FAS       509
                     36303                        IX3    X0+X3       = 3 * ORDINAL = INDEX INTO T.SYM            FAS       510
                          5120000000 X            SA2    T.SYM                                                   FAS       511
           245  36223                             IX2    X2+X3                                                   FAS       512
                     5232000002                   SA3    X2+WC.W                                                 FAS       513
                               43044              MX0    -WC.RAL                                                 FAS       514
                                                  LX3    -WC.RAP                                                 FAS       515
           246  11403                             BX4    X0*X3       CLEAR OLD (WC.RA)                           FAS       516
                     14511                        BX5    -X1         (X5) = COMPLEMENT OF (SUB.LBT)              FAS       517
                          15350                   BX3    -X0*X5      TRIM COMPLEMENT TO (WC.RA) WIDTH            FAS       518
                               12734              BX7    X3+X4                                                   FAS       519
                                                  LX7    WC.RAP                                                  FAS       520
           247  54730                             SA7    A3          UPDATE (WC.) OF (S=LENP)                    FAS       521
                                                                                                                 FAS       522
                                        *         INITIALIZE SOME CELLS.                                         FAS       523
                                                                                                                 FAS       524
                     5110000000 X                 SA1    S=VD                                                    FAS       525
           250  5120000000 X                      SA2    T.SYM                                                   FAS       526
                          5170000216 +            SA7    ORDA                                                    FAS       527
           251  6221000002                        =B2    X1+WC.W                                                 FAS       528
                          22311                   LX3    X1,B1                                                   FAS       529
                               63232              SB2    B2+X3       STINDV = 3 * (S=VD)                         FAS       530
                                   0              ERRNZ  3-Z=SYM                                                 FAS       531
           252  53122                             SA1    X2+B2       WCV = T.SYM(STINDV) + WC.W                  FAS       532
                     43644                        MX6    -WC.RAL                                                 FAS       533
                                                  LX1    -WC.RAP                                                 FAS       534
                          15616                   BX6    -X6*X1      RAV = RA[WCV]                               FAS       535
           253  5160000213 +                      SA6    SAVVD       (SAVVD) = RAV                               FAS       536
                          6140000000 X            SB4    BN=SUB0                                                 FAS       537
           254  6130000000 X                      SB3    BN=SUB                                                  FAS       538
                          5113000000 X            SA1    F.LBT+B3                                                FAS       539
           255  5124000000 X                      SA2    F.LBT+B4                                                FAS       540
                          43052                   MX0    -LB.ORGL                                                FAS       541
                                                  LX1    -LB.ORGP                                                FAS       542
                                                  LX2    -LB.ORGP                                                FAS       543
                               13777              BX7    0                                                       FAS       544
           256  7160000003                        SX6    3                                                       FAS       545
                          5170000201 +            SA7    ORG         INITIALIZE  ORG = 0                         FAS       546
           257  5170000200 +                      SA7    DELAY       INITIALIZE  DELAY = 0                       FAS       547
                          5170000000 X            SA7    CBI         INITIALIZE  CBI = 0                         FAS       548
           260  5160000202 +                      SA6    PARCEL      INITIALIZE  PARCEL = 3                      FAS       549
                          15610                   BX6    -X0*X1                                                  FAS       550
           261  5170000056 +                      SA7    BINREL      INITIALIZE  BINREL = 0                      FAS       551
                          5170000055 +            SA7    BINWORD     INITIALIZE  BINWORD = 0                     FAS       552
           262  15720                             BX7    -X0*X2                                                  FAS       553
                     5160000203 +                 SA6    ORGSUB      (ORGSUB) = ORG[L.LBT(BN=SUB)]               FAS       554
           263  5170000205 +                      SA7    ORGSUB0     (ORGSUB0) = ORG[L.LBT(BN=SUB0)]             FAS       555
                          0100001375 +            RJ     DTX         INITIALIZE TEXT TABLE                       FAS       556
           264  5110000000 X                      SA1    CO.PW                                                   FAS       557
                          7211777601              SX1    X1-126                                                  FC50353    27
           265  7160000004 X                      SX6    LINEBUF+4                                               FAS       559
                          5160000210 +            SA6    OL=LBF      (OL=LBF) -> LINEBUF+4                       FAS       560
           266  0321000270 +                      PL     X1,FASRTN   IF NOT PW MODE                              FC50353    28
                          7170000001 X            SX7    LINEBUF+1                                               FAS       562
           267  54760                             SA7    A6          (OL=LBF) -> LINEBUF+1                       FAS       563
                                                                                                                 FAS       564
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    15
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FAS 
  
                                                                                                                 FAS       565
                                        **        RETURN FROM PSEUDO INSTRUCTION PROCESSORS.                     FAS       566
                                                                                                                 FAS       567
                                                                                                                 FAS       568
           270                           FASRTN   BSS    0                                                       FAS       569
           270  0100002323 +                      RJ     RNI         READ NEXT INSTRUCTION                       FAS       570
           271  5120000202 +                      SA2    PARCEL                                                  FAS       571
                          63220                   SB2    X2                                                      FAS       572
                               43014              MX0    PB.GHIJL                                                FAS       573
           272  11305                             BX3    X0*X5       (X3) = GHIJ                                 FAS       574
                     20314                        LX3    PB.GHIJL    48/0,12/GHIJ                                FAS       575
                          63430                   SB4    X3                                                      FAS       576
                               14733              BX7    -X3                                                     FAS       577
           273  6132777775                        SB3    B2-2                                                    FAS       578
                          5170000753 +            SA7    RADC        (RADC) = - GHIJ                             FAS       579
                                                                                                                 FAS       580
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                FAS       581
                                                  SB7    Z.PSUD                                                  FAS       582
                                                  GE     B4,B7,"BLOWUP"    IF ILLEGAL PSEUDO NUMBER              FAS       583
           274  0244000132 +                      JP     B4+OCPSUD   JUMP TO PSEUDO INSTRUCTION PROCESSOR        FAS       584
  
  
  
  
                                        **        THIS SECTION CONTAINS OC$ PSEUDO INSTRUCTION PROCESSORS.       FAS       586
                                        *         THESE ROUTINES ARE INVOKED FROM ROUTINE  *FAS*  WHICH          FAS       587
                                        *         FINDS FROM THE PSEUDO INSTRUCTION JUMP TABLE AN ENTRY          FAS       588
                                        *         LABEL OF THE FORM    *  FO=XXX  *    , THEN JUMPS TO           FAS       589
                                        *         IT.                                                            FAS       590
                                        *         ENTRY  (X5) = INSTRUCTION                                      FAS       591
                                        *         EXIT   IS ALWAYS TO   *FASRTN*   .                             FAS       592
  
  
  
  
           275  20560                    FO=ADDR  LX5    -PB.BIASP                                               FAS       594
                     63450                        SB4    X5          SAVE BIAS FIELD                             FAS       595
                                   0              ERRNZ  PB.BIASL-18                                             FAS       596
                          20514                   LX5    PB.BIASP                                                FAS       597
                               43052              MX0    -PB.TAGL                                                FAS       598
           276  20036                             LX0    PB.TAGP                                                 FAS       599
                     15550                        BX5    -X0*X5      CLEAR ALL BUT TAG                           FAS       600
                          66210                   =B2    1                                                       FAS       601
                               43652              MX6    -18                                                     FAS       602
           277  5160002321 +                      SA6    RELMASK                                                 FAS       603
                          7160000014              SX6    PB.BIASP                                                FAS       604
           300  5160002322 +                      SA6    RELPOS                                                  FAS       605
                          0100002232 +            RJ     REL                                                     FAS       606
           301  5110000055 +                      SA1    BINWORD                                                 FAS       607
                          76240                   SX2    B4                                                      FAS       608
                               20222              LX2    18                                                      FAS       609
           302  73110                             SX1    X1          ISOLATE ADDRESS                             FAS       610
                     12112                        BX1    X1+X2                                                   FAS       611
                          5120000056 +            SA2    BINREL                                                  FAS       612
           303  10011                             BX0    X1                                                      FAS       613
                     0100002374 +                 RJ     STX                                                     FAS       614
           304  0100001430 +                      RJ     FBP                                                     FAS       615
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    16
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=ADDR 
  
           305  0400000270 +                      EQ     FASRTN                                                  FAS       616
  
  
  
  
           306                           FO=APL   BSS    0           PROCESS OC$APL PSEUDO                       FAS       618
           306  66600                             =B6    0           INDICATE REGULAR AP-LIST                    FAS       619
                     0100000000 X                 CALL   PAT         PRE-PROCESS AP-LIST TABLE                   FAS       620
           307  5120000000 X                      SA2    T=LCA                                                   FAS       621
                          5130000000 X            SA3    T=APL                                                   FAS       622
           310  7222777776                        SX2    X2-1                                                    FAS       623
                          10633                   BX6    X3                                                      FAS       624
           311  5160000335 +                      SA6    APLA        SAVE (APLA) = CURRENT LENGTH OF T.APL       FAS       625
                          0302000330 +            ZR     X2,APL.20   IF NO LCM POINTERS                          FAS       626
           312  5110000000 X                      ALLOC  T.APL,X2                                                FAS       627
           314  5150000335 +                      SA5    APLA                                                    FAS       628
                          5140000000 X            SA4    T.APL                                                   FAS       629
           315  5110000000 X                      SA1    T=LCA                                                   FAS       630
                          5120000000 X            SA2    T.LCA                                                   FAS       631
           316  7211777776                        SX1    X1-1                                                    FAS       632
                          73221                   SX2    X2+B1                                                   FAS       633
                               36345              IX3    X4+X5                                                   FAS       634
           317  0100000000 X                      MOVE   X1,X2,X3    APPEND LCA TABLE TO APL                     FAS       635
                                                                                                                 FAS       636
                                        *         TRANSFORM LCA TABLE INTO AUXILIARY SYMBOL TABLE                FAS       637
                                        *         AS NEEDED TO PROCESS CODE, BY CONVERTING TO WORD C             FAS       638
                                        *         FORMAT RELOCATION INFO POINTING TO LCM POINTERS IN             FAS       639
                                        *         T.APL .                                                        FAS       640
                                                                                                                 FAS       641
           320  5110000335 +                      SA1    APLA                                                    FAS       642
                          5120000000 X            SA2    T.LCA                                                   FAS       643
           321  63521                             SB5    X2+B1       I = 1                                       FAS       644
                     6160000000 X                 SB6    BN=APL                                                  FAS       645
           322  5126000000 X                      SA2    F.LBT+B6                                                FAS       646
                          43701                   MX7    1                                                       FAS       647
                               43052              MX0    -LB.ORGL                                                FAS       648
           323  20701                             LX7    1+WC.RAP                                                FAS       649
                                                  LX2    -LB.ORGP                                                FAS       650
                     5150000000 X                 SA5    T=LCA                                                   FAS       651
                               15320              BX3    -X0*X2                                                  FAS       652
           324  36613                             IX6    X1+X3                                                   FAS       653
                     7255777776                   SX5    X5-1                                                    FAS       654
                                                  LX6    WC.RAP      RAT = ORG[LBT(BN=APL)] + T=APL - T=LCA-1    FAS       655
           325  0305000330 +             APL.15   ZR     X5,APL.20   IF T.LCA EXHAUSTED                          FAS       656
                          7255777776              SX5    X5-1                                                    FAS       657
           326  56650                             SA6    B5          RA[LCA(I)] = RAT                            FAS       658
                     36667                        IX6    X6+X7       RAT = RAT+1                                 FAS       659
                          66551                   =B5    B5+1        I = I + 1                                   FAS       660
           327  0400000325 +                      EQ     APL.15                                                  FAS       661
                                                                                                                 FAS       662
           330  43600                    APL.20   MX6    0                                                       FAS       663
                     5160000000 X                 SHRINK T=PTXTR,X6                                              FAS       664
           331  0100001530 +                      RJ     KAP         COMPILE APLISTS (AND LCM POINTERS)          FAS       665
           332  66600                             =B6    0           INDICATE REGULAR APLIST                     FAS       666
                     0100002176 +                 RJ     POL         PRINT OBJECT LISTING                        FAS       667
           333  76600                             SHRINK T=APL,0                                                 FAS       668
           334  5160000000 X                      SHRINK T=PTXTR,X6                                              FAS       669
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    17
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=APL
  
                          0400000270 +            EQ     FASRTN                                                  FAS       670
                                                                                                                 FAS       671
           335                     1     APLA     BSSENT 1           T=APL BEFORE T=LCA APPENDED                 FAS       672
  
  
  
  
           336                           FO=BMI   BSS    0           PROCESS OC$BMI PSEUDO                       FAS       674
           336  0100000461 +                      RJ     RAD         PROCESS *TS* TYPE INSTRUCTIONS              FAS       675
           337  0400000270 +                      EQ     FASRTN                                                  FAS       676
  
  
  
  
           340                           FO=BSS   BSS    0           PROCESS OC$BSS PSEUDO FOR LABELS            FC50264    22
           340  0100002223 +                      RJ     RBS         RELOCATE   BSS   INSTRUCTION                FAS       679
           341  0400000270 +                      EQ     FASRTN                                                  FAS       680
  
  
  
  
           342                           FO=CON   BSS    0                                                       FAS       682
           342  0100002176 +                      RJ     POL         PRINT CONSTANT TABLE                        FAS       683
           343  5110000000 X                      SA1    T.CON                                                   FAS       684
                          0100002341 +            RJ     SMW         STORE MULTIPLE WORDS (T.CON)                FAS       685
           344  0400000270 +                      EQ     FASRTN                                                  FAS       686
  
  
  
  
           345                           FO=EQUN  BSS    0           *EQUN* PSEUDO                               FAS       694
           345  0100002176 +                      RJ     POL         PRINT *  LENP.  EQUN   *                    FAS       695
           346  0400000270 +                      EQ     FASRTN                                                  FAS       696
  
  
  
  
           347                           FO=FMT   BSS    0           PROCESS OC$FMT PSEUDO                       FAS       698
           347  0100002176 +                      RJ     POL         PRINT FORMAT TABLE                          FAS       699
           350  5110000000 X                      SA1    T.FMT                                                   FAS       700
                          0100002341 +            RJ     SMW         STORE MULTIPLE WORDS (T.FMT)                FAS       701
           351  5130000000 X                      SA3    CO.OPT                                                  FAS       702
                          5140000000 X            SA4    T=LA                                                    FAS       703
           352  0313000270 +                      NZ     X3,FASRTN   IF NOT QCG                                  FAS       704
                          7160777733              SX6    -OC=FLA                                                 FAS       705
           353  0304000270 +                      ZR     X4,FASRTN   IF NO LABELS ASSIGN-ED                      FAS       706
                          5160000753 +            SA6    RADC                                                    FAS       707
           354  0100001435 +                      RJ     FLA         FORMAT LABELS ASSIGN-ED                     FAS       708
           355  0400000270 +                      EQ     FASRTN                                                  FAS       709
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    18
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=FVEC 
  
           356                           FO=FVEC  BSS    0                                                       FAS       711
           356  5120000000 X                      SA2    T.SYM                                                   FAS       712
                          43052                   MX0    -PB.TAGL                                                FAS       713
                               20536              LX5    -PB.TAGP                                                FAS       714
           357  15050                             BX0    -X0*X5      TAGI = TAG[INSTRUCTION]                     FAS       715
                     0300000362 +                 ZR     X0,FVEC.10                                              FAS       716
                               36220              IX2    X2+X0                                                   FAS       717
           360  53121                             =A1    X2-WB.W+WC.W      *WC*                                  FAS       718
                     5041777775                   =A4    A1-WC.W+WA.W      *WA*                                  FAS       719
                               43052              MX0    WA.SYML                                                 FAS       720
           361  11004                             BX0    X0*X4       ISOLATE LFN                                 FAS       721
                     43401                        MX4    1                                                       FAS       722
                          13004                   BX0    X0-X4       TURN OFF BIT 59                             FAS       723
           362  20522                    FVEC.10  LX5    PB.TAGP-PB.BIASP                                        FAS       724
                     43352                        MX3    -PB.BIASL                                               FAS       725
                          15353                   BX3    -X3*X5                                                  FAS       726
                                   0              ERRNZ  PB.BIASL-18                                             FAS       727
                               12103              BX1    X0+X3       MERGE LFN AND BUFL (OR MRL, OR PLIM)        FAS       728
                                                                                                                 FC50049    19
           363  76200                    FVEC.20  =X2    0                                                       FC50049    20
                     10011                        BX0    X1                                                      FAS       730
                          0100002374 +            RJ     STX         OUTPUT POINTER WORD                         FAS       731
           364  0100001430 +                      RJ     FBP         PRINT FILE DESCRIPTOR                       FAS       732
           365  0400000270 +                      EQ     FASRTN                                                  FAS       733
                                                                                                                 FC50049    21
           366  5110000000 X             FO=PLIM  SA1    =XCO.LL     PRINT LIMIT                                 FC50049    22
                          0400000363 +            EQ     FVEC.20                                                 FC50049    23
  
  
  
  
           367                           FO=IDNT  BSS    0           PROCESS OC$IDENT PSEUDO                     FAS       735
           367  0100001212 +                      RJ     DIT         DUMP IDENTIFICATION TABLES                  FAS       736
           370  0100002176 +                      RJ     POL         PRINT * IDENT  PROGNAM*                     FAS       737
           371  0400000270 +                      EQ     FASRTN                                                  FAS       738
  
  
  
  
           372                           FO=IOM   BSS    0           PROCESS OC$IOM PSEUDO                       FAS       740
           372  6160000001                        SB6    1           INDICATE IO-APLIST TABLE                    FAS       741
                          5110000000 X            SA1    T=IOA                                                   FAS       742
           373  0301000270 +                      ZR     X1,FASRTN   IF NO I/O                                   FAS       743
                          0100000000 X            CALL   PAT         PRE-PROCESS I/O AP-LIST TABLE               FAS       744
           374  43600                             MX6    0                                                       FAS       745
                     5160000000 X                 SHRINK T=PTXTR,X6                                              FAS       746
           375  5160000000 X                      SHRINK T=CLWB,X6                                               FC5A219     7
                          0100001617 +            RJ     KIO         COMPILE I/O AP-LISTS                        FAS       748
           376  0100002000 +                      RJ     OCL         OUTPUT CHARACTER LENGTH ARRAYS              FC5A219     8
           377  0100002176 +                      RJ     POL                                                     FAS       750
           400  76600                             SHRINK T=CLW,0                                                 FAS       751
           401  5160000000 X                      SHRINK T=IOA,X6                                                FAS       752
                          5160000000 X            SHRINK T=PTXTR,X6                                              FAS       753
           402  5160000000 X                      SHRINK T=CLWB,X6                                               FC5A219     9
                          0400000270 +            EQ     FASRTN                                                  FAS       755
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    19
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=LCC
  
           403                           FO=LCC   BSS    0           PROCESS OC$LCC PSEUDO                       FAS       757
           403  5110000000 X                      SA1    T.LCC                                                   FAS       758
                          20560                   LX5    0-PB.BIASP                                              FAS       759
                               63610              SB6    X1                                                      FAS       760
                                   0              ERRMI  PB.BIASL-18                                             FAS       761
           404  63656                             SB6    X5+B6       ADDRESS OF DIRECTIVE                        FAS       762
                     20552                        LX5    PB.BIASP-PB.TAGP                                        FAS       763
                          63750                   SB7    X5          LENGTH OF DIRECTIVE                         FAS       764
                                   0              ERRMI  PB.TAGL-18                                              FAS       765
                               13666              SHRINK T=LCC                                                   FAS       766
                          0100002410 +            WLGO   B6,B7       OUTPUT LOADER DIRECTIVE                     FAS       767
           406  7120000000 X                      WRITER F.LGO,RCL                                               FAS       768
           410  5150000752 +                      SA5    RADB                                                    FAS       769
                          0100002176 +            RJ     POL                                                     FAS       770
           411  0400000270 +                      EQ     FASRTN                                                  FAS       771
  
  
  
  
           412                           FO=LOO   BSS    0           TURN ON / OFF OBJECT LISTING                FAS       773
           412  43652                             MX6    -PB.BIASL                                               FAS       774
                     21514                        AX5    PB.BIASP                                                FAS       775
                          15656                   BX6    -X6*X5                                                  FAS       776
           413  5160000000 X                      SA6    WO.LOO      (WO.LOO) = BIAS [INSTRUCTION]               FAS       777
                          0400000270 +            EQ     FASRTN                                                  FAS       778
  
  
  
  
           414                           FO=NLST  BSS    0           PROCESS OC$NLST PSEUDO                      FAS       780
           414  0100001741 +                      RJ     KNG         COMPILE NAMELIST GROUP DEFINITIONS          FAS       781
           415  0100002176 +                      RJ     POL         PRINT NAMELIST TABLE                        FAS       782
           416  76600                             SHRINK T=NLST,0                                                FAS       783
           417  0400000270 +                      EQ     FASRTN                                                  FAS       784
  
  
  
  
           420                           FO=USE   BSS    0           PROCESS OC$USE PSEUDO                       FAS       786
           420  10755                             BX7    X5                                                      FAS       787
                     0100002210 +                 RJ     PUSE        GO SWITCH  ORG  AND  PARCEL                 FAS       788
           421  0100001375 +                      RJ     DTX         DUMP TEXT                                   FAS       789
           422  0100002176 +                      RJ     POL         PRINT OBJECT LISTING                        FAS       790
           423  0400000270 +                      EQ     FASRTN                                                  FAS       791
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    20
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=TRAC 
  
           424                           FO=TRAC  BSS    0           PROCESS OC$TRAC PSEUDO                      FAS       793
           424  5110000000 X                      SA1    IDENT       ROUTINE NAME IN  0L  FORMAT                 FAS       794
                          0100000000 X            CALL   SFN         SPACE FILL NAME                             FAS       795
           425  43052                             MX0    7*CHAR                                                  FAS       796
                     11106                        BX1    X0*X6       TRUNCATE TO 7 CHARACTERS                    FAS       797
                          5140000000 X            SA4    S=ENTRY     SYMBOL TABLE ORDINAL FOR ENTRY              FAS       798
           426  22014                             LX0    X4,B1       DOUBLE ORDINAL                              FAS       799
                     5130000000 X                 SA3    T.SYM                                                   FAS       800
                               36004              IX0    X0+X4       =   3 * ORDINAL                             FAS       801
           427  36303                             IX3    X0+X3                                                   FAS       802
                                   0              ERRNZ  3-Z=SYM                                                 FAS       803
                     5243000002                   =A4    X3+WC.W     FETCH (X4) = SYMTAB WORD WC                 FAS       804
                               43044              MX0    -WC.RAL                                                 FAS       805
           430  15340                             BX3    -X0*X4      ISOLATE  RA  FIELD                          FAS       806
                     12113                        BX1    X1+X3                                                   FAS       807
                          76211                   =X2    2           PROGRAM RELATIVE                            FAS       808
                               22001              LX0    X1                                                      FAS       809
           431  0100002374 +                      RJ     STX         STORE TEXT TABLE ENTRY (TRACE.)             FAS       810
           432  0100001430 +                      RJ     FBP         PRINT  *  NAME  TRACE.*                     FAS       811
           433  7110001777                        =X1    1777B                                                   FAS       812
                          20160                   LX1    48                                                      FAS       813
                               43200              MX2    0           NO RELOCATION                               FAS       814
           434  0100002374 +                      RJ     STX         STORE TEXT TABLE  ENTRY (TEMPA0.)           FAS       815
           435  0400000270 +                      EQ     FASRTN      EXIT...                                     FAS       816
  
  
  
  
                                        **        FO=END - END OF PREBINARY PROCESSING.                          FAS       835
                                        *         PROCESS SUBS AND SET ISUB BLOCK LENGTHS.                       FAS       836
                                        *         LIST REMAINING OBJECT LISTING AND FINISH DUMPING TABLES TO     FC50730     7
                                        *         THE BINARY.                                                    FAS       838
                                                                                                                 FAS       839
                                                                                                                 FAS       840
           436                           FO=END   BSS    0                                                       FAS       841
           436  0100002176 +                      RJ     POL         PRINT * END   PROGNAM*                      FAS       842
           437  5110000000 X                      SA1    FV.LGO                                                  FAS       843
                          0301000221 +            ZR     X1,EXIT.    IF NO BINARY                                FAS       844
           440  5140000000 X                      SA4    T.SUB                                                   FAS       845
                          7170000000 X            =X7    BN=SUB                                                  FAS       846
           441  0100002061 +                      RJ     OSB         OUTPUT *SUB* BLOCK                          FAS       847
           442  5140000000 X                      SA4    T.SUB0                                                  FAS       848
                          7170000000 X            =X7    BN=SUB0                                                 FAS       849
           443  0100002061 +                      RJ     OSB         OUTPUT *SUB0* BLOCK                         FAS       850
           444  0100001375 +                      RJ     DTX         DUMP/RESET TEXT TABLE                       FAS       851
           445  0100001310 +                      RJ     DLF         FLUSH LINK AND FILL TABLES                  FAS       852
           446  0100001162 +                      RJ     DFD         DUMP 5600/5700 TABLES                       FAS       853
           447  5130000000 X                      SA3    MOD                                                     FAS       854
                          20362                   SBIT   X3,MO.PROP                                              FC5A231   135
           450  0323000452 +                      PL     X3,END.50   IF NOT PROGRAM                              FC5A231   136
                          6160000060 +            WLGO   BT.XFER,2                                               FAS       856
                                                                                                                 FAS       857
                                        *         END LGO FILE - RETURN TO MAIN BATCH CONTROL.                   FAS       858
                                                                                                                 FAS       859
           452  7120000000 X             END.50   WRITER F.LGO                                                   FAS       860
           454  0400000221 +                      EQ     EXIT.                                                   FAS       861
                                                                                                                 FAS       862
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    21
        FAS - MAIN PRE-BINARY INSTRUCTION PROCESSOR.                  FO=END
  
                                        *         OUTPUT ERRORS BINARY IF FATAL ERRORS.                          FAS       863
                                                                                                                 FAS       864
           455                           END.ERR  BSS    0           ENTRY FOR FATAL ERRORS IN COMPILATION       FAS       865
           455  0100002150 +                      RJ     PIT         PUMP  OUT IDNT (77) TABLE                   FAS       866
           456  6160002424 +                      WLGO   BT.ERR,3    ...FOLLOWED BY ERRORS BINARY                FAS       868
           460  0400000452 +                      EQ     END.50                                                  FAS       869
                                                                                                                 FAS       870
                                 214 +   SAVCBI   EQU    TEMP        KEEP OLD (CBI) DURING OUTPUT OF *SUB* BLOCK FAS       871
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    22
        RAD - *TS* TYPE INSTRUCTION PROCESSOR 
  
                                        **        THE FOLLOWING SECTION CONTAINS *TS* TYPE INSTRUCTION           FAS       874
                                        *         PROCESSORS.  THE MAIN ROUTINE IN THIS GROUP IS *RAD*, WHICH    FAS       875
                                        *         IS ENTERED FROM THE PSEUDO INSTRUCTION PROCESSOR  *FO=BMI*.    FAS       876
  
  
  
  
                                        **        RAD - RELOCATE AND DUMP PRE-BINARY INSTRUCTIONS.               FAS       878
                                        *                                                                        FAS       879
                                        *         ENTRY  (OC$BMI) PSEUDO ENCOUNTERED.                            FAS       880
                                        *         EXIT   (I.EMI) PSEUDO ENCOUNTERED.                             FAS       881
                                        *         USES   ALL                                                     FAS       882
                                        *         CALLS  BNW,DTX,REL,RIP,ROL,STX                                 FAS       883
                                                                                                                 FAS       884
                                                                                                                 FAS       885
           461  0400400461 +             RAD      SUBR               ENTRY/EXIT...                               FAS       886
           462  43600                             MX6    0                                                       FAS       887
                     5160000177 +                 SA6    BCI                                                     FAS       888
           463  7170000003                        SX7    3                                                       FAS       889
                          5170000202 +            SA7    PARCEL                                                  FAS       890
           464  0100001375 +                      RJ     DTX         INITIALIZE TABLE                            FAS       891
           465  7170000014                        SX7    PB.BIASP                                                FAS       892
                          43652                   MX6    -PB.BIASL                                               FAS       893
           466  5170002322 +                      SA7    RELPOS                                                  FAS       894
                          5160002321 +            SA6    RELMASK                                                 FAS       895
                                                                                                                 FAS       896
                                                                                                                 FAS       897
                                        **        RETURN FROM I. PSEUDO INSTRUCTION PROCESSOR.                   FAS       898
                                        *         READ NEXT INSTRUCTION FROM T.PB.                               FAS       899
                                                                                                                 FAS       900
                                                                                                                 FAS       901
           467                           RADRTN   BSSENT 0                                                       FAS       902
           467  5120000751 +                      SA2    RADA                                                    FAS       903
                          43700                   MX7    0                                                       FAS       904
           470  5170000206 +                      SA7    TAGSUB0     CLEAR SUB0 TAG                              FAS       905
                          0312000510 +            NZ     X2,RAD20    IF READING PACKED INSTRUCTION               FAS       906
           471  5110000756 +                      SA1    RADF                                                    FC50264    23
                          0301000477 +            ZR     X1,RAD10    IF NO SB0 FILL NEEDED                       FC50264    24
           472  7261777776                        SX6    X1-1                                                    FC50264    25
                          54610                   SA6    A1          DECREMENT                                   FC50264    26
           473  5150000754 +                      SA5    RADD        SB0+0                                       FC50264    27
                          0316000475 +            NZ     X6,RAD5     IF SB0+0                                    FC50264    28
           474  5150000755 +                      SA5    RADE        SB0+LINE/SEQ NO.                            FC50264    29
                                                                                                                 FC50264    30
           475  10755                    RAD5     BX7    X5                                                      FC50264    31
                     5170000211 +                 SA7    OL=PB                                                   FC50264    32
           476  5170000752 +                      SA7    RADB                                                    FC50264    33
                          0400000506 +            EQ     RAD15                                                   FC50264    34
                                                                                                                 FC50264    35
           477  0100002323 +             RAD10    RJ     RNI         READ NEXT INSTRUCTION                       FC50264    36
                                                                                                                 FAS       908
                                         .T       IFEQ   TEST,ON,1   IF TEST MODE                                FAS       909
                                                  ZR     X5,"BLOWUP" IF TABLE EXHAUSTED                          FAS       910
           500  5110000177 +                      SA1    BCI                                                     FAS       911
                          0321000506 +            PL     X1,RAD15    IF NOT PROCESSING CCG TYPE INSTRUCTIONS     FAS       912
                                                                                                                 FAS       913
                                        *         FOR CCG TYPE INSTRUCTIONS, CONVERT *SI* FORMAT TO *PB* FORMAT  FAS       914
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    23
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         RAD 
  
                                        *         BEFORE PROCESSING.                                             FAS       915
                                                                                                                 FAS       916
                                         .T       IFEQ   TEST,ON                                                 FAS       917
                                                  SA2    CO.OPT                                                  FAS       918
                                                  ZR     X2,"BLOWUP" QCG SHOULD NOT HAVE CCG TYPE INSTRUCTIONS   FAS       919
                                         .T       ENDIF                                                          FAS       920
           501  43060                             MX0    -PB.GHIJL                                               FAS       921
                     20514                        LX5    PB.GHIJL                                                FAS       922
                          15050                   BX0    -X0*X5      GHIJ[INSTRUCTION]                           FAS       923
           502  7260777751                        SX6    X0-I.ECI                                                FAS       924
                          20560                   LX5    -PB.GHIJL                                               FAS       925
           503  0306000512 +                      ZR     X6,RAD30    IF I.ECI INSTRUCTION                        FAS       926
                          26625                   UX6    B2,X5                                                   FAS       927
           504  0720000467 +                      MI     B2,RADRTN   IF CCG PSEUDO - IGNORE                      FAS       928
                          0100000000 X            CALL   CII         CONVERT INSTRUCTION                         FAS       929
           505  0400000512 +                      EQ     RAD30                                                   FAS       930
                                                                                                                 FAS       931
           506  43355                    RAD15    MX3    PB.INSTL*3                                              FAS       932
                     43355                        MX3    PB.INSTL*3                                              FAS       933
                          15253                   BX2    -X3*X5                                                  FAS       934
                               12732              BX7    X3+X2                                                   FAS       935
           507  0317000512 +                      NZ     X7,RAD30    IF NOT PACKED INSTRUCTION                   FAS       936
                          11235                   BX2    X3*X5                                                   FAS       937
           510  43317                    RAD20    MX3    PB.INSTL                                                FAS       938
                     11532                        BX5    X3*X2       ISOLATE TOP INSTRUCTION                     FAS       939
                          15723                   BX7    -X3*X2      REMOVE FROM PACKAGE                         FAS       940
                               20717              LX7    PB.INSTL    REPOSITION                                  FAS       941
           511  5170000751 +                      SA7    RADA        STORE PACKAGE REMNANTS                      FAS       942
                                                                                                                 FAS       943
                                        *         DETERMINE IF THIS IS A PSEUDO INSTRUCTION.                     FAS       944
                                        *                (X5) = CURRENT INSTRUCTION.                             FAS       945
                                                                                                                 FAS       946
           512  5120000202 +             RAD30    SA2    PARCEL                                                  FAS       947
                          10755                   BX7    X5          (OL=PB) = INSTRUCTION ACTUALLY ASSEMBLED    FAS       948
                               43014              MX0    PB.GHIJL                                                FAS       949
           513  5170000752 +                      SA7    RADB        ** TEMP **                                  FAS       950
                          5170000211 +            SA7    OL=PB                                                   FAS       951
           514  11305                             BX3    X0*X5                                                   FAS       952
                     43672                        MX6    -2          X6 = -3                                     FAS       953
                          63220                   SB2    X2                                                      FAS       954
           515  6232777775                        SB3    X2-2                                                    FAS       955
                          20306                   LX3    PB.GHL                                                  FAS       956
                               73130              SX1    X3          X1 = GH                                     FAS       957
           516  0301000562 +                      ZR     X1,RAD=PSI  IF PSEUDO                                   FAS       958
                                                                                                                 FAS       959
                                                                                                                 FAS       960
                                        **        NON-PSEUDO INSTRUCTIONS.                                       FAS       961
                                        *         THE SIGN BIT OF THE INSTRUCTIONS CORRESPONDING ENTRY IN THE    FAS       962
                                        *         *PIK=PS* TABLE INDICATES WHETHER IT IS A LONG (SET) OR SHORT   FAS       963
                                        *         (NOT SET) INSTRUCTION.                                         FAS       964
                                                                                                                 FAS       965
                                                                                                                 FAS       966
                          5243000000 X            SA4    X3+PIK=PS   X4 = INST SKELETON                          FAS       967
           517  20306                             LX3    PB.GHL                                                  FAS       968
                     63430                        SB4    X3                                                      FAS       969
                          22313                   LX3    B1          X3 = (GHIJ)*2                               FAS       970
                               21474              AX4    60          EXTEND SIGN BIT OF SKEL TO MAKE A MASK      FAS       971
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    24
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         RAD 
  
           520  11743                             BX7    X4*X3       X7 = + LONG, 0 SHORT                        FAS       972
                     5170000753 +                 SA7    RADC        LONG/SHORT INDICATOR                        FAS       973
                                                                                                                 FAS       974
                                        *         ADJUST THE PARCEL COUNTER FOR THIS INSTRUCTION.                FAS       975
                                        *         ENTER WITH (B3) = PARCEL -2                                    FAS       976
                                        *         EXIT WITH  (B3) = PARCEL + ADJUSTMENT FOR INSTRUCTION          FAS       977
                                                                                                                 FAS       978
                               27307              PX3    X7                                                      FAS       979
           521  24703                             NX7    X3                                                      FAS       980
                     26307                        UX3    X7                                                      FAS       981
                          21357                   AX3    47          X3 = +1 LONG, 0 SHORT                       FAS       982
                               14733              BX7    -X3         X7 = -1     , -0                            FAS       983
           522  37376                             IX3    X7-X6       X3 = +2     , +3                            FAS       984
                     15436                        BX4    -X6*X3      X4 = +2     , +3                            FAS       985
                          63343                   SB3    X4+B3       (B3) = (X4) + PARCEL - 2                    FAS       986
           523  0100000757 +             RAD40    RJ     BNW         FORCE UPPER                                 FAS       987
           524  5110000753 +                      SA1    RADC                                                    FAS       988
                          0311000533 +            NZ     X1,RAD70    IF NOT A SHORT INSTRUCTION                  FAS       989
                                                                                                                 FAS       990
                                                                                                                 FAS       991
                                        **        MERGE 15-BIT INSTRUCTION INTO (BINWORD).                       FAS       992
                                                                                                                 FAS       993
           525  77721                             SX7    B2-B1                                                   FAS       994
                     76120                        SX1    B2                                                      FAS       995
                          5170000202 +            SA7    PARCEL                                                  FAS       996
           526  5120000055 +                      SA2    BINWORD                                                 FAS       997
                          6150000017              SB5    15          LEN = 15                                    FAS       998
           527  20104                             LX1    4                                                       FAS       999
                     63715                        SB7    X1+B5                                                   FAS      1000
                          67372                   SB3    B7-B2       SHIFT COUNT = 15*PARCEL +15                 FAS      1001
                               43017              MX0    15                                                      FAS      1002
           530  11505                             BX5    X0*X5       CLEAR REST OF WORD                          FAS      1003
                     22535                        LX5    B3                                                      FAS      1004
                          12625                   BX6    X2+X5       MERGE INSTRUCTION INTO BINWORD              FAS      1005
                               54620              SA6    A2                                                      FAS      1006
                                                                                                                 FAS      1007
           531                           RADOL1   BSSENT 0                                                       FAS      1008
                                        *         EQ     RADRTN      PLUGGED IF NOT LO=O                         FAS      1009
           531  10166                             BX1    X6                                                      FAS      1010
                     66430                        SB4    B3          INSTRUCTION SHIFT COUNT                     FAS      1011
                          0100000000 X            CALL   VFD         CONVERT AND FORMAT INSTRUCTION              FC5A171A  349
           532  5130002427 +                      SA3    =10H                                                    FAS      1013
                          0400000556 +            EQ     RAD90                                                   FAS      1014
                                                                                                                 FAS      1015
                                                                                                                 FAS      1016
                                        **        GET RELOCATION FOR 30-BIT INST.                                FAS      1017
                                                                                                                 FAS      1018
                                                                                                                 FAS      1019
           533  7172777775               RAD70    SX7    B2-2                                                    FAS      1020
                          43060                   MX0    -PB.H2L                                                 FAS      1021
           534  5170000202 +                      SA7    PARCEL      (PARCEL) = PARCEL - 2                       FAS      1022
                          10155                   BX1    X5                                                      FAS      1023
                                                  LX1    -PB.H2P                                                 FAS      1024
                               15310              BX3    -X0*X1      H2I = H2 [INSTRUCTION]                      FAS      1025
           535  5140000000 X                      SA4    T.SYM                                                   FAS      1026
                          0303000546 +            ZR     X3,RAD80    IF H2I .EQ.0  (NO ADDRESS DECREMENT)        FAS      1027
                                                                                                                 FAS      1028
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    25
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         RAD 
  
                                        *         FOR INSTRUCTIONS REQUIRING ADDRESS DECREMENT, COMPUTE          FAS      1029
                                        *         RELOCATION FOR THE TAG AND BIAS, MINUS THE RELOCATION          FAS      1030
                                        *         FOR THE H2[INSTRUCTION] TAG AND SUBSTITUTE INTO BIAS FIELD     FAS      1031
                                        *         OF THE INSTRUCTION  BEFORE CALLING REL.                        FAS      1032
                                        *         SET H2[INSTRUCTION] = 0,   TAG[INSTRUCTION] = 0.               FAS      1033
                                                                                                                 FAS      1034
           536  11101                             BX1    X0*X1       GET RID OF H2 FIELD                         FAS      1035
                     43652                        MX6    -PB.TAGL                                                FAS      1036
                          20136                   LX1    PB.H2P-PB.TAGP                                          FAS      1037
                               20536              HX5    PB.BIAS                                                 FAS      1038
           537  21552                             AX5    -PB.BIASL   BIASI = BIAS [INSTRUCTION]                  FAS      1039
                     15216                        BX2    -X6*X1      TAGI = TAG [INSTRUCTION]                    FAS      1040
                          11161                   BX1    X6*X1       GET RID OF TAG FIELD                        FAS      1041
                               22713              LX7    X3,B1                                                   FAS      1042
           540  36337                             IX3    X3+X7       STINDH = 3 * H2I                            FAS      1043
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1044
                     63420                        SB4    X2                                                      FAS      1045
                          63324                   SB3    X2+B4                                                   FAS      1046
                               43044              MX0    -WC.RAL                                                 FAS      1047
           541  20122                             LX1    PB.TAGP-PB.BIASP                                        FAS      1048
                     36343                        IX3    X4+X3                                                   FAS      1049
                          5223000002              SA2    X3+WC.W     WCH = T.SYM(STINDH) + WC.W                  FAS      1050
                                                  LX2    -WC.RAP                                                 FAS      1051
           542  15620                             BX6    -X0*X2      RAH = RA[WCH]                               FAS      1052
                     66434                        SB4    B3+B4       STINDI = 3 * TAGI                           FAS      1053
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1054
                          63444                   SB4    X4+B4                                                   FAS      1055
                               43352              MX3    -PB.BIASL                                               FAS      1056
           543  5144000002                        =A4    B4+WC.W     WCI = T.SYM(STINDI) + WC.W                  FAS      1057
                                                  LX4    -WC.RAP                                                 FAS      1058
                          15740                   BX7    -X0*X4      RAI = RA[WCI]                               FAS      1059
                               37276              IX2    X7-X6       RAI = RAI - RAH                             FAS      1060
           544  36725                             IX7    X2+X5       ADDRESS = RAI + BIASI                       FAS      1061
                     11131                        BX1    X3*X1       GET RID OF BIAS FIELD                       FAS      1062
                          15673                   BX6    -X3*X7      TRIM ADDRESS TO SIZE OF BIAS                FAS      1063
                               12516              BX5    X1+X6                                                   FAS      1064
           545  20514                             LX5    PB.BIASP                                                FAS      1065
           546  0100002232 +             RAD80    RJ     REL                                                     FAS      1066
           547  5110000055 +                      SA1    BINWORD                                                 FAS      1067
                          5120000056 +            SA2    BINREL                                                  FAS      1068
           550  63720                             SB7    X2                                                      FAS      1069
                                                                                                                 FAS      1070
                                        *         (B3) = INSTRUCTION SHIFT COUNT                                 FAS      1071
                                        *         (B7) = RELOCATION BYTE                                         FAS      1072
                                        *         (X1) = BINARY WORD OUTPUT.                                     FAS      1073
                                                                                                                 FAS      1074
           551                           RADOL2   BSSENT 0                                                       FAS      1075
                                        *         EQ     RADRTN      PLUGGED IF NOT LO=O                         FAS      1076
                                                                                                                 FAS      1077
           551  6150000036               RAD85    SB5    30          LEN = 30                                    FAS      1078
                          66435                   SB4    B3+B5       INSTRUCTION SHIFT COUNT + LEN               FAS      1079
           552  0100000000 X                      CALL   VFD                                                     FC5A171A  350
           553  76270                             SX2    B7          (X2) = RELOC INFO                           FAS      1081
                     5130002427 +                 SA3    =10H                                                    FAS      1082
                               67321              SB3    B2-B1       = (PARCEL) - 1                              FAS      1083
           554  43071                             MX0    -3                                                      FAS      1084
                     23132                        AX1    X2,B3                                                   FAS      1085
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    26
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         RAD 
  
                          15010                   BX0    -X0*X1      ISOLATE THIS RELOC VALUE                    FAS      1086
           555  0300000556 +                      ZR     X0,RAD90    IF NO RELOCATION                            FAS      1087
                          5130002430 +            SA3    =10H+                                                   FAS      1088
           556  5160000001 X             RAD90    SA6    LINEBUF+1   (LINEBUF+1) = UPPER 30 BITS OF INSTRUCTION  FAS      1089
                          10633                   BX6    X3                                                      FAS      1090
                               54761              =A7    A6+1        (LINEBUF+2) = LOWER 30 BITS OF INSTRUCTION  FAS      1091
           557  54671                             =A6    A7+1        (LINEBUF+3) = RELOCATION FIELD              FAS      1092
                     5150000211 +                 SA5    OL=PB                                                   FAS      1093
           560  0100002176 +                      RJ     POL         PRINT OBJECT LIST                           FAS      1094
           561  0400000467 +                      EQ     RADRTN                                                  FAS      1095
  
  
  
  
                                        **        PROCESS I. PSEUDO INSTRUCTION.                                 FAS      1097
                                        *                                                                        FAS      1098
                                        *         USED IN CONJUCTION WITH THE PSEUDO INSTRUCTION JUMP TABLE      FAS      1099
                                        *         AT IPSUD.                                                      FAS      1100
                                        *         THE DECISION WHETHER TO FORCE UPPER BEFORE THE                 FAS      1101
                                        *         INSTRUCTION IS MADE HERE DEPENDING ON THE PARCEL COUNT.        FAS      1102
                                        *         (X3) = 6/IJ,48/0,6/GH                                          FAS      1103
                                        *         (B2) = (PARCEL)                                                FAS      1104
                                        *         (B3) = (PARCEL) - 2                                            FAS      1105
                                        *         (X0) = MASK FOR GHIJ                                           FAS      1106
                                                                                                                 FAS      1107
           562                           RAD=PSI  BSS    0                                                       FAS      1108
           562  20306                             LX3    PB.GHL                                                  FAS      1109
                     63430                        SB4    X3          IJ                                          FAS      1110
                          14733                   =X7    -X3                                                     FAS      1111
           563  5170000753 +                      SA7    RADC        INDICATES PSEUDO INST                       FAS      1112
                          15550                   BX5    -X0*X5      MASK OFF GHIJ FROM INSTRUCTION              FAS      1113
           564  0244000132 +                      JP     B4+OCPSUD   JUMP TO I.PSUEDO INSTRUCTION PROCESSOR      FAS      1114
  
  
  
  
           565                           FI=BCI   BSS    0           BEGIN CCG TYPE INSTRUCTIONS                 FAS      1116
           565  43601                             MX6    1                                                       FAS      1117
                     5160000177 +                 SA6    BCI         (BCI) = 1S59                                FAS      1118
           566  0400000467 +                      EQ     RADRTN                                                  FAS      1119
  
  
  
  
           567                           FI=DATA  BSS    0           READ AND PROCESS *DATA* INFORMATION         FAS      1121
                                                                                                                 FAS      1122
                                        *         FLUSH PARTIAL WORD AND SAVE ORG.                               FAS      1123
                                                                                                                 FAS      1124
           567  0100000757 +                      RJ     BNW         BEGIN NEW WORD                              FAS      1125
           570  5110000201 +                      SA1    ORG                                                     FAS      1126
                          10611                   BX6    X1                                                      FAS      1127
           571  5160000605 +                      SA6    ORGD                                                    FAS      1128
                          76600                   SHRINK T=DATS,0                                                FAS      1129
                          20560                   LX5    -PB.BIASP                                               FAS      1130
                               43052              MX0    -PB.BIASL                                               FAS      1131
           573  15550                             BX5    -X0*X5      NUMBER OF DATA WORDS FOLLOWING              FAS      1132
                     5110000000 X                 ALLOC  T.DATS,X5                                               FAS      1133
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    27
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=DATA 
  
           575  63610                             SB6    X1          (T.DATS)                                    FAS      1134
                     0100002330 +                 RJ     RMI         READ MULTIPLE PB WORDS                      FAS      1135
           576  0100002176 +                      RJ     POL         PRINT OBJECT LIST                           FAS      1136
           577  0100001045 +                      RJ     DDS         DUMP T.DATS                                 FAS      1137
           600  5110000605 +                      SA1    ORGD                                                    FAS      1138
                          7170000003              SX7    3                                                       FAS      1139
           601  76600                             SHRINK T=DATS,0                                                FAS      1140
                               10611              BX6    X1                                                      FAS      1141
           602  5170000202 +                      SA7    PARCEL      START OF NEW WORD                           FAS      1142
                          5160000201 +            SA6    ORG         RESTORE ORG                                 FAS      1143
           603  0100001375 +                      RJ     DTX         INITIALIZE TEXT TABLE                       FAS      1144
           604  0400000467 +                      EQ     RADRTN                                                  FAS      1145
                                                                                                                 FAS      1146
           605                     1     ORGD     BSS    1                                                       FAS      1147
  
  
  
  
           606                           FI=ECI   BSS    0           END CCG TYPE INSTRUCTIONS                   FAS      1149
           606  43600                             MX6    0                                                       FAS      1150
                     5160000177 +                 SA6    BCI         (BCI) = 0                                   FAS      1151
           607  0400000467 +                      EQ     RADRTN                                                  FAS      1152
  
  
  
  
           610                           FI=BSS   BSS    0           PROCESS I.BSS INSTRUCTION                   FAS      1154
           610  0100002223 +                      RJ     RBS         RELOCATE  BSS  PSEUDO INSTRUCTION           FAS      1155
           611  0100001407 +                      RJ     ESL         ENTER STMT LABEL IN 57 TABLE                FAS      1156
           612  0400000467 +                      EQ     RADRTN                                                  FAS      1157
  
  
  
  
           613                           FI=BOS   BSS    0           PROCESS I.BOS INSTRUCTION                   FAS      1159
                                         .T       IFEQ   TEST,ON                                                 FAS      1160
                                                  SA2    FI=BRLI                                                 FAS      1161
                                                  MX1    -PB.BIASL                                               FAS      1162
                                                  LX5    -PB.BIASP                                               FAS      1163
                                                  BX6    -X1*X5      (LINES) = NEW LINE NUMBER                   FAS      1164
                                                  IX2    X6-X2                                                   FAS      1165
                                                  SA6    LINES                                                   FAS      1166
                                                  LX5    PB.BIASP                                                FAS      1167
                                                  NZ     X2,BOS.1    IF NOT AT BREAKPOINT LINE                   FAS      1168
                                         BRLI3    BREAK                                                          FAS      1169
                                         BOS.1    BSS                                                            FAS      1170
                                         .T       ENDIF                                                          FAS      1171
                                                                                                                 FAS      1172
           613  0100001037 +                      RJ     CLE         CREATE LINE TABLE ENTRY                     FAS      1173
           614  0100002176 +                      RJ     POL         PRINT * LINE    NNN*                        FAS      1174
           615  0400000467 +                      EQ     RADRTN                                                  FAS      1175
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    28
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=CPL
  
           616                           FI=CPL   BSS    0           *CPL.* TABLE ORDINAL                        FAS      1177
           616  0100000757 +                      RJ     BNW         FORCE UPPER                                 FAS      1178
           617  43052                             MX0    -PB.TAGL                                                FAS      1179
                     43656                        MX6    -PB.ORDL                                                FAS      1180
                          20536                   LX5    -PB.TAGP                                                FAS      1181
                               15250              BX2    -X0*X5      TAGI = TAG[INSTRUCTION]                     FAS      1182
           620  11362                             BX3    X6*X2       PFXI = PFX[TAGI]                            FAS      1183
                     20536                        LX5    PB.TAGP                                                 FAS      1184
                          0313400620 +            NZ     X3,"BLOWUP" IF PFXI .NE. K=SYM                          FAS      1185
                                   0              ERRNZ  K=SYM                                                   FAS      1186
           621  5110000000 X                      SA1    T.SYM                                                   FAS      1187
                          63711                   =B7    X1+WB.W                                                 FAS      1188
                               22012              LX0    X2,B1                                                   FAS      1189
           622  36202                             IX2    X0+X2       STIND = 3 * TAGI                            FAS      1190
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1191
                     53127                        SA1    X2+B7       WBI = T.SYM(STIND) + WB.W                   FAS      1192
                          54311                   =A3    A1-WB.W+WC.W      WCI                                   FAS      1193
                               43052              MX0    -WC.CLENL                                               FAS      1194
           623  20336                             LX3    -WC.CLENP                                               FAS      1195
                     15630                        BX6    -X0*X3      CLENI = CLEN[WCI]                           FAS      1196
                                                  LX3    WC.CLENP-1-WC.CTYPP                                     FAS      1197
                          21373                   AX3    59          SIGN EXTEND WC.CTYP                         FAS      1198
                               20122              HX1    WB.FPNO                                                 FAS      1199
           624  21163                             AX1    -WB.FPNOL   FPNOI = FPNO[WBI]                           FAS      1200
                     7211777776                   =X1    X1-1        FPNOI = FPNOI - 1                           FAS      1201
                                  11              ERRMI  18-WB.FPNOL                                             FAS      1202
                                         .T       IFEQ   TEST,ON,1                                               FAS      1203
                                                  MI     X1,"BLOWUP" IF FPNOI .LT. 0                             FAS      1204
                               15363              BX3    -X3*X6      L = WC.CLEN IFF WC.CTYP .EQ. 0, ELSE = 0    FAS      1205
           625  20336                             LX3    30                                                      FAS      1206
                     43601                        MX6    1                                                       FAS      1207
                          12113                   BX1    X1+X3                                                   FAS      1208
                               12116              BX1    X1+X6       ADD IN SIGN BIT                             FAS      1209
           626  76200                             =X2    0           INDICATE NO RELOCATION                      FAS      1210
                     10011                        BX0    X1          SAVE (X0) = (X1)                            FAS      1211
                          0100002374 +            RJ     STX         STORE INTO TEXT                             FAS      1212
           627  0100001430 +                      RJ     FBP         FORMAT BINARY DISPLAY CODE AND PRINT        FAS      1213
           630  0400000467 +                      EQ     RADRTN                                                  FAS      1214
  
  
  
  
           631                           FI=EMI   BSS    0           END OF QUICK MODE CODE, EXIT RAD            FAS      1216
           631  0100000757 +                      RJ     BNW         STORE LAST WORD INTO TEXT TABLE             FAS      1217
           632  0400000461 +                      EQ     EXIT.                                                   FAS      1218
                                                                                                                 FAS      1219
                                                                                                                 FAS      1220
                                        *         FOR  RJ6, RJ3, JPI, UJP  PSEUDO INSTRUCTIONS, RETAIN           FAS      1221
                                        *         PSEUDO STATUS UNTIL FORCE UPPER, AFTER COMMENCES.              FAS      1222
                                        *         (X5) = INSTRUCTION WITHOUT GHIJ                                FAS      1223
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    29
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=JPI
  
           633                           FI=JPI   BSS    0           PROCESS  I.JPI PSEUDO                       FAS      1225
                                                  LX5    -PB.BJRP                                                FAS      1226
           633  43171                             MX1    -PB.IL                                                  FAS      1227
                     15451                        BX4    -X1*X5      BI = BJR [INSTRUCTION]                      FAS      1228
                                                  LX5    PB.BJRP                                                 FAS      1229
                          20463                   LX4    PB.GHIJP+PB.IL    POSITION THE *B-BOX*                  FAS      1230
                               11515              BX5    X1*X5       GET RID OF BJR FIELD                        FAS      1231
           634  36554                             IX5    X5+X4                                                   FAS      1232
                     7120000200                   SX2    200B                                                    FAS      1233
           635  6133000002                        SB3    B3+2        WORTH TWO PARCELS                           FAS      1234
                          0400000705 +            EQ     UJP.10                                                  FAS      1235
  
  
  
  
           636                           FI=LOO   BSS    0           TURN ON /OFF OBJECT LISTING                 FAS      1237
           636  43652                             MX6    -PB.BIASL                                               FAS      1238
                     21514                        AX5    PB.BIASP                                                FAS      1239
                          15656                   BX6    -X6*X5                                                  FAS      1240
           637  5160000000 X                      SA6    WO.LOO      (WO.LOO) = BIAS [INSTRUCTION]               FAS      1241
                          0400000467 +            EQ     RADRTN                                                  FAS      1242
  
  
  
  
           640                           FI=OTR   BSS    0           PROCESS  I.OTR PSEUDO                       FAS      1244
           640  7120006102                        SX2    6102B                                                   FAS      1245
                          20260                   LX2    -PB.GHIJL                                               FAS      1246
                               12552              BX5    X5+X2       REPLACE GHIJ WITH OPCODE EQUIVALENT         FAS      1247
           641  22705                             LX7    X5                                                      FAS      1248
                     76610                        =X6    B1                                                      FAS      1249
                          5160000753 +            SA6    RADC        CHANGE INDICATOR FROM PSEUDO TO LONG        FAS      1250
           642  5170000211 +                      SA7    OL=PB       SET MODIFIED INSTRUCTION                    FAS      1251
                          43014                   MX0    PB.GHIJL                                                FAS      1252
                               15150              BX1    -X0*X5                                                  FAS      1253
           643  20136                             LX1    PB.GHIJL+PB.TAGL                                        FAS      1254
                     5120000000 X                 SA2    S=LENP      ORDINAL TO LENP ENTRY IN T.SYM              FAS      1255
                               13312              BX3    X1-X2                                                   FAS      1256
           644  0313000523 +                      NZ     X3,RAD40    IF NOT  *SB0  B2-LENP.*  INSTRUCTION        FAS      1257
                          22612                   LX6    X2,B1                                                   FAS      1258
                               36762              IX7    X6+X2       STIND = 3 * ORDINAL                         FAS      1259
           645  5120000000 X                      SA2    T.SYM                                                   FAS      1260
                          36627                   IX6    X2+X7                                                   FAS      1261
           646  5236000002                        SA3    X6+WC.W     WCI = T.SYM(STIND)                          FAS      1262
                                                  LX3    -WC.RAP                                                 FAS      1263
                          43752                   MX7    -PB.BIASL                                               FAS      1264
                               15337              BX3    -X7*X3      BIASI = RA[WCI]                             FAS      1265
           647  11105                             BX1    X0*X5                                                   FAS      1266
                     20314                        LX3    PB.BIASP                                                FAS      1267
                          36513                   IX5    X1+X3                                                   FAS      1268
                               10655              BX6    X5                                                      FAS      1269
           650  5160000211 +                      SA6    OL=PB                                                   FAS      1270
                          0400000523 +            EQ     RAD40       PROCESS LIKE A LONG INSTRUCTION             FAS      1271
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    30
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=RJ3
  
           651                           FI=RJ3   BSS    0           PROCESS  I.RJ3 PSEUDO                       FAS      1273
           651  7120000100                        SX2    100B                                                    FAS      1274
                          6133000002              SB3    B3+2        WORTH TWO PARCELS                           FAS      1275
           652  0400000705 +                      EQ     UJP.10                                                  FAS      1276
  
  
  
  
                                         #DAL     IFEQ   .DAL,0      IF NO LEVEL 0 POSSIBLE                      FC5A171A  351
                                         FI=LD0   EQU    "BLOWUP"                                                FC5A171A  352
                                         FI=ST0   EQU    "BLOWUP"                                                FC5A171A  353
                                         FI=SB0I  EQU    "BLOWUP"                                                FC5A171A  354
                                                                                                                 FC5A171A  355
                                         #DAL     ELSE                                                           FC5A171A  356
           653                           FI=LD0   BSS    0           LOAD INSTRUCTION FOR SUB0                   FAS      1278
           653  7120001400                        =X2    1400B       LCM LOAD INSTRUCTION                        FAS      1279
           654  43060                    LD0.10   MX0    -PB.H2L                                                 FAS      1280
                     10655                        BX6    X5                                                      FAS      1281
                          21500                   AX5    PB.H2P                                                  FAS      1282
                               15050              BX0    -X0*X5      IJ                                          FAS      1283
           655  12102                             BX1    X0+X2       (014IJ/ 015IJ)                              FAS      1284
                     7150053000                   =X5    53000B                                                  FAS      1285
                               20003              LX0    3                                                       FAS      1286
           656  12550                             BX5    X5+X0       (53IJ0)                                     FAS      1287
                     0100001007 +                 RJ     BSZ         MAKE AN SUB0 ENTRY                          FAS      1288
           657  20555                             LX5    -15                                                     FAS      1289
                     43600                        MX6    0                                                       FAS      1290
                          22705                   LX7    X5          (OL=PB) = ACTUAL INSTRUCTION                FAS      1291
           660  5160000753 +                      SA6    RADC        INDICATE SHORT INSTRUCTION                  FAS      1292
                          6133000003              =B3    B3+3        THIS INSTRUCTION TAKES 15 BITS              FAS      1293
           661  5170000211 +                      SA7    OL=PB                                                   FAS      1294
                          0400000523 +            EQ     RAD40       PROCESS AS 15 BIT INSTRUCTION               FAS      1295
  
  
  
  
           662                           FI=ST0   BSS    0                                                       FAS      1297
           662  7120001500                        =X2    1500B       LCM STORE INSTRUCTION                       FAS      1298
                          0400000654 +            EQ     LD0.10                                                  FAS      1299
  
  
  
  
           663                           FI=SB0I  BSS    0           OUTPUT A SUB0 INDEX WORD                    FAS      1301
           663  6140000000 X                      SB4    BN=SUB0                                                 FAS      1302
                          6160000022              SB6    FP.SUB0P                                                FAS      1303
           664  0400000666 +                      EQ     SUBI.10                                                 FAS      1304
                                         #DAL     ENDIF                                                          FC5A171A  357
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    31
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=SUBI 
  
           665                           FI=SUBI  BSS    0           OUTPUT A SUBI WORD                          FAS      1306
           665  6140000000 X                      SB4    BN=SUB                                                  FAS      1307
                          6160000044              SB6    FP.SUBP                                                 FAS      1308
           666                           SUBI.10  BSS    0                                                       FAS      1309
           666  0100000757 +                      RJ     BNW         FORCE UPPER                                 FAS      1310
           667  20514                             HX5    PB.TAG                                                  FAS      1311
                     21552                        AX5    -PB.TAGL    TAGI = TAG[INSTRUCTION]                     FAS      1312
                                         .T       IFEQ   TEST,ON,1                                               FAS      1313
                                                  MI     X5,"BLOWUP" IF TAGI .LT. 0                              FAS      1314
                          5120000000 X            SA2    T.SYM                                                   FAS      1315
           670  22015                             LX0    X5,B1                                                   FAS      1316
                     36050                        IX0    X5+X0       STIND = 3 * TAGI                            FAS      1317
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1318
                          63721                   =B7    X2+WB.W                                                 FAS      1319
                               53107              SA1    X0+B7       WBI = T.SYM(STIND) + WB.W                   FAS      1320
           671  43063                             MX0    -WB.FPNOL                                               FAS      1321
                     21141                        AX1    WB.FPNOP                                                FAS      1322
                          15110                   BX1    -X0*X1      FPNOI = FPNO[WBI]                           FAS      1323
           672  6271777776                        SB7    X1-1        FPNOI = FPNOI - 1                           FAS      1324
                                  11              ERRMI  18-WB.FPNOL                                             FAS      1325
                          5130000000 X            SA3    T.FPO                                                   FAS      1326
           673  53237                             SA2    X3+B7       FPOI = T.FPO(FPNOI)                         FAS      1327
                     23262                        AX2    B6                                                      FAS      1328
                          43056                   MX0    -FP.SUBL                                                FC50252    30
                               15220              BX2    -X0*X2      EXTRACT SUB FIELD                           FC50252    31
                                         .T       IFEQ   TEST,ON,1                                               FAS      1331
                                                  MI     X2,"BLOWUP" IF SUBFWA .LT. 0                            FAS      1332
           674  5144000000 X                      SA4    F.LBT+B4    SUBBLK = T.LBT(BN=SUB)                      FAS      1333
                          20452                   HX4    LB.ORG                                                  FAS      1334
                               21452              AX4    -LB.ORGL    SUBORG = ORG[ T.LBT(BN=SUB)]                FAS      1335
           675  36442                             IX4    X4+X2       SUBFWA = SUBFWA + SUBORG                    FAS      1336
                     27174                        PX1    X4,B7       12/2000B+(FPNO-1), 30/0, 18/SUBORG          FAS      1337
                          76211                   =X2    2           INDICATE LOWER ADDRESS RELOCATION           FAS      1338
                               10011              BX0    X1          SAVE (X0) = (X1)                            FAS      1339
           676  0100002374 +                      RJ     STX         OUTPUT THE SUB INDEX WORD                   FAS      1340
           677  0100001430 +                      RJ     FBP         FORMAT BINARY AND PRINT                     FAS      1341
           700  0400000467 +                      EQ     RADRTN                                                  FAS      1342
  
  
  
  
           701                           FI=UJP   BSS    0           PROCESS  I.UJP PSEUDO                       FAS      1344
           701  5110000000 X                      SA1    S=ENTRY                                                 FC50730     8
                          10255                   BX2    X5                                                      FC50730     9
                               20214              HX2    PB.TAG                                                  FC50730    10
           702  21252                             AX2    -PB.TAGL    EXTRACT OPERAND ORDINAL                     FC50730    11
                     37112                        IX1    X1-X2                                                   FC50730    12
                          0311000704 +            NZ     X1,UJP.5    IF NOT MAIN ENTRY (OF SUBROUTINE)           FC50730    13
           703  76110                             =X1    1                                                       FC50730    14
                     20135                        LX1    PB.BIASP+17                                             FC50730    15
                          12551                   BX5    X5+X1       MAKE A "BLOWUP" STYLE ENTRY                 FC50730    16
                                                                                                                 FC50730    17
           704  7120000400               UJP.5    SX2    400B        EQ CODE                                     FC50730    18
                          6133000002              SB3    B3+2        THIS INSTRUCTION IS WORTH TWO PARCELS       FAS      1346
                                                                                                                 FC50730    19
           705  20260                    UJP.10   LX2    -PB.GHIJL                                               FAS      1347
                     12552                        BX5    X5+X2                                                   FAS      1348
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    32
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=UJP
  
                          22605                   LX6    X5          (OL=PB) = MODIFIED INSTRUCTION              FAS      1349
           706  5160000211 +                      SA6    OL=PB                                                   FAS      1350
                          0100000757 +            RJ     BNW         FORCE UPPER IF NECESSARY                    FAS      1351
           707  0100002232 +                      RJ     REL         RELOCATE ADDRESS                            FAS      1352
           710  5120000056 +                      SA2    BINREL                                                  FAS      1353
                          5110000055 +            SA1    BINWORD                                                 FAS      1354
           711  10611                             BX6    X1                                                      FAS      1355
                     53020                        SA0    X2          SAVE (A0) = LOWER 18 BITS OF (BINREL)       FAS      1356
                          76030                   SX0    B3          SAVE (X0) = (B3)                            FAS      1357
           712  5160000214 +                      SA6    TEMP        SAVE (TEMP) = BINARY WORD                   FAS      1358
                          0100002374 +            RJ     STX         STORE IN TEXT TABLE, FORCE UPPER AFTER      FAS      1359
           713  5110000214 +                      SA1    TEMP                                                    FAS      1360
                          63300                   SB3    X0          RESTORE (B3)                                FAS      1361
                               64700              SB7    A0                                                      FAS      1362
           714  0400000551 +                      EQ     RAD85                                                   FAS      1363
  
  
  
  
           715                           FI=RJ6   BSS    0           PROCESS  RJ WITH TRACE PSEUDO INST          FAS      1365
           715  7120000100                        SX2    100B                                                    FAS      1366
                          43152                   MX1    -PB.BIASL                                               FAS      1367
                               20260              LX2    -PB.GHIJL                                               FAS      1368
           716  12552                             BX5    X5+X2       (OL=PB) = MODIFIED INSTRUCTION              FAS      1369
                     20114                        LX1    PB.BIASP                                                FAS      1370
                          15651                   BX6    -X1*X5      LINE NUMBER = BIAS [INSTRUCTION]            FAS      1371
                               11715              BX7    X1*X5       (PB.BIAS) = 0, FOR BST                      FAS      1372
           717  11515                             BX5    X1*X5                                                   FAS      1373
                     20660                        LX6    -PB.BIASP                                               FC50264    37
                          5160000214 +            SA6    SAVETR      (SAVETR) = LINE NUMBER                      FAS      1374
           720  5170000211 +                      SA7    OL=PB                                                   FAS      1375
                          0100000757 +            RJ     BNW         BEGIN NEW WORD (FORCE UPPER)                FAS      1376
           721  0100002232 +                      RJ     REL         RELOCATE THE RJ                             FAS      1377
           722  5140000214 +                      SA4    SAVETR      LINE NUM                                    FAS      1378
                          5130000211 +            SA3    OL=PB                                                   FAS      1379
           723  7120007776                        SX2    7776B                                                   FC50264    38
                          37242                   IX2    X4-X2                                                   FC50264    39
                               43600              MX6    0           NO SPECIAL LINE/SEQUENCE PROCESSING         FC50264    40
           724  0332000726 +                      MI     X2,RJ6.10   IF LINE/SEQUENCE NUMBER .LT. 4095           FC50264    41
                          22604                   LX6    X4          INDICATE SPECIAL LINE/SEQUENCE PROCESSING   FC50264    42
           725  7140007777                        SX4    7777B       RESET TO FLAG NOT REALLY LINE NUMBER        FC50264    43
                                                                                                                 FC50264    44
           726  5160000214 +             RJ6.10   SA6    SAVETR                                                  FC50264    45
                          20414                   LX4    PB.BIASP                                                FC50264    46
                               76211              =X2    2           INDICATE LOWER PGM REL                      FC50264    47
           727  5110000055 +                      SA1    BINWORD                                                 FAS      1381
                          12743                   BX7    X4+X3       ADD LINE NUM BACK IN TO LISTING             FAS      1382
                               20406              LX4    -PB.BIASP+18                                            FAS      1383
           730  12114                             BX1    X1+X4       ADD LINE NUM BACK IN TO BINARY              FAS      1384
                     10011                        BX0    X1                                                      FAS      1385
                          54730                   SA7    A3                                                      FAS      1386
           731  0100002374 +                      RJ     STX         STORE IN *TEXT* TABLE                       FAS      1387
           732  0100001430 +                      RJ     FBP         FORM BINARY AND PRINT                       FAS      1388
           733  5130000214 +                      SA3    SAVETR                                                  FC50264    48
                          0303000467 +            ZR     X3,RADRTN   IF NO LINE/SEQUENCE NUMBER TO PROCESS       FC50264    49
           734  5110000754 +                      SA1    RADD                                                    FC50264    50
                          20314                   LX3    PB.BIASP                                                FC50264    51
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    33
        RAD - *TS* TYPE INSTRUCTION PROCESSOR                         FI=RJ6
  
                               12613              BX6    X1+X3                                                   FC50264    52
           735  5160000755 +                      SA6    RADE                                                    FC50264    53
                          76611                   =X6    2                                                       FC50264    54
           736  5160000756 +                      SA6    RADF        INDICATE FUNNY RNI                          FC50264    55
                          0400000467 +            EQ     RADRTN                                                  FAS      1389
  
  
  
  
           737                           FI=USE   BSS    0           PROCESS I.USE PSEUDO                        FAS      1391
           737  0100000757 +                      RJ     BNW         BEGIN NEW WORD                              FAS      1392
           740  0100001375 +                      RJ     DTX         DUMP TEXT.                                  FAS      1393
           741  10755                             BX7    X5                                                      FAS      1394
                     0100002210 +                 RJ     PUSE        GO SWITCH  ORG  AND  PARCEL                 FAS      1395
           742  0100001375 +                      RJ     DTX         INITIALIZE NEW  ORG,PARCNT IN TEXT          FAS      1396
           743  0100002176 +                      RJ     POL         PRINT OBJECT LISTING                        FAS      1397
           744  0400000467 +                      EQ     RADRTN                                                  FAS      1398
  
  
  
  
           745                           FI=ZERO  BSS    0           OUTPUT A ZERO WORD                          FAS      1400
           745  0100000757 +                      RJ     BNW         FORCE UPPER                                 FAS      1401
           746  43100                             MX1    0                                                       FAS      1402
                     13222                        BX2    0           INDICATE NO RELOCATION                      FAS      1403
                          0100002374 +            RJ     STX                                                     FAS      1404
           747  43000                             MX0    0                                                       FAS      1405
                     0100001430 +                 RJ     FBP         FORMAT BINARY AND PRINT                     FAS      1406
           750  0400000467 +                      EQ     RADRTN                                                  FAS      1407
                                                                                                                 FAS      1408
                                                                                                                 FAS      1409
           751                     1     RADA     BSSZ   1           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      FAS      1410
           752                     1     RADB     BSS    1           STORAGE FOR READW INPUT                     FAS      1411
           753                     1     RADC     BSSENT 1           STORAGE FOR INSTRUCTION TYPE                FAS      1412
           754  61000000000000000000     RADD     VFD    12/6100B,48/0     SB0 TEMPLATE                          FC50264    56
           755                     1     RADE     BSS    1           SB0+LINE/SEQ NO.                            FC50264    57
           756                     1     RADF     BSSZ   1           FUNNY RNI INDICATOR                         FC50264    58
                                 214 +   SAVETR   EQU    TEMP        SAVE TRACE BACK LINE NUM DURING RELOCATION  FAS      1413
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    34
        ASSEMBLER SUPPORTING ROUTINES                                 BNW 
  
                                        **        BNW - BEGIN NEW WORD.                                          FAS      1416
                                        *                                                                        FAS      1417
                                        *         ENTRY  (B2) = CURRENT PARCEL.                                  FAS      1418
                                        *                (B3) FLAGS WHETHER FORCE UPPER OR NOT --                FAS      1419
                                        *                       IF (B3) .GT. 0 , EXIT.                           FAS      1420
                                        *                                                                        FAS      1421
                                        *         EXIT   OLD WORD STORED IN TEXT TABLE AND NEW WORD BEGUN.       FAS      1422
                                        *                (B2) UPDATED.                                           FAS      1423
                                        *                (LINEBUF) = ORIGIN COUNTER, OR BLANK.                   FAS      1424
                                        *                                                                        FAS      1425
                                        *         CALLS  ROL, STX.                                               FAS      1426
                                                                                                                 FAS      1427
                                                                                                                 FAS      1428
           757  0400400757 +             BNW      SUBR                                                           FAS      1429
           760  0703000766 +                      GT     B3,B0,BNW8  IF NO NEED TO PAD                           FAS      1430
                          5130002431 +            SA3    =460006100046000B                                       FAS      1431
           761  6132777775                        SB3    B2-2                                                    FAS      1432
                          43717                   MX7    PB.INSTL                                                FAS      1433
                               77203              SX2    -B3         = 2 - (PARCEL)                              FAS      1434
           762  5110000055 +                      SA1    BINWORD                                                 FAS      1435
                          20204                   LX2    4           = 32 - 16*P                                 FAS      1436
                               63723              SB7    X2+B3       = 32-16P+P-2 = 30 - 15(P)                   FAS      1437
           763  23777                             AX7    B7                                                      FAS      1438
                     54211                        SA2    A1+B1                                                   FAS      1439
                          15337                   BX3    -X7*X3      GET PROPER NUMBER OF NO-OPS                 FAS      1440
                               36113              IX1    X1+X3                                                   FAS      1441
           764  0100002374 +                      RJ     STX         STORE THE WORD INTO THE CURRENT TEXT TABLE  FAS      1442
           765  6120000003                        SB2    3           INDICATE EMPTY WORD NOW                     FAS      1443
           766  0100002334 +             BNW8     RJ     ROL         SET ORIGIN FOR OL                           FAS      1444
           767  0400000757 +                      EQ     EXIT.                                                   FAS      1445
  
  
  
  
                                        **        BST -  BUILD  *SUB*  TABLE.                                    FAS      1447
                                        *                                                                        FAS      1448
                                        *         COMPILE AN ADDRESS SUBSTITUTION ENTRY INTO (T.SUB), IN         FAS      1449
                                        *         (SB.) FORMAT.  CALLED BY *REL* WHEN A MACHINE INSTRUCTION IS   FAS      1450
                                        *         GENERATED WITH A Q-FIELD REFERING TO A FORMAL PARAMETER.       FAS      1451
                                        *                                                                        FAS      1452
                                        *         ENTRY  (B2) = PARCEL COUNT.                                    FAS      1453
                                        *                (B5) = FORMAL PARAMETER NUMBER.                         FAS      1454
                                        *                (OL=PB) = BIAS IN (PB.BIAS) FIELD.                      FAS      1455
                                        *                                                                        FAS      1456
                                        *         EXIT   *SUB* ELEMENT STORED INTO  T.SUB.                       FAS      1457
                                        *                (X5) = CURRENT  *SUB*  TABLE ELEMENT.                   FAS      1458
                                        *                                                                        FAS      1459
                                        *         KEEPS  B2,B3,B4                                                FC5A219    10
                                                                                                                 FAS      1461
                                                                                                                 FAS      1462
           770  0400400770 +             BST      SUBR   =           ENTRY/EXIT.                                 FAS      1463
           771                           BST.EQ   BSSENT 0                                                       FAS      1464
           771  67751                             SB7    B5-B1                                                   FAS      1465
                     5110000000 X                 SA1    T.FPI                                                   FAS      1466
                               53217              SA2    X1+B7       FPI = T.FPI(FPIND - 1)                      FAS      1467
           772  5130000000 X                      SA3    T.SUB                                                   FAS      1468
                          63630                   SB6    X3                                                      FC5A219    11
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    35
        ASSEMBLER SUPPORTING ROUTINES                                 BST 
  
                               20230              LX2    -FP.SUBP                                                FAS      1470
           773  43656                             MX6    -FP.SUBL                                                FC50252    32
                     15626                        BX6    -X6*X2      EXTRACT FP.SUB                              FC50252    33
                          63760                   SB7    X6          SUBIND = ORG[FPI]                           FC50252    34
                               76610              =X6    1                                                       FAS      1473
           774  36726                             IX7    X2+X6                                                   FAS      1474
                     20744                        LX7    FP.SUBP                                                 FAS      1475
                          54720                   SA7    A2          ORG[FPI] = ORG+1 [FP.]                      FAS      1476
                                                                                                                 FAS      1477
                                        *         CREATE POS[FP.] FROM PARCEL COUNT.                             FAS      1478
                                                                                                                 FAS      1479
                               77021              SX0    B2-B1       = PARCEL -1                                 FAS      1480
           775  77121                             SX1    B2-B1                                                   FAS      1481
                     20004                        LX0    4                                                       FAS      1482
                          37501                   IX5    X0-X1       SHIFT = 15 * (PARCEL - 1)                   FAS      1483
                               20214              LX2    12                                                      FAS      1484
           776  7215777776                        SX1    X5-1        SHCNT = (-1,  14,  OR 29)                   FAS      1485
                          21173                   AX1    59          SIGN EXTEND SHCNT                           FAS      1486
                               76410              SX4    B1                                                      FAS      1487
           777  11414                             BX4    X1*X4       (1, 0, OR 0)                                FAS      1488
                     7255002000                   SX5    X5+2000B    (2000B,  2017B,  OR 2036B)                  FAS      1489
                               37554              IX5    X5-X4       POSI = (1777B,  2017B,  OR 2036B)           FAS      1490
                                                                                                                 FAS      1491
                                        *         COMPLEMENT POSI IF DELAY.                                      FAS      1492
                                                                                                                 FAS      1493
          1000  5110000200 +                      SA1    DELAY                                                   FAS      1494
                          5130000201 +            SA3    ORG                                                     FAS      1495
          1001  27753                             PX7    X3,B5       DELI = (12/2000B+FPNO, 48/ORG)              FAS      1496
                     54710                        SA7    A1          (DELAY) = DELI                              FAS      1497
                          13117                   BX1    X1-X7       IF (DELAY ) .EQ. DELI, (X1) = 0             FAS      1498
                               43000              MX0    0                                                       FAS      1499
          1002  14411                             BX4    -X1                                                     FAS      1500
                     36604                        IX6    X0+X4                                                   FAS      1501
                          12416                   BX4    X1+X6       =0 IF DELAY,  -0 IF NOT                     FAS      1502
                               20560              LX5    SB.POSP                                                 FAS      1503
                                   0              ERRNZ  48-SB.POSP                                              FAS      1504
          1003  43214                             MX2    12                                                      FAS      1505
                     15224                        BX2    -X4*X2      12 BIT MASK IF DELAY                        FAS      1506
                          13552                   BX5    X5-X2                                                   FAS      1507
                                                                                                                 FAS      1508
                                        *         FORM REST OF [SB.] WORD.                                       FAS      1509
                                                                                                                 FAS      1510
          1004  5110000211 +                      SA1    OL=PB                                                   FAS      1511
                          43052                   MX0    -PB.BIASL                                               FAS      1512
                                                  LX3    SB.ORGP                                                 FAS      1513
                               12553              BX5    X5+X3                                                   FAS      1514
          1005  20160                             LX1    -PB.BIASP                                               FAS      1515
                     15110                        BX1    -X0*X1      BIASI = BIAS[INSTRUCTION]                   FAS      1516
                          20122                   LX1    SB.BIASP                                                FAS      1517
                               12615              BX6    X1+X5                                                   FAS      1518
          1006  56667                             SA6    B6+B7       T.SUB(SUBIN) = (POS,BIASI,ORD)[SB.]         FC5A219    12
                     0400000770 +                 EQ     EXIT.                                                   FAS      1520
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    36
        ASSEMBLER SUPPORTING ROUTINES                                 BSZ 
  
                                        **        BSZ -  BUILD SUB0 TABLE.                                       FAS      1522
                                        *                MAKE A SUB0 TABLE ENTRY, FORMATTED AS SZ. .             FAS      1523
                                        *                                                                        FAS      1524
                                        *         ENTRY  (X1) = LCM LOAD/ STORE INSTRUCTION                      FAS      1525
                                        *                (X5) = SHORT INSTRUCTION                                FAS      1526
                                        *                (X6) = I.LD0/ I.ST0 PSEUDO INSTRUCTION                  FAS      1527
                                        *         EXIT   (X5) = UNCHANGED                                        FAS      1528
                                        *                (TAGSUB0) = SYMTAB ORD OF F.P. BEING SUB0ED.            FAS      1529
                                        *         USES                                                           FAS      1530
                                                                                                                 FAS      1531
                                                                                                                 FAS      1532
          1007  0400401007 +             BSZ      SUBR               ENTRY/EXIT.                                 FAS      1533
                                         #MD      IFNE   .DAL,0                                                  FC5A132   131
          1010  20614                             HX6    PB.TAG                                                  FAS      1534
                     21652                        AX6    -PB.TAGL    TAGI = TAG[ INSTRUCTION]                    FAS      1535
                          5160000206 +            SA6    TAGSUB0     (TAGSUB0) = TAGI                            FAS      1536
          1011  5120000000 X                      SA2    T.SYM                                                   FAS      1537
                          6242000001              SB4    X2+WB.W                                                 FAS      1538
          1012  22316                             LX3    X6,B1                                                   FAS      1539
                     63434                        SB4    X3+B4                                                   FAS      1540
                          43063                   MX0    -WB.FPNOL                                               FAS      1541
                               53264              SA2    X6+B4       WBI = T.SYM(STIND) + WB.W                   FAS      1542
          1013  5130000000 X                      SA3    T.FPI                                                   FAS      1543
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1544
                          21241                   AX2    WB.FPNOP                                                FAS      1545
                               15020              BX0    -X0*X2      FPNOI = FPNO[WBI]                           FAS      1546
          1014  6240777776                        SB4    X0-1        FPNOI = FPNOI - 1                           FAS      1547
                                  11              ERRMI  18-WB.FPNOL                                             FAS      1548
                          53234                   SA2    X3+B4       FPI = T.FPI(FPNOI)                          FAS      1549
                               20252              LX2    -FP.SUB0P                                               FAS      1550
          1015  63721                             =B7    X2+1        SUB0IND = SUB0[FPI]                         FAS      1551
                                   0              ERRNZ  18-FP.SUB0L                                             FAS      1552
                     76610                        =X6    1                                                       FAS      1553
                          36762                   IX7    X6+X2                                                   FAS      1554
                               20722              LX7    FP.SUB0P                                                FAS      1555
          1016  54720                             SA7    A2          SUB0[FPI] = (SUB0+1) [FP.]                  FAS      1556
                                                                                                                 FAS      1557
                                        *         CREATE A SUB0 ENTRY.                                           FAS      1558
                                                                                                                 FAS      1559
                     5120000202 +                 SA2    PARCEL                                                  FAS      1560
                               73020              SX0    X2                                                      FAS      1561
          1017  20004                             LX0    4                                                       FAS      1562
                     37602                        IX6    X0-X2       PARCEL* 15                                  FAS      1563
                          7266002036              SX6    X6+2036B                                                FAS      1564
                                         .T       IFEQ   TEST,ON,1                                               FAS      1565
                                                  MI     X6,"BLOWUP"                                             FAS      1566
          1020  7236775703                        SX3    X6-2074B                                                FC51232     6
                          0333001022 +            MI     X3,BSZ4     IF SHIFT COUNT LESS THAN 60                 FC51232     7
          1021  7266777703                        SX6    X6-74B                                                  FC51232     8
                                                                                                                 FC51232     9
          1022  20622                    BSZ4     LX6    SZ.POSP-SZ.SLIP                                         FC51232    10
                     13115                        BX1    X1-X5       LCM INSTR .XOR. 53IJ0                       FAS      1568
                          12661                   BX6    X6+X1                                                   FAS      1569
                               20636              LX6    SZ.SLIP                                                 FAS      1570
          1023  5130000201 +                      SA3    ORG                                                     FAS      1571
                          0322001025 +            PL     X2,BSZ10    IF CURRENT WORD NOT FULL                    FC50010    12
          1024  73331                             =X3    X3+1        SUBBING NEXT WORD                           FC50010    13
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    37
        ASSEMBLER SUPPORTING ROUTINES                                 BSZ 
  
                                                                                                                 FC50010    14
          1025  5140000000 X             BSZ10    SA4    T.SUB0                                                  FC50010    15
                                                  LX3    SZ.ORGP                                                 FAS      1573
                          12636                   BX6    X3+X6                                                   FAS      1574
                               53647              SA6    X4+B7       (POS,SLI,ADDR) [T.SUB0(SUB0IND)] = [SZ.]    FAS      1575
          1026  0400001007 +                      EQ     EXIT.                                                   FAS      1576
                                         #MD      ELSE                                                           FC5A132   132
                                                  EQ     "BLOWUP"                                                FC5A132   133
                                         #MD      ENDIF                                                          FC5A132   134
  
  
  
  
                                        **        CAB - COPY ADJUSTED BITS.                                      FAS      1578
                                        *                                                                        FAS      1579
                                        *         COPIES SELECTED BITS FROM AN INPUT WORD, AND MERGES THEM,      FAS      1580
                                        *         SHIFTED AS DIRECTED, INTO AN OUTPUT WORD.                      FAS      1581
                                        *                                                                        FAS      1582
                                        *         ENTRY  (A1,X1) = BIT SELECT LIST, AS SETUP BY CABS MACRO.      FAS      1583
                                        *                (X2) = OUTPUT WORD.                                     FAS      1584
                                        *                (X5) = INPUT WORD.                                      FAS      1585
                                        *                                                                        FAS      1586
                                        *         EXIT   (X2) = BITS MERGED PER SELECT LIST.                     FAS      1587
                                        *                                                                        FAS      1588
                                        *         USES   A1,3.  X0-1,3-4,6-7.  B2,7.                             FAS      1589
                                                                                                                 FAS      1590
                                                                                                                 FAS      1591
          1027  0400401027 +             CAB      SUBR   =           ENTRY/EXIT...                               FAS      1592
          1030  43066                             MX0    -6                                                      FAS      1593
                     76710                        SX7    B1                                                      FAS      1594
                                                                                                                 FAS      1595
          1031  20106                    CAB4     LX1    6                                                       FAS      1596
                     15610                        BX6    -X0*X1      (B2) = 60 - INBIT                           FAS      1597
                          37116                   IX1    X1-X6                                                   FAS      1598
                               63260              SB2    X6                                                      FAS      1599
          1032  20106                             LX1    6                                                       FAS      1600
                     15310                        BX3    -X0*X1      (B7) = OUTBIT                               FAS      1601
                          37113                   IX1    X1-X3                                                   FAS      1602
                               63730              SB7    X3                                                      FAS      1603
          1033  22625                             LX6    X5,B2       MOVE INBIT TO BOTTOM                        FAS      1604
                     11376                        BX3    X7*X6                                                   FAS      1605
                          22673                   LX6    X3,B7       POSITION ISOLATED OUTBIT                    FAS      1606
                               12262              BX2    X6+X2       MERGE OUTBIT INTO OUTWORD                   FAS      1607
          1034  0311001031 +                      NZ     X1,CAB4     IF MORE FIELDS IN THIS SELECT WORD          FAS      1608
                          54110                   SA1    A1                                                      FAS      1609
                               15610              BX6    -X0*X1                                                  FAS      1610
          1035  0306001027 +                      ZR     X6,EXIT.    IF LAST WORD NOT FULL                       FAS      1611
                          54111                   SA1    A1+B1                                                   FAS      1612
          1036  0311001031 +                      NZ     X1,CAB4     IF NEW WORD NOT TERMINATOR                  FAS      1613
                          0400001027 +            EQ     EXIT.                                                   FAS      1614
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    38
        ASSEMBLER SUPPORTING ROUTINES                                 CABS
  
                                        **        CABS - CONSTRUCT ADJUSTED BIT SELECT LIST.                     FAS      1616
                                        *                                                                        FAS      1617
                                        * TAG     CABS   FI,FO,(BN1,BN2,...,BNN)                                 FAS      1618
                                        *                                                                        FAS      1619
                                        *         WHERE  FI = PREFIX FOR INPUT FIELD.                            FAS      1620
                                        *                FO = PREFIX FOR OUTPUT FIELD.                           FAS      1621
                                        *                BN(J) = BIT NAME TO BE COPIED, WHEN SAME IN BOTH WORDS. FAS      1622
                                        *                      = BNI/BNO,  WHEN SUFFIXES DIFFER.                 FAS      1623
                                        *                BNI = BIT NAME IN FI.                                   FAS      1624
                                        *                BNO = BIT NAME IN FO.                                   FAS      1625
                                                                                                                 FAS      1626
                                                                                                                 FAS      1627
                                         CABS     MACRO  FI,FO,BL                                                FAS      1628
                                                  IRP    BL                                                      FAS      1629
                                         A        MICRO  1,,/BL//                                                FAS      1630
                                         B        MICCNT A                                                       FAS      1631
                                         C        MICRO  B+2,,,BL,                                               FAS      1632
                                                  IFC    EQ,/"C"//,1                                             FAS      1633
                                         C        MICRO  1,,/"A"/                                                FAS      1634
                                                  VFD    6/60-FI."A"P,6/FO."C"P                                  FAS      1635
                                                  IRP                                                            FAS      1636
                                                  VFD    11/0,*P/0                                               FAS      1637
                                                  ENDM                                                           FAS      1638
  
  
  
  
                                        **        CLE -  CREATE LINE TABLE ENTRY                                 FAS      1640
                                        *                                                                        FAS      1641
                                        *         ENTRY  (X5) = PB INSTRUCTION                                   FAS      1642
                                        *         EXIT   AN ENTRY MADE TO T.LNT                                  FAS      1643
                                        *         USES   A1,X1,X6                                                FAS      1644
                                                                                                                 FAS      1645
                                                                                                                 FAS      1646
                                        **        DEFINE 6700 TABLE FORMAT (LN.) .                               FAS      1647
                                                                                                                 FAS      1648
                                                  DESCRIBE LN.,60                                                FAS      1649
      L     52  77777700000000000000     LAB      DEFINE 18          LABEL IN BINARY                             FAS      1650
                                                  DEFINE 6           0                                           FAS      1651
      L     22  00000000777777000000     LN       DEFINE 18          LINE NUMBER IN BINARY                       FAS      1652
      L      0  00000000000000777777     RA       DEFINE 18                                                      FAS      1653
                                                                                                                 FAS      1654
                                                                                                                 FAS      1655
          1037  0400401037 +             CLE      SUBR   =           ...ENTRY/EXIT...                            FAS      1656
          1040                           CLE.EQ   BSSENT 0                                                       FAS      1657
          1040  0100000757 +                      RJ     BNW         FORCE UPPER                                 FAS      1658
          1041  5110000201 +                      SA1    ORG                                                     FAS      1659
                          43652                   MX6    -PB.BIASL                                               FAS      1660
                               20560              LX5    -PB.BIASP                                               FAS      1661
          1042  15656                             BX6    -X6*X5                                                  FAS      1662
                     20514                        LX5    PB.BIASP                                                FAS      1663
                                                  LX1    LN.RAP                                                  FAS      1664
                          20622                   LX6    LN.LNP                                                  FAS      1665
                               12616              BX6    X1+X6                                                   FAS      1666
          1043  5110000000 X                      ADDWD  T.LNT                                                   FAS      1667
          1044  0400001037 +                      EQ     EXIT.                                                   FAS      1668
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    39
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                                        **        DDS - DUMP DATA STATEMENTS.                                    FAS      1670
                                        *                                                                        FAS      1671
                                        *         CALLED FROM *FI=DATA* TO DUMP DATA STATEMENTS TO TEXT.         FC5A231   137
                                        *                                                                        FC5A231   138
                                        *         ENTRY  T.DATS FORMATTED AS DA., DB. .                          FAS      1674
                                        *                                                                        FC5A231   139
                                        *         CALLS  ALLOC,MOVE,DTX,OTB                                      FAS      1675
                                                                                                                 FC50809     7
                                                  DESCRIBE DC.,60                                                FC50809     8
      L     73  40000000000000000000     LINK     DEFINE 1           INDICATE GROUP FULL                         FC50809     9
                                                  DEFINE 23                                                      FC50809    10
      L     22  00000000777777000000     PTR      DEFINE 18          IFF DC.LINK=1, POINT TO NEXT GROUP          FC50809    11
      L      0  00000000000000777777     CNT      DEFINE 18          WORD COUNT THIS GROUP                       FC50809    12
                                                                                                                 FC50809    13
                                                                                                                 FAS      1676
          1045  0400401045 +             DDS      SUBR   0           ENTRY/EXIT.                                 FAS      1677
          1046  66400                             SB4    B0          IND = 0                                     FAS      1678
                     76640                        SHRINK T=PTXT,B4                                               FAS      1679
          1047  5160000000 X                      SHRINK T=PTXTR,X6                                              FAS      1680
                          5110000000 X            ADDWD  T.PTXT      INITIALIZE COUNT                            FC50809    14
          1051  5110000000 X                      ADDWD  T.PTXTR     INITIALIZE COUNT                            FC50809    15
                                                                                                                 FAS      1681
                                        *         PROCESS NEXT DATA GROUP.                                       FAS      1682
                                        *         (B4) = IND                                                     FAS      1683
                                                                                                                 FAS      1684
          1052  5110000000 X             DDS10    SA1    T.DATS                                                  FAS      1685
                          5120000000 X            SA2    T=DATS                                                  FAS      1686
          1053  53514                             SA5    X1+B4       DAI = T.DATS(IND)                           FAS      1687
                     63220                        SB2    X2                                                      FAS      1688
                          67324                   SB3    B2-B4                                                   FAS      1689
                               43144              MX1    -DA.BIASL                                               FAS      1690
          1054  0430001151 +                      ZR     B3,DDS90    IF TABLE EXHAUSTED                          FAS      1691
                                         .T       IFEQ   TEST,ON,1                                               FAS      1692
                                                  MI     B3,"BLOWUP" IF IND .GT. TABLE LENGTH                    FAS      1693
                          20552                   LX5    -DA.BIASP                                               FAS      1694
                               15451              BX4    -X1*X5      BIASI = BIAS[DAI]                           FAS      1695
          1055  20544                             LX5    DA.BIASP-DA.ORDP                                        FAS      1696
                     43254                        MX2    -DA.ORDL                                                FAS      1697
                          15152                   BX1    -X2*X5      ORDI = ORD[DAI]                             FAS      1698
                                         .T       IFEQ   TEST,ON,3                                               FAS      1699
                                                  MX0    -PB.ORDL                                                FAS      1700
                                                  BX6    X0*X1       PFXI = PFX[ORDI]                            FAS      1701
                                                  NZ     X6,"BLOWUP" IF PFXI .NE. K=SYM                          FAS      1702
                                   0              ERRNZ  K=SYM                                                   FAS      1703
                               22211              LX2    X1,B1                                                   FAS      1704
          1056  36112                             IX1    X1+X2       STIND = 3 * ORDI                            FAS      1705
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1706
                     5120000000 X                 SA2    T.SYM                                                   FAS      1707
          1057  6272000002                        =B7    X2+WC.W                                                 FAS      1708
                          53217                   SA2    X1+B7       WCI = T.SYM(STIND) + WC.W                   FAS      1709
                               43144              MX1    -WC.RAL                                                 FAS      1710
          1060  43762                             MX7    -WC.RBL                                                 FAS      1711
                                                  LX2    -WC.RAP                                                 FAS      1712
                     15121                        BX1    -X1*X2      RAI = RA[WCI]                               FAS      1713
                          20214                   LX2    WC.RAP-WC.RBP                                           FAS      1714
                               15727              BX7    -X7*X2      RBI = RB[WCI]                               FAS      1715
          1061  21701                             AX7    1           BLKORD = RBI / 2                            FAS      1716
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    40
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                                   0              ERRNZ  2-Z=BLKS                                                FAS      1717
                     0307001062 +                 ZR     X7,DDS20    IF PROGRAM RELATIVE                         FAS      1718
                               73771              SX7    X7+B1       BLKORD = BLKORD + 1                         FAS      1719
                                                                                                                 FC50809    16
          1062  43052                    DDS20    MX0    -DA.WCL                                                 FAS      1720
                     76610                        SX6    B1                                                      FAS      1721
                          55321                   =A3    A2-WC.W+WB.W      WBI                                   FAS      1722
                               20336              LX3    -WB.MATP                                                FAS      1723
          1063  11363                             BX3    X6*X3       MATI = MAT[WBI]                             FAS      1724
                     63730                        SB7    X3          REMEMBER (B7) = WB.MAT                      FAS      1725
                          20552                   LX5    DA.ORDP-DA.WCP                                          FAS      1726
                               15050              BX0    -X0*X5      WDC = WC[DAI]                               FAS      1727
          1064  10355                             BX3    X5                                                      FAS      1728
                     20502                        LX5    DA.WCP-DA.RPP                                           FAS      1729
                                                  LX3    DA.WCP-1-DA.CHP                                         FAS      1730
                          11565                   BX5    X6*X5       RPI = RP[DAI]                               FAS      1731
                               63351              SB3    X5+B1       HEADWD = RPI + 1                            FAS      1732
          1065  0323001110 +                      PL     X3,DDS50    IF NOT CHARACTER DATA                       FAS      1733
                                                                                                                 FAS      1734
                                        *         CHARACTER DATA - BUILT PTEXT/ PTEXTR TABLE.                    FAS      1735
                                        *         (B7) = WB.MAT                                                  FAS      1736
                                        *         (X4) = BIASI                                                   FAS      1737
                                        *         (X1) = RAI                                                     FAS      1738
                                        *         (X2) = WCI                                                     FAS      1739
                                        *         (X7) = BLKORD                                                  FAS      1740
                                        *         (B3) = HEADWD                                                  FAS      1741
                                                                                                                 FAS      1742
                          10600                   BX6    X0                                                      FAS      1743
          1066  7130000011                        CW     X3,X0       WDC = WDC / 10                              FAS      1744
                               73033              SX0    X3+B3       WDC = WDC + HEADWD                          FAS      1745
          1070  73771                             SX7    X7+B1       BLKORD = BLDORD + 1                         FAS      1746
                     20730                        LX7    BT.RBP                                                  FAS      1747
                          20543                   LX5    BT.RPP                                                  FAS      1748
                               12775              BX7    X7+X5                                                   FAS      1749
          1071  0470001150 +                      ZR     B7,DDS85    IF ELEMENT NOT MATERIALIZED                 FAS      1750
                          22316                   BC     X3,X6       WDC = WDC * 6                               FAS      1751
                     20352                        LX3    BT.LENP                                                 FAS      1752
                          12773                   BX7    X7+X3                                                   FAS      1753
                               36311              WC     X3,X1       RAI = RAI * 10                              FAS      1754
                          10133                   BX1    X3                                                      FAS      1755
                               36441              IX4    X4+X1       RAI = BIASI + RAI                           FAS      1756
          1074  5110002432 +                      WX1    X4,X2       CONVERT RAI TO FWA AND BCPI                 FAS      1757
          1100  22312                             BC     X3,X2       BCPI = BCPI * 6                             FAS      1758
                                                  LX1    BT.FWAP                                                 FAS      1759
                               20344              LX3    BT.BCPP                                                 FAS      1760
          1101  12113                             BX1    X1+X3                                                   FAS      1761
                     12771                        BX7    X7+X1                                                   FAS      1762
                          54750                   SA7    A5          (DAI) =  (LEN,BCP,RP,RB,FWA) [BT.]          FAS      1763
          1102  5110000000 X                      SA1    T.PTXT                                                  FAS      1764
                          0305001133 +            ZR     X5,DDS80    IF NO REPLICATION                           FAS      1765
                                                                                                                 FAS      1766
                                        *         CHARACTER DATA WITH REPLICATION.                               FAS      1767
                                                                                                                 FAS      1768
          1103  54451                             SA4    A5+B1       DBI = DAI + 1                               FAS      1769
                     43344                        MX3    -DB.CNTL                                                FAS      1770
                          43244                   MX2    -DB.INCL                                                FAS      1771
                                                  LX4    -DB.CNTP                                                FAS      1772
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    41
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                               15343              BX3    -X3*X4      CNTI = CNT[DBI]                             FAS      1773
          1104  76710                             SX7    B1                                                      FAS      1774
                                         .T       IFEQ   TEST,ON,2                                               FAS      1775
                                                  IX1    X3-X7                                                   FAS      1776
                                                  MI     X1,"BLOWUP" IF CNTI .LE. 0                              FAS      1777
                                                                                                                 FAS      1778
                     36337                        IX3    X3+X7       CNTI = CNTI + 1                             FAS      1779
                                                  LX3    BT.RCPP                                                 FAS      1780
                          20436                   LX4    DB.CNTP-DB.INCP                                         FAS      1781
                               15442              BX4    -X2*X4      INCI = INC[DBI]                             FAS      1782
          1105  22214                             BC     X2,X4       INCI = INCI * 6                             FAS      1783
                               20230              LX2    BT.RIPP                                                 FAS      1784
          1106  12732                             BX7    X3+X2                                                   FAS      1785
                     54740                        SA7    A4          (DBI) = (INCI,CNTI)[BT.]                    FAS      1786
                          5110000000 X            SA1    T.PTXTR                                                 FAS      1787
          1107  0400001133 +                      EQ     DDS80                                                   FAS      1788
                                                                                                                 FAS      1789
                                        *         NON CHARACTER DATA.                                            FAS      1790
                                        *         (B7) = WB.MAT                                                  FAS      1791
                                                                                                                 FAS      1792
          1110  63404                    DDS50    SB4    B4+X0       IND = IND + WCI                             FAS      1793
                     66443                        SB4    B4+B3       IND = IND + HEADWD                          FAS      1794
                          0470001052 +            ZR     B7,DDS10    IF NOT MATERIALIZED                         FC5A231   140
          1111  20573                             LX5    59                                                      FAS      1796
                     20730                        LX7    BT.RSP                                                  FAS      1797
                                         .T       IFEQ   TEST,ON,3                                               FAS      1798
                                                  BX2    X4                                                      FAS      1799
                                                  AX2    24                                                      FC5A132   135
                                                  NZ     X2,"BLOWUP" IF BIAS TOO LARGE                           FC5A132   136
                          36641                   IX6    X4+X1       RAI = RAI + BIASI                           FC5A132   137
                                         .T       IFEQ   TEST,ON,1                                               FAS      1806
                                                  MI     X6,"BLOWUP" IF RAI .LT. 0                               FAS      1807
                               76310              SX3    B1                                                      FAS      1808
          1112  20330                             LX3    BT.RLXP                                                 FC5A132   138
                     12667                        BX6    X6+X7                                                   FAS      1810
                          21574                   AX5    -0          -0 MASK IF REPL                             FAS      1811
          1113  5160000201 +                      SA6    ORG                                                     FAS      1812
                          36663                   IX6    X6+X3       BLKS = BLKS + 1                             FAS      1813
                               11756              BX7    X5*X6                                                   FAS      1814
          1114  5170000026 +                      SA7    BT.XREP+1   (BT.XREP+1) = ORG, IFF REPLICATION          FC5A132   139
                          0100001375 +            RJ     DTX         INITIALIZE TEXT TABLE                       FAS      1816
          1115  0325001124 +                      PL     X5,DDS70    IF NO REPLICATION                           FAS      1817
                          54551                   SA5    A5+B1       DBI = DAI + 1                               FAS      1818
                               43152              MX1    -BT.KL                                                  FAS      1819
          1116  20536                             LX5    -DB.INCP                                                FAS      1820
                     15251                        BX2    -X1*X5      K = INC[DBI]                                FAS      1821
                                   6              ERRMI  DB.INCL-BT.KL                                           FC5A132   140
                          43155                   MX1    -BT.CL                                                  FC5A132   141
          1117  5130000026 +                      SA3    BT.XREP+1                                               FC5A132   142
                          20241                   LX2    BT.KP                                                   FAS      1824
                               20536              LX5    DB.INCP-DB.CNTP                                         FAS      1825
          1120  15151                             BX1    -X1*X5      C = CNT[DBI]                                FAS      1826
                                  11              ERRMI  DB.CNTL-BT.CL                                           FC5A132   143
                     12732                        BX7    X3+X2       ADD IN K FILED                              FAS      1828
                          54730                   SA7    A3          (BT.XREP+1) = (K,RS,AS) [BT.]               FC5A132   144
                               20233              LX2    -BT.KP                                                  FAS      1830
          1121  20155                             LX1    BT.CP                                                   FAS      1831
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    42
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                     10600                        BX6    X0          B = WCI                                     FAS      1832
                          20641                   LX6    BT.BP                                                   FAS      1833
                               12661              BX6    X6+X1                                                   FAS      1834
          1122  5140002433 +                      CLAS=  X4,BT,(RS,AS)                                           FAS      1835
                          11447                   BX4    X4*X7       RD = RS,(RELOCATION BASE OF SOURCE)         FAS      1836
                               36142              IX1    X4+X2       AD = AS + K                                 FAS      1837
          1123  12661                             BX6    X6+X1                                                   FAS      1838
                     54671                        SA6    A7+B1       (BT.XREP+2) = (C,B,RD,AD) [BT.]             FC5A132   145
                                                                                                                 FAS      1840
                                        *         OUTPUT DATA WORDS.                                             FAS      1841
                                        *         ENTRY  (X0) = NO. OF WORDS TO OUTPUT                           FAS      1842
                                        *                A5 _ NEXT DATA WORD                                     FAS      1843
                                                                                                                 FAS      1844
          1124  54551                    DDS70    SA5    A5+B1                                                   FAS      1845
                     13222                        BX2    0           INDICATE NO RELOCATION                      FAS      1846
                          7200777776              SX0    X0-1                                                    FAS      1847
          1125  22105                             LX1    X5                                                      FAS      1848
                     0100002374 +                 RJ     STX         OUTPUT A WORD                               FAS      1849
                                         .T       IFEQ   TEST,ON,1                                               FAS      1850
                                                  MI     X0,"BLOWUP"       IF WORD COUNT ILL                     FAS      1851
          1126  0310001124 +                      NZ     X0,DDS70    IF MORE WORDS TO DO                         FAS      1852
                                                                                                                 FAS      1853
                          5110000026 +            SA1    BT.XREP+1                                               FC5A132   146
          1127  0301001052 +                      ZR     X1,DDS10    IF NO REPLICATION                           FAS      1855
                          0100001375 +            RJ     DTX         FLUSH ANY PARTIAL TEXT TABLE                FAS      1856
          1130  6160000025 +                      WLGO   BT.XREP,BT.XREPL                                        FC5A132   147
          1132  0400001052 +                      EQ     DDS10                                                   FAS      1858
                                                                                                                 FAS      1859
                                        *         ALLOCATE ENTRY FOR PTEXT/ PTEXTR TABLE.                        FAS      1860
                                        *         (X0) = WCI                                                     FAS      1861
                                        *         A1 _ T.PTXT/ T.PTXTR                                           FAS      1862
                                                                                                                 FAS      1863
          1133  63200                    DDS80    SB2    X0          REMEMBER (B2) = (X0)                        FAS      1864
                     66300                        =B3    0           INITIALIZE HEADER POINTER                   FC50809    17
                                                                                                                 FC50809    18
          1134  53213                    DDS81    SA2    X1+B3       FETCH CURRENT HEADER                        FC50809    19
                                                  SBIT   X2,DC.LINKP                                             FC50809    20
                     0322001136 +                 PL     X2,DDS82    IF NO CHAIN, THIS GROUP                     FC50809    21
                               20252              LX2    DC.LINKL+DC.LINKP-DC.PTRP                               FC50809    22
          1135  63320                             SB3    X2          EXTRACT POINTER TO NEXT HEADER              FC50809    23
                                   0              ERRNZ  18-DC.PTRL                                              FC50809    24
                     0400001134 +                 EQ     DDS81                                                   FC50809    25
                                                                                                                 FC50809    26
                                         DDS82    LX2    DC.LINKL+DC.LINKP                                       FC50809    27
          1136  36702                             IX7    X0+X2                                                   FC50809    28
                     7130007777                   SX3    BT=MXWC                                                 FC50809    29
                               37337              IX3    X3-X7                                                   FC50809    30
          1137  0323001143 +                      PL     X3,DDS83    IF ROOM IN GROUP FOR THIS ENTRY             FC50809    31
                          5031000000 X            SA3    A1+N.TABLE                                              FC50809    32
          1140  43701                             CLAS=  X7,DC,(LINK)                                            FC50809    33
                     20322                        LX3    DC.PTRP     LINK TO NEW GROUP HEADER                    FC50809    34
                          12772                   BX7    X7+X2                                                   FC50809    35
                               12773              BX7    X7+X3                                                   FC50809    36
          1141  54720                             SA7    A2          UPDATE HEADER                               FC50809    37
                     10600                        BX6    X0          CURRENT COUNT WILL BE NEXT HEADER           FC50809    38
                          0100000000 X            ADDWD  A1          ADD NEW HEADER                              FC50809    39
          1142  76020                             SX0    B2          RESTORE COUNT                               FC50809    40
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    43
        ASSEMBLER SUPPORTING ROUTINES                                 DDS 
  
                     0400001144 +                 EQ     DDS84                                                   FC50809    41
                                                                                                                 FC50809    42
          1143  54720                    DDS83    SA7    A2          UPDATE HEADER                               FC50809    43
                                                                                                                 FC50809    44
          1144  0100000000 X             DDS84    ALLOC  A1,X0                                                   FC50809    45
          1145  77372                             SX3    B7-B2       FWATO = LWA(TABLE) - WCI                    FAS      1866
                     5110000000 X                 SA1    T.DATS                                                  FAS      1867
                               73214              SX2    X1+B4       FWAFR = FWA(T.DATS) + IND                   FAS      1868
          1146  76120                             MOVE   B2,X2,X3    COPY WCI WORDS FROM T.DATS TO TABLE         FAS      1869
          1147  76020                             SX0    B2          RESTORE (X0)                                FAS      1870
                                                                                                                 FAS      1871
          1150  63404                    DDS85    SB4    B4+X0       IND = IND + WCI                             FAS      1872
                     0400001052 +                 EQ     DDS10                                                   FAS      1873
                                                                                                                 FAS      1874
                                        *         FLUSH *PTEXT* AND *PTEXTR* TABLES.                             FAS      1875
                                                                                                                 FAS      1876
          1151  0100001375 +             DDS90    RJ     DTX         FLUSH ANY PARTIAL TEXT                      FAS      1877
          1152  43600                             MX6    0                                                       FC50809    46
                     5110000000 X                 ADDWD  T.PTXT      ADD DUMMY HEADER TO FLAG EOT                FC50809    47
          1154  5150000000 X                      SA5    T.PTXT                                                  FAS      1879
                          0100002111 +            RJ     OTC         OUTPUT TABLE TO BINARY                      FC50809    48
          1155  76600                             SHRINK T=PTXT,0                                                FC50809    49
                               43600              MX6    0                                                       FC50809    50
          1156  5110000000 X                      ADDWD  T.PTXTR     ADD DUMMY HEADER TO FLAG EOT                FC50809    51
          1157  5150000000 X                      SA5    T.PTXTR                                                 FC50809    52
                          0100002111 +            RJ     OTC         OUTPUT TABLE TO BINARY                      FC50809    53
          1160  76600                             SHRINK T=PTXTR,0                                               FC50809    54
          1161  0400001045 +                      EQ     EXIT.                                                   FAS      1885
  
  
  
  
                                        **        DFD -  DUMP 5700/5600 TABLES                                   FAS      1887
                                        *         DUMPS STATEMENT/LINE NUMBER (5700) AND LOADER SYMBOL (5600)    FAS      1888
                                        *         TABLES TO BINARY.                                              FAS      1889
                                        *                                                                        FAS      1890
                                        *         5700 TABLES                                                    FAS      1891
                                        *                                                                        FAS      1892
                                        *         THE INFORMATION FOR 5700 TABLES EXISTS IN T.LNT IN CORRECT     FAS      1893
                                        *         FORMAT.  IT ONLY REMAINS TO OUTPUT THE INFORMATION TO LGO.     FAS      1894
                                        *         5700 TABLES ARE GENERATED BY DETERMINING FIRST IF ALL THE      FAS      1895
                                        *         INFORMATION IN T.LNT WILL FIT INTO ONE TABLE (LE 7777B WORDS). FAS      1896
                                        *         IF SO, ONE 5700 TABLE CONTAINING ALL THE INFORMATION WILL      FAS      1897
                                        *         BE BUILT.  IF NOT, AS MANY 5700 TABLES OF MAXIMUM SIZE (7777B) FAS      1898
                                        *         WILL BE BUILT AS NECESSARY, UNTIL ALL INFORMATION IS           FAS      1899
                                        *         PROCESSED.                                                     FAS      1900
                                        *                                                                        FAS      1901
                                        *         5600 TABLES                                                    FAS      1902
                                        *                                                                        FAS      1903
                                        *         5600 TABLE CONSISTS OF DIMENSION INFORMATION TABLE AND SYMBOL  FAS      1904
                                        *         TABLE INFORMATION.                                             FAS      1905
                                        *         DIMENSION INFORMATION IS FORMATTED WAY AS NAMELIST RUN-TIME    FAS      1906
                                        *         DIMENSION TABLE, THREE WORDS PER ENTRY.                        FAS      1907
                                        *         LOADER SYMBOL TABLE IS ALSO A THREE WORD ENTRY, FORMATTED AS   FAS      1908
                                        *         (WA., S2., S3.)                                                FAS      1909
                                        *                                                                        FAS      1910
                                        *         ENTRY  NONE                                                    FAS      1911
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    44
        ASSEMBLER SUPPORTING ROUTINES                                 DFD 
  
                                        *         CALLS  OTB,STX,ORD,FST                                         FAS      1912
                                                                                                                 FAS      1913
                                                                                                                 FAS      1914
          1162  0400401162 +             DFD      SUBR   0                                                       FAS      1915
                                                                                                                 FAS      1916
                                                                                                                 FAS      1917
                                        **        PROCESS 5700 (LINE NUMBER) TABLE.                              FAS      1918
                                                                                                                 FAS      1919
          1163  5110000000 X                      SA1    WO.57                                                   FAS      1920
                          5150000000 X            SA5    T.LNT                                                   FAS      1921
          1164  0301001166 +                      ZR     X1,DFD20    IF 5700 TABLE NOT REQUESTED                 FAS      1922
                          5100000062 +            SA0    BT.LSTN                                                 FAS      1923
          1165  43000                             MX0    0           NO BT.LTB BIT FOR THIS                      FAS      1924
                     0100002077 +                 RJ     OTB         OUTPUT 5700 TABLE                           FAS      1925
                                                                                                                 FAS      1926
                                        *         OUTPUT 5600 (SYMBOL) TABLE.                                    FAS      1927
                                        *         FIRST, DUMP DIMENSION INFORMATION.                             FAS      1928
                                                                                                                 FAS      1929
          1166  5150000000 X             DFD20    SA5    WO.56                                                   FAS      1930
                          0305001162 +            ZR     X5,EXIT.    IF (5600) TABLE NOT REQUIRED                FAS      1931
          1167  5110000000 X                      SA1    S=SA1       SA1ORD = (S=SA1)                            FAS      1932
                          5120000000 X            SA2    T.SYM                                                   FAS      1933
          1170  6221000002                        SB2    X1+WC.W                                                 FAS      1934
                          22311                   LX3    X1,B1                                                   FAS      1935
                               36223              IX2    X2+X3       STINDS = 3 * SA1ORD                         FAS      1936
                                   0              ERRNZ  3-Z=SYM                                                 FAS      1937
          1171  53122                             SA1    X2+B2       WCSA1 = T.SYM(STINDS) + WC.W                FAS      1938
                     5150000063 +                 SA5    BT.LSYL                                                 FAS      1939
                               43072              MX0    -MO.PTYPL+1                                             FAS      1940
          1172  5140000000 X                      SA4    MOD                                                     FAS      1941
                          43744                   MX7    -WC.RAL                                                 FAS      1942
                               43301              CLAS=  X3,BT,(DST)                                             FAS      1943
                     20462                        LX4    -MO.PTYPP-1                                             FAS      1944
                                                  LX1    -WC.RAP                                                 FAS      1945
                          15717                   BX7    -X7*X1                                                  FAS      1946
                                                  LX7    BT.SA1P                                                 FAS      1947
                               15040              BX0    -X0*X4      PROG-UNIT TYPE = PTYP[MOD] / 2              FAS      1948
          1174  12773                             BX7    X7+X3                                                   FAS      1949
                     20024                        LX0    BT.TYP                                                  FAS      1950
                          12650                   BX6    X5+X0                                                   FAS      1951
                               36667              IX6    X6+X7                                                   FAS      1952
          1175  54651                             SA6    A5+B1       (BT.LSYM) = (DST,TYP,SA1) [BT.]             FAS      1953
                                   0              ERRNZ  BT.LSYL+1-BT.LSYM                                       FAS      1954
                     43701                        MX7    1           DUMP ALL DIM ENTRIES                        FAS      1955
                          20771                   LX7    1+DH.MATP                                               FAS      1956
          1176  0100002031 +                      RJ     ORD         COLLECT RUN-TIME DIM INFO IN SCRATCH TABLE  FAS      1957
          1177  5150000000 X                      SA5    T.SCR                                                   FAS      1958
                          5100000064 +            SA0    BT.LSYM                                                 FAS      1959
          1200  43000                             MX0    0           NO LTB BIT SET                              FAS      1960
                     0100002077 +                 RJ     OTB         OUTPUT TABLE TO BINARY                      FAS      1961
                                                                                                                 FAS      1962
                                                                                                                 FAS      1963
                                        **        FORM LOADER SYMBOL TABLE.                                      FAS      1964
                                        *         IT IS ACCUMULATED IN A SRATCH TABLE (T.SCR) BEFORE DUMPED TO   FAS      1965
                                        *         BINARY IN CHUNKS OF (7777) WORDS.                              FAS      1966
                                                                                                                 FAS      1967
                                                                                                                 FAS      1968
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    45
        ASSEMBLER SUPPORTING ROUTINES                                 DFD 
  
                                   0              ERRNZ  Z=SYM-BT=LSYML                                          FAS      1969
          1201  76600                             SHRINK T=SCR,0                                                 FAS      1970
          1202  5110000064 +                      SA1    BT.LSYM                                                 FAS      1971
                          5140000000 X            SA4    T=SYM                                                   FAS      1972
          1203  43201                             CLAS=  X2,BT,(DST)                                             FAS      1973
                          15612                   BX6    -X2*X1                                                  FAS      1974
                               54610              SA6    A1          DST[BT.LSYM] = 0                            FAS      1975
          1204  5110000000 X                      ALLOC  T.SCR,X4-Z=SYM                                          FAS      1976
          1206  0100001447 +                      RJ     FST         FORM SYMBOL TABLE                           FAS      1977
                                                                                                                 FAS      1978
                                        *         DUMP SYMBOL TABLE TO BINARY.                                   FAS      1979
                                                                                                                 FAS      1980
          1207  5150000000 X                      SA5    T.SCR                                                   FAS      1981
                          5100000064 +            SA0    BT.LSYM     (A0) -> HEADER WORD                         FAS      1982
          1210  43001                             MX0    1                                                       FAS      1983
                     20030                        LX0    1+BT.LTBP                                               FAS      1984
                          0100002077 +            RJ     OTB                                                     FAS      1985
          1211  0400001162 +                      EQ     EXIT.                                                   FAS      1986
                                                                                                                 FAS      1987
  
  
  
  
                                        **        DIT - DUMP IDENTIFICATION TABLES FOR LOADER.                   FAS      1989
                                        *                                                                        FAS      1990
                                        *                                                                        FAS      1991
                                        *         THIS ROUTINE PUMPS OUT --                                      FAS      1992
                                        *                                                                        FAS      1993
                                        *         1.  IDNT  (77)  TABLE                                          FAS      1994
                                        *         2.  LDSET (70)  DIRECTIVE      (IF NOT *BLOCKDATA*)            FAS      1995
                                        *         3.  PIDL  (34)  TABLE                                          FAS      1996
                                        *         4.  ENTR  (36)  TABLE          (IF NOT *BLOCKDATA*)            FAS      1997
                                        *                                                                        FAS      1998
                                        *         USES   ALL BUT *A0*.                                           FAS      1999
                                        *                (T.SCR) FOR BUILDING SOME SCRATCH TABLES.               FAS      2000
                                        *         CALLS  ALLOC(ALC), DLC, PIT, WLGO(WLF).                        FAS      2001
                                                                                                                 FAS      2002
                                                                                                                 FAS      2003
          1212  0400401212 +             DIT      SUBR   0           ENTRY/EXIT...                               FAS      2004
          1213  0100002150 +                      RJ     PIT         PUMPS OUT IDNT TABLE                        FAS      2005
          1214  5130000000 X                      SA3    MOD                                                     FAS      2006
                          20363                   SBIT   X3,MO.BLKP                                              FC5A231   141
          1215  0333001216 +                      MI     X3,DIT10    IF BLOCK DATA                               FC5A231   142
                          0100001256 +            RJ     DLC         DUMP LOADSET CONTROL                        FAS      2008
                                                                                                                 FAS      2009
                                        **        PIDL - PROGRAM IDENTIFICATION AND LENGTH TABLE.                FAS      2010
                                        *                ALSO CONTAINS THE LOCAL COMMON BLOCK TABLE.             FAS      2011
                                                                                                                 FAS      2012
          1216  5120000000 X             DIT10    SA2    T=BLKS                                                  FAS      2013
                          23412                   AX4    X2,B1                                                   FAS      2014
                                   0              ERRNZ  2-Z=BLKS                                                FAS      2015
                               76600              SHRINK T=SCR,0                                                 FAS      2016
                          5110000000 X            ALLOC  T.SCR,X4+1  ALLOCATE (T=BLKS/Z=BLKS)+1 WORDS FOR *PIDL* FAS      2017
          1221  5130000000 X                      SA3    IDENT                                                   FAS      2018
                          5150000000 X            SA5    SUM.LBT                                                 FAS      2019
          1222  63720                             SB7    X2          PLEN = LEN[T.SCR]                           FAS      2020
                     20444                        LX4    BT.WCP                                                  FAS      2021
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    46
        ASSEMBLER SUPPORTING ROUTINES                                 DIT 
  
                          5120000000 X            SA2    CO.DBPM                                                 FAS      2022
          1223  7170003400                        =X7    BT=PIDL                                                 FAS      2023
                          20760                   LX7    BT.CNP                                                  FAS      2024
                               20244              LX2    1+BT.PMDTP  SET BT.PMDT BIT IF PMDMP REQUESTED          FAS      2025
          1224  12772                             BX7    X7+X2                                                   FAS      2026
                     12653                        BX6    X5+X3                                                   FAS      2027
                          12774                   BX7    X7+X4                                                   FAS      2028
                               53710              SA7    X1          *PIDL* HEADER WORD                          FAS      2029
          1225  54671                             =A6    A7+1        *PIDL* PROGRAM NAME WORD                    FAS      2030
                     5150000000 X                 SA5    T.BLKS                                                  FAS      2031
                               53450              =A4    X5+CA.W     CAI = (T.BLKS) + CA.W                       FAS      2032
          1226  66411                             =B4    Z=BLKS                                                  FAS      2033
                     66311                        =B3    2           PIND = 2, (ACCOUNT FOR HEADER WORDS)        FAS      2034
                          43052                   MX0    CA.BNAML                                                FAS      2035
                               43744              MX7    -CB.BLENL                                               FAS      2036
                                                                                                                 FAS      2037
                                        *         PROCESS NEXT ENTRY OF T.BLKS.                                  FAS      2038
                                        *         (A4) _ CAI                                                     FAS      2039
                                        *         (X0) = CA.BNAM MASK                                            FAS      2040
                                        *         (X1) = T.SCR                                                   FAS      2041
                                        *         (X7) = CB.BLEN MASK                                            FAS      2042
                                        *         (B3) = PIND                                                    FAS      2043
                                        *         (B4) = Z=BLKS                                                  FAS      2044
                                        *         (B7) = PLEN                                                    FAS      2045
                                                                                                                 FAS      2046
          1227  0637001236 +             DIT20    GE     B3,B7,DIT60 IF NO MORE BLOCKS                           FAS      2047
                          54444                   SA4    A4+B4       CAI = NEXT CA ENTRY OF T.BLKS               FAS      2048
                               54541              =A5    A4-CA.W+CB.W      CBI = CB ENTRY                        FAS      2049
          1230  11440                             BX4    X4*X0                                                   FAS      2050
                     15357                        BX3    -X7*X5      BLENI = BLEN[CBI]                           FAS      2051
                          43671                   MX6    -3                                                      FAS      2052
                                                  SBIT   X5,CB.LCMP                                              FC5A231   143
          1231  0325001234 +                      PL     X5,DIT50    IF NOT LCM/ECS                              FC5A231   144
                                                                                                                 FAS      2054
                                        *         ECS/LCM BLOCKS..  USE  LENGTH = BLENI/8 -- ROUNDED UP.         FAS      2055
                                                                                                                 FAS      2056
                          15536                   BX5    -X6*X3      GRAB REMAINDER                              FAS      2057
                               21303              AX3    3           BLENI = BLENI / 8                           FAS      2058
          1232  0305001233 +                      ZR     X5,DIT40    IF DIVISION EXACT                           FAS      2059
                          76610                   =X6    1                                                       FAS      2060
                               36336              IX3    X3+X6       BLENI = BLENI + 1                           FAS      2061
          1233  43501                    DIT40    CLAS=  X5,BT,(TYP) POSITION ECS/LCM BIT                        FAS      2062
                          12335                   BX3    X3+X5                                                   FAS      2063
          1234  12643                    DIT50    BX6    X4+X3                                                   FAS      2064
                     53613                        SA6    X1+B3       T.SCR(PIND) = 42/NAME,1/TYPE,17/LENGTH      FAS      2065
                          66331                   =B3    B3+1        PIND = PIND + 1                             FAS      2066
          1235  0400001227 +                      EQ     DIT20                                                   FAS      2067
                                                                                                                 FAS      2068
          1236  63610                    DIT60    WLGO   X1,B7       OUTPUT *PIDL* TABLE                         FAS      2069
          1237  5130000000 X                      SA3    MOD                                                     FAS      2070
                          13666                   BX6    0                                                       FAS      2071
                               20363              SBIT   X3,MO.BLKP                                              FAS      2072
          1240  5160000000 X                      SHRINK T=SCR,X6    REMOVE THE ALLOCATION                       FAS      2073
                          0333001212 +            MI     X3,EXIT.    IF  *BLOCKDATA*, EXIT...                    FAS      2074
                                                                                                                 FAS      2075
                                        **        DUMP *ENTR* TABLE.                                             FAS      2076
                                                                                                                 FAS      2077
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    47
        ASSEMBLER SUPPORTING ROUTINES                                 DIT 
  
          1241  5150000000 X                      SA5    T=ENT                                                   FAS      2078
                          22015                   LX0    X5,B1                                                   FAS      2079
                               63550              SB5    X5          SAVE (B5) = LENGTH OF ENTRY POINT TABLE     FAS      2080
          1242  5110000000 X                      ALLOC  T.SCR,X0    ROOM TO BUILD THE *ENTR* TABLE              FAS      2081
          1243  5140000057 +                      SA4    BT.ENTR                                                 FAS      2082
                          63721                   =B7    X2+1        (B7) = LENGTH OF SCRATCH TABLE              FAS      2083
                               20244              LX2    BT.WCP                                                  FAS      2084
          1244  12642                             BX6    X4+X2                                                   FAS      2085
                     5130000000 X                 SA3    T.SYM                                                   FAS      2086
                               76010              =X0    1                                                       FAS      2087
          1245  5150000000 X                      SA5    T.ENT                                                   FAS      2088
                          6243000002              =B4    X3+WC.W     (B4) = FWA SYMTAB + WORD WC OFFSET          FAS      2089
          1246  20022                             LX0    BT.RLP                                                  FAS      2090
                     53610                        SA6    X1          *ENTR* CONTROL WORD                         FAS      2091
                          53450                   SA4    X5          (A4) = FWA ENTRY PTS.                       FAS      2092
                                                                                                                 FAS      2093
          1247  73540                    DIT70    SX5    X4          ISOLATE SYMORD                              FAS      2094
                                   0              ERRNZ  EP.ORDP                                                 FAS      2095
                                   0              ERRNZ  EP.ORDL-18                                              FAS      2096
                     22215                        LX2    X5,B1                                                   FAS      2097
                          36752                   IX7    X5+X2                                                   FAS      2098
                                   0              ERRNZ  3-Z=SYM                                                 FAS      2099
                               53374              SA3    X7+B4       FETCH (X3) = SYMTAB WORD WC                 FAS      2100
          1250  67551                             =B5    B5-1                                                    FAS      2101
                     13745                        BX7    X4-X5       ISOLATE NAME                                FAS      2102
                                   0              ERRNZ  EP.NAMEL-42                                             FAS      2103
                                   0              ERRNZ  EP.NAMEP-18                                             FAS      2104
                                                  LX3    -WC.RAP                                                 FAS      2105
                          73630                   SX6    X3                                                      FAS      2106
                               54761              =A7    A6+1                                                    FAS      2107
          1251  12606                             BX6    X0+X6       INDICATE PROGRAM-RELATIVE ADDRESS           FAS      2108
                     54441                        =A4    A4+1                                                    FAS      2109
                          54671                   =A6    A7+1                                                    FAS      2110
          1252  0550001247 +                      NZ     B5,DIT70    IF MORE ENTRY POINTS                        FAS      2111
                                                                                                                 FAS      2112
                          63610                   WLGO   X1,B7                                                   FAS      2113
          1254  13666                             SHRINK T=SCR       REMOVE THE ALLOCATION                       FAS      2114
          1255  0400001212 +                      EQ     EXIT.                                                   FAS      2115
  
  
  
  
                                        **        DLC - DUMP LOADSET CONTROL.                                    FAS      2117
                                        *                                                                        FAS      2118
                                        *         WRITES LDSET HEADER AND DIRECTIVES FOR --                      FAS      2119
                                        *                (A)  LIB=                                               FAS      2120
                                        *                (B)  COMMON=      FOR SAVE STATEMENT                    FAS      2121
                                        *                (C)  PRESET= + MAP=     FOR POST-MORTEM DUMP.           FAS      2122
                                        *         LDSET(COMMON=BLK1/.../BLKN) FOR EACH COMMON BLOCK              FAS      2123
                                        *                (AND SPECIAL LOCAL BLOCK S$A$V$E) ASSOCIATED WITH SAVE. FAS      2124
                                        *                IF UNIVERSAL SAVE IS ON, OUTPUT *LDSET COMMON (ALL)*    FAS      2125
                                        *                ONLY.                                                   FAS      2126
                                        *                                                                        FAS      2127
                                        *         EXIT   LDSET DIRECTIVES DUMPED TO BINARY.                      FC50353    29
                                        *                                                                        FAS      2129
                                        *         USES   ALL.                                                    FAS      2130
                                        *                (T.SCR)                                                 FAS      2131
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    48
        ASSEMBLER SUPPORTING ROUTINES                                 DLC 
  
                                        *         CALLS  ALLOC, WLF                                              FAS      2132
                                                                                                                 FAS      2133
                                                                                                                 FAS      2134
          1256  0400401256 +             DLC      SUBR               ENTRY/EXIT...                               FAS      2135
                                                                                                                 FAS      2136
                                        *         FIRST, ALLOCATE (T.SCR) WITH (MORE THAN) ENOUGH ROOM TO        FAS      2137
                                        *         BUILD ALL THE LDSET DIRECTIVES.                                FAS      2138
                                        *                = 1 + (BT.LIBL) + (T=BLKS)/2 + (BT.DBPML)               FAS      2139
                                        *         KEEPS  (A6) -> LAST OCCUPIED WORD.                             FAS      2140
                                        *                (B6) -> T.SCR                                           FAS      2141
                                                                                                                 FAS      2142
          1257  5120000000 X                      SA2    T=BLKS                                                  FAS      2143
                          13666                   BX6    0                                                       FAS      2144
                               23712              AX7    X2,B1                                                   FAS      2145
                                   0              ERRNZ  2-Z=BLKS                                                FAS      2146
          1260  5160000000 X                      SHRINK T=SCR,X6                                                FAS      2147
                          63570                   SB5    X7          CLEN = LEN(T.BLKS) / Z=BLKS                 FAS      2148
          1261  7207000007                        SX0    X7+1+BT.DBPML+BT.LIBL                                   FAS      2149
                          5110000000 X            ALLOC  T.SCR,X0    ALLOCATE ENOUGH WORDS FOR IT                FAS      2150
          1263  63610                             SB6    X1                                                      FAS      2151
                                                                                                                 FAS      2152
                     5120000023 +                 SA2    BT.LIB                                                  FAS      2153
                               10622              BX6    X2                                                      FAS      2154
          1264  53611                             SA6    X1+B1       MOVE *LDSET(LIB=...)* INTO TABLE            FAS      2155
                                   1     .1       DUP    BT.LIBL-1                                               FAS      2156
                                                  SA2    A2+B1                                                   FAS      2157
                                                  BX6    X2                                                      FAS      2158
                                                  SA6    A6+B1                                                   FAS      2159
                                         .1       ENDD                                                           FAS      2160
                                                                                                                 FAS      2161
                                                                                                                 FAS      2162
                                        *         CONSTRUCT *LDSET(COMMON) SUB-DIRECTIVE.                        FAS      2163
                                                                                                                 FAS      2164
          1265  5140000000 X                      SA4    USAVE                                                   FAS      2165
                          5150000000 X            SA5    SAVE                                                    FAS      2166
          1266  12645                             BX6    X4+X5                                                   FAS      2167
                     0306001277 +                 ZR     X6,DLC40    IF NO SAVE DECLARATIONS                     FAS      2168
                               54661              SA6    A6+B1       SPACE OVER (BT.CMN) SUB-HEADER              FAS      2169
          1267  64260                             SB2    A6          (B2) = FWA COMMON SEGMENT                   FAS      2170
                     0314001275 +                 NZ     X4,DLC30    IF UNIVERSAL SAVE                           FAS      2171
                                                                                                                 FAS      2172
                                        *         EXPLICIT SAVE... FOR EACH COMMON BLOCK, CBI, WHICH HAS         FAS      2173
                                        *         SAVE[CBI] = 1, ADD NAME[CBI] TO (T.SCR).                       FAS      2174
                                                                                                                 FAS      2175
          1270  5150000000 X                      SA5    T.BLKS                                                  FAS      2176
                          53451                   =A4    X5+CB.W     CBI = FWA(T.BLKS) + CB.W                    FAS      2177
                               66411              =B4    Z=BLKS                                                  FAS      2178
          1271  67551                             SB5    B5-B1       FIRST ENTRY IN T.BLKS IS NOT USED.          FC5A427     6
                     43052                        MX0    CA.BNAML                                                FAS      2179
                                                                                                                 FAS      2180
                                        *         PROCESS NEXT ENTRY OF T.BLKS.                                  FAS      2181
                                        *                (A4) -> CBI                                             FAS      2182
                                        *                (A6) -> LAST OCCUPIED WORD                              FAS      2183
                                        *                (X0) = CA.BNAM MASK                                     FAS      2184
                                        *                (B4) = Z=BLKS                                           FAS      2185
                                        *                (B5) = CLEN                                             FAS      2186
                                                                                                                 FAS      2187
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    49
        ASSEMBLER SUPPORTING ROUTINES                                 DLC 
  
          1272  54444                    DLC20    SA4    A4+B4       CBI = NEXT CB ENTRY OF T.BLKS               FAS      2188
                     55241                        =A2    A4-CB.W+CA.W      CAI = CA ENTRY                        FAS      2189
                          67551                   SB5    B5-B1                                                   FAS      2190
                               20401              HX4    CB.SAVE                                                 FAS      2191
          1273  11602                             BX6    X0*X2       NAME = BNAM[CAI]                            FAS      2192
                     0324001274 +                 PL     X4,DLC28    IF NOT SAVE[CBI]                            FAS      2193
                               54661              SA6    A6+B1                                                   FAS      2194
          1274  0705001272 +             DLC28    GT     B5,DLC20    IF MORE BLOCKS TO EXAMINE                   FAS      2195
                                                                                                                 FAS      2196
          1275  7120000032               DLC30    SX2    BT=CMN                                                  FAS      2197
                          75662                   SX6    A6-B2       (X6) = NUMBER OF EXPLICIT BLOCKS ADDED      FAS      2198
                               20260              LX2    BT.CNP                                                  FAS      2199
          1276  20644                             LX6    BT.WCP                                                  FAS      2200
                     12762                        BX7    X6+X2       ADD IN WC TO HEADER WORD                    FAS      2201
                          56720                   SA7    B2                                                      FAS      2202
                                                                                                                 FAS      2203
                                        *         OUTPUT *LDSET PREST* AND *LDSET MAP* DIRECTIVES FOR PMDMP.     FAS      2204
                                                                                                                 FAS      2205
          1277  5140000000 X             DLC40    SA4    CO.DBPM                                                 FAS      2206
                          0304001303 +            ZR     X4,DLC60    IF POST MORTEM DUMP NOT REQUESTED           FAS      2207
          1300  6120000004                        SB2    BT.DBPML                                                FAS      2208
                          5140000017 +            SA4    BT.DBPM                                                 FAS      2209
          1301  10644                    DLC45    BX6    X4          MOVE PMD WORD INTO (T.SCR)                  FAS      2210
                     67221                        SB2    B2-B1                                                   FAS      2211
                          54661                   SA6    A6+B1                                                   FAS      2212
                               54441              SA4    A4+B1                                                   FAS      2213
          1302  0702001301 +                      GT     B2,DLC45    IF MORE PMD STUFF TO MOVE                   FAS      2214
                                                                                                                 FAS      2215
                                        *         ALL NECESSARY DIRECTIVES IN PLACE.  COMPUTE LENGTH,            FAS      2216
                                        *         MANUFACTURE HEADING, AND WRITE OUT THE LOADER TABLE.           FAS      2217
                                                                                                                 FAS      2218
          1303  75266                    DLC60    SX2    A6-B6       (X2) = LWA - FWA = WORDS, EXCLUDING HEADER  FAS      2219
                     7130007000                   SX3    BT=LDSET                                                FAS      2220
                               63721              SB7    X2+B1       (B7) = W.C., INCLUDING HEADER               FAS      2221
          1304  20244                             LX2    BT.WCP                                                  FAS      2222
                     20360                        LX3    BT.CNP                                                  FAS      2223
                          12723                   BX7    X2+X3                                                   FAS      2224
                               56760              SA7    B6                                                      FAS      2225
          1305  0100002410 +                      WLGO   B6,B7       WRITE LOADSET DIRECTIVES                    FAS      2226
          1306  76600                             SHRINK T=SCR,0                                                 FAS      2227
          1307  0400001256 +                      EQ     EXIT.                                                   FAS      2228
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    50
        ASSEMBLER SUPPORTING ROUTINES                                 DLF 
  
                                        **        DLF -  DUMP *LINK*, *FILL*, AND *XFILL* TABLES.                FAS      2230
                                        *                                                                        FAS      2231
                                        *         DUMPS LINK AND FILL TABLES TO BINARY.                          FAS      2232
                                        *                                                                        FAS      2233
                                        *         TABLE MANAGER MAY CALL THIS ROUTINE TO FREE UP TABLE SPACE.    FAS      2234
                                        *         BASIC IDEA STOLEN FROM *DLAST* IN *COMPASS VER 2.0*.           FAS      2235
                                        *         CALLS  SRT, WLF.                                               FAS      2236
                                        *                                                                        FAS      2237
                                        *         KEEPS  A0                                                      FAS      2238
                                                                                                                 FAS      2239
                                                                                                                 FAS      2240
          1310  0400401310 +             DLF      SUBR   =           ENTRY/EXIT...                               FAS      2241
                                                                                                                 FAS      2242
                                        *         PROCESS *LINK* TABLE.                                          FAS      2243
                                                                                                                 FAS      2244
                                         SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                           FAS      2245
                                                  SA3    CO.SNAP                                                 FAS      2246
                                                  LX3    1RK                                                     FAS      2247
                                                  PL     X3,DLF10S   IF LINK TABLE SNAP NOT SELECTED             FAS      2248
                                                  DUMPT  LINK                                                    FAS      2249
                                         DLF10S   BSS    0                                                       FAS      2250
                                         SNAP=K   ENDIF                                                          FAS      2251
                                                                                                                 FAS      2252
          1311  74600                             SX6    A0                                                      FAS      2253
                     5160001374 +                 SA6    DLFA        PRESERVE A0                                 FAS      2254
          1312  5120000000 X                      SA2    T=LINK                                                  FAS      2255
                          5110000000 X            SA1    T.LINK                                                  FAS      2256
          1313  5130000000 X                      SA3    NREXT                                                   FAS      2257
                          36413                   IX4    X1+X3                                                   FAS      2258
                               37123              IX1    X2-X3       (X1) = LENGTH FOR SORT                      FAS      2259
          1314  0301001341 +                      ZR     X1,DLF60    IF NO EXTERNALS                             FAS      2260
                          0331401314 +            MI     X1,"BLOWUP" IF NREXT .LT. (T=LINK)                      FAS      2261
          1315  63740                             SB7    X4          (B7) = FWA FOR SORT                         FAS      2262
                     0100000000 X                 CALL   SST         SHELL SORT TABLE                            FAS      2263
                                                                                                                 FAS      2264
          1316  5110000000 X                      SA1    T.LINK                                                  FAS      2265
                          5120000000 X            SA2    T=LINK                                                  FAS      2266
          1317  5130000000 X                      SA3    T.SYM                                                   FAS      2267
                          5140000000 X            SA4    NREXT                                                   FAS      2268
          1320  37524                             IX5    X2-X4       LINK LENGTH                                 FAS      2269
                     53030                        SA0    X3          A0 = FWA NAME TAB                           FAS      2270
                          36014                   IX0    X1+X4                                                   FAS      2271
                               63750              SB7    X5          B7 = (LEN LINK)                             FAS      2272
          1321  53500                             SA5    X0                                                      FAS      2273
                     63410                        SB4    X1          (B4) = FWA PHYSICAL TABLE                   FAS      2274
                          6160000036              SB6    30                                                      FAS      2275
          1322  53610                             SA6    X1          PRESET STORE ADDR                           FAS      2276
                     43152                        MX1    WA.SYML                                                 FAS      2277
                          43036                   MX0    30                                                      FAS      2278
                               67501              SB5    -B1                                                     FAS      2279
          1323  67201                             SB2    -B1                                                     FAS      2280
                                                                                                                 FAS      2281
          1324  23265                    DLF10    AX2    X5,B6       ISOLATE EXT NO                              FAS      2282
                     63320                        SB3    X2                                                      FAS      2283
                          66221                   SB2    B2+B1                                                   FAS      2284
                               15750              BX7    -X0*X5      ISOLATE 30/OUTPUT STUFF                     FAS      2285
          1325  0435001330 +                      EQ     B3,B5,DLF30 IF SAME AS LAST EXT                         FAS      2286
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    51
        ASSEMBLER SUPPORTING ROUTINES                                 DLF 
  
                          54303                   SA3    B3+A0       FETCH EXT NAME                              FAS      2287
                               66530              SB5    B3                                                      FAS      2288
          1326  20636                             LX6    30                                                      FAS      2289
                     0420001327 +                 ZR     B2,DLF20    IF NO HANGING HALF-WORD                     FAS      2290
                               54661              SA6    A6+B1                                                   FAS      2291
          1327  11613                    DLF20    BX6    X1*X3       ISOLATE NAME                                FAS      2292
                     66200                        SB2    B0                                                      FAS      2293
                          54661                   SA6    A6+B1       STORE NEW NAME                              FAS      2294
                               13666              BX6    0                                                       FAS      2295
          1330  67771                    DLF30    SB7    B7-B1                                                   FAS      2296
                     22466                        LX4    X6,B6                                                   FAS      2297
                          12674                   BX6    X7+X4                                                   FAS      2298
                               54551              SA5    A5+B1                                                   FAS      2299
          1331  0420001333 +                      ZR     B2,DLF40    IF LOWER BYTE                               FAS      2300
                          54661                   SA6    A6+B1                                                   FAS      2301
                               67201              SB2    -B1                                                     FAS      2302
          1332  13666                             BX6    0                                                       FAS      2303
          1333  0570001324 +             DLF40    NZ     B7,DLF10    IF TABLE NOT EXHAUSTED                      FAS      2304
                          20636                   LX6    30                                                      FAS      2305
          1334  0720001335 +                      MI     B2,DLF50    IF NO HANGING HALF-WORD                     FAS      2306
                          54661                   SA6    A6+B1                                                   FAS      2307
          1335  75764                    DLF50    SX7    A6-B4       RESULTANT SIZE OF LINK TABLE                FAS      2308
                     5110000000 X                 SA1    T.LINK                                                  FAS      2309
                               63771              =B7    X7+1                                                    FAS      2310
          1336  7140004400                        SX4    BT=LINK                                                 FAS      2311
                          20744                   LX7    BT.WCP                                                  FAS      2312
                               63610              SB6    X1                                                      FAS      2313
          1337  20460                             LX4    BT.CNP                                                  FAS      2314
                     12647                        BX6    X4+X7       FORM *LINK* CONTROL WORD                    FAS      2315
                          56660                   SA6    B6                                                      FAS      2316
          1340  0100002410 +                      WLGO   B6,B7       WRITE OUT THE LINK TABLE                    FAS      2317
                                                                                                                 FAS      2318
          1341  5110000000 X             DLF60    SA1    NREXT                                                   FAS      2319
                          10611                   SHRINK T=LINK,X1                                               FAS      2320
                                                                                                                 FAS      2321
                                        *         PROCESS *FILL* TABLE.                                          FAS      2322
                                                                                                                 FAS      2323
                          5110000000 X            SA1    T=FILL                                                  FAS      2324
          1343  5120000000 X                      SA2    T.FILL                                                  FAS      2325
                          63610                   SB6    X1                                                      FAS      2326
                               13666              BX6    0                                                       FAS      2327
          1344  0461001364 +                      EQ     B6,B1,DLF120      IF EMPTY FILL TABLE                   FAS      2328
                          63720                   SB7    X2          ZERO THE DUMMY WORD SO SORT WONT MOVE IT    FAS      2329
                               53620              SA6    X2                                                      FAS      2330
          1345  0100000000 X                      CALL   SST                                                     FAS      2331
                                                                                                                 FAS      2332
          1346  5110000000 X                      SA1    T.FILL                                                  FAS      2333
                          5120000000 X            SA2    T=FILL                                                  FAS      2334
          1347  43036                             MX0    -30                                                     FAS      2335
                     6120000036                   SB2    30                                                      FAS      2336
                               63610              SB6    X1          B6 =  FWA  TABLE                            FAS      2337
          1350  13777                             BX7    0                                                       FAS      2338
                     63426                        SB4    X2+B6       B4 = LWA+1 TABLE                            FAS      2339
                          56161                   SA1    B6+B1       FETCH FIRST ENTRY                           FAS      2340
                               76610              SHRINK A2,1                                                    FAS      2341
                     57661                        SA6    B6-B1                                                   FAS      2342
                          66361                   SB3    B6+B1                                                   FAS      2343
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    52
        ASSEMBLER SUPPORTING ROUTINES                                 DLF 
  
                                                                                                                 FAS      2344
          1352  12663                    DLF70    BX6    X6+X3                                                   FAS      2345
                     6150000036                   SB5    30                                                      FAS      2346
                               54661              SA6    A6+B1                                                   FAS      2347
          1353  0634001360 +             DLF80    GE     B3,B4,DLF100      IF TABLE EXHAUSTED                    FAS      2348
                          23221                   AX2    X1,B2                                                   FAS      2349
                               66331              SB3    B3+B1                                                   FAS      2350
          1354  13472                             BX4    X7-X2                                                   FAS      2351
                     0304001356 +                 ZR     X4,DLF90    IF SAME BLOCK AS PREVIOUS                   FAS      2352
                               67331              SB3    B3-B1       SET TO RE-PROCESS LAST ENTRY                FAS      2353
          1355  10122                             BX1    X2                                                      FAS      2354
                     22702                        LX7    X2                                                      FAS      2355
                                                                                                                 FAS      2356
          1356  15310                    DLF90    BX3    -X0*X1      ISOLATE FILL BYTE                           FAS      2357
                     56130                        SA1    B3                                                      FAS      2358
                          0450001352 +            ZR     B5,DLF70    IF LOWER                                    FAS      2359
          1357  22623                             LX6    X3,B2                                                   FAS      2360
                     67525                        SB5    B2-B5       INDICATE NEXT IS LOWER                      FAS      2361
                          0400001353 +            EQ     DLF80                                                   FAS      2362
                                                                                                                 FAS      2363
          1360  0550001361 +             DLF100   NZ     B5,DLF110                                               FAS      2364
                          54661                   SA6    A6+B1       STORE HANGING HALF-WORD                     FAS      2365
          1361  7140004200               DLF110   SX4    BT=FILL                                                 FAS      2366
                          75366                   SX3    A6-B6                                                   FAS      2367
                               20460              LX4    BT.CNP                                                  FAS      2368
          1362  63731                             =B7    X3+1                                                    FAS      2369
                     20344                        LX3    BT.WCP                                                  FAS      2370
                          12643                   BX6    X4+X3       MANUFACTURE CONTROL WORD                    FAS      2371
                               56660              SA6    B6                                                      FAS      2372
          1363  0100002410 +                      WLGO   B6,B7                                                   FAS      2373
                                                                                                                 FAS      2374
                                        *         PROCESS *XFILL* TABLE                                          FAS      2375
                                                                                                                 FAS      2376
          1364  5120000000 X             DLF120   SA2    T=XFIL                                                  FAS      2377
                          5110000000 X            SA1    T.XFIL                                                  FAS      2378
          1365  63720                             SB7    X2                                                      FAS      2379
                     63610                        SB6    X1          B6 = FWA TABLE                              FAS      2380
                          0471001372 +            EQ     B7,B1,DLF130      IF EMPTY *XFILL* TABLE, EXIT...       FAS      2381
          1366  7140004100                        SX4    BT=XFILL                                                FAS      2382
                          77371                   SX3    B7-B1                                                   FAS      2383
                               20460              LX4    BT.CNP                                                  FAS      2384
          1367  20344                             LX3    BT.WCP                                                  FAS      2385
                     12643                        BX6    X4+X3       MANUFACTURE CONTROL WORD                    FAS      2386
                          56660                   SA6    B6                                                      FAS      2387
                                                                                                                 FAS      2388
                                         SNAP=X   IFNE   TEST        DUMPT *XFILL* TABLE                         FAS      2389
                                                  SA3    CO.SNAP                                                 FAS      2390
                                                  LX3    1RX                                                     FAS      2391
                                                  PL     X3,DLF120S                                              FAS      2392
                                                  DUMPT  XFIL                                                    FAS      2393
                                         DLF120S  BSS    0                                                       FAS      2394
                                         SNAP=X   ENDIF                                                          FAS      2395
                                                                                                                 FAS      2396
          1370  0100002410 +                      WLGO   B6,B7                                                   FAS      2397
          1371  76610                             SHRINK T=XFIL,1                                                FAS      2398
          1372  5110001374 +             DLF130   SA1    DLFA                                                    FAS      2399
                          53010                   SA0    X1          RESTORE A0                                  FAS      2400
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    53
        ASSEMBLER SUPPORTING ROUTINES                                 DLF 
  
          1373  0400001310 +                      EQ     EXIT.                                                   FAS      2401
                                                                                                                 FAS      2402
          1374                     1     DLFA     BSS    1           PRESERVE A0 HERE                            FAS      2403
  
  
  
  
                                        **        DTX -  DUMP *TEXT* TABLE.                                      FAS      2405
                                        *                                                                        FAS      2406
                                        *         IF TABLE IS EMPTY, NO WRITE WILL TAKE PLACE, BUT THE TABLE     FAS      2407
                                        *         WILL BE RESET TO INDICATE *EMPTY* AND (ORG).                   FAS      2408
                                        *                                                                        FAS      2409
                                        *         DTX CANNOT MOVE TABLES.                                        FAS      2410
                                        *                                                                        FAS      2411
                                        *         USES   A1-A4,A6,A7  B2,B3,B5-B7                                FAS      2412
                                        *         CALLS  WLF.                                                    FAS      2413
                                                                                                                 FAS      2414
                                                                                                                 FAS      2415
          1375  0400401375 +             DTX      SUBR               ENTRY/EXIT...                               FAS      2416
          1376  5110000033 +                      SA1    BT.TXWC                                                 FAS      2417
                          7271777760              SX7    X1-15                                                   FAS      2418
          1377  7160003700                        SX6    BT=XTEXT                                                FC5A132   148
                          0301001404 +            ZR     X1,DTX10    IF EMPTY TABLE AVOID..                      FAS      2420
          1400  54311                             =A3    A1+1                                                    FAS      2421
                     20702                        LX7    2                                                       FAS      2422
                          54231                   SA2    A3+B1       BT.TXRB WORD                                FAS      2423
                               73111              SX1    X1+B1                                                   FAS      2424
          1401  20660                             LX6    BT.CNP                                                  FAS      2425
                     63711                        SB7    X1+B1                                                   FAS      2426
                          63370                   SB3    X7          SHIFT FOR PARTIAL TABLE RELOC BYTES         FAS      2427
                               20144              LX1    BT.WCP                                                  FAS      2428
          1402  12363                             BX3    X6+X3                                                   FAS      2429
                     64630                        SB6    A3                                                      FAS      2430
                          36631                   IX6    X3+X1                                                   FAS      2431
                               23732              AX7    X2,B3                                                   FAS      2432
          1403  54630                             SA6    A3                                                      FAS      2433
                     54720                        SA7    A2                                                      FAS      2434
                          0100002410 +            WLGO   B6,B7                                                   FAS      2435
          1404  5110000201 +             DTX10    SA1    ORG                                                     FAS      2436
                          76210                   =X2    1                                                       FAS      2437
                               13777              BX7    0                                                       FAS      2438
          1405  20230                             LX2    BT.RLXP                                                 FC5A132   149
                     5170000035 +                 SA7    BT.TXRB                                                 FAS      2440
                               36612              IX6    X1+X2       ADJUST INTERNAL BLOCK ORDINAL TO LOADER     FAS      2441
                                        *                            BLOCK NUMBER                                FAS      2442
          1406  55671                             SA6    A7-B1                                                   FAS      2443
                     55761                        SA7    A6-B1                                                   FAS      2444
                          0400001375 +            EQ     EXIT.                                                   FAS      2445
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    54
        ASSEMBLER SUPPORTING ROUTINES                                 ESL 
  
                                        **        ESL -  ENTER STMT LABEL IN 57 TABLE                            FAS      2447
                                        *                                                                        FAS      2448
                                        *         ENTRY  (A5) _ PB INSTRUCTION                                   FAS      2449
                                        *                                                                        FAS      2450
                                        *         CALLS  DXB                                                     FAS      2451
                                        *                                                                        FAS      2452
                                        *         USES   X - ALL  A - 1,2,3,6  B - 2,3,4,5,7                     FAS      2453
                                                                                                                 FAS      2454
          1407  0400401407 +             ESL      SUBR   =           ...ENTRY/EXIT...                            FAS      2455
          1410                           ESL.EQ   BSSENT 0                                                       FAS      2456
          1410  54550                             SA5    A5          X5 = PB INSTRUCTION                         FAS      2457
                     10155                        BX1    X5                                                      FAS      2458
                          43071                   MX0    -PB.PFXL                                                FAS      2459
                               20117              LX1    -PB.PFXP                                                FAS      2460
          1411  15010                             BX0    -X0*X1      ISOLATE TAG PREFIX                          FAS      2461
                     0310001407 +                 NZ     X0,EXIT.    IF NOT SYMTAB TAG                           FAS      2462
          1412  5120000000 X                      SA2    T.SYM                                                   FAS      2463
                          20117                   LX1    PB.PFXP-PB.ORDP                                         FAS      2464
                               43056              MX0    -PB.ORDL                                                FAS      2465
          1413  15110                             BX1    -X0*X1      ISOLATE SYMTAB *WB* ORDINAL                 FAS      2466
                     63410                        SB4    X1                                                      FAS      2467
                          20101                   LX1    1                                                       FAS      2468
                               63414              SB4    X1+B4       CONVERT TO INDEX                            FAS      2469
                                   0              ERRNZ  3-Z=SYM                                                 FAS      2470
          1414  66441                             =B4    B4-WA.W+WB.W                                            FAS      2471
                     53224                        SA2    X2+B4       *WB* OF POSSIBLE LABEL                      FAS      2472
                          7110000020              CLAS=  X1,WB,(CGS)                                             FAS      2473
          1415  11112                             BX1    X1*X2                                                   FAS      2474
                     7130000210                   CLAS=  X3,WB,(LAB,SDEF)                                        FAS      2475
                               11432              BX4    X3*X2                                                   FAS      2476
          1416  13343                             BX3    X4-X3                                                   FAS      2477
                     12113                        BX1    X1+X3                                                   FAS      2478
                          0311001407 +            NZ     X1,EXIT.    IF NOT A LABEL                              FAS      2479
          1417  55221                             =A2    A2-WB.W+WA.W      *WA*                                  FAS      2480
                     43036                        MX0    -WA.STLL                                                FAS      2481
                          20244                   LX2    -WA.STLP                                                FAS      2482
                               15220              BX2    -X0*X2      ISOLATE STMT LABEL                          FAS      2483
          1420  20266                             LX2    -CHAR       RIGHT JUSTIFY                               FAS      2484
                     43006                        MX0    CHAR                                                    FAS      2485
          1421  20266                    ESL10    LX2    -CHAR                                                   FAS      2486
                     11302                        BX3    X0*X2                                                   FAS      2487
                          0313001421 +            NZ     X3,ESL10    IF MORE OF THE LABEL                        FAS      2488
          1422  20206                             LX2    CHAR        LEFT JUSTIFY                                FAS      2489
                     10522                        BX5    X2                                                      FAS      2490
                          66710                   =B7    1           DECIMAL BASE ASSUMED                        FAS      2491
          1423  0100000000 X                      CALL   DXB         CONVERT TO BINARY                           FAS      2492
                                                  IFEQ   TEST,ON,1                                               FAS      2493
                                                  NZ     X4,"BLOWUP" IF ERROR IN CONVERSION                      FAS      2494
          1424  5110000000 X                      SA1    T.LNT                                                   FAS      2495
                          5130000000 X            SA3    T=LNT                                                   FAS      2496
          1425  36113                             IX1    X1+X3                                                   FAS      2497
                     7211777776                   =X1    X1-1        X1 = ADDRESS OF LAST T.LNT ENTRY            FAS      2498
                               53110              SA1    X1                                                      FAS      2499
          1426  20652                             LX6    LN.LABP                                                 FAS      2500
                     12616                        BX6    X1+X6                                                   FAS      2501
                          54610                   SA6    A1          FILL IN LABEL FIELD                         FAS      2502
          1427  0400001407 +                      EQ     EXIT.                                                   FAS      2503
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    55
        ASSEMBLER SUPPORTING ROUTINES                                 FBP 
  
                                        **        FBP -  FORMAT BINARY AND PRINT.                                FAS      2505
                                        *                                                                        FAS      2506
                                        *         ENTRY  (X0) = BINARY WORD TO BE FORMATTED.                     FAS      2507
                                        *                (OL=PB) = PRE-BINARY INSTRUCTION FOR OBJECT LIST.       FAS      2508
                                        *                                                                        FAS      2509
                                        *         EXIT   (LINBUF+1 .. +2) = FORMATTED BINARY.                    FAS      2510
                                        *                                                                        FAS      2511
                                        *         CALLS  POL, WOD.                                               FAS      2512
                                                                                                                 FAS      2513
                                                                                                                 FAS      2514
          1430  0400401430 +             FBP      SUBR   =                                                       FAS      2515
                                        *         EQ     EXIT.                                                   FAS      2516
          1431                           FBP.EQ   BSSENT 0                                                       FAS      2517
          1431  10100                             BX1    X0                                                      FAS      2518
                     0100000000 X                 CALL   WOD         CONVERT BINARY TO DPC                       FAS      2519
          1432  5150000211 +                      SA5    OL=PB                                                   FAS      2520
                          5160000001 X            SA6    LINEBUF+1                                               FAS      2521
          1433  54761                             =A7    A6+1                                                    FAS      2522
                     0100002176 +                 RJ     POL         PRINT OBJECT LISTING                        FAS      2523
          1434  0400001430 +                      EQ     EXIT.                                                   FAS      2524
  
  
  
  
                                        **        FLA - FORMAT LABELS ASSIGNED.                                  FAS      2526
                                        *                                                                        FAS      2527
                                        *         ENTRY  (X4) = LENGTH OF (T.LA).                                FAS      2528
                                        *                                                                        FAS      2529
                                        *         EXIT   ............                                            FAS      2530
                                                                                                                 FAS      2531
                                                                                                                 FAS      2532
          1435  0400401435 +             FLA      SUBR   0           ENTRY/EXIT...                               FAS      2533
          1436  5110000000 X                      SA1    T.LA                                                    FAS      2534
                          53510                   SA5    X1          FETCH (X5) = FIRST TABLE ENTRY              FAS      2535
                               53040              SA0    X4          (A0) = NUMBER OF ASSIGN-ED LABELS           FAS      2536
          1437  13666                             SHRINK A4                                                      FAS      2537
          1440  5130000000 X             FLA2     SA3    T.SYM                                                   FAS      2538
                          22115                   LX1    X5,B1                                                   FAS      2539
                               63731              =B7    X3+WB.W                                                 FAS      2540
          1441  43701                             MX7    1                                                       FAS      2541
                     36615                        IX6    X1+X5       (X6) = INDEX OF LABEL SYMTAB ENTRY          FAS      2542
                          53467                   SA4    X6+B7                                                   FAS      2543
                               43044              MX0    -WC.RAL                                                 FAS      2544
          1442  54341                             =A3    A4-WB.W+WC.W                                            FAS      2545
                     20464                        HX4    WB.SDEF                                                 FAS      2546
                                                  LX3    -WC.RAP                                                 FAS      2547
                          11474                   BX4    X7*X4       (X4) = (WB.SDEF) BIT IN SIGN                FAS      2548
                               15630              BX6    -X0*X3      (X6) = UNRELOCATED ADDRESS OF LABEL         FAS      2549
          1443  12146                             BX1    X4+X6                                                   FAS      2550
                     43200                        MX2    0           INDICATE NO RELOCATION                      FAS      2551
                          0100002374 +            RJ     STX         STORE WORD IN TEXT TABLE                    FAS      2552
          1444  0100002176 +                      RJ     POL         PRINT OBJECT LISTING                        FAS      2553
          1445  65401                             SB4    A0-B1                                                   FAS      2554
                     5055000001                   SA5    A5+1                                                    FAS      2555
                               55001              SA0    A0-B1       DECREMENT UNPROCESSED LENGTH                FAS      2556
          1446  0704001440 +                      GT     B4,FLA2     IF MORE LABELS TO DO                        FAS      2557
                          0400001435 +            EQ     EXIT.                                                   FAS      2558
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    56
        ASSEMBLER SUPPORTING ROUTINES                                 S2. 
  
                                        **        BINARY OUTPUT LOADER SYMBOL TABLE DEFINITIONS.                 FAS      2560
                                        *                                                                        FAS      2561
                                        *         WORD ONE -  WA. FORMAT.                                        FAS      2562
                                        *         WORD TWO -  S2. FORMAT.                                        FAS      2563
                                        *         WORD THREE - S3. FORMAT.                                       FAS      2564
                                                                                                                 FAS      2565
                                                  DESCRIBE S2.,60,,WB.W                                          FAS      2566
                                                  DEFINE 12          0                                           FAS      2567
      L    144  00007777000000000000     PNT      DEFINE 12          DIMENSION OFFSET                            FAS      2568
      L    143  00000000400000000000     ARY      DEFINE 1           ARRAY                                       FAS      2569
                                                  DEFINE 11                                                      FAS      2570
      L    127  00000000000040000000     SUB      DEFINE             SUBROUTINE                                  FAS      2571
      L    126  00000000000020000000     NLST     DEFINE             NAMELIST GROUP NAME                         FAS      2572
      L    125  00000000000010000000     ENT      DEFINE             ENTRY POINT                                 FAS      2573
      L    124  00000000000004000000     PARM     DEFINE             SYMBOLIC CONSTANT                           FAS      2574
      L    123  00000000000002000000     1REF     DEFINE             STRAY NAME                                  FAS      2575
      L    122  00000000000001000000     MAT      DEFINE             VARIABLE MATERIALIZED                       FAS      2576
      L    121  00000000000000400000     LAB      DEFINE 1           THIS ENTRY IS LABEL                         FAS      2577
      L    120  00000000000000200000     DEF      DEFINE 1           DEFINED                                     FAS      2578
      L    117  00000000000000100000     EQV      DEFINE 1           MEMBER OF EQUIVALENCE CLASS                 FAS      2579
      L    116  00000000000000040000     FUN      DEFINE 1           USED AS FUNCTION                            FAS      2580
      L    115  00000000000000020000     EXT      DEFINE 1           EXTERNAL SYMBOL                             FAS      2581
      L    114  00000000000000010000     CGS      DEFINE 1           COMPILER GENERATED SYMBOL                   FAS      2582
      L    113  00000000000000004000     FP       DEFINE 1           FORMAL PARAMETER                            FAS      2583
      L    112  00000000000000002000     LEV      DEFINE 1           LEVEL 0 AND LCM                             FAS      2584
      L    111  00000000000000001000     LCM      DEFINE 1           VARIABLE RESIDES IN ECS/LCM                 FAS      2585
      L    103  00000000000000000770     TYP      DEFINE 6           VARIABLE TYPE                               FAS      2586
      L    100  00000000000000000007     SIZ      DEFINE 3           LENGTH - 3 OF SYMBOL ENTRY                  FAS      2587
                                                                                                                 FAS      2588
                                                  DESCRIBE S3.,60,,WC.W                                          FAS      2589
                                                  DEFINE 3                                                       FAS      2590
      L    260  07770000000000000000     RB       DEFINE 9           LOADER BLOCK NUMBER                         FAS      2591
      L    257  00004000000000000000     CL       DEFINE 1           CONSTANT LENGTH BIT                         FAS      2592
      L    236  00003777770000000000     CLEN     DEFINE 17          CHARACTER LENGTH                            FAS      2593
                                                  DEFINE 2                                                       FAS      2594
      L    230  00000000001700000000     BCP      DEFINE 4           BEGINNING CHARACTER POSITION                FAS      2595
      L    200  00000000000077777777     RA       DEFINE 24          RELATIVE ADDRESS FIELD                      FAS      2596
  
  
  
  
                                        **        FST - FORMAT SYMBOL TABLE.                                     FAS      2598
                                        *                                                                        FAS      2599
                                        *         RE-FORMAT AND COPY COMPILER SYMBOL TABLE (T.SYM) INTO          FAS      2600
                                        *         SCRATCH AREA (T.SCR), IN PREPARATION FOR 5600 TABLE            FAS      2601
                                        *         GENERATION.                                                    FAS      2602
                                        *                                                                        FAS      2603
                                        *         ENTRY  (SAVVD) = ADDRESS (WC.RA) OF *VD.*.                     FAS      2604
                                        *                                                                        FAS      2605
                                        *         EXIT   (T.SCR) = CID/PMD FORMAT SYMBOL TABLE                   FC5A298     5
                                        *                (T.DIM) = [DH.RA] HAS CID/PMD OFFSETS                   FC5A298     6
                                        *                                                                        FAS      2608
                                        *         USES   ALL.                                                    FAS      2609
                                        *         CALLS  ADA, CAB.                                               FAS      2610
                                                                                                                 FAS      2611
                                                                                                                 FAS      2612
          1447  0400401447 +             FST      SUBR   0           ENTRY/EXIT...                               FAS      2613
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    57
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
          1450  76710                             SX7    B1          CID WANTS 1-ORIGIN                          FAS      2614
                     43401                        MX4    1           COUNT ALL DIM ENTRIES                       FAS      2615
                          0100000000 X            CALL   ADA         ASSIGN DIM-TABLE ADDRESSES                  FAS      2616
          1451  5110000000 X                      SA1    T.SCR                                                   FAS      2617
                          5120000000 X            SA2    T.SYM                                                   FAS      2618
          1452  5130000000 X                      SA3    T=SYM                                                   FAS      2619
                          63630                   SB6    X3          SYMLEN = LEN(T.SYM)                         FAS      2620
          1453  6241777775                        SB4    X1-Z=SYM+WB.W     STOAD = FWA(T.SCR) - Z=SYM + WB.W     FAS      2621
                          6130000003              =B3    Z=SYM                                                   FAS      2622
          1454  53521                             =A5    X2+WB.W     SKIP FIRST ENTRY                            FAS      2623
                                                                                                                 FAS      2624
                                        *         (A5) _ LAST WB. ENTRY.                                         FAS      2625
                                        *         (B4) _ LAST T.SCR ENTRY TO STORE INTO                          FAS      2626
                                        *         (B3) = Z=SYM                                                   FAS      2627
                                        *         (B6) = SYMLEN                                                  FAS      2628
                                                                                                                 FAS      2629
          1455  54553                    FST10    SA5    A5+B3       WBI = WB ENTRY OF T.SYM                     FAS      2630
                     67663                        SB6    B6-B3       SYMLEN = SYMLEN - Z=SYM                     FAS      2631
                          43052                   MX0    WA.SYML                                                 FAS      2632
          1456  0606001447 +                      LE     B6,EXIT.    IF END OF (T.SYM)                           FAS      2633
                          10455                   BX4    X5                                                      FAS      2634
                               20470              HX4    WB.LAB                                                  FAS      2635
          1457  0334001522 +                      MI     X4,FST80    IF LABEL                                    FAS      2636
                          66443                   SB4    B4+B3       STAD = STAD + Z=SYM                         FAS      2637
                                                  LX0    WA.SYML+WA.SYMP                                         FAS      2638
                               55451              =A4    A5-WB.W+WA.W      WAI = WA ENTRY OF T.SYM               FAS      2639
          1460  11704                             BX7    X0*X4                                                   FAS      2640
                     57741                        =A7    B4-S2.W+WA.W      T.SCR(STAD-1) = SYM[WAI]              FAS      2641
                                                                                                                 FAS      2642
                                        *         CONSTRUCT S2. ENTRY OF (5600) TABLE.                           FAS      2643
                                                                                                                 FAS      2644
                          5110001524 +            SA1    FSTA                                                    FAS      2645
          1461  43200                             MX2    0           S2W = 0                                     FAS      2646
                     0100001027 +                 RJ     CAB         COPY ADJUSTED BITS                          FAS      2647
                                                                                                                 FAS      2648
                                        *         TRANSFORM (WB.MODE) VIA CID MODE VECTOR.                       FAS      2649
                                        *         TRANSFORM (WB.PNT) PER ADA, SINCE DIM ENTRIES ARE SHRUNK       FAS      2650
                                        *                FOR 5600 TABLE OUTPUT.                                  FAS      2651
                                        *         SET LEV[S2.] = 1 IF LCM .AND. LEVEL 0.                         FAS      2652
                                        *         (X2) = S2. BUILD WORD                                          FAS      2653
                                                                                                                 FAS      2654
          1462  10455                             BX4    X5                                                      FAS      2655
                     10355                        BX3    X5                                                      FAS      2656
                          20366                   HX3    WB.VAR                                                  FAS      2657
                               21373              AX3    59                                                      FAS      2658
                                                  LX5    -WB.MODEP                                               FAS      2659
          1463  20415                             LX4    -WB.PNTP                                                FAS      2660
                     43071                        MX0    -WB.MODEL                                               FAS      2661
                          43657                   MX6    -WB.PNTL                                                FAS      2662
                               15050              BX0    -X0*X5      MODEI = MODE[WBI]                           FAS      2663
          1464  5110000000 X                      SA1    T.DIM                                                   FAS      2664
                          15646                   BX6    -X6*X4      DHI = PNT[WBI]                              FAS      2665
                               11636              BX6    X3*X6       ZERO IF NOT VARIABLE                        FAS      2666
          1465  63210                             SB2    X1                                                      FAS      2667
                     53362                        SA3    X6+B2       FETCH DIM HEADER                            FAS      2668
                          43144                   MX1    -DH.RAL                                                 FAS      2669
                               20366              LX3    -DH.RAP                                                 FAS      2670
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    58
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
          1466  15131                             BX1    -X1*X3      PNTI = RA[DHI]                              FAS      2671
                     63500                        SB5    X0          REMEMBER (B5) = MODEI                       FAS      2672
                          20144                   LX1    S2.PNTP                                                 FAS      2673
                               12221              BX2    X2+X1                                                   FAS      2674
          1467  20423                             LX4    WB.PNTP-1-WB.LEVP                                       FAS      2675
                     5130000065 +                 SA3    CIDMOD                                                  FAS      2676
                               43670              MX6    -4                                                      FAS      2677
          1470  20002                             LX0    2                                                       FAS      2678
                     63700                        SB7    X0                                                      FAS      2679
                          23373                   AX3    B7                                                      FAS      2680
                               15336              BX3    -X6*X3                                                  FAS      2681
          1471  20303                             LX3    S2.TYPP                                                 FAS      2682
                     12623                        BX6    X2+X3                                                   FAS      2683
                          20552                   LX5    WB.MODEP-1-WB.LCMP                                      FAS      2684
          1472  0324001476 +                      PL     X4,FST30    IF NOT LEVELED                              FAS      2685
                          43072                   MX0    -WB.LEVNL                                               FAS      2686
                               20453              LX4    1+WB.LEVP-WB.LEVNP                                      FAS      2687
          1473  10155                             BX1    X5                                                      FAS      2688
                     21173                        AX1    59          SIGN EXTEND LCM BIT                         FAS      2689
                          15740                   BX7    -X0*X4      LEVNOI = LEVN[WBI]                          FAS      2690
                               14111              BX1    -X1         = 0 IF LCM / (-0) IF NOT                    FAS      2691
          1474  12171                             BX1    X7+X1       = LEVNOI .OR. 0 / LEVNOI .OR. (-0)          FAS      2692
                     0311001476 +                 NZ     X1,FST30    IF NOT (LCM) .AND. (LEVEL 0)                FAS      2693
                               43301              CLAS=  X3,S2,(LEV)                                             FAS      2694
                     12663                        BX6    X6+X3                                                   FAS      2695
          1476  56640                    FST30    SA6    B4          T.SCR(STAD) = [S2.]                         FAS      2696
                                                                                                                 FAS      2697
                                        *         CONSTRUCT S3. WORD.                                            FAS      2698
                                        *         DETERMINE LOADER RB FROM RB[WC.].                              FAS      2699
                                        *         COPY CLEN[WC.] AND BCP[WC.] IF NOT F.P. .                      FAS      2700
                                        *         (B5) = MODEI                                                   FAS      2701
                                                                                                                 FAS      2702
                     54451                        =A4    A5-WB.W+WC.W      WCI = WC ENTRY OF T.SYM               FAS      2703
                          20501                   SBIT   X5,WB.FPP/WB.LCMP                                       FC5A298     7
                               43200              MX2    0                                                       FAS      2705
          1477  10622                             BX6    X2                                                      FAS      2706
                     5160001527 +                 SA6    FSTB        FLAG NOT FP                                 FAS      2707
          1500  0335001520 +                      MI     X5,FST70    IF FP                                       FAS      2708
                                                                                                                 FAS      2709
          1501  20414                    FST40    LX4    -WC.RBP                                                 FAS      2710
                     20501                        LX5    WB.FPP-WB.COMP                                          FAS      2711
                          0325001503 +            PL     X5,FST50    IF NOT COMMON                               FAS      2712
          1502  43062                             MX0    -WC.RBL                                                 FAS      2713
                     15640                        BX6    -X0*X4      RBI = RB[WCI]                               FAS      2714
                                   0              ERRNZ  2-Z=BLKS                                                FAS      2715
                          21601                   AX6    1           RBI = RBI / Z=BLKS                          FAS      2716
                               73261              =X2    X6+1        RBI = RBI + 1                               FAS      2717
                                                                                                                 FC5A298     8
          1503  73221                    FST50    =X2    X2+1        RBI = RBI + 1                               FAS      2718
                     20260                        LX2    S3.RBP                                                  FAS      2719
                          6155777771              SB5    B5-M.CHAR                                               FAS      2720
          1504  43670                             MX6    -WC.BCPL                                                FAS      2721
                     0550001513 +                 NZ     B5,FST60    IF NOT TYPE CHARACTER                       FAS      2722
                               20430              LX4    WC.RBP-WC.BCPP                                          FAS      2723
          1505  15146                             BX1    -X6*X4      BCPI = BCP[WCI]                             FAS      2724
                     10744                        BX7    X4                                                      FAS      2725
                          43352                   MX3    -WC.CLENL                                               FAS      2726
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    59
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
                               20466              LX4    WC.BCPP-WC.CLENP                                        FAS      2727
          1506  20130                             LX1    S3.BCPP                                                 FAS      2728
                     12212                        BX2    X1+X2                                                   FAS      2729
                          15643                   BX6    -X3*X4      CLENI = CLEN[WCI]                           FAS      2730
                               76010              =X0    1                                                       FAS      2731
          1507  20767                             LX7    WC.BCPP-WC.CTYPP                                        FAS      2732
                     11707                        BX7    X0*X7       CTYPI = CTYP[WCI]                           FAS      2733
                          13007                   BX0    X0-X7       =1 IFF CTYPI .EQ. 0                         FAS      2734
                               20636              LX6    S3.CLENP                                                FAS      2735
          1510  20057                             LX0    S3.CLP                                                  FAS      2736
                     12660                        BX6    X6+X0                                                   FAS      2737
                          12226                   BX2    X2+X6                                                   FAS      2738
          1511  0307001513 +                      ZR     X7,FST60    IF CTYP[WCI] .EQ. 0                         FAS      2739
                          5110000213 +            SA1    SAVVD       RA OF *VD.* = (SAVVD)                       FAS      2740
          1512  43053                             MX0    -S3.CLENL                                               FAS      2741
                     15110                        BX1    -X0*X1      RAVD = RA[WCV], TRUNCATED TO S3.CLENL       FAS      2742
                          20136                   LX1    S3.CLENP                                                FAS      2743
                               36221              IX2    X2+X1       CLEN[S3.] = CLEN[S3.] + RAVD                FAS      2744
                                                                                                                 FAS      2745
                                        *         COPY RA[WC.] TO RA[S3.].                                       FAS      2746
                                        *         (X2) = S3. BUILD WORD                                          FAS      2747
                                                                                                                 FAS      2748
          1513  5140001527 +             FST60    SA4    FSTB                                                    FAS      2749
                          0304001516 +            ZR     X4,FST65    IF NOT DUMMY ARGUMENT                       FC5A298     9
                                                                                                                 FC5A298    10
                                        *         FOR DUMMY ARGUMENTS, RA[S3.] = FPNO[WBI]-1                     FC5A298    11
                                                                                                                 FC5A298    12
          1514  76710                             =X7    1                                                       FC5A298    13
                     37647                        IX6    X4-X7       FPNO[WBI]-1                                 FC5A298    14
                                                  LX6    S3.RAP                                                  FC5A298    15
                          12626                   BX6    X2+X6                                                   FC5A298    16
                               56641              =A6    B4-WB.W+WC.W                                            FC5A298    17
          1515  0400001455 +                      EQ     FST10                                                   FC5A298    18
                                                                                                                 FC5A298    19
          1516  43744                    FST65    MX7    -WC.RAL                                                 FC5A298    20
                     54451                        =A4    A5-WB.W+WC.W                                            FAS      2753
                          21400                   AX4    WC.RAP                                                  FAS      2754
                               15647              BX6    -X7*X4      RAI = RA[WCI]                               FAS      2755
                                                  LX6    S3.RAP                                                  FAS      2756
          1517  12626                             BX6    X2+X6                                                   FC5A298    21
                     56641                        =A6    B4-WB.W+WC.W      T.SCR(STAD+1)= (BCP,CLEN,CL,RA) [S3.] FAS      2759
                          0400001455 +            EQ     FST10                                                   FAS      2760
                                                                                                                 FAS      2761
          1520  43063                    FST70    MX0    -WB.FPNOL                                               FAS      2764
                     10655                        BX6    X5                                                      FAS      2765
                          20654                   LX6    1+WB.FPP-WB.FPNOP                                       FAS      2766
                               15660              BX6    -X0*X6      FPNOI = FPNO[WBI]                           FAS      2768
                                                  LX6    S3.RAP                                                  FAS      2771
          1521  5160001527 +                      SA6    FSTB        FLAG FP                                     FAS      2772
                          0400001501 +            EQ     FST40                                                   FAS      2773
                                                                                                                 FAS      2774
          1522  5140000000 X             FST80    SA4    T=SCR                                                   FAS      2777
                          7264777774              SX6    X4-Z=SYM                                                FAS      2778
          1523  5064000000                        SA6    A4+         DECREMENT 5600 TABLE LENGTH FOR LABEL       FAS      2779
                          0400001455 +            EQ     FST10                                                   FAS      2780
                                                                                                                 FAS      2781
                                                  LIST   G           **** DEBUG ****                             FAS      2782
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    60
        ASSEMBLER SUPPORTING ROUTINES                                 FST 
  
          1524                           FSTA     CABS   WB,S2,(SUB,SDEF/DEF,EQV,FUN,EXT,CGS,FP,LCM,ARY,MAT,NLST FAS      2783
                                        ,,ENT,PARM,1REF)                                                         FAS      2784
          1524  6127                              VFD    6/60-WB.SUBP,6/S2.SUBP                                 CABS    .1
                    6520                          VFD    6/60-WB.SDEFP,6/S2.DEFP                                CABS    .1
                                        ,                                                                       CABS    .1
                        6317                      VFD    6/60-WB.EQVP,6/S2.EQVP                                 CABS    .1
                            6016                  VFD    6/60-WB.FUNP,6/S2.FUNP                                 CABS    .1
                                5615              VFD    6/60-WB.EXTP,6/S2.EXTP                                 CABS    .1
          1525  7014                              VFD    6/60-WB.CGSP,6/S2.CGSP                                 CABS    .1
                    5413                          VFD    6/60-WB.FPP,6/S2.FPP                                   CABS    .1
                        5311                      VFD    6/60-WB.LCMP,6/S2.LCMP                                 CABS    .1
                            6243                  VFD    6/60-WB.ARYP,6/S2.ARYP                                 CABS    .1
                                3622              VFD    6/60-WB.MATP,6/S2.MATP                                 CABS    .1
          1526  4026                              VFD    6/60-WB.NLSTP,6/S2.NLSTP                               CABS    .1
                                        ,                                                                       CABS    .1
                    5725                          VFD    6/60-WB.ENTP,6/S2.ENTP                                 CABS    .1
                        6424                      VFD    6/60-WB.PARMP,6/S2.PARMP                               CABS    .1
                                        ,                                                                       CABS    .1
                            3523                  VFD    6/60-WB.1REFP,6/S2.1REFP                               CABS    .1
                                        ,                                                                       CABS    .1
                                0000              VFD    11/0,*P/0                                              CABS    .1
                                                                                                                 FC5A298    22
          1527                     1     FSTB     BSS    1           DUMMY ARGUMENT FLAG                         FC5A298    23
                                                  LIST   *                                                       FAS      2785
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    61
        ASSEMBLER SUPPORTING ROUTINES                                 KAP 
  
                                        **        KAP -  COMPILE AP-LISTS.                                       FAS      2787
                                        *                                                                        FAS      2788
                                        *         RELOCATES AND RE-FORMATS *T.APL* INTO BINARY LOADER TEXT.      FAS      2789
                                        *         USES   ALL                                                     FAS      2790
                                        *         CALLS  DTX, REL, STX.                                          FAS      2791
                                                                                                                 FAS      2792
                                                                                                                 FAS      2793
          1530  0400401530 +             KAP      SUBR   0           ENTRY/EXIT.                                 FAS      2794
          1531  13666                             BX6    0                                                       FAS      2795
                     5160000055 +                 SA6    BINWORD     (BINWORD) = 0                               FAS      2796
                               54661              SA6    A6+B1       (BINREL) = 0                                FAS      2797
          1532  7170000006                        SX7    IA.BIASP-PB.BIASP                                       FAS      2798
                          43644                   MX6    -IA.BIASL                                               FAS      2799
          1533  5170002322 +                      SA7    RELPOS                                                  FAS      2800
                          5160002321 +            SA6    RELMASK                                                 FAS      2801
          1534  5120000000 X                      SA2    T=APL                                                   FAS      2802
                          5110000000 X            ALLOC  T.PTXTR,X2                                              FAS      2803
          1536  0100001375 +                      RJ     DTX         RESET TEXT TABLE                            FAS      2804
          1537  43600                             MX6    0                                                       FAS      2805
                     53060                        SA0    X6          STOIND = 0                                  FAS      2806
                          5160000214 +            SA6    KAPA        (KAPA) = IND = 0                            FAS      2807
                                                                                                                 FAS      2808
                                        *         A0 -> NEXT STORE INDEX INTO SCRATCH TABLE (T.PTXTR) FOR        FAS      2809
                                        *         OBJECT LISTING.                                                FAS      2810
                                                                                                                 FAS      2811
          1540  5140000000 X             KAP10    SA4    T=APL                                                   FAS      2812
                          5120000000 X            SA2    T.APL                                                   FAS      2813
          1541  5110000214 +                      SA1    KAPA        IND = (KAPA)                                FAS      2814
                          37641                   IX6    X4-X1       = LEN(T.APL) - IND                          FAS      2815
          1542  0306001530 +                      ZR     X6,EXIT.    IF END OF T.APL                             FAS      2816
                                         .T       IFEQ   TEST,ON,1                                               FAS      2817
                                                  MI     X6,"BLOWUP" IF SOMETHING HORRIBLE                       FAS      2818
                          73711                   =X7    X1+1                                                    FAS      2819
                               36221              IX2    X2+X1                                                   FAS      2820
          1543  54710                             SA7    A1          (KAPA) = IND + 1                            FAS      2821
                     53120                        SA1    X2          API = T.APL(IND)                            FAS      2822
                          76200                   =X2    0           INDICATE NO RELOCATION                      FAS      2823
                               10511              BX5    X1                                                      FAS      2824
          1544  0301001612 +                      ZR     X1,KAP50    IF +/- 0                                    FAS      2825
                          10411                   BX4    X1                                                      FAS      2826
                               43044              MX0    -IA.BIASL                                               FAS      2827
          1545  43352                             MX3    -IA.TAGL                                                FAS      2828
                     20163                        HX1    IA.CRH                                                  FAS      2829
                          20422                   LX4    -IA.TAGP                                                FAS      2830
                               15343              BX3    -X3*X4      TAGI = TAG[API]                             FAS      2831
          1546  20430                             LX4    IA.TAGP-IA.BIASP                                        FAS      2832
                     15640                        BX6    -X0*X4      BIASI = BIAS[API]                           FAS      2833
                          0331001615 +            MI     X1,KAP80    IF RELATIONAL HEADER                        FAS      2834
                                                                                                                 FAS      2835
                                        *         SET TYP[OA.] = MODE[API], AND LCM[OA.] = LCM[WBI].             FAS      2836
                                                                                                                 FAS      2837
          1547  43766                             MX7    -IA.MODEL                                               FAS      2838
                     20406                        LX4    IA.BIASP-IA.MODEP                                       FAS      2839
                          15747                   BX7    -X7*X4      TYPE = MODE[API]                            FAS      2840
          1550  5120000066 +                      SA2    COMMOD                                                  FAS      2841
                          20702                   LX7    2                                                       FAS      2842
                               43470              MX4    -4                                                      FAS      2843
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    62
        ASSEMBLER SUPPORTING ROUTINES                                 KAP 
  
          1551  63770                             SB7    X7                                                      FAS      2844
                     23272                        AX2    B7                                                      FAS      2845
                          15724                   BX7    -X4*X2                                                  FAS      2846
                               20760              LX7    OA.TYPP                                                 FAS      2847
          1552  5170000055 +                      SA7    BINWORD     TYP[BINWORD] = TYPE                         FAS      2848
                                                                                                                 FAS      2849
                          43200                   MX2    0           FPI = 0                                     FAS      2850
                               43456              MX4    -PB.ORDL                                                FAS      2851
          1553  11443                             BX4    X4*X3       PFXI = PFX[TAGI]                            FAS      2852
                                   0              ERRNZ  K=SYM                                                   FAS      2853
                     0314001565 +                 NZ     X4,KAP12    IF PFXI .NE. K=SYM                          FC5A121     6
          1554  5120000000 X                      SA2    T.SYM                                                   FAS      2855
                          22713                   LX7    X3,B1                                                   FAS      2856
                               36473              IX4    X7+X3       STIND = 3 * TAGI                            FAS      2857
                                   0              ERRNZ  3-Z=SYM                                                 FAS      2858
          1555  36224                             IX2    X2+X4                                                   FAS      2859
                     53221                        =A2    X2+WB.W     WBI = T.SYM(STIND) + WB.W                   FAS      2860
                          43401                   CLAS=  X4,WB,(LCM)                                             FAS      2861
          1556  11742                             BX7    X4*X2       LCMI = LCM[WBI]                             FAS      2862
                     20270                        HX2    WB.LAB                                                  FC5A121     7
                          10422                   BX4    X2                                                      FC5A121     8
                               20257              LX2    WB.LABP-WB.FPP                                          FC5A121     9
          1557  0334001566 +                      MI     X4,KAP14    IF LABEL                                    FC5A121    10
                          54470                   SA4    A7          BINWORD                                     FAS      2864
                               20752              LX7    OA.LCMP-WB.LCMP                                         FAS      2865
          1560  12774                             BX7    X7+X4                                                   FAS      2866
                     54740                        SA7    A4          LCM[BINWORD] = LCMI                         FAS      2867
                                                                                                                 FAS      2868
                                        *         FOR TAGI = *S=RD*, REPLACE BIAS[API] BY                        FAS      2869
                                        *                RA[T.DIM(BIASI) + DH.W] BEFORE RELOCATION.              FAS      2870
                                                                                                                 FAS      2871
                          5140000000 X            SA4    S=RD                                                    FAS      2872
          1561  37443                             IX4    X4-X3                                                   FAS      2873
                     43044                        MX0    -IA.BIASL                                               FAS      2874
                          0314001570 +            NZ     X4,KAP15    IF TAGI .NE. S=RD                           FAS      2875
          1562  5130000000 X                      SA3    T.DIM                                                   FAS      2876
                          63330                   =B3    X3          +DH.W                                       FAS      2877
                               53463              SA4    X6+B3       DHI = T.DIM(BIASI) + DH.W                   FAS      2878
          1563  20552                             LX5    -IA.BIASP                                               FAS      2879
                     11505                        BX5    X0*X5       CLEAR BIAS FIELD                            FAS      2880
                          20466                   LX4    -DH.RAP                                                 FAS      2881
                               15040              BX0    -X0*X4      BIASI = RA[DHI], TRUNCATED TO IA.BIASL      FAS      2882
          1564  12550                             BX5    X5+X0       BIAS[API] = BIASI                           FAS      2883
                     20522                        LX5    IA.BIASP                                                FAS      2884
                          0400001570 +            EQ     KAP15                                                   FC5A121    11
                                                                                                                 FC5A121    12
          1565  7244677777               KAP12    SX4    X4-K.GL                                                 FC5A121    13
                          0314001570 +            NZ     X4,KAP15    IF NOT GENERATED LABEL                      FC5A121    14
                                                                                                                 FC5A121    15
          1566  5140000067 +             KAP14    SA4    LABMOD                                                  FC5A121    16
                          20460                   LX4    OA.TYPP                                                 FC5A121    17
                               10744              BX7    X4                                                      FC5A121    18
          1567  5170000055 +                      SA7    BINWORD     TYPE[APLIST] = LABMOD                       FC5A121    19
                          0400001601 +            EQ     KAP20                                                   FC5A121    20
                                                                                                                 FAS      2885
          1570  10411                    KAP15    BX4    X1                                                      FAS      2886
                     20172                        LX1    IA.CRHP-IA.STP                                          FAS      2887
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    63
        ASSEMBLER SUPPORTING ROUTINES                                 KAP 
  
                          20473                   LX4    IA.CRHP-IA.CHARP                                        FAS      2888
          1571  0331001603 +                      MI     X1,KAP25    IF ST                                       FAS      2889
                          0324001601 +            PL     X4,KAP20    IF NON CHARACTER                            FAS      2890
                                                                                                                 FAS      2891
                                                                                                                 FAS      2892
                                        **        HANDLE CHARACTER APLIST HERE.                                  FAS      2893
                                        *                                                                        FAS      2894
                                        *         IF NOT FP, COPY (CLEN, BCP) FROM T.CAC(BIASI) ENTRY            FAS      2895
                                        *         AND REPLACE BIAS[IO1] WITH RA [T.CAC(BIASI)] BEFORE            FAS      2896
                                        *         RELOCATION.                                                    FAS      2897
                                        *         (X6) = BIASI                                                   FAS      2900
                                                                                                                 FAS      2901
                                                                                                                 FAS      2902
          1572  0332001605 +                      MI     X2,KAP40    IF F.P.                                     FAS      2903
                          43044                   MX0    -IA.BIASL                                               FAS      2905
          1573  5130000000 X                      SA3    T.CAC                                                   FAS      2907
                          43170                   MX1    -WC.BCPL                                                FAS      2908
                               43752              MX7    -WC.CLENL                                               FAS      2909
          1574  63330                             SB3    X3                                                      FAS      2910
                     20552                        LX5    -IA.BIASP                                               FAS      2911
                          11505                   BX5    X0*X5       CLEAR BIAS FIELD                            FAS      2912
                               53363              SA3    X6+B3       CACI = T.CAC(BIASI)                         FAS      2913
          1575  10233                             BX2    X3                                                      FAS      2914
                                                  LX3    -WC.RAP                                                 FAS      2915
                     20244                        LX2    -WC.BCPP                                                FAS      2916
                          15430                   BX4    -X0*X3      BIASI = RA[CACI], TRUNCATED TO IA.BIASL     FAS      2917
                               12554              BX5    X5+X4       REPLACE BIAS FIELD                          FAS      2918
          1576  15121                             BX1    -X1*X2      BCPI = BCP[CACI]                            FAS      2919
                     20522                        LX5    IA.BIASP                                                FAS      2920
                          20266                   LX2    WC.BCPP-WC.CLENP                                        FAS      2921
                               15027              BX0    -X7*X2      CLENI = CLEN[CACI]                          FAS      2922
          1577  20130                             LX1    OA.BCPP                                                 FAS      2923
                     5130000055 +                 SA3    BINWORD                                                 FAS      2924
                               20036              LX0    OA.LENP                                                 FAS      2925
          1600  12410                             BX4    X1+X0                                                   FAS      2926
                     12634                        BX6    X3+X4                                                   FAS      2927
                          54630                   SA6    A3          (LEN,BCP) [BINWORD] = (CLENI,BCPI) [OA.]    FAS      2928
                                                                                                                 FAS      2929
                                        *         RELOCATE THE ADDRESS.                                          FAS      2930
                                                                                                                 FAS      2931
          1601  66210                    KAP20    =B2    1           INDICATE LOWER ADDRESS RELOCATION           FAS      2932
                     43014                        MX0    PB.GHIJL                                                FAS      2933
                          20560                   LX5    PB.TAGP-IA.TAGP                                         FAS      2934
                               15550              BX5    -X0*X5      CLEAR (GHIJ) FIELD                          FAS      2935
          1602  0100002232 +                      RJ     REL         RELOCATE THE ADDRESS                        FAS      2936
          1603  5120000056 +             KAP25    SA2    BINREL                                                  FAS      2937
                          5110000055 +            SA1    BINWORD                                                 FAS      2938
          1604  0400001612 +                      EQ     KAP50                                                   FAS      2939
                                                                                                                 FAS      2940
                                                                                                                 FAS      2941
                                        **        FOR CHARACTER FP ITEMS, SET ARG[OA.] = FPNO[WBI] - 1,          FAS      2942
                                        *         SUBS[OA.] = BIAS[API], AND FP[OA.] = 1.                        FAS      2943
                                        *                                                                        FAS      2944
                                        *         (X2) = WBI, HIGH SHIFTED TO WB.FP                              FAS      2945
                                        *         (X6) = BIAS[API]                                               FAS      2946
                                                                                                                 FAS      2947
          1605  43763                    KAP40    MX7    -WB.FPNOL                                               FAS      2948
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    64
        ASSEMBLER SUPPORTING ROUTINES                                 KAP 
  
                     43301                        MX3    1                                                       FAS      2949
                          11332                   BX3    X3*X2       FPI = FP[WBI]                               FAS      2950
                               20254              LX2    1+WB.FPP-WB.FPNOP                                       FAS      2951
          1606  20373                             LX3    1+OA.FPP                                                FAS      2952
                     15727                        BX7    -X7*X2      FPNOI = FPNO[WBI]                           FAS      2953
                          43447                   MX4    -OA.SUBSL                                               FAS      2954
                               15664              BX6    -X4*X6                                                  FAS      2955
                                   3              ERRMI  IA.BIASL-OA.SUBSL                                       FAS      2956
          1607  20611                             LX6    OA.SUBSP                                                FAS      2957
                     12663                        BX6    X6+X3       ADD IN FP BIT                               FAS      2958
                          5140000055 +            SA4    BINWORD                                                 FAS      2959
          1610  7277777776                        =X7    X7-1        FPNOI = FPNOI - 1                           FAS      2960
                                                  LX7    OA.ARGP                                                 FAS      2961
                          12167                   BX1    X6+X7                                                   FAS      2962
                               12114              BX1    X1+X4                                                   FAS      2963
          1611  76200                             =X2    0           INDICATE NO RELOCATION                      FAS      2964
          1612  10611                    KAP50    BX6    X1                                                      FAS      2965
                     64300                        SB3    A0                                                      FAS      2966
                          5130000000 X            SA3    T.PTXTR                                                 FAS      2967
          1613  53633                             SA6    X3+B3       T.PTXTR(STOIND) = BINARY EQUIVALENT         FAS      2968
                     54001                        =A0    A0+1        STIND = STIND + 1                           FAS      2969
                          0100002374 +            RJ     STX         STORE INTO TEXT                             FAS      2970
          1614  0400001540 +                      EQ     KAP10                                                   FAS      2973
                                                                                                                 FAS      2974
                                                                                                                 FAS      2975
                                        **        OUTPUT CHARACTER RELATIONAL HEADER WORD.                       FAS      2976
                                        *         (X2) = 0                                                       FAS      2977
                                        *         (X3) = TAGI                                                    FAS      2978
                                        *         (X6) = BIASI                                                   FAS      2979
                                                                                                                 FAS      2980
                                         KAP80    LX6    OA.RITEP                                                FAS      2981
          1615  20336                             LX3    OA.LEFTP                                                FAS      2982
                                   0              ERRNZ  IA.LEFTP-IA.TAGP                                        FAS      2983
                                   0              ERRNZ  IA.RITEP-IA.BIASP                                       FAS      2984
                     12136                        BX1    X3+X6                                                   FAS      2985
                          43200                   MX2    0           INDICATE NO RELOCATION                      FAS      2986
          1616  0400001612 +                      EQ     KAP50                                                   FAS      2987
                                                                                                                 FAS      2988
                                 214 +   KAPA     EQU    TEMP        SAVED T.APL INDEX                           FAS      2989
  
  
  
  
                                        *         KIO - COMPILE I/O AP-LIST ITEMS.                               FAS      2991
                                        *                                                                        FAS      2992
                                        *         RELOCATES AND REFORMATS *T.IOA* INTO BINARY LOADER TEXT        FAS      2993
                                        *         DEFINED AS OA. .                                               FAS      2994
                                        *         USES:  ALL                                                     FAS      2995
                                        *         CALLS: DTX,STX,REL,MFE                                         FAS      2996
                                        *         CELLS  KIOA                                                    FAS      2997
                                                                                                                 FAS      2998
                                                                                                                 FAS      2999
          1617  0400401617 +             KIO      SUBR   0           ENTRY/EXIT.                                 FAS      3000
          1620  7160000006                        SX6    IA.BIASP-PB.BIASP                                       FAS      3001
                          5160002322 +            SA6    RELPOS                                                  FAS      3002
          1621  13777                             BX7    0                                                       FAS      3003
                     5170000055 +                 SA7    BINWORD                                                 FAS      3004
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    65
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
                               54771              SA7    A7+B1                                                   FAS      3005
          1622  5170000215 +                      SA7    KIOB        IND = 0                                     FAS      3006
                          0100001375 +            RJ     DTX         SET ORIGIN IN TEXT TABLE                    FAS      3007
          1623  5110000000 X                      SA1    T=IOA                                                   FAS      3008
                          56000                   SA0    B0          STIND = 0         /* (T.PTXTR) INDEX        FAS      3009
                               23011              AX0    X1,B1                                                   FAS      3010
                                   0              ERRNZ  2-Z=IOA     TWO WORDS PER ENTRY                         FAS      3011
          1624  5110000000 X                      ALLOC  T.PTXTR,X0                                              FAS      3012
                                                                                                                 FAS      3013
                                        *         PROCESS NEXT ENTRY FROM T.IOA.                                 FAS      3014
                                        *         (A0) = NEXT STORE ADDRESS FOR SCRATCH TABLE (T.PTXTR).         FAS      3015
                                                                                                                 FAS      3016
          1625  5150000000 X             KIO10    SA5    T=IOA                                                   FAS      3017
                          5120000000 X            SA2    T.IOA                                                   FAS      3018
          1626  5110000215 +                      SA1    KIOB        IND = (KIOB)                                FAS      3019
                          76311                   =X3    Z=IOA                                                   FAS      3020
                               37751              IX7    X5-X1       = LEN(T.IOA) - IND                          FAS      3021
          1627  36613                             IX6    X1+X3                                                   FAS      3022
                     0307001617 +                 ZR     X7,EXIT.    IF END OF T.IOA                             FAS      3023
                                         .T       IFEQ   TEST,ON,1                                               FAS      3024
                                                  MI     X7,"BLOWUP" IF SOMETHING HORRIBLE                       FAS      3025
                               54610              SA6    A1          (KIOB) = IND + Z=IOA                        FAS      3026
          1630  36421                             IX4    X2+X1                                                   FAS      3027
                     53440                        SA4    X4          IO1 = T.IOA(IND)                            FAS      3028
                          54341                   =A3    A4+1        IO2 = IO1 + 1                               FAS      3029
                               22104              LX1    X4                                                      FAS      3030
          1631  76200                             =X2    0                                                       FAS      3031
                     0304001736 +                 ZR     X4,KIO110   IF +/- 0                                    FAS      3032
                               10544              BX5    X4                                                      FAS      3033
          1632  10633                             BX6    X3                                                      FAS      3034
                     5160000214 +                 SA6    KIOA        (KIOA) = IO2                                FAS      3035
                               43766              MX7    -IA.MODEL                                               FAS      3036
          1633  20160                             LX1    -IA.MODEP                                               FAS      3037
                     20467                        LX4    -IA.VARP                                                FAS      3038
                          15217                   BX2    -X7*X1      TYPE = MODE[IO1]                            FAS      3039
                               63320              SB3    X2          REMEMBER (B3) = TYPE                        FAS      3040
          1634  76010                             SX0    B1                                                      FAS      3041
                     20101                        LX1    IA.MODEP-IA.IOCP                                        FAS      3042
                          11301                   BX3    X0*X1       LST = IOC[IO1]                              FAS      3043
                               20370              LX3    OA.LSTP                                                 FAS      3044
          1635  0313001640 +                      NZ     X3,KIO12    IF CONTROL ITEM                             FAS      3045
                          20202                   LX2    2                                                       FAS      3046
                               43670              MX6    -4                                                      FAS      3047
          1636  63420                             SB4    X2                                                      FAS      3048
                     5120000070 +                 SA2    FCLMOD                                                  FAS      3049
                               23242              AX2    B4                                                      FAS      3050
          1637  15226                             BX2    -X6*X2                                                  FAS      3051
                     15704                        BX7    -X4*X0      VARI = .NOT. VAR[IO1]                       FAS      3052
                          20767                   LX7    OA.VARP                                                 FAS      3053
                               12337              BX3    X3+X7       VAR[BINLIST] = VARI                         FAS      3054
          1640  20260                    KIO12    LX2    OA.TYPP                                                 FAS      3055
                     12623                        BX6    X2+X3                                                   FAS      3056
                          43752                   MX7    -IA.TAGL                                                FAS      3057
                               20427              LX4    IA.VARP-IA.TAGP                                         FAS      3058
          1641  20102                             LX1    IA.IOCP-IA.CHARP                                        FAS      3059
                     15347                        BX3    -X7*X4      TAGI = TAG[IO1]                             FAS      3060
                          11201                   BX2    X0*X1       CHARI = CHAR[IO1]                           FAS      3061
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    66
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
                               63420              SB4    X2          REMEMBER (B4) = CHARI                       FAS      3062
          1642  20430                             LX4    IA.TAGP-IA.BIASP                                        FAS      3063
                     43744                        MX7    -IA.BIASL                                               FAS      3064
                          15747                   BX7    -X7*X4      BIASI = BIAS[IO1]                           FAS      3065
                               43256              MX2    -PB.ORDL                                                FAS      3066
          1643  11123                             BX1    X2*X3       PFXI = PFX[TAGI]                            FAS      3067
                                   0              ERRNZ  K=SYM                                                   FAS      3068
                     20407                        LX4    IA.BIASP-1-IA.STP                                       FAS      3069
                          43200                   MX2    0           INDICATE NON FP                             FAS      3070
          1644  0311001650 +                      NZ     X1,KIO15    IF PFXI .NE. K=SYM                          FAS      3071
                          5120000000 X            SA2    T.SYM                                                   FAS      3072
          1645  22113                             LX1    X3,B1                                                   FAS      3073
                     36113                        IX1    X1+X3       STIND = 3 * TAGI                            FAS      3074
                                   0              ERRNZ  3-Z=SYM                                                 FAS      3075
                          36221                   IX2    X2+X1                                                   FAS      3076
                               53221              =A2    X2+WB.W     WBI = T.SYM(STIND) + WB.W                   FAS      3077
          1646  43101                             CLAS=  X1,WB,(LCM)                                             FAS      3078
                          11121                   BX1    X2*X1       LCMI = LCM[WBI]                             FAS      3079
                               20253              HX2    WB.FP                                                   FAS      3080
          1647  20152                             LX1    OA.LCMP-WB.LCMP                                         FAS      3081
                     12661                        BX6    X6+X1       ADD IN LCM BIT                              FAS      3082
          1650  5160000055 +             KIO15    SA6    BINWORD     (LCM,LST,TYPE)[BINWORD] = (LCMI,IOC,TYPE)   FAS      3083
                          0334001656 +            MI     X4,KIO18    IF ST                                       FAS      3084
                                                                                                                 FAS      3085
                                        *         FOR NON-CHARACTER FP ITEMS,                                    FAS      3086
                                        *         SET    ARG[OA.] = FPNO[WBI] - 1,                               FAS      3087
                                        *                SUBS[OA.] = BIAS[IO1],                                  FAS      3088
                                        *                FP[OA.] = FP[WBI].                                      FAS      3089
                                        *         (X7) = BIASI                                                   FAS      3090
                                        *         (A6,X6) = BINWORD                                              FAS      3091
                                                                                                                 FAS      3092
          1651  0540001665 +                      NZ     B4,KIO20    IF CHARACTER                                FAS      3093
                          0322001674 +            PL     X2,KIO40    IF NOT FP                                   FAS      3094
          1652  43401                             MX4    1                                                       FAS      3095
                     11442                        BX4    X4*X2       FPI = FP[WBI]                               FAS      3096
                          20473                   LX4    1+OA.FPP                                                FAS      3097
                               43163              MX1    -WB.FPNOL                                               FAS      3098
          1653  20254                             LX2    1+WB.FPP-WB.FPNOP                                       FAS      3099
                     15121                        BX1    -X1*X2      FPNOI = FPNO[WBI]                           FAS      3100
                          43547                   MX5    -OA.SUBSL                                               FAS      3101
                               15775              BX7    -X5*X7                                                  FAS      3102
                                   3              ERRMI  IA.BIASL-OA.SUBSL                                       FAS      3103
          1654  20711                             LX7    OA.SUBSP                                                FAS      3104
                     12447                        BX4    X4+X7                                                   FAS      3105
                          7251777776              =X5    X1-1        FPNOI = FPNOI - 1                           FAS      3106
                                                  LX5    OA.ARGP                                                 FAS      3107
          1655  12145                             BX1    X4+X5                                                   FAS      3108
                     12616                        BX6    X1+X6                                                   FAS      3109
          1656  10266                    KIO18    BX2    X6                                                      FAS      3110
                     20203                        HX2    OA.LST                                                  FAS      3111
                          5160000055 +            SA6    BINWORD                                                 FAS      3112
          1657  0322001724 +                      PL     X2,KIO85    IF NOT CONTROL ITEM                         FAS      3113
                          43001                   CLAS=  X0,OA,(IND)                                             FC5A131     6
          1660  7113777737                        SX1    B3-IC.STR                                               FC5A131     7
                          0301001663 +            ZR     X1,KIO19    IF ENCODE/DECODE STRING                     FC5A131     8
          1661  7113777742                        SX1    B3-IC.BUF                                               FC5A131     9
                          0301001663 +            ZR     X1,KIO19    IF BUFFER I/O FWA/LWA                       FC5A131    10
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    67
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
          1662  43001                             CLAS=  X0,OA,(VAR)                                             FAS      3114
                                                                                                                 FC5A131    11
          1663  12606                    KIO19    BX6    X0+X6                                                   FC5A131    12
                     0303001724 +                 ZR     X3,KIO85    IF TAGI .EQ. 0                              FAS      3116
                               54660              SA6    A6          VAR[BINWORD] = 1                            FAS      3117
          1664  0400001724 +                      EQ     KIO85                                                   FAS      3118
                                                                                                                 FAS      3119
                                        *         CHARACTER I/O AP-LIST.                                         FAS      3120
                                        *         IF NOT FP, COPY (BCP,CLEN) FROM T.CAC(BIAS[IO1]) ENTRY         FAS      3121
                                        *         AND REPLACE BIAS[IO1] WITH RA [T.CAC(BIAS[IO1])] BEFORE        FAS      3122
                                        *         RELOCATION.                                                    FAS      3123
                                        *         (X7) = BIASI                                                   FAS      3124
                                        *         (A6,X6) = BINWORD                                              FAS      3125
                                                                                                                 FAS      3126
          1665  0322001666 +             KIO20    PL     X2,KIO30    IF NOT FP                                   FAS      3127
                          0400401665 +            EQ     "BLOWUP"    CHAR I/O AP SHOULD NOT BE FP                FAS      3128
                                                                                                                 FAS      3129
          1666  5110000000 X             KIO30    SA1    T.CAC                                                   FAS      3130
                          63510                   SB5    X1                                                      FAS      3131
                               43044              MX0    -IA.BIASL                                               FAS      3132
          1667  20552                             LX5    -IA.BIASP                                               FAS      3133
                     11505                        BX5    X0*X5       CLEAR BIAS FIELD                            FAS      3134
                          53475                   SA4    X7+B5       CACI = T.CAC(BIASI)                         FAS      3135
                               43152              MX1    -WC.CLENL                                               FAS      3136
          1670  43770                             MX7    -WC.BCPL                                                FAS      3137
                     10244                        BX2    X4                                                      FAS      3138
                                                  LX4    -WC.RAP                                                 FAS      3139
                          20236                   LX2    -WC.CLENP                                               FAS      3140
                               15440              BX4    -X0*X4      BIASI = RA[CACI], TRUNCATED TO IA.BIASL     FAS      3141
          1671  12554                             BX5    X5+X4       REPLACE BIAS FIELD                          FAS      3142
                     20522                        LX5    IA.BIASP                                                FAS      3143
                          15021                   BX0    -X1*X2      CLENI = CLEN[CACI]                          FAS      3144
                               20036              LX0    OA.LENP                                                 FAS      3145
          1672  20206                             LX2    WC.CLENP-WC.BCPP                                        FAS      3146
                     15227                        BX2    -X7*X2      BCPI = BCP[CACI]                            FAS      3147
                          20230                   LX2    OA.BCPP                                                 FAS      3148
                               12220              BX2    X2+X0                                                   FAS      3149
          1673  12662                             BX6    X6+X2                                                   FAS      3150
                     5160000055 +                 SA6    BINWORD     (CLEN,BCP)[BINWORD] = (CLENI,BCPI)[OA.]     FAS      3151
                                                                                                                 FAS      3152
                                        *         JUMP TO APPROPRIATE I/O PROCESSOR.                             FAS      3153
                                        *         (B3) = TYPE                                                    FAS      3154
                                                                                                                 FAS      3155
                                                                                                                 FAS      3156
          1674  5140000055 +             KIO40    SA4    BINWORD                                                 FAS      3157
                          43744                   MX7    -OA.ADRL                                                FAS      3158
                               43114              MX1    PB.GHIJL                                                FAS      3159
          1675  20560                             LX5    PB.TAGP-IA.TAGP                                         FAS      3160
                     15551                        BX5    -X1*X5      CLEAR (GHIJ) FILED                          FAS      3161
                          5170002321 +            SA7    RELMASK                                                 FAS      3162
          1676  10244                             BX2    X4                                                      FAS      3163
                     20203                        HX2    OA.LST                                                  FAS      3164
                          0322001723 +            PL     X2,KIO=LIS  IF NOT CONTROL ITEM                         FAS      3165
                                                                                                                 FAS      3166
                                         .T       IFEQ   TEST,ON                                                 FAS      3167
                                                  ZR     B3,"BLOWUP" IF CONTROL CODE .EQ. 0                      FAS      3168
                                                  SX0    B3-IC=LEN-1                                             FAS      3169
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    68
        ASSEMBLER SUPPORTING ROUTINES                                 KIO 
  
                                                  PL     X0,"BLOWUP" IF CONTROL CODE TOO BIG                     FAS      3170
                                         .T       ENDIF                                                          FAS      3171
                                                                                                                 FAS      3172
          1677  0233000070 +                      JP     B3+IOCAD-1                                              FAS      3173
  
  
  
  
                                        **        KIO=   I/O CONTROL ITEM PROCESSORS.                            FAS      3175
                                        *                                                                        FAS      3176
                                        *         ENTRY  A4 - BINWORD                                            FAS      3177
                                        *                A2 _ WBI                                                FAS      3178
                                        *                (X3) = TAGI.                                            FAS      3179
                                        *                (X5) = IO1.                                             FAS      3180
                                                                                                                 FAS      3181
          1700                           KIO=     BSS    0                                                       FAS      3182
          1700  0400401700 +                      EQ     "BLOWUP"    CODE NOT IMPLEMENTED                        FAS      3183
  
  
  
  
          1701                           KIO=END  BSS    0                                                       FAS      3187
          1701                           KIO=ERR  BSS    0                                                       FAS      3188
          1701                           KIO=MOD  BSS    0                                                       FAS      3189
          1701                           KIO=NML  BSS    0                                                       FAS      3190
          1701                           KIO=RCL  BSS    0                                                       FAS      3191
          1701                           KIO=SKP  BSS    0                                                       FAS      3192
          1701  43752                             MX7    -18                                                     FAS      3193
                     66210                        =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3194
                          5170002321 +            SA7    RELMASK                                                 FAS      3195
          1702  0100002232 +                      RJ     REL                                                     FAS      3196
          1703  5110000055 +                      SA1    BINWORD                                                 FAS      3197
                          5120000056 +            SA2    BINREL                                                  FAS      3198
          1704  0400001736 +                      EQ     KIO110                                                  FAS      3199
  
  
  
  
          1705                           KIO=BUF  BSS    0                                                       FAS      3203
          1705  6160000036                        SB6    OA.LENP     LENGTH SHOULD BE *1*                        FC5A373     5
                          0400001721 +            EQ     KIO60                                                   FC5A373     6
  
  
  
  
          1706                           KIO=FMTA BSS    0                                                       FAS      3209
          1706  5110002434 +                      CLAS=  X1,OA,(TYP)                                             FAS      3210
                          7160000004              =X6    IC.FMT                                                  FAS      3211
          1707  20660                             LX6    OA.TYPP                                                 FAS      3212
                     15441                        BX4    -X1*X4      CLEAR MODE FIELD                            FAS      3213
                          12446                   BX4    X4+X6                                                   FAS      3214
                               43101              CLAS=  X1,OA,(IND)                                             FAS      3215
                     12641                        BX6    X4+X1       ADD IN IND BIT FOR ASSIGN                   FAS      3216
                          54640                   SA6    A4          (MODE,IND)[BINWORD] = (IC.FMT,1)[OA.]       FAS      3217
          1711  0400001723 +                      EQ     KIO80                                                   FAS      3218
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    69
        ASSEMBLER SUPPORTING ROUTINES                                 KIO=FMT 
  
          1712                           KIO=ACC  BSS    0                                                       FAS      3220
          1712                           KIO=BFL  BSS    0                                                       FAS      3221
          1712                           KIO=BLK  BSS    0                                                       FAS      3222
          1712                           KIO=EXS  BSS    0                                                       FAS      3223
          1712                           KIO=DIR  BSS    0                                                       FAS      3224
          1712                           KIO=FIL  BSS    0                                                       FAS      3225
          1712                           KIO=FMD  BSS    0                                                       FAS      3226
          1712                           KIO=FOR  BSS    0                                                       FAS      3227
          1712                           KIO=NAM  BSS    0                                                       FAS      3228
          1712                           KIO=NMD  BSS    0                                                       FAS      3229
          1712                           KIO=NXT  BSS    0                                                       FAS      3230
          1712                           KIO=NUM  BSS    0                                                       FAS      3231
          1712                           KIO=OPE  BSS    0                                                       FAS      3232
          1712                           KIO=SEQ  BSS    0                                                       FAS      3233
          1712                           KIO=STA  BSS    0                                                       FAS      3234
          1712                           KIO=UNF  BSS    0                                                       FAS      3235
                                         .T       IFEQ   TEST,ON,1                                               FC5A369    27
                                                  ZR     X3,"BLOWUP" IF TAGI .EQ. 0                              FC5A369    28
          1712  43701                             CLAS=  X7,OA,(VAR)                                             FC5A369    29
                          12674                   BX6    X7+X4                                                   FC5A369    30
                               54640              SA6    A4          VAR[BINWORD] = VARI[OA.]                    FC5A369    31
          1713  0400001723 +                      EQ     KIO80                                                   FC5A369    32
  
  
  
  
          1714                           KIO=FMT  BSS    0                                                       FAS      3236
                                         .T       IFEQ   TEST,ON,1                                               FAS      3237
                                                  ZR     X3,"BLOWUP" IF TAGI .EQ. 0                              FAS      3238
          1714  54120                             SA1    A2          WBI                                         FAS      3239
                     20170                        SBIT   X1,WB.LABP                                              FAS      3240
                          43701                   CLAS=  X7,OA,(VAR)                                             FC5A369    34
          1715  0321001717 +                      PL     X1,KIO=FMT1 IF NOT FORMAT LABEL                         FC5A369    35
                          43760                   MX7    -WB.FMTLL                                               FC5A369    36
                               20137              LX1    WB.LABL+WB.LABP-WB.FMTLP                                FC5A369    37
          1716  15717                             BX7    -X7*X1      EXTRACT FORMAT LENGTH                       FC5A369    38
                     20736                        LX7    OA.LENP                                                 FC5A369    39
                                                                                                                 FC5A369    40
          1717  12674                    KIO=FMT1 BX6    X7+X4                                                   FC5A369    41
                     54640                        SA6    A4                                                      FC5A369    42
                          0400001723 +            EQ     KIO80                                                   FAS      3247
  
  
  
  
          1720                           KIO=REC  BSS    0                                                       FAS      3251
          1720                           KIO=IOS  BSS    0                                                       FAS      3252
          1720                           KIO=UNT  BSS    0                                                       FAS      3253
          1720  6160000067                        SB6    OA.VARP                                                 FAS      3254
          1721                           KIO60    BSS    0                                                       FAS      3255
          1721  43200                             MX2    0           INDV = 0                                    FAS      3256
                     0303001722 +                 ZR     X3,KIO70    IF TAGI .EQ. 0                              FAS      3257
                               76210              =X2    1           INDV = 1                                    FAS      3258
          1722  22262                    KIO70    LX2    X2,B6                                                   FAS      3259
                     12642                        BX6    X4+X2                                                   FAS      3260
                          54640                   SA6    A4          IND[BINWORD] = INDV                         FAS      3261
                                                                                                                 FAS      3262
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    70
        ASSEMBLER SUPPORTING ROUTINES                                 KIO=REC 
  
                                        *         RELOCATE THE ADDRESS.                                          FAS      3263
                                                                                                                 FAS      3264
          1723                           KIO=CNT  BSS    0                                                       FC50722     7
          1723                           KIO=STR  BSS    0                                                       FC50722     8
          1723                           KIO=LIS  BSS    0                                                       FAS      3265
          1723  66210                    KIO80    =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3266
                     0100002232 +                 RJ     REL                                                     FAS      3267
          1724  5110000055 +             KIO85    SA1    BINWORD                                                 FAS      3268
                          5120000056 +            SA2    BINREL                                                  FAS      3269
          1725  5150000214 +                      SA5    KIOA        IO2 = (KIOA)                                FAS      3270
                          0305001736 +            ZR     X5,KIO110   IF (IO2) .EQ. 0                             FAS      3271
                                                                                                                 FAS      3272
                                        *         PROCESS THE LENGTH WORD. (IO2)                                 FAS      3273
                                        *         (X5) = IO2                                                     FAS      3274
                                                                                                                 FAS      3275
          1726  20522                    KIO90    LX5    -IA.TAGP                                                FAS      3276
                     43222                        MX2    OA.LENL                                                 FAS      3277
                          20260                   LX2    OA.LENL+OA.LENP                                         FAS      3278
                               15712              BX7    -X2*X1      LEN[BINWORD] = 0                            FAS      3279
          1727  43052                             MX0    -IA.TAGL                                                FAS      3280
                     15350                        BX3    -X0*X5      TAGI = TAG[IO2]                             FAS      3281
                          43000                   MX0    0           IND = 0                                     FAS      3282
                               43652              MX6    -OA.LENL                                                FAS      3283
          1730  0303001731 +                      ZR     X3,KIO100   IF TAGI .EQ. 0                              FAS      3284
                          7100000001              SX0    1           IND = 1                                     FAS      3285
          1731  6120000003               KIO100   =B2    3           INDICATE UPPER PARCEL RELOCATION            FAS      3286
                          20071                   LX0    OA.INDP                                                 FAS      3287
                               12770              BX7    X7+X0       ADD IN IND BIT                              FAS      3288
          1732  43314                             MX3    PB.GHIJL                                                FAS      3289
                     20536                        LX5    PB.TAGP                                                 FAS      3290
                          15553                   BX5    -X3*X5      CLEAR (GHIJ) FIELD                          FAS      3291
          1733  5160002321 +                      SA6    RELMASK                                                 FAS      3292
                          54710                   SA7    A1          IND[BINWORD] = IND                          FAS      3293
          1734  0100002232 +                      RJ     REL                                                     FAS      3294
          1735  5110000055 +                      SA1    BINWORD                                                 FAS      3295
                          5120000056 +            SA2    BINREL                                                  FAS      3296
                                                                                                                 FAS      3297
          1736  5130000000 X             KIO110   SA3    T.PTXTR                                                 FAS      3298
                          64300                   SB3    A0                                                      FAS      3299
                               10611              BX6    X1                                                      FAS      3300
          1737  54001                             =A0    A0+1        STIND = STIND + 1                           FAS      3301
                     53633                        SA6    X3+B3       T.PTXTR(STIND) = BINARY WORD                FAS      3302
                          0100002374 +            RJ     STX         STORE THE TEXT WORD                         FAS      3303
          1740  0400001625 +                      EQ     KIO10                                                   FAS      3304
                                                                                                                 FAS      3305
                                 214 +   KIOA     EQU    TEMP        SAVED SECOND WORD OF I/O AP                 FAS      3306
                                 215 +   KIOB     EQU    TEMP+1      SAVED T.IOA INDEX                           FAS      3307
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    71
        ASSEMBLER SUPPORTING ROUTINES                                 KNG 
  
                                        **        KNG - KOMPILE NAMELIST GROUP DEFINITIONS.                      FAS      3309
                                                                                                                 FAS      3310
                                                                                                                 FAS      3311
                                        **        DEFINE NAMELIST DEFINITION BINARY OUTPUT FORMATS.              FAS      3312
                                                                                                                 FAS      3313
                                                  DESCRIBE   NA.     GROUP DEFINITION HEADER                     FAS      3314
      L     22  77777777777777000000     GNAM     DEFINE WA.SYML     GROUP NAME, L FORMAT                        FAS      3315
      L      0  00000000000000777777     NMEM     DEFINE 18          NUMBER OF GROUP MEMBERS                     FAS      3316
                                                                                                                 FAS      3317
                                                  DESCRIBE   NB.     MEMBER HEADER                               FAS      3318
      L     22  77777777777777000000     MNAM     DEFINE WA.SYML     MEMBER NAME, L FORMAT                       FAS      3319
      L      0  00000000000000777777     DADR     DEFINE 18          IF ARRAY, ADDR OF RUN-TIME DIM TABLE.       FAS      3320
                                                                     IF VARIABLE, =0.                            FAS      3321
                                                                                                                 FAS      3322
                                                  DESCRIBE   NC.     MEMBER APLIST -- SAME AS STANDARD I/O APL.  FAS      3323
      L      0  77777777777777777777     TEMP     DEFINE 60          *****  TEMP  *****                          FAS      3324
                                                                                                                 FAS      3325
                                                                                                                 FAS      3326
                                                                                                                 FAS      3327
          1741  0400401741 +             KNG      SUBR   0           ENTRY/EXIT...                               FAS      3328
                                                                                                                 FAS      3329
                                        *         ISSUE RUN-TIME ARRAY DIMENSION INFO TABLES.                    FAS      3330
                                                                                                                 FAS      3331
          1742  0100001375 +                      RJ     DTX         INITIALIZE TEXT TABLE                       FAS      3332
          1743  43700                             MX7    0           SELECT ONLY MATERIAL DIM ENTRIES            FAS      3333
                     0100002031 +                 RJ     ORD         OUTPUT RUN-TIME DIM TABLE                   FAS      3334
                                                                                                                 FAS      3335
                                        *         ISSUE NAMELIST GROUP DEFINITIONS.                              FAS      3336
                                                                                                                 FAS      3337
          1744  5110000000 X                      SA1    S=RD                                                    FAS      3338
                          5120000000 X            SA2    T.SYM                                                   FAS      3339
          1745  43652                             MX6    -PB.BIASL                                               FAS      3340
                     22311                        LX3    X1,B1                                                   FAS      3341
                          36731                   IX7    X3+X1                                                   FAS      3342
                               43000              MX0    0                                                       FAS      3343
                                   0              ERRNZ  Z=SYM-3                                                 FAS      3344
          1746  5160002321 +                      SA6    RELMASK                                                 FAS      3345
                          5160000204 +            SA6    SUBFLG      INHIBIT *SUB*                               FAS      3346
          1747  6227000002                        SB2    X7+WC.W                                                 FAS      3347
                          53122                   SA1    X2+B2       T.SYM WORD C FOR *RD.* ENTRY                FAS      3348
                               43344              MX3    -WC.RAL                                                 FAS      3349
                                                  LX1    -WC.RAP                                                 FAS      3350
          1750  15613                             BX6    -X3*X1                                                  FAS      3351
                     5160000215 +                 SA6    KNGB        (KNGB) = SAVE LOCAL COPY OF R-T DIM RA      FAS      3352
                               27700              PX7    X0                                                      FAS      3353
          1751  5170000214 +                      SA7    KNGA        INITIALIZE LOOP RESTART PARAMS              FAS      3354
                                                                                                                 FAS      3355
                                        *         (KNG10)  PROCESS A NAMELIST GROUP.                             FAS      3356
                                                                                                                 FAS      3357
          1752  5110000214 +             KNG10    SA1    KNGA                                                    FAS      3358
                          26621                   UX6,B2 X1          (B2) = T.NLST ORD OF GRP-NAME (=0)          FAS      3359
                                                                                                                 FAS      3360
                                         .T       IFEQ   TEST,ON                                                 FAS      3361
                                                  NZ     B2,"BLOWUP" IF NOT GRP-NAME REQUEST                     FAS      3362
                                         .T       ENDIF                                                          FAS      3363
                                                                                                                 FAS      3364
                               63310              SB3    X1          (B3) = T.NLST INDEX OF FWA GROUP            FAS      3365
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    72
        ASSEMBLER SUPPORTING ROUTINES                                 KNG 
  
          1753  0100002347 +                      RJ     SNR         SET NAMELIST REGISTERS                      FAS      3366
          1754  0730001776 +                      MI     B3,KNG90    IF NO MORE GROUPS                           FAS      3367
                          76330                   SX3    B3          SAVE RESTART PARAMS                         FAS      3368
                               27623              PX6    X3,B2                                                   FAS      3369
          1755  5160000214 +                      SA6    KNGA                                                    FAS      3370
                          55111                   =A1    A1+WA.W-WB.W                                            FAS      3371
                               43052              MX0    NA.GNAML                                                FAS      3372
          1756  76340                             SX3    B4          NUMBER OF GROUP MEMBERS                     FAS      3373
                                                  HX1    WA.SYM                                                  FAS      3374
                     11101                        BX1    X0*X1                                                   FAS      3375
                                                  LX3    NA.NMEMP                                                FAS      3376
                          76200                   =X2    0           (X2) = NO RELOC                             FAS      3377
                                   0              ERRNZ  NA.GNAMP-WA.SYMP                                        FAS      3378
                               36113              IX1    X1+X3       (X1) = 42/ GRP-NAME, L FORMAT,  18/ NR MEMS FAS      3379
          1757  0100002374 +                      RJ     STX         ISSUE GROUP DEFINITION HEADER               FAS      3380
                                                                                                                 FAS      3381
                                        *         (KNG20)  PROCESS A NAMELIST GROUP MEMBER.                      FAS      3382
                                                                                                                 FAS      3383
          1760  5110000214 +             KNG20    SA1    KNGA                                                    FAS      3384
                          26621                   UX6,B2 X1                                                      FAS      3385
                               63310              SB3    X1                                                      FAS      3386
          1761  0420001752 +                      ZR     B2,KNG10    IF NO MORE MEMBERS IN CURRENT GROUP         FAS      3387
                          0100002347 +            RJ     SNR         SET NAMELIST REGISTERS                      FAS      3388
          1762  74710                             SX7    A1                                                      FAS      3389
                     76330                        SX3    B3          SAVE RESTART PARAMS                         FAS      3390
                          27623                   PX6    X3,B2                                                   FAS      3391
          1763  5160000214 +                      SA6    KNGA                                                    FAS      3392
                          5170000216 +            SA7    KNGC        SAVE ADDRESS OF WB WORD                     FAS      3393
          1764  55311                             =A3    A1+WA.W-WB.W      EXTRACT MEMBER NAME                   FAS      3394
                     43052                        MX0    NB.MNAML                                                FAS      3395
                                                  HX3    WA.SYM                                                  FAS      3396
                          11603                   BX6    X0*X3                                                   FAS      3397
                                   0              ERRNZ  NB.MNAMP-WA.SYMP                                        FAS      3398
                               36162              IX1    X6+X2       MERGE ADDR OF RUN-TIME DIM INFO             FAS      3399
                                                                                                                 FAS      3400
                                        *         SEND MEMBER INFO TO BINARY OUTPUT FILE.                        FAS      3401
                                                                                                                 FAS      3402
          1765  43001                             MX0    1                                                       FAS      3403
                     76200                        =X2    0           (X2) = PRESET NO RELOC                      FAS      3404
                          20022                   LX0    NB.DADRP+NB.DADRL                                       FAS      3405
                               11601              BX6    X0*X1       EXTRACT  *SIMPLE VAR*  FLAG BIT             FAS      3406
          1766  5130000215 +                      =A3    KNGB                                                    FAS      3407
                          15110                   BX1    -X0*X1      CLEAR FLAG IF SET                           FAS      3408
          1767  0316001770 +                      NZ     X6,KNG32    IF SIMPLE VARIABLE                          FAS      3409
                          36113                   IX1    X1+X3       RELOCATE RUN-TIME DIMTAB ADDRESS            FAS      3410
                               76211              =X2    2           (X2) = LOWER PARCEL, PROGRAM RELOCATION     FAS      3411
          1770  0100002374 +             KNG32    RJ     STX         ISSUE MEM-NAME, DIMTAB ADDR                 FAS      3412
                                                                                                                 FAS      3413
                                        *         ISSUE MEMBER I/O APLIST WORD.                                  FAS      3414
                                        *         (X5) = SYMORD OF MEMBER.                                       FAS      3415
                                                                                                                 FAS      3416
          1771  5120000216 +                      SA2    KNGC                                                    FAS      3417
                          53120                   SA1    X2          WBI = WB WORD OF MEMBER                     FAS      3418
          1772  0100002120 +                      RJ     PAW         PREPARE I/O APLIST WORD                     FAS      3419
          1773  5110000055 +                      SA1    BINWORD                                                 FAS      3420
                          5120000056 +            SA2    BINREL                                                  FAS      3421
          1774  0100002374 +                      RJ     STX                                                     FAS      3422
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    73
        ASSEMBLER SUPPORTING ROUTINES                                 KNG 
  
          1775  0400001760 +                      EQ     KNG20       LOOP FOR NEXT MEMBER                        FAS      3423
                                                                                                                 FAS      3424
                                        *         (KNG90)  HERE WHEN ALL GROUPS DONE.                            FAS      3425
                                                                                                                 FAS      3426
          1776  13666                    KNG90    BX6    0                                                       FAS      3427
                                 215 +   OCLB     EQU    TEMP+1      SAVED T.CLW INDEX                           FAS      3428
                     5160000204 +                 SA6    SUBFLG                                                  FAS      3429
          1777  0400001741 +                      EQ     EXIT.                                                   FAS      3430
                                                                                                                 FAS      3431
                                                                                                                 FAS      3432
                                                                                                                 FAS      3433
                                 214 +   KNGA     EQU    TEMP        RESTART INFO - 12/CURR ORD,48/IX GROUP FWA  FAS      3434
                                 215 +   KNGB     =      KNGA+1      LOCAL COPY OF  WC.RA  FOR *RD.*             FAS      3435
                                 216 +   KNGC     =      KNGB+1      MEM-NAME, RUN-TIME DIMTAB ADDR              FAS      3436
                                 217 +   KNGD     =      KNGC+1      LOCAL COPY OF WC.RA FOR *VD.*               FAS      3437
  
  
  
  
                                        **        OCL - OUTPUT CHARACTER LENGTH ARRAYS.                          FAS      3439
                                        *                                                                        FAS      3440
                                        *                CALLED AFTER *KIO* TO REFORMAT T.CLW INTO BINARY        FAS      3441
                                        *                FORM DEFINED AS LO. .                                   FAS      3442
                                        *                BINARY IS SAVED IN A SCRATCH TABLE FOR LISTING.         FAS      3443
                                        *                                                                        FAS      3444
                                        *         ENTRY  (ORG) AND TEXT TABLE SET UP.                            FAS      3445
                                        *                                                                        FAS      3446
                                        *         USES   ALL, T.CLWB                                             FC5A219    13
                                        *                                                                        FC5A219    14
                                        *         CALLS  REL,STX                                                 FAS      3448
                                        *                                                                        FC5A219    15
                                        *         CELLS  OCLA,OCLB,OCLC                                          FAS      3449
                                                                                                                 FAS      3450
                                                                                                                 FAS      3451
                                        **        LO. - FORMAT OF CHARACTER LENGTH ARRAYS.                       FAS      3452
                                        *         *OCL* TRANSLATES T.CLW INTO THIS BINARY FORM.                  FAS      3453
                                                                                                                 FAS      3454
                                                                                                                 FAS      3455
                                                  DESCRIBE LO.,60                                                FAS      3456
      L     73  40000000000000000000     LCMC     DEFINE 1           LCM BIT FOR COUNT (NOT USED)                FAS      3457
      L     72  20000000000000000000     FPC      DEFINE 1           FP BIT FOR COUNT  (NOT USED)                FAS      3458
      L     71  10000000000000000000     INDC     DEFINE 1           =1 IF LO.CNT IS ADDRESS                     FAS      3459
                                                  DEFINE 9                                                       FC50137     9
      L     36  00007777770000000000     LEN      DEFINE 18          NO. OF CHARS IN EACH CHAR ARRAY ELEMENT     FAS      3463
                                                  DEFINE 2                                                       FC50137    10
      L     33  00000000001000000000     INDL     DEFINE 1           =1 IF LO.LEN IS ADDRESS                     FC50137    11
                                                  DEFINE 3                                                       FC50137    12
      L      0  00000000000077777777     CNT      DEFINE 24          NO. OF ELEMENTS TO BE PROCESSED             FC50137    13
                                                                                                                 FAS      3465
                                                                                                                 FAS      3466
          2000  0400402000 +             OCL      SUBR   0           ENTRY/EXIT.                                 FAS      3467
          2001  5130000000 X                      SA3    T=CLW                                                   FAS      3468
                          5100000000              SA0    0           (A0) = STIND = STORE INDEX FOR T.SCR        FAS      3469
          2002  23013                             AX0,X3,B1                                                      FAS      3470
                     74600                        SX6    A0                                                      FAS      3471
                          5160000215 +            SA6    OCLB        (OCLB) = INDEX = 0                          FAS      3472
          2003  5110000000 X                      ALLOC  T.CLWB,X0   ALLOCATE (T=CLW)/2 SPACES                   FC5A219    16
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    74
        ASSEMBLER SUPPORTING ROUTINES                                 OCL 
  
                                                                                                                 FAS      3474
                                        *         PROCESS NEXT ENTRY FROM T.CLW.                                 FAS      3475
                                                                                                                 FAS      3476
          2004  5120000000 X             OCL10    SA2    T=CLW                                                   FAS      3477
                          5110000000 X            SA1    T.CLW                                                   FAS      3478
          2005  5140000215 +                      SA4    OCLB        INDEX = (OCLB)                              FAS      3479
                          76311                   =X3    Z=CLW                                                   FAS      3480
                               37742              IX7    X4-X2                                                   FAS      3481
          2006  36643                             IX6    X4+X3                                                   FAS      3482
                     0307002000 +                 ZR     X7,EXIT.    IF END OF T.CLW                             FAS      3483
                               36214              IX2    X1+X4                                                   FAS      3484
          2007  53320                             SA3    X2          CL1 = T.CLW(INDEX)                          FAS      3485
                     54531                        =A5    A3+1        CL2 = CL1 + 1                               FAS      3486
                          54640                   SA6    A4          (OCLB) = INDEX + Z=CLW                      FAS      3487
                                                                                                                 FAS      3488
                                        *         PROCESS COUNT WORD - CL2.                                      FAS      3489
                                                                                                                 FAS      3490
                               43052              MX0    -IA.TAGL                                                FAS      3491
          2010  10633                             BX6    X3                                                      FAS      3492
                     5160000214 +                 SA6    OCLA        (OCLA) = CL1                                FAS      3493
                               20522              LX5    -IA.TAGP                                                FAS      3494
          2011  76700                             =X7    0           INDC = 0                                    FAS      3495
                     15250                        BX2    -X0*X5      TAGI = TAG[CL2]                             FAS      3496
                          0302002013 +            ZR     X2,OCL20    IF TAGI .EQ. 0                              FAS      3497
          2012  76710                             SX7    B1          INDC = 1                                    FAS      3498
          2013  66210                    OCL20    =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3499
                     43644                        MX6    -LO.CNTL                                                FAS      3500
                          5160002321 +            SA6    RELMASK                                                 FAS      3501
          2014  20771                             LX7    LO.INDCP                                                FAS      3502
                     43314                        MX3    PB.GHIJL                                                FAS      3503
                          5170000055 +            SA7    BINWORD     INDC[BINWORD] = INDC                        FAS      3504
          2015  20536                             LX5    PB.TAGP                                                 FAS      3505
                     15553                        BX5    -X3*X5      CLEAR (GHIJ) FIELD                          FAS      3506
                          0100002232 +            RJ     REL                                                     FAS      3507
                                                                                                                 FAS      3508
                                        *         PROCESS LENGTH WORD - CL1.                                     FAS      3509
                                                                                                                 FAS      3510
          2016  5150000214 +                      SA5    OCLA        CL1 = (OCLA)                                FAS      3511
                          43052                   MX0    -IA.TAGL                                                FAS      3512
                               20522              LX5    -IA.TAGP                                                FAS      3513
          2017  15250                             BX2    -X0*X5      TAGI = TAG[CL1]                             FAS      3514
                     76700                        =X7    0           INDL = 0                                    FAS      3515
                          20536                   LX5    PB.TAGP                                                 FAS      3516
          2020  0302002021 +                      ZR     X2,OCL30    IF TAGI .EQ. 0                              FAS      3517
                          7170000001              SX7    1           INDL = 1                                    FAS      3518
          2021  6120000003               OCL30    =B2    3           INDICATE UPPER PARCEL RELOCATION            FAS      3519
                          5120000055 +            SA2    BINWORD                                                 FAS      3520
          2022  20733                             LX7    LO.INDLP                                                FAS      3521
                     12727                        BX7    X2+X7                                                   FAS      3522
                          43652                   MX6    -LO.LENL                                                FAS      3523
                               43314              MX3    PB.GHIJL                                                FAS      3524
          2023  15553                             BX5    -X3*X5      CLEAR (GHIJ) FIELD)                         FAS      3525
                     54720                        SA7    A2          INDL[BINWORD] = INDL                        FAS      3526
                          5160002321 +            SA6    RELMASK                                                 FAS      3527
          2024  0100002232 +                      RJ     REL                                                     FAS      3528
          2025  5110000055 +                      SA1    BINWORD                                                 FAS      3529
                          5120000056 +            SA2    BINREL                                                  FAS      3530
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    75
        ASSEMBLER SUPPORTING ROUTINES                                 OCL 
  
          2026  5130000000 X                      SA3    T.CLWB                                                  FC5A219    17
                          64300                   SB3    A0                                                      FAS      3532
                               10611              BX6    X1                                                      FAS      3533
          2027  54001                             =A0    A0+1        STIND = STIND + 1                           FAS      3534
                     53633                        SA6    X3+B3       T.CLWB(STIND) = BINARY WORD                 FC5A219    18
                          0100002374 +            RJ     STX         STORE INTO TEXT WORD                        FAS      3536
          2030  0400002004 +                      EQ     OCL10                                                   FAS      3537
                                                                                                                 FAS      3538
                                 214 +   OCLA     EQU    TEMP        SAVED SECOND WORD OF CHARACTER LENGTH WORD  FAS      3539
  
  
  
  
                                        **        ORD -  OUTPUT RUN-TIME DIMENSION TABLE.                        FAS      3541
                                        *                                                                        FAS      3542
                                        *         ENTRY  (X7) = 0      IF OUTPUT ENTRIES FOR DH.MAT ON ONLY.     FAS      3543
                                        *                     = DH.MAT IF OUTPUT ALL DIMENSION ENTRIES.          FAS      3544
                                        *                (SAVVD) = WC.RA OF *VD.*                                FAS      3545
                                        *         USES   ALL, T.SCR                                              FAS      3546
                                        *         CALLS  DTX,STX                                                 FAS      3547
                                        *         CELLS  ORDA                                                    FAS      3548
                                                                                                                 FAS      3549
                                                                                                                 FAS      3550
          2031  0400402031 +             ORD      SUBR   0           ENTRY/EXIT.                                 FAS      3551
          2032  5170000216 +                      SA7    ORDA                                                    FAS      3552
                          43600                   MX6    0                                                       FAS      3553
          2033  5100000000                        SA0    0           (A0) = CURRENT T.DIM PROCESSING INDEX       FAS      3554
                          5160000000 X            SHRINK T=SCR,X6                                                FAS      3555
          2034  5110000000 X             ORD10    SA1    T=DIM                                                   FAS      3556
                          5120000000 X            SA2    T.DIM                                                   FAS      3557
          2035  64200                             SB2    A0                                                      FAS      3558
                     63310                        SB3    X1                                                      FAS      3559
                          0623002031 +            GE     B2,B3,EXIT. IF END OF T.DIM, EXIT.                      FAS      3560
          2036  53122                             SA1    X2+B2       (X1) = NEXT ARRAY DIM HEADER                FAS      3561
                     5130000216 +                 SA3    ORDA                                                    FAS      3562
                               43401              CLAS=  X4,DH,(MAT)                                             FAS      3563
                     11441                        BX4    X4*X1       MATI = MAT[DIM HEADER]                      FAS      3564
                          10211                   BX2    X1                                                      FAS      3565
                               20266              HX2    DH.DIM                                                  FAS      3566
          2040  21266                             AX2    -DH.DIML                                                FAS      3567
                     36022                        IX0    X2+X2       (X0) = 2 * NR DIMS                          FAS      3568
                          12743                   BX7    X4+X3       MATI .OR. (ORDA)                            FAS      3569
          2041  0317002043 +                      NZ     X7,ORD20    IF DIM INFO TO BE ISSUED FOR ARRAY          FAS      3570
                          63201                   =B2    X0+1                                                    FAS      3571
                               54002              SA0    A0+B2       ADVANCE INDEX TO NEXT ARRAY HEADER          FAS      3572
          2042  0400002034 +                      EQ     ORD10                                                   FAS      3573
                                                                                                                 FAS      3574
          2043  5120002435 +             ORD20    CLAS=  X2,DH,(VD,AS,DIM)                                       FAS      3575
                          11121                   BX1    X2*X1                                                   FAS      3576
                               76200              =X2    0           (X2) = NO RELOCATION                        FAS      3577
          2044  54001                             =A0    A0+1        ADVANCE INDEX TO 1ST DIMENSION / SAVE       FAS      3578
                     63200                        SB2    X0                                                      FAS      3579
                          74502                   SX5    A0+B2       SAVE INDEX OF NEXT ARRAY HEADER (OR E-O-T)  FAS      3580
          2045  0100002415 +                      RJ     WWB         ISSUE HEADER                                FAS      3581
          2046  5120000000 X             ORD40    SA2    T.DIM                                                   FAS      3582
                          64201                   =B2    A0+1                                                    FAS      3583
                               53422              SA4    X2+B2       D2I = UB/LB WORD OF T.DIM                   FAS      3584
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    76
        ASSEMBLER SUPPORTING ROUTINES                                 ORD 
  
          2047  55341                             =A3    A4-D2.W+D1.W      D1I = SPAN WORD OF T.DIM              FAS      3585
                     56021                        =A0    B2+1        ADVANCE TO NEXT DIM                         FAS      3586
                          10133                   BX1    X3                                                      FAS      3587
                               43601              MX6    1                                                       FAS      3588
          2050  20136                             HX1    D1.SPAN                                                 FAS      3589
                     5120000213 +                 SA2    SAVVD       RAVD = (SAVVD)                              FAS      3590
                               11761              BX7    X6*X1       RELOC BIT FOR SPAN                          FAS      3591
          2051  20704                             LX7    4           (UPPER PARCEL RELOCATION)                   FAS      3592
                     21173                        AX1    59          SIGN EXTEND TD[SPAN]                        FAS      3593
                          11112                   BX1    X1*X2       BASERA = RAVD IFF TD[SPAN] .EQ. 1           FAS      3594
                               10244              BX2    X4                                                      FAS      3595
                                                  HX2    D2.LB                                                   FAS      3596
          2052  20406                             LX4    -D2.LBP-DM.INFP-DM.INFL                                 FC5A231   145
                     36331                        IX3    X3+X1       SPANI = SPANI + BASERA                      FAS      3598
                          54120                   SA1    A2          RAVD = (SAVVD)                              FC50905     5
                               21273              AX2    59          SIGN EXTEND TD[LB]                          FAS      3599
          2053  21444                             AX4    -DM.INFL    LBI = LB[D2I], SIGN EXTENDED                FC5A231   146
                     11121                        BX1    X2*X1       BASERA = RAVD IFF TD[LB] .EQ. 1             FAS      3601
                          36441                   IX4    X4+X1       LBI = LBI + BASERA                          FAS      3602
                               11262              BX2    X6*X2       RELOC BIT FOR LB                            FAS      3603
          2054  20236                             LX2    1+DM.TDP                                                FC5A231   147
                     43144                        MX1    -DM.INFL                                                FC5A231   148
                          15441                   BX4    -X1*X4      TRUNCATE LBI TO DI.INFL                     FAS      3606
                               12442              BX4    X4+X2       ADD IN TD BIT                               FAS      3607
          2055  20240                             LX2    -DM.TDP+1   (LOWER PARCEL RELOC FOR LB)                 FC5A231   149
                     12227                        BX2    X2+X7       RELOC BYTES FOR LB AND SPAN                 FAS      3609
                          20336                   LX3    30                                                      FAS      3610
                               12134              BX1    X3+X4       30/SPAN,30/LB                               FAS      3611
          2056  0100002415 +                      RJ     WWB         ISSUE DIMENSION INFO WORD                   FAS      3612
          2057  64200                             SB2    A0                                                      FAS      3613
                     63350                        SB3    X5                                                      FAS      3614
                          0723002046 +            LT     B2,B3,ORD40 IF ANOTHER DIMENSION                        FAS      3615
          2060  0400002034 +                      EQ     ORD10       LOOP FOR NEXT ARRAY                         FAS      3616
                                                                                                                 FAS      3617
                                 216 +   ORDA     EQU    TEMP+2      SAVED DH.MAT BIT                            FAS      3618
  
  
  
  
                                        **        OSB -  OUTPUT  SUB  BLOCKS FOR  *SUB* / *SUB0*  OBJECT         FAS      3620
                                        *         TABLE TEXTS.                                                   FAS      3621
                                        *         ENTRY- A4 -> FWA OF SUB TABLE (T.SUB / T.SUB0)                 FAS      3622
                                        *                (X7) = LOCAL BLOCK ORDINAL (BN=) OF SUB BLOCK           FAS      3623
                                        *         EXIT - OBJECT TABLE FLUSHED TO LGO.                            FAS      3624
                                        *         CALLS - PUSE,DTX                                               FAS      3625
                                                                                                                 FAS      3626
                                                                                                                 FAS      3627
          2061  0400402061 +             OSB      SUBR               ENTRY/EXIT.                                 FAS      3628
          2062  5054000000 X                      SA5    A4+N.TABLE                                              FAS      3629
                          0305002061 +            ZR     X5,EXIT.    IF NO SUB TABLE TO DUMP                     FAS      3630
                                                                                                                 FAS      3631
                                        *         ISSUE A *USE* PSEUDO TO SWITCH ORG SUB BLOCK.                  FAS      3632
                                                                                                                 FAS      3633
          2063  5120000000 X                      SA2    CBI                                                     FAS      3634
                          10622                   BX6    X2                                                      FAS      3635
                               20714              LX7    PB.BIASP                                                FAS      3636
          2064  5160000214 +                      SA6    SAVCBI      SAVE CURRENT BLOCK INDEX                    FAS      3637
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    77
        ASSEMBLER SUPPORTING ROUTINES                                 OSB 
  
                          0100002210 +            RJ     PUSE        SWITCH ORG PARCEL COUNTS TO SUB BLOCK       FAS      3638
          2065  73050                             SX0    X5                                                      FAS      3639
                     5204777776                   SA0    X4-1        TABI = FWA OF TABLE - 1                     FAS      3640
          2066  0100001375 +                      RJ     DTX         DUMP TEXT TABLE                             FAS      3641
                                                                                                                 FAS      3642
                                        *         DUMP NEXT TABLE ENTRY TO THE TEXT.                             FAS      3643
                                        *         (A0) = TABI                                                    FAS      3644
                                        *         (X0) = LENTAB                                                  FAS      3645
                                                                                                                 FAS      3646
          2067  7200777776               OSB10    SX0    X0-1                                                    FAS      3647
                          54001                   =A0    A0+1        TABI = TABI + 1                             FAS      3648
                               54100              SA1    A0          TABLE ENTRY = (TABI)                        FAS      3649
          2070  0330002074 +                      MI     X0,OSB30    IF END OF TABLE                             FAS      3650
                          76211                   =X2    2           INDICATE PROGRAM RELOCATION BYTE            FAS      3651
          2071  0311002072 +                      NZ     X1,OSB20    IF NOT ZERO                                 FAS      3652
                          7120000000              SX2    0           NO RELOCATION FOR ZERO WORD                 FAS      3653
          2072  0100002374 +             OSB20    RJ     STX         STORE INTO TEXT                             FAS      3654
          2073  0400002067 +                      EQ     OSB10                                                   FAS      3655
                                                                                                                 FAS      3656
                                        *         RESTORE TO ORG IN USE BEFORE SUB BLOCK.                        FAS      3657
                                                                                                                 FAS      3658
          2074  5140000214 +             OSB30    SA4    SAVCBI      PICK UP OLD INDEX TO LBT                    FAS      3659
                          20414                   LX4    PB.BIASP                                                FAS      3660
                               10744              BX7    X4                                                      FAS      3661
          2075  0100002210 +                      RJ     PUSE        SWITCH ORG, PARCEL COUNTS BACK TO ORIGINAL  FAS      3662
          2076  0400002061 +                      EQ     EXIT.                                                   FAS      3663
  
  
  
  
                                        **        OTB -  OUTPUT TABLE TO BINARY.                                 FAS      3665
                                        *                                                                        FAS      3666
                                        *         ENTRY  (A5,X5) = FWA OF TABLE TO BE DUMPED                     FAS      3667
                                        *                (A0) _ HEADER WORD                                      FC50809    55
                                        *                (X0) = LAST TABLE ENTRY BIT TO BE SET (BT.LTB)          FAS      3669
                                        *                                                                        FC50809    56
                                        *         EXIT   TABLE WRITTEN TO BINARY FILE, SIZE SHRUNK TO ZERO.      FAS      3670
                                        *                                                                        FC50809    57
                                        *         CALLS  WLF                                                     FC50809    58
                                                                                                                 FAS      3672
                                                                                                                 FAS      3673
          2077  0400402077 +             OTB      SUBR   0           ENTRY/EXIT.                                 FAS      3674
                                   0              ERRMI  1-FUDGE                                                 FAS      3675
                                                                                                                 FC50809    59
          2100  5025000000 X             OTB10    SA2    A5+N.TABLE  LEN = LEN(TAB)                              FAS      3676
                          43700                   MX7    0           NEWLEN = 0                                  FAS      3677
                               10400              BX4    X0          LTB = LTB BIT                               FAS      3678
          2101  7212770000                        SX1    X2-BT=MXWC                                              FAS      3679
                          0302002077 +            ZR     X2,EXIT.    IF NO MORE ENTRIES                          FAS      3680
          2102  0331002104 +                      MI     X1,OTB20    IF TABLEN .LT. MAXWC                        FAS      3681
                          7120007777              SX2    BT=MXWC     LEN = MAXLEN                                FAS      3682
          2103  10711                             BX7    X1          NEWLEN = LEN - MAXLEN                       FAS      3683
                     43400                        MX4    0           LTB = 0                                     FAS      3684
                                                                                                                 FC50809    60
          2104  36652                    OTB20    IX6    X5+X2       FWA(TAB) = FWA(TAB) + LEN                   FAS      3685
                     63420                        SB4    X2                                                      FAS      3686
                          20244                   LX2    BT.WCP                                                  FAS      3687
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    78
        ASSEMBLER SUPPORTING ROUTINES                                 OTB 
  
                               54720              SA7    A2          LEN(TAB) = NEWLEN                           FAS      3688
          2105  54300                             SA3    A0                                                      FAS      3689
                     12732                        BX7    X3+X2                                                   FAS      3690
                          12774                   BX7    X7+X4       ADD IN BT.LTB                               FAS      3691
          2106  5275777776                        SA7    X5-1                                                    FAS      3692
                          10566                   BX5    X6          ADJUST FWA                                  FAS      3693
                               64670              WLGO   A7,B4+B1                                                FAS      3694
          2110  0400002100 +                      EQ     OTB10                                                   FAS      3695
  
  
  
  
                                        **        OTC -  OUTPUT TABLE (COUNTED) TO BINARY.                       FC50809    62
                                        *                                                                        FC50809    63
                                        *         ENTRY  (A5,X5) = FWA OF TABLE TO BE DUMPED                     FC50809    64
                                        *                                                                        FC50809    65
                                        *         EXIT   TABLE WRITTEN TO BINARY FILE                            FC50809    66
                                        *                                                                        FC50809    67
                                        *         CALLS  WLF                                                     FC50809    68
                                                                                                                 FC50809    69
                                                                                                                 FC50809    70
          2111  0400402111 +             OTC      SUBR   0           ENTRY/EXIT.                                 FC50809    71
                                                                                                                 FC50809    72
          2112  53250                    OTC10    SA2    X5          FETCH GROUP HEADER                          FC50809    73
                     0302002111 +                 ZR     X2,EXIT.    IF NO MORE ENTRIES                          FC50809    74
                               20252              HX2    DC.CNT                                                  FC50809    75
          2113  21252                             AX2    -DC.CNTL    EXTRACT GROUP SIZE                          FC50809    76
                     36652                        IX6    X5+X2       FWA(TAB) = FWA(TAB) + LEN                   FC50809    77
                          63420                   SB4    X2                                                      FC50809    78
                               20244              LX2    BT.WCP                                                  FC50809    79
          2114  5130000030 +                      SA3    BT.PTEXT                                                FC50809    80
                          12732                   BX7    X3+X2                                                   FC50809    81
                               53750              SA7    X5          BT.PTEXT HEADER                             FC50809    82
          2115  73561                             =X5    X6+1        ADJUST FWA                                  FC50809    83
                     64670                        WLGO   A7,B4+B1                                                FC50809    84
          2117  0400002112 +                      EQ     OTC10                                                   FC50809    85
  
  
  
  
                                        **        PAW -  PREPARE AP-LIST WORD FOR NAMELIST GROUP MEMBER.         FAS      3697
                                        *                                                                        FAS      3698
                                        *         ENTRY  (X5) = T.SYM ORDINAL FOR NAME                           FAS      3699
                                        *                 A1,(X1) = WB.W WORD OF NAME                            FAS      3700
                                        *         EXIT   (BINWORD) = AP-LIST WORD                                FAS      3701
                                        *                (BINREL) = RELOCATION BYTE FOR THE AP-LIST WORD         FAS      3702
                                        *         CALLS  REL                                                     FAS      3703
                                        *         USES   ALL                                                     FAS      3704
                                                                                                                 FAS      3705
                                                                                                                 FAS      3706
          2120  0400402120 +             PAW      SUBR               ENTRY/EXIT.                                 FAS      3707
          2121  43744                             MX7    -WC.RAL                                                 FAS      3708
                     5170002321 +                 SA7    RELMASK     SET MASK FOR *REL*                          FAS      3709
                               54311              =A3    A1-WB.W+WC.W      = WCI                                 FAS      3710
          2122  10433                             BX4    X3                                                      FAS      3711
                     43071                        MX0    -WB.MODEL                                               FAS      3712
                                                  LX1    -WB.MODEP                                               FAS      3713
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    79
        ASSEMBLER SUPPORTING ROUTINES                                 PAW 
  
                          20344                   LX3    -WC.BCPP                                                FAS      3714
                               15610              BX6    -X0*X1      MODEI = MODE[WBI]                           FAS      3715
          2123  5120000070 +                      SA2    FCLMOD                                                  FAS      3716
                          43770                   MX7    -4                                                      FAS      3717
                               20602              LX6    2                                                       FAS      3718
          2124  63760                             SB7    X6                                                      FAS      3719
                     23272                        AX2    B7                                                      FAS      3720
                          15227                   BX2    -X7*X2                                                  FAS      3721
                               10622              BX6    X2          TYPI[OA] = FCLMOD (MODEI)                   FAS      3722
          2125  20660                             LX6    OA.TYPP                                                 FAS      3723
                     76710                        =X7    1                                                       FAS      3724
                          43070                   MX0    -WC.BCPL                                                FAS      3725
                               15030              BX0    -X0*X3      BCPI = BCP[WCI]                             FAS      3726
          2126  20154                             LX1    WB.MODEP-WB.FPP                                         FAS      3727
                     20367                        LX3    WC.BCPP-WC.CTYPP                                        FAS      3728
                          11271                   BX2    X7*X1       FPI = FP[WBI]                               FAS      3729
                               11373              BX3    X7*X3       CTYPI = CTYP[WCI]                           FAS      3730
          2127  20173                             LX1    WB.FPP-WB.LCMP                                          FAS      3731
                     63220                        SB2    X2          REMEMBER (B2) = FPI                         FAS      3732
                          11771                   BX7    X7*X1       LCMI = LCM[WBI]                             FAS      3733
                               20773              LX7    OA.LCMP                                                 FAS      3734
          2130  20272                             LX2    OA.FPP                                                  FAS      3735
                     12227                        BX2    X2+X7                                                   FAS      3736
                          12662                   BX6    X6+X2                                                   FAS      3737
          2131  0520002144 +                      NZ     B2,PAW20    IF FORMAL PARAMETERS                        FAS      3738
                          20414                   HX4    WC.CLEN                                                 FAS      3739
                               21452              AX4    -WC.CLENL   CLENI = CLEN[WCI]                           FAS      3740
                                         .T       IFEQ   TEST,ON,1                                               FAS      3741
                                                  MI     X4,"BLOWUP" IF CLENI .LT. 0                             FAS      3742
          2132  20030                             LX0    OA.BCPP                                                 FAS      3743
                     20371                        LX3    OA.INDP     IND[OA.] = CTYPI                            FAS      3744
                          12330                   BX3    X3+X0                                                   FAS      3745
                               20436              LX4    OA.LENP                                                 FAS      3746
          2133  12663                             BX6    X6+X3                                                   FAS      3747
                     36664                        IX6    X6+X4                                                   FAS      3748
                          5160000055 +            SA6    BINWORD     (BINWORD) =(LCMI,FPI,MODEI,BCPI,CLENI)[OA.] FAS      3749
                                                                                                                 FAS      3750
                                        *         RELOCATE ADDRESS FOR NAME.                                     FAS      3751
                                        *         (X5) = SYMORD OF NAME.                                         FAS      3752
                                                                                                                 FAS      3753
          2134  66210                             =B2    1           INDICATE LOWER PARCEL RELOCATION            FAS      3754
                     20536                        LX5    PB.TAGP                                                 FAS      3755
                          0100002232 +            RJ     REL                                                     FAS      3756
          2135  5110000055 +                      SA1    BINWORD                                                 FAS      3757
                          20102                   HX1    OA.IND                                                  FAS      3758
                               43752              MX7    -OA.LENL                                                FAS      3759
          2136  0321002120 +                      PL     X1,EXIT.    IF IND[BINWORD] .EQ. 0                      FAS      3760
                                                                                                                 FAS      3761
                                        *         WHEN CTYP[WCI] .EQ. 1, SET LEN[BINWORD] = RELEN,               FAS      3762
                                        *         WHERE  RELLEN IS (S=VD) RELOCATED USING CLEN[WCI] AS BIAS.     FAS      3763
                                        *         INDIRECT BIT HAS ALREADY BEEN SET.                             FAS      3764
                                                                                                                 FAS      3765
                          5150000000 X            SA5    S=VD                                                    FAS      3766
          2137  20134                             LX1    OA.INDP+1-OA.LENP                                       FAS      3767
                     11671                        BX6    X7*X1                                                   FAS      3768
                          15317                   BX3    -X7*X1      CLENI = LEN[BINWORD]                        FAS      3769
                               20636              LX6    OA.LENP                                                 FAS      3770
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    80
        ASSEMBLER SUPPORTING ROUTINES                                 PAW 
  
          2140  54610                             SA6    A1          LEN[BINWORD] = 0                            FAS      3771
                     5170002321 +                 SA7    RELMASK     (RELMASK) = OA.LENL MASK                    FAS      3772
                               20314              LX3    PB.BIASP                                                FAS      3773
          2141  20536                             LX5    PB.TAGP                                                 FAS      3774
                     12553                        BX5    X5+X3                                                   FAS      3775
                          6120000003              =B2    3           INDICATE UPPER PARCEL RELOCATION            FAS      3776
                                   0              ERRNZ  30-OA.LENP                                              FAS      3777
          2142  0100002232 +                      RJ     REL                                                     FAS      3778
          2143  0400002120 +                      EQ     EXIT.                                                   FAS      3779
                                                                                                                 FAS      3780
                                        *         FORMAL PARAMETERS.                                             FAS      3781
                                        *         (X6) = PARTIAL (BINLIST) WORD.                                 FAS      3782
                                                                                                                 FAS      3783
          2144  43063                    PAW20    MX0    -OA.ARGL                                                FAS      3784
                     20154                        LX1    WB.LCMP-WB.FPNOP                                        FAS      3785
                          15010                   BX0    -X0*X1      FPNOI = FPNO[WBI]                           FAS      3786
          2145  7200777776                        =X0    X0-1        FPNOI = FPNOI - 1                           FAS      3787
                                         .T       IFEQ   TEST,ON,1                                               FAS      3788
                                                  MI     X0,"BLOWUP" IF FPNOI .LT. 0                             FAS      3789
                          43700                   MX7    0                                                       FAS      3790
                                                  LX0    OA.ARGP                                                 FAS      3791
                               12660              BX6    X6+X0                                                   FAS      3792
          2146  5160000055 +                      SA6    BINWORD     ARG[BINWORD] = FPNOI                        FAS      3793
                          5170000056 +            SA7    BINREL      INDICATE NO RELOCATION                      FAS      3794
          2147  0400002120 +                      EQ     EXIT.                                                   FAS      3795
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    81
        ASSEMBLER SUPPORTING ROUTINES                                 PIT 
  
                                        **        PIT - PUMPS OUT IDNT (77) TABLE.                               FAS      3797
                                                                                                                 FAS      3798
                                                                                                                 FAS      3799
          2150  0400402150 +             PIT      SUBR   0           ENTRY/EXIT.                                 FAS      3800
          2151  5110000000 X                      SA1    TL.DATE                                                 FAS      3801
                          5120000000 X            SA2    IDENT                                                   FAS      3802
          2152  6120000006                        SB2    CHAR                                                    FAS      3803
                          22621                   LX6    X1,B2                                                   FAS      3804
                               10722              BX7    X2                                                      FAS      3805
          2153  5130000000 X                      SA3    TL.TIME                                                 FAS      3806
                          5160000002 +            SA6    BT.IDNT+2                                               FAS      3807
          2154  5076777776                        SA7    A6-1                                                    FAS      3808
                          5170000061 +            SA7    BT.XFR1                                                 FAS      3809
          2155  22623                             LX6    X3,B2                                                   FAS      3810
                     5066000001                   SA6    A6+1                                                    FAS      3811
          2156  5110000000 X                      SA1    CP.MODL                                                 FAS      3812
                          5120000000 X            SA2    TL.PTYP                                                 FAS      3813
          2157  22601                             LX6    X1                                                      FAS      3814
                     10722                        BX7    X2                                                      FAS      3815
                          5160000015 +            SA6    BT.IDNT+BT.IDNTU                                        FAS      3816
          2160  5170000010 +                      SA7    BT.IDNT+BT.IDN8                                         FAS      3817
                                                                                                                 FC51002    14
                                        *         NOTE -- THE FOLLOWING CODE DEPENDS UPON ARG=COMMON/FIXED       FC51002    15
                                        *                 BEING ILLEGAL, AND CAUGHT DURING INITIALIZATION.       FC51002    16
                                                                                                                 FC51002    17
                          5110000000 X            SA1    CO.ARGC                                                 FC51002    18
          2161  5120000000 X                      SA2    CO.ARGF                                                 FC51002    19
                          20101                   LX1    1                                                       FC51002    20
                               20202              LX2    2                                                       FC51002    21
          2162  36212                             IX2    X1+X2                                                   FC51002    22
                     5212002173 +                 SA1    X2+PITA                                                 FC51002    23
                               22601              LX6    X1                                                      FC51002    24
          2163  5160000014 +                      SA6    BT.IDNT+BT.IDNTB                                        FC51002    25
                                                                                                                 FC5A406     6
                                         #DAL     IFNE   .DAL,0                                                  FC5A406     7
                          5110000000 X            SA1    LEVEL2                                                  FC5A406     8
          2164  5120000007 +                      SA2    BT.IDNT+7   HARDWARE REQUIREMENTS                       FC5A406     9
                          43006                   MX0    CHAR                                                    FC5A406    10
                               20060              LX0    8*CHAR                                                  FC5A406    11
          2165  15220                             BX2    -X0*X2                                                  FC5A406    12
                     7100000055                   SX0    1R                                                      FC5A406    13
          2166  0301002167 +                      ZR     X1,PIT1     IF NO LCM NECESSARY                         FC5A406    14
                          7100000014              SX0    1RL                                                     FC5A406    15
                                                                                                                 FC5A406    16
          2167  20052                    PIT1     LX0    7*CHAR                                                  FC5A406    17
                     12620                        BX6    X2+X0       INSERT LCM FLAG AS NECESSARY                FC5A406    18
                          54620                   SA6    A2                                                      FC5A406    19
                                         #DAL     ENDIF                                                          FC5A406    20
                                                                                                                 FC5A406    21
          2170  6160000000 +                      WLGO   BT.IDNT,L.77+1                                          FAS      3818
          2172  0400002150 +                      EQ     EXIT.                                                   FAS      3819
                                                                                                                 FC51002    26
          2173  01220754251623200503     PITA     DIS    1,ARG=UNSPEC  ARG=-COMMON/-FIXED                        FC51002    27
          2174  01220754031715151716              DIS    1,ARG=COMMON  ARG= COMMON/-FIXED                        FC51002    28
          2175  01220754061130050455              DIS    1,ARG=FIXED   ARG=-COMMON/ FIXED                        FC51002    29
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    82
        ASSEMBLER SUPPORTING ROUTINES                                 POL 
  
                                        *         POL - PRINT OBJECT LISTING.                                    FAS      3821
                                        *                                                                        FAS      3822
                                        *         ENTRY  (X5) = INSTRUCTION                                      FAS      3823
                                        *         EXIT   NONE                                                    FAS      3824
                                        *                                                                        FAS      3825
                                        *         CALLS PIK                                                      FAS      3826
                                                                                                                 FAS      3827
          2176  0400402176 +             POL      SUBR   =           ENTRY/EXIT.                                 FAS      3828
          2177                           POL.EQ   BSSENT 0                                                       FAS      3829
          2177  5120000000 X                      SA2    WO.LOO                                                  FAS      3830
                          5110000000 X            SA1    LINEBUF                                                 FAS      3831
          2200  0302002176 +                      ZR     X2,EXIT.    IF NO OBJECT LISTING REQUESTED              FAS      3832
                          0331002203 +            MI     X1,POL10    IF NOT BEGINNING OF WORD                    FAS      3833
          2201  0100000000 X                      PIA    ,A1         CONVERT ORGIN TO DPC                        FAS      3834
          2203  0100000000 X             POL10    CALL   PIK                                                     FAS      3835
          2204  5110002427 +                      SA1    =10H                                                    FAS      3836
                          10611                   BX6    X1                                                      FAS      3837
          2205  5160000000 X                      SETMEM LINEBUF,5,X6      BLANK FILL LINEBUF 5 WORDS            FAS      3838
          2207  0400002176 +                      EQ     EXIT.                                                   FAS      3839
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    83
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION
  
          2207                                    CTEXT   COMFUSE - PROCESS USE PSEUDO INSTRUCTION               COMFUSE     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFUSE     4
                                                  QUAL   COMFUSE                                                 COMFUSE     5
                                 D_D              BASE   D                                                       COMFUSE     6
  
  
  
  
                                        **        PUSE - PROCESS USE PSEUDO.                                     COMFUSE     8
                                        *                                                                        COMFUSE     9
                                        *         SWITCH *ORG* AND *PARCEL* COUNTERS, SAVING THE OLD             COMFUSE    10
                                        *         AND GETTING THE NEW.                                           COMFUSE    11
                                        *         ENTRY  (X7) = INSTRUCTION (USE PSEUDO)                         COMFUSE    12
                                        *                                                                        COMFUSE    13
                                        *         CAN NOT DESTROY - A0,4,5  X4,5  B2,3,4,5,6                     COMFUSE    14
                                                                                                                 COMFUSE    15
                                                                                                                 COMFUSE    16
          2210  0400402210 +             PUSE     SUBR   0           ENTRY/EXIT                                  COMFUSE    17
                                                                                                                 COMFUSE    18
                                        *         SAVE THE OLD.                                                  COMFUSE    19
                                                                                                                 COMFUSE    20
          2211  5120000000 X                      SA2    =XCBI       CURRENT BLOCK INDEX                         COMFUSE    21
                          43666                   MX6    -LB.PARCL                                               COMFUSE    22
                               43052              MX0    -LB.ORGL                                                COMFUSE    23
          2212  20666                             LX6    LB.PARCP                                                COMFUSE    24
                     63720                        SB7    X2                                                      COMFUSE    25
                          5130000201 +            SA3    =XORG                                                   COMFUSE    26
          2213  5117000000 X                      SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                  COMFUSE    27
                                                  LX0    LB.ORGP                                                 COMFUSE    28
                          11006                   BX0    X0*X6       MASK FOR LB.PARC + LB.ORG                   COMFUSE    29
                                                  LX3    LB.ORGP     POSITION OLD ORG COUNTER                    COMFUSE    30
          2214  5120000202 +                      SA2    =XPARCEL                                                COMFUSE    31
                          11101                   BX1    X0*X1       SAVE ALL BUT LB.ORG AND LB.PARC             COMFUSE    32
                               20266              LX2    LB.PARCP                                                COMFUSE    33
          2215  12323                             BX3    X2+X3       OLD PARCEL  +  ORG                          COMFUSE    34
                     12631                        BX6    X3+X1                                                   COMFUSE    35
                          54610                   SA6    A1                                                      COMFUSE    36
                                                                                                                 COMFUSE    37
                                        *         GET THE NEW.                                                   COMFUSE    38
                                                                                                                 COMFUSE    39
                               20736              HX7    PB.BIAS                                                 COMFUSE    40
          2216  21752                             AX7    -PB.BIASL   ISOLATE INDEX                               COMFUSE    41
                     63770                        SB7    X7                                                      COMFUSE    42
                          5117000000 X            SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                  COMFUSE    43
          2217  15610                             BX6    -X0*X1      ISOLATE NEW PARCEL AND ORG                  COMFUSE    44
                     20152                        HX1    LB.ORG                                                  COMFUSE    45
                          5170000000 X            SA7    =XCBI       SAVE NEW INDEX                              COMFUSE    46
          2220  21152                             AX1    -LB.ORGL                                                COMFUSE    47
                     10711                        BX7    X1                                                      COMFUSE    48
                                                  HX6    LB.PARC                                                 COMFUSE    49
                          21666                   AX6    -LB.PARCL   NEW PARCEL COUNT                            COMFUSE    50
          2221  5170000201 +                      SA7    =XORG                                                   COMFUSE    51
                          5160000202 +            SA6    =XPARCEL                                                COMFUSE    52
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    84
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION                                          COMFUSE 
  
          2222  0400002210 +                      EQ     EXIT.                                                   COMFUSE    53
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFUSE    55
                                                  QUAL   *                                                       COMFUSE    56
                                2210 +   PUSE     EQU    /COMFUSE/PUSE                                           COMFUSE    57
                                         QUAL$    ENDIF                                                          COMFUSE    58
                                         COMFUSE  ENDX                                                           COMFUSE    59
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    85
        SUPPORTING ROUTINES                                           RBS 
  
                                        **        RBS -  RELOCATE  BSS  PSEUDO INSTRUCTION                       FAS      3843
                                        *         ENTRY  (B2) = (PARCEL)                                         FAS      3844
                                        *                (B3) = (PARCEL) - 2                                     FAS      3845
                                        *                (X5) = INSTRUCTION                                      FAS      3846
                                        *                                                                        FAS      3847
                                        *         CALLS  BNW.                                                    FAS      3848
                                                                                                                 FAS      3849
          2223  0400402223 +             RBS      SUBR   0           ENTRY/EXIT                                  FAS      3850
          2224  0100000757 +                      RJ     BNW         FORCE UPPER                                 FAS      3851
          2225  43152                             MX1    -PB.BIASL                                               FAS      3852
                     20560                        LX5    -PB.BIASP                                               FAS      3853
                          5130000201 +            SA3    ORG                                                     FAS      3854
          2226  15151                             BX1    -X1*X5      ISOLATE NO OF WORDS TO BE RESERVED          FAS      3855
                     36613                        IX6    X1+X3                                                   FAS      3856
                          20514                   LX5    PB.BIASP                                                FAS      3857
                               54630              SA6    A3          INCREMENT ORIGIN                            FAS      3858
          2227  0301002230 +                      ZR     X1,RBS1     IF ORG NOT BUMPED                           FAS      3859
                          0100001375 +            RJ     DTX         FLUSH TEXT TABLE                            FAS      3860
                                                                                                                 FAS      3861
          2230  0100002176 +             RBS1     RJ     POL                                                     FAS      3862
          2231  0400002223 +                      EQ     EXIT.                                                   FAS      3863
  
  
  
  
                                        **        REL -  RELOCATE 30-BIT INSTRUCTION.                            FAS      3865
                                        *                                                                        FAS      3866
                                        *         ENTRY  (X5) = INSTRUCTION IN LONG FILE FORM.                   FAS      3867
                                        *                            (PSEUDOS WILL NOT BE CHANGED.)              FAS      3868
                                        *                (B2) = PARCEL TO RECEIVE THIS INSTRUCTION.              FAS      3869
                                        *                            3 _ UPPER                                   FAS      3870
                                        *                            2 _ MIDDLE                                  FAS      3871
                                        *                            1 _ LOWER                                   FAS      3872
                                        *                            0 _ ** SYSERR **                            FAS      3873
                                        *                (ORG) = OBJECT ADDRESS OF THIS INST.                    FAS      3874
                                        *                (RELMASK) = COMPLEMENT MASK OF BIAS FIELD SIZE.         FAS      3875
                                        *                            (-18 FOR INSTRUCTIONS.)                     FAS      3876
                                        *                            (-24 FOR AP-LISTS.)                         FAS      3877
                                        *                (RELPOS) = POSITION OF BIAS FIELD IN (X5)               FC5A281     6
                                        *                (XFIL) = SPECIAL XFILL RELOCATION INDICATOR             FAS      3879
                                        *                                                                        FAS      3880
                                        *         EXIT   (B5) = FPNO[WBI], FOR *BST*                             FAS      3881
                                        *                INSTRUCTION AND RELOCATION HAVE BEEN OR-ED INTO BINWORD FAS      3882
                                        *                            AND BINREL.                                 FAS      3883
                                        *                *LINK* AND *FILL* TABLE ENTRIES MADE AS NECESSARY.      FAS      3884
                                        *                A *SUB* ENTRY MADE INTO T.SUB, IF F.P. AND (SUBFLG)     FAS      3885
                                        *                            .GE. 0.                                     FAS      3886
                                        *                                                                        FAS      3887
                                        *         USES:  A1-A3,A5-A7   B3,B5,B6,B7  X0-X7                        FAS      3888
                                        *         CALLS  ADW, BST                                                FAS      3889
                                        *         *WARNING*          DO NOT DESTROY (B4)                         FAS      3890
                                                                                                                 FAS      3891
                                                                                                                 FAS      3892
          2232  0400402232 +             REL      SUBR               ENTRY/EXIT...                               FAS      3893
          2233  66500                             =B5    0           INITIALIZE FOR *BST*                        FAS      3894
                     5130002321 +                 SA3    RELMASK                                                 FAS      3895
          2234  5110002322 +                      SA1    RELPOS                                                  FAS      3896
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    86
        SUPPORTING ROUTINES                                           REL 
  
                          63310                   SB3    X1                                                      FAS      3897
                               10655              BX6    X5                                                      FAS      3898
          2235  20636                             LX6    -PB.TAGP                                                FAS      3899
                     43214                        MX2    PB.GHIJL                                                FAS      3900
                          43052                   MX0    -PB.TAGL                                                FAS      3901
                               11225              BX2    X2*X5       GHIJ PORTION OF INSTRUCTION                 FAS      3902
          2236  13777                             BX7    0           INDICATE NO RELOCATION                      FAS      3903
                     76400                        =X4    0           INDICATE NO SPECIAL RELOCATION              FAS      3904
                          15660                   BX6    -X0*X6      TAGI = TAG [INSTRUCTION]                    FAS      3905
                               23535              AX5    B3          SHIFT TO BIAS FIELD                         FAS      3906
          2237  15353                             BX3    -X3*X5      BIASI = BIAS[INSTRUCTION]                   FAS      3907
                     20236                        LX2    PB.GHIJL+18          X2 = (30/0, 12/GHIJ, 18/0)         FAS      3908
                          0306002270 +            ZR     X6,REL60    IF TAGI .EQ. 0                              FAS      3909
          2240  43056                             MX0    -PB.ORDL                                                FAS      3910
                     11506                        BX5    X0*X6       PFXI = PFX[TAGI]                            FAS      3911
                          76711                   =X7    2           INDICATE NOMINAL RELOCATION                 FAS      3912
                               67321              SB3    B2-B1       DECREMENT PARCEL COUNT                      FAS      3913
          2241  22737                             LX7    B3                                                      FAS      3914
                     0305002245 +                 ZR     X5,REL10    IF PFXI .EQ. 0 (SYMBOL TABLE ORDINAL)       FAS      3915
                                   0              ERRNZ  K=SYM                                                   FAS      3916
                                                                                                                 FAS      3917
                                        *         RELOCATE TAG FOR AUXILIARY TABLE (T.AUS), WHERE                FAS      3918
                                        *                AUX= ( GL,API,IOI,LCA).                                 FAS      3919
                                        *         (X6) = TAGI                                                    FAS      3920
                                                                                                                 FAS      3921
                               21517              AX5    P=PFX       ISOLATE PREFIX                              FAS      3922
                                         .T       IFEQ   TEST,ON                                                 FAS      3923
                                                  SB7    X5-K=END                                                FAS      3924
                                                  PL     B7,"BLOWUP"       IF PFXI .GE. K=END                    FAS      3925
                                         .T       ENDIF                                                          FAS      3926
          2242  5255002314 +                      SA5    RELTAB+X5-1                                             FAS      3927
                          53150                   SA1    X5          T.AUX = ORIGIN OF AUX. TABLE                FAS      3928
                               15660              BX6    -X0*X6      ORDI = ORD [TAGI]                           FAS      3929
          2243  63760                             SB7    X6                                                      FAS      3930
                     53117                        SA1    X1+B7       AUXI = T.AUX(ORDI)                          FAS      3931
                                                  LX1    -WC.RAP                                                 FAS      3932
                          73610                   SX6    X1          RAI = RA[AUXI], TRUNCATED TO 18 BITS        FAS      3933
          2244  0400002270 +                      EQ     REL60                                                   FAS      3934
                                                                                                                 FAS      3935
                                        *         RELOCATE A SYMBOL TABLE TAG.                                   FAS      3936
                                        *         FIND ADDRESS AND BLOCK NUMBER IN WC WORD OF SYMTAB.            FAS      3937
                                        *         A NON-ZERO BLOCK NUMBER MEANS COMMON.  FOR THOSE, PREPARE      FAS      3938
                                        *         X4 FOR ADDING TO FILL/LINK TABLE.                              FAS      3939
                                        *         (X6) = ORDI                                                    FAS      3940
                                                                                                                 FAS      3941
          2245  5110000000 X             REL10    SA1    T.SYM                                                   FAS      3942
                          5150000000 X            SA5    S=BU                                                    FAS      3943
          2246  37556                             IX5    X5-X6                                                   FAS      3944
                     22016                        LX0    X6,B1                                                   FAS      3945
                          36006                   IX0    X0+X6       STIND = 3 * ORDI                            FAS      3946
                               36101              IX1    X0+X1                                                   FAS      3947
                                   0              ERRNZ  3-Z=SYM                                                 FAS      3948
          2247  0315002252 +                      NZ     X5,REL15    IF ORDI .NE. (S=BU)                         FAS      3949
                          5110000201 +            SA1    ORG                                                     FAS      3950
          2250  5130002436 +                      SA3    =400000B                                                FAS      3951
                          76400                   =X4    0           NO SPECIAL RELOCATION                       FAS      3952
                               36613              IX6    X1+X3       *BLOWUP* ADDRESS = (ORG) + 400000B          FAS      3953
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    87
        SUPPORTING ROUTINES                                           REL 
  
          2251  0400002272 +                      EQ     REL65                                                   FAS      3954
                                                                                                                 FAS      3955
          2252  53111                    REL15    =A1    X1+WB.W     WBI = T.SYM(STIND)                          FAS      3956
                     10511                        BX5    X1                                                      FAS      3957
                          20170                   LX1    59-WB.LABP                                              FAS      3958
          2253  0331002260 +                      MI     X1,REL30    IF STATEMENT LABEL                          FAS      3959
                          20161                   LX1    WB.LABP-WB.EXTP                                         FAS      3960
          2254  0331002266 +                      MI     X1,REL50    IF EXTERNAL LINKAGE SYMBOL                  FAS      3961
                          20172                   LX1    WB.EXTP-WB.FPP                                          FAS      3962
          2255  0321002257 +                      PL     X1,REL20    IF NOT F. P.                                FAS      3963
                          43463                   MX4    -WB.FPNOL                                               FAS      3964
                               20154              LX1    1+WB.FPP-WB.FPNOP                                       FAS      3965
          2256  15414                             BX4    -X4*X1                                                  FAS      3966
                     63540                        =B5    X4          SAVE FPNO FOR INDEX IN *BST*                FAS      3967
                          76700                   =X7    0           INDICATE NO RELOCATION                      FAS      3968
          2257  7140100000               REL20    CLAS=  X4,WB,(COM)                                             FAS      3969
                          11445                   BX4    X4*X5                                                   FAS      3970
          2260  54111                    REL30    =A1    A1-WB.W+WC.W      FETCH SYMTAB ADDRESS WORD             FAS      3971
                     43644                        MX6    -WC.RAL                                                 FAS      3972
                                                  LX1    -WC.RAP                                                 FAS      3973
                          15616                   BX6    -X6*X1      ISOLATE (X6) = BLOCK-RELATIVE ADDRESS       FAS      3974
          2261  0304002270 +                      ZR     X4,REL60    IF LOCAL SYMBOL (NOT IN /COMMON/ BLOCK)     FAS      3975
                          43462                   MX4    -WC.RBL                                                 FAS      3976
                               20114              LX1    WC.RAP-WC.RBP                                           FAS      3977
          2262  15414                             BX4    -X4*X1      ISOLATE (X4) = INDEX IN (T.BLKS) OF RB      FAS      3978
                     21401                        AX4    1                                                       FAS      3979
                                   0              ERRNZ  2-Z=BLKS                                                FAS      3980
                          7244000002              SX4    X4+2        SET (RB) = BLOCK NUMBER FOR LOADER          FAS      3981
          2263  20552                             SBIT   X5,WB.LCMP                                              FAS      3982
                     43701                        MX7    1                                                       FAS      3983
                          11075                   BX0    X7*X5       ISOLATE LCM BIT                             FAS      3984
          2264  7110000000 X                      SX1    T.FILL                                                  FAS      3985
                          12440                   BX4    X4+X0       MERGE LCM BIT INTO SPECIAL RELOC INDICATOR  FAS      3986
                               76700              SX7    B0          INDICATE NOT PROGRAM-RELATIVE               FAS      3987
          2265  20122                             LX1    BT.RLP                                                  FAS      3988
                     12441                        BX4    X4+X1                                                   FAS      3989
                          0400002270 +            EQ     REL60                                                   FAS      3990
                                                                                                                 FAS      3991
                                        *         PROCESS EXTERNAL LINKAGE SYMBOL.                               FAS      3992
                                        *         (X0) = STIND                                                   FAS      3993
                                                                                                                 FAS      3994
          2266  7110000000 X             REL50    SX1    T.LINK                                                  FAS      3995
                          20122                   LX1    BT.RLP                                                  FAS      3996
                               76600              SX6    B0                                                      FAS      3997
          2267  12410                             BX4    X1+X0       SET SPECIAL RELOCATION = EXTERNAL           FAS      3998
                     76700                        SX7    B0                                                      FAS      3999
                                                                                                                 FAS      4000
                                        **        COMPUTE FINAL ADDRESS FIELD  =  [NEG] * ADDR + OFFSET          FAS      4001
                                        *         ENTRY  (X3) = OFFSET.                                          FAS      4002
                                        *                (X2) = *GHIJ*S18  (= INST SHIFTED LEFT BY 18)           FAS      4003
                                        *                (X4) = SPECIAL RELOCATION FLAG  --  42/WHICH, 18/ORD    FAS      4004
                                        *                     = 0, THEN NO SPECIAL ACTION.                       FAS      4005
                                        *                     " 0, THEN COMMON OR EXTERNAL RELOCATABLE.          FAS      4006
                                        *                            (ORD = BLOCK NUMBER OR TAG ORDINAL)         FAS      4007
                                        *                            (WHICH = WHICH TABLE TO ENTER.)             FAS      4008
                                        *                (X6) = PARTIAL ADDRESS                                  FAS      4009
                                        *                (X7) = RELOCATION ALREADY COMPUTED.                     FAS      4010
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    88
        SUPPORTING ROUTINES                                           REL 
  
                                                                                                                 FAS      4011
          2270  5110002322 +             REL60    SA1    RELPOS                                                  FC5A281     7
                          6231000036              SB3    X1+60-PB.BIASL-PB.BIASP                                 FC5A281     8
          2271  22333                             LX3    B3,X3                                                   FC5A281     9
                     23333                        AX3    B3,X3       SIGN EXTEND BIAS                            FC5A281    10
                          36636                   IX6    X3+X6       (X6) = FINAL ADDRESS                        FAS      4017
          2272  5110000055 +             REL65    SA1    BINWORD                                                 FAS      4024
                          5130002321 +            SA3    RELMASK                                                 FAS      4025
          2273  77521                             =X5    B2-1                                                    FAS      4026
                     15663                        BX6    -X3*X6      TRIM BIAS TO FIT IN RESULT FIELD SIZE       FAS      4027
                                                                                                                 FAS      4028
                                        *         CALCULATE SHIFT COUNT BY WHICH INSTRUCTION WILL BE POSITIONED  FAS      4029
                                        *         IN *BINWORD*.                                                  FAS      4030
                                                                                                                 FAS      4031
                          20504                   LX5    4           = 16*( (PARCEL) - 1 )                       FAS      4032
                               77321              SX3    B2-B1                                                   FAS      4033
          2274  12662                             BX6    X6+X2                                                   FAS      4034
                     54211                        SA2    A1+B1                                                   FAS      4035
                          37353                   IX3    X5-X3                                                   FAS      4036
                               63330              SB3    X3          = 15*( (PARCEL) - 1 )                       FAS      4037
          2275  22636                             LX6    X6,B3       POSITION FINAL INSTRUCTION HALF-WORD        FAS      4038
                     12616                        BX6    X1+X6       OR INST INTO BINWORD                        FAS      4039
                          36772                   IX7    X7+X2       MERGE RELOC INTO BINREL                     FAS      4040
                               54610              SA6    A1                                                      FAS      4041
          2276  54720                             SA7    A2                                                      FAS      4042
                     0304002313 +                 ZR     X4,REL90    IF NO SPECIAL RELOCATION                    FAS      4043
          2277  0324002307 +                      PL     X4,REL80    IF NOT (LCM) RELOCATION                     FAS      4044
                                                                                                                 FAS      4045
                                        *         MAKE *XFILL* TABLE ENTRY --                                    FAS      4046
                                                                                                                 FAS      4047
                          73240                   SX2    X4          ISOLATE BLOCK ORDINAL                       FAS      4048
          2300  0312002301 +                      NZ     X2,REL70    IF NOT PROGRAM BLOCK                        FAS      4049
                          73221                   SX2    X2+B1       ADD 1 FOR PROGRAM BLOCK NUMBER              FAS      4050
          2301  5110000201 +             REL70    SA1    ORG                                                     FAS      4051
                          76730                   SX7    B3          LOW-ORDER BIT POSITION OF ADDRESS FIELD     FAS      4052
                               20106              LX1    6                                                       FAS      4053
          2302  12617                             BX6    X1+X7                                                   FAS      4054
                     20606                        LX6    6                                                       FAS      4055
                          5130002321 +            SA3    RELMASK                                                 FAS      4056
          2303  14333                             BX3    -X3                                                     FAS      4057
                     47333                        CX3    X3                                                      FAS      4058
                          12663                   BX6    X6+X3                                                   FAS      4059
                               20611              LX6    9                                                       FAS      4060
          2304  12662                             BX6    X6+X2                                                   FAS      4061
                     20611                        LX6    9                                                       FAS      4062
                          76710                   SX7    B1                                                      FAS      4063
                               12667              BX6    X6+X7       30/(ORG), 6/0, 6/(RELSIZ), 9/ORD, 9/1       FAS      4064
          2305  5110000000 X                      ADDWD  T.XFIL                                                  FAS      4065
          2306  0400002313 +                      EQ     REL90                                                   FAS      4066
                                                                                                                 FAS      4067
                                        *         MAKE LINK/FILL TABLE ENTRY --                                  FAS      4068
                                                                                                                 FAS      4069
          2307  73240                    REL80    SX2    X4          ISOLATE BLOCK/EXTERNAL INDEX                FAS      4070
                                   0              ERRNZ  18-BT.RLP                                               FAS      4071
                     5110000201 +                 SA1    ORG                                                     FAS      4072
                               21422              AX4    BT.RLP                                                  FAS      4073
          2310  20505                             LX5    BT.RLL-4                                                FAS      4074
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    89
        SUPPORTING ROUTINES                                           REL 
  
                     7255004001                   SX5    X5+1S11+1   X5 = 1/1, 2/(PARCEL)-1, 9/1                 FAS      4075
                               20522              LX5    BT.RLP                                                  FAS      4076
          2311  20236                             LX2    30                                                      FAS      4077
                     12651                        BX6    X5+X1                                                   FAS      4078
                          36626                   IX6    X2+X6       = 30/ORD, 12/(X5), 18/(ORG)                 FAS      4079
                               53140              ADDWD  X4                                                      FAS      4080
                                                                                                                 FAS      4081
                                         SNAP=K   IFNE   TEST        DUMP *LINK* TABLE                           FAS      4082
                                                  SA3    CO.SNAP                                                 FAS      4083
                                                  LX3    1RK                                                     FAS      4084
                                                  PL     X3,REL8S    IF LINK TABLE SNAP NOT SELECTED             FAS      4085
                                                  DUMPT  LINK                                                    FAS      4086
                                         REL8S    BSS    0                                                       FAS      4087
                                         SNAP=K   ENDIF                                                          FAS      4088
                                                                                                                 FAS      4089
          2313  0450002232 +             REL90    EQ     B5,B0,EXIT. IF NO   *SUB*  TO MAKE                      FAS      4090
                          0100000770 +            RJ     BST         GO MAKE A  *SUB*                            FAS      4091
          2314  0400002232 +                      EQ     EXIT.                                                   FAS      4092
                                                                                                                 FAS      4093
          2315                           RELTAB   BSS    0           VECTOR OF ADDRESS TABLES FOR TAG PREFIXES   FAS      4094
      L      1                                    LOC    1                                                       FAS      4095
      L      1  00000000000000000000 X   K=GL     CON    T.GL                                                    FAS      4096
      L      2  00000000000000000000 X   K=AP     CON    T.API                                                   FAS      4097
      L      3  00000000000000000000 X   K=IO     CON    T.IOI                                                   FAS      4098
      L      4  00000000000000000000 X   K=LC     CON    T.LCA                                                   FAS      4099
      L      5                           K=END    BSS                VERIFY VECTOR SYNCHRONIZATION               FAS      4100
          2321                                    LOC    *O                                                      FAS      4101
                                                                                                                 FAS      4102
          2321                     1     RELMASK  BSS    1           COMPLEMENT MASK OF BIAS FIELD SIZE          FAS      4103
          2322                     1     RELPOS   BSS    1           POS OF BIAS FIELD IN (X5) PASSED TO *REL*   FAS      4104
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    90
        SUPPORTING ROUTINES                                           RNI 
  
                                        **        RNI - READ NEXT INSTRUCTION.                                   FAS      4106
                                        *                                                                        FAS      4107
                                        *         READS NEXT PRE-BINARY INSTRUCTION FROM FILE F.PB .             FAS      4108
                                        *                                                                        FAS      4109
                                        *         EXIT   (X5) = INSTRUCTION WORD.                                FAS      4110
                                        *                (RADB) = (X5).                                          FAS      4111
                                        *                (OL=PB) = (X5).                                         FAS      4112
                                                                                                                 FAS      4113
                                                                                                                 FAS      4114
          2323  0400402323 +             RNI      SUBR   =           ENTRY/EXIT.                                 FAS      4115
          2324  6160000752 +                      READW  F.PB,RADB,1     READ NEXT (PB.) WORD                    FAS      4116
                                         .T       IFEQ   TEST,ON,1                                               FAS      4117
                                                  NZ     X1,"BLOWUP" IF REACHED EOR/EOF/EOI                      FAS      4118
          2326  5150000752 +                      SA5    RADB        FETCH WORD                                  FAS      4119
                          10755                   BX7    X5                                                      FAS      4120
          2327  5170000211 +                      SA7    OL=PB                                                   FAS      4121
                          0400002323 +            EQ     EXIT.                                                   FAS      4122
  
  
  
  
                                        **        RMI - READ MULTIPLE WORD VERSION OF RNI.                       FAS      4124
                                        *                                                                        FAS      4125
                                        *         ENTRY  B6 = FWA OF AREA TO BE READ INTO.                       FAS      4126
                                        *                X5 = NUMBER OF WORDS TO READ                            FAS      4127
                                        *                                                                        FAS      4128
                                        *         EXIT   NONE                                                    FAS      4129
                                                                                                                 FAS      4130
          2330  0400402330 +             RMI      SUBR                                                           FAS      4131
          2331  63750                             SB7    X5                                                      FAS      4132
                     7120000000 X                 READW  F.PB,B6,B7                                              FAS      4133
                                         .T       IFEQ   TEST,ON,1                                               FAS      4134
                                                  NZ     X1,"BLOWUP" IF PREMATURE EOR                            FAS      4135
          2333  0400002330 +                      EQ     EXIT.                                                   FAS      4136
  
  
  
  
                                        **        ROL -  STORE ORIGIN COUNTER IN LINEBUF IF BEGINNING OF WORD.   FC50353    30
                                        *                                                                        FAS      4139
                                        *         ENTRY  (B2) = PARCEL COUNT                                     FAS      4140
                                        *                                                                        FC50353    31
                                        *         USES   A-1,2,6                                                 FAS      4142
                                        *                X-1,2,6                                                 FAS      4143
                                        *                B-7                                                     FAS      4144
                                                                                                                 FAS      4145
          2334  0400402334 +             ROL      SUBR   0           ENTRY/EXIT.                                 FAS      4146
          2335  5110002427 +                      SA1    =10H                                                    FAS      4147
                          5120000201 +            SA2    ORG                                                     FAS      4148
          2336  6172777774                        SB7    B2-3                                                    FAS      4149
                          10611                   BX6    X1                                                      FAS      4150
          2337  0570002340 +                      NZ     B7,ROL10    IF NOT BEGINNING OF NEW WORD                FAS      4151
                          10622                   BX6    X2                                                      FAS      4152
          2340  5160000000 X             ROL10    SA6    LINEBUF                                                 FAS      4153
                          0400002334 +            EQ     EXIT.                                                   FAS      4154
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    91
        SUPPORTING ROUTINES                                           SMW 
  
                                        **        SMW - STORE MULTIPLE WORDS.                                    FAS      4156
                                        *                                                                        FAS      4157
                                        *         SMW DUMPS A COMPILER TABLE INTO THE OBJECT FILE AS             FAS      4158
                                        *         BINARY INFORMATION (I.E., NO RELOCATION IS DONE).              FAS      4159
                                        *                                                                        FAS      4160
                                        *         ENTRY  (A1, X1) = TABLE TO BE DUMPED.                          FAS      4161
                                        *                ORIGIN SET.                                             FAS      4162
                                        *                TEXT TABLE INITIALIZED.                                 FAS      4163
                                        *                                                                        FAS      4164
                                        *         EXIT   TABLE SHRUNK TO ZERO.                                   FAS      4165
                                        *                                                                        FAS      4166
                                        *         USES   ALL.                                                    FAS      4167
                                        *         CALLS  STX.                                                    FAS      4168
                                                                                                                 FAS      4169
                                                                                                                 FAS      4170
          2341  0400402341 +             SMW      SUBR   0           ENTRY/EXIT...                               FAS      4171
          2342  5031000000 X                      SA3    A1+N.TABLE                                              FAS      4172
                          0303002341 +            ZR     X3,EXIT.    IF EMPTY TABLE                              FAS      4173
          2343  53030                             SA0    X3          (A0) = LENGTH OF TABLE                      FAS      4174
                     53510                        SA5    X1          FETCH (A5, X5) = TABLE ENTRY                FAS      4175
                          13666                   SHRINK A3                                                      FAS      4176
          2344  43200                    SMW4     MX2    0           INDICATE NO RELOCATION                      FAS      4177
                     10155                        BX1    X5                                                      FAS      4178
                          0100002374 +            RJ     STX         STORE WORD IN TEXT TABLE                    FAS      4179
          2345  65401                             SB4    A0-B1                                                   FAS      4180
                     5055000001                   SA5    A5+1        FETCH NEXT ENTRY                            FAS      4181
                               55001              SA0    A0-B1       DECREMENT UNPROCESSED LENGTH                FAS      4182
          2346  0704002344 +                      GT     B4,SMW4     IF TABLE NOT EXHAUSTED                      FAS      4183
                          0400002341 +            EQ     EXIT.                                                   FAS      4184
  
  
  
  
                                        **        SNR - SET NAMELIST REGISTERS.                                  FAS      4186
                                        *                                                                        FAS      4187
                                        *                                                                        FAS      4188
                                        *         ENTRY  (B2) = T.NLST ORD OF REQUEST (0=GRP-NAME, 1-N=MEM-NAM). FAS      4189
                                        *                (B3) = T.NLST INDEX TO FWA CURRENT GROUP.               FAS      4190
                                        *                                                                        FAS      4191
                                        *         EXIT   (B2) = (B2)+1 IF GROUP HAS ANOTHER MEMBER.              FAS      4192
                                        *                     = 0 IF NO MORE MEMBERS.                            FAS      4193
                                        *                (B3) = UNCHANGED IF GROUP HAS ANOTHER MEMBER.           FAS      4194
                                        *                     = T.NLST INDEX TO FWA NEXT GROUP IF (B2) = 0.      FAS      4195
                                        *                     = -1 IF NO MORE GROUPS (END OF T.NLST).            FAS      4196
                                        *                (B4) = NR MEMBERS IN CURRENT GROUP.                     FAS      4197
                                        *                (A1,X1) = T.SYM WORD B FOR REQUESTED NAME.              FAS      4198
                                        *                (X5) = T.SYM ORDINAL OF REQUESTED NAME.                 FAS      4199
                                        *           FOR GROUP MEMBERS ONLY, ALSO RETURNS ...                     FAS      4200
                                        *                (A2) -> (ONLY IF ARRAY) T.DIM HEADER FOR MEMBER NAME.   FAS      4201
                                        *                (X2) = IF ARRAY, BLOCK-REL ADDR OF RUN-TIME DIMTAB,     FAS      4202
                                        *                     = IF SIMPLE VARIABLE, = 4S15.                      FAS      4203
                                        *                                                                        FAS      4204
                                        *         USES   A1-3,   X0-4,   B2-7.                                   FAS      4205
                                        *                                                                        FAS      4206
                                        *         CALLS  NONE.                                                   FAS      4207
                                                                                                                 FAS      4208
                                                                                                                 FAS      4209
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    92
        SUPPORTING ROUTINES                                           SNR 
  
          2347  0400402347 +             SNR      SUBR   =           ENTRY/EXIT...                               FAS      4210
          2350  5110000000 X             SNR2     SA1    T=NLST                                                  FAS      4211
                          5120000000 X            SA2    T.NLST                                                  FAS      4212
          2351  66221                             =B2    B2+1        *(B2) = ORDINAL NEXT MEMBER                 FAS      4213
                     63510                        SB5    X1          (B5) = LEN (T.NLST)                         FAS      4214
                          0605002373 +            LE     B5,B0,SNR5  IF T.NLST EMPTY                             FAS      4215
          2352  0730002373 +                      MI     B3,SNR5     IF NO MORE GROUPS                           FAS      4216
                          0635002373 +            GE     B3,B5,SNR5  IF IX[GRP-HDR] BEYOND END OF T.NLST         FAS      4217
          2353  63620                             SB6    X2          (B6) = (T.NLST)                             FAS      4218
                     53123                        SA1    X2+B3       GROUP HEADER                                FAS      4219
                          43055                   MX0    -NG.NMEML                                               FAS      4220
                               20117              LX1    0-NG.NMEMP                                              FAS      4221
          2354  15210                             BX2    -X0*X1                                                  FAS      4222
                     63420                        SB4    X2          *(B4) = NR GROUP MEMBERS                    FAS      4223
                                                                                                                 FAS      4224
                                         .T       IFEQ   TEST,ON                                                 FAS      4225
                                                  =B7    B2-1                                                    FAS      4226
                                                  GT     B7,B4,"BLOWUP"    IF REQUEST BEYOND END OF GROUP        FAS      4227
                                         .T       ENDIF                                                          FAS      4228
                                                                                                                 FAS      4229
                                        *         COMPUTE LEFT SHIFT COUNT NEEDED TO POSITION REQUESTED ORDINAL  FAS      4230
                                        *         TO BITS 14-0.  COUNT = MOD(ORD+2,4) * 15.                      FAS      4231
                                                                                                                 FAS      4232
                          76121                   =X1    B2+1        ORD+2                                       FAS      4233
                               43272              MX2    -2                                                      FAS      4234
          2355  15312                             BX3    -X2*X1      MOD(ORD+2,4)                                FAS      4235
                     73130                        SX1    X3                                                      FAS      4236
                          20304                   LX3    4                                                       FAS      4237
                               37231              IX2    X3-X1       *15                                         FAS      4238
          2356  63720                             SB7    X2          SHIFT COUNT                                 FAS      4239
                                                                                                                 FAS      4240
                                        *         COMPUTE T.NLST INDEX OF REQUESTED ORDINAL.                     FAS      4241
                                        *         INDEX = (ORD+1)/4 + INDEX FWA GROUP.                           FAS      4242
                                                                                                                 FAS      4243
                     76120                        SX1    B2                                                      FAS      4244
                          21102                   AX1    2                                                       FAS      4245
                               73213              SX2    B3+X1       INDEX                                       FAS      4246
                                                                                                                 FAS      4247
                                         .T       IFEQ   TEST,ON                                                 FAS      4248
                                                  SX3    B5                                                      FAS      4249
                                                  IX3    X2-X3                                                   FAS      4250
                                                  PL     X3,"BLOWUP" IF INDEX BEYOND END OF T.NLST               FAS      4251
                                         .T       ENDIF                                                          FAS      4252
                                                                                                                 FAS      4253
          2357  53126                             SA1    B6+X2       T.NLST WORD CONTAINING REQUESTED ORD        FAS      4254
                     63621                        =B6    X2+1        (B6) = INDEX TO NEXT T.NLST WORD            FAS      4255
                          5120000000 X            SA2    T.SYM                                                   FAS      4256
          2360  22171                             LX1    B7          SHIFT ORD TO BITS 14-0                      FAS      4257
                                   0              ERRNZ  NG.ORDL-NG.NMEML  IF (X0) MASK LENGTH ERROR             FAS      4258
                     15510                        BX5    -X0*X1      *(X5) = T.SYM ORDINAL OF REQUESTED NAME     FAS      4259
                          63751                   =B7    X5+WB.W                                                 FAS      4260
                               22115              LX1    X5,B1                                                   FAS      4261
                                                                                                                 FAS      4262
          2361  63717                             SB7    B7+X1       ORD*3 + WB.W                                FAS      4263
                     53127                        SA1    X2+B7       *(A1,X1) = T.SYM WORD B FOR REQUESTED NAME  FAS      4264
                          43201                   MX2    1                                                       FAS      4265
                               20222              LX2    NB.DADRP+NB.DADRL                                       FAS      4266
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    93
        SUPPORTING ROUTINES                                           SNR 
  
                                                                                                                 FAS      4267
          2362  0521002366 +                      NE     B2,B1,SNR3  IF PROCESSING MEMBER                        FAS      4268
                                                                                                                 FAS      4269
                                         .T       IFEQ   TEST,ON                                                 FAS      4270
                                                  BX3    X1                                                      FAS      4271
                                                  SBIT   X3,WB.NLSTP                                             FC5A231   150
                                                  PL     X3,"BLOWUP" IF NOT GROUP NAME                           FC5A231   151
                                                  LX3    WB.NLSTP+1-WB.PNTP-WB.PNTL                              FAS      4273
                                                  AX3    -WB.PNTL                                                FAS      4274
                                                  SB7    X3                                                      FAS      4275
                                                  NE     B7,B3,"BLOWUP"    IF GROUP-NAME ORDINAL MISMATCH        FAS      4276
                                         .T       ENDIF                                                          FAS      4277
                                                                                                                 FAS      4278
                          10311                   BX3    X1                                                      FAS      4279
                               20335              SBIT   X3,WB.MATP                                              FC5A231   152
          2363  0333002371 +                      MI     X3,SNR4     IF ANY I/O STATEMENT REFERENCED GROUP NAME  FC5A231   153
                          76141                   =X1    B4+1        GROUP LEN (IN T.NLST) = (NR MEM - 1)/4 + 1  FAS      4281
                               21102              AX1    2                                                       FAS      4282
          2364  63611                             =B6    X1+1                                                    FAS      4283
                     66200                        =B2    0           (B2) = RESET FOR NEW GROUP HEADER           FAS      4284
                          66336                   SB3    B3+B6       (B3) = ADVANCE TO NEW GROUP ORD             FAS      4285
          2365  0400002350 +                      EQ     SNR2        RESTART                                     FAS      4286
                                                                                                                 FAS      4287
          2366  10311                    SNR3     BX3    X1                                                      FAS      4288
                     20361                        SBIT   X3,WB.ARYP                                              FC5A231   154
                          0323002371 +            PL     X3,SNR4     IF NOT ARRAY                                FC5A231   155
          2367  5120000000 X                      SA2    T.DIM                                                   FAS      4290
                          10311                   BX3    X1                                                      FAS      4291
                               63720              SB7    X2                                                      FAS      4292
                                                  HX3    WB.PNT                                                  FAS      4293
          2370  21357                             AX3    -WB.PNTL                                                FAS      4294
                     53237                        SA2    B7+X3       *(A2) = ADDR OF T.DIM HEADER                FAS      4295
                          20236                   HX2    DH.RA                                                   FAS      4296
                               21244              AX2    -DH.RAL     *(X2) = ADDR OF RUN-TIME DIM INFO           FAS      4297
          2371  0642002347 +             SNR4     LE     B2,B4,EXIT. IF ANOTHER MEMBER                           FAS      4298
                          66200                   =B2    0           *(B2) = NO MORE MEMBERS                     FAS      4299
                               66360              SB3    B6          *(B3) = INDEX TO FWA NEXT GROUP IN T.NLST   FAS      4300
          2372  0735002347 +                      LT     B3,B5,EXIT. IF ANOTHER GROUP                            FAS      4301
          2373  66200                    SNR5     =B2    0           *(B2) = NO MORE MEMBERS                     FAS      4302
                     67301                        =B3    -1          *(B3) = END OF T.NLST                       FAS      4303
                          0400002347 +            EQ     EXIT.                                                   FAS      4304
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    94
        SUPPORTING ROUTINES                                           STX 
  
                                        **        STX -  STORE *TEXT* TABLE ENTRY.                               FAS      4306
                                        *                                                                        FAS      4307
                                        *         STX CANNOT MOVE TABLES.                                        FAS      4308
                                        *                                                                        FAS      4309
                                        *         ENTRY  (X1) = WORD TO BE OUTPUT                                FAS      4310
                                        *                (X2) = RELOCATION BYTE FOR THAT WORD                    FAS      4311
                                        *         EXIT   TABLE UPDATED AND FLUSHED AS NECESSARY.                 FAS      4312
                                        *                (ORG) INCREMENTED.                                      FAS      4313
                                        *                (PARCEL) INDICATES EMPTY.                               FAS      4314
                                        *                (BINWORD) = (BINREL) = 0                                FAS      4315
                                        *         USES   A1-A4,A6,A7  B1-B3,B5-B7                                FAS      4316
                                        *         CALLS  DTX.                                                    FAS      4317
                                                                                                                 FAS      4318
                                                                                                                 FAS      4319
          2374  0400402374 +             STX      SUBR               ENTRY/EXIT...                               FAS      4320
          2375  5130000033 +                      SA3    BT.TXWC                                                 FAS      4321
                          10611                   BX6    X1                                                      FAS      4322
          2376  5110000035 +                      SA1    BT.TXRB                                                 FAS      4323
                          7170000003              SX7    3                                                       FAS      4324
          2377  5160000207 +                      SA6    OL=BIN                                                  FAS      4325
                          5263000036 +            SA6    X3+BT.TEXT+2                                            FAS      4326
          2400  73631                             SX6    X3+B1                                                   FAS      4327
                     20104                        LX1    L.BTRB                                                  FAS      4328
                          54630                   SA6    A3          UPDATE WORD COUNT                           FAS      4329
          2401  5170000202 +                      SA7    PARCEL      INDICATE EMPTY WORD                         FAS      4330
                          12721                   BX7    X2+X1                                                   FAS      4331
          2402  5120000201 +                      SA2    ORG                                                     FAS      4332
                          7236777760              SX3    X6-15                                                   FAS      4333
          2403  10622                             BX6    X2          CAPTURE (ORIGIN) FOR LISTING                FAS      4334
                     5160000000 X                 SA6    LINEBUF                                                 FAS      4335
                               13666              BX6    0                                                       FAS      4336
          2404  54710                             SA7    A1                                                      FAS      4337
                     5160000055 +                 SA6    BINWORD                                                 FAS      4338
                               76710              =X7    1                                                       FAS      4339
          2405  36727                             IX7    X2+X7       INCREMENT ORIGIN COUNTER                    FAS      4340
                     54661                        SA6    A6+B1                                                   FAS      4341
                          54720                   SA7    A2                                                      FAS      4342
          2406  0333002374 +                      MI     X3,EXIT.    IF NOT FULL TABLE                           FAS      4343
                                                                                                                 FAS      4344
                          0100001375 +            RJ     DTX         FLUSH TEXT TABLE                            FAS      4345
          2407  0400002374 +                      EQ     EXIT.                                                   FAS      4346
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    95
        SUPPORTING ROUTINES                                           WLF 
  
                                        **        WLF -  WRITE *LGO* FILE.                                       FAS      4421
                                        *                                                                        FAS      4422
                                        *                ALL BINARY OUTPUT MUST BE DONE THRU THIS ROUTINE.       FAS      4423
                                        *         PLEASE USE THE MACRO FORM, *WLGO*, TO INSURE CORRECT CALLING   FAS      4424
                                        *         SEQUENCE.                                                      FAS      4425
                                        *                                                                        FAS      4426
                                        *         WLF CANNOT MOVE TABLES.                                        FAS      4427
                                        *                                                                        FAS      4428
                                        *         ENTRY  (B6) = FWA DATA                                         FAS      4429
                                        *                (B7) = WORD COUNT                                       FAS      4430
                                        *         USES   ALL BUT A5,X5,X0,A0                                     FAS      4431
                                        *         KEEPS  B4          *TEMP*                                      FAS      4432
                                        *         CALLS  FA=WTW.                                                 FAS      4433
                                                                                                                 FAS      4434
                                                                                                                 FAS      4435
          2410  0400402410 +             WLF      SUBR   =           ENTRY/EXIT.                                 FAS      4436
          2411                           WLF.EQ   BSSENT 0                                                       FAS      4437
          2411  76640                             SX6    B4          SAVE (B4)                                   FAS      4438
                     5160000000 X                 SA6    GT1                                                     FAS      4439
          2412  7120000000 X                      WRITEW F.LGO,B6,B7  WRITE IT OUT ON DISK                       FAS      4440
          2413  5110000000 X                      SA1    GT1                                                     FAS      4441
                          63410                   SB4    X1          RESTORE (B4)                                FAS      4442
          2414  0400002410 +                      EQ     EXIT.                                                   FAS      4443
  
  
  
  
                                        **        WWB -  WRITE ONE WORD TO TEXT /OR TO SCATCH TABLE              FAS      4445
                                        *                (T.SCR).                                                FAS      4446
                                        *         ENTRY  (X1) = WORD TO BE OUTPUT                                FAS      4447
                                        *                (X2) = RELOCTION BYTES                                  FAS      4448
                                        *                (ORDA) = 0 IF WRITING TO TEXT                           FAS      4449
                                        *                       = 1 IF WRITING TO SCRATCH TABLE                  FAS      4450
                                        *         CALLS  STX,ALLOC                                               FAS      4451
                                        *         CELLS  ORDC                                                    FAS      4452
                                        *         USES   ALL BUT A5,X5,A0,  T.SCR                                FAS      4453
                                                                                                                 FAS      4454
                                                                                                                 FAS      4455
          2415  0400402415 +             WWB      SUBR   0           ENTRY/EXIT.                                 FAS      4456
          2416  5140000216 +                      SA4    ORDA                                                    FAS      4457
                          0304002422 +            ZR     X4,WWB10    IF WRITING TO TEXT                          FAS      4458
          2417  10611                             BX6    X1                                                      FAS      4459
                     5110000000 X                 ADDWD  T.SCR                                                   FAS      4460
          2421  0400002415 +                      EQ     EXIT.                                                   FAS      4461
                                                                                                                 FAS      4462
          2422  0100002374 +             WWB10    RJ     STX         OUTPUT A WORD TO TEXT TABLE                 FAS      4463
          2423  0400002415 +                      EQ     EXIT.                                                   FAS      4464
                                                                                                                 FAS      4465
                                                  PURGMAC WLGO                                                   FAS      4466
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    96
        SUPPORTING ROUTINES 
  
                                                  LIST   D                                                       FAS      4468
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 Y                        LI=ADDR 
             0 Y                        LI=BSS
             0 Y                        LI=APL
             0 Y                        LI=BMI
             0 Y                        LI=CON
             0 Y                        LI=END
             0 Y                        LI=EQUN 
             0 Y                        LI=FMT
             0 Y                        LI=FVEC 
             0 Y                        LI=IDNT 
             0 Y                        LI=IOM
             0 Y                        LI=LCC
             0 Y                        LI=LOO
             0 Y                        LI=NLST 
             0 Y                        LI=PLIM 
             0 Y                        LI=TRAC 
             0 Y                        LI=USE
             0 Y                        LI=BCI
             0 Y                        LI=BOS
             0 Y                        LI=CPL
             0 Y                        LI=DATA 
             0 Y                        LI=ECI
             0 Y                        LI=EMI
             0 Y                        LI=JPI
             0 Y                        LI=LD0
             0 Y                        LI=ST0
             0 Y                        LI=OTR
             0 Y                        LI=RJ3
             0 Y                        LI=RJ6
             0 Y                        LI=SUBI 
             0 Y                        LI=SB0I 
             0 Y                        LI=UJP
             0 Y                        LI=ZERO 
             0 Y                        LI=FLA
             0 X                        CO.LL 
  
                                        CONTENT OF LITERALS BLOCK.
  
          2424  05222217222355111655    ERRORS IN 
          2425  03171520111401241117    COMPILATIO
          2426  16575555555555550000    N.
          2427  55555555555555555555
          2430  45555555555555555555    + 
          2431  00000460006100046000      D# [ D# 
          2432  00000631463146314632      FY-Y-Y-Z
          2433  00000000077777777777        G;;;;;
          2434  00770000000000000000     ;
          2435  60000000000000000077    #        ;
          2436  00000000000000400000           5
  
          2437                                    END                                                            FAS      4469
  
                             72000B CM  STORAGE USED            11249 STATEMENTS     2330 SYMBOLS      000001 INVENTED SYMBOLS
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    97
        SUPPORTING ROUTINES 
  
                               PARALLEL CPU ASSEMBLY            8.604 SECONDS        2494 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADA             0   EXTERNAL*       2/40 X   57/03
        ADW             0   EXTERNAL*       2/10 X   39/20     42/56     43/24     89/06
                                           38/55     39/21     43/19     88/48     95/43
        ALC             0   EXTERNAL*       2/10 X   13/28     13/45     26/57     45/08     47/04     61/17     73/57
                                           13/27     13/29     16/15     43/05     45/53     48/19     65/08
        APLA          335   PROGRAM*       16/13 S   16/16     16/30     17/03 L   17/03 E
        APL.15        325   PROGRAM*       16/44 L   16/49
        APL.20        330   PROGRAM*       16/14     16/44     16/51 L
        BCI           177   PROGRAM*       12/21 L   22/18 S   22/54     26/39 S   27/21 S
        BINIO           0   EXTERNAL*       2/27 X
        BINREL         56   PROGRAM*        9/11 L   15/54     32/05     68/33     70/36     74/57
                                           14/44 S   25/40     63/46     70/09     72/56     80/24 S
        BINWORD        55   PROGRAM*        9/10 L   25/39     61/10 S   63/47     66/51 S   70/08     74/47     80/23 S
                                           14/45 S   32/06     62/05 S   64/11     67/39 S   70/35     74/56     88/07
                                           15/49     32/46     62/53 S   64/57 S   67/45     72/55     79/36 S   94/33 S
                                           24/26     34/20     63/33     66/22 S   68/32     74/31 S   79/44
        BNW           757   PROGRAM*       24/16     28/02     31/05     32/32     33/23     38/46
                                           26/49     28/44     32/03     33/11     34/14 L   85/09
        BNW8          766   PROGRAM*       34/15     34/29 L
        BN=APL          0   EXTERNAL*       2/27 X   16/33
        BN=SUB          0   EXTERNAL*       2/27 X   14/31     20/40     31/02
        BN=SUB0         0   EXTERNAL*       2/27 X   14/30     20/43     30/45
        BST           770   PROGRAM*       34/51 L   34/51 E   89/17
        BST.EQ        771   PROGRAM*       34/52 L   34/52 E
        BSZ          1007   PROGRAM*       30/25     36/12 L
        BSZ10        1025   PROGRAM*       36/56     37/02 L
        BSZ4         1022   PROGRAM*       36/48     36/51 L
        BT=CMN         32                   6/17 D   49/10
        BT=ENTR      3600                   6/06 D    9/13
        BT=FILL      4200                   6/09 D   52/23
        BT=FTN5         4                   9/22 D    9/26      9/30      9/32
        BT=IDNT      7700                   6/20 D    7/41
        BT=LDSET     7000                   6/15 D   49/33
        BT=LIB         10                   6/16 D    8/16
        BT=LINK      4400                   6/11 D   51/25
        BT=LSTN      5700                   6/14 D    9/26
        BT=LSYM      5600                   6/13 D    9/30      9/32
        BT=LSYML        3                   9/23 D    9/24     45/01
        BT=MAP         11                   6/18 D    8/07
        BT=MXWC      7777                   6/21 D   42/46     77/48     77/51
        BT=PIDL      3400                   6/04 D   46/02
        BT=PREST       12                   6/19 D    8/05
        BT=PTEXT     3500                   6/05 D    8/44
        BT=XFER      4600                   6/12 D    9/14
        BT=XFILL     4100                   6/08 D   52/39
        BT=XREPL     4700                   6/10 D    8/33
        BT=XTEXT     3700                   6/07 D   53/22
        BT.ASL         30                   7/09 D   42/04
        BT.ASP          0                   7/09 D   42/04
        BT.BCPL         6                   6/50 D    8/45
        BT.BCPP        44                   6/50 D   40/45
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        BT.BL          14                   7/06 D
        BT.BP          41                   7/06 D    7/07     42/02
        BT.CL          17                   7/05 D   41/48     41/53
        BT.CNL         14                   6/28 D    7/19 D    8/05      8/16      8/44      9/14      9/30
                                            6/39 D    7/41      8/07      8/33      9/13      9/26      9/32
        BT.CNP         60                   6/28 D    7/19 D   49/12     51/28     52/41
                                            6/39 D   46/03     49/36     52/25     53/28
        BT.CP          55                   7/05 D   41/57
        BT.DBPM        17   PROGRAM*        8/04 L    8/09     49/22
        BT.DBPML        4                   8/09 D   48/18     49/21
        BT.DSTP        26                   7/24 D   44/32     45/05
        BT.ENTR        57   PROGRAM*        9/13 L   47/05
        BT.ERR       2424   PROGRAM*        8/26 L   21/05     21/05
        BT.FWAL        30                   6/54 D    8/46
        BT.FWAP         0                   6/54 D
        BT.IDNT         0   PROGRAM*        7/37 L   81/11 S   81/21 S   81/37     81/50
                                            7/37 E   81/20 S   81/33 S   81/50
        BT.IDNTA       12                   7/51 L
        BT.IDNTB       14                   7/53 L   81/33 S
        BT.IDNTU       15                   7/54 L   81/20 S
        BT.IDN8        10                   7/48 L    7/48 E   81/21 S
        BT.IDN9        11                   7/50 L    7/50 E
        BT.KL          22                   7/07 D   41/44     41/47
        BT.KP          41                   7/07 D   41/50     41/56
        BT.LENL        22                   6/49 D    8/45
        BT.LENP        52                   6/49 D   40/37
        BT.LIB         23   PROGRAM*        8/16 L    8/18     48/22
        BT.LIBL         2                   8/16      8/18 D   48/18     48/25
        BT.LOL         12                   7/22 D    9/30      9/32
        BT.LOP         30                   7/22 D
        BT.LSTN        62   PROGRAM*        9/26 L   44/12
        BT.LSYL        63   PROGRAM*        9/30 L   44/28     44/43
        BT.LSYM        64   PROGRAM*        9/32 L   44/43     44/48     45/03     45/14
        BT.LTBP        27                   7/23 D   45/16
        BT.PMDTP       43                   6/30 D    6/41 D   46/04
        BT.PTEXT       30   PROGRAM*        8/44 L   78/31
        BT.RBL         11                   6/53 D    8/45
        BT.RBP         30                   6/53 D   40/32
        BT.RCPL        30                   6/57 D    8/47
        BT.RCPP         0                   6/57 D
        BT.RIPL        30                   6/56 D    8/47
        BT.RIPP        30                   6/56 D   41/12
        BT.RLL         11                   6/32 D   88/57
        BT.RLP         22                   6/32 D   47/13     87/35     87/43     88/54     88/56     89/02
        BT.RLXL        11                   6/43 D
        BT.RLXP        30                   6/43 D   41/34     53/42
        BT.RPP         43                   6/51 D   40/33
        BT.RSL         11                   7/08 D   42/04
        BT.RSP         30                   7/08 D   41/25     42/04
        BT.SA1L        22                   7/27 D    9/31      9/33
        BT.SA1P         0                   7/27 D
        BT.TEXT        34   PROGRAM*        9/05 L   94/21 S
        BT.TXRB        35   PROGRAM*        9/06 L    9/08     53/43 S   94/18
        BT.TXTL        20                   9/08 D
        BT.TXWC        33   PROGRAM*        9/04 L   53/20     94/16
        BT.TYL          2                   7/25 D    9/31      9/33
        BT.TYP         24                   7/25 D   44/39
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        BT.TYPM    400000                   6/33 D
        BT.TYPP        21                   6/33 D   46/42
        BT.WCL         14                   6/29 D    7/20 D    8/05      8/16      8/44      9/26      9/32
                                            6/40 D    7/41      8/07      8/33      9/14      9/30
        BT.WCP         44                   6/29 D    7/20 D   47/07     49/35     52/27     53/31     78/30
                                            6/40 D   45/57     49/13     51/26     52/42     77/57
        BT.XFER        60   PROGRAM*        9/14 L   20/51
        BT.XFR1        61   PROGRAM*        9/15 L    9/15 E   81/13 S
        BT.XREP        25   PROGRAM*        8/33 L    8/36     41/40 S   41/49     42/23     42/26
        BT.XREPL        3                   8/36 D   42/26
        B1=1            0 
        CAB          1027   PROGRAM*       37/28 L   37/28 E   57/34
        CAB4         1031   PROGRAM*       37/32 L   37/44     37/49
        CA.BNAML       52   FTX            46/14     48/49
        CA.W            0   FTX            46/11     46/28     49/02
        CBI             0   EXTERNAL*       2/27 X   14/41 S   76/54     83/26     83/51 S
        CB.BLENL       30   FTX            46/15
        CB.SAVEL        1   FTX            49/04
        CB.SAVEP       72   FTX            49/04
        CB.W            1   FTX            46/28     48/46     49/02
        CHAR            6   FTX            20/04     54/39     54/43     81/38     81/45
                                           54/38     54/40     81/07     81/39
        CIDMOD         65   PROGRAM*        9/44 E    9/44 L   58/06
        CII             0   EXTERNAL*       2/43 X   23/15
        CIO=            0   EXTERNAL*       2/46 X   19/12     20/55
        CLE          1037   PROGRAM*       27/49     38/44 L   38/44 E
        CLE.EQ       1040   PROGRAM*       38/45 L   38/45 E
        COMMOD         66   PROGRAM*        9/46 E    9/46 L   13/19 S   61/55
        CO.ARGC         0   EXTERNAL*       2/16 X   13/17     81/26
        CO.ARGF         0   EXTERNAL*       2/18 X   81/27
        CO.DBPM         0   EXTERNAL*       2/16 X   46/01     49/19
        CO.LL           0   EXTERNAL*      18/26
        CO.OPT          0   EXTERNAL*       2/16 X   13/30     17/42
        CO.PW           0   EXTERNAL*       2/16 X   14/50
        CO.SNAP         0   EXTERNAL*       2/16 X
        CP.MODL         0   EXTERNAL*       2/16 X   81/16
        CP#RM           0   FTX            13/38 F   13/47 F
        DA.BIASL       30   FTX            39/31
        DA.BIASP       22   FTX            39/35     39/37
        DA.ORDL        20   FTX            39/38
        DA.ORDP        52   FTX            39/37     40/11
        DA.RPP         72   FTX            40/14
        DA.WCL         22   FTX            40/05
        DA.WCP          0   FTX            40/11     40/14
        DB.CNTL        30   FTX            40/55     41/53
        DB.CNTP         0   FTX            41/09     41/51
        DB.INCL        30   FTX            40/56     41/47
        DB.INCP        36   FTX            41/09     41/45     41/51
        DC.CNTL        22                  39/13 D   78/26     78/27
        DC.CNTP         0                  39/13 D   78/26
        DC.LINKP       73                  39/10 D   42/39
        DC.PTRL        22                  39/12 D   42/41
        DC.PTRP        22                  39/12 D   42/39     42/51
        DDS          1045   PROGRAM*       27/04     39/16 L
        DDS10        1052   PROGRAM*       39/26 L   41/23     42/24     42/27     43/13
        DDS20        1062   PROGRAM*       40/02     40/05 L
        DDS50        1110   PROGRAM*       40/18     41/21 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        DDS70        1124   PROGRAM*       41/42     42/14 L   42/21
        DDS80        1133   PROGRAM*       40/50     41/16     42/33 L
        DDS81        1134   PROGRAM*       42/36 L   42/42
        DDS82        1136   PROGRAM*       42/38     42/44 L
        DDS83        1143   PROGRAM*       42/48     43/03 L
        DDS84        1144   PROGRAM*       43/01     43/05 L
        DDS85        1150   PROGRAM*       40/35     43/12 L
        DDS90        1151   PROGRAM*       39/32     43/17 L
        DELAY         200   PROGRAM*       12/22 L   14/40 S   35/26
        DFD          1162   PROGRAM*       20/47     44/04 L
        DFD20        1166   PROGRAM*       44/11     44/19 L
        DH.ASL          1   FTX            75/48
        DH.ASP         72   FTX            75/48
        DH.DIML         6   FTX            75/39     75/40     75/48
        DH.DIMP         0   FTX            75/39     75/48
        DH.MATP        70   FTX            44/45     75/36
        DH.RAL         30   FTX            57/56     93/33     93/34
        DH.RAP          6   FTX            57/57     62/41     93/33
        DH.VDL          1   FTX            75/48
        DH.VDP         73   FTX            75/48
        DIT          1212   PROGRAM*       18/33     45/39 L
        DIT10        1216   PROGRAM*       45/43     45/49 L
        DIT20        1227   PROGRAM*       46/26 L   46/47
        DIT40        1233   PROGRAM*       46/39     46/42 L
        DIT50        1234   PROGRAM*       46/33     46/44 L
        DIT60        1236   PROGRAM*       46/26     46/49 L
        DIT70        1247   PROGRAM*       47/17 L   47/34
        DLC          1256   PROGRAM*       45/44     48/04 L
        DLC20        1272   PROGRAM*       49/01 L   49/08
        DLC28        1274   PROGRAM*       49/06     49/08 L
        DLC30        1275   PROGRAM*       48/40     49/10 L
        DLC40        1277   PROGRAM*       48/37     49/19 L
        DLC45        1301   PROGRAM*       49/23 L   49/27
        DLC60        1303   PROGRAM*       49/20     49/32 L
        DLF          1310   PROGRAM*       20/46     50/12 L   50/12 E
        DLFA         1374   PROGRAM*       50/25 S   52/56     53/03 L
        DLF10        1324   PROGRAM*       50/53 L   51/18
        DLF100       1360   PROGRAM*       52/05     52/21 L
        DLF110       1361   PROGRAM*       52/21     52/23 L
        DLF120       1364   PROGRAM*       51/42     52/34 L
        DLF130       1372   PROGRAM*       52/38     52/56 L
        DLF20        1327   PROGRAM*       51/04     51/06 L
        DLF30        1330   PROGRAM*       50/57     51/10 L
        DLF40        1333   PROGRAM*       51/14     51/18 L
        DLF50        1335   PROGRAM*       51/20     51/22 L
        DLF60        1341   PROGRAM*       50/31     51/33 L
        DLF70        1352   PROGRAM*       52/02 L   52/16
        DLF80        1353   PROGRAM*       52/05 L   52/19
        DLF90        1356   PROGRAM*       52/09     52/14 L
        DMT=            0   EXTERNAL*       2/13 X
        DM.INFL        30   FTX            76/13     76/17     76/22
        DM.INFP         0   FTX            76/13
        DM.TDP         35   FTX            76/21     76/25
        DTX          1375   PROGRAM*       14/49     22/21     33/15     43/17     65/03     85/18
                                           19/42     27/11     41/41     53/19 L   71/24     94/40
                                           20/45     33/12     42/25     61/18     77/04
        DTX10        1404   PROGRAM*       53/23     53/39 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        DXB             0   EXTERNAL*       2/46 X   54/46
        D1.SPANL       36   FTX            76/05
        D1.SPANP        0   FTX            76/05
        D1.W            0   FTX            76/01
        D2.LBP         36   FTX            76/13
        D2.W            1   FTX            76/01
        END.ERR       455   PROGRAM*       13/51     21/03 L
        END.50        452   PROGRAM*       20/50     20/55 L   21/06
        EP.NAMEL       52   FTX            47/26
        EP.NAMEP       22   FTX            47/27
        EP.ORDL        22   FTX            47/19
        EP.ORDP         0   FTX            47/18
        ERRORS          0   EXTERNAL*       2/27 X   13/50
        ESL          1407   PROGRAM*       27/29     54/09 L   54/09 E
        ESL10        1421   PROGRAM*       54/40 L   54/42
        ESL.EQ       1410   PROGRAM*       54/10 L   54/10 E
        FAPSUD        132   PROGRAM*       11/14 L   11/14 E
        FAS           221   PROGRAM*       13/11 L   13/11 E
        FASRTN        270   PROGRAM*       14/54     17/01     17/26     17/46     18/35     19/15     19/44
                                           15/05 L   17/10     17/33     17/49     18/43     19/25     20/24
                                           16/01     17/17     17/44     18/24     18/55     19/34
        FAS1          225   PROGRAM*       13/18     13/22 L
        FAS5          242   PROGRAM*       13/31     13/36     13/50 L
        FBP          1430   PROGRAM*       15/57     20/19     31/36     33/28     55/11 E
                                           18/23     28/37     32/53     55/11 L
        FBP.EQ       1431   PROGRAM*       55/13 L   55/13 E
        FCLMOD         70   PROGRAM*        9/49 E    9/49 L   65/45     79/03
        FI=BCI        565   PROGRAM*       11/43     26/37 L
        FI=BOS        613   PROGRAM*       11/44     27/35 L
        FI=BRLI         0   EXTERNAL*       2/13 X
        FI=BSS        610   PROGRAM*       11/46     27/27 L
        FI=CPL        616   PROGRAM*       11/45     28/01 L
        FI=DATA       567   PROGRAM*       11/47     26/45 L
        FI=ECI        606   PROGRAM*       11/48     27/19 L
        FI=EMI        631   PROGRAM*       11/49     28/43 L
        FI=JPI        633   PROGRAM*       11/50     29/01 L
        FI=LD0        653   PROGRAM*       11/51     30/15 L
        FI=LOO        636   PROGRAM*       11/53     29/16 L
        FI=OTR        640   PROGRAM*       11/54     29/26 L
        FI=RJ3        651   PROGRAM*       11/55     30/01 L
        FI=RJ6        715   PROGRAM*       11/56     32/20 L
        FI=SB0I       663   PROGRAM*       12/01     30/44 L
        FI=ST0        662   PROGRAM*       11/52     30/37 L
        FI=SUBI       665   PROGRAM*       11/57     31/01 L
        FI=UJP        701   PROGRAM*       12/02     31/42 L
        FI=USE        737   PROGRAM*       12/03     33/10 L
        FI=ZERO       745   PROGRAM*       12/04     33/22 L
        FLA          1435   PROGRAM*       17/48     55/32 L
        FLA2         1440   PROGRAM*       55/37 L   55/56
        FO=ADDR       275   PROGRAM*       11/23     15/36 L
        FO=APL        306   PROGRAM*       11/25     16/06 L
        FO=BMI        336   PROGRAM*       11/26     17/08 L
        FO=BSS        340   PROGRAM*       11/24     17/15 L
        FO=CON        342   PROGRAM*       11/27     17/22 L
        FO=END        436   PROGRAM*       11/28     20/35 L
        FO=EQUN       345   PROGRAM*       11/29     17/31 L
        FO=FMT        347   PROGRAM*       11/30     17/38 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        FO=FVEC       356   PROGRAM*       11/31     18/01 L
        FO=IDNT       367   PROGRAM*       11/32     18/32 L
        FO=IOM        372   PROGRAM*       11/33     18/40 L
        FO=LCC        403   PROGRAM*       11/34     19/01 L
        FO=LOO        412   PROGRAM*       11/35     19/20 L
        FO=NLST       414   PROGRAM*       11/36     19/30 L
        FO=PLIM       366   PROGRAM*       11/37     18/26 L
        FO=TRAC       424   PROGRAM*       11/38     20/01 L
        FO=USE        420   PROGRAM*       11/39     19/39 L
        FP.SUBL        16   FTX            31/24     35/02
        FP.SUBP        44   FTX            31/03     35/01     35/07
        FP.SUB0L       22   FTX            36/32
        FP.SUB0P       22   FTX            30/46     36/30     36/35
        FST          1447   PROGRAM*       45/09     56/57 L
        FSTA         1524   PROGRAM*       57/32     60/01 L
        FSTB         1527   PROGRAM*       58/37 S   59/23     59/49 S   60/23 L
        FST10        1455   PROGRAM*       57/17 L   59/33     59/42     59/55
        FST30        1476   PROGRAM*       58/15     58/23     58/26 L
        FST40        1501   PROGRAM*       58/40 L   59/50
        FST50        1503   PROGRAM*       58/42     58/49 L
        FST60        1513   PROGRAM*       58/53     59/13     59/23 L
        FST65        1516   PROGRAM*       59/24     59/35 L
        FST70        1520   PROGRAM*       58/38     59/44 L
        FST80        1522   PROGRAM*       57/23     59/52 L
        FUDGE           1   FTX            77/43
        FVEC.10       362   PROGRAM*       18/06     18/14 L
        FVEC.20       363   PROGRAM*       18/20 L   18/27
        FV.LGO          0   EXTERNAL*       2/16 X   13/35     20/37
        F.LBT           0   EXTERNAL*       2/27 X   14/32     14/33     16/34     31/28     83/32     83/48
        F.LGO           0   EXTERNAL*       2/17 X   13/39     19/12     20/55     95/20
        F.PB            0   EXTERNAL*       2/17 X   90/11     90/31
        GT1             0   EXTERNAL*       2/17 X   95/19 S   95/21
        IA.BIASL       30   FTX            61/13     61/41     62/34     63/15     64/08     66/03     66/42     67/20
        IA.BIASP       22   FTX            61/12     61/53     62/44     63/29     64/54     66/08     67/31
                                           61/46     62/39     63/20     64/34     66/02     67/21
        IA.CHARP       11   FTX            63/01     65/55
        IA.CRHL         1   FTX            61/43
        IA.CRHP        10   FTX            61/43     62/57     63/01
        IA.IOCP        13   FTX            65/38     65/55
        IA.LEFTP       52   FTX            64/33
        IA.MODEL        6   FTX            61/52     65/32
        IA.MODEP       14   FTX            61/53     65/33     65/38
        IA.RITEP       22   FTX            64/34
        IA.STP         12   FTX            62/57     66/08
        IA.TAGL        22   FTX            61/42     65/53     70/20     74/18     74/39
        IA.TAGP        52   FTX            61/44     63/43     65/54     67/48     74/21
                                           61/46     64/33     66/02     70/16     74/40
        IA.VARP         5   FTX            65/34     65/54
        IC.BUF         35   FTX            66/56
        IC.FMT          4   FTX            68/48
        IC.STR         40   FTX            66/54
        IDENT           0   EXTERNAL*       2/27 X   20/02     45/54     81/06
        IDP=            0   EXTERNAL*       2/21 X
        IOCAD          71   PROGRAM*       10/18 D   68/04
        IPSUD         153   PROGRAM*       11/42 D
        I.CBSET         5   FTX            13/39
        I.ECI          26   FTX            23/10
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        KAP          1530   PROGRAM*       16/53     61/08 L
        KAPA          214   PROGRAM*       61/21 S   61/28     64/39 D
        KAP10        1540   PROGRAM*       61/26 L   64/23
        KAP12        1565   PROGRAM*       62/11     62/47 L
        KAP14        1566   PROGRAM*       62/23     62/50 L
        KAP15        1570   PROGRAM*       62/35     62/45     62/48     62/56 L
        KAP20        1601   PROGRAM*       62/54     63/03     63/41 L
        KAP25        1603   PROGRAM*       63/02     63/46 L
        KAP40        1605   PROGRAM*       63/14     63/57 L
        KAP50        1612   PROGRAM*       61/39     63/48     64/17 L   64/37
        KAP80        1615   PROGRAM*       61/48     64/31 L
        KIO          1617   PROGRAM*       18/48     64/53 L
        KIOA          214   PROGRAM*       65/31 S   70/10     70/46 D
        KIOB          215   PROGRAM*       65/02 S   65/15     70/47 D
        KIO10        1625   PROGRAM*       65/13 L   70/44
        KIO100       1731   PROGRAM*       70/24     70/26 L
        KIO110       1736   PROGRAM*       65/28     68/34     70/11     70/38 L
        KIO12        1640   PROGRAM*       65/41     65/51 L
        KIO15        1650   PROGRAM*       66/10     66/22 L
        KIO18        1656   PROGRAM*       66/23     66/49 L
        KIO19        1663   PROGRAM*       66/55     66/57     67/03 L
        KIO20        1665   PROGRAM*       66/32     67/15 L
        KIO30        1666   PROGRAM*       67/15     67/18 L
        KIO40        1674   PROGRAM*       66/33     67/45 L
        KIO60        1721   PROGRAM*       68/41     69/50 L
        KIO70        1722   PROGRAM*       69/52     69/54 L
        KIO80        1723   PROGRAM*       68/55     69/22     69/41     70/06 L
        KIO85        1724   PROGRAM*       66/52     67/04     67/06     70/08 L
        KIO90        1726   PROGRAM*       70/16 L
        KIO=         1700   PROGRAM*       10/27     10/28     10/29     68/16 L
        KIO=ACC      1712   PROGRAM*       10/30     69/01 L
        KIO=BFL      1712   PROGRAM*       10/32     69/02 L
        KIO=BLK      1712   PROGRAM*       10/31     69/03 L
        KIO=BUF      1705   PROGRAM*       10/47     68/39 L
        KIO=CNT      1723   PROGRAM*       10/48     70/03 L
        KIO=DIR      1712   PROGRAM*       10/33     69/05 L
        KIO=END      1701   PROGRAM*       10/20     68/22 L
        KIO=ERR      1701   PROGRAM*       10/21     68/23 L
        KIO=EXS      1712   PROGRAM*       10/34     69/04 L
        KIO=FIL      1712   PROGRAM*       10/35     69/06 L
        KIO=FMD      1712   PROGRAM*       10/37     69/07 L
        KIO=FMT      1714   PROGRAM*       10/22     69/27 L
        KIO=FMTA     1706   PROGRAM*       10/51     68/46 L
        KIO=FMT1     1717   PROGRAM*       69/33     69/39 L
        KIO=FOR      1712   PROGRAM*       10/36     69/08 L
        KIO=IOS      1720   PROGRAM*       10/23     69/47 L
        KIO=LIS      1723   PROGRAM*       67/53     70/05 L
        KIO=MOD      1701   PROGRAM*       10/49     68/24 L
        KIO=NAM      1712   PROGRAM*       10/38     69/09 L
        KIO=NMD      1712   PROGRAM*       10/39     69/10 L
        KIO=NML      1701   PROGRAM*       10/26     68/25 L
        KIO=NUM      1712   PROGRAM*       10/41     69/12 L
        KIO=NXT      1712   PROGRAM*       10/40     69/11 L
        KIO=OPE      1712   PROGRAM*       10/42     69/13 L
        KIO=RCL      1701   PROGRAM*       10/43     68/26 L
        KIO=REC      1720   PROGRAM*       10/24     69/46 L
        KIO=SEQ      1712   PROGRAM*       10/44     69/14 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        KIO=SKP      1701   PROGRAM*       10/25     68/27 L
        KIO=STA      1712   PROGRAM*       10/45     69/15 L
        KIO=STR      1723   PROGRAM*       10/50     70/04 L
        KIO=UNF      1712   PROGRAM*       10/46     69/16 L
        KIO=UNT      1720   PROGRAM*       10/19     69/48 L
        KNG          1741   PROGRAM*       19/31     71/20 L
        KNGA          214   PROGRAM*       71/46 S   71/50     72/05 S   72/19     72/27 S   73/12 D   73/13
        KNGB          215   PROGRAM*       71/44 S   72/42     73/13 D   73/14
        KNGC          216   PROGRAM*       72/28 S   72/52     73/14 D   73/15
        KNGD          217   PROGRAM*       73/15 D
        KNG10        1752   PROGRAM*       71/50 L   72/22
        KNG20        1760   PROGRAM*       72/19 L   73/01
        KNG32        1770   PROGRAM*       72/44     72/47 L
        KNG90        1776   PROGRAM*       72/02     73/05 L
        K=AP            2   FTX            89/23 L
        K=END           5   FTX            89/26 L
        K=GL            1   FTX            89/22 L
        K=IO            3   FTX            89/24 L
        K=LC            4   FTX            89/25 L
        K=SYM           0   FTX            28/10     39/44     62/10     66/07     86/20
        K.GL       100000   FTX            62/47
        LABMOD         67   PROGRAM*        9/47 L   13/20 S   62/50
        LB.ORGL        22   FTX            14/34     16/36     31/29     31/30     83/28     83/50     83/52
        LB.ORGP         0   FTX            31/29     83/50
        LB.PARCL        6   FTX            83/27     83/55
        LB.PARCP       66   FTX            83/29     83/38
        LD0.10        654   PROGRAM*       30/17 L   30/39
        LEVEL2          0   EXTERNAL*       2/37 X   81/36
        LINEBUF         0   EXTERNAL*       2/28 X   14/55     55/17 S   82/18 S   94/30 S
                                           14/52     26/04 S   82/11     90/54 S
        LINES           0   EXTERNAL*       2/28 X
        LI=ADDR         0   EXTERNAL*      11/23
        LI=APL          0   EXTERNAL*      11/25
        LI=BCI          0   EXTERNAL*      11/43
        LI=BMI          0   EXTERNAL*      11/26
        LI=BOS          0   EXTERNAL*      11/44
        LI=BSS          0   EXTERNAL*      11/24     11/46
        LI=CON          0   EXTERNAL*      11/27
        LI=CPL          0   EXTERNAL*      11/45
        LI=DATA         0   EXTERNAL*      11/47
        LI=ECI          0   EXTERNAL*      11/48
        LI=EMI          0   EXTERNAL*      11/49
        LI=END          0   EXTERNAL*      11/28
        LI=EQUN         0   EXTERNAL*      11/29
        LI=FLA          0   EXTERNAL*      12/12
        LI=FMT          0   EXTERNAL*      11/30
        LI=FVEC         0   EXTERNAL*      11/31
        LI=IDNT         0   EXTERNAL*      11/32
        LI=IOM          0   EXTERNAL*      11/33
        LI=JPI          0   EXTERNAL*      11/50
        LI=LCC          0   EXTERNAL*      11/34
        LI=LD0          0   EXTERNAL*      11/51
        LI=LOO          0   EXTERNAL*      11/35     11/53
        LI=NLST         0   EXTERNAL*      11/36
        LI=OTR          0   EXTERNAL*      11/54
        LI=PLIM         0   EXTERNAL*      11/37
        LI=RJ3          0   EXTERNAL*      11/55
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        LI=RJ6          0   EXTERNAL*      11/56
        LI=SB0I         0   EXTERNAL*      12/01
        LI=ST0          0   EXTERNAL*      11/52
        LI=SUBI         0   EXTERNAL*      11/57
        LI=TRAC         0   EXTERNAL*      11/38
        LI=UJP          0   EXTERNAL*      12/02
        LI=USE          0   EXTERNAL*      11/39     12/03
        LI=ZERO         0   EXTERNAL*      12/04
        LN.LABL        22                  38/38 D
        LN.LABP        52                  38/38 D   54/54
        LN.LNL         22                  38/40 D
        LN.LNP         22                  38/40 D   38/53
        LN.RAL         22                  38/41 D
        LN.RAP          0                  38/41 D
        LO.CNTL        30                  73/48 D   74/27
        LO.CNTP         0                  73/48 D
        LO.FPCP        72                  73/41 D
        LO.INDCP       71                  73/42 D   74/29
        LO.INDLP       33                  73/46 D   74/48
        LO.LCMCP       73                  73/40 D
        LO.LENL        22                  73/44 D   74/50
        LO.LENP        36                  73/44 D
        L.BTRB          4                   7/29 D   94/23
        L.77           16                   7/30 D    7/41      7/54     81/50
        MOD             0   EXTERNAL*       2/28 X   20/48     44/30     45/41     46/50
        MO.BLKP        10   FTX            45/42     46/52
        MO.PROP        11   FTX            20/49
        MO.PTYPL        3   FTX            44/29
        MO.PTYPP       11   FTX            44/33
        MVE=            0   EXTERNAL*       2/46 X   16/23     43/09
        M.CHAR          6   FTX            58/51
        NA.GNAML       52                  71/07 D   72/07
        NA.GNAMP       22                  71/07 D   72/13
        NA.NMEML       22                  71/08 D
        NA.NMEMP        0                  71/08 D
        NB.DADRL       22                  71/12 D   72/40     92/57
        NB.DADRP        0                  71/12 D   72/40     92/57
        NB.MNAML       52                  71/11 D   72/30
        NB.MNAMP       22                  71/11 D   72/33
        NC.TEMPL       74                  71/16 D
        NC.TEMPP        0                  71/16 D
        NG.NMEML       17   FTX            92/11     92/49
        NG.NMEMP       55   FTX            92/12
        NG.ORDL        17   FTX            92/49
        NREXT           0   EXTERNAL*       2/28 X   13/26     50/28     50/39     51/33
        N.TABLE         0   EXTERNAL*       2/28 X   42/49     76/49     77/45     91/17
        OA.ADRL        30   FTX            67/46
        OA.ARGL        11   FTX            80/14
        OA.BCPP        30   FTX            63/32     67/36     79/30
        OA.FPP         72   FTX            64/04     66/36     79/22
        OA.INDL         1   FTX            79/45
        OA.INDP        71   FTX            66/53     68/52     70/27     79/31     79/45     79/54
        OA.LCMP        73   FTX            62/25     66/20     79/21
        OA.LEFTP       36   FTX            64/32
        OA.LENL        22   FTX            70/17     70/18     70/23     79/46
        OA.LENP        36   FTX            63/34     68/40     70/18     79/54     80/07
                                           67/33     69/37     79/33     79/57
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   106
        SYMBOLIC REFERENCE TABLE. 
  
        OA.LSTL         1   FTX            66/50     67/52
        OA.LSTP        70   FTX            65/40     66/50     67/52
        OA.SUBSL       25   FTX            64/06     64/08     66/40     66/42
        OA.SUBSP       11   FTX            64/09     66/43
        OA.TYPL         6   FTX            68/47
        OA.TYPP        60   FTX            62/04     62/51     65/51     68/47     68/49     79/10
        OA.VARP        67   FTX            65/49     67/01     69/19     69/32     69/49
        OCL          2000   PROGRAM*       18/49     73/51 L
        OCLA          214   PROGRAM*       74/20 S   74/38     75/09 D
        OCLB          215   PROGRAM*       73/06 D   73/56 S   74/06
        OCL10        2004   PROGRAM*       74/04 L   75/07
        OCL20        2013   PROGRAM*       74/24     74/26 L
        OCL30        2021   PROGRAM*       74/44     74/46 L
        OCPSUD        132   PROGRAM*       11/22 D   15/20     26/32
        OC=FLA         44                  12/12 L   17/45
        OL=BIN        207   PROGRAM*       12/29 L   12/29 E   94/20 S
        OL=LBF        210   PROGRAM*       12/30 L   12/30 E   14/53 S
        OL=PB         211   PROGRAM*       12/31 L   22/46 S   26/08     29/52 S   32/02 S   32/35     55/16
                                           12/31 E   23/37 S   29/33 S   30/31 S   32/31 S   35/43     90/16 S
        OL=RL         212   PROGRAM*       12/32 L   12/32 E
        ORD          2031   PROGRAM*       44/46     71/26     75/24 L
        ORDA          216   PROGRAM*       14/20 S   75/25 S   75/35     76/35 D   95/40
        ORD10        2034   PROGRAM*       75/29 L   75/46     76/33
        ORD20        2043   PROGRAM*       75/43     75/48 L
        ORD40        2046   PROGRAM*       75/55 L   76/32
        ORG           201   PROGRAM*       12/23 L   26/50     36/55     53/39     85/12     88/55
                                           12/23 E   27/10 S   38/47     83/31     86/54     90/49
                                           14/39 S   35/27     41/37 S   83/56 S   88/34     94/27
        ORGD          605   PROGRAM*       26/52 S   27/05     27/14 L
        ORGSUB        203   PROGRAM*       12/25 L   12/25 E   14/47 S
        ORGSUB0       205   PROGRAM*       12/27 L   12/27 E   14/48 S
        OSB          2061   PROGRAM*       20/41     20/44     76/48 L
        OSB10        2067   PROGRAM*       77/10 L   77/18
        OSB20        2072   PROGRAM*       77/15     77/17 L
        OSB30        2074   PROGRAM*       77/13     77/22 L
        OTB          2077   PROGRAM*       44/14     44/50     45/17     77/42 L
        OTB10        2100   PROGRAM*       77/45 L   78/08
        OTB20        2104   PROGRAM*       77/50     77/55 L
        OTC          2111   PROGRAM*       43/21     43/26     78/22 L
        OTC10        2112   PROGRAM*       78/24 L   78/36
        PARCEL        202   PROGRAM*       12/24 L   14/42 S   22/20 S   24/25 S   27/09 S   83/36     94/25 S
                                           12/24 E   15/07     23/33     24/51 S   36/40     83/57 S
        PAT             0   EXTERNAL*       2/43 X   16/08     18/44
        PAW          2120   PROGRAM*       72/54     78/51 L
        PAW20        2144   PROGRAM*       79/25     80/14 L
        PB.BIASL       22   FTX            15/38     19/05     25/10     26/55     32/22     71/32     85/10
                                           18/15     19/21     25/11     29/17     35/44     83/45     88/03
                                           18/17     22/23     25/28     29/46     38/48     83/46
        PB.BIASP       14   FTX            15/36     19/03     25/10     29/18     32/29     35/47     64/54     83/45
                                           15/39     19/07     25/20     29/49     32/44     38/49     76/56     85/11
                                           15/46     19/22     25/37     31/50     32/48     38/51     77/23     85/15
                                           18/14     22/22     26/54     32/25     32/57     61/12     80/03     88/03
        PB.GHIJL       14   FTX            15/09     23/08     29/28     31/56     67/47     74/51
                                           15/11     23/11     29/34     32/23     70/29     86/04
                                           23/07     23/35     29/36     63/42     74/30     86/12
        PB.GHIJP       60   FTX            29/06
        PB.GHL          6   FTX            23/42     23/54     26/27
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   107
        SYMBOLIC REFERENCE TABLE. 
  
        PB.H2L         14   FTX            24/50     30/17
        PB.H2P          0   FTX            25/09     30/19
        PB.IL           3   FTX            29/03     29/06
        PB.INSTL       17   FTX            23/18     23/19     23/24     23/27     34/18
        PB.ORDL        16   FTX            28/04     54/19     62/08     66/05     86/14
        PB.ORDP        36   FTX            54/18
        PB.PFXL         3   FTX            54/13
        PB.PFXP        55   FTX            54/14     54/18
        PB.TAGL        22   FTX            15/40     19/09     28/03     31/06     31/45     36/14     86/05
                                           18/03     25/08     29/36     31/07     31/46     36/15
        PB.TAGP        36   FTX            15/41     19/07     28/05     31/45     67/48     74/43     86/03
                                           18/04     25/09     28/08     36/14     70/30     79/42
                                           18/14     25/20     31/06     63/43     74/32     80/04
        PIA             0   EXTERNAL*       2/28 X   82/14
        PIK             0   EXTERNAL*       2/24 X   82/15
        PIK=PS          0   EXTERNAL*       2/28 X   23/53
        PIT          2150   PROGRAM*       21/04     45/40     81/04 L
        PITA         2173   PROGRAM*       81/31     81/53 L
        PIT1         2167   PROGRAM*       81/42     81/45 L
        POL          2176   PROGRAM*       16/55     17/39     19/14     20/36     27/50     55/52     85/20
                                           17/23     18/34     19/32     26/09     33/16     82/08 L
                                           17/32     18/50     19/43     27/03     55/19     82/08 E
        POL10        2203   PROGRAM*       82/13     82/15 L
        POL.EQ       2177   PROGRAM*       82/09 L   82/09 E
        PUSE         2210   PROGRAM*       19/41     33/14     77/01     77/25     84/08 D
        P=PFX          17   FTX            86/26
  U     QUAL$                              83/06 F   84/06 F
        RAD           461   PROGRAM*       17/09     22/16 L
        RADA          751   PROGRAM*       22/33     23/28 S   33/32 L
        RADB          752   PROGRAM*       19/13     22/47 S   23/36 S   33/33 L   90/11     90/14
        RADC          753   PROGRAM*       15/15 S   24/02 S   26/30 S   30/29 S   33/34 E
                                           17/47 S   24/17     29/32 S   33/34 L
        RADD          754   PROGRAM*       22/41     32/56     33/35 L
        RADE          755   PROGRAM*       22/43     33/02 S   33/36 L
        RADF          756   PROGRAM*       22/37     33/04 S   33/37 L
        RADOL1        531   PROGRAM*       24/37 L   24/37 E
        RADOL2        551   PROGRAM*       25/47 L   25/47 E
        RADRTN        467   PROGRAM*       22/32 L   23/14     26/40     27/22     27/51     29/21     32/55     33/17
                                           22/32 E   26/10     27/12     27/30     28/38     31/37     33/05     33/29
        RAD10         477   PROGRAM*       22/38     22/50 L
        RAD15         506   PROGRAM*       22/48     22/55     23/18 L
        RAD20         510   PROGRAM*       22/36     23/24 L
        RAD30         512   PROGRAM*       23/12     23/16     23/22     23/33 L
        RAD40         523   PROGRAM*       24/16 L   29/39     29/53     30/32
        RAD5          475   PROGRAM*       22/42     22/45 L
        RAD70         533   PROGRAM*       24/18     24/49 L
        RAD80         546   PROGRAM*       24/56     25/38 L
        RAD85         551   PROGRAM*       25/50 L   32/15
        RAD90         556   PROGRAM*       24/43     26/02     26/04 L
        RAD=PSI       562   PROGRAM*       23/44     26/26 L
        RBS          2223   PROGRAM*       17/16     27/28     85/08 L
        RBS1         2230   PROGRAM*       85/17     85/20 L
        RDW=            0   EXTERNAL*       2/46 X   90/11     90/31
        REL          2232   PROGRAM*       15/48     32/04     63/45     70/07     74/34     79/43     85/54 L
                                           25/38     32/33     68/31     70/34     74/55     80/08
        RELMASK      2321   PROGRAM*       15/45 S   61/15 S   68/30 S   71/37 S   74/54 S   80/02 S   88/08     89/29 L
                                           22/25 S   67/50 S   70/32 S   74/28 S   78/53 S   85/56     88/39
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   108
        SYMBOLIC REFERENCE TABLE. 
  
        RELPOS       2322   PROGRAM*       15/47 S   22/24 S   61/14 S   64/55 S   85/57     88/02     89/30 L
        RELSIZ        220   PROGRAM*       12/35 L
        RELTAB       2315   PROGRAM*       86/31     89/20 L
        REL10        2245   PROGRAM*       86/19     86/46 L
        REL15        2252   PROGRAM*       86/53     87/03 L
        REL20        2257   PROGRAM*       87/10     87/16 L
        REL30        2260   PROGRAM*       87/06     87/18 L
        REL50        2266   PROGRAM*       87/08     87/42 L
        REL60        2270   PROGRAM*       86/13     86/38     87/22     87/37     88/02 L
        REL65        2272   PROGRAM*       87/01     88/07 L
        REL70        2301   PROGRAM*       88/32     88/34 L
        REL80        2307   PROGRAM*       88/27     88/53 L
        REL90        2313   PROGRAM*       88/26     88/49     89/16 L
        RJ6.10        726   PROGRAM*       32/39     32/43 L
        RMI          2330   PROGRAM*       27/02     90/29 L
        RNI          2323   PROGRAM*       15/06     22/50     90/10 L   90/10 E
        ROL          2334   PROGRAM*       34/29     90/47 L
        ROL10        2340   PROGRAM*       90/52     90/54 L
        SAVCBI        214   PROGRAM*       21/08 D   76/57 S   77/22
        SAVE            0   EXTERNAL*       2/28 X   48/35
        SAVETR        214   PROGRAM*       32/30 S   32/34     32/43 S   32/54     33/38 D
        SAVVD         213   PROGRAM*       12/33 L   14/29 S   59/14     76/06
        SB.BIASP       22   FTX            35/49
        SB.POSP        60   FTX            35/35     35/36
        SFN             0   EXTERNAL*       2/46 X   20/03
        SMW          2341   PROGRAM*       17/25     17/41     91/16 L
        SMW4         2344   PROGRAM*       91/22 L   91/28
        SNR          2347   PROGRAM*       72/01     72/23     92/01 L   92/01 E
        SNR2         2350   PROGRAM*       92/02 L   93/22
        SNR3         2366   PROGRAM*       93/02     93/24 L
        SNR4         2371   PROGRAM*       93/16     93/26     93/35 L
        SNR5         2373   PROGRAM*       92/06     92/07     92/08     93/39 L
        SST             0   EXTERNAL*       2/46 X   50/34     51/45
        STX          2374   PROGRAM*       15/56     20/23     32/11     34/27     64/22     72/47     77/17     95/46
                                           18/22     28/36     32/52     42/18     70/43     72/57     91/24
                                           20/18     31/35     33/26     55/51     72/15     75/06     94/15 L
        SUBFLG        204   PROGRAM*       12/26 L   12/26 E   71/38 S   73/07 S
        SUBI.10       666   PROGRAM*       30/47     31/04 L
        SUM.LBT         0   EXTERNAL*       2/28 X   14/01     45/55
        SZ.POSP        60   FTX            36/51
        SZ.SLIP        36   FTX            36/51     36/54
        S2.ARYP        43                  56/10 D   60/01
        S2.CGSM     10000                  56/23 D
        S2.CGSP        14                  56/23 D   60/01
        S2.DEFM    200000                  56/19 D
        S2.DEFP        20                  56/19 D   60/01
        S2.ENTP        25                  56/14 D   60/01
        S2.EQVM    100000                  56/20 D
        S2.EQVP        17                  56/20 D   60/01
        S2.EXTM     20000                  56/22 D
        S2.EXTP        15                  56/22 D   60/01
        S2.FPM       4000                  56/24 D
        S2.FPP         13                  56/24 D   60/01
        S2.FUNM     40000                  56/21 D
        S2.FUNP        16                  56/21 D   60/01
        S2.LABM    400000                  56/18 D
        S2.LABP        21                  56/18 D
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   109
        SYMBOLIC REFERENCE TABLE. 
  
        S2.LCMM      1000                  56/26 D
        S2.LCMP        11                  56/26 D   60/01
        S2.LEVM      2000                  56/25 D
        S2.LEVP        12                  56/25 D   58/24
        S2.MATP        22                  56/17 D   60/01
        S2.NLSTP       26                  56/13 D   60/01
        S2.PARMP       24                  56/15 D   60/01
        S2.PNTL        14                  56/09 D
        S2.PNTP        44                  56/09 D   58/03
        S2.SIZL         3                  56/28 D
        S2.SIZP         0                  56/28 D
        S2.SUBP        27                  56/12 D   60/01
        S2.TYPL         6                  56/27 D
        S2.TYPP         3                  56/27 D   58/12
        S2.W            1                  56/07 D   57/28
        S2.1REFP       23                  56/16 D   60/01
        S3.BCPL         4                  56/36 D
        S3.BCPP        30                  56/36 D   59/02
        S3.CLENL       21                  56/34 D   59/15
        S3.CLENP       36                  56/34 D   59/09     59/17
        S3.CLP         57                  56/33 D   59/10
        S3.RAL         30                  56/37 D
        S3.RAP          0                  56/37 D
        S3.RBL         11                  56/32 D
        S3.RBP         60                  56/32 D   58/50
        S3.W            2                  56/30 D
        S=BU            0   EXTERNAL*       2/29 X   86/47
        S=ENTRY         0   EXTERNAL*       2/29 X   20/06     31/43
        S=LENP          0   EXTERNAL*       2/29 X   13/57     29/37
        S=RD            0   EXTERNAL*       2/29 X   62/32     71/30
        S=SA1           0   EXTERNAL*       2/29 X   44/21
        S=VD            0   EXTERNAL*       2/29 X   14/18     79/53
        TAGSUB0       206   PROGRAM*       12/28 L   12/28 E   22/35 S   36/16 S
        TEMP          214   PROGRAM*       12/34 L   32/10 S   33/38     70/46     73/06     75/09
                                           21/08     32/12     64/39     70/47     73/12     76/35
        TEST            0   FTX            15/17 F   28/27 F   39/33 F   41/31 F   54/47 F   69/17 F   80/18 F   90/32 F
                                           22/52 F   31/08 F   39/40 F   42/19 F   61/31 F   69/28 F   86/27 F   92/16 F
                                           23/03 F   31/26 F   41/03 F   50/16 F   65/20 F   71/53 F   89/08 F   92/39 F
                                           27/36 F   36/45 F   41/26 F   52/46 F   67/55 F   79/28 F   90/12 F   93/04 F
        TL.DATE         0   EXTERNAL*       2/17 X   81/05
        TL.PTYP         0   EXTERNAL*       2/17 X   81/17
        TL.TIME         0   EXTERNAL*       2/17 X   81/10
        T=APL           0   EXTERNAL*       2/29 X   16/10     16/56     16/56 S   61/16     61/26
        T=BLKS          0   EXTERNAL*       2/29 X   45/49     48/12
        T=CLW           0   EXTERNAL*       2/29 X   18/51     18/51 S   73/52     74/04
        T=CLWB          0   EXTERNAL*       2/36 X   18/47     18/47 S   18/54     18/54 S
        T=DATS          0   EXTERNAL*       2/30 X   26/53     26/53 S   27/07     27/07 S   39/27
        T=DIM           0   EXTERNAL*       2/30 X   75/29
        T=ENT           0   EXTERNAL*       2/30 X   47/01
        T=FILL          0   EXTERNAL*       2/30 X   13/23     13/23 S   51/38     51/48
        T=IOA           0   EXTERNAL*       2/30 X   18/42     18/52     18/52 S   65/04     65/13
        T=LA            0   EXTERNAL*       2/30 X   17/43
        T=LCA           0   EXTERNAL*       2/30 X   16/09     16/18     16/39
        T=LCC           0   EXTERNAL*       2/30 X   19/10     19/10 S
        T=LGOB          0   EXTERNAL*       2/30 X   13/37     13/37 S
        T=LINK          0   EXTERNAL*       2/31 X   13/22     13/22 S   50/26     50/37     51/34     51/34 S
        T=LNT           0   EXTERNAL*       2/31 X   13/25     13/25 S   54/50
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   110
        SYMBOLIC REFERENCE TABLE. 
  
        T=NLST          0   EXTERNAL*       2/31 X   19/33     19/33 S   92/02
        T=PTXT          0   EXTERNAL*       2/31 X   39/18     39/18 S   43/22     43/22 S
        T=PTXTR         0   EXTERNAL*       2/31 X   16/52 S   16/57 S   18/46 S   18/53 S   39/19 S   43/27 S
                                           16/52     16/57     18/46     18/53     39/19     43/27
        T=SCR           0   EXTERNAL*       2/31 X   45/02 S   45/52 S   46/53 S   47/37 S   48/16 S   49/40 S   75/28
                                           45/02     45/52     46/53     47/37     48/16     49/40     59/52     75/28 S
        T=SYM           0   EXTERNAL*       2/31 X   45/04     57/06
        T=XFIL          0   EXTERNAL*       2/32 X   13/24     13/24 S   52/34     52/55     52/55 S
        T.API           0   EXTERNAL*       2/32 X   89/23
        T.APL           0   EXTERNAL*       2/32 X   16/15     16/17     61/27
        T.BLKS          0   EXTERNAL*       2/32 X   46/10     48/45
        T.CAC           0   EXTERNAL*       2/32 X   63/16     67/18
        T.CLW           0   EXTERNAL*       2/32 X   74/05
        T.CLWB          0   EXTERNAL*       2/36 X   73/57     75/01
        T.CON           0   EXTERNAL*       2/32 X   17/24
        T.DATS          0   EXTERNAL*       2/32 X   26/57     39/26     43/07
        T.DIM           0   EXTERNAL*       2/33 X   57/51     62/36     75/30     75/55     93/27
        T.ENT           0   EXTERNAL*       2/33 X   47/11
        T.FILL          0   EXTERNAL*       2/33 X   13/28     13/28     51/39     51/47     87/32
        T.FMT           0   EXTERNAL*       2/33 X   17/40
        T.FPI           0   EXTERNAL*       2/33 X   34/54     36/23
        T.FPO           0   EXTERNAL*       2/33 X   31/21
        T.GL            0   EXTERNAL*       2/33 X   89/22
        T.IOA           0   EXTERNAL*       2/33 X   65/14
        T.IOI           0   EXTERNAL*       2/33 X   89/24
        T.LA            0   EXTERNAL*       2/34 X   55/33
        T.LCA           0   EXTERNAL*       2/34 X   16/19     16/31     89/25
        T.LCC           0   EXTERNAL*       2/34 X   19/02
        T.LGOB          0   EXTERNAL*       2/34 X   13/45
        T.LINK          0   EXTERNAL*       2/34 X   13/27     50/27     50/36     51/23     87/42
        T.LNT           0   EXTERNAL*       2/34 X   38/55     44/10     54/49
        T.NLST          0   EXTERNAL*       2/34 X   92/03
        T.PTXT          0   EXTERNAL*       2/34 X   39/20     40/49     43/19     43/20
        T.PTXTR         0   EXTERNAL*       2/35 X   39/21     43/24     61/17     65/08
                                           39/21     41/15     43/25     64/19     70/38
        T.SCR           0   EXTERNAL*       2/35 X   45/08     45/53     48/19     95/43
                                           44/47     45/13     47/04     57/04
        T.SUB           0   EXTERNAL*       2/35 X   20/39     34/56
        T.SUB0          0   EXTERNAL*       2/35 X   20/42     37/02
        T.SYM           0   EXTERNAL*       2/35 X   18/02     28/11     36/17     47/09     55/37     66/11     92/47
                                           14/04     20/08     29/42     39/48     50/38     57/05     71/31
                                           14/19     24/55     31/10     44/22     54/17     62/12     86/46
        T.XFIL          0   EXTERNAL*       2/35 X   13/29     13/29     52/35     88/48
        UJP.10        705   PROGRAM*       29/11     30/04     31/56 L
        UJP.5         704   PROGRAM*       31/48     31/53 L
        USAVE           0   EXTERNAL*       2/35 X   48/34
        VFD             0   EXTERNAL*       2/24 X   24/41     25/52
        WA.STLL        36   FTX            54/35
        WA.STLP        30   FTX            54/36
        WA.SYML        52   FTX            18/10     50/48     57/19     71/07     71/11
        WA.SYMP        22   FTX            72/13     72/33
        WA.W            0   FTX            18/09     54/25     54/34     57/26     57/28     72/06     72/29
        WB.ARYP        12   FTX            60/01     93/25
        WB.CGSP         4   FTX            60/01
        WB.COMP        17   FTX            58/41
        WB.ENTP        15   FTX            60/01
        WB.EQVP        11   FTX            60/01
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   111
        SYMBOLIC REFERENCE TABLE. 
  
        WB.EXTP        16   FTX            60/01     87/07     87/09
        WB.FMTLL       14   FTX            69/34
        WB.FMTLP       41   FTX            69/35
        WB.FPL          1   FTX            66/19
        WB.FPNOL       11   FTX            28/23     28/26     31/20     36/28     63/57     87/11
                                           28/24     31/16     36/21     59/44     66/37
        WB.FPNOP       41   FTX            28/23     31/17     36/25     59/46     64/03     66/38     80/15     87/12
        WB.FPP         20   FTX            58/34     59/46     62/22     66/19     79/14     87/09
                                           58/41     60/01     64/03     66/38     79/18     87/12
        WB.FUNP        14   FTX            60/01
        WB.LABL         1   FTX            54/29     57/22     62/20     69/35
        WB.LABP         3   FTX            54/29     57/22     62/20     62/22     69/31     69/35     87/05     87/07
        WB.LCMP        21   FTX            58/14     60/01     62/25     66/20     80/15
                                           58/34     62/18     66/17     79/18     87/29
        WB.LEVNL        2   FTX            58/16
        WB.LEVNP       55   FTX            58/17
        WB.LEVP        33   FTX            58/05     58/17
        WB.MATP        36   FTX            40/08     60/01     93/15
        WB.MODEL        3   FTX            57/48     78/56
        WB.MODEP        0   FTX            58/14     79/14
        WB.NLSTP       34   FTX            60/01
        WB.PARMP       10   FTX            60/01
        WB.PNTL        15   FTX            57/49     93/31
        WB.PNTP        57   FTX            57/47     58/05
        WB.SDEFL        1   FTX            54/29     55/45
        WB.SDEFP        7   FTX            54/29     55/45     60/01
        WB.SUBP        13   FTX            60/01
        WB.VARL         1   FTX            57/44
        WB.VARP         5   FTX            57/44
        WB.W            1   FTX            18/08     36/18     55/39     57/10     59/36     72/06     87/18
                                           28/12     40/07     55/44     57/26     59/41     72/29     92/51
                                           28/17     54/25     56/07     58/33     62/17     78/54
                                           31/14     54/34     57/08     59/32     66/16     87/03
        WB.1REFP       37   FTX            60/01
        WC.BCPL         4   FTX            58/52     63/17     67/25     79/12
        WC.BCPP        30   FTX            58/54     59/01     59/06     63/25     63/30     67/34     79/01     79/15
        WC.CLENL       22   FTX            28/18     58/57     63/18     67/24     79/26     79/27
        WC.CLENP       36   FTX            28/19     59/01     63/30     67/28     67/34     79/26
        WC.CTYPP       35   FTX            59/06     79/15
        WC.RAL         30   FTX            14/07     20/13     39/51     55/43     71/41     87/19
                                           14/26     25/19     44/31     59/35     78/52
        WC.RAP          0   FTX            16/37     39/55     59/37     87/24
        WC.RBL         12   FTX            39/52     58/43     87/23
        WC.RBP         60   FTX            39/55     58/40     58/54     87/24
        WC.W            2   FTX            14/06     18/09     25/29     39/49     44/23     56/30     59/36     78/54
                                           14/21     20/12     28/17     39/49     47/12     58/33     59/41     87/18
                                           18/08     25/22     29/44     40/07     55/44     59/32     71/39
        WLF          2410   PROGRAM*       19/11     21/05     46/49     49/39     52/30     53/38     78/35     95/16 L
                                           20/51     42/26     47/36     51/31     52/54     78/07     81/50     95/16 E
        WLF.EQ       2411   PROGRAM*       95/17 L   95/17 E
        WOD             0   EXTERNAL*       2/46 X   55/15
        WO.LOO          0   EXTERNAL*       2/35 X   19/24 S   29/20 S   82/10
        WO.56           0   EXTERNAL*       2/36 X   44/19
        WO.57           0   EXTERNAL*       2/36 X   44/09
        WTW=            0   EXTERNAL*       2/46 X   95/20
        WWB          2415   PROGRAM*       75/54     76/29     95/39 L
        WWB10        2422   PROGRAM*       95/41     95/46 L
1       FAS - FORTRAN INTERNAL ASSEMBLER.                             COMPASS 3.7-871.     24/05/02. 13.18.44.      PAGE   112
        SYMBOLIC REFERENCE TABLE. 
  
        Z=BLKS          2   FTX            40/01     45/51     46/12     48/15     48/47     58/45     87/27
        Z=CLW           2   FTX            74/07
        Z=IOA           2   FTX            65/07     65/16
        Z=SYM           3   FTX             9/24     25/16     31/13     44/26     47/22     57/09     66/14
                                           14/24     25/26     36/24     45/01     54/24     59/53     71/36
                                           20/11     28/15     39/47     45/08     57/08     62/15     86/52
        Z.PSUD         44   FTX            12/06 D   12/11
        .DAL            1   FTX            30/09 F   36/13 F   81/35 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFUSE 
  
  
        PUSE         2210   PROGRAM*       83/22 L   84/08
1       ZEROLNK - 0,0 OVERLAY LINKAGES                                COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        3              IDENT  ZEROLNK
                          3                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=ZEROL          0+           LUS              0+           FIN              3+ 
                                        PIK              0+           MOVES            2+           FIN.MAP          3+ 
                                        VFD              0+           PARSLEN          2+           FIN.OL           3+ 
                                        MAP              0+           ALC=CNT          2+ 
  
  
  
  
                                                  IDENT  ZEROLNK                                                 ZEROLNK     2
                                         ZEROLNK  SECT   (0,0 OVERLAY LINKAGES)                                  ZEROLNK     3
  
  
  
  
  
                                        **        ZEROLNK PROVIDES ENTRY POINTS NORMALLY SUPPLIED BY *MAP*       ZEROLNK     5
                                        *         *LIST*, AND *PUC* FOR THE SHORT (0,0) OVERLAY.                 FC5A150   539
                                                                                                                 ZEROLNK     7
             0  0400400000 +             PIK      SUBR   =                                                       ZEROLNK     8
             1  0400000000 +                      EQ     EXIT.                                                   ZEROLNK     9
                                                                                                                 ZEROLNK    10
                                         VFD      EQUENT PIK                                                     FC5A171A  358
                                         MAP      EQUENT PIK                                                     ZEROLNK    11
                                         LUS      EQUENT PIK                                                     FC5A150   540
             2                     1     MOVES    BSSENT 1                                                       FC5A150   541
                                         PARSLEN  EQUENT MOVES                                                   FC5A150   542
                                         ALC=CNT  EQUENT MOVES                                                   FC5A150   543
                                                                                                                 ZEROLNK    12
             3                           FIN      BSSENT 0                                                       ZEROLNK    13
             3                           FIN.MAP  BSSENT 0                                                       ZEROLNK    14
             3                           FIN.OL   BSSENT 0                                                       ZEROLNK    15
                                                                                                                 ZEROLNK    16
                                                  LIST   D                                                       ZEROLNK    17
             3                                    END                                                            ZEROLNK    18
  
                             67600B CM  STORAGE USED               61 STATEMENTS     1646 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.234 SECONDS          25 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC=CNT         2   PROGRAM*        1/35 D    1/35 E
        B1=1            0 
        FIN             3   PROGRAM*        1/37 L    1/37 E
        FIN.MAP         3   PROGRAM*        1/38 L    1/38 E
        FIN.OL          3   PROGRAM*        1/39 L    1/39 E
        LUS             0   PROGRAM*        1/32 D    1/32 E
        MAP             0   PROGRAM*        1/31 D    1/31 E
1       ZEROLNK - 0,0 OVERLAY LINKAGES                                COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     2
        SYMBOLIC REFERENCE TABLE. 
  
        MOVES           2   PROGRAM*        1/33 L    1/33 E    1/34      1/35
        PARSLEN         2   PROGRAM*        1/34 D    1/34 E
        PIK             0   PROGRAM*        1/27 L    1/27 E    1/30      1/31      1/32
        VFD             0   PROGRAM*        1/30 D    1/30 E
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     3244              IDENT  MAP
                       3244              FIN.MAP  END                END OF (1,0) OVERLAY WHEN NO OLIST 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      3163 
                                        LITERALS* LOCAL        3163        61 
  
  
                                        ENTRY POINTS. 
  
                                        B=MAP            0+           MAP            517+ 
                                        FIN              0+           FIN.MAP       3244+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ADW       F.REF     MOD       T=ECT     T.ECT     WO.LOR    MVE=
                                        ALC       BLNKCOM   O.STITL   T=REF     T.REF     WO.QC     RDW=
                                        DMT=      FAILSFT   PASS      T=SCR     T.SCR     T.ENTP    SBM=
                                        CO.PS     HDRBL     PIA       T=SYM     T.SYM     SCSA      SFN 
                                        CO.PW     LCNT      REFIO     T.BLKS    WOF       SCS       SST 
                                        CO.SNAP   LINEBUF   S=VALUE   T.CON     WO.LOA    CDD       WOD 
                                        CP.BLF    LOSTREF   T=BLKS    T.DIM     WO.LOM    CIO=      ZTB 
  
  
  
  
                                                  IDENT  MAP                                                     MAP         2
                                         MAP      SECT   (STORAGE MAP AND CROSS REFERENCE.)                      MAP         3
  
  
  
  
  
                                        *         IN ALLOC                                                       MAP         5
                                                  EXT    ADW,ALC                                                 MAP         6
                                                                                                                 MAP         7
                                        *         IN FSNAP                                                       MAP         8
                                                  EXT    DMT=                                                    MAP         9
                                                                                                                 MAP        10
                                        *         IN FTN                                                         MAP        11
                                                  EXT    CO.PS,CO.PW,CO.SNAP,CP.BLF,F.REF                        FC5A107    18
                                                                                                                 MAP        13
                                        *         IN PUC                                                         MAP        14
                                                  EXT    BLNKCOM,FAILSFT,HDRBL,LCNT,LINEBUF,LOSTREF,MOD,O.STITL  MAP        15
                                                  EXT    PASS,PIA,REFIO,S=VALUE,T=BLKS,T=ECT,T=REF,T=SCR,T=SYM   MAP        16
                                                  EXT    T.BLKS,T.CON,T.DIM,T.ECT,T.REF,T.SCR,T.SYM,WOF,WO.LOA   MAP        17
                                                  EXT    WO.LOM,WO.LOR,WO.QC,T.ENTP                              MAP        18
                                                                                                                 MAP        19
                                        *         IN RLINK                                                       MAP        20
                                                  EXT    SCSA,SCS                                                MAP        21
                                                                                                                 MAP        22
                                        *         IN UTILITY                                                     MAP        23
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     2
                                                                      MAP 
  
                                                  EXT    CDD,CIO=,MVE=,RDW=,SBM=,SFN,SST,WOD,ZTB                 MAP        24
                                                                                                                 MAP        25
             0                           FIN      BSSENT 0           END OF OVERLAY WHEN MAP AND OLIST ARE OFFF  MAP        26
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     3
        MACRO AND MICRO DEFINITIONS 
  
                                        **        ALL MACROS LOCAL TO THE DECK MAP ARE DEFINED HERE.             MAP        29
                                                                                                                 MAP        30
                                                                                                                 MAP        31
                                        **        DDTE - DEFINE A DEPENDENT TABLE ENTRY.                         MAP        32
                                        *                                                                        MAP        33
                                        *         DEFINES AN ENTRY IN A TABLE THAT DEPENDS ON THE ORDER          MAP        34
                                        *         IN WHICH THE DIFFERENT MAP SEGMENTS ARE OUTPUT.                MAP        35
                                        *         THE MACRO WILL CAUSE AN ASSEMBLY ERROR IF THE ORDER            MAP        36
                                        *         OF THE TABLE BEING GENERATED IS NOT THE SAME AS THE            MAP        37
                                        *         ORDER OF *MST*.                                                MAP        38
                                        *                                                                        MAP        39
                                        *         DDTE   TEST,STMT1,STMT2.                                       MAP        40
                                                                                                                 MAP        41
                                                  PURGMAC  DDTE                                                  MAP        42
                                                                                                                 MAP        43
                                         DDTE     MACRO  TEST,STMT1,STMT2                                        MAP        44
                                         .1       SET    STO+1                                                   MAP        45
                                         STO      SET    .1                                                      MAP        46
                                                  ERRNZ  TEST-.1                                                 MAP        47
                                                  STMT1                                                          MAP        48
                                                  STMT2                                                          MAP        49
                                         DDTE     ENDM                                                           MAP        50
  
  
  
  
                                        **        DTE -  DEFINE TABLE ENTRY.                                     MAP        52
                                        *                                                                        MAP        53
                                        *         DEFINES ENTRY IN A TABLE OF ROUTINE ADDRESSES.                 MAP        54
                                        *         USED TO CREATE AN ADDRESS TABLE FOR MAP FORMATTERS.            MAP        55
                                        *                                                                        MAP        56
                                        *         DTE    ADRS1,ADRS2.                                            MAP        57
                                                                                                                 MAP        58
                                                  PURGMAC  DTE                                                   MAP        59
                                                                                                                 MAP        60
                                         DTE      MACRO  ADRS1,ADRS2                                             MAP        61
                                                  VFD    30/ADRS1,30/ADRS2                                       MAP        62
                                         DTE      ENDM                                                           MAP        63
  
  
  
  
                                        **        DMSTE -  DEFINE MAP SEGMENT TABLE ENTRY.                       MAP        65
                                        *                                                                        MAP        66
                                        *         MAKES ENTRY IN MAP SEGMENT TABLE AND DEFINES A SYMBOL          MAP        67
                                        *         WHICH DESCRIBES THE POSITION OF THE SEGMENT WITHIN THE         MAP        68
                                        *         TABLE.                                                         MAP        69
                                        *                                                                        MAP        70
                                        *         DMSTE  SEG,IR.                                                 MAP        71
                                                                                                                 MAP        72
                                                  PURGMAC  DMSTE                                                 MAP        73
                                                                                                                 MAP        74
                                         DMSTE    MACRO  SEG,IR                                                  MAP        75
                                                  VFD    30/SEG,30/IR                                            MAP        76
                                         SEG_P    SET    STO+1                                                   MAP        77
                                         STO      SET    SEG_P                                                   MAP        78
                                         DMSTE    ENDM                                                           MAP        79
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     4
        MACRO AND MICRO DEFINITIONS                                   MACROS
  
                                        **        RESR - RESTORE CONTENTS OF REGISTERS.                          MAP        81
                                        *                                                                        MAP        82
                                        *         FETCHES PREVIOUSLY STORED REGS FROM A MEMORY BLOCK .           MAP        83
                                        *         IF A1 IS IN THE LIST, IT MUST BE LAST.                         FC5A185     4
                                        *                                                                        MAP        87
                                        *         RESR   (R1,R2...R5),ADRS.                                      MAP        88
                                        *                                                                        MAP        89
                                        *         USES   A1,B7,X1.                                               MAP        90
                                                                                                                 MAP        91
                                                  PURGMAC  RESR                                                  MAP        92
                                                                                                                 MAP        93
                                         RESR     MACRO  REG,ADRS                                                MAP        94
                                                  IRP    REG                                                     MAP        96
                                                  SA1    ADRS+SV_REG                                             FC5A185     5
                                                  S_REG  X1                                                      MAP        98
                                                  IRP                                                            MAP       100
                                         RESR     ENDM                                                           MAP       101
  
  
  
  
                                        **        SAVR - SAVE CONTENTS OF REGISTERS.                             MAP       103
                                        *                                                                        MAP       104
                                        *         STORES THE LOW 18 BITS OF UP TO 4 REGISTERS INTO A             FC5A185     6
                                        *         MEMORY BLOCK. USED TO IMPROVE READABILITY OF CODE              MAP       106
                                        *         IN PLACES WHERE POINTERS USED BY THE CONTROLLER MUST           MAP       107
                                        *         EXIST ACROSS SUBROUTINE OR MACRO CALLS.                        FC5A185     7
                                        *                                                                        MAP       110
                                        *         SAVR   (R1,R2,...R4),ADRS                                      FC5A185     8
                                        *                                                                        MAP       112
                                        *         USES   X7.                                                     FC5A185     9
                                                                                                                 MAP       114
                                                  PURGMAC  SAVR                                                  MAP       115
                                                                                                                 MAP       116
                                         SAVR     MACRO  REG,ADRS                                                MAP       117
                                                  IRP    REG                                                     MAP       119
                                                  SX7    REG                                                     MAP       120
                                                  SA7    ADRS+SV_REG                                             FC5A185    10
                                                  IRP                                                            MAP       123
                                         SAVR     ENDM                                                           MAP       124
  
  
  
  
                                        **        WLINE -            WRITE A LINE.                               MAP       126
                                        *                                                                        MAP       127
                                        *         WILL BLANK FILL THE LAST WORD OF A LINE,                       MAP       128
                                        *         WRITE A LINE, AND IF THE LINE WAS IN MAPBUFF,                  MAP       129
                                        *         WILL ZERO THE BUFFER AND RESET PCB PARAMETERS. CAN             MAP       130
                                        *         HANDLE OUTPUT OF BLANK LINES BOTH BEFORE AND AFTER             MAP       131
                                        *         WRITING THE LINE.                                              MAP       132
                                        *                                                                        MAP       133
                                        *         WLINE  ADRS,NW,BEF,AFT.                                        MAP       134
                                        *                                                                        MAP       135
                                        *         USES   X - 1,5,6  A - 1,6.                                     MAP       136
                                        *                                                                        MAP       137
                                        *         CALLS  PLINE,SETMEM,SFN.                                       MAP       138
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     5
        MACRO AND MICRO DEFINITIONS                                   MACROS
  
                                                                                                                 MAP       139
                                                  PURGMAC  WLINE                                                 MAP       140
                                                                                                                 MAP       141
                                         WLINE    MACRO  ADRS,NW,BEF,AFT                                         MAP       142
                                                  =X5    NW                                                      MAP       143
                                         #OS      IFNE   .OS,2,4     NO COLON PROBLEM WITH W-RECS.               FC5A158A  451
                                                  =X1    NW-1                                                    MAP       144
                                                  SA1    ADRS+X1                                                 MAP       145
                                                  CALL   SFN                                                     MAP       146
                                                  SA6    A1          BLANK FILL THE LAST WORD                    MAP       147
                                                  PLINE  ADRS,X5,BEF                                             MAP       148
                                                  IFC    NE,$AFT$0$,1                                            MAP       149
                                                  PLINE  ,,AFT                                                   MAP       150
                                                  IFC    EQ,$ADRS$IRBA$,1                                        FC51206     6
                                                  SKIP   6                                                       FC51206     7
                                                  IFC    NE,$ADRS$MOCBUF$,5                                      MAP       151
                                                  SETMEM ADRS,X5,0                                               MAP       152
                                                  SX6    60                                                      MAP       153
                                                  SA6    PCB.SC                                                  MAP       154
                                                  =X6    -2                                                      MAP       155
                                                  SA6    PCB.WO                                                  MAP       156
                                         WLINE    ENDM                                                           MAP       157
  
  
  
  
                                        **        THE FOLLOWING MACRO IS USED AS A DEBUGGING TOOL ONLY.          MAP       159
                                        *         IT IS USED TO SUPPRESS OUTPUT OF PROCESSORS.                   MAP       160
                                                                                                                 MAP       161
                                                  PURGMAC  XOUT                                                  MAP       162
                                                                                                                 MAP       163
                                         XOUT     MACRO                                                          MAP       164
                                                  LX4    30                                                      MAP       165
                                                  SB6    X4                                                      MAP       166
                                                  SA1    MOC.XXS                                                 MAP       167
                                                  RJ     PCB                                                     MAP       168
                                                  EQ     MOC.RB                                                  MAP       169
                                         XOUT     ENDM                                                           MAP       170
  
  
  
  
                                        **        XTRCT -  EXTRACT A FIELD FROM A REGISTER.                      MAP       172
                                        *                                                                        MAP       173
                                        *         WILL EXTRACT ANY FIELD DEFINED BY FTN5TXT *DEFINE* MACRO.      MAP       174
                                        *                                                                        MAP       175
                                        *         XTRCT  FLD,SXR,DXR.                                            MAP       176
                                        *                                                                        MAP       177
                                        *         USES   *SXR*,*DXR*,X0.                                         MAP       178
                                                                                                                 MAP       179
                                                  PURGMAC  XTRCT                                                 MAP       180
                                                                                                                 MAP       181
                                         XTRCT    MACRO  FLD,SXR,DXR                                             MAP       182
                                                  MX0    -FLD_L                                                  MAP       183
                                                  L_SXR  -FLD_P                                                  MAP       184
                                                  B_DXR  -X0*SXR                                                 MAP       185
                                         XTRCT    ENDM                                                           MAP       186
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     6
        MACRO AND MICRO DEFINITIONS                                   MICROS
  
                                        **        ALL MICROS LOCAL TO THE DECK MAP ARE DEFINED HERE.             MAP       188
                                                                                                                 MAP       189
                                        **        MICROS FOR SEGMENT TITLES.                                     MAP       190
                                                                                                                 MAP       191
                                         VMT      MICRO  1,,$ --VARIABLE MAP--$                                  MAP       192
                                         SCMT     MICRO  1,,$ --SYMBOLIC CONSTANTS--$                            MAP       193
                                         PMT      MICRO  1,,$ --PROCEDURES--$                                    MAP       194
                                         LMT      MICRO  1,,$ --STATEMENT LABELS--$                              MAP       195
                                         EPMT     MICRO  1,,$ --ENTRY POINTS--$                                  MAP       196
                                         NLMT     MICRO  1,,$ --NAMELISTS--$                                     MAP       197
                                         DLMT     MICRO  1,,$ --DO LOOPS--$                                      MAP       198
                                         CEMT     MICRO  1,,$ --COMMON+EQUIVALENCE--$                            MAP       199
                                         CEMLT    MICRO  1,,$ --LOCAL EQUIVALENCE--$                             MAP       200
                                         IOMT     MICRO  1,,$ --I/O UNITS--$                                     MAP       201
                                                                                                                 MAP       202
                                        **        MICROS FOR THE REFERENCE SYMBOL USAGE DICTIONARY.              MAP       203
                                                                                                                 MAP       204
                                         VUD1     MICRO  1,,$A=ARGLIST, C=CTRL OF DO, I=DATA INIT,$              MAP       205
                                         VUD2     MICRO  1,,$R=READ, S=STORE, U=I/O UNIT, W=WRITE$               MAP       206
                                         SCUD1    MICRO  1,,$S=SOURCE DEFINITION$                                MAP       207
                                         SCUD2    MICRO  1,,$ $                                                  MAP       208
                                         PUD1     MICRO  1,,$D=DEF LINE OF STMT FUNC$                            MAP       209
                                         PUD2     MICRO  1,,$A=ACTUAL ARGUMENT$                                  FC5A188     7
                                         LUD1     MICRO  1,,$A=ASSIGN STMT, D=DO STMT,$                          MAP       211
                                         LUD2     MICRO  1,,$R=READ, W=WRITE, L=LABEL$                           FC50514    17
                                         EPUD1    MICRO  1,,$D=DEFINITION, R=RETURN$                             FC50451    23
                                         EPUD2    MICRO  1,,$ $                                                  MAP       214
                                         NLUD1    MICRO  1,,$D=DEFINITION, R=READ, W=WRITE$                      MAP       215
                                         NLUD2    MICRO  1,,$ $                                                  MAP       216
                                         DLUD1    MICRO  1,,$ $                                                  MAP       217
                                         DLUD2    MICRO  1,,$ $                                                  MAP       218
                                         CEUD1    MICRO  1,,$ $                                                  MAP       219
                                         CEUD2    MICRO  1,,$ $                                                  MAP       220
                                         IOUD1    MICRO  1,,$R=READ, W=WRITE$                                    MAP       221
                                         IOUD2    MICRO  1,,$ $                                                  MAP       222
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     7
        PARAMETER DEFINITIONS 
  
                                        **        THE FOLLOWING SYMBOLS DEFINE CONSTANTS USED IN THE DECK MAP    MAP       225
                                        *         TO CONTROL VARIOUS ASPECTS OF BOTH THE CODE AND THE OUTPUT.    MAP       226
                                                                                                                 MAP       227
                                   0     L        EQU    0           MEANS LEFT JUSTIFICATION                    MAP       228
                                   7     MAPCPR   EQU    7           CHARS PER REFERENCE                         MAP       229
                                 133     MAPDTC   EQU    91          DICTIONARY TAB COLUMN                       MAP       230
                                 176     MAPLC    EQU    126         USED TO DETERMINE IF IN PW SPLIT MODE       FC50353    32
                                  17     MAPLFL   EQU    15          LARGEST FORMATTER LENGTH                    MAP       232
                                   7     MAPMCPR  EQU    7           MINIMUM CHARS PER REFERENCE                 MAP       233
                                   3     MAPMRL   EQU    3           MINIMUM ROW LENGTH                          MAP       234
                                   2     MAPMRPL  EQU    2           MINIMUM REFERENCES PER LINE                 MAP       235
                                   4     MAPPML   EQU    4           PROCESSOR MESSAGE LENGTH                    MAP       236
                                   4     MAPUDL   EQU    4           USAGE DICTIONARY ENTRY LENGTH (WORDS)       MAP       237
                                   1     R        EQU    1           MEANS RIGHT JUSTIFICATION                   MAP       238
                                  -1     STO      SET    -1          INITIAL VALUE OF SEGMENT TABLE OFFSET       MAP       239
                                  21     VMTL     MICCNT    VMT         VARIABLE MAP TITLE LENGTH                MAP       240
                                  27     SCMTL    MICCNT    SCMT        SYMBOLIC CONSTANTS TITLE LENGTH          MAP       241
                                  17     PMTL     MICCNT    PMT         PROCEDURE MAP TITLE LENGTH               MAP       242
                                  25     LMTL     MICCNT    LMT         LABEL MAP TITLE LENGTH                   MAP       243
                                  21     EPMTL    MICCNT    EPMT        ENTRY POINT MAP TITLE LENGTH             MAP       244
                                  16     NLMTL    MICCNT    NLMT        NAMELIST MAP TITLE LENGTH                MAP       245
                                  15     DLMTL    MICCNT    DLMT        DO-LOOP MAP TITLE LENGTH                 MAP       246
                                  27     CEMTL    MICCNT    CEMT        COMMON+EQUIV MAP TITLE LENGTH            MAP       247
                                  26     CEMLTL   MICCNT    CEMLT       COMMON+EQUIV MAP LOCAL TITLE LENGTH      MAP       248
                                  16     IOMTL    MICCNT    IOMT        I/O MAP TITLE LENGTH                     MAP       249
                                  27     TEMP1    MAX  VMTL,SCMTL,PMTL,LMTL,EPMTL,NLMTL,DLMTL,CEMTL,IOMTL,CEMLTL MAP       250
                                  40     TEMP2    EQU    TEMP1+9                                                 MAP       251
                                   3     MAPSTL   EQU    TEMP2/10    ROUND UP TO NEXT HIGHEST WORD               MAP       252
                                                                                                                 MAP       253
                                                                                                                 MAP       254
                                        **        THE FORMAT OF T.SCR AS USED BY MAP IS AS FOLLOWS -             MAP       255
                                                                                                                 MAP       256
                                                  DESCRIBE  MT.                                                  MAP       257
      L     22  77777777777777000000     SYM      DEFINE WA.SYML     DPC OF A SYMBOL (-0L- FORMAT)               MAP       258
                                                  REDEF  SYM                                                     FC5A185    12
      L     52  77777700000000000000     NMG      DEFINE 18          NUMBER OF MEMBERS IN A GROUP OF ITEMS       FC5A185    13
      L     22  00000077777777000000     RA       DEFINE 24          RA OF A COMMON+EQUIVALENCE MAP ITEM         FC5A185    14
             0  00000000000000777777     WAI      DEFINE 18          SYMTAB *WA* INDEX                           FC5A185    15
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     8
        TABLES
  
                                        **        THE FOLLOWING SECTION OF CODE DEFINES ALL TABLES NEEDED        MAP       263
                                        *         BY THE CONTROLLER.                                             MAP       264
                                                                                                                 MAP       265
                                        **        FORMATTER TABLE FOR VARIABLES.                                 MAP       266
                                                                                                                 MAP       267
             0  00000000000000000007 +   TVAR     DTE    0,VARA                                                  MAP       268
             1  00000000000000000014 +            DTE    0,VARB                                                  MAP       269
             2  00000000000000000030 +            DTE    0,VARC                                                  MAP       270
             3  00000000000000000014 +            DTE    0,VARB                                                  MAP       271
             4  00000000000000000030 +            DTE    0,VARC                                                  MAP       272
             5  00000000000000000014 +            DTE    0,VARB                                                  MAP       273
             6  00000000000000000030 +            DTE    0,VARC                                                  MAP       274
                                                                                                                 MAP       275
                                        **        FORMATTERS FOR VARIABLES.                                      MAP       276
                                                                                                                 MAP       277
             7  00000000030000003145 +   VARA     DTE    3,XB                                                    MAP       278
            10  00000000070000002412 +            DTE    7,NAM                                                   MAP       279
            11  00000000030000003136 +            DTE    3,XA                                                    MAP       280
            12  00000000130000002571 +            DTE    11,REF                                                  MAP       281
            13  00000000000000000000              DTE    0,0                                                     MAP       282
                                                                                                                 MAP       283
            14  00000000030000003145 +   VARB     DTE    3,XB                                                    MAP       284
            15  00000000070000002412 +            DTE    7,NAM                                                   MAP       285
            16  00000000100000002015 +            DTE    8,ADR                                                   FC5A416     5
            17  00000000020000003136 +            DTE    2,XA                                                    MAP       287
            20  00000000110000002102 +            DTE    9,BLK                                                   MAP       288
            21  00000000010000003136 +            DTE    1,XA                                                    MAP       289
            22  00000000200000002441 +            DTE    16,PRP                                                  MAP       290
            23  00000000010000003136 +            DTE    1,XA                                                    MAP       291
            24  00000000120000002765 +            DTE    10,TYP                                                  MAP       292
            25  00000000070000002721 +            DTE    7,SZE                                                   MAP       293
            26  00000000030000003154 +            DTE    3,XC                                                    MAP       294
            27  00000000000000000000              DTE   0,0                                                      MAP       295
                                                                                                                 MAP       296
            30  00000000030000003145 +   VARC     DTE    3,XB                                                    MAP       297
            31  00000000070000002412 +            DTE    7,NAM                                                   MAP       298
            32  00000000100000002015 +            DTE    8,ADR                                                   FC5A416     6
            33  00000000020000003136 +            DTE    2,XA                                                    MAP       300
            34  00000000110000002102 +            DTE    9,BLK                                                   MAP       301
            35  00000000010000003136 +            DTE    1,XA                                                    MAP       302
            36  00000000200000002441 +            DTE    16,PRP                                                  MAP       303
            37  00000000010000003136 +            DTE    1,XA                                                    MAP       304
            40  00000000120000002765 +            DTE    10,TYP                                                  MAP       305
            41  00000000070000002721 +            DTE    7,SZE                                                   MAP       306
            42  00000000030000003136 +            DTE    3,XA                                                    MAP       307
            43  00000000130000002571 +            DTE    11,REF                                                  MAP       308
            44  00000000000000000000              DTE    0,0                                                     MAP       309
                                                                                                                 MAP       310
                                        **        FORMATTER TABLE FOR SYMBOLIC CONSTANTS.                        MAP       311
                                                                                                                 MAP       312
            45  00000000000000000054 +   TSC      DTE    0,SCA                                                   MAP       313
            46  00000000000000000061 +            DTE    0,SCB                                                   MAP       314
            47  00000000000000000070 +            DTE    0,SCC                                                   MAP       315
            50  00000000000000000061 +            DTE    0,SCB                                                   MAP       316
            51  00000000000000000070 +            DTE    0,SCC                                                   MAP       317
            52  00000000000000000061 +            DTE    0,SCB                                                   MAP       318
            53  00000000000000000070 +            DTE    0,SCC                                                   MAP       319
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE     9
        TABLES
  
                                                                                                                 MAP       320
                                        **        FORMATTERS FOR SYMBOLIC CONSTANTS.                             MAP       321
                                                                                                                 MAP       322
            54  00000000030000003145 +   SCA      DTE    3,XB                                                    MAP       323
            55  00000000070000002412 +            DTE    7,NAM                                                   MAP       324
            56  00000000030000003136 +            DTE    3,XA                                                    MAP       325
            57  00000000130000002571 +            DTE    11,REF                                                  MAP       326
            60  00000000000000000000              DTE    0,0                                                     MAP       327
                                                                                                                 MAP       328
            61  00000000030000003145 +   SCB      DTE    3,XB                                                    MAP       329
            62  00000000070000002412 +            DTE    7,NAM                                                   MAP       330
            63  00000000010000003136 +            DTE    1,XA                                                    MAP       331
            64  00000000120000002765 +            DTE    10,TYP                                                  MAP       332
            65  00000000270000003025 +            DTE    23,VAL                                                  MAP       333
            66  00000000040000003154 +            DTE    4,XC                                                    MAP       334
            67  00000000000000000000              DTE    0,0                                                     MAP       335
                                                                                                                 MAP       336
            70  00000000030000003145 +   SCC      DTE    3,XB                                                    MAP       337
            71  00000000070000002412 +            DTE    7,NAM                                                   MAP       338
            72  00000000010000003136 +            DTE    1,XA                                                    MAP       339
            73  00000000120000002765 +            DTE    10,TYP                                                  MAP       340
            74  00000000270000003025 +            DTE    23,VAL                                                  MAP       341
            75  00000000030000003136 +            DTE    3,XA                                                    MAP       342
            76  00000000130000002571 +            DTE    11,REF                                                  MAP       343
            77  00000000000000000000              DTE    0,0                                                     MAP       344
                                                                                                                 MAP       345
                                        **        FORMATTER TABLE FOR PROCEDURES.                                MAP       346
                                                                                                                 MAP       347
           100  00000000000000000107 +   TPRO     DTE    0,PROA                                                  MAP       348
           101  00000000000000000114 +            DTE    0,PROB                                                  MAP       349
           102  00000000000000000126 +            DTE    0,PROC                                                  MAP       350
           103  00000000000000000114 +            DTE    0,PROB                                                  MAP       351
           104  00000000000000000126 +            DTE    0,PROC                                                  MAP       352
           105  00000000000000000114 +            DTE    0,PROB                                                  MAP       353
           106  00000000000000000126 +            DTE    0,PROC                                                  MAP       354
                                                                                                                 MAP       355
                                        **        FORMATTERS FOR PROCEDURES.                                     MAP       356
                                                                                                                 MAP       357
           107  00000000030000003145 +   PROA     DTE    3,XB                                                    MAP       358
           110  00000000070000002412 +            DTE    7,NAM                                                   MAP       359
           111  00000000030000003136 +            DTE    3,XA                                                    MAP       360
           112  00000000130000002571 +            DTE    11,REF                                                  MAP       361
           113  00000000000000000000              DTE    0,0                                                     MAP       362
                                                                                                                 MAP       363
           114  00000000030000003145 +   PROB     DTE    3,XB                                                    MAP       364
           115  00000000070000002412 +            DTE    7,NAM                                                   MAP       365
           116  00000000030000003136 +            DTE    3,XA                                                    MAP       366
           117  00000000120000002765 +            DTE    10,TYP                                                  MAP       367
           120  00000000020000003136 +            DTE    2,XA                                                    MAP       368
           121  00000000070000002052 +            DTE    7,ARG                                                   MAP       369
           122  00000000030000003136 +            DTE    3,XA                                                    MAP       370
           123  00000000120000002135 +            DTE    10,CLS                                                  MAP       371
           124  00000000040000003154 +            DTE    4,XC                                                    MAP       372
           125  00000000000000000000              DTE    0,0                                                     MAP       373
                                                                                                                 MAP       374
           126  00000000030000003145 +   PROC     DTE    3,XB                                                    MAP       375
           127  00000000070000002412 +            DTE    7,NAM                                                   MAP       376
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    10
        TABLES
  
           130  00000000010000003136 +            DTE    1,XA                                                    MAP       377
           131  00000000120000002765 +            DTE    10,TYP                                                  MAP       378
           132  00000000070000002052 +            DTE    7,ARG                                                   MAP       379
           133  00000000010000003136 +            DTE    1,XA                                                    MAP       380
           134  00000000120000002135 +            DTE    10,CLS                                                  MAP       381
           135  00000000130000002571 +            DTE    11,REF                                                  MAP       382
           136  00000000000000000000              DTE    0,0                                                     MAP       383
                                                                                                                 MAP       384
                                        **        FORMATTER TABLE FOR LABELS.                                    MAP       385
                                                                                                                 MAP       386
           137  00000000000000000146 +   TLAB     DTE    0,LABA                                                  MAP       387
           140  00000000000000000155 +            DTE    0,LABB                                                  MAP       388
           141  00000000000000000166 +            DTE    0,LABC                                                  MAP       389
           142  00000000000000000155 +            DTE    0,LABB                                                  MAP       390
           143  00000000000000000166 +            DTE    0,LABC                                                  MAP       391
           144  00000000000000000155 +            DTE    0,LABB                                                  MAP       392
           145  00000000000000000166 +            DTE    0,LABC                                                  MAP       393
                                                                                                                 MAP       394
                                        **        FORMATTERS FOR LABELS.                                         MAP       395
                                                                                                                 MAP       396
           146  00000000030000003145 +   LABA     DTE    3,XB                                                    MAP       397
           147  00000000050000002361 +            DTE    5,LBL                                                   MAP       398
           150  00000000030000003136 +            DTE    3,XA                                                    MAP       399
           151  00000000070000002372 +            DTE    7,LDEF                                                  MAP       400
           152  00000000020000003136 +            DTE    2,XA                                                    MAP       401
           153  00000000130000002571 +            DTE    11,REF                                                  MAP       402
           154  00000000000000000000              DTE    0,0                                                     MAP       403
                                                                                                                 MAP       404
           155  00000000030000003145 +   LABB     DTE    3,XB                                                    MAP       405
           156  00000000050000002361 +            DTE    5,LBL                                                   MAP       406
           157  00000000010000003136 +            DTE    1,XA                                                    MAP       407
           160  00000000110000002266 +            DTE    9,LADR                                                  MAP       408
           161  00000000030000003136 +            DTE    3,XA                                                    MAP       409
           162  00000000120000002441 +            DTE    10,PRP                                                  MAP       410
           163  00000000070000002372 +            DTE    7,LDEF                                                  MAP       411
           164  00000000050000003154 +            DTE    5,XC                                                    MAP       412
           165  00000000000000000000              DTE    0,0                                                     MAP       413
                                                                                                                 MAP       414
           166  00000000030000003145 +   LABC     DTE    3,XB                                                    MAP       415
           167  00000000050000002361 +            DTE    5,LBL                                                   MAP       416
           170  00000000020000003136 +            DTE    2,XA                                                    MAP       417
           171  00000000110000002266 +            DTE    9,LADR                                                  MAP       418
           172  00000000010000003136 +            DTE    1,XA                                                    MAP       419
           173  00000000120000002441 +            DTE    10,PRP                                                  MAP       420
           174  00000000010000003136 +            DTE    1,XA                                                    MAP       421
           175  00000000070000002372 +            DTE    7,LDEF                                                  MAP       422
           176  00000000020000003136 +            DTE    2,XA                                                    MAP       423
           177  00000000130000002571 +            DTE    11,REF                                                  MAP       424
           200  00000000000000000000              DTE    0,0                                                     MAP       425
                                                                                                                 MAP       426
                                        **        FORMATTER TABLE FOR ENTRY POINTS.                              MAP       427
                                                                                                                 MAP       428
           201  00000000000000000007 +   TENT     DTE    0,ENTA                                                  MAP       429
           202  00000000000000000210 +            DTE    0,ENTB                                                  MAP       430
           203  00000000000000000217 +            DTE    0,ENTC                                                  MAP       431
           204  00000000000000000210 +            DTE    0,ENTB                                                  MAP       432
           205  00000000000000000217 +            DTE    0,ENTC                                                  MAP       433
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    11
        TABLES
  
           206  00000000000000000210 +            DTE    0,ENTB                                                  MAP       434
           207  00000000000000000217 +            DTE    0,ENTC                                                  MAP       435
                                                                                                                 MAP       436
                                        **        FORMATTERS FOR ENTRY POINTS.                                   MAP       437
                                                                                                                 MAP       438
                                   7 +   ENTA     EQU    VARA        IDENTICAL TO A VARIABLE MAP FORMATTER       MAP       439
                                                                                                                 MAP       440
           210  00000000030000003145 +   ENTB     DTE    3,XB                                                    MAP       441
           211  00000000070000002412 +            DTE    7,NAM                                                   MAP       442
           212  00000000070000002015 +            DTE    7,ADR                                                   MAP       443
           213  00000000020000003136 +            DTE    2,XA                                                    MAP       444
           214  00000000070000002221 +            DTE    7,EPA                                                   MAP       445
           215  00000000040000003154 +            DTE    4,XC                                                    MAP       446
           216  00000000000000000000              DTE    0,0                                                     MAP       447
                                                                                                                 MAP       448
           217  00000000030000003145 +   ENTC     DTE    3,XB                                                    MAP       449
           220  00000000070000002412 +            DTE    7,NAM                                                   MAP       450
           221  00000000070000002015 +            DTE    7,ADR                                                   MAP       451
           222  00000000020000003136 +            DTE    2,XA                                                    MAP       452
           223  00000000070000002221 +            DTE    7,EPA                                                   MAP       453
           224  00000000030000003136 +            DTE    3,XA                                                    MAP       454
           225  00000000130000002571 +            DTE    11,REF                                                  MAP       455
           226  00000000000000000000              DTE    0,0                                                     MAP       456
                                                                                                                 MAP       457
                                        **        FORMATTER TABLE FOR NAMELISTS.                                 MAP       458
                                                                                                                 MAP       459
           227  00000000000000000007 +   TNAM     DTE    0,NAMA                                                  MAP       460
           230  00000000000000000236 +            DTE    0,NAMB                                                  MAP       461
           231  00000000000000000243 +            DTE    0,NAMC                                                  MAP       462
           232  00000000000000000236 +            DTE    0,NAMB                                                  MAP       463
           233  00000000000000000243 +            DTE    0,NAMC                                                  MAP       464
           234  00000000000000000236 +            DTE    0,NAMB                                                  MAP       465
           235  00000000000000000243 +            DTE    0,NAMC                                                  MAP       466
                                                                                                                 MAP       467
                                        **        FORMATTERS FOR NAMELISTS.                                      MAP       468
                                                                                                                 MAP       469
                                   7 +   NAMA     EQU    VARA        IDENTICAL TO A VARIABLE MAP FORMATTER       MAP       470
                                                                                                                 MAP       471
           236  00000000030000003145 +   NAMB     DTE    3,XB                                                    MAP       472
           237  00000000070000002412 +            DTE    7,NAM                                                   MAP       473
           240  00000000070000002015 +            DTE    7,ADR                                                   MAP       474
           241  00000000040000003154 +            DTE    4,XC                                                    MAP       475
           242  00000000000000000000              DTE    0,0                                                     MAP       476
                                                                                                                 MAP       477
           243  00000000030000003145 +   NAMC     DTE    3,XB                                                    MAP       478
           244  00000000070000002412 +            DTE    7,NAM                                                   MAP       479
           245  00000000070000002015 +            DTE    7,ADR                                                   MAP       480
           246  00000000030000003136 +            DTE    3,XA                                                    MAP       481
           247  00000000130000002571 +            DTE    11,REF                                                  MAP       482
           250  00000000000000000000              DTE    0,0                                                     MAP       483
                                                                                                                 MAP       484
                                        **        FORMATTER TABLE FOR DO-LOOPS.                                  MAP       485
                                                                                                                 MAP       486
           251  00000000000000000000     TDOL     DTE    0,0                                                     MAP       487
           252  00000000000000000000              DTE    0,0                                                     MAP       488
           253  00000000000000000000              DTE    0,0                                                     MAP       489
           254  00000000000000000260 +            DTE    0,DOLA                                                  MAP       490
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    12
        TABLES
  
           255  00000000000000000260 +            DTE    0,DOLA                                                  MAP       491
           256  00000000000000000260 +            DTE    0,DOLA                                                  MAP       492
           257  00000000000000000260 +            DTE    0,DOLA                                                  MAP       493
                                                                                                                 MAP       494
                                        **        FORMATTERS FOR DO-LOOPS.                                       MAP       495
                                                                                                                 MAP       496
           260  00000000030000003145 +   DOLA     DTE    3,XB                                                    MAP       497
           261  00000000050000002201 +            DTE    5,DOLAB                                                 MAP       498
           262  00000000020000003136 +            DTE    2,XA                                                    MAP       499
           263  00000000110000002266 +            DTE    9,LADR                                                  MAP       500
           264  00000000020000003136 +            DTE    2,XA                                                    MAP       501
           265  00000000260000002441 +            DTE    22,PRP                                                  MAP       502
           266  00000000020000003136 +            DTE    2,XA                                                    MAP       503
           267  00000000070000002165 +            DTE    7,DOIN                                                  MAP       504
           270  00000000050000002253 +            DTE    5,FROM                                                  MAP       505
           271  00000000020000003136 +            DTE    2,XA                                                    MAP       506
           272  00000000050000002747 +            DTE    5,TO                                                    MAP       507
           273  00000000000000000000              DTE    0,0                                                     MAP       508
                                                                                                                 MAP       509
                                        **        FORMATTER TABLE FOR I/O UNITS.                                 MAP       510
                                                                                                                 MAP       511
           274  00000000000000000303 +   TIO      DTE    0,IOA                                                   MAP       512
           275  00000000000000000311 +            DTE    0,IOB                                                   MAP       513
           276  00000000000000000303 +            DTE    0,IOA                                                   MAP       514
           277  00000000000000000311 +            DTE    0,IOB                                                   MAP       515
           300  00000000000000000303 +            DTE    0,IOA                                                   MAP       516
           301  00000000000000000311 +            DTE    0,IOB                                                   MAP       517
           302  00000000000000000303 +            DTE    0,IOA                                                   MAP       518
                                                                                                                 MAP       519
                                        **        FORMATTERS FOR I/O UNITS.                                      MAP       520
                                                                                                                 MAP       521
           303  00000000030000003145 +   IOA      DTE    3,XB                                                    MAP       522
           304  00000000070000002412 +            DTE    7,NAM                                                   MAP       523
           305  00000000010000003145 +            DTE    1,XB                                                    MAP       524
           306  00000000270000002441 +            DTE    23,PRP                                                  MAP       525
           307  00000000130000002571 +            DTE    11,REF                                                  MAP       526
           310  00000000000000000000              DTE    0,0                                                     MAP       527
                                                                                                                 MAP       528
           311  00000000030000003145 +   IOB      DTE    3,XB                                                    MAP       529
           312  00000000070000002412 +            DTE    7,NAM                                                   MAP       530
           313  00000000010000003145 +            DTE    1,XB                                                    MAP       531
           314  00000000270000002441 +            DTE    23,PRP                                                  MAP       532
           315  00000000030000003154 +            DTE    3,XC                                                    MAP       533
           316  00000000000000000000              DTE    0,0                                                     MAP       534
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    13
        TABLES
  
                                        **        MAP SEGMENT TABLE - ADDRESSES IN THIS TABLE                    FC5A185    16
                                        *         ARE THOSE OF ROUTINES WHICH GIVE VALUES TO PARAMETERS NEEDED   MAP       537
                                        *         BY MOC TO OUTPUT A MAP. ONLY THOSE MAPS WITH UNIQUE PARAMETER  MAP       538
                                        *         REQUIREMENTS HAVE UNIQUE INITIALIZING ROUTINES.                MAP       539
                                        *         SYMBOLS CORRESPONDING TO NON - EXISTENT ROUTINES OR TABLES     MAP       540
                                        *         WILL BE EQU'D TO ZERO.                                         MAP       541
                                                                                                                 MAP       542
                                   0     TCOM     EQU    0                                                       MAP       543
           317                           MST      BSS    0                                                       MAP       544
                                                                                                                 MAP       545
      L      0                                    LOC    0                                                       MAP       546
      L      0  0000000000 +                      DMSTE  TVAR,IRA    VAR MAP FORMATTER, INITIAL ROUTINE          MAP       547
      L      1  0000000045 +                      DMSTE  TSC,IRA     SYMBOLIC CONSTANTS MAP                      MAP       548
      L      2  0000000100 +                      DMSTE  TPRO,IRA    PROCEDURE MAP                               MAP       549
      L      3  0000000137 +                      DMSTE  TLAB,IRA    LABEL MAP                                   MAP       550
      L      4  0000000201 +                      DMSTE  TENT,IRA    ENTRY POINT MAP                             MAP       551
      L      5  0000000227 +                      DMSTE  TNAM,IRA    NAMELIST MAP                                MAP       552
      L      6  0000000251 +                      DMSTE  TDOL,IRA    DO-LOOP MAP                                 MAP       553
      L      7  00000000000000000736 +            DMSTE  TCOM,IRB    COMMON+EQUIVALENCE MAP                      MAP       554
      L     10  0000000274 +                      DMSTE  TIO,IRA     I/O UNITS MAP                               MAP       555
      L     11  00000000000000000000              CON      0           MARKS END OF TABLE                        MAP       556
           331                                    LOC    *O                                                      MAP       557
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    14
        MESSAGES AND BUFFERS
  
                                        **        MESSAGES AND BUFFERS OF MAJOR IMPORTANCE ARE LOCATED HERE.     MAP       560
                                                                                                                 MAP       561
                                                                                                                 MAP       562
                                        **        TABLE OF LIST OPTIONS.                                         MAP       563
                                                                                                                 MAP       564
           331  51141754225255555555     MAPLOT   DIS    1,(LO=R)                                                MAP       565
           332  51141754015255555555              DIS    1,(LO=A)                                                MAP       566
           333  51141754015022525555              DIS    1,(LO=A/R)                                              MAP       567
           334  51141754155255555555              DIS    1,(LO=M)                                                MAP       568
           335  51141754155022525555              DIS    1,(LO=M/R)                                              MAP       569
           336  51141754155001525555              DIS    1,(LO=M/A)                                              MAP       570
           337  51141754155001502252              DIS    1,(LO=M/A/R)                                            MAP       571
                                                                                                                 MAP       572
                                                                                                                 MAP       573
                                        **        SEGMENT TITLES.                                                MAP       574
                                                                                                                 MAP       575
                                                                                                                 MAP       576
                                  -1     STO      SET    -1                                                      MAP       577
                                                                                                                 MAP       578
           340  00000000000000000021     MAPST    DDTE   TVARP,(CON    VMTL),(DIS    MAPSTL,"VMT")               MAP       579
           344  00000000000000000027              DDTE   TSCP,(CON    SCMTL),(DIS    MAPSTL,"SCMT")              MAP       580
           350  00000000000000000017              DDTE   TPROP,(CON    PMTL),(DIS    MAPSTL,"PMT")               MAP       581
           354  00000000000000000025              DDTE   TLABP,(CON    LMTL),(DIS    MAPSTL,"LMT")               MAP       582
           360  00000000000000000021              DDTE   TENTP,(CON    EPMTL),(DIS    MAPSTL,"EPMT")             MAP       583
           364  00000000000000000016              DDTE   TNAMP,(CON    NLMTL),(DIS    MAPSTL,"NLMT")             MAP       584
           370  00000000000000000015              DDTE   TDOLP,(CON    DLMTL),(DIS    MAPSTL,"DLMT")             MAP       585
           374  00000000000000000027              DDTE   TCOMP,(CON    CEMTL),(DIS    MAPSTL,"CEMT")             MAP       586
           400  00000000000000000016              DDTE   TIOP,(CON    IOMTL),(DIS    MAPSTL,"IOMT")              MAP       587
                                                                                                                 MAP       588
                                                                                                                 MAP       589
                                        **        REFERENCE SYMBOL USAGE DICTIONARY.                             MAP       590
                                                                                                                 MAP       591
                                                                                                                 MAP       592
                                  -1     STO      SET    -1                                                      MAP       593
                                                                                                                 MAP       594
           404  01540122071411232456     MAPUD    DDTE   TVARP,(DIS    MAPUDL,"VUD1"),(DIS    MAPUDL,"VUD2")     MAP       595
           414  23542317252203055504              DDTE   TSCP,(DIS    MAPUDL,"SCUD1"),(DIS    MAPUDL,"SCUD2")    MAP       596
           424  04540405065514111605              DDTE   TPROP,(DIS    MAPUDL,"PUD1"),(DIS    MAPUDL,"PUD2")     MAP       597
           434  01540123231107165523              DDTE   TLABP,(DIS    MAPUDL,"LUD1"),(DIS    MAPUDL,"LUD2")     MAP       598
           444  04540405061116112411              DDTE   TENTP,(DIS    MAPUDL,"EPUD1"),(DIS    MAPUDL,"EPUD2")   MAP       599
           454  04540405061116112411              DDTE   TNAMP,(DIS    MAPUDL,"NLUD1"),(DIS    MAPUDL,"NLUD2")   MAP       600
           464  55555555555555555555     MAP.XS   DDTE   TDOLP,(DIS    MAPUDL,"DLUD1"),(DIS    MAPUDL,"DLUD2")   MAP       601
           474  55555555555555555555              DDTE   TCOMP,(DIS    MAPUDL,"CEUD1"),(DIS    MAPUDL,"CEUD2")   MAP       602
           504  22542205010456552754              DDTE   TIOP,(DIS    MAPUDL,"IOUD1"),(DIS    MAPUDL,"IOUD2")    MAP       603
                                                                                                                 MAP       604
                                                                                                                 MAP       605
                                        **        DPC BUFFER FOR USE OF XOUT MACRO.                              MAP       606
                                                                                                                 MAP       607
                                                                                                                 MAP       608
           514  30303030303030303030     MAP.XXS  DIS    3,XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX                        MAP       609
                                                                                                                 MAP       610
                                                                                                                 MAP       611
                                        **        TO AVOID PROBLEMS CAUSED WHEN *PEM* USES THE BUFFER            MAP       612
                                        *         *LINEBUF* IN TEST MODE, WE USE THE FOLLOWING **KLUDGE** -      MAP       613
                                                                                                                 MAP       614
                                                                                                                 MAP       615
                                         .T       IFEQ   TEST,ON                                                 MAP       616
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    15
        MESSAGES AND BUFFERS
  
                                                  BSS    1                                                       MAP       617
                                         MAPBUFF  BSS    14                                                      MAP       618
                                         .T       ELSE                                                           MAP       619
                                   0 X   MAPBUFF  EQU    LINEBUF                                                 MAP       620
                                         .T       ENDIF                                                          MAP       621
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    16
        MAIN ROUTINES 
  
                                        **        MAP -  REFERENCE MAP PRODUCTION.                               MAP       624
                                        *                                                                        MAP       625
                                        *         M.A. PETERS        SVLOPS  1978.                               MAP       626
                                        *                                                                        MAP       627
                                        *         ENTRY  NONE.                                                   MAP       628
                                        *                                                                        MAP       629
                                        *         EXIT   NONE.                                                   MAP       630
                                        *                                                                        MAP       631
                                        *         USES   ALL REGISTERS.                                          MAP       632
                                        *                                                                        MAP       633
                                        *         CALLS  PRT,MOC,SHRINK,PLINE,EFE,ALLOC.                         MAP       634
                                                                                                                 MAP       635
                                                                                                                 MAP       636
           517  0400400517 +             MAP      SUBR   =           ENTRY/EXIT...                               MAP       637
           520  5110000000 X                      SA1    FAILSFT                                                 MAP       638
                          0311000517 +            NZ     X1,EXIT.    NO MAP IF TABLES CRUMPED                    MAP       639
           521  7160000004                        =X6    PASS=MAP                                                MAP       640
                          5160000000 X            SA6    PASS                                                    MAP       641
           522  5120000000 X                      SA2    CO.PS                                                   FC5A107    19
                                                                                                                 MAP       643
                                        **        IF BL PARAMETER SELECTED, PAGE EJECT.                          MAP       644
                                                                                                                 MAP       645
                          5130000000 X            SA3    CP.BLF                                                  MAP       646
           523  0303000525 +                      ZR     X3,MAP30    IF BL NOT SELECTED                          MAP       647
                          10622                   BX6    X2                                                      MAP       648
           524  5160000000 X                      SA6    LCNT                                                    MAP       649
                                                                                                                 MAP       650
           525  5110000000 X             MAP30    SA1    WO.LOM                                                  MAP       651
                          20103                   LX1    3                                                       MAP       652
           526  5120000000 X                      SA2    WO.LOA                                                  MAP       653
                          20202                   LX2    2                                                       MAP       654
           527  5130000000 X                      SA3    WO.LOR                                                  MAP       655
                          20301                   LX3    1                                                       MAP       656
                               12612              BX6    X1+X2                                                   MAP       657
           530  12663                             BX6    X6+X3                                                   MAP       658
                     5160000544 +                 SA6    MAP.NO       MAP.NO HAS A VALUE BETWEEN 1 AND 7 (INCL)  MAP       659
                                                                                                                 MAP       660
                                        **        SELECT PROPER LO HEADING AND PUT IT INTO OTH.LO .              MAP       661
                                                                                                                 MAP       662
           531  7256777776                        =X5    X6-1        OFFSET INTO MAPLOT TABLE                    MAP       663
                          5215000331 +            SA1    X5+MAPLOT                                               MAP       664
           532  10611                             BX6    X1                                                      MAP       665
                     5160001550 +                 SA6    OTH.LO                                                  MAP       666
           533  0100001575 +                      RJ     PRT         PREPARE REFERENCE TABLE                     MAP       667
           534  0100001147 +                      RJ     EFE         ENTER FAKE ENTRY POINTS                     MAP       668
           535  0100000546 +                      RJ     MOC         GO TO CONTROLLER                            MAP       669
           536  5120000545 +                      SA2    MAPNEW                                                  MAP       670
                          14222                   BX2    -X2                                                     MAP       671
           537  5110000000 X                      ALLOC  T.SYM,X2    ELIMINATE FAKE ENTRY POINTS                 FC5A185    17
           541  76110                             =X1    1                                                       MAP       673
                     7160000000 X                 SX6    HDRBL                                                   MAP       674
                               20136              LX1    30                                                      MAP       675
           542  12661                             BX6    X6+X1                                                   MAP       676
                     5160000000 X                 SA6    O.STITL     SUPRESS OLD HEADING                         MAP       677
           543  0400000517 +                      EQ     EXIT.       RETURN TO REC                               MAP       678
                                                                                                                 MAP       679
           544                     1     MAP.NO   BSS    1           STORAGE FOR MAP NUMBER CALC AT THE START    MAP       680
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    17
        MAIN ROUTINES 
  
           545                     1     MAPNEW   BSS    1           NUMBER OF WORDS ADDED TO T.SYM              MAP       681
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    18
        MAIN ROUTINES                                                 MOC 
  
                                        **        MOC -  MAP OUTPUT CONTROLLER.                                  MAP       683
                                        *                                                                        MAP       684
                                        *         THIS ROUTINE OVERSEES THE OUTPUT OF EACH MAP SEGMENT.          MAP       685
                                        *         THE MAIN CONTROLLER LOOP IS DIVIDED INTO 3 SECTIONS:           MAP       686
                                        *                                                                        MAP       687
                                        *         1)  INITIALIZATION FOR THE CURRENT MAP SEGMENT.                MAP       688
                                        *         2)  OUTPUT OF TITLE AND HEADING FOR CURRENT MAP SEGMENT .      MAP       689
                                        *         3)  OUTPUT OF THE  CURRENT MAP SEGMENT.                        MAP       690
                                        *                                                                        MAP       691
                                        *         THE HEART OF THE CONTROLLER IS A 10 WORD TABLE WHICH           MAP       692
                                        *         HAS ONE ENTRY FOR EACH MAP TO BE OUTPUT. EACH TABLE            MAP       693
                                        *         ENTRY CONTAINS TWO ADDRESSES. IN THE LOWER 30 BITS             MAP       694
                                        *         IS THE ADDRESS OF A ROUTINE WHICH WILL GIVE VALUES TO          MAP       695
                                        *         PARAMETERS THAT ENABLE THE CONTROLLER TO OUTPUT THE            MAP       696
                                        *         CURRENT MAP. IN THE UPPER 30 BITS IS THE ADDRESS OF A          MAP       697
                                        *         TABLE ACCESSED BY THE ABOVE ROUTINE.                           MAP       698
                                        *                                                                        MAP       699
                                        *         THE FOLLOWING REGISTER-POINTER ASSOCIATIONS HOLD:              MAP       700
                                        *                                                                        MAP       701
                                        *         GLOBALLY  - X5 CONTAINS CURRENT OFFSET INTO THE MST TABLE.     MAP       702
                                        *                                                                        MAP       703
                                        *         SECTION 2 - X2 CONTAINS CURRENT *TRIP COUNT*.                  MAP       704
                                        *                     X3 CONTAINS CURRENT FORMATTER OFFSET.              MAP       705
                                        *                     B5 CONTAINS CURRENT FORMATTER ADDRESS.             MAP       706
                                        *                                                                        MAP       707
                                        *         SECTION 3 - ALL SECTION 2 ASSOCIATIONS.                        MAP       708
                                        *                                                                        MAP       710
                                        *         ENTRY  NONE.                                                   MAP       711
                                        *                                                                        MAP       712
                                        *         EXIT   REFERENCE MAP OUTPUT IS COMPLETE.                       MAP       713
                                        *                                                                        MAP       714
                                        *         USES   ALL REGISTERS.                                          MAP       715
                                        *                                                                        MAP       716
                                        *         CALLS  RNI,PLINE,SETMEM,OTH.                                   MAP       717
                                                                                                                 MAP       718
                                                                                                                 MAP       719
                                                                                                                 MAP       720
           546  0400400546 +             MOC      SUBR               ENTRY/EXIT                                  MAP       721
                                                                                                                 MAP       722
                                        **        MAKE SURE THAT BUFFER DOESNT HAVE GARBAGE IN IT .              MAP       723
                                                                                                                 MAP       724
           547  13666                             SETMEM MAPBUFF-1,15                                            MAP       725
                                                                                                                 MAP       726
                                        **        INITIALIZATION FOR CURRENT MAP.                                MAP       727
                                                                                                                 MAP       728
           551  77501                             =X5    -1                                                      MAP       729
                                                                                                                 FC50326    37
           552  73551                    MOC10    =X5    X5+1                                                    MAP       730
                     5215000317 +                 SA1    X5+MST      X1 = 30/FORMATTER TABLE,30/INITIAL ROUTINE  MAP       731
           553  0301000546 +                      ZR     X1,EXIT.    IF ALL DONE                                 MAP       732
                          63510                   SB5    X1                                                      MAP       733
                               73750              SAVR   (X5),MOCSAV                                             MAP       734
                          0255000000              JP     B5          JUMP TO INITIALIZER                         MAP       735
                                                                                                                 MAP       736
                                        *         INITIALIZER RETURNS HERE (B5= ADDRS OF PROPER FORMATTER).      MAP       737
                                                                                                                 MAP       738
           555  5110000660 +             MOC.RA   RESR   (X5),MOCSAV                                             MAP       739
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    19
        MAIN ROUTINES                                                 MOC 
  
           556  0450000552 +                      ZR     B5,MOC10    IF NOTHING TO OUTPUT                        MAP       740
                                                                                                                 MAP       741
                                        *        OUTPUT THE TITLE AND HEADING FOR CURRENT MAP.                   MAP       742
                                                                                                                 MAP       743
                          56450                   SA4    B5          X4 = FIRST WORD OF FORMATTER                FC5A185    18
           557  5120000656 +                      SA2    MOCTC       X2 = TRIP COUNT                             FC5A185    19
                          43300                   MX3    0                                                       FC5A185    20
                                                                                                                 FC5A185    21
           560  53140                    MOC30    SA1    X4          X1 = PROCESSOR HEADING                      FC5A185    22
                     20436                        LX4    30                                                      FC5A185    23
                          63640                   SB6    X4          B6 = LENGTH (IN CHARS) OF HEADING           FC5A185    24
                               73720              SAVR   (X2,X3,B5),MOCSAV                                       FC5A185    25
                          0100001556 +            RJ     PCB         PACK CHARACTERS IN BUFFER                   FC5A185    26
           564  5110000661 +                      RESR   (X2,X3,B5),MOCSAV                                       FC5A185    27
                               73331              =X3    X3+1                                                    FC5A185    28
           567  53435                             SA4    X3+B5       X4 = 30/FIELD WIDTH, 30/PROCESSOR ADDRESS   FC5A185    29
                     0314000560 +                 NZ     X4,MOC30    IF NOT END OF FORMATTER                     FC5A185    30
                               43300              MX3    0                                                       FC5A185    31
           570  7222777776                        =X2    X2-1                                                    FC5A185    32
                          56450                   SA4    B5          X4 = 1ST WORD OF FORMATTER                  FC5A185    33
           571  0312000560 +                      NZ     X2,MOC30    IF HEADING NOT DONE                         FC5A185    34
                          0100001465 +            RJ     OTH         OUTPUT TITLE AND HEADING                    FC5A185    36
           572  0100001634 +                      RJ     RNI         RETURN THE 1ST ITEM INDEX                   FC5A185    37
           573  5110000657 +                      RESR   (B5,X5),MOCSAV                                          FC5A185    38
           575  5120000656 +                      SA2    MOCTC                                                   FC5A185    39
                          73720                   SAVR   (X2),MOCSAV                                             FC5A185    40
                                                                                                                 FC5A185    41
                                        **        OUTPUT OF THE CURRENT MAP                                      FC5A185    42
                                                                                                                 FC5A185    43
           577  43300                    MOC40    MX3    0                                                       FC5A185    44
                     56450                        SA4    B5          X4 = 1ST WORD OF FORMATTER                  FC5A185    45
                          63640                   SB6    X4          B6 = PROCESSOR ADDRESS                      FC5A185    46
                                                                                                                 FC5A185    47
           600  73730                    MOC50    SAVR   (X3),MOCSAV                                             FC5A185    48
           601  5120000000 X                      SA2    T.SCR                                                   FC5A185    49
                          5110001670 +            SA1    RNI.PI                                                  FC5A185    50
           602  63220                             SB2    X2                                                      FC5A185    51
                     7211777776                   =X1    X1-1                                                    FC5A185    52
                               53112              SA1    B2+X1       X1 = TABLE ENTRY FOR NEXT ITEM              FC5A185    53
           603  10711                             BX7    X1                                                      FC5A185    54
                     0266000004                   JP     B6+MAPPML   PROCESS NEXT FIELD FOR ITEM                 FC5A185    55
                                                                                                                 FC5A185    56
                                        **        PROCESSORS RETURN HERE                                         FC5A185    57
                                                                                                                 FC5A185    58
           604  5110000661 +             MOC.RB   RESR   (X2,X3,B5,X5),MOCSAV                                    FC5A185    59
                               73331              =X3    X3+1                                                    FC5A185    60
           610  53435                             SA4    X3+B5                                                   FC5A185    61
                     63640                        SB6    X4                                                      FC5A185    62
                          0560000600 +            NZ     B6,MOC50    IF NOT END OF FORMATTER                     FC5A185    63
           611  0100001634 +                      RJ     RNI         RETURN NEXT INDEX                           FC5A185    65
           612  5110001670 +                      SA1    RNI.PI                                                  FC5A185    66
                          7211777776              =X1    X1-1                                                    FC5A185    67
           613  0321000617 +                      PL     X1,MOC60    IF MORE ITEMS                               FC5A185    68
                          6160000764              SB6    500                                                     FC5A185    69
           614  0100001014 +                      RJ     CBS         FLUSH THE BUFFER                            FC5A185    70
           615  5110000660 +                      RESR   (X5),MOCSAV                                             FC5A185    71
           616  0400000552 +                      EQ     MOC10       PROCESS NEXT MAP                            FC5A185    72
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    20
        MAIN ROUTINES                                                 MOC 
  
                                                                                                                 FC5A185    73
           617  5110000661 +             MOC60    RESR   (X2),MOCSAV                                             FC5A185    74
           620  7222777776                        =X2    X2-1                                                    FC5A185    75
                          73720                   SAVR   (X2,X3),MOCSAV                                          FC5A185    76
                          0312000577 +            NZ     X2,MOC40    IF NOT END OF LINE                          FC5A185    77
           623  5150001573 +                      SA5    PCB.WO                                                  FC5A185    78
                          7255000002              SX5    X5+2        X5 = NO. OF WORDS TO OUTPUT                 FC5A185    79
           624  7215777776                        WLINE  MAPBUFF-1,X5,0,0                                        FC5A185    80
           634  5120000656 +                      SA2    MOCTC                                                   FC5A185    81
                          73720                   SAVR   (X2),MOCSAV                                             FC5A185    82
                          5110000657 +            RESR   (B5),MOCSAV                                             FC5A185    83
                     0400000577 +                 EQ     MOC40                                                   FC5A185    84
  
  
  
  
                                        **        BUFFERS  AND POINTERS.                                         MAP       818
                                                                                                                 MAP       819
                                                                                                                 MAP       820
           637                    17     MOCBUF   BSSZ   15          TEMP STORAGE FOR A HEADING                  MAP       821
                                                                                                                 MAP       822
           656                     1     MOCTC    BSS    1           TRIP COUNT                                  MAP       823
           657                           MOCSAV   BSS    0                                                       FC5A185    85
      L      0                                    LOC    0                                                       FC5A185    86
      L      0                     1     SVB5     BSS    1           TEMP STORAGE FOR B5                         FC5A185    87
      L      1                     1     SVX5     BSS    1           TEMP FOR X5                                 FC5A185    88
      L      2                     1     SVX2     BSS    1           TEMP FOR X2                                 FC5A185    89
      L      3                     1     SVX3     BSS    1           TEMP FOR X3                                 FC5A185    90
           663                                    LOC    *O                                                      FC5A185    91
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    21
        INITIALIZING ROUTINES                                         IRA 
  
                                        **        THE FOLLOWING ROUTINES ARE THE INITIALIZING ROUTINES           MAP       827
                                        *         CALLED BY THE CONTROLLER.                                      MAP       828
  
  
  
  
                                        **        IRA -  INITIALIZING ROUTINE A.                                 MAP       830
                                        *                                                                        MAP       831
                                        *         THIS ROUTINE ACCOMPLISHES THE FOLLOWING -                      MAP       832
                                        *                                                                        MAP       833
                                        *         1)  SELECTS THE APPROPRIATE FORMATTER FOR THE CONTROLLER.      MAP       834
                                        *                                                                        MAP       835
                                        *         2)  CALLS STS TO SEPARATE PROPER SYMBOL TYPE FROM SYMTAB.      MAP       836
                                        *                                                                        MAP       837
                                        *         3)  CALLS DMF TO DETERMINE HOW THE CURRENT MAP WILL APPEAR ON  MAP       838
                                        *             THE PAGE.                                                  MAP       839
                                        *                                                                        MAP       840
                                        *         ENTRY  (X5) = OFFSET INTO MST TABLE.                           MAP       841
                                        *                (X1) = 30/ADRS FORMATTER TABLE,30/ADRS IRA.             MAP       842
                                        *                                                                        MAP       843
                                        *         EXIT   (B5) = ADDRESS OF PROPER FORMATTER.                     MAP       844
                                        *                                                                        MAP       845
                                        *         USES   X - ALL  A - ALL  B - 2,3,4,5,7.                        MAP       846
                                        *                                                                        MAP       847
                                        *         CALLS  STS,DMF,SST.                                            MAP       848
                                                                                                                 MAP       849
           663  20136                    IRA      LX1    5*CHAR                                                  MAP       850
                     63510                        SB5    X1          B5 = ADRS FORMATTER TABLE                   MAP       851
                          5110000544 +            SA1    MAP.NO                                                  MAP       852
           664  7221777776                        =X2    X1-1                                                    MAP       853
                          53225                   SA2    B5+X2       X2 = ADRS OF PROPER FORMATTER               MAP       854
                               43400              MX4    0                                                       MAP       855
           665  63450                             SB4    X5          COPY OF MST OFFSET FOR STS AND DMF          MAP       856
                     63520                        SB5    X2                                                      MAP       857
                          76650                   SX6    B5                                                      MAP       858
           666  5160000657 +                      SA6    IRASAV      PRESERVE FORMATTER ADDRESS                  MAP       859
                          0450000555 +            ZR     B5,MOC.RA   IF NO OUTPUT FOR THIS MAP                   MAP       860
           667  5154000671 +                      SA5    IRAJP+B4                                                MAP       861
                          63250                   SB2    X5                                                      MAP       862
           670  0222000000                        JP     B2          SELECT PROPER CODE SECTION                  MAP       863
                                                                                                                 MAP       864
                                                                                                                 MAP       865
                                  -1     STO      SET    -1                                                      MAP       866
           671                           IRAJP    BSS    0                                                       MAP       867
      L      0                                    LOC    0                                                       MAP       868
                                                                                                                 MAP       869
      L      0  00000000000000000702 +            DDTE   TVARP,(VFD    60/IRA5)        VARIABLES                 MAP       870
      L      1  00000000000000000704 +            DDTE   TSCP,(VFD    60/IRA10)        SYMBOLIC CONSTANTS        MAP       871
      L      2  00000000000000000706 +            DDTE   TPROP,(VFD    60/IRA15)       PROCEDURES                MAP       872
      L      3  00000000000000000710 +            DDTE   TLABP,(VFD    60/IRA20)       LABELS                    MAP       873
      L      4  00000000000000000712 +            DDTE   TENTP,(VFD    60/IRA25)       ENTRY POINTS              MAP       874
      L      5  00000000000000000716 +            DDTE   TNAMP,(VFD    60/IRA30)       NAMELISTS                 MAP       875
      L      6  00000000000000000720 +            DDTE   TDOLP,(VFD    60/IRA35)       DO-LOOPS                  MAP       876
      L      7  00000000000000400700 +            DDTE   TCOMP,(VFD    60/"BLOWUP")    COMMON+EQUIV              MAP       877
      L     10  00000000000000000724 +            DDTE   TIOP,(VFD    60/IRA40)        I/O UNITS                 MAP       878
      L    702                                    LOC    *O                                                      MAP       879
                                                                                                                 MAP       880
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    22
        INITIALIZING ROUTINES                                         IRA 
  
                                                                                                                 MAP       881
           702  7150000040               IRA5     CLAS=  X5,WB,(VAR)                                             MAP       882
                          5140003163 +            CLAS=  X4,WB,(PARM,ENT,LAB,NLST,CGS)                           MAP       883
           703  0400000725 +                      EQ     IRA45                                                   MAP       884
                                                                                                                 MAP       885
           704  7150000400               IRA10    CLAS=  X5,WB,(PARM)                                            MAP       886
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       887
           705  0400000725 +                      EQ     IRA45                                                   MAP       888
                                                                                                                 MAP       889
           706  5150003164 +             IRA15    CLAS=  X5,WB,(FUN,SUB,DEXT)                                    MAP       890
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       891
           707  0400000725 +                      EQ     IRA45                                                   MAP       892
                                                                                                                 MAP       893
           710  7150000010               IRA20    CLAS=  X5,WB,(LAB)                                             MAP       894
                          7140000020              CLAS=  X4,WB,(CGS)                                             MAP       895
           711  0400000725 +                      EQ     IRA45                                                   MAP       896
                                                                                                                 MAP       897
           712  5150000000 X             IRA25    SA5    MOD                                                     MAP       898
                          20563                   HX5    MO.BLK                                                  MAP       899
                               66250              SB2    B5                                                      MAP       900
           713  66500                             =B5    0                                                       MAP       901
                     0335000555 +                 MI     X5,MOC.RA   IF BLOCK DATA, SUPPRESS                     MAP       902
                               66520              SB5    B2                                                      MAP       903
           714  7150020000                        CLAS=  X5,WB,(ENT)                                             MAP       904
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       905
           715  0400000725 +                      EQ     IRA45                                                   MAP       906
                                                                                                                 MAP       907
           716  43501                    IRA30    CLAS=  X5,WB,(NLST)                                            MAP       908
                          7140000030              CLAS=  X4,WB,(LAB,CGS)                                         MAP       909
           717  0400000725 +                      EQ     IRA45                                                   MAP       910
                                                                                                                 MAP       911
           720  66250                    IRA35    SB2    B5                                                      MAP       912
                     66500                        =B5    0                                                       MAP       913
                          5110000000 X            SA1    WO.QC                                                   MAP       914
           721  0331000555 +                      MI     X1,MOC.RA   SUPPRESS IF FATAL ERRORS OR QC MODE         MAP       915
                          66520                   SB5    B2                                                      MAP       916
           722  7150020010                        CLAS=  X5,WB,(LAB,DOGL)                                        MAP       917
                          14555                   BX5    -X5         COMPLEMENT TO MAKE *AND* OF BITS POSSIBLE   FC50326    38
           723  0400000725 +                      EQ     IRA45                                                   MAP       919
                                                                                                                 MAP       920
           724  5150003165 +             IRA40    CLAS=  X5,WB,(UDC,NVAR)                                        MAP       921
                          14555                   BX5    -X5         BOTH BITS MUST BE ON                        MAP       922
                                                                                                                 MAP       923
           725  0100001736 +             IRA45    RJ     STS                                                     MAP       924
           726  5150000000 X                      SA5    T=SCR                                                   MAP       925
                          0315000730 +            NZ     X5,IRA60    IF TABLE NOT EMPTY                          MAP       926
           727  66500                             SB5    B0                                                      MAP       927
                     0400000555 +                 EQ     MOC.RA      RETURN TO CONTROLLER                        MAP       928
                                                                                                                 MAP       929
           730  0100001120 +             IRA60    RJ     DMF         DETERMINE MAP FORMAT                        MAP       930
           731  5110000000 X                      SA1    T.SCR                                                   MAP       931
                          63710                   SB7    X1          FWA OF TABLE                                MAP       932
           732  5110000000 X                      SA1    T=SCR                                                   MAP       933
                          7174777771              SX7    B4-TDOLP                                                MAP       934
           733  0307000734 +                      ZR     X7,IRA70    IF DO-LOOP MAP                              MAP       935
                          0100000000 X            CALL   SST         SORT THE TABLE                              MAP       936
           734  5110000657 +             IRA70    SA1    IRASAV                                                  MAP       937
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    23
        INITIALIZING ROUTINES                                         IRA 
  
                          63510                   SB5    X1                                                      MAP       938
           735  0400000555 +                      EQ     MOC.RA                                                  MAP       939
                                                                                                                 MAP       940
                                                                                                                 MAP       941
                                 657 +   IRASAV   EQU    MOCSAV+SVB5                                             FC5A185    92
  
  
  
  
                                        **        IRB -  INITIALIZING ROUTINE B.                                 MAP       944
                                        *                                                                        MAP       945
                                        *         ACTUALLY PERFORMS INITIALIZATION AND OUTPUT OF THE             MAP       946
                                        *         COMMON+EQUIVALENCE MAP. UPON EXIT, B5 MUST BE SET              MAP       947
                                        *         TO ZERO TO FORCE MOC TO BYPASS ITS OWN CONTROL LOGIC.          MAP       948
                                        *                                                                        MAP       949
                                        *         EXIT   (B5) = 0.                                               MAP       950
                                        *                OUTPUT OF COMMON-EQUIVALENCE MAP COMPLETE.              MAP       951
                                        *                                                                        MAP       952
                                        *         CALLS  SST,OTH,PCB,OBI,OBM,OLE,SCS.                            MAP       953
                                        *                                                                        MAP       954
                                        *         USES   ALL REGISTERS.                                          MAP       955
                                                                                                                 MAP       956
           736  5110000000 X             IRB      SA1    WO.LOM                                                  MAP       957
                          66500                   =B5    0                                                       MAP       958
           737  0301000555 +                      ZR     X1,MOC.RA   IF THIS MAP NOT SELECTED                    MAP       959
                          5110000000 X            SA1    WO.QC                                                   FC5A185    93
           740  0331000555 +                      MI     X1,MOC.RA   IF FATAL ERRORS OR QC MODE                  FC5A185    94
                          5110000000 X            SA1    T=ECT                                                   MAP       960
           741  5120000000 X                      SA2    T=BLKS                                                  MAP       961
                          7211777774              SX1    X1-3                                                    FC5A185    95
           742  7222777774                        SX2    X2-Z=BLKS-1                                             FC5A185    96
                          11312                   BX3    X1*X2                                                   FC5A185    97
           743  0333000555 +                      MI     X3,MOC.RA   IF NO OUTPUT                                FC5A185    98
                                                                                                                 FC5A109     5
                                        **        CHECK IF S$A$V$E BLOCK WOULD BE THE ONLY OUTPUT.               FC5A109     6
                                                                                                                 FC5A109     7
                          0321000750 +            PL     X1,IRB5     IF EQUIVALENCES EXIST                       FC5A185    99
           744  7222777776                        =X2    X2-1                                                    FC5A185   100
                          0322000752 +            PL     X2,IRB7     IF MORE THAN ONE BLOCK                      FC5A185   101
           745  5120000000 X                      SA2    T.BLKS                                                  FC5A109    11
                          5222000002              SA2    X2+Z=BLKS   X2 = *CA*                                   FC5A109    12
           746  5130003166 +                      SA3    =7RS$A$V$E                                              FC5A109    13
                          43022                   XTRCT  CA.BNAM,X2,X2     EXTRACT BLOCK NAME                    FC5A109    14
                     13223                        BX2    X2-X3                                                   FC5A109    15
                          0302000555 +            ZR     X2,MOC.RA   IF IT IS THE ONLY BLOCK                     FC5A109    16
                                                                                                                 FC5A109    17
           750  5120000000 X             IRB5     SA2    T.ECT                                                   FC5A109    18
                          63720                   SB7    X2                                                      MAP       966
           751  5110000000 X                      SA1    T=ECT                                                   FC5A185   102
                          0100000000 X            CALL   SST         SORT EQUIVALENCE CLASS TABLE                MAP       967
                                                                                                                 FC5A185   103
           752  5110000464 +             IRB7     SA1    MAP.XS                                                  FC5A185   104
                          66610                   =B6    1                                                       MAP       969
           753  0100001556 +                      RJ     PCB         BLANK LINE INSTEAD OF HEADING               MAP       970
           754  7150000007                        =X5    TCOMP                                                   MAP       971
                          0100001465 +            RJ     OTH         OUTPUT TITLE AND HEADING                    MAP       972
           755  43600                             MX6    0                                                       MAP       973
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    24
        INITIALIZING ROUTINES                                         IRB 
  
                     5160001405 +                 SA6    OBI.BI      INITIALIZE BLOCK INDEX                      MAP       974
                                                                                                                 MAP       975
                                        **        OUTPUT OF COMMON BLOCK INFORMATION.                            MAP       976
                                                                                                                 MAP       977
           756  0100001233 +             IRB10    RJ     GNB         GET NEXT BLOCK                              FC5A185   105
           757  0333000762 +                      MI     X3,IRB30    IF NO MORE BLOCKS                           FC5A185   106
                          0100001327 +            RJ     OBI         OUTPUT BLOCK INFORMATION                    FC5A185   107
           760  0100001435 +                      RJ     OML         OUTPUT BLOCK MEMBERS                        FC5A185   108
           761  0400000756 +                      EQ     IRB10                                                   MAP       984
                                                                                                                 MAP       985
                                        **        OUTPUT OF LOCAL EQUIVALENCE CLASSES.                           MAP       986
                                                                                                                 MAP       987
           762  0100001212 +             IRB30    RJ     GLE         GET LOCAL EQUIVALENCE CLASSES               FC5A185   109
           763  66500                             =B5    0                                                       FC5A185   110
                     5110000000 X                 SA1    T=SCR                                                   FC5A185   111
           764  0301000555 +                      ZR     X1,MOC.RA   IF NO LOCAL CLASSES                         FC5A185   112
                          7150000003              WLINE  IRBA,MAPSTL,2,1   OUTPUT TITLE                          FC5A185   113
           773  5110000464 +                      SA1    MAP.XS                                                  FC5A185   114
                          6160000006              SB6    6                                                       FC5A185   115
           774  0100001556 +                      RJ     PCB         INDENT 6                                    FC5A185   116
           775  0100001435 +                      RJ     OML         OUPUT LOCAL EQUIVALENCE                     FC5A185   117
           776  66500                             =B5    0                                                       MAP      1001
                     0400000555 +                 EQ     MOC.RA                                                  MAP      1002
                                                                                                                 MAP      1003
           777  55464614170301145505     IRBA     DIS    3, --LOCAL EQUIVALENCE--                                MAP      1004
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    25
        TASK PERFORMERS 
  
                                        **        THE FOLLOWING GROUP OF SUBROUTINES ARE                         FC5A185   119
                                        *         ROUTINES THAT PERFORM VARIOUS TASKS FOR THE CONTROLLER.        MAP      1008
                                                                                                                 MAP      1009
                                        **        BNS -  BOUND NAME WITH SLASHES.                                MAP      1010
                                        *                                                                        MAP      1011
                                        *         THIS ROUTINE IS USED TO FORMAT BLOCK NAMES FOR OUTPUT.         MAP      1012
                                        *                                                                        MAP      1013
                                        *         ENTRY  (X1) = NAME TO BE BOUNDED, LEFT JUSTIFIED.              MAP      1014
                                        *                                                                        MAP      1015
                                        *         EXIT   (X1) = FORMATTED NAME LEFT JUSTIFIED.                   MAP      1016
                                        *                                                                        MAP      1017
                                        *         USES   X - ALL  A - 2,3,4,7  B - 3.                            MAP      1018
                                        *                                                                        MAP      1019
                                        *         KEEPS  X4.                                                     MAP      1020
                                        *                                                                        MAP      1021
                                        *         CALLS  NONE.                                                   MAP      1022
                                                                                                                 MAP      1023
          1002  0400401002 +             BNS      SUBR               ENTRY/EXIT...                               MAP      1024
          1003  10744                             BX7    X4                                                      MAP      1025
                     5170001013 +                 SA7    BNSAV       PRESERVE X4                                 MAP      1026
                               43073              MX0    -1                                                      MAP      1027
          1004  5120003167 +                      SA2    =40404040404040404040B                                  MAP      1028
                          5130003170 +            SA3    =10H//////////                                          MAP      1029
          1005  5140003171 +                      SA4    =1A/                                                    MAP      1030
                          6130000067              SB3    60-CHAR+1                                               MAP      1031
          1006  36710                             IX7    X1+X0       LOCATE LOWEST BIT                           MAP      1032
                     16517                        BX5    -X7+X1                                                  MAP      1033
                          11725                   BX7    X2*X5       40 WHERE CHARACTERS WERE                    MAP      1034
                               22537              LX5    X7,B3                                                   MAP      1035
          1007  37675                             IX6    X7-X5                                                   MAP      1036
                     36776                        IX7    X7+X6       77 WHERE CHARACTERS WERE                    MAP      1037
                          15637                   BX6    -X7*X3                                                  MAP      1038
                               21706              AX7    CHAR        EXTEND MASK                                 MAP      1039
          1010  15547                             BX5    -X7*X4                                                  MAP      1040
                     36616                        IX6    X1+X6       APPEND TRAILING SLASHES                     MAP      1041
                          11776                   BX7    X7*X6       DISCARD SUPERFLUOUS SLASHES                 MAP      1042
                               36757              IX7    X5+X7       SPACE FILL                                  MAP      1043
          1011  20766                             LX7    -CHAR                                                   MAP      1044
                     10177                        BX1    X7                                                      MAP      1045
                          5140001013 +            SA4    BNSAV       RESTORE X4                                  MAP      1046
          1012  0400001002 +                      EQ     EXIT.                                                   MAP      1047
                                                                                                                 MAP      1048
          1013                     1     BNSAV    BSS    1           CELL TO PRESERVE REGISTER X4                MAP      1049
  
  
  
  
                                        **        CBS -  CREATE BUFFER SPACE.                                    MAP      1051
                                        *                                                                        MAP      1052
                                        *         WILL FLUSH BUFFER (MAPBUFF) IF THERE ARE LESS THAN             MAP      1053
                                        *         (B6) CHARACTERS OF ROOM LEFT.                                  MAP      1054
                                        *                                                                        MAP      1055
                                        *         ENTRY  (B6) = SPACE NEEDED (IN CHARACTERS).                    MAP      1056
                                        *                                                                        MAP      1057
                                        *         CALLS  GBL,WLINE.                                              MAP      1058
                                        *                                                                        MAP      1059
                                        *         USES   ALL REGISTERS.                                          MAP      1060
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    26
        TASK PERFORMERS                                               CBS 
  
                                                                                                                 MAP      1061
          1014  0400401014 +             CBS      SUBR               ENTRY/EXIT...                               MAP      1062
          1015  5110000000 X                      SA1    CO.PW                                                   MAP      1063
                          0100001200 +            RJ     GBL         GET BUFFER LENGTH                           MAP      1064
          1016  0302001014 +                      ZR     X2,EXIT.    IF BUFFER EMPTY                             MAP      1065
                          73110                   SX1    X1          STRIP CONNECT BIT                           FC5A187    18
                               37112              IX1    X1-X2       ROOM LEFT ON PAGE                           MAP      1066
                                                  IFEQ   TEST,ON,1                                               MAP      1067
                                                  MI     X1,"BLOWUP" IF BUFFER TOO BIG                           MAP      1068
          1017  63310                             SB3    X1                                                      MAP      1069
                     67336                        SB3    B3-B6                                                   MAP      1070
                          0630001014 +            PL     B3,EXIT.    IF ENOUGH ROOM                              MAP      1071
          1020  76660                             SX6    B6                                                      MAP      1072
                     5160001037 +                 SA6    CBSSAV                                                  MAP      1073
          1021  5110001573 +                      SA1    PCB.WO                                                  MAP      1074
                          7211000002              SX1    X1+2                                                    MAP      1075
          1022  10511                             WLINE  MAPBUFF-1,X1,0,0                                        MAP      1076
          1032  7160000007                        SX6    7                                                       FC50297     5
                          5160001434 +            SA6    OCEI.TAB    INITIALIZE TAB COUNTER                      FC50297     6
          1033  5110001037 +                      SA1    CBSSAV                                                  MAP      1077
                          7211777551              SX1    X1-150                                                  MAP      1078
          1034  0321001014 +                      PL     X1,EXIT.    IF BUFFER FLUSH FORCED                      MAP      1079
                          6160000006              SB6    6                                                       MAP      1080
          1035  5110000464 +                      SA1    MAP.XS                                                  MAP      1081
                          0100001556 +            RJ     PCB         INDENT 6                                    MAP      1082
          1036  6130777776                        SB3    -1          INDICATE BUFFER OUTPUT                      FC50297     7
                          0400001014 +            EQ     EXIT.                                                   MAP      1083
                                                                                                                 MAP      1084
          1037                     1     CBSSAV   BSS    1           CELL TO PRESERVE SPACE NEEDED               MAP      1085
  
  
  
  
                                        **        CCBB - COUNT CHARS BEFORE BLANK.                               MAP      1087
                                        *                                                                        MAP      1088
                                        *         USED TO DETERMINE LENGTH OF A PROCESSOR OUTPUT TO              MAP      1089
                                        *         FACILITATE LEFT OR RIGHT JUSTIFICATION OF THAT OUTPUT          MAP      1090
                                        *         IN THE FIELD ALOTTED TO THE PROCESSOR.                         MAP      1091
                                        *                                                                        MAP      1092
                                        *         ENTRY  (X1) = PROCESSOR OUTPUT TO CHECK.                       MAP      1093
                                        *                (X0) = PL FOR INPUT LEFT JUST., MI FOR RIGHT JUST.      MAP      1094
                                        *                                                                        MAP      1095
                                        *         EXIT   (B6) = CHARACTER COUNT.                                 MAP      1096
                                        *                                                                        MAP      1097
                                        *         USES   X - 2,3,4,7  B - 2,3,6.                                 MAP      1098
                                        *                                                                        MAP      1099
                                        *         CALLS  NONE.                                                   MAP      1100
                                                                                                                 MAP      1101
          1040  0400401040 +             CCBB     SUBR               ENTRY/EXIT...                               MAP      1102
          1041  7130000055                        SX3    1R                                                      MAP      1103
                          20366                   LX3    -CHAR                                                   MAP      1104
                               43406              MX4    CHAR                                                    MAP      1105
          1042  6120000006                        SB2    CHAR        SHIFT COUNT FOR LEFT JUST. INPUT            MAP      1106
                          0320001044 +            PL     X0,CCBB10   IF INPUT LEFT JUST.                         MAP      1107
          1043  20306                             LX3    CHAR                                                    MAP      1108
                     20406                        LX4    CHAR                                                    MAP      1109
                          6120777771              SB2    -CHAR       SHIFT COUNT FOR RIGHT JUST. INPUT           MAP      1110
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    27
        TASK PERFORMERS                                               CCBB
  
                                                                                                                 MAP      1111
          1044  10711                    CCBB10   BX7    X1                                                      MAP      1112
                     6130000012                   SB3    10          LOOP LIMIT                                  MAP      1113
                               66600              =B6    0           NON-BLANK CHAR COUNTER                      MAP      1114
                                                                                                                 MAP      1115
          1045  67331                    CCBB20   =B3    B3-1                                                    MAP      1116
                     0730001040 +                 MI     B3,EXIT.    IF NO BLANKS FOUND                          MAP      1117
                               11247              BX2    X4*X7       ISOLATE A CHAR                              MAP      1118
          1046  13223                             BX2    X2-X3                                                   MAP      1119
                     0302001040 +                 ZR     X2,EXIT.    IF FOUND A BLANK                            MAP      1120
                               66661              =B6    B6+1                                                    MAP      1121
          1047  22727                             LX7    B2,X7                                                   MAP      1122
                     0400001045 +                 EQ     CCBB20      CONTINUE                                    MAP      1123
  
  
  
  
                                        **        DELF - DELETE FIELDS FROM A FORMATTER.                         MAP      1125
                                        *                                                                        MAP      1126
                                        *         WILL DELETE FIELDS ON THE BASIS OF PRIORITIES DEFINED          MAP      1127
                                        *         IN A TABLE UNIQUE TO THE MAP SEGMENT BEING PROCESSED.          MAP      1128
                                        *         AN OCCURANCE OF THE PROCESSOR CURRENTLY AT THE TOP OF          MAP      1129
                                        *         THE PRIORITY TABLE WILL BE REPLACED BY A NO-OP PROCESSOR.      MAP      1130
                                        *         THIS IS CONTINUED UNTIL THE LENGTH OF THE FORMATTER            MAP      1131
                                        *         BECOMES EQUAL TO OR LESS THAN THE PAGE WIDTH.                  MAP      1132
                                        *                                                                        MAP      1133
                                        *         ENTRY  (B2) = LENGTH OF FORMATTER.                             MAP      1134
                                        *                (B5) = ADDRESS OF FORMATTER.                            MAP      1135
                                        *                (B4) = MST OFFSET.                                      MAP      1136
                                        *                                                                        MAP      1137
                                        *         EXIT   (X6) = 1.                                               MAP      1138
                                        *                (X7) = X5  (PRESERVED ON ENTRY).                        MAP      1139
                                        *                                                                        MAP      1140
                                        *         USES   X - 1,2,3,4,5,6,7   A - 1,2,3,5,6  B - 3,6,7.           MAP      1141
                                        *                                                                        MAP      1142
                                        *         KEEPS  X5.                                                     MAP      1143
                                                                                                                 MAP      1144
                                                                                                                 MAP      1145
          1050  10655                    DELF     BX6    X5                                                      MAP      1146
                     5160001067 +                 SA6    DELFA       PRESERVE X5                                 MAP      1147
          1051  5110000000 X                      SA1    CO.PW                                                   MAP      1148
                          63610                   SB6    X1                                                      MAP      1149
                               77526              SX5    B2-B6       NUMBER OF COLUMNS EXCEEDING PW              MAP      1150
                                                  IFEQ   TEST,ON,2                                               MAP      1151
                                                  ZR     X5,"BLOWUP"                                             MAP      1152
                                                  MI     X5,"BLOWUP" IF BAD B2 OR ERROR BY DMF                   MAP      1153
          1052  66300                             =B3    0           OFFSET INTO PRIORITY TABLE                  MAP      1154
                     5114001070 +                 SA1    B4+DELFB    X1 = ADRS OF PRIORITY TABLE                 MAP      1155
                                                  IFEQ   TEST,ON,1                                               MAP      1156
                                                  ZR     X1,"BLOWUP" IF TABLE DOESNT EXIST                       MAP      1157
                               66700              =B7    0           OFFSET INTO FORMATTER                       MAP      1158
          1053  7160002434 +                      SX6    NOP                                                     MAP      1159
                                                                                                                 MAP      1160
          1054  53213                    DELF10   SA2    X1+B3       SEARCH FOR THIS PROCESSOR                   MAP      1161
                                                  IFEQ   TEST,ON,1                                               MAP      1162
                                                  ZR     X2,"BLOWUP" IF ERROR                                    MAP      1163
                     66331                        =B3    B3+1                                                    MAP      1164
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    28
        TASK PERFORMERS                                               DELF
  
                          43700                   MX7    0           COUNTS PASSES THROUGH THE TABLE             MAP      1165
                                                                                                                 MAP      1166
                                        **        THE FOLLOWING LOOP WILL GO ON TO THE NEXT HIGHEST              MAP      1167
                                        *         PRIORITY PROCESSOR IF IT CANT FIND THE PRESENT ONE             MAP      1168
                                        *         WITHIN 2 PASSES THROUGH THE TABLE.                             MAP      1169
                                                                                                                 MAP      1170
          1055  56357                    DELF20   SA3    B5+B7       WORD OF FORMATTER                           MAP      1171
                     66771                        =B7    B7+1                                                    MAP      1172
                          0313001061 +            NZ     X3,DELF30   IF NOT AT END OF FORMATTER                  MAP      1173
          1056  73771                             =X7    X7+1                                                    MAP      1174
                     7237777775                   SX3    X7-2                                                    MAP      1175
          1057  0323001054 +                      PL     X3,DELF10   IF PROCESSOR NOT PRESENT IN FORMATTER       MAP      1176
                          66700                   =B7    0                                                       MAP      1177
          1060  0400001055 +                      EQ     DELF20      CONTINUE                                    MAP      1178
                                                                                                                 MAP      1179
          1061  73430                    DELF30   SX4    X3                                                      MAP      1180
                     37424                        IX4    X2-X4                                                   MAP      1181
                          0314001055 +            NZ     X4,DELF20   IF NO MATCH                                 MAP      1182
          1062  43700                             MX7    0           RESET PASS COUNTER                          MAP      1183
                     20336                        LX3    30                                                      MAP      1184
                          73330                   SX3    X3                                                      MAP      1185
                               37553              IX5    X5-X3                                                   MAP      1186
          1063  54630                             SA6    A3          REPLACE PROCESSOR BY NOP                    MAP      1187
                     7235777776                   =X3    X5-1                                                    MAP      1188
          1064  0323001054 +                      PL     X3,DELF10   IF MORE DELETIONS NECESSARY                 MAP      1189
                          76610                   =X6    1                                                       MAP      1190
          1065  5150001067 +                      SA5    DELFA       RESTORE X5                                  MAP      1191
                          10755                   BX7    X5                                                      MAP      1192
          1066  0400001143 +                      EQ     DMF.RTN     RETURN TO DMF                               MAP      1193
  
  
  
  
          1067                     1     DELFA    BSS    1           TO PRESERVE X5                              MAP      1195
                                                                                                                 MAP      1196
                                        **        TABLE OF PRIORITY TABLE ADDRESSES, ACCESSED VIA MST OFFSET.    MAP      1197
                                        *         MUST BE IN THE SAME ORDER AS MST.                              MAP      1198
                                                                                                                 MAP      1199
                                  -1     STO      SET    -1                                                      MAP      1200
          1070                           DELFB    BSS    0                                                       MAP      1201
      L      0                                    LOC    0                                                       MAP      1202
      L      0  00000000000000001101 +            DDTE   TVARP,(VFD    60/DELFPT1)     VARIABLE MAP              MAP      1203
      L      1  00000000000000001110 +            DDTE   TSCP,(VFD    60/DELFPT2)      SYMBOLIC CONSTANTS        MAP      1204
      L      2  00000000000000000000              DDTE   TPROP,(VFD    60/0)                                     MAP      1205
      L      3  00000000000000001116 +            DDTE   TLABP,(VFD   60/DELFPT4)       LABELS                   FC50834     6
      L      4  00000000000000000000              DDTE   TENTP,(VFD    60/0)                                     MAP      1207
      L      5  00000000000000000000              DDTE   TNAMP,(VFD    60/0)                                     MAP      1208
      L      6  00000000000000001112 +            DDTE   TDOLP,(VFD    60/DELFPT3)     DO-LOOPS                  MAP      1209
      L      7  00000000000000000000              DDTE   TCOMP,(VFD    60/0)                                     MAP      1210
      L     10  00000000000000000000              DDTE   TIOP,(VFD    60/0)                                      MAP      1211
      L   1101                                    LOC    *O                                                      MAP      1212
                                                                                                                 MAP      1213
                                        **        FIELD DELETION PRIORITY TABLES.                                MAP      1214
                                                                                                                 MAP      1215
          1101  00000000000000003154 +   DELFPT1  VFD    60/XC                                                   MAP      1216
          1102  00000000000000002015 +            VFD    60/ADR                                                  MAP      1217
          1103  00000000000000002102 +            VFD    60/BLK                                                  MAP      1218
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    29
        TASK PERFORMERS                                               DELF
  
          1104  00000000000000003136 +            VFD    60/XA                                                   MAP      1219
          1105  00000000000000002721 +            VFD    60/SZE                                                  MAP      1220
          1106  00000000000000003136 +            VFD    60/XA                                                   MAP      1221
          1107  00000000000000000000              VFD    60/0                                                    MAP      1222
                                                                                                                 MAP      1223
          1110  00000000000000003025 +   DELFPT2  VFD    60/VAL                                                  MAP      1224
          1111  00000000000000000000              VFD    60/0                                                    MAP      1225
                                                                                                                 MAP      1226
          1112  00000000000000002266 +   DELFPT3  VFD    60/LADR                                                 FC50834     7
          1113  00000000000000003136 +            VFD    60/XA                                                   MAP      1228
          1114  00000000000000002165 +            VFD    60/DOIN                                                 MAP      1229
          1115  00000000000000000000              VFD    60/0                                                    MAP      1230
                                                                                                                 FC50834     8
          1116  00000000000000003136 +   DELFPT4  VFD    60/XA                                                   FC50834     9
          1117  00000000000000000000              VFD    60/0                                                    FC50834    10
  
  
  
  
                                        **        DMF -  DETERMINE MAP FORMAT.                                   MAP      1232
                                        *                                                                        MAP      1233
                                        *         THIS ROUTINE ATTEMPTS TO FIX THE FORMAT OF A MAP OUTPUT        MAP      1234
                                        *         IN SUCH A WAY AS TO MAKE EFFICIENT USE OF PAPER AND TO         MAP      1235
                                        *         MAKE IT AESTHETICALLY PLEASING, GIVEN THE LIMITATION           MAP      1236
                                        *         ON PAGE WIDTH.                                                 MAP      1237
                                        *                                                                        MAP      1238
                                        *         ENTRY  (X5)= LENGTH OF T.SCR.                                  MAP      1239
                                        *                (B5)= ADDRESS OF A FORMATTER.                           MAP      1240
                                        *                (B4) = MST OFFSET.                                      MAP      1241
                                        *                                                                        MAP      1242
                                        *         EXIT   NONE.                                                   MAP      1243
                                        *                                                                        MAP      1244
                                        *         CALLS  SRNI,DELF.                                              MAP      1245
                                        *                                                                        MAP      1246
                                        *         USES   X - 1,2,3,4,5,6,7  A - ALL  B - ALL.                    MAP      1247
                                                                                                                 MAP      1248
          1120  0400401120 +             DMF      SUBR               ENTRY/EXIT.                                 MAP      1249
          1121  66200                             SB2    B0                                                      MAP      1250
                     43300                        MX3    0                                                       MAP      1251
                                                                                                                 MAP      1252
          1122  56252                    DMF20    SA2    B5+B2       GRAB WORD OF FORMATTER                      MAP      1253
                     0302001125 +                 ZR     X2,DMF30    IF LAST WORD OF FORMATTER                   MAP      1254
                               20236              LX2    5*CHAR                                                  MAP      1255
          1123  73220                             SX2    X2          ISOLATE FIELD WIDTH                         MAP      1256
                     36332                        IX3    X3+X2       ACCUMULATE SUM                              MAP      1257
                          66221                   =B2    B2+1                                                    MAP      1258
                                                  IFEQ   TEST,ON,2                                               MAP      1259
                                                  SB3    B2-MAPLFL                                               MAP      1260
                                                  PL     B3,"BLOWUP" IF B2 GE LARGEST FORMATTER LENGTH           MAP      1261
          1124  0400001122 +                      EQ     DMF20                                                   MAP      1262
                                                                                                                 MAP      1263
          1125  5140000000 X             DMF30    SA4    CO.PW                                                   MAP      1264
                          63230                   SB2    X3          SAVE COPY OF FORMATTER LENGTH FOR DELF      MAP      1265
                               73440              SX4    X4          STRIP CONNECT BIT                           FC5A226     5
          1126  27404                             IX6    X4/X3       MAXIMUM NUMBER OF SECTIONS                  MAP      1266
                               10255              BX2    X5          SAVE COPY OF NUMBER OF ENTRIES IN T.SCR     MAP      1267
          1130  7215777774                        =X1    X5-MAPMRL                                               MAP      1268
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    30
        TASK PERFORMERS                                               DMF 
  
                          0321001133 +            PL     X1,DMF40    IF MORE THAN MAPMRL ENTRIES                 MAP      1269
          1131  0306001050 +                      ZR     X6,DELF     IF FIELDS NEED TO BE DELETED                MAP      1270
                          76610                   =X6    1                                                       MAP      1271
                               10755              BX7    X5                                                      MAP      1272
          1132  0400001143 +                      EQ     DMF.RTN                                                 MAP      1273
                                                                                                                 MAP      1274
          1133  5110000544 +             DMF40    SA1    MAP.NO      GET MAP.NO                                  MAP      1275
                          20173                   LX1    59                                                      MAP      1276
          1134  0321001136 +                      PL     X1,DMF45    IF REFERENCES NOT SELECTED                  MAP      1277
                          0306001050 +            ZR     X6,DELF     IF FIELDS NEED TO BE DELETED                MAP      1278
          1135  76610                             =X6    1           FORCE SECTION COUNT TO 1                    MAP      1279
                                                                                                                 MAP      1280
          1136  10366                    DMF45    BX3    X6          SAVE COPY OF # OF SECTIONS                  MAP      1281
                     0303001050 +                 ZR     X3,DELF     IF FIELDS NEED TO BE DELETED                MAP      1282
                               27202              IX7    X2/X3                                                   MAP      1283
                          7217777774              =X1    X7-MAPMRL                                               MAP      1284
          1141  0321001143 +                      PL     X1,DMF.RTN  IF THIS IS A GOOD FORMAT                    MAP      1285
                          7266777776              =X6    X6-1                                                    MAP      1286
          1142  10255                             BX2    X5          REFRESH # OF ENTRIES                        MAP      1287
                     0400001136 +                 EQ     DMF45       TRY NEXT VALUE                              MAP      1288
                                                                                                                 MAP      1289
                                        **        DELF WILL RETURN HERE.                                         MAP      1290
                                                                                                                 MAP      1291
          1143  5160000656 +             DMF.RTN  SA6    MOCTC       SET TRIP COUNT                              MAP      1292
                          43600                   MX6    0                                                       MAP      1293
          1144  5160001735 +                      SA6    SRNI.LED    INITIALIZE LAST ELEMENT OF DIVISION         MAP      1294
                          6120000003              SB2    3                                                       FC50488     6
          1145  0100001703 +                      RJ     SRNI        SET RNI PARAMETERS                          MAP      1296
          1146  0400001120 +                      EQ     EXIT.                                                   MAP      1297
  
  
  
  
                                        **        EFE -  ENTER FAKE ENTRY PTS IN SYMTAB.                         MAP      1299
                                        *                                                                        MAP      1300
                                        *         THIS IS A KLUDGE TO ENABLE FUNCTION ENTRY POINTS TO APPEAR     MAP      1301
                                        *         IN BOTH THE VARIABLE MAP AND THE ENTRY POINT MAP.              MAP      1302
                                        *                                                                        MAP      1303
                                        *         EXIT   *MAPNEW* = NUMBER OF WORDS ADDED TO SYMBOL TABLE.       MAP      1304
                                        *                                                                        MAP      1305
                                        *                FAKE ENTRY POINTS ARE IN SYMBOL TABLE.                  MAP      1306
                                        *                                                                        MAP      1307
                                        *         USES   X - ALL  A - ALL  B - 2,3,4,5,7.                        MAP      1308
                                        *                                                                        MAP      1309
                                        *         CALLS  STS,SRC,ALLOC.                                          MAP      1310
                                                                                                                 MAP      1311
          1147  0400401147 +             EFE      SUBR               ENTRY/EXIT...                               MAP      1312
          1150  43600                             MX6    0                                                       MAP      1313
                     5160000545 +                 SA6    MAPNEW                                                  MAP      1314
          1151  5110000000 X                      SA1    MOD                                                     MAP      1315
                          20160                   SBIT   X1,MO.FUNP                                              FC5A391     5
          1152  0321001147 +                      PL     X1,EXIT.    IF NOT COMPILING A FUNCTION                 FC5A391     6
                          7150020000              CLAS=  X5,WB,(ENT)                                             MAP      1317
          1153  7140000030                        CLAS=  X4,WB,(CGS,LAB)                                         MAP      1318
                          6140000144              SB4    100         SET UP STS ENTRY CONDITIONS                 MAP      1319
          1154  0100001736 +                      RJ     STS         SEPARATE ENTRY POINTS FROM SYMTAB           MAP      1320
          1155  5110000000 X                      SA1    T=SCR       X1 = NUMBER OF ENTRY POINTS                 MAP      1321
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    31
        TASK PERFORMERS                                               EFE 
  
                          63210                   SB2    X1                                                      MAP      1322
                               20101              LX1    1                                                       MAP      1323
          1156  73612                             SX6    X1+B2       X6 = NUMBER OF WORDS TO ADD TO SYMTAB       MAP      1324
                     5160000545 +                 SA6    MAPNEW                                                  MAP      1325
                               10566              BX5    X6                                                      MAP      1326
          1157  5110000000 X                      ALLOC  T.SYM,X6                                                MAP      1327
          1161  5110000000 X                      SA1    T.SYM                                                   MAP      1328
                          5120000000 X            SA2    T=SYM                                                   MAP      1329
          1162  36212                             IX2    X1+X2                                                   MAP      1330
                     37225                        IX2    X2-X5                                                   MAP      1331
                          63520                   SB5    X2          B5 = ADDRESS OF *WA* OF 1ST FAKE ENTRY      MAP      1332
                               66200              =B2    0           LOOP COUNTER                                MAP      1333
          1163  63350                             SB3    X5          LOOP LIMIT                                  MAP      1334
                     5150000000 X                 SA5    T.SCR                                                   MAP      1335
          1164  5235777776                        =A3    X5-1        INITIALIZE FETCH REG                        MAP      1336
                          5120000000 X            SA2    S=VALUE                                                 MAP      1337
                                                                                                                 MAP      1339
          1165  54331                    EFE10    =A3    A3+1                                                    MAP      1340
                     5140003172 +                 CLAS=  X4,WB,(EQV,BASE,BMEM,CGS,1REF,FP,MODE,MDF)              FC5A191    20
                               43052              XTRCT  MT.WAI,X3,X3     ISOLATE *WA* OFFSET OF REAL ENTRY      MAP      1341
                     63730                        SB7    X3                                                      MAP      1342
                          53517                   SA5    X1+B7                                                   MAP      1343
                               10655              BX6    X5                                                      MAP      1344
          1167  56625                             SA6    B2+B5       FIX *WA* OF FAKE ENTRY                      MAP      1345
                     0100001671 +                 RJ     SRC         SEARCH REFERENCE CHAIN                      MAP      1346
          1170  63431                             =B4    X3+WB.W                                                 MAP      1347
                     53514                        SA5    X1+B4       *WB* OF REAL ENTRY                          MAP      1348
                          43071                   XTRCT  WB.MODE,X5,X6     ISOLATE MODE OF REAL ENTRY            FC5A109    20
          1171  36562                             IX5    X6+X2                                                   FC5A109    21
                     63750                        SB7    X5                                                      MAP      1351
                          20501                   LX5    1                                                       MAP      1352
                               73557              SX5    X5+B7                                                   MAP      1353
          1172  63751                             =B7    X5+WB.W     X5 = OFFSET OF PROPER VALUE.                MAP      1354
                     53517                        SA5    X1+B7       *WB* OF THE VALUE.                          MAP      1355
                          15554                   BX5    -X4*X5      ERASE SOME FIELDS                           FC5A109    22
                                                  LX6    WB.MODEP                                                FC5A109    23
                               12656              BX6    X5+X6       ADD IN MODE OF ENTRY POINT                  FC5A109    24
          1173  5066000001                        SA6    A6-WA.W+WB.W      FIX *WB* OF THE FAKE ENTRY            MAP      1357
                          66441                   =B4    B4-WB.W+WC.W                                            MAP      1358
                               53414              SA4    X1+B4                                                   MAP      1359
          1174  43051                             MX0    -WC.CLIFL                                               MAP      1360
                     20035                        LX0    WC.CLIFP                                                MAP      1361
                          15440                   BX4    -X0*X4      ISOLATE CLIF                                MAP      1362
          1175  5055000001                        SA5    A5-WB.W+WC.W      X5 = *WC* OF THE VALUE.               MAP      1363
                          11650                   BX6    X5*X0       ERASE CLIF                                  MAP      1364
                               12664              BX6    X6+X4                                                   MAP      1365
          1176  5066000001                        SA6    A6-WB.W+WC.W      FIX *WC* OF FAKE ENTRY                MAP      1366
                          6122000003              SB2    B2+Z=SYM                                                MAP      1367
          1177  0623001147 +                      GE     B2,B3,EXIT. IF ALL DONE                                 MAP      1368
                          0400001165 +            EQ     EFE10                                                   MAP      1369
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    32
        TASK PERFORMERS                                               GBL 
  
                                        **        GBL - GET BUFFER LENGTH (IN CHARS).                            MAP      1371
                                        *                                                                        MAP      1372
                                        *         EXIT   (X2) = BUFFER LENGTH IN CHARACTERS.                     MAP      1373
                                        *                                                                        MAP      1374
                                        *         CALLS  WC.                                                     MAP      1375
                                        *                                                                        MAP      1376
                                        *         USES   X - 2,3,4  A - 2  B - 2.                                MAP      1377
                                                                                                                 MAP      1378
          1200  0400401200 +             GBL      SUBR               ENTRY/EXIT...                               MAP      1379
                                                                                                                 MAP      1380
          1201  5120001573 +                      SA2    PCB.WO                                                  MAP      1381
                          7222000002              SX2    X2+2                                                    MAP      1382
          1202  36322                             WC     X3,X2       CONVERT TO CHARACTER COUNT                  MAP      1383
          1203  5120001574 +                      SA2    PCB.SC                                                  MAP      1384
                          43400                   MX4    0                                                       MAP      1385
          1204  6222777703                        SB2    X2-60                                                   MAP      1386
                          0420001211 +            ZR     B2,GBL10    IF AT START OF WORD                         MAP      1387
          1205  7233777765                        SX3    X3-10                                                   MAP      1388
                          7140000006              SX4    6                                                       MAP      1389
          1206  27202                             IX4    X2/X4                                                   MAP      1390
          1210  7120000012                        SX2    10                                                      MAP      1391
                          37424                   IX4    X2-X4       X4 = CHARS IN LAST WORD                     MAP      1392
                                                                                                                 MAP      1393
          1211  36234                    GBL10    IX2    X3+X4       X2 = TOTAL CHARS IN BUFFER                  MAP      1394
                     0400001200 +                 EQ     EXIT.                                                   MAP      1395
  
  
  
  
                                        **        GLE - GET LOCAL EQUIVALENCE CLASSES.                           FC5A185   121
                                        *                                                                        FC5A185   122
                                        *         THIS ROUTINE WILL FIND ALL LOCAL EQUIVALENCE CLASSES           FC5A185   123
                                        *         IN T.ECT, REFORMATTING EACH ENTRY TO MT. FORMAT, AND           FC5A185   124
                                        *         PUTTING IT ON T.SCR FOR PROCESSING BY *OML*.                   FC5A185   125
                                        *                                                                        FC5A185   126
                                        *         ENTRY  T.ECT CONTAINS ALL EQUIVALENCE CLASSES, THE BASE        FC5A185   127
                                        *                MEMBER OF ALL NON-LOCAL CLASSES HAVING BIT 59 SET.      FC5A185   128
                                        *                                                                        FC5A185   129
                                        *         EXIT   T.SCR CONTAINS ALL LOCAL EQUIVALENCE CLASSES            FC5A185   130
                                        *                IN MT. FORMAT.                                          FC5A185   131
                                        *                                                                        FC5A185   132
                                        *         CALLS  SCS,ADW.                                                FC5A185   133
                                        *                                                                        FC5A185   134
                                        *         USES   X - 0,1,2,3,5,6,7  A - 1,2,3,6,7  B - 2,7.              FC5A185   135
                                                                                                                 FC5A185   136
                                                                                                                 FC5A185   137
          1212  0400401212 +             GLE      SUBR               ENTRY/EXIT...                               FC5A185   138
          1213  13666                             SHRINK T=SCR                                                   FC5A185   139
                                                                                                                 FC5A185   140
                                        **        LOOK FOR A LOCAL EQUIVALENCE CLASS.                            FC5A185   141
                                                                                                                 FC5A185   142
          1214  43701                    GLE10    MX7    1                                                       FC5A185   143
                     43101                        LDBIT  X1,TE.NBP                                               FC5A185   144
                               12717              BX7    X1+X7                                                   FC5A185   145
          1215  5170000000 X                      SA7    SCSA                                                    FC5A185   146
                          43600                   MX6    0                                                       FC5A185   147
          1216  5110000000 X                      SCAN   T.ECT,SCS                                               FC5A185   148
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    33
        TASK PERFORMERS                                               GLE 
  
          1217  0770001212 +                      MI     B7,EXIT.    IF NO MORE CLASSES                          FC5A185   149
                          43601                   MX6    1                                                       FC5A185   150
                               12662              BX6    X6+X2                                                   FC5A185   151
          1220  54620                             SA6    A2          MARK CLASS PROCESSED                        FC5A185   152
                                                                                                                 FC5A185   153
          1221  66671                    GLE20    =B6    B7+1        PRESERVE INDEX OF 1ST MEMBER                FC5A185   154
                     66260                        =B2    B6                                                      FC5A185   155
                          5110000000 X            SA1    T=ECT                                                   FC5A185   156
          1222  63310                             SB3    X1                                                      FC5A185   157
                     5110000000 X                 SA1    T.ECT                                                   FC5A185   158
                                                                                                                 FC5A185   159
                                        **        NOW WE REFORMAT EACH MEMBER, ADDING IT TO T.SCR, AND           FC5A185   160
                                        *         COUNTING THE TOTAL NUMBER OF MEMBERS.                          FC5A185   161
                                                                                                                 FC5A185   162
          1223  53112                    GLE30    SA1    X1+B2       X1 = NEXT MEMBER (TE. FORMAT)               FC5A185   163
                     20121                        HX1    TE.NB                                                   FC5A185   164
                          0321001231 +            PL     X1,GLE40    IF END OF CLASS                             FC5A185   165
          1224  20153                             LX1    1+TE.NBP-TE.SYMIP                                       FC5A185   166
                     73610                        SX6    X1                                                      FC5A185   167
                                   0              ERRNZ  TE.SYMIL-18                                             FC5A185   168
                                                  LX6    MT.WAIP                                                 FC5A185   169
                                                  LX1    TE.SYMIP                                                FC5A185   170
                          43044                   XTRCT  TE.BIAS,X1,X1     X1 = BIAS FROM BASE                   FC5A185   171
                     20122                        LX1    MT.RAP                                                  FC5A185   172
                          12661                   BX6    X6+X1                                                   FC5A185   173
          1226  5110000000 X                      ADDWD  T.SCR       ADD REFORMATTED MEMBER TO T.SCR             FC5A185   174
          1227  66221                             =B2    B2+1                                                    FC5A185   175
                     5110000000 X                 SA1    T.ECT       REFRESH FWA OF TABLE                        FC5A185   176
          1230  0723001223 +                      LT     B2,B3,GLE30 IF MORE MEMBERS                             FC5A185   177
                                                                                                                 FC5A185   178
          1231  77626                   GLE40     SX6    B2-B6       X6 = NUMBER OF CLASS MEMBERS                FC5A185   179
                     63260                        SB2    X6                                                      FC5A185   180
                          57172                   SA1    B7-B2       X1 = 1ST MEMBER OF CLASS (MT. FORMAT)       FC5A185   181
                               20652              LX6    MT.NMGP                                                 FC5A185   182
          1232  12661                             BX6    X6+X1                                                   FC5A185   183
                     54610                        SA6    A1          ADD LENGTH TO 1ST MEMBER                    FC5A185   184
                          0400001214 +            EQ     GLE10       FIND NEXT CLASS                             FC5A185   185
  
  
  
  
                                        **        GNB - GET NEXT BLOCK.                                          FC5A185   187
                                        *                                                                        FC5A185   188
                                        *         THIS ROUTINE WILL FIND THE NEXT COMMON BLOCK, AND COLLECT      FC5A185   189
                                        *         ALL MEMBERS OF THAT BLOCK IN T.SCR VIA A CALL TO *STS*.        FC5A185   190
                                        *                                                                        FC5A185   191
                                        *         ENTRY  *OBI.BI* - CONTAINS THE CURRENT BLOCK INDEX.            FC5A185   192
                                        *                                                                        FC5A185   193
                                        *         EXIT   (X3),*OBI.BI* - UPDATED BLOCK INDEX.(MI IF NONE LEFT)   FC5A185   194
                                        *                                                                        FC5A185   195
                                        *         CALLS  STS,SST,MEC.                                            FC5A185   196
                                        *                                                                        FC5A185   197
                                        *         USES   X - ALL  A - 1,2,3,4,5,6  B - 2,3,4,5,6,7.              FC5A185   198
                                                                                                                 FC5A185   199
                                                                                                                 FC5A185   200
          1233  0400401233 +             GNB      SUBR               ENTRY/EXIT...                               FC5A185   201
                                                                                                                 FC5A185   202
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    34
        TASK PERFORMERS                                               GNB 
  
          1234  5110000000 X             GNB10    SA1    T=BLKS                                                  FC5A185   203
                          5150001405 +            SA5    OBI.BI                                                  FC5A185   204
          1235  7211777776                        =X1    X1-1                                                    FC5A185   205
                          7255000002              SX5    X5+Z=BLKS                                               FC5A185   206
          1236  37315                             IX3    X1-X5                                                   FC5A185   207
                     0333001233 +                 MI     X3,EXIT.    IF NO MORE BLOCKS                           FC5A185   208
                               10655              BX6    X5                                                      FC5A185   209
          1237  54650                             SA6    A5          UPDATE BLOCK COUNT                          FC5A185   210
                     5110000000 X                 SA1    T.BLKS                                                  FC5A185   211
                               63250              SB2    X5                                                      FC5A185   212
          1240  53112                             SA1    X1+B2                                                   FC5A185   213
                     43022                        XTRCT  CA.BNAM,X1,X1     X1 = BLOCK NAME                       FC5A185   214
          1241  5120003166 +                      SA2    =7RS$A$V$E                                              FC5A185   215
                          13112                   BX1    X1-X2                                                   FC5A185   216
          1242  0301001234 +                      ZR     X1,GNB10    IF S$A$V$E BLOCK, SKIP IT                   FC5A185   217
                                                                                                                 FC5A185   218
                                        **        NOW WE COLLECT ALL BLOCK MEMBERS, SORT THEM BY RA,             FC5A185   219
                                        *         AND MARK ALL EQUIVALENCE CLASSES.                              FC5A185   220
                                                                                                                 FC5A185   221
                          5160002005 +            SA6    STS.BI      TELL STS ABOUT BLOCK NUMBER                 FC5A185   222
          1243  7150100000                        CLAS=  X5,WB,(COM)                                             FC5A185   223
                          7140000020              CLAS=  X4,WB,(CGS)                                             FC5A185   224
          1244  6140000007                        =B4    TCOMP                                                   FC5A185   225
                          0100001736 +            RJ     STS         SEPARATE BLOCK MEMBERS                      FC5A185   226
          1245  5120000000 X                      SA2    T.SCR                                                   FC5A185   227
                          5110000000 X            SA1    T=SCR                                                   FC5A185   228
          1246  63720                             SB7    X2                                                      FC5A185   229
                     0100000000 X                 CALL   SST         SORT BY RELATIVE ADDRESS                    FC5A185   230
          1247  0100001275 +                      RJ     MEC         MARK EQUIVALENCE CLASSES                    FC5A185   231
          1250  5130001405 +                      SA3    OBI.BI                                                  FC5A273     5
                          0400001233 +            EQ     EXIT.                                                   FC5A185   232
  
  
  
  
                                        **        JIF -  JUSTIFY ITEM IN A FIELD.                                MAP      1425
                                        *                                                                        MAP      1426
                                        *         ALLOWS FLEXIBILITY IN JUSTIFYING A PROCESSOR OUTPUT.           MAP      1427
                                        *         SHOULD BE USED ONLY WHEN THE OUTPUT OF A COMPLETE              MAP      1428
                                        *         ITEM CAN BE ACCOMPLISHED WITH ONE JIF CALL.                    MAP      1429
                                        *         (OTHERWISE THE PURPOSE OF THE ROUTINE IS DEFEATED)             MAP      1430
                                        *                                                                        MAP      1431
                                        *         ENTRY  (B5) = WIDTH IN CHARS OF FIELD.                         MAP      1432
                                        *                (B6) = IF PL - WIDTH IN CHARS OF ITEM.                  MAP      1433
                                        *                       IF MI - INDICATES WIDTH IS UNKNOWN.              MAP      1434
                                        *                (X0) = BIT 0 INDICATES JUSTIFICATION OF OUTPUT.         MAP      1435
                                        *                       BIT 1 INDICATES JUSTIFICATION OF INPUT.          MAP      1436
                                        *                       -  OFF IMPLIES LEFT JUSTIFICATION.               MAP      1437
                                        *                       -  ON IMPLIES RIGHT JUSTIFICATION.               MAP      1438
                                        *                (A1) = ADRS 1ST WORD OF ITEM. (ONLY IF WIDTH GT 10).    MAP      1439
                                        *                (X1) = 1ST WORD OF ITEM.                                MAP      1440
                                        *                                                                        MAP      1441
                                        *         USES   X - ALL  A - 1,2,3,6  B - ALL.                          MAP      1442
                                        *                                                                        MAP      1443
                                        *         CALLS  BC,CCBB,PCB.                                            MAP      1444
                                                                                                                 MAP      1445
          1251  0400401251 +             JIF      SUBR               ENTRY/EXIT...                               MAP      1446
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    35
        TASK PERFORMERS                                               JIF 
  
          1252  20072                             LX0    58                                                      MAP      1447
                     0660001254 +                 PL     B6,JIF10    IF ITEM WIDTH IS KNOWN                      MAP      1448
          1253  0100001040 +                      RJ     CCBB        DETERMINE WIDTH                             MAP      1449
                                                                                                                 MAP      1450
          1254  0320001257 +             JIF10    PL     X0,JIF20    IF ITEM ALREADY LEFT JUSTIFIED              MAP      1451
                          76260                   SX2    B6                                                      MAP      1452
                               22312              BC     X3,X2       CONVERT TO BIT COUNT                        MAP      1453
                          6243777703              SB4    X3-10*CHAR                                              MAP      1454
          1256  23141                             AX1    B4,X1       LEFT JUSTIFY                                MAP      1455
                                                                                                                 MAP      1456
          1257  20001                    JIF20    LX0    1                                                       MAP      1457
                     67456                        SB4    B5-B6                                                   MAP      1458
                                                  IFEQ   TEST,ON,1                                               MAP      1459
                                                  MI     B4,"BLOWUP" IF FIELD TOO SMALL                          MAP      1460
                                                                                                                 MAP      1461
                          0320001265 +            PL     X0,JIF30    IF OUTPUT TO BE LEFT JUSTIFIED              MAP      1462
          1260  66760                             SB7    B6          PRESERVE ITEM WIDTH                         MAP      1463
                     64510                        SB5    A1          PRESERVE ITEM ADDRESS                       MAP      1464
                          10511                   BX5    X1          PRESERVE 1ST WORD OF ITEM                   MAP      1465
                               66640              SB6    B4                                                      MAP      1466
          1261  5110000464 +                      SA1    MAP.XS                                                  MAP      1467
                          0100001556 +            RJ     PCB                                                     MAP      1468
          1262  66670                             SB6    B7          RESTORE ITEM WIDTH                          MAP      1469
                     56150                        SA1    B5          RESTORE ITEM ADDRESS                        MAP      1470
                          10155                   BX1    X5          RESTORE ITEM                                MAP      1471
          1263  0100001556 +                      RJ     PCB                                                     MAP      1472
          1264  0400001251 +                      EQ     EXIT.                                                   MAP      1473
                                                                                                                 MAP      1474
          1265  6176777765               JIF30    SB7    B6-10                                                   MAP      1475
                          0670001273 +            PL     B7,JIF40    IF ITEM WIDTH GE 10                         MAP      1476
          1266  6175777764                        SB7    B5-11                                                   MAP      1477
                          0770001273 +            MI     B7,JIF40    IF FIELD WIDTH LE 10                        MAP      1478
          1267  6160000012                        SB6    10                                                      MAP      1479
                          0100001556 +            RJ     PCB                                                     MAP      1480
          1270  66640                             SB6    B4                                                      MAP      1481
                     5110000464 +                 SA1    MAP.XS                                                  MAP      1482
          1271  0100001556 +                      RJ     PCB                                                     MAP      1483
          1272  0400001251 +                      EQ     EXIT.                                                   MAP      1484
                                                                                                                 MAP      1485
          1273  66650                    JIF40    SB6    B5                                                      MAP      1486
                     0100001556 +                 RJ     PCB                                                     MAP      1487
          1274  0400001251 +                      EQ     EXIT.                                                   MAP      1488
  
  
  
  
                                        **        MEC - MARK EQUIVALENCE CLASSES.                                FC5A185   234
                                        *                                                                        FC5A185   235
                                        *         THIS ROUTINE WILL MAKE ONE PASS THROUGH A TABLE                FC5A185   236
                                        *         OF COMMON BLOCK MEMBERS, AND MARK EACH EQUIVALENCE             FC5A185   237
                                        *         CLASS BY PLACING A COUNT OF THE NUMBER OF CLASS                FC5A185   238
                                        *         MEMBERS IN THE UPPER 18 BITS OF THE 1ST MEMBER                 FC5A185   239
                                        *         OF THAT CLASS ENCOUNTERED. IT WILL ALSO MARK GROUPS            FC5A185   240
                                        *         OF NON-EQUIVALENCED ITEMS IN THE SAME MANNER.                  FC5A185   241
                                        *                                                                        FC5A185   242
                                        *         NOTE - THIS ROUTINE ASSUMES THAT CLASS MEMBERS WILL            FC5A185   243
                                        *                OCCUR CONSECUTIVELY IN THE TABLE.                       FC5A185   244
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    36
        TASK PERFORMERS                                               MEC 
  
                                        *                                                                        FC5A185   245
                                        *         ENTRY  BLOCK MEMBERS ON T.SCR.  (MT. FORMAT)                   FC5A185   246
                                        *                                                                        FC5A185   247
                                        *         EXIT   EQUIVALENCE CLASSES MARKED. (MT.NMG FILLED IN)          FC5A185   248
                                        *                                                                        FC5A185   249
                                        *         CALLS  SCS.                                                    FC5A185   250
                                        *                                                                        FC5A185   251
                                        *         USES   X - ALL  A - 1,2,3,4,5,6  B - 2,3,4,5,6,7.              FC5A185   252
                                                                                                                 FC5A185   253
                                                                                                                 FC5A185   254
          1275  0400401275 +             MEC      SUBR               ENTRY/EXIT...                               FC5A185   255
          1276  5140000000 X                      SA4    T.SCR                                                   FC5A185   256
                          5120000000 X            SA2    T=SCR                                                   FC5A185   257
          1277  5150000000 X                      SA5    T.SYM                                                   FC5A185   258
                          10755                   BX7    X5                                                      FC5A185   259
                               66300              =B3    0                                                       FC5A185   260
          1300  63420                             SB4    X2                                                      FC5A185   261
                                                  IFEQ   TEST,ON,1                                               FC5A185   262
                                                  ZR     B4,"BLOWUP" IF TABLE EMPTY                              FC5A185   263
                                                                                                                 FC5A185   264
          1301  53543                    MEC10    SA5    X4+B3       X5 = ENTRY OF T.SCR                         FC5A185   265
                                                  LX5    -MT.WAIP                                                FC5A185   266
                     63651                        =B6    X5-WA.W+WB.W                                            FC5A185   267
                                   0              ERRNZ  MT.WAIL-18                                              FC5A185   268
                                                  LX5    MT.WAIP                                                 FC5A185   269
                          53176                   SA1    X7+B6       X1 = *WB* OF ITEM                           FC5A185   270
                               20162              HX1    WB.EQV                                                  FC5A185   271
          1302  0331001310 +                      MI     X1,MEC40    IF FOUND AN EQUIVALENCE CLASS               FC5A185   272
                                                                                                                 FC5A185   273
                                        **        HERE IF NON-EQUIVALENCED ITEM FOUND.  WE NEED TO               FC5A185   274
                                        *         COUNT THE NUMBER OF CONSECUTIVE ITEMS OF THIS KIND,            FC5A185   275
                                        *         AND CHANGE THE SIGN TO INDICATE *NON-EQUIVALENCED ITEMS*.      FC5A185   276
                                                                                                                 FC5A185   277
                          66200                   =B2    0                                                       FC5A185   278
                                                                                                                 FC5A185   279
          1303  66221                    MEC20    =B2    B2+1                                                    FC5A185   280
                     54152                        SA1    A5+B2       X1 = NEXT T.SCR ENTRY                       FC5A185   281
                          66632                   SB6    B3+B2                                                   FC5A185   282
          1304  0664001306 +                      GE     B6,B4,MEC30 IF TABLE EXHAUSTED                          FC5A185   283
                                                  LX1    -MT.WAIP                                                FC5A185   284
                          63611                   =B6    X1-WA.W+WB.W                                            FC5A185   285
                                   0              ERRNZ  MT.WAIL-18                                              FC5A185   286
                               53176              SA1    X7+B6       X1 = *WB* OF ITEM                           FC5A185   287
          1305  20162                             HX1    WB.EQV                                                  FC5A185   288
                     0321001303 +                 PL     X1,MEC20    IF NOT EQUIVALENCED                         FC5A185   289
                                                                                                                 FC5A185   290
          1306  77602                    MEC30    SX6    -B2                                                     FC5A185   291
                     43052                        MX0    -MT.NMGL                                                FC5A185   292
                          15660                   BX6    -X0*X6                                                  FC5A185   293
          1307  0400001325 +                      EQ     MEC80                                                   FC5A185   294
                                                                                                                 FC5A185   295
                                        **        HERE FOR EACH EQUIVALENCE CLASS. WE NEED TO LOCATE             FC5A185   296
                                        *         THE T.ECT ENTRY CORRESPONDING TO THE ITEM JUST FOUND.          FC5A185   297
                                                                                                                 FC5A185   298
          1310  43622                    MEC40    MX6    TE.SYMIL                                                FC5A185   299
                     20622                        LX6    TE.SYMIL+TE.SYMIP                                       FC5A185   300
                          5160000000 X            SA6    SCSA                                                    FC5A185   301
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    37
        TASK PERFORMERS                                               MEC 
  
          1311  77661                             =X6    B6-WB.W+WA.W                                            FC5A185   302
                     5110000000 X                 SCAN   T.ECT,SCS   FIND ITEM IN T.ECT                          FC5A185   303
                                                                                                                 FC5A185   304
                                        **        NEXT WE SEARCH BACKWARDS TO LOCATE THE BASE MEMBER             FC5A185   305
                                        *         SO IT CAN BE MARKED *PROCESSED*.                               FC5A185   306
                                        *         (A2) _ T.ECT ENTRY OF CLASS MEMBER.                            FC5A185   307
                                        *         (B7) = MI IF ITEM NOT IN TABLE. INDEX OF ITEM OTHERWISE.       FC5A185   308
                                                                                                                 FC5A185   309
          1313  66200                             =B2    0                                                       FC5A185   310
                                                                                                                 FC5A185   311
          1314  66221                    MEC50    =B2    B2+1                                                    FC5A185   312
                     55322                        SA3    A2-B2       X3 = NEXT T.ECT ENTRY                       FC5A185   313
                          67771                   =B7    B7-1                                                    FC5A185   314
                                                  IFEQ   TEST,ON,1                                               FC5A185   315
                                                  MI     B7,"BLOWUP" IF *NIT*                                    FC5A185   316
                               20321              HX3    TE.NB                                                   FC5A185   317
          1315  0333001314 +                      MI     X3,MEC50    IF NOT BASE MEMBER                          FC5A185   318
                                                                                                                 FC5A185   319
                          20353                   LX3    TE.NBP+1                                                FC5A185   320
                               43601              MX6    1                                                       FC5A185   321
          1316  12663                             BX6    X6+X3                                                   FC5A185   322
                     54630                        SA6    A3          MARK CLASS *PROCESSED*                      FC5A185   323
                                                                                                                 FC5A185   324
                                        **        NOW WE SEARCH FORWARD STARTING AT A2+1 TO FIND                 FC5A185   325
                                        *         EITHER THE END OF THE TABLE, OR THE BASE MEMBER OF             FC5A185   326
                                        *         THE NEXT CLASS, COUNTING AS WE GO.                             FC5A185   327
                                        *         (B2) = NUMBER OF MEMBERS FOUND SO FAR.                         FC5A185   328
                                                                                                                 FC5A185   329
                          5110000000 X            SA1    T.ECT                                                   FC5A185   330
          1317  5130000000 X                      SA3    T=ECT                                                   FC5A185   331
                          66600                   =B6    0                                                       FC5A185   332
                               36113              IX1    X1+X3                                                   FC5A185   333
          1320  63510                             SB5    X1          B5 = LWA + 1                                FC5A185   334
                                                                                                                 FC5A185   335
          1321  66661                    MEC60    =B6    B6+1                                                    FC5A185   336
                     54326                        SA3    A2+B6       X3 = NEXT T.ECT ENTRY                       FC5A185   337
                          75635                   SX6    A3-B5                                                   FC5A185   338
          1322  0306001324 +                      ZR     X6,MEC70    IF END OF TABLE                             FC5A185   339
                          20321                   HX3    TE.NB                                                   FC5A185   340
          1323  0333001321 +                      MI     X3,MEC60    IF NOT BASE MEMBER                          FC5A185   341
                                                                                                                 FC5A185   342
          1324  67661                    MEC70    =B6    B6-1                                                    FC5A185   343
                     66226                        SB2    B2+B6       B2 = COUNT OF MEMBERS                       FC5A185   344
                          76620                   SX6    B2                                                      FC5A185   345
                                                                                                                 FC5A185   346
                                        **        NOW WE PLACE THE COUNT INTO THE TABLE ENTRY OF THE             FC5A185   347
                                        *         FIRST ITEM OF THE GROUP, AND CHECK FOR END OF PROCESSING.      FC5A185   348
                                        *         (A5) _ TABLE ENTRY OF THE FIRST ITEM OF THE GROUP.             FC5A185   349
                                        *         (X5) = TABLE ENTRY OF THE FIRST ITEM.                          FC5A185   350
                                        *         (X6) = COUNT OF ITEMS IN THE GROUP. (WITH PROPER SIGN)         FC5A185   351
                                        *         (B2) = ABSOLUTE VALUE OF X6 ABOVE.                             FC5A185   352
                                                                                                                 FC5A185   353
          1325  20652                    MEC80    LX6    MT.NMGP                                                 FC5A185   354
                     12656                        BX6    X5+X6                                                   FC5A185   355
                          54650                   SA6    A5          MERGE THE COUNT                             FC5A185   356
                               66332              SB3    B3+B2       B3 = NEW T.SCR OFFSET                       FC5A185   357
          1326  0734001301 +                      LT     B3,B4,MEC10 IF MORE ITEMS                               FC5A185   358
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    38
        TASK PERFORMERS                                               MEC 
  
                                                                                                                 FC5A185   359
                                                  IFEQ   TEST,ON,1                                               FC5A185   360
                                                  NE     B3,B4,"BLOWUP"    IF INCONSISTENT INCREMENT             FC5A185   361
                          0400001275 +            EQ     EXIT.                                                   FC5A185   362
  
  
  
  
                                        **        OBI -  OUTPUT COMMON BLOCK INFORMATION.                        MAP      1490
                                        *                                                                        MAP      1491
                                        *         ENTRY  *OBI.BI* - CONTAINS THE CURRENT BLOCK INDEX.            MAP      1501
                                        *                                                                        MAP      1502
                                        *         EXIT   (X3),*OBI.BI* - UPDATED BLOCK INDEX. (MI IF NONE LEFT). MAP      1503
                                        *                                                                        MAP      1504
                                        *                *OCEI.SUP* = 0.                                         MAP      1505
                                        *                                                                        MAP      1506
                                        *         CALLS  PCB,WLINE,BNS.                                          FC5A185   363
                                        *                                                                        MAP      1508
                                        *         USES   ALL REGISTERS.                                          MAP      1509
                                                                                                                 MAP      1510
          1327  0400401327 +             OBI      SUBR               ENTRY/EXIT...                               MAP      1511
          1330  5110000464 +                      SA1    MAP.XS                                                  MAP      1539
                          6160000003              SB6    3                                                       MAP      1540
          1331  0100001556 +                      RJ     PCB                                                     MAP      1541
          1332  5150001405 +                      SA5    OBI.BI                                                  FC5A185   364
                          5110000000 X            SA1    T.BLKS                                                  MAP      1542
          1333  63250                             SB2    X5                                                      MAP      1543
                     53512                        SA5    X1+B2       *CA*                                        MAP      1544
                          5120000000 X            SA2    BLNKCOM                                                 MAP      1545
          1334  63620                             SB6    X2                                                      MAP      1546
                     67662                        SB6    B6-B2                                                   MAP      1547
                          5110003173 +            SA1    =2H//                                                   MAP      1548
          1335  0460001337 +                      ZR     B6,OBI15    IF BLANK COMMON                             MAP      1549
                          43022                   XTRCT  CA.BNAM,X5,X1     ISOLATE BLOCK NAME                    MAP      1550
                     20122                        LX1    -CA.BNAML   LEFT JUSTIFY BLOCK NAME                     MAP      1551
                          0100001002 +            RJ     BNS         BOUND NAME BY SLASHES                       MAP      1552
                                                                                                                 MAP      1553
          1337  6160000012               OBI15    SB6    10                                                      MAP      1554
                          0100001556 +            RJ     PCB         ADD NAME TO LINE                            MAP      1555
          1340  54550                             SA5    A5          RESTORE X5                                  MAP      1556
                     43072                        XTRCT  CA.BLVL,X5,X1     ISOLATE LEVEL NUMBER                  MAP      1557
          1341  0311001342 +                      NZ     X1,OBI17    ** KLUDGE TO AVOID LEV0                     MAP      1558
                          73111                   =X1    X1+1                                                    MAP      1559
                                                                                                                 MAP      1560
          1342  7211000033               OBI17    SX1    X1+33B      CONVERT TO DPC                              MAP      1561
                          20106                   LX1    CHAR                                                    MAP      1562
          1343  5120003174 +                      SA2    =8LLEVEL =                                              MAP      1563
                          12112                   BX1    X1+X2       APPEND TO 8LLEVEL =                         MAP      1564
          1344  5120003175 +                      SA2    =1R,                                                    MAP      1565
                          12112                   BX1    X1+X2                                                   MAP      1566
          1345  6160000012                        SB6    10                                                      MAP      1567
                          0100001556 +            RJ     PCB                                                     MAP      1568
          1346  5110003176 +                      SA1    =5H SIZE                                                MAP      1569
                          6160000005              SB6    5                                                       MAP      1570
          1347  0100001556 +                      RJ     PCB                                                     MAP      1571
          1350  54551                             =A5    A5+1        *CB*                                        MAP      1572
                     43044                        XTRCT  CB.BLEN,X5,X1     ISOLATE BLOCK LENGTH                  MAP      1573
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    39
        TASK PERFORMERS                                               OBI 
  
                               55351              =A3    A5-1                                                    MAP      1574
          1351  66510                             =B5    1                                                       MAP      1575
                     20352                        SBIT   X3,CA.CHARP                                             FC5A391     7
                          0323001354 +            PL     X3,OBI20    IF NOT CHARACTER COMMON BLOCK               FC5A391     8
          1352  10311                             BX3    X1                                                      FC5A185   365
                     20103                        LX1    3                                                       FC5A185   366
                          36113                   IX1    X1+X3                                                   FC5A185   367
                               36113              IX1    X1+X3       MULTIPLY LENGTH BY 10                       FC5A185   368
          1353  66500                             =B5    0                                                       MAP      1581
                                                                                                                 MAP      1582
          1354  0100000000 X             OBI20    CALL   CDD         CONVERT SIZE TO DPC                         MAP      1583
          1355  10144                             BX1    X4                                                      MAP      1584
                     76010                        =X0    1                                                       MAP      1585
                          0100001040 +            RJ     CCBB                                                    MAP      1586
          1356  10411                             BX4    X1                                                      MAP      1587
                     20452                        LX4    -3*CHAR                                                 MAP      1588
                          5110003177 +            SA1    =3L =                                                   MAP      1589
          1357  43022                             MX0    3*CHAR                                                  MAP      1590
                     15440                        BX4    -X0*X4      ERASE BLANKS                                MAP      1591
                          12114                   BX1    X1+X4                                                   MAP      1592
          1360  6166000003                        SB6    B6+3                                                    MAP      1593
                          0100001556 +            RJ     PCB                                                     MAP      1594
          1361  5110003200 +                      SA1    =6L CHARS   ASSUME UNITS ARE CHAR                       MAP      1595
                          0450001363 +            ZR     B5,OBI30    IF ASSUMPTION CORRECT                       MAP      1596
          1362  5110003201 +                      SA1    =6L WORDS                                               MAP      1597
                                                                                                                 MAP      1598
          1363  6160000012               OBI30    SB6    10                                                      MAP      1599
                          5120003202 +            SA2    =4R "SCM"   ASSUME SCM                                  MAP      1600
                                                  HX5    CB.LCM                                                  MAP      1601
          1364  0325001365 +                      PL     X5,OBI35    IF ASSUMPTION CORRECT                       MAP      1602
                          5120003203 +            SA2    =4R "LCM"                                               MAP      1603
                                                                                                                 MAP      1604
          1365  12112                    OBI35    BX1    X1+X2                                                   MAP      1605
                     0100001556 +                 RJ     PCB                                                     MAP      1606
          1366  20503                             LX5    CB.LCMP-CB.SAVEP+2                                      MAP      1607
                     0325001371 +                 PL     X5,OBI40    IF NOT SAVED                                MAP      1608
          1367  5110003204 +                      SA1    =4HSAVE                                                 MAP      1609
                          6160000004              SB6    4                                                       MAP      1610
          1370  0100001556 +                      RJ     PCB                                                     MAP      1611
                                                                                                                 MAP      1612
          1371  5150001573 +             OBI40    SA5    PCB.WO                                                  MAP      1613
                          7255000002              SX5    X5+2                                                    MAP      1614
          1372  7215777776                        WLINE  MAPBUFF-1,X5,1,0  OUTPUT BLOCK INFO                     MAP      1615
          1402  6160000006                        SB6    6                                                       MAP      1616
                          5110000464 +            SA1    MAP.XS                                                  MAP      1617
          1403  0100001556 +                      RJ     PCB         INDENT 6                                    MAP      1618
          1404  0400001327 +                      EQ     EXIT.                                                   MAP      1620
                                                                                                                 MAP      1621
          1405                     1     OBI.BI   BSS    1           BLOCK INDEX                                 MAP      1622
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    40
        TASK PERFORMERS                                               OCEI
  
                                        **        OCEI - OUTPUT COMMON+EQUIVALENCE ITEMS.                        FC5A185   370
                                        *                                                                        FC5A185   371
                                        *         THIS ROUTINE WILL OUTPUT EACH ITEM REQUESTED IN 4 PARTS :      FC5A185   372
                                        *                                                                        FC5A185   373
                                        *         1)  THE NAME OF THE ITEM.                                      FC5A185   374
                                        *         2)  THE STORAGE UNIT OCCUPIED BY THE 1ST ELEMENT OF THE ITEM.  FC5A185   375
                                        *         3)  THE STORAGE UNIT OCCUPIED BY THE LAST ELEMENT OF THE ITEM. FC5A185   376
                                        *         4)  THE TRAILING CHARACTERS *> * .                             FC5A185   377
                                        *                                                                        FC5A185   378
                                        *         ENTRY  (OCEI.ADR) = ADDRESS OF THE 1ST ITEM.                   FC5A185   379
                                        *                (OCEI.NI)  = THE NUMBER OF ITEMS TO OUTPUT.             FC5A185   380
                                        *                                                                        FC5A185   381
                                        *         EXIT   (OCEI.ADR) = ADDRESS OF LAST ITEM OUTPUT + 1.           FC5A185   382
                                        *                ALL REQUESTED ITEMS OUTPUT.                             FC5A185   383
                                        *                                                                        FC5A185   384
                                        *         CALLS  NAME,FIRST,LAST,CBS,PCB.                                FC5A185   385
                                        *                                                                        FC5A185   386
                                        *         USES   ALL REGISTERS.                                          FC5A185   387
                                                                                                                 FC5A185   388
                                                                                                                 FC5A185   389
          1406  0400401406 +             OCEI     SUBR               ENTRY/EXIT...                               FC5A185   390
                                                                                                                 FC5A185   391
          1407  0100002423 +             OCEI10   RJ     NAME        DETERMINE NAME                              FC5A185   392
          1410  0100002237 +                      RJ     FIRST       DETERMINE FIRST INDEX                       FC5A185   393
          1411  0100002326 +                      RJ     LAST        DETERMINE LAST INDEX                        FC5A185   394
                                                                                                                 FC5A185   395
                                        **        ALL INFO FOR THE CURRENT ITEM HAS BEEN ASSEMBLED.              FC5A185   396
                                        *         (B6) = LENGTH OF INFO IN CHARACTERS.                           FC5A185   397
                                                                                                                 FC5A185   398
          1412  6166000001                        SB6    B6+1        ACCOUNT FOR *>*                             FC50297     8
                          0100001014 +            RJ     CBS         CREATE BUFFER SPACE                         FC5A185   400
          1413  5110002432 +                      SA1    NAMEA       X1 = DPC OF NAME                            FC5A185   401
                          54211                   =A2    A1+1        X2 = LENGTH OF NAME                         FC5A185   402
                               63620              SB6    X2                                                      FC5A185   403
          1414  0100001556 +                      RJ     PCB         OUTPUT NAME                                 FC5A185   404
          1415  5110002251 +                      SA1    FIRSTA      X1 = FIRST DPC                              FC5A185   405
                          54211                   =A2    A1+1        X2 = LENGTH OF FIRST                        FC5A185   406
                               63620              SB6    X2                                                      FC5A185   407
          1416  0100001556 +                      RJ     PCB         OUTPUT FIRST                                FC5A185   408
          1417  5110002357 +                      SA1    LASTA       X1 = DPC OF LAST                            FC5A185   409
                          54211                   =A2    A1+1        X2 = LENGTH OF LAST                         FC5A185   410
                               63620              SB6    X2                                                      FC5A185   411
          1420  0100001556 +                      RJ     PCB         OUTPUT LAST                                 FC5A185   412
          1421  5110003205 +                      SA1    =1L>                                                    FC50297     9
                          6160000001              SB6    1                                                       FC50297    10
          1422  0100001556 +                      RJ     PCB         OUTPUT TRAILING CHARACTERS                  FC5A185   415
          1423  5110001433 +                      SA1    OCEI.NI                                                 FC5A185   416
                          5120001432 +            SA2    OCEI.ADR                                                FC5A185   417
          1424  7261777776                        =X6    X1-1                                                    FC5A185   418
                          73721                   =X7    X2+1                                                    FC5A185   419
                               54610              SA6    A1          UPDATE NUMBER OF ITEMS                      FC5A185   420
          1425  54720                             SA7    A2          UPDATE ADDRESS                              FC5A185   421
                     5110001434 +                 SA1    OCEI.TAB                                                FC50297    11
          1426  7100000027                        SX0    23                                                      FC50297    12
                          36110                   IX1    X1+X0       INCREMENT FOR TAB                           FC50297    13
                               10711              BX7    X1                                                      FC50297    14
          1427  54710                             SA7    A1          UPDATE                                      FC50297    15
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    41
        TASK PERFORMERS                                               OCEI
  
                     0306001406 +                 ZR     X6,EXIT.    IF ALL ITEMS PROCESSED                      FC50297    16
          1430  0100002006 +                      RJ     TAB         MOVE TO NEXT POSITION                       FC50297    17
          1431  0400001407 +                      EQ     OCEI10      CONTINUE                                    FC50297    18
                                                                                                                 FC5A185   424
          1432                     1     OCEI.ADR BSS    1           ADDRESS OF COMMON/EQUIVALENCE ITEM          FC50297    19
          1433                     1     OCEI.NI  BSS    1           NUMBER OF ITEMS                             FC50297    20
          1434                     1     OCEI.TAB BSS    1           TAB POSITION                                FC50297    21
  
  
  
  
                                        **        OML - OUTPUT MEMORY LAYOUT.                                    FC5A185   428
                                        *                                                                        FC5A185   429
                                        *         THIS ROUTINE DIRECTS THE OUTPUT OF COMMON + EQUIVALENCE        FC5A185   430
                                        *         MAP ITEMS, DELIMITING ANY AND ALL EQUIVALENCE CLASSES          FC5A185   431
                                        *         THAT MAY EXIST.                                                FC5A185   432
                                        *                                                                        FC5A185   433
                                        *         ENTRY  ALL ITEMS ON T.SCR (MT. FORMAT)                         FC5A185   434
                                        *                                                                        FC5A185   435
                                        *         EXIT   ALL ITEMS OUTPUT.                                       FC5A185   436
                                        *                                                                        FC5A185   437
                                        *         CALLS  OCEI,CBS,PCB.                                           FC5A185   438
                                        *                                                                        FC5A185   439
                                        *         USES   ALL REGISTERS.                                          FC5A185   440
                                                                                                                 FC5A185   441
                                                                                                                 FC5A185   442
          1435  0400401435 +             OML      SUBR               ENTRY/EXIT...                               FC5A185   443
          1436  5110000000 X                      SA1    T.SCR                                                   FC5A185   444
                          10611                   BX6    X1                                                      FC5A185   445
          1437  5160001432 +                      SA6    OCEI.ADR    SET FWA OF ITEMS                            FC5A185   446
                          5120000000 X            SA2    T=SCR                                                   FC5A185   447
          1440  36662                             IX6    X6+X2                                                   FC5A185   448
                     7266777776                   =X6    X6-1                                                    FC5A185   449
          1441  5160001464 +                      SA6    OMLLWA      SET LWA OF ITEMS                            FC5A185   450
                                                                                                                 FC5A185   451
          1442  53210                    OML10    SA2    X1          X2 = TABLE ENTRY OF AN ITEM                 FC5A185   452
                     20222                        LX2    -MT.NMGP                                                FC5A185   453
                          73620                   SX6    X2          X6 = NO. OF ITEMS IN NEXT GROUP             FC5A185   454
                                   0              ERRNZ  MT.NMGL-18                                              FC5A185   455
                                                  IFEQ   TEST,ON,1                                               FC5A185   456
                                                  ZR     X6,"BLOWUP" IF BAD COUNT                                FC5A185   457
          1443  0336001455 +                      MI     X6,OML20    IF GROUP OF NON-EQUIV ITEMS                 FC5A185   458
                                                                                                                 FC5A185   459
                                        **        HERE FOR ALL EQUIVALENCE CLASSES.                              FC5A185   460
                                                                                                                 FC5A185   461
                          5160001433 +            SA6    OCEI.NI     SET NUMBER OF ITEMS                         FC5A185   462
          1444  5110001434 +                      SA1    OCEI.TAB                                                FC50297    22
                          0100002006 +            RJ     TAB         BLANK FILL TO PROPER POSITION               FC50297    23
          1445  66610                             =B6    1                                                       FC5A185   463
                     0100001014 +                 RJ     CBS         CREATE BUFFER SPACE                         FC5A185   464
          1446  5110003206 +                      SA1    =1L(                                                    FC5A185   465
                          66610                   =B6    1                                                       FC5A185   466
          1447  0100001556 +                      RJ     PCB         OUTPUT LEFT PAREN                           FC5A185   467
          1450  0100001406 +                      RJ     OCEI        OUTPUT EQUIVALENCE CLASS                    FC5A185   468
          1451  66610                             =B6    1                                                       FC5A185   469
                     0100001014 +                 RJ     CBS         CREATE BUFFER SPACE                         FC5A185   470
          1452  5110003207 +                      SA1    =1L)                                                    FC5A185   471
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    42
        TASK PERFORMERS                                               OML 
  
                          66610                   =B6    1                                                       FC5A185   472
          1453  0100001556 +                      RJ     PCB         OUTPUT RIGHT PAREN                          FC5A185   473
          1454  0400001460 +                      EQ     OML30                                                   FC5A185   474
                                                                                                                 FC5A185   475
                                        **        HERE FOR ALL NON-EQUIVALENCED ITEMS.                           FC5A185   476
                                                                                                                 FC5A185   477
          1455  14666                    OML20    BX6    -X6                                                     FC5A185   478
                     5160001433 +                 SA6    OCEI.NI     SET NUMBER OF ITEMS                         FC5A185   479
          1456  5110001434 +                      SA1    OCEI.TAB                                                FC50297    24
                          0100002006 +            RJ     TAB         BLANK FILL TO PROPER POSITION               FC50297    25
          1457  0100001406 +                      RJ     OCEI        OUTPUT ITEMS                                FC5A185   480
                                                                                                                 FC5A185   481
                                        **        TEST FOR EXHAUSTED TABLE.                                      FC5A185   482
                                                                                                                 FC5A185   483
          1460  5110001432 +             OML30    SA1    OCEI.ADR                                                FC5A185   484
                          5120001464 +            SA2    OMLLWA                                                  FC5A185   485
          1461  37221                             IX2    X2-X1                                                   FC5A185   486
                     0322001442 +                 PL     X2,OML10    IF MORE ITEMS                               FC5A185   487
          1462  6160000764                        SB6    500                                                     FC5A185   488
                          0100001014 +            RJ     CBS         FORCE BUFFER FLUSH                          FC5A185   489
          1463  0400001435 +                      EQ     EXIT.                                                   FC5A185   490
                                                                                                                 FC5A185   491
          1464                     1    OMLLWA    BSS    1                                                       FC5A185   492
  
  
  
  
                                        **        OTH -  OUTPUT TITLE AND HEADING.                               MAP      1862
                                        *                                                                        MAP      1863
                                        *         WILL OUTPUT TITLE AND HEADING WITHOUT PAGE EJECT,              MAP      1864
                                        *         (UNLESS THERE ARE LESS THAN 10 LINES LEFT ON PAGE)             MAP      1865
                                        *         AND SET O.STITL CELL TO ALLOW WOF TO TAKE CARE OF              MAP      1866
                                        *         FUTURE OUTPUT OF HEADING FOR THE CURRENT MAP.                  MAP      1867
                                        *                                                                        MAP      1868
                                        *         ENTRY  *PCB.WO* = NO. WORDS IN HEADING - 2.                    MAP      1869
                                        *                (X5) = MST OFFSET.                                      MAP      1870
                                        *                                                                        MAP      1871
                                        *         EXIT   TITLE AND HEADING OUTPUT.                               MAP      1872
                                        *                                                                        MAP      1873
                                        *         USES   ALL REGISTERS.                                          MAP      1874
                                        *                                                                        MAP      1875
                                        *         CALLS  WLINE,PCB,MOVE,SETMEM,TAB.                              MAP      1876
                                                                                                                 MAP      1877
          1465  0400401465 +             OTH      SUBR               ENTRY/EXIT...                               MAP      1878
          1466  5110000000 X                      SA1    LCNT                                                    MAP      1879
                          5120000000 X            SA2    CO.PS                                                   FC5A107    20
          1467  37621                             IX6    X2-X1                                                   MAP      1881
                     7266777765                   SX6    X6-10                                                   MAP      1882
                               20502              LX5    2           MULTIPLY MST OFFSET BY 4                    MAP      1883
          1470  0326001474 +                      PL     X6,OTH10    IF 10 OR MORE LINES LEFT                    MAP      1884
                          10622                   BX6    X2                                                      MAP      1885
          1471  5160000000 X                      SA6    LCNT        FORCE EJECT WITH NEXT LINE                  MAP      1886
                          76110                   =X1    1                                                       MAP      1887
          1472  7160000000 X                      SX6    HDRBL                                                   MAP      1888
                          20136                   LX1    30                                                      MAP      1889
                               12661              BX6    X6+X1                                                   MAP      1890
          1473  5160000000 X                      SA6    O.STITL     SUPRESS OLD HEADING                         MAP      1891
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    43
        TASK PERFORMERS                                               OTH 
  
                                                                                                                 MAP      1892
          1474  5110000000 X             OTH10    SA1    WO.LOR                                                  MAP      1893
                          0321001502 +            PL     X1,OTH20    IF REFERENCES NOT SELECTED                  MAP      1894
          1475  5110000000 X                      SA1    CO.PW                                                   MAP      1895
                          7211777601              SX1    X1-MAPLC                                                MAP      1896
          1476  0331001502 +                      MI     X1,OTH20    IF IN PW MODE                               MAP      1897
                          7110000133              SX1    MAPDTC                                                  MAP      1898
          1477  0100002006 +                      RJ     TAB         BLANK FILL TO DICTIONARY TAB COLUMN         MAP      1899
          1500  10755                             BX7    X5                                                      MAP      1900
                     20701                        LX7    1           MST OFFSET * 8                              MAP      1901
                          5217000410 +            SA1    X7+MAPUD+4                                              MAP      1902
          1501  6160000050                        SB6    MAPUDL*10                                               MAP      1903
                          0100001556 +            RJ     PCB         OUTPUT PIECE OF USAGE DICTIONARY            MAP      1904
                                                                                                                 MAP      1905
          1502  5110001573 +             OTH20    SA1    PCB.WO                                                  MAP      1906
                          7201000002              =X0    X1+2        NO. WORDS IN HEADING                        MAP      1907
          1503  10100                             MOVE   X0,MAPBUFF-1,MOCBUF   MOVE HEADING TO DIFFERENT BUFFER  MAP      1908
          1505  76600                             SETMEM MAPBUFF-1,X0,0    ZERO THE BUFFER                       MAP      1909
          1507  7160000074                        SX6    60                                                      MAP      1910
                          5160001574 +            SA6    PCB.SC      RESET SHIFT COUNT                           MAP      1911
          1510  7160777775                        =X6    -2                                                      MAP      1912
                          5160001573 +            SA6    PCB.WO      RESET WORD OFFSET                           MAP      1913
          1511  5215000340 +                      SA1    X5+MAPST    FETCH LENGTH OF TITLE                       MAP      1914
                          63400                   SB4    X0          SAVE HEADING LENGTH                         MAP      1915
                               63610              SB6    X1                                                      MAP      1916
          1512  54111                             =A1    A1+1        GET READY FOR PCB                           MAP      1917
                     63400                        SB4    X0          SAVE HEADING LENGTH                         MAP      1918
                          0100001556 +            RJ     PCB                                                     MAP      1919
          1513  5110001550 +                      SA1    OTH.LO       FETCH LIST OPTIONS                         MAP      1920
                          6160000012              SB6    10                                                      MAP      1921
          1514  0100001556 +                      RJ     PCB         APPEND THEM TO TITLE                        MAP      1922
          1515  5110000000 X                      SA1    WO.LOR                                                  MAP      1923
                          0321001523 +            PL     X1,OTH30    IF REFERENCES NOT SELECTED                  MAP      1924
          1516  5110000000 X                      SA1    CO.PW                                                   MAP      1925
                          7211777601              SX1    X1-MAPLC                                                MAP      1926
          1517  0331001523 +                      MI     X1,OTH30    IF IN PW MODE                               MAP      1927
                          7110000133              SX1    MAPDTC                                                  MAP      1928
          1520  0100002006 +                      RJ     TAB         BLANK FILL TO DICTIONARY TAB COLUMN         MAP      1929
          1521  10755                             BX7    X5                                                      MAP      1930
                     20701                        LX7    1           MST OFFSET * 8                              MAP      1931
                          5217000404 +            SA1    X7+MAPUD                                                MAP      1932
          1522  6160000050                        SB6    MAPUDL*10                                               MAP      1933
                          0100001556 +            RJ     PCB         OUTPUT PART OF USAGE DICTIONARY             MAP      1934
                                                                                                                 MAP      1935
          1523  5110001573 +             OTH30    SA1    PCB.WO                                                  MAP      1936
                          7211000002              =X1    X1+2        NO. OF WORDS TO OUTPUT                      MAP      1937
          1524  76040                             SX0    B4                                                      MAP      1938
                     10511                        WLINE  MAPBUFF-1,X1,2,0  OUTPUT THE TITLE                      MAP      1939
          1534  10500                             WLINE  MOCBUF,X0,0,1     OUTPUT THE HEADING                    MAP      1940
          1542  7160000637 +                      SX6    MOCBUF                                                  MAP      1941
                          5110000000 X            SA1    WO.LOR                                                  MAP      1942
          1543  0321001546 +                      PL     X1,OTH40    IF REFERENCES NOT SELECTED                  MAP      1943
                          5110000000 X            SA1    CO.PW                                                   MAP      1944
          1544  7211777601                        SX1    X1-MAPLC                                                MAP      1945
                          0331001546 +            MI     X1,OTH40    IF IN PW MODE                               MAP      1946
          1545  7200777773                        SX0    X0-MAPUDL   TRICK WOF INTO SUPPRESSING DICT.            MAP      1947
                                                                                                                 MAP      1948
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    44
        TASK PERFORMERS                                               OTH 
  
          1546  20036                    OTH40    LX0    30                                                      MAP      1949
                     12660                        BX6    X6+X0       30/LEN,30/FWA                               MAP      1950
                          5160000000 X            SA6    O.STITL     SET CELL FOR USE BY WOF                     MAP      1951
          1547  0400001465 +                      EQ     EXIT.                                                   MAP      1952
                                                                                                                 MAP      1953
          1550                     1     OTH.LO    BSS    1           LIST OPTIONS PUT HERE BY MAP               MAP      1954
  
  
  
  
                                        **        PCB -  PLACE CHARACTERS IN BUFFER.                             MAP      1956
                                        *                                                                        MAP      1957
                                        *         BEGINING AT LEFT, PCB REMOVES CHARACTERS FROM A STRING         MAP      1958
                                        *         AND STARTING AT WORD AND CHARACTER POSITION SPECIFIED          MAP      1959
                                        *         BY *PCB.WO* AND *PCB.SC* RESPECTIVELY, PLACES THEM IN          MAP      1960
                                        *         THE BUFFER.                                                    MAP      1961
                                        *                                                                        MAP      1962
                                        *         ENTRY  (A1) = ADRS 1ST WORD OF STRING.                         MAP      1963
                                        *                (X1) = 1ST WORD OF STRING.                              MAP      1964
                                        *                (B6) = LENGTH OF STRING.                                MAP      1965
                                        *                                                                        MAP      1966
                                        *         EXIT   NONE.                                                   MAP      1967
                                        *                                                                        MAP      1968
                                        *         USES    X - ALL EXCEPT X5  A - 1,2,3,6  B - 2,3,6.             MAP      1969
                                        *                                                                        MAP      1970
                                        *         CALLS  NONE.                                                   MAP      1971
                                                                                                                 MAP      1972
          1551  10622                    PCB10    BX6    X2                                                      MAP      1973
                     7142777703                   SX4    B2-60                                                   MAP      1974
          1552  0314001553 +                      NZ     X4,PCB15    IF NOT AT START OF NEW WORD                 MAP      1975
                          7266777776              =X6    X6-1                                                    MAP      1976
                                                                                                                 MAP      1977
          1553  5160001573 +             PCB15    SA6    PCB.WO       STORE WORD OFFSET                          MAP      1978
                          76620                   SX6    B2                                                      MAP      1979
          1554  5160001574 +                      SA6    PCB.SC                                                  MAP      1980
                          10633                   BX6    X3                                                      MAP      1981
          1555  5262000000 X                      SA6    X2+MAPBUFF  REPLACE MAPBUFF WORD                        MAP      1982
                                                                                                                 MAP      1983
          1556  0400401556 +             PCB      SUBR               ENTRY/EXIT...                               MAP      1984
          1557  66300                             SB3    B0                                                      MAP      1985
                     43006                        MX0    CHAR                                                    MAP      1986
                          5120001573 +            SA2    PCB.WO       CURRENT MAPBUFF OFFSET                     MAP      1987
          1560  5130001574 +                      SA3    PCB.SC       CURRENT SHIFT COUNT                        MAP      1988
                          6223777703              SB2    X3-60                                                   MAP      1989
          1561  0520001562 +                      NZ     B2,PCB17    IF NOT AT START OF NEW WORD                 MAP      1990
                          73221                   =X2    X2+1                                                    MAP      1991
                                                                                                                 MAP      1992
          1562  63230                    PCB17    SB2    X3                                                      MAP      1993
                     5232000000 X                 SA3    X2+MAPBUFF  CURRENT MAPBUFF WORD                        MAP      1994
                                                                                                                 MAP      1995
          1563  67661                    PCB20    =B6    B6-1                                                    MAP      1996
                     0760001551 +                 MI     B6,PCB10    IF STRING EXHAUSTED                         MAP      1997
                               11401              BX4    X0*X1       GRAB LEFTMOST CHARACTER                     MAP      1998
          1564  22424                             LX4    B2,X4       SHIFT INTO POSITION                         MAP      1999
                     12343                        BX3    X4+X3       ADD IT TO MAPBUFF WORD                      MAP      2000
                          6122777771              SB2    B2-6                                                    MAP      2001
          1565  0702001570 +                      GT     B2,B0,PCB30 IF MAPBUFF WORD NOT FILLED                  MAP      2002
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    45
        TASK PERFORMERS                                               PCB 
  
                          10633                   BX6    X3          OTHERWISE...                                MAP      2003
                                                  IFEQ   TEST,ON,2                                               MAP      2004
                                                  SX7    X2-14                                                   MAP      2005
                                                  PL     X7,"BLOWUP" IF BAD OFFSET                               MAP      2006
          1566  5262000000 X                      SA6    X2+MAPBUFF  STORE FILLED WORD                           MAP      2007
                          73221                   =X2    X2+1                                                    MAP      2008
          1567  5232000000 X                      SA3    X2+MAPBUFF  GET NEXT ONE                                MAP      2009
                          6120000074              SB2    60          RESET SHIFT COUNT                           MAP      2010
                                                                                                                 MAP      2011
          1570  20106                    PCB30    LX1    CHAR                                                    MAP      2012
                     66331                        =B3    B3+1                                                    MAP      2013
                          7143777765              SX4    B3-10                                                   MAP      2014
          1571  0334001563 +                      MI     X4,PCB20    IF WORD OF STRING NOT EMPTY                 MAP      2015
                          54111                   =A1    A1+1        GET NEXT ONE OTHERWISE                      MAP      2016
                               66300              SB3    B0          RESET CHARACTER COUNT                       MAP      2017
          1572  0400001563 +                      EQ     PCB20       CONTINUE                                    MAP      2018
                                                                                                                 MAP      2019
                                                                                                                 MAP      2020
          1573  77777777777777777775     PCB.WO    CON    -2          MAPBUFF WORD OFFSET                        MAP      2021
          1574  00000000000000000074     PCB.SC    CON    60          MAPBUFF SHIFT COUNT (CHAR POSITION)        MAP      2022
  
  
  
  
                                        **        PRT -  PREPARE REFERENCE TABLE.                                MAP      2024
                                        *                                                                        MAP      2025
                                        *                                                                        MAP      2026
                                        *         EXIT   REFERENCE LINKS SET UP (IF SELECTED).                   MAP      2027
                                        *                TABLES SQUEEZED AND SORTED.                             MAP      2028
                                        *                                                                        MAP      2029
                                        *         USES   ALL BUT A0.                                             MAP      2030
                                        *         CALLS  PST.                                                    MAP      2031
                                                                                                                 MAP      2032
                                                                                                                 MAP      2033
          1575  0400401575 +             PRT      SUBR               ENTRY/EXIT...                               MAP      2034
          1576  5110000000 X                      SA1    WO.LOR                                                  MAP      2035
                          0321001615 +            PL     X1,PRT2     IF REF-MAP NOT SELECTED                     MAP      2036
          1577  5130000000 X                      SA3    REFIO                                                   MAP      2037
                          0303001615 +            ZR     X3,PRT2     IF TABLE IN CORE                            MAP      2038
                                                                                                                 MAP      2039
                                        **        READ REFERENCE TABLE BACK INTO CORE.                           MAP      2040
                                                                                                                 MAP      2041
          1600  76040                             SX0    B4          SAVE (B4)                                   MAP      2042
                     7120000000 X                 WRITER F.REF                                                   MAP      2043
          1602  7120000000 X                      REWIND F.REF                                                   MAP      2044
          1604  63400                             SB4    X0          RESTORE (B4)                                MAP      2045
                     5120000000 X                 SA2    LOSTREF                                                 MAP      2046
          1605  5110000000 X                      ALLOC  T.REF,X2                                                MAP      2047
                                                                                                                 MAP      2048
                                                  IFNE   CP#RM,7,1                                               MAP      2049
          1607  7120000000 X                      READ   F.REF                                                   FC50562     5
                                                                                                                 MAP      2051
          1611  5110000000 X                      SA1    T.REF                                                   MAP      2052
                          5130000000 X            SA3    T=REF                                                   MAP      2053
          1612  76040                             SX0    B4          SAVE (B4)                                   MAP      2054
                     63610                        READW  F.REF,X1,X3                                             FC50562     6
          1614  63400                             SB4    X0          RESTORE (B4)                                MAP      2056
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    46
        TASK PERFORMERS                                               PRT 
  
                                                                                                                 MAP      2057
                                        **        PRE-LOAD REGISTERS, AND CLEAR LINKS FROM SYMBOL AND LABEL      MAP      2058
                                        *         TABLES.                                                        MAP      2059
                                                                                                                 MAP      2060
          1615  5110000000 X             PRT2     SA1    T.SYM                                                   MAP      2061
                          5140000000 X            SA4    T=SYM                                                   MAP      2062
          1616  53310                             SA3    X1                                                      MAP      2063
                     63510                        SB5    X1          (B5) = FWA SYMBOL TABLE                     MAP      2064
                          43052                   MX0    WA.SYML                                                 MAP      2065
          1617  6120000003                        =B2    Z=SYM                                                   MAP      2066
                          6274777774              SB7    X4-Z=SYM                                                MAP      2067
          1620  11603                             BX6    X0*X3                                                   MAP      2068
                                                                                                                 MAP      2069
          1621  54630                    PRT23    SA6    A3          CLEAR LINKS FROM SYM TAB                    MAP      2070
                     54332                        SA3    A3+B2                                                   MAP      2071
                          67772                   SB7    B7-B2                                                   MAP      2072
                               11603              BX6    X0*X3                                                   MAP      2073
          1622  0670001621 +                      PL     B7,PRT23                                                MAP      2074
                                                                                                                 MAP      2075
                                        **        LINK SYMBOLS AND LABELS INTO  THE REFERENCES.                  MAP      2076
                                                                                                                 MAP      2077
                          5110000000 X            SA1    T=REF       (X1) = LEN REF TABLE                        MAP      2078
          1623  5140000000 X                      SA4    T.REF                                                   MAP      2079
                          0301001633 +            ZR     X1,PRT5     IF REF TABLE EMPTY                          MAP      2080
          1624  73611                             =X6    X1+1                                                    MAP      2081
                     7274777776                   =X7    X4-1                                                    MAP      2082
                                   0              ERRMI  FUDGE-1     CODE REQUIRES AT LEAST 1 SLOP WORD          MAP      2083
                               63470              SB4    X7                                                      MAP      2084
          1625  43022                             MX0    XR.TAGL                                                 MAP      2085
                     54610                        SA6    A1                                                      MAP      2086
                          54740                   SA7    A4          FAKE UP INITIAL ENTRY, TO PREVENT ZERO LINK MAP      2087
                               53514              SA5    B4+X1                                                   MAP      2088
                                                                                                                 MAP      2089
                                         SNAP=R   IFNE   TEST        DMP REFERENCE TABLE                         MAP      2090
                                                  SA3    CO.SNAP                                                 MAP      2091
                                                  LX3    1RR                                                     MAP      2092
                                                  PL     X3,PRT3S    IF REFERENCE SNAP NOT SELECTED              MAP      2093
                                                  DUMPT  REF                                                     MAP      2094
                                         PRT3S    BSS    0                                                       MAP      2095
                                         SNAP=R   ENDIF                                                          MAP      2096
                                                                                                                 MAP      2097
          1626  15650                    PRT4     BX6    -X0*X5                                                  MAP      2098
                     20522                        LX5    -XR.TAGP                                                MAP      2099
                          73250                   SX2    X5                                                      MAP      2100
                               22712              LX7    X2,B1                                                   MAP      2101
          1627  36227                             IX2    X2+X7       (X2) = SYMTAB INDEX                         MAP      2102
                                   0              ERRNZ  3-Z=SYM     CODE ASSUMES Z=SYM = 3                      MAP      2103
                     53225                        SA2    X2+B5       FETCH SYMBOL                                MAP      2104
                          73420                   SX4    X2          ISOLATE SYM LINK                            MAP      2105
                               13324              BX3    X2-X4                                                   MAP      2106
          1630  20452                             LX4    XR.TAGP                                                 MAP      2107
                     55551                        =A5    A5-1                                                    MAP      2108
                          36664                   IX6    X6+X4       LINK THIS REF TO PREVIOUS CHAIN             MAP      2109
                               12731              BX7    X3+X1       SYM/LAB LINKS TO THIS REF                   MAP      2110
          1631  53614                             SA6    B4+X1                                                   MAP      2111
                     75154                        SX1    A5-B4       (X1) = (X1) - 1                             MAP      2112
                          54720                   SA7    A2                                                      MAP      2113
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    47
        TASK PERFORMERS                                               PRT 
  
          1632  0311001626 +                      NZ     X1,PRT4     IF MORE REFERENCES                          MAP      2114
                                                                                                                 MAP      2115
          1633                           PRT5     BSS    0                                                       MAP      2116
                                         SNAP=R   IFNE   TEST        DUMP REFERENCE TABLE                        MAP      2117
                                                  SA3    CO.SNAP                                                 MAP      2118
                                                  LX3    1RR                                                     MAP      2119
                                                  PL     X3,PRT5S    IF REFERENCE SNAP NOT SELECTED              MAP      2120
                                                  DUMPT  SYM                                                     MAP      2121
                                         PRT5S    BSS    0                                                       MAP      2122
                                         SNAP=R   ENDIF                                                          MAP      2123
          1633  0400001575 +                      EQ     EXIT.                                                   MAP      2124
  
  
  
  
                                        **        RNI -  RETURN NEXT INDEX                                       MAP      2126
                                        *                                                                        MAP      2127
                                        *         RETURNS INDEX OF NEXT TABLE MEMBER TO BE PROCESSED             MAP      2128
                                        *         BY THE CALLING ROUTINE                                         MAP      2129
                                        *                                                                        MAP      2130
                                        *         ENTRY  NONE                                                    MAP      2131
                                        *                                                                        MAP      2132
                                        *         EXIT   *RNI.PI* = INDEX OF NEXT MEMBER                         MAP      2133
                                        *                                                                        MAP      2134
                                        *         CALLS  SRNI                                                    MAP      2135
                                        *         USES   X - 1,2,3,4,5,6,7  A - ALL  B - 2,3,4,5                 MAP      2136
                                                                                                                 MAP      2137
          1634  0400401634 +             RNI      SUBR               ENTRY/EXIT...                               MAP      2138
          1635  5130001670 +             RNI5     SA3    RNI.PI      PREVIOUS INDEX RETURNED                     MAP      2139
                          5140001733 +            SA4    SRNI.BDF                                                MAP      2140
          1636  0324001641 +                      PL     X4,RNI10    IF NOT FIRST TIME FOR THIS TABLE DIVISION   MAP      2141
                          10733                   BX7    X3                                                      MAP      2142
                               54740              SA7    A4                                                      MAP      2143
          1637  76610                             =X6    1                                                       MAP      2144
                     5160001665 +                 SA6    RNI.CC                                                  MAP      2145
                               77601              =X6    -1                                                      MAP      2146
          1640  5160001667 +                      SA6    RNI.SC                                                  MAP      2147
                          0400001634 +            EQ     EXIT.                                                   MAP      2148
                                                                                                                 MAP      2149
          1641  5110001665 +             RNI10    SA1    RNI.CC      COUNTS NO. OF TIMES CALLED FOR THIS TABLE   MAP      2150
                          73711                   =X7    X1+1                                                    MAP      2151
          1642  5170001665 +                      SA7    RNI.CC      UPDATE IT                                   MAP      2152
                          5120001666 +            SA2    RNI.CL      CALL LIMIT                                  MAP      2153
          1643  37127                             IX1    X2-X7                                                   MAP      2154
                     0321001647 +                 PL     X1,RNI20    IF TABLE DIVISION NOT EMPTY                 MAP      2155
          1644  6120000000                        SB2    0                                                       MAP      2156
                          0100001703 +            RJ     SRNI        RESET RNI PARAMETERS                        MAP      2157
          1645  0630001635 +                      PL     B3,RNI5     IF TABLE NOT EMPTY                          MAP      2158
                          43700                   MX7    0           SIGNAL EMPTY TABLE                          MAP      2159
          1646  5170001670 +                      SA7    RNI.PI                                                  MAP      2160
                          0400001634 +            EQ     EXIT.       RETURN                                      MAP      2161
                                                                                                                 MAP      2162
          1647  5110001667 +             RNI20    SA1    RNI.SC      SECTION COUNTER                             MAP      2163
                          73611                   =X6    X1+1                                                    MAP      2164
          1650  5216001657 +                      SA1    RNI.SL+X6   FETCH LENGTH PREVIOUS SECTION               MAP      2165
                          36731                   IX7    X3+X1       COMPUTE NEW INDEX                           MAP      2166
          1651  5120001735 +                      SA2    SRNI.LED                                                MAP      2167
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    48
        TASK PERFORMERS                                               RNI 
  
                          37327                   IX3    X2-X7                                                   MAP      2168
          1652  0333001654 +                      MI     X3,RNI30    IF TIME TO BACK UP TO 1ST SECTION           MAP      2169
                          5160001667 +            SA6    RNI.SC                                                  MAP      2170
          1653  5170001670 +                      SA7    RNI.PI                                                  MAP      2171
                          0400001634 +            EQ     EXIT.                                                   MAP      2172
                                                                                                                 MAP      2173
          1654  5110001734 +             RNI30    SA1    SRNI.FED                                                MAP      2174
                          37121                   IX1    X2-X1                                                   MAP      2175
                               37771              IX7    X7-X1                                                   FC5A185   493
          1655  77601                             =X6    -1                                                      MAP      2179
                     5160001667 +                 SA6    RNI.SC      UPDATE SECTION COUNTER                      MAP      2180
          1656  5170001670 +                      SA7    RNI.PI      UPDATE PREVIOUS INDEX                       MAP      2181
                          0400001634 +            EQ     EXIT.       RETURN                                      MAP      2182
                                                                                                                 MAP      2183
          1657                     6     RNI.SL   BSS    6           STORAGE FOR SECTION LENGTHS                 MAP      2184
          1665                     1     RNI.CC   BSS    1           CALL COUNTER                                MAP      2185
          1666                     1     RNI.CL   BSS    1           CALL LIMIT                                  MAP      2186
          1667                     1     RNI.SC   BSS    1           SECTION COUNTER                             MAP      2187
          1670                     1     RNI.PI   BSS    1           PREVIOUS INDEX                              MAP      2188
  
  
  
  
                                        **        SRC -  SEARCH REFERENCE CHAIN.                                 MAP      2190
                                        *                                                                        MAP      2191
                                        *         WILL SEARCH REF CHAIN FOR A *D* USAGE LETTER, SETTING XR.MEDF  MAP      2192
                                        *         IN THAT ENTRY SO THAT REF PROCESSOR CAN SKIP IT.               MAP      2193
                                        *                                                                        MAP      2194
                                        *         ENTRY  (X6) = *WA* OF A SYMBOL.                                MAP      2195
                                        *                                                                        MAP      2196
                                        *         USES   X - 0,5,6,7  A - 5,7  B - 4.                            MAP      2197
                                                                                                                 MAP      2198
                                                                                                                 MAP      2203
          1671  0400401671 +             SRC      SUBR               ENTRY/EXIT...                               MAP      2204
          1672  5150000000 X                      SA5    WO.LOR                                                  MAP      2205
                          0325001671 +            PL     X5,EXIT.    IF REFERENCES NOT SELECTED                  MAP      2206
          1673  5150000000 X                      SA5    T.REF                                                   MAP      2207
                          63450                   SB4    X5          FWA T.REF                                   MAP      2208
                               43060              XTRCT  WA.HASH,X6,X6     ISOLATE LINK TO HEAD OF REF CHAIN     MAP      2209
                     0306001671 +                 ZR     X6,EXIT.    IF NO REFS                                  MAP      2210
                                                                                                                 MAP      2211
          1675  53564                    SRC10    SA5    B4+X6                                                   MAP      2212
                     43052                        XTRCT  XR.TAG,X5,X6      ISOLATE LINK TO NEXT REF              MAP      2213
          1676  20552                             LX5    XR.TAGP-XR.USEP                                         MAP      2214
                     43066                        MX0    -XR.USEL                                                MAP      2215
                          15750                   BX7    -X0*X5      ISOLATE USAGE LETTER                        MAP      2216
          1677  7207777773                        SX0    X7-CR.DEF                                               FC50913     9
                          0300001701 +            ZR     X0,SRC20    IF FOUND *D* USAGE LETTER                   FC50913    10
          1700  7277777755                        SX7    X7-CR.RET                                               FC50913    11
                          0317001702 +            NZ     X7,SRC30    IF NOT FOUND *R* USAGE LETTER               FC50913    12
                                                                                                                 FC50913    13
                                         SRC20    LX5    XR.USEP                                                 FC50913    14
          1701  43701                             LDBIT  X7,XR.MEDFP                                             FC50913    15
                          12757                   BX7    X5+X7                                                   FC50913    16
                               54750              SA7    A5                                                      FC50913    17
                                                                                                                 FC50913    18
          1702  0316001675 +             SRC30    NZ     X6,SRC10    IF MORE REFS                                FC50913    19
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    49
        TASK PERFORMERS                                               SRC 
  
                          0400001671 +            EQ     EXIT.                                                   MAP      2220
  
  
  
  
                                        **        SRNI - SET RNI PARAMETERS.                                     MAP      2222
                                        *                                                                        MAP      2223
                                        *         ENTRY  *SRNI.LED* = INDEX OF LAST ELEMENT IN T.SCR DIVISION.   MAP      2224
                                        *                                                                        MAP      2225
                                        *                *T=SCR* = LENGTH OF T.SCR.                              MAP      2226
                                        *                                                                        MAP      2227
                                        *                *MOCTC* = NUMBER OF SECTIONS TO APPEAR ACROSS PAGE.     MAP      2228
                                        *                                                                        MAP      2229
                                        *                (B2) = NUMBER OF LINES NEEDED BY HEADINGS.              MAP      2230
                                        *                                                                        MAP      2231
                                        *         EXIT   (B3) = -1 IF TABLE EMPTY.                               MAP      2232
                                        *                                                                        MAP      2233
                                        *         USES   X - 1,2,3,4,5,6,7  A - 2,3,4,5,6,7  B - 2,3,5,6.        MAP      2234
                                                                                                                 MAP      2235
          1703  0400401703 +             SRNI     SUBR               ENTRY/EXIT...                               MAP      2236
          1704  77601                             =X6    -1                                                      MAP      2237
                     5160001733 +                 SA6    SRNI.BDF    SET BEGINING OF DIVISION FLAG               MAP      2238
          1705  5120001735 +                      SA2    SRNI.LED    LAST ELEMENT IN THIS DIVISION               MAP      2239
                          5130000000 X            SA3    T=SCR                                                   MAP      2240
          1706  73621                             =X6    X2+1                                                    MAP      2241
                     5160001734 +                 SA6    SRNI.FED    RESET FIRST ELEMENT OF DIVISION             MAP      2242
                               37736              IX7    X3-X6                                                   MAP      2243
          1707  67301                             =B3    -1                                                      MAP      2244
                     0337001703 +                 MI     X7,EXIT.    IF TABLE EMPTY                              MAP      2245
          1710  5140000000 X                      SA4    LCNT                                                    MAP      2246
                          5150000000 X            SA5    CO.PS                                                   FC5A107    21
          1711  37254                             IX2    X5-X4                                                   MAP      2248
                     6232777775                   SB3    X2-2                                                    FC50488     7
                               77432              SX4    B3-B2       X4 = NUMBER OF USABLE LINES                 MAP      2250
          1712  7272777765                        SX7    X2-10                                                   MAP      2251
                          0327001714 +            PL     X7,SRNI10   IF *OTH* WONT PAGE EJECT                    MAP      2252
          1713  63350                             SB3    X5                                                      MAP      2253
                     77432                        SX4    B3-B2                                                   MAP      2254
                                                                                                                 MAP      2256
          1714  5150000544 +             SRNI10   SA5    MAP.NO                                                  MAP      2257
                          20573                   LX5    -1                                                      MAP      2258
                               10133              BX1    X3          X1 = DEFAULT NUMBER OF ENTRIES ON PAGE      MAP      2259
          1715  5120000656 +                      SA2    MOCTC                                                   MAP      2260
                          0335001720 +            MI     X5,SRNI20   IF REFERENCES SELECTED                      MAP      2261
          1716  42542                             IX5    X4*X2       X5 = NO. OF ENTRIES THAT COULD FIT ON PAGE  MAP      2262
                     37736                        IX7    X3-X6                                                   MAP      2263
                          73171                   =X1    X7+1        X1 = NUMBER OF ENTRIES LEFT                 MAP      2264
                               37751              IX7    X5-X1                                                   MAP      2265
          1717  0327001720 +                      PL     X7,SRNI20   IF ALL ENTRIES WILL FIT ON PAGE             MAP      2266
                          10155                   BX1    X5                                                      MAP      2267
                                                                                                                 MAP      2268
          1720  36761                    SRNI20   IX7    X6+X1                                                   MAP      2269
                     7277777776                   =X7    X7-1                                                    MAP      2270
          1721  5170001735 +                      SA7    SRNI.LED    RESET LAST                                  MAP      2271
                          5160001670 +            SA6    RNI.PI      INITIALIZE INDEX                            MAP      2272
          1722  6252777776                        =B5    X2-1        LOOP LIMIT                                  MAP      2273
                          66600                   =B6    0                                                       MAP      2274
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    50
        TASK PERFORMERS                                               SRNI
  
                               66210              =B2    1           EXTRA LENGTH                                MAP      2275
          1723  10411                             BX4    X1                                                      MAP      2276
                     10522                        BX5    X2                                                      MAP      2277
                          27404                   IX7    X4/X5                                                   MAP      2278
                     42672                        IX6    X7*X2                                                   MAP      2279
                          37616                   IX6    X1-X6                                                   MAP      2280
                               63360              SB3    X6          B3 = REMAINDER                              MAP      2281
                                                                                                                 MAP      2282
          1726  67331                    SRNI30   =B3    B3-1                                                    MAP      2283
                     0630001730 +                 PL     B3,SRNI40   IF NEED TO ADD EXTRA LENGTH                 MAP      2284
                               66200              =B2    0                                                       MAP      2285
          1727  6130000012                        SB3    10          PREVENTS EXECUTION OF THIS SEQUENCE         MAP      2286
                                                                                                                 MAP      2287
          1730  73672                    SRNI40   SX6    X7+B2       COMPUTE LENGTH OF A SECTION                 MAP      2288
                     5166001657 +                 SA6    RNI.SL+B6                                               MAP      2289
                               66661              =B6    B6+1                                                    MAP      2290
          1731  0656001726 +                      LE     B6,B5,SRNI30      IF NOT DONE                           MAP      2291
                          10611                   BX6    X1                                                      MAP      2292
          1732  5160001666 +                      SA6    RNI.CL      CALL LIMIT                                  MAP      2293
                          0400001703 +            EQ     EXIT.                                                   MAP      2294
  
  
  
  
          1733                     1     SRNI.BDF BSS    1           FLAG                                        MAP      2296
          1734                     1     SRNI.FED BSS    1           FIRST ELEMENT OF TABLE DIVISION             MAP      2297
          1735                     1     SRNI.LED BSS    1           LAST ELEMENT OF TABLE DIVISION              MAP      2298
  
  
  
  
                                        **        STS -  SYMBOL TABLE SEPARATION.                                MAP      2300
                                        *                                                                        MAP      2301
                                        *         WILL SELECT ONE OF THE FOLLOWING SYMBOL TYPES                  MAP      2302
                                        *         FROM THE SYMBOL TABLE -                                        MAP      2303
                                        *         VARIABLES,PROCEDURES,LABELS,NAMELIST,STRAY NAMES,DO LOOPS,     MAP      2304
                                        *         ENTRY POINTS,SYMBOLIC CONSTANTS,COMMON BLOCK MEMBERS.          MAP      2305
                                        *         FOR EACH ENTRY SELECTED, AN INDIRECT SORT KEY IS               MAP      2306
                                        *         ADDED TO T.SCR.                                                MAP      2307
                                        *                                                                        MAP      2308
                                        *         ENTRY  (X5) = BIT MASK TO SELECT A SYMBOL TYPE.                MAP      2309
                                        *                (X4) = BIT MASK TO REJECT SUBSET OF SELECTED SYM TYPE.  MAP      2310
                                        *                (B4) = MST OFFSET.                                      MAP      2311
                                        *                (STS.BI) = BLOCK INDEX (COM-EQV MAP ONLY)  .            MAP      2312
                                        *                                                                        MAP      2313
                                        *         EXIT   PROPER SYMBOLS ON T.SCR.                                MAP      2314
                                        *                                                                        MAP      2315
                                        *         USES   X - 0,1,2,3,6,7  A - 1,2,3  B - 2,3,7.                  MAP      2316
                                        *                                                                        MAP      2317
                                        *         CALLS  ADDWD,SHRINK.                                           MAP      2318
                                                                                                                 MAP      2319
          1736  0400401736 +             STS      SUBR               ENTRY/EXIT.                                 MAP      2320
          1737  76600                             SHRINK T=SCR,0                                                 MAP      2321
          1740  5110000000 X                      SA1    T.SYM                                                   MAP      2322
                          5120000000 X            SA2    T=SYM                                                   MAP      2323
                                        **                                                                       MAP      2324
                                        *         WILL ALWAYS SKIP OVER ZERO-TH ORDINAL.                         MAP      2325
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    51
        TASK PERFORMERS                                               STS 
  
                                        **                                                                       MAP      2326
          1741  66210                             =B2    WB.W                                                    MAP      2327
                     63320                        SB3    X2                                                      MAP      2328
                                                                                                                 MAP      2329
          1742  6122000003               STS10    SB2    B2+Z=SYM                                                MAP      2330
                          6133777774              SB3    B3-Z=SYM                                                MAP      2331
          1743  0430001736 +                      ZR     B3,EXIT.    IF TABLE EXHAUSTED                          MAP      2332
                                                  IFEQ   TEST,ON,1                                               MAP      2333
                                                  MI     B3,"BLOWUP" IF TABLE LENGTH NOT MULTIPLE OF Z=SYM       MAP      2334
                          53312                   SA3    X1+B2                                                   MAP      2335
          1744  7174777777                        SX7    B4-TVARP                                                MAP      2336
                          0317001747 +            NZ     X7,STS20    IF NOT VARIABLE MAP                         MAP      2337
          1745  7170000150                        CLAS=  X7,WB,(VAR,NVAR,LAB)                                    MAP      2338
                          11773                   BX7    X7*X3                                                   MAP      2339
          1746  0307001773 +                      ZR     X7,STS30    IF STRAY NAME, LET IT THROUGH               MAP      2340
                          0400001753 +            EQ     STS25                                                   MAP      2341
                                                                                                                 MAP      2342
          1747  7174777771               STS20    SX7    B4-TDOLP                                                MAP      2343
                          0307001751 +            ZR     X7,STS22    IF DO-LOOP MAP                              MAP      2344
          1750  7174777767                        SX7    B4-TIOP                                                 MAP      2345
                          0317001753 +            NZ     X7,STS25    IF NOT I/O MAP                              MAP      2346
                                                                                                                 MAP      2347
          1751  12753                    STS22    BX7    X5+X3                                                   MAP      2348
                     0317001742 +                 NZ     X7,STS10    IF ALL REQUESTED BITS ARE ZERO              MAP      2349
          1752  0400001776 +                      EQ     STS35                                                   FC50514    18
                                                                                                                 MAP      2351
          1753  11753                    STS25    BX7    X5*X3                                                   MAP      2352
                     0307001742 +                 ZR     X7,STS10    IF SELECT CRITERIA NOT SATISFIED            MAP      2353
                               11743              BX7    X4*X3                                                   MAP      2354
          1754  0317001742 +                      NZ     X7,STS10    IF REJECT SUBSET CRITERIA SATISFIED         MAP      2355
                          7174777770              SX7    B4-TCOMP                                                MAP      2356
          1755  0317001773 +                      NZ     X7,STS30    IF NOT COMMON-EQUIVALENCE MAP               MAP      2357
                          5023000001              SA2    A3-WB.W+WC.W                                            MAP      2358
          1756  5130002005 +                      SA3    STS.BI                                                  MAP      2359
                          43062                   XTRCT  WC.RB,X2,X7 ISOLATE BLOCK INDEX                         MAP      2360
                     37737                        IX7    X3-X7                                                   MAP      2361
                          0317001742 +            NZ     X7,STS10    IF BLOCK INDEXES DONT MATCH                 MAP      2362
          1760  20260                             LX2    WC.RBP                                                  MAP      2363
                     43044                        XTRCT  WC.RA,X2,X6    X6 = RA                                  FC5A185   494
                               55321              =A3    A2-WC.W+WB.W      *WB*                                  MAP      2366
          1761  43071                             XTRCT  WB.MODE,X3,X3                                           MAP      2367
                          7233777771              SX3    X3-M.CHAR                                               MAP      2368
          1762  20622                             LX6    MT.RAP                                                  FC5A185   495
                     0313002002 +                 NZ     X3,STS40    IF NOT TYPE CHAR                            FC5A185   496
                               20652              LX6    -MT.RAP                                                 FC5A185   497
                                                  LX2    WC.RAP                                                  FC5A185   498
          1763  36366                             WC     X3,X6       CONVERT RA TO CHARACTERS                    MAP      2370
                               43070              XTRCT  WC.BCP,X2,X6      ISOLATE BEGINING CHARACTER POSITION   MAP      2371
                          36663                   IX6    X6+X3                                                   MAP      2372
                               20622              LX6    MT.RAP                                                  FC5A185   499
          1765  54330                             SA3    A3          RESTORE *WB*                                FC5A185   500
                     20362                        HX3    WB.EQV                                                  FC5A185   501
                          0323002002 +            PL     X3,STS40    IF NOT EQUIVALENCED                         FC5A185   502
          1766  20652                             LX6    -MT.RAP                                                 FC5A185   503
                     20345                        LX3    1+WB.EQVP-WB.BASEP                                      FC5A185   504
                          43060                   MX0    -WB.BASEL                                               FC5A185   505
                               15330              BX3    -X0*X3      X3 = SYMORD OF BASE MEMBER                  FC5A185   506
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    52
        TASK PERFORMERS                                               STS 
  
          1767  10233                             BX2    X3                                                      FC5A185   507
                     20301                        LX3    1                                                       FC5A185   508
                          36332                   IX3    X3+X2       CONVERT TO *WA* INDEX                       FC5A185   509
                               36313              IX3    X1+X3       X3 = *WA* ADDRESS                           FC5A185   510
          1770  5233000002                        =A3    X3+WC.W     X3 = *WC*                                   FC5A185   511
                          43070                   XTRCT  WC.BCP,X3,X3      X3 = BCP OF BASE                      FC5A185   512
                     36663                        IX6    X6+X3       X6 = COMPLETE RA OF MEMBER                  FC5A185   513
                          20622                   LX6    MT.RAP                                                  FC5A185   514
          1772  0400002002 +                      EQ     STS40                                                   FC5A185   515
                                                                                                                 MAP      2376
          1773  5120000544 +             STS30    SA2    MAP.NO                                                  FC50514    19
                          55131                   =A1    A3-WB.W+WA.W                                            FC50514    20
                               20273              LX2    -1                                                      FC50514    21
          1774  0322001776 +                      PL     X2,STS35    IF LO=-R                                    FC50514    22
                          73110                   SX1    X1          EXTRACT REFERENCE LINK                      FC50514    23
          1775  0301002004 +                      ZR     X1,STS50    IF NO REFERENCES COLLECTED FOR SYMBOL       FC50514    24
                                                                                                                 FC50514    25
          1776  55231                    STS35    =A2    A3-WB.W+WA.W                                            FC50514    26
                     43722                        MX7    -WA.SYML                                                MAP      2378
                          20252                   LX2    -WA.SYMP                                                MAP      2379
                               15627              BX6    -X7*X2       ISOLATE SYMBOL                             MAP      2380
          1777  20622                             LX6    MT.SYMP                                                 MAP      2381
                     7174777767                   SX7    B4-TIOP                                                 MAP      2382
          2000  0317002002 +                      NZ     X7,STS40    IF NOT I/O MAP                              MAP      2383
                          0326001742 +            PL     X6,STS10    IF BIT 59 NOT SET                           MAP      2384
          2001  43701                             MX7    1                                                       MAP      2385
                     13667                        BX6    X6-X7       TURN OFF BIT 59                             MAP      2386
                                                                                                                 MAP      2387
          2002  77121                    STS40    =X1    B2-WB.W     OFFSET OF THIS ENTRY                        MAP      2388
                                                  LX1    MT.WAIP                                                 MAP      2389
                     12661                        BX6    X6+X1       FORM INDIRECT KEY                           FC5A185   516
                          5110000000 X            ADDWD  T.SCR                                                   MAP      2391
                                                                                                                 FC50514    27
          2004  5110000000 X             STS50    SA1    T.SYM                                                   FC50514    28
                          0400001742 +            EQ     STS10                                                   MAP      2393
                                                                                                                 MAP      2394
          2005                     1     STS.BI   BSS    1           BLOCK INDEX. USED ONLY DURING COM-EQV MAP   MAP      2395
  
  
  
  
                                        **        TAB -  TAB OUT TO GIVEN COLUMN IN MAPBUFF.                     MAP      2397
                                        *                                                                        MAP      2398
                                        *         ENTRY  (X1) = COLUMN TO TAB TO.                                MAP      2399
                                        *                                                                        MAP      2400
                                        *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6  B - 2,3,6.              MAP      2401
                                        *                                                                        MAP      2402
                                        *         CALLS  CBS, GBL, PCB.                                          FC50297    26
                                                                                                                 MAP      2404
          2006  0400402006 +             TAB      SUBR               ENTRY/EXIT...                               MAP      2405
          2007  0100001200 +                      RJ     GBL         GET BUFFER LENGTH                           MAP      2407
          2010  37412                             IX4    X1-X2                                                   MAP      2408
                     6264777776                   =B6    X4-1        NUMBER OF BLANKS TO OUTPUT                  MAP      2409
                                                  IFEQ   TEST,ON,1                                               MAP      2410
                                                  MI     B6,"BLOWUP" IF BAD X1                                   MAP      2411
          2011  0460002006 +                      ZR     B6,EXIT.    IF POSITIONED CORRECTLY                     FC50297    27
                          0100001014 +            RJ     CBS         MAKE SURE ENOUGH BUFFER SPACE               FC50297    28
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    53
        TASK PERFORMERS                                               TAB 
  
          2012  0730002006 +                      MI     B3,EXIT.    IF NOT ENOUGH BUFFER SPACE, NO TAB          FC50297    29
                          5110000464 +            SA1    MAP.XS                                                  MAP      2412
          2013  0100001556 +                      RJ     PCB         TAB TO REQUESTED COLUMN                     MAP      2413
          2014  0400002006 +                      EQ     EXIT.                                                   MAP      2414
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    54
        FIELD PROCESSORS                                              ADR 
  
                                        **        ADR -  OUTPUT RELATIVE ADDRESS OF A SYMBOL.                    MAP      2420
                                        *                                                                        MAP      2421
                                        *         ACCESSES SYMBOL TABLE VIA OFFSET STORED IN X7 TO GET           MAP      2422
                                        *         RELATIVE ADDRESS OF A SYMBOL.                                  MAP      2423
                                        *                                                                        MAP      2424
                                        *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/ADR.                        MAP      2425
                                        *                (X7) = ENTRY OF T.SCR (CONTAINS INDEX).                 MAP      2426
                                        *                                                                        MAP      2427
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                        MAP      2428
                                        *                                                                        MAP      2429
                                        *         CALLS  JIF,PIA,CDD,CCBB,PCB.                                   MAP      2430
                                                                                                                 MAP      2431
          2015  01040422052323555555     ADR      DIS    MAPPML,ADDRESS                                          MAP      2432
                                                                                                                 MAP      2433
          2021  5120000000 X                      SA2    T.SYM                                                   MAP      2434
                          43052                   XTRCT  MT.WAI,X7,X7      ISOLATE T.SYM WORD A INDEX            MAP      2435
          2022  63671                             =B6    X7+WB.W     OFFSET TO WORD B                            MAP      2436
                     53126                        SA1    X2+B6       FETCH WORD B                                MAP      2437
                          20436                   LX4    30                                                      MAP      2438
                               63540              SB5    X4          ISOLATE FIELD WIDTH                         MAP      2439
          2023  20153                             SBIT   X1,WB.FPP                                               FC5A391     9
                     0321002033 +                 PL     X1,ADR10    IF NOT DUMMY ARGUMENT                       FC5A391    10
                               20121              LX1    WB.FPP+1    RESTORE X1 TO NOMINAL POSITION              MAP      2442
          2024  43063                             XTRCT  WB.FPNO,X1,X1     ISOLATE FPNO                          MAP      2443
          2025  0100000000 X                      CALL   CDD         CONVERT TO DPC                              MAP      2444
          2026  10166                             BX1    X6                                                      MAP      2445
                     67551                        =B5    B5-1                                                    MAP      2446
                          67601                   =B6    -1          INDICATE UNKNOWN ITEM WIDTH                 MAP      2447
          2027  7100000003                        SX0    3           BOTH INPUT AND OUTPUT RIGHT JUSTIFY         MAP      2448
                          0100001251 +            RJ     JIF                                                     MAP      2449
          2030  66610                             =B6    1                                                       MAP      2450
                     5110000464 +                 SA1    MAP.XS                                                  MAP      2451
          2031  0100001556 +                      RJ     PCB                                                     MAP      2452
          2032  0400000604 +                      EQ     MOC.RB                                                  MAP      2453
                                                                                                                 MAP      2454
          2033  20156                    ADR10    SBIT   X1,WB.MATP/WB.FPP                                       FC5A391    11
                     0331002043 +                 MI     X1,ADR20    IF MATERIALIZED                             FC5A391    12
                               20125              SBIT   X1,WB.EQVP/WB.MATP                                      FC5A391    13
          2034  0321002040 +                      PL     X1,ADR15    IF NOT EQUIVALENCED                         FC5A391    14
                          20112                   LX1    WB.EQVP+1   RESTORE X1 TO NOMINAL POSITION              MAP      2457
                               43060              XTRCT  WB.BASE,X1,X4     X4 = SYMORD OF BASE MEMBER            FC5A114    28
                          63640                   SB6    X4                                                      FC5A114    29
                               20401              LX4    1                                                       FC5A114    30
          2036  63646                             SB6    X4+B6                                                   FC5A114    31
                     66661                        =B6    B6+WB.W     CONVERT TO *WB* INDEX                       FC5A114    32
                          53426                   SA4    X2+B6       *WB* OF BASE MEMBER                         FC5A114    33
                               20435              SBIT   X4,WB.MATP                                              FC5A391    15
          2037  0334002043 +                      MI     X4,ADR20    IF BASE MEMBER MATERIALIZED                 FC5A391    16
                                                                                                                 MAP      2467
          2040  5110003210 +             ADR15    SA1    =5HNONE                                                 MAP      2468
                          6160000005              SB6    5                                                       MAP      2469
          2041  76010                             =X0    1                                                       MAP      2470
                     0100001251 +                 RJ     JIF                                                     MAP      2471
          2042  0400000604 +                      EQ     MOC.RB                                                  MAP      2472
                                                                                                                 MAP      2473
          2043  54111                    ADR20    =A1    A1-WB.W+WC.W   FETCH WORD C                             MAP      2474
                     43044                        XTRCT  WC.RA,X1,X1 ISOLATE RELATIVE ADDRESS                    MAP      2475
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    55
        FIELD PROCESSORS                                              ADR 
  
          2044  5120000000 X                      SA2    WO.QC                                                   MAP      2476
                          0322002046 +            PL     X2,ADR30    IF NO FATAL ERRORS                          MAP      2477
          2045  43100                             MX1    0                                                       MAP      2478
                     43600                        MX6    0                                                       MAP      2479
                                                                                                                 MAP      2480
          2046  0100000000 X             ADR30    PIA                CONVERT TO OCTAL DPC                        FC5A114    35
          2047  20660                             LX6    8*CHAR                                                  MAP      2483
                     10166                        BX1    X6                                                      MAP      2484
                          67601                   =B6    -1                                                      MAP      2485
          2050  7100000003                        SX0    3                                                       MAP      2486
                          0100001251 +            RJ     JIF                                                     MAP      2487
          2051  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2488
  
  
  
  
                                        **        ARG -  OUTPUT THE NUMBER OF ARGUMENTS OF A PROCEDURE.          MAP      2490
                                        *                                                                        MAP      2491
                                        *         WILL OUTPUT EITHER VAR, UNKNOWN, OR AN ARGUMENT COUNT          MAP      2492
                                        *         DEPENDING ON THE NATURE OF THE PROCEDURE BEING PROCESSED.      MAP      2493
                                        *                                                                        MAP      2494
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/ARG.                           MAP      2495
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      2496
                                        *                (X5) = MST OFFSET.                                      MAP      2497
                                        *                                                                        MAP      2498
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                        MAP      2499
                                        *                                                                        MAP      2500
                                        *         CALLS  JIF,CDD,PCB.                                            MAP      2501
                                                                                                                 MAP      2502
          2052  01220723464646555555     ARG      DIS    MAPPML,ARGS---                                          MAP      2503
                                                                                                                 MAP      2504
          2056  5120000000 X                      SA2    T.SYM                                                   MAP      2505
                          43052                   XTRCT  MT.WAI,X7,X7      ISOLATE T.SYM OFFSET                  MAP      2506
          2057  63671                             =B6    X7+WB.W     OFFSET TO WORD B                            MAP      2507
                     53126                        SA1    X2+B6       FETCH WORD B                                MAP      2508
                          20436                   LX4    30                                                      MAP      2509
                               63540              SB5    X4                                                      MAP      2510
          2060  54211                             =A2    A1-WB.W+WC.W   FETCH WORD C                             MAP      2511
                     20164                        SBIT   X1,WB.DEFP                                              FC50562     7
                          0321002071 +            PL     X1,ARG10    IF ARGUMENT COUNT NOT DETERMINED            FC50562     8
          2061  22302                             LX3    X2          ANOTHER COPY OF *WC*                        FC50562     9
                     43063                        XTRCT  WC.ARGC,X2,X1      ISOLATE ARG COUNT                    MAP      2513
          2062  43071                             XTRCT  WC.FUNT,X3,X3     FUNCTION TYPE                         FC50562    10
          2063  7233777775                        =X3    X3-MF.LIB                                               FC50562    11
                          0313002065 +            NZ     X3,ARG5     IF NOT INTRINSIC                            FC50562    12
          2064  7201777770                        SX0    X1-7                                                    FC50562    13
                          0300002077 +            ZR     X0,ARG20    IF VARIABLE ARGUMENT INTRINSIC              FC50562    14
                                                                                                                 FC50562    15
          2065  0100000000 X             ARG5     CALL   CDD         CONVERT ARGUMENT COUNT TO DISPLAY           FC50562    16
          2066  66650                             SB6    B5                                                      MAP      2515
                     10166                        BX1    X6                                                      MAP      2516
                          20144                   LX1    -4*CHAR                                                 MAP      2517
          2067  0100001556 +                      RJ     PCB                                                     MAP      2518
          2070  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2519
                                                                                                                 MAP      2520
          2071  43071                    ARG10    XTRCT  WC.FUNT,X2,X2     ISOLATE FUNCTION TYPE                 MAP      2521
          2072  7232777775                        =X3    X2-MF.LIB                                               MAP      2522
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    56
        FIELD PROCESSORS                                              ARG 
  
                          0303002077 +            ZR     X3,ARG20    IF INTRINSIC FUNCTION                       MAP      2523
          2073  7232777773                        =X3    X2-MF.INL                                               MAP      2524
                          0303002077 +            ZR     X3,ARG20    IF INTRINSIC FUNCTION                       MAP      2525
          2074  5110003211 +                      SA1    =7HUNKNOWN                                              MAP      2526
                          6160000007              SB6    7                                                       MAP      2527
          2075  43000                             MX0    0           INPUT AND OUTPUT LEFT JUSTIFY               MAP      2528
                     0100001251 +                 RJ     JIF                                                     MAP      2529
          2076  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2530
                                                                                                                 MAP      2531
          2077  5110003212 +             ARG20    SA1    =3HVAR                                                  MAP      2532
                          6160000003              SB6    3                                                       MAP      2533
          2100  43000                             MX0    0                                                       MAP      2534
                     0100001251 +                 RJ     JIF                                                     MAP      2535
          2101  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2536
  
  
  
  
                                        **        BLK -  OUTPUT NAME OF BLOCK FOR A SYMBOL.                      MAP      2538
                                        *                                                                        MAP      2539
                                        *         OUTPUTS THE NAME OF THE COMMON BLOCK THAT THE CURRENT          MAP      2540
                                        *         SYMBOL IS A MEMBER OF, IF ANY.                                 MAP      2541
                                        *                                                                        MAP      2542
                                        *         ENTRY  (X7) = ENTRY OF T.SCR (CONTAINING OFFSET).              MAP      2543
                                        *                (X4) = 30/FIELD WIDTH,30/BLK.                           MAP      2544
                                        *                                                                        MAP      2545
                                        *         USES   ALL REGISTERS.                                          MAP      2546
                                        *                                                                        MAP      2547
                                        *         CALLS  JIF,BNS,PCB.                                            MAP      2548
                                                                                                                 MAP      2549
          2102  02141703134646464646     BLK      DIS    MAPPML,BLOCK---------------                             MAP      2550
                                                                                                                 MAP      2551
          2106  5120000000 X                      SA2    T.SYM                                                   MAP      2552
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM WORD A OFFSET            MAP      2553
          2107  63611                             =B6    X1+WB.W     OFFSET TO WORD B                            MAP      2554
                     53126                        SA1    B6+X2       FETCH WORD B                                MAP      2555
                          20436                   LX4    30                                                      MAP      2556
                               63540              SB5    X4                                                      MAP      2557
          2110  20154                             SBIT   X1,WB.COMP                                              FC50326    39
                     0331002124 +                 MI     X1,BLK10    IF SYMBOL IS IN COMMON                      FC50326    40
                               20173              SBIT   X1,WB.FPP/WB.COMP                                       FC50326    41
          2111  0321002115 +                      PL     X1,BLK4     IF SYMBOL IS NOT FORMAL PARAMETER           FC50326    42
                          5110003213 +            SA1    =9HDUMMY-ARG                                            MAP      2560
          2112  43000                             MX0    0                                                       MAP      2561
                     6160000011                   SB6    9                                                       MAP      2562
          2113  0100001251 +                      RJ     JIF                                                     MAP      2563
          2114  0400000604 +                      EQ     MOC.RB      RETURN                                      MAP      2564
                                                                                                                 FC50326    43
          2115  20154                    BLK4     SBIT   X1,WB.SFAP/WB.FPP                                       FC50326    44
                     0321002121 +                 PL     X1,BLK5     IF SMYBOL IS NOT STF DUMMY ARGUMENT         FC50326    45
          2116  5110003214 +                      SA1    =8HSTF-DARG                                             FC50326    46
                          43000                   MX0    0                                                       FC50326    47
          2117  6160000010                        SB6    8                                                       FC50326    48
                          0100001251 +            RJ     JIF                                                     FC50326    49
          2120  0400000604 +                      EQ     MOC.RB      RETURN                                      FC50326    50
                                                                                                                 MAP      2565
          2121  5110000464 +             BLK5     SA1    MAP.XS     GET READY FOR PCB                            MAP      2566
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    57
        FIELD PROCESSORS                                              BLK 
  
                          66650                   SB6    B5                                                      MAP      2567
          2122  0100001556 +                      RJ     PCB                                                     MAP      2568
          2123  0400000604 +                      EQ     MOC.RB                                                  MAP      2569
                                                                                                                 MAP      2570
          2124  54111                    BLK10    =A1    A1-WB.W+WC.W   FETCH WORD C                             MAP      2571
                     43062                        XTRCT  WC.RB,X1,X1 ISOLATE BLOCK OFFSET                        MAP      2572
          2125  5150000000 X                      SA5    T.BLKS                                                  MAP      2573
                          63410                   SB4    X1                                                      MAP      2574
                               53154              SA1    B4+X5       FETCH WORD A OF T.BLKS                      MAP      2575
          2126  43022                             XTRCT  CA.BNAM,X1,X1     ISOLATE BLOCK NAME                    MAP      2576
                               20122              LX1    -CA.BNAML   LEFT JUSTIFY IT                             MAP      2577
          2127  5120000000 X                      SA2    BLNKCOM                                                 MAP      2578
                          63720                   SB7    X2                                                      MAP      2579
                               67774              SB7    B7-B4                                                   MAP      2580
          2130  0470002132 +                      ZR     B7,BLK20    IF BLANK COMMON                             MAP      2581
                          0100001002 +            RJ     BNS         BOUND NAME BY SLASHES                       MAP      2582
          2131  0400002133 +                      EQ     BLK30                                                   MAP      2583
                                                                                                                 MAP      2584
          2132  5110003173 +             BLK20    SA1    =10H//                                                  MAP      2585
                                                                                                                 MAP      2586
          2133  43000                    BLK30    MX0    0                                                       MAP      2587
                     67601                        =B6    -1                                                      MAP      2588
                          0100001251 +            RJ     JIF                                                     MAP      2589
                                                                                                                 MAP      2590
          2134  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2591
  
  
  
  
                                        **        CLS -  OUTPUT THE CLASS OF A PROCEDURE.                        MAP      2593
                                        *                                                                        MAP      2594
                                        *         WILL OUTPUT EXTERNAL, SUBROUTINE, INTRINSIC, FUNCTION OR       MAP      2595
                                        *         STAT FUNC DEPENDING ON THE NATURE OF THE PROCEDURE             MAP      2596
                                        *         BEING PROCESSED.                                               MAP      2597
                                        *                                                                        MAP      2598
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/CLS.                           MAP      2599
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      2600
                                        *                                                                        MAP      2601
                                        *         USES   X - ALL  A - 1,2,3,6  B - ALL.                          MAP      2602
                                        *                                                                        MAP      2603
                                        *         CALLS  JIF.                                                    MAP      2604
                                                                                                                 MAP      2605
          2135  03140123234646464646     CLS      DIS    MAPPML,CLASS---------------                             MAP      2606
                                                                                                                 MAP      2607
          2141  20436                             LX4    30                                                      MAP      2608
                     63540                        SB5    X4                                                      MAP      2609
                          5120000000 X            SA2    T.SYM                                                   MAP      2610
          2142  43052                             XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM WORD A OFFSET            MAP      2611
                          63271                   =B2    X7+WB.W     OFFSET TO WORD B                            MAP      2612
                               53222              SA2    X2+B2       FETCH WORD B                                MAP      2613
          2143  20260                             SBIT   X2,WB.SUBP                                              FC5A360     8
                     0322002151 +                 PL     X2,CLS10    IF NOT A SUBROUTINE                         FC5A360     9
          2144  5110003215 +                      SA1    =10HSUBROUTINE                                          MAP      2615
                          20267                   SBIT   X2,WB.FPP/WB.SUBP                                       FC5A360    10
          2145  0322002146 +                      PL     X2,CLS5     IF NOT DUMMY ARGUMENT SUBROUTINE            FC5A360    11
                          5110003216 +            SA1    =10HDUMMY-SUBR                                          MAP      2617
                                                                                                                 MAP      2618
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    58
        FIELD PROCESSORS                                              CLS 
  
          2146  43000                    CLS5     MX0    0                                                       MAP      2619
                     6160000012                   SB6    10                                                      MAP      2620
          2147  0100001251 +                      RJ     JIF                                                     MAP      2621
          2150  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2622
                                                                                                                 MAP      2623
          2151  20273                    CLS10    SBIT   X2,WB.FUNP/WB.SUBP                                      FC5A360    12
                     0332002155 +                 MI     X2,CLS20    IF FUNCTION                                 FC5A360    13
          2152  5110003217 +                      SA1    =8HEXTERNAL                                             MAP      2625
                          43000                   MX0    0                                                       MAP      2626
          2153  6160000010                        SB6    8                                                       MAP      2627
                          0100001251 +            RJ     JIF                                                     MAP      2628
          2154  0400000604 +                      EQ     MOC.RB      RETURN                                      MAP      2629
                                                                                                                 MAP      2630
          2155  54121                    CLS20    =A1    A2-WB.W+WC.W   FETCH WORD C                             MAP      2631
                     43071                        XTRCT  WC.FUNT,X1,X1     ISOLATE FUNCTION TYPE                 MAP      2632
          2156  5211002162 +                      SA1    X1+CLSM     FETCH PROPER FUNCTION TYPE MESSAGE          MAP      2633
                          20270                   SBIT   X2,WB.FPP/WB.FUNP                                       FC5A360    14
          2157  0322002160 +                      PL     X2,CLS30    IF NOT DUMMY ARGUMENT FUNCTION              FC5A360    15
                          5110003220 +            SA1    =10HDUMMY-FUNC                                          MAP      2635
                                                                                                                 MAP      2636
          2160  43000                    CLS30    MX0    0                                                       MAP      2637
                     67601                        =B6    -1                                                      MAP      2638
                          0100001251 +            RJ     JIF                                                     MAP      2639
          2161  0400000604 +                      EQ     MOC.RB      RETURN                                      MAP      2640
  
  
  
  
          2162                           CLSM     BSS                                                            MAP      2642
      L      0                                    LOC    0                                                       MAP      2643
      L      0  06251603241117165555     MF.USER  DIS    1,FUNCTION                                              MAP      2644
      L      1  23240124550625160355     MF.STF   DIS    1,STAT FUNC                                             MAP      2645
      L      2  11162422111623110355     MF.LIB   DIS    1,INTRINSIC                                             MAP      2646
                                         .T       IFEQ   TEST,ON                                                 MAP      2647
                                         MF.BEF   DIS    1,**ERR**3  ALWAYS CGS                                  MAP      2648
                                         MF.INL   DIS    1,**ERR**4  ALWAYS CGS                                  MAP      2649
                                         .T       ENDIF                                                          MAP      2650
          2165                                    LOC    *O                                                      MAP      2651
  
  
  
  
                                        **        DOIN - OUTPUT VARIABLE USED AS LOOP CONTROL INDEX.             MAP      2653
                                        *                                                                        MAP      2654
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/DOIN.                          MAP      2655
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      2656
                                        *                                                                        MAP      2657
                                        *         USES   X - ALL  A - 1,2,3,6  B - ALL.                          MAP      2658
                                        *                                                                        MAP      2659
                                        *         CALLS  JIF,SFN.                                                MAP      2660
                                                                                                                 MAP      2661
          2165  11160405304646464646     DOIN     DIS    MAPPML,INDEX-----                                       MAP      2662
                                                                                                                 MAP      2663
          2171  5110000000 X                      SA1    T.SYM                                                   MAP      2664
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      2665
          2172  63271                             =B2    X7+WB.W                                                 MAP      2666
                     53212                        SA2    X1+B2       FETCH SYMTAB (WB.) OF DOGL                  MAP      2667
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    59
        FIELD PROCESSORS                                              DOIN
  
                          43055                   XTRCT  WB.DI,X2,X2                                             MAP      2668
                     22712                        LX7    X2,B1                                                   MAP      2669
                          36327                   IX3    X2+X7       (X3) = INDEX OF SYMTAB ENTRY OF DO-INDEX    MAP      2670
                                   0              ERRNZ  3-Z=SYM                                                 MAP      2671
                               63210              =B2    X1+WA.W                                                 MAP      2672
          2174  53232                             SA2    X3+B2                                                   MAP      2673
                     43022                        XTRCT  WA.SYM,X2,X1      ISOLATE NAME OF DO-INDEX              MAP      2674
          2175  20122                             LX1    WA.SYMP     LEFT JUSTIFY IT                             MAP      2675
                     0100000000 X                 CALL   SFN         SPACE FILL                                  MAP      2676
          2176  20436                             LX4    30                                                      MAP      2677
                     63540                        SB5    X4                                                      MAP      2678
                          10166                   BX1    X6                                                      MAP      2679
                               43000              MX0    0                                                       MAP      2680
          2177  67601                             =B6    -1                                                      MAP      2681
                     0100001251 +                 RJ     JIF                                                     MAP      2682
          2200  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2683
  
  
  
  
                                        **        DOLAB - OUTPUT LABEL DEFINED AS END OF LOOP.                   MAP      2685
                                        *                                                                        MAP      2686
                                        *         IF LOOP IS AN IMPLIED DO IN AN I/O STATEMENT, THIS             MAP      2687
                                        *         FIELD WILL BE BLANK.                                           MAP      2688
                                        *                                                                        MAP      2689
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/DOLAB.                         MAP      2690
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      2691
                                        *                                                                        MAP      2692
                                        *         USES   X - ALL  A - 1,2,3,6  B - ALL.                          MAP      2693
                                        *                                                                        MAP      2694
                                        *         CALLS  JIF,ZTB,PCB.                                            MAP      2695
                                                                                                                 MAP      2696
          2201  14010205145555555555     DOLAB    DIS    MAPPML,LABEL                                            MAP      2697
                                                                                                                 MAP      2698
          2205  20436                             LX4    30                                                      MAP      2699
                     63540                        SB5    X4                                                      MAP      2700
                          5110000000 X            SA1    T.SYM                                                   MAP      2701
          2206  43052                             XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM WORD A OFFSET            MAP      2702
                          63271                   =B2    X7+WB.W     OFFSET TO WORD B                            MAP      2703
                               53212              SA2    X1+B2                                                   MAP      2704
          2207  43060                             XTRCT  WB.TL,X2,X2 ISOLATE SYMORD OF TERMINAL LABEL            MAP      2705
          2210  0312002213 +                      NZ     X2,DOLAB10  IF NOT AN I/O LOOP                          MAP      2706
                          5110003221 +            SA1    =3HI/O                                                  MAP      2707
          2211  66650                             SB6    B5                                                      MAP      2708
                     0100001556 +                 RJ     PCB                                                     MAP      2709
          2212  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2710
                                                                                                                 MAP      2711
          2213  22712                    DOLAB10  LX7    X2,B1                                                   MAP      2712
                     63210                        =B2    X1+WA.W                                                 MAP      2713
                          36327                   IX3    X2+X7       (X3) = INDEX OF SYMTAB ENTRY OF TERMINAL    MAP      2714
                                   0              ERRNZ  3-Z=SYM                                                 MAP      2715
                               53232              SA2    X3+B2                                                   MAP      2716
          2214  43036                             XTRCT  WA.STL,X2,X1      ISOLATE THE LABEL                     MAP      2717
          2215  0100000000 X                      CALL   ZTB         CONVERT 00 CHARS TO BLANKS                  MAP      2718
          2216  10166                             BX1    X6                                                      MAP      2719
                     7100000003                   SX0    3                                                       MAP      2720
                               67601              =B6    -1                                                      MAP      2721
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    60
        FIELD PROCESSORS                                              DOLAB 
  
          2217  0100001251 +                      RJ     JIF                                                     MAP      2722
          2220  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2723
  
  
  
  
                                        **        EPA -  OUTPUT THE NUMBER OF ARGS FOR AN ENTRY POINT.           MAP      2725
                                        *                                                                        MAP      2726
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/EPA.                           MAP      2727
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      2728
                                        *                                                                        MAP      2729
                                        *         CALLS  CDD,PCB.                                                MAP      2730
                                        *                                                                        MAP      2731
                                        *         USES   X - 1,2,3,4,6,7  A - 1,2,3,4,6  B - 2,3,4,5,6.          MAP      2732
                                                                                                                 MAP      2733
          2221  01220723464646555555     EPA      DIS    MAPPML,ARGS---                                          MAP      2734
                                                                                                                 MAP      2735
          2225  20436                             LX4    30                                                      MAP      2736
                     63540                        SB5    X4          PRESERVE FIELD WIDTH                        MAP      2737
                          5120000000 X            SA2    T.SYM                                                   MAP      2738
          2226  43052                             XTRCT  MT.WAI,X7,X7      X7 = *WA* INDEX                       MAP      2739
                          63271                   =B2    X7-WA.W+WB.W                                            MAP      2740
                               53222              SA2    X2+B2       *WB*                                        MAP      2741
          2227  5130000000 X                      SA3    T.ENTP                                                  MAP      2742
                          43057                   XTRCT  WB.PNT,X2,X2      X2 = T.ENTP INDEX + 1                 MAP      2743
                     43100                        MX1    0                                                       FC5A108     8
                          0302002233 +            ZR     X2,EPA10    IF NO ARGS                                  FC5A108     9
          2231  6222777776                        =B2    X2-1                                                    MAP      2744
                          53332                   SA3    X3+B2       T.ENTP HEADER WORD (EH.)                    MAP      2745
                               43060              XTRCT  EH.FPC,X3,X1      X1 = FP COUNT                         MAP      2746
          2233  0100000000 X             EPA10    CALL   CDD                                                     FC5A108    10
          2234  66650                             SB6    B5                                                      MAP      2748
                     10166                        BX1    X6                                                      MAP      2749
                          20144                   LX1    -4*CHAR                                                 MAP      2750
          2235  0100001556 +                      RJ     PCB                                                     MAP      2751
          2236  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2752
  
  
  
  
                                        **        FIRST - DETERMINE STORAGE UNIT OCCUPIED BY FIRST               MAP      2754
                                        *                 ELEMENT OF COMMON-EQUIVALENCE MAP ITEM.                MAP      2755
                                        *                                                                        MAP      2756
                                        *         ENTRY  (OCEI.ADR) = ADDRESS OF TABLE ENTRY FOR ITEM.           FC5A185   517
                                        *                (B6) = CHAR COUNT FOR ITEM.                             FC5A185   518
                                        *                                                                        FC5A185   519
                                        *         EXIT   (B6) = UPDATED BY LENGTH OF FIRST DPC.                  FC5A185   520
                                        *                (FIRSTA) = DPC OF FIRST.                                FC5A185   521
                                        *                (FIRSTA+1) = LENGTH OF FIRST IN CHARS.                  FC5A185   522
                                        *                                                                        FC5A185   523
                                        *         CALLS  CCBB,CDD.                                               FC5A185   524
                                        *                                                                        FC5A185   525
                                        *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,4,6  B - 2,3,4,6.          FC5A185   526
                                                                                                                 FC5A185   527
                                                                                                                 FC5A185   528
          2237  0400402237 +             FIRST    SUBR               ENTRY/EXIT...                               FC5A185   529
          2240  5110001432 +                      SA1    OCEI.ADR                                                FC5A185   530
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    61
        FIELD PROCESSORS                                              FIRST 
  
                          53110                   SA1    X1          X1 = TABLE ENTRY FOR ITEM                   FC5A185   531
                               43044              XTRCT  MT.RA,X1,X6    X6 = RA OF ITEM                          FC5A185   532
                          76110                   =X1    1                                                       FC5A185   533
                               36616              IX6    X1+X6       CONVERT FROM RA TO INDEX                    FC5A185   534
          2242  5160002357 +                      SA6    LASTA       SAVE FOR USE BY *LAST*                      FC5A185   535
                          10166                   BX1    X6                                                      FC5A185   536
                               66560              SB5    B6                                                      FC5A185   537
          2243  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FC5A185   538
          2244  43006                             MX0    CHAR                                                    FC5A185   539
                     20466                        LX4    -CHAR                                                   FC5A185   540
                          15440                   BX4    -X0*X4      ERASE UPPER BLANK                           FC5A185   541
          2245  5110003222 +                      SA1    =1L<                                                    FC5A185   542
                          12141                   BX1    X4+X1       PREFIX WITH <                               FC5A185   543
                               76010              =X0    1                                                       FC5A185   544
          2246  0100001040 +                      RJ     CCBB        DETERMINE LENGTH                            FC5A185   545
          2247  10611                             BX6    X1                                                      FC5A185   546
                     5160002251 +                 SA6    FIRSTA                                                  FC5A185   547
                               76660              SX6    B6                                                      FC5A185   548
          2250  54661                             =A6    A6+1                                                    FC5A185   549
                     66665                        SB6    B6+B5       UPDATE CHARACTER COUNT                      FC5A185   550
                          0400002237 +            EQ     EXIT.                                                   FC5A185   551
                                                                                                                 FC5A185   552
          2251                     2     FIRSTA   BSS    2                                                       FC5A185   553
  
  
  
  
                                        **        FROM - OUTPUT THE LINE NUMBER OF 1ST STATEMENT OF A LOOP.      MAP      2810
                                        *                                                                        MAP      2811
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/FROM.                          MAP      2812
                                        *                (X7) = T.SCR ENTRY.                                     MAP      2813
                                        *                                                                        MAP      2814
                                        *         USES   X - ALL  A - 1,2,3,6  B - ALL.                          MAP      2815
                                        *                                                                        MAP      2816
                                        *         CALLS  JIF,CDD.                                                MAP      2817
                                                                                                                 MAP      2818
          2253  46062217155555555555     FROM     DIS    MAPPML,-FROM                                            MAP      2819
                                                                                                                 MAP      2820
          2257  5110000000 X                      SA1    T.SYM                                                   MAP      2821
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      2822
          2260  6227000002                        =B2    X7+WC.W                                                 MAP      2823
                          53112                   SA1    X1+B2                                                   MAP      2824
                               43052              XTRCT  WC.LINE,X1,X1     ISOLATE LINE NUMBER                   MAP      2825
                          20436                   LX4    30                                                      MAP      2826
                               63540              SB5    X4                                                      MAP      2827
          2262  0100000000 X                      CALL   CDD         CONVERT TO DPC                              MAP      2828
          2263  10166                             BX1    X6                                                      MAP      2829
                     7100000003                   SX0    3                                                       MAP      2830
                               67601              =B6    -1                                                      MAP      2831
          2264  0100001251 +                      RJ     JIF                                                     MAP      2832
          2265  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2833
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    62
        FIELD PROCESSORS                                              LADR
  
                                        **        LADR - OUTPUT THE PROGRAM RELATIVE ADDRESS OF A LABEL.         MAP      2835
                                        *                                                                        MAP      2836
                                        *         IF NO MEANINGFULL ADDRESS CAN BE ASSIGNED TO A LABEL,          MAP      2837
                                        *         ONE OF THE FOLLOWING FLAGS WILL BE OUTPUT :                    MAP      2838
                                        *         *UNDEF*, *NO REFS*, INACTIVE, OR BLANK.                        MAP      2839
                                        *                                                                        MAP      2840
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/LADR.                          MAP      2841
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      2842
                                        *                                                                        MAP      2843
                                        *         USES  X - ALL  A - 1,2,3,6  B - ALL.                           MAP      2844
                                        *                                                                        MAP      2845
                                        *         CALLS  JIF,PIA.                                                MAP      2846
                                                                                                                 MAP      2847
          2266  01040422052323464646     LADR     DIS    MAPPML,ADDRESS---                                       MAP      2848
                                                                                                                 MAP      2849
          2272  5110000000 X                      SA1    T.SYM                                                   MAP      2850
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      2851
          2273  63671                             =B6    X7+WB.W     OFFSET TO WORD B                            MAP      2852
                     53116                        SA1    X1+B6       FETCH WORD B                                MAP      2853
                          20436                   LX4    30                                                      MAP      2854
                               63540              SB5    X4                                                      MAP      2855
          2274  5140003223 +                      CLAS=  X4,WB,(SDEF,NDEF,FDEF)                                  MAP      2856
                          11414                   BX4    X1*X4                                                   MAP      2857
          2275  0314002301 +                      NZ     X4,LADR10   IF DEFINED                                  MAP      2858
                          5110003224 +            SA1    =7H*UNDEF*                                              MAP      2859
          2276  76010                             =X0    1                                                       MAP      2860
                     6160000007                   SB6    7                                                       MAP      2861
          2277  0100001251 +                      RJ     JIF                                                     MAP      2862
          2300  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      2863
                                                                                                                 MAP      2864
          2301  7140020020               LADR10   CLAS=  X4,WB,(CGS,DOGL)                                        FC50628     5
                          11241                   BX2    X4*X1                                                   FC50628     6
                               13424              BX4    X2-X4                                                   FC50628     7
          2302  0304002314 +                      ZR     X4,LADR30   IF DO-TOP LABEL                             FC50628     8
                          20134                   SBIT   X1,WB.1REFP                                             FC50628     9
          2303  0321002307 +                      PL     X1,LADR20   IF REFERENCED                               FC50628    10
                          5110003225 +            SA1    =9H*NO REFS*                                            MAP      2866
          2304  76010                             =X0    1                                                       MAP      2867
                     6160000011                   SB6    9                                                       MAP      2868
          2305  0100001251 +                      RJ     JIF                                                     MAP      2869
          2306  0400000604 +                      EQ     MOC.RB      RETURN                                      MAP      2870
                                                                                                                 MAP      2871
          2307  20124                    LADR20   SBIT   X1,WB.ACTP/WB.1REFP                                     FC50628    11
                     0331002314 +                 MI     X1,LADR30   IF ACTIVE                                   FC50628    12
                               20104              SBIT   X1,WB.SDEFP/WB.ACTP                                     FC50628    13
          2310  0321002314 +                      PL     X1,LADR30   IF NOT EXECUTABLE LABEL                     FC50628    14
                          5110003226 +            SA1    =8HINACTIVE                                             MAP      2873
          2311  76010                             =X0    1                                                       MAP      2874
                     6160000010                   SB6    8                                                       MAP      2875
          2312  0100001251 +                      RJ     JIF                                                     MAP      2876
          2313  0400000604 +                      EQ     MOC.RB      RETURN                                      MAP      2877
                                                                                                                 MAP      2878
          2314  5011000001               LADR30   SA1    A1-WB.W+WC.W      FETCH WORD C                          MAP      2879
                          43044                   XTRCT  WC.RA,X1,X1 ISOLATE RELATIVE ADDRESS                    MAP      2880
          2315  5120000000 X                      SA2    WO.QC                                                   MAP      2881
                          0322002317 +            PL     X2,LADR40   IF NO FATAL ERRORS                          MAP      2882
          2316  43100                             MX1    0                                                       MAP      2883
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    63
        FIELD PROCESSORS                                              LADR
  
                                                                                                                 MAP      2884
          2317  0100000000 X             LADR40   PIA                CONVERT TO OCTAL DPC                        MAP      2885
          2320  20660                             LX6    8*CHAR                                                  MAP      2886
                     10166                        BX1    X6                                                      MAP      2887
                          6155777775              SB5    B5-2                                                    MAP      2888
          2321  7100000003                        =X0    3                                                       MAP      2889
                          67601                   =B6    -1                                                      MAP      2890
          2322  0100001251 +                      RJ     JIF                                                     MAP      2891
          2323  5110000464 +                      SA1    MAP.XS                                                  MAP      2892
                          6160000002              SB6    2                                                       MAP      2893
          2324  0100001556 +                      RJ     PCB                                                     MAP      2894
          2325  0400000604 +                      EQ     MOC.RB      RETURN                                      MAP      2895
  
  
  
  
                                        **        LAST - DETERMINE STORAGE UNIT OCCUPIED BY LAST ELEMENT         MAP      2897
                                        *                OF COMMON-EQUIVALENCE ITEM.                             MAP      2898
                                        *                                                                        MAP      2899
                                        *         ENTRY  (OCEI.ADR) = ADDRESS OF TABLE ENTRY FOR ITEM.           FC5A185   554
                                        *                (LASTA) = FIRST INDEX FOR THIS ITEM. (BINARY)           FC5A185   555
                                        *                (B6) = CHARACTER COUNT.                                 FC5A185   556
                                        *                                                                        FC5A185   557
                                        *         EXIT   (B6) = UPDATED BY LENGTH OF LAST DPC.                   FC5A185   558
                                        *                (LASTA) = DPC OF LAST.                                  FC5A185   559
                                        *                (LASTA+1) = LENGTH OF LAST INDEX.                       FC5A185   560
                                        *                                                                        FC5A185   561
                                        *         CALLS  CDD,CCBB.                                               FC5A185   562
                                        *                                                                        FC5A185   563
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - 2,3,4,6.                    FC5A185   564
                                                                                                                 FC5A185   565
                                                                                                                 FC5A185   566
          2326  0400402326 +             LAST     SUBR               ENTRY/EXIT...                               FC5A185   567
          2327  5130000000 X                      SA3    T.SYM                                                   FC5A185   568
                          5110001432 +            SA1    OCEI.ADR                                                FC5A185   569
          2330  53110                             SA1    X1                                                      FC5A185   570
                                                  LX1    -MT.WAIP                                                FC5A185   571
                     6221000001                   SB2    X1-WA.W+WB.W                                            FC5A185   572
                                   0              ERRNZ  MT.WAIL-18                                              FC5A185   573
                               53332              SA3    X3+B2       X3 = *WB*                                   FC5A185   574
          2331  43071                             XTRCT  WB.MODE,X3,X6     X6 = MODE OF ITEM                     FC5A185   575
                          20361                   LX3    WB.MODEP-WB.ARYP-1                                      FC5A185   576
                               76110              =X1    1                                                       FC5A185   577
          2332  0323002336 +                      PL     X3,LAST10   IF NOT AN ARRAY                             FC5A185   578
                          20313                   LX3    WB.ARYP+1                                               FC5A185   579
                               43057              XTRCT  WB.PNT,X3,X3      X3 = T.DIM INDEX                      FC5A185   580
                          5120000000 X            SA2    T.DIM                                                   FC5A185   581
          2334  63230                             SB2    X3                                                      FC5A185   582
                     53222                        SA2    X2+B2       X2 = *DH*                                   FC5A185   583
                          43044                   XTRCT  DH.PS,X2,X1 X1 = LENGTH                                 FC5A185   584
                                                                                                                 FC5A185   585
          2336  7170000046               LAST10   SX7    1R-                                                     FC5A185   586
                          5170002360 +            SA7    LASTA+1     STORE SEPARATOR FOR NON-CHAR ITEM           FC5A185   587
          2337  7226777773                        =X2    X6-M.DBL                                                FC5A185   588
                          76311                   =X3    2                                                       FC5A185   589
          2340  0302002345 +                      ZR     X2,LAST20   IF DOUBLE PRECISION                         FC5A185   590
                          7226777772              =X2    X6-M.CPLX                                               FC5A185   591
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    64
        FIELD PROCESSORS                                              LAST
  
          2341  0302002345 +                      ZR     X2,LAST20   IF COMPLEX                                  FC5A185   592
                          7226777771              =X2    X6-M.CHAR                                               FC5A185   593
          2342  76310                             =X3    1                                                       FC5A185   594
                     0312002345 +                 NZ     X2,LAST20   IF NOT CHARACTER                            FC5A185   595
                               54331              =A3    A3-WB.W+WC.W                                            FC5A185   596
          2343  43052                             XTRCT  WC.CLEN,X3,X3     X3 = CHARACTER LENGTH                 FC5A185   597
                               76700              =X7    1R:                                                     FC5A185   598
          2344  5170002360 +                      SA7    LASTA+1     STORE SEPARATOR FOR CHAR ITEM               FC5A185   599
                                                                                                                 FC5A185   600
          2345  42513                    LAST20   IX5    X1*X3       X5 = TOTAL LENGTH OF ITEM                   FC5A185   601
                     5130002357 +                 SA3    LASTA                                                   FC5A185   602
                               36235              IX2    X3+X5                                                   FC5A185   603
          2346  76510                             =X5    1                                                       FC5A185   604
                     37125                        IX1    X2-X5       X1 = LAST                                   FC5A185   605
                          66560                   SB5    B6          SAVE B6                                     FC5A185   606
                               66600              =B6    0                                                       FC5A185   607
          2347  37331                             IX3    X3-X1                                                   FC5A185   608
                     0303002355 +                 ZR     X3,LAST30   IF LAST .EQ. FIRST                          FC5A185   609
          2350  0100000000 X                      CALL   CDD         CONVERT TO DPC                              FC5A185   610
          2351  43006                             MX0    CHAR                                                    FC5A185   611
                     20466                        LX4    -CHAR                                                   FC5A185   612
                          15440                   BX4    -X0*X4      ERASE UPPER BLANK                           FC5A185   613
          2352  5110002360 +                      SA1    LASTA+1     X1 = SEPARATOR                              FC5A185   614
                          20166                   LX1    -CHAR                                                   FC5A185   615
                               12141              BX1    X4+X1       PREFIX WITH - (OR :)                        FC5A185   616
          2353  76010                             =X0    1                                                       FC5A185   617
                     0100001040 +                 RJ     CCBB        DETERMINE LENGTH                            FC5A185   618
          2354  10611                             BX6    X1                                                      FC5A185   619
                                                                                                                 FC5A185   620
          2355  5160002357 +             LAST30   SA6    LASTA                                                   FC5A185   621
                          76660                   SX6    B6                                                      FC5A185   622
                               54661              =A6    A6+1                                                    FC5A185   623
          2356  66665                             SB6    B6+B5       UPDATE TOTAL CHARACTER COUNT                FC5A185   624
                     0400002326 +                 EQ     EXIT.                                                   FC5A185   625
                                                                                                                 FC5A185   626
          2357                     2     LASTA    BSS    2                                                       FC5A185   627
  
  
  
  
                                        **        LBL -  OUTPUT A LABEL NUMBER.                                  MAP      2982
                                        *                                                                        MAP      2983
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/LBL.                           MAP      2984
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      2985
                                        *                                                                        MAP      2986
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                        MAP      2987
                                        *                                                                        MAP      2988
                                        *         CALLS  JIF,ZTB.                                                MAP      2989
                                                                                                                 MAP      2990
          2361  14010205145555555555     LBL      DIS    MAPPML,LABEL                                            MAP      2991
                                                                                                                 MAP      2992
          2365  20436                             LX4    30                                                      MAP      2993
                     63540                        SB5    X4                                                      MAP      2994
                          43036                   XTRCT  WA.STL,X7,X1      ISOLATE THE LABEL                     MAP      2995
                     0100000000 X                 CALL   ZTB         CONVERT 00 CHARS TO BLANKS                  MAP      2996
          2367  10166                             BX1    X6                                                      MAP      2997
                     7100000003                   SX0    3                                                       MAP      2998
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    65
        FIELD PROCESSORS                                              LBL 
  
                               67601              =B6    -1                                                      MAP      2999
          2370  0100001251 +                      RJ     JIF                                                     MAP      3000
          2371  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3001
  
  
  
  
                                        **        LDEF - OUTPUT SOURCE LINE NUMBER WHERE A LABEL WAS DEFINED.    MAP      3003
                                        *                                                                        MAP      3004
                                        *         IF LABEL WAS NOT DEFINED, *UNDEF* WILL BE OUTPUT.              MAP      3005
                                        *                                                                        MAP      3006
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/LDEF.                          MAP      3007
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      3008
                                        *                                                                        MAP      3009
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                        MAP      3010
                                        *                                                                        MAP      3011
                                        *         CALLS  JIF,CDD.                                                MAP      3012
                                                                                                                 MAP      3013
          2372  46464646040506555555     LDEF     DIS    MAPPML,----DEF                                          MAP      3014
                                                                                                                 MAP      3015
          2376  5110000000 X                      SA1    T.SYM                                                   MAP      3016
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3017
          2377  63671                             =B6    X7+WB.W     OFFSET TO WORD B                            MAP      3018
                     53116                        SA1    X1+B6       FETCH WORD B                                MAP      3019
                          20436                   LX4    30                                                      MAP      3020
                               63540              SB5    X4          FIELD WIDTH                                 MAP      3021
          2400  5140003223 +                      CLAS=  X4,WB,(SDEF,NDEF,FDEF)                                  MAP      3022
                          11414                   BX4    X1*X4                                                   MAP      3023
          2401  0314002405 +                      NZ     X4,LDEF10   IF DEFINED                                  MAP      3024
                          5110003224 +            SA1    =7H*UNDEF*                                              MAP      3025
          2402  76010                             =X0    1                                                       MAP      3026
                     6160000007                   SB6    7                                                       MAP      3027
          2403  0100001251 +                      RJ     JIF                                                     MAP      3028
          2404  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3029
                                                                                                                 MAP      3030
          2405  5011000001               LDEF10   SA1    A1-WB.W+WC.W      FETCH WORD C                          MAP      3031
                          43052                   XTRCT  WC.LINE,X1,X1     ISOLATE LINE NUMBER                   MAP      3032
                     0100000000 X                 CALL   CDD         CONVERT TO DPC                              MAP      3033
          2407  10166                             BX1    X6                                                      MAP      3034
                     7100000003                   SX0    3                                                       MAP      3035
                               67601              =B6    -1                                                      MAP      3036
          2410  0100001251 +                      RJ     JIF                                                     MAP      3037
          2411  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3038
  
  
  
  
                                        **        NAM -  OUTPUT THE NAME OF A SYMBOL.                            MAP      3040
                                        *                                                                        MAP      3041
                                        *         THIS ROUTINE WILL TAKE THE SYMBOL IN UPPER 42 BITS             MAP      3042
                                        *         OF X7 AND FORMAT IT FOR PCB.                                   MAP      3043
                                        *                                                                        MAP      3044
                                        *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/NAM.                        MAP      3045
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      3046
                                        *                                                                        MAP      3047
                                        *         USES   X - ALL  A - 1,2,3,6  B - ALL.                          MAP      3048
                                        *                                                                        MAP      3049
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    66
        FIELD PROCESSORS                                              NAM 
  
                                        *         CALLS  JIF,SFN.                                                MAP      3050
                                                                                                                 MAP      3051
          2412  16011505464646464646     NAM      DIS    MAPPML,NAME------                                       MAP      3052
                                                                                                                 MAP      3053
          2416  43022                             XTRCT  MT.SYM,X7,X1      ISOLATE NAME                          MAP      3054
                               20122              LX1    -MT.SYML    LEFT JUSTIFY IT                             MAP      3055
          2417  0100000000 X                      CALL   SFN         SPACE FILL                                  MAP      3056
          2420  10166                             BX1    X6                                                      MAP      3057
                     20436                        LX4    30                                                      MAP      3058
                          63540                   SB5    X4                                                      MAP      3059
                               43000              MX0    0                                                       MAP      3060
          2421  67601                             =B6    -1                                                      MAP      3061
                     0100001251 +                 RJ     JIF                                                     MAP      3062
          2422  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3063
  
  
  
  
                                        **        NAME - DETERMINE NAME OF COMMON-EQUIVALENCE ITEM.              MAP      3065
                                        *                                                                        MAP      3066
                                        *         ENTRY  (OCEI.ADR) = ADDRESS OF TABLE ENTRY FOR ITEM.           FC5A185   628
                                        *                                                                        FC5A185   629
                                        *         EXIT   (B6) = LENGTH OF NAME IN CHARS.                         FC5A185   630
                                        *                (NAMEA) = DPC OF NAME.                                  FC5A185   631
                                        *                (NAMEA+1) = B6                                          FC5A185   632
                                        *                                                                        FC5A185   633
                                        *         CALLS  SFN,CCBB.                                               FC5A185   634
                                        *                                                                        FC5A185   635
                                        *         USES   X - 0,1,2,3,4,6,7  A - 1,2,6  B - 2,3,6.                FC5A185   636
                                                                                                                 FC5A185   637
                                                                                                                 FC5A185   638
          2423  0400402423 +             NAME     SUBR               ENTRY/EXIT...                               FC5A185   639
          2424  5110001432 +                      SA1    OCEI.ADR                                                FC5A185   640
                          5120000000 X            SA2    T.SYM                                                   FC5A185   641
          2425  53110                             SA1    X1          X1 = TABLE ENTRY OF ITEM                    FC5A185   642
                                                  LX1    -MT.WAIP                                                FC5A185   643
                     63210                        SB2    X1                                                      FC5A185   644
                                   0              ERRNZ  MT.WAIL-18                                              FC5A185   645
                          53222                   SA2    X2+B2       X2 = *WA*                                   FC5A185   646
                               43152              MX1    WA.SYML                                                 FC50297    30
                                                  HX2    WA.SYM                                                  FC50297    31
          2426  11112                             BX1    X1*X2       EXTRACT DPC OF NAME                         FC50297    32
                     0100000000 X                 CALL   SFN         SPACE FILL                                  FC5A185   649
          2427  76010                             =X0    1                                                       FC5A185   650
                     10166                        BX1    X6                                                      FC5A185   651
                          0100001040 +            RJ     CCBB        DETERMINE LENGTH                            FC5A185   652
          2430  5160002432 +                      SA6    NAMEA                                                   FC5A185   655
                          76660                   SX6    B6                                                      FC5A185   656
                               54661              =A6    A6+1                                                    FC5A185   657
          2431  0400002423 +                      EQ     EXIT.                                                   FC5A185   658
                                                                                                                 FC5A185   659
          2432                     2     NAMEA    BSS    2                                                       FC5A185   660
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    67
        FIELD PROCESSORS                                              NOP 
  
                                        **        NOP -  DO NOTHING AT ALL.                                      MAP      3109
                                        *                                                                        MAP      3110
                                        *         USED TO EFFECTIVELY DELETE A FIELD FROM A MAP                  MAP      3111
                                        *         WHEN PAGE WIDTH LIMITATIONS WONT ALLOW ENTIRE                  MAP      3112
                                        *         MAP TO BE PRINTED.                                             MAP      3113
                                        *                                                                        MAP      3114
          2434  24101123552310172514     NOP      DIS    MAPPML,THIS SHOULD NEVER BE PRINTED                     MAP      3115
                                                                                                                 MAP      3116
          2440  0400000604 +                      EQ     MOC.RB                                                  MAP      3117
  
  
  
  
                                        **        PRP -  OUTPUT PROPERTIES OF DO LOOPS, VARIABLES, OR LABELS.    MAP      3119
                                        *                                                                        MAP      3120
                                        *         THIS ROUTINE MAKES ONE PASS THROUGH A TABLE UNIQUE TO          MAP      3121
                                        *         THE MAP SEGMENT BEING PROCESSED TO OUTPUT PROPERTIES.          MAP      3122
                                        *         THE ACTION OF THE PROCESSOR IS DETERMINED BY FIELDS IN         MAP      3123
                                        *         THE 1ST WORD OF EACH 2-WORD TABLE ENTRY.  A MAXIMUM OF         MAP      3124
                                        *         TWO BITS MUST BE TESTED TO DETERMINE WHETHER A PROPERTY        MAP      3125
                                        *         IS TO BE PRINTED OR NOT.  IN ADDITION, CERTAIN ACTIONS         MAP      3126
                                        *         MAY NEED TO BE TAKEN BEFORE PRINTING.  THIS INFORMATION        MAP      3127
                                        *         (ALONG WITH THE LENGTH IN CHARS OF THE PROPERTY) IS            MAP      3128
                                        *         CONTAINED IN THE 1ST WORD OF EACH TABLE ENTRY AS FOLLOWS :     MAP      3129
                                        *                                                                        MAP      3130
                                        *         18/BIT1,1/VAL1,18/BIT2,1/VAL2,18/LABEL,4/LENGTH.               MAP      3131
                                        *                                                                        MAP      3132
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/PRP.                           MAP      3133
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      3134
                                        *                (X5) = CURRENT MST OFFSET.                              MAP      3135
                                        *                                                                        MAP      3136
                                        *         USES   ALL EXCEPT A5.                                          MAP      3137
                                        *                                                                        MAP      3138
                                        *         CALLS  JIF,PCB.                                                MAP      3139
                                                                                                                 MAP      3140
          2441  20221720052224110523     PRP      DIS    MAPPML,PROPERTIES--------------------                   MAP      3141
                                                                                                                 MAP      3142
          2445  5110000000 X                      SA1    T.SYM                                                   MAP      3143
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3144
          2446  63271                             =B2    X7+WB.W                                                 MAP      3145
                     53112                        SA1    X1+B2                                                   MAP      3146
                          20436                   LX4    30                                                      MAP      3147
                               63440              SB4    X4          SAVE COPY OF THE FIELD WIDTH                MAP      3148
          2447  66700                             =B7    0           FLAG                                        MAP      3149
                     66500                        =B5    0           CHARACTER COUNTER                           MAP      3150
                          5245002504 +            SA4    PRPPTA+X5   X4 = PROPER TABLE ADDRESS                   MAP      3151
                                                  IFEQ   TEST,ON,1                                               MAP      3152
                                                  ZR     X4,"BLOWUP" IF BAD X5                                   MAP      3153
          2450  5244777775                        SA4    X4-2        INITIALIZE A4                               MAP      3154
                          10511                   BX5    X1                                                      MAP      3155
                                                                                                                 MAP      3156
          2451  5044000002               PRP30    SA4    A4+2                                                    MAP      3157
                          0304002467 +            ZR     X4,PRP50    IF AT END OF TABLE                          MAP      3158
          2452  20422                             LX4    18                                                      MAP      3159
                     63240                        SB2    X4          ISOLATE 1ST BIT NUMBER                      MAP      3160
                          20401                   LX4    1                                                       MAP      3161
                               76010              =X0    1                                                       MAP      3162
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    68
        FIELD PROCESSORS                                              PRP 
  
          2453  11204                             BX2    X0*X4       ISOLATE BIT VALUE THAT TRIGGERS SUPPRESS    MAP      3163
                     22222                        LX2    B2,X2       POSITION IT                                 MAP      3164
                          22020                   LX0    B2,X0                                                   MAP      3165
                               11105              BX1    X0*X5       ISOLATE ACTUAL BIT VALUE                    MAP      3166
          2454  13112                             BX1    X1-X2                                                   MAP      3167
                     0301002451 +                 ZR     X1,PRP30    IF SATISFIES SUPPRESS CRITERION             MAP      3168
                               20422              LX4    18                                                      MAP      3169
          2455  63240                             SB2    X4          ISOLATE 2ND BIT NUMBER                      MAP      3170
                     20401                        LX4    1                                                       MAP      3171
                          76010                   =X0    1                                                       MAP      3172
                               11204              BX2    X0*X4       ISOLATE BIT VALUE THAT TRIGGERS SUPPRESS    MAP      3173
          2456  22222                             LX2    B2,X2       POSITION IT                                 MAP      3174
                     22020                        LX0    B2,X0                                                   MAP      3175
                          11105                   BX1    X0*X5       ISOLATE ACTUAL BIT VALUE                    MAP      3176
                               13112              BX1    X1-X2                                                   MAP      3177
          2457  0301002451 +                      ZR     X1,PRP30    IF SATISFIES SUPPRESS CRITERION             MAP      3178
                          20422                   LX4    18                                                      MAP      3179
                               63240              SB2    X4          ADDRESS OF CODE TO EXECUTE                  MAP      3180
          2460  0222000000                        JP     B2                                                      MAP      3181
                                                                                                                 MAP      3182
          2461  43004                    PRP40    MX0    4                                                       MAP      3183
                     11104                        BX1    X0*X4       ISOLATE PROPERTY LENGTH                     MAP      3184
                          20104                   LX1    4                                                       MAP      3185
                               63617              SB6    X1+B7       ADD LENGTH OF / (IF ANY)                    MAP      3186
          2462  66556                             SB5    B5+B6       ACCUMULATE SUM                              MAP      3187
                                                  IFEQ   TEST,ON,2                                               MAP      3188
                                                  SB2    B4-B5                                                   MAP      3189
                                                  MI     B2,"BLOWUP" IF EXCEEDING FIELD WIDTH                    MAP      3190
                     5014000001                   SA1    A4+1                                                    MAP      3191
          2463  0470002465 +                      ZR     B7,PRP45    IF NOTHING PREVIOUSLY OUTPUT                MAP      3192
                          7100000005              SX0    5                                                       MAP      3193
          2464  13110                             BX1    X1-X0       CHANGE BLANK TO /                           MAP      3194
                     20166                        LX1    -CHAR                                                   MAP      3195
                                                                                                                 MAP      3196
          2465  0100001556 +             PRP45    RJ     PCB                                                     MAP      3197
          2466  66710                             =B7    1           SET THE FLAG                                MAP      3198
                     0400002451 +                 EQ     PRP30       CONTINUE                                    MAP      3199
                                                                                                                 MAP      3200
          2467  67645                    PRP50    SB6    B4-B5       NUMBER OF UNUSED COLUMNS                    MAP      3201
                     5110000464 +                 SA1    MAP.XS                                                  MAP      3202
          2470  0100001556 +                      RJ     PCB                                                     MAP      3203
          2471  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3204
  
  
  
  
                                        **        THE FOLLOWING CODE IS EXECUTED ONLY IF WB.LEV IS               MAP      3206
                                        *         SET. (WHEN PROCESSING VARIABLE MAP)                            MAP      3207
                                                                                                                 MAP      3208
          2472  10155                    PRP60    BX1    X5                                                      MAP      3209
                     43072                        XTRCT  WB.LEVN,X1,X1      ISOLATE THE LEVEL NUMBER             MAP      3210
          2473  7211000033                        SX1    X1+33B      CONVERT TO DPC                              MAP      3211
                          54241                   =A2    A4+1                                                    MAP      3212
                               43006              MX0    CHAR                                                    MAP      3213
          2474  20052                             LX0    -3*CHAR                                                 MAP      3214
                     15220                        BX2    -X0*X2      ERASE OLD LEVEL NUMBER                      MAP      3215
                          20144                   LX1    6*CHAR                                                  MAP      3216
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    69
        FIELD PROCESSORS                                              PRP 
  
                               12712              BX7    X1+X2       APPEND NEW LEVEL NUMBER                     MAP      3217
          2475  54720                             SA7    A2                                                      MAP      3218
                     0400002461 +                 EQ     PRP40                                                   MAP      3219
  
  
  
  
                                        **        THE FOLLOWING CODE IS EXECUTED ONLY IF THE                     MAP      3221
                                        *         LABEL MAP IS BEING PROCESSED.                                  MAP      3222
                                                                                                                 MAP      3223
          2476  43004                    PRP70    MX0    4                                                       MAP      3224
                     11104                        BX1    X0*X4       ISOLATE LENGTH                              MAP      3225
                          20104                   LX1    4                                                       MAP      3226
                               63610              SB6    X1                                                      MAP      3227
          2477  5014000001                        SA1    A4+1                                                    MAP      3228
                          66540                   SB5    B4                                                      MAP      3229
                               43000              MX0    0                                                       MAP      3230
          2500  0100001251 +                      RJ     JIF                                                     MAP      3231
          2501  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3232
                                                                                                                 MAP      3233
                                        **        THE FOLLOWING CODE IS EXECUTED ONLY DURING VARIABLE MAP OUTPUT MAP      3234
                                        *         IF A SYMBOL IS UNUSED.                                         MAP      3235
                                                                                                                 MAP      3236
          2502  7110000200               PRP80    CLAS=  X1,WB,(DEF)                                             MAP      3237
                          12515                   BX5    X1+X5       TURN ON THE *DEF* BIT                       MAP      3238
          2503  0400002461 +                      EQ     PRP40                                                   MAP      3239
  
  
  
  
                                        **        TABLE OF PRIORITY TABLE ADDRESSES.                             MAP      3241
                                                                                                                 MAP      3242
                                  -1     STO      SET    -1                                                      MAP      3243
          2504                           PRPPTA   BSS    0                                                       MAP      3244
      L      0                                    LOC    0                                                       MAP      3245
      L      0  00000000000000002515 +            DDTE   TVARP,(VFD    60/PRPA)        VARIABLES                 MAP      3246
      L      1  00000000000000000000              DDTE   TSCP,(VFD    60/0)                                      MAP      3247
      L      2  00000000000000000000              DDTE   TPROP,(VFD    60/0)                                     MAP      3248
      L      3  00000000000000002545 +            DDTE   TLABP,(VFD    60/PRPC)        LABELS                    MAP      3249
      L      4  00000000000000000000              DDTE   TENTP,(VFD    60/0)                                     MAP      3250
      L      5  00000000000000000000              DDTE   TNAMP,(VFD    60/0)                                     MAP      3251
      L      6  00000000000000002534 +            DDTE   TDOLP,(VFD    60/PRPB)        DO-LOOPS                  MAP      3252
      L      7  00000000000000000000              DDTE   TCOMP,(VFD    60/0)                                     MAP      3253
      L     10  00000000000000002554 +            DDTE   TIOP,(VFD    60/PRPD)         I/O UNITS                 MAP      3254
      L   2515                                    LOC    *O                                                      MAP      3255
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    70
        FIELD PROCESSORS                                              PRP 
  
                                        **        THE FOLLOWING CODE DEFINES ONE TABLE FOR EACH MAP              MAP      3257
                                        *         SEGMENT THAT USES THIS PROCESSOR.                              MAP      3258
                                                                                                                 MAP      3259
          2515  0000400000200005156 +    PRPA     VFD    18/WB.SFAP,1/0,18/WB.SFAP,1/0,18/PRP50,4/0              FC50326    51
                                  00
          2516  55555555555555555555              DATA   10H                                                     FC50326    52
          2517  0000054000032005204 +             VFD    18/WB.VARP,1/1,18/WB.NVARP,1/1,18/PRP80,4/6             FC50326    53
                                  06
          2520  25162523050455555555              DATA   10HUNUSED                                               MAP      3261
                                                                                                                 MAP      3262
          2521  0000074000102005142 +             VFD    18/WB.DEFP,1/1,18/WB.FPP,1/1,18/PRP40,4/3               MAP      3263
                                  03
          2522  25160455555555555555              DATA   10HUND                                                  MAP      3264
                                                                                                                 MAP      3265
          2523  0000110000044005142 +             VFD    18/WB.EQVP,1/0,18/WB.EQVP,1/0,18/PRP40,4/3              MAP      3266
                                  03
          2524  05212655555555555555              DATA   10HEQV                                                  MAP      3267
                                                                                                                 MAP      3268
          2525  0000370000076005142 +             VFD    18/WB.1REFP,1/0,18/WB.COMP,1/1,18/PRP40,4/3             FC5A229     5
                                  03
          2526  47234755555555555555              DATA   10H*S*                                                  FC5A229     6
                                                                                                                 MAP      3271
          2527  0000330000154005164 +             VFD    18/WB.LEVP,1/0,18/WB.LEVP,1/0,18/PRP60,4/4              MAP      3272
                                  04
          2530  14052655555555555555              DATA   10HLEV                                                  MAP      3273
                                                                                                                 MAP      3274
          2531  0000350000164005142 +             VFD    18/WB.SAVEP,1/0,18/WB.SAVEP,1/0,18/PRP40,4/3            MAP      3275
                                  03
          2532  23012655555555555555              DATA   10HSAV                                                  MAP      3276
                                                                                                                 MAP      3277
          2533  00000000000000000000              DATA   0                                                       MAP      3278
  
  
  
  
          2534  0000160000070005142 +    PRPB     VFD    18/WB.DLERP,1/0,18/WB.DLERP,1/0,18/PRP40,4/4            MAP      3280
                                  04
          2535  30220506555555555555              DATA   10HXREF                                                 MAP      3281
                                                                                                                 MAP      3282
          2536  0000210000104005142 +             VFD    18/WB.DLENP,1/0,18/WB.DLENP,1/0,18/PRP40,4/5            MAP      3283
                                  05
          2537  05162422315555555555              DATA   10HENTRY                                                MAP      3284
                                                                                                                 MAP      3285
          2540  0000170000074005142 +             VFD    18/WB.DLNIP,1/0,18/WB.DLNIP,1/0,18/PRP40,4/5            MAP      3286
                                  05
          2541  17252405225555555555              DATA   10HOUTER                                                MAP      3287
                                                                                                                 MAP      3288
          2542  0000200000100005142 +             VFD    18/WB.DLEXP,1/0,18/WB.DLEXP,1/0,18/PRP40,4/4            MAP      3289
                                  04
          2543  05301124555555555555              DATA   10HEXIT                                                 MAP      3290
                                                                                                                 MAP      3291
          2544  00000000000000000000              DATA   0                                                       MAP      3292
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    71
        FIELD PROCESSORS                                              PRP 
  
          2545  0000240000120005174 +   PRPC      VFD    18/WB.FDEFP,1/0,18/WB.FDEFP,1/0,18/PRP70,4/6            MAP      3294
                                  06
          2546  06172215012455555555              DATA   10HFORMAT                                               MAP      3295
                                                                                                                 MAP      3296
          2547  0000270000134005174 +             VFD    18/WB.NDEFP,1/0,18/WB.NDEFP,1/0,18/PRP70,4/6            MAP      3297
                                  06
          2550  16171646053055555555              DATA   10HNON-EX                                               MAP      3298
                                                                                                                 MAP      3299
          2551  0000050000024005174 +             VFD    18/WB.DOTP,1/0,18/WB.DOTP,1/0,18/PRP70,4/7              MAP      3300
                                  07
          2552  04174624052215555555              DATA   10HDO-TERM                                              MAP      3301
                                                                                                                 MAP      3302
          2553  00000000000000000000              DATA   0                                                       MAP      3303
                                                                                                                 MAP      3304
          2554  0000650000324005142 +    PRPD     VFD    18/WB.AUXP,1/0,18/WB.AUXP,1/0,18/PRP40,4/3              MAP      3305
                                  03
          2555  01253055555555555555              DATA   10HAUX                                                  MAP      3306
                                                                                                                 MAP      3307
          2556  0000730000354005142 +             VFD    18/WB.FMTP,1/0,18/WB.FMTP,1/0,18/PRP40,4/3              MAP      3308
                                  03
          2557  06152455555555555555              DATA   10HFMT                                                  MAP      3309
                                                                                                                 MAP      3310
          2560  0000720000350005142 +             VFD    18/WB.BINP,1/0,18/WB.BINP,1/0,18/PRP40,4/3              MAP      3311
                                  03
          2561  02111655555555555555              DATA   10HBIN                                                  MAP      3312
                                                                                                                 MAP      3313
          2562  0000710000344005142 +             VFD    18/WB.DIRP,1/0,18/WB.DIRP,1/0,18/PRP40,4/3              MAP      3314
                                  03
          2563  04112255555555555555              DATA   10HDIR                                                  MAP      3315
                                                                                                                 MAP      3316
          2564  0000700000340005142 +             VFD    18/WB.SEQP,1/0,18/WB.SEQP,1/0,18/PRP40,4/3              MAP      3317
                                  03
          2565  23052155555555555555              DATA   10HSEQ                                                  MAP      3318
                                                                                                                 MAP      3319
          2566  0000670000334005142 +             VFD    18/WB.BUFP,1/0,18/WB.BUFP,1/0,18/PRP40,4/3              MAP      3320
                                  03
          2567  02250655555555555555              DATA   10HBUF                                                  MAP      3321
                                                                                                                 MAP      3322
          2570  00000000000000000000              DATA   0                                                       MAP      3323
  
  
  
  
                                        **        REF -  OUTPUT REFERENCES TO A SYMBOL.                          MAP      3325
                                        *                                                                        MAP      3326
                                        *         EACH REFERENCE TAKES UP MAPCPR COLUMNS. CODE WILL WORK         MAP      3327
                                        *         PROPERLY ONLY IF MAPCPR IS BETWEEN 7 AND 10 INCL.              MAP      3328
                                        *                                                                        MAP      3329
                                        *         ENTRY  (X7) = ENTRY OF T.SCR.                                  MAP      3330
                                        *                (X5) = CURRENT MST OFFSET.                              MAP      3331
                                        *                                                                        MAP      3332
                                        *         USES   ALL REGISTERS.                                          MAP      3333
                                        *                                                                        MAP      3334
                                        *         CALLS  PCB,CDD,WLINE,GBL.                                      MAP      3335
                                                                                                                 MAP      3336
          2571  22050605220516030523     REF      DIS    MAPPML,REFERENCES------                                 MAP      3337
                                                                                                                 MAP      3338
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    72
        FIELD PROCESSORS                                              REF 
  
          2575  7160002657 +                      PLUG   AT=REFP1,TO=REF15,,VOID=NO                              FC5A203     4
          2577  5110000000 X                      SA1    MOD                                                     MAP      3339
                          20160                   SBIT   X1,MO.FUNP                                              FC50464    27
          2600  0321002611 +                      PL     X1,REF3     IF NOT FUNCTION                             FC50464    28
                          73650                   =X6    X5-TVARP                                                MAP      3342
          2601  0316002604 +                      NZ     X6,REF1     IF NOT PROCESSING VARIABLE MAP              FC50464    29
                          5110002717 +            PLUG   AT=REFP2,FROM=REFPL,,,VOID=NO                           FC5A203     7
          2603  0400002607 +                      EQ     REF2                                                    FC50464    30
                                                                                                                 FC5A203     9
          2604  7265777773               REF1     =X6    X5-TENTP                                                FC50464    31
                          0316002611 +            NZ     X6,REF3     IF NOT PROCESSING ENTRY MAP                 FC50464    32
          2605  5110002720 +                      PLUG   AT=REFP2,FROM=REFMI,,,VOID=NO                           FC5A203    12
                                                                                                                 FC5A203    13
          2607  5110002716 +             REF2     PLUG   AT=REFP1,FROM=REFNOP,,,VOID=NO                          FC50464    33
                                                                                                                 FC50464    34
          2611  0100001200 +             REF3     RJ     GBL         GET BUFFER LENGTH                           FC50464    35
          2612  10622                             BX6    X2                                                      MAP      3355
                     5160002713 +                 SA6    REFICC      SAVE INITIAL CHARACTER COUNT                MAP      3356
          2613  5130000000 X                      SA3    CO.PW                                                   MAP      3357
                          73330                   SX3    X3          STRIP CONNECT BIT                           FC5A187    19
                               37332              IX3    X3-X2       # COLUMNS REF CAN USE                       MAP      3358
          2614  7110000007                        SX1    MAPCPR                                                  MAP      3359
                          27303                   IX3    X3/X1       X3 = # OF REFERENCES PER LINE               MAP      3360
                     7213777775                   SX1    X3-MAPMRPL                                              MAP      3361
          2617  0321002641 +                      PL     X1,REF5     IF ROOM FOR 2 OR MORE REFERENCES PER LINE   MAP      3362
                          5170002712 +            SA7    REFSAV+2    PRESERVE T.SCR ENTRY                        MAP      3363
          2620  5110001573 +                      SA1    PCB.WO                                                  MAP      3364
                          7211000002              SX1    X1+2                                                    MAP      3365
          2621  10511                             WLINE  MAPBUFF-1,X1,0,0    FLUSH THE BUFFER                    MAP      3366
          2631  5110000464 +                      SA1    MAP.XS                                                  MAP      3367
                          6160000012              SB6    10                                                      MAP      3368
          2632  0100001556 +                      RJ     PCB                                                     MAP      3369
          2633  5130000000 X                      SA3    CO.PW                                                   MAP      3370
                          7233777765              SX3    X3-10                                                   MAP      3371
          2634  7110000007                        SX1    MAPCPR                                                  MAP      3372
                          27303                   IX3    X3/X1                                                   MAP      3373
                     7160000012                   SX6    10                                                      MAP      3374
          2637  5160002713 +                      SA6    REFICC                                                  MAP      3375
                          5110002712 +            SA1    REFSAV+2                                                MAP      3376
          2640  10711                             BX7    X1          RESTORE T.SCR ENTRY                         MAP      3377
                                                                                                                 MAP      3378
          2641  10633                    REF5     BX6    X3                                                      MAP      3379
                     5160002715 +                 SA6    REFRPL      SAVE IT                                     MAP      3380
          2642  5110000000 X                      SA1    T.SYM                                                   MAP      3381
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3382
          2643  63270                             =B2    X7+WA.W                                                 MAP      3383
                     53112                        SA1    X1+B2       FETCH WORD A                                MAP      3384
                                                  LX1    -WA.HASHP                                               MAP      3385
                          15510                   BX5    -X0*X1      ISOLATE LINK TO HEAD OF REF CHAIN           MAP      3386
          2644  0305000604 +                      ZR     X5,MOC.RB   IF NO REFERENCES                            MAP      3387
                          63530                   SB5    X3          COUNTER                                     MAP      3388
                                                                                                                 MAP      3389
          2645  5110000464 +             REF10    SA1    MAP.XS                                                  MAP      3390
                          6160000000              SB6    MAPCPR-MAPMCPR                                          MAP      3391
                                                  IFEQ   TEST,ON,1                                               MAP      3392
                                                  MI     B6,"BLOWUP" IF MAPCPR BAD                               MAP      3393
          2646  0100001556 +                      RJ     PCB                                                     MAP      3394
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    73
        FIELD PROCESSORS                                              REF 
  
          2647  43046                             MX0    -XR.LINEL                                               MAP      3395
                     5110000000 X                 SA1    T.REF                                                   MAP      3396
                               63250              SB2    X5                                                      MAP      3397
          2650  53112                             SA1    X1+B2       FETCH T.REF ENTRY                           MAP      3398
                     20166                        LX1    -XR.LINEP                                               MAP      3399
                          15110                   BX1    -X0*X1      ISOLATE LINE NUMBER OF REFERENCE            MAP      3400
          2651  0100000000 X                      CALL   CDD         CONVERT TO DPC                              MAP      3401
          2652  20614                             LX6    2*CHAR                                                  MAP      3402
                     54110                        SA1    A1          RESTORE T.REF ENTRY                         MAP      3403
                          10311                   BX3    X1                                                      MAP      3404
                               43252              MX2    -XR.TAGL                                                MAP      3405
          2653  20322                             LX3    -XR.TAGP                                                MAP      3406
                     15532                        BX5    -X2*X3      ISOLATE LINK TO NEXT REFERENCE              MAP      3407
                                                                                                                 MAP      3408
          2654  0400002657 +             REFP1    EQ     REF15                                                   MAP      3409
                                        +         LX3    XR.TAGP-XR.MEDFP-1                                      MAP      3410
                                                                                                                 MAP      3411
          2655  0323002657 +             REFP2    PL     X3,REF15                                                MAP      3412
          2656  0305000604 +            +         ZR     X5,MOC.RB                                               MAP      3413
                          0400002645 +            EQ     REF10                                                   MAP      3414
                                                                                                                 MAP      3415
          2657  43266                    REF15    MX2    -XR.USEL                                                MAP      3416
                                                  LX1    -XR.USEP                                                MAP      3417
                     15112                        BX1    -X2*X1      ISOLATE USAGE LETTER                        MAP      3418
                          7221777722              SX2    X1-55B                                                  MAP      3419
          2660  0302002663 +                      ZR     X2,REF20    IF BLANK USAGE LETTER                       MAP      3420
                          43260                   MX2    -2*CHAR                                                 MAP      3421
                               11626              BX6    X2*X6       ERASE LOWER BLANKS OF LINE NUMBER           MAP      3422
          2661  7120000050                        SX2    1R/                                                     MAP      3423
                          20206                   LX2    CHAR                                                    MAP      3424
                               12112              BX1    X1+X2       COMBINE / AND USAGE LETTER                  MAP      3425
          2662  12616                             BX6    X1+X6       APPEND TO LINE NUMBER                       MAP      3426
                                                                                                                 MAP      3427
          2663  6160000007               REF20    SB6    MAPMCPR                                                 MAP      3428
                          10166                   BX1    X6                                                      MAP      3429
                               20122              LX1    60-6*MAPMCPR                                            MAP      3430
          2664  0100001556 +                      RJ     PCB                                                     MAP      3431
          2665  0305000604 +                      ZR     X5,MOC.RB   IF LINK IS ZERO                             MAP      3432
                          67551                   =B5    B5-1                                                    MAP      3433
          2666  0550002645 +                      NZ     B5,REF10    IF LINE NOT FINISHED                        MAP      3434
                          5120001573 +            SA2    PCB.WO                                                  MAP      3435
          2667  7222000002                        =X2    X2+2        # OF WORDS TO OUTPUT                        MAP      3436
                          73750                   SAVR   (X5,B5),REFSAV                                          MAP      3437
                          10522                   WLINE  MAPBUFF-1,X2,0,0  OUTPUT THE LINE                       MAP      3438
          2702  5110002711 +                      RESR   (X5,B5),REFSAV                                          MAP      3439
          2704  5120002713 +                      SA2    REFICC      # OF BLANKS TO OUTPUT                       MAP      3440
                          63620                   SB6    X2                                                      MAP      3441
          2705  5110000464 +                      SA1    MAP.XS                                                  MAP      3442
                          0100001556 +            RJ     PCB                                                     MAP      3443
          2706  5110002715 +                      SA1    REFRPL                                                  MAP      3444
                          63510                   SB5    X1                                                      MAP      3445
          2707  0400002645 +                      EQ     REF10       CONTINUE                                    MAP      3446
                                                                                                                 MAP      3447
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    74
        FIELD PROCESSORS                                              REF 
  
          2710                     3     REFSAV   BSS    3           STORAGE FOR POINTERS                        MAP      3449
                                                                                                                 MAP      3450
          2713                     1     REFICC   BSS    1           INITIAL CHARACTER COUNT                     MAP      3451
          2714                     1     REFPF    BSS    1           PRINT FLAG CELL                             MAP      3452
          2715                     1     REFRPL   BSS    1           REFERENCES PER LINE                         MAP      3453
          2716  46000                    REFNOP   NO                                                             MAP      3454
          2717  0323002657 +             REFPL    PL     X3,REF15                                                MAP      3455
          2720  0333002657 +             REFMI    MI     X3,REF15                                                MAP      3456
  
  
  
  
                                        **        SZE -  OUTPUT THE SIZE OF A VARIABLE.                          MAP      3458
                                        *                                                                        MAP      3459
                                        *         THIS ROUTINE ACCESSES T.DIM (IF VAR IS AN ARRAY)               MAP      3460
                                        *         TO GET THE LINEAR LENGTH OF A VARIABLE.                        MAP      3461
                                        *                                                                        MAP      3462
                                        *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/SZE.                        MAP      3463
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      3464
                                        *                                                                        MAP      3465
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                        MAP      3466
                                        *                                                                        MAP      3467
                                        *         CALLS  JIF,CDD,PCB.                                            MAP      3468
                                                                                                                 MAP      3469
          2721  46464623113205555555     SZE      DIS    MAPPML,---SIZE                                          MAP      3470
                                                                                                                 MAP      3471
          2725  5120000000 X                      SA2    T.SYM                                                   MAP      3472
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3473
          2726  63671                             =B6    X7+WB.W     OFFSET TO WORD B                            MAP      3474
                     53126                        SA1    B6+X2       FETCH WORD B                                MAP      3475
                          10211                   BX2    X1                                                      MAP      3476
                               20436              LX4    30                                                      MAP      3477
          2727  63540                             SB5    X4                                                      MAP      3478
                     20261                        SBIT   X2,WB.ARYP                                              FC5A391    17
                          0332002733 +            MI     X2,SZE10    IF ARRAY                                    FC5A391    18
          2730  5110000464 +                      SA1    MAP.XS                                                  MAP      3480
                          66650                   SB6    B5                                                      MAP      3481
          2731  0100001556 +                      RJ     PCB                                                     MAP      3482
          2732  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3483
                                                                                                                 MAP      3484
          2733  5120000000 X             SZE10    SA2    T.DIM                                                   MAP      3485
                          43057                   XTRCT  WB.PNT,X1,X1      ISOLATE T.DIM OFFSET                  MAP      3486
                     63620                        SB6    X2                                                      MAP      3487
                          53116                   SA1    B6+X1       FETCH HEADER WORD                           MAP      3488
          2735  5150003227 +                      CLAS=  X5,DH,(VD,AS)                                           MAP      3489
                          11251                   BX2    X5*X1                                                   MAP      3490
          2736  0302002742 +                      ZR     X2,SZE40    IF NOT VARIABLE LENGTH OR ASSUMED SIZE      MAP      3491
                          20436                   LX4    30                                                      MAP      3492
                               63640              SB6    X4                                                      MAP      3493
          2737  5110003230 +                      SA1    =7HADJ-ARY                                              MAP      3494
                          43000                   MX0    0                                                       MAP      3495
          2740  6160000007                        SB6    7                                                       MAP      3496
                          0100001251 +            RJ     JIF                                                     MAP      3497
          2741  0400000604 +                      EQ     MOC.RB                                                  MAP      3498
                                                                                                                 MAP      3499
          2742  43044                    SZE40    MX0    -DH.PSL                                                 MAP      3500
                     20136                        LX1    -DH.PSP                                                 MAP      3501
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    75
        FIELD PROCESSORS                                              SZE 
  
                          15110                   BX1    -X0*X1      ISOLATE PRODUCT OF SPANS                    MAP      3502
                               10544              BX5    X4                                                      MAP      3503
          2743  0100000000 X                      CALL   CDD                                                     MAP      3504
          2744  10166                             BX1    X6                                                      MAP      3505
                     7100000003                   SX0    3                                                       MAP      3506
                               67601              =B6    -1                                                      MAP      3507
          2745  0100001251 +                      RJ     JIF                                                     MAP      3508
          2746  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3509
  
  
  
  
                                        **        TO -   OUTPUT LINE NUMBER OF LAST STATEMENT OF A LOOP.         MAP      3511
                                        *                                                                        MAP      3512
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/TO.                            MAP      3513
                                        *                (X7) = T.SCR ENTRY.                                     MAP      3514
                                        *                                                                        MAP      3515
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                        MAP      3516
                                        *                                                                        MAP      3517
                                        *         CALLS  JIF,CDD                                                 MAP      3518
                                                                                                                 MAP      3519
          2747  46464624175555555555     TO       DIS    MAPPML,---TO                                            MAP      3520
                                                                                                                 MAP      3521
          2753  5110000000 X                      SA1    T.SYM                                                   MAP      3522
                          43052                   XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3523
          2754  63271                             =B2    X7+WB.W                                                 MAP      3524
                     53312                        SA3    X1+B2       X3 = *WB*                                   MAP      3525
                          54231                   =A2    A3-WB.W+WC.W      X2 = *WC*                             MAP      3526
                               43060              XTRCT  WB.TL,X3,X3 ISOLATE SYMORD OF TERMINAL LABEL            MAP      3527
                          0303002760 +            ZR     X3,TO10     IF I/O LOOP                                 MAP      3528
          2756  22713                             LX7    X3,B1                                                   MAP      3529
                     6221000002                   =B2    X1+WC.W                                                 MAP      3530
                               36337              IX3    X3+X7       (X3) = INDEX OF SYMTAB ENTRY OF TERMINAL    MAP      3531
                                   0              ERRNZ  3-Z=SYM                                                 MAP      3532
          2757  53232                             SA2    X3+B2       X2 = *WC*                                   MAP      3533
          2760  43052                    TO10     XTRCT  WC.LINE,X2,X1     ISOLATE LINE NUMBER                   MAP      3534
                               20436              LX4    30                                                      MAP      3535
          2761  63540                             SB5    X4                                                      MAP      3536
                     0100000000 X                 CALL   CDD                                                     MAP      3537
          2762  10166                             BX1    X6                                                      MAP      3538
                     7100000003                   SX0    3                                                       MAP      3539
                               67601              =B6    -1                                                      MAP      3540
          2763  0100001251 +                      RJ     JIF                                                     MAP      3541
          2764  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3542
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    76
        FIELD PROCESSORS                                              TYP 
  
                                        **        TYP -  OUTPUT THE TYPE OF A SYMBOL.                            MAP      3544
                                        *                                                                        MAP      3545
                                        *         THIS ROUTINE WILL OUTPUT THE TYPE OF A PROCEDURE,PAR,          MAP      3546
                                        *         OR A VARIABLE, DEPENDING ON WHICH MAP IS BEING PROCESSED.      MAP      3547
                                        *                                                                        MAP      3548
                                        *         ENTRY  (X4) = 30/WIDTH OF FIELD,30/TYP.                        MAP      3549
                                        *                (X7) = ENTRY OF T.SCR.                                  MAP      3550
                                        *                (X5) = CURRENT MST OFFSET.                              MAP      3551
                                        *                                                                        MAP      3552
                                        *         USES   X - ALL  A - 1,2,3,4,6  B - ALL.                        MAP      3553
                                        *                                                                        MAP      3554
                                        *         CALLS  JIF,CDD.                                                MAP      3555
                                                                                                                 MAP      3556
          2765  24312005464646464646     TYP      DIS    MAPPML,TYPE----------------                             MAP      3557
                                                                                                                 MAP      3558
          2771  20436                             LX4    30                                                      MAP      3559
                     63540                        SB5    X4                                                      MAP      3560
                          5120000000 X            SA2    T.SYM                                                   MAP      3561
          2772  43052                             XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3562
                          63671                   =B6    X7+WB.W     OFFSET TO WORD B                            MAP      3563
                               53126              SA1    B6+X2       FETCH WORD B                                MAP      3564
          2773  10211                             BX2    X1                                                      MAP      3565
                     43071                        XTRCT  WB.MODE,X2,X2     ISOLATE MODE BITS                     MAP      3566
          2774  7275777775                        SX7    X5-TPROP                                                MAP      3567
                          0317003005 +            NZ     X7,TYP110   IF NOT PROCEDURE MAP                        MAP      3568
          2775  20157                             SBIT   X1,WB.FUNP                                              FC5A360    16
                     0331003001 +                 MI     X1,TYP105   IF FUNCTION                                 FC5A360    17
          2776  5110000464 +                      SA1    MAP.XS                                                  MAP      3570
                          66650                   SB6    B5                                                      MAP      3571
          2777  0100001556 +                      RJ     PCB                                                     MAP      3572
          3000  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3573
                                                                                                                 MAP      3574
          3001  20163                    TYP105   SBIT   X1,WB.GENFP/WB.FUNP                                     FC5A360    18
                     0321003005 +                 PL     X1,TYP110   IF NOT GENERIC FUNCTION                     FC5A360    19
          3002  5110003231 +                      SA1    =7HGENERIC                                              MAP      3576
                          43000                   MX0    0                                                       MAP      3577
          3003  6160000007                        SB6    7                                                       MAP      3578
                          0100001251 +            RJ     JIF                                                     MAP      3579
          3004  0400000604 +                      EQ     MOC.RB      RETURN                                      MAP      3580
                                                                                                                 MAP      3581
          3005  7232777771               TYP110   =X3    X2-M.CHAR                                               MAP      3582
                          0313003014 +            NZ     X3,TYP130   IF NOT TYPE CHARACTER                       MAP      3583
          3006  54411                             =A4    A1-WB.W+WC.W   FETCH WORD C                             MAP      3584
                     10344                        BX3    X4                                                      MAP      3585
                          20336                   SBIT   X3,WC.CTYPP                                             FC5A360    20
          3007  0333003013 +                      MI     X3,TYP120   IF PASSED LENGTH CHARACTER                  FC5A360    21
                          43052                   MX0    -WC.CLENL                                               MAP      3587
                               10144              BX1    X4                                                      MAP      3588
          3010  20136                             LX1    -WC.CLENP                                               MAP      3589
                     15110                        BX1    -X0*X1      ISOLATE CHARACTER LENGTH                    MAP      3590
                          0100000000 X            CALL   CDD         CONVERT TO DPC                              MAP      3591
          3011  5110003232 +                      SA1    =5LCHAR*                                                MAP      3592
                          20436                   LX4    -5*CHAR                                                 MAP      3593
                               43036              MX0    -5*CHAR                                                 MAP      3594
          3012  15440                             BX4    -X0*X4       ERASE UPPER BLANKS                         MAP      3595
                     12114                        BX1    X1+X4       CONCATENATE THE LENGTH                      MAP      3596
                          0400003015 +            EQ     TYP150                                                  MAP      3597
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    77
        FIELD PROCESSORS                                              TYP 
  
                                                                                                                 MAP      3598
          3013  5110003233 +             TYP120   SA1    =8HCHAR*(*)                                             MAP      3599
                          0400003015 +            EQ     TYP150                                                  MAP      3600
                                                                                                                 MAP      3601
          3014  5212003017 +             TYP130   SA1    X2+TYPM     FETCH PROPER TYPE MESSAGE                   MAP      3602
                                                                                                                 MAP      3603
          3015  43000                    TYP150   MX0    0                                                       MAP      3604
                     67601                        =B6    -1                                                      MAP      3605
                          0100001251 +            RJ     JIF                                                     MAP      3606
          3016  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3607
  
  
  
  
          3017                           TYPM     BSS    0                                                       MAP      3609
      L      0                                    LOC    0                                                       MAP      3610
      L      0  02171714050116555555              DATA   7HBOOLEAN                                               MAP      3611
      L      1  14170711030114555555              DATA   7HLOGICAL                                               MAP      3612
      L      2  11162405070522555555              DATA   7HINTEGER                                               MAP      3613
      L      3  22050114555555555555              DATA   4HREAL                                                  MAP      3614
      L      4  04172502140555555555              DATA   6HDOUBLE                                                MAP      3615
      L      5  03171520140530555555              DATA   7HCOMPLEX                                               MAP      3616
          3025                                    LOC    *O                                                      MAP      3617
  
  
  
  
                                        **        VAL -  OUTPUT THE VALUE OF A SYMBOLIC CONSTANT.                MAP      3619
                                        *                                                                        MAP      3620
                                        *         ENTRY  (X4) = 30/FIELD WIDTH,30/VAL.                           MAP      3621
                                        *                (X7) = T.SCR ENTRY.                                     MAP      3622
                                        *                                                                        MAP      3623
                                        *         USES   ALL EXCEPT A7.                                          MAP      3624
                                        *                                                                        MAP      3625
                                        *         CALLS  PCB,WOD,CDD,JIF.                                        MAP      3626
                                                                                                                 MAP      3627
          3025  46464646464646464646     VAL      DIS    MAPPML,------------------VALUE                          MAP      3628
                                                                                                                 MAP      3629
          3031  20436                             LX4    30                                                      MAP      3630
                     73540                        SX5    X4                                                      MAP      3631
                          5110000000 X            SA1    T.SYM                                                   MAP      3632
          3032  43052                             XTRCT  MT.WAI,X7,X7     ISOLATE T.SYM OFFSET                   MAP      3633
                          63271                   =B2    X7+WB.W     OFFSET TO WORD B                            MAP      3634
                               53112              SA1    X1+B2       FETCH WORD B                                MAP      3635
          3033  54211                             =A2    A1-WB.W+WC.W      FETCH WORD C                          MAP      3636
                     10322                        BX3    X2                                                      MAP      3637
                          43044                   XTRCT  WC.RA,X2,X2 ISOLATE OFFSET INTO T.CHAR OR T.CON         MAP      3638
          3034  63420                             SB4    X2          KEEP EXTRA COPY                             MAP      3639
                     43071                        XTRCT  WB.MODE,X1,X1     ISOLATE MODE BITS                     MAP      3640
          3035  7271777771                        SX7    X1-M.CHAR                                               MAP      3641
                          0317003061 +            NZ     X7,VAL20    IF NOT TYPE CHARACTER                       MAP      3642
          3036  43052                             XTRCT  WC.CLEN,X3,X3     ISOLATE CHARACTER LENGTH              MAP      3643
          3037  6273000002                        SB7    X3+2        ADD SPACE USED BY THE QUOTES                MAP      3644
                          63250                   SB2    X5                                                      MAP      3645
                               77727              SX7    B2-B7                                                   MAP      3646
          3040  5110000000 X                      SA1    T.CON                                                   MAP      3647
                          63510                   SB5    X1                                                      MAP      3648
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    78
        FIELD PROCESSORS                                              VAL 
  
          3041  0327003050 +                      PL     X7,VAL10    IF IT FITS                                  MAP      3649
                          66610                   =B6    1                                                       MAP      3650
          3042  5110003234 +                      SA1    =1H'                                                    MAP      3651
                          0100001556 +            RJ     PCB                                                     MAP      3652
          3043  6265777773                        SB6    X5-4                                                    MAP      3653
                          56154                   SA1    B5+B4                                                   MAP      3654
          3044  0100001556 +                      RJ     PCB                                                     MAP      3655
          3045  6160000003                        SB6    3                                                       MAP      3656
                          5110003235 +            SA1    =3H...                                                  MAP      3657
          3046  0100001556 +                      RJ     PCB                                                     MAP      3658
          3047  0400000604 +                      EQ     MOC.RB                                                  MAP      3659
                                                                                                                 MAP      3660
          3050  63670                    VAL10    SB6    X7                                                      MAP      3661
                     5110000464 +                 SA1    MAP.XS                                                  MAP      3662
          3051  0100001556 +                      RJ     PCB                                                     MAP      3663
          3052  66610                             =B6    1                                                       MAP      3664
                     5110003234 +                 SA1    =1H'                                                    MAP      3665
          3053  0100001556 +                      RJ     PCB                                                     MAP      3666
          3054  6167777775                        SB6    B7-2                                                    MAP      3667
                          56154                   SA1    B5+B4                                                   MAP      3668
          3055  0100001556 +                      RJ     PCB                                                     MAP      3669
          3056  5110003234 +                      SA1    =1H'                                                    MAP      3670
                          66610                   =B6    1                                                       MAP      3671
          3057  0100001556 +                      RJ     PCB                                                     MAP      3672
          3060  0400000604 +                      EQ     MOC.RB                                                  MAP      3673
                                                                                                                 MAP      3674
          3061  7271777776               VAL20    SX7    X1-M.LOG                                                MAP      3675
                          0317003073 +            NZ     X7,VAL40    IF NOT TYPE LOGICAL                         MAP      3676
          3062  5110000000 X                      SA1    T.CON                                                   MAP      3677
                          53114                   SA1    X1+B4       FETCH LOGICAL CONSTANT                      MAP      3678
          3063  0321003067 +                      PL     X1,VAL30    IF VALUE FALSE                              MAP      3679
                          5110003236 +            SA1    =6H.TRUE.                                               MAP      3680
          3064  76010                             =X0    1                                                       MAP      3681
                     6160000006                   SB6    6                                                       MAP      3682
                               63550              SB5    X5                                                      MAP      3683
          3065  0100001251 +                      RJ     JIF                                                     MAP      3684
          3066  0400000604 +                      EQ     MOC.RB                                                  MAP      3685
                                                                                                                 MAP      3686
          3067  5110003237 +             VAL30    SA1    =7H.FALSE.                                              MAP      3687
                          76010                   =X0    1                                                       MAP      3688
          3070  6160000007                        SB6    7                                                       MAP      3689
                          63550                   SB5    X5                                                      MAP      3690
          3071  0100001251 +                      RJ     JIF                                                     MAP      3691
          3072  0400000604 +                      EQ     MOC.RB                                                  MAP      3692
                                                                                                                 MAP      3693
          3073  7271777775               VAL40    SX7    X1-M.INT                                                MAP      3694
                          0317003123 +            NZ     X7,VAL60    IF NOT INTEGER                              MAP      3695
          3074  5110000000 X                      SA1    T.CON                                                   MAP      3696
                          53114                   SA1    X1+B4       FETCH INTEGER CONSTANT                      MAP      3697
                               10311              BX3    X1          PRESERVE ORIGINAL NUMBER                    FC5A189     6
          3075  66700                             =B7    0                                                       MAP      3698
                     0321003077 +                 PL     X1,VAL45    IF NO NEED TO COMPLEMENT IT                 MAP      3699
                               66710              =B7    1                                                       MAP      3700
          3076  14111                             BX1    -X1                                                     MAP      3701
                                                                                                                 MAP      3702
          3077  5120003240 +             VAL45    SA2    =9999999999                                             FC5A189     7
                          37221                   IX2    X2-X1                                                   FC5A189     8
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    79
        FIELD PROCESSORS                                              VAL 
  
                               63550              SB5    X5          SAVE THE FIELD WIDTH                        FC5A189     9
          3100  0322003111 +                      PL     X2,VAL50    IF .LT. 9999999999                          FC5A189    10
                          10133                   BX1    X3          X1 = ORIGINAL NUMBER                        FC5A189    11
          3101  0100000000 X                      CALL   WOD                                                     MAP      3707
          3102  5160003134 +                      SA6    VALA                                                    MAP      3708
                          54761                   =A7    A6+1                                                    MAP      3709
                               66611              =B6    2                                                       MAP      3710
          3103  5110003241 +                      SA1    =2HO"                                                   MAP      3711
                          0100001556 +            RJ     PCB                                                     MAP      3712
          3104  6165777774                        =B6    B5-3                                                    MAP      3713
                          5110003134 +            SA1    VALA                                                    MAP      3714
          3105  0100001556 +                      RJ     PCB                                                     MAP      3715
          3106  66610                             =B6    1                                                       MAP      3716
                     5110003242 +                 SA1    =1H"                                                    MAP      3717
          3107  0100001556 +                      RJ     PCB                                                     MAP      3718
          3110  0400000604 +                      EQ     MOC.RB                                                  MAP      3719
                                                                                                                 MAP      3720
          3111  0100000000 X             VAL50    CALL   CDD                                                     MAP      3721
          3112  10166                             BX1    X6                                                      MAP      3722
                     66410                        =B4    1                                                       MAP      3723
                          0100001040 +            RJ     CCBB        DETERMINE THE LENGTH                        MAP      3724
          3113  76560                             SX5    B6                                                      MAP      3725
                     22215                        BC     X2,X5       CONVERT TO BIT COUNT                        MAP      3726
          3114  6242777703                        SB4    X2-10*CHAR                                              MAP      3727
                          23541                   AX5    B4,X1       LEFT JUSTIFY CONVERSION                     MAP      3728
                               66460              SB4    B6          PRESERVE ITS LENGTH                         MAP      3729
          3115  66667                             SB6    B6+B7       ADD LENGTH OF -                             MAP      3730
                     67656                        SB6    B5-B6       = NUMBER OF BLANKS TO OUTPUT                MAP      3731
                                                  IFEQ   TEST,ON,1                                               MAP      3732
                                                  MI     B6,"BLOWUP" IF BAD B5                                   MAP      3733
                          5110000464 +            SA1    MAP.XS                                                  MAP      3734
          3116  0100001556 +                      RJ     PCB                                                     MAP      3735
          3117  0470003121 +                      ZR     B7,VAL55    IF NO NEED TO PRINT                         MAP      3736
                          66610                   =B6    1                                                       MAP      3737
          3120  5110003243 +                      SA1    =1H-                                                    MAP      3738
                          0100001556 +            RJ     PCB                                                     MAP      3739
                                                                                                                 MAP      3740
          3121  66640                    VAL55    SB6    B4          RESTORE INTEGER LENGTH                      MAP      3741
                     10155                        BX1    X5                                                      MAP      3742
                          0100001556 +            RJ     PCB                                                     MAP      3743
          3122  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3744
                                                                                                                 MAP      3745
          3123  5110000000 X             VAL60    SA1    T.CON                                                   MAP      3746
                          53114                   SA1    X1+B4       FETCH THE CONSTANT                          MAP      3747
                               63450              SB4    X5          SAVE THE FIELD WIDTH                        MAP      3748
          3124  0100000000 X                      CALL   WOD                                                     MAP      3749
          3125  5160003134 +                      SA6    VALA                                                    MAP      3750
                          54761                   =A7    A6+1                                                    MAP      3751
                               66611              =B6    2                                                       MAP      3752
          3126  5110003241 +                      SA1    =2HO"                                                   MAP      3753
                          0100001556 +            RJ     PCB                                                     MAP      3754
          3127  6164777774                        =B6    B4-3                                                    MAP      3755
                          5110003134 +            SA1    VALA                                                    MAP      3756
          3130  0100001556 +                      RJ     PCB                                                     MAP      3757
          3131  66610                             =B6    1                                                       MAP      3758
                     5110003242 +                 SA1    =1H"                                                    MAP      3759
          3132  0100001556 +                      RJ     PCB                                                     MAP      3760
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    80
        FIELD PROCESSORS                                              VAL 
  
          3133  0400000604 +                      EQ     MOC.RB                                                  MAP      3761
                                                                                                                 MAP      3762
                                                                                                                 MAP      3763
          3134                     2     VALA     BSS    2           STORAGE FOR 20 OCTAL DIGITS                 MAP      3764
  
  
  
  
                                        **        XA -   OUTPUT VARIABLE NUMBER OF BLANKS.                       MAP      3766
                                        *                                                                        MAP      3767
                                        *         IN *HEADER* MODE THE DATA IN THE FIRST FEW WORDS               MAP      3768
                                        *         IS USED TO ACCOMPLISH SPACING BETWEEN FIELD HEADERS.           MAP      3769
                                        *         IN *PROCESSING* MODE IT WILL OUTPUT A GIVEN NUMBER             MAP      3770
                                        *         OF BLANKS TO TAKE CARE OF SPACING BETWEEN FIELD OUTPUTS.       MAP      3771
                                        *                                                                        MAP      3772
                                        *         ENTRY  (X4) = 30/# OF BLANKS,30/XA.                            MAP      3773
                                        *                                                                        MAP      3774
                                        *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6,7  B - 2,3,6.            MAP      3775
                                        *                                                                        MAP      3776
                                        *         CALLS  PCB.                                                    MAP      3777
                                                                                                                 MAP      3778
          3136  46464646464646464646     XA       DIS    MAPPML,------------------------------                   MAP      3779
                                                                                                                 MAP      3780
          3142  5110000464 +                      SA1    MAP.XS                                                  MAP      3781
                          20436                   LX4    30                                                      MAP      3782
                               63640              SB6    X4                                                      MAP      3783
          3143  0100001556 +                      RJ     PCB                                                     MAP      3784
          3144  0400000604 +                      EQ     MOC.RB      RETURN TO CONTROLLER                        MAP      3785
  
  
  
  
                                        **        XB -   OUTPUT VARIABLE NUMBER OF BLANKS.                       MAP      3787
                                        *                                                                        MAP      3788
                                        *         FUNCTIONS IDENTICALLY TO XA EXCEPT THAT IN *HEADER*            MAP      3789
                                        *         MODE THE DATA IS USED TO SPACE BETWEEN THE 1ST COLUMN          MAP      3790
                                        *         OF A PAGE AND THE 1ST FIELD HEADER.                            MAP      3791
                                        *                                                                        MAP      3792
                                        *         ENTRY  (X4) = 30/# OF BLANKS,30/XB.                            MAP      3793
                                        *                                                                        MAP      3794
                                        *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6,7  B - 2,3,6.            MAP      3795
                                        *                                                                        MAP      3796
                                        *         CALLS  PCB.                                                    MAP      3797
                                                                                                                 MAP      3798
          3145  55554655555555555555     XB       DIS    MAPPML,  -                                              MAP      3799
                                                                                                                 MAP      3800
          3151  5110000464 +                      SA1    MAP.XS                                                  MAP      3801
                          20436                   LX4    30                                                      MAP      3802
                               63640              SB6    X4                                                      MAP      3803
          3152  0100001556 +                      RJ     PCB                                                     MAP      3804
          3153  0400000604 +                      EQ     MOC.RB                                                  MAP      3805
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    81
        FIELD PROCESSORS                                              XC
  
                                        **        XC -   OUTPUT VARIABLE NUMBER OF BLANKS.                       MAP      3807
                                        *                                                                        MAP      3808
                                        *         FUNCTIONS IDENTICALLY TO XA EXCEPT THAT IN *HEADER*            MAP      3809
                                        *         MODE THE DATA IS USED TO ACCOMPLISH SPACING BETWEEN            MAP      3810
                                        *         REPEATED HEADERS. (I.E. CASES WHERE A MAP IS WRITTEN           MAP      3811
                                        *         ACROSS THE PAGE IN MORE THAN ONE BLOCK)                        MAP      3812
                                        *                                                                        MAP      3813
                                        *         ENTRY  (X4) = 30/# BLANKS,30/XC.                               MAP      3814
                                        *                                                                        MAP      3815
                                        *         USES   X - 0,1,2,3,4,6,7  A - 1,2,3,6,7  B - 2,3,6.            MAP      3816
                                        *                                                                        MAP      3817
                                        *         CALLS  PCB.                                                    MAP      3818
                                                                                                                 MAP      3819
          3154  55555555555555555555     XC       DIS    MAPPML,                                                 MAP      3820
                                                                                                                 MAP      3821
          3160  5110000464 +                      SA1    MAP.XS                                                  MAP      3822
                          20436                   LX4    30                                                      MAP      3823
                               63640              SB6    X4                                                      MAP      3824
          3161  0100001556 +                      RJ     PCB                                                     MAP      3825
          3162  0400000604 +                      EQ     MOC.RB                                                  MAP      3826
  
  
  
  
                                                  LIST   D                                                       MAP      3828
                                                  ENTRY  FIN.MAP                                                 MAP      3829
  
                                        CONTENT OF LITERALS BLOCK.
  
          3163  00000000002000020430         P BDX
          3164  00000000000020014000          PA5 
          3165  00200000000000000100     P      A 
          3166  00000023530153265305       S$A$V$E
          3167  40404040404040404040    5555555555
          3170  50505050505050505050    //////////
          3171  55555555555555555550             /
          3172  00000777720002201427      G;< BPLW
          3173  50505555555555555555    //
          3174  14052605145554550000    LEVEL = 
          3175  00000000000000000056             ,
          3176  55231132055555555555     SIZE 
          3177  55545500000000000000     =
          3200  55031001222300000000     CHARS
          3201  55271722042300000000     WORDS
          3202  00000000000055031555           CM 
          3203  00000000000055050323           ECS
          3204  23012605555555555555    SAVE
          3205  73000000000000000000    > 
          3206  51000000000000000000    ( 
          3207  52000000000000000000    ) 
          3210  16171605555555555555    NONE
          3211  25161316172716555555    UNKNOWN 
          3212  26012255555555555555    VAR 
          3213  04251515314601220755    DUMMY-ARG 
          3214  23240646040122075555    STF-DARG
          3215  23250222172524111605    SUBROUTINE
          3216  04251515314623250222    DUMMY-SUBR
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    82
        FIELD PROCESSORS                                              LITERALS
  
          3217  05302405221601145555    EXTERNAL
          3220  04251515314606251603    DUMMY-FUNC
          3221  11501755555555555555    I/O 
          3222  72000000000000000000    < 
          3223  00000000000044000200          9 B 
          3224  47251604050647555555    *UNDEF* 
          3225  47161755220506234755    *NO REFS* 
          3226  11160103241126055555    INACTIVE
          3227  60000000000000000000    # 
          3230  01041246012231555555    ADJ-ARY 
          3231  07051605221103555555    GENERIC 
          3232  03100122470000000000    CHAR* 
          3233  03100122475147525555    CHAR*(*)
          3234  70555555555555555555    ' 
          3235  57575755555555555555    ... 
          3236  57242225055755555555    .TRUE.
          3237  57060114230557555555    .FALSE. 
          3240  00000000112402761777        ITB^O;
          3241  17645555555555555555    O"
          3242  64555555555555555555    " 
          3243  46555555555555555555    - 
  
          3244                           FIN.MAP  END                END OF (1,0) OVERLAY WHEN NO OLIST          MAP      3830
  
                             71000B CM  STORAGE USED            11080 STATEMENTS     2066 SYMBOLS      000008 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            9.065 SECONDS        2439 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADR          2015   PROGRAM*        8/24      8/37     11/10     11/18     11/41     11/47     28/56     54/13 L
        ADR10        2033   PROGRAM*       54/22     54/36 L
        ADR15        2040   PROGRAM*       54/39     54/50 L
        ADR20        2043   PROGRAM*       54/37     54/48     54/56 L
        ADR30        2046   PROGRAM*       55/02     55/06 L
        ADW             0   EXTERNAL*       1/40 X   33/26     52/32
        ALC             0   EXTERNAL*       1/40 X   16/49     31/06     45/48
        ARG          2052   PROGRAM*        9/50     10/03     55/30 L
        ARG10        2071   PROGRAM*       55/40     55/56 L
        ARG20        2077   PROGRAM*       55/47     56/01     56/03     56/10 L
        ARG5         2065   PROGRAM*       55/45     55/49 L
        BLK          2102   PROGRAM*        8/26      8/39     28/57     56/31 L
        BLK10        2124   PROGRAM*       56/40     57/05 L
        BLK20        2132   PROGRAM*       57/15     57/19 L
        BLK30        2133   PROGRAM*       57/17     57/21 L
        BLK4         2115   PROGRAM*       56/42     56/49 L
        BLK5         2121   PROGRAM*       56/50     56/57 L
        BLNKCOM         0   EXTERNAL*       1/49 X   38/29     57/12
        BNS          1002   PROGRAM*       25/18 L   38/36     57/16
        BNSAV        1013   PROGRAM*       25/20 S   25/40     25/43 L
        B1=1            0 
        CA.BLVLL        2   FTX            38/41
        CA.BLVLP       14   FTX            38/41
        CA.BNAML       52   FTX            23/43     34/12     38/34     38/35     57/10     57/11
        CA.BNAMP       22   FTX            23/43     34/12     38/34     57/10
        CA.CHARP       21   FTX            39/03
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        CBS          1014   PROGRAM*       19/55     26/02 L   40/31     41/50     41/56     42/20     52/57
        CBSSAV       1037   PROGRAM*       26/14 S   26/20     26/29 L
        CB.BLENL       30   FTX            38/57
        CB.LCMP        73   FTX            39/35
        CB.SAVEP       72   FTX            39/35
        CCBB         1040   PROGRAM*       26/49 L   35/03     39/14     61/15     64/27     66/46     79/21
        CCBB10       1044   PROGRAM*       26/54     27/02 L
        CCBB20       1045   PROGRAM*       27/06 L   27/13
        CDD             0   EXTERNAL*       2/01 X   54/25     60/31     61/46     65/38     75/03     76/51
                                           39/11     55/49     61/08     64/19     73/07     75/39     79/18
        CEMLTL         26                   7/24 D
        CEMTL          27                   7/23 D    7/26     14/27
        CHAR            6   FTX            21/27     26/52     29/43     44/41     61/09     64/24     73/08     79/24
                                           25/25     26/53     35/08     45/10     61/10     68/33     73/27
                                           25/33     26/55     38/46     55/07     63/03     68/54     73/30
                                           25/38     26/56     39/16     55/52     64/20     68/55     76/53
                                           26/51     26/57     39/18     60/34     64/21     68/57     76/54
        CIO=            0   EXTERNAL*       2/01 X   45/44     45/45     45/51
        CLS          2135   PROGRAM*        9/52     10/05     57/43 L
        CLSM         2162   PROGRAM*       58/16     58/29 L
        CLS10        2151   PROGRAM*       57/52     58/06 L
        CLS20        2155   PROGRAM*       58/07     58/14 L
        CLS30        2160   PROGRAM*       58/18     58/21 L
        CLS5         2146   PROGRAM*       57/55     58/01 L
        CO.PS           0   EXTERNAL*       1/46 X   16/19     42/46     49/31
        CO.PW           0   EXTERNAL*       1/46 X   27/41     43/04     43/53     72/33
                                           26/03     29/52     43/34     72/19
        CO.SNAP         0   EXTERNAL*       1/46 X
        CP.BLF          0   EXTERNAL*       1/46 X   16/23
        CP#RM           0   FTX            45/50 F
        CR.DEF          4   FTX            48/47
        CR.RET         22   FTX            48/49
        DELF         1050   PROGRAM*       27/39 L   30/02     30/10     30/14
        DELFA        1067   PROGRAM*       27/40 S   28/27     28/34 L
        DELFB        1070   PROGRAM*       27/48     28/40 L
        DELFPT1      1101   PROGRAM*       28/42     28/55 L
        DELFPT2      1110   PROGRAM*       28/43     29/06 L
        DELFPT3      1112   PROGRAM*       28/48     29/09 L
        DELFPT4      1116   PROGRAM*       28/45     29/14 L
        DELF10       1054   PROGRAM*       27/54 L   28/12     28/25
        DELF20       1055   PROGRAM*       28/07 L   28/14     28/18
        DELF30       1061   PROGRAM*       28/09     28/16 L
        DH.ASL          1   FTX            74/45
        DH.ASP         72   FTX            74/45
        DH.PSL         30   FTX            63/50     74/56
        DH.PSP         36   FTX            63/50     74/57
        DH.VDL          1   FTX            74/45
        DH.VDP         73   FTX            74/45
        DLMTL          15                   7/22 D    7/26     14/26
        DMF          1120   PROGRAM*       22/50     29/37 L
        DMF20        1122   PROGRAM*       29/41 L   29/50
        DMF30        1125   PROGRAM*       29/42     29/52 L
        DMF40        1133   PROGRAM*       30/01     30/07 L
        DMF45        1136   PROGRAM*       30/09     30/13 L   30/20
        DMF.RTN      1143   PROGRAM*       28/29     30/05     30/17     30/24 L
        DMT=            0   EXTERNAL*       1/43 X
        DOIN         2165   PROGRAM*       12/14     29/11     58/52 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        DOLA          260   PROGRAM*       11/57     12/01     12/02     12/03     12/07 L
        DOLAB        2201   PROGRAM*       12/08     59/33 L
        DOLAB10      2213   PROGRAM*       59/42     59/48 L
        EFE          1147   PROGRAM*       16/45     30/47 L
        EFE10        1165   PROGRAM*       31/18 L   31/50
        EH.FPCL        14   FTX            60/30
        EH.FPCP        60   FTX            60/30
        ENTA            7   PROGRAM*       10/53     11/06 D
        ENTB          210   PROGRAM*       10/54     10/56     11/01     11/08 L
        ENTC          217   PROGRAM*       10/55     10/57     11/02     11/16 L
        EPA          2221   PROGRAM*       11/12     11/20     60/16 L
        EPA10        2233   PROGRAM*       60/27     60/31 L
        EPMTL          21                   7/20 D    7/26     14/24
        FAILSFT         0   EXTERNAL*       1/49 X   16/15
        FIN             0   PROGRAM*        2/03 L    2/03 E
        FIN.MAP      3244   PROGRAM*       81/26 E   81/27 L
        FIRST        2237   PROGRAM*       40/24     60/56 L
        FIRSTA       2251   PROGRAM*       40/36     61/17 S   61/23 L
        FROM         2253   PROGRAM*       12/15     61/37 L
        FUDGE           1   FTX            46/27
        F.REF           0   EXTERNAL*       1/46 X   45/44     45/45     45/51     45/51     45/56
        GBL          1200   PROGRAM*       26/04     32/09 L   52/51     72/16
        GBL10        1211   PROGRAM*       32/17     32/24 L
        GLE          1212   PROGRAM*       24/13     32/47 L
        GLE10        1214   PROGRAM*       32/52 L   33/37
        GLE20        1221   PROGRAM*       33/06 L
        GLE30        1223   PROGRAM*       33/15 L   33/29
        GLE40        1231   PROGRAM*       33/17     33/31 L
        GNB          1233   PROGRAM*       24/05     33/56 L
        GNB10        1234   PROGRAM*       34/01 L   34/15
        HDRBL           0   EXTERNAL*       1/49 X   16/51     42/54
        IOA           303   PROGRAM*       12/22     12/24     12/26     12/28     12/32 L
        IOB           311   PROGRAM*       12/23     12/25     12/27     12/39 L
        IOMTL          16                   7/25 D   14/28
        IRA           663   PROGRAM*       13/12     13/14     13/16     13/18     21/27 L
                                           13/13     13/15     13/17     13/20
        IRAJP         671   PROGRAM*       21/38     21/44 L
        IRASAV        657   PROGRAM*       21/36 S   22/57     23/05 D
        IRA10         704   PROGRAM*       21/48     22/06 L
        IRA15         706   PROGRAM*       21/49     22/10 L
        IRA20         710   PROGRAM*       21/50     22/14 L
        IRA25         712   PROGRAM*       21/51     22/18 L
        IRA30         716   PROGRAM*       21/52     22/28 L
        IRA35         720   PROGRAM*       21/53     22/32 L
        IRA40         724   PROGRAM*       21/55     22/41 L
        IRA45         725   PROGRAM*       22/04     22/08     22/12     22/16     22/26     22/30     22/39     22/44 L
        IRA5          702   PROGRAM*       21/47     22/02 L
        IRA60         730   PROGRAM*       22/46     22/50 L
        IRA70         734   PROGRAM*       22/55     22/57 L
        IRB           736   PROGRAM*       13/19     23/23 L
        IRBA          777   PROGRAM*       24/17     24/17     24/25 L
        IRB10         756   PROGRAM*       24/05 L   24/09
        IRB30         762   PROGRAM*       24/06     24/13 L
        IRB5          750   PROGRAM*       23/37     23/47 L
        IRB7          752   PROGRAM*       23/39     23/52 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        JIF          1251   PROGRAM*       34/57 L   56/07     57/23     59/15     62/40     65/33     74/53     77/09
                                           54/30     56/13     58/03     60/01     62/50     65/42     75/07     78/36
                                           54/53     56/46     58/11     61/50     63/08     66/13     75/43     78/43
                                           55/11     56/54     58/23     62/28     65/02     69/18     76/38
        JIF10        1254   PROGRAM*       35/02     35/05 L
        JIF20        1257   PROGRAM*       35/05     35/11 L
        JIF30        1265   PROGRAM*       35/16     35/29 L
        JIF40        1273   PROGRAM*       35/30     35/32     35/40 L
        LABA          146   PROGRAM*       10/11     10/21 L
        LABB          155   PROGRAM*       10/12     10/14     10/16     10/29 L
        LABC          166   PROGRAM*       10/13     10/15     10/17     10/39 L
        LADR         2266   PROGRAM*       10/32     10/42     12/10     29/09     62/14 L
        LADR10       2301   PROGRAM*       62/24     62/31 L
        LADR20       2307   PROGRAM*       62/36     62/43 L
        LADR30       2314   PROGRAM*       62/34     62/44     62/46     62/53 L
        LADR40       2317   PROGRAM*       62/56     63/02 L
        LAST         2326   PROGRAM*       40/25     63/33 L
        LASTA        2357   PROGRAM*       40/40     61/05 S   63/53 S   64/08 S   64/11     64/23     64/30 S   64/36 L
        LAST10       2336   PROGRAM*       63/44     63/52 L
        LAST20       2345   PROGRAM*       63/56     64/01     64/04     64/10 L
        LAST30       2355   PROGRAM*       64/18     64/30 L
        LBL          2361   PROGRAM*       10/22     10/30     10/40     64/50 L
        LCNT            0   EXTERNAL*       1/49 X   16/26 S   42/45     42/52 S   49/30
        LDEF         2372   PROGRAM*       10/24     10/35     10/46     65/19 L
        LDEF10       2405   PROGRAM*       65/29     65/36 L
        LINEBUF         0   EXTERNAL*       1/49 X   15/04
        LMTL           25                   7/19 D    7/26     14/23
        LOSTREF         0   EXTERNAL*       1/49 X   45/47
        MAP           517   PROGRAM*       16/14 L   16/14 E
        MAPBUFF         0   EXTERNAL*      15/04 D   20/08 S   39/43     43/18 S   44/37 S   72/29     73/44
                                           18/42 S   26/17     39/43     43/48     44/49     72/29     73/44 S
                                           20/08     26/17     39/43 S   43/48     45/05 S   72/29 S
                                           20/08     26/17 S   43/17     43/48 S   45/07     73/44
        MAPCPR          7                   7/05 D   72/22     72/35     72/54
        MAPDTC        133                   7/06 D   43/07     43/37
        MAPLC         176                   7/07 D   43/05     43/35     43/54
        MAPLFL         17                   7/08 D
        MAPLOT        331   PROGRAM*       14/06 L   16/41
        MAPMCPR         7                   7/09 D   72/54     73/34     73/36
        MAPMRL          3                   7/10 D   29/57     30/16
        MAPMRPL         2                   7/11 D   72/24
        MAPNEW        545   PROGRAM*       16/47     17/01 L   30/49 S   31/04 S
        MAPPML          4                   7/12 D   55/30     58/52     61/37     65/19     67/36     75/22     80/22
                                           19/41     56/31     59/33     62/14     66/03     71/56     76/14     80/45
                                           54/13     57/43     60/16     64/50     67/07     74/25     77/37     81/14
        MAPST         340   PROGRAM*       14/20 L   43/23
        MAPSTL          3                   7/28 D   14/21     14/23     14/25     14/27     24/17
                                           14/20     14/22     14/24     14/26     14/28     24/17
        MAPUD         404   PROGRAM*       14/36 L   43/11     43/41
        MAPUDL          4                   7/13 D   14/37     14/38     14/40     14/41     14/43     14/44     43/56
                                           14/36     14/37     14/39     14/40     14/42     14/43     43/12
                                           14/36     14/38     14/39     14/41     14/42     14/44     43/42
        MAP30         525   PROGRAM*       16/24     16/28 L
        MAP.NO        544   PROGRAM*       16/36 S   16/57 L   21/29     30/07     49/40     52/11
        MAP.XS        464   PROGRAM*       14/42 L   26/24     38/22     54/32     68/40     73/48     78/14     80/47
                                           23/52     35/21     39/45     56/57     72/30     74/36     79/31     81/16
                                           24/18     35/36     53/02     63/09     72/53     76/28     80/24
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        MAP.XXS       514   PROGRAM*       14/50 L
        MEC          1275   PROGRAM*       34/29     36/11 L
        MEC10        1301   PROGRAM*       36/21 L   37/57
        MEC20        1303   PROGRAM*       36/36 L   36/45
        MEC30        1306   PROGRAM*       36/39     36/47 L
        MEC40        1310   PROGRAM*       36/28     36/55 L
        MEC50        1314   PROGRAM*       37/11 L   37/17
        MEC60        1321   PROGRAM*       37/35 L   37/40
        MEC70        1324   PROGRAM*       37/38     37/42 L
        MEC80        1325   PROGRAM*       36/50     37/53 L
        MF.INL          4   FTX            56/02
        MF.LIB          2   FTX            55/44     55/44     55/57     55/57     58/33 L
        MF.STF          1   FTX            58/32 L
        MF.USER         0   FTX            58/31 L
        MOC           546   PROGRAM*       16/46     18/38 L
        MOCBUF        637   PROGRAM*       20/20 L   43/17     43/17     43/49     43/49     43/50
        MOCSAV        657   PROGRAM*       18/52 S   19/12 S   19/14     19/24     19/45     19/45     20/04 S   20/11
                                           18/57     19/12 S   19/14     19/26 S   19/45     19/56     20/04 S   20/23 L
                                           19/12 S   19/14     19/24     19/34 S   19/45     20/02     20/10 S   23/05
        MOCTC         656   PROGRAM*       19/06     19/25     20/09     20/22 L   30/24 S   49/43
        MOC10         552   PROGRAM*       18/48 L   19/01     19/57
        MOC30         560   PROGRAM*       19/09 L   19/17     19/21
        MOC40         577   PROGRAM*       19/30 L   20/05     20/12
        MOC50         600   PROGRAM*       19/34 L   19/49
        MOC60         617   PROGRAM*       19/53     20/02 L
        MOC.RA        555   PROGRAM*       18/57 L   22/22     22/48     23/25     23/33     24/16
                                           21/37     22/35     23/02     23/27     23/45     24/23
        MOC.RB        604   PROGRAM*       19/45 L   56/47     59/16     62/51     68/42     75/08     78/37     81/20
                                           54/34     56/55     59/46     63/12     69/19     75/44     78/44
                                           54/54     57/03     60/02     65/03     72/50     76/31     79/16
                                           55/12     57/25     60/36     65/34     73/19     76/39     79/41
                                           55/54     58/04     61/51     65/43     73/38     77/10     80/01
                                           56/08     58/12     62/29     66/14     74/39     78/11     80/28
                                           56/14     58/24     62/41     67/09     74/54     78/25     80/51
        MOD             0   EXTERNAL*       1/49 X   22/18     30/50     72/02
        MO.BLKL         1   FTX            22/19
        MO.BLKP        10   FTX            22/19
        MO.FUNP        13   FTX            30/51     72/03
        MST           317   PROGRAM*       13/09 L   18/49
        MT.NMGL        22                   7/36 D   36/48     41/39
        MT.NMGP        52                   7/36 D   33/34     37/53     41/37
        MT.RAL         30                   7/37 D   61/02
        MT.RAP         22                   7/37 D   33/24     51/43     51/45     51/50     51/54     52/08     61/02
        MT.SYML        52                   7/34 D    7/35     66/05     66/06
        MT.SYMP        22                   7/34 D    7/35     52/22     66/05
        MT.WAIL        22                   7/38 D   36/42     56/34     59/38     62/17     66/38     74/28     77/42
                                           31/20     54/16     57/48     60/21     63/39     67/39     75/25
                                           36/24     55/33     58/55     61/40     65/22     72/45     76/19
        MT.WAIP         0                   7/38 D
        MVE=            0   EXTERNAL*       2/01 X   43/17
        M.CHAR          6   FTX            51/42     64/02     76/41     77/50
        M.CPLX          5   FTX            63/57
        M.DBL           4   FTX            63/54
        M.INT           2   FTX            78/46
        M.LOG           1   FTX            78/27
        NAM          2412   PROGRAM*        8/17      8/36      9/11      9/40      9/57     11/17     11/46     12/40
                                            8/23      9/05      9/19      9/46     11/09     11/40     12/33     66/03 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        NAMA            7   PROGRAM*       11/27     11/37 D
        NAMB          236   PROGRAM*       11/28     11/30     11/32     11/39 L
        NAMC          243   PROGRAM*       11/29     11/31     11/33     11/45 L
        NAME         2423   PROGRAM*       40/23     66/32 L
        NAMEA        2432   PROGRAM*       40/32     66/47 S   66/52 L
        NLMTL          16                   7/21 D    7/26     14/25
        NOP          2434   PROGRAM*       27/52     67/07 L
        OBI          1327   PROGRAM*       24/07     38/21 L
        OBI15        1337   PROGRAM*       38/33     38/38 L
        OBI17        1342   PROGRAM*       38/42     38/45 L
        OBI20        1354   PROGRAM*       39/04     39/11 L
        OBI30        1363   PROGRAM*       39/24     39/27 L
        OBI35        1365   PROGRAM*       39/30     39/33 L
        OBI40        1371   PROGRAM*       39/36     39/41 L
        OBI.BI       1405   PROGRAM*       24/01 S   34/02     34/30     38/25     39/49 L
        OCEI         1406   PROGRAM*       40/21 L   41/54     42/11
        OCEI10       1407   PROGRAM*       40/23 L   41/03
        OCEI.ADR     1432   PROGRAM*       40/48     41/05 L   41/30 S   42/15     60/57     63/35     66/33
        OCEI.NI      1433   PROGRAM*       40/47     41/06 L   41/46 S   42/08 S
        OCEI.TAB     1434   PROGRAM*       26/19 S   40/53     41/07 L   41/47     42/09
        OML          1435   PROGRAM*       24/08     24/21     41/27 L
        OMLLWA       1464   PROGRAM*       41/34 S   42/16     42/23 L
        OML10        1442   PROGRAM*       41/36 L   42/18
        OML20        1455   PROGRAM*       41/42     42/07 L
        OML30        1460   PROGRAM*       42/03     42/15 L
        OTH          1465   PROGRAM*       19/22     23/56     42/44 L
        OTH10        1474   PROGRAM*       42/50     43/02 L
        OTH20        1502   PROGRAM*       43/03     43/06     43/15 L
        OTH30        1523   PROGRAM*       43/33     43/36     43/45 L
        OTH40        1546   PROGRAM*       43/52     43/55     44/01 L
        OTH.LO       1550   PROGRAM*       16/43 S   43/29     44/06 L
        O.STITL         0   EXTERNAL*       1/49 X   16/54 S   42/57 S   44/03 S
        PASS            0   EXTERNAL*       1/50 X   16/18 S
        PASS=MAP        4   FTX            16/17
        PCB          1556   PROGRAM*       19/13     35/41     39/46     43/28     59/45     73/49     78/21     79/51
                                           23/54     38/24     40/35     43/31     60/35     74/38     78/24     79/54
                                           24/20     38/39     40/39     43/43     63/11     76/30     79/09     79/57
                                           26/25     38/52     40/43     44/39 L   68/35     78/04     79/12     80/27
                                           35/22     38/55     40/46     53/03     68/41     78/07     79/15     80/50
                                           35/26     39/22     41/53     54/33     72/32     78/10     79/32     81/19
                                           35/34     39/34     42/02     55/53     72/57     78/15     79/36
                                           35/37     39/39     43/13     57/02     73/37     78/18     79/40
        PCB10        1551   PROGRAM*       44/28 L   44/52
        PCB15        1553   PROGRAM*       44/30     44/33 L
        PCB17        1562   PROGRAM*       44/45     44/48 L
        PCB20        1563   PROGRAM*       44/51 L   45/13     45/16
        PCB30        1570   PROGRAM*       44/57     45/10 L
        PCB.SC       1574   PROGRAM*       20/08 S   32/14     43/20 S   44/35 S   45/20 L   73/44 S
                                           26/17 S   39/43 S   43/48 S   44/43     72/29 S
        PCB.WO       1573   PROGRAM*       20/06     26/17 S   39/43 S   43/45     44/42     72/29 S
                                           20/08 S   32/11     43/15     43/48 S   45/19 L   73/41
                                           26/15     39/41     43/22 S   44/33 S   72/27     73/44 S
        PIA             0   EXTERNAL*       1/50 X   55/06     63/02
        PMTL           17                   7/18 D    7/26     14/22
        PROA          107   PROGRAM*        9/29      9/39 L
        PROB          114   PROGRAM*        9/30      9/32      9/34      9/45 L
        PROC          126   PROGRAM*        9/31      9/33      9/35      9/56 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        PRP          2441   PROGRAM*        8/28      8/41     10/34     10/44     12/12     12/35     12/42     67/36 L
        PRPA         2515   PROGRAM*       69/36     70/04 L
        PRPB         2534   PROGRAM*       69/42     70/36 L
        PRPC         2545   PROGRAM*       69/39     71/01 L
        PRPD         2554   PROGRAM*       69/44     71/15 L
        PRPPTA       2504   PROGRAM*       67/46     69/34 L
        PRP30        2451   PROGRAM*       67/52 L   68/06     68/16     68/37
        PRP40        2461   PROGRAM*       68/21 L   70/11     70/27     70/44     71/19     71/31
                                           69/03     70/15     70/36     70/48     71/23     71/35
                                           69/26     70/19     70/40     71/15     71/27
        PRP45        2465   PROGRAM*       68/30     68/35 L
        PRP50        2467   PROGRAM*       67/53     68/39 L   70/04
        PRP60        2472   PROGRAM*       68/50 L   70/23
        PRP70        2476   PROGRAM*       69/11 L   71/01     71/05     71/09
        PRP80        2502   PROGRAM*       69/24 L   70/07
        PRT          1575   PROGRAM*       16/44     45/35 L
        PRT2         1615   PROGRAM*       45/37     45/39     46/05 L
        PRT23        1621   PROGRAM*       46/14 L   46/18
        PRT4         1626   PROGRAM*       46/42 L   47/01
        PRT5         1633   PROGRAM*       46/24     47/03 L
        RDW=            0   EXTERNAL*       2/01 X   45/56
        REF          2571   PROGRAM*        8/19      9/07      9/42     10/26     11/22     12/36
                                            8/46      9/24     10/06     10/48     11/49     71/56 L
        REFICC       2713   PROGRAM*       72/18 S   72/38 S   73/46     74/03 L
        REFIO           0   EXTERNAL*       1/50 X   45/38
        REFMI        2720   PROGRAM*       72/12     74/08 L
        REFNOP       2716   PROGRAM*       72/14     74/06 L
        REFPF        2714   PROGRAM*       74/04 L
        REFPL        2717   PROGRAM*       72/07     74/07 L
        REFP1        2654   PROGRAM*       72/01 S   72/14 S   73/15 L
        REFP2        2655   PROGRAM*       72/07 S   72/12 S   73/18 L
        REFRPL       2715   PROGRAM*       72/43 S   73/50     74/05 L
        REFSAV       2710   PROGRAM*       72/26 S   72/39     73/43 S   73/43 S   73/45     73/45     74/01 L
        REF1         2604   PROGRAM*       72/06     72/10 L
        REF10        2645   PROGRAM*       72/53 L   73/20     73/40     73/52
        REF15        2657   PROGRAM*       72/01     73/15     73/18     73/22 L   74/07     74/08
        REF2         2607   PROGRAM*       72/08     72/14 L
        REF20        2663   PROGRAM*       73/26     73/34 L
        REF3         2611   PROGRAM*       72/04     72/11     72/16 L
        REF5         2641   PROGRAM*       72/25     72/42 L
        RNI          1634   PROGRAM*       19/23     19/50     47/28 L
        RNI10        1641   PROGRAM*       47/31     47/40 L
        RNI20        1647   PROGRAM*       47/45     47/53 L
        RNI30        1654   PROGRAM*       48/02     48/07 L
        RNI5         1635   PROGRAM*       47/29 L   47/48
        RNI.CC       1665   PROGRAM*       47/35 S   47/40     47/42 S   48/16 L
        RNI.CL       1666   PROGRAM*       47/43     48/17 L   50/19 S
        RNI.PI       1670   PROGRAM*       19/36     19/51     47/29     47/50 S   48/04 S   48/12 S   48/19 L   49/55 S
        RNI.SC       1667   PROGRAM*       47/37 S   47/53     48/03 S   48/11 S   48/18 L
        RNI.SL       1657   PROGRAM*       47/55     48/15 L   50/15 S
        SBM=            0   EXTERNAL*       2/01 X   20/08     26/17     39/43     43/18     43/48     72/29     73/44
        SCA            54   PROGRAM*        8/51      9/04 L
        SCB            61   PROGRAM*        8/52      8/54      8/56      9/10 L
        SCC            70   PROGRAM*        8/53      8/55      8/57      9/18 L
        SCMTL          27                   7/17 D    7/26     14/21
        SCS             0   EXTERNAL*       1/55 X   32/57     37/02
        SCSA            0   EXTERNAL*       1/55 X   32/55 S   36/57 S
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        SFN             0   EXTERNAL*       2/01 X   24/17     39/43     43/49     66/07     72/29
                                           20/08     26/17     43/48     59/09     66/43     73/44
        SRC          1671   PROGRAM*       31/25     48/34 L
        SRC10        1675   PROGRAM*       48/42 L   48/57
        SRC20        1701   PROGRAM*       48/48     48/52 L
        SRC30        1702   PROGRAM*       48/50     48/57 L
        SRNI         1703   PROGRAM*       30/28     47/47     49/20 L
        SRNI10       1714   PROGRAM*       49/36     49/40 L
        SRNI20       1720   PROGRAM*       49/44     49/49     49/52 L
        SRNI30       1726   PROGRAM*       50/09 L   50/17
        SRNI40       1730   PROGRAM*       50/10     50/14 L
        SRNI.BDF     1733   PROGRAM*       47/30     49/22 S   50/25 L
        SRNI.FED     1734   PROGRAM*       48/07     49/26 S   50/26 L
        SRNI.LED     1735   PROGRAM*       30/26 S   47/57     49/23     49/54 S   50/27 L
        SST             0   EXTERNAL*       2/01 X   22/56     23/50     34/28
        STO            10                   7/15 D   13/19     14/25     14/39     21/48     21/55 D   28/48 D   69/40 D
                                           13/12     13/19 D   14/25 D   14/39 D   21/48 D   28/39 D   28/49     69/41
                                           13/12 D   13/20     14/26     14/40     21/49     28/42     28/49 D   69/41 D
                                           13/13     13/20 D   14/26 D   14/40 D   21/49 D   28/42 D   28/50     69/42
                                           13/13 D   14/18 D   14/27     14/41     21/50     28/43     28/50 D   69/42 D
                                           13/14     14/20     14/27 D   14/41 D   21/50 D   28/43 D   69/33 D   69/43
                                           13/14 D   14/20 D   14/28     14/42     21/51     28/44     69/36     69/43 D
                                           13/15     14/21     14/28 D   14/42 D   21/51 D   28/44 D   69/36 D   69/44
                                           13/15 D   14/21 D   14/34 D   14/43     21/52     28/45     69/37     69/44 D
                                           13/16     14/22     14/36     14/43 D   21/52 D   28/45 D   69/37 D
                                           13/16 D   14/22 D   14/36 D   14/44     21/53     28/46     69/38
                                           13/17     14/23     14/37     14/44 D   21/53 D   28/46 D   69/38 D
                                           13/17 D   14/23 D   14/37 D   21/43 D   21/54     28/47     69/39
                                           13/18     14/24     14/38     21/47     21/54 D   28/47 D   69/39 D
                                           13/18 D   14/24 D   14/38 D   21/47 D   21/55     28/48     69/40
        STS          1736   PROGRAM*       22/44     30/56     34/24     50/52 L
        STS10        1742   PROGRAM*       51/05 L   51/24     51/28     51/30     51/37     52/25     52/35
        STS20        1747   PROGRAM*       51/12     51/18 L
        STS22        1751   PROGRAM*       51/19     51/23 L
        STS25        1753   PROGRAM*       51/16     51/21     51/27 L
        STS30        1773   PROGRAM*       51/15     51/32     52/11 L
        STS35        1776   PROGRAM*       51/25     52/14     52/18 L
        STS40        2002   PROGRAM*       51/44     51/53     52/09     52/24     52/29 L
        STS50        2004   PROGRAM*       52/16     52/34 L
        STS.BI       2005   PROGRAM*       34/20 S   51/34     52/37 L
        SVB5            0                  19/12 S   19/24     20/11     23/05     73/45
                                           19/14     19/45     20/25 L   73/43 S
        SVX2            2                  19/12 S   19/14     19/26 S   19/45     20/02     20/04 S   20/10 S   20/27 L
        SVX3            3                  19/12 S   19/14     19/34 S   19/45     20/04 S   20/28 L
        SVX5            1                  18/52 S   18/57     19/24     19/45     19/56     20/26 L   73/43 S   73/45
        SZE          2721   PROGRAM*        8/31      8/44     29/02     74/25 L
        SZE10        2733   PROGRAM*       74/35     74/41 L
        SZE40        2742   PROGRAM*       74/47     74/56 L
        S=VALUE         0   EXTERNAL*       1/50 X   31/16
        TAB          2006   PROGRAM*       41/02     41/48     42/10     43/08     43/38     52/50 L
        TCOM            0                  13/08 D   13/19
        TCOMP           7                  13/19 D   14/27     21/54     23/55     34/23     69/43
                                           13/19     14/43     23/55     28/49     51/31
        TDOL          251   PROGRAM*       11/54 L   13/18
        TDOLP           6                  13/18 D   14/26     21/53     28/48     69/42
                                           13/18     14/42     22/54     51/18
        TEMP1          27                   7/26 D    7/27
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        TEMP2          40                   7/27 D    7/28
        TENT          201   PROGRAM*       10/53 L   13/16
        TENTP           4                  13/16 D   13/16     14/24     14/40     21/51     28/46     69/40     72/10
        TEST            0   FTX            14/57 F   27/49 F   35/13 F   38/02 F   46/34 F   52/54 F   68/26 F
                                           26/08 F   27/55 F   36/18 F   41/40 F   47/04 F   58/34 F   72/55 F
                                           27/44 F   29/47 F   37/14 F   45/02 F   51/08 F   67/47 F   79/29 F
        TE.BIASL       30   FTX            33/23
        TE.BIASP       22   FTX            33/23
        TE.NBL          1   FTX            33/16     37/16     37/39
        TE.NBP         52   FTX            32/53     33/16     33/18     37/16     37/19     37/39
        TE.SYMIL       22   FTX            33/20     36/55     36/56
        TE.SYMIP        0   FTX            33/18     36/56
        TIO           274   PROGRAM*       12/22 L   13/20
        TIOP           10                  13/20 D   14/28     21/55     51/20     69/44
                                           13/20     14/44     28/50     52/23
        TLAB          137   PROGRAM*       10/11 L   13/15
        TLABP           3                  13/15 D   13/15     14/23     14/39     21/50     28/45     69/39
        TNAM          227   PROGRAM*       11/27 L   13/17
        TNAMP           5                  13/17 D   13/17     14/25     14/41     21/52     28/47     69/41
        TO           2747   PROGRAM*       12/17     75/22 L
        TO10         2760   PROGRAM*       75/30     75/36 L
        TPRO          100   PROGRAM*        9/29 L   13/14
        TPROP           2                  13/14 D   13/14     14/22     14/38     21/49     28/44     69/38     76/24
        TSC            45   PROGRAM*        8/51 L   13/13
        TSCP            1                  13/13 D   13/13     14/21     14/37     21/48     28/43     69/37
        TVAR            0   PROGRAM*        8/06 L   13/12
        TVARP           0                  13/12 D   14/20     21/47     51/11     72/05
                                           13/12     14/36     28/42     69/36
        TYP          2765   PROGRAM*        8/30      8/43      9/13      9/21      9/48     10/02     76/14 L
        TYPM         3017   PROGRAM*       77/05     77/15 L
        TYP105       3001   PROGRAM*       76/27     76/33 L
        TYP110       3005   PROGRAM*       76/25     76/34     76/41 L
        TYP120       3013   PROGRAM*       76/46     77/02 L
        TYP130       3014   PROGRAM*       76/42     77/05 L
        TYP150       3015   PROGRAM*       76/57     77/03     77/07 L
        T=BLKS          0   EXTERNAL*       1/50 X   23/29     34/01
        T=ECT           0   EXTERNAL*       1/50 X   23/28     23/49     33/08     37/30
        T=REF           0   EXTERNAL*       1/50 X   45/54     46/22
        T=SCR           0   EXTERNAL*       1/50 X   22/53     30/57     32/48 S   36/13     49/24     50/53 S
                                           22/45     24/15     32/48     34/26     41/31     50/53
        T=SYM           0   EXTERNAL*       1/50 X   31/08     46/06     50/55
        T.BLKS          0   EXTERNAL*       1/51 X   23/40     34/09     38/26     57/07
        T.CON           0   EXTERNAL*       1/51 X   77/56     78/29     78/48     79/43
        T.DIM           0   EXTERNAL*       1/51 X   63/47     74/41
        T.ECT           0   EXTERNAL*       1/51 X   23/47     32/57     32/57     33/10     33/28     37/02     37/29
        T.ENTP          0   EXTERNAL*       1/52 X   60/24
        T.REF           0   EXTERNAL*       1/51 X   45/48     45/48     45/53     46/23     48/37     73/02
        T.SCR           0   EXTERNAL*       1/51 X   22/51     33/26     34/25     41/28
                                           19/35     31/14     33/26     36/12     52/32
        T.SYM           0   EXTERNAL*       1/51 X   31/07     52/34     57/47     61/39     66/34     75/24
                                           16/49     36/14     54/15     58/54     62/16     67/38     76/18
                                           16/49     46/05     55/32     59/37     63/34     72/44     77/41
                                           31/06     50/54     56/33     60/20     65/21     74/27
        VAL          3025   PROGRAM*        9/14      9/22     29/06     77/37 L
        VALA         3134   PROGRAM*       79/05 S   79/11     79/47 S   79/53     80/04 L
        VAL10        3050   PROGRAM*       78/01     78/13 L
        VAL20        3061   PROGRAM*       77/51     78/27 L
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        VAL30        3067   PROGRAM*       78/31     78/39 L
        VAL40        3073   PROGRAM*       78/28     78/46 L
        VAL45        3077   PROGRAM*       78/52     78/56 L
        VAL50        3111   PROGRAM*       79/02     79/18 L
        VAL55        3121   PROGRAM*       79/33     79/38 L
        VAL60        3123   PROGRAM*       78/47     79/43 L
        VARA            7   PROGRAM*        8/06      8/16 L   11/06     11/37
        VARB           14   PROGRAM*        8/07      8/09      8/11      8/22 L
        VARC           30   PROGRAM*        8/08      8/10      8/12      8/35 L
        VMTL           21                   7/16 D    7/26     14/20
        WA.HASHL       14   FTX            48/39
        WA.STLL        36   FTX            59/53     64/54
        WA.STLP        30   FTX            59/53     64/54
        WA.SYML        52   FTX             7/34     46/09     52/19     59/07     66/40
        WA.SYMP        22   FTX            52/20     59/07     59/08
        WA.W            0   FTX            31/38 S   36/41     52/12     59/05     60/22     72/46
                                           36/23     37/01     52/18     59/49     63/38
        WB.ACTP        13   FTX            62/43     62/45
        WB.ARYP        12   FTX            63/42     63/45     74/34
        WB.AUXP        65   FTX            71/15
        WB.BASEL       14   FTX            31/19     51/56     54/41
        WB.BASEP       41   FTX            31/19     51/55     54/41
        WB.BINP        72   FTX            71/23
        WB.BMEML        1   FTX            31/19
        WB.BMEMP       23   FTX            31/19
        WB.BUFP        67   FTX            71/35
        WB.CGSL         1   FTX            22/03     22/07     22/11     22/25     22/29     30/54     31/19     62/31
        WB.CGSP         4   FTX            22/03     22/07     22/11     22/25     22/29     30/54     31/19     62/31
        WB.COMP        17   FTX            56/39     56/41     70/19
        WB.DEFP         7   FTX            55/39     70/11
        WB.DEXTL        1   FTX            22/10
        WB.DEXTP       26   FTX            22/10
        WB.DIL         17   FTX            59/01
        WB.DIP         55   FTX            59/01
        WB.DIRP        71   FTX            71/27
        WB.DLENP       21   FTX            70/40
        WB.DLERP       16   FTX            70/36
        WB.DLEXP       20   FTX            70/48
        WB.DLNIP       17   FTX            70/44
        WB.DOGLL        1   FTX            22/37     62/31
        WB.DOGLP       15   FTX            22/37     62/31
        WB.DOTP         5   FTX            71/09
        WB.ENTL         1   FTX            22/03
        WB.ENTP        15   FTX            22/03
        WB.EQVL         1   FTX            31/19     36/27     36/44     51/52
        WB.EQVP        11   FTX            31/19     36/27     36/44     51/52     51/55     54/38     54/40     70/15
        WB.FDEFL        1   FTX            62/22     65/27
        WB.FDEFP       24   FTX            62/22     65/27     71/01
        WB.FMTP        73   FTX            71/19
        WB.FPL          1   FTX            31/19
        WB.FPNOL       11   FTX            54/24
        WB.FPNOP       41   FTX            54/24
        WB.FPP         20   FTX            31/19     54/23     56/41     57/54     70/11
                                           54/21     54/36     56/49     58/17
        WB.FUNL         1   FTX            22/10
        WB.FUNP        14   FTX            22/10     58/06     58/17     76/26     76/33
        WB.GENFP       25   FTX            76/33
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        WB.LABL         1   FTX            22/03     22/07     22/11     22/25     22/29     22/37     30/54     51/13
        WB.LABP         3   FTX            22/03     22/07     22/11     22/25     22/29     22/37     30/54     51/13
        WB.LEVNL        2   FTX            68/51
        WB.LEVNP       55   FTX            68/51
        WB.LEVP        33   FTX            70/23
        WB.MATP        36   FTX            54/36     54/38     54/47
        WB.MDFL         1   FTX            31/19
        WB.MDFP        10   FTX            31/19
        WB.MODEL        3   FTX            31/19     31/28     51/41     63/41     76/23     77/49
        WB.MODEP        0   FTX            31/19     63/42
        WB.NDEFL        1   FTX            62/22     65/27
        WB.NDEFP       27   FTX            62/22     65/27     71/05
        WB.NLSTL        1   FTX            22/03
        WB.NLSTP       34   FTX            22/03     22/28
        WB.NVARL        1   FTX            22/41     51/13
        WB.NVARP        6   FTX            22/41     51/13     70/07
        WB.PARML        1   FTX            22/03
        WB.PARMP       10   FTX            22/03
        WB.PNTL        15   FTX            60/25     63/46     74/42
        WB.PNTP        57   FTX            60/25     63/46     74/42
        WB.SAVEP       35   FTX            70/27
        WB.SDEFL        1   FTX            62/22     65/27
        WB.SDEFP        7   FTX            62/22     62/45     65/27
        WB.SEQP        70   FTX            71/31
        WB.SFAP        40   FTX            56/49     70/04
        WB.SUBL         1   FTX            22/10
        WB.SUBP        13   FTX            22/10     57/51     57/54     58/06
        WB.TLL         14   FTX            59/41     75/29
        WB.TLP         41   FTX            59/41     75/29
        WB.UDCL         1   FTX            22/41
        WB.UDCP        64   FTX            22/41
        WB.VARL         1   FTX            51/13
        WB.VARP         5   FTX            51/13     70/07
        WB.W            1   FTX            31/26     36/23     52/12     55/34     58/56     64/05     75/28
                                           31/33     36/41     52/18     55/38     59/39     65/23     76/20
                                           31/38 S   37/01     52/29     56/35     60/22     65/36     76/43
                                           31/39     51/02     54/17     57/05     62/18     67/40     77/43
                                           31/44     51/33     54/45     57/49     62/53     74/29     77/45
                                           31/47 S   51/40     54/56     58/14     63/38     75/26
        WB.1REFL        1   FTX            31/19
        WB.1REFP       37   FTX            31/19     62/35     62/43     70/19
        WC.ARGCL       11   FTX            55/42
        WC.ARGCP       60   FTX            55/42
        WC.BCPL         4   FTX            51/48     52/06
        WC.BCPP        30   FTX            51/48     52/06
        WC.CLENL       22   FTX            64/06     76/47     77/52
        WC.CLENP       36   FTX            64/06     76/49     77/52
        WC.CLIFL       23   FTX            31/41
        WC.CLIFP       35   FTX            31/42
        WC.CTYPP       35   FTX            76/45
        WC.FUNTL        3   FTX            55/43     55/56     58/15
        WC.FUNTP       71   FTX            55/43     55/56     58/15
        WC.LINEL       22   FTX            61/43     65/37     75/36
        WC.LINEP       36   FTX            61/43     65/37     75/36
        WC.RAL         30   FTX            51/39     54/57     62/54     77/47
        WC.RBL         12   FTX            51/35     57/06
        WC.RBP         60   FTX            51/35     51/38     57/06
1       MAP - STORAGE MAP AND CROSS REFERENCE.                        COMPASS 3.7-871.     24/05/02. 13.18.54.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        WC.W            2   FTX            31/39     51/33     54/56     58/14     64/05     75/32
                                           31/44     51/40     55/38     61/41     65/36     76/43
                                           31/47 S   52/05     57/05     62/53     75/28     77/45
        WOD             0   EXTERNAL*       2/01 X   79/04     79/46
        WOF             0   EXTERNAL*       1/51 X   24/17     26/17     43/48     43/49     73/44
                                           20/08     24/17     39/43     43/49     72/29
        WO.LOA          0   EXTERNAL*       1/51 X   16/30
        WO.LOM          0   EXTERNAL*       1/52 X   16/28     23/23
        WO.LOR          0   EXTERNAL*       1/52 X   16/32     43/02     43/32     43/51     45/36     48/35
        WO.QC           0   EXTERNAL*       1/52 X   22/34     23/26     55/01     62/55
        XA           3136   PROGRAM*        8/18      8/40      9/20      9/51     10/31     10/47     12/09     29/03
                                            8/25      8/42      9/23     10/01     10/33     11/11     12/11     29/10
                                            8/27      8/45      9/41     10/04     10/41     11/19     12/13     29/14
                                            8/29      9/06      9/47     10/23     10/43     11/21     12/16     80/22 L
                                            8/38      9/12      9/49     10/25     10/45     11/48     29/01
        XB           3145   PROGRAM*        8/16      9/04      9/39     10/21     11/08     11/45     12/34     80/45 L
                                            8/22      9/10      9/45     10/29     11/16     12/07     12/39
                                            8/35      9/18      9/56     10/39     11/39     12/32     12/41
        XC           3154   PROGRAM*        8/32      9/53     11/13     12/43     81/14 L
                                            9/15     10/36     11/42     28/55
        XR.LINEL       26   FTX            73/01
        XR.LINEP        6   FTX            73/05
        XR.MEDFP       51   FTX            48/53
        XR.TAGL        22   FTX            46/29     48/43     73/11
        XR.TAGP        52   FTX            46/43     46/51     48/43     48/44     73/12
        XR.USEL         6   FTX            48/45     73/22
        XR.USEP         0   FTX            48/44
        ZTB             0   EXTERNAL*       2/01 X   59/54     64/55
        Z=BLKS          2   FTX            23/31     23/41     34/04
        Z=SYM           3   FTX            31/48     46/10     46/47     51/06     59/51
                                           46/10     46/11     51/05     59/04     75/34
        .1             10                  14/20 D   14/26 D   14/39 D   21/47 D   21/53 D   28/45 D   69/36 D   69/42 D
                                           14/20     14/26     14/39     21/47     21/53     28/45     69/36     69/42
                                           14/21 D   14/27 D   14/40 D   21/48 D   21/54 D   28/46 D   69/37 D   69/43 D
                                           14/21     14/27     14/40     21/48     21/54     28/46     69/37     69/43
                                           14/22 D   14/28 D   14/41 D   21/49 D   21/55 D   28/47 D   69/38 D   69/44 D
                                           14/22     14/28     14/41     21/49     21/55     28/47     69/38     69/44
                                           14/23 D   14/36 D   14/42 D   21/50 D   28/42 D   28/48 D   69/39 D
                                           14/23     14/36     14/42     21/50     28/42     28/48     69/39
                                           14/24 D   14/37 D   14/43 D   21/51 D   28/43 D   28/49 D   69/40 D
                                           14/24     14/37     14/43     21/51     28/43     28/49     69/40
                                           14/25 D   14/38 D   14/44 D   21/52 D   28/44 D   28/50 D   69/41 D
                                           14/25     14/38     14/44     21/52     28/44     28/50     69/41
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1352              IDENT  LIST 
                       1352              FIN.OL   END                END OF (1,0) OVERLAY WHEN OLIST ON 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1316 
                                        LITERALS* LOCAL        1316        34 
  
  
                                        ENTRY POINTS. 
  
                                        B=LIST           0+           LI=CPL         200+           LI=ST0         320+ 
                                        PIK             24+           LI=DATA        214+           LI=NLST        321+ 
                                        LI=BMI         136+           LI=END         216+           LI=RJ3         323+ 
                                        LI=BCI         136+           LI=EQUN        224+           LI=RJ6         324+ 
                                        LI=OTR         136+           LI=FMT         237+           LI=SB0I        331+ 
                                        LI=EMI         136+           LI=FLA         246+           LI=SUBI        332+ 
                                        LI=ECI         136+           LI=FVEC        255+           LI=UJP         341+ 
                                        LI=LOO         136+           LI=PLIM        271+           LI=USE         342+ 
                                        LI=ADDR        137+           LI=IDNT        275+           LI=TRAC        354+ 
                                        LI=APL         151+           LI=IOM         304+           LI=ZERO        363+ 
                                        LI=BOS         155+           LI=JPI         314+           VFD            541+ 
                                        LI=BSS         166+           LI=LCC         317+           FIN.OL        1352+ 
                                        LI=CON         170+           LI=LD0         320+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ALC       RADC      MOD       SUM.LBT   T=CLW     T.API     T.SCR     DMT=
                                        APLA      TAGSUB0   N.TABLE   S=CL      T=DIM     T.APL     T.SYM     MVE=
                                        FAPSUD    CO.OPT    O.STITL   S=CON     T=DATS    T.CAC     WOF       SFN 
                                        OL=BIN    CO.PS     PIA       S=LENP    T=FMT     T.CLW     T.CLWB    SST 
                                        OL=LBF    CO.PW     PIK=LCM   S=LA      T=IOA     T.CON     T.FPI     WOD 
                                        OL=PB     F.LBT     PIK=PI    S=RD      T=LA      T.DIM     T.SUB     ZTB 
                                        OL=RL     IDENT     PIK=PS    T=API     T=NLST    T.FMT     CDD       FCLMOD
                                        ORGSUB    LINEBUF   PIK=XJP   T=APL     T=SCR     T.PTXTR   COD       CO.LL 
  
  
  
  
                                                  IDENT  LIST                                                    LIST        2
                                         LIST     SECT   (OBJECT CODE LISTING ROUTINES.)                         LIST        3
  
  
  
  
  
                                        *         IN ALLOC                                                       LIST        5
                                                  EXT    ALC                                                     LIST        6
                                                                                                                 LIST        7
                                        *         IN FAS                                                         LIST        8
                                                  EXT    APLA,FAPSUD,OL=BIN,OL=LBF,OL=PB,OL=RL,ORGSUB,RADC       LIST        9
                                                  EXT    TAGSUB0                                                 LIST       10
                                                                                                                 LIST       11
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     2
                                                                      LIST
  
                                        *         IN FTN                                                         LIST       12
                                                  EXT    CO.OPT,CO.PS,CO.PW                                      FC5A107    22
                                                                                                                 LIST       14
                                        *         IN PUC                                                         LIST       15
                                                  EXT    F.LBT,IDENT,LINEBUF,MOD,N.TABLE,O.STITL,PIA,PIK=LCM     FC5A132   150
                                                  EXT    PIK=PI,PIK=PS,PIK=XJP                                   FC5A132   151
                                                  EXT    SUM.LBT,S=CL,S=CON,S=LENP,S=LA,S=RD,T=API,T=APL,T=CLW   LIST       18
                                                  EXT    T=DIM,T=DATS,T=FMT,T=IOA,T=LA,T=NLST,T=SCR,T.API,T.APL  LIST       19
                                                  EXT    T.CAC,T.CLW,T.CON,T.DIM,T.FMT,T.PTXTR,T.SCR,T.SYM,WOF   LIST       20
                                                  EXT    T.CLWB,T.FPI,T.SUB                                      FC5A219    19
                                                                                                                 LIST       21
                                        *         IN UTILITY                                                     LIST       22
                                                  EXT    CDD,COD,DMT=,MVE=,SFN,SST,WOD,ZTB                       LIST       23
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     3
                                                                      PS. 
  
                                        **        PS. -  SHIFTED PROGRAM TAG FORMAT FOR  AP  ENTRIES.            LIST       24
                                        *                                                                        LIST       25
                                        *         THIS FORMAT IS USED IN ROUTINE *WAP* TO SORT OUT               LIST       26
                                        *         AP-LIST INDEX TABLE.                                           LIST       27
                                                                                                                 LIST       28
                                                                                                                 LIST       29
                                                  DESCRIBE  PS.,60                                               LIST       30
      L     52  77777700000000000000     RA       DEFINE 18          RELATIVE ADDRESS                            LIST       31
      L     30  00000077777700000000     ORD      DEFINE 18          ORDINAL                                     LIST       32
                                                  DEFINE 24                                                      LIST       33
                                                                                                                 LIST       34
                                        *         CELLS                                                          LIST       35
                                                                                                                 LIST       36
             0                     1     SAVFP    BSS    1           F.P. INDICATOR                              LIST       37
                                                                                                                 FC5A132   152
                                        *         INSTRUCTION SKELETON TABLE (PARTIAL LIST)                      FC5A132   153
                                                                                                                 FC5A132   154
             1                     4     PIK=TAG  BSSZ   4           TEMP HOLDING (DPC) TAG AND OFFSET.          FC5A132   155
                                                                                                                 FC5A132   156
             5  55000000000000555555     PIK=BL   CON    1L +3R      THE WORD BEFORE *PIK=I* MUST BE NEGATIVE    FC5A132   157
             6  00000000000000000000     PIK=I    CON    0           *I* REGISTER OF INSTRUCTION                 FC5A132   158
             7  00000000000000000000     PIK=J    CON    0           *J* REGISTER OF INSTRUCTION                 FC5A132   159
            10  00000000000000000000              DATA   0           *K* REGISTER OF INSTRUCTION                 FC5A132   160
            11  77777777777777777776              DATA   -1          FLAG TO INDICATE 18-BIT *K* PORTION         FC5A132   161
            12  00000000000000000045              DATA   1R+         PLUS                                        FC5A132   162
            13  00000000000000000046              DATA   1R-         MINUS                                       FC5A132   163
            14  00000000000000000047              DATA   1R*         STAR                                        FC5A132   164
            15  00000000000000000050              DATA   1R/         SLASH                                       FC5A132   165
            16  00000000000000000056              DATA   1R,         COMMA                                       FC5A132   166
            17  00000000000000000001              DATA   1RA                                                     FC5A132   167
            20  00000000000000000002              DATA   1RB                                                     FC5A132   168
            21  77777777777777777777              DATA   -0          FLAG TO INDICATE CONDITIONAL *B* REGISTER   FC5A132   169
            22  00000000000000000030              DATA   1RX                                                     FC5A132   170
            23  00000000000000000055              DATA   1R          BLANK                                       FC5A132   171
  
  
  
  
                                        **        KTY -  DETERMINE LENGTH OF CONSTANT TO CONVERT                 FC5A281    12
                                        *                                                                        FC5A281    13
                                        *         KTY    LENGTH      LENGTH OF CONSTANT (BITS)                   FC5A281    14
                                        *         KTY                DEFAULT IS 18 BITS                          FC5A281    15
                                                                                                                 FC5A281    16
                                                                                                                 FC5A281    17
                                         KTY      MACRO  LENGTH                                                  FC5A281    18
                                         A        MICRO 1,, 18                                                   FC5A281    19
                                                  IFC    NE,/LENGTH//,1                                          FC5A281    20
                                         A        MICRO 1,, LENGTH                                               FC5A281    21
                                                  SB2    60-"A"                                                  FC5A281    22
                                                  RJ     KTY                                                     FC5A281    23
                                         KTY      ENDM                                                           FC5A281    24
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     4
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        PIK 
  
                                        **        PIK -  PRINT INSTRUCTION KONVERSION.                           LIST       40
                                        *                                                                        LIST       41
                                        *         CALLED BY FAS/POL IF OBJECT LISTING IS ENABLED.                LIST       42
                                        *         POL IS CALLED BY INSTRUCTION CONSTRUCTORS (NORMAL AND PSEUDO)  LIST       43
                                        *         IN FAS, RAD, AND REL TO CONVERT AND PRINT EACH OBJECT          LIST       44
                                        *         INSTRUCTION AS THEY ARE PROCESSED.                             LIST       45
                                        *                                                                        LIST       46
                                        *         ENTRY  RADC = + LONG,0 SHORT, - PSEUDO                         LIST       47
                                        *                (X5) = ADJUSTED INSTRUCTION IN (PB.) FORMAT.            LIST       48
                                        *                (OL=BIN) = BINARY.                                      LIST       49
                                        *                (OL=RL) = RELOCATION LISTING INDICATOR (SEE PLL).       LIST       50
                                        *                (LINEBUF+0) = (ORIGIN) TO BE LISTED.                    LIST       51
                                        *                            .MI. IF ALREADY FORMATTED.                  LIST       52
                                        *                                                                        LIST       53
                                        *         EXIT   (OL=PB) = INSTRUCTION                                   LIST       54
                                                                                                                 LIST       55
                                                                                                                 LIST       56
            24  0400400024 +             PIK      SUBR   =           ENTRY/EXIT...                               LIST       57
            25  22605                             LX6    X5                                                      LIST       58
                     5120000000 X                 SA2    RADC                                                    LIST       59
                               13777              BX7    0                                                       LIST       60
            26  22105                             LX1    X5                                                      LIST       61
                     5170000000 +                 SA7    SAVFP       (SAVFP) = 0                                 LIST       62
            27  5160000000 X                      SA6    OL=PB                                                   LIST       63
                          5170000002 +            SA7    PIK=TAG+1   (PIK=TAG+1) = 0                             LIST       64
            30  54771                             SA7    A7+B1       (PIK=TAG+2) = 0                             LIST       65
                     0322000033 +                 PL     X2,PIK20    IF NOT PSEUDO                               LIST       66
                               14222              BX2    -X2         (X2) = PSEUDO NUMBER                        LIST       67
            31  5232000000 X                      SA3    X2+FAPSUD                                               LIST       68
                          63730                   SB7    X3                                                      LIST       69
            32  0277000000                        JP     B7          JUMP TO LISTING PROCESSOR                   LIST       70
                                                                                                                 LIST       71
                                                                                                                 LIST       72
                                        **        PRINT NON-PSEUDO INSTRUCTIONS.                                 LIST       73
                                        *         BREAK OUT THE *I*, *J*, AND *K* PORTIONS OF INSTRUCTION.       LIST       74
                                                                                                                 LIST       75
                                                                                                                 LIST       76
            33  43060                    PIK20    MX0    -PB.H2L                                                 LIST       77
                     11605                        BX6    X0*X5       CLEAR PB.H2 FIELD                           LIST       78
                          20606                   LX6    PB.GHL                                                  LIST       79
                               63560              SB5    X6          *GH*                                        LIST       80
            34  7100000007                        SX0    7                                                       LIST       81
                                        .1        ECHO   ,P1=(I,J,K),REG=(3,6,6),LOC=(PIK=I,,),SC=(9,3,3)        LIST       82
                                                  LX1    SC                                                      LIST       83
                                                  BX.REG X0*X1                                                   LIST       84
                                                  SX6    X.REG+1R0                                               LIST       85
                                                  SA6    LOC  A6+B1  *P1*                                        LIST       86
                                        .1        ENDD                                                           LIST       87
                                                                                                                 LIST       88
            41  5135000000 X                      SA3    B5+PIK=PS   FETCH INST SKELETON                         LIST       89
                          0323000064 +            PL     X3,PIK60    IF SHORT INSTRUCTION (15 BIT)               LIST       90
                                                                                                                 LIST       91
                                        *         PRE-PROCESS AND CONVERT TAGS.                                  LIST       92
                                                                                                                 LIST       93
            42  43452                             MX4    -PB.TAGL                                                LIST       94
                     20117                        LX1    PB.TAGL-3                                               LIST       95
                          15314                   BX3    -X4*X1      ISOLATE TAG                                 LIST       96
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     5
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        PIK 
  
                               66350              =B3    B5                                                      LIST       97
                                                                                                                 FC50629     6
            43                           PIK40    BSS    0                                                       LIST       98
            43  0100000366 +                      RJ     KTX         CONVERT TAG TO EXTERNAL FORM                LIST       99
            44  5160000001 +                      SA6    PIK=TAG                                                 LIST      100
                          43452                   MX4    -PB.BIASL                                               LIST      101
                               10155              BX1    X5                                                      LIST      102
            45  20160                             LX1    -PB.BIASP                                               LIST      103
                     43060                        MX0    -PB.H2L                                                 LIST      104
                          15314                   BX3    -X4*X1                                                  LIST      105
                               20114              LX1    PB.BIASP-PB.H2P                                         LIST      106
            46  15410                             BX4    -X0*X1      H2I = H2[INSTRUCTION]                       LIST      107
                     0303000057 +                 ZR     X3,PIK55    IF NO OFFSET                                LIST      108
            47  6120000052                        KTY                CONVERT OFFSET                              FC5A281    25
            50  0333000056 +                      MI     X3,PIK50    IF NEGATIVE OFFSET                          LIST      110
                          7110000045              SX1    1R+                                                     LIST      111
            51  0531000055 +                      NE     B3,B1,PIK45 IF NOT RJ WITH TRACE                        LIST      112
                          7110000056              SX1    1R,                                                     LIST      113
            52  5130000000 +                      SA3    SAVFP                                                   LIST      114
                          5120001316 +            SA2    =2L,S                                                   LIST      115
            53  0303000055 +                      ZR     X3,PIK45    IF NOT F.P.                                 LIST      116
                          10722                   BX7    X2                                                      LIST      117
            54  5170000003 +                      SA7    PIK=TAG+2   ADD *,S* FOR SUB                            LIST      118
                                                                                                                 FC50629     7
            55  12661                    PIK45    BX6    X6+X1                                                   LIST      119
                     20666                        LX6    -CHAR                                                   LIST      120
                                                                                                                 FC50629     8
            56  5160000002 +             PIK50    SA6    PIK=TAG+1                                               LIST      121
                                                                                                                 LIST      122
                                        *         LIST ADDRESS DECREMENT FROM H2[INSTRUCTION] FILED.             LIST      123
                                                                                                                 LIST      124
            57  7163777774               PIK55    SX6    B3-3                                                    LIST      125
                          0304000064 +            ZR     X4,PIK60    IF NO ADDRESS DECREMENT                     LIST      126
            60  0306000064 +                      ZR     X6,PIK60    IF INDEXED JUMP INSTRUCTION                 LIST      127
                          10344                   BX3    X4                                                      LIST      128
            61  0100000366 +                      RJ     KTX         CONVERT TAG                                 LIST      129
            62  5130001317 +                      SA3    =1L-                                                    LIST      130
                          20666                   LX6    -CHAR                                                   LIST      131
                               12663              BX6    X6+X3                                                   LIST      132
            63  54661                             SA6    A6+B1                                                   LIST      133
                                                                                                                 LIST      134
                                        *         DO ACTUAL INSTRUCTION SKELETON CONVERSION.                     LIST      135
                                                                                                                 LIST      136
            64  5110001320 +             PIK60    SA1    =1H                                                     LIST      137
                          7145777774              SX4    B5-3                                                    LIST      138
            65  10611                             BX6    X1                                                      LIST      139
                     43260                        MX2    -2*CHAR                                                 LIST      140
                          5110000000 X            SA1    OL=LBF                                                  LIST      141
            66  53610                             SA6    X1                                                      LIST      142
                     5135000000 X                 SA3    B5+PIK=PS   SKELETON                                    LIST      143
            67  5110000006 +                      SA1    PIK=I                                                   LIST      144
                          0314000071 +            NZ     X4,PIK70    IF NOT X-JUMP                               LIST      145
            70  5231777744 X                      SA3    X1-1R0+PIK=XJP  X-JUMP SKELETON                         LIST      146
                          0400000073 +            EQ     PIK75                                                   LIST      147
                                                                                                                 LIST      148
            71  77451                    PIK70    =X4    B5-01B                                                  LIST      149
                     0314000073 +                 NZ     X4,PIK75    IF NOT LCM LOAD/STORE                       LIST      150
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     6
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        PIK 
  
            72  5231777740 X                      SA3    =XPIK=LCM+X1-1R4  LCM LOAD OR STORE SKEL                LIST      151
                                                                                                                 LIST      152
            73  15432                    PIK75    BX4    -X2*X3                                                  LIST      153
                     20301                        LX3    59-58                                                   LIST      154
                          0323000077 +            PL     X3,PIK80    IF NO B-JUMP                                LIST      155
            74  5110000007 +                      SA1    PIK=J                                                   LIST      156
                          7211777744              SX1    X1-1R0                                                  LIST      157
            75  0311000077 +                      NZ     X1,PIK80    IF *BJ* .NE. *B0*                           LIST      158
                          5145777773 X            SA4    B5-4+PIK=XJP                                            LIST      159
            76  15442                             BX4    -X2*X4                                                  LIST      160
                                                                                                                 FC50629     9
            77  20430                    PIK80    LX4    4*CHAR                                                  LIST      161
                     5120000005 +                 SA2    PIK=BL                                                  LIST      162
                               20306              LX3    4+2                                                     LIST      163
           100  36642                             IX6    X4+X2                                                   LIST      164
                     43070                        MX0    -4                                                      LIST      165
                          15230                   BX2    -X0*X3      ISOLATE FIRST DESCRIPTOR                    LIST      166
                               20304              LX3    4                                                       LIST      167
           101  5222000005 +                      SA2    PIK=I-1+X2                                              LIST      168
                          20230                   LX2    4*CHAR                                                  LIST      169
           102  6120000030                        SB2    4*CHAR                                                  LIST      170
                                                                                                                 FC50629    10
           103  20606                    PIK90    LX6    6                                                       LIST      171
                     6122777771                   SB2    B2-CHAR                                                 LIST      172
                               36662              IX6    X6+X2                                                   LIST      173
           104  0520000106 +                      NZ     B2,PIK100   IF ASSEMBLY NOT FULL                        LIST      174
                          54661                   SA6    A6+B1                                                   LIST      175
           105  6120000074                        SB2    10*CHAR                                                 LIST      176
                          13666                   BX6    0                                                       LIST      177
                                                                                                                 FC50629    11
           106  15130                    PIK100   BX1    -X0*X3                                                  LIST      178
                     5221000005 +                 SA2    X1+PIK=I-1                                              LIST      179
                               20304              LX3    4                                                       LIST      180
           107  0322000103 +                      PL     X2,PIK90    IF NO CONDITIONAL ITEM                      LIST      181
                          0301000124 +            ZR     X1,PIK150   IF END OF SKELETON                          LIST      182
           110  0312000115 +                      NZ     X2,PIK110   IF 18-BIT  *K*  PORTION                     LIST      183
                          15130                   BX1    -X0*X3                                                  LIST      184
                               76211              =X2    1RB                                                     FC50629    12
           111  7211777776                        SX1    X1-1                                                    FC50629    13
                          0301000103 +            ZR     X1,PIK90    PRESERVE BI [EVEN IF B0]                    FC50629    14
           112  5211000006 +                      SA1    X1+PIK=I    FETCH CONDITIONAL REGISTER                  FC50629    15
                          7211777744              SX1    X1-1R0                                                  LIST      186
           113  76211                             =X2    1RB                                                     LIST      187
                     0311000103 +                 NZ     X1,PIK90    IF NOT  *B0*                                LIST      188
                               20310              LX3    2*4         SKIP OVER REGISTER AND FOLLOWING SEP        LIST      189
           114  0400000106 +                      EQ     PIK100                                                  LIST      190
                                                                                                                 LIST      191
                                        *         MERGE K-ADDRESS PORTION INTO ASSEMBLY.                         LIST      192
                                        *         ENTRY  (X6) = PARTIAL OUTPUT WORD (RIGHT JUST, ZERO FILL)      LIST      193
                                        *                (B2) = 6 * (NUMBER OF EMPTY CHARS LEFT IN X6)           LIST      194
                                        *                (A6) _ LAST OUTPUT LINE STORE ADDRESS.                  LIST      195
                                        *                (B3) = INDEX TO INSTRUCTION SKELTON                     LIST      196
                                                                                                                 LIST      197
           115  5120000001 +             PIK110   SA2    PIK=TAG                                                 LIST      198
                          43066                   MX0    -CHAR                                                   LIST      199
                                                                                                                 FC50629    16
           116  20206                    PIK120   LX2    CHAR                                                    LIST      200
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     7
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        PIK 
  
                     6100000000                   SB0    0                                                       LIST      201
                               15120              BX1    -X0*X2                                                  LIST      202
                                                                                                                 FC50629    17
           117  20606                    PIK130   LX6    CHAR                                                    LIST      203
                     6122777771                   SB2    B2-CHAR                                                 LIST      204
                               20206              LX2    CHAR                                                    LIST      205
           120  36661                             IX6    X6+X1                                                   LIST      206
                     15120                        BX1    -X0*X2                                                  LIST      207
                          0520000122 +            NZ     B2,PIK140   IF ASSEMBLY NOT FULL                        LIST      208
           121  54661                             SA6    A6+B1                                                   LIST      209
                     6120000074                   SB2    10*CHAR                                                 LIST      210
                               13666              BX6    0                                                       LIST      211
                                                                                                                 FC50629    18
           122  0311000117 +             PIK140   NZ     X1,PIK130   IF MORE CHARACTERS                          LIST      212
                          54221                   SA2    A2+B1                                                   LIST      213
           123  0312000116 +                      NZ     X2,PIK120   IF OFFSET EXISTS                            LIST      214
                                                                                                                 FC50629    19
           124  5130001320 +             PIK150   SA3    =1H                                                     LIST      215
                          67421                   SB4    B2-B1                                                   LIST      216
                               43701              MX7    1                                                       LIST      217
           125  23747                             AX7    X7,B4                                                   LIST      218
                     11337                        BX3    X3*X7       GET DESIRED NO. OF BLANKS                   LIST      219
                          12663                   BX6    X6+X3       BLANK FILL                                  LIST      220
                               22626              LX6    X6,B2       LEFT JUSTIFY ASSEMBLY                       LIST      221
           126  54661                             SA6    A6+B1                                                   LIST      222
                     77031                        SX0    B3-B1       SAVE (B3-1)                                 LIST      223
                          6130777776 X            SB3    LINEBUF-1                                               LIST      224
           127  7110000000 X                      PLINE  LINEBUF,A6-B3                                           LIST      225
           131  5110000000 X                      SA1    TAGSUB0                                                 LIST      226
                          5140001321 +            SA4    =7RSUB0                                                 LIST      227
           132  20136                             LX1    PB.TAGP                                                 LIST      228
                     0300000024 +                 ZR     X0,EXIT.    IF RJ WITH TRACE                            LIST      229
           133  0311000333 +                      NZ     X1,SUBI.10  IF SUB0                                     LIST      230
                          5140000002 +            SA4    PIK=TAG+1                                               LIST      231
           134  0100001251 +                      RJ     WSM         WRITE SUB MACRO                             LIST      232
           135  0400000024 +                      EQ     EXIT.                                                   LIST      233
  
  
  
  
                                        **        PRINT PSEUDO INSTRUCTIONS.                                     LIST      235
                                        *                                                                        LIST      236
                                        *         (X1)=(X5)=INSTRUCTION                                          LIST      237
                                                                                                                 LIST      238
                                                                                                                 LIST      239
           136                           LI=BMI   BSSENT 0                                                       LIST      249
           136                           LI=BCI   BSSENT 0                                                       LIST      250
           136                           LI=OTR   BSSENT 0                                                       LIST      251
           136                           LI=EMI   BSSENT 0                                                       LIST      252
           136                           LI=ECI   BSSENT 0                                                       LIST      253
           136                           LI=LOO   BSSENT 0                                                       LIST      254
           136  0400000024 +                      EQ     EXIT.       NO ACTION                                   LIST      255
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     8
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=ADDR 
  
           137                           LI=ADDR  BSSENT 0                                                       LIST      257
           137  5150001322 +                      SA5    =7RADDR                                                 LIST      258
                          5120000000 X            SA2    T.SYM                                                   LIST      259
           140  20136                             LX1    -PB.TAGP                                                LIST      260
                     73310                        SX3    X1          ISOLATE T.SYM INDEX                         LIST      261
                                   0              ERRNZ  PB.TAGL-18                                              LIST      262
                          20122                   LX1    PB.TAGP-PB.BIASP                                        LIST      263
                               73410              SX4    X1          ISOLATE BIAS                                LIST      264
                                   0              ERRNZ  PB.BIASL-18                                             LIST      265
           141  0100000366 +                      RJ     KTX                                                     LIST      266
           142  5160000001 +                      SA6    PIK=TAG                                                 LIST      267
                          7160000056              SX6    1R,                                                     LIST      268
           143  20666                             LX6    -CHAR                                                   LIST      269
                     54661                        =A6    A6+1                                                    LIST      270
                          10344                   BX3    X4                                                      LIST      271
           144  6120000052                        KTY                CONVERT BIAS                                FC5A281    26
           145  54661                             =A6    A6+1                                                    LIST      273
                     5026777775                   =A2    A6-2                                                    LIST      274
           146  5110001320 +                      SA1    =10H                                                    LIST      275
                          10355                   BX3    X5                                                      LIST      276
                               10611              BX6    X1                                                      LIST      277
           147  0100000461 +                      RJ     PVF         PRINT  *       ADDR   NAME,VERSION  *       LIST      278
           150  0400000024 +                      EQ     EXIT.                                                   LIST      279
  
  
  
  
           151                           LI=APL   BSSENT 0           LIST AP-LISTS                               LIST      281
           151  66600                             SB6    B0          INDICATE REGULAR AP-LISTS                   LIST      282
                     5110000632 +                 SA1    WCA.RJ                                                  LIST      283
           152  5120000000 X                      SA2    APLA        LENGTH OF T.APL BEFORE APPENDING T.LCA      LIST      284
                          0100000555 +            RJ     WAP                                                     LIST      285
           153  0100001225 +                      RJ     WLP         LIST LCM POINTER CELLS                      LIST      286
           154  0400000024 +                      EQ     EXIT.                                                   LIST      287
  
  
  
  
           155                           LI=BOS   BSSENT 0           LIST LINE NUMBER                            LIST      289
           155  43052                             MX0    -PB.BIASL                                               LIST      290
                     21114                        AX1    PB.BIASP                                                LIST      291
                          15110                   BX1    -X0*X1      LINE NUM = BIAS [INSTRUCTION]               LIST      292
           156  0100000000 X                      CALL   CDD         CONVERT LINE NUMBER TO DISPLAY CODE         LIST      293
           157  5110001323 +                      SA1    =H/*/                                                   LIST      294
                          5120001320 +            SA2    =H/ /                                                   LIST      295
           160  10611                             BX6    X1                                                      LIST      296
                     5130000000 X                 SA3    OL=LBF                                                  LIST      297
                               22702              LX7    X2                                                      LIST      298
           161  53630                             SA6    X3          +4 = Z 1-10      NOMINALLY                  LIST      299
                     5130001324 +                 SA3    =5ALINE                                                 LIST      300
                               54761              SA7    A6+B1       +5 = Z11-20                                 LIST      301
           162  10633                             BX6    X3                                                      LIST      302
                     22704                        LX7    X4                                                      LIST      303
                          54671                   SA6    A7+B1       +6 = Z21-30                                 LIST      304
                               54761              SA7    A6+B1       +7 = Z31-40                                 LIST      305
           163  64371                             SB3    A7+B1                                                   LIST      306
                     6160000000 X                 SB6    LINEBUF                                                 LIST      307
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE     9
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=BOS
  
                               76160              PLINE  B6,B3-B6                                                LIST      308
           165  0400000024 +                      EQ     EXIT.                                                   LIST      309
  
  
  
  
           166                           LI=BSS   BSSENT 0           *BSS*,  DEFINE LOCATION SYMBOL              LIST      311
           166  0100000442 +                      RJ     PBS         PRINT * TAG   BSS   N*                      LIST      312
           167  0400000024 +                      EQ     EXIT.                                                   LIST      313
  
  
  
  
           170                           LI=CON   BSSENT 0           PRINT CONSTANT ASSIGNMENTS                  LIST      315
           170  5130000000 X                      SA3    CO.PW                                                   LIST      316
                          7170000011              SX7    9                                                       LIST      317
           171  7233777601                        SX3    X3-126                                                  FC50353    33
                          7160000765 +            SX6    CC0                                                     LIST      319
           172  0323000174 +                      PL     X3,CON.10   IF NOT IN PW MODE                           FC50353    34
                          7170000005              SX7    5                                                       LIST      321
           173  7160000770 +                      SX6    CC3                                                     LIST      322
           174  5170000776 +             CON.10   SA7    WCCB        (WCCB) = LENGTH OF PRINT LINE               LIST      323
                          5067000001              SA6    A7+1        (WCCB+1) = START OF LINE BUFFER             LIST      324
           175  5110000000 X                      SA1    S=CON                                                   LIST      325
                          5150000000 X            SA5    T.CON                                                   LIST      326
           176  0100000736 +                      RJ     WCC         WRITE (T.CON)                               LIST      327
           177  0400000024 +                      EQ     EXIT.                                                   LIST      328
  
  
  
  
           200                           LI=CPL   BSSENT 0           PRINT *CPL* TAG WORD                        LIST      330
           200  43052                             MX0    -PB.TAGL                                                LIST      331
                     20136                        LX1    -PB.TAGP                                                LIST      332
                          15310                   BX3    -X0*X1      TAGI = TAG[INSTRUCTION]                     LIST      333
                               10433              BX4    X3                                                      LIST      334
           201  0100000366 +                      RJ     KTX         CONVERT TAGI                                LIST      335
           202  5160000001 +                      SA6    PIK=TAG     (PIK=TAG) = TAG                             LIST      336
                                                                                                                 LIST      337
                                        *         LIST   *CP         TAG,L*                                      LIST      338
                                        *                WHERE L = WC.CLEN IFF WC.CTYP .EQ. 0, ELSE  L = 0.      LIST      339
                                                                                                                 LIST      340
                          22014                   LX0    X4,B1                                                   LIST      341
                               36240              IX2    X4+X0       STIND = 3 * TAGI                            LIST      342
                                   0              ERRNZ  3-Z=SYM                                                 LIST      343
           203  5130000000 X                      SA3    T.SYM                                                   LIST      344
                          6273000002              =B7    X3+WC.W                                                 LIST      345
           204  53127                             SA1    X2+B7       WCI = T.SYM(STIND) + WC.W                   LIST      346
                     10211                        BX2    X1                                                      LIST      347
                          20114                   HX1    WC.CLEN                                                 LIST      348
                               21152              AX1    -WC.CLENL   CLENI = CLEN[WCI]                           LIST      349
           205  20236                             HX2    WC.CTYP                                                 LIST      350
                     21273                        AX2    59                                                      LIST      351
                          15312                   BX3    -X2*X1      L = CLENI IFF WC.CTYP .EQ. 0                LIST      352
           206  6120000052                        KTY                CONVERT LENGTH                              FC5A281    27
           207  5120001325 +                      SA2    =1R,                                                    LIST      354
                          12626                   BX6    X2+X6                                                   LIST      355
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    10
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=CPL
  
                               20666              LX6    -CHAR                                                   LIST      356
           210  54661                             SA6    A6+B1       (PIK=TAG+1) = ,L                            LIST      357
                     55261                        SA2    A6-B1                                                   LIST      358
                          5110001320 +            SA1    =10H                                                    LIST      359
           211  5130001326 +                      SA3    =7RCP                                                   LIST      360
                          10611                   BX6    X1                                                      LIST      361
           212  0100000461 +                      RJ     PVF         PRINT *  CP    TAG,L*                       LIST      362
           213  0400000024 +                      EQ     EXIT.                                                   LIST      363
  
  
  
  
           214                           LI=DATA  BSSENT 0           PRINT DATA INITIALIZATION TABLES            LIST      365
           214  5120000000 X                      SA2    T=DATS                                                  LIST      366
                          0302000024 +            ZR     X2,EXIT.    IF NO DATA INITIALIZATION                   LIST      367
                                         .T       IFEQ   TEST,ON                                                 LIST      368
                                                  DUMPT  DATS                                                    LIST      369
                                         .T       ENDIF                                                          LIST      370
           215  0400000024 +                      EQ     EXIT.                                                   LIST      371
  
  
  
  
           216                           LI=END   BSSENT 0           PRINT END LINE                              LIST      373
           216  43700                             MX7    0                                                       LIST      374
                     5170000002 +                 SA7    PIK=TAG+1                                               LIST      375
           217  5140000000 X                      SA4    MOD                                                     LIST      376
                          5120000000 X            SA2    IDENT                                                   LIST      377
           220  20462                             SBIT   X4,MO.PROP                                              LIST      378
                     5110001320 +                 SA1    =1H                                                     LIST      379
                               21474              AX4    -0                                                      LIST      380
           221  10611                             BX6    X1                                                      LIST      381
                     11724                        BX7    X2*X4                                                   LIST      382
                          5130001327 +            SA3    =7REND                                                  LIST      383
           222  55771                             SA7    A7-B1       (PIK=TAG) = PROGRAM NAME  OR 0              LIST      384
                     54270                        SA2    A7                                                      LIST      385
                          0100000461 +            RJ     PVF         PRINT *END    PROGNAM*                      LIST      386
           223  0400000024 +                      EQ     EXIT.                                                   LIST      387
  
  
  
  
           224                           LI=EQUN  BSSENT 0           PRINT *EQUN*                                LIST      389
           224  5110000000 X                      SA1    SUM.LBT                                                 LIST      390
                          0100000000 X            PIA    ,LINEBUF    PREPARE INSTRUCTION ADDRESS                 LIST      391
                          5130000000 X            SA3    S=LENP      ORDINAL INTO T.SYM ENTRY FOR LENP.          LIST      392
           226  22013                             LX0    X3,B1                                                   LIST      393
                     36330                        IX3    X3+X0       = 3 * ORDINAL = INDEX INTO T.SYM            LIST      394
                          5120000000 X            SA2    T.SYM                                                   LIST      395
           227  36123                             IX1    X2+X3                                                   LIST      396
                     43052                        MX0    WA.SYML                                                 LIST      397
                          5231000000              SA3    X1+WA.W     FETCH LABEL                                 LIST      398
           230  11103                             BX1    X0*X3       KEEP NAME                                   LIST      399
                     0100000000 X                 CALL   SFN         SPACE FILL NAME                             LIST      400
           231  20666                             LX6    -CHAR                                                   LIST      401
                     5130001330 +                 SA3    =10HEQUN                                                LIST      402
           232  5110000000 X             EQUN.10  SA1    OL=LBF                                                  LIST      403
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    11
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=EQUN 
  
                          53610                   SA6    X1                                                      LIST      404
                               10633              BX6    X3                                                      LIST      405
           233  54661                             =A6    A6+1                                                    LIST      406
                     6170777776 X                 SB7    LINEBUF-1                                               LIST      407
           234  7110000000 X                      PLINE  LINEBUF,A6-B7     PRINT  *LENP.  EQUN   *               LIST      408
           236  0400000024 +                      EQ     EXIT.                                                   LIST      409
  
  
  
  
  
  
  
  
           237                           LI=FMT   BSSENT 0           PRINT FORMAT ASSIGNMENTS                    LIST      412
           237  0100001002 +                      RJ     WCF                                                     LIST      413
           240  5130000000 X                      SA3    CO.OPT                                                  LIST      414
                          5120000000 X            SA2    T=LA                                                    LIST      415
           241  0313000024 +                      NZ     X3,EXIT.    IF NOT QCG                                  LIST      416
                          5110000000 X            SA1    S=LA                                                    LIST      417
           242  0302000024 +                      ZR     X2,EXIT.    IF NO LABELS ASSIGN-ED                      LIST      418
                          20136                   LX1    PB.TAGP                                                 LIST      419
           243  0100000442 +                      RJ     PBS         PRINT BSS (LA.)                             LIST      420
           244  7160000055                        SX6    1R                                                      LIST      421
                          5160000000 X            SA6    OL=RL       SET TO INCLUDE OCTAL                        LIST      422
           245  0400000024 +                      EQ     EXIT.                                                   LIST      423
  
  
  
  
           246                           LI=FLA   BSSENT 0           FORMAT LABEL ASSIGN-ED                      LIST      425
           246  5140001331 +                      SA4    =7LLABS                                                 LIST      426
                          10644                   BX6    X4                                                      LIST      427
                               10311              BX3    X1                                                      LIST      428
           247  5160000005 X                      SA6    LINEBUF+5                                               LIST      429
                          0100000366 +            RJ     KTX         CONVERT LABEL TAG                           LIST      430
           250  54661                             SA6    A6+B1                                                   LIST      431
                     5120000000 X                 SA2    OL=BIN                                                  LIST      432
                               21273              AX2    -1                                                      LIST      433
           251  5140001332 +                      SA4    =L/,FMT/                                                LIST      434
                          15742                   BX7    -X2*X4      FLAG AS FORMAT IFF SIGN OFF                 LIST      435
                               43600              MX6    0                                                       LIST      436
           252  54761                             SA7    A6+B1                                                   LIST      437
                     6150000005 X                 SB5    LINEBUF+5                                               LIST      438
                               54671              SA6    A7+B1                                                   LIST      439
           253  0100000501 +                      RJ     PLL         PUBLISH LISTING LINE                        LIST      440
           254  0400000024 +                      EQ     EXIT.                                                   LIST      441
  
  
  
  
           255                           LI=FVEC  BSSENT 0           PRINT FILE DESCRIPTOR                       LIST      443
           255  5150001333 +                      SA5    =7RFVEC                                                 LIST      444
                          5120000000 X            SA2    T.SYM                                                   LIST      445
           256  20136                             LX1    -PB.TAGP                                                LIST      446
                     63710                        SB7    X1          ISOLATE T.SYM *WB* INDEX                    LIST      447
                          5140001320 +            SA4    =10H                                                    LIST      448
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    12
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=FVEC 
  
           257  0470000262 +                      ZR     B7,FVEC.10  IF NO LFN                                   LIST      449
                          6177777776              SB7    B7-WB.W+WA.W                                            LIST      450
                                   0              ERRNZ  PB.TAGL-18                                              LIST      451
           260  53227                             SA2    X2+B7                                                   LIST      452
                     43022                        MX0    -WA.SYML                                                LIST      453
                          20252                   LX2    -WA.SYMP                                                LIST      454
                               15420              BX4    -X0*X2      ISOLATE NAME OF FILE                        LIST      455
           261  20422                             LX4    -WA.SYML    LEFT JUSTIFY                                LIST      456
                     43201                        MX2    1                                                       LIST      457
                          13442                   BX4    X4-X2       TURN OFF BIT 59                             LIST      458
                                                                                                                 FC5A281    28
           262  20122                    FVEC.10  LX1    PB.TAGP-PB.BIASP                                        LIST      459
                     73310                        SX3    X1          ISOLATE BUFL (OR MRL)                       LIST      460
                                   0              ERRNZ  PB.BIASL-18                                             LIST      461
                          6120000052              KTY                CONVERT BUFL (OR MRL)                       FC5A281    29
                                                                                                                 FC50049    24
           264  5160000001 +             FVEC.20  SA6    PIK=TAG                                                 FC50049    25
                          10144                   BX1    X4                                                      LIST      464
           265  0100000000 X                      CALL   SFN         SPACE FILL THE NAME                         LIST      465
           266  20666                             LX6    -CHAR                                                   LIST      466
                     10355                        BX3    X5                                                      LIST      467
                          5120000001 +            SA2    PIK=TAG                                                 LIST      468
           267  0100000461 +                      RJ     PVF         PRINT  *LFN     FVEC  BUFL   *              LIST      469
           270  0400000024 +                      EQ     EXIT.                                                   LIST      470
                                                                                                                 FC50049    26
           271                           LI=PLIM  BSSENT 0           PRINT LIMIT                                 FC50049    27
           271  5110000000 X                      SA1    =XCO.LL     PRINT LIMIT                                 FC50049    28
                          0100000000 X            CALL   CDD         CONVERT TO DECIMAL                          FC50049    29
           272  43501                             MX5    1                                                       FC50049    30
                     67221                        SB2    B2-B1                                                   FC50049    31
                          23525                   AX5    B2                                                      FC50049    32
                               11654              BX6    X5*X4       ZERO FILL LIMIT                             FC50049    33
           273  5150001334 +                      SA5    =7RPLIM                                                 FC50049    34
                          5140001320 +            SA4    =10H                                                    FC50049    35
           274  0400000264 +                      EQ     FVEC.20                                                 FC50049    36
  
  
  
  
           275                           LI=IDNT  BSSENT 0                                                       LIST      472
           275  0100001047 +                      RJ     WCS         LIST BLOCK STATISTICS                       LIST      473
           276  5110000000 X                      SA1    IDENT       FETCH PROGRAM NAME                          LIST      474
                          5130001335 +            SA3    =7RIDENT                                                LIST      475
           277  5140001320 +                      SA4    =10H                                                    LIST      476
                          43600                   MX6    0           SUPPRESS OCTAL AND RELOC                    LIST      477
                               10711              BX7    X1                                                      LIST      478
           300  5160000000 X                      SA6    OL=RL                                                   LIST      479
                          22604                   LX6    X4                                                      LIST      480
           301  5170000001 +                      SA7    PIK=TAG     (PIK=TAG) = PROGRAM NAME                    LIST      481
                          5027000000              SA2    A7+                                                     LIST      482
           302  0100000461 +                      RJ     PVF         PRINT  *    IDENT  PROGNAM *                LIST      483
           303  0400000024 +                      EQ     EXIT.                                                   LIST      484
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    13
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=IOM
  
           304                           LI=IOM   BSSENT 0           LIST IO AP-LISTS                            LIST      486
           304  5110001320 +                      SA1    =10H                                                    LIST      487
                          5130001336 +            SA3    =7RIOM                                                  LIST      488
           305  10611                             BX6    X1                                                      LIST      489
                     10733                        BX7    X3                                                      LIST      490
                          5170001210 +            SA7    WIO.10                                                  LIST      491
           306  5160000001 X                      SA6    LINEBUF+1                                               LIST      492
                          54661                   =A6    A6+1                                                    LIST      493
                               66610              SB6    B1          INDICATE IO AP-LIST                         LIST      494
           307  5110000633 +                      SA1    WIO.RJ                                                  LIST      495
                          5120000000 X            SA2    T=IOA                                                   LIST      496
           310  0100000555 +                      RJ     WAP         LIST I/O AP-LISTS                           LIST      497
           311  5130001337 +                      SA3    =7RCLW                                                  LIST      498
                          10633                   BX6    X3                                                      LIST      499
           312  5160001210 +                      SA6    WIO.10                                                  LIST      500
                          0100001030 +            RJ     WCL         LIST CHARACTER LENGTH ARRAYS                LIST      501
           313  0400000024 +                      EQ     EXIT.                                                   LIST      502
  
  
  
  
           314                           LI=JPI   BSSENT 0           PRINT *JP   BI+Q* INSTRUCTION               LIST      504
           314  6130000003                        SB3    3           INDEX TO INSTRUCTION SKELETON               LIST      505
                          43471                   MX4    -PB.IL                                                  FC5A219    20
                               20511              LX5    -PB.IP                                                  FC5A219    21
           315  15654                             BX6    -X4*X5      EXTRACT *I*                                 FC5A219    22
                     20563                        LX5    PB.IP                                                   FC5A219    23
                          7266000033              SX6    X6+1R0                                                  FC5A219    24
           316  5160000006 +                      SA6    PIK=I       SET FOR JP INTRUCTION                       FC5A219    25
                          0400000325 +            EQ     RJ6.10                                                  LIST      506
  
  
  
  
                                        **        DUE TO THE DIFICULTIES INVOLVED IN PRINTING LOADER             LIST      508
                                        *         DIRECTIVES IN THE PROPER PLACE, WE WILL NOT DO SO.             LIST      509
                                                                                                                 LIST      510
                                                                                                                 LIST      511
           317                           LI=LCC   BSSENT 0           PRINT USER LOADER DIRECTIVE                 LIST      512
           317  0400000024 +                      EQ     EXIT.                                                   LIST      513
  
  
  
  
           320                           LI=LD0   BSSENT 0                                                       LIST      515
           320                           LI=ST0   BSSENT 0                                                       LIST      516
           320  0400400320 +                      EQ     "BLOWUP"    SHOULD NOT COME HERE                        LIST      517
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    14
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=NLST 
  
           321                           LI=NLST  BSSENT 0           PRINT NAMELIST GROUP TABLE                  LIST      519
           321  5120000000 X                      SA2    T=DIM                                                   LIST      520
                                        ** FV     WHAT ABOUT RUN-TIME DIM TABLE ??                               LIST      521
                          5120000000 X            SA2    T=NLST                                                  LIST      522
           322  0302000024 +                      ZR     X2,EXIT.    IF NO NAMELIST GROUPS                       LIST      523
                                         .T       IFEQ   TEST,ON                                                 LIST      524
                                                  DUMPT  NLST                                                    LIST      525
                                         .T       ENDIF                                                          LIST      526
                          0400000024 +            EQ     EXIT.                                                   LIST      527
  
  
  
  
           323                           LI=RJ3   BSSENT 0           PRINT *RJ     XXX* INSTRUCTION              LIST      529
           323  6130000002                        SB3    2           INDEX TO INSTRUCTION SKELETON               LIST      530
                          0400000325 +            EQ     RJ6.10                                                  LIST      531
  
  
  
  
           324                           LI=RJ6   BSSENT 0           PRINT RETURN JUMP WITH TRACE                LIST      533
           324  6130000001                        SB3    1           INDEX TO INSTRUCTION SKELETON               LIST      534
           325  43452                    RJ6.10   MX4    -PB.TAGL                                                LIST      535
                     7160000024                   SX6    1RT                                                     LIST      536
                               20136              LX1    -PB.TAGP                                                LIST      537
           326  6150000001 X                      SB5    PIK=PS+1                                                LIST      538
                          67535                   SB5    B3-B5                                                   LIST      539
           327  6155000000 X                      SB5    B5+PIK=PI                                               LIST      540
                          15314                   BX3    -X4*X1      ISOLATE TAG                                 LIST      541
           330  5160000010 +                      SA6    PIK=I+2                                                 LIST      542
                          0400000043 +            EQ     PIK40                                                   LIST      543
  
  
  
  
           331                           LI=SB0I  BSSENT 0           OUTPUT SUB0 INDEX                           LIST      545
           331  5140001340 +                      SA4    =7RSB0I                                                 LIST      546
                          0400000333 +            EQ     SUBI.10                                                 LIST      547
  
  
  
  
           332                           LI=SUBI  BSSENT 0           OUTPUT SUB INDEX                            LIST      549
           332  5140001341 +                      SA4    =7RSUBI                                                 LIST      550
           333                           SUBI.10  BSS    0                                                       LIST      551
           333  43052                             MX0    -PB.TAGL                                                LIST      552
                     21136                        AX1    PB.TAGP                                                 LIST      553
                          15310                   BX3    -X0*X1      TAGI = TAG[INSTRUCTION]                     LIST      554
           334  0100000366 +                      RJ     KTX         CONVERT TAG                                 LIST      555
           335  5160000001 +                      SA6    PIK=TAG     (PIK=TAG) = TAG                             LIST      556
                          5110001320 +            SA1    =10H                                                    LIST      557
           336  10344                             BX3    X4                                                      LIST      558
                     10611                        BX6    X1                                                      LIST      559
                          54260                   SA2    A6                                                      LIST      560
           337  0100000461 +                      RJ     PVF         PRINT * SUBI  TAG*                          LIST      561
           340  0400000024 +                      EQ     EXIT.                                                   LIST      562
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    15
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=UJP
  
           341                           LI=UJP   BSSENT 0           PRINT *EQ     XXX* INSTRUCTION              LIST      564
           341  6130000004                        SB3    4           INDEX TO INSTRUCTION SKELETON               LIST      565
                          0400000325 +            EQ     RJ6.10                                                  LIST      566
  
  
  
  
           342                           LI=USE   BSSENT 0           PRINT *USE BLOCK*                           LIST      568
           342  20136                             HX1    PB.BIAS                                                 LIST      569
                     21152                        AX1    -PB.BIASL                                               LIST      570
                          5211001302 +            SA1    X1+TLBN     FETCH BLOCK NAME                            LIST      571
           343  7160000055                        SX6    55B                                                     LIST      572
                          5140001320 +            SA4    =10H                                                    LIST      573
           344  5130001342 +                      SA3    =7RUSE                                                  LIST      574
                          37716                   IX7    X1-X6       LEAVE A 0 AT BOTTOM OF NAME                 LIST      575
           345  5170000001 +                      SA7    PIK=TAG     (PIK=TAG) = BLOCK NAME                      LIST      576
                          54270                   SA2    A7                                                      LIST      577
                               10644              BX6    X4                                                      LIST      578
           346  0100000461 +                      RJ     PVF         PRINT * USE  BLKNAM*                        LIST      579
           347  0400000024 +                      EQ     EXIT.                                                   LIST      580
                                                                                                                 LIST      581
           350  55555555555555555555     USE.10   DIS    1,                                                      LIST      582
           351  55555555555555555555              DIS    1,                                                      LIST      583
           352  55252305555502141703              DATA   10H USE  BLOC                                           LIST      584
           353                     1              BSS    1           K NAME                                      LIST      585
  
  
  
  
           354                           LI=TRAC  BSSENT 0           PRINT *NAME    TRACE*                       LIST      587
           354  5110000000 X                      SA1    IDENT                                                   LIST      588
                          0100000000 X            CALL   ZTB         ZERO CHARS TO BLANKS                        LIST      589
           355  20666                             LX6    -6                                                      LIST      590
                     7170000045                   SX7    1R+         INDICATE PROGRAM RELOCATION                 LIST      591
           356  5160000004 X                      SA6    LINEBUF+4                                               LIST      592
                          6150000361 +            SB5    TRAC.A                                                  LIST      593
           357  5170000000 X                      SA7    OL=RL                                                   LIST      594
                          0100000501 +            RJ     PLL         PUBLISH LISTING LINE                        LIST      595
           360  0400000024 +                      EQ     EXIT.                                                   LIST      596
                                                                                                                 LIST      597
           361  24220103055700000000     TRAC.A   DATA   L/TRACE./                                               LIST      598
           362  00000000000000000000              DATA   0                                                       LIST      599
  
  
  
  
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    16
        PIK - OBJECT CODE LISTING MAIN ROUTINE                        LI=ZERO 
  
           363                           LI=ZERO  BSSENT 0           PRINT A ZERO WORD                           LIST      602
           363  5130001320 +                      SA3    =10H                                                    LIST      603
                          13111                   BX1    0                                                       LIST      604
           364  0100001272 +                      RJ     ZWI         OUTPUT A ZERO WORD                          LIST      605
           365  0400000024 +                      EQ     EXIT.                                                   LIST      606
                                                                                                                 LIST      607
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    17
        OBJECT LISTING SUPPORTING ROUTINES.                           KTX 
  
                                        **        KTX -  KONVERT TAG TO EXTERNAL FORMAT                          LIST      610
                                        *                                                                        LIST      611
                                        *         ENTRY  (X3) = TAG (R-JUST, ZERO FILL)                          LIST      612
                                        *         EXIT   (X6) = DPC CONVERSION (L-JUST, ZERO FILL, 9 CHAR MAX)   LIST      613
                                        *                (SAVFP) .EQ. 1 IF FP                                    LIST      614
                                        *         USES   A1,A2,A3,A7   B2,B7   X1,X2,X3,X6,X7                    LIST      615
                                                                                                                 LIST      616
                                                                                                                 LIST      617
           366  0400400366 +             KTX      SUBR               ENTRY/EXIT...                               LIST      618
           367  0303000414 +                      ZR     X3,KTX60    IF TAG .EQ. 0                               LIST      619
                          43156                   MX1    -PB.ORDL                                                LIST      620
                               11213              BX2    X1*X3       PFXI = PFX[TAGI]                            LIST      621
           370  0302000376 +                      ZR     X2,KTX20    IF PFXI .EQ. 0 (IF SYMBOL TABLE ORDINAL)    LIST      622
                                                                                                                 LIST      623
                                        *         CONVERT AN INTERNAL TAG.                                       LIST      624
                                        *         X3 = TAGI (R-JUST)                                             LIST      625
                                                                                                                 LIST      626
                          76600                   SX6    B0                                                      LIST      627
                               15131              BX1    -X1*X3      ORDI = ORD[TAGI]                            LIST      628
           371  21217                             AX2    P=PFX                                                   LIST      629
                     63220                        SB2    X2                                                      LIST      630
                                         .TEST    IFEQ   TEST,ON                                                 LIST      631
                                                  SX3    X2-K=END                                                LIST      632
                                                  PL     X3,"BLOWUP" IF PFXI .GE. K=END                          LIST      633
                                         .TEST    ENDIF                                                          LIST      634
                          7130000007              SX3    7                                                       LIST      635
           372  11231                    KTX10    BX2    X3*X1       ISOLATE LOWEST OCTAL DIGIT                  LIST      636
                     21103                        AX1    3                                                       LIST      637
                          7222000033              SX2    X2+1R0                                                  LIST      638
           373  12662                             BX6    X6+X2                                                   LIST      639
                     20666                        LX6    -CHAR                                                   LIST      640
                          0311000372 +            NZ     X1,KTX10    IF NUMBER NOT FINISHED                      LIST      641
           374  5132000416 +                      SA3    B2+KTXN     FETCH TAG PREFIX                            LIST      642
                          12663                   BX6    X6+X3                                                   LIST      643
                               20652              LX6    -3*CHAR                                                 LIST      644
           375  0400000366 +                      EQ     EXIT.                                                   LIST      645
                                                                                                                 LIST      646
                                        *         CONVERT VARIABLE TAG.                                          LIST      647
                                        *         TESTS FOR STATEMENT LABEL (*LAB*) AND PROCESSES.               LIST      648
                                        *         PREFIX TAG WITH *=X* IF *EXT* BIT IS SET IN THE SYMBOL         LIST      649
                                        *         TABLE ENTRY.                                                   LIST      650
                                        *         (X3) = ORDI        (SYMBOL TABLE ORDINAL)                      LIST      651
                                                                                                                 LIST      652
                                                                                                                 LIST      653
           376  5110000000 X             KTX20    SA1    T.SYM                                                   LIST      654
                          22613                   LX6    X3,B1                                                   LIST      655
                               36663              IX6    X6+X3       STIND =  3 * ORDI                           LIST      656
                                   0              ERRNZ  3-Z=SYM                                                 LIST      657
           377  36116                             IX1    X1+X6                                                   LIST      658
                     5221000001                   SA2    X1+WB.W     WBI = T.SYM(STIND)                          LIST      659
                               10722              BX7    X2                                                      LIST      660
           400  20270                             SBIT   X2,WB.LABP                                              FC5A219    26
                     0332000410 +                 MI     X2,KTX40    IF STATEMENT LABEL                          FC5A219    27
                               43652              MX6    WA.SYML                                                 LIST      662
           401  5032777776                        SA3    A2-WB.W+WA.W      WAI = T.SYM(STIND)                    LIST      664
                          11663                   BX6    X6*X3      SYMBOL                                       LIST      665
                               20261              LX2    WB.LABP-WB.EXTP                                         LIST      666
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    18
        OBJECT LISTING SUPPORTING ROUTINES.                           KTX 
  
           402  66200                             =B2    0                                                       FC5A219    28
                     20753                        SBIT   X7,WB.FPP                                               FC5A219    29
                          0327000404 +            PL     X7,KTX30    IF NOT FP                                   FC5A219    30
           403  43163                             MX1    -WB.FPNOL                                               FC5A219    31
                     20754                        LX7    1+WB.FPP-WB.FPNOP                                       FC5A219    32
                          15171                   BX1    -X1*X7                                                  FC5A219    33
                               63210              SB2    X1                                                      FC5A219    34
           404  7172000000               KTX30    SX7    B2+         FPNO (OR ZERO)                              FC5A219    35
                          5170000000 +            SA7    SAVFP       (SAVFP) = FPNO[WBI]                         FC5A219    36
           405  5170000000 +                      SA7    SAVFP       (SAVFP) = FP[WBI]                           LIST      669
                          0322000366 +            PL     X2,EXIT.    IF NOT AN EXTERNAL                          LIST      670
           406  7110005430                        SX1    2R=X                                                    LIST      671
                          12616                   BX6    X1+X6                                                   LIST      672
                               20660              LX6    -2*CHAR     PREFIX EXTERNALS WITH *=X*                  LIST      673
           407  0400000366 +                      EQ     EXIT.       EXIT..                                      LIST      674
                                                                                                                 LIST      675
                                        *         CONVERT STATEMENT LABEL TAG.                                   LIST      676
                                        *         (A2) = WBI                                                     LIST      677
                                                                                                                 LIST      678
           410  55121                    KTX40    =A1    A2-WB.W+WA.W      WAI = WORD A ENTRY OF SYMBOL          LIST      679
                     43206                        MX2    CHAR                                                    LIST      680
                          21130                   AX1    WA.STLP     EXTRACT THE LABEL                           LIST      681
           411  11621                    KTX50    BX6    X2*X1       ISOLATE LEADING CHARACTER                   LIST      682
                     20106                        LX1    CHAR                                                    LIST      683
                          0306000411 +            ZR     X6,KTX50    IF NO SIGNIFICANT CHARACTER YET             LIST      684
           412  7120005700                        SX2    2R.*-1R*                                                LIST      685
                          12612                   BX6    X1+X2                                                   LIST      686
                               20660              LX6    -2*CHAR                                                 LIST      687
           413  0400000366 +                      EQ     EXIT.                                                   LIST      688
                                                                                                                 LIST      689
           414  6120000052               KTX60    KTY                CONVERT 0                                   FC5A281    30
           415  0400000366 +                      EQ     EXIT.                                                   LIST      691
                                                                                                                 LIST      692
                                        *         VECTOR OF PREFIXES FOR AUXILLIARY TABLE TAGS.                  LIST      693
                                                                                                                 LIST      694
           416                           KTXN     BSS    0                                                       LIST      695
      L      0                                    LOC    0                                                       LIST      696
      L      0  00000000000000233157     K=SYM    DATA   3RSY.       K.SYM       (SHOULD NEVER SEE THIS)         LIST      697
      L      1  00000000000000071457     K=GL     DATA   3RGL.       K.GL        GENERATED LABEL                 LIST      698
      L      2  00000000000000012057     K=AP     DATA   3RAP.       K.AP        AP-LIST INDEX                   LIST      699
      L      3  00000000000000111757     K=IO     DATA   3RIO.       K.IO        I/O APL INDEX                   LIST      700
      L      4  00000000000000142057     K=LC     DATA   3RLP.       K.LC        LCM POINTER WORD INDEX          FC50457    10
      L      5                           K=END    BSS    0           INSURE VECTOR SYNCHRONIZATION               LIST      702
           423                                    LOC    *O                                                      LIST      703
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    19
        OBJECT LISTING SUPPORTING ROUTINES.                           KTY 
  
                                        **        KTY -  CONVERT SHORT CONSTANTS FOR OBJECT LIST.                LIST      705
                                        *                                                                        LIST      706
                                        *         ENTRY  (B2) = SHIFT COUNT FOR SIGN EXTENSION                   FC5A281    31
                                        *                (X3) = CONSTANT, RIGHT JUSTIFIED.  HIGH ORDER BIT IS    FC5A281    32
                                        *                       ASSUMED TO BE SIGN BIT (WHICH BIT IS HIGH ORDER  FC5A281    33
                                        *                       IS DETERMINED BY (B2)).  MINUS SIGN WILL PREFIX  FC5A281    34
                                        *                       AS NECESSARY.                                    FC5A281    35
                                        *                                                                        LIST      711
                                        *         EXIT   (X6) = DPC CONVERSION (0L FORMAT).  WILL HAVE A         LIST      712
                                        *                       TRAILING *B* SUFFIX IF ABSOLUTE VALUE OF         LIST      713
                                        *                       THE CONSTANT IS .GT. EIGHT.                      LIST      714
                                        *                (X3) .LT.0 IF CONSTANT WAS NEGATIVE.                    LIST      715
                                        *                                                                        LIST      716
                                        *         USES   X1-X3,X6,X7                                             LIST      717
                                                                                                                 LIST      718
                                                                                                                 LIST      719
           423  0400400423 +             KTY      SUBR               ENTRY/EXIT...                               LIST      720
           424  7170000007                        SX7    7                                                       LIST      721
                          22323                   LX3    B2,X3                                                   FC5A281    36
                               10233              BX2    X3                                                      FC5A281    37
           425  23323                             AX3    B2,X3       SIGN EXTEND                                 FC5A281    38
                     21273                        AX2    59          MASK = (+0 IF POS), (-0 IF NEG)             FC5A281    39
                          13623                   BX6    X2-X3       X6 = ABS (X3)                               LIST      726
                               22106              LX1    X6                                                      LIST      727
           426  21603                             AX6    3                                                       LIST      728
                     0306000427 +                 ZR     X6,KTY6     IF ABS(X3) .LT. 8                           LIST      729
                               76611              =X6    1RB                                                     LIST      730
                                                                                                                 LIST      731
           427  11271                    KTY6     BX2    X7*X1       ISOLATE LOWEST OCTAL DIGIT                  LIST      732
                     21103                        AX1    3                                                       LIST      733
                          7222000033              SX2    X2+1R0                                                  LIST      734
           430  20666                             LX6    -CHAR                                                   LIST      735
                     12626                        BX6    X2+X6                                                   LIST      736
                          0311000427 +            NZ     X1,KTY6     IF NUMBER NOT EXHAUSTED                     LIST      737
                                                                                                                 LIST      738
           431  20666                             LX6    -CHAR                                                   LIST      739
                     0323000423 +                 PL     X3,EXIT.    IF POSITIVE CONSTANT                        LIST      740
           432  7110000046                        SX1    1R-                                                     LIST      741
                          12616                   BX6    X1+X6                                                   LIST      742
                               20666              LX6    -CHAR                                                   LIST      743
           433  0400000423 +                      EQ     EXIT.                                                   LIST      744
  
  
  
  
                                        **        KUB -  KONVERT UPPER BITS TO DISPLAY CODE.                     LIST      746
                                        *                CONVERT UPPER 12 BITS OF A WORD TO DISPLAY CODE,        LIST      747
                                        *                ZERO NOT SUPPRESSED.                                    LIST      748
                                        *                                                                        LIST      749
                                        *         ENTRY  (X1) = WORD TO BE CONVERTED                             LIST      750
                                        *         EXIT   (X7) = WORD CONTAINING LEFT JUSTIFIED 4 CHARACTERS      LIST      751
                                        *                       CONVERTED TO DPC                                 LIST      752
                                        *         USES   X -  1,3,4,6,7                                          LIST      753
                                        *                B -  2,4                                                LIST      754
                                                                                                                 LIST      755
                                                                                                                 LIST      756
           434  0400400434 +             KUB      SUBR   0           ENTRY/EXIT.                                 LIST      757
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    20
        OBJECT LISTING SUPPORTING ROUTINES.                           KUB 
  
           435  7130000033                        =X3    1R0                                                     LIST      758
                          43671                   MX6    -3                                                      LIST      759
                               43700              MX7    0                                                       LIST      760
           436  6140000003                        SB4    3                                                       LIST      761
                          6120000014              SB2    4*3         N = 4                                       LIST      762
           437  22141                    KUB10    LX1    B4                                                      LIST      763
                     15416                        BX4    -X6*X1                                                  LIST      764
                          36443                   IX4    X4+X3       CONVERT TO DPC                              LIST      765
                               20706              LX7    CHAR                                                    LIST      766
           440  12774                             BX7    X7+X4                                                   LIST      767
                     67224                        SB2    B2-B4       N = N - 1                                   LIST      768
                          0520000437 +            NZ     B2,KUB10    IF N .NE. 0                                 LIST      769
           441  20744                             LX7    -4*CHAR                                                 LIST      770
                     0400000434 +                 EQ     EXIT.                                                   LIST      771
  
  
  
  
                                        **        PBS -  PRINT BSS INSTRUCTION.                                  LIST      773
                                        *                                                                        LIST      774
                                        *         ENTRY  (X1) = PB INSTRUCTION FORMAT , WHERE                    LIST      775
                                        *                PB.TAG      TAG OF BSS                                  LIST      776
                                        *                PB.BIAS     NUMBER OF BSS                               LIST      777
                                        *         CALLS  KTX,KTY,PVF                                             LIST      778
                                        *         USES   ALL BUT X0,A5,X5,A0                                     LIST      779
                                                                                                                 LIST      780
                                                                                                                 LIST      781
           442  0400400442 +             PBS      SUBR               ENTRY/EXIT...                               LIST      782
           443  43752                             MX7    -PB.BIASL                                               LIST      783
                     43652                        MX6    -PB.TAGL                                                LIST      784
                          20160                   LX1    -PB.BIASP                                               LIST      785
                               15317              BX3    -X7*X1      BSS COUNT = BIAS [INSTRUCTION]              LIST      786
           444  20152                             LX1    PB.BIASP-PB.TAGP                                        LIST      787
                     15416                        BX4    -X6*X1      BSS TAG = TAG [INSTRUCTION]                 LIST      788
                          6120000052              KTY                CONVERT BSS COUNT                           FC5A281    40
           446  5160000457 +                      SA6    PBSA+1                                                  LIST      790
                          5120001320 +            SA2    =1H                                                     LIST      791
           447  10622                             BX6    X2                                                      LIST      792
                     22304                        LX3    X4                                                      LIST      793
                          0304000452 +            ZR     X4,PBS10    IF TAGI .EQ. 0    (NO TAG)                  LIST      794
           450  0100000366 +                      RJ     KTX         CONVERT TAG TO EXTERNAL REPRESENTATION      LIST      795
           451  10166                             BX1    X6                                                      LIST      796
                     0100000000 X                 CALL   SFN         SPACE FILL                                  LIST      797
           452  20666                    PBS10    LX6    -6                                                      LIST      798
                     13777                        BX7    0           INDICATE NO OCTAL                           LIST      799
                          65561                   SB5    A6-B1                                                   LIST      800
           453  5170000000 X                      SA7    OL=RL                                                   LIST      801
                          5160000004 X            SA6    LINEBUF+4                                               LIST      802
           454  0100000501 +                      RJ     PLL         PUBLISH LISTING LINE                        LIST      803
           455  0400000442 +                      EQ     EXIT.                                                   LIST      804
                                                                                                                 LIST      805
           456  02232355555555000000     PBSA     DATA   7LBSS                                                   LIST      806
           457  33000000000000000000              DATA   1L0                                                     LIST      807
           460  00000000000000000000              DATA   0                                                       LIST      808
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    21
        OBJECT LISTING SUPPORTING ROUTINES.                           PVF 
  
                                        **        PVF -  PACK VARIABLE FIELD FOR LISTING.                        LIST      810
                                        *         ENTRY  X2 = (A2) = (FWA OF ITEMS TO BE PACKED)                 LIST      811
                                        *                X6 = LABEL FIELD TO BE WRITTEN                          LIST      812
                                        *                X3 = 7R]OP-FIELD                                        LIST      813
                                        *                ITEMS ARE IN 0L FORMAT, TERMINATED BY A ZERO WORD       LIST      814
                                        *         USES   ALL BUT A0,A5,X5,X0                                     LIST      815
                                                                                                                 LIST      816
                                                                                                                 LIST      817
           461  0400400461 +             PVF      SUBR               ENTRY/EXIT...                               LIST      818
           462  5110000000 X                      SA1    OL=LBF                                                  LIST      819
                          53610                   SA6    X1          STORE LABEL FIELD                           LIST      820
                               10633              BX6    X3                                                      LIST      821
           463  6120000022                        SB2    3*CHAR                                                  LIST      822
                          43466                   MX4    -CHAR                                                   LIST      823
                               65761              SB7    A6-B1                                                   LIST      824
           464  0302000475 +                      ZR     X2,PFV40    IF NOTHING TO PACK                          LIST      825
           465  20206                    PVF10    LX2    CHAR                                                    LIST      826
                     6100000000                   SB0    0                                                       LIST      827
                               15124              BX1    -X4*X2                                                  LIST      828
           466  20606                    PVF20    LX6    CHAR                                                    LIST      829
                     6122777771                   SB2    B2-CHAR                                                 LIST      830
                               20206              LX2    CHAR                                                    LIST      831
           467  36661                             IX6    X6+X1                                                   LIST      832
                     15124                        BX1    -X4*X2      ISOLATE NEXT CHARACTER                      LIST      833
                          0520000471 +            NZ     B2,PVF30    IF ASSEMBLY NOT FULL                        LIST      834
           470  54661                             SA6    A6+B1                                                   LIST      835
                     6120000074                   SB2    10*CHAR                                                 LIST      836
                               13666              BX6    0                                                       LIST      837
           471  0311000466 +             PVF30    NZ     X1,PVF20    IF MORE CHARACTERS                          LIST      838
                          54221                   SA2    A2+B1                                                   LIST      839
           472  5130001320 +                      SA3    =1H                                                     LIST      840
                          0312000465 +            NZ     X2,PVF10    IF MORE ITEMS                               LIST      841
           473  67321                             SB3    B2-B1                                                   LIST      842
                     43701                        MX7    1                                                       LIST      843
                          23737                   AX7    X7,B3                                                   LIST      844
                               11337              BX3    X3*X7       GET DESIRED NO. OF BLANKS                   LIST      845
           474  12663                             BX6    X6+X3       FILL IN BLANKS                              LIST      846
           475  22626                    PFV40    LX6    X6,B2                                                   LIST      847
                     54661                        SA6    A6+B1                                                   LIST      848
                          6130777776 X            SB3    LINEBUF-1                                               LIST      849
           476  7110000000 X                      PLINE  LINEBUF,A6-B3                                           LIST      850
           500  0400000461 +                      EQ     EXIT.                                                   LIST      851
  
  
  
  
                                        **        PLL - PUBLISH LISTING LINE.                                    LIST      853
                                        *                                                                        LIST      854
                                        *         ENTRY  (B5) -> FIRST ITEM TO ASSEMBLE.                         LIST      855
                                        *                            USUALLY -> LINEBUF+5 = 7L_OPCODE.           LIST      856
                                        *                (LINEBUF+0) = ORIGIN COUNTER.                           LIST      857
                                        *                            .MI. IF ALREADY FORMATTED.                  LIST      858
                                        *                (LINEBUF+4) = LABEL FIELD, FORMATTED ALREADY.           LIST      859
                                        *                (OL=LBF) = ADDRESS IN LINEBUF OF LABEL FIELD (FOR PW).  LIST      860
                                        *                (OL=BIN) = FULLWORD BINARY FOR LISTING.                 LIST      861
                                        *                (OL=RL) = RELOCATION LISTING INDICATOR --               LIST      862
                                        *                            .ZR. = SUPPRESS OCTAL, BLANK RL.            LIST      863
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    22
        OBJECT LISTING SUPPORTING ROUTINES.                           PLL 
  
                                        *                            .NZ. = 1R_F, F = RELOC CHARACTER.           LIST      864
                                        *                                                                        LIST      865
                                        *         USES   ALL BUT  A0,X0,  A5,X5.                                 LIST      866
                                        *         CALLS  COD, PLINE, PVS, WOD.                                   LIST      867
                                                                                                                 LIST      868
                                                                                                                 LIST      869
           501  0400400501 +             PLL      SUBR   0           ENTRY/EXIT...                               LIST      870
           502  5130000000 X                      SA3    OL=RL                                                   LIST      871
                          5140001320 +            SA4    =H/  /                                                  LIST      872
           503  10644                             BX6    X4                                                      LIST      873
                     64650                        SB6    A5          SAVE (A5)                                   LIST      874
                          22704                   LX7    X4                                                      LIST      875
           504  0303000506 +                      ZR     X3,PLL5     IF NO OCTAL TRANSLATION                     LIST      876
                          5110000000 X            SA1    OL=BIN                                                  LIST      877
           505  0100000000 X                      CALL   WOD                                                     LIST      878
           506  5130000000 X             PLL5     SA3    OL=RL                                                   LIST      879
                          5160000001 X            SA6    LINEBUF+1   (LINEBUF+1, +2) = OCTAL                     LIST      880
           507  54761                             SA7    A6+B1                                                   LIST      881
                     7160000055                   SX6    1R                                                      LIST      882
                               56560              SA5    B6          RESTORE (A5)                                LIST      883
           510  54630                             SA6    A3                                                      LIST      884
                     0303000512 +                 ZR     X3,PLL6     IF NO RELOCATION                            LIST      885
           511  7263000000                        SX6    X3+                                                     LIST      886
           512  5140001343 +             PLL6     SA4    =9L                                                     LIST      887
                          5130000004 X            SA3    LINEBUF+4                                               LIST      888
           513  36746                             IX7    X4+X6       (LINEBUF+3) = RELOCATION                    LIST      889
                     5110000000 X                 SA1    OL=LBF                                                  LIST      890
                               56250              SA2    B5                                                      LIST      891
           514  20760                             LX7    -2*6                                                    LIST      892
                     10633                        BX6    X3          SET STORE AT (LINEBUF+4)                    LIST      893
                          54771                   SA7    A7+B1                                                   LIST      894
                               53610              SA6    X1                                                      LIST      895
           515  0100000524 +                      RJ     PVS         PACK VARIABLE STRINGS                       LIST      896
           516  5110000000 X                      SA1    LINEBUF                                                 LIST      897
                          64361                   SB3    A6+B1       (B3) = LWA+1 OF PACKED LINE                 LIST      898
                               64610              SB6    A1                                                      LIST      899
           517  0331000521 +                      MI     X1,PLL8     IF ORIGIN ALREADY FORMATTED                 LIST      900
                          0100000000 X            CALL   COD                                                     LIST      901
           520  20614                             LX6    2*6                                                     LIST      902
                     54610                        SA6    A1          SET (ORIGIN) IN LINEBUF+0                   LIST      903
           521  76160                    PLL8     PLINE  B6,B3-B6                                                LIST      904
           523  0400000501 +                      EQ     EXIT.                                                   LIST      905
  
  
  
  
                                        **        PVS - PACK VARIABLE STRINGS.                                   LIST      907
                                        *                                                                        LIST      908
                                        *         ENTRY  (A2,X2) = FIRST ITEM.                                   LIST      909
                                        *                (A6) -> LAST WORD STORED.                               LIST      910
                                        *                ITEMS ARE IN 0L FORMAT, TERMINATED BY A ZERO WORD       LIST      911
                                        *                                                                        LIST      912
                                        *         EXIT   (A6) -> LAST WORD STORED (BLANK FILLED).                LIST      913
                                        *         USES   ALL BUT A0,A5,X5,X0                                     LIST      914
                                                                                                                 LIST      915
                                                                                                                 LIST      916
           524  0400400524 +             PVS      SUBR               ENTRY/EXIT...                               LIST      917
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    23
        OBJECT LISTING SUPPORTING ROUTINES.                           PVS 
  
           525  6120000074                        SB2    10*6        INDICATE ACCUMULATOR EMPTY                  LIST      918
                          43466                   MX4    -CHAR                                                   LIST      919
                               13666              BX6    0                                                       LIST      920
           526  0302000524 +                      ZR     X2,EXIT.    IF NOTHING TO PACK                          LIST      921
           527  20206                    PVS10    LX2    CHAR                                                    LIST      922
                     6100000000                   SB0    +                                                       LIST      923
                               15124              BX1    -X4*X2                                                  LIST      924
           530  20606                    PVS20    LX6    6                                                       LIST      925
                     13221                        BX2    X2-X1       REMOVE CHAR FROM SOURCE                     LIST      926
                          6122777771              SB2    B2-6                                                    LIST      927
           531  20206                             LX2    6                                                       LIST      928
                     36661                        IX6    X6+X1                                                   LIST      929
                          15124                   BX1    -X4*X2      ISOLATE NEXT CHARACTER                      LIST      930
           532  0520000534 +                      NZ     B2,PVS30    IF ASSEMBLY NOT FULL                        LIST      931
                          54661                   SA6    A6+B1                                                   LIST      932
           533  6120000074                        SB2    10*6                                                    LIST      933
                          13666                   BX6    0                                                       LIST      934
           534  0312000530 +             PVS30    NZ     X2,PVS20    IF SOURCE NOT EMPTY                         LIST      935
                          0332000530 +            MI     X2,PVS20    IF SOURCE WORD ALL SEMICOLONS               LIST      936
           535  54221                             SA2    A2+B1                                                   LIST      937
                     67321                        SB3    B2-B1                                                   LIST      938
                          0312000527 +            NZ     X2,PVS10    IF MORE ITEMS                               LIST      939
           536  43701                             MX7    1                                                       LIST      940
                     5130001320 +                 SA3    =1H                                                     LIST      941
                               23737              AX7    X7,B3                                                   LIST      942
           537  11337                             BX3    X3*X7       GET DESIRED NO. OF BLANKS                   LIST      943
                     12663                        BX6    X6+X3       FILL IN BLANKS                              LIST      944
                          22626                   LX6    X6,B2                                                   LIST      945
                               54661              SA6    A6+B1                                                   LIST      946
           540  0400000524 +                      EQ     EXIT.                                                   LIST      947
  
  
  
  
                                        **        VFD - VARIABLE FIELD DEFINITION.                               FC5A171A  360
                                        *                                                                        FC5A171A  361
                                        *                                                                        FC5A171A  362
                                        *                CONVERTS A SPECIFIED FIELD IN A BINARY WORD TO OCTAL    FC5A171A  363
                                        *         DISPLAY CODE WITH APPROPRIATE SPACING AND BLANK FILL.          FC5A171A  364
                                        *         THE FIELD TO BE CONVERTED CAN BE REPRESENTED IN *COMPASS* BY-- FC5A171A  365
                                        *                                                                        FC5A171A  366
                                        *         POS    (B4)   IN (X1)                                          FC5A171A  367
                                        *         VFD    (B5)/FIELD   WHERE *FIELD* HAS BEEN EXTRACTED FROM (X1) FC5A171A  368
                                        *                                                                        FC5A171A  369
                                        *         E.G.   (B4) = 45   POSITION COUNTER                            FC5A171A  370
                                        *                (B5) = 30   NR OF BITS                                  FC5A171A  371
                                        *                                                                        FC5A171A  372
                                        *                BINARY      76211031100015620310                        FC5A171A  373
                                        *                DPC RSULT   .....0311000156.....    (.=BLANK(55B))      FC5A171A  374
                                        *                                                                        FC5A171A  375
                                        *         ENTRY  (X1)  =  BINARY WORD TO BE CONVERTED                    FC5A171A  376
                                        *                (B4)  =  POSITION COUNTER                               FC5A171A  377
                                        *                (B5)  =  NR OF BITS IN FIELD                            FC5A171A  378
                                        *                                                                        FC5A171A  379
                                        *         EXIT   (X6)  =  CONVERTED UPPER 30 BITS OF (X1) -- DPC RESULT  FC5A171A  380
                                        *                (X7)  =  CONVERTED LOWER 30 BITS OF (X1) -- DPC RESULT  FC5A171A  381
                                        *                (X0)  =  .ZR. IF BAD POS OR BIT COUNT ON ENTRY,         FC5A171A  382
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    24
        OBJECT LISTING SUPPORTING ROUTINES.                           VFD 
  
                                        *                            ELSE .NZ.                                   FC5A171A  383
                                        *                                                                        FC5A171A  384
                                        *         USES   X - 0,1,2,3,4,6,7                                       FC5A171A  385
                                        *                A - NONE                                                FC5A171A  386
                                        *                B - 6                                                   FC5A171A  387
                                        *                                                                        FC5A171A  388
                                        *         CALLS  NONE                                                    FC5A171A  389
                                                                                                                 FC5A171A  390
                                                                                                                 FC5A171A  391
           541  0400400541 +             VFD      SUBR   =           ** ENTRY/EXIT **                            FC5A171A  392
           542  43300                             MX3    0                                                       FC5A171A  393
                     13000                        BX0    X0-X0                                                   FC5A171A  394
                          6165777776              SB6    B5-1                                                    FC5A171A  395
           543  0740000541 +                      LT     B4,B0,EXIT. IF POS COUNT IS BAD                         FC5A171A  396
                          0750000541 +            LT     B5,B0,EXIT. IF BIT COUNT IS BAD                         FC5A171A  397
           544  43071                             MX0    -3                                                      FC5A171A  398
                     0450000546 +                 ZR     B5,VFD2     IF NOT CONVERTING ANY BITS                  FC5A171A  399
                               43301              MX3    1                                                       FC5A171A  400
           545  23363                             AX3    X3,B6                                                   FC5A171A  401
                     46000                        NO                                                             FC5A171A  402
                          22343                   LX3    X3,B4       (X3) = EXTRACT MASK FOR BITS TO CONVERT     FC5A171A  403
                               11131              BX1    X3*X1                                                   FC5A171A  404
                                                                                                                 FC5A171A  405
           546  43600                    VFD2     MX6    0                                                       FC5A171A  406
                     13777                        BX7    X7-X7                                                   FC5A171A  407
                          6160000074              SB6    60                                                      FC5A171A  408
                                                                                                                 FC5A171A  409
                                        *         ASSEMBLE APPROPRIATE DIGITS.                                   FC5A171A  410
                                                                                                                 FC5A171A  411
           547  20103                    VFD3     LX1    3                                                       FC5A171A  412
                     15210                        BX2    -X0*X1                                                  FC5A171A  413
                          20303                   LX3    3                                                       FC5A171A  414
                               15430              BX4    -X0*X3                                                  FC5A171A  415
           550  7222000033                        SX2    X2+1R0                                                  FC5A171A  416
                          6166777771              SB6    B6-6                                                    FC5A171A  417
           551  0314000552 +                      NZ     X4,VFD4     IF ASSEMBLING THESE DIGITS                  FC5A171A  418
                          7120000055              SX2    1R                                                      FC5A171A  419
                                                                                                                 FC5A171A  420
           552  22262                    VFD4     LX2    X2,B6                                                   FC5A171A  421
                     12772                        BX7    X7+X2                                                   FC5A171A  422
                          0706000547 +            GT     B6,B0,VFD3  IF PACKING REG (X7) NOT FULL                FC5A171A  423
                                                                                                                 FC5A171A  424
                                        *         HERE IF PACKING REGISTER (X7) IS FULL.                         FC5A171A  425
                                                                                                                 FC5A171A  426
           553  6160000074                        SB6    60                                                      FC5A171A  427
                          0316000541 +            NZ     X6,EXIT.    IF FINISHED ASSEMBLING ENTIRE WORD          FC5A171A  428
           554  10677                             BX6    X7                                                      FC5A171A  429
                     43700                        MX7    0                                                       FC5A171A  430
                          0400000547 +            EQ     VFD3                                                    FC5A171A  431
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    25
        OBJECT LISTING SUPPORTING ROUTINES.                           WAP 
  
                                        **        WAP -  LIST AP-LISTS ACTUALLY COMPILED.                        LIST      949
                                        *                CALLED FROM *LI=APL* AND *LI=IOM*.                      LIST      950
                                        *                                                                        LIST      951
                                        *         ENTRY  (B6) = APL/ IOAP INDICATOR, .EQ. 0 IF APL, .EQ. 1       LIST      952
                                        *                       IF IO AP-LISTS.                                  LIST      953
                                        *                (X1) = RJ  WCA/ WIO , ROUTINE TO LIST ONE AP-LIST ITEM  LIST      954
                                        *                (X2) = LENGTH OF AP-LIST TABLE TO PRINT                 LIST      955
                                        *                T.PTXTR HAS BINARY EQUIVALENT OF AP-LISTS.              LIST      956
                                        *                                                                        LIST      957
                                        *         CALLS  ALLOC,SST,KTX,SFN,PLINE,ZWI,PIA,WCA,WIO,WOD             LIST      958
                                        *         CELLS  WAPA,WAPB                                               LIST      959
                                        *                                                                        LIST      960
                                        *         (NOTE) CODE ASSUMES T.APL IMMEDIATELY PRECEDES T.IOA,          LIST      961
                                        *                T.API IMMEDIATELY PRECEDES T.IOI.                       LIST      962
                                                                                                                 LIST      963
                                                                                                                 LIST      964
           555  0400400555 +             WAP      SUBR   0           ENTRY/EXIT...                               LIST      965
           556  6136000005                        SB3    BN=APL+B6                                               FC50457    11
                          5133000000 X            SA3    B3+F.LBT                                                FC50457    12
                                                  LX3    -LB.ORGP                                                FC50457    13
           557  53030                             SA0    X3          ORGA = ORG[T.LBT(BN=APL)]                   FC50457    14
                                   0              ERRNZ  18-LB.ORGL                                              FC50457    15
                     10611                        BX6    X1                                                      FC50457    16
                          0302000555 +            ZR     X2,EXIT.    IF NO AP-LISTS TO PRINT                     LIST      966
           560  23462                             AX4    X2,B6                                                   LIST      968
                                   0              ERRNZ  2-Z=IOA                                                 LIST      969
                     5160000622 +                 SA6    WAP.RJ                                                  LIST      970
                               63540              SB5    X4                                                      LIST      973
           561  5126000000 X                      SA2    T=API+B6                                                LIST      976
                          13666                   SHRINK T=SCR                                                   LIST      977
                          5110000000 X            ALLOC  T.SCR,X2                                                LIST      978
           564  5136000000 X                      SA3    T.API+B6                                                LIST      979
                          66410                   =B4    1           APLIND = 1                                  LIST      980
           565  6222777776                        SB2    X2-1        LEN = (T=API) - 1                           LIST      981
                          53430                   SA4    X3          APA = FWA(T.API)                            LIST      982
                               74605              SX6    A0+B5       LWAAPL = ORG + (T=APL)                      LIST      983
           566  20652                             LX6    PS.RAP                                                  LIST      984
                     5126000000 X                 SA2    T.APL+B6                                                LIST      985
                               43744              MX7    -WC.RAL                                                 LIST      986
           567  53610                             SA6    X1          FWA(T.SCR) = LWAAPL                         LIST      987
                     53520                        SA5    X2          ORGAPI = FWA(T.APL)                         LIST      988
                                                                                                                 LIST      989
                                        *         FORM TEMPORARY AP TAG TABLE AS PS. AND STORE IN T.SCR.         LIST      990
                                        *         FOR I = 1,(T=API/T=IOI)                                        LIST      991
                                        *                RA[PS.] = RA[API],  ORD[PS.] = I.                       LIST      992
                                                                                                                 LIST      993
           570  54441                    WAP10    =A4    A4+1        APA = APA + 1, API = (APA)                  LIST      994
                     76340                        SX3    B4                                                      LIST      995
                          0602000574 +            LE     B2,WAP20    IF LEN .LE. 0                               LIST      996
           571  67221                             =B2    B2-1        LEN = LEN - 1                               LIST      997
                                                  LX4    -WC.RAP                                                 LIST      998
                     15647                        BX6    -X7*X4      RAI = RA[API]                               LIST      999
                          20652                   LX6    PS.RAP                                                  LIST     1000
                               20330              LX3    PS.ORDP                                                 LIST     1001
           572  12663                             BX6    X6+X3                                                   LIST     1002
                     53614                        SA6    X1+B4       T.SCR(APIND) = (RAI,APIND) [PS.]            LIST     1003
                          66441                   =B4    B4+1        APIND = APIND + 1                           LIST     1004
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    26
        OBJECT LISTING SUPPORTING ROUTINES.                           WAP 
  
           573  0400000570 +                      EQ     WAP10       LOOP..                                      LIST     1005
                                                                                                                 LIST     1006
                                        *         SORT T.SCR IN ASCENDING ORDER OF RA[PS.].                      LIST     1007
                                                                                                                 LIST     1008
           574  63710                    WAP20    SB7    X1          (B7) = FWA(T.SCR) FOR SORT                  LIST     1009
                     76140                        SX1    B4          (X1) = LENGTH FOR SORT                      LIST     1010
                          0100000000 X            CALL   SST         SORT T.SCR                                  LIST     1011
                                                                                                                 LIST     1012
                                        *         BEGIN LISTING NEXT GROUP OF APL'S.                             LIST     1013
                                        *         (A5,X5) = ORGAPI                                               LIST     1014
                                        *         (B6) = APL/ IO-APL INDICATOR                                   LIST     1015
                                        *         (A0) = ORGA                                                    LIST     1016
                                                                                                                 LIST     1017
           575  5110000000 X             WAP30    SA1    T.SCR                                                   LIST     1018
                          5120000000 X            SA2    T=SCR                                                   LIST     1019
           576  53310                             SA3    X1          APA = FWA(T.SCR), API = (APA)               LIST     1020
                     73611                        =X6    X1+1        (T.SCR) = (T.SCR) + 1                       LIST     1021
                          20322                   LX3    -PS.RAP     RIGHT JUSTIFY RA FIELD                      LIST     1022
           577  7272777776                        SX7    X2-1        (T=SCR) = (T=SCR) - 1                       LIST     1023
                          54720                   SA7    A2                                                      LIST     1024
           600  0307000555 +                      ZR     X7,EXIT.    IF END OF LIST                              LIST     1025
                          54610                   SA6    A1                                                      LIST     1026
                               63430              SB4    X3          RAI = RA[API]                               LIST     1027
                                   0              ERRMI  18-PS.RAL                                               LIST     1028
           601  20322                             LX3    PS.RAP-PS.ORDP                                          LIST     1029
                     73330                        SX3    X3          TAGI = TAG[API]                             LIST     1030
                                   0              ERRMI  18-PS.ORDL                                              LIST     1031
                          5126001223 +            SA2    APTAG+B6    (X2) = K.AP/ K.IO                           LIST     1032
           602  54431                             =A4    A3+1        APJ = API + 1                               LIST     1033
                     20422                        LX4    -PS.RAP                                                 LIST     1034
                          63340                   SB3    X4          RAJ = RA[APJ]                               LIST     1035
                                   0              ERRNZ  18-PS.RAL                                               LIST     1036
                               36432              IX4    X3+X2       ADD PREFIX TO TAG                           LIST     1037
           603  77034                             SX0    B3-B4       LENAPI = RAJ - RAI                          LIST     1038
                     74100                        SX1    A0                                                      LIST     1039
                          0100000000 X            PIA    ,LINEBUF                                                LIST     1040
                          10144                   BX1    X4                                                      LIST     1041
                               20136              LX1    PB.TAGP                                                 LIST     1042
           605  76660                             SX6    B6                                                      LIST     1043
                     5160000631 +                 SA6    WAPA        (WAPA) = (B6)                               LIST     1044
           606  0100000442 +                      RJ     PBS         PRINT *  TAG  BSS  0*                       LIST     1045
           607  5110000631 +                      SA1    WAPA                                                    LIST     1046
                          6261000000              SB6    X1+         RESTORE (B6)                                LIST     1047
           610  0300000575 +                      ZR     X0,WAP30    IF LENAPI.EQ.0 (NEXT TAG AT SAME PLACE)     LIST     1048
                                                                                                                 LIST     1049
                                        *         LIST NEXT APL ITEM IN THIS GROUP.                              LIST     1050
                                        *         (X0) = LENAPI                                                  LIST     1051
                                                                                                                 LIST     1052
           611  5130000000 X             WAP40    SA3    T.PTXTR                                                 LIST     1053
                          73631                   =X6    X3+1                                                    LIST     1054
                               53130              SA1    X3                                                      LIST     1055
           612  54630                             SA6    A3          FWA(T.PTXTR) = FWA(T.PTXTR) + 1             LIST     1056
                     63500                        SB5    X0          SAVE (B5) = (X0)                            LIST     1057
                          64250                   SB2    A5          SAVE (B2) = (A5)                            LIST     1058
           613  0100000000 X                      CALL   WOD         CONVERT BINARY TO DPC                       LIST     1059
           614  5160000001 X                      SA6    LINEBUF+1                                               LIST     1060
                          5170000002 X            SA7    LINEBUF+2                                               LIST     1061
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    27
        OBJECT LISTING SUPPORTING ROUTINES.                           WAP 
  
           615  74100                             SX1    A0                                                      LIST     1062
                     0100000000 X                 PIA    ,A6-B1                                                  LIST     1063
                     56520                        SA5    B2          RESTORE (A5)                                LIST     1064
                          54150                   SA1    A5                                                      LIST     1065
                               76050              SX0    B5          RESTORE (X0)                                LIST     1066
           617  0311000622 +                      NZ     X1,WAP50    IF NOT +/- 0                                LIST     1067
                          5130001320 +            SA3    =10H                                                    LIST     1068
           620  0100001272 +                      RJ     ZWI         PRINT ZERO WORD ITEM                        LIST     1069
           621  0400000623 +                      EQ     WAP90                                                   LIST     1070
                                                                                                                 LIST     1071
           622                           WAP50    BSS    0                                                       LIST     1072
           622  0100000000               WAP.RJ   RJ     **          CALL  WCA/ WIO TO LIST ONE AP-LIST          LIST     1073
                                                                                                                 LIST     1074
           623  5110000631 +             WAP90    SA1    WAPA                                                    LIST     1075
                          5120001320 +            SA2    =10H                                                    LIST     1076
           624  63610                             SB6    X1          RESTORE (B6)                                LIST     1077
                     66361                        SB3    B6+B1                                                   LIST     1078
                          10622                   BX6    X2                                                      LIST     1079
           625  5160000001 X                      SETMEM LINEBUF+1,4,X6    BLANK FILL                            LIST     1080
                                   0              ERRNZ  2-Z=IOA                                                 LIST     1081
           627  54553                             SA5    A5+B3       ORGAPI = ORGAPI + Z=APL /Z=IOA              LIST     1082
                     54001                        SA0    A0+B1       ORGA = ORGA + 1                             LIST     1083
                          7200777776              SX0    X0-1        LENAPI = LENAPI - 1                         LIST     1084
           630  0310000611 +                      NZ     X0,WAP40    IF MORE ITEMS IN THIS AP-LIST               LIST     1085
                          0400000575 +            EQ     WAP30                                                   LIST     1086
                                                                                                                 LIST     1087
           631                     1     WAPA     BSS    1                                                       LIST     1088
           632  0100000634 +             WCA.RJ   RJ     WCA                                                     LIST     1089
           633  0100001105 +             WIO.RJ   RJ     WIO                                                     LIST     1090
  
  
  
  
                                        **        WCA - LIST ONE AP-LIST.                                        LIST     1092
                                        *                LIST SUB MACRO ALSO IF FP[WBI] .EQ. 1.                  LIST     1093
                                        *                                                                        LIST     1094
                                        *         LISTS: AP.N        APL   TAG+BIAS,BCP,CLEN (IF LCM[WBI].EQ.0)  LIST     1095
                                        *                LC.N        LAP   TAG+BIAS,BCP,CLEN (IF LCM[WBI].EQ.1)  LIST     1096
                                        *         ENTRY  (X1) = T.APL ENTRY                                      LIST     1097
                                        *         USES   ALL BUT A5,X0,B6                                        LIST     1098
                                        *         CALLS  KTX,KTY,PVF,WSM                                         LIST     1099
                                                                                                                 LIST     1100
                                                                                                                 LIST     1101
           634  0400400634 +             WCA      SUBR               ENTRY/EXIT.                                 LIST     1102
           635  10511                             BX5    X1                                                      LIST     1103
                     43600                        MX6    0                                                       LIST     1104
                          5160000730 +            SA6    WCA.10+4    (WCA.10+4) = 0                              LIST     1105
           636  43752                             MX7    -IA.TAGL                                                LIST     1106
                     20163                        HX1    IA.CRH                                                  LIST     1107
                          20522                   LX5    -IA.TAGP                                                LIST     1108
                               66500              SB5    B0          PSNAM = *APL*                               LIST     1109
           637  15357                             BX3    -X7*X5      TAGI = TAG[API]                             LIST     1110
                     10433                        BX4    X3                                                      LIST     1111
                          0331000710 +            MI     X1,WCA90    IF CHARACTER RELATIONAL HEADER              LIST     1112
           640  0100000366 +                      RJ     KTX         CONVERT TAGI TO EXTERNAL FORM               LIST     1113
           641  43266                             MX2    -IA.MODEL                                               LIST     1114
                     5160000726 +                 SA6    WCA.10+2    (WCA.10+2) = TAG                            LIST     1115
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    28
        OBJECT LISTING SUPPORTING ROUTINES.                           WCA 
  
                               20536              LX5    IA.TAGP-IA.MODEP                                        LIST     1116
           642  15752                             BX7    -X2*X5      TYPE = MODE[API]                            LIST     1117
                     20760                        LX7    OA.TYPP                                                 LIST     1118
                          43100                   MX1    0           INDICATE NON LCM AND NON FP                 LIST     1119
                               43656              MX6    -PB.ORDL                                                LIST     1120
           643  11664                             BX6    X6*X4       PFXI = PFX[TAGI]                            LIST     1121
                     0316000647 +                 NZ     X6,WCA15    IF PFXI .NE. K=SYM                          LIST     1122
                                   0              ERRNZ  K=SYM                                                   LIST     1123
           644  5130000000 X                      SA3    T.SYM                                                   LIST     1124
                          63231                   =B2    X3+WB.W                                                 LIST     1125
                               22614              LX6    X4,B1                                                   LIST     1126
           645  36646                             IX6    X4+X6       STIND = 3 * TAGI                            LIST     1127
                                   0              ERRNZ  3-Z=SYM                                                 LIST     1128
                     76110                        SX1    B1                                                      LIST     1129
                          53262                   SA2    X6+B2       WBI = T.SYM(STIND)+WB.W                     LIST     1130
                               20253              LX2    -WB.LCMP                                                LIST     1131
           646  11112                             BX1    X1*X2       LCMI = LCM[WBI]                             LIST     1132
                     63510                        SB5    X1          REMEMBER (B5) = LCMI                        LIST     1133
                          20173                   LX1    OA.LCMP                                                 LIST     1134
                                                  LX2    WB.LCMP-1-WB.FPP                                        LIST     1135
           647  12671                    WCA15    BX6    X7+X1                                                   LIST     1136
                     5160000724 +                 SA6    WCA.10      (WCA.10) = (LCM,MODEI) [OA.]                LIST     1137
                                                                                                                 LIST     1138
                               10355              BX3    X5                                                      LIST     1139
           650  20501                             LX5    IA.MODEP-1-IA.STP                                       LIST     1140
                     20366                        LX3    IA.MODEP-IA.BIASP                                       LIST     1141
                          0335000717 +            MI     X5,WCA95    IF ST[API] .EQ. 1                           LIST     1142
           651  43744                             MX7    -IA.BIASL                                               LIST     1143
                     15337                        BX3    -X7*X3      BIASI = BIAS[API]                           LIST     1144
                          20501                   LX5    IA.STP-IA.CHARP                                         LIST     1145
           652  0335000656 +                      MI     X5,WCA20    IF CHARACTER                                LIST     1146
                                                                                                                 LIST     1147
                                        *         IF TAGI IS (S=RD), REPLACE BIAS BY ITS DIMENSION               LIST     1148
                                        *         HEADER RA.                                                     LIST     1149
                                        *         (X4) = TAGI                                                    LIST     1150
                                                                                                                 LIST     1151
                          5120000000 X            SA2    S=RD                                                    LIST     1152
           653  5110000000 X                      SA1    T.DIM                                                   LIST     1153
                          37724                   IX7    X2-X4                                                   LIST     1154
                               63210              SB2    X1          +DH.W                                       LIST     1155
           654  0317000676 +                      NZ     X7,WCA40    IF TAGI .NE. S=RD                           LIST     1156
                          53332                   SA3    X3+B2       DHI = T.DIM(BIASI) + DH.W                   LIST     1157
                               20336              HX3    DH.RA                                                   LIST     1158
           655  21344                             AX3    -DH.RAL     BIASI = RA[DHI]                             LIST     1159
                     0400000676 +                 EQ     WCA40                                                   LIST     1160
                                                                                                                 LIST     1161
                                        *         HANDLE CHARACTER APLIST HERE.                                  LIST     1162
                                                                                                                 LIST     1163
           656  0322000665 +             WCA20    PL     X2,WCA35    IF NOT F.P.                                 LIST     1164
                          43700                   MX7    0                                                       LIST     1165
           657  5170000000 +                      SA7    SAVFP       DISABLE *SUB*                               LIST     1166
                          5140000724 +            SA4    WCA.10                                                  LIST     1167
           660  43601                             MX6    1                                                       LIST     1168
                     11662                        BX6    X6*X2       FPI = FP[WBI]                               LIST     1169
                          20673                   LX6    1+OA.FPP                                                LIST     1170
                               12664              BX6    X6+X4                                                   LIST     1171
           661  54640                             SA6    A4          FP[WCA.10] = FPI                            LIST     1172
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    29
        OBJECT LISTING SUPPORTING ROUTINES.                           WCA 
  
                     43763                        MX7    -WB.FPNOL                                               LIST     1173
                          20254                   LX2    1+WB.FPP-WB.FPNOP                                       LIST     1174
                               15427              BX4    -X7*X2      FPNOI = FPNO[WBI]                           LIST     1175
           662  6120000052                        KTY                CONVERT FPNO                                FC5A281    41
           663  5160000726 +                      SA6    WCA.10+2    (WCA.10+2) = BIASI                          LIST     1177
                          7234777776              =X3    X4-1        FPNOI = FPNOI - 1                           LIST     1178
           664  0400000676 +                      EQ     WCA40                                                   LIST     1179
                                                                                                                 LIST     1180
           665  5120000000 X             WCA35    SA2    T.CAC                                                   LIST     1181
                          43752                   MX7    -WC.CLENL                                               LIST     1182
                               43170              MX1    -WC.BCPL                                                LIST     1183
           666  63220                             SB2    X2                                                      LIST     1184
                     53332                        SA3    X3+B2       CACI = T.CAC(BIASI)                         LIST     1185
                          10533                   BX5    X3                                                      LIST     1186
                               20544              LX5    -WC.BCPP                                                LIST     1187
           667  15351                             BX3    -X1*X5      BCPI = BCP[CACI]                            LIST     1188
                     20566                        LX5    WC.BCPP-WC.CLENP                                        LIST     1189
                          15457                   BX4    -X7*X5      CLENI = CLEN[CACI]                          LIST     1190
           670  6120000052                        KTY                CONVERT BCPI                                FC5A281    42
           671  5110001344 +                      SA1    =1L,                                                    LIST     1192
                          10711                   BX7    X1                                                      LIST     1193
           672  5160000731 +                      SA6    WCA.10+5    (WCA.10+5) = BCP                            LIST     1194
                          55761                   SA7    A6-B1       (WCA.10+4) = SLASH                          LIST     1195
                               10344              BX3    X4                                                      LIST     1196
           673  6120000052                        KTY                CONVERT CLEN                                FC5A281    43
           674  43144                             MX1    -IA.BIASL                                               LIST     1198
                     20536                        LX5    WC.CLENP-WC.RAP                                         LIST     1199
                          15351                   BX3    -X1*X5      BIASI = RA[CACI], TRUNCATED TO IA.BIASL     LIST     1200
           675  5160000733 +                      SA6    WCA.10+7    (WCA.10+7) = CLEN                           LIST     1201
                                                                                                                 LIST     1202
                                        *         NON CHARACTER APLIST.                                          LIST     1203
                                        *         (X3) = BIASI                                                   LIST     1204
                                                                                                                 LIST     1205
           676  6120000044               WCA40    KTY    24          CONVERT BIAS                                FC5A281    44
           677  0333000701 +                      MI     X3,WCA60    IF BIAS IS NEGATIVE                         LIST     1207
                          7110000045              SX1    1R+         PREFIX A PLUS                               LIST     1208
           700  12661                             BX6    X6+X1                                                   LIST     1209
                     20666                        LX6    -CHAR                                                   LIST     1210
           701  5160000727 +             WCA60    SA6    WCA.10+3    (WCA.10+3) = BIAS                           LIST     1211
                                                                                                                 LIST     1212
           702  5110000724 +             WCA80    SA1    WCA.10                                                  LIST     1213
                          0100000434 +            RJ     KUB         CONVERT UPPER 12 BITS                       LIST     1214
           703  54710                             SA7    A1                                                      LIST     1215
                     5120001320 +                 SA2    =10H                                                    LIST     1216
           704  5135000722 +                      SA3    B5+APLAB    7RAPL OR 7RLAP                              LIST     1217
                          10622                   BX6    X2                                                      LIST     1218
           705  5120000724 +                      SA2    WCA.10                                                  LIST     1219
                          0100000461 +            RJ     PVF         PACK VARIABLE FIELD                         LIST     1220
           706  5140000727 +                      SA4    WCA.10+3                                                LIST     1221
                          0100001251 +            RJ     WSM         WRITE SUB MACRO                             LIST     1222
           707  0400000634 +                      EQ     EXIT.                                                   LIST     1223
                                                                                                                 LIST     1224
                                        *         LIST CHARACTER RELATIONAL HEADER.                              LIST     1225
                                                                                                                 LIST     1226
           710  6120000052               WCA90    KTY                CONVERT LEFT TAGI                           FC5A281    45
                                   0              ERRNZ  IA.LEFTP-IA.TAGP                                        LIST     1228
                                         .T       IFEQ   TEST,ON,1                                               LIST     1229
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    30
        OBJECT LISTING SUPPORTING ROUTINES.                           WCA 
  
                                                  MI     X3,"BLOWUP" LEFT SHOULD NEVER BE .LT. 0                 LIST     1230
           711  5160000726 +                      SA6    WCA.10+2    (WCA.10+2) = LEFT                           LIST     1231
                          43144                   MX1    -IA.RITEL                                               LIST     1232
                               20530              LX5    IA.TAGP-IA.BIASP                                        LIST     1233
           712  15351                             BX3    -X1*X5      RITEI = BIAS[API]                           LIST     1234
                                   0              ERRNZ  IA.RITEP-IA.BIASP                                       LIST     1235
                     6120000044                   KTY    24          CONVERT RITE (BIASI)                        FC5A281    46
                                         .T       IFEQ   TEST,ON,1                                               LIST     1237
                                                  MI     X3,"BLOWUP" RITE SHOULD NEVER BE .LT. 0                 LIST     1238
           714  7110000056                        SX1    1R,                                                     LIST     1239
                          12661                   BX6    X6+X1                                                   LIST     1240
                               20666              LX6    -CHAR                                                   LIST     1241
           715  54661                             SA6    A6+B1       (WCA.10+3) = , BIASI                        LIST     1242
                     5120001345 +                 SA2    =2LRH                                                   LIST     1243
                               10722              BX7    X2                                                      LIST     1244
           716  5170000724 +                      SA7    WCA.10      (WCA.10) = 'RH'                             LIST     1245
                          0400000702 +            EQ     WCA80                                                   LIST     1246
                                                                                                                 LIST     1247
           717  5110001344 +             WCA95    SA1    =1L,                                                    LIST     1248
                          43600                   MX6    0                                                       LIST     1249
                               10711              BX7    X1                                                      LIST     1250
           720  5170000727 +                      SA7    WCA.10+3    (WCA.10+3) = COMMA                          LIST     1251
                          5160000000 +            SA6    SAVFP       (SAVFP) = 0                                 LIST     1252
           721  0400000702 +                      EQ     WCA80                                                   LIST     1253
                                                                                                                 LIST     1254
           722  00000001201455555555     APLAB    DATA   7RAPL                                                   LIST     1255
           723  00000014012055555555              DATA   7RLAP                                                   LIST     1256
                                                                                                                 LIST     1257
           724                     1     WCA.10   BSS    1           +0    (LCM,FP,MODE)                         LIST     1258
           725  56000000000000000000              DATA   1L,                                                     LIST     1259
           726                     2              BSS    2           +2    TAG+BIAS                              LIST     1260
           730  56000000000000000000              DATA   1L,                                                     LIST     1261
           731  00000000000000000000              DATA   0           +5    BCP                                   LIST     1262
           732  56000000000000000000              DATA   1L,                                                     LIST     1263
           733                     1              BSS    1           +7    CLEN                                  LIST     1264
           734  00000000000000000000              DATA   0                                                       LIST     1265
           735  00000014012055555555              DATA   7RLAP                                                   LIST     1266
  
  
  
  
                                        **        WCC -  LIST CONSTANT ASSIGNMENTS.                              LIST     1268
                                        *                CALLED FROM *LI=CON*.                                   LIST     1269
                                        *                                                                        LIST     1270
                                        *         LISTS  TAG         CON   CONSTANT IN OCTAL DPC                 FC50226     5
                                        *                                                                        FC50226     6
                                        *         ENTRY  (X1) = SYMORD OF LABEL FOR BLOCK.                       LIST     1272
                                        *                (WC.RA[SYMORD]) = OBJECT ORIGIN OF FIRST WORD.          LIST     1273
                                        *                (A5, X5) = FWA BINARY CONSTANTS.                        LIST     1274
                                        *                                                                        LIST     1275
                                        *         USES   ALL.                                                    LIST     1276
                                        *                                                                        FC50226     7
                                        *         CALLS  MVE=, PIA, WOD, WOF, ZTB                                FC50226     8
                                                                                                                 LIST     1278
                                                                                                                 LIST     1279
           736  0400400736 +             WCC      SUBR   0           ENTRY/EXIT...                               LIST     1280
           737  5035000000 X                      SA3    A5+N.TABLE                                              LIST     1281
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    31
        OBJECT LISTING SUPPORTING ROUTINES.                           WCC 
  
                          5120000000 X            SA2    T.SYM                                                   LIST     1282
           740  0303000736 +                      ZR     X3,EXIT.    IF (TABLE) EMPTY                            LIST     1283
                          22611                   LX6    X1,B1                                                   LIST     1284
                               53550              SA5    X5          (CI, VI) = FIRST CONSTANT                   LIST     1285
           741  53030                             SA0    X3          LENT = LENGTH OF TABLE                      LIST     1286
                     36161                        IX1    X6+X1       STIND = 3 * SYMORD                          LIST     1287
                                   0              ERRNZ  3-Z=SYM                                                 LIST     1288
                          36112                   IX1    X1+X2                                                   LIST     1289
                               43752              MX7    WA.SYML                                                 LIST     1290
           742  53310                             =A3    X1+WA.W     WAI = T.SYM(STIND)                          LIST     1291
                     5241000002                   =A4    X1+WC.W                                                 LIST     1292
                                                  HX3    WA.SYM                                                  LIST     1293
                               11173              BX1    X7*X3       NAMEI = SYM[WAI]                            LIST     1294
           743  0100000000 X                      CALL   ZTB         ZEROES TO BLANKS                            LIST     1295
                                                  LX4    -WC.RAP                                                 LIST     1296
           744  43244                             MX2    -WC.RAL                                                 LIST     1297
                     15742                        BX7    -X2*X4      (WCCF) = ORGA = OBJECT ORIGIN               LIST     1298
                          74100                   SX1    A0                                                      LIST     1299
           745  5170001000 +                      SA7    WCCF                                                    LIST     1300
                          36717                   IX7    X1+X7       ORGLAST = ORGA + LENT                       LIST     1301
                               54771              SA7    A7+B1                                                   LIST     1302
                                                                                                                 LIST     1303
           746  20666                    WCC20    LX6    -CHAR                                                   LIST     1304
                     5160000770 +                 SA6    CC3         (CC3) = LABEL                               LIST     1305
           747  5110001000 +                      SA1    WCCF                                                    LIST     1306
                          73711                   SX7    X1+B1       ORGA = ORGA + 1                             LIST     1307
                               54710              SA7    A1                                                      LIST     1308
           750  0100000000 X                      PIA    ,LINEBUF    CONVERT ADDRESS TO DISPLAY                  LIST     1309
                          10155                   BX1    X5                                                      LIST     1310
                               55661              SA6    A6-B1                                                   FC5A182     5
           752  64551                             SB5    A5+B1                                                   LIST     1319
                                         .T       IFEQ   TEST,OFF,1                                              FC50226     9
                     5150001320 +                 SA5    =H/ /                                                   FC50226    10
                               10755              BX7    X5                                                      FC50226    11
           753  5170000775 +                      SA7    CC8                                                     FC50226    12
                          0100000000 X            CALL   WOD         CONVERT CONST TO DPC                        LIST     1321
           754  56550                             SA5    B5                                                      LIST     1322
                     5160000772 +                 SA6    CC5         (CC5)  = ABCDEFGHIJ                         LIST     1323
                               54761              =A7    A6+1        (CC5+1) = KLMNOPQRST                        LIST     1324
           755  5160000765 +                      SA6    CC0                                                     LIST     1325
                          54761                   =A7    A6+1                                                    LIST     1326
           756  5110000776 +                      SA1    WCCB        LENGTH OF PRINT LINE                        LIST     1327
                          54211                   =A2    A1+1        FWA OF PRINT BUFFER                         LIST     1328
           757  7130000001 X                      MOVE   X1,X2,LINEBUF+1                                         LIST     1329
           760  5120000776 +                      SA2    WCCB                                                    LIST     1330
                          7110000000 X            PLINE  LINEBUF,X2+B1     PRINT THE LINE                        LIST     1331
           762  5120001000 +                      SA2    WCCF                                                    FC5A182     6
                          54321                   SA3    A2+B1                                                   LIST     1333
           763  5110001320 +                      SA1    =H/ /                                                   LIST     1334
                          37723                   IX7    X2-X3       MORE = ORGA .LT. ORGLAST                    LIST     1335
                               10611              BX6    X1                                                      LIST     1336
           764  0337000746 +                      MI     X7,WCC20    IF MORE CONSTANTS                           LIST     1337
                          0400000736 +            EQ     EXIT.                                                   LIST     1338
                                                                                                                 LIST     1339
           765  55555555555555555555     CC0      DIS    3,                                                      LIST     1340
           770  55140102051457555555     CC3      DIS    1, LABEL.                                               LIST     1341
           771  03171655555555555555              DIS    1,CON                                                   LIST     1342
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    32
        OBJECT LISTING SUPPORTING ROUTINES.                           WCC 
  
           772  34353637404142434433     CC5      DIS    3,12345678901234567890B                                 LIST     1343
           775  55042003552601145555     CC8      DIS    1, DPC VAL                                              LIST     1344
                                                                                                                 LIST     1345
           776                     2     WCCB     BSS    2           LENGTH OF PRINT LINE (PW VS NONPW) AND FWA  LIST     1346
          1000                     2     WCCF     BSS    2           ORGA, ORGLAST                               LIST     1347
  
  
  
  
  
  
  
  
                                        **        WCF -  LIST FORMATS.                                           LIST     1350
                                        *                                                                        LIST     1351
                                        *         CALLS  PIA,WOD,PLINE                                           LIST     1352
                                                                                                                 LIST     1353
                                                                                                                 LIST     1354
          1002  0400401002 +             WCF      SUBR               ENTRY/EXIT...                               LIST     1355
          1003  5120000000 X                      SA2    T=FMT                                                   LIST     1356
                          0302001002 +            ZR     X2,EXIT.    IF END OF T.FMT                             LIST     1357
          1004  5130000000 X                      SA3    T.FMT                                                   LIST     1358
                          53530                   SA5    X3          FETCH 1ST FORMAT                            LIST     1359
                               53020              SA0    X2          A0 = LENGTH OF TABLE.                       LIST     1360
          1005  66400                             SB4    B0                                                      LIST     1361
                                                                                                                 LIST     1362
                                        *         PROCESS 1ST WORD - STATEMENT NUMBER.                           LIST     1363
                                                                                                                 LIST     1364
          1006  5120001027 +             WCF10    SA2    WCFC                                                    LIST     1365
                          43036                   MX0    WA.STLL                                                 LIST     1366
                               11105              BX1    X0*X5                                                   LIST     1367
          1007  20166                             LX1    9*CHAR                                                  LIST     1368
                     12621                        BX6    X2+X1                                                   LIST     1369
                          5160000770 +            SA6    CC3         (CC3) = TAG                                 LIST     1370
                                                                                                                 LIST     1371
                                        *         PROCESS CONTENTS OF FORMAT.                                    LIST     1372
                                                                                                                 LIST     1373
          1010  10655                    WCF20    BX6    X5                                                      LIST     1374
                     64550                        SB5    A5                                                      LIST     1375
                          5160000775 +            SA6    CC8         +6 = DPC ECHO OF CON                        LIST     1376
          1011  10155                             BX1    X5                                                      LIST     1377
                     0100000000 X                 CALL   WOD         CONVERT CONTENTS OF WORD TO OCTAL           LIST     1378
          1012  56551                             SA5    B5+B1                                                   LIST     1379
                     5140000003 X                 SA4    BN=FMT+F.LBT                                            LIST     1380
          1013  5160000772 +                      SA6    CC5         (CC5)  = ABCDEFGHIJ                         LIST     1381
                          54761                   SA7    A6+B1       (CC5+1) = KLMNOPQRST                        LIST     1382
          1014  5160000765 +                      SA6    CC0                                                     LIST     1383
                          54761                   SA7    A6+B1                                                   LIST     1384
                               73144              SX1    B4+X4                                                   LIST     1385
          1015  0100000000 X                      PIA    ,LINEBUF    CONVERT ADDRESS TO DPC                      LIST     1386
                          5110000776 +            SA1    WCCB        LENGTH OF PRINT LINE                        LIST     1387
          1017  54211                             SA2    A1+B1       FWA OF BUFFER                               LIST     1388
                     7130000001 X                 MOVE   X1,X2,LINEBUF+1                                         LIST     1389
          1021  5120000776 +                      SA2    WCCB                                                    LIST     1390
                          7110000000 X            PLINE  LINEBUF,X2+B1                                           LIST     1391
          1023  5110001320 +                      SA1    =1H                                                     LIST     1392
                          43060                   MX0    8*CHAR                                                  LIST     1393
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    33
        OBJECT LISTING SUPPORTING ROUTINES.                           WCF 
  
                               10611              BX6    X1                                                      LIST     1394
          1024  15350                             BX3    -X0*X5                                                  LIST     1395
                     5160000770 +                 SA6    CC3         CLEAR TAG WORD                              LIST     1396
                               66441              SB4    B4+B1                                                   LIST     1397
          1025  64300                             SB3    A0                                                      LIST     1398
                     0443001002 +                 EQ     B4,B3,EXIT. IF NO MORE FORMATS                          LIST     1399
          1026  0313001010 +                      NZ     X3,WCF20    IF MORE IN CURRENT FORMAT.                  LIST     1400
                          0400001006 +            EQ     WCF10       CONTINUE                                    LIST     1401
                                                                                                                 LIST     1402
          1027  57000000000055555555     WCFC     VFD    CHAR/1R.,WA.STLL/0,24/4R                                LIST     1403
  
  
  
  
                                        **        WCL -  WRITE CHARACTER LENGTH ARRAYS.                          LIST     1405
                                        *                                                                        LIST     1406
                                        *                CL.         BSS   0                                     LIST     1407
                                        *                            CLW   TAG1+BIAS1,TAG2+BIAS2                 LIST     1408
                                        *                                                                        LIST     1409
                                        *         ENTRY  (A0) = ORIGIN OF (CL.)S.                                LIST     1410
                                        *                T.CLWB HAS BINARY REPRESENTATION                        FC5A219    37
                                        *                                                                        FC5A219    38
                                        *         CALLS  WIO,PIA,WOD                                             LIST     1412
                                                                                                                 LIST     1413
                                                                                                                 LIST     1414
          1030  0400401030 +             WCL      SUBR   0           ENTRY/EXIT...                               LIST     1415
          1031  74100                             SX1    A0                                                      LIST     1416
                     0100000000 X                 PIA    ,LINEBUF                                                LIST     1417
                          5110000000 X            SA1    S=CL                                                    LIST     1418
          1033  20136                             LX1    PB.TAGP                                                 LIST     1419
                     0100000442 +                 RJ     PBS         PRINT  * CL.  BSS    0*                     LIST     1420
          1034  5110000000 X                      SA1    T.CLW                                                   LIST     1421
                          5120000000 X            SA2    T=CLW                                                   LIST     1422
          1035  73020                             SX0    X2                                                      LIST     1423
                     5251777775                   SA5    X1-Z=IOA    CLI = FWA(T.CLW) - Z=IOA                    LIST     1424
                                                                                                                 LIST     1425
                                        *         PROCESS NEXT ENTRY OF T.CLW.                                   LIST     1426
                                                                                                                 LIST     1427
          1036  0300001030 +             WCL10    ZR     X0,EXIT.    IF END OF T.CLW                             LIST     1428
                          5140000000 X            SA4    T.CLWB                                                  FC5A219    39
          1037  73641                             =X6    X4+1                                                    LIST     1430
                     74100                        SX1    A0                                                      LIST     1431
                          54640                   SA6    A4          FWA(T.SCR) = FWA(T.SCR) + 1                 LIST     1432
          1040  0100000000 X                      PIA    ,LINEBUF    CONVERT ORGA                                LIST     1433
                          53140                   SA1    X4                                                      LIST     1434
                               64350              SB3    A5          SAVE (B3) = A5                              LIST     1435
          1042  63400                             SB4    X0          SAVE (B4) = (X0)                            LIST     1436
                     0100000000 X                 CALL   WOD         CONVERT BINARY TO DPC                       LIST     1437
          1043  5160000001 X                      SA6    LINEBUF+1                                               LIST     1438
                          54761                   =A7    A6+1                                                    LIST     1439
                               76040              SX0    B4          RESTORE (X0)                                LIST     1440
          1044  5153000002                        SA5    B3+Z=IOA    CLI = CLI + (Z=IOA)                         LIST     1441
                          0100001105 +            RJ     WIO         PRINT THE LIST                              LIST     1442
          1045  54001                             =A0    A0+1        ORGA = ORGA + 1                             LIST     1443
                     7200777775                   SX0    X0-Z=IOA    LEN = LEN - Z=IOA                           LIST     1444
          1046  0400001036 +                      EQ     WCL10                                                   LIST     1445
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    34
        OBJECT LISTING SUPPORTING ROUTINES.                           WCS 
  
                                        **        WCS - LIST BLOCK STATISTICS.                                   LIST     1447
                                        *                                                                        LIST     1448
                                        *         CALLS  PLINE,PIA                                               LIST     1449
                                                                                                                 LIST     1450
                                                                                                                 LIST     1451
          1047  0400401047 +             WCS      SUBR               ENTRY/EXIT...                               LIST     1452
          1050  5110000000 X                      SA1    CO.PS       FETCH PAGE SIZE                             FC5A107    23
                          7140000003              SX4    3                                                       LIST     1454
          1051  7160001102 +                      SX6    WCSB                                                    LIST     1455
                          20436                   LX4    30                                                      LIST     1456
                               12746              BX7    X4+X6       SET SUBTITLE = 'OBJECT LISTING'             LIST     1457
          1052  7231777776                        =X3    X1-1        TO AVOID A DOUBLE EJECT                     LIST     1458
                          5170000000 X            SA7    O.STITL                                                 LIST     1459
          1053  7110001076 +                      PLINE  WCSA,4,X3   PRINT TABLE HEADING                         LIST     1460
          1055  5110001320 +                      SA1    =10H                                                    LIST     1461
                          10611                   BX6    X1                                                      LIST     1462
                               56000              SA0    B0          BLKI = 0                                    LIST     1463
          1056  5160000000 X                      SA6    LINEBUF                                                 LIST     1464
          1057  5050000000 X             WCS30    SA5    A0+F.LBT    FETCH BLOCK ORIGIN                          LIST     1465
                                                  LX5    -LB.ORGP                                                LIST     1466
                          73150                   SX1    X5          TRUNCATE ORG TO 18 BITS                     LIST     1467
          1060  0100000000 X                      PIA    ,LINEBUF+2  (LINEBUF+2) = BLOCK ADDRESS                 LIST     1468
                          20552                   LX5    LB.ORGP-LB.BLENP                                        LIST     1469
                               73150              SX1    X5          TRUNCATE BLEN TO 18 BITS                    LIST     1470
          1062  0100000000 X                      PIA    ,A6+B1      (LINEBUF+3) = BLOCK LENGTH                  LIST     1471
                     5020001302 +                 SA2    A0+TLBN     FETCH BLOCK NAME                            LIST     1472
                               10722              BX7    X2                                                      LIST     1473
          1064  5170000001 X                      SA7    LINEBUF+1                                               LIST     1474
                          54001                   SA0    A0+B1       BLKI = BLKI + 1                             LIST     1475
                               75171              PLINE  A7-B1,4                                                 LIST     1476
          1067  6020777763                        SB2    A0-Z.LBT                                                LIST     1477
                          0720001057 +            MI     B2,WCS30    IF MORE BLOCKS TO PRINT                     LIST     1478
          1070  5110001320 +                      SA1    =10H                                                    LIST     1479
                          10611                   BX6    X1                                                      LIST     1480
          1071  5160000001 X                      SETMEM LINEBUF+1,4,X6    BLANK FILL LINEBUF 4 WORDS            LIST     1481
          1073  76100                             PLINE  B0,B0,1     SPACE 1                                     LIST     1482
          1075  0400001047 +                      EQ     EXIT.                                                   LIST     1483
                                                                                                                 LIST     1484
          1076  55555555555555555555     WCSA     DIS    4,          BLOCK      ADDRESS    LENGTH                LIST     1485
          1102  55555555555555555555     WCSB     DIS    3,             OBJECT LISTING.                          LIST     1486
  
  
  
  
                                        **        WIO - LIST ONE I/O AP-LISTS.                                   LIST     1488
                                        *                CALLED FROM WAP AND WCL TO LIST ONE I/O APLIST.         LIST     1489
                                        *                                                                        LIST     1490
                                        *         LISTS  IO.N        IOM   TAG+BIAS,BCP,TAG+BIAS                 LIST     1491
                                        *                                                                        FC50236     5
                                        *         ENTRY  (A5,X5) = IOM                                           FC50236     6
                                        *                                                                        FC50236     7
                                        *         USES   ALL EXCEPT A0,X0,A5,B6                                  FC50236     8
                                        *                                                                        FC50236     9
                                        *         CALLS  KTX,KTY,RVF                                             LIST     1494
                                        *                                                                        LIST     1495
                                        *                **WARNING** DO NOT EVER TRY TO USE                      LIST     1496
                                        *                            REGISTERS A0,X0,A5,B6 IN THIS               LIST     1497
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    35
        OBJECT LISTING SUPPORTING ROUTINES.                           WIO 
  
                                        *                            ROUTINE, TERRIBLE THINGS WILL HAPPEN!       LIST     1498
                                        *                            (LIKE AN INFINITE LOOP?)                    LIST     1499
                                                                                                                 LIST     1500
                                                                                                                 LIST     1501
          1105  0400401105 +             WIO      SUBR   0           ENTRY/EXIT.                                 LIST     1502
          1106  76700                             =X7    0                                                       FC5A219    40
                     5170001221 +                 SA7    WIO.10+9    CLEAR BCP FIELD                             FC5A219    41
                               43466              MX4    -IA.MODEL                                               LIST     1503
          1107  43752                             MX7    -IA.TAGL                                                LIST     1504
                     20522                        LX5    -IA.TAGP                                                LIST     1505
                          15357                   BX3    -X7*X5      TAGI = TAG[IO1]                             LIST     1506
                               63430              SB4    X3          REMEBER (B4) = TAGI                         LIST     1507
          1110  0100000366 +                      RJ     KTX         CONVERT TAG TO DPC                          LIST     1508
          1111  5160001213 +                      SA6    WIO.10+3    (WIO.10+3) = TAG                            LIST     1509
                          76110                   =X1    1                                                       LIST     1510
                               20536              LX5    IA.TAGP-IA.MODEP                                        LIST     1511
          1112  15654                             BX6    -X4*X5      MODEI = MODE[IO1]                           LIST     1512
                     20501                        LX5    IA.MODEP-IA.IOCP                                        LIST     1513
                          11115                   BX1    X1*X5       LST = IOC[IO1]                              LIST     1514
                               20170              LX1    OA.LSTP                                                 LIST     1515
          1113  0311001116 +                      NZ     X1,WIO10    IF CONTROL ITEM                             FC50236    10
                          5120000000 X            SA2    =XFCLMOD                                                LIST     1517
          1114  20602                             LX6    2                                                       LIST     1518
                     43770                        MX7    -4                                                      LIST     1519
                          63760                   SB7    X6                                                      LIST     1520
                               23272              AX2    B7                                                      LIST     1521
          1115  15627                             BX6    -X7*X2                                                  LIST     1522
                                                                                                                 FC50236    11
          1116  20660                    WIO10    LX6    OA.TYPP                                                 LIST     1523
                     12661                        BX6    X6+X1                                                   LIST     1524
                          0440001127 +            ZR     B4,WIO15    IF TAGI .EQ. 0                              FC50236    12
          1117  0301001125 +                      ZR     X1,WIO11    IF NOT CONTROL ITEM                         FC50236    13
                          10266                   BX2    X6                                                      FC50236    14
                               43366              MX3    -OA.TYPL                                                FC50236    15
          1120  20206                             HX2    OA.TYP                                                  FC50236    16
                     20206                        LX2    OA.TYPL                                                 FC50236    17
                          15223                   BX2    -X3*X2      EXTRACT CONTROL CODE                        FC50236    18
          1121  7232777776                        SX3    X2-IC.UNT                                               FC50236    19
                          0303001126 +            ZR     X3,WIO12    IF UNIT                                     FC50236    20
          1122  7232777771                        SX3    X2-IC.REC                                               FC50236    21
                          0303001126 +            ZR     X3,WIO12    IF RECORD LENGTH                            FC50236    22
          1123  7232777772                        SX3    X2-IC.IOS                                               FC50236    23
                          0303001126 +            ZR     X3,WIO12    IF I/O STATUS                               FC50236    24
          1124  0400001127 +                      EQ     WIO15       NO OTHER CONTROL ITEM GETS OA.VAR           FC50236    25
                                                                                                                 FC50236    26
          1125  10255                    WIO11    BX2    X5                                                      FC50236    27
                     20205                        LX2    IA.IOCP-IA.VARP-IA.VARL                                 FC50236    28
                          0332001127 +            MI     X2,WIO15    IF IA.VAR (LOOP INDICATOR)                  FC50236    29
                                                                                                                 FC50236    30
          1126  43201                    WIO12    CLAS=  X2,OA,(VAR)                                             FC50236    31
                          12662                   BX6    X6+X2       ADD IN VAR BIT                              LIST     1527
                                                                                                                 LIST     1528
          1127  43756                    WIO15    MX7    -PB.ORDL                                                LIST     1529
                     76240                        SX2    B4                                                      LIST     1530
                          11372                   BX3    X7*X2       PFXI = PFX[TAGI]                            LIST     1531
          1130  0313001134 +                      NZ     X3,WIO20    IF PFXI .NE. 0                              LIST     1532
                                   0              ERRNZ  K=SYM                                                   LIST     1533
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    36
        OBJECT LISTING SUPPORTING ROUTINES.                           WIO 
  
                          73224                   SX2    X2+B4                                                   LIST     1534
                               63424              SB4    X2+B4       STIND = 3 * TAGI                            LIST     1535
                                   0              ERRNZ  3-Z=SYM                                                 LIST     1536
          1131  5120000000 X                      SA2    T.SYM                                                   LIST     1537
                          73221                   =X2    X2+WB.W                                                 LIST     1538
                               53224              SA2    X2+B4       WBI = T.SYM(STIND) + WB.W                   LIST     1539
          1132  43301                             CLAS=  X3,WB,(LCM)                                             LIST     1540
                          43701                   MX7    1                                                       LIST     1541
                               11332              BX3    X3*X2       LCMI = LCM[WBI]                             LIST     1542
          1133  20253                             HX2    WB.FP                                                   LIST     1543
                     20352                        LX3    OA.LCMP-WB.LCMP                                         LIST     1544
                          12663                   BX6    X6+X3       ADD IN LCM BIT                              LIST     1545
                                                                                                                 FC50236    32
          1134  5160001211 +             WIO20    SA6    WIO.10+1    (WIO.10+1) = (LCM,LST,TYPE)[OA.]            LIST     1546
                                                  LX5    IA.IOCP-1-IA.STP                                        LIST     1548
                          0325001137 +            PL     X5,WIO25    IF NOT ST                                   LIST     1549
          1135  5110001344 +                      SA1    =1L,                                                    LIST     1550
                          10611                   BX6    X1                                                      LIST     1551
                               14555              BX5    -X5         SET (X5) = 0 SO THAT (WIO.10+5) = 0         LIST     1552
          1136  0400001165 +                      EQ     WIO50       WILL BE SET ALSO                            LIST     1553
                                                                                                                 LIST     1554
          1137  43744                    WIO25    MX7    -IA.BIASL                                               LIST     1555
                     20565                        LX5    1+IA.STP-IA.BIASP                                       LIST     1556
                          15357                   BX3    -X7*X5      BIASI = BIAS[IO1]                           LIST     1557
                               20510              LX5    IA.BIASP-1-IA.CHARP                                     LIST     1558
          1140  0335001147 +                      MI     X5,WIO30    IF CHARACTER                                LIST     1559
                          0322001162 +            PL     X2,WIO40    IF NOT F.P.                                 LIST     1560
                                                                                                                 LIST     1561
                                        *         FOR NON CHARACTER F.P. ITEM, OUTPUT:                           LIST     1562
                                        *                IOM         0000, BIASI, WB.FPNO-1                      LIST     1563
                                                                                                                 LIST     1564
          1141  5110001211 +                      SA1    WIO.10+1                                                LIST     1565
                          43401                   MX4    1                                                       LIST     1566
                               11442              BX4    X4*X2       FPI = FP[WBI]                               LIST     1567
          1142  20473                             LX4    1+OA.FPP                                                LIST     1568
                     12614                        BX6    X1+X4                                                   LIST     1569
                          54610                   SA6    A1          FP[WIO.10+1] = FPI                          LIST     1570
                               43763              MX7    -WB.FPNOL                                               LIST     1571
          1143  20254                             LX2    1+WB.FPP-WB.FPNOP                                       LIST     1572
                     15427                        BX4    -X7*X2      FPNOI = FPNO[WBI]                           LIST     1573
                          6120000044              KTY    24          CONVERT BIAS                                FC5A281    47
          1145  5160001213 +                      SA6    WIO.10+3    (WIO.10+3) = BIASI                          LIST     1575
                          7234777776              =X3    X4-1        FPNOI = FPNOI - 1                           LIST     1576
          1146  0400001162 +                      EQ     WIO40                                                   LIST     1577
                                                                                                                 LIST     1578
                                        *         HANDLE CHARACTER APLIST.                                       LIST     1579
                                        *         (X2) = WBI HIGH SHIFTED TO WB.FP                               LIST     1580
                                                                                                                 LIST     1581
          1147  0332401147 +             WIO30    MI     X2,"BLOWUP" CHARACTER F.P. NOT ALLOWED                  LIST     1582
                          5110000000 X            SA1    T.CAC                                                   LIST     1583
          1150  63510                             SB5    X1                                                      LIST     1584
                     43770                        MX7    -WC.BCPL                                                LIST     1585
                          53435                   SA4    B5+X3       CACI = T.CAC(BIASI)                         LIST     1586
                               20444              LX4    -WC.BCPP                                                LIST     1587
          1151  15347                             BX3    -X7*X4      BCPI = BCP[IO1]                             LIST     1588
                     6120000052                   KTY                CONVERT BCPI                                FC5A281    48
          1153  20466                             LX4    WC.BCPP-WC.CLENP                                        LIST     1590
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    37
        OBJECT LISTING SUPPORTING ROUTINES.                           WIO 
  
                     43752                        MX7    -WC.CLENL                                               LIST     1591
                          15347                   BX3    -X7*X4      CLENI = CLEN[IO1]                           LIST     1592
          1154  5160001221 +                      SA6    WIO.10+9    (WIO.10+9) = BCP                            LIST     1593
                          20436                   LX4    WC.CLENP-WC.RAP                                         LIST     1594
          1155  6120000052                        KTY                CONVERT CLEN                                FC5A281    49
          1156  5110001346 +                      SA1    =1R+                                                    LIST     1596
                          7170000033              SX7    1R0                                                     LIST     1597
          1157  12661                             BX6    X6+X1                                                   LIST     1598
                     20666                        LX6    -CHAR                                                   LIST     1599
                          20766                   LX7    -CHAR                                                   LIST     1600
          1160  5160001217 +                      SA6    WIO.10+7    (WIO.10+7) = CLEN                           LIST     1601
                          55761                   SA7    A6-B1       (WIO.10+6) = DPC(0)                         LIST     1602
                               43144              MX1    -IA.BIASL                                               LIST     1603
          1161  15341                             BX3    -X1*X4      BIASI = RA[CACI], TRUNCATED TO IA.BIASL     LIST     1604
                                                                                                                 LIST     1605
          1162  6120000044               WIO40    KTY    24          CONVERT BIAS                                FC5A281    50
          1163  0333001165 +                      MI     X3,WIO50    IF NEGATIVE BIAS                            LIST     1607
                          5110001346 +            SA1    =1R+                                                    LIST     1608
          1164  36661                             IX6    X6+X1                                                   LIST     1609
                     20666                        LX6    -CHAR                                                   LIST     1610
                                                                                                                 LIST     1611
                                        *         PROCESS IO2.                                                   LIST     1612
                                                                                                                 LIST     1613
          1165  5160001214 +             WIO50    SA6    WIO.10+4    (WIO.10+4) = BIASI                          LIST     1614
                          43700                   MX7    0                                                       LIST     1615
                               54451              =A4    A5+1        IO2 = IO1 + 1                               LIST     1616
          1166  0335001167 +                      MI     X5,WIO55    IF CHARACTER                                LIST     1617
                          54761                   SA7    A6+B1       (WIO.10+5) = 0 TERMINATOR                   LIST     1618
                                                                                                                 FC50236    33
          1167  0304001202 +             WIO55    ZR     X4,WIO70    IF IO2 .EQ. 0                               LIST     1619
                          43752                   MX7    -IA.TAGL                                                LIST     1620
                               20422              LX4    -IA.TAGP                                                LIST     1621
          1170  15347                             BX3    -X7*X4      TAG2I = TAG[IO2]                            LIST     1622
                     5110001211 +                 SA1    WIO.10+1                                                LIST     1623
                               43201              CLAS=  X2,OA,(IND)                                             LIST     1624
                     0303001173 +                 ZR     X3,WIO58    IF TAG2I .EQ. 0                             LIST     1625
                               12612              BX6    X1+X2       ADD IN IND BIT                              LIST     1626
          1172  54610                             SA6    A1          IND[WIO.10+1] = 1                           LIST     1627
          1173  20430                    WIO58    LX4    IA.TAGP-IA.BIASP                                        LIST     1628
                     0100000366 +                 RJ     KTX         CONVERT LENGTH TAG                          LIST     1629
          1174  5160001216 +                      SA6    WIO.10+6    (WIO.10+6) = TAG2I                          LIST     1630
                          43544                   MX5    -IA.BIASL                                               LIST     1631
                               15345              BX3    -X5*X4      BIAS2I = BIAS[IO2]                          LIST     1632
          1175  6120000044                        KTY    24          CONVERT LENGTH BIAS                         FC5A281    51
          1176  0333001200 +                      MI     X3,WIO60    IF BIAS IS NEGATIVE                         LIST     1634
                          5110001346 +            SA1    =1R+                                                    LIST     1635
          1177  12661                             BX6    X6+X1                                                   LIST     1636
                     20666                        LX6    -CHAR                                                   LIST     1637
                                                                                                                 FC50236    34
          1200  54661                    WIO60    SA6    A6+B1       (WIO.10+7) = BIASI                          LIST     1638
                     5110001344 +                 SA1    =1L,                                                    LIST     1639
                               10711              BX7    X1                                                      LIST     1640
          1201  5170001215 +                      SA7    WIO.10+5    (WIO.10+5) = COMMA                          LIST     1641
                                                                                                                 LIST     1642
          1202  5110001211 +             WIO70    SA1    WIO.10+1                                                LIST     1643
                          0100000434 +            RJ     KUB         CONVERT UPPER 12 BITS                       LIST     1644
          1203  54710                             SA7    A1                                                      LIST     1645
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    38
        OBJECT LISTING SUPPORTING ROUTINES.                           WIO 
  
                     5110001320 +                 SA1    =10H                                                    LIST     1646
          1204  5130001210 +                      SA3    WIO.10                                                  LIST     1647
                          10611                   BX6    X1                                                      LIST     1648
                               54231              SA2    A3+B1                                                   LIST     1649
          1205  0100000461 +                      RJ     PVF         PRINT THE LINE                              LIST     1650
          1206  5110001344 +                      SA1    =1L,                                                    LIST     1651
                          10611                   BX6    X1                                                      LIST     1652
          1207  5160001215 +                      SA6    WIO.10+5    (WIO.10+5) = COMMA                          LIST     1653
                          0400001105 +            EQ     EXIT.                                                   LIST     1654
                                                                                                                 LIST     1655
          1210  00000011171555555555     WIO.10   DATA   7RIOM                                                   LIST     1656
          1211                     1              BSS    1           +1    MODE                                  LIST     1657
          1212  56000000000000000000              DATA   1L,                                                     LIST     1658
          1213                     2              BSS    2           +3    TAG1 + BIAS1                          LIST     1659
          1215  56000000000000000000              DATA   1L,                                                     LIST     1660
          1216                     2              BSS    2           +6    TAG2 + BIAS2                          LIST     1661
          1220  56000000000000000000              DATA   1L,                                                     LIST     1662
          1221  00000000000000000000              DATA   0           +9    BCP                                   LIST     1663
          1222  00000000000000000000              DATA   0                                                       LIST     1664
                                                                                                                 LIST     1665
          1223  00000000000000200000     APTAG    CON    K.AP                                                    LIST     1666
          1224  00000000000000300000              CON    K.IO                                                    LIST     1667
  
  
  
  
                                        **        WLP - LIST LCM POINTER CELLS.                                  LIST     1669
                                        *               LIST *SUB* MACRO IF FP[WBI] .EQ. 1.                      LIST     1670
                                        *                                                                        LIST     1671
                                        *         LISTS: LC.N        LAP   TAG+BIAS                              LIST     1672
                                        *         ENTRY  (A0) = ORGA, ORGIN COUNTER OF LISTING AP-LISTS          LIST     1673
                                        *                (APLA) = LEN OF T.APL BEFORE APPENDING T.LCA            LIST     1674
                                        *         USES   ALL                                                     LIST     1675
                                                                                                                 LIST     1676
                                                                                                                 LIST     1677
          1225  0400401225 +             WLP      SUBR               ENTRY/EXIT.                                 LIST     1678
          1226  5150000000 X                      SA5    T.APL                                                   LIST     1679
                          5120000000 X            SA2    APLA                                                    LIST     1680
          1227  5130000000 X                      SA3    T=APL                                                   LIST     1681
                          43700                   MX7    0                                                       LIST     1682
                               36252              IX2    X5+X2                                                   LIST     1683
          1230  36653                             IX6    X5+X3                                                   LIST     1684
                     53760                        SA7    X6          LWA+1(T.APL) = 0  (MARK TERMINATOR)         LIST     1685
                                   0              ERRMI  1-FUDGE                                                 LIST     1686
                          76000                   =X0    0           LCIND = 0                                   LIST     1687
                               53520              SA5    X2          LCAD = FWA(T.APL) + (APLA)                  LIST     1688
                                                                                                                 LIST     1689
                                        *         LIST NEXT LCM POINTER CELL.                                    LIST     1690
                                        *         FOR N= 1, (T=LCA-1),                                           LIST     1691
                                        *         LIST:    * LC.N    LAP    (T.LCA(N+1)) *                       LIST     1692
                                        *         (A0) = ORGA                                                    LIST     1693
                                        *         (X0) = LCIND                                                   LIST     1694
                                        *         (A5) = LCAD                                                    LIST     1695
                                                                                                                 LIST     1696
          1231  0305001225 +             WLP10    ZR     X5,EXIT.    IF END OF T.LCA                             LIST     1697
                          73001                   SX0    X0+B1       LCIND = LCIND + 1                           LIST     1698
                               43652              MX6    -IA.TAGL                                                LIST     1699
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    39
        OBJECT LISTING SUPPORTING ROUTINES.                           WLP 
  
          1232  43744                             MX7    -IA.BIASL                                               LIST     1700
                     20552                        LX5    -IA.BIASP                                               LIST     1701
                          15457                   BX4    -X7*X5      BIASI = BIAS[LCI]                           LIST     1702
                               20544              LX5    IA.BIASP-IA.TAGP                                        LIST     1703
          1233  15356                             BX3    -X6*X5      TAGI = TAG[LCI]                             LIST     1704
                     0100000366 +                 RJ     KTX         CONVERT TAG                                 LIST     1705
          1234  5160000001 +                      SA6    PIK=TAG                                                 LIST     1706
                          10344                   BX3    X4                                                      LIST     1707
          1235  6120000044                        KTY    24          CONVERT BIAS                                FC5A281    52
          1236  0333001240 +                      MI     X3,WLP20    IF BIAS .LT. 0                              LIST     1709
                          7110000045              SX1    1R+                                                     LIST     1710
          1237  12661                             BX6    X6+X1                                                   LIST     1711
                     20666                        LX6    -CHAR                                                   LIST     1712
          1240  54661                    WLP20    SA6    A6+B1                                                   LIST     1713
                     74100                        SX1    A0                                                      LIST     1714
                          0100000000 X            PIA    ,LINEBUF    CONVERT ORGA TO DPC                         LIST     1715
                          54001                   =A0    A0+1        ORGA = ORGA + 1                             LIST     1716
                               43752              MX7    -PB.TAGL                                                LIST     1717
          1242  7230400000                        =X3    X0+K.LC                                                 LIST     1718
                          15337                   BX3    -X7*X3      GET RID OF SIGN EXTENSION                   LIST     1719
          1243  0100000366 +                      RJ     KTX         CONVERT LCIND TO A LC.N TAG                 LIST     1720
          1244  10166                             BX1    X6                                                      LIST     1721
                     0100000000 X                 CALL   SFN         SPACE FILL                                  LIST     1722
          1245  20666                             LX6    -CHAR                                                   LIST     1723
                     5131000722 +                 SA3    B1+APLAB    *LAP*                                       LIST     1724
                               54551              =A5    A5+1        LCAD = LCAD + 1,  LCI = (LCAD)              LIST     1725
          1246  5120000001 +                      SA2    PIK=TAG                                                 LIST     1726
                          0100000461 +            RJ     PVF         PRINT  * LAP   TAG+BIAS*                    LIST     1727
          1247  5140000002 +                      SA4    PIK=TAG+1                                               LIST     1728
                          0100001251 +            RJ     WSM         WRITE SUB MACRO                             LIST     1729
          1250  0400001231 +                      EQ     WLP10                                                   LIST     1730
  
  
  
  
                                        **        WSM - WRITE SUB MACRO.                                         LIST     1732
                                        *                                                                        LIST     1733
                                        *         ENTRY: A4-1, A4 _ TAG, BIAS FIELD OF INSTRUCTION, 0_L FORMAT   LIST     1734
                                        *                (ORGSUB) = ORIGIN COUNTER OF SUB BLOCK                  FC5A219    42
                                        *                                                                        FC5A219    43
                                        *         EXIT:  SUB    TAG,BIAS   LISTED                                LIST     1736
                                        *                (SAVFP) = 0                                             LIST     1737
                                        *                                                                        FC5A219    44
                                        *         USES:  ALL BUT A5,X5                                           LIST     1738
                                        *                                                                        FC5A219    45
                                        *         CALLS  PIA, PVF, VFD                                           FC5A219    46
                                                                                                                 LIST     1743
                                                                                                                 LIST     1744
          1251  0400401251 +             WSM      SUBR   0           ENTRY/EXIT.                                 LIST     1745
          1252  5110000000 +                      SA1    SAVFP                                                   LIST     1746
                          5130001344 +            SA3    =1L,                                                    LIST     1747
          1253  0301001251 +                      ZR     X1,EXIT.    IF *SUB* NOT NECESSARY                      LIST     1748
                          20466                   LX4    -CHAR                                                   LIST     1749
                               36743              IX7    X4+X3       PREFIX WITH (,)                             LIST     1750
          1254  54740                             SA7    A4                                                      LIST     1751
                     6221777776                   SB2    X1-1        FPNO-1 = T.FPI INDEX                        FC5A219    47
          1255  5110000000 X                      SA1    T.FPI                                                   FC5A219    48
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    40
        OBJECT LISTING SUPPORTING ROUTINES.                           WSM 
  
                          53212                   SA2    X1+B2       FETCH FPI ENTRY                             FC5A219    49
          1256  5110000000 X                      SA1    ORGSUB                                                  LIST     1752
                          43756                   MX7    -FP.SUBL                                                FC5A219    50
                               20230              LX2    -FP.SUBP                                                FC5A219    51
          1257  15227                             BX2    -X7*X2      EXTRACT THE SUB INDEX                       FC5A219    52
                     6222777776                   SB2    X2-1                                                    FC5A219    53
                               73112              SX1    X1+B2                                                   FC5A219    54
          1260  0100000000 X                      PIA    ,LINEBUF    CONVERT SUBORG TO DPC                       LIST     1755
                          5120000000 X            SA2    T.SUB                                                   FC5A219    55
          1262  53122                             SA1    X2+B2       FETCH SUB ENTRY                             FC5A219    56
                     6140000074                   SB4    60                                                      FC5A219    57
          1263  6150000074                        SB5    60                                                      FC5A219    58
                          0100000541 +            RJ     VFD         FORM SUB CALL DPC                           FC5A219    59
          1264  5130001347 +                      SA3    =1H+        TO INDICATE RELOCATION                      FC50629    20
                          5160000001 X            SA6    LINEBUF+1                                               FC5A219    61
          1265  22603                             LX6    X3                                                      FC5A219    62
                     54761                        =A7    A6+1                                                    FC5A219    63
                          54671                   =A6    A7+1                                                    FC5A219    64
          1266  5110001320 +                      SA1    =10H                                                    LIST     1756
                          10611                   BX6    X1                                                      LIST     1757
                               55241              =A2    A4-1                                                    LIST     1758
          1267  5130001350 +                      SA3    =7RSUB                                                  LIST     1759
                          0100000461 +            RJ     PVF         PRINT  *    SUB    TAG,BIAS*                LIST     1760
          1270  13777                             BX7    0                                                       LIST     1761
                     5170000000 +                 SA7    SAVFP       (SAVFP) = 0                                 LIST     1762
          1271  0400001251 +                      EQ     EXIT.                                                   LIST     1763
  
  
  
  
  
  
  
  
                                        **        ZWI - ZERO WORD ITEM.                                          LIST     1766
                                        *                                                                        LIST     1767
                                        *         LISTS A ZERO WORD ITEM, E.G., FOR APLISTS.                     LIST     1768
                                        *                                                                        LIST     1769
                                        *         ENTRY  (X3) = LABEL FIELD.                                     LIST     1770
                                        *                (LINEBUF+0) = SET AS DESIRED (USUALLY ORIGIN).          LIST     1771
                                        *                (X1) = +/- ZERO                                         LIST     1772
                                        *                                                                        LIST     1773
                                        *         USES   A1-A4,A6,A7  X1-X4,X6,X7  B2-B7.                        LIST     1774
                                                                                                                 LIST     1775
                                                                                                                 LIST     1776
          1272  0400401272 +             ZWI      SUBR   0           ENTRY/EXIT...                               LIST     1777
                                                  IFEQ   TEST,ON,1                                               LIST     1778
                                                  NZ     X1,"BLOWUP"                                             LIST     1779
          1273  10733                             BX7    X3                                                      LIST     1780
                     7160007566                   SX6    2R0 &2R-0                                               LIST     1781
          1274  5120000000 X                      SA2    OL=LBF                                                  LIST     1782
                          11316                   BX3    X1*X6       ERASE ALTER-MASK IF POSITIVE ZERO           LIST     1783
                               53720              SA7    X2                                                      LIST     1784
          1275  20360                             LX3    -2*CHAR                                                 LIST     1785
                     5120001351 +                 SA2    =H/0 /                                                  LIST     1786
                               13623              BX6    X2-X3       H/-0/  OR   H/0/                            LIST     1787
          1276  54671                             SA6    A7+B1                                                   LIST     1788
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    41
        OBJECT LISTING SUPPORTING ROUTINES.                           ZWI 
  
                     6170777776 X                 SB7    LINEBUF-1                                               LIST     1789
          1277  7110000000 X                      PLINE  LINEBUF,A6-B7                                           LIST     1790
          1301  0400001272 +                      EQ     EXIT.                                                   LIST     1791
  
  
  
  
                                        **        TLBN - TABLE OF LOCAL BLOCK NAMES.                             LIST     1793
                                                                                                                 LIST     1794
                                                                                                                 LIST     1795
                                                  MACRO  LBLK,NR,NAM                                             LIST     1796
                                         NR  DIS    1,NAM                                                        LIST     1797
                                                  ENDM                                                           LIST     1798
                                                                                                                 LIST     1799
                                                                                                                 LIST     1800
          1302                           TLBN     BSS                                                            LIST     1801
      L      0                                    LOC    0                                                       LIST     1802
                                                  LIST   -X,G        COMSLBT IS LISTED IN REC                    LIST     1803
      L      0                                    CTEXT  COMSLBT - DEFINE ORDINALS OF LOCAL BLOCKS.              COMSLBT     2
      L      0  23240122245755555555     BN=STRT  DIS    1,START.                                               LBLK    .1
      L      1  03170405575555555555     BN=CODE  DIS    1,CODE.                                                LBLK    .1
      L      2  14112405221457555555     BN=CON  DIS    1,LITERL.                                               LBLK    .1
      L      3  06172215012457555555     BN=FMT  DIS    1,FORMAT.                                               LBLK    .1
      L      4  24051520235755555555     BN=TEM  DIS    1,TEMPS.                                                LBLK    .1
      L      5  01201423245755555555     BN=APL  DIS    1,APLST.                                                LBLK    .1
      L      6  11170120145755555555     BN=IOAP  DIS    1,IOAPL.                                               LBLK    .1
      L      7  16011514232457555555     BN=NLST  DIS    1,NAMLST.                                              LBLK    .1
      L     10  26012223575555555555     BN=VAR  DIS    1,VARS.                                                 LBLK    .1
      L     11  23250257555555555555     BN=SUB  DIS    1,SUB.                                                  LBLK    .1
      L     12  23250233575555555555     BN=SUB0  DIS    1,SUB0.                                                LBLK    .1
      L     13  02250605225755555555     BN=BUF  DIS    1,BUFER.                                                LBLK    .1
                                                  LIST   *                                                       LIST     1805
      L     14                           Z.LBT    BSS                NUMBER OF BLOCKS                            LIST     1806
          1316                                    LOC    *O                                                      LIST     1807
  
  
  
  
                                                  LIST   D                                                       LIST     1809
                                                  ENTRY  FIN.OL                                                  LIST     1810
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        CO.LL 
             0 X                        FCLMOD
  
                                        CONTENT OF LITERALS BLOCK.
  
          1316  56230000000000000000    ,S
          1317  46000000000000000000    - 
          1320  55555555555555555555
          1321  00000023250233555555       SUB0 
          1322  00000001040422555555       ADDR 
          1323  47555555555555555555    * 
          1324  55555555551411160555         LINE 
          1325  00000000000000000056             ,
          1326  00000003205555555555       CP 
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    42
        OBJECT LISTING SUPPORTING ROUTINES.                           LITERALS
  
          1327  00000005160455555555       END
          1330  05212516555555555555    EQUN
          1331  14010223555555000000    LABS
          1332  56061524000000000000    ,FMT
          1333  00000006260503555555       FVEC 
          1334  00000020141115555555       PLIM 
          1335  00000011040516245555       IDENT
          1336  00000011171555555555       IOM
          1337  00000003142755555555       CLW
          1340  00000023023311555555       SB0I 
          1341  00000023250211555555       SUBI 
          1342  00000025230555555555       USE
          1343  55555555555555555500
          1344  56000000000000000000    , 
          1345  22100000000000000000    RH
          1346  00000000000000000045             +
          1347  45555555555555555555    + 
          1350  00000023250255555555       SUB
          1351  33555555555555555555    0 
  
          1352                           FIN.OL   END                END OF (1,0) OVERLAY WHEN OLIST ON          LIST     1811
  
                             67600B CM  STORAGE USED             3493 STATEMENTS     1904 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            2.683 SECONDS         979 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ALC             0   EXTERNAL*       1/52 X   25/31
        APLA            0   EXTERNAL*       1/55 X    8/31     38/38
        APLAB         722   PROGRAM*       29/45     30/26 L   39/25
        APTAG        1223   PROGRAM*       26/28     38/21 L
        BN=APL          5                  25/18
        BN=FMT          3                  32/44
        B1=1            0 
        CC0           765   PROGRAM*        9/18     31/40 S   31/55 L   32/47 S
        CC3           770   PROGRAM*        9/21     31/24 S   31/56 L   32/34 S   33/03 S
        CC5           772   PROGRAM*       31/38 S   32/01 L   32/45 S
        CC8           775   PROGRAM*       31/35 S   32/02 L   32/40 S
        CDD             0   EXTERNAL*       2/13 X    8/43     12/28
        CHAR            6   FTX             5/26      6/28      8/13     18/21     20/13     21/27     32/57     39/24
                                            5/38      6/55     10/01     18/24     21/13     23/02     33/10     39/53
                                            5/47      6/57     10/55     18/28     21/14     23/05     37/09     40/54
                                            6/12      7/04     12/20     19/32     21/17     29/38     37/10
                                            6/20      7/05     17/31     19/36     21/20     30/12     37/20
                                            6/21      7/06     17/35     19/40     21/21     31/23     37/48
                                            6/24      7/11     18/14     20/09     21/22     32/32     39/13
        COD             0   EXTERNAL*       2/13 X   22/38
        CON.10        174   PROGRAM*        9/19      9/22 L
        CO.LL           0   EXTERNAL*      12/27
        CO.OPT          0   EXTERNAL*       2/02 X   11/17
        CO.PS           0   EXTERNAL*       2/02 X   34/07
        CO.PW           0   EXTERNAL*       2/02 X    9/15
        DH.RAL         30   FTX            28/43     28/44
        DH.RAP          6   FTX            28/43
        DMT=            0   EXTERNAL*       2/13 X
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    43
        SYMBOLIC REFERENCE TABLE. 
  
        EQUN.10       232   PROGRAM*       10/57 L
        FAPSUD          0   EXTERNAL*       1/55 X    4/29
        FCLMOD          0   EXTERNAL*      35/22
        FIN.OL       1352   PROGRAM*       41/40 E   41/41 L
        FP.SUBL        16   FTX            40/03
        FP.SUBP        44   FTX            40/04
        FUDGE           1   FTX            38/44
        FVEC.10       262   PROGRAM*       12/01     12/12 L
        FVEC.20       264   PROGRAM*       12/17 L   12/35
        F.LBT           0   EXTERNAL*       2/05 X   25/19     32/44     34/19
        IA.BIASL       30   FTX            28/28     29/26     36/22     37/13     37/42     39/01
        IA.BIASP       22   FTX            28/26     30/04     30/06     36/23     36/25     37/39     39/02     39/04
        IA.CHARP       11   FTX            28/30     36/25
        IA.CRHL         1   FTX            27/49
        IA.CRHP        10   FTX            27/49
        IA.IOCP        13   FTX            35/18     35/47
        IA.LEFTP       52   FTX            29/56
        IA.MODEL        6   FTX            27/56     35/08
        IA.MODEP       14   FTX            28/01     28/25     28/26     35/16     35/18
        IA.RITEL       30   FTX            30/03
        IA.RITEP       22   FTX            30/06
        IA.STP         12   FTX            28/25     28/30     36/23
        IA.TAGL        22   FTX            27/48     35/09     37/31     38/57
        IA.TAGP        52   FTX            27/50     29/56     35/10     37/32     39/04
                                           28/01     30/04     35/16     37/39
        IA.VARL         1   FTX            35/47
        IA.VARP         5   FTX            35/47
        IC.IOS          5   FTX            35/42
        IC.REC          6   FTX            35/40
        IC.UNT          1   FTX            35/38
        IDENT           0   EXTERNAL*       2/05 X   10/28     12/42     15/31
        KTX           366   PROGRAM*        5/04      8/10     11/36     17/09 L   27/55     37/40     39/21
                                            5/36      9/37     14/49     20/41     35/13     39/06
        KTXN          416   PROGRAM*       17/33     18/36 L
        KTX10         372   PROGRAM*       17/27 L   17/32
        KTX20         376   PROGRAM*       17/13     17/45 L
        KTX30         404   PROGRAM*       18/03     18/08 L
        KTX40         410   PROGRAM*       17/53     18/20 L
        KTX50         411   PROGRAM*       18/23 L   18/25
        KTX60         414   PROGRAM*       17/10     18/31 L
        KTY           423   PROGRAM*        5/14     12/15     20/35     29/25     30/07     37/05     39/09
                                            8/16     18/31     29/04     29/34     36/41     37/16
                                            9/55     19/17 L   29/19     29/55     36/56     37/44
        KTY6          427   PROGRAM*       19/26     19/29 L   19/34
        KUB           434   PROGRAM*       19/57 L   29/42     37/56
        KUB10         437   PROGRAM*       20/06 L   20/12
        K=AP            2   FTX            18/40 L
        K=END           5   FTX            18/43 L
        K=GL            1   FTX            18/39 L
        K=IO            3   FTX            18/41 L
        K=LC            4   FTX            18/42 L
        K=SYM           0   FTX            18/38 L   28/08     35/57
        K.AP       200000   FTX            38/21
        K.IO       300000   FTX            38/22
        K.LC       400000   FTX            39/19
        LB.BLENP       22   FTX            34/23
        LB.ORGL        22   FTX            25/22
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    44
        SYMBOLIC REFERENCE TABLE. 
  
        LB.ORGP         0   FTX            34/23
        LINEBUF         0   EXTERNAL*       2/05 X   11/05     20/48 S   26/36 S   31/44     33/44 S   39/16 S
                                            7/27     11/05     21/40     26/56 S   31/46     33/49 S   40/08 S
                                            7/28     11/35 S   21/41     26/57 S   32/50 S   34/18 S   40/15 S
                                            8/57     11/44     22/17 S   27/19 S   32/53     34/22 S   41/01
                                           10/45 S   13/07 S   22/25     31/28 S   32/55     34/28 S   41/02
                                           11/04     15/35 S   22/34     31/44     33/28 S   34/35 S   41/02
        LI=ADDR       137   PROGRAM*        8/01 L    8/01 E
        LI=APL        151   PROGRAM*        8/28 L    8/28 E
        LI=BCI        136   PROGRAM*        7/47 L    7/47 E
        LI=BMI        136   PROGRAM*        7/46 L    7/46 E
        LI=BOS        155   PROGRAM*        8/39 L    8/39 E
        LI=BSS        166   PROGRAM*        9/07 L    9/07 E
        LI=CON        170   PROGRAM*        9/14 L    9/14 E
        LI=CPL        200   PROGRAM*        9/32 L    9/32 E
        LI=DATA       214   PROGRAM*       10/13 L   10/13 E
        LI=ECI        136   PROGRAM*        7/50 L    7/50 E
        LI=EMI        136   PROGRAM*        7/49 L    7/49 E
        LI=END        216   PROGRAM*       10/24 L   10/24 E
        LI=EQUN       224   PROGRAM*       10/43 L   10/43 E
        LI=FLA        246   PROGRAM*       11/31 L   11/31 E
        LI=FMT        237   PROGRAM*       11/15 L   11/15 E
        LI=FVEC       255   PROGRAM*       11/52 L   11/52 E
        LI=IDNT       275   PROGRAM*       12/40 L   12/40 E
        LI=IOM        304   PROGRAM*       13/01 L   13/01 E
        LI=JPI        314   PROGRAM*       13/22 L   13/22 E
        LI=LCC        317   PROGRAM*       13/39 L   13/39 E
        LI=LD0        320   PROGRAM*       13/45 L   13/45 E
        LI=LOO        136   PROGRAM*        7/51 L    7/51 E
        LI=NLST       321   PROGRAM*       14/01 L   14/01 E
        LI=OTR        136   PROGRAM*        7/48 L    7/48 E
        LI=PLIM       271   PROGRAM*       12/26 L   12/26 E
        LI=RJ3        323   PROGRAM*       14/14 L   14/14 E
        LI=RJ6        324   PROGRAM*       14/21 L   14/21 E
        LI=SB0I       331   PROGRAM*       14/36 L   14/36 E
        LI=ST0        320   PROGRAM*       13/46 L   13/46 E
        LI=SUBI       332   PROGRAM*       14/43 L   14/43 E
        LI=TRAC       354   PROGRAM*       15/30 L   15/30 E
        LI=UJP        341   PROGRAM*       15/01 L   15/01 E
        LI=USE        342   PROGRAM*       15/08 L   15/08 E
        LI=ZERO       363   PROGRAM*       16/01 L   16/01 E
        MOD             0   EXTERNAL*       2/05 X   10/27
        MO.PROP        11   FTX            10/29
        MVE=            0   EXTERNAL*       2/13 X   31/44     32/53
        N.TABLE         0   EXTERNAL*       2/05 X   30/57
        OA.FPP         72   FTX            28/55     36/35
        OA.INDP        71   FTX            37/35
        OA.LCMP        73   FTX            28/19     36/11
        OA.LSTP        70   FTX            35/20
        OA.TYPL         6   FTX            35/34     35/35     35/36
        OA.TYPP        60   FTX            28/03     35/29     35/35
        OA.VARP        67   FTX            35/50
        OL=BIN          0   EXTERNAL*       1/55 X   11/38     22/14
        OL=LBF          0   EXTERNAL*       1/55 X    5/48      8/47     10/57     21/10     22/27     40/51
        OL=PB           0   EXTERNAL*       1/55 X    4/24 S
        OL=RL           0   EXTERNAL*       1/55 X   11/25 S   12/47 S   15/37 S   20/47 S   22/08     22/16
        ORGSUB          0   EXTERNAL*       1/55 X   40/02
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    45
        SYMBOLIC REFERENCE TABLE. 
  
        O.STITL         0   EXTERNAL*       2/05 X   34/13 S
        PBS           442   PROGRAM*        9/08     11/23     20/28 L   26/41     33/31
        PBSA          456   PROGRAM*       20/36 S   20/52 L
        PBS10         452   PROGRAM*       20/40     20/44 L
        PB.BIASL       22   FTX             5/06      8/09      8/40     12/14     15/09     15/10     20/29
        PB.BIASP       14   FTX             5/08      5/11      8/07      8/41     12/12     15/09     20/31     20/33
        PB.GHL          6   FTX             4/40
        PB.H2L         14   FTX             4/38      5/09
        PB.H2P          0   FTX             5/11
        PB.IL           3   FTX            13/24
        PB.IP          63   FTX            13/25     13/27
        PB.ORDL        16   FTX            17/11     28/05     35/53
        PB.TAGL        22   FTX             4/55      8/06     12/03     14/46     39/18
                                            4/56      9/33     14/23     20/30
        PB.TAGP        36   FTX             7/31      8/07     11/22     12/12     14/47     26/38
                                            8/04      9/34     11/55     14/25     20/33     33/30
        PFV40         475   PROGRAM*       21/16     21/38 L
        PIA             0   EXTERNAL*       2/05 X   26/36     31/28     33/28     34/22     39/16
                                           10/45     27/02     32/50     33/44     34/25     40/08
        PIK            24   PROGRAM*        4/18 L    4/18 E
        PIK100        106   PROGRAM*        6/26      6/31 L    6/46
        PIK110        115   PROGRAM*        6/36      6/54 L
        PIK120        116   PROGRAM*        6/57 L    7/16
        PIK130        117   PROGRAM*        7/04 L    7/14
        PIK140        122   PROGRAM*        7/09      7/14 L
        PIK150        124   PROGRAM*        6/35      7/18 L
        PIK20          33   PROGRAM*        4/27      4/38 L
        PIK40          43   PROGRAM*        5/03 L   14/31
        PIK45          55   PROGRAM*        5/17      5/21      5/25 L
        PIK50          56   PROGRAM*        5/15      5/28 L
        PIK55          57   PROGRAM*        5/13      5/32 L
        PIK60          64   PROGRAM*        4/51      5/33      5/34      5/44 L
        PIK70          71   PROGRAM*        5/52      5/56 L
        PIK75          73   PROGRAM*        5/54      5/57      6/03 L
        PIK80          77   PROGRAM*        6/05      6/08      6/12 L
        PIK90         103   PROGRAM*        6/23 L    6/34      6/40      6/44
        PIK=BL          5   PROGRAM*        3/20 L    6/13
        PIK=I           6   PROGRAM*        3/21 L    4/48 S    5/51      6/19      6/32      6/41     13/29 S   14/30 S
        PIK=J           7   PROGRAM*        3/22 L    6/06
        PIK=LCM         0   EXTERNAL*       2/05 X    6/01
        PIK=PI          0   EXTERNAL*       2/06 X   14/28
        PIK=PS          0   EXTERNAL*       2/06 X    4/50      5/50     14/26
        PIK=TAG         1   PROGRAM*        3/18 L    5/23 S    7/34     10/26 S   12/49 S   39/07 S
                                            4/25 S    5/28 S    8/11 S   12/17 S   14/50 S   39/27
                                            5/05 S    6/54      9/38 S   12/22     15/16 S   39/29
        PIK=XJP         0   EXTERNAL*       2/06 X    5/53      6/09
        PLL           501   PROGRAM*       11/46     15/38     20/49     22/07 L
        PLL5          506   PROGRAM*       22/13     22/16 L
        PLL6          512   PROGRAM*       22/22     22/24 L
        PLL8          521   PROGRAM*       22/37     22/41 L
        PS.ORDL        22                   3/09 D   26/27
        PS.ORDP        30                   3/09 D   25/54     26/25
        PS.RAL         22                   3/08 D   26/24     26/32
        PS.RAP         52                   3/08 D   25/37     25/53     26/18     26/25     26/30
        PVF           461   PROGRAM*        8/22     10/37     12/51     15/19     29/48     39/28
                                           10/07     12/23     14/55     21/09 L   38/05     40/23
        PVF10         465   PROGRAM*       21/17 L   21/32
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    46
        SYMBOLIC REFERENCE TABLE. 
  
        PVF20         466   PROGRAM*       21/20 L   21/29
        PVF30         471   PROGRAM*       21/25     21/29 L
        PVS           524   PROGRAM*       22/33     22/57 L
        PVS10         527   PROGRAM*       23/05 L   23/22
        PVS20         530   PROGRAM*       23/08 L   23/18     23/19
        PVS30         534   PROGRAM*       23/14     23/18 L
        P=PFX          17   FTX            17/20
        RADC            0   EXTERNAL*       1/55 X    4/20
        RJ6.10        325   PROGRAM*       13/30     14/16     14/23 L   15/03
        SAVFP           0   PROGRAM*        3/14 L    5/19     18/10 S   30/23 S   40/25 S
                                            4/23 S   18/09 S   28/51 S   39/50
        SFN             0   EXTERNAL*       2/13 X   10/54     12/19     20/43     39/23
        SST             0   EXTERNAL*       2/13 X   26/07
        SUBI.10       333   PROGRAM*        7/33     14/38     14/45 L
        SUM.LBT         0   EXTERNAL*       2/07 X   10/44
        S=CL            0   EXTERNAL*       2/07 X   33/29
        S=CON           0   EXTERNAL*       2/07 X    9/24
        S=LA            0   EXTERNAL*       2/07 X   11/20
        S=LENP          0   EXTERNAL*       2/07 X   10/46
        S=RD            0   EXTERNAL*       2/07 X   28/37
        TAGSUB0         0   EXTERNAL*       1/56 X    7/29
        TEST            0   FTX            10/16 F   14/06 F   17/22 F   29/57 F   30/08 F   31/32 F   40/47 F
        TLBN         1302   PROGRAM*       15/11     34/26     41/16 L
        TRAC.A        361   PROGRAM*       15/36     15/41 L
        T=API           0   EXTERNAL*       2/07 X   25/29
        T=APL           0   EXTERNAL*       2/07 X   38/39
        T=CLW           0   EXTERNAL*       2/07 X   33/33
        T=DATS          0   EXTERNAL*       2/08 X   10/14
        T=DIM           0   EXTERNAL*       2/08 X   14/02
        T=FMT           0   EXTERNAL*       2/08 X   32/20
        T=IOA           0   EXTERNAL*       2/08 X   13/11
        T=LA            0   EXTERNAL*       2/08 X   11/18
        T=NLST          0   EXTERNAL*       2/08 X   14/04
        T=SCR           0   EXTERNAL*       2/08 X   25/30     25/30 S   26/15
        T.API           0   EXTERNAL*       2/08 X   25/32
        T.APL           0   EXTERNAL*       2/08 X   25/38     38/37
        T.CAC           0   EXTERNAL*       2/09 X   29/09     36/50
        T.CLW           0   EXTERNAL*       2/09 X   33/32
        T.CLWB          0   EXTERNAL*       2/10 X   33/40
        T.CON           0   EXTERNAL*       2/09 X    9/25
        T.DIM           0   EXTERNAL*       2/09 X   28/38
        T.FMT           0   EXTERNAL*       2/09 X   32/22
        T.FPI           0   EXTERNAL*       2/10 X   39/57
        T.PTXTR         0   EXTERNAL*       2/09 X   26/49
        T.SCR           0   EXTERNAL*       2/09 X   25/31     26/14
        T.SUB           0   EXTERNAL*       2/10 X   40/09
        T.SYM           0   EXTERNAL*       2/09 X    9/46     11/54     28/09     36/04
                                            8/03     10/49     17/45     31/01
        USE.10        350   PROGRAM*       15/22 L
        VFD           541   PROGRAM*       24/10 L   24/10 E   40/13
        VFD2          546   PROGRAM*       24/17     24/24 L
        VFD3          547   PROGRAM*       24/30 L   24/41     24/49
        VFD4          552   PROGRAM*       24/36     24/39 L
        WAP           555   PROGRAM*        8/32     13/12     25/17 L
        WAPA          631   PROGRAM*       26/40 S   26/42     27/14     27/27 L
        WAP10         570   PROGRAM*       25/47 L   26/01
        WAP20         574   PROGRAM*       25/49     26/05 L
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    47
        SYMBOLIC REFERENCE TABLE. 
  
        WAP30         575   PROGRAM*       26/14 L   26/44     27/25
        WAP40         611   PROGRAM*       26/49 L   27/24
        WAP50         622   PROGRAM*       27/06     27/11 L
        WAP90         623   PROGRAM*       27/09     27/14 L
        WAP.RJ        622   PROGRAM*       25/27 S   27/12 L
        WA.STLL        36   FTX            32/30     33/10
        WA.STLP        30   FTX            18/22
        WA.SYML        52   FTX            10/51     12/05     12/08     17/54     31/09
        WA.SYMP        22   FTX            12/06
        WA.W            0   FTX            10/52     12/02     17/55     18/20     31/10
        WB.EXTP        16   FTX            17/57
        WB.FPL          1   FTX            36/10
        WB.FPNOL       11   FTX            18/04     29/01     36/38
        WB.FPNOP       41   FTX            18/05     29/02     36/39
        WB.FPP         20   FTX            18/02     18/05     29/02     36/10     36/39
        WB.LABP         3   FTX            17/52     17/57
        WB.LCMP        21   FTX            28/16     36/07     36/11
        WB.W            1   FTX            12/02     17/50     17/55     18/20     28/10     36/05
        WCA           634   PROGRAM*       27/28     27/44 L
        WCA15         647   PROGRAM*       28/07     28/21 L
        WCA20         656   PROGRAM*       28/31     28/49 L
        WCA35         665   PROGRAM*       28/49     29/09 L
        WCA40         676   PROGRAM*       28/41     28/45     29/07     29/34 L
        WCA60         701   PROGRAM*       29/35     29/39 L
        WCA80         702   PROGRAM*       29/41 L   30/17     30/24
        WCA90         710   PROGRAM*       27/54     29/55 L
        WCA95         717   PROGRAM*       28/27     30/19 L
        WCA.RJ        632   PROGRAM*        8/30     27/28 L
        WCA.10        724   PROGRAM*       27/47 S   28/22 S   29/05 S   29/29 S   29/41     29/49     30/16 S   30/29 L
                                           27/57 S   28/52     29/22 S   29/39 S   29/47     30/02 S   30/22 S
        WCC           736   PROGRAM*        9/26     30/56 L
        WCCB          776   PROGRAM*        9/22 S   31/42     31/45     32/04 L   32/51     32/54
        WCCF         1000   PROGRAM*       31/19 S   31/25     31/47     32/05 L
        WCC20         746   PROGRAM*       31/23 L   31/52
        WCF          1002   PROGRAM*       11/16     32/19 L
        WCFC         1027   PROGRAM*       32/29     33/10 L
        WCF10        1006   PROGRAM*       32/29 L   33/08
        WCF20        1010   PROGRAM*       32/38 L   33/07
        WCL          1030   PROGRAM*       13/16     33/26 L
        WCL10        1036   PROGRAM*       33/39 L   33/56
        WCS          1047   PROGRAM*       12/41     34/06 L
        WCSA         1076   PROGRAM*       34/14     34/39 L
        WCSB         1102   PROGRAM*       34/09     34/40 L
        WCS30        1057   PROGRAM*       34/19 L   34/32
        WC.BCPL         4   FTX            29/11     36/52
        WC.BCPP        30   FTX            29/15     29/17     36/54     36/57
        WC.CLENL       22   FTX             9/50      9/51     29/10     37/01
        WC.CLENP       36   FTX             9/50     29/17     29/27     36/57     37/04
        WC.CTYPL        1   FTX             9/52
        WC.CTYPP       35   FTX             9/52
        WC.RAL         30   FTX            25/39     31/16
        WC.RAP          0   FTX            29/27     37/04
        WC.W            2   FTX             9/47     31/11
        WIO          1105   PROGRAM*       27/29     33/53     35/05 L
        WIO10        1116   PROGRAM*       35/21     35/29 L
        WIO11        1125   PROGRAM*       35/32     35/46 L
        WIO12        1126   PROGRAM*       35/39     35/41     35/43     35/50 L
1       LIST - OBJECT CODE LISTING ROUTINES.                          COMPASS 3.7-871.     24/05/02. 13.19.05.      PAGE    48
        SYMBOLIC REFERENCE TABLE. 
  
        WIO15        1127   PROGRAM*       35/31     35/44     35/48     35/53 L
        WIO20        1134   PROGRAM*       35/56     36/14 L
        WIO25        1137   PROGRAM*       36/16     36/22 L
        WIO30        1147   PROGRAM*       36/26     36/49 L
        WIO40        1162   PROGRAM*       36/27     36/44     37/16 L
        WIO50        1165   PROGRAM*       36/20     37/17     37/24 L
        WIO55        1167   PROGRAM*       37/27     37/30 L
        WIO58        1173   PROGRAM*       37/36     37/39 L
        WIO60        1200   PROGRAM*       37/45     37/50 L
        WIO70        1202   PROGRAM*       37/30     37/55 L
        WIO.RJ        633   PROGRAM*       13/10     27/29 L
        WIO.10       1210   PROGRAM*       13/06 S   35/14 S   36/42 S   37/24 S   37/53 S   38/08 S
                                           13/15 S   36/14 S   37/03 S   37/34     37/55     38/11 L
                                           35/07 S   36/32     37/11 S   37/41 S   38/02
        WLP          1225   PROGRAM*        8/33     38/36 L
        WLP10        1231   PROGRAM*       38/55 L   39/31
        WLP20        1240   PROGRAM*       39/10     39/14 L
        WOD             0   EXTERNAL*       2/13 X   22/15     26/55     31/36     32/42     33/48
        WOF             0   EXTERNAL*       2/09 X    9/01     21/41     31/46     34/14     34/36
                                            7/28     11/05     22/41     32/55     34/30     41/02
        WSM          1251   PROGRAM*        7/35     29/50     39/30     39/49 L
        ZTB             0   EXTERNAL*       2/13 X   15/32     31/14
        ZWI          1272   PROGRAM*       16/04     27/08     40/46 L
        Z=IOA           2   FTX            25/26     27/20     33/35     33/52     33/55
        Z=SYM           3   FTX             9/45     17/48     28/13     31/07     36/03
        Z.LBT          14                  34/31     41/33 L
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1376              IDENT  CCGC 
                       1376                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1375 
                                        LITERALS* LOCAL        1375         1 
  
  
                                        ENTRY POINTS. 
  
                                        B=CCGC           0+           HO$OPT          23+           WTE            163+ 
                                        F$STITL          0+           N.ALTEN         24+           ITS            413+ 
                                        N$STITL         14+           CCGC            25+           PSTAB          365+ 
                                        CC$FT           15+           FA=LOL         114+           WINOC          321+ 
                                        CC$SUB          16+           HE$ABT         120+           OTC            456+ 
                                        CC$SUB0         17+           HE$CTX         122+           ISA            750+ 
                                        HO$DC           20+           HE$EPX         122+           BR$AFT        1263+ 
                                        HO$OBO          21+           HR$LDC         124+ 
                                        HO$OFLL         22+           WIN            166+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        BRIDGE    L=IOI     S=CT      CC$LBO    MVE=      L$RND     L$DIM     O$APT 
                                        CGL.RTN   L=NLST    S=ENTRY   CG$AVO    O$VDT     O$RND     O$DIM     L$IOA 
                                        ERR22     L=SYM     S=GPL     CG$IEP    L$TXT     L=FE      L$NLST    O$IOA 
                                        CO.SNAP   MOD       S=IT      F$LBT     L$VDT     O=FE      O$NLST    L$APL 
                                        F.PB      N.STMAX   S=LC      N.CON     CG$CPC    L$FE      L$CBT     O$APL 
                                        MSG=      N.VD      S=OT      BN=APL    CC$BRN    O$FE      O$CBT     L=CAC 
                                        OT.RM     O=API     S=SPA     Z$APT     ATS$      L=VDI     L$SYM     O=CAC 
                                        SNP=      O=APL     S=ST      S=SLI     Z$TXT     O=VDI     L=CUT     L$CAC 
                                        BN=BUF    O=ASG     S=SUB     LEVEL0    ADW$      L$VDI     O=CUT     O$CAC 
                                        BN=TEM    O=BLKS    S=SUBI    O$TST     Z$GLT     O$VDI     L$CUT     L=CLW 
                                        F.LBT     O=CON     S=TA0     Z$TST     ENTRJ     L=FPI     O$CUT     O=CLW 
                                        IDENT     O=GL      S=TRACE   N.CPL     BN=CODE   O=FPI     L$CVT     L$CLW 
                                        L=API     O=IOA     S=VD      L$TST     S=SUB0I   L$FPI     O$CVT     O$CLW 
                                        L=APL     O=IOI     WOF       S=SA0     BN=SUB    O$FPI     L$ASG     CG$GPO
                                        L=ASG     O=NLST    CDD       N.FP      CG$CUB    L=ENTP    O$ASG 
                                        L=BLKS    O=SYM     WTO=      N.EPL     BN=STRT   O=ENTP    L$GLT 
                                        L=CON     PASS      O$SYM     S=SA1     N$LC      L$ENTP    O$GLT 
                                        L=FILE    PIK=PS    FSU#      CO.DBID   N$OT      O$ENTP    L$IOT 
                                        L=GL      S=CP      CC$BLEN   F$RDT     N$IT      L=DIM     O$IOT 
                                        L=IOA     S=CPL     CC$PC     O$TXT     N.CTMAX   O=DIM     L$APT 
  
  
  
  
                                                  IDENT  CCGC                                                    CCGC        2
                                         CCGC     SECT   (CCG CONTROLLER AND SUPPORT.)                           CCGC        3
  
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     2
                                                                      CCGC
  
                                        ***              CCGC IS THE CONTROLLER FOR THE CYBER CODE GENERATOR.    CCGC        5
                                                                                                                 CCGC        6
                                                                                                                 CCGC        7
                                   0     .FAST    EQU    0                                                       CCGC        8
                                   1     .OPT     EQU    1                                                       CCGC        9
                                   1     .CG      EQU    .OPT        INDICATE CYBER CODE GENERATOR               CCGC       10
                                         BT       MICRO  1,,/B4/     TEMP B-REG FOR COMDECKS                     CCGC       11
                                         O$       MICRO  1,,/O$/                                                 CCGC       12
                                         L$       MICRO  1,,/L$/                                                 CCGC       13
  
  
  
  
                                        *         IN BRIDGE                                                      CCGC       15
                                                  EXT    BRIDGE                                                  CCGC       16
                                                                                                                 CCGC       17
                                        *         IN CCGLINK                                                     CCGC       18
                                                  EXT    CGL.RTN,ERR22                                           CCGC       19
                                                                                                                 CCGC       20
                                        *         IN FTN                                                         CCGC       21
                                                  EXT    CO.SNAP,F.PB,MSG=,OT.RM                                 CCGC       22
                                                                                                                 CCGC       23
                                        *         IN IDP                                                         CCGC       24
                                                  EXT    SNP=                                                    CCGC       25
                                                                                                                 CCGC       26
                                        *         IN PUC                                                         CCGC       27
                                                  EXT    BN=BUF,BN=TEM,F.LBT,IDENT,L=API                         CCGC       28
                                                  EXT    L=APL,L=ASG,L=BLKS,L=CON,L=FILE,L=GL,L=IOA,L=IOI        CCGC       29
                                                  EXT    L=NLST,L=SYM,MOD,N.STMAX,N.VD,O=API,O=APL               CCGC       30
                                                  EXT    O=ASG,O=BLKS,O=CON,O=GL,O=IOA,O=IOI,O=NLST              CCGC       31
                                                  EXT    O=SYM,PASS,PIK=PS,S=CP,S=CPL,S=CT,S=ENTRY,S=GPL,S=IT    CCGC       32
                                                  EXT    S=LC,S=OT,S=SPA,S=ST,S=SUB,S=SUBI,S=TA0,S=TRACE,S=VD    CCGC       33
                                                  EXT    WOF                                                     CCGC       34
                                                                                                                 CCGC       35
                                        *         IN UTILITY                                                     CCGC       36
                                                  EXT    CDD,WTO=                                                CCGC       37
  
  
  
  
             0                           F$STITL  BSSENT                                                         CCGC       39
             0  55555555555555555555              DIS    6,                  **** MESSAGES FROM JASIK'S SUPER    CCGC       40
             6  03170405550705160522              DIS    6,CODE GENERATOR.    ****                               CCGC       41
            14  00000000000000000000     N$STITL  CONENT 0                                                       CCGC       42
                                                                                                                 CCGC       43
            15  00000000000000000000     CC$FT    CONENT 0           0 TO EVICT OPT SCRATCH FILE                 CCGC       44
            16  00000000000000000000     CC$SUB   CONENT 0           SUB OCCURRED FLAG                           CCGC       45
            17  00000000000000000000     CC$SUB0  CONENT 0           SUB0 OCCURRED FLAG                          CCGC       46
            20  00000000000000000000     HO$DC    CONENT 0           .NE. 0 IF DEAD CODE ENCOUNTERED BY CCG      CCGC       47
            21                     1     HO$OBO   BSSENT 1           CCG SCRATCH BUFFER ORIGIN                   CCGC       48
            22  00000000000000000000     HO$OFLL  CONENT 0           ORIGIN OF LCM FOR CCG                       CCGC       49
            23                     1     HO$OPT   BSSENT 1           CO.OPT S 58                                 CCGC       50
            24  00000000000000000000     N.ALTEN  CONENT 0           NUMBER OF ALTERNATE ENTRIES                 CCGC       51
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     3
                                                                      CCGC
  
                                        **        CCGC - CCG CONTROLLER.                                         CCGC       53
                                        *                                                                        CCGC       54
                                        *         CCGC IS CALLED BY INIT22 AFTER OVERLAY INITIALIZATION.         CCGC       55
                                                                                                                 CCGC       56
                                                                                                                 CCGC       57
            25                           CCGC     BSSENT 0           ...ENTRY                                    CCGC       58
            25  76611                             =X6    PASS=CCG                                                CCGC       59
                     5160000000 X                 SA6    =XPASS      SET PASS TO CCG                             CCGC       60
            26  0100000000 X                      CALL   BRIDGE      INTERFACE TO CCG                            CCGC       61
            27  5110000023 +                      SA1    =XHO$OPT                                                CCGC       62
                          5140000000 X            SA4    =XMOD                                                   CCGC       63
            30  0321000032 +                      PL     X1,CCG2     IF OPT NE 2                                 CCGC       64
                          20463                   HX4    MO.BLK                                                  CCGC       65
            31  0334000032 +                      MI     X4,CCG2     IF BLOCK DATA                               CCGC       66
                          0100000000 X            CALL   CG$GPO      PERFORM GLOBAL OPTIMIZATION                 CCGC       67
            32  0100000456 +             CCG2     CALL   OTC         OUTPUT TERMINAL CODE                        CCGC       68
                                                                                                                 CCGC       69
                                        *         COMMUNICATE TO PASS1-3 TM POSITIONS OF PASS2 TABLES.           CCGC       70
                                                                                                                 CCGC       71
            33                           CCG4     BSS    0                                                       CCGC       72
                                                                                                                 CCGC       73
                                                  MACRO  TABSH,PASS1,D1,D2,PASS2                                 CCGC       74
                                         PA2      MICRO  1,,/PASS2/                                              CCGC       75
                                                  IFC    EQ,/PASS2//,1                                           CCGC       76
                                         PA2      MICRO  1,,/PASS1/                                              CCGC       77
                                                  SA1    =XO$"PA2"                                               CCGC       78
                                                  SA2    =XL$"PA2"                                               CCGC       79
                                                  BX6    X1                                                      CCGC       80
                                                  LX7    X2                                                      CCGC       81
                                                  SA6    =XO=PASS1                                               CCGC       82
                                                  SA7    =XL=PASS1                                               CCGC       83
                                                  ENDM                                                           CCGC       84
                                                                                                                 CCGC       85
            33                           COMSTAB  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAB     2
                                                                                                                 COMSTAB     3
            33                           COMSTAD  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAD     2
                                                                                                                 COMSTAD     3
                                        ***       COMSTAD CONTAINS A "TABSH" MACRO CALL FOR EACH TABLE           COMSTAD     4
                                        *         WHICH IS SHARED WITH CCG.                                      COMSTAD     5
                                        *                                                                        COMSTAD     6
                                        * FEN     TABSH  RATE,INIT,CGN                                           COMSTAD     7
                                        *                                                                        COMSTAD     8
                                        *         WHERE  *FEN* = FRONT END NAME (SUFFIX) FOR THE TABLE.          COMSTAD     9
                                        *                *RATE* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    10
                                        *                *INIT* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    11
                                        *                *CGN* = CCG NAME (SUFFIX) FOR TABLE.                    COMSTAD    12
                                        *                IF *CGN* IS OMITTED, THE CCG SUFFIX IS SAME AS *FEN*.   COMSTAD    13
                                                                                                                 COMSTAD    14
                                                                                                                 COMSTAD    15
            33  5110000000 X             CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
                          5110000000 X   CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
            40  5110000000 X             APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
                          5110000000 X   IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
            45  5110000000 X             API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
                          5110000000 X   IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)        FC5A128    10
            52  5110000000 X             GL       TABSH  2,,GLT      GENERATED LABELS                            COMSTAD    22
                          5110000000 X   ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     4
                                                                      CCGC
  
            57  5110000000 X             CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
                          5110000000 X   CUT      TABSH  0           CON. BIASES FOR PASS 3                      COMSTAD    25
                                                                                                                 COMSTAD    26
                                         COMSTAD  ENDX                                                           COMSTAD    27
            64                           COMSTAS  CTEXT              DEFINE STATIC TABLES SHARED WITH CCG.       COMSTAS     2
                                                                                                                 COMSTAS     3
                                        *         A STATIC TABLE IS ONE WHICH DOES NOT GROW OR SHRINK IN         COMSTAS     4
                                        *         BRIDGE/PASS 2.                                                 COMSTAS     5
                                                                                                                 COMSTAS     6
            64  5110000000 X             SYM      TABSH  3,50*Z=SYM,,(DECL,EXU)  SYMBOL TABLE                    FC5A128    12
                                        *         (INITIAL LENGTH IS AD HOC BUT SHOULD NOT EXCEED Z.SYMIL)       FC5A128    13
                          5110000000 X   BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
            71  5110000000 X             NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
                          5110000000 X   DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
            76  5110000000 X             ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
                          5110000000 X   FPI      TABSH  1           FORMAL PARAMETER INFORMATION                COMSTAS    13
           103  5110000000 X             VDI      TABSH  1           VARDIM INFORMATION                          COMSTAS    14
                                                                                                                 COMSTAS    15
                                         COMSTAS  ENDX                                                           COMSTAS    16
                                                                                                                 COMSTAB     6
                                         COMSTAB  ENDX                                                           COMSTAB     7
                                                                                                                 CCGC       87
                          5110000000 X   FE       TABSH              FOR PSEUDO TABLE OF PRESERVED TABLES        CCGC       88
                                                                                                                 CCGC       89
           110  0400000000 X                      EQ     =XCGL.RTN   RETURN TO CODE GENERATOR LOADER...          CCGC       90
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     5
        CCG SUPPORT ROUTINES.                                         DPT 
  
                                        **        DPT -  DEFINE PROGRAM TAG.                                     CCGC       93
                                        *                                                                        CCGC       94
                                        *         ENTRY  (X6) = ENTRY FOR *T.GL*, (WC) FORMAT                    CCGC       95
                                                                                                                 CCGC       96
                                                                                                                 CCGC       97
           111  0400400111 +             DPT      SUBR               ...ENTRY/EXIT...                            CCGC       98
           112  5110000000 X                      SA1    =XO$GLT                                                 CCGC       99
                          53613                   SA6    B3+X1                                                   CCGC      100
           113  0400000111 +                      EQ     EXIT.                                                   CCGC      101
  
  
  
  
                                        **        FA=LOL - LIST ONE LINE.                                        CCGC      103
                                        *                                                                        CCGC      104
                                        *         ENTRY  (B6) = LINE BUFFER ADDRESS.                             CCGC      105
                                        *                (B7) = LENGTH OF LINE.                                  CCGC      106
                                        *                (X6) = NUMBER OF PRECEDING BLANK LINES TO LIST.         CCGC      107
                                                                                                                 CCGC      108
                                                                                                                 CCGC      109
           114  0400400114 +             FA=LOL   SUBR   =           ...ENTRY/EXIT...                            CCGC      110
           115  76160                             PLINE  B6,B7,X6                                                CCGC      111
           117  0400000114 +                      EQ     EXIT.       DONE...                                     CCGC      112
  
  
  
  
                                        **        CCG EXIT HERE WHEN ERRORS.                                     CCGC      114
                                        *                                                                        CCGC      115
                                        *         THE SUBROUTINE ENTRY IS FOR CALLING SEQUENCE COMPATIBLITY.     CCGC      116
                                        *         EXITS TO CCG4.                                                 CCGC      117
                                                                                                                 CCGC      118
                                                                                                                 CCGC      119
           120  0400400120 +             HE$ABT   SUBR   =           ...ENTRY                                    CCGC      120
           121  7160000001                        SX6    1                                                       CCGC      121
                          0400000123 +            EQ     HE1                                                     CCGC      122
                                                                                                                 CCGC      123
           122                           HE$CTX   BSSENT 0                                                       CCGC      124
           122                           HE$EPX   BSSENT 0                                                       CCGC      125
           122  7160000002                        SX6    2                                                       CCGC      126
                                                                                                                 CCGC      127
           123  5160000000 X             HE1      SA6    ERR22                                                   CCGC      128
                          0400000033 +            EQ     CCG4                                                    CCGC      129
  
  
  
  
                                        **        HR$LDC - LIST DEAD CODE.                                       CCGC      131
                                        *                                                                        CCGC      132
                                        *         ENTRY  (O$RND) = DEAD LINE NUMBERS (IN BINARY).                CCGC      133
                                        *                                                                        CCGC      134
                                        *         CALLS  CDD, PLINE.                                             CCGC      135
                                                                                                                 CCGC      136
                                                                                                                 CCGC      137
           124  0400400124 +             HR$LDC   SUBR   =           ENTRY/EXIT...                               CCGC      138
           125  7110000150 +                      PLINE  LDCA,5,1                                                CCGC      139
           127  7110000155 +                      PLINE  LDCB,3                                                  CCGC      140
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     6
        CCG SUPPORT ROUTINES.                                         HR$LDC
  
           131  5110000000 X                      SA1    IDENT                                                   CCGC      141
                          5120000000 X            SA2    =XO$RND                                                 CCGC      142
           132  5130000000 X                      SA3    =XL$RND                                                 CCGC      143
                          10711                   BX7    X1                                                      CCGC      144
           133  5252777776                        SA5    X2-1        (A5) -> PREVIOUS ITEM IN TABLE              CCGC      145
                          5170000162 +            SA7    LDCD                                                    CCGC      146
           134  73530                             SX5    X3          (X5) = NUMBER OF ITEMS YET TO LIST          CCGC      147
                     7110000160 +                 MESSAGE LDCC,,RCL  ** DEAD CODE IN PROGNAM **                  CCGC      148
                                                                                                                 CCGC      149
           137  7100777771               LDC2     SX0    -7+1        1 - (ITEMS PER LISTING LINE)                CCGC      150
                          63650                   SB6    X5                                                      CCGC      151
           140  5160000150 +                      SA6    LDCA                                                    CCGC      152
           141  54551                    LDC4     SA5    A5+B1                                                   CCGC      153
                     73150                        SX1    X5                                                      CCGC      154
                          0100000000 X            CALL   CDD         CONVERT DECIMAL DIGITS                      CCGC      155
           142  73001                             SX0    X0+B1                                                   CCGC      156
                     6166777776                   SB6    B6-1                                                    CCGC      157
                               54661              SA6    A6+B1                                                   CCGC      158
           143  0606000144 +                      LE     B6,LDC6     IF TABLE EXHAUSTED                          CCGC      159
                          0330000141 +            MI     X0,LDC4     IF LINE NOT FULL                            CCGC      160
           144  64761                    LDC6     SB7    A6+B1                                                   CCGC      161
                     76560                        SX5    B6                                                      CCGC      162
                          6160000151 +            SB6    LDCA+1                                                  CCGC      163
           145  76160                             PLINE  B6,B7-B6                                                CCGC      164
           147  0315000137 +                      NZ     X5,LDC2     IF TABLE NOT EXHAUSTED                      CCGC      165
                          0400000124 +            EQ     EXIT.                                                   CCGC      166
                                                                                                                 CCGC      167
           150  55552324012405150516     LDCA     DIS    5,  STATEMENTS BEGINNING AT BELOW LINE NUMBERS ARE      CCGC      168
           155  55552516220501031001     LDCB     DIS    3,  UNREACHABLE (DEAD CODE).                            CCGC      169
           160  55555555555555040501     LDCC     DATA   A/ DEAD CODE IN /                                       CCGC      170
           162                     1     LDCD     BSS    1           (IDENT)                                     CCGC      171
                                                                                                                 CCGC      172
                                                                                                                 CCGC      173
                                         T.SYM    EQUEXT O$SYM                                                   CCGC      174
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     7
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.
  
           163                                    CTEXT  COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.              COMFWIN     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFWIN     4
                                                  QUAL   COMFWIN                                                 COMFWIN     5
                                 D_D              BASE   D                                                       COMFWIN     6
  
  
  
  
                                        **        WIN -  WRITE INSTRUCTIONS TO PREBINARY.                        COMFWIN     8
                                        *                                                                        COMFWIN     9
                                        *         ENTRY  (X7) = INSTRUCTION TO TRANSFER                          COMFWIN    10
                                        *                (B2) = EXIT ADDRESS.                                    COMFWIN    11
                                        *                                                                        COMFWIN    12
                                        *         EXIT   INSTRUCTION TRANSFERRED TO PREBINARY                    COMFWIN    13
                                        *                (X7) = DESTROYED.                                       COMFWIN    14
                                        *                                                                        COMFWIN    15
                                        *         USES   A - 1,2,3,6,7                                           COMFWIN    16
                                        *                X - 0,1,2,6,7                                           COMFWIN    17
                                        *                B - 2,3,7                                               COMFWIN    18
                                        *                ------ C A N  N E V E R  D E S T R O Y ------           COMFWIN    19
                                        *         QCG      A0,4,5  X3,4,5  B4,5,6                                COMFWIN    20
                                        *         CCG      A4      X4      B4,5                                  COMFWIN    21
                                                                                                                 FC5A158A   26
                                                                                                                 FC5A158A   27
                                         #RM      IFNE   CP#RM,0                                                 FC5A158A   28
                                                  PURGMAC WRITEO                                                 FC5A158A   29
                                                                                                                 FC5A158A   30
                                        *         REDEFINE WRITEO TO CALL WRITEW UNTIL FA=WTO IS AVAIL.          FC5A158A   31
                                                                                                                 FC5A158A   32
                                         WRITEO   MACRO  FET                                                     FC5A158A   33
                                                  SX7    B2                                                      FC5A158A   34
                                                  SX3    B7                                                      FC5A158A   35
                                                  LX3    18                                                      FC5A158A   36
                                                  BX7    X3+X7                                                   FC5A158A   37
                                                  SX3    B6                                                      FC5A158A   38
                                                  MX1    -18                                                     FC5A158A   39
                                                  BX3    -X1*X3                                                  FC5A158A   40
                                                  LX3    18+18                                                   FC5A158A   41
                                                  BX7    X3+X7                                                   FC5A158A   42
                                                  SA6    =SWTOA                                                  FC5A158A   43
                                                  SA7    =SWTOB                                                  FC5A158A   44
                                                  WRITEW FET,WTOA,1                                              FC5A158A   45
                                                  SA3    WTOB                                                    FC5A158A   46
                                                  SB2    X3                                                      FC5A158A   47
                                                  AX3    18                                                      FC5A158A   48
                                                  SB7    X3                                                      FC5A158A   49
                                                  AX3    18                                                      FC5A158A   50
                                                  SB6    X3                                                      FC5A158A   51
                                         WRITEO   ENDM                                                           FC5A158A   52
                                         #RM      ENDIF                                                          FC5A158A   53
                                                                                                                 COMFWIN    22
                                                                                                                 COMFWIN    23
                                  14     P.COPY   =      12          DEFINE COPY BIT OF PIK=PS TABLE             COMFWIN    24
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     8
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                                                                                                                 COMFWIN    25
                                        *         WTE - ENTRY POINT FOR WRITING 60-BIT WORD TO PREBINARY.        COMFWIN    26
                                                                                                                 COMFWIN    27
           163                           WTE      BSS    0                                                       COMFWIN    28
           163  5170000367 +                      SA7    WINB                                                    COMFWIN    29
                          10633                   BX6    X3                                                      COMFWIN    30
                               43700              MX7    0                                                       COMFWIN    31
           164  54771                             =A7    A7+1                                                    COMFWIN    32
                     5160000371 +                 SA6    WINC                                                    COMFWIN    33
           165  0400000236 +                      EQ     WIN100                                                  COMFWIN    34
                                                                                                                 COMFWIN    35
                                                                                                                 COMFWIN    36
           166                           WIN      BSS    0           ENTRY...                                    COMFWIN    37
                                                                                                                 COMFWIN    38
                                        *         DETERMINE IF PSEUDO INSTRUCTION                                COMFWIN    39
                                                                                                                 COMFWIN    40
           166  10633                             BX6    X3                                                      COMFWIN    41
                     5160000371 +                 SA6    WINC        SAVE X3                                     COMFWIN    42
                               43014              MX0    PB.GHIJL                                                COMFWIN    43
           167  5170000367 +                      SA7    WINB        SAVE (X7)                                   COMFWIN    44
                                                                                                                 COMFWIN    45
                                         .SNAP=W  IFEQ   TEST,ON                                                 COMFWIN    46
                                                  SA3    =XCO.SNAP                                               COMFWIN    47
                                                  LX3    1RW                                                     COMFWIN    48
                                                  PL     X3,WIN1                                                 COMFWIN    49
                                                  =X6    B2                                                      COMFWIN    50
                                                  SA6    A7+1        STORE RETURN ADDRESS IN WINB+1              COMFWIN    51
                                         W=WIN    SNAP   WINB,,2,NONE,,1E5                                       COMFWIN    52
                                         WIN1     BSS    0                                                       COMFWIN    53
                                         .SNAP=W  ENDIF                                                          COMFWIN    54
                                                                                                                 COMFWIN    55
                          76600                   =X6    0                                                       COMFWIN    56
           170  5067000001                        SA6    A7+1        INITIALIZE WINB + 1 TO ZERO                 COMFWIN    57
                          11207                   BX2    X0*X7                                                   COMFWIN    58
                               20214              LX2    PB.GHIJL                                                COMFWIN    59
           171  63320                             SB3    X2          (B3) = GHIJ                                 COMFWIN    60
                     21206                        AX2    PB.GHL      (X2) = GH                                   COMFWIN    61
                          0302000252 +            ZR     X2,PSI      IF A PSEUDO, GO PROCESS IT...               COMFWIN    62
                                                                                                                 COMFWIN    63
                                        *         ADVANCE  *ORG* COUNTER IF NECESSARY                            COMFWIN    64
                                                                                                                 COMFWIN    65
           172  5212000000 X                      SA1    X2+=XPIK=PS GET INSTRUCTION SKELETON                    COMFWIN    66
                                                                                                                 COMFWIN    67
                                        *         ENTRY TO ADVANCE ORG/PARCEL AS DETERMINED BY SIZE INDICATOR    COMFWIN    68
                                        *         (X1) AND TO ISSUE INSTRUCTION.                                 COMFWIN    69
                                                                                                                 COMFWIN    70
           173  5120000000 X             WIN10    SA2    ORG                                                     COMFWIN    71
                          5130000000 X            SA3    PARCEL                                                  COMFWIN    72
           174  7263000001                        SX6    X3+1                                                    COMFWIN    73
                          0321000201 +            PL     X1,WIN40    IF SHORT, PARCEL = PARCEL + 1               COMFWIN    74
           175  6273777774                        SB7    X3-3                                                    COMFWIN    75
                          0470000177 +            ZR     B7,WIN20    IF PARCEL = 3                               COMFWIN    76
           176  7263000002                        SX6    X3+2                                                    COMFWIN    77
                          0400000201 +            EQ     WIN40       PARCEL = PARCEL +2                          COMFWIN    78
                                                                                                                 COMFWIN    79
           177  76611                    WIN20    =X6    2                                                       COMFWIN    80
                     54630                        SA6    A3          PARCEL = 2                                  COMFWIN    81
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE     9
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          73621                   =X6    X2+1                                                    COMFWIN    82
                               54620              SA6    A2          ORG = ORG + 1                               COMFWIN    83
           200  0400000236 +                      EQ     WIN100                                                  COMFWIN    84
                                                                                                                 COMFWIN    85
           201  6276777773               WIN40    SB7    X6-4                                                    COMFWIN    86
                          0570000203 +            NZ     B7,WIN50    IF PARCEL NE 4                              COMFWIN    87
           202  73621                             =X6    X2+1        ORG = ORG + 1                               COMFWIN    88
                     54620                        SA6    A2                                                      COMFWIN    89
                          76600                   =X6    0           PARCEL = 0                                  COMFWIN    90
                                                                                                                 COMFWIN    91
           203  54630                    WIN50    SA6    A3                                                      COMFWIN    92
                     5120000366 +                 SA2    WINA                                                    COMFWIN    93
           204  0331000236 +                      MI     X1,WIN100   IF LONG                                     COMFWIN    94
                                                                                                                 COMFWIN    95
                                        *         15 BIT INSTRUCTION. FIRST WE MUST CHECK IF IT IS A TRANSMIT    COMFWIN    96
                                        *         TO ITSELF, THEN IF IT IS A *10*,*14* OR *47* INSTRUCTION       COMFWIN    97
                                        *         WE MUST COPY THE *J* PART INTO THE *K* PART, THEN PACK         COMFWIN    98
                                        *         IT. IF PACKING IT COMPLETES THE PACKAGE WE OUTPUT IT TO        COMFWIN    99
                                        *         T.PB AND CLEAR *WINA*.                                         COMFWIN   100
                                                                                                                 COMFWIN   101
                          20157                   LX1    59-P.COPY                                               COMFWIN   102
                               43006              MX0    PB.GHL                                                  COMFWIN   103
                                                  HX7    PB.GH                                                   COMFWIN   104
           205  11607                             BX6    X0*X7       EXTRACT (X6) = (PB.GH)                      COMFWIN   105
                                                  LX7    PB.GHL+PB.GHP                                           COMFWIN   106
                     43071                        MX0    -PB.IL                                                  COMFWIN   107
                          20606                   LX6    PB.GHL                                                  COMFWIN   108
           206  0331000214 +                      MI     X1,WIN65    IF *10*, *14* OR *47* INSTRUCTION           COMFWIN   109
                                                                                                                 COMFWIN   110
                                        *         FOR *15*, *16* AND *17* INSTRUCTIONS, INTERCHANGE (J) WITH (K) COMFWIN   111
                                                                                                                 COMFWIN   112
                          6276777760              SB7    X6-17B                                                  COMFWIN   113
           207  0707000227 +                      GT     B7,WIN70    IF (PB.GH) .GT. 17B                         COMFWIN   114
                          6276777762              SB7    X6-15B                                                  COMFWIN   115
           210  0770000227 +                      LT     B7,WIN70    IF (PB.GH) .LT. 15B                         COMFWIN   116
                          20055                   LX0    PB.KP                                                   COMFWIN   117
                               15170              BX1    -X0*X7      (X1) = ORIGINAL (K) PORTION                 COMFWIN   118
           211  11707                             BX7    X0*X7                                                   COMFWIN   119
                     20003                        LX0    -PB.KP+PB.JP                                            COMFWIN   120
                          20103                   LX1    -PB.KP+PB.JP      (X1) = NEW (J)                        COMFWIN   121
                               15670              BX6    -X0*X7      (X6) = ORIGINAL (J) PORTION                 COMFWIN   122
           212  11707                             BX7    X0*X7                                                   COMFWIN   123
                     20671                        LX6    -PB.JP+PB.KP      (X6) = NEW (K)                        COMFWIN   124
                          12171                   BX1    X7+X1                                                   COMFWIN   125
                               12716              BX7    X1+X6                                                   COMFWIN   126
           213  0400000227 +                      EQ     WIN70                                                   COMFWIN   127
                                                                                                                 COMFWIN   128
           214  6276777767               WIN65    SB7    X6-10B                                                  COMFWIN   129
                          0570000225 +            NZ     B7,WIN60    IF NOT TRANSMIT (10IJX) INSTRUCTION         COMFWIN   130
           215  43171                             MX1    -PB.JL                                                  COMFWIN   131
                     20063                        LX0    PB.IP                                                   COMFWIN   132
                          20160                   LX1    PB.JP                                                   COMFWIN   133
                               15070              BX0    -X0*X7      *I* REGISTER                                COMFWIN   134
           216  15171                             BX1    -X1*X7      *J* REGISTER                                COMFWIN   135
                     20071                        LX0    PB.JP-PB.IP                                             COMFWIN   136
                          37601                   IX6    X0-X1                                                   COMFWIN   137
           217  5130000000 X                      SA3    PARCEL                                                  COMFWIN   138
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    10
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                          0316000225 +            NZ     X6,WIN60    IF NOT TRANSMIT TO SELF                     COMFWIN   139
           220  7263777776                        SX6    X3-1                                                    COMFWIN   140
                          5160000000 X            SA6    PARCEL      THIS INST DOESNT COUNT / PARCEL = PARCEL-1  COMFWIN   141
           221  0326000235 +                      PL     X6,WINX     IF CURRENT WORD NOT NOW COMPLETELY EMPTY    COMFWIN   142
                          5130000000 X            SA3    ORG                                                     COMFWIN   143
           222  7160000003                        SX6    3                                                       COMFWIN   144
                          54660                   SA6    A6          PARCEL = 3                                  COMFWIN   145
           223  7263777776                        SX6    X3-1                                                    COMFWIN   146
                          54630                   SA6    A3          ORG = ORG - 1                               COMFWIN   147
           224  0400000235 +                      EQ     WINX                                                    COMFWIN   148
                                                                                                                 COMFWIN   149
                                        *         IT*S A *10*,*14* OR *47* INSTRUCTION, COPY *J* INTO *K* FIELD. COMFWIN   150
                                        *         THIS IS DONE HERE BECAUSE *GEN* IS SIMPLIFIED IF HE            COMFWIN   151
                                        *         DOES NOT HAVE TO COMPLETE THE *K* PORTION OF THESE             COMFWIN   152
                                        *         INSTRUCTIONS.                                                  COMFWIN   153
                                                                                                                 COMFWIN   154
           225  43071                    WIN60    MX0    -PB.JL                                                  COMFWIN   155
                     46000                        NO                                                             COMFWIN   156
                          20060                   LX0    PB.JP                                                   COMFWIN   157
                               46000              NO                                                             COMFWIN   158
           226  15170                             BX1    -X0*X7                                                  COMFWIN   159
                     46000                        NO                                                             COMFWIN   160
                          20171                   LX1    PB.KP-PB.JP                                             COMFWIN   161
                               12771              BX7    X7+X1                                                   COMFWIN   162
                                                                                                                 COMFWIN   163
                                        *         NOW WE MAY PACK IT AND OUTPUT THE PACKAGE TO T.PB IF FULL.     COMFWIN   164
                                                                                                                 COMFWIN   165
           227  6272777776               WIN70    =B7    X2-1                                                    COMFWIN   166
                          0770000234 +            MI     B7,WIN80    IF NO PACKAGE PRESENT                       COMFWIN   167
           230  20755                             LX7    -15         POSITION INSTRUCTION                        COMFWIN   168
                     0470000234 +                 ZR     B7,WIN80    IF ONE PACKAGE PRESENT                      COMFWIN   169
                               20755              LX7    -15         RE-POSITION INSTRUCTION                     COMFWIN   170
           231  7100077777                        SX0    77777B                                                  COMFWIN   171
                          12727                   BX7    X2+X7       INSERT THIRD PACKAGE                        COMFWIN   172
                               43600              MX6    0                                                       COMFWIN   173
           232  12707                             BX7    X0+X7       INSERT LOW ORDER BITS                       COMFWIN   174
                     54620                        SA6    A2          CLEAR WINA                                  COMFWIN   175
                          5170000367 +            SA7    WINB        SAVE INSTRUCTION                            COMFWIN   176
           233  0400000236 +                      EQ     WINW        OUTPUT SAVED INSTRUCTIONS                   COMFWIN   177
                                                                                                                 COMFWIN   178
           234  12727                    WIN80    BX7    X2+X7       ADD NEW PACKAGE                             COMFWIN   179
                     76010                        =X0    1                                                       COMFWIN   180
                          36707                   IX7    X0+X7       INCREMENT PACKAGE COUNT                     COMFWIN   181
                               54720              SA7    A2          STORE IN WINA                               COMFWIN   182
                                                                                                                 COMFWIN   183
           235  5130000371 +             WINX     SA3    WINC        RESTORE (X3)                                COMFWIN   184
                          0222000000              JP     B2          RETURN..                                    COMFWIN   185
                                                                                                                 COMFWIN   186
                                        *         ENTRY HERE FOR LONG INSTRUCTION OR MOST PSEUDOS.               COMFWIN   187
                                        *         OUTPUT ANY PACKED 15-BIT INSRUCTION THAT ARE WAITING.          COMFWIN   188
                                        *         OUTPUT CURRENT INSTRUCTION (FROM WINB). FORCE UPPER            COMFWIN   189
                                        *         IF WINB+1 IS NONZERO. RETURN.                                  COMFWIN   190
                                                                                                                 COMFWIN   191
           236                           WIN100   BSS    0           **** TEMP ****                              COMFWIN   192
           236                           WINW     BSS    0           ...WRITE PB                                 COMFWIN   193
           236  5120000366 +                      SA2    WINA                                                    COMFWIN   194
                          64740                   SB7    A4          SAVE (A4,X4)                                COMFWIN   195
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    11
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    WIN                 COMFWIN 
  
                               10644              BX6    X4                                                      COMFWIN   196
           237  5160000372 +                      SA6    WIND                                                    COMFWIN   197
                          0302000243 +            ZR     X2,WINW7    IF NO PACKED SHORT INSTRUCTIONS WAITING     COMFWIN   198
           240  5130000366 +                      SA3    WINA                                                    COMFWIN   199
                          43055                   MX0    -PB.INSTL                                               COMFWIN   200
                               76700              SX7    B0          INDICATE NO ACCUMULATED SHORT INSTRUCTIONS  COMFWIN   201
           241  16630                             BX6    -X0+X3      MERGE FLAG WITH PACKED INSTRUCTIONS         COMFWIN   202
                     54720                        SA7    A2                                                      COMFWIN   203
                          5110000002 X            WRITEO =XF.PB      WRITE ONE WORD TO PREBINARY FILE            COMFWIN   204
           243  5130000367 +             WINW7    SA3    WINB                                                    COMFWIN   205
                          10633                   BX6    X3                                                      COMFWIN   206
           244  5110000002 X                      WRITEO F.PB        WRITE ONE WORD (CURRENT INSTRUCTION)        COMFWIN   207
           245  5110000372 +                      SA1    WIND                                                    COMFWIN   208
                          56470                   SA4    B7          RESTORE (A4, X4)                            COMFWIN   209
                               10411              BX4    X1                                                      COMFWIN   210
           246  5110000370 +             WINW8    SA1    WINB+1                                                  COMFWIN   211
                          0301000235 +            ZR     X1,WINX     IF NO FORCE UPPER AFTER REQUESTED           COMFWIN   212
           247  5130000000 X                      SA3    PARCEL                                                  COMFWIN   213
                          5120000000 X            SA2    ORG                                                     COMFWIN   214
           250  0303000235 +                      ZR     X3,WINX     IF ALREADY UPPER                            COMFWIN   215
                          73621                   SX6    X2+B1                                                   COMFWIN   216
                               43700              MX7    0                                                       COMFWIN   217
           251  54620                             SA6    A2          ADVANCE ORIGIN COUNTER                      COMFWIN   218
                     54730                        SA7    A3          INDICATE EMPTY WORD                         COMFWIN   219
                          0400000235 +            EQ     WINX                                                    COMFWIN   220
  
  
  
  
                                        **        PSI - PROCESS PSEUDO INSTRUCTION.                              COMFWIN   222
                                        *                                                                        COMFWIN   223
                                        *         USED IN CONJUNCTION WITH THE PSEUDO INSTRUCTION JUMP TABLES    COMFWIN   224
                                        *         AT *WINOC* AND *WINI*.  THE DECISION WHETHER TO FORCE UPPER    COMFWIN   225
                                        *         BEFORE OR AFTER THE INSTRUCTION IS MADE AT THIS POINT.         COMFWIN   226
                                        *                                                                        COMFWIN   227
                                        *         ENTRY  (X2) = GH  (ALWAYS 0)                                   COMFWIN   228
                                        *                (X7) = INSTRUCTION                                      COMFWIN   229
                                        *                (WINB) = (X7)                                           COMFWIN   230
                                        *                (B3) = GHIJ                                             COMFWIN   231
                                        *                                                                        COMFWIN   232
                                        *         EXIT   (X1) .LT. 0, THEN LONG INSTRUCTION                      COMFWIN   233
                                        *                     .GE. 0, THEN SHORT INSTRUCTION                     COMFWIN   234
                                        *                (X2) = GH  (SOMETIMES)                                  COMFWIN   235
                                        *                (B3) = GHIJ  (USUALLY, BUT NOT ALWAYS)                  COMFWIN   236
                                        *                (WINB) = INSTRUCTION                                    COMFWIN   237
                                        *                (WINB+1) = MI IF FORCE UPPER AFTER, ELSE 0              COMFWIN   238
                                                                                                                 COMFWIN   239
                                                                                                                 COMFWIN   240
           252                           PSI      BSS                ...ENTRY                                    COMFWIN   241
                                                                                                                 COMFWIN   242
                                                  IFEQ   TEST,ON,2   IF TEST MODE                                COMFWIN   243
                                                  SB7    Z.PSUD      LENGTH OF PSEUDO TABLE                      COMFWIN   244
                                                  GE     B3,B7,"BLOWUP"    IF ILLEGAL PSUEDO                     COMFWIN   245
                                                                                                                 COMFWIN   246
           252  5110000365 +                      SA1    PSTAB       (X1) = FWA OF OC$XXX OR I.XXX JUMP TABLE    COMFWIN   247
                          53313                   SA3    X1+B3                                                   COMFWIN   248
                               63730              SB7    X3          (B7) = ADDRESS OF PSEUDO PROCESSOR          COMFWIN   249
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    12
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           253  0277000000                        JP     B7          EXIT TO PSEUDO PROCESSOR...                 COMFWIN   250
                                                                                                                 COMFWIN   251
                                                                                                                 COMFWIN   252
                                        **        PSEUDO INSTRUCTION PROCESSORS.                                 COMFWIN   253
                                                                                                                 COMFWIN   254
                                                                                                                 COMFWIN   255
           254                           WI=BOS   BSS    0           BOS - BEGINNING OF STATEMENT.               COMFWIN   256
                                         .CG      IFEQ   .CG,.FAST                                               FC50452     6
                                                  SA2    CO.DBID                                                 FC50452     7
                                                  SA3    CO.DBST                                                 FC50545     9
                                                  BX2    X2+X3                                                   FC50545    10
                                                  ZR     X2,WIN100   IF 5700 TABLE NOT REQUIRED                  FC50452     8
                                                  RJ     BNW         BEGIN NEW WORD                              FC50452     9
                                         .CG      ENDIF                                                          FC50452    10
           254  0400000236 +                      EQ     WIN100                                                  COMFWIN   257
                                                                                                                 COMFWIN   258
                                                                                                                 COMFWIN   259
           255                           WO=IDNT  BSS    0           IDENT - BEGIN OBJECT PROGRAM                COMFWIN   260
           255  76600                             =X6    0                                                       COMFWIN   261
                     5160000000 X                 SA6    =XORG       INIT  ORG  TO  0                            COMFWIN   262
           256  5160000000 X                      SA6    =XCBI       INIT  CBI  TO  0                            COMFWIN   263
                          5160000000 X            SA6    PARCEL                                                  COMFWIN   264
           257  5160000366 +                      SA6    WINA        INIT PACKED 15-BIT INSTRUCTIONS             FC50860     9
                          0400000236 +            EQ     WIN100                                                  COMFWIN   265
                                                                                                                 COMFWIN   266
                                                                                                                 COMFWIN   267
           260                           WI=LD0   BSS    0           LOAD INSTRUCTION FOR LEVEL 0                COMFWIN   268
           260                           WI=ST0   BSS    0           STORE INSTRUCTION FOR LEVEL 0               COMFWIN   269
           260  5130000000 X                      SA3    PARCEL                                                  COMFWIN   270
                          5120000000 X            SA2    ORG                                                     COMFWIN   271
           261  73631                             =X6    X3+1                                                    COMFWIN   272
                     77101                        =X1    -1          INDICATE LONG                               COMFWIN   273
                          0400000201 +            EQ     WIN40       COUNT AS SHORT INSTRUCTION                  COMFWIN   274
                                                                                                                 COMFWIN   275
           262                           WO=ADDR  BSS    0           FILE VECTOR POINTER WORD                    COMFWIN   276
           262                           WI=CPL   BSS    0           CPL LIST ITEM                               COMFWIN   277
           262                           WO=PLIM  BSS    0           PRINT LIMIT WORD                            FC50049     7
           262                           WI=SUBI  BSS    0           SUB INDEX                                   COMFWIN   278
           262                           WI=SB0I  BSS    0           SUB0 INDEX                                  COMFWIN   279
           262                           WI=ZERO  BSS    0           ZERO WORD                                   COMFWIN   280
           262                           WO=FVEC  BSS    0           FILE POINTER WORD                           COMFWIN   281
           262  43100                             MX1    0                                                       COMFWIN   282
                     76210                        SX2    B1          RESERVE SPACE FOR WORD                      COMFWIN   283
                          0100000373 +            RJ     DLT         ADVANCE ORIGIN COUNTER                      COMFWIN   284
           263  0400000236 +                      EQ     WIN100                                                  COMFWIN   285
                                                                                                                 COMFWIN   286
                                                                                                                 COMFWIN   287
           264                           WO=TRAC  BSS    0           TRAC - GENERATE TRACEBACK WORDS.            COMFWIN   288
           264  5130000000 X                      SA3    =XS=TRACE                                               COMFWIN   289
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   290
           265  7120000001                        SX2    1                                                       COMFWIN   291
                          0100000373 +            RJ     DLT         DEFINE LABEL TAG (TRACE.  BSS 1)            COMFWIN   292
           266  5130000000 X                      SA3    =XS=TA0                                                 COMFWIN   293
                          73130                   =X1    X3+K.SYM*K=PFX                                          COMFWIN   294
           267  7120000001                        SX2    1                                                       COMFWIN   295
                          0100000373 +            RJ     DLT         DEFINE LABEL TAG (TEMPA0.  BSS 1)           COMFWIN   296
           270  0400000236 +                      EQ     WIN100                                                  COMFWIN   297
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    13
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
                                                                                                                 COMFWIN   298
                                                                                                                 COMFWIN   299
           271                           WO=CON   BSS                *READ CON TABLE PSEUDO                      COMFWIN   300
           271  0400000236 +                      EQ     WIN100                                                  COMFWIN   301
                                                                                                                 COMFWIN   302
                                                                                                                 COMFWIN   303
           272                           WI=USE   BSS    0           *USE* PSEUDO INSTRUCTION                    COMFWIN   304
           272                           WO=USE   BSS                                                            COMFWIN   305
           272  0100000441 +                      RJ     PUSE        EXCHANGE PARCEL AND ORG (BLEN) COUNTERS     COMFWIN   306
           273  0400000236 +                      EQ     WIN100                                                  COMFWIN   307
                                                                                                                 COMFWIN   308
                                                                                                                 COMFWIN   309
           274                           WI=OTR   BSS    0           OTR INSTRUCTION (6102B)                     COMFWIN   310
           274  5130000000 X                      SA3    ORG                                                     COMFWIN   311
                          5120000000 X            SA2    PARCEL                                                  COMFWIN   312
           275  76611                             =X6    2                                                       COMFWIN   313
                     54620                        SA6    A2          PARCEL = 2                                  COMFWIN   314
                          73631                   =X6    X3+1                                                    COMFWIN   315
           276  0302000236 +                      ZR     X2,WIN100   IF PARCEL WAS 0                             COMFWIN   316
                          54630                   SA6    A3          ORG = ORG + 1                               COMFWIN   317
           277  0400000236 +                      EQ     WIN100                                                  COMFWIN   318
                                                                                                                 COMFWIN   319
           300                           WI=RJ6   BSS    0           RJT INSTRUCTION (0100B)                     COMFWIN   320
           300  5130000000 X                      SA3    ORG                                                     COMFWIN   321
                          73631                   =X6    X3+1                                                    COMFWIN   322
           301  5160000370 +                      SA6    WINB+1      FORCE UPPER AFTER                           COMFWIN   323
                          5120000367 +            SA2    WINB        RJ6 INSTRUCTION                             FC50264     8
           302  54630                             SA6    A3          ORG = ORG + 1                               COMFWIN   324
                     43052                        MX0    -PB.BIASL                                               FC50264     9
                          20260                   LX2    -PB.BIASP                                               FC50264    10
                               15020              BX0    -X0*X2      EXTRACT LINE/SEQUENCE NUMBER                FC50264    11
           303  7200770001                        SX0    X0-7776B                                                FC50264    12
                          0330000236 +            MI     X0,WIN100   IF LINE/SEQUENCE NUMBER .LT. 4095           FC50264    13
           304  73661                             =X6    X6+1                                                    FC50264    14
                     54660                        SA6    A6          INCREMENT ORG COUNTER                       FC50264    15
                          0400000236 +            EQ     WIN100                                                  COMFWIN   325
                                                                                                                 COMFWIN   326
           305                           WI=UJP   BSS    0           EQ INSTRUCTION (0400B)                      COMFWIN   327
           305                           WI=JPI   BSS    0           JP INSTRUCTION (0200B)                      COMFWIN   328
           305                           WI=RJ3   BSS    0           RJ INSTRUCTION (0100B)                      COMFWIN   329
           305  77601                             =X6    -B1                                                     COMFWIN   330
                     5160000370 +                 SA6    WINB+1      SET FLAG TO FORCE UPPER AFTER               COMFWIN   331
                               10166              =X1    X6          LONG INSTRUCTION                            COMFWIN   332
           306  0400000173 +                      EQ     WIN10                                                   COMFWIN   333
                                                                                                                 COMFWIN   334
           307                           WI=BSS   BSS    0           BSS, BSSZ PSEUDO INSTRUCTION                COMFWIN   335
           307                           WO=BSS   BSS    0                                                       COMFWIN   336
           307                           WO=BSSZ  BSS                                                            COMFWIN   337
           307  10077                             BX0    X7                                                      FC50001     5
                     0100000000 X                 RJ     BNW         BEGIN NEW WORD                              COMFWIN   338
           310  10300                             BX3    X0                                                      FC50001     6
                     43052                        MX0    -PB.TAGL                                                COMFWIN   339
                          20336                   LX3    -PB.TAGP                                                COMFWIN   341
                               15130              BX1    -X0*X3                                                  COMFWIN   342
           311  20322                             LX3    PB.TAGP-PB.BIASP                                        COMFWIN   343
                     43052                        MX0    -PB.BIASL                                               COMFWIN   344
                          15230                   BX2    -X0*X3                                                  COMFWIN   345
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    14
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSI                 COMFWIN 
  
           312  0100000373 +                      RJ     DLT         DEFINE LABEL AND RESERVE BLOCK STORAGE      COMFWIN   346
           313  0400000236 +                      EQ     WIN100                                                  COMFWIN   347
                                                                                                                 COMFWIN   348
                                                                                                                 COMFWIN   349
           314                           WO=END   BSS    0                                                       COMFWIN   350
           314  76700                             =X7    0           FAKE AN INSTRUCTION TO CALL PUSE            COMFWIN   351
                     0100000441 +                 RJ     PUSE        STORE PARCEL AND ORG COUNT IN T.LBT         COMFWIN   352
           315  0400000236 +                      EQ     WIN100                                                  COMFWIN   353
                                                                                                                 COMFWIN   354
                                                                                                                 COMFWIN   355
                                        *         THE FOLLOWING PSEUDOS NEED NO PASS 2 PROCESSING.               COMFWIN   356
                                                                                                                 COMFWIN   357
                                                                                                                 COMFWIN   358
           316                           WI=LOO   BSS    0           LOO - TURN ON /OFF OBJECT LISTING           COMFWIN   359
           316                           WO=LOO   BSS    0                                                       COMFWIN   360
           316                           WI=EMI   BSS    0           EMI - END MACHINE INSTRUCTIONS.             COMFWIN   361
           316                           WI=BCI   BSS                BCI - BEGIN CCG TYPE INSTRUCTION            COMFWIN   362
           316                           WI=ECI   BSS                ECI - END CCG TYPE INSTRUCTION              COMFWIN   363
           316                           WO=BMI   BSS    0           BMI - BEGIN MACHINE INSTRUCTIONS.           COMFWIN   364
           316                           WO=NLST  BSS                *READ NAMELIST TABLE PSEUDO                 COMFWIN   366
           316                           WO=APL   BSS                APLIST                                      COMFWIN   367
           316                           WO=IOM   BSS                PROCESS I/O APLISTS                         COMFWIN   368
           316                           WO=FMT   BSS                FORMAT                                      COMFWIN   369
           316                           WO=EQUN  BSS                NEGATIVE RELOCATION                         COMFWIN   370
           316                           WO=LCC   BSS                LOADER CONTROL DIRECTIVES                   COMFWIN   371
           316  0400000236 +                      EQ     WIN100                                                  COMFWIN   374
           317                           WI=DATA  BSS    0                                                       FC50001     7
           317  0100000000 X                      RJ     BNW         FORCE UPPER                                 FC50001     8
           320  0400000236 +                      EQ     WIN100                                                  FC50001     9
  
  
  
  
           321                           WO=CMNT  BSS    0                                                       COMFWIN   386
                                        *         MANIPULATION.                                                  COMFWIN   387
                                                                                                                 COMFWIN   388
                                                                                                                 COMFWIN   389
                                                  PURGMAC PSUD,IPSUD                                             COMFWIN   390
                                                                                                                 COMFWIN   391
                                         PSUD     MACRO  PSN                                                     COMFWIN   392
                                                  VFD    42/0,18/WO=PSN                                          COMFWIN   393
                                         PSUD     ENDM                                                           COMFWIN   394
                                                                                                                 COMFWIN   395
                                         IPSUD    MACRO  PSN                                                     COMFWIN   396
                                                  VFD    42/0,18/WI=PSN                                          COMFWIN   397
                                         IPSUD    ENDM                                                           COMFWIN   398
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    15
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    PSUD                COMFWIN 
  
                                        *         PSEUDO INSTRUCTION DEFINITIONS ARE GIVEN BELOW.                COMSPSU     3
                                                                                                                 COMSPSU     4
      L      0                                    LOC    0                                                       COMSPSU     5
                                 321 +   OCPSUD   EQU    *O                                                      COMSPSU     6
      L      0  00000000000000000262 +            PSUD   ADDR        FCL INIT. ROUTINE APLIST WORD               COMSPSU     7
      L      1  00000000000000000307 +            PSUD   BSS                                                     COMSPSU     8
      L      2  00000000000000000316 +            PSUD   APL         APLIST                                      COMSPSU     9
      L      3  00000000000000000316 +            PSUD   BMI         BEGIN *TS* TYPE INSTRUCTIONS                COMSPSU    10
      L      4  00000000000000000271 +            PSUD   CON         *READ* CONSTANT TABLE PSEUDO                COMSPSU    14
      L      5  00000000000000000314 +            PSUD   END                                                     COMSPSU    17
      L      6  00000000000000000316 +            PSUD   EQUN        NEGATIVE RELOCATION MACRO                   COMSPSU    18
      L      7  00000000000000000316 +            PSUD   FMT         FORMAT/FMT MACRO                            COMSPSU    19
      L     10  00000000000000000262 +            PSUD   FVEC        FILE POINTER WORD                           COMSPSU    20
      L     11  00000000000000000255 +            PSUD   IDNT                                                    COMSPSU    22
      L     12  00000000000000000316 +            PSUD   IOM                                                     COMSPSU    23
      L     13  00000000000000000316 +            PSUD   LCC                                                     COMSPSU    24
      L     14  00000000000000000316 +            PSUD   LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    25
      L     15  00000000000000000316 +            PSUD   NLST        *READ* NAMELIST TABLE PSEUDO                COMSPSU    26
      L     16  00000000000000000262 +            PSUD   PLIM                                                    FC50049     6
      L     17  00000000000000000264 +            PSUD   TRAC        GENERATE (TRACE.) WORD                      COMSPSU    30
      L     20  00000000000000000272 +            PSUD   USE                                                     COMSPSU    31
      L                                                                                                          COMSPSU    32
                                                                                                                 COMSPSU    33
                                 342 +   IPSUD    EQU    *O                                                      COMSPSU    34
      L     21  00000000000000000316 +            IPSUD  BCI         BEGIN CCG TYPE INSTRUCTION                  COMSPSU    35
      L     22  00000000000000000254 +            IPSUD  BOS         BEGINNING OF STATEMENT                      COMSPSU    36
      L     23  00000000000000000262 +            IPSUD  CPL         *CPL.* CONTROL TABLE ENTRY                  COMSPSU    37
      L     24  00000000000000000307 +            IPSUD  BSS         GENERATE A BSS                              COMSPSU    38
      L     25  00000000000000000317 +            IPSUD  DATA        DATA SUB-TABLE HEADER                       COMSPSU    39
      L     26  00000000000000000316 +            IPSUD  ECI         END CCG TYPE INSTRUCTION                    COMSPSU    40
      L     27  00000000000000000316 +            IPSUD  EMI         END  *TS*  TYPE INSTRUCTIONS                COMSPSU    41
      L     30  00000000000000000305 +            IPSUD  JPI         GENERATE INDEXED JUMP                       COMSPSU    42
      L     31  00000000000000000260 +            IPSUD  LD0         LOAD INSTRUCTION FOR LEVEL 0                COMSPSU    43
      L     32  00000000000000000260 +            IPSUD  ST0         LEVEL 0 STORE -- MUST FOLLOW LD0            COMSPSU    44
      L     33  00000000000000000316 +            IPSUD  LOO         TURN ON /OFF OBJECT LISTING                 COMSPSU    45
      L     34  00000000000000000274 +            IPSUD  OTR         GENERATE  SB0    B0 + LINENUM               COMSPSU    46
      L     35  00000000000000000305 +            IPSUD  RJ3         GENERATE  RJ                                COMSPSU    47
      L     36  00000000000000000300 +            IPSUD  RJ6         GENERATE  RJT                               COMSPSU    48
      L     37  00000000000000000262 +            IPSUD  SUBI        CREATE A SUB INDEX WORD                     COMSPSU    49
      L     40  00000000000000000262 +            IPSUD  SB0I        CREATE A SUB0 INDEX WORD                    COMSPSU    50
      L     41  00000000000000000305 +            IPSUD  UJP         GENERATE  EQ                                COMSPSU    51
      L     42  00000000000000000272 +            IPSUD  USE         SWITCH ORGIN TO NEW LOCAL BLOCK             COMSPSU    52
      L     43  00000000000000000262 +            IPSUD  ZERO        OUTPUT A ZERO WORD                          COMSPSU    53
      L                                                                                                          COMSPSU    54
                                  44     Z.PSUD   =      *L                                                      COMSPSU    55
                                  33              ERRMI  77B-*L      TOO MANY PSEUDOS                            COMSPSU    56
           365                                    LOC    *O                                                      COMSPSU    57
                                                                                                                 COMSPSU    58
                                        * PSU     ENDX                                                           COMSPSU    59
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    16
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    SAVE                COMFWIN 
  
                                        *         WIN SAVE AREA.                                                 COMFWIN   401
                                                                                                                 COMFWIN   402
           365  00000000000000000000     PSTAB    CON    0           FWA OF OC$XXX OR I.XXX TABLE                COMFWIN   403
           366  00000000000000000000     WINA     CON    0           STORAGE FOR PACKED 15 BIT INSTRUCTIONS      COMFWIN   404
           367  00000000000000000000     WINB     CON    0           TEMP STORE OF INSTRUCTION                   COMFWIN   405
                                                                     ** WINB MUST BE AT WINA+1 **                COMFWIN   406
           370  00000000000000000000              CON    0           MINUS IF FORCE UPPER AFTER, ELSE 0          COMFWIN   407
           371  00000000000000000000     WINC     CON    0           SAVE OF X3                                  COMFWIN   408
           372                     1     WIND     BSS    1           SAVE OF (X4)                                COMFWIN   409
  
  
  
  
                                         .CG      IFEQ   .CG,.FAST                                               FC50001    10
                                        **        BNW - BEGIN NEW WORD.                                          COMFWIN   411
                                        *                                                                        COMFWIN   412
                                        *         EXIT   (PARCEL) = 0                                            COMFWIN   413
                                        *                                                                        COMFWIN   414
                                        *         USES   X2,X3,A6  X2,X3,X6.                                     COMFWIN   415
                                                                                                                 COMFWIN   416
                                                                                                                 COMFWIN   417
                                         BNW      SUBR   0           ENTRY/EXIT...                               COMFWIN   418
                                                  SA2    PARCEL                                                  COMFWIN   419
                                                  SA3    ORG                                                     COMFWIN   420
                                                  ZR     X2,EXIT.    IF ALREADY AT TOP OF WORD                   COMFWIN   421
                                                  MX6    0                                                       COMFWIN   422
                                                  SA6    A2          (PARCEL) = 0                                COMFWIN   423
                                                  SX6    X3+B1                                                   COMFWIN   424
                                                  SA6    A3          ADVANCE ORIGIN COUNTER                      COMFWIN   425
                                                  EQ     EXIT.                                                   COMFWIN   426
                                                                                                                 FC50001    11
                                         .CG      ELSE                                                           FC50001    12
                                                                                                                 FC50001    13
                                                  EXT    FSU#        IN CGTM                                     FC50001    14
                                   0 X   BNW      EQU    FSU#                                                    FC50001    15
                                         .CG      ENDIF                                                          FC50001    16
  
  
  
  
                                        **        DLT - DEFINE LABEL TAG.                                        COMFWIN   428
                                        *                                                                        COMFWIN   429
                                        *         ENTRY  (X1) = TAG TO DEFINE.                                   COMFWIN   430
                                        *                (X2) = NUMBER OF WORDS TO RESERVE.                      COMFWIN   431
                                        *                (ORG, CBI) = SET AS DESIRED FOR DEFINITION.             COMFWIN   432
                                        *                (PARCEL)  ALREADY FORCED UPPER.                         COMFWIN   433
                                        *                                                                        COMFWIN   434
                                        *         EXIT   (ORG) ADVANCED.                                         COMFWIN   435
                                        *                                                                        COMFWIN   436
                                        *         CALLS  DPT                                                     COMFWIN   437
                                        *                                                                        COMFWIN   438
                                        *         CANNOT DESTROY  A0,4,5  X4,5  B2,4,5,6                         COMFWIN   439
                                                                                                                 COMFWIN   440
                                                                                                                 COMFWIN   441
           373  0400400373 +             DLT      SUBR   0           ENTRY/EXIT...                               COMFWIN   442
           374  5130000000 X                      SA3    ORG                                                     COMFWIN   443
                          36632                   IX6    X3+X2       ADVANCE ORIGIN COUNTER                      COMFWIN   444
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    17
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    DLT                 COMFWIN 
  
                               54630              SA6    A3                                                      COMFWIN   445
           375  0301000373 +                      ZR     X1,EXIT.    IF NO TAG                                   COMFWIN   446
                          43056                   MX0    -PB.ORDL                                                COMFWIN   447
                                                  LX1    PB.TAGP-PB.ORDP                                         COMFWIN   448
                               15610              BX6    -X0*X1      ORD[TAG]                                    COMFWIN   449
           376  21117                             AX1    -PB.ORDP+PB.PFXP  ISOLATE (X1) = PFX[TAG]               COMFWIN   450
                                  17              ERRMI  PB.PFXP-PB.ORDP   CODE ASSUMES [PFX] TO LEFT OF [ORD]   COMFWIN   451
                     5120000000 X                 SA2    CBI                                                     COMFWIN   452
                               63760              SB7    X6          (B7) = ORDINAL OF TAG                       COMFWIN   453
           377  20260                             LX2    WC.RBP                                                  COMFWIN   454
                     76610                        =X6    ML.PROG                                                 COMFWIN   455
                                                  LX3    WC.RAP                                                  COMFWIN   456
                          63310                   SB3    X1          (B3) = TAG PREFIX                           COMFWIN   457
                               20672              LX6    WC.RLP                                                  COMFWIN   458
           400  12223                             BX2    X2+X3                                                   COMFWIN   459
                     12626                        BX6    X2+X6       FORM ADDRESS DEFINITION WORD                COMFWIN   460
                          0233000401 +            JP     B3+DLTA     PROCESS ACCORDING TO TAG PREFIX             COMFWIN   461
                                                                                                                 COMFWIN   462
           401                           DLTA     BSS    0           TAG TYPE JUMP VECTOR                        COMFWIN   463
      L      0                                    LOC    0                                                       COMFWIN   464
      L      0  5110000000 X             K=SYM    SA1    =XT.SYM                                                 COMFWIN   465
                          0400000406 +            EQ     DLT2                                                    COMFWIN   466
      L      1  0400000411 +             K=GL     EQ     DLT4                                                    COMFWIN   467
      L      2  0400400403 +             K=AP     EQ     "BLOWUP"                                                COMFWIN   468
      L      3  0400400404 +             K=IO     EQ     "BLOWUP"                                                COMFWIN   469
      L      4  0400400405 +             K=LC     EQ     "BLOWUP"                                                COMFWIN   470
      L      5                           K=END    BSS    0           VERIFY VECTOR SYNCHRONIZATION               COMFWIN   471
           406                                    LOC    *O                                                      COMFWIN   472
                                                                                                                 COMFWIN   473
                                                                                                                 COMFWIN   474
           406                           DLT2     BSS                ... TAG IS IN SYMBOL TABLE                  COMFWIN   475
           406  76277                             SX2    B7+B7                                                   COMFWIN   476
                     73027                        SX0    X2+B7       (X0) = INDEX = L.SYM * SYMORD               COMFWIN   477
                                   0              ERRNZ  3-Z=SYM                                                 COMFWIN   478
                          6231000002              =B3    X1+WC.W                                                 COMFWIN   479
           407  53203                             SA2    X0+B3       FETCH SYMTAB ADDRESS WORD                   COMFWIN   480
                                                                                                                 COMFWIN   481
                                         .TEST    IFEQ   TEST,ON                                                 COMFWIN   482
                                                  CLAS=  X3,WC,(RL,RB,RA)                                        COMFWIN   483
                                                  BX1    X3*X2                                                   COMFWIN   484
                                                  NZ     X1,"BLOWUP" IF PREVIOUSLY ASSIGNED ADDRESS              COMFWIN   485
                                         .TEST    ENDIF                                                          COMFWIN   486
                                                                                                                 COMFWIN   487
                     12626                        BX6    X2+X6       SET ADDRESS FIELDS                          COMFWIN   488
                          54620                   SA6    A2                                                      COMFWIN   489
           410  0400000373 +                      EQ     EXIT.                                                   COMFWIN   490
                                                                                                                 COMFWIN   491
                                                                                                                 COMFWIN   492
           411                           DLT4     BSS                ... TAG IS GENERATED LABEL                  COMFWIN   493
           411  66370                             SB3    B7                                                      COMFWIN   494
                     0100000111 +                 CALL   DPT         DEFINE PROGRAM TAG                          COMFWIN   495
           412  0400000373 +                      EQ     EXIT.                                                   COMFWIN   496
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    18
        COMFWIN - WRITE INSTRUCTIONS TO PREBINARY.                    COMFWIN             COMFWIN 
  
                                         QUAL$    IF     -DEF,QUAL$,1                                            COMFWIN   498
                                                  QUAL   *                                                       COMFWIN   499
                                 166 +   WIN      EQU    /COMFWIN/WIN                                            COMFWIN   500
                                 163 +   WTE      EQU    /COMFWIN/WTE                                            COMFWIN   501
                                 365 +   PSTAB    EQU    /COMFWIN/PSTAB                                          COMFWIN   502
                                 342 +   WINI     EQU    /COMFWIN/IPSUD                                          COMFWIN   503
                                 321 +   WINOC    EQU    /COMFWIN/OCPSUD                                         COMFWIN   504
                                         QUAL$    ENDIF                                                          COMFWIN   505
                                         COMFWIN  ENDX                                                           COMFWIN   506
                                                  ENTRY  WIN                                                     CCGC      176
                                                                                                                 CCGC      177
                                         ORG      EQUEXT CC$BLEN                                                 CCGC      178
                                         PARCEL   EQUEXT CC$PC                                                   CCGC      179
                                                  ENTRY  WTE                                                     CCGC      180
                                         CBI      EQUEXT CC$LBO                                                  CCGC      181
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    19
        COMFITS - ISSUE TEMP STORAGE.                                 ITS 
  
           412                           ITS      CTEXT  COMFITS - ISSUE TEMP STORAGE.                           COMFITS     2
                                                                                                                 COMFITS     3
                                                                                                                 COMFITS     4
                                                  IF     -DEF,QUAL$,1                                            COMFITS     5
                                                  QUAL   COMFITS                                                 COMFITS     6
                                 D_D              BASE   *                                                       COMFITS     7
  
  
  
  
                                        **        ITS - ISSUE TEMP STORAGE.                                      COMFITS     9
                                                                                                                 COMFITS    10
                                                                                                                 COMFITS    11
           413  0400400413 +             ITS      SUBR   0           ENTRY/EXIT...                               COMFITS    12
           414  7110000000 X                      ISUSE$ TEM         USE TEM.                                    COMFITS    13
                                                                                                                 COMFITS    14
           417  6150000432 +                      SB5    ITSA                                                    COMFITS    15
           420  56150                    ITS2     SA1    B5                                                      COMFITS    16
                     0301000425 +                 ZR     X1,ITS4     IF NO MORE TEMPS TO ISSUE                   COMFITS    17
                               53210              SA2    X1                                                      COMFITS    18
           421  66551                             SB5    B5+B1                                                   COMFITS    19
                     21122                        AX1    18                                                      COMFITS    20
                          53310                   SA3    X1          FETCH SYMORD OF TEMP NAME                   COMFITS    21
           422  7160000001                        SX6    OC$BSS                                                  COMFITS    22
                                                  =X3    X3+K.SYM*K=PFX                                          COMFITS    23
                          20336                   LX3    PB.ORDP                                                 COMFITS    24
                               20214              LX2    PB.BIASP                                                COMFITS    25
           423  20660                             LX6    PB.GHIJP                                                COMFITS    26
                     12132                        BX1    X3+X2                                                   COMFITS    27
                          36761                   IX7    X6+X1                                                   COMFITS    28
           424  6120000420 +                      WCODE  X7,ITS2     ISSUE  * TAG  BSS  (N.TAG) *                COMFITS    29
                                                                                                                 COMFITS    30
           425  7110000000 X             ITS4     ISUSE$ BUF         USE BUF.                                    COMFITS    31
           430  7170000006                        SX7    OC$EQUN                                                 COMFITS    32
                          20760                   LX7    PB.GHIJP                                                COMFITS    33
           431  6120000413 +                      WCODE  X7,EXIT.                                                COMFITS    34
                                                                                                                 COMFITS    35
                                                                                                                 COMFITS    36
           432                           ITSA     BSS    0           TABLE OF TEMPS TO ISSUE                     COMFITS    37
           432  00000000000000 X                  VFD    24/0,18/=XS=ST,18/=XN.STMAX                             COMFITS    38
                              000000 X
           433  00000000000000 X                  VFD    24/0,18/=XS=CT,18/=XN.CTMAX                             COMFITS    39
                              000000 X
           434  00000000000000 X                  VFD    24/0,18/=XS=IT,18/=XN$IT                                COMFITS    40
                              000000 X
           435  00000000000000 X                  VFD    24/0,18/=XS=OT,18/=XN$OT                                COMFITS    41
                              000000 X
           436  00000000000000 X                  VFD    24/0,18/=XS=VD,18/=XN.VD                                COMFITS    42
                              000000 X
           437  00000000000000 X                  VFD    24/0,18/=XS=LC,18/=XN$LC                                COMFITS    43
                              000000 X
           440  00000000000000000000              CON    0                                                       COMFITS    44
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    20
        COMFITS - ISSUE TEMP STORAGE.                                 COMFITS             COMFITS 
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFITS    46
                                                  QUAL   *                                                       COMFITS    47
                                 413 +   ITS      EQU    /COMFITS/ITS                                            COMFITS    48
                                         QUAL$    ENDIF                                                          COMFITS    49
                                                                                                                 COMFITS    50
                                                                                                                 COMFITS    51
                                         COMFITS  ENDX                                                           COMFITS    52
                                                  ENTRY  ITS                                                     CCGC      183
                                                  ENTRY  PSTAB                                                   CCGC      184
                                                  ENTRY  WINOC                                                   CCGC      185
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    21
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION
  
           441                                    CTEXT   COMFUSE - PROCESS USE PSEUDO INSTRUCTION               COMFUSE     2
  
  
  
  
                                                  IF     -DEF,QUAL$,1                                            COMFUSE     4
                                                  QUAL   COMFUSE                                                 COMFUSE     5
                                 D_D              BASE   D                                                       COMFUSE     6
  
  
  
  
                                        **        PUSE - PROCESS USE PSEUDO.                                     COMFUSE     8
                                        *                                                                        COMFUSE     9
                                        *         SWITCH *ORG* AND *PARCEL* COUNTERS, SAVING THE OLD             COMFUSE    10
                                        *         AND GETTING THE NEW.                                           COMFUSE    11
                                        *         ENTRY  (X7) = INSTRUCTION (USE PSEUDO)                         COMFUSE    12
                                        *                                                                        COMFUSE    13
                                        *         CAN NOT DESTROY - A0,4,5  X4,5  B2,3,4,5,6                     COMFUSE    14
                                                                                                                 COMFUSE    15
                                                                                                                 COMFUSE    16
           441  0400400441 +             PUSE     SUBR   0           ENTRY/EXIT                                  COMFUSE    17
                                                                                                                 COMFUSE    18
                                        *         SAVE THE OLD.                                                  COMFUSE    19
                                                                                                                 COMFUSE    20
           442  5120000000 X                      SA2    =XCBI       CURRENT BLOCK INDEX                         COMFUSE    21
                          43666                   MX6    -LB.PARCL                                               COMFUSE    22
                               43052              MX0    -LB.ORGL                                                COMFUSE    23
           443  20666                             LX6    LB.PARCP                                                COMFUSE    24
                     63720                        SB7    X2                                                      COMFUSE    25
                          5130000000 X            SA3    =XORG                                                   COMFUSE    26
           444  5117000000 X                      SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                  COMFUSE    27
                                                  LX0    LB.ORGP                                                 COMFUSE    28
                          11006                   BX0    X0*X6       MASK FOR LB.PARC + LB.ORG                   COMFUSE    29
                                                  LX3    LB.ORGP     POSITION OLD ORG COUNTER                    COMFUSE    30
           445  5120000000 X                      SA2    =XPARCEL                                                COMFUSE    31
                          11101                   BX1    X0*X1       SAVE ALL BUT LB.ORG AND LB.PARC             COMFUSE    32
                               20266              LX2    LB.PARCP                                                COMFUSE    33
           446  12323                             BX3    X2+X3       OLD PARCEL  +  ORG                          COMFUSE    34
                     12631                        BX6    X3+X1                                                   COMFUSE    35
                          54610                   SA6    A1                                                      COMFUSE    36
                                                                                                                 COMFUSE    37
                                        *         GET THE NEW.                                                   COMFUSE    38
                                                                                                                 COMFUSE    39
                               20736              HX7    PB.BIAS                                                 COMFUSE    40
           447  21752                             AX7    -PB.BIASL   ISOLATE INDEX                               COMFUSE    41
                     63770                        SB7    X7                                                      COMFUSE    42
                          5117000000 X            SA1    =XF.LBT+B7  BLOCK BASE ADDRESS + INDEX                  COMFUSE    43
           450  15610                             BX6    -X0*X1      ISOLATE NEW PARCEL AND ORG                  COMFUSE    44
                     20152                        HX1    LB.ORG                                                  COMFUSE    45
                          5170000000 X            SA7    =XCBI       SAVE NEW INDEX                              COMFUSE    46
           451  21152                             AX1    -LB.ORGL                                                COMFUSE    47
                     10711                        BX7    X1                                                      COMFUSE    48
                                                  HX6    LB.PARC                                                 COMFUSE    49
                          21666                   AX6    -LB.PARCL   NEW PARCEL COUNT                            COMFUSE    50
           452  5170000000 X                      SA7    =XORG                                                   COMFUSE    51
                          5160000000 X            SA6    =XPARCEL                                                COMFUSE    52
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    22
        COMFUSE - PROCESS USE PSEUDO INSTRUCTION                                          COMFUSE 
  
           453  0400000441 +                      EQ     EXIT.                                                   COMFUSE    53
  
  
  
  
                                         QUAL$    IF     -DEF,QUAL$                                              COMFUSE    55
                                                  QUAL   *                                                       COMFUSE    56
                                 441 +   PUSE     EQU    /COMFUSE/PUSE                                           COMFUSE    57
                                         QUAL$    ENDIF                                                          COMFUSE    58
                                         COMFUSE  ENDX                                                           COMFUSE    59
                                                                                                                 CCGC      187
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    23
        SUBROUTINES.                                                  ISSUE 
  
                                        **        ISSUE - ISSUE OPERATION OR PSEUDO TO PB.                       CCGC      191
                                                                                                                 CCGC      192
                                         ISSUE    MACRO  OP,TAG                                                  CCGC      193
                                                  =X7    OP                                                      CCGC      194
                                                  LX7    PB.GHIJP                                                CCGC      195
                                                  IFC    NE,/TAG//,3                                             CCGC      196
                                                  XR=    X5,TAG                                                  CCGC      197
                                                  LX5    PB.TAGP                                                 CCGC      198
                                                  BX7    X7+X5                                                   CCGC      199
                                                  WCODE  X7                                                      CCGC      200
                                         ISSUE    ENDM                                                           CCGC      201
  
  
  
  
                                        **        XR= - X-REGISTER VERSION OF R= PSEUDO INSTRUCTION.             CCGC      203
                                        *                                                                        CCGC      204
                                        *         IF *EXPR* = *LDREG*, GENERATES NOTHING.                        CCGC      205
                                        *         IF *EXPR* = OTHER X-REG, GENERATES BOOLEAN XMIT TO *LDREG*.    CCGC      206
                                        *         IF *EXPR* = ELSE, GENERATES INCREMENT INSTR TO LOAD *LDREG*.   CCGC      207
                                        *                                                                        CCGC      208
                                        *                                                                        CCGC      209
                                        *         XR=       LDREG,EXPR                                           CCGC      210
                                        *                                                                        CCGC      211
                                        *         ENTRY  *LDREG* = X-REGISTER TO BE LOADED.  MUST BE X1 THRU X5. CCGC      212
                                        *                *EXPR*  = ADDRESS EXPRESSION FOR VALUE TO BE LOADED.    CCGC      213
                                        *                                                                        CCGC      214
                                        *         USES   *LDREG* AND ITS A-REGISTER.                             CCGC      215
                                        *                                                                        CCGC      216
                                        *         CALLS  NONE                                                    CCGC      217
                                                                                                                 CCGC      218
                                                                                                                 CCGC      219
                                                  PURGMAC   XR=                                                  CCGC      220
                                                                                                                 CCGC      221
                                         XR=      MACRO  R,E                                                     CCGC      222
                                          LOCAL A                                                                CCGC      223
                                        A MICRO 1,, E                                                            CCGC      224
                                        A MICCNT A                                                               CCGC      225
                                          IFEQ A,2,5                                                             CCGC      226
                                        A MICRO 1,1, E                                                           CCGC      227
                                          IFC EQ, "A" X ,3                                                       CCGC      228
                                          IFC NE, R E ,1                                                         CCGC      229
                                          B_R E                                                                  CCGC      230
                                          SKIP 6                                                                 CCGC      231
                                        A MICRO 2,1, R                                                           CCGC      232
                                          IFC GE, "A" 1 ,3                                                       CCGC      233
                                          IFC LT, "A" 6 ,2                                                       CCGC      234
                                          SA"A" E                                                                CCGC      235
                                          SKIP 1                                                                 CCGC      236
                                          ERR (R) NOT X1-X5 "SEQUENCE"                                           CCGC      237
                                         XR=      ENDM                                                           CCGC      238
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    24
        SUBROUTINES.
  
                                        **        OTC - OUTPUT TERMINAL CODE.                                    CCGC      240
                                                                                                                 CCGC      241
                                        **        AI. - APLIST INDEX TABLE ENTRY FORMAT                          CCGC      242
                                                  DESCRIBE AI.,60                                                CCGC      243
      L     73  40000000000000000000     EQV      DEFINE 1                                                       CCGC      244
      L     72  20000000000000000000     BASE     DEFINE 1           BASE MEMBER OF A CLASS OF EQUIV APLISTS     CCGC      245
                                                  DEFINE 4                                                       CCGC      246
      L     44  00777777000000000000     LINK     DEFINE 18                                                      CCGC      247
      L     22  00000000777777000000     LEN      DEFINE 18                                                      CCGC      248
      L      0  00000000000000777777     INDX     DEFINE 18                                                      CCGC      249
                                                                                                                 CCGC      250
      L     22  00000000777777000000     BIAS     DEQU   LEN                                                     CCGC      251
      L      0  00000000000000777777     ORD      DEQU   INDX                                                    CCGC      252
                                                                                                                 CCGC      253
           454                     1     OTCA     BSS    1                                                       CCGC      254
           455                     1     OTCB     BSS    1                                                       CCGC      255
                                                                                                                 CCGC      256
           456  0400400456 +             OTC      SUBR   =                                                       CCGC      257
           457  7110000000 X                      SX1    =XBN=STRT                                               CCGC      258
                          0100000000 X            CALL   CG$CUB      VARDIM CODE TO GO TO START.                 CCGC      259
           460  7170000026                        ISSUE  I.ECI       FLAG END OF CCG OUTPUT                      CCGC      260
           462  5110000016 +                      SA1    CC$SUB                                                  CCGC      261
                          0301000504 +            ZR     X1,OTC1     IF NO SUBS                                  CCGC      262
                                                                                                                 CCGC      263
           463  7110000000 X                      ISUSE  SUB         USE SUB.                                    CCGC      264
           466  7170000024                        ISSUE  I.BSS,=XS=SUB     SUB. BSS 0                            CCGC      265
           471  7110000000 X                      ISUSE  TEM                                                     CCGC      266
           474  7170000024                        ISSUE  I.BSS,=XS=SUBI                                          CCGC      267
           477  76600                             =X6    0                                                       CCGC      268
                     0100001111 +                 RJ     OSI         OUTPUT SUB INDEX TABLE                      CCGC      269
           500  7110000000 X                      ISUSE  STRT        USE START.                                  CCGC      270
           503  5140000000 X                      SA4    =XS=ENTRY                                               CCGC      271
                          0100001221 +            RJ     OSC         OUTPUT SUB CODE FOR HEADER                  CCGC      272
                                                                                                                 CCGC      273
           504  0100001265 +             OTC1     RJ     MZP         MARK POSSIBLE LEVEL-0 VARDIMS FOR OZC       CCGC      274
           505  7110000000 X                      ISUSE  TEM                                                     CCGC      275
           510  7170000024                        ISSUE  I.BSS,=XS=SUB0I                                         CCGC      276
           513  76610                             =X6    1                                                       CCGC      277
                     0100001111 +                 RJ     OSI         ISSUE SUB0 INDEX TABLE                      CCGC      278
                                                                                                                 CCGC      279
           514  7110000000 X             OTC15    ISUSE  STRT                                                    CCGC      280
           517  5140000000 X                      SA4    S=ENTRY                                                 CCGC      281
                          0100001242 +            RJ     OZC         ISSUE SUB0 CODE FOR HEADER                  CCGC      282
           520  0100000703 +                      RJ     OVC                                                     CCGC      283
           521  5140000000 X                      SA4    =XS=ENTRY                                               CCGC      284
                          0100000616 +            RJ     OLC         OUTPUT FP LOCAL COPIES                      CCGC      285
           522  5120000024 +                      SA2    =XN.ALTEN                                               CCGC      286
                          0302000604 +            ZR     X2,OTC4     IF NO ALTERNATE ENTRIES                     CCGC      287
           523  7110000000 X                      ISUSE  CODE        USE CODE.                                   CCGC      288
                                                                                                                 CCGC      289
                                        *         ISSUE ALTERNATE ENTRY BLOCKS.                                  CCGC      290
                                                                                                                 CCGC      291
           526  5120000000 X                      SA2    =XS=ENTRY                                               CCGC      292
                          73621                   SX6    X2+B1       I = (S=ENTRY)                               CCGC      293
                                                                                                                 CCGC      294
           527  5130000000 X             OTC2     SA3    =XO$SYM                                                 CCGC      295
                          22216                   LX2    B1,X6                                                   CCGC      296
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    25
        SUBROUTINES.
  
                               36462              IX4    X6+X2                                                   CCGC      297
           530  36034                             IX0    X3+X4                                                   CCGC      298
                     53301                        SA3    X0+B1                                                   CCGC      299
                          73661                   SX6    X6+B1       I = I + 1                                   CCGC      300
                               20356              HX3    WB.ENT                                                  CCGC      301
           531  0323000527 +                      PL     X3,OTC2     IF NOT ENT[WB(I)]                           CCGC      302
                          20312                   LX3    WB.ENTP-WB.LABP                                         CCGC      303
           532  0333000527 +                      MI     X3,OTC2     IF LAB[WB(I)]                               CCGC      304
                          7246777776              SX4    X6-1                                                    CCGC      305
           533  10644                             BX6    X4                                                      CCGC      306
                     5160000454 +                 SA6    OTCA                                                    CCGC      307
                               43055              MX0    -WC.EGLL                                                CCGC      308
           534  54331                             SA3    A3+B1                                                   CCGC      309
                     20336                        LX3    -WC.EGLP                                                CCGC      310
                          15230                   BX2    -X0*X3                                                  CCGC      311
           535  7262100000                        SX6    I.GL+X2     OTCB = EGL[WC(I)]                           CCGC      312
                          5160000455 +            SA6    OTCB                                                    CCGC      313
           536  7170000024                        ISSUE  I.BSS,X4    LNAME BSS 0                                 CCGC      314
           541  7170000041                        ISSUE  I.UJP,X4    ENTRY/EXIT WORD                             CCGC      315
           544  7170005140                        ISSUE  5140B,X4    SA4 ENAME                                   CCGC      316
           547  7170001064                        ISSUE  1064B       BX6 X4                                      CCGC      317
           551  7170005160                        ISSUE  5160B,=XS=ENTRY   SA6 HNAME                             CCGC      318
           554  43600                             MX6    0                                                       F2950F5A   34
                     5160000000 X                 SA6    =XENTRJ     FLAG NO RJ SINCE PLUG                       F2950F5A   35
                                                                                                                 CCGC      319
           555  0100000750 +                      RJ     ISA         ISSUE SAVE A0 / RJ CPL.                     CCGC      320
           556  5140000454 +                      SA4    OTCA                                                    CCGC      321
                          0100001221 +            RJ     OSC         ISSUE SUB CODE                              CCGC      322
           557  0100001242 +                      RJ     OZC         ISSUE SUB0 CODE                             CCGC      323
           560  0100000703 +                      RJ     OVC         OUTPUT VARDIM CODE                          CCGC      324
           561  5140000454 +                      SA4    OTCA                                                    CCGC      325
                          0100000616 +            RJ     OLC         OUTPUT FP LOCAL COPIES                      CCGC      326
                                                                                                                 F2950F5A   36
                                        *         IF NO RJ ISSUED SINCE PLUG, ISSUE ONE NOW TO VOID STACK.       F2950F5A   37
                                                                                                                 F2950F5A   38
           562  5150000000 X                      SA5    ENTRJ                                                   F2950F5A   39
                          0315000575 +            NZ     X5,OTC3     IF RJ ISSUED AS PART OF INITIALIZATION      F2950F5A   40
           563  76100                             ADDWRD GLT,B0      ADD GENERATED LABEL                         F2950F5A   41
           565  7146100000                        SX4    B6+K.GL     TAG OF LABEL                                F2950F5A   42
                          7170000035              ISSUE  I.RJ3,X4    RJ GL                                       F2950F5A   43
           570  7170000024                        ISSUE  I.BSS,X4    GL BSS 0                                    F2950F5A   44
           573  7170000043                        ISSUE  I.ZERO      BSS 1                                       F2950F5A   45
                                                                                                                 CCGC      327
                                        *         ISSUE JUMP INTO CODE BODY.                                     CCGC      328
                                                                                                                 CCGC      329
           575  5150000455 +             OTC3     SA5    OTCB                                                    CCGC      330
                          5110000024 +            SA1    N.ALTEN                                                 CCGC      331
           576  7261777776                        SX6    X1-1                                                    CCGC      332
                          54610                   SA6    A1          N.ALTEN = N.ALTEN + 1                       CCGC      333
                               63560              SB5    X6                                                      CCGC      334
           577  7170000041                        ISSUE  I.UJP,X5    EQ EGL[WC(I)]                               CCGC      335
           602  5140000454 +                      SA4    OTCA                                                    CCGC      336
                          7264000001              SX6    X4+1                                                    CCGC      337
           603  0550000527 +                      NZ     B5,OTC2     IF N LT MAX  */MORE ENTRIES                 CCGC      338
                                                                                                                 CCGC      339
           604  7170000027               OTC4     ISSUE  I.EMI                                                   CCGC      340
           606  43700                             MX7    0                                                       F2950F5A   46
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    26
        SUBROUTINES.
  
                     5170000000 X                 SA7    =XL$ASG     SHRINK *ASG*                                CCGC      343
                               66500              SB5    B0                                                      CCGC      344
           607  0100001320 +                      RJ     CAW         CONVERT APT TO WC. FORMAT                   CCGC      345
           610  66510                             SB5    B1                                                      CCGC      346
                     0100001320 +                 RJ     CAW         CONVERT IOI TO WC. FORMAT.                  CCGC      347
           611  0100000413 +                      CALL   ITS                                                     CCGC      348
           612  0100001340 +                      RJ     MEP         MISC. END PROCESSING                        CCGC      349
           613  7170000005                        ISSUE  OC$END                                                  CCGC      350
           615  0400000456 +                      EQ     EXIT.                                                   CCGC      351
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    27
        SUBROUTINES.                                                  OLC 
  
                                        **        OLC - OUTPUT LOCAL COPIES OF FORMAL PARAMETERS.                CCGC      353
                                        *                                                                        CCGC      354
                                        *         ENTRY  X4 = ENTRY SYMTAB ORD.                                  CCGC      355
                                                                                                                 CCGC      356
           616  0400400616 +             OLC      SUBR                                                           CCGC      357
           617  5110000000 X                      SA1    N$LC                                                    CCGC      358
                          0301000616 +            ZR     X1,EXIT.    IF NO LOCAL COPIES                          CCGC      359
           620  5120000000 X                      SA2    O$SYM                                                   CCGC      360
                          22314                   LX3    B1,X4                                                   CCGC      361
                               36443              IX4    X4+X3                                                   CCGC      362
           621  63721                             =B7    X2+WB.W                                                 CCGC      363
                     53147                        SA1    B7+X4                                                   CCGC      364
                          43057                   MX0    -WB.PNTL                                                CCGC      365
                               20115              LX1    -WB.PNTP                                                CCGC      366
           622  15510                             BX5    -X0*X1                                                  CCGC      367
                     0305000616 +                 ZR     X5,EXIT.    IF NO FP*S AT THIS ENTRY                    CCGC      368
                                                                                                                 CCGC      369
                                        *         ALLOCATE FOR LD, XMT ST SEQUENCE FOR ALL FPS.                  CCGC      370
                                                                                                                 CCGC      371
           623  5110000000 X                      SA1    =XL$FPI                                                 CCGC      372
                          22211                   LX2    B1,X1                                                   CCGC      373
                               36121              IX1    X2+X1                                                   CCGC      374
           624  20102                             LX1    2                                                       CCGC      375
                     7211000004                   SX1    X1+4        L$TXT = 4 (FOR BOS) + 3*4*L$FPI             CCGC      376
                               43700              MX7    0                                                       CCGC      377
           625  5170000000 X                      SA7    L$TXT                                                   CCGC      378
                          5100000000 X            ALLOC  TXT,X1                                                  CCGC      379
                                                                                                                 CCGC      380
                                        *         INITIALIZE SEQ. TO BOS.                                        CCGC      381
                                                                                                                 CCGC      382
           627  76710                             =X7    1                                                       CCGC      383
                     20736                        LX7    R1.INP                                                  CCGC      384
                          66610                   =B6    OC.BOS                                                  CCGC      385
                               27667              PX6    B6,X7                                                   CCGC      386
           630  43700                             MX7    0                                                       CCGC      387
                     53620                        SA6    X2                                                      CCGC      388
                          5110000001 X            SA1    F$RDT+OC.BOS                                            CCGC      389
           631  54761                             SA7    A6+B1                                                   CCGC      390
                     10611                        BX6    X1                                                      CCGC      391
                          54671                   SA6    A7+B1                                                   CCGC      392
                               54761              SA7    A6+B1                                                   CCGC      393
           632  6130000004                        SB3    4           RI = 4                                      CCGC      394
                          5110000000 X            SA1    =XO$ENTP                                                CCGC      395
           633  5130000000 X                      SA3    =XO$FPI                                                 CCGC      396
                          36015                   IX0    X1+X5                                                   CCGC      397
           634  6263777776                        SB6    X3-1                                                    CCGC      398
                          53200                   SA2    X0                                                      CCGC      399
           635  6140000074                        SB4    60                                                      CCGC      400
                                                                                                                 CCGC      401
           636  0540000640 +             OLC10    NZ     B4,OLC20    IF WORD NOT EXHAUSTED                       CCGC      402
                          6140000074              SB4    60                                                      CCGC      403
           637  5022000001                        SA2    A2+1                                                    CCGC      404
                                                                                                                 CCGC      405
           640  6144777760               OLC20    SB4    B4-15                                                   CCGC      406
                          43055                   MX0    -EF.ORDL                                                CCGC      407
                               23442              AX4    B4,X2                                                   CCGC      408
           641  15640                             BX6    -X0*X4                                                  CCGC      409
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    28
        SUBROUTINES.                                                  OLC 
  
                     0306000664 +                 ZR     X6,OLC30    IF END OF PARAMATER LIST                    CCGC      410
                                                                                                                 CCGC      411
                                        *         IF FPI.LC IS SET, ISSUE CODE TO DEFINE LOCAL COPY.             CCGC      412
                                                                                                                 CCGC      413
                               22416              LX4    B1,X6                                                   CCGC      414
           642  36446                             IX4    X4+X6                                                   CCGC      415
                     53447                        SA4    B7+X4                                                   CCGC      416
                          43063                   MX0    -WB.FPNOL                                               CCGC      417
                               10544              BX5    X4                                                      CCGC      418
           643  20433                             LX4    -WB.FPNOP                                               CCGC      419
                     15340                        BX3    -X0*X4                                                  CCGC      420
                          53436                   SA4    B6+X3       FPI(FP)                                     CCGC      421
                               20401              HX4    FP.LC                                                   CCGC      422
           644  0324000636 +                      PL     X4,OLC10    IF NO LOCAL COPY                            CCGC      423
                          43071                   MX0    -WB.MODEL                                               CCGC      424
                                                  LX5    -WB.MODEP                                               CCGC      425
           645  5160000675 +                      SA6    OLCA        SAVE IH                                     CCGC      426
                          15050                   BX0    -X0*X5                                                  CCGC      427
                               66210              =B2    1           FLAG DOUBLE WORD                            CCGC      428
           646  6250777773                        SB5    X0-M.DBL                                                CCGC      429
                          0450000650 +            ZR     B5,OLC24    IF FP DOUBLE                                CCGC      430
           647  0451000650 +                      EQ     B5,B1,OLC24 IF FP COMPLEX                               CCGC      431
                          66200                   =B2    0           FLAG SINGLE WORD                            CCGC      432
                                                                                                                 CCGC      433
           650  20411                    OLC24    LX4    1+FP.LCP-FP.CAP                                         CCGC      434
                     43066                        MX0    -FP.CAL                                                 CCGC      435
                          15040                   BX0    -X0*X4                                                  CCGC      436
                                                                                                                 CCGC      437
           651  76530                    OLC25    SX5    B3          RI                                          CCGC      438
                     6150000050                   SB5    OC.LD                                                   CCGC      439
                                                  LX6    IH.IHP                                                  CCGC      440
           652  0100000676 +                      RJ     SRI         ISSUE LD 4,FP                               CCGC      441
           653  76530                             SX5    B3                                                      CCGC      442
                     7143777773                   SX4    B3-4                                                    CCGC      443
                               20440              LX4    R1.RJP                                                  CCGC      444
           654  12554                             BX5    X5+X4                                                   CCGC      445
                     43600                        MX6    0                                                       CCGC      446
                          6150000010              SB5    OC.XMT                                                  CCGC      447
           655  0100000676 +                      RJ     SRI         ISSUE XMT 10,4                              CCGC      448
           656  7153777773                        SX5    B3-4                                                    CCGC      449
                          6150000051              SB5    OC.ST                                                   CCGC      450
           657  5110000000 X                      SA1    =XS=LC                                                  CCGC      451
                          20022                   LX0    IH.CAP                                                  CCGC      452
                                                  LX1    IH.IHP                                                  CCGC      453
                               12601              BX6    X0+X1                                                   CCGC      454
           660  0100000676 +                      RJ     SRI         ISSUE ST 10,LC.+K                           CCGC      455
           661  0420000636 +                      ZR     B2,OLC10    IF NOT ABOUT TO DO LOWER                    CCGC      456
                          76510                   =X5    1                                                       CCGC      457
                               20522              LX5    IH.CAP-IH.IHP     CA = 1                                CCGC      458
           662  5130000675 +                      SA3    OLCA                                                    CCGC      459
                          12635                   BX6    X3+X5                                                   CCGC      460
                               20052              LX0    -IH.CAP                                                 CCGC      461
           663  73001                             =X0    X0+1        K = K + 1                                   CCGC      462
                     66200                        =B2    0           FLAG LOWER DONE                             CCGC      463
                          0400000651 +            EQ     OLC25       OUTPUT LOWER                                CCGC      464
                                                                                                                 CCGC      465
           664  76630                    OLC30    SX6    B3                                                      CCGC      466
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    29
        SUBROUTINES.                                                  OLC 
  
                     7173777773                   SX7    B3-4                                                    CCGC      467
           665  5160000000 X                      SA6    L$TXT                                                   CCGC      468
                          0307000616 +            ZR     X7,EXIT.                                                CCGC      469
           666  5170000001 X                      SA7    =XCC$BRN+1                                              CCGC      470
                          7170000021              ISSUE  I.BCI                                                   CCGC      471
           671  0100000000 X                      CALL   CG$CPC                                                  CCGC      472
           672  7170000026                        ISSUE  I.ECI                                                   CCGC      473
           674  0400000616 +                      EQ     EXIT.                                                   CCGC      474
                                                                                                                 CCGC      475
           675                     1     OLCA     BSS    1                                                       CCGC      476
  
  
  
  
                                        **        SRI - STORE RLIST INSTRUCTION.                                 CCGC      478
                                        *                                                                        CCGC      479
                                        *         ENTRY  B5 = OPCODE                                             CCGC      480
                                        *                X5 = R1                                                 CCGC      481
                                        *                X6 = R2                                                 CCGC      482
                                        *                                                                        CCGC      483
                                        *         BUMPS RI IN B3                                                 CCGC      484
                                                                                                                 CCGC      485
           676  0400400676 +             SRI      SUBR                                                           CCGC      486
           677  27755                             PX7    B5,X5                                                   CCGC      487
                     5135000000 X                 SA3    F$RDT+B5                                                CCGC      488
                               54771              SA7    A7+B1                                                   CCGC      489
           700  54671                             SA6    A7+B1                                                   CCGC      490
                     43700                        MX7    0                                                       CCGC      491
                          10633                   BX6    X3                                                      CCGC      492
                               54661              SA6    A6+B1                                                   CCGC      493
           701  6133000004                        SB3    B3+4                                                    CCGC      494
                          5076000001              SA7    A6+1                                                    CCGC      495
           702  0400000676 +                      EQ     EXIT.                                                   CCGC      496
  
  
  
  
                                        **        OVC - OUTPUT VARDIM CODE.                                      CCGC      498
                                                                                                                 CCGC      499
           703  0400400703 +             OVC      SUBR                                                           CCGC      500
           704  10644                             BX6    X4                                                      CCGC      501
                     5160000720 +                 SA6    OVCA                                                    CCGC      502
           705  5110000000 X                      SA1    =XL$VDT                                                 CCGC      503
                          0301000703 +            ZR     X1,EXIT.    IF NO VARDIM                                CCGC      504
           706  0100000721 +                      RJ     MVT         MOVE VARDIM TO TXT                          CCGC      505
                                                                                                                 CCGC      506
                                        *         ZERO ALL VD.ALO BITS AND RESET THOSE FOR VD. CELLS WHICH       CCGC      507
                                        *         THIS ENTRY POINT IS ALLOWED TO ACCESS.                         CCGC      508
                                                                                                                 CCGC      509
           707  5110000720 +                      SA1    OVCA                                                    CCGC      510
                          0100001047 +            RJ     MAV         MARK VARDIMS APPLICABLE TO THIS ENTRY       CCGC      511
           710  0100000732 +                      RJ     MMV         MARK MATERIALIZED VARDIM                    CCGC      512
           711  7170000021                        ISSUE  I.BCI       START OF CCG OUTPUT                         CCGC      513
           713  5110000000 X                      SA1    L$TXT                                                   CCGC      514
                          7261777773              SX6    X1-4                                                    CCGC      515
           714  5160000001 X                      SA6    =XCC$BRN+1                                              CCGC      516
                          0100000000 X            CALL   CG$CPC                                                  CCGC      517
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    30
        SUBROUTINES.                                                  OVC 
  
           715  7170000026                        ISSUE  I.ECI                                                   CCGC      518
           717  0400000703 +                      EQ     EXIT.                                                   CCGC      519
                                                                                                                 CCGC      520
           720                     1     OVCA     BSS    1           ENTRY SYMTAB ORDINAL                        CCGC      521
  
  
  
  
                                        **        MVT - MOVE VARDIM TO TXT.                                      CCGC      523
                                                                                                                 CCGC      524
           721  0400400721 +             MVT      SUBR                                                           CCGC      525
           722  43600                             MX6    0                                                       CCGC      526
                     5160000000 X                 SA6    =XL$TXT                                                 CCGC      527
           723  7211000003                        ALLOC  TXT,X1+3                                                CCGC      528
           725  43774                             MX7    60                                                      CCGC      529
                     6273777776                   SB7    X3-1                                                    CCGC      530
                               53727              SA7    X2+B7                                                   CCGC      531
           726  7213777774                        SX1    X3-3                                                    CCGC      532
                          10611                   BX6    X1                                                      CCGC      533
                               10322              BX3    X2                                                      CCGC      534
           727  54630                             SA6    A3                                                      CCGC      535
                     5120000000 X                 SA2    =XO$VDT                                                 CCGC      536
           730  0100000000 X                      MOVE   X1,X2,X3    MOVE (L$VDT, VDT, TXT)                      CCGC      537
           731  0400000721 +                      EQ     EXIT.                                                   CCGC      538
  
  
  
  
                                        **        MMV - MARK MATERIALIZED VARDIMS.                               CCGC      540
                                        *         LOOP THROUGH TXT COPY OF VARDIM CODE, PROCESSING ALL STORES.   CCGC      541
                                        *         THOSE VD. CELLS WHICH ARE NEEDED (ALLOWED FOR THIS ENTRY POINT CCGC      542
                                        *         AND USED IN THE PROGRAM) ARE GIVEN THEIR REAL CA FROM VDT.     CCGC      543
                                        *         OTHER VD. STORES ARE NO-OP*ED.                                 CCGC      544
                                                                                                                 CCGC      545
           732  0400400732 +             MMV      SUBR                                                           CCGC      546
           733  5120000000 X                      SA2    =XO$TXT                                                 CCGC      547
                          6140000031              SB4    59-D.STP                                                CCGC      548
           734  5212000016                        SA1    X2+2+3*4    I = 4  STORE MAY BE 4TH INST. AT EARLIEST   CCGC      549
                          5120000000 X            SA2    =XO$VDI                                                 CCGC      550
           735  63620                             SB6    X2                                                      CCGC      551
                     5120000046 X                 SA2    =XF$RDT+OC.NOP                                          CCGC      552
           736  6150000046                        SB5    OC.NOP                                                  CCGC      553
                          10722                   BX7    X2                                                      CCGC      554
                               43502              MX5    VD.MAL                                                  CCGC      555
           737  6130000004                        SB3    4                                                       CCGC      556
                                                  LX5    VD.MAL+VD.MAP                                           CCGC      557
                          43052                   MX0    -VD.CAL                                                 CCGC      558
                                                                                                                 CCGC      559
           740  22341                    MMV10    LX3    B4,X1                                                   FC50182     5
                     54113                        SA1    A1+B3                                                   CCGC      561
                          0323000740 +            PL     X3,MMV10    IF NOT ST[D(I)]                             FC50182     6
           741  0303000732 +                      ZR     X3,EXIT.    IF I = LEN(TXT)                             CCGC      563
                          5021777772              SA2    A1-5        R2W = R2(I)                                 CCGC      564
           742  20252                             LX2    -IH.CAP                                                 CCGC      565
                     53426                        SA4    X2+B6       VDW = VDT(CA[R2W])                          CCGC      566
                                                  HX4    VD.MA                                                   CCGC      567
                          15354                   BX3    -X4*X5                                                  CCGC      568
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    31
        SUBROUTINES.                                                  MMV 
  
           743  0313000746 +                      NZ     X3,MMV15    IF THIS VD. NOT NEEDED                      FC50182     7
                          20430                   LX4    VD.MAP+VD.MAL-VD.CAP                                    CCGC      570
                               15440              BX4    -X0*X4                                                  CCGC      571
           744  11602                             BX6    X0*X2                                                   CCGC      572
                     12646                        BX6    X4+X6       CA[R2W] = CA[VDW]                           CCGC      573
                          20622                   LX6    IH.CAP                                                  CCGC      574
                               54620              SA6    A2                                                      CCGC      575
           745  0400000740 +                      EQ     MMV10                                                   FC50182     8
                                                                                                                 CCGC      577
           746  43300                    MMV15    MX3    0                                                       FC50182     9
                     54721                        SA7    A2+B1       D(I) = RDT(OC.NOP)                          CCGC      579
                          27653                   PX6    B5,X3                                                   CCGC      580
                               55621              SA6    A2-B1       R1(I) = P(OC.NOP)                           CCGC      581
           747  0400000740 +                      EQ     MMV10                                                   FC50182    10
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    32
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
           747                           ISA      CTEXT  COMFISA - ISSUE SAVE A0 OR RJ CPL. .                    COMFISA     2
                                        **        ISA - ISSUE SAVE A0 CODE OR RJ CPL.                            COMFISA     3
                                        *                                                                        COMFISA     4
                                        *         ENTRY  (X4) = SYMTAB ORDINAL OF ENTRY OR HEADER                COMFISA     5
                                                                                                                 COMFISA     6
           750  0400400750 +             ISA      SUBR   =                                                       COMFISA     7
           751  5120000000 X                      SA2    =XCO.DBID                                               COMFISA     8
                          0302000757 +            ZR     X2,ISA05    IF DB=ID NOT SELECTED                       COMFISA     9
           752  7170007461                        ISSUE  7461B       SX6 A1                                      COMFISA    10
           754  5110000000 X                      SA1    =XS=SA1                                                 COMFISA    11
                          7170005160              ISSUE  5160B,X1    SA6 SAVEA1.                                 COMFISA    12
                                                                                                                 COMFISA    13
           757  5120000000 X             ISA05    SA2    =XN.EPL                                                 COMFISA    14
                          0312001001 +            NZ     X2,ISA20    IF CPL. CALL NEEDED                         COMFISA    15
                                                                                                                 FC50249     7
           760  5110000000 X             ISA15    SA1    =XN.FP                                                  FC50249     8
                          0311000763 +            NZ     X1,ISA17    IF FP/S                                     COMFISA    17
           761  5120000000 X                      SA2    MOD                                                     FC50249     9
                          43051                   MX0    -MO.CLIFL                                               COMFISA    20
                               20237              LX2    -MO.CLIFP                                               COMFISA    21
           762  15220                             BX2    -X0*X2                                                  COMFISA    22
                     0302000750 +                 ZR     X2,EXIT.    IF NOT CHARACTER FUNCTION                   COMFISA    23
                                                                                                                 COMFISA    24
           763  7170007460               ISA17    ISSUE  7460B       SX6 A0                                      COMFISA    25
           765  7170005401                        ISSUE  5401B       SA0 A1                                      COMFISA    26
           767  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    27
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    28
           772  5120000000 X                      SA2    =XCO.DBID                                               FC5A436     5
                          0302000750 +            ZR     X2,EXIT.    RETURN IF DEBUG NOT ON                      FC5A436     6
           773  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436     7
           775  5110000000 X                      SA1    =XS=SA0                                                 FC5A436     8
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436     9
          1000  0400000750 +                      EQ     EXIT.                                                   COMFISA    29
                                                                                                                 COMFISA    30
          1001  5120000000 X             ISA20    SA2    =X"O$"SYM                                               COMFISA    31
                          22514                   LX5    B1,X4                                                   COMFISA    32
                               36645              IX6    X4+X5                                                   COMFISA    33
          1002  63721                             =B7    X2+WB.W                                                 COMFISA    34
                     53367                        SA3    B7+X6                                                   COMFISA    35
                          43057                   MX0    -WB.PNTL                                                COMFISA    36
                               20315              LX3    -WB.PNTP                                                COMFISA    37
          1003  15630                             BX6    -X0*X3                                                  COMFISA    38
                     5140000000 X                 SA4    =X"O$"ENTP                                              COMFISA    39
          1004  0306000760 +                      ZR     X6,ISA15    IF NO FPS THIS ENTRY                        COMFISA    40
                          36446                   IX4    X4+X6                                                   COMFISA    41
          1005  5120000000 X                      SA2    =XMOD                                                   COMFISA    42
                          43051                   MX0    -MO.CLIFL                                               COMFISA    43
                               20237              LX2    -MO.CLIFP                                               COMFISA    44
          1006  15220                             BX2    -X0*X2                                                  COMFISA    45
                     0302001017 +                 ZR     X2,ISA30    IF NOT CHAR FUNCTION                        COMFISA    46
                                                                                                                 COMFISA    47
          1007  7170001061                        ISSUE  1061B       BX6 X1                                      COMFISA    48
          1011  76110                             =X1    1                                                       COMFISA    49
                     20152                        LX1    PB.BIASP-PB.TAGP                                        COMFISA    50
                          7170005011              ISSUE  5011B,X1     SA1 A1+1                                   COMFISA    51
          1014  5110000000 X                      SA1    =XS=GPL                                                 COMFISA    52
                          7170005160              ISSUE  5160B,X1     SA6 GPL.                                   COMFISA    53
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    33
        COMFISA - ISSUE SAVE A0 OR RJ CPL. .                          ISA 
  
                                                                                                                 COMFISA    54
          1017  5214777776               ISA30    SA1    X4-1                                                    COMFISA    55
                          43652                   MX6    -EH.BIASL                                               COMFISA    56
                                                  LX1    -EH.BIASP                                               COMFISA    57
                               15316              BX3    -X6*X1                                                  COMFISA    58
          1020  5110000000 X                      SA1    =XS=CP                                                  COMFISA    59
                          20352                   LX3    PB.BIASP-PB.TAGP                                        COMFISA    60
                               12413              BX4    X1+X3                                                   COMFISA    61
          1021  7170007060                        ISSUE  7060B       SX6 A0+                                     COMFISA    62
          1023  5110000000 X                      SA1    =XS=GPL                                                 COMFISA    63
                          7170005100              ISSUE  5100B,X1          SA0 GPL.                              COMFISA    64
          1026  7170005130                        ISSUE  5130B,X4    SA3 CP.+BIAS[ENTP]                          COMFISA    65
          1031  5110000000 X                      SA1    =XS=TA0                                                 COMFISA    66
                          7170005160              ISSUE  5160B,X1          SA6 TEMPA0.                           COMFISA    67
          1034  5110000000 X                      SA1    =XS=CPL                                                 COMFISA    68
                          7170000035              ISSUE  I.RJ3,X1          RJ CPL.                               COMFISA    69
          1037  5120000000 X                      SA2    =XCO.DBID                                               FC5A436    10
                          0302001045 +            ZR     X2,ISA35    IF DEBUG NOT ON                             FC5A436    11
          1040  7170007460                        ISSUE  7460B       SX6    A0                                   FC5A436    12
          1042  5110000000 X                      SA1    =XS=SA0                                                 FC5A436    13
                          7170005160              ISSUE  5160B,X1    SA6    SAVEA0                               FC5A436    14
                                1045 +   ISA35    EQU    *                                                       FC5A436    15
          1045  43601                             MX6    1                                                       F2950F5A    5
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    6
          1046  0400000750 +                      EQ     EXIT.                                                   COMFISA    70
                                         COMFISA  ENDX                                                           COMFISA    71
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    34
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
          1046                           MAV      CTEXT  COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.        COMFMAV     2
                                        **        MAV - MARK APPROPRIATE VARDIM.                                 COMFMAV     3
                                        *                                                                        COMFMAV     4
                                        *         MAV SETS VD.ALO BIT IN VARDIM INFORMATION TABLE (T.VDI OR O$VD COMFMAV     5
                                        *         MAV SETS VD.ALO BIT IN VARDIM INFORMATION TABLE                COMFMAV     6
                                        *         (T. OR O$ VDI) FOR ALL VARDIM CELLS CONTAINING A VALUE DEFINED COMFMAV     7
                                        *         FOR THIS ENTRY.  THIS INCLUDES ALL VARIABLE DIMENSION          COMFMAV     8
                                        *         CODE FOR ARRAYS IN THE FP LIST OF THIS ENTRY AND               COMFMAV     9
                                        *         CHARACTER LENGTH TEMPS FOR PASSED-LENGTH ITEMS                 COMFMAV    10
                                        *         APPEARING ON THIS LIST.                                        COMFMAV    11
                                        *                                                                        COMFMAV    12
                                        *         ENTRY  (X1) = SYMTAB ORDINAL OF ENTRY POINT (OR HEADER)        COMFMAV    13
                                                                                                                 COMFMAV    14
          1047  0400401047 +             MAV      SUBR                                                           COMFMAV    15
                                                                                                                 COMFMAV    16
                                        *         CLEAR VD.ALO OF ALL VARDIM CELLS.                              COMFMAV    17
                                                                                                                 COMFMAV    18
          1050  5120000000 X                      SA2    =X"O$"VDI                                               COMFMAV    19
                          5130000000 X            SA3    =X"L$"VDI                                               COMFMAV    20
          1051  63730                             SB7    X3                                                      COMFMAV    21
                     43001                        CLAS=  X0,VD,ALO                                               COMFMAV    22
                               53420              SA4    X2                                                      COMFMAV    23
                                                                                                                 COMFMAV    24
          1052  15640                    MAV10    BX6    -X0*X4                                                  COMFMAV    25
                     67771                        SB7    B7-B1                                                   COMFMAV    26
                          54640                   SA6    A4                                                      COMFMAV    27
                               54441              SA4    A4+B1                                                   COMFMAV    28
          1053  0570001052 +                      NZ     B7,MAV10    IF VDI NOT EXHAUSTED                        COMFMAV    29
                          5120000000 X            SA2    "O$"SYM                                                 COMFMAV    30
          1054  22311                             LX3    B1,X1                                                   COMFMAV    31
                     36413                        IX4    X1+X3                                                   COMFMAV    32
                          63721                   =B7    X2+WB.W                                                 COMFMAV    33
                               53247              SA2    B7+X4                                                   COMFMAV    34
          1055  43057                             MX0    -WB.PNTL                                                COMFMAV    35
                     20215                        LX2    -WB.PNTP                                                COMFMAV    36
                          15620                   BX6    -X0*X2                                                  COMFMAV    37
          1056  0306001047 +                      ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFMAV    38
                          5110000000 X            SA1    =X"O$"ENTP                                              COMFMAV    39
          1057  36016                             IX0    X1+X6                                                   COMFMAV    40
                     53200                        SA2    X0          SKIP HEADER                                 COMFMAV    41
                          6140000074              S"BT"  60                                                      COMFMAV    42
                                                                                                                 COMFMAV    43
          1060  0540001062 +             MAV20    NZ     "BT",MAV30  IF THIS WORD NOT FINISHED                   COMFMAV    44
                          6140000074              S"BT"  60                                                      COMFMAV    45
          1061  5022000001                        SA2    A2+1                                                    COMFMAV    46
                                                                                                                 COMFMAV    47
          1062  6144777760               MAV30    S"BT"  "BT"-15                                                 COMFMAV    48
                          43055                   MX0    -EF.ORDL                                                COMFMAV    49
                               23442              AX4    "BT",X2                                                 COMFMAV    50
          1063  15340                             BX3    -X0*X4                                                  COMFMAV    51
                     0303001047 +                 ZR     X3,EXIT.    IF LAST PARAMETER                           COMFMAV    52
                               22413              LX4    B1,X3                                                   COMFMAV    53
          1064  36634                             IX6    X3+X4                                                   COMFMAV    54
                     53567                        SA5    B7+X6       WB(ENTP(I))                                 COMFMAV    55
                          20561                   HX5    WB.ARY                                                  COMFMAV    56
          1065  0325001102 +                      PL     X5,MAV90    IF NOT DIMENSIONED                          COMFMAV    57
                          43357                   MX3    -WB.PNTL                                                COMFMAV    58
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    35
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MAV 
  
                               20530              LX5    1+WB.ARYP-WB.PNTP                                       COMFMAV    59
          1066  15353                             BX3    -X3*X5                                                  COMFMAV    60
                     5110000000 X                 SA1    =X"O$"DIM                                               COMFMAV    61
                               36513              IX5    X1+X3                                                   COMFMAV    62
          1067  53150                             SA1    X5                                                      COMFMAV    63
                                                  HX1    DH.VD                                                   COMFMAV    64
                     0321001102 +                 PL     X1,MAV90    IF NOT VARIABLE-DIMENSION                   COMFMAV    65
                               20102              LX1    DH.VDP-DH.VPP                                           COMFMAV    66
          1070  0321001072 +                      PL     X1,MAV40    IF NOT VARIABLE PRODUCT OF SPANS            COMFMAV    67
                          10311                   BX3    X1                                                      COMFMAV    68
                               20334              LX3    1+DH.VPP-DH.PSP                                         COMFMAV    69
          1071  0100001105 +                      RJ     MVD         MARK PRODUCT OF SPAN VD.                    COMFMAV    70
                                                                                                                 COMFMAV    71
          1072  20172                    MAV40    LX1    1+DH.VPP-DH.DIMP                                        COMFMAV    72
                     43366                        MX3    -DH.DIML                                                COMFMAV    73
                          15313                   BX3    -X3*X1      NUMBER OF DIMS                              COMFMAV    74
                               63230              SB2    X3                                                      COMFMAV    75
                                                                                                                 COMFMAV    76
          1073  54111                    MAV50    =A1    A1+1                                                    COMFMAV    77
                     20136                        LX1    59-D1.SPANP-DM.TDP                                      FC5A231     8
                          0321001075 +            PL     X1,MAV60    IF NOT VARIABLE SPAN                        COMFMAV    79
          1074  20136                             LX1    1+DM.TDP                                                FC5A231     9
                     10311                        BX3    X1                                                      COMFMAV    81
                          0100001105 +            RJ     MVD         MARK SPAN VD.                               COMFMAV    82
                                                                                                                 COMFMAV    83
          1075  54111                    MAV60    =A1    A1+1                                                    COMFMAV    84
                                                  LX1    59-D2.LBP-DM.TDP                                        FC5A231    10
                     0321001077 +                 PL     X1,MAV70    IF VARIABLE LOWER BOUND                     COMFMAV    86
                               10311              BX3    X1                                                      COMFMAV    87
          1076  20336                             LX3    1+DM.TDP                                                FC5A231    11
                     0100001105 +                 RJ     MVD         MARK LOWER BOUND VD.                        COMFMAV    89
                                                                                                                 COMFMAV    90
          1077  20136                    MAV70    LX1    D2.LBP-D2.UBP                                           COMFMAV    91
                     0321001101 +                 PL     X1,MAV80    IF NOT VARIABLE UPPER BOUND                 COMFMAV    92
                               10311              BX3    X1                                                      COMFMAV    93
          1100  20336                             LX3    1+DM.TDP                                                FC5A231    12
                     0100001105 +                 RJ     MVD         MARK UPPER BOUND VD.                        COMFMAV    95
                                                                                                                 COMFMAV    96
          1101  67221                    MAV80    =B2    B2-1                                                    COMFMAV    97
                     0520001073 +                 NZ     B2,MAV50    IF MORE DIMENSIONS TO GO                    COMFMAV    98
                                                                                                                 COMFMAV    99
          1102  54351                    MAV90    =A3    A5+WC.W-WB.W                                            COMFMAV   100
                     20336                        HX3    WC.CTYP                                                 COMFMAV   101
                          0323001060 +            PL     X3,MAV20    IF NOT PASSED-LENGTH CHARACTER FORMAL       COMFMAV   102
                                                  LX3    1+WC.CTYPP-WC.CLENP                                     COMFMAV   103
          1103  0100001105 +                      RJ     MVD         MARK CLEN VD.                               COMFMAV   104
          1104  0400001060 +                      EQ     MAV20                                                   COMFMAV   105
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    36
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              MVD 
  
                                        **        MVD - MARK VARDIM AS ALLOWED FOR THIS ENTRY.                   COMFMAV   107
                                        *                                                                        COMFMAV   108
                                        *         ENTRY - X3 CONTAINS VD. BIAS, RIGHT JUSTIFIED.                 COMFMAV   109
                                        *                                                                        COMFMAV   110
                                        *         PRESERVES - X1,X2,X5, A1,A2,A5, B4,B7                          COMFMAV   111
                                                                                                                 COMFMAV   112
          1105  0400401105 +             MVD      SUBR                                                           COMFMAV   113
          1106  43052                             MX0    -WC.CLENL                                               COMFMAV   114
                     15630                        BX6    -X0*X3                                                  COMFMAV   115
                          5130000000 X            SA3    "O$"VDI                                                 COMFMAV   116
          1107  43401                             CLAS=  X4,VD,ALO                                               COMFMAV   117
                          36036                   IX0    X3+X6                                                   COMFMAV   118
                               53300              SA3    X0                                                      COMFMAV   119
          1110  12643                             BX6    X4+X3                                                   COMFMAV   120
                     54630                        SA6    A3          ALO[VDI(ORD)] = 1                           COMFMAV   121
                          0400001105 +            EQ     EXIT.                                                   COMFMAV   122
                                         COMFMAV  ENDX                                                           COMFMAV   123
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    37
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              OSI 
  
                                        **        OSI - ISSUE SUB INDEX TABLE.                                   CCGC      586
                                                                                                                 CCGC      587
          1111  0400401111 +             OSI      SUBR                                                           CCGC      588
          1112  5160001171 +                      SA6    OSIA                                                    CCGC      589
                          43700                   MX7    0                                                       CCGC      590
          1113  5170000000 X                      SA7    =XL$TST                                                 CCGC      591
                          5170001172 +            SA7    OSIB                                                    CCGC      592
          1114  5110000000 X                      SA1    =XN.CPL                                                 CCGC      593
                          73111                   SX1    X1+B1                                                   CCGC      594
          1115  5100000000 X                      ALLOC  TST,X1                                                  CCGC      595
          1116  43700                             MX7    0                                                       CCGC      596
                     54730                        SA7    A3          L$TST = 0                                   CCGC      597
                                                                                                                 CCGC      598
                                        *         ISSUE CPL WORD FOR EACH FORMAL PARAMETER.                      CCGC      599
                                                                                                                 CCGC      600
                          5110000000 X            SA1    =XO$ENTP                                                CCGC      601
          1117  5120000000 X                      SA2    =XL$ENTP                                                CCGC      602
                          36012                   IX0    X1+X2                                                   CCGC      603
          1120  5251777776                        SA5    X1-1                                                    CCGC      604
                          63500                   SB5    X0                                                      CCGC      605
          1121  0400001134 +                      EQ     OSI20                                                   CCGC      606
                                                                                                                 CCGC      607
                                        *         ISSUE ZERO TERMINATOR FOR THIS LIST.                           CCGC      608
                                                                                                                 CCGC      609
          1122  5120001172 +             OSI10    SA2    OSIB                                                    CCGC      610
                          5130000000 X            SA3    L$TST                                                   CCGC      611
          1123  37132                             IX1    X3-X2                                                   CCGC      612
                     0301001134 +                 ZR     X1,OSI20    IF NO SUBS THIS LIST                        CCGC      613
                               43101              MX1    1                                                       CCGC      614
          1124  5100000000 X                      ADDWRD TST,X1                                                  CCGC      615
          1125  5110001172 +                      SA1    OSIB                                                    CCGC      616
                          63210                   SB2    X1                                                      CCGC      617
          1126  5110000000 X                      SA1    =XO$TST                                                 CCGC      618
                          5130000000 X            SA3    L$TST                                                   CCGC      619
          1127  0100001204 +                      RJ     SLE         SQUEEZE LAST ENTRY IF POSSIBLE              CCGC      620
          1130  5160001172 +                      SA6    OSIB                                                    CCGC      621
                          5160000000 X            SA6    L$TST                                                   CCGC      622
          1131  76621                             SX6    B2+B1                                                   CCGC      623
                     5110001173 +                 SA1    OSIC                                                    CCGC      624
                               53210              SA2    X1                                                      CCGC      625
          1132  5110001171 +                      SA1    OSIA                                                    CCGC      626
                          5211001174 +            SA1    OSIS+X1                                                 CCGC      627
          1133  63310                             SB3    X1                                                      CCGC      628
                     22636                        LX6    B3                                                      CCGC      629
                          12726                   BX7    X2+X6                                                   CCGC      630
                               54720              SA7    A2          SUBI[ENTP(I)] = OLD SUBI LEN                CCGC      631
                                                                                                                 CCGC      632
          1134  64351                    OSI20    SB3    A5+B1                                                   CCGC      633
                     76630                        SX6    B3                                                      CCGC      634
                          5160001173 +            SA6    OSIC        SAVE HEADER ADDRESS                         CCGC      635
          1135  67635                             SB6    B3-B5                                                   CCGC      636
                     0460001155 +                 ZR     B6,OSI50    IF END OF ENTP                              CCGC      637
                               56531              SA5    B3+B1       SKIP HEADER                                 CCGC      638
          1136  6140000074                        SB4    60                                                      CCGC      639
                                                                                                                 CCGC      640
          1137  0540001141 +             OSI30    NZ     B4,OSI40    IF THIS WORD NOT EXHAUSTED                  CCGC      641
                          6140000074              SB4    60                                                      CCGC      642
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    38
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              OSI 
  
          1140  5055000001                        SA5    A5+1                                                    CCGC      643
                                                                                                                 CCGC      644
          1141  6144777760               OSI40    SB4    B4-15                                                   CCGC      645
                          43055                   MX0    -EF.ORDL                                                CCGC      646
                               23345              AX3    B4,X5                                                   CCGC      647
          1142  15630                             BX6    -X0*X3                                                  CCGC      648
                     0306001122 +                 ZR     X6,OSI10    IF END OF LIST                              CCGC      649
          1143  5110000000 X                      SA1    O$SYM                                                   CCGC      650
                          22716                   LX7    B1,X6                                                   CCGC      651
                               36376              IX3    X7+X6                                                   CCGC      652
          1144  63711                             =B7    X1+WB.W                                                 CCGC      653
                     53137                        SA1    B7+X3                                                   CCGC      654
                          43063                   MX0    -WB.FPNOL                                               CCGC      655
          1145  5120000000 X                      SA2    =XO$FPI                                                 CCGC      656
                          20133                   LX1    -WB.FPNOP                                               CCGC      657
                               15110              BX1    -X0*X1                                                  CCGC      658
          1146  36312                             IX3    X1+X2                                                   CCGC      659
                     5233777776                   SA3    X3-1                                                    CCGC      660
          1147  5140001171 +                      SA4    OSIA                                                    CCGC      661
                          5224001202 +            SA2    OSIM3+X4                                                FC5A400     8
          1150  5214001200 +                      SA1    OSIM2+X4                                                CCGC      663
                          11013                   BX0    X1*X3                                                   CCGC      666
          1151  0300001137 +                      ZR     X0,OSI30    IF FP NOT APPLICABLE                        CCGC      667
                          11023                   BX0    X2*X3                                                   FC5A400     9
          1152  0300001137 +                      ZR     X0,OSI30    IF SUB0 AND NOT LEVEL = 0                   CCGC      670
                          73160                   ADDWRD TST,X6                                                  CCGC      671
          1154  0400001137 +                      EQ     OSI30                                                   CCGC      672
                                                                                                                 CCGC      673
          1155  5110000000 X             OSI50    SA1    L$TST                                                   CCGC      674
                          5120000000 X            SA2    O$TST                                                   CCGC      675
                                                                                                                 CCGC      676
                                        *         LOOP THROUGH TEMP. SUB TABLE AND ISSUE SUB INDEX TABLE.        CCGC      677
                                                                                                                 CCGC      678
          1156  43700                             MX7    0                                                       CCGC      679
                     36012                        IX0    X1+X2                                                   CCGC      680
                          54710                   SA7    A1          L$TST = 0                                   CCGC      681
                               53700              SA7    X0          ZERO TERMINATE TST                          CCGC      682
          1157  5242777776                        SA4    X2-1                                                    CCGC      683
                                                                                                                 CCGC      684
          1160  54441                    OSI60    SA4    A4+B1                                                   CCGC      685
                     0304001111 +                 ZR     X4,EXIT.    IF TST TERMINATOR                           CCGC      686
          1161  0334001166 +                      MI     X4,OSI70    IF SUBLIST TERMINATOR                       CCGC      687
                          5110001171 +            SA1    OSIA                                                    CCGC      688
          1162  5221001176 +                      SA2    OSIO+X1                                                 CCGC      689
                          10722                   ISSUE  X2,X4                                                   CCGC      690
          1165  0400001160 +                      EQ     OSI60                                                   CCGC      691
                                                                                                                 CCGC      692
          1166  7170000043               OSI70    ISSUE  I.ZERO                                                  CCGC      693
          1170  0400001160 +                      EQ     OSI60                                                   CCGC      694
                                                                                                                 CCGC      695
          1171                     1     OSIA     BSS    1                                                       CCGC      696
          1172                     1     OSIB     BSSZ   1                                                       CCGC      697
          1173                     1     OSIC     BSS    1                                                       CCGC      698
          1174  00000000000000000041     OSIS     CON    EH.SUBIP,EH.SB0IP                                       CCGC      699
          1175  00000000000000000022
          1176  00000000000000000037     OSIO     CON    I.SUBI,I.SB0I                                           CCGC      700
          1177  00000000000000000040
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    39
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              OSI 
  
          1200                           OSIM2    BFMW   FP,LEN                                                  CCGC      703
          1201                                    BFMW   FP,(LC,VD,SUB0)                                         CCGC      704
          1202  77777777777777777777     OSIM3    VFD    60/-0                                                   CCGC      705
          1203                                    BFMW   FP,LEV0                                                 CCGC      706
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    40
        COMFMAV - MARK VARDIM APPROPRIATE TO THIS ENTRY.              SLE 
  
                                        *         SLE - SQUEEZE LAST TABLE ENTRY.                                CCGC      708
                                        *                                                                        CCGC      709
                                        *         ENTRY  A1,X1 = TABLE FWA                                       CCGC      710
                                        *                A3,X3 = TABLE LENGTH (INCLUDING NEW ENTRY)              CCGC      711
                                        *                B2 = INDEX OF NEW ENTRY (LENGTH WITHOUT NEW ENTRY)      CCGC      712
                                        *                                                                        CCGC      713
                                        *         EXIT   X6 = LENGTH INCLUDING NEW ENTRY IF NOT ALREADY PRESENT  CCGC      714
                                        *                B2 = INDEX OF ENTRY (SQUEEZED OR NOT)                   CCGC      715
                                        *                                                                        CCGC      716
                                        *         PRESERVES A4,A5, X4,X5 ,B5                                     CCGC      717
                                                                                                                 CCGC      718
          1204  0400401204 +             SLE      SUBR                                                           CCGC      719
          1205  10633                             BX6    X3                                                      CCGC      720
                     63330                        SB3    X3                                                      CCGC      721
                          0423001204 +            EQ     B2,B3,EXIT. IF NOTHING ADDED                            CCGC      722
          1206  67432                             SB4    B3-B2                                                   CCGC      723
                     67324                        SB3    B2-B4                                                   CCGC      724
                          0724001204 +            LT     B2,B4,EXIT. IF NOT ENOUGH ROOM FOR POSSIBLE COPY        CCGC      725
                                                                                                                 CCGC      726
          1207  53212                    SLE10    SA2    X1+B2                                                   CCGC      727
                     67741                        SB7    B4-B1                                                   CCGC      728
                          53313                   SA3    X1+B3                                                   CCGC      729
                                                                                                                 CCGC      730
                                        *         SCAN BACKWARDS FOR COPY OF FIRST ELEMENT OF NEW ENTRY.         CCGC      731
                                                                                                                 CCGC      732
          1210  13732                    SLE20    BX7    X3-X2                                                   CCGC      733
                     55331                        =A3    A3-1                                                    CCGC      734
                          0730001204 +            MI     B3,EXIT.    IF BEGINNING OF TABLE - NO HIT              CCGC      735
          1211  67331                             =B3    B3-1                                                    CCGC      736
                     0317001210 +                 NZ     X7,SLE20    IF NOT MATCH                                CCGC      737
                               74031              =X0    A3+1                                                    CCGC      738
          1212  54221                             =A2    A2+1                                                    CCGC      739
                     53301                        =A3    X0+1                                                    CCGC      740
                                                                                                                 CCGC      741
          1213  0470001217 +             SLE30    ZR     B7,SLE40    IF WHOLE ENTRY MATCHES                      CCGC      742
                          13723                   BX7    X2-X3                                                   CCGC      743
                               67771              =B7    B7-1                                                    CCGC      744
          1214  54221                             =A2    A2+1                                                    CCGC      745
                     54331                        =A3    A3+1                                                    CCGC      746
                          0307001213 +            ZR     X7,SLE30    IF MATCH                                    CCGC      747
                                                                                                                 CCGC      748
                                        *         START LOOKING FOR FIRST ELEMENT AGAIN.                         CCGC      749
                                                                                                                 CCGC      750
          1215  37301                             IX3    X0-X1                                                   CCGC      751
                     6233777776                   SB3    X3-1                                                    CCGC      752
          1216  0400001207 +                      EQ     SLE10                                                   CCGC      753
                                                                                                                 CCGC      754
          1217  76620                    SLE40    SX6    B2          NEW LENGTH                                  CCGC      755
                     37301                        IX3    X0-X1                                                   CCGC      756
                          63230                   SB2    X3          BIAS                                        CCGC      757
          1220  0400001204 +                      EQ     EXIT.                                                   CCGC      758
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    41
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            OSC 
  
          1220                           OSC      CTEXT  COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.      COMFOSC     2
                                        **        OSC - OUTPUT SUB CODE.                                         COMFOSC     3
                                        *                                                                        COMFOSC     4
                                        *         ENTRY  X4 = SYMTAB ORDINAL OF ENTRY                            COMFOSC     5
                                        *                                                                        COMFOSC     6
                                        *         PRESERVES X4                                                   COMFOSC     7
                                                                                                                 COMFOSC     8
          1221  0400401221 +             OSC      SUBR                                                           COMFOSC     9
          1222  5110000016 +                      SA1    =XCC$SUB                                                COMFOSC    10
                          0301001221 +            ZR     X1,EXIT.    IF NO SUBS                                  COMFOSC    11
          1223  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    12
                          22314                   LX3    B1,X4                                                   COMFOSC    13
                               36534              IX5    X3+X4                                                   COMFOSC    14
          1224  63721                             =B7    X2+WB.W                                                 COMFOSC    15
                     53557                        SA5    X5+B7                                                   COMFOSC    16
                          43057                   MX0    -WB.PNTL                                                COMFOSC    17
                               20515              LX5    -WB.PNTP                                                COMFOSC    18
          1225  15650                             BX6    -X0*X5                                                  COMFOSC    19
                     0306001221 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    20
          1226  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    21
                          36616                   IX6    X1+X6                                                   COMFOSC    22
          1227  5226777776                        SA2    X6-1                                                    COMFOSC    23
                          43055                   MX0    -EH.SUBIL                                               COMFOSC    24
                               20233              LX2    -EH.SUBIP                                               COMFOSC    25
          1230  15620                             BX6    -X0*X2                                                  COMFOSC    26
                     0306001221 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    27
          1231  5130000000 X                      SA3    =XS=SUBI                                                COMFOSC    28
                          7266777776              SX6    X6-1                                                    COMFOSC    29
          1232  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    30
                     12136                        BX1    X3+X6                                                   COMFOSC    31
                          7170005110              ISSUE  5110B,X1    SA1 SUBI.+BIAS                              COMFOSC    32
          1235  5110000000 X                      SA1    =XS=SPA                                                 COMFOSC    33
                          7170000035              ISSUE  I.RJ3,X1          RJ SP5.                               COMFOSC    34
          1240  43601                             MX6    1                                                       F2950F5A    7
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A    8
          1241  0400001221 +                      EQ     EXIT.                                                   COMFOSC    35
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    42
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            OZC 
  
                                        **        OZC - OUTPUT SUB0 CODE.                                        COMFOSC    37
                                        *                                                                        COMFOSC    38
                                        *         ENTRY  X4 = SYMTAB ORDINAL OF ENTRY                            COMFOSC    39
                                        *                                                                        COMFOSC    40
                                        *         PRESERVES X4                                                   COMFOSC    41
                                                                                                                 COMFOSC    42
          1242  0400401242 +             OZC      SUBR                                                           COMFOSC    43
          1243  5110000000 X                      SA1    =XLEVEL0                                                COMFOSC    44
                          0301001242 +            ZR     X1,EXIT.    IF NO SUB0                                  COMFOSC    45
                                         #MD      IFEQ   .DAL,1                                                  COMFOSC    46
          1244  5120000000 X                      SA2    =X"O$"SYM                                               COMFOSC    47
                          22314                   LX3    B1,X4                                                   COMFOSC    48
                               36534              IX5    X3+X4                                                   COMFOSC    49
          1245  63721                             =B7    X2+WB.W                                                 COMFOSC    50
                     53557                        SA5    X5+B7                                                   COMFOSC    51
                          43057                   MX0    -WB.PNTL                                                COMFOSC    52
                               20515              LX5    -WB.PNTP                                                COMFOSC    53
          1246  15650                             BX6    -X0*X5                                                  COMFOSC    54
                     0306001242 +                 ZR     X6,EXIT.    IF NO FP*S THIS ENTRY                       COMFOSC    55
          1247  5110000000 X                      SA1    =X"O$"ENTP                                              COMFOSC    56
                          36616                   IX6    X1+X6                                                   COMFOSC    57
          1250  5226777776                        SA2    X6-1                                                    COMFOSC    58
                          43055                   MX0    -EH.SB0IL                                               COMFOSC    59
                               20252              LX2    -EH.SB0IP                                               COMFOSC    60
          1251  15620                             BX6    -X0*X2                                                  COMFOSC    61
                     0306001242 +                 ZR     X6,EXIT.    IF NO SUBS FOR THIS ENTRY                   COMFOSC    62
          1252  5130000000 X                      SA3    =XS=SUB0I                                               COMFOSC    63
                          7266777776              SX6    X6-1                                                    COMFOSC    64
          1253  20652                             LX6    PB.BIASP-PB.TAGP                                        COMFOSC    65
                     12136                        BX1    X3+X6                                                   COMFOSC    66
                          7170005110              ISSUE  5110B,X1    SA1 SUB0I.+BIAS                             COMFOSC    67
          1256  5110000000 X                      SA1    =XS=SLI                                                 COMFOSC    68
                          7170000035              ISSUE  I.RJ3,X1          RJ SLI.                               COMFOSC    69
          1261  43601                             MX6    1                                                       F2950F5A    9
                     5160000000 X                 SA6    =XENTRJ     FLAG RJ ISSUED                              F2950F5A   10
          1262  0400001242 +                      EQ     EXIT.                                                   COMFOSC    70
                                         #MD      ELSE                                                           COMFOSC    71
                                         .TEST    IFEQ   TEST,1,1                                                COMFOSC    72
                                                  EQ     "BLOWUP"                                                COMFOSC    73
                                         #MD      ENDIF                                                          COMFOSC    74
                                         COMFOSC  ENDX                                                           COMFOSC    75
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    43
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            AFT 
  
                                        **        BR$AFT - CALLED AFTER *SQZ* BY CCG.                            CCGC      761
                                        *                                                                        CCGC      762
                                        *         NORMALLY DO-NOTHING ROUTINE, BUT USED BY MZP TO REGAIN         CCGC      763
                                        *         CONTROL WITH NO CODE GENERATION                                CCGC      764
                                                                                                                 CCGC      765
          1263  0400401263 +             BR$AFT   SUBR   =                                                       CCGC      766
          1264  0400001263 +                      EQ     EXIT.                                                   CCGC      767
  
  
  
  
                                        **        MZP - MARK PARAMETERS USED IN VD. EXPRESSIONS.                 CCGC      769
                                        *         THIS INFORMATION IS NEEDED WHEN OUTPUTING SUB0 INDEX TABLE     CCGC      770
                                        *         SINCE SOME SUB0 REFERENCES HAVE NOT YET BEEN POSTED (FROM VD.  CCGC      771
                                        *         CODE.                                                          CCGC      772
                                                                                                                 CCGC      773
          1265  0400401265 +             MZP      SUBR                                                           CCGC      774
          1266  5130000000 X                      SA3    =XLEVEL0                                                CCGC      775
                          5110000000 X            SA1    =XL$VDT                                                 CCGC      776
          1267  0303001265 +                      ZR     X3,EXIT.    IF NO POSSIBLE SUB0*S                       CCGC      777
                                                                                                                 CCGC      778
                                         #MD      IFEQ   .DAL,1                                                  CCGC      779
                          0301001265 +            ZR     X1,EXIT.    IF NO VARDIM                                CCGC      780
          1270  0100000721 +                      RJ     MVT         MOVE VARDIM TO TXT                          CCGC      781
                                                                                                                 CCGC      782
                                        *         SET *ALLOWED* PROPERTY ON ALL VARDIMS, AS WE WANT              CCGC      783
                                        *         THIS SEQ. TO CONTAIN THE UNION OF VARDIM CODE FROM             CCGC      784
                                        *         ALL ENTRY BLOCKS.                                              CCGC      785
                                                                                                                 CCGC      786
          1271  5120000000 X                      SA2    O$VDI                                                   CCGC      787
                          5130000000 X            SA3    L$VDI                                                   CCGC      788
          1272  63730                             SB7    X3                                                      CCGC      789
                     43001                        CLAS=  X0,VD,ALO                                               CCGC      790
                               53420              SA4    X2                                                      CCGC      791
                                                                                                                 CCGC      792
          1273  12604                    MZP10    BX6    X0+X4                                                   CCGC      793
                     67771                        SB7    B7-B1                                                   CCGC      794
                          54640                   SA6    A4                                                      CCGC      795
                               54441              SA4    A4+B1                                                   CCGC      796
          1274  0570001273 +                      NZ     B7,MZP10    IF VDI NOT EXHAUSTED                        FC50182    11
                          0100000732 +            RJ     MMV         MARK NEEDED VARDIM (SQUEEZE UNNEEDED)       CCGC      798
          1275  7160001301 +                      PLUG   AT=BR$AFT+1,TO=MZP20,VOID=NO                            CCGC      799
          1277  5110000000 X                      SA1    L$TXT                                                   CCGC      800
                          7261777773              SX6    X1-4                                                    CCGC      801
          1300  5160000001 X                      SA6    =XCC$BRN+1                                              CCGC      802
                          0100000000 X            CALL   CG$CPC                                                  CCGC      803
                                                                                                                 CCGC      804
                                        *         REGAIN CONTROL AFTER *SQZ* AND MARK FPS LOADED IN VD. CODE.    CCGC      805
                                                                                                                 CCGC      806
          1301  7160001263 +             MZP20    PLUG   AT=BR$AFT+1,TO=BR$AFT,VOID=NO                           CCGC      807
          1303  7170000004                        SX7    4                                                       CCGC      808
                          5170000000 X            SA7    L$TXT                                                   CCGC      809
          1304  5120000000 X                      SA2    O$TXT                                                   CCGC      810
                          53120                   SA1    X2                                                      CCGC      811
          1305  5140001375 +                      CLAS=  X4,D,(FP,L2,LD)                                         CCGC      812
                          10044                   BX0    X4                                                      CCGC      813
          1306  5140000000 X                      SA4    =XO$FPI                                                 CCGC      814
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    44
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            MZP 
  
                          6274777776              SB7    X4-1                                                    CCGC      815
          1307  5150000000 X                      SA5    =XO$SYM                                                 CCGC      816
                          63651                   =B6    X5+WB.W                                                 CCGC      817
                               43763              MX7    -WB.FPNOL                                               CCGC      818
          1310  43501                             CLAS=  X5,FP,VD                                                CCGC      819
                                                                                                                 CCGC      820
          1311  26121                    MZP30    UX1    B2,X1                                                   CCGC      821
                                   0              ERRNZ  OC.EOQ                                                  CCGC      822
                     5011000002                   SA1    A1+2                                                    CCGC      823
          1312  0420001265 +                      ZR     B2,EXIT.    IF END OF SEQUENCE                          CCGC      824
                          11201                   BX2    X0*X1                                                   CCGC      825
          1313  5011000002                        SA1    A1+2                                                    CCGC      826
                          13302                   BX3    X0-X2                                                   CCGC      827
          1314  0313001311 +                      NZ     X3,MZP30    IF NOT LCM FORMAL LOAD                      CCGC      828
                                                                                                                 CCGC      829
                                        *         SET FP.VD.                                                     CCGC      830
                                                                                                                 CCGC      831
                          5021777774              SA2    A1-3                                                    CCGC      832
                                                  LX2    -IH.IHP                                                 CCGC      833
          1315  73320                             SX3    X2                                                      CCGC      834
                     22413                        LX4    B1,X3                                                   CCGC      835
                          36234                   IX2    X3+X4                                                   CCGC      836
                               53226              SA2    B6+X2       WBI = WB(IH[R2(I)])                         CCGC      837
          1316  20233                             LX2    -WB.FPNOP                                               CCGC      838
                     15327                        BX3    -X7*X2                                                  CCGC      839
                          53237                   SA2    B7+X3       FPI(FPNO[WBI])                              CCGC      840
                               12625              BX6    X2+X5       VD[FPI] = 1                                 CCGC      841
          1317  54620                             SA6    A2                                                      CCGC      842
                     0400001311 +                 EQ     MZP30                                                   CCGC      843
                                         #MD      ELSE                                                           CCGC      844
                                         .TEST    IFEQ   TEST,1,1                                                CCGC      845
                                                  EQ     "BLOWUP"                                                CCGC      846
                                         #MD      ENDIF                                                          CCGC      847
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    45
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            CAW 
  
                                        **        CAW - CONVERT APLIST INDEX TABLE TO WC FORMAT.                 CCGC      849
                                        *                                                                        CCGC      850
                                        *         ENTRY  B5 - 0 FOR APT,  1 FOR IOA.                             CCGC      851
                                                                                                                 CCGC      852
          1320  0400401320 +             CAW      SUBR                                                           CCGC      853
          1321  76100                             ADDWRD APT+B5,B0   ADD SEARCH TERMINATOR                       CCGC      854
          1323  7273777776                        SX7    X3-1                                                    CCGC      855
                          7105000000 X            SX0    =XBN=APL+B5                                             CCGC      856
          1324  53120                             SA1    X2          N = 0                                       CCGC      857
                     63620                        SB6    X2                                                      CCGC      858
                          20060                   LX0    WC.RBP                                                  CCGC      859
                               43500              MX5    0           EQFLAG = 0                                  CCGC      860
          1325  54730                             SA7    A3          L$APT = L$APT - 1                           CCGC      861
                                                                                                                 CCGC      862
                                        *         DEFINE ADDRESSES OF NON-EQUIVALENCED APLISTS.                  CCGC      863
                                                                                                                 CCGC      864
          1326  12551                    CAW10    BX5    X5+X1       EQFLAG = EQFLAG .OR. EQV[APT(N)]            CCGC      865
                     54111                        SA1    A1+B1       N=N+1                                       CCGC      866
                          0301001332 +            ZR     X1,CAW20    IF N GT L$APT                               CCGC      867
                                                  LX1    59-AI.EQVP                                              CCGC      868
          1327  0331001326 +                      MI     X1,CAW10    IF EQV[APT(N)]                              CCGC      869
                                                  LX1    1+AI.EQVP-AI.INDXP                                      CCGC      870
                          73410                   SX4    X1          ILWA1 = INDX[APT(N)]                        CCGC      871
                               20152              LX1    AI.INDXP-AI.LENP                                        CCGC      872
          1330  73310                             SX3    X1          LEN = LEN[APT(N)]                           CCGC      873
                     37643                        IX6    X4-X3                                                   CCGC      874
                          43100                   MX1    0                                                       CCGC      875
                                                  LX6    WC.RAP      RA[APT(N)] = ILWA1 - LEN                    CCGC      876
                               23656              AX6    B5          IOA IS 2 WORDS PER ENTRY                    CCGC      877
          1331  12660                             BX6    X6+X0       RB[APT(N)] = BN=APL                         CCGC      878
                     54610                        SA6    A1                                                      CCGC      879
                          0400001326 +            EQ     CAW10                                                   CCGC      880
                                                                                                                 CCGC      881
                                        *         DEFINE ADDRESSES OF EQV. ENTRYIES.                             CCGC      882
                                                                                                                 CCGC      883
          1332  0325001320 +             CAW20    PL     X5,EXIT.    IF .NOT. EQFLAG                             CCGC      884
                          5156000000              SA5    B6+         N=0                                         CCGC      885
                                                                                                                 CCGC      886
          1333  54551                    CAW30    SA5    A5+B1       N = N + 1                                   CCGC      887
                     0305001320 +                 ZR     X5,EXIT.    IF N GT L$APT                               CCGC      888
                                                  LX5    59-AI.EQVP                                              CCGC      889
          1334  0325001333 +                      PL     X5,CAW30    IF NOT EQV[APT(N)]                          CCGC      890
                          66300                   SB3    B0          CA = 0                                      CCGC      891
                               10155              BX1    X5          L = N                                       CCGC      892
                                                                                                                 CCGC      893
                                         CAW40    LX1    1+AI.EQVP-AI.ORDP                                       CCGC      894
          1335  63710                             SB7    X1                                                      CCGC      895
                     20152                        LX1    AI.ORDP-AI.BIASP                                        CCGC      896
                          63313                   SB3    B3+X1       CA = CA + BIAS[APT(L)]                      CCGC      897
                               56167              SA1    B6+B7       L=ORD[APT(L)]                               CCGC      898
                                                  LX1    59-AI.EQVP                                              CCGC      899
          1336  0331001335 +                      MI     X1,CAW40    IF EQV[APT(L)]                              CCGC      900
                          76230                   SX2    B3                                                      CCGC      901
                               23252              AX2    B5          IOA 2-WORD/ENTRY                            CCGC      902
                                                  LX1    1+AI.EQVP                                               CCGC      903
                                                  LX2    WC.RAP                                                  CCGC      904
          1337  36612                             IX6    X1+X2       RA[APT(N)] = RA[APT)] + CA                  CCGC      905
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    46
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            CAW 
  
                     54650                        SA6    A5                                                      CCGC      906
                          0400001333 +            EQ     CAW30                                                   CCGC      907
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    47
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            MEP 
  
                                        *         MEP - MISCELLANEOUS END PROCESSING FOR CCG MODE ONLY.          CCGC      909
                                        *         PASS 3 TYPE PROCESSING THAT MUST BE PERFORMED IN PASS 2.       CCGC      910
                                                                                                                 CCGC      911
          1340  0400401340 +             MEP      SUBR                                                           CCGC      912
                                                                                                                 CCGC      913
                                        *         SET LENGTH OF RUN-TIME CONSTANT TABLE FOR PASS3.               CCGC      914
                                                                                                                 CCGC      915
          1341  5110000000 X                      SA1    =XL$CUT                                                 CCGC      916
                          5120000000 X            SA2    =XO$CUT                                                 CCGC      917
          1342  43600                             MX6    0                                                       CCGC      918
                     0301001345 +                 ZR     X1,MEP10    IF NO CONSTANTS                             CCGC      919
                               63210              SB2    X1                                                      CCGC      920
                                                                                                                 CCGC      921
          1343  6122777776               MEP5     SB2    B2-1                                                    CCGC      922
                          53122                   SA1    X2+B2                                                   CCGC      923
                               36661              IX6    X6+X1       N.CON = N.CON + CUT(I)                      CCGC      924
          1344  0520001343 +                      NZ     B2,MEP5     IF NOT TOP OF CUT                           CCGC      925
                                                                                                                 CCGC      926
          1345  5160000000 X             MEP10    SA6    =XN.CON                                                 CCGC      927
                                                                                                                 CCGC      928
                          5130000000 X            SA3    =XCC$PC                                                 CCGC      929
          1346  5140000000 X                      SA4    =XCC$BLEN                                               CCGC      930
                          5120000000 X            SA2    =XCC$LBO                                                CCGC      931
          1347  20322                             LX3    18                                                      CCGC      932
                     12634                        BX6    X3+X4                                                   CCGC      933
                          5262000000 X            SA6    =XF$LBT+X2                                              CCGC      934
          1350  0100000000 X                      CALL   CG$IEP                                                  CCGC      935
          1351  0100001353 +                      RJ     MDV         REFORMAT APPROPRIATE VD POINTERS IN DIMTAB  CCGC      936
          1352  0400001340 +                      EQ     EXIT.                                                   CCGC      937
  
  
  
  
                                        **        MDV - MARK CERTAIN DIMTAB-RESIDENT VARDIMS AS NEEDED.          CCGC      939
                                        *                                                                        CCGC      940
                                        *         MDV MARKS SPAN AND LOWER BOUND OF *MAT* DIMTAB AS              CCGC      941
                                        *         NEEDED.                                                        CCGC      942
                                        *                                                                        CCGC      943
                                                                                                                 CCGC      944
          1353  0400401353 +             MDV      SUBR                                                           CCGC      945
          1354  43044                             MX0    -DM.INFL                                                FC5A231   156
                     5120000000 X                 SA2    =XO$DIM                                                 CCGC      947
          1355  5130000000 X                      SA3    =XL$DIM                                                 CCGC      948
                          36723                   IX7    X2+X3                                                   CCGC      949
                               63770              SB7    X7                                                      CCGC      950
          1356  5222777776                        SA2    X2-1                                                    CCGC      951
                                                                                                                 CCGC      952
          1357  54221                    MDV5     SA2    A2+B1                                                   CCGC      953
                     65227                        SB2    A2-B7                                                   CCGC      954
                          0420001353 +            ZR     B2,EXIT.    IF DIMTAB EXHAUSTED                         CCGC      955
          1360  10422                             BX4    X2                                                      CCGC      956
                                                  HX4    DH.VD                                                   CCGC      957
                                                  LX2    -DH.DIMP                                                CCGC      958
                     43366                        MX3    -DH.DIML                                                CCGC      959
                          15323                   BX3    -X3*X2                                                  CCGC      960
          1361  0324001373 +                      PL     X4,MDV40    IF NOT VARDIM                               CCGC      961
                          20403                   LX4    DH.VDP-DH.MATP                                          CCGC      962
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    48
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            MDV 
  
          1362  0324001373 +                      PL     X4,MDV40    IF NOT NEEDED                               CCGC      963
                          63630                   SB6    X3                                                      CCGC      964
                                                                                                                 CCGC      965
          1363  54221                    MDV10    =A2    A2+1                                                    CCGC      966
                     20236                        LX2    59-D1.SPANP-DM.TDP                                      FC5A231   157
                          0322001366 +            PL     X2,MDV20    IF NOT VARIABLE SPAN                        CCGC      968
          1364  20236                             LX2    1+DM.TDP                                                FC5A231   158
                     15120                        BX1    -X0*X2                                                  CCGC      970
                          0100000000 X            CALL   CG$AVO                                                  CCGC      971
          1365  11602                             BX6    X0*X2       CLEAR CA                                    CCGC      972
                     12616                        BX6    X1+X6       NEW CA FROM AVO                             CCGC      973
                                                  LX6    D1.SPANP                                                CCGC      974
                          54620                   SA6    A2                                                      CCGC      975
                                                                                                                 CCGC      976
          1366  54221                    MDV20    =A2    A2+1                                                    CCGC      977
                                                  LX2    59-D2.LBP-DM.TDP                                        FC5A231   159
                     0322001371 +                 PL     X2,MDV30    IF NOT VARIABLE LOWER BOUND                 CCGC      979
                               20236              LX2    1+DM.TDP                                                FC5A231   160
          1367  15120                             BX1    -X0*X2                                                  CCGC      981
                     0100000000 X                 CALL   CG$AVO                                                  CCGC      982
          1370  11602                             BX6    X0*X2       CLEAR CA                                    CCGC      983
                     12616                        BX6    X1+X6       NEW CA FROM AVO                             CCGC      984
                          20636                   LX6    D2.LBP                                                  CCGC      985
                               54620              SA6    A2                                                      CCGC      986
                                                                                                                 CCGC      987
          1371  67661                    MDV30    =B6    B6-1                                                    CCGC      988
                     0560001363 +                 NZ     B6,MDV10    IF MORE DIMENSIONS TO GO                    CCGC      989
          1372  0400001357 +                      EQ     MDV5                                                    CCGC      990
                                                                                                                 CCGC      991
          1373  22413                    MDV40    LX4    B1,X3                                                   CCGC      992
                                   0              ERRNZ  Z=DD-2                                                  CCGC      993
                     63640                        SB6    X4                                                      CCGC      994
                          54226                   SA2    A2+B6                                                   CCGC      995
          1374  0400001357 +                      EQ     MDV5                                                    CCGC      996
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    49
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            OUTPTK
  
                                                                                                                 CCGC      998
                                                                                                                 CCGC      999
                                                  LIST   D                                                       CCGC     1000
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        CG$GPO
             0 X                        O$CLW 
             0 X                        L$CLW 
             0 X                        O=CLW 
             0 X                        L=CLW 
             0 X                        O$CAC 
             0 X                        L$CAC 
             0 X                        O=CAC 
             0 X                        L=CAC 
             0 X                        O$APL 
             0 X                        L$APL 
             0 X                        O$IOA 
             0 X                        L$IOA 
             0 X                        O$APT 
             0 X                        L$APT 
             0 X                        O$IOT 
             0 X                        L$IOT 
             0 X                        O$GLT 
             0 X                        L$GLT 
             0 X                        O$ASG 
             0 X                        L$ASG 
             0 X                        O$CVT 
             0 X                        L$CVT 
             0 X                        O$CUT 
             0 X                        L$CUT 
             0 X                        O=CUT 
             0 X                        L=CUT 
             0 X                        L$SYM 
             0 X                        O$CBT 
             0 X                        L$CBT 
             0 X                        O$NLST
             0 X                        L$NLST
             0 X                        O$DIM 
             0 X                        L$DIM 
             0 X                        O=DIM 
             0 X                        L=DIM 
             0 X                        O$ENTP
             0 X                        L$ENTP
             0 X                        O=ENTP
             0 X                        L=ENTP
             0 X                        O$FPI 
             0 X                        L$FPI 
             0 X                        O=FPI 
             0 X                        L=FPI 
             0 X                        O$VDI 
             0 X                        L$VDI 
             0 X                        O=VDI 
             0 X                        L=VDI 
             0 X                        O$FE
             0 X                        L$FE
             0 X                        O=FE
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    50
        COMFOSC - ISSUE SUB AND SUB0 CODE AT ENTRY POINTS.            LITERALS
  
             0 X                        L=FE
             0 X                        O$RND 
             0 X                        L$RND 
             0 X                        N.CTMAX 
             0 X                        N$IT
             0 X                        N$OT
             0 X                        N$LC
             0 X                        BN=STRT 
             0 X                        CG$CUB
             0 X                        BN=SUB
             0 X                        S=SUB0I 
             0 X                        BN=CODE 
             0 X                        ENTRJ 
             0 X                        Z$GLT 
             0 X                        ADW$
             0 X                        Z$TXT 
             0 X                        ATS$
             0 X                        CC$BRN
             0 X                        CG$CPC
             0 X                        L$VDT 
             0 X                        L$TXT 
             0 X                        O$VDT 
             0 X                        MVE=
             0 X                        O$TXT 
             0 X                        F$RDT 
             0 X                        CO.DBID 
             0 X                        S=SA1 
             0 X                        N.EPL 
             0 X                        N.FP
             0 X                        S=SA0 
             0 X                        L$TST 
             0 X                        N.CPL 
             0 X                        Z$TST 
             0 X                        O$TST 
             0 X                        LEVEL0
             0 X                        S=SLI 
             0 X                        Z$APT 
             0 X                        BN=APL
             0 X                        N.CON 
             0 X                        F$LBT 
             0 X                        CG$IEP
             0 X                        CG$AVO
  
                                        CONTENT OF LITERALS BLOCK.
  
          1375  00000001400010000000       A5 H 
  
          1376                                    END                                                            CCGC     1001
  
                             71000B CM  STORAGE USED             5666 STATEMENTS     2079 SYMBOLS      000029 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            3.986 SECONDS        1269 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADW$            0   EXTERNAL*      25/38     37/30     38/26     45/06
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    51
        SYMBOLIC REFERENCE TABLE. 
  
        AI.BASEP       72                  24/06 D
        AI.BIASL       22                  24/12 D
        AI.BIASP       22                  24/12 D   45/48
        AI.EQVP        73                  24/05 D
        AI.INDXL       22                  24/10 D   24/13
        AI.INDXP        0                  24/10 D   24/13     45/24
        AI.LENL        22                  24/09 D   24/12
        AI.LENP        22                  24/09 D   24/12     45/24
        AI.LINKL       22                  24/08 D
        AI.LINKP       44                  24/08 D
        AI.ORDL        22                  24/13 D
        AI.ORDP         0                  24/13 D   45/48
        ATS$            0   EXTERNAL*      27/27     30/14     37/10
        BN=APL          0   EXTERNAL*      45/08
        BN=BUF          0   EXTERNAL*       2/27 X   19/33
        BN=CODE         0   EXTERNAL*      24/49
        BN=STRT         0   EXTERNAL*      24/19     24/31     24/41
        BN=SUB          0   EXTERNAL*      24/25
        BN=TEM          0   EXTERNAL*       2/27 X   19/15     24/27     24/36     24/36
        BRIDGE          0   EXTERNAL*       2/15 X    3/09
        BR$AFT       1263   PROGRAM*       43/06 L   43/06 E   43/42 S   43/50     43/50 S
        B1=1            0 
        CAW          1320   PROGRAM*       26/03     26/05     45/05 L
        CAW10        1326   PROGRAM*       45/17 L   45/21     45/32
        CAW20        1332   PROGRAM*       45/19     45/36 L
        CAW30        1333   PROGRAM*       45/39 L   45/42     46/02
        CAW40        1335   PROGRAM*       45/46 L   45/52
        CBI             0   EXTERNAL*      12/21 S   17/08     18/15 D   21/26     21/51 S
        CCGC           25   PROGRAM*        3/06 L    3/06 E
        CCG2           32   PROGRAM*        3/12      3/14      3/16 L
        CCG4           33   PROGRAM*        3/20 L    5/43
        CC$BLEN         0   EXTERNAL*      18/12     47/22
        CC$BRN          0   EXTERNAL*      29/04 S   29/56 S   43/45 S
        CC$FT          15   PROGRAM*        2/46 L    2/46 E
        CC$LBO          0   EXTERNAL*      18/15     47/23
        CC$PC           0   EXTERNAL*      18/13     47/21
        CC$SUB         16   PROGRAM*        2/47 L    2/47 E   24/22     41/09
        CC$SUB0        17   PROGRAM*        2/48 L    2/48 E
        CDD             0   EXTERNAL*       2/36 X    6/15
        CGL.RTN         0   EXTERNAL*       2/18 X    4/25
        CG$AVO          0   EXTERNAL*      48/09     48/20
        CG$CPC          0   EXTERNAL*      29/06     29/57     43/46
        CG$CUB          0   EXTERNAL*      24/20
        CG$GPO          0   EXTERNAL*       3/15
        CG$IEP          0   EXTERNAL*      47/27
        CO.DBID         0   EXTERNAL*      32/07     32/28     33/17
        CO.SNAP         0   EXTERNAL*       2/21 X
        CP#RM           0   CTX             7/29 F
        DH.DIML         6   FTX            35/15     47/54
        DH.DIMP         0   FTX            35/14
        DH.MATP        70   FTX            47/57
        DH.PSP         36   FTX            35/11
        DH.VDP         73   FTX            35/08     47/57
        DH.VPP         71   FTX            35/08     35/11     35/14
        DM.INFL        30   FTX            47/41
        DM.TDP         35   FTX            35/20     35/22     35/30     35/36     48/05     48/07     48/18
        DPT           111   PROGRAM*        5/06 L   17/51
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    52
        SYMBOLIC REFERENCE TABLE. 
  
        D1.SPANP        0   FTX            35/20     48/05
        D2.LBP         36   FTX            35/33     48/23
        D2.UBP          0   FTX            35/33
        D.FPL           1   CTX            43/55
        D.FPP          25   CTX            43/55
        D.LDL           1   CTX            43/55
        D.LDP          43   CTX            43/55
        D.L2L           1   CTX            43/55
        D.L2P          44   CTX            43/55
        D.STP          42   CTX            30/37
        EF.ORDL        17   FTX            27/55     34/48     38/04
        EH.BIASL       22   FTX            33/03
        EH.SB0IL       17   FTX            42/23
        EH.SB0IP       22   FTX            38/54     42/24
        EH.SUBIL       17   FTX            41/23
        EH.SUBIP       41   FTX            38/54     41/24
        ENTRJ           0   EXTERNAL*      25/24 S   25/36     33/24 S   41/35 S   42/35 S
        ERR22           0   EXTERNAL*       2/18 X    5/42 S
        FA=LOL        114   PROGRAM*        5/21 L    5/21 E
        FP.CAL          6   FTX            28/26
        FP.CAP         62   FTX            28/25
        FP.LCL          1   FTX            28/13     39/02
        FP.LCP         72   FTX            28/13     28/25     39/02
        FP.LENL        16   FTX            39/01
        FP.LENP        44   FTX            39/01
        FP.LEV0L        1   FTX            39/04
        FP.LEV0P       70   FTX            39/04
        FP.SUB0L       22   FTX            39/02
        FP.SUB0P       22   FTX            39/02
        FP.VDL          1   FTX            39/02
        FP.VDP         71   FTX            39/02     44/05
        FSU#            0   EXTERNAL*      16/34 X   16/35
        F$LBT           0   EXTERNAL*      47/26 S
        F$RDT           0   EXTERNAL*      27/37     29/25     30/41
        F$STITL         0   PROGRAM*        2/41 L    2/41 E
        F.LBT           0   EXTERNAL*       2/27 X   21/32     21/48
        F.PB            0   EXTERNAL*       2/21 X   11/09     11/12
        HE1           123   PROGRAM*        5/36      5/42 L
        HE$ABT        120   PROGRAM*        5/34 L    5/34 E
        HE$CTX        122   PROGRAM*        5/38 L    5/38 E
        HE$EPX        122   PROGRAM*        5/39 L    5/39 E
        HO$DC          20   PROGRAM*        2/49 L    2/49 E
        HO$OBO         21   PROGRAM*        2/50 L    2/50 E
        HO$OFLL        22   PROGRAM*        2/51 L    2/51 E
        HO$OPT         23   PROGRAM*        2/52 L    2/52 E    3/10
        HR$LDC        124   PROGRAM*        5/55 L    5/55 E
        IDENT           0   EXTERNAL*       2/27 X    6/01
        IH.CAP         22   CTX            28/43     28/49     28/52     30/54     31/06
        IH.IHP          0   CTX            28/49
        ISA           750   PROGRAM*       25/26     32/06 L   32/06 E
        ISA05         757   PROGRAM*       32/08     32/13 L
        ISA15         760   PROGRAM*       32/16 L   32/44
        ISA17         763   PROGRAM*       32/17     32/24 L
        ISA20        1001   PROGRAM*       32/14     32/35 L
        ISA30        1017   PROGRAM*       32/50     33/02 L
        ISA35        1045   PROGRAM*       33/18     33/22 D
        ITS           413   PROGRAM*       20/03 D   20/08 E   26/06
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    53
        SYMBOLIC REFERENCE TABLE. 
  
        I.BCI          21   FTX            29/05     29/53     29/53
        I.BSS          24   FTX            24/26     24/28     24/37     25/18     25/41
        I.ECI          26   FTX            24/21     29/07     29/07     30/01
        I.EMI          27   FTX            25/56
        I.GL       100000   CTX            25/16
        I.RJ3          35   FTX            25/40     33/16     41/33     42/33
        I.SB0I         40   FTX            38/56
        I.SUBI         37   FTX            38/56
        I.UJP          41   FTX            25/19     25/19     25/51
        I.USE          42   FTX            24/25     24/27     24/31     24/36     24/41     24/49
        I.ZERO         43   FTX            25/42     25/42     38/48
        K=PFX      100000   FTX            12/50     12/54     19/25
        K.GL       100000   FTX            25/39
        K.SYM           0   FTX            12/50     12/54     19/25
        LB.ORGL        22   FTX            21/28     21/50     21/52
        LB.ORGP         0   FTX            21/50
        LB.PARCL        6   FTX            21/27     21/55
        LB.PARCP       66   FTX            21/29     21/38
        LDCA          150   PROGRAM*        5/56      6/12 S    6/23      6/28 L
        LDCB          155   PROGRAM*        5/57      6/29 L
        LDCC          160   PROGRAM*        6/08      6/30 L
        LDCD          162   PROGRAM*        6/06 S    6/31 L
        LDC2          137   PROGRAM*        6/10 L    6/25
        LDC4          141   PROGRAM*        6/13 L    6/20
        LDC6          144   PROGRAM*        6/19      6/21 L
        LEVEL0          0   EXTERNAL*      42/08     43/18
        L$APL           0   EXTERNAL*       3/52
        L$APT           0   EXTERNAL*       3/54
        L$ASG           0   EXTERNAL*       3/57     26/01 S
        L$CAC           0   EXTERNAL*       3/51
        L$CBT           0   EXTERNAL*       4/12
        L$CLW           0   EXTERNAL*       3/50
        L$CUT           0   EXTERNAL*       4/02     47/08
        L$CVT           0   EXTERNAL*       4/01
        L$DIM           0   EXTERNAL*       4/14     47/43
        L$ENTP          0   EXTERNAL*       4/15     37/17
        L$FE            0   EXTERNAL*       4/23
        L$FPI           0   EXTERNAL*       4/16     27/20
        L$GLT           0   EXTERNAL*       3/56
        L$IOA           0   EXTERNAL*       3/53
        L$IOT           0   EXTERNAL*       3/55
        L$NLST          0   EXTERNAL*       4/13
        L$RND           0   EXTERNAL*       6/03
        L$SYM           0   EXTERNAL*       4/10
        L$TST           0   EXTERNAL*      37/06 S   37/26     37/34     37/37 S   38/29
        L$TXT           0   EXTERNAL*      27/26 S   29/02 S   29/54     30/13 S   43/43     43/52 S
        L$VDI           0   EXTERNAL*       4/17     34/19     43/31
        L$VDT           0   EXTERNAL*      29/43     43/19
        L=API           0   EXTERNAL*       2/27 X    3/54 S
        L=APL           0   EXTERNAL*       2/28 X    3/52 S
        L=ASG           0   EXTERNAL*       2/28 X    3/57 S
        L=BLKS          0   EXTERNAL*       2/28 X    4/12 S
        L=CAC           0   EXTERNAL*       3/51 S
        L=CLW           0   EXTERNAL*       3/50 S
        L=CON           0   EXTERNAL*       2/28 X    4/01 S
        L=CUT           0   EXTERNAL*       4/02 S
        L=DIM           0   EXTERNAL*       4/14 S
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    54
        SYMBOLIC REFERENCE TABLE. 
  
        L=ENTP          0   EXTERNAL*       4/15 S
        L=FE            0   EXTERNAL*       4/23 S
        L=FILE          0   EXTERNAL*       2/28 X
        L=FPI           0   EXTERNAL*       4/16 S
        L=GL            0   EXTERNAL*       2/28 X    3/56 S
        L=IOA           0   EXTERNAL*       2/28 X    3/53 S
        L=IOI           0   EXTERNAL*       2/28 X    3/55 S
        L=NLST          0   EXTERNAL*       2/29 X    4/13 S
        L=SYM           0   EXTERNAL*       2/29 X    4/10 S
        L=VDI           0   EXTERNAL*       4/17 S
        MAV          1047   PROGRAM*       29/51     34/14 L
        MAV10        1052   PROGRAM*       34/24 L   34/28
        MAV20        1060   PROGRAM*       34/43 L   35/44     35/47
        MAV30        1062   PROGRAM*       34/43     34/47 L
        MAV40        1072   PROGRAM*       35/09     35/14 L
        MAV50        1073   PROGRAM*       35/19 L   35/40
        MAV60        1075   PROGRAM*       35/21     35/26 L
        MAV70        1077   PROGRAM*       35/28     35/33 L
        MAV80        1101   PROGRAM*       35/34     35/39 L
        MAV90        1102   PROGRAM*       34/56     35/07     35/42 L
        MDV          1353   PROGRAM*       47/28     47/40 L
        MDV10        1363   PROGRAM*       48/04 L   48/27
        MDV20        1366   PROGRAM*       48/06     48/15 L
        MDV30        1371   PROGRAM*       48/17     48/26 L
        MDV40        1373   PROGRAM*       47/56     48/01     48/30 L
        MDV5         1357   PROGRAM*       47/48 L   48/28     48/34
        MEP          1340   PROGRAM*       26/07     47/04 L
        MEP10        1345   PROGRAM*       47/11     47/19 L
        MEP5         1343   PROGRAM*       47/14 L   47/17
        ML.PROG         1   FTX            17/11
        MMV           732   PROGRAM*       29/52     30/35 L   43/41
        MMV10         740   PROGRAM*       30/49 L   30/51     31/08     31/14
        MMV15         746   PROGRAM*       31/01     31/10 L
        MOD             0   EXTERNAL*       2/29 X    3/11     32/18     32/46
        MO.BLKL         1   FTX             3/13
        MO.BLKP        10   FTX             3/13
        MO.CLIFL       23   FTX            32/19     32/47
        MO.CLIFP       35   FTX            32/20     32/48
        MSG=            0   EXTERNAL*       2/21 X    6/08
        MVD          1105   PROGRAM*       35/12     35/24     35/31     35/37     35/46     36/07 L
        MVE=            0   EXTERNAL*      30/23
        MVT           721   PROGRAM*       29/45     30/11 L   43/24
        MZP          1265   PROGRAM*       24/35     43/17 L
        MZP10        1273   PROGRAM*       43/36 L   43/40
        MZP20        1301   PROGRAM*       43/42     43/50 L
        MZP30        1311   PROGRAM*       44/07 L   44/14     44/29
        M.DBL           4   FTX            28/20
        N$IT            0   EXTERNAL*      19/44
        N$LC            0   EXTERNAL*      19/50     27/06
        N$OT            0   EXTERNAL*      19/46
        N$STITL        14   PROGRAM*        2/44 L    2/44 E
        N.ALTEN        24   PROGRAM*        2/53 L    2/53 E   24/47     25/47
        N.CON           0   EXTERNAL*      47/19 S
        N.CPL           0   EXTERNAL*      37/08
        N.CTMAX         0   EXTERNAL*      19/42
        N.EPL           0   EXTERNAL*      32/13
        N.FP            0   EXTERNAL*      32/16
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    55
        SYMBOLIC REFERENCE TABLE. 
  
        N.STMAX         0   EXTERNAL*       2/29 X   19/40
        N.VD            0   EXTERNAL*       2/29 X   19/48
        OC$BSS          1   FTX            19/24
        OC$END          5   FTX            26/08     26/08
        OC$EQUN         6   FTX            19/34
        OC$USE         20   FTX            19/15     19/33
        OC.BOS          1   CTX            27/33     27/37
        OC.EOQ          0   CTX            44/08
        OC.LD          50   CTX            28/30
        OC.NOP         46   CTX            30/41     30/42
        OC.ST          51   CTX            28/41
        OC.XMT         10   CTX            28/38
        OLC           616   PROGRAM*       24/46     25/32     27/05 L
        OLCA          675   PROGRAM*       28/17 S   28/50     29/10 L
        OLC10         636   PROGRAM*       27/50 L   28/14     28/47
        OLC20         640   PROGRAM*       27/50     27/54 L
        OLC24         650   PROGRAM*       28/21     28/22     28/25 L
        OLC25         651   PROGRAM*       28/29 L   28/55
        OLC30         664   PROGRAM*       28/01     28/57 L
        ORG             0   EXTERNAL*       8/47     11/19     12/30     13/24     18/12 D   21/56 S
                                           10/05     12/20 S   13/14     16/56     21/31
        OSC          1221   PROGRAM*       24/33     25/28     41/08 L
        OSI          1111   PROGRAM*       24/30     24/39     37/03 L
        OSIA         1171   PROGRAM*       37/04 S   37/41     38/19     38/43     38/51 L
        OSIB         1172   PROGRAM*       37/07 S   37/25     37/31     37/36 S   38/52 L
        OSIC         1173   PROGRAM*       37/39     37/50 S   38/53 L
        OSIM2        1200   PROGRAM*       38/21     39/01 L
        OSIM3        1202   PROGRAM*       38/20     39/03 L
        OSIO         1176   PROGRAM*       38/44     38/56 L
        OSIS         1174   PROGRAM*       37/42     38/54 L
        OSI10        1122   PROGRAM*       37/25 L   38/07
        OSI20        1134   PROGRAM*       37/21     37/28     37/48 L
        OSI30        1137   PROGRAM*       37/56 L   38/23     38/25     38/27
        OSI40        1141   PROGRAM*       37/56     38/03 L
        OSI50        1155   PROGRAM*       37/52     38/29 L
        OSI60        1160   PROGRAM*       38/40 L   38/46     38/49
        OSI70        1166   PROGRAM*       38/42     38/48 L
        OTC           456   PROGRAM*        3/16     24/18 L   24/18 E
        OTCA          454   PROGRAM*       24/15 L   25/11 S   25/27     25/31     25/52
        OTCB          455   PROGRAM*       24/16 L   25/17 S   25/46
        OTC1          504   PROGRAM*       24/23     24/35 L
        OTC15         514   PROGRAM*       24/41 L
        OTC2          527   PROGRAM*       24/56 L   25/06     25/08     25/54
        OTC3          575   PROGRAM*       25/37     25/46 L
        OTC4          604   PROGRAM*       24/48     25/56 L
        OT.RM           0   EXTERNAL*       2/21 X
        OVC           703   PROGRAM*       24/44     25/30     29/40 L
        OVCA          720   PROGRAM*       29/42 S   29/50     30/04 L
        OZC          1242   PROGRAM*       24/43     25/29     42/07 L
        O$APL           0   EXTERNAL*       3/52
        O$APT           0   EXTERNAL*       3/54
        O$ASG           0   EXTERNAL*       3/57
        O$CAC           0   EXTERNAL*       3/51
        O$CBT           0   EXTERNAL*       4/12
        O$CLW           0   EXTERNAL*       3/50
        O$CUT           0   EXTERNAL*       4/02     47/09
        O$CVT           0   EXTERNAL*       4/01
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    56
        SYMBOLIC REFERENCE TABLE. 
  
        O$DIM           0   EXTERNAL*       4/14     35/03     47/42
        O$ENTP          0   EXTERNAL*       4/15     27/43     32/43     34/38     37/16     41/20     42/20
        O$FE            0   EXTERNAL*       4/23
        O$FPI           0   EXTERNAL*       4/16     27/44     38/14     43/57
        O$GLT           0   EXTERNAL*       3/56      5/07
        O$IOA           0   EXTERNAL*       3/53
        O$IOT           0   EXTERNAL*       3/55
        O$NLST          0   EXTERNAL*       4/13
        O$RND           0   EXTERNAL*       6/02
        O$SYM           0   EXTERNAL*       4/10     24/56     32/35     38/08     42/11
                                            6/34     27/08     34/29     41/11     44/02
        O$TST           0   EXTERNAL*      37/33     38/30
        O$TXT           0   EXTERNAL*      30/36     43/53
        O$VDI           0   EXTERNAL*       4/17     30/39     34/18     36/10     43/30
        O$VDT           0   EXTERNAL*      30/22
        O=API           0   EXTERNAL*       2/29 X    3/54 S
        O=APL           0   EXTERNAL*       2/29 X    3/52 S
        O=ASG           0   EXTERNAL*       2/30 X    3/57 S
        O=BLKS          0   EXTERNAL*       2/30 X    4/12 S
        O=CAC           0   EXTERNAL*       3/51 S
        O=CLW           0   EXTERNAL*       3/50 S
        O=CON           0   EXTERNAL*       2/30 X    4/01 S
        O=CUT           0   EXTERNAL*       4/02 S
        O=DIM           0   EXTERNAL*       4/14 S
        O=ENTP          0   EXTERNAL*       4/15 S
        O=FE            0   EXTERNAL*       4/23 S
        O=FPI           0   EXTERNAL*       4/16 S
        O=GL            0   EXTERNAL*       2/30 X    3/56 S
        O=IOA           0   EXTERNAL*       2/30 X    3/53 S
        O=IOI           0   EXTERNAL*       2/30 X    3/55 S
        O=NLST          0   EXTERNAL*       2/30 X    4/13 S
        O=SYM           0   EXTERNAL*       2/31 X    4/10 S
        O=VDI           0   EXTERNAL*       4/17 S
        PARCEL          0   EXTERNAL*       8/48     10/03 S   12/22 S   13/15     21/36
                                            9/57     11/18     12/29     18/13 D   21/57 S
        PASS            0   EXTERNAL*       2/31 X    3/08 S
        PASS=CCG        2   FTX             3/07
        PB.BIASL       22   FTX            13/29     13/56     21/45     21/46
        PB.BIASP       14   FTX            13/30     19/15     19/33     24/25     24/31     24/41     32/54     41/29
                                           13/55     19/27     21/45     24/27     24/36     24/49     33/07     42/29
        PB.GHIJL       14   FTX             8/19      8/35
        PB.GHIJP       60   FTX            19/15     24/27     25/18     25/42     30/01     32/32     33/14     41/33
                                           19/28     24/28     25/19     25/51     32/09     32/52     33/16     42/31
                                           19/33     24/31     25/20     25/56     32/11     32/55     33/19     42/33
                                           19/35     24/36     25/21     26/08     32/24     32/57     33/21
                                           24/21     24/37     25/22     29/05     32/25     33/09     38/45
                                           24/25     24/41     25/40     29/07     32/27     33/11     38/48
                                           24/26     24/49     25/41     29/53     32/30     33/12     41/31
        PB.GHL          6   FTX             8/37      9/22      9/27
        PB.IL           3   FTX             9/26
        PB.INSTL       17   FTX            11/05
        PB.IP          63   FTX             9/51      9/55
        PB.JL           3   FTX             9/50     10/17
        PB.JP          60   FTX             9/39      9/40      9/43      9/52      9/55     10/19     10/23
        PB.KP          55   FTX             9/36      9/39      9/40      9/43     10/23
        PB.ORDL        16   FTX            17/03
        PB.ORDP        36   FTX            17/06     17/07     19/26
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    57
        SYMBOLIC REFERENCE TABLE. 
  
        PB.PFXP        55   FTX            17/06     17/07
        PB.TAGL        22   FTX            13/52
        PB.TAGP        36   FTX            13/53     24/37     25/22     32/11     32/55     33/12     38/45     42/29
                                           13/55     25/18     25/40     32/27     32/57     33/14     41/29     42/31
                                           24/26     25/19     25/41     32/32     33/07     33/16     41/31     42/33
                                           24/28     25/20     25/51     32/54     33/11     33/21     41/33
        PIK=PS          0   EXTERNAL*       2/31 X    8/42
        PSTAB         365   PROGRAM*       18/05 D   20/09 E
        PUSE          441   PROGRAM*       13/09     14/07     22/08 D
  U     QUAL$                               7/06 F   18/01 F   19/04 F   20/01 F   21/06 F   22/06 F
        R1.INP         36   CTX            27/32
        R1.RJP         40   CTX            28/35
        SLE          1204   PROGRAM*       37/35     40/12 L
        SLE10        1207   PROGRAM*       40/20 L   40/46
        SLE20        1210   PROGRAM*       40/26 L   40/30
        SLE30        1213   PROGRAM*       40/35 L   40/40
        SLE40        1217   PROGRAM*       40/35     40/48 L
        SNP=            0   EXTERNAL*       2/24 X
        SRI           676   PROGRAM*       28/32     28/39     28/46     29/23 L
        S=CP            0   EXTERNAL*       2/31 X   33/06
        S=CPL           0   EXTERNAL*       2/31 X   33/15
        S=CT            0   EXTERNAL*       2/31 X   19/42
        S=ENTRY         0   EXTERNAL*       2/31 X   24/32     24/42     24/45     24/53     25/22
        S=GPL           0   EXTERNAL*       2/31 X   32/56     33/10
        S=IT            0   EXTERNAL*       2/31 X   19/44
        S=LC            0   EXTERNAL*       2/32 X   19/50     28/42
        S=OT            0   EXTERNAL*       2/32 X   19/46
        S=SA0           0   EXTERNAL*      32/31     33/20
        S=SA1           0   EXTERNAL*      32/10
        S=SLI           0   EXTERNAL*      42/32
        S=SPA           0   EXTERNAL*       2/32 X   41/32
        S=ST            0   EXTERNAL*       2/32 X   19/40
        S=SUB           0   EXTERNAL*       2/32 X   24/26
        S=SUBI          0   EXTERNAL*       2/32 X   24/28     41/27
        S=SUB0I         0   EXTERNAL*      24/37     42/27
        S=TA0           0   EXTERNAL*       2/32 X   12/53     32/26     33/13
        S=TRACE         0   EXTERNAL*       2/32 X   12/49
        S=VD            0   EXTERNAL*       2/32 X   19/48
        TEST            0   CTX             8/22 F   11/51 F   17/38 F
        T.SYM           0   EXTERNAL*       6/34 D   17/21
        VD.ALOP        72   FTX            34/21     36/11     43/33
        VD.CAL         22   FTX            30/47
        VD.CAP         44   FTX            31/02
        VD.MAL          2   FTX            30/44     31/02
        VD.MAP         72   FTX            31/02
        WB.ARYL         1   FTX            34/55
        WB.ARYP        12   FTX            34/55     35/01
        WB.ENTL         1   FTX            25/05
        WB.ENTP        15   FTX            25/05     25/07
        WB.FPNOL       11   FTX            28/08     38/13     44/04
        WB.FPNOP       41   FTX            28/10     38/15     44/24
        WB.LABP         3   FTX            25/07
        WB.MODEL        3   FTX            28/15
        WB.PNTL        15   FTX            27/13     32/40     34/34     34/57     41/16     42/16
        WB.PNTP        57   FTX            27/14     32/41     34/35     35/01     41/17     42/17
        WB.W            1   FTX            27/11     32/38     34/32     35/42     38/11     41/14     42/14     44/03
        WC.CLENL       22   FTX            36/08
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    58
        SYMBOLIC REFERENCE TABLE. 
  
        WC.CTYPL        1   FTX            35/43
        WC.CTYPP       35   FTX            35/43
        WC.EGLL        17   FTX            25/12
        WC.EGLP        36   FTX            25/14
        WC.RBP         60   FTX            17/10     45/11
        WC.RLP         72   FTX            17/14
        WC.W            2   FTX            17/35     35/42
        WIN           166   PROGRAM*       18/03 D   24/25     24/41     25/40     29/07     32/27     33/11     38/48
                                           18/10 E   24/26     24/49     25/41     29/53     32/30     33/12     41/31
                                           19/15     24/27     25/18     25/42     30/01     32/32     33/14     41/33
                                           19/31     24/28     25/19     25/51     32/09     32/52     33/16     42/31
                                           19/33     24/31     25/20     25/56     32/11     32/55     33/19     42/33
                                           19/36     24/36     25/21     26/08     32/24     32/57     33/21
                                           24/21     24/37     25/22     29/05     32/25     33/09     38/45
        WINI          342   PROGRAM*       18/06 D
        WINOC         321   PROGRAM*       18/07 D   20/10 E
        WOF             0   EXTERNAL*       2/33 X    5/22      5/56      5/57      6/24
        WTE           163   PROGRAM*       18/04 D   18/14 E
        WTO=            0   EXTERNAL*       2/36 X   11/09     11/12
        Z$APT           0   EXTERNAL*      45/06
        Z$GLT           0   EXTERNAL*      25/38
        Z$TST           0   EXTERNAL*      37/10     37/30     38/26
        Z$TXT           0   EXTERNAL*      27/27     30/14
        Z=DD            2   FTX            48/31
        Z=SYM           3   FTX            17/34
        .CG             1                   2/06 D   12/08 F   16/14 F
        .DAL            1   CTX            42/10 F   43/22 F
        .FAST           0                   2/04 D   12/08 F   16/14 F
        .OPT            1                   2/05 D    2/06
        .P             71                  39/01 D   39/02 D   39/02 D   39/02 D   39/04 D
                                           39/01     39/02     39/02     39/02     39/04
        .Z              0                  39/01 D   39/02 D   39/04 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFWIN 
  
  
        BNW             0   EXTERNAL*      13/50     14/28     16/35 D
        DLT           373   PROGRAM*       12/44     12/52     12/56     14/01     16/55 L
        DLTA          401   PROGRAM*       17/17     17/19 L
        DLT2          406   PROGRAM*       17/22     17/31 L
        DLT4          411   PROGRAM*       17/23     17/49 L
        IPSUD         342   PROGRAM*       15/24 D   18/06
        K=AP            2                  17/24 L
        K=END           5                  17/27 L
        K=GL            1                  17/23 L
        K=IO            3                  17/25 L
        K=LC            4                  17/26 L
        K=SYM           0                  17/21 L
        OCPSUD        321   PROGRAM*       15/04 D   18/07
        PSI           252   PROGRAM*        8/38     11/49 L
        PSTAB         365   PROGRAM*       11/55     16/03 L   18/05
        P.COPY         14                   7/57 D    9/21
        WIN           166   PROGRAM*        8/13 L   18/03
        WINA          366   PROGRAM*        9/12     10/56     11/04     12/23 S   16/04 L
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    59
        SYMBOLIC REFERENCE TABLE.                                     COMFWIN 
  
        WINB          367   PROGRAM*        8/05 S   10/38 S   11/16     13/27     16/05 L
                                            8/20 S   11/10     13/26 S   13/42 S
        WINC          371   PROGRAM*        8/09 S    8/18 S   10/46     16/08 L
        WIND          372   PROGRAM*       11/02 S   11/13     16/09 L
        WINW          236   PROGRAM*       10/39     10/55 L
        WINW7         243   PROGRAM*       11/03     11/10 L
        WINW8         246   PROGRAM*       11/16 L
        WINX          235   PROGRAM*       10/04     10/10     10/46 L   11/17     11/20     11/25
        WIN10         173   PROGRAM*        8/47 L   13/44
        WIN100        236   PROGRAM*        8/10     10/54 L   12/45     13/10     13/33     14/08
                                            9/03     12/15     12/57     13/19     13/36     14/26
                                            9/13     12/24     13/04     13/21     14/02     14/29
        WIN20         177   PROGRAM*        8/52      8/56 L
        WIN40         201   PROGRAM*        8/50      8/54      9/05 L   12/33
        WIN50         203   PROGRAM*        9/06      9/11 L
        WIN60         225   PROGRAM*        9/49     10/01     10/17 L
        WIN65         214   PROGRAM*        9/28      9/48 L
        WIN70         227   PROGRAM*        9/33      9/35      9/46     10/28 L
        WIN80         234   PROGRAM*       10/29     10/31     10/41 L
        WI=BCI        316   PROGRAM*       14/17 L   15/25
        WI=BOS        254   PROGRAM*       12/07 L   15/26
        WI=BSS        307   PROGRAM*       13/46 L   15/28
        WI=CPL        262   PROGRAM*       12/36 L   15/27
        WI=DATA       317   PROGRAM*       14/27 L   15/29
        WI=ECI        316   PROGRAM*       14/18 L   15/30
        WI=EMI        316   PROGRAM*       14/16 L   15/31
        WI=JPI        305   PROGRAM*       13/39 L   15/32
        WI=LD0        260   PROGRAM*       12/27 L   15/33
        WI=LOO        316   PROGRAM*       14/14 L   15/35
        WI=OTR        274   PROGRAM*       13/13 L   15/36
        WI=RJ3        305   PROGRAM*       13/40 L   15/37
        WI=RJ6        300   PROGRAM*       13/23 L   15/38
        WI=SB0I       262   PROGRAM*       12/39 L   15/40
        WI=ST0        260   PROGRAM*       12/28 L   15/34
        WI=SUBI       262   PROGRAM*       12/38 L   15/39
        WI=UJP        305   PROGRAM*       13/38 L   15/41
        WI=USE        272   PROGRAM*       13/07 L   15/42
        WI=ZERO       262   PROGRAM*       12/40 L   15/43
        WO=ADDR       262   PROGRAM*       12/35 L   15/05
        WO=APL        316   PROGRAM*       14/21 L   15/07
        WO=BMI        316   PROGRAM*       14/19 L   15/08
        WO=BSS        307   PROGRAM*       13/47 L   15/06
        WO=BSSZ       307   PROGRAM*       13/48 L
        WO=CMNT       321   PROGRAM*       14/34 L
        WO=CON        271   PROGRAM*       13/03 L   15/09
        WO=END        314   PROGRAM*       14/05 L   15/10
        WO=EQUN       316   PROGRAM*       14/24 L   15/11
        WO=FMT        316   PROGRAM*       14/23 L   15/12
        WO=FVEC       262   PROGRAM*       12/41 L   15/13
        WO=IDNT       255   PROGRAM*       12/18 L   15/14
        WO=IOM        316   PROGRAM*       14/22 L   15/15
        WO=LCC        316   PROGRAM*       14/25 L   15/16
        WO=LOO        316   PROGRAM*       14/15 L   15/17
        WO=NLST       316   PROGRAM*       14/20 L   15/18
        WO=PLIM       262   PROGRAM*       12/37 L   15/19
        WO=TRAC       264   PROGRAM*       12/48 L   15/20
        WO=USE        272   PROGRAM*       13/08 L   15/21
1       CCGC - CCG CONTROLLER AND SUPPORT.                            COMPASS 3.7-871.     24/05/02. 13.19.08.      PAGE    60
        SYMBOLIC REFERENCE TABLE.                                     COMFWIN 
  
        WTE           163   PROGRAM*        8/04 L   18/04
        Z.PSUD         44                  15/45 D
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFITS 
  
  
        ITS           413   PROGRAM*       19/14 L   20/03
        ITSA          432   PROGRAM*       19/17     19/39 L
        ITS2          420   PROGRAM*       19/18 L   19/31     19/31
        ITS4          425   PROGRAM*       19/19     19/33 L
  
  
  
  
                                                  SYMBOL QUALIFIER =  COMFUSE 
  
  
        PUSE          441   PROGRAM*       21/22 L   22/08
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     4124              IDENT  BRIDGE 
                       4124                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      4111 
                                        LITERALS* LOCAL        4111        13 
  
  
                                        ENTRY POINTS. 
  
                                        B=BRIDG          0+           P=SUB         2743+           P=PASG        3566+ 
                                        BRIDGE          32+           P=IOF         3004+           P=PGT         3601+ 
                                        OPT2           137+           P=INF         3031+           P=PAG         3614+ 
                                        P=SEG          170+           P=FRRET       3043+           P=PCG         3627+ 
                                        P=HDR         1276+           P=LRJ         3051+           P=JGOC        3641+ 
                                        P=GFD         1316+           P=SCRET       3213+           P=RGT         3656+ 
                                        P=PLIM        1347+           P=HSTO        3244+           P=IF          3664+ 
                                        P=CDLOO       1400+           P=HLEX        3254+           P=PAR         3733+ 
                                        P=CDDOT       1405+           P=HREL        3256+           P=HCAT        3735+ 
                                        P=CDCS        1410+           P=DZO         3313+           P=HSBS        3737+ 
                                        P=DATA        1413+           P=DOO         3314+           P=HCOL        3741+ 
                                        P=SEX         1430+           P=DOZ         3341+           P=IM          3743+ 
                                        P=GAP         1637+           P=DOBZ        3355+           P=ID          4001+ 
                                        P=FAP         1642+           P=DOL         3357+           P=MASK        4011+ 
                                        P=IOD         1656+           P=DOB         3362+           P=MOD         4016+ 
                                        P=IOC         1673+           P=DOC         3407+           P=SHIFT       4026+ 
                                        P=IOU         1707+           P=PDE1        3443+           P=BVD         4040+ 
                                        P=APRET       2012+           P=PDE         3446+           P=EVD         4043+ 
                                        P=IAP         2711+           P=IOLC        3464+           P=FIN         4052+ 
                                        P=LIBF        2732+           P=PLA         3467+           P=ILL         4064+ 
                                        P=FUN         2733+           P=ENT         3542+           P=LCC         4105+ 
                                        P=LIB         2742+           P=PEX         3560+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CC$CBN    Z$DTT     V=CIS0S   O$CUT     ISA       WO.DOOT   MVE=      Z$CUT 
                                        L$DIM     L$GLT     V=CIAST   Z$AUD     S=INIT    S=BUF     Z$TXT     L$CVT 
                                        O$DIM     O$ASG     V=CISST   CG$AVO    S=FILES   N.BUF     SST#      CO.ARGC 
                                        L$ASG     V=ASFMT   V=CAPST   O$CAC     S=ENTRY   CO.STAT   O$FUN     Z$CAC 
                                        Z$VDT     V=ASLAB   O$APL     APCON     S=TA0     NARGS     L$FUN     Z$IOT 
                                        V=SHRC    N.ALTEN   L$APL     L$AUD     N.FP      S=UPW     CC$LNL    Z$APT 
                                        V=SHLC    CG$LABD   O$APT     O$SYM     S=VALUE   MOD       CG$PAS    SBM=
                                        V=SHIFV   V=IOLC1   Z$APL     S=CL      S=AEXIT   WIN       CC$BRN    ATS$
                                        V=MODP2   V=IOLC0   CG$CPL    L$CLW     N.ARP     RDW=      L$DTT     Z$GLT 
                                        V=MODG    V=DC.O1   V=DFRS    O$CLW     S=EXIT    F.IL      N.STMAX   N.GL
                                        V=MASKC   V=DC.OS   S=BUFIN   L$APT     S=TRACE   O$DTT     L$TST     N$VD
                                        V=MASKV   V=DC.OV   L$IOT     Z$SAP     S=LENP    Z$FUN     Z$CFT     ADW$
                                        V=IDP2    V=DC.OC   CO.ARGF   O$SAP     CO.DBER   N.ST      V=IPLG0   Z$ASG 
                                        V=IDV     V=DOC.K   ECB       L$SAP     BN=STRT   O$TXT     V=IPLUG   CG$INIT 
                                        V=IM2     CC$OPTL   S=FAS     L$ENTP    BN=NLST   L$TXT     V=APSTR   BN=CODE 
                                        V=SHFD1   CONONE    ECS       O$ENTP    BN=IOAP   S=CON     V=IPLG2 
                                        V=SHFD    V=DOBO    S=FVS     S=CP      BN=APL    CG$SCT    V=IPLG1 
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        V=SHFS1   V=DOZO    S=FAR     L$FPI     BN=FMT    S$VD      F.SCT 
                                        V=SHFS    S=FMC     S=MMC     S=GPL     BN=CON    O$TST     V=NOOP
                                        V=SHFC    S=LMC     O$AUD     BN=TEM    WTE       F$RDT     Z$TST 
                                        V=IMV     V=CIA0S   O$NLST    N.EPL     WO.CS     S=ST      NSQZLH
  
  
  
  
                                                  IDENT  BRIDGE                                                  BRIDGE      2
                                         BRIDGE   SECT   (TRANSMOGRIFY PASS 1 OUTPUT.)                           BRIDGE      3
  
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     3
        GLOBAL DATA AND STUCTURE DEFINITIONS.                         DEFINES 
  
                                                  SST                                                            BRIDGE      5
                                                                                                                 BRIDGE      6
                                                  DESCRIBE TS.,60    TURPLE STATUS TABLE ENTRY                   BRIDGE      7
      L     73  40000000000000000000     FR       DEFINE 1           FUNCTION RESULT (RNU CONTAINS ST. BIAS)     BRIDGE      8
      L     72  20000000000000000000     FRL      DEFINE 1           LOWER FUNCTION RESULT (RNL=CA)              BRIDGE      9
      L     71  10000000000000000000     DEF      DEFINE 1           DEFERRED PROCESSING FOR THIS TURPLE         BRIDGE     10
      L     70  04000000000000000000     RTV      DEFINE 1           RIGHT BRANCH VISITED (CHAR WALK)            BRIDGE     11
      L     67  02000000000000000000     SUB      DEFINE 1           SUBSTRING                                   BRIDGE     12
                                                  DEFINE 1                                                       BRIDGE     13
      L     44  00777777000000000000     CLEN     DEFINE 18          CHAR OF CHAR EXPRESSIONS                    BRIDGE     14
      L     22  00000000777777000000     RNL      DEFINE 18          R-NUMBER OF LOWER RESULT                    BRIDGE     15
             0  00000000000000777777     RNU      DEFINE 18          R-NUMBER OF UPPER RESULT                    BRIDGE     16
                                                                                                                 BRIDGE     17
                                                  REDEF  RNL                                                     BRIDGE     18
      L     22  00000000777777000000     FROM     DEFINE 18          FOR CHAR TREE WALK                          BRIDGE     19
                                                                                                                 BRIDGE     20
                                                                                                                 BRIDGE     21
                                                  DESCRIBE AT.,60    ATF (APLIST TYPE INFO) WORD                 BRIDGE     22
      L     73  40000000000000000000     LEN      DEFINE 1           PROCESSING I/O LEN                          BRIDGE     23
      L     72  20000000000000000000     IOC      DEFINE 1           PROCESSING I/O CONTROL CODE                 BRIDGE     24
      L     71  10000000000000000000     CHAR     DEFINE 1           CHAR TYPE APLIST FOR ASM                    BRIDGE     25
      L     70  04000000000000000000     NUL      DEFINE 1           THIS ITEM HAS NON-UNITY ARRAY LEN           BRIDGE     26
      L     67  02000000000000000000     LEV0     DEFINE 1           LEVEL 0                                     BRIDGE     27
      L     62  01740000000000000000     MODE     DEFINE 5                                                       BRIDGE     28
      L     54  00037400000000000000     OPT2     DEFINE 6           HIGH 6 BITS OF AP. FORM                     BRIDGE     29
                                                  DEFINE 26                                                      BRIDGE     30
      L      1  00000000000000777776     RES      DEFINE 17          RESERVED SO IO IS REALLY 18                 BRIDGE     31
             0  00000000000000000001     IO       DEFINE 1           0/1 NON-I/O / I/O                           BRIDGE     32
                                                                                                                 BRIDGE     33
                                                  REDEF  OPT2                                                    BRIDGE     34
      L     61  00020000000000000000     ST       DEFINE 1           I/O DEF                                     BRIDGE     35
      L     60  00010000000000000000     USE      DEFINE 1           USE OR POSSIBLE USE                         BRIDGE     36
      L     57  00004000000000000000     P1       DEFINE 1           DOUBLE WORD REF                             BRIDGE     37
                                                  DEFINE 2                                                       BRIDGE     38
      L     54  00000400000000000000     CR       DEFINE 1           CLASS REF                                   BRIDGE     39
                                                                                                                 BRIDGE     40
      L     60  00030000000000000000     IODP     DEQU   USE,2                                                   BRIDGE     41
                                                                                                                 BRIDGE     42
                                                  DESCRIBE SC.,60    SKELETON DESCRIPTOR WORD                    BRIDGE     43
                                                  DEFINE 1                                                       BRIDGE     44
      L     66  37000000000000000000     PTYP     DEFINE 5           CALL PARAMETER TYPE                         BRIDGE     45
      L     60  00770000000000000000     PNUM     DEFINE 6           CALL PARAMETER NUM                          BRIDGE     46
      L     52  00007700000000000000     MAXT     DEFINE 6                                                       BRIDGE     47
                                                  DEFINE 6                                                       BRIDGE     48
      L     22  00000000777777000000     PRO      DEFINE 18          CALL PROCESSOR ADDRESS                      BRIDGE     49
             0  00000000000000777777     AD       DEFINE 18          SET ADDRESS                                 BRIDGE     50
                                                                                                                 BRIDGE     51
                                                  DESCRIBE SE.,60    SET (SKELETON EXPANSION) WORD               BRIDGE     52
      L     73  40000000000000000000     FI       DEFINE 1           FIRST INSTRUCTION IN SKELETON               BRIDGE     53
      L     72  20000000000000000000     ROP      DEFINE 1           ROUNDABLE OPERATION                         BRIDGE     54
                                                  DEFINE 1                                                       BRIDGE     55
      L     66  07000000000000000000     TYP      DEFINE 3           .NZ. IF BRANCH OR CALL                      BRIDGE     56
      L     55  00777000000000000000     OC       DEFINE 9           INSTRUCTION OPCODE                          BRIDGE     57
      L     50  00000760000000000000     1TYP     DEFINE 5                                                       BRIDGE     58
      L     42  00000017600000000000     1NUM     DEFINE 6                                                       BRIDGE     59
      L     35  00000000174000000000     2TYP     DEFINE 5                                                       BRIDGE     60
      L     27  00000000003740000000     2NUM     DEFINE 6                                                       BRIDGE     61
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     4
        GLOBAL DATA AND STUCTURE DEFINITIONS.                         DEFINES 
  
      L     22  00000000000037000000     3TYP     DEFINE 5                                                       BRIDGE     62
      L     14  00000000000000770000     3NUM     DEFINE 6                                                       BRIDGE     63
             0  00000000000000007777     Q        DEFINE 12                                                      BRIDGE     64
                                                                                                                 BRIDGE     65
             0  00000000000000777777     BR       DEQU   Q,18        BRANCH ADDRESS                              BRIDGE     66
                                                                                                                 BRIDGE     67
                                                  DESCRIBE SE.,60                                                BRIDGE     68
                                                  DEFINE 15                                                      BRIDGE     69
                                                  DEFINE 4                                                       BRIDGE     70
      L     27  00000037777740000000     PRO      DEFINE 18                                                      BRIDGE     71
      L     22  00000000000037000000     PTYP     DEFINE 5                                                       BRIDGE     72
      L     14  00000000000000770000     PNUM     DEFINE 6                                                       BRIDGE     73
                                                  DEFINE 12                                                      BRIDGE     74
                                                                                                                 BRIDGE     75
                                                  DESCRIBE SY.,42    SYMBOL INFO IN PRE                          BRIDGE     76
                      77777700000000     IH       DEFINE 18          SYMBOL ORDINAL                              BRIDGE     77
                      00000077777777     CA       DEFINE 24          OFFSET OR CONSTANT                          BRIDGE     78
  
  
  
  
                                                  DESCRIBE SD.,60                                                BRIDGE     80
                                                  DEFINE 24                                                      BRIDGE     81
      L     22  00000000777777000000     RN       DEFINE 18                                                      BRIDGE     82
             0  00000000000000777777     CA       DEFINE 18                                                      BRIDGE     83
  
  
  
  
                                        **        ADVIL - ADVANCE I.L. POINTER.                                  BRIDGE     85
                                        *         USED TO SKIP 1 OR MORE TURPLES AFTER PROCESSING AS PART        BRIDGE     86
                                        *         OF MEGATURPLE.                                                 BRIDGE     87
                                        *                                                                        BRIDGE     88
                                        *         USES   A2, A7                                                  BRIDGE     89
                                                                                                                 BRIDGE     90
                                         ADVIL    MACRO  NUM                                                     BRIDGE     91
                                                  SA2    BP                                                      BRIDGE     92
                                                  SX7    X2+NUM*Z=TURP                                           BRIDGE     93
                                                  SA7    A2                                                      BRIDGE     94
                                                  SA2    INDEX                                                   BRIDGE     95
                                                  SX7    X2+NUM                                                  BRIDGE     96
                                                  SA7    A2                                                      BRIDGE     97
                                                  DUP    NUM,1                                                   BRIDGE     98
                                                  ADDWRD TST,B0                                                  BRIDGE     99
                                                  ENDM                                                           BRIDGE    100
  
  
  
  
                                        **        ISSUE - ISSUE OPERATION OR PSEUDO TO PB.                       BRIDGE    102
                                                                                                                 BRIDGE    103
                                         ISSUE    MACRO  OP,TAG                                                  BRIDGE    104
                                                  =X7    OP                                                      BRIDGE    105
                                                  LX7    PB.GHIJP                                                BRIDGE    106
                                                  IFC    NE,/TAG//,3                                             BRIDGE    107
                                                  XR=    X5,TAG                                                  BRIDGE    108
                                                  LX5    PB.TAGP                                                 BRIDGE    109
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     5
        GLOBAL DATA AND STUCTURE DEFINITIONS.                         ISSUE 
  
                                                  BX7    X7+X5                                                   BRIDGE    110
                                                  WCODE  X7                                                      BRIDGE    111
                                         ISSUE    ENDM                                                           BRIDGE    112
  
  
  
  
                                        **        XR= - X-REGISTER VERSION OF R= PSEUDO INSTRUCTION.             BRIDGE    114
                                        *                                                                        BRIDGE    115
                                        *         IF *EXPR* = *LDREG*, GENERATES NOTHING.                        BRIDGE    116
                                        *         IF *EXPR* = OTHER X-REG, GENERATES BOOLEAN XMIT TO *LDREG*.    BRIDGE    117
                                        *         IF *EXPR* = ELSE, GENERATES INCREMENT INSTR TO LOAD *LDREG*.   BRIDGE    118
                                        *                                                                        BRIDGE    119
                                        *                                                                        BRIDGE    120
                                        *         XR=       LDREG,EXPR                                           BRIDGE    121
                                        *                                                                        BRIDGE    122
                                        *         ENTRY  *LDREG* = X-REGISTER TO BE LOADED.  MUST BE X1 THRU X5. BRIDGE    123
                                        *                *EXPR*  = ADDRESS EXPRESSION FOR VALUE TO BE LOADED.    BRIDGE    124
                                        *                                                                        BRIDGE    125
                                        *         USES   *LDREG* AND ITS A-REGISTER.                             BRIDGE    126
                                        *                                                                        BRIDGE    127
                                        *         CALLS  NONE                                                    BRIDGE    128
                                                                                                                 BRIDGE    129
                                                                                                                 BRIDGE    130
                                                  PURGMAC   XR=                                                  BRIDGE    131
                                                                                                                 BRIDGE    132
                                         XR=      MACRO  R,E                                                     BRIDGE    133
                                          LOCAL A                                                                BRIDGE    134
                                        A MICRO 1,, E                                                            BRIDGE    135
                                        A MICCNT A                                                               BRIDGE    136
                                          IFEQ A,2,5                                                             BRIDGE    137
                                        A MICRO 1,1, E                                                           BRIDGE    138
                                          IFC EQ, "A" X ,3                                                       BRIDGE    139
                                          IFC NE, R E ,1                                                         BRIDGE    140
                                          B_R E                                                                  BRIDGE    141
                                          SKIP 6                                                                 BRIDGE    142
                                        A MICRO 2,1, R                                                           BRIDGE    143
                                          IFC GE, "A" 1 ,3                                                       BRIDGE    144
                                          IFC LT, "A" 6 ,2                                                       BRIDGE    145
                                          SA"A" E                                                                BRIDGE    146
                                          SKIP 1                                                                 BRIDGE    147
                                          ERR (R) NOT X1-X5 "SEQUENCE"                                           BRIDGE    148
                                         XR=      ENDM                                                           BRIDGE    149
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     6
        GLOBAL DATA AND STUCTURE DEFINITIONS.                         REGS
  
                                        **        IN RLIST MACROS ONE MAY SPECIFY A SPECIFIC DESTINATION REGISTE BRIDGE    151
                                        *         FOR THE *RI* OF AN INSTRUCTION BY IMMEDIATELY FOLLOWING IT     BRIDGE    152
                                        *         WITH A REGISTER STORE INSTRUCTION.                             BRIDGE    153
                                        *         THE NAMES OF THE REGISTER APPEARS IN THE *SO* FIELD FOLLOWED   BRIDGE    154
                                        *         BY A PERIOD, AND PRECEEDED BY A T ONLY IF IT IS A TEMPORARY    BRIDGE    155
                                        *         REGISTER STORE.                                                BRIDGE    156
                                                                                                                 BRIDGE    157
                                                  ECHO   3,R=(B,X),Z=(0,20B)                                     BRIDGE    158
                                                  ECHO   2,N=(0,1,2,3,4,5,6,7)                                   BRIDGE    159
                                         R_N.     EQU    Z+N                                                     BRIDGE    160
                                         T_R_N.   EQU    SO.TLOCK+Z+N                                            BRIDGE    161
  
  
  
                                        **        CFTE - CONTROL FLOW TABLE ENTRY MACRO                          BRIDGE    163
                                        *                                                                        BRIDGE    164
                                        *                FROM = BLOCK NUMBER OF *FROM* EDGE                      BRIDGE    165
                                        *                TO = BLOCK NUMBER / *IH* OF TARGET BLOCK                BRIDGE    166
                                        *                TYPE = *IH* IF *TO* IS AN IH AND THIS IS A JUMP EDGE.   BRIDGE    167
                                                                                                                 BRIDGE    168
                                         CFTE     MACRO  FROM,TO,TYP                                             BRIDGE    169
                                                  IFC    EQ,/FROM/CBN/,2                                         BRIDGE    170
                                                  SA1    =XCBN                                                   BRIDGE    171
                                                  ELSE   1                                                       BRIDGE    172
                                                  R=     X1,FROM                                                 BRIDGE    173
                                                  R=     X2,TO                                                   BRIDGE    174
                                                  LX1    CF.FROMP                                                BRIDGE    175
                                                  LX2    CF.TOP                                                  BRIDGE    176
                                                  IFC    EQ,/TYP/IH/,3                                           BRIDGE    177
                                                  MX7    1                                                       BRIDGE    178
                                                  LX7    1+CF.JPP                                                BRIDGE    179
                                                  BX2    X7+X2                                                   BRIDGE    180
                                                  BX1    X1+X2                                                   BRIDGE    181
                                                  ADDWRD CFT,X1                                                  BRIDGE    182
                                                  ENDM                                                           BRIDGE    183
                                         CBN      EQUEXT CC$CBN                                                  BRIDGE    184
                                                                                                                 BRIDGE    185
                                         GPBUF    MICRO  1,,/GOVG/                                               BRIDGE    186
                                         TP       MICRO  1,,/TP/     FOR COMMON SUBSKEL CODE                     BRIDGE    187
                                         BIAS     MICRO  1,,/BIAS/                                               BRIDGE    188
                                         ORD      MICRO  1,,/ORD/                                                BRIDGE    189
                                         TFILE    MICRO  1,,/=XO$FILE/                                           BRIDGE    190
                                         O$       MICRO  1,,/O$/                                                 BRIDGE    191
                                         L$       MICRO  1,,/L$/                                                 BRIDGE    192
                                         BT       MICRO  1,,/B4/     TEMP B-REG FOR COMDECKS                     BRIDGE    193
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     7
        GLOBAL DATA AND STUCTURE DEFINITIONS.                         GOV 
  
                                   6     SKU.OP   EQU    6                                                       BRIDGE    195
                                   1     SKU.RS   EQU    1                                                       BRIDGE    196
                                   2     SKU.GOP  EQU    2                                                       BRIDGE    197
                                  26     SKU.TMP  EQU    22                                                      BRIDGE    198
                                                                                                                 BRIDGE    199
             0                     1     GOVR     BSSZ   SKU.RS                                                  BRIDGE    203
             1                     1     GOVRL    BSSZ   SKU.RS                                                  BRIDGE    204
                                                                                                                 BRIDGE    207
             2                    26     GOVT     BSSZ   SKU.TMP     OP TYPE OPERAND BUFFER                      BRIDGE    208
            30                     2     GOVG     BSSZ   SKU.GOP     GENERATED OPERAND COMMUNICATION AREA        BRIDGE    209
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     8
        INITIALIZATION.                                               PRE 
  
            32  0400400032 +             BRIDGE   SUBR   =                                                       BRIDGE    211
            33  7110000000 X                      SX1    =XBN=CODE                                               BRIDGE    212
                          0100000000 X            CALL   CG$INIT                                                 BRIDGE    213
            34  76100                             ADDWRD ASG,B0      TERMINATE ASG TABLE FOR SEARCH              BRIDGE    214
            36  5160000000 X                      SA6    =XN$VD      FOR PASS 2 VD. RENUMBERING                  BRIDGE    215
                          5110000000 X            SA1    =XN.GL                                                  BRIDGE    216
            37  5100000000 X                      ALLOC  GLT,X1                                                  BRIDGE    217
            40  13666                             SETMEM X2,X3       GLT = 0                                     FC5A164    71
            42  76100                             ADDWRD APT,B0      API(0) = 0                                  BRIDGE    220
            44  76100                             ADDWRD IOT,B0      IOI(0) = 0                                  BRIDGE    221
            46  76100                             ADDWRD CAC,B0      CAC(0) = 0  */ FOR STAPL ENTRIES TO POINT T BRIDGE    222
                                                                                                                 BRIDGE    223
                                        *         IF ARG=COMMON IS SPECIFIED, USER FUNCTION STORES TO APLIST     BRIDGE    224
                                        *         MUST PRESERVE TYPE FIELD, SO WE SELECT I/O STORE-TO-APLIST     BRIDGE    225
                                        *         SKELETONS FOR USE IN NON-I/O CASES SINCE I/O SKEL PRESERVES    BRIDGE    226
                                        *         THIS TYPE FIELD.                                               BRIDGE    227
                                                                                                                 BRIDGE    228
            50  5110000000 X                      SA1    =XCO.ARGC                                               BRIDGE    229
                          0321000054 +            PL     X1,BRG1     IF ARG=COMMON NOT SET                       FC51544    26
            51  5120000122 +                      SA2    APST                                                    FC51544    27
                          10622                   BX6    X2                                                      FC51544    28
            52  5022000001                        SA2    A2+1                                                    FC51544    29
                          10722                   BX7    X2                                                      FC51544    30
            53  5160000125 +                      SA6    APSTR+1     APSTR = APSTR(ARC=C)                        FC51544    31
                          5170000127 +            SA7    APSTR0+1    APSTR0 = APSTR0(ARC=C)                      FC51544    32
                                                                                                                 BRIDGE    237
                                        *         SETUP CONSTANT USAGE TABLE FOR CON. SQUEEZING.                 BRIDGE    238
                                                                                                                 BRIDGE    239
            54  5110000000 X             BRG1     SA1    =XL$CVT                                                 FC51544    33
                          0301000061 +            ZR     X1,PRE.0    IF NO PASS 1 CONSTANTS                      BRIDGE    241
            55  5100000000 X                      ALLOC  CUT,X1                                                  BRIDGE    242
            56  5110000000 X                      SA1    =XNSQZLH    SQUEEZE LONG HOLLERITH FLAG                 FC5A415    24
                          10611                   SETMEM X2,X3,X1                                                FC5A415    25
                                                                                                                 BRIDGE    244
                                        *         INITIALIZE DATA STRUCTURES                                     BRIDGE    245
                                                                                                                 BRIDGE    246
            60  43600                             MX6    0                                                       BRIDGE    247
                     0100000142 +                 RJ     INS         FAKE STATEMENT ZERO                         BRIDGE    248
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE     9
        MAIN LOOP.                                                    PRE 
  
                                        *         CLEAR OPERAND BUFFERS.                                         BRIDGE    250
                                                                                                                 BRIDGE    251
            61                           PRE.0    BSS    0                                                       FC5A164    72
                                                                                                                 BRIDGE    257
                                        *         PROCESS NEXT TURPLE.                                           BRIDGE    258
                                                                                                                 BRIDGE    259
            61  0100000715 +             PRE.010  RJ     ROT         READ ONE TURPLE                             FC5A150   544
            62  43052                             MX0    -TH.LINEL                                               BRIDGE    261
                     20140                        LX1    -TH.LINEP                                               BRIDGE    262
                          15610                   BX6    -X0*X1                                                  BRIDGE    263
                               64510              SB5    A1                                                      BRIDGE    264
            63  0306000064 +                      ZR     X6,PRE.1    IF NOT NEW STATEMENT                        BRIDGE    265
                          0100000142 +            RJ     INS         INITIALIZE NEW STATEMENT                    BRIDGE    266
                                                                                                                 BRIDGE    267
            64  76100                    PRE.1    ADDWRD TST,B0                                                  BRIDGE    268
            66  56150                             SA1    B5                                                      BRIDGE    269
                     5120000132 +                 SA2    INDEX                                                   BRIDGE    270
                               73621              SX6    X2+B1                                                   BRIDGE    271
            67  54620                             SA6    A2          INDEX=INDEX+1                               BRIDGE    272
                     20116                        LX1    -TH.SKELP                                               BRIDGE    273
                          43056                   MX0    -TH.SKELL                                               FC50104   250
                               15610              BX6    -X0*X1                                                  FC50104   251
            70  64510                             SB5    A1          OPR = TURP(1)                               BRIDGE    276
                     14066                        BX0    -X6                                                     FC50104   252
                          7250000000 X            SX5    X0+=XV=NOOP                                             FC5A150   546
            71  0305000061 +                      ZR     X5,PRE.010  IF *NO-OP*                                  FC5A150   547
                                                                                                                 BRIDGE    277
            72  5256000000 X             SUB.RET  SA5    =XF.SCT+X6  SCI=SCT(OP)                                 BRIDGE    278
                          5160000133 +            SA6    PREA        SKOP = OP[OPR]                              BRIDGE    279
                                                  LX5    -SC.ADP                                                 BRIDGE    280
            73  63450                             SB4    X5                                                      BRIDGE    281
                     0440000103 +                 ZR     B4,PRE.900  IF AD[SCI] = 0                              BRIDGE    282
                               56540              SA5    B4          SKAD=AD[SCI]                                BRIDGE    283
                                                  LX5    59-SE.FIP                                               BRIDGE    284
                                                                                                                 BRIDGE    285
            74  20506                    PRE.300  LX5    SE.FIP-59-SE.TYPP                                       BRIDGE    286
                     43071                        MX0    -SE.TYPL                                                BRIDGE    287
                          15250                   BX2    -X0*X5      TY = TYP[INST]                              BRIDGE    288
                               63220              SB2    X2                                                      BRIDGE    289
            75  0420000100 +                      ZR     B2,PRE.302  IF INSTRUCTION WORD                         BRIDGE    290
                          0222000075 +            JP     B2+PRE.301-1                                            BRIDGE    291
                                                                                                                 BRIDGE    292
            76  0400000111 +             PRE.301  EQ     PRE.500     CALL                                        BRIDGE    293
            77  0400000116 +                      EQ     PRE.600     BRANCH                                      BRIDGE    294
                                                                                                                 BRIDGE    295
           100  20511                    PRE.302  LX5    SE.TYPP-SE.OCP                                          BRIDGE    296
                     43063                        MX0    -SE.OCL                                                 BRIDGE    297
                          15650                   BX6    -X0*X5      OP=OC[INST]                                 BRIDGE    298
           101  0100000255 +                      RJ     CIR         CONVERT INSTRUCTION TO RLIST                BRIDGE    299
                                                                                                                 BRIDGE    300
           102  56541                    PRE.899  SA5    B4+B1                                                   BRIDGE    301
                     66441                        SB4    B4+B1       SKAD=SKAD+1                                 BRIDGE    302
                                                  LX5    59-SE.FIP                                               BRIDGE    303
                          0325000074 +            PL     X5,PRE.300  IF NOT LAST INSTRUCTION OF SKELETON         BRIDGE    304
                                                                                                                 BRIDGE    305
           103  5110000133 +             PRE.900  SA1    PREA                                                    BRIDGE    306
                          5251000000 X            SA5    F.SCT+X1                                                BRIDGE    307
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    10
        MAIN LOOP.                                                    PRE 
  
           104  20552                             LX5    -SC.PROP                                                BRIDGE    308
                     63650                        SB6    X5                                                      BRIDGE    309
                          0460000061 +            ZR     B6,PRE.0    IF PRO[SCI] = 0  */ NO END PROCESSING       BRIDGE    310
           105  7160000061 +                      SX6    PRE.0                                                   BRIDGE    311
                          43067                   MX0    -SC.PTYPL                                               BRIDGE    312
                               20530              LX5    SC.PROP-SC.PTYPP                                        BRIDGE    313
           106  15750                             BX7    -X0*X5                                                  BRIDGE    314
                     5170000135 +                 SA7    CTYP                                                    BRIDGE    315
                               43066              MX0    -SC.PNUML                                               BRIDGE    316
           107  20506                             LX5    SC.PTYPP-SC.PNUMP                                       BRIDGE    317
                     15750                        BX7    -X0*X5                                                  BRIDGE    318
                          5170000136 +            SA7    CNUM                                                    BRIDGE    319
           110  5160000134 +                      SA6    PREB                                                    BRIDGE    320
                          0266000000              JP     B6                                                      BRIDGE    321
                                                                                                                 BRIDGE    322
                                        *         PROCESS CALL.                                                  BRIDGE    323
                                                                                                                 BRIDGE    324
           111  20537                    PRE.500  LX5    SE.TYPP-SE.PROP                                         BRIDGE    325
                     63650                        SB6    X5                                                      BRIDGE    326
                          7160000102 +            SX6    PRE.899                                                 BRIDGE    327
           112  43067                             MX0    -SE.PTYPL                                               BRIDGE    328
                     20505                        LX5    SE.PROP-SE.PTYPP                                        BRIDGE    329
                          15750                   BX7    -X0*X5                                                  BRIDGE    330
           113  5170000135 +                      SA7    CTYP                                                    BRIDGE    331
                          43066                   MX0    -SE.PNUML                                               BRIDGE    332
                               20506              LX5    SE.PTYPP-SE.PNUMP                                       BRIDGE    333
           114  15750                             BX7    -X0*X5                                                  BRIDGE    334
                     5170000136 +                 SA7    CNUM                                                    BRIDGE    335
           115  5160000134 +                      SA6    PREB                                                    BRIDGE    336
                          0266000000              JP     B6                                                      BRIDGE    337
                                                                                                                 BRIDGE    338
                                        *         PROCESS BRANCH.                                                BRIDGE    339
                                                                                                                 BRIDGE    340
           116  20566                    PRE.600  LX5    SE.TYPP-SE.BRP                                          BRIDGE    341
                     63450                        SB4    X5          SKAD=BR[INST]                               BRIDGE    342
                          56540                   SA5    B4          INST=[SKAD]                                 BRIDGE    343
                                                  LX5    59-SE.FIP                                               BRIDGE    344
           117  0400000074 +                      EQ     PRE.300                                                 BRIDGE    345
                                                                                                                 BRIDGE    346
                                        *         RETURN FROM SPECIAL PROCESSOR.                                 BRIDGE    347
                                                                                                                 BRIDGE    348
           120  5110000134 +             PRE.RET  SA1    PREB                                                    BRIDGE    349
                          63610                   SB6    X1                                                      BRIDGE    350
           121  0266000000                        JP     B6                                                      BRIDGE    351
                                                                                                                 BRIDGE    352
           122  00000000000000000000 X   APST     CON    =XV=IPLG1,=XV=IPLG2                                     FC51544    34
           123  00000000000000000000 X
           124  00000000000000000000 X   APSTR    CON    =XV=APSTR,=XV=IPLUG                                     BRIDGE    353
           125  00000000000000000000 X
           126  00000000000000000000 X   APSTR0   CON    =XV=APSTR,=XV=IPLG0                                     BRIDGE    354
           127  00000000000000000000 X
           130  00000000000000000004     LL.TXT   CON    4           LOCAL L.TXT                                 BRIDGE    355
           131  00000000000000000000     IND0     CON    0           TURPLE INDEX ORIGIN                         BRIDGE    356
           132  77777777777777777776     INDEX    CON    -1          INDEX                                       BRIDGE    357
           133                     1     PREA     BSSZ   1           SKOP                                        BRIDGE    358
           134                     1     PREB     BSSZ   1           SPECIAL PROCESSOR RETURN ADDRESS            BRIDGE    359
           135                     1     CTYP     BSSZ   1           CALL PROCESSOR PARAMETER TYP                BRIDGE    360
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    11
        MAIN LOOP.                                                    PRE 
  
           136                     1     CNUM     BSSZ   1           CALL PROCESSOR PARAMETER NUM                BRIDGE    361
           137                     1     OPT2     BSSENT 1           NON ZERO IF OPT = 2                         BRIDGE    362
           140                     1     CSN      BSSZ   1           CURRENT STATEMENT NUMBER                    BRIDGE    363
           141  00000000000000000014     OCIOL    CON    OC$LOO      CONTAINS CURRENTLY PROPER OBJECT-LIST OP.   BRIDGE    364
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    12
        STATEMENT/SEQUENCE PROCESSING.                                INS 
  
                                        **        INS - INITIALIZE NEW STATEMENT.                                BRIDGE    366
                                        *                                                                        BRIDGE    367
                                        *         ENTRY  X6 = CURRENT LINE NUMBER                                BRIDGE    368
                                                                                                                 BRIDGE    369
           142  0400400142 +             INS      SUBR                                                           BRIDGE    370
           143  5160000167 +                      SA6    BOSA                                                    BRIDGE    371
                          0100000173 +            RJ     TSP         TERMINATE PREVIOUS STATEMENT                BRIDGE    372
                                                                                                                 BRIDGE    373
           144  5150000000 X             INS10    SA5    O$TXT                                                   BRIDGE    374
                          5110000167 +            SA1    BOSA                                                    BRIDGE    375
           145  10611                             BX6    X1                                                      BRIDGE    376
                     5140000130 +                 SA4    LL.TXT                                                  BRIDGE    377
                               36045              IX0    X4+X5                                                   BRIDGE    378
           146  63751                             SB7    X5+B1                                                   BRIDGE    379
                     5230777773                   SA3    X0-4                                                    BRIDGE    380
                               26723              UX7    B2,X3                                                   BRIDGE    381
           147  0521000152 +                      NE     B2,B1,INS20 IF LAST IN TXT NOT *BOS*                    BRIDGE    382
                          5160000140 +            SA6    CSN         SET LAST STMT NUMBER                        BRIDGE    383
           150  20636                             LX6    R1.INP                                                  BRIDGE    384
                     27716                        PX7    B1,X6       OC = OC.BOS                                 BRIDGE    385
                          54730                   SA7    A3          OVERWRITE PREVIOUS BOS                      BRIDGE    386
           151  0400000142 +                      EQ     EXIT.                                                   BRIDGE    387
                                                                                                                 BRIDGE    388
                                        *         ADD THE *BOS* TO THE SEQUENCE AND CONTINUE                     BRIDGE    389
                                                                                                                 BRIDGE    390
           152  5120003003 +             INS20    SA2    LXR                                                     BRIDGE    391
                          7274765777              SX7    X4-12000B                                               BRIDGE    392
           153  0327000155 +                      PL     X7,INS30    IF L.TXT GT 12000B                          BRIDGE    393
                          7274775777              SX7    X4-2000B                                                BRIDGE    394
           154  0302000164 +                      ZR     X2,INS40    IF NO XTERNAL REFS IN SEQ                   BRIDGE    395
                          0337000164 +            MI     X7,INS40    IF L.TXT LT 2000B                           BRIDGE    396
                                                                                                                 BRIDGE    397
                                        *         TERMINATE SEQUENCE AS IT IS GETTING UNMANAGEABLE.              BRIDGE    398
                                                                                                                 BRIDGE    399
           155  43600                    INS30    MX6    0                                                       BRIDGE    400
                     5160000000 X                 SA6    CC$OPTL     NOT WELL-BEHAVED                            BRIDGE    401
           156  0100000206 +                      RJ     PCS         PROCESS SEQUENCE                            BRIDGE    402
           157  5120000137 +                      SA2    OPT2                                                    BRIDGE    403
                          5110000000 X            SA1    CBN                                                     BRIDGE    404
           160  0302000144 +                      ZR     X2,INS10    IF OPT NE 2                                 BRIDGE    405
                          7261000001              SX6    X1+1        CBN = CBN + 1                               BRIDGE    406
           161  54610                             SA6    A1                                                      BRIDGE    407
                     73260                        CFTE   X1,X6       FLOW <CBN-1, CBN>                           BRIDGE    408
           163  0400000144 +                      EQ     INS10                                                   BRIDGE    409
                                                                                                                 BRIDGE    410
           164  5160000140 +             INS40    SA6    CSN                                                     BRIDGE    411
                          20636                   LX6    R1.INP                                                  BRIDGE    412
                               43700              MX7    0                                                       BRIDGE    413
           165  66710                             =B7    OC.BOS                                                  BRIDGE    414
                     10566                        BX5    X6                                                      BRIDGE    415
                          0100000546 +            RJ     IRI         ISSUE BOS                                   BRIDGE    416
           166  0400000142 +                      EQ     EXIT.                                                   BRIDGE    417
                                                                                                                 BRIDGE    418
           167                     1     BOSA     BSSZ   1           TEMPORARY CURRENT STATEMENT NUMBER          BRIDGE    419
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    13
        STATEMENT/SEQUENCE PROCESSING.                                SEG 
  
                                        **        P=SEG - RESET TURPLE COUNTERS.                                 BRIDGE    421
                                        *         NEXT TURPLE IS ZERO.                                           BRIDGE    422
                                                                                                                 BRIDGE    423
           170                           P=SEG    BSSENT 0                                                       BRIDGE    424
           170  43600                             MX6    0                                                       BRIDGE    425
                     5160000131 +                 SA6    IND0                                                    BRIDGE    426
                               43673              MX6    -1                                                      BRIDGE    427
           171  5160000132 +                      SA6    INDEX                                                   BRIDGE    428
                          0100000173 +            RJ     TSP                                                     BRIDGE    429
           172  0400000120 +                      EQ     PRE.RET                                                 BRIDGE    430
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    14
        STATEMENT/SEQUENCE PROCESSING.                                TSP 
  
                                        **        TSP - TERMINATE STATEMENT PROCESSING.                          BRIDGE    432
                                        *         REORDERS BUFFERS FOR NEXT STATEMENT PROCESSING OR PCS CALL.    BRIDGE    433
                                                                                                                 BRIDGE    434
           173  0400400173 +             TSP      SUBR                                                           BRIDGE    435
           174  5110000130 +                      SA1    LL.TXT                                                  BRIDGE    436
                          10611                   BX6    X1                                                      BRIDGE    437
           175  5160000205 +                      SA6    TXT0        MARK START OF NEXT STATEMENT TXT            BRIDGE    438
                          5110000131 +            SA1    IND0                                                    BRIDGE    439
           176  5120000132 +                      SA2    INDEX                                                   BRIDGE    440
                          36612                   IX6    X1+X2                                                   BRIDGE    441
                               73661              SX6    X6+B1                                                   BRIDGE    442
           177  43773                             MX7    -1                                                      BRIDGE    443
                     54610                        SA6    A1          IND0 = IND0 + INDEX + 1                     BRIDGE    444
                          54720                   SA7    A2          INDEX = -1                                  BRIDGE    445
                               43700              MX7    0                                                       BRIDGE    446
           200  5170000000 X                      SA7    =XL$TST     L.TST=0                                     BRIDGE    447
                          5120000000 X            SA2    =XN.STMAX                                               BRIDGE    448
           201  5110000000 X                      SA1    N.ST                                                    BRIDGE    449
                          37612                   MX6    X1+X2                                                   BRIDGE    450
                               54710              SA7    A1          N.ST = 0                                    BRIDGE    451
           203  54620                             SA6    A2          N.STMAX = MAX (N.ST, N.STMAX)               BRIDGE    452
                     5170000000 X                 SA7    =XL$DTT     L.DTT = 0                                   BRIDGE    453
           204  0400000173 +                      EQ     TSP                                                     BRIDGE    454
                                                                                                                 BRIDGE    455
           205  00000000000000000004     TXT0     CON    4           TXT POINTER FOR START OF THIS STATEMENT     BRIDGE    456
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    15
        STATEMENT/SEQUENCE PROCESSING.                                PCS 
  
                                        **        PCS - PROCESS CURRENT SEQUENCE.                                BRIDGE    458
                                                                                                                 BRIDGE    459
           206  0400400206 +             PCS      SUBR                                                           BRIDGE    460
           207  0100000173 +                      RJ     TSP         TERMINATE STATEMENT                         BRIDGE    461
           210  76040                             SX0    B4                                                      BRIDGE    462
                     76750                        SX7    B5                                                      BRIDGE    463
                          20022                   LX0    18                                                      BRIDGE    464
                               12770              BX7    X7+X0                                                   BRIDGE    465
           211  5170000224 +                      SA7    PCSA                                                    BRIDGE    466
                          5110000130 +            SA1    LL.TXT                                                  BRIDGE    467
           212  10711                             BX7    X1                                                      BRIDGE    468
                     7261777773                   SX6    X1-4                                                    BRIDGE    469
           213  5170000000 X                      SA7    L$TXT       L.TXT = LL.TXT  */PREPARE FOR PAS           BRIDGE    470
                          5160000001 X            SA6    =XCC$BRN+1  LAST R-NUMBER = L.TXT-4                     BRIDGE    471
           214  0100000226 +                      RJ     IST         ISSUE STORES TO TEMPS.                      BRIDGE    472
           215  0100000000 X                      CALL   CG$PAS                                                  BRIDGE    473
           216  5110000224 +                      SA1    PCSA                                                    BRIDGE    474
                          63510                   SB5    X1                                                      BRIDGE    475
                               21122              AX1    18                                                      BRIDGE    476
           217  63410                             SB4    X1                                                      BRIDGE    477
                     7170000004                   SX7    4                                                       BRIDGE    478
           220  5170000205 +                      SA7    TXT0        MARK START OF TXT FOR THIS STATEMENT        BRIDGE    479
                          5170000130 +            SA7    LL.TXT                                                  BRIDGE    480
           221  5110000225 +                      SA1    LALS        LOOP ACTIVE STACK LENGTH (NEST DEPTH)       BRIDGE    481
                          43700                   MX7    0                                                       BRIDGE    482
                               10611              BX6    X1                                                      BRIDGE    483
           222  5160000000 X                      SA6    =XCC$LNL                                                BRIDGE    484
                          5170003003 +            SA7    LXR                                                     BRIDGE    485
           223  0400000206 +                      EQ     EXIT.                                                   BRIDGE    486
                                                                                                                 BRIDGE    487
           224                     1     PCSA     BSSZ   1                                                       BRIDGE    488
           225                     1     LALS     BSSZ   1           LOOP ACTIVE STACK LENGTH                    BRIDGE    489
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    16
        STATEMENT/SEQUENCE PROCESSING.                                IST 
  
                                        **        IST - ISSUE STATEMENT TEMPORARY STORES.                        BRIDGE    491
                                                                                                                 BRIDGE    492
           226  0400400226 +             IST      SUBR                                                           BRIDGE    493
           227  5110000000 X                      SA1    =XL$FUN                                                 BRIDGE    494
                          0301000226 +            ZR     X1,EXIT.    IF NO STORES FLAGGED                        BRIDGE    495
           230  5120000000 X                      SA2    =XO$FUN                                                 BRIDGE    496
                          66600                   SB6    B0                                                      BRIDGE    497
                               43074              MX0    60                                                      BRIDGE    498
           231  76500                             =X5    0                                                       BRIDGE    499
                     63720                        SB7    X2                                                      BRIDGE    500
                          0100000000 X            CALL   SST#                                                    BRIDGE    501
           232  5110000000 X                      SA1    L$FUN                                                   BRIDGE    502
                          20102                   LX1    2                                                       BRIDGE    503
           233  5100000000 X                      ALLOC  TXT,X1      ALLOC FOR STORES                            BRIDGE    504
           234  5110000000 X                      SA1    O$FUN                                                   BRIDGE    505
                          5201777776              SA0    X1-1                                                    BRIDGE    506
           235  63520                             SB5    X2          O$TXT                                       BRIDGE    507
                     5110000000 X                 SA1    L$FUN                                                   BRIDGE    508
                               43700              MX7    0                                                       BRIDGE    509
           236  54710                             SA7    A1                                                      BRIDGE    510
                     6223777773                   SB2    X3-4        IND = L$TXT                                 BRIDGE    511
                               63610              SB6    X1          I = L$FUN  */NUMBER OF STORES TO INSERT     BRIDGE    512
                                                                                                                 BRIDGE    513
           237  0460000226 +             IST10    ZR     B6,EXIT.    IF I EQ 0                                   BRIDGE    514
                          54406                   SA4    A0+B6       INST = FUN(I)                               BRIDGE    515
                               10044              BX0    X4                                                      BRIDGE    516
           240  20452                             LX4    -SD.RNP     RNC = RN[INST]                              BRIDGE    517
                     6234000004                   SB3    X4+4        RNN = RNC + 1                               BRIDGE    518
                               76460              SX4    B6                                                      BRIDGE    519
           241  20402                             LX4    2                                                       BRIDGE    520
                     63443                        SB4    B3+X4                                                   BRIDGE    521
                          0724000245 +            GT     B4,B2,IST20 IF RNN+I GT IND                             BRIDGE    522
           242  76253                             SX2    B5+B3                                                   BRIDGE    523
                     36324                        IX3    X2+X4                                                   BRIDGE    524
                          6144777773              SB4    B4-4                                                    BRIDGE    525
           243  77124                             SX1    B2-B4                                                   BRIDGE    526
                     0100000000 X                 MOVE   X1,X2,X3                                                BRIDGE    527
           244  66240                             SB2    B4          IND = RNN+I-4                               BRIDGE    528
                                                                                                                 BRIDGE    529
           245  5130000000 X             IST20    SA3    =XS=ST                                                  BRIDGE    530
                          73400                   SX4    X0                                                      BRIDGE    531
                                                  LX3    IH.IHP                                                  BRIDGE    532
                               20422              LX4    IH.CAP                                                  BRIDGE    533
           246  12634                             BX6    X3+X4                                                   BRIDGE    534
                     6130000051                   SB3    OC.ST                                                   BRIDGE    535
                               21022              AX0    SD.RNP                                                  BRIDGE    536
                                                  LX0    R1.RIP                                                  BRIDGE    537
           247  5130000051 X                      SA3    =XF$RDT+OC.ST                                           BRIDGE    538
                          27730                   PX7    B3,X0                                                   BRIDGE    539
                               56752              SA7    B5+B2                                                   BRIDGE    540
           250  54671                             SA6    A7+B1                                                   BRIDGE    541
                     10733                        BX7    X3                                                      BRIDGE    542
                          43600                   MX6    0                                                       BRIDGE    543
                               54761              SA7    A6+B1                                                   BRIDGE    544
           251  54671                             SA6    A7+B1                                                   BRIDGE    545
                     67661                        SB6    B6-B1       I = I-1                                     BRIDGE    546
                          6122777773              SB2    B2-4        IND = IND - 1                               BRIDGE    547
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    17
        STATEMENT/SEQUENCE PROCESSING.                                IST 
  
           252  0400000237 +                      EQ     IST10                                                   BRIDGE    548
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    18
        INSTRUCTION PROCESSING ROUTINES.                              CIR 
  
                                        **        CIR - CONVERT INSTRUCTION TO RLIST.                            BRIDGE    550
                                        *                                                                        BRIDGE    551
                                        *         ENTRY  X6 = OPCODE                                             BRIDGE    552
                                        *                B4 _ CURRENT SET ENTRY                                  BRIDGE    553
                                        *                B5 _ CURRENT TURPLE OPERATOR WORD                       BRIDGE    554
                                        *                                                                        BRIDGE    555
                                        *         EXIT  B4,B5 PRESERVED                                          BRIDGE    556
                                        *                                                                        BRIDGE    557
                                         NOV      MACRO  N,X                                                     BRIDGE    558
                                                  SA5    B4                                                      BRIDGE    559
                                                  MX0    -SE.N_TYPL                                              BRIDGE    560
                                                  LX5    -SE.N_TYPP                                              BRIDGE    561
                                                  BX1    -X0*X5                                                  BRIDGE    562
                                                  MX0    -SE.N_NUML                                              BRIDGE    563
                                                  LX5    SE.N_TYPP-SE.N_NUMP                                     BRIDGE    564
                                                  BX2    -X0*X5                                                  BRIDGE    565
                                                  RJ     GOV                                                     BRIDGE    566
                                                  IFC    EQ,/X//,1                                               BRIDGE    567
                                                  SA6    CIRV+N-1                                                BRIDGE    568
                                                  ENDM                                                           BRIDGE    569
           253  5110000363 +             CIR0     SA1    CIRA                                                    BRIDGE    570
                          63710                   SB7    X1                                                      BRIDGE    571
           254  0100000546 +                      RJ     IRI         ISSUE RLIST INSTRUCTION (OC,VAL)            BRIDGE    572
                                                                                                                 BRIDGE    573
           255  0400400255 +             CIR      SUBR                                                           BRIDGE    574
           256  5160000363 +                      SA6    CIRA                                                    BRIDGE    575
                          5216000000 X            SA1    =XF$RDT+X6                                              BRIDGE    576
           257  14711                             BX7    -X1                                                     BRIDGE    577
                     20722                        HX7    D.^D                                                    BRIDGE    578
                          5170000364 +            SA7    CIRB        SAVE RI FIELD DEFINED PROPERTY              BRIDGE    579
                                                  LX1    59-D.TYP-1                                              BRIDGE    580
           260  22211                             LX2    B1,X1                                                   BRIDGE    581
                     0331000307 +                 MI     X1,CIR1     IF TY[DESCR(OC)] .GE. 2  */  TYPE > 2       BRIDGE    582
                                        *                                                                        BRIDGE    583
                                        *         PROCESS TYPE 1 AND 2 RLIST.                                    BRIDGE    584
                                                                                                                 BRIDGE    585
                               56540              NOV    3           VAL(3) = RK/SO                              BRIDGE    586
                          7170000004              SX7    4                                                       BRIDGE    587
           264  5170000366 +                      SA7    RJOFF       MARK ANY R-NUMBER DEFINED AS RI+4           BRIDGE    588
                                                                                                                 BRIDGE    589
                                        *         SET DEF TO INDICATE RK FIELD DEFINED IF THIS IS                BRIDGE    590
                                        *         NORMALIZE OR PACK INSTRUCTION.                                 BRIDGE    591
                                                                                                                 BRIDGE    592
                          5110000363 +            SA1    CIRA                                                    BRIDGE    593
           265  6221777753                        SB2    X1-OC.NR                                                BRIDGE    594
                          6231777750              SB3    X1-OC.UP-1                                              BRIDGE    595
           266  0720000270 +                      MI     B2,CIR05    IF NOT NORMALIZE OR PACK                    BRIDGE    596
                          0630000270 +            PL     B3,CIR05    DITTO                                       BRIDGE    597
           267  43701                             MX7    1           SET DEF THIS FIELD                          BRIDGE    598
                     5170000365 +                 SA7    DEF                                                     BRIDGE    599
                                                                                                                 BRIDGE    600
           270  56540                    CIR05    NOV    2           VAL(2) = RJ/IN                              BRIDGE    601
                          5110000364 +            SA1    CIRB                                                    BRIDGE    602
           274  10711                             BX7    X1                                                      BRIDGE    603
                     5170000365 +                 SA7    DEF                                                     BRIDGE    604
                               76700              =X7    0                                                       BRIDGE    605
           275  5170000366 +                      SA7    RJOFF                                                   BRIDGE    606
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    19
        INSTRUCTION PROCESSING ROUTINES.                              CIR 
  
                          56540                   NOV    1,X6        VAL(1) = RI                                 BRIDGE    607
           300  5110000363 +                      SA1    CIRA                                                    BRIDGE    608
                          5221000000 X            SA2    F$RDT+X1                                                BRIDGE    609
           301  20201                             LX2    59-D.TYP                                                BRIDGE    610
                     5150000360 +                 SA5    CIRV+1                                                  BRIDGE    611
                               43700              MX7    0                                                       BRIDGE    612
           302  5170000365 +                      SA7    DEF                                                     BRIDGE    613
                          54451                   SA4    A5+B1                                                   BRIDGE    614
           303  0332000305 +                      MI     X2,CIR1A    IF TYPE = 2                                 BRIDGE    615
                          20520                   LX5    R1.RJP-R1.RKP                                           BRIDGE    616
                               12345              BX3    X4+X5                                                   BRIDGE    617
           304  20320                             LX3    R1.RKP                                                  BRIDGE    618
                                                  LX6    R1.RIP                                                  BRIDGE    619
                     12563                        BX5    X6+X3                                                   BRIDGE    620
                          0400000253 +            EQ     CIR0                                                    BRIDGE    621
                                                                                                                 BRIDGE    622
           305  20516                    CIR1A    LX5    R1.INP-R1.SOP                                           BRIDGE    623
                     12345                        BX3    X4+X5                                                   BRIDGE    624
                          20320                   LX3    R1.SOP                                                  BRIDGE    625
                                                  LX6    R1.RIP                                                  BRIDGE    626
                               12563              BX5    X6+X3                                                   BRIDGE    627
           306  0400000253 +                      EQ     CIR0                                                    BRIDGE    628
                                                                                                                 BRIDGE    629
                                        *         PROCESS TYPE 3 RLIST.                                          BRIDGE    630
                                                                                                                 BRIDGE    631
           307  0332000351 +             CIR1     MI     X2,CIR3     IF TYPE = 4                                 BRIDGE    632
                          63260                   SB2    X6                                                      BRIDGE    633
           310  6132777726                        SB3    B2-OC.ST                                                BRIDGE    634
                          0430000336 +            ZR     B3,CIR2     IF STORE                                    BRIDGE    635
                                                                                                                 BRIDGE    636
           311  56540                             NOV    3           IH/CA                                       BRIDGE    637
                          56540                   NOV    2,X6        RF                                          BRIDGE    638
           317  5110000361 +                      SA1    CIRV+2      IH/CA                                       BRIDGE    639
                          10566                   BX5    X6                                                      BRIDGE    640
                               43044              MX0    -SY.CAL                                                 BRIDGE    641
                                                  LX1    -SY.CAP                                                 BRIDGE    642
           320  15010                             BX0    -X0*X1                                                  BRIDGE    643
                     0100000526 +                 RJ     ACA         ADJUST LONG CA (ISSUE LDC, IA)              BRIDGE    644
           321  5130000361 +                      SA3    CIRV+2                                                  BRIDGE    645
                          10655                   BX6    X5                                                      BRIDGE    646
           322  5160000360 +                      SA6    CIRV+1      RF = RFNEW                                  BRIDGE    647
                                                  LX0    SY.CAP                                                  BRIDGE    648
                          43144                   MX1    -SY.CAL                                                 BRIDGE    649
                                                  LX1    SY.CAP                                                  BRIDGE    650
                               11613              BX6    X1*X3       CLEAR OLD CA                                BRIDGE    651
           323  12760                             BX7    X6+X0       CA = CANEW                                  BRIDGE    652
                     54730                        SA7    A3                                                      BRIDGE    653
                          5110000364 +            SA1    CIRB                                                    BRIDGE    654
           324  10711                             BX7    X1                                                      BRIDGE    655
                     5170000365 +                 SA7    DEF                                                     BRIDGE    656
                               56540              NOV    1,X6        VAL(1) = RI                                 BRIDGE    657
           327  43700                             MX7    0                                                       BRIDGE    658
                     5170000365 +                 SA7    DEF                                                     BRIDGE    659
           330  5110000361 +                      SA1    CIRV+2                                                  BRIDGE    660
                          10566                   BX5    X6                                                      BRIDGE    661
                               43052              MX0    -IH.CAL                                                 BRIDGE    662
                                                  LX1    -SY.CAP                                                 BRIDGE    663
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    20
        INSTRUCTION PROCESSING ROUTINES.                              CIR 
  
           331  15610                             BX6    -X0*X1                                                  BRIDGE    664
                     21130                        AX1    SY.IHP                                                  BRIDGE    665
                          5140000363 +            SA4    CIRA                                                    BRIDGE    666
           332  5130000360 +                      SA3    CIRV+1                                                  BRIDGE    667
                                                  LX1    IH.IHP                                                  BRIDGE    668
                          6264777710              SB6    X4-OC.JPX                                               BRIDGE    669
           333  20622                             LX6    IH.CAP                                                  BRIDGE    670
                     12016                        BX0    X1+X6                                                   BRIDGE    671
                          0460000335 +            ZR     B6,CIR15    IF X-JUMP  */ FIELD2 IS FOR CA              BRIDGE    672
           334  20344                             LX3    IH.RFP                                                  BRIDGE    673
                     12703                        BX7    X0+X3                                                   BRIDGE    674
                          0400000253 +            EQ     CIR0                                                    BRIDGE    675
                                                                                                                 BRIDGE    676
           335  20322                    CIR15    LX3    IH.CAP                                                  BRIDGE    677
                     12703                        BX7    X0+X3                                                   BRIDGE    678
                          0400000253 +            EQ     CIR0                                                    BRIDGE    679
                                                                                                                 BRIDGE    680
                                        *         PROCESS STORE.                                                 BRIDGE    681
                                                                                                                 BRIDGE    682
           336  56540                    CIR2     NOV    2,X6        ISSUE XMIT AS RJ                            BRIDGE    683
           341  43700                             MX7    0                                                       BRIDGE    684
                     20640                        LX6    R1.RJP                                                  BRIDGE    685
                          5150000130 +            SA5    LL.TXT                                                  BRIDGE    686
                                                  LX5    R1.RIP                                                  BRIDGE    687
           342  12556                             BX5    X5+X6                                                   BRIDGE    688
                     6170000010                   SB7    OC.XMT                                                  BRIDGE    689
           343  0100000546 +                      RJ     IRI         ISSUE RLIST INSTRUCTION (OC.XMT,VAL)        BRIDGE    690
           344  76610                             SX6    B1                                                      BRIDGE    691
                     5160000356 +                 SA6    SMF         SET STORE MODE                              BRIDGE    692
                                                                                                                 BRIDGE    693
                               56540              NOV    1,X6                                                    BRIDGE    694
           347  43600                             MX6    0                                                       BRIDGE    695
                     5160000356 +                 SA6    SMF         CLEAR STORE MODE                            BRIDGE    696
           350  0400000255 +                      EQ     CIR                                                     BRIDGE    697
                                                                                                                 BRIDGE    698
                                        *         PROCESS TYPE 4.                                                BRIDGE    699
                                                                                                                 BRIDGE    700
           351  56540                    CIR3     NOV    3,X6        VAL(3) = IH                                 BRIDGE    701
           354  43700                             MX7    0                                                       BRIDGE    702
                     20644                        LX6    R1.IHP-SY.IHP                                           BRIDGE    703
                          10566                   BX5    X6                                                      BRIDGE    704
           355  0400000253 +                      EQ     CIR0                                                    BRIDGE    705
                                                                                                                 BRIDGE    706
           356                     1     SMF      BSSZ   1           STORE MODE FLAG                             BRIDGE    707
           357                     4     CIRV     BSS    4           PARAMETER VALUES FOR IRI                    BRIDGE    708
           363                     1     CIRA     BSS    1           OP CODE                                     BRIDGE    709
           364                     1     CIRB     BSSZ   1                                                       BRIDGE    710
           365                     1     DEF      BSSZ   1           THIS FIELD DEFINED (FOR GOV)                BRIDGE    711
           366                     1     RJOFF    BSSZ   1           RJ FIELD OFFSET                             BRIDGE    712
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    21
        INSTRUCTION PROCESSING ROUTINES.                              GOV 
  
                                        **        GOV - GET OPERAND VALUE.                                       BRIDGE    714
                                        *                                                                        BRIDGE    715
                                        *         ENTRY  X1 = OPERAND TYPE                                       BRIDGE    716
                                        *                X2 = OPERAND NUM                                        BRIDGE    717
                                        *                                                                        BRIDGE    718
                                        *         EXIT   X6 = OPERAND VALUE (R-NUMBER OR IMMEDIATE FIELD VALUE)  BRIDGE    719
                                        *                                                                        BRIDGE    720
                                        *         PRESERVES  B4,B5                                               BRIDGE    721
                                                                                                                 BRIDGE    722
                                                  PURGMAC SKOP                                                   BRIDGE    723
                                                                                                                 BRIDGE    724
                                                  MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ                          BRIDGE    725
                                                  IFC    EQ, OPEQ  ,1                                            BRIDGE    726
                                                  CON    GOV.OP                                                  FC5A132   172
                                                  ENDM                                                           BRIDGE    728
                                                                                                                 BRIDGE    729
           367  0400400367 +             GOV      SUBR                                                           BRIDGE    730
           370  5251000373 +                      SA5    GOV.JT+X1                                               FC5A132   173
                          5140000132 +            SA4    INDEX                                                   BRIDGE    731
           371  43600                             MX6    0           GOV = 0                                     BRIDGE    733
                     63350                        SB3    X5                                                      FC5A132   174
                          63220                   SB2    X2                                                      BRIDGE    735
                               63740              SB7    X4                                                      BRIDGE    736
           372  5150000365 +                      SA5    DEF                                                     BRIDGE    737
                          0233000000              JP     B3                                                      FC5A132   175
           373                           GOV.JT   BSS    0                                                       BRIDGE    739
                                                                                                                 BRIDGE    740
      L      0                                    LOC    0                                                       BRIDGE    741
                                                  LIST   -X,G                                                    BRIDGE    742
                                                                                                                 BRIDGE    743
      L      0  00000000000000000367 +            CON    GOV         NULL OPERAND                                FC5A132   176
      L      1                           SKOP     CTEXT                                                          SKOP        2
      L      1  00000000000000000413 +            CON    GOV.A                                                  SKOP    .1
      L      2  00000000000000000413 +            CON    GOV.B                                                  SKOP    .1
      L      3  00000000000000000413 +            CON    GOV.X                                                  SKOP    .1
      L      4  00000000000000000414 +            CON    GOV.L                                                  SKOP    .1
      L      5  00000000000000000416 +            CON    GOV.LL                                                 SKOP    .1
      L      6  00000000000000000420 +            CON    GOV.P                                                  SKOP    .1
      L      7  00000000000000000422 +            CON    GOV.R                                                  SKOP    .1
      L     10  00000000000000000425 +            CON    GOV.RL                                                 SKOP    .1
      L     11  00000000000000000450 +            CON    GOV.GP                                                 SKOP    .1
      L     12  00000000000000000442 +            CON    GOV.GL                                                 SKOP    .1
      L     13  00000000000000000445 +            CON    GOV.GLL                                                SKOP    .1
      L     14  00000000000000000431 +            CON    GOV.T                                                  SKOP    .1
      L     15  00000000000000000435 +            CON    GOV.Q                                                  SKOP    .1
      L     16  00000000000000000440 +            CON    GOV.S                                                  SKOP    .1
      L     17  00000000000000000437 +            CON    GOV.K                                                  SKOP    .1
                                                                                                                 BRIDGE    746
                                                  LIST   *                                                       BRIDGE    747
           413                                    LOC    *O                                                      BRIDGE    748
                                                                                                                 BRIDGE    749
           413                           GOV.A    BSS    0                                                       BRIDGE    750
           413                           GOV.B    BSS    0                                                       BRIDGE    751
           413  0400400413 +             GOV.X    EQ     "BLOWUP"                                                BRIDGE    752
                                                                                                                 BRIDGE    753
           414                           GOV.L    BSS    0                                                       BRIDGE    754
           414  66600                    GOV.LU   SB6    B0                                                      FC5A164    73
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    22
        INSTRUCTION PROCESSING ROUTINES.                              GOV 
  
                     56452                        SA4    B5+B2       O = OPD(NUM)                                BRIDGE    761
                          0100000454 +            RJ     LOP         LOAD OPERAND                                BRIDGE    762
           415  0400000367 +                      EQ     GOV                                                     BRIDGE    764
                                                                                                                 BRIDGE    765
           416  66610                    GOV.LL   SB6    B1                                                      FC5A164    74
                     56452                        SA4    B5+B2       O = OPD(NUM)                                BRIDGE    772
                          0100000454 +            RJ     LOP         LOAD OPERAND                                BRIDGE    773
           417  0400000367 +                      EQ     GOV                                                     BRIDGE    775
                                                                                                                 BRIDGE    776
           420  56152                    GOV.P    SA1    B5+B2       O = OPD(NUM)                                BRIDGE    777
                     0100003476 +                 RJ     GLT         GET SYMBOL/LABEL TAG                        BRIDGE    778
                                                                                                                 BRIDGE    779
           421  20330                    GOVP1    LX3    SY.IHP                                                  BRIDGE    780
                                                  LX4    SY.CAP                                                  BRIDGE    781
                     12643                        BX6    X4+X3       GOV=IHCA[O]                                 BRIDGE    782
                          0400000367 +            EQ     GOV                                                     BRIDGE    783
                                                                                                                 BRIDGE    784
           422                           GOV.R    BSS    0                                                       BRIDGE    785
           422  5120000130 +             GOV.RU   SA2    LL.TXT                                                  BRIDGE    786
                          10622                   BX6    X2                                                      BRIDGE    787
           423  5120000000 X                      SA2    =XO$TST                                                 BRIDGE    788
                                                  LX6    TS.RNUP                                                 BRIDGE    789
                          53327                   SA3    X2+B7                                                   BRIDGE    790
                               12763              BX7    X6+X3                                                   BRIDGE    791
           424  54730                             SA7    A3          RNU[TST(INDEX)] = LL.TXT                    BRIDGE    792
                                                  LX6    -TS.RNUP    GOV = LL.TXT                                BRIDGE    793
                     0400000367 +                 EQ     GOV                                                     BRIDGE    794
                                                                                                                 BRIDGE    795
           425  5120000130 +             GOV.RL   SA2    LL.TXT                                                  BRIDGE    796
                          10622                   BX6    X2                                                      BRIDGE    797
           426  5120000000 X                      SA2    =XO$TST                                                 BRIDGE    798
                          20622                   LX6    TS.RNLP                                                 BRIDGE    799
                               53327              SA3    X2+B7                                                   BRIDGE    800
           427  12763                             BX7    X6+X3                                                   BRIDGE    801
                     54730                        SA7    A3          RNL[TST(INDEX)] = LL.TXT                    BRIDGE    802
                          20652                   LX6    -TS.RNLP    GOV = LL.TXT                                BRIDGE    803
           430  0400000367 +                      EQ     GOV                                                     BRIDGE    804
                                                                                                                 BRIDGE    805
                                                                                                                 BRIDGE    806
           431  5112000002 +             GOV.T    SA1    GOVT+B2                                                 BRIDGE    807
                          10611                   BX6    X1                                                      BRIDGE    808
           432  0325000367 +                      PL     X5,GOV      IF FIELD NOT DEFINED HERE, GOV=T(NUM)       BRIDGE    809
                          5140000366 +            SA4    RJOFF                                                   BRIDGE    810
           433  5130000130 +                      SA3    LL.TXT                                                  BRIDGE    811
                          36634                   IX6    X3+X4                                                   BRIDGE    812
                               54610              SA6    A1          GOV = T(NUM) = LL.TXT + RJOFFSET            BRIDGE    813
           434  0400000367 +                      EQ     GOV                                                     BRIDGE    814
                                                                                                                 BRIDGE    815
           435  56540                    GOV.Q    SA5    B4                                                      BRIDGE    816
                     73550                        SX5    X5                                                      BRIDGE    817
                          43044                   MX0    -SY.CAL                                                 BRIDGE    818
                               15650              BX6    -X0*X5                                                  BRIDGE    819
                                                  LX6    SY.CAP                                                  BRIDGE    820
           436  0400000367 +                      EQ     GOV                                                     BRIDGE    821
                                                                                                                 BRIDGE    822
           437  76620                    GOV.K    SX6    B2                                                      BRIDGE    823
                     0400000367 +                 EQ     GOV                                                     BRIDGE    824
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    23
        INSTRUCTION PROCESSING ROUTINES.                              GOV 
  
                                                                                                                 BRIDGE    825
           440  56540                    GOV.S    SA5    B4                                                      BRIDGE    826
                     53150                        SA1    X5                                                      BRIDGE    827
                          10611                   BX6    X1                                                      BRIDGE    828
                               20630              LX6    SY.IHP                                                  BRIDGE    829
           441  0400000367 +                      EQ     GOV                                                     BRIDGE    830
                                                                                                                 BRIDGE    831
           442                           GOV.GLU  BSS    0                                                       BRIDGE    832
           442  66600                    GOV.GL   SB6    B0                                                      BRIDGE    833
                     5142000030 +                 SA4    GOVG+B2                                                 BRIDGE    834
           443  0100000454 +                      RJ     LOP                                                     BRIDGE    835
           444  0400000367 +                      EQ     GOV                                                     BRIDGE    836
                                                                                                                 BRIDGE    837
           445  66610                    GOV.GLL  SB6    B1                                                      BRIDGE    838
                     5142000030 +                 SA4    GOVG+B2                                                 BRIDGE    839
           446  0100000454 +                      RJ     LOP                                                     BRIDGE    840
           447  0400000367 +                      EQ     GOV                                                     BRIDGE    841
                                                                                                                 BRIDGE    842
           450  5112000030 +             GOV.GP   SA1    GOVG+B2                                                 BRIDGE    843
                          0100003476 +            RJ     GLT         GET SYMBOL/LABEL TAG                        BRIDGE    844
           451  0400000421 +                      EQ     GOVP1                                                   BRIDGE    845
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    24
        INSTRUCTION PROCESSING ROUTINES.                              LOP 
  
                                        **        LOP - LOAD OPERAND.                                            BRIDGE    847
                                        *         ISSUES LOAD OR STORE OR SET OF OPERAND.                        BRIDGE    848
                                        *                                                                        BRIDGE    849
                                        *         ENTRY  X4 = OPERAND                                            BRIDGE    850
                                        *                B6 = LOW, LOWER HALF FLAG                               BRIDGE    851
                                        *                                                                        BRIDGE    852
                                        *         EXIT   X6 = R-NUMBER OF OPERAND                                BRIDGE    853
                                        *                                                                        BRIDGE    854
                                        *         PRESERVES          B2,B4,B5                                    BRIDGE    855
                                                                                                                 BRIDGE    856
           452  5110000523 +             LOPE     SA1    LOPA                                                    BRIDGE    857
                          6221000000              SB2    X1+                                                     BRIDGE    858
           453  43700                             MX7    0                                                       BRIDGE    859
                     5170000356 +                 SA7    SMF                                                     BRIDGE    860
                                                                                                                 BRIDGE    861
           454  0400400454 +             LOP      SUBR                                                           BRIDGE    862
           455  76620                             SX6    B2                                                      BRIDGE    863
                     5160000523 +                 SA6    LOPA                                                    BRIDGE    864
           456  5130000356 +                      SA3    SMF                                                     BRIDGE    865
                          76011                   =X0    1S1                                                     BRIDGE    866
                               10144              BX1    X4          FOR GLT                                     BRIDGE    867
           457  20462                             LX4    -TP.ADDRP+1                                             BRIDGE    868
                     11504                        BX5    X0*X4                                                   BRIDGE    869
                          12035                   BX0    X3+X5                                                   BRIDGE    870
           460  5150000130 +                      SA5    LL.TXT                                                  BRIDGE    871
                                                  LX5    R1.RIP      RI = LL.TXT                                 BRIDGE    872
                                                                                                                 BRIDGE    873
                                        *         SELECT OC.LD/ST/STT                                            BRIDGE    874
                                                                                                                 BRIDGE    875
                          6270000050              SB7    OC.LD+X0    OPC = OC.LD + (2*ADDR[O]+SMF)               BRIDGE    876
           461  20471                             LX4    TP.ADDRP-1+59-TP.SHRTP                                  BRIDGE    877
                     0324000471 +                 PL     X4,LOP1     IF ^SHRT[O]   IF NOT SHORT CONSTANT         BRIDGE    878
                                                                                                                 BRIDGE    879
           462  6170000055                        SB7    OC.S        OPC = OC.S                                  BRIDGE    880
                          43044                   MX0    -SY.CAL                                                 BRIDGE    881
                               20465              LX4    TP.SHRTP-59-TP.BIASP+60                                 BRIDGE    882
           463  15640                             BX6    -X0*X4                                                  BRIDGE    883
                     7246777777                   SX4    X6-0                                                    BRIDGE    884
                               43700              MX7    0                                                       BRIDGE    885
           464  0324000465 +                      PL     X4,LOP05    IF CONSTANT POSITIVE                        BRIDGE    886
                          0304000467 +            ZR     X4,LOP07    IF -0                                       BRIDGE    887
                                                                                                                 BRIDGE    888
           465  20636                    LOP05    LX6    R1.INP                                                  BRIDGE    889
                     12556                        BX5    X5+X6                                                   BRIDGE    890
                          0100000546 +            RJ     IRI         ISSUE (S,VAL)                               BRIDGE    891
           466  43054                             MX0    -R1.RIL                                                 BRIDGE    892
                                                  LX5    -R1.RIP                                                 BRIDGE    893
                     15650                        BX6    -X0*X5                                                  BRIDGE    894
                          0400000452 +            EQ     LOPE                                                    BRIDGE    895
                                                                                                                 BRIDGE    896
           467  7160000074               LOP07    SX6    60                                                      BRIDGE    897
                          6170000043              SB7    OC.FMA                                                  BRIDGE    898
           470  0400000465 +                      EQ     LOP05       ISSUE MASK(60)                              BRIDGE    899
                                                                                                                 BRIDGE    900
           471  20402                    LOP1     LX4    TP.SHRTP-TP.INTRP                                       BRIDGE    901
                     0334000514 +                 MI     X4,LOP2     IF INTR[O]   IF INTERMEDIATE OPERAND        BRIDGE    902
           472  0100003476 +                      RJ     GLT         GET LABEL/SYMBOL TAG                        BRIDGE    903
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    25
        INSTRUCTION PROCESSING ROUTINES.                              LOP 
  
           473  5120000000 X                      SA2    S=CON                                                   BRIDGE    904
                          13223                   BX2    X2-X3                                                   BRIDGE    905
           474  0312000476 +                      NZ     X2,LOP15    IF NOT CONSTANT LOAD                        BRIDGE    906
                          6170000103              SB7    OC.LDC                                                  BRIDGE    907
           475  0400000501 +                      EQ     LOP16                                                   BRIDGE    908
                                                                                                                 BRIDGE    909
           476  5120000000 X             LOP15    SA2    =XS$VD                                                  BRIDGE    910
                          13623                   BX6    X2-X3                                                   BRIDGE    911
           477  0316000501 +                      NZ     X6,LOP16    IF NOT VARDIM LOAD                          BRIDGE    912
                          6137777727              SB3    B7-OC.LD                                                BRIDGE    913
           500  0530000501 +                      NZ     B3,LOP16    IF NOT LOAD                                 BRIDGE    914
                          6170000104              SB7    OC.LDV                                                  BRIDGE    915
                                                                                                                 BRIDGE    916
                                                                                                                 BRIDGE    917
           501  10633                    LOP16    BX6    X3                                                      BRIDGE    918
                     20622                        LX6    18                                                      BRIDGE    919
                          76370                   SX3    B7                                                      BRIDGE    920
                               12636              BX6    X3+X6                                                   BRIDGE    921
           502  5160000525 +                      SA6    LOPC                                                    BRIDGE    922
                          5130000356 +            SA3    SMF                                                     BRIDGE    923
           503  7255777773                        SX5    X5-4                                                    BRIDGE    924
                          20373                   LX3    -1                                                      BRIDGE    925
                               21373              AX3    59                                                      BRIDGE    926
           504  11635                             BX6    X3*X5                                                   BRIDGE    927
                     5160000524 +                 SA6    LOPB        RI IFF STORE                                BRIDGE    928
                               76260              SX2    B6                                                      BRIDGE    929
           505  36042                             IX0    X4+X2       CA = CA[ORD[O]] + LOW                       BRIDGE    930
                     43500                        MX5    0           RF = 0                                      BRIDGE    931
                          0100000526 +            RJ     ACA         ADJUST LONG CA                              BRIDGE    932
           506  5130000525 +                      SA3    LOPC                                                    BRIDGE    933
                          63730                   SB7    X3                                                      BRIDGE    934
                               21322              AX3    18                                                      BRIDGE    935
                                                  LX3    IH.IHP                                                  BRIDGE    936
           507  43652                             MX6    -IH.CAL                                                 BRIDGE    937
                     15006                        BX0    -X6*X0                                                  BRIDGE    938
                          20544                   LX5    IH.RFP                                                  BRIDGE    939
                               12335              BX3    X3+X5                                                   BRIDGE    940
           510  20022                             LX0    IH.CAP                                                  BRIDGE    941
                     5150000524 +                 SA5    LOPB                                                    BRIDGE    942
                               12730              BX7    X3+X0                                                   BRIDGE    943
           511  0315000512 +                      NZ     X5,LOP17    IF STORE                                    BRIDGE    944
                          5150000130 +            SA5    LL.TXT      RI = LL.TXT                                 BRIDGE    945
                                                                                                                 BRIDGE    946
           512  0100000546 +             LOP17    RJ     IRI         ISSUE OPC,RI,IH,CA,RF                       BRIDGE    947
                                                  LX5    -R1.RIP                                                 BRIDGE    948
           513  10655                             BX6    X5                                                      BRIDGE    949
                     0400000452 +                 EQ     LOPE                                                    BRIDGE    950
                                                                                                                 BRIDGE    951
           514  5120000131 +             LOP2     SA2    IND0                                                    BRIDGE    952
                          43054                   MX0    -TP.ORDL                                                BRIDGE    953
                               20433              LX4    TP.INTRP-59-TP.ORDP+60                                  BRIDGE    954
           515  15640                             BX6    -X0*X4                                                  BRIDGE    955
                     37362                        IX3    X6-X2                                                   BRIDGE    956
                          76170                   SX1    B7                                                      BRIDGE    957
                               63730              SB7    X3          IND = ORD[O] - IND0                         BRIDGE    958
           516  20436                             LX4    TP.ORDP+59-TP.ARYP-60                                   BRIDGE    959
                     0324000521 +                 PL     X4,LOP3     IF ^ARY[O]                                  BRIDGE    960
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    26
        INSTRUCTION PROCESSING ROUTINES.                              LOP 
  
                               43700              MX7    0                                                       BRIDGE    961
           517  5170000356 +                      SA7    SMF         CLEAR STORE MODE                            BRIDGE    962
                          0100000657 +            RJ     GAR         GENERATE ARRAY LOAD(IND)                    BRIDGE    963
           520  0400000452 +                      EQ     LOPE                                                    BRIDGE    964
                                                                                                                 BRIDGE    965
           521  0100000561 +             LOP3     RJ     LIR         LOAD INTERMEDIATE RESULT (IND)              BRIDGE    966
           522  0400000452 +                      EQ     LOPE                                                    BRIDGE    967
                                                                                                                 BRIDGE    968
           523                     1     LOPA     BSS    1                                                       BRIDGE    969
           524                     1     LOPB     BSS    1                                                       BRIDGE    970
           525                     1     LOPC     BSS    1                                                       BRIDGE    971
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    27
        INSTRUCTION PROCESSING ROUTINES.                              ACA 
  
                                        **        ACA - ADJUST CA.                                               BRIDGE    973
                                        *         IF ABS(CA) .GT. 377777B, ACA ISSUES LOAD OF CONSTANT AND       BRIDGE    974
                                        *         ADD TO RF (INDEX) IF PRESENT.                                  BRIDGE    975
                                        *                                                                        BRIDGE    976
                                        *         ENTRY  X0 = CA, 24-BIT SIGNED                                  BRIDGE    977
                                        *                X5 = RF                                                 BRIDGE    978
                                        *                                                                        BRIDGE    979
                                        *         EXIT   X0 = NEW CA (OLD CA OR 0)                               BRIDGE    980
                                        *                X5 = NEW RF (OLD RF OR RI OF LAST INSTRUCTION)          BRIDGE    981
                                                                                                                 BRIDGE    982
           526  0400400526 +             ACA      SUBR                                                           BRIDGE    983
           527  6130000044                        SB3    59-23                                                   BRIDGE    984
                          22630                   LX6    B3,X0                                                   BRIDGE    985
                               21665              AX6    59-23+17                                                BRIDGE    986
           530  0306000526 +                      ZR     X6,EXIT.    IF CA NOT LONG                              BRIDGE    987
                          22130                   LX1    B3,X0                                                   BRIDGE    988
                               23131              AX1    B3          SIGN EXTEND CA                              BRIDGE    989
           531  0100000000 X                      CALL   CG$SCT      ENTER CA INTO CON.                          BRIDGE    990
           532  10755                             BX7    X5                                                      BRIDGE    991
                     5170000545 +                 SA7    ACAA        SAVE RF                                     BRIDGE    992
           533  6170000103                        SB7    OC.LDC                                                  BRIDGE    993
                          5120000000 X            SA2    =XS=CON     IH = CON.                                   BRIDGE    994
           534  5150000130 +                      SA5    LL.TXT      RI = LL.TXT                                 BRIDGE    995
                                                  LX5    R1.RIP                                                  BRIDGE    996
                          20622                   LX6    IH.CAP      CA = CON. ORDINAL                           BRIDGE    997
                                                  LX2    IH.IHP                                                  BRIDGE    998
                               12762              BX7    X6+X2                                                   BRIDGE    999
           535  0100000546 +                      RJ     IRI         ISSUE LDC RI,CON.,CA                        BRIDGE   1000
           536  5110000545 +                      SA1    ACAA                                                    BRIDGE   1001
                          43000                   MX0    0           NEWCA = 0                                   BRIDGE   1002
           537  0301000526 +                      ZR     X1,EXIT.    IF NO RF                                    BRIDGE   1003
                                                  LX5    -R1.RIP                                                 BRIDGE   1004
                          7265000004              SX6    X5+4        RI = RI(LDC) + 4                            BRIDGE   1005
           540  20540                             LX5    R1.RJP-R1.RIP     RJ = RI(LDC)                          BRIDGE   1006
                                                  LX6    R1.RIP                                                  BRIDGE   1007
                     12665                        BX6    X6+X5                                                   BRIDGE   1008
                          20120                   LX1    R1.RKP      RK = OLD RF                                 BRIDGE   1009
           541  6170000036                        SB7    OC.IA                                                   BRIDGE   1010
                          43700                   MX7    0                                                       BRIDGE   1011
                               12561              BX5    X6+X1                                                   BRIDGE   1012
           542  0100000546 +                      RJ     IRI         ISSUE IA RI,RJ,RK                           BRIDGE   1013
           543  43000                             MX0    0           CA = 0                                      BRIDGE   1014
                     43654                        MX6    -R1.RIL                                                 BRIDGE   1015
                                                  LX5    -R1.RIP                                                 BRIDGE   1016
                          15556                   BX5    -X6*X5      NEW RF = RI                                 BRIDGE   1017
           544  0400000526 +                      EQ     EXIT.                                                   BRIDGE   1018
                                                                                                                 BRIDGE   1019
           545                     1     ACAA     BSS    1                                                       BRIDGE   1020
                                                                                                                 BRIDGE   1021
                                                                                                                 BRIDGE   1022
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    28
        INSTRUCTION PROCESSING ROUTINES.                              IRI 
  
                                        *         IRI - ISSUE RLIST INSTRUCTION.                                 BRIDGE   1024
                                        *                                                                        BRIDGE   1025
                                        *         ENTRY  X5 = WORD 1 (LESS OPCODE)                               BRIDGE   1026
                                        *                X7 = WORD 2                                             BRIDGE   1027
                                        *                B7 = OP CODE                                            BRIDGE   1028
                                        *                                                                        BRIDGE   1029
                                        *         EXIT   X5,X7 PRESERVED                                         BRIDGE   1030
                                        *                                                                        BRIDGE   1031
                                        *         PRESERVES B4,B5                                                BRIDGE   1032
                                                                                                                 BRIDGE   1033
                                                                                                                 BRIDGE   1034
           546  0400400546 +             IRI      SUBR                                                           BRIDGE   1035
           547  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   1036
                          5130000000 X            SA3    =XL$TXT                                                 BRIDGE   1037
           550  7261000004                        SX6    X1+4                                                    BRIDGE   1038
                          37036                   IX0    X3-X6                                                   BRIDGE   1039
                               54610              SA6    A1          LL.TXT = LL.TXT + 4                         BRIDGE   1040
           551  0320000555 +                      PL     X0,IRI1     IF LOCAL L.TXT (LL.TXT) .LE. L.TXT          BRIDGE   1041
                          10077                   BX0    X7                                                      BRIDGE   1042
           552  7110000200                        ALLOC  TXT,200B                                                FC5A180    26
           554  5130000130 +                      SA3    LL.TXT                                                  BRIDGE   1044
                          10633                   BX6    X3                                                      BRIDGE   1045
                               10700              BX7    X0                                                      BRIDGE   1046
                                                                                                                 BRIDGE   1047
           555  5137000000 X             IRI1     SA3    F$RDT+B7                                                BRIDGE   1048
                          5140000000 X            SA4    =XO$TXT                                                 BRIDGE   1049
           556  36146                             IX1    X4+X6                                                   BRIDGE   1050
                     43600                        MX6    0                                                       BRIDGE   1051
                          5261777776              SA6    X1-1        RLIST(4) = 0                                BRIDGE   1052
           557  10633                             BX6    X3                                                      BRIDGE   1053
                     55661                        SA6    A6-B1       RLIST(3) = DES(OC)                          BRIDGE   1054
                          27675                   PX6    B7,X5                                                   BRIDGE   1055
                               55761              SA7    A6-B1       RLIST(2) = R2W                              BRIDGE   1056
           560  55671                             SA6    A7-B1       RLIST(1) = (OC,R1W)                         BRIDGE   1057
                     0400000546 +                 EQ     EXIT.                                                   BRIDGE   1058
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    29
        INSTRUCTION PROCESSING ROUTINES.                              LIR 
  
                                        **        LIR    LOAD INTERMEDIATE RESULT.                               BRIDGE   1060
                                        *         ENTRY  B6 = LOW (0=UPPER, 1=LOWER)                             BRIDGE   1061
                                        *                B7 = INDEX                                              BRIDGE   1062
                                        *                                                                        BRIDGE   1063
                                        *         EXIT   X6 = R-NUMBER OF INT.                                   BRIDGE   1064
                                                                                                                 BRIDGE   1065
           561  0400400561 +             LIR      SUBR                                                           BRIDGE   1066
           562  5110000000 X                      SA1    =XO$TST                                                 BRIDGE   1067
                          6126000000              SB2    59-TS.FRP+B6                                            BRIDGE   1068
                                   0              ERRNZ  TS.FRP-TS.FRLP-1                                        BRIDGE   1069
           563  53217                             SA2    X1+B7                                                   BRIDGE   1070
                     22022                        LX0    B2,X2                                                   BRIDGE   1071
                          0330000566 +            MI     X0,LIR05    IF ALREADY STORED OUT                       BRIDGE   1072
           564  63220                             SB2    X2                                                      BRIDGE   1073
                     5110003003 +                 SA1    LXR                                                     BRIDGE   1074
                               63310              SB3    X1                                                      BRIDGE   1075
           565  67323                             SB3    B2-B3                                                   BRIDGE   1076
                     0630000573 +                 PL     B3,LIR1     IF RN LT LXR   */ INT NOT DEFINED BEFORE RJ BRIDGE   1077
                                                                                                                 BRIDGE   1078
           566  0100000640 +             LIR05    RJ     STR         STORE INTERMEDIATE RESULT                   BRIDGE   1079
           567  5150000130 +                      SA5    LL.TXT                                                  BRIDGE   1080
                                                  LX5    R1.RIP      RI = LL.TXT                                 BRIDGE   1081
                          5110000000 X            SA1    =XS=ST                                                  BRIDGE   1082
                                                  LX1    IH.IHP                                                  BRIDGE   1083
           570  20222                             LX2    IH.CAP                                                  BRIDGE   1084
                     12712                        BX7    X1+X2                                                   BRIDGE   1085
                          6170000050              SB7    OC.LD                                                   BRIDGE   1086
           571  0100000546 +                      RJ     IRI         ISSUE FUNCTION RESULT LOAD                  BRIDGE   1087
                                                  LX5    -R1.RIP                                                 BRIDGE   1088
           572  10655                             BX6    X5          LIR = RI                                    BRIDGE   1089
                     0400000561 +                 EQ     LIR                                                     BRIDGE   1090
                                                                                                                 BRIDGE   1091
                                        *         NOT FUNCTION RESULT. GET R-NUMBER FROM TST.                    BRIDGE   1092
                                                                                                                 BRIDGE   1093
           573  0560000575 +             LIR1     NZ     B6,LIR2     IF LOWER                                    BRIDGE   1094
                                                  LX2    -TS.RNUP                                                BRIDGE   1095
                          73620                   SX6    X2                                                      BRIDGE   1096
           574  0400000561 +                      EQ     LIR         LIR = RNU[TST(INDEX)]                       BRIDGE   1097
                                                                                                                 BRIDGE   1098
           575  20252                    LIR2     LX2    -TS.RNLP                                                BRIDGE   1099
                     73620                        SX6    X2                                                      BRIDGE   1100
                          0400000561 +            EQ     LIR         LIR = RNL[TST(INDEX)]                       BRIDGE   1101
  
  
  
  
                                        **        SDT - STORE DOUBLE WORD TEMP.                                  BRIDGE   1103
                                        *                                                                        BRIDGE   1104
                                        *         ENTRY AND EXIT SAME AS STR                                     BRIDGE   1105
                                                                                                                 BRIDGE   1106
           576  0400400576 +             SDT      SUBR                                                           BRIDGE   1107
           577  56150                             SA1    B5                                                      BRIDGE   1108
                     43070                        MX0    -TH.MODEL                                               BRIDGE   1109
                          20152                   LX1    -TH.MODEP                                               BRIDGE   1110
                               15010              BX0    -X0*X1                                                  BRIDGE   1111
           600  6220777773                        SB2    X0-M.DBL                                                BRIDGE   1112
                          0420000603 +            ZR     B2,SDT10    IF DOUBLE                                   BRIDGE   1113
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    30
        INSTRUCTION PROCESSING ROUTINES.                              SDT 
  
           601  0421000603 +                      EQ     B2,B1,SDT10 IF COMPLEX                                  BRIDGE   1114
                          0100000640 +            RJ     STR         SINGLE WORD                                 BRIDGE   1115
           602  0400000576 +                      EQ     EXIT.                                                   BRIDGE   1116
                                                                                                                 BRIDGE   1117
           603  5110000000 X             SDT10    SA1    O$TST                                                   BRIDGE   1118
                          53117                   SA1    X1+B7                                                   BRIDGE   1119
                                                  HX1    TS.FR                                                   BRIDGE   1120
                               43002              MX0    2                                                       BRIDGE   1121
           604  11001                             BX0    X0*X1                                                   BRIDGE   1122
                     20002                        LX0    2                                                       BRIDGE   1123
                          10611                   BX6    X1                                                      BRIDGE   1124
                                                  LX1    1+TS.FRP-TS.RNUP                                        BRIDGE   1125
                               73210              SX2    X1          UPPER RN/ST. CA                             BRIDGE   1126
           605  20152                             LX1    TS.RNUP-TS.RNLP                                         BRIDGE   1127
                     73310                        SX3    X1          LOWER RN/ST. CA                             BRIDGE   1128
                          6220000607 +            SB2    SDT.JT+X0                                               BRIDGE   1129
           606  0222000000                        JP     B2                                                      BRIDGE   1130
                                                                                                                 BRIDGE   1131
           607  0400000613 +             SDT.JT   EQ     SDT20       NEITHER STORED                              BRIDGE   1132
           610  0400000616 +                      EQ     SDT30       LOWER STORED                                BRIDGE   1133
           611  0400000622 +                      EQ     SDT40       UPPER STORED                                BRIDGE   1134
           612  0400000626 +                      EQ     SDT50       BOTH STORED                                 BRIDGE   1135
                                                                                                                 BRIDGE   1136
           613  0100000640 +             SDT20    RJ     STR         STORE UPPER                                 BRIDGE   1137
           614  6160000001               SDT21    SB6    1                                                       BRIDGE   1138
                          0100000640 +            RJ     STR         STORE LOWER                                 BRIDGE   1139
           615  7222777776                        SX2    X2-1        CA OF UPPER                                 BRIDGE   1140
                          0400000576 +            EQ     EXIT.                                                   BRIDGE   1141
                                                                                                                 BRIDGE   1142
           616  5110004111 +             SDT30    CLAS=  X1,TS,(FRL,RNL)                                         BRIDGE   1143
                          15661                   BX6    -X1*X6                                                  BRIDGE   1144
                               63230              SB2    X3                                                      BRIDGE   1145
           617  0100000633 +                      RJ     SFT                                                     BRIDGE   1146
           620  20122                             LX1    TS.RNLP                                                 BRIDGE   1147
                     12661                        BX6    X6+X1       RESTORE LOWER R-NUMBER                      BRIDGE   1148
                          54610                   SA6    A1                                                      BRIDGE   1149
           621  0400000613 +                      EQ     SDT20                                                   BRIDGE   1150
                                                                                                                 BRIDGE   1151
           622  5110000000 X             SDT40    SA1    N.ST                                                    BRIDGE   1152
                          37312                   IX3    X1-X2                                                   BRIDGE   1153
                               63230              SB2    X3                                                      BRIDGE   1154
           623  0421000614 +                      EQ     B2,B1,SDT21 IF NEXT ST. AVAIL.                          BRIDGE   1155
                          5110004112 +            CLAS=  X1,TS,(FR,RNU)                                          BRIDGE   1156
           624  15661                             BX6    -X1*X6                                                  BRIDGE   1157
                     63220                        SB2    X2                                                      BRIDGE   1158
                          0100000633 +            RJ     SFT                                                     BRIDGE   1159
                                                  LX1    TS.RNUP                                                 BRIDGE   1160
           625  12661                             BX6    X6+X1       RESTORE UPPER R-NUMBER                      BRIDGE   1161
                     54610                        SA6    A1                                                      BRIDGE   1162
                          0400000613 +            EQ     SDT20                                                   BRIDGE   1163
                                                                                                                 BRIDGE   1164
           626  37032                    SDT50    IX0    X3-X2                                                   BRIDGE   1165
                     63200                        SB2    X0                                                      BRIDGE   1166
                          0421000576 +            EQ     B2,B1,EXIT. IF UPPER/LOWER CONTIGUOUS                   BRIDGE   1167
           627  5110004111 +                      CLAS=  X1,TS,(FRL,RNL)                                         BRIDGE   1168
                          15661                   BX6    -X1*X6                                                  BRIDGE   1169
                               63230              SB2    X3                                                      BRIDGE   1170
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    31
        INSTRUCTION PROCESSING ROUTINES.                              SDT 
  
           630  0100000633 +                      RJ     SFT                                                     BRIDGE   1171
           631  20122                             LX1    TS.RNLP                                                 BRIDGE   1172
                     12661                        BX6    X6+X1       RESTORE LOWER R-NUMBER                      BRIDGE   1173
                          54610                   SA6    A1                                                      BRIDGE   1174
           632  0400000622 +                      EQ     SDT40                                                   BRIDGE   1175
  
  
  
  
                                        **        SFT - SCAN FOR TEMPORARY'S PREDECESSOR.                        BRIDGE   1177
                                        *         ENTRY  B2 = CA OF ST. CELL                                     BRIDGE   1178
                                        *                                                                        BRIDGE   1179
                                        *         EXIT   X1 = R-NUMBER WHICH WAS STORED INTO ST. + CA            BRIDGE   1180
                                                                                                                 BRIDGE   1181
           633  0400400633 +             SFT      SUBR                                                           BRIDGE   1182
           634  5140000000 X                      SA4    =XO$FUN                                                 BRIDGE   1183
                          67202                   SB2    -B2                                                     BRIDGE   1184
           635  5254777776                        SA5    X4-1                                                    BRIDGE   1185
                                                                                                                 BRIDGE   1186
           636  54551                    SFT10    =A5    A5+1                                                    BRIDGE   1187
                                                  LX5    -SD.CAP                                                 BRIDGE   1188
                     73052                        SX0    X5+B2                                                   BRIDGE   1189
                          0310000636 +            NZ     X0,SFT10    IF THIS IS NOT DESIRED CA                   BRIDGE   1190
           637  20552                             LX5    SD.CAP-SD.RNP                                           BRIDGE   1191
                     73150                        SX1    X5          SFT = RN[FUN(I)]                            BRIDGE   1192
                          0400000633 +            EQ     EXIT.                                                   BRIDGE   1193
  
  
  
  
                                        **        STR - STORE TEMP RESULT.                                       BRIDGE   1195
                                        *                                                                        BRIDGE   1196
                                        *         ENTRY  B6 = LOW                                                BRIDGE   1197
                                        *                B7 = INDEX                                              BRIDGE   1198
                                        *                                                                        BRIDGE   1199
                                        *         EXIT   X2 = CA                                                 BRIDGE   1200
                                                                                                                 BRIDGE   1201
           640  0400400640 +             STR      SUBR                                                           BRIDGE   1202
           641  5110000000 X                      SA1    =XO$TST                                                 BRIDGE   1203
                          53317                   SA3    X1+B7                                                   BRIDGE   1204
           642  5116000655 +                      SA1    STRA+B6                                                 BRIDGE   1205
                          63310                   SB3    X1                                                      BRIDGE   1206
                               22433              LX4    B3,X3                                                   BRIDGE   1207
           643  6126000000                        SB2    59-TS.FRP+B6                                            BRIDGE   1208
                          22023                   LX0    B2,X3                                                   BRIDGE   1209
                               73240              SX2    X4          STR = RNU/RNL[TST(INDEX)]                   BRIDGE   1210
           644  0330000640 +                      MI     X0,EXIT.    IF FR/FRL[TST(INDEX)]  */ ALREADY STORED    BRIDGE   1211
                          5150000000 X            SA5    =XN.ST                                                  BRIDGE   1212
           645  43001                             MX0    1                                                       BRIDGE   1213
                     67206                        SB2    -B6                                                     BRIDGE   1214
                          6122000074              SB2    1+TS.FRP+B2                                             BRIDGE   1215
           646  22020                             LX0    B2                                                      BRIDGE   1216
                     43652                        MX6    -TS.RNUL                                                BRIDGE   1217
                          11364                   BX3    X6*X4                                                   BRIDGE   1218
                               12153              BX1    X5+X3                                                   BRIDGE   1219
           647  67303                             SB3    -B3                                                     BRIDGE   1220
                     6133000074                   SB3    60+B3                                                   BRIDGE   1221
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    32
        INSTRUCTION PROCESSING ROUTINES.
  
                               22131              LX1    B3                                                      BRIDGE   1222
           650  12601                             BX6    X0+X1                                                   BRIDGE   1223
                     54630                        SA6    A3          RNU/RNL[TST(INDEX)] = N.ST, FR/FRL = 1      BRIDGE   1224
                                                                                                                 BRIDGE   1225
                                        *         ISSUE STORE INSERTION CONTROL WORD(S).                         BRIDGE   1226
                                                                                                                 BRIDGE   1227
                          73720                   SX7    X2                                                      BRIDGE   1228
                               20722              LX7    SD.RNP                                                  BRIDGE   1229
                                   0              ERRNZ  SD.CAP                                                  BRIDGE   1230
           651  12175                             BX1    X7+X5                                                   BRIDGE   1231
                     10033                        BX0    X3                                                      BRIDGE   1232
                          5100000000 X            ADDWRD FUN,X1                                                  BRIDGE   1233
           653  10255                             BX2    X5                                                      BRIDGE   1234
                     73751                        SX7    X5+B1                                                   BRIDGE   1235
                          54750                   SA7    A5          N.ST = N.ST + 1                             BRIDGE   1236
           654  0400000640 +                      EQ     EXIT.                                                   BRIDGE   1237
                                                                                                                 BRIDGE   1238
           655  00000000000000000074     STRA     CON    60-TS.RNUP,60-TS.RNLP                                   BRIDGE   1239
           656  00000000000000000052
  
  
  
  
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    33
        INSTRUCTION PROCESSING ROUTINES.                              GAR 
  
                                        *                                                                        BRIDGE   1242
                                        *         ENTRY  X1 = OPCODE (LD/ST/STT)                                 BRIDGE   1243
                                        *                B6 = LOW (0=UPPER, 1=LOWER)                             BRIDGE   1244
                                        *                B7 = IND, INDEX OF TST ENTRY OF TURPLE TO EXPAND        BRIDGE   1245
                                        *                                                                        BRIDGE   1246
                                        *         EXIT   X5 = R1 WORD OF REFERENCE.                              BRIDGE   1247
                                        *                X6 = R-NUMBER OF REFERENCE.                             BRIDGE   1248
                                        *                X7 = R2 WORD OF REFERENCE.                              BRIDGE   1249
                                                                                                                 BRIDGE   1250
           657  0400400657 +             GAR      SUBR                                                           BRIDGE   1251
           660  76760                             SX7    B6                                                      BRIDGE   1252
                     5170000710 +                 SA7    GARA                                                    BRIDGE   1253
           661  5120000000 X                      SA2    =XO$TST                                                 BRIDGE   1254
                          10611                   BX6    X1                                                      BRIDGE   1255
                               53327              SA3    X2+B7       T = TST(IND)                                BRIDGE   1256
           662  5160000711 +                      SA6    GARB                                                    BRIDGE   1257
                                                  LX3    -TS.RNUP                                                BRIDGE   1258
                          5110000000 X            SA1    =XO$DTT                                                 BRIDGE   1259
           663  63231                             SB2    X3+B1                                                   BRIDGE   1260
                     53412                        SA4    X1+B2       OP1 = DTT(2,RNU[TST(IND)])                  BRIDGE   1261
                          10744                   BX7    X4                                                      BRIDGE   1262
                               54441              SA4    A4+B1       OP2 = DTT(3,RNU[TST(IND)])                  BRIDGE   1263
           664  5170000712 +                      SA7    GARC                                                    BRIDGE   1264
                          5150000130 +            SA5    LL.TXT                                                  BRIDGE   1265
           665  7275777773                        SX7    X5-4                                                    BRIDGE   1266
                                                  LX7    R1.RIP                                                  BRIDGE   1267
                          5170000713 +            SA7    GARD        RIS = LL.ISB - 3                            BRIDGE   1268
                                         .ARY     SKIP               RESTORE IF SUBSCRIPTED SUBSCRIPTS OUTPUT    FC5A140    27
                                                  CLAS=  X1,TP,(ARY,INTR)                                        BRIDGE   1269
                                                  BX0    X1*X4                                                   BRIDGE   1270
                                                  BX1    X0-X1                                                   BRIDGE   1271
                                                  NZ     X1,GAR10    IF NOT A(B(I))                              BRIDGE   1272
                                                                                                                 BRIDGE   1273
                                        *         INNER ARRAY LOAD ALREADY ISSUED.  R-NUMBER IN BIAS.            BRIDGE   1274
                                                                                                                 BRIDGE   1275
                                                  MX0    -TP.BIASL                                               BRIDGE   1276
                                                  LX4    -TP.BIASP                                               BRIDGE   1277
                                                  BX7    -X0*X4                                                  BRIDGE   1278
                                                  EQ     GAR20                                                   BRIDGE   1279
                                         .ARY     ENDIF                                                          FC5A140    28
                                                                                                                 BRIDGE   1280
                                        *         GAR MAY HAVE BEEN CALLED FROM LOP, SO PRESERVE EXIT.           BRIDGE   1281
                                                                                                                 BRIDGE   1282
                                         .ARY     SKIP               RESTORE IF SUBSCRIPTED SUBSCRIPTS OUTPUT    FC5A140    29
                                         GAR10    BSS    0                                                       FC5A140    30
                                         .ARY     ENDIF                                                          FC5A140    31
           666  5110000454 +                      SA1    LOP                                                     FC5A140    32
                          66600                   =B6    0                                                       BRIDGE   1284
                               10611              BX6    X1                                                      BRIDGE   1285
           667  5160000714 +                      SA6    GARE                                                    BRIDGE   1286
                          5110000523 +            SA1    LOPA                                                    BRIDGE   1287
           670  6221000000                        SB2    X1+         MUST PRESERVE ORIGINAL B2 FROM LOP          BRIDGE   1288
                          0100000454 +            RJ     LOP         LOAD INDEX FUNCTION                         BRIDGE   1289
           671  5110000714 +                      SA1    GARE                                                    BRIDGE   1290
                          10711                   BX7    X1                                                      BRIDGE   1291
           672  5170000454 +                      SA7    LOP                                                     BRIDGE   1292
                          10766                   BX7    X6                                                      BRIDGE   1293
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    34
        INSTRUCTION PROCESSING ROUTINES.                              GAR 
  
                                                                                                                 BRIDGE   1294
           673  5110000712 +             GAR20    SA1    GARC                                                    BRIDGE   1295
                          0100003476 +            RJ     GLT         GET SYMBOL TAG                              BRIDGE   1296
           674  10633                             BX6    X3                                                      BRIDGE   1297
                     5160000714 +                 SA6    GARE                                                    BRIDGE   1298
           675  5150000710 +                      SA5    GARA                                                    BRIDGE   1299
                          20444                   LX4    59-23                                                   BRIDGE   1300
                               21444              AX4    59-23                                                   BRIDGE   1301
           676  43044                             MX0    -SY.CAL                                                 BRIDGE   1302
                     36145                        IX1    X4+X5       CA = BIAS + LOW                             BRIDGE   1303
                          10577                   BX5    X7                                                      BRIDGE   1304
                               15010              BX0    -X0*X1                                                  BRIDGE   1305
           677  0100000526 +                      RJ     ACA         ADJUST LONG CA                              BRIDGE   1306
           700  5120000711 +                      SA2    GARB                                                    BRIDGE   1307
                          20544                   LX5    IH.RFP                                                  BRIDGE   1308
                               10755              BX7    X5                                                      BRIDGE   1309
           701  43652                             MX6    -IH.CAL                                                 BRIDGE   1310
                     15506                        BX5    -X6*X0                                                  BRIDGE   1311
                          20522                   LX5    IH.CAP                                                  BRIDGE   1312
           702  5130000714 +                      SA3    GARE                                                    BRIDGE   1313
                                                  LX3    IH.IHP                                                  BRIDGE   1314
                          12453                   BX4    X5+X3                                                   BRIDGE   1315
                               12747              BX7    X4+X7                                                   BRIDGE   1316
           703  63720                             SB7    X2                                                      BRIDGE   1317
                     5150000130 +                 SA5    LL.TXT                                                  BRIDGE   1318
                                                  LX5    R1.RIP                                                  BRIDGE   1319
           704  6127777726                        SB2    B7-OC.ST                                                BRIDGE   1320
                          0520000706 +            NZ     B2,GAR3     IF ^STORE                                   BRIDGE   1321
           705  5150000713 +                      SA5    GARD        RI = RIS                                    BRIDGE   1322
                                                                                                                 BRIDGE   1323
           706  0100000546 +             GAR3     RJ     IRI         ISSUE (OP,RI,RF,ORD[OP1],BIAS[OP1]+LOW      BRIDGE   1324
           707  10655                             BX6    X5                                                      BRIDGE   1325
                     0400000657 +                 EQ     GAR                                                     BRIDGE   1326
                                                                                                                 BRIDGE   1327
           710                     1     GARA     BSS    1                                                       BRIDGE   1328
           711                     1     GARB     BSS    1                                                       BRIDGE   1329
           712                     1     GARC     BSS    1                                                       BRIDGE   1330
           713                     1     GARD     BSS    1                                                       BRIDGE   1331
           714                     1     GARE     BSS    1                                                       BRIDGE   1332
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    35
        TURPLE INPUT ROUTINES.                                        ROT 
  
                                        **        ROT - READ ONE TURPLE.                                         BRIDGE   1334
                                        *                                                                        BRIDGE   1335
                                        *         EXIT   X1 = OPERATOR WORD.                                     BRIDGE   1336
                                        *                A1 _ OPERAOR WORD.                                      BRIDGE   1337
                                        *                4 TURPLES PLUS 1 WORD GUARANTEED IN CORE.               BRIDGE   1338
                                                                                                                 BRIDGE   1339
           715  0400400715 +             ROT      SUBR                                                           BRIDGE   1340
           716  5120001275 +                      SA2    BP                                                      BRIDGE   1342
                          5212001275 +            SA1    RLBL+X2                                                 FC5A132   177
           717  7272000014                        SX7    X2+4*Z=TURP                                             FC5A132   178
                          7262000003              SX6    X2+Z=TURP                                               FC5A132   179
           720  54620                             SA6    A2                                                      BRIDGE   1345
                     0337000715 +                 MI     X7,ROT      IF ANOTHER 4 TURPLES IN THE BUFFER          BRIDGE   1346
                               14122              BX1    -X2                                                     FC5A132   180
           721  22506                             LX5    X6          PRESERVE MOVE BIAS                          FC5A132   181
                     7232000765 +                 SX3    RLB+X2      NUMBER OF WORDS IN BUFFER                   FC5A132   182
           722  0301000724 +                      ZR     X1,ROT10    IF NOTHING IN BUFFER TO MOVE DOWN           FC5A132   183
                          7222001275 +            MOVE   X1,RLBL+X2,X3                                           FC5A132   184
                                                                                                                 FC5A132   185
           724  0100000736 +             ROT10    RJ     RFB         REFILL BUFFER                               FC5A132   186
           725  5110001275 +                      SA1    BP                                                      BRIDGE   1354
                          36651                   IX6    X5+X1       ADJUST BP TO ACCOUNT FOR MOVED IL           FC5A132   187
                               54610              SA6    A1                                                      BRIDGE   1357
           726  5216001272 +                      SA1    X6+RLBL-Z=TURP                                          BRIDGE   1358
                          0400000715 +            EQ     ROT                                                     BRIDGE   1359
                                                                                                                 BRIDGE   1360
           727                     1     ROTA     BSSZ   1                                                       BRIDGE   1361
  
  
  
                                        **        ROW - READ ONE WORD OF IL FROM BUFFER/*RLB*                    BRIDGE   1363
           730  0400400730 +             ROW      SUBR                                                           BRIDGE   1364
           731  5120001275 +                      SA2    BP                                                      BRIDGE   1365
                          5212001275 +            SA1    RLBL+X2     FETCH WORD                                  BRIDGE   1366
           732  73621                             SX6    X2+B1       ADVANCE BUFFER POINTER                      BRIDGE   1367
                     54620                        SA6    A2                                                      BRIDGE   1368
                          0332000730 +            MI     X2,ROW      IF WORD WAS FROM THE BUFFER                 BRIDGE   1369
           733  0100000736 +                      RJ     RFB         REFILL THE BUFFER                           BRIDGE   1370
           734  5120001275 +                      SA2    BP                                                      BRIDGE   1371
                          5212001275 +            SA1    RLBL+X2                                                 BRIDGE   1372
           735  73621                             SX6    X2+B1       ADVANCE BUFFER INDEX                        BRIDGE   1373
                     54620                        SA6    A2                                                      BRIDGE   1374
                          0400000730 +            EQ     ROW                                                     BRIDGE   1375
  
  
  
                                        **        RFB - REFILL BUFFER                                            BRIDGE   1377
                                                                                                                 BRIDGE   1378
           736  0400400736 +             RFB      SUBR                                                           BRIDGE   1379
           737  7160777467                        SX6    -L.RLB                                                  BRIDGE   1380
                          5160001275 +            SA6    BP                                                      BRIDGE   1381
           740  14466                             BX4    -X6                                                     BRIDGE   1382
                     76160                        SX1    B6                                                      BRIDGE   1383
                          76250                   SX2    B5                                                      BRIDGE   1384
                               76340              SX3    B4                                                      BRIDGE   1385
           741  20122                             LX1    18                                                      BRIDGE   1386
                     20244                        LX2    18+18                                                   BRIDGE   1387
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    36
        TURPLE INPUT ROUTINES.                                        RFB 
  
                          12012                   BX0    X1+X2                                                   BRIDGE   1388
                               12703              BX7    X0+X3                                                   BRIDGE   1389
           742  5170000750 +                      SA7    RFBA                                                    BRIDGE   1390
                          6266001275 +            READW  =XF.IL,RLBL+X6,X4  REFILL BUFFER                        BRIDGE   1391
           745  5120000750 +                      SA2    RFBA                                                    BRIDGE   1392
                          63420                   SB4    X2                                                      BRIDGE   1393
                               21222              AX2    18                                                      BRIDGE   1394
           746  63620                             SB6    X2                                                      BRIDGE   1395
                     21222                        AX2    18                                                      BRIDGE   1396
                          63520                   SB5    X2                                                      BRIDGE   1397
           747  0400000736 +                      EQ     RFB                                                     BRIDGE   1398
                                                                                                                 BRIDGE   1399
           750                     1     RFBA     BSS    1                                                       BRIDGE   1400
                                 310     L.RLB    EQU    200                                                     BRIDGE   1401
           751                    14     BUFFER   BSS    4*Z=TURP    MUST PRECEDE RLB                            BRIDGE   1402
           765                   310     RLB      BSS    L.RLB                                                   BRIDGE   1403
          1275                           RLBL     BSS    0                                                       BRIDGE   1404
          1275  00000000000000000000     BP       CON    0                                                       BRIDGE   1405
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    37
        SPECIAL PROCESSING ROUTINES (*CALL*)                          HDR 
  
                                        **        HDR - HEADER TURPLE PROCESSOR.                                 BRIDGE   1407
                                        *         ISSUE IDENT AND TRACE INFORMATION.                             BRIDGE   1408
                                                                                                                 BRIDGE   1409
          1276                           P=HDR    BSSENT 0                                                       BRIDGE   1410
          1276  7170000011                        ISSUE  OC$IDNT                                                 BRIDGE   1411
          1300  5140000000 X                      SA4    =XMOD                                                   BRIDGE   1412
                          20463                   HX4    MO.BLK                                                  BRIDGE   1413
          1301  0334000120 +                      MI     X4,PRE.RET  IF BLOCK DATA                               BRIDGE   1414
                          7170000017              ISSUE  OC$TRAC                                                 BRIDGE   1415
          1304  20473                             LX4    MO.BLKP-MO.PROP                                         BRIDGE   1416
                     5110000000 X                 SA1    =XS=UPW                                                 BRIDGE   1417
          1305  0324000120 +                      PL     X4,PRE.RET  IF NOT MAIN PROGRAM                         BRIDGE   1418
                          0301000120 +            ZR     X1,PRE.RET  IF NO FILE ARGUMENTS                        BRIDGE   1419
          1306  76710                             ISSUE  OC$BSS,X1   UPW.  BSS 0                                 BRIDGE   1420
          1311  5120000000 X                      SA2    =XNARGS                                                 BRIDGE   1421
                          73721                   SX7    X2+B1                                                   BRIDGE   1422
                               22117              LX1    X7,B1       FILETAB LEN = 2 * (NARGS + 1)               BRIDGE   1423
          1312  20152                             LX1    -PB.TAGP+PB.BIASP                                       BRIDGE   1424
                     7170000010                   ISSUE  OC$FVEC,X1                                              BRIDGE   1425
          1315  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1426
  
  
  
  
                                        **        FILES - PROCESS FILE INFORMATION.                              BRIDGE   1428
                                                                                                                 BRIDGE   1429
                                                                                                                 BRIDGE   1430
          1316                           P=GFD    BSSENT 0           ENTRY...                                    BRIDGE   1431
          1316                           COMFGFD  CTEXT              GENERATE FILE DECLARATIONS.                 COMFGFD     2
                                                                                                                 COMFGFD     3
                                        **               GFD HANDLES THE (V=FILE) TURPLE FOR QCG AND BRIDGE.     COMFGFD     4
                                        *                                                                        COMFGFD     5
                                        *         ENTRY  (B5) -> CURRENT TURPLE.                                 COMFGFD     6
                                                                                                                 COMFGFD     7
          1316  5110000000 X                      SA1    "O$"SYM                                                 COMFGFD     8
                          43044                   MX0    -"TP".BIASL                                             COMFGFD     9
                               56251              =A2    B5+OR.1OP                                               COMFGFD    10
          1317  20250                             LX2    -"TP".BIASP                                             COMFGFD    11
                     15420                        BX4    -X0*X2      ISOLATE (X4) = SYMTAB *WB* INDEX            COMFGFD    12
                          63711                   =B7    X1-WB.W+WC.W                                            COMFGFD    13
                               53347              SA3    X4+B7       FETCH SYMTAB *WC*                           COMFGFD    14
                                                  LX3    -WC.BFLP                                                COMFGFD    15
          1320  43752                             MX7    -WC.BFLL                                                COMFGFD    16
                     15637                        BX6    -X7*X3      ISOLATE FILE INDEX (OR BUFFER LENGTH)       COMFGFD    17
                          20336                   LX3    WC.BFLP-WC.MRLP                                         COMFGFD    18
                               55131              =A1    A3-WC.W+WB.W      *WB*                                  COMFGFD    19
          1321  20105                             LX1    -WB.EQUP-1                                              COMFGFD    20
                     0321001331 +                 PL     X1,GFD4     IF NOT EQUIVALENCED FILE                    COMFGFD    21
                                                                                                                 COMFGFD    22
                                        *         EQUIVALENCED FILE.                                             COMFGFD    23
                                                                                                                 COMFGFD    24
                               10144              BX1    X4                                                      COMFGFD    25
          1322  10466                             BX4    X6                                                      COMFGFD    26
                     7170000010                   ISSUE  OC$FVEC,X1                                              COMFGFD    27
          1325  7170000010                        ISSUE  OC$FVEC,X4                                              COMFGFD    28
          1330  0400001346 +                      EQ     GFD6                                                    COMFGFD    29
                                                                                                                 COMFGFD    30
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    38
        SPECIAL PROCESSING ROUTINES (*CALL*)                          FILES 
  
                                        *         NON-EQUIVALENCED FILE.                                         COMFGFD    31
                                                                                                                 COMFGFD    32
          1331  5110000000 X             GFD4     SA1    =XCO.STAT                                               F1037F5    46
                          0321001337 +            PL     X1,GFD5     IF NOT *STATIC* MODE                        F1037F5    47
          1332  5110000000 X                      SA1    =XN.BUF     X1 = BUFL,MRL,FIT SPACE SO FAR              F1037F5    48
                          36116                   IX1    X1+X6       ADD BUFL TO TOTAL                           F1037F5    49
                               73730              SX7    X3          X7 = MRL (CHARS)                            F1037F5    50
                                   0              ERRNZ  WC.MRLL-18                                              F1037F5    51
          1333  7120000011                        CW     X2,X7       X2 = MRL (WORDS)                            F1037F5    52
                                         .RM      IFEQ   CP#RM,0                                                 F1037F5    53
          1335  7222000051                        SX2    X2+L.FIT6+L.FET6  X2 = MRL + FIT                        F1037F5    54
                                         .RM      ELSE                                                           F1037F5    55
                                                  SX2    X2+L.FIT7+L.FET7  X2 = MRL + FIT                        F1037F5    56
                                         .RM      ENDIF                                                          F1037F5    57
                          36712                   IX7    X1+X2       X7 = BUFL + MRL + FIT + C(N.BUF)            F1037F5    58
          1336  5170000000 X                      SA7    N.BUF       UPDATE THE CELL                             F1037F5    59
                                                                                                                 F1037F5    60
          1337  20652                    GFD5     LX6    PB.BIASP-PB.TAGP                                        F1037F5    61
                     12146                        BX1    X4+X6       MERGE ORDINAL AND BUFL                      F1037F5    62
                          73430                   SX4    X3                                                      F1037F5    63
                                   0              ERRNZ  WC.MRLL-18                                              F1037F5    64
          1340  7170000010                        ISSUE  OC$FVEC,X1                                              F1037F5    65
          1343  10144                             BX1    X4                                                      F1037F5    66
                     20152                        LX1    PB.BIASP-PB.TAGP                                        COMFGFD    39
                          7170000010              ISSUE  OC$FVEC,X1                                              COMFGFD    40
                                                                                                                 COMFGFD    41
          1346                           GFD6     BSS    0                                                       COMFGFD    42
                                                                                                                 COMFGFD    43
                                                  ENDX                                                           COMFGFD    44
          1346  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1433
  
  
  
  
                                        **        PLIM - PROCESS PLIM TURPLE.                                    BRIDGE   1435
                                                                                                                 BRIDGE   1436
                                                                                                                 BRIDGE   1437
          1347                           P=PLIM   BSSENT 0                                                       BRIDGE   1438
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    39
        COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.                     PLI 
  
          1347                           PLI      CTEXT  COMFPLI - PRINT LIMIT (V=PLIM) GENERATOR.               COMFPLI     2
                                        **        COMFPLI ISSUES THE APLIST FOR THE FCL INITIALIZATION CALL.     COMFPLI     3
                                        *         IT IS INCLUDED IN GEN AND BRIDGE.                              COMFPLI     4
                                                                                                                 COMFPLI     5
          1347  5110000000 X                      SA1    =XS=UPW                                                 COMFPLI     6
                          0301001354 +            ZR     X1,PLI4     IF NO FILES                                 COMFPLI     7
          1350  7170000010                        ISSUE  OC$FVEC     CON 0       TERMINATE FILE LIST             COMFPLI     8
          1352  7170000010                        ISSUE  OC$FVEC     CON 0                                       COMFPLI     9
          1354  5110000000 X             PLI4     SA1    S=FILES                                                 COMFPLI    10
                          76710                   ISSUE  OC$BSS,X1   FILES. BSS 0                                COMFPLI    11
          1357  5140000000 X                      SA4    =XCO.STAT   STATIC MODE FLAG                            F1037F5    67
                          5110000000 X            SA1    S=UPW                                                   COMFPLI    12
          1360  76710                             =X7    1                                                       COMFPLI    13
                     20402                        LX4    1-59        MOVE FLAG TO BIT 1                          F1037F5    68
                          12774                   BX7    X7+X4                                                   F1037F5    69
                               20752              LX7    PB.BIASP-PB.TAGP                                        COMFPLI    14
          1361  12117                             BX1    X1+X7                                                   COMFPLI    15
                     76700                        ISSUE  OC$ADDR,X1    CON 1S18+UPW.                             COMFPLI    16
          1364  7170000016                        ISSUE  OC$PLIM     CON PLIM                                    FC50049     5
          1366  0304001377 +                      ZR     X4,PLI10    IF NOT *STATIC* MODE                        F1037F5    70
                          5110000000 X            SA1    =XN.BUF                                                 F1037F5    71
          1367  5140000000 X                      SA4    =XS=BUF                                                 F1037F5    72
                          20152                   LX1    PB.BIASP-PB.TAGP                                        F1037F5    73
                               12114              BX1    X1+X4                                                   F1037F5    74
          1370  76700                             ISSUE  OC$ADDR,X1   CON    BUF.,C(N.BUF)                       F1037F5    75
          1373  5110000000 X                      SA1    =XN.BUF                                                 F1037F5    76
                          20152                   LX1    PB.BIASP-PB.TAGP                                        F1037F5    77
                               12114              BX1    X1+X4                                                   F1037F5    78
          1374  76710                             ISSUE  OC$BSS,X1   BUF.   BSS   C(N.BUF)                       F1037F5    79
                                                                                                                 F1037F5    80
          1377                           PLI10    BSS    0                                                       F1037F5    81
                                         COMFPLI  ENDX                                                           COMFPLI    20
          1377  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1440
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    40
        SPECIAL PROCESSING ROUTINES (*CALL*)                          C$LOO 
  
                                        **        C$LOO - SPECIFY OBJECT LIST ON/OFF                             BRIDGE   1443
                                                                                                                 BRIDGE   1444
          1400                           P=CDLOO  BSSENT 0                                                       BRIDGE   1445
          1400  5115000001                        SA1    B5+OR.1OP                                               BRIDGE   1446
                          0100003476 +            RJ     GLT         GET OPERAND VALUE                           BRIDGE   1447
          1401  5110000141 +                      SA1    OCIOL       PROPER OPERATOR                             BRIDGE   1448
                          20160                   LX1    PB.GHIJP                                                BRIDGE   1449
                               20414              LX4    PB.BIASP                                                BRIDGE   1450
          1402  12714                             BX7    X1+X4                                                   BRIDGE   1451
                     6120001404 +                 WCODE  X7                                                      BRIDGE   1452
          1404  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1453
  
  
  
  
                                        **        C$DOT - SPECIFY ZERO/ONE TRIP DO LOOPS.                        BRIDGE   1455
                                                                                                                 BRIDGE   1456
          1405                           P=CDDOT  BSSENT 0                                                       BRIDGE   1457
          1405  5115000001                        SA1    B5+OR.1OP                                               BRIDGE   1458
                          0100003476 +            RJ     GLT         GET OPERAND VALUE                           BRIDGE   1459
          1406  10644                             BX6    X4                                                      BRIDGE   1460
                     5160000000 X                 SA6    =XWO.DOOT                                               BRIDGE   1461
          1407  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1462
  
  
  
  
                                        **        C$CS - SPECIFY FIXED/USER COLLATION.                           BRIDGE   1464
                                                                                                                 BRIDGE   1465
          1410                           P=CDCS   BSSENT 0                                                       BRIDGE   1466
          1410  5115000001                        SA1    B5+OR.1OP                                               BRIDGE   1467
                          0100003476 +            RJ     GLT         GET OPERAND VALUE                           BRIDGE   1468
          1411  10644                             BX6    X4                                                      BRIDGE   1469
                     5160000000 X                 SA6    =XWO.CS                                                 BRIDGE   1470
          1412  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1471
  
  
  
  
                                        **        DATA - PROCESS DATA TURPLE AND SUBTABLE.                       BRIDGE   1473
                                        *         ISSUE DATA INFORMATION FROM IL AS I.DATA PSEUDO                BRIDGE   1474
                                        *         FOLLOWED BY DATA SUB-TABLE.                                    BRIDGE   1475
                                                                                                                 BRIDGE   1476
          1413                           P=DATA   BSSENT 0                                                       BRIDGE   1477
          1413  7170000026                        ISSUE  I.ECI       END CCG INSTRUCTION FORMAT                  BRIDGE   1478
          1415  56151                             =A1    B5+OR.1OP                                               BRIDGE   1479
                     20150                        LX1    -TP.BIASP                                               BRIDGE   1480
                          43044                   MX0    -TP.BIASL                                               BRIDGE   1481
                               15410              BX4    -X0*X1                                                  BRIDGE   1482
          1416  15110                             BX1    -X0*X1                                                  BRIDGE   1483
                     20152                        LX1    PB.BIASP-PB.TAGP                                        BRIDGE   1484
                          7170000025              ISSUE  I.DATA,X1                                               BRIDGE   1485
                                                                                                                 BRIDGE   1486
                                        *         LOOP CALLING WTE TO WRITE DATA INFO TO PREBIN.                 BRIDGE   1487
                                                                                                                 BRIDGE   1488
          1421  66500                             =B5    0                                                       BRIDGE   1489
                     63640                        SB6    X4          WORD COUNT                                  BRIDGE   1490
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    41
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DATA
  
                                                                                                                 BRIDGE   1491
          1422  0456001425 +             DATA10   EQ     B5,B6,DATA20      IF DATA EXHAUSTED                     BRIDGE   1492
                          0100000730 +            RJ     ROW         READ ONE WORD FROM IL                       BRIDGE   1493
          1423  10711                             BX7    X1                                                      BRIDGE   1494
                     66551                        =B5    B5+1                                                    BRIDGE   1495
                          6120001422 +            SB2    DATA10      RETURN ADDRESS                              BRIDGE   1496
          1424  0400000000 X                      JP     =XWTE                                                   BRIDGE   1497
                                                                                                                 BRIDGE   1498
          1425  7170000021               DATA20   ISSUE  I.BCI       RESTART CCG INSTRUCTION FORMAT              BRIDGE   1499
          1427  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1503
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    42
        SPECIAL PROCESSING ROUTINES (*CALL*)                          SEX 
  
                                        **        SEX - START OF EXECUTABLES IN IL.                              BRIDGE   1505
                                                                                                                 BRIDGE   1506
          1430                           P=SEX    BSSENT 0                                                       BRIDGE   1507
          1430  7110000000 X                      ISUSE$ CON         USE CON.                                    BRIDGE   1508
          1433  7170000004                        ISSUE  OC$CON                                                  BRIDGE   1509
          1435  7110000000 X                      ISUSE$ FMT         USE FMT.                                    BRIDGE   1510
          1440  7170000007                        ISSUE  OC$FMT                                                  BRIDGE   1511
          1442  7110000000 X                      ISUSE$ APL                                                     BRIDGE   1513
          1445  76711                             ISSUE  OC$APL                                                  BRIDGE   1514
          1447  7110000000 X                      ISUSE$ IOAP                                                    BRIDGE   1515
          1452  7170000012                        ISSUE  OC$IOM                                                  BRIDGE   1516
          1454  7110000000 X                      ISUSE$ NLST                                                    BRIDGE   1517
          1457  7170000015                        ISSUE  OC$NLST                                                 BRIDGE   1518
          1461  7170000003                        ISSUE  OC$BMI                                                  BRIDGE   1519
          1463  7160000033                        SX6    I.LOO                                                   BRIDGE   1520
                          5160000141 +            SA6    OCIOL                                                   BRIDGE   1521
          1464  7110000000 X                      ISUSE  STRT        USE START.                                  BRIDGE   1522
          1467  5140000000 X                      SA4    MOD                                                     BRIDGE   1523
                          20463                   HX4    MO.BLK                                                  BRIDGE   1524
          1470  0334001577 +                      MI     X4,SEX70    IF BLOCK DATA                               BRIDGE   1525
                          5120000000 X            SA2    =XCO.DBER                                               BRIDGE   1526
          1471  0302001500 +                      ZR     X2,SEX04    IF ER NOT SELECTED                          BRIDGE   1527
                          7170000034              ISSUE  I.OTR,=XS=LENP                                          BRIDGE   1528
          1475  7170006102                        ISSUE  6102B,=XS=TRACE   SB0 B2+TRACE.                         BRIDGE   1529
                                                                                                                 BRIDGE   1530
          1500  20472                    SEX04    LX4    MO.BLKP-MO.SUBP                                         BRIDGE   1531
                     0324001513 +                 PL     X4,SEX05    IF NOT PROCESSING SUBROUTINE                BRIDGE   1532
          1501  7170000024                        ISSUE  I.BSS,=XS=EXIT                                          BRIDGE   1533
          1504  5110000000 X                      SA1    =XN.ARP                                                 BRIDGE   1534
                          0301001542 +            ZR     X1,SEX30    IF NO ALTERNATE RETURNS                     BRIDGE   1535
          1505  7170007110                        ISSUE  7110B       SX1 0                                       BRIDGE   1536
          1507  7170000024                        ISSUE  I.BSS,=XS=AEXIT                                         BRIDGE   1537
          1512  0400001542 +                      EQ     SEX30                                                   BRIDGE   1538
                                                                                                                 BRIDGE   1539
          1513  5120000000 X             SEX05    SA2    =XMOD                                                   BRIDGE   1540
                          20260                   HX2    MO.FUN                                                  BRIDGE   1541
          1514  0322001542 +                      PL     X2,SEX30    IF NOT COMPILING FUNCTION                   BRIDGE   1542
                          7170000024              ISSUE  I.BSS,=XS=EXIT                                          BRIDGE   1543
          1520  5120000000 X                      SA2    =XMOD                                                   BRIDGE   1544
                          43071                   MX0    -MO.MODEL                                               BRIDGE   1545
          1521  5140000000 X                      SA4    =XS=VALUE                                               BRIDGE   1546
                                                  LX2    -MO.MODEP                                               BRIDGE   1547
                          15320                   BX3    -X0*X2                                                  BRIDGE   1548
          1522  6263777771                        SB6    X3-M.CHAR                                               BRIDGE   1549
                          0460001542 +            ZR     B6,SEX30    IF CHARACTER FUNCTION                       BRIDGE   1550
          1523  7214000004                        SX1    X4+M.DBL                                                BRIDGE   1551
                          73211                   =X2    X1+M.CPLX-M.DBL                                         BRIDGE   1552
                               22311              LX3    B1,X1                                                   BRIDGE   1553
          1524  22512                             LX5    B1,X2                                                   BRIDGE   1554
                     36131                        IX1    X3+X1                                                   BRIDGE   1555
                          36252                   IX2    X5+X2                                                   BRIDGE   1556
          1525  5130000000 X                      SA3    O$SYM                                                   BRIDGE   1557
                          63731                   =B7    X3+WB.W                                                 BRIDGE   1558
                               53117              SA1    X1+B7                                                   BRIDGE   1559
          1526  53227                             SA2    X2+B7                                                   BRIDGE   1560
                     12012                        BX0    X1+X2                                                   BRIDGE   1561
                          20063                   HX0    WB.MDF                                                  FC5A191    21
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    43
        SPECIAL PROCESSING ROUTINES (*CALL*)                          SEX 
  
          1527  0320001535 +                      PL     X0,SEX20    IF THERE IS NO DOUBLE OR COMPLEX ENTRY      BRIDGE   1563
                          76310                   =X3    1                                                       BRIDGE   1564
                               20352              LX3    PB.BIASP-PB.TAGP                                        BRIDGE   1565
          1530  12134                             BX1    X3+X4                                                   BRIDGE   1566
                     7170005150                   ISSUE  5150B,X1    SA5 VALUE.+1                                BRIDGE   1567
          1533  7170001075                        ISSUE  1075B       BX7 X5                                      BRIDGE   1568
                                                                                                                 BRIDGE   1569
          1535  7170005140               SEX20    ISSUE  5140B,X4    SA4 VALUE.                                  BRIDGE   1570
          1540  7170001064                        ISSUE  1064B       BX6 X4                                      BRIDGE   1571
                                                                                                                 BRIDGE   1572
          1542  5150000000 X             SEX30    SA5    MOD                                                     BRIDGE   1573
                          43051                   MX0    -MO.CLIFL                                               BRIDGE   1574
                               20537              LX5    -MO.CLIFP                                               BRIDGE   1575
          1543  15550                             BX5    -X0*X5                                                  BRIDGE   1576
                     0315001545 +                 NZ     X5,SEX35    IF CHARACTER FUNCTION                       BRIDGE   1577
          1544  5150000000 X                      SA5    =XN.FP                                                  BRIDGE   1578
                          0305001552 +            ZR     X5,SEX40    IF NO FORMAL PARAMETERS                     BRIDGE   1579
                                                                                                                 BRIDGE   1580
          1545  7170005130               SEX35    ISSUE  5130B,=XS=TA0     SA3 TEMPA0.                           BRIDGE   1581
          1550  7170005203                        ISSUE  5203B       SA0 X3+                                     BRIDGE   1582
                                                                                                                 BRIDGE   1583
          1552  5140000000 X             SEX40    SA4    =XMOD                                                   BRIDGE   1584
                          20463                   HX4    MO.BLK                                                  BRIDGE   1585
          1553  0334001577 +                      MI     X4,SEX70    IF BLOCK DATA                               BRIDGE   1586
                                                                                                                 BRIDGE   1587
                                        *         ISSUE ENTRY POINT.                                             BRIDGE   1588
                                                                                                                 BRIDGE   1589
                          7170000024              ISSUE  I.BSS,=XS=ENTRY                                         BRIDGE   1590
          1557  20473                             LX4    MO.BLKP-MO.PROP                                         BRIDGE   1591
                     0324001567 +                 PL     X4,SEX50    IF NOT MAIN PROGRAM                         BRIDGE   1592
                                                                                                                 BRIDGE   1593
          1560  7170005110                        ISSUE  5110B,=XS=FILES   SA1 FILES.                            BRIDGE   1594
          1563  7170000035                        ISSUE  I.RJ3,=XS=INIT    RJ QXNTRY.                            BRIDGE   1595
          1566  0400001574 +                      EQ     SEX60                                                   BRIDGE   1596
                                                                                                                 BRIDGE   1597
          1567  7170000041               SEX50    ISSUE  I.UJP,=XS=ENTRY   GENERATE ENTRY/EXIT WORD              BRIDGE   1598
          1572  5140000000 X                      SA4    =XS=ENTRY                                               BRIDGE   1599
                          0100000000 X            CALL   ISA         ISSUE SAVE A0 / RJ CPL.                     BRIDGE   1600
          1573  0100001602 +                      RJ     ICP         ISSUE GLOBAL PARAMETER TABLE                BRIDGE   1601
                                                                                                                 BRIDGE   1602
          1574  7110000000 X             SEX60    ISUSE  CODE        USE CODE.                                   BRIDGE   1603
                                                                                                                 BRIDGE   1604
          1577  7170000021               SEX70    ISSUE  I.BCI       SIGNALS START OF CCG-STYLE PREBIN           BRIDGE   1605
          1601  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1606
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    44
        COMFICP - ISSUE CP. AND GPL. TABLES.                          ICP 
  
          1601                           ICP      CTEXT  COMFICP - ISSUE CP. AND GPL. TABLES.                    COMFICP     2
          1602  0400401602 +             ICP      SUBR                                                           COMFICP     3
          1603  5110000000 X                      SA1    =XN.EPL                                                 COMFICP     4
                          0301001602 +            ZR     X1,EXIT.    IF NO CPL. CALLS NEEDED                     COMFICP     5
          1604  7110000000 X                      ISUSE  TEM         USE TEM.                                    COMFICP     6
          1607  5120000000 X                      SA2    =XS=GPL                                                 COMFICP     7
                          5130000000 X            SA3    =X"L$"FPI                                               COMFICP     8
          1610  20352                             LX3    PB.BIASP-PB.TAGP                                        COMFICP     9
                     12123                        BX1    X2+X3                                                   COMFICP    10
                          7170000024              ISSUE  I.BSS,X1    GPL. BSS "L$"FPI                            COMFICP    11
          1613  5110000000 X                      SA1    =XS=CP                                                  COMFICP    12
                          7170000024              ISSUE  I.BSS,X1          CP. BSS 0                             COMFICP    13
                                                                                                                 COMFICP    14
                                        *         ISSUE CPL WORD FOR EACH FORMAL PARAMETER.                      COMFICP    15
                                                                                                                 COMFICP    16
          1616  5110000000 X                      SA1    =X"O$"ENTP                                              COMFICP    17
                          6150777776              SB5    -1                                                      COMFICP    18
          1617  53010                             SA0    X1                                                      COMFICP    19
                     0400001623 +                 EQ     ICP20                                                   COMFICP    20
                                                                                                                 COMFICP    21
                                        *         ISSUE ZERO TERMINATOR FOR THIS LIST.                           COMFICP    22
                                                                                                                 COMFICP    23
          1620  7170000043               ICP10    ISSUE  I.ZERO                                                  COMFICP    24
          1622  5110000000 X                      SA1    "O$"ENTP                                                COMFICP    25
                          53010                   SA0    X1                                                      COMFICP    26
                                                                                                                 COMFICP    27
          1623  6155000002               ICP20    SB5    B5+2        SKIP HEADER                                 COMFICP    28
                          5110000000 X            SA1    =X"L$"ENTP                                              COMFICP    29
          1624  63710                             SB7    X1                                                      COMFICP    30
                     67757                        SB7    B5-B7                                                   COMFICP    31
                          0670001602 +            PL     B7,EXIT.    IF END OF ENTP                              COMFICP    32
          1625  54405                             SA4    B5+A0                                                   COMFICP    33
                     6140000074                   S"BT"  60                                                      COMFICP    34
                                                                                                                 COMFICP    35
          1626  0540001630 +             ICP30    NZ     "BT",ICP40  IF THIS WORD NOT EXHAUSTED                  COMFICP    36
                          6140000074              S"BT"  60                                                      COMFICP    37
          1627  66551                             SB5    B5+B1                                                   COMFICP    38
                     54405                        SA4    A0+B5                                                   COMFICP    39
                                                                                                                 COMFICP    40
          1630  6144777760               ICP40    S"BT"   "BT"-15                                                COMFICP    41
                          43055                   MX0    -EF.ORDL                                                COMFICP    42
                               23344              AX3    "BT",X4                                                 COMFICP    43
          1631  15630                             BX6    -X0*X3                                                  COMFICP    44
                     0306001620 +                 ZR     X6,ICP10    IF END OF LIST                              COMFICP    45
          1632  7170000023                        ISSUE  I.CPL,X6                                                COMFICP    46
          1635  5110000000 X                      SA1    "O$"ENTP                                                COMFICP    47
                          53010                   SA0    X1                                                      COMFICP    48
          1636  0400001626 +                      EQ     ICP30                                                   COMFICP    49
                                         COMFICP  ENDX                                                           COMFICP    50
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    45
        SPECIAL PROCESSING ROUTINES (*CALL*)                          GAP 
  
                                        **        APLIST PROCESSORS.                                             BRIDGE   1610
                                                                                                                 BRIDGE   1611
                                        **        GAP - GENERAL (USER FUNCTION) APLIST PROCESSOR.                BRIDGE   1612
                                                                                                                 BRIDGE   1613
          1637                           P=GAP    BSSENT 0                                                       BRIDGE   1614
          1637  43600                             MX6    0                                                       BRIDGE   1615
                     56151                        =A1    B5+OR.1OP                                               BRIDGE   1616
                          5160003104 +            SA6    ATF                                                     BRIDGE   1617
          1640  0100001727 +                      RJ     IAW         ISSUE APLIST WORD                           BRIDGE   1618
          1641  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1619
  
  
  
  
                                        **        FAP - BEGIN FUNCTION APLIST.                                   BRIDGE   1621
                                                                                                                 BRIDGE   1622
          1642                           P=FAP    BSSENT 0                                                       BRIDGE   1623
          1642  56150                             =A1    B5+OR.OPR                                               BRIDGE   1624
                     43070                        MX0    -TH.MODEL                                               BRIDGE   1625
                          20152                   LX1    -TH.MODEP                                               BRIDGE   1626
                               15610              BX6    -X0*X1                                                  BRIDGE   1627
          1643  6226777771                        SB2    X6-M.CHAR                                               BRIDGE   1628
                          0520000120 +            NZ     B2,PRE.RET                                              BRIDGE   1629
          1644  43700                             MX7    0                                                       BRIDGE   1630
                     5170003104 +                 SA7    ATF                                                     BRIDGE   1631
          1645  7170000002                        SX7    K=AP                                                    BRIDGE   1632
                          43601                   MX6    1                                                       BRIDGE   1633
                               20716              LX7    TP.CPFXP                                                BRIDGE   1634
          1646  5160003120 +                      SA6    FAF         MARK APLIST STARTED                         BRIDGE   1635
                          5140000000 X            SA4    L$APT                                                   BRIDGE   1636
          1647  20454                             LX4    TP.ORDP                                                 BRIDGE   1637
                     12774                        BX7    X7+X4                                                   BRIDGE   1638
                          5170003115 +            SA7    CAPL                                                    BRIDGE   1639
          1650  43101                             MX1    1                                                       BRIDGE   1640
                     5100000000 X                 ADDWRD APT,X1      ALLOCATE APLIST                             BRIDGE   1641
          1652  56151                             =A1    B5+OR.1OP                                               BRIDGE   1642
                     43054                        MX0    -TP.ORDL                                                BRIDGE   1643
                          20120                   LX1    -TP.ORDP                                                BRIDGE   1644
                               15110              BX1    -X0*X1                                                  BRIDGE   1645
          1653  0100002644 +                      RJ     GCL         GET FUNCTION LENGTH                         BRIDGE   1646
          1654  66200                             =B2    0           SET LEVEL=0                                 FC50728     9
                     0100002347 +                 RJ     ETT         ENTER TARGET TEMP INTO APLIST               BRIDGE   1647
          1655  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1648
                                                                                                                 BRIDGE   1649
  
  
  
  
                                        **        IOD - I/O DATA LIST ITEM.                                      BRIDGE   1651
                                                                                                                 BRIDGE   1652
          1656                           P=IOD    BSSENT 0                                                       BRIDGE   1653
          1656  76210                             CLAS=  X2,AT,(IO)                                              BRIDGE   1654
                     56151                        =A1    B5+OR.1OP                                               BRIDGE   1655
                          43002                   MX0    TP.IODPL                                                BRIDGE   1656
                               10711              BX7    X1                                                      BRIDGE   1657
          1657  20763                             HX7    TP.IODP                                                 BRIDGE   1658
                     11007                        BX0    X0*X7                                                   BRIDGE   1659
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    46
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IOD 
  
                          43401                   MX4    1                                                       BRIDGE   1660
                               20062              LX0    TP.IODPL+AT.IODPP                                       BRIDGE   1661
          1660  20471                             LX4    1+AT.NULP                                               BRIDGE   1662
                     12302                        BX3    X0+X2       IODP[ATF] = IODP[OPD]                       BRIDGE   1663
                          54211                   =A2    A1+OR.2OP-OR.1OP                                        BRIDGE   1664
                               20257              HX2    TP.SHRT                                                 BRIDGE   1665
          1661  0322001664 +                      PL     X2,IOD10    IF LENGTH OPERAND NOT SHORT CON             BRIDGE   1666
                          20265                   LX2    1+TP.SHRTP-TP.BIASP                                     BRIDGE   1667
                               76510              =X5    1                                                       BRIDGE   1668
          1662  43644                             MX6    -TP.BIASL                                               BRIDGE   1669
                     15626                        BX6    -X6*X2                                                  BRIDGE   1670
                          37265                   IX2    X6-X5                                                   BRIDGE   1671
          1663  0312001664 +                      NZ     X2,IOD10    IF BIAS[TURP(3)] NE 1                       BRIDGE   1672
                          43400                   MX4    0           NUL[ATF] = 0                                BRIDGE   1673
                                                                                                                 BRIDGE   1674
          1664  12634                    IOD10    BX6    X3+X4                                                   BRIDGE   1675
                     5160003104 +                 SA6    ATF                                                     BRIDGE   1676
                               10644              BX6    X4                                                      BRIDGE   1677
          1665  5160001672 +                      SA6    IODA                                                    BRIDGE   1678
                          0100001727 +            RJ     IAW         ISSUE APLIST WORD FOR DATA ADDRESS          BRIDGE   1679
          1666  5120004114 +                      CLAS=  X2,AT,(IO,LEN)                                          BRIDGE   1680
                          5140001672 +            SA4    IODA                                                    BRIDGE   1681
          1667  5115000002                        =A1    B5+OR.2OP                                               BRIDGE   1682
                          12624                   BX6    X2+X4       INSERT NON-UNITY LENGTH PROPERTY            BRIDGE   1683
          1670  5160003104 +                      SA6    ATF                                                     BRIDGE   1684
                          0100001727 +            RJ     IAW         ISSUE LENGTH OF ITEM                        BRIDGE   1685
          1671  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1686
                                                                                                                 BRIDGE   1687
          1672                     1     IODA     BSSZ   1                                                       BRIDGE   1688
  
  
  
  
                                        **        IOC - I/O CONTROL TURPLE PROCESSOR.                            BRIDGE   1690
                                                                                                                 BRIDGE   1691
          1673                           P=IOC    BSSENT 0                                                       BRIDGE   1692
          1673  5115000002                        SA1    B5+OR.2OP                                               BRIDGE   1693
                          5120004115 +            CLAS=  X2,AT,(IO,IOC)                                          BRIDGE   1694
          1674  43002                             MX0    TP.IODPL                                                BRIDGE   1695
                     10711                        BX7    X1                                                      BRIDGE   1696
                          20763                   HX7    TP.IODP                                                 BRIDGE   1697
                               11007              BX0    X0*X7                                                   BRIDGE   1698
          1675  20062                             LX0    TP.IODPL+AT.IODPP                                       BRIDGE   1699
                     12602                        BX6    X0+X2                                                   BRIDGE   1700
                          5160003104 +            SA6    ATF                                                     BRIDGE   1701
          1676  0100001727 +                      RJ     IAW          ISSUE APLIST WORD FOR CONTROL ITEM         BRIDGE   1702
          1677  5110000000 X                      SA1    =XL$SAP                                                 BRIDGE   1703
                          5120000000 X            SA2    =XO$SAP                                                 BRIDGE   1704
          1700  56551                             =A5    B5+OR.1OP                                               BRIDGE   1705
                     20550                        LX5    -TP.BIASP                                               BRIDGE   1706
                          43066                   MX0    -IA.MODEL                                               BRIDGE   1707
                               36312              IX3    X1+X2                                                   BRIDGE   1708
          1701  5243777776                        SA4    X3-1                                                    BRIDGE   1709
                          20460                   LX4    -IA.MODEP                                               BRIDGE   1710
                               11304              BX3    X0*X4       CLEAR MODE                                  BRIDGE   1711
          1702  43044                             MX0    -TP.BIASL                                               BRIDGE   1712
                     15550                        BX5    -X0*X5                                                  BRIDGE   1713
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    47
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IOC 
  
                          12635                   BX6    X3+X5       MODE[SAP(L$SAP)]=BIAS[TURP(2)] (CODE)       BRIDGE   1714
                               20614              LX6    IA.MODEP                                                BRIDGE   1715
          1703  54640                             SA6    A4                                                      BRIDGE   1716
                     0100002231 +                 RJ     PNA                                                     BRIDGE   1717
          1704  76100                             ADDWRD SAP,B0                                                  BRIDGE   1718
          1706  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1719
  
  
  
  
                                        **        IOU - UNIT CODE TURPLE PROCESSOR.                              BRIDGE   1721
                                        *         SEPARATE TURPLE USED FOR UNIT SINCE IT HAS LENGTH              BRIDGE   1722
                                        *         ATTRIBUTE LIKE DATA ITEM.                                      BRIDGE   1723
                                                                                                                 BRIDGE   1724
          1707                           P=IOU    BSSENT 0                                                       BRIDGE   1725
          1707  5110004115 +                      CLAS=  X1,AT,(IO,IOC)                                          BRIDGE   1726
                          43401                   MX4    1                                                       BRIDGE   1727
                               20471              LX4    1+AT.NULP                                               BRIDGE   1728
          1710  5125000002                        SA2    B5+OR.2OP                                               BRIDGE   1729
                          20257                   HX2    TP.SHRT                                                 BRIDGE   1730
          1711  0322001714 +                      PL     X2,IOU10    IF NOT SHORT CON LENGTH                     BRIDGE   1731
                          20265                   LX2    1+TP.SHRTP-TP.BIASP                                     BRIDGE   1732
                               76510              =X5    1                                                       BRIDGE   1733
          1712  43644                             MX6    -TP.BIASL                                               BRIDGE   1734
                     15626                        BX6    -X6*X2                                                  BRIDGE   1735
                          37265                   IX2    X6-X5                                                   BRIDGE   1736
          1713  0312001714 +                      NZ     X2,IOU10    IF LENGTH NE 1                              BRIDGE   1737
                          43400                   MX4    0                                                       BRIDGE   1738
                                                                                                                 BRIDGE   1739
          1714  12614                    IOU10    BX6    X1+X4                                                   BRIDGE   1740
                     5160003104 +                 SA6    ATF                                                     BRIDGE   1741
                               10644              BX6    X4                                                      BRIDGE   1742
          1715  5160001672 +                      SA6    IODA                                                    BRIDGE   1743
                          56151                   =A1    B5+OR.1OP                                               BRIDGE   1744
          1716  0100001727 +                      RJ     IAW                                                     BRIDGE   1745
          1717  43066                             MX0    -IA.MODEL                                               BRIDGE   1746
                     5110000000 X                 SA1    O$SAP                                                   BRIDGE   1747
          1720  5120000000 X                      SA2    L$SAP                                                   BRIDGE   1748
                          36312                   IX3    X1+X2                                                   BRIDGE   1749
          1721  5243777776                        SA4    X3-1                                                    BRIDGE   1750
                          76110                   =X1    IC.UNT                                                  BRIDGE   1751
                               20460              LX4    -IA.MODEP                                               BRIDGE   1752
          1722  11604                             BX6    X0*X4                                                   BRIDGE   1753
                     12661                        BX6    X6+X1       MODE[SAP(L$SAP)] = IC.UNIT                  BRIDGE   1754
                          20614                   LX6    IA.MODEP    RESET UPDATED SAP ENTRY                     BRIDGE   1755
                               54640              SA6    A4                                                      BRIDGE   1756
          1723  5110004116 +                      CLAS=  X1,AT,(IOC,IO,LEN)                                      BRIDGE   1757
                          5140001672 +            SA4    IODA                                                    BRIDGE   1758
          1724  12614                             BX6    X1+X4       INSERT NUL PROPERTY                         BRIDGE   1759
                     5160003104 +                 SA6    ATF                                                     BRIDGE   1760
          1725  5115000002                        SA1    B5+OR.2OP                                               BRIDGE   1761
                          0100001727 +            RJ     IAW         PROCESS LENGTH WORD                         BRIDGE   1762
          1726  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   1763
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    48
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IAW 
  
                                        **        IAW - ISSUE APLIST WORD.                                       BRIDGE   1765
                                        *         CONTROLS ADDITION OF APLIST ITEM TO APPROPIATE (APL OR IOA)    BRIDGE   1766
                                        *         TABLE,  AND FILING OF OPT2 USE/DEF ENTRY.                      BRIDGE   1767
                                        *                                                                        BRIDGE   1768
                                        *         ENTRY  (X1) = OPD, OPERAND WORD.                               BRIDGE   1769
                                                                                                                 BRIDGE   1770
          1727  0400401727 +             IAW      SUBR                                                           BRIDGE   1771
                                                                                                                 BRIDGE   1772
                                        *         SET AT.LEV0 IF THIS OPD IS LEVEL 0.                            BRIDGE   1773
                                                                                                                 BRIDGE   1774
          1730  5125000000                        SA2    B5+OR.OPR                                               BRIDGE   1775
                          5130003104 +            SA3    ATF                                                     BRIDGE   1776
          1731  43070                             MX0    -TH.MODEL                                               BRIDGE   1777
                     20252                        LX2    -TH.MODEP                                               BRIDGE   1778
                          15620                   BX6    -X0*X2                                                  BRIDGE   1779
                               20662              LX6    AT.MODEP                                                BRIDGE   1780
          1732  5140004117 +                      CLAS=  X4,TP,(LCM,FP)                                          BRIDGE   1781
                          10044                   BX0    X4                                                      BRIDGE   1782
                               12736              BX7    X3+X6       MODE[ATF] = MODE[TURP(1)]                   BRIDGE   1783
          1733  10511                             BX5    X1                                                      BRIDGE   1784
                     11301                        BX3    X0*X1                                                   BRIDGE   1785
                          13003                   BX0    X0-X3                                                   BRIDGE   1786
          1734  0310001741 +                      NZ     X0,IAW10    IF OPD NOT LCM AND FP                       BRIDGE   1787
                          5140000000 X            SA4    O$SYM                                                   BRIDGE   1788
          1735  43054                             MX0    -TP.ORDL                                                BRIDGE   1789
                     20120                        LX1    -TP.ORDP                                                BRIDGE   1790
                          15610                   BX6    -X0*X1                                                  BRIDGE   1791
                               22216              LX2    B1,X6                                                   BRIDGE   1792
          1736  36662                             IX6    X6+X2                                                   BRIDGE   1793
                     63241                        =B2    X4+WB.W                                                 BRIDGE   1794
                          53262                   SA2    X6+B2                                                   BRIDGE   1795
                               43072              MX0    -WB.LEVNL                                               BRIDGE   1796
          1737  20217                             LX2    -WB.LEVNP                                               BRIDGE   1797
                     15620                        BX6    -X0*X2                                                  BRIDGE   1798
                          0316001741 +            NZ     X6,IAW10    IF LEV[OPD] NE 0                            BRIDGE   1799
          1740  43001                             MX0    1                                                       BRIDGE   1800
                     20070                        LX0    1+AT.LEV0P                                              BRIDGE   1801
                          12707                   BX7    X0+X7                                                   BRIDGE   1802
                                                                                                                 BRIDGE   1803
          1741  5170003104 +             IAW10    SA7    ATF                                                     BRIDGE   1804
                          5140003120 +            SA4    FAF                                                     BRIDGE   1805
          1742  0334001750 +                      MI     X4,IAW20    IF NOT FIRST IAW CALL IN LIST               BRIDGE   1806
                          10277                   BX2    X7                                                      BRIDGE   1807
                                                  LX2    -AT.IOP                                                 BRIDGE   1808
          1743  7272000002                        SX7    X2+K=AP                                                 BRIDGE   1809
                          43601                   MX6    1                                                       BRIDGE   1810
                               20716              LX7    TP.CPFXP                                                BRIDGE   1811
          1744  54640                             SA6    A4          MARK NOT FIRST AP                           BRIDGE   1812
                     5242000000 X                 SA4    =XL$APT+X2                                              BRIDGE   1813
                               20454              LX4    TP.ORDP                                                 BRIDGE   1814
          1745  12774                             BX7    X7+X4                                                   BRIDGE   1815
                     5170003115 +                 SA7    CAPL                                                    BRIDGE   1816
                               43101              MX1    1                                                       BRIDGE   1817
          1746  5202000000 X                      ADDWRD APT+X2,X1                                               BRIDGE   1818
          1747  7263777776                        SX6    X3-1                                                    BRIDGE   1819
                          5160001761 +            SA6    UAP         LAST USER AP                                BRIDGE   1820
                                                                                                                 BRIDGE   1821
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    49
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IAW 
  
          1750  5120003104 +             IAW20    SA2    ATF                                                     BRIDGE   1822
                          10322                   BX3    X2                                                      BRIDGE   1823
                               43067              MX0    -AT.MODEL                                               BRIDGE   1824
          1751  20212                             LX2    -AT.MODEP                                               BRIDGE   1825
                     15620                        BX6    -X0*X2                                                  BRIDGE   1826
                          7226777771              SX2    X6-M.CHAR                                               BRIDGE   1827
          1752  10155                             BX1    X5                                                      BRIDGE   1828
                     0302001755 +                 ZR     X2,IAW30    IF MODE[ATF] = M.CHAR                       BRIDGE   1829
          1753  0100002012 +                      RJ     PAF         PROCESS NON-CHAR ITEM                       BRIDGE   1830
          1754  0400001727 +                      EQ     EXIT.                                                   BRIDGE   1831
                                                                                                                 BRIDGE   1832
                                         IAW30    HX3    AT.LEN                                                  BRIDGE   1833
          1755  0323001757 +                      PL     X3,IAW40    IF NOT PROCESSING CHAR ITEM LENGTH          BRIDGE   1834
                          0100001762 +            RJ     PCL         PROCESS CHAR LEN                            BRIDGE   1835
          1756  0400001727 +                      EQ     EXIT.                                                   BRIDGE   1836
                                                                                                                 BRIDGE   1837
          1757  0100002266 +             IAW40    RJ     PAC         PROCESS CHARACTER ITEM                      BRIDGE   1838
          1760  0400001727 +                      EQ     EXIT.                                                   BRIDGE   1839
                                                                                                                 BRIDGE   1840
          1761                     1     UAP      BSS    1           LAST USER SUBROUTINE APLIST                 BRIDGE   1841
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    50
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PCL 
  
                                        **        PCL - PROCESS CHARACTER ARRAY ITEM LENGTH.                     BRIDGE   1843
                                                                                                                 BRIDGE   1844
          1762  0400401762 +             PCL      SUBR                                                           BRIDGE   1845
          1763  5130003104 +                      SA3    ATF                                                     BRIDGE   1846
                          20303                   HX3    AT.NUL                                                  BRIDGE   1847
          1764  0323002006 +                      PL     X3,PCL50    IF NOT ARRAY ITEM                           BRIDGE   1848
                          10611                   BX6    X1                                                      BRIDGE   1849
          1765  5160002011 +                      SA6    PCLA                                                    BRIDGE   1850
                          5110002532 +            SA1    FARB                                                    BRIDGE   1851
          1766  0100002644 +                      RJ     GCL         GET LEN/TAG                                 BRIDGE   1852
          1767  10211                             BX2    X1                                                      BRIDGE   1853
                     76610                        =X6    1                                                       BRIDGE   1854
                          5160002223 +            SA6    CLF         FLAG APLIST TO CLW                          BRIDGE   1855
          1770  66700                             =B7    0                                                       BRIDGE   1856
                     0100002145 +                 RJ     AIT         ENTER CLEN TO CLW                           BRIDGE   1857
          1771  5110002011 +                      SA1    PCLA                                                    BRIDGE   1858
                          0100002012 +            RJ     PAF         LENGTH TO CLW                               BRIDGE   1859
                                                                                                                 BRIDGE   1860
                                        *         ELIMINATE LAST CLW PAIR IF ALREADY EXISTS.                     BRIDGE   1861
                                                                                                                 BRIDGE   1862
          1772  5120000000 X                      SA2    =XO$CLW                                                 BRIDGE   1863
                          5130000000 X            SA3    =XL$CLW                                                 BRIDGE   1864
          1773  53420                             SA4    X2                                                      BRIDGE   1865
                     54541                        =A5    A4+1                                                    BRIDGE   1866
                          6262000002              SB6    X2+2                                                    BRIDGE   1867
          1774  36023                             IX0    X2+X3                                                   BRIDGE   1868
                     63200                        SB2    X0                                                      BRIDGE   1869
                          57221                   =A2    B2-1                                                    BRIDGE   1870
                               55121              =A1    A2-1                                                    BRIDGE   1871
          1775  7203777775                        SX0    X3-2        INDEX = L$CLW - 2                           BRIDGE   1872
                                                                                                                 BRIDGE   1873
          1776  13614                    PCL30    BX6    X1-X4                                                   BRIDGE   1874
                     13725                        BX7    X2-X5                                                   BRIDGE   1875
                          5044000002              SA4    A4+2        W1 = W1+2                                   BRIDGE   1876
          1777  12667                             BX6    X6+X7       2 CLW WORDS CANNOT BE COMPLEMENTS           BRIDGE   1877
                     54541                        =A5    A4+1        W2 = W2+2                                   BRIDGE   1878
                          0316001776 +            NZ     X6,PCL30    IF NOT HIT                                  BRIDGE   1879
          2000  65342                             SB3    A4-B2                                                   BRIDGE   1880
                     0430002002 +                 ZR     B3,PCL40    IF HIT NOT END OF TABLE                     BRIDGE   1881
                               10700              BX7    X0                                                      BRIDGE   1882
          2001  54730                             SA7    A3          L$CLW = L$CLW-2                             BRIDGE   1883
                     75046                        SX0    A4-B6       INDEX = W1-O$CLW-2                          BRIDGE   1884
                                                                                                                 BRIDGE   1885
          2002  23210                    PCL40    AX2    B1,X0       BIAS = INDEX/2                              BRIDGE   1886
                     76600                        =X6    0                                                       BRIDGE   1887
                          5130000000 X            SA3    =XS=CL      TAG = CL.                                   BRIDGE   1888
          2003  5160002223 +                      SA6    CLF         FLAG ADD TO APLIST                          BRIDGE   1889
                          66700                   =B7    0                                                       BRIDGE   1890
          2004  0100002145 +                      RJ     AIT         FILE CL. POINTER TO APLIST                  BRIDGE   1891
          2005  0400001762 +                      EQ     EXIT.                                                   BRIDGE   1892
                                                                                                                 BRIDGE   1893
          2006  76100                    PCL50    ADDWRD SAP,B0                                                  BRIDGE   1894
          2010  0400001762 +                      EQ     EXIT.                                                   BRIDGE   1895
                                                                                                                 BRIDGE   1896
          2011                     1     PCLA     BSS    1                                                       BRIDGE   1897
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    51
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAF 
  
                                        **        PAF - PROCESS APLIST TURPLE OPERAND WORD.                      BRIDGE   1899
                                        *         PAF PRODUCES *APL* OR *IOA* TABLE ENTRY FOR CURRENT APLIST     BRIDGE   1900
                                        *         TYPE (APL OR IOD FWA) TURPLE.  ANY REQUIRED CODE TO SETUP      BRIDGE   1901
                                        *         APLIST, SUCH AS STORES TO TEMP OR STORES TO APLIST ARE         BRIDGE   1902
                                        *         OUTPUT TO *FUN* AFTER CODE PRECEDING APLIST IS MOVED TO        BRIDGE   1903
                                        *         *FUN* FROM *TXT*.  PAF WILL ALSO PRODUCE *AUD* ENTRY IF OPT=2. BRIDGE   1904
                                        *                                                                        BRIDGE   1905
                                        *         ENTRY  X1 = OPD, OPERAND WORD TO PROCESS.                      BRIDGE   1906
                                        *                                                                        BRIDGE   1907
                                        *                (ATF) = APLIST TYPE FLAG - DEFINES MODE OF OPERATION:   BRIDGE   1908
                                        *                        ATF = 0      USER FUNCTION APLIST               BRIDGE   1909
                                        *                        ATF = 1      IO DATA ITEM ADDR. OR IO CTL. ITEM BRIDGE   1910
                                        *                        ATF = 1S59+1 IO DATA ITEM LEN OR CONTROL CODE   BRIDGE   1911
                                                                                                                 BRIDGE   1912
          2012                           P=APRET  BSSENT 0           RETURN FROM SKEL AFTER CODE ISSUE           BRIDGE   1913
                                                                                                                 BRIDGE   1914
          2012  0400402012 +             PAF      SUBR                                                           BRIDGE   1915
          2013  10611                             BX6    X1                                                      BRIDGE   1916
                     5160002144 +                 SA6    PAFB                                                    BRIDGE   1917
          2014  5160000030 +                      SA6    GOVG        GPBUF(1) = OPD                              BRIDGE   1918
                          43700                   MX7    0                                                       BRIDGE   1919
          2015  5170002143 +                      SA7    APSKEL      SET TO NO CODE TO ISSUE                     BRIDGE   1920
                          5140003115 +            SA4    CAPL                                                    BRIDGE   1921
          2016  10744                             BX7    X4                                                      BRIDGE   1922
                     54761                        =A7    A6+1        GPBUF(2) = CURRENT APLIST                   BRIDGE   1923
                          20661                   LX6    59-TP.INTRP                                             BRIDGE   1924
                               43054              MX0    -TP.ORDL                                                BRIDGE   1925
          2017  0326002037 +                      PL     X6,PAF15    IF ^INTR[OP1]                               BRIDGE   1926
                          20120                   LX1    -TP.ORDP                                                BRIDGE   1927
          2020  5120000131 +                      SA2    IND0                                                    BRIDGE   1928
                          37312                   IX3    X1-X2                                                   BRIDGE   1929
                               15030              BX0    -X0*X3      IND = ORD[OP1] - IND0                       BRIDGE   1930
          2021  20671                             LX6    TP.INTRP-TP.ARYP                                        BRIDGE   1931
                     0326002055 +                 PL     X6,PAF25    IF ^ARY[OP1]                                BRIDGE   1932
          2022  5120003104 +                      SA2    ATF                                                     BRIDGE   1933
                                                  HX2    AT.LEN                                                  BRIDGE   1934
                          0332002024 +            MI     X2,PAF5     IF PROCESSING LEN, MUST MATERIALIZE         BRIDGE   1935
                                                                                                                 BRIDGE   1936
          2023  20140                             LX1    TP.ORDP-TP.ADDRP-1                                      BRIDGE   1937
                     0321002070 +                 PL     X1,PAF30    IF NOT ADDR[OP1]  */NOT LOCF                BRIDGE   1938
                                                                                                                 BRIDGE   1939
                                                                                                                 BRIDGE   1940
                                        *         STORE TO TEMP AND PLACE TEMP IN APLIST.                        BRIDGE   1941
                                                                                                                 BRIDGE   1942
          2024  66600                    PAF5     SB6    B0                                                      BRIDGE   1943
                     5140000030 +                 SA4    GOVG                                                    BRIDGE   1944
          2025  0100000454 +                      RJ     LOP                                                     BRIDGE   1945
          2026  20640                             LX6    R1.RJP                                                  BRIDGE   1946
                     5110000130 +                 SA1    LL.TXT                                                  BRIDGE   1947
                               43700              MX7    0                                                       BRIDGE   1948
          2027  6170000010                        SB7    OC.XMT                                                  BRIDGE   1949
                          12561                   BX5    X6+X1                                                   BRIDGE   1950
          2030  0100000546 +                      RJ     IRI                                                     BRIDGE   1951
          2031  43054                             MX0    -R1.RIL                                                 BRIDGE   1952
                     15660                        BX6    -X0*X6                                                  BRIDGE   1953
                          20622                   LX6    SD.RNP                                                  BRIDGE   1954
          2032  5150000000 X                      SA5    N.ST                                                    BRIDGE   1955
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    52
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAF 
  
                                                  LX5    SD.CAP                                                  BRIDGE   1956
                          12156                   BX1    X5+X6                                                   BRIDGE   1957
          2033  5100000000 X                      ADDWRD FUN,X1                                                  BRIDGE   1958
          2034  73751                             SX7    X5+B1                                                   BRIDGE   1959
                     54750                        SA7    A5          N.ST = N.ST + 1                             BRIDGE   1960
                          66700                   SB7    B0                                                      BRIDGE   1961
                               10255              BX2    X5                                                      BRIDGE   1962
          2035  5130000000 X                      SA3    S=ST                                                    BRIDGE   1963
                          0100002145 +            RJ     AIT                                                     BRIDGE   1964
          2036  0400002136 +                      EQ     PAF60                                                   BRIDGE   1965
                                                                                                                 BRIDGE   1966
          2037  20673                    PAF15    LX6    TP.INTRP-TP.ADDRP                                       BRIDGE   1967
                     0336002024 +                 MI     X6,PAF5     IF ADDR[OP1]  */LOCF(X)                     BRIDGE   1968
                               20665              LX6    TP.ADDRP-TP.FPP                                         BRIDGE   1969
          2040  0100003476 +                      RJ     GLT         GET  SYMBOL/LABEL TAG                       BRIDGE   1970
          2041  10244                             BX2    X4                                                      BRIDGE   1971
                     5110003104 +                 SA1    ATF                                                     BRIDGE   1972
                               66700              SB7    B0                                                      BRIDGE   1973
                                                  HX1    AT.LEN                                                  BRIDGE   1974
          2042  0331002053 +                      MI     X1,PAF21    IF I/O LEN                                  BRIDGE   1975
                          0303002047 +            ZR     X3,PAF22    IF SHORT CONSTANT                           BRIDGE   1976
          2043  20173                             LX1    AT.LENP-AT.IOP                                          BRIDGE   1977
                     0331002045 +                 MI     X1,PAF20    IF I/O FWA                                  BRIDGE   1978
          2044  0336002110 +                      MI     X6,PAF35    IF FP[OP1]                                  BRIDGE   1979
                                                                                                                 BRIDGE   1980
          2045  0100002145 +             PAF20    RJ     AIT                                                     BRIDGE   1981
          2046  0400002116 +                      EQ     PAF40                                                   BRIDGE   1982
                                                                                                                 BRIDGE   1983
                                        *         CONVERT SHORT CONSTANT ITEM TO CON. ENTRY.                     BRIDGE   1984
                                                                                                                 BRIDGE   1985
          2047  7212777777               PAF22    SX1    X2-0                                                    BRIDGE   1986
                          0100000000 X            CALL   CG$SCT                                                  BRIDGE   1987
          2050  5130000000 X                      SA3    =XS=CON                                                 BRIDGE   1988
                          73260                   SX2    X6                                                      BRIDGE   1989
                               66700              SB7    B0                                                      BRIDGE   1990
          2051  0100002145 +                      RJ     AIT                                                     BRIDGE   1991
          2052  0400002136 +                      EQ     PAF60                                                   BRIDGE   1992
                                                                                                                 BRIDGE   1993
                                        *         STORE LOCAL COPY OF FP OR LCM I/O LEN.                         BRIDGE   1994
                                                                                                                 BRIDGE   1995
          2053  0336002024 +             PAF21    MI     X6,PAF5     IF FP                                       BRIDGE   1996
                          20673                   LX6    TP.FPP-TP.LCMP                                          BRIDGE   1997
          2054  0336002024 +                      MI     X6,PAF5     IF LCM                                      BRIDGE   1998
                          0400002045 +            EQ     PAF20                                                   BRIDGE   1999
                                                                                                                 BRIDGE   2000
          2055  63700                    PAF25    SB7    X0                                                      BRIDGE   2001
                     66600                        SB6    B0                                                      BRIDGE   2002
                          5120003104 +            SA2    ATF         GET TYPE FLAG                               FC50684     9
                                                  HX2    AT.LEN                                                  FC50684    10
          2056  0332002064 +                      MI     X2,PAF26    IF IO LENGTH                                FC50684    11
                          0312002062 +            NZ     X2,PAF25A   IF NOT USER APLIST                          FC51379     6
          2057  5110000000 X                      SA1    N.STMAX                                                 FC51379     7
                          5120000000 X            SA2    N.ST                                                    FC51379     8
          2060  37612                             MX6    X1+X2                                                   FC51379     9
                     54620                        SA6    A2          TO AVOID POSSIBLE TEMP STORE CONFLICT       FC51379    10
          2062  0100000576 +             PAF25A   RJ     SDT         ISSUE TEMP(S)                               FC51379    11
          2063  0400002065 +                      EQ     PAF27                                                   FC50684    12
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    53
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAF 
  
                                                                                                                 FC50684    13
          2064  0100000640 +             PAF26    RJ     STR         ISSUE TEMP                                  FC50684    14
                                                                                                                 FC50684    15
          2065  5130000000 X             PAF27    SA3    =XS=ST                                                  FC50684    16
                          66700                   SB7    B0                                                      BRIDGE   2005
          2066  0100002145 +                      RJ     AIT                                                     BRIDGE   2006
          2067  0400002136 +                      EQ     PAF60                                                   BRIDGE   2007
                                                                                                                 BRIDGE   2008
                                                                                                                 BRIDGE   2009
                                        *         MARK GPBUF COPY OF OPERAND AS ADDR TO FORCE ADDRESS SET.       BRIDGE   2010
                                                                                                                 BRIDGE   2011
          2070  5110000030 +             PAF30    SA1    GOVG                                                    BRIDGE   2012
                          43701                   MX7    1                                                       BRIDGE   2013
                               20714              LX7    1+TP.ADDRP                                              BRIDGE   2014
          2071  12671                             BX6    X7+X1                                                   BRIDGE   2015
                     54610                        SA6    A1          ADDR[GPBUF(1)] = 1                          BRIDGE   2016
                                                                                                                 BRIDGE   2017
                                        *         PROCESS ARRAY LOAD APLIST.                                     BRIDGE   2018
                                                                                                                 BRIDGE   2019
                          5110000000 X            SA1    O$TST                                                   BRIDGE   2020
          2072  43720                             MX7    TP.ORDL                                                 BRIDGE   2021
                     63310                        SB3    X1                                                      BRIDGE   2022
                          53203                   SA2    X0+B3       TST(ORD)                                    BRIDGE   2023
                                                  LX7    TP.ORDL+TP.ORDP                                         BRIDGE   2024
                                                  LX2    -TS.RNUP                                                BRIDGE   2025
          2073  5110000000 X                      SA1    O$DTT                                                   BRIDGE   2026
                          63221                   SB2    X2+B1                                                   BRIDGE   2027
                               53112              SA1    X1+B2       DTT(2,RNU[TST])                             FC5A181     5
          2074  5140004117 +                      CLAS=  X4,TP,(LCM,FP)                                          FC5A438     6
                          10044                   BX0    X4                                                      FC5A438     7
                               11301              BX3    X0*X1                                                   FC5A438     8
          2075  13003                             BX0    X0-X3                                                   FC5A438     9
                     0310002100 +                 NZ     X0,PAF3     IF NOT LCM AND FP                           FC5A438    10
                               43001              MX0    1                                                       FC5A438    11
          2076  20070                             LX0    1+AT.LEV0P                                              FC5A438    12
                     5120003104 +                 SA2    ATF                                                     FC5A438    13
                               12702              BX7    X0+X2                                                   FC5A438    14
          2077  54720                             SA7    A2                                                      FC5A438    15
          2100  66710                    PAF3     SB7    B1          FLAG STORE TO APLIST                        FC5A438    16
                     0100003476 +                 RJ     GLT         GET ARRAY TAG                               FC5A181     6
          2101  43200                             MX2    0                                                       BRIDGE   2032
                     0100002145 +                 RJ     AIT                                                     BRIDGE   2033
          2102  5110003104 +                      SA1    ATF                                                     BRIDGE   2034
                          5120000137 +            SA2    OPT2                                                    BRIDGE   2035
          2103  76011                             =X0    2B                                                      BRIDGE   2036
                     6261000124 +                 SB6    X1+APSTR                                                BRIDGE   2037
                               20106              LX1    1-AT.LEV0P                                              FC5A438    17
          2104  11001                             BX0    X0*X1                                                   BRIDGE   2039
                     53106                        SA1    B6+X0       SKEL=APSTR+2*LEVEL0+IO                      BRIDGE   2040
                          10711                   BX7    X1                                                      BRIDGE   2041
          2105  5170002143 +                      SA7    APSKEL      ISSUE STORE TO APLIST                       BRIDGE   2042
                          0302002136 +            ZR     X2,PAF60    IF OPT NE 2                                 BRIDGE   2043
          2106  43001                             MX0    1                                                       BRIDGE   2044
                     20067                        LX0    1+AP.CRP                                                BRIDGE   2045
                          12660                   BX6    X6+X0                                                   BRIDGE   2046
                               54660              SA6    A6          MARK ARRAY REF AS CLASS REF.                BRIDGE   2047
          2107  0400002136 +                      EQ     PAF60                                                   BRIDGE   2048
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    54
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAF 
  
                                                                                                                 BRIDGE   2049
                                        *         PREPARE FOR STORE TO APLIST.                                   BRIDGE   2050
                                                                                                                 BRIDGE   2051
                                                                                                                 BRIDGE   2052
          2110  66710                    PAF35    SB7    B1          MARK STORE TO APLIST                        BRIDGE   2053
                     0100002145 +                 RJ     AIT                                                     BRIDGE   2054
          2111  5110003104 +                      SA1    ATF                                                     BRIDGE   2055
                          76011                   =X0    2B                                                      BRIDGE   2056
          2112  6261000124 +                      SB6    X1+APSTR                                                BRIDGE   2057
                          20107                   LX1    2-AT.LEV0P                                              BRIDGE   2058
                               11001              BX0    X0*X1                                                   BRIDGE   2059
          2113  53106                             SA1    B6+X0       SKEL=APSTR+2*LEVEL0+IO                      BRIDGE   2060
                     10711                        BX7    X1                                                      BRIDGE   2061
                          5170002143 +            SA7    APSKEL                                                  BRIDGE   2062
                                                                                                                 BRIDGE   2063
                                        *         SET ADDR BIT IN FP OPERAND.                                    BRIDGE   2064
                                                                                                                 BRIDGE   2065
          2114  5110000030 +                      SA1    GOVG                                                    BRIDGE   2066
                          7100004000              SX0    TP.ADDRM                                                BRIDGE   2067
          2115  12701                             BX7    X0+X1                                                   BRIDGE   2068
                     54710                        SA7    A1                                                      BRIDGE   2069
                                                                                                                 BRIDGE   2070
          2116  5110000137 +             PAF40    SA1    OPT2                                                    BRIDGE   2071
                          43001                   MX0    1                                                       BRIDGE   2072
                               20067              LX0    1+AP.CRP                                                BRIDGE   2073
          2117  0301002136 +                      ZR     X1,PAF60    IF OPT NE 2                                 BRIDGE   2074
                          0470002136 +            ZR     B7,PAF60    IF IH = 0                                   BRIDGE   2075
          2120  5110000000 X                      SA1    =XO$SYM                                                 BRIDGE   2076
                          63611                   SB6    X1+B1                                                   BRIDGE   2077
                               76770              SX7    B7                                                      BRIDGE   2078
          2121  7137677777                        SX3    B7-K.GL                                                 BRIDGE   2079
                          43100                   MX1    0           FLAG *NOT FORMAT*                           BRIDGE   2080
          2122  0323002130 +                      PL     X3,PAF55    IF GL                                       BRIDGE   2081
                          43754                   MX7    -TP.ORDL                                                BRIDGE   2082
          2123  5130002144 +                      =A3    PAFB        OPD = TURP(2)                               BRIDGE   2083
                          20320                   LX3    -TP.ORDP                                                BRIDGE   2084
                               15737              BX7    -X7*X3                                                  BRIDGE   2085
          2124  22317                             LX3    B1,X7                                                   BRIDGE   2086
                     36437                        IX4    X3+X7                                                   BRIDGE   2087
                          53146                   SA1    B6+X4                                                   BRIDGE   2088
                               20170              HX1    WB.LAB                                                  BRIDGE   2089
          2125  0331002130 +                      MI     X1,PAF55    IF LABEL                                    BRIDGE   2090
                          20165                   LX1    WB.LABP-WB.ARYP                                         BRIDGE   2091
          2126  0321002136 +                      PL     X1,PAF60    IF ^DIM[WORDB(ORD[OPD])]                    BRIDGE   2092
                          12606                   BX6    X0+X6                                                   BRIDGE   2093
                               54660              SA6    A6          CR[AP(M.AP)] = 1                            BRIDGE   2094
          2127  0400002136 +                      EQ     PAF60                                                   BRIDGE   2095
                                                                                                                 BRIDGE   2096
          2130  5120000000 X             PAF55    SA2    =XL$AUD                                                 BRIDGE   2097
                          20152                   LX1    WB.LABP-WB.FREFP                                        BRIDGE   2098
          2131  7262777776                        SX6    X2-1                                                    BRIDGE   2099
                          54620                   SA6    A2          REMOVE LABEL ENTRY FROM AUD                 BRIDGE   2100
          2132  0331002136 +                      MI     X1,PAF60    IF FORMAT                                   BRIDGE   2101
                          5110000000 X            CFTE   CBN,X7,IH   FLOW <CBN, AP LABEL>                        BRIDGE   2102
                                                                                                                 BRIDGE   2103
          2136  5110003104 +             PAF60    SA1    ATF                                                     BRIDGE   2104
                                                  HX1    AT.LEN                                                  BRIDGE   2105
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    55
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAF 
  
                          0331002141 +            MI     X1,PAF61    IF NOT FIRST CALL FOR THIS ITEM             BRIDGE   2106
          2137  5140003115 +                      SA4    CAPL                                                    BRIDGE   2107
                          76210                   =X2    1                                                       BRIDGE   2108
                               20224              LX2    TP.BIASP                                                BRIDGE   2109
          2140  36742                             IX7    X4+X2                                                   BRIDGE   2110
                     54740                        SA7    A4          BIAS[CAPL] = BIAS[CAPL] + 1                 BRIDGE   2111
                                                                                                                 BRIDGE   2112
          2141  5110002143 +             PAF61    SA1    APSKEL                                                  BRIDGE   2113
                          0301002012 +            ZR     X1,EXIT.    IF NO CODE TO ISSUE                         BRIDGE   2114
          2142  10611                             BX6    X1                                                      BRIDGE   2115
                     0400000072 +                 EQ     SUB.RET                                                 BRIDGE   2116
                                                                                                                 BRIDGE   2117
          2143                     1     APSKEL   BSS    1                                                       BRIDGE   2118
          2144                     1     PAFB     BSS    1                                                       BRIDGE   2119
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    56
        SPECIAL PROCESSING ROUTINES (*CALL*)                          AIT 
  
                                        **        AIT - ADD APLIST TO APL/IOA AND USE/DEF INFO TO AUT.           BRIDGE   2121
                                        *                                                                        BRIDGE   2122
                                        *                X2 = CA (24-BIT SIGNED)                                 BRIDGE   2123
                                        *                X3 = IH                                                 BRIDGE   2124
                                        *                B7 = 1 IF STORE TO APLIST, ELSE 0.                      BRIDGE   2125
                                                                                                                 BRIDGE   2126
          2145  0400402145 +             AIT      SUBR                                                           BRIDGE   2127
          2146  5140003104 +                      SA4    ATF                                                     BRIDGE   2128
                          56150                   SA1    B5                                                      BRIDGE   2129
                               43700              MX7    0                                                       BRIDGE   2130
          2147  0334002153 +                      MI     X4,AIT6     IF I/O LENGTH                               BRIDGE   2131
                                                                                                                 BRIDGE   2132
                                        *         SET AP.P1 BIT IF DOUBLE-WORD ITEM.                             BRIDGE   2133
                                                                                                                 BRIDGE   2134
                          43070                   MX0    -TH.MODEL                                               BRIDGE   2135
                               20152              LX1    -TH.MODEP                                               BRIDGE   2136
          2150  15010                             BX0    -X0*X1                                                  BRIDGE   2137
                     6260777773                   SB6    X0-M.DBL                                                BRIDGE   2138
                               20122              LX1    TH.MODEP                                                BRIDGE   2139
          2151  0460002152 +                      ZR     B6,AIT5     IF DOUBLE                                   BRIDGE   2140
                          0561002153 +            NE     B6,B1,AIT6  IF NOT COMPLEX                              BRIDGE   2141
                                                                                                                 BRIDGE   2142
          2152  43701                    AIT5     MX7    1                                                       BRIDGE   2143
                     20772                        LX7    1+AP.P1P                                                BRIDGE   2144
                                                                                                                 BRIDGE   2145
          2153  5150000000 X             AIT6     SA5    S=CON                                                   BRIDGE   2146
                          5170002222 +            SA7    AITA                                                    BRIDGE   2147
          2154  13635                             BX6    X3-X5                                                   BRIDGE   2148
                     0316002170 +                 NZ     X6,AIT7     IF IH NE CON.                               BRIDGE   2149
                               43601              MX6    1                                                       BRIDGE   2150
          2155  5160000000 X                      SA6    =XAPCON     FLAG CON. IN APLIST                         BRIDGE   2151
                          20402                   HX4    AT.CHAR                                                 BRIDGE   2152
          2156  0334002161 +                      MI     X4,AIT60    IF CHARACTER CONSTANT                       BRIDGE   2153
                          73120                   SX1    X2                                                      BRIDGE   2154
                               20703              LX7    -AP.P1P                                                 BRIDGE   2155
          2157  73471                             =X4    X7+1        LENGTH = P1 + 1                             BRIDGE   2156
                     0100002224 +                 RJ     FMU         MARK CON. ENTRY(S) AS USED                  BRIDGE   2157
          2160  0400002174 +                      EQ     AIT8                                                    BRIDGE   2158
                                                                                                                 BRIDGE   2159
                                        *         MARK CON. MEMBERS USED AS APPROPRIATE.                         BRIDGE   2160
                                                                                                                 BRIDGE   2161
          2161  5110000000 X             AIT60    SA1    =XO$CAC                                                 BRIDGE   2162
                          63620                   SB6    X2                                                      BRIDGE   2163
                               53516              SA5    X1+B6       CAC(BIAS) CONTAINS WC FOR THIS APLIST.      BRIDGE   2164
          2162  43052                             MX0    -WC.CLENL                                               BRIDGE   2165
                     20536                        LX5    -WC.CLENP                                               BRIDGE   2166
                          15650                   BX6    -X0*X5      X6 = CLEN                                   BRIDGE   2167
                               43070              MX0    -WC.BCPL                                                BRIDGE   2168
          2163  20506                             LX5    WC.CLENP-WC.BCPP                                        BRIDGE   2169
                     15450                        BX4    -X0*X5      X4 = BCP                                    BRIDGE   2170
                          43044                   MX0    -WC.RAL                                                 BRIDGE   2171
                               20530              LX5    WC.BCPP-WC.RAP                                          BRIDGE   2172
          2164  15150                             BX1    -X0*X5      X1 = RA = BIAS OF FIRST USED CON.           BRIDGE   2173
                     36046                        IX0    X4+X6                                                   BRIDGE   2174
                          7140000011              CW     X4,X0       X4 = NUMBER OF WORDS SPANNED                BRIDGE   2175
          2166  0100002224 +                      RJ     FMU         MARK CONS AS USED                           BRIDGE   2176
          2167  0400002174 +                      EQ     AIT8                                                    BRIDGE   2177
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    57
        SPECIAL PROCESSING ROUTINES (*CALL*)                          AIT 
  
                                                                                                                 BRIDGE   2178
          2170  5140000000 X             AIT7     SA4    S$VD                                                    BRIDGE   2179
                          13634                   BX6    X3-X4                                                   BRIDGE   2180
          2171  0316002174 +                      NZ     X6,AIT8     IF NOT VARDIM APLIST                        BRIDGE   2181
                          10733                   BX7    X3                                                      BRIDGE   2182
                               73120              SX1    X2                                                      BRIDGE   2183
          2172  0100000000 X                      CALL   CG$AVO      CALL AVO( X1=CA )                           BRIDGE   2184
          2173  73210                             SX2    X1                                                      BRIDGE   2185
                     10377                        BX3    X7                                                      BRIDGE   2186
                                                                                                                 BRIDGE   2187
          2174  43052                    AIT8     MX0    -AP.CAL                                                 BRIDGE   2188
                     5110000000 X                 SA1    =XCO.ARGC                                               BRIDGE   2189
          2175  5150002222 +                      SA5    AITA                                                    BRIDGE   2190
                          15620                   BX6    -X0*X2                                                  BRIDGE   2191
          2176  5140003104 +                      SA4    ATF                                                     BRIDGE   2192
                                                  LX4    -AT.IOP                                                 BRIDGE   2193
                          73040                   SX0    X4                                                      BRIDGE   2194
                                                  LX4    AT.IOP                                                  BRIDGE   2195
                               20073              LX0    -1                                                      BRIDGE   2196
          2177  12001                             BX0    X0+X1                                                   BRIDGE   2197
                     21073                        AX0    59                                                      BRIDGE   2198
                          12535                   BX5    X3+X5                                                   BRIDGE   2199
                               20622              LX6    AP.CAP                                                  BRIDGE   2200
                                                  LX5    AP.IHP                                                  BRIDGE   2201
          2200  12556                             BX5    X5+X6                                                   BRIDGE   2202
                                                                                                                 BRIDGE   2203
                                        *         INCLUDE IO CONTROL AND CHARACTER BITS AND MODE.                BRIDGE   2204
                                                                                                                 BRIDGE   2205
                     5110004120 +                 CLAS=  X1,AT,MODE                                              BRIDGE   2206
                               11101              BX1    X0*X1       INCLUDE MODE IF IO OR ARG=C                 BRIDGE   2207
          2201  11714                             BX7    X1*X4                                                   BRIDGE   2208
                     43101                        CLAS=  X1,AT,CHAR                                              BRIDGE   2209
                               20726              LX7    IA.MODEP-AT.MODEP                                       BRIDGE   2210
          2202  11014                             BX0    X1*X4                                                   BRIDGE   2211
                     43101                        CLAS=  X1,AT,IOC                                               BRIDGE   2212
                               20014              LX0    IA.CHARP-AT.CHARP                                       BRIDGE   2213
          2203  12707                             BX7    X0+X7                                                   BRIDGE   2214
                     11114                        BX1    X1*X4                                                   BRIDGE   2215
                          20115                   LX1    IA.IOCP-AT.IOCP                                         BRIDGE   2216
                               12071              BX0    X7+X1                                                   BRIDGE   2217
          2204  76770                             SX7    B7                                                      BRIDGE   2218
                     63730                        SB7    X3          SAVE TAG                                    BRIDGE   2219
                          20712                   LX7    IA.STP                                                  BRIDGE   2220
                               20222              LX2    IA.BIASP                                                BRIDGE   2221
          2205  20352                             LX3    IA.TAGP                                                 BRIDGE   2222
                     12007                        BX0    X0+X7                                                   BRIDGE   2223
                          12623                   BX6    X2+X3                                                   BRIDGE   2224
                               12160              BX1    X6+X0                                                   BRIDGE   2225
          2206  43206                             MX2    AT.OPT2L                                                BRIDGE   2226
                     5130000000 X                 SA3    WO.DOOT                                                 BRIDGE   2227
                               20305              LX3    IA.VARP                                                 BRIDGE   2228
          2207  12113                             BX1    X1+X3       VAR[AP] = DOTRIP                            BRIDGE   2229
                     20412                        HX4    AT.OPT2                                                 BRIDGE   2230
                          11424                   BX4    X2*X4                                                   BRIDGE   2231
                               12554              BX5    X5+X4                                                   BRIDGE   2232
          2210  5130002223 +                      SA3    CLF                                                     BRIDGE   2233
                          5203000000 X            ADDWRD SAP+X3,X1   SAP OR CLW                                  BRIDGE   2234
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    58
        SPECIAL PROCESSING ROUTINES (*CALL*)                          AIT 
  
          2212  6137677777                        SB3    B7-K.GL                                                 BRIDGE   2235
                          0630002216 +            PL     B3,AIT25    IF NOT IN SYMBOL TABLE                      BRIDGE   2236
          2213  5120000000 X                      SA2    O$SYM                                                   BRIDGE   2237
                          43101                   MX1    1                                                       BRIDGE   2238
                               66377              SB3    B7+B7                                                   BRIDGE   2239
          2214  20137                             LX1    1+WB.MATP                                               BRIDGE   2240
                     73221                        SX2    X2+B1                                                   BRIDGE   2241
                          66337                   SB3    B3+B7                                                   BRIDGE   2242
                               53223              SA2    X2+B3                                                   BRIDGE   2243
          2215  12612                             BX6    X1+X2                                                   BRIDGE   2244
                     54620                        SA6    A2          MAT[WB(IH)] = 1                             BRIDGE   2245
                                                                                                                 BRIDGE   2246
          2216  5120000137 +             AIT25    SA2    OPT2                                                    BRIDGE   2247
                          10155                   BX1    X5                                                      BRIDGE   2248
          2217  0302002145 +                      ZR     X2,EXIT.    IF OPT NE 2                                 BRIDGE   2249
                          0470002145 +            ZR     B7,EXIT.    IF TAG = 0                                  BRIDGE   2250
          2220  5100000000 X                      ADDWRD AUD,X1      ADD TO USE/DEF BUFFER                       BRIDGE   2251
          2221  0400002145 +                      EQ     EXIT.                                                   BRIDGE   2252
                                                                                                                 BRIDGE   2253
          2222                     1     AITA     BSS    1                                                       BRIDGE   2254
          2223                     1     CLF      BSSZ   1                                                       BRIDGE   2255
  
  
  
  
                                        **        FMU - MARK MULTIPLE CON. ENTRIES AS USED.                      BRIDGE   2257
                                        *         MULTIPLE ENTRY VERSION OF CG$FCU .                             BRIDGE   2258
                                        *                                                                        BRIDGE   2259
                                        *         ENTRY  X1 = FIRST CON. BIAS                                    BRIDGE   2260
                                        *                X4 = LENGTH OF USED SPAN.                               BRIDGE   2261
                                                                                                                 BRIDGE   2262
          2224  0400402224 +             FMU      SUBR                                                           BRIDGE   2263
          2225  5150000000 X                      SA5    =XO$CUT                                                 BRIDGE   2264
                          76710                   SX7    B1                                                      BRIDGE   2265
                               63640              SB6    X4                                                      BRIDGE   2266
          2226  36051                             IX0    X5+X1                                                   BRIDGE   2267
                                                                                                                 BRIDGE   2268
          2227  67661                    FMU10    SB6    B6-B1                                                   BRIDGE   2269
                     53706                        SA7    X0+B6                                                   BRIDGE   2270
                          0560002227 +            NZ     B6,FMU10    IF NOT TOP OF ENTRIES                       BRIDGE   2271
          2230  0400002224 +                      EQ     EXIT.                                                   BRIDGE   2272
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    59
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PNA 
  
                                        **        PNA - PROCESS NAMELIST APLIST.                                 BRIDGE   2274
                                        *         CONSTRUCT PSEUDO APLIST FOR NAMELIST ITEMS IN OPT=2.           BRIDGE   2275
                                                                                                                 BRIDGE   2276
          2231  0400402231 +             PNA      SUBR                                                           BRIDGE   2277
          2232  5130000137 +                      SA3    OPT2                                                    BRIDGE   2278
                          56151                   =A1    B5+OR.1OP                                               BRIDGE   2279
          2233  0303002231 +                      ZR     X3,EXIT.    IF OPT NE 2                                 BRIDGE   2280
                          43044                   MX0    -TP.BIASL                                               BRIDGE   2281
                               20150              LX1    -TP.BIASP                                               BRIDGE   2282
          2234  15210                             BX2    -X0*X1                                                  BRIDGE   2283
                     6272777767                   SB7    X2-IC.NML                                               BRIDGE   2284
          2235  0570002231 +                      NZ     B7,EXIT.    IF BIAS[TURP(2)] .NE. IC.NML                BRIDGE   2285
                          54111                   =A1    A1+OR.2OP-OR.1OP                                        BRIDGE   2286
                               43002              MX0    TP.IODPL                                                BRIDGE   2287
          2236  20163                             HX1    TP.IODP                                                 BRIDGE   2288
                     11601                        BX6    X0*X1                                                   BRIDGE   2289
                                                  LX6    2+AP.USEP                                               BRIDGE   2290
                          5160002265 +            SA6    IOBITS                                                  BRIDGE   2291
          2237  5150000000 X                      SA5    =XO$SYM                                                 BRIDGE   2292
                          20131                   LX1    TP.IODPL+TP.IODPP-TP.ORDP                               BRIDGE   2293
                               43054              MX0    -TP.ORDL                                                BRIDGE   2294
          2240  15210                             BX2    -X0*X1                                                  BRIDGE   2295
                     22312                        LX3    B1,X2                                                   BRIDGE   2296
                          36423                   IX4    X2+X3                                                   BRIDGE   2297
                               36054              IX0    X5+X4                                                   BRIDGE   2298
          2241  5150000000 X                      SA5    =XO$NLST                                                BRIDGE   2299
                          53101                   =A1    X0+WB.W                                                 BRIDGE   2300
                               43257              MX2    -WB.PNTL                                                BRIDGE   2301
          2242  20115                             LX1    -WB.PNTP                                                BRIDGE   2302
                     15312                        BX3    -X2*X1                                                  BRIDGE   2303
                          63730                   SB7    X3                                                      BRIDGE   2304
                               53557              SA5    X5+B7       I=1 , NLSI = NLST(PNT[WB(ORD[TURP(3)])])    BRIDGE   2305
          2243  43055                             MX0    -NG.NMEML                                               BRIDGE   2306
                     10155                        BX1    X5                                                      BRIDGE   2307
                          66470                   SB4    B7          B4 PRESERVED ACROSS THE ALLOCATE            FC5A395     9
                               20117              LX1    -NG.NMEMP                                               BRIDGE   2308
          2244  15110                             BX1    -X0*X1                                                  BRIDGE   2309
                     63710                        SB7    X1          N = NMEM[NLSI]                              BRIDGE   2310
                          77171                   SX1    B7-B1                                                   BRIDGE   2311
          2245  5100000000 X                      ALLOC  AUD,X1                                                  BRIDGE   2312
          2246  5150000000 X                      SA5    =XO$NLST                                                FC5A395    10
                          53554                   SA5    X5+B4       I=1 , NLSI = NLST(PNT[WB(ORD[TURP(3)])])    FC5A395    11
                                                                                                                 BRIDGE   2313
                                        *         INITIALIZE A7 TO OVERWRITE GROUP NAME AUD ENTRY WITH           BRIDGE   2314
                                        *         FIRST MEMBER ENTRY.                                            BRIDGE   2315
                                                                                                                 BRIDGE   2316
                               73126              SX1    X2+B6                                                   BRIDGE   2317
          2247  5221777775                        SA2    X1-2                                                    BRIDGE   2318
                          43055                   MX0    -NG.ORDL                                                BRIDGE   2319
          2250  6140000036                        SB4    30                                                      BRIDGE   2320
                          10722                   BX7    X2                                                      BRIDGE   2321
                               54720              SA7    A2          INITIALIZE A7 WITH FIRST STORE ADDR. -1     BRIDGE   2322
                                                                                                                 BRIDGE   2323
          2251  0470002231 +             PNA10    ZR     B7,EXIT.    IF I = N+1   */ NAMELIST TABLE EXHAUSTED    BRIDGE   2324
                          0540002253 +            NZ     B4,PNA20    IF CURRENT WORD NOT EXHAUSTED               BRIDGE   2325
          2252  6140000074                        SB4    60                                                      BRIDGE   2326
                          5055000001              SA5    A5+1        NLSI = NLSI + 1                             BRIDGE   2327
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    60
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PNA 
  
                                                                                                                 BRIDGE   2328
          2253  6144777760               PNA20    SB4    B4-15                                                   BRIDGE   2329
                          23445                   AX4    B4,X5                                                   BRIDGE   2330
                               15340              BX3    -X0*X4                                                  BRIDGE   2331
          2254  43400                             MX4    0                                                       BRIDGE   2332
                     5110000000 X                 SA1    O$SYM                                                   BRIDGE   2333
                               22213              LX2    B1,X3                                                   BRIDGE   2334
          2255  36632                             IX6    X3+X2                                                   BRIDGE   2335
                     63211                        =B2    X1+WB.W                                                 BRIDGE   2336
                          53162                   SA1    X6+B2                                                   BRIDGE   2337
                               43701              MX7    1                                                       BRIDGE   2338
          2256  20161                             HX1    WB.ARY                                                  BRIDGE   2339
                     11771                        BX7    X7*X1                                                   BRIDGE   2340
                          20101                   LX1    WB.ARYP-WB.EQVP                                         BRIDGE   2341
                               20767              LX7    1+AP.CRP                                                BRIDGE   2342
          2257  0321002262 +                      PL     X1,PNA30    IF MEMBER NOT EQUIVALENCED                  BRIDGE   2343
                          43660                   MX6    -WB.BASEL                                               BRIDGE   2344
                               20145              LX1    WB.EQVP+1-WB.BASEP                                      BRIDGE   2345
          2260  15316                             BX3    -X6*X1                                                  BRIDGE   2346
                     54111                        =A1    A1+WC.W-WB.W                                            BRIDGE   2347
                          43644                   MX6    -WC.RAL                                                 BRIDGE   2348
                               20152              LX1    -AP.CAL                                                 BRIDGE   2349
          2261  15416                             BX4    -X6*X1                                                  BRIDGE   2350
                                                                                                                 BRIDGE   2351
                                         PNA30    LX3    AP.IHP                                                  BRIDGE   2352
          2262  5110002265 +                      SA1    IOBITS                                                  BRIDGE   2353
                          20422                   LX4    AP.CAP                                                  BRIDGE   2354
                               12774              BX7    X7+X4                                                   BRIDGE   2355
          2263  12431                             BX4    X3+X1                                                   BRIDGE   2356
                     12774                        BX7    X7+X4                                                   BRIDGE   2357
                          67771                   SB7    B7-B1       I = I + 1                                   BRIDGE   2358
                               54771              SA7    A7+B1       AUD(J) = AP(IH[MEMI],CA[MEMI],ARY[MEMI],UD) BRIDGE   2359
          2264  0400002251 +                      EQ     PNA10                                                   BRIDGE   2360
                                                                                                                 BRIDGE   2361
          2265                     1     IOBITS   BSS    1                                                       BRIDGE   2362
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    61
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAC 
  
                                        **        PAC - CHARACTER APLIST PROCESSORS.                             BRIDGE   2364
                                                                                                                 BRIDGE   2365
          2266  0400402266 +             PAC      SUBR                                                           BRIDGE   2366
          2267  10711                             BX7    X1                                                      BRIDGE   2367
                     20762                        HX7    TP.CAT                                                  BRIDGE   2368
                          0327002272 +            PL     X7,PAC10    IF NOT CAT[OPD]                             BRIDGE   2369
          2270  0100002302 +                      RJ     IAC         ISSUE APLIST FOR CONCAT                     BRIDGE   2370
          2271  0400002266 +                      EQ     EXIT.                                                   BRIDGE   2371
                                                                                                                 BRIDGE   2372
          2272  0100002364 +             PAC10    RJ     PCI         PROCESS CHARACTER ITEM                      BRIDGE   2373
          2273  0400002266 +                      EQ     EXIT.                                                   BRIDGE   2374
  
  
  
  
                                        **        PCO - PROCESS CHARACTER OPERAND.                               BRIDGE   2376
                                                                                                                 BRIDGE   2377
          2274  0400402274 +             PCO      SUBR                                                           BRIDGE   2378
          2275  10711                             BX7    X1                                                      BRIDGE   2379
                     20762                        HX7    TP.CAT                                                  BRIDGE   2380
                          0327002300 +            PL     X7,PCO10    IF NOT CAT[OPD]                             BRIDGE   2381
          2276  0100002407 +                      RJ     ICE         ISSUE CHARACTER EXPRESSION TO SAP           BRIDGE   2382
          2277  0400002274 +                      EQ     EXIT.                                                   BRIDGE   2383
                                                                                                                 BRIDGE   2384
          2300  0100002364 +             PCO10    RJ     PCI         ISSUE CHARACTER ITEM TO SAP                 BRIDGE   2385
          2301  0400002274 +                      EQ     EXIT.                                                   BRIDGE   2386
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    62
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IAC 
  
                                        **        IAC - ISSUE APLIST FOR CONCAT.                                 BRIDGE   2388
                                                                                                                 BRIDGE   2389
          2302  0400402302 +             IAC      SUBR                                                           BRIDGE   2390
          2303  0100002374 +                      RJ     CEC         CHECK FOR EVALUATED //                      BRIDGE   2391
          2304  0470002302 +                      ZR     B7,EXIT.    IF ALREADY EVALUATED (ST. TO APLIST)        BRIDGE   2392
                          10711                   BX7    X1                                                      BRIDGE   2393
          2305  5170002345 +                      SA7    IACA                                                    BRIDGE   2394
                          0100002436 +            RJ     SAE         STACK APLIST ENVIRONMENT                    BRIDGE   2395
          2306  43100                             MX1    0                                                       BRIDGE   2396
                     5130000000 X                 SA3    S=ST                                                    BRIDGE   2397
          2307  0100002657 +                      RJ     PCA         RESERVE APLIST FOR TARGET TEMP              BRIDGE   2398
          2310  5110000000 X                      SA1    L$SAP                                                   BRIDGE   2399
                          5120000000 X            SA2    L$AUD                                                   BRIDGE   2400
          2311  20222                             LX2    18                                                      BRIDGE   2401
                     12712                        BX7    X1+X2                                                   BRIDGE   2402
                          5170002346 +            SA7    IACB                                                    BRIDGE   2403
          2312  5110002345 +                      SA1    IACA                                                    BRIDGE   2404
                          43600                   MX6    0                                                       FC5A243   152
          2313  5160002643 +                      SA6    FVSUKL      CLEAR *UNKNOWN LENGTH* FLAG                 FC5A243   153
                          0100002407 +            RJ     ICE         ISSUE EXPRESSION TO APLIST                  BRIDGE   2405
                                                                                                                 BRIDGE   2406
                                        *         ALLOCATE ST. STORAGE FOR TARGET TEMP AND FILE IN               BRIDGE   2407
                                        *         *TST* FOR THIS TURPLE.  NOW THAT WE KNOW LENGTH, WE            BRIDGE   2408
                                        *         RECALL PAC AND TRANSFER APLIST AND AUD ENTRIES TO              BRIDGE   2409
                                        *         SPACES RESERVED FOR THEM.                                      BRIDGE   2410
                                                                                                                 BRIDGE   2411
          2314  66210                             =B2    1           SET LEVEL=1                                 FC50728    10
                     0100002347 +                 RJ     ETT         ENTER TARGET TEMP TO SAP                    BRIDGE   2412
          2315  5110002643 +                      SA1    FVSUKL                                                  FC5A243   154
                          0311002322 +            NZ     X1,IAC20    IF EXPRESSION INCLUDES VARIABLE SUBSTRING   FC5A243   155
          2316  5110002362 +                      SA1    ETTA+1      GET LEVEL 1 TARGET TEMP                     FC50728    11
                          10611                   BX6    X1                                                      BRIDGE   2414
          2317  5130002345 +                      SA3    IACA                                                    BRIDGE   2415
                          5140000131 +            SA4    IND0                                                    BRIDGE   2416
          2320  43254                             MX2    -TP.ORDL                                                BRIDGE   2417
                     20320                        LX3    -TP.ORDP                                                BRIDGE   2418
                          15232                   BX2    -X2*X3                                                  BRIDGE   2419
                               37724              IX7    X2-X4                                                   BRIDGE   2420
          2321  5140000000 X                      SA4    O$TST                                                   BRIDGE   2421
                          36747                   IX7    X4+X7                                                   BRIDGE   2422
                               53670              SA6    X7          TST(ORD[OPD]) = ETTA                        BRIDGE   2423
                                                                                                                 FC5A243   156
          2322  5140000137 +             IAC20    SA4    OPT2                                                    FC5A243   157
                          5120002346 +            SA2    IACB                                                    BRIDGE   2425
          2323  5110000000 X                      SA1    L$SAP                                                   BRIDGE   2426
                          5150000000 X            SA5    O$SAP                                                   BRIDGE   2427
                                                                                                                 BRIDGE   2428
          2324  7261777776               IAC30    SX6    X1-1                                                    BRIDGE   2429
                          36756                   IX7    X5+X6                                                   BRIDGE   2430
                               54610              SA6    A1          L$SAP = L$SAP - 1                           BRIDGE   2431
          2325  53370                             SA3    X7                                                      BRIDGE   2432
                     6262777776                   SB6    X2-1                                                    BRIDGE   2433
                               10733              BX7    X3                                                      BRIDGE   2434
          2326  53756                             SA7    X5+B6       SAP(TSAP) = SAP(L$SAP+1)                    BRIDGE   2435
                     0304002331 +                 ZR     X4,IAC40    IF OPT=2 OR IF *AUD* DONE                   BRIDGE   2436
                                                                                                                 BRIDGE   2437
                                        *         UPDATE OPT2 INFO IN *AUD* ENTRY FOR TARGET.                    BRIDGE   2438
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    63
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IAC 
  
                                                                                                                 BRIDGE   2439
                               21222              AX2    18          TSAP = TAUD                                 BRIDGE   2440
          2327  5110000000 X                      SA1    L$AUD                                                   BRIDGE   2441
                          5150000000 X            SA5    =XO$AUD                                                 BRIDGE   2442
          2330  43400                             MX4    0                                                       BRIDGE   2443
                     0400002324 +                 EQ     IAC30                                                   BRIDGE   2444
                                                                                                                 BRIDGE   2445
          2331  76100                    IAC40    ADDWRD SAP,B0                                                  BRIDGE   2446
          2333  5110000000 X                      SA1    =XS=MMC                                                 BRIDGE   2447
                          0100003231 +            RJ     CGF                                                     BRIDGE   2448
          2334  0100002455 +                      RJ     PAE         POP APLIST ENVIRONMENT                      BRIDGE   2449
          2335  5110002643 +                      SA1    FVSUKL                                                  FC5A243   158
                          0301002342 +            ZR     X1,IAC50    IF TARGET LEN KNOWN                         FC5A243   159
          2336  0100003213 +                      RJ     SCA         STORE RETURNED X6 TO APLIST                 FC5A243   160
          2337  5130000000 X                      SA3    S=ST                                                    FC5A243   161
                          66710                   =B7    1           MARK STORE TO APLIST                        FC5A243   162
                               43200              MX2    0                                                       FC5A243   163
          2340  0100002673 +                      RJ     ECA         ENTER ST. TO APLIST                         FC5A243   164
          2341  0400002302 +                      EQ     EXIT.                                                   FC5A243   165
                                                                                                                 FC5A243   166
          2342  5110002363 +             IAC50    SA1    ETTB                                                    FC5A243   167
                          5130000000 X            SA3    S=ST                                                    BRIDGE   2451
          2343  0100002657 +                      RJ     PCA         FILE ST. ETC. IN USER APLIST                BRIDGE   2452
          2344  0400002302 +                      EQ     EXIT.                                                   BRIDGE   2453
                                                                                                                 BRIDGE   2454
          2345                     1     IACA     BSS    1                                                       BRIDGE   2455
          2346                     1     IACB     BSS    1                                                       BRIDGE   2456
  
  
  
  
                                        **        ETT - ENTER TARGET TEMP INTO APLIST.                           BRIDGE   2458
                                        *                                                                        BRIDGE   2459
                                        *         ENTRY  (X1) = CLEN                                             BRIDGE   2460
                                                                                                                 BRIDGE   2461
          2347  0400402347 +             ETT      SUBR                                                           BRIDGE   2462
          2350  10611                             BX6    X1                                                      BRIDGE   2463
                     7120000011                   CW     X2,X6                                                   BRIDGE   2464
          2352  5130000000 X                      SA3    N.ST                                                    BRIDGE   2465
                          36732                   IX7    X3+X2                                                   BRIDGE   2466
                               54730              SA7    A3          ALLOCATE FOR EXPRESSION                     BRIDGE   2467
          2353  43601                             MX6    1                                                       BRIDGE   2468
                     20662                        LX6    1+AT.STP    MARK TARGET ST. ITEM AS *DEF*               BRIDGE   2469
                          5160003104 +            SA6    ATF                                                     BRIDGE   2470
          2354  20144                             LX1    TS.CLENP                                                BRIDGE   2471
                                                  LX3    TS.RNUP                                                 BRIDGE   2472
                     43601                        MX6    1                                                       BRIDGE   2473
                          12513                   BX5    X1+X3                                                   BRIDGE   2474
                                                  LX6    1+TS.FRP                                                BRIDGE   2475
                               12656              BX6    X5+X6                                                   BRIDGE   2476
          2355  5162002361 +                      SA6    ETTA+B2     ETTA(INDEX) = TST ENTRY                     FC50728    12
                                                  LX3    WC.RAP-TS.RNUP                                          BRIDGE   2478
                          20166                   LX1    WC.CLENP-TS.CLENP                                       BRIDGE   2479
                               12131              BX1    X3+X1                                                   BRIDGE   2480
          2356  5130000000 X                      SA3    S=ST                                                    BRIDGE   2481
                          10711                   BX7    X1                                                      BRIDGE   2482
          2357  5170002363 +                      SA7    ETTB        ETTB = APLIST ENTRY                         BRIDGE   2483
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    64
        SPECIAL PROCESSING ROUTINES (*CALL*)                          ETT 
  
                          0100002657 +            RJ     PCA         RECALL PCA WITH VALID CLEN                  BRIDGE   2484
          2360  0400002347 +                      EQ     EXIT.                                                   BRIDGE   2485
                                                                                                                 BRIDGE   2486
          2361                     2     ETTA     BSS    2                                                       FC50728    13
          2363                     1     ETTB     BSS    1                                                       BRIDGE   2488
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    65
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PCI 
  
                                        **        PCI - PROCESS CHARACTER ITEM.                                  BRIDGE   2490
                                        *                                                                        BRIDGE   2491
                                        *         ENTRY  X1 = OPD                                                BRIDGE   2492
                                        *                                                                        BRIDGE   2493
                                        *         EXIT   X1 = CLEN                                               BRIDGE   2494
                                                                                                                 BRIDGE   2495
          2364  0400402364 +             PCI      SUBR                                                           BRIDGE   2496
          2365  10711                             BX7    X1                                                      BRIDGE   2497
                     10611                        BX6    X1                                                      BRIDGE   2498
                          20761                   HX7    TP.INTR                                                 BRIDGE   2499
                               20656              HX6    TP.ARY                                                  BRIDGE   2500
          2366  16067                             BX0    -X7+X6                                                  BRIDGE   2501
                     0320002371 +                 PL     X0,PCI10    IF INTR AND NOT ARY[OPD]                    BRIDGE   2502
          2367  0100002465 +                      RJ     FAR         FORM ARRAY (OR SCALAR) REFERENCE            BRIDGE   2503
          2370  0400002364 +                      EQ     EXIT.                                                   BRIDGE   2504
                                                                                                                 BRIDGE   2505
          2371  0100002374 +             PCI10    RJ     CEC         CHECK FOR EVALUATED // EXPRESSION           BRIDGE   2506
          2372  0470002364 +                      ZR     B7,EXIT.    IF CEC FILED ST. IN APLIST                  BRIDGE   2507
                          0100002535 +            RJ     FVS         FORM VARIABLE SUBSTRING                     BRIDGE   2508
          2373  0400002364 +                      EQ     EXIT.                                                   BRIDGE   2509
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    66
        SPECIAL PROCESSING ROUTINES (*CALL*)                          CEC 
  
                                        **        CEC - CHECK FOR EVALUATED CONCAT. EXPRESSION.                  BRIDGE   2511
                                        *                                                                        BRIDGE   2512
                                        *         ENTRY  (X1) = OPD                                              BRIDGE   2513
                                        *                                                                        BRIDGE   2514
                                        *         EXIT   (B7) =  0 IF EXPRESSION ALREADY EVALUATED, ELSE 1       BRIDGE   2515
                                        *                (X1) = CLEN IF B7=0, ELSE (X1) = OPD                    BRIDGE   2516
                                        *         IF B7 = 0, ST. FILED IN APLIST.                                BRIDGE   2517
                                                                                                                 BRIDGE   2518
          2374  0400402374 +             CEC      SUBR                                                           BRIDGE   2519
          2375  10711                             BX7    X1                                                      BRIDGE   2520
                     20720                        LX7    -TP.ORDP                                                BRIDGE   2521
                          5120000131 +            SA2    IND0                                                    BRIDGE   2522
          2376  43054                             MX0    -TP.ORDL                                                BRIDGE   2523
                     5130000000 X                 SA3    O$TST                                                   BRIDGE   2524
                               15670              BX6    -X0*X7                                                  BRIDGE   2525
          2377  37762                             IX7    X6-X2       INT = ORD[OPD] - IND0                       BRIDGE   2526
                     36337                        IX3    X3+X7                                                   BRIDGE   2527
                          53230                   SA2    X3                                                      BRIDGE   2528
                               66710              =B7    1           FLAG NOT EVALUATED                          BRIDGE   2529
                                                  HX2    TS.FR                                                   BRIDGE   2530
          2400  0322002374 +                      PL     X2,EXIT.    IF NOT FR[TST(INIT)]  */ NOT EVALUATED      BRIDGE   2531
                                                  LX2    1+TS.FRP-TS.RNUP                                        BRIDGE   2532
                          73520                   SX5    X2                                                      BRIDGE   2533
                               20230              LX2    TS.RNUP-TS.CLENP                                        BRIDGE   2534
          2401  73620                             SX6    X2                                                      BRIDGE   2535
                                                  LX5    WC.RAP                                                  BRIDGE   2536
                     5160002406 +                 SA6    CECA                                                    BRIDGE   2537
                               20636              LX6    WC.CLENP                                                BRIDGE   2538
          2402  12156                             BX1    X5+X6                                                   BRIDGE   2539
                     5130000000 X                 SA3    S=ST                                                    BRIDGE   2540
          2403  0100002657 +                      RJ     PCA         FILE ST., ETC. INTO APLIST                  BRIDGE   2541
          2404  5110002406 +                      SA1    CECA        LEN = CLEN                                  BRIDGE   2542
                          66700                   =B7    0                                                       BRIDGE   2543
          2405  0400002374 +                      EQ     EXIT.                                                   BRIDGE   2544
                                                                                                                 BRIDGE   2545
          2406                     1     CECA     BSS    1                                                       BRIDGE   2546
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    67
        SPECIAL PROCESSING ROUTINES (*CALL*)                          ICE 
  
                                        **        ICE - ISSUE CHARACTER EXPRESSION.                              BRIDGE   2548
                                        *         ICE IS CALLED TO GENERATE APLIST FOR OPERANDS OF CONCAT.       BRIDGE   2549
                                        *         STRING, IN *DE-PAREN'ED* ORDER.                                BRIDGE   2550
                                        *                                                                        BRIDGE   2551
                                        *         ENTRY  (X1) = OPD, MUST BE CONCAT POINTER.                     BRIDGE   2552
                                        *                                                                        BRIDGE   2553
                                        *         EXIT   (X1) = CLEN                                             BRIDGE   2554
                                                                                                                 BRIDGE   2555
          2407  0400402407 +             ICE      SUBR                                                           BRIDGE   2556
          2410  43600                             MX6    0           OLD = 0                                     BRIDGE   2557
                     5160002434 +                 SA6    ICEA        LEN = 0                                     BRIDGE   2558
                               43200              MX2    0                                                       BRIDGE   2559
                                                                                                                 BRIDGE   2560
          2411  43054                    ICE10    MX0    -TP.ORDL                                                BRIDGE   2561
                     10622                        BX6    X2          OLD                                         BRIDGE   2562
                          20120                   LX1    -TP.ORDP                                                BRIDGE   2563
                               15510              BX5    -X0*X1                                                  BRIDGE   2564
          2412  5120000131 +                      SA2    IND0                                                    BRIDGE   2565
                          5130000000 X            SA3    O$TST                                                   BRIDGE   2566
          2413  37752                             IX7    X5-X2                                                   BRIDGE   2567
                     5170002435 +                 SA7    ICEB        IND = ORD[OPD] - IND0                       BRIDGE   2568
                               36237              IX2    X3+X7                                                   BRIDGE   2569
          2414  53220                             SA2    X2                                                      BRIDGE   2570
                     5140000000 X                 SA4    O$DTT                                                   BRIDGE   2571
                               43052              MX0    -TS.FROML                                               BRIDGE   2572
          2415  20252                             LX2    -TS.FROMP                                               BRIDGE   2573
                     11202                        BX2    X0*X2                                                   BRIDGE   2574
                          12762                   BX7    X6+X2                                                   BRIDGE   2575
                               20722              LX7    TS.FROMP                                                BRIDGE   2576
          2416  54720                             SA7    A2          FROM[TST(IND)] = OLD                        BRIDGE   2577
                     63241                        =B2    X4+OR.1OP                                               BRIDGE   2578
                          53172                   SA1    X7+B2       OPD = 1OP(DTT(IND))                         BRIDGE   2579
                                                                                                                 BRIDGE   2580
          2417  10711                    ICE20    BX7    X1                                                      BRIDGE   2581
                     20762                        HX7    TP.CAT                                                  BRIDGE   2582
                          5120002435 +            SA2    ICEB        OLD = IND                                   BRIDGE   2583
          2420  0337002411 +                      MI     X7,ICE10    IF CAT[OPD]  */ PRED. IS CONCAT.            BRIDGE   2584
                          0100002364 +            RJ     PCI         ISSUE OPERAND                               BRIDGE   2585
          2421  5120002434 +                      SA2    ICEA                                                    BRIDGE   2586
                          36621                   IX6    X2+X1                                                   BRIDGE   2587
                               54620              SA6    A2          LEN = LEN + CLEN                            BRIDGE   2588
                                                                                                                 BRIDGE   2589
          2422  5110002435 +             ICE30    SA1    ICEB                                                    BRIDGE   2590
                          5120000000 X            SA2    O$TST                                                   BRIDGE   2591
          2423  36312                             IX3    X1+X2                                                   BRIDGE   2592
                     53430                        SA4    X3                                                      BRIDGE   2593
                          20403                   HX4    TS.RTV                                                  BRIDGE   2594
          2424  0334002430 +                      MI     X4,ICE40    IF RIGHT VISITED [TST(IND)]                 BRIDGE   2595
                                                                                                                 BRIDGE   2596
                                        *         GO UP RIGHT BRANCH.                                            BRIDGE   2597
                                                                                                                 BRIDGE   2598
                          5120000000 X            SA2    O$DTT                                                   BRIDGE   2599
          2425  43101                             MX1    1                                                       BRIDGE   2600
                     12641                        BX6    X4+X1                                                   BRIDGE   2601
                          20671                   LX6    1+TS.RTVP                                               BRIDGE   2602
          2426  6222000002                        SB2    X2+OR.2OP                                               BRIDGE   2603
                          54640                   SA6    A4          RTV[TST(IND)] = 1                           BRIDGE   2604
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    68
        SPECIAL PROCESSING ROUTINES (*CALL*)                          ICE 
  
                               53162              SA1    B2+X6       OPD = 2OP(DTT(IND))                         BRIDGE   2605
          2427  0400002417 +                      EQ     ICE20                                                   BRIDGE   2606
                                                                                                                 BRIDGE   2607
                                        *         BACK DOWN TREE.                                                BRIDGE   2608
                                                                                                                 BRIDGE   2609
          2430  43001                    ICE40    MX0    1                                                       BRIDGE   2610
                     15640                        BX6    -X0*X4                                                  BRIDGE   2611
                          20671                   LX6    1+TS.RTVP                                               BRIDGE   2612
                               54640              SA6    A4          RTV[TS(IND)] = 0                            BRIDGE   2613
          2431  20447                             LX4    1+TS.RTVP-TS.FROMP                                      BRIDGE   2614
                     73640                        SX6    X4                                                      BRIDGE   2615
                          5160002435 +            SA6    ICEB        IND = FROM[TST(IND)]                        BRIDGE   2616
          2432  0316002422 +                      NZ     X6,ICE30    IF IND NE 0                                 BRIDGE   2617
                          5110002434 +            SA1    ICEA        RETURN CLEN                                 BRIDGE   2618
          2433  0400002407 +                      EQ     EXIT.                                                   BRIDGE   2619
                                                                                                                 BRIDGE   2620
          2434                     1     ICEA     BSS    1                                                       BRIDGE   2621
          2435                     1     ICEB     BSS    1                                                       BRIDGE   2622
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    69
        SPECIAL PROCESSING ROUTINES (*CALL*)                          SAE 
  
                                        **        SAE - STACK APLIST ENVIRONMENT.                                BRIDGE   2624
                                                                                                                 BRIDGE   2625
          2436  0400402436 +             SAE      SUBR                                                           BRIDGE   2626
          2437  5110002454 +                      SA1    SAEA        SLEV = SLEV + 1                             BRIDGE   2627
                          73611                   =X6    X1+1                                                    BRIDGE   2628
                               54610              SA6    A1                                                      BRIDGE   2629
          2440  5110003115 +                      SA1    CAPL                                                    BRIDGE   2630
                          63260                   SB2    X6                                                      BRIDGE   2631
                               10611              BX6    X1                                                      BRIDGE   2632
          2441  54612                             SA6    A1+B2                                                   BRIDGE   2633
                     5110003112 +                 SA1    PSAP                                                    BRIDGE   2634
          2442  5120000000 X                      SA2    L$SAP                                                   BRIDGE   2635
                          10611                   BX6    X1                                                      BRIDGE   2636
                               54612              SA6    A1+B2       STACK CAPL,PSAP                             BRIDGE   2637
          2443  10622                             BX6    X2                                                      BRIDGE   2638
                     54610                        SA6    A1          PSAP = L$SAP                                BRIDGE   2639
                          5110003107 +            SA1    PAUD                                                    BRIDGE   2640
          2444  5120000000 X                      SA2    L$AUD                                                   BRIDGE   2641
                          10611                   BX6    X1                                                      BRIDGE   2642
                               54612              SA6    A1+B2       STACK PAUD                                  BRIDGE   2643
          2445  10622                             BX6    X2                                                      BRIDGE   2644
                     54610                        SA6    A1          PAUD = L$AUD                                BRIDGE   2645
                          5110003104 +            SA1    ATF                                                     BRIDGE   2646
          2446  10611                             BX6    X1                                                      BRIDGE   2647
                     54612                        SA6    A1+B2       STACK ATF                                   BRIDGE   2648
                          43600                   MX6    0                                                       BRIDGE   2649
                               54610              SA6    A1          ATF = 0                                     BRIDGE   2650
          2447  43101                             MX1    1                                                       BRIDGE   2651
                     5100000000 X                 ADDWRD APT,X1      ALLOC APLIST                                BRIDGE   2652
          2451  7170000002                        SX7    K=AP                                                    BRIDGE   2653
                          20716                   LX7    TP.CPFXP                                                BRIDGE   2654
          2452  7233777776                        SX3    X3-1                                                    BRIDGE   2655
                          20354                   LX3    TP.ORDP                                                 BRIDGE   2656
                               12773              BX7    X7+X3                                                   BRIDGE   2657
          2453  5170003115 +                      SA7    CAPL        CAPL POINTS TO ALLOCATED APLIST HEAD        BRIDGE   2658
                          0400002436 +            EQ     EXIT.                                                   BRIDGE   2659
                                                                                                                 BRIDGE   2660
          2454                     1     SAEA     BSSZ   1                                                       BRIDGE   2661
  
  
  
  
                                        **        PAE - POP APLIST ENVIRONMENT.                                  BRIDGE   2663
                                                                                                                 BRIDGE   2664
          2455  0400402455 +             PAE      SUBR                                                           BRIDGE   2665
          2456  5110002454 +                      SA1    SAEA                                                    BRIDGE   2666
                          7261777776              SX6    X1-1                                                    BRIDGE   2667
          2457  63210                             SB2    X1                                                      BRIDGE   2668
                     54610                        SA6    A1          SLEV = SLEV-1                               BRIDGE   2669
                          5112003115 +            SA1    CAPL+B2                                                 BRIDGE   2670
          2460  10611                             BX6    X1                                                      BRIDGE   2671
                     55612                        SA6    A1-B2                                                   BRIDGE   2672
                          5112003112 +            SA1    PSAP+B2                                                 BRIDGE   2673
          2461  10611                             BX6    X1                                                      BRIDGE   2674
                     55612                        SA6    A1-B2                                                   BRIDGE   2675
                          5112003107 +            SA1    PAUD+B2                                                 BRIDGE   2676
          2462  10611                             BX6    X1                                                      BRIDGE   2677
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    70
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAE 
  
                     55612                        SA6    A1-B2                                                   BRIDGE   2678
                          5112003104 +            SA1    ATF+B2                                                  BRIDGE   2679
          2463  10611                             BX6    X1                                                      BRIDGE   2680
                     55612                        SA6    A1-B2                                                   BRIDGE   2681
                          0400002455 +            EQ     EXIT.                                                   BRIDGE   2682
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    71
        SPECIAL PROCESSING ROUTINES (*CALL*)                          FAR 
  
                                        **        FAR - FORM ARRAY REFERENCE.                                    BRIDGE   2684
                                        *         FAR WILL EMIT CODE AND ISSUE APLIST FOR SCALAR, CONSTANT-      BRIDGE   2685
                                        *         INDEX ARRAY ELEMENT OR VARIABLE-INDEX ARRAY REFERENCE.         BRIDGE   2686
                                        *                                                                        BRIDGE   2687
                                        *         ENTRY  (X1) = OPD                                              BRIDGE   2688
                                        *                                                                        BRIDGE   2689
                                        *         EXIT   (X1) = CLEN                                             BRIDGE   2690
                                                                                                                 BRIDGE   2691
          2464  5110002532 +             FAR0     SA1    FARB                                                    BRIDGE   2692
                          0100002644 +            RJ     GCL         GET CHAR LEN                                BRIDGE   2693
                                                                                                                 BRIDGE   2694
          2465  0400402465 +             FAR      SUBR                                                           BRIDGE   2695
          2466  10511                             BX5    X1                                                      BRIDGE   2696
                     20161                        HX1    TP.INTR                                                 BRIDGE   2697
                          0321002511 +            PL     X1,FAR30    IF NOT INTR[OPD] */ CONSTANT INDEX          BRIDGE   2698
          2467  0100002436 +                      RJ     SAE         SET UP FOR GENERATED APLIST                 BRIDGE   2699
          2470  5120000000 X                      SA2    O$TST                                                   BRIDGE   2700
                          5140000131 +            SA4    IND0                                                    BRIDGE   2701
          2471  10155                             BX1    X5                                                      BRIDGE   2702
                     43054                        MX0    -TP.ORDL                                                BRIDGE   2703
                          20520                   LX5    -TP.ORDP                                                BRIDGE   2704
                               63220              SB2    X2                                                      BRIDGE   2705
          2472  15650                             BX6    -X0*X5                                                  BRIDGE   2706
                     37664                        IX6    X6-X4       INDA = ORD[OPD] - IND0                      BRIDGE   2707
                          53262                   SA2    X6+B2                                                   BRIDGE   2708
          2473  5130000000 X                      SA3    O$DTT                                                   BRIDGE   2709
                          63321                   =B3    X2+OR.1OP                                               BRIDGE   2710
                               53433              SA4    X3+B3                                                   BRIDGE   2711
          2474  10622                             BX6    X2                                                      BRIDGE   2712
                     5160002531 +                 SA6    FARA                                                    BRIDGE   2713
          2475  5120000000 X                      SA2    O$SYM                                                   BRIDGE   2714
                          43054                   MX0    -TP.ORDL                                                BRIDGE   2715
                               20420              LX4    -TP.ORDP                                                BRIDGE   2716
          2476  15640                             BX6    -X0*X4                                                  BRIDGE   2717
                     5160002532 +                 SA6    FARB                                                    BRIDGE   2718
                               20431              LX4    TP.ORDP-1-TP.FPP                                        BRIDGE   2719
          2477  0334002507 +                      MI     X4,FAR20    IF FP[OPD]                                  BRIDGE   2720
                          20423                   LX4    1+TP.FPP                                                BRIDGE   2721
                               10144              BX1    X4                                                      BRIDGE   2722
          2500  0100002651 +                      RJ     SCB         SUBSUME BIAS AND RESOLVE EQUIV BIAS         BRIDGE   2723
          2501  10166                             BX1    X6                                                      BRIDGE   2724
                     76370                        SX3    B7                                                      BRIDGE   2725
                          0100002657 +            RJ     PCA         FILE CONSTANT ADDRESS PORTION               BRIDGE   2726
                                                                                                                 BRIDGE   2727
                                        *         PROCESS INDEX VARIABLE.                                        BRIDGE   2728
                                                                                                                 BRIDGE   2729
          2502  43700                    FAR10    MX7    0                                                       BRIDGE   2730
                     5170003104 +                 SA7    ATF         CLEAR OUT M.CHAR FROM PCA CALL              BRIDGE   2731
          2503  5110002531 +                      SA1    FARA                                                    BRIDGE   2732
                          5120000000 X            SA2    O$DTT                                                   BRIDGE   2733
          2504  36312                             IX3    X1+X2                                                   BRIDGE   2734
                     5213000002                   SA1    X3+OR.2OP                                               BRIDGE   2735
          2505  0100002012 +                      RJ     PAF                                                     BRIDGE   2736
          2506  0400002523 +                      EQ     FAR50                                                   BRIDGE   2737
                                                                                                                 BRIDGE   2738
                                        *         PROCESS FORMAL ARRAY.                                          BRIDGE   2739
                                                                                                                 BRIDGE   2740
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    72
        SPECIAL PROCESSING ROUTINES (*CALL*)                          FAR 
  
          2507  20423                    FAR20    LX4    1+TP.FPP                                                BRIDGE   2741
                     10144                        BX1    X4                                                      BRIDGE   2742
                          0100002704 +            RJ     PCAF        FILE HEADER (CONSTANT PORTION) WORD         BRIDGE   2743
          2510  0400002502 +                      EQ     FAR10                                                   BRIDGE   2744
                                                                                                                 BRIDGE   2745
          2511  20133                    FAR30    LX1    1+TP.INTRP-TP.ORDP                                      BRIDGE   2746
                     43054                        MX0    -TP.ORDL                                                BRIDGE   2747
                          15610                   BX6    -X0*X1                                                  BRIDGE   2748
          2512  5160002532 +                      SA6    FARB                                                    BRIDGE   2749
                          20131                   LX1    TP.ORDP-1-TP.FPP                                        BRIDGE   2750
          2513  0331002517 +                      MI     X1,FAR40    IF FP[OPD]                                  BRIDGE   2751
                          20123                   LX1    1+TP.FPP                                                BRIDGE   2752
          2514  0100002651 +                      RJ     SCB         SUBSUME BIAS AND EQUIV BIAS                 BRIDGE   2753
          2515  10166                             BX1    X6                                                      BRIDGE   2754
                     76370                        SX3    B7                                                      BRIDGE   2755
                          0100002657 +            RJ     PCA                                                     BRIDGE   2756
          2516  0400002464 +                      EQ     FAR0                                                    BRIDGE   2757
                                                                                                                 BRIDGE   2758
          2517  20123                    FAR40    LX1    1+TP.FPP                                                BRIDGE   2759
                     10511                        BX5    X1                                                      BRIDGE   2760
                          0100002436 +            RJ     SAE         SETUP FOR APLIST GENERATION                 BRIDGE   2761
          2520  10155                             BX1    X5                                                      BRIDGE   2762
                     0100002704 +                 RJ     PCAF                                                    BRIDGE   2763
          2521  43700                             MX7    0                                                       BRIDGE   2764
                     5170003104 +                 SA7    ATF                                                     BRIDGE   2765
                               43101              MX1    1                                                       BRIDGE   2766
          2522  20115                             LX1    1+TP.SHRTP                                              BRIDGE   2767
                     0100002012 +                 RJ     PAF         FAKE CONSTANT ZERO INDEX                    BRIDGE   2768
                                                                                                                 BRIDGE   2769
          2523  5110000000 X             FAR50    SA1    =XS=FAR                                                 BRIDGE   2770
                          0100003231 +            RJ     CGF         EMIT CALL FAR                               BRIDGE   2771
          2524  0100002455 +                      RJ     PAE         RESTORE ENVIRONMENT                         BRIDGE   2772
          2525  0100003213 +                      RJ     SCA         STORE ADDRESS TO APLIST                     BRIDGE   2773
          2526  66710                             =B7    1                                                       BRIDGE   2774
                     5130002532 +                 SA3    FARB                                                    BRIDGE   2775
                               43200              MX2    0                                                       BRIDGE   2776
          2527  0100002673 +                      RJ     ECA         ENTER ITEM TO MAIN APLIST                   BRIDGE   2777
          2530  0400002464 +                      EQ     FAR0                                                    BRIDGE   2778
                                                                                                                 BRIDGE   2779
          2531                     1     FARA     BSS    1                                                       BRIDGE   2780
          2532                     1     FARB     BSS    1                                                       BRIDGE   2781
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    73
        SPECIAL PROCESSING ROUTINES (*CALL*)                          FVS 
  
                                        **        FVS - FORM VARIABLE SUBSCRIPT.                                 BRIDGE   2783
                                        *                                                                        BRIDGE   2784
                                        *         ENTRY  (X1) = OPD                                              BRIDGE   2785
                                        *                                                                        BRIDGE   2786
                                        *         EXIT   (X1) = CLEN                                             BRIDGE   2787
                                                                                                                 BRIDGE   2788
          2533  5110002637 +             FVS0     SA1    FVSC                                                    BRIDGE   2789
                          0100002644 +            RJ     GCL         CLEN = GCL(TAG)                             BRIDGE   2790
          2534  0322002535 +                      PL     X2,FVS      CHECK IF ASSUMED SIZE F.P.                  FC50651    41
                          5110002642 +            SA1    FVSF        IF SO, GET CONST. SUBST. SIZE               FC50651    42
                                                                                                                 BRIDGE   2791
          2535  0400402535 +             FVS      SUBR                                                           BRIDGE   2792
          2536  5130000131 +                      SA3    IND0                                                    BRIDGE   2793
                          43054                   MX0    -TP.ORDL                                                BRIDGE   2794
                               20120              LX1    -TP.ORDP                                                BRIDGE   2795
          2537  15610                             BX6    -X0*X1                                                  BRIDGE   2796
                     5140000000 X                 SA4    O$TST                                                   BRIDGE   2797
                               37663              IX6    X6-X3                                                   BRIDGE   2798
          2540  36246                             IX2    X4+X6                                                   BRIDGE   2799
                     53220                        SA2    X2                                                      BRIDGE   2800
                          73620                   SX6    X2                                                      BRIDGE   2801
          2541  5160002635 +                      SA6    FVSA        INDT IS SUBSTRING TURPLE POINTER            BRIDGE   2802
                          5120000000 X            SA2    O$DTT                                                   BRIDGE   2803
          2542  6226000002                        SB2    X6+OR.2OP                                               BRIDGE   2804
                          53522                   SA5    X2+B2                                                   BRIDGE   2805
                               63720              SB7    X2                                                      BRIDGE   2806
          2543  20520                             LX5    -TP.ORDP                                                BRIDGE   2807
                     15250                        BX2    -X0*X5                                                  BRIDGE   2808
                          37523                   IX5    X2-X3                                                   BRIDGE   2809
                               36545              IX5    X4+X5                                                   BRIDGE   2810
          2544  53250                             SA2    X5                                                      BRIDGE   2811
                     73720                        SX7    X2                                                      BRIDGE   2812
                          5170002636 +            SA7    FVSB        INDC IS COLON TURPLE POINTER                BRIDGE   2813
          2545  55551                             =A5    A5+OR.1OP-OR.2OP                                        BRIDGE   2814
                     20561                        HX5    TP.INTR                                                 BRIDGE   2815
                          0335002576 +            MI     X5,FVS30    IF INTR[1OP(INDT)]  */ ARRAY SUBSTR.        BRIDGE   2816
          2546  20533                             LX5    1+TP.INTRP-TP.ORDP                                      BRIDGE   2817
                     15650                        BX6    -X0*X5                                                  BRIDGE   2818
                          5160002637 +            SA6    FVSC        TAG = ORD[1OP(INDT)]                        BRIDGE   2819
          2547  5120000000 X                      SA2    =XS=FVS                                                 BRIDGE   2820
                          20531                   LX5    TP.ORDP-1-TP.FPP                                        BRIDGE   2821
                               10722              BX7    X2                                                      BRIDGE   2822
          2550  5170002640 +                      SA7    FVSD        ROUT = *FVS*                                BRIDGE   2823
                          10655                   BX6    X5                                                      FC50651    43
          2551  5160002642 +                      SA6    FVSF        SAVE FP FLAG                                FC50651    44
                          20523                   LX5    1+TP.FPP                                                BRIDGE   2825
                               10155              BX1    X5                                                      BRIDGE   2826
          2552  0100002651 +                      RJ     SCB         SUBSUME BIAS AND EQV. BIAS                  BRIDGE   2827
          2553  5110000000 X                      SA1    O$DTT                                                   BRIDGE   2828
                          5120002636 +            SA2    FVSB                                                    BRIDGE   2829
          2554  63621                             =B6    X2+OR.1OP                                               BRIDGE   2830
                     53316                        SA3    X1+B6                                                   BRIDGE   2831
                          54431                   =A4    A3+OR.2OP-OR.1OP                                        BRIDGE   2832
                               11234              BX2    X3*X4                                                   BRIDGE   2833
          2555  20257                             HX2    TP.SHRT                                                 BRIDGE   2834
                     0322002565 +                 PL     X2,FVS10    IF NOT CONSTANT SUBSTRING                   BRIDGE   2835
                               20350              LX3    -TP.BIASP                                               BRIDGE   2836
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    74
        SPECIAL PROCESSING ROUTINES (*CALL*)                          FVS 
  
          2556  20450                             LX4    -TP.BIASP                                               BRIDGE   2837
                     5150002642 +                 SA5    FVSF        GET FP FLAG                                 FC50651    45
          2557  0335002571 +                      MI     X5,FVS15    IF CONST. SUBST. OF F.P.                    FC50651    46
                          43700                   MX7    0           FVSF CONTAINS FLAG, SET TO ZERO             FC51566    10
          2560  5170002642 +                      SA7    FVSF        TO AVOID USING FOR CONST. SUBST. SIZE       FC51566    11
                          20523                   LX5    1+TP.FPP                                                FC50651    47
          2561  0100000000 X                      CALL   ECS         EVALUATE CONSTANT SUBSTRING                 BRIDGE   2838
          2562  5170002637 +                      SA7    FVSC        CLEN = LEN(ECS)                             BRIDGE   2839
                          10166                   BX1    X6                                                      BRIDGE   2840
                               76370              SX3    B7                                                      BRIDGE   2841
          2563  0100002657 +                      RJ     PCA         FILE CONSTANT SUBSTRING                     BRIDGE   2842
          2564  5110002637 +                      SA1    FVSC                                                    BRIDGE   2843
                          0400002535 +            EQ     EXIT.                                                   BRIDGE   2844
                                                                                                                 BRIDGE   2845
          2565  5150002642 +             FVS10    SA5    FVSF        GET FP FLAG                                 FC50651    48
                          0335002573 +            MI     X5,FVS20    IF FP                                       FC50651    49
          2566  10566                             BX5    X6                                                      FC50651    50
                     0100002436 +                 RJ     SAE         SETUP FOR APLIST GENERATION                 BRIDGE   2847
          2567  10155                             BX1    X5                                                      BRIDGE   2848
                     76370                        SX3    B7                                                      BRIDGE   2849
                          0100002657 +            RJ     PCA         FILE HEADER WORD                            BRIDGE   2850
          2570  0400002620 +                      EQ     FVS60                                                   BRIDGE   2851
                                                                                                                 FC50651    51
          2571  6233777776               FVS15    SB3    X3-1        EVALUATE SUBSTRING LENGTH                   FC50651    52
                          63240                   SB2    X4                                                      FC50651    53
                               77723              SX7    B2-B3       LEN = UB - ( LB - 1 )                       FC50651    54
          2572  5170002642 +                      SA7    FVSF        SAVE SUBSTRING LENGTH                       FC50651    55
                                                                                                                 BRIDGE   2852
          2573  0100002436 +             FVS20    RJ     SAE         SETUP FOR APLIST                            BRIDGE   2853
          2574  20523                             LX5    1+TP.FPP                                                BRIDGE   2854
                     10155                        BX1    X5                                                      BRIDGE   2855
                          0100002704 +            RJ     PCAF        FILE FP HEADER WORD                         BRIDGE   2856
          2575  0400002620 +                      EQ     FVS60                                                   BRIDGE   2857
                                                                                                                 BRIDGE   2858
          2576  5120000000 X             FVS30    SA2    =XS=FAS     ROUT = *FAS*                                BRIDGE   2859
                          10722                   BX7    X2                                                      BRIDGE   2860
          2577  5170002640 +                      SA7    FVSD                                                    BRIDGE   2861
                          0100002436 +            RJ     SAE                                                     BRIDGE   2862
          2600  5110002635 +                      SA1    FVSA                                                    BRIDGE   2863
                          5130000000 X            SA3    O$DTT                                                   FC51210     7
          2601  63730                             SB7    X3                                                      FC51210     8
                     66271                        =B2    B7+OR.1OP                                               BRIDGE   2864
                          53312                   SA3    X1+B2       DTT(1OP,INDT)                               BRIDGE   2865
                               43054              MX0    -TP.ORDL                                                BRIDGE   2866
          2602  5140000131 +                      SA4    IND0                                                    BRIDGE   2867
                          20320                   LX3    -TP.ORDP                                                BRIDGE   2868
                               15630              BX6    -X0*X3                                                  BRIDGE   2869
          2603  5110000000 X                      SA1    O$TST                                                   BRIDGE   2870
                          37364                   IX3    X6-X4                                                   BRIDGE   2871
                               36613              IX6    X1+X3                                                   BRIDGE   2872
          2604  53260                             SA2    X6                                                      BRIDGE   2873
                     53322                        SA3    X2+B2                                                   BRIDGE   2874
                          20320                   LX3    -TP.ORDP                                                BRIDGE   2875
                               15630              BX6    -X0*X3                                                  BRIDGE   2876
          2605  5160002637 +                      SA6    FVSC                                                    BRIDGE   2877
                          73720                   SX7    X2                                                      BRIDGE   2878
          2606  5170002641 +                      SA7    FVSE        INDA IS POINTER TO ARRAY TURPLE             BRIDGE   2879
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    75
        SPECIAL PROCESSING ROUTINES (*CALL*)                          FVS 
  
                          20331                   LX3    TP.ORDP-1-TP.FPP                                        BRIDGE   2880
          2607  0333002613 +                      MI     X3,FVS40    IF FP ARRAY SUBSTRING                       BRIDGE   2881
                          20323                   LX3    1+TP.FPP                                                BRIDGE   2882
                               10133              BX1    X3                                                      BRIDGE   2883
          2610  0100002651 +                      RJ     SCB         EVALUATE CONSTANT PORTION                   BRIDGE   2884
          2611  10166                             BX1    X6                                                      BRIDGE   2885
                     76370                        SX3    B7                                                      BRIDGE   2886
                          0100002657 +            RJ     PCA         FILE HEADER                                 BRIDGE   2887
          2612  0400002614 +                      EQ     FVS50                                                   BRIDGE   2888
                                                                                                                 BRIDGE   2889
          2613  20323                    FVS40    LX3    1+TP.FPP                                                BRIDGE   2890
                     10133                        BX1    X3                                                      BRIDGE   2891
                          0100002704 +            RJ     PCAF        FILE FP HEADER WORD                         BRIDGE   2892
                                                                                                                 BRIDGE   2893
          2614  43700                    FVS50    MX7    0                                                       BRIDGE   2894
                     5170003104 +                 SA7    ATF                                                     BRIDGE   2895
          2615  5110000000 X                      SA1    O$DTT                                                   BRIDGE   2896
                          5120002641 +            SA2    FVSE                                                    BRIDGE   2897
          2616  36312                             IX3    X1+X2                                                   BRIDGE   2898
                     5213000002                   SA1    X3+OR.2OP                                               BRIDGE   2899
          2617  0100002012 +                      RJ     PAF         FILE INDEX                                  BRIDGE   2900
                                                                                                                 BRIDGE   2901
          2620  43700                    FVS60    MX7    0                                                       BRIDGE   2902
                     5170003104 +                 SA7    ATF                                                     BRIDGE   2903
          2621  5110000000 X                      SA1    O$DTT                                                   BRIDGE   2904
                          5120002636 +            SA2    FVSB                                                    BRIDGE   2905
          2622  36312                             IX3    X1+X2                                                   BRIDGE   2906
                     53131                        =A1    X3+OR.1OP                                               BRIDGE   2907
                          0100002012 +            RJ     PAF         FILE SUBSTRING START                        BRIDGE   2908
          2623  5110000000 X                      SA1    O$DTT                                                   BRIDGE   2909
                          5120002636 +            SA2    FVSB                                                    BRIDGE   2910
          2624  36312                             IX3    X1+X2                                                   BRIDGE   2911
                     5213000002                   =A1    X3+OR.2OP                                               BRIDGE   2912
          2625  0100002012 +                      RJ     PAF         FILE SUBSTRING END                          BRIDGE   2913
          2626  5110002640 +                      SA1    FVSD                                                    BRIDGE   2914
                          0100003231 +            RJ     CGF         EMIT CALL ROUT                              BRIDGE   2915
          2627  0100002455 +                      RJ     PAE         RESTORE APLIST ENVIRONMENT                  BRIDGE   2916
          2630  0100003213 +                      RJ     SCA         STORE X6 TO APLIST                          BRIDGE   2917
          2631  66710                             =B7    1                                                       BRIDGE   2918
                     5130002637 +                 SA3    FVSC                                                    BRIDGE   2919
                               43200              MX2    0                                                       BRIDGE   2920
          2632  0100002673 +                      RJ     ECA         ENTER ITEM INTO MAIN (USER) APLIST          BRIDGE   2921
          2633  76710                             =X7    1                                                       FC5A243   168
                     5170002643 +                 SA7    FVSUKL      MARK *UNKNOWN LENGTH* EXPRESSION            FC5A243   169
          2634  0400002533 +                      EQ     FVS0                                                    BRIDGE   2922
                                                                                                                 BRIDGE   2923
          2635                     1     FVSA     BSS    1                                                       BRIDGE   2924
          2636                     1     FVSB     BSS    1                                                       BRIDGE   2925
          2637                     1     FVSC     BSS    1                                                       BRIDGE   2926
          2640                     1     FVSD     BSS    1                                                       BRIDGE   2927
          2641                     1     FVSE     BSS    1                                                       BRIDGE   2928
          2642                     1     FVSF     BSS    1                                                       FC50651    56
          2643                     1     FVSUKL   BSS    1                                                       FC5A243   170
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    76
        SPECIAL PROCESSING ROUTINES (*CALL*)                          GCL 
  
                                        **        GCL - GET CHARACTER LENGTH.                                    BRIDGE   2930
                                        *                                                                        BRIDGE   2931
                                        *         ENTRY  X1 = ORD, SYMTAB ORDINAL                                BRIDGE   2932
                                        *                                                                        BRIDGE   2933
                                        *         EXIT   X1 = WC.CLEN[ORD]                                       BRIDGE   2934
                                        *                X3 = VD. TAG IF CTYP=1, ELSE 0                          BRIDGE   2935
                                                                                                                 BRIDGE   2936
          2644  0400402644 +             GCL      SUBR                                                           BRIDGE   2937
          2645  22211                             LX2    B1,X1                                                   BRIDGE   2938
                     5140000000 X                 SA4    O$SYM                                                   BRIDGE   2939
                               36312              IX3    X1+X2                                                   BRIDGE   2940
          2646  43052                             MX0    -WC.CLENL                                               BRIDGE   2941
                     6224000002                   SB2    X4+WC.W                                                 BRIDGE   2942
                               53232              SA2    B2+X3                                                   BRIDGE   2943
          2647  20236                             LX2    -WC.CLENP                                               BRIDGE   2944
                     15120                        BX1    -X0*X2                                                  BRIDGE   2945
                          5140000000 X            SA4    =XS$VD                                                  BRIDGE   2946
                                                  LX2    WC.CLENP-1-WC.CTYPP                                     BRIDGE   2947
          2650  21273                             AX2    59                                                      BRIDGE   2948
                     11324                        BX3    X2*X4                                                   BRIDGE   2949
                          0400002644 +            EQ     EXIT.                                                   BRIDGE   2950
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    77
        SCB - SUBSUME CONSTANT CHARACTER BIAS.
  
          2651                                    CTEXT  SCB - SUBSUME CONSTANT CHARACTER BIAS.                  COMFSCB     2
                                        **        SCB - SUBSUME CONSTANT BIAS.                                   COMFSCB     3
                                        *         FORM WC. WORD INCLUDING OPERAND BIAS AND EQUIV. OFFSET.        COMFSCB     4
                                        *                                                                        COMFSCB     5
                                        *         ENTRY  (X1) = OPD                                              COMFSCB     6
                                        *                                                                        COMFSCB     7
                                        *         EXIT   (X6) = WCA, WC. FORMAT                                  COMFSCB     8
                                        *                (B7) = SYMBOL TABLE POINTER TO WHICH WCA APPLIES.       COMFSCB     9
                                        *                                                                        COMFSCB    10
                                        *         PRESERVES  B4,B5,B6                                            COMFSCB    11
                                                                                                                 COMFSCB    12
          2651  0400402651 +             SCB      SUBR                                                           COMFSCB    13
          2652  5150000000 X                      SA5    "O$"SYM                                                 COMFSCB    14
                          43054                   MX0    -"TP"."ORD"L                                            COMFSCB    15
                               63250              SB2    X5                                                      COMFSCB    16
          2653  20120                             LX1    -"TP"."ORD"P                                            COMFSCB    17
                     15210                        BX2    -X0*X1                                                  COMFSCB    18
                          43044                   MX0    -"TP"."BIAS"L                                           COMFSCB    19
                               20130              LX1    "TP"."ORD"P-"TP"."BIAS"P                                COMFSCB    20
          2654  15510                             BX5    -X0*X1                                                  COMFSCB    21
                     20544                        LX5    -"TP"."BIAS"L                                           COMFSCB    22
                          21544                   AX5    -"TP"."BIAS"L                                           COMFSCB    23
          2655  0100000000 X                      CALL   ECB         EVALUATE CONSTANT BIAS                      COMFSCB    24
          2656  0400002651 +                      EQ     EXIT.                                                   COMFSCB    25
                                         COMFSCB  ENDX                                                           COMFSCB    26
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    78
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PCA 
  
                                        **        PROCESS CHARACTER APLIST.                                      BRIDGE   2954
                                        *                                                                        BRIDGE   2955
                                        *         ENTRY  (X1) = WCA                                              BRIDGE   2956
                                        *                (X3) = SYMTAB INDEX                                     BRIDGE   2957
                                                                                                                 BRIDGE   2958
          2657  0400402657 +             PCA      SUBR                                                           BRIDGE   2959
          2660  5120000000 X                      SA2    =XS=CON                                                 BRIDGE   2960
                          76610                   =X6    1                                                       BRIDGE   2961
                               20660              LX6    WC.RBP                                                  BRIDGE   2962
          2661  13023                             BX0    X2-X3                                                   BRIDGE   2963
                     0310002662 +                 NZ     X0,PCA5     IF NOT CON. REF                             BRIDGE   2964
                               12161              BX1    X6+X1       SET RB = 1 TO PREVENT SQZ AGAINST NON-CON   BRIDGE   2965
                                                                                                                 BRIDGE   2966
          2662  10533                    PCA5     BX5    X3                                                      BRIDGE   2967
                     5100000000 X                 ADDWRD CAC,X1                                                  BRIDGE   2968
          2664  53420                             SA4    X2                                                      BRIDGE   2969
                     64660                        SB6    A6                                                      BRIDGE   2970
                          6233777776              SB3    X3-1                                                    BRIDGE   2971
                                                                                                                 BRIDGE   2972
          2665  13064                    PCA10    BX0    X6-X4                                                   BRIDGE   2973
                     54441                        =A4    A4+1                                                    BRIDGE   2974
                          0310002665 +            NZ     X0,PCA10    IF NOT HIT                                  BRIDGE   2975
          2666  65246                             SB2    A4-B6                                                   BRIDGE   2976
                     0702002670 +                 GT     B2,PCA20    IF HIT IS NEW ENTRY                         BRIDGE   2977
                                                                                                                 BRIDGE   2978
                                        *         REMOVE ADDED ENTRY AS IT IS ALREADY IN CAC.                    BRIDGE   2979
                                                                                                                 BRIDGE   2980
                               76730              SX7    B3                                                      BRIDGE   2981
          2667  54730                             SA7    A3          L$CAC = L$CAC - 1                           BRIDGE   2982
                     63621                        =B6    X2+1                                                    BRIDGE   2983
                          65346                   SB3    A4-B6                                                   BRIDGE   2984
                                                                                                                 BRIDGE   2985
          2670  66700                    PCA20    =B7    0           NOT STORE TO APLIST                         BRIDGE   2986
                     10355                        BX3    X5                                                      BRIDGE   2987
                          76230                   SX2    B3          BIAS                                        BRIDGE   2988
          2671  0100002673 +                      RJ     ECA         ENTER INTO APLIST                           BRIDGE   2989
          2672  0400002657 +                      EQ     EXIT.                                                   BRIDGE   2990
  
  
  
  
                                        **        ECA - ENTER CHARACTER APLIST INTO SAP AND BUMP                 BRIDGE   2992
                                        *         CAPL BIAS.                                                     BRIDGE   2993
                                        *                                                                        BRIDGE   2994
                                        *         ENTRY  (X2) = BIAS                                             BRIDGE   2995
                                        *                (X3) = SYMBOL TABLE ORDINAL                             BRIDGE   2996
                                        *                B7 = 1 IFF STORE TO APLIST ITEM, ELSE 0                 BRIDGE   2997
                                                                                                                 BRIDGE   2998
          2673  0400402673 +             ECA      SUBR                                                           BRIDGE   2999
          2674  5150003104 +                      SA5    ATF                                                     BRIDGE   3000
                          7140000006              SX4    M.CHAR                                                  BRIDGE   3001
          2675  5110004120 +                      CLAS=  X1,AT,MODE                                              BRIDGE   3002
                          20462                   LX4    AT.MODEP                                                BRIDGE   3003
                               43001              MX0    1                                                       BRIDGE   3004
          2676  15551                             BX5    -X1*X5                                                  BRIDGE   3005
                     20055                        LX0    1+AT.CRP                                                BRIDGE   3006
                          12454                   BX4    X5+X4                                                   BRIDGE   3007
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    79
        SPECIAL PROCESSING ROUTINES (*CALL*)                          ECA 
  
                               12704              BX7    X0+X4                                                   BRIDGE   3008
          2677  20015                             LX0    AT.CHARP-AT.CRP                                         BRIDGE   3009
                     12770                        BX7    X7+X0                                                   BRIDGE   3010
                          54750                   SA7    A5          MARK ATF AS CHAR, CLASS REF, AND TYPE=CHAR  BRIDGE   3011
          2700  0100002145 +                      RJ     AIT         ADD TO APLIST                               BRIDGE   3012
          2701  5110003104 +                      SA1    ATF                                                     BRIDGE   3013
                                                  HX1    AT.LEN                                                  BRIDGE   3014
                          0331002673 +            MI     X1,EXIT.    IF PROCESSING ITEM LENGTH                   BRIDGE   3015
          2702  5120003115 +                      SA2    CAPL                                                    BRIDGE   3016
                          76110                   =X1    1                                                       BRIDGE   3017
                               20124              LX1    TP.BIASP                                                BRIDGE   3018
          2703  36712                             IX7    X1+X2                                                   BRIDGE   3019
                     54720                        SA7    A2          BUMP APLIST POSITION COUNTER                BRIDGE   3020
                          0400002673 +            EQ     EXIT.                                                   BRIDGE   3021
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    80
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PCAF
  
                                        **        PCAF - ENTER FP CHAR ITEM APLIST.                              BRIDGE   3023
                                                                                                                 BRIDGE   3024
          2704  0400402704 +             PCAF     SUBR                                                           BRIDGE   3025
          2705  43054                             MX0    -TP.ORDL                                                BRIDGE   3026
                     20120                        LX1    -TP.ORDP                                                BRIDGE   3027
                          15310                   BX3    -X0*X1                                                  BRIDGE   3028
                               20130              LX1    TP.ORDP-TP.BIASP                                        BRIDGE   3029
          2706  43044                             MX0    -TP.BIASL                                               BRIDGE   3030
                     15210                        BX2    -X0*X1                                                  BRIDGE   3031
                          66700                   =B7    0           NOT STORE TO APLIST                         BRIDGE   3032
          2707  0100002673 +                      RJ     ECA         ENTER APLIST ITEM                           BRIDGE   3033
          2710  0400002704 +                      EQ     EXIT.                                                   BRIDGE   3034
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    81
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IAP 
  
                                        **        IAP - INTRINSIC FUNCTION APLIST PROCESSOR.                     BRIDGE   3036
                                        *         LOAD OPERAND INTO APPROPRIATE HARD REGISTER.                   BRIDGE   3037
                                                                                                                 BRIDGE   3038
          2711                           P=IAP    BSSENT 0                                                       BRIDGE   3039
          2711  56451                    IAP1     =A4    B5+OR.1OP                                               BRIDGE   3040
                     5110003050 +                 SA1    LOWER                                                   BRIDGE   3041
                               63610              SB6    X1                                                      BRIDGE   3042
          2712  0100000454 +                      RJ     LOP         LOAD OPERAND                                BRIDGE   3043
          2713  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   3044
                          20640                   LX6    R1.RJP                                                  BRIDGE   3045
                               43700              MX7    0                                                       BRIDGE   3046
                                                  LX1    R1.RIP                                                  BRIDGE   3047
          2714  6170000010                        SB7    OC.XMT                                                  BRIDGE   3048
                          12561                   BX5    X6+X1                                                   BRIDGE   3049
          2715  0100000546 +                      RJ     IRI         XMT(RNEXT,OPERAND)                          BRIDGE   3050
          2716  43054                             MX0    -R1.RIL                                                 BRIDGE   3051
                     15660                        BX6    -X0*X6                                                  BRIDGE   3052
                          6170000004              SB7    OC.RS                                                   BRIDGE   3053
          2717  5120002731 +                      SA2    ARGREG                                                  BRIDGE   3054
                          5110003050 +            SA1    LOWER                                                   BRIDGE   3055
          2720  36421                             IX4    X2+X1                                                   BRIDGE   3056
                     20420                        LX4    R1.SOP                                                  BRIDGE   3057
                          43700                   MX7    0                                                       BRIDGE   3058
                                                  LX6    R1.RIP                                                  BRIDGE   3059
                               12546              BX5    X4+X6                                                   BRIDGE   3060
          2721  0100000546 +                      RJ     IRI         ISSUE REGISTER STORE X1,2,3 OR 4            BRIDGE   3061
                                                                                                                 BRIDGE   3062
          2722  56250                             SA2    B5                                                      BRIDGE   3063
                     5110003050 +                 SA1    LOWER                                                   BRIDGE   3064
                               43070              MX0    -TH.MODEL                                               BRIDGE   3065
          2723  0311002726 +                      NZ     X1,IAP2     IF PROCESSING LOWER                         BRIDGE   3066
                          76710                   =X7    1                                                       BRIDGE   3067
                               20252              LX2    -TH.MODEP                                               BRIDGE   3068
          2724  54710                             SA7    A1          LOWER = 1                                   BRIDGE   3069
                     15020                        BX0    -X0*X2                                                  BRIDGE   3070
                          6270777773              SB7    X0-M.DBL                                                BRIDGE   3071
          2725  0470002711 +                      ZR     B7,IAP1     IF DOUBLE                                   BRIDGE   3072
                          0471002711 +            EQ     B7,B1,IAP1  IF COMPLEX                                  BRIDGE   3073
                                                                                                                 BRIDGE   3074
          2726  5110002731 +             IAP2     SA1    ARGREG                                                  BRIDGE   3075
                          43600                   MX6    0                                                       BRIDGE   3076
          2727  5160003050 +                      SA6    LOWER       LOWER = 0                                   BRIDGE   3077
                          7271000002              SX7    X1+2                                                    BRIDGE   3078
          2730  54710                             SA7    A1          ARGREG = ARGREG + 2                         BRIDGE   3079
                     0400000120 +                 EQ     PRE.RET                                                 BRIDGE   3080
                                                                                                                 BRIDGE   3081
          2731  00000000000000000021     ARGREG   CON    X1.                                                     BRIDGE   3082
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    82
        SPECIAL PROCESSING ROUTINES (*CALL*)                          SUB 
  
                                        **        SUB - USER FUNCTION/SUBROUTINE PROCESSOR.                      BRIDGE   3084
                                                                                                                 BRIDGE   3085
          2732                           P=LIBF   BSSENT 0                                                       BRIDGE   3086
          2732  7170000001                        SX7    1                                                       BRIDGE   3087
                          5170003002 +            SA7    FUNA        LIBRARY CALL-BY-REF FUNCTIONS               BRIDGE   3088
          2733                           P=FUN    BSSENT 0                                                       BRIDGE   3089
          2733  56150                             =A1    B5+OR.OPR                                               BRIDGE   3090
                     43070                        MX0    -TH.MODEL                                               BRIDGE   3091
                          20152                   LX1    -TH.MODEP                                               BRIDGE   3092
                               15610              BX6    -X0*X1                                                  BRIDGE   3093
          2734  7206777771                        SX0    X6-M.CHAR                                               BRIDGE   3094
                          0310002740 +            NZ     X0,FUN10    IF MODE[TURP(1)] NE CHAR                    BRIDGE   3095
          2735  5110002361 +                      SA1    ETTA                                                    BRIDGE   3096
                          5120000132 +            SA2    INDEX                                                   BRIDGE   3097
          2736  10611                             BX6    X1                                                      BRIDGE   3098
                     5130000000 X                 SA3    O$TST                                                   BRIDGE   3099
                               36423              IX4    X2+X3                                                   BRIDGE   3100
          2737  53640                             SA6    X4          TST(INDEX) = ETTA                           BRIDGE   3101
                     0400002743 +                 EQ     P=SUB       TO AVOID DFR CALL                           BRIDGE   3102
                                                                                                                 BRIDGE   3103
          2740  43701                    FUN10    MX7    1                                                       BRIDGE   3104
                     5170002777 +                 SA7    PFUN                                                    BRIDGE   3105
                               43600              MX6    0                                                       BRIDGE   3106
          2741  0400002744 +                      EQ     SUBFUN                                                  BRIDGE   3107
                                                                                                                 BRIDGE   3108
          2742                           P=LIB    BSSENT 0           STOP AND PAUSE                              BRIDGE   3109
          2742  7170777776                        SX7    -1                                                      FC50067     5
                          5170003002 +            SA7    FUNA        FLAG LIBRARY ROUTINE                        BRIDGE   3111
                                                                                                                 BRIDGE   3112
          2743                           P=SUB    BSSENT 0                                                       BRIDGE   3113
          2743  43700                             MX7    0                                                       BRIDGE   3114
                     5170002777 +                 SA7    PFUN                                                    BRIDGE   3115
                               43600              MX6    0                                                       BRIDGE   3116
                                                                                                                 BRIDGE   3117
          2744  5110000000 X             SUBFUN   SA1    L$SAP                                                   BRIDGE   3118
                          5120003112 +            SA2    PSAP                                                    BRIDGE   3119
          2745  37212                             IX2    X1-X2                                                   BRIDGE   3120
                     5110000000 X                 SA1    =XCO.ARGF                                               BRIDGE   3121
          2746  5160003103 +                      SA6    CPLF                                                    BRIDGE   3122
                          5160003104 +            SA6    ATF         FLAG NON-IO ROUTINE                         BRIDGE   3123
          2747  0302002771 +                      ZR     X2,SUB3     IF NARGS[TURP(3)] EQ 0                      BRIDGE   3124
                          0311002753 +            NZ     X1,SUB6     IF NO TERMINATOR REQUESTED                  BRIDGE   3125
                                                                                                                 BRIDGE   3126
          2750  5110003002 +             SUB5     SA1    FUNA                                                    BRIDGE   3127
                          0311002753 +            NZ     X1,SUB6     IF NOT USER ROUTINE                         BRIDGE   3128
          2751  76100                             ADDWRD SAP,B0                                                  BRIDGE   3129
                                                                                                                 BRIDGE   3130
          2753  0100003055 +             SUB6     RJ     CPL         PROCESS PARAMETER LIST                      BRIDGE   3131
                                                                                                                 BRIDGE   3132
          2754  5110003002 +             SUB1     SA1    FUNA                                                    BRIDGE   3133
                          6170000073              SB7    OC.RJ6                                                  BRIDGE   3134
          2755  0321002756 +                      PL     X1,SUB15    IF NOT CALL BY VALUE                        FC50067     6
                          6170000072              SB7    OC.RJ3                                                  BRIDGE   3136
                                                                                                                 BRIDGE   3137
          2756  5120000140 +             SUB15    SA2    CSN                                                     BRIDGE   3138
                          76711                   =X7    2           INDICATE BEF                                FC50586     6
          2757  0331002760 +                      MI     X1,SUB20    IF BEF                                      FC50586     7
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    83
        SPECIAL PROCESSING ROUTINES (*CALL*)                          SUB 
  
                          76710                   =X7    1           INDICATE USER FUNCTION [STYLE]              FC50586     8
                                                                                                                 FC50586     9
          2760  43054                    SUB20    MX0    -TP.ORDL                                                FC50586    10
                     56151                        SA1    B5+B1                                                   BRIDGE   3141
                          20120                   LX1    -TP.ORDP                                                BRIDGE   3142
                               15310              BX3    -X0*X1                                                  BRIDGE   3143
          2761  20236                             LX2    R1.CAP                                                  BRIDGE   3144
                                                  LX3    R1.IHP                                                  BRIDGE   3145
                     12523                        BX5    X2+X3                                                   BRIDGE   3146
                          20766                   LX7    FI.FTP                                                  BRIDGE   3147
          2762  5110003103 +                      SA1    CPLF                                                    BRIDGE   3148
                          12771                   BX7    X7+X1                                                   BRIDGE   3149
          2763  0100000546 +                      RJ     IRI         ISSUE RJ                                    BRIDGE   3150
          2764  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   3151
                          10611                   BX6    X1                                                      BRIDGE   3152
          2765  5160003003 +                      SA6    LXR                                                     BRIDGE   3153
                          5110002777 +            SA1    PFUN                                                    BRIDGE   3154
          2766  0301002767 +                      ZR     X1,SUB2     IF NOT FUNCTION                             BRIDGE   3155
                          0100003043 +            RJ     DFR         DEFINE FUNCTION RESULT                      BRIDGE   3156
                                                                                                                 BRIDGE   3157
          2767                           SUB2     BSS    0                                                       BRIDGE   3158
          2767  43600                             MX6    0                                                       BRIDGE   3159
                     5160003120 +                 SA6    FAF         FLAG NEXT APLIST AS FIRST OF LIST           BRIDGE   3160
          2770  5160003002 +                      SA6    FUNA        RESET TO USER FUNCTION                      BRIDGE   3161
                          0400000120 +            EQ     PRE.RET                                                 BRIDGE   3162
                                                                                                                 BRIDGE   3163
          2771  5140003002 +             SUB3     SA4    FUNA                                                    BRIDGE   3164
                          12114                   BX1    X1+X4                                                   BRIDGE   3165
          2772  0311002754 +                      NZ     X1,SUB1     IF NO TERMINATOR NEEDED                     BRIDGE   3166
                                                                                                                 BRIDGE   3167
                                        *         ALLOCATE PARAMETER LIST.                                       BRIDGE   3168
                                                                                                                 BRIDGE   3169
                          7170000002              SX7    K=AP                                                    BRIDGE   3170
          2773  20716                             LX7    TP.CPFXP                                                BRIDGE   3171
                     5140000000 X                 SA4    L$APT                                                   BRIDGE   3172
                               20454              LX4    TP.ORDP                                                 BRIDGE   3173
          2774  12747                             BX7    X4+X7                                                   BRIDGE   3174
                     5170003115 +                 SA7    CAPL                                                    BRIDGE   3175
                               43101              MX1    1                                                       BRIDGE   3176
          2775  5100000000 X                      ADDWRD APT,X1                                                  BRIDGE   3177
          2776  0400002750 +                      EQ     SUB5                                                    BRIDGE   3178
                                                                                                                 BRIDGE   3179
          2777                     1     PFUN     BSSZ   1           FUNCTION/SUBROUTINE FLAG                    BRIDGE   3180
          3000                     1     PAPL     BSSZ   1           LENGTH OF APL BEFORE THIS LIST              BRIDGE   3181
          3001                     1     PIOA     BSSZ   1           LEN OF IOA BEF. THIS (MUST FOLLOW PAPL)     BRIDGE   3182
          3002                     1     FUNA     BSSZ   1           USER/BEF FLAG                               BRIDGE   3183
          3003                     1     LXR      BSSZ   1           LAST ENCOUNTERED EXTERNAL REF.              BRIDGE   3184
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    84
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IOF 
  
                                        **        P=IOF - I/O FUNCTION PROCESSOR.                                BRIDGE   3186
                                                                                                                 BRIDGE   3187
          3004                           P=IOF    BSSENT 0                                                       BRIDGE   3188
                                                                                                                 BRIDGE   3189
                                        *         ADD I/O APLIST TERMINATOR.                                     BRIDGE   3190
                                                                                                                 BRIDGE   3191
          3004  5110003120 +                      SA1    FAF                                                     BRIDGE   3192
                          0311003011 +            NZ     X1,IOF10    IF PARAMETERS ALREADY PROCESSED             BRIDGE   3193
          3005  7170000003                        SX7    K=IO                                                    BRIDGE   3194
                          20716                   LX7    TP.CPFXP                                                BRIDGE   3195
          3006  5140000000 X                      SA4    =XL$IOT                                                 BRIDGE   3196
                          20454                   LX4    TP.ORDP                                                 BRIDGE   3197
                               12747              BX7    X4+X7                                                   BRIDGE   3198
          3007  5170003115 +                      SA7    CAPL                                                    BRIDGE   3199
                          43101                   MX1    1                                                       BRIDGE   3200
          3010  5100000000 X                      ADDWRD IOT,X1                                                  BRIDGE   3201
                                                                                                                 BRIDGE   3202
          3011  76111                    IOF10    ALLOC  SAP,2                                                   BRIDGE   3203
          3013  5115000002                        SA1    B5+OR.2OP                                               BRIDGE   3204
                          20147                   LX1    59-TP.BIASP                                             BRIDGE   3205
                               21173              AX1    59                                                      BRIDGE   3206
          3014  43700                             MX7    0                                                       BRIDGE   3207
                     10611                        BX6    X1                                                      BRIDGE   3208
                          53626                   SA6    X2+B6                                                   BRIDGE   3209
                               54761              SA7    A6+B1                                                   BRIDGE   3210
          3015  76710                             =X7    1                                                       BRIDGE   3211
                     5170003104 +                 SA7    ATF         FLAG IO ROUTINE                             BRIDGE   3212
          3016  0100003055 +                      RJ     CPL                                                     BRIDGE   3213
          3017  6170000073                        SB7    OC.RJ6                                                  BRIDGE   3214
                          5120000140 +            SA2    CSN                                                     BRIDGE   3215
          3020  5140000000 X                      SA4    =XS=BUFIN                                               BRIDGE   3216
                          43054                   MX0    -TP.ORDL                                                BRIDGE   3217
                               56151              SA1    B5+B1                                                   BRIDGE   3218
          3021  20120                             LX1    -TP.ORDP                                                BRIDGE   3219
                     15310                        BX3    -X0*X1                                                  BRIDGE   3220
                          7170000003              SX7    3                                                       BRIDGE   3221
          3022  13443                             BX4    X4-X3                                                   BRIDGE   3222
                     0314003023 +                 NZ     X4,IOF20    IF NOT PROCESSING BUFFER IN                 BRIDGE   3223
                               76710              =X7    1           FAKE USER FUNCTION CALL TO KILL COMMON      BRIDGE   3224
                                                                                                                 BRIDGE   3225
          3023  20236                    IOF20    LX2    R1.CAP                                                  BRIDGE   3226
                                                  LX3    R1.IHP                                                  BRIDGE   3227
                     12523                        BX5    X2+X3                                                   BRIDGE   3228
                          20766                   LX7    FI.FTP      FI[R2] = 3                                  BRIDGE   3229
          3024  5110003103 +                      SA1    CPLF                                                    BRIDGE   3230
                          12771                   BX7    X7+X1                                                   BRIDGE   3231
          3025  0100000546 +                      RJ     IRI         ISSUE RJ                                    BRIDGE   3232
                                                                                                                 BRIDGE   3233
          3026  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   3234
                          10611                   BX6    X1                                                      BRIDGE   3235
          3027  5160003003 +                      SA6    LXR                                                     BRIDGE   3236
                          43600                   MX6    0                                                       BRIDGE   3237
          3030  5160003120 +                      SA6    FAF                                                     BRIDGE   3238
                          0400000120 +            EQ     PRE.RET                                                 BRIDGE   3239
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    85
        SPECIAL PROCESSING ROUTINES (*CALL*)                          INF 
  
                                        **        P=INF - PROCESS INTRINSIC (EXTERNAL) TURPLE.                   BRIDGE   3241
                                                                                                                 BRIDGE   3242
          3031                           P=INF    BSSENT 0                                                       BRIDGE   3243
          3031  6170000072                        SB7    OC.RJ3                                                  BRIDGE   3244
                          43054                   MX0    -TP.ORDL                                                BRIDGE   3245
                               56151              SA1    B5+B1                                                   BRIDGE   3246
          3032  20120                             LX1    -TP.ORDP                                                BRIDGE   3247
                     15510                        BX5    -X0*X1                                                  BRIDGE   3248
                                                  LX5    R1.IHP                                                  BRIDGE   3249
                          5120000000 X            SA2    O$SYM                                                   BRIDGE   3250
          3033  22015                             LX0    B1,X5                                                   BRIDGE   3251
                     36705                        IX7    X0+X5                                                   BRIDGE   3252
                          36027                   IX0    X2+X7                                                   BRIDGE   3253
          3034  5220000002                        SA2    X0+WC.W                                                 BRIDGE   3254
                          43064                   MX0    -WC.BRPL                                                BRIDGE   3255
                                                  LX2    -WC.BRPP                                                BRIDGE   3256
                               15020              BX0    -X0*X2                                                  BRIDGE   3257
          3035  20036                             LX0    FI.REGPP                                                BRIDGE   3258
                     76711                        =X7    2                                                       BRIDGE   3259
                          20766                   LX7    FI.FTP      FI[R2] = 2                                  BRIDGE   3260
                               12707              BX7    X0+X7       REGP[R2] = BRP[WC(ORD[OP1])]                BRIDGE   3261
          3036  0100000546 +                      RJ     IRI         ISSUE RJ                                    BRIDGE   3262
          3037  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   3263
                          10611                   BX6    X1                                                      BRIDGE   3264
          3040  5160003003 +                      SA6    LXR                                                     BRIDGE   3265
                          0100003043 +            RJ     DFR         DEFINE FUNCTION RESULT                      BRIDGE   3266
                                                                                                                 BRIDGE   3267
          3041  7160000021                        SX6    X1.                                                     BRIDGE   3268
                          5160002731 +            SA6    ARGREG      ARGREG = X1. FOR NEXT INF                   BRIDGE   3269
          3042  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   3270
                                                                                                                 BRIDGE   3271
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    86
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DFR 
  
                                        **        DFR - DEFINE FUNCTION RESULT.                                  BRIDGE   3273
                                        *                                                                        BRIDGE   3274
                                        *         ISSUE DEF X6 AND DEF X7 IF DOUBLE.  STORE RESULT(S) IN         BRIDGE   3275
                                        *         STATEMENT TEMPORARIES AND FILE TEMP ORDINALS IN TST.           BRIDGE   3276
                                                                                                                 BRIDGE   3277
          3043                           P=FRRET  BSSENT 0           RETURN FROM SKELETON                        BRIDGE   3278
          3043  0400403043 +             DFR      SUBR                                                           BRIDGE   3279
          3044  7160000000 X                      SX6    =XV=DFRS                                                BRIDGE   3280
                          56250                   SA2    B5                                                      BRIDGE   3281
                               43070              MX0    -TH.MODEL                                               BRIDGE   3282
          3045  20252                             LX2    -TH.MODEP                                               BRIDGE   3283
                     15020                        BX0    -X0*X2                                                  BRIDGE   3284
                          6220777773              SB2    X0-M.DBL                                                BRIDGE   3285
          3046  0420003047 +                      ZR     B2,DFR3     IF MODE(TURP(1)) .EQ. M.DBL                 BRIDGE   3286
                          0521000072 +            NE     B2,B1,SUB.RET     IF MODE(TURP(1)) .NE. M.CPLX          BRIDGE   3287
                                                                                                                 BRIDGE   3288
          3047  73661                    DFR3     =X6    X6+1        SELECT V=DFRD                               BRIDGE   3289
                     0400000072 +                 EQ     SUB.RET                                                 BRIDGE   3290
                                                                                                                 BRIDGE   3291
          3050                     1     LOWER    BSSZ   1           FLAG FOR PROCESSING UPPER (0) / LOWER (1)   BRIDGE   3292
  
  
  
  
                                        **        LRJ - INSERT LINE NUMBER INTO PREVIOUS RJ6.                    BRIDGE   3294
                                                                                                                 BRIDGE   3295
          3051                           P=LRJ    BSSENT 0                                                       BRIDGE   3296
          3051  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   3297
                          5120000000 X            SA2    O$TXT                                                   BRIDGE   3298
          3052  5140000140 +                      SA4    CSN                                                     BRIDGE   3299
                          6221777773              SB2    X1-4                                                    BRIDGE   3300
          3053  53322                             SA3    X2+B2                                                   BRIDGE   3301
                     20436                        LX4    R1.CAP                                                  BRIDGE   3302
                          12734                   BX7    X3+X4                                                   BRIDGE   3303
                               54730              SA7    A3          CA[R2] = CSN                                BRIDGE   3304
          3054  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   3305
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    87
        SPECIAL PROCESSING ROUTINES (*CALL*)                          CPL 
  
                                        **        CPL - CHAIN PARAMETER LIST TO UDT AND PROCESS APLIST.          BRIDGE   3307
                                                                                                                 BRIDGE   3308
          3055  0400403055 +             CPL      SUBR                                                           BRIDGE   3309
          3056  43001                             MX0    1                                                       BRIDGE   3310
                                                  LX0    1+IH.LDP                                                BRIDGE   3311
                     5150000130 +                 SA5    LL.TXT                                                  BRIDGE   3312
          3057  5120003115 +                      SA2    CAPL                                                    BRIDGE   3313
                          43354                   MX3    -TP.ORDL                                                BRIDGE   3314
                               20220              LX2    -TP.ORDP                                                BRIDGE   3315
          3060  15223                             BX2    -X3*X2                                                  BRIDGE   3316
                     5130003104 +                 SA3    ATF                                                     BRIDGE   3317
          3061  7233000002                        SX3    X3+K=AP                                                 BRIDGE   3318
                          20317                   LX3    IH.IP                                                   BRIDGE   3319
                               12723              BX7    X2+X3                                                   BRIDGE   3320
                                                  LX5    R1.RIP                                                  BRIDGE   3321
          3062  6170000050                        SB7    OC.LD                                                   BRIDGE   3322
                                                  LX7    IH.IHP                                                  BRIDGE   3323
                          12770                   BX7    X7+X0                                                   BRIDGE   3324
          3063  0100000546 +                      RJ     IRI         ISSUE LOAD APLIST                           BRIDGE   3325
          3064  6170000004                        SB7    OC.RS                                                   BRIDGE   3326
                          7100000021              SX0    X1.                                                     BRIDGE   3327
          3065  20020                             LX0    R1.SOP                                                  BRIDGE   3328
                     12505                        BX5    X0+X5                                                   BRIDGE   3329
                          43700                   MX7    0                                                       BRIDGE   3330
          3066  5170003103 +                      SA7    CPLF                                                    BRIDGE   3331
                          0100000546 +            RJ     IRI         ISSUE RS X1                                 BRIDGE   3332
          3067  76140                             SX1    B4                                                      BRIDGE   3333
                     76050                        SX0    B5                                                      BRIDGE   3334
                          20122                   LX1    18                                                      BRIDGE   3335
                               12710              BX7    X1+X0                                                   BRIDGE   3336
          3070  5170003102 +                      SA7    CPLA                                                    BRIDGE   3337
                                                                                                                 BRIDGE   3338
                                        *         PROCESS APLIST.  ATTEMPT TO SQUEEZE AGAINST EARLIER LIST.      BRIDGE   3339
                                                                                                                 BRIDGE   3340
                          0100003127 +            RJ     PPL                                                     BRIDGE   3341
          3071  5120000137 +                      SA2    OPT2                                                    BRIDGE   3342
                          0302003100 +            ZR     X2,CPL10    IF OPT NE 2                                 BRIDGE   3343
                                                                                                                 BRIDGE   3344
                                        *         SUBMIT APLIST INFO TO GLOBAL OPTIMIZER.                        BRIDGE   3345
                                                                                                                 BRIDGE   3346
          3072  5140000000 X                      SA4    L$AUD                                                   BRIDGE   3347
                          5150003107 +            SA5    PAUD                                                    BRIDGE   3348
          3073  37445                             IX4    X4-X5       INDEX = PAUD                                BRIDGE   3349
                     63240                        SB2    X4          LEN = L$AUD-PAUD                            BRIDGE   3350
                          0420003100 +            ZR     B2,CPL10    IF LEN  = 0                                 BRIDGE   3351
          3074  7160000000 X                      SX6    O$AUD                                                   BRIDGE   3352
                          0100000000 X            CALL   CG$CPL                                                  BRIDGE   3353
          3075  20114                             LX1    FI.INDXP                                                BRIDGE   3354
                     7200002000                   SX0    X0+1S10                                                 BRIDGE   3355
                                                  LX0    FI.LENP                                                 BRIDGE   3356
                               12601              BX6    X0+X1                                                   BRIDGE   3357
          3076  5160003103 +                      SA6    CPLF                                                    BRIDGE   3358
                          5110003107 +            SA1    PAUD                                                    BRIDGE   3359
          3077  10711                             BX7    X1                                                      BRIDGE   3360
                     5170000000 X                 SA7    L$AUD                                                   BRIDGE   3361
                                                                                                                 BRIDGE   3362
          3100  5120003102 +             CPL10    SA2    CPLA                                                    BRIDGE   3363
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    88
        SPECIAL PROCESSING ROUTINES (*CALL*)                          CPL 
  
                          63520                   SB5    X2                                                      BRIDGE   3364
                               21222              AX2    18                                                      BRIDGE   3365
          3101  63420                             SB4    X2                                                      BRIDGE   3366
                     0400003055 +                 EQ     EXIT.                                                   BRIDGE   3367
                                                                                                                 BRIDGE   3368
          3102                     1     CPLA     BSS    1                                                       BRIDGE   3369
          3103                     1     CPLF     BSS    1                                                       BRIDGE   3370
          3104                     3     ATF      BSSZ   3                                                       BRIDGE   3371
          3107                     3     PAUD     BSSZ   3                                                       BRIDGE   3372
          3112                     3     PSAP     BSSZ   3                                                       BRIDGE   3373
          3115                     3     CAPL     BSSZ   3                                                       BRIDGE   3374
          3120                     1     FAF      BSSZ   1                                                       BRIDGE   3375
  
  
  
  
                                        **        PPL - PROCESS PARAMETER LIST                                   BRIDGE   3377
                                        *                SETUP *API* TABLE ENTRY DESCRIBING THE PARAM LIST.      BRIDGE   3378
                                        *                THEN TRY TO REDUCE THE LIST IF IT IS COMMON WITH THE    BRIDGE   3379
                                        *                TAIL END OF ANOTHER APLIST.                             BRIDGE   3380
                                        *                                                                        BRIDGE   3381
                                        *                (X6) = FLAG, 0 IF USER FUNCTION, 1 IF IO                BRIDGE   3382
                                                                                                                 BRIDGE   3383
                                        **        AI. - APLIST INDEX TABLE ENTRY FORMAT                          BRIDGE   3384
                                                  DESCRIBE AI.,60                                                BRIDGE   3385
      L     73  40000000000000000000     EQV      DEFINE 1                                                       BRIDGE   3386
      L     72  20000000000000000000     BASE     DEFINE 1           BASE MEMBER OF A CLASS OF EQUIV APLISTS     BRIDGE   3387
                                                  DEFINE 4                                                       BRIDGE   3388
      L     44  00777777000000000000     LINK     DEFINE 18                                                      BRIDGE   3389
      L     22  00000000777777000000     LEN      DEFINE 18                                                      BRIDGE   3390
      L      0  00000000000000777777     INDX     DEFINE 18                                                      BRIDGE   3391
                                                                                                                 BRIDGE   3392
      L     22  00000000777777000000     BIAS     DEQU   LEN                                                     BRIDGE   3393
      L      0  00000000000000777777     ORD      DEQU   INDX                                                    BRIDGE   3394
                                                                                                                 BRIDGE   3395
          3121  7174000000               PPL0     SX7    B4+         PAP = L.TAB                                 BRIDGE   3396
                                                                                                                 BRIDGE   3397
                          5120003104 +            SA2    ATF                                                     BRIDGE   3398
          3122  5272003000 +                      SA7    PAPL+X2     P_TAB = PAP                                 BRIDGE   3399
                                                                                                                 BRIDGE   3400
          3123  5110003104 +             PPLE     SA1    ATF                                                     BRIDGE   3401
                          5221000000 X            SA2    O$APT+X1                                                BRIDGE   3402
          3124  5231000000 X                      SA3    L$APT+X1                                                BRIDGE   3403
                          5140003212 +            SA4    PPLA                                                    BRIDGE   3404
          3125  7263777776                        SX6    X3-1        L$TAB = L$TAB-1                             BRIDGE   3405
                          36026                   IX0    X2+X6                                                   BRIDGE   3406
                               36424              IX4    X2+X4                                                   BRIDGE   3407
          3126  53100                             SA1    X0                                                      BRIDGE   3408
                     10711                        BX7    X1                                                      BRIDGE   3409
                          53740                   SA7    X4          TAB(ORD[CAPL]) = TAB(L$TAB+1)               BRIDGE   3410
                               54630              SA6    A3                                                      BRIDGE   3411
                                                                                                                 BRIDGE   3412
          3127  0400403127 +             PPL      SUBR                                                           BRIDGE   3413
          3130  5140003115 +                      SA4    CAPL                                                    BRIDGE   3414
                          43054                   MX0    -TP.ORDL                                                BRIDGE   3415
                               20420              LX4    -TP.ORDP                                                BRIDGE   3416
          3131  15640                             BX6    -X0*X4                                                  BRIDGE   3417
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    89
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PPL 
  
                     5160003212 +                 SA6    PPLA        ORDL = ORD[CAPL]                            BRIDGE   3418
          3132  5120003104 +                      SA2    ATF                                                     BRIDGE   3419
                          43101                   MX1    1                                                       BRIDGE   3420
                               10022              BX0    X2                                                      BRIDGE   3421
          3133  5200000000 X                      ADDWRD APT+X0,X1   SET APT(L$APT) TO *EQV*                     BRIDGE   3422
          3134  5140000000 X                      SA4    L$SAP                                                   BRIDGE   3423
                          5150003112 +            SA5    PSAP                                                    BRIDGE   3424
          3135  37145                             IX1    X4-X5                                                   BRIDGE   3425
                     5200000000 X                 ALLOC  APL+X0,X1                                               BRIDGE   3426
          3137  5140000000 X                      SA4    O$SAP                                                   BRIDGE   3427
                          73326                   SX3    X2+B6                                                   BRIDGE   3428
                               36245              IX2    X4+X5                                                   BRIDGE   3429
          3140  0100000000 X                      MOVE   X1,X2,X3                                                BRIDGE   3430
          3141  10655                             BX6    X5                                                      BRIDGE   3431
                     5160000000 X                 SA6    L$SAP                                                   BRIDGE   3432
          3142  5240000000 X                      SA4    L$APT+X0                                                BRIDGE   3433
                          6274777776              SB7    X4-1                                                    BRIDGE   3434
          3143  5210000000 X                      SA1    =XO$APT+X0                                              BRIDGE   3435
                          5220003000 +            SA2    PAPL+X0                                                 BRIDGE   3436
          3144  5230000000 X                      SA3    =XL$APL+X0                                              BRIDGE   3437
                          53010                   SA0    X1                                                      BRIDGE   3438
                               37732              IX7    X3-X2                                                   BRIDGE   3439
          3145  63570                             SB5    X7          LN = LEN[N]   */ LENGTH OF THIS LIST        BRIDGE   3440
                     20722                        LX7    AI.LENP                                                 BRIDGE   3441
                          63430                   SB4    X3          IN = INDX[N]  */ INDEX TO LWA+1             BRIDGE   3442
                                                  LX3    AI.INDXP                                                BRIDGE   3443
                               12673              BX6    X7+X3                                                   BRIDGE   3444
          3146  54607                             SA6    A0+B7       API(N) = AINFO(0,0,L.APL-PAPL,L.APL)        BRIDGE   3445
                                                                                                                 BRIDGE   3446
                                        *         NOW SEARCH THE ACCUMULATED APLISTS AND ATTEMPT TO ELIMINATE    BRIDGE   3447
                                        *         ANY COMMON APLISTS                                             BRIDGE   3448
                                                                                                                 BRIDGE   3449
                     5240000000 X                 SA4    =XO$APL+X0                                              BRIDGE   3450
          3147  5254777776                        SA5    X4-1        BASE = O.APL - 1                            BRIDGE   3451
                          66670                   SB6    B7          J = N                                       BRIDGE   3452
                                                                                                                 BRIDGE   3453
          3150  67661                    PPL1     SB6    B6-B1       J = J - 1                                   BRIDGE   3454
                     54106                        SA1    A0+B6       AJ = API(J)                                 BRIDGE   3455
                          0460003121 +            ZR     B6,PPL0     IF J = 0                                    BRIDGE   3456
                                                  LX1    59-AI.EQVP                                              BRIDGE   3457
          3151  0331003150 +                      MI     X1,PPL1     IF EQV[AJ]                                  BRIDGE   3458
                                                                                                                 BRIDGE   3459
                                                  LX1    1+AI.EQVP-AI.INDXP                                      BRIDGE   3460
                          63210                   SB2    X1          IJ = INDX[AJ]                               BRIDGE   3461
                               20152              LX1    AI.INDXP-AI.LENP                                        BRIDGE   3462
          3152  63310                             SB3    X1          LJ = LEN[AJ]                                BRIDGE   3463
                     73010                        SX0    X1                                                      BRIDGE   3464
                          76760                   SX7    B6                                                      BRIDGE   3465
          3153  0735003154 +                      LT     B3,B5,PPL2  (LS,EI) = IF( LJ < LN )  (LJ,J) ELSE (LN,N) BRIDGE   3466
                          76050                   SX0    B5                                                      BRIDGE   3467
                               76770              SX7    B7                                                      BRIDGE   3468
                                                                                                                 BRIDGE   3469
          3154  54254                    PPL2     SA2    A5+B4       SN = BASE + IN                              BRIDGE   3470
                     54352                        SA3    A5+B2       SI = BASE + IJ                              BRIDGE   3471
                          14400                   BX4    -X0         M = -LS                                     BRIDGE   3472
                                                                                                                 BRIDGE   3473
          3155  13523                    PPL3     BX5    X2-X3                                                   BRIDGE   3474
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    90
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PPL 
  
                     7244000001                   SX4    X4+1        M = M + 1                                   BRIDGE   3475
          3156  0315003203 +                      NZ     X5,PPL7     IF SN NE SJ                                 BRIDGE   3476
                          0335003203 +            MI     X5,PPL7     DITTO                                       BRIDGE   3477
          3157  55221                             SA2    A2-B1       SN = SN - 1                                 BRIDGE   3478
                     55331                        SA3    A3-B1       SJ = SJ - 1                                 BRIDGE   3479
                          0314003155 +            NZ     X4,PPL3     IF M " 0                                    BRIDGE   3480
                                                                                                                 BRIDGE   3481
                                        *         EQUIVALENCE THE SHORTER LIST TO THE LONGER ONE                 BRIDGE   3482
                                                                                                                 BRIDGE   3483
          3160  76567                    PPL3A    SX5    B6+B7                                                   BRIDGE   3484
                     43601                        MX6    1                                                       BRIDGE   3485
                                                  LX6    1+AI.EQVP                                               BRIDGE   3486
                          37457                   IX4    X5-X7       ORD[API(EI)] = J + N - EI                   BRIDGE   3487
                               76335              SX3    B3+B5                                                   BRIDGE   3488
                                                  LX4    AI.ORDP                                                 BRIDGE   3489
          3161  20001                             LX0    1                                                       BRIDGE   3490
                     37230                        IX2    X3-X0       BIAS[API(EI)] = MAX(LJ,LN) - LS             BRIDGE   3491
                          20222                   LX2    AI.BIASP                                                BRIDGE   3492
                               36424              IX4    X2+X4                                                   BRIDGE   3493
          3162  12646                             BX6    X4+X6                                                   BRIDGE   3494
                     63670                        SB6    X7                                                      BRIDGE   3495
                          54606                   SA6    A0+B6                                                   BRIDGE   3496
                               77745              SX7    B4-B5                     (X7) = PAPL                   BRIDGE   3497
                                                  LX4    -AI.ORDP    K = ORD[API(EI)]  */ ORD OF BASE OF CLASS   BRIDGE   3498
          3163  63540                             SB5    X4                                                      BRIDGE   3499
                     54405                        SA4    A0+B5                                                   BRIDGE   3500
                          76610                   SX6    B1                                                      BRIDGE   3501
                               20672              LX6    AI.BASEP                                                BRIDGE   3502
          3164  12664                             BX6    X6+X4       BASE[API(K)] = 1  */ MARK AS *BASE*         BRIDGE   3503
                     54640                        SA6    A4                                                      BRIDGE   3504
                          0567003167 +            NE     B6,B7,PPL4  IF EI " N     */ ELIMINATED NOT LAST        BRIDGE   3505
          3165  5120003104 +                      SA2    ATF                                                     BRIDGE   3506
                          5272000000 X            SA7    L$APL+X2                                                BRIDGE   3507
          3166  0400003123 +                      EQ     PPLE                                                    BRIDGE   3508
                                                                                                                 BRIDGE   3509
                                        *         LOWER ONE IS SHORTER, MOVE APLISTS ABOVE IT DOWN               BRIDGE   3510
                                        *         RESET ORD OF EQUIVALENCED APLIST TO ORD OF ULTIMATE POSITION,  BRIDGE   3511
                                        *         AS FINAL APLIST INDEX WILL BE MOVED AT PPL EXIT.               BRIDGE   3512
                                                                                                                 BRIDGE   3513
          3167  54106                    PPL4     SA1    A0+B6                                                   BRIDGE   3514
                     5120003212 +                 SA2    PPLA                                                    BRIDGE   3515
                               43052              MX0    -AI.ORDL                                                BRIDGE   3516
                                                  LX1    -AI.ORDP                                                BRIDGE   3517
          3170  11301                             BX3    X0*X1                                                   BRIDGE   3518
                     12623                        BX6    X2+X3                                                   BRIDGE   3519
                          54610                   SA6    A1          ORD[API(EI)] = ORDL                         BRIDGE   3520
                               66610              SB6    B1          K = 1                                       BRIDGE   3521
          3171  76430                             SX4    B3                                                      BRIDGE   3522
                                                  LX4    AI.INDXP                                                BRIDGE   3523
                     5130003104 +                 SA3    ATF                                                     BRIDGE   3524
          3172  5213000000 X                      SA1    L$APL+X3                                                BRIDGE   3525
                                                                                                                 BRIDGE   3526
          3173  54206                    PPL5     SA2    A0+B6       AK = O.API-1 + K                            BRIDGE   3527
                     6166000001                   SB6    B6+1        K = K + 1                                   BRIDGE   3528
                                                  LX2    -AI.INDXP                                               BRIDGE   3529
                               63320              SB3    X2                                                      BRIDGE   3530
                                                  LX1    AI.INDXP-1-AI.EQVP                                      BRIDGE   3531
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    91
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PPL 
  
          3174  0332003177 +                      MI     X2,PPL6     IF EQV[AK]                                  BRIDGE   3532
                          67332                   SB3    B3-B2                                                   BRIDGE   3533
          3175  0730003177 +                      MI     B3,PPL6     IF INDX[AK] LT IJ                           BRIDGE   3534
                          37624                   IX6    X2-X4                                                   BRIDGE   3535
          3176  5062000000                        SA6    A2+         INDX[AK] = INDX[AK] - LEN[AJ]               BRIDGE   3536
          3177  0676003173 +             PPL6     LE     B6,B7,PPL5  IF K @ N                                    BRIDGE   3537
                                                                                                                 BRIDGE   3538
                                                  LX4    -AI.INDXP                                               BRIDGE   3539
                          37614                   IX6    X1-X4       L.TAB = L.TAB - LEN[AJ]                     BRIDGE   3540
                               54610              SA6    A1                                                      BRIDGE   3541
          3200  5263003000 +                      SA6    PAPL+X3     P TAB = L.TAB                               BRIDGE   3542
                          64651                   SB6    A5+B1                                                   BRIDGE   3543
                               76262              SX2    B6+B2                                                   BRIDGE   3544
          3201  37324                             IX3    X2-X4                                                   BRIDGE   3545
                     77142                        MOVE   B4-B2,X2,X3 MOVE( IN-IJ , O.APL+IJ , O.APL+IJ-LJ )      BRIDGE   3546
          3202  0400003123 +                      EQ     PPLE                                                    BRIDGE   3547
                                                                                                                 BRIDGE   3548
                                        *         TRY FOR NON-TERMINAL MATCH TO LARGER APLIST.                   BRIDGE   3549
                                                                                                                 BRIDGE   3550
          3203  0735003150 +             PPL7     LT     B3,B5,PPL1  IF LJ LT LN                                 BRIDGE   3551
                          54254                   SA2    A5+B4       SN = BASE + IN                              BRIDGE   3552
                               54352              SA3    A5+B2       SI = BASE + IJ                              BRIDGE   3553
          3204  77405                             SX4    -B5         M = -LN                                     BRIDGE   3554
                                                                                                                 BRIDGE   3555
          3205  13523                    PPL8     BX5    X2-X3                                                   BRIDGE   3556
                     7244000001                   SX4    X4+1        M = M + 1                                   BRIDGE   3557
          3206  0315003211 +                      NZ     X5,PPL9     IF NOT MATCH  */ TRY ONE UP IN LIST         BRIDGE   3558
                          0335003211 +            MI     X5,PPL9     DITTO                                       BRIDGE   3559
          3207  55221                             SA2    A2-B1       SN = SN - 1                                 BRIDGE   3560
                     55331                        SA3    A3-B1       SJ = SJ - 1                                 BRIDGE   3561
                          0314003205 +            NZ     X4,PPL8     IF M NE 0                                   BRIDGE   3562
          3210  0400003160 +                      EQ     PPL3A       MATCH SUCCESSFUL                            BRIDGE   3563
                                                                                                                 BRIDGE   3564
          3211  67331                    PPL9     SB3    B3-B1       LJ = LJ -  1                                BRIDGE   3565
                     67221                        SB2    B2-B1       IJ = IJ - 1                                 BRIDGE   3566
                          0400003203 +            EQ     PPL7                                                    BRIDGE   3567
                                                                                                                 BRIDGE   3568
          3212                     1     PPLA     BSS    1                                                       BRIDGE   3569
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    92
        SPECIAL PROCESSING ROUTINES (*CALL*)                          SCA 
  
                                        **        SCA - STORE CHARACTER APLIST.                                  BRIDGE   3571
                                        *         ISSUES STORE OF X6 FROM SUPPORT ROUTINE TO LOWER               BRIDGE   3572
                                        *         LEVEL APLIST WORD.                                             BRIDGE   3573
                                                                                                                 BRIDGE   3574
          3213                           P=SCRET  BSSENT 0                                                       BRIDGE   3575
                                                                                                                 BRIDGE   3576
          3213  0400403213 +             SCA      SUBR                                                           BRIDGE   3577
          3214  5110003115 +                      SA1    CAPL                                                    BRIDGE   3578
                          5120003104 +            SA2    ATF                                                     BRIDGE   3579
          3215  10611                             BX6    X1                                                      BRIDGE   3580
                     43073                        MX0    -1                                                      BRIDGE   3581
                          5160000030 +            SA6    GOVG        GPBUF(1) = CAPL                             BRIDGE   3582
          3216  20205                             LX2    -AT.LEV0P                                               BRIDGE   3583
                     15120                        BX1    -X0*X2                                                  BRIDGE   3584
                          20273                   LX2    AT.LEV0P-AT.NULP                                        BRIDGE   3585
                               15320              BX3    -X0*X2                                                  BRIDGE   3586
          3217  20270                             LX2    AT.NULP-AT.IOP                                          BRIDGE   3587
                     15220                        BX2    -X0*X2                                                  BRIDGE   3588
                          22411                   LX4    B1,X1                                                   BRIDGE   3589
                               15023              BX0    -X3*X2      IO IFF NOT NUL                              BRIDGE   3590
          3220  36441                             IX4    X4+X1       +3*LEV0                                     BRIDGE   3591
                     20301                        LX3    1                                                       BRIDGE   3592
                          36104                   IX1    X0+X4       + 2*NUL                                     BRIDGE   3593
                               36213              IX2    X1+X3                                                   BRIDGE   3594
          3221  5212003223 +                      SA1    SCAA+X2                                                 BRIDGE   3595
                          10611                   BX6    X1                                                      BRIDGE   3596
          3222  0400000072 +                      EQ     SUB.RET                                                 BRIDGE   3597
                                                                                                                 BRIDGE   3598
          3223                           SCAA     BSS    0                                                       BRIDGE   3599
          3223  00000000000000000000 X            CON    =XV=CAPST   NON IO                                      BRIDGE   3600
          3224  00000000000000000000 X            CON    =XV=CISST   IO SCALAR                                   BRIDGE   3601
          3225  00000000000000000000 X            CON    =XV=CIAST   IO ARRAY                                    BRIDGE   3602
          3226  00000000000000000000 X            CON    =XV=CAPST   NON IO, LEVEL 0                             BRIDGE   3603
          3227  00000000000000000000 X            CON    =XV=CIS0S   IO, SCALAR, LEVEL 0                         BRIDGE   3604
          3230  00000000000000000000 X            CON    =XV=CIA0S   IO, ARRAY, LEVEL 0                          BRIDGE   3605
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    93
        SPECIAL PROCESSING ROUTINES (*CALL*)                          CGF 
  
                                        **        CGF - ISSUE COMPILER GENERATED CHARACTER FUNCTION.             BRIDGE   3607
                                        *                                                                        BRIDGE   3608
                                        *         ENTRY  X1 = ROUTINE ORDINAL                                    BRIDGE   3609
                                                                                                                 BRIDGE   3610
          3231  0400403231 +             CGF      SUBR                                                           BRIDGE   3611
          3232  10711                             BX7    X1                                                      BRIDGE   3612
                     5170003243 +                 SA7    CGFA                                                    BRIDGE   3613
          3233  0100003055 +                      RJ     CPL         PROCESS APLIST                              BRIDGE   3614
                                                                                                                 BRIDGE   3615
                                        *         ISSUE RJ TO ROUTINE                                            BRIDGE   3616
                                                                                                                 BRIDGE   3617
          3234  6170000073                        SB7    OC.RJ6                                                  BRIDGE   3618
                          5120000140 +            SA2    CSN                                                     BRIDGE   3619
          3235  5110003243 +                      SA1    CGFA                                                    BRIDGE   3620
                          20236                   LX2    R1.CAP                                                  BRIDGE   3621
                                                  LX1    R1.IHP                                                  BRIDGE   3622
          3236  7170000004                        SX7    4           FUNCTION TYPE FOR CHAR                      BRIDGE   3623
                          12521                   BX5    X2+X1                                                   BRIDGE   3624
                               20766              LX7    FI.FTP                                                  BRIDGE   3625
          3237  5110003103 +                      SA1    CPLF                                                    BRIDGE   3626
                          12771                   BX7    X7+X1       ADD IN OPT=2 APLIST POINTER                 BRIDGE   3627
          3240  0100000546 +                      RJ     IRI                                                     BRIDGE   3628
          3241  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   3629
                          10611                   BX6    X1                                                      BRIDGE   3630
          3242  5160003003 +                      SA6    LXR         FLAG RJ ISSUED                              BRIDGE   3631
                          0400003231 +            EQ     EXIT.                                                   BRIDGE   3632
                                                                                                                 BRIDGE   3633
          3243                     1     CGFA     BSS    1                                                       BRIDGE   3634
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    94
        SPECIAL PROCESSING ROUTINES (*CALL*)                          STORE 
  
                                        **        HSTO - CHARACTER ASSIGNMENT.                                   BRIDGE   3636
                                                                                                                 BRIDGE   3637
          3244                           P=HSTO   BSSENT 0                                                       BRIDGE   3638
          3244  0100002436 +                      RJ     SAE         STACK APLIST ENVIRONMENT                    BRIDGE   3639
          3245  5115000002                        =A1    B5+OR.2OP                                               BRIDGE   3640
                          0100002364 +            RJ     PCI         ENTER TARGET INTO APLIST                    BRIDGE   3641
          3246  5115000001                        SA1    B5+OR.1OP                                               BRIDGE   3642
                          0100002274 +            RJ     PCO         PROCESS RIGHT-HAND EXPRESSION               BRIDGE   3643
          3247  76100                             ADDWRD SAP,0       APLIST TERMINATOR                           BRIDGE   3644
          3251  5110000000 X                      SA1    =XS=MMC                                                 BRIDGE   3645
                          0100003231 +            RJ     CGF         ISSUE RJ MMC.                               BRIDGE   3646
          3252  0100002455 +                      RJ     PAE         RESTORE APLIST ENVIRONMENT                  BRIDGE   3647
          3253  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   3648
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    95
        SPECIAL PROCESSING ROUTINES (*CALL*)                          HREL
  
                                        **        HREL - CHARACTER RELATIONAL PROCESSORS.                        BRIDGE   3650
                                        *         CALLED AS HREL FOR OPERATOR-TYPE RELATIONAL EXPRESSIONS,       BRIDGE   3651
                                        *         OR AS HLEX FOR LEXICAL FUNCTION-TYPE EXPRESSIONS.              BRIDGE   3652
                                                                                                                 BRIDGE   3653
          3254                           P=HLEX   BSSENT 0                                                       BRIDGE   3654
          3254  5110000000 X                      SA1    =XS=LMC                                                 BRIDGE   3655
                          10611                   BX6    X1                                                      BRIDGE   3656
          3255  5160003307 +                      SA6    PCRB                                                    BRIDGE   3657
                          0400003260 +            EQ     PCR10                                                   BRIDGE   3658
                                                                                                                 BRIDGE   3659
          3256                           P=HREL   BSSENT                                                         BRIDGE   3660
          3256  5120000000 X                      SA2    =XWO.CS                                                 BRIDGE   3661
                          5212000000 X            SA1    =XS=FMC+X2  FMC./UMC.                                   BRIDGE   3662
          3257  10611                             BX6    X1                                                      BRIDGE   3663
                     5160003307 +                 SA6    PCRB                                                    BRIDGE   3664
                                                                                                                 BRIDGE   3665
          3260  0100002436 +             PCR10    RJ     SAE         STACK APLIST                                BRIDGE   3666
                                                                                                                 BRIDGE   3667
                                        *         SAVE CURRENT SKEL POINTERS SO WE MAY CONTINUE AFTER            BRIDGE   3668
                                        *         SUBSKELS HAVE BEEN PROCESSED.                                  BRIDGE   3669
                                                                                                                 BRIDGE   3670
          3261  5110000133 +                      SA1    PREA                                                    BRIDGE   3671
                          5120000134 +            SA2    PREB                                                    BRIDGE   3672
          3262  76640                             SX6    B4                                                      BRIDGE   3673
                     10711                        BX7    X1                                                      BRIDGE   3674
                          5160003310 +            SA6    PCRC                                                    BRIDGE   3675
          3263  5170003312 +                      SA7    PCRE                                                    BRIDGE   3676
                          10622                   BX6    X2                                                      BRIDGE   3677
          3264  5160003311 +                      SA6    PCRD                                                    BRIDGE   3678
                          76100                   ADDWRD SAP,B0      RESERVE FOR HEADER                          BRIDGE   3679
          3266  5110003115 +                      SA1    CAPL                                                    BRIDGE   3680
                          76210                   =X2    1                                                       BRIDGE   3681
                               20224              LX2    TP.BIASP                                                BRIDGE   3682
          3267  36612                             IX6    X1+X2                                                   BRIDGE   3683
                     54610                        SA6    A1          BUMP APLIST POINTER                         BRIDGE   3684
                          56151                   =A1    B5+OR.1OP                                               BRIDGE   3685
          3270  0100002274 +                      RJ     PCO         ISSUE LEFT SIDE                             BRIDGE   3686
          3271  5110000000 X                      SA1    L$SAP                                                   BRIDGE   3687
                          10611                   BX6    X1                                                      BRIDGE   3688
          3272  5160003306 +                      SA6    PCRA        SAVE APLIST SIZE                            BRIDGE   3689
                          5115000002              SA1    B5+OR.2OP                                               BRIDGE   3690
          3273  0100002274 +                      RJ     PCO         ISSUE RIGHT SIDE                            BRIDGE   3691
          3274  5110003306 +                      SA1    PCRA                                                    BRIDGE   3692
                          5120000000 X            SA2    L$SAP                                                   BRIDGE   3693
          3275  7231777776                        SX3    X1-1                                                    BRIDGE   3694
                          37421                   IX4    X2-X1                                                   BRIDGE   3695
                               20352              LX3    IA.LEFTP                                                BRIDGE   3696
          3276  20422                             LX4    IA.RITEP                                                BRIDGE   3697
                     43101                        MX1    1                                                       BRIDGE   3698
                          20111                   LX1    1+IA.CRHP    REL HEADER TYPE APLIST                     BRIDGE   3699
                               12634              BX6    X3+X4                                                   BRIDGE   3700
          3277  5130000000 X                      SA3    O$SAP                                                   BRIDGE   3701
                          12761                   BX7    X6+X1                                                   BRIDGE   3702
                               53730              SA7    X3          STORE INTO RESERVED SPOT                    BRIDGE   3703
          3300  5110003307 +                      SA1    PCRB        ROUTINE                                     BRIDGE   3704
                          0100003231 +            RJ     CGF         ISSUE CALL                                  BRIDGE   3705
          3301  0100002455 +                      RJ     PAE         RESTORE APLIST ENVIRONMENT                  BRIDGE   3706
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    96
        SPECIAL PROCESSING ROUTINES (*CALL*)                          HREL
  
                                                                                                                 BRIDGE   3707
                                        *         RESTORE ENVIRONMENT TO MAIN SKEL.                              BRIDGE   3708
                                                                                                                 BRIDGE   3709
          3302  5110003310 +                      SA1    PCRC                                                    BRIDGE   3710
                          5120003311 +            SA2    PCRD                                                    BRIDGE   3711
          3303  5130003312 +                      SA3    PCRE                                                    BRIDGE   3712
                          63410                   SB4    X1                                                      BRIDGE   3713
                               10622              BX6    X2                                                      BRIDGE   3714
          3304  10733                             BX7    X3                                                      BRIDGE   3715
                     5160000134 +                 SA6    PREB                                                    BRIDGE   3716
          3305  5170000133 +                      SA7    PREA                                                    BRIDGE   3717
                          0400000120 +            EQ     PRE.RET                                                 BRIDGE   3718
                                                                                                                 BRIDGE   3719
          3306                     1     PCRA     BSS    1                                                       BRIDGE   3720
          3307                     1     PCRB     BSS    1                                                       BRIDGE   3721
          3310                     1     PCRC     BSS    1                                                       BRIDGE   3722
          3311                     1     PCRD     BSS    1                                                       BRIDGE   3723
          3312                     1     PCRE     BSS    1                                                       BRIDGE   3724
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    97
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DOO 
  
                                        **        DOO - MARK SHORT LOOP AS OPTIMIZABLE.                          BRIDGE   3727
                                                                                                                 BRIDGE   3728
          3313                           P=DZO    BSSENT 0                                                       BRIDGE   3729
          3313  7160000000 X                      SX6    =XV=DOZO    ZERO-TRIP OPTIMIZED LOOP                    BRIDGE   3730
                          0400003315 +            EQ     DOO10                                                   BRIDGE   3731
                                                                                                                 BRIDGE   3732
          3314                           P=DOO    BSSENT 0                                                       BRIDGE   3733
          3314  7160000000 X                      SX6    =XV=DOBO    ONE-TRIP OPTIMIZED LOOP                     BRIDGE   3734
                                                                                                                 BRIDGE   3735
          3315  5125000004               DOO10    SA2    B5+4        DC. VAR (TRIP COUNTER)                      BRIDGE   3736
                          5155000002              SA5    B5+2        TRIP COUNT OPERAND                          FC5A113    12
          3316  5110000000 X                      SA1    =XCONONE                                                FC5A113    13
                          5130000000 X            SA3    O$SYM                                                   BRIDGE   3737
          3317  43054                             MX0    -TP.ORDL                                                BRIDGE   3738
                     6273000001                   SB7    X3+WB.W                                                 BRIDGE   3739
                               13515              BX5    X1-X5                                                   FC5A113    14
          3320  0305003336 +                      ZR     X5,DOO40    IF TRIP COUNT = 1                           FC5A113    15
                          5115000007              SA1    B5+7        LOOP TOP LABEL                              BRIDGE   3740
          3321  5150004121 +                      CLAS=  X5,WB,(DLEN,DLEX)                                       BRIDGE   3741
                          20120                   LX1    -TP.ORDP                                                BRIDGE   3742
                               15410              BX4    -X0*X1                                                  BRIDGE   3743
          3322  36744                             IX7    X4+X4                                                   BRIDGE   3744
                     36474                        IX4    X7+X4                                                   BRIDGE   3745
                          5110004122 +            CLAS=  X1,WB,(DLER,PRD)                                        BRIDGE   3746
          3323  53447                             SA4    B7+X4       WB(LOOP TOP DO.)                            BRIDGE   3747
                     11754                        BX7    X5*X4                                                   BRIDGE   3748
                          11114                   BX1    X1*X4                                                   BRIDGE   3749
                               20440              HX4    WB.NIN                                                  BRIDGE   3750
          3324  13757                             BX7    X5-X7                                                   BRIDGE   3751
                     0334000120 +                 MI     X4,PRE.RET  IF INCREMENT VARIABLE OR NEG                BRIDGE   3752
                               54421              =A4    A2+5-4      UPPER LIMIT OPERAND                         BRIDGE   3753
          3325  0311003334 +                      NZ     X1,DOO30    IF LOOP HAS EXTERNAL REFS, OR ULIM REDEF.   BRIDGE   3754
                          0307003334 +            ZR     X7,DOO30    IF LOOP HAS EXTENDED RANGE                  BRIDGE   3755
                                                                                                                 BRIDGE   3756
                                        *         LOOP MAY BE COUNTED USING CONTROL VAR., UPPER LIMIT AND INC.   BRIDGE   3757
                                                                                                                 BRIDGE   3758
          3326  20220                    DOO20    LX2    -TP.ORDP                                                BRIDGE   3759
                     10744                        BX7    X4                                                      BRIDGE   3760
                          20461                   HX4    TP.INTR                                                 BRIDGE   3761
          3327  6273000002                        SB7    X3+WC.W                                                 BRIDGE   3762
                          0334000120 +            MI     X4,PRE.RET  IF UPPER LIMIT EXPRESSION                   BRIDGE   3763
          3330  20472                             LX4    TP.INTRP-TP.SHRTP                                       BRIDGE   3764
                     0324003332 +                 PL     X4,DOO25    IF NOT SHORT CON UPPER LIMIT                BRIDGE   3765
                               20465              LX4    TP.SHRTP+1-TP.BIASP                                     BRIDGE   3766
          3331  73440                             SX4    X4                                                      BRIDGE   3767
                     0304000120 +                 ZR     X4,PRE.RET  IF UPPER LIMIT = 0                          BRIDGE   3768
                                                                                                                 BRIDGE   3769
          3332                           DOO25    BSS    0                                                       BRIDGE   3770
          3332  15220                             BX2    -X0*X2                                                  BRIDGE   3771
                     36022                        IX0    X2+X2                                                   BRIDGE   3772
                          36320                   IX3    X2+X0                                                   BRIDGE   3773
                               53737              SA7    B7+X3       WC(DC.) = UPPER LIMIT OPERAND               BRIDGE   3774
          3333  0400000072 +                      EQ     SUB.RET                                                 BRIDGE   3775
                                                                                                                 BRIDGE   3776
          3334  10744                    DOO30    BX7    X4                                                      BRIDGE   3777
                     20757                        HX7    TP.SHRT                                                 BRIDGE   3778
                          0337003326 +            MI     X7,DOO20    IF UPPER LIMIT IS CONSTANT                  BRIDGE   3779
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    98
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DOO 
  
          3335  0400000120 +                      EQ     PRE.RET     CONTINUE WITH (UNOPTIMIZED) SKEL.           BRIDGE   3780
                                                                                                                 FC5A113    16
          3336  20220                    DOO40    LX2    -TP.ORDP                                                FC5A113    17
                     43774                        MX7    60                                                      FC5A113    18
                          15220                   BX2    -X0*X2                                                  FC5A113    19
                               36022              IX0    X2+X2                                                   FC5A113    20
          3337  66771                             =B7    B7+WC.W-WB.W                                            FC5A113    21
                     36320                        IX3    X2+X0                                                   FC5A113    22
                          53737                   SA7    B7+X3       WC(DC.) = -0  */ FLAG ONE TRIP LOOP         FC5A113    23
          3340  0400000061 +                      EQ     PRE.0                                                   FC5A113    24
  
  
  
  
                                        **        DOZ - PROCESS ZERO-TRIP LOOP BRANCH-AROUND.                    BRIDGE   3782
                                                                                                                 BRIDGE   3783
          3341                           P=DOZ    BSSENT 0                                                       BRIDGE   3784
          3341  5150000137 +                      SA5    OPT2                                                    BRIDGE   3785
                          0305000120 +            ZR     X5,PRE.RET  IF OPT NE 2                                 BRIDGE   3786
                                                                                                                 BRIDGE   3787
                                        *         FILE FLOW TO LOOP-END LABEL, AND NEXT BLOCK.                   BRIDGE   3788
                                                                                                                 BRIDGE   3789
          3342  5115000010                        SA1    B5+8        LOOP END LABEL                              FC5A164    75
                          0100003476 +            RJ     GLT         GET LABEL ORDINAL                           FC5A164    76
          3343  5110000000 X                      CFTE   CBN,X3,IH   FLOW (CBN,LOOPEND)                          FC5A164    77
          3346  5140000000 X                      SA4    O$TXT                                                   BRIDGE   3794
                          5150000130 +            SA5    LL.TXT                                                  BRIDGE   3795
          3347  76360                             SX3    B6                                                      BRIDGE   3796
                     6274777773                   SB7    X4-4                                                    BRIDGE   3797
                               53557              SA5    X5+B7                                                   BRIDGE   3798
          3350  20336                             LX3    R1.INP                                                  BRIDGE   3799
                     12635                        BX6    X3+X5                                                   BRIDGE   3800
                          54650                   SA6    A5          IN[R1(DOBEGIN BRANCH)] = OLD L.CFT          BRIDGE   3801
          3351  5110000000 X                      CFTE   CBN,X1+B1   FLOW (CBN,CBN+1)                            BRIDGE   3802
                                                                                                                 BRIDGE   3803
                                        *         BREAK SEQUENCE.                                                BRIDGE   3804
                                                                                                                 BRIDGE   3805
          3354  0400003611 +                      EQ     UJP3                                                    BRIDGE   3806
  
  
  
  
                                        **        DOBZ - SET GPBUF(1) TO 1 FOR LONG DOBEGIN ZERO TRIP.           BRIDGE   3808
                                                                                                                 BRIDGE   3809
          3355                           P=DOBZ   BSSENT 0                                                       BRIDGE   3810
          3355  5110000000 X                      SA1    =XCONONE                                                BRIDGE   3811
                          10611                   BX6    X1                                                      BRIDGE   3812
          3356  5160000030 +                      SA6    GOVG                                                    BRIDGE   3813
                          0400000120 +            EQ     PRE.RET                                                 BRIDGE   3814
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE    99
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DOL 
  
                                        **        DOL - FLAG LONG DO LOOP.                                       BRIDGE   3816
                                                                                                                 BRIDGE   3817
          3357                           P=DOL    BSSENT 0                                                       BRIDGE   3818
          3357  43601                             MX6    1                                                       BRIDGE   3819
                     20673                        LX6    1+R2.LONGP                                              BRIDGE   3820
                          5160003361 +            SA6    LDF                                                     BRIDGE   3821
          3360  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   3822
                                                                                                                 BRIDGE   3823
          3361                     1     LDF      BSSZ   1           LONG DOLOOP FLAG                            BRIDGE   3824
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   100
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DOB 
  
                                        **        DOB - PROCESS DO BEGIN.                                        BRIDGE   3826
                                                                                                                 BRIDGE   3827
          3362                           P=DOB    BSSENT 0                                                       BRIDGE   3828
          3362  5110000225 +                      SA1    LALS                                                    BRIDGE   3829
                          73611                   =X6    X1+1                                                    BRIDGE   3830
                               54610              SA6    A1          BUMP LOOP NEST COUNT                        BRIDGE   3831
                                                                                                                 BRIDGE   3832
                                        *         LOOP IS OPTIMIZABLE IF IT IS INNERMOST AND HAS NO EXITS,       BRIDGE   3833
                                        *         ENTRIES, EXTERNAL REFERENCES OR BACKWARD BRANCHES.             BRIDGE   3834
                                                                                                                 BRIDGE   3835
          3363  5120000137 +                      SA2    OPT2                                                    BRIDGE   3836
                          0312003372 +            NZ     X2,PDB1     IF OPT NE 1                                 BRIDGE   3837
                                                                                                                 BRIDGE   3838
          3364  5110000000 X                      SA1    O$SYM                                                   BRIDGE   3839
                          43054                   MX0    -TP.ORDL                                                BRIDGE   3840
          3365  5125000007                        SA2    B5+7        LOOP START LABEL OPERAND                    BRIDGE   3841
                          20220                   LX2    -TP.ORDP                                                BRIDGE   3842
                               15320              BX3    -X0*X2                                                  BRIDGE   3843
          3366  63611                             SB6    X1+B1                                                   BRIDGE   3844
                     22213                        LX2    B1,X3                                                   BRIDGE   3845
                          36323                   IX3    X2+X3                                                   BRIDGE   3846
                               53436              SA4    B6+X3       WORD B                                      BRIDGE   3847
          3367  43005                             MX0    WB.DLNOL                                                BRIDGE   3848
                     20451                        HX4    WB.DLNO                                                 BRIDGE   3849
                          11704                   BX7    X0*X4                                                   BRIDGE   3850
          3370  0317003372 +                      NZ     X7,PDB1     IF LOOP NOT OPTIMIZABLE                     BRIDGE   3851
                                                                                                                 BRIDGE   3852
                          0100000206 +            RJ     PCS         CODE THE PROLOG                             BRIDGE   3853
          3371  7160000001                        SX6    1                                                       BRIDGE   3854
                          5160000000 X            SA6    =XCC$OPTL                                               BRIDGE   3855
                                                                                                                 BRIDGE   3856
          3372  5125000007               PDB1     SA2    B5+7                                                    BRIDGE   3857
                          43054                   MX0    -TP.ORDL                                                BRIDGE   3858
                               20220              LX2    -TP.ORDP                                                BRIDGE   3859
          3373  15120                             BX1    -X0*X2                                                  BRIDGE   3860
                     0100003511 +                 RJ     LAB         PROCESS LOOP-BACK LABEL                     BRIDGE   3861
          3374  0100000173 +                      RJ     TSP         KEEP LABEL AT TOP OF SEQ IN OPT=2           BRIDGE   3862
          3375  5120001275 +                      ADVIL  2                                                       BRIDGE   3863
                                                                                                                 BRIDGE   3864
                                        *         IF LONG LOOP, SET R2.LONG IN BOS.                              BRIDGE   3865
                                                                                                                 BRIDGE   3866
          3403  5110003361 +                      SA1    LDF                                                     BRIDGE   3867
                          0301000120 +            ZR     X1,PRE.RET  IF NOT LONG LOOP                            BRIDGE   3868
          3404  5120000000 X                      SA2    O$TXT                                                   BRIDGE   3869
                          53321                   =A3    X2+1                                                    BRIDGE   3870
                               43700              MX7    0                                                       BRIDGE   3871
          3405  12613                             BX6    X1+X3                                                   BRIDGE   3872
                     54710                        SA7    A1          LDF = 0                                     BRIDGE   3873
                          54630                   SA6    A3          LONG[R2W(BOS)] = 1                          BRIDGE   3874
          3406  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   3875
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   101
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DOLOOPS 
  
                                        **        DOC - PROCESS DO CONCLUSION.                                   BRIDGE   3877
                                        *                                                                        BRIDGE   3878
                                        *         IF SHORT LOOP, CHECK FOR CONSTANT INCREMENT.                   BRIDGE   3879
                                        *         IF LONG LOOP, SET GPBUF(1) TO -1 SHORT CON.                    BRIDGE   3880
                                                                                                                 BRIDGE   3881
          3407                           P=DOC    BSSENT 0                                                       BRIDGE   3882
          3407  5110000225 +                      SA1    LALS                                                    BRIDGE   3883
                          7261777776              SX6    X1-1                                                    BRIDGE   3884
          3410  54610                             SA6    A1          LALS = LALS - 1  */ DECREM. LOOP NEST COUNT BRIDGE   3885
                     5120001275 +                 ADVIL  1                                                       BRIDGE   3886
          3415  5110000136 +                      SA1    CNUM                                                    BRIDGE   3887
                          0311003437 +            NZ     X1,DOC10    IF LONG LOOP                                BRIDGE   3888
                                                                                                                 BRIDGE   3889
                                        *         SET RF BIT FOR ALL LOADS IN LOOP CODE.                         BRIDGE   3890
                                                                                                                 BRIDGE   3891
          3416  5110000050 X                      SA1    F$RDT+OC.LD                                             BRIDGE   3892
                          76310                   SX3    B1                                                      BRIDGE   3893
                               20323              LX3    D.RFP                                                   BRIDGE   3894
          3417  12631                             BX6    X3+X1                                                   BRIDGE   3895
                     54610                        SA6    A1          RF[RDT(OC.LD)] = 1                          BRIDGE   3896
                          7160000000 X            SX6    =XV=DOC.K                                               BRIDGE   3897
                                                                                                                 BRIDGE   3898
                                        *         SELECT OPTIMIZED LOOP CODE IF THIS HAD SHORT CON TRIP COUNT.   BRIDGE   3899
                                                                                                                 BRIDGE   3900
          3420  5115000005                        SA1    B5+5        TRIP COUNT CELL                             BRIDGE   3901
                          5130000000 X            SA3    O$SYM                                                   BRIDGE   3902
          3421  43054                             MX0    -TP.ORDL                                                BRIDGE   3903
                     20120                        LX1    -TP.ORDP                                                BRIDGE   3904
                          6273000002              SB7    X3+WC.W                                                 BRIDGE   3905
          3422  15210                             BX2    -X0*X1                                                  BRIDGE   3906
                     36022                        IX0    X2+X2                                                   BRIDGE   3907
                          36320                   IX3    X2+X0                                                   BRIDGE   3908
          3423  5125000002                        SA2    B5+OR.2OP   INCREMENT                                   BRIDGE   3909
                          53337                   SA3    B7+X3       WC(TC.)                                     BRIDGE   3910
                               20257              HX2    TP.SHRT                                                 BRIDGE   3911
          3424  0303003435 +                      ZR     X3,DOC05    IF NOT OPTIMIZABLE                          BRIDGE   3912
                          10633                   BX6    X3                                                      BRIDGE   3913
          3425  5160000030 +                      SA6    GOVG        GPBUF(1) = UPPER LIMIT                      BRIDGE   3914
                          43700                   MX7    0                                                       BRIDGE   3915
                               54730              SA7    A3          WC(TC.) = 0                                 BRIDGE   3916
          3426  7160000000 X                      SX6    =XV=DC.OC                                               BRIDGE   3917
                          0332003430 +            MI     X2,DOC01    IF CONSTANT INCREMENT                       FC50136    14
          3427  7160000000 X                      SX6    =XV=DC.OV                                               BRIDGE   3919
                          0400000072 +            EQ     SUB.RET                                                 BRIDGE   3920
                                                                                                                 FC50136    15
          3430  76010                    DOC01    =X0    1                                                       FC50136    16
                     20024                        LX0    TP.BIASP                                                FC50136    17
                          36730                   IX7    X3+X0       BIAS = BIAS+1                               FC50136    18
                               20357              HX3    TP.SHRT                                                 FC50136    19
          3431  0323000072 +                      PL     X3,SUB.RET  IF UPPER LIMIT NOT CONSTANT                 FC50136    20
                          10377                   BX3    X7                                                      FC50136    21
                               20320              LX3    -TP.BIASP-TP.BIASL                                      FC50136    22
          3432  21365                             AX3    60-TP.BIASL+17                                          FC50136    23
                     0313000072 +                 NZ     X3,SUB.RET  IF ABS(BIAS+1) GE 2**17                     FC50136    24
                               43030              MX0    TP.BIASL                                                FC50136    25
          3433  20054                             LX0    TP.BIASL+TP.BIASP                                       FC50136    26
                     13707                        BX7    X0-X7       BIAS = -(OLDBIAS+1)                         FC50136    27
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   102
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DOLOOPS 
  
                          5170000030 +            SA7    GOVG        GPBUF = SHRT(BIAS)                          FC50136    28
          3434  7160000000 X                      SX6    =XV=DC.OS   SELECT OPTIMIZED(SET) SUBSKEL               FC50136    29
                          0400000072 +            EQ     SUB.RET                                                 FC50136    30
                                                                                                                 BRIDGE   3921
          3435  0333003441 +             DOC05    MI     X3,DOC20    IF ONE-TRIP LOOP                            FC5A113    25
                          0322000120 +            PL     X2,PRE.RET  IF INCREMENT NOT CONSTANT, CONTINUE         FC5A113    26
          3436  0400000072 +                      EQ     SUB.RET     SELECT SUBSKEL                              BRIDGE   3923
                                                                                                                 BRIDGE   3924
          3437  5110003445 +             DOC10    SA1    CONM1                                                   BRIDGE   3925
                          10711                   BX7    X1                                                      BRIDGE   3926
          3440  5170000030 +                      SA7    GOVG        GPBUF(1) = SHORT CON -1                     BRIDGE   3927
                          0400000120 +            EQ     PRE.RET     CONTINUE                                    BRIDGE   3928
                                                                                                                 FC5A113    27
          3441  43700                    DOC20    MX7    0                                                       FC5A113    28
                     54730                        SA7    A3          RESTORE WC(DC.)                             FC5A113    29
                          5150000000 X            SA5    WO.DOOT                                                 FC5A113    30
          3442  7160000000 X                      SX6    =XV=DC.O1   ISSUES I = I + INC                          FC5A113    31
                          0305000072 +            ZR     X5,SUB.RET  IF DO=-OT                                   FC5A113    32
                                                                                                                 FC50130     6
          3443                           P=PDE1   BSSENT 0           PROCESS DO END FOR TRIP COUNT = 1           FC50130     7
          3443  5120000050 X                      SA2    F$RDT+OC.LD                                             FC50130     8
                          76310                   SX3    B1                                                      FC50130     9
                               20323              LX3    D.RFP                                                   FC50130    10
          3444  15623                             BX6    -X3*X2                                                  FC50130    11
                     54620                        SA6    A2          CLEAR RF BIT IN LOAD DESCRIPTOR             FC50130    12
                          0400000061 +            EQ     PRE.0                                                   FC50130    13
                                                                                                                 BRIDGE   3929
                                  20     TOP      DECMIC 60-TP.BIASP-TP.BIASL                                    BRIDGE   3930
                                  30     BIASL    DECMIC TP.BIASL                                                BRIDGE   3931
                                   7     MID      DECMIC TP.BIASP-1-TP.SHRTP                                     BRIDGE   3932
          3445  00000377777770010000     CONM1    VFD    "TOP"/0,"BIASL"/-1,"MID"/0,1/1,*P/0                     BRIDGE   3933
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   103
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DOLOOPS 
  
                                        **        P=PDE - PROCESS DO END.                                        BRIDGE   3935
                                                                                                                 BRIDGE   3936
          3446                           P=PDE    BSSENT 0                                                       BRIDGE   3937
                                                                                                                 BRIDGE   3940
                                        *         RESTORE LD DESCRIPTOR.                                         BRIDGE   3941
                                                                                                                 BRIDGE   3942
          3446  5120000050 X                      SA2    F$RDT+OC.LD                                             BRIDGE   3943
                          5110000137 +            SA1    OPT2                                                    BRIDGE   3944
          3447  76310                             SX3    B1                                                      BRIDGE   3945
                     20323                        LX3    D.RFP                                                   BRIDGE   3946
                          15623                   BX6    -X3*X2                                                  BRIDGE   3947
                               54620              SA6    A2          RF[RDT(OC.LD)] = 0                          BRIDGE   3948
          3450  0301003603 +                      ZR     X1,UJP1     IF OPT .NE. 2                               BRIDGE   3949
                          43054                   MX0    -TP.ORDL                                                BRIDGE   3950
          3451  5125000004                        SA2    B5+4                                                    BRIDGE   3951
                          20220                   LX2    -TP.ORDP                                                BRIDGE   3952
                               15320              BX3    -X0*X2      IHLB = ORD[TURP(6)]  */ LOOP HEAD LABEL     BRIDGE   3953
          3452  5150000000 X                      SA5    CBN                                                     BRIDGE   3954
                          73150                   CFTE   X5,X3,IH    FLOW( CBN , IHLB )                          BRIDGE   3955
          3455  73150                             CFTE   X5,X5+B1    FLOW( CBN , CBN + 1 )                       BRIDGE   3956
          3457  0100000206 +                      RJ     PCS         PROCESS LAST LOOP SEQUENCE                  FC5A186    13
          3460  5130000000 X                      SA3    CBN         INVENT DUMMY BLOCK FOR POST-STORES          FC5A186    14
                          73631                   SX6    X3+B1                                                   FC5A186    15
                               54630              SA6    A3                                                      FC5A186    16
          3461  73160                             CFTE   X6,X6+B1                                                FC5A186    17
          3463  0400003611 +                      EQ     UJP3                                                    BRIDGE   3957
  
  
  
  
                                        **        P=IOLC - SELECT SUBSKEL TO DEFINE CONTROL VARIABLE OF          FC5A218   208
                                        *         COLLAPSED IO IMPLIED-DO.                                       FC5A218   209
                                                                                                                 FC5A218   210
          3464                           P=IOLC   BSSENT 0                                                       FC5A218   211
          3464  5110000000 X                      SA1    WO.DOOT                                                 FC5A218   212
                          7160000000 X            SX6    =XV=IOLC0                                               FC5A218   213
          3465  0301000072 +                      ZR     X1,SUB.RET  IF ZERO TRIP LOOPS IN EFFECT                FC5A218   214
                          7160000000 X            SX6    =XV=IOLC1                                               FC5A218   215
          3466  0400000072 +                      EQ     SUB.RET                                                 FC5A218   216
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   104
        SPECIAL PROCESSING ROUTINES (*CALL*)                          LABELS
  
                                        **        P=PLA - PROCESS LABEL TURPLE.                                  BRIDGE   3959
                                                                                                                 BRIDGE   3960
          3467                           P=PLA    BSSENT 0                                                       BRIDGE   3961
          3467  56151                             SA1    B5+B1       OPR = TURP(2)                               BRIDGE   3962
                     0100003476 +                 RJ     GLT         GET LABEL TAG                               BRIDGE   3963
          3470  10133                             BX1    X3                                                      BRIDGE   3964
                     0100003511 +                 RJ     LAB         CALL LAB (LABEL ORD.)                       BRIDGE   3965
          3471  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   3966
  
  
  
  
                                        **        ALT - ADD LABEL TO TEXT.                                       BRIDGE   3968
                                        *                                                                        BRIDGE   3969
                                        *         ENTRY  X1 = LABEL ORDINAL                                      BRIDGE   3970
                                                                                                                 BRIDGE   3971
          3472  0400403472 +             ALT      SUBR                                                           BRIDGE   3972
                                                  LX1    R1.IHP                                                  BRIDGE   3973
          3473  10511                             BX5    X1                                                      BRIDGE   3974
                     6170000006                   SB7    OC.LAB                                                  BRIDGE   3975
                               43700              MX7    0                                                       BRIDGE   3976
          3474  0100000546 +                      RJ     IRI                                                     BRIDGE   3977
          3475  0400003472 +                      EQ     ALT                                                     BRIDGE   3978
  
  
  
  
                                        **        GLT - GET LABEL TAG.                                           BRIDGE   3980
                                        *                                                                        BRIDGE   3981
                                        *         ENTRY  X1 = LABEL OPERAND WORD.                                BRIDGE   3982
                                        *                                                                        BRIDGE   3983
                                        *         EXIT   X3 = SYMTAB ORDINAL OR GL ORDINAL+GL BIT.               BRIDGE   3984
                                        *                X4 = BIAS                                               BRIDGE   3985
                                        *                                                                        BRIDGE   3986
                                        *         PRESERVES  B2,B4,B5,B6,B7,X5,X6,X7                             BRIDGE   3987
                                                                                                                 BRIDGE   3988
          3476  0400403476 +             GLT      SUBR                                                           BRIDGE   3989
          3477  43044                             MX0    -TP.BIASL                                               BRIDGE   3990
                     20150                        LX1    -TP.BIASP                                               BRIDGE   3991
                          15410                   BX4    -X0*X1                                                  BRIDGE   3992
                               20144              LX1    TP.BIASP-TP.ORDP                                        BRIDGE   3993
          3500  43054                             MX0    -TP.ORDL                                                BRIDGE   3994
                     15310                        BX3    -X0*X1                                                  BRIDGE   3995
                          20136                   LX1    TP.ORDP-TP.CPFXP                                        BRIDGE   3996
                               43071              MX0    -TP.CPFXL                                               BRIDGE   3997
          3501  15210                             BX2    -X0*X1                                                  BRIDGE   3998
                     0312003510 +                 NZ     X2,GLT1     IF NOT SYMBOL TABLE SYMBOL                  BRIDGE   3999
                                                                                                                 BRIDGE   4000
                                        *         CHECK FOR EQUIVALENCE.                                         BRIDGE   4001
                                                                                                                 BRIDGE   4002
                               20170              LX1    TP.CPFXP-1-TP.EQVP                                      BRIDGE   4003
          3502  0321003476 +                      PL     X1,GLT      IF NOT EQUIVALENCED                         BRIDGE   4004
                          5120000000 X            SA2    O$SYM                                                   BRIDGE   4005
          3503  22013                             LX0    B1,X3                                                   BRIDGE   4006
                     63321                        SB3    X2+B1                                                   BRIDGE   4007
                          36003                   IX0    X0+X3                                                   BRIDGE   4008
                               53203              SA2    X0+B3                                                   BRIDGE   4009
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   105
        SPECIAL PROCESSING ROUTINES (*CALL*)                          LABELS
  
          3504  54121                             =A1    A2+WC.W-WB.W                                            BRIDGE   4010
                     43360                        MX3    -WB.BASEL                                               BRIDGE   4011
                          43044                   MX0    -WC.RAL                                                 BRIDGE   4012
                               20233              LX2    -WB.BASEP                                               BRIDGE   4013
          3505  15323                             BX3    -X3*X2                                                  BRIDGE   4014
                                                  LX1    -WC.RAP                                                 BRIDGE   4015
                     15210                        BX2    -X0*X1                                                  BRIDGE   4016
                          20444                   LX4    -TP.BIASL                                               BRIDGE   4017
                               21444              AX4    -TP.BIASL                                               BRIDGE   4018
          3506  36442                             IX4    X4+X2                                                   BRIDGE   4019
                     43044                        MX0    -TP.BIASL                                               BRIDGE   4020
                          15440                   BX4    -X0*X4                                                  BRIDGE   4021
          3507  0400003476 +                      EQ     GLT                                                     BRIDGE   4022
                                                                                                                 BRIDGE   4023
          3510  20217                    GLT1     LX2    IH.IP                                                   BRIDGE   4024
                     12323                        BX3    X2+X3                                                   BRIDGE   4025
                          0400003476 +            EQ     GLT                                                     BRIDGE   4026
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   106
        SPECIAL PROCESSING ROUTINES (*CALL*)                          LABELS
  
                                        **        LAB - LABEL DEFINITION.                                        BRIDGE   4028
                                        *         ENTRY  X1 = SYMBOL ORDINAL.                                    BRIDGE   4029
                                                                                                                 BRIDGE   4030
          3511  0400403511 +             LAB      SUBR                                                           BRIDGE   4031
          3512  7221677777                        SX2    X1-K.GL                                                 BRIDGE   4032
                          0322003517 +            PL     X2,LAB1     IF GL (ALWAYS ACTIVE)                       BRIDGE   4033
          3513  5150000000 X                      SA5    O$SYM                                                   BRIDGE   4034
                          22211                   LX2    B1,X1                                                   BRIDGE   4035
                               63651              SB6    X5+B1                                                   BRIDGE   4036
          3514  36321                             IX3    X2+X1                                                   BRIDGE   4037
                     53236                        SA2    B6+X3       WORD B OF SYMBOL ENTRY                      BRIDGE   4038
                          20267                   LX2    59-WB.CGSP                                              BRIDGE   4039
          3515  0332003517 +                      MI     X2,LAB1     IF A *DO* GENERATED LABEL                   BRIDGE   4040
                          20265                   LX2    WB.CGSP-WB.ACTP                                         BRIDGE   4041
          3516  0322003511 +                      PL     X2,LAB      IF NOT REFERENCED                           BRIDGE   4042
                                                                                                                 BRIDGE   4043
          3517  5140000000 X             LAB1     SA4    CC$OPTL                                                 BRIDGE   4044
                          0314003537 +            NZ     X4,LAB6     IF CC$OPTL .NE. 0  */ ADD LABEL AND CONTINU BRIDGE   4045
          3520  5150000137 +                      SA5    OPT2                                                    BRIDGE   4046
                          0315003525 +            NZ     X5,LAB3     IF OPT EQ 2                                 BRIDGE   4047
                                                                                                                 BRIDGE   4048
          3521  0100003472 +                      RJ     ALT         ADD LABEL TO TEXT                           BRIDGE   4049
          3522  5130000130 +                      SA3    LL.TXT                                                  BRIDGE   4050
                          7263777767              SX6    X3-8                                                    BRIDGE   4051
          3523  0306003511 +                      ZR     X6,LAB      IF LABEL FIRST IN SEQ                       BRIDGE   4052
                          0100000206 +            RJ     PCS         PROCESS SEQUENCE                            BRIDGE   4053
          3524  0400003511 +                      EQ     LAB                                                     BRIDGE   4054
                                                                                                                 BRIDGE   4055
          3525  5130000130 +             LAB3     SA3    LL.TXT                                                  BRIDGE   4056
                          6233777773              SB3    X3-4                                                    BRIDGE   4057
          3526  0430003534 +                      ZR     B3,LAB4     IF CODE BUFFERS EMPTY                       BRIDGE   4058
                                                                                                                 BRIDGE   4059
                          10611                   BX6    X1                                                      BRIDGE   4060
          3527  5160003541 +                      SA6    LABA                                                    BRIDGE   4061
                          0100000206 +            RJ     PCS         PROCESS CURRENT SEQUENCE                    BRIDGE   4062
          3530  5110000000 X                      SA1    CBN         PBN = CBN                                   BRIDGE   4063
                          73611                   SX6    X1+B1       CBN = CBN + 1                               BRIDGE   4064
                               54610              SA6    A1                                                      BRIDGE   4065
          3531  73260                             CFTE   X1,X6       FLOW( PBN , CBN )                           BRIDGE   4066
          3533  5110003541 +                      SA1    LABA                                                    BRIDGE   4067
                                                                                                                 BRIDGE   4068
                                        *         DEFINE BLOCK NUMBER ASSOCIATED WITH THIS LABEL                 BRIDGE   4069
                                                                                                                 BRIDGE   4070
          3534  0100003472 +             LAB4     RJ     ALT         ADD LABEL                                   BRIDGE   4071
          3535  73150                             SX1    X5                                                      BRIDGE   4072
                     0100000000 X                 CALL   CG$LABD                                                 BRIDGE   4073
          3536  0400003511 +                      EQ     EXIT.                                                   BRIDGE   4074
                                                                                                                 BRIDGE   4075
          3537  0100003472 +             LAB6     RJ     ALT         ADD LABEL                                   BRIDGE   4076
          3540  0400003511 +                      EQ     LAB                                                     BRIDGE   4077
                                                                                                                 BRIDGE   4078
          3541                     1     LABA     BSS    1                                                       BRIDGE   4079
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   107
        SPECIAL PROCESSING ROUTINES (*CALL*)                          ENTRY 
  
                                        **        P=ENT - PROCESS ALTERNATE ENTRY POINT.                         BRIDGE   4081
                                        *         GENERATE GL FOR ENTRY POINT TO JUMP TO.                        BRIDGE   4082
                                                                                                                 BRIDGE   4083
                                                                                                                 BRIDGE   4084
          3542                           P=ENT    BSSENT 0                                                       BRIDGE   4085
          3542  5110000000 X                      SA1    =XN.ALTEN                                               BRIDGE   4086
                          73711                   SX7    X1+B1                                                   BRIDGE   4087
                               54710              SA7    A1          N.ALTEN = N.ALTEN + 1                       BRIDGE   4088
          3543  76100                             ADDWRD GLT,B0                                                  BRIDGE   4089
          3545  7213077777                        SX1    X3+K.GL-1                                               BRIDGE   4090
                                                                                                                 BRIDGE   4091
                                        *         INSTALL GL NUMBER IN CLEN FIELD OF ENTRY SYMTAB ENTRY.         BRIDGE   4092
                                                                                                                 BRIDGE   4093
                          5145000001              SA4    B5+OR.1OP   ENTW = TURP(2)                              BRIDGE   4094
          3546  5120000000 X                      SA2    O$SYM                                                   BRIDGE   4095
                          43054                   MX0    -TP.ORDL                                                BRIDGE   4096
                               20420              LX4    -TP.ORDP                                                BRIDGE   4097
          3547  6262000002                        SB6    X2+WC.W                                                 BRIDGE   4098
                          15640                   BX6    -X0*X4                                                  BRIDGE   4099
                               22216              LX2    B1,X6                                                   BRIDGE   4100
          3550  43017                             MX0    WC.EGLL                                                 FC51454     5
                     7233777776                   SX3    X3-1                                                    BRIDGE   4101
                               36462              IX4    X6+X2                                                   BRIDGE   4102
          3551  20055                             LX0    WC.EGLL+WC.EGLP                                         FC51454     6
                     53246                        SA2    B6+X4                                                   BRIDGE   4103
                          15220                   BX2    -X0*X2                                                  FC51454     7
                               20336              LX3    WC.EGLP                                                 BRIDGE   4104
          3552  12723                             BX7    X2+X3                                                   BRIDGE   4105
                     54720                        SA7    A2          EGL[WC(ORD[TURP(3)] = L.GLT-1               BRIDGE   4106
                                                                                                                 BRIDGE   4107
                          0100003511 +            RJ     LAB         ISSUE GL                                    BRIDGE   4108
          3553  5120000137 +                      SA2    OPT2                                                    BRIDGE   4109
                          0302000120 +            ZR     X2,PRE.RET  IF OPT NE 2                                 BRIDGE   4110
          3554  5120000000 X                      SA2    CBN                                                     BRIDGE   4111
                          76110                   CFTE   1,X2        FLOW FROM PSEUDO-ENTRY BLOCK TO HERE        BRIDGE   4112
          3557  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4113
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   108
        SPECIAL PROCESSING ROUTINES (*CALL*)                          EXITS 
  
                                        **        P=PEX - PROCESS EXIT MACRO.                                    BRIDGE   4115
                                                                                                                 BRIDGE   4116
          3560                           P=PEX    BSSENT 0                                                       BRIDGE   4117
          3560  5110000000 X                      SA1    CC$OPTL                                                 BRIDGE   4118
                          5120000137 +            SA2    OPT2                                                    BRIDGE   4119
          3561  0311000120 +                      NZ     X1,PRE.RET  IF IN WELL-BEHAVED LOOP                     BRIDGE   4120
                          0302003603 +            ZR     X2,UJP1     IF OPT NE 2                                 BRIDGE   4121
                                                                                                                 BRIDGE   4122
          3562  5110000000 X                      CFTE   CBN,B0      FLOW( CBN , 0 ) */ SHOW FLOW TO EXIT        BRIDGE   4123
          3565  0400003611 +                      EQ     UJP3                                                    BRIDGE   4124
  
  
  
  
                                        **        P=PASG- PROCESS ASSIGN.                                        BRIDGE   4126
                                                                                                                 BRIDGE   4127
          3566                           P=PASG   BSSENT 0                                                       BRIDGE   4128
          3566  5110000135 +                      SA1    CTYP                                                    BRIDGE   4129
                          5120000136 +            SA2    CNUM                                                    BRIDGE   4130
          3567  0100000367 +                      RJ     GOV                                                     BRIDGE   4131
          3570  5160000002 +                      SA6    GOVT        T1 = CALL OP = ADDR(LAB)                    BRIDGE   4132
                          5110000000 X            SA1    O$TXT                                                   BRIDGE   4133
          3571  5120000130 +                      SA2    LL.TXT                                                  BRIDGE   4134
                          5140000000 X            SA4    =XS=TRACE                                               BRIDGE   4135
          3572  36312                             IX3    X1+X2                                                   BRIDGE   4136
                     5213777773                   SA1    X3-4                                                    BRIDGE   4137
                               20422              LX4    R1.H2P                                                  BRIDGE   4138
          3573  12614                             BX6    X1+X4                                                   BRIDGE   4139
                     54610                        SA6    A1          H2[R1W(LAST OP)] = TRACE.                   BRIDGE   4140
                          54211                   =A2    A1+1                                                    BRIDGE   4141
          3574  5140000000 X                      SA4    O$SYM                                                   BRIDGE   4142
                                                  LX2    -IH.IHP                                                 BRIDGE   4143
                          63741                   =B7    X4+WB.W                                                 BRIDGE   4144
                               73120              SX1    X2                                                      BRIDGE   4145
          3575  22211                             LX2    B1,X1                                                   BRIDGE   4146
                     36312                        IX3    X1+X2                                                   BRIDGE   4147
                          53437                   SA4    B7+X3                                                   BRIDGE   4148
          3576  7160000000 X                      SX6    =XV=ASLAB                                               BRIDGE   4149
                          20447                   HX4    WB.FDEF                                                 BRIDGE   4150
          3577  0324000072 +                      PL     X4,SUB.RET  IF CODE LABEL                               BRIDGE   4151
                          7160000000 X            SX6    =XV=ASFMT                                               BRIDGE   4152
          3600  0400000072 +                      EQ     SUB.RET                                                 BRIDGE   4153
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   109
        SPECIAL PROCESSING ROUTINES (*CALL*)                          BRANCH
  
                                        **        UJP - UNCONDITIONAL JUMP  ( UJP LAB ) PROCESSING               BRIDGE   4155
                                                                                                                 BRIDGE   4156
          3601                           P=PGT    BSSENT 0                                                       BRIDGE   4157
          3601  5110000000 X                      SA1    CC$OPTL                                                 BRIDGE   4158
                          5120000137 +            SA2    OPT2                                                    BRIDGE   4159
          3602  0311000120 +                      NZ     X1,PRE.RET  IF CC$OPTL " 0     */ OPT=1  & OPTIMIZABLE  BRIDGE   4160
                          0312003605 +            NZ     X2,UJP2     IF OPT EQ 2   */ FLOW ANALYSIS              BRIDGE   4161
                                                                                                                 BRIDGE   4162
          3603  0100000206 +             UJP1     RJ     PCS         PROCESS CURRENT SEQUENCE                    BRIDGE   4163
          3604  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4164
                                                                                                                 BRIDGE   4165
          3605  56151                    UJP2     =A1    B5+OR.1OP   LABWRD = TURP(2)                            BRIDGE   4166
                     0100003476 +                 RJ     GLT         GET LABEL TAG                               BRIDGE   4167
          3606  5110000000 X                      CFTE   CBN,X3,IH   FLOW( CBN , IH[R1] )                        BRIDGE   4168
                                                                                                                 BRIDGE   4169
          3611  0100000206 +             UJP3     RJ     PCS         PROCESS SEQUENCE                            BRIDGE   4170
          3612  5110000000 X                      SA1    CBN                                                     BRIDGE   4171
                          73611                   SX6    X1+B1       CBN = CBN + 1 */ ADVANCE TO NEXT BLOCK      BRIDGE   4172
                               54610              SA6    A1                                                      BRIDGE   4173
          3613  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4174
  
  
  
  
                                        **        GOTO - ASSIGNED / COMPUTED GOTO PROCESSING                     BRIDGE   4176
                                                                                                                 BRIDGE   4177
          3614                           P=PAG    BSSENT 0                                                       BRIDGE   4178
          3614  5110000000 X                      SA1    CC$OPTL                                                 BRIDGE   4179
                          5120000137 +            SA2    OPT2                                                    BRIDGE   4180
          3615  0311000120 +                      NZ     X1,PRE.RET  IF CC$OPTL .NE. 0                           BRIDGE   4181
                          0302003603 +            ZR     X2,UJP1     IF OPT .NE. 2                               BRIDGE   4182
                                                                                                                 BRIDGE   4183
                                        *         COLLECT FLOW INFORMATION.  ADD ALL OBJECTS OF ASSIGNS TO       BRIDGE   4184
                                        *         THIS VARIABLE TO FLOW GRAPH.                                   BRIDGE   4185
                                                                                                                 BRIDGE   4186
          3616  5115000001                        SA1    B5+OR.1OP   LOC = TURP(2)                               BRIDGE   4187
                          0100003476 +            RJ     GLT                                                     BRIDGE   4188
          3617  43750                             MX7    TP.ORBIL                                                BRIDGE   4189
                     20354                        LX3    TP.ORDP                                                 BRIDGE   4190
                          20424                   LX4    TP.BIASP                                                BRIDGE   4191
                               12034              BX0    X3+X4                                                   BRIDGE   4192
          3620  5150000000 X                      SA5    =XO$ASG                                                 BRIDGE   4193
                          53550                   SA5    X5                                                      BRIDGE   4194
                                                                                                                 BRIDGE   4195
          3621  0305003611 +             PAG1     ZR     X5,UJP3     IF LAST ASSIGN ENTRY                        BRIDGE   4196
                          10355                   BX3    X5                                                      BRIDGE   4197
                               13450              BX4    X5-X0                                                   BRIDGE   4198
          3622  54551                             SA5    A5+B1                                                   BRIDGE   4199
                     11674                        BX6    X7*X4                                                   BRIDGE   4200
                          0316003621 +            NZ     X6,PAG1     IF ASG(I) NE LOC                            BRIDGE   4201
                                                                                                                 BRIDGE   4202
          3623  73330                             SX3    X3                                                      BRIDGE   4203
                     5110000000 X                 CFTE   CBN,X3,IH   FLOW (CBN,TARGET[ASG(I)]                    BRIDGE   4204
          3626  43750                             MX7    TP.ORBIL                                                BRIDGE   4205
                     0400003621 +                 EQ     PAG1                                                    BRIDGE   4206
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   110
        SPECIAL PROCESSING ROUTINES (*CALL*)                          BRANCH
  
          3627                           P=PCG    BSSENT 0                                                       BRIDGE   4208
          3627  76100                             ADDWRD GLT,B0                                                  BRIDGE   4209
          3631  5110000135 +                      SA1    CTYP                                                    BRIDGE   4210
                          5120000136 +            SA2    CNUM                                                    BRIDGE   4211
          3632  0100000367 +                      RJ     GOV         PLACE PARAMETER (B-REG) IN X6               BRIDGE   4212
          3633  5110000000 X                      SA1    =XL$GLT                                                 BRIDGE   4213
                          7271077777              SX7    X1+K.GL-1                                               BRIDGE   4214
                                                  LX7    IH.IHP      IH = L.GLT + K.GL - 1                       BRIDGE   4215
          3634  6170000071                        SB7    OC.JIN                                                  BRIDGE   4216
                          10566                   BX5    X6                                                      BRIDGE   4217
                                                  LX5    R1.RIP                                                  BRIDGE   4218
          3635  0100000546 +                      RJ     IRI         ISSUE JP #GLN+B(J)                          BRIDGE   4219
                                                  LX7    -IH.IHP                                                 BRIDGE   4220
          3636  10177                             BX1    X7                                                      BRIDGE   4221
                     0100003472 +                 RJ     ALT         ISSUE #GLN  BSS  0                          BRIDGE   4222
          3637  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4223
                                                                                                                 BRIDGE   4224
          3640                     1     PGTA     BSS    1                                                       BRIDGE   4225
  
  
  
  
                                        **        P=JGOTO - PROCESS COMPUTED GOTO JUMP TURPLES.                  BRIDGE   4227
                                                                                                                 BRIDGE   4228
          3641                           P=JGOC   BSSENT 0                                                       BRIDGE   4229
          3641  5140000000 X                      SA4    CC$OPTL                                                 BRIDGE   4230
                          5130000137 +            SA3    OPT2                                                    BRIDGE   4231
          3642  0314000120 +                      NZ     X4,PRE.RET  IF IN WELL-BEHAVED LOOP                     BRIDGE   4232
                          0303003650 +            ZR     X3,JGOTO1   IF OPT .NE. 2                               BRIDGE   4233
          3643  56151                             SA1    B5+B1                                                   BRIDGE   4234
                     43054                        MX0    -TP.ORDL                                                BRIDGE   4235
                          20120                   LX1    -TP.ORDP                                                BRIDGE   4236
                               15510              BX5    -X0*X1                                                  BRIDGE   4237
          3644  5110000000 X                      CFTE   CBN,X5,IH   FLOW (CBN,ORD[TURP(2)])                     BRIDGE   4238
          3647  5130000137 +                      SA3    OPT2                                                    BRIDGE   4239
                                                                                                                 BRIDGE   4240
          3650  5110003640 +             JGOTO1   SA1    PGTA                                                    BRIDGE   4241
                          7261777776              SX6    X1-1                                                    BRIDGE   4242
          3651  54610                             SA6    A1          NLAB = NLAB-1                               BRIDGE   4243
                     0316000120 +                 NZ     X6,PRE.RET  IF NLAB .NE. 0  */ NOT LAST JUMP            BRIDGE   4244
          3652  0303003603 +                      ZR     X3,UJP1     IF OPT NE 2                                 BRIDGE   4245
                          5110000000 X            CFTE   CBN,X1+B1   FLOW <CBN,CBN+1>                            BRIDGE   4246
          3655  0400003611 +                      EQ     UJP3                                                    BRIDGE   4247
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   111
        SPECIAL PROCESSING ROUTINES (*CALL*)                          RGT 
  
                                        **        RGT - ALTERNATE RETURN GO TO PROCESSOR.                        BRIDGE   4249
                                                                                                                 BRIDGE   4250
          3656                           P=RGT    BSSENT 0                                                       BRIDGE   4251
                                                                                                                 BRIDGE   4252
                                        *         SET GPBUF(1) TO LAST USER APLIST + BIAS(1OP), AND              BRIDGE   4253
                                        *             GPBUF(2) TO -2OP.                                          BRIDGE   4254
                                                                                                                 BRIDGE   4255
          3656  56451                             =A4    B5+OR.1OP                                               BRIDGE   4256
                     5130001761 +                 SA3    UAP                                                     BRIDGE   4257
          3657  5120004123 +                      CLAS=  X2,TP,BIAS                                              BRIDGE   4258
                          54141                   =A1    A4+OR.2OP-OR.1OP                                        BRIDGE   4259
                               13612              BX6    X1-X2       BIAS = -BIAS                                BRIDGE   4260
          3660  20450                             LX4    -TP.BIASP                                               BRIDGE   4261
                     5160000031 +                 SA6    GOVG+1      GPBUF(2) = -2OP                             BRIDGE   4262
                               76111              =X1    K=AP                                                    BRIDGE   4263
          3661  20354                             LX3    TP.ORDP                                                 BRIDGE   4264
                     20116                        LX1    TP.CPFXP                                                BRIDGE   4265
                          73640                   SX6    X4                                                      BRIDGE   4266
                               12313              BX3    X1+X3                                                   BRIDGE   4267
          3662  20624                             LX6    TP.BIASP                                                BRIDGE   4268
                     12736                        BX7    X3+X6                                                   BRIDGE   4269
                          55761                   =A7    A6-1        GPBUF(1) = LAST APLIST + BIAS[1OP]          BRIDGE   4270
          3663  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4271
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   112
        SPECIAL PROCESSING ROUTINES (*CALL*)                          BRANCH
  
                                        **        P=IF - COLLECT FLOW FOR IF TURPLES.                            BRIDGE   4273
                                                                                                                 BRIDGE   4274
          3664                           P=IF     BSSENT 0                                                       BRIDGE   4275
          3664  5120001275 +                      ADVIL  1           ADVANCE 1 TURPLE                            BRIDGE   4276
          3670  5110000137 +                      SA1    OPT2                                                    BRIDGE   4277
                          0301000120 +            ZR     X1,PRE.RET  IF OPT NE 2                                 BRIDGE   4278
          3671  5120000000 X                      SA2    O$TXT                                                   BRIDGE   4279
                          5130000130 +            SA3    LL.TXT                                                  BRIDGE   4280
          3672  36423                             IX4    X2+X3                                                   BRIDGE   4281
                     5110000136 +                 SA1    CNUM                                                    BRIDGE   4282
          3673  7211777776                        SX1    X1-1                                                    BRIDGE   4283
                          20102                   LX1    2                                                       BRIDGE   4284
                               63710              SB7    X1                                                      BRIDGE   4285
          3674  6264777774                        SB6    X4-3                                                    BRIDGE   4286
                          57567                   SA5    B6-B7                                                   BRIDGE   4287
          3675  0470003705 +                      ZR     B7,IF2      IF ONLY ONE JUMP IN SKELETON                BRIDGE   4288
                                                                                                                 BRIDGE   4289
                                        *         LOOP THROUGH ALL BUT LAST BRANCH, FILING CONTROL FLOW.         BRIDGE   4290
                                                                                                                 BRIDGE   4291
                                         IF1      LX5    -IH.IHP                                                 BRIDGE   4292
          3676  6177777773                        SB7    B7-4                                                    BRIDGE   4293
                          5110000000 X            CFTE   CBN,X5,IH                                               BRIDGE   4294
          3702  55451                             SA4    A5-B1                                                   BRIDGE   4295
                     76360                        SX3    B6                                                      BRIDGE   4296
                          20336                   LX3    R1.INP                                                  BRIDGE   4297
                               12634              BX6    X3+X4                                                   BRIDGE   4298
          3703  54640                             SA6    A4          IN[R1] = OLD(L.CFT)                         BRIDGE   4299
                     5055000004                   SA5    A5+4                                                    BRIDGE   4300
          3704  0570003676 +                      NZ     B7,IF1      IF NOT LAST BRANCH                          BRIDGE   4301
                                                                                                                 BRIDGE   4302
                                        *         PROCESS LAST BRANCH.  MAY BE UJP (TYPE 2).                     BRIDGE   4303
                                                                                                                 BRIDGE   4304
          3705  54351                    IF2      SA3    A5+B1                                                   BRIDGE   4305
                     20301                        LX3    59-D.TYP                                                BRIDGE   4306
                          0333003716 +            MI     X3,IF3      IF UJP (TYPE 2)                             BRIDGE   4307
                                                                                                                 BRIDGE   4308
                                        *         MUST BE CONDITIONAL BRANCH (TYPE 3)                            BRIDGE   4309
                                                                                                                 BRIDGE   4310
                                                  LX5    -IH.IHP                                                 BRIDGE   4311
          3706  5110000000 X                      CFTE   CBN,X5,IH                                               BRIDGE   4312
          3711  55451                             SA4    A5-B1                                                   BRIDGE   4313
                     76360                        SX3    B6                                                      BRIDGE   4314
                          20336                   LX3    R1.INP                                                  BRIDGE   4315
                               12634              BX6    X3+X4                                                   BRIDGE   4316
          3712  54640                             SA6    A4          IN[R1] = OLD(L.CFT)                         BRIDGE   4317
                     5110000000 X                 CFTE   CBN,X1+B1   FLOW <CBN,CBN+1>                            BRIDGE   4318
          3715  0400003611 +                      EQ     UJP3                                                    BRIDGE   4319
                                                                                                                 BRIDGE   4320
          3716  5055777776               IF3      SA5    A5-1                                                    BRIDGE   4321
                                                  LX5    -R1.IHP                                                 BRIDGE   4322
                          5110000000 X            CFTE   CBN,X5,IH   FLOW <CBN,IH[R1W]>                          BRIDGE   4323
          3722  0400003611 +                      EQ     UJP3                                                    BRIDGE   4324
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   113
        SPECIAL PROCESSING ROUTINES (*CALL*)                          DEFER 
  
                                        **        DEFERRED TURPLE PROCESSORS.                                    BRIDGE   4326
                                                                                                                 BRIDGE   4327
                                        **        EDT - ENTER TURPLE INTO DEFERRED TURPLE TABLE.                 BRIDGE   4328
                                        *                                                                        BRIDGE   4329
                                        *         ENTRY  X0 = TS.INFO TO BE INCLUDED IN INDEX ENTRY.             BRIDGE   4330
                                                                                                                 BRIDGE   4331
          3723  0400403723 +             EDT      SUBR                                                           BRIDGE   4332
          3724  7110000003                        ALLOC  DTT,3                                                   BRIDGE   4333
          3726  56150                             SA1    B5                                                      BRIDGE   4334
                     56351                        SA3    B5+B1                                                   BRIDGE   4335
                          10611                   BX6    X1                                                      BRIDGE   4336
                               53626              SA6    X2+B6       DTT(1,L.DTT) = TURP(1)                      BRIDGE   4337
          3727  10733                             BX7    X3                                                      BRIDGE   4338
                     54131                        SA1    A3+B1                                                   BRIDGE   4339
                          54761                   SA7    A6+B1       DTT(2,L.DTT) = TURP(2)                      BRIDGE   4340
                               10611              BX6    X1                                                      BRIDGE   4341
          3730  54671                             SA6    A7+B1       DTT(3,L.DTT) = TURP(3)                      BRIDGE   4342
                     5130000132 +                 SA3    INDEX                                                   BRIDGE   4343
          3731  5120000000 X                      SA2    O$TST                                                   BRIDGE   4344
                          36423                   IX4    X2+X3                                                   BRIDGE   4345
                               76360              SX3    B6                                                      BRIDGE   4346
                                                  LX3    TS.RNUP     RNU[TST(IND)] = DTT INDEX                   BRIDGE   4347
          3732  12730                             BX7    X3+X0                                                   BRIDGE   4348
                     53740                        SA7    X4                                                      BRIDGE   4349
                          0400003723 +            EQ     EXIT.                                                   BRIDGE   4350
  
  
  
  
                                        **        PAR - PROCESS ARRAY TURPLE.                                    BRIDGE   4352
                                                                                                                 BRIDGE   4353
          3733                           P=PAR    BSSENT 0                                                       BRIDGE   4354
          3733  43000                             MX0    0                                                       BRIDGE   4355
                     0100003723 +                 RJ     EDT         ENTER TURPLE INTO DTT                       BRIDGE   4356
                                         .ARY     SKIP               RESTORE IF SUBSCRIPTED SUBSCRIPTS OUTPUT    FC5A140    33
                                                  SA1    B5+OR.2OP                                               BRIDGE   4357
                                                  LX1    59-TP.ARYP                                              BRIDGE   4358
                                                  PL     X1,PRE.RET  IF ^ARY[TURP(3)]                            BRIDGE   4359
                                                  LX1    TP.ARYP-TP.INTRP                                        BRIDGE   4360
                                                  PL     X1,PRE.RET  IF NOT INTR[TURP(3)]                        BRIDGE   4361
                                                                                                                 BRIDGE   4362
                                                  SA3    IND0                                                    BRIDGE   4363
                                                  SB6    B0                                                      BRIDGE   4364
                                                  MX0    -TP.ORDL                                                BRIDGE   4365
                                                  LX1    TP.INTRP-TP.ADDRP                                       BRIDGE   4366
                                                  BX4    X1                                                      BRIDGE   4367
                                                  LX1    TP.ADDRP-59-TP.ORDP+60                                  BRIDGE   4368
                                                  BX6    -X0*X1                                                  BRIDGE   4369
                                                  SX1    OC.LD                                                   BRIDGE   4370
                                                  PL     X4,PAR1     IF NOT ADDR[TURP(3)]  */ NOT A(LOCF(B(I)))  BRIDGE   4371
                                                  SX1    OC.STT                                                  BRIDGE   4372
                                                                                                                 BRIDGE   4373
                                         PAR1     IX6    X6-X3                                                   BRIDGE   4374
                                                  SB7    X6          IND = ORD[TURP(3)] - IND0                   BRIDGE   4375
                                                  RJ     GAR         GENERATE ARRAY LOAD                         BRIDGE   4376
                                                  SA1    =XO$DTT                                                 BRIDGE   4377
                                                  SA2    =XL$DTT                                                 BRIDGE   4378
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   114
        SPECIAL PROCESSING ROUTINES (*CALL*)                          PAR 
  
                                                  IX0    X1+X2                                                   BRIDGE   4379
                                                  SA1    X0-1                                                    BRIDGE   4380
                                                  MX0    -TP.BIASL                                               BRIDGE   4381
                                                  LX1    -TP.BIASP                                               BRIDGE   4382
                                                  BX2    X0*X1                                                   BRIDGE   4383
                                                  BX6    X2+X6                                                   BRIDGE   4384
                                                  LX6    TP.BIASP                                                BRIDGE   4385
                                                  SA6    A1          BIAS[OP2(DTT(L.DTT))] = RN(GAR)             BRIDGE   4386
                                         .ARY     ENDIF                                                          FC5A140    34
          3734  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4387
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   115
        SPECIAL PROCESSING ROUTINES (*CALL*)                          HCAT
  
                                        **        HCAT - PROCESS CONCATENATE TURPLE.                             BRIDGE   4389
                                                                                                                 BRIDGE   4390
          3735                           P=HCAT   BSSENT 0                                                       BRIDGE   4391
          3735  43000                             MX0    0                                                       BRIDGE   4392
                     0100003723 +                 RJ     EDT         ENTER TURPLE INTO DTT                       BRIDGE   4393
          3736  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4394
  
  
  
  
                                        **        HSBS - PROCESS SUBSTRING TURPLE.                               BRIDGE   4396
                                                                                                                 BRIDGE   4397
          3737                           P=HSBS   BSSENT 0                                                       BRIDGE   4398
          3737  43001                             CLAS=  X0,TS,SUB                                               BRIDGE   4399
                          0100003723 +            RJ     EDT         ENTER INTO DTT                              BRIDGE   4400
          3740  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4401
  
  
  
  
                                        **        HCOL - PROCESS COLON TURPLE.                                   BRIDGE   4403
                                                                                                                 BRIDGE   4404
          3741                           P=HCOL   BSSENT 0                                                       BRIDGE   4405
          3741  43000                             MX0    0                                                       BRIDGE   4406
                     0100003723 +                 RJ     EDT         ENTER TURPLE INTO DTT                       BRIDGE   4407
          3742  0400000120 +                      EQ     PRE.RET                                                 BRIDGE   4408
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   116
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IMULT 
  
                                        **        P=IM - SELECT INTEGER MULTIPLY SUBSKEL ON BASIS OF             BRIDGE   4410
                                        *         MULTIPLICAND NATURE.                                           BRIDGE   4411
                                                                                                                 BRIDGE   4412
          3743                           P=IM     BSSENT 0                                                       BRIDGE   4413
          3743                           COMFSIM  CTEXT              COMFSIM - SELECT INTEGER MULTIPLY SKELETON. COMFSIM     2
                                        **        SIM - SELECT INTEGER MULTIPLY SUBSKEL ON BASIS OF              COMFSIM     3
                                        *         MULTIPLICAND NATURE.                                           COMFSIM     4
                                        *                                                                        COMFSIM     5
                                        *         ENTRY  B5 _ CURRENT TURPLE.                                    COMFSIM     6
                                        *                                                                        COMFSIM     7
                                        *         EXIT   TO SUB.RET WITH                                         COMFSIM     8
                                        *                X6 = ADDRESS OF SUBSKEL.                                COMFSIM     9
                                        *                ("GPBUF"),("GPBUF"+1) = GP1,GP2                         COMFSIM    10
                                        *                                                                        COMFSIM    11
                                        *         PRESERVES B4                                                   COMFSIM    12
                                        *                                                                        COMFSIM    13
                                        *         **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.     COMFSIM    14
                                        *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO      COMFSIM    15
                                        *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).      COMFSIM    16
                                        *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE      COMFSIM    17
                                        *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.    COMFSIM    18
                                        *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                 COMFSIM    19
                                                                                                                 COMFSIM    20
          3743  7160000000 X                      SX6    =XV=IMV     *NORMAL* INTEGER MULTIPLY                   COMFSIM    21
                          56151                   SA1    B5+B1                                                   COMFSIM    22
                               54211              SA2    A1+B1                                                   COMFSIM    23
          3744  10711                             BX7    X1                                                      COMFSIM    24
                     10422                        BX4    X2                                                      COMFSIM    25
                          20157                   LX1    59-"TP".SHRTP                                           COMFSIM    26
                               20257              LX2    59-"TP".SHRTP                                           COMFSIM    27
          3745  12312                             BX3    X1+X2                                                   COMFSIM    28
                     0323000072 +                 PL     X3,SUB.RET  IF NEITHER OPERAND SHORT CONSTANT           COMFSIM    29
          3746  0332003750 +                      MI     X2,IM1      IF OPERAND 2 IS SHORT CONSTANT              COMFSIM    30
                                                                                                                 COMFSIM    31
                                        *         SWITCH OP1/OP2                                                 COMFSIM    32
                                                                                                                 COMFSIM    33
                          10077                   BX0    X7                                                      COMFSIM    34
                               54720              SA7    A2                                                      COMFSIM    35
          3747  10744                             BX7    X4                                                      COMFSIM    36
                     54710                        SA7    A1                                                      COMFSIM    37
                          10400                   BX4    X0                                                      COMFSIM    38
                                                                                                                 COMFSIM    39
          3750  20450                    IM1      LX4    -"TP"."BIAS"P                                           COMFSIM    40
                     73440                        SX4    X4                                                      COMFSIM    41
                          76310                   SX3    B1                                                      COMFSIM    42
                               37143              IX1    X4-X3                                                   COMFSIM    43
          3751  63740                             SB7    X4          SAVE MULTIPLIER                             COMFSIM    44
                     11041                        BX0    X4*X1                                                   COMFSIM    45
                          10211                   BX2    X1                                                      COMFSIM    46
                               21221              AX2    17                                                      COMFSIM    47
          3752  0334000072 +                      MI     X4,SUB.RET  IF CONSTANT LT 0                            COMFSIM    48
                          0331000072 +            MI     X1,SUB.RET  IF CONSTANT LE 0                            COMFSIM    49
          3753  0310003757 +                      NZ     X0,IM2      IF NOT SIMPLE POWER OF 2                    COMFSIM    50
                                                                                                                 COMFSIM    51
                                        *         SET-UP SIMPLE POWER OF 2                                       COMFSIM    52
                                                                                                                 COMFSIM    53
                          24074                   NX0    B7,X4                                                   COMFSIM    54
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   117
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IMULT 
  
          3754  6177777720                        SB7    B7-47       OFF BIAS                                    COMFSIM    55
                          67707                   SB7    -B7         SHIFT CONSTANT.                             COMFSIM    56
                               10433              BX4    X3                                                      COMFSIM    57
          3755  76070                             SX0    B7          K                                           COMFSIM    58
                     0471004000 +                 EQ     B7,B1,IM6   IF POWER = 1                                COMFSIM    59
          3756  7160000000 X                      SX6    =XV=SHFC                                                COMFSIM    60
                          0400003776 +            EQ     IMX2                                                    COMFSIM    61
                                                                                                                 COMFSIM    62
                                        *         NOT SIMPLE POWER OF *2*, CHECK IF SUM OF POWER OF *2*          COMFSIM    63
                                                                                                                 COMFSIM    64
          3757  37203                    IM2      IX2    X0-X3                                                   COMFSIM    65
                     63200                        SB2    X0          SAVE K PORTION                              COMFSIM    66
                          11002                   BX0    X0*X2                                                   COMFSIM    67
          3760  0310003766 +                      NZ     X0,IM3      IF NO SUM OF POWER OF 2                     COMFSIM    68
                                                                                                                 COMFSIM    69
                                        *         SET-UP SUM OF POWER OF 2                                       COMFSIM    70
                                                                                                                 COMFSIM    71
                          76220                   SX2    B2          K   NUMBER                                  COMFSIM    72
                               77172              SX1    B7-B2       J   NUMBER                                  COMFSIM    73
          3761  24022                             NX0    B2,X2                                                   COMFSIM    74
                     6122777720                   SB2    B2-47       -K  POWER                                   COMFSIM    75
                               24071              NX0    B7,X1       J NUMBER                                    COMFSIM    76
          3762  67202                             SB2    -B2                                                     COMFSIM    77
                     6177777720                   SB7    B7-47       -J  POWER                                   COMFSIM    78
                               77007              SX0    -B7         J   POWER                                   COMFSIM    79
          3763  7160000000 X                      SX6    =XV=SHFS                                                COMFSIM    80
                          76727                   SX7    B2+B7       K POWER                                     COMFSIM    81
          3764  0310003774 +                      NZ     X0,IMX1     IF J POWER NOT 0                            COMFSIM    82
                          73070                   SX0    X7          J = K                                       COMFSIM    83
          3765  7160000000 X                      SX6    =XV=SHFS1                                               COMFSIM    84
                          0400003774 +            EQ     IMX1                                                    COMFSIM    85
                                                                                                                 COMFSIM    86
                                        *         NOT SUM OF POWER OF *2*, CHECK IF DIFFERENCE OF POWER OF *2*   COMFSIM    87
                                                                                                                 COMFSIM    88
          3766  12741                    IM3      BX7    X4+X1                                                   COMFSIM    89
                     36073                        IX0    X7+X3                                                   COMFSIM    90
                          11207                   BX2    X0*X7                                                   COMFSIM    91
          3767  0312000072 +                      NZ     X2,SUB.RET  IF NOT DIFFERENCE OF POWER OF *2*           COMFSIM    92
                          13241                   BX2    X4-X1       2**J+1 - 1                                  COMFSIM    93
                                                                                                                 COMFSIM    94
                                        *         SET-UP DIFFERENCE OF POWER OF 2                                COMFSIM    95
                                                                                                                 COMFSIM    96
                               24122              NX1    B2,X2                                                   COMFSIM    97
          3770  6122777720                        SB2    B2-47                                                   COMFSIM    98
                          76170                   SX1    B7                                                      COMFSIM    99
                               77002              SX0    -B2         J   POWER                                   COMFSIM   100
          3771  24771                             NX7    B7,X1       K+J POWER                                   COMFSIM   101
                     6177777717                   SB7    B7-48                                                   COMFSIM   102
                               77707              SX7    -B7                                                     COMFSIM   103
          3772  7160000000 X                      SX6    =XV=SHFD                                                COMFSIM   104
                          0310003774 +            NZ     X0,IMX1     IF J POWER NOT ZERO                         COMFSIM   105
          3773  73070                             SX0    X7          J = K                                       COMFSIM   106
                     7160000000 X                 SX6    =XV=SHFD1                                               COMFSIM   107
                                                                                                                 COMFSIM   108
          3774  43101                    IMX1     MX1    1                                                       COMFSIM   109
                     20724                        LX7    "TP"."BIAS"P                                            COMFSIM   110
                          20115                   LX1    1+"TP".SHRTP                                            COMFSIM   111
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   118
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IMULT 
  
                               12717              BX7    X1+X7                                                   COMFSIM   112
          3775  5170000031 +                      SA7    "GPBUF"+1                                               COMFSIM   113
                                                                                                                 COMFSIM   114
          3776  43101                    IMX2     MX1    1                                                       COMFSIM   115
                     20024                        LX0    "TP"."BIAS"P                                            COMFSIM   116
                          20115                   LX1    1+"TP".SHRTP                                            COMFSIM   117
                               12710              BX7    X1+X0                                                   COMFSIM   118
          3777  5170000030 +                      SA7    "GPBUF"                                                 COMFSIM   119
                          0400000072 +            EQ     SUB.RET                                                 COMFSIM   120
                                                                                                                 COMFSIM   121
          4000  7160000000 X             IM6      SX6    =XV=IM2                                                 COMFSIM   122
                          0400000072 +            EQ     SUB.RET                                                 COMFSIM   123
                                                  ENDX                                                           COMFSIM   124
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   119
        SPECIAL PROCESSING ROUTINES (*CALL*)                          IDIV
  
                                        **        P=ID - SELECT INTEGER DIVIDE SUBSKEL.                          BRIDGE   4416
          4001                           P=ID     BSSENT 0                                                       BRIDGE   4417
          4001                           COMFSID  CTEXT              COMFSID - SELECT INTEGER DIVIDE SUBSKEL.    COMFSID     2
                                                                                                                 COMFSID     3
                                        **        **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.     COMFSID     4
                                        *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO      COMFSID     5
                                        *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).      COMFSID     6
                                        *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE      COMFSID     7
                                        *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.    COMFSID     8
                                        *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                 COMFSID     9
                                                                                                                 COMFSID    10
          4001  7160000000 X                      SX6    =XV=IDV                                                 COMFSID    11
                          5115000002              SA1    B5+OR.2OP                                               COMFSID    12
          4002  20157                             HX1    "TP".SHRT                                               COMFSID    13
                     0321000072 +                 PL     X1,SUB.RET  IF NOT SHRT[TURP(3)]                        COMFSID    14
                               76310              =X3    1                                                       COMFSID    15
          4003  20165                             LX1    "TP".SHRTP+1-"TP"."BIAS"P                               COMFSID    16
                     73110                        SX1    X1                                                      COMFSID    17
                          37413                   IX4    X1-X3                                                   COMFSID    18
                               11014              BX0    X1*X4                                                   COMFSID    19
          4004  0334000072 +                      MI     X4,SUB.RET  IF VAL LE 0                                 COMFSID    20
                          0310000072 +            NZ     X0,SUB.RET  IF VAL NOT POWER OF 2                       COMFSID    21
          4005  7160000000 X                      SX6    =XV=IDP2                                                COMFSID    22
                          43201                   MX2    1                                                       COMFSID    23
                               24071              NX0    B7,X1                                                   COMFSID    24
          4006  6177777720                        SB7    B7-47                                                   COMFSID    25
                          77007                   SX0    -B7                                                     COMFSID    26
                               20024              LX0    "TP"."BIAS"P                                            COMFSID    27
          4007  20215                             LX2    1+"TP".SHRTP                                            COMFSID    28
                     12720                        BX7    X2+X0                                                   COMFSID    29
                          5170000030 +            SA7    "GPBUF"                                                 COMFSID    30
          4010  0400000072 +                      EQ     SUB.RET                                                 COMFSID    31
                                                  ENDX                                                           COMFSID    32
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   120
        SPECIAL PROCESSING ROUTINES (*CALL*)                          MASK
  
                                        **        P=MASK - SELECT MASK SUBSKEL.                                  BRIDGE   4420
                                                                                                                 BRIDGE   4421
          4011                           P=MASK   BSSENT 0                                                       BRIDGE   4422
          4011                           COMFSMK  CTEXT              COMFSMK - SELECT MASK SUBSKEL               COMFSMK     2
                                                                                                                 COMFSMK     3
                                        **        **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.     COMFSMK     4
                                        *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO      COMFSMK     5
                                        *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).      COMFSMK     6
                                        *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE      COMFSMK     7
                                        *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.    COMFSMK     8
                                        *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                 COMFSMK     9
                                                                                                                 COMFSMK    10
          4011  7160000000 X                      SX6    =XV=MASKV                                               COMFSMK    11
                          5115000001              SA1    B5+OR.1OP                                               COMFSMK    12
          4012  20157                             HX1    "TP".SHRT                                               COMFSMK    13
                     0321000072 +                 PL     X1,SUB.RET  IF NOT SHRT[TURP(2)]                        COMFSMK    14
          4013  7130000075                        SX3    61                                                      COMFSMK    15
                          43044                   MX0    -"TP"."BIAS"L                                           COMFSMK    16
                               20165              LX1    1+"TP".SHRTP-"TP"."BIAS"P                               COMFSMK    17
          4014  15210                             BX2    -X0*X1                                                  COMFSMK    18
                     37223                        IX2    X2-X3                                                   COMFSMK    19
                          0322000072 +            PL     X2,SUB.RET  IF VAL LT 0 OR VAL GT 60                    COMFSMK    20
          4015  7160000000 X                      SX6    =XV=MASKC                                               COMFSMK    21
                          0400000072 +            EQ     SUB.RET                                                 COMFSMK    22
                                                  ENDX                                                           COMFSMK    23
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   121
        SPECIAL PROCESSING ROUTINES (*CALL*)                          MOD 
  
                                        **        P=MOD - SELECT MOD SUBSKEL.                                    BRIDGE   4425
                                                                                                                 BRIDGE   4426
          4016                           P=MOD    BSSENT 0                                                       BRIDGE   4427
          4016                          COMFSMD   CTEXT              COMFSMD - SELECT MOD SUBSKEL.               COMFSMD     2
          4016  7160000000 X                      SX6    =XV=MODG                                                COMFSMD     3
                          5115000002              SA1    B5+OR.2OP                                               COMFSMD     4
          4017  20157                             HX1    TP.SHRT                                                 COMFSMD     5
                     0321000072 +                 PL     X1,SUB.RET  IF NOT SHRT[TURP(3)]                        COMFSMD     6
                               76310              =X3    1                                                       COMFSMD     7
          4020  20165                             LX1    TP.SHRTP+1-TP.BIASP                                     COMFSMD     8
                     73110                        SX1    X1                                                      COMFSMD     9
                          37413                   IX4    X1-X3                                                   COMFSMD    10
                               11014              BX0    X1*X4                                                   COMFSMD    11
          4021  21421                             AX4    17                                                      COMFSMD    12
                     0314000072 +                 NZ     X4,SUB.RET  IF VAL LT 0                                 COMFSMD    13
          4022  0310000072 +                      NZ     X0,SUB.RET  IF VAL NOT POWER OF 2                       COMFSMD    14
                          7160000000 X            SX6    =XV=MODP2                                               COMFSMD    15
          4023  43201                             MX2    1                                                       COMFSMD    16
                     24071                        NX0    B7,X1                                                   COMFSMD    17
                          7107000015              SX0    B7-47+60                                                COMFSMD    18
          4024  20024                             LX0    TP.BIASP                                                COMFSMD    19
                     20215                        LX2    1+TP.SHRTP                                              COMFSMD    20
                          12720                   BX7    X2+X0                                                   COMFSMD    21
          4025  5170000030 +                      SA7    "GPBUF"     GPBUF(1) = 60-LOG2(TURP(2))                 COMFSMD    22
                          0400000072 +            EQ     SUB.RET                                                 COMFSMD    23
                                                  ENDX                                                           COMFSMD    24
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   122
        SPECIAL PROCESSING ROUTINES (*CALL*)                          SHIFT 
  
                                        **        P=SHIFT - SELECT SHIFT SUBSKEL.                                BRIDGE   4430
          4026                           P=SHIFT  BSSENT 0                                                       BRIDGE   4431
          4026                           COMFSSH  CTEXT              COMFSSH - SELECT SHIFT SUBSKEL.             COMFSSH     2
                                                                                                                 COMFSSH     3
                                        **        **KLUGE** AT PRESENT THE QCG I. L. INPUT IS IN P2. FORMAT.     COMFSSH     4
                                        *         SO IN ORER TO ACHIEVE COMMONALITY WE SUBSTITUTE THE MICRO      COMFSSH     5
                                        *         "TP" FOR TP IN THIS CODE. "TP" = P2 (QCG) OR TP (BRIDGE).      COMFSSH     6
                                        *         TO FURTHER COMPLICATE THINGS SHORT CONSTANT VALUES RESIDE      COMFSSH     7
                                        *         IN THE BIAS FIELD FOR THE BRIDGE AND THE TAG FIELD FOR QCG.    COMFSSH     8
                                        *         WE DEFINE "BIAS" = TAG (QCG) OR BIAS (BRIDGE).                 COMFSSH     9
                                                                                                                 COMFSSH    10
          4026  7160000000 X                      SX6    =XV=SHIFV                                               COMFSSH    11
                          5115000002              SA1    B5+OR.2OP                                               COMFSSH    12
          4027  10711                             BX7    X1                                                      COMFSSH    13
                     20157                        HX1    "TP".SHRT                                               COMFSSH    14
                          0321000072 +            PL     X1,SUB.RET  IF NOT SHRT[TURP(3)]                        COMFSSH    15
          4030  76310                             =X3    1                                                       COMFSSH    16
                     20165                        LX1    1+"TP".SHRTP-"TP"."BIAS"P                               COMFSSH    17
                          73110                   SX1    X1          VAL = BIAS[TURP(3)]                         COMFSSH    18
          4031  0331004034 +                      MI     X1,SSH1     IF VAL LT 0                                 COMFSSH    19
                          7221777677              SX2    X1-100B                                                 COMFSSH    20
          4032  0322000072 +                      PL     X2,SUB.RET  IF CON GT 77B                               COMFSSH    21
                          7160000000 X            SX6    =XV=SHLC    SELECT CONSTANT LEFT SHIFT                  COMFSSH    22
          4033  5170000030 +                      SA7    "GPBUF"                                                 COMFSSH    23
                          0400000072 +            EQ     SUB.RET                                                 COMFSSH    24
                                                                                                                 COMFSSH    25
          4034  14111                    SSH1     BX1    -X1                                                     COMFSSH    26
                     7221777677                   SX2    X1-100B                                                 COMFSSH    27
          4035  0322000072 +                      PL     X2,SUB.RET  IF VAL LT -77B                              COMFSSH    28
                          7160000000 X            SX6    =XV=SHRC    SELECT CONSTANT RIGHT SHIFT                 COMFSSH    29
          4036  43301                             MX3    1                                                       COMFSSH    30
                     20124                        LX1    "TP"."BIAS"P                                            COMFSSH    31
                          20315                   LX3    1+"TP".SHRTP                                            COMFSSH    32
                               12713              BX7    X1+X3                                                   COMFSSH    33
          4037  5170000030 +                      SA7    "GPBUF"     GPBUF(1) = -VAL                             COMFSSH    34
                          0400000072 +            EQ     SUB.RET                                                 COMFSSH    35
                                                  ENDX                                                           COMFSSH    36
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   123
        SPECIAL PROCESSING ROUTINES (*CALL*)                          BVD 
  
                                        **        BVD - PROCESS START OF VARDIM CODE.                            BRIDGE   4434
                                                                                                                 BRIDGE   4435
          4040                           P=BVD    BSSENT 0                                                       BRIDGE   4436
          4040  5110000130 +                      SA1    LL.TXT                                                  FC51342     9
                          7261777773              SX6    X1-4                                                    FC51342    10
          4041  0306000120 +                      ZR     X6,PRE.RET  IF EMPTY SEQUENCE                           FC51342    11
                          0100000206 +            RJ     PCS         PROCESS CURRENT SEQUENCE                    FC51342    12
          4042  0400000120 +                      EQ     PRE.RET                                                 FC51342    13
  
  
  
  
                                        **        EVD - PROCESS END OF VARDIM CODE.                              BRIDGE   4439
                                                                                                                 BRIDGE   4440
          4043                           P=EVD    BSSENT 0                                                       BRIDGE   4441
          4043  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   4442
                          10611                   BX6    X1                                                      BRIDGE   4443
          4044  5160000000 X                      SA6    L$TXT                                                   BRIDGE   4444
                          5100000000 X            ALLOC  VDT,X1                                                  BRIDGE   4445
          4046  10322                             BX3    X2                                                      BRIDGE   4446
                     5120000000 X                 SA2    O$TXT                                                   BRIDGE   4447
          4047  0100000000 X                      MOVE   X1,X2,X3    MOVE TXT TO VDT FOR END PROCESSING          BRIDGE   4448
          4050  7170000004                        SX7    4                                                       BRIDGE   4449
                          5170000000 X            SA7    L$TXT                                                   BRIDGE   4450
          4051  5170000130 +                      SA7    LL.TXT                                                  BRIDGE   4451
                          0400000120 +            EQ     PRE.RET                                                 BRIDGE   4452
  
  
  
  
                                        **        P=FIN - TERMINATE IL PROCESSING.                               BRIDGE   4454
                                                                                                                 BRIDGE   4455
          4052                           P=FIN    BSSENT 0                                                       BRIDGE   4456
          4052  0100000173 +                      RJ     TSP                                                     BRIDGE   4457
          4053  0100004065 +                      RJ     MDV         MARK VD.S AS MATERIALIZED                   BRIDGE   4458
          4054  7170000000                        SX7    0                                                       BRIDGE   4459
                          5170000000 X            SA7    =XL$ASG     L.ASG = 0                                   BRIDGE   4461
          4055  5110000130 +                      SA1    LL.TXT                                                  BRIDGE   4462
                          10711                   BX7    X1                                                      BRIDGE   4463
          4056  7261777773                        SX6    X1-4                                                    BRIDGE   4464
                          5170000000 X            SA7    L$TXT                                                   BRIDGE   4465
          4057  0306000032 +                      ZR     X6,BRIDGE   IF EMPTY SEQUENCE                           BRIDGE   4466
                          5160000001 X            SA6    =XCC$BRN+1  LRN = L.TXT - 4                             BRIDGE   4467
          4060  0100000226 +                      RJ     IST         INSERT STORES TO TEMPS.                     BRIDGE   4468
          4061  43600                             MX6    0                                                       FC51198     5
                     5160000000 X                 SA6    L$FUN                                                   FC51198     6
          4062  0100000000 X                      CALL   CG$PAS                                                  BRIDGE   4469
          4063  0400000032 +                      EQ     BRIDGE                                                  BRIDGE   4470
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   124
        SPECIAL PROCESSING ROUTINES (*CALL*)                          ILL 
  
                                        **        ILL - TURPLE CODE LOST.                                        BRIDGE   4472
                                                                                                                 BRIDGE   4473
          4064                           P=ILL    BSSENT 0                                                       BRIDGE   4474
          4064  0400404064 +                      EQ     "BLOWUP"                                                BRIDGE   4475
  
  
  
  
                                        **        MDV - MARK CERTAIN DIMTAB-RESIDENT VARDIMS AS NEEDED.          BRIDGE   4477
                                        *                                                                        BRIDGE   4478
                                        *         MDV MARKS SPAN AND LOWER BOUND OF *MAT* DIMTAB AS              BRIDGE   4479
                                        *         NEEDED.                                                        BRIDGE   4480
                                        *                                                                        BRIDGE   4481
                                                                                                                 BRIDGE   4482
          4065  0400404065 +             MDV      SUBR                                                           BRIDGE   4483
          4066  43044                             MX0    -DM.INFL                                                FC5A231   161
                     5120000000 X                 SA2    =XO$DIM                                                 BRIDGE   4485
          4067  5130000000 X                      SA3    =XL$DIM                                                 BRIDGE   4486
                          36723                   IX7    X2+X3                                                   BRIDGE   4487
                               63770              SB7    X7                                                      BRIDGE   4488
          4070  5222777776                        SA2    X2-1                                                    BRIDGE   4489
                                                                                                                 BRIDGE   4490
          4071  54221                    MDV5     SA2    A2+B1                                                   BRIDGE   4491
                     65227                        SB2    A2-B7                                                   BRIDGE   4492
                          0420004065 +            ZR     B2,EXIT.    IF DIMTAB EXHAUSTED                         BRIDGE   4493
          4072  10422                             BX4    X2                                                      BRIDGE   4494
                                                  HX4    DH.VD                                                   BRIDGE   4495
                                                  LX2    -DH.DIMP                                                BRIDGE   4496
                     43366                        MX3    -DH.DIML                                                BRIDGE   4497
                          15323                   BX3    -X3*X2                                                  BRIDGE   4498
          4073  0324004103 +                      PL     X4,MDV40    IF NOT VARDIM                               BRIDGE   4499
                          20403                   LX4    DH.VDP-DH.MATP                                          BRIDGE   4500
          4074  0324004103 +                      PL     X4,MDV40    IF NOT NEEDED                               BRIDGE   4501
                          63630                   SB6    X3                                                      BRIDGE   4502
                                                                                                                 BRIDGE   4503
          4075  54221                    MDV10    =A2    A2+1                                                    BRIDGE   4504
                     20236                        LX2    59-D1.SPANP-DM.TDP                                      FC5A231   162
                          0322004077 +            PL     X2,MDV20    IF NOT VARIABLE SPAN                        BRIDGE   4506
          4076  20236                             LX2    1+DM.TDP                                                FC5A231   163
                     15120                        BX1    -X0*X2                                                  BRIDGE   4508
                          0100000000 X            CALL   CG$AVO                                                  BRIDGE   4509
                                                                                                                 BRIDGE   4510
          4077  54221                    MDV20    =A2    A2+1                                                    BRIDGE   4511
                                                  LX2    59-D2.LBP-DM.TDP                                        FC5A231   164
                     0322004101 +                 PL     X2,MDV30    IF NOT VARIABLE LOWER BOUND                 BRIDGE   4513
                               20236              LX2    1+DM.TDP                                                FC5A231   165
          4100  15120                             BX1    -X0*X2                                                  BRIDGE   4515
                     0100000000 X                 CALL   CG$AVO                                                  BRIDGE   4516
                                                                                                                 BRIDGE   4517
          4101  67661                    MDV30    =B6    B6-1                                                    BRIDGE   4518
                     0560004075 +                 NZ     B6,MDV10    IF MORE DIMENSIONS TO GO                    BRIDGE   4519
          4102  0400004071 +                      EQ     MDV5                                                    BRIDGE   4520
                                                                                                                 BRIDGE   4521
          4103  22413                    MDV40    LX4    B1,X3                                                   BRIDGE   4522
                                   0              ERRNZ  Z=DD-2                                                  BRIDGE   4523
                     63640                        SB6    X4                                                      BRIDGE   4524
                          54226                   SA2    A2+B6                                                   BRIDGE   4525
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   125
        SPECIAL PROCESSING ROUTINES (*CALL*)                          MDV 
  
          4104  0400004071 +                      EQ     MDV5                                                    BRIDGE   4526
  
  
  
  
          4105                           P=LCC    BSSENT                                                         BRIDGE   4528
          4105  56151                             =A1    B5+OR.1OP                                               BRIDGE   4529
                     7170000013                   SX7    OC$LCC                                                  BRIDGE   4530
                               20164              LX1    0-TP.BIASP+PB.BIASP                                     BRIDGE   4531
          4106  20760                             LX7    PB.GHIJP                                                BRIDGE   4532
                     5125000002                   =A2    B5+OR.2OP                                               BRIDGE   4533
                               12771              BX7    X7+X1                                                   BRIDGE   4534
          4107  20212                             LX2    0-TP.BIASP+PB.TAGP                                      BRIDGE   4535
                     12772                        BX7    X7+X2                                                   BRIDGE   4536
                          6120000120 +            WCODE  X7,PRE.RET                                              BRIDGE   4537
                                                                                                                 BRIDGE   4538
          4124                                    END                                                            BRIDGE   4539
  
                             72400B CM  STORAGE USED            13361 STATEMENTS     2457 SYMBOLS      000026 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           11.437 SECONDS        3153 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ACA           526   PROGRAM*       19/38     25/29     27/11 L   34/13
        ACAA          545   PROGRAM*       27/20 S   27/29     27/48 L
        ADW$            0   EXTERNAL*       8/04     32/12     54/54     82/46     98/25    103/20    109/14    112/22
                                            8/09     45/35     57/57     83/40     98/34    103/25    109/53    112/40
                                            8/10     47/05     58/17     84/16    100/38    106/39    110/02    112/46
                                            8/11     48/54     63/08     89/05    100/38    107/09    110/34    112/51
                                            9/15     50/52     69/29     94/09    101/10    107/35    110/42
                                           12/43     52/03     78/15     95/30    103/19    108/09    112/04
        AIT          2145   PROGRAM*       50/15     52/09     52/36     53/42     56/07 L
                                           50/49     52/26     53/06     54/06     79/05
        AITA         2222   PROGRAM*       56/27 S   57/13     58/20 L
        AIT25        2216   PROGRAM*       58/02     58/13 L
        AIT5         2152   PROGRAM*       56/20     56/23 L
        AIT6         2153   PROGRAM*       56/11     56/21     56/26 L
        AIT60        2161   PROGRAM*       56/33     56/42 L
        AIT7         2170   PROGRAM*       56/29     57/02 L
        AIT8         2174   PROGRAM*       56/38     56/57     57/04     57/11 L
        AI.BASEP       72                  88/27 D   90/28
        AI.BIASL       22                  88/33 D
        AI.BIASP       22                  88/33 D   90/18
        AI.EQVP        73                  88/26 D
        AI.INDXL       22                  88/31 D   88/34
        AI.INDXP        0                  88/31 D   88/34     89/45
        AI.LENL        22                  88/30 D   88/33
        AI.LENP        22                  88/30 D   88/33     89/24     89/45
        AI.LINKL       22                  88/29 D
        AI.LINKP       44                  88/29 D
        AI.ORDL        22                  88/34 D   90/42
        AI.ORDP         0                  88/34 D
        ALT          3472   PROGRAM*      104/17 L  104/23    106/22    106/44    106/49    110/15
        APCON           0   EXTERNAL*      56/31 S
        APSKEL       2143   PROGRAM*       51/22 S   53/51 S   54/14 S   55/08     55/13 L
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   126
        SYMBOLIC REFERENCE TABLE. 
  
        APST          122   PROGRAM*        8/20     10/46 L
        APSTR         124   PROGRAM*        8/24 S   10/48 L   53/46     54/09
        APSTR0        126   PROGRAM*        8/25 S   10/50 L
        AP.CAL         22   CTX            57/11     60/22
        AP.CAP         22   CTX            57/23     60/27
        AP.CRP         66   CTX            53/54     54/25     60/15
        AP.P1P         71   CTX            56/24     56/35
        ARGREG       2731   PROGRAM*       81/19     81/40     81/47 L   85/29 S
        ATF          3104   PROGRAM*       45/08 S   47/31 S   50/04     53/43     63/44 S   75/16 S   84/27 S   89/02
                                           45/25 S   47/50 S   51/35     54/07     69/23     75/24 S   87/11     90/32
                                           46/17 S   48/12     52/17     54/56     70/02     78/50     88/08 L   90/50
                                           46/25 S   48/40 S   52/48     56/08     71/48 S   79/06     88/38     92/09
                                           46/45 S   49/01     53/36     57/15     72/25 S   82/40 S   88/41
        ATS$            0   EXTERNAL*       8/07     16/14     59/40     89/09    123/19
                                            8/31     28/20     84/18    113/08
        AT.CHARP       71                   3/21 D   56/32     57/32     57/36     79/02
        AT.CRP         54                   3/35 D   78/56     79/02
        AT.IOCP        72                   3/20 D   46/38     47/16     47/47     57/35     57/39
        AT.IODPL        2                   3/37 D
        AT.IODPP       60                   3/37 D   46/02     46/43
        AT.IOM          1                   3/28 D
        AT.IOP          0                   3/28 D   46/21     46/38     47/16     47/47     52/22     92/17
        AT.LENP        73                   3/19 D   46/21     47/47     52/22
        AT.LEV0P       67                   3/23 D   48/37     53/35     53/47     54/10     92/13     92/15
        AT.MODEL        5                   3/24 D   49/03     57/29     78/52
        AT.MODEP       62                   3/24 D   48/16     49/04     57/29     57/33     78/52     78/53
        AT.NULP        70                   3/22 D   46/03     47/18     50/05     92/15     92/17
        AT.OPT2L        6                   3/25 D    3/30     57/49     57/53
        AT.OPT2P       54                   3/25 D    3/30     57/53
        AT.P1P         57                   3/33 D
        AT.RESL        21                   3/27 D
        AT.RESP         1                   3/27 D
        AT.STP         61                   3/31 D   63/43
        AT.USEP        60                   3/32 D    3/37
        BN=APL          0   EXTERNAL*      42/08
        BN=CODE         0   EXTERNAL*       8/02     43/41
        BN=CON          0   EXTERNAL*      42/04
        BN=FMT          0   EXTERNAL*      42/06
        BN=IOAP         0   EXTERNAL*      42/10
        BN=NLST         0   EXTERNAL*      42/12
        BN=STRT         0   EXTERNAL*      42/17
        BN=TEM          0   EXTERNAL*      44/05
        BOSA          167   PROGRAM*       12/06 S   12/10     12/54 L
        BP           1275   PROGRAM*       35/08     35/33     35/51 S  100/38    112/04
                                           35/21     35/39     36/18 L  101/10
        BRG1           54   PROGRAM*        8/19      8/29 L
        BRIDGE         32   PROGRAM*        8/01 L    8/01 E  123/42    123/48
        BUFFER        751   PROGRAM*       36/15 L
        B0.             0                   6/11 D
        B1=1            0 
        B1.             1                   6/11 D
        B2.             2                   6/11 D
        B3.             3                   6/11 D
        B4.             4                   6/11 D
        B5.             5                   6/11 D
        B6.             6                   6/11 D
        B7.             7                   6/11 D
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   127
        SYMBOLIC REFERENCE TABLE. 
  
        CAPL         3115   PROGRAM*       45/33 S   51/23     69/07     69/50     83/38 S   87/07     88/54     95/31
                                           48/52 S   55/02     69/35 S   79/09     84/14 S   88/11 L   92/08
        CBN             0   EXTERNAL*       6/36 D   98/25    103/22    108/09    109/53    112/22    112/51
                                           12/39     98/34    106/36    109/14    110/34    112/40
                                           54/54    103/18    107/34    109/17    110/42    112/46
        CC$BRN          0   EXTERNAL*      15/14 S  123/43 S
        CC$CBN          0   EXTERNAL*       6/36
        CC$LNL          0   EXTERNAL*      15/27 S
        CC$OPTL         0   EXTERNAL*      12/36 S  100/30 S  106/17    108/04    109/04    109/28    110/26
        CEC          2374   PROGRAM*       62/04     65/17     66/09 L
        CECA         2406   PROGRAM*       66/27 S   66/32     66/36 L
        CF.FROMP       36   CTX            12/43     98/34    103/25    108/09    110/34    112/40
                                           54/54    103/19    106/39    109/14    110/42    112/46
                                           98/25    103/20    107/35    109/53    112/22    112/51
        CGF          3231   PROGRAM*       63/10     72/31     75/36     93/05 L   94/11     95/56
        CGFA         3243   PROGRAM*       93/07 S   93/14     93/28 L
        CG$AVO          0   EXTERNAL*      57/07    124/41    124/48
        CG$CPL          0   EXTERNAL*      87/47
        CG$INIT         0   EXTERNAL*       8/03
        CG$LABD         0   EXTERNAL*     106/46
        CG$PAS          0   EXTERNAL*      15/16    123/47
        CG$SCT          0   EXTERNAL*      27/18     52/32
        CIR           255   PROGRAM*        9/49     18/25 L   20/34
        CIRA          363   PROGRAM*       18/21     18/26 S   18/44     19/02     20/03     20/46 L
        CIRB          364   PROGRAM*       18/30 S   18/53     19/48     20/47 L
        CIRV          357   PROGRAM*       18/37 S   19/05     19/33     19/41 S   20/04
                                           18/52 S   19/31 S   19/39     19/54     20/45 L
        CIR0          253   PROGRAM*       18/21 L   19/15     19/22     20/12     20/16     20/42
        CIR05         270   PROGRAM*       18/47     18/48     18/52 L
        CIR1          307   PROGRAM*       18/33     19/26 L
        CIR1A         305   PROGRAM*       19/09     19/17 L
        CIR15         335   PROGRAM*       20/09     20/14 L
        CIR2          336   PROGRAM*       19/29     20/20 L
        CIR3          351   PROGRAM*       19/26     20/38 L
        CLF          2223   PROGRAM*       50/13 S   50/47 S   57/56     58/21 L
        CNUM          136   PROGRAM*       10/12 S   10/28 S   11/01 L  101/11    108/19    110/04    112/10
        CONM1        3445   PROGRAM*      102/09    102/31 L
        CONONE          0   EXTERNAL*      97/12     98/46
        CO.ARGC         0   EXTERNAL*       8/18     57/12
        CO.ARGF         0   EXTERNAL*      82/38
        CO.DBER         0   EXTERNAL*      42/21
        CO.STAT         0   EXTERNAL*      38/03     39/11
        CPL          3055   PROGRAM*       82/48     84/28     87/03 L   93/08
        CPLA         3102   PROGRAM*       87/31 S   87/57     88/06 L
        CPLF         3103   PROGRAM*       82/39 S   83/11     84/45     87/25 S   87/52 S   88/07 L   93/20
        CPL10        3100   PROGRAM*       87/37     87/45     87/57 L
        CP#RM           0   CTX            38/10 F
        CSN           140   PROGRAM*       11/03 L   12/18 S   12/46 S   82/55     84/30     86/30     93/13
        CTYP          135   PROGRAM*       10/08 S   10/24 S   10/57 L  108/18    110/03
        DATA10       1422   PROGRAM*       41/02 L   41/06
        DATA20       1425   PROGRAM*       41/02     41/09 L
        DEF           365   PROGRAM*       18/50 S   18/55 S   19/07 S   19/50 S   19/53 S   20/48 L   21/24
        DFR          3043   PROGRAM*       83/19     85/26     86/07 L
        DFR3         3047   PROGRAM*       86/14     86/17 L
        DH.DIML         6   FTX           124/29
        DH.MATP        70   FTX           124/32
        DH.VDP         73   FTX           124/32
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   128
        SYMBOLIC REFERENCE TABLE. 
  
        DM.INFL        30   FTX           124/16
        DM.TDP         35   FTX           124/37    124/39    124/46
        DOC01        3430   PROGRAM*      101/42    101/46 L
        DOC05        3435   PROGRAM*      101/36    102/05 L
        DOC10        3437   PROGRAM*      101/12    102/09 L
        DOC20        3441   PROGRAM*      102/05    102/14 L
        DOO10        3315   PROGRAM*       97/05     97/10 L
        DOO20        3326   PROGRAM*       97/37 L   97/57
        DOO25        3332   PROGRAM*       97/43     97/48 L
        DOO30        3334   PROGRAM*       97/32     97/33     97/55 L
        DOO40        3336   PROGRAM*       97/17     98/03 L
        D1.SPANP        0   FTX           124/37
        D.RFP          23   CTX           101/18    102/23    103/10
        D.TYP          72   CTX            19/04    112/34
        D.^DL           1   CTX            18/29
        D.^DP          51   CTX            18/29
        ECA          2673   PROGRAM*       63/18     72/37     75/42     78/36     78/49 L   80/11
        ECB             0   EXTERNAL*      77/23
        ECS             0   EXTERNAL*      74/07
        EDT          3723   PROGRAM*      113/07 L  113/34    115/05    115/15    115/25
        EF.ORDL        17   FTX            44/41
        ETT          2347   PROGRAM*       45/42     62/28     63/36 L
        ETTA         2361   PROGRAM*       62/31     63/51 S   64/04 L   82/13
        ETTB         2363   PROGRAM*       63/21     63/57 S   64/05 L
        FAF          3120   PROGRAM*       45/29 S   48/41     83/23 S   84/07     84/53 S   88/12 L
        FAR          2465   PROGRAM*       65/14     71/12 L
        FARA         2531   PROGRAM*       71/30 S   71/49     72/40 L
        FARB         2532   PROGRAM*       50/09     71/09     71/35 S   72/09 S   72/35     72/41 L
        FAR0         2464   PROGRAM*       71/09 L   72/17     72/38
        FAR10        2502   PROGRAM*       71/47 L   72/04
        FAR20        2507   PROGRAM*       71/37     72/01 L
        FAR30        2511   PROGRAM*       71/15     72/06 L
        FAR40        2517   PROGRAM*       72/11     72/19 L
        FAR50        2523   PROGRAM*       71/54     72/30 L
        FI.FTP         66   CTX            83/10     84/44     85/20     93/19
        FI.INDXP       14   CTX            87/48
        FI.REGPP       36   CTX            85/18
        FMU          2224   PROGRAM*       56/37     56/56     58/32 L
        FMU10        2227   PROGRAM*       58/38 L   58/40
        FUNA         3002   PROGRAM*       82/05 S   82/28 S   82/44     82/50     83/24 S   83/27     83/46 L
        FUN10        2740   PROGRAM*       82/12     82/21 L
        FVS          2535   PROGRAM*       65/19     73/09     73/12 L
        FVSA         2635   PROGRAM*       73/22 S   74/39     75/47 L
        FVSB         2636   PROGRAM*       73/33 S   73/50     75/26     75/31     75/48 L
        FVSC         2637   PROGRAM*       73/07     73/39 S   74/08 S   74/12     74/55 S   75/40     75/49 L
        FVSD         2640   PROGRAM*       73/43 S   74/37 S   75/35     75/50 L
        FVSE         2641   PROGRAM*       74/57 S   75/18     75/51 L
        FVSF         2642   PROGRAM*       73/10     73/45 S   74/02     74/05 S   74/15     74/27 S   75/52 L
        FVSUKL       2643   PROGRAM*       62/19 S   62/29     63/12     75/44 S   75/53 L
        FVS0         2533   PROGRAM*       73/07 L   75/45
        FVS10        2565   PROGRAM*       73/56     74/15 L
        FVS15        2571   PROGRAM*       74/03     74/24 L
        FVS20        2573   PROGRAM*       74/16     74/29 L
        FVS30        2576   PROGRAM*       73/36     74/35 L
        FVS40        2613   PROGRAM*       75/02     75/11 L
        FVS50        2614   PROGRAM*       75/09     75/15 L
        FVS60        2620   PROGRAM*       74/22     74/33     75/23 L
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   129
        SYMBOLIC REFERENCE TABLE. 
  
        F$RDT           0   EXTERNAL*      16/48     18/27     19/03     28/25    101/16    102/21    103/07
        F.IL            0   EXTERNAL*      36/04
        F.SCT           0   EXTERNAL*       9/28      9/57
        GAR           657   PROGRAM*       26/03     33/10 L   34/33
        GARA          710   PROGRAM*       33/12 S   34/06     34/35 L
        GARB          711   PROGRAM*       33/16 S   34/14     34/36 L
        GARC          712   PROGRAM*       33/23 S   34/02     34/37 L
        GARD          713   PROGRAM*       33/27 S   34/29     34/38 L
        GARE          714   PROGRAM*       33/50 S   33/54     34/05 S   34/20     34/39 L
        GAR20         673   PROGRAM*       34/02 L
        GAR3          706   PROGRAM*       34/28     34/31 L
        GCL          2644   PROGRAM*       45/40     50/10     71/10     73/08     76/08 L
        GFD4         1331   PROGRAM*       37/48     38/03 L
        GFD5         1337   PROGRAM*       38/04     38/18 L
        GFD6         1346   PROGRAM*       37/56     38/27 L
        GLT          3476   PROGRAM*       22/11     34/03     40/32     98/24    104/52    109/13
                                           23/20     40/05     52/15    104/05    105/13    109/37
                                           24/57     40/20     53/40    104/37 L  105/17
        GLT1         3510   PROGRAM*      104/47    105/15 L
        GOV           367   PROGRAM*       18/37     19/32     20/38     22/08     22/42     23/06    110/05
                                           18/52     19/51     21/17 L   22/16     22/47     23/12
                                           19/01     20/20     21/31     22/27     22/54     23/17
                                           19/31     20/31     22/03     22/37     22/57    108/20
        GOVG           30   PROGRAM*        7/10 L   23/19     53/12     98/48 S  102/11 S  118/08 S  122/24 S
                                           23/10     51/20 S   54/18    101/38 S  111/14 S  119/31 S  122/35 S
                                           23/15     51/46     92/12 S  102/01 S  118/02 S  121/24 S
        GOVP1         421   PROGRAM*       22/13 L   23/21
        GOVR            0   PROGRAM*        7/06 L
        GOVRL           1   PROGRAM*        7/07 L
        GOVT            2   PROGRAM*        7/09 L   22/40    108/21 S
        GOV.A         413   PROGRAM*       21/52 L
        GOV.B         413   PROGRAM*       21/53 L
        GOV.GL        442   PROGRAM*       23/09 L
        GOV.GLL       445   PROGRAM*       23/14 L
        GOV.GLU       442   PROGRAM*       23/08 L
        GOV.GP        450   PROGRAM*       23/19 L
        GOV.JT        373   PROGRAM*       21/18     21/26 L
        GOV.K         437   PROGRAM*       22/56 L
        GOV.L         414   PROGRAM*       21/56 L
        GOV.LL        416   PROGRAM*       22/05 L
        GOV.LU        414   PROGRAM*       21/57 L
        GOV.P         420   PROGRAM*       22/10 L
        GOV.Q         435   PROGRAM*       22/49 L
        GOV.R         422   PROGRAM*       22/18 L
        GOV.RL        425   PROGRAM*       22/29 L
        GOV.RU        422   PROGRAM*       22/19 L
        GOV.S         440   PROGRAM*       23/02 L
        GOV.T         431   PROGRAM*       22/40 L
        GOV.X         413   PROGRAM*       21/54 L
        IAC          2302   PROGRAM*       61/07     62/03 L
        IACA         2345   PROGRAM*       62/07 S   62/17     62/33     63/26 L
        IACB         2346   PROGRAM*       62/16 S   62/44     63/27 L
        IAC20        2322   PROGRAM*       62/30     62/43 L
        IAC30        2324   PROGRAM*       62/48 L   63/06
        IAC40        2331   PROGRAM*       62/55     63/08 L
        IAC50        2342   PROGRAM*       63/13     63/21 L
        IAP1         2711   PROGRAM*       81/05 L   81/37     81/38
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   130
        SYMBOLIC REFERENCE TABLE. 
  
        IAP2         2726   PROGRAM*       81/31     81/40 L
        IAW          1727   PROGRAM*       45/09     46/20     46/26     46/46     47/35     47/52     48/07 L
        IAW10        1741   PROGRAM*       48/23     48/35     48/40 L
        IAW20        1750   PROGRAM*       48/42     49/01 L
        IAW30        1755   PROGRAM*       49/08     49/12 L
        IAW40        1757   PROGRAM*       49/13     49/17 L
        IA.BIASP       22   FTX            57/44
        IA.CHARP       11   FTX            57/36
        IA.CRHP        10   FTX            95/50
        IA.IOCP        13   FTX            57/39
        IA.LEFTP       52   FTX            95/47
        IA.MODEL        6   FTX            46/51     47/36
        IA.MODEP       14   FTX            46/54     47/02     47/42     47/45     57/33
        IA.RITEP       22   FTX            95/48
        IA.STP         12   FTX            57/43
        IA.TAGP        52   FTX            57/45
        IA.VARP         5   FTX            57/51
        ICE          2407   PROGRAM*       61/22     62/20     67/09 L
        ICEA         2434   PROGRAM*       67/11 S   67/39     68/14     68/17 L
        ICEB         2435   PROGRAM*       67/21 S   67/36     67/43     68/12 S   68/18 L
        ICE10        2411   PROGRAM*       67/14 L   67/37
        ICE20        2417   PROGRAM*       67/34 L   68/02
        ICE30        2422   PROGRAM*       67/43 L   68/13
        ICE40        2430   PROGRAM*       67/48     68/06 L
        ICP          1602   PROGRAM*       43/39     44/02 L
        ICP10        1620   PROGRAM*       44/23 L   44/44
        ICP20        1623   PROGRAM*       44/19     44/27 L
        ICP30        1626   PROGRAM*       44/35 L   44/48
        ICP40        1630   PROGRAM*       44/35     44/40 L
        IC.NML         10   FTX            59/11
        IC.UNT          1   FTX            47/41
        IF1          3676   PROGRAM*      112/20 L  112/29
        IF2          3705   PROGRAM*      112/16    112/33 L
        IF3          3716   PROGRAM*      112/35    112/49 L
        IH.CAL         22   CTX            19/56     25/34     34/17
        IH.CAP         22   CTX            16/43     20/07     20/14     25/38     27/25     29/25     34/19
        IH.IP          17   CTX            87/13    105/15
        IH.RFP         44   CTX            20/10     25/36     34/15
        IMX1         3774   PROGRAM*      117/28    117/31    117/51    117/55 L
        IMX2         3776   PROGRAM*      117/07    118/04 L
        IM1          3750   PROGRAM*      116/33    116/43 L
        IM2          3757   PROGRAM*      116/53    117/11 L
        IM3          3766   PROGRAM*      117/14    117/35 L
        IM6          4000   PROGRAM*      117/05    118/11 L
        INDEX         132   PROGRAM*        9/17     13/08 S   21/19    100/38    112/04
                                           10/54 L   14/09     82/14    101/10    113/18
        IND0          131   PROGRAM*       10/53 L   14/08     51/30     66/12     71/18     74/45
                                           13/06 S   25/49     62/34     67/18     73/13
        INS           142   PROGRAM*        8/38      9/13     12/05 L
        INS10         144   PROGRAM*       12/09 L   12/40     12/44
        INS20         152   PROGRAM*       12/17     12/26 L
        INS30         155   PROGRAM*       12/28     12/35 L
        INS40         164   PROGRAM*       12/30     12/31     12/46 L
        IOBITS       2265   PROGRAM*       59/18 S   60/26     60/35 L
        IODA         1672   PROGRAM*       46/19 S   46/22     46/29 L   47/33 S   47/48
        IOD10        1664   PROGRAM*       46/07     46/13     46/16 L
        IOF10        3011   PROGRAM*       84/08     84/18 L
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   131
        SYMBOLIC REFERENCE TABLE. 
  
        IOF20        3023   PROGRAM*       84/38     84/41 L
        IOU10        1714   PROGRAM*       47/21     47/27     47/30 L
        IRI           546   PROGRAM*       12/51     24/45     27/41     34/31     81/26     85/22     93/22
                                           18/23     25/44     28/12 L   51/53     83/13     87/19    104/22
                                           20/27     27/28     29/28     81/15     84/47     87/26    110/12
        IRI1          555   PROGRAM*       28/18     28/25 L
        ISA             0   EXTERNAL*      43/38
        IST           226   PROGRAM*       15/15     16/03 L  123/44
        IST10         237   PROGRAM*       16/24 L   17/01
        IST20         245   PROGRAM*       16/32     16/40 L
        I.BCI          21   FTX            41/09     43/43
        I.BSS          24   FTX            42/28     42/28     42/32     42/38     43/28     44/10     44/12
        I.CPL          23   FTX            44/45     44/45
        I.DATA         25   FTX            40/52
        I.ECI          26   FTX            40/45
        I.LOO          33   FTX            42/15
        I.OTR          34   FTX            42/23
        I.RJ3          35   FTX            43/33
        I.UJP          41   FTX            43/36
        I.USE          42   FTX            42/17     43/41     44/05
        I.ZERO         43   FTX            44/23
        JGOTO1       3650   PROGRAM*      110/29    110/37 L
        K=AP            2   FTX            45/26     48/45     69/30     83/33     87/12    111/15
        K=IO            3   FTX            84/09
        K.GL       100000   FTX            54/31     58/01    106/05    107/10    110/07
        LAB          3511   PROGRAM*      100/36    104/07    106/04 L  106/15    106/25    106/27    106/50    107/31
        LABA         3541   PROGRAM*      106/34 S  106/40    106/52 L
        LAB1         3517   PROGRAM*      106/06    106/13    106/17 L
        LAB3         3525   PROGRAM*      106/20    106/29 L
        LAB4         3534   PROGRAM*      106/31    106/44 L
        LAB6         3537   PROGRAM*      106/18    106/49 L
        LALS          225   PROGRAM*       15/24     15/32 L  100/04    101/07
        LDF          3361   PROGRAM*       99/06 S   99/09 L  100/42
        LIR           561   PROGRAM*       26/06     29/07 L   29/31     29/38     29/42
        LIR05         566   PROGRAM*       29/13     29/20 L
        LIR1          573   PROGRAM*       29/18     29/35 L
        LIR2          575   PROGRAM*       29/35     29/40 L
        LL.TXT        130   PROGRAM*       10/52 L   20/23     25/42     33/24     84/49     98/27    123/04
                                           12/12     22/19     27/23     34/25     85/23    106/23    123/16
                                           14/05     22/29     28/13     51/49     86/28    106/29    123/25 S
                                           15/10     22/44     28/21     81/09     87/06    108/23    123/38
                                           15/23 S   24/25     29/21     83/14     93/23    112/08
        LOP           454   PROGRAM*       22/02     23/11     24/16 L   33/53     51/47
                                           22/07     23/16     33/47     33/56 S   81/08
        LOPA          523   PROGRAM*       24/11     24/18 S   26/09 L   33/51
        LOPB          524   PROGRAM*       25/25 S   25/39     26/10 L
        LOPC          525   PROGRAM*       25/19 S   25/30     26/11 L
        LOPE          452   PROGRAM*       24/11 L   24/49     25/47     26/04     26/07
        LOP05         465   PROGRAM*       24/40     24/43 L   24/53
        LOP07         467   PROGRAM*       24/41     24/51 L
        LOP1          471   PROGRAM*       24/32     24/55 L
        LOP15         476   PROGRAM*       25/03     25/07 L
        LOP16         501   PROGRAM*       25/05     25/09     25/11     25/15 L
        LOP17         512   PROGRAM*       25/41     25/44 L
        LOP2          514   PROGRAM*       24/56     25/49 L
        LOP3          521   PROGRAM*       25/57     26/06 L
        LOWER        3050   PROGRAM*       81/06     81/20     81/29     81/42 S   86/20 L
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   132
        SYMBOLIC REFERENCE TABLE. 
  
        LXR          3003   PROGRAM*       12/26     15/28 S   29/15     83/16 S   83/47 L   84/51 S   85/25 S   93/25 S
        L$APL           0   EXTERNAL*      89/20     90/33 S   90/51
        L$APT           0   EXTERNAL*      45/30     48/49     83/35     88/43     89/16
        L$ASG           0   EXTERNAL*     123/37 S
        L$AUD           0   EXTERNAL*      54/49     62/13     63/03     69/18     87/41     87/55 S
        L$CLW           0   EXTERNAL*      50/22
        L$CVT           0   EXTERNAL*       8/29
        L$DIM           0   EXTERNAL*     124/18
        L$DTT           0   EXTERNAL*      14/22 S
        L$ENTP          0   EXTERNAL*      44/28
        L$FPI           0   EXTERNAL*      44/07
        L$FUN           0   EXTERNAL*      16/04     16/12     16/18    123/46 S
        L$GLT           0   EXTERNAL*     110/06
        L$IOT           0   EXTERNAL*      84/11
        L$SAP           0   EXTERNAL*      46/47     62/12     69/12     89/06     95/38
                                           47/38     62/45     82/35     89/15 S   95/44
        L$TST           0   EXTERNAL*      14/16 S
        L$TXT           0   EXTERNAL*      15/13 S   28/14    123/18 S  123/24 S  123/41 S
        L.FET6         15   CTX            38/11
        L.FIT6         34   CTX            38/11
        L.RLB         310                  35/50     36/14 D   36/16
        MDV          4065   PROGRAM*      123/35    124/15 L
        MDV10        4075   PROGRAM*      124/36 L  124/51
        MDV20        4077   PROGRAM*      124/38    124/43 L
        MDV30        4101   PROGRAM*      124/45    124/50 L
        MDV40        4103   PROGRAM*      124/31    124/33    124/54 L
        MDV5         4071   PROGRAM*      124/23 L  124/52    125/01
        MOD             0   EXTERNAL*      37/06     42/18     42/35     42/39     43/11     43/22
        MO.BLKL         1   FTX            37/07     42/19     43/23
        MO.BLKP        10   FTX            37/07     37/10     42/19     42/26     43/23     43/29
        MO.CLIFL       23   FTX            43/12
        MO.CLIFP       35   FTX            43/13
        MO.FUNL         1   FTX            42/36
        MO.FUNP        13   FTX            42/36
        MO.MODEL        3   FTX            42/40
        MO.PROP        11   FTX            37/10     43/29
        MO.SUBP        12   FTX            42/26
        MVE=            0   EXTERNAL*      16/37     35/18     89/13     91/15    123/22
        M.CHAR          6   FTX            42/44     45/22     49/06     78/51     82/11
        M.CPLX          5   FTX            42/47
        M.DBL           4   FTX            29/56     42/46     42/47     56/18     81/36     86/13
        NARGS           0   EXTERNAL*      37/15
        NG.NMEML       17   FTX            59/33
        NG.NMEMP       55   FTX            59/36
        NG.ORDL        17   FTX            59/49
        NSQZLH          0   EXTERNAL*       8/32
        N$VD            0   EXTERNAL*       8/05 S
        N.ALTEN         0   EXTERNAL*     107/06
        N.ARP           0   EXTERNAL*      42/29
        N.BUF           0   EXTERNAL*      38/05     38/16 S   39/21     39/26
        N.EPL           0   EXTERNAL*      44/03
        N.FP            0   EXTERNAL*      43/16
        N.GL            0   EXTERNAL*       8/06
        N.ST            0   EXTERNAL*      14/18     30/39     31/48     51/57     52/53     63/39
        N.STMAX         0   EXTERNAL*      14/17     52/52
        OCIOL         141   PROGRAM*       11/04 L   40/06     42/16 S
        OC$ADDR         0   FTX            39/18     39/25
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   133
        SYMBOLIC REFERENCE TABLE. 
  
        OC$APL          2   FTX            42/09
        OC$BMI          3   FTX            42/14
        OC$BSS          1   FTX            37/14     39/10     39/29
        OC$CON          4   FTX            42/05
        OC$FMT          7   FTX            42/07
        OC$FVEC        10   FTX            37/19     37/54     37/55     38/22     38/22     38/25     39/07     39/08
        OC$IDNT        11   FTX            37/05
        OC$IOM         12   FTX            42/11
        OC$LCC         13   FTX           125/08
        OC$LOO         14   FTX            11/04
        OC$NLST        15   FTX            42/13
        OC$PLIM        16   FTX            39/19     39/19
        OC$TRAC        17   FTX            37/09
        OC$USE         20   FTX            42/04     42/06     42/08     42/10     42/12
        OC.BOS          1   CTX            12/49
        OC.FMA         43   CTX            24/52
        OC.IA          36   CTX            27/38
        OC.JIN         71   CTX           110/09
        OC.JPX         67   CTX            20/06
        OC.LAB          6   CTX           104/20
        OC.LD          50   CTX            24/30     25/10     29/27     87/16    101/16    102/21    103/07
        OC.LDC        103   CTX            25/04     27/21
        OC.LDV        104   CTX            25/12
        OC.NR          24   CTX            18/45
        OC.RJ3         72   CTX            82/53     85/04
        OC.RJ6         73   CTX            82/51     84/29     93/12
        OC.RS           4   CTX            81/18     87/20
        OC.S           55   CTX            24/34
        OC.ST          51   CTX            16/45     16/48     19/28     34/27
        OC.UP          26   CTX            18/46
        OC.XMT         10   CTX            20/26     51/51     81/13
        OPT2          137   PROGRAM*       11/02 L   53/44     59/05     98/18    106/19    109/05    110/35
                                           11/02 E   54/23     62/43    100/11    107/32    109/29    112/05
                                           12/38     58/13     87/36    103/08    108/05    110/27
        OR.OPR          0   FTX            45/18     48/11     82/07
        OR.1OP          1   FTX            37/37     40/46     46/05     59/13     73/51     81/05    109/12    120/14
                                           40/04     45/07     46/49     67/31     73/53     94/07    109/36    125/07
                                           40/19     45/36     47/34     71/27     74/42     95/36    111/08
                                           40/31     45/53     59/06     73/34     75/28    107/14    111/11
        OR.2OP          2   FTX            46/05     47/19     67/56     73/34     75/33     94/05    111/11    122/13
                                           46/23     47/51     71/52     73/53     84/19     95/41    119/13    125/11
                                           46/37     59/13     73/24     75/20     94/05    101/33    121/06
        O$APL           0   EXTERNAL*      89/33
        O$APT           0   EXTERNAL*      88/42     89/18
        O$ASG           0   EXTERNAL*     109/42
        O$AUD           0   EXTERNAL*      63/04     87/46
        O$CAC           0   EXTERNAL*      56/42
        O$CLW           0   EXTERNAL*      50/21
        O$CUT           0   EXTERNAL*      58/33
        O$DIM           0   EXTERNAL*     124/17
        O$DTT           0   EXTERNAL*      33/18     67/24     71/26     73/23     74/40     75/25
                                           53/26     67/52     71/50     73/49     75/17     75/30
        O$ENTP          0   EXTERNAL*      44/16     44/24     44/46
        O$FUN           0   EXTERNAL*      16/06     16/15     31/16
        O$NLST          0   EXTERNAL*      59/26     59/41
        O$SAP           0   EXTERNAL*      46/48     47/37     62/46     89/10     95/52
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   134
        SYMBOLIC REFERENCE TABLE. 
  
        O$SYM           0   EXTERNAL*      37/35     54/28     60/06     77/13    100/14    106/07
                                           42/52     58/03     71/31     85/10    101/26    107/15
                                           48/24     59/19     76/10     97/13    104/53    108/31
        O$TST           0   EXTERNAL*      22/21     29/08     31/39     53/20     66/14     67/44     73/17     82/16
                                           22/31     30/05     33/13     62/39     67/19     71/17     74/48    113/19
        O$TXT           0   EXTERNAL*      12/09     28/26     86/29     98/26    100/44    108/22    112/07    123/21
        PAC          2266   PROGRAM*       49/17     61/03 L
        PAC10        2272   PROGRAM*       61/06     61/10 L
        PAE          2455   PROGRAM*       63/11     69/45 L   72/32     75/37     94/12     95/57
        PAF          2012   PROGRAM*       49/09     50/17     51/17 L   71/53     72/28     75/21     75/29     75/34
        PAFB         2144   PROGRAM*       51/19 S   54/35     55/14 L
        PAF15        2037   PROGRAM*       51/28     52/12 L
        PAF20        2045   PROGRAM*       52/23     52/26 L   52/44
        PAF21        2053   PROGRAM*       52/20     52/41 L
        PAF22        2047   PROGRAM*       52/21     52/31 L
        PAF25        2055   PROGRAM*       51/34     52/46 L
        PAF25A       2062   PROGRAM*       52/51     52/56 L
        PAF26        2064   PROGRAM*       52/50     53/02 L
        PAF27        2065   PROGRAM*       52/57     53/04 L
        PAF3         2100   PROGRAM*       53/33     53/39 L
        PAF30        2070   PROGRAM*       51/40     53/12 L
        PAF35        2110   PROGRAM*       52/24     54/05 L
        PAF40        2116   PROGRAM*       52/27     54/23 L
        PAF5         2024   PROGRAM*       51/37     51/45 L   52/13     52/41     52/43
        PAF55        2130   PROGRAM*       54/33     54/42     54/49 L
        PAF60        2136   PROGRAM*       52/10     53/07     53/57     54/27     54/47     54/56 L
                                           52/37     53/52     54/26     54/44     54/53
        PAF61        2141   PROGRAM*       55/01     55/08 L
        PAG1         3621   PROGRAM*      109/45 L  109/50    109/55
        PAPL         3000   PROGRAM*       83/44 L   88/39 S   89/19     91/11 S
        PAUD         3107   PROGRAM*       69/17     69/56     87/42     87/53     88/09 L
        PB.BIASP       14   FTX            37/18     39/16     40/08     42/06     42/12     43/41    125/09
                                           38/18     39/23     40/51     42/08     42/17     44/05
                                           38/24     39/27     42/04     42/10     43/03     44/08
        PB.GHIJP       60   FTX            37/05     38/25     39/29     42/06     42/13     42/32     43/20     44/05
                                           37/09     39/07     40/07     42/07     42/14     42/38     43/28     44/10
                                           37/14     39/08     40/45     42/08     42/17     43/05     43/32     44/12
                                           37/19     39/10     40/52     42/09     42/23     43/06     43/33     44/23
                                           37/54     39/18     41/09     42/10     42/24     43/08     43/36     44/45
                                           37/55     39/19     42/04     42/11     42/28     43/09     43/41    125/10
                                           38/22     39/25     42/05     42/12     42/31     43/19     43/43
        PB.TAGP        36   FTX            37/14     38/18     39/16     39/29     42/28     43/08     43/36    125/13
                                           37/18     38/22     39/18     40/51     42/32     43/19     44/08
                                           37/19     38/24     39/23     40/52     42/38     43/28     44/10
                                           37/54     38/25     39/25     42/23     43/03     43/32     44/12
                                           37/55     39/10     39/27     42/24     43/05     43/33     44/45
        PCA          2657   PROGRAM*       62/11     64/01     71/43     74/11     75/08
                                           63/23     66/31     72/16     74/21     78/06 L
        PCAF         2704   PROGRAM*       72/03     72/23     74/32     75/13     80/03 L
        PCA10        2665   PROGRAM*       78/20 L   78/22
        PCA20        2670   PROGRAM*       78/24     78/33 L
        PCA5         2662   PROGRAM*       78/11     78/14 L
        PCI          2364   PROGRAM*       61/10     61/25     65/07 L   67/38     94/06
        PCI10        2371   PROGRAM*       65/13     65/17 L
        PCL          1762   PROGRAM*       49/14     50/03 L
        PCLA         2011   PROGRAM*       50/08 S   50/16     50/55 L
        PCL30        1776   PROGRAM*       50/32 L   50/37
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   135
        SYMBOLIC REFERENCE TABLE. 
  
        PCL40        2002   PROGRAM*       50/39     50/44 L
        PCL50        2006   PROGRAM*       50/06     50/52 L
        PCO          2274   PROGRAM*       61/18 L   94/08     95/37     95/42
        PCO10        2300   PROGRAM*       61/21     61/25 L
        PCRA         3306   PROGRAM*       95/40 S   95/43     96/14 L
        PCRB         3307   PROGRAM*       95/08 S   95/15 S   95/55     96/15 L
        PCRC         3310   PROGRAM*       95/26 S   96/04     96/16 L
        PCRD         3311   PROGRAM*       95/29 S   96/05     96/17 L
        PCRE         3312   PROGRAM*       95/27 S   96/06     96/18 L
        PCR10        3260   PROGRAM*       95/09     95/17 L
        PCS           206   PROGRAM*       12/37    100/28    106/26    109/09    123/07
                                           15/03 L  103/21    106/35    109/16
        PCSA          224   PROGRAM*       15/09 S   15/17     15/31 L
        PDB1         3372   PROGRAM*      100/12    100/26    100/32 L
        PFUN         2777   PROGRAM*       82/22 S   82/32 S   83/17     83/43 L
        PGTA         3640   PROGRAM*      110/18 L  110/37
        PIOA         3001   PROGRAM*       83/45 L
        PLI10        1377   PROGRAM*       39/20     39/31 L
        PLI4         1354   PROGRAM*       39/06     39/09 L
        PNA          2231   PROGRAM*       47/04     59/04 L
        PNA10        2251   PROGRAM*       59/54 L   60/33
        PNA20        2253   PROGRAM*       59/55     60/02 L
        PNA30        2262   PROGRAM*       60/16     60/25 L
        PPL          3127   PROGRAM*       87/35     88/53 L
        PPLA         3212   PROGRAM*       88/44     89/01 S   90/41     91/38 L
        PPLE         3123   PROGRAM*       88/41 L   90/34     91/16
        PPL0         3121   PROGRAM*       88/36 L   89/39
        PPL1         3150   PROGRAM*       89/37 L   89/41     91/20
        PPL2         3154   PROGRAM*       89/49     89/53 L
        PPL3         3155   PROGRAM*       89/57 L   90/06
        PPL3A        3160   PROGRAM*       90/10 L   91/32
        PPL4         3167   PROGRAM*       90/31     90/40 L
        PPL5         3173   PROGRAM*       90/53 L   91/06
        PPL6         3177   PROGRAM*       91/01     91/03     91/06 L
        PPL7         3203   PROGRAM*       90/02     90/03     91/20 L   91/36
        PPL8         3205   PROGRAM*       91/25 L   91/31
        PPL9         3211   PROGRAM*       91/27     91/28     91/34 L
        PREA          133   PROGRAM*        9/29 S    9/56     10/55 L   95/22     96/11 S
        PREB          134   PROGRAM*       10/13 S   10/29 S   10/42     10/56 L   95/23     96/10 S
        PRE.RET       120   PROGRAM*       10/42 L   40/11     46/27     94/13     99/07    108/06    111/23    123/26
                                           13/10     40/23     47/06     96/12    100/43    109/06    112/06    125/15
                                           37/08     40/35     47/53     97/30    100/50    109/10    114/10
                                           37/12     41/10     81/45     97/41    102/06    109/20    115/06
                                           37/13     43/44     83/25     97/46    102/12    109/30    115/16
                                           37/20     45/10     84/54     98/01    104/08    110/16    115/26
                                           38/30     45/23     85/30     98/19    107/33    110/28    123/06
                                           39/33     45/43     86/36     98/49    107/36    110/40    123/08
        PRE.0          61   PROGRAM*        8/30      9/03 L   10/03     10/04     98/10    102/26
        PRE.010        61   PROGRAM*        9/07 L    9/26
        PRE.1          64   PROGRAM*        9/12      9/15 L
        PRE.300        74   PROGRAM*        9/36 L    9/54     10/38
        PRE.301        76   PROGRAM*        9/41      9/43 L
        PRE.302       100   PROGRAM*        9/40      9/46 L
        PRE.500       111   PROGRAM*        9/43     10/18 L
        PRE.600       116   PROGRAM*        9/44     10/34 L
        PRE.899       102   PROGRAM*        9/51 L   10/20
        PRE.900       103   PROGRAM*        9/32      9/56 L
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   136
        SYMBOLIC REFERENCE TABLE. 
  
        PSAP         3112   PROGRAM*       69/11     69/53     82/36     88/10 L   89/07
        P=APRET      2012   PROGRAM*       51/15 L   51/15 E
        P=BVD        4040   PROGRAM*      123/03 L  123/03 E
        P=CDCS       1410   PROGRAM*       40/30 L   40/30 E
        P=CDDOT      1405   PROGRAM*       40/18 L   40/18 E
        P=CDLOO      1400   PROGRAM*       40/03 L   40/03 E
        P=DATA       1413   PROGRAM*       40/44 L   40/44 E
        P=DOB        3362   PROGRAM*      100/03 L  100/03 E
        P=DOBZ       3355   PROGRAM*       98/45 L   98/45 E
        P=DOC        3407   PROGRAM*      101/06 L  101/06 E
        P=DOL        3357   PROGRAM*       99/03 L   99/03 E
        P=DOO        3314   PROGRAM*       97/07 L   97/07 E
        P=DOZ        3341   PROGRAM*       98/17 L   98/17 E
        P=DZO        3313   PROGRAM*       97/03 L   97/03 E
        P=ENT        3542   PROGRAM*      107/05 L  107/05 E
        P=EVD        4043   PROGRAM*      123/15 L  123/15 E
        P=FAP        1642   PROGRAM*       45/17 L   45/17 E
        P=FIN        4052   PROGRAM*      123/33 L  123/33 E
        P=FRRET      3043   PROGRAM*       86/06 L   86/06 E
        P=FUN        2733   PROGRAM*       82/06 L   82/06 E
        P=GAP        1637   PROGRAM*       45/05 L   45/05 E
        P=GFD        1316   PROGRAM*       37/28 L   37/28 E
        P=HCAT       3735   PROGRAM*      115/03 L  115/03 E
        P=HCOL       3741   PROGRAM*      115/23 L  115/23 E
        P=HDR        1276   PROGRAM*       37/04 L   37/04 E
        P=HLEX       3254   PROGRAM*       95/05 L   95/05 E
        P=HREL       3256   PROGRAM*       95/11 L   95/11 E
        P=HSBS       3737   PROGRAM*      115/13 L  115/13 E
        P=HSTO       3244   PROGRAM*       94/03 L   94/03 E
        P=IAP        2711   PROGRAM*       81/04 L   81/04 E
        P=ID         4001   PROGRAM*      119/02 L  119/02 E
        P=IF         3664   PROGRAM*      112/03 L  112/03 E
        P=ILL        4064   PROGRAM*      124/03 L  124/03 E
        P=IM         3743   PROGRAM*      116/04 L  116/04 E
        P=INF        3031   PROGRAM*       85/03 L   85/03 E
        P=IOC        1673   PROGRAM*       46/36 L   46/36 E
        P=IOD        1656   PROGRAM*       45/51 L   45/51 E
        P=IOF        3004   PROGRAM*       84/03 L   84/03 E
        P=IOLC       3464   PROGRAM*      103/34 L  103/34 E
        P=IOU        1707   PROGRAM*       47/15 L   47/15 E
        P=JGOC       3641   PROGRAM*      110/25 L  110/25 E
        P=LCC        4105   PROGRAM*      125/06 L  125/06 E
        P=LIB        2742   PROGRAM*       82/26 L   82/26 E
        P=LIBF       2732   PROGRAM*       82/03 L   82/03 E
        P=LRJ        3051   PROGRAM*       86/27 L   86/27 E
        P=MASK       4011   PROGRAM*      120/03 L  120/03 E
        P=MOD        4016   PROGRAM*      121/03 L  121/03 E
        P=PAG        3614   PROGRAM*      109/27 L  109/27 E
        P=PAR        3733   PROGRAM*      113/32 L  113/32 E
        P=PASG       3566   PROGRAM*      108/17 L  108/17 E
        P=PCG        3627   PROGRAM*      110/01 L  110/01 E
        P=PDE        3446   PROGRAM*      103/03 L  103/03 E
        P=PDE1       3443   PROGRAM*      102/20 L  102/20 E
        P=PEX        3560   PROGRAM*      108/03 L  108/03 E
        P=PGT        3601   PROGRAM*      109/03 L  109/03 E
        P=PLA        3467   PROGRAM*      104/03 L  104/03 E
        P=PLIM       1347   PROGRAM*       38/38 L   38/38 E
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   137
        SYMBOLIC REFERENCE TABLE. 
  
        P=RGT        3656   PROGRAM*      111/03 L  111/03 E
        P=SCRET      3213   PROGRAM*       92/05 L   92/05 E
        P=SEG         170   PROGRAM*       13/04 L   13/04 E
        P=SEX        1430   PROGRAM*       42/03 L   42/03 E
        P=SHIFT      4026   PROGRAM*      122/02 L  122/02 E
        P=SUB        2743   PROGRAM*       82/19     82/30 L   82/30 E
        RDW=            0   EXTERNAL*      36/04
        RFB           736   PROGRAM*       35/20     35/38     35/49 L   36/11
        RFBA          750   PROGRAM*       36/03 S   36/05     36/13 L
        RJOFF         366   PROGRAM*       18/39 S   18/57 S   20/49 L   22/43
        RLB           765   PROGRAM*       35/16     36/16 L
        RLBL         1275   PROGRAM*       35/09     35/18     35/24     35/34     35/40     36/04     36/17 L
        ROT           715   PROGRAM*        9/07     35/07 L   35/13     35/25
        ROTA          727   PROGRAM*       35/27 L
        ROT10         724   PROGRAM*       35/17     35/20 L
        ROW           730   PROGRAM*       35/32 L   35/37     35/43     41/03
        R1.CAP         36   CTX            83/07     84/41     86/33     93/15
        R1.H2P         22   CTX           108/27
        R1.IHP          0   CTX            20/40
        R1.INP         36   CTX            12/19     12/47     19/17     24/43     98/31    112/25    112/43
        R1.RIL         20   CTX            24/46     27/43     51/54     81/16
        R1.RIP          0   CTX            27/34
        R1.RJP         40   CTX            19/10     20/22     27/34     51/48     81/10
        R1.RKP         20   CTX            19/10     19/12     27/37
        R1.SOP         20   CTX            19/17     19/19     81/22     87/22
        R2.LONGP       72   CTX            99/05
        SAE          2436   PROGRAM*       62/08     71/16     74/18     74/38     95/17
                                           69/03 L   72/21     74/29     94/04
        SAEA         2454   PROGRAM*       69/04     69/38 L   69/46
        SBM=            0   EXTERNAL*       8/08      8/33
        SCA          3213   PROGRAM*       63/14     72/33     75/38     92/07 L
        SCAA         3223   PROGRAM*       92/25     92/29 L
        SCB          2651   PROGRAM*       71/40     72/13     73/48     75/05     77/12 L
        SC.ADL         22                   3/46 D
        SC.ADP          0                   3/46 D
        SC.MAXTL        6                   3/43 D
        SC.MAXTP       52                   3/43 D
        SC.PNUML        6                   3/42 D   10/09
        SC.PNUMP       60                   3/42 D   10/10
        SC.PROL        22                   3/45 D
        SC.PROP        22                   3/45 D   10/01     10/06
        SC.PTYPL        5                   3/41 D   10/05
        SC.PTYPP       66                   3/41 D   10/06     10/10
        SDT           576   PROGRAM*       29/51 L   52/56
        SDT10         603   PROGRAM*       29/57     30/01     30/05 L
        SDT20         613   PROGRAM*       30/19     30/24 L   30/37     30/50
        SDT21         614   PROGRAM*       30/25 L   30/42
        SDT30         616   PROGRAM*       30/20     30/30 L
        SDT40         622   PROGRAM*       30/21     30/39 L   31/05
        SDT50         626   PROGRAM*       30/22     30/52 L
        SDT.JT        607   PROGRAM*       30/16     30/19 L
        SD.CAL         22                   4/25 D
        SD.CAP          0                   4/25 D   31/24     32/09
        SD.RNL         22                   4/24 D
        SD.RNP         22                   4/24 D   16/27     16/46     31/24     32/08     51/56
        SEX04        1500   PROGRAM*       42/22     42/26 L
        SEX05        1513   PROGRAM*       42/27     42/35 L
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   138
        SYMBOLIC REFERENCE TABLE. 
  
        SEX20        1535   PROGRAM*       43/01     43/08 L
        SEX30        1542   PROGRAM*       42/30     42/33     42/37     42/45     43/11 L
        SEX35        1545   PROGRAM*       43/15     43/19 L
        SEX40        1552   PROGRAM*       43/17     43/22 L
        SEX50        1567   PROGRAM*       43/30     43/36 L
        SEX60        1574   PROGRAM*       43/34     43/41 L
        SEX70        1577   PROGRAM*       42/20     43/24     43/43 L
        SE.BRL         22                   4/05 D
        SE.BRP          0                   4/05 D   10/34
        SE.FIP         73                   3/49 D    9/36
        SE.OCL         11                   3/53 D    9/47
        SE.OCP         55                   3/53 D    9/46
        SE.PNUML        6                   4/12 D   10/25
        SE.PNUMP       14                   4/12 D   10/26
        SE.PROL        22                   4/10 D
        SE.PROP        27                   4/10 D   10/18     10/22
        SE.PTYPL        5                   4/11 D   10/21
        SE.PTYPP       22                   4/11 D   10/22     10/26
        SE.QL          14                   4/03 D
        SE.QP           0                   4/03 D    4/05
        SE.ROPP        72                   3/50 D
        SE.TYPL         3                   3/52 D    9/37
        SE.TYPP        66                   3/52 D    9/36      9/46     10/18     10/34
        SE.1NUML        6                   3/55 D   19/01     19/51     20/31
        SE.1NUMP       42                   3/55 D   19/01     19/51     20/31
        SE.1TYPL        5                   3/54 D   19/01     19/51     20/31
        SE.1TYPP       50                   3/54 D   19/01     19/51     19/51     20/31     20/31
        SE.2NUML        6                   3/57 D   18/52     19/32     20/20
        SE.2NUMP       27                   3/57 D   18/52     19/32     20/20
        SE.2TYPL        5                   3/56 D   18/52     19/32     20/20
        SE.2TYPP       35                   3/56 D   18/52     18/52     19/32     20/20     20/20
        SE.3NUML        6                   4/02 D   18/37     19/31     20/38
        SE.3NUMP       14                   4/02 D   18/37     19/31     20/38
        SE.3TYPL        5                   4/01 D   18/37     19/31     20/38
        SE.3TYPP       22                   4/01 D   18/37     18/37     19/31     19/31     20/38     20/38
        SFT           633   PROGRAM*       30/33     30/46     31/01     31/15 L
        SFT10         636   PROGRAM*       31/20 L   31/23
        SKU.GOP         2                   7/03 D    7/10
        SKU.OP          6                   7/01 D
        SKU.RS          1                   7/02 D    7/06      7/07
        SKU.TMP        26                   7/04 D    7/09
        SMF           356   PROGRAM*       20/29 S   20/33 S   20/44 L   24/14 S   24/19     25/20     26/02 S
        SO.TLOCK      100   CTX             6/11
        SSH1         4034   PROGRAM*      122/20    122/27 L
        SST#            0   EXTERNAL*      16/11
        STR           640   PROGRAM*       29/20     30/02     30/24     30/26     31/38 L   53/02
        STRA          655   PROGRAM*       31/41     32/18 L
        SUBFUN       2744   PROGRAM*       82/24     82/35 L
        SUB1         2754   PROGRAM*       82/50 L   83/29
        SUB15        2756   PROGRAM*       82/52     82/55 L
        SUB2         2767   PROGRAM*       83/18     83/21 L
        SUB20        2760   PROGRAM*       82/57     83/03 L
        SUB3         2771   PROGRAM*       82/41     83/27 L
        SUB5         2750   PROGRAM*       82/44 L   83/41
        SUB6         2753   PROGRAM*       82/42     82/45     82/48 L
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   139
        SYMBOLIC REFERENCE TABLE. 
  
        SUB.RET        72   PROGRAM*        9/28 L   97/53    102/07    108/42    118/09    119/32    121/15    122/25
                                           55/11    101/44    102/18    116/32    118/12    120/16    121/16    122/29
                                           86/15    101/50    103/37    116/51    119/15    120/22    121/25    122/36
                                           86/18    101/54    103/39    116/52    119/21    120/24    122/16
                                           92/27    102/03    108/40    117/38    119/22    121/08    122/22
        SY.CAL         30                   4/17 D   19/35     19/43     22/51     24/35     34/09
        SY.CAP          0                   4/17 D
        SY.IHL         22                   4/16 D
        SY.IHP         30                   4/16 D   20/02     20/40     22/13     23/05
        S$VD            0   EXTERNAL*      25/07     57/02     76/17
        S=AEXIT         0   EXTERNAL*      42/32
        S=BUF           0   EXTERNAL*      39/22
        S=BUFIN         0   EXTERNAL*      84/31
        S=CL            0   EXTERNAL*      50/46
        S=CON           0   EXTERNAL*      25/01     27/22     52/33     56/26     78/07
        S=CP            0   EXTERNAL*      44/11
        S=ENTRY         0   EXTERNAL*      43/28     43/36     43/37
        S=EXIT          0   EXTERNAL*      42/28     42/38
        S=FAR           0   EXTERNAL*      72/30
        S=FAS           0   EXTERNAL*      74/35
        S=FILES         0   EXTERNAL*      39/09     43/32
        S=FMC           0   EXTERNAL*      95/13
        S=FVS           0   EXTERNAL*      73/40
        S=GPL           0   EXTERNAL*      44/06
        S=INIT          0   EXTERNAL*      43/33
        S=LENP          0   EXTERNAL*      42/23
        S=LMC           0   EXTERNAL*      95/06
        S=MMC           0   EXTERNAL*      63/09     94/10
        S=ST            0   EXTERNAL*      16/40     52/08     62/10     63/22     66/30
                                           29/23     53/04     63/15     63/55
        S=TA0           0   EXTERNAL*      43/19
        S=TRACE         0   EXTERNAL*      42/24    108/24
        S=UPW           0   EXTERNAL*      37/11     39/05     39/12
        S=VALUE         0   EXTERNAL*      42/41
        TB0.          100                   6/11 D
        TB1.          101                   6/11 D
        TB2.          102                   6/11 D
        TB3.          103                   6/11 D
        TB4.          104                   6/11 D
        TB5.          105                   6/11 D
        TB6.          106                   6/11 D
        TB7.          107                   6/11 D
        TH.LINEL       22   FTX             9/08
        TH.LINEP       34   FTX             9/09
        TH.MODEL        4   FTX            29/53     45/19     48/13     56/15     81/30     82/08     86/10
        TH.MODEP       22   FTX            29/54     45/20     48/14     56/16     56/19     81/33     82/09     86/11
        TH.SKELL       16   FTX             9/21
        TH.SKELP       56   FTX             9/20
        TP.ADDRM     4000   FTX            54/19
        TP.ADDRP       13   FTX            24/22     24/31     51/39     52/12     52/14     53/14
        TP.ARYL         1   FTX            65/11
        TP.ARYP        15   FTX            25/56     51/33     65/11
        TP.BIASL       30   FTX            37/36     46/56     77/18     80/08    101/55    102/29    105/09    120/18
                                           40/48     47/24     77/21    101/52    101/56    104/38    105/11
                                           46/10     59/08     77/22    101/53    102/28    105/08    111/10
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   140
        SYMBOLIC REFERENCE TABLE. 
  
        TP.BIASP       24   FTX            24/36     47/22     77/19     97/44    102/30    111/13    119/17    122/18
                                           37/38     55/04     79/11    101/47    104/39    111/20    119/28    122/32
                                           40/47     59/09     80/07    101/52    104/41    116/43    120/19    125/09
                                           46/08     73/57     84/20    101/56    109/40    117/56    121/10    125/13
                                           46/50     74/01     95/33    102/28    111/10    118/05    121/21
        TP.CATL         1   FTX            61/05     61/20     67/35
        TP.CATP        11   FTX            61/05     61/20     67/35
        TP.CPFXL        3   FTX           104/45
        TP.CPFXP       16   FTX            45/28     48/47     69/31     83/34     84/10    104/44    104/51    111/17
        TP.EQVP        21   FTX           104/51
        TP.FPL          1   FTX            48/17     53/29
        TP.FPP         22   FTX            48/17     53/29     72/01     72/19     74/06     75/03
                                           52/14     71/36     72/10     73/41     74/30     75/11
                                           52/42     71/38     72/12     73/46     75/01
        TP.INTRL        1   FTX            65/10     71/14     73/35     97/39
        TP.INTRP       12   FTX            24/55     51/26     52/12     71/14     73/35     97/39
                                           25/51     51/33     65/10     72/06     73/37     97/42
        TP.IODPL        2   FTX            45/54     46/02     46/41     59/14     59/20
                                           45/56     46/39     46/43     59/15
        TP.IODPP        7   FTX            45/56     46/41     59/15     59/20
        TP.LCML         1   FTX            48/17     53/29
        TP.LCMP        23   FTX            48/17     52/42     53/29
        TP.ORBIL       50   FTX           109/38    109/54
        TP.ORDL        20   FTX            25/50     53/21     66/13     72/07     80/04     87/08    100/33    107/16
                                           45/37     54/34     67/14     73/14     83/03     88/55    101/27    110/31
                                           48/25     59/21     71/20     74/44     84/32     97/14    103/14
                                           51/27     62/35     71/32     77/14     85/05    100/15    104/42
        TP.ORDP        54   FTX            25/51     51/39     71/21     73/37     80/05     87/09    101/28    111/16
                                           25/56     54/36     71/33     73/41     80/07     88/56    103/16
                                           45/31     59/20     71/36     74/46     83/05     97/20    104/41
                                           45/38     62/36     72/06     74/53     83/36     97/37    104/44
                                           48/26     66/11     72/10     75/01     84/12     98/03    107/17
                                           48/50     67/16     73/15     77/16     84/34    100/17    109/39
                                           51/29     69/33     73/27     77/19     85/07    100/34    110/32
        TP.SHRTL        1   FTX            46/06     73/55    101/35    119/14    121/07
                                           47/20     97/56    101/49    120/15    122/15
        TP.SHRTP       14   FTX            24/31     46/08     73/55    101/35    116/30    119/17    121/07    122/18
                                           24/36     47/20     97/42    101/49    117/57    119/29    121/10    122/33
                                           24/55     47/22     97/44    102/30    118/06    120/15    121/22
                                           46/06     72/27     97/56    116/29    119/14    120/19    122/15
        TSP           173   PROGRAM*       12/07     13/09     14/04 L   14/23     15/04    100/37    123/34
        TS.CLENL       22                   3/10 D
        TS.CLENP       44                   3/10 D   63/45     63/53     66/24
        TS.DEFP        71                   3/06 D
        TS.FRLP        72                   3/05 D   29/10     30/30     30/55
        TS.FROML       22                   3/15 D   67/25
        TS.FROMP       22                   3/15 D   67/26     67/29     68/10
        TS.FRP         73                   3/04 D   29/09     29/10     30/43     31/44     31/51
        TS.RNLL        22                   3/11 D    3/14     30/30     30/55
        TS.RNLP        22                   3/11 D   22/32     29/40     30/30     30/55     32/18
                                            3/14     22/36     30/14     30/34     31/02
        TS.RNUL        22                   3/12 D   30/43     31/53
        TS.RNUP         0                   3/12 D   30/14     30/43     32/18     66/24
        TS.RTVP        70                   3/07 D   67/47     67/55     68/08     68/10
        TS.SUBP        67                   3/08 D  115/14
        TXT0          205   PROGRAM*       14/07 S   14/25 L   15/22 S
        TX0.          120                   6/11 D
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   141
        SYMBOLIC REFERENCE TABLE. 
  
        TX1.          121                   6/11 D
        TX2.          122                   6/11 D
        TX3.          123                   6/11 D
        TX4.          124                   6/11 D
        TX5.          125                   6/11 D
        TX6.          126                   6/11 D
        TX7.          127                   6/11 D
        UAP          1761   PROGRAM*       48/56 S   49/20 L  111/09
        UJP1         3603   PROGRAM*      103/13    108/07    109/09 L  109/31    110/41
        UJP2         3605   PROGRAM*      109/07    109/12 L
        UJP3         3611   PROGRAM*       98/38    103/26    108/10    109/16 L  109/45    110/43    112/47    112/52
        V=APSTR         0   EXTERNAL*      10/48     10/50
        V=ASFMT         0   EXTERNAL*     108/41
        V=ASLAB         0   EXTERNAL*     108/38
        V=CAPST         0   EXTERNAL*      92/30     92/33
        V=CIAST         0   EXTERNAL*      92/32
        V=CIA0S         0   EXTERNAL*      92/35
        V=CISST         0   EXTERNAL*      92/31
        V=CIS0S         0   EXTERNAL*      92/34
        V=DC.OC         0   EXTERNAL*     101/41
        V=DC.OS         0   EXTERNAL*     102/02
        V=DC.OV         0   EXTERNAL*     101/43
        V=DC.O1         0   EXTERNAL*     102/17
        V=DFRS          0   EXTERNAL*      86/08
        V=DOBO          0   EXTERNAL*      97/08
        V=DOC.K         0   EXTERNAL*     101/21
        V=DOZO          0   EXTERNAL*      97/04
        V=IDP2          0   EXTERNAL*     119/23
        V=IDV           0   EXTERNAL*     119/12
        V=IMV           0   EXTERNAL*     116/24
        V=IM2           0   EXTERNAL*     118/11
        V=IOLC0         0   EXTERNAL*     103/36
        V=IOLC1         0   EXTERNAL*     103/38
        V=IPLG0         0   EXTERNAL*      10/50
        V=IPLG1         0   EXTERNAL*      10/46
        V=IPLG2         0   EXTERNAL*      10/46
        V=IPLUG         0   EXTERNAL*      10/48
        V=MASKC         0   EXTERNAL*     120/23
        V=MASKV         0   EXTERNAL*     120/13
        V=MODG          0   EXTERNAL*     121/05
        V=MODP2         0   EXTERNAL*     121/17
        V=NOOP          0   EXTERNAL*       9/25
        V=SHFC          0   EXTERNAL*     117/06
        V=SHFD          0   EXTERNAL*     117/50
        V=SHFD1         0   EXTERNAL*     117/53
        V=SHFS          0   EXTERNAL*     117/26
        V=SHFS1         0   EXTERNAL*     117/30
        V=SHIFV         0   EXTERNAL*     122/12
        V=SHLC          0   EXTERNAL*     122/23
        V=SHRC          0   EXTERNAL*     122/30
        WB.ACTP        13   FTX           106/14
        WB.ARYL         1   FTX            60/12
        WB.ARYP        12   FTX            54/43     60/12     60/14
        WB.BASEL       14   FTX            60/17    105/02
        WB.BASEP       41   FTX            60/18    105/04
        WB.CGSP         4   FTX           106/12    106/14
        WB.DLENL        1   FTX            97/19
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   142
        SYMBOLIC REFERENCE TABLE. 
  
        WB.DLENP       21   FTX            97/19
        WB.DLERL        1   FTX            97/24
        WB.DLERP       16   FTX            97/24
        WB.DLEXL        1   FTX            97/19
        WB.DLEXP       20   FTX            97/19
        WB.DLNOL        5   FTX           100/23    100/24
        WB.DLNOP       16   FTX           100/24
        WB.EQUP        66   FTX            37/47
        WB.EQVP        11   FTX            60/14     60/18
        WB.FDEFL        1   FTX           108/39
        WB.FDEFP       24   FTX           108/39
        WB.FREFP       25   FTX            54/50
        WB.LABL         1   FTX            54/41
        WB.LABP         3   FTX            54/41     54/43     54/50
        WB.LEVNL        2   FTX            48/32
        WB.LEVNP       55   FTX            48/33
        WB.MATP        36   FTX            58/06
        WB.MDFL         1   FTX            42/57
        WB.MDFP        10   FTX            42/57
        WB.NINL         1   FTX            97/28
        WB.NINP        33   FTX            97/28
        WB.PNTL        15   FTX            59/28
        WB.PNTP        57   FTX            59/29
        WB.PRDL         1   FTX            97/24
        WB.PRDP        23   FTX            97/24
        WB.W            1   FTX            37/40     42/53     59/27     60/20     98/07    108/33
                                           37/46     48/30     60/09     97/15    105/01
        WC.BCPL         4   FTX            56/48
        WC.BCPP        30   FTX            56/49     56/52
        WC.BFLL        22   FTX            37/43
        WC.BFLP         0   FTX            37/45
        WC.BRPL        10   FTX            85/15
        WC.CLENL       22   FTX            56/45     76/12
        WC.CLENP       36   FTX            56/46     56/49     63/53     66/28     76/15
        WC.EGLL        17   FTX           107/21    107/24
        WC.EGLP        36   FTX           107/24    107/27
        WC.MRLL        22   FTX            38/08     38/21
        WC.MRLP        36   FTX            37/45
        WC.RAL         30   FTX            56/51     60/21    105/03
        WC.RAP          0   FTX            56/52
        WC.RBP         60   FTX            78/09
        WC.W            2   FTX            37/40     60/20     85/14     98/07    105/01
                                           37/46     76/13     97/40    101/29    107/18
        WIN             0   EXTERNAL*      37/05     38/25     39/29     42/06     42/13     42/32     43/20     44/05
                                           37/09     39/07     40/10     42/07     42/14     42/38     43/28     44/10
                                           37/14     39/08     40/45     42/08     42/17     43/05     43/32     44/12
                                           37/19     39/10     40/52     42/09     42/23     43/06     43/33     44/23
                                           37/54     39/18     41/09     42/10     42/24     43/08     43/36     44/45
                                           37/55     39/19     42/04     42/11     42/28     43/09     43/41    125/15
                                           38/22     39/25     42/05     42/12     42/31     43/19     43/43
        WO.CS           0   EXTERNAL*      40/34 S   95/12
        WO.DOOT         0   EXTERNAL*      40/22 S   57/50    102/16    103/35
        WTE             0   EXTERNAL*      41/07
        X0.            20                   6/11 D
        X1.            21                   6/11 D   81/47     85/28     87/21
        X2.            22                   6/11 D
        X3.            23                   6/11 D
1       BRIDGE - TRANSMOGRIFY PASS 1 OUTPUT.                          COMPASS 3.7-871.     24/05/02. 13.19.13.      PAGE   143
        SYMBOLIC REFERENCE TABLE. 
  
        X4.            24                   6/11 D
        X5.            25                   6/11 D
        X6.            26                   6/11 D
        X7.            27                   6/11 D
        Z$APL           0   EXTERNAL*      89/09
        Z$APT           0   EXTERNAL*       8/09     45/35     48/54     69/29     83/40     89/05
        Z$ASG           0   EXTERNAL*       8/04
        Z$AUD           0   EXTERNAL*      58/17     59/40
        Z$CAC           0   EXTERNAL*       8/11     78/15
        Z$CFT           0   EXTERNAL*      12/43     98/34    103/25    108/09    110/34    112/40
                                           54/54    103/19    106/39    109/14    110/42    112/46
                                           98/25    103/20    107/35    109/53    112/22    112/51
        Z$CUT           0   EXTERNAL*       8/31
        Z$DTT           0   EXTERNAL*     113/08
        Z$FUN           0   EXTERNAL*      32/12     52/03
        Z$GLT           0   EXTERNAL*       8/07    107/09    110/02
        Z$IOT           0   EXTERNAL*       8/10     84/16
        Z$SAP           0   EXTERNAL*      47/05     50/52     57/57     63/08     82/46     84/18     94/09     95/30
        Z$TST           0   EXTERNAL*       9/15    100/38    100/38    101/10    112/04
        Z$TXT           0   EXTERNAL*      16/14     28/20
        Z$VDT           0   EXTERNAL*     123/19
        Z=DD            2   FTX           124/55
        Z=TURP          3   FTX            35/10     35/11     35/24     36/15    100/38    101/10    112/04
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     1601              IDENT  CSKEL
                       1601                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1257 
                                        SCT       LOCAL        1257       322 
  
  
                                        ENTRY POINTS. 
  
                                        B=CSKEL          0+           V=MASKC        267            V=ASLAB        304
                                        F.SCT         1257+           V=MODG         270            V=ASFMT        305
                                        F.SET            0+           V=MODP2        271            V=APSTR        306
                                        V=IMVC         255            V=SHIFV        272            V=IPLUG        307
                                        V=IMV          255            V=SHLC         257            V=IPLG1        310
                                        V=IM2          256            V=SHRC         265            V=IPLG2        311
                                        V=SHFC         257            V=DOBO         273            V=IPLG0        312
                                        V=SHFS         260            V=DOZO         274            V=CAPST        313
                                        V=SHFD         261            V=DOC.K        275            V=CISST        314
                                        V=SHFS1        262            V=DC.OV        276            V=CIAST        315
                                        V=SHFD1        263            V=DC.OC        277            V=CIS0S        316
                                        V=IDVC         264            V=DC.OS        300            V=CIA0S        317
                                        V=IDV          264            V=DC.O1        301            V=DFRS         320
                                        V=IDP2         265            V=IOLC1        302            V=DFRD         321
                                        V=MASKV        266            V=IOLC0        303            V=NOOP         200
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        P=APRET   P=GAP     P=IOD     P=PCG     P=SEX     P=CDLOO   P=HCAT    P=DOZ 
                                        P=BVD     P=GFD     P=IOF     P=PDB     P=SHIFT   P=LIBF    P=HSTO    P=DZO 
                                        P=CGT     P=HDR     P=JGOC    P=PDE     P=SUB     P=IOU     P=ILL     P=DOL 
                                        P=DOEND   P=IAP     P=LCC     P=PEX     S=ERR     P=FAP     S=AEXIT   P=DOB 
                                        P=ENT     P=ID      P=LRJ     P=PGT     S=EXIT    P=PASG    P=LIB     P=DOBZ
                                        P=EVD     P=IF      P=MASK    P=PLA     P=SCRET   P=IOLC    P=RGT     P=DOO 
                                        P=FIN     P=IM      P=MOD     P=PLIM    P=DATA    P=PDE1    S=TRACE   P=HLEX
                                        P=FRRET   P=INF     P=PAG     P=RTNK    P=CDCS    P=HSBS    S=BU      P=HREL
                                        P=FUN     P=IOC     P=PAR     P=SEG     P=CDDOT   P=HCOL    P=DOC 
  
  
  
  
                                                  IDENT  CSKEL                                                   CSKEL       2
                                         CSKEL    SECT   (FORM CODE SKELETON TABLES.)                            CSKEL       3
  
                                                  NOREF  A,F.SCT,SFLAG,LCALL,MAXT,X,Z,BR,B,C                     CSKEL       4
                                   0     .FAST    EQU    0                                                       CSKEL       5
                                   1     .OPT     EQU    1                                                       CSKEL       6
                                   1     .CG      EQU    .OPT                                                    CSKEL       7
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     2
                                                                      CSKEL 
  
                                        *         IN BRIDGE                                                      CSKEL       9
                                                  EXT    P=APRET,P=BVD,P=CGT,P=DOEND,P=ENT,P=EVD,P=FIN,P=FRRET   CSKEL      10
                                                  EXT    P=FUN,P=GAP,P=GFD,P=HDR,P=IAP,P=ID,P=IF,P=IM,P=INF      CSKEL      11
                                                  EXT    P=IOC,P=IOD,P=IOF,P=JGOC,P=LCC,P=LRJ,P=MASK,P=MOD       CSKEL      12
                                                  EXT    P=PAG,P=PAR,P=PCG,P=PDB,P=PDE,P=PEX,P=PGT,P=PLA,P=PLIM  CSKEL      13
                                                  EXT    P=RTNK,P=SEG,P=SEX,P=SHIFT,P=SUB                        CSKEL      14
                                                                                                                 CSKEL      15
                                        *         IN PUC                                                         CSKEL      16
                                                  EXT    S=ERR,S=EXIT                                            CSKEL      17
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     3
        MACROS.                                                       SKEL. 
  
                                        **        THE FOLLOWING ARE ALL MACROS USED BY *SKEL* FOR CODE           CSKEL      19
                                        *         SKELETON ELEMENT GENERATION. NO MACRO RELEVENT TO              CSKEL      20
                                        *         SKELETON CONSTRUCTION SHOULD LIE OUTSIDE *SKEL*.               CSKEL      21
  
  
  
  
                                                                                                                 CSKEL      23
                                         A0       MICRO  1,,/1/                                                  CSKEL      24
                                         TBR      MICRO  1,,/T21/                                                CSKEL      25
                                         IR       MICRO  1,,/T22/                                                CSKEL      26
                                         A0.      MICRO  1,,/10B/                                                CSKEL      27
                                         X1.      MICRO  1,,/21B/                                                CSKEL      28
                                         X6.      MICRO  1,,/26B/                                                CSKEL      29
                                         X7.      MICRO  1,,/27B/                                                CSKEL      30
                                   2     SBR      EQU    2B                                                      CSKEL      31
                                                                                                                 CSKEL      32
                                        **        RMM= - FORCE MICRO EVALUATION FOR REMOTES.                     CSKEL      33
                                                                                                                 CSKEL      34
                                                  MACRO  RMM=,BLK,S,NAME                                         CSKEL      35
                                         BLK      RMT                                                            CSKEL      36
                                        S    1/0"P#_NAME",18/O=NAME_____________________________________________ CSKEL      37
                                         BLK      RMT                                                            CSKEL      38
                                         RMM=     ENDM                                                           CSKEL      39
                                                                                                                 CSKEL      40
                                                  MACRO  SKEL,NAME                                               CSKEL      41
                                         BRT      SET    0                                                       CSKEL      42
                                         MAXT     SET    0                                                       CSKEL      43
                                         BR       SET    0                                                       CSKEL      44
                                         LCALL    SET    0                                                       CSKEL      45
                                         CUR      MICRO  1,,/NAME/                                               CSKEL      46
                                         NAM      MICRO  1,8,/E=NAME        /                                    CSKEL      47
                                         O=NAME   SET    *                                                       CSKEL      48
                                         SCT RMM=  ("NAM" VFD),NAME                                              CSKEL      49
                                         ENT      RMT                                                            CSKEL      50
                                         V=NAME   EQU    E=NAME                                                  CSKEL      51
                                         ENT      RMT                                                            CSKEL      52
                                         SKEL     ENDM                                                           CSKEL      53
  
  
  
  
                                        **        SKEQU - EQUATE CODE SKELETON FOR TURPLE TO OTHER SKELETON.     CSKEL      55
                                                                                                                 CSKEL      56
                                                  MACRO  SKEQU,NEW,OLD                                           CSKEL      57
                                         ENT      RMT                                                            CSKEL      58
                                         V=NEW    EQU    V=OLD                                                   CSKEL      59
                                         ENT      RMT                                                            CSKEL      60
                                         SKEQU    ENDM                                                           CSKEL      61
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     4
        MACROS.                                                       SUBSKEL 
  
                                        **        SUBSKEL - DEFINE CODE SKELETON TO BE SELECTED BY BACK END.     CSKEL      63
                                                                                                                 CSKEL      64
                                                  MACRO  SUBSKEL,NAME                                            CSKEL      65
                                         MAXT     SET    0                                                       CSKEL      66
                                         BR       SET    0                                                       CSKEL      67
                                         BRT      SET    0                                                       CSKEL      68
                                         LCALL    SET    0                                                       CSKEL      69
                                         CUR      MICRO  1,,/NAME/                                               CSKEL      70
                                         NAM      MICRO  1,8,/E=NAME        /                                    CSKEL      71
                                         O=NAME   SET    *                                                       CSKEL      72
                                         SUBSKELS RMM= ("NAM" VFD),NAME                                          CSKEL      73
                                         ENT      RMT                                                            CSKEL      74
                                                  ENTRY  V=NAME                                                  CSKEL      75
                                         V=NAME   EQU    E=NAME                                                  CSKEL      76
                                         ENT      RMT                                                            CSKEL      77
                                         SUBSKEL  ENDM                                                           CSKEL      78
  
  
  
  
                                        **        SUBEQU - EQUATE CODE SKELETON TO BE SELECTED BY BACK END       CSKEL      80
                                        *         TO OTHER SKELETON.                                             CSKEL      81
                                                                                                                 CSKEL      82
                                                  MACRO  SUBEQU,NEW,OLD                                          CSKEL      83
                                         ENT      RMT                                                            CSKEL      84
                                                  ENTRY  V=NEW                                                   CSKEL      85
                                         V=NEW    EQU    V=OLD                                                   CSKEL      86
                                         ENT      RMT                                                            CSKEL      87
                                         SUBEQU   ENDM                                                           CSKEL      88
  
  
  
  
                                        **        ENDS - END MACRO SKELETON.                                     CSKEL      90
                                        *                                                                        CSKEL      91
                                        *         *ENDS* IS IDENTICAL TO *ENDF* EXCEPT THE END SKELETON          CSKEL      92
                                        *         FLAG (BIT 59) IS SET IN THE SKELETON ELEMENT BEFORE            CSKEL      93
                                        *         FLUSHING.                                                      CSKEL      94
                                                                                                                 CSKEL      95
                                                                                                                 CSKEL      96
                                         ENDS     MACRO                                                          CSKEL      97
                                         LABMAX   HERE                                                           CSKEL      98
                                         MAXT     DECMIC MAXT                                                    CSKEL      99
                                         .LC      IFNE   LCALL,0                                                 CSKEL     100
                                         .LC      IFC    EQ,$"L3"$$  IF THIS CALL HAS NO PARAMETER               CSKEL     101
                                         .LC      IFEQ   BRT,0       IF NO BRANCHES INTO THIS SKEL               CSKEL     102
                                         P#"CUR"  MICRO  1,,$"L",6/"MAXT",2/0"L4"$                               CSKEL     103
                                         .LC      ELSE                                                           CSKEL     104
                                                  VFD    "H""L4""L""L2""L3""Q"                                   CSKEL     105
                                         P#"CUR"  MICRO  1,,$,11/0,6/"MAXT",24/0$                                CSKEL     106
                                         .LC      ENDIF                                                          CSKEL     107
                                                  IFEQ   O="CUR",*,1                                             CSKEL     108
                                         O="CUR"  SET    0                                                       CSKEL     109
                                         H        MICRO                                                          CSKEL     110
                                         L        MICRO                                                          CSKEL     111
                                         L2       MICRO                                                          CSKEL     112
                                         L3       MICRO                                                          CSKEL     113
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     5
        MACROS. 
  
                                         L4       MICRO                                                          CSKEL     114
                                         Q        MICRO                                                          CSKEL     115
                                         SFLAG    SET    40B                                                     CSKEL     116
                                         ENDS     ENDM                                                           CSKEL     117
                                        **        FORM  -  FORM INSTRUCTION SKELETON ELEMENT.                    CSKEL     118
                                        *                                                                        CSKEL     119
                                        *         IJK    = I,J,K PORTIONS OF INSTRUCTION BOUNDED BY              CSKEL     120
                                        *                  PARENTHESES.                                          CSKEL     121
                                        *         NAME = OPCODE.                                                 CSKEL     122
                                        *         TYPE = INSTRUCTION TYPE. 0 FOR NORMAL INSTRUCTIONS,            CSKEL     123
                                        *                                  1 FOR CALL INSTRUCTIONS,              CSKEL     124
                                        *                                  2 FOR BRANCH INSTRUCTIONS.            CSKEL     125
                                        *                BIT 5 OF THE TYPE FIELD (BIT 59 OF INSTRUCTION WORD)    CSKEL     126
                                        *                SIGNIFIES START OF SKELETON.                            CSKEL     127
                                        *                                                                        CSKEL     128
                                        *         THIS IS THE MAIN MACRO FOR SKELETON CONSTRUCTION.              CSKEL     129
                                        *         EACH MACRO CREATED BY *DEFINS* AND *DEFUJP* INCLUDES           CSKEL     130
                                        *         A CALL TO *FORM*. THE SECOND AND THIRD PARAMETERS TO           CSKEL     131
                                        *         *FORM* (OPCODE AND TYPE) ARE TAKEN FROM THE *DEFINS*           CSKEL     132
                                        *         OR *DEFUJP* MACRO EXPANSION THAT DEFINED THE MACRO             CSKEL     133
                                        *         NAMED WITH THE OPCODE MNEMONIC IN THE LOCATION FIELD           CSKEL     134
                                        *         OF THE CALL. THE *IJK* PARAMETER IS SUPPLIED TO *FORM* AS      CSKEL     135
                                        *         THE THREE PARAMETERS OF THE MACRO WHOSE NAME IS THIS           CSKEL     136
                                        *         MNEMONIC. THE MACRO FLOW PROCEEDS TOWARD THE FORMATION         CSKEL     137
                                        *         OF THREE MICROS "H", "L" AND "Q"..                             CSKEL     138
                                        *                                                                        CSKEL     139
                                        *         "H"    = INSTRUCTION TYPE AND OPCODE.                          CSKEL     140
                                        *         "L"    = 3*(CONSTANT, AT. INDEX), 1 EACH FOR I, J QND K.       CSKEL     141
                                        *         "Q"    = SET IF 12 BIT Q FIELD PRESENT.                        CSKEL     142
                                        *                                                                        CSKEL     143
                                        *         INSTRUCTION SKELETON ELEMENT FORMAT CREATED BY A CALL          CSKEL     144
                                        *         TO *FORM* IS..                                                 CSKEL     145
                                        *                                                                        CSKEL     146
                                        *         +-----+--------+-----+----+-----+----+-----+----+------------+ CSKEL     147
                                        *         +     +        +     +    +     +    +     +    +            + CSKEL     148
                                        *         + TYP + OPCODE +  I  + I  +  J  + J  +  K  + K  +     Q      + CSKEL     149
                                        *         +     +        + ADDR+ NUM+ ADDR+ NUM+ ADDR+ NUM+  CONSTANT  + CSKEL     150
                                        *         +     +        +     +    +     +    +     +    +            + CSKEL     151
                                        *         +-----+--------+-----+----+-----+----+-----+----+------------+ CSKEL     152
                                        *            6      9       5    6     5    6     5    6       12        CSKEL     153
                                        *                                                                        CSKEL     154
                                        *         *ADDR* IS THE AT. INDEX REFERRED TO ABOVE.                     CSKEL     155
                                                                                                                 CSKEL     156
                                                                                                                 CSKEL     157
                                         FORM     MACRO  IJK,NAME,AD,RTYPE                                       CSKEL     158
                                                  IFC    NE,/AD//,4                                              CSKEL     159
                                         BRT      SET    1           FLAG BRANCH TARGET                          CSKEL     160
                                         LABMAX   RMT                                                            CSKEL     161
                                         .AD      EQU    MAXT                                                    CSKEL     162
                                         LABMAX   RMT                                                            CSKEL     163
                                         BR       SET    0                                                       CSKEL     164
                                         LCALL    SET    0                                                       CSKEL     165
                                                  VFD    "H""L4""L""L2""L3""Q"                                   CSKEL     166
                                         AD BSS 0                                                                CSKEL     167
                                         L MICRO                                                                 CSKEL     168
                                         L2       MICRO                                                          CSKEL     169
                                         L3       MICRO                                                          CSKEL     170
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     6
        MACROS. 
  
                                         L4       MICRO                                                          CSKEL     171
                                         Q        MICRO  1,,$,*P/0$                                              CSKEL     172
                                         X        SET    RTYPE+SFLAG                                             CSKEL     173
                                         SFLAG    SET    0                                                       CSKEL     174
                                         H MICRO 1,,$6/X,9/OC.NAME$                                              CSKEL     175
                                        .1        IRP    IJK                                                     CSKEL     176
                                                  IFC    EQ,/IJK/NULL/,1                                         CSKEL     177
                                                  SKIP   7                                                       CSKEL     178
                                                  IFC    EQ,  IJK ,2                                             CSKEL     179
                                         L        MICRO  1,,$"L",11/0$                                           CSKEL     180
                                                  SKIP   4                                                       CSKEL     181
                                                  IFC    LT, IJK 0 ,2      IF PARAMETER IS A LETTER              CSKEL     182
                                                  SETOTH IJK                                                     CSKEL     183
                                                  SKIP   1                                                       CSKEL     184
                                                  SETCON IJK                                                     CSKEL     185
                                        .1        IRP                                                            CSKEL     186
                                         FORM     ENDM                                                           CSKEL     187
  
  
  
  
                                        **        SETCON  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR          CSKEL     189
                                        *                  A CONSTANT.                                           CSKEL     190
                                        *                                                                        CSKEL     191
                                        *         *SETCON* WILL SET THE I,J OR K NUM FIELD IF THE PARAMETER      CSKEL     192
                                        *         (I,J ORK) PASSED IS NOT PRECEEDED BY A PLUS OR MINUS           CSKEL     193
                                        *         SIGN, NO LENGTH CHECKS ARE MADE. IF THE CONSTANT IS            CSKEL     194
                                        *         SIGNED IT INDICATES AN 18 BIT CONSTANT, *SETCON* WILL          CSKEL     195
                                        *         PUT THE LOWER 12 BITS IN THE Q FIELD, THUS REDEFINING          CSKEL     196
                                        *         IT, AND THE UPPER 6 BITS IN THE RELATIVE NUM FIELD. A          CSKEL     197
                                        *         GIVEN CONSTANT CAN BE THUS PLACED IN THE Q FIELD BY            CSKEL     198
                                        *         PRECEEDING IT WITH A + OR - SIGN. ]HE ADDR FIELD               CSKEL     199
                                        *         DEFINED, TO AT.Q0.                                             CSKEL     200
                                                                                                                 CSKEL     201
                                                                                                                 CSKEL     202
                                         SETCON   MACRO  IJK                                                     CSKEL     203
                                         I MICRO 1,1, IJK                                                        CSKEL     204
                                         .0       IFC    EQ,/"I"/=/                                              CSKEL     205
                                        *         HERE IF IMMEDIATE SYMBOL (=S OR =X). ASSUMES IN K FIELD.       CSKEL     206
                                         L2       MICRO  1,,$,5/AT.S0$                                           CSKEL     207
                                         L3       MICRO  1,,$,18/IJK$                                            CSKEL     208
                                         Q MICRO                                                                 CSKEL     209
                                         .0       ELSE                                                           CSKEL     210
                                        .1        IFC    LT, IJK +                                               CSKEL     211
                                                                                                                 CSKEL     212
                                        *         HERE IF UNSIGNED CONSTANT.                                     CSKEL     213
                                                                                                                 CSKEL     214
                                         L        MICRO  1,,$"L",5/AT.K0,6/IJK$                                  CSKEL     215
                                        .1        ELSE                                                           CSKEL     216
                                                                                                                 CSKEL     217
                                        *         HERE IF SIGNED CONSTANT, (18 BIT Q FIELD).                     CSKEL     218
                                                                                                                 CSKEL     219
                                         L2       MICRO  1,,$,5/AT.Q0$                                           CSKEL     220
                                         L3       MICRO  1,,$,18/IJK$                                            CSKEL     221
                                         Q        MICRO                                                          CSKEL     222
                                         .1       ENDIF                                                          CSKEL     223
                                         .0       ENDIF                                                          CSKEL     224
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     7
        MACROS.                                                       SETCON
  
                                         SETCON   ENDM                                                           CSKEL     225
  
  
  
  
                                        **        SETOTH  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR          CSKEL     227
                                        *                  A NON-CONSTANT.                                       CSKEL     228
                                        *                                                                        CSKEL     229
                                        *         *SETOTH* WILL SET THE NUM FIELD (I,J OR K) TO A CONSTANT       CSKEL     230
                                        *         OBTAINED FROM THE T. MICRO TABLE, THE ADDR FIELD WILL          CSKEL     231
                                        *         BE SET TO POINT TO THE AT. TABLE ENTRY WHICH WILL CONTAIN      CSKEL     232
                                        *         THE ADDRESS OF THE CODE IN *GEN* THAT PROCESSES THIS           CSKEL     233
                                        *         TYPE OF I,J OR K PARAMETER. THE TYPE OF CONSTANT SET IN        CSKEL     234
                                        *         THE NUM FIELD IS ALSO DETERMINED FROM THE I,J OR K             CSKEL     235
                                        *         PARAMETER.                                                     CSKEL     236
                                                                                                                 CSKEL     237
                                                                                                                 CSKEL     238
                                         SETOTH   MACRO  IJK                                                     CSKEL     239
                                                  IFC    EQ,/IJK/"TBR"/,1                                        CSKEL     240
                                         BR       SET    1                                                       CSKEL     241
                                         L        MICRO  1,,$"L",5/AT.IJK,6/IJK.$                                CSKEL     242
                                         FCHAR    MICRO  1,1,/IJK/                                               CSKEL     243
                                                  IFC    EQ,/"FCHAR"/T/,1                                        CSKEL     244
                                         MAXT     MAX    MAXT,IJK.                                               CSKEL     245
                                         SETOTH   ENDM                                                           CSKEL     246
  
  
  
  
                                        **        BRANCH  -  CONTINUE SKELETON ELSEWHERE.                        CSKEL     248
                                        *                                                                        CSKEL     249
                                        *         SKELETON POINTER RESET TO WITHIN OTHER SKELETON.               CSKEL     250
                                                                                                                 CSKEL     251
                                                                                                                 CSKEL     252
                                                  MACRO  BRANCH,AD,TO,IJK                                        CSKEL     253
                                                  FORM   (0,0,=S_TO),0,AD,2                                      CSKEL     254
                                         MAXT     MAX    MAXT,.TO                                                CSKEL     255
                                         BRANCH   ENDM                                                           CSKEL     256
  
  
  
  
                                        **        CALL - CALL AN EXTERNAL PROCESSOR TO PROCESS/ OR PARTIALLY     CSKEL     258
                                        *                PROCESS CURRENT TURPLE.                                 CSKEL     259
                                        *                                                                        CSKEL     260
                                        *         NOTE - CALL MAY HAVE ONE PARAMETER OF ANY TYPE EXCEPT          CSKEL     261
                                        *                18-BIT CONSTANT OR SYMBOL (+/- CON OR =S).              CSKEL     262
                                                                                                                 CSKEL     263
                                                  PURGMAC CALL                                                   CSKEL     264
                                                                                                                 CSKEL     265
                                                  MACRO  CALL,AD,ROUT,I,J                                        CSKEL     266
                                                  FORM   (NULL,NULL,I),0,AD,1                                    CSKEL     267
                                         L4       MICRO  1,,$,4/0,18/=XP=ROUT$                                   CSKEL     268
                                         LCALL    SET    1                                                       CSKEL     269
                                         CALL     ENDM                                                           CSKEL     270
                                                                                                                 CSKEL     271
                                                                                                                 CSKEL     272
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     8
        MACROS.                                                       CALL
  
                                         CALLQ    OPSYN  NIL                                                     CSKEL     273
                                                                                                                 CSKEL     274
                                         CALLC    OPSYN  CALL                                                    CSKEL     275
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE     9
        INSTRUCTION AND OPERAND PROCESSING MACROS.                    INST. 
  
                                                                                                                 CSKEL     277
                                                                                                                 CSKEL     278
                                        *         MICROS USED DURING SKELETON CONSTRUCTION TO DEFINE A           CSKEL     279
                                        *         PARTICULAR TYPE OF OPERATION, OPERAND OR CONSTANT.             CSKEL     280
                                                                                                                 CSKEL     281
                                         N1       MICRO  1,, P2                                                  CSKEL     282
                                         N2       MICRO  1,, P3                                                  CSKEL     283
                                         N3       MICRO  1,, P4                                                  CSKEL     284
                                                                                                                 CSKEL     285
                                                  MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ                          CSKEL     286
                                                  IFC    EQ, OPEQ                                                CSKEL     287
                                         AT.IND   SET    AT.IND+1                                                CSKEL     288
                                         AT.OP    SET    AT.IND                                                  CSKEL     289
                                                  ELSE                                                           CSKEL     290
                                         AT.OP    SET    AT.OPEQ                                                 CSKEL     291
                                                  ENDIF                                                          CSKEL     292
                                         B        MAX    1,SKM.FTYP                                              CSKEL     293
                                         C        SET    SKL.FTYP+SKO.FTYP                                       CSKEL     294
                                         A        SET    SKL.FTYP                                                CSKEL     295
                                         Z        SET    SKL.FTYP                                                CSKEL     296
                                                  DUP    SKU.FTYP/B-SKL.FTYP/B+1                                 CSKEL     297
                                         Z        DECMIC Z                                                       CSKEL     298
                                                  IFLT   SKM.FTYP,0,3                                            CSKEL     299
                                                  IFEQ   SKM.FTYP+A,0,2                                          CSKEL     300
                                         A        SET    B                                                       CSKEL     301
                                         C        SET    C+B                                                     CSKEL     302
                                                  NOREF  OP"Z".                                                  CSKEL     303
                                         OP"Z".   EQU    C                                                       CSKEL     304
                                         A        SET    A+B                                                     CSKEL     305
                                         C        SET    C+B                                                     CSKEL     306
                                         Z        SET    Z+1                                                     CSKEL     307
                                                  NOREF  AT.OP"Z"                                                CSKEL     308
                                         AT.OP"Z" EQU    AT.OP                                                   CSKEL     309
                                                  ENDD                                                           CSKEL     310
                                         SKOP     ENDM                                                           CSKEL     311
  
  
  
  
                                        **        SET THE SKOP NUM SELECTION PARAMETERS                          CSKEL     313
                                                                                                                 CSKEL     314
                                                  MACRO  SKPSET,FTYP,LL,UL,MODULES,OFFSET                        CSKEL     315
                                         SKL.FTYP SET    LL                                                      CSKEL     316
                                         SKU.FTYP SET    UL                                                      CSKEL     317
                                         SKM.FTYP SET    MODULES                                                 CSKEL     318
                                         SKO.FTYP SET    OFFSET                                                  CSKEL     319
                                         SKPSET   ENDM                                                           CSKEL     320
                                                                                                                 CSKEL     321
                                         RG       SKPSET 0,7,1,0                                                 CSKEL     322
                                         OP       SKPSET 1,6,-Z=TURP,0                                           CSKEL     323
                                         SPC      SKPSET 1,4,-Z=TURP,0                                           CSKEL     324
                                         TMP      SKPSET 1,22,1,-1                                               CSKEL     325
                                         CON      SKPSET 0,0,1,0                                                 CSKEL     326
                                         GOP      SKPSET 1,2,1,-1                                                CSKEL     327
                                                                                                                 CSKEL     328
                                   0     AT.IND   SET    0                                                       CSKEL     329
             0                           SKOP     CTEXT                                                          SKOP        2
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    10
        INSTRUCTION AND OPERAND PROCESSING MACROS.                    SKOP
  
                                                                                                                 SKOP        3
                                                                                                                 SKOP        4
                                         A        SKOP   AA,CA,RG                                                SKOP        5
                                         B        SKOP   AB,CB,RG                                                SKOP        6
                                         X        SKOP   AX,CX,RG                                                SKOP        7
                                         L        SKOP   LNU,L,OP,,CON                                           SKOP        8
                                         LU       SKOP   LNU,L,OP,L,CON                                          SKOP        9
                                         LL       SKOP   LNL,LL,OP,,CON                                          SKOP       10
                                         P        SKOP   P,P,OP                                                  SKOP       11
                                         R        SKOP   NONE,IR,OP,,CON                                         SKOP       12
                                         RU       SKOP   NONE,IR,OP,R,CON                                        SKOP       13
                                         RL       SKOP   NONE,IRL,OP,,CON                                        SKOP       14
                                         GP       SKOP   GP,GP,GOP                                               SKOP       15
                                         GL       SKOP   GLN,GL,GOP                                              SKOP       16
                                         GLU      SKOP   GLN,GL,GOP,GL                                           SKOP       17
                                         GLL      SKOP   GLNL,GLL,GOP                                            SKOP       18
                                         T        SKOP   AT,CT,TMP,,CON                                          SKOP       19
                                         Q        SKOP   Q,NONE,CON                                              SKOP       20
                                         S        SKOP   S,NONE,CON                                              SKOP       21
                                         K        SKOP   K,NONE,CON                                              SKOP       22
                                                  ENDX                                                           SKOP       23
                                                                                                                 CSKEL     331
                                                  ECHO   ,JT=("XJUMPS")                                          CSKEL     332
                                         M.JT     DECMIC JC.JT                                                   CSKEL     333
                                                  MACRO  JT,AD,I,J,K                                             CSKEL     334
                                                  FORM   (I,"M.JT",J),JPX,AD,0                                   CSKEL     335
                                                  ENDM                                                           CSKEL     336
                                                  ENDD                                                           CSKEL     337
                                                                                                                 CSKEL     338
                                         ORX      OPSYN  OR                                                      CSKEL     339
                                                  PURGMAC OR                                                     CSKEL     340
                                                                                                                 CSKEL     341
                                                                                                                 CSKEL     342
                                                  MACRO  OPR,NAME,SS                                             CSKEL     343
                                                  MACRO  NAME,AD,I,J,K                                           CSKEL     344
                                                  FORM   (I,J,K),NAME,AD,0                                       CSKEL     345
                                         NAME     ENDM                                                           CSKEL     346
                                         OPR      ENDM                                                           CSKEL     347
                                                                                                                 CSKEL     348
                                                  PURGMAC SST                                                    CSKEL     349
                                                                                                                 CSKEL     350
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    11
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
             0                           OPRDEFS  CTEXT  OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS              OPRDEFS     2
                                        **        OPRDEFS - DEFINE THE PROPERTIES OF THE *IL* INSTRUCTIONS.      OPRDEFS     3
  
  
                                        **        GETARG - GET ARGUMENT STARTING IN COLUMN N FROM STRING SS      OPRDEFS     5
                                        *         M IS MAXIMUM STRING LENGTH                                     OPRDEFS     6
                                        *         NOTE: S IS THE NULL MICRO IF THE ARG HAS LEADING BLANKS        OPRDEFS     7
                                                                                                                 OPRDEFS     8
                                                  MACRO  GETARG,S,N,M,SS                                         OPRDEFS     9
                                         S        MICRO  N-15,M,$SS$                                             OPRDEFS    10
                                         S        MICRO  1,, "S"                                                 OPRDEFS    11
                                         GETARG   ENDM                                                           OPRDEFS    12
                                                                                                                 OPRDEFS    13
                                        **        V= - SCAN FIRST LIST AND SET RESULT TO VALUE IN SECOND LIST    OPRDEFS    14
                                                                                                                 OPRDEFS    15
                                                  MACRO  V=,V,S,L1,L2                                            OPRDEFS    16
                                         V        SET    -1                                                      OPRDEFS    17
                                                  ECHO   3,P1=(L1),P2=(L2)                                       OPRDEFS    18
                                                  IFC    EQ,/S/P1/,2                                             OPRDEFS    19
                                         V        SET    P2                                                      OPRDEFS    20
                                                  STOPDUP                                                        OPRDEFS    21
                                                  ERRMI  V           ILLEGAL MACRO PARAM - S                     OPRDEFS    22
                                         V=       ENDM                                                           OPRDEFS    23
                                                                                                                 OPRDEFS    24
                                        **        FUNIT - DEFINE FUNCTIONAL UNIT CODES FOR *OPR* MACRO           OPRDEFS    25
                                                                                                                 OPRDEFS    26
                                                  MACRO  FUNIT,N,F66,F76                                         OPRDEFS    27
                                         M        IFEQ   .CPU,76,2                                               OPRDEFS    28
                                         N        EQU    F76 F66           DEFAULT TO 6600 UNIT                  OPRDEFS    29
                                         M        SKIP   1                                                       OPRDEFS    30
                                         N        EQU    F66                                                     OPRDEFS    31
                                         FUNIT    ENDM                                                           OPRDEFS    32
  
  
                                        **        FUNCTIONAL UNIT CODES FOR 6600/7600                            OPRDEFS    34
                                        *                                                                        OPRDEFS    35
                                        * UNIT    FUNIT  66,76 UNIT NUMBER                                       OPRDEFS    36
                                                                                                                 OPRDEFS    37
                                                  QUAL   FUNIT                                                   OPRDEFS    38
                                        *PSEUDO   FUNIT  0                                                       OPRDEFS    39
                                         BRANCH   FUNIT  1                                                       OPRDEFS    40
                                         BOOL     FUNIT  2                                                       OPRDEFS    41
                                         SHIFT    FUNIT  3                                                       OPRDEFS    42
                                         IADD     FUNIT  4                                                       OPRDEFS    43
                                         FADD     FUNIT  5                                                       OPRDEFS    44
                                         MULT     FUNIT  6                 MULT2 = 7 FOR A 6600                  OPRDEFS    45
                                         DIVIDE   FUNIT  8                                                       OPRDEFS    46
                                         INC      FUNIT  9                 INC2 = 10 ON A 6600                   OPRDEFS    47
                                         NORM     FUNIT  SHIFT,7                                                 OPRDEFS    48
                                         BJUMP    FUNIT  INC,BRANCH                                              OPRDEFS    49
                                         XJUMP    FUNIT  IADD,BRANCH                                             OPRDEFS    50
                                         LCM      FUNIT  10                LCM PSEUDO FUNCT UNIT FOR 7600        OPRDEFS    51
                                         POPC     FUNIT  DIVIDE,11                                               OPRDEFS    52
                                         PACK     FUNIT  SHIFT,BOOL                                              OPRDEFS    53
                                                  QUAL   *                                                       OPRDEFS    54
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    12
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
                                        **        FORMAT OF THE *OPR* DEFINITION IS -                            OPRDEFS    56
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     5
                                        *                                                                        OPRDEFS    58
                                        *         NAME - MEMONIC NAME OF *IL* INSTRUCTION                        OPRDEFS    59
                                        *         TYPE - INSTRUCTION TYPE ( I - IV )                             OPRDEFS    60
                                        *         COMM - "COMM" IF OPERANDS ARE COMMUTATIVE, ELSE "-"            OPRDEFS    61
                                        *         USI  - "USI" IF INSTRUCTION IS UNSAFE TO MOVE BECAUSE IT       OPRDEFS    62
                                        *                MAY CAUSE AN INTERRUPT ( FLOATING POINT OPERATIONS ).   OPRDEFS    63
                                        *         T9   -  990 EXECUTION TIME OR "-" FOR SPECIAL INST             CCGA092     6
                                        *         T6/T7 - 6600/7600 EXECUTION TIME OR "-" FOR SPECIAL INST       OPRDEFS    64
                                        *                FOR B-JUMPS THE STACK TIME IS USED.                     OPRDEFS    65
                                        *                FOR X-JUMPS THE FALL THROUGH TIME IS USED.              OPRDEFS    66
                                        *                TIME FOR LAB, AND UNCONDITIONAL JUMPS IS SET AT 31      OPRDEFS    67
                                        *                TO ALLOW THEM TO APPEAR IN THE MIDDLE OF A SEQUENCE.    OPRDEFS    68
                                        *         UNIT1 - FUNCTIONAL UNIT WHICH EXECUTES THE INSTRUCTION         OPRDEFS    69
                                        *         UNIT2 - SECOND FUNCTIONAL UNIT, IF AN ALTERNATE UNIT IS        OPRDEFS    70
                                        *               AVAILABLE AND DIFFERENT FROM THE FIRST.                  OPRDEFS    71
                                        *               "FU1" IN THE CASE OF DUPLEXED UNITS ON THE 6600          OPRDEFS    72
                                        *                ( INCREMENT AND MULTIPLY ).                             OPRDEFS    73
                                        *         LEN  - INSTRUCTION LENGTH IN BITS ( 15,30,60,- )               OPRDEFS    74
                                        *         K=J - MISCELLANEOUS INSTRUCTION PROPERTIES                     OPRDEFS    75
                                        *         SPEC - ANY SPECIAL PROPERTIES OF THE INSTRUCTION               OPRDEFS    76
                                        *         B   - BOUNDARY MARKER ( BEGINS OR TERMINATES A BASIC BLOCK )   OPRDEFS    77
                                        *                                                                        OPRDEFS    78
                                        * NAM     OPR ( TYPE  COMM USI T9/T6/T7 UNIT1 UNIT2  LEN K=J  SPEC   B ) CCGA092     7
                                        *         PSEUDO INSTRUCTIONS                                            CCGA092     8
             0                           EOQ      OPR (  IV     -   -  1/ 1/1    -     -      -              A ) CCGA092     9
             0                           BOS      OPR (  IV     -   -      -     -     -      -                ) CCGA092    10
             0                           EOS      OPR (  IV     -   -      -     -     -      -              A ) CCGA092    11
             0                           DAR      OPR (  I      -   -      -     -     -      -                ) CCGA092    12
             0                           RS       OPR (  II     -   -      -     -     -      -       REGST    ) CCGA092    13
             0                           DEF      OPR (  II     -   -      -     -     -      -              D ) CCGA092    14
             0                           LAB      OPR (  IV     -   - 31/31/31   -     -      -              B ) CCGA092    15
             0                           ENT      OPR (  IV     -   -      -     -     -      -              B ) CCGA092    16
                                        *         REGISTER TO REGISTER MACHINE INSTRUCTIONS                      CCGA092    17
             0                           XMT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    18
             0                           AND      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    19
             0                           OR       OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    20
             0                           XOR      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    21
             0                           XMTC     OPR (  I      -   -  3/ 3/2  BOOL    -     15  K=J           ) CCGA092    22
             0                           STR      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    23
             0                           IMP      OPR (  I      -   -  3/ 3/2  BOOL    -     15                ) CCGA092    24
             0                           EQV      OPR (  I    COMM  -  3/ 3/2  BOOL    -     15                ) CCGA092    25
             0                           KLS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    26
             0                           KRS      OPR (  III    -   -  4/ 3/2  SHIFT   -     15  K=J           ) CCGA092    27
             0                           ILS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    28
             0                           IRS      OPR (  I      -   -  4/ 3/2  SHIFT   -     15                ) CCGA092    29
             0                           NR       OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    30
             0                           RNZ      OPR (  I      -  USI 6/ 4/3  NORM    -     15  2R            ) CCGA092    31
             0                           UP       OPR (  I      -   -  3/ 3/2  PACK    -     15  2R            ) CCGA092    32
             0                           PK       OPR (  I      -   -  3/ 3/2  PACK    -     15                ) CCGA092    33
             0                           FA       OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    34
             0                           FS       OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    35
             0                           DFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    36
             0                           DFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    37
             0                           RFA      OPR (  I    COMM USI 7/ 4/4  FADD    -     15                ) CCGA092    38
             0                           RFS      OPR (  I      -  USI 7/ 4/4  FADD    -     15                ) CCGA092    39
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    13
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
             0                           IA       OPR (  I    COMM USI 3/ 3/2  IADD    -     15                ) CCGA092    40
             0                           IS       OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    41
             0                           FM       OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    42
             0                           RFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    43
             0                           DFM      OPR (  I    COMM USI 7/10/5  MULT   FU1    15                ) CCGA092    44
             0                           FMA      OPR (  II     -   -  4/ 3/2  SHIFT   -     15  K=J  ZEROP    ) CCGA092    45
             0                           FD       OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    46
             0                           RFD      OPR (  I      -  USI31/29/20 DIVIDE  -     15                ) CCGA092    47
             0                           NOP      OPR (  III    -   -      -     -     -      -       REGST    ) CCGA092    48
             0                           CX       OPR (  I      -   -  6/ 8/2  POPC    -     15  K=J           ) CCGA092    49
                                        *         MEMORY REFERENCE AND SET (LOAD IMMEDIATE ) INSTRUCTIONS        CCGA092    50
             0                           LD       OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    51
             0                           ST       OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    52
             0                           STT      OPR (  III    -   -  3/ 3/2  INC    FU1    30                ) CCGA092    53
             0                           PLD      OPR (  I      -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    54
             0                           PST      OPR (  I      -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    55
             0                           S        OPR (  II     -   -  3/ 3/2  INC    FU1    30       ZEROP    ) CCGA092    56
             0                           SLD      OPR (  I    COMM  -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    57
             0                           SST      OPR (  I    COMM  -  3/10/2  INC    FU1    15       STORE    ) CCGA092    58
             0                           SA       OPR (  I    COMM  -  3/ 3/2  INC    FU1    15                ) CCGA092    59
             0                           SDL      OPR (  I      -   -  8/ 8/8  INC    FU1    15       LOAD     ) CCGA092    60
             0                           SDS      OPR (  I      -   -  3/10/2  INC    FU1    15       STORE    ) CCGA092    61
             0                           SS       OPR (  I      -   -  3/ 3/2  INC    FU1    15                ) CCGA092    62
             0                           DRL      OPR (  I      -   -  8/ 0/17 LCM     -     15       LOAD2    ) CCGA092    63
             0                           DWL      OPR (  I      -   -  3/ 0/3  LCM     -     15       STORE2   ) CCGA092    64
                                        *         CONDITIONAL JUMPS                                              CCGA092    65
             0                           RJXJ     OPR (  III    -   -  5/ 9/3  XJUMP   -     30       ECJUMP   ) CCGA092    66
             0                           JPX      OPR (  III    -   -  5/11/2  XJUMP   -     30       JUMP   C ) CCGA092    67
             0                           JPBB     OPR (  III    -   -  5/ 8/3  BJUMP   -     30       JUMP   C ) CCGA092    68
                                        *         UNCONDITIONAL JUMPS                                            CCGA092    69
             0                           JIN      OPR (  III    -   - 29/14/13 INC    FU1    30       UJUMP  A ) CCGA092    70
             0                           RJ3      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    71
             0                           RJ6      OPR (  IV     -   - 31/31/31 BRANCH  -     30       UJUMP  A ) CCGA092    72
             0                           UJP      OPR (  IV     -   -  5/14/13 BJUMP  FU1    30       UJUMP  A ) CCGA092    73
                                        *         SPECIAL INSTRUCTIONS FOR THE OPTIMIZER                         CCGA092    74
             0                           ILD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    75
             0                           TLD      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    76
             0                           TST      OPR (  III    -   -  3/10/2  INC    FU1    30       STORE    ) CCGA092    77
             0                           IAZ      OPR (  I    COMM  -  3/ 3/2  IADD    -     15                ) CCGA092    78
             0                           ISZ      OPR (  I      -   -  3/ 3/2  IADD    -     15                ) CCGA092    79
             0                           IM       OPR (  I    COMM  -  7/10/5  MULT   FU1    15                ) CCGA092    80
             0                           LDC      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    81
             0                           LDV      OPR (  III    -   -  8/ 8/8  INC    FU1    30       LOAD     ) CCGA092    82
             0                           CLR      OPR (  II     -   -  4/ 3/2  SHIFT  BOOL   15  K=J  ZEROP    ) CCGA092    83
             0                           SXT      OPR (  I      -   -  3/ 3/2  BOOL   SHIFT  15  K=J           ) CCGA092    84
                                                                                                                 OPRDEFS   156
                                        *         DEFINE MICROS FOR THE CONDITIONAL X AND B JUMPS                OPRDEFS   157
                                                                                                                 OPRDEFS   158
                                         BJUMPS   MICRO  1,,/EQ,NE,GE,LT/                                        OPRDEFS   159
                                         RELOPS   MICRO  1,,/EQ,NE,GT,LT,GE,LE/                                  OPRDEFS   160
                                         XJUMPS   MICRO  1,,/ZR,NZ,PL,MI,IR,OR,DF,ID/                            OPRDEFS   161
                                         ^XJUMPS  MICRO  1,,/NZ,ZR,MI,PL,OR,IR,ID,DF/                            OPRDEFS   162
                                                                                                                 OPRDEFS   163
                                                  PURGMAC GETARG,FUNIT,V=,OPR                                    OPRDEFS   164
                                                  ENDX                                                           OPRDEFS   165
                                                                                                                 CSKEL     352
                                         IOR      OPSYN  OR                                                      CSKEL     353
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    14
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
                                                  PURGMAC OR                                                     CSKEL     354
                                                  MACRO  OR,AD,I,J,K                                             CSKEL     355
                                                  IFC    NE,/K//,2                                               CSKEL     356
                                         AD       IOR    I,J,K                                                   CSKEL     357
                                                  ELSE   1                                                       CSKEL     358
                                         AD       ORX    I,J                                                     CSKEL     359
                                                  ENDM                                                           CSKEL     360
                                                  MACRO  PNR,AD,I,J,K                                            CSKEL     361
                                                  FORM   (I,1,K),NR,AD,0                                         CSKEL     362
                                         PNR      ENDM                                                           CSKEL     363
                                                                                                                 CSKEL     364
                                                                                                                 CSKEL     365
                                                  ECHO   ,OP=(FA,FS,FM,FD)                                       CSKEL     366
                                                  MACRO  OP_R,AD,I,J,K                                           CSKEL     367
                                                  FORM   (I,J,K),OP,AD,20B                                       CSKEL     368
                                                  ENDM                                                           CSKEL     369
                                                  ENDD                                                           CSKEL     370
                                                                                                                 CSKEL     371
                                                                                                                 CSKEL     372
                                                  ECHO   ,OP=(X,B,A)                                             CSKEL     373
                                                  MACRO  SX=OP_K,AD,I,J,K                                        CSKEL     374
                                                  FORM   (I,J,K),STT,AD,0                                        CSKEL     375
                                                  ENDM                                                           CSKEL     376
                                                                                                                 CSKEL     377
                                                  MACRO  SB=OP_K,AD,I,J,K                                        CSKEL     378
                                                  FORM   (I,J,K),STT,AD,0                                        CSKEL     379
                                                  IFNE   BR,0,1                                                  CSKEL     380
                                                  RS     "TBR",0,+SO.TLOCK+SBR                                   CSKEL     381
                                                  ENDM                                                           CSKEL     382
                                                                                                                 CSKEL     383
                                                  MACRO  SX=OP_B,AD,I,J,K                                        CSKEL     384
                                                  FORM   (I,J,K),SA,AD,0                                         CSKEL     385
                                                  ENDM                                                           CSKEL     386
                                                                                                                 CSKEL     387
                                                  MACRO  SB=OP_B,AD,I,J,K                                        CSKEL     388
                                                  FORM   (I,J,K),SA,AD,0                                         CSKEL     389
                                                  IFNE   BR,0,1                                                  CSKEL     390
                                                  RS     "TBR",0,+SO.TLOCK+SBR                                   CSKEL     391
                                                  ENDM                                                           CSKEL     392
                                                                                                                 CSKEL     393
                                                  MACRO  SA=OP_B,AD,I,J,K                                        CSKEL     394
                                                  FORM   (I,J,K),SA,AD,0                                         CSKEL     395
                                                  ENDM                                                           CSKEL     396
                                                                                                                 CSKEL     397
                                                  ENDD                                                           CSKEL     398
                                                                                                                 CSKEL     399
                                                                                                                 CSKEL     400
                                                  ECHO   ,OP=(B,A)                                               CSKEL     401
                                                  MACRO  SX=OP_MB,AD,I,J,K                                       CSKEL     402
                                                  FORM   (I,J,K),SS,AD,0                                         CSKEL     403
                                                  ENDM                                                           CSKEL     404
                                                                                                                 CSKEL     405
                                                  MACRO  SB=OP_MB,AD,I,J,K                                       CSKEL     406
                                                  FORM   (I,J,K),SS,AD,0                                         CSKEL     407
                                                  ENDM                                                           CSKEL     408
                                                                                                                 CSKEL     409
                                                  ENDD                                                           CSKEL     410
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    15
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
                                                                                                                 CSKEL     411
                                         UP.      OPSYN  UP                                                      CSKEL     412
                                         NR.      OPSYN  NR                                                      CSKEL     413
                                                  PURGMAC  UP,NR                                                 CSKEL     414
                                                  MACRO  UP,AD,I,J,K                                             CSKEL     415
                                         AD       UP.    I,J,K                                                   CSKEL     416
                                                  IFNE   BR,0,1                                                  CSKEL     417
                                                  RS     "TBR",1,+SO.RJLK+SBR                                    CSKEL     418
                                                  ENDM                                                           CSKEL     419
                                                  MACRO  NR,AD,I,J,K                                             CSKEL     420
                                         AD       NR.    I,J,K                                                   CSKEL     421
                                                  IFNE   BR,0,1                                                  CSKEL     422
                                                  RS     "TBR",1,+SO.RJLK+SBR                                    CSKEL     423
                                                  ENDM                                                           CSKEL     424
                                                                                                                 CSKEL     425
                                                  ECHO   ,OP=(LAB,UJP,RJ3,RJ6)                                   CSKEL     426
                                         OP.      OPSYN  OP                                                      CSKEL     427
                                                  PURGMAC OP                                                     CSKEL     428
                                                  MACRO  OP,AD,IH                                                CSKEL     429
                                         AD       OP.    ,,IH                                                    CSKEL     430
                                                  ENDM                                                           CSKEL     431
                                                  ENDD                                                           CSKEL     432
                                                                                                                 CSKEL     433
                                                  PURGMAC RJT                                                    CSKEL     434
                                                                                                                 CSKEL     435
                                                  MACRO  RJT,AD,I                                                CSKEL     436
                                         AD       RJ6    I                                                       CSKEL     437
                                                  CALL   LRJ                                                     CSKEL     438
                                                  ENDM                                                           CSKEL     439
                                                                                                                 CSKEL     440
                                                  MACRO  XMTL,AD,I,J,K                                           CSKEL     441
                                         AD       XMT    J,K                                                     CSKEL     442
                                                  RS     J,,";B."                                                CSKEL     443
                                                  ENDM                                                           CSKEL     444
                                                                                                                 CSKEL     445
                                                  ECHO   ,OP=(KRS,KLS)                                           CSKEL     446
                                         OP.      OPSYN  OP                                                      CSKEL     447
                                                  PURGMAC OP                                                     CSKEL     448
                                                                                                                 CSKEL     449
                                                  MACRO  OP,AD,I,J,K                                             CSKEL     450
                                         QQ       MICRO  2,,/I/                                                  CSKEL     451
                                         QQ       DECMIC "QQ"-1                                                  CSKEL     452
                                         AD       SXT    T"QQ",J                                                 CSKEL     453
                                                  OP.    I,T"QQ",K                                               CSKEL     454
                                                  ENDM                                                           CSKEL     455
                                                                                                                 CSKEL     456
                                                  ENDD                                                           CSKEL     457
                                                                                                                 CSKEL     458
                                         LOAD     OPSYN  LD                                                      CSKEL     459
                                                                                                                 CSKEL     460
                                   0     OC.0     EQU    0                                                       CSKEL     461
                                                  USE    0                                                       CSKEL     462
                                                  USE    SCT                                                     CSKEL     463
                                                  ENTRY  F.SCT                                                   CSKEL     464
          1257                           F.SCT    BSS    0                                                       CSKEL     465
                                                  USE    0                                                       CSKEL     466
                                                                                                                 CSKEL     467
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    16
        OPRDEFS - CCG *IL* INSTRUCTION DEFINITIONS                    OPRDEFS 
  
                                         H        MICRO                                                          CSKEL     468
                                         L        MICRO                                                          CSKEL     469
                                         L2       MICRO                                                          CSKEL     470
                                         L3       MICRO                                                          CSKEL     471
                                         L4       MICRO                                                          CSKEL     472
                                         Q        MICRO                                                          CSKEL     473
                                  40     SFLAG    SET    40B                                                     CSKEL     474
                                                                                                                 CSKEL     475
                                                  ENTRY  F.SET                                                   CSKEL     476
             0                           F.SET    BSS    0                                                       CSKEL     477
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    17
        SKEL - INSTRUCTION SKELETON EXPANSIONS. 
  
             0                                    CTEXT  SKEL - INSTRUCTION SKELETON EXPANSIONS.                 SKEL        2
                                                                                                                 SKEL        3
                                                                                                                 SKEL        4
                                        ***       SKEL - INSTRUCTION SKELETON EXPANSIONS.                        SKEL        5
                                        *                                                                        SKEL        6
                                        *         THE SKELETONS DESCRIBE TO PASS 2 (QCG OR BRIDGE) WHAT          SKEL        7
                                        *         PREBINARY INSTRUCTIONS SHOULD BE ISSUED IN RESPONSE TO         SKEL        8
                                        *         A PARTICULAR TURPLE.                                           SKEL        9
                                                                                                                 SKEL       10
             0                          ILL       SKEL                                                           SKEL       11
             0 0                                  CALL   ILL                                                     SKEL       12
                                                  ENDS                                                           SKEL       13
                                                                                                                 SKEL       14
                                                                                                                 SKEL       15
                                                                                                                 SKEL       16
                                                                                                                 SKEL       17
             0                           ADD.I    SKEL                                                           SKEL       18
             0 0                                  IA     R1,L1,L2                                                SKEL       19
             0  40036160220044020000              ENDS                                                           SKEL       20
                                                                                                                 SKEL       21
             1                           ADD.R    SKEL                                                           SKEL       22
             1 0                                  FAR    T1,L1,L2                                                SKEL       23
             1  60030300020044020000              NR     R1,0,T1                                                 SKEL       24
             2  00024160274014000000              ENDS                                                           SKEL       25
                                                                                                                 SKEL       26
             3                           ADD.D    SKEL                                                           SKEL       27
             3 0                                  FA     T1,LU1,LU2                                              SKEL       28
             3  40030300020044020000              DFA    T2,LU1,LU2                                              SKEL       29
             4  00032300220044020000              FA     T3,LL1,LL2                                              SKEL       30
             5  00030300424045020000     ADD.D1   NR     T4,0,T1                                                 SKEL       31
             6  00024300674014000000              FA     T5,T2,T3                                                SKEL       32
             7  00030301060054020000              FA     T6,T4,T5                                                SKEL       33
            10  00030301260154040000              NR     T7,0,T6                                                 SKEL       34
            11  00024301474014050000              DFA    T8,T4,T5                                                SKEL       35
            12  00032301660154040000              NR     T9,0,T8                                                 SKEL       36
            13  00024302074014070000              FA     RU1,T7,T9                                               SKEL       37
            14  00030160260314100000              DFA    RL1,T7,T9                                               SKEL       38
            15  00032200260314100000              ENDS                                                           SKEL       39
                                                                                                                 SKEL       40
            16                           ADD.C    SKEL                                                           SKEL       41
            16 0                                  FAR    T1,LU1,LU2                                              SKEL       42
            16  60030300020044020000              NR     RU1,0,T1                                                SKEL       43
            17  00024160274014000000              FAR    T2,LL1,LL2                                              SKEL       44
            20  20030300224045020000              NR     RL1,0,T2                                                SKEL       45
            21  00024200274014010000              ENDS                                                           SKEL       46
                                                                                                                 SKEL       47
            22                           ADD.B    SKEQU  ADD.I                                                   SKEL       48
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    18
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       SUBTR.
  
                                        *         SUBTRACT INSTRUCTIONS.                                         SKEL       50
                                                                                                                 SKEL       51
                                                                                                                 SKEL       52
            22                           SUB.I    SKEL                                                           SKEL       53
            22 0                                  IS     R1,L1,L2                                                SKEL       54
            22  40037160220044020000              ENDS                                                           SKEL       55
                                                                                                                 SKEL       56
            23                           SUB.R    SKEL                                                           SKEL       57
            23 0                                  FSR    T1,L1,L2                                                SKEL       58
            23  60031300020044020000              NR     R1,0,T1                                                 SKEL       59
            24  00024160274014000000              ENDS                                                           SKEL       60
                                                                                                                 SKEL       61
            25                           SUB.D    SKEL                                                           SKEL       62
            25 0                                  FS     T1,LU1,LU2                                              SKEL       63
            25  40031300020044020000              DFS    T2,LU1,LU2                                              SKEL       64
            26  00033300220044020000              FS     T3,LL1,LL2                                              SKEL       65
            27  00031300424045020000              BRANCH ADD.D1,(T1,T2,T3)                                       SKEL       66
            30  02000360074016000006 +            ENDS                                                           SKEL       67
                                                                                                                 SKEL       68
            31                           SUB.C    SKEL                                                           SKEL       69
            31 0                                  FSR    T1,LU1,LU2                                              SKEL       70
            31  60031300020044020000              NR     RU1,0,T1                                                SKEL       71
            32  00024160274014000000              FSR    T2,LL1,LL2                                              SKEL       72
            33  20031300224045020000              NR     RL1,0,T2                                                SKEL       73
            34  00024200274014010000              ENDS                                                           SKEL       74
                                                                                                                 SKEL       75
            35                           SUB.B    SKEQU  SUB.I                                                   SKEL       76
  
  
  
  
                                        *         MULTIPLY INSTRUCTIONS.                                         SKEL       78
                                                                                                                 SKEL       79
                                                                                                                 SKEL       80
                                                                                                                 SKEL       81
            35                           MUL.I    SKEL   IMVC                                                    SKEL       82
            35 0                                  CALL   IM                                                      SKEL       83
                                                  ENDS                                                           SKEL       84
                                                                                                                 SKEL       85
            35                           IMVC     SUBSKEL                                                        SKEL       86
            35 0                                  IM     R1,L1,L2                                                SKEL       87
            35  40102160220044020000              ENDS                                                           SKEL       88
                                                                                                                 SKEL       89
            36                           IMV      SUBEQU IMVC                                                    SKEL       90
                                                                                                                 SKEL       91
                                        *         OPERATIONS THAT UTILIZE THE SHIFT INSTRUCTION.                 SKEL       92
                                        *         INTEGER MULTIPLY SKELETONS.                                    SKEL       93
                                                                                                                 SKEL       94
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    16
            36                           IM2      SUBSKEL                                                        SKEL       95
                                        *         MULTIPLY BY 2.                                                 SKEL       96
            36 0                                  IA     R1,L1,L1                                                SKEL       97
            36  40036160220044010000              ENDS                                                           SKEL       98
                                         #CD      ENDIF                                                          FC5A128    17
                                                                                                                 SKEL       99
            37                           SHFC     SUBSKEL                                                        SKEL      100
                                        *         MULTIPLY POWER OF 2.                                           SKEL      101
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    19
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MULT. 
  
            37 0                                  KLS    T2,L1,GP1                                               SKEL      102
            40  00020300260011000000              XMT    R1,T2                                                   SKEL      103
            41  00010160260040000000              ENDS                                                           SKEL      104
                                                                                                                 SKEL      105
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    18
            42                           SHFS     SUBSKEL                                                        SKEL      106
                                        *         MULTIPLY SUM OF TWO POWERS OF 2.                               SKEL      107
            42 0                                  KLS    T2,L1,GP2                                               SKEL      108
            43  00020300260011010000              IA     T3,T2,L1                                                SKEL      109
            44  00036300460044010000              KLS    T5,T3,GP1                                               SKEL      110
            46  00020301060151000000              XMT    R1,T5                                                   SKEL      111
            47  00010160260200000000              ENDS                                                           SKEL      112
                                                                                                                 SKEL      113
            50                           SHFD     SUBSKEL                                                        SKEL      114
                                        *         MULTIPLY DIFFERENCE OF TWO POWERS OF 2.                        SKEL      115
            50 0                                  KLS    T2,L1,GP1                                               SKEL      116
            51  00020300260011000000              KLS    T4,L1,GP2                                               SKEL      117
            53  00020300660111010000              IS     R1,T4,T2                                                SKEL      118
            54  00037160260154010000              ENDS                                                           SKEL      119
                                                                                                                 SKEL      120
            55                           SHFS1    SUBSKEL                                                        SKEL      121
                                        *         MULTIPLY POWER OF 2 PLUS 1.                                    SKEL      122
            55 0                                  KLS    T2,L1,GP1                                               SKEL      123
            56  00020300260011000000              IA     R1,T2,L1                                                SKEL      124
            57  00036160260044010000              ENDS                                                           SKEL      125
                                                                                                                 SKEL      126
            60                           SHFD1    SUBSKEL                                                        SKEL      127
                                        *         MULTIPLY POWER OF 2 MINUS 1.                                   SKEL      128
            60 0                                  KLS    T2,L1,GP1                                               SKEL      129
            61  00020300260011000000              IS     R1,T2,L1                                                SKEL      130
            62  00037160260044010000              ENDS                                                           SKEL      131
                                         #CD      ENDIF                                                          FC5A128    19
                                                                                                                 SKEL      132
            63                           MUL.R    SKEL                                                           SKEL      133
            63 0                                  FMR    R1,L1,L2                                                SKEL      134
            63  60040160220044020000              ENDS                                                           SKEL      135
                                                                                                                 SKEL      136
            64                           MUL.D    SKEL                                                           SKEL      137
            64 0                                  FM     T1,LL1,LU2                                              SKEL      138
            64  40040300024044020000              FM     T2,LU1,LL2                                              SKEL      139
            65  00040300220045020000              FA     T3,T1,T2                                                SKEL      140
            66  00030300460014010000              FM     T4,LU1,LU2                                              SKEL      141
            67  00040300620044020000              DFM    T5,LU1,LU2                                              SKEL      142
            70  00042301020044020000              FA     T6,T3,T5                                                SKEL      143
            71  00030301260114040000              FA     RU1,T4,T6                                               SKEL      144
            72  00030160260154050000              DFA    RL1,T4,T6                                               SKEL      145
            73  00032200260154050000              ENDS                                                           SKEL      146
                                                                                                                 SKEL      147
            74                           MUL.C    SKEL                                                           SKEL      148
            74 0                                  FMR    T1,LU1,LU2                                              SKEL      149
            74  60040300020044020000              FMR    T2,LL1,LL2                                              SKEL      150
            75  20040300224045020000              FSR    T3,T1,T2                                                SKEL      151
            76  20031300460014010000              NR     RU1,0,T3                                                SKEL      152
            77  00024160274014020000              FMR    T4,LU1,LL2                                              SKEL      153
           100  20040300620045020000              FMR    T5,LL1,LU2                                              SKEL      154
           101  20040301024044020000              FAR    T6,T4,T5                                                SKEL      155
           102  20030301260154040000              NR     RL1,0,T6                                                SKEL      156
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    20
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MULT. 
  
           103  00024200274014050000              ENDS                                                           SKEL      157
                                                                                                                 SKEL      158
           104                           MUL.B    SKEQU  MUL.I                                                   SKEL      159
  
  
  
  
                                        *         DIVIDE INSTRUCTIONS.                                           SKEL      161
                                                                                                                 SKEL      162
                                                                                                                 SKEL      163
                                                                                                                 SKEL      164
           104                           DIV.I    SKEL   IDVC                                                    SKEL      165
           104 0                                  CALL   ID                                                      SKEL      166
                                                  ENDS                                                           SKEL      167
                                                                                                                 SKEL      168
           104                           IDVC     SUBSKEL                                                        SKEL      169
           104 0                                  PK     T1,0,L2                                                 SKEL      170
           104  40027300074004020000              NR     T2,0,T1                                                 SKEL      171
           105  00024300274014000000              PK     T3,0,L1                                                 SKEL      172
           106  00027300474004010000              FDR    T4,T3,T2                                                SKEL      173
                                         .IDZ     IFEQ   .IDC,1                                                  FC5A483    26
                                                  FMA    T5,60                                                   FC5A483    27
                                                  FA     T6,T5,T4                                                FC5A483    28
                                                  UP     T7,"TBR",T6                                             FC5A483    29
                                                  ILS    R1,"TBR",T7                                             FC5A483    30
                                         .IDZ     ELSE                                                           FC5A483    31
           107  20044300660114010000              UP     T5,"TBR",T4                                             FC5A483    32
           111  00004305074055000302              ILS    R1,"TBR",T5                                             FC5A483    33
                                         .IDZ     ENDIF                                                          FC5A483    34
           112  00022160261214040000              ENDS                                                           SKEL      176
                                                                                                                 SKEL      177
           113                           IDV      SUBEQU IDVC                                                    SKEL      178
                                                                                                                 SKEL      179
           113                           IDP2     SUBSKEL                                                        SKEL      180
                                        *         INTEGER DIVIDE BY POWER OF 2 SKELETON.                         SKEL      181
           113 0                                  KRS    T2,L1,GP1                                               SKEL      182
           114  00021300260011000000              XMT    R1,T2                                                   SKEL      183
           115  00010160260040000000              ENDS                                                           SKEL      184
                                                                                                                 SKEL      185
           116                           DIV.R    SKEL                                                           SKEL      186
           116 0                                  FDR    R1,L1,L2                                                SKEL      187
           116  60044160220044020000              ENDS                                                           SKEL      188
                                                                                                                 SKEL      189
           117                           DIV.D    SKEL                                                           SKEL      190
           117 0                                  FD     T1,LU1,LU2                                              SKEL      191
           117  40044300020044020000              FM     T2,T1,LU2                                               SKEL      192
           120  00040300260004020000              FS     T3,LU1,T2                                               SKEL      193
           121  00031300420054010000              DFS    T4,LU1,T2                                               SKEL      194
           122  00033300620054010000              NR     T5,0,T3                                                 SKEL      195
           123  00024301074014020000              FA     T6,T4,T5                                                SKEL      196
           124  00030301260154040000              DFM    T7,T1,LU2                                               SKEL      197
           125  00042301460004020000              FS     T8,LL1,T7                                               SKEL      198
           126  00031301624054060000              FA     T9,T6,T8                                                SKEL      199
           127  00030302060254070000              FM     T10,T1,LL2                                              SKEL      200
           130  00040302260005020000              FS     T11,T9,T10                                              SKEL      201
           131  00031302460414110000              FD     T12,T11,LU2                                             SKEL      202
           132  00044302660504020000              FA     T13,T1,T12                                              SKEL      203
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    21
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       DIV.
  
           133  00030303060014130000              NR     T14,0,T13                                               SKEL      204
           134  00024303274014140000              DFA    T15,T1,T12                                              SKEL      205
           135  00032303460014130000              FA     RU1,T15,T14                                             SKEL      206
           136  00030160260714150000              DFA    RL1,T15,T14                                             SKEL      207
           137  00032200260714150000              ENDS                                                           SKEL      208
                                                                                                                 SKEL      209
           140                           DIV.C    SKEL                                                           SKEL      210
           140 0                                  FMR    T1,LU1,LL2                                              SKEL      211
           140  60040300020045020000              FMR    T2,LL1,LU2                                              SKEL      212
           141  20040300224044020000              FSR    T3,T2,T1                                                SKEL      213
           142  20031300460054000000              NR     T4,0,T3                                                 SKEL      214
           143  00024300674014020000              FMR    T5,LU1,LU2                                              SKEL      215
           144  20040301020044020000              FMR    T6,LL1,LL2                                              SKEL      216
           145  20040301224045020000              FAR    T7,T5,T6                                                SKEL      217
           146  20030301460214050000              NR     T8,0,T7                                                 SKEL      218
           147  00024301674014060000              FMR    T9,LU2,LU2                                              SKEL      219
           150  20040302020104020000              FMR    T10,LL2,LL2                                             SKEL      220
           151  20040302224105020000              FAR    T11,T9,T10                                              SKEL      221
           152  20030302460414110000              NR     T12,0,T11                                               SKEL      222
           153  00024302674014120000              FDR    RU1,T8,T12                                              SKEL      223
           154  20044160260354130000              FDR    RL1,T4,T12                                              SKEL      224
           155  20044200260154130000              ENDS                                                           SKEL      225
                                                                                                                 SKEL      226
           156                           DIV.B    SKEQU  DIV.I                                                   SKEL      227
                                                                                                                 FC5A150     8
           156                           DVC.R    SKEL               SPECIAL COMPLEX/REAL                        FC5A150     9
           156 0                                  FDR    RU1,LU1,L2                                              FC5A150    10
           156  60044160220044020000              FDR    RL1,LL1,L2                                              FC5A150    11
           157  20044200224044020000              ENDS                                                           FC5A150    12
                                                                                                                 FC5A150    13
                                         #CD      IFEQ   .CG,.OPT                                                FC5A150    14
           160                           DIR.R    SKEL               SPECIAL REAL ROUNDED DIVIDE FOR 1/CON       FC5A150    15
           160 0                                  RFD    R1,L1,L2                                                FC5A150    16
           160  40045160220044020000              ENDS                                                           FC5A150    17
                                                                                                                 FC5A150    18
           161                           DIR.C    SKEL               SPECIAL ROUNDED DIVIDE FOR 1/CON            FC5A150    19
           161 0                                  FMR    T1,LU1,LL2                                              FC5A150    20
           161  60040300020045020000              FMR    T2,LL1,LU2                                              FC5A150    21
           162  20040300224044020000              FSR    T3,T2,T1                                                FC5A150    22
           163  20031300460054000000              NR     T4,0,T3                                                 FC5A150    23
           164  00024300674014020000              FMR    T5,LU1,LU2                                              FC5A150    24
           165  20040301020044020000              FMR    T6,LL1,LL2                                              FC5A150    25
           166  20040301224045020000              FAR    T7,T5,T6                                                FC5A150    26
           167  20030301460214050000              NR     T8,0,T7                                                 FC5A150    27
           170  00024301674014060000              FMR    T9,LU2,LU2                                              FC5A150    28
           171  20040302020104020000              FMR    T10,LL2,LL2                                             FC5A150    29
           172  20040302224105020000              FAR    T11,T9,T10                                              FC5A150    30
           173  20030302460414110000              NR     T12,0,T11                                               FC5A150    31
           174  00024302674014120000              RFD    RU1,T8,T12                                              FC5A150    32
           175  00045160260354130000              RFD    RL1,T4,T12                                              FC5A150    33
           176  00045200260154130000              ENDS                                                           FC5A150    34
                                         #CD      ENDIF                                                          FC5A150    35
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    22
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       UMIN. 
  
                                        *         UNARY MINUS INSTRUCTIONS.                                      SKEL      229
                                                                                                                 SKEL      230
                                                                                                                 SKEL      231
                                                                                                                 SKEL      232
           177                           UMI.I    SKEL                                                           SKEL      233
           177 0                                  XMTC   R1,L1                                                   SKEL      234
           177  40014160220040000000              ENDS                                                           SKEL      235
                                                                                                                 SKEL      236
           200                           UMI.R    SKEQU  UMI.I                                                   SKEL      237
                                                                                                                 SKEL      238
           200                           UMI.D    SKEL                                                           SKEL      239
           200 0                                  XMTC   RU1,LU1                                                 SKEL      240
           200  40014160220040000000              XMTC   RL1,LL1                                                 SKEL      241
           201  00014200224040000000              ENDS                                                           SKEL      242
                                                                                                                 SKEL      243
           202                           UMI.C    SKEQU  UMI.D                                                   SKEL      244
  
  
  
  
                                        *         RELATIONAL OPERATORS.                                          SKEL      246
                                        *                                                                        SKEL      247
                                        *             VAR1 .OP. VAR2 = PERFORM IN VAR MODE, RESULTS = LOGICAL    SKEL      248
                                        *             LOG1 .OP. LOG2 = ILLEGAL.                                  SKEL      249
                                                                                                                 SKEL      250
           202                           LT.I     SKEL                                                           SKEL      251
           202 0                                  IS     T1,L1,L2                                                SKEL      252
           202  40037300020044020000              CLR    T2                                                      SKEL      253
           203  00105300200000000000              IAZ    R1,T1,T2                                                SKEL      254
           204  00100160260014010000              ENDS                                                           SKEL      255
                                                                                                                 SKEL      256
           205                           LT.R     SKEL                                                           SKEL      257
           205 0                                  FSR    T1,L1,L2                                                SKEL      258
           205  60031300020044020000              PNR    R1,0,T1                                                 SKEL      259
           206  00024160274054000000              ENDS                                                           SKEL      260
                                                                                                                 SKEL      261
           207                           LT.D     SKEL                                                           SKEL      262
           207 0                                  FS     T1,LL1,LL2                                              SKEL      263
           207  40031300024045020000              FS     T2,LU1,LU2                                              SKEL      264
           210  00031300220044020000              PNR    T3,0,T2                                                 SKEL      265
           211  00024300474054010000              DFS    T4,LU1,LU2                                              SKEL      266
           212  00033300620044020000              FA     T5,T1,T4                                                SKEL      267
           213  00030301060014030000              FA     RU1,T3,T5                                               SKEL      268
           214  00030160260114040000              ENDS                                                           SKEL      269
                                                                                                                 SKEL      270
           215                           LT.H     SKEL                                                           SKEL      271
           215 0                                  CALL   HREL                                                    SKEL      272
           215  4100000000000 X          LTH1     DEF    R1,,"X6."                                               SKEL      273
           216  00005160200017260000              ENDS                                                           SKEL      274
                                                                                                                 SKEL      275
           217                           LLT      SKEL               ASCII LT                                    SKEL      276
           217 0                                  CALL   HLEX                                                    SKEL      277
           217  4100000000000 X                   BRANCH LTH1                                                    SKEL      278
           220  02000360074016000216 +            ENDS                                                           SKEL      279
                                                                                                                 SKEL      280
           221                           LT.B     SKEQU  LT.I                                                    SKEL      281
                                                                                                                 SKEL      282
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    23
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
           221                           GE.I     SKEL                                                           SKEL      283
           221 0                                  IS     T1,L1,L2                                                SKEL      284
           221  40037300020044020000              CLR    T2                                                      SKEL      285
           222  00105300200000000000              IAZ    T3,T1,T2                                                SKEL      286
           223  00100300460014010000              XMTC   R1,T3                                                   SKEL      287
           224  00014160260100000000              ENDS                                                           SKEL      288
                                                                                                                 SKEL      289
           225                           GE.R     SKEL                                                           SKEL      290
           225 0                                  FSR    T1,L1,L2                                                SKEL      291
           225  60031300020044020000              PNR    T2,0,T1                                                 SKEL      292
           226  00024300274054000000              XMTC   R1,T2                                                   SKEL      293
           227  00014160260040000000              ENDS                                                           SKEL      294
                                                                                                                 SKEL      295
           230                           GE.D     SKEL                                                           SKEL      296
           230 0                                  DFS    T1,LU1,LU2                                              SKEL      297
           230  40033300020044020000              FS     T2,LU1,LU2                                              SKEL      298
           231  00031300220044020000              PNR    T3,0,T2                                                 SKEL      299
           232  00024300474054010000              FS     T4,LL1,LL2                                              SKEL      300
           233  00031300624045020000              FA     T5,T1,T4                                                SKEL      301
           234  00030301060014030000              FA     T6,T3,T5                                                SKEL      302
           235  00030301260114040000              XMTC   RU1,T6                                                  SKEL      303
           236  00014160260240000000              ENDS                                                           SKEL      304
                                                                                                                 SKEL      305
           237                           GE.B     SKEQU  GE.I                                                    SKEL      306
                                                                                                                 SKEL      307
           237                           GE.H     SKEL                                                           SKEL      308
           237 0                                  CALL   HREL                                                    SKEL      309
           237  4100000000000 X          GEH1     DEF    T1,,"X6."                                               SKEL      310
           240  00005300000017260000              XMTC   R1,T1                                                   SKEL      311
           241  00014160260000000000              ENDS                                                           SKEL      312
                                                                                                                 SKEL      313
           242                           LGE      SKEL               ASCII GE                                    SKEL      314
           242 0                                  CALL   HLEX                                                    SKEL      315
           242  4100000000000 X                   BRANCH GEH1                                                    SKEL      316
           243  02000360074016000240 +            ENDS                                                           SKEL      317
                                                                                                                 SKEL      318
           244                           NE.I     SKEL                                                           SKEL      319
           244 0                                  CLR    T1                                                      SKEL      320
           244  40105300000000000000              IS     T2,L1,L2                                                SKEL      321
           245  00037300220044020000              IAZ    T3,T2,T1                                                SKEL      322
           246  00100300460054000000              ISZ    T4,T1,T3                                                SKEL      323
           247  00101300660014020000              OR     R1,T4,T3                                                SKEL      324
           250  00012160260154020000              ENDS                                                           SKEL      325
                                                                                                                 SKEL      326
           251                           NE.R     SKEL                                                           SKEL      327
           251 0                                  FSR    T1,L1,L2                                                SKEL      328
           251  60031300020044020000              PNR    T2,0,T1                                                 SKEL      329
           252  00024300274054000000              CLR    T3                                                      SKEL      330
           253  00105300400000000000              ISZ    T4,T3,T2                                                SKEL      331
           254  00101300660114010000              OR     R1,T2,T4                                                SKEL      332
           255  00012160260054030000              ENDS                                                           SKEL      333
                                                                                                                 SKEL      334
           256                           NE.D     SKEL                                                           SKEL      335
           256 0                                  FS     T1,LU1,LU2                                              SKEL      336
           256  40031300020044020000              FS     T2,LL1,LL2                                              SKEL      337
           257  00031300224045020000              PNR    T3,0,T1                                                 SKEL      338
           260  00024300474054000000              DFS    T4,LU1,LU2                                              FC51325     7
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    24
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
           261  00033300620044020000              PNR    T5,0,T4                                                 FC51325     8
           262  00024301074054030000              CLR    T6                                                      FC51325     9
           263  00105301200000000000              PNR    T7,0,T2                                                 FC51325    10
           264  00024301474054010000              OR     T8,T3,T7                                                FC51325    11
           265  00012301660114060000              OR     T9,T8,T5                                                FC51325    12
           266  00012302060354040000              ISZ    T10,T6,T9                                               FC51325    13
           267  00101302260254100000              OR     RU1,T10,T9                                              FC51325    14
           270  00012160260454100000              ENDS                                                           SKEL      344
                                                                                                                 SKEL      345
           271                           NE.C     SKEQU  NE.D                                                    SKEL      346
                                                                                                                 SKEL      347
           271                           NE.B     SKEQU  NE.I                                                    SKEL      348
                                                                                                                 SKEL      349
           271                           NE.H     SKEL                                                           SKEL      350
           271 0                                  CALL   HREL                                                    SKEL      351
           271  4100000000000 X          NEH1     DEF    T1,,"X6."                                               SKEL      352
           272  00005300000017260000              KLS    T3,T1,1                                                 SKEL      353
           274  00020300460057010000              XMT    R1,T3                                                   SKEL      354
           275  00010160260100000000              ENDS                                                           SKEL      355
                                                                                                                 SKEL      356
           276                           LNE      SKEL               ASCII NE                                    SKEL      357
           276 0                                  CALL   HLEX                                                    SKEL      358
           276  4100000000000 X                   BRANCH NEH1                                                    SKEL      359
           277  02000360074016000272 +            ENDS                                                           SKEL      360
                                                                                                                 SKEL      361
           300                           EQ.I     SKEL                                                           SKEL      362
           300 0                                  IS     T1,L1,L2                                                SKEL      363
           300  40037300020044020000              CLR    T2                                                      SKEL      364
           301  00105300200000000000              IAZ    T3,T1,T2                                                SKEL      365
           302  00100300460014010000              ISZ    T4,T2,T3                                                SKEL      366
           303  00101300660054020000              EQV    R1,T3,T4                                                SKEL      367
           304  00017160260114030000              ENDS                                                           SKEL      368
                                                                                                                 SKEL      369
           305                           EQ.R     SKEL                                                           SKEL      370
           305 0                                  FSR    T1,L1,L2                                                SKEL      371
           305  60031300020044020000              PNR    T2,0,T1                                                 SKEL      372
           306  00024300274054000000              CLR    T3                                                      SKEL      373
           307  00105300400000000000              ISZ    T4,T3,T2                                                SKEL      374
           310  00101300660114010000              EQV    R1,T4,T2                                                SKEL      375
           311  00017160260154010000              ENDS                                                           SKEL      376
                                                                                                                 SKEL      377
           312                           EQ.D     SKEL                                                           SKEL      378
           312 0                                  FS     T1,LU1,LU2                                              SKEL      379
           312  40031300020044020000              PNR    T2,0,T1                                                 SKEL      380
           313  00024300274054000000              DFS    T3,LU1,LU2                                              FC51325    15
           314  00033300420044020000              PNR    T4,0,T3                                                 FC51325    16
           315  00024300674054020000              FS     T5,LL1,LL2                                              FC51325    17
           316  00031301024045020000              CLR    T6                                                      FC51325    18
           317  00105301200000000000              PNR    T7,0,T5                                                 FC51325    19
           320  00024301474054040000              OR     T8,T2,T7                                                FC51325    20
           321  00012301660054060000              OR     T9,T8,T4                                                FC51325    21
           322  00012302060354030000              ISZ    T10,T6,T9                                               FC51325    22
           323  00101302260254100000              EQV    RU1,T9,T10                                              FC51325    23
           324  00017160260414110000              ENDS                                                           SKEL      387
                                                                                                                 SKEL      388
           325                           EQ.C     SKEQU  EQ.D                                                    SKEL      389
                                                                                                                 SKEL      390
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    25
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
           325                           EQ.B     SKEQU  EQ.I                                                    SKEL      391
                                                                                                                 SKEL      392
           325                           EQ.H     SKEL                                                           SKEL      393
           325 0                                  CALL   HREL                                                    SKEL      394
           325  4100000000000 X          EQH1     DEF    T1,,"X6."                                               SKEL      395
           326  00005300000017260000              KLS    T3,T1,1                                                 SKEL      396
           330  00020300460057010000              XMTC   R1,T3                                                   SKEL      397
           331  00014160260100000000              ENDS                                                           SKEL      398
                                                                                                                 SKEL      399
           332                           LEQ      SKEL               ASCII EQ                                    SKEL      400
           332 0                                  CALL   HLEX                                                    SKEL      401
           332  4100000000000 X                   BRANCH EQH1                                                    SKEL      402
           333  02000360074016000326 +            ENDS                                                           SKEL      403
  
  
  
  
                                        *         STORE SKELETONS.                                               SKEL      405
                                        *                                                                        SKEL      406
                                                                                                                 SKEL      407
                                                                                                                 SKEL      408
           334                           STR.I    SKEL                                                           SKEL      409
           334 0                                  ST     L2,L1                                                   SKEL      410
           334  40051100420040000000              ENDS                                                           SKEL      411
                                                                                                                 SKEL      412
           335                           STR.R    SKEQU  STR.I                                                   SKEL      413
                                                                                                                 SKEL      414
           335                           STR.D    SKEL                                                           SKEL      415
           335 0                                  XMT    T1,LL1                                                  FC5A164     7
           335  40010300024040000000              ST     LL2,T1                                                  FC50701     7
           336  00051120460000000000              ST     LU2,LU1                                                 SKEL      416
           337  00051100420040000000              ENDS                                                           SKEL      418
                                                                                                                 SKEL      419
           340                           STR.H    SKEL                                                           SKEL      420
           340 0                                  CALL   HSTO                                                    SKEL      421
                                                  ENDS                                                           SKEL      422
                                                                                                                 SKEL      423
           340                           STR.C    SKEQU  STR.D                                                   SKEL      424
                                                                                                                 SKEL      425
           340                           STR.B    SKEQU  STR.I                                                   SKEL      426
  
  
  
  
                                        *         CHARACTER SUBSTRING, CATENATION SKELETONS.                     SKEL      428
                                                                                                                 SKEL      429
                                                                                                                 SKEL      430
           340                           CAT      SKEL                                                           SKEL      431
           340 0                                  CALL   HCAT                                                    SKEL      432
                                                  ENDS                                                           SKEL      433
                                                                                                                 SKEL      434
                                                                                                                 SKEL      435
           340                           COLON    SKEL               (P1=FIRST, P2=LAST)                         SKEL      436
           340 0                                  CALL   HCOL                                                    SKEL      437
                                                  ENDS                                                           SKEL      438
                                                                                                                 SKEL      439
           340                           SUBST    SKEL               (P1=SYMBOL, P2=COLON INTERMEDIATE)          SKEL      440
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    26
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       CHAR
  
           340 0                                  CALL   HSBS                                                    SKEL      441
                                                  ENDS                                                           SKEL      442
  
  
  
  
                                        **        MODE CONVERSION SKELETONS.                                     SKEL      444
                                                                                                                 SKEL      445
                                                                                                                 SKEL      446
           340                           ITOR     SKEL                                                           SKEL      447
           340 0                                  PK     T1,0,L1     INTEGER TO REAL CONVERSION                  SKEL      448
           340  40027300074004010000              NR     R1,0,T1                                                 SKEL      449
           341  00024160274014000000              ENDS                                                           SKEL      450
                                                                                                                 SKEL      451
           342                           ITOB     SKEL               XMIT -- NO CONVERSION                       SKEL      452
           342 0                                  XMT    R1,LU1                                                  SKEL      453
           342  40010160220040000000              ENDS                                                           SKEL      454
                                                                                                                 SKEL      455
           343                           ITOD     SKEL                                                           SKEL      456
           343 0                                  PK     T1,0,L1     INTEGER TO DOUBLE CONVERSION                SKEL      457
           343  40027300074004010000              NR     RU1,0,T1                                                SKEL      458
           344  00024160274014000000              CLR    RL1                                                     SKEL      459
           345  00105200200000000000              ENDS                                                           SKEL      460
                                                                                                                 SKEL      461
           346                           ITOC     SKEQU  ITOD        INTEGER TO COMPLEX CONVERSION               SKEL      462
                                                                                                                 SKEL      463
                                                                                                                 SKEL      464
           346                           RTOI     SKEL                                                           SKEL      465
           346 0                                  UP     T1,"TBR",L1     REAL TO INTEGER CONVERSION              SKEL      466
           347  00004305074055000302              ILS    R1,"TBR",T1                                             SKEL      467
           350  00022160261214000000              ENDS                                                           SKEL      468
                                                                                                                 SKEL      469
           351                           RTOD     SKEL                                                           SKEL      470
           351 0                                  XMT    RU1,L1      REAL TO DOUBLE CONVERSION                   SKEL      471
           351  40010160220040000000              CLR    RL1                                                     SKEL      472
           352  00105200200000000000              ENDS                                                           SKEL      473
                                                                                                                 SKEL      474
           353                           RTOC     SKEQU  RTOD                                                    SKEL      475
           353                           RTOB     SKEQU  ITOB        XMIT                                        SKEL      476
                                                                                                                 SKEL      477
                                                                                                                 SKEL      478
           353                           DTOI     SKEQU  RTOI                                                    SKEL      479
           353                           DTOR     SKEQU  ITOB        XMIT                                        SKEL      480
           353                           DTOB     SKEQU  DTOR                                                    SKEL      481
                                                                                                                 SKEL      482
           353                           DTOC     SKEL                                                           SKEL      483
           353 0                                  XMT    RU1,LU1     DOUBLE TO COMPLEX CONVERSION                SKEL      484
           353  40010160220040000000              CLR    RL1                                                     SKEL      485
           354  00105200200000000000              ENDS                                                           SKEL      486
                                                                                                                 FC5A140     5
           355                           XMIT     SKEQU  ITOB                                                    FC5A140     6
                                                                                                                 SKEL      487
                                                                                                                 SKEL      488
           355                           CTOI     SKEQU  DTOI                                                    SKEL      489
           355                           CTOR     SKEQU  DTOR                                                    SKEL      490
           355                           CTOB     SKEQU  CTOR                                                    SKEL      491
           355                           CTOD     SKEQU  DTOC        COMPLEX TO DOUBLE                           SKEL      492
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    27
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MODECON 
  
                                                                                                                 SKEL      493
           355                           BTOD     SKEQU  RTOD                                                    SKEL      494
           355                           BTOR     SKEQU  ITOB        XMIT                                        SKEL      495
           355                           BTOI     SKEQU  ITOB        XMIT                                        SKEL      496
           355                           BTOC     SKEQU  RTOD                                                    SKEL      497
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    28
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       LOGICAL 
  
                                        **        LOGICAL AND BOOLEAN OPERATORS.                                 SKEL      499
                                        *                                                                        SKEL      500
                                        *         MUST OCCUR BEFORE INLINE FUNCTION SKELS.                       SKEL      501
                                        *         MUST OCCUR AFTER MODE CONVERSION SKELS.                        SKEL      502
                                                                                                                 SKEL      503
                                                                                                                 SKEL      504
           355                           NOT.L    SKEL                                                           SKEL      505
           355 0                                  XMTC   R1,L1                                                   SKEL      506
           355  40014160220040000000              ENDS                                                           SKEL      507
                                                                                                                 SKEL      508
           356                           NOT.B    SKEQU  NOT.L                                                   SKEL      509
                                                                                                                 SKEL      510
                                                                                                                 SKEL      511
           356                           AND.L    SKEL                                                           SKEL      512
           356 0                                  AND    R1,L1,L2                                                SKEL      513
           356  40011160220044020000              ENDS                                                           SKEL      514
                                                                                                                 SKEL      515
           357                           AND.B    SKEQU  AND.L                                                   SKEL      516
                                                                                                                 SKEL      517
                                                                                                                 SKEL      518
           357                           EQV.L    SKEL                                                           SKEL      519
           357 0                                  EQV    R1,L1,L2                                                SKEL      520
           357  40017160220044020000              ENDS                                                           SKEL      521
                                                                                                                 SKEL      522
           360                           EQV.B    SKEQU  EQV.L                                                   SKEL      523
                                                                                                                 SKEL      524
                                                                                                                 SKEL      525
           360                           OR.L     SKEL                                                           SKEL      526
           360 0                                  OR     R1,L1,L2                                                SKEL      527
           360  40012160220044020000              ENDS                                                           SKEL      528
                                                                                                                 SKEL      529
           361                           OR.B     SKEQU  OR.L                                                    SKEL      530
                                                                                                                 SKEL      531
                                                                                                                 SKEL      532
           361                           XOR.L    SKEL                                                           SKEL      533
           361 0                                  XOR    R1,L1,L2                                                SKEL      534
           361  40013160220044020000              ENDS                                                           SKEL      535
                                                                                                                 SKEL      536
           362                           XOR.B    SKEQU  XOR.L                                                   SKEL      537
           362                           NEQV.B   SKEQU  XOR.L                                                   FC51485    14
           362                           NEQV.L   SKEQU  XOR.L                                                   FC51485    15
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    29
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                        **        INTRINSIC FUNCTION SKELETONS.                                  SKEL      539
                                                                                                                 SKEL      540
                                                                                                                 SKEL      541
           362                           ABS      SKEL                                                           SKEL      542
           362 0                                  KRS    T2,L1,59                                                SKEL      543
           363  00021300260017730000              XOR    R1,L1,T2                                                SKEL      544
           364  00013160220054010000              ENDS                                                           SKEL      545
                                                                                                                 SKEL      546
                                                                                                                 SKEL      547
           365                           SUM1S    SKEL                                                           FC5A496     9
           365 0                                  CX     R1,L1                                                   FC5A496    10
           365  40047160220040000000              ENDS                                                           FC5A496    11
                                                                                                                 FC5A496    12
                                                                                                                 FC5A496    13
           366                           AIMAG    SKEL                                                           SKEL      548
           366 0                                  XMT    R1,LL1      IMAGINARY PART OF COMPLEX (1OP)             SKEL      549
           366  40010160224040000000              ENDS                                                           SKEL      550
                                                                                                                 SKEL      551
           367                           AINT     SKEL                                                           SKEL      552
           367 0                                  CLR    T1                                                      SKEL      553
           367  40105300000000000000              PK     T2,0,T1                                                 SKEL      554
           370  00027300274014000000              FA     T3,L1,T2                                                SKEL      555
           371  00030300420054010000              NR     R1,0,T3                                                 SKEL      556
           372  00024160274014020000              ENDS                                                           SKEL      557
                                                                                                                 SKEL      558
           373                           ANINT    SKEL                                                           SKEL      559
           373 0                         ANINT1   KRS    T2,L1,59                                                SKEL      560
           374  00021300260017730000              PK     T3,0,T2                                                 SKEL      561
           375  00027300474014010000              RFA    T4,L1,T3                                                SKEL      562
           376  00034300620054020000              NR     R1,0,T4                                                 SKEL      563
           377  00024160274014030000              ENDS                                                           SKEL      564
                                                                                                                 SKEL      565
                                                                                                                 SKEL      566
           400                           MAX0     SKEL                                                           SKEL      567
           400 0                                  IS     T1,L1,L2  I=MAX0(I1,I2)                                 SKEL      568
           400  40037300020044020000     MAX01    KRS    T3,T1,59                                                SKEL      569
           402  00021300460057730000              XOR    T4,L1,L2                                                SKEL      570
           403  00013300620044020000              AND    T5,T4,T3                                                SKEL      571
           404  00011301060154020000              XOR    R1,T5,L1                                                SKEL      572
           405  00013160260204010000              ENDS                                                           SKEL      573
                                                                                                                 SKEL      574
           406                           DMAX1    SKEL                                                           SKEL      575
           406 0                                  FS     T1,LU1,LU2                                              SKEL      576
           406  40031300020044020000              DFS    T2,LU1,LU2                                              SKEL      577
           407  00033300220044020000              FS     T3,LL1,LL2                                              SKEL      578
           410  00031300424045020000     DMAX11   NR     T4,0,T1                                                 SKEL      579
           411  00024300674014000000              FA     T5,T2,T3                                                SKEL      580
           412  00030301060054020000              FA     T6,T4,T5                                                SKEL      581
           413  00030301260154040000              KRS    T8,T6,59                                                SKEL      582
           415  00021301660317730000              XOR    T9,LU1,LU2                                              SKEL      583
           416  00013302020044020000              XOR    T10,LL1,LL2                                             SKEL      584
           417  00013302224045020000              AND    T11,T8,T9                                               SKEL      585
           420  00011302460354100000              XOR    RU1,T11,LU1                                             SKEL      586
           421  00013160260504010000              AND    T12,T8,T10                                              SKEL      587
           422  00011302660354110000              XOR    RL1,T12,LL1                                             SKEL      588
           423  00013200260545010000              ENDS                                                           SKEL      589
                                                                                                                 SKEL      590
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    30
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
           424                           MIN0     SKEL                                                           SKEL      591
           424 0                                  IS     T1,L2,L1   I=MIN0(I1,I2)                                SKEL      592
           424  40037300020104010000              BRANCH MAX01,(T1,L1,L2)                                        SKEL      593
           425  02000360074016000401 +            ENDS                                                           SKEL      594
                                                                                                                 SKEL      595
           426                           DMIN1    SKEL                                                           SKEL      596
           426 0                                  FS     T1,LU2,LU1                                              SKEL      597
           426  40031300020104010000              DFS    T2,LU2,LU1                                              SKEL      598
           427  00033300220104010000              FS     T3,LL2,LL1                                              SKEL      599
           430  00031300424105010000              BRANCH DMAX11,(T1,T2,T3,LL1,LL2,LU1,LU2)                       SKEL      600
           431  02000360074016000411 +            ENDS                                                           SKEL      601
                                                                                                                 SKEL      602
           432                           AMAX1    SKEL                                                           SKEL      603
           432 0                                  FS     T1,L1,L2  R=AMAX1(R1,R2)                                SKEL      604
           432  40031300020044020000              BRANCH MAX01,(T1,L1,L2)                                        SKEL      605
           433  02000360074016000401 +            ENDS                                                           SKEL      606
                                                                                                                 SKEL      607
           434                           AMIN1    SKEL                                                           SKEL      608
           434 0                                  FS     T1,L2,L1  R=AMIN1(R1,R2)                                SKEL      609
           434  40031300020104010000              BRANCH MAX01,(T1,L1,L2)                                        SKEL      610
           435  02000360074016000401 +            ENDS                                                           SKEL      611
                                                                                                                 SKEL      612
           436                           MAX1     SKEQU  AMAX1                                                   SKEL      613
           436                           MIN1     SKEQU  AMIN1                                                   SKEL      614
           436                           AMAX0    SKEQU  MAX0                                                    SKEL      615
           436                           AMIN0    SKEQU  MIN0                                                    SKEL      616
                                                                                                                 SKEL      617
           436                           AMOD     SKEL                                                           SKEL      618
           436 0                                  FD     T1,L1,L2                                                SKEL      619
           436  40044300020044020000              CLR    T2                                                      SKEL      620
           437  00105300200000000000              PK     T3,0,T2                                                 SKEL      621
           440  00027300474014010000              FA     T4,T1,T3                                                SKEL      622
           441  00030300660014020000              NR     T5,0,T4                                                 SKEL      623
           442  00024301074014030000              FM     T6,T5,L2                                                SKEL      624
           443  00040301260204020000              DFM    T7,T5,L2                                                SKEL      625
           444  00042301460204020000              DFS    T8,L1,T6                                                SKEL      626
           445  00033301620054050000              FS     T9,L1,T6                                                SKEL      627
           446  00031302020054050000              FS     T10,T8,T7                                               SKEL      628
           447  00031302260354060000              NR     T11,0,T9                                                SKEL      629
           450  00024302474014100000              FA     T12,T10,T11                                             SKEL      630
           451  00030302660454120000              NR     R1,0,T12                                                SKEL      631
           452  00024160274014130000              ENDS                                                           SKEL      632
                                                                                                                 SKEL      633
                                                                                                                 SKEL      634
           453                           AND      SKEQU  AND.B                                                   SKEL      635
                                                                                                                 SKEL      636
                                                                                                                 SKEL      637
           453                           BOOL     SKEQU  ITOB        BOOLEAN TO INTEGER                          SKEL      638
                                                                                                                 SKEL      639
           453                           COMPL    SKEQU  NOT.B                                                   SKEL      640
                                                                                                                 SKEL      641
                                                                                                                 SKEL      642
           453                           CONJG    SKEL                                                           SKEL      643
           453 0                                  XMT    RU1,LU1                                                 SKEL      644
           453  40010160220040000000              XMTC   RL1,LL1                                                 SKEL      645
           454  00014200224040000000              ENDS                                                           SKEL      646
                                                                                                                 SKEL      647
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    31
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      648
           455                           CMPLX    SKEL                                                           SKEL      649
           455 0                                  XMT    RU1,L1                                                  SKEL      650
           455  40010160220040000000              XMT    RL1,L2                                                  SKEL      651
           456  00010200220100000000              ENDS                                                           SKEL      652
                                                                                                                 SKEL      653
                                                                                                                 SKEL      654
           457                           DABS     SKEL                                                           SKEL      655
           457 0                                  KRS    T2,LU1,59                                               SKEL      656
           460  00021300260017730000              XOR    RU1,T2,LU1                                              SKEL      657
           461  00013160260044010000              XOR    RL1,T2,LL1                                              SKEL      658
           462  00013200260045010000              ENDS                                                           SKEL      659
                                                                                                                 SKEL      660
                                                                                                                 SKEL      661
           463                           DBLE     SKEQU  RTOD                                                    SKEL      662
                                                                                                                 SKEL      663
                                                                                                                 SKEL      664
           463                           DDIM     SKEL                                                           SKEL      665
                                                                                                                 SKEL      666
                                        *         MOST OF THIS SKEL IS SUB.D .  A VIABLE CALLSKEL                SKEL      667
                                        *         WOULD BE USEFUL HERE.                                          SKEL      668
                                                                                                                 SKEL      669
           463 0                                  FS     T1,LU1,LU2                                              SKEL      670
           463  40031300020044020000              DFS    T2,LU1,LU2                                              SKEL      671
           464  00033300220044020000              FS     T3,LL1,LL2                                              SKEL      672
           465  00031300424045020000              NR     T4,0,T1                                                 SKEL      673
           466  00024300674014000000              FA     T5,T2,T3                                                SKEL      674
           467  00030301060054020000              FA     T6,T4,T5                                                SKEL      675
           470  00030301260154040000              NR     T7,0,T6                                                 SKEL      676
           471  00024301474014050000              DFA    T8,T4,T5                                                SKEL      677
           472  00032301660154040000              NR     T9,0,T8                                                 SKEL      678
           473  00024302074014070000              FA     T10,T7,T9                                               SKEL      679
           474  00030302260314100000              DFA    T11,T7,T9                                               SKEL      680
           475  00032302460314100000              KRS    T13,T10,59                                              SKEL      681
           477  00021303060557730000              STR    RU1,T13,T10                                             SKEL      682
           500  00015160260614110000              STR    RL1,T13,T11                                             SKEL      683
           501  00015200260614120000              ENDS                                                           SKEL      684
                                                                                                                 SKEL      685
           502                           DIM      SKEL                                                           SKEL      686
           502 0                                  FS     T1,L1,L2                                                SKEL      687
           502  40031300020044020000              NR     T2,0,T1                                                 SKEL      688
           503  00024300274014000000              KRS    T4,T1,59                                                SKEL      689
           505  00021300660117730000              STR    R1,T4,T2                                                SKEL      690
           506  00015160260154010000              ENDS                                                           SKEL      691
                                                                                                                 SKEL      692
                                                                                                                 SKEL      693
           507                           DINT     SKEL                                                           SKEL      694
           507 0                                  KRS    T2,LU1,59                                               FC51035     5
           510  00021300260017730000              PK     T3,0,T2                                                 FC51035     6
           511  00027300474014010000              FA     T4,T3,LU1                                               FC51035     7
           512  00030300660104010000              NR     T5,0,T4                                                 FC51035     8
           513  00024301074014030000              FA     T6,T3,LL1                                               FC51035     9
           514  00030301260105010000              NR     T7,0,T6                                                 FC51035    10
           515  00024301474014050000              FA     RU1,T7,T5                                               FC51035    11
           516  00030160260314040000              DFA    RL1,T7,T5                                               FC51035    12
           517  00032200260314040000              ENDS                                                           FC51035    13
                                                                                                                 SKEL      701
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    32
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
           520                           DPROD    SKEL                                                           SKEL      702
           520 0                                  FM     RU1,L1,L2                                               SKEL      703
           520  40040160220044020000              DFM    RL1,L1,L2                                               SKEL      704
           521  00042200220044020000              ENDS                                                           SKEL      705
                                                                                                                 SKEL      706
           522                           DNINT    SKEL                                                           SKEL      707
           522 0                                  KRS    T2,LU1,59                                               FC51035    14
           523  00021300260017730000              PK     T3,0,T2                                                 FC51035    15
           524  00027300474014010000              RFA    T4,T3,LU1                                               FC51035    16
           525  00034300660104010000              NR     T5,0,T4                                                 FC51035    17
           526  00024301074014030000              RFA    T6,T3,LL1                                               FC51035    18
           527  00034301260105010000              NR     T7,0,T6                                                 FC51035    19
           530  00024301474014050000              FA     RU1,T7,T5                                               FC51035    20
           531  00030160260314040000              DFA    RL1,T7,T5                                               FC51035    21
           532  00032200260314040000              ENDS                                                           FC51035    22
                                                                                                                 SKEL      711
                                                                                                                 SKEL      712
           533                           DSIGN    SKEL                                                           SKEL      713
           533 0                                  KRS    T2,LU1,59                                               SKEL      714
           534  00021300260017730000              XOR    T3,T2,LU1                                               SKEL      715
           535  00013300460044010000              XOR    T4,T2,LL1                                               SKEL      716
           536  00013300660045010000              CLR    T5                                                      SKEL      717
           537  00105301000000000000              IAZ    T6,T5,LU2                                               SKEL      718
           540  00100301260204020000              KRS    T8,T6,59                                                SKEL      719
           542  00021301660317730000              XOR    RU1,T3,T8                                               SKEL      720
           543  00013160260114070000              XOR    RL1,T4,T8                                               SKEL      721
           544  00013200260154070000              ENDS                                                           SKEL      722
                                                                                                                 SKEL      723
                                                                                                                 SKEL      724
           545                           EQV      SKEQU  EQV.B                                                   SKEL      725
                                                                                                                 SKEL      726
                                                                                                                 SKEL      727
           545                           FLOAT    SKEQU  ITOR                                                    SKEL      728
                                                                                                                 SKEL      729
                                                                                                                 SKEL      730
           545                           IABS     SKEQU  ABS                                                     SKEL      731
                                                                                                                 SKEL      732
                                                                                                                 SKEL      733
           545                           IDINT    SKEQU  RTOI                                                    SKEL      734
                                                                                                                 SKEL      735
           545                           IDNINT   SKEL                                                           SKEL      736
           545 0                                  KRS    T2,L1,59                                                SKEL      737
           546  00021300260017730000              PK     T3,0,T2                                                 SKEL      738
           547  00027300474014010000              RFA    T4,T3,L1                                                SKEL      739
           550  00034300660104010000              UP     R1,0,T4                                                 SKEL      740
           551  00026160274014030000              ENDS                                                           SKEL      741
                                                                                                                 SKEL      742
                                                                                                                 SKEL      743
           552                           IFIX     SKEQU  RTOI                                                    SKEL      744
                                                                                                                 SKEL      745
                                                                                                                 SKEL      746
           552                           INT      SKEQU  RTOI                                                    SKEL      747
                                                                                                                 SKEL      748
                                                                                                                 SKEL      749
           552                           ISIGN    SKEL                                                           SKEL      750
           552 0                                  KRS    T2,L1,59                                                SKEL      751
           553  00021300260017730000              XOR    T3,T2,L1                                                SKEL      752
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    33
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
           554  00013300460044010000              CLR    T4                                                      SKEL      753
           555  00105300600000000000              IAZ    T5,T4,L2                                                SKEL      754
           556  00100301060144020000              KRS    T7,T5,59                                                SKEL      755
           560  00021301460257730000              XOR    R1,T7,T3                                                SKEL      756
           561  00013160260314020000              ENDS                                                           SKEL      757
                                                                                                                 SKEL      758
                                                                                                                 SKEL      759
           562                           IDIM     SKEL                                                           SKEL      760
           562 0                                  IS     T1,L1,L2                                                SKEL      761
           562  40037300020044020000              KRS    T3,T1,59                                                SKEL      762
           564  00021300460057730000              STR    R1,T3,T1                                                SKEL      763
           565  00015160260114000000              ENDS                                                           SKEL      764
                                                                                                                 SKEL      765
           566                           MASK     SKEL                                                           SKEL      766
           566 0                                  CALL   MASK                                                    SKEL      767
                                                  ENDS                                                           SKEL      768
                                                                                                                 SKEL      769
           566                           MASKV    SUBSKEL                                                        SKEL      770
           566 0                                  FMA    T1,1                                                    SKEL      771
           566  40043300074040000000              SB=XK  "TBR",L1,-1                                             SKEL      772
           570  00004305074015000102              IRS    T2,"TBR",T1                                             SKEL      773
           571  00023300261214000000              KRS    T4,T2,59                                                SKEL      774
           573  00021300660117730000              AND    R1,T4,T2                                                SKEL      775
           574  00011160260154010000              ENDS                                                           SKEL      776
                                                                                                                 SKEL      777
           575                           MASKC    SUBSKEL                                                        SKEL      778
           575 0                                  FMA    R1,P1                                                   SKEL      779
           575  40043160230040000000              ENDS                                                           SKEL      780
                                                                                                                 SKEL      781
           576                           MOD      SKEL   MODG                                                    SKEL      782
           576 0                                  CALL   MOD                                                     SKEL      783
                                                  ENDS                                                           SKEL      784
                                                                                                                 SKEL      785
           576                           MODG     SUBSKEL                                                        SKEL      786
           576 0                                  PK     T1,0,L2    I=MOD(J,K)                                   SKEL      787
           576  40027300074004020000              NR     T2,0,T1                                                 SKEL      788
           577  00024300274014000000              PK     T3,0,L1                                                 SKEL      789
           600  00027300474004010000              FD     T4,T3,T2                                                SKEL      790
           601  00044300660114010000              UP     T5,"TBR",T4                                             SKEL      791
           603  00004305074055000302              ILS    T6,"TBR",T5                                             SKEL      792
           604  00022301261214040000              IM     T7,T6,L2                                                SKEL      793
           605  00102301460244020000              IS     R1,L1,T7                                                SKEL      794
           606  00037160220054060000              ENDS                                                           SKEL      795
                                                                                                                 SKEL      796
           607                           MODP2    SUBSKEL                                                        SKEL      797
           607 0                                  KRS    T2,L1,59                                                SKEL      798
           610  00021300260017730000              XOR    T3,L1,T2                                                SKEL      799
           611  00013300420054010000              FMA    T4,GP1                                                  SKEL      800
           612  00043300644000000000              STR    T5,T4,T3                                                SKEL      801
           613  00015301060154020000              XOR    R1,T5,T2                                                SKEL      802
           614  00013160260214010000              ENDS                                                           SKEL      803
                                                                                                                 SKEL      804
                                                                                                                 SKEL      805
           615                           NEQV     SKEQU  XOR.B                                                   SKEL      806
                                                                                                                 SKEL      807
           615                           NINT     SKEQU  IDNINT                                                  SKEL      808
                                                                                                                 SKEL      809
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    34
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      810
           615                           OR       SKEQU  OR.B                                                    SKEL      811
                                                                                                                 SKEL      812
                                                                                                                 SKEL      813
           615                           RANF     SKEL                                                           SKEL      814
           615 0                                  DFM    T1,LL2,LU1                                              SKEL      815
           615  40042300024104010000              ST     L1,T1                                                   SKEL      816
           616  00051100260000000000              NR     R1,0,T1                                                 SKEL      817
           617  00024160274014000000              ENDS                                                           SKEL      818
                                                                                                                 SKEL      819
           620                           REAL     SKEQU  CTOR        COMPLEX TO REAL                             SKEL      820
                                                                                                                 SKEL      821
                                                                                                                 SKEL      822
           620                           SIGN     SKEQU  ISIGN                                                   SKEL      823
                                                                                                                 SKEL      824
                                                                                                                 SKEL      825
           620                           SNGL     SKEQU  REAL                                                    SKEL      826
                                                                                                                 SKEL      827
                                                                                                                 SKEL      828
           620                           SHIFT    SKEL   SHIFV                                                   FC5A190     6
           620 0                                  CALL   SHIFT                                                   SKEL      830
                                                  ENDS                                                           SKEL      831
                                                                                                                 SKEL      832
           620                           SHIFV    SUBSKEL                                                        SKEL      833
           620 0                                  SB=XB  "TBR",L2                                                SKEL      834
           621  00004305074015000102              ILS    R1,"TBR",L1                                             SKEL      835
           622  00022160261204010000              ENDS                                                           SKEL      836
                                                                                                                 SKEL      837
           623                           SHLC     SUBEQU SHFC                                                    SKEL      838
                                                                                                                 SKEL      839
           623                           SHRC     SUBEQU IDP2                                                    SKEL      840
                                                                                                                 SKEL      841
                                                                                                                 SKEL      842
           623                           XOR      SKEQU  NEQV                                                    SKEL      843
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    35
        SKEL - INSTRUCTION SKELETON EXPANSIONS. 
  
                                        **        V=DOB - DO BEGIN EXPANSION.                                    SKEL      845
                                        *                (L1) = CONTROL INDEX    (I)                             SKEL      846
                                        *                (L2) = NUMBER OF TRIPS  (TC)                            SKEL      847
                                        *                (L3) = TRIP COUNTER     (DC.N)                          SKEL      848
                                        *                (L4) = UPPER LIMIT      (M2)                            SKEL      849
                                        *                (P5) = DOBEGIN LABEL                                    SKEL      850
                                        *                (P6) = DOEND LABEL      (ONLY IF ZERO-TRIP LOOP)        SKEL      851
                                        *         MEGATURPLE SIZE = 3 TURPLES.                                   SKEL      852
                                                                                                                 SKEL      853
                                                                                                                 SKEL      854
                                                                                                                 SKEL      855
           623                           DOBS     SKEL               ONE-TRIP DO BEGIN                           SKEL      856
           623 0                                  CALLC  DOO         SEE IF OPTIMIZABLE                          SKEL      857
           623  4100000000000 X          DOBS1    CALL   DOBZ        GL1 = 1                                     SKEL      858
           624  0100000000000 X                   IS     T1,L2,GL1                                               SKEL      859
           625  00037300020112000000              ST     L3,T1                                                   SKEL      860
                                                  CALLQ  CAR                                                     SKEL      861
           626  00051101060000000000              CALL   DOB,P5                                                  SKEL      862
           627  0100000000000 X                   ENDS                                                           SKEL      863
                                                                                                                 SKEL      864
           630                           DOBL     SKEL                                                           SKEL      865
           630 0                                  CALLC  DOL         FLAG LONG DO                                SKEL      866
           630  4100000000000 X                   BRANCH DOBS1                                                   SKEL      867
           631  02000360074016000624 +            ENDS                                                           SKEL      868
                                                                                                                 SKEL      869
           632                           DOBZS    SKEL               ZERO-TRIP DO BEGIN, SHORT TRIP COUNT        SKEL      870
           632 0                                  CALLC  DZO         SEE IF OPTIMIZABLE                          SKEL      871
           632  4100000000000 X                   SX=XK  T1,L2,-1                                                SKEL      872
           633  00052300020115777776              ST     L3,T1                                                   SKEL      873
           634  00051101060000000000     DOBZ1    MI     T1,P6       IF (TRIP COUNT) <= 0 THEN SKIP LOOP         SKEL      874
           635  00067300074146100000              CALLC  DOZ,P5                                                  SKEL      875
                                                  CALLQ  CAR                                                     SKEL      876
           636  0100000000000 X                   CALL   DOB,P5                                                  SKEL      877
           637  0100000000000 X                   ENDS                                                           SKEL      878
                                                                                                                 SKEL      879
           640                           DOBZL    SKEL               ZERO TRIP DO BEGIN, LONG COUNT              SKEL      880
           640 0                                  CALLC  DOL         FLAG LONG DO                                SKEL      881
           640  4100000000000 X                   CALL   DOBZ        SET GL1 = -1                                SKEL      882
           641  0100000000000 X                   IS     T1,L2,GL1                                               SKEL      883
           642  00037300020112000000              ST     L3,T1                                                   SKEL      884
           643  00051101060000000000              BRANCH DOBZ1,T1                                                SKEL      885
           644  02000360074016000635 +            ENDS                                                           SKEL      886
                                                                                                                 SKEL      887
                                         #CD      IFEQ   .CG,.OPT                                                SKEL      888
           645                           DOBO     SUBSKEL                  OPTIMIZED (NO TRIP COUNT) LOOP        SKEL      889
           645 0                                  CALL   DOB,P5                                                  SKEL      890
                                                  ENDS                                                           SKEL      891
                                                                                                                 SKEL      892
           645                           DOZO     SUBSKEL                  OPTIMIZED ZERO TRIP LOOP              SKEL      893
           645 0                                  SX=XK  T1,L2,-1                                                SKEL      894
           645  40052300020115777776              BRANCH DOBZ1,T1                                                SKEL      895
           646  02000360074016000635 +            ENDS                                                           SKEL      896
                                                                                                                 SKEL      897
                                         #CD      ENDIF                                                          SKEL      898
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    36
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                        **        V=DOC - DO CONCLUSION CODE.                                    SKEL      900
                                        *                (L1) = CONTROL INDEX    (I)                             SKEL      901
                                        *                (L2) = INCREMENT VALUE  (M3)                            SKEL      902
                                        *                (P3) = DO BEGIN LABEL                                   SKEL      903
                                        *                (L4) = TRIP COUNTER     (DC.N)                          SKEL      904
                                        *         MEGATURPLE LENGTH = 2 TURPLES.                                 SKEL      905
                                                                                                                 SKEL      906
                                                                                                                 SKEL      907
           647                           DOC.S    SKEL               INTEGER, SHORT LOOP                         SKEL      908
           647 0                                  CALL   DOC,0       SET (GL1) = INTEGER -1                      SKEL      909
           647  4100000000000 X                   IA     T1,L2,L1                                                SKEL      910
           650  00036300020104010000     DOCS1    ST     L1,T1       CONTROL = CONTROL + INCREMENT               SKEL      911
           651  00051100260000000000              SX=XK  T3,L4,-1    DECREMENT TRIP COUNTER                      SKEL      912
           652  00052300420255777776     DOCS2    ST     L4,T3                                                   SKEL      913
           653  00051101260100000000              PL     T3,P3                                                   SKEL      914
           654  00067300474106040000              CALL   PDE                                                     SKEL      915
           655  0100000000000 X                   ENDS                                                           SKEL      916
                                                                                                                 SKEL      917
           656                           DOC.O    SKEL                                                           FC51364     8
           656 0                                  CALL   DOC,0                                                   FC51364     9
           656  4100000000000 X                   IA     T1,L2,L1                                                FC51364    10
           657  00036300020104010000              ST     L1,T1       CONTROL = CONTROL + INCREMENT               FC51364    11
           660  00051100260000000000              CALL   PDE                                                     FC51364    12
                                                  ENDS                                                           FC51364    13
                                                                                                                 FC51364    14
           661                           DOC.K    SUBSKEL            INTEGER, SHORT LOOP, CONSTANT INCREMENT     SKEL      918
           661 0                                  SX=XK  T1,L1,P2                                                SKEL      919
           661  40052300020046020000              BRANCH DOCS1,(T1)                                              SKEL      920
           662  02000360074016000651 +            ENDS                                                           SKEL      921
                                                                                                                 SKEL      922
                                         #CD      IFEQ   .CG,.OPT                                                SKEL      923
           663                           DOC.1    SKEL                                                           FC5A511    13
           663 0                                  IA     T1,L1,L2                                                FC5A511    14
           663  40036300020044020000              ST     L1,T1       CONTROL = CONTROL + INCREMENT               FC5A511    15
           664  00051100260000000000              CALL   PDE1                                                    FC5A511    16
                                                  ENDS                                                           FC5A511    17
                                                                                                                 FC5A511    18
           665                           DC.OV    SUBSKEL            OPTIMIZED (NO TRIP COUNT), VAR. INCREMENT   SKEL      924
           665 0                                  IA     T1,L1,L2                                                SKEL      925
           665  40036300020044020000     DC.O1    ST     L1,T1       I = I + INC                                 SKEL      926
           666  00051100260000000000              IS     T3,GL1,T1                                               SKEL      927
           667  00037300450014000000              PL     T3,P3                                                   SKEL      928
           670  00067300474106040000              CALL   PDE                                                     SKEL      929
           671  0100000000000 X                   ENDS                                                           SKEL      930
                                                                                                                 SKEL      931
           672                           DC.OC    SUBSKEL            OPTIMIZED (NO TRIP COUNT), CON. INCREMENT   SKEL      932
           672 0                                  SX=XK  T1,L1,P2                                                SKEL      933
           672  40052300020046020000              BRANCH DC.O1 ,T1                                               SKEL      934
           673  02000360074016000666 +            ENDS                                                           SKEL      935
                                                                                                                 FC50136     6
           674                           DC.OS    SUBSKEL                  OPTIMIZED, CON. INCREMENT AND ULIM    FC50136     7
           674 0                                  SX=XK  T1,L1,P2                                                FC50136     8
           674  40052300020046020000              ST     L1,T1                                                   FC50136     9
           675  00051100260000000000              SX=XK  T2,T1,GP1                                               FC50136    10
           676  00052300260011000000              MI     T2,P3                                                   FC50136    11
           677  00067300274146040000              CALL   PDE                                                     FC50136    12
                                                  ENDS                                                           FC50136    13
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    37
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                                                                                                 FC5A113     4
           700                           DC.O1    SUBSKEL            OPTIMIZED FOR I=J,J                         FC5A113     5
           700 0                                  IA     T1,L1,L2                                                FC5A113     6
           700  40036300020044020000              ST     L1,T1       CV = CV + INC                               FC5A113     7
           701  00051100260000000000              CALL   PDE1                                                    FC50130     5
                                                  ENDS                                                           FC5A113     8
                                                                                                                 SKEL      936
                                         #CD      ENDIF                                                          SKEL      937
                                                                                                                 SKEL      938
                                                                                                                 SKEL      939
           702                           DOC.L    SKEL               INTEGER, LONG LOOP                          SKEL      940
           702 0                                  CALL   DOC,1                                                   SKEL      941
           702  4100000000000 X                   IA     T1,L1,L2                                                SKEL      942
           703  00036300020044020000     DOCL1    ST     L1,T1       CONTROL = CONTROL + INCREMENT               SKEL      943
           704  00051100260000000000     DOCL2    IA     T3,L4,GL1   DECREMENT TRIP COUNTER                      SKEL      944
           705  00036300420252000000              BRANCH DOCS2,(T3)                                              SKEL      945
           706  02000360074016000653 +            ENDS                                                           SKEL      946
                                                                                                                 SKEL      947
           707                           DOC.R    SKEL               REAL, ALWAYS LONG                           SKEL      948
           707 0                                  CALL   DOC,1                                                   SKEL      949
           707  4100000000000 X                   FAR    T2,L1,L2                                                SKEL      950
           710  20030300220044020000              NR     T1,0,T2                                                 SKEL      951
           711  00024300074014010000              BRANCH DOCL1,(T1)                                              SKEL      952
           712  02000360074016000704 +            ENDS                                                           SKEL      953
                                                                                                                 SKEL      954
           713                           DOC.D    SKEL               DOUBLE, ALWAYS LONG                         SKEL      955
           713 0                                  CALL   DOC,1                                                   SKEL      956
           713  4100000000000 X                   FA     T1,LU1,LU2                                              SKEL      957
           714  00030300020044020000              DFA    T2,LU1,LU2                                              SKEL      958
           715  00032300220044020000              FA     T3,LL1,LL2                                              SKEL      959
           716  00030300424045020000              NR     T4,0,T1                                                 SKEL      960
           717  00024300674014000000              FA     T5,T2,T3                                                SKEL      961
           720  00030301060054020000              FA     T6,T4,T5                                                SKEL      962
           721  00030301260154040000              NR     T7,0,T6                                                 SKEL      963
           722  00024301474014050000              DFA    T8,T4,T5                                                SKEL      964
           723  00032301660154040000              NR     T9,0,T8                                                 SKEL      965
           724  00024302074014070000              FA     T10,T7,T9                                               SKEL      966
           725  00030302260314100000              DFA    T11,T7,T9                                               SKEL      967
           726  00032302460314100000              ST     LU1,T10                                                 SKEL      968
           727  00051100260440000000              ST     LL1,T11                                                 SKEL      969
           730  00051120260500000000              BRANCH DOCL2                                                   SKEL      970
           731  02000360074016000705 +            ENDS                                                           SKEL      971
                                                                                                                 FC5A218     8
                                         #CD      IFEQ   .CG,.OPT                                                FC5A218     9
                                                                                                                 FC5A218    10
           732                           IOLC     SKEL               IO LIST COLLAPSE                            FC5A218    11
           732 0                                  CALL   IOLC                                                    FC5A218    12
                                                  ENDS                                                           FC5A218    13
                                                                                                                 FC5A218    14
           732                           IOLC1    SUBSKEL                  ONE TRIP (OPTIMIZED) HEADER           FC5A218    15
           732 0                                  IA     T1,L3,L4    CV = ULIM + INCR (1)                        FC5A218    16
           732  40036300020204050000              ST     L1,T1                                                   FC5A218    17
           733  00051100260000000000              ENDS                                                           FC5A218    18
                                                                                                                 FC5A218    19
           734                           IOLC0    SUBSKEL                  ZERO TRIP COLLAPSE HEADER             FC5A218    20
                                         #CD      ELSE                                                           FC5A218    21
                                         IOLC     SKEL               IO LIST COLLAPSE - DEFINE CONTROL VAR       FC5A218    22
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    38
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                         #CD      ENDIF                                                          FC5A218    23
           734 0                                  IS     T1,L3,L2                                                FC5A218    24
           734  40037300020204020000              KRS    T3,T1,59                                                FC5A218    25
           736  00021300460057730000              IA     T4,L3,L4                                                FC5A218    26
           737  00036300620204050000              AND    T5,T3,L2                                                FC5A218    27
           740  00011301060104020000              STR    T6,T3,T4                                                FC5A218    28
           741  00015301260114030000              OR     T7,T5,T6                                                FC5A218    29
           742  00012301460214050000              ST     L1,T7                                                   FC5A218    30
           743  00051100260300000000              ENDS                                                           FC5A218    31
                                                                                                                 FC5A248     6
           744                           LCIF     SKEL               PROTECT INNER CV DEFINITIONS                FC5A248     7
           744 0                                  IS     T1,L3,L2                                                FC5A248     8
           744  40037300020204020000              MI     T1,P1                                                   FC5A248     9
           745  00067300074146010000              CALLC  IF,1                                                    FC5A248    10
                                                  ENDS                                                           FC5A248    11
  
  
  
  
                                        **        *GO TO* INSTRUCTIONS.                                          SKEL      973
                                                                                                                 SKEL      974
                                                                                                                 SKEL      975
                                                                                                                 SKEL      976
           746                           GOTO     SKEL                         UNCONDITIONAL GOTO                SKEL      977
           746 0                                  UJP    P1                                                      SKEL      978
           746  40074000000006010000              CALLC  PGT                                                     SKEL      979
                                                  ENDS                                                           SKEL      980
                                                                                                                 SKEL      981
                                                                                                                 SKEL      982
           747                           AGOTO    SKEL                         ASSIGNED GOTO                     SKEL      983
           747 0                                  IR     L1,=XS=BU                                               SKEL      984
           747  40067100274216000000 X            SB=XK  "TBR",L1,=XS=TRACE                                      SKEL      985
           751  00004305074015000102              JIN    "TBR"                                                   SKEL      986
           752  00071305000000000000              CALLC  PAG                                                     SKEL      987
                                                  ENDS                                                           SKEL      988
                                                                                                                 SKEL      989
                                                                                                                 SKEL      990
           753                           CGOTO    SKEL                         COMPUTED GOTO                     SKEL      991
                                        *                            (X1) = EXPRESSION VALUE                     SKEL      992
           753 0                                  SX=BK  T1,0,P2     SX6 N.BRANCHES                              SKEL      993
           753  40052300074006020000              SX=XK  T2,L1,-1    SX0 X1-1                                    SKEL      994
           754  00052300220055777776              IS     T3,T2,T1    IX2 X0-X6                                   SKEL      995
           755  00037300460054000000              IMP    T4,T3,T2    BX3 -X2+X0                                  SKEL      996
           756  00016300660114010000              KRS    T6,T4,59    AX3 59                                      SKEL      997
           760  00021301260217730000              STR    T7,T6,T2    BX4 -X3*X0                                  SKEL      998
           761  00015301460254010000              AND    T8,T6,T1    BX5 X3*X6                                   SKEL      999
           762  00011301660254000000              IA     T9,T7,T8    BX6 X4+X5                                   SKEL     1000
           763  00036302060314070000              SB=XB  "TBR",T9    SB2 X6                                      SKEL     1001
                                                  CALLQ  CAR                                                     SKEL     1002
           765  00004305074015000102              CALL   PCG,"TBR"                                               SKEL     1003
                                                  ENDS                                                           SKEL     1004
                                                                                                                 SKEL     1005
           766                           JGOTO    SKEL                         JUMP TO A COMPUTED GOTO BRANCH    SKEL     1006
           766 0                                  UJP    P1                                                      SKEL     1007
           766  40074000000006010000              CALLC  JGOC                                                    SKEL     1008
                                                  ENDS                                                           SKEL     1009
                                                                                                                 SKEL     1010
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    39
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       GOTO
  
           767                           RGOTO    SKEL               INDEXED JUMP TO ALTERNATE RETURN LABELS     SKEL     1011
           767 0                                  CALL   RGT                                                     SKEL     1012
           767  4100000000000 X                   DEF    T1,,"X1."                                               SKEL     1013
           770  00005300000017210000              SX=XK  T2,T1,-1                                                SKEL     1014
           771  00052300260015777776              SX=XK  T3,T2,GP2                                               SKEL     1015
           772  00052300460051010000              IMP    T4,T3,T2                                                SKEL     1016
           773  00016300660114010000              KRS    T6,T4,59                                                SKEL     1017
           775  00021301260217730000              STR    T7,T6,T1                                                SKEL     1018
           776  00015301460254000000              LOAD   T8,T7,GP1                                               SKEL     1019
           777  00050301660311000000              SB=XB  "TBR",T8                                                SKEL     1020
                                                  CALLQ  CAR                                                     SKEL     1021
          1001  00004305074015000102              JIN    "TBR"                                                   SKEL     1022
          1002  00071305000000000000              ENDS                                                           SKEL     1023
                                                                                                                 SKEL     1024
                                                                                                                 SKEL     1025
          1003                           ASSGN    SKEL                                                           SKEL     1026
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1027
                                                  CALL   PASG         SETS GL1 TO LA.+K                          SKEL     1028
                                                  ST     L2,GL1                                                  SKEL     1029
                                                                                                                 SKEL     1030
                                         #CD      ELSE                                                           SKEL     1031
          1003 0                                  CALL   PASG,L1      ISSUES ST1 L1-TEMPA0.                      SKEL     1032
                                                  ENDS                                                           SKEL     1033
                                                                                                                 SKEL     1034
          1003                           ASLAB    SUBSKEL                  ASSIGN TO CODE LABEL                  SKEL     1035
                                                                                                                 SKEL     1036
                                        *         P=PASG DEFINES T1.                                             SKEL     1037
                                                                                                                 SKEL     1038
          1003 0                                  FMA    T2,1                                                    SKEL     1039
          1003  40043300274040000000              OR     T3,T1,T2                                                SKEL     1040
          1004  00012300460014010000              ST     L2,T3                                                   SKEL     1041
          1005  00051100460100000000              ENDS                                                           SKEL     1042
                                                                                                                 SKEL     1043
          1006                           ASFMT    SUBSKEL                  ASSIGN TO FORMAT LABEL                SKEL     1044
          1006 0                                  ST     L2,T1                                                   SKEL     1045
                                         #CD      ENDIF                                                          SKEL     1046
          1006  40051100460000000000              ENDS                                                           SKEL     1047
                                                                                                                 SKEL     1048
          1007                           BSS      SKEL                                                           SKEL     1049
          1007 0                                  CALL   PLA,P1                                                  SKEL     1050
                                                  ENDS                                                           SKEL     1051
                                                                                                                 SKEL     1052
          1007                           ARY      SKEL                     SUBSCRIPTED ARRAY LOAD                SKEL     1053
          1007 0                                  CALL   PAR         PROCESS ARRAY REFERENCE                     SKEL     1054
                                                  ENDS                                                           SKEL     1055
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    40
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       APL 
  
                                        **        AP-LIST CONSTRUCTION.                                          SKEL     1057
                                                                                                                 SKEL     1058
                                                                                                                 SKEL     1059
          1007                           GAP      SKEL                                                           SKEL     1060
          1007 0                                  CALL   GAP         PROCESS GENERAL ACTUAL PARAMETER            SKEL     1061
                                                  ENDS                                                           SKEL     1062
                                                                                                                 SKEL     1063
          1007                           FAP      SKEL                                                           SKEL     1064
          1007 0                                  CALL   FAP         FUNCTION APLIST FOLLOWS                     SKEL     1065
                                                  ENDS                                                           SKEL     1066
                                                                                                                 SKEL     1067
          1007                           IAP      SKEL                                                           SKEL     1068
          1007 0                                  CALL   IAP         PROCESS INTRINSIC ACTUAL PARAMETER          SKEL     1069
                                                  ENDS                                                           SKEL     1070
  
  
  
  
                                        **        V=RAG - REGISTER ASSIGNEMENT AND LOAD FOR CALL BY VALUE SKELS. SKEL     1072
                                        *                (1OP) = FIRST  ARGUMENT.                                SKEL     1073
                                        *                (2OP) = SECOND ARGUMENT (OR NIL).                       SKEL     1074
                                        *         QCG ONLY.  CCG DOES THIS WITH REGISTER STORES.                 SKEL     1075
                                                                                                                 SKEL     1076
                                                                                                                 SKEL     1077
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1078
                                                                                                                 SKEL     1079
                                         IAPS1    SUBSKEL                                                        SKEL     1080
                                                  LD     L1,,+R.X1   FIRST ARGUMENT                              SKEL     1081
                                                  ENDS                                                           SKEL     1082
                                                                                                                 SKEL     1083
                                         IAPD1    SUBSKEL                                                        SKEL     1084
                                                  LD     LU1,,+R.X1  FIRST ARGUMENT, DOUBLE                      SKEL     1085
                                                  LD     LL1,,+R.X2                                              SKEL     1086
                                                  ENDS                                                           SKEL     1087
                                                                                                                 SKEL     1088
                                         IAPS2    SUBSKEL                                                        SKEL     1089
                                                  LD     L1,,+R.X3   SECOND ARGUMENT                             SKEL     1090
                                                  ENDS                                                           SKEL     1091
                                                                                                                 SKEL     1092
                                         IAPD2    SUBSKEL                                                        SKEL     1093
                                                  LD     LU1,,+R.X3  SECOND ARGUMENT, DOUBLE                     SKEL     1094
                                                  LD     LL1,,+R.X4                                              SKEL     1095
                                                  ENDS                                                           SKEL     1096
                                         #CD      ENDIF                                                          SKEL     1097
                                                                                                                 SKEL     1098
                                        **        CALL BY REFERENCE APLIST SETUP AND CODE  SKELETONS             SKEL     1099
                                                                                                                 SKEL     1100
          1007                           APIOC    SKEL                                                           SKEL     1101
          1007 0                                  CALL   IOC         PROCESS I/O CONTROL PARAMETER               SKEL     1102
                                                  ENDS                                                           SKEL     1103
                                                                                                                 SKEL     1104
          1007                           APIOD    SKEL                                                           SKEL     1105
          1007 0                                  CALL   IOD         PROCESS I/O DATA PARAMETER (LIST ITEM)      SKEL     1106
                                                  ENDS                                                           SKEL     1107
                                                                                                                 SKEL     1108
          1007                           APIOU    SKEL                                                           SKEL     1109
          1007 0                                  CALL   IOU         PROCESS I/O UNIT                            SKEL     1110
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    41
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
                                                  ENDS                                                           SKEL     1111
                                                                                                                 SKEL     1112
                                                                                                                 SKEL     1113
          1007                           APSTR    SUBSKEL                                                        SKEL     1114
          1007 0                                  ST     GL2,GL1                                                 SKEL     1115
          1007  40051240250000000000              CALL   APRET                                                   SKEL     1116
                                                  ENDS                                                           SKEL     1117
                                                                                                                 SKEL     1118
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    20
          1010                           IPLUG    SUBSKEL                  MUST FOLLOW APSTR                     SKEL     1119
          1010 0                                  FMA    T1,36       PLUG ADDRESS INTO I/O AP-LIST               SKEL     1120
          1010  40043300076200000000              AND    T2,T1,GL2                                               SKEL     1121
          1011  00011300260012010000              OR     T3,T2,GL1                                               SKEL     1122
          1012  00012300460052000000              ST     GL2,T3                                                  SKEL     1123
          1013  00051240260100000000              CALL   APRET                                                   SKEL     1124
                                                  ENDS                                                           SKEL     1125
                                                                                                                 FC51544     7
          1014                           IPLG1    SUBSKEL                                                        FC51544     8
          1014 0                                  FMA    T1,36                                                   FC51544     9
          1014  40043300076200000000              AND    T2,T1,GL2                                               FC51544    10
          1015  00011300260012010000              STR    T3,T1,GL1                                               FC51544    11
          1016  00015300460012000000              OR     T4,T2,T3                                                FC51544    12
          1017  00012300660054020000              ST     GL2,T4                                                  FC51544    13
          1020  00051240260140000000              CALL   APRET                                                   FC51544    14
                                                  ENDS                                                           FC51544    15
                                                                                                                 FC51544    16
          1021                           IPLG2    SUBSKEL                                                        FC51544    17
          1021 0                                  FMA    T1,25                                                   FC51544    18
          1021  40043300075440000000              KLS    T3,T1,24                                                FC51544    19
          1023  00020300460057300000              STR    T4,T3,GL2                                               FC51544    20
          1024  00015300660112010000              AND    T5,T3,GL1                                               FC51544    21
          1025  00011301060112000000              OR     T6,T4,T5                                                FC51544    22
          1026  00012301260154040000              ST     GL2,T6                                                  FC51544    23
          1027  00051240260240000000              CALL   APRET                                                   FC51544    24
                                                  ENDS                                                           FC51544    25
                                         #CD      ENDIF                                                          FC5A128    21
                                                                                                                 SKEL     1126
          1030                           IPLG0    SUBSKEL                  PLUG LEVEL 0 I/O APLIST               SKEL     1127
          1030 0                                  FMA    T1,25       MX1   25                                    SKEL     1128
          1030  40043300075440000000              KLS    T3,T1,24    LX3   X1,24                                 SKEL     1129
          1032  00020300460057300000              STR    T4,T3,GL2   BX4   -X1*X.GL2                             SKEL     1130
          1033  00015300660112010000              OR     T5,T4,GL1   BX5   X4+X.GL1                              SKEL     1131
          1034  00012301060152000000              ST     GL2,T5                                                  SKEL     1132
          1035  00051240260200000000              CALL   APRET                                                   SKEL     1133
                                                  ENDS                                                           SKEL     1134
                                                                                                                 SKEL     1135
                                        *         CHARACTER APLIST STORES.                                       SKEL     1136
                                                                                                                 SKEL     1137
          1036                           CAPST    SUBSKEL            NON IO CHARACTER APSTORE                    SKEL     1138
          1036 0                                  DEF    T1,,"X6."                                               SKEL     1139
          1036  40005300000017260000              ST     GL1,T1                                                  SKEL     1140
          1037  00051240060000000000              CALL   SCRET                                                   SKEL     1141
                                                  ENDS                                                           SKEL     1142
                                                                                                                 SKEL     1143
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    22
          1040                           CISST    SUBSKEL            CHARACTER I/O SCALAR                        SKEL     1144
          1040 0                                  DEF    T1,,"X6."                                               SKEL     1145
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    42
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
          1040  40005300000017260000              FMA    T2,49                                                   FC51351     6
          1041  00043300277040000000              KLS    T4,T2,48                                                FC51351     7
          1043  00020300660117600000              STR    T5,T4,GL1                                               FC51351     8
          1044  00015301060152000000              AND    T7,T4,T1                                                FC51351     9
          1045  00011301460154000000              OR     T6,T7,T5                                                FC51351    10
          1046  00012301260314040000              ST     GL1,T6                                                  FC51351    11
          1047  00051240060240000000              CALL   SCRET                                                   SKEL     1151
                                                  ENDS                                                           SKEL     1152
                                                                                                                 SKEL     1153
          1050                           CIAST    SUBSKEL            CHARACTER I/O ARRAY                         SKEL     1154
          1050 0                                  DEF    T1,,"X6."                                               SKEL     1155
          1050  40005300000017260000              FMA    T2,30                                                   SKEL     1156
          1051  00043300275700000000              AND    T3,T2,GL1                                               SKEL     1157
          1052  00011300460052000000              STR    T4,T2,T1                                                SKEL     1158
          1053  00015300660054000000              OR     T5,T3,T4                                                SKEL     1159
          1054  00012301060114030000              ST     GL1,T5                                                  SKEL     1160
          1055  00051240060200000000              CALL   SCRET                                                   SKEL     1161
                                                  ENDS                                                           SKEL     1162
                                         #CD      ENDIF                                                          FC5A128    23
                                                                                                                 SKEL     1163
          1056                           CIS0S    SUBSKEL            CHARACTER I/O SCALAR (LEVEL 0)              SKEL     1164
          1056 0                                  DEF    T1,,"X6."                                               SKEL     1165
          1056  40005300000017260000              FMA    T2,49                                                   SKEL     1166
          1057  00043300277040000000              KLS    T4,T2,48                                                SKEL     1167
          1061  00020300660117600000              STR    T5,T4,GL1                                               SKEL     1168
          1062  00015301060152000000              AND    T7,T4,T1                                                SKEL     1169
          1063  00011301460154000000              OR     T6,T7,T5                                                SKEL     1170
          1064  00012301260314040000              ST     GL1,T6                                                  SKEL     1171
          1065  00051240060240000000              CALL   SCRET                                                   SKEL     1172
                                                  ENDS                                                           SKEL     1173
                                                                                                                 SKEL     1174
          1066                           CIA0S    SUBSKEL            CHARACTER I/O ARRAY (LEVEL 0)               SKEL     1175
          1066 0                                  DEF    T1,,"X6."                                               SKEL     1176
          1066  40005300000017260000              FMA    T2,31                                                   SKEL     1177
          1067  00043300275740000000              KLS    T4,T2,30                                                SKEL     1178
          1071  00020300660117360000              AND    T5,T4,T1                                                SKEL     1179
          1072  00011301060154000000              STR    T6,T4,GL1                                               SKEL     1180
          1073  00015301260152000000              OR     T7,T5,T6                                                SKEL     1181
          1074  00012301460214050000              ST     GL1,T7                                                  SKEL     1182
          1075  00051240060300000000              CALL   SCRET                                                   SKEL     1183
                                                  ENDS                                                           SKEL     1184
                                                                                                                 FC5A243     9
                                         #CD      IFEQ   .CG,.FAST                                               FC5A243    10
                                         LUA      SUBSKEL                  LOAD UNKNOWN-LENGTH APLIST ITEM       FC5A243    11
                                                  XMT    "X6.",GL1                                               FC5A243    12
                                                  CALL   LURET                                                   FC5A243    13
                                                  ENDS                                                           FC5A243    14
                                                                                                                 FC5A243    15
                                         SUA      SUBSKEL                  STORE UNKNOWN-LENGTH APLIST ITEM      FC5A243    16
                                                  DEF    T1,,"X6."                                               FC5A243    17
                                                  ST     GL1,T1                                                  FC5A243    18
                                                  CALL   SURET                                                   FC5A243    19
                                                  ENDS                                                           FC5A243    20
                                         #CD      ENDIF                                                          FC5A243    21
                                                                                                                 FC5A243    22
                                                                                                                 SKEL     1185
          1076                           SUBR     SKEL                                                           SKEL     1186
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    43
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
          1076 0                                  CALL   SUB         PROCESS SUBROUTINE                          SKEL     1187
                                                  ENDS                                                           SKEL     1188
                                                                                                                 SKEL     1189
          1076                           FUNC     SKEL                                                           SKEL     1190
          1076 0                                  CALL   FUN         PROCESS GENERAL FUNCTION                    SKEL     1191
                                                  ENDS                                                           SKEL     1192
                                                                                                                 SKEL     1193
          1076                           LIBF     SKEL               LIBRARY FUNCTION (NO ZERO TERMINATOR)       SKEL     1194
          1076 0                                  CALL   LIBF                                                    SKEL     1195
                                                  ENDS                                                           SKEL     1196
          1076                           INTF     SKEL                                                           SKEL     1197
          1076 0                                  CALL   INF         PROCESS INTRINSIC FUNCTION CALL             SKEL     1198
                                                  ENDS                                                           SKEL     1199
                                                                                                                 SKEL     1200
          1076                           IOSUB    SKEL                                                           SKEL     1201
          1076 0                                  CALL   IOF         PROCESS I/O ROUTINE                         SKEL     1202
                                                  ENDS                                                           SKEL     1203
                                                                                                                 SKEL     1204
                                         #CD      IFEQ   .CG,.OPT                                                SKEL     1205
                                                                                                                 SKEL     1206
          1076                           DFRS     SUBSKEL            DEFINE SINGLE-VALUED FUNCTION RESULT        SKEL     1207
          1076 0                                  DEF    R1,,"X6."                                               SKEL     1208
          1076  40005160200017260000              CALL   FRRET                                                   SKEL     1209
                                                  ENDS                                                           SKEL     1210
                                                                                                                 SKEL     1211
          1077                           DFRD     SUBSKEL            DOUBLE-VALUED FUNCTION RESULT               SKEL     1212
          1077 0                                  DEF    R1,,"X6."                                               SKEL     1213
          1077  40005160200017260000              DEF    RL1,,"X7."                                              SKEL     1214
          1100  00005200200017270000              CALL   FRRET                                                   SKEL     1215
                                                  ENDS                                                           SKEL     1216
                                                                                                                 SKEL     1217
                                         #CD      ENDIF                                                          SKEL     1218
                                                                                                                 SKEL     1219
                                                                                                                 SKEL     1220
          1101                           ERR      SKEL                         SOURCE PROGRAM FATAL ERROR        SKEL     1221
                                                  CALLQ  CDW         DRITE                                       SKEL     1222
          1101 0                                  RJT    =XS=ERR                                                 SKEL     1223
                                                  CALLQ  CAR         CLEAR REGS                                  SKEL     1224
                                                  ENDS                                                           SKEL     1225
  
  
  
  
                                        **        SUBPROGRAM EXIT INSTRUCTIONS.                                  SKEL     1227
                                                                                                                 SKEL     1228
                                                                                                                 SKEL     1229
          1102                           STOP     SKEL                                                           SKEL     1230
          1102 0                                  CALL   LIB                                                     SKEL     1231
          1102  4100000000000 X                   CALLC  PEX                                                     SKEL     1232
                                                  ENDS                                                           SKEL     1233
                                                                                                                 SKEL     1234
          1103                           PEND     SKEQU  STOP                                                    SKEL     1235
                                                                                                                 SKEL     1236
          1103                           PAUS     SKEL                                                           SKEL     1237
          1103 0                                  CALL   LIB                                                     SKEL     1238
                                                  ENDS                                                           SKEL     1239
                                                                                                                 SKEL     1240
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    44
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       EXIT. 
  
          1103                           RET      SKEL                                                           SKEL     1241
                                                  CALLQ  CDW         DRITE                                       SKEL     1242
          1103 0                                  UJP    =XS=EXIT                                                SKEL     1243
          1103  40074000000016000000 X            CALLC  PEX                                                     SKEL     1244
                                                  ENDS                                                           SKEL     1245
                                                                                                                 SKEL     1246
          1104                           RTNK     SKEL               ALTERNATE RETURN                            SKEL     1247
          1104 0                                  XMTL   X1,T1,L1                                                SKEL     1248
                                                  CALLQ  CDW         CALL DRITE                                  SKEL     1249
          1105  00004300000017210000              UJP    =XS=AEXIT                                               SKEL     1250
          1106  00074000000016000000 X            CALLC  PEX                                                     SKEL     1251
                                                  ENDS                                                           SKEL     1252
  
  
  
  
                                        **        COMMON ENTRY DEFINITION CODE SKELETONS.                        SKEL     1254
                                        *                                                                        SKEL     1255
                                        *         V=ENTR PROCESS INITIAL REFERENCE TO AN ALT ENTRY               SKEL     1256
                                        *         V=BVD  BEGIN VAR DIM CODE                                      SKEL     1257
                                        *         V=EVD  END VAR DIM CODE                                        SKEL     1258
                                                                                                                 SKEL     1259
                                                                                                                 SKEL     1260
          1107                           GPL      SKEL               GET PASSED LENGTH (OF FP)                   SKEL     1261
          1107 0                                  FMA    T1,42                                                   SKEL     1262
          1107  40043300076500000000              KRS    T3,L1,30                                                SKEL     1263
          1111  00021300460057360000              STR    R1,T1,T3                                                SKEL     1264
          1112  00015160260014020000              ENDS                                                           SKEL     1265
                                                                                                                 SKEL     1266
          1113                           ENTR     SKEL                                                           SKEL     1267
          1113 0                                  CALL   ENT                                                     SKEL     1268
                                                  ENDS                                                           SKEL     1269
                                                                                                                 SKEL     1270
                                                                                                                 SKEL     1271
          1113                           BVD      SKEL               BEGIN VARDIM CODE                           SKEL     1272
          1113 0                                  CALL   BVD                                                     SKEL     1273
                                                  ENDS                                                           SKEL     1274
                                                                                                                 SKEL     1275
                                                                                                                 SKEL     1276
          1113                           EVD      SKEL               END VARDIM CODE                             SKEL     1277
          1113 0                                  CALL   EVD                                                     SKEL     1278
                                                  ENDS                                                           SKEL     1279
                                                                                                                 SKEL     1280
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1281
                                                                                                                 SKEL     1282
                                        **        QCG PROLOGUE AND ENTRY CODE SKELETONS                          SKEL     1283
                                        *                                                                        SKEL     1284
                                        *         V=PROM  - MAIN PROGRAM PROGLOGUE CODE.                         SKEL     1285
                                        *         V=PROS  - SUB PROGRAM PROGLOGUE CODE.                          SKEL     1286
                                        *                                                                        SKEL     1287
                                        *         V=MFPNT - FP CODE UNIQUE TO A MAIN ENTRY CODE OF A SUBR        SKEL     1288
                                        *         V=FUNT  - FUNCTION SUBPROGRAM RESULT CODE                      SKEL     1289
                                        *         V=DFENT - DOUBLE PRECISION FUNCTION CODE                       SKEL     1290
                                        *         V=TMENT - ENTRY/EXIT SETUP + A CALL TO GENERAL ENTRY FP CODE   SKEL     1291
                                        *         V=ALENT - NORMAL ALTERNATE ENTRY CODE                          SKEL     1292
                                        *         V=TENT  - TERMINATE ALTERNATE ENTRY CODE                       SKEL     1293
                                        *         V=FPENT - FP CODE FOR ALL ENTRY POINTS INCLUDES ANY VARDIM     SKEL     1294
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    45
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       ENTRY.
  
                                        *         V=VDENT - VAR DIM CODE EXPANSION (CALLS A NEW I. L.)           SKEL     1295
                                                                                                                 SKEL     1296
                                         PROM     SUBSKEL                  MAIN PROGRAM PROLOG                   SKEL     1297
                                                  LABL   =XS=ENTRY                                               SKEL     1298
                                                  XMTL   X1,T1,=XS=FILES                                         SKEL     1299
                                                  RJ3    =XS=INIT                                                SKEL     1300
                                                  CALL   FINX                                                    SKEL     1301
                                                  ENDS                                                           SKEL     1302
                                                                                                                 SKEL     1303
                                         PROS     SUBSKEL                  SUB PROGRAM PROLOG                    SKEL     1304
                                                  CALL   GENT              GENERATE ALT ENT CODE(CALLS V=ALENT)  SKEL     1305
                                         PROS.M   CALL   MENT              MAIN ENT (CALLS V=MFPNT OR V=TMENT)   SKEL     1306
                                                  ENDS                                                           SKEL     1307
                                                                                                                 SKEL     1308
                                        *         MAIN ENTRY CODE SUBSKELETONS                                   SKEL     1309
                                                                                                                 SKEL     1310
                                         MFPNT    SUBSKEL                  RESET A0 FOR CALLER                   SKEL     1311
                                                  SA=BK  A2,=XS=TA0                                              SKEL     1312
                                                  SA=XB  A0,X2                                                   SKEL     1313
                                                  ENDF                                                           SKEL     1314
                                                                                                                 SKEL     1315
                                         FUNT     SUBSKEL                  FUNCTION ENTRY CODE                   SKEL     1316
                                                  CALL   FUNT                                                    SKEL     1317
                                                  SA=BK  A4,=XS=VALUE                                            SKEL     1318
                                                  XMT    X6,X4                                                   SKEL     1319
                                                  BRANCH TMENT1            TERMINATE MAIN ENTRY                  SKEL     1320
                                                  ENDS                                                           SKEL     1321
                                                                                                                 SKEL     1322
                                         DFENT    SUBSKEL                  DOUBLE PRECISION CODE                 SKEL     1323
                                                  SA=BK  A4,=XS=VALUE                                            SKEL     1324
                                                  SA=AK  A3,A4,+1                                                SKEL     1325
                                                  XMT    X6,X4                                                   SKEL     1326
                                                  ILS    X7,,X3                                                  SKEL     1327
                                                  ENDF                                                           SKEL     1328
                                                                                                                 SKEL     1329
                                         TMENT    SUBSKEL                  TERMINATE MAIN ENTRY CODE             SKEL     1330
                                         TMENT1   LABL   =XS=ENTRY                                               SKEL     1331
                                                  UJP    =XS=ENTRY         RETURN ADDRESS WORD                   SKEL     1332
                                                  CALL   FPHDR       PROCESS HEADER INITIAL CODE                 F2950F5A   11
                                                  CALL   FINX                                                    SKEL     1334
                                                  ENDS                                                           SKEL     1335
                                                                                                                 SKEL     1336
                                        *         ALTERNATE ENTRY SUBSKELS                                       SKEL     1337
                                                                                                                 SKEL     1338
                                         ALENT    SUBSKEL                  STANDARD ALT-ENTRY CODE               SKEL     1339
                                                  LABL   GP1               GP1 IS ALENT TAG                      SKEL     1340
                                                  UJP    GP1                                                     SKEL     1341
                                                  SA=BK  A4,GP1                                                  SKEL     1342
                                                  XMT    X6,X4                                                   SKEL     1343
                                                  SA=BK  A6,=XS=ENTRY      STORE RETURN ADDR IN ENTRY/EXIT       SKEL     1344
                                                  CALL   FPENT                                                   SKEL     1345
                                                  ENDF                                                           SKEL     1346
                                                                                                                 SKEL     1347
                                        *         FP CODE CAN SANDWICH IN HERE.                                  SKEL     1348
                                                                                                                 SKEL     1349
                                         TENT     SUBSKEL                  TERMINATE ALT ENT CODE                SKEL     1350
                                                  UJP    GP2               (GP2) = ENTRY GENERATED LABEL         SKEL     1351
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    46
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       ENTRY.
  
                                                  CALL   GENTX             LOOP FOR NEXT ENTRY                   SKEL     1352
                                                  BRANCH PROS.M            GENTERAT MAIN ENTRY CODE              SKEL     1353
                                                  ENDS                                                           SKEL     1354
                                                                                                                 SKEL     1355
                                                                                                                 SKEL     1356
                                                                                                                 SKEL     1357
                                         #CD      ENDIF                                                          SKEL     1358
  
  
  
  
                                        **        IL STRUCTURE AND BOILER-PLATE.                                 SKEL     1360
                                                                                                                 SKEL     1361
                                                                                                                 SKEL     1362
          1113                           SEG      SKEL                                                           SKEL     1363
          1113 0                                  CALLC  SEG                                                     SKEL     1364
                                                  ENDS                                                           SKEL     1365
                                                                                                                 SKEL     1366
          1113                           NOOP     SKEL   ILL                                                     SKEL     1367
                                                  CALLQ  NOOP                                                    SKEL     1368
          1113 0                                  ENDS                                                           SKEL     1369
                                                                                                                 SKEL     1370
          1113                           HDR      SKEL                         BEGIN NEW PROGRAM-UNIT            SKEL     1371
          1113 0                                  CALL   HDR                                                     SKEL     1372
                                                  ENDS                                                           SKEL     1373
                                                                                                                 SKEL     1374
          1113                           FILE     SKEL                                                           SKEL     1375
          1113 0                                  CALL   GFD         GENERATE FILE DECLARATION                   SKEL     1376
                                                  ENDS                                                           SKEL     1377
                                                                                                                 SKEL     1378
          1113                           PLIM     SKEL                     END OF FILE DECLARATIONS              SKEL     1379
          1113 0                                  CALL   PLIM                                                    SKEL     1380
                                                  ENDS                                                           SKEL     1381
                                                                                                                 SKEL     1382
          1113                           SEX      SKEL                         START OF EXECUTABLES              SKEL     1383
          1113 0                                  CALL   SEX                                                     SKEL     1384
                                                  ENDS                                                           SKEL     1385
                                                                                                                 SKEL     1386
          1113                           CDLOO    SKEL               OBJECT LIST ON/OFF                          SKEL     1387
          1113 0                                  CALL   CDLOO                                                   SKEL     1388
                                                  ENDS                                                           SKEL     1389
                                                                                                                 SKEL     1390
          1113                           CDDOT    SKEL               ZERO/ONE-TRIP DO                            SKEL     1391
          1113 0                                  CALL   CDDOT                                                   SKEL     1392
                                                  ENDS                                                           SKEL     1393
                                                                                                                 SKEL     1394
          1113                           CDCS     SKEL               USER/FIXED COLLATE                          SKEL     1395
          1113 0                                  CALL   CDCS                                                    SKEL     1396
                                                  ENDS                                                           SKEL     1397
                                                                                                                 SKEL     1398
          1113                           DATA     SKEL               DATA TABLE INFO                             SKEL     1399
          1113 0                                  CALL   DATA                                                    SKEL     1400
                                                  ENDS                                                           SKEL     1401
                                                                                                                 SKEL     1402
          1113                           FIN      SKEL                         END OF IL                         SKEL     1403
                                                  CALLQ  CDW                                                     SKEL     1404
                                                  CALLQ  CAR                                                     SKEL     1405
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    47
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       HDR 
  
          1113 0                                  CALL   FIN                                                     SKEL     1406
                                                  ENDS                                                           SKEL     1407
                                                                                                                 SKEL     1408
          1113                           LCC      SKEL                         LOADER CONTROL CARD               SKEL     1409
          1113 0                                  CALL   LCC                                                     SKEL     1410
                                                  ENDS                                                           SKEL     1411
                                                                                                                 SKEL     1412
          1113                           DVI      SKEL                                                           SKEL     1413
          1113 0                                  CALL   ILL                                                     SKEL     1414
                                                  ENDS                                                           SKEL     1415
                                                                                                                 SKEL     1416
          1113                           EXP.I    SKEL               I**J FOR DATA                               SKEL     1417
          1113 0                                  CALL   ILL                                                     SKEL     1418
                                                  ENDS                                                           SKEL     1419
                                                                                                                 SKEL     1420
          1113                           DOBD2    SKEL                                                           SKEL     1421
                                                  CALLQ  NOOP                                                    SKEL     1422
          1113 0                                  ENDS                                                           SKEL     1423
  
  
  
  
                                        *         *IF* INSTRUCTION SKELETONS.                                    SKEL     1425
                                                                                                                 SKEL     1426
                                                                                                                 SKEL     1427
          1113                           IFI123   SKEL                                                           SKEL     1428
          1113 0                                  XMT    T1,L1                                                   FC5A164     9
          1113  40010300020040000000              ZR     T1,"N2"                                                 FC5A164    10
          1114  00067300074006040000              PL     T1,"N3"                                                 FC5A164    11
                                                                                                                 SKEL     1431
          1115  00067300074106050000              UJP    "N1"                                                    SKEL     1432
          1116  00074000000006020000              CALLC  IF,3                                                    SKEL     1433
                                                  ENDS                                                           SKEL     1434
                                                                                                                 SKEL     1435
          1117                           IFI122   SKEL                                                           SKEL     1436
          1117 0                                  CLR    T1                                                      SKEL     1437
          1117  40105300000000000000              IAZ    T2,T1,L1                                                SKEL     1438
          1120  00100300260004010000              PL     T2,"N2"                                                 SKEL     1439
          1121  00067300274106040000              UJP    "N1"                                                    SKEL     1440
          1122  00074000000006020000              CALLC  IF,2                                                    SKEL     1441
                                                  ENDS                                                           SKEL     1442
                                                                                                                 SKEL     1443
          1123                           IFR122   SKEL                                                           SKEL     1444
          1123 0                                  PNR    T1,0,L1                                                 SKEL     1445
          1123  40024300074044010000              PL     T1,"N2"                                                 SKEL     1446
          1124  00067300074106040000              UJP    "N1"                                                    SKEL     1447
          1125  00074000000006020000              CALLC  IF,2                                                    SKEL     1448
                                                  ENDS                                                           SKEL     1449
                                                                                                                 SKEL     1450
          1126                           IFI113   SKEL                                                           SKEL     1451
          1126 0                                  CLR    T1                                                      SKEL     1452
          1126  40105300000000000000              ISZ    T2,T1,L1                                                SKEL     1453
          1127  00101300260004010000              PL     T2,"N1"                                                 SKEL     1454
          1130  00067300274106020000              UJP    "N3"                                                    SKEL     1455
          1131  00074000000006050000              CALLC  IF,2                                                    SKEL     1456
                                                  ENDS                                                           SKEL     1457
                                                                                                                 SKEL     1458
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    48
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
          1132                           IFR113   SKEL                                                           SKEL     1459
          1132 0                                  XMTC   T1,L1                                                   SKEL     1460
          1132  40014300020040000000              PNR    T2,0,T1                                                 SKEL     1461
          1133  00024300274054000000              PL     T2,"N1"                                                 SKEL     1462
          1134  00067300274106020000              UJP    "N3"                                                    SKEL     1463
          1135  00074000000006050000              CALLC  IF,2                                                    SKEL     1464
                                                  ENDS                                                           SKEL     1465
                                                                                                                 SKEL     1466
          1136                           IFI121   SKEL                                                           SKEL     1467
          1136 0                                  ZR     L1,"N2"                                                 SKEL     1468
          1136  40067100274006040000              UJP    "N1"                                                    SKEL     1469
          1137  00074000000006020000              CALLC  IF,2                                                    SKEL     1470
                                                  ENDS                                                           SKEL     1471
                                                                                                                 SKEL     1472
          1140                           IFIN23   SKEL                                                           SKEL     1473
          1140 0                                  XMT    T1,L1                                                   FC5A164    12
          1140  40010300020040000000              ZR     T1,"N2"                                                 FC5A164    13
          1141  00067300074006040000              PL     T1,"N3"                                                 FC5A164    14
          1142  00067300074106050000              CALLC  IF,2                                                    SKEL     1476
                                                  ENDS                                                           SKEL     1477
                                                                                                                 SKEL     1478
          1143                           IFI1N3   SKEL                                                           SKEL     1479
          1143 0                                  CLR    T1                                                      SKEL     1480
          1143  40105300000000000000              IAZ    T2,T1,L1                                                SKEL     1481
          1144  00100300260004010000              MI     T2,"N1"                                                 SKEL     1482
          1145  00067300274146020000              NZ     T2,"N3"                                                 SKEL     1483
          1146  00067300274046050000              CALLC  IF,2                                                    SKEL     1484
                                                  ENDS                                                           SKEL     1485
                                                                                                                 SKEL     1486
          1147                           IFR1N3   SKEL                                                           SKEL     1487
          1147 0                                  PNR    T1,0,L1                                                 SKEL     1488
          1147  40024300074044010000              MI     T1,"N1"                                                 SKEL     1489
          1150  00067300074146020000              NZ     T1,"N3"                                                 SKEL     1490
          1151  00067300074046050000              CALLC  IF,2                                                    SKEL     1491
                                                  ENDS                                                           SKEL     1492
                                                                                                                 SKEL     1493
          1152                           IFI12N   SKEL                                                           SKEL     1494
          1152 0                                  XMT    T1,L1                                                   FC5A164    15
          1152  40010300020040000000              ZR     T1,"N2"                                                 FC5A164    16
          1153  00067300074006040000              MI     T1,"N1"                                                 FC5A164    17
          1154  00067300074146020000              CALLC  IF,2                                                    SKEL     1497
                                                  ENDS                                                           SKEL     1498
                                                                                                                 SKEL     1499
          1155                           IFIN22   SKEL                                                           SKEL     1500
          1155 0                                  CLR    T1                                                      SKEL     1501
          1155  40105300000000000000              IAZ    T2,T1,L1                                                SKEL     1502
          1156  00100300260004010000              PL     T2,"N2"                                                 SKEL     1503
          1157  00067300274106040000              CALLC  IF,1                                                    SKEL     1504
                                                  ENDS                                                           SKEL     1505
                                                                                                                 SKEL     1506
          1160                           IFRN22   SKEL                                                           SKEL     1507
          1160 0                                  PNR    T1,0,L1                                                 SKEL     1508
          1160  40024300074044010000              PL     T1,"N2"                                                 SKEL     1509
          1161  00067300074106040000              CALLC  IF,1                                                    SKEL     1510
                                                  ENDS                                                           SKEL     1511
                                                                                                                 SKEL     1512
          1162                           IFI1NN   SKEL                                                           SKEL     1513
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    49
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
          1162 0                                  CLR    T1                                                      SKEL     1514
          1162  40105300000000000000              IAZ    T2,T1,L1                                                SKEL     1515
          1163  00100300260004010000              MI     T2,"N1"                                                 SKEL     1516
          1164  00067300274146020000              CALLC  IF,1                                                    SKEL     1517
                                                  ENDS                                                           SKEL     1518
                                                                                                                 SKEL     1519
          1165                           IFR1NN   SKEL                                                           SKEL     1520
          1165 0                                  PNR    T1,0,L1                                                 SKEL     1521
          1165  40024300074044010000              MI     T1,"N1"                                                 SKEL     1522
          1166  00067300074146020000              CALLC  IF,1                                                    SKEL     1523
                                                  ENDS                                                           SKEL     1524
                                                                                                                 SKEL     1525
          1167                           IFINN3   SKEL                                                           SKEL     1526
          1167 0                                  CLR    T1                                                      SKEL     1527
          1167  40105300000000000000              ISZ    T2,T1,L1                                                SKEL     1528
          1170  00101300260004010000              MI     T2,"N3"                                                 SKEL     1529
          1171  00067300274146050000              CALLC  IF,1                                                    SKEL     1530
                                                  ENDS                                                           SKEL     1531
                                                                                                                 SKEL     1532
          1172                           IFRNN3   SKEL                                                           SKEL     1533
          1172 0                                  XMTC   T1,L1                                                   SKEL     1534
          1172  40014300020040000000              PNR    T2,0,T1                                                 SKEL     1535
          1173  00024300274054000000              MI     T2,"N3"                                                 SKEL     1536
          1174  00067300274146050000              CALLC  IF,1                                                    SKEL     1537
                                                  ENDS                                                           SKEL     1538
                                                                                                                 SKEL     1539
          1175                           IFI11N   SKEL                                                           SKEL     1540
          1175 0                                  CLR    T1                                                      SKEL     1541
          1175  40105300000000000000              ISZ    T2,T1,L1                                                SKEL     1542
          1176  00101300260004010000              PL     T2,"N1"                                                 SKEL     1543
          1177  00067300274106020000              CALLC  IF,1                                                    SKEL     1544
                                                  ENDS                                                           SKEL     1545
                                                                                                                 SKEL     1546
          1200                           IFR11N   SKEL                                                           SKEL     1547
          1200 0                                  XMTC   T1,L1                                                   SKEL     1548
          1200  40014300020040000000              PNR    T2,0,T1                                                 SKEL     1549
          1201  00024300274054000000              PL     T2,"N1"                                                 SKEL     1550
          1202  00067300274106020000              CALLC  IF,1                                                    SKEL     1551
                                                  ENDS                                                           SKEL     1552
                                                                                                                 SKEL     1553
          1203                           IFIN2N   SKEL                                                           SKEL     1554
          1203 0                                  ZR     L1,"N2"                                                 SKEL     1555
          1203  40067100274006040000              CALLC  IF,1                                                    SKEL     1556
                                                  ENDS                                                           SKEL     1557
                                                                                                                 SKEL     1558
          1204                           IFI1N1   SKEL                                                           SKEL     1559
          1204 0                                  NZ     L1,"N1"                                                 SKEL     1560
          1204  40067100274046020000              CALLC  IF,1                                                    SKEL     1561
                                                  ENDS                                                           SKEL     1562
                                                                                                                 SKEL     1563
                                                                                                                 SKEL     1564
                                                                                                                 SKEL     1565
          1205                           IFIFT    SKEL               JUMP TO ("N3") IF (L1) TRUE                 SKEL     1566
          1205 0                                  MI     L1,"N3"                                                 SKEL     1567
          1205  40067100274146050000              CALLC  IF,1                                                    SKEL     1568
                                                  ENDS                                                           SKEL     1569
                                                                                                                 SKEL     1570
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    50
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
          1206                           IFIFF    SKEL               JUMP TO ("N3") IF (L1) FALSE                SKEL     1571
          1206 0                                  PL     L1,"N3"                                                 SKEL     1572
          1206  40067100274106050000              CALLC  IF,1                                                    SKEL     1573
                                                  ENDS                                                           SKEL     1574
                                                                                                                 SKEL     1575
          1207                           IFI111   SKEL                                                           SKEL     1576
          1207 0                                  UJP    P2                                                      SKEL     1577
          1207  40074000000006020000              CALLC  PGT                                                     SKEL     1578
                                                  ENDS                                                           SKEL     1579
                                                                                                                 SKEL     1580
                                        *         IF SKELETON EQUIVALENTS.                                       SKEL     1581
                                                                                                                 SKEL     1582
                                        *         REAL                                                           SKEL     1583
                                                                                                                 SKEL     1584
          1210                           IFRN2N   SKEQU  IFIN2N                                                  SKEL     1585
          1210                           IFRN23   SKEQU  IFIN23                                                  SKEL     1586
          1210                           IFR111   SKEQU  IFI111                                                  SKEL     1587
          1210                           IFR12N   SKEQU  IFI12N                                                  SKEL     1588
          1210                           IFR123   SKEQU  IFI123                                                  SKEL     1589
                                                                                                                 SKEL     1590
                                        *         DOUBLE PRECISION                                               SKEL     1591
                                                                                                                 SKEL     1592
          1210                           IFDNN3   SKEQU  IFRNN3                                                  SKEL     1593
          1210                           IFDN2N   SKEQU  IFIN2N                                                  SKEL     1594
          1210                           IFDN22   SKEQU  IFRN22                                                  SKEL     1595
          1210                           IFDN23   SKEQU  IFIN23                                                  SKEL     1596
          1210                           IFD1NN   SKEQU  IFR1NN                                                  SKEL     1597
          1210                           IFD1N3   SKEQU  IFR1N3                                                  SKEL     1598
          1210                           IFD11N   SKEQU  IFR11N                                                  SKEL     1599
          1210                           IFD113   SKEQU  IFR113                                                  SKEL     1600
          1210                           IFD111   SKEQU  IFI111                                                  SKEL     1601
          1210                           IFD12N   SKEQU  IFI12N                                                  SKEL     1602
          1210                           IFD122   SKEQU  IFR122                                                  SKEL     1603
          1210                           IFD123   SKEQU  IFI123                                                  SKEL     1604
                                                                                                                 SKEL     1605
                                                                                                                 SKEL     1606
                                        *         IF(ONE RELATIONAL) SKELETONS.                                  SKEL     1607
                                        *         THESE MUST BE DEFINED IN PAIRS (EQ/NE OR LT/GE).               SKEL     1608
                                                                                                                 SKEL     1609
          1210                           IEQ.I    SKEL                                                           SKEL     1610
          1210 0                                  IS     T1,L1,L2                                                SKEL     1611
          1210  40037300020044020000              ZR     T1,"N3"                                                 SKEL     1612
          1211  00067300074006050000              CALLC  IF,1                                                    SKEL     1613
                                                  ENDS                                                           SKEL     1614
                                                                                                                 SKEL     1615
          1212                           IEQ.R    SKEL                                                           SKEL     1616
          1212 0                                  FSR    T1,L1,L2                                                SKEL     1617
          1212  60031300020044020000              NR     T2,,T1                                                  SKEL     1618
          1213  00024300200014000000              ZR     T2,"N3"                                                 SKEL     1619
          1214  00067300274006050000              CALLC  IF,1                                                    SKEL     1620
                                                  ENDS                                                           SKEL     1621
                                                                                                                 SKEL     1622
          1215                           IEQ.D    SKEL                                                           SKEL     1623
          1215 0                                  FSR    T1,LU1,LU2                                              SKEL     1624
          1215  60031300020044020000              PNR    T2,,T1                                                  SKEL     1625
          1216  00024300274054000000              FSR    T3,LL1,LL2                                              SKEL     1626
          1217  20031300424045020000              PNR    T4,,T3                                                  SKEL     1627
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    51
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
          1220  00024300674054020000              OR     T5,T2,T4                                                SKEL     1628
          1221  00012301060054030000              ZR     T5,"N3"                                                 SKEL     1629
          1222  00067301074006050000              CALLC  IF,1                                                    SKEL     1630
                                                  ENDS                                                           SKEL     1631
                                                                                                                 SKEL     1632
          1223                           IEQ.C    SKEL                                                           SKEL     1633
          1223 0                                  FSR    T1,LU1,LU2                                              SKEL     1634
          1223  60031300020044020000              PNR    T2,,T1                                                  SKEL     1635
          1224  00024300274054000000              FSR    T3,LL1,LL2                                              SKEL     1636
          1225  20031300424045020000              PNR    T4,,T3                                                  SKEL     1637
          1226  00024300674054020000              OR     T5,T2,T4                                                SKEL     1638
          1227  00012301060054030000              CLR    T6                                                      SKEL     1639
          1230  00105301200000000000              ISZ    T7,T6,T5                                                SKEL     1640
          1231  00101301460254040000              EQV    T8,T7,T5                                                FC50237     6
          1232  00017301660314040000              MI     T8,"N3"                                                 SKEL     1642
          1233  00067301674146050000              CALLC  IF,1                                                    SKEL     1643
                                                  ENDS                                                           SKEL     1644
                                                                                                                 SKEL     1645
          1234                           INE.I    SKEL                                                           SKEL     1646
          1234 0                                  IS     T1,L1,L2                                                SKEL     1647
          1234  40037300020044020000              NZ     T1,"N3"                                                 SKEL     1648
          1235  00067300074046050000              CALLC  IF,1                                                    SKEL     1649
                                                  ENDS                                                           SKEL     1650
                                                                                                                 SKEL     1651
          1236                           INE.R    SKEL                                                           SKEL     1652
          1236 0                                  FSR    T1,L1,L2                                                SKEL     1653
          1236  60031300020044020000              NR     T2,,T1                                                  SKEL     1654
          1237  00024300200014000000              NZ     T2,"N3"                                                 SKEL     1655
          1240  00067300274046050000              CALLC  IF,1                                                    SKEL     1656
                                                  ENDS                                                           SKEL     1657
                                                                                                                 SKEL     1658
          1241                           INE.D    SKEL                                                           SKEL     1659
          1241 0                                  FSR    T1,LU1,LU2                                              SKEL     1660
          1241  60031300020044020000              PNR    T2,,T1                                                  SKEL     1661
          1242  00024300274054000000              FSR    T3,LL1,LL2                                              SKEL     1662
          1243  20031300424045020000              PNR    T4,,T3                                                  SKEL     1663
          1244  00024300674054020000              OR     T5,T2,T4                                                SKEL     1664
          1245  00012301060054030000              NZ     T5,"N3"                                                 SKEL     1665
          1246  00067301074046050000              CALLC  IF,1                                                    SKEL     1666
                                                  ENDS                                                           SKEL     1667
                                                                                                                 SKEL     1668
          1247                           INE.C    SKEL                                                           SKEL     1669
          1247 0                                  FSR    T1,LU1,LU2                                              SKEL     1670
          1247  60031300020044020000              NR     T2,,T1                                                  SKEL     1671
          1250  00024300200014000000              FSR    T3,LL1,LL2                                              SKEL     1672
          1251  20031300424045020000              NR     T4,,T3                                                  SKEL     1673
          1252  00024300600014020000              NZ     T2,"N3"                                                 SKEL     1674
          1253  00067300274046050000              NZ     T4,"N3"                                                 SKEL     1675
          1254  00067300674046050000              CALLC  IF,2                                                    SKEL     1676
                                                  ENDS                                                           SKEL     1677
                                                                                                                 SKEL     1678
                                                                                                                 SKEL     1679
                                         SKEL     ENDX                                                           SKEL     1680
                                                                                                                 CSKEL     480
          1255  40000000000000000000              VFD    1/1,59/0                                                CSKEL     481
                                                  LIST   G                                                       CSKEL     482
          1256  00000000000000000000              VFD    60/0        FOR ROR                                     CSKEL     483
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    52
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                                                                                                 CSKEL     484
                                                  USE    SCT                                                     CSKEL     485
      L      0                                    LOC    0                                                       CSKEL     486
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    53
        SKELETON CONTROL TABLE CONTENTS.                              SCT       SCT 
  
                                         SCT      HERE                                                           CSKEL     488
      L      0  00000000000000 X        E=ILL    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=ILL,18/O=ILL                SCT     .1
                              000000
      L      1  00000000000000000000 +  E=ADD.I  VFD    1/0,11/0,6/0,24/0,18/O=ADD.I                            SCT     .1
      L      2  00000000000000000001 +  E=ADD.R  VFD    1/0,11/0,6/0,24/0,18/O=ADD.R                            SCT     .1
      L      3  00001000000000000003 +  E=ADD.D  VFD    1/0,11/0,6/8,24/0,18/O=ADD.D                            SCT     .1
      L      4  00000100000000000016 +  E=ADD.C  VFD    1/0,11/0,6/1,24/0,18/O=ADD.C                            SCT     .1
      L      5  00000000000000000022 +  E=SUB.I  VFD    1/0,11/0,6/0,24/0,18/O=SUB.I                            SCT     .1
      L      6  00000000000000000023 +  E=SUB.R  VFD    1/0,11/0,6/0,24/0,18/O=SUB.R                            SCT     .1
      L      7  00001000000000000025 +  E=SUB.D  VFD    1/0,11/0,6/8,24/0,18/O=SUB.D                            SCT     .1
      L     10  00000100000000000031 +  E=SUB.C  VFD    1/0,11/0,6/1,24/0,18/O=SUB.C                            SCT     .1
      L     11  00000000000000 X        E=MUL.I  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=IM,18/O=MUL.I               SCT     .1
                              000000
      L     12  00000000000000000063 +  E=MUL.R  VFD    1/0,11/0,6/0,24/0,18/O=MUL.R                            SCT     .1
      L     13  00000500000000000064 +  E=MUL.D  VFD    1/0,11/0,6/5,24/0,18/O=MUL.D                            SCT     .1
      L     14  00000500000000000074 +  E=MUL.C  VFD    1/0,11/0,6/5,24/0,18/O=MUL.C                            SCT     .1
      L     15  00000000000000 X        E=DIV.I  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=ID,18/O=DIV.I               SCT     .1
                              000000
      L     16  00000000000000000116 +  E=DIV.R  VFD    1/0,11/0,6/0,24/0,18/O=DIV.R                            SCT     .1
      L     17  00001600000000000117 +  E=DIV.D  VFD    1/0,11/0,6/14,24/0,18/O=DIV.D                           SCT     .1
      L     20  00001300000000000140 +  E=DIV.C  VFD    1/0,11/0,6/11,24/0,18/O=DIV.C                           SCT     .1
      L     21  00000000000000000156 +  E=DVC.R  VFD    1/0,11/0,6/0,24/0,18/O=DVC.R                            SCT     .1
      L     22  00000000000000000160 +  E=DIR.R  VFD    1/0,11/0,6/0,24/0,18/O=DIR.R                            SCT     .1
      L     23  00001300000000000161 +  E=DIR.C  VFD    1/0,11/0,6/11,24/0,18/O=DIR.C                           SCT     .1
      L     24  00000000000000000177 +  E=UMI.I  VFD    1/0,11/0,6/0,24/0,18/O=UMI.I                            SCT     .1
      L     25  00000000000000000200 +  E=UMI.D  VFD    1/0,11/0,6/0,24/0,18/O=UMI.D                            SCT     .1
      L     26  00000100000000000202 +  E=LT.I   VFD    1/0,11/0,6/1,24/0,18/O=LT.I                             SCT     .1
      L     27  00000000000000000205 +  E=LT.R   VFD    1/0,11/0,6/0,24/0,18/O=LT.R                             SCT     .1
      L     30  00000400000000000207 +  E=LT.D   VFD    1/0,11/0,6/4,24/0,18/O=LT.D                             SCT     .1
      L     31  00000000000000000215 +  E=LT.H   VFD    1/0,11/0,6/0,24/0,18/O=LT.H                             SCT     .1
      L     32  00000000000000000217 +  E=LLT    VFD    1/0,11/0,6/0,24/0,18/O=LLT                              SCT     .1
      L     33  00000200000000000221 +  E=GE.I   VFD    1/0,11/0,6/2,24/0,18/O=GE.I                             SCT     .1
      L     34  00000100000000000225 +  E=GE.R   VFD    1/0,11/0,6/1,24/0,18/O=GE.R                             SCT     .1
      L     35  00000500000000000230 +  E=GE.D   VFD    1/0,11/0,6/5,24/0,18/O=GE.D                             SCT     .1
      L     36  00000000000000000237 +  E=GE.H   VFD    1/0,11/0,6/0,24/0,18/O=GE.H                             SCT     .1
      L     37  00000000000000000242 +  E=LGE    VFD    1/0,11/0,6/0,24/0,18/O=LGE                              SCT     .1
      L     40  00000300000000000244 +  E=NE.I   VFD    1/0,11/0,6/3,24/0,18/O=NE.I                             SCT     .1
      L     41  00000300000000000251 +  E=NE.R   VFD    1/0,11/0,6/3,24/0,18/O=NE.R                             SCT     .1
      L     42  00001100000000000256 +  E=NE.D   VFD    1/0,11/0,6/9,24/0,18/O=NE.D                             SCT     .1
      L     43  00000200000000000271 +  E=NE.H   VFD    1/0,11/0,6/2,24/0,18/O=NE.H                             SCT     .1
      L     44  00000200000000000276 +  E=LNE    VFD    1/0,11/0,6/2,24/0,18/O=LNE                              SCT     .1
      L     45  00000300000000000300 +  E=EQ.I   VFD    1/0,11/0,6/3,24/0,18/O=EQ.I                             SCT     .1
      L     46  00000300000000000305 +  E=EQ.R   VFD    1/0,11/0,6/3,24/0,18/O=EQ.R                             SCT     .1
      L     47  00001100000000000312 +  E=EQ.D   VFD    1/0,11/0,6/9,24/0,18/O=EQ.D                             SCT     .1
      L     50  00000200000000000325 +  E=EQ.H   VFD    1/0,11/0,6/2,24/0,18/O=EQ.H                             SCT     .1
      L     51  00000200000000000332 +  E=LEQ    VFD    1/0,11/0,6/2,24/0,18/O=LEQ                              SCT     .1
      L     52  00000000000000000334 +  E=STR.I  VFD    1/0,11/0,6/0,24/0,18/O=STR.I                            SCT     .1
      L     53  00000000000000000335 +  E=STR.D  VFD    1/0,11/0,6/0,24/0,18/O=STR.D                            SCT     .1
      L     54  00000000000000 X        E=STR.H  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=HSTO,18/O=STR.H             SCT     .1
                              000000
      L     55  00000000000000 X        E=CAT    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=HCAT,18/O=CAT               SCT     .1
                              000000
      L     56  00000000000000 X        E=COLON  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=HCOL,18/O=COLON             SCT     .1
                              000000
      L     57  00000000000000 X        E=SUBST  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=HSBS,18/O=SUBST             SCT     .1
                              000000
      L     60  00000000000000000340 +  E=ITOR   VFD    1/0,11/0,6/0,24/0,18/O=ITOR                             SCT     .1
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    54
        SKELETON CONTROL TABLE CONTENTS.                              SCT       SCT 
  
      L     61  00000000000000000342 +  E=ITOB   VFD    1/0,11/0,6/0,24/0,18/O=ITOB                             SCT     .1
      L     62  00000000000000000343 +  E=ITOD   VFD    1/0,11/0,6/0,24/0,18/O=ITOD                             SCT     .1
      L     63  00002400000000000346 +  E=RTOI   VFD    1/0,11/0,6/20,24/0,18/O=RTOI                            SCT     .1
      L     64  00000000000000000351 +  E=RTOD   VFD    1/0,11/0,6/0,24/0,18/O=RTOD                             SCT     .1
      L     65  00000000000000000353 +  E=DTOC   VFD    1/0,11/0,6/0,24/0,18/O=DTOC                             SCT     .1
      L     66  00000000000000000355 +  E=NOT.L  VFD    1/0,11/0,6/0,24/0,18/O=NOT.L                            SCT     .1
      L     67  00000000000000000356 +  E=AND.L  VFD    1/0,11/0,6/0,24/0,18/O=AND.L                            SCT     .1
      L     70  00000000000000000357 +  E=EQV.L  VFD    1/0,11/0,6/0,24/0,18/O=EQV.L                            SCT     .1
      L     71  00000000000000000360 +  E=OR.L   VFD    1/0,11/0,6/0,24/0,18/O=OR.L                             SCT     .1
      L     72  00000000000000000361 +  E=XOR.L  VFD    1/0,11/0,6/0,24/0,18/O=XOR.L                            SCT     .1
      L     73  00000100000000000362 +  E=ABS    VFD    1/0,11/0,6/1,24/0,18/O=ABS                              SCT     .1
      L     74  00000000000000000365 +  E=SUM1S  VFD    1/0,11/0,6/0,24/0,18/O=SUM1S                            SCT     .1
      L     75  00000000000000000366 +  E=AIMAG  VFD    1/0,11/0,6/0,24/0,18/O=AIMAG                            SCT     .1
      L     76  00000200000000000367 +  E=AINT   VFD    1/0,11/0,6/2,24/0,18/O=AINT                             SCT     .1
      L     77  00000300000000000373 +  E=ANINT  VFD    1/0,11/0,6/3,24/0,18/O=ANINT                            SCT     .1
      L    100  00000400000000000400 +  E=MAX0   VFD    1/0,11/0,6/4,24/0,18/O=MAX0                             SCT     .1
      L    101  00001300000000000406 +  E=DMAX1  VFD    1/0,11/0,6/11,24/0,18/O=DMAX1                           SCT     .1
      L    102  00000400000000000424 +  E=MIN0   VFD    1/0,11/0,6/4,24/0,18/O=MIN0                             SCT     .1
      L    103  00001300000000000426 +  E=DMIN1  VFD    1/0,11/0,6/11,24/0,18/O=DMIN1                           SCT     .1
      L    104  00000400000000000432 +  E=AMAX1  VFD    1/0,11/0,6/4,24/0,18/O=AMAX1                            SCT     .1
      L    105  00000400000000000434 +  E=AMIN1  VFD    1/0,11/0,6/4,24/0,18/O=AMIN1                            SCT     .1
      L    106  00001300000000000436 +  E=AMOD   VFD    1/0,11/0,6/11,24/0,18/O=AMOD                            SCT     .1
      L    107  00000000000000000453 +  E=CONJG  VFD    1/0,11/0,6/0,24/0,18/O=CONJG                            SCT     .1
      L    110  00000000000000000455 +  E=CMPLX  VFD    1/0,11/0,6/0,24/0,18/O=CMPLX                            SCT     .1
      L    111  00000100000000000457 +  E=DABS   VFD    1/0,11/0,6/1,24/0,18/O=DABS                             SCT     .1
      L    112  00001400000000000463 +  E=DDIM   VFD    1/0,11/0,6/12,24/0,18/O=DDIM                            SCT     .1
      L    113  00000300000000000502 +  E=DIM    VFD    1/0,11/0,6/3,24/0,18/O=DIM                              SCT     .1
      L    114  00000600000000000507 +  E=DINT   VFD    1/0,11/0,6/6,24/0,18/O=DINT                             SCT     .1
      L    115  00000000000000000520 +  E=DPROD  VFD    1/0,11/0,6/0,24/0,18/O=DPROD                            SCT     .1
      L    116  00000600000000000522 +  E=DNINT  VFD    1/0,11/0,6/6,24/0,18/O=DNINT                            SCT     .1
      L    117  00000700000000000533 +  E=DSIGN  VFD    1/0,11/0,6/7,24/0,18/O=DSIGN                            SCT     .1
      L    120  00000300000000000545 +  E=IDNINT VFD    1/0,11/0,6/3,24/0,18/O=IDNINT                           SCT     .1
      L    121  00000600000000000552 +  E=ISIGN  VFD    1/0,11/0,6/6,24/0,18/O=ISIGN                            SCT     .1
      L    122  00000200000000000562 +  E=IDIM   VFD    1/0,11/0,6/2,24/0,18/O=IDIM                             SCT     .1
      L    123  00000000000000 X        E=MASK   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=MASK,18/O=MASK              SCT     .1
                              000000
      L    124  00000000000000 X        E=MOD    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=MOD,18/O=MOD                SCT     .1
                              000000
      L    125  00000000000000000615 +  E=RANF   VFD    1/0,11/0,6/0,24/0,18/O=RANF                             SCT     .1
      L    126  00000000000000 X        E=SHIFT  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=SHIFT,18/O=SHIFT            SCT     .1
                              000000
      L    127  00000000000000000623 +  E=DOBS   VFD    1/0,11/0,6/0,24/0,18/O=DOBS                             SCT     .1
      L    130  00000000000000000630 +  E=DOBL   VFD    1/0,11/0,6/0,24/0,18/O=DOBL                             SCT     .1
      L    131  00000000000000000632 +  E=DOBZS  VFD    1/0,11/0,6/0,24/0,18/O=DOBZS                            SCT     .1
      L    132  00000000000000000640 +  E=DOBZL  VFD    1/0,11/0,6/0,24/0,18/O=DOBZL                            SCT     .1
      L    133  00000200000000000647 +  E=DOC.S  VFD    1/0,11/0,6/2,24/0,18/O=DOC.S                            SCT     .1
      L    134  00000000000000 X        E=DOC.O  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PDE,18/O=DOC.O              SCT     .1
                              000656 +
      L    135  00000000000000 X        E=DOC.1  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PDE1,18/O=DOC.1             SCT     .1
                              000663 +
      L    136  00000200000000000702 +  E=DOC.L  VFD    1/0,11/0,6/2,24/0,18/O=DOC.L                            SCT     .1
      L    137  00000200000000000707 +  E=DOC.R  VFD    1/0,11/0,6/2,24/0,18/O=DOC.R                            SCT     .1
      L    140  00001200000000000713 +  E=DOC.D  VFD    1/0,11/0,6/10,24/0,18/O=DOC.D                           SCT     .1
      L    141  00000000000000 X        E=IOLC   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=IOLC,18/O=IOLC              SCT     .1
                              000000
      L    142  17010000000000 X        E=LCIF   VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=LCIF         SCT     .1
                              000744 +
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    55
        SKELETON CONTROL TABLE CONTENTS.                              SCT       SCT 
  
      L    143  00000000000000 X        E=GOTO   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PGT,18/O=GOTO               SCT     .1
                              000746 +
      L    144  00002400000000 X        E=AGOTO  VFD    1/0,11/0,6/20,2/0,4/0,18/=XP=PAG,18/O=AGOTO             SCT     .1
                              000747 +
      L    145  14242400000000 X        E=CGOTO  VFD    1/0,5/AT.T21,6/T21.,6/20,2/0,4/0,18/=XP=PCG,18/O=CGOTO  SCT     .1
                              000753 +
      L    146  00000000000000 X        E=JGOTO  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=JGOC,18/O=JGOTO             SCT     .1
                              000766 +
      L    147  00002400000000000767 +  E=RGOTO  VFD    1/0,11/0,6/20,24/0,18/O=RGOTO                           SCT     .1
      L    150  04010000000000 X        E=ASSGN  VFD    1/0,5/AT.L1,6/L1.,6/0,2/0,4/0,18/=XP=PASG,18/O=ASSGN    SCT     .1
                              000000
      L    151  06010000000000 X        E=BSS    VFD    1/0,5/AT.P1,6/P1.,6/0,2/0,4/0,18/=XP=PLA,18/O=BSS       SCT     .1
                              000000
      L    152  00000000000000 X        E=ARY    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PAR,18/O=ARY                SCT     .1
                              000000
      L    153  00000000000000 X        E=GAP    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=GAP,18/O=GAP                SCT     .1
                              000000
      L    154  00000000000000 X        E=FAP    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=FAP,18/O=FAP                SCT     .1
                              000000
      L    155  00000000000000 X        E=IAP    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=IAP,18/O=IAP                SCT     .1
                              000000
      L    156  00000000000000 X        E=APIOC  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=IOC,18/O=APIOC              SCT     .1
                              000000
      L    157  00000000000000 X        E=APIOD  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=IOD,18/O=APIOD              SCT     .1
                              000000
      L    160  00000000000000 X        E=APIOU  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=IOU,18/O=APIOU              SCT     .1
                              000000
      L    161  00000000000000 X        E=SUBR   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=SUB,18/O=SUBR               SCT     .1
                              000000
      L    162  00000000000000 X        E=FUNC   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=FUN,18/O=FUNC               SCT     .1
                              000000
      L    163  00000000000000 X        E=LIBF   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=LIBF,18/O=LIBF              SCT     .1
                              000000
      L    164  00000000000000 X        E=INTF   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=INF,18/O=INTF               SCT     .1
                              000000
      L    165  00000000000000 X        E=IOSUB  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=IOF,18/O=IOSUB              SCT     .1
                              000000
      L    166  00000000000000 X        E=ERR    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=LRJ,18/O=ERR                SCT     .1
                              001101 +
      L    167  00000000000000 X        E=STOP   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PEX,18/O=STOP               SCT     .1
                              001102 +
      L    170  00000000000000 X        E=PAUS   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=LIB,18/O=PAUS               SCT     .1
                              000000
      L    171  00000000000000 X        E=RET    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PEX,18/O=RET                SCT     .1
                              001103 +
      L    172  00000000000000 X        E=RTNK   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PEX,18/O=RTNK               SCT     .1
                              001104 +
      L    173  00000200000000001107 +  E=GPL    VFD    1/0,11/0,6/2,24/0,18/O=GPL                              SCT     .1
      L    174  00000000000000 X        E=ENTR   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=ENT,18/O=ENTR               SCT     .1
                              000000
      L    175  00000000000000 X        E=BVD    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=BVD,18/O=BVD                SCT     .1
                              000000
      L    176  00000000000000 X        E=EVD    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=EVD,18/O=EVD                SCT     .1
                              000000
      L    177  00000000000000 X        E=SEG    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=SEG,18/O=SEG                SCT     .1
                              000000
      L    200  00000000000000000000    E=NOOP   VFD    1/0,11/0,6/0,24/0,18/O=NOOP                             SCT     .1
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    56
        SKELETON CONTROL TABLE CONTENTS.                              SCT       SCT 
  
      L    201  00000000000000 X        E=HDR    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=HDR,18/O=HDR                SCT     .1
                              000000
      L    202  00000000000000 X        E=FILE   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=GFD,18/O=FILE               SCT     .1
                              000000
      L    203  00000000000000 X        E=PLIM   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PLIM,18/O=PLIM              SCT     .1
                              000000
      L    204  00000000000000 X        E=SEX    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=SEX,18/O=SEX                SCT     .1
                              000000
      L    205  00000000000000 X        E=CDLOO  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=CDLOO,18/O=CDLOO            SCT     .1
                              000000
      L    206  00000000000000 X        E=CDDOT  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=CDDOT,18/O=CDDOT            SCT     .1
                              000000
      L    207  00000000000000 X        E=CDCS   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=CDCS,18/O=CDCS              SCT     .1
                              000000
      L    210  00000000000000 X        E=DATA   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=DATA,18/O=DATA              SCT     .1
                              000000
      L    211  00000000000000 X        E=FIN    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=FIN,18/O=FIN                SCT     .1
                              000000
      L    212  00000000000000 X        E=LCC    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=LCC,18/O=LCC                SCT     .1
                              000000
      L    213  00000000000000 X        E=DVI    VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=ILL,18/O=DVI                SCT     .1
                              000000
      L    214  00000000000000 X        E=EXP.I  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=ILL,18/O=EXP.I              SCT     .1
                              000000
      L    215  00000000000000000000    E=DOBD2  VFD    1/0,11/0,6/0,24/0,18/O=DOBD2                            SCT     .1
      L    216  17030000000000 X        E=IFI123 VFD    1/0,5/AT.K0,6/3,6/0,2/0,4/0,18/=XP=IF,18/O=IFI123       SCT     .1
                              001113 +
      L    217  17020100000000 X        E=IFI122 VFD    1/0,5/AT.K0,6/2,6/1,2/0,4/0,18/=XP=IF,18/O=IFI122       SCT     .1
                              001117 +
      L    220  17020000000000 X        E=IFR122 VFD    1/0,5/AT.K0,6/2,6/0,2/0,4/0,18/=XP=IF,18/O=IFR122       SCT     .1
                              001123 +
      L    221  17020100000000 X        E=IFI113 VFD    1/0,5/AT.K0,6/2,6/1,2/0,4/0,18/=XP=IF,18/O=IFI113       SCT     .1
                              001126 +
      L    222  17020100000000 X        E=IFR113 VFD    1/0,5/AT.K0,6/2,6/1,2/0,4/0,18/=XP=IF,18/O=IFR113       SCT     .1
                              001132 +
      L    223  17020000000000 X        E=IFI121 VFD    1/0,5/AT.K0,6/2,6/0,2/0,4/0,18/=XP=IF,18/O=IFI121       SCT     .1
                              001136 +
      L    224  17020000000000 X        E=IFIN23 VFD    1/0,5/AT.K0,6/2,6/0,2/0,4/0,18/=XP=IF,18/O=IFIN23       SCT     .1
                              001140 +
      L    225  17020100000000 X        E=IFI1N3 VFD    1/0,5/AT.K0,6/2,6/1,2/0,4/0,18/=XP=IF,18/O=IFI1N3       SCT     .1
                              001143 +
      L    226  17020000000000 X        E=IFR1N3 VFD    1/0,5/AT.K0,6/2,6/0,2/0,4/0,18/=XP=IF,18/O=IFR1N3       SCT     .1
                              001147 +
      L    227  17020000000000 X        E=IFI12N VFD    1/0,5/AT.K0,6/2,6/0,2/0,4/0,18/=XP=IF,18/O=IFI12N       SCT     .1
                              001152 +
      L    230  17010100000000 X        E=IFIN22 VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=IFIN22       SCT     .1
                              001155 +
      L    231  17010000000000 X        E=IFRN22 VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=IFRN22       SCT     .1
                              001160 +
      L    232  17010100000000 X        E=IFI1NN VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=IFI1NN       SCT     .1
                              001162 +
      L    233  17010000000000 X        E=IFR1NN VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=IFR1NN       SCT     .1
                              001165 +
      L    234  17010100000000 X        E=IFINN3 VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=IFINN3       SCT     .1
                              001167 +
      L    235  17010100000000 X        E=IFRNN3 VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=IFRNN3       SCT     .1
                              001172 +
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    57
        SKELETON CONTROL TABLE CONTENTS.                              SCT       SCT 
  
      L    236  17010100000000 X        E=IFI11N VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=IFI11N       SCT     .1
                              001175 +
      L    237  17010100000000 X        E=IFR11N VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=IFR11N       SCT     .1
                              001200 +
      L    240  17010000000000 X        E=IFIN2N VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=IFIN2N       SCT     .1
                              001203 +
      L    241  17010000000000 X        E=IFI1N1 VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=IFI1N1       SCT     .1
                              001204 +
      L    242  17010000000000 X        E=IFIFT  VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=IFIFT        SCT     .1
                              001205 +
      L    243  17010000000000 X        E=IFIFF  VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=IFIFF        SCT     .1
                              001206 +
      L    244  00000000000000 X        E=IFI111 VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PGT,18/O=IFI111             SCT     .1
                              001207 +
      L    245  17010000000000 X        E=IEQ.I  VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=IEQ.I        SCT     .1
                              001210 +
      L    246  17010100000000 X        E=IEQ.R  VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=IEQ.R        SCT     .1
                              001212 +
      L    247  17010400000000 X        E=IEQ.D  VFD    1/0,5/AT.K0,6/1,6/4,2/0,4/0,18/=XP=IF,18/O=IEQ.D        SCT     .1
                              001215 +
      L    250  17010700000000 X        E=IEQ.C  VFD    1/0,5/AT.K0,6/1,6/7,2/0,4/0,18/=XP=IF,18/O=IEQ.C        SCT     .1
                              001223 +
      L    251  17010000000000 X        E=INE.I  VFD    1/0,5/AT.K0,6/1,6/0,2/0,4/0,18/=XP=IF,18/O=INE.I        SCT     .1
                              001234 +
      L    252  17010100000000 X        E=INE.R  VFD    1/0,5/AT.K0,6/1,6/1,2/0,4/0,18/=XP=IF,18/O=INE.R        SCT     .1
                              001236 +
      L    253  17010400000000 X        E=INE.D  VFD    1/0,5/AT.K0,6/1,6/4,2/0,4/0,18/=XP=IF,18/O=INE.D        SCT     .1
                              001241 +
      L    254  17020300000000 X        E=INE.C  VFD    1/0,5/AT.K0,6/2,6/3,2/0,4/0,18/=XP=IF,18/O=INE.C        SCT     .1
                              001247 +
      L                                  SUBSKELS HERE                                                           CSKEL     489
      L    255  00000000000000000035 +  E=IMVC   VFD    1/0,11/0,6/0,24/0,18/O=IMVC                             SUBSKELS.1
      L    256  00000000000000000036 +  E=IM2    VFD    1/0,11/0,6/0,24/0,18/O=IM2                              SUBSKELS.1
      L    257  00000100000000000037 +  E=SHFC   VFD    1/0,11/0,6/1,24/0,18/O=SHFC                             SUBSKELS.1
      L    260  00000400000000000042 +  E=SHFS   VFD    1/0,11/0,6/4,24/0,18/O=SHFS                             SUBSKELS.1
      L    261  00000300000000000050 +  E=SHFD   VFD    1/0,11/0,6/3,24/0,18/O=SHFD                             SUBSKELS.1
      L    262  00000100000000000055 +  E=SHFS1  VFD    1/0,11/0,6/1,24/0,18/O=SHFS1                            SUBSKELS.1
      L    263  00000100000000000060 +  E=SHFD1  VFD    1/0,11/0,6/1,24/0,18/O=SHFD1                            SUBSKELS.1
      L    264  00002400000000000104 +  E=IDVC   VFD    1/0,11/0,6/20,24/0,18/O=IDVC                            SUBSKELS.1
      L    265  00000100000000000113 +  E=IDP2   VFD    1/0,11/0,6/1,24/0,18/O=IDP2                             SUBSKELS.1
      L    266  00002400000000000566 +  E=MASKV  VFD    1/0,11/0,6/20,24/0,18/O=MASKV                           SUBSKELS.1
      L    267  00000000000000000575 +  E=MASKC  VFD    1/0,11/0,6/0,24/0,18/O=MASKC                            SUBSKELS.1
      L    270  00002400000000000576 +  E=MODG   VFD    1/0,11/0,6/20,24/0,18/O=MODG                            SUBSKELS.1
      L    271  00000400000000000607 +  E=MODP2  VFD    1/0,11/0,6/4,24/0,18/O=MODP2                            SUBSKELS.1
      L    272  00002400000000000620 +  E=SHIFV  VFD    1/0,11/0,6/20,24/0,18/O=SHIFV                           SUBSKELS.1
      L    273  06070000000000 X        E=DOBO   VFD    1/0,5/AT.P5,6/P5.,6/0,2/0,4/0,18/=XP=DOB,18/O=DOBO      SUBSKELS.1
                              000000
      L    274  00000000000000000645 +  E=DOZO   VFD    1/0,11/0,6/0,24/0,18/O=DOZO                             SUBSKELS.1
      L    275  00000200000000000661 +  E=DOC.K  VFD    1/0,11/0,6/2,24/0,18/O=DOC.K                            SUBSKELS.1
      L    276  00000200000000000665 +  E=DC.OV  VFD    1/0,11/0,6/2,24/0,18/O=DC.OV                            SUBSKELS.1
      L    277  00000200000000000672 +  E=DC.OC  VFD    1/0,11/0,6/2,24/0,18/O=DC.OC                            SUBSKELS.1
      L    300  00000100000000 X        E=DC.OS  VFD    1/0,11/0,6/1,2/0,4/0,18/=XP=PDE,18/O=DC.OS              SUBSKELS.1
                              000674 +
      L    301  00000000000000 X        E=DC.O1  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=PDE1,18/O=DC.O1             SUBSKELS.1
                              000700 +
      L    302  00000000000000000732 +  E=IOLC1  VFD    1/0,11/0,6/0,24/0,18/O=IOLC1                            SUBSKELS.1
      L    303  00000600000000000734 +  E=IOLC0  VFD    1/0,11/0,6/6,24/0,18/O=IOLC0                            SUBSKELS.1
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    58
        SKELETON CONTROL TABLE CONTENTS.                              SCT       SCT 
  
      L    304  00000200000000001003 +  E=ASLAB  VFD    1/0,11/0,6/2,24/0,18/O=ASLAB                            SUBSKELS.1
      L    305  00000000000000001006 +  E=ASFMT  VFD    1/0,11/0,6/0,24/0,18/O=ASFMT                            SUBSKELS.1
      L    306  00000000000000 X        E=APSTR  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=APRET,18/O=APSTR            SUBSKELS.1
                              001007 +
      L    307  00000200000000 X        E=IPLUG  VFD    1/0,11/0,6/2,2/0,4/0,18/=XP=APRET,18/O=IPLUG            SUBSKELS.1
                              001010 +
      L    310  00000300000000 X        E=IPLG1  VFD    1/0,11/0,6/3,2/0,4/0,18/=XP=APRET,18/O=IPLG1            SUBSKELS.1
                              001014 +
      L    311  00000500000000 X        E=IPLG2  VFD    1/0,11/0,6/5,2/0,4/0,18/=XP=APRET,18/O=IPLG2            SUBSKELS.1
                              001021 +
      L    312  00000400000000 X        E=IPLG0  VFD    1/0,11/0,6/4,2/0,4/0,18/=XP=APRET,18/O=IPLG0            SUBSKELS.1
                              001030 +
      L    313  00000000000000 X        E=CAPST  VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=SCRET,18/O=CAPST            SUBSKELS.1
                              001036 +
      L    314  00000600000000 X        E=CISST  VFD    1/0,11/0,6/6,2/0,4/0,18/=XP=SCRET,18/O=CISST            SUBSKELS.1
                              001040 +
      L    315  00000400000000 X        E=CIAST  VFD    1/0,11/0,6/4,2/0,4/0,18/=XP=SCRET,18/O=CIAST            SUBSKELS.1
                              001050 +
      L    316  00000600000000 X        E=CIS0S  VFD    1/0,11/0,6/6,2/0,4/0,18/=XP=SCRET,18/O=CIS0S            SUBSKELS.1
                              001056 +
      L    317  00000600000000 X        E=CIA0S  VFD    1/0,11/0,6/6,2/0,4/0,18/=XP=SCRET,18/O=CIA0S            SUBSKELS.1
                              001066 +
      L    320  00000000000000 X        E=DFRS   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=FRRET,18/O=DFRS             SUBSKELS.1
                              001076 +
      L    321  00000000000000 X        E=DFRD   VFD    1/0,11/0,6/0,2/0,4/0,18/=XP=FRRET,18/O=DFRD             SUBSKELS.1
                              001077 +
      L                                  ENT      HERE                                                           CSKEL     490
                                        *         DEFINE V=NOOP FOR BRIDGE.                                      FC5A150   548
                                                                                                                 FC5A150   549
                                                  ENTRY  V=NOOP                                                  FC5A150   550
          1601                                    END                                                            CSKEL     491
  
                             77400B CM  STORAGE USED            44766 STATEMENTS     2712 SYMBOLS 
                               PARALLEL CPU ASSEMBLY           31.331 SECONDS        2786 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADD.D1          6   PROGRAM*       17/30 L   18/18
        ANINT1        373   PROGRAM*       29/27 L
        AT.A            1                  10/03 D   10/03
        AT.B            2                  10/04 D   10/04
        AT.GL          12                  10/14 D   10/14     10/15
        AT.GLL         13                  10/16 D   10/16
        AT.GLU         12                  10/15 D   10/15
        AT.GP          11                  10/13 D   10/13
        AT.IND         17                   9/56 D   10/04     10/06     10/09     10/12     10/14     10/17     10/19
                                           10/03     10/05     10/08     10/10     10/13     10/16     10/18     10/20
                                           10/03 D   10/05 D   10/08 D   10/10 D   10/13 D   10/16 D   10/18 D   10/20 D
                                           10/03     10/05     10/08     10/10     10/13     10/16     10/18     10/20
                                           10/04     10/06     10/09     10/12     10/14     10/17     10/19
                                           10/04 D   10/06 D   10/09 D   10/12 D   10/14 D   10/17 D   10/19 D
        AT.K           17                  10/20 D   10/20
        AT.L            4                  10/06 D   10/06     10/07
        AT.LL           5                  10/08 D   10/08
        AT.LU           4                  10/07 D   10/07
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    59
        SYMBOLIC REFERENCE TABLE. 
  
        AT.P            6                  10/09 D   10/09
        AT.Q           15                  10/18 D   10/18
        AT.R            7                  10/10 D   10/10     10/11
        AT.RL          10                  10/12 D   10/12
        AT.RU           7                  10/11 D   10/11
        AT.S           16                  10/19 D   10/19
        AT.T           14                  10/17 D   10/17
        AT.X            3                  10/05 D   10/05
        BRT             0                  17/10 D   21/36 D   25/34 D   30/28 D   35/49 D   39/39 D   44/07 D   48/37 D
                                           17/17 D   22/05 D   25/48 D   30/53 D   36/09 D   39/43 D   44/24 D   48/44 D
                                           17/21 D   22/11 D   25/53 D   31/02 D   36/12 D   40/04 D   44/30 D   48/51 D
                                           17/26 D   22/26 D   25/57 D   31/08 D   36/14 D   40/08 D   44/35 D   48/57 D
                                           17/30 D   22/32 D   26/10 D   31/18 D   36/19 D   40/12 D   44/40 D   49/07 D
                                           17/40 D   22/37 D   26/15 D   31/39 D   36/26 D   40/48 D   46/15 D   49/13 D
                                           18/04 D   22/46 D   26/19 D   31/47 D   36/32 D   40/52 D   46/19 D   49/20 D
                                           18/08 D   22/48 D   26/28 D   32/01 D   36/38 D   40/56 D   46/23 D   49/27 D
                                           18/13 D   22/51 D   26/33 D   32/06 D   36/40 D   41/04 D   46/27 D   49/34 D
                                           18/20 D   23/01 D   26/46 D   32/18 D   36/46 D   41/10 D   46/31 D   49/41 D
                                           18/36 D   23/08 D   28/07 D   32/41 D   36/51 D   41/18 D   46/35 D   49/46 D
                                           18/40 D   23/14 D   28/14 D   32/55 D   37/02 D   41/27 D   46/39 D   49/53 D
                                           18/50 D   23/26 D   28/21 D   33/08 D   37/11 D   41/38 D   46/43 D   50/01 D
                                           18/56 D   23/28 D   28/28 D   33/14 D   37/14 D   41/49 D   46/47 D   50/06 D
                                           19/06 D   23/32 D   28/35 D   33/18 D   37/15 D   41/56 D   46/51 D   50/40 D
                                           19/14 D   23/37 D   29/04 D   33/26 D   37/19 D   42/10 D   46/55 D   50/46 D
                                           19/21 D   23/45 D   29/10 D   33/30 D   37/26 D   42/21 D   47/04 D   50/53 D
                                           19/27 D   23/53 D   29/15 D   33/34 D   37/46 D   42/32 D   47/08 D   51/06 D
                                           19/34 D   24/14 D   29/19 D   33/45 D   37/50 D   42/57 D   47/12 D   51/19 D
                                           19/38 D   24/16 D   29/26 D   34/05 D   37/55 D   43/04 D   47/16 D   51/25 D
                                           19/49 D   24/21 D   29/27 D   34/20 D   38/11 D   43/08 D   47/26 D   51/32 D
                                           20/12 D   24/26 D   29/34 D   34/24 D   38/24 D   43/11 D   47/35 D   51/42 D
                                           20/16 D   24/34 D   29/36 D   35/12 D   38/30 D   43/15 D   47/43 D
                                           20/34 D   24/42 D   29/42 D   35/14 D   38/38 D   43/21 D   47/50 D
                                           20/40 D   25/03 D   29/46 D   35/21 D   38/53 D   43/26 D   48/01 D
                                           20/44 D   25/05 D   30/01 D   35/26 D   39/01 D   43/35 D   48/09 D
                                           21/07 D   25/10 D   30/06 D   35/30 D   39/16 D   43/47 D   48/15 D
                                           21/26 D   25/22 D   30/13 D   35/36 D   39/25 D   43/54 D   48/22 D
                                           21/32 D   25/28 D   30/18 D   35/45 D   39/34 D   44/01 D   48/30 D
        B1=1            0 
        DC.O1         666   PROGRAM*       36/40 L   36/49
        DMAX11        411   PROGRAM*       29/46 L   30/11
        DOBS1         624   PROGRAM*       35/14 L   35/24
        DOBZ1         635   PROGRAM*       35/30 L   35/42     35/52
        DOCL1         704   PROGRAM*       37/14 L   37/24
        DOCL2         705   PROGRAM*       37/15 L   37/42
        DOCS1         651   PROGRAM*       36/12 L   36/29
        DOCS2         653   PROGRAM*       36/14 L   37/17
        EQH1          326   PROGRAM*       25/05 L   25/13
        E=ABS          73                  53/01 L   58/27
        E=ADD.C         4                  53/01 L   58/27
        E=ADD.D         3                  53/01 L   58/27
        E=ADD.I         1                  53/01 L   58/27
        E=ADD.R         2                  53/01 L   58/27
        E=AGOTO       144                  53/01 L   58/27
        E=AIMAG        75                  53/01 L   58/27
        E=AINT         76                  53/01 L   58/27
        E=AMAX1       104                  53/01 L   58/27
        E=AMIN1       105                  53/01 L   58/27
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    60
        SYMBOLIC REFERENCE TABLE. 
  
        E=AMOD        106                  53/01 L   58/27
        E=AND.L        67                  53/01 L   58/27
        E=ANINT        77                  53/01 L   58/27
        E=APIOC       156                  53/01 L   58/27
        E=APIOD       157                  53/01 L   58/27
        E=APIOU       160                  53/01 L   58/27
        E=APSTR       306                  57/31 L   58/27
        E=ARY         152                  53/01 L   58/27
        E=ASFMT       305                  57/31 L   58/27
        E=ASLAB       304                  57/31 L   58/27
        E=ASSGN       150                  53/01 L   58/27
        E=BSS         151                  53/01 L   58/27
        E=BVD         175                  53/01 L   58/27
        E=CAPST       313                  57/31 L   58/27
        E=CAT          55                  53/01 L   58/27
        E=CDCS        207                  53/01 L   58/27
        E=CDDOT       206                  53/01 L   58/27
        E=CDLOO       205                  53/01 L   58/27
        E=CGOTO       145                  53/01 L   58/27
        E=CIAST       315                  57/31 L   58/27
        E=CIA0S       317                  57/31 L   58/27
        E=CISST       314                  57/31 L   58/27
        E=CIS0S       316                  57/31 L   58/27
        E=CMPLX       110                  53/01 L   58/27
        E=COLON        56                  53/01 L   58/27
        E=CONJG       107                  53/01 L   58/27
        E=DABS        111                  53/01 L   58/27
        E=DATA        210                  53/01 L   58/27
        E=DC.OC       277                  57/31 L   58/27
        E=DC.OS       300                  57/31 L   58/27
        E=DC.OV       276                  57/31 L   58/27
        E=DC.O1       301                  57/31 L   58/27
        E=DDIM        112                  53/01 L   58/27
        E=DFRD        321                  57/31 L   58/27
        E=DFRS        320                  57/31 L   58/27
        E=DIM         113                  53/01 L   58/27
        E=DINT        114                  53/01 L   58/27
        E=DIR.C        23                  53/01 L   58/27
        E=DIR.R        22                  53/01 L   58/27
        E=DIV.C        20                  53/01 L   58/27
        E=DIV.D        17                  53/01 L   58/27
        E=DIV.I        15                  53/01 L   58/27
        E=DIV.R        16                  53/01 L   58/27
        E=DMAX1       101                  53/01 L   58/27
        E=DMIN1       103                  53/01 L   58/27
        E=DNINT       116                  53/01 L   58/27
        E=DOBD2       215                  53/01 L   58/27
        E=DOBL        130                  53/01 L   58/27
        E=DOBO        273                  57/31 L   58/27
        E=DOBS        127                  53/01 L   58/27
        E=DOBZL       132                  53/01 L   58/27
        E=DOBZS       131                  53/01 L   58/27
        E=DOC.D       140                  53/01 L   58/27
        E=DOC.K       275                  57/31 L   58/27
        E=DOC.L       136                  53/01 L   58/27
        E=DOC.O       134                  53/01 L   58/27
        E=DOC.R       137                  53/01 L   58/27
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    61
        SYMBOLIC REFERENCE TABLE. 
  
        E=DOC.S       133                  53/01 L   58/27
        E=DOC.1       135                  53/01 L   58/27
        E=DOZO        274                  57/31 L   58/27
        E=DPROD       115                  53/01 L   58/27
        E=DSIGN       117                  53/01 L   58/27
        E=DTOC         65                  53/01 L   58/27
        E=DVC.R        21                  53/01 L   58/27
        E=DVI         213                  53/01 L   58/27
        E=ENTR        174                  53/01 L   58/27
        E=EQV.L        70                  53/01 L   58/27
        E=EQ.D         47                  53/01 L   58/27
        E=EQ.H         50                  53/01 L   58/27
        E=EQ.I         45                  53/01 L   58/27
        E=EQ.R         46                  53/01 L   58/27
        E=ERR         166                  53/01 L   58/27
        E=EVD         176                  53/01 L   58/27
        E=EXP.I       214                  53/01 L   58/27
        E=FAP         154                  53/01 L   58/27
        E=FILE        202                  53/01 L   58/27
        E=FIN         211                  53/01 L   58/27
        E=FUNC        162                  53/01 L   58/27
        E=GAP         153                  53/01 L   58/27
        E=GE.D         35                  53/01 L   58/27
        E=GE.H         36                  53/01 L   58/27
        E=GE.I         33                  53/01 L   58/27
        E=GE.R         34                  53/01 L   58/27
        E=GOTO        143                  53/01 L   58/27
        E=GPL         173                  53/01 L   58/27
        E=HDR         201                  53/01 L   58/27
        E=IAP         155                  53/01 L   58/27
        E=IDIM        122                  53/01 L   58/27
        E=IDNINT      120                  53/01 L   58/27
        E=IDP2        265                  57/31 L   58/27
        E=IDVC        264                  57/31 L   58/27
        E=IEQ.C       250                  53/01 L   58/27
        E=IEQ.D       247                  53/01 L   58/27
        E=IEQ.I       245                  53/01 L   58/27
        E=IEQ.R       246                  53/01 L   58/27
        E=IFIFF       243                  53/01 L   58/27
        E=IFIFT       242                  53/01 L   58/27
        E=IFINN3      234                  53/01 L   58/27
        E=IFIN2N      240                  53/01 L   58/27
        E=IFIN22      230                  53/01 L   58/27
        E=IFIN23      224                  53/01 L   58/27
        E=IFI1NN      232                  53/01 L   58/27
        E=IFI1N1      241                  53/01 L   58/27
        E=IFI1N3      225                  53/01 L   58/27
        E=IFI11N      236                  53/01 L   58/27
        E=IFI111      244                  53/01 L   58/27
        E=IFI113      221                  53/01 L   58/27
        E=IFI12N      227                  53/01 L   58/27
        E=IFI121      223                  53/01 L   58/27
        E=IFI122      217                  53/01 L   58/27
        E=IFI123      216                  53/01 L   58/27
        E=IFRNN3      235                  53/01 L   58/27
        E=IFRN22      231                  53/01 L   58/27
        E=IFR1NN      233                  53/01 L   58/27
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    62
        SYMBOLIC REFERENCE TABLE. 
  
        E=IFR1N3      226                  53/01 L   58/27
        E=IFR11N      237                  53/01 L   58/27
        E=IFR113      222                  53/01 L   58/27
        E=IFR122      220                  53/01 L   58/27
        E=ILL           0                  53/01 L   58/27
        E=IMVC        255                  57/31 L   58/27
        E=IM2         256                  57/31 L   58/27
        E=INE.C       254                  53/01 L   58/27
        E=INE.D       253                  53/01 L   58/27
        E=INE.I       251                  53/01 L   58/27
        E=INE.R       252                  53/01 L   58/27
        E=INTF        164                  53/01 L   58/27
        E=IOLC        141                  53/01 L   58/27
        E=IOLC0       303                  57/31 L   58/27
        E=IOLC1       302                  57/31 L   58/27
        E=IOSUB       165                  53/01 L   58/27
        E=IPLG0       312                  57/31 L   58/27
        E=IPLG1       310                  57/31 L   58/27
        E=IPLG2       311                  57/31 L   58/27
        E=IPLUG       307                  57/31 L   58/27
        E=ISIGN       121                  53/01 L   58/27
        E=ITOB         61                  53/01 L   58/27
        E=ITOD         62                  53/01 L   58/27
        E=ITOR         60                  53/01 L   58/27
        E=JGOTO       146                  53/01 L   58/27
        E=LCC         212                  53/01 L   58/27
        E=LCIF        142                  53/01 L   58/27
        E=LEQ          51                  53/01 L   58/27
        E=LGE          37                  53/01 L   58/27
        E=LIBF        163                  53/01 L   58/27
        E=LLT          32                  53/01 L   58/27
        E=LNE          44                  53/01 L   58/27
        E=LT.D         30                  53/01 L   58/27
        E=LT.H         31                  53/01 L   58/27
        E=LT.I         26                  53/01 L   58/27
        E=LT.R         27                  53/01 L   58/27
        E=MASK        123                  53/01 L   58/27
        E=MASKC       267                  57/31 L   58/27
        E=MASKV       266                  57/31 L   58/27
        E=MAX0        100                  53/01 L   58/27
        E=MIN0        102                  53/01 L   58/27
        E=MOD         124                  53/01 L   58/27
        E=MODG        270                  57/31 L   58/27
        E=MODP2       271                  57/31 L   58/27
        E=MUL.C        14                  53/01 L   58/27
        E=MUL.D        13                  53/01 L   58/27
        E=MUL.I        11                  53/01 L   58/27
        E=MUL.R        12                  53/01 L   58/27
        E=NE.D         42                  53/01 L   58/27
        E=NE.H         43                  53/01 L   58/27
        E=NE.I         40                  53/01 L   58/27
        E=NE.R         41                  53/01 L   58/27
        E=NOOP        200                  53/01 L   58/27
        E=NOT.L        66                  53/01 L   58/27
        E=OR.L         71                  53/01 L   58/27
        E=PAUS        170                  53/01 L   58/27
        E=PLIM        203                  53/01 L   58/27
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    63
        SYMBOLIC REFERENCE TABLE. 
  
        E=RANF        125                  53/01 L   58/27
        E=RET         171                  53/01 L   58/27
        E=RGOTO       147                  53/01 L   58/27
        E=RTNK        172                  53/01 L   58/27
        E=RTOD         64                  53/01 L   58/27
        E=RTOI         63                  53/01 L   58/27
        E=SEG         177                  53/01 L   58/27
        E=SEX         204                  53/01 L   58/27
        E=SHFC        257                  57/31 L   58/27
        E=SHFD        261                  57/31 L   58/27
        E=SHFD1       263                  57/31 L   58/27
        E=SHFS        260                  57/31 L   58/27
        E=SHFS1       262                  57/31 L   58/27
        E=SHIFT       126                  53/01 L   58/27
        E=SHIFV       272                  57/31 L   58/27
        E=STOP        167                  53/01 L   58/27
        E=STR.D        53                  53/01 L   58/27
        E=STR.H        54                  53/01 L   58/27
        E=STR.I        52                  53/01 L   58/27
        E=SUBR        161                  53/01 L   58/27
        E=SUBST        57                  53/01 L   58/27
        E=SUB.C        10                  53/01 L   58/27
        E=SUB.D         7                  53/01 L   58/27
        E=SUB.I         5                  53/01 L   58/27
        E=SUB.R         6                  53/01 L   58/27
        E=SUM1S        74                  53/01 L   58/27
        E=UMI.D        25                  53/01 L   58/27
        E=UMI.I        24                  53/01 L   58/27
        E=XOR.L        72                  53/01 L   58/27
        F.SET           0   PROGRAM*       16/09 E   16/10 L
        GEH1          240   PROGRAM*       23/28 L   23/35
        LTH1          216   PROGRAM*       22/48 L   22/54
        MAX01         401   PROGRAM*       29/36 L   30/04     30/16     30/21
        NEH1          272   PROGRAM*       24/16 L   24/24
        OC.AND         11   CTX            28/16     29/53     33/24     38/47     41/21     42/05     42/27
                                           29/39     29/55     38/06     41/13     41/32     42/14     42/37
        OC.CLR        105   CTX            22/29     23/49     24/38     26/36     30/31     47/37     48/46     49/29
                                           23/04     24/03     24/49     26/49     32/23     47/52     49/02     51/13
                                           23/39     24/29     26/23     29/21     33/02     48/24     49/15
        OC.CX          47   CTX            29/12
        OC.DEF          5   CTX            22/49     24/17     39/04     42/01     42/23     43/23     43/29
                                           23/29     25/06     41/51     42/12     42/34     43/28
        OC.DFA         32   CTX            17/29     17/38     21/03     31/31     31/56     37/30     37/39
                                           17/35     19/47     21/05     31/34     32/15     37/36
        OC.DFM         42   CTX            19/44     20/52     30/36     32/04     34/07
        OC.DFS         33   CTX            18/16     22/42     24/01     29/45     30/37
                                           20/49     23/16     24/46     30/09     31/25
        OC.EQV         17   CTX            24/32     24/40     24/54     28/23     51/15
        OC.FA          30   CTX            17/23     17/42     20/51     21/44     29/23     31/29     37/22
                                           17/28     17/44     20/54     21/48     29/48     31/33     37/29
                                           17/30     19/42     21/01     22/43     29/49     31/51     37/31
                                           17/32     19/45     21/04     22/44     30/33     31/53     37/33
                                           17/33     19/46     21/15     23/20     30/41     31/55     37/34
                                           17/37     19/57     21/19     23/21     31/28     32/14     37/38
        OC.FD          44   CTX            20/27     20/46     21/21     21/28     30/30
                                           20/42     20/57     21/22     21/29     33/39
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    64
        SYMBOLIC REFERENCE TABLE. 
  
        OC.FM          40   CTX            19/36     19/43     19/55     20/55     21/13     21/18     21/42     21/47
                                           19/40     19/51     19/56     21/09     21/14     21/38     21/43     30/35
                                           19/41     19/52     20/47     21/10     21/17     21/39     21/46     32/03
        OC.FMA         43   CTX            33/20     33/49     41/12     41/29     42/02     42/24     44/26
                                           33/28     39/30     41/20     41/40     42/13     42/35
        OC.FS          31   CTX            18/10     20/48     22/39     23/55     29/46     30/39     50/57     51/44
                                           18/15     20/53     22/40     23/56     30/08     31/24     51/08     51/46
                                           18/17     20/56     23/10     24/36     30/10     31/26     51/10
                                           18/22     21/11     23/17     24/44     30/15     31/41     51/27
                                           18/24     21/40     23/19     24/48     30/20     50/48     51/34
                                           19/53     22/34     23/47     29/44     30/38     50/55     51/36
        OC.IA          36   CTX            17/19     19/10     36/12     36/34     37/04     37/16     38/05
                                           18/53     19/25     36/22     36/40     37/14     37/52     38/48
        OC.IAZ        100   CTX            22/30     23/41     32/24     47/38     48/47
                                           23/05     24/30     33/03     48/25     49/03
        OC.ILS         22   CTX            20/30     26/31     33/41     34/27
        OC.IM         102   CTX            18/42     33/42
        OC.IMP         16   CTX            38/44     39/07
        OC.IRS         23   CTX            33/22
        OC.IS          37   CTX            18/06     22/28     24/28     33/10     35/40     38/13     51/21
                                           19/19     23/03     29/36     33/43     36/42     38/43
                                           19/31     23/40     30/03     35/16     38/03     50/42
        OC.ISZ        101   CTX            23/42     24/07     24/39     47/53     49/30
                                           23/50     24/31     24/53     49/16     51/14
        OC.JIN         71   CTX            38/34     39/13
        OC.JPX         67   CTX            35/31     47/29     48/11     48/34     49/10     49/48     51/16
                                           36/16     47/31     48/18     48/40     49/17     49/55     51/22
                                           36/43     47/39     48/19     48/41     49/24     50/03     51/29
                                           36/56     47/46     48/26     48/48     49/31     50/43     51/39
                                           38/14     47/54     48/27     48/54     49/38     50/50     51/48
                                           38/32     48/05     48/33     49/04     49/43     51/03     51/49
        OC.KLS         20   CTX            19/02     19/11     19/18     19/30     25/07     41/41     42/25
                                           19/09     19/17     19/24     24/18     41/30     42/03     42/36
        OC.KRS         21   CTX            20/37     29/37     31/35     32/08     32/43     33/11     38/04     44/27
                                           29/06     29/50     31/43     32/20     32/57     33/23     38/45
                                           29/28     31/10     31/49     32/25     33/04     33/47     39/08
        OC.LD          50   CTX            39/10
        OC.NR          24   CTX            17/24     19/54     21/45     24/04     29/47     31/54     47/45     51/01
                                           17/31     20/01     21/49     24/37     30/34     32/11     48/04     51/09
                                           17/34     20/19     22/35     24/45     30/40     32/13     48/32     51/11
                                           17/36     20/50     22/41     24/47     30/42     33/37     48/53     51/28
                                           17/43     21/02     23/11     24/50     31/27     34/09     49/09     51/35
                                           17/45     21/12     23/18     26/13     31/30     37/23     49/23     51/37
                                           18/11     21/16     23/48     26/22     31/32     37/32     49/37     51/45
                                           18/23     21/20     23/57     29/24     31/42     37/35     50/49     51/47
                                           18/25     21/41     24/02     29/31     31/52     37/37     50/56
        OC.OR          12   CTX            23/43     24/06     24/52     39/31     41/33     42/16     51/02
                                           23/51     24/08     28/30     41/14     41/43     42/28     51/12
                                           24/05     24/51     38/08     41/23     42/06     42/39     51/38
        OC.PK          27   CTX            20/18     26/12     29/22     30/32     32/09     33/36
                                           20/20     26/21     29/29     31/50     32/44     33/38
        OC.RFA         34   CTX            29/30     32/10     32/12     32/45
        OC.RFD         45   CTX            21/34     21/50     21/51
        OC.RJ6         73   CTX            43/37
        OC.RS           4   CTX            20/28     33/21     34/26     38/50     44/10
                                           26/30     33/40     38/33     39/12
        OC.SA          60   CTX            34/25     38/48     39/10
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    65
        SYMBOLIC REFERENCE TABLE. 
  
        OC.ST          51   CTX            25/24     35/18     36/15     36/54     37/41     39/37     41/34     42/17
                                           25/31     35/30     36/23     37/05     37/53     41/06     41/44     42/29
                                           25/32     35/41     36/35     37/15     38/09     41/15     41/52     42/40
                                           34/08     36/13     36/41     37/40     39/32     41/24     42/07
        OC.STR         15   CTX            31/36     31/44     33/50     38/46     41/22     41/42     42/15     42/38
                                           31/37     33/12     38/07     39/09     41/31     42/04     42/26     44/28
        OC.STT         52   CTX            33/20     35/51     36/28     36/53     38/32     38/42     39/06
                                           35/29     36/14     36/48     36/55     38/41     39/05
        OC.SXT        106   CTX            19/01     19/23     29/05     31/34     32/24     33/22     41/29     44/26
                                           19/08     19/29     29/27     31/42     32/42     33/46     41/40
                                           19/10     20/36     29/36     31/48     32/56     38/03     42/02
                                           19/16     24/17     29/49     32/07     33/03     38/44     42/24
                                           19/17     25/06     31/09     32/19     33/10     39/07     42/35
        OC.UJP         74   CTX            38/26     44/04     47/32     47/47     48/06     50/08
                                           38/55     44/11     47/40     47/55     48/12
        OC.UP          26   CTX            20/27     26/29     32/46     33/39
        OC.XMT         10   CTX            19/03     20/38     25/30     26/35     29/17     31/04     44/08     48/17
                                           19/12     24/19     26/17     26/48     30/55     31/05     47/28     48/39
        OC.XMTC        14   CTX            22/07     22/14     23/12     23/30     28/09     48/03     49/36
                                           22/13     23/06     23/22     25/08     30/56     49/22
        OC.XOR         13   CTX            28/37     29/40     29/54     31/12     32/26     33/05
                                           29/07     29/51     29/56     32/21     32/27     33/48
                                           29/38     29/52     31/11     32/22     33/01     33/51
        OC.0            0                  15/51 D   23/34     25/12     35/14     35/33     36/11     37/13     39/03
                                           18/18     23/35     25/13     35/15     35/34     36/17     37/17     43/49
                                           22/48     24/16     30/04     35/19     35/38     36/21     37/21
                                           22/53     24/23     30/11     35/23     35/39     36/29     37/24
                                           22/54     24/24     30/16     35/24     35/42     36/44     37/28
                                           23/28     25/05     30/21     35/28     35/52     36/49     37/42
        O=ABS         362   PROGRAM*       29/04 D   53/01
        O=ADD.C        16   PROGRAM*       17/40 D   53/01
        O=ADD.D         3   PROGRAM*       17/26 D   53/01
        O=ADD.I         0   PROGRAM*       17/17 D   53/01
        O=ADD.R         1   PROGRAM*       17/21 D   53/01
        O=AGOTO       747   PROGRAM*       38/30 D   53/01
        O=AIMAG       366   PROGRAM*       29/15 D   53/01
        O=AINT        367   PROGRAM*       29/19 D   53/01
        O=AMAX1       432   PROGRAM*       30/13 D   53/01
        O=AMIN1       434   PROGRAM*       30/18 D   53/01
        O=AMOD        436   PROGRAM*       30/28 D   53/01
        O=AND.L       356   PROGRAM*       28/14 D   53/01
        O=ANINT       373   PROGRAM*       29/26 D   53/01
        O=APIOC         0                  40/48 D   40/50 D   53/01
        O=APIOD         0                  40/52 D   40/54 D   53/01
        O=APIOU         0                  40/56 D   41/01 D   53/01
        O=APSTR      1007   PROGRAM*       41/04 D   57/31
        O=ARY           0                  39/43 D   39/45 D   53/01
        O=ASFMT      1006   PROGRAM*       39/34 D   57/31
        O=ASLAB      1003   PROGRAM*       39/25 D   57/31
        O=ASSGN         0                  39/16 D   39/23 D   53/01
        O=BSS           0                  39/39 D   39/41 D   53/01
        O=BVD           0                  44/35 D   44/37 D   53/01
        O=CAPST      1036   PROGRAM*       41/49 D   57/31
        O=CAT           0                  25/48 D   25/50 D   53/01
        O=CDCS          0                  46/47 D   46/49 D   53/01
        O=CDDOT         0                  46/43 D   46/45 D   53/01
        O=CDLOO         0                  46/39 D   46/41 D   53/01
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    66
        SYMBOLIC REFERENCE TABLE. 
  
        O=CGOTO       753   PROGRAM*       38/38 D   53/01
        O=CIAST      1050   PROGRAM*       42/10 D   57/31
        O=CIA0S      1066   PROGRAM*       42/32 D   57/31
        O=CISST      1040   PROGRAM*       41/56 D   57/31
        O=CIS0S      1056   PROGRAM*       42/21 D   57/31
        O=CMPLX       455   PROGRAM*       31/02 D   53/01
        O=COLON         0                  25/53 D   25/55 D   53/01
        O=CONJG       453   PROGRAM*       30/53 D   53/01
        O=DABS        457   PROGRAM*       31/08 D   53/01
        O=DATA          0                  46/51 D   46/53 D   53/01
        O=DC.OC       672   PROGRAM*       36/46 D   57/31
        O=DC.OS       674   PROGRAM*       36/51 D   57/31
        O=DC.OV       665   PROGRAM*       36/38 D   57/31
        O=DC.O1       700   PROGRAM*       37/02 D   57/31
        O=DDIM        463   PROGRAM*       31/18 D   53/01
        O=DFRD       1077   PROGRAM*       43/26 D   57/31
        O=DFRS       1076   PROGRAM*       43/21 D   57/31
        O=DIM         502   PROGRAM*       31/39 D   53/01
        O=DINT        507   PROGRAM*       31/47 D   53/01
        O=DIR.C       161   PROGRAM*       21/36 D   53/01
        O=DIR.R       160   PROGRAM*       21/32 D   53/01
        O=DIV.C       140   PROGRAM*       21/07 D   53/01
        O=DIV.D       117   PROGRAM*       20/44 D   53/01
        O=DIV.I         0                  20/12 D   20/14 D   53/01
        O=DIV.R       116   PROGRAM*       20/40 D   53/01
        O=DMAX1       406   PROGRAM*       29/42 D   53/01
        O=DMIN1       426   PROGRAM*       30/06 D   53/01
        O=DNINT       522   PROGRAM*       32/06 D   53/01
        O=DOBD2         0                  47/16 D   47/18 D   53/01
        O=DOBL        630   PROGRAM*       35/21 D   53/01
        O=DOBO          0                  35/45 D   35/47 D   57/31
        O=DOBS        623   PROGRAM*       35/12 D   53/01
        O=DOBZL       640   PROGRAM*       35/36 D   53/01
        O=DOBZS       632   PROGRAM*       35/26 D   53/01
        O=DOC.D       713   PROGRAM*       37/26 D   53/01
        O=DOC.K       661   PROGRAM*       36/26 D   57/31
        O=DOC.L       702   PROGRAM*       37/11 D   53/01
        O=DOC.O       656   PROGRAM*       36/19 D   53/01
        O=DOC.R       707   PROGRAM*       37/19 D   53/01
        O=DOC.S       647   PROGRAM*       36/09 D   53/01
        O=DOC.1       663   PROGRAM*       36/32 D   53/01
        O=DOZO        645   PROGRAM*       35/49 D   57/31
        O=DPROD       520   PROGRAM*       32/01 D   53/01
        O=DSIGN       533   PROGRAM*       32/18 D   53/01
        O=DTOC        353   PROGRAM*       26/46 D   53/01
        O=DVC.R       156   PROGRAM*       21/26 D   53/01
        O=DVI           0                  47/08 D   47/10 D   53/01
        O=ENTR          0                  44/30 D   44/32 D   53/01
        O=EQV.L       357   PROGRAM*       28/21 D   53/01
        O=EQ.D        312   PROGRAM*       24/42 D   53/01
        O=EQ.H        325   PROGRAM*       25/03 D   53/01
        O=EQ.I        300   PROGRAM*       24/26 D   53/01
        O=EQ.R        305   PROGRAM*       24/34 D   53/01
        O=ERR        1101   PROGRAM*       43/35 D   53/01
        O=EVD           0                  44/40 D   44/42 D   53/01
        O=EXP.I         0                  47/12 D   47/14 D   53/01
        O=FAP           0                  40/08 D   40/10 D   53/01
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    67
        SYMBOLIC REFERENCE TABLE. 
  
        O=FILE          0                  46/27 D   46/29 D   53/01
        O=FIN           0                  46/55 D   47/02 D   53/01
        O=FUNC          0                  43/04 D   43/06 D   53/01
        O=GAP           0                  40/04 D   40/06 D   53/01
        O=GE.D        230   PROGRAM*       23/14 D   53/01
        O=GE.H        237   PROGRAM*       23/26 D   53/01
        O=GE.I        221   PROGRAM*       23/01 D   53/01
        O=GE.R        225   PROGRAM*       23/08 D   53/01
        O=GOTO        746   PROGRAM*       38/24 D   53/01
        O=GPL        1107   PROGRAM*       44/24 D   53/01
        O=HDR           0                  46/23 D   46/25 D   53/01
        O=IAP           0                  40/12 D   40/14 D   53/01
        O=IDIM        562   PROGRAM*       33/08 D   53/01
        O=IDNINT      545   PROGRAM*       32/41 D   53/01
        O=IDP2        113   PROGRAM*       20/34 D   57/31
        O=IDVC        104   PROGRAM*       20/16 D   57/31
        O=IEQ.C      1223   PROGRAM*       51/06 D   53/01
        O=IEQ.D      1215   PROGRAM*       50/53 D   53/01
        O=IEQ.I      1210   PROGRAM*       50/40 D   53/01
        O=IEQ.R      1212   PROGRAM*       50/46 D   53/01
        O=IFIFF      1206   PROGRAM*       50/01 D   53/01
        O=IFIFT      1205   PROGRAM*       49/53 D   53/01
        O=IFINN3     1167   PROGRAM*       49/13 D   53/01
        O=IFIN2N     1203   PROGRAM*       49/41 D   53/01
        O=IFIN22     1155   PROGRAM*       48/44 D   53/01
        O=IFIN23     1140   PROGRAM*       48/15 D   53/01
        O=IFI1NN     1162   PROGRAM*       48/57 D   53/01
        O=IFI1N1     1204   PROGRAM*       49/46 D   53/01
        O=IFI1N3     1143   PROGRAM*       48/22 D   53/01
        O=IFI11N     1175   PROGRAM*       49/27 D   53/01
        O=IFI111     1207   PROGRAM*       50/06 D   53/01
        O=IFI113     1126   PROGRAM*       47/50 D   53/01
        O=IFI12N     1152   PROGRAM*       48/37 D   53/01
        O=IFI121     1136   PROGRAM*       48/09 D   53/01
        O=IFI122     1117   PROGRAM*       47/35 D   53/01
        O=IFI123     1113   PROGRAM*       47/26 D   53/01
        O=IFRNN3     1172   PROGRAM*       49/20 D   53/01
        O=IFRN22     1160   PROGRAM*       48/51 D   53/01
        O=IFR1NN     1165   PROGRAM*       49/07 D   53/01
        O=IFR1N3     1147   PROGRAM*       48/30 D   53/01
        O=IFR11N     1200   PROGRAM*       49/34 D   53/01
        O=IFR113     1132   PROGRAM*       48/01 D   53/01
        O=IFR122     1123   PROGRAM*       47/43 D   53/01
        O=ILL           0                  17/10 D   17/12 D   53/01
        O=IMVC         35   PROGRAM*       18/40 D   57/31
        O=IM2          36   PROGRAM*       18/50 D   57/31
        O=INE.C      1247   PROGRAM*       51/42 D   53/01
        O=INE.D      1241   PROGRAM*       51/32 D   53/01
        O=INE.I      1234   PROGRAM*       51/19 D   53/01
        O=INE.R      1236   PROGRAM*       51/25 D   53/01
        O=INTF          0                  43/11 D   43/13 D   53/01
        O=IOLC          0                  37/46 D   37/48 D   53/01
        O=IOLC0       734   PROGRAM*       37/55 D   57/31
        O=IOLC1       732   PROGRAM*       37/50 D   57/31
        O=IOSUB         0                  43/15 D   43/17 D   53/01
        O=IPLG0      1030   PROGRAM*       41/38 D   57/31
        O=IPLG1      1014   PROGRAM*       41/18 D   57/31
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    68
        SYMBOLIC REFERENCE TABLE. 
  
        O=IPLG2      1021   PROGRAM*       41/27 D   57/31
        O=IPLUG      1010   PROGRAM*       41/10 D   57/31
        O=ISIGN       552   PROGRAM*       32/55 D   53/01
        O=ITOB        342   PROGRAM*       26/15 D   53/01
        O=ITOD        343   PROGRAM*       26/19 D   53/01
        O=ITOR        340   PROGRAM*       26/10 D   53/01
        O=JGOTO       766   PROGRAM*       38/53 D   53/01
        O=LCC           0                  47/04 D   47/06 D   53/01
        O=LCIF        744   PROGRAM*       38/11 D   53/01
        O=LEQ         332   PROGRAM*       25/10 D   53/01
        O=LGE         242   PROGRAM*       23/32 D   53/01
        O=LIBF          0                  43/08 D   43/10 D   53/01
        O=LLT         217   PROGRAM*       22/51 D   53/01
        O=LNE         276   PROGRAM*       24/21 D   53/01
        O=LT.D        207   PROGRAM*       22/37 D   53/01
        O=LT.H        215   PROGRAM*       22/46 D   53/01
        O=LT.I        202   PROGRAM*       22/26 D   53/01
        O=LT.R        205   PROGRAM*       22/32 D   53/01
        O=MASK          0                  33/14 D   33/16 D   53/01
        O=MASKC       575   PROGRAM*       33/26 D   57/31
        O=MASKV       566   PROGRAM*       33/18 D   57/31
        O=MAX0        400   PROGRAM*       29/34 D   53/01
        O=MIN0        424   PROGRAM*       30/01 D   53/01
        O=MOD           0                  33/30 D   33/32 D   53/01
        O=MODG        576   PROGRAM*       33/34 D   57/31
        O=MODP2       607   PROGRAM*       33/45 D   57/31
        O=MUL.C        74   PROGRAM*       19/49 D   53/01
        O=MUL.D        64   PROGRAM*       19/38 D   53/01
        O=MUL.I         0                  18/36 D   18/38 D   53/01
        O=MUL.R        63   PROGRAM*       19/34 D   53/01
        O=NE.D        256   PROGRAM*       23/53 D   53/01
        O=NE.H        271   PROGRAM*       24/14 D   53/01
        O=NE.I        244   PROGRAM*       23/37 D   53/01
        O=NE.R        251   PROGRAM*       23/45 D   53/01
        O=NOOP          0                  46/19 D   46/21 D   53/01
        O=NOT.L       355   PROGRAM*       28/07 D   53/01
        O=OR.L        360   PROGRAM*       28/28 D   53/01
        O=PAUS          0                  43/54 D   43/56 D   53/01
        O=PLIM          0                  46/31 D   46/33 D   53/01
        O=RANF        615   PROGRAM*       34/05 D   53/01
        O=RET        1103   PROGRAM*       44/01 D   53/01
        O=RGOTO       767   PROGRAM*       39/01 D   53/01
        O=RTNK       1104   PROGRAM*       44/07 D   53/01
        O=RTOD        351   PROGRAM*       26/33 D   53/01
        O=RTOI        346   PROGRAM*       26/28 D   53/01
        O=SEG           0                  46/15 D   46/17 D   53/01
        O=SEX           0                  46/35 D   46/37 D   53/01
        O=SHFC         37   PROGRAM*       18/56 D   57/31
        O=SHFD         50   PROGRAM*       19/14 D   57/31
        O=SHFD1        60   PROGRAM*       19/27 D   57/31
        O=SHFS         42   PROGRAM*       19/06 D   57/31
        O=SHFS1        55   PROGRAM*       19/21 D   57/31
        O=SHIFT         0                  34/20 D   34/22 D   53/01
        O=SHIFV       620   PROGRAM*       34/24 D   57/31
        O=STOP       1102   PROGRAM*       43/47 D   53/01
        O=STR.D       335   PROGRAM*       25/28 D   53/01
        O=STR.H         0                  25/34 D   25/36 D   53/01
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    69
        SYMBOLIC REFERENCE TABLE. 
  
        O=STR.I       334   PROGRAM*       25/22 D   53/01
        O=SUBR          0                  42/57 D   43/02 D   53/01
        O=SUBST         0                  25/57 D   26/02 D   53/01
        O=SUB.C        31   PROGRAM*       18/20 D   53/01
        O=SUB.D        25   PROGRAM*       18/13 D   53/01
        O=SUB.I        22   PROGRAM*       18/04 D   53/01
        O=SUB.R        23   PROGRAM*       18/08 D   53/01
        O=SUM1S       365   PROGRAM*       29/10 D   53/01
        O=UMI.D       200   PROGRAM*       22/11 D   53/01
        O=UMI.I       177   PROGRAM*       22/05 D   53/01
        O=XOR.L       361   PROGRAM*       28/35 D   53/01
        P=APRET         0   EXTERNAL*       2/02 X   57/31     57/31     57/31     57/31     57/31
        P=BVD           0   EXTERNAL*       2/02 X   53/01
        P=CDCS          0   EXTERNAL*      53/01
        P=CDDOT         0   EXTERNAL*      53/01
        P=CDLOO         0   EXTERNAL*      53/01
        P=CGT           0   EXTERNAL*       2/02 X
        P=DATA          0   EXTERNAL*      53/01
        P=DOB           0   EXTERNAL*      35/19     35/34     57/31
        P=DOBZ          0   EXTERNAL*      35/15     35/39
        P=DOC           0   EXTERNAL*      36/11     36/21     37/13     37/21     37/28
        P=DOEND         0   EXTERNAL*       2/02 X
        P=DOL           0   EXTERNAL*      35/23     35/38
        P=DOO           0   EXTERNAL*      35/14
        P=DOZ           0   EXTERNAL*      35/33
        P=DZO           0   EXTERNAL*      35/28
        P=ENT           0   EXTERNAL*       2/02 X   53/01
        P=EVD           0   EXTERNAL*       2/02 X   53/01
        P=FAP           0   EXTERNAL*      53/01
        P=FIN           0   EXTERNAL*       2/02 X   53/01
        P=FRRET         0   EXTERNAL*       2/02 X   57/31     57/31
        P=FUN           0   EXTERNAL*       2/03 X   53/01
        P=GAP           0   EXTERNAL*       2/03 X   53/01
        P=GFD           0   EXTERNAL*       2/03 X   53/01
        P=HCAT          0   EXTERNAL*      53/01
        P=HCOL          0   EXTERNAL*      53/01
        P=HDR           0   EXTERNAL*       2/03 X   53/01
        P=HLEX          0   EXTERNAL*      22/53     23/34     24/23     25/12
        P=HREL          0   EXTERNAL*      22/48     23/28     24/16     25/05
        P=HSBS          0   EXTERNAL*      53/01
        P=HSTO          0   EXTERNAL*      53/01
        P=IAP           0   EXTERNAL*       2/03 X   53/01
        P=ID            0   EXTERNAL*       2/03 X   53/01
        P=IF            0   EXTERNAL*       2/03 X   53/01     53/01     53/01     53/01     53/01     53/01     53/01
                                           53/01     53/01     53/01     53/01     53/01     53/01     53/01     53/01
                                           53/01     53/01     53/01     53/01     53/01     53/01     53/01     53/01
                                           53/01     53/01     53/01     53/01     53/01     53/01     53/01     53/01
        P=ILL           0   EXTERNAL*      53/01     53/01     53/01
        P=IM            0   EXTERNAL*       2/03 X   53/01
        P=INF           0   EXTERNAL*       2/03 X   53/01
        P=IOC           0   EXTERNAL*       2/04 X   53/01
        P=IOD           0   EXTERNAL*       2/04 X   53/01
        P=IOF           0   EXTERNAL*       2/04 X   53/01
        P=IOLC          0   EXTERNAL*      53/01
        P=IOU           0   EXTERNAL*      53/01
        P=JGOC          0   EXTERNAL*       2/04 X   53/01
        P=LCC           0   EXTERNAL*       2/04 X   53/01
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    70
        SYMBOLIC REFERENCE TABLE. 
  
        P=LIB           0   EXTERNAL*      43/49     53/01
        P=LIBF          0   EXTERNAL*      53/01
        P=LRJ           0   EXTERNAL*       2/04 X   53/01
        P=MASK          0   EXTERNAL*       2/04 X   53/01
        P=MOD           0   EXTERNAL*       2/04 X   53/01
        P=PAG           0   EXTERNAL*       2/05 X   53/01
        P=PAR           0   EXTERNAL*       2/05 X   53/01
        P=PASG          0   EXTERNAL*      53/01
        P=PCG           0   EXTERNAL*       2/05 X   53/01
        P=PDB           0   EXTERNAL*       2/05 X
        P=PDE           0   EXTERNAL*       2/05 X   36/17     36/44     53/01     57/31
        P=PDE1          0   EXTERNAL*      53/01     57/31
        P=PEX           0   EXTERNAL*       2/05 X   53/01     53/01     53/01
        P=PGT           0   EXTERNAL*       2/05 X   53/01     53/01
        P=PLA           0   EXTERNAL*       2/05 X   53/01
        P=PLIM          0   EXTERNAL*       2/05 X   53/01
        P=RGT           0   EXTERNAL*      39/03
        P=RTNK          0   EXTERNAL*       2/06 X
        P=SCRET         0   EXTERNAL*      57/31     57/31     57/31     57/31     57/31
        P=SEG           0   EXTERNAL*       2/06 X   53/01
        P=SEX           0   EXTERNAL*       2/06 X   53/01
        P=SHIFT         0   EXTERNAL*       2/06 X   53/01
        P=SUB           0   EXTERNAL*       2/06 X   53/01
        SBR             2                   3/16 D   26/30     33/40     38/33     39/12
                                           20/28     33/21     34/26     38/50
        SKL.CON         0                   9/53 D   10/18     10/19     10/20
        SKL.GOP         1                   9/54 D   10/13     10/14     10/15     10/16
        SKL.OP          1                   9/50 D   10/06     10/07     10/08     10/09     10/10     10/11     10/12
        SKL.RG          0                   9/49 D   10/03     10/04     10/05
        SKL.SPC         1                   9/51 D
        SKL.TMP         1                   9/52 D   10/17
        SKM.CON         1                   9/53 D   10/18     10/19     10/20
        SKM.GOP         1                   9/54 D   10/13     10/14     10/15     10/16
        SKM.OP    7777774                   9/50 D
        SKM.RG          1                   9/49 D   10/03     10/04     10/05
        SKM.SPC   7777774                   9/51 D
        SKM.TMP         1                   9/52 D   10/17
        SKO.CON         0                   9/53 D   10/18     10/19     10/20
        SKO.GOP   7777776                   9/54 D   10/13     10/14     10/15     10/16
        SKO.OP          0                   9/50 D   10/06     10/07     10/08     10/09     10/10     10/11     10/12
        SKO.RG          0                   9/49 D   10/03     10/04     10/05
        SKO.SPC         0                   9/51 D
        SKO.TMP   7777776                   9/52 D   10/17
        SKU.CON         0                   9/53 D
        SKU.GOP         2                   9/54 D
        SKU.OP          6                   9/50 D
        SKU.RG          7                   9/49 D
        SKU.SPC         4                   9/51 D
        SKU.TMP        26                   9/52 D
        SO.RJLK       300   CTX            20/28     26/30     33/40
        SO.TLOCK      100   CTX            33/21     34/26     38/33     38/50     39/12
        S=AEXIT         0   EXTERNAL*      44/11
        S=BU            0   EXTERNAL*      38/32
        S=ERR           0   EXTERNAL*       2/09 X   43/37
        S=EXIT          0   EXTERNAL*       2/09 X   44/04
        S=TRACE         0   EXTERNAL*      38/32
        V=ABS          73                  58/27 D   58/27
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    71
        SYMBOLIC REFERENCE TABLE. 
  
        V=ADD.B         1                  58/27 D
        V=ADD.C         4                  58/27 D
        V=ADD.D         3                  58/27 D
        V=ADD.I         1                  58/27 D   58/27
        V=ADD.R         2                  58/27 D
        V=AGOTO       144                  58/27 D
        V=AIMAG        75                  58/27 D
        V=AINT         76                  58/27 D
        V=AMAX0       100                  58/27 D
        V=AMAX1       104                  58/27 D   58/27
        V=AMIN0       102                  58/27 D
        V=AMIN1       105                  58/27 D   58/27
        V=AMOD        106                  58/27 D
        V=AND          67                  58/27 D
        V=AND.B        67                  58/27 D   58/27
        V=AND.L        67                  58/27 D   58/27
        V=ANINT        77                  58/27 D
        V=APIOC       156                  58/27 D
        V=APIOD       157                  58/27 D
        V=APIOU       160                  58/27 D
        V=APSTR       306                  58/27 E   58/27 D
        V=ARY         152                  58/27 D
        V=ASFMT       305                  58/27 E   58/27 D
        V=ASLAB       304                  58/27 E   58/27 D
        V=ASSGN       150                  58/27 D
        V=BOOL         61                  58/27 D
        V=BSS         151                  58/27 D
        V=BTOC         64                  58/27 D
        V=BTOD         64                  58/27 D
        V=BTOI         61                  58/27 D
        V=BTOR         61                  58/27 D
        V=BVD         175                  58/27 D
        V=CAPST       313                  58/27 E   58/27 D
        V=CAT          55                  58/27 D
        V=CDCS        207                  58/27 D
        V=CDDOT       206                  58/27 D
        V=CDLOO       205                  58/27 D
        V=CGOTO       145                  58/27 D
        V=CIAST       315                  58/27 E   58/27 D
        V=CIA0S       317                  58/27 E   58/27 D
        V=CISST       314                  58/27 E   58/27 D
        V=CIS0S       316                  58/27 E   58/27 D
        V=CMPLX       110                  58/27 D
        V=COLON        56                  58/27 D
        V=COMPL        66                  58/27 D
        V=CONJG       107                  58/27 D
        V=CTOB         61                  58/27 D
        V=CTOD         65                  58/27 D
        V=CTOI         63                  58/27 D
        V=CTOR         61                  58/27 D   58/27
        V=DABS        111                  58/27 D
        V=DATA        210                  58/27 D
        V=DBLE         64                  58/27 D
        V=DC.OC       277                  58/27 E   58/27 D
        V=DC.OS       300                  58/27 E   58/27 D
        V=DC.OV       276                  58/27 E   58/27 D
        V=DC.O1       301                  58/27 E   58/27 D
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    72
        SYMBOLIC REFERENCE TABLE. 
  
        V=DDIM        112                  58/27 D
        V=DFRD        321                  58/27 E   58/27 D
        V=DFRS        320                  58/27 E   58/27 D
        V=DIM         113                  58/27 D
        V=DINT        114                  58/27 D
        V=DIR.C        23                  58/27 D
        V=DIR.R        22                  58/27 D
        V=DIV.B        15                  58/27 D
        V=DIV.C        20                  58/27 D
        V=DIV.D        17                  58/27 D
        V=DIV.I        15                  58/27 D   58/27
        V=DIV.R        16                  58/27 D
        V=DMAX1       101                  58/27 D
        V=DMIN1       103                  58/27 D
        V=DNINT       116                  58/27 D
        V=DOBD2       215                  58/27 D
        V=DOBL        130                  58/27 D
        V=DOBO        273                  58/27 E   58/27 D
        V=DOBS        127                  58/27 D
        V=DOBZL       132                  58/27 D
        V=DOBZS       131                  58/27 D
        V=DOC.D       140                  58/27 D
        V=DOC.K       275                  58/27 E   58/27 D
        V=DOC.L       136                  58/27 D
        V=DOC.O       134                  58/27 D
        V=DOC.R       137                  58/27 D
        V=DOC.S       133                  58/27 D
        V=DOC.1       135                  58/27 D
        V=DOZO        274                  58/27 E   58/27 D
        V=DPROD       115                  58/27 D
        V=DSIGN       117                  58/27 D
        V=DTOB         61                  58/27 D
        V=DTOC         65                  58/27 D   58/27
        V=DTOI         63                  58/27 D   58/27
        V=DTOR         61                  58/27 D   58/27
        V=DVC.R        21                  58/27 D
        V=DVI         213                  58/27 D
        V=ENTR        174                  58/27 D
        V=EQV          70                  58/27 D
        V=EQV.B        70                  58/27 D   58/27
        V=EQV.L        70                  58/27 D   58/27
        V=EQ.B         45                  58/27 D
        V=EQ.C         47                  58/27 D
        V=EQ.D         47                  58/27 D   58/27
        V=EQ.H         50                  58/27 D
        V=EQ.I         45                  58/27 D   58/27
        V=EQ.R         46                  58/27 D
        V=ERR         166                  58/27 D
        V=EVD         176                  58/27 D
        V=EXP.I       214                  58/27 D
        V=FAP         154                  58/27 D
        V=FILE        202                  58/27 D
        V=FIN         211                  58/27 D
        V=FLOAT        60                  58/27 D
        V=FUNC        162                  58/27 D
        V=GAP         153                  58/27 D
        V=GE.B         33                  58/27 D
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    73
        SYMBOLIC REFERENCE TABLE. 
  
        V=GE.D         35                  58/27 D
        V=GE.H         36                  58/27 D
        V=GE.I         33                  58/27 D   58/27
        V=GE.R         34                  58/27 D
        V=GOTO        143                  58/27 D
        V=GPL         173                  58/27 D
        V=HDR         201                  58/27 D
        V=IABS         73                  58/27 D
        V=IAP         155                  58/27 D
        V=IDIM        122                  58/27 D
        V=IDINT        63                  58/27 D
        V=IDNINT      120                  58/27 D   58/27
        V=IDP2        265                  58/27 E   58/27 D   58/27
        V=IDV         264                  58/27 E   58/27 D
        V=IDVC        264                  58/27 E   58/27 D   58/27
        V=IEQ.C       250                  58/27 D
        V=IEQ.D       247                  58/27 D
        V=IEQ.I       245                  58/27 D
        V=IEQ.R       246                  58/27 D
        V=IFDNN3      235                  58/27 D
        V=IFDN2N      240                  58/27 D
        V=IFDN22      231                  58/27 D
        V=IFDN23      224                  58/27 D
        V=IFD1NN      233                  58/27 D
        V=IFD1N3      226                  58/27 D
        V=IFD11N      237                  58/27 D
        V=IFD111      244                  58/27 D
        V=IFD113      222                  58/27 D
        V=IFD12N      227                  58/27 D
        V=IFD122      220                  58/27 D
        V=IFD123      216                  58/27 D
        V=IFIFF       243                  58/27 D
        V=IFIFT       242                  58/27 D
        V=IFINN3      234                  58/27 D
        V=IFIN2N      240                  58/27 D   58/27
        V=IFIN22      230                  58/27 D
        V=IFIN23      224                  58/27 D   58/27
        V=IFIX         63                  58/27 D
        V=IFI1NN      232                  58/27 D
        V=IFI1N1      241                  58/27 D
        V=IFI1N3      225                  58/27 D
        V=IFI11N      236                  58/27 D
        V=IFI111      244                  58/27 D   58/27
        V=IFI113      221                  58/27 D
        V=IFI12N      227                  58/27 D   58/27
        V=IFI121      223                  58/27 D
        V=IFI122      217                  58/27 D
        V=IFI123      216                  58/27 D   58/27
        V=IFRNN3      235                  58/27 D   58/27
        V=IFRN2N      240                  58/27 D
        V=IFRN22      231                  58/27 D   58/27
        V=IFRN23      224                  58/27 D
        V=IFR1NN      233                  58/27 D   58/27
        V=IFR1N3      226                  58/27 D   58/27
        V=IFR11N      237                  58/27 D   58/27
        V=IFR111      244                  58/27 D
        V=IFR113      222                  58/27 D   58/27
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    74
        SYMBOLIC REFERENCE TABLE. 
  
        V=IFR12N      227                  58/27 D
        V=IFR122      220                  58/27 D   58/27
        V=IFR123      216                  58/27 D
        V=ILL           0                  58/27 D
        V=IMV         255                  58/27 E   58/27 D
        V=IMVC        255                  58/27 E   58/27 D   58/27
        V=IM2         256                  58/27 E   58/27 D
        V=INE.C       254                  58/27 D
        V=INE.D       253                  58/27 D
        V=INE.I       251                  58/27 D
        V=INE.R       252                  58/27 D
        V=INT          63                  58/27 D
        V=INTF        164                  58/27 D
        V=IOLC        141                  58/27 D
        V=IOLC0       303                  58/27 E   58/27 D
        V=IOLC1       302                  58/27 E   58/27 D
        V=IOSUB       165                  58/27 D
        V=IPLG0       312                  58/27 E   58/27 D
        V=IPLG1       310                  58/27 E   58/27 D
        V=IPLG2       311                  58/27 E   58/27 D
        V=IPLUG       307                  58/27 E   58/27 D
        V=ISIGN       121                  58/27 D   58/27
        V=ITOB         61                  58/27 D   58/27
        V=ITOC         62                  58/27 D
        V=ITOD         62                  58/27 D   58/27
        V=ITOR         60                  58/27 D   58/27
        V=JGOTO       146                  58/27 D
        V=LCC         212                  58/27 D
        V=LCIF        142                  58/27 D
        V=LEQ          51                  58/27 D
        V=LGE          37                  58/27 D
        V=LIBF        163                  58/27 D
        V=LLT          32                  58/27 D
        V=LNE          44                  58/27 D
        V=LT.B         26                  58/27 D
        V=LT.D         30                  58/27 D
        V=LT.H         31                  58/27 D
        V=LT.I         26                  58/27 D   58/27
        V=LT.R         27                  58/27 D
        V=MASK        123                  58/27 D
        V=MASKC       267                  58/27 E   58/27 D
        V=MASKV       266                  58/27 E   58/27 D
        V=MAX0        100                  58/27 D   58/27
        V=MAX1        104                  58/27 D
        V=MIN0        102                  58/27 D   58/27
        V=MIN1        105                  58/27 D
        V=MOD         124                  58/27 D
        V=MODG        270                  58/27 E   58/27 D
        V=MODP2       271                  58/27 E   58/27 D
        V=MUL.B        11                  58/27 D
        V=MUL.C        14                  58/27 D
        V=MUL.D        13                  58/27 D
        V=MUL.I        11                  58/27 D   58/27
        V=MUL.R        12                  58/27 D
        V=NEQV         72                  58/27 D   58/27
        V=NEQV.B       72                  58/27 D
        V=NEQV.L       72                  58/27 D
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    75
        SYMBOLIC REFERENCE TABLE. 
  
        V=NE.B         40                  58/27 D
        V=NE.C         42                  58/27 D
        V=NE.D         42                  58/27 D   58/27
        V=NE.H         43                  58/27 D
        V=NE.I         40                  58/27 D   58/27
        V=NE.R         41                  58/27 D
        V=NINT        120                  58/27 D
        V=NOOP        200                  58/27 D   58/30 E
        V=NOT.B        66                  58/27 D   58/27
        V=NOT.L        66                  58/27 D   58/27
        V=OR           71                  58/27 D
        V=OR.B         71                  58/27 D   58/27
        V=OR.L         71                  58/27 D   58/27
        V=PAUS        170                  58/27 D
        V=PEND        167                  58/27 D
        V=PLIM        203                  58/27 D
        V=RANF        125                  58/27 D
        V=REAL         61                  58/27 D   58/27
        V=RET         171                  58/27 D
        V=RGOTO       147                  58/27 D
        V=RTNK        172                  58/27 D
        V=RTOB         61                  58/27 D
        V=RTOC         64                  58/27 D
        V=RTOD         64                  58/27 D   58/27
        V=RTOI         63                  58/27 D   58/27
        V=SEG         177                  58/27 D
        V=SEX         204                  58/27 D
        V=SHFC        257                  58/27 E   58/27 D   58/27
        V=SHFD        261                  58/27 E   58/27 D
        V=SHFD1       263                  58/27 E   58/27 D
        V=SHFS        260                  58/27 E   58/27 D
        V=SHFS1       262                  58/27 E   58/27 D
        V=SHIFT       126                  58/27 D
        V=SHIFV       272                  58/27 E   58/27 D
        V=SHLC        257                  58/27 E   58/27 D
        V=SHRC        265                  58/27 E   58/27 D
        V=SIGN        121                  58/27 D
        V=SNGL         61                  58/27 D
        V=STOP        167                  58/27 D   58/27
        V=STR.B        52                  58/27 D
        V=STR.C        53                  58/27 D
        V=STR.D        53                  58/27 D   58/27
        V=STR.H        54                  58/27 D
        V=STR.I        52                  58/27 D   58/27
        V=STR.R        52                  58/27 D
        V=SUBR        161                  58/27 D
        V=SUBST        57                  58/27 D
        V=SUB.B         5                  58/27 D
        V=SUB.C        10                  58/27 D
        V=SUB.D         7                  58/27 D
        V=SUB.I         5                  58/27 D   58/27
        V=SUB.R         6                  58/27 D
        V=SUM1S        74                  58/27 D
        V=UMI.C        25                  58/27 D
        V=UMI.D        25                  58/27 D   58/27
        V=UMI.I        24                  58/27 D   58/27
        V=UMI.R        24                  58/27 D
1       CSKEL - FORM CODE SKELETON TABLES.                            COMPASS 3.7-871.     24/05/02. 13.19.25.      PAGE    76
        SYMBOLIC REFERENCE TABLE. 
  
        V=XMIT         61                  58/27 D
        V=XOR          72                  58/27 D
        V=XOR.B        72                  58/27 D   58/27
        V=XOR.L        72                  58/27 D   58/27
        Z=TURP          3   FTX             9/50      9/51
        .ADD.D1        10                  17/38 D   18/17
        .ANINT1         3                  29/31 D
        .CG             1                   1/53 D   19/05 F   35/44 F   37/44 F   40/25 F   41/55 F   43/19 F
                                           18/49 F   21/31 F   36/31 F   39/17 F   41/09 F   42/43 F   44/44 F
        .DC.O1          2                  36/44 D   36/48
        .DMAX11        13                  29/56 D   30/10
        .DOBS1          0                  35/19 D   35/23
        .DOBZ1          0                  35/34 D   35/41     35/51
        .DOCL1          2                  37/17 D   37/23
        .DOCL2          2                  37/17 D
        .DOCS1          2                  36/17 D   36/28
        .DOCS2          2                  36/17 D   37/16
        .EQH1           2                  25/08 D   25/12
        .FAST           0                   1/51 D   39/17 F   40/25 F   42/43 F   44/44 F
        .GEH1           0                  23/30 D   23/34
        .IDC            0   CTX            20/21 F
        .LTH1           0                  22/49 D   22/53
        .MAX01          4                  29/40 D   30/03     30/15     30/20
        .NEH1           2                  24/19 D   24/23
        .OPT            1                   1/52 D   18/49 F   21/31 F   36/31 F   41/09 F   43/19 F
                                            1/53     19/05 F   35/44 F   37/44 F   41/55 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  FUNIT 
  
  
        BJUMP          11                  11/50 D
        BOOL            2                  11/42 D
        BRANCH          1                  11/41 D
        DIVIDE         10                  11/47 D   11/53
        FADD            5                  11/45 D
        IADD            4                  11/44 D   11/51
        INC            11                  11/48 D   11/50
        LCM            12                  11/52 D
        MULT            6                  11/46 D
        NORM            3                  11/49 D
        PACK            3                  11/54 D
        POPC           10                  11/53 D
        SHIFT           3                  11/43 D   11/49     11/54
        XJUMP           4                  11/51 D
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0     2173              IDENT  FSKEL
                       2173                       END 
  
  
                                        BLOCKS    TYPE      ADDRESS    LENGTH 
  
                                        PROGRAM*  LOCAL           0      1716 
                                        RGFILE    COMMON          0        30 
                                        SKLNAM    COMMON          0         0 
                                        SCT       LOCAL        1716       255 
  
  
                                        ENTRY POINTS. 
  
                                        B=FSKEL          0+           V=SUM1S         74            V=STOP         167
                                        F.SKNAM          0+/SKLNAM/   V=AIMAG         75            V=PEND         167
                                        F.SKEL           0+           V=AINT          76            V=PAUS         170
                                        V=ILL            0            V=ANINT         77            V=RET          171
                                        V=ADD.I          1            V=MAX0         100            V=RTNK         172
                                        V=ADD.R          2            V=DMAX1        101            V=GPL          173
                                        V=ADD.D          3            V=MIN0         102            V=ENTR         174
                                        V=ADD.C          4            V=DMIN1        103            V=BVD          175
                                        V=ADD.B          1            V=AMAX1        104            V=EVD          176
                                        V=SUB.I          5            V=AMIN1        105            V=SEG          177
                                        V=SUB.R          6            V=MAX1         104            V=NOOP         200
                                        V=SUB.D          7            V=MIN1         105            V=HDR          201
                                        V=SUB.C         10            V=AMAX0        100            V=FILE         202
                                        V=SUB.B          5            V=AMIN0        102            V=PLIM         203
                                        V=MUL.I         11            V=AMOD         106            V=SEX          204
                                        W=IMVC          37            V=AND           67            V=CDLOO        205
                                        W=IMV           37            V=BOOL          61            V=CDDOT        206
                                        W=IM2           40            V=COMPL         66            V=CDCS         207
                                        W=SHFC          41            V=CONJG        107            V=DATA         210
                                        W=SHFS          44            V=CMPLX        110            V=FIN          211
                                        W=SHFD          52            V=DABS         111            V=LCC          212
                                        W=SHFS1         57            V=DBLE          64            V=DVI          213
                                        W=SHFD1         62            V=DDIM         112            V=EXP.I        214
                                        V=MUL.R         12            V=DIM          113            V=DOBD2        215
                                        V=MUL.D         13            V=DINT         114            V=I123         216
                                        V=MUL.C         14            V=DPROD        115            V=I122         217
                                        V=MUL.B         11            V=DNINT        116            V=R122         220
                                        V=DIV.I         15            V=DSIGN        117            V=I113         221
                                        W=IDVC         107            V=EQV           70            V=R113         222
                                        W=IDV          107            V=FLOAT         60            V=I121         223
                                        W=IDP2         115            V=IABS          73            V=IN23         224
                                        V=DIV.R         16            V=IDINT         63            V=I1N3         225
                                        V=DIV.D         17            V=IDNIN        120            V=R1N3         226
                                        V=DIV.C         20            V=IFIX          63            V=I12N         227
                                        V=DIV.B         15            V=INT           63            V=IN22         230
                                        V=DVC.R         21            V=ISIGN        121            V=RN22         231
                                        V=DIR.R         22            V=IDIM         122            V=I1NN         232
                                        V=DIR.C         23            V=MASK         123            V=R1NN         233
                                        V=UMI.I         24            W=MASKV        574            V=INN3         234
                                        V=UMI.R         24            W=MASKC        602            V=RNN3         235
                                        V=UMI.D         25            V=MOD          124            V=I11N         236
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     2
        STORAGE ALLOCATION. 
  
                                        V=UMI.C         25            W=MODG         604            V=R11N         237
                                        V=LT.I          26            W=MODP2        614            V=IN2N         240
                                        V=LT.R          27            V=NEQV          72            V=I1N1         241
                                        V=LT.D          30            V=NINT         120            V=IFT          242
                                        V=LT.H          31            V=OR            71            V=IFF          243
                                        V=LLT           32            V=RANF         125            V=I111         244
                                        V=LT.B          26            V=REAL          61            V=RN2N         240
                                        V=GE.I          33            V=SIGN         121            V=RN23         224
                                        V=GE.R          34            V=SNGL          61            V=R111         244
                                        V=GE.D          35            V=SHIFT        126            V=R12N         227
                                        V=GE.B          33            W=SHIFV        626            V=R123         216
                                        V=GE.H          36            W=SHLC          41            V=DNN3         235
                                        V=LGE           37            W=SHRC         115            V=DN2N         240
                                        V=NE.I          40            V=XOR           72            V=DN22         231
                                        V=NE.R          41            V=DOBS         127            V=DN23         224
                                        V=NE.D          42            V=DOBL         130            V=D1NN         233
                                        V=NE.C          42            V=DOBZS        131            V=D1N3         226
                                        V=NE.B          40            V=DOBZL        132            V=D11N         237
                                        V=NE.H          43            W=DOBO         652            V=D113         222
                                        V=LNE           44            W=DOZO         653            V=D111         244
                                        V=EQ.I          45            V=DOC.S        133            V=D12N         227
                                        V=EQ.R          46            V=DOC.O        134            V=D122         220
                                        V=EQ.D          47            W=DOC.K        670            V=D123         216
                                        V=EQ.C          47            V=DOC.1        135            V=IEQ.I        245
                                        V=EQ.B          45            W=DC.OV        675            V=IEQ.R        246
                                        V=EQ.H          50            W=DC.OC        702            V=IEQ.D        247
                                        V=LEQ           51            W=DC.OS        704            V=IEQ.C        250
                                        V=STR.I         52            W=DC.O1        711            V=INE.I        251
                                        V=STR.R         52            V=DOC.L        136            V=INE.R        252
                                        V=STR.D         53            V=DOC.R        137            V=INE.D        253
                                        V=STR.H         54            V=DOC.D        140            V=INE.C        254
                                        V=STR.C         53            V=IOLC         141            SKEND         1410+ 
                                        V=STR.B         52            W=IOLC1        745            F.SCT         1716+ 
                                        V=CAT           55            W=IOLC0        747            F.SKCR        1716+ 
                                        V=COLON         56            V=LCIF         142            Z.SCT          255
                                        V=SUBST         57            V=GOTO         143            Z.SKCR         255
                                        V=ITOR          60            V=AGOTO        144            OM=CONV         57
                                        V=ITOB          61            V=CGOTO        145            OM=IF          216
                                        V=ITOD          62            V=JGOTO        146            OM=INL          57
                                        V=ITOC          62            V=RGOTO        147            OM=ADD        1411+ 
                                        V=RTOI          63            V=ASSGN        150            OM=SUB        1412+ 
                                        V=RTOD          64            W=ASLAB       1022            OM=MUL        1413+ 
                                        V=RTOC          64            W=ASFMT       1025            OM=DIV        1414+ 
                                        V=RTOB          61            V=BSS          151            OM=UMI        1415+ 
                                        V=DTOI          63            V=ARY          152            OM=LT         1416+ 
                                        V=DTOR          61            V=GAP          153            OM=GE         1420+ 
                                        V=DTOB          61            V=FAP          154            OM=NE         1422+ 
                                        V=DTOC          65            V=IAP          155            OM=EQ         1424+ 
                                        V=XMIT          61            V=APIOC        156            OM=NOT        1426+ 
                                        V=CTOI          63            V=APIOD        157            OM=AND        1427+ 
                                        V=CTOR          61            V=APIOU        160            OM=OR         1430+ 
                                        V=CTOB          61            W=APSTR       1036            OM=EQV        1431+ 
                                        V=CTOD          65            W=IPLUG       1040            OM=XOR        1432+ 
                                        V=BTOD          64            W=IPLG1       1045            OM=STR        1433+ 
                                        V=BTOR          61            W=IPLG2       1053            OM=DOC        1435+ 
                                        V=BTOI          61            W=IPLG0       1063            F.MODC        1437+ 
                                        V=BTOC          64            W=CAPST       1072            F.IFS         1446+ 
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     3
        STORAGE ALLOCATION. 
  
                                        V=NOT.L         66            W=CISST       1075            F.IFN         1455+ 
                                        V=NOT.B         66            W=CIAST       1106            F.INTF        1463+ 
                                        V=AND.L         67            W=CIS0S       1115            Z.INTA          77
                                        V=AND.B         67            W=CIA0S       1126            Z.INTF         227
                                        V=EQV.L         70            V=SUBR         161            OMI=CPX         30
                                        V=EQV.B         70            V=FUNC         162            OMI=LEN        130
                                        V=OR.L          71            V=LIBF         163            OMI=SHF        141
                                        V=OR.B          71            V=INTF         164            OMI=LCF         51
                                        V=XOR.L         72            V=IOSUB        165            F.IMCV        1712+ 
                                        V=XOR.B         72            W=DFRS        1144            Z.IMCV           4
                                        V=NEQV.         72            W=DFRD        1146
                                        V=ABS           73            V=ERR          166
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        ES=LOCF   D=I11N  * D=CDDOT * D=APIOC * D=SHIFT * D=AINT  * D=EQ.R  * D=DIV.R * 
                                        ES=MASK   D=RNN3  * D=CDLOO * D=IAP   * D=RANF  * D=AIMAG * D=EQ.I  * D=DIV.I * 
                                        ES=RANF   D=INN3  * D=SEX   * D=FAP   * D=MOD   * D=SUM1S * D=LNE   * D=MUL.C * 
                                        ES=SHIF   D=R1NN  * D=PLIM  * D=GAP   * D=MASK  * D=ABS   * D=NE.H  * D=MUL.D * 
                                        ES=LEN    D=I1NN  * D=FILE  * D=ARY   * D=IDIM  * D=XOR.L * D=NE.D  * D=MUL.R * 
                                        ES=LLT    D=RN22  * D=HDR   * D=BSS   * D=ISIGN * D=OR.L  * D=NE.R  * D=MUL.I * 
                                        ES=LLE    D=IN22  * D=NOOP  * D=ASSGN * D=IDNIN * D=EQV.L * D=NE.I  * D=SUB.C * 
                                        ES=LGT    D=I12N  * D=SEG   * D=RGOTO * D=DSIGN * D=AND.L * D=LGE   * D=SUB.D * 
                                        ES=LGE    D=R1N3  * D=EVD   * D=JGOTO * D=DNINT * D=NOT.L * D=GE.H  * D=SUB.R * 
                                        ES=CMPL   D=I1N3  * D=BVD   * D=CGOTO * D=DPROD * D=DTOC  * D=GE.D  * D=SUB.I * 
                                        D=INE.C * D=IN23  * D=ENTR  * D=AGOTO * D=DINT  * D=RTOD  * D=GE.R  * D=ADD.C * 
                                        D=INE.D * D=I121  * D=GPL   * D=GOTO  * D=DIM   * D=RTOI  * D=GE.I  * D=ADD.D * 
                                        D=INE.R * D=R113  * D=RTNK  * D=LCIF  * D=DDIM  * D=ITOD  * D=LLT   * D=ADD.R * 
                                        D=INE.I * D=I113  * D=RET   * D=IOLC  * D=DABS  * D=ITOB  * D=LT.H  * D=ADD.I * 
                                        D=IEQ.C * D=R122  * D=PAUS  * D=DOC.D * D=CMPLX * D=ITOR  * D=LT.D  * D=ILL   * 
                                        D=IEQ.D * D=I122  * D=STOP  * D=DOC.R * D=CONJG * D=SUBST * D=LT.R  * S=AEXIT 
                                        D=IEQ.R * D=I123  * D=ERR   * D=DOC.L * D=AMOD  * D=COLON * D=LT.I  * S=EXIT
                                        D=IEQ.I * D=DOBD2 * D=IOSUB * D=DOC.1 * D=AMIN1 * D=CAT   * D=UMI.D * S=TRACE 
                                        D=I111  * D=EXP.I * D=INTF  * D=DOC.O * D=AMAX1 * D=STR.H * D=UMI.I * S=BU
                                        D=IFF   * D=DVI   * D=LIBF  * D=DOC.S * D=DMIN1 * D=STR.D * D=DIR.C * 
                                        D=IFT   * D=LCC   * D=FUNC  * D=DOBZL * D=MIN0  * D=STR.I * D=DIR.R * 
                                        D=I1N1  * D=FIN   * D=SUBR  * D=DOBZS * D=DMAX1 * D=LEQ   * D=DVC.R * 
                                        D=IN2N  * D=DATA  * D=APIOU * D=DOBL  * D=MAX0  * D=EQ.H  * D=DIV.C * 
                                        D=R11N  * D=CDCS  * D=APIOD * D=DOBS  * D=ANINT * D=EQ.D  * D=DIV.D * 
  
  
  
  
                                                  IDENT  FSKEL                                                   FSKEL       2
                                         FSKEL    SECT   (DEFINE TURPLE OP CODE VALUES FOR FRONT END.)           FSKEL       3
  
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     4
                                                                      FSKEL 
  
                                        *         IN FEC                                                         FSKEL       5
                                                  EXT    ES=LOCF                                                 FSKEL       6
                                                                                                                 FSKEL       7
                                        *         IN PAR                                                         FSKEL       8
                                                  EXT    ES=MASK,ES=RANF,ES=SHIF                                 FSKEL       9
  
  
  
  
                                        ***       FSKEL DEFINES TURPLE OP CODE VALUES FOR THE FRONT END.         FSKEL      11
                                        *         THE VALUES OF THE ENTRY POINTS MUST BE KEPT EXACTLY THE        FSKEL      12
                                        *         SAME AS THE DEFINITIONS IN CSKEL.                              FSKEL      13
                                        *                                                                        FSKEL      14
                                        *         M. A. HERBACH      77-06-24.                                   FSKEL      15
                                                                                                                 FSKEL      16
                                   0     .FAST    EQU    0                                                       FSKEL      17
                                   1     .OPT     EQU    1                                                       FSKEL      18
                                   1     .CG      EQU    .OPT        SELECT COMMON CODE GENERATOR                FSKEL      19
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     5
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.
  
             0                                    CTEXT  COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.            COMFSKL     2
                                                                                                                 COMFSKL     3
                                                                                                                 COMFSKL     4
  
  
  
  
                                        **        DEFINS  -  DEFINE INSTRUCTION.                                 COMFSKL     6
                                        *                                                                        COMFSKL     7
                                        * INST    DEFINS OPC,TYPE                                                COMFSKL     8
                                        *                                                                        COMFSKL     9
                                        *         INST   = INSTRUCTION MNEMONIC.                                 COMFSKL    10
                                        *         OPC    = OPCODE.                                               COMFSKL    11
                                        *         TYPE   = INSTRUCTION TYPE, (SEE TYPE DEFINITION).              COMFSKL    12
                                        *                                                                        COMFSKL    13
                                        *         DEFINES A MACRO OF NAME "INST" WHICH UTILIZES *FORM*           COMFSKL    14
                                        *         TO CREATE A SKELETON ELEMENT.                                  COMFSKL    15
                                                                                                                 COMFSKL    16
                                                                                                                 COMFSKL    17
                                                  MACRO  DEFINS,INST,OPC,TYPE                                    COMFSKL    18
                                         B        MICRO                                                          COMFSKL    19
                                         A        MICRO  1,, BS9                                                 COMFSKL    20
                                                  IFEQ   TYPE,M.BRAN,2                                           COMFSKL    21
                                         B        MICRO  2,1,/OPC/                                               COMFSKL    22
                                         A        MICRO  1,, BS6                                                 COMFSKL    23
                                         INST     EQU    OPC"A"                                                  COMFSKL    24
                                        *                                                                        COMFSKL    25
                                                  MACRO  INST,AD,I,J,K                                           COMFSKL    26
                                                                                                                 COMFSKL    27
                                        *         SUPPRESS CONREDUCTION OF SKEL USING NON-ARITH INSTR.           COMFSKL    28
                                                                                                                 COMFSKL    29
                                                  IFC    EQ,/TYPE/M.INCR/,1                                      COMFSKL    30
                                                  SKIP   3                                                       COMFSKL    31
                                                  IFC    EQ,/TYPE/M.BRAN/,1                                      COMFSKL    32
                                                  SKIP   1                                                       COMFSKL    33
                                                  IFC    EQ,/TYPE/M.LOAD/,1                                      COMFSKL    34
                                         U="STEM" SET    0                                                       COMFSKL    35
                                                  FORM   (I,J,K),INST,TYPE,AD                                    COMFSKL    36
                                         INST     ENDM                                                           COMFSKL    37
                                        *                                                                        COMFSKL    38
                                                  IFC    EQ,/"B"/3/,5                                            COMFSKL    39
                                         INST.    OPSYN  INST                                                    COMFSKL    40
                                                  PURGMAC INST                                                   COMFSKL    41
                                                  MACRO  INST,AD,I,J                                             COMFSKL    42
                                         AD       INST.  0,I,J                                                   COMFSKL    43
                                         INST     ENDM                                                           COMFSKL    44
                                         DEFINS   ENDM                                                           COMFSKL    45
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     6
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  FORM
  
                                        **        FORM  -  FORM INSTRUCTION SKELETON ELEMENT.                    COMFSKL    47
                                        *                                                                        COMFSKL    48
                                        *         IJK    = I,J,K PORTIONS OF INSTRUCTION BOUNDED BY              COMFSKL    49
                                        *                  PARENTHESES.                                          COMFSKL    50
                                        *         OPCODE = OPCODE.                                               COMFSKL    51
                                        *         TYPE   = INSTRUCTION TYPE, (SEE TYPE DEFINITION).              COMFSKL    52
                                        *                                                                        COMFSKL    53
                                        *         THIS IS THE MAIN MACRO FOR SKELETON CONSTRUCTION.              COMFSKL    54
                                        *         EACH MACRO CREATED BY *DEFINS* AND *DEFUJP* INCLUDES           COMFSKL    55
                                        *         A CALL TO *FORM*. THE SECOND AND THIRD PARAMETERS TO           COMFSKL    56
                                        *         *FORM* (OPCODE AND TYPE) ARE TAKEN FROM THE *DEFINS*           COMFSKL    57
                                        *         OR *DEFUJP* MACRO EXPANSION THAT DEFINED THE MACRO             COMFSKL    58
                                        *         NAMED WITH THE OPCODE MNEMONIC IN THE LOCATION FIELD           COMFSKL    59
                                        *         OF THE CALL. THE *IJK* PARAMETER IS SUPPLIED TO *FORM* AS      COMFSKL    60
                                        *         THE THREE PARAMETERS OF THE MACRO WHOSE NAME IS THIS           COMFSKL    61
                                        *         MNEMONIC. THE MACRO FLOW PROCEEDS TOWARD THE FORMATION         COMFSKL    62
                                        *         OF THREE MICROS "H", "L" AND "Q"..                             COMFSKL    63
                                        *                                                                        COMFSKL    64
                                        *         "H"    = INSTRUCTION TYPE AND OPCODE.                          COMFSKL    65
                                        *         "L"    = 3*(CONSTANT, AT. INDEX), 1 EACH FOR I, J QND K.       COMFSKL    66
                                        *         "Q"    = SET IF 12 BIT Q FIELD PRESENT.                        COMFSKL    67
                                        *                                                                        COMFSKL    68
                                        *         INSTRUCTION SKELETON ELEMENT FORMAT CREATED BY A CALL          COMFSKL    69
                                        *         TO *FORM* IS..                                                 COMFSKL    70
                                        *                                                                        COMFSKL    71
                                        *         + <-------------------- SK. STRUCTURE ---------------------> + COMFSKL    72
                                        *         +                                                            + COMFSKL    73
                                        *         +              + <----- SR. STRUCTURES -------> +            + COMFSKL    74
                                        *         +              +                                +            + COMFSKL    75
                                        *         +-----+--------+----------+----------+----------+------------+ COMFSKL    76
                                        *         + TYP + OPCODE +    I     +    J     +    K     +     Q      + COMFSKL    77
                                        *         +     +        +----+-----+----+-----+----+-----+            + COMFSKL    78
                                        *         +     +        +ADDR+ NUM +ADDR+ NUM +ADDR+ NUM +            + COMFSKL    79
                                        *         +-----+--------+----+-----+----+-----+----+-----+------------+ COMFSKL    80
                                        *            6      9      5     6     5    6     5    6       12        COMFSKL    81
                                        *                                                                        COMFSKL    82
                                        *         *ADDR* IS THE AT. INDEX REFERRED TO ABOVE.                     COMFSKL    83
                                                                                                                 COMFSKL    84
                                                                                                                 COMFSKL    85
                                         FORM1 MACRO OC,TYPE,AD                                                  COMFSKL    86
                                          VFD "H""L""Q"                                                          COMFSKL    87
                                         AD BSS 0                                                                COMFSKL    88
                                         L MICRO                                                                 COMFSKL    89
                                         Q MICRO 1,,$,12/0$                                                      COMFSKL    90
                                         X SET TYPE                                                              COMFSKL    91
                                         H MICRO 1,,$6/X,9/OC/64$                                                COMFSKL    92
                                          ENDM                                                                   COMFSKL    93
                                                                                                                 COMFSKL    94
                                                                                                                 COMFSKL    95
                                         FORM     MACRO  IJK,OC,TYPE,AD                                          COMFSKL    96
                                         RM       RMT                                                            COMFSKL    97
                                          FORM1 OC,TYPE,AD                                                       COMFSKL    98
                                         RM       RMT                                                            COMFSKL    99
                                        .1        IRP    IJK                                                     COMFSKL   100
                                                  IFC    EQ,  IJK ,4                                             COMFSKL   101
                                         RM       RMT                                                            COMFSKL   102
                                                  SETCON 0                                                       COMFSKL   103
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     7
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  FORM
  
                                                  RMT                                                            COMFSKL   104
                                                  SKIP   6                                                       COMFSKL   105
                                                  IFC    LT, IJK 0 ,2      IF PARAMETER IS A LETTER              COMFSKL   106
                                                  SETOTH IJK                                                     COMFSKL   107
                                                  SKIP   3                                                       COMFSKL   108
                                         RM       RMT                                                            COMFSKL   109
                                                  SETCON IJK                                                     COMFSKL   110
                                                  RMT                                                            COMFSKL   111
                                        .1        IRP                                                            COMFSKL   112
                                         SKELAD   SET    SKELAD+1                                                COMFSKL   113
                                         FORM     ENDM                                                           COMFSKL   114
  
  
  
  
                                        **        SETCON  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR          COMFSKL   116
                                        *                  A CONSTANT.                                           COMFSKL   117
                                        *                                                                        COMFSKL   118
                                        *         *SETCON* WILL SET THE I,J OR K NUM FIELD IF THE PARAMETER      COMFSKL   119
                                        *         (I,J ORK) PASSED IS NOT PRECEEDED BY A PLUS OR MINUS           COMFSKL   120
                                        *         SIGN, NO LENGTH CHECKS ARE MADE. IF THE CONSTANT IS            COMFSKL   121
                                        *         SIGNED IT INDICATES AN 18 BIT CONSTANT, *SETCON* WILL          COMFSKL   122
                                        *         PUT THE LOWER 12 BITS IN THE Q FIELD, THUS REDEFINING          COMFSKL   123
                                        *         IT, AND THE UPPER 6 BITS IN THE RELATIVE NUM FIELD. A          COMFSKL   124
                                        *         GIVEN CONSTANT CAN BE THUS PLACED IN THE Q FIELD BY            COMFSKL   125
                                        *         PRECEEDING IT WITH A + OR - SIGN. ]HE ADDR FIELD               COMFSKL   126
                                        *         DEFINED, TO AT.Q0.                                             COMFSKL   127
                                                                                                                 COMFSKL   128
                                                                                                                 COMFSKL   129
                                         SETCON   MACRO  IJK                                                     COMFSKL   130
                                        .1        IFC    LT, IJK +                                               COMFSKL   131
                                        *                                                                        COMFSKL   132
                                        *         HERE IF UNSIGNED CONSTANT.                                     COMFSKL   133
                                        *                                                                        COMFSKL   134
                                         L        MICRO  1,,$"L",5/AT.K0,6/IJK$                                  COMFSKL   135
                                        .1        ELSE                                                           COMFSKL   136
                                        *                                                                        COMFSKL   137
                                        *         FOR SIGNED CONSTANTS OR ADDRESS REFERENCES,                    COMFSKL   138
                                        *         SET THE 18 BIT Q-FIELD.                                        COMFSKL   139
                                        *                                                                        COMFSKL   140
                                         U="STEM" SET    0                                                       COMFSKL   141
                                                  IFC    GE,/IJK/=/,2                                            COMFSKL   142
                                         L        MICRO  1,,$"L",SR.OADL/AT.S0$                                  COMFSKL   143
                                                  SKIP   1                                                       COMFSKL   144
                                         L        MICRO  1,,$"L",SR.OADL/AT.Q0$                                  COMFSKL   145
                                         Q        MICRO  1,,$,SK.JPADL/IJK$                                      COMFSKL   146
                                        .1        ENDIF                                                          COMFSKL   147
                                         SETCON   ENDM                                                           COMFSKL   148
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     8
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  SETOTH
  
                                        **        SETOTH  -  SET NUM-ADDR FIELD IN SKELETON ELEMENT FOR          COMFSKL   150
                                        *                  A NON-CONSTANT.                                       COMFSKL   151
                                        *                                                                        COMFSKL   152
                                        *         *SETOTH* WILL SET THE NUM FIELD (I,J OR K) TO A CONSTANT       COMFSKL   153
                                        *         OBTAINED FROM THE T. MICRO TABLE, THE ADDR FIELD WILL          COMFSKL   154
                                        *         BE SET TO POINT TO THE AT. TABLE ENTRY WHICH WILL CONTAIN      COMFSKL   155
                                        *         THE ADDRESS OF THE CODE IN *GEN* THAT PROCESSES THIS           COMFSKL   156
                                        *         TYPE OF I,J OR K PARAMETER. THE TYPE OF CONSTANT SET IN        COMFSKL   157
                                        *         THE NUM FIELD IS ALSO DETERMINED FROM THE I,J OR K             COMFSKL   158
                                        *         PARAMETER.                                                     COMFSKL   159
                                                                                                                 COMFSKL   160
                                                                                                                 COMFSKL   161
                                         SETOTH   MACRO  IJK                                                     COMFSKL   162
                                                                                                                 COMFSKL   163
                                        *         SUPPRESS CONREDUCTION IF UNPROCESSABLE OPERAND.                COMFSKL   164
                                                                                                                 COMFSKL   165
                                                  IF     -DEF,IJK.C,1                                            COMFSKL   166
                                         U="STEM" SET    0                                                       COMFSKL   167
                                         IJK=     SET    IJK=+1                                                  COMFSKL   168
                                         RM RMT                                                                  COMFSKL   169
                                            SETOTH1 IJK                                                          COMFSKL   170
                                            RMT                                                                  COMFSKL   171
                                            ENDM                                                                 COMFSKL   172
                                                                                                                 COMFSKL   173
                                                                                                                 COMFSKL   174
                                         SETOTH1 MACRO IJK                                                       COMFSKL   175
                                         IJK=  SET  IJK=-1                                                       COMFSKL   176
                                               IFNE IJK=                                                         COMFSKL   177
                                         L MICRO 1,,$"L",5/AT.IJK,6/IJK.$                                        COMFSKL   178
                                               ELSE                                                              COMFSKL   179
                                         L MICRO 1,,$"L",5/ZT.IJK,6/IJK.$                                        COMFSKL   180
                                               ENDIF                                                             COMFSKL   181
                                               ENDM                                                              COMFSKL   182
  
  
  
  
                                        **        DEFPO - DEFINE PSUEDO OPCODE.                                  COMFSKL   184
                                        *                                                                        COMFSKL   185
                                        * INST    DEFPO  PSN                                                     COMFSKL   186
                                        *                                                                        COMFSKL   187
                                        *         INST   = INSTRUCTION MNEMONIC.                                 COMFSKL   188
                                        *         PSN    = PSUEDO OP VALUE (FROM FTNTEXT).                       COMFSKL   189
                                        *                                                                        COMFSKL   190
                                        *         DEFINES A MACRO OF NAME *INST* WHICH UTILIZES *FORM*           COMFSKL   191
                                        *         TO CREATE AN PSUEDO OPCODE SKELETON ELEMENT.                   COMFSKL   192
                                        *         THE *TYPE* IS ALWAYS SET TO *M.BRAN*.                          COMFSKL   193
                                        *                                                                        COMFSKL   194
                                        *         NOTE THAT THE GENERATED *INST* MACRO HAS ONLY A SINGLE         COMFSKL   195
                                        *         PARAMETER (FOR *K*).  THIS IS BECAUSE THE *I* AND *J*          COMFSKL   196
                                        *         FIELDS ARE SET TO DETERMINE THE OPCODE VALUE.                  COMFSKL   197
                                                                                                                 COMFSKL   198
                                                                                                                 COMFSKL   199
                                                  MACRO  DEFPO,INST,PSN                                          COMFSKL   200
                                                  LOCAL  JDIG                                                    COMFSKL   201
                                         JDIG     EQU    PSN-PSN/1S3*1S3                                         COMFSKL   202
                                                  MACRO  INST,AD,Q                                               COMFSKL   203
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE     9
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  DEFPO 
  
                                                  FORM   (0,0+JDIG,Q),PSN*1S3,M.BRAN,AD                          COMFSKL   204
                                         INST     ENDM                                                           COMFSKL   205
                                         DEFPO    ENDM                                                           COMFSKL   206
  
  
  
  
                                        **        ENDF - FLUSH LAST SKELETON WORD.                               COMFSKL   208
                                        *                                                                        COMFSKL   209
                                        *         MICROS "H","L" AND "Q" SET TO NUL STRINGS AFTER FLUSHING       COMFSKL   210
                                        *         TO CORE.                                                       COMFSKL   211
                                                                                                                 COMFSKL   212
                                                                                                                 COMFSKL   213
                                         ENDF     MACRO                                                          COMFSKL   214
                                         RM       HERE                                                           COMFSKL   215
                                                  VFD    "H""L""Q"                                               COMFSKL   216
                                         H        MICRO                                                          COMFSKL   217
                                         L        MICRO                                                          COMFSKL   218
                                         Q        MICRO                                                          COMFSKL   219
                                         ENDF     ENDM                                                           COMFSKL   220
  
  
  
  
                                        **        ENDS - END MACRO SKELETON.                                     COMFSKL   222
                                        *                                                                        COMFSKL   223
                                        *         *ENDS* IS IDENTICAL TO *ENDF* EXCEPT THE END SKELETON          COMFSKL   224
                                        *         FLAG (BIT 59) IS SET IN THE SKELETON ELEMENT BEFORE            COMFSKL   225
                                        *         FLUSHING.                                                      COMFSKL   226
                                                                                                                 COMFSKL   227
                                                                                                                 COMFSKL   228
                                         ENDS     MACRO                                                          COMFSKL   229
                                         RM       HERE                                                           COMFSKL   230
                                         X        SET    X+M.IEND                                                COMFSKL   231
                                                  VFD    "H""L""Q"                                               COMFSKL   232
                                         H        MICRO                                                          COMFSKL   233
                                         L        MICRO                                                          COMFSKL   234
                                         Q        MICRO                                                          COMFSKL   235
                                         ENDS     ENDM                                                           COMFSKL   236
  
  
  
  
                                        **        SETSPC  -  SET SPECIAL SKELETON.                               COMFSKL   238
                                        *                                                                        COMFSKL   239
                                        *         USED BY *CALL*, *RESET* AND *USESKL*, TO SET UP POINTERS       COMFSKL   240
                                        *         TO SPECIAL CODE THAT MUST BE EXECUTED AT THIS POINT IN         COMFSKL   241
                                        *         THE CURRENT SKELETON EXPANSION.                                COMFSKL   242
                                                                                                                 COMFSKL   243
                                                                                                                 COMFSKL   244
                                         SETSPC   MACRO  TYPE,AD,ARG                                             COMFSKL   245
                                                  VFD    "H""L""Q"                                               COMFSKL   246
                                         H        MICRO  1,,$SK.TYPL/X,SK.ATTRL/0,SK.ARGL/ARG,SK.JPADL/AD$       COMFSKL   247
                                         X        SET    TYPE                                                    COMFSKL   248
                                         L        MICRO                                                          COMFSKL   249
                                         Q        MICRO                                                          COMFSKL   250
                                         SKELAD   SET    SKELAD+1                                                COMFSKL   251
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    10
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.
  
                                         SETSPC   ENDM                                                           COMFSKL   252
  
  
  
  
                                        **        RESET  -  RESET CURRENT SKELETON POINTER.                      COMFSKL   254
                                        *                                                                        COMFSKL   255
                                        *         RESET *ARG* WORDS TO FIND NEXT TURPLE.                         COMFSKL   256
                                                                                                                 COMFSKL   257
                                                                                                                 COMFSKL   258
                                         RESET    MACRO  TO,ARG                                                  COMFSKL   259
                                         RM       RMT                                                            COMFSKL   260
                                                  SETSPC M.ISBRN,-TO,ARG                                         COMFSKL   261
                                         RM       RMT                                                            COMFSKL   262
                                         RESET    ENDM                                                           COMFSKL   263
  
  
  
  
                                        **        BRANCH  -  CONTINUE SKELETON ELSEWHERE.                        COMFSKL   265
                                        *                                                                        COMFSKL   266
                                        *         SKELETON POINTER RESET TO WITHIN OTHER SKELETON.               COMFSKL   267
                                                                                                                 COMFSKL   268
                                                                                                                 COMFSKL   269
                                         BRANCH   MACRO  TO,IJK                                                  COMFSKL   270
                                                  IRP    IJK                                                     COMFSKL   271
                                         IJK=     SET    IJK=+1                                                  COMFSKL   272
                                                  IRP                                                            COMFSKL   273
                                         RM       RMT                                                            COMFSKL   274
                                                  IRP    IJK                                                     COMFSKL   275
                                         IJK=     SET    IJK=-1                                                  COMFSKL   276
                                                  IRP                                                            COMFSKL   277
                                                  IFC    LT,/TO/=/,2                                             COMFSKL   278
                                                  SETSPC M.ISBRN,TO                                              COMFSKL   279
                                                  SKIP   1                                                       COMFSKL   280
                                                  SETSPC M.IRST,TO                                               COMFSKL   281
                                         RM       RMT                                                            COMFSKL   282
                                         BRANCH   ENDM                                                           COMFSKL   283
  
  
  
  
                                        **        MICNAM - GENERATE MICRO OF SKELETON NAME.                      COMFSKL   285
                                        *                                                                        COMFSKL   286
                                        *         GENERATED NAME IS --                                           COMFSKL   287
                                        *         A.  TRUNCATED TO FIVE CHARACTERS.                              COMFSKL   288
                                        *         B.  PREFIX 'IF' IS REMOVED FROM IF SKELS.                      COMFSKL   289
                                        *         C.  RULE (B.) DOES NOT APPLY TO 'IFIX'.                        COMFSKL   290
                                                                                                                 COMFSKL   291
                                                                                                                 COMFSKL   292
                                                  MACRO  MICNAM,MIC,NAME                                         COMFSKL   293
                                         MIC      MICRO  1,5,/NAME/                                              COMFSKL   294
                                         .A       MICRO  1,2,/NAME/                                              COMFSKL   295
                                                  IFC    EQ,/".A"/IF/,2                                          COMFSKL   296
                                                  IFC    NE,/NAME/IFIX/,1                                        COMFSKL   297
                                         MIC      MICRO  3,,/NAME/                                               COMFSKL   298
                                                  ENDM                                                           COMFSKL   299
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    11
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  SKEL
  
                                        **        SKEL - DECLARE BEGINNING OF A SKELETAL EXPANSION.              COMFSKL   302
                                        *                                                                        COMFSKL   303
                                                                                                                 COMFSKL   304
                                                                                                                 COMFSKL   305
                                                  MACRO  SKEL,NAME,CONPRO                                        COMFSKL   306
                                         STEM     MICNAM NAME                                                    COMFSKL   307
                                         U="STEM" SET    SKELAD                                                  COMFSKL   308
                                         W="STEM" EQU    SKELAD                                                  COMFSKL   309
                                         V="STEM" EQU    COUNT                                                   COMFSKL   310
                                         COUNT    SET    COUNT+1                                                 COMFSKL   311
                                         LBF      MICRO  1,8,/V="STEM"        /                                  COMFSKL   312
                                                  IFC    EQ,/CONPRO//,2                                          COMFSKL   313
                                         SCT RMT= ("LBF" VFD 6/0,18/W="STEM",18/=YD="STEM",18/U="STEM")          COMFSKL   314
                                                  SKIP   2                                                       COMFSKL   315
                                         CONPRO   MICNAM CONPRO                                                  COMFSKL   316
                                         SCT RMT= ("LBF" VFD 6/0,18/W="STEM",18/=YD="STEM",18/W="CONPRO")        COMFSKL   317
                                                  ENTRY  V="STEM"                                                COMFSKL   318
                                        *                            SET SKEL NAME TABLE IN TEST MODE            COMFSKL   319
                                         .T       IFEQ   TEST,ON,3                                               COMFSKL   320
                                                  USE    /SKLNAM/                                                COMFSKL   321
                                                  DIS    1,V="STEM"                                              COMFSKL   322
                                                  USE    *                                                       COMFSKL   323
                                         SKEL     ENDM                                                           COMFSKL   324
  
  
  
  
                                        **        SUBSKEL - DECLARE BEGINNING OF SUB-EXPANSION.                  COMFSKL   326
                                        *                                                                        COMFSKL   327
                                                                                                                 COMFSKL   328
                                                                                                                 COMFSKL   329
                                                  MACRO  SUBSKEL,NAM                                             COMFSKL   330
                                         STEM     MICNAM NAM                                                     COMFSKL   331
                                         W="STEM" EQU    SKELAD                                                  COMFSKL   332
                                                  ENTRY  W="STEM"                                                COMFSKL   333
                                                  ENDM                                                           COMFSKL   334
  
  
  
  
                                        **        SKEQU  -  EQUATE SKELETONS.                                    COMFSKL   336
                                                                                                                 COMFSKL   337
                                                                                                                 COMFSKL   338
                                                  MACRO  SKEQU,NEW,OLD,NOENT                                     COMFSKL   339
                                         OSM      MICNAM OLD                                                     COMFSKL   340
                                         NSM      MICNAM NEW                                                     COMFSKL   341
                                         W="NSM"  EQU    W="OSM"                                                 COMFSKL   342
                                         VEQU     RMT=   (V="NSM"   EQU    V="OSM")                              COMFSKL   343
                                        *                                                                        COMFSKL   344
                                                  IFC    NE,/NOENT/-/,1                                          COMFSKL   345
                                                  ENTRY  V="NSM"                                                 COMFSKL   346
                                         SKEQU    ENDM                                                           COMFSKL   347
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    12
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  SUBEQU
  
                                        **        SUBEQU - DEFINE EQUIVALENT PASS 2 SKELETON.                    COMFSKL   349
                                                                                                                 COMFSKL   350
                                                                                                                 COMFSKL   351
                                                  MACRO  SUBEQU,NEW,OLD                                          COMFSKL   352
                                         OSM      MICNAM OLD                                                     COMFSKL   353
                                         NSM      MICNAM NEW                                                     COMFSKL   354
                                         W="NSM"  EQUENT W="OSM"                                                 COMFSKL   355
                                                  ENDM                                                           COMFSKL   356
  
  
  
  
                                        **        CALL - CALL AN EXTERNAL PROCESSOR TO PROCESS/ OR PARTIALLY     COMFSKL   358
                                        *                PROCESS CURRENT TURPLE.                                 COMFSKL   359
                                        *                                                                        COMFSKL   360
                                        *         NOTE - CONVENTIONS EXPECTED BY THE CALL *ARG* PERAMETER ARE:   COMFSKL   361
                                        *                SKOP GENERATED CONSTANTS APPEAR IN CALL CALLS AS IS,    COMFSKL   362
                                        *                OTHER COMPILER CONSTANTS ARE PRIFIXED BY 0+             COMFSKL   363
                                        *                RELOCATABLES ARE PREFIXED WITH =X                       COMFSKL   364
                                                                                                                 COMFSKL   365
                                                                                                                 COMFSKL   366
                                                  PURGMAC CALL                                                   COMFSKL   367
                                                                                                                 COMFSKL   368
                                         CALL     MACRO  TO,ARG                                                  COMFSKL   369
                                         U="STEM" SET    0                                                       COMFSKL   370
                                         RM       RMT                                                            COMFSKL   371
                                         .1       IFEQ   .CG,.OPT                                                COMFSKL   372
                                                  SETSPC M.ICALL,0,0                                             COMFSKL   373
                                         .1       ELSE                                                           COMFSKL   374
                                                  IFC    NE, ARG  ,3                                             COMFSKL   375
                                                  IFC    LT, ARG 0 ,2                                            COMFSKL   376
                                                  SETSPC M.ICALL,=XO=TO,-ARG.                                    COMFSKL   377
                                                  SKIP   1                                                       COMFSKL   378
                                                  SETSPC M.ICALL,=XO=TO,ARG                                      COMFSKL   379
                                        .1        ENDIF                                                          COMFSKL   380
                                         RM       RMT                                                            COMFSKL   381
                                         CALL     ENDM                                                           COMFSKL   382
                                                                                                                 COMFSKL   383
  
  
  
  
                                        **        CALLQ AND CALLC - TO AVOID CONDITIONAL CODE IN THE             COMFSKL   385
                                        *         COMDECK SKEL THESE MACROS ARE DEFINED.                         COMFSKL   386
                                                                                                                 COMFSKL   387
                                                  IFEQ   .CG,.FAST,3                                             COMFSKL   388
                                         CALLQ    OPSYN  CALL                                                    COMFSKL   389
                                         CALLC    OPSYN  NIL                                                     COMFSKL   390
                                                  SKIP   2                                                       COMFSKL   391
                                         CALLC    OPSYN  CALL                                                    COMFSKL   392
                                         CALLQ    OPSYN  NIL                                                     COMFSKL   393
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    13
        COMFSKL - SKELETON FORMATTER FOR FRONT ENDS.                  MICMIC
  
                                        **        MICMIC  -  GET MICRO OF A MICRO.                               COMFSKL   395
                                        *                                                                        COMFSKL   396
                                        *         MIC = RESULTING MICRO.                                         COMFSKL   397
                                        *         N   = STARTING CHARACTER POSITION.                             COMFSKL   398
                                        *         CMIC= CURRENT MICRO.                                           COMFSKL   399
                                                                                                                 COMFSKL   400
                                                                                                                 COMFSKL   401
                                                  MACRO  MICMIC,MIC,N,CMIC                                       COMFSKL   402
                                         MIC      MICRO  N,,/"CMIC"/                                             COMFSKL   403
                                         MICMIC   ENDM                                                           COMFSKL   404
                                                                                                                 COMFSKL   405
                                        *         END OF MACROS.                                                 COMFSKL   406
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    14
        TABLES AND EQUATES.                                           SKEL. 
  
                                         EQU.     OPSYN   EQU                                                    COMFSKL   408
                                                  PURGMAC EQU                                                    COMFSKL   409
                                                                                                                 COMFSKL   410
                                                  MACRO  EQU,LOC,VAR                                             COMFSKL   411
                                                  NOREF   LOC                                                    COMFSKL   412
                                         LOC      EQU.    VAR                                                    COMFSKL   413
                                                  ENDM                                                           COMFSKL   414
                                                                                                                 COMFSKL   415
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    15
        COMSEIS - SKELETON DESCRIPTION FOR QCG. 
  
             0                                    CTEXT  COMSEIS - SKELETON DESCRIPTION FOR QCG.                 COMSEIS     2
  
  
  
  
                                        **        SKELETON OP-CODE TYPE VALUES.                                  COMSEIS     4
                                                                                                                 COMSEIS     5
                                                                                                                 COMSEIS     6
                                         M.COND   EQU    0           CONDITIONAL                                 COMSEIS     7
                                         M.NORM   EQU    1           ARITHMETIC OP-CODES                         COMSEIS     8
                                         M.INCR   EQU    2           LOAD REGISTER OP-CODES                      COMSEIS     9
                                         M.BRAN   EQU    3           BRANCH OP-CODES                             COMSEIS    10
                                         M.SHIF   EQU    4           REGISTER SHIFT OP-CODES                     COMSEIS    11
                                         M.ICALL  EQU    5           IF NEEDS TO CALL A EXTERNAL PROCESSOR TO    COMSEIS    12
                                         M.INOOP  EQU    6           SPECIAL TYPE FOR NOOPS                      COMSEIS    13
                                         M.ISBRN  EQU    7           TYPE FOR A BRANCH TO OTHER SKELS            COMSEIS    14
                                         M.LOAD   EQU    10B         LOAD/STORE INSTRUCTIONS                     COMSEIS    15
                                         M.RND    EQU    21B         M.NORM + THE ROUNDABLE BIT.                 COMSEIS    16
                                         M.IEND   EQU    40B         END OF SKELETON                             COMSEIS    17
                                         P.IEND   EQU    59                                                      COMSEIS    18
  
  
  
  
                                        **        SK. - WORD FORMAT OF SKELETON INSTRUCTION.                     COMSEIS    20
                                                                                                                 COMSEIS    21
                                                                                                                 COMSEIS    22
                                                  DESCRIBE  SK.,60                                               COMSEIS    23
      L     73  40000000000000000000     END      DEFINE 1                                                       COMSEIS    24
      L     72  20000000000000000000     RND      DEFINE 1                                                       COMSEIS    25
      L     66  77000000000000000000     TYP      DEFINE 6,59                                                    COMSEIS    26
      L     60  00770000000000000000     GH       DEFINE 6                                                       COMSEIS    27
      L     55  00777000000000000000     OPC      DEFINE 9,53                                                    COMSEIS    28
      L     42  00000777600000000000     IF       DEFINE 11                                                      COMSEIS    29
      L     27  00000000177740000000     JF       DEFINE 11                                                      COMSEIS    30
      L     14  00000000000037770000     KF       DEFINE 11                                                      COMSEIS    31
             0  00000000000000007777     QF       DEFINE 12                                                      COMSEIS    32
      L     44  00777777000000000000     ATTR     DEFINE 18,53                                                   COMSEIS    33
      L     22  00000000777777000000     ARG      DEFINE 18                                                      COMSEIS    34
             0  00000000000000777777     JPAD     DEFINE 18                                                      COMSEIS    35
  
  
  
  
                                        **        SR.      -- SKELETON REGISTER/CONSTANT FIELD --                COMSEIS    37
                                        *                THE SR. STRUCTURE IS A SUB-STRUCTURE OF SK. IT          COMSEIS    38
                                        *                RESIDES IN THE SK.I, SK.J, AND SK.K FIELDS.             COMSEIS    39
                                        *                THESE FIELDS CONTROL THE CONSTRUCTION IF THE            COMSEIS    40
                                        *                I, J, AND K/Q PORTION OF A PREBINARY WORD.              COMSEIS    41
                                                                                                                 COMSEIS    42
                                                  DESCRIBE   SR.,11                                              COMSEIS    43
                                3700     OAD      DEFINE 5                                                       COMSEIS    44
                                0077     NUM      DEFINE 6                                                       COMSEIS    45
                                                                                                                 COMSEIS    46
                                                  ENDX                                                           COMSEIS    47
                                                                                                                 COMFSKL   417
                                                  PURGMAC EQU                                                    COMFSKL   418
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    16
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SR
  
                                         EQU      OPSYN   EQU.                                                   COMFSKL   419
                                                                                                                 COMFSKL   420
                                                                                                                 COMFSKL   421
                                        *         MICROS USED DURING SKELETON CONSTRUCTION TO DEFINE A           COMFSKL   422
                                        *         PARTICULAR TYPE OF OPERATION, OPERAND OR CONSTANT.             COMFSKL   423
                                                                                                                 COMFSKL   424
                                         N1       MICRO  1,, P2            IF-BRANCH 1ST LABEL                   COMFSKL   425
                                         N2       MICRO  1,, P3            IF-BRANCH 2ND LABEL                   COMFSKL   426
                                         N3       MICRO  1,, P4            IF-BRANCH 3RD LABEL                   COMFSKL   427
                                         K-1      MICRO  1,, +777776B      MINUS ONE                             COMFSKL   428
                                         TBR      MICRO  1,, B6            TEMPORARY B-REGISTER                  COMFSKL   429
                                         IR       MICRO  1,, X6            DO INDEX REGISTER.                    COMFSKL   430
                                                                                                                 COMFSKL   431
                                        **        MUST DEFINE B0.,...,X7. MICROS.                                COMFSKL   432
                                        *         EACH OF THESE MICROS JUST EQUALS THE REGISTER NUMBER           COMFSKL   433
                                        *         X6. = 6, ETC.                                                  COMFSKL   434
                                                                                                                 COMFSKL   435
                                                  NOREF  .RCON                                                   COMFSKL   436
                                   0     .RCON    SET    0                                                       COMFSKL   437
                                  10     .1       DUP    8                                                       COMFSKL   438
                                         RCON     DECMIC .RCON                                                   COMFSKL   439
                                         A_"RCON"_. MICRO    1,,/"RCON"/                                         COMFSKL   440
                                         B_"RCON"_. MICRO    1,,/"RCON"/                                         COMFSKL   441
                                         X_"RCON"_. MICRO    1,,/"RCON"/                                         COMFSKL   442
                                         .RCON    SET    .RCON+1                                                 COMFSKL   443
                                         .1       ENDD                                                           COMFSKL   444
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    17
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SKOP
  
                                        **        INITIALIZE ASSEMBLER VALUES FOR SKELETON EXPANAION.            COMFSKL   446
                                                                                                                 COMFSKL   447
                                        **        SKOP   - SKELETON OPERAND MACRO. SETS ASSEMBLY CONSTANTS       COMFSKL   448
                                        *                FOR IJK PARAMETERS OF THE INSTRUCTION MACROS.           COMFSKL   449
                                        *                                                                        COMFSKL   450
                                        *         CONSTANTS SET:                                                 COMFSKL   451
                                        *                                                                        COMFSKL   452
                                        *         OP_N.  ALSO KNOWN AS IJK. IN SETOTH, IS SET BY SKOP.           COMFSKL   453
                                        *                OP_N. IS USED TO SET THE SR.NUM FIELD. N STANDS         COMFSKL   454
                                        *                FOR SOME INTEGER WHICH IS GIVEN BY THE MICRO Z          COMFSKL   455
                                        *                WITHIN THE SKOP MACRO BODY.                             COMFSKL   456
                                        *                EXAMPLE: SKOP DEFINES R1.,L1. AND L2. THESE VALUES      COMFSKL   457
                                        *                THEN FILL THE I,J,AND K SR.NUM FIELDS WHENEVER A        COMFSKL   458
                                        *                MACRO CALL LIKE - IS   R1,L1,L2 - OCCURS.               COMFSKL   459
                                        *                                                                        COMFSKL   460
                                        *         OP_N=  AKA IJK=, IS INITIALIZED HERE TO ZERO. OP_N= IS         COMFSKL   461
                                        *                THE COUNTER USED FOR LAST USE CALCULATIONS. N IS        COMFSKL   462
                                        *                LIKE THE N FOR OP_N..                                   COMFSKL   463
                                        *                                                                        COMFSKL   464
                                        *         AT.OP_N AND ZT.OP_N                                            COMFSKL   465
                                        *                                                                        COMFSKL   466
                                        *                AKA AT.IJK AND ZT.IJK, ARE SET HERE. THEY ARE           COMFSKL   467
                                        *                EMPLOYED AS ORDINALS INTO THE MAIN EIS JUMP TABLE.      COMFSKL   468
                                        *                WHEN AN OPERAND IS NOT BEING USED FOR THE LAST          COMFSKL   469
                                        *                TIME WITHIN A SKELETON, AT.OP_N IS THE ORDINAL.         COMFSKL   470
                                        *                OTHERWISE ZT.OP_N IS USED.(N CHOSEN AS IN OP_N.)        COMFSKL   471
                                        *                                                                        COMFSKL   472
                                        *         THE PERAMETERS:                                                COMFSKL   473
                                        *                                                                        COMFSKL   474
                                        *         OP     THE ROOT LETTER OR COMBINATION OF LETTERS USED AS       COMFSKL   475
                                        *                PERAMETES IN AN INSTRUCTION SKELETON.(AS IN L OF L1     COMFSKL   476
                                        *                AND L2 OR RU OF RU1,RU2). FOR CONSTANTS OR ADDRESS      COMFSKL   477
                                        *                REFERENCES OP NEVER ACTUALLY APPEARS IN THE IN-         COMFSKL   478
                                        *                STRUCTION MACRO CALL. IN THESE CASES IT IS Q OR S.      COMFSKL   479
                                        *                                                                        COMFSKL   480
                                        *         LAST AND NOTLAST -                                             COMFSKL   481
                                        *                                                                        COMFSKL   482
                                        *                THESE PARMS ARE USED TO DETERMINE IF THE                COMFSKL   483
                                        *                ORDINALS ZT.OP_N AND AT.OP_N ARE GENERATED.             COMFSKL   484
                                        *                                                                        COMFSKL   485
                                        *         FTYP   FUNCTION TYPE: A CENTRAL TASK OF SKOP IS TO             COMFSKL   486
                                        *                DEFINE THE FUNCTION WHICH MAPS N INTO OP_N..            COMFSKL   487
                                        *                THIS FUNCTION,IS ENTIRELY DITERMINED BY THE             COMFSKL   488
                                        *                FOUR CONSTANTS:                                         COMFSKL   489
                                        *                                                                        COMFSKL   490
                                        *                SKL.FTYP    SKOP DOMAIN LOWER LIMIT                     COMFSKL   491
                                        *                SKU.FTYP    SKOP DOMAIN UPPER LIMIT                     COMFSKL   492
                                        *                SKM.FTYP    INCREMENT MODULES(MOD)                      COMFSKL   493
                                        *                SKO.FTYP    SKOP RANGE OFFSET                           COMFSKL   494
                                        *                                                                        COMFSKL   495
                                        *                ALL ARE CREATED BY SKPSET. OUR FUNCTION MAPS            COMFSKL   496
                                        *                THE SET (SKL.FTYP,SKL.FTYP+1,...,SKU.FTYP)INTO A RANGE  COMFSKL   497
                                        *                BOUNDED BELOW BY SKL.FTYP-SKO.FTYP. IT IS THE INTEGER   COMFSKL   498
                                        *                FUNCTION GIVEN RECURSIVELY BY:                          COMFSKL   499
                                        *                                                                        COMFSKL   500
                                        *                OP_N. = OP_N-1. + MAX(SKM.FTYP,1) ... SKM.FTYP.GE.0     COMFSKL   501
                                        *                OP_N. = OP_N-1. + 1 + SWITCH(N)   ... SKM.FTYP.LT.0     COMFSKL   502
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    18
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SKOP
  
                                        *                                                                        COMFSKL   503
                                        *                WHERE OP_SKL.FTYP-1.=SKL.FTYP+SKO.FTYP-MAX(SKM.FTYP,1)  COMFSKL   504
                                        *                      SWITCH(N)=1 IF N=0 MOD(SKM.FTYP) AND 0 OTHERWISE  COMFSKL   505
                                        *                                                                        COMFSKL   506
                                        *                                                                        COMFSKL   507
                                        *         OPEQ   SIGNALS SKOP TO SET AT.OP_N AND/OR ZT.OP_N              COMFSKL   508
                                        *                EQUAL TO AT.OPEQ_N AND/OR ZT.OPEQ_N RESP.               COMFSKL   509
                                        *                                                                        COMFSKL   510
                                        *         WARNING REMEMBER TO DEFINE AT.OPEQ_N AND ZT.OPEQ_N             COMFSKL   511
                                        *         FIRST. ALSO, THE SKOP CALL STRUCTURES MUST BE THE SAME         COMFSKL   512
                                                                                                                 COMFSKL   513
                                                                                                                 COMFSKL   514
                                                  MACRO  SKOP,OP,NOTLAST,LAST,FTYP,OPEQ,CON                      COMFSKL   515
                                         C        SET    1                                                       COMFSKL   516
                                                  IFC    NE, OPEQ  ,1                                            COMFSKL   517
                                         C        SET    0                                                       COMFSKL   518
                                                  IFC    NE,/NOTLAST/NONE/,3                                     COMFSKL   519
                                         AT.      SET    T.IND                                                   COMFSKL   520
                                         AT.OP    SET    AT.OPEQ                                                 COMFSKL   521
                                         T.IND    SET    T.IND+C                                                 COMFSKL   522
                                                  IFC    NE,/LAST/NONE/,5                                        COMFSKL   523
                                                  IFC    NE,/LAST/NOTLAST/,4                                     COMFSKL   524
                                         ZT.      SET    T.IND                                                   COMFSKL   525
                                         ZT.OP    SET    ZT.OPEQ                                                 COMFSKL   526
                                         T.IND    SET    T.IND+C                                                 COMFSKL   527
                                                  SKIP   1                                                       COMFSKL   528
                                         ZT.OP    SET    AT.OP                                                   COMFSKL   529
                                         B        MAX    1,SKM.FTYP                                              COMFSKL   530
                                         C        SET    SKL.FTYP+SKO.FTYP                                       COMFSKL   531
                                         A        SET    SKL.FTYP                                                COMFSKL   532
                                         Z        SET    SKL.FTYP                                                COMFSKL   533
                                                  DUP    SKU.FTYP/B-SKL.FTYP/B+1                                 COMFSKL   534
                                         Z        DECMIC Z                                                       COMFSKL   535
                                                  NOREF  OP"Z"=                                                  COMFSKL   536
                                         OP"Z"=   SET    0                                                       COMFSKL   537
                                                  IFLT   SKM.FTYP,0,3                                            COMFSKL   538
                                                  IFEQ   SKM.FTYP+A,0,2                                          COMFSKL   539
                                         A        SET    B                                                       COMFSKL   540
                                         C        SET    C+B                                                     COMFSKL   541
                                                  NOREF  OP"Z".                                                  COMFSKL   542
                                         OP"Z".   EQU    C                                                       COMFSKL   543
                                                  IFC    NE,/CON//,2                                             COMFSKL   544
                                                  NOREF  OP"Z".C                                                 COMFSKL   545
                                         OP"Z".C  SET    1                                                       COMFSKL   546
                                         A        SET    A+B                                                     COMFSKL   547
                                         C        SET    C+B                                                     COMFSKL   548
                                         Z        SET    Z+1                                                     COMFSKL   549
                                                  IFC    NE,/NOTLAST/NONE/,2                                     COMFSKL   550
                                                  NOREF  AT.OP"Z"                                                COMFSKL   551
                                         AT.OP"Z" EQU    AT.OP                                                   COMFSKL   552
                                                  IFC    NE,/LAST/NONE/,2                                        COMFSKL   553
                                                  NOREF  ZT.OP"Z"                                                COMFSKL   554
                                         ZT.OP"Z" EQU    ZT.OP                                                   COMFSKL   555
                                                  ENDD                                                           COMFSKL   556
                                         SKOP     ENDM                                                           COMFSKL   557
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    19
        COMSEIS - SKELETON DESCRIPTION FOR QCG.                       SKOP
  
                                        **        CONSTANTS NEEDED FOR SKOP CALLS                                COMFSKL   559
                                                                                                                 COMFSKL   560
                                   0     T.IND    SET    0                                                       COMFSKL   561
                                                                                                                 COMFSKL   562
                                        **        SET THE SKOP NUM SELECTION PARAMETERS                          COMFSKL   563
                                                                                                                 COMFSKL   564
             0                           SKPSET   CTEXT                                                          SKPSET      2
  
  
  
  
                                        **        SKPSET - SETS THE FTYP CONSTANTS WHICH DETERMINE THE           SKPSET      4
                                        *                  SK.NUM FIELDS. SEE SKOP MACRO DOCUMENTATION.          SKPSET      5
                                                                                                                 SKPSET      6
                                                  MACRO  SKPSET,FTYP,LL,UL,MODULES,OFFSET                        SKPSET      7
                                         SKL.FTYP SET    LL                                                      SKPSET      8
                                         SKU.FTYP SET    UL                                                      SKPSET      9
                                         SKM.FTYP SET    MODULES                                                 SKPSET     10
                                         SKO.FTYP SET    OFFSET                                                  SKPSET     11
                                         SKPSET   ENDM                                                           SKPSET     12
                                         SKPSET   ENDX                                                           SKPSET     13
             0                           SKPCONQ  CTEXT                                                          SKPCONQ     2
  
  
  
  
                                         RG       SKPSET 0,7,1,0                                                 SKPCONQ     4
                                         OP       SKPSET 1,6,-Z=TURP,0                                           SKPCONQ     5
                                         TMP      SKPSET 1,20,1,-1                                               SKPCONQ     6
                                         CON      SKPSET 0,0,1,0                                                 SKPCONQ     7
                                         GOP      SKPSET 1,6,1,-1                                                SKPCONQ     8
                                         SKPCONQ  ENDX                                                           SKPCONQ     9
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    20
        SKOP - EIS TO QSKEL LINKAGE                                   SKOP
  
                                        ***       SKOP - THE EIS TO QSKEL LINKAGE.                               COMFSKL   568
                                        *                                                                        COMFSKL   569
                                        *         THE SKOP COMDECK IS CALLED BY DECKS WHICH REFER TO THE         COMFSKL   570
                                        *         (AT.) SYMBOLS.                                                 COMFSKL   571
                                        *                                                                        COMFSKL   572
                                        *         QSKEL- HERE THE SKOP COMDECK SETS ASSEMBLER CONSTANTS          COMFSKL   573
                                        *                WHICH ARE ORDINALS INTO THE SKOP TABLE OF EIS,          COMFSKL   574
                                        *                AND SETS OTHER CONSTANTS NEEDED FOR SKELETON            COMFSKL   575
                                        *                GENERATION IN QSKEL.                                    COMFSKL   576
                                        *                                                                        COMFSKL   577
                                        *         EIS  - HERE SKOP GENERATES THE BASIC JUMP TABLE (SKOP)         COMFSKL   578
                                        *                WHICH CONTROLS THE CONSTRUCTION OF A NORMAL PRE-        COMFSKL   579
                                        *                BINARY INSTRUCTION. TABLE ENTRIES HAVE THE FORMAT:      COMFSKL   580
                                        *                30/0,30/EIS.NOTLAST OR EIS.LAST.                        COMFSKL   581
  
  
  
  
                                        **        EIS INTERNAL FLOW DRIVEN BY SKOP.                              COMFSKL   583
                                        *                                                                        COMFSKL   584
                                        *         ***IMPORTANT**FACT***                                          COMFSKL   585
                                        *                                                                        COMFSKL   586
                                        *                COMPLETE KNOWLEDGE OF THE FLOW OF EIS CAN BE OB-        COMFSKL   587
                                        *                TAINED BY CORRELATING THE SKELETON INSTRUCTION          COMFSKL   588
                                        *                MACRO CALLS WITH SKOP ENTRIES.                          COMFSKL   589
                                        *                                                                        COMFSKL   590
                                        *                EXAMPLE: TO DETERMINE HOW EIS PROCESSES                 COMFSKL   591
                                        *                                                                        COMFSKL   592
                                        *                         IS     R1,L1,L2                                COMFSKL   593
                                        *                                                                        COMFSKL   594
                                        *                LOOK AT THE SKOP ENTRIES:                               COMFSKL   595
                                        *                                                                        COMFSKL   596
                                        *                R        SKOP   NONE,IR,OP  AND                         COMFSKL   597
                                        *                L        SKOP   LNU,L,OP                                COMFSKL   598
                                        *                                                                        COMFSKL   599
                                        *                SEE THE SKOP MACRO HEADER. FLOW PASSES THROUH           COMFSKL   600
                                        *                THE PROCESSORS EIS.NOTLAST OR EIS.LAST. SO, IN          COMFSKL   601
                                        *                OUR EXAMPLE FLOW IS THROUGH EIS.L, EIS.LNU, OR          COMFSKL   602
                                        *                EIS.IR (A *NONE* IMPLIES NO PROCESSOR). IF A PAR-       COMFSKL   603
                                        *                AMETER IS BEING USED FOR THE LAST TIME WITHIN A         COMFSKL   604
                                        *                CODE SKELETON THE PROCESSOR CHOSEN IS EIS.LAST (EIS.L   COMFSKL   605
                                        *                OR EIS.IR IN OUR EXAMPLE). FOR NOT LAST USE CHOOSE      COMFSKL   606
                                        *                THE PROCESSOR EIS.NOTLAST (EIS.LNU).                    COMFSKL   607
                                        *                                                                        COMFSKL   608
                                        *                NOW, TO DETERMINE FLOW:   READ THE INSTRUCTION          COMFSKL   609
                                        *                PERAMETERS FROM RIGHT TO LEFT. THIS IS THE ORDER OF     COMFSKL   610
                                        *                FLOW. IT IS A FACT THAT THE EIS.IR PROCESSOR IS A       COMFSKL   611
                                        *                TERMINAS PROCESSOR, SO IN OUR EXAMPLE WE KNOW ALL       COMFSKL   612
                                        *                PERAMETERS ARE IN A LAST USE CASE. SO, FLOW PASSES      COMFSKL   613
                                        *                FROM EIS.L TO EIS.L TO EIS.IR.                          COMFSKL   614
                                                                                                                 COMFSKL   615
             0                           SKOP     CTEXT                                                          SKOP        2
                                                                                                                 SKOP        3
                                                                                                                 SKOP        4
                                         A        SKOP   AA,CA,RG                                                SKOP        5
                                         B        SKOP   AB,CB,RG                                                SKOP        6
                                         X        SKOP   AX,CX,RG                                                SKOP        7
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    21
        SKOP - EIS TO QSKEL LINKAGE                                   EIS 
  
                                         L        SKOP   LNU,L,OP,,CON                                           SKOP        8
                                         LU       SKOP   LNU,L,OP,L,CON                                          SKOP        9
                                         LL       SKOP   LNL,LL,OP,,CON                                          SKOP       10
                                         P        SKOP   P,P,OP                                                  SKOP       11
                                         R        SKOP   NONE,IR,OP,,CON                                         SKOP       12
                                         RU       SKOP   NONE,IR,OP,R,CON                                        SKOP       13
                                         RL       SKOP   NONE,IRL,OP,,CON                                        SKOP       14
                                         GP       SKOP   GP,GP,GOP                                               SKOP       15
                                         GL       SKOP   GLN,GL,GOP                                              SKOP       16
                                         GLU      SKOP   GLN,GL,GOP,GL                                           SKOP       17
                                         GLL      SKOP   GLNL,GLL,GOP                                            SKOP       18
                                         T        SKOP   AT,CT,TMP,,CON                                          SKOP       19
                                         Q        SKOP   Q,NONE,CON                                              SKOP       20
                                         S        SKOP   S,NONE,CON                                              SKOP       21
                                         K        SKOP   K,NONE,CON                                              SKOP       22
                                                  ENDX                                                           SKOP       23
                                                                                                                 COMFSKL   617
                                   1     B6.C     SET    1           ALLOW B6 AS CONREDUCED OPERAND              COMFSKL   618
                                                  NOREF  SKELAD                                                  COMFSKL   619
                                   0     SKELAD   SET    0                                                       COMFSKL   620
                                   0     COUNT    SET    0           INITIALIZE COUNT OF SKELS                   COMFSKL   621
                                                                                                                 COMFSKL   622
                                                                                                                 COMFSKL   623
                                                  LIST   -X          COMSQRF IS LISTED IN DECK *QUIK*            COMFSKL   624
                                                  LIST   *                                                       COMFSKL   626
                                        **        DEFINE INSTRUCTION MACROS                                      COMFSKL   627
                                                                                                                 COMFSKL   628
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    22
        DEFINS - DEFINE MACHINE OPCODES.
  
             0                                    CTEXT  DEFINS - DEFINE MACHINE OPCODES.                        DEFINS      2
  
  
  
  
                                        *         PSUEDO-OPS WHICH OCCUR BETWEEN BMI/EMI.                        DEFINS      4
                                                                                                                 DEFINS      5
                                        **        HARD NUMBERS ARE USED FOR FLOATING POINT                       DEFINS      6
                                        *         OPCODES IN THE ROUNDABLE OPCODE PLUGGING                       DEFINS      7
                                        *         ROUTINE, ROR (IN COMFROR). IT WAS FELT THAT                    DEFINS      8
                                        *         A DEFINS CALL FOR THE EXPRESSED PURPOSE OF                     DEFINS      9
                                        *         SYMBOLICALLY DEFINING 4 PERMANT CONSTANTS                      DEFINS     10
                                        *         WOULD BE EXCESSIVE.                                            DEFINS     11
                                                                                                                 DEFINS     12
                                                                                                                 DEFINS     13
                                         JPQ      DEFPO  I.JPI       INDEXED JUMP                                DEFINS     14
                                         RJ3      DEFPO  I.RJ3       30-BIT RETURN JUMP                          DEFINS     15
                                         UJP      DEFPO  I.UJP       UNCONDITIONAL JUMP                          DEFINS     16
                                         LABL     DEFPO  I.BSS       DEFINE LABEL TAG                            DEFINS     17
                                                                                                                 DEFINS     18
                                                                                                                 DEFINS     19
                                        *         DIRECT ACCESS LCM.                                             DEFINS     20
                                                                                                                 DEFINS     21
                                         DRL      DEFINS 014,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE    DEFINS     22
                                         DWL      DEFINS 015,M.BRAN        M.BRAN SINCE *I* IS PART OF OPCODE    DEFINS     23
                                                                                                                 DEFINS     24
                                                                                                                 DEFINS     25
                                        *                            CONDITIONAL BRANCHES.                       DEFINS     26
                                                                                                                 DEFINS     27
                                         ZR       DEFINS 030,M.BRAN                                              DEFINS     28
                                         NZ       DEFINS 031,M.BRAN                                              DEFINS     29
                                         PL       DEFINS 032,M.BRAN                                              DEFINS     30
                                         MI       DEFINS 033,M.BRAN                                              DEFINS     31
                                                                                                                 DEFINS     32
                                         IR       DEFINS 034,M.BRAN                                              DEFINS     33
                                         ORJ      DEFINS 035,M.BRAN                                              DEFINS     34
                                         DFJ      DEFINS 036,M.BRAN                                              DEFINS     35
                                         IDJ      DEFINS 037,M.BRAN                                              DEFINS     36
                                                                                                                 DEFINS     37
                                         EQB      DEFINS 040,M.BRAN                                              DEFINS     38
                                         NEB      DEFINS 050,M.BRAN                                              DEFINS     39
                                         LEB      DEFINS 060,M.BRAN                                              DEFINS     40
                                         GEB      DEFINS 060,M.BRAN                                              DEFINS     41
                                         LTB      DEFINS 070,M.BRAN                                              DEFINS     42
                                         GTB      DEFINS 070,M.BRAN                                              DEFINS     43
                                                                                                                 DEFINS     44
                                                                                                                 DEFINS     45
                                        *                            BOOLEAN UNIT.                               DEFINS     46
                                                                                                                 DEFINS     47
                                         XMT      DEFINS 10,M.SHIF                                               DEFINS     48
                                         AND      DEFINS 11,M.NORM                                               DEFINS     49
                                         OR       DEFINS 12,M.NORM                                               DEFINS     50
                                         XOR      DEFINS 13,M.NORM                                               DEFINS     51
                                         NEQV     DEFINS 13,M.NORM                                               FC51485    13
                                         CLR      DEFINS 13,M.NORM                                               DEFINS     52
                                         XMTC     DEFINS 14,M.NORM                                               DEFINS     53
                                         STR      DEFINS 15,M.NORM                                               DEFINS     54
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    23
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                         IMP      DEFINS 16,M.NORM                                               DEFINS     55
                                         EQV      DEFINS 17,M.NORM                                               DEFINS     56
                                                                                                                 DEFINS     57
                                                                                                                 DEFINS     58
                                        *                            SHIFT UNIT.                                 DEFINS     59
                                                                                                                 DEFINS     60
                                         KLS      DEFINS 20,M.SHIF                                               DEFINS     61
                                         KRS      DEFINS 21,M.SHIF                                               DEFINS     62
                                         ILS      DEFINS 22,M.SHIF                                               DEFINS     63
                                         IRS      DEFINS 23,M.SHIF                                               DEFINS     64
                                         NR       DEFINS 24,M.NORM                                               DEFINS     65
                                         RNR      DEFINS 25,M.NORM                                               DEFINS     66
                                         UP       DEFINS 26,M.NORM                                               DEFINS     67
                                         PK       DEFINS 27,M.NORM                                               DEFINS     68
                                         FMA      DEFINS 43,M.NORM                                               DEFINS     69
                                                                                                                 DEFINS     70
                                        *                            ADD UNIT.                                   DEFINS     71
                                                                                                                 DEFINS     72
                                         FA       DEFINS 30,M.NORM                                               DEFINS     73
                                         FS       DEFINS 31,M.NORM                                               DEFINS     74
                                         FAR      DEFINS 30,M.RND                                                DEFINS     75
                                         FSR      DEFINS 31,M.RND                                                DEFINS     76
                                         DFA      DEFINS 32,M.NORM                                               DEFINS     77
                                         DFS      DEFINS 33,M.NORM                                               DEFINS     78
                                         RFA      DEFINS 34,M.NORM                                               DEFINS     79
                                         RFS      DEFINS 35,M.NORM                                               DEFINS     80
                                                                                                                 DEFINS     81
                                                                                                                 DEFINS     82
                                        *                            LONG ADD UNIT.                              DEFINS     83
                                                                                                                 DEFINS     84
                                         IA       DEFINS 36,M.NORM                                               DEFINS     85
                                         IS       DEFINS 37,M.NORM                                               DEFINS     86
                                                                                                                 DEFINS     87
                                                                                                                 DEFINS     88
                                        *                            MULTIPLY UNIT.                              DEFINS     89
                                                                                                                 DEFINS     90
                                         FM       DEFINS 40,M.NORM                                               DEFINS     91
                                         FMR      DEFINS 40,M.RND                                                DEFINS     92
                                         RFM      DEFINS 41,M.NORM                                               DEFINS     93
                                         DFM      DEFINS 42,M.NORM                                               DEFINS     94
                                         IM       DEFINS 42,M.NORM                                               DEFINS     95
                                                                                                                 DEFINS     96
                                                                                                                 DEFINS     97
                                        *                            DIVIDE UNIT.                                DEFINS     98
                                                                                                                 DEFINS     99
                                         FD       DEFINS 44,M.NORM                                               DEFINS    100
                                         FDR      DEFINS 44,M.RND                                                DEFINS    101
                                         RFD      DEFINS 45,M.NORM                                               DEFINS    102
                                         NOP      DEFINS 46,M.NORM                                               DEFINS    103
                                         CX       DEFINS 47,M.NORM                                               DEFINS    104
                                                                                                                 DEFINS    105
                                                                                                                 DEFINS    106
                                        *                            INCREMENT UNIT.                             DEFINS    107
                                                                                                                 DEFINS    108
                                         SA=AK    DEFINS 50,M.INCR                                               DEFINS    109
                                         SA=BK    DEFINS 51,M.INCR                                               DEFINS    110
                                         SA=XK    DEFINS 52,M.INCR                                               DEFINS    111
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    24
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                         SA=XB    DEFINS 53,M.INCR                                               DEFINS    112
                                         SA=AB    DEFINS 54,M.INCR                                               DEFINS    113
                                         SA=AMB   DEFINS 55,M.INCR                                               DEFINS    114
                                         SA=BB    DEFINS 56,M.INCR                                               DEFINS    115
                                         SA=BMB   DEFINS 57,M.INCR                                               DEFINS    116
                                                                                                                 DEFINS    117
                                         SB=AK    DEFINS 60,M.INCR                                               DEFINS    118
                                         SB=BK    DEFINS 61,M.INCR                                               DEFINS    119
                                         SB=XK    DEFINS 62,M.INCR                                               DEFINS    120
                                         SB=XB    DEFINS 63,M.INCR                                               DEFINS    121
                                         SB=AB    DEFINS 64,M.INCR                                               DEFINS    122
                                         SB=AMB   DEFINS 65,M.INCR                                               DEFINS    123
                                         SB=BB    DEFINS 66,M.INCR                                               DEFINS    124
                                         SB=BMB   DEFINS 67,M.INCR                                               DEFINS    125
                                                                                                                 DEFINS    126
                                                                                                                 DEFINS    127
                                         SX=AK    DEFINS 70,M.INCR                                               DEFINS    128
                                         SX=BK    DEFINS 71,M.INCR                                               DEFINS    129
                                         SX=XK    DEFINS 72,M.INCR                                               DEFINS    130
                                         SX=XB    DEFINS 73,M.INCR                                               DEFINS    131
                                         SX=AB    DEFINS 74,M.INCR                                               DEFINS    132
                                         SX=AMB   DEFINS 75,M.INCR                                               DEFINS    133
                                         SX=BB    DEFINS 76,M.INCR                                               DEFINS    134
                                         SX=BMB   DEFINS 77,M.INCR                                               DEFINS    135
                                                                                                                 DEFINS    136
                                         LD       DEFINS 50,M.LOAD                                               DEFINS    137
                                         LDB      DEFINS 60,M.LOAD                                               DEFINS    138
                                         ST       DEFINS 50,M.LOAD                                               DEFINS    139
                                                                                                                 DEFINS    140
                                                                                                                 DEFINS    141
                                                  ENDX                                                           DEFINS    142
                                                                                                                 COMFSKL   630
                                        **        SPECIAL CASE INSTRUCTIONS                                      COMFSKL   631
                                                                                                                 COMFSKL   632
                                        IAZ       OPSYN  IA                                                      COMFSKL   633
                                        ISZ       OPSYN  IS                                                      COMFSKL   634
                                        PNR       OPSYN  NR                                                      COMFSKL   635
                                                                                                                 COMFSKL   636
                                                  MACRO  DEF,AD,I,J,K                                            COMFSKL   637
                                         AD       XMT    I,K                                                     COMFSKL   638
                                                  ENDM                                                           COMFSKL   639
                                                                                                                 COMFSKL   640
                                        **        KLS AND KRS EXPAND TO TWO INSTRUCTION WORDS                    COMFSKL   641
                                        *         DURING QCG ASSEMBLY-TIME SKELETON CONSTRUCTION.                COMFSKL   642
                                        *         FMA IS MADE COMPATIBLE WITH CCG VERSION.                       COMFSKL   643
                                                                                                                 COMFSKL   644
                                         FMA.     OPSYN  FMA                                                     COMFSKL   645
                                         KLS.     OPSYN  KLS                                                     COMFSKL   646
                                         KRS.     OPSYN  KRS                                                     COMFSKL   647
                                                  PURGMAC FMA,KLS,KRS                                            COMFSKL   648
                                                                                                                 COMFSKL   649
                                                                                                                 COMFSKL   650
                                                  MACRO  FMA,AD,I,JK                                             COMFSKL   651
                                         AD       FMA.   I,,JK                                                   COMFSKL   652
                                         FMA      ENDM                                                           COMFSKL   653
                                                                                                                 COMFSKL   654
                                                  MACRO  KLS,AD,I,J,K                                            COMFSKL   655
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    25
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                         AD       XMT   I,J                                                      COMFSKL   656
                                                  KLS.   I,,K                                                    COMFSKL   657
                                         KLS      ENDM                                                           COMFSKL   658
                                                                                                                 COMFSKL   659
                                                  MACRO  KRS,AD,I,J,K                                            COMFSKL   660
                                         AD       XMT   I,J                                                      COMFSKL   661
                                                  KRS.   I,,K                                                    COMFSKL   662
                                         KRS      ENDM                                                           COMFSKL   663
                                                                                                                 COMFSKL   664
                                                  MACRO  XMTL,AD,I,J,K                                           COMFSKL   665
                                         OP       MICRO  1,1,/K/                                                 COMFSKL   666
                                                  IFC    EQ,/"OP"/G/,1                                           COMFSKL   667
                                         OP       MICRO  2,1,/K/                                                 COMFSKL   668
                                                  IFC    EQ,/"OP"/L/,3                                           COMFSKL   669
                                        AD        XMT    I,I                                                     COMFSKL   670
                                                  LD     K,,+R.I                                                 COMFSKL   671
                                                  SKIP   1                                                       COMFSKL   672
                                         AD       SA=BK  I,,K                                                    COMFSKL   673
                                         XMTL     ENDM                                                           COMFSKL   674
                                                                                                                 COMFSKL   675
                                                  MACRO  RJT,AD,TO                                               COMFSKL   676
                                         AD       CALL   CRJ,TO                                                  COMFSKL   677
                                         RJT      ENDM                                                           COMFSKL   678
                                                                                                                 COMFSKL   679
                                                  PURGMAC            LOAD                                        COMFSKL   680
                                                                                                                 COMFSKL   681
                                                  MACRO  LOAD,AD,I,J,K                                           COMFSKL   682
                                         AD       SA=XK  X1,J,K                                                  COMFSKL   683
                                                  XMT    I,X1                                                    COMFSKL   684
                                                  ENDM                                                           COMFSKL   685
                                                                                                                 COMFSKL   686
                                                  PURGMAC            JIN                                         COMFSKL   687
                                                                                                                 COMFSKL   688
                                                  MACRO  JIN,AD,I,J,K                                            COMFSKL   689
                                         AD       CALL   CBJ                                                     COMFSKL   690
                                                  ENDM                                                           COMFSKL   691
                                                                                                                 COMFSKL   692
                                                  PURGMAC DEFINS                                                 COMFSKL   693
                                                                                                                 COMFSKL   694
                                        *         SPECIAL EQUATE TABLE FOR *REG*.                                COMFSKL   695
                                                                                                                 COMFSKL   696
                                                  LIST   D                                                       COMFSKL   697
                                                                                                                 COMFSKL   698
                                                                                                                 COMFSKL   699
                                        **        INITIALIZE H,L AND Q MICROS.                                   COMFSKL   700
                                                                                                                 COMFSKL   701
                                         H        MICRO                                                          COMFSKL   702
                                         L        MICRO                                                          COMFSKL   703
                                         Q        MICRO                                                          COMFSKL   704
                                                                                                                 COMFSKL   705
                                                                                                                 COMFSKL   706
                                        *         BASE ADDRESS OF SKELETONS.                                     COMFSKL   707
                                                                                                                 COMFSKL   708
                                                                                                                 COMFSKL   709
                                                  USE    /SKLNAM/                                                COMFSKL   710
             0                           F.SKNAM  BSSENT             FWA SKELETON NAMES (IN TEST MODE)           COMFSKL   711
                                                  USE    *                                                       COMFSKL   712
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    26
        DEFINS - DEFINE MACHINE OPCODES.                              DEFINS
  
                                                                                                                 COMFSKL   713
             0                           F.SKEL   BSSENT                                                         COMFSKL   714
                                                                                                                 COMFSKL   715
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    27
        SKEL - INSTRUCTION SKELETON EXPANSIONS. 
  
             0                                    CTEXT  SKEL - INSTRUCTION SKELETON EXPANSIONS.                 SKEL        2
                                                                                                                 SKEL        3
                                                                                                                 SKEL        4
                                        ***       SKEL - INSTRUCTION SKELETON EXPANSIONS.                        SKEL        5
                                        *                                                                        SKEL        6
                                        *         THE SKELETONS DESCRIBE TO PASS 2 (QCG OR BRIDGE) WHAT          SKEL        7
                                        *         PREBINARY INSTRUCTIONS SHOULD BE ISSUED IN RESPONSE TO         SKEL        8
                                        *         A PARTICULAR TURPLE.                                           SKEL        9
                                                                                                                 SKEL       10
                                        ILL       SKEL                                                           SKEL       11
                                                  CALL   ILL                                                     SKEL       12
             0 0                                  ENDS                                                           SKEL       13
                                                                                                                 SKEL       14
                                                                                                                 SKEL       15
                                                                                                                 SKEL       16
                                                                                                                 SKEL       17
                                         ADD.I    SKEL                                                           SKEL       18
                                                  IA     R1,L1,L2                                                SKEL       19
             1 0                                  ENDS                                                           SKEL       20
                                                                                                                 SKEL       21
                                         ADD.R    SKEL                                                           SKEL       22
                                                  FAR    T1,L1,L2                                                SKEL       23
                                                  NR     R1,0,T1                                                 SKEL       24
             2 0                                  ENDS                                                           SKEL       25
                                                                                                                 SKEL       26
                                         ADD.D    SKEL                                                           SKEL       27
                                                  FA     T1,LU1,LU2                                              SKEL       28
                                                  DFA    T2,LU1,LU2                                              SKEL       29
                                                  FA     T3,LL1,LL2                                              SKEL       30
                                         ADD.D1   NR     T4,0,T1                                                 SKEL       31
                                                  FA     T5,T2,T3                                                SKEL       32
                                                  FA     T6,T4,T5                                                SKEL       33
                                                  NR     T7,0,T6                                                 SKEL       34
                                                  DFA    T8,T4,T5                                                SKEL       35
                                                  NR     T9,0,T8                                                 SKEL       36
                                                  FA     RU1,T7,T9                                               SKEL       37
                                                  DFA    RL1,T7,T9                                               SKEL       38
             4 0                                  ENDS                                                           SKEL       39
                                                                                                                 SKEL       40
                                         ADD.C    SKEL                                                           SKEL       41
                                                  FAR    T1,LU1,LU2                                              SKEL       42
                                                  NR     RU1,0,T1                                                SKEL       43
                                                  FAR    T2,LL1,LL2                                              SKEL       44
                                                  NR     RL1,0,T2                                                SKEL       45
            17 0                                  ENDS                                                           SKEL       46
                                                                                                                 SKEL       47
                                         ADD.B    SKEQU  ADD.I                                                   SKEL       48
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    28
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       SUBTR.
  
                                        *         SUBTRACT INSTRUCTIONS.                                         SKEL       50
                                                                                                                 SKEL       51
                                                                                                                 SKEL       52
                                         SUB.I    SKEL                                                           SKEL       53
                                                  IS     R1,L1,L2                                                SKEL       54
            23 0                                  ENDS                                                           SKEL       55
                                                                                                                 SKEL       56
                                         SUB.R    SKEL                                                           SKEL       57
                                                  FSR    T1,L1,L2                                                SKEL       58
                                                  NR     R1,0,T1                                                 SKEL       59
            24 0                                  ENDS                                                           SKEL       60
                                                                                                                 SKEL       61
                                         SUB.D    SKEL                                                           SKEL       62
                                                  FS     T1,LU1,LU2                                              SKEL       63
                                                  DFS    T2,LU1,LU2                                              SKEL       64
                                                  FS     T3,LL1,LL2                                              SKEL       65
                                                  BRANCH ADD.D1,(T1,T2,T3)                                       SKEL       66
            26 0                                  ENDS                                                           SKEL       67
                                                                                                                 SKEL       68
                                         SUB.C    SKEL                                                           SKEL       69
                                                  FSR    T1,LU1,LU2                                              SKEL       70
                                                  NR     RU1,0,T1                                                SKEL       71
                                                  FSR    T2,LL1,LL2                                              SKEL       72
                                                  NR     RL1,0,T2                                                SKEL       73
            32 0                                  ENDS                                                           SKEL       74
                                                                                                                 SKEL       75
                                         SUB.B    SKEQU  SUB.I                                                   SKEL       76
  
  
  
  
                                        *         MULTIPLY INSTRUCTIONS.                                         SKEL       78
                                                                                                                 SKEL       79
                                                                                                                 SKEL       80
                                                                                                                 SKEL       81
                                         MUL.I    SKEL   IMVC                                                    SKEL       82
                                                  CALL   IM                                                      SKEL       83
            36 0                                  ENDS                                                           SKEL       84
                                                                                                                 SKEL       85
                                         IMVC     SUBSKEL                                                        SKEL       86
                                                  IM     R1,L1,L2                                                SKEL       87
            37 0                                  ENDS                                                           SKEL       88
                                                                                                                 SKEL       89
                                         IMV      SUBEQU IMVC                                                    SKEL       90
                                                                                                                 SKEL       91
                                        *         OPERATIONS THAT UTILIZE THE SHIFT INSTRUCTION.                 SKEL       92
                                        *         INTEGER MULTIPLY SKELETONS.                                    SKEL       93
                                                                                                                 SKEL       94
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    16
                                         IM2      SUBSKEL                                                        SKEL       95
                                        *         MULTIPLY BY 2.                                                 SKEL       96
                                                  IA     R1,L1,L1                                                SKEL       97
            40 0                                  ENDS                                                           SKEL       98
                                         #CD      ENDIF                                                          FC5A128    17
                                                                                                                 SKEL       99
                                         SHFC     SUBSKEL                                                        SKEL      100
                                        *         MULTIPLY POWER OF 2.                                           SKEL      101
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    29
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MULT. 
  
                                                  KLS    T2,L1,GP1                                               SKEL      102
                                                  XMT    R1,T2                                                   SKEL      103
            41 0                                  ENDS                                                           SKEL      104
                                                                                                                 SKEL      105
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    18
                                         SHFS     SUBSKEL                                                        SKEL      106
                                        *         MULTIPLY SUM OF TWO POWERS OF 2.                               SKEL      107
                                                  KLS    T2,L1,GP2                                               SKEL      108
                                                  IA     T3,T2,L1                                                SKEL      109
                                                  KLS    T5,T3,GP1                                               SKEL      110
                                                  XMT    R1,T5                                                   SKEL      111
            44 0                                  ENDS                                                           SKEL      112
                                                                                                                 SKEL      113
                                         SHFD     SUBSKEL                                                        SKEL      114
                                        *         MULTIPLY DIFFERENCE OF TWO POWERS OF 2.                        SKEL      115
                                                  KLS    T2,L1,GP1                                               SKEL      116
                                                  KLS    T4,L1,GP2                                               SKEL      117
                                                  IS     R1,T4,T2                                                SKEL      118
            52 0                                  ENDS                                                           SKEL      119
                                                                                                                 SKEL      120
                                         SHFS1    SUBSKEL                                                        SKEL      121
                                        *         MULTIPLY POWER OF 2 PLUS 1.                                    SKEL      122
                                                  KLS    T2,L1,GP1                                               SKEL      123
                                                  IA     R1,T2,L1                                                SKEL      124
            57 0                                  ENDS                                                           SKEL      125
                                                                                                                 SKEL      126
                                         SHFD1    SUBSKEL                                                        SKEL      127
                                        *         MULTIPLY POWER OF 2 MINUS 1.                                   SKEL      128
                                                  KLS    T2,L1,GP1                                               SKEL      129
                                                  IS     R1,T2,L1                                                SKEL      130
            62 0                                  ENDS                                                           SKEL      131
                                         #CD      ENDIF                                                          FC5A128    19
                                                                                                                 SKEL      132
                                         MUL.R    SKEL                                                           SKEL      133
                                                  FMR    R1,L1,L2                                                SKEL      134
            65 0                                  ENDS                                                           SKEL      135
                                                                                                                 SKEL      136
                                         MUL.D    SKEL                                                           SKEL      137
                                                  FM     T1,LL1,LU2                                              SKEL      138
                                                  FM     T2,LU1,LL2                                              SKEL      139
                                                  FA     T3,T1,T2                                                SKEL      140
                                                  FM     T4,LU1,LU2                                              SKEL      141
                                                  DFM    T5,LU1,LU2                                              SKEL      142
                                                  FA     T6,T3,T5                                                SKEL      143
                                                  FA     RU1,T4,T6                                               SKEL      144
                                                  DFA    RL1,T4,T6                                               SKEL      145
            66 0                                  ENDS                                                           SKEL      146
                                                                                                                 SKEL      147
                                         MUL.C    SKEL                                                           SKEL      148
                                                  FMR    T1,LU1,LU2                                              SKEL      149
                                                  FMR    T2,LL1,LL2                                              SKEL      150
                                                  FSR    T3,T1,T2                                                SKEL      151
                                                  NR     RU1,0,T3                                                SKEL      152
                                                  FMR    T4,LU1,LL2                                              SKEL      153
                                                  FMR    T5,LL1,LU2                                              SKEL      154
                                                  FAR    T6,T4,T5                                                SKEL      155
                                                  NR     RL1,0,T6                                                SKEL      156
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    30
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MULT. 
  
            76 0                                  ENDS                                                           SKEL      157
                                                                                                                 SKEL      158
                                         MUL.B    SKEQU  MUL.I                                                   SKEL      159
  
  
  
  
                                        *         DIVIDE INSTRUCTIONS.                                           SKEL      161
                                                                                                                 SKEL      162
                                                                                                                 SKEL      163
                                                                                                                 SKEL      164
                                         DIV.I    SKEL   IDVC                                                    SKEL      165
                                                  CALL   ID                                                      SKEL      166
           106 0                                  ENDS                                                           SKEL      167
                                                                                                                 SKEL      168
                                         IDVC     SUBSKEL                                                        SKEL      169
                                                  PK     T1,0,L2                                                 SKEL      170
                                                  NR     T2,0,T1                                                 SKEL      171
                                                  PK     T3,0,L1                                                 SKEL      172
                                                  FDR    T4,T3,T2                                                SKEL      173
                                         .IDZ     IFEQ   .IDC,1                                                  FC5A483    26
                                                  FMA    T5,60                                                   FC5A483    27
                                                  FA     T6,T5,T4                                                FC5A483    28
                                                  UP     T7,"TBR",T6                                             FC5A483    29
                                                  ILS    R1,"TBR",T7                                             FC5A483    30
                                         .IDZ     ELSE                                                           FC5A483    31
                                                  UP     T5,"TBR",T4                                             FC5A483    32
                                                  ILS    R1,"TBR",T5                                             FC5A483    33
                                         .IDZ     ENDIF                                                          FC5A483    34
           107 0                                  ENDS                                                           SKEL      176
                                                                                                                 SKEL      177
                                         IDV      SUBEQU IDVC                                                    SKEL      178
                                                                                                                 SKEL      179
                                         IDP2     SUBSKEL                                                        SKEL      180
                                        *         INTEGER DIVIDE BY POWER OF 2 SKELETON.                         SKEL      181
                                                  KRS    T2,L1,GP1                                               SKEL      182
                                                  XMT    R1,T2                                                   SKEL      183
           115 0                                  ENDS                                                           SKEL      184
                                                                                                                 SKEL      185
                                         DIV.R    SKEL                                                           SKEL      186
                                                  FDR    R1,L1,L2                                                SKEL      187
           120 0                                  ENDS                                                           SKEL      188
                                                                                                                 SKEL      189
                                         DIV.D    SKEL                                                           SKEL      190
                                                  FD     T1,LU1,LU2                                              SKEL      191
                                                  FM     T2,T1,LU2                                               SKEL      192
                                                  FS     T3,LU1,T2                                               SKEL      193
                                                  DFS    T4,LU1,T2                                               SKEL      194
                                                  NR     T5,0,T3                                                 SKEL      195
                                                  FA     T6,T4,T5                                                SKEL      196
                                                  DFM    T7,T1,LU2                                               SKEL      197
                                                  FS     T8,LL1,T7                                               SKEL      198
                                                  FA     T9,T6,T8                                                SKEL      199
                                                  FM     T10,T1,LL2                                              SKEL      200
                                                  FS     T11,T9,T10                                              SKEL      201
                                                  FD     T12,T11,LU2                                             SKEL      202
                                                  FA     T13,T1,T12                                              SKEL      203
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    31
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       DIV.
  
                                                  NR     T14,0,T13                                               SKEL      204
                                                  DFA    T15,T1,T12                                              SKEL      205
                                                  FA     RU1,T15,T14                                             SKEL      206
                                                  DFA    RL1,T15,T14                                             SKEL      207
           121 0                                  ENDS                                                           SKEL      208
                                                                                                                 SKEL      209
                                         DIV.C    SKEL                                                           SKEL      210
                                                  FMR    T1,LU1,LL2                                              SKEL      211
                                                  FMR    T2,LL1,LU2                                              SKEL      212
                                                  FSR    T3,T2,T1                                                SKEL      213
                                                  NR     T4,0,T3                                                 SKEL      214
                                                  FMR    T5,LU1,LU2                                              SKEL      215
                                                  FMR    T6,LL1,LL2                                              SKEL      216
                                                  FAR    T7,T5,T6                                                SKEL      217
                                                  NR     T8,0,T7                                                 SKEL      218
                                                  FMR    T9,LU2,LU2                                              SKEL      219
                                                  FMR    T10,LL2,LL2                                             SKEL      220
                                                  FAR    T11,T9,T10                                              SKEL      221
                                                  NR     T12,0,T11                                               SKEL      222
                                                  FDR    RU1,T8,T12                                              SKEL      223
                                                  FDR    RL1,T4,T12                                              SKEL      224
           142 0                                  ENDS                                                           SKEL      225
                                                                                                                 SKEL      226
                                         DIV.B    SKEQU  DIV.I                                                   SKEL      227
                                                                                                                 FC5A150     8
                                         DVC.R    SKEL               SPECIAL COMPLEX/REAL                        FC5A150     9
                                                  FDR    RU1,LU1,L2                                              FC5A150    10
                                                  FDR    RL1,LL1,L2                                              FC5A150    11
           160 0                                  ENDS                                                           FC5A150    12
                                                                                                                 FC5A150    13
                                         #CD      IFEQ   .CG,.OPT                                                FC5A150    14
                                         DIR.R    SKEL               SPECIAL REAL ROUNDED DIVIDE FOR 1/CON       FC5A150    15
                                                  RFD    R1,L1,L2                                                FC5A150    16
           162 0                                  ENDS                                                           FC5A150    17
                                                                                                                 FC5A150    18
                                         DIR.C    SKEL               SPECIAL ROUNDED DIVIDE FOR 1/CON            FC5A150    19
                                                  FMR    T1,LU1,LL2                                              FC5A150    20
                                                  FMR    T2,LL1,LU2                                              FC5A150    21
                                                  FSR    T3,T2,T1                                                FC5A150    22
                                                  NR     T4,0,T3                                                 FC5A150    23
                                                  FMR    T5,LU1,LU2                                              FC5A150    24
                                                  FMR    T6,LL1,LL2                                              FC5A150    25
                                                  FAR    T7,T5,T6                                                FC5A150    26
                                                  NR     T8,0,T7                                                 FC5A150    27
                                                  FMR    T9,LU2,LU2                                              FC5A150    28
                                                  FMR    T10,LL2,LL2                                             FC5A150    29
                                                  FAR    T11,T9,T10                                              FC5A150    30
                                                  NR     T12,0,T11                                               FC5A150    31
                                                  RFD    RU1,T8,T12                                              FC5A150    32
                                                  RFD    RL1,T4,T12                                              FC5A150    33
           163 0                                  ENDS                                                           FC5A150    34
                                         #CD      ENDIF                                                          FC5A150    35
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    32
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       UMIN. 
  
                                        *         UNARY MINUS INSTRUCTIONS.                                      SKEL      229
                                                                                                                 SKEL      230
                                                                                                                 SKEL      231
                                                                                                                 SKEL      232
                                         UMI.I    SKEL                                                           SKEL      233
                                                  XMTC   R1,L1                                                   SKEL      234
           201 0                                  ENDS                                                           SKEL      235
                                                                                                                 SKEL      236
                                         UMI.R    SKEQU  UMI.I                                                   SKEL      237
                                                                                                                 SKEL      238
                                         UMI.D    SKEL                                                           SKEL      239
                                                  XMTC   RU1,LU1                                                 SKEL      240
                                                  XMTC   RL1,LL1                                                 SKEL      241
           202 0                                  ENDS                                                           SKEL      242
                                                                                                                 SKEL      243
                                         UMI.C    SKEQU  UMI.D                                                   SKEL      244
  
  
  
  
                                        *         RELATIONAL OPERATORS.                                          SKEL      246
                                        *                                                                        SKEL      247
                                        *             VAR1 .OP. VAR2 = PERFORM IN VAR MODE, RESULTS = LOGICAL    SKEL      248
                                        *             LOG1 .OP. LOG2 = ILLEGAL.                                  SKEL      249
                                                                                                                 SKEL      250
                                         LT.I     SKEL                                                           SKEL      251
                                                  IS     T1,L1,L2                                                SKEL      252
                                                  CLR    T2                                                      SKEL      253
                                                  IAZ    R1,T1,T2                                                SKEL      254
           204 0                                  ENDS                                                           SKEL      255
                                                                                                                 SKEL      256
                                         LT.R     SKEL                                                           SKEL      257
                                                  FSR    T1,L1,L2                                                SKEL      258
                                                  PNR    R1,0,T1                                                 SKEL      259
           207 0                                  ENDS                                                           SKEL      260
                                                                                                                 SKEL      261
                                         LT.D     SKEL                                                           SKEL      262
                                                  FS     T1,LL1,LL2                                              SKEL      263
                                                  FS     T2,LU1,LU2                                              SKEL      264
                                                  PNR    T3,0,T2                                                 SKEL      265
                                                  DFS    T4,LU1,LU2                                              SKEL      266
                                                  FA     T5,T1,T4                                                SKEL      267
                                                  FA     RU1,T3,T5                                               SKEL      268
           211 0                                  ENDS                                                           SKEL      269
                                                                                                                 SKEL      270
                                         LT.H     SKEL                                                           SKEL      271
                                                  CALL   HREL                                                    SKEL      272
                                         LTH1     DEF    R1,,"X6."                                               SKEL      273
           217 0                                  ENDS                                                           SKEL      274
                                                                                                                 SKEL      275
                                         LLT      SKEL               ASCII LT                                    SKEL      276
                                                  CALL   HLEX                                                    SKEL      277
           221                                    BRANCH LTH1                                                    SKEL      278
           221 0                                  ENDS                                                           SKEL      279
                                                                                                                 SKEL      280
                                         LT.B     SKEQU  LT.I                                                    SKEL      281
                                                                                                                 SKEL      282
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    33
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                         GE.I     SKEL                                                           SKEL      283
                                                  IS     T1,L1,L2                                                SKEL      284
                                                  CLR    T2                                                      SKEL      285
                                                  IAZ    T3,T1,T2                                                SKEL      286
                                                  XMTC   R1,T3                                                   SKEL      287
           223 0                                  ENDS                                                           SKEL      288
                                                                                                                 SKEL      289
                                         GE.R     SKEL                                                           SKEL      290
                                                  FSR    T1,L1,L2                                                SKEL      291
                                                  PNR    T2,0,T1                                                 SKEL      292
                                                  XMTC   R1,T2                                                   SKEL      293
           227 0                                  ENDS                                                           SKEL      294
                                                                                                                 SKEL      295
                                         GE.D     SKEL                                                           SKEL      296
                                                  DFS    T1,LU1,LU2                                              SKEL      297
                                                  FS     T2,LU1,LU2                                              SKEL      298
                                                  PNR    T3,0,T2                                                 SKEL      299
                                                  FS     T4,LL1,LL2                                              SKEL      300
                                                  FA     T5,T1,T4                                                SKEL      301
                                                  FA     T6,T3,T5                                                SKEL      302
                                                  XMTC   RU1,T6                                                  SKEL      303
           232 0                                  ENDS                                                           SKEL      304
                                                                                                                 SKEL      305
                                         GE.B     SKEQU  GE.I                                                    SKEL      306
                                                                                                                 SKEL      307
                                         GE.H     SKEL                                                           SKEL      308
                                                  CALL   HREL                                                    SKEL      309
                                         GEH1     DEF    T1,,"X6."                                               SKEL      310
                                                  XMTC   R1,T1                                                   SKEL      311
           241 0                                  ENDS                                                           SKEL      312
                                                                                                                 SKEL      313
                                         LGE      SKEL               ASCII GE                                    SKEL      314
                                                  CALL   HLEX                                                    SKEL      315
           244                                    BRANCH GEH1                                                    SKEL      316
           244 0                                  ENDS                                                           SKEL      317
                                                                                                                 SKEL      318
                                         NE.I     SKEL                                                           SKEL      319
                                                  CLR    T1                                                      SKEL      320
                                                  IS     T2,L1,L2                                                SKEL      321
                                                  IAZ    T3,T2,T1                                                SKEL      322
                                                  ISZ    T4,T1,T3                                                SKEL      323
                                                  OR     R1,T4,T3                                                SKEL      324
           246 0                                  ENDS                                                           SKEL      325
                                                                                                                 SKEL      326
                                         NE.R     SKEL                                                           SKEL      327
                                                  FSR    T1,L1,L2                                                SKEL      328
                                                  PNR    T2,0,T1                                                 SKEL      329
                                                  CLR    T3                                                      SKEL      330
                                                  ISZ    T4,T3,T2                                                SKEL      331
                                                  OR     R1,T2,T4                                                SKEL      332
           253 0                                  ENDS                                                           SKEL      333
                                                                                                                 SKEL      334
                                         NE.D     SKEL                                                           SKEL      335
                                                  FS     T1,LU1,LU2                                              SKEL      336
                                                  FS     T2,LL1,LL2                                              SKEL      337
                                                  PNR    T3,0,T1                                                 SKEL      338
                                                  DFS    T4,LU1,LU2                                              FC51325     7
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    34
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                                  PNR    T5,0,T4                                                 FC51325     8
                                                  CLR    T6                                                      FC51325     9
                                                  PNR    T7,0,T2                                                 FC51325    10
                                                  OR     T8,T3,T7                                                FC51325    11
                                                  OR     T9,T8,T5                                                FC51325    12
                                                  ISZ    T10,T6,T9                                               FC51325    13
                                                  OR     RU1,T10,T9                                              FC51325    14
           260 0                                  ENDS                                                           SKEL      344
                                                                                                                 SKEL      345
                                         NE.C     SKEQU  NE.D                                                    SKEL      346
                                                                                                                 SKEL      347
                                         NE.B     SKEQU  NE.I                                                    SKEL      348
                                                                                                                 SKEL      349
                                         NE.H     SKEL                                                           SKEL      350
                                                  CALL   HREL                                                    SKEL      351
                                         NEH1     DEF    T1,,"X6."                                               SKEL      352
                                                  KLS    T3,T1,1                                                 SKEL      353
                                                  XMT    R1,T3                                                   SKEL      354
           273 0                                  ENDS                                                           SKEL      355
                                                                                                                 SKEL      356
                                         LNE      SKEL               ASCII NE                                    SKEL      357
                                                  CALL   HLEX                                                    SKEL      358
           300                                    BRANCH NEH1                                                    SKEL      359
           300 0                                  ENDS                                                           SKEL      360
                                                                                                                 SKEL      361
                                         EQ.I     SKEL                                                           SKEL      362
                                                  IS     T1,L1,L2                                                SKEL      363
                                                  CLR    T2                                                      SKEL      364
                                                  IAZ    T3,T1,T2                                                SKEL      365
                                                  ISZ    T4,T2,T3                                                SKEL      366
                                                  EQV    R1,T3,T4                                                SKEL      367
           302 0                                  ENDS                                                           SKEL      368
                                                                                                                 SKEL      369
                                         EQ.R     SKEL                                                           SKEL      370
                                                  FSR    T1,L1,L2                                                SKEL      371
                                                  PNR    T2,0,T1                                                 SKEL      372
                                                  CLR    T3                                                      SKEL      373
                                                  ISZ    T4,T3,T2                                                SKEL      374
                                                  EQV    R1,T4,T2                                                SKEL      375
           307 0                                  ENDS                                                           SKEL      376
                                                                                                                 SKEL      377
                                         EQ.D     SKEL                                                           SKEL      378
                                                  FS     T1,LU1,LU2                                              SKEL      379
                                                  PNR    T2,0,T1                                                 SKEL      380
                                                  DFS    T3,LU1,LU2                                              FC51325    15
                                                  PNR    T4,0,T3                                                 FC51325    16
                                                  FS     T5,LL1,LL2                                              FC51325    17
                                                  CLR    T6                                                      FC51325    18
                                                  PNR    T7,0,T5                                                 FC51325    19
                                                  OR     T8,T2,T7                                                FC51325    20
                                                  OR     T9,T8,T4                                                FC51325    21
                                                  ISZ    T10,T6,T9                                               FC51325    22
                                                  EQV    RU1,T9,T10                                              FC51325    23
           314 0                                  ENDS                                                           SKEL      387
                                                                                                                 SKEL      388
                                         EQ.C     SKEQU  EQ.D                                                    SKEL      389
                                                                                                                 SKEL      390
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    35
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       RELAT 
  
                                         EQ.B     SKEQU  EQ.I                                                    SKEL      391
                                                                                                                 SKEL      392
                                         EQ.H     SKEL                                                           SKEL      393
                                                  CALL   HREL                                                    SKEL      394
                                         EQH1     DEF    T1,,"X6."                                               SKEL      395
                                                  KLS    T3,T1,1                                                 SKEL      396
                                                  XMTC   R1,T3                                                   SKEL      397
           327 0                                  ENDS                                                           SKEL      398
                                                                                                                 SKEL      399
                                         LEQ      SKEL               ASCII EQ                                    SKEL      400
                                                  CALL   HLEX                                                    SKEL      401
           334                                    BRANCH EQH1                                                    SKEL      402
           334 0                                  ENDS                                                           SKEL      403
  
  
  
  
                                        *         STORE SKELETONS.                                               SKEL      405
                                        *                                                                        SKEL      406
                                                                                                                 SKEL      407
                                                                                                                 SKEL      408
                                         STR.I    SKEL                                                           SKEL      409
                                                  ST     L2,L1                                                   SKEL      410
           336 0                                  ENDS                                                           SKEL      411
                                                                                                                 SKEL      412
                                         STR.R    SKEQU  STR.I                                                   SKEL      413
                                                                                                                 SKEL      414
                                         STR.D    SKEL                                                           SKEL      415
                                                  XMT    T1,LL1                                                  FC5A164     7
                                                  ST     LL2,T1                                                  FC50701     7
                                                  ST     LU2,LU1                                                 SKEL      416
           337 0                                  ENDS                                                           SKEL      418
                                                                                                                 SKEL      419
                                         STR.H    SKEL                                                           SKEL      420
                                                  CALL   HSTO                                                    SKEL      421
           342 0                                  ENDS                                                           SKEL      422
                                                                                                                 SKEL      423
                                         STR.C    SKEQU  STR.D                                                   SKEL      424
                                                                                                                 SKEL      425
                                         STR.B    SKEQU  STR.I                                                   SKEL      426
  
  
  
  
                                        *         CHARACTER SUBSTRING, CATENATION SKELETONS.                     SKEL      428
                                                                                                                 SKEL      429
                                                                                                                 SKEL      430
                                         CAT      SKEL                                                           SKEL      431
                                                  CALL   HCAT                                                    SKEL      432
           343 0                                  ENDS                                                           SKEL      433
                                                                                                                 SKEL      434
                                                                                                                 SKEL      435
                                         COLON    SKEL               (P1=FIRST, P2=LAST)                         SKEL      436
                                                  CALL   HCOL                                                    SKEL      437
           344 0                                  ENDS                                                           SKEL      438
                                                                                                                 SKEL      439
                                         SUBST    SKEL               (P1=SYMBOL, P2=COLON INTERMEDIATE)          SKEL      440
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    36
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       CHAR
  
                                                  CALL   HSBS                                                    SKEL      441
           345 0                                  ENDS                                                           SKEL      442
  
  
  
  
                                        **        MODE CONVERSION SKELETONS.                                     SKEL      444
                                                                                                                 SKEL      445
                                                                                                                 SKEL      446
                                         ITOR     SKEL                                                           SKEL      447
                                                  PK     T1,0,L1     INTEGER TO REAL CONVERSION                  SKEL      448
                                                  NR     R1,0,T1                                                 SKEL      449
           346 0                                  ENDS                                                           SKEL      450
                                                                                                                 SKEL      451
                                         ITOB     SKEL               XMIT -- NO CONVERSION                       SKEL      452
                                                  XMT    R1,LU1                                                  SKEL      453
           350 0                                  ENDS                                                           SKEL      454
                                                                                                                 SKEL      455
                                         ITOD     SKEL                                                           SKEL      456
                                                  PK     T1,0,L1     INTEGER TO DOUBLE CONVERSION                SKEL      457
                                                  NR     RU1,0,T1                                                SKEL      458
                                                  CLR    RL1                                                     SKEL      459
           351 0                                  ENDS                                                           SKEL      460
                                                                                                                 SKEL      461
                                         ITOC     SKEQU  ITOD        INTEGER TO COMPLEX CONVERSION               SKEL      462
                                                                                                                 SKEL      463
                                                                                                                 SKEL      464
                                         RTOI     SKEL                                                           SKEL      465
                                                  UP     T1,"TBR",L1     REAL TO INTEGER CONVERSION              SKEL      466
                                                  ILS    R1,"TBR",T1                                             SKEL      467
           354 0                                  ENDS                                                           SKEL      468
                                                                                                                 SKEL      469
                                         RTOD     SKEL                                                           SKEL      470
                                                  XMT    RU1,L1      REAL TO DOUBLE CONVERSION                   SKEL      471
                                                  CLR    RL1                                                     SKEL      472
           356 0                                  ENDS                                                           SKEL      473
                                                                                                                 SKEL      474
                                         RTOC     SKEQU  RTOD                                                    SKEL      475
                                         RTOB     SKEQU  ITOB        XMIT                                        SKEL      476
                                                                                                                 SKEL      477
                                                                                                                 SKEL      478
                                         DTOI     SKEQU  RTOI                                                    SKEL      479
                                         DTOR     SKEQU  ITOB        XMIT                                        SKEL      480
                                         DTOB     SKEQU  DTOR                                                    SKEL      481
                                                                                                                 SKEL      482
                                         DTOC     SKEL                                                           SKEL      483
                                                  XMT    RU1,LU1     DOUBLE TO COMPLEX CONVERSION                SKEL      484
                                                  CLR    RL1                                                     SKEL      485
           360 0                                  ENDS                                                           SKEL      486
                                                                                                                 FC5A140     5
                                         XMIT     SKEQU  ITOB                                                    FC5A140     6
                                                                                                                 SKEL      487
                                                                                                                 SKEL      488
                                         CTOI     SKEQU  DTOI                                                    SKEL      489
                                         CTOR     SKEQU  DTOR                                                    SKEL      490
                                         CTOB     SKEQU  CTOR                                                    SKEL      491
                                         CTOD     SKEQU  DTOC        COMPLEX TO DOUBLE                           SKEL      492
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    37
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       MODECON 
  
                                                                                                                 SKEL      493
                                         BTOD     SKEQU  RTOD                                                    SKEL      494
                                         BTOR     SKEQU  ITOB        XMIT                                        SKEL      495
                                         BTOI     SKEQU  ITOB        XMIT                                        SKEL      496
                                         BTOC     SKEQU  RTOD                                                    SKEL      497
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    38
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       LOGICAL 
  
                                        **        LOGICAL AND BOOLEAN OPERATORS.                                 SKEL      499
                                        *                                                                        SKEL      500
                                        *         MUST OCCUR BEFORE INLINE FUNCTION SKELS.                       SKEL      501
                                        *         MUST OCCUR AFTER MODE CONVERSION SKELS.                        SKEL      502
                                                                                                                 SKEL      503
                                                                                                                 SKEL      504
                                         NOT.L    SKEL                                                           SKEL      505
                                                  XMTC   R1,L1                                                   SKEL      506
           362 0                                  ENDS                                                           SKEL      507
                                                                                                                 SKEL      508
                                         NOT.B    SKEQU  NOT.L                                                   SKEL      509
                                                                                                                 SKEL      510
                                                                                                                 SKEL      511
                                         AND.L    SKEL                                                           SKEL      512
                                                  AND    R1,L1,L2                                                SKEL      513
           363 0                                  ENDS                                                           SKEL      514
                                                                                                                 SKEL      515
                                         AND.B    SKEQU  AND.L                                                   SKEL      516
                                                                                                                 SKEL      517
                                                                                                                 SKEL      518
                                         EQV.L    SKEL                                                           SKEL      519
                                                  EQV    R1,L1,L2                                                SKEL      520
           364 0                                  ENDS                                                           SKEL      521
                                                                                                                 SKEL      522
                                         EQV.B    SKEQU  EQV.L                                                   SKEL      523
                                                                                                                 SKEL      524
                                                                                                                 SKEL      525
                                         OR.L     SKEL                                                           SKEL      526
                                                  OR     R1,L1,L2                                                SKEL      527
           365 0                                  ENDS                                                           SKEL      528
                                                                                                                 SKEL      529
                                         OR.B     SKEQU  OR.L                                                    SKEL      530
                                                                                                                 SKEL      531
                                                                                                                 SKEL      532
                                         XOR.L    SKEL                                                           SKEL      533
                                                  XOR    R1,L1,L2                                                SKEL      534
           366 0                                  ENDS                                                           SKEL      535
                                                                                                                 SKEL      536
                                         XOR.B    SKEQU  XOR.L                                                   SKEL      537
                                         NEQV.B   SKEQU  XOR.L                                                   FC51485    14
                                         NEQV.L   SKEQU  XOR.L                                                   FC51485    15
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    39
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                        **        INTRINSIC FUNCTION SKELETONS.                                  SKEL      539
                                                                                                                 SKEL      540
                                                                                                                 SKEL      541
                                         ABS      SKEL                                                           SKEL      542
                                                  KRS    T2,L1,59                                                SKEL      543
                                                  XOR    R1,L1,T2                                                SKEL      544
           367 0                                  ENDS                                                           SKEL      545
                                                                                                                 SKEL      546
                                                                                                                 SKEL      547
                                         SUM1S    SKEL                                                           FC5A496     9
                                                  CX     R1,L1                                                   FC5A496    10
           372 0                                  ENDS                                                           FC5A496    11
                                                                                                                 FC5A496    12
                                                                                                                 FC5A496    13
                                         AIMAG    SKEL                                                           SKEL      548
                                                  XMT    R1,LL1      IMAGINARY PART OF COMPLEX (1OP)             SKEL      549
           373 0                                  ENDS                                                           SKEL      550
                                                                                                                 SKEL      551
                                         AINT     SKEL                                                           SKEL      552
                                                  CLR    T1                                                      SKEL      553
                                                  PK     T2,0,T1                                                 SKEL      554
                                                  FA     T3,L1,T2                                                SKEL      555
                                                  NR     R1,0,T3                                                 SKEL      556
           374 0                                  ENDS                                                           SKEL      557
                                                                                                                 SKEL      558
                                         ANINT    SKEL                                                           SKEL      559
                                         ANINT1   KRS    T2,L1,59                                                SKEL      560
                                                  PK     T3,0,T2                                                 SKEL      561
                                                  RFA    T4,L1,T3                                                SKEL      562
                                                  NR     R1,0,T4                                                 SKEL      563
           400 0                                  ENDS                                                           SKEL      564
                                                                                                                 SKEL      565
                                                                                                                 SKEL      566
                                         MAX0     SKEL                                                           SKEL      567
                                                  IS     T1,L1,L2  I=MAX0(I1,I2)                                 SKEL      568
                                         MAX01    KRS    T3,T1,59                                                SKEL      569
                                                  XOR    T4,L1,L2                                                SKEL      570
                                                  AND    T5,T4,T3                                                SKEL      571
                                                  XOR    R1,T5,L1                                                SKEL      572
           405 0                                  ENDS                                                           SKEL      573
                                                                                                                 SKEL      574
                                         DMAX1    SKEL                                                           SKEL      575
                                                  FS     T1,LU1,LU2                                              SKEL      576
                                                  DFS    T2,LU1,LU2                                              SKEL      577
                                                  FS     T3,LL1,LL2                                              SKEL      578
                                         DMAX11   NR     T4,0,T1                                                 SKEL      579
                                                  FA     T5,T2,T3                                                SKEL      580
                                                  FA     T6,T4,T5                                                SKEL      581
                                                  KRS    T8,T6,59                                                SKEL      582
                                                  XOR    T9,LU1,LU2                                              SKEL      583
                                                  XOR    T10,LL1,LL2                                             SKEL      584
                                                  AND    T11,T8,T9                                               SKEL      585
                                                  XOR    RU1,T11,LU1                                             SKEL      586
                                                  AND    T12,T8,T10                                              SKEL      587
                                                  XOR    RL1,T12,LL1                                             SKEL      588
           413 0                                  ENDS                                                           SKEL      589
                                                                                                                 SKEL      590
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    40
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                         MIN0     SKEL                                                           SKEL      591
                                                  IS     T1,L2,L1   I=MIN0(I1,I2)                                SKEL      592
                                                  BRANCH MAX01,(T1,L1,L2)                                        SKEL      593
           431 0                                  ENDS                                                           SKEL      594
                                                                                                                 SKEL      595
                                         DMIN1    SKEL                                                           SKEL      596
                                                  FS     T1,LU2,LU1                                              SKEL      597
                                                  DFS    T2,LU2,LU1                                              SKEL      598
                                                  FS     T3,LL2,LL1                                              SKEL      599
                                                  BRANCH DMAX11,(T1,T2,T3,LL1,LL2,LU1,LU2)                       SKEL      600
           433 0                                  ENDS                                                           SKEL      601
                                                                                                                 SKEL      602
                                         AMAX1    SKEL                                                           SKEL      603
                                                  FS     T1,L1,L2  R=AMAX1(R1,R2)                                SKEL      604
                                                  BRANCH MAX01,(T1,L1,L2)                                        SKEL      605
           437 0                                  ENDS                                                           SKEL      606
                                                                                                                 SKEL      607
                                         AMIN1    SKEL                                                           SKEL      608
                                                  FS     T1,L2,L1  R=AMIN1(R1,R2)                                SKEL      609
                                                  BRANCH MAX01,(T1,L1,L2)                                        SKEL      610
           441 0                                  ENDS                                                           SKEL      611
                                                                                                                 SKEL      612
                                         MAX1     SKEQU  AMAX1                                                   SKEL      613
                                         MIN1     SKEQU  AMIN1                                                   SKEL      614
                                         AMAX0    SKEQU  MAX0                                                    SKEL      615
                                         AMIN0    SKEQU  MIN0                                                    SKEL      616
                                                                                                                 SKEL      617
                                         AMOD     SKEL                                                           SKEL      618
                                                  FD     T1,L1,L2                                                SKEL      619
                                                  CLR    T2                                                      SKEL      620
                                                  PK     T3,0,T2                                                 SKEL      621
                                                  FA     T4,T1,T3                                                SKEL      622
                                                  NR     T5,0,T4                                                 SKEL      623
                                                  FM     T6,T5,L2                                                SKEL      624
                                                  DFM    T7,T5,L2                                                SKEL      625
                                                  DFS    T8,L1,T6                                                SKEL      626
                                                  FS     T9,L1,T6                                                SKEL      627
                                                  FS     T10,T8,T7                                               SKEL      628
                                                  NR     T11,0,T9                                                SKEL      629
                                                  FA     T12,T10,T11                                             SKEL      630
                                                  NR     R1,0,T12                                                SKEL      631
           443 0                                  ENDS                                                           SKEL      632
                                                                                                                 SKEL      633
                                                                                                                 SKEL      634
                                         AND      SKEQU  AND.B                                                   SKEL      635
                                                                                                                 SKEL      636
                                                                                                                 SKEL      637
                                         BOOL     SKEQU  ITOB        BOOLEAN TO INTEGER                          SKEL      638
                                                                                                                 SKEL      639
                                         COMPL    SKEQU  NOT.B                                                   SKEL      640
                                                                                                                 SKEL      641
                                                                                                                 SKEL      642
                                         CONJG    SKEL                                                           SKEL      643
                                                  XMT    RU1,LU1                                                 SKEL      644
                                                  XMTC   RL1,LL1                                                 SKEL      645
           460 0                                  ENDS                                                           SKEL      646
                                                                                                                 SKEL      647
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    41
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      648
                                         CMPLX    SKEL                                                           SKEL      649
                                                  XMT    RU1,L1                                                  SKEL      650
                                                  XMT    RL1,L2                                                  SKEL      651
           462 0                                  ENDS                                                           SKEL      652
                                                                                                                 SKEL      653
                                                                                                                 SKEL      654
                                         DABS     SKEL                                                           SKEL      655
                                                  KRS    T2,LU1,59                                               SKEL      656
                                                  XOR    RU1,T2,LU1                                              SKEL      657
                                                  XOR    RL1,T2,LL1                                              SKEL      658
           464 0                                  ENDS                                                           SKEL      659
                                                                                                                 SKEL      660
                                                                                                                 SKEL      661
                                         DBLE     SKEQU  RTOD                                                    SKEL      662
                                                                                                                 SKEL      663
                                                                                                                 SKEL      664
                                         DDIM     SKEL                                                           SKEL      665
                                                                                                                 SKEL      666
                                        *         MOST OF THIS SKEL IS SUB.D .  A VIABLE CALLSKEL                SKEL      667
                                        *         WOULD BE USEFUL HERE.                                          SKEL      668
                                                                                                                 SKEL      669
                                                  FS     T1,LU1,LU2                                              SKEL      670
                                                  DFS    T2,LU1,LU2                                              SKEL      671
                                                  FS     T3,LL1,LL2                                              SKEL      672
                                                  NR     T4,0,T1                                                 SKEL      673
                                                  FA     T5,T2,T3                                                SKEL      674
                                                  FA     T6,T4,T5                                                SKEL      675
                                                  NR     T7,0,T6                                                 SKEL      676
                                                  DFA    T8,T4,T5                                                SKEL      677
                                                  NR     T9,0,T8                                                 SKEL      678
                                                  FA     T10,T7,T9                                               SKEL      679
                                                  DFA    T11,T7,T9                                               SKEL      680
                                                  KRS    T13,T10,59                                              SKEL      681
                                                  STR    RU1,T13,T10                                             SKEL      682
                                                  STR    RL1,T13,T11                                             SKEL      683
           470 0                                  ENDS                                                           SKEL      684
                                                                                                                 SKEL      685
                                         DIM      SKEL                                                           SKEL      686
                                                  FS     T1,L1,L2                                                SKEL      687
                                                  NR     T2,0,T1                                                 SKEL      688
                                                  KRS    T4,T1,59                                                SKEL      689
                                                  STR    R1,T4,T2                                                SKEL      690
           507 0                                  ENDS                                                           SKEL      691
                                                                                                                 SKEL      692
                                                                                                                 SKEL      693
                                         DINT     SKEL                                                           SKEL      694
                                                  KRS    T2,LU1,59                                               FC51035     5
                                                  PK     T3,0,T2                                                 FC51035     6
                                                  FA     T4,T3,LU1                                               FC51035     7
                                                  NR     T5,0,T4                                                 FC51035     8
                                                  FA     T6,T3,LL1                                               FC51035     9
                                                  NR     T7,0,T6                                                 FC51035    10
                                                  FA     RU1,T7,T5                                               FC51035    11
                                                  DFA    RL1,T7,T5                                               FC51035    12
           514 0                                  ENDS                                                           FC51035    13
                                                                                                                 SKEL      701
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    42
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                         DPROD    SKEL                                                           SKEL      702
                                                  FM     RU1,L1,L2                                               SKEL      703
                                                  DFM    RL1,L1,L2                                               SKEL      704
           525 0                                  ENDS                                                           SKEL      705
                                                                                                                 SKEL      706
                                         DNINT    SKEL                                                           SKEL      707
                                                  KRS    T2,LU1,59                                               FC51035    14
                                                  PK     T3,0,T2                                                 FC51035    15
                                                  RFA    T4,T3,LU1                                               FC51035    16
                                                  NR     T5,0,T4                                                 FC51035    17
                                                  RFA    T6,T3,LL1                                               FC51035    18
                                                  NR     T7,0,T6                                                 FC51035    19
                                                  FA     RU1,T7,T5                                               FC51035    20
                                                  DFA    RL1,T7,T5                                               FC51035    21
           527 0                                  ENDS                                                           FC51035    22
                                                                                                                 SKEL      711
                                                                                                                 SKEL      712
                                         DSIGN    SKEL                                                           SKEL      713
                                                  KRS    T2,LU1,59                                               SKEL      714
                                                  XOR    T3,T2,LU1                                               SKEL      715
                                                  XOR    T4,T2,LL1                                               SKEL      716
                                                  CLR    T5                                                      SKEL      717
                                                  IAZ    T6,T5,LU2                                               SKEL      718
                                                  KRS    T8,T6,59                                                SKEL      719
                                                  XOR    RU1,T3,T8                                               SKEL      720
                                                  XOR    RL1,T4,T8                                               SKEL      721
           540 0                                  ENDS                                                           SKEL      722
                                                                                                                 SKEL      723
                                                                                                                 SKEL      724
                                         EQV      SKEQU  EQV.B                                                   SKEL      725
                                                                                                                 SKEL      726
                                                                                                                 SKEL      727
                                         FLOAT    SKEQU  ITOR                                                    SKEL      728
                                                                                                                 SKEL      729
                                                                                                                 SKEL      730
                                         IABS     SKEQU  ABS                                                     SKEL      731
                                                                                                                 SKEL      732
                                                                                                                 SKEL      733
                                         IDINT    SKEQU  RTOI                                                    SKEL      734
                                                                                                                 SKEL      735
                                         IDNINT   SKEL                                                           SKEL      736
                                                  KRS    T2,L1,59                                                SKEL      737
                                                  PK     T3,0,T2                                                 SKEL      738
                                                  RFA    T4,T3,L1                                                SKEL      739
                                                  UP     R1,0,T4                                                 SKEL      740
           552 0                                  ENDS                                                           SKEL      741
                                                                                                                 SKEL      742
                                                                                                                 SKEL      743
                                         IFIX     SKEQU  RTOI                                                    SKEL      744
                                                                                                                 SKEL      745
                                                                                                                 SKEL      746
                                         INT      SKEQU  RTOI                                                    SKEL      747
                                                                                                                 SKEL      748
                                                                                                                 SKEL      749
                                         ISIGN    SKEL                                                           SKEL      750
                                                  KRS    T2,L1,59                                                SKEL      751
                                                  XOR    T3,T2,L1                                                SKEL      752
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    43
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                  CLR    T4                                                      SKEL      753
                                                  IAZ    T5,T4,L2                                                SKEL      754
                                                  KRS    T7,T5,59                                                SKEL      755
                                                  XOR    R1,T7,T3                                                SKEL      756
           557 0                                  ENDS                                                           SKEL      757
                                                                                                                 SKEL      758
                                                                                                                 SKEL      759
                                         IDIM     SKEL                                                           SKEL      760
                                                  IS     T1,L1,L2                                                SKEL      761
                                                  KRS    T3,T1,59                                                SKEL      762
                                                  STR    R1,T3,T1                                                SKEL      763
           567 0                                  ENDS                                                           SKEL      764
                                                                                                                 SKEL      765
                                         MASK     SKEL                                                           SKEL      766
                                                  CALL   MASK                                                    SKEL      767
           573 0                                  ENDS                                                           SKEL      768
                                                                                                                 SKEL      769
                                         MASKV    SUBSKEL                                                        SKEL      770
                                                  FMA    T1,1                                                    SKEL      771
                                                  SB=XK  "TBR",L1,-1                                             SKEL      772
                                                  IRS    T2,"TBR",T1                                             SKEL      773
                                                  KRS    T4,T2,59                                                SKEL      774
                                                  AND    R1,T4,T2                                                SKEL      775
           574 0                                  ENDS                                                           SKEL      776
                                                                                                                 SKEL      777
                                         MASKC    SUBSKEL                                                        SKEL      778
                                                  FMA    R1,P1                                                   SKEL      779
           602 0                                  ENDS                                                           SKEL      780
                                                                                                                 SKEL      781
                                         MOD      SKEL   MODG                                                    SKEL      782
                                                  CALL   MOD                                                     SKEL      783
           603 0                                  ENDS                                                           SKEL      784
                                                                                                                 SKEL      785
                                         MODG     SUBSKEL                                                        SKEL      786
                                                  PK     T1,0,L2    I=MOD(J,K)                                   SKEL      787
                                                  NR     T2,0,T1                                                 SKEL      788
                                                  PK     T3,0,L1                                                 SKEL      789
                                                  FD     T4,T3,T2                                                SKEL      790
                                                  UP     T5,"TBR",T4                                             SKEL      791
                                                  ILS    T6,"TBR",T5                                             SKEL      792
                                                  IM     T7,T6,L2                                                SKEL      793
                                                  IS     R1,L1,T7                                                SKEL      794
           604 0                                  ENDS                                                           SKEL      795
                                                                                                                 SKEL      796
                                         MODP2    SUBSKEL                                                        SKEL      797
                                                  KRS    T2,L1,59                                                SKEL      798
                                                  XOR    T3,L1,T2                                                SKEL      799
                                                  FMA    T4,GP1                                                  SKEL      800
                                                  STR    T5,T4,T3                                                SKEL      801
                                                  XOR    R1,T5,T2                                                SKEL      802
           614 0                                  ENDS                                                           SKEL      803
                                                                                                                 SKEL      804
                                                                                                                 SKEL      805
                                         NEQV     SKEQU  XOR.B                                                   SKEL      806
                                                                                                                 SKEL      807
                                         NINT     SKEQU  IDNINT                                                  SKEL      808
                                                                                                                 SKEL      809
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    44
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       INTRINS 
  
                                                                                                                 SKEL      810
                                         OR       SKEQU  OR.B                                                    SKEL      811
                                                                                                                 SKEL      812
                                                                                                                 SKEL      813
                                         RANF     SKEL                                                           SKEL      814
                                                  DFM    T1,LL2,LU1                                              SKEL      815
                                                  ST     L1,T1                                                   SKEL      816
                                                  NR     R1,0,T1                                                 SKEL      817
           622 0                                  ENDS                                                           SKEL      818
                                                                                                                 SKEL      819
                                         REAL     SKEQU  CTOR        COMPLEX TO REAL                             SKEL      820
                                                                                                                 SKEL      821
                                                                                                                 SKEL      822
                                         SIGN     SKEQU  ISIGN                                                   SKEL      823
                                                                                                                 SKEL      824
                                                                                                                 SKEL      825
                                         SNGL     SKEQU  REAL                                                    SKEL      826
                                                                                                                 SKEL      827
                                                                                                                 SKEL      828
                                         SHIFT    SKEL   SHIFV                                                   FC5A190     6
                                                  CALL   SHIFT                                                   SKEL      830
           625 0                                  ENDS                                                           SKEL      831
                                                                                                                 SKEL      832
                                         SHIFV    SUBSKEL                                                        SKEL      833
                                                  SB=XB  "TBR",L2                                                SKEL      834
                                                  ILS    R1,"TBR",L1                                             SKEL      835
           626 0                                  ENDS                                                           SKEL      836
                                                                                                                 SKEL      837
                                         SHLC     SUBEQU SHFC                                                    SKEL      838
                                                                                                                 SKEL      839
                                         SHRC     SUBEQU IDP2                                                    SKEL      840
                                                                                                                 SKEL      841
                                                                                                                 SKEL      842
                                         XOR      SKEQU  NEQV                                                    SKEL      843
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    45
        SKEL - INSTRUCTION SKELETON EXPANSIONS. 
  
                                        **        V=DOB - DO BEGIN EXPANSION.                                    SKEL      845
                                        *                (L1) = CONTROL INDEX    (I)                             SKEL      846
                                        *                (L2) = NUMBER OF TRIPS  (TC)                            SKEL      847
                                        *                (L3) = TRIP COUNTER     (DC.N)                          SKEL      848
                                        *                (L4) = UPPER LIMIT      (M2)                            SKEL      849
                                        *                (P5) = DOBEGIN LABEL                                    SKEL      850
                                        *                (P6) = DOEND LABEL      (ONLY IF ZERO-TRIP LOOP)        SKEL      851
                                        *         MEGATURPLE SIZE = 3 TURPLES.                                   SKEL      852
                                                                                                                 SKEL      853
                                                                                                                 SKEL      854
                                                                                                                 SKEL      855
                                         DOBS     SKEL               ONE-TRIP DO BEGIN                           SKEL      856
                                                  CALLC  DOO         SEE IF OPTIMIZABLE                          SKEL      857
                                         DOBS1    CALL   DOBZ        GL1 = 1                                     SKEL      858
                                                  IS     T1,L2,GL1                                               SKEL      859
                                                  ST     L3,T1                                                   SKEL      860
                                                  CALLQ  CAR                                                     SKEL      861
                                                  CALL   DOB,P5                                                  SKEL      862
           630 0                                  ENDS                                                           SKEL      863
                                                                                                                 SKEL      864
                                         DOBL     SKEL                                                           SKEL      865
                                                  CALLC  DOL         FLAG LONG DO                                SKEL      866
           635                                    BRANCH DOBS1                                                   SKEL      867
           635 0                                  ENDS                                                           SKEL      868
                                                                                                                 SKEL      869
                                         DOBZS    SKEL               ZERO-TRIP DO BEGIN, SHORT TRIP COUNT        SKEL      870
                                                  CALLC  DZO         SEE IF OPTIMIZABLE                          SKEL      871
                                                  SX=XK  T1,L2,-1                                                SKEL      872
                                                  ST     L3,T1                                                   SKEL      873
                                         DOBZ1    MI     T1,P6       IF (TRIP COUNT) <= 0 THEN SKIP LOOP         SKEL      874
                                                  CALLC  DOZ,P5                                                  SKEL      875
                                                  CALLQ  CAR                                                     SKEL      876
                                                  CALL   DOB,P5                                                  SKEL      877
           637 0                                  ENDS                                                           SKEL      878
                                                                                                                 SKEL      879
                                         DOBZL    SKEL               ZERO TRIP DO BEGIN, LONG COUNT              SKEL      880
                                                  CALLC  DOL         FLAG LONG DO                                SKEL      881
                                                  CALL   DOBZ        SET GL1 = -1                                SKEL      882
                                                  IS     T1,L2,GL1                                               SKEL      883
                                                  ST     L3,T1                                                   SKEL      884
                                                  BRANCH DOBZ1,T1                                                SKEL      885
           645 0                                  ENDS                                                           SKEL      886
                                                                                                                 SKEL      887
                                         #CD      IFEQ   .CG,.OPT                                                SKEL      888
                                         DOBO     SUBSKEL                  OPTIMIZED (NO TRIP COUNT) LOOP        SKEL      889
                                                  CALL   DOB,P5                                                  SKEL      890
           652 0                                  ENDS                                                           SKEL      891
                                                                                                                 SKEL      892
                                         DOZO     SUBSKEL                  OPTIMIZED ZERO TRIP LOOP              SKEL      893
                                                  SX=XK  T1,L2,-1                                                SKEL      894
                                                  BRANCH DOBZ1,T1                                                SKEL      895
           653 0                                  ENDS                                                           SKEL      896
                                                                                                                 SKEL      897
                                         #CD      ENDIF                                                          SKEL      898
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    46
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                        **        V=DOC - DO CONCLUSION CODE.                                    SKEL      900
                                        *                (L1) = CONTROL INDEX    (I)                             SKEL      901
                                        *                (L2) = INCREMENT VALUE  (M3)                            SKEL      902
                                        *                (P3) = DO BEGIN LABEL                                   SKEL      903
                                        *                (L4) = TRIP COUNTER     (DC.N)                          SKEL      904
                                        *         MEGATURPLE LENGTH = 2 TURPLES.                                 SKEL      905
                                                                                                                 SKEL      906
                                                                                                                 SKEL      907
                                         DOC.S    SKEL               INTEGER, SHORT LOOP                         SKEL      908
                                                  CALL   DOC,0       SET (GL1) = INTEGER -1                      SKEL      909
                                                  IA     T1,L2,L1                                                SKEL      910
                                         DOCS1    ST     L1,T1       CONTROL = CONTROL + INCREMENT               SKEL      911
                                                  SX=XK  T3,L4,-1    DECREMENT TRIP COUNTER                      SKEL      912
                                         DOCS2    ST     L4,T3                                                   SKEL      913
                                                  PL     T3,P3                                                   SKEL      914
                                                  CALL   PDE                                                     SKEL      915
           655 0                                  ENDS                                                           SKEL      916
                                                                                                                 SKEL      917
                                         DOC.O    SKEL                                                           FC51364     8
                                                  CALL   DOC,0                                                   FC51364     9
                                                  IA     T1,L2,L1                                                FC51364    10
                                                  ST     L1,T1       CONTROL = CONTROL + INCREMENT               FC51364    11
                                                  CALL   PDE                                                     FC51364    12
           664 0                                  ENDS                                                           FC51364    13
                                                                                                                 FC51364    14
                                         DOC.K    SUBSKEL            INTEGER, SHORT LOOP, CONSTANT INCREMENT     SKEL      918
                                                  SX=XK  T1,L1,P2                                                SKEL      919
                                                  BRANCH DOCS1,(T1)                                              SKEL      920
           670 0                                  ENDS                                                           SKEL      921
                                                                                                                 SKEL      922
                                         #CD      IFEQ   .CG,.OPT                                                SKEL      923
                                         DOC.1    SKEL                                                           FC5A511    13
                                                  IA     T1,L1,L2                                                FC5A511    14
                                                  ST     L1,T1       CONTROL = CONTROL + INCREMENT               FC5A511    15
                                                  CALL   PDE1                                                    FC5A511    16
           672 0                                  ENDS                                                           FC5A511    17
                                                                                                                 FC5A511    18
                                         DC.OV    SUBSKEL            OPTIMIZED (NO TRIP COUNT), VAR. INCREMENT   SKEL      924
                                                  IA     T1,L1,L2                                                SKEL      925
                                         DC.O1    ST     L1,T1       I = I + INC                                 SKEL      926
                                                  IS     T3,GL1,T1                                               SKEL      927
                                                  PL     T3,P3                                                   SKEL      928
                                                  CALL   PDE                                                     SKEL      929
           675 0                                  ENDS                                                           SKEL      930
                                                                                                                 SKEL      931
                                         DC.OC    SUBSKEL            OPTIMIZED (NO TRIP COUNT), CON. INCREMENT   SKEL      932
                                                  SX=XK  T1,L1,P2                                                SKEL      933
           702                                    BRANCH DC.O1 ,T1                                               SKEL      934
           702 0                                  ENDS                                                           SKEL      935
                                                                                                                 FC50136     6
                                         DC.OS    SUBSKEL                  OPTIMIZED, CON. INCREMENT AND ULIM    FC50136     7
                                                  SX=XK  T1,L1,P2                                                FC50136     8
                                                  ST     L1,T1                                                   FC50136     9
                                                  SX=XK  T2,T1,GP1                                               FC50136    10
                                                  MI     T2,P3                                                   FC50136    11
                                                  CALL   PDE                                                     FC50136    12
           704 0                                  ENDS                                                           FC50136    13
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    47
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                                                                                                 FC5A113     4
                                         DC.O1    SUBSKEL            OPTIMIZED FOR I=J,J                         FC5A113     5
                                                  IA     T1,L1,L2                                                FC5A113     6
                                                  ST     L1,T1       CV = CV + INC                               FC5A113     7
                                                  CALL   PDE1                                                    FC50130     5
           711 0                                  ENDS                                                           FC5A113     8
                                                                                                                 SKEL      936
                                         #CD      ENDIF                                                          SKEL      937
                                                                                                                 SKEL      938
                                                                                                                 SKEL      939
                                         DOC.L    SKEL               INTEGER, LONG LOOP                          SKEL      940
                                                  CALL   DOC,1                                                   SKEL      941
                                                  IA     T1,L1,L2                                                SKEL      942
                                         DOCL1    ST     L1,T1       CONTROL = CONTROL + INCREMENT               SKEL      943
                                         DOCL2    IA     T3,L4,GL1   DECREMENT TRIP COUNTER                      SKEL      944
                                                  BRANCH DOCS2,(T3)                                              SKEL      945
           714 0                                  ENDS                                                           SKEL      946
                                                                                                                 SKEL      947
                                         DOC.R    SKEL               REAL, ALWAYS LONG                           SKEL      948
                                                  CALL   DOC,1                                                   SKEL      949
                                                  FAR    T2,L1,L2                                                SKEL      950
                                                  NR     T1,0,T2                                                 SKEL      951
                                                  BRANCH DOCL1,(T1)                                              SKEL      952
           721 0                                  ENDS                                                           SKEL      953
                                                                                                                 SKEL      954
                                         DOC.D    SKEL               DOUBLE, ALWAYS LONG                         SKEL      955
                                                  CALL   DOC,1                                                   SKEL      956
                                                  FA     T1,LU1,LU2                                              SKEL      957
                                                  DFA    T2,LU1,LU2                                              SKEL      958
                                                  FA     T3,LL1,LL2                                              SKEL      959
                                                  NR     T4,0,T1                                                 SKEL      960
                                                  FA     T5,T2,T3                                                SKEL      961
                                                  FA     T6,T4,T5                                                SKEL      962
                                                  NR     T7,0,T6                                                 SKEL      963
                                                  DFA    T8,T4,T5                                                SKEL      964
                                                  NR     T9,0,T8                                                 SKEL      965
                                                  FA     T10,T7,T9                                               SKEL      966
                                                  DFA    T11,T7,T9                                               SKEL      967
                                                  ST     LU1,T10                                                 SKEL      968
                                                  ST     LL1,T11                                                 SKEL      969
           725                                    BRANCH DOCL2                                                   SKEL      970
           725 0                                  ENDS                                                           SKEL      971
                                                                                                                 FC5A218     8
                                         #CD      IFEQ   .CG,.OPT                                                FC5A218     9
                                                                                                                 FC5A218    10
                                         IOLC     SKEL               IO LIST COLLAPSE                            FC5A218    11
                                                  CALL   IOLC                                                    FC5A218    12
           744 0                                  ENDS                                                           FC5A218    13
                                                                                                                 FC5A218    14
                                         IOLC1    SUBSKEL                  ONE TRIP (OPTIMIZED) HEADER           FC5A218    15
                                                  IA     T1,L3,L4    CV = ULIM + INCR (1)                        FC5A218    16
                                                  ST     L1,T1                                                   FC5A218    17
           745 0                                  ENDS                                                           FC5A218    18
                                                                                                                 FC5A218    19
                                         IOLC0    SUBSKEL                  ZERO TRIP COLLAPSE HEADER             FC5A218    20
                                         #CD      ELSE                                                           FC5A218    21
                                         IOLC     SKEL               IO LIST COLLAPSE - DEFINE CONTROL VAR       FC5A218    22
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    48
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=DOC 
  
                                         #CD      ENDIF                                                          FC5A218    23
                                                  IS     T1,L3,L2                                                FC5A218    24
                                                  KRS    T3,T1,59                                                FC5A218    25
                                                  IA     T4,L3,L4                                                FC5A218    26
                                                  AND    T5,T3,L2                                                FC5A218    27
                                                  STR    T6,T3,T4                                                FC5A218    28
                                                  OR     T7,T5,T6                                                FC5A218    29
                                                  ST     L1,T7                                                   FC5A218    30
           747 0                                  ENDS                                                           FC5A218    31
                                                                                                                 FC5A248     6
                                         LCIF     SKEL               PROTECT INNER CV DEFINITIONS                FC5A248     7
                                                  IS     T1,L3,L2                                                FC5A248     8
                                                  MI     T1,P1                                                   FC5A248     9
                                                  CALLC  IF,1                                                    FC5A248    10
           757 0                                  ENDS                                                           FC5A248    11
  
  
  
  
                                        **        *GO TO* INSTRUCTIONS.                                          SKEL      973
                                                                                                                 SKEL      974
                                                                                                                 SKEL      975
                                                                                                                 SKEL      976
                                         GOTO     SKEL                         UNCONDITIONAL GOTO                SKEL      977
                                                  UJP    P1                                                      SKEL      978
                                                  CALLC  PGT                                                     SKEL      979
           762 0                                  ENDS                                                           SKEL      980
                                                                                                                 SKEL      981
                                                                                                                 SKEL      982
                                         AGOTO    SKEL                         ASSIGNED GOTO                     SKEL      983
                                                  IR     L1,=XS=BU                                               SKEL      984
                                                  SB=XK  "TBR",L1,=XS=TRACE                                      SKEL      985
                                                  JIN    "TBR"                                                   SKEL      986
                                                  CALLC  PAG                                                     SKEL      987
           764 0                                  ENDS                                                           SKEL      988
                                                                                                                 SKEL      989
                                                                                                                 SKEL      990
                                         CGOTO    SKEL                         COMPUTED GOTO                     SKEL      991
                                        *                            (X1) = EXPRESSION VALUE                     SKEL      992
                                                  SX=BK  T1,0,P2     SX6 N.BRANCHES                              SKEL      993
                                                  SX=XK  T2,L1,-1    SX0 X1-1                                    SKEL      994
                                                  IS     T3,T2,T1    IX2 X0-X6                                   SKEL      995
                                                  IMP    T4,T3,T2    BX3 -X2+X0                                  SKEL      996
                                                  KRS    T6,T4,59    AX3 59                                      SKEL      997
                                                  STR    T7,T6,T2    BX4 -X3*X0                                  SKEL      998
                                                  AND    T8,T6,T1    BX5 X3*X6                                   SKEL      999
                                                  IA     T9,T7,T8    BX6 X4+X5                                   SKEL     1000
                                                  SB=XB  "TBR",T9    SB2 X6                                      SKEL     1001
                                                  CALLQ  CAR                                                     SKEL     1002
                                                  CALL   PCG,"TBR"                                               SKEL     1003
           770 0                                  ENDS                                                           SKEL     1004
                                                                                                                 SKEL     1005
                                         JGOTO    SKEL                         JUMP TO A COMPUTED GOTO BRANCH    SKEL     1006
                                                  UJP    P1                                                      SKEL     1007
                                                  CALLC  JGOC                                                    SKEL     1008
          1003 0                                  ENDS                                                           SKEL     1009
                                                                                                                 SKEL     1010
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    49
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       GOTO
  
                                         RGOTO    SKEL               INDEXED JUMP TO ALTERNATE RETURN LABELS     SKEL     1011
                                                  CALL   RGT                                                     SKEL     1012
                                                  DEF    T1,,"X1."                                               SKEL     1013
                                                  SX=XK  T2,T1,-1                                                SKEL     1014
                                                  SX=XK  T3,T2,GP2                                               SKEL     1015
                                                  IMP    T4,T3,T2                                                SKEL     1016
                                                  KRS    T6,T4,59                                                SKEL     1017
                                                  STR    T7,T6,T1                                                SKEL     1018
                                                  LOAD   T8,T7,GP1                                               SKEL     1019
                                                  SB=XB  "TBR",T8                                                SKEL     1020
                                                  CALLQ  CAR                                                     SKEL     1021
                                                  JIN    "TBR"                                                   SKEL     1022
          1005 0                                  ENDS                                                           SKEL     1023
                                                                                                                 SKEL     1024
                                                                                                                 SKEL     1025
                                         ASSGN    SKEL                                                           SKEL     1026
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1027
                                                  CALL   PASG         SETS GL1 TO LA.+K                          SKEL     1028
                                                  ST     L2,GL1                                                  SKEL     1029
                                                                                                                 SKEL     1030
                                         #CD      ELSE                                                           SKEL     1031
                                                  CALL   PASG,L1      ISSUES ST1 L1-TEMPA0.                      SKEL     1032
          1021 0                                  ENDS                                                           SKEL     1033
                                                                                                                 SKEL     1034
                                         ASLAB    SUBSKEL                  ASSIGN TO CODE LABEL                  SKEL     1035
                                                                                                                 SKEL     1036
                                        *         P=PASG DEFINES T1.                                             SKEL     1037
                                                                                                                 SKEL     1038
                                                  FMA    T2,1                                                    SKEL     1039
                                                  OR     T3,T1,T2                                                SKEL     1040
                                                  ST     L2,T3                                                   SKEL     1041
          1022 0                                  ENDS                                                           SKEL     1042
                                                                                                                 SKEL     1043
                                         ASFMT    SUBSKEL                  ASSIGN TO FORMAT LABEL                SKEL     1044
                                                  ST     L2,T1                                                   SKEL     1045
                                         #CD      ENDIF                                                          SKEL     1046
          1025 0                                  ENDS                                                           SKEL     1047
                                                                                                                 SKEL     1048
                                         BSS      SKEL                                                           SKEL     1049
                                                  CALL   PLA,P1                                                  SKEL     1050
          1026 0                                  ENDS                                                           SKEL     1051
                                                                                                                 SKEL     1052
                                         ARY      SKEL                     SUBSCRIPTED ARRAY LOAD                SKEL     1053
                                                  CALL   PAR         PROCESS ARRAY REFERENCE                     SKEL     1054
          1027 0                                  ENDS                                                           SKEL     1055
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    50
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       APL 
  
                                        **        AP-LIST CONSTRUCTION.                                          SKEL     1057
                                                                                                                 SKEL     1058
                                                                                                                 SKEL     1059
                                         GAP      SKEL                                                           SKEL     1060
                                                  CALL   GAP         PROCESS GENERAL ACTUAL PARAMETER            SKEL     1061
          1030 0                                  ENDS                                                           SKEL     1062
                                                                                                                 SKEL     1063
                                         FAP      SKEL                                                           SKEL     1064
                                                  CALL   FAP         FUNCTION APLIST FOLLOWS                     SKEL     1065
          1031 0                                  ENDS                                                           SKEL     1066
                                                                                                                 SKEL     1067
                                         IAP      SKEL                                                           SKEL     1068
                                                  CALL   IAP         PROCESS INTRINSIC ACTUAL PARAMETER          SKEL     1069
          1032 0                                  ENDS                                                           SKEL     1070
  
  
  
  
                                        **        V=RAG - REGISTER ASSIGNEMENT AND LOAD FOR CALL BY VALUE SKELS. SKEL     1072
                                        *                (1OP) = FIRST  ARGUMENT.                                SKEL     1073
                                        *                (2OP) = SECOND ARGUMENT (OR NIL).                       SKEL     1074
                                        *         QCG ONLY.  CCG DOES THIS WITH REGISTER STORES.                 SKEL     1075
                                                                                                                 SKEL     1076
                                                                                                                 SKEL     1077
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1078
                                                                                                                 SKEL     1079
                                         IAPS1    SUBSKEL                                                        SKEL     1080
                                                  LD     L1,,+R.X1   FIRST ARGUMENT                              SKEL     1081
                                                  ENDS                                                           SKEL     1082
                                                                                                                 SKEL     1083
                                         IAPD1    SUBSKEL                                                        SKEL     1084
                                                  LD     LU1,,+R.X1  FIRST ARGUMENT, DOUBLE                      SKEL     1085
                                                  LD     LL1,,+R.X2                                              SKEL     1086
                                                  ENDS                                                           SKEL     1087
                                                                                                                 SKEL     1088
                                         IAPS2    SUBSKEL                                                        SKEL     1089
                                                  LD     L1,,+R.X3   SECOND ARGUMENT                             SKEL     1090
                                                  ENDS                                                           SKEL     1091
                                                                                                                 SKEL     1092
                                         IAPD2    SUBSKEL                                                        SKEL     1093
                                                  LD     LU1,,+R.X3  SECOND ARGUMENT, DOUBLE                     SKEL     1094
                                                  LD     LL1,,+R.X4                                              SKEL     1095
                                                  ENDS                                                           SKEL     1096
                                         #CD      ENDIF                                                          SKEL     1097
                                                                                                                 SKEL     1098
                                        **        CALL BY REFERENCE APLIST SETUP AND CODE  SKELETONS             SKEL     1099
                                                                                                                 SKEL     1100
                                         APIOC    SKEL                                                           SKEL     1101
                                                  CALL   IOC         PROCESS I/O CONTROL PARAMETER               SKEL     1102
          1033 0                                  ENDS                                                           SKEL     1103
                                                                                                                 SKEL     1104
                                         APIOD    SKEL                                                           SKEL     1105
                                                  CALL   IOD         PROCESS I/O DATA PARAMETER (LIST ITEM)      SKEL     1106
          1034 0                                  ENDS                                                           SKEL     1107
                                                                                                                 SKEL     1108
                                         APIOU    SKEL                                                           SKEL     1109
                                                  CALL   IOU         PROCESS I/O UNIT                            SKEL     1110
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    51
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
          1035 0                                  ENDS                                                           SKEL     1111
                                                                                                                 SKEL     1112
                                                                                                                 SKEL     1113
                                         APSTR    SUBSKEL                                                        SKEL     1114
                                                  ST     GL2,GL1                                                 SKEL     1115
                                                  CALL   APRET                                                   SKEL     1116
          1036 0                                  ENDS                                                           SKEL     1117
                                                                                                                 SKEL     1118
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    20
                                         IPLUG    SUBSKEL                  MUST FOLLOW APSTR                     SKEL     1119
                                                  FMA    T1,36       PLUG ADDRESS INTO I/O AP-LIST               SKEL     1120
                                                  AND    T2,T1,GL2                                               SKEL     1121
                                                  OR     T3,T2,GL1                                               SKEL     1122
                                                  ST     GL2,T3                                                  SKEL     1123
                                                  CALL   APRET                                                   SKEL     1124
          1040 0                                  ENDS                                                           SKEL     1125
                                                                                                                 FC51544     7
                                         IPLG1    SUBSKEL                                                        FC51544     8
                                                  FMA    T1,36                                                   FC51544     9
                                                  AND    T2,T1,GL2                                               FC51544    10
                                                  STR    T3,T1,GL1                                               FC51544    11
                                                  OR     T4,T2,T3                                                FC51544    12
                                                  ST     GL2,T4                                                  FC51544    13
                                                  CALL   APRET                                                   FC51544    14
          1045 0                                  ENDS                                                           FC51544    15
                                                                                                                 FC51544    16
                                         IPLG2    SUBSKEL                                                        FC51544    17
                                                  FMA    T1,25                                                   FC51544    18
                                                  KLS    T3,T1,24                                                FC51544    19
                                                  STR    T4,T3,GL2                                               FC51544    20
                                                  AND    T5,T3,GL1                                               FC51544    21
                                                  OR     T6,T4,T5                                                FC51544    22
                                                  ST     GL2,T6                                                  FC51544    23
                                                  CALL   APRET                                                   FC51544    24
          1053 0                                  ENDS                                                           FC51544    25
                                         #CD      ENDIF                                                          FC5A128    21
                                                                                                                 SKEL     1126
                                         IPLG0    SUBSKEL                  PLUG LEVEL 0 I/O APLIST               SKEL     1127
                                                  FMA    T1,25       MX1   25                                    SKEL     1128
                                                  KLS    T3,T1,24    LX3   X1,24                                 SKEL     1129
                                                  STR    T4,T3,GL2   BX4   -X1*X.GL2                             SKEL     1130
                                                  OR     T5,T4,GL1   BX5   X4+X.GL1                              SKEL     1131
                                                  ST     GL2,T5                                                  SKEL     1132
                                                  CALL   APRET                                                   SKEL     1133
          1063 0                                  ENDS                                                           SKEL     1134
                                                                                                                 SKEL     1135
                                        *         CHARACTER APLIST STORES.                                       SKEL     1136
                                                                                                                 SKEL     1137
                                         CAPST    SUBSKEL            NON IO CHARACTER APSTORE                    SKEL     1138
                                                  DEF    T1,,"X6."                                               SKEL     1139
                                                  ST     GL1,T1                                                  SKEL     1140
                                                  CALL   SCRET                                                   SKEL     1141
          1072 0                                  ENDS                                                           SKEL     1142
                                                                                                                 SKEL     1143
                                         #CD      IFEQ   .CG,.OPT                                                FC5A128    22
                                         CISST    SUBSKEL            CHARACTER I/O SCALAR                        SKEL     1144
                                                  DEF    T1,,"X6."                                               SKEL     1145
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    52
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
                                                  FMA    T2,49                                                   FC51351     6
                                                  KLS    T4,T2,48                                                FC51351     7
                                                  STR    T5,T4,GL1                                               FC51351     8
                                                  AND    T7,T4,T1                                                FC51351     9
                                                  OR     T6,T7,T5                                                FC51351    10
                                                  ST     GL1,T6                                                  FC51351    11
                                                  CALL   SCRET                                                   SKEL     1151
          1075 0                                  ENDS                                                           SKEL     1152
                                                                                                                 SKEL     1153
                                         CIAST    SUBSKEL            CHARACTER I/O ARRAY                         SKEL     1154
                                                  DEF    T1,,"X6."                                               SKEL     1155
                                                  FMA    T2,30                                                   SKEL     1156
                                                  AND    T3,T2,GL1                                               SKEL     1157
                                                  STR    T4,T2,T1                                                SKEL     1158
                                                  OR     T5,T3,T4                                                SKEL     1159
                                                  ST     GL1,T5                                                  SKEL     1160
                                                  CALL   SCRET                                                   SKEL     1161
          1106 0                                  ENDS                                                           SKEL     1162
                                         #CD      ENDIF                                                          FC5A128    23
                                                                                                                 SKEL     1163
                                         CIS0S    SUBSKEL            CHARACTER I/O SCALAR (LEVEL 0)              SKEL     1164
                                                  DEF    T1,,"X6."                                               SKEL     1165
                                                  FMA    T2,49                                                   SKEL     1166
                                                  KLS    T4,T2,48                                                SKEL     1167
                                                  STR    T5,T4,GL1                                               SKEL     1168
                                                  AND    T7,T4,T1                                                SKEL     1169
                                                  OR     T6,T7,T5                                                SKEL     1170
                                                  ST     GL1,T6                                                  SKEL     1171
                                                  CALL   SCRET                                                   SKEL     1172
          1115 0                                  ENDS                                                           SKEL     1173
                                                                                                                 SKEL     1174
                                         CIA0S    SUBSKEL            CHARACTER I/O ARRAY (LEVEL 0)               SKEL     1175
                                                  DEF    T1,,"X6."                                               SKEL     1176
                                                  FMA    T2,31                                                   SKEL     1177
                                                  KLS    T4,T2,30                                                SKEL     1178
                                                  AND    T5,T4,T1                                                SKEL     1179
                                                  STR    T6,T4,GL1                                               SKEL     1180
                                                  OR     T7,T5,T6                                                SKEL     1181
                                                  ST     GL1,T7                                                  SKEL     1182
                                                  CALL   SCRET                                                   SKEL     1183
          1126 0                                  ENDS                                                           SKEL     1184
                                                                                                                 FC5A243     9
                                         #CD      IFEQ   .CG,.FAST                                               FC5A243    10
                                         LUA      SUBSKEL                  LOAD UNKNOWN-LENGTH APLIST ITEM       FC5A243    11
                                                  XMT    "X6.",GL1                                               FC5A243    12
                                                  CALL   LURET                                                   FC5A243    13
                                                  ENDS                                                           FC5A243    14
                                                                                                                 FC5A243    15
                                         SUA      SUBSKEL                  STORE UNKNOWN-LENGTH APLIST ITEM      FC5A243    16
                                                  DEF    T1,,"X6."                                               FC5A243    17
                                                  ST     GL1,T1                                                  FC5A243    18
                                                  CALL   SURET                                                   FC5A243    19
                                                  ENDS                                                           FC5A243    20
                                         #CD      ENDIF                                                          FC5A243    21
                                                                                                                 FC5A243    22
                                                                                                                 SKEL     1185
                                         SUBR     SKEL                                                           SKEL     1186
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    53
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       V=RAG 
  
                                                  CALL   SUB         PROCESS SUBROUTINE                          SKEL     1187
          1137 0                                  ENDS                                                           SKEL     1188
                                                                                                                 SKEL     1189
                                         FUNC     SKEL                                                           SKEL     1190
                                                  CALL   FUN         PROCESS GENERAL FUNCTION                    SKEL     1191
          1140 0                                  ENDS                                                           SKEL     1192
                                                                                                                 SKEL     1193
                                         LIBF     SKEL               LIBRARY FUNCTION (NO ZERO TERMINATOR)       SKEL     1194
                                                  CALL   LIBF                                                    SKEL     1195
          1141 0                                  ENDS                                                           SKEL     1196
                                         INTF     SKEL                                                           SKEL     1197
                                                  CALL   INF         PROCESS INTRINSIC FUNCTION CALL             SKEL     1198
          1142 0                                  ENDS                                                           SKEL     1199
                                                                                                                 SKEL     1200
                                         IOSUB    SKEL                                                           SKEL     1201
                                                  CALL   IOF         PROCESS I/O ROUTINE                         SKEL     1202
          1143 0                                  ENDS                                                           SKEL     1203
                                                                                                                 SKEL     1204
                                         #CD      IFEQ   .CG,.OPT                                                SKEL     1205
                                                                                                                 SKEL     1206
                                         DFRS     SUBSKEL            DEFINE SINGLE-VALUED FUNCTION RESULT        SKEL     1207
                                                  DEF    R1,,"X6."                                               SKEL     1208
                                                  CALL   FRRET                                                   SKEL     1209
          1144 0                                  ENDS                                                           SKEL     1210
                                                                                                                 SKEL     1211
                                         DFRD     SUBSKEL            DOUBLE-VALUED FUNCTION RESULT               SKEL     1212
                                                  DEF    R1,,"X6."                                               SKEL     1213
                                                  DEF    RL1,,"X7."                                              SKEL     1214
                                                  CALL   FRRET                                                   SKEL     1215
          1146 0                                  ENDS                                                           SKEL     1216
                                                                                                                 SKEL     1217
                                         #CD      ENDIF                                                          SKEL     1218
                                                                                                                 SKEL     1219
                                                                                                                 SKEL     1220
                                         ERR      SKEL                         SOURCE PROGRAM FATAL ERROR        SKEL     1221
                                                  CALLQ  CDW         DRITE                                       SKEL     1222
                                                  RJT    =XS=ERR                                                 SKEL     1223
                                                  CALLQ  CAR         CLEAR REGS                                  SKEL     1224
          1151 0                                  ENDS                                                           SKEL     1225
  
  
  
  
                                        **        SUBPROGRAM EXIT INSTRUCTIONS.                                  SKEL     1227
                                                                                                                 SKEL     1228
                                                                                                                 SKEL     1229
                                         STOP     SKEL                                                           SKEL     1230
                                                  CALL   LIB                                                     SKEL     1231
                                                  CALLC  PEX                                                     SKEL     1232
          1152 0                                  ENDS                                                           SKEL     1233
                                                                                                                 SKEL     1234
                                         PEND     SKEQU  STOP                                                    SKEL     1235
                                                                                                                 SKEL     1236
                                         PAUS     SKEL                                                           SKEL     1237
                                                  CALL   LIB                                                     SKEL     1238
          1154 0                                  ENDS                                                           SKEL     1239
                                                                                                                 SKEL     1240
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    54
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       EXIT. 
  
                                         RET      SKEL                                                           SKEL     1241
                                                  CALLQ  CDW         DRITE                                       SKEL     1242
                                                  UJP    =XS=EXIT                                                SKEL     1243
                                                  CALLC  PEX                                                     SKEL     1244
          1155 0                                  ENDS                                                           SKEL     1245
                                                                                                                 SKEL     1246
                                         RTNK     SKEL               ALTERNATE RETURN                            SKEL     1247
                                                  XMTL   X1,T1,L1                                                SKEL     1248
                                                  CALLQ  CDW         CALL DRITE                                  SKEL     1249
                                                  UJP    =XS=AEXIT                                               SKEL     1250
                                                  CALLC  PEX                                                     SKEL     1251
          1157 0                                  ENDS                                                           SKEL     1252
  
  
  
  
                                        **        COMMON ENTRY DEFINITION CODE SKELETONS.                        SKEL     1254
                                        *                                                                        SKEL     1255
                                        *         V=ENTR PROCESS INITIAL REFERENCE TO AN ALT ENTRY               SKEL     1256
                                        *         V=BVD  BEGIN VAR DIM CODE                                      SKEL     1257
                                        *         V=EVD  END VAR DIM CODE                                        SKEL     1258
                                                                                                                 SKEL     1259
                                                                                                                 SKEL     1260
                                         GPL      SKEL               GET PASSED LENGTH (OF FP)                   SKEL     1261
                                                  FMA    T1,42                                                   SKEL     1262
                                                  KRS    T3,L1,30                                                SKEL     1263
                                                  STR    R1,T1,T3                                                SKEL     1264
          1163 0                                  ENDS                                                           SKEL     1265
                                                                                                                 SKEL     1266
                                         ENTR     SKEL                                                           SKEL     1267
                                                  CALL   ENT                                                     SKEL     1268
          1167 0                                  ENDS                                                           SKEL     1269
                                                                                                                 SKEL     1270
                                                                                                                 SKEL     1271
                                         BVD      SKEL               BEGIN VARDIM CODE                           SKEL     1272
                                                  CALL   BVD                                                     SKEL     1273
          1170 0                                  ENDS                                                           SKEL     1274
                                                                                                                 SKEL     1275
                                                                                                                 SKEL     1276
                                         EVD      SKEL               END VARDIM CODE                             SKEL     1277
                                                  CALL   EVD                                                     SKEL     1278
          1171 0                                  ENDS                                                           SKEL     1279
                                                                                                                 SKEL     1280
                                         #CD      IFEQ   .CG,.FAST                                               SKEL     1281
                                                                                                                 SKEL     1282
                                        **        QCG PROLOGUE AND ENTRY CODE SKELETONS                          SKEL     1283
                                        *                                                                        SKEL     1284
                                        *         V=PROM  - MAIN PROGRAM PROGLOGUE CODE.                         SKEL     1285
                                        *         V=PROS  - SUB PROGRAM PROGLOGUE CODE.                          SKEL     1286
                                        *                                                                        SKEL     1287
                                        *         V=MFPNT - FP CODE UNIQUE TO A MAIN ENTRY CODE OF A SUBR        SKEL     1288
                                        *         V=FUNT  - FUNCTION SUBPROGRAM RESULT CODE                      SKEL     1289
                                        *         V=DFENT - DOUBLE PRECISION FUNCTION CODE                       SKEL     1290
                                        *         V=TMENT - ENTRY/EXIT SETUP + A CALL TO GENERAL ENTRY FP CODE   SKEL     1291
                                        *         V=ALENT - NORMAL ALTERNATE ENTRY CODE                          SKEL     1292
                                        *         V=TENT  - TERMINATE ALTERNATE ENTRY CODE                       SKEL     1293
                                        *         V=FPENT - FP CODE FOR ALL ENTRY POINTS INCLUDES ANY VARDIM     SKEL     1294
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    55
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       ENTRY.
  
                                        *         V=VDENT - VAR DIM CODE EXPANSION (CALLS A NEW I. L.)           SKEL     1295
                                                                                                                 SKEL     1296
                                         PROM     SUBSKEL                  MAIN PROGRAM PROLOG                   SKEL     1297
                                                  LABL   =XS=ENTRY                                               SKEL     1298
                                                  XMTL   X1,T1,=XS=FILES                                         SKEL     1299
                                                  RJ3    =XS=INIT                                                SKEL     1300
                                                  CALL   FINX                                                    SKEL     1301
                                                  ENDS                                                           SKEL     1302
                                                                                                                 SKEL     1303
                                         PROS     SUBSKEL                  SUB PROGRAM PROLOG                    SKEL     1304
                                                  CALL   GENT              GENERATE ALT ENT CODE(CALLS V=ALENT)  SKEL     1305
                                         PROS.M   CALL   MENT              MAIN ENT (CALLS V=MFPNT OR V=TMENT)   SKEL     1306
                                                  ENDS                                                           SKEL     1307
                                                                                                                 SKEL     1308
                                        *         MAIN ENTRY CODE SUBSKELETONS                                   SKEL     1309
                                                                                                                 SKEL     1310
                                         MFPNT    SUBSKEL                  RESET A0 FOR CALLER                   SKEL     1311
                                                  SA=BK  A2,=XS=TA0                                              SKEL     1312
                                                  SA=XB  A0,X2                                                   SKEL     1313
                                                  ENDF                                                           SKEL     1314
                                                                                                                 SKEL     1315
                                         FUNT     SUBSKEL                  FUNCTION ENTRY CODE                   SKEL     1316
                                                  CALL   FUNT                                                    SKEL     1317
                                                  SA=BK  A4,=XS=VALUE                                            SKEL     1318
                                                  XMT    X6,X4                                                   SKEL     1319
                                                  BRANCH TMENT1            TERMINATE MAIN ENTRY                  SKEL     1320
                                                  ENDS                                                           SKEL     1321
                                                                                                                 SKEL     1322
                                         DFENT    SUBSKEL                  DOUBLE PRECISION CODE                 SKEL     1323
                                                  SA=BK  A4,=XS=VALUE                                            SKEL     1324
                                                  SA=AK  A3,A4,+1                                                SKEL     1325
                                                  XMT    X6,X4                                                   SKEL     1326
                                                  ILS    X7,,X3                                                  SKEL     1327
                                                  ENDF                                                           SKEL     1328
                                                                                                                 SKEL     1329
                                         TMENT    SUBSKEL                  TERMINATE MAIN ENTRY CODE             SKEL     1330
                                         TMENT1   LABL   =XS=ENTRY                                               SKEL     1331
                                                  UJP    =XS=ENTRY         RETURN ADDRESS WORD                   SKEL     1332
                                                  CALL   FPHDR       PROCESS HEADER INITIAL CODE                 F2950F5A   11
                                                  CALL   FINX                                                    SKEL     1334
                                                  ENDS                                                           SKEL     1335
                                                                                                                 SKEL     1336
                                        *         ALTERNATE ENTRY SUBSKELS                                       SKEL     1337
                                                                                                                 SKEL     1338
                                         ALENT    SUBSKEL                  STANDARD ALT-ENTRY CODE               SKEL     1339
                                                  LABL   GP1               GP1 IS ALENT TAG                      SKEL     1340
                                                  UJP    GP1                                                     SKEL     1341
                                                  SA=BK  A4,GP1                                                  SKEL     1342
                                                  XMT    X6,X4                                                   SKEL     1343
                                                  SA=BK  A6,=XS=ENTRY      STORE RETURN ADDR IN ENTRY/EXIT       SKEL     1344
                                                  CALL   FPENT                                                   SKEL     1345
                                                  ENDF                                                           SKEL     1346
                                                                                                                 SKEL     1347
                                        *         FP CODE CAN SANDWICH IN HERE.                                  SKEL     1348
                                                                                                                 SKEL     1349
                                         TENT     SUBSKEL                  TERMINATE ALT ENT CODE                SKEL     1350
                                                  UJP    GP2               (GP2) = ENTRY GENERATED LABEL         SKEL     1351
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    56
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       ENTRY.
  
                                                  CALL   GENTX             LOOP FOR NEXT ENTRY                   SKEL     1352
                                                  BRANCH PROS.M            GENTERAT MAIN ENTRY CODE              SKEL     1353
                                                  ENDS                                                           SKEL     1354
                                                                                                                 SKEL     1355
                                                                                                                 SKEL     1356
                                                                                                                 SKEL     1357
                                         #CD      ENDIF                                                          SKEL     1358
  
  
  
  
                                        **        IL STRUCTURE AND BOILER-PLATE.                                 SKEL     1360
                                                                                                                 SKEL     1361
                                                                                                                 SKEL     1362
                                         SEG      SKEL                                                           SKEL     1363
                                                  CALLC  SEG                                                     SKEL     1364
          1172 0                                  ENDS                                                           SKEL     1365
                                                                                                                 SKEL     1366
                                         NOOP     SKEL   ILL                                                     SKEL     1367
                                                  CALLQ  NOOP                                                    SKEL     1368
          1173 0                                  ENDS                                                           SKEL     1369
                                                                                                                 SKEL     1370
                                         HDR      SKEL                         BEGIN NEW PROGRAM-UNIT            SKEL     1371
                                                  CALL   HDR                                                     SKEL     1372
          1173 0                                  ENDS                                                           SKEL     1373
                                                                                                                 SKEL     1374
                                         FILE     SKEL                                                           SKEL     1375
                                                  CALL   GFD         GENERATE FILE DECLARATION                   SKEL     1376
          1174 0                                  ENDS                                                           SKEL     1377
                                                                                                                 SKEL     1378
                                         PLIM     SKEL                     END OF FILE DECLARATIONS              SKEL     1379
                                                  CALL   PLIM                                                    SKEL     1380
          1175 0                                  ENDS                                                           SKEL     1381
                                                                                                                 SKEL     1382
                                         SEX      SKEL                         START OF EXECUTABLES              SKEL     1383
                                                  CALL   SEX                                                     SKEL     1384
          1176 0                                  ENDS                                                           SKEL     1385
                                                                                                                 SKEL     1386
                                         CDLOO    SKEL               OBJECT LIST ON/OFF                          SKEL     1387
                                                  CALL   CDLOO                                                   SKEL     1388
          1177 0                                  ENDS                                                           SKEL     1389
                                                                                                                 SKEL     1390
                                         CDDOT    SKEL               ZERO/ONE-TRIP DO                            SKEL     1391
                                                  CALL   CDDOT                                                   SKEL     1392
          1200 0                                  ENDS                                                           SKEL     1393
                                                                                                                 SKEL     1394
                                         CDCS     SKEL               USER/FIXED COLLATE                          SKEL     1395
                                                  CALL   CDCS                                                    SKEL     1396
          1201 0                                  ENDS                                                           SKEL     1397
                                                                                                                 SKEL     1398
                                         DATA     SKEL               DATA TABLE INFO                             SKEL     1399
                                                  CALL   DATA                                                    SKEL     1400
          1202 0                                  ENDS                                                           SKEL     1401
                                                                                                                 SKEL     1402
                                         FIN      SKEL                         END OF IL                         SKEL     1403
                                                  CALLQ  CDW                                                     SKEL     1404
                                                  CALLQ  CAR                                                     SKEL     1405
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    57
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       HDR 
  
                                                  CALL   FIN                                                     SKEL     1406
          1203 0                                  ENDS                                                           SKEL     1407
                                                                                                                 SKEL     1408
                                         LCC      SKEL                         LOADER CONTROL CARD               SKEL     1409
                                                  CALL   LCC                                                     SKEL     1410
          1204 0                                  ENDS                                                           SKEL     1411
                                                                                                                 SKEL     1412
                                         DVI      SKEL                                                           SKEL     1413
                                                  CALL   ILL                                                     SKEL     1414
          1205 0                                  ENDS                                                           SKEL     1415
                                                                                                                 SKEL     1416
                                         EXP.I    SKEL               I**J FOR DATA                               SKEL     1417
                                                  CALL   ILL                                                     SKEL     1418
          1206 0                                  ENDS                                                           SKEL     1419
                                                                                                                 SKEL     1420
                                         DOBD2    SKEL                                                           SKEL     1421
                                                  CALLQ  NOOP                                                    SKEL     1422
          1207 0                                  ENDS                                                           SKEL     1423
  
  
  
  
                                        *         *IF* INSTRUCTION SKELETONS.                                    SKEL     1425
                                                                                                                 SKEL     1426
                                                                                                                 SKEL     1427
                                         IFI123   SKEL                                                           SKEL     1428
                                                  XMT    T1,L1                                                   FC5A164     9
                                                  ZR     T1,"N2"                                                 FC5A164    10
                                                  PL     T1,"N3"                                                 FC5A164    11
                                                                                                                 SKEL     1431
                                                  UJP    "N1"                                                    SKEL     1432
                                                  CALLC  IF,3                                                    SKEL     1433
          1207 0                                  ENDS                                                           SKEL     1434
                                                                                                                 SKEL     1435
                                         IFI122   SKEL                                                           SKEL     1436
                                                  CLR    T1                                                      SKEL     1437
                                                  IAZ    T2,T1,L1                                                SKEL     1438
                                                  PL     T2,"N2"                                                 SKEL     1439
                                                  UJP    "N1"                                                    SKEL     1440
                                                  CALLC  IF,2                                                    SKEL     1441
          1214 0                                  ENDS                                                           SKEL     1442
                                                                                                                 SKEL     1443
                                         IFR122   SKEL                                                           SKEL     1444
                                                  PNR    T1,0,L1                                                 SKEL     1445
                                                  PL     T1,"N2"                                                 SKEL     1446
                                                  UJP    "N1"                                                    SKEL     1447
                                                  CALLC  IF,2                                                    SKEL     1448
          1221 0                                  ENDS                                                           SKEL     1449
                                                                                                                 SKEL     1450
                                         IFI113   SKEL                                                           SKEL     1451
                                                  CLR    T1                                                      SKEL     1452
                                                  ISZ    T2,T1,L1                                                SKEL     1453
                                                  PL     T2,"N1"                                                 SKEL     1454
                                                  UJP    "N3"                                                    SKEL     1455
                                                  CALLC  IF,2                                                    SKEL     1456
          1225 0                                  ENDS                                                           SKEL     1457
                                                                                                                 SKEL     1458
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    58
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                         IFR113   SKEL                                                           SKEL     1459
                                                  XMTC   T1,L1                                                   SKEL     1460
                                                  PNR    T2,0,T1                                                 SKEL     1461
                                                  PL     T2,"N1"                                                 SKEL     1462
                                                  UJP    "N3"                                                    SKEL     1463
                                                  CALLC  IF,2                                                    SKEL     1464
          1232 0                                  ENDS                                                           SKEL     1465
                                                                                                                 SKEL     1466
                                         IFI121   SKEL                                                           SKEL     1467
                                                  ZR     L1,"N2"                                                 SKEL     1468
                                                  UJP    "N1"                                                    SKEL     1469
                                                  CALLC  IF,2                                                    SKEL     1470
          1237 0                                  ENDS                                                           SKEL     1471
                                                                                                                 SKEL     1472
                                         IFIN23   SKEL                                                           SKEL     1473
                                                  XMT    T1,L1                                                   FC5A164    12
                                                  ZR     T1,"N2"                                                 FC5A164    13
                                                  PL     T1,"N3"                                                 FC5A164    14
                                                  CALLC  IF,2                                                    SKEL     1476
          1242 0                                  ENDS                                                           SKEL     1477
                                                                                                                 SKEL     1478
                                         IFI1N3   SKEL                                                           SKEL     1479
                                                  CLR    T1                                                      SKEL     1480
                                                  IAZ    T2,T1,L1                                                SKEL     1481
                                                  MI     T2,"N1"                                                 SKEL     1482
                                                  NZ     T2,"N3"                                                 SKEL     1483
                                                  CALLC  IF,2                                                    SKEL     1484
          1246 0                                  ENDS                                                           SKEL     1485
                                                                                                                 SKEL     1486
                                         IFR1N3   SKEL                                                           SKEL     1487
                                                  PNR    T1,0,L1                                                 SKEL     1488
                                                  MI     T1,"N1"                                                 SKEL     1489
                                                  NZ     T1,"N3"                                                 SKEL     1490
                                                  CALLC  IF,2                                                    SKEL     1491
          1253 0                                  ENDS                                                           SKEL     1492
                                                                                                                 SKEL     1493
                                         IFI12N   SKEL                                                           SKEL     1494
                                                  XMT    T1,L1                                                   FC5A164    15
                                                  ZR     T1,"N2"                                                 FC5A164    16
                                                  MI     T1,"N1"                                                 FC5A164    17
                                                  CALLC  IF,2                                                    SKEL     1497
          1257 0                                  ENDS                                                           SKEL     1498
                                                                                                                 SKEL     1499
                                         IFIN22   SKEL                                                           SKEL     1500
                                                  CLR    T1                                                      SKEL     1501
                                                  IAZ    T2,T1,L1                                                SKEL     1502
                                                  PL     T2,"N2"                                                 SKEL     1503
                                                  CALLC  IF,1                                                    SKEL     1504
          1263 0                                  ENDS                                                           SKEL     1505
                                                                                                                 SKEL     1506
                                         IFRN22   SKEL                                                           SKEL     1507
                                                  PNR    T1,0,L1                                                 SKEL     1508
                                                  PL     T1,"N2"                                                 SKEL     1509
                                                  CALLC  IF,1                                                    SKEL     1510
          1267 0                                  ENDS                                                           SKEL     1511
                                                                                                                 SKEL     1512
                                         IFI1NN   SKEL                                                           SKEL     1513
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    59
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                                  CLR    T1                                                      SKEL     1514
                                                  IAZ    T2,T1,L1                                                SKEL     1515
                                                  MI     T2,"N1"                                                 SKEL     1516
                                                  CALLC  IF,1                                                    SKEL     1517
          1272 0                                  ENDS                                                           SKEL     1518
                                                                                                                 SKEL     1519
                                         IFR1NN   SKEL                                                           SKEL     1520
                                                  PNR    T1,0,L1                                                 SKEL     1521
                                                  MI     T1,"N1"                                                 SKEL     1522
                                                  CALLC  IF,1                                                    SKEL     1523
          1276 0                                  ENDS                                                           SKEL     1524
                                                                                                                 SKEL     1525
                                         IFINN3   SKEL                                                           SKEL     1526
                                                  CLR    T1                                                      SKEL     1527
                                                  ISZ    T2,T1,L1                                                SKEL     1528
                                                  MI     T2,"N3"                                                 SKEL     1529
                                                  CALLC  IF,1                                                    SKEL     1530
          1301 0                                  ENDS                                                           SKEL     1531
                                                                                                                 SKEL     1532
                                         IFRNN3   SKEL                                                           SKEL     1533
                                                  XMTC   T1,L1                                                   SKEL     1534
                                                  PNR    T2,0,T1                                                 SKEL     1535
                                                  MI     T2,"N3"                                                 SKEL     1536
                                                  CALLC  IF,1                                                    SKEL     1537
          1305 0                                  ENDS                                                           SKEL     1538
                                                                                                                 SKEL     1539
                                         IFI11N   SKEL                                                           SKEL     1540
                                                  CLR    T1                                                      SKEL     1541
                                                  ISZ    T2,T1,L1                                                SKEL     1542
                                                  PL     T2,"N1"                                                 SKEL     1543
                                                  CALLC  IF,1                                                    SKEL     1544
          1311 0                                  ENDS                                                           SKEL     1545
                                                                                                                 SKEL     1546
                                         IFR11N   SKEL                                                           SKEL     1547
                                                  XMTC   T1,L1                                                   SKEL     1548
                                                  PNR    T2,0,T1                                                 SKEL     1549
                                                  PL     T2,"N1"                                                 SKEL     1550
                                                  CALLC  IF,1                                                    SKEL     1551
          1315 0                                  ENDS                                                           SKEL     1552
                                                                                                                 SKEL     1553
                                         IFIN2N   SKEL                                                           SKEL     1554
                                                  ZR     L1,"N2"                                                 SKEL     1555
                                                  CALLC  IF,1                                                    SKEL     1556
          1321 0                                  ENDS                                                           SKEL     1557
                                                                                                                 SKEL     1558
                                         IFI1N1   SKEL                                                           SKEL     1559
                                                  NZ     L1,"N1"                                                 SKEL     1560
                                                  CALLC  IF,1                                                    SKEL     1561
          1323 0                                  ENDS                                                           SKEL     1562
                                                                                                                 SKEL     1563
                                                                                                                 SKEL     1564
                                                                                                                 SKEL     1565
                                         IFIFT    SKEL               JUMP TO ("N3") IF (L1) TRUE                 SKEL     1566
                                                  MI     L1,"N3"                                                 SKEL     1567
                                                  CALLC  IF,1                                                    SKEL     1568
          1325 0                                  ENDS                                                           SKEL     1569
                                                                                                                 SKEL     1570
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    60
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                         IFIFF    SKEL               JUMP TO ("N3") IF (L1) FALSE                SKEL     1571
                                                  PL     L1,"N3"                                                 SKEL     1572
                                                  CALLC  IF,1                                                    SKEL     1573
          1327 0                                  ENDS                                                           SKEL     1574
                                                                                                                 SKEL     1575
                                         IFI111   SKEL                                                           SKEL     1576
                                                  UJP    P2                                                      SKEL     1577
                                                  CALLC  PGT                                                     SKEL     1578
          1331 0                                  ENDS                                                           SKEL     1579
                                                                                                                 SKEL     1580
                                        *         IF SKELETON EQUIVALENTS.                                       SKEL     1581
                                                                                                                 SKEL     1582
                                        *         REAL                                                           SKEL     1583
                                                                                                                 SKEL     1584
                                         IFRN2N   SKEQU  IFIN2N                                                  SKEL     1585
                                         IFRN23   SKEQU  IFIN23                                                  SKEL     1586
                                         IFR111   SKEQU  IFI111                                                  SKEL     1587
                                         IFR12N   SKEQU  IFI12N                                                  SKEL     1588
                                         IFR123   SKEQU  IFI123                                                  SKEL     1589
                                                                                                                 SKEL     1590
                                        *         DOUBLE PRECISION                                               SKEL     1591
                                                                                                                 SKEL     1592
                                         IFDNN3   SKEQU  IFRNN3                                                  SKEL     1593
                                         IFDN2N   SKEQU  IFIN2N                                                  SKEL     1594
                                         IFDN22   SKEQU  IFRN22                                                  SKEL     1595
                                         IFDN23   SKEQU  IFIN23                                                  SKEL     1596
                                         IFD1NN   SKEQU  IFR1NN                                                  SKEL     1597
                                         IFD1N3   SKEQU  IFR1N3                                                  SKEL     1598
                                         IFD11N   SKEQU  IFR11N                                                  SKEL     1599
                                         IFD113   SKEQU  IFR113                                                  SKEL     1600
                                         IFD111   SKEQU  IFI111                                                  SKEL     1601
                                         IFD12N   SKEQU  IFI12N                                                  SKEL     1602
                                         IFD122   SKEQU  IFR122                                                  SKEL     1603
                                         IFD123   SKEQU  IFI123                                                  SKEL     1604
                                                                                                                 SKEL     1605
                                                                                                                 SKEL     1606
                                        *         IF(ONE RELATIONAL) SKELETONS.                                  SKEL     1607
                                        *         THESE MUST BE DEFINED IN PAIRS (EQ/NE OR LT/GE).               SKEL     1608
                                                                                                                 SKEL     1609
                                         IEQ.I    SKEL                                                           SKEL     1610
                                                  IS     T1,L1,L2                                                SKEL     1611
                                                  ZR     T1,"N3"                                                 SKEL     1612
                                                  CALLC  IF,1                                                    SKEL     1613
          1333 0                                  ENDS                                                           SKEL     1614
                                                                                                                 SKEL     1615
                                         IEQ.R    SKEL                                                           SKEL     1616
                                                  FSR    T1,L1,L2                                                SKEL     1617
                                                  NR     T2,,T1                                                  SKEL     1618
                                                  ZR     T2,"N3"                                                 SKEL     1619
                                                  CALLC  IF,1                                                    SKEL     1620
          1336 0                                  ENDS                                                           SKEL     1621
                                                                                                                 SKEL     1622
                                         IEQ.D    SKEL                                                           SKEL     1623
                                                  FSR    T1,LU1,LU2                                              SKEL     1624
                                                  PNR    T2,,T1                                                  SKEL     1625
                                                  FSR    T3,LL1,LL2                                              SKEL     1626
                                                  PNR    T4,,T3                                                  SKEL     1627
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    61
        SKEL - INSTRUCTION SKELETON EXPANSIONS.                       IF
  
                                                  OR     T5,T2,T4                                                SKEL     1628
                                                  ZR     T5,"N3"                                                 SKEL     1629
                                                  CALLC  IF,1                                                    SKEL     1630
          1342 0                                  ENDS                                                           SKEL     1631
                                                                                                                 SKEL     1632
                                         IEQ.C    SKEL                                                           SKEL     1633
                                                  FSR    T1,LU1,LU2                                              SKEL     1634
                                                  PNR    T2,,T1                                                  SKEL     1635
                                                  FSR    T3,LL1,LL2                                              SKEL     1636
                                                  PNR    T4,,T3                                                  SKEL     1637
                                                  OR     T5,T2,T4                                                SKEL     1638
                                                  CLR    T6                                                      SKEL     1639
                                                  ISZ    T7,T6,T5                                                SKEL     1640
                                                  EQV    T8,T7,T5                                                FC50237     6
                                                  MI     T8,"N3"                                                 SKEL     1642
                                                  CALLC  IF,1                                                    SKEL     1643
          1351 0                                  ENDS                                                           SKEL     1644
                                                                                                                 SKEL     1645
                                         INE.I    SKEL                                                           SKEL     1646
                                                  IS     T1,L1,L2                                                SKEL     1647
                                                  NZ     T1,"N3"                                                 SKEL     1648
                                                  CALLC  IF,1                                                    SKEL     1649
          1363 0                                  ENDS                                                           SKEL     1650
                                                                                                                 SKEL     1651
                                         INE.R    SKEL                                                           SKEL     1652
                                                  FSR    T1,L1,L2                                                SKEL     1653
                                                  NR     T2,,T1                                                  SKEL     1654
                                                  NZ     T2,"N3"                                                 SKEL     1655
                                                  CALLC  IF,1                                                    SKEL     1656
          1366 0                                  ENDS                                                           SKEL     1657
                                                                                                                 SKEL     1658
                                         INE.D    SKEL                                                           SKEL     1659
                                                  FSR    T1,LU1,LU2                                              SKEL     1660
                                                  PNR    T2,,T1                                                  SKEL     1661
                                                  FSR    T3,LL1,LL2                                              SKEL     1662
                                                  PNR    T4,,T3                                                  SKEL     1663
                                                  OR     T5,T2,T4                                                SKEL     1664
                                                  NZ     T5,"N3"                                                 SKEL     1665
                                                  CALLC  IF,1                                                    SKEL     1666
          1372 0                                  ENDS                                                           SKEL     1667
                                                                                                                 SKEL     1668
                                         INE.C    SKEL                                                           SKEL     1669
                                                  FSR    T1,LU1,LU2                                              SKEL     1670
                                                  NR     T2,,T1                                                  SKEL     1671
                                                  FSR    T3,LL1,LL2                                              SKEL     1672
                                                  NR     T4,,T3                                                  SKEL     1673
                                                  NZ     T2,"N3"                                                 SKEL     1674
                                                  NZ     T4,"N3"                                                 SKEL     1675
                                                  CALLC  IF,2                                                    SKEL     1676
          1401 0                                  ENDS                                                           SKEL     1677
                                                                                                                 SKEL     1678
                                                                                                                 SKEL     1679
                                         SKEL     ENDX                                                           SKEL     1680
                                                                                                                 COMFSKL   717
                                        **        SKELETON TABLE TERMINATOR WORD                                 COMFSKL   718
                                                                                                                 COMFSKL   719
          1410  00000000000000000000     SKEND    CONENT 0                                                       COMFSKL   720
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    62
        SKELETON CONTROL TABLE.                                       SCT 
  
                                        **        SCT - SKELETON CONTROL TABLE.                                  COMFSKL   723
                                        *                                                                        COMFSKL   724
                                        *         THE SCT ACTUALLY CONSISTS OF TWO VECTORS --                    COMFSKL   725
                                        *         (F.SKCR) FOR FRONT END = ADDRESS OF CONRED PROCESSOR.          COMFSKL   726
                                        *         (F.SCT) FOR GEN = WORD INDEX OF SKEL BEGINNING.                COMFSKL   727
                                        *                                                                        COMFSKL   728
                                        *         IN QCG, BOTH OF THESE FIT INTO THE SAME WORD.                  COMFSKL   729
                                                                                                                 COMFSKL   730
                                                                                                                 COMFSKL   731
                                                  LIST   G,D                                                     COMFSKL   732
                                                  USE    SCT                                                     COMFSKL   733
          1716                           F.SCT    BSSENT             FWA SKEL BEGIN INDEX VECTOR                 COMFSKL   734
          1716                           F.SCT BSS                                                              BSSENT  .1
          1716                           F.SKCR   BSSENT             FWA SKEL CONSTANT REDUCTION VECTOR          COMFSKL   735
          1716                           F.SKCR BSS                                                             BSSENT  .1
      L      0                                    LOC    0                                                       COMFSKL   736
                                         SCT      HERE                                                           COMFSKL   737
      L      0  00000000000000 X         V=ILL    VFD 6/0,18/W=ILL,18/=YD=ILL,18/U=ILL                          SCT     .1
                              000000
      L      1  00000001000000 X         V=ADD.I  VFD 6/0,18/W=ADD.I,18/=YD=ADD.I,18/U=ADD.I                    SCT     .1
                              000001
      L      2  00000002000000 X         V=ADD.R  VFD 6/0,18/W=ADD.R,18/=YD=ADD.R,18/U=ADD.R                    SCT     .1
                              000002
      L      3  00000004000000 X         V=ADD.D  VFD 6/0,18/W=ADD.D,18/=YD=ADD.D,18/U=ADD.D                    SCT     .1
                              000004
      L      4  00000017000000 X         V=ADD.C  VFD 6/0,18/W=ADD.C,18/=YD=ADD.C,18/U=ADD.C                    SCT     .1
                              000017
      L      5  00000023000000 X         V=SUB.I  VFD 6/0,18/W=SUB.I,18/=YD=SUB.I,18/U=SUB.I                    SCT     .1
                              000023
      L      6  00000024000000 X         V=SUB.R  VFD 6/0,18/W=SUB.R,18/=YD=SUB.R,18/U=SUB.R                    SCT     .1
                              000024
      L      7  00000026000000 X         V=SUB.D  VFD 6/0,18/W=SUB.D,18/=YD=SUB.D,18/U=SUB.D                    SCT     .1
                              000026
      L     10  00000032000000 X         V=SUB.C  VFD 6/0,18/W=SUB.C,18/=YD=SUB.C,18/U=SUB.C                    SCT     .1
                              000032
      L     11  00000036000000 X         V=MUL.I  VFD 6/0,18/W=MUL.I,18/=YD=MUL.I,18/W=IMVC                     SCT     .1
                              000037
      L     12  00000065000000 X         V=MUL.R  VFD 6/0,18/W=MUL.R,18/=YD=MUL.R,18/U=MUL.R                    SCT     .1
                              000065
      L     13  00000066000000 X         V=MUL.D  VFD 6/0,18/W=MUL.D,18/=YD=MUL.D,18/U=MUL.D                    SCT     .1
                              000066
      L     14  00000076000000 X         V=MUL.C  VFD 6/0,18/W=MUL.C,18/=YD=MUL.C,18/U=MUL.C                    SCT     .1
                              000076
      L     15  00000106000000 X         V=DIV.I  VFD 6/0,18/W=DIV.I,18/=YD=DIV.I,18/W=IDVC                     SCT     .1
                              000107
      L     16  00000120000000 X         V=DIV.R  VFD 6/0,18/W=DIV.R,18/=YD=DIV.R,18/U=DIV.R                    SCT     .1
                              000120
      L     17  00000121000000 X         V=DIV.D  VFD 6/0,18/W=DIV.D,18/=YD=DIV.D,18/U=DIV.D                    SCT     .1
                              000121
      L     20  00000142000000 X         V=DIV.C  VFD 6/0,18/W=DIV.C,18/=YD=DIV.C,18/U=DIV.C                    SCT     .1
                              000142
      L     21  00000160000000 X         V=DVC.R  VFD 6/0,18/W=DVC.R,18/=YD=DVC.R,18/U=DVC.R                    SCT     .1
                              000160
      L     22  00000162000000 X         V=DIR.R  VFD 6/0,18/W=DIR.R,18/=YD=DIR.R,18/U=DIR.R                    SCT     .1
                              000162
      L     23  00000163000000 X         V=DIR.C  VFD 6/0,18/W=DIR.C,18/=YD=DIR.C,18/U=DIR.C                    SCT     .1
                              000163
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    63
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
      L     24  00000201000000 X         V=UMI.I  VFD 6/0,18/W=UMI.I,18/=YD=UMI.I,18/U=UMI.I                    SCT     .1
                              000201
      L     25  00000202000000 X         V=UMI.D  VFD 6/0,18/W=UMI.D,18/=YD=UMI.D,18/U=UMI.D                    SCT     .1
                              000202
      L     26  00000204000000 X         V=LT.I   VFD 6/0,18/W=LT.I,18/=YD=LT.I,18/U=LT.I                       SCT     .1
                              000204
      L     27  00000207000000 X         V=LT.R   VFD 6/0,18/W=LT.R,18/=YD=LT.R,18/U=LT.R                       SCT     .1
                              000207
      L     30  00000211000000 X         V=LT.D   VFD 6/0,18/W=LT.D,18/=YD=LT.D,18/U=LT.D                       SCT     .1
                              000211
      L     31  00000217000000 X         V=LT.H   VFD 6/0,18/W=LT.H,18/=YD=LT.H,18/U=LT.H                       SCT     .1
                              000000
      L     32  00000221000000 X         V=LLT    VFD 6/0,18/W=LLT,18/=YD=LLT,18/U=LLT                          SCT     .1
                              000000
      L     33  00000223000000 X         V=GE.I   VFD 6/0,18/W=GE.I,18/=YD=GE.I,18/U=GE.I                       SCT     .1
                              000223
      L     34  00000227000000 X         V=GE.R   VFD 6/0,18/W=GE.R,18/=YD=GE.R,18/U=GE.R                       SCT     .1
                              000227
      L     35  00000232000000 X         V=GE.D   VFD 6/0,18/W=GE.D,18/=YD=GE.D,18/U=GE.D                       SCT     .1
                              000232
      L     36  00000241000000 X         V=GE.H   VFD 6/0,18/W=GE.H,18/=YD=GE.H,18/U=GE.H                       SCT     .1
                              000000
      L     37  00000244000000 X         V=LGE    VFD 6/0,18/W=LGE,18/=YD=LGE,18/U=LGE                          SCT     .1
                              000000
      L     40  00000246000000 X         V=NE.I   VFD 6/0,18/W=NE.I,18/=YD=NE.I,18/U=NE.I                       SCT     .1
                              000246
      L     41  00000253000000 X         V=NE.R   VFD 6/0,18/W=NE.R,18/=YD=NE.R,18/U=NE.R                       SCT     .1
                              000253
      L     42  00000260000000 X         V=NE.D   VFD 6/0,18/W=NE.D,18/=YD=NE.D,18/U=NE.D                       SCT     .1
                              000260
      L     43  00000273000000 X         V=NE.H   VFD 6/0,18/W=NE.H,18/=YD=NE.H,18/U=NE.H                       SCT     .1
                              000000
      L     44  00000300000000 X         V=LNE    VFD 6/0,18/W=LNE,18/=YD=LNE,18/U=LNE                          SCT     .1
                              000000
      L     45  00000302000000 X         V=EQ.I   VFD 6/0,18/W=EQ.I,18/=YD=EQ.I,18/U=EQ.I                       SCT     .1
                              000302
      L     46  00000307000000 X         V=EQ.R   VFD 6/0,18/W=EQ.R,18/=YD=EQ.R,18/U=EQ.R                       SCT     .1
                              000307
      L     47  00000314000000 X         V=EQ.D   VFD 6/0,18/W=EQ.D,18/=YD=EQ.D,18/U=EQ.D                       SCT     .1
                              000314
      L     50  00000327000000 X         V=EQ.H   VFD 6/0,18/W=EQ.H,18/=YD=EQ.H,18/U=EQ.H                       SCT     .1
                              000000
      L     51  00000334000000 X         V=LEQ    VFD 6/0,18/W=LEQ,18/=YD=LEQ,18/U=LEQ                          SCT     .1
                              000000
      L     52  00000336000000 X         V=STR.I  VFD 6/0,18/W=STR.I,18/=YD=STR.I,18/U=STR.I                    SCT     .1
                              000000
      L     53  00000337000000 X         V=STR.D  VFD 6/0,18/W=STR.D,18/=YD=STR.D,18/U=STR.D                    SCT     .1
                              000000
      L     54  00000342000000 X         V=STR.H  VFD 6/0,18/W=STR.H,18/=YD=STR.H,18/U=STR.H                    SCT     .1
                              000000
      L     55  00000343000000 X         V=CAT    VFD 6/0,18/W=CAT,18/=YD=CAT,18/U=CAT                          SCT     .1
                              000000
      L     56  00000344000000 X         V=COLON  VFD 6/0,18/W=COLON,18/=YD=COLON,18/U=COLON                    SCT     .1
                              000000
      L     57  00000345000000 X         V=SUBST  VFD 6/0,18/W=SUBST,18/=YD=SUBST,18/U=SUBST                    SCT     .1
                              000000
      L     60  00000346000000 X         V=ITOR   VFD 6/0,18/W=ITOR,18/=YD=ITOR,18/U=ITOR                       SCT     .1
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    64
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                              000346
      L     61  00000350000000 X         V=ITOB   VFD 6/0,18/W=ITOB,18/=YD=ITOB,18/U=ITOB                       SCT     .1
                              000350
      L     62  00000351000000 X         V=ITOD   VFD 6/0,18/W=ITOD,18/=YD=ITOD,18/U=ITOD                       SCT     .1
                              000351
      L     63  00000354000000 X         V=RTOI   VFD 6/0,18/W=RTOI,18/=YD=RTOI,18/U=RTOI                       SCT     .1
                              000354
      L     64  00000356000000 X         V=RTOD   VFD 6/0,18/W=RTOD,18/=YD=RTOD,18/U=RTOD                       SCT     .1
                              000356
      L     65  00000360000000 X         V=DTOC   VFD 6/0,18/W=DTOC,18/=YD=DTOC,18/U=DTOC                       SCT     .1
                              000360
      L     66  00000362000000 X         V=NOT.L  VFD 6/0,18/W=NOT.L,18/=YD=NOT.L,18/U=NOT.L                    SCT     .1
                              000362
      L     67  00000363000000 X         V=AND.L  VFD 6/0,18/W=AND.L,18/=YD=AND.L,18/U=AND.L                    SCT     .1
                              000363
      L     70  00000364000000 X         V=EQV.L  VFD 6/0,18/W=EQV.L,18/=YD=EQV.L,18/U=EQV.L                    SCT     .1
                              000364
      L     71  00000365000000 X         V=OR.L   VFD 6/0,18/W=OR.L,18/=YD=OR.L,18/U=OR.L                       SCT     .1
                              000365
      L     72  00000366000000 X         V=XOR.L  VFD 6/0,18/W=XOR.L,18/=YD=XOR.L,18/U=XOR.L                    SCT     .1
                              000366
      L     73  00000367000000 X         V=ABS    VFD 6/0,18/W=ABS,18/=YD=ABS,18/U=ABS                          SCT     .1
                              000367
      L     74  00000372000000 X         V=SUM1S  VFD 6/0,18/W=SUM1S,18/=YD=SUM1S,18/U=SUM1S                    SCT     .1
                              000372
      L     75  00000373000000 X         V=AIMAG  VFD 6/0,18/W=AIMAG,18/=YD=AIMAG,18/U=AIMAG                    SCT     .1
                              000373
      L     76  00000374000000 X         V=AINT   VFD 6/0,18/W=AINT,18/=YD=AINT,18/U=AINT                       SCT     .1
                              000374
      L     77  00000400000000 X         V=ANINT  VFD 6/0,18/W=ANINT,18/=YD=ANINT,18/U=ANINT                    SCT     .1
                              000400
      L    100  00000405000000 X         V=MAX0   VFD 6/0,18/W=MAX0,18/=YD=MAX0,18/U=MAX0                       SCT     .1
                              000405
      L    101  00000413000000 X         V=DMAX1  VFD 6/0,18/W=DMAX1,18/=YD=DMAX1,18/U=DMAX1                    SCT     .1
                              000413
      L    102  00000431000000 X         V=MIN0   VFD 6/0,18/W=MIN0,18/=YD=MIN0,18/U=MIN0                       SCT     .1
                              000431
      L    103  00000433000000 X         V=DMIN1  VFD 6/0,18/W=DMIN1,18/=YD=DMIN1,18/U=DMIN1                    SCT     .1
                              000433
      L    104  00000437000000 X         V=AMAX1  VFD 6/0,18/W=AMAX1,18/=YD=AMAX1,18/U=AMAX1                    SCT     .1
                              000437
      L    105  00000441000000 X         V=AMIN1  VFD 6/0,18/W=AMIN1,18/=YD=AMIN1,18/U=AMIN1                    SCT     .1
                              000441
      L    106  00000443000000 X         V=AMOD   VFD 6/0,18/W=AMOD,18/=YD=AMOD,18/U=AMOD                       SCT     .1
                              000443
      L    107  00000460000000 X         V=CONJG  VFD 6/0,18/W=CONJG,18/=YD=CONJG,18/U=CONJG                    SCT     .1
                              000460
      L    110  00000462000000 X         V=CMPLX  VFD 6/0,18/W=CMPLX,18/=YD=CMPLX,18/U=CMPLX                    SCT     .1
                              000462
      L    111  00000464000000 X         V=DABS   VFD 6/0,18/W=DABS,18/=YD=DABS,18/U=DABS                       SCT     .1
                              000464
      L    112  00000470000000 X         V=DDIM   VFD 6/0,18/W=DDIM,18/=YD=DDIM,18/U=DDIM                       SCT     .1
                              000470
      L    113  00000507000000 X         V=DIM    VFD 6/0,18/W=DIM,18/=YD=DIM,18/U=DIM                          SCT     .1
                              000507
      L    114  00000514000000 X         V=DINT   VFD 6/0,18/W=DINT,18/=YD=DINT,18/U=DINT                       SCT     .1
                              000514
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    65
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
      L    115  00000525000000 X         V=DPROD  VFD 6/0,18/W=DPROD,18/=YD=DPROD,18/U=DPROD                    SCT     .1
                              000525
      L    116  00000527000000 X         V=DNINT  VFD 6/0,18/W=DNINT,18/=YD=DNINT,18/U=DNINT                    SCT     .1
                              000527
      L    117  00000540000000 X         V=DSIGN  VFD 6/0,18/W=DSIGN,18/=YD=DSIGN,18/U=DSIGN                    SCT     .1
                              000540
      L    120  00000552000000 X         V=IDNIN  VFD 6/0,18/W=IDNIN,18/=YD=IDNIN,18/U=IDNIN                    SCT     .1
                              000552
      L    121  00000557000000 X         V=ISIGN  VFD 6/0,18/W=ISIGN,18/=YD=ISIGN,18/U=ISIGN                    SCT     .1
                              000557
      L    122  00000567000000 X         V=IDIM   VFD 6/0,18/W=IDIM,18/=YD=IDIM,18/U=IDIM                       SCT     .1
                              000567
      L    123  00000573000000 X         V=MASK   VFD 6/0,18/W=MASK,18/=YD=MASK,18/U=MASK                       SCT     .1
                              000000
      L    124  00000603000000 X         V=MOD    VFD 6/0,18/W=MOD,18/=YD=MOD,18/W=MODG                         SCT     .1
                              000604
      L    125  00000622000000 X         V=RANF   VFD 6/0,18/W=RANF,18/=YD=RANF,18/U=RANF                       SCT     .1
                              000000
      L    126  00000625000000 X         V=SHIFT  VFD 6/0,18/W=SHIFT,18/=YD=SHIFT,18/W=SHIFV                    SCT     .1
                              000626
      L    127  00000630000000 X         V=DOBS   VFD 6/0,18/W=DOBS,18/=YD=DOBS,18/U=DOBS                       SCT     .1
                              000000
      L    130  00000635000000 X         V=DOBL   VFD 6/0,18/W=DOBL,18/=YD=DOBL,18/U=DOBL                       SCT     .1
                              000000
      L    131  00000637000000 X         V=DOBZS  VFD 6/0,18/W=DOBZS,18/=YD=DOBZS,18/U=DOBZS                    SCT     .1
                              000000
      L    132  00000645000000 X         V=DOBZL  VFD 6/0,18/W=DOBZL,18/=YD=DOBZL,18/U=DOBZL                    SCT     .1
                              000000
      L    133  00000655000000 X         V=DOC.S  VFD 6/0,18/W=DOC.S,18/=YD=DOC.S,18/U=DOC.S                    SCT     .1
                              000000
      L    134  00000664000000 X         V=DOC.O  VFD 6/0,18/W=DOC.O,18/=YD=DOC.O,18/U=DOC.O                    SCT     .1
                              000000
      L    135  00000672000000 X         V=DOC.1  VFD 6/0,18/W=DOC.1,18/=YD=DOC.1,18/U=DOC.1                    SCT     .1
                              000000
      L    136  00000714000000 X         V=DOC.L  VFD 6/0,18/W=DOC.L,18/=YD=DOC.L,18/U=DOC.L                    SCT     .1
                              000000
      L    137  00000721000000 X         V=DOC.R  VFD 6/0,18/W=DOC.R,18/=YD=DOC.R,18/U=DOC.R                    SCT     .1
                              000000
      L    140  00000725000000 X         V=DOC.D  VFD 6/0,18/W=DOC.D,18/=YD=DOC.D,18/U=DOC.D                    SCT     .1
                              000000
      L    141  00000744000000 X         V=IOLC   VFD 6/0,18/W=IOLC,18/=YD=IOLC,18/U=IOLC                       SCT     .1
                              000000
      L    142  00000757000000 X         V=LCIF   VFD 6/0,18/W=LCIF,18/=YD=LCIF,18/U=LCIF                       SCT     .1
                              000000
      L    143  00000762000000 X         V=GOTO   VFD 6/0,18/W=GOTO,18/=YD=GOTO,18/U=GOTO                       SCT     .1
                              000000
      L    144  00000764000000 X         V=AGOTO  VFD 6/0,18/W=AGOTO,18/=YD=AGOTO,18/U=AGOTO                    SCT     .1
                              000000
      L    145  00000770000000 X         V=CGOTO  VFD 6/0,18/W=CGOTO,18/=YD=CGOTO,18/U=CGOTO                    SCT     .1
                              000000
      L    146  00001003000000 X         V=JGOTO  VFD 6/0,18/W=JGOTO,18/=YD=JGOTO,18/U=JGOTO                    SCT     .1
                              000000
      L    147  00001005000000 X         V=RGOTO  VFD 6/0,18/W=RGOTO,18/=YD=RGOTO,18/U=RGOTO                    SCT     .1
                              000000
      L    150  00001021000000 X         V=ASSGN  VFD 6/0,18/W=ASSGN,18/=YD=ASSGN,18/U=ASSGN                    SCT     .1
                              000000
      L    151  00001026000000 X         V=BSS    VFD 6/0,18/W=BSS,18/=YD=BSS,18/U=BSS                          SCT     .1
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    66
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                              000000
      L    152  00001027000000 X         V=ARY    VFD 6/0,18/W=ARY,18/=YD=ARY,18/U=ARY                          SCT     .1
                              000000
      L    153  00001030000000 X         V=GAP    VFD 6/0,18/W=GAP,18/=YD=GAP,18/U=GAP                          SCT     .1
                              000000
      L    154  00001031000000 X         V=FAP    VFD 6/0,18/W=FAP,18/=YD=FAP,18/U=FAP                          SCT     .1
                              000000
      L    155  00001032000000 X         V=IAP    VFD 6/0,18/W=IAP,18/=YD=IAP,18/U=IAP                          SCT     .1
                              000000
      L    156  00001033000000 X         V=APIOC  VFD 6/0,18/W=APIOC,18/=YD=APIOC,18/U=APIOC                    SCT     .1
                              000000
      L    157  00001034000000 X         V=APIOD  VFD 6/0,18/W=APIOD,18/=YD=APIOD,18/U=APIOD                    SCT     .1
                              000000
      L    160  00001035000000 X         V=APIOU  VFD 6/0,18/W=APIOU,18/=YD=APIOU,18/U=APIOU                    SCT     .1
                              000000
      L    161  00001137000000 X         V=SUBR   VFD 6/0,18/W=SUBR,18/=YD=SUBR,18/U=SUBR                       SCT     .1
                              000000
      L    162  00001140000000 X         V=FUNC   VFD 6/0,18/W=FUNC,18/=YD=FUNC,18/U=FUNC                       SCT     .1
                              000000
      L    163  00001141000000 X         V=LIBF   VFD 6/0,18/W=LIBF,18/=YD=LIBF,18/U=LIBF                       SCT     .1
                              000000
      L    164  00001142000000 X         V=INTF   VFD 6/0,18/W=INTF,18/=YD=INTF,18/U=INTF                       SCT     .1
                              000000
      L    165  00001143000000 X         V=IOSUB  VFD 6/0,18/W=IOSUB,18/=YD=IOSUB,18/U=IOSUB                    SCT     .1
                              000000
      L    166  00001151000000 X         V=ERR    VFD 6/0,18/W=ERR,18/=YD=ERR,18/U=ERR                          SCT     .1
                              000000
      L    167  00001152000000 X         V=STOP   VFD 6/0,18/W=STOP,18/=YD=STOP,18/U=STOP                       SCT     .1
                              000000
      L    170  00001154000000 X         V=PAUS   VFD 6/0,18/W=PAUS,18/=YD=PAUS,18/U=PAUS                       SCT     .1
                              000000
      L    171  00001155000000 X         V=RET    VFD 6/0,18/W=RET,18/=YD=RET,18/U=RET                          SCT     .1
                              000000
      L    172  00001157000000 X         V=RTNK   VFD 6/0,18/W=RTNK,18/=YD=RTNK,18/U=RTNK                       SCT     .1
                              000000
      L    173  00001163000000 X         V=GPL    VFD 6/0,18/W=GPL,18/=YD=GPL,18/U=GPL                          SCT     .1
                              001163
      L    174  00001167000000 X         V=ENTR   VFD 6/0,18/W=ENTR,18/=YD=ENTR,18/U=ENTR                       SCT     .1
                              000000
      L    175  00001170000000 X         V=BVD    VFD 6/0,18/W=BVD,18/=YD=BVD,18/U=BVD                          SCT     .1
                              000000
      L    176  00001171000000 X         V=EVD    VFD 6/0,18/W=EVD,18/=YD=EVD,18/U=EVD                          SCT     .1
                              000000
      L    177  00001172000000 X         V=SEG    VFD 6/0,18/W=SEG,18/=YD=SEG,18/U=SEG                          SCT     .1
                              000000
      L    200  00001173000000 X         V=NOOP   VFD 6/0,18/W=NOOP,18/=YD=NOOP,18/W=ILL                        SCT     .1
                              000000
      L    201  00001173000000 X         V=HDR    VFD 6/0,18/W=HDR,18/=YD=HDR,18/U=HDR                          SCT     .1
                              000000
      L    202  00001174000000 X         V=FILE   VFD 6/0,18/W=FILE,18/=YD=FILE,18/U=FILE                       SCT     .1
                              000000
      L    203  00001175000000 X         V=PLIM   VFD 6/0,18/W=PLIM,18/=YD=PLIM,18/U=PLIM                       SCT     .1
                              000000
      L    204  00001176000000 X         V=SEX    VFD 6/0,18/W=SEX,18/=YD=SEX,18/U=SEX                          SCT     .1
                              000000
      L    205  00001177000000 X         V=CDLOO  VFD 6/0,18/W=CDLOO,18/=YD=CDLOO,18/U=CDLOO                    SCT     .1
                              000000
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    67
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
      L    206  00001200000000 X         V=CDDOT  VFD 6/0,18/W=CDDOT,18/=YD=CDDOT,18/U=CDDOT                    SCT     .1
                              000000
      L    207  00001201000000 X         V=CDCS   VFD 6/0,18/W=CDCS,18/=YD=CDCS,18/U=CDCS                       SCT     .1
                              000000
      L    210  00001202000000 X         V=DATA   VFD 6/0,18/W=DATA,18/=YD=DATA,18/U=DATA                       SCT     .1
                              000000
      L    211  00001203000000 X         V=FIN    VFD 6/0,18/W=FIN,18/=YD=FIN,18/U=FIN                          SCT     .1
                              000000
      L    212  00001204000000 X         V=LCC    VFD 6/0,18/W=LCC,18/=YD=LCC,18/U=LCC                          SCT     .1
                              000000
      L    213  00001205000000 X         V=DVI    VFD 6/0,18/W=DVI,18/=YD=DVI,18/U=DVI                          SCT     .1
                              000000
      L    214  00001206000000 X         V=EXP.I  VFD 6/0,18/W=EXP.I,18/=YD=EXP.I,18/U=EXP.I                    SCT     .1
                              000000
      L    215  00001207000000 X         V=DOBD2  VFD 6/0,18/W=DOBD2,18/=YD=DOBD2,18/U=DOBD2                    SCT     .1
                              001207
      L    216  00001207000000 X         V=I123   VFD 6/0,18/W=I123,18/=YD=I123,18/U=I123                       SCT     .1
                              000000
      L    217  00001214000000 X         V=I122   VFD 6/0,18/W=I122,18/=YD=I122,18/U=I122                       SCT     .1
                              000000
      L    220  00001221000000 X         V=R122   VFD 6/0,18/W=R122,18/=YD=R122,18/U=R122                       SCT     .1
                              000000
      L    221  00001225000000 X         V=I113   VFD 6/0,18/W=I113,18/=YD=I113,18/U=I113                       SCT     .1
                              000000
      L    222  00001232000000 X         V=R113   VFD 6/0,18/W=R113,18/=YD=R113,18/U=R113                       SCT     .1
                              000000
      L    223  00001237000000 X         V=I121   VFD 6/0,18/W=I121,18/=YD=I121,18/U=I121                       SCT     .1
                              000000
      L    224  00001242000000 X         V=IN23   VFD 6/0,18/W=IN23,18/=YD=IN23,18/U=IN23                       SCT     .1
                              000000
      L    225  00001246000000 X         V=I1N3   VFD 6/0,18/W=I1N3,18/=YD=I1N3,18/U=I1N3                       SCT     .1
                              000000
      L    226  00001253000000 X         V=R1N3   VFD 6/0,18/W=R1N3,18/=YD=R1N3,18/U=R1N3                       SCT     .1
                              000000
      L    227  00001257000000 X         V=I12N   VFD 6/0,18/W=I12N,18/=YD=I12N,18/U=I12N                       SCT     .1
                              000000
      L    230  00001263000000 X         V=IN22   VFD 6/0,18/W=IN22,18/=YD=IN22,18/U=IN22                       SCT     .1
                              000000
      L    231  00001267000000 X         V=RN22   VFD 6/0,18/W=RN22,18/=YD=RN22,18/U=RN22                       SCT     .1
                              000000
      L    232  00001272000000 X         V=I1NN   VFD 6/0,18/W=I1NN,18/=YD=I1NN,18/U=I1NN                       SCT     .1
                              000000
      L    233  00001276000000 X         V=R1NN   VFD 6/0,18/W=R1NN,18/=YD=R1NN,18/U=R1NN                       SCT     .1
                              000000
      L    234  00001301000000 X         V=INN3   VFD 6/0,18/W=INN3,18/=YD=INN3,18/U=INN3                       SCT     .1
                              000000
      L    235  00001305000000 X         V=RNN3   VFD 6/0,18/W=RNN3,18/=YD=RNN3,18/U=RNN3                       SCT     .1
                              000000
      L    236  00001311000000 X         V=I11N   VFD 6/0,18/W=I11N,18/=YD=I11N,18/U=I11N                       SCT     .1
                              000000
      L    237  00001315000000 X         V=R11N   VFD 6/0,18/W=R11N,18/=YD=R11N,18/U=R11N                       SCT     .1
                              000000
      L    240  00001321000000 X         V=IN2N   VFD 6/0,18/W=IN2N,18/=YD=IN2N,18/U=IN2N                       SCT     .1
                              000000
      L    241  00001323000000 X         V=I1N1   VFD 6/0,18/W=I1N1,18/=YD=I1N1,18/U=I1N1                       SCT     .1
                              000000
      L    242  00001325000000 X         V=IFT    VFD 6/0,18/W=IFT,18/=YD=IFT,18/U=IFT                          SCT     .1
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    68
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                              000000
      L    243  00001327000000 X         V=IFF    VFD 6/0,18/W=IFF,18/=YD=IFF,18/U=IFF                          SCT     .1
                              000000
      L    244  00001331000000 X         V=I111   VFD 6/0,18/W=I111,18/=YD=I111,18/U=I111                       SCT     .1
                              000000
      L    245  00001333000000 X         V=IEQ.I  VFD 6/0,18/W=IEQ.I,18/=YD=IEQ.I,18/U=IEQ.I                    SCT     .1
                              000000
      L    246  00001336000000 X         V=IEQ.R  VFD 6/0,18/W=IEQ.R,18/=YD=IEQ.R,18/U=IEQ.R                    SCT     .1
                              000000
      L    247  00001342000000 X         V=IEQ.D  VFD 6/0,18/W=IEQ.D,18/=YD=IEQ.D,18/U=IEQ.D                    SCT     .1
                              000000
      L    250  00001351000000 X         V=IEQ.C  VFD 6/0,18/W=IEQ.C,18/=YD=IEQ.C,18/U=IEQ.C                    SCT     .1
                              000000
      L    251  00001363000000 X         V=INE.I  VFD 6/0,18/W=INE.I,18/=YD=INE.I,18/U=INE.I                    SCT     .1
                              000000
      L    252  00001366000000 X         V=INE.R  VFD 6/0,18/W=INE.R,18/=YD=INE.R,18/U=INE.R                    SCT     .1
                              000000
      L    253  00001372000000 X         V=INE.D  VFD 6/0,18/W=INE.D,18/=YD=INE.D,18/U=INE.D                    SCT     .1
                              000000
      L    254  00001401000000 X         V=INE.C  VFD 6/0,18/W=INE.C,18/=YD=INE.C,18/U=INE.C                    SCT     .1
                              000000
      L    255                           Z.SCT    BSSENT             LENGTH OF SKEL VECTOR                       COMFSKL   738
      L    255                           Z.SCT BSS                                                              BSSENT  .1
      L    255                           Z.SKCR   BSSENT             LENGTH OF C.R. VECTOR                       COMFSKL   739
      L    255                           Z.SKCR BSS                                                             BSSENT  .1
          2173                                    LOC    *O                                                      COMFSKL   740
                                   0     1        ERRNZ  COUNT-Z.SCT                                             COMFSKL   741
                                                                                                                 COMFSKL   742
                                         VEQU     HERE                                                           COMFSKL   743
                                   1     V=ADD.B   EQU    V=ADD.I                                               VEQU    .1
                                   5     V=SUB.B   EQU    V=SUB.I                                               VEQU    .1
                                  11     V=MUL.B   EQU    V=MUL.I                                               VEQU    .1
                                  15     V=DIV.B   EQU    V=DIV.I                                               VEQU    .1
                                  24     V=UMI.R   EQU    V=UMI.I                                               VEQU    .1
                                  25     V=UMI.C   EQU    V=UMI.D                                               VEQU    .1
                                  26     V=LT.B   EQU    V=LT.I                                                 VEQU    .1
                                  33     V=GE.B   EQU    V=GE.I                                                 VEQU    .1
                                  42     V=NE.C   EQU    V=NE.D                                                 VEQU    .1
                                  40     V=NE.B   EQU    V=NE.I                                                 VEQU    .1
                                  47     V=EQ.C   EQU    V=EQ.D                                                 VEQU    .1
                                  45     V=EQ.B   EQU    V=EQ.I                                                 VEQU    .1
                                  52     V=STR.R   EQU    V=STR.I                                               VEQU    .1
                                  53     V=STR.C   EQU    V=STR.D                                               VEQU    .1
                                  52     V=STR.B   EQU    V=STR.I                                               VEQU    .1
                                  62     V=ITOC   EQU    V=ITOD                                                 VEQU    .1
                                  64     V=RTOC   EQU    V=RTOD                                                 VEQU    .1
                                  61     V=RTOB   EQU    V=ITOB                                                 VEQU    .1
                                  63     V=DTOI   EQU    V=RTOI                                                 VEQU    .1
                                  61     V=DTOR   EQU    V=ITOB                                                 VEQU    .1
                                  61     V=DTOB   EQU    V=DTOR                                                 VEQU    .1
                                  61     V=XMIT   EQU    V=ITOB                                                 VEQU    .1
                                  63     V=CTOI   EQU    V=DTOI                                                 VEQU    .1
                                  61     V=CTOR   EQU    V=DTOR                                                 VEQU    .1
                                  61     V=CTOB   EQU    V=CTOR                                                 VEQU    .1
                                  65     V=CTOD   EQU    V=DTOC                                                 VEQU    .1
                                  64     V=BTOD   EQU    V=RTOD                                                 VEQU    .1
                                  61     V=BTOR   EQU    V=ITOB                                                 VEQU    .1
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    69
        SKELETON CONTROL TABLE.                                       SCT       SCT 
  
                                  61     V=BTOI   EQU    V=ITOB                                                 VEQU    .1
                                  64     V=BTOC   EQU    V=RTOD                                                 VEQU    .1
                                  66     V=NOT.B   EQU    V=NOT.L                                               VEQU    .1
                                  67     V=AND.B   EQU    V=AND.L                                               VEQU    .1
                                  70     V=EQV.B   EQU    V=EQV.L                                               VEQU    .1
                                  71     V=OR.B   EQU    V=OR.L                                                 VEQU    .1
                                  72     V=XOR.B   EQU    V=XOR.L                                               VEQU    .1
                                  72     V=NEQV.   EQU    V=XOR.L                                               VEQU    .1
                                  72     V=NEQV.   EQU    V=XOR.L                                               VEQU    .1
                                 104     V=MAX1   EQU    V=AMAX1                                                VEQU    .1
                                 105     V=MIN1   EQU    V=AMIN1                                                VEQU    .1
                                 100     V=AMAX0   EQU    V=MAX0                                                VEQU    .1
                                 102     V=AMIN0   EQU    V=MIN0                                                VEQU    .1
                                  67     V=AND   EQU    V=AND.B                                                 VEQU    .1
                                  61     V=BOOL   EQU    V=ITOB                                                 VEQU    .1
                                  66     V=COMPL   EQU    V=NOT.B                                               VEQU    .1
                                  64     V=DBLE   EQU    V=RTOD                                                 VEQU    .1
                                  70     V=EQV   EQU    V=EQV.B                                                 VEQU    .1
                                  60     V=FLOAT   EQU    V=ITOR                                                VEQU    .1
                                  73     V=IABS   EQU    V=ABS                                                  VEQU    .1
                                  63     V=IDINT   EQU    V=RTOI                                                VEQU    .1
                                  63     V=IFIX   EQU    V=RTOI                                                 VEQU    .1
                                  63     V=INT   EQU    V=RTOI                                                  VEQU    .1
                                  72     V=NEQV   EQU    V=XOR.B                                                VEQU    .1
                                 120     V=NINT   EQU    V=IDNIN                                                VEQU    .1
                                  71     V=OR   EQU    V=OR.B                                                   VEQU    .1
                                  61     V=REAL   EQU    V=CTOR                                                 VEQU    .1
                                 121     V=SIGN   EQU    V=ISIGN                                                VEQU    .1
                                  61     V=SNGL   EQU    V=REAL                                                 VEQU    .1
                                  72     V=XOR   EQU    V=NEQV                                                  VEQU    .1
                                 167     V=PEND   EQU    V=STOP                                                 VEQU    .1
                                 240     V=RN2N   EQU    V=IN2N                                                 VEQU    .1
                                 224     V=RN23   EQU    V=IN23                                                 VEQU    .1
                                 244     V=R111   EQU    V=I111                                                 VEQU    .1
                                 227     V=R12N   EQU    V=I12N                                                 VEQU    .1
                                 216     V=R123   EQU    V=I123                                                 VEQU    .1
                                 235     V=DNN3   EQU    V=RNN3                                                 VEQU    .1
                                 240     V=DN2N   EQU    V=IN2N                                                 VEQU    .1
                                 231     V=DN22   EQU    V=RN22                                                 VEQU    .1
                                 224     V=DN23   EQU    V=IN23                                                 VEQU    .1
                                 233     V=D1NN   EQU    V=R1NN                                                 VEQU    .1
                                 226     V=D1N3   EQU    V=R1N3                                                 VEQU    .1
                                 237     V=D11N   EQU    V=R11N                                                 VEQU    .1
                                 222     V=D113   EQU    V=R113                                                 VEQU    .1
                                 244     V=D111   EQU    V=I111                                                 VEQU    .1
                                 227     V=D12N   EQU    V=I12N                                                 VEQU    .1
                                 220     V=D122   EQU    V=R122                                                 VEQU    .1
                                 216     V=D123   EQU    V=I123                                                 VEQU    .1
                                                  USE    *                                                       COMFSKL   744
                                                  LIST   *                                                       COMFSKL   745
                                                                                                                 COMFSKL   746
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    70
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER. 
  
          1411                                    CTEXT  PARSKEL - SKELETON SELECTION TABLES FOR PARSER.         PARSKEL     2
                                                                                                                 PARSKEL     3
                                                                                                                 PARSKEL     4
                                        **        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.                PARSKEL     5
                                        *                                                                        PARSKEL     6
                                        *         ALL TABLES NECESSARY FOR THE PARSER TO SELECT PARTICULAR       PARSKEL     7
                                        *         SKELETONS RESIDE IN THIS DECK BECAUSE RELATIVE ADDRESSES       PARSKEL     8
                                        *         ARE USED.                                                      PARSKEL     9
  
  
  
  
                                        **        EQUATES FOR PARSER.                                            PARSKEL    11
                                        *                                                                        PARSKEL    12
                                        *         FOLLOWING SYMBOLS MUST BE BASE SKELETON OF THE INDICATED       PARSKEL    13
                                        *         GROUP.  IT IS NOT ALWAYS POSSIBLE TO VERIFY THIS CONSTRAINT    PARSKEL    14
                                        *         AT ASSEMBLY TIME, ALTHOUGH IF THESE SYMBOLS ARE NOT SET        PARSKEL    15
                                        *         PROPERLY, THE COMILER WILL MALFUNCTION.                        PARSKEL    16
                                                                                                                 PARSKEL    17
                                                                                                                 PARSKEL    18
                                         OM=CONV  EQUENT V=ITOR-1    FIRST MODE CONVERSION SKELETON, -1          PARSKEL    19
                                         OM=IF    EQUENT V=I123      FIRST IF-SKELETON                           PARSKEL    20
                                         OM=INL   EQUENT OM=CONV     FIRST INLINE INTRINSIC                      PARSKEL    21
  
  
  
  
                                        **        DMOD - BUILD MODE SELECTION VECTOR.                            PARSKEL    23
                                        *                                                                        PARSKEL    24
                                        * TYPE    DMOD   B,L,I,R,D,C,H                                           PARSKEL    25
                                        *                                                                        PARSKEL    26
                                        *         ENTRY  TYPE = GENERIC NAME OF THE OPERATION.                   PARSKEL    27
                                        *                B, L, I, R, D, C = SUFFIX LETTER FOR TYPED OPERATION.   PARSKEL    28
                                        *                            = "-" IF ERROR.                             PARSKEL    29
                                        *                H = SUFFIX LETTER FOR TYPE CHARACTER OPERATION,         PARSKEL    30
                                        *                            OMITTED IF CHARACTER NOT PERMITTED.         PARSKEL    31
                                        *                                                                        PARSKEL    32
                                        *         NOTE THAT MODE SELECTION WORD DOES NOT HAVE SYMBOLIC           PARSKEL    33
                                        *         FIELD DESCRIPTIONS.  THE FORMAT IS INHERENT TO THE USING       PARSKEL    34
                                        *         ROUTINES.  SEE PAR/SDM, OMC.                                   PARSKEL    35
                                                                                                                 PARSKEL    36
                                                                                                                 PARSKEL    37
                                                  MACRO  DMOD,TYPE,U,L,I,R,D,C,H                                 PARSKEL    38
                                         E        MICRO                                                          PARSKEL    39
                                         F        SET    1S17                                                    PARSKEL    40
                                        *                                                                        PARSKEL    41
                                         .1       ECHO   ,P=(C,D,R,I,L,U)                                        PARSKEL    42
                                                  IFC    EQ,/P/-/,2                                              PARSKEL    43
                                         E        MICRO  1,,$"E"8/-0,$                                           PARSKEL    44
                                                  SKIP   2                                                       PARSKEL    45
                                         E        MICRO  1,,$"E"8/V=TYPE.P-F,$                                   PARSKEL    46
                                         F        MIN    F,V=TYPE.P                                              PARSKEL    47
                                         .1       ENDD                                                           PARSKEL    48
                                        *                            PASTE IT TOGETHER                           PARSKEL    49
                                         OM=TYPE  VFD    12/F,"E"                                                PARSKEL    50
                                                  IFC    NE,/H//,1                                               PARSKEL    51
                                                  VFD    42/0,18/V=TYPE.H                                        PARSKEL    52
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    71
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               DMOD
  
                                                  ENTRY  OM=TYPE                                                 PARSKEL    53
                                                  ENDM                                                           PARSKEL    54
                                                                                                                 PARSKEL    55
                                                                                                                 PARSKEL    56
                                        *                                  ARITHMETIC.                           PARSKEL    57
          1411  00010060100100177400     ADD      DMOD   I,-,I,R,D,C                                             PARSKEL    58
          1412  00050060100100177400     SUB      DMOD   I,-,I,R,D,C                                             PARSKEL    59
          1413  00110060100100177400     MUL      DMOD   I,-,I,R,D,C                                             PARSKEL    60
          1414  00150060100100177400     DIV      DMOD   I,-,I,R,D,C                                             PARSKEL    61
          1415  00240020040000177400     UMI      DMOD   I,-,I,R,D,C                                             PARSKEL    62
                                                                                                                 PARSKEL    63
                                        *                                  RELATIONS.                            PARSKEL    64
          1416  00267760100100177400     LT       DMOD   B,-,I,R,D,-,H                                           PARSKEL    65
          1420  00337760100100177400     GE       DMOD   B,-,I,R,D,-,H                                           PARSKEL    66
          1422  00400040100100177400     NE       DMOD   B,-,I,R,D,D,H                                           PARSKEL    67
          1424  00450040100100177400     EQ       DMOD   B,-,I,R,D,D,H                                           PARSKEL    68
                                                                                                                 PARSKEL    69
                                        *                                  MASKING / LOGICAL.                    PARSKEL    70
          1426  00660000000000000000     NOT      DMOD   B,L,B,B,B,B                                             PARSKEL    71
          1427  00670000000000000000     AND      DMOD   B,L,B,B,B,B                                             PARSKEL    72
          1430  00710000000000000000     OR       DMOD   B,L,B,B,B,B                                             PARSKEL    73
          1431  00700000000000000000     EQV      DMOD   B,L,B,B,B,B                                             PARSKEL    74
          1432  00720000000000000000     XOR      DMOD   B,L,B,B,B,B                                             PARSKEL    75
                                                                                                                 PARSKEL    76
                                        *                                  MISCELLEANEOUS.                       PARSKEL    77
          1433  00520020040000000000     STR      DMOD   I,I,I,I,D,D,H                                           PARSKEL    78
          1435  01337760240400177777     DOC      DMOD   -,-,S,R,D,-       SHORT LOOPS                           PARSKEL    79
      L   1435                                    LOC    OM=DOC                  ****  KLUDGE  ****              PARSKEL    80
      L   1435  01367760100100177777     DOC      DMOD   -,-,L,R,D,-       LONG LOOPS                            PARSKEL    81
          1437                                    LOC    *O                                                      PARSKEL    82
  
  
  
  
                                        **        MCTBL - GENERATE ONE ROW OF MODE CONVERSION MATRIX.            PARSKEL    84
                                        *                                                                        PARSKEL    85
                                        * TYPE    MCTBL  B,L,I,R,D,C                                             PARSKEL    86
                                                                                                                 PARSKEL    87
                                                                                                                 PARSKEL    88
                                                  MACRO  MCTBL,TYPE,B,L,I,R,D,Z,H                                PARSKEL    89
                                         E        MICRO                                                          PARSKEL    90
                                         .1       ECHO   ,P=(H,Z,D,R,I,L,B)                                      PARSKEL    91
                                                  IFC    EQ,/P/----/,2                                           PARSKEL    92
                                         E        MICRO  1,,$"E",8/-0$                                           PARSKEL    93
                                                  SKIP   5                                                       PARSKEL    94
                                                  IFC    EQ,/P/****/,2                                           PARSKEL    95
                                         E        MICRO  1,,$"E",8/0$                                            PARSKEL    96
                                                  SKIP   2                                                       PARSKEL    97
                                         R        ERRMI  V=P-OM=CONV       RE-ORDER SKELS                        PARSKEL    98
                                         E        MICRO  1,,$"E",8/V=P-OM=CONV$                                  PARSKEL    99
                                         .1       ENDD                                                           PARSKEL   100
                                        *                                                                        PARSKEL   101
                                         M.TYPE   VFD    4/0"E"                                                  PARSKEL   102
                                         MCTBL    ENDM                                                           PARSKEL   103
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    72
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               F.MODC
  
                                        **        F.MODC - MODE CONVERSION MATRIX.                               PARSKEL   105
                                        *                                                                        PARSKEL   106
                                        *         ROW (WORD) INDEXED BY TYPE OF OPERAND.                         PARSKEL   107
                                        *         COLUMN (BYTE) INDEXED BY DOMINANT MODE.                        PARSKEL   108
                                        *                                                                        PARSKEL   109
                                        *         ----  =>  ERROR.                                               PARSKEL   110
                                        *         ****  =>  OKAY, NO CONVERSION NEEDED.                          PARSKEL   111
                                        *         MTON  =>  OKAY = OFFSET OF MODE CONVERSION SKELETON.           PARSKEL   112
                                                                                                                 PARSKEL   113
                                                                                                                 PARSKEL   114
          1437                           F.MODC   BSSENT             ADDRESS OF TABLE                            PARSKEL   115
      L      0                                    LOC    0                                                       PARSKEL   116
                                        *                BOOL LOG  INT  REAL DBL  CPLX CHAR                      PARSKEL   117
      L      0  03770120240000177400     BOOL     MCTBL  ****,----,****,****,RTOD,RTOC,----                      PARSKEL   118
      L      1  03777777777777600377     LOG      MCTBL  ----,****,----,----,----,----,----                      PARSKEL   119
      L      2  03770060140100177400     INT      MCTBL  ****,----,****,ITOR,ITOD,ITOC,----                      PARSKEL   120
      L      3  03770120240001177400     REAL     MCTBL  ****,----,RTOI,****,RTOD,RTOC,----                      PARSKEL   121
      L      4  03770140000201177402     DBL      MCTBL  DTOR,----,DTOI,DTOR,****,DTOC,----                      PARSKEL   122
      L      5  03770000300201177402     CPLX     MCTBL  CTOR,----,CTOI,CTOR,CTOD,****,----                      PARSKEL   123
      L      6  00007777777777777777     CHAR     MCTBL  ----,----,----,----,----,----,****                      PARSKEL   124
      L                                  .T       IFEQ   TEST,ON,1                                               PARSKEL   125
                                         NONE     MCTBL  ----,----,----,----,----,----,----                      PARSKEL   126
          1446                                    LOC    *O                                                      PARSKEL   127
  
  
  
  
                                        **        F.IFT - TABLES FOR SELECTING IF SKELETON.                      PARSKEL   129
                                                                                                                 PARSKEL   130
                                                                                                                 PARSKEL   131
                                                  MACRO  IFTBL,PRE,B,L,I,R,D,C,H                                 PARSKEL   132
                                         E        MICRO                                                          PARSKEL   133
                                         .1       ECHO   ,P=(B,L,I,R,D,C,H)                                      PARSKEL   134
                                                  IFC    EQ,/P/-/,2                                              PARSKEL   135
                                         E        MICRO  1,,$"E"8/-1,$                                           PARSKEL   136
                                                  SKIP   2                                                       PARSKEL   137
                                         R        ERRMI  V=P_PRE-OM=IF     (IF_P_PRE) SKEL OUT OF ORDER          PARSKEL   138
                                         E        MICRO  1,,$"E"8/V=_P_PRE-OM=IF,$                               PARSKEL   139
                                         .1       ENDD                                                           PARSKEL   140
                                        *                                                                        PARSKEL   141
                                                  VFD    "E"*P/0                                                 PARSKEL   142
                                                  ENDM                                                           PARSKEL   143
                                                                                                                 PARSKEL   144
                                                                                                                 PARSKEL   145
                                        *                                  NEXT LABEL NOT REFERENCED.            PARSKEL   146
          1446                           F.IFS    BSSENT                                                         PARSKEL   147
          1446  00177000000003767740     123      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   148
          1447  00777003010023767740     113      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   149
          1450  00377001002013767740     122      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   150
          1451  01377005012027767740     121      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   151
                                                                                                                 PARSKEL   152
                                        *                                  NEXT LABEL REFERENCED ONCE.           PARSKEL   153
          1452  01577006014033767740     N23      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   154
          1453  01777007020043767740     1N3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   155
          1454  02377011022047767740     12N      IFTBL  I,-,I,I,D,-,-                                           PARSKEL   156
                                                                                                                 PARSKEL   157
                                        *                                  NEXT LABEL REFERENCED 2 OR 3 TIMES.   PARSKEL   158
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    73
        PARSKEL - SKELETON SELECTION TABLES FOR PARSER.               F.IFT 
  
          1455                           F.IFN    BSSENT                                                         PARSKEL   159
          1455  03577016036077767740     NN3      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   160
          1456  04177020042107767740     11N      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   161
          1457  02577012026057767740     N22      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   162
          1460  03177014032067767740     1NN      IFTBL  I,-,I,R,D,-,-                                           PARSKEL   163
          1461  04777023046117767740     1N1      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   164
          1462  04577022044113767740     N2N      IFTBL  I,-,I,I,I,-,-                                           PARSKEL   165
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    74
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF
  
                                        ***       F.INTF - TABLE OF ALL KNOWN INTRINSIC FUNCTIONS.               PARSKEL   168
                                        *                                                                        PARSKEL   169
                                        *         SEE FTN5TXT FOR FORMAT.                                        PARSKEL   170
                                        *                                                                        PARSKEL   171
                                        *         NAMES WHICH ARE GENERIC ONLY (THAT IS, A NAME WHICH IS NOT     PARSKEL   172
                                        *         ALSO A SPECIFIC NAME), ARE SPECIFIED AS 'EXTBF' SO AS NOT      PARSKEL   173
                                        *         TO REFER TO A NON-EXISTANT SKELETON.                           PARSKEL   174
                                        *         A GENERIC FUNCTION HAS A SELECTOR WORD INSERTED IN THIS        PARSKEL   175
                                        *         TABLE IMMEDIATELY FOLLOWING ITS ENTRY.                         PARSKEL   176
                                        *                                                                        PARSKEL   177
                                        *         SEE X3J3/90, TABLE 5.                                          PARSKEL   178
                                                                                                                 PARSKEL   179
                                                                                                                 PARSKEL   180
                                                  MACRO  NLINE,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                   PARSKEL   181
                                         .C       MICRO  1,,$NAME$                                               PARSKEL   182
                                         .CD      MICRO  1,,._NAME_.                                             FC50168     5
                                         .D       MICRO  1,, V=".CD"-OM=INL                                      FC50168     6
                                         R        ERRMI  ".D"        SKEL OUT OF ORDER _________________________ PARSKEL   184
                                         NAME     INTF=  ".C",ARGTYP,FUNTYP,NOARGS,(FLAGS)                       PARSKEL   185
                                                  ENDM                                                           PARSKEL   186
                                                                                                                 PARSKEL   187
                                                                                                                 PARSKEL   188
                                                  MACRO  NPAR,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS                    PARSKEL   189
                                         .D       MICRO  1,9, =XES=NAME                                          PARSKEL   190
                                         NAME     INTF=  NAME,ARGTYP,FUNTYP,NOARGS,(PAR,FLAGS)                   PARSKEL   191
                                                  ENDM                                                           PARSKEL   192
                                                                                                                 PARSKEL   193
                                                                                                                 PARSKEL   194
                                                  MACRO  EXTBF,NAME,ARGTYP,FUNTYP,NOARGS,FLAGS,BREG              PARSKEL   195
                                         .D       MICRO  1,, 0                                                   PARSKEL   196
                                                  IRP    BREG                                                    PARSKEL   197
                                         .D       DECMIC ".D"+1S_BREG                                            PARSKEL   198
                                                  IRP                                                            PARSKEL   199
                                         NAME     INTF=  NAME,ARGTYP,FUNTYP,NOARGS,(EXT,FLAGS)                   PARSKEL   200
                                                  ENDM                                                           PARSKEL   201
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    75
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF
  
                                        **        INLINE INTRINSICS.                                             PARSKEL   203
                                                                                                                 PARSKEL   204
                                                                                                                 PARSKEL   205
          1463                           F.INTF   BSSENT 0                                                       PARSKEL   206
                                                                                                                 PARSKEL   207
                                                  QUAL   INTF                                                    PARSKEL   208
                                                  NOREF  .A,.B,.G                                                PARSKEL   209
      L      0                                    LOC    0                                                       PARSKEL   210
      L      0  05222257000003340000     ERR.     EXTBF  BOOL,BOOL   DEFAULT ILLEGAL ENTRY                       FC50168     7
                                                                                                                 FC50168     8
      L      1  02241722570001040203     BTOR.    NLINE  BOOL,REAL,1 INVISIBLE SPECIFIC NAMES                    FC50168     9
      L      2  02241704570001040504     BTOD.    NLINE  BOOL,DBL,1                                              FC50168    10
      L      3  02241703570001040505     BTOC.    NLINE  BOOL,CPLX,1                                             FC50168    11
      L      4  11241704570001040324     ITOD.    NLINE  INT,DBL,1                                               FC50168    12
      L      5  11241703570001040325     ITOC.    NLINE  INT,CPLX,1                                              FC50168    13
      L      6  22241702570001040230     RTOB.    NLINE  REAL,BOOL,1                                             FC50168    14
      L      7  22241703570001040535     RTOC.    NLINE  REAL,CPLX,1                                             FC50168    15
      L     10  04241702570001040240     DTOB.    NLINE  DBL,BOOL,1                                              FC50168    16
      L     11  04241703570001040645     DTOC.    NLINE  DBL,CPLX,1                                              FC50168    17
      L     12  03241702570001040250     CTOB.    NLINE  CPLX,BOOL,1                                             FC50168    18
      L     13  03241711570001040452     CTOI.    NLINE  CPLX,INT,1                                              FC50168    19
      L     14  03241704570001040654     CTOD.    NLINE  CPLX,DBL,1                                              FC50168    20
                                                                                                                 PARSKEL   225
      L     15  01150130330001342123     AMAX0    NLINE  INT,REAL                                                PARSKEL   226
      L     16  01150130340001342533     AMAX1    NLINE  REAL,REAL                                               PARSKEL   227
      L     17  01151116330001342323     AMIN0    NLINE  INT,REAL                                                PARSKEL   228
      L     20  01151116340001342633     AMIN1    NLINE  REAL,REAL                                               PARSKEL   229
      L     21  01160400000000341000     AND      NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   230
      L     22  02171714000013077460     BOOL$    EXTBF  CHAR,BOOL,1,(BYN),(2,3,4,5,6,7)                         FC50168    21
      L     23  02171714000045040220     BOOL     NLINE  INT,BOOL,1,(GENERIC,GNO)                                FC5A227     6
      L     25  03100122000033040026     CHAR     EXTBF  INT,CHAR,1,(BYN,CHAR)                                   PARSKEL   233
      L     26  03152014570007040005     CMPL.    EXTBF  BOOL,CPLX,1,(GENERIC)   MUST BE CMPLX-2 (PAR/VIL)       FC50168    22
      L     30  031520143000455000 X     CMPLX    NPAR   REAL,CPLX,2,(GENERIC,GNO)                               FC5A227     7
      L     32  04021405000045040534     DBLE     NLINE  REAL,DBL,1,(GENERIC,GNO)                                FC5A227     8
      L     34  04150130340001342244     DMAX1    NLINE  DBL,DBL                                                 PARSKEL   237
      L     35  04151116340001342444     DMIN1    NLINE  DBL,DBL                                                 PARSKEL   238
      L     36  05212600000000341100     EQV      NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   239
      L     37  06141701240001040123     FLOAT    NLINE  INT,REAL,1                                              PARSKEL   240
      L     40  11031001220033040062     ICHAR    EXTBF  CHAR,INT,1,(BYN,CHAR)                                   PARSKEL   241
      L     41  11041116240001040442     IDINT    NLINE  DBL,INT,1                                               PARSKEL   242
      L     42  11061130000001040432     IFIX     NLINE  REAL,INT,1                                              PARSKEL   243
      L     43  11162400000005040432     INT      NLINE  REAL,INT,1,(GENERIC)                                    PARSKEL   244
      L     45  140705000000115000 X     LGE      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   245
      L     46  140724000000115000 X     LGT      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   246
      L     47  141405000000115000 X     LLE      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   247
      L     50  141424000000115000 X     LLT      NPAR   CHAR,LOG,2,(BYN)                                        PARSKEL   248
      L     51  14170306000013077460     LOCF$    EXTBF  CHAR,BOOL,1,(BYN),(2,3,4,5,6,7)                         FC50168    23
      L     52  141703060000044400 X     LOCF     NPAR   BOOL,BOOL,1,(GEN,NANS)                                  FC5A227    10
      L     54  15013000000047340022     MAX      EXTBF  INT,INT,,(GENERIC,GNO)                                  FC5A227    11
      L     56  15013033000001342122     MAX0     NLINE  INT,INT                                                 PARSKEL   250
      L     57  15013034000001342532     MAX1     NLINE  REAL,INT                                                PARSKEL   251
      L     60  15111600000047340022     MIN      EXTBF  INT,INT,,(GENERIC,GNO)                                  FC5A227    12
      L     62  15111633000001342322     MIN0     NLINE  INT,INT                                                 PARSKEL   253
      L     63  15111634000001342632     MIN1     NLINE  REAL,INT                                                PARSKEL   254
      L     64  16052126000000341300     NEQV     NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   255
      L     65  17220000000000341200     OR       NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   256
      L     66  22050114000005040253     REAL     NLINE  CPLX,REAL,1,(GENERIC)                                   PARSKEL   257
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    76
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF              INTF
  
      L     70  23160714000001040243     SNGL     NLINE  DBL,REAL,1                                              PARSKEL   258
      L     71  30172200000000341300     XOR      NLINE  BOOL,BOOL,,(NONANSI)                                    PARSKEL   259
      L     72  14170700000047040033     LOG      EXTBF  REAL,REAL,1,(GENERIC,GNO)                               FC5A227    13
      L     74  14170734330047040033     LOG10    EXTBF  REAL,REAL,1,(GENERIC,GNO)                               FC5A227    14
      L     76  23251534230000041500     SUM1S    NLINE  BOOL,BOOL,1,(NONANSI)                                   FC5A496     8
                                                  QUAL                                                           PARSKEL   260
      L     77                           Z.INTA   BSSENT 0           ABOVE CANNOT BE ACTUAL ARGUMENTS            PARSKEL   261
                                                  QUAL   *                                                       PARSKEL   262
                                                                                                                 PARSKEL   263
      L     77  01022300000005041433     ABS      NLINE  REAL,REAL,1,(GENERIC)                                   PARSKEL   264
      L    101  01111501070001041653     AIMAG    NLINE  CPLX,REAL,1                                             PARSKEL   265
      L    102  01111624000005041733     AINT     NLINE  REAL,REAL,1,(GENERIC)                                   PARSKEL   266
      L    104  01151704000001102733     AMOD     NLINE  REAL,REAL,2                                             PARSKEL   267
      L    105  01161116240005042033     ANINT    NLINE  REAL,REAL,1,(GENERIC)                                   PARSKEL   268
      L    107  03010223000003040053     CABS     EXTBF  CPLX,REAL,1                                             PARSKEL   269
      L    110  03171520140000040700     COMPL    NLINE  BOOL,BOOL,1,(NONANSI)                                   PARSKEL   270
      L    111  03171612070001043055     CONJG    NLINE  CPLX,CPLX,1                                             PARSKEL   271
      L    112  04010223000001043244     DABS     NLINE  DBL,DBL,1                                               PARSKEL   272
      L    113  04041115000001103344     DDIM     NLINE  DBL,DBL,2                                               PARSKEL   273
      L    114  04111500000005103433     DIM      NLINE  REAL,REAL,2,(GENERIC)                                   PARSKEL   274
      L    116  04111624000001043544     DINT     NLINE  DBL,DBL,1                                               PARSKEL   275
      L    117  04151704000003100044     DMOD     EXTBF  DBL,DBL,2                                               PARSKEL   276
      L    120  04161116240001043744     DNINT    NLINE  DBL,DBL,1                                               PARSKEL   277
      L    121  04202217040001103634     DPROD    NLINE  REAL,DBL,2                                              PARSKEL   278
      L    122  04231107160001104044     DSIGN    NLINE  DBL,DBL,2                                               PARSKEL   279
      L    123  11010223000001041422     IABS     NLINE  INT,INT,1                                               PARSKEL   280
      L    124  11041115000001104322     IDIM     NLINE  INT,INT,2                                               PARSKEL   281
                                 120     V=IDNINT EQU    V=IDNIN                                                 PARSKEL   282
      L    125  11041611162401044142     IDNINT   NLINE  DBL,INT,1                                               PARSKEL   283
      L    126  11160405300013100062     INDEX    EXTBF  CHAR,INT,2,(BYN)                                        PARSKEL   284
      L    127  11231107160001104222     ISIGN    NLINE  INT,INT,2                                               PARSKEL   285
      L    130  14051600000013077462     LEN$     EXTBF  CHAR,INT,1,(BYN),(2,3,4,5,6,7)                          FC50168    24
      L    131  140516000000014400 X     LEN      NPAR   CHAR,INT,1                                              PARSKEL   287
      L    132  150123130000004400 X     MASK     NPAR   INT,BOOL,1,(NONANSI)                                    PARSKEL   290
      L    133  15170400000005104522     MOD      NLINE  INT,INT,2,(GENERIC)                                     PARSKEL   291
      L    135  16111624000005044132     NINT     NLINE  REAL,INT,1,(GENERIC)                                    PARSKEL   292
      L    137  220116060000004000 X     RANF     NPAR   BOOL,REAL,0,(NONANSI)                                   PARSKEL   293
      L    140  23050317160412037403     SECOND   EXTBF  BOOL,REAL,0,(BYN,NANS),(2,3,4,5,6,7)                    PARSKEL   294
      L    141  231011062400005000 X     SHIFT    NPAR   BOOL,BOOL,2,(NONANSI)                                   PARSKEL   295
      L    142  23110716000005104233     SIGN     NLINE  REAL,REAL,2,(GENERIC)                                   PARSKEL   296
                                                                                                                 PARSKEL   297
                                        *                            MATH LIBRARY INTRINSICS.                    PARSKEL   298
                                                                                                                 PARSKEL   299
      L    144  23212224000007074033     SQRT     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   300
      L    146  04232122240003040044     DSQRT    EXTBF  DBL,DBL,1                                               PARSKEL   301
      L    147  03232122240003040055     CSQRT    EXTBF  CPLX,CPLX,1                                             PARSKEL   302
      L    150  05302000000007074033     EXP      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   303
      L    152  04053020000003074044     DEXP     EXTBF  DBL,DBL,1,,(5,6,7)                                      PARSKEL   304
      L    153  03053020000003040055     CEXP     EXTBF  CPLX,CPLX,1                                             PARSKEL   305
      L    154  01141707000003074033     ALOG     EXTBF  REAL,REAL,1,,(5,6,7)                                    PARSKEL   307
      L    155  04141707000003040044     DLOG     EXTBF  DBL,DBL,1                                               PARSKEL   308
      L    156  03141707000003040055     CLOG     EXTBF  CPLX,CPLX,1                                             PARSKEL   309
      L    157  01141707343303074033     ALOG10   EXTBF  REAL,REAL,1,,(5,6,7)                                    PARSKEL   311
      L    160  04141707343303040044     DLOG10   EXTBF  DBL,DBL,1                                               PARSKEL   312
                                                                                                                 PARSKEL   313
      L    161  23111600000007074033     SIN      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   314
      L    163  04231116000003040044     DSIN     EXTBF  DBL,DBL,1                                               PARSKEL   315
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    77
        INTRINSIC FUNCTION DEFINITIONS.                               F.INTF              INTF
  
      L    164  03231116000003040055     CSIN     EXTBF  CPLX,CPLX,1                                             PARSKEL   316
      L    165  23111604000002040033     SIND     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   317
      L    166  03172300000007074033     COS      EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   318
      L    170  04031723000003040044     DCOS     EXTBF  DBL,DBL,1                                               PARSKEL   319
      L    171  03031723000003040055     CCOS     EXTBF  CPLX,CPLX,1                                             PARSKEL   320
      L    172  03172304000002040033     COSD     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   321
      L    173  24011600000007040033     TAN      EXTBF  REAL,REAL,1,(GENERIC)                                   PARSKEL   322
      L    175  04240116000003040044     DTAN     EXTBF  DBL,DBL,1                                               PARSKEL   323
      L    176  24011604000002040033     TAND     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   324
                                                                                                                 PARSKEL   325
      L    177  01231116000007070033     ASIN     EXTBF  REAL,REAL,1,(GENERIC),(6,7)                             PARSKEL   326
      L    201  04012311160003040044     DASIN    EXTBF  DBL,DBL,1                                               PARSKEL   327
      L    202  01031723000007070033     ACOS     EXTBF  REAL,REAL,1,(GENERIC),(6,7)                             PARSKEL   328
      L    204  04010317230003040044     DACOS    EXTBF  DBL,DBL,1                                               PARSKEL   329
      L    205  01240116000007074033     ATAN     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   330
      L    207  04012401160003040044     DATAN    EXTBF  DBL,DBL,1                                               PARSKEL   331
      L    210  01240116350007134033     ATAN2    EXTBF  REAL,REAL,2,(GENERIC),(5,6,7)                           PARSKEL   332
      L    212  04012401163503100044     DATAN2   EXTBF  DBL,DBL,2                                               PARSKEL   333
                                                                                                                 PARSKEL   334
      L    213  23111610000007074033     SINH     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   335
      L    215  04231116100003070044     DSINH    EXTBF  DBL,DBL,1,,(6,7)                                        PARSKEL   336
      L    216  03172310000007074033     COSH     EXTBF  REAL,REAL,1,(GENERIC),(5,6,7)                           PARSKEL   337
      L    220  04031723100003070044     DCOSH    EXTBF  DBL,DBL,1,,(6,7)                                        PARSKEL   338
      L    221  24011610000007040033     TANH     EXTBF  REAL,REAL,1,(GENERIC)                                   PARSKEL   339
      L    223  04240116100003070044     DTANH    EXTBF  DBL,DBL,1,,(6,7)                                        PARSKEL   340
      L    224  01240116100002040033     ATANH    EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   341
                                                                                                                 PARSKEL   342
      L    225  05220600000002040033     ERF      EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   343
      L    226  05220603000002040033     ERFC     EXTBF  REAL,REAL,1,(NONANSI)         **FCL ANY B-REGS          PARSKEL   344
                                                                                                                 PARSKEL   345
                                                  QUAL   *                                                       PARSKEL   346
      L    227                           Z.INTF   BSSENT 0           LENGTH OF INTRINSIC TABLE                   PARSKEL   347
          1712                                    LOC    *O                                                      PARSKEL   348
                                         OMI=CPX  EQUENT /INTF/CMPLX                                             PARSKEL   349
                                         OMI=LEN  EQUENT /INTF/LEN$                                              PARSKEL   350
                                         OMI=SHF  EQUENT /INTF/SHIFT                                             PARSKEL   351
                                         OMI=LCF  EQUENT /INTF/LOCF$                                             PARSKEL   352
  
  
  
  
                                        **        GENF - MODE SELECTION VECTORS FOR GENERIC INTRINSICS.          PARSKEL   354
                                        *                                                                        PARSKEL   355
                                        * NAME    GENF   B,I,R,D,Z,H,L                                           PARSKEL   356
                                        *                                                                        PARSKEL   357
                                        *         ENTRY  B,I,R,D,Z,H,L = SPECIFIC NAME FOR EACH TYPE --          PARSKEL   358
                                        *                            BOOL, INT, REAL, DBL, CPLX, CHAR, LOG.      PARSKEL   359
                                        *                NOTE THAT TRAILING ILLEGAL ENTRIES MAY BE OMITTED.      PARSKEL   360
                                        *                                                                        PARSKEL   361
                                        *         THIS MACRO FILLS IN THE SLOT LEFT IN (F.INTF), AFTER THE ENTRY PARSKEL   362
                                        *         FOR THE GENERIC NAME, WITH A MODE SELECTION VECTOR.            PARSKEL   363
                                        *         OBVIOUSLY THEN, THERE MUST BE A *GENF* MACRO CALL FOR EACH     PARSKEL   364
                                        *         INTRINSIC FUNCTION MARKED *GENERIC*.                           PARSKEL   365
                                                                                                                 PARSKEL   366
                                                                                                                 PARSKEL   367
                                                  MACRO  GENF,NAM,B,I,R,D,Z,H,L                                  PARSKEL   368
                                         E        MICRO                                                          PARSKEL   369
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    78
        INTRINSIC FUNCTION DEFINITIONS.                               GENF
  
                                        *                                                                        PARSKEL   370
                                         .1       ECHO   ,P=(H,Z,D,R,I,L,B)                                      PARSKEL   371
                                                  IFC    NE,/P//,1                                               PARSKEL   372
                                                  IFC    EQ,/P/-/,2                                              PARSKEL   373
                                         E        MICRO  1,,\"E"8/-0,\                                           PARSKEL   374
                                                  SKIP   4                                                       PARSKEL   375
                                                  IFC    EQ,/P/****/,2                                           PARSKEL   376
                                         E        MICRO  1,,\"E"8/0,\                                            PARSKEL   377
                                                  SKIP   1                                                       PARSKEL   378
                                         E        MICRO  1,,\"E"8//INTF/P,\                                      PARSKEL   379
                                         .1       ENDD                                                           PARSKEL   380
                                        *                                                                        PARSKEL   381
                                                  ORG    F.INTF+/INTF/NAM+1                                      PARSKEL   382
                                                  VFD    4/,"E"                                                  PARSKEL   383
                                                  ENDM                                                           PARSKEL   384
                                                                                                                 PARSKEL   385
                                                                                                                 PARSKEL   386
          1507  00220240400000177400     BOOL     GENF   ****,****,****,DTOB.,CTOB.,BOOL$                        FC50168    25
          1527  03770262044300177400     INT      GENF   ****,****,INT,IDINT,CTOI.,-                             FC50168    26
          1552  03771543400007777400     REAL     GENF   ****,FLOAT,****,SNGL,REAL,-                             PARSKEL   389
          1516  03770300003201177402     DBLE     GENF   BTOD.,ITOD.,DBLE,****,CTOD.,-                           FC50168    27
          1512  03770000440701377403     CMPL.    GENF   BTOC.,ITOC.,RTOC.,DTOC.,****,-                          FC50168    28
          1514  03777761403006177430     CMPLX    GENF   CMPLX,CMPLX,CMPLX,CMPLX,-,-                             PARSKEL   392
                                        *                            MODE CONVERSION FOR CMPLX DONE IN PAR/ESF.  PARSKEL   393
                                                                                                                 PARSKEL   394
          1563  03772164507724777523     ABS      GENF   IABS,IABS,ABS,DABS,CABS,-                               PARSKEL   395
          1566  03777764710277777777     AINT     GENF   -,-,AINT,DINT,-,-                                       PARSKEL   396
          1571  03777765010577777777     ANINT    GENF   -,-,ANINT,DNINT,-,-                                     PARSKEL   397
          1600  03777764551425177514     DIM      GENF   DIM,IDIM,DIM,DDIM,-,-                                   PARSKEL   398
          1536  00521242505212425052     LOCF     GENF   LOCF,LOCF,LOCF,LOCF,LOCF,LOCF,LOCF                      PARSKEL   399
          1617  03777764750426777533     MOD      GENF   MOD,MOD,AMOD,DMOD,-,-                                   PARSKEL   400
          1540  03777761601613577456     MAX      GENF   MAX0,MAX0,AMAX1,DMAX1,-,-                               PARSKEL   401
          1544  03777761642014577462     MIN      GENF   MIN0,MIN0,AMIN1,DMIN1,-,-                               PARSKEL   402
          1621  03777765253577777777     NINT     GENF   -,-,NINT,IDNINT,-,-                                     PARSKEL   403
          1626  03777765114225777527     SIGN     GENF   ISIGN,ISIGN,SIGN,DSIGN,-,-                              PARSKEL   404
                                                                                                                 PARSKEL   405
          1630  03773166314477777777     SQRT     GENF   -,-,SQRT,DSQRT,CSQRT,-                                  PARSKEL   406
          1634  03773266515077777777     EXP      GENF   -,-,EXP,DEXP,CEXP,-                                     PARSKEL   407
          1556  03773346655477777777     LOG      GENF   -,-,ALOG,DLOG,CLOG,-                                    PARSKEL   408
          1560  03777767015777777777     LOG10    GENF   -,-,ALOG10,DLOG10,-,-                                   PARSKEL   409
          1645  03773507156177777777     SIN      GENF   -,-,SIN,DSIN,CSIN,-                                     PARSKEL   410
          1652  03773627416677777777     COS      GENF   -,-,COS,DCOS,CCOS,-                                     PARSKEL   411
          1657  03777767657377777777     TAN      GENF   -,-,TAN,DTAN,-,-                                        PARSKEL   412
          1663  03777770057777777777     ASIN     GENF   -,-,ASIN,DASIN,-,-                                      PARSKEL   413
          1666  03777770220277777777     ACOS     GENF   -,-,ACOS,DACOS,-,-                                      PARSKEL   414
          1671  03777770360577777777     ATAN     GENF   -,-,ATAN,DATAN,-,-                                      PARSKEL   415
          1674  03777770521077777777     ATAN2    GENF   -,-,ATAN2,DATAN2,-,-                                    PARSKEL   416
          1677  03777770661377777777     SINH     GENF   -,-,SINH,DSINH,-,-                                      PARSKEL   417
          1702  03777771021677777777     COSH     GENF   -,-,COSH,DCOSH,-,-                                      PARSKEL   418
          1705  03777771162177777777     TANH     GENF   -,-,TANH,DTANH,-,-                                      PARSKEL   419
          1712                                    ORG    F.INTF+Z.INTF                                           PARSKEL   420
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    79
        INTRINSIC FUNCTION DEFINITIONS.                               F.IMCV
  
                                        **        F.IMCV - TABLE OF INTRINSICS REQUIRING MODE CONVERSION.        PARSKEL   422
                                        *                                                                        PARSKEL   423
                                        *         THE ARITHMETIC FOR THE FOLLOWING INLINE INTRINSICS IS          PARSKEL   424
                                        *         PERFORMED IN THE MODE OF THE ARGUMENTS.  THE PARTIAL           PARSKEL   425
                                        *         RESULT MUST THEREFORE BE CONVERTED INTO THE RESULT MODE        PARSKEL   426
                                        *         OF THE FUNCTION.                                               PARSKEL   427
                                        *                                                                        PARSKEL   428
                                        *         PAR/VIL SCANS THIS TABLE TO DETERMINE IF SUCH ACTION IS        PARSKEL   429
                                        *         REQUIRED, AND, IF SO, WHAT CONVERSION SKELETON TO USE.         PARSKEL   430
                                                                                                                 PARSKEL   431
                                                                                                                 PARSKEL   432
          1712                           F.IMCV   BSSENT             INTRINSICS TO MODE CONVERT                  PARSKEL   433
          1712  00000015000001000003              VFD    24//INTF/AMAX0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   434
          1713  00000017000001000003              VFD    24//INTF/AMIN0,18/V=ITOR-OM=CONV,18/M.REAL              PARSKEL   435
          1714  00000057000004000002              VFD    24//INTF/_MAX1,18/V=RTOI-OM=CONV,18/M.INT               PARSKEL   436
          1715  00000063000004000002              VFD    24//INTF/_MIN1,18/V=RTOI-OM=CONV,18/M.INT               PARSKEL   437
                                         Z.IMCV   EQUENT *-F.IMCV                                                PARSKEL   438
                                                                                                                 PARSKEL   439
                                                                                                                 PARSKEL   440
                                         PARSKEL  ENDX                                                           PARSKEL   441
                                                                                                                 COMFSKL   748
                                                                                                                 COMFSKL   749
                                                  ENDX                                                           COMFSKL   750
                                                                                                                 FSKEL      21
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        S=BU
             0 X                        S=TRACE 
             0 X                        S=EXIT
             0 X                        S=AEXIT 
             0 Y                        D=ILL 
             0 Y                        D=ADD.I 
             0 Y                        D=ADD.R 
             0 Y                        D=ADD.D 
             0 Y                        D=ADD.C 
             0 Y                        D=SUB.I 
             0 Y                        D=SUB.R 
             0 Y                        D=SUB.D 
             0 Y                        D=SUB.C 
             0 Y                        D=MUL.I 
             0 Y                        D=MUL.R 
             0 Y                        D=MUL.D 
             0 Y                        D=MUL.C 
             0 Y                        D=DIV.I 
             0 Y                        D=DIV.R 
             0 Y                        D=DIV.D 
             0 Y                        D=DIV.C 
             0 Y                        D=DVC.R 
             0 Y                        D=DIR.R 
             0 Y                        D=DIR.C 
             0 Y                        D=UMI.I 
             0 Y                        D=UMI.D 
             0 Y                        D=LT.I
             0 Y                        D=LT.R
             0 Y                        D=LT.D
             0 Y                        D=LT.H
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    80
        INTRINSIC FUNCTION DEFINITIONS.                               LITERALS
  
             0 Y                        D=LLT 
             0 Y                        D=GE.I
             0 Y                        D=GE.R
             0 Y                        D=GE.D
             0 Y                        D=GE.H
             0 Y                        D=LGE 
             0 Y                        D=NE.I
             0 Y                        D=NE.R
             0 Y                        D=NE.D
             0 Y                        D=NE.H
             0 Y                        D=LNE 
             0 Y                        D=EQ.I
             0 Y                        D=EQ.R
             0 Y                        D=EQ.D
             0 Y                        D=EQ.H
             0 Y                        D=LEQ 
             0 Y                        D=STR.I 
             0 Y                        D=STR.D 
             0 Y                        D=STR.H 
             0 Y                        D=CAT 
             0 Y                        D=COLON 
             0 Y                        D=SUBST 
             0 Y                        D=ITOR
             0 Y                        D=ITOB
             0 Y                        D=ITOD
             0 Y                        D=RTOI
             0 Y                        D=RTOD
             0 Y                        D=DTOC
             0 Y                        D=NOT.L 
             0 Y                        D=AND.L 
             0 Y                        D=EQV.L 
             0 Y                        D=OR.L
             0 Y                        D=XOR.L 
             0 Y                        D=ABS 
             0 Y                        D=SUM1S 
             0 Y                        D=AIMAG 
             0 Y                        D=AINT
             0 Y                        D=ANINT 
             0 Y                        D=MAX0
             0 Y                        D=DMAX1 
             0 Y                        D=MIN0
             0 Y                        D=DMIN1 
             0 Y                        D=AMAX1 
             0 Y                        D=AMIN1 
             0 Y                        D=AMOD
             0 Y                        D=CONJG 
             0 Y                        D=CMPLX 
             0 Y                        D=DABS
             0 Y                        D=DDIM
             0 Y                        D=DIM 
             0 Y                        D=DINT
             0 Y                        D=DPROD 
             0 Y                        D=DNINT 
             0 Y                        D=DSIGN 
             0 Y                        D=IDNIN 
             0 Y                        D=ISIGN 
             0 Y                        D=IDIM
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    81
        INTRINSIC FUNCTION DEFINITIONS.                               LITERALS
  
             0 Y                        D=MASK
             0 Y                        D=MOD 
             0 Y                        D=RANF
             0 Y                        D=SHIFT 
             0 Y                        D=DOBS
             0 Y                        D=DOBL
             0 Y                        D=DOBZS 
             0 Y                        D=DOBZL 
             0 Y                        D=DOC.S 
             0 Y                        D=DOC.O 
             0 Y                        D=DOC.1 
             0 Y                        D=DOC.L 
             0 Y                        D=DOC.R 
             0 Y                        D=DOC.D 
             0 Y                        D=IOLC
             0 Y                        D=LCIF
             0 Y                        D=GOTO
             0 Y                        D=AGOTO 
             0 Y                        D=CGOTO 
             0 Y                        D=JGOTO 
             0 Y                        D=RGOTO 
             0 Y                        D=ASSGN 
             0 Y                        D=BSS 
             0 Y                        D=ARY 
             0 Y                        D=GAP 
             0 Y                        D=FAP 
             0 Y                        D=IAP 
             0 Y                        D=APIOC 
             0 Y                        D=APIOD 
             0 Y                        D=APIOU 
             0 Y                        D=SUBR
             0 Y                        D=FUNC
             0 Y                        D=LIBF
             0 Y                        D=INTF
             0 Y                        D=IOSUB 
             0 Y                        D=ERR 
             0 Y                        D=STOP
             0 Y                        D=PAUS
             0 Y                        D=RET 
             0 Y                        D=RTNK
             0 Y                        D=GPL 
             0 Y                        D=ENTR
             0 Y                        D=BVD 
             0 Y                        D=EVD 
             0 Y                        D=SEG 
             0 Y                        D=NOOP
             0 Y                        D=HDR 
             0 Y                        D=FILE
             0 Y                        D=PLIM
             0 Y                        D=SEX 
             0 Y                        D=CDLOO 
             0 Y                        D=CDDOT 
             0 Y                        D=CDCS
             0 Y                        D=DATA
             0 Y                        D=FIN 
             0 Y                        D=LCC 
             0 Y                        D=DVI 
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    82
        INTRINSIC FUNCTION DEFINITIONS.                               LITERALS
  
             0 Y                        D=EXP.I 
             0 Y                        D=DOBD2 
             0 Y                        D=I123
             0 Y                        D=I122
             0 Y                        D=R122
             0 Y                        D=I113
             0 Y                        D=R113
             0 Y                        D=I121
             0 Y                        D=IN23
             0 Y                        D=I1N3
             0 Y                        D=R1N3
             0 Y                        D=I12N
             0 Y                        D=IN22
             0 Y                        D=RN22
             0 Y                        D=I1NN
             0 Y                        D=R1NN
             0 Y                        D=INN3
             0 Y                        D=RNN3
             0 Y                        D=I11N
             0 Y                        D=R11N
             0 Y                        D=IN2N
             0 Y                        D=I1N1
             0 Y                        D=IFT 
             0 Y                        D=IFF 
             0 Y                        D=I111
             0 Y                        D=IEQ.I 
             0 Y                        D=IEQ.R 
             0 Y                        D=IEQ.D 
             0 Y                        D=IEQ.C 
             0 Y                        D=INE.I 
             0 Y                        D=INE.R 
             0 Y                        D=INE.D 
             0 Y                        D=INE.C 
             0 X                        ES=CMPL 
             0 X                        ES=LGE
             0 X                        ES=LGT
             0 X                        ES=LLE
             0 X                        ES=LLT
             0 X                        ES=LEN
  
          2173                                    END                                                            FSKEL      22
  
                            101100B CM  STORAGE USED            51728 STATEMENTS     3457 SYMBOLS      000004 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY           44.740 SECONDS        5638 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        ADD.D1          7   PROGRAM*       27/38 L   28/18
        AND         11000                  22/51 D   39/40     39/56     48/09     51/16     51/35     52/18     52/41
                                           38/16     39/56     43/24     48/51     51/25     52/08     52/30
        ANINT1        400   PROGRAM*       39/31 L
        AT.            26                  20/55 D   20/57 D   21/02 D   21/04     21/09     21/12 D   21/14 D
                                           20/55     20/57     21/03 D   21/08 D   21/10 D   21/12     21/14
                                           20/56 D   21/01 D   21/03     21/08     21/11 D   21/13 D   21/15 D
                                           20/56     21/01     21/04 D   21/09 D   21/11     21/13     21/15
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    83
        SYMBOLIC REFERENCE TABLE. 
  
        AT.A            0                  20/55 D   20/55
        AT.B            2                  20/56 D   20/56
        AT.GL          16                  21/09 D   21/09     21/10
        AT.GLL         20                  21/11 D   21/11
        AT.GLU         16                  21/10 D   21/10
        AT.GP          15                  21/08 D   21/08
        AT.K           26                  21/15 D   21/15
        AT.L            6                  21/01 D   21/01     21/02
        AT.LL          10                  21/03 D   21/03
        AT.LU           6                  21/02 D   21/02
        AT.P           12                  21/04 D   21/04
        AT.Q           24                  21/13 D   21/13
        AT.S           25                  21/14 D   21/14
        AT.T           22                  21/12 D   21/12
        AT.X            4                  20/57 D   20/57
        B1=1            0 
        B6.C            1                  21/18 D
        CLR         13000                  22/55 D   33/43     34/32     36/23     39/24     43/05     58/28     59/18
                                           32/30     33/51     34/40     36/36     40/42     57/41     58/49     59/32
                                           33/06     34/08     34/54     36/49     42/27     57/56     59/05     61/17
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    84
        SYMBOLIC REFERENCE TABLE. 
  
        COUNT         255                  21/21 D   32/11 D   35/28 D   39/42 D   45/12 D   50/12 D   56/31 D   58/51 D
                                           27/10     32/26     35/34     40/01     45/21     50/48     56/35     58/57
                                           27/10 D   32/26 D   35/34 D   40/01 D   45/21 D   50/48 D   56/35 D   58/57 D
                                           27/17     32/32     35/48     40/06     45/26     50/52     56/39     59/07
                                           27/17 D   32/32 D   35/48 D   40/06 D   45/26 D   50/52 D   56/39 D   59/07 D
                                           27/21     32/37     35/53     40/13     45/36     50/56     56/43     59/13
                                           27/21 D   32/37 D   35/53 D   40/13 D   45/36 D   50/56 D   56/43 D   59/13 D
                                           27/26     32/46     35/57     40/18     46/09     52/57     56/47     59/20
                                           27/26 D   32/46 D   35/57 D   40/18 D   46/09 D   52/57 D   56/47 D   59/20 D
                                           27/40     32/51     36/10     40/28     46/19     53/04     56/51     59/27
                                           27/40 D   32/51 D   36/10 D   40/28 D   46/19 D   53/04 D   56/51 D   59/27 D
                                           28/04     33/01     36/15     40/53     46/32     53/08     56/55     59/34
                                           28/04 D   33/01 D   36/15 D   40/53 D   46/32 D   53/08 D   56/55 D   59/34 D
                                           28/08     33/08     36/19     41/02     47/11     53/11     57/04     59/41
                                           28/08 D   33/08 D   36/19 D   41/02 D   47/11 D   53/11 D   57/04 D   59/41 D
                                           28/13     33/14     36/28     41/08     47/19     53/15     57/08     59/46
                                           28/13 D   33/14 D   36/28 D   41/08 D   47/19 D   53/15 D   57/08 D   59/46 D
                                           28/20     33/26     36/33     41/18     47/26     53/35     57/12     59/53
                                           28/20 D   33/26 D   36/33 D   41/18 D   47/26 D   53/35 D   57/12 D   59/53 D
                                           28/36     33/32     36/46     41/39     47/46     53/47     57/16     60/01
                                           28/36 D   33/32 D   36/46 D   41/39 D   47/46 D   53/47 D   57/16 D   60/01 D
                                           29/34     33/37     38/07     41/47     48/11     53/54     57/26     60/06
                                           29/34 D   33/37 D   38/07 D   41/47 D   48/11 D   53/54 D   57/26 D   60/06 D
                                           29/38     33/45     38/14     42/01     48/24     54/01     57/35     60/40
                                           29/38 D   33/45 D   38/14 D   42/01 D   48/24 D   54/01 D   57/35 D   60/40 D
                                           29/49     33/53     38/21     42/06     48/30     54/07     57/43     60/46
                                           29/49 D   33/53 D   38/21 D   42/06 D   48/30 D   54/07 D   57/43 D   60/46 D
                                           30/12     34/14     38/28     42/18     48/38     54/24     57/50     60/53
                                           30/12 D   34/14 D   38/28 D   42/18 D   48/38 D   54/24 D   57/50 D   60/53 D
                                           30/40     34/21     38/35     42/41     48/53     54/30     58/01     61/06
                                           30/40 D   34/21 D   38/35 D   42/41 D   48/53 D   54/30 D   58/01 D   61/06 D
                                           30/44     34/26     39/04     42/55     49/01     54/35     58/09     61/19
                                           30/44 D   34/26 D   39/04 D   42/55 D   49/01 D   54/35 D   58/09 D   61/19 D
                                           31/07     34/34     39/10     43/08     49/16     54/40     58/15     61/25
                                           31/07 D   34/34 D   39/10 D   43/08 D   49/16 D   54/40 D   58/15 D   61/25 D
                                           31/26     34/42     39/15     43/14     49/39     56/15     58/22     61/32
                                           31/26 D   34/42 D   39/15 D   43/14 D   49/39 D   56/15 D   58/22 D   61/32 D
                                           31/32     35/03     39/19     43/30     49/43     56/19     58/30     61/42
                                           31/32 D   35/03 D   39/19 D   43/30 D   49/43 D   56/19 D   58/30 D   61/42 D
                                           31/36     35/10     39/26     44/05     50/04     56/23     58/37     68/27
                                           31/36 D   35/10 D   39/26 D   44/05 D   50/04 D   56/23 D   58/37 D
                                           32/05     35/22     39/34     44/20     50/08     56/27     58/44
                                           32/05 D   35/22 D   39/34 D   44/20 D   50/08 D   56/27 D   58/44 D
                                           32/11     35/28     39/42     45/12     50/12     56/31     58/51
        CX          47000                  23/50 D   39/12
        DC.O1         676   PROGRAM*       46/44 L   46/49
        DFA         32000                  23/23 D   27/38     29/47     31/05     41/37     42/15     47/42
                                           27/38     27/38     31/05     41/37     41/56     47/42     47/42
        DFJ          3600                  22/37 D
        DFM         42000                  23/40 D   29/47     31/05     40/42     42/04     44/09
        DFS         33000                  23/24 D   31/05     33/22     34/54     40/11     41/37
                                           28/18     32/44     34/08     39/56     40/42
        DMAX11        416   PROGRAM*       39/56 L   40/11
        DOBS1         630   PROGRAM*       45/14 L   45/24
        DOBZ1         642   PROGRAM*       45/34 L   45/42     45/52
        DOCL1         716   PROGRAM*       47/17 L   47/24
        DOCL2         717   PROGRAM*       47/17 L   47/42
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    85
        SYMBOLIC REFERENCE TABLE. 
  
        DOCS1         657   PROGRAM*       46/17 L   46/29
        DOCS2         661   PROGRAM*       46/17 L   47/17
        DRL          1400                  22/24 D
        DWL          1500                  22/25 D
        D=ABS           0   EXTERNAL*      64/22
        D=ADD.C         0   EXTERNAL*      62/26
        D=ADD.D         0   EXTERNAL*      62/24
        D=ADD.I         0   EXTERNAL*      62/20
        D=ADD.R         0   EXTERNAL*      62/22
        D=AGOTO         0   EXTERNAL*      65/47
        D=AIMAG         0   EXTERNAL*      64/26
        D=AINT          0   EXTERNAL*      64/28
        D=AMAX1         0   EXTERNAL*      64/40
        D=AMIN1         0   EXTERNAL*      64/42
        D=AMOD          0   EXTERNAL*      64/44
        D=AND.L         0   EXTERNAL*      64/14
        D=ANINT         0   EXTERNAL*      64/30
        D=APIOC         0   EXTERNAL*      66/10
        D=APIOD         0   EXTERNAL*      66/12
        D=APIOU         0   EXTERNAL*      66/14
        D=ARY           0   EXTERNAL*      66/02
        D=ASSGN         0   EXTERNAL*      65/55
        D=BSS           0   EXTERNAL*      65/57
        D=BVD           0   EXTERNAL*      66/40
        D=CAT           0   EXTERNAL*      63/51
        D=CDCS          0   EXTERNAL*      67/03
        D=CDDOT         0   EXTERNAL*      67/01
        D=CDLOO         0   EXTERNAL*      66/56
        D=CGOTO         0   EXTERNAL*      65/49
        D=CMPLX         0   EXTERNAL*      64/48
        D=COLON         0   EXTERNAL*      63/53
        D=CONJG         0   EXTERNAL*      64/46
        D=DABS          0   EXTERNAL*      64/50
        D=DATA          0   EXTERNAL*      67/05
        D=DDIM          0   EXTERNAL*      64/52
        D=DIM           0   EXTERNAL*      64/54
        D=DINT          0   EXTERNAL*      64/56
        D=DIR.C         0   EXTERNAL*      62/56
        D=DIR.R         0   EXTERNAL*      62/54
        D=DIV.C         0   EXTERNAL*      62/50
        D=DIV.D         0   EXTERNAL*      62/48
        D=DIV.I         0   EXTERNAL*      62/44
        D=DIV.R         0   EXTERNAL*      62/46
        D=DMAX1         0   EXTERNAL*      64/34
        D=DMIN1         0   EXTERNAL*      64/38
        D=DNINT         0   EXTERNAL*      65/03
        D=DOBD2         0   EXTERNAL*      67/15
        D=DOBL          0   EXTERNAL*      65/23
        D=DOBS          0   EXTERNAL*      65/21
        D=DOBZL         0   EXTERNAL*      65/27
        D=DOBZS         0   EXTERNAL*      65/25
        D=DOC.D         0   EXTERNAL*      65/39
        D=DOC.L         0   EXTERNAL*      65/35
        D=DOC.O         0   EXTERNAL*      65/31
        D=DOC.R         0   EXTERNAL*      65/37
        D=DOC.S         0   EXTERNAL*      65/29
        D=DOC.1         0   EXTERNAL*      65/33
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    86
        SYMBOLIC REFERENCE TABLE. 
  
        D=DPROD         0   EXTERNAL*      65/01
        D=DSIGN         0   EXTERNAL*      65/05
        D=DTOC          0   EXTERNAL*      64/10
        D=DVC.R         0   EXTERNAL*      62/52
        D=DVI           0   EXTERNAL*      67/11
        D=ENTR          0   EXTERNAL*      66/38
        D=EQV.L         0   EXTERNAL*      64/16
        D=EQ.D          0   EXTERNAL*      63/39
        D=EQ.H          0   EXTERNAL*      63/41
        D=EQ.I          0   EXTERNAL*      63/35
        D=EQ.R          0   EXTERNAL*      63/37
        D=ERR           0   EXTERNAL*      66/26
        D=EVD           0   EXTERNAL*      66/42
        D=EXP.I         0   EXTERNAL*      67/13
        D=FAP           0   EXTERNAL*      66/06
        D=FILE          0   EXTERNAL*      66/50
        D=FIN           0   EXTERNAL*      67/07
        D=FUNC          0   EXTERNAL*      66/18
        D=GAP           0   EXTERNAL*      66/04
        D=GE.D          0   EXTERNAL*      63/19
        D=GE.H          0   EXTERNAL*      63/21
        D=GE.I          0   EXTERNAL*      63/15
        D=GE.R          0   EXTERNAL*      63/17
        D=GOTO          0   EXTERNAL*      65/45
        D=GPL           0   EXTERNAL*      66/36
        D=HDR           0   EXTERNAL*      66/48
        D=IAP           0   EXTERNAL*      66/08
        D=IDIM          0   EXTERNAL*      65/11
        D=IDNIN         0   EXTERNAL*      65/07
        D=IEQ.C         0   EXTERNAL*      68/12
        D=IEQ.D         0   EXTERNAL*      68/10
        D=IEQ.I         0   EXTERNAL*      68/06
        D=IEQ.R         0   EXTERNAL*      68/08
        D=IFF           0   EXTERNAL*      68/02
        D=IFT           0   EXTERNAL*      67/57
        D=ILL           0   EXTERNAL*      62/18
        D=INE.C         0   EXTERNAL*      68/20
        D=INE.D         0   EXTERNAL*      68/18
        D=INE.I         0   EXTERNAL*      68/14
        D=INE.R         0   EXTERNAL*      68/16
        D=INN3          0   EXTERNAL*      67/45
        D=INTF          0   EXTERNAL*      66/22
        D=IN2N          0   EXTERNAL*      67/53
        D=IN22          0   EXTERNAL*      67/37
        D=IN23          0   EXTERNAL*      67/29
        D=IOLC          0   EXTERNAL*      65/41
        D=IOSUB         0   EXTERNAL*      66/24
        D=ISIGN         0   EXTERNAL*      65/09
        D=ITOB          0   EXTERNAL*      64/02
        D=ITOD          0   EXTERNAL*      64/04
        D=ITOR          0   EXTERNAL*      63/57
        D=I1NN          0   EXTERNAL*      67/41
        D=I1N1          0   EXTERNAL*      67/55
        D=I1N3          0   EXTERNAL*      67/31
        D=I11N          0   EXTERNAL*      67/49
        D=I111          0   EXTERNAL*      68/04
        D=I113          0   EXTERNAL*      67/23
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    87
        SYMBOLIC REFERENCE TABLE. 
  
        D=I12N          0   EXTERNAL*      67/35
        D=I121          0   EXTERNAL*      67/27
        D=I122          0   EXTERNAL*      67/19
        D=I123          0   EXTERNAL*      67/17
        D=JGOTO         0   EXTERNAL*      65/51
        D=LCC           0   EXTERNAL*      67/09
        D=LCIF          0   EXTERNAL*      65/43
        D=LEQ           0   EXTERNAL*      63/43
        D=LGE           0   EXTERNAL*      63/23
        D=LIBF          0   EXTERNAL*      66/20
        D=LLT           0   EXTERNAL*      63/13
        D=LNE           0   EXTERNAL*      63/33
        D=LT.D          0   EXTERNAL*      63/09
        D=LT.H          0   EXTERNAL*      63/11
        D=LT.I          0   EXTERNAL*      63/05
        D=LT.R          0   EXTERNAL*      63/07
        D=MASK          0   EXTERNAL*      65/13
        D=MAX0          0   EXTERNAL*      64/32
        D=MIN0          0   EXTERNAL*      64/36
        D=MOD           0   EXTERNAL*      65/15
        D=MUL.C         0   EXTERNAL*      62/42
        D=MUL.D         0   EXTERNAL*      62/40
        D=MUL.I         0   EXTERNAL*      62/36
        D=MUL.R         0   EXTERNAL*      62/38
        D=NE.D          0   EXTERNAL*      63/29
        D=NE.H          0   EXTERNAL*      63/31
        D=NE.I          0   EXTERNAL*      63/25
        D=NE.R          0   EXTERNAL*      63/27
        D=NOOP          0   EXTERNAL*      66/46
        D=NOT.L         0   EXTERNAL*      64/12
        D=OR.L          0   EXTERNAL*      64/18
        D=PAUS          0   EXTERNAL*      66/30
        D=PLIM          0   EXTERNAL*      66/52
        D=RANF          0   EXTERNAL*      65/17
        D=RET           0   EXTERNAL*      66/32
        D=RGOTO         0   EXTERNAL*      65/53
        D=RNN3          0   EXTERNAL*      67/47
        D=RN22          0   EXTERNAL*      67/39
        D=RTNK          0   EXTERNAL*      66/34
        D=RTOD          0   EXTERNAL*      64/08
        D=RTOI          0   EXTERNAL*      64/06
        D=R1NN          0   EXTERNAL*      67/43
        D=R1N3          0   EXTERNAL*      67/33
        D=R11N          0   EXTERNAL*      67/51
        D=R113          0   EXTERNAL*      67/25
        D=R122          0   EXTERNAL*      67/21
        D=SEG           0   EXTERNAL*      66/44
        D=SEX           0   EXTERNAL*      66/54
        D=SHIFT         0   EXTERNAL*      65/19
        D=STOP          0   EXTERNAL*      66/28
        D=STR.D         0   EXTERNAL*      63/47
        D=STR.H         0   EXTERNAL*      63/49
        D=STR.I         0   EXTERNAL*      63/45
        D=SUBR          0   EXTERNAL*      66/16
        D=SUBST         0   EXTERNAL*      63/55
        D=SUB.C         0   EXTERNAL*      62/34
        D=SUB.D         0   EXTERNAL*      62/32
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    88
        SYMBOLIC REFERENCE TABLE. 
  
        D=SUB.I         0   EXTERNAL*      62/28
        D=SUB.R         0   EXTERNAL*      62/30
        D=SUM1S         0   EXTERNAL*      64/24
        D=UMI.D         0   EXTERNAL*      63/03
        D=UMI.I         0   EXTERNAL*      63/01
        D=XOR.L         0   EXTERNAL*      64/20
        EQB          4000                  22/40 D
        EQH1          330   PROGRAM*       35/08 L   35/13
        EQV         17000                  23/02 D   34/32     34/40     34/54     38/23     61/17
        ES=CMPL         0   EXTERNAL*      75/33
        ES=LEN          0   EXTERNAL*      76/33
        ES=LGE          0   EXTERNAL*      75/43
        ES=LGT          0   EXTERNAL*      75/44
        ES=LLE          0   EXTERNAL*      75/45
        ES=LLT          0   EXTERNAL*      75/46
        ES=LOCF         0   EXTERNAL*       4/02 X   75/48
        ES=MASK         0   EXTERNAL*       4/05 X   76/34
        ES=RANF         0   EXTERNAL*       4/05 X   76/37
        ES=SHIF         0   EXTERNAL*       4/05 X   76/39
        FA          30000                  23/19 D   27/38     31/05     33/22     40/42     41/56     47/42
                                           27/38     29/47     31/05     33/22     40/42     41/56     47/42
                                           27/38     29/47     31/05     39/24     41/37     41/56     47/42
                                           27/38     29/47     32/44     39/56     41/37     42/15     47/42
                                           27/38     31/05     32/44     39/56     41/37     47/42
        FAR         30000                  23/21 D   27/45     30/01     31/22     31/51
                                           27/24     27/45     31/22     31/51     47/24
        FD          44000                  23/46 D   31/05     31/05     40/42     43/43
        FDR         44000                  23/47 D   30/30     30/42     31/22     31/22     31/29     31/29
        FM          40000                  23/37 D   29/47     29/47     29/47     31/05     31/05     40/42     42/04
        FMA         43000                  23/15 D   43/28     49/32     51/25     51/45     52/18     52/41
                                           43/24     43/51     51/16     51/35     52/08     52/30     54/28
        FMR         40000                  23/38 D   30/01     31/22     31/22     31/51     31/51
                                           29/36     30/01     31/22     31/22     31/51     31/51
                                           30/01     30/01     31/22     31/22     31/51     31/51
        FS          31000                  23/20 D   31/05     33/22     34/54     40/11     40/42     41/44
                                           28/18     31/05     33/22     34/54     40/11     40/42
                                           28/18     32/44     34/08     39/56     40/16     41/37
                                           31/05     32/44     34/08     39/56     40/21     41/37
        FSR         31000                  23/22 D   28/25     31/51     33/51     61/04     61/17     61/40
                                           28/11     30/01     32/35     34/40     61/04     61/30     61/50
                                           28/25     31/22     33/12     60/51     61/17     61/40     61/50
        F.IFN        1455   PROGRAM*       73/01 L   73/01 E
        F.IFS        1446   PROGRAM*       72/46 L   72/46 E
        F.IMCV       1712   PROGRAM*       79/12 L   79/12 E   79/17
        F.INTF       1463   PROGRAM*       75/04 L   78/21     78/28     78/33     78/39     78/44     78/49
                                           75/04 E   78/22     78/29     78/34     78/40     78/45     78/50
                                           78/18     78/23     78/30     78/35     78/41     78/46     78/51
                                           78/19     78/26     78/31     78/37     78/42     78/47
                                           78/20     78/27     78/32     78/38     78/43     78/48
        F.MODC       1437   PROGRAM*       72/11 L   72/11 E
        F.SCT        1716   PROGRAM*       62/12 L   62/12 E
        F.SKCR       1716   PROGRAM*       62/14 L   62/14 E
        F.SKEL          0   PROGRAM*       26/02 L   26/02 E
        F.SKNAM         0   SKLNAM         25/56 L   25/56 E
        GEB          6000                  22/43 D
        GEH1          242   PROGRAM*       33/30 L   33/35
        GTB          7000                  22/45 D
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    89
        SYMBOLIC REFERENCE TABLE. 
  
        IA          36000                  23/31 D   29/25     34/32     46/24     47/17     48/51     59/05
                                           27/19     32/30     42/27     46/36     47/17     57/41
                                           28/53     33/06     43/05     46/44     47/53     58/28
                                           29/12     33/43     46/17     47/06     48/09     58/49
        IDJ          3700                  22/38 D
        ILS         22000                  23/09 D   30/30     36/31     43/43     44/27
        IM          42000                  23/41 D   28/42     43/43
        IMP         16000                  23/01 D   48/51     49/13
        IR           3400                  22/35 D   48/35
        IRS         23000                  23/10 D   43/24
        IS          37000                  23/32 D   32/30     33/51     34/40     43/12     46/44     57/56     61/17
                                           28/06     33/06     34/08     34/54     43/43     48/09     59/18     61/23
                                           29/19     33/43     34/32     39/40     45/19     48/15     59/32
                                           29/31     33/43     34/32     40/04     45/42     48/51     60/44
        IT.DPCL        44   FTX            75/09     75/27     75/43     76/02     76/22     76/39     77/02     77/20
                                           75/11     75/28     75/44     76/03     76/23     76/40     77/03     77/21
                                           75/12     75/29     75/45     76/04     76/24     76/44     77/04     77/22
                                           75/13     75/30     75/46     76/05     76/25     76/45     77/05     77/23
                                           75/14     75/31     75/47     76/10     76/26     76/46     77/06     77/24
                                           75/15     75/32     75/48     76/11     76/27     76/47     77/07     77/25
                                           75/16     75/33     75/49     76/12     76/29     76/48     77/08     77/26
                                           75/17     75/34     75/50     76/13     76/30     76/49     77/09     77/28
                                           75/18     75/35     75/51     76/14     76/31     76/50     77/11     77/29
                                           75/19     75/36     75/52     76/15     76/32     76/51     77/12
                                           75/20     75/37     75/53     76/16     76/33     76/52     77/13
                                           75/21     75/38     75/54     76/17     76/34     76/53     77/14
                                           75/22     75/39     75/55     76/18     76/35     76/54     77/15
                                           75/24     75/40     75/56     76/19     76/36     76/56     77/16
                                           75/25     75/41     75/57     76/20     76/37     76/57     77/17
                                           75/26     75/42     76/01     76/21     76/38     77/01     77/18
        I.BSS          24   FTX            22/19
        I.JPI          30   FTX            22/16
        I.RJ3          35   FTX            22/17
        I.UJP          41   FTX            22/18     48/56     54/12     57/41     57/56     58/13
                                           48/27     54/05     57/33     57/48     58/07     60/09
        KLS         20000                  23/07 D   29/12     29/19     29/25     34/19     51/35     52/08     52/41
                                           29/03     29/12     29/19     29/31     35/08     51/45     52/30
        KRS         21000                  23/08 D   39/31     41/12     41/56     42/27     43/05     43/51     49/13
                                           30/38     39/40     41/37     42/15     42/46     43/12     48/09     54/28
                                           39/07     39/56     41/44     42/27     43/05     43/24     48/51
        LD          50000                  24/26 D   54/12
        LDB         60000                  24/27 D
        LEB          6000                  22/42 D
        LTB          7000                  22/44 D
        LTH1          220   PROGRAM*       32/49 L   32/54
        MAX01         406   PROGRAM*       39/40 L   40/04     40/16     40/21
        MI           3300                  22/33 D   46/57     58/28     58/42     59/11     59/25     61/17
                                           45/34     48/15     58/35     59/05     59/18     59/56
        M.BOOL          0   FTX            72/14 L   75/12     75/18     75/29     75/37     75/55     76/05     76/37
                                           75/09     75/13     75/20     75/30     75/47     75/56     76/16     76/38
                                           75/11     75/16     75/28     75/32     75/48     76/02     76/34     76/39
        M.CHAR          6   FTX            72/20 L   75/31     75/43     75/45     75/47     76/32
                                           75/29     75/39     75/44     75/46     76/30     76/33
        M.CPLX          5   FTX            72/19 L   75/17     75/21     75/33     76/15     76/49     77/05
                                           75/13     75/19     75/22     75/57     76/17     76/52
                                           75/15     75/20     75/32     76/11     76/46     77/01
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    90
        SYMBOLIC REFERENCE TABLE. 
  
        M.DBL           4   FTX            72/18 L   75/22     76/01     76/23     76/48     77/08     77/21
                                           75/12     75/34     76/18     76/24     76/51     77/12     77/23
                                           75/14     75/35     76/19     76/25     76/54     77/14     77/25
                                           75/18     75/36     76/21     76/29     76/57     77/16
                                           75/19     75/40     76/22     76/45     77/04     77/18
        M.INT           2   FTX            72/16 L   75/24     75/38     75/42     75/52     76/27     76/32     76/36
                                           75/14     75/26     75/39     75/49     75/53     76/29     76/33     79/15
                                           75/15     75/30     75/40     75/50     75/54     76/30     76/34     79/16
                                           75/21     75/31     75/41     75/51     76/26     76/31     76/35
        M.LOG           1   FTX            72/15 L   75/43     75/44     75/45     75/46
        M.REAL          3   FTX            72/17 L   75/27     75/54     76/12     76/37     76/56     77/13     77/28
                                           75/11     75/33     75/57     76/13     76/38     77/02     77/15     77/29
                                           75/16     75/34     76/01     76/14     76/40     77/03     77/17     79/13
                                           75/17     75/38     76/03     76/15     76/44     77/06     77/20     79/14
                                           75/24     75/41     76/04     76/20     76/47     77/07     77/22
                                           75/25     75/42     76/10     76/24     76/50     77/09     77/24
                                           75/26     75/51     76/11     76/36     76/53     77/11     77/26
        NEB          5000                  22/41 D
        NEH1          274   PROGRAM*       34/19 L   34/24
        NEQV        13000                  22/54 D
        NOP         46000                  23/49 D
        NR          24000                  23/11 D   28/25     31/51     34/08     39/31     41/56     47/42     61/04
                                           27/24     30/01     31/51     34/08     39/56     41/56     57/48     61/04
                                           27/38     30/01     31/51     34/40     40/42     42/15     58/07     61/17
                                           27/38     30/30     32/35     34/54     40/42     42/15     58/35     61/17
                                           27/38     31/05     32/44     34/54     40/42     43/43     58/55     61/30
                                           27/45     31/05     33/12     34/54     41/37     44/09     59/11     61/40
                                           27/45     31/22     33/22     36/13     41/37     47/24     59/25     61/40
                                           28/11     31/22     33/51     36/23     41/37     47/42     59/39     61/50
                                           28/25     31/22     34/08     39/24     41/44     47/42     60/51     61/50
        NZ           3100                  22/31 D   58/35     61/23     61/40     61/50
                                           58/28     59/49     61/30     61/50
        OMI=CPX        30                  77/34 D   77/34 E
        OMI=LCF        51                  77/37 D   77/37 E
        OMI=LEN       130                  77/35 D   77/35 E
        OMI=SHF       141                  77/36 D   77/36 E
        OM=ADD       1411   PROGRAM*       71/06 L   71/06 E
        OM=AND       1427   PROGRAM*       71/20 L   71/20 E
        OM=CONV        57                  70/21 D   70/23     72/16     72/18     79/13     79/15
                                           70/21 E   72/14     72/17     72/19     79/14     79/16
        OM=DIV       1414   PROGRAM*       71/09 L   71/09 E
        OM=DOC       1435   PROGRAM*       71/27 L   71/27 E   71/28     71/29 L   71/29 E
        OM=EQ        1424   PROGRAM*       71/16 L   71/16 E
        OM=EQV       1431   PROGRAM*       71/22 L   71/22 E
        OM=GE        1420   PROGRAM*       71/14 L   71/14 E
        OM=IF         216                  70/22 D   72/47     72/49     72/53     72/55     73/03     73/05     73/07
                                           70/22 E   72/48     72/50     72/54     73/02     73/04     73/06
        OM=INL         57                  70/23 D   75/17     75/26     75/38     75/55     76/12     76/21     76/35
                                           70/23 E   75/18     75/27     75/40     75/56     76/13     76/23     76/36
                                           75/11     75/19     75/28     75/41     75/57     76/14     76/24     76/40
                                           75/12     75/20     75/30     75/42     76/01     76/16     76/25
                                           75/13     75/21     75/34     75/50     76/02     76/17     76/26
                                           75/14     75/22     75/35     75/51     76/05     76/18     76/27
                                           75/15     75/24     75/36     75/53     76/10     76/19     76/29
                                           75/16     75/25     75/37     75/54     76/11     76/20     76/31
        OM=LT        1416   PROGRAM*       71/13 L   71/13 E
        OM=MUL       1413   PROGRAM*       71/08 L   71/08 E
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    91
        SYMBOLIC REFERENCE TABLE. 
  
        OM=NE        1422   PROGRAM*       71/15 L   71/15 E
        OM=NOT       1426   PROGRAM*       71/19 L   71/19 E
        OM=OR        1430   PROGRAM*       71/21 L   71/21 E
        OM=STR       1433   PROGRAM*       71/26 L   71/26 E
        OM=SUB       1412   PROGRAM*       71/07 L   71/07 E
        OM=UMI       1415   PROGRAM*       71/10 L   71/10 E
        OM=XOR       1432   PROGRAM*       71/23 L   71/23 E
        OR          12000                  22/52 D   34/08     34/54     48/09     51/25     52/08     52/41     61/40
                                           33/43     34/08     34/54     49/32     51/35     52/18     61/04
                                           33/51     34/08     38/30     51/16     51/45     52/30     61/17
        ORJ          3500                  22/36 D
        PK          27000                  23/14 D   30/30     36/23     39/31     41/56     42/46     43/43
                                           30/30     36/13     39/24     40/42     42/15     43/43
        PL           3200                  22/32 D   46/44     57/41     57/56     58/20     58/55     59/39
                                           46/17     57/33     57/48     58/07     58/49     59/32     60/04
        RFA         34000                  23/25 D   39/31     42/15     42/15     42/46
        RFD         45000                  23/48 D   31/34     31/51     31/51
        RFM         41000                  23/39 D
        RFS         35000                  23/26 D
        RNR         25000                  23/12 D
        R.X1           21                  54/12
        SA=AB       54000                  24/02 D
        SA=AK       50000                  23/55 D
        SA=AMB      55000                  24/03 D
        SA=BB       56000                  24/04 D
        SA=BK       51000                  23/56 D
        SA=BMB      57000                  24/05 D
        SA=XB       53000                  24/01 D
        SA=XK       52000                  23/57 D   49/13
        SB=AB       64000                  24/11 D
        SB=AK       60000                  24/07 D
        SB=AMB      65000                  24/12 D
        SB=BB       66000                  24/13 D
        SB=BK       61000                  24/08 D
        SB=BMB      67000                  24/14 D
        SB=XB       63000                  24/10 D   44/27     48/51     49/13
        SB=XK       62000                  24/09 D   43/24     48/35
        SKEND        1410   PROGRAM*       61/57 L   61/57 E
        SKL.CON         0                  19/30 D   21/13     21/14     21/15
        SKL.GOP         1                  19/31 D   21/08     21/09     21/10     21/11
        SKL.OP          1                  19/28 D   21/01     21/02     21/03     21/04     21/05     21/06     21/07
        SKL.RG          0                  19/27 D   20/55     20/56     20/57
        SKL.TMP         1                  19/29 D   21/12
        SKM.CON         1                  19/30 D   21/13     21/14     21/15
        SKM.GOP         1                  19/31 D   21/08     21/09     21/10     21/11
        SKM.OP    7777774                  19/28 D
        SKM.RG          1                  19/27 D   20/55     20/56     20/57
        SKM.TMP         1                  19/29 D   21/12
        SKO.CON         0                  19/30 D   21/13     21/14     21/15
        SKO.GOP   7777776                  19/31 D   21/08     21/09     21/10     21/11
        SKO.OP          0                  19/28 D   21/01     21/02     21/03     21/04     21/05     21/06     21/07
        SKO.RG          0                  19/27 D   20/55     20/56     20/57
        SKO.TMP   7777776                  19/29 D   21/12
        SKU.CON         0                  19/30 D
        SKU.GOP         6                  19/31 D
        SKU.OP          6                  19/28 D
        SKU.RG          7                  19/27 D
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    92
        SYMBOLIC REFERENCE TABLE. 
  
        SKU.TMP        24                  19/29 D
        ST          50000                  24/28 D   44/09     46/17     46/44     47/42     49/32     51/25     52/08
                                           35/24     45/19     46/17     46/57     47/42     49/37     51/35     52/18
                                           35/32     45/34     46/24     47/06     47/53     51/07     51/45     52/30
                                           35/32     45/42     46/36     47/17     48/09     51/16     51/53     52/41
        STR         15000                  22/57 D   41/44     48/09     51/25     52/08     52/41
                                           41/37     43/12     48/51     51/35     52/18     54/28
                                           41/37     43/51     49/13     51/45     52/30
        SX=AB       74000                  24/21 D
        SX=AK       70000                  24/17 D
        SX=AMB      75000                  24/22 D
        SX=BB       76000                  24/23 D
        SX=BK       71000                  24/18 D   48/51
        SX=BMB      77000                  24/24 D
        SX=XB       73000                  24/20 D
        SX=XK       72000                  24/19 D   45/52     46/29     46/57     48/51     49/13
                                           45/34     46/17     46/49     46/57     49/13
        S=AEXIT         0   EXTERNAL*      54/12
        S=BU            0   EXTERNAL*      48/35
        S=EXIT          0   EXTERNAL*      54/05
        S=TRACE         0   EXTERNAL*      48/35
        TEST            0   CTX            72/21 F
        T.IND          27                  19/03 D   20/56 D   21/01 D   21/03 D   21/07 D   21/10 D   21/12 D   21/15 D
                                           20/55     20/57     21/02     21/04     21/08     21/10     21/12
                                           20/55 D   20/57 D   21/02 D   21/04 D   21/08 D   21/10 D   21/12 D
                                           20/55     20/57     21/02     21/05     21/09     21/11     21/13
                                           20/55 D   20/57 D   21/02 D   21/05 D   21/09 D   21/11 D   21/13 D
                                           20/56     21/01     21/03     21/06     21/09     21/11     21/14
                                           20/56 D   21/01 D   21/03 D   21/06 D   21/09 D   21/11 D   21/14 D
                                           20/56     21/01     21/03     21/07     21/10     21/12     21/15
        UP          26000                  23/13 D   30/30     36/31     42/46     43/43
        U=ABS         367                  39/04 D   64/22
        U=ADD.C        17                  27/40 D   62/26
        U=ADD.D         4                  27/26 D   62/24
        U=ADD.I         1                  27/17 D   62/20
        U=ADD.R         2                  27/21 D   62/22
        U=AGOTO         0                  48/30 D   48/31 D   48/32 D   48/33 D   48/34 D   48/35 D   48/35 D   65/47
        U=AIMAG       373                  39/15 D   64/26
        U=AINT        374                  39/19 D   64/28
        U=AMAX1       437                  40/13 D   64/40
        U=AMIN1       441                  40/18 D   64/42
        U=AMOD        443                  40/28 D   64/44
        U=AND.L       363                  38/14 D   64/14
        U=ANINT       400                  39/26 D   64/30
        U=APIOC         0                  50/48 D   50/49 D   66/10
        U=APIOD         0                  50/52 D   50/53 D   66/12
        U=APIOU         0                  50/56 D   50/57 D   66/14
        U=APSTR         0                  51/05 D   51/06 D
        U=ARY           0                  49/43 D   49/44 D   66/02
        U=ASFMT         0                  49/35 D
        U=ASLAB         0                  49/31 D
        U=ASSGN         0                  49/16 D   49/22 D   65/55
        U=BSS           0                  49/39 D   49/40 D   65/57
        U=BVD           0                  54/35 D   54/36 D   66/40
        U=CAPST         0                  51/51 D   51/52 D
        U=CAT           0                  35/48 D   35/49 D   63/51
        U=CDCS          0                  56/47 D   56/48 D   67/03
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    93
        SYMBOLIC REFERENCE TABLE. 
  
        U=CDDOT         0                  56/43 D   56/44 D   67/01
        U=CDLOO         0                  56/39 D   56/40 D   66/56
        U=CGOTO         0                  48/38 D   48/40 D   48/41 D   48/48 D   48/50 D   48/51 D   65/49
        U=CIAST         0                  52/13 D   52/16 D   52/17 D
        U=CIA0S         0                  52/37 D   52/39 D   52/40 D
        U=CISST         0                  52/03 D   52/06 D   52/07 D
        U=CIS0S         0                  52/25 D   52/28 D   52/29 D
        U=CMPLX       462                  41/02 D   64/48
        U=COLON         0                  35/53 D   35/54 D   63/53
        U=CONJG       460                  40/53 D   64/46
        U=DABS        464                  41/08 D   64/50
        U=DATA          0                  56/51 D   56/52 D   67/05
        U=DC.OC         0                  46/47 D
        U=DC.OS         0                  46/52 D   46/53 D   46/54 D   46/55 D   46/56 D
        U=DC.OV         0                  46/40 D   46/41 D   46/42 D   46/43 D
        U=DC.O1         0                  47/04 D   47/05 D
        U=DDIM        470                  41/18 D   64/52
        U=DFRD          0                  53/29 D
        U=DFRS          0                  53/23 D
        U=DIM         507                  41/39 D   64/54
        U=DINT        514                  41/47 D   64/56
        U=DIR.C       163                  31/36 D   62/56
        U=DIR.R       162                  31/32 D   62/54
        U=DIV.C       142                  31/07 D   62/50
        U=DIV.D       121                  30/44 D   62/48
        U=DIV.I         0                  30/12 D   30/13 D
        U=DIV.R       120                  30/40 D   62/46
        U=DMAX1       413                  39/42 D   64/34
        U=DMIN1       433                  40/06 D   64/38
        U=DNINT       527                  42/06 D   65/03
        U=DOBD2      1207                  57/16 D   67/15
        U=DOBL          0                  45/21 D   45/22 D   65/23
        U=DOBO          0                  45/46 D
        U=DOBS          0                  45/12 D   45/13 D   45/14 D   45/15 D   45/16 D   45/18 D   65/21
        U=DOBZL         0                  45/36 D   45/37 D   45/38 D   45/39 D   45/40 D   65/27
        U=DOBZS         0                  45/26 D   45/28 D   45/30 D   45/33 D   65/25
                                           45/27 D   45/29 D   45/31 D   45/34 D
        U=DOC.D         0                  47/26 D   47/27 D   47/39 D   47/40 D   65/39
        U=DOC.K         0                  46/27 D
        U=DOC.L         0                  47/11 D   47/12 D   47/14 D   47/15 D   65/35
        U=DOC.O         0                  46/19 D   46/20 D   46/22 D   46/23 D   65/31
        U=DOC.R         0                  47/19 D   47/20 D   65/37
        U=DOC.S         0                  46/09 D   46/12 D   46/14 D   46/16 D   65/29
                                           46/10 D   46/13 D   46/15 D   46/17 D
        U=DOC.1         0                  46/32 D   46/34 D   46/35 D   65/33
        U=DOZO          0                  45/50 D   45/52 D
        U=DPROD       525                  42/01 D   65/01
        U=DSIGN       540                  42/18 D   65/05
        U=DTOC        360                  36/46 D   64/10
        U=DVC.R       160                  31/26 D   62/52
        U=DVI           0                  57/08 D   57/09 D   67/11
        U=ENTR          0                  54/30 D   54/31 D   66/38
        U=EQV.L       364                  38/21 D   64/16
        U=EQ.D        314                  34/42 D   63/39
        U=EQ.H          0                  35/03 D   35/04 D   63/41
        U=EQ.I        302                  34/26 D   63/35
        U=EQ.R        307                  34/34 D   63/37
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    94
        SYMBOLIC REFERENCE TABLE. 
  
        U=ERR           0                  53/35 D   53/37 D   66/26
        U=EVD           0                  54/40 D   54/41 D   66/42
        U=EXP.I         0                  57/12 D   57/13 D   67/13
        U=FAP           0                  50/08 D   50/09 D   66/06
        U=FILE          0                  56/27 D   56/28 D   66/50
        U=FIN           0                  56/55 D   57/01 D   67/07
        U=FUNC          0                  53/04 D   53/05 D   66/18
        U=GAP           0                  50/04 D   50/05 D   66/04
        U=GE.D        232                  33/14 D   63/19
        U=GE.H          0                  33/26 D   33/27 D   63/21
        U=GE.I        223                  33/01 D   63/15
        U=GE.R        227                  33/08 D   63/17
        U=GOTO          0                  48/24 D   48/25 D   48/26 D   65/45
        U=GPL        1163                  54/24 D   66/36
        U=HDR           0                  56/23 D   56/24 D   66/48
        U=IAP           0                  50/12 D   50/13 D   66/08
        U=IDIM        567                  43/08 D   65/11
        U=IDNIN       552                  42/41 D   65/07
        U=IDP2          0                  30/36 D
        U=IEQ.C         0                  61/06 D   61/15 D   61/16 D   68/12
        U=IEQ.D         0                  60/53 D   61/02 D   61/03 D   68/10
        U=IEQ.I         0                  60/40 D   60/42 D   60/43 D   68/06
        U=IEQ.R         0                  60/46 D   60/49 D   60/50 D   68/08
        U=IFF           0                  60/01 D   60/02 D   60/03 D   68/02
        U=IFT           0                  59/53 D   59/54 D   59/55 D   67/57
        U=ILL           0                  27/10 D   27/11 D   62/18
        U=INE.C         0                  61/42 D   61/47 D   61/48 D   61/49 D   68/20
        U=INE.D         0                  61/32 D   61/38 D   61/39 D   68/18
        U=INE.I         0                  61/19 D   61/21 D   61/22 D   68/14
        U=INE.R         0                  61/25 D   61/28 D   61/29 D   68/16
        U=INN3          0                  59/13 D   59/16 D   59/17 D   67/45
        U=INTF          0                  53/11 D   53/12 D   66/22
        U=IN2N          0                  59/41 D   59/42 D   59/43 D   67/53
        U=IN22          0                  58/44 D   58/47 D   58/48 D   67/37
        U=IN23          0                  58/15 D   58/17 D   58/18 D   58/19 D   67/29
        U=IOLC          0                  47/46 D   47/47 D   65/41
        U=IOLC0         0                  48/08 D
        U=IOLC1         0                  47/52 D
        U=IOSUB         0                  53/15 D   53/16 D   66/24
        U=IPLG0         0                  51/41 D   51/42 D   51/43 D   51/44 D
        U=IPLG1         0                  51/20 D   51/21 D   51/23 D   51/24 D
        U=IPLG2         0                  51/30 D   51/31 D   51/33 D   51/34 D
        U=IPLUG         0                  51/12 D   51/13 D   51/14 D   51/15 D
        U=ISIGN       557                  42/55 D   65/09
        U=ITOB        350                  36/15 D   64/02
        U=ITOD        351                  36/19 D   64/04
        U=ITOR        346                  36/10 D   63/57
        U=I1NN          0                  58/57 D   59/03 D   59/04 D   67/41
        U=I1N1          0                  59/46 D   59/47 D   59/48 D   67/55
        U=I1N3          0                  58/22 D   58/25 D   58/26 D   58/27 D   67/31
        U=I11N          0                  59/27 D   59/30 D   59/31 D   67/49
        U=I111          0                  60/06 D   60/07 D   60/08 D   68/04
        U=I113          0                  57/50 D   57/53 D   57/54 D   57/55 D   67/23
        U=I12N          0                  58/37 D   58/39 D   58/40 D   58/41 D   67/35
        U=I121          0                  58/09 D   58/10 D   58/11 D   58/12 D   67/27
        U=I122          0                  57/35 D   57/38 D   57/39 D   57/40 D   67/19
        U=I123          0                  57/26 D   57/28 D   57/29 D   57/31 D   57/32 D   67/17
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    95
        SYMBOLIC REFERENCE TABLE. 
  
        U=JGOTO         0                  48/53 D   48/54 D   48/55 D   65/51
        U=LCC           0                  57/04 D   57/05 D   67/09
        U=LCIF          0                  48/11 D   48/13 D   48/14 D   65/43
        U=LEQ           0                  35/10 D   35/11 D   63/43
        U=LGE           0                  33/32 D   33/33 D   63/23
        U=LIBF          0                  53/08 D   53/09 D   66/20
        U=LLT           0                  32/51 D   32/52 D   63/13
        U=LNE           0                  34/21 D   34/22 D   63/33
        U=LT.D        211                  32/37 D   63/09
        U=LT.H          0                  32/46 D   32/47 D   63/11
        U=LT.I        204                  32/26 D   63/05
        U=LT.R        207                  32/32 D   63/07
        U=MASK          0                  43/14 D   43/15 D   65/13
        U=MASKC         0                  43/27 D
        U=MASKV         0                  43/20 D   43/24 D
        U=MAX0        405                  39/34 D   64/32
        U=MIN0        431                  40/01 D   64/36
        U=MOD           0                  43/30 D   43/31 D
        U=MODP2         0                  43/48 D
        U=MUL.C        76                  29/49 D   62/42
        U=MUL.D        66                  29/38 D   62/40
        U=MUL.I         0                  28/36 D   28/37 D
        U=MUL.R        65                  29/34 D   62/38
        U=NE.D        260                  33/53 D   63/29
        U=NE.H          0                  34/14 D   34/15 D   63/31
        U=NE.I        246                  33/37 D   63/25
        U=NE.R        253                  33/45 D   63/27
        U=NOOP       1173                  56/19 D
        U=NOT.L       362                  38/07 D   64/12
        U=OR.L        365                  38/28 D   64/18
        U=PAUS          0                  53/54 D   53/55 D   66/30
        U=PLIM          0                  56/31 D   56/32 D   66/52
        U=RANF          0                  44/05 D   44/07 D   65/17
        U=RET           0                  54/01 D   54/04 D   54/05 D   66/32
        U=RGOTO         0                  49/01 D   49/04 D   49/09 D   49/12 D   65/53
                                           49/02 D   49/05 D   49/10 D   49/13 D
        U=RNN3          0                  59/20 D   59/23 D   59/24 D   67/47
        U=RN22          0                  58/51 D   58/53 D   58/54 D   67/39
        U=RTNK          0                  54/07 D   54/08 D   54/11 D   54/12 D   54/12 D   66/34
        U=RTOD        356                  36/33 D   64/08
        U=RTOI        354                  36/28 D   64/06
        U=R1NN          0                  59/07 D   59/09 D   59/10 D   67/43
        U=R1N3          0                  58/30 D   58/32 D   58/33 D   58/34 D   67/33
        U=R11N          0                  59/34 D   59/37 D   59/38 D   67/51
        U=R113          0                  58/01 D   58/04 D   58/05 D   58/06 D   67/25
        U=R122          0                  57/43 D   57/45 D   57/46 D   57/47 D   67/21
        U=SEG           0                  56/15 D   56/16 D   66/44
        U=SEX           0                  56/35 D   56/36 D   66/54
        U=SHFC          0                  29/01 D
        U=SHFD          0                  29/16 D   29/17 D
        U=SHFD1         0                  29/29 D
        U=SHFS          0                  29/08 D   29/10 D
        U=SHFS1         0                  29/23 D
        U=SHIFT         0                  44/20 D   44/21 D
        U=SHIFV         0                  44/25 D
        U=STOP          0                  53/47 D   53/48 D   53/49 D   66/28
        U=STR.D         0                  35/28 D   35/30 D   35/31 D   63/47
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    96
        SYMBOLIC REFERENCE TABLE. 
  
        U=STR.H         0                  35/34 D   35/35 D   63/49
        U=STR.I         0                  35/22 D   35/23 D   63/45
        U=SUBR          0                  52/57 D   53/01 D   66/16
        U=SUBST         0                  35/57 D   36/01 D   63/55
        U=SUB.C        32                  28/20 D   62/34
        U=SUB.D        26                  28/13 D   62/32
        U=SUB.I        23                  28/04 D   62/28
        U=SUB.R        24                  28/08 D   62/30
        U=SUM1S       372                  39/10 D   64/24
        U=UMI.D       202                  32/11 D   63/03
        U=UMI.I       201                  32/05 D   63/01
        U=XOR.L       366                  38/35 D   64/20
        V=ABS          73                  39/04 D   39/04 E   64/22 L   69/20     76/10
        V=ADD.B         1                  27/47 E   68/30 D
        V=ADD.C         4                  27/40 D   27/40 E   62/26 L   71/06
        V=ADD.D         3                  27/26 D   27/26 E   62/24 L   71/06
        V=ADD.I         1                  27/17 D   27/17 E   62/20 L   68/30     71/06
        V=ADD.R         2                  27/21 D   27/21 E   62/22 L   71/06
        V=AGOTO       144                  48/30 D   48/30 E   65/47 L
        V=AIMAG        75                  39/15 D   39/15 E   64/26 L   76/11
        V=AINT         76                  39/19 D   39/19 E   64/28 L   76/12
        V=AMAX0       100                  40/25 E   69/12 D   75/24
        V=AMAX1       104                  40/13 D   40/13 E   64/40 L   69/10     75/25
        V=AMIN0       102                  40/26 E   69/13 D   75/26
        V=AMIN1       105                  40/18 D   40/18 E   64/42 L   69/11     75/27
        V=AMOD        106                  40/28 D   40/28 E   64/44 L   76/13
        V=AND          67                  40/45 E   69/14 D   75/28
        V=AND.B        67                  38/18 E   69/04 D   69/14     71/20
        V=AND.L        67                  38/14 D   38/14 E   64/14 L   69/04     71/20
        V=ANINT        77                  39/26 D   39/26 E   64/30 L   76/14
        V=APIOC       156                  50/48 D   50/48 E   66/10 L
        V=APIOD       157                  50/52 D   50/52 E   66/12 L
        V=APIOU       160                  50/56 D   50/56 E   66/14 L
        V=ARY         152                  49/43 D   49/43 E   66/02 L
        V=ASSGN       150                  49/16 D   49/16 E   65/55 L
        V=BOOL         61                  40/48 E   69/15 D   75/30
        V=BSS         151                  49/39 D   49/39 E   65/57 L
        V=BTOC         64                  37/05 E   69/02 D   75/13
        V=BTOD         64                  37/02 E   68/56 D   75/12
        V=BTOI         61                  37/04 E   69/01 D
        V=BTOR         61                  37/03 E   68/57 D   75/11
        V=BVD         175                  54/35 D   54/35 E   66/40 L
        V=CAT          55                  35/48 D   35/48 E   63/51 L
        V=CDCS        207                  56/47 D   56/47 E   67/03 L
        V=CDDOT       206                  56/43 D   56/43 E   67/01 L
        V=CDLOO       205                  56/39 D   56/39 E   66/56 L
        V=CGOTO       145                  48/38 D   48/38 E   65/49 L
        V=CMPLX       110                  41/02 D   41/02 E   64/48 L
        V=COLON        56                  35/53 D   35/53 E   63/53 L
        V=COMPL        66                  40/50 E   69/16 D   76/16
        V=CONJG       107                  40/53 D   40/53 E   64/46 L   76/17
        V=CTOB         61                  36/56 E   68/54 D   75/20
        V=CTOD         65                  36/57 E   68/55 D   72/19     75/22
        V=CTOI         63                  36/54 E   68/52 D   72/19     75/21
        V=CTOR         61                  36/55 E   68/53 D   68/54     69/27     72/19
        V=DABS        111                  41/08 D   41/08 E   64/50 L   76/18
        V=DATA        210                  56/51 D   56/51 E   67/05 L
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    97
        SYMBOLIC REFERENCE TABLE. 
  
        V=DBLE         64                  41/15 E   69/17 D   75/34
        V=DDIM        112                  41/18 D   41/18 E   64/52 L   76/19
        V=DIM         113                  41/39 D   41/39 E   64/54 L   76/20
        V=DINT        114                  41/47 D   41/47 E   64/56 L   76/21
        V=DIR.C        23                  31/36 D   31/36 E   62/56 L
        V=DIR.R        22                  31/32 D   31/32 E   62/54 L
        V=DIV.B        15                  31/24 E   68/33 D
        V=DIV.C        20                  31/07 D   31/07 E   62/50 L   71/09
        V=DIV.D        17                  30/44 D   30/44 E   62/48 L   71/09
        V=DIV.I        15                  30/12 D   30/12 E   62/44 L   68/33     71/09
        V=DIV.R        16                  30/40 D   30/40 E   62/46 L   71/09
        V=DMAX1       101                  39/42 D   39/42 E   64/34 L   75/35
        V=DMIN1       103                  40/06 D   40/06 E   64/38 L   75/36
        V=DNINT       116                  42/06 D   42/06 E   65/03 L   76/23
        V=DNN3        235                  60/23 E   69/37 D   73/02
        V=DN2N        240                  60/24 E   69/38 D
        V=DN22        231                  60/25 E   69/39 D   73/04
        V=DN23        224                  60/26 E   69/40 D   72/53
        V=DOBD2       215                  57/16 D   57/16 E   67/15 L
        V=DOBL        130                  45/21 D   45/21 E   65/23 L
        V=DOBS        127                  45/12 D   45/12 E   65/21 L
        V=DOBZL       132                  45/36 D   45/36 E   65/27 L
        V=DOBZS       131                  45/26 D   45/26 E   65/25 L
        V=DOC.D       140                  47/26 D   47/26 E   65/39 L   71/27     71/29
        V=DOC.L       136                  47/11 D   47/11 E   65/35 L   71/29
        V=DOC.O       134                  46/19 D   46/19 E   65/31 L
        V=DOC.R       137                  47/19 D   47/19 E   65/37 L   71/27     71/29
        V=DOC.S       133                  46/09 D   46/09 E   65/29 L   71/27
        V=DOC.1       135                  46/32 D   46/32 E   65/33 L
        V=DPROD       115                  42/01 D   42/01 E   65/01 L   76/24
        V=DSIGN       117                  42/18 D   42/18 E   65/05 L   76/25
        V=DTOB         61                  36/44 E   68/50 D   75/18
        V=DTOC         65                  36/46 D   36/46 E   64/10 L   68/55     72/18     75/19
        V=DTOI         63                  36/42 E   68/48 D   68/52     72/18
        V=DTOR         61                  36/43 E   68/49 D   68/50     68/53     72/18
        V=DVC.R        21                  31/26 D   31/26 E   62/52 L
        V=DVI         213                  57/08 D   57/08 E   67/11 L
        V=D1NN        233                  60/27 E   69/41 D   73/05
        V=D1N3        226                  60/28 E   69/42 D   72/54
        V=D11N        237                  60/29 E   69/43 D   73/03
        V=D111        244                  60/31 E   69/45 D
        V=D113        222                  60/30 E   69/44 D   72/48
        V=D12N        227                  60/32 E   69/46 D   72/55
        V=D122        220                  60/33 E   69/47 D   72/49
        V=D123        216                  60/34 E   69/48 D   72/47
        V=ENTR        174                  54/30 D   54/30 E   66/38 L
        V=EQV          70                  42/30 E   69/18 D   75/37
        V=EQV.B        70                  38/25 E   69/05 D   69/18     71/22
        V=EQV.L        70                  38/21 D   38/21 E   64/16 L   69/05     71/22
        V=EQ.B         45                  35/01 E   68/41 D   71/16
        V=EQ.C         47                  34/56 E   68/40 D
        V=EQ.D         47                  34/42 D   34/42 E   63/39 L   68/40     71/16
        V=EQ.H         50                  35/03 D   35/03 E   63/41 L   71/16
        V=EQ.I         45                  34/26 D   34/26 E   63/35 L   68/41     71/16
        V=EQ.R         46                  34/34 D   34/34 E   63/37 L   71/16
        V=ERR         166                  53/35 D   53/35 E   66/26 L
        V=EVD         176                  54/40 D   54/40 E   66/42 L
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    98
        SYMBOLIC REFERENCE TABLE. 
  
        V=EXP.I       214                  57/12 D   57/12 E   67/13 L
        V=FAP         154                  50/08 D   50/08 E   66/06 L
        V=FILE        202                  56/27 D   56/27 E   66/50 L
        V=FIN         211                  56/55 D   56/55 E   67/07 L
        V=FLOAT        60                  42/33 E   69/19 D   75/38
        V=FUNC        162                  53/04 D   53/04 E   66/18 L
        V=GAP         153                  50/04 D   50/04 E   66/04 L
        V=GE.B         33                  33/24 E   68/37 D   71/14
        V=GE.D         35                  33/14 D   33/14 E   63/19 L   71/14
        V=GE.H         36                  33/26 D   33/26 E   63/21 L   71/14
        V=GE.I         33                  33/01 D   33/01 E   63/15 L   68/37     71/14
        V=GE.R         34                  33/08 D   33/08 E   63/17 L   71/14
        V=GOTO        143                  48/24 D   48/24 E   65/45 L
        V=GPL         173                  54/24 D   54/24 E   66/36 L
        V=HDR         201                  56/23 D   56/23 E   66/48 L
        V=IABS         73                  42/36 E   69/20 D   76/26
        V=IAP         155                  50/12 D   50/12 E   66/08 L
        V=IDIM        122                  43/08 D   43/08 E   65/11 L   76/27
        V=IDINT        63                  42/39 E   69/21 D   75/40
        V=IDNIN       120                  42/41 D   42/41 E   65/07 L   69/25     76/28
        V=IEQ.C       250                  61/06 D   61/06 E   68/12 L
        V=IEQ.D       247                  60/53 D   60/53 E   68/10 L
        V=IEQ.I       245                  60/40 D   60/40 E   68/06 L
        V=IEQ.R       246                  60/46 D   60/46 E   68/08 L
        V=IFF         243                  60/01 D   60/01 E   68/02 L
        V=IFIX         63                  42/49 E   69/22 D   75/41
        V=IFT         242                  59/53 D   59/53 E   67/57 L
        V=ILL           0                  27/10 D   27/10 E   62/18 L
        V=INE.C       254                  61/42 D   61/42 E   68/20 L
        V=INE.D       253                  61/32 D   61/32 E   68/18 L
        V=INE.I       251                  61/19 D   61/19 E   68/14 L
        V=INE.R       252                  61/25 D   61/25 E   68/16 L
        V=INN3        234                  59/13 D   59/13 E   67/45 L   73/02
        V=INT          63                  42/52 E   69/23 D   75/42
        V=INTF        164                  53/11 D   53/11 E   66/22 L
        V=IN2N        240                  59/41 D   59/41 E   67/53 L   69/32     69/38     73/07
        V=IN22        230                  58/44 D   58/44 E   67/37 L   73/04
        V=IN23        224                  58/15 D   58/15 E   67/29 L   69/33     69/40     72/53
        V=IOLC        141                  47/46 D   47/46 E   65/41 L
        V=IOSUB       165                  53/15 D   53/15 E   66/24 L
        V=ISIGN       121                  42/55 D   42/55 E   65/09 L   69/28     76/31
        V=ITOB         61                  36/15 D   64/02 L   68/49     68/57     69/15
                                           36/15 E   68/47     68/51     69/01
        V=ITOC         62                  36/25 E   68/45 D   72/16     75/15
        V=ITOD         62                  36/19 D   36/19 E   64/04 L   68/45     72/16     75/14
        V=ITOR         60                  36/10 D   36/10 E   63/57 L   69/19     70/21     72/16     79/13     79/14
        V=I1NN        232                  58/57 D   58/57 E   67/41 L   73/05
        V=I1N1        241                  59/46 D   59/46 E   67/55 L   73/06
        V=I1N3        225                  58/22 D   58/22 E   67/31 L   72/54
        V=I11N        236                  59/27 D   59/27 E   67/49 L   73/03
        V=I111        244                  60/06 D   60/06 E   68/04 L   69/34     69/45
        V=I113        221                  57/50 D   57/50 E   67/23 L   72/48
        V=I12N        227                  58/37 D   58/37 E   67/35 L   69/35     69/46     72/55
        V=I121        223                  58/09 D   58/09 E   67/27 L   72/50
        V=I122        217                  57/35 D   57/35 E   67/19 L   72/49
        V=I123        216                  57/26 D   57/26 E   67/17 L   69/36     69/48     70/22     72/47
        V=JGOTO       146                  48/53 D   48/53 E   65/51 L
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE    99
        SYMBOLIC REFERENCE TABLE. 
  
        V=LCC         212                  57/04 D   57/04 E   67/09 L
        V=LCIF        142                  48/11 D   48/11 E   65/43 L
        V=LEQ          51                  35/10 D   35/10 E   63/43 L
        V=LGE          37                  33/32 D   33/32 E   63/23 L
        V=LIBF        163                  53/08 D   53/08 E   66/20 L
        V=LLT          32                  32/51 D   32/51 E   63/13 L
        V=LNE          44                  34/21 D   34/21 E   63/33 L
        V=LT.B         26                  32/56 E   68/36 D   71/13
        V=LT.D         30                  32/37 D   32/37 E   63/09 L   71/13
        V=LT.H         31                  32/46 D   32/46 E   63/11 L   71/13
        V=LT.I         26                  32/26 D   32/26 E   63/05 L   68/36     71/13
        V=LT.R         27                  32/32 D   32/32 E   63/07 L   71/13
        V=MASK        123                  43/14 D   43/14 E   65/13 L
        V=MAX0        100                  39/34 D   39/34 E   64/32 L   69/12     75/50
        V=MAX1        104                  40/23 E   69/10 D   75/51
        V=MIN0        102                  40/01 D   40/01 E   64/36 L   69/13     75/53
        V=MIN1        105                  40/24 E   69/11 D   75/54
        V=MOD         124                  43/30 D   43/30 E   65/15 L   76/35
        V=MUL.B        11                  30/03 E   68/32 D
        V=MUL.C        14                  29/49 D   29/49 E   62/42 L   71/08
        V=MUL.D        13                  29/38 D   29/38 E   62/40 L   71/08
        V=MUL.I        11                  28/36 D   28/36 E   62/36 L   68/32     71/08
        V=MUL.R        12                  29/34 D   29/34 E   62/38 L   71/08
        V=NEQV         72                  43/54 E   69/24 D   69/30     75/55
        V=NEQV.        72                  38/40 E   38/41 E   69/08 D   69/09 D
        V=NE.B         40                  34/12 E   68/39 D   71/15
        V=NE.C         42                  34/10 E   68/38 D
        V=NE.D         42                  33/53 D   33/53 E   63/29 L   68/38     71/15
        V=NE.H         43                  34/14 D   34/14 E   63/31 L   71/15
        V=NE.I         40                  33/37 D   33/37 E   63/25 L   68/39     71/15
        V=NE.R         41                  33/45 D   33/45 E   63/27 L   71/15
        V=NINT        120                  43/56 E   69/25 D   76/36
        V=NOOP        200                  56/19 D   56/19 E   66/46 L
        V=NOT.B        66                  38/11 E   69/03 D   69/16     71/19
        V=NOT.L        66                  38/07 D   38/07 E   64/12 L   69/03     71/19
        V=OR           71                  44/02 E   69/26 D   75/56
        V=OR.B         71                  38/32 E   69/06 D   69/26     71/21
        V=OR.L         71                  38/28 D   38/28 E   64/18 L   69/06     71/21
        V=PAUS        170                  53/54 D   53/54 E   66/30 L
        V=PEND        167                  53/52 E   69/31 D
        V=PLIM        203                  56/31 D   56/31 E   66/52 L
        V=RANF        125                  44/05 D   44/05 E   65/17 L
        V=REAL         61                  44/11 E   69/27 D   69/29     75/57
        V=RET         171                  54/01 D   54/01 E   66/32 L
        V=RGOTO       147                  49/01 D   49/01 E   65/53 L
        V=RNN3        235                  59/20 D   59/20 E   67/47 L   69/37     73/02
        V=RN2N        240                  60/15 E   69/32 D
        V=RN22        231                  58/51 D   58/51 E   67/39 L   69/39     73/04
        V=RN23        224                  60/16 E   69/33 D
        V=RTNK        172                  54/07 D   54/07 E   66/34 L
        V=RTOB         61                  36/39 E   68/47 D   75/16
        V=RTOC         64                  36/38 E   68/46 D   72/14     72/17     75/17
        V=RTOD         64                  36/33 D   64/08 L   68/56     69/17     72/17
                                           36/33 E   68/46     69/02     72/14
        V=RTOI         63                  36/28 D   64/06 L   69/21     69/23     79/15
                                           36/28 E   68/48     69/22     72/17     79/16
        V=R1NN        233                  59/07 D   59/07 E   67/43 L   69/41     73/05
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   100
        SYMBOLIC REFERENCE TABLE. 
  
        V=R1N3        226                  58/30 D   58/30 E   67/33 L   69/42     72/54
        V=R11N        237                  59/34 D   59/34 E   67/51 L   69/43     73/03
        V=R111        244                  60/17 E   69/34 D
        V=R113        222                  58/01 D   58/01 E   67/25 L   69/44     72/48
        V=R12N        227                  60/18 E   69/35 D
        V=R122        220                  57/43 D   57/43 E   67/21 L   69/47
        V=R123        216                  60/19 E   69/36 D
        V=SEG         177                  56/15 D   56/15 E   66/44 L
        V=SEX         204                  56/35 D   56/35 E   66/54 L
        V=SHIFT       126                  44/20 D   44/20 E   65/19 L
        V=SIGN        121                  44/14 E   69/28 D   76/40
        V=SNGL         61                  44/17 E   69/29 D   76/01
        V=STOP        167                  53/47 D   53/47 E   66/28 L   69/31
        V=STR.B        52                  35/40 E   68/44 D
        V=STR.C        53                  35/38 E   68/43 D
        V=STR.D        53                  35/28 D   35/28 E   63/47 L   68/43     71/26
        V=STR.H        54                  35/34 D   35/34 E   63/49 L   71/26
        V=STR.I        52                  35/22 D   35/22 E   63/45 L   68/42     68/44     71/26
        V=STR.R        52                  35/26 E   68/42 D
        V=SUBR        161                  52/57 D   52/57 E   66/16 L
        V=SUBST        57                  35/57 D   35/57 E   63/55 L
        V=SUB.B         5                  28/27 E   68/31 D
        V=SUB.C        10                  28/20 D   28/20 E   62/34 L   71/07
        V=SUB.D         7                  28/13 D   28/13 E   62/32 L   71/07
        V=SUB.I         5                  28/04 D   28/04 E   62/28 L   68/31     71/07
        V=SUB.R         6                  28/08 D   28/08 E   62/30 L   71/07
        V=SUM1S        74                  39/10 D   39/10 E   64/24 L   76/05
        V=UMI.C        25                  32/16 E   68/35 D   71/10
        V=UMI.D        25                  32/11 D   32/11 E   63/03 L   68/35     71/10
        V=UMI.I        24                  32/05 D   32/05 E   63/01 L   68/34     71/10
        V=UMI.R        24                  32/09 E   68/34 D   71/10
        V=XMIT         61                  36/51 E   68/51 D
        V=XOR          72                  44/34 E   69/30 D   76/02
        V=XOR.B        72                  38/39 E   69/07 D   69/24     71/23
        V=XOR.L        72                  38/35 D   38/35 E   64/20 L   69/07     69/08     69/09     71/23
        W=ABS         367                  39/04 D   42/36     64/22
        W=ADD.B         1                  27/47 D
        W=ADD.C        17                  27/40 D   62/26
        W=ADD.D         4                  27/26 D   62/24
        W=ADD.I         1                  27/17 D   27/47     62/20
        W=ADD.R         2                  27/21 D   62/22
        W=AGOTO       764                  48/30 D   65/47
        W=AIMAG       373                  39/15 D   64/26
        W=AINT        374                  39/19 D   64/28
        W=AMAX0       405                  40/25 D
        W=AMAX1       437                  40/13 D   40/23     64/40
        W=AMIN0       431                  40/26 D
        W=AMIN1       441                  40/18 D   40/24     64/42
        W=AMOD        443                  40/28 D   64/44
        W=AND         363                  40/45 D
        W=AND.B       363                  38/18 D   40/45
        W=AND.L       363                  38/14 D   38/18     64/14
        W=ANINT       400                  39/26 D   64/30
        W=APIOC      1033                  50/48 D   66/10
        W=APIOD      1034                  50/52 D   66/12
        W=APIOU      1035                  50/56 D   66/14
        W=APSTR      1036                  51/04 D   51/04 E
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   101
        SYMBOLIC REFERENCE TABLE. 
  
        W=ARY        1027                  49/43 D   66/02
        W=ASFMT      1025                  49/34 D   49/34 E
        W=ASLAB      1022                  49/25 D   49/25 E
        W=ASSGN      1021                  49/16 D   65/55
        W=BOOL        350                  40/48 D
        W=BSS        1026                  49/39 D   65/57
        W=BTOC        356                  37/05 D
        W=BTOD        356                  37/02 D
        W=BTOI        350                  37/04 D
        W=BTOR        350                  37/03 D
        W=BVD        1170                  54/35 D   66/40
        W=CAPST      1072                  51/49 D   51/49 E
        W=CAT         343                  35/48 D   63/51
        W=CDCS       1201                  56/47 D   67/03
        W=CDDOT      1200                  56/43 D   67/01
        W=CDLOO      1177                  56/39 D   66/56
        W=CGOTO       770                  48/38 D   65/49
        W=CIAST      1106                  52/10 D   52/10 E
        W=CIA0S      1126                  52/32 D   52/32 E
        W=CISST      1075                  51/56 D   51/56 E
        W=CIS0S      1115                  52/21 D   52/21 E
        W=CMPLX       462                  41/02 D   64/48
        W=COLON       344                  35/53 D   63/53
        W=COMPL       362                  40/50 D
        W=CONJG       460                  40/53 D   64/46
        W=CTOB        350                  36/56 D
        W=CTOD        360                  36/57 D
        W=CTOI        354                  36/54 D
        W=CTOR        350                  36/55 D   36/56     44/11
        W=DABS        464                  41/08 D   64/50
        W=DATA       1202                  56/51 D   67/05
        W=DBLE        356                  41/15 D
        W=DC.OC       702                  46/46 D   46/46 E
        W=DC.OS       704                  46/51 D   46/51 E
        W=DC.OV       675                  46/38 D   46/38 E
        W=DC.O1       711                  47/02 D   47/02 E
        W=DDIM        470                  41/18 D   64/52
        W=DFRD       1146                  53/26 D   53/26 E
        W=DFRS       1144                  53/21 D   53/21 E
        W=DIM         507                  41/39 D   64/54
        W=DINT        514                  41/47 D   64/56
        W=DIR.C       163                  31/36 D   62/56
        W=DIR.R       162                  31/32 D   62/54
        W=DIV.B       106                  31/24 D
        W=DIV.C       142                  31/07 D   62/50
        W=DIV.D       121                  30/44 D   62/48
        W=DIV.I       106                  30/12 D   31/24     62/44
        W=DIV.R       120                  30/40 D   62/46
        W=DMAX1       413                  39/42 D   64/34
        W=DMIN1       433                  40/06 D   64/38
        W=DNINT       527                  42/06 D   65/03
        W=DNN3       1305                  60/23 D
        W=DN2N       1321                  60/24 D
        W=DN22       1267                  60/25 D
        W=DN23       1242                  60/26 D
        W=DOBD2      1207                  57/16 D   67/15
        W=DOBL        635                  45/21 D   65/23
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   102
        SYMBOLIC REFERENCE TABLE. 
  
        W=DOBO        652                  45/45 D   45/45 E
        W=DOBS        630                  45/12 D   65/21
        W=DOBZL       645                  45/36 D   65/27
        W=DOBZS       637                  45/26 D   65/25
        W=DOC.D       725                  47/26 D   65/39
        W=DOC.K       670                  46/26 D   46/26 E
        W=DOC.L       714                  47/11 D   65/35
        W=DOC.O       664                  46/19 D   65/31
        W=DOC.R       721                  47/19 D   65/37
        W=DOC.S       655                  46/09 D   65/29
        W=DOC.1       672                  46/32 D   65/33
        W=DOZO        653                  45/49 D   45/49 E
        W=DPROD       525                  42/01 D   65/01
        W=DSIGN       540                  42/18 D   65/05
        W=DTOB        350                  36/44 D
        W=DTOC        360                  36/46 D   36/57     64/10
        W=DTOI        354                  36/42 D   36/54
        W=DTOR        350                  36/43 D   36/44     36/55
        W=DVC.R       160                  31/26 D   62/52
        W=DVI        1205                  57/08 D   67/11
        W=D1NN       1276                  60/27 D
        W=D1N3       1253                  60/28 D
        W=D11N       1315                  60/29 D
        W=D111       1331                  60/31 D
        W=D113       1232                  60/30 D
        W=D12N       1257                  60/32 D
        W=D122       1221                  60/33 D
        W=D123       1207                  60/34 D
        W=ENTR       1167                  54/30 D   66/38
        W=EQV         364                  42/30 D
        W=EQV.B       364                  38/25 D   42/30
        W=EQV.L       364                  38/21 D   38/25     64/16
        W=EQ.B        302                  35/01 D
        W=EQ.C        314                  34/56 D
        W=EQ.D        314                  34/42 D   34/56     63/39
        W=EQ.H        327                  35/03 D   63/41
        W=EQ.I        302                  34/26 D   35/01     63/35
        W=EQ.R        307                  34/34 D   63/37
        W=ERR        1151                  53/35 D   66/26
        W=EVD        1171                  54/40 D   66/42
        W=EXP.I      1206                  57/12 D   67/13
        W=FAP        1031                  50/08 D   66/06
        W=FILE       1174                  56/27 D   66/50
        W=FIN        1203                  56/55 D   67/07
        W=FLOAT       346                  42/33 D
        W=FUNC       1140                  53/04 D   66/18
        W=GAP        1030                  50/04 D   66/04
        W=GE.B        223                  33/24 D
        W=GE.D        232                  33/14 D   63/19
        W=GE.H        241                  33/26 D   63/21
        W=GE.I        223                  33/01 D   33/24     63/15
        W=GE.R        227                  33/08 D   63/17
        W=GOTO        762                  48/24 D   65/45
        W=GPL        1163                  54/24 D   66/36
        W=HDR        1173                  56/23 D   66/48
        W=IABS        367                  42/36 D
        W=IAP        1032                  50/12 D   66/08
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   103
        SYMBOLIC REFERENCE TABLE. 
  
        W=IDIM        567                  43/08 D   65/11
        W=IDINT       354                  42/39 D
        W=IDNIN       552                  42/41 D   43/56     65/07
        W=IDP2        115                  30/34 D   30/34 E   44/31
        W=IDV         107                  30/32 D   30/32 E
        W=IDVC        107                  30/16 D   30/16 E   30/32     62/44
        W=IEQ.C      1351                  61/06 D   68/12
        W=IEQ.D      1342                  60/53 D   68/10
        W=IEQ.I      1333                  60/40 D   68/06
        W=IEQ.R      1336                  60/46 D   68/08
        W=IFF        1327                  60/01 D   68/02
        W=IFIX        354                  42/49 D
        W=IFT        1325                  59/53 D   67/57
        W=ILL           0                  27/10 D   62/18     66/46
        W=IMV          37                  28/44 D   28/44 E
        W=IMVC         37                  28/40 D   28/40 E   28/44     62/36
        W=IM2          40                  28/50 D   28/50 E
        W=INE.C      1401                  61/42 D   68/20
        W=INE.D      1372                  61/32 D   68/18
        W=INE.I      1363                  61/19 D   68/14
        W=INE.R      1366                  61/25 D   68/16
        W=INN3       1301                  59/13 D   67/45
        W=INT         354                  42/52 D
        W=INTF       1142                  53/11 D   66/22
        W=IN2N       1321                  59/41 D   60/15     60/24     67/53
        W=IN22       1263                  58/44 D   67/37
        W=IN23       1242                  58/15 D   60/16     60/26     67/29
        W=IOLC        744                  47/46 D   65/41
        W=IOLC0       747                  47/55 D   47/55 E
        W=IOLC1       745                  47/50 D   47/50 E
        W=IOSUB      1143                  53/15 D   66/24
        W=IPLG0      1063                  51/38 D   51/38 E
        W=IPLG1      1045                  51/18 D   51/18 E
        W=IPLG2      1053                  51/27 D   51/27 E
        W=IPLUG      1040                  51/10 D   51/10 E
        W=ISIGN       557                  42/55 D   44/14     65/09
        W=ITOB        350                  36/15 D   36/39     36/43     36/51     37/03     37/04     40/48     64/02
        W=ITOC        351                  36/25 D
        W=ITOD        351                  36/19 D   36/25     64/04
        W=ITOR        346                  36/10 D   42/33     63/57
        W=I1NN       1272                  58/57 D   67/41
        W=I1N1       1323                  59/46 D   67/55
        W=I1N3       1246                  58/22 D   67/31
        W=I11N       1311                  59/27 D   67/49
        W=I111       1331                  60/06 D   60/17     60/31     68/04
        W=I113       1225                  57/50 D   67/23
        W=I12N       1257                  58/37 D   60/18     60/32     67/35
        W=I121       1237                  58/09 D   67/27
        W=I122       1214                  57/35 D   67/19
        W=I123       1207                  57/26 D   60/19     60/34     67/17
        W=JGOTO      1003                  48/53 D   65/51
        W=LCC        1204                  57/04 D   67/09
        W=LCIF        757                  48/11 D   65/43
        W=LEQ         334                  35/10 D   63/43
        W=LGE         244                  33/32 D   63/23
        W=LIBF       1141                  53/08 D   66/20
        W=LLT         221                  32/51 D   63/13
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   104
        SYMBOLIC REFERENCE TABLE. 
  
        W=LNE         300                  34/21 D   63/33
        W=LT.B        204                  32/56 D
        W=LT.D        211                  32/37 D   63/09
        W=LT.H        217                  32/46 D   63/11
        W=LT.I        204                  32/26 D   32/56     63/05
        W=LT.R        207                  32/32 D   63/07
        W=MASK        573                  43/14 D   65/13
        W=MASKC       602                  43/26 D   43/26 E
        W=MASKV       574                  43/18 D   43/18 E
        W=MAX0        405                  39/34 D   40/25     64/32
        W=MAX1        437                  40/23 D
        W=MIN0        431                  40/01 D   40/26     64/36
        W=MIN1        441                  40/24 D
        W=MOD         603                  43/30 D   65/15
        W=MODG        604                  43/34 D   43/34 E   65/15
        W=MODP2       614                  43/45 D   43/45 E
        W=MUL.B        36                  30/03 D
        W=MUL.C        76                  29/49 D   62/42
        W=MUL.D        66                  29/38 D   62/40
        W=MUL.I        36                  28/36 D   30/03     62/36
        W=MUL.R        65                  29/34 D   62/38
        W=NEQV        366                  43/54 D   44/34
        W=NEQV.       366                  38/40 D   38/41 D
        W=NE.B        246                  34/12 D
        W=NE.C        260                  34/10 D
        W=NE.D        260                  33/53 D   34/10     63/29
        W=NE.H        273                  34/14 D   63/31
        W=NE.I        246                  33/37 D   34/12     63/25
        W=NE.R        253                  33/45 D   63/27
        W=NINT        552                  43/56 D
        W=NOOP       1173                  56/19 D   66/46
        W=NOT.B       362                  38/11 D   40/50
        W=NOT.L       362                  38/07 D   38/11     64/12
        W=OR          365                  44/02 D
        W=OR.B        365                  38/32 D   44/02
        W=OR.L        365                  38/28 D   38/32     64/18
        W=PAUS       1154                  53/54 D   66/30
        W=PEND       1152                  53/52 D
        W=PLIM       1175                  56/31 D   66/52
        W=RANF        622                  44/05 D   65/17
        W=REAL        350                  44/11 D   44/17
        W=RET        1155                  54/01 D   66/32
        W=RGOTO      1005                  49/01 D   65/53
        W=RNN3       1305                  59/20 D   60/23     67/47
        W=RN2N       1321                  60/15 D
        W=RN22       1267                  58/51 D   60/25     67/39
        W=RN23       1242                  60/16 D
        W=RTNK       1157                  54/07 D   66/34
        W=RTOB        350                  36/39 D
        W=RTOC        356                  36/38 D
        W=RTOD        356                  36/33 D   36/38     37/02     37/05     41/15     64/08
        W=RTOI        354                  36/28 D   36/42     42/39     42/49     42/52     64/06
        W=R1NN       1276                  59/07 D   60/27     67/43
        W=R1N3       1253                  58/30 D   60/28     67/33
        W=R11N       1315                  59/34 D   60/29     67/51
        W=R111       1331                  60/17 D
        W=R113       1232                  58/01 D   60/30     67/25
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   105
        SYMBOLIC REFERENCE TABLE. 
  
        W=R12N       1257                  60/18 D
        W=R122       1221                  57/43 D   60/33     67/21
        W=R123       1207                  60/19 D
        W=SEG        1172                  56/15 D   66/44
        W=SEX        1176                  56/35 D   66/54
        W=SHFC         41                  28/56 D   28/56 E   44/29
        W=SHFD         52                  29/14 D   29/14 E
        W=SHFD1        62                  29/27 D   29/27 E
        W=SHFS         44                  29/06 D   29/06 E
        W=SHFS1        57                  29/21 D   29/21 E
        W=SHIFT       625                  44/20 D   65/19
        W=SHIFV       626                  44/24 D   44/24 E   65/19
        W=SHLC         41                  44/29 D   44/29 E
        W=SHRC        115                  44/31 D   44/31 E
        W=SIGN        557                  44/14 D
        W=SNGL        350                  44/17 D
        W=STOP       1152                  53/47 D   53/52     66/28
        W=STR.B       336                  35/40 D
        W=STR.C       337                  35/38 D
        W=STR.D       337                  35/28 D   35/38     63/47
        W=STR.H       342                  35/34 D   63/49
        W=STR.I       336                  35/22 D   35/26     35/40     63/45
        W=STR.R       336                  35/26 D
        W=SUBR       1137                  52/57 D   66/16
        W=SUBST       345                  35/57 D   63/55
        W=SUB.B        23                  28/27 D
        W=SUB.C        32                  28/20 D   62/34
        W=SUB.D        26                  28/13 D   62/32
        W=SUB.I        23                  28/04 D   28/27     62/28
        W=SUB.R        24                  28/08 D   62/30
        W=SUM1S       372                  39/10 D   64/24
        W=UMI.C       202                  32/16 D
        W=UMI.D       202                  32/11 D   32/16     63/03
        W=UMI.I       201                  32/05 D   32/09     63/01
        W=UMI.R       201                  32/09 D
        W=XMIT        350                  36/51 D
        W=XOR         366                  44/34 D
        W=XOR.B       366                  38/39 D   43/54
        W=XOR.L       366                  38/35 D   38/39     38/40     38/41     64/20
        XMT         10000                  22/50 D   29/31     35/08     39/56     42/27     48/51     52/18     54/28
                                           29/03     30/38     35/32     40/56     42/27     49/13     52/30     57/33
                                           29/03     30/38     36/17     41/05     42/46     49/13     52/30     58/20
                                           29/12     32/49     36/36     41/05     43/05     49/13     52/41     58/42
                                           29/12     33/30     36/49     41/12     43/05     51/35     52/41
                                           29/12     34/19     39/07     41/37     43/12     51/45     53/24
                                           29/19     34/19     39/17     41/44     43/24     51/53     53/30
                                           29/19     34/19     39/31     41/56     43/51     52/08     53/30
                                           29/25     35/08     39/40     42/15     48/09     52/08     54/12
        XMTC        14000                  22/56 D   32/14     33/06     33/22     35/08     40/56     59/25
                                           32/07     32/14     33/12     33/30     38/09     58/07     59/39
        XOR         13000                  22/53 D   39/40     39/56     41/12     42/27     43/05     43/51
                                           38/37     39/40     39/56     41/12     42/27     43/05
                                           39/07     39/56     39/56     42/27     42/27     43/51
        ZR           3000                  22/30 D   58/13     58/42     60/44     61/04
                                           57/33     58/20     59/44     60/51
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   106
        SYMBOLIC REFERENCE TABLE. 
  
        ZT.            23                  20/55 D   20/56     21/01 D   21/03 D   21/05     21/07     21/10 D   21/12 D
                                           20/55     20/57 D   21/01     21/03     21/06 D   21/09 D   21/11 D   21/12
                                           20/56 D   20/57     21/02 D   21/05 D   21/07 D   21/09     21/11
        ZT.A            1                  20/55 D   20/55
        ZT.B            3                  20/56 D   20/56
        ZT.GL          17                  21/09 D   21/09     21/10
        ZT.GLL         21                  21/11 D   21/11
        ZT.GLU         17                  21/10 D   21/10
        ZT.GP          15                  21/08 D   21/08
        ZT.K           26                  21/15 D
        ZT.L            7                  21/01 D   21/01     21/02
        ZT.LL          11                  21/03 D   21/03
        ZT.LU           7                  21/02 D   21/02
        ZT.P           12                  21/04 D   21/04
        ZT.Q           24                  21/13 D
        ZT.R           13                  21/05 D   21/05     21/06
        ZT.RL          14                  21/07 D   21/07
        ZT.RU          13                  21/06 D   21/06
        ZT.S           25                  21/14 D
        ZT.T           23                  21/12 D   21/12
        ZT.X            5                  20/57 D   20/57
        Z=TURP          3   FTX            19/28
        Z.IMCV          4                  79/17 D   79/17 E
        Z.INTA         77                  76/07 L   76/07 E
        Z.INTF        227                  77/32 L   77/32 E   78/51
        Z.SCT         255                  68/22 L   68/22 E   68/27
        Z.SKCR        255                  68/24 L   68/24 E
        .CG             1                   4/18 D   28/49 F   31/31 F   46/31 F   49/17 F   51/09 F   52/43 F   54/44 F
                                           12/46 F   29/05 F   45/44 F   47/44 F   50/25 F   51/55 F   53/19 F
        .FAST           0                   4/16 D   12/46 F   49/17 F   50/25 F   52/43 F   54/44 F
        .IDC            0   CTX            30/21 F
        .OPT            1                   4/17 D   28/49 F   31/31 F   46/31 F   51/09 F   53/19 F
                                            4/18     29/05 F   45/44 F   47/44 F   51/55 F
  
  
  
  
                                                  SYMBOL QUALIFIER =  INTF
  
  
        ABS            77                  76/10 L   78/26     78/26
        ACOS          202                  77/13 L   78/45     78/45
        AIMAG         101                  76/11 L
        AINT          102                  76/12 L   78/27     78/27
        ALOG          154                  76/50 L   78/39
        ALOG10        157                  76/53 L   78/40
        AMAX0          15                  75/24 L   79/13
        AMAX1          16                  75/25 L   78/32
        AMIN0          17                  75/26 L   79/14
        AMIN1          20                  75/27 L   78/33
        AMOD          104                  76/13 L   78/31
        AND            21                  75/28 L
        ANINT         105                  76/14 L   78/28     78/28
        ASIN          177                  77/11 L   78/44     78/44
        ATAN          205                  77/15 L   78/46     78/46
        ATANH         224                  77/26 L
        ATAN2         210                  77/17 L   78/47     78/47
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   107
        SYMBOLIC REFERENCE TABLE.                                     INTF
  
        BOOL           23                  75/30 L   78/18
        BOOL$          22                  75/29 L   78/18
        BTOC.           3                  75/13 L   78/22
        BTOD.           2                  75/12 L   78/21
        BTOR.           1                  75/11 L
        CABS          107                  76/15 L   78/26
        CCOS          171                  77/05 L   78/42
        CEXP          153                  76/49 L   78/38
        CHAR           25                  75/31 L
        CLOG          156                  76/52 L   78/39
        CMPLX          30                  75/33 L   77/34     78/23     78/23
        CMPL.          26                  75/32 L   78/22
        COMPL         110                  76/16 L
        CONJG         111                  76/17 L
        COS           166                  77/03 L   78/42     78/42
        COSD          172                  77/06 L
        COSH          216                  77/22 L   78/49     78/49
        CSIN          164                  77/01 L   78/41
        CSQRT         147                  76/46 L   78/37
        CTOB.          12                  75/20 L   78/18
        CTOD.          14                  75/22 L   78/21
        CTOI.          13                  75/21 L   78/19
        DABS          112                  76/18 L   78/26
        DACOS         204                  77/14 L   78/45
        DASIN         201                  77/12 L   78/44
        DATAN         207                  77/16 L   78/46
        DATAN2        212                  77/18 L   78/47
        DBLE           32                  75/34 L   78/21     78/21
        DCOS          170                  77/04 L   78/42
        DCOSH         220                  77/23 L   78/49
        DDIM          113                  76/19 L   78/29
        DEXP          152                  76/48 L   78/38
        DIM           114                  76/20 L   78/29     78/29
        DINT          116                  76/21 L   78/27
        DLOG          155                  76/51 L   78/39
        DLOG10        160                  76/54 L   78/40
        DMAX1          34                  75/35 L   78/32
        DMIN1          35                  75/36 L   78/33
        DMOD          117                  76/22 L   78/31
        DNINT         120                  76/23 L   78/28
        DPROD         121                  76/24 L
        DSIGN         122                  76/25 L   78/35
        DSIN          163                  76/57 L   78/41
        DSINH         215                  77/21 L   78/48
        DSQRT         146                  76/45 L   78/37
        DTAN          175                  77/08 L   78/43
        DTANH         223                  77/25 L   78/50
        DTOB.          10                  75/18 L   78/18
        DTOC.          11                  75/19 L   78/22
        EQV            36                  75/37 L
        ERF           225                  77/28 L
        ERFC          226                  77/29 L
        ERR.            0                  75/09 L
        EXP           150                  76/47 L   78/38     78/38
        FLOAT          37                  75/38 L   78/20
        IABS          123                  76/26 L   78/26
        ICHAR          40                  75/39 L
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   108
        SYMBOLIC REFERENCE TABLE.                                     INTF
  
        IDIM          124                  76/27 L   78/29
        IDINT          41                  75/40 L   78/19
        IDNINT        125                  76/29 L   78/34
        IFIX           42                  75/41 L
        INDEX         126                  76/30 L
        INT            43                  75/42 L   78/19     78/19
        ISIGN         127                  76/31 L   78/35
        ITOC.           5                  75/15 L   78/22
        ITOD.           4                  75/14 L   78/21
        LEN           131                  76/33 L
        LEN$          130                  76/32 L   77/35
        LGE            45                  75/43 L
        LGT            46                  75/44 L
        LLE            47                  75/45 L
        LLT            50                  75/46 L
        LOCF           52                  75/48 L   78/30     78/30
        LOCF$          51                  75/47 L   77/37
        LOG            72                  76/03 L   78/39
        LOG10          74                  76/04 L   78/40
        MASK          132                  76/34 L
        MAX            54                  75/49 L   78/32
        MAX0           56                  75/50 L   78/32
        MAX1           57                  75/51 L   79/15
        MIN            60                  75/52 L   78/33
        MIN0           62                  75/53 L   78/33
        MIN1           63                  75/54 L   79/16
        MOD           133                  76/35 L   78/31     78/31
        NEQV           64                  75/55 L
        NINT          135                  76/36 L   78/34     78/34
        OR             65                  75/56 L
        RANF          137                  76/37 L
        REAL           66                  75/57 L   78/20     78/20
        RTOB.           6                  75/16 L
        RTOC.           7                  75/17 L   78/22
        SECOND        140                  76/38 L
        SHIFT         141                  76/39 L   77/36
        SIGN          142                  76/40 L   78/35     78/35
        SIN           161                  76/56 L   78/41     78/41
        SIND          165                  77/02 L
        SINH          213                  77/20 L   78/48     78/48
        SNGL           70                  76/01 L   78/20
        SQRT          144                  76/44 L   78/37     78/37
        SUM1S          76                  76/05 L
        TAN           173                  77/07 L   78/43     78/43
        TAND          176                  77/09 L
        TANH          221                  77/24 L   78/50     78/50
        V=IDNINT      120                  76/28 D   76/29
        XOR            71                  76/02 L
1       FSKEL - DEFINE TURPLE OP CODE VALUES FOR FRONT END.           COMPASS 3.7-871.     24/05/02. 13.20.00.      PAGE   109
        SYMBOLIC REFERENCE TABLE.                                     INTF
  
        .B              1                  75/09 D   75/26     75/42 D   75/57     76/20 D   76/36     76/56 D   77/15
                                           75/09     75/27 D   75/42     76/01 D   76/20     76/37 D   76/56     77/16 D
                                           75/11 D   75/27     75/43 D   76/01     76/21 D   76/37     76/57 D   77/16
                                           75/11     75/28 D   75/43     76/02 D   76/21     76/38 D   76/57     77/17 D
                                           75/12 D   75/28     75/44 D   76/02     76/22 D   76/38     77/01 D   77/17
                                           75/12     75/29 D   75/44     76/03 D   76/22     76/39 D   77/01     77/18 D
                                           75/13 D   75/29     75/45 D   76/03     76/23 D   76/39     77/02 D   77/18
                                           75/13     75/30 D   75/45     76/04 D   76/23     76/40 D   77/02     77/20 D
                                           75/14 D   75/30     75/46 D   76/04     76/24 D   76/40     77/03 D   77/20
                                           75/14     75/31 D   75/46     76/05 D   76/24     76/44 D   77/03     77/21 D
                                           75/15 D   75/31     75/47 D   76/05     76/25 D   76/44     77/04 D   77/21
                                           75/15     75/32 D   75/47     76/10 D   76/25     76/45 D   77/04     77/22 D
                                           75/16 D   75/32     75/48 D   76/10     76/26 D   76/45     77/05 D   77/22
                                           75/16     75/33 D   75/48     76/11 D   76/26     76/46 D   77/05     77/23 D
                                           75/17 D   75/33     75/49 D   76/11     76/27 D   76/46     77/06 D   77/23
                                           75/17     75/34 D   75/49     76/12 D   76/27     76/47 D   77/06     77/24 D
                                           75/18 D   75/34     75/50 D   76/12     76/29 D   76/47     77/07 D   77/24
                                           75/18     75/35 D   75/50     76/13 D   76/29     76/48 D   77/07     77/25 D
                                           75/19 D   75/35     75/51 D   76/13     76/30 D   76/48     77/08 D   77/25
                                           75/19     75/36 D   75/51     76/14 D   76/30     76/49 D   77/08     77/26 D
                                           75/20 D   75/36     75/52 D   76/14     76/31 D   76/49     77/09 D   77/26
                                           75/20     75/37 D   75/52     76/15 D   76/31     76/50 D   77/09     77/28 D
                                           75/21 D   75/37     75/53 D   76/15     76/32 D   76/50     77/11 D   77/28
                                           75/21     75/38 D   75/53     76/16 D   76/32     76/51 D   77/11     77/29 D
                                           75/22 D   75/38     75/54 D   76/16     76/33 D   76/51     77/12 D   77/29
                                           75/22     75/39 D   75/54     76/17 D   76/33     76/52 D   77/12
                                           75/24 D   75/39     75/55 D   76/17     76/34 D   76/52     77/13 D
                                           75/24     75/40 D   75/55     76/18 D   76/34     76/53 D   77/13
                                           75/25 D   75/40     75/56 D   76/18     76/35 D   76/53     77/14 D
                                           75/25     75/41 D   75/56     76/19 D   76/35     76/54 D   77/14
                                           75/26 D   75/41     75/57 D   76/19     76/36 D   76/54     77/15 D
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      157              IDENT  INIT22 
                        157              B=LWA22  END                MARK LWA OF OVERLAY FOR RPV
  
  
                                        ENTRY POINTS. 
  
                                        B=INI22          0+           FTN22            0+ 
                                        F.MEM            0+           B=LWA22        157+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        CCGC      FPL2      O.IAI     MOD       WO.DOOT   L$FE      O=DIM     L$APT 
                                        OPTLVL    L.API     O.IOA     NARGS     RPV2N     O$FE      L$NLST    O$APT 
                                        OPT2      L.APL     O.NLST    N.FP      RPV22     L=FE      O$NLST    L$IOA 
                                        PSTAB     L.ASG     O.SYM1    O=API     CIO=      O=FE      L$CBT     O$IOA 
                                        WINOC     L.BLKS    O.TEND    O=APL     RPV=      L$VDI     O$CBT     L$APL 
                                        O.FE      L.CON     PTC=      O=ASG     SBM=      O$VDI     L$SYM     O$APL 
                                        F.SET     L.FILE    F.LBT     O=BLKS    CO.RNDD   L=VDI     O$SYM     L$CAC 
                                        CO.CS     L.GLT     LEVEL2    O=CON     CO.RNDM   O=VDI     L$CUT     O$CAC 
                                        CO.DOOT   L.IAI     L=API     O=FILE    CO.RNDS   L$FPI     O$CUT     L=CAC 
                                        CO.OPT    L.IOA     L=APL     O=GL      CO.RNDA   O$FPI     L=CUT     O=CAC 
                                        F.IL      L.NLST    L=ASG     O=IOA     CG$LABD   L=FPI     O=CUT     L$CLW 
                                        F.OPT     L.SYM1    L=BLKS    O=IOI     S=EXIT    O=FPI     L$CVT     O$CLW 
                                        F.PB      O.API     L=CON     O=NLST    CC$CBN    L$ENTP    O$CVT     L=CLW 
                                        IDPCHK    O.APL     L=FILE    O=SYM     S=VALUE   O$ENTP    L$ASG     O=CLW 
                                        SYS=      O.ASG     L=GL      RPV=URP   S=VD      L=ENTP    O$ASG     CC$SRF
                                        WNB=      O.BLKS    L=IOA     S=CON     HO$OPT    O=ENTP    L$GLT     HO$OBO
                                        IDP=      O.CON     L=IOI     S=ENTRY   O$BLK     L$DIM     O$GLT     FA=SET
                                        FW.ILB    O.FILE    L=NLST    Z.LBT     L$BLK     O$DIM     L$IOT 
                                        FW.PBB    O.GLT     L=SYM     WO.CS     Z$FE      L=DIM     O$IOT 
  
  
  
  
                                                  IDENT  INIT22                                                  INIT22      2
                                         INIT22   SECT   (INITIALIZE CCG OVERLAY.),INI22                         INIT22      3
  
  
  
  
  
                                        *         IN CCGC                                                        INIT22      5
                                                  EXT    CCGC,OPTLVL,OPT2,PSTAB,WINOC                            INIT22      6
                                                                                                                 INIT22      7
                                        *         IN CCGLINK                                                     INIT22      8
                                                  EXT    O.FE                                                    INIT22      9
                                                                                                                 INIT22     10
                                        *         IN CSKEL                                                       INIT22     11
                                                  EXT    F.SET                                                   INIT22     12
                                                                                                                 INIT22     13
                                        *         IN FTN                                                         INIT22     14
                                                  EXT    CO.CS,CO.DOOT                                           INIT22     15
                                                  EXT    CO.OPT,F.IL,F.OPT,F.PB,IDPCHK,SYS=,WNB=                 INIT22     16
                                                                                                                 INIT22     17
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     2
                                                                      INIT22
  
                                        *         IN IDP                                                         INIT22     18
                                                  EXT    IDP=                                                    INIT22     19
                                                                                                                 INIT22     20
                                        *         IN INIT20                                                      INIT22     21
                                                  EXT    FW.ILB,FW.PBB                                           INIT22     22
                                                                                                                 INIT22     23
                                        *         IN PROSEQ                                                      INIT22     24
                                                  EXT    FPL2,L.API,L.APL,L.ASG,L.BLKS,L.CON,L.FILE,L.GLT,L.IAI  INIT22     25
                                                  EXT    L.IOA,L.NLST,L.SYM1,O.API,O.APL,O.ASG,O.BLKS,O.CON      INIT22     26
                                                  EXT    O.FILE,O.GLT,O.IAI,O.IOA,O.NLST,O.SYM1,O.TEND,PTC=      INIT22     27
                                                                                                                 INIT22     28
                                        *         IN PUC                                                         INIT22     29
                                                  EXT    F.LBT,LEVEL2,L=API,L=APL,L=ASG,L=BLKS,L=CON,L=FILE      INIT22     30
                                                  EXT    L=GL,L=IOA,L=IOI,L=NLST,L=SYM,MOD,NARGS,N.FP,O=API      INIT22     31
                                                  EXT    O=APL,O=ASG,O=BLKS,O=CON,O=FILE,O=GL,O=IOA,O=IOI        INIT22     32
                                                  EXT    O=NLST,O=SYM,RPV=URP,S=CON,S=ENTRY,Z.LBT                INIT22     33
                                                  EXT    WO.CS,WO.DOOT                                           INIT22     34
                                                                                                                 INIT22     35
                                        *         IN RPV20                                                       INIT22     36
                                                  EXT    RPV2N                                                   INIT22     37
                                                                                                                 INIT22     38
                                        *         IN RPV22                                                       INIT22     39
                                                  EXT    RPV22                                                   INIT22     40
                                                                                                                 INIT22     41
                                        *         IN UTILITY                                                     INIT22     42
                                                  EXT    CIO=,RPV=,SBM=                                          INIT22     43
  
  
  
  
                                                  DESCRIBE SK.,60    SKELETON EXPANSION FORMAT                   INIT22     45
      L     73  40000000000000000000     FI       DEFINE 1                                                       INIT22     46
      L     72  20000000000000000000     RND      DEFINE 1                                                       INIT22     47
                                                  DEFINE 1                                                       INIT22     48
      L     66  07000000000000000000     TYPE     DEFINE 3                                                       INIT22     49
      L     55  00777000000000000000     GH       DEFINE 9                                                       INIT22     50
                                                  DEFINE 45                                                      INIT22     51
                                                                                                                 INIT22     52
             0                           F.MEM    BSSENT             START OF WORKING STORAGE                    INIT22     53
  
  
  
  
                                        **        INIT22 - INITIALIZE CCG OVERLAY.                               INIT22     55
                                        *                                                                        INIT22     56
                                        *         ENTRY  THE (2,2) HAS JUST BEEN LOADED.                         INIT22     57
                                        *                                                                        INIT22     58
                                        *         EXIT   TO *CCGC* TO BEGIN CODE GENERATION.                     INIT22     59
                                                                                                                 INIT22     60
             0                           FTN22    BSSENT                                                         INIT22     61
                                                                                                                 INIT22     62
                                        *         LINK RPV TABLES.                                               INIT22     63
                                                                                                                 INIT22     64
             0  7160000000                        SX6    0                                                       INIT22     65
                          7170000000 X            SX7    =XRPV22     (X7) = FWA OF (2,2) RNA TABLE               INIT22     66
             1  5160000000 X                      SA6    =XRPV2N     MARK END-OF-(2,0) RNA TABLE                 INIT22     67
                          5076000001              SA7    A6+1        STORE LINK TO (2,2) RNA TABLE               INIT22     68
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     3
                                                                      INIT22
  
                                                                                                                 INIT22     69
                                        *         TURN ON REPRIEVE.                                              INIT22     70
                                                                                                                 INIT22     71
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT22     72
                                                  SA1    RA.SSW      SENSE SWITCH WORD                           INIT22     73
                                                  LX1    59-5-6      GET SWITCH 6                                INIT22     74
                                                  MI     X1,INI1     IF SWITCH 6 ON                              INIT22     75
                                         .TEST    ENDIF                                                          INIT22     76
                                                                                                                 INIT22     77
             2  43173                             RPVON              TURN ON REPRIEVE                            INIT22     78
                                                                                                                 INIT22     79
                                        *         CHECK FOR IDP BREAK REQUEST.                                   INIT22     80
                                        *                                                                        INIT22     81
                                        *         IF THERE ARE ANY IDP KEYWORDS THAT ARE (2,2) SPECIFIC,         INIT22     82
                                        *         THEN THIS IS THE PLACE TO LINK IDP TO THEM BY STORING          INIT22     83
                                        *         THE FWA OF THE (2,2) IDP KEYWORD TABLE AT (UKT=LNK).           INIT22     84
                                        *         SEE *UKT=LNK* IN DECK *IDP*.                                   INIT22     85
                                                                                                                 INIT22     86
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                INIT22     87
                                         INI1     BSS    0                                                       FC5A158A  452
                                         #OS      IFNE   .OS,2                                                   FC5A158A  453
                                                  SX6    =YUSY=22    (X6) = ADDR OF IDP SYMBOL SEARCH SUBR       INIT22     88
                                                  SA6    =XIDP=USY                                               INIT22     89
                                                  CALL   IDPCHK      CHECK FOR IDP REQUEST                       FC5A158A  454
                                                  PL     B7,INI2     IF IDP NOT REQUESTED                        INIT22     91
                                         FTN22    BREAK                                                          INIT22     92
                                         #OS      ENDIF                                                          FC5A158A  455
                                         .TEST    ENDIF                                                          INIT22     93
                                                                                                                 INIT22     94
                                        *         INITIALIZE OVERLAY.                                            INIT22     95
                                                                                                                 INIT22     96
             7  7120000000 X             INI2     SETFIL FILE==XF.IL,MODE=INIT,FWA==XFW.ILB                      INIT22     97
            11  7120000000 X                      SETFIL FILE==XF.PB,MODE=INIT,FWA==XFW.PBB                      INIT22     98
                                                                                                                 INIT22     99
                                                  IFEQ   CP#RM,0,1                                               INIT22    100
            13  7120000000 X                      READ   =XF.IL                                                  INIT22    101
            15  7160000000 X                      SX6    =XFW.ILB                                                INIT22    102
                          5160000000 X            SA6    =XHO$OBO    STORE CCG SCRATCH BUFFER ORIGIN             INIT22    103
            16  5110000000 X                      SA1    =XMOD       PROGRAM MODE                                INIT22    104
                          5120000000 X            SA2    N.FP                                                    INIT22    105
            17  5130000000 X                      SA3    LEVEL2                                                  INIT22    106
                          12723                   BX7    X2+X3       FPL2 = N.FP .OR. LEVEL2                     INIT22    107
            20  5170000000 X                      SA7    =XCC$SRF    FLAG FP/LCM EXPANSION REQUIRED              INIT22    108
                                                                                                                 INIT22    109
                          76600                   =X6    0                                                       INIT22    110
                               20666              LX6    LB.PARCP    SET ALL LOCAL BLOCKS EMPTY                  INIT22    111
            21  5160000000 X                      SETMEM F.LBT,Z.LBT,X6                                          INIT22    112
                                                                                                                 INIT22    113
                                                                                                                 INIT22    114
                                        **        INITIALIZE CCG WORKING COPY OF COMPILER OPTIONS.               INIT22    115
                                        *         1.  SET = (CO.) AT BEGINNING OF PASS OVER PROGRAM-UNIT.        INIT22    116
                                        *         2.  RESET BY (V=C$) TURPLES.                                   INIT22    117
                                        *         3.  USED TO DETERMINE (2,2) BEHAVIOR.                          INIT22    118
                                        *         THIS MUST BE DONE FOR ALL OPTIONS WHICH GENERATE TURPLES.      INIT22    119
                                                                                                                 INIT22    120
            23  5110000000 X                      SA1    CO.CS                                                   INIT22    121
                          5120000000 X            SA2    CO.DOOT                                                 INIT22    122
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     4
                                                                      INIT22
  
            24  10611                             BX6    X1          INITIALIZE WORKING QCG COPY OF OPTIONS      INIT22    123
                     22702                        LX7    X2                                                      INIT22    124
                          5160000000 X            SA6    WO.CS                                                   INIT22    125
            25  5170000000 X                      SA7    WO.DOOT                                                 INIT22    126
                                                                                                                 INIT22    127
                                        *         COMMUNICATE PASS1 TABLE POINTERS TO PASS2.                     INIT22    128
                                                                                                                 INIT22    129
                                                  MACRO  TABSH,PASS1,D1,D2,PASS2                                 INIT22    130
                                         PA2      MICRO  1,,/PASS2/                                              INIT22    131
                                                  IFC    EQ,/PASS2//,1                                           INIT22    132
                                         PA2      MICRO  1,,/PASS1/                                              INIT22    133
                                                  SA1    =XO=PASS1                                               INIT22    134
                                                  SA2    =XL=PASS1                                               INIT22    135
                                                  BX6    X1                                                      INIT22    136
                                                  LX7    X2                                                      INIT22    137
                                                  SA6    =XO$"PA2"                                               INIT22    138
                                                  SA7    =XL$"PA2"                                               INIT22    139
                                                  ENDM                                                           INIT22    140
                                                                                                                 INIT22    141
            25                           COMSTAB  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAB     2
                                                                                                                 COMSTAB     3
            25                           COMSTAD  CTEXT              DEFINE TABLES SHARED WITH CCG.              COMSTAD     2
                                                                                                                 COMSTAD     3
                                        ***       COMSTAD CONTAINS A "TABSH" MACRO CALL FOR EACH TABLE           COMSTAD     4
                                        *         WHICH IS SHARED WITH CCG.                                      COMSTAD     5
                                        *                                                                        COMSTAD     6
                                        * FEN     TABSH  RATE,INIT,CGN                                           COMSTAD     7
                                        *                                                                        COMSTAD     8
                                        *         WHERE  *FEN* = FRONT END NAME (SUFFIX) FOR THE TABLE.          COMSTAD     9
                                        *                *RATE* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    10
                                        *                *INIT* = PARAMETER FOR FRONT END DECLARATION.           COMSTAD    11
                                        *                *CGN* = CCG NAME (SUFFIX) FOR TABLE.                    COMSTAD    12
                                        *                IF *CGN* IS OMITTED, THE CCG SUFFIX IS SAME AS *FEN*.   COMSTAD    13
                                                                                                                 COMSTAD    14
                                                                                                                 COMSTAD    15
                          5110000000 X   CLW      TABSH              I/O CHAR. ARRAY ITEM LENGTH (MUST BE FIRST) COMSTAD    16
            30  5110000000 X             CAC      TABSH              CHARACTER ADDRESS CONSTANTS (CLEN, BCP AND  COMSTAD    17
                          5110000000 X   APL      TABSH  3,,,EXU     ACTUAL PARAMETER LISTS                      FC5A128     7
            35  5110000000 X             IOA      TABSH  3,,,EXU     I/O APLISTS (MUST FOLLOW APL)               FC5A128     8
                          5110000000 X   API      TABSH  1,,APT      APLIST INIDICES                             FC5A128     9
            42  5110000000 X             IOI      TABSH  1,,IOT      I/O APLIST INDICES (MUST FOLLOW API)        FC5A128    10
                          5110000000 X   GL       TABSH  2,,GLT      GENERATED LABELS                            COMSTAD    22
            47  5110000000 X             ASG      TABSH  1           ASSIGN STATEMENT INFO                       COMSTAD    23
                          5110000000 X   CON      TABSH  3,,CVT      CONSTANT VALUES                             FC5A128    11
            54  5110000000 X             CUT      TABSH  0           CON. BIASES FOR PASS 3                      COMSTAD    25
                                                                                                                 COMSTAD    26
                                         COMSTAD  ENDX                                                           COMSTAD    27
            56                           COMSTAS  CTEXT              DEFINE STATIC TABLES SHARED WITH CCG.       COMSTAS     2
                                                                                                                 COMSTAS     3
                                        *         A STATIC TABLE IS ONE WHICH DOES NOT GROW OR SHRINK IN         COMSTAS     4
                                        *         BRIDGE/PASS 2.                                                 COMSTAS     5
                                                                                                                 COMSTAS     6
                          5110000000 X   SYM      TABSH  3,50*Z=SYM,,(DECL,EXU)  SYMBOL TABLE                    FC5A128    12
                                        *         (INITIAL LENGTH IS AD HOC BUT SHOULD NOT EXCEED Z.SYMIL)       FC5A128    13
            61  5110000000 X             BLKS     TABSH  1,Z=BLKS,CBT      COMMON BLOCK TABLE                    COMSTAS     9
                          5110000000 X   NLST     TABSH  0,,,DECL    NAMELIST INFORMATION                        FC5A128    14
            66  5110000000 X             DIM      TABSH  1,,,DECL    DIMENSION DESCRIPTORS                       FC5A128    15
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     5
                                                                      INIT22
  
                          5110000000 X   ENTP     TABSH  1           ENTRY POINT FORMAL PARAMETERS               COMSTAS    12
            73  5110000000 X             FPI      TABSH  1           FORMAL PARAMETER INFORMATION                COMSTAS    13
                          5110000000 X   VDI      TABSH  1           VARDIM INFORMATION                          COMSTAS    14
                                                                                                                 COMSTAS    15
                                         COMSTAS  ENDX                                                           COMSTAS    16
                                                                                                                 COMSTAB     6
                                         COMSTAB  ENDX                                                           COMSTAB     7
                                                                                                                 INIT22    143
           100  5110000000 X             FE       TABSH              FOR PRESERVED TABLES                        INIT22    144
                                                                                                                 INIT22    145
                                        *         SET ORIGINS OF UNUSED TABLES TO QUARANTEE MONOTONICITY.        INIT22    146
                                                                                                                 INIT22    147
                          7160000000 +            SX6    F.MEM       MEM = F.MEM  */ START OF WORKING STORAGE    INIT22    148
           103  6150000000 X                      SB5    =XZ$FE                                                  INIT22    149
                          67601                   =B6    -1          I=0                                         INIT22    150
                                                                                                                 INIT22    151
           104  6166000001               INI40    SB6    B6+1        I=I+1                                       INIT22    152
                          0756000111 +            GT     B6,B5,INI60 IF TABLE VECTOR EXHAUSTED                   INIT22    153
           105  5116000000 X                      SA1    =XL$BLK+B6                                              INIT22    154
                          0311000107 +            NZ     X1,INI50    IF THIS TABLE COMMUNICATED                  INIT22    155
           106  5166000000 X                      SA6    =XO$BLK+B6  ORG(TABI) = MEM                             INIT22    156
                          0400000104 +            EQ     INI40                                                   INIT22    157
                                                                                                                 INIT22    158
           107  5126000000 X             INI50    SA2    =XO$BLK+B6                                              INIT22    159
                          36612                   IX6    X1+X2       MEM = ORG(TABI) + LEN(TABI)                 INIT22    160
           110  0400000104 +                      EQ     INI40                                                   INIT22    161
                                                                                                                 INIT22    162
           111  5110000000 X             INI60    SA1    =XCO.OPT                                                INIT22    163
                          7271777775              SX7    X1-2                                                    INIT22    164
           112  43600                             MX6    0                                                       INIT22    165
                     0337000113 +                 MI     X7,INI70    IF OPT LT 2                                 INIT22    166
                               43601              MX6    1                                                       INIT22    167
                                                                                                                 INIT22    168
           113  5160000000 X             INI70    SA6    =XOPT2                                                  INIT22    169
                          20172                   LX1    58                                                      INIT22    170
                               10711              BX7    X1                                                      INIT22    171
           114  5170000000 X                      SA7    =XHO$OPT                                                INIT22    172
                                                                                                                 INIT22    173
                                        *         SET CERTAIN SPECIAL BITS IN SOME CGS*S.                        INIT22    174
                                                                                                                 INIT22    175
                                                  MACRO  SETWB,ORD,BITS                                          INIT22    176
                                                  LOCAL  NOSYM                                                   INIT22    177
                                                  CLAS=  X1,WB,BITS                                              INIT22    178
                                                  SA2    =XO$SYM                                                 INIT22    179
                                                  SA3    =XS=ORD                                                 INIT22    180
                                                  ZR     X3,NOSYM                                                INIT22    181
                                                  LX4    B1,X3                                                   INIT22    182
                                                  IX2    X2+X3                                                   INIT22    183
                                                  IX4    X4+X2                                                   INIT22    184
                                                  =A2    X4+WB.W                                                 INIT22    185
                                                  BX6    X1+X2                                                   INIT22    186
                                                  SA6    A2                                                      INIT22    187
                                         NOSYM    BSS    0                                                       INIT22    188
                                                  ENDM                                                           INIT22    189
                                                                                                                 INIT22    190
                          43101          CON      SETWB  LDO                                                     INIT22    191
           120  43101                    VD       SETWB  LDO                                                     INIT22    192
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     6
                                                                      INIT22
  
           124  43101                    ENTRY    SETWB  LOCF                                                    INIT22    193
           130  43101                    VALUE    SETWB  LOCF                                                    INIT22    194
                                                                                                                 INIT22    195
                                        *         DEFINE *EXIT.* AS HEADING BLOCK 0 (EXIT PSEUDO-BLOCK).         INIT22    196
                                                                                                                 INIT22    197
           134  76600                             =X6    0                                                       INIT22    198
                     5160000000 X                 SA6    =XCC$CBN                                                INIT22    199
           135  5110000000 X                      SA1    =XS=EXIT                                                INIT22    200
                          0100000000 X            CALL   CG$LABD                                                 INIT22    201
           136  76611                             =X6    2                                                       INIT22    202
                     5160000000 X                 SA6    CC$CBN                                                  INIT22    203
                                                                                                                 INIT22    204
           137  7160000000 X                      SX6    =XWINOC                                                 INIT22    205
                          5160000000 X            SA6    =XPSTAB     SET WIN JUMP TABLE TO OC$XXX                INIT22    206
           140  6120000000 X                      SB2    =XF.SET                                                 INIT22    207
                          0100000142 +            RJ     ROR         RESET OPCODE OF ROUNDABLES                  INIT22    208
           141  0400000000 X                      EQ     =XCCGC      EXIT TO CCG CONTROLLER...                   INIT22    209
  
  
  
  
                                                  LIST   -X          FA=SET, COMFROR LISTED IN INIT00            INIT22    211
           141                           ROR      CTEXT  COMFROR - ROUNDABLE OPCODE RESET.                       COMFROR     2
                                                  LIST   *                                                       INIT22    213
                                   0     FILL     MAX    0,101B+F.MEM-*                                          INIT22    214
           157                                    BSS    FILL        INSURE 101B FOR FTN4 OPT CRAP               INIT22    215
  
  
  
  
                                                  LIST   D                                                       INIT22    217
                                                  ENTRY  B=LWA22                                                 INIT22    218
  
                                        DEFAULT SYMBOLS DEFINED BY COMPASS. 
  
             0 X                        FA=SET
             0 X                        HO$OBO
             0 X                        CC$SRF
             0 X                        O=CLW 
             0 X                        L=CLW 
             0 X                        O$CLW 
             0 X                        L$CLW 
             0 X                        O=CAC 
             0 X                        L=CAC 
             0 X                        O$CAC 
             0 X                        L$CAC 
             0 X                        O$APL 
             0 X                        L$APL 
             0 X                        O$IOA 
             0 X                        L$IOA 
             0 X                        O$APT 
             0 X                        L$APT 
             0 X                        O$IOT 
             0 X                        L$IOT 
             0 X                        O$GLT 
             0 X                        L$GLT 
             0 X                        O$ASG 
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     7
                                                                      LITERALS
  
             0 X                        L$ASG 
             0 X                        O$CVT 
             0 X                        L$CVT 
             0 X                        O=CUT 
             0 X                        L=CUT 
             0 X                        O$CUT 
             0 X                        L$CUT 
             0 X                        O$SYM 
             0 X                        L$SYM 
             0 X                        O$CBT 
             0 X                        L$CBT 
             0 X                        O$NLST
             0 X                        L$NLST
             0 X                        O=DIM 
             0 X                        L=DIM 
             0 X                        O$DIM 
             0 X                        L$DIM 
             0 X                        O=ENTP
             0 X                        L=ENTP
             0 X                        O$ENTP
             0 X                        L$ENTP
             0 X                        O=FPI 
             0 X                        L=FPI 
             0 X                        O$FPI 
             0 X                        L$FPI 
             0 X                        O=VDI 
             0 X                        L=VDI 
             0 X                        O$VDI 
             0 X                        L$VDI 
             0 X                        O=FE
             0 X                        L=FE
             0 X                        O$FE
             0 X                        L$FE
             0 X                        Z$FE
             0 X                        L$BLK 
             0 X                        O$BLK 
             0 X                        HO$OPT
             0 X                        S=VD
             0 X                        S=VALUE 
             0 X                        CC$CBN
             0 X                        S=EXIT
             0 X                        CG$LABD 
             0 X                        CO.RNDA 
             0 X                        CO.RNDS 
             0 X                        CO.RNDM 
             0 X                        CO.RNDD 
  
           157                           B=LWA22  END                MARK LWA OF OVERLAY FOR RPV                 INIT22    219
  
                             67600B CM  STORAGE USED              926 STATEMENTS     1825 SYMBOLS      000006 INVENTED SYMBOLS
                               PARALLEL CPU ASSEMBLY            0.983 SECONDS         245 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     8
        SYMBOLIC REFERENCE TABLE. 
  
        B=LWA22       157   PROGRAM*        6/32 E    6/33 L
        CCGC            0   EXTERNAL*       1/46 X    6/17
        CC$CBN          0   EXTERNAL*       6/07 S    6/11 S
        CC$SRF          0   EXTERNAL*       3/43 S
        CG$LABD         0   EXTERNAL*       6/09
        CIO=            0   EXTERNAL*       2/26 X    3/36
        CO.CS           0   EXTERNAL*       1/55 X    3/56
        CO.DOOT         0   EXTERNAL*       1/55 X    3/57
        CO.OPT          0   EXTERNAL*       1/56 X    5/28
        CO.RNDA         0   EXTERNAL* 
        CO.RNDD         0   EXTERNAL* 
        CO.RNDM         0   EXTERNAL* 
        CO.RNDS         0   EXTERNAL* 
        CP#RM           0   CTX             3/35 F
        FA=SET          0   EXTERNAL*       3/32      3/33
        FILL            0                   6/25 D    6/26
        FPL2            0   EXTERNAL*       2/08 X
        FTN22           0   PROGRAM*        2/50 L    2/50 E
        FW.ILB          0   EXTERNAL*       2/05 X    3/32      3/37
        FW.PBB          0   EXTERNAL*       2/05 X    3/33
        F.IL            0   EXTERNAL*       1/56 X    3/32      3/36      3/36
        F.LBT           0   EXTERNAL*       2/13 X    3/47 S
        F.MEM           0   PROGRAM*        2/39 L    2/39 E    5/13
        F.OPT           0   EXTERNAL*       1/56 X
        F.PB            0   EXTERNAL*       1/56 X    3/33
        F.SET           0   EXTERNAL*       1/52 X    6/15
        HO$OBO          0   EXTERNAL*       3/38 S
        HO$OPT          0   EXTERNAL*       5/37 S
        IDPCHK          0   EXTERNAL*       1/56 X
        IDP=            0   EXTERNAL*       2/02 X
        INI2            7   PROGRAM*        3/32 L
        INI40         104   PROGRAM*        5/17 L    5/22      5/26
        INI50         107   PROGRAM*        5/20      5/24 L
        INI60         111   PROGRAM*        5/18      5/28 L
        INI70         113   PROGRAM*        5/31      5/34 L
        LB.PARCP       66   FTX             3/46
        LEVEL2          0   EXTERNAL*       2/13 X    3/41
        L$APL           0   EXTERNAL*       4/38 S
        L$APT           0   EXTERNAL*       4/40 S
        L$ASG           0   EXTERNAL*       4/43 S
        L$BLK           0   EXTERNAL*       5/19
        L$CAC           0   EXTERNAL*       4/37 S
        L$CBT           0   EXTERNAL*       4/55 S
        L$CLW           0   EXTERNAL*       4/36 S
        L$CUT           0   EXTERNAL*       4/45 S
        L$CVT           0   EXTERNAL*       4/44 S
        L$DIM           0   EXTERNAL*       4/57 S
        L$ENTP          0   EXTERNAL*       5/01 S
        L$FE            0   EXTERNAL*       5/09 S
        L$FPI           0   EXTERNAL*       5/02 S
        L$GLT           0   EXTERNAL*       4/42 S
        L$IOA           0   EXTERNAL*       4/39 S
        L$IOT           0   EXTERNAL*       4/41 S
        L$NLST          0   EXTERNAL*       4/56 S
        L$SYM           0   EXTERNAL*       4/53 S
        L$VDI           0   EXTERNAL*       5/03 S
        L=API           0   EXTERNAL*       2/13 X    4/40
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE     9
        SYMBOLIC REFERENCE TABLE. 
  
        L=APL           0   EXTERNAL*       2/13 X    4/38
        L=ASG           0   EXTERNAL*       2/13 X    4/43
        L=BLKS          0   EXTERNAL*       2/13 X    4/55
        L=CAC           0   EXTERNAL*       4/37
        L=CLW           0   EXTERNAL*       4/36
        L=CON           0   EXTERNAL*       2/13 X    4/44
        L=CUT           0   EXTERNAL*       4/45
        L=DIM           0   EXTERNAL*       4/57
        L=ENTP          0   EXTERNAL*       5/01
        L=FE            0   EXTERNAL*       5/09
        L=FILE          0   EXTERNAL*       2/13 X
        L=FPI           0   EXTERNAL*       5/02
        L=GL            0   EXTERNAL*       2/14 X    4/42
        L=IOA           0   EXTERNAL*       2/14 X    4/39
        L=IOI           0   EXTERNAL*       2/14 X    4/41
        L=NLST          0   EXTERNAL*       2/14 X    4/56
        L=SYM           0   EXTERNAL*       2/14 X    4/53
        L=VDI           0   EXTERNAL*       5/03
        L.API           0   EXTERNAL*       2/08 X
        L.APL           0   EXTERNAL*       2/08 X
        L.ASG           0   EXTERNAL*       2/08 X
        L.BLKS          0   EXTERNAL*       2/08 X
        L.CON           0   EXTERNAL*       2/08 X
        L.FILE          0   EXTERNAL*       2/08 X
        L.GLT           0   EXTERNAL*       2/08 X
        L.IAI           0   EXTERNAL*       2/08 X
        L.IOA           0   EXTERNAL*       2/09 X
        L.NLST          0   EXTERNAL*       2/09 X
        L.SYM1          0   EXTERNAL*       2/09 X
        MOD             0   EXTERNAL*       2/14 X    3/39
        NARGS           0   EXTERNAL*       2/14 X
        N.FP            0   EXTERNAL*       2/14 X    3/40
        OPTLVL          0   EXTERNAL*       1/46 X
        OPT2            0   EXTERNAL*       1/46 X    5/34 S
        O$APL           0   EXTERNAL*       4/38 S
        O$APT           0   EXTERNAL*       4/40 S
        O$ASG           0   EXTERNAL*       4/43 S
        O$BLK           0   EXTERNAL*       5/21 S    5/24
        O$CAC           0   EXTERNAL*       4/37 S
        O$CBT           0   EXTERNAL*       4/55 S
        O$CLW           0   EXTERNAL*       4/36 S
        O$CUT           0   EXTERNAL*       4/45 S
        O$CVT           0   EXTERNAL*       4/44 S
        O$DIM           0   EXTERNAL*       4/57 S
        O$ENTP          0   EXTERNAL*       5/01 S
        O$FE            0   EXTERNAL*       5/09 S
        O$FPI           0   EXTERNAL*       5/02 S
        O$GLT           0   EXTERNAL*       4/42 S
        O$IOA           0   EXTERNAL*       4/39 S
        O$IOT           0   EXTERNAL*       4/41 S
        O$NLST          0   EXTERNAL*       4/56 S
        O$SYM           0   EXTERNAL*       4/53 S    5/56      5/57      6/01      6/02
        O$VDI           0   EXTERNAL*       5/03 S
        O=API           0   EXTERNAL*       2/14 X    4/40
        O=APL           0   EXTERNAL*       2/15 X    4/38
        O=ASG           0   EXTERNAL*       2/15 X    4/43
        O=BLKS          0   EXTERNAL*       2/15 X    4/55
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE    10
        SYMBOLIC REFERENCE TABLE. 
  
        O=CAC           0   EXTERNAL*       4/37
        O=CLW           0   EXTERNAL*       4/36
        O=CON           0   EXTERNAL*       2/15 X    4/44
        O=CUT           0   EXTERNAL*       4/45
        O=DIM           0   EXTERNAL*       4/57
        O=ENTP          0   EXTERNAL*       5/01
        O=FE            0   EXTERNAL*       5/09
        O=FILE          0   EXTERNAL*       2/15 X
        O=FPI           0   EXTERNAL*       5/02
        O=GL            0   EXTERNAL*       2/15 X    4/42
        O=IOA           0   EXTERNAL*       2/15 X    4/39
        O=IOI           0   EXTERNAL*       2/15 X    4/41
        O=NLST          0   EXTERNAL*       2/16 X    4/56
        O=SYM           0   EXTERNAL*       2/16 X    4/53
        O=VDI           0   EXTERNAL*       5/03
        O.API           0   EXTERNAL*       2/09 X
        O.APL           0   EXTERNAL*       2/09 X
        O.ASG           0   EXTERNAL*       2/09 X
        O.BLKS          0   EXTERNAL*       2/09 X
        O.CON           0   EXTERNAL*       2/09 X
        O.FE            0   EXTERNAL*       1/49 X
        O.FILE          0   EXTERNAL*       2/10 X
        O.GLT           0   EXTERNAL*       2/10 X
        O.IAI           0   EXTERNAL*       2/10 X
        O.IOA           0   EXTERNAL*       2/10 X
        O.NLST          0   EXTERNAL*       2/10 X
        O.SYM1          0   EXTERNAL*       2/10 X
        O.TEND          0   EXTERNAL*       2/10 X
        PSTAB           0   EXTERNAL*       1/46 X    6/14 S
        PTC=            0   EXTERNAL*       2/10 X
        ROR           142   PROGRAM*        6/16
        RPV2N           0   EXTERNAL*       2/20 X    2/56 S
        RPV22           0   EXTERNAL*       2/23 X    2/55
        RPV=            0   EXTERNAL*       2/26 X    3/10      3/10
        RPV=URP         0   EXTERNAL*       2/16 X
        SBM=            0   EXTERNAL*       2/26 X    3/47
        SK.FIP         73                   2/32 D
        SK.GHL         11                   2/36 D
        SK.GHP         55                   2/36 D
        SK.RNDP        72                   2/33 D
        SK.TYPEL        3                   2/35 D
        SK.TYPEP       66                   2/35 D
        SYS=            0   EXTERNAL*       1/56 X    3/10
        S=CON           0   EXTERNAL*       2/16 X    5/56
        S=ENTRY         0   EXTERNAL*       2/16 X    6/01
        S=EXIT          0   EXTERNAL*       6/08
        S=VALUE         0   EXTERNAL*       6/02
        S=VD            0   EXTERNAL*       5/57
        TEST            0   CTX             3/04 F    3/19 F
        WB.LDOP        24   FTX             5/56      5/57
        WB.LOCFP       22   FTX             6/01      6/02
        WB.W            1   FTX             5/56      5/57      6/01      6/02
        WINOC           0   EXTERNAL*       1/46 X    6/13
        WNB=            0   EXTERNAL*       1/56 X
        WO.CS           0   EXTERNAL*       2/17 X    4/03 S
        WO.DOOT         0   EXTERNAL*       2/17 X    4/04 S
        Z$FE            0   EXTERNAL*       5/14
1       INIT22 - INITIALIZE CCG OVERLAY.                              COMPASS 3.7-871.     24/05/02. 13.20.49.      PAGE    11
        SYMBOLIC REFERENCE TABLE. 
  
        Z.LBT           0   EXTERNAL*       2/16 X    3/47
        '?RPV=A        37                   3/10 D    3/10
1       FTN5                                                          COMPASS 3.7-871.     24/05/02. 13.20.50.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN5 
                          0                       END    FTN
  
  
  
  
                                        *                                                                        OVL00       2
                                        *                (0,0) OVERLAY                                           OVL00       3
                                        *                                                                        OVL00       4
                                                  IDENT  FTN5                                                    OVL00       5
                                                  LCC    OVERLAY(FTN,0,0)                                        OVL00       6
                                                  COMMENT FTN5 MAIN OVERLAY.                                     OVL00       7
             0                                    END    FTN                                                     OVL00       8
  
                             62000B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.022 SECONDS           0 REFERENCES
  
1       FTN                                                           COMPASS 3.7-871.     24/05/02. 13.20.50.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN
                          0                       END 
  
  
  
  
                                                  IDENT  FTN                                                     OVL00       9
             0                                    END                                                            OVL00      10
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.021 SECONDS           0 REFERENCES
  
1       FWA5N0                                                        COMPASS 3.7-871.     24/05/02. 13.20.50.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        1              IDENT  FWA5N0 
                          1                       END 
  
  
                                        ENTRY POINTS. 
  
                                        FWA10            0+           FWA20            0+ 
  
  
  
  
                                                  IDENT  FWA5N0                                                  OVL00      11
                                                  SST                                                            OVL00      12
             0                           FWA10    BSSENT             DEFINE ORIGIN OF (1,0) OVERLAY              OVL00      13
             0                           FWA20    BSSENT             DEFINE ORIGIN OF (2,0) OVERLAY              OVL00      14
                                                                                                                 OVL00      15
             0                     1              BSS    1           SO RPV=RNA WILL BE TRASHED WITH (1,0) LOAD  FC5A115    49
             1                                    END                                                            OVL00      17
  
                             63600B CM  STORAGE USED               11 STATEMENTS     1308 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.135 SECONDS           4 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        FWA10           0   PROGRAM*        1/16 L    1/16 E
        FWA20           0   PROGRAM*        1/17 L    1/17 E
1       RPV00 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       46              IDENT  RPV00
                         46                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV00          0+           RPV=RNA          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA00   B=REC     B=QSKEL   B=CONRE   B=TYPE    B=KEY     B=PEM     B=PUC 
                                        B=INIT0   B=GEN     B=QCGC    B=PAR     B=DECL    B=HEADE   B=FERRS   B=UTILI 
                                        B=ZEROL   B=REG     B=LABEL   B=IO      B=DATA    B=LEX     B=FEC     B=FTN 
                                        B=FAS     B=FUN     B=STMTF   B=FMT     B=CDDIR   B=ALLOC   B=QCGLI 
  
  
  
  
                                        *                                                                        OVL00      18
                                        *                PSEUDO (1,0) OVERLAY.                                   OVL00      19
                                        *                                                                        OVL00      20
                                                  IDENT  RPV00                                                   OVL00      21
                                         RPV00    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                 OVL00      22
  
                                                                                                                 OVL00      23
                                                                                                                 OVL00      24
                                        **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. OVL00      25
                                                                                                                 OVL00      26
             0  00000000000000000001 +   RPV=RNA  CONENT FW.RNA                                                  OVL00      27
                                                                                                                 OVL00      28
             1                           FW.RNA   BSS    0           ** FWA OF RNA TABLE **                      OVL00      29
             1  22013300000000                    RPVFWA RA0,RA.SSW  BASE OF (0,0) OVERLAY                       OVL00      30
             2  03171520031715                    RPVFWA COMPCOM,RA.ORG+L54.00                                   OVL00      31
             3  06241600000000                    RPVFWA FTN                                                     OVL00      32
             4  22202633330000                    RPVFWA RPV00                                                   OVL00      33
             5  25241114112431                    RPVFWA UTILITY                                                 OVL00      34
             6  20250300000000                    RPVFWA PUC                                                     OVL00      35
             7  21030714111613                    RPVFWA QCGLINK                                                 OVL00      36
                                         .T       IFEQ   TEST,ON                                                 OVL00      37
                                                  RPVFWA IDP                                                     OVL00      38
                                        **        RPVFWA CPULFM      NO FRA= PROVIDED                            OVL00      39
                                                  RPVFWA FSNAP                                                   OVL00      40
                                         .T       ENDIF                                                          OVL00      41
            10  06050300000000                    RPVFWA FEC                                                     OVL00      42
            11  06052222230000                    RPVFWA FERRS                                                   OVL00      43
            12  20051500000000                    RPVFWA PEM                                                     OVL00      44
            13  01141417030000                    RPVFWA ALLOC                                                   OVL00      45
            14  14053000000000                    RPVFWA LEX                                                     OVL00      46
            15  10050104052200                    RPVFWA HEADER                                                  OVL00      47
            16  13053100000000                    RPVFWA KEY                                                     OVL00      48
            17  03040411220000                    RPVFWA CDDIR                                                   OVL00      49
            20  04012401000000                    RPVFWA DATA                                                    OVL00      50
            21  04050314000000                    RPVFWA DECL                                                    OVL00      51
            22  24312005000000                    RPVFWA TYPE                                                    OVL00      52
1       RPV00 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     2
  
  
            23  06152400000000                    RPVFWA FMT                                                     OVL00      53
            24  11170000000000                    RPVFWA IO                                                      OVL00      54
            25  20012200000000                    RPVFWA PAR                                                     OVL00      55
            26  03171622050400                    RPVFWA CONRED                                                  OVL00      56
            27  23241524060000                    RPVFWA STMTF                                                   OVL00      57
            30  14010205140000                    RPVFWA LABEL                                                   OVL00      58
            31  21030703000000                    RPVFWA QCGC                                                    OVL00      59
            32  21231305140000                    RPVFWA QSKEL                                                   OVL00      60
            33  06251600000000                    RPVFWA FUN                                                     OVL00      61
            34  22050700000000                    RPVFWA REG                                                     OVL00      62
            35  07051600000000                    RPVFWA GEN                                                     OVL00      63
            36  22050300000000                    RPVFWA REC                                                     OVL00      64
            37  06012300000000                    RPVFWA FAS                                                     OVL00      65
            40  32052217141613                    RPVFWA ZEROLNK     REPLACES MAP                                OVL00      66
            41  32052217141613                    RPVFWA ZEROLNK     REPLACES LIST                               OVL00      67
            42  11161124333300                    RPVFWA INIT00                                                  OVL00      68
            43  14270133330000                    RPVFWA LWA00                                                   OVL00      69
            44  00000000000000000000              DATA   0           ** END OF TABLE **                          OVL00      70
            45  00000000000000000000              DATA   0                                                       OVL00      71
            46                                    END                                                            OVL00      72
  
                             63600B CM  STORAGE USED              245 STATEMENTS     1367 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.268 SECONDS           8 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        FW.RNA          1   PROGRAM*        1/32      1/34 L
        L54.00         11   FTX             1/36
        RA.ORG        100   CPUTEXT         1/36
        RA.SSW          0   CPUTEXT         1/35
        RPV=RNA         0   PROGRAM*        1/32 L    1/32 E
        TEST            0   FTX             1/42 F
1       UTILITY                                                       COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  UTILITY
                          0                       END 
  
  
  
  
                                        *                                                                        OVL00      73
                                                  IDENT  UTILITY                                                 OVL00      74
             0                                    END                                                            OVL00      75
  
                             62000B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.016 SECONDS           0 REFERENCES
  
1       PUC                                                           COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUC
                          0                       END 
  
  
  
  
                                                  IDENT  PUC                                                     OVL00      76
             0                                    END                                                            OVL00      77
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       QCGLINK                                                       COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGLINK
                          0                       END 
  
  
  
  
                                                  IDENT  QCGLINK                                                 OVL00      78
             0                                    END                                                            OVL00      79
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       FEC                                                           COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FEC
                          0                       END 
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    18
                                                  IDENT  FEC                                                     OVL00      90
             0                                    END                                                            OVL00      91
  
                             62000B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       FERRS                                                         COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FERRS
                          0                       END 
  
  
  
  
                                                  IDENT  FERRS                                                   OVL00      92
             0                                    END                                                            OVL00      93
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL00      94
             0                                    END                                                            OVL00      95
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL00      96
             0                                    END                                                            OVL00      97
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.033 SECONDS           0 REFERENCES
  
1       LEX                                                           COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LEX
                          0                       END 
  
  
  
  
                                                  IDENT  LEX                                                     OVL00      98
             0                                    END                                                            OVL00      99
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.028 SECONDS           0 REFERENCES
  
1       HEADER                                                        COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  HEADER 
                          0                       END 
  
  
  
  
                                                  IDENT  HEADER                                                  OVL00     100
             0                                    END                                                            OVL00     101
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.024 SECONDS           0 REFERENCES
  
1       KEY                                                           COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  KEY
                          0                       END 
  
  
  
  
                                                  IDENT  KEY                                                     OVL00     102
             0                                    END                                                            OVL00     103
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.023 SECONDS           0 REFERENCES
  
1       CDDIR                                                         COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CDDIR
                          0                       END 
  
  
  
  
                                                  IDENT  CDDIR                                                   OVL00     104
             0                                    END                                                            OVL00     105
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.023 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    OVL00     106
             0                                    END                                                            OVL00     107
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       DECL                                                          COMPASS 3.7-871.     24/05/02. 13.20.51.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECL 
                          0                       END 
  
  
  
  
                                                  IDENT  DECL                                                    OVL00     108
             0                                    END                                                            OVL00     109
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.022 SECONDS           0 REFERENCES
  
1       TYPE                                                          COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TYPE 
                          0                       END 
  
  
  
  
                                                  IDENT  TYPE                                                    OVL00     110
             0                                    END                                                            OVL00     111
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.010 SECONDS           0 REFERENCES
  
1       FMT                                                           COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FMT
                          0                       END 
  
  
  
  
                                                  IDENT  FMT                                                     OVL00     112
             0                                    END                                                            OVL00     113
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       IO                                                            COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IO 
                          0                       END 
  
  
  
  
                                                  IDENT  IO                                                      OVL00     114
             0                                    END                                                            OVL00     115
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.025 SECONDS           0 REFERENCES
  
1       PAR                                                           COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PAR
                          0                       END 
  
  
  
  
                                                  IDENT  PAR                                                     OVL00     116
             0                                    END                                                            OVL00     117
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       CONRED                                                        COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONRED 
                          0                       END 
  
  
  
  
                                                  IDENT  CONRED                                                  OVL00     118
             0                                    END                                                            OVL00     119
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       STMTF                                                         COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTF
                          0                       END 
  
  
  
  
                                                  IDENT  STMTF                                                   OVL00     120
             0                                    END                                                            OVL00     121
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       LABEL                                                         COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LABEL
                          0                       END 
  
  
  
  
                                                  IDENT  LABEL                                                   OVL00     122
             0                                    END                                                            OVL00     123
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.021 SECONDS           0 REFERENCES
  
1       QCGC                                                          COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGC 
                          0                       END 
  
  
  
  
                                                  IDENT  QCGC                                                    OVL00     124
             0                                    END                                                            OVL00     125
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.021 SECONDS           0 REFERENCES
  
1       QSKEL                                                         COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  QSKEL                                                   OVL00     126
             0                                    END                                                            OVL00     127
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       FUN                                                           COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FUN
                          0                       END 
  
  
  
  
                                                  IDENT  FUN                                                     OVL00     128
             0                                    END                                                            OVL00     129
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       REG                                                           COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REG
                          0                       END 
  
  
  
  
                                                  IDENT  REG                                                     OVL00     130
             0                                    END                                                            OVL00     131
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       GEN                                                           COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GEN
                          0                       END 
  
  
  
  
                                                  IDENT  GEN                                                     OVL00     132
             0                                    END                                                            OVL00     133
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       REC                                                           COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REC
                          0                       END 
  
  
  
  
                                                  IDENT  REC                                                     OVL00     134
             0                                    END                                                            OVL00     135
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FAS                                                           COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FAS
                          0                       END 
  
  
  
  
                                                  IDENT  FAS                                                     OVL00     136
             0                                    END                                                            OVL00     137
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       ZEROLNK                                                       COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ZEROLNK
                          0                       END 
  
  
  
  
                                                  IDENT  ZEROLNK                                                 OVL00     138
             0                                    END                                                            OVL00     139
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       INIT00                                                        COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT00 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT00                                                  OVL00     140
             0                                    END                                                            OVL00     141
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FTN510                                                        COMPASS 3.7-871.     24/05/02. 13.20.52.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      775              IDENT  FTN510 
                        775                       END    FTN10
  
  
  
  
                                        *                                                                        OVL10       2
                                        *                (1,0) OVERLAY.                                          OVL10       3
                                        *                                                                        OVL10       4
                                                  IDENT  FTN510                                                  OVL10       5
                                                  SST                                                            OVL10       6
                                                  LCC    OVERLAY(FTN,1,0,O=FWA10)                                OVL10       7
                                                  COMMENT  FTN5 PRIMARY OVERLAY FOR QCG.                         OVL10       8
             0                           CIP      CTEXT  COMFCIP - COMPILE INSTALLATION PARAMETERS               COMFCIP     2
                                         .RM      IFNE   CP#RM,7                                                 FC5A158A  456
             0                   775              BSS    "BUFL"-L54.NN                                           FC5A158A  457
                                         .RM      ENDIF                                                          FC5A158A  458
           775                                    END    FTN10                                                   FC5A158A  459
  
                             63600B CM  STORAGE USED              140 STATEMENTS     1319 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.393 SECONDS           1 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        L54.NN          5   FTX             1/18
1       RPV10 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       47              IDENT  RPV10
                         47                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV10          0+           RPV=RNA          0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA10   B=REC     B=QCGC    B=IO      B=CDDIR   B=PEM     B=LISTL 
                                        B=INIT1   B=GEN     B=LABEL   B=FMT     B=KEY     B=FERRS   B=UTILI 
                                        B=LIST    B=REG     B=STMTF   B=TYPE    B=HEADE   B=FEC     B=FTN 
                                        B=MAP     B=FUN     B=CONRE   B=DECL    B=LEX     B=QCGLI 
                                        B=FAS     B=QSKEL   B=PAR     B=DATA    B=ALLOC   B=PUC 
  
  
  
  
                                                  IDENT  RPV10                                                   OVL10      12
                                         RPV10    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                 OVL10      13
  
                                                                                                                 OVL10      14
                                                                                                                 OVL10      15
                                        **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. OVL10      16
                                                                                                                 OVL10      17
             0  00000000000000000001 +   RPV=RNA  CONENT FW.RNA                                                  OVL10      18
                                                                                                                 OVL10      19
                                                                                                                 OVL10      20
             1                           FW.RNA   BSS    0           ** FWA OF RNA TABLE **                      OVL10      21
             1  22013300000000                    RPVFWA RA0,RA.SSW  BASE OF (0,0) OVERLAY                       OVL10      22
             2  03171520031715                    RPVFWA COMPCOM,RA.ORG+L54.00                                   OVL10      23
             3  06241600000000                    RPVFWA FTN                                                     OVL10      24
             4  22202634330000                    RPVFWA RPV10                                                   OVL10      25
             5  25241114112431                    RPVFWA UTILITY                                                 OVL10      26
             6  14112324141613                    RPVFWA LISTLNK                                                 FC5A150   551
             7  20250300000000                    RPVFWA PUC                                                     OVL10      27
            10  21030714111613                    RPVFWA QCGLINK                                                 OVL10      28
                                         .T       IFEQ   TEST,ON                                                 OVL10      29
                                                  RPVFWA IDP                                                     OVL10      30
                                        **        RPVFWA CPULFM      NO FRA= PROVIDED                            OVL10      31
                                                  RPVFWA FSNAP                                                   OVL10      32
                                         .T       ENDIF                                                          OVL10      33
            11  06050300000000                    RPVFWA FEC                                                     OVL10      34
            12  06052222230000                    RPVFWA FERRS                                                   OVL10      35
            13  20051500000000                    RPVFWA PEM                                                     OVL10      36
            14  01141417030000                    RPVFWA ALLOC                                                   OVL10      37
            15  14053000000000                    RPVFWA LEX                                                     OVL10      38
            16  10050104052200                    RPVFWA HEADER                                                  OVL10      39
            17  13053100000000                    RPVFWA KEY                                                     OVL10      40
            20  03040411220000                    RPVFWA CDDIR                                                   OVL10      41
            21  04012401000000                    RPVFWA DATA                                                    OVL10      42
            22  04050314000000                    RPVFWA DECL                                                    OVL10      43
            23  24312005000000                    RPVFWA TYPE                                                    OVL10      44
1       RPV10 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.53.      PAGE     2
  
  
            24  06152400000000                    RPVFWA FMT                                                     OVL10      45
            25  11170000000000                    RPVFWA IO                                                      OVL10      46
            26  20012200000000                    RPVFWA PAR                                                     OVL10      47
            27  03171622050400                    RPVFWA CONRED                                                  OVL10      48
            30  23241524060000                    RPVFWA STMTF                                                   OVL10      49
            31  14010205140000                    RPVFWA LABEL                                                   OVL10      50
            32  21030703000000                    RPVFWA QCGC                                                    OVL10      51
            33  21231305140000                    RPVFWA QSKEL                                                   OVL10      52
            34  06251600000000                    RPVFWA FUN                                                     OVL10      53
            35  22050700000000                    RPVFWA REG                                                     OVL10      54
            36  07051600000000                    RPVFWA GEN                                                     OVL10      55
            37  22050300000000                    RPVFWA REC                                                     OVL10      56
            40  06012300000000                    RPVFWA FAS                                                     OVL10      57
            41  15012000000000                    RPVFWA MAP                                                     OVL10      58
            42  14112324000000                    RPVFWA LIST                                                    OVL10      59
            43  11161124343300                    RPVFWA INIT10                                                  OVL10      60
            44  14270134330000                    RPVFWA LWA10                                                   OVL10      61
            45  00000000000000000000              DATA   0           ** END OF TABLE **                          OVL10      62
            46  00000000000000000000              DATA   0                                                       OVL10      63
            47                                    END                                                            OVL10      64
  
                             63600B CM  STORAGE USED              249 STATEMENTS     1369 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.519 SECONDS           8 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        FW.RNA          1   PROGRAM*        1/30      1/33 L
        L54.00         11   FTX             1/35
        RA.ORG        100   CPUTEXT         1/35
        RA.SSW          0   CPUTEXT         1/34
        RPV=RNA         0   PROGRAM*        1/30 L    1/30 E
        TEST            0   FTX             1/42 F
1       UTILITY                                                       COMPASS 3.7-871.     24/05/02. 13.20.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  UTILITY
                          0                       END 
  
  
  
  
                                        *                                                                        OVL10      65
                                                  IDENT  UTILITY                                                 OVL10      66
             0                                    END                                                            OVL10      67
  
                             62000B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       LISTLNK                                                       COMPASS 3.7-871.     24/05/02. 13.20.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LISTLNK
                          0                       END 
  
  
  
  
                                                  IDENT  LISTLNK                                                 FC5A150   552
             0                                    END                                                            FC5A150   553
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       PUC                                                           COMPASS 3.7-871.     24/05/02. 13.20.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUC
                          0                       END 
  
  
  
  
                                                  IDENT  PUC                                                     OVL10      68
             0                                    END                                                            OVL10      69
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       QCGLINK                                                       COMPASS 3.7-871.     24/05/02. 13.20.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGLINK
                          0                       END 
  
  
  
  
                                                  IDENT  QCGLINK                                                 OVL10      70
             0                                    END                                                            OVL10      71
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       FEC                                                           COMPASS 3.7-871.     24/05/02. 13.20.53.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FEC
                          0                       END 
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    20
                                                  IDENT  FEC                                                     OVL10      82
             0                                    END                                                            OVL10      83
  
                             62000B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FERRS                                                         COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FERRS
                          0                       END 
  
  
  
  
                                                  IDENT  FERRS                                                   OVL10      84
             0                                    END                                                            OVL10      85
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL10      86
             0                                    END                                                            OVL10      87
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL10      88
             0                                    END                                                            OVL10      89
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       LEX                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LEX
                          0                       END 
  
  
  
  
                                                  IDENT  LEX                                                     OVL10      90
             0                                    END                                                            OVL10      91
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       HEADER                                                        COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  HEADER 
                          0                       END 
  
  
  
  
                                                  IDENT  HEADER                                                  OVL10      92
             0                                    END                                                            OVL10      93
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       KEY                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  KEY
                          0                       END 
  
  
  
  
                                                  IDENT  KEY                                                     OVL10      94
             0                                    END                                                            OVL10      95
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       CDDIR                                                         COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CDDIR
                          0                       END 
  
  
  
  
                                                  IDENT  CDDIR                                                   OVL10      96
             0                                    END                                                            OVL10      97
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    OVL10      98
             0                                    END                                                            OVL10      99
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       DECL                                                          COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECL 
                          0                       END 
  
  
  
  
                                                  IDENT  DECL                                                    OVL10     100
             0                                    END                                                            OVL10     101
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       TYPE                                                          COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TYPE 
                          0                       END 
  
  
  
  
                                                  IDENT  TYPE                                                    OVL10     102
             0                                    END                                                            OVL10     103
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FMT                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FMT
                          0                       END 
  
  
  
  
                                                  IDENT  FMT                                                     OVL10     104
             0                                    END                                                            OVL10     105
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       IO                                                            COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IO 
                          0                       END 
  
  
  
  
                                                  IDENT  IO                                                      OVL10     106
             0                                    END                                                            OVL10     107
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       PAR                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PAR
                          0                       END 
  
  
  
  
                                                  IDENT  PAR                                                     OVL10     108
             0                                    END                                                            OVL10     109
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       CONRED                                                        COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONRED 
                          0                       END 
  
  
  
  
                                                  IDENT  CONRED                                                  OVL10     110
             0                                    END                                                            OVL10     111
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       STMTF                                                         COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTF
                          0                       END 
  
  
  
  
                                                  IDENT  STMTF                                                   OVL10     112
             0                                    END                                                            OVL10     113
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       LABEL                                                         COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LABEL
                          0                       END 
  
  
  
  
                                                  IDENT  LABEL                                                   OVL10     114
             0                                    END                                                            OVL10     115
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       QCGC                                                          COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QCGC 
                          0                       END 
  
  
  
  
                                                  IDENT  QCGC                                                    OVL10     116
             0                                    END                                                            OVL10     117
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       QSKEL                                                         COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  QSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  QSKEL                                                   OVL10     118
             0                                    END                                                            OVL10     119
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FUN                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FUN
                          0                       END 
  
  
  
  
                                                  IDENT  FUN                                                     OVL10     120
             0                                    END                                                            OVL10     121
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       REG                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REG
                          0                       END 
  
  
  
  
                                                  IDENT  REG                                                     OVL10     122
             0                                    END                                                            OVL10     123
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       GEN                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GEN
                          0                       END 
  
  
  
  
                                                  IDENT  GEN                                                     OVL10     124
             0                                    END                                                            OVL10     125
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       REC                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REC
                          0                       END 
  
  
  
  
                                                  IDENT  REC                                                     OVL10     126
             0                                    END                                                            OVL10     127
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FAS                                                           COMPASS 3.7-871.     24/05/02. 13.20.54.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FAS
                          0                       END 
  
  
  
  
                                                  IDENT  FAS                                                     OVL10     128
             0                                    END                                                            OVL10     129
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       MAP                                                           COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MAP
                          0                       END 
  
  
  
  
                                                  IDENT  MAP                                                     OVL10     130
             0                                    END                                                            OVL10     131
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       LIST                                                          COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LIST 
                          0                       END 
  
  
  
  
                                                  IDENT  LIST                                                    OVL10     132
             0                                    END                                                            OVL10     133
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       INIT10                                                        COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT10 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT10                                                  OVL10     134
             0                                    END                                                            OVL10     135
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       FTN520                                                        COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0      775              IDENT  FTN520 
                        775                       END    FTN20
  
  
  
  
                                        *                                                                        OVL20       2
                                        *   OVERLAY (2,0)                                                        OVL20       3
                                        *                                                                        OVL20       4
                                                  IDENT  FTN520                                                  OVL20       5
                                                  SST                                                            OVL20       6
                                                  LCC    OVERLAY(FTN,2,0,O=FWA20)                                OVL20       7
                                                  COMMENT  FTN5 PRIMARY OVERLAY FOR CCG.                         OVL20       8
             0                           CIP      CTEXT  COMFCIP - COMPILE INSTALLATION PARAMETERS               COMFCIP     2
                                         .RM      IFNE   CP#RM,7                                                 FC5A158A  460
             0                   775              BSS    "BUFL"-L54.NN                                           FC5A158A  461
                                         .RM      ENDIF                                                          FC5A158A  462
           775                                    END    FTN20                                                   FC5A158A  463
  
                             63600B CM  STORAGE USED              140 STATEMENTS     1319 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.367 SECONDS           1 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        L54.NN          5   FTX             1/18
1       RPV20 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       15              IDENT  RPV20
                         15                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV20          0+           RPV=RNA          0+           RPV2N           12+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA20   B=INI20   B=CCGLI   B=PUC     B=LISTL   B=UTILI   B=FTN 
  
  
  
  
                                                  IDENT  RPV20                                                   OVL20      12
                                         RPV20    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                 OVL20      13
  
                                                                                                                 OVL20      14
                                                                                                                 OVL20      15
                                        **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. OVL20      16
                                        *                                                                        OVL20      17
                                        *                                                                        OVL20      18
                                        *         NOTE THAT RIGHT AFTER EACH (2,N) OVERLAY IS LOADED,            OVL20      19
                                        *         THAT *INIT2N* WILL STORE AN END OF TABLE MARK (I.E.            OVL20      20
                                        *         A FULL ZERO WORD) AT (RPV2N), AND ALSO STORE A WORD            OVL20      21
                                        *         CONTAINING THE FWA OF THE *RNA* TABLE FOR THE NEWLY            OVL20      22
                                        *         LOADED HIGHER OVERLAY AT (RPV2N+1).                            OVL20      23
                                        *                                                                        OVL20      24
                                        *         IN THIS WAY, *CCOMRPV* CAN CHAIN/LINK THRU THE APPROPRIATE     OVL20      25
                                        *         *RNA* TABLE FOR EACH HIGHER OVERLAY.  SEE *CCOMRPV*            OVL20      26
                                        *         IN DECK *UTILITY* FOR MORE INFORMATION ON LINKING              OVL20      27
                                        *         *RNA* TABLES.                                                  OVL20      28
                                                                                                                 OVL20      29
             0  00000000000000000001 +   RPV=RNA  CONENT FW.RNA                                                  OVL20      30
                                                                                                                 OVL20      31
                                                                                                                 OVL20      32
             1                           FW.RNA   BSS    0           ** FWA OF RNA TABLE **                      OVL20      33
             1  22013300000000                    RPVFWA RA0,RA.SSW  BASE OF (0,0) OVERLAY                       OVL20      34
             2  03171520031715                    RPVFWA COMPCOM,RA.ORG+L54.00                                   OVL20      35
             3  06241600000000                    RPVFWA FTN                                                     OVL20      36
             4  22202635330000                    RPVFWA RPV20                                                   OVL20      37
             5  25241114112431                    RPVFWA UTILITY                                                 OVL20      38
             6  14112324141613                    RPVFWA LISTLNK                                                 FC5A150   554
             7  20250300000000                    RPVFWA PUC                                                     OVL20      39
            10  03030714111613                    RPVFWA CCGLINK                                                 OVL20      40
                                         .T       IFEQ   TEST,ON                                                 OVL20      41
                                                  RPVFWA IDP                                                     OVL20      42
                                        **        RPVFWA CPULFM      NO FRA= PROVIDED                            OVL20      43
                                         .T       ENDIF                                                          OVL20      44
            11  11161124353300                    RPVFWA INIT20,=XB=INI20                                        OVL20      45
            12  14270135330000           RPV2N    RPVFWA LWA20       ** USED FOR LINKING TO (2,N).  SEE ABOVE ** OVL20      46
                                                  ENTRY  RPV2N                                                   OVL20      47
            13  00000000000000000000              DATA   0           ** END OF RNA TABLE FOR (2,0) **            OVL20      48
1       RPV20 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     2
  
  
                                        *                            ** LINK WORD FOR (2,N) **                   OVL20      49
            14  00000000000000000000              DATA   0                                                       OVL20      50
            15                                    END                                                            OVL20      51
  
                             63600B CM  STORAGE USED              107 STATEMENTS     1344 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.223 SECONDS          11 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=INI20         0   EXTERNAL*       1/54
        FW.RNA          1   PROGRAM*        1/38      1/41 L
        L54.00         11   FTX             1/43
        RA.ORG        100   CPUTEXT         1/43
        RA.SSW          0   CPUTEXT         1/42
        RPV2N          12   PROGRAM*        1/55 L    1/56 E
        RPV=RNA         0   PROGRAM*        1/38 L    1/38 E
        TEST            0   FTX             1/50 F
1       UTILITY                                                       COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  UTILITY
                          0                       END 
  
  
  
  
                                        *                                                                        OVL20      52
                                                  IDENT  UTILITY                                                 OVL20      53
             0                                    END                                                            OVL20      54
  
                             62000B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.021 SECONDS           0 REFERENCES
  
1       LISTLNK                                                       COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LISTLNK
                          0                       END 
  
  
  
  
                                                  IDENT  LISTLNK                                                 FC5A150   555
             0                                    END                                                            FC5A150   556
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.021 SECONDS           0 REFERENCES
  
1       PUC                                                           COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PUC
                          0                       END 
  
  
  
  
                                                  IDENT  PUC                                                     OVL20      55
             0                                    END                                                            OVL20      56
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.009 SECONDS           0 REFERENCES
  
1       CCGLINK                                                       COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CCGLINK
                          0                       END 
  
  
  
  
                                                  IDENT  CCGLINK                                                 OVL20      57
             0                                    END                                                            OVL20      58
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       INIT20                                                        COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT20 
                          0                       END 
  
  
  
  
                                        **IF DEF,TEST    (NEXT LINE)                                             FC5A370    22
                                                  IDENT  INIT20                                                  OVL20      67
             0                                    END                                                            OVL20      68
  
                             62000B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       FTN521                                                        COMPASS 3.7-871.     24/05/02. 13.20.55.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN521 
                          0                       END    FTN21
  
  
  
  
                                        *                                                                        OVL21       2
                                        *         OVERLAY (2,1)                                                  OVL21       3
                                        *                                                                        OVL21       4
                                                  IDENT  FTN521                                                  OVL21       5
                                                  LCC    OVERLAY(FTN,2,1,O=FWA21)                                OVL21       6
                                                  COMMENT  FTN5 FRONT END OVERLAY FOR CCG.                       OVL21       7
             0                                    END    FTN21                                                   OVL21       8
  
                             62000B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.023 SECONDS           0 REFERENCES
  
1       RPV21 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       30              IDENT  RPV21
                         30                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV21          0+           RPV21            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA21   B=LABEL   B=PAR     B=TYPE    B=CDDIR   B=LEX     B=PEM 
                                        B=INI21   B=STMTF   B=IO      B=DECL    B=KEY     B=FLINK   B=FERRS 
                                        B=FSKEL   B=CONRE   B=FMT     B=DATA    B=HEADE   B=ALLOC   B=FEC 
  
  
  
  
                                                  IDENT  RPV21                                                   OVL21       9
                                         RPV21    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                 OVL21      10
  
                                                                                                                 OVL21      11
                                                                                                                 OVL21      12
                                        **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. OVL21      13
                                                                                                                 OVL21      14
                                                  ENTRY  RPV21                                                   OVL21      15
             0  22202635340000           RPV21    RPVFWA RPV21                                                   OVL21      16
                                         .T       IFEQ   TEST,ON,1                                               OVL21      17
                                                  RPVFWA FSNAP                                                   OVL21      18
             1  06050300000000                    RPVFWA FEC                                                     OVL21      19
             2  06052222230000                    RPVFWA FERRS                                                   OVL21      20
             3  20051500000000                    RPVFWA PEM                                                     OVL21      21
             4  01141417030000                    RPVFWA ALLOC                                                   OVL21      22
             5  06141116130000                    RPVFWA FLINK                                                   OVL21      23
             6  14053000000000                    RPVFWA LEX                                                     OVL21      24
             7  10050104052200                    RPVFWA HEADER                                                  OVL21      25
            10  13053100000000                    RPVFWA KEY                                                     OVL21      26
            11  03040411220000                    RPVFWA CDDIR                                                   OVL21      27
            12  04012401000000                    RPVFWA DATA                                                    OVL21      28
            13  04050314000000                    RPVFWA DECL                                                    OVL21      29
            14  24312005000000                    RPVFWA TYPE                                                    OVL21      30
            15  06152400000000                    RPVFWA FMT                                                     OVL21      31
            16  11170000000000                    RPVFWA IO                                                      OVL21      32
            17  20012200000000                    RPVFWA PAR                                                     OVL21      33
            20  03171622050400                    RPVFWA CONRED                                                  OVL21      34
            21  23241524060000                    RPVFWA STMTF                                                   OVL21      35
            22  14010205140000                    RPVFWA LABEL                                                   OVL21      36
            23  06231305140000                    RPVFWA FSKEL                                                   OVL21      37
            24  11161124353400                    RPVFWA INIT21,=XB=INI21                                        OVL21      38
            25  14270135340000                    RPVFWA LWA21                                                   OVL21      39
            26  00000000000000000000              DATA   0           ** END OF RNA TABLE **                      OVL21      40
            27  00000000000000000000              DATA   0                                                       OVL21      41
            30                                    END                                                            OVL21      42
  
                             63600B CM  STORAGE USED              156 STATEMENTS     1356 SYMBOLS 
1       RPV21 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     2
  
  
                               PARALLEL CPU ASSEMBLY            0.409 SECONDS           4 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=INI21         0   EXTERNAL*       1/51
        RPV21           0   PROGRAM*        1/28 E    1/29 L
        TEST            0   FTX             1/30 F
1       FEC                                                           COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FEC
                          0                       END 
  
  
  
  
                                        *                                                                        OVL21      43
                                        **IF DEF,TEST,2  (NEXT LINE)                                             FC5A370    24
                                                  IDENT  FEC                                                     OVL21      48
             0                                    END                                                            OVL21      49
  
                             62000B CM  STORAGE USED                4 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       FERRS                                                         COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FERRS
                          0                       END 
  
  
  
  
                                                  IDENT  FERRS                                                   OVL21      50
             0                                    END                                                            OVL21      51
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL21      52
             0                                    END                                                            OVL21      53
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL21      54
             0                                    END                                                            OVL21      55
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FLINK                                                         COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FLINK
                          0                       END 
  
  
  
  
                                                  IDENT  FLINK                                                   OVL21      56
             0                                    END                                                            OVL21      57
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       LEX                                                           COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LEX
                          0                       END 
  
  
  
  
                                                  IDENT  LEX                                                     OVL21      58
             0                                    END                                                            OVL21      59
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       HEADER                                                        COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  HEADER 
                          0                       END 
  
  
  
  
                                                  IDENT  HEADER                                                  OVL21      60
             0                                    END                                                            OVL21      61
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       KEY                                                           COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  KEY
                          0                       END 
  
  
  
  
                                                  IDENT  KEY                                                     OVL21      62
             0                                    END                                                            OVL21      63
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       CDDIR                                                         COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CDDIR
                          0                       END 
  
  
  
  
                                                  IDENT  CDDIR                                                   OVL21      64
             0                                    END                                                            OVL21      65
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       DATA                                                          COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DATA 
                          0                       END 
  
  
  
  
                                                  IDENT  DATA                                                    OVL21      66
             0                                    END                                                            OVL21      67
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       DECL                                                          COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  DECL 
                          0                       END 
  
  
  
  
                                                  IDENT  DECL                                                    OVL21      68
             0                                    END                                                            OVL21      69
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       TYPE                                                          COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  TYPE 
                          0                       END 
  
  
  
  
                                                  IDENT  TYPE                                                    OVL21      70
             0                                    END                                                            OVL21      71
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       FMT                                                           COMPASS 3.7-871.     24/05/02. 13.20.56.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FMT
                          0                       END 
  
  
  
  
                                                  IDENT  FMT                                                     OVL21      72
             0                                    END                                                            OVL21      73
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       IO                                                            COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  IO 
                          0                       END 
  
  
  
  
                                                  IDENT  IO                                                      OVL21      74
             0                                    END                                                            OVL21      75
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       PAR                                                           COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PAR
                          0                       END 
  
  
  
  
                                                  IDENT  PAR                                                     OVL21      76
             0                                    END                                                            OVL21      77
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       CONRED                                                        COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CONRED 
                          0                       END 
  
  
  
  
                                                  IDENT  CONRED                                                  OVL21      78
             0                                    END                                                            OVL21      79
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       STMTF                                                         COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  STMTF
                          0                       END 
  
  
  
  
                                                  IDENT  STMTF                                                   OVL21      80
             0                                    END                                                            OVL21      81
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       LABEL                                                         COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LABEL
                          0                       END 
  
  
  
  
                                                  IDENT  LABEL                                                   OVL21      82
             0                                    END                                                            OVL21      83
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       FSKEL                                                         COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  FSKEL                                                   OVL21      84
             0                                    END                                                            OVL21      85
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       INIT21                                                        COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT21 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT21                                                  OVL21      86
             0                                    END                                                            OVL21      87
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       FTN522                                                        COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN522 
                          0                       END    FTN22
  
  
  
  
                                        *                                                                        OVL22       2
                                        *         OVERLAY (2,2)                                                  OVL22       3
                                        *                                                                        OVL22       4
                                                  IDENT  FTN522                                                  OVL22       5
                                                  LCC    OVERLAY(FTN,2,2,O=FWA22)                                OVL22       6
                                                  COMMENT COMMON CODE GENERATOR OVERLAY.                         OVL22       7
             0                                    END    FTN22                                                   OVL22       8
  
                             62000B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.021 SECONDS           0 REFERENCES
  
1       RPV22 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       23              IDENT  RPV22
                         23                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV22          0+           RPV22            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA22   B=CSKEL   B=CFA     B=BDT     B=SQZ     B=GRA     B=FBV     B=CGTM
                                        B=INI22   B=UDT     B=BRIDG   B=MCG     B=PROSQ   B=GPO     B=MIO     B=CCGC
  
  
  
  
                                                  IDENT  RPV22                                                   OVL22       9
                                         RPV22    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                 OVL22      10
  
                                                                                                                 OVL22      11
                                                                                                                 OVL22      12
                                        **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. OVL22      13
                                                                                                                 OVL22      14
                                                  ENTRY  RPV22                                                   OVL22      15
             0  22202635350000           RPV22    RPVFWA RPV22                                                   OVL22      16
             1  03030703000000                    RPVFWA CCGC                                                    OVL22      17
             2  03072415000000                    RPVFWA CGTM                                                    OVL22      18
             3  15111700000000                    RPVFWA MIO                                                     OVL22      19
             4  06022600000000                    RPVFWA FBV                                                     OVL22      20
             5  07201700000000                    RPVFWA GPO                                                     OVL22      21
             6  07220100000000                    RPVFWA GRA                                                     OVL22      22
             7  20221723052100                    RPVFWA PROSEQ,=XB=PROSQ                                        OVL22      23
            10  23213200000000                    RPVFWA SQZ                                                     OVL22      24
            11  15030700000000                    RPVFWA MCG                                                     OVL22      25
                                                                                                                 OVL22      26
                                         .TEST    IFEQ   TEST,ON     IF TEST MODE                                OVL22      27
                                                  RPVFWA CSNAP                                                   OVL22      28
                                                  RPVFWA OUTPTK                                                  OVL22      29
                                                  RPVFWA DMPIIT,=XDMPIIT-3                                       OVL22      30
                                                  RPVFWA DMPRLST,=XDMPRLST-3                                     OVL22      31
                                                  RPVFWA DMPSIT,=XDMPSIT-3                                       OVL22      32
                                                  RPVFWA DMPTREE,=XDMPTREE-3                                     OVL22      33
                                                  RPVFWA DMPUDI,=XDMPUDI-3                                       OVL22      34
                                                  RPVFWA PRNTGRA,=XPRNTGRA-3                                     OVL22      35
                                                  RPVFWA PRNTMIO,=XPRNTMIO-3                                     OVL22      36
                                                  RPVFWA PRNTUDI,=XPRNTUDI-3                                     OVL22      37
                                                  RPVFWA PRNTABV,=XPRNTABV-3                                     OVL22      38
                                                  RPVFWA PRNTBV,=XPRNTBV-3                                       OVL22      39
                                                  RPVFWA PRNTRLI,=XPRNTRLI-3                                     OVL22      40
                                                  RPVFWA PRNTMCG,=XPRNTMCG-3                                     OVL22      41
                                         .TEST    ENDIF                                                          OVL22      42
                                                                                                                 OVL22      43
            12  02042400000000                    RPVFWA BDT                                                     OVL22      44
            13  02221104070500                    RPVFWA BRIDGE                                                  OVL22      45
1       RPV22 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     2
  
  
            14  03060100000000                    RPVFWA CFA                                                     OVL22      46
            15  25042400000000                    RPVFWA UDT                                                     OVL22      47
            16  03231305140000                    RPVFWA CSKEL                                                   OVL22      48
            17  11161124353500                    RPVFWA INIT22,=XB=INI22                                        OVL22      49
            20  14270135350000                    RPVFWA LWA22                                                   OVL22      50
            21  00000000000000000000              DATA   0           ** END OF RNA TABLE **                      OVL22      51
            22  00000000000000000000              DATA   0                                                       OVL22      52
            23                                    END                                                            OVL22      53
  
                             63600B CM  STORAGE USED              143 STATEMENTS     1351 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.356 SECONDS           5 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=INI22         0   EXTERNAL*       2/04
        B=PROSQ         0   EXTERNAL*       1/35
        RPV22           0   PROGRAM*        1/27 E    1/28 L
        TEST            0   FTX             1/39 F
1       CCGC                                                          COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CCGC 
                          0                       END 
  
  
  
  
                                        *                                                                        OVL22      54
                                                  IDENT  CCGC                                                    OVL22      55
             0                                    END                                                            OVL22      56
  
                             62000B CM  STORAGE USED                3 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       CGTM                                                          COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CGTM 
                          0                       END 
  
  
  
  
                                                  IDENT  CGTM                                                    OVL22      57
             0                                    END                                                            OVL22      58
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       MIO                                                           COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MIO
                          0                       END 
  
  
  
  
                                                  IDENT  MIO                                                     OVL22      59
             0                                    END                                                            OVL22      60
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       FBV                                                           COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FBV
                          0                       END 
  
  
  
  
                                                  IDENT  FBV                                                     OVL22      61
             0                                    END                                                            OVL22      62
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       GPO                                                           COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GPO
                          0                       END 
  
  
  
  
                                                  IDENT  GPO                                                     OVL22      63
             0                                    END                                                            OVL22      64
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       GRA                                                           COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  GRA
                          0                       END 
  
  
  
  
                                                  IDENT  GRA                                                     OVL22      65
             0                                    END                                                            OVL22      66
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       PROSEQ                                                        COMPASS 3.7-871.     24/05/02. 13.20.57.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PROSEQ 
                          0                       END 
  
  
  
  
                                                  IDENT  PROSEQ                                                  OVL22      67
             0                                    END                                                            OVL22      68
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       SQZ                                                           COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  SQZ
                          0                       END 
  
  
  
  
                                                  IDENT  SQZ                                                     OVL22      69
             0                                    END                                                            OVL22      70
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       MCG                                                           COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MCG
                          0                       END 
  
  
  
  
                                                  IDENT  MCG                                                     OVL22      71
             0                                    END                                                            OVL22      72
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.017 SECONDS           0 REFERENCES
  
1       BDT                                                           COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BDT
                          0                       END 
  
  
  
  
                                                                                                                 OVL22      73
                                        **IF,DEF,TEST                (NEXT LINE)                                 OVL22      74
                                                                                                                 OVL22     106
                                                  IDENT  BDT                                                     OVL22     107
             0                                    END                                                            OVL22     108
  
                             62000B CM  STORAGE USED                5 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       BRIDGE                                                        COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  BRIDGE 
                          0                       END 
  
  
  
  
                                                  IDENT  BRIDGE                                                  OVL22     109
             0                                    END                                                            OVL22     110
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       CFA                                                           COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CFA
                          0                       END 
  
  
  
  
                                                  IDENT  CFA                                                     OVL22     111
             0                                    END                                                            OVL22     112
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       UDT                                                           COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  UDT
                          0                       END 
  
  
  
  
                                                  IDENT  UDT                                                     OVL22     113
             0                                    END                                                            OVL22     114
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.020 SECONDS           0 REFERENCES
  
1       CSKEL                                                         COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  CSKEL
                          0                       END 
  
  
  
  
                                                  IDENT  CSKEL                                                   OVL22     115
             0                                    END                                                            OVL22     116
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       INIT22                                                        COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT22 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT22                                                  OVL22     117
             0                                    END                                                            OVL22     118
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       FTN523                                                        COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FTN523 
                          0                       END    FTN23
  
  
  
  
                                        *                                                                        OVL23       2
                                        *         OVERLAY (2,3)                                                  OVL23       3
                                        *                                                                        OVL23       4
                                                  IDENT  FTN523                                                  OVL23       5
                                                  LCC    OVERLAY(FTN,2,3,O=FWA23)                                OVL23       6
                                                  COMMENT FTN5 REAR END OVERLAY FOR CCG.                         OVL23       7
             0                                    END    FTN23                                                   OVL23       8
  
                             62000B CM  STORAGE USED                7 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.022 SECONDS           0 REFERENCES
  
1       RPV23 - DEFINE ROUTINE NAMES AND FWA FOR RPV.                 COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0       15              IDENT  RPV23
                         15                       END 
  
  
                                        ENTRY POINTS. 
  
                                        B=RPV23          0+           RPV23            0+ 
  
  
                                        EXTERNAL SYMBOLS. 
  
                                        B=LWA23   B=LIST    B=FAS     B=PEM     B=RLINK 
                                        B=INI23   B=MAP     B=ALLOC   B=RERRS   B=REC 
  
  
  
  
                                                  IDENT  RPV23                                                   OVL23       9
                                         RPV23    SECT   (DEFINE ROUTINE NAMES AND FWA FOR RPV.)                 OVL23      10
  
                                                                                                                 OVL23      11
                                                                                                                 OVL23      12
                                        **        DEFINE ROUTINE NAMES AND ADDRESSES FOR REPRIEVE UTILITY *RPV*. OVL23      13
                                                                                                                 OVL23      14
                                                  ENTRY  RPV23                                                   OVL23      15
             0  22202635360000           RPV23    RPVFWA RPV23                                                   OVL23      16
                                         .T       IFEQ   TEST,ON,1                                               OVL23      17
                                                  RPVFWA RSNAP                                                   OVL23      18
             1  22050300000000                    RPVFWA REC                                                     OVL23      19
             2  22141116130000                    RPVFWA RLINK                                                   OVL23      20
             3  22052222230000                    RPVFWA RERRS                                                   OVL23      21
             4  20051500000000                    RPVFWA PEM                                                     OVL23      22
             5  01141417030000                    RPVFWA ALLOC                                                   OVL23      23
             6  06012300000000                    RPVFWA FAS                                                     OVL23      24
             7  15012000000000                    RPVFWA MAP                                                     OVL23      25
            10  14112324000000                    RPVFWA LIST                                                    OVL23      26
            11  11161124353600                    RPVFWA INIT23,=XB=INI23                                        OVL23      27
            12  14270135360000                    RPVFWA LWA23                                                   OVL23      28
            13  00000000000000000000              DATA   0           ** END OF RNA TABLE **                      OVL23      29
            14  00000000000000000000              DATA   0                                                       OVL23      30
            15                                    END                                                            OVL23      31
  
                             63600B CM  STORAGE USED               90 STATEMENTS     1345 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.258 SECONDS           4 REFERENCES
  
  
  
        SYMBOLIC REFERENCE TABLE. 
  
        B1=1            0 
        B=INI23         0   EXTERNAL*       1/39
        RPV23           0   PROGRAM*        1/27 E    1/28 L
        TEST            0   FTX             1/29 F
1       REC                                                           COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  REC
                          0                       END 
  
  
  
  
                                        *                                                                        OVL23      32
                                        **IF DEF,TEST,2  (NEXT LINE)                                             FC5A370    27
                                                  IDENT  REC                                                     OVL23      37
             0                                    END                                                            OVL23      38
  
                             62000B CM  STORAGE USED                4 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.021 SECONDS           0 REFERENCES
  
1       RLINK                                                         COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  RLINK
                          0                       END 
  
  
  
  
                                                  IDENT  RLINK                                                   OVL23      39
             0                                    END                                                            OVL23      40
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       RERRS                                                         COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  RERRS
                          0                       END 
  
  
  
  
                                                  IDENT  RERRS                                                   OVL23      41
             0                                    END                                                            OVL23      42
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       PEM                                                           COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  PEM
                          0                       END 
  
  
  
  
                                                  IDENT  PEM                                                     OVL23      43
             0                                    END                                                            OVL23      44
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       ALLOC                                                         COMPASS 3.7-871.     24/05/02. 13.20.58.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  ALLOC
                          0                       END 
  
  
  
  
                                                  IDENT  ALLOC                                                   OVL23      45
             0                                    END                                                            OVL23      46
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.018 SECONDS           0 REFERENCES
  
1       FAS                                                           COMPASS 3.7-871.     24/05/02. 13.20.59.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  FAS
                          0                       END 
  
  
  
  
                                                  IDENT  FAS                                                     OVL23      47
             0                                    END                                                            OVL23      48
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       MAP                                                           COMPASS 3.7-871.     24/05/02. 13.20.59.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  MAP
                          0                       END 
  
  
  
  
                                                  IDENT  MAP                                                     OVL23      49
             0                                    END                                                            OVL23      50
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       LIST                                                          COMPASS 3.7-871.     24/05/02. 13.20.59.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  LIST 
                          0                       END 
  
  
  
  
                                                  IDENT  LIST                                                    OVL23      51
             0                                    END                                                            OVL23      52
  
                             62000B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.019 SECONDS           0 REFERENCES
  
1       INIT23                                                        COMPASS 3.7-871.     24/05/02. 13.20.59.      PAGE     1
        STORAGE ALLOCATION. 
  
                    ADDRESS   LENGTH              BINARY CONTROL CARDS. 
  
                          0        0              IDENT  INIT23 
                          0                       END 
  
  
  
  
                                                  IDENT  INIT23                                                  OVL23      53
             0                                    END                                                            OVL23      54
  
                             57500B CM  STORAGE USED                2 STATEMENTS        0 SYMBOLS 
                               PARALLEL CPU ASSEMBLY            0.004 SECONDS           0 REFERENCES
  
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     1  
          OVERLAY(FTN,0,0)  
  
  
  
 -------- OVERLAY(FTN,0,0)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD            111
          LWA+1 OF THE LOAD        55504
  
          TRANSFER ADDRESS -- FTN            53145          
  
          PROGRAM ENTRY POINTS --       FTN5           53145
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN5            111        0    OVR      24/05/02 COMPASS 3.7 871               FTN5 MAIN OVERLAY.  
          /COMPCOM/       111      140
          FTN             251     1355    OVR      24/05/02 COMPASS 3.7 871               GLOBAL CELLS AND SYSTEM INTERFACE.      
          FWA5N0         1626        1    OVR      24/05/02 COMPASS 3.7 871               
          RPV00          1627       46    OVR      24/05/02 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          UTILITY        1675     1052    OVR      24/05/02 COMPASS 3.7 871               COMMON UTILITY ROUTINES.      
          PUC            2747     1431    OVR      24/05/02 COMPASS 3.7 871               PROGRAM UNIT CONTROLLER AND SUPPORT.    
          QCGLINK        4400       23    OVR      24/05/02 COMPASS 3.7 871               QCG MODE LINKAGE ROUTINES.    
          /RGFILE/       4423      500
          /HASH/         5123      200
          FEC            5323     1772    OVR      24/05/02 COMPASS 3.7 871               FRONT END CONTROLLER AND SUPPORT.       
          FERRS          7315     3106    OVR      24/05/02 COMPASS 3.7 871               FRONT END ERROR TEXTS.        
          PEM           12423      330    OVR      24/05/02 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC         12753      302    OVR      24/05/02 COMPASS 3.7 871               TABLE ALLOCATION.   
          LEX           13255     2327    OVR      24/05/02 COMPASS 3.7 871               LEXICAL SCANNER.    
          HEADER        15604      633    OVR      24/05/02 COMPASS 3.7 871               PROGRAM UNIT HEADER STATEMENTS.         
          KEY           16437     1347    OVR      24/05/02 COMPASS 3.7 871               KEYWORD STATEMENT TRANSLATION.
          CDDIR         20006      267    OVR      24/05/02 COMPASS 3.7 871               C$ DIRECTIVE PROCESSING.      
          DATA          20275     1027    OVR      24/05/02 COMPASS 3.7 871               TRANSLATE DATA STATEMENTS.    
          DECL          21324     2612    OVR      24/05/02 COMPASS 3.7 871               DECLARATIVE PHASE STATEMENTS. 
          TYPE          24136      417    OVR      24/05/02 COMPASS 3.7 871               EXPLICIT / IMPLICIT TYPE DECLARATIONS.  
          FMT           24555      726    OVR      24/05/02 COMPASS 3.7 871               FORMAT STATEMENT PROCESSOR.   
          IO            25503     2772    OVR      24/05/02 COMPASS 3.7 871               INPUT/OUTPUT STATEMENT PROCESSING.      
          PAR           30475     4576    OVR      24/05/02 COMPASS 3.7 871               EXPRESSION TRANSLATION.       
          CONRED        35273     1425    OVR      24/05/02 COMPASS 3.7 871               FRONT END CONSTANT ARITHMETIC.
          STMTF         36720      207    OVR      24/05/02 COMPASS 3.7 871               STATEMENT FUNCTION PROCESSOR. 
          LABEL         37127     1221    OVR      24/05/02 COMPASS 3.7 871               LABELS AND *DO* STATEMENT.    
          QCGC          40350      621    OVR      24/05/02 COMPASS 3.7 871               QUICK CODE GENERATOR CONTROLLER.        
          /SKLNAM/      41171        0
          QSKEL         41171     2034    OVR      24/05/02 COMPASS 3.7 871               (QCG)   INSTRUCTION SKELETON CONSTRUCTION.     
          FUN           43225     1246    OVR      24/05/02 COMPASS 3.7 871               (QCG)    EXTERNAL PROCEDURE INVOCATION. 
          REG           44473     1545    OVR      24/05/02 COMPASS 3.7 871               (QCG)    RESOURCE ALLOCATION. 
          GEN           46240     1613    OVR      24/05/02 COMPASS 3.7 871               (QCG)    QUICK CODE GENERATOR.
          REC           50053      430    OVR      24/05/02 COMPASS 3.7 871               REAR END CONTROLLER.
          FAS           50503     2437    OVR      24/05/02 COMPASS 3.7 871               FORTRAN INTERNAL ASSEMBLER.   
          ZEROLNK       53142        3    OVR      24/05/02 COMPASS 3.7 871               0,0 OVERLAY LINKAGES
          INIT00        53145     2337    OVR      24/05/02 COMPASS 3.7 871               FIRST TIME ONLY INITIALIZATION.         
  
  
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     2  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LI=BOS        *WEAK*                    FAS            50657
          LI=BSS        *WEAK*                    FAS            50636     50661
          LI=CON        *WEAK*                    FAS            50641
          LI=CPL        *WEAK*                    FAS            50660
          LI=DATA       *WEAK*                    FAS            50662
          LI=ECI        *WEAK*                    FAS            50663
          LI=EMI        *WEAK*                    FAS            50664
          LI=END        *WEAK*                    FAS            50642
          D=ABS         *WEAK*                    QSKEL          43044
          D=ADD.C       *WEAK*                    QSKEL          42757
          D=ADD.D       *WEAK*                    QSKEL          42756
          D=ADD.I       *WEAK*                    QSKEL          42754
          D=ADD.R       *WEAK*                    QSKEL          42755
          D=AGOTO       *WEAK*                    QSKEL          43114
          D=AIMAG       *WEAK*                    QSKEL          43046
          D=AINT        *WEAK*                    QSKEL          43047
          D=AMAX1       *WEAK*                    QSKEL          43055
          D=AMIN1       *WEAK*                    QSKEL          43056
          D=AMOD        *WEAK*                    QSKEL          43057
          D=AND.L       *WEAK*                    QSKEL          43040
          D=ANINT       *WEAK*                    QSKEL          43050
          D=APIOC       *WEAK*                    QSKEL          43126
          D=APIOD       *WEAK*                    QSKEL          43127
          D=APIOU       *WEAK*                    QSKEL          43130
          LI=ST0        *WEAK*                    FAS            50667
          D=ASSGN       *WEAK*                    QSKEL          43120
          LI=TRAC       *WEAK*                    FAS            50654
          D=BVD         *WEAK*                    QSKEL          43145
          D=CAT         *WEAK*                    QSKEL          43026
          D=CDCS        *WEAK*                    QSKEL          43157
          D=CDDOT       *WEAK*                    QSKEL          43156
          D=CDLOO       *WEAK*                    QSKEL          43155
          D=CGOTO       *WEAK*                    QSKEL          43115
          D=CMPLX       *WEAK*                    QSKEL          43061
          D=SUB.R       *WEAK*                    QSKEL          42761
          D=CONJG       *WEAK*                    QSKEL          43060
          D=DABS        *WEAK*                    QSKEL          43062
          D=DATA        *WEAK*                    QSKEL          43160
          D=DDIM        *WEAK*                    QSKEL          43063
          D=DIM         *WEAK*                    QSKEL          43064
          D=DINT        *WEAK*                    QSKEL          43065
          D=DIV.C       *WEAK*                    QSKEL          42773
          D=DIV.D       *WEAK*                    QSKEL          42772
          D=DIV.I       *WEAK*                    QSKEL          42770
          D=DIV.R       *WEAK*                    QSKEL          42771
          D=DMAX1       *WEAK*                    QSKEL          43052
          D=DMIN1       *WEAK*                    QSKEL          43054
          D=DNINT       *WEAK*                    QSKEL          43067
          D=I122        *WEAK*                    QSKEL          43167
          D=I123        *WEAK*                    QSKEL          43166
          D=JGOTO       *WEAK*                    QSKEL          43116
          D=LCC         *WEAK*                    QSKEL          43162
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     3  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=LCIF        *WEAK*                    QSKEL          43112
          D=DOC.D       *WEAK*                    QSKEL          43110
          D=LGE         *WEAK*                    QSKEL          43010
          D=DOC.O       *WEAK*                    QSKEL          43105
          D=DOC.R       *WEAK*                    QSKEL          43107
          BN=STRT         0   PUC                 GEN            47354     47444
          D=DPROD       *WEAK*                    QSKEL          43066
          D=DSIGN       *WEAK*                    QSKEL          43070
          D=DTOC        *WEAK*                    QSKEL          43036
          D=DVC.R       *WEAK*                    QSKEL          42774
          D=MASK        *WEAK*                    QSKEL          43074
          D=ENTR        *WEAK*                    QSKEL          43144
          D=EQV.L       *WEAK*                    QSKEL          43041
          D=EQ.D        *WEAK*                    QSKEL          43020
          D=EQ.H        *WEAK*                    QSKEL          43021
          D=EQ.I        *WEAK*                    QSKEL          43016
          D=EQ.R        *WEAK*                    QSKEL          43017
          D=ERR         *WEAK*                    QSKEL          43136
          D=EVD         *WEAK*                    QSKEL          43146
          V=IEQ.L       *WEAK*                    PAR            32472
          D=FAP         *WEAK*                    QSKEL          43124
          D=FILE        *WEAK*                    QSKEL          43152
          D=FIN         *WEAK*                    QSKEL          43161
          D=FUNC        *WEAK*                    QSKEL          43132
          D=GAP         *WEAK*                    QSKEL          43123
          D=GE.D        *WEAK*                    QSKEL          43006
          D=GE.H        *WEAK*                    QSKEL          43007
          D=GE.I        *WEAK*                    QSKEL          43004
          D=GE.R        *WEAK*                    QSKEL          43005
          D=GOTO        *WEAK*                    QSKEL          43113
          D=GPL         *WEAK*                    QSKEL          43143
          D=HDR         *WEAK*                    QSKEL          43151
          D=IAP         *WEAK*                    QSKEL          43125
          D=IDIM        *WEAK*                    QSKEL          43073
          D=IDNIN       *WEAK*                    QSKEL          43071
          D=IEQ.C       *WEAK*                    QSKEL          43220
          D=IEQ.D       *WEAK*                    QSKEL          43217
          D=IEQ.I       *WEAK*                    QSKEL          43215
          D=IEQ.R       *WEAK*                    QSKEL          43216
          D=IFF         *WEAK*                    QSKEL          43213
          D=IFT         *WEAK*                    QSKEL          43212
          D=ILL         *WEAK*                    QSKEL          42753
          D=INE.C       *WEAK*                    QSKEL          43224
          D=INE.D       *WEAK*                    QSKEL          43223
          D=INE.I       *WEAK*                    QSKEL          43221
          D=INE.R       *WEAK*                    QSKEL          43222
          D=INN3        *WEAK*                    QSKEL          43204
          D=INTF        *WEAK*                    QSKEL          43134
          D=IN2N        *WEAK*                    QSKEL          43210
          D=IN22        *WEAK*                    QSKEL          43200
          D=IN23        *WEAK*                    QSKEL          43174
          D=IOLC        *WEAK*                    QSKEL          43111
          D=IOSUB       *WEAK*                    QSKEL          43135
          D=ISIGN       *WEAK*                    QSKEL          43072
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     4  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=ITOB        *WEAK*                    QSKEL          43032
          D=ITOD        *WEAK*                    QSKEL          43033
          D=ITOR        *WEAK*                    QSKEL          43031
          D=I1NN        *WEAK*                    QSKEL          43202
          D=I1N1        *WEAK*                    QSKEL          43211
          D=I1N3        *WEAK*                    QSKEL          43175
          D=I11N        *WEAK*                    QSKEL          43206
          D=I111        *WEAK*                    QSKEL          43214
          D=I113        *WEAK*                    QSKEL          43171
          D=I12N        *WEAK*                    QSKEL          43177
          D=I121        *WEAK*                    QSKEL          43173
          LI=IDNT       *WEAK*                    FAS            50646
          LI=IOM        *WEAK*                    FAS            50647
          LI=JPI        *WEAK*                    FAS            50665
          LI=LCC        *WEAK*                    FAS            50650
          LI=LD0        *WEAK*                    FAS            50666
          D=LEQ         *WEAK*                    QSKEL          43022
          LI=NLST       *WEAK*                    FAS            50652
          D=LIBF        *WEAK*                    QSKEL          43133
          D=LLT         *WEAK*                    QSKEL          43003
          D=LNE         *WEAK*                    QSKEL          43015
          D=LT.D        *WEAK*                    QSKEL          43001
          D=LT.H        *WEAK*                    QSKEL          43002
          D=LT.I        *WEAK*                    QSKEL          42777
          D=LT.R        *WEAK*                    QSKEL          43000
          D=STR.D       *WEAK*                    QSKEL          43024
          D=MAX0        *WEAK*                    QSKEL          43051
          D=MIN0        *WEAK*                    QSKEL          43053
          D=MOD         *WEAK*                    QSKEL          43075
          LI=ADDR       *WEAK*                    FAS            50635
          LI=APL        *WEAK*                    FAS            50637
          LI=BCI        *WEAK*                    FAS            50656
          LI=BMI        *WEAK*                    FAS            50640
          D=NE.D        *WEAK*                    QSKEL          43013
          D=NE.H        *WEAK*                    QSKEL          43014
          D=NE.I        *WEAK*                    QSKEL          43011
          D=NE.R        *WEAK*                    QSKEL          43012
          D=XOR.L       *WEAK*                    QSKEL          43043
          D=NOT.L       *WEAK*                    QSKEL          43037
          D=OR.L        *WEAK*                    QSKEL          43042
          D=PAUS        *WEAK*                    QSKEL          43140
          LI=EQUN       *WEAK*                    FAS            50643
          LI=FLA        *WEAK*                    FAS            50701
          LI=FMT        *WEAK*                    FAS            50644
          LI=FVEC       *WEAK*                    FAS            50645
          V=INE.H       *WEAK*                    PAR            32477
          D=RGOTO       *WEAK*                    QSKEL          43117
          V=INE.L       *WEAK*                    PAR            32472
          D=RN22        *WEAK*                    QSKEL          43201
          D=RTNK        *WEAK*                    QSKEL          43142
          LI=LOO        *WEAK*                    FAS            50651     50670
          D=RTOI        *WEAK*                    QSKEL          43034
          LI=OTR        *WEAK*                    FAS            50671
          LI=PLIM       *WEAK*                    FAS            50653
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     5  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LI=RJ3        *WEAK*                    FAS            50672
          LI=RJ6        *WEAK*                    FAS            50673
          LI=SB0I       *WEAK*                    FAS            50675
          D=SHIFT       *WEAK*                    QSKEL          43077
          LI=SUBI       *WEAK*                    FAS            50674
          V=INE.B       *WEAK*                    PAR            32471
          LI=UJP        *WEAK*                    FAS            50676
          LI=USE        *WEAK*                    FAS            50655     50677
          LI=ZERO       *WEAK*                    FAS            50700
          D=SUBR        *WEAK*                    QSKEL          43131
          D=SUB.C       *WEAK*                    QSKEL          42763
          D=SUB.D       *WEAK*                    QSKEL          42762
          D=SUB.I       *WEAK*                    QSKEL          42760
          D=MUL.I       *WEAK*                    QSKEL          42764
          D=SUM1S       *WEAK*                    QSKEL          43045
          D=UMI.D       *WEAK*                    QSKEL          42776
          D=UMI.I       *WEAK*                    QSKEL          42775
          ERR.A           0                       FERRS          10557     10561     10563     10565     10567     10571     10573
                                                                 10643     10644     10645     10663     10672     10716     10767
                                                                 11025     11042     11161     11254     11325     11405     11423
                                                                 11555     11645     11662     11670     12115     12153     12160
                                                                 12264
          D=R113        *WEAK*                    QSKEL          43172
          D=R122        *WEAK*                    QSKEL          43170
          D=SEG         *WEAK*                    QSKEL          43147
          V=ILL           0   QSKEL     
          D=RTOD        *WEAK*                    QSKEL          43035
          D=PLIM        *WEAK*                    QSKEL          43153
          D=RANF        *WEAK*                    QSKEL          43076
          D=STR.H       *WEAK*                    QSKEL          43025
          D=RET         *WEAK*                    QSKEL          43141
          D=R1NN        *WEAK*                    QSKEL          43203
          D=RNN3        *WEAK*                    QSKEL          43205
          FEC=1ST         0   FEC                 LEX            13332     13360     13372     13373     13377     13407
          D=SEX         *WEAK*                    QSKEL          43154
          V=IEQ.H       *WEAK*                    PAR            32477
          ES=CMPL         0   PAR                 QSKEL          42550
          D=R1N3        *WEAK*                    QSKEL          43176
          D=R11N        *WEAK*                    QSKEL          43207
          D=MUL.D       *WEAK*                    QSKEL          42766
          D=STOP        *WEAK*                    QSKEL          43137
          V=IEQ.B       *WEAK*                    PAR            32471
          D=MUL.C       *WEAK*                    QSKEL          42767
          D=MUL.R       *WEAK*                    QSKEL          42765
          V=DOC.1       *WEAK*                    LABEL          37646
          V=ADD.I         1   QSKEL               IO             27462     30042     30060
                                                  PAR            30776     31052     35212
          FEC=IMP         1   FEC                 LEX            13362
                                                  HEADER         16001
          BN=CODE         1   PUC                 GEN            50001
          V=ADD.B         1   QSKEL     
          ERR.M           1   PUC                 FERRS          12034     12035     12037     12041     12043     12045
          FEC=DEC         2   FEC                 LEX            13340     13345     13355     13356     13365     13366     13405
          FV.IN           2   FTN                 INIT00         54402
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     6  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RPV=FVT         2                       UTILITY         2107
          V=ADD.R         2   QSKEL     
          BN=CON          2   PUC                 FEC             5410
                                                  GEN            47747
          ERR.T           2                       FERRS          10727     11036     11121     11327     11336     11375     11403
                                                                 11407     11410     11427     11431     12003     12005     12021
                                                                 12135     12305     12411     12413     12415     12421
          V=ADD.D         3   QSKEL     
          FEC=STF         3   FEC                 LEX            13412
                                                  HEADER         16301
                                                  KEY            16651
                                                  DECL           22610
          ERR.W           3   PUC                 FERRS          10545     10551     10615     10616     10621     10632     10651
                                                                 10676     10700     10743     10762     10764     10765     11033
                                                                 11040     11056     11145     11163     11165     11167     11173
                                                                 11175     11214     11220     11231     11250     11252     11302
                                                                 11351     11355     11401     11464     11466     11474     11476
                                                                 11524     11534     11634     11666     11726     11732     11740
                                                                 11760     11776     12063     12075     12101     12121     12123
                                                                 12131     12143     12240     12247     12251     12257     12303
                                                                 12307     12326     12340     12344     12352     12372
          BN=FMT          3                       FEC             5416
                                                  GEN            47755
          FV.OUT          3   FTN                 PUC             3734      3741      4204
                                                  INIT00         54404
          L.FILL          3   FERRS               PEM            12432
          FEC=EXU         4   FEC                 LEX            13330     13331     13334     13335     13337     13342     13344
                                                                 13347     13350     13352     13353     13361     13363     13371
                                                                 13375     13376     13400     13401     13403     13404     13406
                                                                 13410     13413     13414     13415     14014
                                                  DATA           20342
                                                  PAR            31445
          BN=TEM          4   PUC                 QCGC           41125
                                                  GEN            47405     47501     47510
          ERR.F           4                       FERRS          10541     10543     10547     10553     10555     10575     10577
                                                                 10601     10603     10605     10607     10611     10613     10617
                                                                 10623     10626     10630     10634     10636     10641     10647
                                                                 10653     10655     10657     10661     10664     10666     10670
                                                                 10674     10702     10704     10706     10710     10712     10714
                                                                 10720     10722     10724     10726     10731     10733     10735
                                                                 10737     10741     10746     10750     10752     10754     10756
                                                                 10760     10771     10773     10774     10776     11000     11002
                                                                 11004     11006     11010     11012     11014     11016     11020
                                                                 11022     11024     11027     11031     11035     11044     11046
                                                                 11050     11052     11054     11060     11062     11064     11066
                                                                 11070     11072     11075     11077     11101     11103     11106
                                                                 11111     11113     11115     11117     11123     11125     11127
                                                                 11131     11133     11135     11137     11141     11143     11147
                                                                 11151     11153     11155     11157     11171     11177     11202
                                                                 11204     11206     11210     11212     11216     11217     11222
                                                                 11225     11227     11233     11235     11237     11241     11244
                                                                 11246     11256     11260     11262     11264     11266     11270
                                                                 11272     11274     11276     11300     11304     11306     11311
                                                                 11313     11315     11317     11321     11323     11332     11334
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     7  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 11340     11343     11344     11346     11354     11356     11360
                                                                 11362     11364     11367     11370     11371     11373     11377
                                                                 11412     11414     11416     11417     11421     11425     11433
                                                                 11435     11437     11441     11443     11445     11447     11450
                                                                 11452     11454     11456     11460     11462     11470     11472
                                                                 11500     11502     11504     11505     11510     11512     11514
                                                                 11516     11520     11522     11526     11530     11532     11536
                                                                 11537     11541     11543     11545     11547     11551     11553
                                                                 11557     11561     11563     11565     11567     11571     11573
                                                                 11575     11577     11601     11603     11605     11607     11611
                                                                 11613     11615     11617     11621     11623     11625     11630
                                                                 11632     11637     11641     11643     11647     11651     11653
                                                                 11655     11657     11661     11664     11672     11674     11676
                                                                 11700     11702     11704     11706     11710     11711     11712
                                                                 11714     11717     11722     11724     11730     11734     11736
                                                                 11742     11744     11746     11750     11752     11754     11756
                                                                 11762     11764     11765     11767     11770     11772     11774
                                                                 12000     12001     12007     12011     12013     12015     12017
                                                                 12023     12027     12030     12032     12046     12047     12051
                                                                 12053     12055     12057     12061     12065     12067     12071
                                                                 12073     12077     12103     12105     12107     12111     12113
                                                                 12117     12125     12127     12133     12137     12141     12145
                                                                 12147     12151     12155     12163     12165     12170     12172
                                                                 12174     12176     12200     12202     12204     12206     12210
                                                                 12212     12215     12217     12221     12223     12225     12227
                                                                 12231     12233     12235     12237     12243     12245     12253
                                                                 12255     12261     12266     12270     12273     12275     12277
                                                                 12301     12311     12314     12316     12320     12321     12323
                                                                 12330     12332     12334     12336     12342     12346     12350
                                                                 12354     12356     12360     12362     12364     12366     12370
                                                                 12374     12375     12377     12401     12403     12405     12407
                                                                 12417
          FV.ERRS         4   FTN                 INIT00         54406
          Z.IMCV          4   QSKEL               PAR            34121
          V=ADD.C         4             
          BN=APL          5   PUC                 FUN            44101
                                                  GEN            47762
                                                  FAS            51024
          ERR.K           5                       FERRS          12025
          L.TA            5   FTN                 PUC             4162
          FV.LGO          5                       PUC             3446      3713
                                                  REC            50070     50155     50260
                                                  FAS            50741     51142
                                                  INIT00         54400     54414     54416     54633     55167     55173     55220
          L.TTLA          5                       PUC             4152
          V=SUB.I         5   QSKEL               IO             27454     27457     30020     30034
                                                  PAR            30777     31050
          FEC=END         5   FEC                 LEX            13351     13416
          V=SUB.B         5   QSKEL     
          BN=IOAP         6   PUC                 FEC             5405
                                                  GEN            47767
          L.TTLB          6   FTN                 PUC             4155
          FEC=BY          6   FEC                 ALLOC          13225
                                                  LEX            14041
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     8  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  CDDIR          20050     20074     20115     20132
          FV.PB           6   FTN       
          ES=LEN          6   PAR                 QSKEL          42651
          ERR.C           6   PUC                 PEM            12472
          V=SUB.R         6   QSKEL     
          BN=NLST         7   PUC                 FEC             5457
                                                  GEN            47774
          V=SUB.D         7   QSKEL     
          FV.IL           7   FTN       
          L.CCB           7                       PUC             4170
          L.TB            7                       PUC             4164
          L.CCA           7                       PUC             4166
          FEC=DAT         7   FEC                 LEX            13343     13370
          N.ERRT          7   PUC                 FEC             6526
                                                  PEM            12474
          V=SUB.C        10   QSKEL     
          FV.REF         10   FTN       
          BN=VAR         10   PUC       
          FEC=FMT        10   FEC                 LEX            13357
          BT.IDN8        10   FAS       
          BT.IDN9        11                       REC            50147
          FEC=ENT        11   FEC                 LEX            13354
          BN=SUB         11   PUC                 GEN            47473
                                                  FAS            50757     51143     51370
          V=MUL.I        11   QSKEL               IO             27501     30052     30077
                                                  PAR            31001     31051     33136     35215
          V=MUL.B        11             
          L.C$           11   FTN                 FEC             6532
          FEC=TYP        12   FEC                 LEX            13333     13336     13341     13346     13364     13367     13402
          BN=SUB0        12   PUC                 FAS            50756     51145     51366
          V=MUL.R        12   QSKEL               PAR            31007     33141
          V=MUL.D        13                       PAR            33144
          BN=BUF         13   PUC                 QCGC           41136
          FEC=PRM        13   FEC                 LEX            13374
          V=MUL.C        14   QSKEL               PAR            33147
          Z$LBT          14   PUC       
          FEC=OK         14   FEC                 LEX            13417     13420     13421     13422     13423     13424     13425
                                                                 13426
          N$LBT          14   PUC       
          Z.LBT          14                       FEC             6516
                                                  REC            50267
          L.TWO          14   FTN                 PUC             4140
          L.CC           15                       PUC             4142
          V=DIV.B        15   QSKEL     
          L.TITL         15   FTN                 PUC             4132
          V=DIV.I        15   QSKEL     
          FVLEN          16   FTN                 INIT00         54301
          V=DIV.R        16   QSKEL     
          V=DIV.D        17             
          ES=LGE         20   PAR                 QSKEL          42565
          V=DIV.C        20   QSKEL     
          L.APLF         21   FUN                 QCGC           40400
          V=DVC.R        21   QSKEL               PAR            30775
          V=UMI.R        22             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE     9  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=UMI.I        22                       PAR            31000
          V=UMI.D        23             
          V=UMI.C        23             
          V=LT.I         24             
          ES=LGT         24   PAR                 QSKEL          42566
          V=LT.B         24   QSKEL     
          V=LT.R         25             
          V=LT.D         26             
          V=LT.H         27             
          ES=LLE         27   PAR                 QSKEL          42567
          V=LLT          30   QSKEL               PAR            31044
          OMI=CPX        30                       PAR            33767
          ES=LLT         30   PAR                 QSKEL          42570
          V=GE.B         31   QSKEL     
          V=GE.I         31             
          ES=MASK        32   PAR                 QSKEL          42652
          V=GE.R         32   QSKEL     
          V=GE.D         33             
          V=GE.H         34             
          V=LGE          35                       PAR            31043
          V=NE.B         36             
          V=NE.I         36             
          V=NE.R         37             
          W=IMV          37                       GEN            50017
          W=IMVC         37             
          V=NE.C         40             
          W=SHLC         40             
          W=SHFC         40             
          V=NE.D         40             
          V=NE.H         41             
          V=LNE          42             
          V=EQ.I         43             
          V=EQ.B         43             
          V=EQ.R         44             
          V=EQ.C         45             
          ES=SHIF        45   PAR                 QSKEL          42661
          V=EQ.D         45   QSKEL     
          V=EQ.H         46             
          V=LEQ          47             
          ERFO           47   FTN                 PUC             3507      3511      4111
                                                  FEC             6525
                                                  HEADER         15736     15760     15761
                                                  INIT00         54271     54272     54476     54506     54513     54676     54677
                                                                 54753     54762
          N.TABLE        47   PUC                 FEC             6420      6422      7153      7210      7220
                                                  ALLOC          12754     12772     13011     13016     13045     13065     13070
                                                                 13115
                                                  DECL           21656     23025
                                                  QCGC           40446     40456
                                                  FUN            44037     44040
                                                  FAS            51642     52565     52603     53045
          V=STR.R        50   QSKEL     
          V=STR.B        50             
          V=STR.I        50                       IO             27514
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    10  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            31047
                                                  REG            45675
          V=STR.D        51             
          OMI=LCF        51                       PAR            33616
          V=STR.C        51             
          V=STR.H        52                       PAR            31046
          V=CAT          53                       PAR            30761     34750
          Z.SORD         53   PUC                 FEC             6453
          V=COLON        54   QSKEL               PAR            31026
          OM=CONV        55                       PAR            31031
          V=SUBST        55                       PAR            31027     34651     34751     35015
                                                  CONRED         36310
                                                  QCGC           40564
          OM=INL         55                       PAR            33527
          V=FLOAT        56             
          V=ITOR         56             
          V=CTOB         57             
          V=BTOR         57             
          V=BOOL         57             
          V=XMIT         57                       PAR            31034
          V=SNGL         57             
          V=REAL         57             
          V=DTOR         57             
          V=DTOB         57             
          V=BTOI         57             
          V=ITOB         57             
          V=CTOR         57             
          V=RTOB         57             
          V=ITOD         60             
          V=ITOC         60             
          V=RTOI         61             
          V=INT          61                       PAR            31030
          V=CTOI         61             
          ES=LOCF        61   PAR                 QSKEL          42572
          V=DTOI         61   QSKEL     
          V=IDINT        61             
          V=IFIX         61             
          V=BTOD         62             
          V=BTOC         62             
          V=DBLE         62             
          V=RTOD         62             
          V=RTOC         62             
          V=DTOC         63             
          V=CTOD         63             
          V=NOT.B        64             
          V=NOT.L        64                       PAR            31010
          V=COMPL        64             
          V=AND.L        65             
          W=IDV          65                       GEN            50020
          W=IDVC         65             
          V=AND.B        65             
          V=AND          65             
          V=EQV          66             
          V=EQV.L        66             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    11  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=EQV.B        66             
          Z.CHMAP        66   FEC       
          V=OR.L         67   QSKEL     
          V=OR.B         67             
          V=OR           67             
          V=NEQV.        70             
          V=XOR.L        70             
          V=XOR          70             
          V=NEQV         70             
          V=XOR.B        70             
          ES=RANF        71   PAR                 QSKEL          42657
          V=IABS         71   QSKEL     
          V=ABS          71             
          V=SUM1S        72             
          W=IDP2         73             
          W=SHRC         73             
          V=AIMAG        73             
          V=AINT         74             
          V=ANINT        75             
          V=MAX0         76                       IO             27473     30072
          V=AMAX0        76             
          V=DMAX1        77             
          Z.INTA         77                       PAR            31367
          V=AMIN0       100             
          V=MIN0        100             
          V=DMIN1       101             
          V=MAX1        102             
          V=AMAX1       102             
          V=AMIN1       103             
          V=MIN1        103             
          V=AMOD        104             
          Z.SYMVP       105   FEC                 INIT00         55232     55235
          V=CONJG       105   QSKEL     
          V=CMPLX       106                       PAR            33534
          V=DABS        107             
          V=DDIM        110             
          CO.PWT        110   FTN                 INIT00         54660
          V=DIM         111   QSKEL     
          V=DINT        112             
          V=DPROD       113             
          CP.ABT        114   FTN                 PUC             3556
                                                  INIT00         54375
          V=DNINT       114   QSKEL     
          V=DSIGN       115             
          CO.DBB        115   FTN       
          CP.ERCT       115                       PUC             3556
                                                  PEM            12634
          V=NINT        116   QSKEL     
          V=IDNIN       116             
          CP.LSTF       116   FTN                 PUC             3422
                                                  INIT00         54352     54356
          V=SIGN        117   QSKEL     
          V=ISIGN       117             
          CP.PAGE       117   FTN                 PUC             3423      3475      4175
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    12  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT00         53707     54446
          CP.EPAG       120                       PUC             3500      3504      4176
          V=IDIM        120   QSKEL     
          CP.BLF        121   FTN                 PUC             3423
                                                  INIT00         53610
          V=MASK        121   QSKEL               PAR            33564
          V=MOD         122             
          CP.PD         122   FTN                 PUC             3736      4116      4120
                                                  INIT00         54455
          V=RANF        123   QSKEL               PAR            31041
          CP.PS         123   FTN                 INIT00         54461
          V=SHIFT       124   QSKEL               PAR            33577     33603     33611
          CP.PW         124   FTN       
          CP.CPU        125                       INIT00         54510
          V=DOBS        125   QSKEL               PAR            31003
          V=DOBL        126                       PAR            31005
          CP.MXFL       126   FTN                 PUC             3521      3546
                                                  INIT00         54225     55215
          CP.XTXT       127                       INIT00         53742     54543     54546     54551     54554     54561
          V=DOBZS       127   QSKEL               PAR            31002
          CP.IFMT       130   FTN                 PUC             3433
                                                  LEX            13624     14107     14121
          OMI=LEN       130   QSKEL               PAR            33545
          V=DOBZL       130                       PAR            31004
          V=DOC.S       131                       LABEL          37644
          Z.SYMDB       132   FEC                 INIT00         55242
          V=DOC.O       132   QSKEL               LABEL          37645
          CP.ILFL       133   FTN                 PUC             3571      3615
                                                  INIT00         54253
          V=DOC.L       133   QSKEL     
          V=DOC.R       134             
          V=DOC.D       135             
          CP.LCOM       135   FTN       
          GT1           135                       PUC             3572      3574      3576      3611      3613      3617      3622
                                                                  3643      3646      3741      3742      4025      4027      4031
                                                  FAS            53114     53116
                                                  INIT00         54217     54221     54223     54227     54232     54234
          GT2           136             
          V=IOLC        136   QSKEL               IO             30362
          V=LCIF        137                       IO             30344
          CP.FLIN       137   FTN                 FEC             6326
                                                  LEX            13660     13724     13734     13754     14053     14060     14072
                                                                 14103
          V=GOTO        140   QSKEL               KEY            17114     17474     17571
                                                  LABEL          37603
          OMI=SHF       141             
          CP.CARD       141   FTN                 PUC             3435      3471
                                                  LEX            13617     14061     14112     14116     14120
                                                  INIT00         54642
          V=AGOTO       141   QSKEL               KEY            17155
          V=CGOTO       142                       KEY            17201
          Z.SYMIL       143   FEC                 INIT00         55244
          V=JGOTO       143   QSKEL               KEY            17207
          V=RGOTO       144                       KEY            16565
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    13  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=ASSGN       145                       KEY            16501
          V=BSS         146                       KEY            17633
                                                  PAR            31033
                                                  GEN            46743
          V=ARY         147                       PAR            31012     35200
                                                  QCGC           40600
          V=GAP         150                       PAR            31021
          V=FAP         151                       PAR            31020
          V=IAP         152                       PAR            31022
          V=APIOC       153                       PAR            31023
          V=APIOD       154                       PAR            31024
          V=APIOU       155                       PAR            31025
          V=SUBR        156                       KEY            16560
          V=FUNC        157                       PAR            31015
          V=LIBF        160                       PAR            31017
          V=INTF        161                       PAR            31016
          CP.STXT       161   FTN                 INIT00         54057     54103
          V=IOSUB       162   QSKEL               IO             26363
          V=ERR         163                       PAR            30767     30771     31014
          V=PEND        164             
          V=STOP        164                       KEY            17772
          V=PAUS        165                       KEY            17773
          V=RET         166                       KEY            16641     17030
          V=RTNK        167                       KEY            17045
          V=GPL         170                       PAR            31053
          CP.LIB        171   FTN                 INIT00         54061     54101     54105
          V=ENTR        171   QSKEL               KEY            16705
          V=BVD         172                       FEC             6512
                                                  QCGC           40422     40514
          V=EVD         173                       FEC             6357
          V=SEG         174             
          V=NOOP        175                       FEC             6254
                                                  KEY            17543
                                                  IO             30347     30366
                                                  PAR            31032
                                                  LABEL          37673     37701     37766
                                                  QCGC           40515
                                                  GEN            47314
          V=HDR         176                       HEADER         15776
          V=FILE        177                       HEADER         16100
          V=PLIM        200                       HEADER         16115
          CP.AFLS       201   FTN                 PUC             3517      3525      3533      3607      4021      4032      4034
                                                  ALLOC          13154
                                                  INIT00         54214     54225     54251     55155     55214
          V=SEX         201   QSKEL               HEADER         15612     16117     16360
          CP.NFLS       202   FTN                 PUC             4033      4035
                                                  INIT00         53145     54224     54252     55201     55213
          V=CDLOO       202   QSKEL               CDDIR          20152
          LCM.FL        203   FTN       
          V=CDDOT       203   QSKEL               CDDIR          20041
          CP.AFLL       203   FTN                 PUC             3615
                                                  INIT00         54251
          CP.NFLL       204                       INIT00         54252
          V=CDCS        204   QSKEL               CDDIR          20025
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    14  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=DATA        205                       DATA           20361
          CP.MODL       205   FTN                 FAS            52661
                                                  INIT00         53673     53674
          V=FIN         206   QSKEL               FEC             5736
          CP.PCOM       206   FTN                 INIT00         53701     53702
          V=LCC         207   QSKEL               HEADER         15673
          V=DVI         210                       DATA           20602
                                                  PAR            31013
          F.IN          211   FTN                 PUC             3436
                                                  LEX            14117
                                                  INIT00         54516     54521     54617     54637     54640     54643
          V=EXP.I       211   QSKEL               PAR            31042
          V=DOBD2       212             
          V=R123        213             
          OM=IF         213                       KEY            17507
          V=D123        213             
          V=I123        213             
          V=I122        214             
          V=R122        215             
          V=D122        215             
          V=I113        216             
          V=D113        217             
          V=R113        217             
          V=I121        220             
          V=IN23        221             
          V=DN23        221             
          V=RN23        221             
          F.OUT         221   FTN                 PUC             3431      3476      4145
                                                  ALLOC          13241
                                                  INIT00         54516     54517     54564     54567     54572     54623     54716
          V=I1N3        222   QSKEL     
          V=R1N3        223             
          V=D1N3        223             
          V=I12N        224             
          V=R12N        224             
          V=D12N        224             
          V=IN22        225             
          V=DN22        226             
          V=RN22        226             
          V=I1NN        227             
          Z.INTF        227                       FEC             7227
          V=D1NN        230             
          V=R1NN        230             
          V=INN3        231             
          F.ERRS        231   FTN                 PUC             3501
                                                  INIT00         54570     54570     54630     54717
          V=RNN3        232   QSKEL     
          V=DNN3        232             
          V=I11N        233             
          V=R11N        234             
          V=D11N        234             
          V=RN2N        235             
          V=DN2N        235             
          V=IN2N        235             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    15  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=I1N1        236             
          V=IFT         237                       KEY            17525
          V=IFF         240                       KEY            17525
          V=I111        241                       KEY            17470
          V=R111        241             
          V=D111        241             
          F.LGO         241   FTN                 PUC             3450      3714      3716
                                                  ALLOC          13243
                                                  FAS            50743     51111     51155     53115
                                                  INIT00         54576     54635     55175
          V=IEQ.I       242   QSKEL               PAR            32473
          V=IEQ.R       243                       PAR            32474
          V=IEQ.D       244                       PAR            32475
          V=IEQ.C       245                       PAR            32476
          V=INE.I       246                       PAR            32473
          V=INE.R       247                       PAR            32474
          V=INE.D       250                       PAR            32475
          B=FTN         251   FTN                 RPV00           1632
          V=INE.C       251   QSKEL               PAR            32476
          Z.SKCR        252             
          Z.SCT         252             
          SYS=          253   FTN                 UTILITY         2051      2123      2370
                                                  PUC             3570      3575      3600      3604      3614      3623      3625
                                                                  3645      4030
                                                  INIT00         53550     54213     54222     54233     54261     54264     54267
                                                                 54306     54735     55211
          RCL=          266                       UTILITY         2501      2537      2703      2742
          WNB=          272                       UTILITY         1730      2051      2123      2361      2626
                                                  PUC             3451      3656
                                                  REC            50123
                                                  INIT00         54637     54653
          MSG=          302                       UTILITY         2052      2073      2075      2077      2101      2124
                                                  PUC             3551      3555      3602      4074
                                                  ALLOC          13240
                                                  HEADER         15764
                                                  INIT00         53416     53421     53430     53553     54614     54647
          INT.FL        310                       PUC             3527      3607
                                                  INIT00         55156
          F.SLST        311             
          F.PB          311                       PUC             3456      3461      3721
                                                  QCGLINK         4406      4407
                                                  QCGC           40741     40744
                                                  REC            50122     50125     50130     50157
                                                  FAS            53030     53034
                                                  INIT00         54577     55171
          F.IL          321                       PUC             3444      3724
          F.REF         331                       PUC             3464      3467      3727
                                                  FEC             7053
                                                  ALLOC          13173
                                                  INIT00         54601     55165
          FTIFL         341                       INIT00         54254
          JOT           342                       INIT00         54314
          HO$MFLS       343             
          MAX.FL        343                       PUC             4021
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    16  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT00         54212     54215     55204
          NOM.FL        344                       ALLOC          13154
                                                  INIT00         55201
          OT.DAL        345             
          OT.RM         346             
          RAPFLAG       347                       PUC             3434
                                                  INIT00         54644
          RS.PD         350                       PUC             3737
                                                  INIT00         54733
          TIME0         351                       PUC             3552
                                                  INIT00         54273
          TIME1         352                       PUC             3527
                                                  INIT00         55231
          ENOT=L        353                       PEM            12544     12600
                                                  INIT00         54563     54610     54626
          CO.AL         354                       HEADER         16275
                                                  DECL           23607
                                                  INIT00         53574     55037
          CO.ANSI       355                       PUC             3540
                                                  FEC             5754
                                                  PAR            35066
                                                  INIT00         53577     54327     55250
          HO$ARGC       356             
          CO.ARGC       356                       FAS            50725     52663
                                                  INIT00         53750     54340     54772
          CO.ARGF       357                       FUN            43237     43455
                                                  FAS            52664
                                                  INIT00         53752     54340     54776
          HO$ER         360             
          CO.DBER       360                       HEADER         16121
                                                  GEN            46730     46751     47357     47447
                                                  INIT00         53754     54420     54430     55020
          CO.DBID       361                       KEY            17573
                                                  QCGC           40754
                                                  GEN            46731     46751     47110     47131     47176
                                                  REC            50146
                                                  INIT00         53756     54305     54307     54467     55022
          CO.DBPM       362                       HEADER         16120
                                                  DECL           21507
                                                  REC            50152
                                                  FAS            51725     52002
                                                  INIT00         53760     55026
          CO.DBSB       363                       IO             27556
                                                  PAR            31625     34161
                                                  INIT00         53762     55012
          CO.DBSL       364                       INIT00         53764     55014     55241
          CO.DBST       365                       QCGC           40754
                                                  REC            50146
                                                  INIT00         53766     54467     55030
          HO$TB         366             
          CO.DBTB       366                       PAR            33347
                                                  REG            44725
                                                  INIT00         53770     55010
          CO.DS         367                       LEX            13643     13717
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    17  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT00         53624     54757
          CO.EC         370                       INIT00         53627     54226     54235
          HO$IE         371             
          CO.EL         371                       PEM            12470
                                                  INIT00         53635     54316
          CO.ET         372                       PEM            12632
                                                  INIT00         53640     54363
          CO.GO         373                       PUC             3563
                                                  INIT00         53646     54413     54417
          CO.LCM        374                       DECL           22652     24036
                                                  INIT00         53657     54431     54437     55262
          HO$LCM        374             
          CO.LL         375                       FAS            51071
                                                  INIT00         53662     54462     55034
          CO.MD         376                       INIT00         53670     54342     55251
          CO.OPT        377                       PUC             3443      3452      3455      3466      3723
                                                  PAR            35167
                                                  LABEL          37642
                                                  REC            50200
                                                  FAS            50740     51054
                                                  INIT00         53171     53676     54357     54410     54423     54466     54471
                                                                 54574     55262
          CO.PS         400                       PUC             3422      4207
                                                  INIT00         53712     54456     54461     54725
          CO.PW         401                       PUC             3735      4115      4126
                                                  PEM            12552
                                                  LEX            15363
                                                  HEADER         15753
                                                  FAS            50767
                                                  INIT00         53715     54602     54604     54606     54652     54655     54672
                                                                 54672     55045
          CO.PWE        402                       PUC             3505
          CO.REWB       403                       INIT00         54010     54634
          CO.REWE       404                       INIT00         54012     54626
          CO.REWI       405                       INIT00         54014     54616
          CO.REWL       406                       INIT00         54016     54622
          CO.RNDA       407                       INIT00         54020     54744     55266
          CO.RNDS       410                       INIT00         54022     54746     55267
          CO.RNDM       411                       PAR            32340
                                                  INIT00         54024     54750     55270
          CO.RNDD       412                       PAR            32340
                                                  INIT00         54026     54755     55271
          CO.SEQ        413                       FEC             5756      6323
                                                  LEX            13631     14035
                                                  INIT00         53734
          CO.STAT       414                       HEADER         16041
                                                  GEN            47614     47721
                                                  INIT00         53737
          HO$UO         415             
          CO.UO         415                       INIT00         54412     54472
          CO.WPL        416                       PEM            12565
                                                  LEX            15377     15405
                                                  INIT00         54712
          CO.WPE        417             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    18  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.CS         420                       QCGC           40644
                                                  INIT00         53613     54441     54445     55002
          CO.C$         420                       FEC             6532
          CO.DOLG       421                       PAR            34456
                                                  INIT00         53772     54440     54464     54764
          CO.DOOT       422                       QCGC           40644
                                                  INIT00         53774     54464     54766
          CO.LOA        423                       CDDIR          20141
                                                  INIT00         53776     54353     54360     55160
          CO.LOM        424                       CDDIR          20144
                                                  INIT00         54000     54353     54360     55161
          CO.LOO        425                       PUC             3446
                                                  CDDIR          20147
                                                  REC            50070     50156
                                                  INIT00         54002     54354     54357     55157     55167     55220
          CO.LOR        426                       FEC             6407      6534
                                                  CDDIR          20155
                                                  INIT00         54004     54354     54361     55161     55164
          HO$LO$S       427             
          CO.LOS        427                       FEC             6537
                                                  CDDIR          20163
                                                  INIT00         54006     54355
          CO.QC         430                       REC            50072
                                                  INIT00         53720     54336
          LCM.OA        431             
          LCM.MM        432             
          LCM.MU        433             
          FTNLFN        434                       INIT00         54300
          FTNLDR        435                       INIT00         53146     54276
          FTNHHA        437                       INIT00         54250
          O.TITL        440                       PUC             4132
          TL.EJCT       440                       PUC             3506
          TL.PTYP       441                       PUC             4154
                                                  FEC             6524
                                                  HEADER         15736     15750
                                                  FAS            52661
          TL.PNAM       442                       HEADER         15756
                                                  INIT00         54676
          TL.CPU        443                       INIT00         54505
          TL.CSOP       444                       REC            50145
                                                  INIT00         54471     54476     54752     54761
          O.TTLA        447                       PUC             3510      4152
                                                  INIT00         54700     54703
          TL.DATE       451                       FAS            52654
                                                  INIT00         54262     54270
          TL.TIME       452                       FAS            52656
                                                  INIT00         54265     54270     54511
          TL.PAGE       454                       PUC             4131      4150
                                                  INIT00         54705
          O.CPV         455                       PUC             4137      4161
                                                  INIT00         54770     54774     55000     55003
          O.TA          462                       PUC             4163
                                                  INIT00         55006     55016     55024     55032     55041     55044     55052
          L.PWA         470                       INIT00         55046
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    19  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O.CC          471                       PUC             4141      4165
                                                  INIT00         53152
          O.C           500                       PUC             4167
                                                  INIT00         55056
          L.PWB         506                       INIT00         55052     55121     55125
          LDCOM         524                       PUC             3501      3503
          LOVER         531             
          W=MASKV       533   QSKEL               GEN            50021
          W=MASKC       541             
          W=MODG        543                       GEN            50022
          W=MODP2       553             
          LDPRI         560   FTN                 INIT00         53176
          W=SHIFV       565   QSKEL               GEN            50023
          ABTFTN        600   FTN                 PUC             3562
                                                  ALLOC          13245
                                                  INIT00         54615     54650
          MEMERR        603                       INIT00         54216     55205
          COD=          615             
          COD           615                       UTILITY         2047      2121      2163
                                                  PUC             3546
          W=DOC.K       621   QSKEL     
          FVTBL         624   FTN                 INIT00         54301
          IBUF          624                       INIT00         54517     54521
          L=TABLE       632   PUC                 FEC             6421
          W=IAPS1       732   QSKEL               FUN            43350
          W=IAPD1       733                       FUN            43350
          W=IAPS2       735                       FUN            43351
          W=IAPD2       736                       FUN            43351
          W=APSTR       743                       FUN            44335
          W=IPLG0       745                       FUN            44330
          W=CAPST       754                       FUN            44411
          W=CIS0S       757                       FUN            44412
          W=CIA0S       770                       FUN            44413
          HO$OBL       1001   FTN       
          W=LUA        1001   QSKEL               FUN            44070
          W=SUA        1003                       FUN            44427
          W=PROM       1035                       GEN            47451
          W=PROS       1041                       GEN            47454
          W=MFPNT      1043                       GEN            47350
          W=FUNT       1045                       GEN            47346
          W=DFENT      1051                       GEN            47335
          W=TMENT      1055                       GEN            47332
          W=ALENT      1061                       GEN            47046
          W=TENT       1067                       GEN            47330
          FWA20        1626   FWA5N0              FTN              577
          FWA10        1626             
          OBUF         1626   FTN       
          FIN.FTN      1626             
          RPV=RNA      1627   RPV00               UTILITY         2154
          B=RPV00      1627             
          B=UTILI      1675   UTILITY             RPV00           1634
          CDD          1700                       PUC             4064      4125
                                                  FEC             6231      6235      7137
                                                  LEX            13633     14046
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    20  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FMT            25025
                                                  IO             26650
                                                  INIT00         55034
          CDD=         1700             
          DXB          1717                       FEC             5652
                                                  LEX            14647
                                                  FAS            52126
                                                  INIT00         53320
          FA=SET       1726                       PUC             3460      3470
                                                  INIT00         54520     54522     54571     54573     55166     55172     55176
          MVE=         1767                       PUC             4051      4057
                                                  FEC             6364      6446      6510      6533      7203
                                                  PEM            12557
                                                  ALLOC          13076     13104
                                                  LEX            14073     15376
                                                  HEADER         15671     16224
                                                  KEY            16613
                                                  DATA           21013     21214     21255
                                                  DECL           21707     22005     23715
                                                  FMT            25073
                                                  IO             26373     26410     26565
                                                  PAR            33360     34727
                                                  CONRED         36021
                                                  STMTF          37041
                                                  LABEL          40131     40157     40245     40311     40322
                                                  QCGC           40431     40435
                                                  FUN            44270
                                                  GEN            47074
                                                  FAS            51022     51651
                                                  INIT00         54302
          RPV=         2025                       INIT00         54255     54260
          FRA=         2154             
          MNS=         2227                       CONRED         36034
          SBM=         2306                       FEC             6451      6453      6516      6530
                                                  DATA           21216
                                                  QCGC           40400
                                                  REC            50264
          SFN=         2313                       INIT00         53423
          SFN          2313                       PUC             4042
                                                  PEM            12542
                                                  LEX            13750     14126
                                                  HEADER         15747
                                                  FAS            51127
          SST          2331                       FAS            52020     52050
          WOD          2334                       FAS            52134
          ZTB=         2352             
          ZTB          2352                       LEX            14037
                                                  KEY            17751
          CIO=         2371                       PUC             3445      3462      3465      3477      3502      3715      3717
                                                                  3722      3725      3730      3744
                                                  QCGLINK         4410
                                                  ALLOC          13242     13244
                                                  REC            50131     50160
                                                  FAS            51112     51156
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    21  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT00         54621     54625     54632     54636     54641     55145
          RDC=         2377                       PUC             3437
                                                  LEX            14117
                                                  INIT00         54643
          RDW=         2424                       FAS            53030     53035
          WTH=         2563                       PUC             3432      3743      4121      4133      4140      4142      4146
                                                                  4153      4155      4162      4164      4166      4170      4172
                                                                  4224      4232
          WTO=         2616                       QCGC           40742     40744
          WTW=         2640                       FEC             7053
                                                  ALLOC          13173
                                                  FAS            53115
          WTX=         2725             
          DCB=         2740             
          BASES        2747   PUC                 FEC             6411      6427
                                                  ALLOC          13002     13067     13101     13107     13130     13132     13164
          O.P2NUL      2747             
          T.TB         2747                       LEX            13506     13515     13517     13554     13561     15440
                                                  DECL           22630
                                                  IO             30222
                                                  PAR            32176
          T.LGOB       2747                       FAS            50744
          ORIGINS      2747             
          B=PUC        2747                       RPV00           1635
          T.PTXTR      2750                       FAS            51554     51611     51661     51662     52237     52315     52327
                                                                 52441
          T.ARG        2750                       HEADER         16151     16162     16212     16223     16311
                                                  KEY            16607     17766
                                                  PAR            33355     33507     33515     33644
          T.STF        2751                       ALLOC          13133
                                                  PAR            33427     33454
                                                  STMTF          37104
          T.LINK       2751                       FAS            50732     52015     52021     52040     52771
          T.EQUS       2751                       DECL           22175     22204     22206     22210     22216     22224     22226
                                                                 23044     23307     23354     23367     23375     23431     23447
                                                                 23512
          T.DVV        2752                       CONRED         36443     36500     36651     36656
          T.FPO        2752                       REC            50240     50406
                                                  FAS            51375
          T.IOARG      2752                       IO             25645     25705     25754     25770     26131     26407     26565
                                                                 27035     27151     27227     27360     30135
                                                  PAR            34725
          T.COMM       2752                       FEC             6514
                                                  DECL           21425     22662     22743     23334     23373     23602
          T.SLARG      2752                       KEY            16612
                                                  PAR            33647
          T.BLST       2753                       FEC             6215
                                                  KEY            17162     17235     17261     17270     17306     17315     17367
                                                                 17372     17377     17550     17565     17606
                                                  PAR            32124     32666     32731     32746     32770     32774
                                                  LABEL          37247     37344     37423     37503     37524     37532     37562
                                                                 37641     37660     37670     37675     37723     37752     37762
                                                                 37770     40003     40022     40060     40067     40075     40121
                                                                 40127     40154     40163     40242     40250     40257     40271
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    22  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 40277     40307     40315     40326
          T.DATI       2754                       DATA           20507     20524     20630     20723     20772     21241     21252
                                                                 21277
          T.SCR        2754                       IO             26404     26407     26562     26564
                                                  STMTF          36736     36741     36770     36774     36776     37022     37046
                                                                 37062
                                                  LABEL          40124     40132     40145     40156     40220     40233     40244
                                                                 40305     40320
                                                  FAS            51702     51707     51712     51722     51745     51764     52154
                                                                 53122
          T.OUS        2754                       QCGC           40437     40524     40527     40532     40541     40604     40611
                                                                 40614
                                                  FUN            43552     43561     44001     44415
                                                  REG            45003     45071     45124     45146
          T.PTXT       2754                       FAS            51552     51605     51655     51657
          T.FILL       2755                       FAS            50734     52046     52051     52767
          T.DATL       2755                       DATA           20352     20406
          T.ILI        2755                       IO             27203     27303
          T.EOT        2755                       DECL           23305     23325     23326     23372     23375     23447
          T.IOLC       2756                       IO             26372     30345     30352     30364     30371     30377
          T.DATS       2756                       DATA           20754     20766     21001     21010     21037
                                                  GEN            47676
                                                  FAS            51276     51555     51650
          T.SAP        2756                       FUN            43230     43232     43241     43270     43303     43313     43331
                                                                 43457     43575     44373
          T.PAR        2757                       FEC             6252      6361
                                                  ALLOC          13134
                                                  KEY            17527     17576     17716
                                                  DATA           20564
                                                  DECL           21766     22003
                                                  IO             26367     26716
                                                  PAR            32147     32206     32564     32573     34254     34320     34647
                                                                 34654     34706     34723     34746     35013     35043     35160
                                                                 35203     35227
                                                  CONRED         36306
                                                  QCGC           40402     40421     40430     40433     40436     40441     40442
                                                  FUN            43672     43705     43721     43725     43737     44014     44312
                                                  REG            44556     45004     45700     46017     46200
                                                  GEN            47071     47073     47103     47313
          T.XFIL       2757                       FAS            50736     52067     53010
          T.DAR        2757                       CONRED         36420     36430     36463     36505     36700     36705
          T.PCS        2760                       PAR            31705     31707     31712     32270
          T.STMT       2761                       LEX            13511     14062     14100     14771     14774     15001     15004
                                                                 15344     15444
          T.CLWB       2761                       FAS            52506     52531
          T.SUB        2762                       REC            50261
                                                  FAS            51143     51475
          T.VDIM       2763                       FEC             6345      6356      6364      6511
                                                  DECL           21602     21612     21624     22000     22024     22041     22071
                                                                 22103     22151
                                                  QCGC           40426     40431
                                                  GEN            47073
          T.SUB0       2763                       REC            50404     50406
                                                  FAS            51145     51530
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    23  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.C$IF       2764                       CDDIR          20072     20101     20120
          O.P2USE      2765             
          T.CLW        2765                       FUN            44210     44223
                                                  FAS            52507
          O=CLW        2765             
          O=CAC        2766             
          T.CAC        2766                       FUN            43627     43654     44135
                                                  FAS            52276     52371
          O=APL        2767             
          T.APL        2767                       FUN            44072     44264     44274
                                                  FAS            51015     51017     52243
          T.IOA        2770                       IO             27762     30325     30334     30354
                                                  FUN            43356     43363     43367     43373     43413     43420     43421
                                                                 43432     43444
                                                  FAS            52330
          O=IOA        2770             
          T.API        2771                       QCGC           40637
                                                  FUN            43230     43241     43270     43457     44103     44372
                                                  REC            50316
                                                  FAS            53021
          O=API        2771             
          O=IOI        2772             
          T.IOI        2772                       QCGC           40635
                                                  FUN            43356     43373     43413     43432
                                                  REC            50320
                                                  FAS            53022
          O=GL         2773             
          T.GL         2773                       QCGC           40626     40640
                                                  REC            50314
                                                  FAS            53020
          T.ASG        2774                       KEY            16511     16513
          O=ASG        2774             
          T.CON        2775                       PEM            12454
                                                  LEX            15256     15312
                                                  KEY            17752
                                                  CDDIR          20063
                                                  DATA           21003     21012     21104     21173     21211     21217     21274
                                                  DECL           21740     22462
                                                  FMT            25033
                                                  PAR            31233     31265
                                                  CONRED         36012     36037     36051     36330     36343     36365     36402
                                                  FUN            43664
                                                  FAS            51046
          O=CON        2775             
          O=CUT        2776             
          T.LA         2776                       GEN            50046
                                                  FAS            52141
          T.CUT        2776             
          T.SYM        2777                       FEC             6044      6106      6147      6173      6222      6273      6443
                                                                  6551      6567      6643      6660      6700      6772      7010
                                                                  7254
                                                  HEADER         16075     16225     16273     16323
                                                  KEY            16444     16503     16672     16677     17167     17277     17452
                                                                 17556     17642
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    24  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DATA           20574     21016
                                                  DECL           21525     22277     22503     22521     22675     22744     22767
                                                                 23012     23047     23076     23176     23275     23463     23512
                                                                 23561     23572     23603     23671     23676     23703     23717
                                                                 23757     24017     24033     24055
                                                  TYPE           24257     24266     24277     24421     24444
                                                  FMT            24674     25064
                                                  IO             26271     26624     26657     26744     27127     27273     27312
                                                                 30126
                                                  PAR            31436     31471     31502     31543     31547     31611     31646
                                                                 32754     33416     33455     33707     34362     34656     34735
                                                                 35022
                                                  CONRED         36436     36443     36476     36603     36615     36647     36662
                                                                 36706
                                                  STMTF          37066     37074     37106
                                                  LABEL          37172     37347     37356     37372     37400     37557     40013
                                                                 40025     40051     40111     40136     40165     40173     40223
                                                                 40262
                                                  QCGC           40652     41110
                                                  FUN            44252     44435
                                                  REG            45065     45106     45407
                                                  GEN            46512     47024     47035     47140     47210     47231     47254
                                                                 47340     47547     47601
                                                  REC            50164     50225     50300     50322     50367     50416     50441
                                                  FAS            50747     50753     51061     51131     51240     51324     51350
                                                                 51372     51514     51561     51672     51747     52022     52115
                                                                 52143     52154     52257     52347     52447     52750     53062
          O=SYM        2777             
          T.BLKS       3000                       FEC             6067      6513      6563      6617
                                                  DECL           21365     21374     21426     22425     22431     22564     22572
                                                                 22637     22665     22667     22714     22742     23333     23476
                                                                 23540     23601     24020
                                                  REG            45110
                                                  REC            50374
                                                  FAS            51730     51773
          O=BLKS       3000             
          O=NLST       3001             
          T.NLST       3001                       KEY            16772     17000     17641     17671
                                                  FAS            53053
          O=DIM        3002             
          T.DIM        3002                       FEC             6505      6571
                                                  KEY            16763     17642
                                                  DATA           20576
                                                  DECL           21655     23071     23446     23603
                                                  IO             26273     27132     27601     27657
                                                  PAR            34150     34304
                                                  CONRED         36617
                                                  GEN            47267
                                                  REC            50356     50445
                                                  FAS            52167     52265     52537     52551     53072
          O=ENTP       3003             
          T.ENTP       3003                       HEADER         16172     16204     16221
                                                  DECL           23724     23727     23731     23743
                                                  GEN            47142     47213     47234     47257     47417     47423     47436
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    25  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 47523     47531     47563
          T.FPI        3004                       FEC             6107
                                                  HEADER         16320     16330
                                                  DECL           23712     23716     23752     23762     24070
                                                  TYPE           24434
                                                  FUN            44253
                                                  REG            45426
                                                  GEN            47551
                                                  REC            50242
                                                  FAS            51474     51516
          O=FPI        3004             
          T.VDI        3005                       HEADER         16337
                                                  DECL           21600     21610     21622     22023     22100     22142     24077
                                                  GEN            47251     47307     47313
          O=VDI        3005             
          O.P2SAV      3006             
          T.REF        3006                       FEC             6410      7066
                                                  ALLOC          13164     13171
          T.LCA        3007                       DECL           22636     22666
                                                  FAS            51020     51023     53023
          T.ECT        3010                       DECL           23303     23457     23511     23536
          T.ENT        3011                       HEADER         15774
                                                  KEY            16702
                                                  FAS            51750
          T.LNT        3012                       FAS            51546     51666     52127
          T.LCC        3013                       HEADER         15666
                                                  FAS            51106
          T.FMT        3014                       FMT            25070
                                                  FAS            51053
          T.END        3015                       FEC             6423
                                                  ALLOC          13177
          SIZES        3016                       FEC             6426
                                                  ALLOC          13012     13017     13061     13102
          L.P2NUL      3016             
          T=TB         3016                       FEC             5742
                                                  LEX            13517     15326     15441
          T=LGOB       3016                       FAS            50742
          T=ARG        3017                       HEADER         16155     16213     16231
                                                  KEY            16517
                                                  PAR            33354     33507     33515     33520     33521
                                                  LABEL          37421
          T=PTXTR      3017                       FAS            51033     51037     51077     51104     51552     51663
          T=STF        3020                       FEC             5741
                                                  ALLOC          13216
                                                  STMTF          37104
          T=EQUS       3020                       ALLOC          13221
                                                  DECL           23043     23173     23302     23355     23506     23513     23554
          T=LINK       3020                       ALLOC          13144
                                                  FAS            50730     52015     52021     52045
          T=COMM       3021                       DECL           21367     21376     22627
          T=FPO        3021                       REC            50141     50407
          T=DVV        3021                       CONRED         36415     36442     36445     36654
          T=SLARG      3021                       KEY            16516     16610     16614
                                                  PAR            33311
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    26  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=IOARG      3021                       IO             26045     26352     27032
                                                  PAR            34722     34725
          T=BLST       3022                       FEC             6214      6226      7033
                                                  ALLOC          13221
                                                  KEY            16543     16652     17021     17160     17232     17235     17261
                                                                 17270     17306     17315     17326     17372     17550     17565
                                                                 17606
                                                  IO             27342     27406     27434     27436
                                                  PAR            31676     32124     32535     32665     32667     32731     32744
                                                                 32770     32774
                                                  LABEL          37220     37246     37344     37404     37424     37524     37532
                                                                 37562     37567     37642     37660     37722     37752     37777
                                                                 40001     40003     40022     40060     40075     40121     40126
                                                                 40130     40142     40230     40271     40273     40277     40307
                                                                 40312     40326     40331
          T=PTXT       3023                       FAS            51551     51660
          T=SCR        3023                       FEC             5742      6634
                                                  ALLOC          13220
                                                  IO             26403     26411     26561     26566
                                                  PAR            32173
                                                  STMTF          36720     36752     37003     37046     37117
                                                  LABEL          40143     40152     40220     40231     40240     40251     40276
                                                                 40314     40324
                                                  FAS            51704     51722     51743     51757     51763     52011     52225
                                                                 52536
          T=DATI       3023                       DATA           20334     20347
          T=OUS        3023                       QCGC           40412     40420     40610
          T=EOT        3024                       DECL           23324     23326     23515
          T=ILI        3024                       IO             26376     27167     27202
                                                  PAR            31524
          T=DATL       3024                       DATA           20352     20366     20372     20413
                                                  LABEL          37647
          T=FILL       3024                       ALLOC          13145
                                                  FAS            50730     52045     52051
          T=DATS       3025                       ALLOC          13224
                                                  DATA           20335     20347     20360
                                                  GEN            47670     47701
                                                  REC            50140
                                                  FAS            51275     51304     51555
          T=SAP        3025                       FUN            43252     43306     43311     43465     44123
          T=IOLC       3025                       IO             26365     26371     27416
          T=XFIL       3026                       ALLOC          13147
                                                  FAS            50731     52067     52074
          T=PAR        3026                       FEC             6132      6374      6403
                                                  ALLOC          13020     13062     13077     13222
                                                  KEY            16567     17116     17313     17363     17527     17575     17611
                                                                 17700     17717
                                                  DECL           21716     21762     21765     22003
                                                  IO             26374     27421     27460     27464     27475     27503     27610
                                                                 27617     27654     27776     30021     30040     30044     30053
                                                                 30061     30073     30101     30117     30152
                                                  PAR            30540     30547     30565     30615     31125     31626     31757
                                                                 32147     32210     32372     32550     32676     33477     34475
                                                                 34622     35162
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    27  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LABEL          37663     37775
                                                  QCGC           40412     40426     40432
                                                  FUN            43507
                                                  GEN            47070
          T=DAR        3026                       DATA           20346     20554
                                                  CONRED         36416
          T=PCS        3027                       PAR            31124     32270     32273
          T=CLWB       3030                       FAS            51100     51105
          T=STMT       3030                       FEC             5752
                                                  ALLOC          13212     13214
                                                  LEX            15340
                                                  CDDIR          20170
          T=SUB        3031                       REC            50141
          T=VDIM       3032                       FEC             6342      6360      6363      6365
                                                  DECL           21765     22044     22073     22130     22133     22153
                                                  QCGC           40425     40430     40433
                                                  GEN            47071
          T=SUB0       3032                       REC            50142     50265     50407
          T=C$IF       3033                       FEC             6234
                                                  CDDIR          20101     20120
          L.P2USE      3034             
          T=CLW        3034                       FUN            44224     44232
                                                  REC            50212
                                                  FAS            51103     52504     52507
          L=CLW        3034             
          T=CAC        3035                       FUN            43661
          L=CAC        3035             
          T=APL        3036                       ALLOC          13223
                                                  FUN            44072     44077     44263
                                                  REC            50135     50206
                                                  FAS            51012     51036     52237     52243
          L=APL        3036             
          T=IOA        3037                       IO             30317     30374     30375
                                                  FUN            43363     43445
                                                  REC            50137     50210
                                                  FAS            51075     51104     52326     52330
          L=IOA        3037             
          T=API        3040                       REC            50136     50316
          L=API        3040             
          L=IOI        3041             
          T=IOI        3041                       REC            50137     50320
          T=GL         3042                       ALLOC          13224
                                                  QCGC           40624
                                                  REC            50135     50314
          L=GL         3042             
          T=ASG        3043             
          L=ASG        3043             
          L=CON        3044             
          T=CON        3044                       FEC             5663      6635
                                                  ALLOC          13220
                                                  DATA           20336     20344     21220     21225
                                                  FMT            25075
                                                  CONRED         36037     36046
                                                  GEN            47465
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    28  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  REC            50133
          T=LA         3045                       GEN            50042
                                                  REC            50200
                                                  FAS            51054
          L=CUT        3045             
          T=CUT        3045             
          T=SYM        3046                       FEC             6044      6105      6173      6273      6443      6567      6642
                                                  DECL           22674     22766     23012     24016     24033     24056
                                                  TYPE           24444
                                                  QCGC           40653
                                                  REC            50224     50301     50322     50416     50442
                                                  FAS            51705     52155
          L=SYM        3046             
          L=BLKS       3047             
          T=BLKS       3047                       FEC             6066      6622
                                                  ALLOC          13226
                                                  DECL           21372     22637     22715     22745     23601
                                                  REC            50375
                                                  FAS            51721     51762
          L=NLST       3050             
          T=NLST       3050                       ALLOC          13223
                                                  KEY            16740     16746     17006     17641     17672
                                                  REC            50134
                                                  FAS            51121     53053
          T=DIM        3051                       ALLOC          13217
                                                  REC            50356
                                                  FAS            52537
          L=DIM        3051             
          L=ENTP       3052             
          T=ENTP       3052                       HEADER         16172
                                                  DECL           23725
                                                  GEN            47424     47540
          L=FPI        3053             
          T=FPI        3053                       DECL           23752
                                                  TYPE           24433
                                                  GEN            47410
                                                  REC            50140     50237
          L=VDI        3054             
          T=VDI        3054                       HEADER         16340
                                                  DECL           22076     24077
                                                  GEN            47251     47314
          L.P2SAV      3055             
          T=REF        3055                       FEC             7047
                                                  ALLOC          13160     13171     13225
                                                  IO             27610     30153     30155
          T=LCA        3056                       DECL           22657
                                                  REC            50136     50205
                                                  FAS            51012     51020     51026
          T=ECT        3057                       DECL           23506     23552     23555
          T=ENT        3060                       ALLOC          13226
                                                  FAS            51744
          T=LNT        3061                       REC            50143
                                                  FAS            50731     52127
          T=LCC        3062                       FAS            51110
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    29  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=FMT        3063                       ALLOC          13222
                                                  FMT            24674
                                                  REC            50134     50176
          T=END        3064             
          RATES        3065                       FEC             6424
          TV=DECL      3134                       FEC             6412      6415
                                                  ALLOC          13166
          TV=EXU       3135                       FEC             5704      6413
                                                  ALLOC          13167
          TV=END       3136                       REC            50060
          TV=CUR       3137                       FEC             5705      6417
                                                  ALLOC          13005     13027     13065     13170
                                                  REC            50062
          F$LBT        3140             
          F.LBT        3140                       FEC             6515
                                                  QCGC           41155     41160
                                                  REC            50176     50224     50257     50257     50267     50303     50432
                                                                 50467
                                                  FAS            50757     50760     51025     51377     52716     52721
          SUM.LBT      3154                       REC            50300     50343
                                                  FAS            50746     51724
          COMSIZ       3155                       REC            50340     50344
          ALC.PAR      3157                       FEC             6416
                                                  ALLOC          13020
                                                  REC            50061
          BINIO        3160                       QCGLINK         4412
                                                  REC            50124     50154
          BLNKCOM      3161                       FEC             6314
                                                  DECL           21344     21402     22437     22716
                                                  CONRED         36550
          CBI          3162                       QCGC           40761     41105     41153     41161
                                                  FAS            50762     52566     52714     52722
          CHARDCL      3163                       FEC             6043      6314
                                                  DECL           22714     22766     23675
                                                  TYPE           24147     24527
          N$FERR       3164             
          ERRORS       3164                       FEC             6531
                                                  PEM            12625
                                                  REC            50121     50270     50313
                                                  FAS            50745
          ENTRJ        3165                       GEN            47050     47054     47105     47204     47225     47246
          FAILSFT      3166                       FEC             6437
                                                  ALLOC          13207
          O.TABS       3167                       FEC             6417
                                                  ALLOC          13057     13063     13101     13176
                                                  INIT00         55200
          IDENT1       3170             
          RPV=MSG      3170                       UTILITY         2072
          HO$MSG       3171                       HEADER         15763
          HO$PRGN      3172             
          IDENT        3172                       ALLOC          13233
                                                  HEADER         15762     16025
                                                  TYPE           24420
                                                  FAS            51127     51724     52654
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    30  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IO.TEM       3173                       FEC             6311
          N$LINES      3174             
          LCNT         3174             
          LEVEL        3176                       FEC             6105      6316
                                                  HEADER         16305
                                                  DECL           22345     22742     23613
          LEVEL0       3177                       FEC             6120      6316
                                                  GEN            47230
          HO$LVL2      3200             
          LEVEL2       3200                       FEC             6317
                                                  HEADER         16306
                                                  DECL           22367     22674     23613
                                                  FAS            52666
          LINEBUF      3202                       PEM            12477     12551     12556     12561
                                                  FAS            50770     50771     51261     52135     52702     52710     53043
                                                                 53106
          LINENR       3220             
          RPV=CLN      3220                       UTILITY         2067
          CARDS        3220                       LEX            13633     14107
          HO$CSN       3220             
          LINES        3220                       FEC             6325
                                                  CDDIR          20166
          LOSTREF      3221                       FEC             6440      7062
                                                  IO             27612     30156
          MOD          3222                       FEC             5664      6145      6440      7002
                                                  HEADER         15616     15730     15735     15766     16145     16214     16245
                                                                 16255
                                                  KEY            16633     16646     16660     16673     17015
                                                  DECL           23665     23706     23723     23755
                                                  TYPE           24164     24217     24312     24420
                                                  PAR            31413     31536
                                                  CONRED         36552     36556
                                                  QCGC           40651
                                                  GEN            46753     47120     47144     47332     47344     47440     47635
                                                                 47641
                                                  FAS            51152     51675     51717     51742
          NARGS        3223                       FEC             6312
                                                  HEADER         16076     16112     16127
                                                  GEN            47646
          NOLIST       3224                       FEC             6520
                                                  KEY            16626
          NREXT        3225                       ALLOC          13146
                                                  REC            50121
                                                  FAS            50732     52016     52022     52044
          NSQZLH       3226                       FEC             6431
                                                  PAR            31261
          N.AP         3227                       FEC             6431
          N.ARP        3230                       FEC             6432
                                                  HEADER         16256
                                                  KEY            17045
                                                  GEN            47364
          N.BUF        3231                       FEC             6432
                                                  GEN            47615     47621     47730     47734
          N.CPL        3232                       FEC             6433
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    31  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  HEADER         16211
                                                  DECL           23733     23745
          N.CON        3233                       GEN            47466
                                                  REC            50203
          N.CT         3234                       FEC             6370      6434
                                                  PAR            34552
          N.CTMAX      3235                       FEC             6370      6435
                                                  QCGC           41144
          N.DOB        3236                       FEC             6435
                                                  LABEL          37474     37545     37654
          N$SEP        3237             
          N.EPL        3237                       FEC             6317
                                                  HEADER         16210     16401
                                                  DECL           23577
                                                  GEN            47116     47404
          N.FP         3240                       FEC             6433
                                                  HEADER         16325
                                                  KEY            16642
                                                  GEN            47117     47346
          N$FPS        3240             
          N.GL         3241                       FEC             6442
                                                  KEY            16603     17401     17541     17716
                                                  IO             27240     27525     30340
                                                  LABEL          37577     37627
                                                  QCGC           40624
                                                  GEN            47021     47055     50034
          N.MAXIL      3242                       FEC             6133
          N$LC         3243                       FEC             6434
                                                  QCGC           41150
          N.ST         3244                       FEC             6436
                                                  QCGC           40413
                                                  FUN            43536     43551     44332
                                                  REG            45072
                                                  GEN            47462
          N.STMAX      3245                       FEC             6436
                                                  QCGC           40413     41143
                                                  GEN            47462
          N.VD         3246                       FEC             6437
                                                  DECL           22066     22131     24055
                                                  QCGC           41147
          N$VD         3246             
          O.STITL      3247                       FEC             6524
          PU.MFL       3250             
          HO$PMLS      3250             
          PASS         3251                       QCGLINK         4420
                                                  FEC             6322      6376      6401
                                                  PEM            12547
                                                  ALLOC          13144     13210     13231
                                                  REC            50057     50074
          PWBUF        3252                       PEM            12557     12560
                                                  LEX            15373     15375     15400     15400
          WOF=ERR      3267                       PEM            12545     12552     12554     12564     12602
                                                  LEX            15350     15363     15377     15405
                                                  INIT00         55044
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    32  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          REFIO        3270                       FEC             7064      7070
                                                  ALLOC          13162
          HO$RDR       3271             
          RPV=URP      3271                       UTILITY         2102
          SAVE         3272                       FEC             6315      6546
                                                  DECL           22542     23006     24015
                                                  FAS            51770
          THRESH       3273                       ALLOC          13023     13201     13204     13206
                                                  INIT00         55217
          USAVE        3274                       FEC             6315      6546      6576      6642
                                                  DECL           22541     23006     24015
                                                  REC            50334
                                                  FAS            51770
          L.TABS       3275                       FEC             6420
                                                  ALLOC          13015     13064     13200
                                                  INIT00         55207     55210     55212     55216
          SCR          3276                       FEC             6034      6036
                                                  FERRS           7542
                                                  HEADER         15652     15665     15670     16144     16156     16211     16225
                                                                 16333     16335     16337
                                                  IO             27261     27266     27305     27307
                                                  PAR            31525     31527     32267     32644     32662     33334     33415
                                                                 33442     33446     33631     33755     33775     34021     34025
                                                                 34045     34064     34067     34073     34136     34210
                                                  STMTF          37006     37047     37100     37102     37107     37112
          WO.C$        3310                       FEC             6533
          WO.CS        3310                       CDDIR          20023
                                                  PAR            33662
                                                  FUN            43276
                                                  GEN            47011
          WO.DOLG      3311                       CDDIR          20035
                                                  PAR            32742
                                                  LABEL          37606     37632
          WO.DOOT      3312                       CDDIR          20037
                                                  IO             27472     30070     30335
                                                  LABEL          37572
                                                  FUN            43477
                                                  GEN            47013
          WO.LOA       3313                       KEY            16626
                                                  CDDIR          20142
                                                  IO             26620
                                                  REC            50063
          WO.LOM       3314                       CDDIR          20145
                                                  DECL           23553
                                                  IO             26620
                                                  REC            50063
          WO.LOO       3315                       CDDIR          20150
                                                  REC            50071
                                                  FAS            51116     51342     52702
          WO.LOR       3316                       FEC             7017
                                                  KEY            16627     16747
                                                  CDDIR          20157
                                                  IO             26460     26621
                                                  LABEL          37407
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    33  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  REC            50064
          WO.LOS       3317                       FEC             5731
                                                  PEM            12600
                                                  LEX            14075
                                                  CDDIR          20165
          WO.QC        3320                       FEC             6374
                                                  PEM            12631
          WO.LCM       3321                       DECL           22635
                                                  INIT00         55264
          CONONE       3322                       DATA           20560
                                                  DECL           21626     21764
                                                  IO             25753     26026     26241     26251     26267     27034     27117
                                                                 27266     27357     27462     27473     27647     27655     30057
                                                                 30071     30351     30356     30370
                                                  PAR            30555     31166     31225     31275     31565     31736     32660
                                                                 32715     33004     33021     33042     33063     33245     34146
                                                  LABEL          37513
          CONZER       3323                       KEY            17744
                                                  IO             27356
                                                  PAR            32036
          CONZERI      3324                       KEY            16562
                                                  PAR            34154
          VTRUE        3325                       PAR            31170
          VFALSE       3326             
          S=AEXIT      3327                       HEADER         15725
                                                  QSKEL          42216
                                                  GEN            47367
          F.SORD       3327                       FEC             6452
          S=BU         3330                       FEC             6454
                                                  IO             26031     26306     26666
                                                  PAR            31417     32766     34661
                                                  QSKEL          42057
                                                  FAS            52750
          S=BUFIN      3331             
          S=BUF        3332                       FEC             6455
                                                  GEN            47731
          S=CES        3333             
          S=CL         3334                       FEC             6456
                                                  FUN            44234
                                                  REC            50212
          S=CON        3335                       FEC             6457
                                                  DECL           22011
                                                  IO             30273
                                                  PAR            30604     31262     34665
                                                  CONRED         36312     36325     36341     36367     36407
                                                  FUN            43670
                                                  REC            50204
          S$CON        3335             
          S=CP         3336                       HEADER         16412
                                                  GEN            47157     47414
          S=CPL        3337                       HEADER         16404
                                                  GEN            47173
          S=CT         3340                       FEC             6460
                                                  PAR            34555
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    34  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  QCGC           41144
          S=ENTRY      3341                       HEADER         15773     15775     16143     16333     16357
                                                  KEY            17015
                                                  DECL           23676
                                                  TYPE           24216     24426
                                                  QSKEL          42226     42246     42247     42256
                                                  GEN            47031     47373
                                                  FAS            51130     51404
          S=ERR        3342                       QSKEL          42205
          S=EXIT       3343                       HEADER         16365
                                                  KEY            17033
                                                  QSKEL          42212
                                                  GEN            47361
          S=FAR        3344                       FEC             6504
                                                  FUN            43523
          S=FAS        3345                       FEC             6503
                                                  FUN            43714
          S=FID        3346                       FEC             6475
                                                  GEN            46760
          S=FMC        3347                       FEC             6476      6477
                                                  FUN            43276
          S=FVS        3351                       FEC             6505
                                                  FUN            43704
          S=FILES      3352                       HEADER         16136
                                                  QSKEL          42227
                                                  GEN            47716
          S=GPL        3353                       HEADER         16413
                                                  GEN            47153     47162     47410
          S=LA         3354                       FEC             6461
                                                  GEN            50042
                                                  REC            50201
          S=LC         3355                       FEC             6473
                                                  QCGC           41150
          S$LC         3355             
          S=LENP       3356                       FEC             6462
                                                  GEN            50010
                                                  FAS            50746     51346
          S=LMC        3357                       FEC             6501
                                                  FUN            43274
          S=MMC        3360                       FEC             6500
                                                  FUN            43334     43610
          S=IT         3361                       FEC             6471
                                                  QCGC           41145
          S$IT         3361             
          S=INIT       3362                       HEADER         16125
                                                  QSKEL          42230
          S=OT         3363                       FEC             6472
                                                  QCGC           41146
          S$OT         3363             
          S=RD         3364                       FEC             6474
                                                  PAR            34176
                                                  FAS            52263     52447
          S=SA1        3365                       FEC             6463
                                                  GEN            47113     47652
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    35  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FAS            51672
          S=SA0        3366                       FEC             6464
                                                  GEN            47134     47201     47657
          S=SLI        3367                       HEADER         16400
                                                  GEN            47243
          S=SPA        3370                       HEADER         16376
                                                  GEN            47222
          S=ST         3371                       FEC             6465
                                                  QCGC           41143
                                                  FUN            43542     43556     43630     44332
                                                  REG            45100
          S=SUB        3372                       HEADER         16407
                                                  GEN            47476
          S=SUBI       3373                       HEADER         16410
                                                  GEN            47216     47504
          S=SUB0I      3374                       HEADER         16411
                                                  GEN            47237     47513
          S=TRACE      3375                       FEC             6467
                                                  KEY            17726
                                                  QCGC           40767
                                                  QSKEL          42060
                                                  GEN            50014
          S=TA0        3376                       FEC             6466
                                                  QCGC           40771
                                                  QSKEL          42234
                                                  GEN            47126     47170
          S=UPW        3377                       HEADER         16137
                                                  GEN            47642     47710     47721
          S=VALUE      3400                       FEC             6046      6145      6502      6550      7005
                                                  HEADER         16150
                                                  KEY            16675
                                                  DECL           23575     23666     23703     23730     23746     23756
                                                  PAR            31412
                                                  QSKEL          42237     42242
                                                  GEN            47336
                                                  REC            50163
          S$VD         3401             
          S=VD         3401                       FEC             6470
                                                  DECL           21735     22065
                                                  IO             26300     27142
                                                  PAR            32614     34164
                                                  QCGC           41147
                                                  FAS            50752     52641
          ERRTYP       3402                       FEC             6527
                                                  PEM            12470     12472
                                                  INIT00         55250     55256
          ERR=A        3411             
          ERR=M        3412             
          ERR=T        3413             
          ERR=W        3414             
          ERR=F        3415             
          ERR=K        3416                       FEC             6373
          ERR=C        3417             
          E=TOTAL      3420                       FEC             6531      6630
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    36  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PEM            12626
                                                  DATA           20552
                                                  DECL           21717     21757
                                                  STMTF          37057
                                                  LABEL          37464     37534
          PUC          3422                       INIT00         53200
          ENDFTN       3546                       FEC             7131
          CPTIM        3636             
          TIMER        3642                       INIT00         54272     55230
          CAF          3710                       FEC             7130
          ECB          3746                       CONRED         36604
                                                  FUN            44440
          ECS          4000                       CONRED         36533
                                                  FUN            43741
          GCL          4013                       PAR            34743
                                                  FUN            43640     44152     44216
          GMC          4020                       ALLOC          13175
          LJS          4037                       FEC             6210      6223
                                                  KEY            17300     17557
          MTD          4044                       ALLOC          13060
          MTU          4053             
          PIA          4101                       FAS            52704
          WOF          4202                       PEM            12577
                                                  ALLOC          13236
                                                  LEX            15112     15410     15414
          PIK=PS       4240                       CONRED         36077
                                                  QCGC           40672
                                                  FAS            51221
          F.PIK        4240             
          PIK=EQ       4244             
          PIK=LCM      4340             
          PIK=XJP      4342             
          PIK=PI       4352             
          HDRBL        4374                       FEC             6523
          FEL          4400   QCGLINK             PUC             3514
          B=QCGLI      4400                       RPV00           1636
          FEL.RTN      4402                       FEC             5754      5756      5760
          CGL          4403                       PUC             3515
          BCT          4403                       REC            50066
          LPE          4403                       LABEL          40227
          CGE          4403                       REC            50055
          PDC          4403                       PAR            32360
          DER          4403                       LABEL          37325
          PCA          4403                       REC            50067
          MDD          4403                       PAR            32536
                                                  LABEL          37570
          PAT          4403                       FAS            51011     51076
          MAL          4403                       FEC             5751
          REL          4405                       PUC             3516
          REL.RTN      4413                       REC            50143
          PDI          4414                       DATA           20363
          PIS          4417                       FEC             6377
          FORSKEL      4423   FEC                 FMT            24676     25062     25072
          OSTACK       4423                       PAR            31134     31140     32132
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    37  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT00         55175
          REGFILE      4423   QCGC      
          ESTACK       4663   FEC                 KEY            17726     17734
                                                  PAR            31127     31710     32075
                                                  LABEL          37530     37553
                                                  GEN            46362     46363     46746     46747
          HASHTBL      5123             
          B=FEC        5323                       RPV00           1637
          ARGMODE      5323                       KEY            16556     17245     17340     17676
                                                  DECL           21724
                                                  IO             26016     26141     26151     26157     26204     26221     26244
                                                                 26451     26552     26600     27335     27343     27413     27537
                                                                 30417
                                                  PAR            30532     30541     30566     31125     31213     31254     31323
                                                                 31356     31402     31573     31704     31716     31726     31744
                                                                 31756     31766     32003     32007     32021     32046     32101
                                                                 32130     32145     32165     32247     32262     32275     34457
                                                                 34540
                                                  LABEL          37521
          ARGCOMA      5324                       KEY            16555     17245     17340     17676
                                                  DECL           21723
                                                  IO             26147     26346
                                                  PAR            30532     30543     30571     31706     31716     31732     32003
                                                                 32247     32263     32277     32750     33337     34137
                                                  LABEL          37521
          ARGMIS       5325                       PAR            31711     31717     32265     32301     32606     34135
          ASSTAG       5326                       KEY            16451     16501
          CALLTAG      5326                       KEY            16545     16560     16573
                                                  PAR            33310
          CSLTAG       5327                       KEY            17106     17330     17440
                                                  LABEL          37212     37226
          DATFLG       5330                       DATA           20546     20550
                                                  IO             26365     27144     27415     27555     27760     30006     30123
                                                  PAR            31132     32727     33012     33023     33413     34161     34436
                                                                 34542
          DTI          5331                       KEY            17062     17101     17356     17430
                                                  LABEL          37217     37435
          FLOW         5332                       KEY            16634     16713     17325     17361     17507     17570
                                                  LABEL          37457
          HANGER       5333                       KEY            17105     17432     17437
                                                  LABEL          37431
          IFLEVEL      5334                       LEX            14044
                                                  KEY            17266     17366     17547
                                                  LABEL          40267
          INSTF        5335                       PAR            31136     32401     32406     33430     33442     33446
          LDEAD        5336                       PAR            31135
                                                  LABEL          37461
          L.CARD       5337                       LEX            13617     14060     14103     14136
          NOPATH       5340                       KEY            16650     17023     17034     17050     17054     17076     17077
                                                                 17156     17322     17463     17566
                                                  LABEL          37433     37460
          NTRCNT       5341             
          PARMODE      5342                       DECL           21725     21727
                                                  IO             27432
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    38  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            30540     30564     31126
          PARAMC       5343                       DECL           22505
                                                  TYPE           24443
          REFLIN       5344                       KEY            17376
                                                  LABEL          37163     37174     37262     37402     37476     40160
          REFNUM       5345                       KEY            16443     17060
                                                  IO             26430
                                                  LABEL          37411     37470
          REFVAR       5346                       KEY            16442     16520     17061     17413
                                                  DATA           20463     21234
                                                  DECL           21343     21445     22157
                                                  TYPE           24175
                                                  IO             26231     27336
                                                  PAR            31137     31230     31307     31572     31721     32143     32300
                                                  STMTF          37063
          ROUTNAM      5347                       FUN            43245     43316     43335     43463     43524     43611     43764
                                                                 44246
          RTNCNT       5350                       KEY            17033
          STAGE        5351                       ALLOC          13227
                                                  LEX            14013     14040
                                                  HEADER         16001     16300
                                                  KEY            16650
                                                  CDDIR          20050     20074     20114     20132
                                                  DATA           20342
                                                  DECL           22611
                                                  TYPE           24155
                                                  PAR            31445
          TRLINE       5352             
          T=CONB       5353                       DATA           20335     20345
                                                  FMT            25074
          WANFP        5354                       KEY            16713     16721
                                                  STMTF          36745     36751     37001
          SCR2         5355             
          ZLEQUAL      5365                       LEX            13765     15012
                                                  PAR            30525
          ZLCOMMA      5366                       LEX            13766     14753
          ZLPAREN      5367                       LEX            13777     15061
          ZLE          5370                       PAR            30526     32025     32133     32140
          ZLCOLON      5371                       LEX            14762
          F.SYMIL      5372                       INIT00         55234     55245
          CHARMAP      5536                       PEM            12451
                                                  HEADER         15653
                                                  IO             26333
                                                  PAR            32064     32106     32110
                                                  QCGC           40464
          FEC          5641                       QCGLINK         4401
          FEC.RTN      5644                       FERRS          10541     10545     10547     10555     10702     10704     10706
                                                                 10710     10712     10714     10727     10731     10733     10735
                                                                 10737     10741     10746     10750     10752     10754     11070
                                                                 11167     11210     11214     11460     11470     11672     11674
                                                                 11676     11700     11702     11704     11710     11711     11712
                                                                 11724     11730     11734     11750     11752     11764     11770
                                                                 11772     11774     11776     12000     12007     12013     12046
                                                                 12047     12051     12053     12055     12057     12127     12131
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    39  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 12145     12316     12332     12405
                                                  ALLOC          13232
                                                  HEADER         15614     15627     15634     15644     15676     15724
                                                  KEY            16760     17004     17071
                                                  CDDIR          20026     20030     20031     20036     20043     20073     20073
                                                                 20076     20114     20117     20131     20133     20135     20162
                                                                 20163     20173
                                                  DATA           20337
                                                  DECL           21435     21450     21453     22240     22241     22303     22310
                                                                 22342     22443     22532     22534     22535     22541     22602
                                                                 22605
                                                  TYPE           24315     24320     24323     24443     24446
                                                  FMT            25075
                                                  STMTF          36753     37120
                                                  LABEL          37435     37437     37440
          FEC.RIF      5726                       KEY            17361     17365
          FEC.RTF      5731                       KEY            16645
          ASK          5763                       KEY            16462
                                                  TYPE           24166
                                                  LABEL          37442
          ASL          6020                       KEY            16440
                                                  LABEL          37444
          CSB          6131                       KEY            17520
                                                  LABEL          37434
          CUS.RET      6251                       FERRS          11375
                                                  KEY            17112     17113     17117     17467     17475     17506     17510
                                                                 17517     17522
          OIL          6367                       QCGLINK         4415
                                                  KEY            16721     17634
                                                  CDDIR          20007
                                                  DATA           20341
                                                  IO             27370
                                                  LABEL          37703
          BBC          6655                       IO             26714     26771     27176     27301     27576     27633     27643
                                                                 27704     27706     27723     27725     30275
                                                  PAR            34512
                                                  LABEL          37565     40074
          CCT          6670                       KEY            16525
                                                  DECL           21421     21466     22171     22272     22326     22407     22476
          CT1          6677                       KEY            16542
                                                  DECL           21414     23566
                                                  FMT            24673
                                                  IO             26457     27175     27264     27447     27574     27632
                                                  PAR            31313     31421     31473     31503     33756     34022     34065
                                                  CONRED         36537
                                                  LABEL          37264     37365     37511     37552     37672     37765
          STY          6717                       HEADER         15623     16272
                                                  KEY            16670
                                                  DECL           22275     22501
                                                  TYPE           24424     24437     24453
                                                  PAR            31470     31500
                                                  STMTF          37065
          NAT.TYP      6725                       TYPE           24376     24400
          NAT.LEN      6734                       TYPE           24406
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    40  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TLV          6751                       LEX            14011
                                                  HEADER         15743     16036     16051     16346
                                                  KEY            16547     16734
                                                  DATA           21266
                                                  DECL           21355     21406     22255     22421     22453     22562
                                                  TYPE           24251
                                                  PAR            31305
          TRV          6760                       KEY            16463     16757     17120
                                                  DECL           21416     21464     22165     22402     22546
                                                  STMTF          36754
          TRVA         7025             
          TSX          7027                       HEADER         16123     16375     16377     16403
                                                  KEY            17770
                                                  IO             25671     25725     26125     26362     27341     27375
                                                  PAR            33622     33666     34214
          TSY          7041                       HEADER         15723     16126     16131     16363     16370     16372     16374
                                                                 16402     16405
          ERT          7060                       HEADER         16000     16344
                                                  KEY            16541     16716     16752     17020
                                                  CDDIR          20161
                                                  DATA           20464     21236
                                                  DECL           22301     22355     22526
                                                  TYPE           24255
                                                  IO             26501     26664     30143
                                                  PAR            31231     31601
                                                  STMTF          37072
                                                  LABEL          37230     37412
          ERT=ON       7100                       CDDIR          20157
          ERT=OFF      7101                       CDDIR          20160
          ESY          7102                       HEADER         15772     16075     16274
                                                  KEY            16536     16672     16743
                                                  DECL           22277     22323     22503
                                                  TYPE           24246
                                                  IO             26657
                                                  PAR            31472     31502
                                                  STMTF          37067
                                                  LABEL          37172     37364
          INN          7135                       DECL           23440
                                                  LABEL          37475     37547     37656
          NCM          7147                       LEX            15257     15313
                                                  DATA           21222
                                                  DECL           23446
                                                  CONRED         36042     36366
                                                  FUN            44075
          SCS          7207                       HEADER         16321
                                                  DECL           21365     22425     22564
                                                  STMTF          37022
                                                  QCGC           40525
          SCSA         7216                       HEADER         16317
                                                  DECL           21345     22346     22537
                                                  STMTF          37007
                                                  QCGC           40522     40531
          SCT          7217                       HEADER         16312
                                                  KEY            16512     17752
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    41  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DATA           21104
                                                  DECL           22463
                                                  CONRED         36403
                                                  STMTF          36770
                                                  FUN            43664
          SLT          7226                       DECL           22314
                                                  PAR            31435     31476
          SSY          7253                       LEX            14020
                                                  HEADER         15765     16037     16052     16262
                                                  KEY            16523     16657     16737
                                                  DATA           21270
                                                  DECL           22257     22321     22472
                                                  TYPE           24202
                                                  FMT            24671
                                                  IO             26443     26655     27570     27631
                                                  PAR            31306
                                                  STMTF          36722     37064
                                                  LABEL          37152     37245
          B=FERRS      7315   FERRS               RPV00           1640
          E.PX5        7315                       DECL           22531
                                                  PAR            31215
          E.SF00       7315                       STMTF          37003
          E.GE         7315             
          E.DM16       7316                       DECL           21463
          E.EX3        7316                       DECL           22250
          E.GE2        7316             
          E.C$09       7317                       CDDIR          20105     20124     20266
          E.GE3        7317             
          E.IOD4       7317                       IO             30250
          E.FS18       7320                       FMT            25055
          E.PX8        7320                       DECL           22532
          E.GE6        7320             
          E.ANS3       7321                       KEY            17026
          E.AG08       7322                       HEADER         16352
          E.DO05       7323                       LABEL          37444
          E.AS4        7323                       KEY            16440
          E.CL2        7324                       KEY            16523
          E.CM         7325                       DECL           21360
          E.CM1        7326                       DECL           21351
          E.CM2        7327                       DECL           21373     22435     22574
          E.CM3        7330                       DECL           21441     22441
          E.CM5        7331                       DECL           21353
          E.CM6        7332                       DECL           21436
          E.CT         7333                       KEY            16624
          E.C$00       7334                       CDDIR          20020     20240
          E.C$01       7335                       CDDIR          20102     20121
          E.C$02       7336                       CDDIR          20214
          E.C$03       7337                       CDDIR          20111     20130
          E.C$04       7340                       CDDIR          20113
          E.C$06       7341                       CDDIR          20022     20061
          E.C$07       7342                       CDDIR          20013     20232
          E.C$08       7343                       CDDIR          20012     20052     20056     20227
          E.C$11       7344                       CDDIR          20060
          E.DACV       7345                       DATA           20365
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    42  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DAVC       7346                       DATA           20364
          E.DCE        7347                       DATA           20533     21261     21262     21263
          E.DIL        7350                       DATA           20433     20503
          E.DIL1       7351                       DATA           20450     21052     21054
          E.DIL2       7352                       DATA           20477
          E.DIL3       7353                       DATA           20534
          E.DIL4       7354                       DATA           20461
          E.DM10       7355                       DECL           21457
          E.DO08       7356                       LABEL          40116
          E.DO14       7357                       LABEL          37447
          E.EN1        7360                       KEY            16647
          E.EN2        7361                       KEY            16653
          E.EN3        7362                       KEY            16654
          E.EN4        7363                       KEY            16655
          E.EQ         7364                       DECL           22232
          E.EQ1        7365                       DECL           22163
          E.EQ2        7366                       DECL           22237
          E.EQ3        7367                       DECL           22221
          E.EQ4        7370                       DECL           22220
          E.FD2        7371                       HEADER         16040
          E.FD3        7372                       HEADER         16053
          E.FD4        7373                       HEADER         16140
          E.FD5        7374                       HEADER         16140
          E.FD6        7375                       HEADER         16140
          E.FD7        7376                       HEADER         16141
          E.FD8        7377                       HEADER         16141
          E.FD9        7400                       HEADER         16141
          E.GO         7401                       KEY            17067     17150     17175
          E.GO1        7402                       KEY            17057
          E.GO2        7403                       KEY            17110
          E.IF00       7404                       KEY            17343
          E.IF03       7405                       KEY            17422     17425
          E.IF06       7406                       KEY            17355
          E.IF09       7407                       KEY            17346
          E.IF10       7410                       KEY            17430
          E.IF11       7411                       KEY            17347
          E.IF12       7412                       KEY            17242
          E.IF13       7413                       KEY            17267     17547     17607
          E.IN         7414                       DECL           22312
          E.IN4        7415                       DECL           22342
          E.IO01       7416                       IO             25650     25710     26613
          E.IO07       7417                       IO             26431     26442
          E.IO08       7420                       IO             26063     26071
          E.IO10       7421                       IO             26516
          E.IO11       7422                       IO             26522
          E.IO12       7423                       IO             26524
          E.IO13       7424                       IO             26066
          E.IO15       7425                       IO             26543
          E.IO16       7426                       IO             25655     25661     25721     25761     26517     26606
          E.IO17       7427                       IO             27075     27076     27101
          E.IO19       7430                       IO             25650     25747
          E.IO20       7431                       IO             26615
          E.IO21       7432                       IO             26616
          E.IO25       7433                       IO             26106
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    43  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IO28       7434                       IO             26104
          E.IO29       7435                       IO             26105
          E.IOB0       7436                       IO             26714     26771
          E.IOB1       7437                       IO             26121
          E.IOB2       7440                       IO             26702     26706
          E.IOB3       7441                       IO             26122     26146
          E.IOB4       7442                       IO             26136     26154
          E.IOB5       7443                       IO             26145     26162
          E.IOB6       7444                       IO             26762
          E.IOB8       7445                       IO             26705
          E.IOB9       7446                       IO             26742     26747     26753     26755
          E.IOD1       7447                       IO             30221
          E.IOD2       7450                       IO             30233
          E.IOD3       7451                       IO             30237
          E.IOL7       7452             
          E.IOL8       7453             
          E.IOF        7454                       IO             27015     27016     27017     27021
          E.IOF2       7455                       IO             27024
          E.IOS1       7456                       IO             26201
          E.IOS2       7457                       IO             26210
          E.IOS3       7460                       IO             26213
          E.IOS4       7461                       IO             26215
          E.IOS5       7462                       IO             26224
          E.IOS6       7463                       IO             26201     26210     26215
          E.IOS8       7464                       IO             26213
          E.IOS9       7465                       IO             26775     26777
          E.IOS10      7466                       IO             27156
          E.LV1        7467                       DECL           22347     22350     22352     22360     22364
          E.LV3        7470                       DECL           22371     22400     22417
          E.LV4        7471                       DECL           22406
          E.LV5        7472                       DECL           22444
          E.LV7        7473                       DECL           22427
          E.LV8        7474                       DECL           22424
          E.FM         7475                       FEC             5663      5770
                                                  KEY            17241     17354
          E.MA         7476                       FEC             5707
          E.MD         7477                       FEC             5710
          E.ME         7500                       LEX            13416
          E.MH         7501                       FEC             5711
          E.MI         7502                       FEC             5712
          E.MR1        7503                       HEADER         16031     16104     16237     16260     16347
          E.MR2        7504                       KEY            16731
                                                  DECL           21542
          E.MR3        7505                       KEY            16753
                                                  DECL           22161
          E.NP1        7506                       LABEL          37461
          E.OV1        7507                       HEADER         15651
          E.OV3        7510                       HEADER         15675
                                                  KEY            16625
          E.NL         7511                       KEY            16730
          E.NL1        7512                       KEY            16736
          E.NL2        7513                       KEY            16732
          E.NL3        7514                       KEY            16740
          E.NL4        7515                       KEY            16765
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    44  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.NL5        7516                       KEY            16756
          E.PX3        7517                       DECL           22452
          E.PX4        7520                       DECL           22456
          E.SA1        7521                       DECL           22545     22560
          E.SA3        7522                       DECL           22600
          E.SA4        7523                       DECL           22602
          E.SF01       7524                       STMTF          37005
          E.SF02       7525                       STMTF          37057
          E.SF03       7526                       STMTF          37023
          E.SF08       7527                       STMTF          36724     36727     36730     36732
          E.SL18       7530                       LABEL          37234
          E.TY5        7531                       TYPE           24504     24507
          E.TYI        7532                       TYPE           24524     24524
          E.TYI1       7533                       TYPE           24334
          E.TYI2       7534                       TYPE           24343     24354
          E.TYI6       7535                       TYPE           24414
          E.TYI7       7536                       TYPE           24417
          E.VA09       7537                       FEC             6763
                                                  DECL           22252
                                                  TYPE           24150     24200     24201
          E.VA13       7540                       PAR            31425
          OSE          7541                       PAR            34145     34401     34421     34423
          DICT         7562                       PEM            12505
          FILL.        7563                       FEC             5717      6062      6072      6123      6166      6204      6211
                                                                  6224      6232      6236      6304      6755      6763      7107
                                                  PEM            12433     12464
                                                  LEX            13574     15202     15233
                                                  HEADER         16035     16252
                                                  KEY            16457     16477     16522     16656     16755     17126     17301
                                                                 17344     17560
                                                  CDDIR          20245     20250
                                                  DATA           20457
                                                  DECL           21363     21410     21716     21731     22165     22252     22313
                                                                 22401     22423     22472     22563     22644     22736     22756
                                                                 23021     23057     23100     23200     23277     23621     24050
                                                                 24074
                                                  TYPE           24177     24342     24345     24353     24355     24452
                                                  FMT            25015     25076     25116     25164     25213     25232
                                                  IO             26317     26335     27077     27222     27630     30130
                                                  PAR            31302     32111     32630     32723     33421     33460     33712
                                                                 33752     34002     34031     34627
                                                  CONRED         36440
                                                  STMTF          36740
                                                  LABEL          37132     37224
          CLASS        7563                       FEC             6100      6672      6672      6775      7001      7012
                                                  KEY            16475     17124
          FILL.2       7564                       FEC             5772      6101      6673      7014
                                                  HEADER         16047
                                                  KEY            16476     17125     17333
                                                  CDDIR          20017     20215     20240     20253
                                                  DECL           21540
                                                  IO             26317
                                                  PAR            32065     32700
                                                  STMTF          36756     37024     37054
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    45  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LABEL          37236
          FILL.3       7565                       KEY            17407
                                                  TYPE           24346     24356
                                                  IO             27046     27055     27066     27110
                                                  PAR            31145     32737     32764     34615     34663
                                                  STMTF          36721
                                                  LABEL          37625
          DO.DPC       7624                       PAR            32677
          MOD.DPC      7630                       FEC             6165
                                                  KEY            17406
                                                  IO             27045     27054     27065     27107
                                                  PAR            32735     32763     34614     34614
          ERL=XPR      7637                       PAR            34644
          ERL=CON      7640                       PAR            31144     34643
          E.EX2       10543                       DECL           22304
          E.DM15      10543                       DECL           21544
          E.GE1       10543             
          E.TY        10543                       DECL           21451
                                                  TYPE           24317
          E.SPR4      10551                       KEY            17037     17737
          E.GO9       10551                       KEY            17151     17703
          E.IO37      10551                       IO             25666
          E.AG02      10551                       HEADER         16354
          E.AS1       10551                       KEY            16472
          E.CT1       10551                       KEY            16617
          E.ME1       10551                       KEY            16632
          E.GE4       10551             
          E.C$10      10551                       CDDIR          20217     20267
          E.IF08      10551                       KEY            17254     17265
          E.FD11      10551                       HEADER         16111
          E.GE5       10553             
          E.AS7       10553                       KEY            16500     17127
          E.VA00      10553                       FEC             7013
          E.ANS       10557                       KEY            16724
                                                  DECL           22344
                                                  TYPE           24136
                                                  IO             25736     26113     26175
          E.ANS1      10561                       FEC             5757
          E.ANS2      10563                       FEC             7107
                                                  DECL           21364
          E.ANS4      10567                       PAR            34636
          E.ANS5      10571                       PAR            33363     33366
          E.ANS6      10573                       CONRED         36554
          E.AG00      10575                       HEADER         16160
          E.AG01      10577                       HEADER         16247
          E.AG03      10601                       HEADER         16313
          E.AG04      10603                       HEADER         16254
          E.CL1       10605                       KEY            16571
          E.AG07      10605                       HEADER         16024     16241
          E.AG11      10611                       HEADER         16257
          E.AG12      10613                       HEADER         16267
          E.AS2       10615                       KEY            16460
          E.AS3       10616                       KEY            16471
          E.AS5       10621                       KEY            16453
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    46  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.AS6       10623                       FEC             6205
          E.AT01      10626                       DATA           21176
                                                  PAR            35120     35134     35141
          E.AT02      10630                       PAR            32113
          E.AT03      10632                       DATA           21061
                                                  PAR            31256
          E.AT04      10634                       PAR            31570
          E.AT05      10636                       PAR            32253
          E.AT06      10641                       PAR            32023
          E.AT07      10643                       PAR            35123
          E.AT08      10644                       DATA           21054
                                                  PAR            31251
          E.AT09      10645                       PAR            30527
          E.AT10      10647                       PAR            31150
          E.AT11      10651                       PAR            34514
          E.AT13      10653                       DATA           21231
                                                  PAR            35104
          E.AT14      10655                       PAR            35110
          E.AT15      10657                       PAR            32526
          E.AT16      10661                       DECL           23066     24004
                                                  PAR            31642     32640
                                                  CONRED         36532
          E.AT17      10663                       PAR            32655
          E.AT18      10664                       PAR            31245
          E.AT19      10666                       PAR            34616
          E.AT20      10670                       PAR            31237
          E.AT21      10672                       PAR            32063
          E.CL3       10676                       KEY            16530
          E.CL4       10700                       KEY            16532
          E.CM8       10716                       FEC             6101
          E.CM9       10720                       DECL           22651
          E.CM10      10722                       DECL           22654
          E.CM11      10724                       DECL           22736
          E.CM12      10726                       DECL           23621
          E.C$05      10743                       CDDIR          20253
          E.C$15      10756                       FEC             6237
          E.DABC      10760                       CONRED         36551
          E.DABL      10762                       CONRED         36557
          E.DAR       10767                       DATA           20504
          E.DAUC      10771                       CONRED         36545
          E.DSE       11006                       DATA           20414     20426
                                                  CONRED         36434     36507
          E.DVL1      11010                       DATA           20556
                                                  PAR            31145
                                                  CONRED         36542
          E.DVR1      11012                       CONRED         36502
          E.DVR2      11014                       CONRED         36611
          E.DVR3      11016                       CONRED         36670
          E.DVR4      11020                       CONRED         36470
          E.DVR5      11022                       PAR            33414
          E.DC        11024                       CONRED         35463     35556
          E.DC1       11025                       PAR            31174
                                                  CONRED         35553
          E.DC3       11027                       CONRED         35421     35423
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    47  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DC4       11031                       PAR            32337
          E.DC6       11033                       CONRED         35436
          E.DC7       11035                       DATA           20516
          E.DC8       11036                       CONRED         35410     35443     35454     35536
          E.DC9       11040                       CONRED         35541
          E.DC10      11042                       DATA           21150
          E.DM00      11044                       DECL           21502     21546
          E.DM01      11046                       PAR            31164     31204     31223     31272
          E.DM02      11050                       DECL           21572
          E.DM03      11052                       FEC             6301
          E.DM04      11054                       FEC             6302
          E.DM05      11056                       DECL           21477
          E.DM06      11060                       DECL           21565     21635
          E.DM07      11062                       DECL           21742
          E.DM08      11064                       DECL           21646
          E.DM09      11066                       DECL           21473
          E.DM11      11072                       PAR            34450
          E.DM12      11075                       DECL           24075
          E.DM13      11077                       DECL           21633
          E.DM14      11101                       PAR            31536
          E.DM17      11103                       PAR            31533
          E.DM18      11106                       PAR            31535
          E.DM19      11111                       DECL           24042
          E.DM20      11113                       DECL           24044
          E.DM21      11115                       PAR            31540
          E.DO00      11117                       PAR            32663     32706
          E.DO01      11121                       LABEL          37574
          E.DO02      11123                       PAR            33010
          E.DO03      11125                       LABEL          37625
          E.DO04      11127                       PAR            32722
          E.DO06      11131                       LABEL          37352
          E.DO07      11133                       LABEL          40214
          E.DO09      11137                       FEC             6224
          E.DO10      11141                       LABEL          37452
          E.DO12      11143                       LABEL          37362     37735
          E.DO13      11145                       LABEL          37742
          E.DO15      11151                       PAR            32721     32736
          E.DO16      11153                       PAR            32764
          E.DO17      11155                       PAR            33016
          E.DO18      11157                       LABEL          37575
          E.DO19      11161                       LABEL          37323     40207
          E.DO20      11163                       LABEL          40211
          E.EN        11165                       KEY            16664
          E.EN5       11177                       KEY            16662
          E.EN6       11202                       KEY            17621
          E.EN7       11204                       KEY            17626
          E.EN8       11206                       KEY            17627
          E.EQ6       11220                       DECL           22235
          E.EQ7       11222                       DECL           23152
          E.EQ8       11225                       DECL           23153
          E.EQ10      11227                       DECL           23104
          E.EQ11      11231                       DECL           23257     23266
          E.EQ12      11233                       DECL           23262     23270
          E.EQ13      11235                       DECL           23146
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    48  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.EQ14      11237                       DECL           23162
          E.EQ15      11241                       DECL           23166
          E.EQ16      11244                       DECL           23273     23300
          E.EQ17      11246                       DECL           23112
          E.EX1       11250                       DECL           22261
          E.EX4       11252                       DECL           22265
          E.FD        11254                       HEADER         16027
          E.FD1       11256                       HEADER         16032
          E.FD10      11300                       HEADER         16106
          E.FD12      11302                       HEADER         16113
          E.FS00      11304                       FMT            24657
          E.FS01      11306                       FMT            25354
          E.FS02      11311                       FMT            25411
          E.FS03      11313                       FMT            24766
          E.FS04      11315                       FMT            25173     25223     25245
          E.FS05      11317                       FMT            25312
          E.FS06      11321                       FMT            25144
          E.FS07      11323                       FMT            25203     25251
          E.FS08      11325                       FMT            25015     25150
          E.FS09      11327                       FMT            25423
          E.FS10      11332                       FMT            25370
          E.FS11      11334                       FMT            25437
          E.FS12      11336                       FMT            25435
          E.FS13      11340                       FMT            25350     25372
          E.FS14      11343                       FMT            25076     25254
          E.FS15      11344                       FMT            25305     25330
          E.FS16      11346                       FMT            24734
          E.FS17      11351                       FMT            25322
          E.FS19      11354                       FMT            25052
          E.FS20      11355                       FMT            24714
          E.FS21      11356                       FMT            24740
          E.FS22      11360                       FMT            24773     25402
          E.FS23      11362                       FMT            25360
          E.FS24      11364                       FMT            25363
          E.FS25      11367                       FMT            24745     24756     25010     25020     25133     25200     25344
          E.FS26      11370                       FMT            24703
          E.GO3       11377                       KEY            17136
          E.GO4       11401                       KEY            17132
          E.GO5       11403                       KEY            16622     17111
          E.GO6       11405                       KEY            17706
          E.GO7       11407                       KEY            17073
          E.GO8       11410                       KEY            17146     17213
          E.HC1       11412                       LEX            15265     15323
          E.HC2       11414                       LEX            13603
          E.HC3       11416                       LEX            13575
          E.IF01      11421                       KEY            17256
          E.IF02      11423                       KEY            17360
          E.IF04      11427                       KEY            17471
          E.IF05      11431                       KEY            17465
          E.IF07      11435                       KEY            17407
          E.IF14      11450                       KEY            17251
          E.IF15      11452                       KEY            17301     17560
          E.IF16      11454                       LABEL          37725
          E.IF17      11456                       FEC             6232
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    49  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IN1       11462                       DECL           22316
          E.IN2       11464                       DECL           22330
          E.IN3       11466                       DECL           22336
          E.INF       11472                       PAR            33613
          E.INF1      11474                       PAR            33574
          E.INF2      11476                       PAR            33610
          E.INF3      11500                       PAR            33540
          E.IO00      11502                       IO             26032     26255
          E.IO02      11505                       IO             27331
          E.IO03      11510                       IO             26641     26645
          E.IO04      11512                       IO             26235
          E.IO05      11514                       IO             27046     27055     27067     27110
          E.IO06      11516                       IO             25713
          E.IO09      11524                       IO             26064
          E.IO14      11536                       IO             27437
          E.IO18      11545                       IO             27042     27062     27104
          E.IO22      11555                       IO             26540
          E.IO23      11557                       IO             26264
          E.IO24      11561                       IO             26275
          E.IO26      11565                       IO             26263     26425
          E.IO30      11573                       IO             26257
          E.IO31      11575                       IO             26674
          E.IO32      11577                       IO             26677
          E.IO33      11601                       IO             26260     26472
          E.IO34      11603                       IO             26055
          E.IO35      11605                       IO             26056
          E.IO36      11607                       IO             27012
          E.IOB7      11630                       IO             26711     26766
          E.IOL1      11645                       IO             27352
          E.IOL2      11647                       IO             27306
          E.IOL5      11651                       IO             27363
          E.IOL6      11653                       IO             27136
          E.IOF1      11662                       IO             27021
          E.ION       11666                       IO             27402
          E.ION1      11670                       IO             27372
          E.IOS7      11706                       IO             27154
          E.LP1       11714                       PAR            32160     32265
                                                  STMTF          37044
          E.LP2       11717                       PAR            32257
                                                  STMTF          37043
          E.LP3       11722                       PAR            31710     32076
          E.LV2       11726                       DECL           22372
          E.LV6       11736                       FEC             6127
          E.LV9       11744                       DECL           22760
          E.LV11      11746                       PAR            34543
          E.MB        11754                       FEC             5666
          E.MCA       11756                       LEX            13504
          E.INI       11760                       LEX            13475
          E.TLBL      11762                       LEX            13477
          E.MDO       11765                       FEC             5724
                                                  KEY            17064     17433
          E.MS        12001                       FEC             6211
          E.NP        12003                       FEC             6267
          E.OV2       12011                       HEADER         15642
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    50  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.OV4       12015                       HEADER         15731
          E.PN1       12017                       HEADER         15745
          E.PN3       12021                       HEADER         15700
          E.SEQ       12023                       FEC             5654
          E.STO       12025                       FEC             7127
          E.MO1       12027                       REC            50350
          E.MO2       12030                       ALLOC          13227
          E.MO8       12032                       REC            50347
          E.MDE1      12034                       HEADER         15646
          E.MDE2      12035                       DATA           20452
                                                  TYPE           24137
                                                  PAR            31175     31217     31250     31507
          E.MDE3      12037                       IO             26114
          E.MDE4      12041                       IO             26176
          E.MDE5      12043                       PAR            31520
          E.MDE6      12045                       HEADER         15635
          E.PX1       12061                       PAR            30553
          E.PX2       12063                       DECL           22446
          E.PX6       12071                       PAR            30600     30606
          E.PX7       12073                       PAR            33040
          E.SA        12075                       DECL           23010
          E.SA2       12101                       DECL           22554     22567
          E.SA5       12107                       DECL           22550
          E.SA6       12111                       DECL           23022
          E.SB2       12113                       PAR            34376
          E.SB3       12115                       PAR            34401
          E.SB4       12117                       PAR            34413
          E.SB5       12121                       PAR            34416
          E.SB6       12123                       PAR            34420
          E.SB7       12125                       PAR            34144
          E.SF04      12135                       STMTF          37055
          E.SF05      12137                       STMTF          36771
          E.SF06      12141                       STMTF          36747
          E.SF07      12143                       STMTF          36733
          E.SF09      12147                       PAR            33424
          E.SF10      12151                       PAR            31660
          E.SF11      12153                       STMTF          36760
          E.SF12      12155                       STMTF          37015
          E.SF13      12160                       PAR            31622
          E.SF14      12163                       STMTF          36767
          E.SF15      12165                       PAR            33466
          E.SL00      12170                       LABEL          37160
          E.SL01      12172                       LABEL          37153
          E.SL02      12174                       LABEL          37300
          E.SL03      12176                       LABEL          37306
          E.SL04      12200                       LABEL          37303
          E.SL05      12202                       LABEL          37312
          E.SL06      12204                       LABEL          37311     37335
          E.SL07      12206                       LABEL          37332
          E.SL08      12210                       LABEL          37340     37342
          E.SL09      12212                       LABEL          37320     40032
          E.SL10      12215                       LABEL          37201
          E.SL11      12217                       LABEL          37266
          E.SL12      12221                       LABEL          37203
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    51  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.SL13      12223                       LABEL          37210
          E.SL14      12225                       LABEL          37145
          E.SL15      12227                       LABEL          37141
          E.SL16      12231                       LABEL          37161
          E.SL17      12233                       LABEL          37302
          E.SL19      12237                       LABEL          37144
          E.SL20      12240                       LABEL          37316
          E.ST        12243                       DECL           24007
          E.ST1       12245                       DECL           23061
          E.SPR1      12247                       KEY            17743
          E.SPR2      12251                       KEY            17750
          E.SU11      12253                       PAR            33322
          E.SPR5      12253                       KEY            17043
          E.SU01      12255                       PAR            35242
          E.SU02      12257                       PAR            33746
          E.SU03      12261                       PAR            33726     34110
          E.SU04      12264                       FEC             7244
          E.SU05      12266                       PAR            33762
          E.SU06      12270                       FEC             6166
          E.SU07      12273                       PAR            34103
          E.SU08      12275                       PAR            33742     33747
          E.SU09      12277                       PAR            33764
          E.SU10      12301                       PAR            33314
          E.TY0       12303                       TYPE           24221
          E.TY1       12305                       TYPE           24211     24243     24303     24305
          E.TY2       12307                       TYPE           24232
                                                  PAR            31444
          E.TY3       12311                       TYPE           24470     24473     24507
          E.TY4       12314                       TYPE           24476     24512
                                                  PAR            30601
          E.TY6       12320                       TYPE           24474     24510
          E.TY7       12321                       FEC             6062
          E.TY8       12323                       TYPE           24244     24304     24455
          E.TY9       12326                       TYPE           24226
                                                  PAR            31441
          E.TY10      12330                       TYPE           24206     24306
          E.TYI3      12340                       TYPE           24346     24357
          E.TYI4      12342                       TYPE           24364
          E.TYI5      12344                       TYPE           24361
          E.TYI8      12352                       TYPE           24374
          E.TYI9      12354                       TYPE           24337
          E.VA01      12356                       PAR            31420
          E.VA02      12360                       FEC             6674
          E.VA03      12362                       PAR            31344
          E.VA04      12364                       PAR            31356     31404     31457
          E.VA05      12366                       PAR            31364
          E.VA06      12370                       PAR            31367
          E.VA07      12372                       PAR            31407
          E.VA08      12374                       PAR            31335
          E.VA10      12377                       FEC             6755
          E.VA11      12401                       PAR            32144     32545
          E.VA12      12403                       PAR            31674
          E.XP1       12407                       PAR            33113
          E.XP3       12411                       PAR            33057
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    52  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.XP4       12413                       PAR            33134
          E.XP5       12415                       PAR            33241
          E.XP6       12417                       PAR            33114
          E.XP7       12421                       PAR            33056
          B=PEM       12423   PEM                 RPV00           1641
          ANSI=       12424                       FEC             5757      6102      7110      7244
                                                  HEADER         16027
                                                  KEY            17360     17707
                                                  DATA           20504     21055     21123     21126
                                                  DECL           21364     22344
                                                  TYPE           24136
                                                  FMT            25016     25150
                                                  IO             25736     26113     26175     26540     27022     27353     27372
                                                  PAR            30530     31174     31251     31623     32063     32655     33364
                                                                 33367     34637     35124
                                                  CONRED         35553     36554
                                                  STMTF          36761
                                                  LABEL          37323     40207
          ANSI.SW     12425                       INIT00         55253
          MDERR=      12427                       HEADER         15635     15646
                                                  DATA           20453
                                                  TYPE           24137
                                                  IO             26114     26176
                                                  PAR            31175     31217     31250     31510     31520
          MDER.SW     12430                       INIT00         55260
          PEMS        12431                       FERRS           7334      7337      7346      7354      7355      7356      7371
                                                                  7372      7374      7375      7376      7400      7421      7422
                                                                  7423      7427      7460      7471      7473      7474      7477
                                                                  7514      7524      7525      7526      7527      7540      7556
                                                                 10553     10563     10601     10613     10615     10616     10623
                                                                 10630     10634     10655     10661     10664     10666     10670
                                                                 10676     10700     10716     10720     10722     10724     10726
                                                                 10743     10756     10760     10762     10771     11012     11014
                                                                 11016     11046     11050     11052     11054     11056     11060
                                                                 11062     11064     11066     11072     11075     11101     11103
                                                                 11106     11111     11113     11115     11125     11127     11131
                                                                 11137     11165     11177     11202     11204     11206     11222
                                                                 11225     11227     11231     11233     11235     11237     11241
                                                                 11244     11246     11250     11252     11315     11323     11325
                                                                 11343     11416     11435     11452     11454     11456     11462
                                                                 11464     11466     11514     11545     11557     11653     11736
                                                                 11744     11746     12001     12101     12107     12111     12113
                                                                 12115     12117     12121     12123     12125     12135     12137
                                                                 12143     12147     12151     12153     12155     12163     12165
                                                                 12170     12172     12174     12176     12200     12202     12204
                                                                 12206     12210     12212     12217     12223     12225     12227
                                                                 12233     12240     12243     12245     12257     12261     12264
                                                                 12266     12270     12273     12275     12277     12303     12305
                                                                 12307     12321     12323     12326     12330     12340     12342
                                                                 12344     12356     12360     12362     12364     12366     12370
                                                                 12372     12374     12377     12403
          PEMV        12446                       FERRS           7315      7316      7317      7320      7322      7323      7330
                                                                  7336      7341      7342      7343      7357      7365      7366
                                                                  7367      7370      7405      7412      7414      7415      7417
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    53  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                  7424      7426      7430      7441      7442      7443      7456
                                                                  7457      7461      7462      7464      7504      7513      7516
                                                                  7517      7520      7521      7522      7523      7531      7533
                                                                  7534      7535      7536      7537     10543     10551     10603
                                                                 10605     10611     10647     11027     11141     11256     11300
                                                                 11306     11317     11332     11340     11344     11346     11351
                                                                 11356     11360     11362     11364     11367     11377     11450
                                                                 11516     11524     11714     11717     11722     12011     12061
                                                                 12063     12071     12141     12301
          PEM         12465                       FERRS           7321      7324      7325      7326      7327      7331      7332
                                                                  7333      7335      7340      7344      7345      7347      7350
                                                                  7351      7352      7353      7360      7361      7362      7363
                                                                  7364      7373      7377      7401      7402      7403      7404
                                                                  7406      7407      7410      7411      7413      7416      7420
                                                                  7425      7431      7432      7433      7434      7435      7436
                                                                  7437      7440      7444      7445      7446      7447      7450
                                                                  7451      7452      7453      7454      7455      7463      7465
                                                                  7466      7467      7470      7472      7475      7476      7500
                                                                  7501      7502      7503      7505      7506      7507      7510
                                                                  7511      7512      7515      7530      7532     10557     10561
                                                                 10567     10571     10573     10575     10577     10621     10626
                                                                 10632     10636     10641     10643     10644     10645     10651
                                                                 10653     10657     10663     10672     10767     11006     11010
                                                                 11020     11022     11024     11025     11031     11033     11035
                                                                 11036     11040     11042     11044     11077     11117     11121
                                                                 11123     11133     11143     11145     11151     11153     11155
                                                                 11157     11161     11163     11220     11254     11302     11304
                                                                 11311     11313     11321     11327     11334     11336     11354
                                                                 11355     11370     11401     11403     11405     11407     11410
                                                                 11412     11414     11421     11423     11427     11431     11472
                                                                 11474     11476     11500     11502     11505     11510     11512
                                                                 11536     11555     11561     11565     11573     11575     11577
                                                                 11601     11603     11605     11607     11630     11645     11647
                                                                 11651     11662     11666     11670     11706     11726     11754
                                                                 11756     11760     11762     11765     12003     12015     12017
                                                                 12021     12023     12025     12027     12030     12032     12034
                                                                 12035     12037     12041     12043     12045     12073     12075
                                                                 12160     12215     12221     12231     12237     12247     12251
                                                                 12253     12255     12311     12314     12320     12352     12354
                                                                 12401     12407     12411     12413     12415     12417     12421
          PDM         12616                       FEC             5655      5667      5725      6063      6127      6167      6205
                                                                  6212      6225      6233      6237      6270      6304      6675
                                                                  6756      7014      7127
                                                  FERRS           7545      7546
                                                  ALLOC          13230
                                                  LEX            13475     13500     13505     13575     13603     15266     15323
                                                  HEADER         15643     15700     15732     15745     16024     16032     16106
                                                                 16111     16114     16161     16241     16247     16260     16270
                                                                 16314     16354
                                                  KEY            16454     16460     16471     16473     16500     16530     16532
                                                                 16572     16620     16622     16632     16707     16724     17040
                                                                 17043     17065     17074     17111     17127     17132     17137
                                                                 17146     17152     17213     17251     17254     17257     17265
                                                                 17302     17410     17434     17466     17472     17561     17703
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    54  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 17711     17737     17743     17750
                                                  CDDIR          20217     20254     20270
                                                  DATA           20333     20414     20426     21061     21177     21231
                                                  DECL           21452     21454     21473     22235     22262     22265     22305
                                                                 22316     22331     22337     22373     22447     22551     22555
                                                                 22567     22656     22737     22761     23011     23022     23062
                                                                 23067     23117     23157     23163     23167     23260     23262
                                                                 23266     23270     23273     23300     23622     24005     24007
                                                                 24051     24075
                                                  TYPE           24227     24233     24235     24244     24307     24317     24337
                                                                 24347     24357     24362     24364     24374     24455     24514
                                                  FMT            24657     24703     24715     24735     24740     24746     24757
                                                                 24767     24773     25010     25021     25052     25077     25133
                                                                 25144     25173     25200     25203     25223     25245     25251
                                                                 25254     25306     25312     25322     25330     25345     25351
                                                                 25355     25360     25364     25370     25373     25403     25411
                                                                 25424     25441
                                                  IO             25667     25713     26032     26057     26065     26306     26425
                                                                 26472     26666     27013     27047     27056     27067     27111
                                                                 27137     27256     27331     27363     27402     27437
                                                  PAR            30553     30612     31146     31150     31240     31246     31257
                                                                 31335     31344     31377     31405     31407     31420     31441
                                                                 31444     31570     31617     31643     31660     31674     32023
                                                                 32114     32144     32253     32260     32337     32526     32534
                                                                 32545     32641     32657     32664     32706     32740     32765
                                                                 33010     33016     33041     33060     33062     33115     33135
                                                                 33241     33314     33323     33414     33424     33467     33541
                                                                 33574     33610     33614     33726     33752     33772     34514
                                                                 34543     34630     35105     35121     35142     35242
                                                  CONRED         35410     35437     35443     35455     35464     35536     35541
                                                                 35556     36441     36542
                                                  STMTF          36733     36750     36767     36772     37015     37045     37055
                                                  LABEL          37142     37214     37316     37370     37452     37576     37626
                                                                 37726     37735     37743     40033     40212     40214
                                                  REC            50347     50351
          ADW         12753   ALLOC               HEADER         15774     16152     16316     16322
                                                  KEY            16514     16607     16703     16772     17000     17400     17754
                                                                 17766
                                                  CDDIR          20072
                                                  DATA           20406     20510     20524     20754     20767     21106
                                                  DECL           21425     22142     22176     22204     22206     22216     22465
                                                                 22636     22666     23045     23727     23732     23743
                                                  IO             27304     30222
                                                  PAR            31705     31707     31713     33644     33650
                                                  CONRED         36405     36656
                                                  STMTF          36737     36741     36774     36776
                                                  LABEL          40067     40163     40250
                                                  QCGC           40440     40443     40532     40612     40636     40637     40640
                                                  FUN            43233     43303     43332     43370     43420     43422     43502
                                                                 43576     43654     43666     44043     44241     44274
                                                  GEN            50047
                                                  FAS            51546     51553     51554     51644     51656     51661     53010
                                                                 53015     53123
          B=ALLOC     12753                       RPV00           1642
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    55  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ADW.ALC     12763             
          ADWT        12765                       FEC             7150      7162      7167      7174      7176      7177      7202
                                                                  7204      7205
                                                  DECL           21653     21700     21702     21706     21710     21712
          ALC         12771                       FEC             6253      6362      6444      6506      6564      7067      7117
                                                                  7176
                                                  LEX            13507     14063
                                                  HEADER         15667     16222
                                                  KEY            16611     17370
                                                  DATA           21002     21011     21212     21253
                                                  DECL           21375     21701     22001     22432     22573     23304     23306
                                                                 23370     23511     23713
                                                  FMT            25071
                                                  IO             25646     25706     25771     26132     26370     27763
                                                  PAR            33356     34707     34724
                                                  CONRED         36013
                                                  STMTF          37105
                                                  LABEL          37504     40125     40155     40243     40306     40316
                                                  QCGC           40427     40626
                                                  FUN            44265
                                                  GEN            47072
                                                  REC            50241     50262     50405
                                                  FAS            50733     50735     50737     50744     51016     51277     51647
                                                                 51710     51723     51745     51765     52240     52327     52506
          ALC.REG     13130                       FEC             6637
                                                  PAR            33433     33452
                                                  QCGC           40406     40411
                                                  GEN            47076     47103
          ALC.00      13132                       FEC             6636
                                                  PAR            33451
                                                  QCGC           40410
                                                  GEN            47075
          ALC.STF     13133                       PAR            33432
          ALC.CAI     13134                       QCGC           40405
                                                  GEN            47102
          B=LEX       13255   LEX                 RPV00           1643
          LEXFLG      13261                       FEC             5645      6537
                                                  ALLOC          13211
          LEXMODE     13262                       FEC             6321
          SB=CONT     13274                       HEADER         15675
                                                  KEY            16625
          SB=LINC     13275                       FEC             5753
                                                  CDDIR          20171
          SB=LORD     13276                       FEC             5753
                                                  CDDIR          20170
          TB=1ST      13277                       FEC             5726
                                                  KEY            17203
                                                  PAR            32136
          TB=LABL     13301                       FEC             5716
                                                  KEY            17332
          TB=LABR     13302                       FEC             5715      6242
                                                  KEY            16616     17072     17143     17211
                                                  FMT            24655
          TB=NUML     13304                       FEC             5651
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    56  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TB=NUMR     13305             
          TB=PLVL     13306             
          TB=TYPE     13307                       FEC             5661      5670      5713      5720      5722      5727      6243
                                                                  6251      6266
                                                  HEADER         15705     16243
                                                  KEY            17354
                                                  DECL           22631
                                                  PAR            31540
                                                  CONRED         35465
                                                  LABEL          37153     37222
          LEX         13433                       FEC             5650
          CST         13763                       KEY            17353
          RNC         14106             
          TOK=CAL     14202             
          TOK=COF     14204             
          TOK=GN      14242             
          TOK=GO      14252             
          TOK=GS      14255             
          TOK=IFT     14265             
          TOK=ON      14271             
          TOK=XEQ     14275             
          BLL         15077                       PEM            12576
          CAK         15166                       TYPE           24523
          LDB         15343                       FEC             5647      5732
                                                  PEM            12550
                                                  ALLOC          13213
                                                  CDDIR          20172
          LSL         15362             
          LSS         15420             
          B=HEADE     15604   HEADER              RPV00           1644
          KW=BLOC     15604                       LEX            13332
          KW=FUNC     15616                       LEX            13360
                                                  TYPE           24167
          KW=PROG     15631                       LEX            13377
          KW=OVCA     15635                       LEX            13372
          OVCFLG      15645                       FEC             6517
          KW=OVER     15646                       LEX            13373
          PSF         15677                       FEC             5675
                                                  TYPE           24171
          KW=SUBR     15717                       LEX            13407
          PPA130      16102                       FERRS          11260     11262     11264     11266     11270     11272     11274
                                                                 11276
          PSA         16142                       KEY            16717
          WSA         16366                       KEY            16643
          B=KEY       16437   KEY                 RPV00           1645
          KW=ASSI     16437                       LEX            13330
          KW=CALL     16516                       LEX            13335
          CRL         16601                       PAR            33312
          KW=CONT     16616                       FEC             6243
                                                  LEX            13342
          KW=END      16625                       LEX            13351
          END23       16626                       FERRS          11767
          KW=ENTR     16646                       LEX            13354
                                                  HEADER         16244
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    57  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          KW=NAME     16724                       LEX            13370
          KW=PAUS     17013                       LEX            13375
          KW=RETU     17015                       LEX            13403
          KW=STOP     17052                       LEX            13406
          KW=GOTO     17056                       LEX            13361
          INIF        17215                       FEC             6630
                                                  LABEL          37431
          IFMOD       17217                       PAR            32312
          IFRESLT     17220                       PAR            32312
          IFREL2      17222                       PAR            31136     32467     34444
          IFLN        17223             
          KW=ELSE     17232                       LEX            13347
          KW=ENDI     17264                       LEX            13353
                                                  LABEL          37222
          IFS         17336                       LEX            13414
          IFS11       17350                       FERRS          11437
          IFFLAG      17523                       LABEL          37236     37272
          C=PJX       17702                       PAR            31076
          B=CDDIR     20006   CDDIR               RPV00           1646
          K$=COLL     20006                       LEX            13420
          K$=BEGC     20030                       LEX            13417
          K$=ENDC     20031                       LEX            13423
          K$=DO       20032                       LEX            13421
          K$=IF       20050                       LEX            13425
          K$=ELSE     20101                       LEX            13422
          K$=ENDI     20120                       LEX            13424
          K$=LIST     20136                       LEX            13426
          B=DATA      20275   DATA                RPV00           1647
          DAT.Z       20334                       FERRS          10773     10774     10776     11000     11002     11004
                                                  PAR            31147
                                                  CONRED         35467
          KW=DATA     20340                       LEX            13343
                                                  CONRED         35465
          DATA2       20366                       FERRS          10764     10765
          DATAFLG     20540                       CONRED         35406     35441     35453
          C=DVL       20556                       PAR            31065
          EDI         20610                       CONRED         36562
          CFC         21116                       PAR            31775
          CMV         21165                       DECL           22517
          CSC         21264                       DECL           22351
          B=DECL      21324   DECL                RPV00           1650
          KW=COMM     21343                       LEX            13340
                                                  PAR            31542
          KW=DIME     21445                       LEX            13345
          DIR         21462                       TYPE           24264
          DIRT        21532                       PAR            31543
          EDD         21652             
          CDBB        21751                       PAR            34626
          C=DBD       21755                       PAR            31073     31074
          A=DBD       21756                       PAR            31073     31074
          KW=EQUI     22157                       LEX            13355
          EQS80       22241                       FERRS          11212     11216     11217
          KW=EXTE     22246                       LEX            13356
          KW=INTR     22311                       LEX            13365
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    58  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          KW=LEVE     22344                       LEX            13366
          LVL80       22440                       FERRS          11740     11742
          LVL90       22442                       FERRS          11732
          KW=PARA     22445                       LEX            13374
          PRMERR      22533                       FERRS          12065     12067
          KW=SAVE     22537                       LEX            13405
          SAVERR      22604                       FERRS          12077     12103     12105
          PCD         22607                       FEC             5700
          ACV         23560                       HEADER         16336
          B=TYPE      24136   TYPE                RPV00           1651
          KW=BOOL     24136                       LEX            13333
          KW=LOGI     24141                       LEX            13367
          KW=INTE     24142                       LEX            13364
          KW=REAL     24143                       LEX            13402
          KW=DOUB     24144                       LEX            13346
          KW=COMP     24145                       LEX            13341
          KW=CHAR     24146                       LEX            13336
          TYPA        24324             
          TYPD        24327                       FEC             6307
          KW=IMPL     24332                       LEX            13362
          IMP.ER      24457                       FERRS          12334     12336     12346     12350
          B=FMT       24555   FMT                 RPV00           1652
          KW=FORM     24654                       LEX            13357
                                                  LABEL          37155
          IODIR       25503   IO                  PAR            31577
          B=IO        25503                       RPV00           1653
          IONAM       25511             
          IODOLEN     25513                       LABEL          40325
          IODOIND     25514                       DATA           20562
          KW=BACK     25630                       LEX            13331
          KW=CLOS     25631                       LEX            13337
          KW=ENDF     25633                       LEX            13352
          KW=INQU     25634                       LEX            13363
          KW=OPEN     25636                       LEX            13371
          KW=REWI     25640                       LEX            13404
          KW=PRIN     25734                       LEX            13376
          KW=PUNC     25736                       LEX            13400
          KW=READ     25741                       LEX            13401
          KW=WRIT     25745                       LEX            13410
          KW=BUFF     26113                       LEX            13334
          BUFERR      26165                       FERRS          11611     11613     11615     11617     11621     11623     11625
                                                                 11632
          KW=DECO     26172                       LEX            13344
          KW=ENCO     26174                       LEX            13350
          IOJ         26351                       PAR            31526
          A=BMOD      26701                       PAR            31102
          A=BLWA      26711                       PAR            31104
          BLWA        26763                       FERRS          11634
          C=BFWA      26766                       PAR            31103
          C=CNT       26775                       PAR            31105
          A=FMT       27002                       PAR            31110
          C=FMT       27003                       PAR            31110
          A=FOU       27030                       PAR            31111
          C=FOU       27030                       PAR            31111
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    59  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          A=ICC       27040                       PAR            31112
          C=ICC       27041                       PAR            31112
          A=ICCX      27051                       PAR            31113
          C=ICCX      27052                       PAR            31113
          A=ICI       27060                       PAR            31114
          C=ICI       27061                       PAR            31114
          A=ICIX      27071                       PAR            31115
          C=ICIX      27072                       PAR            31115
          A=ICL       27102                       PAR            31116
          C=ICL       27103                       PAR            31116
          C=IOL       27113                       PAR            31117     31120
          A=STR       27154                       PAR            31121
          A=UNT       27161                       PAR            31122     31573
          C=UNT       27162                       PAR            31122
          CML         27166                       PAR            31606
          VAI         27245                       DATA           20557
          LST         27322                       FERRS          11534
          CVL         27404                       DATA           20546
          IDCEX       30151                       PAR            32011
          A=DOCI      30255                       PAR            31106
          C=DOCI      30256                       PAR            31106
          A=DOCS      30267                       PAR            31107     32010
          C=DOCS      30270                       PAR            31107
          B=PAR       30475   PAR                 RPV00           1654
          PARNOW      30475                       FEC             6631
                                                  TYPE           24472
                                                  CONRED         35411
          SMOD        30477                       CONRED         35743     36000
          SOPR        30500             
          CURST       30501                       FEC             6135      6310      6402
                                                  KEY            16570     17117     17314     17364     17612     17701
                                                  IO             26375     27422
                                                  LABEL          37776
          CNF         30525                       LEX            13415
          PIX         30535                       CDDIR          20246
                                                  DECL           22213     23772     23777
                                                  TYPE           24505
          PKX         30563                       CDDIR          20057
                                                  DECL           22460
          DO.BEG      31002                       LABEL          37635
          MULROP      31007             
          ARYOP       31012                       IO             30114
          DVLOP       31013                       DATA           20544
          ERROP       31014                       DECL           21763
                                                  IO             26165
          GAPOP       31021                       KEY            17767
          IOCTL       31023                       IO             26556     27225
          IODTA       31024                       IO             27147     27344     27354
          IOUNT       31025                       IO             25754     26401     27035
          NOOPP       31032                       KEY            17515
          OPBSS       31033                       FEC             6140
                                                  IO             25675     25731     27366     30400
                                                  LABEL          37774
          OPDUM       31035                       KEY            17511     17534     17712
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    60  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             30343     30347     30362     30366
                                                  LABEL          37756
          VD.EQ       31047                       DECL           22072
          VD.MI       31050                       DECL           21616     21625
          VD.MU       31051                       DECL           22042
          VD.PL       31052                       DECL           21604     21626
          VD.GP       31053                       DECL           23570
          CALLARM     31063                       KEY            16554
          DATARM      31065                       DATA           20544
          DOARM       31066                       LABEL          37520
          IFARM       31070                       KEY            17244     17337
          LBARM       31073                       DECL           21552
          UBARM       31074                       DECL           21556
          PJXARM      31076                       KEY            17674
          BUFMOD      31102                       IO             26136
          BUFFWA      31103                       IO             26147
          BUFLWA      31104                       IO             26154
          CNTARM      31105                       IO             26202
          DOCOLI      31106                       IO             27651
          DOCOLS      31107                       IO             27614
          FMTARM      31110                       IO             26447
          FOUARM      31111                       IO             26012
          ICCARM      31112                       IO             26531
          ICCXARM     31113                       IO             26534     26550
          ICIARM      31114                       IO             26537
          ICIXARM     31115                       IO             26541
          ICLARM      31116                       IO             26542
          IOARGM      31117                       IO             26342
          STRARM      31121                       IO             26217
          UNTARM      31122                       IO             26243
          PAR         31123                       KEY            16556     17246     17341     17677
                                                  DECL           21726
                                                  IO             26016     26142     26152     26160     26206     26222     26246
                                                                 26453     26552     26601     27432     30420
                                                  LABEL          37522
          PAR.NX      31156                       IO             30266     30315
          PAREXIT     32154                       DECL           21764     22007     22010     22012     22014
                                                  IO             26710     26765     26774     27001     27027     27044     27050
                                                                 27053     27057     27064     27065     27070     27076     27077
                                                                 27101     27106     27112     27160     27162     30263     30314
          IOL.RTN     32205                       DATA           20606
                                                  IO             27153
          POP.STD     32237                       KEY            17714
          C=CERR      32253                       KEY            17704
          C=ERR       32254                       IO             27140
          POP.DVA     32371             
          DTC         32773                       LABEL          37523
          EXD         33151                       CONRED         36635
          CF=AC       33273                       KEY            16557     16602     17764
          EAL         33504                       KEY            17767
          VEL         33732                       KEY            16574
          ACT         34427                       LABEL          37531     37554
          ADT         34435             
          CMR         34573                       KEY            17710
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    61  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DOA         34641                       IO             27246     27271
                                                  CONRED         36540
          ECC         34664                       KEY            17756
          EMT         34704                       FEC             5737      6141      6357      6512
                                                  HEADER         15613     15674     15776     16100     16116     16117     16361
                                                  KEY            16502     16561     16565     16641     16705     17031     17115
                                                                 17155     17210     17474     17514     17516     17540     17544
                                                                 17572     17633     17774
                                                  CDDIR          20025     20042     20153
                                                  DATA           20362     20605
                                                  DECL           21763     22042     22072     22152
                                                  IO             25676     25732     25755     26166     26364     26405     26563
                                                                 27036     27152     27230     27361     27367     27455     27457
                                                                 27463     27474     27502     27514     30020     30034     30043
                                                                 30052     30060     30072     30100     30116     30136     30140
                                                                 30346     30353     30365     30372     30400
                                                  LABEL          37604     37667     37674     37701     37761     37767     37774
          FAT         34721                       IO             26356
          GOL         34737                       IO             27007
          OMC         34767             
          SDM         35065             
          TPC         35237                       IO             26017     26247     26454     26553     26602     27114
          B=CONRE     35273   CONRED              RPV00           1655
          LVEC        35301             
          LLVEC       35303             
          RVEC        35305             
          RLVEC       35306             
          REG=T       35307                       QCGC           40403
                                                  GEN            46422     46432     46444     46446
          CTAA        35336             
          DEC         35355                       HEADER         16011
                                                  DATA           20473     21153
                                                  TYPE           24472
                                                  PAR            31200
          OCT         35516                       HEADER         16006
                                                  PAR            31176
          TNK         35543                       DATA           21064
          CCR         35735                       PAR            33254     33261     34461
          CTA         35767             
          PCC         36006                       PAR            32512
          PCR         36050                       PAR            32453
          PCR.1OP     36067                       PAR            32447
          PCR.2OP     36071                       PAR            32452
          PCR.RO      36073                       PAR            32444
          KCV         36252                       DATA           21155     21175
                                                  PAR            34604
          LCH         36301                       IO             26027     26252     27003     27073     27115
                                                  PAR            30577     32445     32450     32504     32507     32621     32623
                                                                 32760     33563     33576     34642
          LCT         36334                       IO             26701
                                                  PAR            30547     32322     32326     32333     33006     33034     33055
                                                                 33162     34247     34265     34267     34272     34324     34327
                                                                 34375     34602     34755     34757
                                                  LABEL          37544     37571     37637     37714
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    62  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LIR         36351                       PAR            33043
          NBC         36357                       DATA           21112
                                                  PAR            31206     31235     34605
          NCS         36375                       DECL           21603     21615     22021
                                                  IO             25752     26240     27033     27453     27500     30016     30032
                                                                 30050     30065     30076
                                                  PAR            31267     32612     33154     33572     34211     34333     34340
                                                                 34411     34425
          SED         36412                       DATA           20553
          D=NOOP      36416                       QSKEL          43150
          D=BSS       36416                       QSKEL          43121
          D=COLON     36416                       QSKEL          43027
          D=SUBST     36416                       QSKEL          43030
          D=DOBD2     36416                       QSKEL          43165
          D=ARY       36416                       QSKEL          43122
          D=DVI       36513                       QSKEL          43163
          GPS         36614                       DECL           24041
          D=EXP.I     36632                       QSKEL          43164
          D=STR.I     36641                       QSKEL          43023
          D=DOBZL     36662                       QSKEL          43103
          D=DOBZS     36662                       QSKEL          43102
          D=DOBS      36662                       QSKEL          43100
          D=DOBL      36662                       QSKEL          43101
          D=DOC.L     36674                       QSKEL          43106
          D=DOC.S     36674                       QSKEL          43104
          B=STMTF     36720   STMTF               RPV00           1656
          SFD         36720                       LEX            13412
          SFDEX       37117                       FERRS          12133
          B=LABEL     37127   LABEL               RPV00           1657
          DOMODE      37127                       PAR            32745     32761
          CUL         37130                       LEX            13455
          GSL         37150                       FEC             5717
          ISL         37232                       KEY            16443     17070     17142     17206     17417
                                                  IO             26434     26545
                                                  PAR            32054
          STL0R       37417                       KEY            17071     17143     17211
          PSL         37421                       FERRS          10565     10607     10617     10674     11135     11147     11171
                                                                 11173     11175     11371     11373     11417     11425     11433
                                                                 11441     11443     11445     11447     11504     11520     11522
                                                                 11526     11530     11532     11537     11541     11543     11547
                                                                 11551     11553     11563     11567     11571     11637     11641
                                                                 11643     11655     11657     11661     11664     12005     12235
                                                                 12375
                                                  KEY            16444     16464     16513     16515     16526     16570     16623
                                                                 16624     16722     17014     17032     17036     17051     17053
                                                                 17055     17101     17105     17141     17157     17205     17237
                                                                 17263     17271     17327     17330     17334     17402     17433
                                                                 17435
                                                  IO             25674     25677     25730     25733     26164     26167     26546
                                                                 27332     27371
                                                  PAR            30534     31242     31346     31557     32201     32203     32204
                                                                 32675
                                                  CONRED         35466     35557
          KW=DO       37442                       LEX            13413
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    63  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CDI         37463                       IO             27531
          CDIFLG      37712                       PAR            32123     32204     32674
          PDT         37720                       IO             27547
          ALU         40021                       KEY            17333
          DDR         40071                       IO             27254
                                                  PAR            32543     32733
          FBS         40120                       KEY            17305     17564
          PDA         40256                       FEC             7035
                                                  KEY            16544     17022
                                                  PAR            31700
          RBE         40265                       KEY            17303     17562
          REG=G       40350   QCGC                FUN            43633     44336     44340     44342     44346     44347     44352
                                                                 44354     44403
                                                  GEN            46453     46460     47044     47045     47331     47742     47745
                                                                 50027     50032     50045
          B=QCGC      40350                       RPV00           1660
          REG=GP      40350             
          REG=GL      40350             
          N$IT        40356             
          CII         40356                       FAS            51207
          N$OT        40357             
          DRITE       40360                       REG            44565     44574     44620     45622     45637
                                                  GEN            46360
          NOLDS       40363                       REG            46201
          RGC         40364                       GEN            46244
          RGX         40365                       REG            44527     44541     45052     45151     45724     45746
                                                  GEN            46242
          RREG        40366                       REG            44567     44571     45022     45446     45723     46026     46105
                                                  GEN            46304     46347     46471     46625     46631
          TRACE       40367                       FUN            43427     44256
                                                  GEN            46732     46737     47005
          TYPLOD      40370                       REG            46030     46130     46175     46204
                                                  GEN            46466     46506     46546     46560     46564     46603
          UUC         40371                       FUN            43257
                                                  REG            45753     45772     46075     46100     46102
                                                  GEN            46256     46313     46454     46456     46462     46464     46544
                                                                 46602     46620     46637     46647
          WQ.CS       40372             
          WQ.DOOT     40373             
          CAI         40374                       QCGLINK         4421
          PIG         40417                       GEN            47101
          DUC.        40467                       FEC             5536      5537      5540      5541      5542      5546      5550
                                                                  5551      5575      5576      5602      5603      5605      5606
                                                                  5607      5610      5611      5612      5620      5621      5622
                                                                  5623
          DUC.1ST     40472                       FEC             5556      5566      5600      5613      5617
          DUC.2ND     40476                       FEC             5614      5616
          DUC.BTH     40502                       FEC             5552      5553      5554      5555      5557      5560      5561
                                                                  5562      5563      5564      5565      5567      5570      5571
                                                                  5572      5573      5574      5577      5601      5615
          POS         40520                       FUN            43632     44165     44337     44341     44402
                                                  GEN            50026     50031     50044
          RED         40537                       GEN            46254
          DPT         40623             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    64  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          QCP         40632                       FEC             5642
          SMB         40650                       REC            50235
          WTE         40663                       GEN            47700
                                                  INIT00         55223
          WIN         40666                       FUN            43426     44301
                                                  REG            44625     44676     44723     44736     44764     44774     45204
                                                                 45242     45272     45276     45303     45310     45365     45422
                                                                 45432     45442     45470     45601     45661     46071     46172
                                                                 46221     46227
                                                  GEN            46364     46424     46532     46577     46636     46741     46750
                                                                 46756     46762     47017     47061     47064     47066     47112
                                                                 47115     47123     47125     47130     47133     47136     47147
                                                                 47152     47155     47161     47164     47167     47172     47175
                                                                 47200     47203     47221     47224     47242     47245     47353
                                                                 47356     47363     47366     47371     47407     47413     47416
                                                                 47422     47435     47443     47446     47457     47461     47470
                                                                 47475     47500     47503     47506     47512     47515     47530
                                                                 47561     47607     47612     47625     47630     47634     47640
                                                                 47645     47651     47654     47656     47661     47663     47665
                                                                 47667     47673     47707     47713     47715     47720     47725
                                                                 47727     47733     47736     47752     47754     47757     47761
                                                                 47764     47766     47771     47773     47776     50000     50003
                                                                 50006     50012     50016     50037     50041
                                                  INIT00         55223
          ITS         41124                       GEN            47464
          F.SKEL      41171   QSKEL               CONRED         35771
                                                  GEN            46257
                                                  INIT00         55225
          F.SKNAM     41171             
          B=QSKEL     41171                       RPV00           1661
          SKEND       42445             
          OM=ADD      42446                       PAR            30737
          OM=SUB      42447                       PAR            30740     30774
          OM=MUL      42450                       PAR            30741     30773
          OM=DIV      42451                       PAR            30742     30772
          OM=UMI      42452                       PAR            30743
          OM=LT       42453                       PAR            30745     30752     31055
          OM=GE       42455                       PAR            30746     30751     31054
          OM=NE       42457                       PAR            30750     31056
          OM=EQ       42461                       PAR            30747     31057
          OM=NOT      42463                       PAR            30753
          OM=AND      42464                       PAR            30754
          OM=OR       42465                       PAR            30760
          OM=EQV      42466                       PAR            30757
          OM=XOR      42467                       PAR            30755     30756
          OM=STR      42470                       PAR            30764
          OM=DOC      42472                       PAR            31006
          F.MODC      42474                       PAR            34574     35127
          F.IFS       42503                       KEY            17403     17476     17500
          F.IFN       42512                       KEY            17501
          F.INTF      42520                       FEC             7230
                                                  DECL           22334
                                                  TYPE           24225
                                                  PAR            31371     31437     33546     33715     33760     33773     33776
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    65  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 34011     34075     34105
          F.IMCV      42747                       PAR            34121
          F.SKCR      42753                       PAR            33243     34454
          F.SCT       42753                       CONRED         36423
                                                  QCGC           40512
                                                  GEN            46255
          B=FUN       43225   FUN                 RPV00           1662
          O=FAP       43225                       QSKEL          42121
          O=LIBF      43236                       QSKEL          42201
          O=FUN       43237                       QSKEL          42200
          O=GAP       43270                       QSKEL          42120
          O=HLEX      43274                       QSKEL          41351     41374     41430     41464
          O=HREL      43276                       QSKEL          41347     41371     41423     41457
          O=HSTO      43325                       QSKEL          41472
          O=IAP       43342                       QSKEL          42122
          O=INF       43352                       QSKEL          42202
          O=IOC       43356                       QSKEL          42131
          O=IOD       43373                       QSKEL          42132
          O=IOF       43410                       QSKEL          42203
          O=IOU       43432                       QSKEL          42133
          O=LIB       43454                       QSKEL          42207     42210
          O=SUB       43455                       QSKEL          42177
          ESC         43662                       REG            45265     46215
          UAP         44045                       GEN            47743
          O=LURET     44064                       QSKEL          42173
          O=APRET     44363                       QSKEL          42135     42144
          O=SCRET     44410                       QSKEL          42147     42160     42171
          O=SURET     44425                       QSKEL          42176
          APLFLG      44442                       QCGC           40377
          B=REG       44473   REG                 RPV00           1663
          RG=BADR     44473             
          RG=INTR     44476                       GEN            46244
          RG=TEMP     44501                       GEN            46245     46552
          RG=LOAD     44504                       GEN            46246     46502
          RG=LODX     44507                       GEN            46247     46521     46556
          RG=SET      44512             
          RG=STOR     44515                       GEN            46250
          AIR         44520                       GEN            46653
          ASR         44532                       GEN            46624     46651     46654
          CDS         44564                       QCGC           40407
                                                  FUN            43410
                                                  GEN            46410     46474     46734     46770     47325
          CIA         44603                       FUN            43411     44262
                                                  GEN            46362     46736     46746     46757     46763     47326
          CLI         44636                       GEN            46566
          CRJ         44724                       FUN            43353     43430     44257
                                                  GEN            47006
          CWI         44753                       FUN            44346     44353
          DIT         45000                       FUN            43260     43265
                                                  GEN            46657
          DSC         45017                       GEN            46502
          GNR         45050                       GEN            46526     46556
          GST         45123                       FUN            44306     44350
                                                  GEN            46561
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    66  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          GSTC        45146                       GEN            46503
          GTR         45147                       GEN            46417     46441
          LSC         45444                       GEN            46522
          LTG         45475                       GEN            46517
          RLL         45503                       GEN            46611     46623     46703
          RUL         45510                       GEN            46372     46627     46710
          REGLK       45517                       GEN            46243     46371     46374     46700     46704
          CLOADJ      45521                       GEN            46707
          STRGLK      45522                       GEN            46243     46533
          RUT         45531                       FUN            44066
                                                  GEN            46425     46426     46656
          SDS         45621                       GEN            46642
          SFR         45722                       GEN            46552
          STS         45752                       FUN            44344     44351
                                                  GEN            46551     46605
          O=PAR       46015                       QSKEL          42117
          SLD         46016                       GEN            46500     46640
          P2=KEEP     46235                       GEN            46505
          EIS         46240   GEN                 QCGC           40406
          B=GEN       46240                       RPV00           1664
          EIS.PNX     46252                       FUN            43235     43273     43372     43406     43453
                                                  REG            46015
          SUB.RET     46257                       FUN            43347     44070     44362     44407     44427
          O=BVD       46365                       QSKEL          42224
          O=HCAT      46365                       QSKEL          41473
          O=NOOP      46365                       QSKEL          42263     42302
          O=HCOL      46365                       QSKEL          41474
          NULLOP      46365                       FUN            43227     43255     43266     43322     43341     43431     43466
          O=HSBS      46365                       QSKEL          41475
          CURSK       46376                       FUN            43301     43322     43325     43337
          EIS.GP      46453             
          INS.REG     46717                       REG            45353     45356     45566
          IJK         46721                       REG            45565
          RUT.REG     46726                       REG            44606     45554
          O=CAR       46763                       QSKEL          41763     41771     42074     42112     42206     42275
          O=CBJ       46765                       QSKEL          42061     42113
          O=CDW       46770                       QSKEL          42204     42211     42215     42274
          O=PLA       46777                       QSKEL          42116
          O=CRJ       47002                       QSKEL          42205
          O=CDCS      47010                       QSKEL          42272
          O=CDDOT     47012                       QSKEL          42271
          O=CDLOO     47014                       QSKEL          42270
          OCIOL       47020                       QCGC           40647
          O=ENT       47021                       QSKEL          42223
          O=GENT      47031                       QSKEL          42232
          O=GENTX     47033                       QSKEL          42261
          O=FPENT     47050                       QSKEL          42257
          O=FPHDR     47105                       QSKEL          42250
          ISA         47107             
          O=EVD       47325                       QSKEL          42225
          O=FUNT      47332                       QSKEL          42236
          O=MENT      47343                       QSKEL          42233
          ENT.EGL     47375                       QCGC           40641
          ENT.STO     47376             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    67  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ENT.SUB     47377                       FUN            44251
          ENT.SB0     47400                       REG            45430
          ENT.VD      47401                       QCGC           40424
          N.ALTEN     47402             
          O=FIN       47440                       QSKEL          42276
          O=FINX      47455                       QSKEL          42231     42251
          O=GFD       47601                       QSKEL          42265
          O=HDR       47632                       QSKEL          42264
          O=DATA      47670                       QSKEL          42273
          O=ILL       47703                       QSKEL          41171     42300     42301
          O=LCC       47704                       QSKEL          42277
          O=PLIM      47710                       QSKEL          42266
          O=RGT       47740                       QSKEL          42077
          O=SEX       47747                       QSKEL          42267
          O=IM        50017                       QSKEL          41227
          O=ID        50020                       QSKEL          41255
          O=MASK      50021                       QSKEL          41723
          O=MOD       50022                       QSKEL          41733
          O=SHIFT     50023                       QSKEL          41755
          O=DOB       50024                       QSKEL          41764     41772
          O=DOBZ      50025                       QSKEL          41760     41773
          O=DOC       50030                       QSKEL          41777     42006     42014     42021     42025
          O=PDE       50033                       QSKEL          42005     42011
          O=PCG       50034                       QSKEL          42075
          O=PASG      50042                       QSKEL          42114
          B=REC       50053   REC                 RPV00           1665
          WO.56       50053                       FAS            51671
          WO.57       50054                       FAS            51666
          REC         50055                       QCGLINK         4412
          ADA         50355                       FAS            52153
          B=FAS       50503   FAS                 RPV00           1666
          BT.IDNT     50503                       REC            50150
          BT.XFR1     50564             
          CIDMOD      50570             
          COMMOD      50571             
          FCLMOD      50573             
          FAPSUD      50635             
          ORG         50704             
          PARCEL      50705             
          ORGSUB      50706             
          SUBFLG      50707             
          ORGSUB0     50710             
          TAGSUB0     50711             
          OL=BIN      50712             
          OL=LBF      50713             
          OL=PB       50714             
          OL=RL       50715             
          FAS         50724                       REC            50132
          APLA        51040             
          RADRTN      51172                       REC            50104     50106
          RADOL1      51234                       REC            50106
          RADOL2      51254                       REC            50110
          RADC        51456             
          BST         51473                       REC            50077
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    68  
          OVERLAY(FTN,0,0)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BST.EQ      51474                       REC            50101
          CAB         51532             
          CLE         51542                       REC            50114
          CLE.EQ      51543                       REC            50115
          DLF         52013                       ALLOC          13152
          ESL         52112                       REC            50116
          ESL.EQ      52113                       REC            50117
          FBP         52133                       REC            50110
          FBP.EQ      52134                       REC            50112
          POL         52701                       REC            50102
          POL.EQ      52702                       REC            50104
          RNI         53026             
          SNR         53052                       REC            50216
          WLF         53113                       REC            50075
          WLF.EQ      53114                       REC            50077
          B=ZEROL     53142   ZEROLNK             RPV00           1667      1670
          MAP         53142                       REC            50065
          LUS         53142                       PUC             3525
          PIK         53142                       FAS            52706
          VFD         53142                       FAS            51234     51255
          MOVES       53144             
          ALC=CNT     53144             
          PARSLEN     53144             
          B=INIT0     53145   INIT00              RPV00           1671
          FIN.MAP     53145   ZEROLNK             INIT00         55160
          FIN.OL      53145                       INIT00         55156
          FTN         53145   INIT00    
          FIN         53145   ZEROLNK             INIT00         55163
          B=LWA00     55504   INIT00              RPV00           1672
  
  
  
  
  
 -------- OVERLAY(FTN,1,0,O=FWA10)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD           1633
          LWA+1 OF THE LOAD        61311
  
          TRANSFER ADDRESS -- FTN10          61153          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN510         1633      775    OVR      24/05/02 COMPASS 3.7 871               FTN5 PRIMARY OVERLAY FOR QCG. 
          RPV10          2630       47    OVR      24/05/02 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          UTILITY        2677     1052    OVR      24/05/02 COMPASS 3.7 871               COMMON UTILITY ROUTINES.      
          LISTLNK        3751      171    OVR      24/05/02 COMPASS 3.7 871               MISC OUTPUT ROUTINES
          PUC            4142     1431    OVR      24/05/02 COMPASS 3.7 871               PROGRAM UNIT CONTROLLER AND SUPPORT.    
          QCGLINK        5573       23    OVR      24/05/02 COMPASS 3.7 871               QCG MODE LINKAGE ROUTINES.    
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    69  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          /RGFILE/       5616      500
          /HASH/         6316      200
          FEC            6516     1772    OVR      24/05/02 COMPASS 3.7 871               FRONT END CONTROLLER AND SUPPORT.       
          FERRS         10510     3106    OVR      24/05/02 COMPASS 3.7 871               FRONT END ERROR TEXTS.        
          PEM           13616      330    OVR      24/05/02 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC         14146      302    OVR      24/05/02 COMPASS 3.7 871               TABLE ALLOCATION.   
          LEX           14450     2327    OVR      24/05/02 COMPASS 3.7 871               LEXICAL SCANNER.    
          HEADER        16777      633    OVR      24/05/02 COMPASS 3.7 871               PROGRAM UNIT HEADER STATEMENTS.         
          KEY           17632     1347    OVR      24/05/02 COMPASS 3.7 871               KEYWORD STATEMENT TRANSLATION.
          CDDIR         21201      267    OVR      24/05/02 COMPASS 3.7 871               C$ DIRECTIVE PROCESSING.      
          DATA          21470     1027    OVR      24/05/02 COMPASS 3.7 871               TRANSLATE DATA STATEMENTS.    
          DECL          22517     2612    OVR      24/05/02 COMPASS 3.7 871               DECLARATIVE PHASE STATEMENTS. 
          TYPE          25331      417    OVR      24/05/02 COMPASS 3.7 871               EXPLICIT / IMPLICIT TYPE DECLARATIONS.  
          FMT           25750      726    OVR      24/05/02 COMPASS 3.7 871               FORMAT STATEMENT PROCESSOR.   
          IO            26676     2772    OVR      24/05/02 COMPASS 3.7 871               INPUT/OUTPUT STATEMENT PROCESSING.      
          PAR           31670     4576    OVR      24/05/02 COMPASS 3.7 871               EXPRESSION TRANSLATION.       
          CONRED        36466     1425    OVR      24/05/02 COMPASS 3.7 871               FRONT END CONSTANT ARITHMETIC.
          STMTF         40113      207    OVR      24/05/02 COMPASS 3.7 871               STATEMENT FUNCTION PROCESSOR. 
          LABEL         40322     1221    OVR      24/05/02 COMPASS 3.7 871               LABELS AND *DO* STATEMENT.    
          QCGC          41543      621    OVR      24/05/02 COMPASS 3.7 871               QUICK CODE GENERATOR CONTROLLER.        
          /SKLNAM/      42364        0
          QSKEL         42364     2034    OVR      24/05/02 COMPASS 3.7 871               (QCG)   INSTRUCTION SKELETON CONSTRUCTION.     
          FUN           44420     1246    OVR      24/05/02 COMPASS 3.7 871               (QCG)    EXTERNAL PROCEDURE INVOCATION. 
          REG           45666     1545    OVR      24/05/02 COMPASS 3.7 871               (QCG)    RESOURCE ALLOCATION. 
          GEN           47433     1613    OVR      24/05/02 COMPASS 3.7 871               (QCG)    QUICK CODE GENERATOR.
          REC           51246      430    OVR      24/05/02 COMPASS 3.7 871               REAR END CONTROLLER.
          FAS           51676     2437    OVR      24/05/02 COMPASS 3.7 871               FORTRAN INTERNAL ASSEMBLER.   
          MAP           54335     3244    OVR      24/05/02 COMPASS 3.7 871               STORAGE MAP AND CROSS REFERENCE.        
          LIST          57601     1352    OVR      24/05/02 COMPASS 3.7 871               OBJECT CODE LISTING ROUTINES. 
          INIT10        61153      136    OVR      24/05/02 COMPASS 3.7 871               REINITIALIZATION / AFTER COMPASS ASSEMBLY.     
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=MUL.R       *WEAK*                    QSKEL          44160
          D=NE.D        *WEAK*                    QSKEL          44206
          D=NE.H        *WEAK*                    QSKEL          44207
          D=NE.I        *WEAK*                    QSKEL          44204
          D=NE.R        *WEAK*                    QSKEL          44205
          D=FILE        *WEAK*                    QSKEL          44345
          D=NOT.L       *WEAK*                    QSKEL          44232
          D=OR.L        *WEAK*                    QSKEL          44235
          D=PAUS        *WEAK*                    QSKEL          44333
          D=ABS         *WEAK*                    QSKEL          44237
          D=ADD.C       *WEAK*                    QSKEL          44152
          D=ADD.D       *WEAK*                    QSKEL          44151
          D=ADD.I       *WEAK*                    QSKEL          44147
          D=ADD.R       *WEAK*                    QSKEL          44150
          D=AGOTO       *WEAK*                    QSKEL          44307
          D=AIMAG       *WEAK*                    QSKEL          44241
          D=AINT        *WEAK*                    QSKEL          44242
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    70  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=AMAX1       *WEAK*                    QSKEL          44250
          D=AMIN1       *WEAK*                    QSKEL          44251
          D=AMOD        *WEAK*                    QSKEL          44252
          D=AND.L       *WEAK*                    QSKEL          44233
          D=ANINT       *WEAK*                    QSKEL          44243
          D=APIOC       *WEAK*                    QSKEL          44321
          D=APIOD       *WEAK*                    QSKEL          44322
          D=APIOU       *WEAK*                    QSKEL          44323
          D=SHIFT       *WEAK*                    QSKEL          44272
          D=ASSGN       *WEAK*                    QSKEL          44313
          D=STR.D       *WEAK*                    QSKEL          44217
          D=BVD         *WEAK*                    QSKEL          44340
          D=CAT         *WEAK*                    QSKEL          44221
          D=CDCS        *WEAK*                    QSKEL          44352
          D=CDDOT       *WEAK*                    QSKEL          44351
          D=CDLOO       *WEAK*                    QSKEL          44350
          D=CGOTO       *WEAK*                    QSKEL          44310
          D=CMPLX       *WEAK*                    QSKEL          44254
          D=SUB.R       *WEAK*                    QSKEL          44154
          D=CONJG       *WEAK*                    QSKEL          44253
          D=DABS        *WEAK*                    QSKEL          44255
          D=DATA        *WEAK*                    QSKEL          44353
          D=DDIM        *WEAK*                    QSKEL          44256
          D=DIM         *WEAK*                    QSKEL          44257
          D=DINT        *WEAK*                    QSKEL          44260
          D=DIV.C       *WEAK*                    QSKEL          44166
          D=DIV.D       *WEAK*                    QSKEL          44165
          D=DIV.I       *WEAK*                    QSKEL          44163
          D=DIV.R       *WEAK*                    QSKEL          44164
          D=DMAX1       *WEAK*                    QSKEL          44245
          D=DMIN1       *WEAK*                    QSKEL          44247
          D=DNINT       *WEAK*                    QSKEL          44262
          D=I122        *WEAK*                    QSKEL          44362
          D=I123        *WEAK*                    QSKEL          44361
          D=JGOTO       *WEAK*                    QSKEL          44311
          D=LCC         *WEAK*                    QSKEL          44355
          D=LCIF        *WEAK*                    QSKEL          44305
          D=DOC.D       *WEAK*                    QSKEL          44303
          D=LGE         *WEAK*                    QSKEL          44203
          BN=STRT         0   PUC                 GEN            50547     50637
          D=DOC.R       *WEAK*                    QSKEL          44302
          D=LNE         *WEAK*                    QSKEL          44210
          D=DPROD       *WEAK*                    QSKEL          44261
          D=DSIGN       *WEAK*                    QSKEL          44263
          D=DTOC        *WEAK*                    QSKEL          44231
          D=DVC.R       *WEAK*                    QSKEL          44167
          D=MASK        *WEAK*                    QSKEL          44267
          D=ENTR        *WEAK*                    QSKEL          44337
          D=EQV.L       *WEAK*                    QSKEL          44234
          D=EQ.D        *WEAK*                    QSKEL          44213
          D=EQ.H        *WEAK*                    QSKEL          44214
          D=EQ.I        *WEAK*                    QSKEL          44211
          D=EQ.R        *WEAK*                    QSKEL          44212
          D=ERR         *WEAK*                    QSKEL          44331
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    71  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=EVD         *WEAK*                    QSKEL          44341
          D=ISIGN       *WEAK*                    QSKEL          44265
          D=FAP         *WEAK*                    QSKEL          44317
          ERR.A           0                       FERRS          11752     11754     11756     11760     11762     11764     11766
                                                                 12036     12037     12040     12056     12065     12111     12162
                                                                 12220     12235     12354     12447     12520     12600     12616
                                                                 12750     13040     13055     13063     13310     13346     13353
                                                                 13457
          D=FIN         *WEAK*                    QSKEL          44354
          D=FUNC        *WEAK*                    QSKEL          44325
          D=GAP         *WEAK*                    QSKEL          44316
          D=GE.D        *WEAK*                    QSKEL          44201
          D=GE.H        *WEAK*                    QSKEL          44202
          D=GE.I        *WEAK*                    QSKEL          44177
          D=GE.R        *WEAK*                    QSKEL          44200
          D=GOTO        *WEAK*                    QSKEL          44306
          D=GPL         *WEAK*                    QSKEL          44336
          D=HDR         *WEAK*                    QSKEL          44344
          D=IAP         *WEAK*                    QSKEL          44320
          D=IDIM        *WEAK*                    QSKEL          44266
          D=IDNIN       *WEAK*                    QSKEL          44264
          D=IEQ.C       *WEAK*                    QSKEL          44413
          D=IEQ.D       *WEAK*                    QSKEL          44412
          D=IEQ.I       *WEAK*                    QSKEL          44410
          D=IEQ.R       *WEAK*                    QSKEL          44411
          D=IFF         *WEAK*                    QSKEL          44406
          D=IFT         *WEAK*                    QSKEL          44405
          D=ILL         *WEAK*                    QSKEL          44146
          D=INE.C       *WEAK*                    QSKEL          44417
          D=INE.D       *WEAK*                    QSKEL          44416
          D=INE.I       *WEAK*                    QSKEL          44414
          D=INE.R       *WEAK*                    QSKEL          44415
          D=INN3        *WEAK*                    QSKEL          44377
          D=INTF        *WEAK*                    QSKEL          44327
          D=IN2N        *WEAK*                    QSKEL          44403
          D=IN22        *WEAK*                    QSKEL          44373
          D=IN23        *WEAK*                    QSKEL          44367
          D=IOLC        *WEAK*                    QSKEL          44304
          D=IOSUB       *WEAK*                    QSKEL          44330
          V=IEQ.L       *WEAK*                    PAR            33665
          D=ITOB        *WEAK*                    QSKEL          44225
          D=ITOD        *WEAK*                    QSKEL          44226
          D=ITOR        *WEAK*                    QSKEL          44224
          D=I1NN        *WEAK*                    QSKEL          44375
          D=I1N1        *WEAK*                    QSKEL          44404
          D=I1N3        *WEAK*                    QSKEL          44370
          D=I11N        *WEAK*                    QSKEL          44401
          D=I111        *WEAK*                    QSKEL          44407
          D=I113        *WEAK*                    QSKEL          44364
          D=I12N        *WEAK*                    QSKEL          44372
          D=I121        *WEAK*                    QSKEL          44366
          D=RNN3        *WEAK*                    QSKEL          44400
          D=RN22        *WEAK*                    QSKEL          44374
          D=RTNK        *WEAK*                    QSKEL          44335
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    72  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=RTOD        *WEAK*                    QSKEL          44230
          D=RTOI        *WEAK*                    QSKEL          44227
          D=LEQ         *WEAK*                    QSKEL          44215
          D=R1N3        *WEAK*                    QSKEL          44371
          D=LIBF        *WEAK*                    QSKEL          44326
          D=LLT         *WEAK*                    QSKEL          44176
          D=R122        *WEAK*                    QSKEL          44363
          D=LT.D        *WEAK*                    QSKEL          44174
          D=LT.H        *WEAK*                    QSKEL          44175
          D=LT.I        *WEAK*                    QSKEL          44172
          D=LT.R        *WEAK*                    QSKEL          44173
          D=RANF        *WEAK*                    QSKEL          44271
          D=MAX0        *WEAK*                    QSKEL          44244
          D=MIN0        *WEAK*                    QSKEL          44246
          D=MOD         *WEAK*                    QSKEL          44270
          D=MUL.C       *WEAK*                    QSKEL          44162
          D=MUL.D       *WEAK*                    QSKEL          44161
          D=MUL.I       *WEAK*                    QSKEL          44157
          V=IEQ.H       *WEAK*                    PAR            33672
          D=R1NN        *WEAK*                    QSKEL          44376
          D=SUM1S       *WEAK*                    QSKEL          44240
          D=UMI.D       *WEAK*                    QSKEL          44171
          D=UMI.I       *WEAK*                    QSKEL          44170
          D=XOR.L       *WEAK*                    QSKEL          44236
          V=ILL           0   QSKEL     
          V=INE.B       *WEAK*                    PAR            33664
          D=SUB.D       *WEAK*                    QSKEL          44155
          D=PLIM        *WEAK*                    QSKEL          44346
          V=DOC.1       *WEAK*                    LABEL          41041
          D=RET         *WEAK*                    QSKEL          44334
          D=RGOTO       *WEAK*                    QSKEL          44312
          V=INE.L       *WEAK*                    PAR            33665
          V=IEQ.B       *WEAK*                    PAR            33664
          D=SUB.C       *WEAK*                    QSKEL          44156
          D=SEX         *WEAK*                    QSKEL          44347
          D=SUB.I       *WEAK*                    QSKEL          44153
          D=STOP        *WEAK*                    QSKEL          44332
          D=SEG         *WEAK*                    QSKEL          44342
          D=R11N        *WEAK*                    QSKEL          44402
          D=R113        *WEAK*                    QSKEL          44365
          D=DOC.O       *WEAK*                    QSKEL          44300
          ES=CMPL         0   PAR                 QSKEL          43743
          D=STR.H       *WEAK*                    QSKEL          44220
          V=INE.H       *WEAK*                    PAR            33672
          FEC=1ST         0   FEC                 LEX            14525     14553     14565     14566     14572     14602
          D=SUBR        *WEAK*                    QSKEL          44324
          V=ADD.B         1   QSKEL     
          ERR.M           1   PUC                 FERRS          13227     13230     13232     13234     13236     13240
          BN=CODE         1                       GEN            51174
          FEC=IMP         1   FEC                 LEX            14555
                                                  HEADER         17174
          V=ADD.I         1   QSKEL               IO             30655     31235     31253
                                                  PAR            32171     32245     36405
          RPV=FVT         2   FTN                 UTILITY         3111
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    73  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FEC=DEC         2   FEC                 LEX            14533     14540     14550     14551     14560     14561     14600
          BN=CON          2   PUC                 FEC             6603
                                                  GEN            51142
          ERR.T           2                       FERRS          12122     12231     12314     12522     12531     12570     12576
                                                                 12602     12603     12622     12624     13176     13200     13214
                                                                 13330     13500     13604     13606     13610     13614
          V=ADD.R         2   QSKEL     
          FEC=STF         3   FEC                 LEX            14605
                                                  HEADER         17474
                                                  KEY            20044
                                                  DECL           24003
          L.FILL          3   FERRS               PEM            13625
          FV.OUT          3   FTN                 PUC             5127      5134      5377
          ERR.W           3   PUC                 FERRS          11740     11744     12010     12011     12014     12025     12044
                                                                 12071     12073     12136     12155     12157     12160     12226
                                                                 12233     12251     12340     12356     12360     12362     12366
                                                                 12370     12407     12413     12424     12443     12445     12475
                                                                 12544     12550     12574     12657     12661     12667     12671
                                                                 12717     12727     13027     13061     13121     13125     13133
                                                                 13153     13171     13256     13270     13274     13314     13316
                                                                 13324     13336     13433     13442     13444     13452     13476
                                                                 13502     13521     13533     13537     13545     13565
          V=ADD.D         3   QSKEL     
          BN=FMT          3   PUC                 FEC             6611
                                                  GEN            51150
          Z.IMCV          4   QSKEL               PAR            35314
          BN=TEM          4   PUC                 QCGC           42320
                                                  GEN            50600     50674     50703
          ERR.F           4                       FERRS          11734     11736     11742     11746     11750     11770     11772
                                                                 11774     11776     12000     12002     12004     12006     12012
                                                                 12016     12021     12023     12027     12031     12034     12042
                                                                 12046     12050     12052     12054     12057     12061     12063
                                                                 12067     12075     12077     12101     12103     12105     12107
                                                                 12113     12115     12117     12121     12124     12126     12130
                                                                 12132     12134     12141     12143     12145     12147     12151
                                                                 12153     12164     12166     12167     12171     12173     12175
                                                                 12177     12201     12203     12205     12207     12211     12213
                                                                 12215     12217     12222     12224     12230     12237     12241
                                                                 12243     12245     12247     12253     12255     12257     12261
                                                                 12263     12265     12270     12272     12274     12276     12301
                                                                 12304     12306     12310     12312     12316     12320     12322
                                                                 12324     12326     12330     12332     12334     12336     12342
                                                                 12344     12346     12350     12352     12364     12372     12375
                                                                 12377     12401     12403     12405     12411     12412     12415
                                                                 12420     12422     12426     12430     12432     12434     12437
                                                                 12441     12451     12453     12455     12457     12461     12463
                                                                 12465     12467     12471     12473     12477     12501     12504
                                                                 12506     12510     12512     12514     12516     12525     12527
                                                                 12533     12536     12537     12541     12547     12551     12553
                                                                 12555     12557     12562     12563     12564     12566     12572
                                                                 12605     12607     12611     12612     12614     12620     12626
                                                                 12630     12632     12634     12636     12640     12642     12643
                                                                 12645     12647     12651     12653     12655     12663     12665
                                                                 12673     12675     12677     12700     12703     12705     12707
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    74  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 12711     12713     12715     12721     12723     12725     12731
                                                                 12732     12734     12736     12740     12742     12744     12746
                                                                 12752     12754     12756     12760     12762     12764     12766
                                                                 12770     12772     12774     12776     13000     13002     13004
                                                                 13006     13010     13012     13014     13016     13020     13023
                                                                 13025     13032     13034     13036     13042     13044     13046
                                                                 13050     13052     13054     13057     13065     13067     13071
                                                                 13073     13075     13077     13101     13103     13104     13105
                                                                 13107     13112     13115     13117     13123     13127     13131
                                                                 13135     13137     13141     13143     13145     13147     13151
                                                                 13155     13157     13160     13162     13163     13165     13167
                                                                 13173     13174     13202     13204     13206     13210     13212
                                                                 13216     13222     13223     13225     13241     13242     13244
                                                                 13246     13250     13252     13254     13260     13262     13264
                                                                 13266     13272     13276     13300     13302     13304     13306
                                                                 13312     13320     13322     13326     13332     13334     13340
                                                                 13342     13344     13350     13356     13360     13363     13365
                                                                 13367     13371     13373     13375     13377     13401     13403
                                                                 13405     13410     13412     13414     13416     13420     13422
                                                                 13424     13426     13430     13432     13436     13440     13446
                                                                 13450     13454     13461     13463     13466     13470     13472
                                                                 13474     13504     13507     13511     13513     13514     13516
                                                                 13523     13525     13527     13531     13535     13541     13543
                                                                 13547     13551     13553     13555     13557     13561     13563
                                                                 13567     13570     13572     13574     13576     13600     13602
                                                                 13612
          FEC=EXU         4   FEC                 LEX            14523     14524     14527     14530     14532     14535     14537
                                                                 14542     14543     14545     14546     14554     14556     14564
                                                                 14570     14571     14573     14574     14576     14577     14601
                                                                 14603     14606     14607     14610     15207
                                                  DATA           21535
                                                  PAR            32640
          V=ADD.C         4   QSKEL     
          L.TTLA          5   FTN                 PUC             5345
          V=SUB.I         5   QSKEL               IO             30647     30652     31213     31227
                                                  PAR            32172     32243
          FEC=END         5   FEC                 LEX            14544     14611
          V=SUB.B         5   QSKEL     
          BN=APL          5   PUC                 FUN            45274
                                                  GEN            51155
                                                  FAS            52217
          L.TA            5   FTN                 PUC             5355
          FV.LGO          5                       PUC             4641      5106
                                                  REC            51263     51350     51453
                                                  FAS            52134     52335
                                                  INIT10         61176     61202     61227
          ERR.K           5   PUC                 FERRS          13220
          ERR.C           6                       PEM            13665
          ES=LEN          6   PAR                 QSKEL          44044
          BN=IOAP         6   PUC                 FEC             6600
                                                  GEN            51162
          FEC=BY          6   FEC                 ALLOC          14420
                                                  LEX            15234
                                                  CDDIR          21243     21267     21310     21325
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    75  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=SUB.R         6   QSKEL     
          L.TTLB          6   FTN                 PUC             5350
          L.CCB           7                       PUC             5363
          BN=NLST         7   PUC                 FEC             6652
                                                  GEN            51167
          N.ERRT          7                       FEC             7721
                                                  PEM            13667
          L.CCA           7   FTN                 PUC             5361
          L.TB            7                       PUC             5357
          V=SUB.D         7   QSKEL     
          FEC=DAT         7   FEC                 LEX            14536     14563
          BT.IDN8        10   FAS       
          BN=VAR         10   PUC       
          FEC=FMT        10   FEC                 LEX            14552
          V=SUB.C        10   QSKEL     
          BN=SUB         11   PUC                 GEN            50666
                                                  FAS            52152     52336     52563
          L.C$           11   FTN                 FEC             7725
          BT.IDN9        11   FAS                 REC            51342
          FEC=ENT        11   FEC                 LEX            14547
          V=MUL.I        11   QSKEL               IO             30674     31245     31272
                                                  PAR            32174     32244     34331     36410
          V=MUL.B        11             
          FEC=TYP        12   FEC                 LEX            14526     14531     14534     14541     14557     14562     14575
          V=MUL.R        12   QSKEL               PAR            32202     34334
          BN=SUB0        12   PUC                 FAS            52151     52340     52561
          V=MUL.D        13   QSKEL               PAR            34337
          FEC=PRM        13   FEC                 LEX            14567
          BN=BUF         13   PUC                 QCGC           42331
          L.TWO          14   FTN                 PUC             5333
          V=MUL.C        14   QSKEL               PAR            34342
          N$LBT          14   PUC       
          FEC=OK         14   FEC                 LEX            14612     14613     14614     14615     14616     14617     14620
                                                                 14621
          Z.LBT          14   PUC                 FEC             7711
                                                  REC            51462
          Z$LBT          14             
          L.CC           15   FTN                 PUC             5335
          V=DIV.B        15   QSKEL     
          L.TITL         15   FTN                 PUC             5325
          V=DIV.I        15   QSKEL     
          V=DIV.R        16             
          V=DIV.D        17             
          ES=LGE         20   PAR                 QSKEL          43760
          V=DIV.C        20   QSKEL     
          V=DVC.R        21                       PAR            32170
          L.APLF         21   FUN                 QCGC           41573
          V=UMI.R        22   QSKEL     
          V=UMI.I        22                       PAR            32173
          V=UMI.D        23             
          V=UMI.C        23             
          ES=LGT         24   PAR                 QSKEL          43761
          V=LT.I         24   QSKEL     
          V=LT.B         24             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    76  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=LT.R         25             
          V=LT.D         26             
          ES=LLE         27   PAR                 QSKEL          43762
          V=LT.H         27   QSKEL     
          V=LLT          30                       PAR            32237
          ES=LLT         30   PAR                 QSKEL          43763
          OMI=CPX        30   QSKEL               PAR            35162
          V=GE.I         31             
          V=GE.B         31             
          ES=MASK        32   PAR                 QSKEL          44045
          V=GE.R         32   QSKEL     
          V=GE.D         33             
          V=GE.H         34             
          V=LGE          35                       PAR            32236
          V=NE.B         36             
          V=NE.I         36             
          V=NE.R         37             
          W=IMV          37                       GEN            51212
          W=IMVC         37             
          W=SHLC         40             
          W=SHFC         40             
          V=NE.D         40             
          V=NE.C         40             
          V=NE.H         41             
          V=LNE          42             
          V=EQ.B         43             
          V=EQ.I         43             
          V=EQ.R         44             
          ES=SHIF        45   PAR                 QSKEL          44054
          V=EQ.D         45   QSKEL     
          V=EQ.C         45             
          V=EQ.H         46             
          V=LEQ          47             
          ERFO           47   FTN                 PUC             4702      4704      5304
                                                  FEC             7720
                                                  HEADER         17131     17153     17154
          N.TABLE        47   PUC                 FEC             7613      7615     10346     10403     10413
                                                  ALLOC          14147     14165     14204     14211     14240     14260     14263
                                                                 14310
                                                  DECL           23051     24220
                                                  QCGC           41641     41651
                                                  FUN            45232     45233
                                                  FAS            53035     53760     53776     54240
                                                  LIST           60540
          V=STR.B        50   QSKEL     
          V=STR.I        50                       IO             30707
                                                  PAR            32242
                                                  REG            47070
          V=STR.R        50             
          V=STR.C        51             
          V=STR.D        51             
          OMI=LCF        51                       PAR            35011
          V=STR.H        52                       PAR            32241
          V=CAT          53                       PAR            32154     36143
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    77  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.SORD         53   PUC                 FEC             7646
          V=COLON        54   QSKEL               PAR            32221
          V=SUBST        55                       PAR            32222     36044     36144     36210
                                                  CONRED         37503
                                                  QCGC           41757
          OM=INL         55                       PAR            34722
          OM=CONV        55                       PAR            32224
          V=FLOAT        56             
          V=ITOR         56             
          V=BOOL         57             
          V=CTOB         57             
          V=XMIT         57                       PAR            32227
          V=BTOR         57             
          V=RTOB         57             
          V=CTOR         57             
          V=REAL         57             
          V=BTOI         57             
          V=SNGL         57             
          V=DTOB         57             
          V=DTOR         57             
          V=ITOB         57             
          V=ITOC         60             
          V=ITOD         60             
          V=INT          61                       PAR            32223
          V=DTOI         61             
          V=IFIX         61             
          ES=LOCF        61   PAR                 QSKEL          43765
          V=RTOI         61   QSKEL     
          V=CTOI         61             
          V=IDINT        61             
          V=DBLE         62             
          V=RTOD         62             
          V=BTOD         62             
          V=BTOC         62             
          V=RTOC         62             
          V=DTOC         63             
          V=CTOD         63             
          V=NOT.B        64             
          V=NOT.L        64                       PAR            32203
          V=COMPL        64             
          W=IDV          65                       GEN            51213
          V=AND          65             
          W=IDVC         65             
          V=AND.L        65             
          V=AND.B        65             
          Z.CHMAP        66   FEC       
          V=EQV.L        66   QSKEL     
          V=EQV          66             
          V=EQV.B        66             
          V=OR.B         67             
          V=OR.L         67             
          V=OR           67             
          V=NEQV.        70             
          V=XOR          70             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    78  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=NEQV         70             
          V=XOR.B        70             
          V=XOR.L        70             
          ES=RANF        71   PAR                 QSKEL          44052
          V=ABS          71   QSKEL     
          V=IABS         71             
          V=SUM1S        72             
          V=AIMAG        73             
          W=SHRC         73             
          W=IDP2         73             
          V=AINT         74             
          V=ANINT        75             
          V=MAX0         76                       IO             30666     31265
          V=AMAX0        76             
          V=DMAX1        77             
          Z.INTA         77                       PAR            32562
          V=AMIN0       100             
          V=MIN0        100             
          V=DMIN1       101             
          V=MAX1        102             
          V=AMAX1       102             
          V=MIN1        103             
          V=AMIN1       103             
          V=AMOD        104             
          V=CONJG       105             
          Z.SYMVP       105   FEC                 INIT10         61241     61244
          V=CMPLX       106   QSKEL               PAR            34727
          V=DABS        107             
          V=DDIM        110             
          V=DIM         111             
          V=DINT        112             
          V=DPROD       113             
          V=DNINT       114             
          CP.ABT        114   FTN                 PUC             4751
          CP.ERCT       115                       PUC             4751
                                                  PEM            14027
          V=DSIGN       115   QSKEL     
          V=IDNIN       116             
          V=NINT        116             
          CP.LSTF       116   FTN                 PUC             4615
          V=SIGN        117   QSKEL     
          CP.PAGE       117   FTN                 PUC             4616      4670      5370
          V=ISIGN       117   QSKEL     
          V=IDIM        120             
          CP.EPAG       120   FTN                 PUC             4673      4677      5371
          CP.BLF        121                       PUC             4616
                                                  MAP            55057
          V=MASK        121   QSKEL               PAR            34757
          V=MOD         122             
          CP.PD         122   FTN                 PUC             5131      5311      5313
          V=RANF        123   QSKEL               PAR            32234
          V=SHIFT       124                       PAR            34772     34776     35004
          V=DOBS        125                       PAR            32176
          V=DOBL        126                       PAR            32200
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    79  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.MXFL       126   FTN                 PUC             4714      4741
                                                  INIT10         61224
          V=DOBZS       127   QSKEL               PAR            32175
          OMI=LEN       130                       PAR            34740
          CP.IFMT       130   FTN                 PUC             4626
                                                  LEX            15017     15302     15314
                                                  INIT10         61160
          V=DOBZL       130   QSKEL               PAR            32177
          V=DOC.S       131                       LABEL          41037
          Z.SYMDB       132   FEC                 INIT10         61251
          V=DOC.O       132   QSKEL               LABEL          41040
          V=DOC.L       133             
          CP.ILFL       133   FTN                 PUC             4764      5010
          V=DOC.R       134   QSKEL     
          GT1           135   FTN                 PUC             4765      4767      4771      5004      5006      5012      5015
                                                                  5036      5041      5134      5135      5220      5222      5224
                                                  FAS            54307     54311
          V=DOC.D       135   QSKEL     
          V=IOLC        136                       IO             31555
          V=LCIF        137                       IO             31537
          CP.FLIN       137   FTN                 FEC             7521
                                                  LEX            15053     15117     15127     15147     15246     15253     15265
                                                                 15276
          V=GOTO        140   QSKEL               KEY            20307     20667     20764
                                                  LABEL          40776
          V=AGOTO       141                       KEY            20350
          CP.CARD       141   FTN                 PUC             4630      4664
                                                  LEX            15012     15254     15305     15311     15313
          OMI=SHF       141   QSKEL     
          V=CGOTO       142                       KEY            20374
          Z.SYMIL       143   FEC                 INIT10         61253
          V=JGOTO       143   QSKEL               KEY            20402
          V=RGOTO       144                       KEY            17760
          V=ASSGN       145                       KEY            17674
          V=BSS         146                       KEY            21026
                                                  PAR            32226
                                                  GEN            50136
          V=ARY         147                       PAR            32205     36373
                                                  QCGC           41773
          V=GAP         150                       PAR            32214
          V=FAP         151                       PAR            32213
          V=IAP         152                       PAR            32215
          V=APIOC       153                       PAR            32216
          V=APIOD       154                       PAR            32217
          V=APIOU       155                       PAR            32220
          V=SUBR        156                       KEY            17753
          V=FUNC        157                       PAR            32210
          V=LIBF        160                       PAR            32212
          V=INTF        161                       PAR            32211
          V=IOSUB       162                       IO             27556
          V=ERR         163                       PAR            32162     32164     32207
          V=STOP        164                       KEY            21165
          V=PEND        164             
          V=PAUS        165                       KEY            21166
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    80  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=RET         166                       KEY            20034     20223
          V=RTNK        167                       KEY            20240
          V=GPL         170                       PAR            32246
          V=ENTR        171                       KEY            20100
          V=BVD         172                       FEC             7705
                                                  QCGC           41615     41707
          V=EVD         173                       FEC             7552
          V=SEG         174             
          V=NOOP        175                       FEC             7447
                                                  KEY            20736
                                                  IO             31542     31561
                                                  PAR            32225
                                                  LABEL          41066     41074     41161
                                                  QCGC           41710
                                                  GEN            50507
          V=HDR         176                       HEADER         17171
          V=FILE        177                       HEADER         17273
          V=PLIM        200                       HEADER         17310
          V=SEX         201                       HEADER         17005     17312     17553
          CP.AFLS       201   FTN                 PUC             4712      4720      4726      5002      5214      5225      5227
                                                  ALLOC          14347
                                                  INIT10         61164     61223
          CP.NFLS       202                       PUC             5226      5230
                                                  INIT10         61210     61222
          V=CDLOO       202   QSKEL               CDDIR          21345
          V=CDDOT       203                       CDDIR          21234
          CP.AFLL       203   FTN                 PUC             5010
          V=CDCS        204   QSKEL               CDDIR          21220
          CP.MODL       205   FTN                 FAS            54054
          V=DATA        205   QSKEL               DATA           21554
          V=FIN         206                       FEC             7131
          V=LCC         207                       HEADER         17066
          V=DVI         210                       DATA           21775
                                                  PAR            32206
          V=EXP.I       211                       PAR            32235
          F.IN          211   FTN                 PUC             4631
                                                  LEX            15312
          V=DOBD2       212   QSKEL     
          V=R123        213             
          V=I123        213             
          V=D123        213             
          OM=IF         213                       KEY            20702
          V=I122        214             
          V=R122        215             
          V=D122        215             
          V=I113        216             
          V=R113        217             
          V=D113        217             
          V=I121        220             
          V=RN23        221             
          V=IN23        221             
          V=DN23        221             
          F.OUT         221   FTN                 PUC             4624      4671      5340
                                                  ALLOC          14434
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    81  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=I1N3        222   QSKEL     
          V=R1N3        223             
          V=D1N3        223             
          V=D12N        224             
          V=R12N        224             
          V=I12N        224             
          V=IN22        225             
          V=DN22        226             
          V=RN22        226             
          Z.INTF        227                       FEC            10422
          V=I1NN        227             
          V=R1NN        230             
          V=D1NN        230             
          V=INN3        231             
          F.ERRS        231   FTN                 PUC             4674
          V=RNN3        232   QSKEL     
          V=DNN3        232             
          V=I11N        233             
          V=D11N        234             
          V=R11N        234             
          V=IN2N        235             
          V=RN2N        235             
          V=DN2N        235             
          V=I1N1        236             
          V=IFT         237                       KEY            20720
          V=IFF         240                       KEY            20720
          V=R111        241             
          V=I111        241                       KEY            20663
          F.LGO         241   FTN                 PUC             4643      5107      5111
                                                  ALLOC          14436
                                                  FAS            52136     52304     52350     54310
                                                  INIT10         61204
          V=D111        241   QSKEL     
          V=IEQ.I       242                       PAR            33666
          V=IEQ.R       243                       PAR            33667
          V=IEQ.D       244                       PAR            33670
          V=IEQ.C       245                       PAR            33671
          V=INE.I       246                       PAR            33666
          V=INE.R       247                       PAR            33667
          V=INE.D       250                       PAR            33670
          B=FTN         251   FTN                 RPV10           2633
          V=INE.C       251   QSKEL               PAR            33671
          Z.SCT         252             
          Z.SKCR        252             
          SYS=          253   FTN                 UTILITY         3053      3125      3372
                                                  PUC             4763      4770      4773      4777      5007      5016      5020
                                                                  5040      5223
                                                  INIT10         61157     61220
          RCL=          266                       UTILITY         3503      3541      3705      3744
          WNB=          272                       UTILITY         2732      3053      3125      3363      3630
                                                  PUC             4644      5051
                                                  REC            51316
          MSG=          302                       UTILITY         3054      3075      3077      3101      3103      3126
                                                  PUC             4744      4750      4775      5267
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    82  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC          14433
                                                  HEADER         17157
          INT.FL        310                       PUC             4722      5002
                                                  INIT10         61165
          F.PB          311                       PUC             4651      4654      5114
                                                  QCGLINK         5601      5602
                                                  QCGC           42134     42137
                                                  REC            51315     51320     51323     51352
                                                  FAS            54223     54227
                                                  INIT10         61200
          F.IL          321                       PUC             4637      5117
          F.REF         331                       PUC             4657      4662      5122
                                                  FEC            10246
                                                  ALLOC          14366
                                                  MAP            56135     56137     56144     56150
                                                  INIT10         61174
          MAX.FL        343                       PUC             5214
                                                  INIT10         61213
          NOM.FL        344                       ALLOC          14347
                                                  INIT10         61210
          RAPFLAG       347                       PUC             4627
          RS.PD         350                       PUC             5132
          TIME0         351                       PUC             4745
          TIME1         352                       LISTLNK         4053      4055
                                                  PUC             4722
                                                  INIT10         61240
          ENOT=L        353                       PEM            13737     13773
          CO.AL         354                       HEADER         17470
                                                  DECL           25002
          CO.ANSI       355                       PUC             4733
                                                  FEC             7147
                                                  PAR            36261
                                                  INIT10         61257
          CO.ARGC       356                       FAS            52120     54056
          CO.ARGF       357                       FUN            44432     44650
                                                  FAS            54057
          CO.DBER       360                       HEADER         17314
                                                  GEN            50123     50144     50552     50642
          CO.DBID       361                       KEY            20766
                                                  QCGC           42147
                                                  GEN            50124     50144     50303     50324     50371
                                                  REC            51341
          CO.DBPM       362                       HEADER         17313
                                                  DECL           22702
                                                  REC            51345
                                                  FAS            53120     53175
          CO.DBSB       363                       IO             30751
                                                  PAR            33020     35354
          CO.DBSL       364                       INIT10         61250
          CO.DBST       365                       QCGC           42147
                                                  REC            51341
          CO.DBTB       366                       PAR            34542
                                                  REG            46120
          CO.DS         367                       LEX            15036     15112
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    83  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.EL         371                       PEM            13663
          CO.ET         372                       PEM            14025
          CO.GO         373                       PUC             4756
          CO.LCM        374                       DECL           24045     25231
                                                  INIT10         61271
          CO.LL         375                       FAS            52264
                                                  LIST           60072
          CO.MD         376                       INIT10         61260
          CO.OPT        377                       PUC             4636      4645      4650      4661      5116
                                                  PAR            36362
                                                  LABEL          41035
                                                  REC            51373
                                                  FAS            52133     52247
                                                  LIST           60041
                                                  INIT10         61271
          CO.PS         400                       LISTLNK         3771
                                                  PUC             4615      5402
                                                  MAP            55057     56023     56245
                                                  LIST           60651
          CO.PW         401                       PUC             5130      5310      5321
                                                  PEM            13745
                                                  LEX            16556
                                                  HEADER         17146
                                                  FAS            52162
                                                  MAP            55352     55406     55462     56032     56053     56100     57150
                                                                 57170
                                                  LIST           57771
          CO.PWE        402                       PUC             4700
          CO.RNDA       407                       INIT10         61275
          CO.RNDS       410                       INIT10         61276
          CO.RNDM       411                       PAR            33533
                                                  INIT10         61277
          CO.RNDD       412                       PAR            33533
                                                  INIT10         61300
          CO.SEQ        413                       FEC             7151      7516
                                                  LEX            15024     15230
          CO.STAT       414                       HEADER         17234
                                                  GEN            51007     51114
          CO.WPL        416                       PEM            13760
                                                  LEX            16572     16600
          CO.C$         420                       FEC             7725
          CO.CS         420                       QCGC           42037
          CO.DOLG       421                       PAR            35651
          CO.DOOT       422                       QCGC           42037
          CO.LOA        423                       CDDIR          21334
                                                  INIT10         61167
          CO.LOM        424                       CDDIR          21337
                                                  INIT10         61170
          CO.LOO        425                       PUC             4641
                                                  CDDIR          21342
                                                  REC            51263     51351
                                                  INIT10         61166     61176     61227
          CO.LOR        426                       FEC             7602      7727
                                                  CDDIR          21350
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    84  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT10         61170     61173
          CO.LOS        427                       FEC             7732
                                                  CDDIR          21356
          CO.QC         430                       REC            51265
          TL.EJCT       440                       PUC             4701
          O.TITL        440                       PUC             5325
          TL.PTYP       441                       PUC             5347
                                                  FEC             7717
                                                  HEADER         17131     17143
                                                  FAS            54054
          TL.PNAM       442                       HEADER         17151
          TL.CSOP       444                       REC            51340
          O.TTLA        447                       PUC             4703      5345
          TL.DATE       451                       FAS            54047
          TL.TIME       452                       FAS            54051
          TL.PAGE       454                       PUC             5324      5343
          O.CPV         455                       PUC             5332      5354
          O.TA          462                       PUC             5356
          O.CC          471                       PUC             5334      5360
          O.C           500                       PUC             5362
          LDCOM         524                       PUC             4674      4676
          W=MASKV       533   QSKEL               GEN            51214
          W=MASKC       541             
          W=MODG        543                       GEN            51215
          W=MODP2       553             
          W=SHIFV       565                       GEN            51216
          ABTFTN        600   FTN                 PUC             4755
                                                  ALLOC          14440
          MEMERR        603                       INIT10         61214
          COD           615                       UTILITY         3051      3123      3165
                                                  PUC             4741
                                                  LIST           60320
          W=DOC.K       621   QSKEL     
          L=TABLE       632   PUC                 FEC             7614
          W=IAPS1       732   QSKEL               FUN            44543
          W=IAPD1       733                       FUN            44543
          W=IAPS2       735                       FUN            44544
          W=IAPD2       736                       FUN            44544
          W=APSTR       743                       FUN            45530
          W=IPLG0       745                       FUN            45523
          W=CAPST       754                       FUN            45604
          W=CIS0S       757                       FUN            45605
          W=CIA0S       770                       FUN            45606
          W=LUA        1001                       FUN            45263
          W=SUA        1003                       FUN            45622
          W=PROM       1035                       GEN            50644
          W=PROS       1041                       GEN            50647
          W=MFPNT      1043                       GEN            50543
          W=FUNT       1045                       GEN            50541
          W=DFENT      1051                       GEN            50530
          W=TMENT      1055                       GEN            50525
          W=ALENT      1061                       GEN            50241
          W=TENT       1067                       GEN            50523
          RPV=RNA      2630   RPV10               UTILITY         3156
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    85  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          B=RPV10      2630             
          B=UTILI      2677   UTILITY             RPV10           2635
          CDD          2702                       LISTLNK         4002      4021      4031      4041      4045
                                                  PUC             5257      5320
                                                  FEC             7424      7430     10332
                                                  LEX            15026     15241
                                                  FMT            26220
                                                  IO             30043
                                                  MAP            55711     56362     56422     56570     56600     56617     56705
                                                                 56743     57206     57300     57316     57345     57446
                                                  LIST           57757     60072
          CDD=         2702             
          DXB          2721                       FEC             7045
                                                  LEX            16042
                                                  FAS            53321
          FA=SET       2730                       PUC             4653      4663
                                                  INIT10         61175     61201     61205
          MVE=         2771                       PUC             5244      5252
                                                  FEC             7557      7641      7703      7726     10376
                                                  PEM            13752
                                                  ALLOC          14271     14277
                                                  LEX            15266     16571
                                                  HEADER         17064     17417
                                                  KEY            20006
                                                  DATA           22206     22407     22450
                                                  DECL           23102     23200     25110
                                                  FMT            26266
                                                  IO             27566     27603     27760
                                                  PAR            34553     36122
                                                  CONRED         37214
                                                  STMTF          40234
                                                  LABEL          41324     41352     41440     41504     41515
                                                  QCGC           41624     41630
                                                  FUN            45463
                                                  GEN            50267
                                                  FAS            52215     53044
                                                  MAP            56041
                                                  LIST           60560     60621
          RPV=         3027                       INIT10         61153     61156
          FRA=         3156             
          MNS=         3231                       CONRED         37227
          SBM=         3310                       FEC             7644      7646      7711      7723
                                                  DATA           22411
                                                  QCGC           41573
                                                  REC            51457
                                                  MAP            55166     55364     55734     56043     56066     57163     57234
          SFN=         3315             
          SFN          3315                       PUC             5235
                                                  PEM            13735
                                                  LEX            15143     15321
                                                  HEADER         17142
                                                  FAS            52322
                                                  MAP            55162     55323     55360     55730     56062     56072     56532
                                                                 56754     56763     57157     57230
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    86  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LIST           60031     60066     60252     61045
          SST          3333                       FAS            53213     53243
                                                  MAP            55270     55306     55603
                                                  LIST           60375
          WOD          3336                       FAS            53327
                                                  MAP            57436     57461
                                                  LIST           60306     60414     60554     60612     60643
          ZTB          3354                       LEX            15232
                                                  KEY            21144
                                                  MAP            56552     56723
                                                  LIST           60155     60544
          ZTB=         3354             
          CIO=         3373                       PUC             4640      4655      4660      4672      4675      5110      5112
                                                                  5115      5120      5123      5137
                                                  QCGLINK         5603
                                                  ALLOC          14435     14437
                                                  REC            51324     51353
                                                  FAS            52305     52351
                                                  MAP            56136     56140     56145
          RDC=         3401                       PUC             4632
                                                  LEX            15312
          RDW=         3426                       FAS            54223     54230
                                                  MAP            56150
          WTH=         3565                       PUC             4625      5136      5314      5326      5333      5335      5341
                                                                  5346      5350      5355      5357      5361      5363      5365
                                                                  5417      5425
          WTO=         3620                       QCGC           42135     42137
          WTW=         3642                       FEC            10246
                                                  ALLOC          14366
                                                  FAS            54310
          WTX=         3727             
          DCB=         3742             
          B=LISTL      3751   LISTLNK             RPV10           2636
          LUS          3751                       PUC             4720
          ORIGINS      4142   PUC       
          B=PUC        4142                       RPV10           2637
          T.TB         4142                       LEX            14701     14710     14712     14747     14754     16633
                                                  DECL           24023
                                                  IO             31415
                                                  PAR            33371
          T.LGOB       4142                       FAS            52137
          BASES        4142                       FEC             7604      7622
                                                  ALLOC          14175     14262     14274     14302     14323     14325     14357
          O.P2NUL      4142             
          T.PTXTR      4143                       FAS            52747     53004     53054     53055     53432     53510     53522
                                                                 53634
                                                  LIST           60412
          T.ARG        4143                       HEADER         17344     17355     17405     17416     17504
                                                  KEY            20002     21161
                                                  PAR            34550     34702     34710     35037
          T.LINK       4144                       FAS            52125     53210     53214     53233     54164
          T.EQUS       4144                       DECL           23370     23377     23401     23403     23411     23417     23421
                                                                 24237     24502     24547     24562     24570     24624     24642
                                                                 24705
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    87  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.STF        4144                       ALLOC          14326
                                                  PAR            34622     34647
                                                  STMTF          40277
          T.DVV        4145                       CONRED         37636     37673     40044     40051
          T.IOARG      4145                       IO             27040     27100     27147     27163     27324     27602     27760
                                                                 30230     30344     30422     30553     31330
                                                  PAR            36120
          T.SLARG      4145                       KEY            20005
                                                  PAR            35042
          T.FPO        4145                       REC            51433     51601
                                                  FAS            52570
          T.COMM       4145                       FEC             7707
                                                  DECL           22620     24055     24136     24527     24566     24775
          T.BLST       4146                       FEC             7410
                                                  KEY            20355     20430     20454     20463     20501     20510     20562
                                                                 20565     20572     20743     20760     21001
                                                  PAR            33317     34061     34124     34141     34163     34167
                                                  LABEL          40442     40537     40616     40676     40717     40725     40755
                                                                 41034     41053     41063     41070     41116     41145     41155
                                                                 41163     41176     41215     41253     41262     41270     41314
                                                                 41322     41347     41356     41435     41443     41452     41464
                                                                 41472     41502     41510     41521
          T.DATI       4147                       DATA           21702     21717     22023     22116     22165     22434     22445
                                                                 22472
          T.PTXT       4147                       FAS            52745     53000     53050     53052
          T.OUS        4147                       QCGC           41632     41717     41722     41725     41734     41777     42004
                                                                 42007
                                                  FUN            44745     44754     45174     45610
                                                  REG            46176     46264     46317     46341
          T.SCR        4147                       IO             27577     27602     27755     27757
                                                  STMTF          40131     40134     40163     40167     40171     40215     40241
                                                                 40255
                                                  LABEL          41317     41325     41340     41351     41413     41426     41437
                                                                 41500     41513
                                                  FAS            53075     53102     53105     53115     53140     53157     53347
                                                                 54315
                                                  MAP            55136     55266     55520     55563     55602     55633     55773
                                                                 56337
                                                  LIST           60363     60376
          T.ILI        4150                       IO             30376     30476
          T.FILL       4150                       FAS            52127     53241     53244     54162
          T.EOT        4150                       DECL           24500     24520     24521     24565     24570     24642
          T.DATL       4150                       DATA           21545     21601
          T.DATS       4151                       DATA           22147     22161     22174     22203     22232
                                                  GEN            51071
                                                  FAS            52471     52750     53043
          T.SAP        4151                       FUN            44423     44425     44434     44463     44476     44506     44524
                                                                 44652     44770     45566
          T.IOLC       4151                       IO             27565     31540     31545     31557     31564     31572
          T.XFIL       4152                       FAS            52131     53262     54203
          T.PAR        4152                       FEC             7445      7554
                                                  ALLOC          14327
                                                  KEY            20722     20771     21111
                                                  DATA           21757
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    88  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           23161     23176
                                                  IO             27562     30111
                                                  PAR            33342     33401     33757     33766     35447     35513     36042
                                                                 36047     36101     36116     36141     36206     36236     36353
                                                                 36376     36422
                                                  CONRED         37501
                                                  QCGC           41575     41614     41623     41626     41631     41634     41635
                                                  FUN            45065     45100     45114     45120     45132     45207     45505
                                                  REG            45751     46177     47073     47212     47373
                                                  GEN            50264     50266     50276     50506
          T.DAR        4152                       CONRED         37613     37623     37656     37700     40073     40100
          T.PCS        4153                       PAR            33100     33102     33105     33463
          T.CLWB       4154                       FAS            53701     53724
                                                  LIST           60637
          T.STMT       4154                       LEX            14704     15255     15273     16164     16167     16174     16177
                                                                 16537     16637
          T.SUB        4155                       REC            51454
                                                  FAS            52336     52670
                                                  LIST           61062
          T.SUB0       4156                       REC            51577     51601
                                                  FAS            52340     52723
          T.VDIM       4156                       FEC             7540      7551      7557      7704
                                                  DECL           22775     23005     23017     23173     23217     23234     23264
                                                                 23276     23344
                                                  QCGC           41621     41624
                                                  GEN            50266
          T.C$IF       4157                       CDDIR          21265     21274     21313
          O=CLW        4160             
          T.CLW        4160                       FUN            45403     45416
                                                  FAS            53702
                                                  LIST           60635
          O.P2USE      4160             
          T.CAC        4161                       FUN            45022     45047     45330
                                                  FAS            53471     53564
                                                  LIST           60466     60750
          O=CAC        4161             
          T.APL        4162                       FUN            45265     45457     45467
                                                  FAS            52210     52212     53436
                                                  LIST           60367     61027
          O=APL        4162             
          T.IOA        4163                       IO             31155     31520     31527     31547
                                                  FUN            44551     44556     44562     44566     44606     44613     44614
                                                                 44625     44637
                                                  FAS            53523
          O=IOA        4163             
          T.API        4164                       QCGC           42032
                                                  FUN            44423     44434     44463     44652     45276     45565
                                                  REC            51511
                                                  FAS            54214
                                                  LIST           60365
          O=API        4164             
          T.IOI        4165                       QCGC           42030
                                                  FUN            44551     44566     44606     44625
                                                  REC            51513
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    89  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FAS            54215
          O=IOI        4165             
          T.GL         4166                       QCGC           42021     42033
                                                  REC            51507
                                                  FAS            54213
          O=GL         4166             
          O=ASG        4167             
          T.ASG        4167                       KEY            17704     17706
          O=CON        4170             
          T.CON        4170                       PEM            13647
                                                  LEX            16451     16505
                                                  KEY            21145
                                                  CDDIR          21256
                                                  DATA           22176     22205     22277     22366     22404     22412     22467
                                                  DECL           23133     23655
                                                  FMT            26226
                                                  PAR            32426     32460
                                                  CONRED         37205     37232     37244     37523     37536     37560     37575
                                                  FUN            45057
                                                  FAS            52241
                                                  MAP            57375     57417     57431     57460
                                                  LIST           57776
          T.CUT        4171             
          T.LA         4171                       GEN            51241
                                                  FAS            53334
          O=CUT        4171             
          T.SYM        4172                       FEC             7237      7301      7342      7366      7415      7466      7636
                                                                  7744      7762     10036     10053     10073     10165     10203
                                                                 10447
                                                  HEADER         17270     17420     17466     17516
                                                  KEY            17637     17676     20065     20072     20362     20472     20645
                                                                 20751     21035
                                                  DATA           21767     22211
                                                  DECL           22720     23472     23676     23714     24070     24137     24162
                                                                 24205     24242     24271     24371     24470     24656     24705
                                                                 24754     24765     24776     25064     25071     25076     25112
                                                                 25152     25212     25226     25250
                                                  TYPE           25452     25461     25472     25614     25637
                                                  FMT            26067     26257
                                                  IO             27464     30017     30052     30137     30322     30466     30505
                                                                 31321
                                                  PAR            32631     32664     32675     32736     32742     33004     33041
                                                                 34147     34611     34650     35102     35555     36051     36130
                                                                 36215
                                                  CONRED         37631     37636     37671     37776     40010     40042     40055
                                                                 40101
                                                  STMTF          40261     40267     40301
                                                  LABEL          40365     40542     40551     40565     40573     40752     41206
                                                                 41220     41244     41304     41331     41360     41366     41416
                                                                 41455
                                                  QCGC           42045     42303
                                                  FUN            45445     45630
                                                  REG            46260     46301     46602
                                                  GEN            47705     50217     50230     50333     50403     50424     50447
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    90  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 50533     50742     50774
                                                  REC            51357     51420     51473     51515     51562     51611     51634
                                                  FAS            52142     52146     52254     52324     52433     52517     52543
                                                                 52565     52707     52754     53065     53142     53215     53310
                                                                 53336     53347     53452     53542     53642     54143     54255
                                                  MAP            55074     55514     55516     55634     56152     56275     56341
                                                                 56356     56413     56443     56476     56526     56542     56562
                                                                 56614     56627     56664     56733     56761     57002     57177
                                                                 57262     57310     57326     57366
                                                  LIST           57740     60004     60027     60056     60177     60445     60540
                                                                 60732
          O=SYM        4172             
          T.BLKS       4173                       LISTLNK         3760      4007
                                                  FEC             7262      7706      7756     10012
                                                  DECL           22560     22567     22621     23620     23624     23757     23765
                                                                 24032     24060     24062     24107     24135     24526     24671
                                                                 24733     24774     25213
                                                  REG            46303
                                                  REC            51567
                                                  FAS            53123     53166
                                                  MAP            55302     55574     55667     56462
          O=BLKS       4173             
          T.NLST       4174                       KEY            20165     20173     21034     21064
                                                  FAS            54246
          O=NLST       4174             
          T.DIM        4175                       FEC             7700      7764
                                                  KEY            20156     21035
                                                  DATA           21771
                                                  DECL           23050     24264     24641     24776
                                                  IO             27466     30325     30774     31052
                                                  PAR            35343     35477
                                                  CONRED         40012
                                                  GEN            50462
                                                  REC            51551     51640
                                                  FAS            53362     53460     53732     53744     54265
                                                  MAP            56670     57270
                                                  LIST           60454
          O=DIM        4175             
          T.ENTP       4176                       HEADER         17365     17377     17414
                                                  DECL           25117     25122     25124     25136
                                                  GEN            50335     50406     50427     50452     50612     50616     50631
                                                                 50716     50724     50756
                                                  MAP            56564
          O=ENTP       4176             
          T.FPI        4177                       FEC             7302
                                                  HEADER         17513     17523
                                                  DECL           25105     25111     25145     25155     25263
                                                  TYPE           25627
                                                  FUN            45446
                                                  REG            46621
                                                  GEN            50744
                                                  REC            51435
                                                  FAS            52667     52711
                                                  LIST           61056
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    91  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=FPI        4177             
          T.VDI        4200                       HEADER         17532
                                                  DECL           22773     23003     23015     23216     23273     23335     25272
                                                  GEN            50444     50502     50506
          O=VDI        4200             
          O.P2SAV      4201             
          T.REF        4201                       FEC             7603     10261
                                                  ALLOC          14357     14364
                                                  MAP            56142     56146     56160     56230     57204
          T.LCA        4202                       DECL           24031     24061
                                                  FAS            52213     52216     54216
          T.ECT        4203                       DECL           24476     24652     24704     24731
                                                  MAP            55305     55553     55557     55564     55646     55653
          T.ENT        4204                       HEADER         17167
                                                  KEY            20075
                                                  FAS            53143
          T.LNT        4205                       FAS            52741     53061     53322
          T.LCC        4206                       HEADER         17061
                                                  FAS            52301
          T.FMT        4207                       FMT            26263
                                                  FAS            52246
                                                  LIST           60605
          T.END        4210                       FEC             7616
                                                  ALLOC          14372
          L.P2NUL      4211             
          T=TB         4211                       FEC             7135
                                                  LEX            14712     16521     16634
          SIZES        4211                       FEC             7621
                                                  ALLOC          14205     14212     14254     14275
          T=LGOB       4211                       FAS            52135
          T=PTXTR      4212                       FAS            52226     52232     52272     52277     52745     53056
          T=ARG        4212                       HEADER         17350     17406     17424
                                                  KEY            17712
                                                  PAR            34547     34702     34710     34713     34714
                                                  LABEL          40614
          T=EQUS       4213                       ALLOC          14414
                                                  DECL           24236     24366     24475     24550     24701     24706     24747
          T=STF        4213                       FEC             7134
                                                  ALLOC          14411
                                                  STMTF          40277
          T=LINK       4213                       ALLOC          14337
                                                  FAS            52123     53210     53214     53240
          T=FPO        4214                       REC            51334     51602
          T=COMM       4214                       DECL           22562     22571     24022
          T=SLARG      4214                       KEY            17711     20003     20007
                                                  PAR            34504
          T=IOARG      4214                       IO             27240     27545     30225
                                                  PAR            36115     36120
          T=DVV        4214                       CONRED         37610     37635     37640     40047
          T=BLST       4215                       FEC             7407      7421     10226
                                                  ALLOC          14414
                                                  KEY            17736     20045     20214     20353     20425     20430     20454
                                                                 20463     20501     20510     20521     20565     20743     20760
                                                                 21001
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    92  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             30535     30601     30627     30631
                                                  PAR            33071     33317     33730     34060     34062     34124     34137
                                                                 34163     34167
                                                  LABEL          40413     40441     40537     40577     40617     40717     40725
                                                                 40755     40762     41035     41053     41115     41145     41172
                                                                 41174     41176     41215     41253     41270     41314     41321
                                                                 41323     41335     41423     41464     41466     41472     41502
                                                                 41505     41521     41524
          T=DATI       4216                       DATA           21527     21542
          T=OUS        4216                       QCGC           41605     41613     42003
          T=SCR        4216                       FEC             7135     10027
                                                  ALLOC          14413
                                                  IO             27576     27604     27754     27761
                                                  PAR            33366
                                                  STMTF          40113     40145     40176     40241     40312
                                                  LABEL          41336     41345     41413     41424     41433     41444     41471
                                                                 41507     41517
                                                  FAS            53077     53115     53136     53152     53156     53204     53420
                                                                 53731
                                                  MAP            55263     55267     55320     55512     55550     55602     55633
                                                                 55774     56242     56274
                                                  LIST           60363     60376
          T=PTXT       4216                       FAS            52744     53053
          T=DATL       4217                       DATA           21545     21561     21565     21606
                                                  LABEL          41042
          T=ILI        4217                       IO             27571     30362     30375
                                                  PAR            32717
          T=EOT        4217                       DECL           24517     24521     24710
          T=FILL       4217                       ALLOC          14340
                                                  FAS            52123     53240     53244
          T=IOLC       4220                       IO             27560     27564     30611
          T=DATS       4220                       ALLOC          14417
                                                  DATA           21530     21542     21553
                                                  GEN            51063     51074
                                                  REC            51333
                                                  FAS            52470     52477     52750
                                                  LIST           60015
          T=SAP        4220                       FUN            44445     44501     44504     44660     45316
          T=XFIL       4221                       ALLOC          14342
                                                  FAS            52124     53262     53267
          T=DAR        4221                       DATA           21541     21747
                                                  CONRED         37611
          T=PAR        4221                       FEC             7325      7567      7576
                                                  ALLOC          14213     14255     14272     14415
                                                  KEY            17762     20311     20506     20556     20722     20770     21004
                                                                 21073     21112
                                                  DECL           23111     23155     23160     23176
                                                  IO             27567     30614     30653     30657     30670     30676     31003
                                                                 31012     31047     31171     31214     31233     31237     31246
                                                                 31254     31266     31274     31312     31345
                                                  PAR            31733     31742     31760     32010     32320     33021     33152
                                                                 33342     33403     33565     33743     34071     34672     35670
                                                                 36015     36355
                                                  LABEL          41056     41170
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    93  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  QCGC           41605     41621     41625
                                                  FUN            44702
                                                  GEN            50263
          T=PCS        4222                       PAR            32317     33463     33466
          T=STMT       4223                       FEC             7145
                                                  ALLOC          14405     14407
                                                  LEX            16533
                                                  CDDIR          21363
          T=CLWB       4223                       FAS            52273     52300
          T=SUB        4224                       REC            51334
          T=VDIM       4225                       FEC             7535      7553      7556      7560
                                                  DECL           23160     23237     23266     23323     23326     23346
                                                  QCGC           41620     41623     41626
                                                  GEN            50264
          T=SUB0       4225                       REC            51335     51460     51602
          T=C$IF       4226                       FEC             7427
                                                  CDDIR          21274     21313
          L=CLW        4227             
          T=CLW        4227                       FUN            45417     45425
                                                  REC            51405
                                                  FAS            52276     53677     53702
                                                  LIST           60635
          L.P2USE      4227             
          L=CAC        4230             
          T=CAC        4230                       FUN            45054
          L=APL        4231             
          T=APL        4231                       ALLOC          14416
                                                  FUN            45265     45272     45456
                                                  REC            51330     51401
                                                  FAS            52205     52231     53432     53436
                                                  LIST           61030
          T=IOA        4232                       IO             31512     31567     31570
                                                  FUN            44556     44640
                                                  REC            51332     51403
                                                  FAS            52270     52277     53521     53523
                                                  LIST           60110
          L=IOA        4232             
          L=API        4233             
          T=API        4233                       REC            51331     51511
                                                  LIST           60362
          T=IOI        4234                       REC            51332     51513
          L=IOI        4234             
          T=GL         4235                       ALLOC          14417
                                                  QCGC           42017
                                                  REC            51330     51507
          L=GL         4235             
          L=ASG        4236             
          T=ASG        4236             
          L=CON        4237             
          T=CON        4237                       FEC             7056     10030
                                                  ALLOC          14413
                                                  DATA           21531     21537     22413     22420
                                                  FMT            26270
                                                  CONRED         37232     37241
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    94  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GEN            50660
                                                  REC            51326
          T=LA         4240                       GEN            51235
                                                  REC            51373
                                                  FAS            52247
                                                  LIST           60041
          L=CUT        4240             
          T=CUT        4240             
          L=SYM        4241             
          T=SYM        4241                       FEC             7237      7300      7366      7466      7636      7762     10035
                                                  DECL           24067     24161     24205     25211     25226     25251
                                                  TYPE           25637
                                                  QCGC           42046
                                                  REC            51417     51474     51515     51611     51635
                                                  FAS            53100     53350
                                                  MAP            55516     56152     56275
          T=BLKS       4242                       FEC             7261     10015
                                                  ALLOC          14421
                                                  DECL           22565     24032     24110     24140     24774
                                                  REC            51570
                                                  FAS            53114     53155
                                                  MAP            55276     55571
          L=BLKS       4242             
          T=NLST       4243                       ALLOC          14416
                                                  KEY            20133     20141     20201     21034     21065
                                                  REC            51327
                                                  FAS            52314     54246
                                                  LIST           60122
          L=NLST       4243             
          T=DIM        4244                       ALLOC          14412
                                                  REC            51551
                                                  FAS            53732
                                                  LIST           60122
          L=DIM        4244             
          L=ENTP       4245             
          T=ENTP       4245                       HEADER         17365
                                                  DECL           25120
                                                  GEN            50617     50733
          L=FPI        4246             
          T=FPI        4246                       DECL           25145
                                                  TYPE           25626
                                                  GEN            50603
                                                  REC            51333     51432
          L=VDI        4247             
          T=VDI        4247                       HEADER         17533
                                                  DECL           23271     25272
                                                  GEN            50444     50507
          L.P2SAV      4250             
          T=REF        4250                       FEC            10242
                                                  ALLOC          14353     14364     14420
                                                  IO             31003     31346     31350
                                                  MAP            56146     56157
          T=LCA        4251                       DECL           24052
                                                  REC            51331     51400
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    95  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FAS            52205     52213     52221
          T=ECT        4252                       DECL           24701     24745     24750
                                                  MAP            55275     55306     55556     55654
          T=ENT        4253                       ALLOC          14421
                                                  FAS            53137
          T=LNT        4254                       REC            51336
                                                  FAS            52124     53322
          T=LCC        4255                       FAS            52303
          T=FMT        4256                       ALLOC          14415
                                                  FMT            26067
                                                  REC            51327     51371
                                                  LIST           60604
          T=END        4257             
          RATES        4260                       FEC             7617
          TV=DECL      4327                       FEC             7605      7610
                                                  ALLOC          14361
          TV=EXU       4330                       FEC             7077      7606
                                                  ALLOC          14362
          TV=END       4331                       REC            51253
          TV=CUR       4332                       FEC             7100      7612
                                                  ALLOC          14200     14222     14260     14363
                                                  REC            51255
          F$LBT        4333             
          F.LBT        4333                       FEC             7710
                                                  QCGC           42350     42353
                                                  REC            51371     51417     51452     51452     51462     51476     51625
                                                                 51662
                                                  FAS            52152     52153     52220     52572     54111     54114
                                                  LIST           60357     60613     60660
          SUM.LBT      4347                       LISTLNK         4000      4002
                                                  REC            51473     51536
                                                  FAS            52141     53117
                                                  LIST           60025
          COMSIZ       4350                       LISTLNK         3765      3767      4025      4035
                                                  REC            51533     51537
          ALC.PAR      4352                       FEC             7611
                                                  ALLOC          14213
                                                  REC            51254
          BINIO        4353                       QCGLINK         5605
                                                  REC            51317     51347
          BLNKCOM      4354                       LISTLNK         3756      4006
                                                  FEC             7507
                                                  DECL           22537     22575     23632     24111
                                                  CONRED         37743
                                                  MAP            55670     56464
          CBI          4355                       QCGC           42154     42300     42346     42354
                                                  FAS            52155     53761     54107     54115
          CHARDCL      4356                       FEC             7236      7507
                                                  DECL           24107     24161     25070
                                                  TYPE           25342     25722
          ERRORS       4357                       FEC             7724
                                                  PEM            14020
                                                  REC            51314     51463     51506
                                                  FAS            52140
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    96  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          N$FERR       4357             
          ENTRJ        4360                       GEN            50243     50247     50300     50377     50420     50441
          FAILSFT      4361                       FEC             7632
                                                  ALLOC          14402
                                                  MAP            55055
          O.TABS       4362                       FEC             7612
                                                  ALLOC          14252     14256     14274     14371
                                                  INIT10         61207
          IDENT1       4363             
          RPV=MSG      4363                       UTILITY         3074
          HO$MSG       4364                       HEADER         17156
          HO$PRGN      4365             
          IDENT        4365                       ALLOC          14426
                                                  HEADER         17155     17220
                                                  TYPE           25613
                                                  FAS            52322     53117     54047
                                                  LIST           60020     60077     60155
          IO.TEM       4366                       FEC             7504
          LCNT         4367                       LISTLNK         3771
                                                  MAP            55061     56023     56026     56245
          N$LINES      4367             
          LEVEL        4371                       FEC             7300      7511
                                                  HEADER         17500
                                                  DECL           23540     24135     25006
          LEVEL0       4372                       FEC             7313      7511
                                                  GEN            50423
          HO$LVL2      4373             
          LEVEL2       4373                       FEC             7512
                                                  HEADER         17501
                                                  DECL           23562     24067     25006
                                                  FAS            54061
          LINEBUF      4375                       PEM            13672     13744     13751     13754
                                                  FAS            52163     52164     52454     53330     54075     54103     54236
                                                                 54301
                                                  MAP            55104     55161     55163     55165     55360     55361     55363
                                                                 55727     55731     55733     56040     56042     56062     56063
                                                                 56065     56112     56117     56123     56124     57157     57160
                                                                 57162     57227     57231     57233
                                                  LIST           57727     57730     57764     60026     60034     60035     60050
                                                                 60053     60107     60157     60254     60276     60277     60307
                                                                 60313     60317     60405     60415     60415     60426     60552
                                                                 60560     60561     60617     60620     60622     60633     60642
                                                                 60644     60657     60662     60665     60672     61042     61062
                                                                 61065     61077     61100
          LINES        4413                       FEC             7520
                                                  CDDIR          21361
          HO$CSN       4413             
          RPV=CLN      4413                       UTILITY         3071
          CARDS        4413                       LEX            15026     15302
          LINENR       4413             
          LOSTREF      4414                       FEC             7633     10255
                                                  IO             31005     31351
                                                  MAP            56141
          MOD          4415                       FEC             7057      7340      7633     10175
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    97  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  HEADER         17011     17123     17130     17161     17340     17407     17440
                                                                 17450
                                                  KEY            20026     20041     20053     20066     20210
                                                  DECL           25060     25101     25116     25150
                                                  TYPE           25357     25412     25505     25613
                                                  PAR            32606     32731
                                                  CONRED         37745     37751
                                                  QCGC           42044
                                                  GEN            50146     50313     50337     50525     50537     50633     51030
                                                                 51034
                                                  FAS            52345     53070     53112     53135
                                                  MAP            55247     55506     57134
                                                  LIST           60020
          NARGS        4416                       FEC             7505
                                                  HEADER         17271     17305     17322
                                                  GEN            51041
          NOLIST       4417                       FEC             7713
                                                  KEY            20021
          NREXT        4420                       ALLOC          14341
                                                  REC            51314
                                                  FAS            52125     53211     53215     53237
          NSQZLH       4421                       FEC             7624
                                                  PAR            32454
          N.AP         4422                       FEC             7624
          N.ARP        4423                       FEC             7625
                                                  HEADER         17451
                                                  KEY            20240
                                                  GEN            50557
          N.BUF        4424                       FEC             7625
                                                  GEN            51010     51014     51123     51127
          N.CPL        4425                       FEC             7626
                                                  HEADER         17404
                                                  DECL           25126     25140
          N.CON        4426                       GEN            50661
                                                  REC            51376
          N.CT         4427                       FEC             7563      7627
                                                  PAR            35745
          N.CTMAX      4430                       FEC             7563      7630
                                                  QCGC           42337
          N.DOB        4431                       FEC             7630
                                                  LABEL          40667     40740     41047
          N$SEP        4432             
          N.EPL        4432                       FEC             7512
                                                  HEADER         17403     17574
                                                  DECL           24772
                                                  GEN            50311     50577
          N.FP         4433                       FEC             7626
                                                  HEADER         17520
                                                  KEY            20035
                                                  GEN            50312     50541
          N$FPS        4433             
          N.GL         4434                       FEC             7635
                                                  KEY            17776     20574     20734     21111
                                                  IO             30433     30720     31533
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    98  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LABEL          40772     41022
                                                  QCGC           42017
                                                  GEN            50214     50250     51227
          N.MAXIL      4435                       FEC             7326
          N$LC         4436                       FEC             7627
                                                  QCGC           42343
          N.ST         4437                       FEC             7631
                                                  QCGC           41606
                                                  FUN            44731     44744     45525
                                                  REG            46265
                                                  GEN            50655
          N.STMAX      4440                       FEC             7631
                                                  QCGC           41606     42336
                                                  GEN            50655
          N$VD         4441             
          N.VD         4441                       FEC             7632
                                                  DECL           23261     23324     25250
                                                  QCGC           42342
          O.STITL      4442                       FEC             7717
                                                  MAP            55077     56030     56103
                                                  LIST           60653
          PU.MFL       4443             
          HO$PMLS      4443             
          PASS         4444                       QCGLINK         5613
                                                  FEC             7515      7571      7574
                                                  PEM            13742
                                                  ALLOC          14337     14403     14424
                                                  REC            51252     51267
                                                  MAP            55056
          PWBUF        4445                       PEM            13752     13753
                                                  LEX            16566     16570     16573     16573
          WOF=ERR      4462                       PEM            13740     13745     13747     13757     13775
                                                  LEX            16543     16556     16572     16600
          REFIO        4463                       FEC            10257     10263
                                                  ALLOC          14355
                                                  MAP            56134
          RPV=URP      4464                       UTILITY         3104
          HO$RDR       4464             
          SAVE         4465                       FEC             7510      7741
                                                  DECL           23735     24201     25210
                                                  FAS            53163
          THRESH       4466                       ALLOC          14216     14374     14377     14401
                                                  INIT10         61226
          USAVE        4467                       FEC             7510      7741      7771     10035
                                                  DECL           23734     24201     25210
                                                  REC            51527
                                                  FAS            53163
          L.TABS       4470                       FEC             7613
                                                  ALLOC          14210     14257     14373
                                                  INIT10         61216     61217     61221     61225
          SCR          4471                       FEC             7227      7231
                                                  FERRS          10735
                                                  HEADER         17045     17060     17063     17337     17351     17404     17420
                                                                 17526     17530     17532
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE    99  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             30454     30461     30500     30502
                                                  PAR            32720     32722     33462     34037     34055     34527     34610
                                                                 34635     34641     35024     35150     35170     35214     35220
                                                                 35240     35257     35262     35266     35331     35403
                                                  STMTF          40201     40242     40273     40275     40302     40305
          WO.CS        4503                       CDDIR          21216
                                                  PAR            35055
                                                  FUN            44471
                                                  GEN            50204
          WO.C$        4503                       FEC             7726
          WO.DOLG      4504                       CDDIR          21230
                                                  PAR            34135
                                                  LABEL          41001     41025
          WO.DOOT      4505                       CDDIR          21232
                                                  IO             30665     31263     31530
                                                  LABEL          40765
                                                  FUN            44672
                                                  GEN            50206
          WO.LOA       4506                       LISTLNK         3752
                                                  KEY            20021
                                                  CDDIR          21335
                                                  IO             30013
                                                  REC            51256
                                                  MAP            55063
          WO.LOM       4507                       CDDIR          21340
                                                  DECL           24746
                                                  IO             30013
                                                  REC            51256
                                                  MAP            55062     55273
          WO.LOO       4510                       CDDIR          21343
                                                  REC            51264
                                                  FAS            52311     52535     54075
          WO.LOR       4511                       FEC            10212
                                                  KEY            20022     20142
                                                  CDDIR          21352
                                                  IO             27653     30014
                                                  LABEL          40602
                                                  REC            51257
                                                  MAP            55064     56031     56052     56077     56133     56227
          WO.LOS       4512                       FEC             7124
                                                  PEM            13773
                                                  LEX            15270
                                                  CDDIR          21360
          WO.QC        4513                       FEC             7567
                                                  PEM            14024
                                                  MAP            55255     55274     56401     56652
          WO.LCM       4514                       DECL           24030
                                                  INIT10         61273
          CONONE       4515                       DATA           21753
                                                  DECL           23021     23157
                                                  IO             27146     27221     27434     27444     27462     30227     30312
                                                                 30461     30552     30655     30666     31042     31050     31252
                                                                 31264     31544     31551     31563
                                                  PAR            31750     32361     32420     32470     32760     33131     34053
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   100  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 34110     34177     34214     34235     34256     34440     35341
                                                  LABEL          40706
          CONZER       4516                       KEY            21137
                                                  IO             30551
                                                  PAR            33231
          CONZERI      4517                       KEY            17755
                                                  PAR            35347
          VTRUE        4520                       PAR            32363
          VFALSE       4521             
          S=AEXIT      4522                       HEADER         17120
                                                  QSKEL          43411
                                                  GEN            50562
          F.SORD       4522                       FEC             7645
          S=BU         4523                       FEC             7647
                                                  IO             27224     27501     30061
                                                  PAR            32612     34161     36054
                                                  QSKEL          43252
                                                  FAS            54143
          S=BUFIN      4524             
          S=BUF        4525                       FEC             7650
                                                  GEN            51124
          S=CES        4526             
          S=CL         4527                       FEC             7651
                                                  FUN            45427
                                                  REC            51405
                                                  LIST           60633
          S=CON        4530                       FEC             7652
                                                  DECL           23204
                                                  IO             31466
                                                  PAR            31777     32455     36060
                                                  CONRED         37505     37520     37534     37562     37602
                                                  FUN            45063
                                                  REC            51377
                                                  LIST           57776
          S$CON        4530             
          S=CP         4531                       HEADER         17605
                                                  GEN            50352     50607
          S=CPL        4532                       HEADER         17577
                                                  GEN            50366
          S=CT         4533                       FEC             7653
                                                  PAR            35750
                                                  QCGC           42337
          S=ENTRY      4534                       HEADER         17166     17170     17336     17526     17552
                                                  KEY            20210
                                                  DECL           25071
                                                  TYPE           25411     25621
                                                  QSKEL          43421     43441     43442     43451
                                                  GEN            50224     50566
                                                  FAS            52323     52577
          S=ERR        4535                       QSKEL          43400
          S=EXIT       4536                       HEADER         17560
                                                  KEY            20226
                                                  QSKEL          43405
                                                  GEN            50554
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   101  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=FAR        4537                       FEC             7677
                                                  FUN            44716
          S=FAS        4540                       FEC             7676
                                                  FUN            45107
          S=FID        4541                       FEC             7670
                                                  GEN            50153
          S=FMC        4542                       FEC             7671      7672
                                                  FUN            44471
          S=FVS        4544                       FEC             7700
                                                  FUN            45077
          S=FILES      4545                       HEADER         17331
                                                  QSKEL          43422
                                                  GEN            51111
          S=GPL        4546                       HEADER         17606
                                                  GEN            50346     50355     50603
          S=LA         4547                       FEC             7654
                                                  GEN            51235
                                                  REC            51374
                                                  LIST           60042
          S=LC         4550                       FEC             7666
                                                  QCGC           42343
          S$LC         4550             
          S=LENP       4551                       FEC             7655
                                                  GEN            51203
                                                  FAS            52141     52541
                                                  LIST           60026
          S=LMC        4552                       FEC             7674
                                                  FUN            44467
          S=MMC        4553                       FEC             7673
                                                  FUN            44527     45003
          S$IT         4554             
          S=IT         4554                       FEC             7664
                                                  QCGC           42340
          S=INIT       4555                       HEADER         17320
                                                  QSKEL          43423
          S$OT         4556             
          S=OT         4556                       FEC             7665
                                                  QCGC           42341
          S=RD         4557                       FEC             7667
                                                  PAR            35371
                                                  FAS            53456     53642
                                                  LIST           60453
          S=SA1        4560                       FEC             7656
                                                  GEN            50306     51045
                                                  FAS            53065
          S=SA0        4561                       FEC             7657
                                                  GEN            50327     50374     51052
          S=SLI        4562                       HEADER         17573
                                                  GEN            50436
          S=SPA        4563                       HEADER         17571
                                                  GEN            50415
          S=ST         4564                       FEC             7660
                                                  QCGC           42336
                                                  FUN            44735     44751     45023     45525
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   102  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  REG            46273
          S=SUB        4565                       HEADER         17602
                                                  GEN            50671
          S=SUBI       4566                       HEADER         17603
                                                  GEN            50411     50677
          S=SUB0I      4567                       HEADER         17604
                                                  GEN            50432     50706
          S=TRACE      4570                       FEC             7662
                                                  KEY            21121
                                                  QCGC           42162
                                                  QSKEL          43253
                                                  GEN            51207
          S=TA0        4571                       FEC             7661
                                                  QCGC           42164
                                                  QSKEL          43427
                                                  GEN            50321     50363
          S=UPW        4572                       HEADER         17332
                                                  GEN            51035     51103     51114
          S=VALUE      4573                       FEC             7241      7340      7675      7743     10200
                                                  HEADER         17343
                                                  KEY            20070
                                                  DECL           24770     25061     25076     25123     25141     25151
                                                  PAR            32605
                                                  QSKEL          43432     43435
                                                  GEN            50531
                                                  REC            51356
                                                  MAP            55521
          S$VD         4574             
          S=VD         4574                       FEC             7663
                                                  DECL           23130     23260
                                                  IO             27473     30335
                                                  PAR            34007     35357
                                                  QCGC           42342
                                                  FAS            52145     54034
          ERRTYP       4575                       FEC             7722
                                                  PEM            13663     13665
                                                  INIT10         61257     61265
          ERR=A        4604             
          ERR=M        4605             
          ERR=T        4606             
          ERR=W        4607             
          ERR=F        4610             
          ERR=K        4611                       FEC             7566
          ERR=C        4612             
          E=TOTAL      4613                       FEC             7724     10023
                                                  PEM            14021
                                                  DATA           21745
                                                  DECL           23112     23152
                                                  STMTF          40252
                                                  LABEL          40657     40727
          PUC          4615                       INIT10         61160     61162
          ENDFTN       4741                       FEC            10324
          CPTIM        5031                       LISTLNK         4053
          TIMER        5035                       LISTLNK         4054
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   103  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT10         61237
          CAF          5103                       FEC            10323
          ECB          5141                       CONRED         37777
                                                  FUN            45633
          ECS          5173                       CONRED         37726
                                                  FUN            45134
          GCL          5206                       PAR            36136
                                                  FUN            45033     45345     45411
          GMC          5213                       ALLOC          14370
          LJS          5232                       FEC             7403      7416
                                                  KEY            20473     20752
          MTD          5237                       ALLOC          14253
          MTU          5246             
          PIA          5274                       LISTLNK         4000      4017      4027      4037      4047
                                                  FAS            54077
                                                  MAP            56403     56654
                                                  LIST           60025     60404     60416     60551     60616     60632     60641
                                                                 60661     60663     61041     61061
          WOF          5375                       LISTLNK         3775      3777      4005      4024      4034      4044      4052
                                                                  4065
                                                  PEM            13772
                                                  ALLOC          14431
                                                  LEX            16305     16603     16607
                                                  MAP            55164     55325     55327     55362     55732     56064     56074
                                                                 56076     57161     57232
                                                  LIST           57731     57765     60036     60300     60323     60562     60623
                                                                 60655     60667     60675     61101
          F.PIK        5433             
          PIK=PS       5433                       CONRED         37272
                                                  QCGC           42065
                                                  FAS            52414
                                                  LIST           57642     57667     60127
          PIK=EQ       5437             
          PIK=LCM      5533                       LIST           57673
          PIK=XJP      5535                       LIST           57671     57676
          PIK=PI       5545                       LIST           60130
          HDRBL        5567                       FEC             7716
                                                  MAP            55076     56027
          FEL          5573   QCGLINK             PUC             4707
          B=QCGLI      5573                       RPV10           2640
          FEL.RTN      5575                       FEC             7147      7151      7153
          CGL          5576                       PUC             4710
          CGE          5576                       REC            51250
          MAL          5576                       FEC             7144
          DER          5576                       LABEL          40520
          LPE          5576                       LABEL          41422
          BCT          5576                       REC            51261
          MDD          5576                       PAR            33731
                                                  LABEL          40763
          PAT          5576                       FAS            52204     52271
          PDC          5576                       PAR            33553
          PCA          5576                       REC            51262
          REL          5600                       PUC             4711
          REL.RTN      5606                       REC            51336
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   104  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          PDI          5607                       DATA           21556
          PIS          5612                       FEC             7572
          OSTACK       5616   FEC                 PAR            32327     32333     33325
                                                  INIT10         61204
          FORSKEL      5616                       FMT            26071     26255     26265
          REGFILE      5616   QCGC      
          ESTACK       6056   FEC                 KEY            21121     21127
                                                  PAR            32322     33103     33270
                                                  LABEL          40723     40746
                                                  GEN            47555     47556     50141     50142
          HASHTBL      6316             
          B=FEC        6516                       RPV10           2641
          ARGMODE      6516                       KEY            17751     20440     20533     21071
                                                  DECL           23117
                                                  IO             27211     27334     27344     27352     27377     27414     27437
                                                                 27644     27745     27773     30530     30536     30606     30732
                                                                 31612
                                                  PAR            31725     31734     31761     32320     32406     32447     32516
                                                                 32551     32575     32766     33077     33111     33121     33137
                                                                 33151     33161     33176     33202     33214     33241     33274
                                                                 33323     33340     33360     33442     33455     33470     35652
                                                                 35733
                                                  LABEL          40714
          ARGCOMA      6517                       KEY            17750     20440     20533     21071
                                                  DECL           23116
                                                  IO             27342     27541
                                                  PAR            31725     31736     31764     33101     33111     33125     33176
                                                                 33442     33456     33472     34143     34532     35332
                                                  LABEL          40714
          ARGMIS       6520                       PAR            33104     33112     33460     33474     34001     35330
          ASSTAG       6521                       KEY            17644     17674
          CALLTAG      6521                       KEY            17740     17753     17766
                                                  PAR            34503
          CSLTAG       6522                       KEY            20301     20523     20633
                                                  LABEL          40405     40421
          DATFLG       6523                       DATA           21741     21743
                                                  IO             27560     30337     30610     30750     31153     31201     31316
                                                  PAR            32325     34122     34205     34216     34606     35354     35631
                                                                 35735
          DTI          6524                       KEY            20255     20274     20551     20623
                                                  LABEL          40412     40630
          FLOW         6525                       KEY            20027     20106     20520     20554     20702     20763
                                                  LABEL          40652
          HANGER       6526                       KEY            20300     20625     20632
                                                  LABEL          40624
          IFLEVEL      6527                       LEX            15237
                                                  KEY            20461     20561     20742
                                                  LABEL          41462
          INSTF        6530                       PAR            32331     33574     33601     34623     34635     34641
          LDEAD        6531                       PAR            32330
                                                  LABEL          40654
          L.CARD       6532                       LEX            15012     15253     15276     15331
          NOPATH       6533                       KEY            20043     20216     20227     20243     20247     20271     20272
                                                                 20351     20515     20656     20761
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   105  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  LABEL          40626     40653
          NTRCNT       6534             
          PARMODE      6535                       DECL           23120     23122
                                                  IO             30625
                                                  PAR            31733     31757     32321
          PARAMC       6536                       DECL           23700
                                                  TYPE           25636
          REFLIN       6537                       KEY            20571
                                                  LABEL          40356     40367     40455     40575     40671     41353
          REFNUM       6540                       KEY            17636     20253
                                                  IO             27623
                                                  LABEL          40604     40663
          REFVAR       6541                       KEY            17635     17713     20254     20606
                                                  DATA           21656     22427
                                                  DECL           22536     22640     23352
                                                  TYPE           25370
                                                  IO             27424     30531
                                                  PAR            32332     32423     32502     32765     33114     33336     33473
                                                  STMTF          40256
          ROUTNAM      6542                       FUN            44440     44511     44530     44656     44717     45004     45157
                                                                 45441
          RTNCNT       6543                       KEY            20226
          STAGE        6544                       ALLOC          14422
                                                  LEX            15206     15233
                                                  HEADER         17174     17473
                                                  KEY            20043
                                                  CDDIR          21243     21267     21307     21325
                                                  DATA           21535
                                                  DECL           24004
                                                  TYPE           25350
                                                  PAR            32640
          TRLINE       6545             
          T=CONB       6546                       DATA           21530     21540
                                                  FMT            26267
          WANFP        6547                       KEY            20106     20114
                                                  STMTF          40140     40144     40174
          SCR2         6550             
          ZLEQUAL      6560                       LEX            15160     16205
                                                  PAR            31720
          ZLCOMMA      6561                       LEX            15161     16146
          ZLPAREN      6562                       LEX            15172     16254
          ZLE          6563                       PAR            31721     33220     33326     33333
          ZLCOLON      6564                       LEX            16155
          F.SYMIL      6565                       INIT10         61243     61254
          CHARMAP      6731                       PEM            13644
                                                  HEADER         17046
                                                  IO             27526
                                                  PAR            33257     33301     33303
                                                  QCGC           41657
          FEC          7034                       QCGLINK         5574
          FEC.RTN      7037                       FERRS          11734     11740     11742     11750     12075     12077     12101
                                                                 12103     12105     12107     12122     12124     12126     12130
                                                                 12132     12134     12141     12143     12145     12147     12263
                                                                 12362     12403     12407     12653     12663     13065     13067
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   106  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 13071     13073     13075     13077     13103     13104     13105
                                                                 13117     13123     13127     13143     13145     13157     13163
                                                                 13165     13167     13171     13173     13202     13206     13241
                                                                 13242     13244     13246     13250     13252     13322     13324
                                                                 13340     13511     13525     13600
                                                  ALLOC          14425
                                                  HEADER         17007     17022     17027     17037     17071     17117
                                                  KEY            20153     20177     20264
                                                  CDDIR          21221     21223     21224     21231     21236     21266     21266
                                                                 21271     21307     21312     21324     21326     21330     21355
                                                                 21356     21366
                                                  DATA           21532
                                                  DECL           22630     22643     22646     23433     23434     23476     23503
                                                                 23535     23636     23725     23727     23730     23734     23775
                                                                 24000
                                                  TYPE           25510     25513     25516     25636     25641
                                                  FMT            26270
                                                  STMTF          40146     40313
                                                  LABEL          40630     40632     40633
          FEC.RIF      7121                       KEY            20554     20560
          FEC.RTF      7124                       KEY            20040
          ASK          7156                       KEY            17655
                                                  TYPE           25361
                                                  LABEL          40635
          ASL          7213                       KEY            17633
                                                  LABEL          40637
          CSB          7324                       KEY            20713
                                                  LABEL          40627
          CUS.RET      7444                       FERRS          12570
                                                  KEY            20305     20306     20312     20662     20670     20701     20703
                                                                 20712     20715
          OIL          7562                       QCGLINK         5610
                                                  KEY            20114     21027
                                                  CDDIR          21202
                                                  DATA           21534
                                                  IO             30563
                                                  LABEL          41076
          BBC         10050                       IO             30107     30164     30371     30474     30771     31026     31036
                                                                 31077     31101     31116     31120     31470
                                                  PAR            35705
                                                  LABEL          40760     41267
          CCT         10063                       KEY            17720
                                                  DECL           22614     22661     23364     23465     23521     23602     23671
          CT1         10072                       KEY            17735
                                                  DECL           22607     24761
                                                  FMT            26066
                                                  IO             27652     30370     30457     30642     30767     31025
                                                  PAR            32506     32614     32666     32676     35151     35215     35260
                                                  CONRED         37732
                                                  LABEL          40457     40560     40704     40745     41065     41160
          STY         10112                       HEADER         17016     17465
                                                  KEY            20063
                                                  DECL           23470     23674
                                                  TYPE           25617     25632     25646
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   107  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            32663     32673
                                                  STMTF          40260
          NAT.TYP     10120                       TYPE           25571     25573
          NAT.LEN     10127                       TYPE           25601
          TLV         10144                       LEX            15204
                                                  HEADER         17136     17231     17244     17541
                                                  KEY            17742     20127
                                                  DATA           22461
                                                  DECL           22550     22601     23450     23614     23646     23755
                                                  TYPE           25444
                                                  PAR            32500
          TRV         10153                       KEY            17656     20152     20313
                                                  DECL           22611     22657     23360     23575     23741
                                                  STMTF          40147
          TRVA        10220             
          TSX         10222                       HEADER         17316     17570     17572     17576
                                                  KEY            21163
                                                  IO             27064     27120     27320     27555     30534     30570
                                                  PAR            35015     35061     35407
          TSY         10234                       HEADER         17116     17321     17324     17556     17563     17565     17567
                                                                 17575     17600
          ERT         10253                       HEADER         17173     17537
                                                  KEY            17734     20111     20145     20213
                                                  CDDIR          21354
                                                  DATA           21657     22431
                                                  DECL           23474     23550     23721
                                                  TYPE           25450
                                                  IO             27674     30057     31336
                                                  PAR            32424     32774
                                                  STMTF          40265
                                                  LABEL          40423     40605
          ERT=ON      10273                       CDDIR          21352
          ERT=OFF     10274                       CDDIR          21353
          ESY         10275                       HEADER         17165     17270     17467
                                                  KEY            17731     20065     20136
                                                  DECL           23472     23516     23676
                                                  TYPE           25441
                                                  IO             30052
                                                  PAR            32665     32675
                                                  STMTF          40262
                                                  LABEL          40365     40557
          INN         10330                       DECL           24633
                                                  LABEL          40670     40742     41051
          NCM         10342                       LEX            16452     16506
                                                  DATA           22415
                                                  DECL           24641
                                                  CONRED         37235     37561
                                                  FUN            45270
          SCS         10402                       HEADER         17514
                                                  DECL           22560     23620     23757
                                                  STMTF          40215
                                                  QCGC           41720
                                                  MAP            55553     55647
          SCSA        10411                       HEADER         17512
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   108  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           22540     23541     23732
                                                  STMTF          40202
                                                  QCGC           41715     41724
                                                  MAP            55552     55645
          SCT         10412                       HEADER         17505
                                                  KEY            17705     21145
                                                  DATA           22277
                                                  DECL           23656
                                                  CONRED         37576
                                                  STMTF          40163
                                                  FUN            45057
          SLT         10421                       DECL           23507
                                                  PAR            32630     32671
          SSY         10446                       LEX            15213
                                                  HEADER         17160     17232     17245     17455
                                                  KEY            17716     20052     20132
                                                  DATA           22463
                                                  DECL           23452     23514     23665
                                                  TYPE           25375
                                                  FMT            26064
                                                  IO             27636     30050     30763     31024
                                                  PAR            32501
                                                  STMTF          40115     40257
                                                  LABEL          40345     40440
          E.GE        10510   FERRS     
          E.SF00      10510                       STMTF          40176
          B=FERRS     10510                       RPV10           2642
          E.PX5       10510                       DECL           23724
                                                  PAR            32410
          E.EX3       10511                       DECL           23443
          E.DM16      10511                       DECL           22656
          E.GE2       10511             
          E.GE3       10512             
          E.C$09      10512                       CDDIR          21300     21317     21461
          E.IOD4      10512                       IO             31443
          E.FS18      10513                       FMT            26250
          E.GE6       10513             
          E.PX8       10513                       DECL           23725
          E.ANS3      10514                       KEY            20221
          E.AG08      10515                       HEADER         17545
          E.AS4       10516                       KEY            17633
          E.DO05      10516                       LABEL          40637
          E.CL2       10517                       KEY            17716
          E.CM        10520                       DECL           22553
          E.CM1       10521                       DECL           22544
          E.CM2       10522                       DECL           22566     23630     23767
          E.CM3       10523                       DECL           22634     23634
          E.CM5       10524                       DECL           22546
          E.CM6       10525                       DECL           22631
          E.CT        10526                       KEY            20017
          E.C$00      10527                       CDDIR          21213     21433
          E.C$01      10530                       CDDIR          21275     21314
          E.C$02      10531                       CDDIR          21407
          E.C$03      10532                       CDDIR          21304     21323
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   109  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.C$04      10533                       CDDIR          21306
          E.C$06      10534                       CDDIR          21215     21254
          E.C$07      10535                       CDDIR          21206     21425
          E.C$08      10536                       CDDIR          21205     21245     21251     21422
          E.C$11      10537                       CDDIR          21253
          E.DACV      10540                       DATA           21560
          E.DAVC      10541                       DATA           21557
          E.DCE       10542                       DATA           21726     22454     22455     22456
          E.DIL       10543                       DATA           21626     21676
          E.DIL1      10544                       DATA           21643     22245     22247
          E.DIL2      10545                       DATA           21672
          E.DIL3      10546                       DATA           21727
          E.DIL4      10547                       DATA           21654
          E.DM10      10550                       DECL           22652
          E.DO08      10551                       LABEL          41311
          E.DO14      10552                       LABEL          40642
          E.EN1       10553                       KEY            20042
          E.EN2       10554                       KEY            20046
          E.EN3       10555                       KEY            20047
          E.EN4       10556                       KEY            20050
          E.EQ        10557                       DECL           23425
          E.EQ1       10560                       DECL           23356
          E.EQ2       10561                       DECL           23432
          E.EQ3       10562                       DECL           23414
          E.EQ4       10563                       DECL           23413
          E.FD2       10564                       HEADER         17233
          E.FD3       10565                       HEADER         17246
          E.FD4       10566                       HEADER         17333
          E.FD5       10567                       HEADER         17333
          E.FD6       10570                       HEADER         17333
          E.FD7       10571                       HEADER         17334
          E.FD8       10572                       HEADER         17334
          E.FD9       10573                       HEADER         17334
          E.GO        10574                       KEY            20262     20343     20370
          E.GO1       10575                       KEY            20252
          E.GO2       10576                       KEY            20303
          E.IF00      10577                       KEY            20536
          E.IF03      10600                       KEY            20615     20620
          E.IF06      10601                       KEY            20550
          E.IF09      10602                       KEY            20541
          E.IF10      10603                       KEY            20623
          E.IF11      10604                       KEY            20542
          E.IF12      10605                       KEY            20435
          E.IF13      10606                       KEY            20462     20742     21002
          E.IN        10607                       DECL           23505
          E.IN4       10610                       DECL           23535
          E.IO01      10611                       IO             27043     27103     30006
          E.IO07      10612                       IO             27624     27635
          E.IO08      10613                       IO             27256     27264
          E.IO10      10614                       IO             27711
          E.IO11      10615                       IO             27715
          E.IO12      10616                       IO             27717
          E.IO13      10617                       IO             27261
          E.IO15      10620                       IO             27736
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   110  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IO16      10621                       IO             27050     27054     27114     27154     27712     30001
          E.IO17      10622                       IO             30270     30271     30274
          E.IO19      10623                       IO             27043     27142
          E.IO20      10624                       IO             30010
          E.IO21      10625                       IO             30011
          E.IO25      10626                       IO             27301
          E.IO28      10627                       IO             27277
          E.IO29      10630                       IO             27300
          E.IOB0      10631                       IO             30107     30164
          E.IOB1      10632                       IO             27314
          E.IOB2      10633                       IO             30075     30101
          E.IOB3      10634                       IO             27315     27341
          E.IOB4      10635                       IO             27331     27347
          E.IOB5      10636                       IO             27340     27355
          E.IOB6      10637                       IO             30155
          E.IOB8      10640                       IO             30100
          E.IOB9      10641                       IO             30135     30142     30146     30150
          E.IOD1      10642                       IO             31414
          E.IOD2      10643                       IO             31426
          E.IOD3      10644                       IO             31432
          E.IOL7      10645             
          E.IOL8      10646             
          E.IOF       10647                       IO             30210     30211     30212     30214
          E.IOF2      10650                       IO             30217
          E.IOS1      10651                       IO             27374
          E.IOS2      10652                       IO             27403
          E.IOS3      10653                       IO             27406
          E.IOS4      10654                       IO             27410
          E.IOS5      10655                       IO             27417
          E.IOS6      10656                       IO             27374     27403     27410
          E.IOS8      10657                       IO             27406
          E.IOS9      10660                       IO             30170     30172
          E.IOS10     10661                       IO             30351
          E.LV1       10662                       DECL           23542     23543     23545     23553     23557
          E.LV3       10663                       DECL           23564     23573     23612
          E.LV4       10664                       DECL           23601
          E.LV5       10665                       DECL           23637
          E.LV7       10666                       DECL           23622
          E.LV8       10667                       DECL           23617
          E.FM        10670                       FEC             7056      7163
                                                  KEY            20434     20547
          E.MA        10671                       FEC             7102
          E.MD        10672                       FEC             7103
          E.ME        10673                       LEX            14611
          E.MH        10674                       FEC             7104
          E.MI        10675                       FEC             7105
          E.MR1       10676                       HEADER         17224     17277     17432     17453     17542
          E.MR2       10677                       KEY            20124
                                                  DECL           22735
          E.MR3       10700                       KEY            20146
                                                  DECL           23354
          E.NP1       10701                       LABEL          40654
          E.OV1       10702                       HEADER         17044
          E.OV3       10703                       HEADER         17070
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   111  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  KEY            20020
          E.NL        10704                       KEY            20123
          E.NL1       10705                       KEY            20131
          E.NL2       10706                       KEY            20125
          E.NL3       10707                       KEY            20133
          E.NL4       10710                       KEY            20160
          E.NL5       10711                       KEY            20151
          E.PX3       10712                       DECL           23645
          E.PX4       10713                       DECL           23651
          E.SA1       10714                       DECL           23740     23753
          E.SA3       10715                       DECL           23773
          E.SA4       10716                       DECL           23775
          E.SF01      10717                       STMTF          40200
          E.SF02      10720                       STMTF          40252
          E.SF03      10721                       STMTF          40216
          E.SF08      10722                       STMTF          40117     40122     40123     40125
          E.SL18      10723                       LABEL          40427
          E.TY5       10724                       TYPE           25677     25702
          E.TYI       10725                       TYPE           25717     25717
          E.TYI1      10726                       TYPE           25527
          E.TYI2      10727                       TYPE           25536     25547
          E.TYI6      10730                       TYPE           25607
          E.TYI7      10731                       TYPE           25612
          E.VA09      10732                       FEC            10156
                                                  DECL           23445
                                                  TYPE           25343     25373     25374
          E.VA13      10733                       PAR            32620
          OSE         10734                       PAR            35340     35574     35614     35616
          DICT        10755                       PEM            13700
          FILL.       10756                       FEC             7112      7255      7265      7316      7361      7377      7404
                                                                  7417      7425      7431      7477     10150     10156     10302
                                                  PEM            13626     13657
                                                  LEX            14767     16375     16426
                                                  HEADER         17230     17445
                                                  KEY            17652     17672     17715     20051     20150     20321     20474
                                                                 20537     20753
                                                  CDDIR          21440     21443
                                                  DATA           21652
                                                  DECL           22556     22603     23111     23124     23360     23445     23506
                                                                 23574     23616     23665     23756     24037     24131     24151
                                                                 24214     24252     24273     24373     24472     25014     25243
                                                                 25267
                                                  TYPE           25372     25535     25540     25546     25550     25645
                                                  FMT            26210     26271     26311     26357     26406     26425
                                                  IO             27512     27530     30272     30415     31023     31323
                                                  PAR            32475     33304     34023     34116     34614     34653     35105
                                                                 35145     35175     35224     36022
                                                  CONRED         37633
                                                  STMTF          40133
                                                  LABEL          40325     40417
          CLASS       10756                       FEC             7273     10065     10065     10170     10174     10205
                                                  KEY            17670     20317
          FILL.2      10757                       FEC             7165      7274     10066     10207
                                                  HEADER         17242
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   112  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  KEY            17671     20320     20526
                                                  CDDIR          21212     21410     21433     21446
                                                  DECL           22733
                                                  IO             27512
                                                  PAR            33260     34073
                                                  STMTF          40151     40217     40247
                                                  LABEL          40431
          FILL.3      10760                       KEY            20602
                                                  TYPE           25541     25551
                                                  IO             30241     30250     30261     30303
                                                  PAR            32340     34132     34157     36010     36056
                                                  STMTF          40114
                                                  LABEL          41020
          DO.DPC      11017                       PAR            34072
          MOD.DPC     11023                       FEC             7360
                                                  KEY            20601
                                                  IO             30240     30247     30260     30302
                                                  PAR            34130     34156     36007     36007
          ERL=XPR     11032                       PAR            36037
          ERL=CON     11033                       PAR            32337     36036
          E.GE1       11736             
          E.EX2       11736                       DECL           23477
          E.TY        11736                       DECL           22644
                                                  TYPE           25512
          E.DM15      11736                       DECL           22737
          E.AS1       11744                       KEY            17665
          E.IF08      11744                       KEY            20447     20460
          E.IO37      11744                       IO             27061
          E.ME1       11744                       KEY            20025
          E.C$10      11744                       CDDIR          21412     21462
          E.GO9       11744                       KEY            20344     21076
          E.AG02      11744                       HEADER         17547
          E.GE4       11744             
          E.CT1       11744                       KEY            20012
          E.FD11      11744                       HEADER         17304
          E.SPR4      11744                       KEY            20232     21132
          E.AS7       11746                       KEY            17673     20322
          E.GE5       11746             
          E.VA00      11746                       FEC            10206
          E.ANS       11752                       KEY            20117
                                                  DECL           23537
                                                  TYPE           25331
                                                  IO             27131     27306     27370
          E.ANS1      11754                       FEC             7152
          E.ANS2      11756                       FEC            10302
                                                  DECL           22557
          E.ANS4      11762                       PAR            36031
          E.ANS5      11764                       PAR            34556     34561
          E.ANS6      11766                       CONRED         37747
          E.AG00      11770                       HEADER         17353
          E.AG01      11772                       HEADER         17442
          E.AG03      11774                       HEADER         17506
          E.AG04      11776                       HEADER         17447
          E.AG07      12000                       HEADER         17217     17434
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   113  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.CL1       12000                       KEY            17764
          E.AG11      12004                       HEADER         17452
          E.AG12      12006                       HEADER         17462
          E.AS2       12010                       KEY            17653
          E.AS3       12011                       KEY            17664
          E.AS5       12014                       KEY            17646
          E.AS6       12016                       FEC             7400
          E.AT01      12021                       DATA           22371
                                                  PAR            36313     36327     36334
          E.AT02      12023                       PAR            33306
          E.AT03      12025                       DATA           22254
                                                  PAR            32451
          E.AT04      12027                       PAR            32763
          E.AT05      12031                       PAR            33446
          E.AT06      12034                       PAR            33216
          E.AT07      12036                       PAR            36316
          E.AT08      12037                       DATA           22247
                                                  PAR            32444
          E.AT09      12040                       PAR            31722
          E.AT10      12042                       PAR            32343
          E.AT11      12044                       PAR            35707
          E.AT13      12046                       DATA           22424
                                                  PAR            36277
          E.AT14      12050                       PAR            36303
          E.AT15      12052                       PAR            33721
          E.AT16      12054                       DECL           24261     25177
                                                  PAR            33035     34033
                                                  CONRED         37725
          E.AT17      12056                       PAR            34050
          E.AT18      12057                       PAR            32440
          E.AT19      12061                       PAR            36011
          E.AT20      12063                       PAR            32432
          E.AT21      12065                       PAR            33256
          E.CL3       12071                       KEY            17723
          E.CL4       12073                       KEY            17725
          E.CM8       12111                       FEC             7274
          E.CM9       12113                       DECL           24044
          E.CM10      12115                       DECL           24047
          E.CM11      12117                       DECL           24131
          E.CM12      12121                       DECL           25014
          E.C$05      12136                       CDDIR          21446
          E.C$15      12151                       FEC             7432
          E.DABC      12153                       CONRED         37744
          E.DABL      12155                       CONRED         37752
          E.DAR       12162                       DATA           21677
          E.DAUC      12164                       CONRED         37740
          E.DSE       12201                       DATA           21607     21621
                                                  CONRED         37627     37702
          E.DVL1      12203                       DATA           21751
                                                  PAR            32340
                                                  CONRED         37735
          E.DVR1      12205                       CONRED         37675
          E.DVR2      12207                       CONRED         40004
          E.DVR3      12211                       CONRED         40063
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   114  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DVR4      12213                       CONRED         37663
          E.DVR5      12215                       PAR            34607
          E.DC        12217                       CONRED         36656     36751
          E.DC1       12220                       PAR            32367
                                                  CONRED         36746
          E.DC3       12222                       CONRED         36614     36616
          E.DC4       12224                       PAR            33532
          E.DC6       12226                       CONRED         36631
          E.DC7       12230                       DATA           21711
          E.DC8       12231                       CONRED         36603     36636     36647     36731
          E.DC9       12233                       CONRED         36734
          E.DC10      12235                       DATA           22343
          E.DM00      12237                       DECL           22675     22741
          E.DM01      12241                       PAR            32357     32377     32416     32465
          E.DM02      12243                       DECL           22765
          E.DM03      12245                       FEC             7474
          E.DM04      12247                       FEC             7475
          E.DM05      12251                       DECL           22672
          E.DM06      12253                       DECL           22760     23030
          E.DM07      12255                       DECL           23135
          E.DM08      12257                       DECL           23041
          E.DM09      12261                       DECL           22666
          E.DM11      12265                       PAR            35643
          E.DM12      12270                       DECL           25270
          E.DM13      12272                       DECL           23026
          E.DM14      12274                       PAR            32731
          E.DM17      12276                       PAR            32726
          E.DM18      12301                       PAR            32730
          E.DM19      12304                       DECL           25235
          E.DM20      12306                       DECL           25237
          E.DM21      12310                       PAR            32733
          E.DO00      12312                       PAR            34056     34101
          E.DO01      12314                       LABEL          40767
          E.DO02      12316                       PAR            34203
          E.DO03      12320                       LABEL          41020
          E.DO04      12322                       PAR            34115
          E.DO06      12324                       LABEL          40545
          E.DO07      12326                       LABEL          41407
          E.DO09      12332                       FEC             7417
          E.DO10      12334                       LABEL          40645
          E.DO12      12336                       LABEL          40555     41130
          E.DO13      12340                       LABEL          41135
          E.DO15      12344                       PAR            34114     34131
          E.DO16      12346                       PAR            34157
          E.DO17      12350                       PAR            34211
          E.DO18      12352                       LABEL          40770
          E.DO19      12354                       LABEL          40516     41402
          E.DO20      12356                       LABEL          41404
          E.EN        12360                       KEY            20057
          E.EN5       12372                       KEY            20055
          E.EN6       12375                       KEY            21014
          E.EN7       12377                       KEY            21021
          E.EN8       12401                       KEY            21022
          E.EQ6       12413                       DECL           23430
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   115  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.EQ7       12415                       DECL           24345
          E.EQ8       12420                       DECL           24346
          E.EQ10      12422                       DECL           24277
          E.EQ11      12424                       DECL           24452     24461
          E.EQ12      12426                       DECL           24455     24463
          E.EQ13      12430                       DECL           24341
          E.EQ14      12432                       DECL           24355
          E.EQ15      12434                       DECL           24361
          E.EQ16      12437                       DECL           24466     24473
          E.EQ17      12441                       DECL           24305
          E.EX1       12443                       DECL           23454
          E.EX4       12445                       DECL           23460
          E.FD        12447                       HEADER         17222
          E.FD1       12451                       HEADER         17225
          E.FD10      12473                       HEADER         17301
          E.FD12      12475                       HEADER         17306
          E.FS00      12477                       FMT            26052
          E.FS01      12501                       FMT            26547
          E.FS02      12504                       FMT            26604
          E.FS03      12506                       FMT            26161
          E.FS04      12510                       FMT            26366     26416     26440
          E.FS05      12512                       FMT            26505
          E.FS06      12514                       FMT            26337
          E.FS07      12516                       FMT            26376     26444
          E.FS08      12520                       FMT            26210     26343
          E.FS09      12522                       FMT            26616
          E.FS10      12525                       FMT            26563
          E.FS11      12527                       FMT            26632
          E.FS12      12531                       FMT            26630
          E.FS13      12533                       FMT            26543     26565
          E.FS14      12536                       FMT            26271     26447
          E.FS15      12537                       FMT            26500     26523
          E.FS16      12541                       FMT            26127
          E.FS17      12544                       FMT            26515
          E.FS19      12547                       FMT            26245
          E.FS20      12550                       FMT            26107
          E.FS21      12551                       FMT            26133
          E.FS22      12553                       FMT            26166     26575
          E.FS23      12555                       FMT            26553
          E.FS24      12557                       FMT            26556
          E.FS25      12562                       FMT            26140     26151     26203     26213     26326     26373     26537
          E.FS26      12563                       FMT            26076
          E.GO3       12572                       KEY            20331
          E.GO4       12574                       KEY            20325
          E.GO5       12576                       KEY            20015     20304
          E.GO6       12600                       KEY            21101
          E.GO7       12602                       KEY            20266
          E.GO8       12603                       KEY            20341     20406
          E.HC1       12605                       LEX            16460     16516
          E.HC2       12607                       LEX            14776
          E.HC3       12611                       LEX            14770
          E.IF01      12614                       KEY            20451
          E.IF02      12616                       KEY            20553
          E.IF04      12622                       KEY            20664
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   116  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IF05      12624                       KEY            20660
          E.IF07      12630                       KEY            20602
          E.IF14      12643                       KEY            20444
          E.IF15      12645                       KEY            20474     20753
          E.IF16      12647                       LABEL          41120
          E.IF17      12651                       FEC             7425
          E.IN1       12655                       DECL           23511
          E.IN2       12657                       DECL           23523
          E.IN3       12661                       DECL           23531
          E.INF       12665                       PAR            35006
          E.INF1      12667                       PAR            34767
          E.INF2      12671                       PAR            35003
          E.INF3      12673                       PAR            34733
          E.IO00      12675                       IO             27225     27450
          E.IO02      12700                       IO             30524
          E.IO03      12703                       IO             30034     30040
          E.IO04      12705                       IO             27430
          E.IO05      12707                       IO             30241     30250     30262     30303
          E.IO06      12711                       IO             27106
          E.IO09      12717                       IO             27257
          E.IO14      12731                       IO             30632
          E.IO18      12740                       IO             30235     30255     30277
          E.IO22      12750                       IO             27733
          E.IO23      12752                       IO             27457
          E.IO24      12754                       IO             27470
          E.IO26      12760                       IO             27456     27620
          E.IO30      12766                       IO             27452
          E.IO31      12770                       IO             30067
          E.IO32      12772                       IO             30072
          E.IO33      12774                       IO             27453     27665
          E.IO34      12776                       IO             27250
          E.IO35      13000                       IO             27251
          E.IO36      13002                       IO             30205
          E.IOB7      13023                       IO             30104     30161
          E.IOL1      13040                       IO             30545
          E.IOL2      13042                       IO             30501
          E.IOL5      13044                       IO             30556
          E.IOL6      13046                       IO             30331
          E.IOF1      13055                       IO             30214
          E.ION       13061                       IO             30575
          E.ION1      13063                       IO             30565
          E.IOS7      13101                       IO             30347
          E.LP1       13107                       PAR            33353     33460
                                                  STMTF          40237
          E.LP2       13112                       PAR            33452
                                                  STMTF          40236
          E.LP3       13115                       PAR            33103     33271
          E.LV2       13121                       DECL           23565
          E.LV6       13131                       FEC             7322
          E.LV9       13137                       DECL           24153
          E.LV11      13141                       PAR            35736
          E.MB        13147                       FEC             7061
          E.MCA       13151                       LEX            14677
          E.INI       13153                       LEX            14670
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   117  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.TLBL      13155                       LEX            14672
          E.MDO       13160                       FEC             7117
                                                  KEY            20257     20626
          E.MS        13174                       FEC             7404
          E.NP        13176                       FEC             7462
          E.OV2       13204                       HEADER         17035
          E.OV4       13210                       HEADER         17124
          E.PN1       13212                       HEADER         17140
          E.PN3       13214                       HEADER         17073
          E.SEQ       13216                       FEC             7047
          E.STO       13220                       FEC            10322
          E.MO1       13222                       REC            51543
          E.MO2       13223                       ALLOC          14422
          E.MO8       13225                       REC            51542
          E.MDE1      13227                       HEADER         17041
          E.MDE2      13230                       DATA           21645
                                                  TYPE           25332
                                                  PAR            32370     32412     32443     32702
          E.MDE3      13232                       IO             27307
          E.MDE4      13234                       IO             27371
          E.MDE5      13236                       PAR            32713
          E.MDE6      13240                       HEADER         17030
          E.PX1       13254                       PAR            31746
          E.PX2       13256                       DECL           23641
          E.PX6       13264                       PAR            31773     32001
          E.PX7       13266                       PAR            34233
          E.SA        13270                       DECL           24203
          E.SA2       13274                       DECL           23747     23762
          E.SA5       13302                       DECL           23743
          E.SA6       13304                       DECL           24215
          E.SB2       13306                       PAR            35571
          E.SB3       13310                       PAR            35574
          E.SB4       13312                       PAR            35606
          E.SB5       13314                       PAR            35611
          E.SB6       13316                       PAR            35613
          E.SB7       13320                       PAR            35337
          E.SF04      13330                       STMTF          40250
          E.SF05      13332                       STMTF          40164
          E.SF06      13334                       STMTF          40142
          E.SF07      13336                       STMTF          40126
          E.SF09      13342                       PAR            34617
          E.SF10      13344                       PAR            33053
          E.SF11      13346                       STMTF          40153
          E.SF12      13350                       STMTF          40210
          E.SF13      13353                       PAR            33015
          E.SF14      13356                       STMTF          40162
          E.SF15      13360                       PAR            34661
          E.SL00      13363                       LABEL          40353
          E.SL01      13365                       LABEL          40346
          E.SL02      13367                       LABEL          40473
          E.SL03      13371                       LABEL          40501
          E.SL04      13373                       LABEL          40476
          E.SL05      13375                       LABEL          40505
          E.SL06      13377                       LABEL          40504     40530
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   118  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.SL07      13401                       LABEL          40525
          E.SL08      13403                       LABEL          40533     40535
          E.SL09      13405                       LABEL          40513     41225
          E.SL10      13410                       LABEL          40374
          E.SL11      13412                       LABEL          40461
          E.SL12      13414                       LABEL          40376
          E.SL13      13416                       LABEL          40403
          E.SL14      13420                       LABEL          40340
          E.SL15      13422                       LABEL          40334
          E.SL16      13424                       LABEL          40354
          E.SL17      13426                       LABEL          40475
          E.SL19      13432                       LABEL          40337
          E.SL20      13433                       LABEL          40511
          E.ST        13436                       DECL           25202
          E.ST1       13440                       DECL           24254
          E.SPR1      13442                       KEY            21136
          E.SPR2      13444                       KEY            21143
          E.SU11      13446                       PAR            34515
          E.SPR5      13446                       KEY            20236
          E.SU01      13450                       PAR            36435
          E.SU02      13452                       PAR            35141
          E.SU03      13454                       PAR            35121     35303
          E.SU04      13457                       FEC            10437
          E.SU05      13461                       PAR            35155
          E.SU06      13463                       FEC             7361
          E.SU07      13466                       PAR            35276
          E.SU08      13470                       PAR            35135     35142
          E.SU09      13472                       PAR            35157
          E.SU10      13474                       PAR            34507
          E.TY0       13476                       TYPE           25414
          E.TY1       13500                       TYPE           25404     25436     25476     25500
          E.TY2       13502                       TYPE           25425
                                                  PAR            32637
          E.TY3       13504                       TYPE           25663     25666     25702
          E.TY4       13507                       TYPE           25671     25705
                                                  PAR            31774
          E.TY6       13513                       TYPE           25667     25703
          E.TY7       13514                       FEC             7255
          E.TY8       13516                       TYPE           25437     25477     25650
          E.TY9       13521                       TYPE           25421
                                                  PAR            32634
          E.TY10      13523                       TYPE           25401     25501
          E.TYI3      13533                       TYPE           25541     25552
          E.TYI4      13535                       TYPE           25557
          E.TYI5      13537                       TYPE           25554
          E.TYI8      13545                       TYPE           25567
          E.TYI9      13547                       TYPE           25532
          E.VA01      13551                       PAR            32613
          E.VA02      13553                       FEC            10067
          E.VA03      13555                       PAR            32537
          E.VA04      13557                       PAR            32551     32577     32652
          E.VA05      13561                       PAR            32557
          E.VA06      13563                       PAR            32562
          E.VA07      13565                       PAR            32602
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   119  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.VA08      13567                       PAR            32530
          E.VA10      13572                       FEC            10150
          E.VA11      13574                       PAR            33337     33740
          E.VA12      13576                       PAR            33067
          E.XP1       13602                       PAR            34306
          E.XP3       13604                       PAR            34252
          E.XP4       13606                       PAR            34327
          E.XP5       13610                       PAR            34434
          E.XP6       13612                       PAR            34307
          E.XP7       13614                       PAR            34251
          B=PEM       13616   PEM                 RPV10           2643
          ANSI=       13617                       FEC             7152      7275     10303     10437
                                                  HEADER         17222
                                                  KEY            20553     21102
                                                  DATA           21677     22250     22316     22321
                                                  DECL           22557     23537
                                                  TYPE           25331
                                                  FMT            26211     26343
                                                  IO             27131     27306     27370     27733     30215     30546     30565
                                                  PAR            31723     32367     32444     33016     33256     34050     34557
                                                                 34562     36032     36317
                                                  CONRED         36746     37747
                                                  STMTF          40154
                                                  LABEL          40516     41402
          ANSI.SW     13620                       INIT10         61262
          MDERR=      13622                       HEADER         17030     17041
                                                  DATA           21646
                                                  TYPE           25332
                                                  IO             27307     27371
                                                  PAR            32370     32412     32443     32703     32713
          MDER.SW     13623                       INIT10         61267
          PEMS        13624                       FERRS          10527     10532     10541     10547     10550     10551     10564
                                                                 10565     10567     10570     10571     10573     10614     10615
                                                                 10616     10622     10653     10664     10666     10667     10672
                                                                 10707     10717     10720     10721     10722     10733     10751
                                                                 11746     11756     11774     12006     12010     12011     12016
                                                                 12023     12027     12050     12054     12057     12061     12063
                                                                 12071     12073     12111     12113     12115     12117     12121
                                                                 12136     12151     12153     12155     12164     12205     12207
                                                                 12211     12241     12243     12245     12247     12251     12253
                                                                 12255     12257     12261     12265     12270     12274     12276
                                                                 12301     12304     12306     12310     12320     12322     12324
                                                                 12332     12360     12372     12375     12377     12401     12415
                                                                 12420     12422     12424     12426     12430     12432     12434
                                                                 12437     12441     12443     12445     12510     12516     12520
                                                                 12536     12611     12630     12645     12647     12651     12655
                                                                 12657     12661     12707     12740     12752     13046     13131
                                                                 13137     13141     13174     13274     13302     13304     13306
                                                                 13310     13312     13314     13316     13320     13330     13332
                                                                 13336     13342     13344     13346     13350     13356     13360
                                                                 13363     13365     13367     13371     13373     13375     13377
                                                                 13401     13403     13405     13412     13416     13420     13422
                                                                 13426     13433     13436     13440     13452     13454     13457
                                                                 13461     13463     13466     13470     13472     13476     13500
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   120  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 13502     13514     13516     13521     13523     13533     13535
                                                                 13537     13551     13553     13555     13557     13561     13563
                                                                 13565     13567     13572     13576
          PEMV        13641                       FERRS          10510     10511     10512     10513     10515     10516     10523
                                                                 10531     10534     10535     10536     10552     10560     10561
                                                                 10562     10563     10600     10605     10607     10610     10612
                                                                 10617     10621     10623     10634     10635     10636     10651
                                                                 10652     10654     10655     10657     10677     10706     10711
                                                                 10712     10713     10714     10715     10716     10724     10726
                                                                 10727     10730     10731     10732     11736     11744     11776
                                                                 12000     12004     12042     12222     12334     12451     12473
                                                                 12501     12512     12525     12533     12537     12541     12544
                                                                 12551     12553     12555     12557     12562     12572     12643
                                                                 12711     12717     13107     13112     13115     13204     13254
                                                                 13256     13264     13334     13474
          PEM         13660                       FERRS          10514     10517     10520     10521     10522     10524     10525
                                                                 10526     10530     10533     10537     10540     10542     10543
                                                                 10544     10545     10546     10553     10554     10555     10556
                                                                 10557     10566     10572     10574     10575     10576     10577
                                                                 10601     10602     10603     10604     10606     10611     10613
                                                                 10620     10624     10625     10626     10627     10630     10631
                                                                 10632     10633     10637     10640     10641     10642     10643
                                                                 10644     10645     10646     10647     10650     10656     10660
                                                                 10661     10662     10663     10665     10670     10671     10673
                                                                 10674     10675     10676     10700     10701     10702     10703
                                                                 10704     10705     10710     10723     10725     11752     11754
                                                                 11762     11764     11766     11770     11772     12014     12021
                                                                 12025     12031     12034     12036     12037     12040     12044
                                                                 12046     12052     12056     12065     12162     12201     12203
                                                                 12213     12215     12217     12220     12224     12226     12230
                                                                 12231     12233     12235     12237     12272     12312     12314
                                                                 12316     12326     12336     12340     12344     12346     12350
                                                                 12352     12354     12356     12413     12447     12475     12477
                                                                 12504     12506     12514     12522     12527     12531     12547
                                                                 12550     12563     12574     12576     12600     12602     12603
                                                                 12605     12607     12614     12616     12622     12624     12665
                                                                 12667     12671     12673     12675     12700     12703     12705
                                                                 12731     12750     12754     12760     12766     12770     12772
                                                                 12774     12776     13000     13002     13023     13040     13042
                                                                 13044     13055     13061     13063     13101     13121     13147
                                                                 13151     13153     13155     13160     13176     13210     13212
                                                                 13214     13216     13220     13222     13223     13225     13227
                                                                 13230     13232     13234     13236     13240     13266     13270
                                                                 13353     13410     13414     13424     13432     13442     13444
                                                                 13446     13450     13504     13507     13513     13545     13547
                                                                 13574     13602     13604     13606     13610     13612     13614
          PDM         14011                       FEC             7050      7062      7120      7256      7322      7362      7400
                                                                  7405      7420      7426      7432      7463      7477     10070
                                                                 10151     10207     10322
                                                  FERRS          10740     10741
                                                  ALLOC          14423
                                                  LEX            14670     14673     14700     14770     14776     16461     16516
                                                  HEADER         17036     17073     17125     17140     17217     17225     17301
                                                                 17304     17307     17354     17434     17442     17453     17463
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   121  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 17507     17547
                                                  KEY            17647     17653     17664     17666     17673     17723     17725
                                                                 17765     20013     20015     20025     20102     20117     20233
                                                                 20236     20260     20267     20304     20322     20325     20332
                                                                 20341     20345     20406     20444     20447     20452     20460
                                                                 20475     20603     20627     20661     20665     20754     21076
                                                                 21104     21132     21136     21143
                                                  CDDIR          21412     21447     21463
                                                  DATA           21526     21607     21621     22254     22372     22424
                                                  DECL           22645     22647     22666     23430     23455     23460     23500
                                                                 23511     23524     23532     23566     23642     23744     23750
                                                                 23762     24051     24132     24154     24204     24215     24255
                                                                 24262     24312     24352     24356     24362     24453     24455
                                                                 24461     24463     24466     24473     25015     25200     25202
                                                                 25244     25270
                                                  TYPE           25422     25426     25430     25437     25502     25512     25532
                                                                 25542     25552     25555     25557     25567     25650     25707
                                                  FMT            26052     26076     26110     26130     26133     26141     26152
                                                                 26162     26166     26203     26214     26245     26272     26326
                                                                 26337     26366     26373     26376     26416     26440     26444
                                                                 26447     26501     26505     26515     26523     26540     26544
                                                                 26550     26553     26557     26563     26566     26576     26604
                                                                 26617     26634
                                                  IO             27062     27106     27225     27252     27260     27501     27620
                                                                 27665     30061     30206     30242     30251     30262     30304
                                                                 30332     30451     30524     30556     30575     30632
                                                  PAR            31746     32005     32341     32343     32433     32441     32452
                                                                 32530     32537     32572     32600     32602     32613     32634
                                                                 32637     32763     33012     33036     33053     33067     33216
                                                                 33307     33337     33446     33453     33532     33721     33727
                                                                 33740     34034     34052     34057     34101     34133     34160
                                                                 34203     34211     34234     34253     34255     34310     34330
                                                                 34434     34507     34516     34607     34617     34662     34734
                                                                 34767     35003     35007     35121     35145     35165     35707
                                                                 35736     36023     36300     36314     36335     36435
                                                  CONRED         36603     36632     36636     36650     36657     36731     36734
                                                                 36751     37634     37735
                                                  STMTF          40126     40143     40162     40165     40210     40240     40250
                                                  LABEL          40335     40407     40511     40563     40645     40771     41021
                                                                 41121     41130     41136     41226     41405     41407
                                                  REC            51542     51544
          B=ALLOC     14146   ALLOC               RPV10           2644
          ADW         14146                       HEADER         17167     17345     17511     17515
                                                  KEY            17707     20002     20076     20165     20173     20573     21147
                                                                 21161
                                                  CDDIR          21265
                                                  DATA           21601     21703     21717     22147     22162     22301
                                                  DECL           22620     23335     23371     23377     23401     23411     23660
                                                                 24031     24061     24240     25122     25125     25136
                                                  IO             30477     31415
                                                  PAR            33100     33102     33106     35037     35043
                                                  CONRED         37600     40051
                                                  STMTF          40132     40134     40167     40171
                                                  LABEL          41262     41356     41443
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   122  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  QCGC           41633     41636     41725     42005     42031     42032     42033
                                                  FUN            44426     44476     44525     44563     44613     44615     44675
                                                                 44771     45047     45061     45236     45434     45467
                                                  GEN            51242
                                                  FAS            52741     52746     52747     53037     53051     53054     54203
                                                                 54210     54316
                                                  MAP            55563     56340
          ADW.ALC     14156             
          ADWT        14160                       FEC            10343     10355     10362     10367     10371     10372     10375
                                                                 10377     10400
                                                  DECL           23046     23073     23075     23101     23103     23105
          ALC         14164                       FEC             7446      7555      7637      7701      7757     10262     10312
                                                                 10371
                                                  LEX            14702     15256
                                                  HEADER         17062     17415
                                                  KEY            20004     20563
                                                  DATA           22175     22204     22405     22446
                                                  DECL           22570     23074     23174     23625     23766     24477     24501
                                                                 24563     24704     25106
                                                  FMT            26264
                                                  IO             27041     27101     27164     27325     27563     31156
                                                  PAR            34551     36102     36117
                                                  CONRED         37206
                                                  STMTF          40300
                                                  LABEL          40677     41320     41350     41436     41501     41511
                                                  QCGC           41622     42021
                                                  FUN            45460
                                                  GEN            50265
                                                  REC            51434     51455     51600
                                                  FAS            52126     52130     52132     52137     52211     52472     53042
                                                                 53103     53116     53140     53160     53433     53522     53701
                                                  MAP            55075     55515     56143
                                                  LIST           60364
          ALC.REG     14323                       FEC            10032
                                                  PAR            34626     34645
                                                  QCGC           41601     41604
                                                  GEN            50271     50276
          ALC.00      14325                       FEC            10031
                                                  PAR            34644
                                                  QCGC           41603
                                                  GEN            50270
          ALC.STF     14326                       PAR            34625
          ALC.CAI     14327                       QCGC           41600
                                                  GEN            50275
          B=LEX       14450   LEX                 RPV10           2645
          LEXFLG      14454                       FEC             7040      7732
                                                  ALLOC          14404
          LEXMODE     14455                       FEC             7514
          SB=CONT     14467                       HEADER         17070
                                                  KEY            20020
          SB=LINC     14470                       FEC             7146
                                                  CDDIR          21364
          SB=LORD     14471                       FEC             7146
                                                  CDDIR          21363
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   123  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TB=1ST      14472                       FEC             7121
                                                  KEY            20376
                                                  PAR            33331
          TB=LABL     14474                       FEC             7111
                                                  KEY            20525
          TB=LABR     14475                       FEC             7110      7435
                                                  KEY            20011     20265     20336     20404
                                                  FMT            26050
          TB=NUML     14477                       FEC             7044
          TB=NUMR     14500             
          TB=PLVL     14501             
          TB=TYPE     14502                       FEC             7054      7063      7106      7113      7115      7122      7436
                                                                  7444      7461
                                                  HEADER         17100     17436
                                                  KEY            20547
                                                  DECL           24024
                                                  PAR            32733
                                                  CONRED         36660
                                                  LABEL          40346     40415
          LEX         14626                       FEC             7043
          CST         15156                       KEY            20546
          RNC         15301             
          TOK=CAL     15375             
          TOK=COF     15377             
          TOK=GN      15435             
          TOK=GO      15445             
          TOK=GS      15450             
          TOK=IFT     15460             
          TOK=ON      15464             
          TOK=XEQ     15470             
          BLL         16272                       PEM            13771
          CAK         16361                       TYPE           25716
          LDB         16536                       FEC             7042      7125
                                                  PEM            13743
                                                  ALLOC          14406
                                                  CDDIR          21365
          LSL         16555             
          LSS         16613             
          KW=BLOC     16777   HEADER              LEX            14525
          B=HEADE     16777                       RPV10           2646
          KW=FUNC     17011                       LEX            14553
                                                  TYPE           25362
          KW=PROG     17024                       LEX            14572
          KW=OVCA     17030                       LEX            14565
          OVCFLG      17040                       FEC             7712
          KW=OVER     17041                       LEX            14566
          PSF         17072                       FEC             7070
                                                  TYPE           25364
          KW=SUBR     17112                       LEX            14602
          PPA130      17275                       FERRS          12453     12455     12457     12461     12463     12465     12467
                                                                 12471
          PSA         17335                       KEY            20112
          WSA         17561                       KEY            20036
          KW=ASSI     17632   KEY                 LEX            14523
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   124  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          B=KEY       17632                       RPV10           2647
          KW=CALL     17711                       LEX            14530
          CRL         17774                       PAR            34505
          KW=CONT     20011                       FEC             7436
                                                  LEX            14535
          KW=END      20020                       LEX            14544
          END23       20021                       FERRS          13162
          KW=ENTR     20041                       LEX            14547
                                                  HEADER         17437
          KW=NAME     20117                       LEX            14563
          KW=PAUS     20206                       LEX            14570
          KW=RETU     20210                       LEX            14576
          KW=STOP     20245                       LEX            14601
          KW=GOTO     20251                       LEX            14554
          INIF        20410                       FEC            10023
                                                  LABEL          40624
          IFMOD       20412                       PAR            33505
          IFRESLT     20413                       PAR            33505
          IFREL2      20415                       PAR            32331     33662     35637
          IFLN        20416             
          KW=ELSE     20425                       LEX            14542
          KW=ENDI     20457                       LEX            14546
                                                  LABEL          40415
          IFS         20531                       LEX            14607
          IFS11       20543                       FERRS          12632
          IFFLAG      20716                       LABEL          40431     40465
          C=PJX       21075                       PAR            32271
          B=CDDIR     21201   CDDIR               RPV10           2650
          K$=COLL     21201                       LEX            14613
          K$=BEGC     21223                       LEX            14612
          K$=ENDC     21224                       LEX            14616
          K$=DO       21225                       LEX            14614
          K$=IF       21243                       LEX            14620
          K$=ELSE     21274                       LEX            14615
          K$=ENDI     21313                       LEX            14617
          K$=LIST     21331                       LEX            14621
          B=DATA      21470   DATA                RPV10           2651
          DAT.Z       21527                       FERRS          12166     12167     12171     12173     12175     12177
                                                  PAR            32342
                                                  CONRED         36662
          KW=DATA     21533                       LEX            14536
                                                  CONRED         36660
          DATA2       21561                       FERRS          12157     12160
          DATAFLG     21733                       CONRED         36601     36634     36646
          C=DVL       21751                       PAR            32260
          EDI         22003                       CONRED         37755
          CFC         22311                       PAR            33170
          CMV         22360                       DECL           23712
          CSC         22457                       DECL           23544
          B=DECL      22517   DECL                RPV10           2652
          KW=COMM     22536                       LEX            14533
                                                  PAR            32735
          KW=DIME     22640                       LEX            14540
          DIR         22655                       TYPE           25457
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   125  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DIRT        22725                       PAR            32736
          EDD         23045             
          CDBB        23144                       PAR            36021
          C=DBD       23150                       PAR            32266     32267
          A=DBD       23151                       PAR            32266     32267
          KW=EQUI     23352                       LEX            14550
          EQS80       23434                       FERRS          12405     12411     12412
          KW=EXTE     23441                       LEX            14551
          KW=INTR     23504                       LEX            14560
          KW=LEVE     23537                       LEX            14561
          LVL80       23633                       FERRS          13133     13135
          LVL90       23635                       FERRS          13125
          KW=PARA     23640                       LEX            14567
          PRMERR      23726                       FERRS          13260     13262
          KW=SAVE     23732                       LEX            14600
          SAVERR      23777                       FERRS          13272     13276     13300
          PCD         24002                       FEC             7073
          ACV         24753                       HEADER         17531
          KW=BOOL     25331   TYPE                LEX            14526
          B=TYPE      25331                       RPV10           2653
          KW=LOGI     25334                       LEX            14562
          KW=INTE     25335                       LEX            14557
          KW=REAL     25336                       LEX            14575
          KW=DOUB     25337                       LEX            14541
          KW=COMP     25340                       LEX            14534
          KW=CHAR     25341                       LEX            14531
          TYPA        25517             
          TYPD        25522                       FEC             7502
          KW=IMPL     25525                       LEX            14555
          IMP.ER      25652                       FERRS          13527     13531     13541     13543
          B=FMT       25750   FMT                 RPV10           2654
          KW=FORM     26047                       LEX            14552
                                                  LABEL          40350
          B=IO        26676   IO                  RPV10           2655
          IODIR       26676                       PAR            32772
          IONAM       26704             
          IODOLEN     26706                       LABEL          41520
          IODOIND     26707                       DATA           21755
          KW=BACK     27023                       LEX            14524
          KW=CLOS     27024                       LEX            14532
          KW=ENDF     27026                       LEX            14545
          KW=INQU     27027                       LEX            14556
          KW=OPEN     27031                       LEX            14564
          KW=REWI     27033                       LEX            14577
          KW=PRIN     27127                       LEX            14571
          KW=PUNC     27131                       LEX            14573
          KW=READ     27134                       LEX            14574
          KW=WRIT     27140                       LEX            14603
          KW=BUFF     27306                       LEX            14527
          BUFERR      27360                       FERRS          13004     13006     13010     13012     13014     13016     13020
                                                                 13025
          KW=DECO     27365                       LEX            14537
          KW=ENCO     27367                       LEX            14543
          IOJ         27544                       PAR            32721
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   126  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          A=BMOD      30074                       PAR            32275
          A=BLWA      30104                       PAR            32277
          BLWA        30156                       FERRS          13027
          C=BFWA      30161                       PAR            32276
          C=CNT       30170                       PAR            32300
          A=FMT       30175                       PAR            32303
          C=FMT       30176                       PAR            32303
          A=FOU       30223                       PAR            32304
          C=FOU       30223                       PAR            32304
          A=ICC       30233                       PAR            32305
          C=ICC       30234                       PAR            32305
          A=ICCX      30244                       PAR            32306
          C=ICCX      30245                       PAR            32306
          A=ICI       30253                       PAR            32307
          C=ICI       30254                       PAR            32307
          A=ICIX      30264                       PAR            32310
          C=ICIX      30265                       PAR            32310
          A=ICL       30275                       PAR            32311
          C=ICL       30276                       PAR            32311
          C=IOL       30306                       PAR            32312     32313
          A=STR       30347                       PAR            32314
          A=UNT       30354                       PAR            32315     32766
          C=UNT       30355                       PAR            32315
          CML         30361                       PAR            33001
          VAI         30440                       DATA           21752
          LST         30515                       FERRS          12727
          CVL         30577                       DATA           21741
          IDCEX       31344                       PAR            33204
          A=DOCI      31450                       PAR            32301
          C=DOCI      31451                       PAR            32301
          A=DOCS      31462                       PAR            32302     33203
          C=DOCS      31463                       PAR            32302
          B=PAR       31670   PAR                 RPV10           2656
          PARNOW      31670                       FEC            10024
                                                  TYPE           25665
                                                  CONRED         36604
          SMOD        31672                       CONRED         37136     37173
          SOPR        31673             
          CURST       31674                       FEC             7330      7503      7575
                                                  KEY            17763     20312     20507     20557     21005     21074
                                                  IO             27570     30615
                                                  LABEL          41171
          CNF         31720                       LEX            14610
          PIX         31730                       CDDIR          21441
                                                  DECL           23406     25165     25172
                                                  TYPE           25700
          PKX         31756                       CDDIR          21252
                                                  DECL           23653
          DO.BEG      32175                       LABEL          41030
          MULROP      32202             
          ARYOP       32205                       IO             31307
          DVLOP       32206                       DATA           21737
          ERROP       32207                       DECL           23156
                                                  IO             27360
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   127  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          GAPOP       32214                       KEY            21162
          IOCTL       32216                       IO             27751     30420
          IODTA       32217                       IO             30342     30537     30547
          IOUNT       32220                       IO             27147     27574     30230
          NOOPP       32225                       KEY            20710
          OPBSS       32226                       FEC             7333
                                                  IO             27070     27124     30561     31573
                                                  LABEL          41167
          OPDUM       32230                       KEY            20704     20727     21105
                                                  IO             31536     31542     31555     31561
                                                  LABEL          41151
          VD.EQ       32242                       DECL           23265
          VD.MI       32243                       DECL           23011     23020
          VD.MU       32244                       DECL           23235
          VD.PL       32245                       DECL           22777     23021
          VD.GP       32246                       DECL           24763
          CALLARM     32256                       KEY            17747
          DATARM      32260                       DATA           21737
          DOARM       32261                       LABEL          40713
          IFARM       32263                       KEY            20437     20532
          LBARM       32266                       DECL           22745
          UBARM       32267                       DECL           22751
          PJXARM      32271                       KEY            21067
          BUFMOD      32275                       IO             27331
          BUFFWA      32276                       IO             27342
          BUFLWA      32277                       IO             27347
          CNTARM      32300                       IO             27375
          DOCOLI      32301                       IO             31044
          DOCOLS      32302                       IO             31007
          FMTARM      32303                       IO             27642
          FOUARM      32304                       IO             27205
          ICCARM      32305                       IO             27724
          ICCXARM     32306                       IO             27727     27743
          ICIARM      32307                       IO             27732
          ICIXARM     32310                       IO             27734
          ICLARM      32311                       IO             27735
          IOARGM      32312                       IO             27535
          STRARM      32314                       IO             27412
          UNTARM      32315                       IO             27436
          PAR         32316                       KEY            17751     20441     20534     21072
                                                  DECL           23121
                                                  IO             27211     27335     27345     27353     27401     27415     27441
                                                                 27646     27745     27774     30625     31613
                                                  LABEL          40715
          PAR.NX      32351                       IO             31461     31510
          PAREXIT     33347                       DECL           23157     23202     23203     23205     23207
                                                  IO             30103     30160     30167     30174     30222     30237     30243
                                                                 30246     30252     30257     30260     30263     30271     30272
                                                                 30274     30301     30305     30353     30355     31456     31507
          IOL.RTN     33400                       DATA           22001
                                                  IO             30346
          POP.STD     33432                       KEY            21107
          C=CERR      33446                       KEY            21077
          C=ERR       33447                       IO             30333
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   128  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          POP.DVA     33564             
          DTC         34166                       LABEL          40716
          EXD         34344                       CONRED         40030
          CF=AC       34466                       KEY            17752     17775     21157
          EAL         34677                       KEY            21162
          VEL         35125                       KEY            17767
          ACT         35622                       LABEL          40724     40747
          ADT         35630             
          CMR         35766                       KEY            21103
          DOA         36034                       IO             30441     30464
                                                  CONRED         37733
          ECC         36057                       KEY            21151
          EMT         36077                       FEC             7132      7334      7552      7705
                                                  HEADER         17006     17067     17171     17273     17311     17312     17554
                                                  KEY            17675     17754     17760     20034     20100     20224     20310
                                                                 20350     20403     20667     20707     20711     20733     20737
                                                                 20765     21026     21167
                                                  CDDIR          21220     21235     21346
                                                  DATA           21555     22000
                                                  DECL           23156     23235     23265     23345
                                                  IO             27071     27125     27150     27361     27557     27600     27756
                                                                 30231     30345     30423     30554     30562     30650     30652
                                                                 30656     30667     30675     30707     31213     31227     31236
                                                                 31245     31253     31265     31273     31311     31331     31333
                                                                 31541     31546     31560     31565     31573
                                                  LABEL          40777     41062     41067     41074     41154     41162     41167
          FAT         36114                       IO             27551
          GOL         36132                       IO             30202
          OMC         36162             
          SDM         36260             
          TPC         36432                       IO             27212     27442     27647     27746     27775     30307
          B=CONRE     36466   CONRED              RPV10           2657
          LVEC        36474             
          LLVEC       36476             
          RVEC        36500             
          RLVEC       36501             
          REG=T       36502                       QCGC           41576
                                                  GEN            47615     47625     47637     47641
          CTAA        36531             
          DEC         36550                       HEADER         17204
                                                  DATA           21666     22346
                                                  TYPE           25665
                                                  PAR            32373
          OCT         36711                       HEADER         17201
                                                  PAR            32371
          TNK         36736                       DATA           22257
          CCR         37130                       PAR            34447     34454     35654
          CTA         37162             
          PCC         37201                       PAR            33705
          PCR         37243                       PAR            33646
          PCR.1OP     37262                       PAR            33642
          PCR.2OP     37264                       PAR            33645
          PCR.RO      37266                       PAR            33637
          KCV         37445                       DATA           22350     22370
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   129  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            35777
          LCH         37474                       IO             27222     27445     30176     30266     30310
                                                  PAR            31772     33640     33643     33677     33702     34014     34016
                                                                 34153     34756     34771     36035
          LCT         37527                       IO             30074
                                                  PAR            31742     33515     33521     33526     34201     34227     34250
                                                                 34355     35442     35460     35462     35465     35517     35522
                                                                 35570     35775     36150     36152
                                                  LABEL          40737     40764     41032     41107
          LIR         37544                       PAR            34236
          NBC         37552                       DATA           22305
                                                  PAR            32401     32430     36000
          NCS         37570                       DECL           22776     23010     23214
                                                  IO             27145     27433     30226     30646     30673     31211     31225
                                                                 31243     31260     31271
                                                  PAR            32462     34005     34347     34765     35404     35526     35533
                                                                 35604     35620
          SED         37605                       DATA           21746
          D=SUBST     37611                       QSKEL          44223
          D=BSS       37611                       QSKEL          44314
          D=DOBD2     37611                       QSKEL          44360
          D=NOOP      37611                       QSKEL          44343
          D=COLON     37611                       QSKEL          44222
          D=ARY       37611                       QSKEL          44315
          D=DVI       37706                       QSKEL          44356
          GPS         40007                       DECL           25234
          D=EXP.I     40025                       QSKEL          44357
          D=STR.I     40034                       QSKEL          44216
          D=DOBL      40055                       QSKEL          44274
          D=DOBS      40055                       QSKEL          44273
          D=DOBZS     40055                       QSKEL          44275
          D=DOBZL     40055                       QSKEL          44276
          D=DOC.L     40067                       QSKEL          44301
          D=DOC.S     40067                       QSKEL          44277
          SFD         40113   STMTF               LEX            14605
          B=STMTF     40113                       RPV10           2660
          SFDEX       40312                       FERRS          13326
          DOMODE      40322   LABEL               PAR            34140     34154
          B=LABEL     40322                       RPV10           2661
          CUL         40323                       LEX            14650
          GSL         40343                       FEC             7112
          ISL         40425                       KEY            17636     20263     20335     20401     20612
                                                  IO             27627     27740
                                                  PAR            33247
          STL0R       40612                       KEY            20264     20336     20404
          PSL         40614                       FERRS          11760     12002     12012     12067     12330     12342     12364
                                                                 12366     12370     12564     12566     12612     12620     12626
                                                                 12634     12636     12640     12642     12677     12713     12715
                                                                 12721     12723     12725     12732     12734     12736     12742
                                                                 12744     12746     12756     12762     12764     13032     13034
                                                                 13036     13050     13052     13054     13057     13200     13430
                                                                 13570
                                                  KEY            17637     17657     17706     17710     17721     17763     20016
                                                                 20017     20115     20207     20225     20231     20244     20246
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   130  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 20250     20274     20300     20334     20352     20400     20432
                                                                 20456     20464     20522     20523     20527     20575     20626
                                                                 20630
                                                  IO             27067     27072     27123     27126     27357     27362     27741
                                                                 30525     30564
                                                  PAR            31727     32435     32541     32752     33374     33376     33377
                                                                 34070
                                                  CONRED         36661     36752
          KW=DO       40635                       LEX            14606
          CDI         40656                       IO             30724
          CDIFLG      41105                       PAR            33316     33377     34067
          PDT         41113                       IO             30742
          ALU         41214                       KEY            20526
          DDR         41264                       IO             30447
                                                  PAR            33736     34126
          FBS         41313                       KEY            20500     20757
          PDA         41451                       FEC            10230
                                                  KEY            17737     20215
                                                  PAR            33073
          RBE         41460                       KEY            20476     20755
          REG=G       41543   QCGC                FUN            45026     45531     45533     45535     45541     45542     45545
                                                                 45547     45576
                                                  GEN            47646     47653     50237     50240     50524     51135     51140
                                                                 51222     51225     51240
          REG=GP      41543             
          REG=GL      41543             
          B=QCGC      41543                       RPV10           2662
          N$IT        41551             
          CII         41551                       FAS            52402
          N$OT        41552             
          DRITE       41553                       REG            45760     45767     46013     47015     47032
                                                  GEN            47553
          NOLDS       41556                       REG            47374
          RGC         41557                       GEN            47437
          RGX         41560                       REG            45722     45734     46245     46344     47117     47141
                                                  GEN            47435
          RREG        41561                       REG            45762     45764     46215     46641     47116     47221     47300
                                                  GEN            47477     47542     47664     50020     50024
          TRACE       41562                       FUN            44622     45451
                                                  GEN            50125     50132     50200
          TYPLOD      41563                       REG            47223     47323     47370     47377
                                                  GEN            47661     47701     47741     47753     47757     47776
          UUC         41564                       FUN            44452
                                                  REG            47146     47165     47270     47273     47275
                                                  GEN            47451     47506     47647     47651     47655     47657     47737
                                                                 47775     50013     50032     50042
          WQ.CS       41565             
          WQ.DOOT     41566             
          CAI         41567                       QCGLINK         5614
          PIG         41612                       GEN            50274
          DUC.        41662                       FEC             6731      6732      6733      6734      6735      6741      6743
                                                                  6744      6770      6771      6775      6776      7000      7001
                                                                  7002      7003      7004      7005      7013      7014      7015
                                                                  7016
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   131  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DUC.1ST     41665                       FEC             6751      6761      6773      7006      7012
          DUC.2ND     41671                       FEC             7007      7011
          DUC.BTH     41675                       FEC             6745      6746      6747      6750      6752      6753      6754
                                                                  6755      6756      6757      6760      6762      6763      6764
                                                                  6765      6766      6767      6772      6774      7010
          POS         41713                       FUN            45025     45360     45532     45534     45575
                                                  GEN            51221     51224     51237
          RED         41732                       GEN            47447
          DPT         42016             
          QCP         42025                       FEC             7035
          SMB         42043                       REC            51430
          WTE         42056                       GEN            51073
                                                  INIT10         61232
          WIN         42061                       FUN            44621     45474
                                                  REG            46020     46071     46116     46131     46157     46167     46377
                                                                 46435     46465     46471     46476     46503     46560     46615
                                                                 46625     46635     46663     46774     47054     47264     47365
                                                                 47414     47422
                                                  GEN            47557     47617     47725     47772     50031     50134     50143
                                                                 50151     50155     50212     50254     50257     50261     50305
                                                                 50310     50316     50320     50323     50326     50331     50342
                                                                 50345     50350     50354     50357     50362     50365     50370
                                                                 50373     50376     50414     50417     50435     50440     50546
                                                                 50551     50556     50561     50564     50602     50606     50611
                                                                 50615     50630     50636     50641     50652     50654     50663
                                                                 50670     50673     50676     50701     50705     50710     50723
                                                                 50754     51002     51005     51020     51023     51027     51033
                                                                 51040     51044     51047     51051     51054     51056     51060
                                                                 51062     51066     51102     51106     51110     51113     51120
                                                                 51122     51126     51131     51145     51147     51152     51154
                                                                 51157     51161     51164     51166     51171     51173     51176
                                                                 51201     51205     51211     51232     51234
                                                  INIT10         61232
          ITS         42317                       GEN            50657
          F.SKNAM     42364   QSKEL     
          B=QSKEL     42364                       RPV10           2663
          F.SKEL      42364                       CONRED         37164
                                                  GEN            47452
                                                  INIT10         61234
          SKEND       43640             
          OM=ADD      43641                       PAR            32132
          OM=SUB      43642                       PAR            32133     32167
          OM=MUL      43643                       PAR            32134     32166
          OM=DIV      43644                       PAR            32135     32165
          OM=UMI      43645                       PAR            32136
          OM=LT       43646                       PAR            32140     32145     32250
          OM=GE       43650                       PAR            32141     32144     32247
          OM=NE       43652                       PAR            32143     32251
          OM=EQ       43654                       PAR            32142     32252
          OM=NOT      43656                       PAR            32146
          OM=AND      43657                       PAR            32147
          OM=OR       43660                       PAR            32153
          OM=EQV      43661                       PAR            32152
          OM=XOR      43662                       PAR            32150     32151
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   132  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OM=STR      43663                       PAR            32157
          OM=DOC      43665                       PAR            32201
          F.MODC      43667                       PAR            35767     36322
          F.IFS       43676                       KEY            20576     20671     20673
          F.IFN       43705                       KEY            20674
          F.INTF      43713                       FEC            10423
                                                  DECL           23527
                                                  TYPE           25420
                                                  PAR            32564     32632     34741     35110     35153     35166     35171
                                                                 35204     35270     35300
          F.IMCV      44142                       PAR            35314
          F.SCT       44146                       CONRED         37616
                                                  QCGC           41705
                                                  GEN            47450
          F.SKCR      44146                       PAR            34436     35647
          B=FUN       44420   FUN                 RPV10           2664
          O=FAP       44420                       QSKEL          43314
          O=LIBF      44431                       QSKEL          43374
          O=FUN       44432                       QSKEL          43373
          O=GAP       44463                       QSKEL          43313
          O=HLEX      44467                       QSKEL          42544     42567     42623     42657
          O=HREL      44471                       QSKEL          42542     42564     42616     42652
          O=HSTO      44520                       QSKEL          42665
          O=IAP       44535                       QSKEL          43315
          O=INF       44545                       QSKEL          43375
          O=IOC       44551                       QSKEL          43324
          O=IOD       44566                       QSKEL          43325
          O=IOF       44603                       QSKEL          43376
          O=IOU       44625                       QSKEL          43326
          O=LIB       44647                       QSKEL          43402     43403
          O=SUB       44650                       QSKEL          43372
          ESC         45055                       REG            46460     47410
          UAP         45240                       GEN            51136
          O=LURET     45257                       QSKEL          43366
          O=APRET     45556                       QSKEL          43330     43337
          O=SCRET     45603                       QSKEL          43342     43353     43364
          O=SURET     45620                       QSKEL          43371
          APLFLG      45635                       QCGC           41572
          RG=BADR     45666   REG       
          B=REG       45666                       RPV10           2665
          RG=INTR     45671                       GEN            47437
          RG=TEMP     45674                       GEN            47440     47745
          RG=LOAD     45677                       GEN            47441     47675
          RG=LODX     45702                       GEN            47442     47714     47751
          RG=SET      45705             
          RG=STOR     45710                       GEN            47443
          AIR         45713                       GEN            50046
          ASR         45725                       GEN            50017     50044     50047
          CDS         45757                       QCGC           41602
                                                  FUN            44603
                                                  GEN            47603     47667     50127     50163     50520
          CIA         45776                       FUN            44604     45455
                                                  GEN            47555     50131     50141     50152     50156     50521
          CLI         46031                       GEN            47761
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   133  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CRJ         46117                       FUN            44546     44623     45452
                                                  GEN            50201
          CWI         46146                       FUN            45541     45546
          DIT         46173                       FUN            44453     44460
                                                  GEN            50052
          DSC         46212                       GEN            47675
          GNR         46243                       GEN            47721     47751
          GST         46316                       FUN            45501     45543
                                                  GEN            47754
          GSTC        46341                       GEN            47676
          GTR         46342                       GEN            47612     47634
          LSC         46637                       GEN            47715
          LTG         46670                       GEN            47712
          RLL         46676                       GEN            50004     50016     50076
          RUL         46703                       GEN            47565     50022     50103
          REGLK       46712                       GEN            47436     47564     47567     50073     50077
          CLOADJ      46714                       GEN            50102
          STRGLK      46715                       GEN            47436     47726
          RUT         46724                       FUN            45261
                                                  GEN            47620     47621     50051
          SDS         47014                       GEN            50035
          SFR         47115                       GEN            47745
          STS         47145                       FUN            45537     45544
                                                  GEN            47744     50000
          O=PAR       47210                       QSKEL          43312
          SLD         47211                       GEN            47673     50033
          P2=KEEP     47430                       GEN            47700
          B=GEN       47433   GEN                 RPV10           2666
          EIS         47433                       QCGC           41601
          EIS.PNX     47445                       FUN            44430     44466     44565     44601     44646
                                                  REG            47210
          SUB.RET     47452                       FUN            44542     45263     45555     45602     45622
          O=HSBS      47560                       QSKEL          42670
          NULLOP      47560                       FUN            44422     44450     44461     44515     44534     44624     44661
          O=BVD       47560                       QSKEL          43417
          O=HCOL      47560                       QSKEL          42667
          O=HCAT      47560                       QSKEL          42666
          O=NOOP      47560                       QSKEL          43456     43475
          CURSK       47571                       FUN            44474     44515     44520     44532
          EIS.GP      47646             
          INS.REG     50112                       REG            46546     46551     46761
          IJK         50114                       REG            46760
          RUT.REG     50121                       REG            46001     46747
          O=CAR       50156                       QSKEL          43156     43164     43267     43305     43401     43470
          O=CBJ       50160                       QSKEL          43254     43306
          O=CDW       50163                       QSKEL          43377     43404     43410     43467
          O=PLA       50172                       QSKEL          43311
          O=CRJ       50175                       QSKEL          43400
          O=CDCS      50203                       QSKEL          43465
          O=CDDOT     50205                       QSKEL          43464
          O=CDLOO     50207                       QSKEL          43463
          OCIOL       50213                       QCGC           42042
          O=ENT       50214                       QSKEL          43416
          O=GENT      50224                       QSKEL          43425
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   134  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=GENTX     50226                       QSKEL          43454
          O=FPENT     50243                       QSKEL          43452
          O=FPHDR     50300                       QSKEL          43443
          ISA         50302             
          O=EVD       50520                       QSKEL          43420
          O=FUNT      50525                       QSKEL          43431
          O=MENT      50536                       QSKEL          43426
          ENT.EGL     50570                       QCGC           42034
          ENT.STO     50571             
          ENT.SUB     50572                       FUN            45444
          ENT.SB0     50573                       REG            46623
          ENT.VD      50574                       QCGC           41617
          N.ALTEN     50575             
          O=FIN       50633                       QSKEL          43471
          O=FINX      50650                       QSKEL          43424     43444
          O=GFD       50774                       QSKEL          43460
          O=HDR       51025                       QSKEL          43457
          O=DATA      51063                       QSKEL          43466
          O=ILL       51076                       QSKEL          42364     43473     43474
          O=LCC       51077                       QSKEL          43472
          O=PLIM      51103                       QSKEL          43461
          O=RGT       51133                       QSKEL          43272
          O=SEX       51142                       QSKEL          43462
          O=IM        51212                       QSKEL          42422
          O=ID        51213                       QSKEL          42450
          O=MASK      51214                       QSKEL          43116
          O=MOD       51215                       QSKEL          43126
          O=SHIFT     51216                       QSKEL          43150
          O=DOB       51217                       QSKEL          43157     43165
          O=DOBZ      51220                       QSKEL          43153     43166
          O=DOC       51223                       QSKEL          43172     43201     43207     43214     43220
          O=PDE       51226                       QSKEL          43200     43204
          O=PCG       51227                       QSKEL          43270
          O=PASG      51235                       QSKEL          43307
          B=REC       51246   REC                 RPV10           2667
          WO.56       51246                       FAS            53064
          WO.57       51247                       FAS            53061
          REC         51250                       QCGLINK         5605
          ADA         51550                       FAS            53346
          BT.IDNT     51676   FAS                 REC            51343
          B=FAS       51676                       RPV10           2670
          BT.XFR1     51757             
          CIDMOD      51763             
          COMMOD      51764             
          FCLMOD      51766                       LIST           60714
          FAPSUD      52030                       LIST           57632
          ORG         52077             
          PARCEL      52100             
          ORGSUB      52101                       LIST           61057
          SUBFLG      52102             
          ORGSUB0     52103             
          TAGSUB0     52104                       LIST           57732
          OL=BIN      52105                       LIST           60051     60305
          OL=LBF      52106                       LIST           57666     57761     60033     60263     60314     61075
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   135  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OL=PB       52107                       LIST           57630
          OL=RL       52110                       LIST           60045     60101     60160     60254     60303     60307
          FAS         52117                       REC            51325
          APLA        52233                       LIST           57753     61027
          RADRTN      52365                       REC            51277     51301
          RADOL1      52427                       REC            51301
          RADOL2      52447                       REC            51303
          RADC        52651                       LIST           57626
          BST         52666                       REC            51272
          BST.EQ      52667                       REC            51274
          CAB         52725             
          CLE         52735                       REC            51307
          CLE.EQ      52736                       REC            51310
          DLF         53206                       ALLOC          14345
          ESL         53305                       REC            51311
          ESL.EQ      53306                       REC            51312
          FBP         53326                       REC            51303
          FBP.EQ      53327                       REC            51305
          POL         54074                       REC            51275
          POL.EQ      54075                       REC            51277
          RNI         54221             
          SNR         54245                       REC            51411
          WLF         54306                       REC            51270
          WLF.EQ      54307                       REC            51272
          B=MAP       54335   MAP                 RPV10           2671
          FIN         54335                       INIT10         61172
          MAP         55054                       REC            51260
          FIN.MAP     57601                       INIT10         61167
          B=LIST      57601   LIST                RPV10           2672
          PIK         57625                       FAS            54101
          LI=BCI      57737                       FAS            52051
          LI=OTR      57737                       FAS            52064
          LI=EMI      57737                       FAS            52057
          LI=BMI      57737                       FAS            52033
          LI=LOO      57737                       FAS            52044     52063
          LI=ECI      57737                       FAS            52056
          LI=ADDR     57740                       FAS            52030
          LI=APL      57752                       FAS            52032
          LI=BOS      57756                       FAS            52052
          LI=BSS      57767                       FAS            52031     52054
          LI=CON      57771                       FAS            52034
          LI=CPL      60001                       FAS            52053
          LI=DATA     60015                       FAS            52055
          LI=END      60017                       FAS            52035
          LI=EQUN     60025                       FAS            52036
          LI=FMT      60040                       FAS            52037
          LI=FLA      60047                       FAS            52074
          LI=FVEC     60056                       FAS            52040
          LI=PLIM     60072                       FAS            52046
          LI=IDNT     60076                       FAS            52041
          LI=IOM      60105                       FAS            52042
          LI=JPI      60115                       FAS            52060
          LI=LCC      60120                       FAS            52043
          LI=LD0      60121                       FAS            52061
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   136  
          OVERLAY(FTN,1,0,O=FWA10)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          LI=ST0      60121                       FAS            52062
          LI=NLST     60122                       FAS            52045
          LI=RJ3      60124                       FAS            52065
          LI=RJ6      60125                       FAS            52066
          LI=SB0I     60132                       FAS            52070
          LI=SUBI     60133                       FAS            52067
          LI=UJP      60142                       FAS            52071
          LI=USE      60143                       FAS            52050     52072
          LI=TRAC     60155                       FAS            52047
          LI=ZERO     60164                       FAS            52073
          VFD         60342                       FAS            52427     52450
          FIN.OL      61153                       INIT10         61165
          B=INIT1     61153   INIT10              RPV10           2673
          FTN10       61153             
          B=LWA10     61311                       RPV10           2674
  
  
  
  
  
 -------- OVERLAY(FTN,2,0,O=FWA20)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD           1633
          LWA+1 OF THE LOAD         5702
  
          TRANSFER ADDRESS -- FTN20           5666          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN520         1633      775    OVR      24/05/02 COMPASS 3.7 871               FTN5 PRIMARY OVERLAY FOR CCG. 
          RPV20          2630       15    OVR      24/05/02 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          UTILITY        2645     1052    OVR      24/05/02 COMPASS 3.7 871               COMMON UTILITY ROUTINES.      
          LISTLNK        3717      171    OVR      24/05/02 COMPASS 3.7 871               MISC OUTPUT ROUTINES
          PUC            4110     1431    OVR      24/05/02 COMPASS 3.7 871               PROGRAM UNIT CONTROLLER AND SUPPORT.    
          CCGLINK        5541      125    OVR      24/05/02 COMPASS 3.7 871               CCG MODE LINKAGE ROUTINES.    
          INIT20         5666       14    OVR      24/05/02 COMPASS 3.7 871               INITIALIZE CONTROLLER OVERLAY.
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ERR.A           0   PUC       
          BN=STRT         0             
          BN=CODE         1             
          ERR.M           1             
          ERR.T           2             
          BN=CON          2             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   137  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RPV=FVT         2   FTN                 UTILITY         3057
          ERR.W           3   PUC       
          BN=FMT          3             
          FV.OUT          3   FTN                 PUC             5075      5102      5345
          BN=TEM          4   PUC       
          ERR.F           4             
          L.TA            5   FTN                 PUC             5323
          L.TTLA          5                       PUC             5313
          ERR.K           5   PUC       
          FV.LGO          5   FTN                 PUC             4607      5054
                                                  CCGLINK         5555
                                                  INIT20          5675
          BN=APL          5   PUC       
          BN=IOAP         6             
          ERR.C           6             
          L.TTLB          6   FTN                 PUC             5316
          N.ERRT          7   PUC       
          L.CCA           7   FTN                 PUC             5327
          BN=NLST         7   PUC       
          L.CCB           7   FTN                 PUC             5331
          L.TB            7                       PUC             5325
          BN=VAR         10   PUC       
          BN=SUB         11             
          BN=SUB0        12             
          BN=BUF         13             
          L.TWO          14   FTN                 PUC             5301
          Z$LBT          14   PUC       
          Z.LBT          14             
          N$LBT          14             
          L.TITL         15   FTN                 PUC             5273
          L.CC           15                       PUC             5303
          ERFO           47                       PUC             4650      4652      5252
          N.TABLE        47   PUC                 CCGLINK         5662
          Z.SORD         53             
          CP.ABT        114   FTN                 PUC             4717
          CP.ERCT       115                       PUC             4717
          CP.LSTF       116                       PUC             4563
          CP.PAGE       117                       PUC             4564      4636      5336
          CP.EPAG       120                       PUC             4641      4645      5337
          CP.BLF        121                       PUC             4564
          CP.PD         122                       PUC             5077      5257      5261
          CP.MXFL       126                       PUC             4662      4707
          CP.IFMT       130                       PUC             4574
                                                  INIT20          5674
          CP.ILFL       133                       PUC             4732      4756
          GT1           135                       PUC             4733      4735      4737      4752      4754      4760      4763
                                                                  5004      5007      5102      5103      5166      5170      5172
          CP.CARD       141                       PUC             4576      4632
          CP.AFLS       201                       PUC             4660      4666      4674      4750      5162      5173      5175
                                                  INIT20          5673
          CP.NFLS       202                       PUC             5174      5176
                                                  CCGLINK         5634      5641
          CP.AFLL       203                       PUC             4756
          F.IN          211                       PUC             4577
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   138  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          F.OUT         221                       PUC             4572      4637      5306
          F.ERRS        231                       PUC             4642
          F.LGO         241                       PUC             4611      5055      5057
                                                  INIT20          5676
          B=FTN         251                       RPV20           2633
          SYS=          253                       UTILITY         3021      3073      3340
                                                  PUC             4731      4736      4741      4745      4755      4764      4766
                                                                  5006      5171
                                                  INIT20          5672
          RCL=          266                       UTILITY         3451      3507      3653      3712
          WNB=          272                       UTILITY         2700      3021      3073      3331      3576
                                                  PUC             4612      5017
                                                  CCGLINK         5575
          MSG=          302                       UTILITY         3022      3043      3045      3047      3051      3074
                                                  PUC             4712      4716      4743      5235
          INT.FL        310                       PUC             4670      4750
                                                  INIT20          5674
          F.PB          311                       PUC             4617      4622      5062
                                                  CCGLINK         5615
          F.IL          321                       PUC             4605      5065
                                                  CCGLINK         5557      5576
          F.REF         331                       PUC             4625      4630      5070
                                                  CCGLINK         5565      5567      5575      5607
          MAX.FL        343                       PUC             5162
          RAPFLAG       347                       PUC             4575
          RS.PD         350                       PUC             5100
          TIME0         351                       PUC             4713
          TIME1         352                       LISTLNK         4021      4023
                                                  PUC             4670
          CO.ANSI       355                       PUC             4701
          CO.GO         373                       PUC             4724
          CO.OPT        377                       PUC             4604      4613      4616      4627      5064
          CO.PS         400                       LISTLNK         3737
                                                  PUC             4563      5350
          CO.PW         401                       PUC             5076      5256      5267
          CO.PWE        402                       PUC             4646
          CO.LOO        425                       PUC             4607
                                                  CCGLINK         5555
          CO.LOR        426                       CCGLINK         5561      5604
          O.TITL        440                       PUC             5273
          TL.EJCT       440                       PUC             4647
          TL.PTYP       441                       PUC             5315
          O.TTLA        447                       PUC             4651      5313
          TL.PAGE       454                       PUC             5272      5311
          O.CPV         455                       PUC             5300      5322
          O.TA          462                       PUC             5324
          O.CC          471                       PUC             5302      5326
          O.C           500                       PUC             5330
          LDCOM         524                       PUC             4642      4644
          LOVER         531                       CCGLINK         5551      5601      5620
          ABTFTN        600                       PUC             4723
          COD           615                       UTILITY         3017      3071      3133
                                                  PUC             4707
          L=TABLE       632   PUC       
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   139  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RPV=RNA      2630   RPV20               UTILITY         3124
          B=RPV20      2630             
          RPV2N        2642             
          B=UTILI      2645   UTILITY             RPV20           2635
          CDD          2650                       LISTLNK         3750      3767      3777      4007      4013
                                                  PUC             5225      5266
          CDD=         2650             
          DXB          2667             
          FA=SET       2676                       PUC             4621      4631
                                                  INIT20          5700
          MVE=         2737                       PUC             5212      5220
          RPV=         2775                       INIT20          5666      5671
          FRA=         3124             
          MNS=         3177             
          SBM=         3256             
          SFN=         3263             
          SFN          3263                       PUC             5203
          SST          3301             
          WOD          3304             
          ZTB          3322             
          ZTB=         3322             
          CIO=         3341                       PUC             4606      4623      4626      4640      4643      5056      5060
                                                                  5063      5066      5071      5105
                                                  CCGLINK         5560      5570      5577      5611      5616
          RDC=         3347                       PUC             4600
          RDW=         3374             
          WTH=         3533                       PUC             4573      5104      5262      5274      5301      5303      5307
                                                                  5314      5316      5323      5325      5327      5331      5333
                                                                  5365      5373
          WTO=         3566             
          WTW=         3610                       CCGLINK         5566      5610
          WTX=         3675             
          DCB=         3710             
          LUS          3717   LISTLNK             PUC             4666
          B=LISTL      3717                       RPV20           2636
          BASES        4110   PUC                 CCGLINK         5655      5661      5663
          T.LGOB       4110             
          O.P2NUL      4110             
          B=PUC        4110                       RPV20           2637
          T.TB         4110             
          ORIGINS      4110             
          T.PTXTR      4111             
          T.ARG        4111             
          T.STF        4112             
          T.LINK       4112             
          T.EQUS       4112             
          T.IOARG      4113             
          T.DVV        4113             
          T.COMM       4113             
          T.SLARG      4113             
          T.FPO        4113             
          T.BLST       4114             
          T.SCR        4115             
          T.DATI       4115             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   140  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.OUS        4115             
          T.PTXT       4115             
          T.ILI        4116             
          T.FILL       4116             
          T.DATL       4116             
          T.EOT        4116             
          T.DATS       4117             
          T.SAP        4117             
          T.IOLC       4117             
          T.DAR        4120             
          T.XFIL       4120             
          T.PAR        4120             
          T.PCS        4121             
          T.CLWB       4122             
          T.STMT       4122             
          T.SUB        4123             
          T.VDIM       4124             
          T.SUB0       4124             
          T.C$IF       4125             
          O.P2USE      4126                       CCGLINK         5655
          T.CLW        4126             
          O=CLW        4126             
          O=CAC        4127             
          T.CAC        4127             
          O=APL        4130             
          T.APL        4130             
          T.IOA        4131             
          O=IOA        4131             
          T.API        4132             
          O=API        4132             
          O=IOI        4133             
          T.IOI        4133             
          O=GL         4134             
          T.GL         4134             
          T.ASG        4135             
          O=ASG        4135             
          T.CON        4136             
          O=CON        4136             
          O=CUT        4137             
          T.CUT        4137             
          T.LA         4137             
          O=SYM        4140             
          T.SYM        4140             
          O=BLKS       4141             
          T.BLKS       4141                       LISTLNK         3726      3755
          T.NLST       4142             
          O=NLST       4142             
          T.DIM        4143             
          O=DIM        4143             
          O=ENTP       4144             
          T.ENTP       4144             
          T.FPI        4145             
          O=FPI        4145             
          T.VDI        4146             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   141  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O=VDI        4146             
          T.REF        4147                       CCGLINK         5564      5606
          O.P2SAV      4147                       CCGLINK         5572      5651      5660
          T.LCA        4150             
          T.ECT        4151             
          T.ENT        4152             
          T.LNT        4153             
          T.LCC        4154             
          T.FMT        4155             
          T.END        4156                       CCGLINK         5642
          L.P2NUL      4157             
          SIZES        4157                       CCGLINK         5623      5663
          T=TB         4157             
          T=LGOB       4157             
          T=PTXTR      4160             
          T=ARG        4160             
          T=STF        4161             
          T=EQUS       4161             
          T=LINK       4161             
          T=FPO        4162             
          T=SLARG      4162             
          T=DVV        4162             
          T=COMM       4162             
          T=IOARG      4162             
          T=BLST       4163             
          T=OUS        4164             
          T=SCR        4164             
          T=PTXT       4164             
          T=DATI       4164             
          T=ILI        4165             
          T=EOT        4165             
          T=FILL       4165             
          T=DATL       4165             
          T=SAP        4166             
          T=DATS       4166             
          T=IOLC       4166             
          T=DAR        4167             
          T=PAR        4167             
          T=XFIL       4167             
          T=PCS        4170             
          T=STMT       4171             
          T=CLWB       4171             
          T=SUB        4172             
          T=VDIM       4173             
          T=SUB0       4173             
          T=C$IF       4174             
          T=CLW        4175             
          L.P2USE      4175             
          L=CLW        4175             
          T=CAC        4176             
          L=CAC        4176             
          L=APL        4177             
          T=APL        4177             
          T=IOA        4200             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   142  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L=IOA        4200             
          T=API        4201             
          L=API        4201             
          L=IOI        4202             
          T=IOI        4202             
          T=GL         4203             
          L=GL         4203             
          L=ASG        4204             
          T=ASG        4204             
          L=CON        4205             
          T=CON        4205             
          T=CUT        4206             
          L=CUT        4206             
          T=LA         4206             
          L=SYM        4207             
          T=SYM        4207             
          T=BLKS       4210             
          L=BLKS       4210             
          L=NLST       4211             
          T=NLST       4211             
          L=DIM        4212             
          T=DIM        4212             
          T=ENTP       4213             
          L=ENTP       4213             
          T=FPI        4214             
          L=FPI        4214             
          T=VDI        4215             
          L=VDI        4215             
          L.P2SAV      4216                       CCGLINK         5623      5627
          T=REF        4216                       CCGLINK         5564      5571      5606
          T=LCA        4217             
          T=ECT        4220             
          T=ENT        4221             
          T=LNT        4222             
          T=LCC        4223             
          T=FMT        4224             
          T=END        4225                       CCGLINK         5627      5642
          RATES        4226             
          TV=DECL      4275             
          TV=EXU       4276             
          TV=END       4277             
          TV=CUR       4300             
          F$LBT        4301             
          F.LBT        4301             
          SUM.LBT      4315                       LISTLNK         3746      3750
          COMSIZ       4316                       LISTLNK         3733      3735      3773      4003
          ALC.PAR      4320             
          BINIO        4321                       CCGLINK         5614
          BLNKCOM      4322                       LISTLNK         3724      3754
          CBI          4323             
          CHARDCL      4324             
          N$FERR       4325             
          ERRORS       4325             
          ENTRJ        4326             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   143  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FAILSFT      4327             
          O.TABS       4330                       CCGLINK         5644
          IDENT1       4331             
          RPV=MSG      4331                       UTILITY         3042
          HO$MSG       4332             
          HO$PRGN      4333             
          IDENT        4333             
          IO.TEM       4334             
          LCNT         4335                       LISTLNK         3737
          N$LINES      4335             
          LEVEL        4337             
          LEVEL0       4340             
          HO$LVL2      4341             
          LEVEL2       4341             
          LINEBUF      4343             
          LINENR       4361             
          HO$CSN       4361             
          RPV=CLN      4361                       UTILITY         3037
          CARDS        4361             
          LINES        4361             
          LOSTREF      4362             
          MOD          4363             
          NARGS        4364             
          NOLIST       4365             
          NREXT        4366             
          NSQZLH       4367             
          N.AP         4370             
          N.ARP        4371             
          N.BUF        4372             
          N.CPL        4373             
          N.CON        4374             
          N.CT         4375             
          N.CTMAX      4376             
          N.DOB        4377             
          N.EPL        4400             
          N$SEP        4400             
          N.FP         4401             
          N$FPS        4401             
          N.GL         4402             
          N.MAXIL      4403             
          N$LC         4404             
          N.ST         4405             
          N.STMAX      4406             
          N$VD         4407             
          N.VD         4407             
          O.STITL      4410             
          HO$PMLS      4411             
          PU.MFL       4411             
          PASS         4412             
          PWBUF        4413             
          WOF=ERR      4430             
          REFIO        4431                       CCGLINK         5562      5604
          RPV=URP      4432                       UTILITY         3052
          HO$RDR       4432             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   144  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          SAVE         4433             
          THRESH       4434             
          USAVE        4435             
          L.TABS       4436             
          SCR          4437             
          WO.C$        4451             
          WO.CS        4451             
          WO.DOLG      4452             
          WO.DOOT      4453             
          WO.LOA       4454                       LISTLNK         3720
          WO.LOM       4455             
          WO.LOO       4456             
          WO.LOR       4457             
          WO.LOS       4460             
          WO.QC        4461                       CCGLINK         5554
          WO.LCM       4462             
          CONONE       4463             
          CONZER       4464             
          CONZERI      4465             
          VTRUE        4466             
          VFALSE       4467             
          S=AEXIT      4470             
          F.SORD       4470             
          S=BU         4471             
          S=BUFIN      4472             
          S=BUF        4473             
          S=CES        4474             
          S=CL         4475             
          S=CON        4476             
          S$CON        4476             
          S=CP         4477             
          S=CPL        4500             
          S=CT         4501             
          S=ENTRY      4502             
          S=ERR        4503             
          S=EXIT       4504             
          S=FAR        4505             
          S=FAS        4506             
          S=FID        4507             
          S=FMC        4510             
          S=FVS        4512             
          S=FILES      4513             
          S=GPL        4514             
          S=LA         4515             
          S=LC         4516             
          S$LC         4516             
          S=LENP       4517             
          S=LMC        4520             
          S=MMC        4521             
          S=IT         4522             
          S$IT         4522             
          S=INIT       4523             
          S=OT         4524             
          S$OT         4524             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   145  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=RD         4525             
          S=SA1        4526             
          S=SA0        4527             
          S=SLI        4530             
          S=SPA        4531             
          S=ST         4532             
          S=SUB        4533             
          S=SUBI       4534             
          S=SUB0I      4535             
          S=TRACE      4536             
          S=TA0        4537             
          S=UPW        4540             
          S=VALUE      4541             
          S=VD         4542             
          S$VD         4542             
          ERRTYP       4543             
          ERR=A        4552             
          ERR=M        4553             
          ERR=T        4554             
          ERR=W        4555             
          ERR=F        4556             
          ERR=K        4557             
          ERR=C        4560             
          E=TOTAL      4561             
          PUC          4563                       INIT20          5675      5676      5701
          ENDFTN       4707             
          CPTIM        4777                       LISTLNK         4021
          TIMER        5003                       LISTLNK         4022
          CAF          5051             
          ECB          5107             
          ECS          5141             
          GCL          5154             
          GMC          5161                       CCGLINK         5636
          LJS          5200             
          MTD          5205                       CCGLINK         5646
          MTU          5214                       CCGLINK         5650
          PIA          5242                       LISTLNK         3746      3765      3775      4005      4015
          WOF          5343                       LISTLNK         3743      3745      3753      3772      4002      4012      4020
                                                                  4033
          PIK=PS       5401             
          F.PIK        5401             
          PIK=EQ       5405             
          PIK=LCM      5501             
          PIK=XJP      5503             
          PIK=PI       5513             
          HDRBL        5535             
          B=CCGLI      5541   CCGLINK             RPV20           2640
          N$EXST       5541             
          APCON        5542             
          N.IL         5543             
          O=FE         5544             
          L=FE         5545             
          ERR22        5546             
          FEL          5547                       PUC             4655
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   146  
          OVERLAY(FTN,2,0,O=FWA20)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FEL.RTN      5552             
          CGL          5553                       PUC             4656
          CGL.RTN      5602             
          REL          5613                       PUC             4657
          REL.RTN      5621             
          FW.ILB       5666   INIT20    
          B=INI20      5666                       RPV20           2641
          FTN20        5666             
          FWA23        5666                       CCGLINK         5617
          FWA21        5666                       CCGLINK         5550
          B=LWA20      5702                       RPV20           2642
          FW.PBB       7672             
          FWA22       11676                       CCGLINK         5600
  
  
  
  
  
 -------- OVERLAY(FTN,2,1,O=FWA21)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD           5673
          LWA+1 OF THE LOAD        44401
  
          TRANSFER ADDRESS -- FTN21          44303          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN521         5673        0    OVR      24/05/02 COMPASS 3.7 871               FTN5 FRONT END OVERLAY FOR CCG.         
          RPV21          5673       30    OVR      24/05/02 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          /RGFILE/       5723      500
          /HASH/         6423      200
          FEC            6623     1772    OVR      24/05/02 COMPASS 3.7 871               FRONT END CONTROLLER AND SUPPORT.       
          FERRS         10615     3106    OVR      24/05/02 COMPASS 3.7 871               FRONT END ERROR TEXTS.        
          PEM           13723      330    OVR      24/05/02 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC         14253      302    OVR      24/05/02 COMPASS 3.7 871               TABLE ALLOCATION.   
          FLINK         14555      240    OVR      24/05/02 COMPASS 3.7 871               CCG MODE FRONT END LINKAGES.  
          LEX           15015     2327    OVR      24/05/02 COMPASS 3.7 871               LEXICAL SCANNER.    
          HEADER        17344      633    OVR      24/05/02 COMPASS 3.7 871               PROGRAM UNIT HEADER STATEMENTS.         
          KEY           20177     1347    OVR      24/05/02 COMPASS 3.7 871               KEYWORD STATEMENT TRANSLATION.
          CDDIR         21546      267    OVR      24/05/02 COMPASS 3.7 871               C$ DIRECTIVE PROCESSING.      
          DATA          22035     1027    OVR      24/05/02 COMPASS 3.7 871               TRANSLATE DATA STATEMENTS.    
          DECL          23064     2612    OVR      24/05/02 COMPASS 3.7 871               DECLARATIVE PHASE STATEMENTS. 
          TYPE          25676      417    OVR      24/05/02 COMPASS 3.7 871               EXPLICIT / IMPLICIT TYPE DECLARATIONS.  
          FMT           26315      726    OVR      24/05/02 COMPASS 3.7 871               FORMAT STATEMENT PROCESSOR.   
          IO            27243     2772    OVR      24/05/02 COMPASS 3.7 871               INPUT/OUTPUT STATEMENT PROCESSING.      
          PAR           32235     4576    OVR      24/05/02 COMPASS 3.7 871               EXPRESSION TRANSLATION.       
          CONRED        37033     1425    OVR      24/05/02 COMPASS 3.7 871               FRONT END CONSTANT ARITHMETIC.
          STMTF         40460      207    OVR      24/05/02 COMPASS 3.7 871               STATEMENT FUNCTION PROCESSOR. 
          LABEL         40667     1221    OVR      24/05/02 COMPASS 3.7 871               LABELS AND *DO* STATEMENT.    
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   147  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          /SKLNAM/      42110        0
          FSKEL         42110     2173    OVR      24/05/02 COMPASS 3.7 871               DEFINE TURPLE OP CODE VALUES FOR FRONT END.    
          INIT21        44303       76    OVR      24/05/02 COMPASS 3.7 871               INITIALIZE FRONT END OVERLAY. 
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=LT.H        *WEAK*                    FSKEL          44057
          D=LT.I        *WEAK*                    FSKEL          44054
          D=LT.R        *WEAK*                    FSKEL          44055
          D=ABS         *WEAK*                    FSKEL          44121
          D=ADD.C       *WEAK*                    FSKEL          44032
          D=ADD.D       *WEAK*                    FSKEL          44031
          D=ADD.I       *WEAK*                    FSKEL          44027
          D=ADD.R       *WEAK*                    FSKEL          44030
          D=AGOTO       *WEAK*                    FSKEL          44172
          D=AIMAG       *WEAK*                    FSKEL          44123
          D=AINT        *WEAK*                    FSKEL          44124
          D=AMAX1       *WEAK*                    FSKEL          44132
          D=AMIN1       *WEAK*                    FSKEL          44133
          D=AMOD        *WEAK*                    FSKEL          44134
          D=AND.L       *WEAK*                    FSKEL          44115
          D=ANINT       *WEAK*                    FSKEL          44125
          D=APIOC       *WEAK*                    FSKEL          44204
          D=APIOD       *WEAK*                    FSKEL          44205
          D=APIOU       *WEAK*                    FSKEL          44206
          D=PLIM        *WEAK*                    FSKEL          44231
          D=ASSGN       *WEAK*                    FSKEL          44176
          D=RET         *WEAK*                    FSKEL          44217
          D=BVD         *WEAK*                    FSKEL          44223
          D=CAT         *WEAK*                    FSKEL          44103
          D=CDCS        *WEAK*                    FSKEL          44235
          D=CDDOT       *WEAK*                    FSKEL          44234
          D=CDLOO       *WEAK*                    FSKEL          44233
          D=CGOTO       *WEAK*                    FSKEL          44173
          D=CMPLX       *WEAK*                    FSKEL          44136
          D=R1N3        *WEAK*                    FSKEL          44254
          D=CONJG       *WEAK*                    FSKEL          44135
          D=DABS        *WEAK*                    FSKEL          44137
          D=DATA        *WEAK*                    FSKEL          44236
          D=DDIM        *WEAK*                    FSKEL          44140
          D=DIM         *WEAK*                    FSKEL          44141
          D=DINT        *WEAK*                    FSKEL          44142
          D=DIR.C       *WEAK*                    FSKEL          44051
          D=DIR.R       *WEAK*                    FSKEL          44050
          D=DIV.C       *WEAK*                    FSKEL          44046
          D=DIV.D       *WEAK*                    FSKEL          44045
          D=DIV.I       *WEAK*                    FSKEL          44043
          D=DIV.R       *WEAK*                    FSKEL          44044
          D=DMAX1       *WEAK*                    FSKEL          44127
          D=DMIN1       *WEAK*                    FSKEL          44131
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   148  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=DNINT       *WEAK*                    FSKEL          44144
          V=IEQ.L       *WEAK*                    PAR            34232
          D=SUM1S       *WEAK*                    FSKEL          44122
          D=UMI.D       *WEAK*                    FSKEL          44053
          D=UMI.I       *WEAK*                    FSKEL          44052
          D=XOR.L       *WEAK*                    FSKEL          44120
          D=DOC.D       *WEAK*                    FSKEL          44166
          D=DOC.O       *WEAK*                    FSKEL          44162
          D=DOC.R       *WEAK*                    FSKEL          44165
          V=INE.H       *WEAK*                    PAR            34237
          D=DOC.1       *WEAK*                    FSKEL          44163
          D=DPROD       *WEAK*                    FSKEL          44143
          D=DSIGN       *WEAK*                    FSKEL          44145
          D=DTOC        *WEAK*                    FSKEL          44113
          D=DVC.R       *WEAK*                    FSKEL          44047
          D=LLT         *WEAK*                    FSKEL          44060
          D=ENTR        *WEAK*                    FSKEL          44222
          D=EQV.L       *WEAK*                    FSKEL          44116
          D=EQ.D        *WEAK*                    FSKEL          44075
          D=EQ.H        *WEAK*                    FSKEL          44076
          D=EQ.I        *WEAK*                    FSKEL          44073
          D=EQ.R        *WEAK*                    FSKEL          44074
          D=ERR         *WEAK*                    FSKEL          44214
          D=EVD         *WEAK*                    FSKEL          44224
          D=MOD         *WEAK*                    FSKEL          44152
          D=FAP         *WEAK*                    FSKEL          44202
          D=FILE        *WEAK*                    FSKEL          44230
          D=FIN         *WEAK*                    FSKEL          44237
          D=FUNC        *WEAK*                    FSKEL          44210
          D=GAP         *WEAK*                    FSKEL          44201
          D=GE.D        *WEAK*                    FSKEL          44063
          D=GE.H        *WEAK*                    FSKEL          44064
          D=GE.I        *WEAK*                    FSKEL          44061
          D=GE.R        *WEAK*                    FSKEL          44062
          D=GOTO        *WEAK*                    FSKEL          44171
          D=GPL         *WEAK*                    FSKEL          44221
          D=HDR         *WEAK*                    FSKEL          44227
          D=IAP         *WEAK*                    FSKEL          44203
          D=IDIM        *WEAK*                    FSKEL          44150
          D=IDNIN       *WEAK*                    FSKEL          44146
          D=IEQ.C       *WEAK*                    FSKEL          44276
          D=IEQ.D       *WEAK*                    FSKEL          44275
          D=IEQ.I       *WEAK*                    FSKEL          44273
          D=IEQ.R       *WEAK*                    FSKEL          44274
          D=IFF         *WEAK*                    FSKEL          44271
          D=IFT         *WEAK*                    FSKEL          44270
          D=ILL         *WEAK*                    FSKEL          44026
          D=INE.C       *WEAK*                    FSKEL          44302
          D=INE.D       *WEAK*                    FSKEL          44301
          D=INE.I       *WEAK*                    FSKEL          44277
          D=INE.R       *WEAK*                    FSKEL          44300
          D=INN3        *WEAK*                    FSKEL          44262
          D=INTF        *WEAK*                    FSKEL          44212
          D=IN2N        *WEAK*                    FSKEL          44266
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   149  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=IN22        *WEAK*                    FSKEL          44256
          D=IN23        *WEAK*                    FSKEL          44252
          D=IOLC        *WEAK*                    FSKEL          44167
          D=IOSUB       *WEAK*                    FSKEL          44213
          D=ISIGN       *WEAK*                    FSKEL          44147
          D=ITOB        *WEAK*                    FSKEL          44107
          D=ITOD        *WEAK*                    FSKEL          44110
          D=ITOR        *WEAK*                    FSKEL          44106
          D=I1NN        *WEAK*                    FSKEL          44260
          D=I1N1        *WEAK*                    FSKEL          44267
          D=I1N3        *WEAK*                    FSKEL          44253
          D=I11N        *WEAK*                    FSKEL          44264
          D=I111        *WEAK*                    FSKEL          44272
          D=I113        *WEAK*                    FSKEL          44247
          D=I12N        *WEAK*                    FSKEL          44255
          D=I121        *WEAK*                    FSKEL          44251
          D=I122        *WEAK*                    FSKEL          44245
          D=I123        *WEAK*                    FSKEL          44244
          D=JGOTO       *WEAK*                    FSKEL          44174
          D=LCC         *WEAK*                    FSKEL          44240
          D=LCIF        *WEAK*                    FSKEL          44170
          D=LEQ         *WEAK*                    FSKEL          44077
          D=LGE         *WEAK*                    FSKEL          44065
          D=LIBF        *WEAK*                    FSKEL          44211
          DUC.            0   FLINK               FEC             7036      7037      7040      7041      7042      7046      7050
                                                                  7051      7075      7076      7102      7103      7105      7106
                                                                  7107      7110      7111      7112      7120      7121      7122
                                                                  7123
          D=LNE         *WEAK*                    FSKEL          44072
          D=LT.D        *WEAK*                    FSKEL          44056
          D=R113        *WEAK*                    FSKEL          44250
          D=R122        *WEAK*                    FSKEL          44246
          D=SEG         *WEAK*                    FSKEL          44225
          D=MASK        *WEAK*                    FSKEL          44151
          D=MAX0        *WEAK*                    FSKEL          44126
          D=MIN0        *WEAK*                    FSKEL          44130
          D=STR.D       *WEAK*                    FSKEL          44101
          D=MUL.C       *WEAK*                    FSKEL          44042
          D=MUL.D       *WEAK*                    FSKEL          44041
          D=MUL.I       *WEAK*                    FSKEL          44037
          D=MUL.R       *WEAK*                    FSKEL          44040
          D=NE.D        *WEAK*                    FSKEL          44070
          D=NE.H        *WEAK*                    FSKEL          44071
          D=NE.I        *WEAK*                    FSKEL          44066
          D=NE.R        *WEAK*                    FSKEL          44067
          D=R11N        *WEAK*                    FSKEL          44265
          D=NOT.L       *WEAK*                    FSKEL          44114
          D=OR.L        *WEAK*                    FSKEL          44117
          D=PAUS        *WEAK*                    FSKEL          44216
          D=SEX         *WEAK*                    FSKEL          44232
          D=RANF        *WEAK*                    FSKEL          44153
          FEC=1ST         0   FEC                 LEX            15072     15120     15132     15133     15137     15147
          D=RGOTO       *WEAK*                    FSKEL          44175
          D=RNN3        *WEAK*                    FSKEL          44263
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   150  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=RN22        *WEAK*                    FSKEL          44257
          D=RTNK        *WEAK*                    FSKEL          44220
          D=RTOD        *WEAK*                    FSKEL          44112
          D=RTOI        *WEAK*                    FSKEL          44111
          D=R1NN        *WEAK*                    FSKEL          44261
          D=SUB.I       *WEAK*                    FSKEL          44033
          D=SUB.R       *WEAK*                    FSKEL          44034
          ERR.A           0   PUC                 FERRS          12057     12061     12063     12065     12067     12071     12073
                                                                 12143     12144     12145     12163     12172     12216     12267
                                                                 12325     12342     12461     12554     12625     12705     12723
                                                                 13055     13145     13162     13170     13415     13453     13460
                                                                 13564
          V=IEQ.H       *WEAK*                    PAR            34237
          D=SUBR        *WEAK*                    FSKEL          44207
          V=IEQ.B       *WEAK*                    PAR            34231
          D=SHIFT       *WEAK*                    FSKEL          44154
          D=STOP        *WEAK*                    FSKEL          44215
          V=INE.B       *WEAK*                    PAR            34231
          D=STR.H       *WEAK*                    FSKEL          44102
          V=ILL           0   FSKEL     
          D=SUB.D       *WEAK*                    FSKEL          44035
          ES=CMPL         0   PAR                 FSKEL          43623
          D=SUB.C       *WEAK*                    FSKEL          44036
          V=INE.L       *WEAK*                    PAR            34232
          V=ADD.I         1   FSKEL               IO             31222     31602     31620
                                                  PAR            32536     32612     36752
          DUC.1ST         1   FLINK               FEC             7056      7066      7100      7113      7117
          ERR.M           1   PUC                 FERRS          13334     13335     13337     13341     13343     13345
          V=ADD.B         1   FSKEL     
          FEC=IMP         1   FEC                 LEX            15122
                                                  HEADER         17541
          ERR.T           2   PUC                 FERRS          12227     12336     12421     12627     12636     12675     12703
                                                                 12707     12710     12727     12731     13303     13305     13321
                                                                 13435     13605     13711     13713     13715     13721
          BN=CON          2                       FEC             6710
          FEC=DEC         2   FEC                 LEX            15100     15105     15115     15116     15125     15126     15145
          V=ADD.R         2   FSKEL     
          DUC.2ND         2   FLINK               FEC             7114      7116
          ERR.W           3   PUC                 FERRS          12045     12051     12115     12116     12121     12132     12151
                                                                 12176     12200     12243     12262     12264     12265     12333
                                                                 12340     12356     12445     12463     12465     12467     12473
                                                                 12475     12514     12520     12531     12550     12552     12602
                                                                 12651     12655     12701     12764     12766     12774     12776
                                                                 13024     13034     13134     13166     13226     13232     13240
                                                                 13260     13276     13363     13375     13401     13421     13423
                                                                 13431     13443     13540     13547     13551     13557     13603
                                                                 13607     13626     13640     13644     13652     13672
          FEC=STF         3   FEC                 LEX            15152
                                                  HEADER         20041
                                                  KEY            20411
                                                  DECL           24350
          L.FILL          3   FERRS               PEM            13732
          V=ADD.D         3   FSKEL     
          DUC.BTH         3   FLINK               FEC             7052      7053      7054      7055      7057      7060      7061
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   151  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                  7062      7063      7064      7065      7067      7070      7071
                                                                  7072      7073      7074      7077      7101      7115
          BN=FMT          3   PUC                 FEC             6716
          ERR.F           4                       FERRS          12041     12043     12047     12053     12055     12075     12077
                                                                 12101     12103     12105     12107     12111     12113     12117
                                                                 12123     12126     12130     12134     12136     12141     12147
                                                                 12153     12155     12157     12161     12164     12166     12170
                                                                 12174     12202     12204     12206     12210     12212     12214
                                                                 12220     12222     12224     12226     12231     12233     12235
                                                                 12237     12241     12246     12250     12252     12254     12256
                                                                 12260     12271     12273     12274     12276     12300     12302
                                                                 12304     12306     12310     12312     12314     12316     12320
                                                                 12322     12324     12327     12331     12335     12344     12346
                                                                 12350     12352     12354     12360     12362     12364     12366
                                                                 12370     12372     12375     12377     12401     12403     12406
                                                                 12411     12413     12415     12417     12423     12425     12427
                                                                 12431     12433     12435     12437     12441     12443     12447
                                                                 12451     12453     12455     12457     12471     12477     12502
                                                                 12504     12506     12510     12512     12516     12517     12522
                                                                 12525     12527     12533     12535     12537     12541     12544
                                                                 12546     12556     12560     12562     12564     12566     12570
                                                                 12572     12574     12576     12600     12604     12606     12611
                                                                 12613     12615     12617     12621     12623     12632     12634
                                                                 12640     12643     12644     12646     12654     12656     12660
                                                                 12662     12664     12667     12670     12671     12673     12677
                                                                 12712     12714     12716     12717     12721     12725     12733
                                                                 12735     12737     12741     12743     12745     12747     12750
                                                                 12752     12754     12756     12760     12762     12770     12772
                                                                 13000     13002     13004     13005     13010     13012     13014
                                                                 13016     13020     13022     13026     13030     13032     13036
                                                                 13037     13041     13043     13045     13047     13051     13053
                                                                 13057     13061     13063     13065     13067     13071     13073
                                                                 13075     13077     13101     13103     13105     13107     13111
                                                                 13113     13115     13117     13121     13123     13125     13130
                                                                 13132     13137     13141     13143     13147     13151     13153
                                                                 13155     13157     13161     13164     13172     13174     13176
                                                                 13200     13202     13204     13206     13210     13211     13212
                                                                 13214     13217     13222     13224     13230     13234     13236
                                                                 13242     13244     13246     13250     13252     13254     13256
                                                                 13262     13264     13265     13267     13270     13272     13274
                                                                 13300     13301     13307     13311     13313     13315     13317
                                                                 13323     13327     13330     13332     13346     13347     13351
                                                                 13353     13355     13357     13361     13365     13367     13371
                                                                 13373     13377     13403     13405     13407     13411     13413
                                                                 13417     13425     13427     13433     13437     13441     13445
                                                                 13447     13451     13455     13463     13465     13470     13472
                                                                 13474     13476     13500     13502     13504     13506     13510
                                                                 13512     13515     13517     13521     13523     13525     13527
                                                                 13531     13533     13535     13537     13543     13545     13553
                                                                 13555     13561     13566     13570     13573     13575     13577
                                                                 13601     13611     13614     13616     13620     13621     13623
                                                                 13630     13632     13634     13636     13642     13646     13650
                                                                 13654     13656     13660     13662     13664     13666     13670
                                                                 13674     13675     13677     13701     13703     13705     13707
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   152  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 13717
          V=ADD.C         4   FSKEL     
          Z.IMCV          4                       PAR            35661
          FEC=EXU         4   FEC                 LEX            15070     15071     15074     15075     15077     15102     15104
                                                                 15107     15110     15112     15113     15121     15123     15131
                                                                 15135     15136     15140     15141     15143     15144     15146
                                                                 15150     15153     15154     15155     15554
                                                  DATA           22102
                                                  PAR            33205
          ERR.K           5   PUC                 FERRS          13325
          FEC=END         5   FEC                 LEX            15111     15156
          V=SUB.B         5   FSKEL     
          V=SUB.I         5                       IO             31214     31217     31560     31574
                                                  PAR            32537     32610
          FEC=BY          6   FEC                 ALLOC          14525
                                                  LEX            15601
                                                  CDDIR          21610     21634     21655     21672
          ERR.C           6   PUC                 PEM            13772
          BN=IOAP         6                       FEC             6705
          ES=LEN          6   PAR                 FSKEL          43724
          V=SUB.R         6   FSKEL     
          N.ERRT          7   PUC                 FEC            10026
                                                  PEM            13774
          FEC=DAT         7   FEC                 LEX            15103     15130
          BN=NLST         7   PUC                 FEC             6757
          V=SUB.D         7   FSKEL     
          FEC=FMT        10   FEC                 LEX            15117
          V=SUB.C        10   FSKEL     
          V=MUL.B        11             
          FEC=ENT        11   FEC                 LEX            15114
          L.C$           11   FTN                 FEC            10032
          V=MUL.I        11   FSKEL               IO             31241     31612     31637
                                                  PAR            32541     32611     34676     36755
          V=MUL.R        12                       FLINK          14750
                                                  PAR            32547     34701
          FEC=TYP        12   FEC                 LEX            15073     15076     15101     15106     15124     15127     15142
          FEC=PRM        13                       LEX            15134
          V=MUL.D        13   FSKEL               FLINK          14751
                                                  PAR            34704
          Z.LBT          14   PUC                 FEC            10016
          V=MUL.C        14   FSKEL               FLINK          14752
                                                  PAR            34707
          FEC=OK         14   FEC                 LEX            15157     15160     15161     15162     15163     15164     15165
                                                                 15166
          V=DIV.B        15   FSKEL     
          V=DIV.I        15             
          V=DIV.R        16             
          V=DIV.D        17                       FLINK          14746
          ES=LGE         20   PAR                 FSKEL          43640
          V=DIV.C        20   FSKEL     
          V=DVC.R        21                       PAR            32535
          V=DIR.R        22                       FLINK          14745
          V=DIR.C        23                       FLINK          14747
          V=UMI.R        24             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   153  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ES=LGT         24   PAR                 FSKEL          43641
          V=UMI.I        24   FSKEL               PAR            32540
          V=UMI.D        25             
          V=UMI.C        25             
          V=LT.B         26             
          V=LT.I         26             
          ES=LLE         27   PAR                 FSKEL          43642
          V=LT.R         27   FSKEL     
          ES=LLT         30   PAR                 FSKEL          43643
          OMI=CPX        30   FSKEL               PAR            35527
          V=LT.D         30             
          V=LT.H         31             
          ES=MASK        32   PAR                 FSKEL          43725
          V=LLT          32   FSKEL               PAR            32604
          V=GE.B         33             
          V=GE.I         33             
          V=GE.R         34             
          V=GE.D         35             
          V=GE.H         36             
          V=LGE          37                       PAR            32603
          W=IMVC         37             
          W=IMV          37             
          V=NE.B         40             
          V=NE.I         40             
          W=IM2          40             
          W=SHFC         41             
          W=SHLC         41             
          V=NE.R         41             
          V=NE.D         42             
          V=NE.C         42             
          V=NE.H         43             
          V=LNE          44             
          W=SHFS         44             
          ES=SHIF        45   PAR                 FSKEL          43734
          V=EQ.I         45   FSKEL     
          V=EQ.B         45             
          V=EQ.R         46             
          ERFO           47   FTN                 FEC            10025
                                                  HEADER         17476     17520     17521
          N.TABLE        47   PUC                 FEC             7720      7722     10453     10510     10520
                                                  ALLOC          14254     14272     14311     14316     14345     14365     14370
                                                                 14415
                                                  DECL           23416     24565
          V=EQ.C         47   FSKEL     
          V=EQ.D         47             
          V=EQ.H         50             
          V=LEQ          51             
          OMI=LCF        51                       PAR            35356
          V=STR.I        52                       IO             31254
                                                  PAR            32607
          V=STR.B        52             
          W=SHFD         52             
          V=STR.R        52             
          Z.SORD         53   PUC                 FEC             7753
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   154  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=STR.D        53   FSKEL     
          V=STR.C        53             
          V=STR.H        54                       PAR            32606
          V=CAT          55                       PAR            32521     36510
          V=COLON        56                       PAR            32566
          W=SHFS1        57             
          OM=CONV        57                       PAR            32571
          OM=INL         57                       PAR            35267
          V=SUBST        57                       PAR            32567     36411     36511     36555
                                                  CONRED         40050
          V=FLOAT        60             
          V=ITOR         60             
          V=XMIT         61                       PAR            32574
          V=DTOB         61             
          V=BOOL         61             
          ES=LOCF        61   PAR                 FSKEL          43645
          V=CTOR         61   FSKEL     
          V=CTOB         61             
          V=BTOI         61             
          V=DTOR         61             
          V=BTOR         61             
          V=SNGL         61             
          V=ITOB         61             
          V=RTOB         61             
          V=REAL         61             
          W=SHFD1        62             
          V=ITOC         62             
          V=ITOD         62             
          V=CTOI         63             
          V=IDINT        63             
          V=INT          63                       PAR            32570
          V=DTOI         63             
          V=IFIX         63             
          V=RTOI         63             
          V=DBLE         64             
          V=BTOC         64             
          V=BTOD         64             
          V=RTOC         64             
          V=RTOD         64             
          V=DTOC         65             
          V=CTOD         65             
          V=COMPL        66             
          V=NOT.L        66                       PAR            32550
          Z.CHMAP        66   FEC       
          V=NOT.B        66   FSKEL     
          V=AND          67             
          V=AND.B        67             
          V=AND.L        67             
          V=EQV          70             
          V=EQV.B        70             
          V=EQV.L        70             
          ES=RANF        71   PAR                 FSKEL          43732
          V=OR.B         71   FSKEL     
          V=OR.L         71             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   155  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=OR           71             
          V=XOR.B        72             
          V=XOR          72             
          V=XOR.L        72             
          V=NEQV.        72             
          V=NEQV         72             
          V=IABS         73             
          V=ABS          73             
          V=SUM1S        74             
          V=AIMAG        75             
          V=AINT         76             
          V=ANINT        77             
          Z.INTA         77                       PAR            33127
          V=AMAX0       100             
          V=MAX0        100                       IO             31233     31632
          V=DMAX1       101             
          V=MIN0        102             
          V=AMIN0       102             
          V=DMIN1       103             
          V=MAX1        104             
          V=AMAX1       104             
          V=MIN1        105             
          Z.SYMVP       105   FEC                 INIT21         44331     44334
          V=AMIN1       105   FSKEL     
          V=AMOD        106             
          W=IDVC        107             
          W=IDV         107             
          V=CONJG       107             
          V=CMPLX       110                       PAR            35274
          V=DABS        111             
          V=DDIM        112             
          V=DIM         113             
          V=DINT        114             
          CP.ERCT       115   FTN                 PEM            14134
          V=DPROD       115   FSKEL     
          W=IDP2        115             
          W=SHRC        115             
          V=DNINT       116             
          V=DSIGN       117             
          V=NINT        120             
          V=IDNIN       120             
          V=SIGN        121             
          V=ISIGN       121             
          V=IDIM        122             
          V=MASK        123                       PAR            35324
          V=MOD         124             
          V=RANF        125                       PAR            32601
          V=SHIFT       126                       PAR            35337     35343     35351
          V=DOBS        127                       PAR            32543
          V=DOBL        130                       PAR            32545
          OMI=LEN       130                       PAR            35305
          CP.IFMT       130   FTN                 LEX            15364     15647     15661
          V=DOBZS       131   FSKEL               PAR            32542
          V=DOBZL       132                       PAR            32544
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   156  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z.SYMDB       132   FEC                 INIT21         44341
          V=DOC.S       133   FSKEL               LABEL          41404
          V=DOC.O       134                       LABEL          41405
          V=DOC.1       135                       LABEL          41406
          V=DOC.L       136             
          V=DOC.R       137             
          CP.FLIN       137   FTN                 FEC             7626
                                                  LEX            15420     15464     15474     15514     15613     15620     15632
                                                                 15643
          V=DOC.D       140   FSKEL     
          V=IOLC        141                       IO             32122
          CP.CARD       141   FTN                 LEX            15357     15621     15652     15656     15660
          OMI=SHF       141   FSKEL     
          V=LCIF        142                       IO             32104
          V=GOTO        143                       KEY            20654     21234     21331
                                                  LABEL          41343
          Z.SYMIL       143   FEC                 INIT21         44343
          V=AGOTO       144   FSKEL               KEY            20715
          V=CGOTO       145                       KEY            20741
          V=JGOTO       146                       KEY            20747
          V=RGOTO       147                       KEY            20325
          V=ASSGN       150                       KEY            20241
          V=BSS         151                       KEY            21373
                                                  PAR            32573
          V=ARY         152                       PAR            32552     36740
          V=GAP         153                       PAR            32561
          V=FAP         154                       PAR            32560
          V=IAP         155                       PAR            32562
          V=APIOC       156                       PAR            32563
          V=APIOD       157                       PAR            32564
          V=APIOU       160                       PAR            32565
          V=SUBR        161                       KEY            20320
          V=FUNC        162                       PAR            32555
          V=LIBF        163                       PAR            32557
          V=INTF        164                       PAR            32556
          V=IOSUB       165                       IO             30123
          V=ERR         166                       PAR            32527     32531     32554
          V=PEND        167             
          V=STOP        167                       KEY            21532
          V=PAUS        170                       KEY            21533
          V=RET         171                       KEY            20401     20570
          V=RTNK        172                       KEY            20605
          V=GPL         173                       PAR            32613
          V=ENTR        174                       KEY            20445
          V=BVD         175                       FEC            10012
          V=EVD         176                       FEC             7657
          V=SEG         177                       FLINK          15011
          V=NOOP        200                       FEC             7554
                                                  KEY            21303
                                                  IO             32107     32126
                                                  PAR            32572
                                                  LABEL          41433     41441     41526
          CP.AFLS       201   FTN                 ALLOC          14454
          V=HDR         201   FSKEL               HEADER         17536
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   157  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CP.NFLS       202   FTN                 INIT21         44320
          V=FILE        202   FSKEL               HEADER         17640
          V=PLIM        203                       HEADER         17655
          V=SEX         204                       HEADER         17352     17657     20120
          V=CDLOO       205                       CDDIR          21712
          V=CDDOT       206                       CDDIR          21601
          V=CDCS        207                       CDDIR          21565
          V=DATA        210                       DATA           22121
          V=FIN         211                       FEC             7236
          F.IN          211   FTN                 LEX            15657
          V=LCC         212   FSKEL               HEADER         17433
          V=DVI         213                       DATA           22342
                                                  PAR            32553
          V=EXP.I       214                       PAR            32602
          V=DOBD2       215             
          OM=IF         216                       KEY            21247
          V=D123        216             
          V=I123        216             
          V=R123        216             
          V=I122        217             
          V=R122        220             
          V=D122        220             
          F.OUT         221   FTN                 ALLOC          14541
          V=I113        221   FSKEL     
          V=R113        222             
          V=D113        222             
          V=I121        223             
          V=DN23        224             
          V=IN23        224             
          V=RN23        224             
          V=I1N3        225             
          V=R1N3        226             
          V=D1N3        226             
          V=I12N        227             
          V=R12N        227             
          Z.INTF        227                       FEC            10527
          V=D12N        227             
          V=IN22        230             
          V=RN22        231             
          V=DN22        231             
          V=I1NN        232             
          V=D1NN        233             
          V=R1NN        233             
          V=INN3        234             
          V=RNN3        235             
          V=DNN3        235             
          V=I11N        236             
          V=D11N        237             
          V=R11N        237             
          V=DN2N        240             
          V=RN2N        240             
          V=IN2N        240             
          V=I1N1        241             
          F.LGO         241   FTN                 ALLOC          14543
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   158  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=IFT         242   FSKEL               KEY            21265
          V=IFF         243                       KEY            21265
          V=D111        244             
          V=I111        244                       KEY            21230
          V=R111        244             
          V=IEQ.I       245                       PAR            34233
          V=IEQ.R       246                       PAR            34234
          V=IEQ.D       247                       PAR            34235
          V=IEQ.C       250                       PAR            34236
          V=INE.I       251                       PAR            34233
          V=INE.R       252                       PAR            34234
          V=INE.D       253                       PAR            34235
          SYS=          253   FTN                 INIT21         44311
          V=INE.C       254   FSKEL               PAR            34236
          Z.SCT         255             
          Z.SKCR        255             
          MSG=          302   FTN                 ALLOC          14540
                                                  HEADER         17524
          F.IL          321                       FLINK          14756     14764     15006
                                                  INIT21         44315
          F.REF         331                       FEC            10353
                                                  ALLOC          14473
                                                  INIT21         44313
          NOM.FL        344                       ALLOC          14454
          TIME1         352                       INIT21         44330
          ENOT=L        353                       PEM            14044     14100
          CO.AL         354                       HEADER         20035
                                                  DECL           25347
          CO.ANSI       355                       FEC             7254
                                                  PAR            36626
                                                  INIT21         44347
          CO.DBER       360                       HEADER         17661
          CO.DBID       361                       KEY            21333
          CO.DBPM       362                       HEADER         17660
                                                  DECL           23247
          CO.DBSB       363                       IO             31316
                                                  PAR            33365     35721
          CO.DBSL       364                       INIT21         44340
          CO.DBTB       366                       PAR            35107
          CO.DS         367                       LEX            15403     15457
          CO.EL         371                       PEM            13770
          CO.ET         372                       PEM            14132
          CO.LCM        374                       DECL           24412     25576
                                                  INIT21         44361
          CO.MD         376                       INIT21         44350
          CO.OPT        377                       PAR            36727
                                                  LABEL          41402
                                                  INIT21         44361
          CO.PW         401                       PEM            14052
                                                  LEX            17123
                                                  HEADER         17513
          CO.RNDA       407                       INIT21         44365
          CO.RNDS       410                       INIT21         44366
          CO.RNDM       411                       FLINK          14701
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   159  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  PAR            34100
                                                  INIT21         44367
          CO.RNDD       412                       FLINK          14701
                                                  PAR            34100
                                                  INIT21         44370
          CO.SEQ        413                       FEC             7256      7623
                                                  LEX            15371     15575
          CO.STAT       414                       HEADER         17601
          CO.WPL        416                       PEM            14065
                                                  LEX            17137     17145
          CO.C$         420                       FEC            10032
          CO.DOLG       421                       PAR            36216
          CO.LOA        423                       CDDIR          21701
          CO.LOM        424                       CDDIR          21704
          CO.LOO        425                       CDDIR          21707
          CO.LOR        426                       FEC             7707     10034
                                                  CDDIR          21715
                                                  INIT21         44312
          CO.LOS        427                       FEC            10037
                                                  CDDIR          21723
          TL.PTYP       441                       FEC            10024
                                                  HEADER         17476     17510
          TL.PNAM       442                       HEADER         17516
          W=MASKV       574   FSKEL     
          ABTFTN        600   FTN                 ALLOC          14545
          W=MASKC       602   FSKEL     
          W=MODG        604             
          W=MODP2       614             
          W=SHIFV       626             
          L=TABLE       632   PUC                 FEC             7721
          W=DOBO        652   FSKEL     
          W=DOZO        653             
          W=DOC.K       670             
          W=DC.OV       675             
          W=DC.OC       702             
          W=DC.OS       704             
          W=DC.O1       711             
          W=IOLC1       745             
          W=IOLC0       747             
          W=ASLAB      1022             
          W=ASFMT      1025             
          W=APSTR      1036             
          W=IPLUG      1040             
          W=IPLG1      1045             
          W=IPLG2      1053             
          W=IPLG0      1063             
          W=CAPST      1072             
          W=CISST      1075             
          W=CIAST      1106             
          W=CIS0S      1115             
          W=CIA0S      1126             
          W=DFRS       1144             
          W=DFRD       1146             
          RPV2N        2642   RPV20               INIT21         44304
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   160  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CDD          2650   UTILITY             FEC             7531      7535     10437
                                                  LEX            15373     15606
                                                  FMT            26565
                                                  IO             30410
          DXB          2667                       FEC             7152
                                                  LEX            16407
          FA=SET       2676                       INIT21         44314     44316
          MVE=         2737                       FEC             7664      7746     10010     10033     10503
                                                  PEM            14057
                                                  ALLOC          14376     14404
                                                  LEX            15633     17136
                                                  HEADER         17431     17764
                                                  KEY            20353
                                                  DATA           22553     22754     23015
                                                  DECL           23447     23545     25455
                                                  FMT            26633
                                                  IO             30133     30150     30325
                                                  PAR            35120     36467
                                                  CONRED         37561
                                                  STMTF          40601
                                                  LABEL          41671     41717     42005     42051     42062
          RPV=         2775                       INIT21         44305     44310
          MNS=         3177                       CONRED         37574
          SBM=         3256                       FEC             7751      7753     10016     10030
                                                  DATA           22756
          SFN          3263                       PEM            14042
                                                  LEX            15510     15666
                                                  HEADER         17507
          ZTB          3322                       LEX            15577
                                                  KEY            21511
          CIO=         3341                       ALLOC          14542     14544
          RDC=         3347                       LEX            15657
          WTW=         3610                       FEC            10353
                                                  ALLOC          14473
                                                  FLINK          14757     14765     15007
          T.TB         4110   PUC                 LEX            15246     15255     15257     15314     15321     17200
                                                  DECL           24370
                                                  IO             31762
                                                  PAR            33736
          BASES        4110                       FEC             7711      7727
                                                  ALLOC          14302     14367     14401     14407     14430     14432     14464
          T.ARG        4111                       HEADER         17711     17722     17752     17763     20051
                                                  KEY            20347     21526
                                                  PAR            35115     35247     35255     35404
          T.EQUS       4112                       DECL           23735     23744     23746     23750     23756     23764     23766
                                                                 24604     25047     25114     25127     25135     25171     25207
                                                                 25252
          T.STF        4112                       ALLOC          14433
                                                  PAR            35167     35214
                                                  STMTF          40644
          T.DVV        4113                       CONRED         40203     40240     40411     40416
          T.SLARG      4113                       KEY            20352
                                                  PAR            35407
          T.COMM       4113                       FEC            10014
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   161  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           23165     24422     24503     25074     25133     25342
          T.IOARG      4113                       IO             27405     27445     27514     27530     27671     30147     30325
                                                                 30575     30711     30767     31120     31675
                                                  PAR            36465
          T.BLST       4114                       FEC             7515
                                                  FLINK          14614     14652
                                                  KEY            20722     20775     21021     21030     21046     21055     21127
                                                                 21132     21137     21310     21325     21346
                                                  PAR            33664     34426     34471     34506     34530     34534
                                                  LABEL          41007     41104     41163     41243     41264     41272     41322
                                                                 41401     41420     41430     41435     41463     41512     41522
                                                                 41530     41543     41562     41620     41627     41635     41661
                                                                 41667     41714     41723     42002     42010     42017     42031
                                                                 42037     42047     42055     42066
          T.DATI       4115                       DATA           22247     22264     22370     22463     22532     23001     23012
                                                                 23037
          T.SCR        4115                       FLINK          14600
                                                  IO             30144     30147     30322     30324
                                                  STMTF          40476     40501     40530     40534     40536     40562     40606
                                                                 40622
                                                  LABEL          41664     41672     41705     41716     41760     41773     42004
                                                                 42045     42060
          T.DATL       4116                       DATA           22112     22146
          T.ILI        4116                       IO             30743     31043
          T.EOT        4116                       DECL           25045     25065     25066     25132     25135     25207
          T.DATS       4117                       FLINK          14755
                                                  DATA           22514     22526     22541     22550     22577
          T.IOLC       4117                       IO             30132     32105     32112     32124     32131     32137
          T.PAR        4120                       FEC             7552      7661
                                                  ALLOC          14434
                                                  FLINK          14644     14766
                                                  KEY            21267     21336     21456
                                                  DATA           22324
                                                  DECL           23526     23543
                                                  IO             30127     30456
                                                  PAR            33707     33746     34324     34333     36014     36060     36407
                                                                 36414     36446     36463     36506     36553     36603     36720
                                                                 36743     36767
                                                  CONRED         40046
          T.DAR        4120                       CONRED         40160     40170     40223     40245     40440     40445
          T.PCS        4121                       PAR            33445     33447     33452     34030
          T.STMT       4122                       LEX            15251     15622     15640     16531     16534     16541     16544
                                                                 17104     17204
          T.VDIM       4124                       FEC             7645      7656      7664     10011
                                                  DECL           23342     23352     23364     23540     23564     23601     23631
                                                                 23643     23711
          T.C$IF       4125                       CDDIR          21632     21641     21660
          T.IOA        4131                       IO             31522     32065     32074     32114
          T.GL         4134                       FLINK          14573
          T.ASG        4135                       FLINK          14632
                                                  KEY            20251     20253
          T.CON        4136                       PEM            13754
                                                  LEX            17016     17052
                                                  KEY            21512
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   162  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  CDDIR          21623
                                                  DATA           22543     22552     22644     22733     22751     22757     23034
                                                  DECL           23500     24222
                                                  FMT            26573
                                                  PAR            32773     33025
                                                  CONRED         37552     37577     37611     40070     40103     40125     40142
          T.SYM        4140                       FEC             7344      7406      7447      7473      7522      7573      7743
                                                                 10051     10067     10143     10160     10200     10272     10310
                                                                 10554
                                                  FLINK          14560     14605     14632     14654
                                                  HEADER         17635     17765     20033     20063
                                                  KEY            20204     20243     20432     20437     20727     21037     21212
                                                                 21316     21402
                                                  DATA           22334     22556
                                                  DECL           23265     24037     24243     24261     24435     24504     24527
                                                                 24552     24607     24636     24736     25035     25223     25252
                                                                 25321     25332     25343     25431     25436     25443     25457
                                                                 25517     25557     25573     25615
                                                  TYPE           26017     26026     26037     26161     26204
                                                  FMT            26434     26624
                                                  IO             30031     30364     30417     30504     30667     31033     31052
                                                                 31666
                                                  PAR            33176     33231     33242     33303     33307     33351     33406
                                                                 34514     35156     35215     35447     36122     36416     36475
                                                                 36562
                                                  CONRED         40176     40203     40236     40343     40355     40407     40422
                                                                 40446
                                                  STMTF          40626     40634     40646
                                                  LABEL          40732     41107     41116     41132     41140     41317     41553
                                                                 41565     41611     41651     41676     41725     41733     41763
                                                                 42022
          T.BLKS       4141                       FEC             7367     10013     10063     10117
                                                  DECL           23125     23134     23166     24165     24171     24324     24332
                                                                 24377     24425     24427     24454     24502     25073     25236
                                                                 25300     25341     25560
          T.NLST       4142                       KEY            20532     20540     21401     21431
          T.DIM        4143                       FEC            10005     10071
                                                  KEY            20523     21402
                                                  DATA           22336
                                                  DECL           23415     24631     25206     25343
                                                  IO             30033     30672     31341     31417
                                                  PAR            35710     36044
                                                  CONRED         40357
          T.ENTP       4144                       HEADER         17732     17744     17761
                                                  DECL           25464     25467     25471     25503
          T.FPI        4145                       FEC             7407
                                                  HEADER         20060     20070
                                                  DECL           25452     25456     25512     25522     25630
                                                  TYPE           26174
          T.VDI        4146                       HEADER         20077
                                                  DECL           23340     23350     23362     23563     23640     23702     25637
          T.REF        4147                       FEC             7710     10366
                                                  ALLOC          14464     14471
          T.LCA        4150                       DECL           24376     24426
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   163  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.ECT        4151                       DECL           25043     25217     25251     25276
          T.ENT        4152                       HEADER         17534
                                                  KEY            20442
          T.LCC        4154                       HEADER         17426
          T.FMT        4155                       FMT            26630
          T.END        4156                       FEC             7723
                                                  ALLOC          14477
          SIZES        4157                       FEC             7726
                                                  ALLOC          14312     14317     14361     14402
          T=TB         4157                       FEC             7242
                                                  LEX            15257     17066     17201
          T=ARG        4160                       HEADER         17715     17753     17771
                                                  KEY            20257
                                                  PAR            35114     35247     35255     35260     35261
                                                  LABEL          41161
          T=EQUS       4161                       ALLOC          14521
                                                  DECL           24603     24733     25042     25115     25246     25253     25314
          T=LINK       4161                       ALLOC          14444
          T=STF        4161                       FEC             7241
                                                  ALLOC          14516
                                                  STMTF          40644
          T=DVV        4162                       CONRED         40155     40202     40205     40414
          T=COMM       4162                       DECL           23127     23136     24367
          T=IOARG      4162                       IO             27605     30112     30572
                                                  PAR            36462     36465
          T=SLARG      4162                       KEY            20256     20350     20354
                                                  PAR            35051
          T=BLST       4163                       FEC             7514      7526     10333
                                                  ALLOC          14521
                                                  FLINK          14614
                                                  KEY            20303     20412     20561     20720     20772     20775     21021
                                                                 21030     21046     21055     21066     21132     21310     21325
                                                                 21346
                                                  IO             31102     31146     31174     31176
                                                  PAR            33436     33664     34275     34425     34427     34471     34504
                                                                 34530     34534
                                                  LABEL          40760     41006     41104     41144     41164     41264     41272
                                                                 41322     41327     41402     41420     41462     41512     41537
                                                                 41541     41543     41562     41620     41635     41661     41666
                                                                 41670     41702     41770     42031     42033     42037     42047
                                                                 42052     42066     42071
          T=DATI       4164                       DATA           22074     22107
          T=SCR        4164                       FEC             7242     10134
                                                  ALLOC          14520
                                                  FLINK          14603
                                                  IO             30143     30151     30321     30326
                                                  PAR            33733
                                                  STMTF          40460     40512     40543     40606     40657
                                                  LABEL          41703     41712     41760     41771     42000     42011     42036
                                                                 42054     42064
          T=ILI        4165                       IO             30136     30727     30742
                                                  PAR            33264
          T=DATL       4165                       DATA           22112     22126     22132     22153
                                                  LABEL          41407
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   164  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=FILL       4165                       ALLOC          14445
          T=EOT        4165                       DECL           25064     25066     25255
          T=IOLC       4166                       IO             30125     30131     31156
          T=DATS       4166                       ALLOC          14524
                                                  FLINK          14755
                                                  DATA           22075     22107     22120
          T=PAR        4167                       FEC             7432      7674      7703
                                                  ALLOC          14320     14362     14377     14522
                                                  FLINK          14762     14766
                                                  KEY            20327     20656     21053     21123     21267     21335     21351
                                                                 21440     21457
                                                  DECL           23456     23522     23525     23543
                                                  IO             30134     31161     31220     31224     31235     31243     31350
                                                                 31357     31414     31536     31561     31600     31604     31613
                                                                 31621     31633     31641     31657     31712
                                                  PAR            32300     32307     32325     32355     32665     33366     33517
                                                                 33707     33750     34132     34310     34436     35237     36235
                                                                 36362     36722
                                                  LABEL          41423     41535
          T=DAR        4167                       DATA           22106     22314
                                                  CONRED         40156
          T=XFIL       4167                       ALLOC          14447
          T=PCS        4170                       PAR            32664     34030     34033
          T=STMT       4171                       FEC             7252
                                                  ALLOC          14512     14514
                                                  LEX            17100
                                                  CDDIR          21730
          T=VDIM       4173                       FEC             7642      7660      7663      7665
                                                  DECL           23525     23604     23633     23670     23673     23713
          T=C$IF       4174                       FEC             7534
                                                  CDDIR          21641     21660
          T=APL        4177                       ALLOC          14523
          T=IOA        4200                       IO             32057     32134     32135
          T=GL         4203                       ALLOC          14524
                                                  FLINK          14571
          T=ASG        4204                       FLINK          14631
          T=CON        4205                       FEC             7163     10135
                                                  ALLOC          14520
                                                  DATA           22076     22104     22760     22765
                                                  FMT            26635
                                                  CONRED         37577     37606
          T=SYM        4207                       FEC             7344      7405      7473      7573      7743     10067     10142
                                                  DECL           24434     24526     24552     25556     25573     25616
                                                  TYPE           26204
          T=BLKS       4210                       FEC             7366     10122
                                                  ALLOC          14526
                                                  DECL           23132     24377     24455     24505     25341
          T=NLST       4211                       ALLOC          14523
                                                  KEY            20500     20506     20546     21401     21432
          T=DIM        4212                       ALLOC          14517
          T=ENTP       4213                       HEADER         17732
                                                  DECL           25465
          T=FPI        4214                       DECL           25512
                                                  TYPE           26173
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   165  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=VDI        4215                       HEADER         20100
                                                  DECL           23636     25637
          T=REF        4216                       FEC            10347
                                                  ALLOC          14460     14471     14525
                                                  IO             31350     31713     31715
          T=LCA        4217                       DECL           24417
          T=ECT        4220                       DECL           25246     25312     25315
          T=ENT        4221                       ALLOC          14526
          T=FMT        4224                       ALLOC          14522
                                                  FMT            26434
          RATES        4226                       FEC             7724
          TV=DECL      4275                       FEC             7712      7715
                                                  ALLOC          14466
          TV=EXU       4276                       FEC             7204      7713
                                                  ALLOC          14467
          TV=CUR       4300                       FEC             7205      7717
                                                  ALLOC          14305     14327     14365     14470
          F.LBT        4301                       FEC            10015
          ALC.PAR      4320                       FEC             7716
                                                  ALLOC          14320
          BLNKCOM      4322                       FEC             7614
                                                  DECL           23104     23142     24177     24456
                                                  CONRED         40310
          CHARDCL      4324                       FEC             7343      7614
                                                  DECL           24454     24526     25435
                                                  TYPE           25707     26267
          ERRORS       4325                       FEC            10031
                                                  PEM            14125
          FAILSFT      4327                       FEC             7737
                                                  ALLOC          14507
          O.TABS       4330                       FEC             7717
                                                  ALLOC          14357     14363     14401     14476
                                                  INIT21         44317
          HO$MSG       4332                       HEADER         17523
          IDENT        4333                       ALLOC          14533
                                                  HEADER         17522     17565
                                                  TYPE           26160
          IO.TEM       4334                       FEC             7611
          LEVEL        4337                       FEC             7405      7616
                                                  HEADER         20045
                                                  DECL           24105     24502     25353
          LEVEL0       4340                       FEC             7420      7616
          LEVEL2       4341                       FEC             7617
                                                  HEADER         20046
                                                  DECL           24127     24434     25353
          LINEBUF      4343                       PEM            13777     14051     14056     14061
          LINES        4361                       FEC             7625
                                                  CDDIR          21726
          CARDS        4361                       LEX            15373     15647
          LOSTREF      4362                       FEC             7740     10362
                                                  IO             31352     31716
          MOD          4363                       FEC             7164      7445      7740     10302
                                                  HEADER         17356     17470     17475     17526     17705     17754     20005
                                                                 20015
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   166  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  KEY            20373     20406     20420     20433     20555
                                                  DECL           25425     25446     25463     25515
                                                  TYPE           25724     25757     26052     26160
                                                  PAR            33153     33276
                                                  CONRED         40312     40316
          NARGS        4364                       FEC             7612
                                                  HEADER         17636     17652     17667
          NOLIST       4365                       FEC            10020
                                                  KEY            20366
          NREXT        4366                       ALLOC          14446
          NSQZLH       4367                       FEC             7731
                                                  PAR            33021
          N.AP         4370                       FEC             7731
          N.ARP        4371                       FEC             7732
                                                  HEADER         20016
                                                  KEY            20605
          N.BUF        4372                       FEC             7732
          N.CPL        4373                       FEC             7733
                                                  HEADER         17751
                                                  DECL           25473     25505
          N.CT         4375                       FEC             7670      7734
                                                  PAR            36312
          N.CTMAX      4376                       FEC             7670      7735
          N.DOB        4377                       FEC             7735
                                                  LABEL          41234     41305     41414
          N.EPL        4400                       FEC             7617
                                                  HEADER         17750     20141
                                                  DECL           25337
          N.FP         4401                       FEC             7733
                                                  HEADER         20065
                                                  KEY            20402
          N.GL         4402                       FEC             7742
                                                  FLINK          14571
                                                  KEY            20343     21141     21301     21456
                                                  IO             31000     31265     32100
                                                  LABEL          41337     41367
          N.MAXIL      4403                       FEC             7433
                                                  INIT21         44324
          N$LC         4404                       FEC             7734
          N.ST         4405                       FEC             7736
          N.STMAX      4406                       FEC             7736
          N.VD         4407                       FEC             7737
                                                  DECL           23626     23671     25615
          O.STITL      4410                       FEC            10024
          PASS         4412                       FEC             7622      7676      7701
                                                  PEM            14047
                                                  ALLOC          14444     14510     14531
          PWBUF        4413                       PEM            14057     14060
                                                  LEX            17133     17135     17140     17140
          WOF=ERR      4430                       PEM            14045     14052     14054     14064     14102
                                                  LEX            17110     17123     17137     17145
          REFIO        4431                       FEC            10364     10370
                                                  ALLOC          14462
          SAVE         4433                       FEC             7615     10046
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   167  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DECL           24302     24546     25555
          THRESH       4434                       ALLOC          14323     14501     14504     14506
                                                  INIT21         44322
          USAVE        4435                       FEC             7615     10046     10076     10142
                                                  DECL           24301     24546     25555
          L.TABS       4436                       FEC             7720
                                                  ALLOC          14315     14364     14500
                                                  INIT21         44321
          SCR          4437                       FEC             7334      7336
                                                  FERRS          11042
                                                  HEADER         17412     17425     17430     17704     17716     17751     17765
                                                                 20073     20075     20077
                                                  IO             31021     31026     31045     31047
                                                  PAR            33265     33267     34027     34404     34422     35074     35155
                                                                 35202     35206     35371     35515     35535     35561     35565
                                                                 35605     35624     35627     35633     35676     35750
                                                  STMTF          40546     40607     40640     40642     40647     40652
          WO.CS        4451                       CDDIR          21563
                                                  PAR            35422
          WO.C$        4451                       FEC            10033
          WO.DOLG      4452                       CDDIR          21575
                                                  PAR            34502
                                                  LABEL          41346     41372
          WO.DOOT      4453                       CDDIR          21577
                                                  IO             31232     31630     32075
                                                  LABEL          41332
          WO.LOA       4454                       KEY            20366
                                                  CDDIR          21702
                                                  IO             30360
          WO.LOM       4455                       CDDIR          21705
                                                  DECL           25313
                                                  IO             30360
          WO.LOO       4456                       CDDIR          21710
          WO.LOR       4457                       FEC            10317
                                                  KEY            20367     20507
                                                  CDDIR          21717
                                                  IO             30220     30361
                                                  LABEL          41147
          WO.LOS       4460                       FEC             7231
                                                  PEM            14100
                                                  LEX            15635
                                                  CDDIR          21725
          WO.QC        4461                       FEC             7674
                                                  PEM            14131
          WO.LCM       4462                       DECL           24375
                                                  INIT21         44363
          CONONE       4463                       DATA           22320
                                                  DECL           23366     23524
                                                  IO             27513     27566     30001     30011     30027     30574     30657
                                                                 31026     31117     31222     31233     31407     31415     31617
                                                                 31631     32111     32116     32130
                                                  PAR            32315     32726     32765     33035     33325     33476     34420
                                                                 34455     34544     34561     34602     34623     35005     35706
                                                  LABEL          41253
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   168  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CONZER       4464                       KEY            21504
                                                  IO             31116
                                                  PAR            33576
          CONZERI      4465                       KEY            20322
                                                  PAR            35714
          VTRUE        4466                       PAR            32730
          F.SORD       4470                       FEC             7752
          S=AEXIT      4470                       HEADER         17465
                                                  FSKEL          43271
          S=BU         4471                       FEC             7754
                                                  IO             27571     30046     30426
                                                  PAR            33157     34526     36421
                                                  FSKEL          43074
          S=BUF        4473                       FEC             7755
          S=CL         4475                       FEC             7756
          S=CON        4476                       FEC             7757
                                                  DECL           23551
                                                  IO             32033
                                                  PAR            32344     33022     36425
                                                  CONRED         40052     40065     40101     40127     40147
          S=CP         4477                       HEADER         20152
          S=CPL        4500                       HEADER         20144
          S=CT         4501                       FEC             7760
                                                  PAR            36315
          S=ENTRY      4502                       HEADER         17533     17535     17703     20073     20117
                                                  KEY            20555
                                                  DECL           25436
                                                  TYPE           25756     26166
          S=EXIT       4504                       HEADER         20125
                                                  KEY            20573
                                                  FSKEL          43265
          S=FAR        4505                       FEC            10004
          S=FAS        4506                       FEC            10003
          S=FID        4507                       FEC             7775
          S=FMC        4510                       FEC             7776      7777
          S=FVS        4512                       FEC            10005
          S=FILES      4513                       HEADER         17676
          S=GPL        4514                       HEADER         20153
          S=LA         4515                       FEC             7761
          S=LC         4516                       FEC             7773
          S=LENP       4517                       FEC             7762
          S=LMC        4520                       FEC            10001
          S=MMC        4521                       FEC            10000
          S=IT         4522                       FEC             7771
          S=INIT       4523                       HEADER         17665
          S=OT         4524                       FEC             7772
          S=RD         4525                       FEC             7774
                                                  PAR            35736
          S=SA1        4526                       FEC             7763
          S=SA0        4527                       FEC             7764
          S=SLI        4530                       HEADER         20140
          S=SPA        4531                       HEADER         20136
          S=ST         4532                       FEC             7765
          S=SUB        4533                       HEADER         20147
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   169  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          S=SUBI       4534                       HEADER         20150
          S=SUB0I      4535                       HEADER         20151
          S=TRACE      4536                       FEC             7767
                                                  KEY            21466
                                                  FSKEL          43075
          S=TA0        4537                       FEC             7766
          S=UPW        4540                       HEADER         17677
          S=VALUE      4541                       FEC             7346      7445     10002     10050     10305
                                                  HEADER         17710
                                                  KEY            20435
                                                  DECL           25335     25426     25443     25470     25506     25516
                                                  PAR            33152
          S=VD         4542                       FEC             7770
                                                  DECL           23475     23625
                                                  IO             30040     30702
                                                  PAR            34354     35724
          ERRTYP       4543                       FEC            10027
                                                  PEM            13770     13772
                                                  INIT21         44347     44355
          ERR=K        4557                       FEC             7673
          E=TOTAL      4561                       FEC            10031     10130
                                                  PEM            14126
                                                  DATA           22312
                                                  DECL           23457     23517
                                                  STMTF          40617
                                                  LABEL          41224     41274
          ENDFTN       4707                       FEC            10431
          TIMER        5003                       INIT21         44327
          CAF          5051                       FEC            10430
          ECB          5107                       CONRED         40344
          ECS          5141                       CONRED         40273
          GCL          5154                       PAR            36503
          GMC          5161                       ALLOC          14475
          LJS          5200                       FEC             7510      7523
                                                  KEY            21040     21317
          MTD          5205                       ALLOC          14360
          WOF          5343                       PEM            14077
                                                  ALLOC          14536
                                                  LEX            16652     17150     17154
          PIK=PS       5401                       CONRED         37637
          HDRBL        5535                       FEC            10023
          N$EXST       5541   CCGLINK             FLINK          14767
          N.IL         5543                       FLINK          14762
          FEL.RTN      5552                       FEC             7254      7256      7260
          RPV21        5673   RPV21               INIT21         44303
          B=RPV21      5673             
          FORSKEL      5723   FEC                 FMT            26436     26622     26632
          OSTACK       5723                       PAR            32674     32700     33672
          ESTACK       6163                       KEY            21466     21474
                                                  PAR            32667     33450     33635
                                                  LABEL          41270     41313
          HASHTBL      6423             
          ARGMODE      6623                       KEY            20316     21005     21100     21436
                                                  DECL           23464
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   170  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             27556     27701     27711     27717     27744     27761     30004
                                                                 30211     30312     30340     31075     31103     31153     31277
                                                                 32157
                                                  PAR            32272     32301     32326     32665     32753     33014     33063
                                                                 33116     33142     33333     33444     33456     33466     33504
                                                                 33516     33526     33543     33547     33561     33606     33641
                                                                 33670     33705     33725     34007     34022     34035     36217
                                                                 36300
                                                  LABEL          41261
          B=FEC        6623                       RPV21           5674
          ARGCOMA      6624                       KEY            20315     21005     21100     21436
                                                  DECL           23463
                                                  IO             27707     30106
                                                  PAR            32272     32303     32331     33446     33456     33472     33543
                                                                 34007     34023     34037     34510     35077     35677
                                                  LABEL          41261
          ARGMIS       6625                       PAR            33451     33457     34025     34041     34346     35675
          ASSTAG       6626                       KEY            20211     20241
          CALLTAG      6626                       KEY            20305     20320     20333
                                                  PAR            35050
          CSLTAG       6627                       KEY            20646     21070     21200
                                                  LABEL          40752     40766
          DATFLG       6630                       DATA           22306     22310
                                                  IO             30125     30704     31155     31315     31520     31546     31663
                                                  PAR            32672     34467     34552     34563     35153     35721     36176
                                                                 36302
          DTI          6631                       KEY            20622     20641     21116     21170
                                                  LABEL          40757     41175
          FLOW         6632                       KEY            20374     20453     21065     21121     21247     21330
                                                  LABEL          41217
          HANGER       6633                       KEY            20645     21172     21177
                                                  LABEL          41171
          IFLEVEL      6634                       LEX            15604
                                                  KEY            21026     21126     21307
                                                  LABEL          42027
          INSTF        6635                       PAR            32676     34141     34146     35170     35202     35206
          LDEAD        6636                       PAR            32675
                                                  LABEL          41221
          L.CARD       6637                       LEX            15357     15620     15643     15676
          NOPATH       6640                       KEY            20410     20563     20574     20610     20614     20636     20637
                                                                 20716     21062     21223     21326
                                                  LABEL          41173     41220
          NTRCNT       6641             
          PARMODE      6642                       DECL           23465     23467
                                                  IO             31172
                                                  PAR            32300     32324     32666
          PARAMC       6643                       DECL           24245
                                                  TYPE           26203
          REFLIN       6644                       KEY            21136
                                                  LABEL          40723     40734     41022     41142     41236     41720
          REFNUM       6645                       KEY            20203     20620
                                                  IO             30170
                                                  LABEL          41151     41230
          REFVAR       6646                       KEY            20202     20260     20621     21153
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   171  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  DATA           22223     22774
                                                  DECL           23103     23205     23717
                                                  TYPE           25735
                                                  IO             27771     31076
                                                  PAR            32677     32770     33047     33332     33461     33703     34040
                                                  STMTF          40623
          ROUTNAM      6647             
          RTNCNT       6650                       KEY            20573
          STAGE        6651                       ALLOC          14527
                                                  LEX            15553     15600
                                                  HEADER         17541     20040
                                                  KEY            20410
                                                  CDDIR          21610     21634     21654     21672
                                                  DATA           22102
                                                  DECL           24351
                                                  TYPE           25715
                                                  PAR            33205
          TRLINE       6652             
          T=CONB       6653                       DATA           22075     22105
                                                  FMT            26634
          WANFP        6654                       KEY            20453     20461
                                                  STMTF          40505     40511     40541
          SCR2         6655             
          ZLEQUAL      6665                       LEX            15525     16552
                                                  PAR            32265
          ZLCOMMA      6666                       LEX            15526     16513
          ZLPAREN      6667                       LEX            15537     16621
          ZLE          6670                       PAR            32266     33565     33673     33700
          ZLCOLON      6671                       LEX            16522
          F.SYMIL      6672                       INIT21         44333     44344
          CHARMAP      7036                       PEM            13751
                                                  HEADER         17413
                                                  IO             30073
                                                  PAR            33624     33646     33650
          FEC          7141                       INIT21         44325
          FEC.RTN      7144                       FERRS          12041     12045     12047     12055     12202     12204     12206
                                                                 12210     12212     12214     12227     12231     12233     12235
                                                                 12237     12241     12246     12250     12252     12254     12370
                                                                 12467     12510     12514     12760     12770     13172     13174
                                                                 13176     13200     13202     13204     13210     13211     13212
                                                                 13224     13230     13234     13250     13252     13264     13270
                                                                 13272     13274     13276     13300     13307     13313     13346
                                                                 13347     13351     13353     13355     13357     13427     13431
                                                                 13445     13616     13632     13705
                                                  ALLOC          14532
                                                  HEADER         17354     17367     17374     17404     17436     17464
                                                  KEY            20520     20544     20631
                                                  CDDIR          21566     21570     21571     21576     21603     21633     21633
                                                                 21636     21654     21657     21671     21673     21675     21722
                                                                 21723     21733
                                                  DATA           22077
                                                  DECL           23175     23210     23213     24000     24001     24043     24050
                                                                 24102     24203     24272     24274     24275     24301     24342
                                                                 24345
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   172  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  TYPE           26055     26060     26063     26203     26206
                                                  FMT            26635
                                                  STMTF          40513     40660
                                                  LABEL          41175     41177     41200
          FEC.RIF      7226                       KEY            21121     21125
          FEC.RTF      7231                       KEY            20405
          ASK          7263                       KEY            20222
                                                  TYPE           25726
                                                  LABEL          41202
          ASL          7320                       KEY            20200
                                                  LABEL          41204
          CSB          7431                       KEY            21260
                                                  LABEL          41174
          CUS.RET      7551                       FERRS          12675
                                                  KEY            20652     20653     20657     21227     21235     21246     21250
                                                                 21257     21262
          OIL          7667                       FLINK          14754
                                                  KEY            20461     21374
                                                  CDDIR          21547
                                                  DATA           22101
                                                  IO             31130
                                                  LABEL          41443
          BBC         10155                       FLINK          14647
                                                  IO             30454     30531     30736     31041     31336     31373     31403
                                                                 31444     31446     31463     31465     32035
                                                  PAR            36252
                                                  LABEL          41325     41634
          CCT         10170                       KEY            20265
                                                  DECL           23161     23226     23731     24032     24066     24147     24236
          CT1         10177                       KEY            20302
                                                  DECL           23154     25326
                                                  FMT            26433
                                                  IO             30217     30735     31024     31207     31334     31372
                                                  PAR            33053     33161     33233     33243     35516     35562     35625
                                                  CONRED         40277
                                                  LABEL          41024     41125     41251     41312     41432     41525
          STY         10217                       HEADER         17363     20032
                                                  KEY            20430
                                                  DECL           24035     24241
                                                  TYPE           26164     26177     26213
                                                  PAR            33230     33240
                                                  STMTF          40625
          NAT.TYP     10225                       TYPE           26136     26140
          NAT.LEN     10234                       TYPE           26146
          TLV         10251                       LEX            15551
                                                  HEADER         17503     17576     17611     20106
                                                  KEY            20307     20474
                                                  DATA           23026
                                                  DECL           23115     23146     24015     24161     24213     24322
                                                  TYPE           26011
                                                  PAR            33045
          TRV         10260                       KEY            20223     20517     20660
                                                  DECL           23156     23224     23725     24142     24306
                                                  STMTF          40514
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   173  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TRVA        10325             
          TSX         10327                       HEADER         17663     20135     20137     20143
                                                  KEY            21530
                                                  IO             27431     27465     27665     30122     31101     31135
                                                  PAR            35362     35426     35754
          TSY         10341                       HEADER         17463     17666     17671     20123     20130     20132     20134
                                                                 20142     20145
          ERT         10360                       HEADER         17540     20104
                                                  KEY            20301     20456     20512     20560
                                                  CDDIR          21721
                                                  DATA           22224     22776
                                                  DECL           24041     24115     24266
                                                  TYPE           26015
                                                  IO             30241     30424     31703
                                                  PAR            32771     33341
                                                  STMTF          40632
                                                  LABEL          40770     41152
          ERT=ON      10400                       CDDIR          21717
          ERT=OFF     10401                       CDDIR          21720
          ESY         10402                       HEADER         17532     17635     20034
                                                  KEY            20276     20432     20503
                                                  DECL           24037     24063     24243
                                                  TYPE           26006
                                                  IO             30417
                                                  PAR            33232     33242
                                                  STMTF          40627
                                                  LABEL          40732     41124
          INN         10435                       DECL           25200
                                                  LABEL          41235     41307     41416
          NCM         10447                       LEX            17017     17053
                                                  DATA           22762
                                                  DECL           25206
                                                  CONRED         37602     40126
          SCS         10507                       HEADER         20061
                                                  DECL           23125     24165     24324
                                                  STMTF          40562
          SCSA        10516                       HEADER         20057
                                                  DECL           23105     24106     24277
                                                  STMTF          40547
          SCT         10517                       HEADER         20052
                                                  KEY            20252     21512
                                                  DATA           22644
                                                  DECL           24223
                                                  CONRED         40143
                                                  STMTF          40530
          SLT         10526                       DECL           24054
                                                  PAR            33175     33236
          SSY         10553                       LEX            15560
                                                  HEADER         17525     17577     17612     20022
                                                  KEY            20263     20417     20477
                                                  DATA           23030
                                                  DECL           24017     24061     24232
                                                  TYPE           25742
                                                  FMT            26431
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   174  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  IO             30203     30415     31330     31371
                                                  PAR            33046
                                                  STMTF          40462     40624
                                                  LABEL          40712     41005
          B=FERRS     10615   FERRS               RPV21           5675
          E.PX5       10615                       DECL           24271
                                                  PAR            32755
          E.SF00      10615                       STMTF          40543
          E.GE        10615             
          E.GE2       10616             
          E.EX3       10616                       DECL           24010
          E.DM16      10616                       DECL           23223
          E.IOD4      10617                       IO             32010
          E.GE3       10617             
          E.C$09      10617                       CDDIR          21645     21664     22026
          E.FS18      10620                       FMT            26615
          E.GE6       10620             
          E.PX8       10620                       DECL           24272
          E.ANS3      10621                       KEY            20566
          E.AG08      10622                       HEADER         20112
          E.AS4       10623                       KEY            20200
          E.DO05      10623                       LABEL          41204
          E.CL2       10624                       KEY            20263
          E.CM        10625                       DECL           23120
          E.CM1       10626                       DECL           23111
          E.CM2       10627                       DECL           23133     24175     24334
          E.CM3       10630                       DECL           23201     24201
          E.CM5       10631                       DECL           23113
          E.CM6       10632                       DECL           23176
          E.CT        10633                       KEY            20364
          E.C$00      10634                       CDDIR          21560     22000
          E.C$01      10635                       CDDIR          21642     21661
          E.C$02      10636                       CDDIR          21754
          E.C$03      10637                       CDDIR          21651     21670
          E.C$04      10640                       CDDIR          21653
          E.C$06      10641                       CDDIR          21562     21621
          E.C$07      10642                       CDDIR          21553     21772
          E.C$08      10643                       CDDIR          21552     21612     21616     21767
          E.C$11      10644                       CDDIR          21620
          E.DACV      10645                       DATA           22125
          E.DAVC      10646                       DATA           22124
          E.DCE       10647                       DATA           22273     23021     23022     23023
          E.DIL       10650                       DATA           22173     22243
          E.DIL1      10651                       DATA           22210     22612     22614
          E.DIL2      10652                       DATA           22237
          E.DIL3      10653                       DATA           22274
          E.DIL4      10654                       DATA           22221
          E.DM10      10655                       DECL           23217
          E.DO08      10656                       LABEL          41656
          E.DO14      10657                       LABEL          41207
          E.EN1       10660                       KEY            20407
          E.EN2       10661                       KEY            20413
          E.EN3       10662                       KEY            20414
          E.EN4       10663                       KEY            20415
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   175  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.EQ        10664                       DECL           23772
          E.EQ1       10665                       DECL           23723
          E.EQ2       10666                       DECL           23777
          E.EQ3       10667                       DECL           23761
          E.EQ4       10670                       DECL           23760
          E.FD2       10671                       HEADER         17600
          E.FD3       10672                       HEADER         17613
          E.FD4       10673                       HEADER         17700
          E.FD5       10674                       HEADER         17700
          E.FD6       10675                       HEADER         17700
          E.FD7       10676                       HEADER         17701
          E.FD8       10677                       HEADER         17701
          E.FD9       10700                       HEADER         17701
          E.GO        10701                       KEY            20627     20710     20735
          E.GO1       10702                       KEY            20617
          E.GO2       10703                       KEY            20650
          E.IF00      10704                       KEY            21103
          E.IF03      10705                       KEY            21162     21165
          E.IF06      10706                       KEY            21115
          E.IF09      10707                       KEY            21106
          E.IF10      10710                       KEY            21170
          E.IF11      10711                       KEY            21107
          E.IF12      10712                       KEY            21002
          E.IF13      10713                       KEY            21027     21307     21347
          E.IN        10714                       DECL           24052
          E.IN4       10715                       DECL           24102
          E.IO01      10716                       IO             27410     27450     30353
          E.IO07      10717                       IO             30171     30202
          E.IO08      10720                       IO             27623     27631
          E.IO10      10721                       IO             30256
          E.IO11      10722                       IO             30262
          E.IO12      10723                       IO             30264
          E.IO13      10724                       IO             27626
          E.IO15      10725                       IO             30303
          E.IO16      10726                       IO             27415     27421     27461     27521     30257     30346
          E.IO17      10727                       IO             30635     30636     30641
          E.IO19      10730                       IO             27410     27507
          E.IO20      10731                       IO             30355
          E.IO21      10732                       IO             30356
          E.IO25      10733                       IO             27646
          E.IO28      10734                       IO             27644
          E.IO29      10735                       IO             27645
          E.IOB0      10736                       IO             30454     30531
          E.IOB1      10737                       IO             27661
          E.IOB2      10740                       IO             30442     30446
          E.IOB3      10741                       IO             27662     27706
          E.IOB4      10742                       IO             27676     27714
          E.IOB5      10743                       IO             27705     27722
          E.IOB6      10744                       IO             30522
          E.IOB8      10745                       IO             30445
          E.IOB9      10746                       IO             30502     30507     30513     30515
          E.IOD1      10747                       IO             31761
          E.IOD2      10750                       IO             31773
          E.IOD3      10751                       IO             31777
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   176  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IOL7      10752             
          E.IOL8      10753             
          E.IOF       10754                       IO             30555     30556     30557     30561
          E.IOF2      10755                       IO             30564
          E.IOS1      10756                       IO             27741
          E.IOS2      10757                       IO             27750
          E.IOS3      10760                       IO             27753
          E.IOS4      10761                       IO             27755
          E.IOS5      10762                       IO             27764
          E.IOS6      10763                       IO             27741     27750     27755
          E.IOS8      10764                       IO             27753
          E.IOS9      10765                       IO             30535     30537
          E.IOS10     10766                       IO             30716
          E.LV1       10767                       DECL           24107     24110     24112     24120     24124
          E.LV3       10770                       DECL           24131     24140     24157
          E.LV4       10771                       DECL           24146
          E.LV5       10772                       DECL           24204
          E.LV7       10773                       DECL           24167
          E.LV8       10774                       DECL           24164
          E.FM        10775                       FEC             7163      7270
                                                  KEY            21001     21114
          E.MA        10776                       FEC             7207
          E.MD        10777                       FEC             7210
          E.ME        11000                       LEX            15156
          E.MH        11001                       FEC             7211
          E.MI        11002                       FEC             7212
          E.MR1       11003                       HEADER         17571     17644     17777     20020     20107
          E.MR2       11004                       KEY            20471
                                                  DECL           23302
          E.MR3       11005                       KEY            20513
                                                  DECL           23721
          E.NP1       11006                       LABEL          41221
          E.OV1       11007                       HEADER         17411
          E.OV3       11010                       HEADER         17435
                                                  KEY            20365
          E.NL        11011                       KEY            20470
          E.NL1       11012                       KEY            20476
          E.NL2       11013                       KEY            20472
          E.NL3       11014                       KEY            20500
          E.NL4       11015                       KEY            20525
          E.NL5       11016                       KEY            20516
          E.PX3       11017                       DECL           24212
          E.PX4       11020                       DECL           24216
          E.SA1       11021                       DECL           24305     24320
          E.SA3       11022                       DECL           24340
          E.SA4       11023                       DECL           24342
          E.SF01      11024                       STMTF          40545
          E.SF02      11025                       STMTF          40617
          E.SF03      11026                       STMTF          40563
          E.SF08      11027                       STMTF          40464     40467     40470     40472
          E.SL18      11030                       LABEL          40774
          E.TY5       11031                       TYPE           26244     26247
          E.TYI       11032                       TYPE           26264     26264
          E.TYI1      11033                       TYPE           26074
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   177  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.TYI2      11034                       TYPE           26103     26114
          E.TYI6      11035                       TYPE           26154
          E.TYI7      11036                       TYPE           26157
          E.VA09      11037                       FEC            10263
                                                  DECL           24012
                                                  TYPE           25710     25740     25741
          E.VA13      11040                       PAR            33165
          OSE         11041                       PAR            35705     36141     36161     36163
          DICT        11062                       PEM            14005
          CLASS       11063                       FEC             7400     10172     10172     10275     10301     10312
                                                  KEY            20235     20664
          FILL.       11063                       FEC             7217      7362      7372      7423      7466      7504      7511
                                                                  7524      7532      7536      7604     10255     10263     10407
                                                  PEM            13733     13764
                                                  LEX            15334     16742     16773
                                                  HEADER         17575     20012
                                                  KEY            20217     20237     20262     20416     20515     20666     21041
                                                                 21104     21320
                                                  CDDIR          22005     22010
                                                  DATA           22217
                                                  DECL           23123     23150     23456     23471     23725     24012     24053
                                                                 24141     24163     24232     24323     24404     24476     24516
                                                                 24561     24617     24640     24740     25037     25361     25610
                                                                 25634
                                                  TYPE           25737     26102     26105     26113     26115     26212
                                                  FMT            26555     26636     26656     26724     26753     26772
                                                  IO             30057     30075     30637     30762     31370     31670
                                                  PAR            33042     33651     34370     34463     35161     35220     35452
                                                                 35512     35542     35571     36367
                                                  CONRED         40200
                                                  STMTF          40500
                                                  LABEL          40672     40764
          FILL.2      11064                       FEC             7272      7401     10173     10314
                                                  HEADER         17607
                                                  KEY            20236     20665     21073
                                                  CDDIR          21557     21755     22000     22013
                                                  DECL           23300
                                                  IO             30057
                                                  PAR            33625     34440
                                                  STMTF          40516     40564     40614
                                                  LABEL          40776
          FILL.3      11065                       KEY            21147
                                                  TYPE           26106     26116
                                                  IO             30606     30615     30626     30650
                                                  PAR            32705     34477     34524     36355     36423
                                                  STMTF          40461
                                                  LABEL          41365
          DO.DPC      11124                       PAR            34437
          MOD.DPC     11130                       FEC             7465
                                                  KEY            21146
                                                  IO             30605     30614     30625     30647
                                                  PAR            34475     34523     36354     36354
          ERL=XPR     11137                       PAR            36404
          ERL=CON     11140                       PAR            32704     36403
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   178  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.TY        12043                       DECL           23211
                                                  TYPE           26057
          E.EX2       12043                       DECL           24044
          E.GE1       12043             
          E.DM15      12043                       DECL           23304
          E.C$10      12051                       CDDIR          21757     22027
          E.FD11      12051                       HEADER         17651
          E.GO9       12051                       KEY            20711     21443
          E.SPR4      12051                       KEY            20577     21477
          E.AG02      12051                       HEADER         20114
          E.AS1       12051                       KEY            20232
          E.ME1       12051                       KEY            20372
          E.IF08      12051                       KEY            21014     21025
          E.CT1       12051                       KEY            20357
          E.GE4       12051             
          E.IO37      12051                       IO             27426
          E.AS7       12053                       KEY            20240     20667
          E.GE5       12053             
          E.VA00      12053                       FEC            10313
          E.ANS       12057                       KEY            20464
                                                  DECL           24104
                                                  TYPE           25676
                                                  IO             27476     27653     27735
          E.ANS1      12061                       FEC             7257
          E.ANS2      12063                       FEC            10407
                                                  DECL           23124
          E.ANS4      12067                       PAR            36376
          E.ANS5      12071                       PAR            35123     35126
          E.ANS6      12073                       CONRED         40314
          E.AG00      12075                       HEADER         17720
          E.AG01      12077                       HEADER         20007
          E.AG03      12101                       HEADER         20053
          E.AG04      12103                       HEADER         20014
          E.AG07      12105                       HEADER         17564     20001
          E.CL1       12105                       KEY            20331
          E.AG11      12111                       HEADER         20017
          E.AG12      12113                       HEADER         20027
          E.AS2       12115                       KEY            20220
          E.AS3       12116                       KEY            20231
          E.AS5       12121                       KEY            20213
          E.AS6       12123                       FEC             7505
          E.AT01      12126                       DATA           22736
                                                  PAR            36660     36674     36701
          E.AT02      12130                       PAR            33653
          E.AT03      12132                       DATA           22621
                                                  PAR            33016
          E.AT04      12134                       PAR            33330
          E.AT05      12136                       PAR            34013
          E.AT06      12141                       PAR            33563
          E.AT07      12143                       PAR            36663
          E.AT08      12144                       DATA           22614
                                                  PAR            33011
          E.AT09      12145                       PAR            32267
          E.AT10      12147                       PAR            32710
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   179  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.AT11      12151                       PAR            36254
          E.AT13      12153                       DATA           22771
                                                  PAR            36644
          E.AT14      12155                       PAR            36650
          E.AT15      12157                       PAR            34266
          E.AT16      12161                       DECL           24626     25544
                                                  PAR            33402     34400
                                                  CONRED         40272
          E.AT17      12163                       PAR            34415
          E.AT18      12164                       PAR            33005
          E.AT19      12166                       PAR            36356
          E.AT20      12170                       PAR            32777
          E.AT21      12172                       PAR            33623
          E.CL3       12176                       KEY            20270
          E.CL4       12200                       KEY            20272
          E.CM8       12216                       FEC             7401
          E.CM9       12220                       DECL           24411
          E.CM10      12222                       DECL           24414
          E.CM11      12224                       DECL           24476
          E.CM12      12226                       DECL           25361
          E.C$05      12243                       CDDIR          22013
          E.C$15      12256                       FEC             7537
          E.DABC      12260                       CONRED         40311
          E.DABL      12262                       CONRED         40317
          E.DAR       12267                       DATA           22244
          E.DAUC      12271                       CONRED         40305
          E.DSE       12306                       DATA           22154     22166
                                                  CONRED         40174     40247
          E.DVL1      12310                       DATA           22316
                                                  PAR            32705
                                                  CONRED         40302
          E.DVR1      12312                       CONRED         40242
          E.DVR2      12314                       CONRED         40351
          E.DVR3      12316                       CONRED         40430
          E.DVR4      12320                       CONRED         40230
          E.DVR5      12322                       PAR            35154
          E.DC        12324                       CONRED         37223     37316
          E.DC1       12325                       PAR            32734
                                                  CONRED         37313
          E.DC3       12327                       CONRED         37161     37163
          E.DC4       12331                       PAR            34077
          E.DC6       12333                       CONRED         37176
          E.DC7       12335                       DATA           22256
          E.DC8       12336                       CONRED         37150     37203     37214     37276
          E.DC9       12340                       CONRED         37301
          E.DC10      12342                       DATA           22710
          E.DM00      12344                       DECL           23242     23306
          E.DM01      12346                       PAR            32724     32744     32763     33032
          E.DM02      12350                       DECL           23332
          E.DM03      12352                       FEC             7601
          E.DM04      12354                       FEC             7602
          E.DM05      12356                       DECL           23237
          E.DM06      12360                       DECL           23325     23375
          E.DM07      12362                       DECL           23502
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   180  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.DM08      12364                       DECL           23406
          E.DM09      12366                       DECL           23233
          E.DM11      12372                       PAR            36210
          E.DM12      12375                       DECL           25635
          E.DM13      12377                       DECL           23373
          E.DM14      12401                       PAR            33276
          E.DM17      12403                       PAR            33273
          E.DM18      12406                       PAR            33275
          E.DM19      12411                       DECL           25602
          E.DM20      12413                       DECL           25604
          E.DM21      12415                       PAR            33300
          E.DO00      12417                       PAR            34423     34446
          E.DO01      12421                       LABEL          41334
          E.DO02      12423                       PAR            34550
          E.DO03      12425                       LABEL          41365
          E.DO04      12427                       PAR            34462
          E.DO06      12431                       LABEL          41112
          E.DO07      12433                       LABEL          41754
          E.DO09      12437                       FEC             7524
          E.DO10      12441                       LABEL          41212
          E.DO12      12443                       LABEL          41122     41475
          E.DO13      12445                       LABEL          41502
          E.DO15      12451                       PAR            34461     34476
          E.DO16      12453                       PAR            34524
          E.DO17      12455                       PAR            34556
          E.DO18      12457                       LABEL          41335
          E.DO19      12461                       LABEL          41063     41747
          E.DO20      12463                       LABEL          41751
          E.EN        12465                       KEY            20424
          E.EN5       12477                       KEY            20422
          E.EN6       12502                       KEY            21361
          E.EN7       12504                       KEY            21366
          E.EN8       12506                       KEY            21367
          E.EQ6       12520                       DECL           23775
          E.EQ7       12522                       DECL           24712
          E.EQ8       12525                       DECL           24713
          E.EQ10      12527                       DECL           24644
          E.EQ11      12531                       DECL           25017     25026
          E.EQ12      12533                       DECL           25022     25030
          E.EQ13      12535                       DECL           24706
          E.EQ14      12537                       DECL           24722
          E.EQ15      12541                       DECL           24726
          E.EQ16      12544                       DECL           25033     25040
          E.EQ17      12546                       DECL           24652
          E.EX1       12550                       DECL           24021
          E.EX4       12552                       DECL           24025
          E.FD        12554                       HEADER         17567
          E.FD1       12556                       HEADER         17572
          E.FD10      12600                       HEADER         17646
          E.FD12      12602                       HEADER         17653
          E.FS00      12604                       FMT            26417
          E.FS01      12606                       FMT            27114
          E.FS02      12611                       FMT            27151
          E.FS03      12613                       FMT            26526
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   181  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.FS04      12615                       FMT            26733     26763     27005
          E.FS05      12617                       FMT            27052
          E.FS06      12621                       FMT            26704
          E.FS07      12623                       FMT            26743     27011
          E.FS08      12625                       FMT            26555     26710
          E.FS09      12627                       FMT            27163
          E.FS10      12632                       FMT            27130
          E.FS11      12634                       FMT            27177
          E.FS12      12636                       FMT            27175
          E.FS13      12640                       FMT            27110     27132
          E.FS14      12643                       FMT            26636     27014
          E.FS15      12644                       FMT            27045     27070
          E.FS16      12646                       FMT            26474
          E.FS17      12651                       FMT            27062
          E.FS19      12654                       FMT            26612
          E.FS20      12655                       FMT            26454
          E.FS21      12656                       FMT            26500
          E.FS22      12660                       FMT            26533     27142
          E.FS23      12662                       FMT            27120
          E.FS24      12664                       FMT            27123
          E.FS25      12667                       FMT            26505     26516     26550     26560     26673     26740     27104
          E.FS26      12670                       FMT            26443
          E.GO3       12677                       KEY            20676
          E.GO4       12701                       KEY            20672
          E.GO5       12703                       KEY            20362     20651
          E.GO6       12705                       KEY            21446
          E.GO7       12707                       KEY            20633
          E.GO8       12710                       KEY            20706     20753
          E.HC1       12712                       LEX            17025     17063
          E.HC2       12714                       LEX            15343
          E.HC3       12716                       LEX            15335
          E.IF01      12721                       KEY            21016
          E.IF02      12723                       KEY            21120
          E.IF04      12727                       KEY            21231
          E.IF05      12731                       KEY            21225
          E.IF07      12735                       KEY            21147
          E.IF14      12750                       KEY            21011
          E.IF15      12752                       KEY            21041     21320
          E.IF16      12754                       LABEL          41465
          E.IF17      12756                       FEC             7532
          E.IN1       12762                       DECL           24056
          E.IN2       12764                       DECL           24070
          E.IN3       12766                       DECL           24076
          E.INF       12772                       PAR            35353
          E.INF1      12774                       PAR            35334
          E.INF2      12776                       PAR            35350
          E.INF3      13000                       PAR            35300
          E.IO00      13002                       IO             27572     30015
          E.IO02      13005                       IO             31071
          E.IO03      13010                       IO             30401     30405
          E.IO04      13012                       IO             27775
          E.IO05      13014                       IO             30606     30615     30627     30650
          E.IO06      13016                       IO             27453
          E.IO09      13024                       IO             27624
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   182  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.IO14      13036                       IO             31177
          E.IO18      13045                       IO             30602     30622     30644
          E.IO22      13055                       IO             30300
          E.IO23      13057                       IO             30024
          E.IO24      13061                       IO             30035
          E.IO26      13065                       IO             30023     30165
          E.IO30      13073                       IO             30017
          E.IO31      13075                       IO             30434
          E.IO32      13077                       IO             30437
          E.IO33      13101                       IO             30020     30232
          E.IO34      13103                       IO             27615
          E.IO35      13105                       IO             27616
          E.IO36      13107                       IO             30552
          E.IOB7      13130                       IO             30451     30526
          E.IOL1      13145                       IO             31112
          E.IOL2      13147                       IO             31046
          E.IOL5      13151                       IO             31123
          E.IOL6      13153                       IO             30676
          E.IOF1      13162                       IO             30561
          E.ION       13166                       IO             31142
          E.ION1      13170                       IO             31132
          E.IOS7      13206                       IO             30714
          E.LP1       13214                       PAR            33720     34025
                                                  STMTF          40604
          E.LP2       13217                       PAR            34017
                                                  STMTF          40603
          E.LP3       13222                       PAR            33450     33636
          E.LV2       13226                       DECL           24132
          E.LV6       13236                       FEC             7427
          E.LV9       13244                       DECL           24520
          E.LV11      13246                       PAR            36303
          E.MB        13254                       FEC             7166
          E.MCA       13256                       LEX            15244
          E.INI       13260                       LEX            15235
          E.TLBL      13262                       LEX            15237
          E.MDO       13265                       FEC             7224
                                                  KEY            20624     21173
          E.MS        13301                       FEC             7511
          E.NP        13303                       FEC             7567
          E.OV2       13311                       HEADER         17402
          E.OV4       13315                       HEADER         17471
          E.PN1       13317                       HEADER         17505
          E.PN3       13321                       HEADER         17440
          E.SEQ       13323                       FEC             7154
          E.STO       13325                       FEC            10427
          E.MO1       13327             
          E.MO2       13330                       ALLOC          14527
          E.MO8       13332             
          E.MDE1      13334                       HEADER         17406
          E.MDE2      13335                       DATA           22212
                                                  TYPE           25677
                                                  PAR            32735     32757     33010     33247
          E.MDE3      13337                       IO             27654
          E.MDE4      13341                       IO             27736
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   183  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.MDE5      13343                       PAR            33260
          E.MDE6      13345                       HEADER         17375
          E.PX1       13361                       PAR            32313
          E.PX2       13363                       DECL           24206
          E.PX6       13371                       PAR            32340     32346
          E.PX7       13373                       PAR            34600
          E.SA        13375                       DECL           24550
          E.SA2       13401                       DECL           24314     24327
          E.SA5       13407                       DECL           24310
          E.SA6       13411                       DECL           24562
          E.SB2       13413                       PAR            36136
          E.SB3       13415                       PAR            36141
          E.SB4       13417                       PAR            36153
          E.SB5       13421                       PAR            36156
          E.SB6       13423                       PAR            36160
          E.SB7       13425                       PAR            35704
          E.SF04      13435                       STMTF          40615
          E.SF05      13437                       STMTF          40531
          E.SF06      13441                       STMTF          40507
          E.SF07      13443                       STMTF          40473
          E.SF09      13447                       PAR            35164
          E.SF10      13451                       PAR            33420
          E.SF11      13453                       STMTF          40520
          E.SF12      13455                       STMTF          40555
          E.SF13      13460                       PAR            33362
          E.SF14      13463                       STMTF          40527
          E.SF15      13465                       PAR            35226
          E.SL00      13470                       LABEL          40720
          E.SL01      13472                       LABEL          40713
          E.SL02      13474                       LABEL          41040
          E.SL03      13476                       LABEL          41046
          E.SL04      13500                       LABEL          41043
          E.SL05      13502                       LABEL          41052
          E.SL06      13504                       LABEL          41051     41075
          E.SL07      13506                       LABEL          41072
          E.SL08      13510                       LABEL          41100     41102
          E.SL09      13512                       LABEL          41060     41572
          E.SL10      13515                       LABEL          40741
          E.SL11      13517                       LABEL          41026
          E.SL12      13521                       LABEL          40743
          E.SL13      13523                       LABEL          40750
          E.SL14      13525                       LABEL          40705
          E.SL15      13527                       LABEL          40701
          E.SL16      13531                       LABEL          40721
          E.SL17      13533                       LABEL          41042
          E.SL19      13537                       LABEL          40704
          E.SL20      13540                       LABEL          41056
          E.ST        13543                       DECL           25547
          E.ST1       13545                       DECL           24621
          E.SPR1      13547                       KEY            21503
          E.SPR2      13551                       KEY            21510
          E.SU11      13553                       PAR            35062
          E.SPR5      13553                       KEY            20603
          E.SU01      13555                       PAR            37002
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   184  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.SU02      13557                       PAR            35506
          E.SU03      13561                       PAR            35466     35650
          E.SU04      13564                       FEC            10544
          E.SU05      13566                       PAR            35522
          E.SU06      13570                       FEC             7466
          E.SU07      13573                       PAR            35643
          E.SU08      13575                       PAR            35502     35507
          E.SU09      13577                       PAR            35524
          E.SU10      13601                       PAR            35054
          E.TY0       13603                       TYPE           25761
          E.TY1       13605                       TYPE           25751     26003     26043     26045
          E.TY2       13607                       TYPE           25772
                                                  PAR            33204
          E.TY3       13611                       TYPE           26230     26233     26247
          E.TY4       13614                       TYPE           26236     26252
                                                  PAR            32341
          E.TY6       13620                       TYPE           26234     26250
          E.TY7       13621                       FEC             7362
          E.TY8       13623                       TYPE           26004     26044     26215
          E.TY9       13626                       TYPE           25766
                                                  PAR            33201
          E.TY10      13630                       TYPE           25746     26046
          E.TYI3      13640                       TYPE           26106     26117
          E.TYI4      13642                       TYPE           26124
          E.TYI5      13644                       TYPE           26121
          E.TYI8      13652                       TYPE           26134
          E.TYI9      13654                       TYPE           26077
          E.VA01      13656                       PAR            33160
          E.VA02      13660                       FEC            10174
          E.VA03      13662                       PAR            33104
          E.VA04      13664                       PAR            33116     33144     33217
          E.VA05      13666                       PAR            33124
          E.VA06      13670                       PAR            33127
          E.VA07      13672                       PAR            33147
          E.VA08      13674                       PAR            33075
          E.VA10      13677                       FEC            10255
          E.VA11      13701                       PAR            33704     34305
          E.VA12      13703                       PAR            33434
          E.XP1       13707                       PAR            34653
          E.XP3       13711                       PAR            34617
          E.XP4       13713                       PAR            34674
          E.XP5       13715                       PAR            35001
          E.XP6       13717                       PAR            34654
          E.XP7       13721                       PAR            34616
          B=PEM       13723   PEM                 RPV21           5676
          ANSI=       13724                       FEC             7257      7402     10410     10544
                                                  HEADER         17567
                                                  KEY            21120     21447
                                                  DATA           22244     22615     22663     22666
                                                  DECL           23124     24104
                                                  TYPE           25676
                                                  FMT            26556     26710
                                                  IO             27476     27653     27735     30300     30562     31113     31132
                                                  PAR            32270     32734     33011     33363     33623     34415     35124
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   185  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 35127     36377     36664
                                                  CONRED         37313     40314
                                                  STMTF          40521
                                                  LABEL          41063     41747
          ANSI.SW     13725                       INIT21         44352
          MDERR=      13727                       HEADER         17375     17406
                                                  DATA           22213
                                                  TYPE           25677
                                                  IO             27654     27736
                                                  PAR            32735     32757     33010     33250     33260
          MDER.SW     13730                       INIT21         44357
          PEMS        13731                       FERRS          10634     10637     10646     10654     10655     10656     10671
                                                                 10672     10674     10675     10676     10700     10721     10722
                                                                 10723     10727     10760     10771     10773     10774     10777
                                                                 11014     11024     11025     11026     11027     11040     11056
                                                                 12053     12063     12101     12113     12115     12116     12123
                                                                 12130     12134     12155     12161     12164     12166     12170
                                                                 12176     12200     12216     12220     12222     12224     12226
                                                                 12243     12256     12260     12262     12271     12312     12314
                                                                 12316     12346     12350     12352     12354     12356     12360
                                                                 12362     12364     12366     12372     12375     12401     12403
                                                                 12406     12411     12413     12415     12425     12427     12431
                                                                 12437     12465     12477     12502     12504     12506     12522
                                                                 12525     12527     12531     12533     12535     12537     12541
                                                                 12544     12546     12550     12552     12615     12623     12625
                                                                 12643     12716     12735     12752     12754     12756     12762
                                                                 12764     12766     13014     13045     13057     13153     13236
                                                                 13244     13246     13301     13401     13407     13411     13413
                                                                 13415     13417     13421     13423     13425     13435     13437
                                                                 13443     13447     13451     13453     13455     13463     13465
                                                                 13470     13472     13474     13476     13500     13502     13504
                                                                 13506     13510     13512     13517     13523     13525     13527
                                                                 13533     13540     13543     13545     13557     13561     13564
                                                                 13566     13570     13573     13575     13577     13603     13605
                                                                 13607     13621     13623     13626     13630     13640     13642
                                                                 13644     13656     13660     13662     13664     13666     13670
                                                                 13672     13674     13677     13703
          PEMV        13746                       FERRS          10615     10616     10617     10620     10622     10623     10630
                                                                 10636     10641     10642     10643     10657     10665     10666
                                                                 10667     10670     10705     10712     10714     10715     10717
                                                                 10724     10726     10730     10741     10742     10743     10756
                                                                 10757     10761     10762     10764     11004     11013     11016
                                                                 11017     11020     11021     11022     11023     11031     11033
                                                                 11034     11035     11036     11037     12043     12051     12103
                                                                 12105     12111     12147     12327     12441     12556     12600
                                                                 12606     12617     12632     12640     12644     12646     12651
                                                                 12656     12660     12662     12664     12667     12677     12750
                                                                 13016     13024     13214     13217     13222     13311     13361
                                                                 13363     13371     13441     13601
          PEM         13765                       FERRS          10621     10624     10625     10626     10627     10631     10632
                                                                 10633     10635     10640     10644     10645     10647     10650
                                                                 10651     10652     10653     10660     10661     10662     10663
                                                                 10664     10673     10677     10701     10702     10703     10704
                                                                 10706     10707     10710     10711     10713     10716     10720
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   186  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 10725     10731     10732     10733     10734     10735     10736
                                                                 10737     10740     10744     10745     10746     10747     10750
                                                                 10751     10752     10753     10754     10755     10763     10765
                                                                 10766     10767     10770     10772     10775     10776     11000
                                                                 11001     11002     11003     11005     11006     11007     11010
                                                                 11011     11012     11015     11030     11032     12057     12061
                                                                 12067     12071     12073     12075     12077     12121     12126
                                                                 12132     12136     12141     12143     12144     12145     12151
                                                                 12153     12157     12163     12172     12267     12306     12310
                                                                 12320     12322     12324     12325     12331     12333     12335
                                                                 12336     12340     12342     12344     12377     12417     12421
                                                                 12423     12433     12443     12445     12451     12453     12455
                                                                 12457     12461     12463     12520     12554     12602     12604
                                                                 12611     12613     12621     12627     12634     12636     12654
                                                                 12655     12670     12701     12703     12705     12707     12710
                                                                 12712     12714     12721     12723     12727     12731     12772
                                                                 12774     12776     13000     13002     13005     13010     13012
                                                                 13036     13055     13061     13065     13073     13075     13077
                                                                 13101     13103     13105     13107     13130     13145     13147
                                                                 13151     13162     13166     13170     13206     13226     13254
                                                                 13256     13260     13262     13265     13303     13315     13317
                                                                 13321     13323     13325     13327     13330     13332     13334
                                                                 13335     13337     13341     13343     13345     13373     13375
                                                                 13460     13515     13521     13531     13537     13547     13551
                                                                 13553     13555     13611     13614     13620     13652     13654
                                                                 13701     13707     13711     13713     13715     13717     13721
          PDM         14116                       FEC             7155      7167      7225      7363      7427      7467      7505
                                                                  7512      7525      7533      7537      7570      7604     10175
                                                                 10256     10314     10427
                                                  FERRS          11045     11046
                                                  ALLOC          14530
                                                  LEX            15235     15240     15245     15335     15343     17026     17063
                                                  HEADER         17403     17440     17472     17505     17564     17572     17646
                                                                 17651     17654     17721     20001     20007     20020     20030
                                                                 20054     20114
                                                  KEY            20214     20220     20231     20233     20240     20270     20272
                                                                 20332     20360     20362     20372     20447     20464     20600
                                                                 20603     20625     20634     20651     20667     20672     20677
                                                                 20706     20712     20753     21011     21014     21017     21025
                                                                 21042     21150     21174     21226     21232     21321     21443
                                                                 21451     21477     21503     21510
                                                  CDDIR          21757     22014     22030
                                                  DATA           22073     22154     22166     22621     22737     22771
                                                  DECL           23212     23214     23233     23775     24022     24025     24045
                                                                 24056     24071     24077     24133     24207     24311     24315
                                                                 24327     24416     24477     24521     24551     24562     24622
                                                                 24627     24657     24717     24723     24727     25020     25022
                                                                 25026     25030     25033     25040     25362     25545     25547
                                                                 25611     25635
                                                  TYPE           25767     25773     25775     26004     26047     26057     26077
                                                                 26107     26117     26122     26124     26134     26215     26254
                                                  FMT            26417     26443     26455     26475     26500     26506     26517
                                                                 26527     26533     26550     26561     26612     26637     26673
                                                                 26704     26733     26740     26743     26763     27005     27011
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   187  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                                 27014     27046     27052     27062     27070     27105     27111
                                                                 27115     27120     27124     27130     27133     27143     27151
                                                                 27164     27201
                                                  IO             27427     27453     27572     27617     27625     30046     30165
                                                                 30232     30426     30553     30607     30616     30627     30651
                                                                 30677     31016     31071     31123     31142     31177
                                                  PAR            32313     32352     32706     32710     33000     33006     33017
                                                                 33075     33104     33137     33145     33147     33160     33201
                                                                 33204     33330     33357     33403     33420     33434     33563
                                                                 33654     33704     34013     34020     34077     34266     34274
                                                                 34305     34401     34417     34424     34446     34500     34525
                                                                 34550     34556     34601     34620     34622     34655     34675
                                                                 35001     35054     35063     35154     35164     35227     35301
                                                                 35334     35350     35354     35466     35512     35532     36254
                                                                 36303     36370     36645     36661     36702     37002
                                                  CONRED         37150     37177     37203     37215     37224     37276     37301
                                                                 37316     40201     40302
                                                  STMTF          40473     40510     40527     40532     40555     40605     40615
                                                  LABEL          40702     40754     41056     41130     41212     41336     41366
                                                                 41466     41475     41503     41573     41752     41754
          B=ALLOC     14253   ALLOC               RPV21           5677
          ADW         14253                       HEADER         17534     17712     20056     20062
                                                  KEY            20254     20347     20443     20532     20540     21140     21514
                                                                 21526
                                                  CDDIR          21632
                                                  DATA           22146     22250     22264     22514     22527     22646
                                                  DECL           23165     23702     23736     23744     23746     23756     24225
                                                                 24376     24426     24605     25467     25472     25503
                                                  IO             31044     31762
                                                  PAR            33445     33447     33453     35404     35410
                                                  CONRED         40145     40416
                                                  STMTF          40477     40501     40534     40536
                                                  LABEL          41627     41723     42010
          ADW.ALC     14263             
          ADWT        14265                       FEC            10450     10462     10467     10474     10476     10477     10502
                                                                 10504     10505
                                                  DECL           23413     23440     23442     23446     23450     23452
          ALC         14271                       FEC             7553      7662      7744     10006     10064     10367     10417
                                                                 10476
                                                  FLINK          14573
                                                  LEX            15247     15623
                                                  HEADER         17427     17762
                                                  KEY            20351     21130
                                                  DATA           22542     22551     22752     23013
                                                  DECL           23135     23441     23541     24172     24333     25044     25046
                                                                 25130     25251     25453
                                                  FMT            26631
                                                  IO             27406     27446     27531     27672     30130     31523
                                                  PAR            35116     36447     36464
                                                  CONRED         37553
                                                  STMTF          40645
                                                  LABEL          41244     41665     41715     42003     42046     42056
          ALC.REG     14430                       FEC            10137
                                                  PAR            35173     35212
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   188  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          ALC.00      14432                       FEC            10136
                                                  PAR            35211
          ALC.STF     14433                       PAR            35172
          ALC.CAI     14434             
          QCP         14555   FLINK               FEC             7142
          B=FLINK     14555                       RPV21           5700
          DER         14557                       LABEL          41065
          DPT         14570             
          LPE         14577                       LABEL          41767
          MAL         14630                       FEC             7251
          MDD         14640                       PAR            34276
                                                  LABEL          41330
          PDC         14700                       PAR            34120
          PDI         14753                       DATA           22123
          PIS         14761                       FEC             7677
          B=LEX       15015   LEX                 RPV21           5701
          LEXFLG      15021                       FEC             7145     10037
                                                  ALLOC          14511
          LEXMODE     15022                       FEC             7621
          SB=CONT     15034                       HEADER         17435
                                                  KEY            20365
          SB=LINC     15035                       FEC             7253
                                                  CDDIR          21731
          SB=LORD     15036                       FEC             7253
                                                  CDDIR          21730
          TB=1ST      15037                       FEC             7226
                                                  KEY            20743
                                                  PAR            33676
          TB=LABL     15041                       FEC             7216
                                                  KEY            21072
          TB=LABR     15042                       FEC             7215      7542
                                                  KEY            20356     20632     20703     20751
                                                  FMT            26415
          TB=NUML     15044                       FEC             7151
          TB=NUMR     15045             
          TB=PLVL     15046             
          TB=TYPE     15047                       FEC             7161      7170      7213      7220      7222      7227      7543
                                                                  7551      7566
                                                  HEADER         17445     20003
                                                  KEY            21114
                                                  DECL           24371
                                                  PAR            33300
                                                  CONRED         37225
                                                  LABEL          40713     40762
          LEX         15173                       FEC             7150
          CST         15523                       KEY            21113
          RNC         15646             
          TOK=CAL     15742             
          TOK=COF     15744             
          TOK=GN      16002             
          TOK=GO      16012             
          TOK=GS      16015             
          TOK=IFT     16025             
          TOK=ON      16031             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   189  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          TOK=XEQ     16035             
          BLL         16637                       PEM            14076
          CAK         16726                       TYPE           26263
          LDB         17103                       FEC             7147      7232
                                                  PEM            14050
                                                  ALLOC          14513
                                                  CDDIR          21732
          LSL         17122             
          LSS         17160             
          B=HEADE     17344   HEADER              RPV21           5702
          KW=BLOC     17344                       LEX            15072
          KW=FUNC     17356                       LEX            15120
                                                  TYPE           25727
          KW=PROG     17371                       LEX            15137
          KW=OVCA     17375                       LEX            15132
          OVCFLG      17405                       FEC            10017
          KW=OVER     17406                       LEX            15133
          PSF         17437                       FEC             7175
                                                  TYPE           25731
          KW=SUBR     17457                       LEX            15147
          PPA130      17642                       FERRS          12560     12562     12564     12566     12570     12572     12574
                                                                 12576
          PSA         17702                       KEY            20457
          WSA         20126                       KEY            20403
          B=KEY       20177   KEY                 RPV21           5703
          KW=ASSI     20177                       LEX            15070
          KW=CALL     20256                       LEX            15075
          CRL         20341                       PAR            35052
          KW=CONT     20356                       FEC             7543
                                                  LEX            15102
          KW=END      20365                       LEX            15111
          END23       20366                       FERRS          13267
          KW=ENTR     20406                       LEX            15114
                                                  HEADER         20004
          KW=NAME     20464                       LEX            15130
          KW=PAUS     20553                       LEX            15135
          KW=RETU     20555                       LEX            15143
          KW=STOP     20612                       LEX            15146
          KW=GOTO     20616                       LEX            15121
          INIF        20755                       FEC            10130
                                                  LABEL          41171
          IFMOD       20757                       PAR            34052
          IFRESLT     20760                       PAR            34052
          IFREL2      20762                       PAR            32676     34227     36204
          IFLN        20763             
          KW=ELSE     20772                       LEX            15107
          KW=ENDI     21024                       LEX            15113
                                                  LABEL          40762
          IFS         21076                       LEX            15154
          IFS11       21110                       FERRS          12737
          IFFLAG      21263                       LABEL          40776     41032
          C=PJX       21442                       PAR            32636
          K$=COLL     21546   CDDIR               LEX            15160
          B=CDDIR     21546                       RPV21           5704
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   190  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          K$=BEGC     21570                       LEX            15157
          K$=ENDC     21571                       LEX            15163
          K$=DO       21572                       LEX            15161
          K$=IF       21610                       LEX            15165
          K$=ELSE     21641                       LEX            15162
          K$=ENDI     21660                       LEX            15164
          K$=LIST     21676                       LEX            15166
          B=DATA      22035   DATA                RPV21           5705
          DAT.Z       22074                       FERRS          12273     12274     12276     12300     12302     12304
                                                  PAR            32707
                                                  CONRED         37227
          KW=DATA     22100                       LEX            15103
                                                  CONRED         37225
          DATA2       22126                       FERRS          12264     12265
          DATAFLG     22300                       CONRED         37146     37201     37213
          C=DVL       22316                       PAR            32625
          EDI         22350                       CONRED         40322
          CFC         22656                       PAR            33535
          CMV         22725                       DECL           24257
          CSC         23024                       DECL           24111
          B=DECL      23064   DECL                RPV21           5706
          KW=COMM     23103                       LEX            15100
                                                  PAR            33302
          KW=DIME     23205                       LEX            15105
          DIR         23222                       TYPE           26024
          DIRT        23272                       PAR            33303
          EDD         23412             
          CDBB        23511                       PAR            36366
          C=DBD       23515                       PAR            32633     32634
          A=DBD       23516                       PAR            32633     32634
          KW=EQUI     23717                       LEX            15115
          EQS80       24001                       FERRS          12512     12516     12517
          KW=EXTE     24006                       LEX            15116
          KW=INTR     24051                       LEX            15125
          KW=LEVE     24104                       LEX            15126
          LVL80       24200                       FERRS          13240     13242
          LVL90       24202                       FERRS          13232
          KW=PARA     24205                       LEX            15134
          PRMERR      24273                       FERRS          13365     13367
          KW=SAVE     24277                       LEX            15145
          SAVERR      24344                       FERRS          13377     13403     13405
          PCD         24347                       FEC             7200
          ACV         25320                       HEADER         20076
          KW=BOOL     25676   TYPE                LEX            15073
          B=TYPE      25676                       RPV21           5707
          KW=LOGI     25701                       LEX            15127
          KW=INTE     25702                       LEX            15124
          KW=REAL     25703                       LEX            15142
          KW=DOUB     25704                       LEX            15106
          KW=COMP     25705                       LEX            15101
          KW=CHAR     25706                       LEX            15076
          TYPA        26064             
          TYPD        26067                       FEC             7607
          KW=IMPL     26072                       LEX            15122
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   191  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          IMP.ER      26217                       FERRS          13634     13636     13646     13650
          B=FMT       26315   FMT                 RPV21           5710
          KW=FORM     26414                       LEX            15117
                                                  LABEL          40715
          B=IO        27243   IO                  RPV21           5711
          IODIR       27243                       PAR            33337
          IONAM       27251             
          IODOLEN     27253                       LABEL          42065
          IODOIND     27254                       DATA           22322
          KW=BACK     27370                       LEX            15071
          KW=CLOS     27371                       LEX            15077
          KW=ENDF     27373                       LEX            15112
          KW=INQU     27374                       LEX            15123
          KW=OPEN     27376                       LEX            15131
          KW=REWI     27400                       LEX            15144
          KW=PRIN     27474                       LEX            15136
          KW=PUNC     27476                       LEX            15140
          KW=READ     27501                       LEX            15141
          KW=WRIT     27505                       LEX            15150
          KW=BUFF     27653                       LEX            15074
          BUFERR      27725                       FERRS          13111     13113     13115     13117     13121     13123     13125
                                                                 13132
          KW=DECO     27732                       LEX            15104
          KW=ENCO     27734                       LEX            15110
          IOJ         30111                       PAR            33266
          A=BMOD      30441                       PAR            32642
          A=BLWA      30451                       PAR            32644
          BLWA        30523                       FERRS          13134
          C=BFWA      30526                       PAR            32643
          C=CNT       30535                       PAR            32645
          A=FMT       30542                       PAR            32650
          C=FMT       30543                       PAR            32650
          C=FOU       30570                       PAR            32651
          A=FOU       30570                       PAR            32651
          A=ICC       30600                       PAR            32652
          C=ICC       30601                       PAR            32652
          A=ICCX      30611                       PAR            32653
          C=ICCX      30612                       PAR            32653
          A=ICI       30620                       PAR            32654
          C=ICI       30621                       PAR            32654
          A=ICIX      30631                       PAR            32655
          C=ICIX      30632                       PAR            32655
          A=ICL       30642                       PAR            32656
          C=ICL       30643                       PAR            32656
          C=IOL       30653                       PAR            32657     32660
          A=STR       30714                       PAR            32661
          A=UNT       30721                       PAR            32662     33333
          C=UNT       30722                       PAR            32662
          CML         30726                       PAR            33346
          VAI         31005                       DATA           22317
          LST         31062                       FERRS          13034
          CVL         31144                       DATA           22306
          IDCEX       31711                       PAR            33551
          A=DOCI      32015                       PAR            32646
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   192  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          C=DOCI      32016                       PAR            32646
          A=DOCS      32027                       PAR            32647     33550
          C=DOCS      32030                       PAR            32647
          B=PAR       32235   PAR                 RPV21           5712
          PARNOW      32235                       FEC            10131
                                                  TYPE           26232
                                                  CONRED         37151
          SMOD        32237                       FLINK          14675     14710     14731
                                                  CONRED         37503     37540
          SOPR        32240                       FLINK          14676
          CURST       32241                       FEC             7435      7610      7702
                                                  KEY            20330     20657     21054     21124     21352     21441
                                                  IO             30135     31162
                                                  LABEL          41536
          CNF         32265                       LEX            15155
          PIX         32275                       CDDIR          22006
                                                  DECL           23753     25532     25537
                                                  TYPE           26245
          PKX         32323                       CDDIR          21617
                                                  DECL           24220
          DO.BEG      32542                       LABEL          41375
          MULROP      32547             
          ARYOP       32552                       IO             31654
          DVLOP       32553                       DATA           22304
          ERROP       32554                       DECL           23523
                                                  IO             27725
          GAPOP       32561                       KEY            21527
          IOCTL       32563                       IO             30316     30765
          IODTA       32564                       IO             30707     31104     31114
          IOUNT       32565                       IO             27514     30141     30575
          NOOPP       32572                       KEY            21255
          OPBSS       32573                       FEC             7440
                                                  IO             27435     27471     31126     32140
                                                  LABEL          41534
          OPDUM       32575                       KEY            21251     21274     21452
                                                  IO             32103     32107     32122     32126
                                                  LABEL          41516
          VD.EQ       32607                       DECL           23632
          VD.MI       32610                       DECL           23356     23365
          VD.MU       32611                       DECL           23602
          VD.PL       32612                       DECL           23344     23366
          VD.GP       32613                       DECL           25330
          CALLARM     32623                       KEY            20314
          DATARM      32625                       DATA           22304
          DOARM       32626                       LABEL          41260
          IFARM       32630                       KEY            21004     21077
          LBARM       32633                       DECL           23312
          UBARM       32634                       DECL           23316
          PJXARM      32636                       KEY            21434
          BUFMOD      32642                       IO             27676
          BUFFWA      32643                       IO             27707
          BUFLWA      32644                       IO             27714
          CNTARM      32645                       IO             27742
          DOCOLI      32646                       IO             31411
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   193  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          DOCOLS      32647                       IO             31354
          FMTARM      32650                       IO             30207
          FOUARM      32651                       IO             27552
          ICCARM      32652                       IO             30271
          ICCXARM     32653                       IO             30274     30310
          ICIARM      32654                       IO             30277
          ICIXARM     32655                       IO             30301
          ICLARM      32656                       IO             30302
          IOARGM      32657                       IO             30102
          STRARM      32661                       IO             27757
          UNTARM      32662                       IO             30003
          PAR         32663                       KEY            20316     21006     21101     21437
                                                  DECL           23466
                                                  IO             27556     27702     27712     27720     27746     27762     30006
                                                                 30213     30312     30341     31172     32160
                                                  LABEL          41262
          PAR.NX      32716                       IO             32026     32055
          PAREXIT     33714                       DECL           23524     23547     23550     23552     23554
                                                  IO             30450     30525     30534     30541     30567     30604     30610
                                                                 30613     30617     30624     30625     30630     30636     30637
                                                                 30641     30646     30652     30720     30722     32023     32054
          IOL.RTN     33745                       DATA           22346
                                                  IO             30713
          POP.STD     33777                       KEY            21454
          C=CERR      34013                       KEY            21444
          C=ERR       34014                       IO             30700
          POP.DVA     34131                       FLINK          14736
          DTC         34533                       LABEL          41263
          EXD         34711                       CONRED         40375
          CF=AC       35033                       KEY            20317     20342     21524
          EAL         35244                       KEY            21527
          VEL         35472                       KEY            20334
          ACT         36167                       LABEL          41271     41314
          ADT         36175             
          CMR         36333                       KEY            21450
          DOA         36401                       IO             31006     31031
                                                  CONRED         40300
          ECC         36424                       KEY            21516
          EMT         36444                       FEC             7237      7441      7657     10012
                                                  HEADER         17353     17434     17536     17640     17656     17657     20121
                                                  KEY            20242     20321     20325     20401     20445     20571     20655
                                                                 20715     20750     21234     21254     21256     21300     21304
                                                                 21332     21373     21534
                                                  CDDIR          21565     21602     21713
                                                  DATA           22122     22345
                                                  DECL           23523     23602     23632     23712
                                                  IO             27436     27472     27515     27726     30124     30145     30323
                                                                 30576     30712     30770     31121     31127     31215     31217
                                                                 31223     31234     31242     31254     31560     31574     31603
                                                                 31612     31620     31632     31640     31656     31676     31700
                                                                 32106     32113     32125     32132     32140
                                                  LABEL          41344     41427     41434     41441     41521     41527     41534
          FAT         36461                       IO             30116
          GOL         36477                       IO             30547
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   194  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OMC         36527                       FLINK          14705
          SDM         36625                       FLINK          14704
          TPC         36777                       IO             27557     30007     30214     30313     30342     30654
          B=CONRE     37033   CONRED              RPV21           5713
          LVEC        37041                       FLINK          14712     14714     14722
          LLVEC       37043                       FLINK          14713     14715     14723
          RVEC        37045                       FLINK          14721     14727
          RLVEC       37046                       FLINK          14721     14730
          REG=T       37047             
          CTAA        37076             
          DEC         37115                       HEADER         17551
                                                  DATA           22233     22713
                                                  TYPE           26232
                                                  PAR            32740
          OCT         37256                       HEADER         17546
                                                  PAR            32736
          TNK         37303                       DATA           22624
          CCR         37475                       PAR            35014     35021     36221
          CTA         37527                       FLINK          14717     14725
          PCC         37546                       PAR            34252
          PCR         37610                       PAR            34213
          PCR.1OP     37627                       PAR            34207
          PCR.2OP     37631                       PAR            34212
          PCR.RO      37633                       PAR            34204
          KCV         40012                       DATA           22715     22735
                                                  PAR            36344
          LCH         40041                       IO             27567     30012     30543     30633     30655
                                                  PAR            32337     34205     34210     34244     34247     34361     34363
                                                                 34520     35323     35336     36402
          LCT         40074                       FLINK          14706
                                                  IO             30441
                                                  PAR            32307     34062     34066     34073     34546     34574     34615
                                                                 34722     36007     36025     36027     36032     36064     36067
                                                                 36135     36342     36515     36517
                                                  LABEL          41304     41331     41377     41454
          LIR         40111                       PAR            34603
          NBC         40117                       DATA           22652
                                                  PAR            32746     32775     36345
          NCS         40135                       DECL           23343     23355     23561
                                                  IO             27512     30000     30573     31213     31240     31556     31572
                                                                 31610     31625     31636
                                                  PAR            33027     34352     34714     35332     35751     36073     36100
                                                                 36151     36165
          SED         40152                       DATA           22313
          D=BSS       40156                       FSKEL          44177
          D=ARY       40156                       FSKEL          44200
          D=NOOP      40156                       FSKEL          44226
          D=DOBD2     40156                       FSKEL          44243
          D=COLON     40156                       FSKEL          44104
          D=SUBST     40156                       FSKEL          44105
          D=DVI       40253                       FSKEL          44241
          GPS         40354                       DECL           25601
          D=EXP.I     40372                       FSKEL          44242
          D=STR.I     40401                       FSKEL          44100
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   195  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          D=DOBS      40422                       FSKEL          44155
          D=DOBZL     40422                       FSKEL          44160
          D=DOBZS     40422                       FSKEL          44157
          D=DOBL      40422                       FSKEL          44156
          D=DOC.L     40434                       FSKEL          44164
          D=DOC.S     40434                       FSKEL          44161
          B=STMTF     40460   STMTF               RPV21           5714
          SFD         40460                       LEX            15152
          SFDEX       40657                       FERRS          13433
          B=LABEL     40667   LABEL               RPV21           5715
          DOMODE      40667                       PAR            34505     34521
          CUL         40670                       LEX            15215
          GSL         40710                       FEC             7217
          ISL         40772                       KEY            20203     20630     20702     20746     21157
                                                  IO             30174     30305
                                                  PAR            33614
          STL0R       41157                       KEY            20631     20703     20751
          PSL         41161                       FERRS          12065     12107     12117     12174     12435     12447     12471
                                                                 12473     12475     12671     12673     12717     12725     12733
                                                                 12741     12743     12745     12747     13004     13020     13022
                                                                 13026     13030     13032     13037     13041     13043     13047
                                                                 13051     13053     13063     13067     13071     13137     13141
                                                                 13143     13155     13157     13161     13164     13305     13535
                                                                 13675
                                                  KEY            20204     20224     20253     20255     20266     20330     20363
                                                                 20364     20462     20554     20572     20576     20611     20613
                                                                 20615     20641     20645     20701     20717     20745     20777
                                                                 21023     21031     21067     21070     21074     21142     21173
                                                                 21175
                                                  IO             27434     27437     27470     27473     27724     27727     30306
                                                                 31072     31131
                                                  PAR            32274     33002     33106     33317     33741     33743     33744
                                                                 34435
                                                  CONRED         37226     37317
          KW=DO       41202                       LEX            15153
          CDI         41223                       IO             31271
          CDIFLG      41452                       PAR            33663     33744     34434
          PDT         41460                       IO             31307
          ALU         41561                       KEY            21073
          DDR         41631                       IO             31014
                                                  PAR            34303     34473
          FBS         41660                       KEY            21045     21324
          PDA         42016                       FEC            10335
                                                  KEY            20304     20562
                                                  PAR            33440
          RBE         42025                       KEY            21043     21322
          F.SKEL      42110   FSKEL               CONRED         37531
                                                  INIT21         44323
          B=FSKEL     42110                       RPV21           5716
          F.SKNAM     42110             
          SKEND       43520             
          OM=ADD      43521                       PAR            32477
          OM=SUB      43522                       PAR            32500     32534
          OM=MUL      43523                       PAR            32501     32533
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   196  
          OVERLAY(FTN,2,1,O=FWA21)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          OM=DIV      43524                       PAR            32502     32532
          OM=UMI      43525                       PAR            32503
          OM=LT       43526                       PAR            32505     32512     32615
          OM=GE       43530                       PAR            32506     32511     32614
          OM=NE       43532                       PAR            32510     32616
          OM=EQ       43534                       PAR            32507     32617
          OM=NOT      43536                       PAR            32513
          OM=AND      43537                       PAR            32514
          OM=OR       43540                       PAR            32520
          OM=EQV      43541                       PAR            32517
          OM=XOR      43542                       PAR            32515     32516
          OM=STR      43543                       PAR            32524
          OM=DOC      43545                       PAR            32546
          F.MODC      43547                       PAR            36334     36667
          F.IFS       43556                       KEY            21143     21236     21240
          F.IFN       43565                       KEY            21241
          F.INTF      43573                       FEC            10530
                                                  DECL           24074
                                                  TYPE           25765
                                                  PAR            33131     33177     35306     35455     35520     35533     35536
                                                                 35551     35635     35645
          F.IMCV      44022                       PAR            35661
          F.SKCR      44026                       FLINK          14716     14724
                                                  PAR            35003     36214
          F.SCT       44026                       CONRED         40163
          B=INI21     44303   INIT21              RPV21           5717
          FTN21       44303             
          DLF         44326                       ALLOC          14452
          B=LWA21     44401                       RPV21           5720
  
  
  
  
  
 -------- OVERLAY(FTN,2,2,O=FWA22)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD          11703
          LWA+1 OF THE LOAD        47146
  
          TRANSFER ADDRESS -- FTN22          46767          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN522        11703        0    OVR      24/05/02 COMPASS 3.7 871               COMMON CODE GENERATOR OVERLAY.
          RPV22         11703       23    OVR      24/05/02 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          CCGC          11726     1376    OVR      24/05/02 COMPASS 3.7 871               CCG CONTROLLER AND SUPPORT.   
          CGTM          13324     1221    OVR      24/05/02 COMPASS 3.7 871               
          MIO           14545     1137    OVR      24/05/02 COMPASS 3.7 871               
          FBV           15704      105    OVR      24/05/02 COMPASS 3.7 871               
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   197  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          /GPOGRA/      16011       40
          /BVINFO/      16051        4
          /CCGSCR/      16055      260
          GPO           16335     4451    OVR      24/05/02 COMPASS 3.7 871               
          GRA           23006     4317    OVR      24/05/02 COMPASS 3.7 871               
          PROSEQ        27325     1222    OVR      24/05/02 COMPASS 3.7 871               
          SQZ           30547     2564    OVR      24/05/02 COMPASS 3.7 871               
          /MCG/         33333      217
          MCG           33552     2751    OVR      24/05/02 COMPASS 3.7 871               
          BDT           36523     1066    OVR      24/05/02 COMPASS 3.7 871               
          BRIDGE        37611     4124    OVR      24/05/02 COMPASS 3.7 871               TRANSMOGRIFY PASS 1 OUTPUT.   
          CFA           43735      646    OVR      24/05/02 COMPASS 3.7 871               
          UDT           44603      363    OVR      24/05/02 COMPASS 3.7 871               
          CSKEL         45166     1601    OVR      24/05/02 COMPASS 3.7 871               FORM CODE SKELETON TABLES.    
          INIT22        46767      157    OVR      24/05/02 COMPASS 3.7 871               INITIALIZE CCG OVERLAY.       
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          BN=STRT         0   PUC                 CCGC           12405     12426     12442
                                                  BRIDGE         41275
          Z$BLK           0   CGTM                MIO            14613     14626     15247
                                                  GPO            16413     16514
          Z$GST           1                       CFA            43755     43764     44116     44171
          BN=CODE         1   PUC                 CCGC           12451
                                                  BRIDGE         37644     41405
          Z$TXT           1   CGTM                CCGC           12553     12651
                                                  FBV            15706
                                                  GPO            16730     17075     17321     17361     20605     20614     21613
                                                                 22271     22661     22770
                                                  GRA            26165
                                                  PROSEQ         27344     27422
                                                  SQZ            33076
                                                  MCG            35300     36000     36050
                                                  BRIDGE         40044     40363
                                                  UDT            44613     44657     45131
          Z$RND           2                       FBV            15762
                                                  GPO            21310     22011
                                                  GRA            23754     24126     24277     24604     27201
                                                  SQZ            30565     30646
                                                  CFA            44072     44404
          Z$FUN           2                       BRIDGE         40462     41644
          Z$DUT           2                       PROSEQ         27507
          Z$TREE          2                       MCG            35302     36015     36051
                                                  BDT            36531     37202     37217
          BN=CON          2   PUC                 BRIDGE         41241
          Z$PBT           3   CGTM                PROSEQ         27511
          BN=FMT          3   PUC                 BRIDGE         41246
          Z$PIT           3   CGTM                GPO            16600     16606     17074
                                                  MCG            33703     36511
          Z$DTT           4                       BRIDGE         43535
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   198  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          Z$OTI           4                       MCG            33702     36427
                                                  CFA            44523
          Z$MLT           4                       GPO            20220     20402     22521
                                                  GRA            25446
                                                  PROSEQ         27503     30141
          BN=TEM          4   PUC                 CCGC           12342     12417     12433
                                                  BRIDGE         41415
          BN=APL          5                       CCGC           13251
                                                  BRIDGE         41253
          Z$MOD           5   CGTM                GPO            20203     20404     22345     22523
                                                  GRA            25341     25354
                                                  PROSEQ         27504     30143
                                                  UDT            44675
          Z$RCT           6                       GRA            23047     23173     24665     25100
          BN=IOAP         6   PUC                 BRIDGE         41260
          Z$BCT           6   CGTM                PROSEQ         27501
          Z$TST           6                       CCGC           13043     13052     13101
                                                  BRIDGE         37675     43211     43212     43224     43500
          Z$CFT           7                       FBV            15734
                                                  GPO            17105
                                                  BRIDGE         37773     41745     43156     43163     43265     43267     43273
                                                                 43343     43366     43374     43421     43436     43457     43465
                                                                 43511     43521     43524     43531
                                                  CFA            44004     44045     44105     44107     44367     44525
                                                  UDT            44670
          BN=NLST         7   PUC                 BRIDGE         41265
          Z$BST          10   CGTM                GPO            17222     17436
                                                  UDT            44665     45136     45164
          Z$PAP          11             
          Z$PSI          11                       GRA            25656
          BN=SUB         11   PUC                 CCGC           12411
          Z$RXI          12   CGTM                GPO            16547     20541
                                                  UDT            44746
          Z$PFP          12             
          BN=BUF         13   PUC                 CCGC           12353
          Z$AUD          13   CGTM                BRIDGE         42031     42056
          Z$TET          13                       GPO            21755     22352
          Z$IIT          14                       GPO            21242     22013     22027     22156     22244     22252
          Z.LBT          14   PUC                 INIT22         47010
          Z$IOL          14   CGTM                UDT            45057
          N$LBT          14   PUC                 CGTM           13436
          Z$UDI          15   CGTM                GPO            16520
                                                  UDT            44663     44707     44712     45023     45060
          Z$VDT          16                       BRIDGE         43655
          Z$SAP          17                       BRIDGE         41515     41617     42021     42142     42562     42622     43060
                                                                 43076
          Z$CLW          20             
          Z$CAC          21                       BRIDGE         37657     42473
          Z$APL          22                       BRIDGE         42746
          Z$IOA          23             
          Z$APT          24                       CCGC           13247
                                                  BRIDGE         37653     41461     41557     42260     42606     42744
          Z$IOT          25                       BRIDGE         37655     42621
          Z$GLT          26                       CCGC           12511
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   199  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GPO            17030
                                                  BRIDGE         37650     43354     43440
          Z$ASG          27                       BRIDGE         37645
          Z$CVT          30                       SQZ            32746
          Z$CUT          31                       SQZ            32767
                                                  BRIDGE         37666
          Z$SYM          32             
          Z$CBT          33             
          Z$NLST         34             
          Z$DIM          35             
          Z$ENTP         36             
          Z$FPI          37             
          Z$VDI          40             
          Z$LPT          41             
          Z$FE           42                       INIT22         47072
          V=NOOP        200   CSKEL               BRIDGE         37701
          CP.AFLS       201   FTN                 CGTM           14341     14352     14367
          CP.NFLS       202                       CGTM           14374
          CP.AFLL       203                       MIO            14564     15402     15415
                                                  UDT            44654
          SYS=          253                       CGTM           14351
                                                  MIO            15413
                                                  UDT            44631     44641     44652
                                                  INIT22         46775
          V=IMV         255   CSKEL               BRIDGE         43554
          V=IMVC        255             
          V=IM2         256                       BRIDGE         43611
          V=SHLC        257                       BRIDGE         43643
          V=SHFC        257                       BRIDGE         43567
          V=SHFS        260                       BRIDGE         43574
          V=SHFD        261                       BRIDGE         43603
          V=SHFS1       262                       BRIDGE         43576
          V=SHFD1       263                       BRIDGE         43604
          V=IDV         264                       BRIDGE         43612
          V=IDVC        264             
          V=IDP2        265                       BRIDGE         43616
          V=SHRC        265                       BRIDGE         43646
          V=MASKV       266                       BRIDGE         43622
          V=MASKC       267                       BRIDGE         43626
          V=MODG        270                       BRIDGE         43627
          V=MODP2       271                       BRIDGE         43633
          V=SHIFV       272                       BRIDGE         43637
          WNB=          272   FTN                 FBV            15726
          V=DOBO        273   CSKEL               BRIDGE         43125
          V=DOZO        274                       BRIDGE         43124
          V=DOC.K       275                       BRIDGE         43230
          V=DC.OV       276                       BRIDGE         43240
          V=DC.OC       277                       BRIDGE         43237
          V=DC.OS       300                       BRIDGE         43245
          V=DC.O1       301                       BRIDGE         43253
          MSG=          302   FTN                 CCGC           12064
          V=IOLC1       302   CSKEL               BRIDGE         43276
          V=IOLC0       303                       BRIDGE         43275
          V=ASLAB       304                       BRIDGE         43407
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   200  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          V=ASFMT       305                       BRIDGE         43410
          V=APSTR       306                       BRIDGE         37735     37737
          V=IPLUG       307                       BRIDGE         37736
          V=IPLG1       310                       BRIDGE         37733
          V=IPLG2       311                       BRIDGE         37734
          F.SLST        311   FTN                 CGTM           13417     13503     13530     13553
          F.PB          311                       CCGC           12167     12172
                                                  INIT22         47000
          V=IPLG0       312   CSKEL               BRIDGE         37740
          V=CAPST       313                       BRIDGE         43034     43037
          V=CISST       314                       BRIDGE         43035
          V=CIAST       315                       BRIDGE         43036
          V=CIS0S       316                       BRIDGE         43040
          V=CIA0S       317                       BRIDGE         43041
          V=DFRS        320                       BRIDGE         42655
          F.IL          321   FTN                 BRIDGE         40554
                                                  INIT22         46776     47002
          V=DFRD        321   CSKEL     
          HO$MFLS       343   FTN                 CGTM           14341     14367
          CO.ARGC       356                       BRIDGE         37661     42005
          HO$ARGC       356                       GRA            25576
          CO.ARGF       357                       BRIDGE         42556
          HO$ER         360                       GPO            16510     16575
                                                  PROSEQ         27357
                                                  MCG            33712
          CO.DBER       360                       BRIDGE         41301
          CO.DBID       361                       CCGC           12677     12720     12765
          HO$TB         366                       GPO            20320
          CO.EC         370                       UDT            44635
          HO$IE         371                       CFA            44070
          HO$LCM        374                       GPO            22544
                                                  GRA            26350
                                                  PROSEQ         30235     30303     30371
                                                  UDT            44604
          CO.OPT        377                       INIT22         47100
          CO.RNDA       407                       INIT22         47132
          CO.RNDS       410                       INIT22         47133
          CO.RNDM       411                       INIT22         47134
          CO.RNDD       412                       INIT22         47135
          CO.STAT       414                       BRIDGE         41142     41170
          HO$UO         415                       GPO            20671
                                                  GRA            23625     24432     24527
          CO.CS         420                       INIT22         47012
          CO.DOOT       422                       INIT22         47012
          HO$OBL       1001                       MIO            14574     14776     15037     15063
                                                  UDT            44656
          RPV2N        2642   RPV20               INIT22         46770
          CDD          2650   UTILITY             CCGC           12067
          FA=SET       2676                       INIT22         46777     47001
          MVE=         2737                       CCGC           12656
                                                  CGTM           13401     14401     14440     14462     14537
                                                  MIO            14616     14700     15016     15061     15111     15363
                                                  GPO            16553     16602     16610     16632     16644     16657     16671
                                                                 17351     20206     20607     20612     22350
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   201  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GRA            25362
                                                  PROSEQ         27436
                                                  MCG            36003
                                                  BDT            37441
                                                  BRIDGE         40054     40534     42751     43012     43660
                                                  UDT            45134
          RPV=         2775                       INIT22         46771     46774
          SBM=         3256                       BRIDGE         37652     37670
                                                  INIT22         47011
          CIO=         3341                       CGTM           13343
                                                  MIO            15002     15006     15634     15651
                                                  UDT            44625
                                                  INIT22         47003
          RDW=         3374                       MIO            15004
                                                  BRIDGE         40555
          WTO=         3566                       CCGC           12170     12172
          WTW=         3610                       CGTM           13417     13503     13530     13554
          O=CLW        4126   PUC                 CCGC           11762
                                                  INIT22         47014
          O=CAC        4127                       CCGC           11765
                                                  INIT22         47017
          O=APL        4130                       CCGC           11767
                                                  INIT22         47021
          O=IOA        4131                       CCGC           11772
                                                  INIT22         47024
          O=API        4132                       CCGC           11774
                                                  INIT22         47026
          O=IOI        4133                       CCGC           11777
                                                  INIT22         47031
          O=GL         4134                       CCGC           12001
                                                  INIT22         47033
          O=ASG        4135                       CCGC           12004
                                                  INIT22         47036
          O=CON        4136                       CCGC           12006
                                                  INIT22         47040
          O=CUT        4137                       CCGC           12011
                                                  INIT22         47043
          O=SYM        4140                       CCGC           12013
                                                  INIT22         47045
          O=BLKS       4141                       CCGC           12016
                                                  INIT22         47050
          O=NLST       4142                       CCGC           12020
                                                  INIT22         47052
          O=DIM        4143                       CCGC           12023
                                                  INIT22         47055
          O=ENTP       4144                       CCGC           12025
                                                  INIT22         47057
          O=FPI        4145                       CCGC           12030
                                                  INIT22         47062
          O=VDI        4146                       CCGC           12032
                                                  INIT22         47064
          L=CLW        4175                       CCGC           11763
                                                  INIT22         47015
          L=CAC        4176                       CCGC           11765
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   202  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT22         47017
          L=APL        4177                       CCGC           11770
                                                  INIT22         47022
          L=IOA        4200                       CCGC           11772
                                                  INIT22         47024
          L=API        4201                       CCGC           11775
                                                  INIT22         47027
          L=IOI        4202                       CCGC           11777
                                                  INIT22         47031
          L=GL         4203                       CCGC           12002
                                                  INIT22         47034
          L=ASG        4204                       CCGC           12004
                                                  INIT22         47036
          L=CON        4205                       CCGC           12007
                                                  INIT22         47041
          L=CUT        4206                       CCGC           12011
                                                  INIT22         47043
          L=SYM        4207                       CCGC           12014
                                                  INIT22         47046
          L=BLKS       4210                       CCGC           12016
                                                  INIT22         47050
          L=NLST       4211                       CCGC           12021
                                                  INIT22         47053
          L=DIM        4212                       CCGC           12023
                                                  INIT22         47055
          L=ENTP       4213                       CCGC           12026
                                                  INIT22         47060
          L=FPI        4214                       CCGC           12030
                                                  INIT22         47062
          L=VDI        4215                       CCGC           12033
                                                  INIT22         47065
          F.LBT        4301                       CCGC           12372     12375
                                                  INIT22         47010
          F$LBT        4301                       CCGC           13275
                                                  CGTM           13434     13451
                                                  UDT            44617
          BLNKCOM      4322                       GRA            24444     25167
          N$FERR       4325                       CGTM           13356
          ENTRJ        4326                       CCGC           12502     12510     12773     13166     13207
          IDENT        4333                       CCGC           12057
          LEVEL0       4340                       CCGC           13171     13214
          HO$LVL2      4341                       PROSEQ         30115
          LEVEL2       4341                       INIT22         47006
          HO$CSN       4361                       GPO            17265
                                                  PROSEQ         27412
                                                  SQZ            32060
          MOD          4363                       CCGC           11755     12707     12733
                                                  BRIDGE         41111     41300     41324     41331     41353     41363
                                                  INIT22         47005
          NARGS        4364                       BRIDGE         41122
          NSQZLH       4367                       BRIDGE         37667
          N.ARP        4371                       BRIDGE         41315
          N.BUF        4372                       BRIDGE         41143     41147     41177     41204
          N.CPL        4373                       CCGC           13042
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   203  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          N.CON        4374                       CCGC           13273
          N.CTMAX      4376                       CCGC           12361
          N$SEP        4400                       GPO            17633
          N.EPL        4400                       CCGC           12705
                                                  BRIDGE         41414
          N$FPS        4401                       UDT            44776
          N.FP         4401                       CCGC           12706
                                                  BRIDGE         41355
                                                  INIT22         47005
          N.GL         4402                       BRIDGE         37647
          N$LC         4404                       CCGC           12365     12545
                                                  GPO            17635
          N.ST         4405                       BRIDGE         40012     40433     40455     41643     41670     42163
          N.STMAX      4406                       CCGC           12360
                                                  SQZ            32235     32255
                                                  BRIDGE         40011     41670
          N.VD         4407                       CCGC           12364
          N$VD         4407                       CGTM           13763
                                                  BRIDGE         37647
          HO$PMLS      4411                       CGTM           14354
          PASS         4412                       CCGC           11753
          WO.CS        4451                       BRIDGE         41222     43067
                                                  INIT22         47013
          WO.DOOT      4453                       BRIDGE         41217     42017     43252     43275
                                                  INIT22         47014
          CONONE       4463                       BRIDGE         43127     43166
          S=AEXIT      4470                       BRIDGE         41321
                                                  CSKEL          46274
          S=BU         4471                       CSKEL          46135
          S=BUFIN      4472                       BRIDGE         42631
          S=BUF        4473                       BRIDGE         41200
          S=CL         4475                       BRIDGE         41613
          S$CON        4476                       CGTM           13475
                                                  SQZ            32751
          S=CON        4476                       PROSEQ         30514
                                                  BRIDGE         40304     40344     41661     41764     42471
                                                  INIT22         47104
          S=CP         4477                       CCGC           12746
                                                  BRIDGE         41424
          S=CPL        4500                       CCGC           12762
          S=CT         4501                       CCGC           12361
          S=ENTRY      4502                       CCGC           12431     12445     12447     12454     12500
                                                  BRIDGE         41365     41401     41403
                                                  INIT22         47114
          S=ERR        4503                       CSKEL          46267
          S=EXIT       4504                       BRIDGE         41313     41326
                                                  CSKEL          46271
                                                  INIT22         47124
          S=FAR        4505                       BRIDGE         42334
          S=FAS        4506                       BRIDGE         42407
          S=FMC        4510                       BRIDGE         43067
          S=FVS        4512                       BRIDGE         42360
          S=FILES      4513                       BRIDGE         41165     41372
          S=GPL        4514                       CCGC           12742     12751
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   204  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  BRIDGE         41420
          S=LC         4516                       CCGC           12365     12605
          S$LC         4516                       GPO            17641
          S=LENP       4517                       BRIDGE         41303
          S=LMC        4520                       BRIDGE         43065
          S=MMC        4521                       BRIDGE         42144     43062
          S$IT         4522                       CGTM           13505     13604
                                                  GPO            20656     21707     22316     22351     22526
                                                  GRA            25134
                                                  MCG            36460
          S=IT         4522                       CCGC           12362
          S=INIT       4523                       BRIDGE         41375
          S=OT         4524                       CCGC           12363
          S$OT         4524                       CGTM           13507
                                                  MCG            36442
          S=SA1        4526                       CCGC           12702
          S=SA0        4527                       CCGC           12723     12770
          S=SLI        4530                       CCGC           13204
          S=SPA        4531                       CCGC           13163
          S=ST         4532                       CCGC           12360
                                                  SQZ            32202     32237     32257     32332
                                                  BRIDGE         40056     40400     41646     41676     42117     42150     42153
                                                                 42167     42213
          S=SUB        4533                       CCGC           12415
          S=SUBI       4534                       CCGC           12423     13157
          S=SUB0I      4535                       CCGC           12437     13200
          S=TRACE      4536                       CCGC           12212
                                                  GRA            23537
                                                  SQZ            31555
                                                  BRIDGE         41307     43402
                                                  CSKEL          46136
          S=TA0        4537                       CCGC           12214     12715     12757
                                                  BRIDGE         41357
          S=UPW        4540                       BRIDGE         41115     41160     41170
          S=VALUE      4541                       BRIDGE         41332
                                                  INIT22         47120
          S=VD         4542                       CCGC           12364
                                                  INIT22         47110
          S$VD         4542                       SQZ            33222
                                                  BRIDGE         40307     42001     42460
          ECB          5107                       BRIDGE         42466
          ECS          5141                       BRIDGE         42372
          WOF          5343                       CCGC           12044     12054     12056     12074
          PIK=PS       5401                       CCGC           12120
          APCON        5542   CCGLINK             BRIDGE         41766
          O=FE         5544                       CCGC           12035
                                                  INIT22         47067
          L=FE         5545                       CCGC           12035
                                                  INIT22         47067
          ERR22        5546                       CCGC           12051
          CGL.RTN      5602                       CCGC           12036
          FW.ILB       5666   INIT20              INIT22         46776     47004
          FW.PBB       7672                       INIT22         47000
          B=RPV22     11703   RPV22     
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   205  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          RPV22       11703                       INIT22         46767
          F$STITL     11726   CCGC      
          B=CCGC      11726                       RPV22          11704
          N$STITL     11742             
          CC$FT       11743                       UDT            44622
          CC$SUB      11744                       CGTM           13647
          CC$SUB0     11745                       CGTM           13563
          HO$DC       11746                       CFA            44055
          HO$OBO      11747                       MIO            14574
                                                  INIT22         47004
          HO$OFLL     11750                       MIO            14563
          HO$OPT      11751                       CGTM           13337
                                                  MIO            14636     15237
                                                  GPO            16672     16701     17600     22545
                                                  GRA            23626     24514     25707     26621
                                                  PROSEQ         27336     27340     27355
                                                  SQZ            31525
                                                  MCG            34750
                                                  UDT            44606     44616
                                                  INIT22         47103
          N.ALTEN     11752                       BRIDGE         43353
          CCGC        11753                       INIT22         47130
          FA=LOL      12042             
          HE$ABT      12046                       MIO            15665     15676
          HE$CTX      12050                       CGTM           13361
          HE$EPX      12050                       CGTM           13336
          HR$LDC      12052                       CFA            44101
          WTE         12111                       BRIDGE         41235
          WIN         12114                       BRIDGE         41110     41114     41121     41125     41135     41140     41153
                                                                 41156     41162     41164     41167     41174     41176     41203
                                                                 41207     41214     41225     41231     41237     41243     41245
                                                                 41250     41252     41255     41257     41262     41264     41267
                                                                 41271     41273     41277     41305     41310     41314     41317
                                                                 41322     41330     41343     41345     41350     41352     41360
                                                                 41362     41367     41373     41376     41402     41407     41411
                                                                 41417     41423     41426     41432     41445     43721
          WINOC       12247                       INIT22         47126
          PSTAB       12313                       INIT22         47126
          ITS         12341             
          OTC         12404             
          ISA         12676                       BRIDGE         41403
          BR$AFT      13211                       PROSEQ         27354
          F.OPT       13324   CGTM                MIO            14774     14777     15001     15004     15627     15632     15633
                                                                 15643     15645     15650
                                                  FBV            15726
                                                  UDT            44624
          B=CGTM      13324                       RPV22          11705
          CG$IEP      13334                       CCGC           13276
          PUNT#       13354                       MIO            15273
                                                  GPO            16722
          CG.MOX#     13361             
          CG$SCT      13365                       PROSEQ         30510
                                                  BRIDGE         40342     41660
          CG$ENC      13375             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   206  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CG$FCU      13414             
          WPW#        13420             
          N$SLBT      13424             
          N$IT        13425                       CCGC           12362
                                                  GPO            17140
          N$OT        13426                       CCGC           12363
                                                  MCG            34737
          CC$LBO      13427                       CCGC           12204     12324     12370     12376     13274
                                                  UDT            44620
          CC$PC       13430                       CCGC           12121     12145     12146     12175     12204     12206     12222
                                                                 12373     12400     13273
                                                  GPO            16511     16576     17072
                                                  GRA            26145
                                                  MCG            33705
                                                  UDT            44621
          CC$BLEN     13431                       CCGC           12121     12147     12175     12203     12206     12222     12226
                                                                 12322     12371     12400     13274
                                                  UDT            44620
          CG$RBT      13432             
          CG$CUB      13445                       CCGC           12405
          FSU#        13457                       CCGC           12235     12245
                                                  PROSEQ         27360
          CG$EP       13465             
          CG$DSA      13512             
          WII#        13526                       GPO            16616     17150
                                                  PROSEQ         27402
          CG$AVO      13760                       CCGC           13312     13315
                                                  BRIDGE         42003     43707     43711
          CSN#        13771             
          F$RDT       14010                       CCGC           12556     12625     12663
                                                  GPO            16462     16467     16474     16732     17524     20344     21622
                                                                 21722     22165     22623
                                                  GRA            25542     25644     26177     26201     26275     26325     26503
                                                                 26571     26605     26677     27003     27073     27101     27113
                                                  PROSEQ         27346     27413     30111     30127     30532
                                                  SQZ            30667     31400     31407     31730     32222     32333     32340
                                                                 33013     33131     33156     33164     33172     33206
                                                  MCG            35310     35316     36006     36063     36121     36352     36446
                                                                 36463
                                                  BRIDGE         40060     40067     40111     40366     43227     43254     43257
                                                  UDT            44672     44677
          ISC=        14121                       GPO            16517     16646     17243
                                                  GRA            23045
                                                  SQZ            32771
                                                  UDT            44662
          SST#        14137                       BDT            37055     37160
                                                  BRIDGE         40042
                                                  CFA            44113
          SHL#        14163                       GPO            17117
                                                  GRA            23767     24143     24637     24663     25050
                                                  BDT            37052     37170     37270
                                                  CFA            44146
                                                  UDT            44722
          O$BLK       14166                       MIO            14602     15131     15177     15343     15366
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   207  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  GPO            16612
                                                  PROSEQ         27410     27433
                                                  INIT22         47075     47076
          O$GST       14167                       GPO            16630
                                                  CFA            43740     43747     44032     44051     44137     44164     44370
                                                                 44406     44530
          O$TXT       14167                       CCGC           12661     13232
                                                  MIO            14603     14614     14662
                                                  GPO            16421     16424     16612     17316     17532     20236     20445
                                                                 20624     21757     21770     21773     22015     22023     22160
                                                                 22326     22347
                                                  GRA            25450     26034     27124     27202
                                                  PROSEQ         27375     27410     27430     27441
                                                  SQZ            30567     30647     32750     32775     33032     33047
                                                  MCG            33710     34745     36514
                                                  BDT            36532     37064     37110     37204     37221     37266     37271
                                                                 37442     37456
                                                  BRIDGE         37755     40366     42662     43157     43215     43401     43502
                                                                 43657
                                                  UDT            44672     45024     45123     45140
          O$DUT       14170                       PROSEQ         27607
          O$RND       14170                       CCGC           12057
                                                  GPO            21346     22072     22160
                                                  GRA            24307     24666     25051
                                                  SQZ            32775
          O$TREE      14170                       MCG            33650     34371     35321     35414     35500     35632     35732
                                                                 36021     36032     36131     36205     36231     36271     36314
                                                                 36374
                                                  BDT            36535     36634     36676     36715     37056     37104     37142
                                                                 37437     37443
          O$FUN       14170                       BRIDGE         40041     40045     40445
          O$PBT       14171                       PROSEQ         27534     27651     27704
          O$PIT       14171                       GPO            17142     17147
                                                  GRA            26153
                                                  MCG            36516
          O$OTI       14172                       MCG            36433
                                                  CFA            44332     44561
          O$MLT       14172                       GPO            22525     22612     22634     22666
                                                  PROSEQ         30007     30055     30104     30544
          O$DTT       14172                       BRIDGE         40473     41704     42225     42235     42304     42314     42352
                                                                 42364     42411     42426     42432     42434
          O$MOD       14173                       GPO            20236     20610     22663     22723
                                                  PROSEQ         30010     30063     30124     30171     30500     30512     30541
          O$RCT       14174                       GRA            23065     23756     24130     24175     24221     24323     24400
                                                                 24516     24605     25133     25343     25356     25657     25710
                                                                 25765     26005     26113     26167
          O$BCT       14174                       PROSEQ         27622     27717     27743
          O$TST       14174                       CCGC           13054     13103
                                                  BRIDGE         40234     40237     40373     40414     40452     40472     41702
                                                                 42132     42207     42223     42233     42301     42350     42414
                                                                 42547     43542
          O$CFT       14175                       FBV            15764
                                                  SQZ            32426
                                                  CFA            44122     44147     44410
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   208  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O$BST       14176                       MIO            14636     14653     14661     14710     14724     14741     15130
                                                                 15165     15343
                                                  GPO            16440     16455     16642     17400     17461     17517     20160
                                                  GRA            26024     26043     26061     26130     26137
                                                  CFA            44034     44047     44073
                                                  UDT            44767
          O$PSI       14177                       GPO            20366     20406
          O$PAP       14177             
          O$RXI       14200                       GPO            16667
                                                  GRA            25660     26224
                                                  UDT            45005
          O$PFP       14200             
          O$AUD       14201                       BRIDGE         42140     42705
          O$TET       14201                       GPO            17106     17121     17563     21001     22000     22032     22036
                                                                 22230     22542     22557     22576
                                                  GRA            23555     24054     24467     24563     24640     24706     25133
                                                                 25451
                                                  SQZ            30606
                                                  BDT            36675
          O$IIT       14202                       GPO            22036     22215     22233     22233     22304     22531
                                                  GRA            24707     25134     25347     25360
                                                  BDT            36675
          O$IOL       14202                       UDT            45062     45075     45133
          O$UDI       14203                       GPO            16655
                                                  UDT            44723     44750     45006
          O$VDT       14204                       CCGC           12655
          O$SAP       14205                       BRIDGE         41510     41530     42134     42750     43110
          O$CLW       14206                       CCGC           11761
                                                  BRIDGE         41603
                                                  INIT22         47016
          O$CAC       14207                       CCGC           11763
                                                  BRIDGE         41772
                                                  INIT22         47020
          O$APL       14210                       CCGC           11766
                                                  BRIDGE         42757
                                                  INIT22         47023
          O$IOA       14211                       CCGC           11770
                                                  INIT22         47025
          O$APT       14212                       CCGC           11773
                                                  GPO            21101
                                                  BRIDGE         42734     42754
                                                  INIT22         47030
          O$IOT       14213                       CCGC           11775
                                                  INIT22         47032
          O$GLT       14214                       CCGC           12000     12040
                                                  CFA            44007     44022
                                                  INIT22         47035
          O$ASG       14215                       CCGC           12002
                                                  BRIDGE         43431
                                                  INIT22         47037
          O$CVT       14216                       CCGC           12005
                                                  GPO            20740     21304
                                                  SQZ            31651
                                                  INIT22         47042
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   209  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          O$CUT       14217                       CCGC           12007     13267
                                                  BRIDGE         42036
                                                  INIT22         47044
          O$SYM       14220                       CCGC           12012     12327     12455     12546     12727     13001     13071
                                                                 13151     13172     13235
                                                  GPO            16475     17302     17617
                                                  GRA            24426     25014     25156     25343     25356
                                                  PROSEQ         27441     30205     30252     30350
                                                  BRIDGE         41127     41336     41545     41731     42024     42050     42065
                                                                 42306     42456     42463     42643     43127     43175     43231
                                                                 43313     43324     43357     43405
                                                  CFA            44006     44025
                                                  UDT            44723     45026     45064
                                                  INIT22         47047     47104     47107     47113     47117
          O$CBT       14221                       CCGC           12014
                                                  PROSEQ         30256
                                                  INIT22         47051
          O$NLST      14222                       CCGC           12017
                                                  BRIDGE         42052     42057
                                                  INIT22         47054
          O$DIM       14223                       CCGC           12021     13014     13302
                                                  BRIDGE         43677
                                                  INIT22         47056
          O$ENTP      14224                       CCGC           12024     12560     12731     13004     13044     13154     13175
                                                  BRIDGE         41427     41433     41446
                                                  INIT22         47061
          O$FPI       14225                       CCGC           12026     12561     13073     13234
                                                  GPO            17626
                                                  GRA            23144     23335
                                                  INIT22         47063
          O$VDI       14226                       CCGC           12031     12662     12776     13034     13217
                                                  INIT22         47066
          O$LPT       14227             
          O$FE        14230                       CCGC           12033
                                                  INIT22         47070
          L$BLK       14231                       MIO            14602     15366
                                                  GPO            16525     16613     17153
                                                  PROSEQ         27400     27406     27420     27426     27433
                                                  INIT22         47074
          L$TXT       14232                       CCGC           12553     12613     12641     12650     13225     13231
                                                  MIO            14607     14612     14620     14656     14663
                                                  FBV            15723
                                                  GPO            16422     16424     16427     16573     16614     17004     17153
                                                                 17510     20244     20246     20601     20623     21717     21773
                                                                 22066     22325     22356     22724
                                                  GRA            26016     26022     26034     26056     26100     26134     26267
                                                                 27124     27200
                                                  PROSEQ         27355     27376     27411     27430
                                                  SQZ            30562     32712     32773     33013     33075
                                                  MCG            34745     35305     35777     36020     36032     36057     36205
                                                                 36254
                                                  BDT            36525     37057     37215     37273     37346     37437
                                                  BRIDGE         40024     40360     43655     43661     43667
                                                  UDT            45022     45123     45154
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   210  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L$GST       14232                       GPO            16630
                                                  CFA            43736     43754     43763     44054     44141     44305
          L$TREE      14233                       MCG            33600     33605
                                                  BDT            37105     37160     37170     37214     37453
          L$DUT       14233                       PROSEQ         27467
          L$FUN       14233                       BRIDGE         40040     40043     40046     43672
          L$RND       14233                       CCGC           12060
                                                  FBV            15727
                                                  GPO            21312     22067     22072
                                                  GRA            24063     24141     24315     24662     25075     27204
                                                  PROSEQ         27343
                                                  SQZ            30747
                                                  CFA            44100     44102     44416
          L$PIT       14234                       GPO            17145     17152
                                                  GRA            26003     26041     26052     26057     26067     26101     26131
                                                                 26135
                                                  MCG            33573     33611     34356
          L$PBT       14234                       PROSEQ         27467     27536     27650     27704
          L$MLT       14235                       GPO            17545     22636     22667     22761
                                                  PROSEQ         27371     27514     30007     30022     30056     30103     30172
                                                                 30543
          L$DTT       14235                       BRIDGE         40014
          L$OTI       14235                       MCG            34022     34127     34501     34737     36425
                                                  CFA            44331     44562
          L$MOD       14236                       GPO            17001     20212     20603     20610     20613     22635     22657
                                                                 22762
                                                  GRA            25443
                                                  PROSEQ         27514     30012     30043     30071     30125
                                                  SQZ            30554
          L$RCT       14237                       GRA            23021     23040     23065     23171     23756     24012     24066
                                                                 24130     24601     24667     24732     25155     25253     25312
                                                                 26101
          L$BCT       14237                       PROSEQ         27466     27535     27621     27717     27743
          L$TST       14237                       CCGC           13041     13050     13054     13056     13103
                                                  BRIDGE         40011
          L$CFT       14240                       FBV            15730     15757
                                                  GPO            17141
                                                  CFA            43757     44002     44043     44065     44114     44365     44416
                                                                 44602
          L$BST       14241                       GPO            16614     16641     16647     17241     17327     17375
                                                  GRA            26053
                                                  CFA            44071
                                                  UDT            45125
          L$PAP       14242             
          L$PSI       14242                       GRA            25706
          L$RXI       14243                       GPO            16666
                                                  GRA            23041
          L$PFP       14243             
          L$AUD       14244                       BRIDGE         41741     42121     42140     42255     42703     42710
          L$TET       14244                       GPO            16621     17077     17154     17250     17570     21616     21751
                                                                 22315
                                                  GRA            25452     25470
          L$IOL       14245                       UDT            45077     45124     45135
          L$IIT       14245                       GPO            16615     16762     17331     21237     22215     22237
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   211  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L$UDI       14246                       GPO            16654     16660
                                                  UDT            44705     44710     45020     45076
          L$VDT       14247                       CCGC           12633     13214
          L$SAP       14250                       BRIDGE         41510     41531     42121     42134     42253     42555     42745
                                                                 42752     43102     43105
          L$CLW       14251                       CCGC           11761
                                                  BRIDGE         41603
                                                  INIT22         47016
          L$CAC       14252                       CCGC           11764
                                                  INIT22         47021
          L$APL       14253                       CCGC           11766
                                                  BRIDGE         42755     42776     43003
                                                  INIT22         47023
          L$IOA       14254                       CCGC           11771
                                                  INIT22         47026
          L$APT       14255                       CCGC           11773
                                                  BRIDGE         41457     41555     42604     42735     42753
                                                  INIT22         47030
          L$IOT       14256                       CCGC           11776
                                                  BRIDGE         42617
                                                  INIT22         47033
          L$GLT       14257                       CCGC           12000
                                                  GPO            16734     17026
                                                  BRIDGE         43444
                                                  INIT22         47035
          L$ASG       14260                       CCGC           12003     12534
                                                  BRIDGE         43665
                                                  INIT22         47040
          L$CVT       14261                       CCGC           12005
                                                  SQZ            32766
                                                  BRIDGE         37665
                                                  INIT22         47042
          L$CUT       14262                       CCGC           12010     13267
                                                  INIT22         47045
          L$SYM       14263                       CCGC           12012
                                                  INIT22         47047
          L$CBT       14264                       CCGC           12015
                                                  INIT22         47052
          L$NLST      14265                       CCGC           12017
                                                  INIT22         47054
          L$DIM       14266                       CCGC           12022     13303
                                                  BRIDGE         43700
                                                  INIT22         47057
          L$ENTP      14267                       CCGC           12024     13045
                                                  BRIDGE         41434
                                                  INIT22         47061
          L$FPI       14270                       CCGC           12027     12551
                                                  GPO            17601
                                                  BRIDGE         41420
                                                  INIT22         47064
          L$VDI       14271                       CCGC           12031     12776     13217
                                                  INIT22         47066
          L$LPT       14272             
          L$FE        14273                       CCGC           12034
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   212  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  INIT22         47071
          F$FRT       14274             
          LM#         14300                       GPO            16414     16420     16611
                                                  PROSEQ         27405     27421     27431
                                                  UDT            44656
          TO#         14307                       MIO            14604
          MX.BLN#     14310                       GPO            16725
          THRESH#     14311                       UDT            44611
          TOV#        14312             
          TOB#        14316                       MIO            14604
          MOREFL#     14340                       MIO            15173
                                                  GPO            16720
          CWS#        14365                       GPO            16707
                                                  UDT            44612
          ATSNAT#     14403                       UDT            44607
          ATSTOG#     14404                       UDT            44610
          ATS$        14406                       CCGC           12554     12652     13043
                                                  MIO            14613     14627     15250
                                                  FBV            15706     15734     15763
                                                  GPO            16413     16515     16521     16550     16600     16606     16731
                                                                 17030     17074     17076     17105     17223     17321     17362
                                                                 17436     20204     20405     20541     20605     20615     21243
                                                                 21310     21614     21756     22011     22157     22253     22272
                                                                 22346     22522     22524     22662     22771
                                                  GRA            23047     23174     23755     24127     24300     24604     24665
                                                                 25100     25342     25355     25656     26166     27201
                                                  PROSEQ         27345     27422     27501     27503     27505     27510     27512
                                                                 30141     30143
                                                  SQZ            30566     30646     32746     32770     33076
                                                  MCG            33702     33704     35301     35303     36000     36016     36050
                                                                 36052     36430     36511
                                                  BDT            36531     37203     37217
                                                  BRIDGE         37650     37666     40044     40364     42056     42623     42747
                                                                 43536     43656
                                                  CFA            44046     44072     44116     44172     44367     44405     44523
                                                                 44526
                                                  UDT            44614     44657     44664     44666     44676     44712     44747
                                                                 45023     45057     45061     45132     45137
          AFT#        14513                       GPO            16513     16617     16634
          ADW$        14523                       CCGC           12512     13052     13101     13250
                                                  GPO            20221     20403     22013     22030     22244     22352
                                                  GRA            25446
                                                  BRIDGE         37646     37654     37656     37660     37676     37773     40463
                                                                 41462     41516     41557     41620     41644     41746     42022
                                                                 42031     42143     42261     42474     42563     42606     42621
                                                                 42744     43061     43076     43156     43164     43211     43213
                                                                 43225     43265     43267     43273     43343     43355     43367
                                                                 43375     43421     43436     43441     43457     43465     43500
                                                                 43512     43521     43525     43532
                                                  CFA            43756     43764     44005     44106     44110
                                                  UDT            44670     44707     45164
          MTU$        14541             
          B=MIO       14545   MIO                 RPV22          11706
                                                  CGTM           13344
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   213  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          MAX.LCM     14546                       UDT            44632     44643
          MX.AVS#     14555                       CGTM           14327
          IMPA#       14562                       UDT            44655
          IMPB#       14570                       GPO            16623
          IMPC#       14600                       GPO            16725
          IMPD#       14606                       GPO            16533
          WFB#        14635                       GRA            26161
          WMB#        14652                       GPO            16426     20245     20626
          RTB#        14707                       GPO            16447     16564     16572     17255     17333     17370     17522
                                                                 17541     20211     20427     20602
                                                  GRA            24374     25334     26017
          RBS#        14737                       GPO            17411     17527     20207
          RNB#        14770                       FBV            15714
          SMB#        15021                       UDT            45163
          GMB#        15055                       GPO            17146
          DMB#        15122                       CGTM           14331
          CGB#        15341                       CGTM           14335
          SBD#        15622                       CFA            43744
          GBD#        15642                       GPO            17216
          B=FBV       15704   FBV                 RPV22          11707
                                                  MIO            15610
          FBV#        15704                       GPO            16673
          O$UDT       16011   GPO                 SQZ            32617
          N.VAR#      16052             
          BVL#        16053                       FBV            15776
                                                  GRA            23066     25704     25727     26223
          DMASK#      16335                       GRA            26442     26627
          B=GPO       16335                       RPV22          11710
          CC$CBN      16337                       BRIDGE         37770     41743     43154     43162     43263     43271     43341
                                                                 43365     43373     43417     43423     43434     43455     43463
                                                                 43507     43517     43523     43527
                                                  CFA            43765     43775     44024     44066     44270     44303
                                                  INIT22         47123     47125
          NPB#        16340                       FBV            15733
                                                  CFA            43770
          M.GRL#      16341                       CFA            43751     44313
          N.DG#       16342                       CFA            43737     43775
          GIC#        16343                       CFA            43742     43743     43747     43752
          O.IST#      16344                       FBV            15735     15761     15765
                                                  CFA            43745     43753
          M.LP#       16345                       CFA            44307
          N.FTH#      16346                       CFA            44045     44266
          M.BBL#      16347                       CGTM           14316
                                                  FBV            15705
                                                  UDT            45127
          M.EBL#      16350             
          N.GT#       16351                       CGTM           13572
                                                  GRA            25467
                                                  SQZ            30573     30641
          O$BIT       16352                       CGTM           13703
                                                  MIO            14622     14630     14664     14712     14742     15133     15164
                                                                 15342     15546
                                                  FBV            15710     15766
                                                  GRA            25674     26137     26151
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   214  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          L$BIT       16353             
          O$BVT       16354                       FBV            15764
          L$BVT       16355             
          L.PTXT#     16357                       UDT            45154
          O.LCT#      16360                       CGTM           13702
          L.LCT#      16361                       CFA            44044     44264
          O.ELT#      16362                       CGTM           13663
          L.ELT#      16363                       CGTM           13662
          O$SEQ       16364                       MIO            14705     14730     15130     15165     15243     15342     15357
                                                  FBV            15707     15712     15715
                                                  GRA            23175     24301     24312     24400     25336     25445     26105
                                                                 26167
                                                  PROSEQ         27374     27423     27432     27473     27515     27544     27547
                                                                 27571     30126     30135     30167     30176     30365     30537
          L$SEQ       16365                       MIO            14706     14731     15244
                                                  GRA            24217     24307     24352     25441     26020     26105     26124
                                                                 26164
                                                  PROSEQ         27374     27377     27424     27432     27506
          BN#         16366                       CGTM           13704
                                                  FBV            15713     15716     15721
          BSI#        16367                       MIO            14637     14653     14661     14673     14710     14724     14741
                                                                 15067     15115
                                                  GRA            24374     25333     26002     26024     26045     26053     26063
                                                                 26065     26130     26140
          BSW#        16370                       GRA            23455
          L.HB#       16371                       GRA            26510
                                                  SQZ            30555
          NBIP#       16403                       GRA            23011
                                                  BDT            36657
          HBI#        16404                       GRA            25457
                                                  BDT            37210
          PCC#        16433                       GRA            23016     23020     24155     24163     26075
          SRI#        16461                       GRA            25317     25371     25413     25425     25436     25500     25603
                                                                 25607     25616     25621     25631     25634     26176     26215
                                                                 26246     26251     26257     26263     26266     26403     26516
                                                                 26521     26525     26555     26560     26717     26730     26753
                                                                 27034     27042     27050
          COL#        16507                       PROSEQ         27362
          CG$GPO      16622                       CCGC           11757
          MPR#        17615                       GRA            26623
          EBV#        17661                       GRA            23056
          FUD#        17712                       FBV            15720
          MPB#        22656                       GRA            25447
                                                  PROSEQ         27372     27470     30131
          MBT#        22766             
          B=GRA       23006   GRA                 RPV22          11711
          GRASRF#     23007                       BDT            36602
          GRA#        23010                       GPO            17011
          CXB#        26123                       GPO            17451
          CUC#        27123                       GPO            20356
                                                  PROSEQ         27471
          B=PROSQ     27325   PROSEQ              RPV22          11712
          CC$BRN      27325                       CCGC           12614     12642     13226
                                                  SQZ            30645
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   215  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  BRIDGE         40024     43670
          CC$LNL      27327                       GPO            16565
                                                  BRIDGE         40033
          CC$OPF      27330                       SQZ            32426
                                                  CFA            43761
                                                  UDT            44671
          CC$OPTL     27331                       BRIDGE         37766     43202     43330     43371     43412     43425     43452
          CC$PIOL     27332             
          CC$SRF      27333                       INIT22         47007
          CC$XR       27334                       SQZ            32101     32404
                                                  UDT            45156
          CG$CPC      27335                       CCGC           12617     12642     13226
          CG$PAS      27342                       BRIDGE         40026     43673
          SSP#        27417             
          PSB#        27440             
          AIS#        27472                       GRA            26125
          ESRA#       30114                       GPO            17536
          ESR#        30132                       GPO            16570     17544
          STLDS#      30547   SQZ                 GPO            20442
          B=SQZ       30547                       RPV22          11713
          SUVA#       30550                       GPO            20435     20441
          LCM#G       30551                       UDT            44605
          SIE#        30553                       GPO            22324
          SQZB#       30557                       GPO            17535     20622     22653
          SBB#        30644                       PROSEQ         27353
          CMO         33216                       GPO            20711     20713     20715     21416     21420     21422
          PC#         33462   MCG                 GRA            26042     26131
          B=MCG       33552                       RPV22          11714
          TYIOM#      33552                       GPO            21604
                                                  PROSEQ         27627
                                                  BDT            37520
          REG=A0      33555             
          MCG#        33572                       GPO            16604
                                                  GRA            26146
                                                  PROSEQ         27401
          B=BDT       36523   BDT                 RPV22          11715
          BDT#        36524                       MCG            33575     34753
          RIO#        37207                       GPO            17551
                                                  MCG            34752
          CRW#        37504             
          RNI#        37561                       GRA            27203
                                                  SQZ            30746
          F$BRDGE     37611                       GPO            16344     16375
          B=BRIDG     37611   BRIDGE              RPV22          11716
          BRIDGE      37643                       CCGC           11754
          OPT2        37750                       INIT22         47102
          P=SEG       40001                       CSKEL          46644
          P=HDR       41107                       CSKEL          46646
          P=GFD       41127                       CSKEL          46647
          P=PLIM      41160                       CSKEL          46650
          P=CDLOO     41211                       CSKEL          46652
          P=CDDOT     41216                       CSKEL          46653
          P=CDCS      41221                       CSKEL          46654
          P=DATA      41224                       CSKEL          46655
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   216  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          P=SEX       41241                       CSKEL          46651
          P=GAP       41450                       CSKEL          46620
          P=FAP       41453                       CSKEL          46621
          P=IOD       41467                       CSKEL          46624
          P=IOC       41504                       CSKEL          46623
          P=IOU       41520                       CSKEL          46625
          P=APRET     41623                       CSKEL          46753     46754     46755     46756     46757
          P=IAP       42522                       CSKEL          46622
          P=LIBF      42543                       CSKEL          46630
          P=FUN       42544                       CSKEL          46627
          P=LIB       42553                       CSKEL          46270     46635
          P=SUB       42554                       CSKEL          46626
          P=IOF       42615                       CSKEL          46632
          P=INF       42642                       CSKEL          46631
          P=FRRET     42654                       CSKEL          46765     46766
          P=LRJ       42662                       CSKEL          46633
          P=SCRET     43024                       CSKEL          46760     46761     46762     46763     46764
          P=HSTO      43055                       CSKEL          46521
          P=HLEX      43065                       CSKEL          45405     45430     45464     45520
          P=HREL      43067                       CSKEL          45403     45425     45457     45513
          P=DZO       43124                       CSKEL          46020
          P=DOO       43125                       CSKEL          46011
          P=DOZ       43152                       CSKEL          46024
          P=DOBZ      43166                       CSKEL          46012     46027
          P=DOL       43170                       CSKEL          46016     46026
          P=DOB       43173                       CSKEL          46015     46025     46740
          P=DOC       43220                       CSKEL          46035     46044     46070     46075     46101
          P=PDE1      43254                       CSKEL          46602     46746
          P=PDE       43257                       CSKEL          46043     46057     46601     46745
          P=IOLC      43275                       CSKEL          46606
          P=PLA       43300                       CSKEL          46616
          P=ENT       43353                       CSKEL          46641
          P=PEX       43371                       CSKEL          46634     46636     46637
          P=PASG      43377                       CSKEL          46615
          P=PGT       43412                       CSKEL          46610     46711
          P=PAG       43425                       CSKEL          46611
          P=PCG       43440                       CSKEL          46612
          P=JGOC      43452                       CSKEL          46613
          P=RGT       43467                       CSKEL          46155
          P=IF        43475                       CSKEL          46607     46663     46664     46665     46666     46667     46670
                                                                 46671     46672     46673     46674     46675     46676     46677
                                                                 46700     46701     46702     46703     46704     46705     46706
                                                                 46707     46710     46712     46713     46714     46715     46716
                                                                 46717     46720     46721
          P=PAR       43544                       CSKEL          46617
          P=HCAT      43546                       CSKEL          46522
          P=HSBS      43550                       CSKEL          46524
          P=HCOL      43552                       CSKEL          46523
          P=IM        43554                       CSKEL          46456
          P=ID        43612                       CSKEL          46462
          P=MASK      43622                       CSKEL          46570
          P=MOD       43627                       CSKEL          46571
          P=SHIFT     43637                       CSKEL          46573
          P=BVD       43651                       CSKEL          46642
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   217  
          OVERLAY(FTN,2,2,O=FWA22)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          P=EVD       43654                       CSKEL          46643
          P=FIN       43663                       CSKEL          46656
          P=ILL       43675                       CSKEL          46445     46660     46661
          P=LCC       43716                       CSKEL          46657
          B=CFA       43735   CFA                 RPV22          11717
          DGS#        43760                       GPO            16627
          CG$LABD     44023                       BRIDGE         43346
                                                  INIT22         47124
          B=UDT       44603   UDT                 RPV22          11720
          F$CFA       44603   CFA                 GPO            16626
          CG$INIT     44603   UDT                 BRIDGE         37644
          AUT#        44704                       GPO            16524     16625
          CMR#        45021                       GPO            16523
          CG$CPL      45055                       BRIDGE         42705
          PBB#        45121                       PROSEQ         27404
          F$UDT       45166                       GPO            16624
          F.SET       45166   CSKEL               INIT22         47127
          B=CSKEL     45166                       RPV22          11721
          F.SCT       46445                       BRIDGE         37703     37714
          B=INI22     46767   INIT22              RPV22          11722
          F.MEM       46767                       CGTM           14300
                                                  MIO            14552
                                                  GPO            16352     16516     16527     16532     16540     16611
                                                  UDT            45040     45111
          FTN22       46767             
          B=LWA22     47146                       RPV22          11723
  
  
  
  
  
 -------- OVERLAY(FTN,2,3,O=FWA23)  
          WRITTEN TO FILE     LGO 
  
          FWA OF THE LOAD           5673
          LWA+1 OF THE LOAD        17163
  
          TRANSFER ADDRESS -- FTN23          17137          
  
  
  
          PROGRAM AND BLOCK ASSIGNMENTS.
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          FTN523         5673        0    OVR      24/05/02 COMPASS 3.7 871               FTN5 REAR END OVERLAY FOR CCG.
          RPV23          5673       15    OVR      24/05/02 COMPASS 3.7 871               DEFINE ROUTINE NAMES AND FWA FOR RPV.   
          REC            5710      430    OVR      24/05/02 COMPASS 3.7 871               REAR END CONTROLLER.
          RLINK          6340      433    OVR      24/05/02 COMPASS 3.7 871               REAR-END LINKAGES.  
          RERRS          6773       35    OVR      24/05/02 COMPASS 3.7 871               REAR END ERROR MESSAGE TEXTS. 
          PEM            7030      330    OVR      24/05/02 COMPASS 3.7 871               PRINT ERROR MESSAGES.         
          ALLOC          7360      302    OVR      24/05/02 COMPASS 3.7 871               TABLE ALLOCATION.   
          FAS            7662     2437    OVR      24/05/02 COMPASS 3.7 871               FORTRAN INTERNAL ASSEMBLER.   
          MAP           12321     3244    OVR      24/05/02 COMPASS 3.7 871               STORAGE MAP AND CROSS REFERENCE.        
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   218  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          BLOCK       ADDRESS   LENGTH    FILE     DATE     PROCSSR VER LEVEL  HARDWARE   COMMENTS
  
          LIST          15565     1352    OVR      24/05/02 COMPASS 3.7 871               OBJECT CODE LISTING ROUTINES. 
          INIT23        17137       24    OVR      24/05/02 COMPASS 3.7 871               INITIALIZE REAR END OVERLAY.  
  
  
  
          ENTRY POINTS. 
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          FEC=BY          0   RLINK               ALLOC           7632
          L.FILL          3   RERRS               PEM             7037
          ERR.F           4   PUC                 RERRS           7022      7023      7025      7027
          BN=APL          5                       FAS            10203
          FV.LGO          5   FTN                 REC             5725      6012      6115
                                                  FAS            10120     10321
                                                  INIT23         17153
          ERR.C           6   PUC                 PEM             7077
          N.ERRT          7                       PEM             7101
          BT.IDN8        10   FAS       
          BT.IDN9        11                       REC             6004
          BN=SUB         11   PUC                 FAS            10136     10322     10547
          BN=SUB0        12                       FAS            10135     10324     10545
          Z.LBT          14                       REC             6124
          N.TABLE        47                       RLINK           6763
                                                  ALLOC           7361      7377      7416      7423      7452      7472      7475
                                                                  7522
                                                  FAS            11021     11744     11762     12224
                                                  LIST           16524
          CP.ERCT       115   FTN                 PEM             7241
          CP.BLF        121                       MAP            13043
          GT1           135                       FAS            12273     12275
          CP.AFLS       201                       ALLOC           7561
          CP.NFLS       202                       INIT23         17160
          CP.MODL       205                       FAS            12040
          F.OUT         221                       ALLOC           7646
          F.LGO         241                       ALLOC           7650
                                                  FAS            10122     10270     10334     12274
                                                  INIT23         17154
          SYS=          253                       INIT23         17145
          WNB=          272                       REC             5760
          MSG=          302                       ALLOC           7645
          F.PB          311                       REC             5757      5762      5765      6014
                                                  FAS            12207     12213
                                                  INIT23         17151
          F.REF         331                       ALLOC           7600
                                                  MAP            14121     14123     14130     14134
                                                  INIT23         17147
          NOM.FL        344                       ALLOC           7561
          ENOT=L        353                       PEM             7151      7205
          CO.ARGC       356                       FAS            10104     12042
          CO.ARGF       357                       FAS            12043
          CO.DBID       361                       REC             6003
          CO.DBPM       362                       REC             6007
                                                  FAS            11104     11161
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   219  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CO.DBST       365                       REC             6003
          CO.EL         371                       PEM             7075
          CO.ET         372                       PEM             7237
          CO.LL         375                       FAS            10250
                                                  LIST           16056
          CO.OPT        377                       REC             6035
                                                  FAS            10117     10233
                                                  LIST           16025
          CO.PS         400                       MAP            13043     14007     14231
                                                  LIST           16635
          CO.PW         401                       PEM             7157
                                                  FAS            10146
                                                  MAP            13336     13372     13446     14016     14037     14064     15134
                                                                 15154
                                                  LIST           15755
          CO.WPL        416                       PEM             7172
          CO.LOO        425                       REC             5725      6013
          CO.LOR        426                       INIT23         17146
          CO.QC         430                       REC             5727
          TL.PTYP       441                       FAS            12040
          TL.CSOP       444                       REC             6002
          TL.DATE       451                       FAS            12033
          TL.TIME       452                       FAS            12035
          ABTFTN        600                       ALLOC           7652
          COD           615                       LIST           16304
          RPV2N        2642   RPV20               INIT23         17140
          CDD          2650   UTILITY             MAP            13675     14346     14406     14554     14564     14603     14671
                                                                 14727     15172     15264     15302     15331     15432
                                                  LIST           15743     16056
          DXB          2667                       FAS            11305
          FA=SET       2676                       INIT23         17150     17152     17155
          MVE=         2737                       PEM             7164
                                                  ALLOC           7503      7511
                                                  FAS            10201     11030
                                                  MAP            14025
                                                  LIST           16544     16605
          RPV=         2775                       INIT23         17141     17144
          SBM=         3256                       REC             6121
                                                  MAP            13152     13350     13720     14027     14052     15147     15220
          SFN          3263                       PEM             7147
                                                  FAS            10306
                                                  MAP            13146     13307     13344     13714     14046     14056     14516
                                                                 14740     14747     15143     15214
                                                  LIST           16015     16052     16236     17031
          SST          3301                       FAS            11177     11227
                                                  MAP            13254     13272     13567
                                                  LIST           16361
          WOD          3304                       FAS            11313
                                                  MAP            15422     15445
                                                  LIST           16272     16400     16540     16576     16627
          ZTB          3322                       MAP            14536     14707
                                                  LIST           16141     16530
          CIO=         3341                       REC             5766      6015
                                                  ALLOC           7647      7651
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   220  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  FAS            10271     10335
                                                  MAP            14122     14124     14131
          RDW=         3374                       FAS            12207     12214
                                                  MAP            14134
          WTW=         3610                       ALLOC           7600
                                                  FAS            12274
          T.LGOB       4110   PUC                 FAS            10123
          BASES        4110                       ALLOC           7407      7474      7506      7514      7535      7537      7571
                                                  INIT23         17157
          T.PTXTR      4111                       FAS            10733     10770     11040     11041     11416     11474     11506
                                                                 11620
                                                  LIST           16376
          T.LINK       4112                       FAS            10111     11174     11200     11217     12150
          T.STF        4112                       ALLOC           7540
          T.FPO        4113                       REC             6075      6243
                                                  FAS            10554
          T.SCR        4115                       FAS            11061     11066     11071     11101     11124     11143     11333
                                                                 12301
                                                  MAP            13122     13252     13504     13547     13566     13617     13757
                                                                 14323
                                                  LIST           16347     16362
          T.PTXT       4115                       FAS            10731     10764     11034     11036
          T.FILL       4116                       FAS            10113     11225     11230     12146
          T.DATS       4117                       FAS            10455     10734     11027
          T.XFIL       4120                       FAS            10115     11246     12167
          T.PAR        4120                       ALLOC           7541
          T.CLWB       4122                       FAS            11665     11710
                                                  LIST           16623
          T.SUB        4123                       REC             6116
                                                  FAS            10322     10654
                                                  LIST           17046
          T.SUB0       4124                       REC             6241      6243
                                                  FAS            10324     10707
          T.CLW        4126                       FAS            11666
                                                  LIST           16621
          T.CAC        4127                       RLINK           6753
                                                  FAS            11455     11550
                                                  LIST           16452     16734
          T.APL        4130                       RLINK           6730
                                                  FAS            10174     10176     11422
                                                  LIST           16353     17013
          T.IOA        4131                       FAS            11507
          T.API        4132                       REC             6153
                                                  FAS            12200
                                                  LIST           16351
          T.IOI        4133                       REC             6155
                                                  FAS            12201
          T.GL         4134                       REC             6151
                                                  FAS            12177
          T.CON        4136                       RLINK           6675
                                                  PEM             7061
                                                  FAS            10225
                                                  MAP            15361     15403     15415     15444
                                                  LIST           15762
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   221  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T.CUT        4137                       RLINK           6577      6673      6732      6754
          T.LA         4137                       FAS            11320
          T.SYM        4140                       REC             6021      6062      6135      6157      6224      6253      6276
                                                  RLINK           6706      6720
                                                  FAS            10126     10132     10240     10310     10417     10503     10527
                                                                 10551     10673     10740     11051     11126     11201     11274
                                                                 11322     11333     11436     11526     11626     12127     12241
                                                  MAP            13060     13500     13502     13620     14136     14261     14325
                                                                 14342     14377     14427     14462     14512     14526     14546
                                                                 14600     14613     14650     14717     14745     14766     15163
                                                                 15246     15274     15312     15352
                                                  LIST           15724     15770     16013     16042     16163     16431     16524
                                                                 16716
          T.BLKS       4141                       REC             6231
                                                  FAS            11107     11152
                                                  MAP            13266     13560     13653     14446
          T.NLST       4142                       FAS            12232
          T.DIM        4143                       REC             6213      6302
                                                  FAS            11346     11444     11716     11730     12251
                                                  MAP            14654     15254
                                                  LIST           16440
          T.ENTP       4144                       MAP            14550
          T.FPI        4145                       REC             6077
                                                  FAS            10653     10675
                                                  LIST           17042
          T.REF        4147                       ALLOC           7571      7576
                                                  MAP            14126     14132     14144     14214     15170
          T.LCA        4150                       FAS            10177     10202     12202
          T.ECT        4151                       MAP            13271     13537     13543     13550     13632     13637
          T.ENT        4152                       FAS            11127
          T.LNT        4153                       FAS            10725     11045     11306
          T.LCC        4154                       FAS            10265
          T.FMT        4155                       FAS            10232
                                                  LIST           16571
          T.END        4156                       ALLOC           7604
          SIZES        4157                       ALLOC           7417      7424      7466      7507
          T=LGOB       4157                       FAS            10121
          T=PTXTR      4160                       FAS            10212     10216     10256     10263     10731     11042
          T=EQUS       4161                       ALLOC           7626
          T=STF        4161                       ALLOC           7623
          T=LINK       4161                       ALLOC           7551
                                                  FAS            10107     11174     11200     11224
          T=FPO        4162                       REC             5776      6244
          T=BLST       4163                       ALLOC           7626
          T=SCR        4164                       ALLOC           7625
                                                  FAS            11063     11101     11122     11136     11142     11170     11404
                                                                 11715
                                                  MAP            13247     13253     13304     13476     13534     13566     13617
                                                                 13760     14226     14260
                                                  LIST           16347     16362
          T=PTXT       4164                       FAS            10730     11037
          T=FILL       4165                       ALLOC           7552
                                                  FAS            10107     11224     11230
          T=DATS       4166                       REC             5775
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   222  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  ALLOC           7631
                                                  FAS            10454     10463     10734
                                                  LIST           16001
          T=XFIL       4167                       ALLOC           7554
                                                  FAS            10110     11246     11253
          T=PAR        4167                       ALLOC           7425      7467      7504      7627
          T=STMT       4171                       ALLOC           7617      7621
          T=CLWB       4171                       FAS            10257     10264
          T=SUB        4172                       REC             5776
          T=SUB0       4173                       REC             5777      6122      6244
          T=CLW        4175                       REC             6047
                                                  FAS            10262     11663     11666
                                                  LIST           16621
          T=CAC        4176                       RLINK           6752
          T=APL        4177                       REC             5772      6043
                                                  RLINK           6730
                                                  ALLOC           7630
                                                  FAS            10171     10215     11416     11422
                                                  LIST           17014
          T=IOA        4200                       REC             5774      6045
                                                  FAS            10254     10263     11505     11507
                                                  LIST           16074
          T=API        4201                       REC             5773      6153
                                                  LIST           16346
          T=IOI        4202                       REC             5774      6155
          T=GL         4203                       REC             5772      6151
                                                  ALLOC           7631
          T=CON        4205                       REC             5770
                                                  RLINK           6702
                                                  ALLOC           7625
          T=LA         4206                       REC             6035
                                                  FAS            10233
                                                  LIST           16025
          T=SYM        4207                       REC             6061      6136      6157      6253      6277
                                                  FAS            11064     11334
                                                  MAP            13502     14136     14261
          T=BLKS       4210                       REC             6232
                                                  ALLOC           7633
                                                  FAS            11100     11141
                                                  MAP            13262     13555
          T=NLST       4211                       REC             5771
                                                  RLINK           6713
                                                  ALLOC           7630
                                                  FAS            10300     12232
                                                  LIST           16106
          T=DIM        4212                       REC             6213
                                                  ALLOC           7624
                                                  FAS            11716
                                                  LIST           16106
          T=FPI        4214                       REC             5775      6074
          T=REF        4216                       ALLOC           7565      7576      7632
                                                  MAP            14132     14143
          T=LCA        4217                       REC             5773      6042
                                                  FAS            10171     10177     10205
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   223  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          T=ECT        4220                       MAP            13261     13272     13542     13640
          T=ENT        4221                       ALLOC           7633
                                                  FAS            11123
          T=LNT        4222                       REC             6000
                                                  FAS            10110     11306
          T=LCC        4223                       FAS            10267
          T=FMT        4224                       REC             5771      6033
                                                  ALLOC           7627
                                                  LIST           16570
          TV=DECL      4275                       ALLOC           7573
          TV=EXU       4276                       ALLOC           7574
          TV=END       4277                       REC             5715
          TV=CUR       4300                       REC             5717
                                                  ALLOC           7412      7434      7472      7575
          F.LBT        4301                       REC             6033      6061      6114      6114      6124      6140      6267
                                                                  6324
                                                  FAS            10136     10137     10204     10556     12075     12100
                                                  LIST           16343     16577     16644
          SUM.LBT      4315                       REC             6135      6200
                                                  FAS            10125     11103
                                                  LIST           16011
          COMSIZ       4316                       REC             6175      6201
          ALC.PAR      4320                       REC             5716
                                                  ALLOC           7425
          BINIO        4321                       REC             5761      6011
          BLNKCOM      4322                       MAP            13654     14450
          CBI          4323                       FAS            10141     11745     12073     12101
          ERRORS       4325                       REC             5756      6125      6150
                                                  PEM             7232
                                                  FAS            10124
          FAILSFT      4327                       ALLOC           7614
                                                  MAP            13041
          O.TABS       4330                       ALLOC           7464      7470      7506      7603
                                                  INIT23         17157
          IDENT        4333                       ALLOC           7640
                                                  FAS            10306     11103     12033
                                                  LIST           16004     16063     16141
          LCNT         4335                       MAP            13045     14007     14012     14231
          LEVEL2       4341                       FAS            12045
          LINEBUF      4343                       PEM             7104      7156      7163      7166
                                                  FAS            10147     10150     10440     11314     12061     12067     12222
                                                                 12265
                                                  MAP            13070     13145     13147     13151     13344     13345     13347
                                                                 13713     13715     13717     14024     14026     14046     14047
                                                                 14051     14076     14103     14107     14110     15143     15144
                                                                 15146     15213     15215     15217
                                                  LIST           15713     15714     15750     16012     16020     16021     16034
                                                                 16037     16073     16143     16240     16262     16263     16273
                                                                 16277     16303     16371     16401     16401     16412     16536
                                                                 16544     16545     16603     16604     16606     16617     16626
                                                                 16630     16643     16646     16651     16656     17026     17046
                                                                 17051     17063     17064
          LOSTREF      4362                       MAP            14125
          MOD          4363                       FAS            10331     11054     11076     11121
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   224  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
                                                  MAP            13233     13472     15120
                                                  LIST           16004
          NREXT        4366                       REC             5756
                                                  ALLOC           7553
                                                  FAS            10111     11175     11201     11223
          N.CON        4374                       REC             6040
          O.STITL      4410                       MAP            13063     14014     14067
                                                  LIST           16637
          PASS         4412                       REC             5714      5731
                                                  PEM             7154
                                                  ALLOC           7551      7615      7636
                                                  MAP            13042
          PWBUF        4413                       PEM             7164      7165
          WOF=ERR      4430                       PEM             7152      7157      7161      7171      7207
          REFIO        4431                       ALLOC           7567
                                                  MAP            14120
          SAVE         4433                       FAS            11147
          THRESH       4434                       ALLOC           7430      7606      7611      7613
                                                  INIT23         17162
          USAVE        4435                       REC             6171
                                                  FAS            11147
          L.TABS       4436                       ALLOC           7422      7471      7605
                                                  INIT23         17161
          WO.LOA       4454                       REC             5720
                                                  MAP            13047
          WO.LOM       4455                       REC             5720
                                                  MAP            13046     13257
          WO.LOO       4456                       REC             5726
                                                  FAS            10275     10521     12061
          WO.LOR       4457                       REC             5721
                                                  MAP            13050     14015     14036     14063     14117     14213
          WO.LOS       4460                       PEM             7205
          WO.QC        4461                       PEM             7236
                                                  MAP            13241     13260     14365     14636
          S=BU         4471                       FAS            12127
          S=CL         4475                       REC             6047
                                                  LIST           16617
          S=CON        4476                       REC             6041
                                                  RLINK           6732
                                                  LIST           15762
          S=ENTRY      4502                       FAS            10307     10563
          S=LA         4515                       REC             6036
                                                  LIST           16026
          S=LENP       4517                       FAS            10125     10525
                                                  LIST           16012
          S=RD         4525                       FAS            11442     11626
                                                  LIST           16437
          S=SA1        4526                       FAS            11051
          S=VALUE      4541                       REC             6020
                                                  MAP            13505
          S=VD         4542                       FAS            10131     12020
          ERRTYP       4543                       PEM             7075      7077
          E=TOTAL      4561                       PEM             7233
          GMC          5161                       ALLOC           7602
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   225  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          MTD          5205                       ALLOC           7465
          PIA          5242                       FAS            12063
                                                  MAP            14367     14640
                                                  LIST           16011     16370     16402     16535     16602     16616     16625
                                                                 16645     16647     17025     17045
          WOF          5343                       PEM             7204
                                                  ALLOC           7643
                                                  MAP            13150     13311     13313     13346     13716     14050     14060
                                                                 14062     15145     15216
                                                  LIST           15715     15751     16022     16264     16307     16546     16607
                                                                 16641     16653     16661     17065
          PIK=PS       5401                       FAS            10400
                                                  LIST           15626     15653     16113
          PIK=LCM      5501                       LIST           15657
          PIK=XJP      5503                       LIST           15655     15662
          PIK=PI       5513                       LIST           16114
          HDRBL        5535                       MAP            13062     14013
          APCON        5542   CCGLINK             RLINK           6731      6752
          ERR22        5546                       RLINK           6345      6351
          REL.RTN      5621                       REC             6000
          B=RPV23      5673   RPV23     
          RPV23        5673                       INIT23         17137
          WO.56        5710   REC                 FAS            11050
          B=REC        5710                       RPV23           5674
          WO.57        5711                       FAS            11045
          REC          5712                       INIT23         17162
          ADA          6212                       FAS            11332
          STAGE        6340   RLINK               ALLOC           7634
          B=RLINK      6340                       RPV23           5675
          CHARMAP      6341                       PEM             7056
          BLL          6341                       PEM             7203
          LEXFLG       6341                       ALLOC           7616
          FEC.RTN      6341                       ALLOC           7637
          LDB          6342                       PEM             7155
                                                  ALLOC           7620
          CGE          6344                       REC             5712
          LSR          6353             
          N.ALTEN      6354             
          CII          6525                       FAS            10366
          BCT          6672                       REC             5723
          SMB          6712                       REC             6072
          PAT          6727                       FAS            10170     10255
          PCA          6751                       REC             5724
          SCS          6762                       MAP            13537     13633
          SCSA         6771                       MAP            13536     13631
          B=RERRS      6773   RERRS               RPV23           5676
          DICT         6774                       PEM             7112
          FILL.        6775                       PEM             7040      7071
          FILL.2       6776             
          FILL.3       6777             
          E.MO1        7022                       REC             6205
          E.MO2        7023                       RLINK           6346
                                                  ALLOC           7634
          E.MO8        7025                       REC             6204
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   226  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          E.CCG        7027                       RLINK           6347
          B=PEM        7030   PEM                 RPV23           5677
          ANSI=        7031             
          ANSI.SW      7032             
          MDERR=       7034             
          MDER.SW      7035             
          PEMS         7036             
          PEMV         7053             
          PEM          7072                       RERRS           7022      7023      7025      7027
          PDM          7223                       REC             6204      6206
                                                  RLINK           6350
                                                  ALLOC           7635
          ADW          7360   ALLOC               RLINK           6674
                                                  FAS            10725     10732     10733     11023     11035     11040     12167
                                                                 12174     12302
                                                  MAP            13547     14324
          B=ALLOC      7360                       RPV23           5700
          ADW.ALC      7370             
          ADWT         7372             
          ALC          7376                       REC             6076      6117      6242
                                                  FAS            10112     10114     10116     10123     10175     10456     11026
                                                                 11067     11102     11124     11144     11417     11506     11665
                                                  MAP            13061     13501     14127
                                                  LIST           16350
          ALC.REG      7535             
          ALC.00       7537             
          ALC.STF      7540             
          ALC.CAI      7541             
          B=FAS        7662   FAS                 RPV23           5701
          BT.IDNT      7662                       REC             6005
          BT.XFR1      7743             
          CIDMOD       7747             
          COMMOD       7750             
          FCLMOD       7752                       LIST           16700
          FAPSUD      10014                       LIST           15616
          ORG         10063             
          PARCEL      10064             
          ORGSUB      10065                       LIST           17043
          SUBFLG      10066             
          ORGSUB0     10067             
          TAGSUB0     10070                       LIST           15716
          OL=BIN      10071                       LIST           16035     16271
          OL=LBF      10072                       LIST           15652     15745     16017     16247     16300     17061
          OL=PB       10073                       LIST           15614
          OL=RL       10074                       LIST           16031     16065     16144     16240     16267     16273
          FAS         10103                       REC             5767
          APLA        10217                       LIST           15737     17013
          RADRTN      10351                       REC             5741      5743
          RADOL1      10413                       REC             5743
          RADOL2      10433                       REC             5745
          RADC        10635                       LIST           15612
          BST         10652                       REC             5734
          BST.EQ      10653                       REC             5736
          CAB         10711             
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   227  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          CLE         10721                       REC             5751
          CLE.EQ      10722                       REC             5752
          DLF         11172                       ALLOC           7557
          ESL         11271                       REC             5753
          ESL.EQ      11272                       REC             5754
          FBP         11312                       REC             5745
          FBP.EQ      11313                       REC             5747
          POL         12060                       REC             5737
          POL.EQ      12061                       REC             5741
          RNI         12205                       RLINK           6615
          SNR         12231                       REC             6053
                                                  RLINK           6715
          WLF         12272                       REC             5732
          WLF.EQ      12273                       REC             5734
          B=MAP       12321   MAP                 RPV23           5702
          FIN         12321             
          MAP         13040                       REC             5722
          B=LIST      15565   LIST                RPV23           5703
          FIN.MAP     15565   MAP       
          PIK         15611   LIST                FAS            12065
          LI=EMI      15723                       FAS            10043
          LI=BMI      15723                       FAS            10017
          LI=LOO      15723                       FAS            10030     10047
          LI=OTR      15723                       FAS            10050
          LI=BCI      15723                       FAS            10035
          LI=ECI      15723                       FAS            10042
          LI=ADDR     15724                       FAS            10014
          LI=APL      15736                       FAS            10016
          LI=BOS      15742                       FAS            10036
          LI=BSS      15753                       FAS            10015     10040
          LI=CON      15755                       FAS            10020
          LI=CPL      15765                       FAS            10037
          LI=DATA     16001                       FAS            10041
          LI=END      16003                       FAS            10021
          LI=EQUN     16011                       FAS            10022
          LI=FMT      16024                       FAS            10023
          LI=FLA      16033                       FAS            10060
          LI=FVEC     16042                       FAS            10024
          LI=PLIM     16056                       FAS            10032
          LI=IDNT     16062                       FAS            10025
          LI=IOM      16071                       FAS            10026
          LI=JPI      16101                       FAS            10044
          LI=LCC      16104                       FAS            10027
          LI=ST0      16105                       FAS            10046
          LI=LD0      16105                       FAS            10045
          LI=NLST     16106                       FAS            10031
          LI=RJ3      16110                       FAS            10051
          LI=RJ6      16111                       FAS            10052
          LI=SB0I     16116                       FAS            10054
          LI=SUBI     16117                       FAS            10053
          LI=UJP      16126                       FAS            10055
          LI=USE      16127                       FAS            10034     10056
          LI=TRAC     16141                       FAS            10033
          LI=ZERO     16150                       FAS            10057
1         LOAD MAP - FTN5                                       CYBER LOADER 1.5-871       24/05/02. 13.21.12.      PAGE   228  
          OVERLAY(FTN,2,3,O=FWA23)  
  
  
          ENTRY     ADDRESS   PROGRAM             REFERENCES
  
          VFD         16326                       FAS            10413     10434
          B=INI23     17137   INIT23              RPV23           5704
          FTN23       17137             
          FIN.OL      17137   LIST      
          B=LWA23     17163   INIT23              RPV23           5705
  
  
  
               7.336 CP SECONDS             170500B CM STORAGE USED                    445 TABLE MOVES
  
  
  
  
1 
      RECORDS WRITTEN ON FILE PRODTMP                       24/05/02. 13.21.42.           PAGE     1
  
          RECORD    TYPE      FILE       DATE      COMMENT
  
          SRT5LIB   ULIB      PRODOLD   99/12/09. 
          SYSLIB    ULIB      PRODOLD   23/09/20. 
          SYMLIB    ULIB      PRODOLD   99/12/09. 
          FTN5LIB   ULIB      PRODOLD   99/12/09. 
          FORTRAN   ULIB      PRODOLD   99/12/09. 
          SRVLIB    ULIB      PRODOLD   99/12/09. 
          PFGLIB    ULIB      PRODOLD   99/12/09. 
          PASCLIB   ULIB      PRODOLD   99/12/09. 
          NVERELS   ULIB      PRODOLD   99/12/09. 
          NETIO     ULIB      PRODOLD   23/09/20. 
          NETIOD    ULIB      PRODOLD   23/09/20. 
          NETXIO    ULIB      PRODOLD   23/09/20. 
          NETXIOD   ULIB      PRODOLD   23/09/20. 
          MACLIB    ULIB      PRODOLD   23/09/20. 
          NFMLIB    ULIB      PRODOLD   99/12/09. 
          BIT8LIB   ULIB      PRODOLD   99/12/09. 
          SFLIB     ULIB      PRODOLD   99/12/09. 
          QSFLIB    ULIB      PRODOLD   99/12/09. 
          DMSLIB    ULIB      PRODOLD   99/12/09. 
          BAMLIB    ULIB      PRODOLD   99/12/09. 
          AAMLIB    ULIB      PRODOLD   99/12/09. 
          TRANLIB   ULIB      PRODOLD   99/12/09. 
          LCNLIB    ULIB      PRODOLD   99/12/09. 
          COBOL5    ULIB      PRODOLD   99/12/09. 
          MSAMLIB   ULIB      PRODOLD   99/12/09. 
 ADDED    FTN5      ABS       TPROD     24/05/02. FTN5 MAIN OVERLAY.
 ADDED    FTN510    OVL       TPROD     24/05/02. FTN5 PRIMARY OVERLAY FOR QCG. 
 ADDED    FTN520    OVL       TPROD     24/05/02. FTN5 PRIMARY OVERLAY FOR CCG. 
 ADDED    FTN521    OVL       TPROD     24/05/02. FTN5 FRONT END OVERLAY FOR CCG. 
 ADDED    FTN522    OVL       TPROD     24/05/02. COMMON CODE GENERATOR OVERLAY.
 ADDED    FTN523    OVL       TPROD     24/05/02. FTN5 REAR END OVERLAY FOR CCG.
 ADDED    PRODUCT   OPLD      *****     24/05/02. 
          **EOF**             PRODOLD 
  
1 
      RECORDS WRITTEN ON FILE DIRFTMP                       24/05/02. 13.22.01.           PAGE     1
  
          RECORD    TYPE      FILE       DATE      COMMENT
  
          SRT5LIB   TEXT      DIRFOLD 
          SYSLIB    TEXT      DIRFOLD 
          SYMLIB    TEXT      DIRFOLD 
          FTN5LIB   TEXT      DIRFOLD 
          FORTRAN   TEXT      DIRFOLD 
          SRVLIB    TEXT      DIRFOLD 
          PFGLIB    TEXT      DIRFOLD 
          PASCLIB   TEXT      DIRFOLD 
          NVERELS   TEXT      DIRFOLD 
          NETIO     TEXT      DIRFOLD 
          NETIOD    TEXT      DIRFOLD 
          NETXIO    TEXT      DIRFOLD 
          NETXIOD   TEXT      DIRFOLD 
          MACLIB    TEXT      DIRFOLD 
          NFMLIB    TEXT      DIRFOLD 
          BIT8LIB   TEXT      DIRFOLD 
          SFLIB     TEXT      DIRFOLD 
          QSFLIB    TEXT      DIRFOLD 
          DMSLIB    TEXT      DIRFOLD 
          BAMLIB    TEXT      DIRFOLD 
          AAMLIB    TEXT      DIRFOLD 
          TRANLIB   TEXT      DIRFOLD 
          LCNLIB    TEXT      DIRFOLD 
          COBOL5    TEXT      DIRFOLD 
          MSAMLIB   TEXT      DIRFOLD 
 ADDED    FTN5      TEXT      TDIR
          **EOF**             DIRFOLD 
  
1 
      LIBEDIT DIRECTIVES.                                   24/05/02. 13.22.08.           PAGE     1
  
  
  
          *BUILD,GLOBLIB
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 13.22.08.           PAGE     2
  
          RECORD    TYPE      FILE       DATE      COMMENT
  
          COMPASS   ABS       GLOBOLD   97/11/04. PSR=871,PRD=CPS1,MFT=B,VAR=A
          COMP3$    OVL       GLOBOLD   97/11/04. CYBER 70/ MODEL 835 COMPREHENSIVE ASSEMBLER PROGRAM VERSION 3.7-871.
          COMP3$A   OVL       GLOBOLD   97/11/04. CYBER 70/ MODEL 835 COMPREHENSIVE ASSEMBLER PROGRAM VERSION 3.7-871.
          AIDTEXT   OVL       GLOBOLD   97/11/04. 
          NADTEXT   OVL       GLOBOLD   97/11/04. 
          SYMPL     ABS       GLOBOLD   97/11/04. PSR=871,PRD=SYMP,MFT=B,VAR=A
          SYMP10    OVL       GLOBOLD   97/11/04. 
          SYMP15    OVL       GLOBOLD   97/11/04. 
          SYMP16    OVL       GLOBOLD   97/11/04. 
          SYMP14    OVL       GLOBOLD   97/11/04. 
          SYMP17    OVL       GLOBOLD   97/11/04. 
          SYMP13    OVL       GLOBOLD   97/11/04. 
          SYMP30    OVL       GLOBOLD   97/11/04. 
          SYMP31    OVL       GLOBOLD   97/11/04. 
          SYMP32    OVL       GLOBOLD   97/11/04. 
          SYMP40    OVL       GLOBOLD   97/11/04. 
          SYMP50    OVL       GLOBOLD   97/11/04. 
          SYMP51    OVL       GLOBOLD   97/11/04. 
          SYMP52    OVL       GLOBOLD   97/11/04. 
          CATALOG   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. CATALOG - CATALOG FILE. 
          MODIFY    ABS       GLOBOLD   23/09/20. 82/02/26. 92/10/15. MODIFY - SOURCE LIBRARY EDITING PROGRAM.
          KRONREF   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. KRONREF - SYSTEM CROSS REFERENCE PROGRAM. 
          OPLEDIT   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. OPLEDIT - OPL EDITING PROGRAM.
          COPYB     ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. COPYB - BINARY FILES COPIES.
          GTR       ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. GTR - GET SELECTED RECORDS. 
          LIBEDIT   ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. LIBEDIT - LIBRARY EDITING PROGRAM.
          LIBGEN    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. LIBGEN - GENERATE USER LIBRARY. 
          VERIFY    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. VERIFY - VERIFY FILES.
          VFYLIB    ABS       GLOBOLD   23/09/20. 82/02/26. 92/09/17. VFYLIB - VERIFY LIBRARY FILES.
          UPDATE    ABS       GLOBOLD   97/11/04. PSR=871,PRD=UPD1,MFT=A,VAR=A
          COPYL     ABS       GLOBOLD   97/11/04.  MERGE RECORDS FROM MASTER AND CORR. FILES. 
          ITEMIZE   ABS       GLOBOLD   97/11/04.  LIST CONTENTS OF A BINARY FILE.
          LDRCNTL   ABS       GLOBOLD   97/11/04. 
          LOADU     ABS       GLOBOLD   97/11/04. USER-CALL LOADER    (L 871).
          LOADER    ABS       GLOBOLD   97/11/04. PSR=871,PRD=LDR1,MFT=B,VAR=B
          LOADC     OVL       GLOBOLD   97/11/04. LOADER - PROCESS CARD IMAGES. 
          LOADG     OVL       GLOBOLD   97/11/04. LOADER - GENERATE OVERLAYS. 
          LOADS     OVL       GLOBOLD   97/11/04. LOADER - GENERATE SEGMENT LOAD. 
          LOADZ     OVL       GLOBOLD   97/11/04. LOADER - RESUME OVERLAY GENERATION. 
          LOADM     OVL       GLOBOLD   97/11/04. LOADER - WRITE LOAD MAP.
          RECLAIM   ABS       GLOBOLD   23/09/20. 88/01/20. 96/06/05. RECLAIM - PERMANENT FILE DUMP/LOAD UTILITY
          TDUEX     ABS       GLOBOLD   97/11/04. PSR=871,PRD=TDU1,MFT=A,VAR=A
          LOADUC    OVL       GLOBOLD   97/11/04. LOADU - PROCESS CARD IMAGES.
          LOADUM    OVL       GLOBOLD   97/11/04. LOADU - WRITE LOAD MAP. 
          TRAP      OVL       GLOBOLD   97/11/04. 
          SEGRES    OVL       GLOBOLD   97/11/04. SEGMENT LOADER RESIDENT.
          LDRTEXT   OVL       GLOBOLD   97/11/04. LOADER REQUEST SYSTEM MACROS. 
          PSSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. PSSTEXT - PRODUCT SET SUPPORT MACROS. 
          NOSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. NOSTEXT - SYSTEM COMMUNICATION TEXT.
          SYSTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. SYSTEXT - SYSTEM MACROS.
          SSYTEXT   OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. SSYTEXT - SYSTEM CONTROL POINT TEXT.
          PPTEXT    OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. PPTEXT - SYSTEM PP TEXT.
          CETEXT    OVL       GLOBOLD   23/09/20. 82/02/26. 92/09/17. CETEXT - ENGINEERING SUPPORT TEXT.
          CTITEXT   OVL       GLOBOLD   86/08/21. PSR=871,PRD=CTI0,MFT=C,VAR=A
          NETTEXT   OVL       GLOBOLD   23/09/20. 
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 13.22.08.           PAGE     3
  
          RECORD    TYPE      FILE       DATE      COMMENT
  
          IOTEXT    OVL       GLOBOLD   97/11/04. 
          SYSGEN    PROC      GLOBOLD 
          PDU       PROC      GLOBOLD 
          TDU       PROC      GLOBOLD 
          ULIB      PROC      GLOBOLD 
          PANEL     ABS       GLOBOLD   97/11/05. PSR=871,PRD=NOSB,MFT=A,VAR=A
          UPSTRT    ABS       GLOBOLD   97/11/05.    PROGRAMOPT=2,ROUND= A/ S/ M/-D       ARG=UNSPEC
          PASCAL    ABS       GLOBOLD   97/11/04. PSR=871,PRD=PASC,MFT=A,VAR=A
          NETITF    ABS       GLOBOLD   97/11/05. BPSY
          NETPLM    ABS       GLOBOLD   97/11/05. BSY 
          NETFM     ABS       GLOBOLD   97/11/05. PSR=871,PRD=CHA1,MFT=B,VAR=A
          MNFMOVL   OVL       GLOBOLD   97/11/05. NETFM MAIN OVERLAY
          SORTOVL   OVL       GLOBOLD   97/11/05. NETFM SORT OVERLAY
          NETBDF    ABS       GLOBOLD   97/11/05. BPSY
          NETMDF    ABS       GLOBOLD   97/11/05. BPSY
          NETRDF    ABS       GLOBOLD   97/11/05. BPSY
          FCOPY     ABS       GLOBOLD   23/09/20. 84/07/09. 92/10/20. FCOPY - FILE COPY.
          NDLP      ABS       GLOBOLD   23/09/20. NDLP OVERLAY(0,0) 
          INITOVL   OVL       GLOBOLD   23/09/20. INITIALISATION(1,0) 
          PSS1OVL   OVL       GLOBOLD   23/09/20. PASS 1 OVERLAY (2,0)
          NCFOVLY   OVL       GLOBOLD   23/09/20. NCF OVERLAY(3,0)
          NETOVLY   OVL       GLOBOLD   23/09/20. NETWORK OVERLAY(3,1)
          COMOVLY   OVL       GLOBOLD   23/09/20. COMMUNICATION(3,2)
          NTRMOVL   OVL       GLOBOLD   23/09/20. NET TERM OVERLAY(3,3) 
          LCFOVLY   OVL       GLOBOLD   23/09/20. LCF OVERLAY(4,0)
          LISTOVL   OVL       GLOBOLD   23/09/20. LIST OVERLAY(5,0) 
          LFG       ABS       GLOBOLD   23/09/20.  LFG - NETWORK LOAD FILE GENERATOR
          NPA       PROC      GLOBOLD 
          MANCC     PROC      GLOBOLD 
          ANACD     PROC      GLOBOLD 
          TXTCRM    OVL       GLOBOLD   97/11/04. 
          SPPTEXT   OVL       GLOBOLD   97/11/04. PPU PROGRAM SYSTEM TEXT.
          FCLTEXT   OVL       GLOBOLD   97/11/05. PSR=871,PRD=FCL4,MFT=B,VAR=A
          FCL5TXT   OVL       GLOBOLD   97/11/05. PSR=871,PRD=FCL5,MFT=B,VAR=A
          PFMTEXT   OVL       GLOBOLD   97/11/04. PSR=871,PRD=TXIO,MFT=B,VAR=A
          CPCTEXT   OVL       GLOBOLD   97/11/04. SYSTEM TEXT FOR CPU PROGRAMS USING *CPC*. 
          CPUTEXT   OVL       GLOBOLD   97/11/04. SYSTEM TEXT FOR CPU PROGRAMS USING MACE I/O.
          IPTEXT    OVL       GLOBOLD   97/11/04. PSR=871,PRD=TEXT,MFT=B,VAR=A
          SCPTEXT   OVL       GLOBOLD   97/11/04. SYSTEM TEXT.
          MATHTXT   OVL       GLOBOLD   97/11/05. MACROS FOR MATH LIBRARY.
 REPLACED FTN5      ABS       GTLGO     24/05/02. FTN5 MAIN OVERLAY.
 REPLACED FTN510    OVL       GTLGO     24/05/02. FTN5 PRIMARY OVERLAY FOR QCG. 
 REPLACED FTN520    OVL       GTLGO     24/05/02. FTN5 PRIMARY OVERLAY FOR CCG. 
 REPLACED FTN521    OVL       GTLGO     24/05/02. FTN5 FRONT END OVERLAY FOR CCG. 
 REPLACED FTN522    OVL       GTLGO     24/05/02. COMMON CODE GENERATOR OVERLAY.
 REPLACED FTN523    OVL       GTLGO     24/05/02. FTN5 REAR END OVERLAY FOR CCG.
          COBOL5    ABS       GLOBOLD   97/11/06. PSR=871,PRD=COB5,MFT=B,VAR=A
          COB5010   OVL       GLOBOLD   97/11/06. 
          COB5020   OVL       GLOBOLD   97/11/06. 
          COB5021   OVL       GLOBOLD   97/11/06. 
          COB5022   OVL       GLOBOLD   97/11/06. 
          COB5023   OVL       GLOBOLD   97/11/06. 
          COB5050   OVL       GLOBOLD   97/11/06. 
          COB5060   OVL       GLOBOLD   97/11/06. 
          COB5070   OVL       GLOBOLD   97/11/06. 
1 
      RECORDS WRITTEN ON FILE GLOBTMP                       24/05/02. 13.22.08.           PAGE     4
  
          RECORD    TYPE      FILE       DATE      COMMENT
  
          COB5071   OVL       GLOBOLD   97/11/06. 
          COB5072   OVL       GLOBOLD   97/11/06. 
          COB5110   OVL       GLOBOLD   97/11/06. 
          COB5120   OVL       GLOBOLD   97/11/06. 
          COB5121   OVL       GLOBOLD   97/11/06. 
          COB5122   OVL       GLOBOLD   97/11/06. 
          COB5123   OVL       GLOBOLD   97/11/06. 
          COB5125   OVL       GLOBOLD   97/11/06. 
          COB5126   OVL       GLOBOLD   97/11/06. 
          COB5127   OVL       GLOBOLD   97/11/06. 
          COB5140   OVL       GLOBOLD   97/11/06. 
          COB5160   OVL       GLOBOLD   97/11/06. 
          COB5200   OVL       GLOBOLD   97/11/06. 
          COB5201   OVL       GLOBOLD   97/11/06. 
          COB5202   OVL       GLOBOLD   97/11/06. 
          COB5203   OVL       GLOBOLD   97/11/06. 
          COB5204   OVL       GLOBOLD   97/11/06. 
          COB5205   OVL       GLOBOLD   97/11/06. 
          COB5300   OVL       GLOBOLD   97/11/06. 
          COB5301   OVL       GLOBOLD   97/11/06. 
          FTN       ABS       GLOBOLD   97/11/05. PSR=871,PRD=FTI4,MFT=B,VAR=A
          FTN10     OVL       GLOBOLD   97/11/05. FTN4 TS COMPILER
          FTN20     OVL       GLOBOLD   97/11/05. FTN4 OPT COMPILER - BATCH CONTROLLER
          FTN23     OVL       GLOBOLD   97/11/05. FTN4 OPT COMPILER - ERROR MSG PROCESSING (PASS 1B)
          FTN21     OVL       GLOBOLD   97/11/05. FTN4 OPT COMPILER - PASS 1(NO DEBUG)
          FTN25     OVL       GLOBOLD   97/11/05. FTN4 OPT COMPILER - PASS 3(REF MAP/ASSEMBLY)
          FTN22     OVL       GLOBOLD   97/11/05. FTN4 OPT COMPILER - PASS 2 - RLIST OPTIMIZER
          FTN24     OVL       GLOBOLD   97/11/05. FTN4 OPT COMPILER - DEBUG PASS 1
          FILE      ABS       GLOBOLD   97/11/04. CRM FILE CONTROL CARD PROCESSOR 
 ADDED    GLOBLIB   OPLD      *****     24/05/02. 
          **EOF**             GLOBOLD 
  
1 AABD    M01 - CYBER 865.                        NOS 2.8.7 871/871.   24/05/02. 13.22.55.
  
  
 13.07.44.FTN5. 
 13.07.44.USER(INSTALL,,)       
 13.07.44.ABSC,  B. 
 13.07.44.CHARGE(*) 
 13.07.44. DEFAULT CHARGE NULL. 
 13.07.44.* 
 13.07.44.* 
 13.07.44.RENAME(ZZZPROC=INPUT) 
 13.07.44.BEGIN(SUBPROC,INSTALL,FTN5,,OUTPUT,FULL,NO,PRINT,NONE,, 
 13.07.45.JOBTYPE=NORM) 
 13.07.45.*   LEVEL 871 
 13.07.45.IFE( OT .EQ. TXO .AND. $NO$ .EQ. $YES$,RUNIA) 
 13.07.45.ENDIF(RUNIA)
 13.07.45.IFE( OT .NE. BCO .AND. $NO$ .NE. $YES$,SUBMIT)
 13.07.45.ENDIF(SUBMIT) 
 13.07.45.RETURN(USERCHG,USERCG,LGO,NEW,OLD,PFGFILE,IAESMD,GLOBLGO) 
 13.07.46.BEGIN(STARTUP,INSTALL,FTN5,,OUTPUT,NO,PRINT,NONE,) NULL PROC. 
 13.07.46.REVERT. 
 13.07.46.*START FTN5 
 13.07.46.*START UP TIME ***********************
 13.07.46.SET(EF=0) 
 13.07.46.SET(EFG=0)
 13.07.46.SETTL(*)
 13.07.46. TL = UNLIMITED.
 13.07.47.SETASL(*) 
 13.07.47. ASL = UNLIMITED, JSL = UNLIMITED.
 13.07.47.SETJSL(*) 
 13.07.47. ASL = UNLIMITED, JSL = UNLIMITED.
 13.07.47.RFL(55000)
 13.07.47.WRITER(OUTPUT)
 13.07.47.RETURN(ZZZJOB)
 13.07.47.BEGIN(ATTGLOB,INSTALL)
 13.07.47.*   LEVEL 871 
 13.07.47.* ATTGLOB - ATTACH GLOBLIB
 13.07.48.BEGIN(ACCESS,INSTALL,GLOBLIB) 
 13.07.48.REVERT(EX)CONVERT(MFT=R1G+) 
 13.07.48.CONVERT(MFT=R1G+) 
 13.07.49.    BEGIN(ACCGLOB,INSTALL,M=R)
 13.07.49.*************** A C C G L O B ********************
 13.07.49.  ATTACH(GLOBLIB=GLOBLIB) 
 13.07.49.RETURN(CONVERT) 
 13.07.49.REVERT. ACCGLOB **********************************
 13.07.50.LIBRARY,GLOBLIB.
 13.07.50.REVERT.          ATTGLOB
 13.07.50.MAP(FULL) 
 13.07.50.BEGIN(GETUSER,INSTALL,FTN5,)
 13.07.51.*************** G E T U S E R ********************
 13.07.51.REVERT. GETUSER **********************************
 13.07.51.RETURN(XMTPROC,XMTFILE) 
 13.07.51.NOTE(XMTPROC,NR)+.PROC,IAESMD.
 13.07.51.NOTE(XMTPROC,NR)+REWIND(IAESMD) 
 13.07.51.NOTE(XMTPROC,NR)+SKIPF(IAESMD)
 13.07.51.NOTE(XMTPROC,NR)+REVERT. IAESMD 
 13.07.51.NOTE(XMTPROC,NR)+EXIT. IAESMD 
 13.07.51.NOTE(XMTPROC,NR)+REVERT(ABORT) IAESMD 
 13.07.51.PACK(XMTPROC) 
 13.07.51. PACK COMPLETE. 
 13.07.51.BEGIN(FTN5,ZZZPROC) 
 13.07.52.*   LEVEL 871 
 13.07.52.BEGIN(PRDIN,INSTALL,PRDNAME=FTN5,PN=,PR=,DISK=0)
 13.07.52.*   LEVEL 871 
 13.07.52.* PRDIN - GET SOURCE PL FOR PRODUCT *FTN5*
 13.07.52.***************** P R D I N **********************
 13.07.52.RETURN(0,OLDPL) 
 13.07.53.SET(R1=0) 
 13.07.53.* 
 13.07.53.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 13.07.53.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 13.07.53.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 13.07.53.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 13.07.53.*  CDC'S DUMP TAPES.
 13.07.53.* 
 13.07.53.  ATTACH(FTN5=FTN5871/UN=0,PN=,R=,NA) 
 13.07.53. FTN5871 NOT FOUND. 
 13.07.53.  IF, FILE(FTN5, .NOT. AS) ,PRDIN20.
 13.07.53.    * ATTEMPT TO GET PL WITH CUSTOMER UN
 13.07.53.    RECLAIM(Z,UN=INSTALL,L=RL)/COPY,PF=FTN5871,NN=FTN5,UN=INSTALL.
 13.07.53. RECLAIM: COPY,PF=FTN5871,NN=FTN5,UN=INSTALL. 
 13.07.53. NO DATA FOUND FOR USER NAME. 
 13.07.53.     NO FILES PROCESSED.
 13.07.53. RECLAIM COMPLETE.
 13.07.53.      IF, FILE(FTN5, .NOT. AS), PRDIN22.
 13.07.53.      * ATTEMPT TO GET PL WITH CDC UN 
 13.07.53.      RECLAIM(Z,UN=INSTALL,L=RL)/COPY,PF=FTN5871,NN=FTN5,UN=NS2871. 
 13.07.53. RECLAIM: COPY,PF=FTN5871,NN=FTN5,UN=NS2871.
 13.07.54. NT053 ASSIGNED TO TAPE, VSN=BC004R.
 13.08.59.      1 FILES PROCESSED.
 13.08.59. RECLAIM COMPLETE.
 13.08.59.        IF, FILE(FTN5, .NOT. AS) ,PRDIN25.
 13.08.59.        ENDIF(PRDIN25)
 13.09.00.      ENDIF(PRDIN22)
 13.09.00.      SET(R1=1) 
 13.09.00.  ENDIF(PRDIN20)
 13.09.00.REWIND(FTN5)
 13.09.00.IF, ( $NO$ .EQ. $YES$ ) .AND. 
 13.09.00.    ( R1        .EQ. 1     ) ,PRDIN30.
 13.09.00.ENDIF(PRDIN30)
 13.09.00.    COPY(FTN5,OLDPL)
 13.09.04. EOI ENCOUNTERED. 
 13.09.04. EOI. 0 FILES; 142 RECORDS; 399422 WORDS. 
 13.09.04.REWIND(FTN5)
 13.09.04.RETURN(RL)
 13.09.04.REVERT. PRDIN ************************************
 13.09.05.BEGIN(COMPCOM,INSTALL)
 13.09.05.* COMPCOM - GET COMPASS COMMON DECKS AS AUXPL 
 13.09.05.*   LEVEL 871 
 13.09.05.* 
 13.09.05.BEGIN(PRDAUX,INSTALL,PRDNAME=CPS1,PNO=,PRO=)
 13.09.06.*   LEVEL 871 
 13.09.06.* PRDAUX - GET AUXILIARY SOURCE PL
 13.09.06.*************** P R D A U X **********************
 13.09.06.RETURN(AUXPL) 
 13.09.06.* 
 13.09.06.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 13.09.06.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 13.09.06.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 13.09.06.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 13.09.06.*  CDC'S DUMP TAPES.
 13.09.06.* 
 13.09.06.  ATTACH(CPS1=CPS1871/UN=0,PN=,R=,NA) 
 13.09.06. CPS1871 NOT FOUND. 
 13.09.06.  IF, FILE(CPS1, .NOT. AS) ,PRDAUX20. 
 13.09.06.    * ATTEMPT TO GET AUX PL BUILT BY CUSTOMER 
 13.09.06.    RECLAIM(Z,UN=INSTALL,L=R)/COPY,PF=CPS1871,NN=CPS1,UN=INSTALL. 
 13.09.06. RECLAIM: COPY,PF=CPS1871,NN=CPS1,UN=INSTALL. 
 13.09.06. NO DATA FOUND FOR USER NAME. 
 13.09.06.     NO FILES PROCESSED.
 13.09.06. RECLAIM COMPLETE.
 13.09.06.    IF, FILE(CPS1, .NOT. AS), PRDAUX22. 
 13.09.07.      * ATTEMPT TO GET CDC RELEASED PL
 13.09.07.      RECLAIM(Z,UN=INSTALL,L=RL)/COPY,PF=CPS1871,NN=CPS1,UN=NS2871. 
 13.09.07. RECLAIM: COPY,PF=CPS1871,NN=CPS1,UN=NS2871.
 13.09.08. NT052 ASSIGNED TO TAPE, VSN=BC004Q.
 13.10.56.      1 FILES PROCESSED.
 13.10.56. RECLAIM COMPLETE.
 13.10.56.      IF, FILE(CPS1, .NOT. AS), PRDAUX23. 
 13.10.56.      ENDIF(PRDAUX23) 
 13.10.56.    ENDIF(PRDAUX22) 
 13.10.57.  ENDIF(PRDAUX20) 
 13.10.57.REWIND(CPS1)
 13.10.57.RENAME(AUXPL=CPS1)
 13.10.57.RETURN(RL)
 13.10.57.REVERT. PRDAUX ***********************************
 13.10.57.RENAME(COMCPL=AUXPL)
 13.10.57.NOTE(COM)+*C COMCARG.COMPCOM
 13.10.57.UPDATE(P=COMCPL,Q,I=COM,C=0,N=AUXPL)
 13.11.00. UPDATE COMPLETE. 
 13.11.00.RETURN(COMCPL,COM)
 13.11.00.REVERT.  COMPCOM. 
 13.11.00.RENAME(AUXPL1=AUXPL)
 13.11.01.BEGIN(PRDAUX,INSTALL,PRDNAME=CCG1,PNO=,PRO=)
 13.11.01.*   LEVEL 871 
 13.11.01.* PRDAUX - GET AUXILIARY SOURCE PL
 13.11.01.*************** P R D A U X **********************
 13.11.01.RETURN(AUXPL) 
 13.11.01.* 
 13.11.01.*  NOTE THAT IT FIRST TRIES TO FIND THE PL FROM 
 13.11.01.*  THIS USER NUMBER, THEN IF NOT FOUND, TRIES TO
 13.11.01.*  RECLAIM IT FROM TAPE BUILT BY THE CUSTOMER; IF 
 13.11.01.*  STILL NOT FOUND, WILL TRY TO RECLAIM IT FROM 
 13.11.01.*  CDC'S DUMP TAPES.
 13.11.01.* 
 13.11.01.  ATTACH(CCG1=CCG1871/UN=0,PN=,R=,NA) 
 13.11.02.  IF, FILE(CCG1, .NOT. AS) ,PRDAUX20. 
 13.11.02.  ENDIF(PRDAUX20) 
 13.11.02.REWIND(CCG1)
 13.11.02.RENAME(AUXPL=CCG1)
 13.11.02.RETURN(RL)
 13.11.02.REVERT. PRDAUX ***********************************
 13.11.03.BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,PC=NO,CC=YES,PCDECK=FC5,NUMAUX=2) 
 13.11.03.*   LEVEL 871 
 13.11.03.* UP - UPDATE 'UPDATE' FORMATED PRODUCT PL'S. 
 13.11.03.***************** U P ****************************
 13.11.03.BEGIN(GETPC,INSTALL,PCDECK=FC5,PCPL=CPRD,PC=NO,CC=YES)
 13.11.03.*   LEVEL 871 
 13.11.03.* GETPC - GET PC AND CC TYPE CODE FROM CPRD.
 13.11.03.***************** G E T P C **********************
 13.11.03.RETURN(MODS,CMODS,CODEPL) 
 13.11.04.IFE($CPRD$.EQ.$CPRD$.OR.$CPRD$.EQ.$CNSP$,L00000)
 13.11.04.ATTACH(CODEPL/NA) 
 13.11.04.ELSE(L00000)
 13.11.04.ENDIF(L00000) 
 13.11.04.IF, FILE(CODEPL,AS) ,GETPC1.
 13.11.04.IFE($YES$.EQ.$YES$,L00001)
 13.11.04.  NOTE(IN);/C,CFC5
 13.11.04.  UPDATE(P=CODEPL,Q,D,8,*=/,K=CMODS,I=IN) 
 13.11.04. UPDATE COMPLETE. 
 13.11.05.  IFE(FILE(CMODS,AS),L00001)
 13.11.05.ENDIF(L00001) 
 13.11.05.IFE($NO$.EQ.$YES$,L00003) 
 13.11.05.ENDIF(L00003) 
 13.11.05.UNLOAD(CODEPL)
 13.11.05.ENDIF(GETPC1) 
 13.11.05.REVERT. GETPC ************************************
 13.11.05.IFE(FILE(MODS,AS),L00003) 
 13.11.06.ELSE(L00003)
 13.11.06.  PACK(USER)
 13.11.06. PACK COMPLETE. 
 13.11.06.IFE(FILE(MODS,AS),L00005) 
 13.11.06.  ELSE(L00005)
 13.11.06.    RENAME(NEWPL=OLDPL) 
 13.11.06.  ENDIF(L00005) 
 13.11.06.  IFE(2.EQ.0,L00006)
 13.11.06.  ELSE(L00006)
 13.11.06.  IFE(2.EQ.1,L00006)
 13.11.06.  ELSE(L00006)
 13.11.06.  IFE(2.EQ.2,L00006)
 13.11.07.    UPDATE(P=NEWPL/AUXPL1/AUXPL,F,I=USER,N=NEWER) 
 13.11.47. UPDATE COMPLETE. 
 13.11.47.  ELSE(L00006)
 13.11.47.  ENDIF(L00006) 
 13.11.47.ENDIF(L00003) 
 13.11.47.* 
 13.11.47.RETURN(OLDPL,MODS)
 13.11.48.REVERT. UP ***************************************
 13.11.48.RENAME(RANDPL=NEWER)
 13.11.48.NOTE(IN);*C CMPLTXT.WEOR2*,CGTM,MIO.BDT,CFA.UDT 
 13.11.48.UPDATE(Q,C=CGII,P=AUXPL/RANDPL/AUXPL1,I=IN) 
 13.12.07. UPDATE COMPLETE. 
 13.12.07.RETURN(RANDPL,AUXPL,AUXPL1) 
 13.12.07.COMPASS(A,I=CGII,S=IPTEXT,B=CTX,L=OUTPUT) 
 13.12.10. ASSEMBLY COMPLETE.   45500B  CM USED.
 13.12.10.    2.825  CPU SECONDS  ASSEMBLY TIME.
 13.12.10.COMPASS(A,I=CGII,S=IPTEXT,B=GTX,L=OUTPUT) 
 13.12.18. ASSEMBLY COMPLETE.   53000B  CM USED.
 13.12.18.    6.716  CPU SECONDS  ASSEMBLY TIME.
 13.12.18.COMPASS(A,I=CGII,S=CPUTEXT,G=GTX,B=REL,L=OUTPUT)
 13.13.23. ASSEMBLY COMPLETE.   62300B  CM USED.
 13.13.23.   57.615  CPU SECONDS  ASSEMBLY TIME.
 13.13.23.RETURN(CGII,GTX)
 13.13.23.COMPASS(A,I,S=CPUTEXT,S=IPTEXT,   B=FTX,L=OUTPUT)   FTN5TXT - WEOR1*
 13.13.37. ASSEMBLY COMPLETE.   65400B  CM USED.
 13.13.37.   12.332  CPU SECONDS  ASSEMBLY TIME.
 13.13.37.COMPASS(A,I,S=PSSTEXT,S=CPUTEXT,G=FTX,B=REL,L=OUTPUT) FTN    -WEOR2*
 13.18.38. ASSEMBLY COMPLETE.  106600B  CM USED.
 13.18.38.  276.398  CPU SECONDS  ASSEMBLY TIME.
 13.18.38.COMPASS(A,I,S=CPUTEXT,G=CTX,G=FTX,B=REL,L=OUTPUT)   REC     - WEOR3*
 13.19.07. ASSEMBLY COMPLETE.   72000B  CM USED.
 13.19.07.   26.804  CPU SECONDS  ASSEMBLY TIME.
 13.19.08.COMPASS(A,I,S=CPUTEXT,G=FTX,G=CTX,B=REL,L=OUTPUT)   CCGC    - WEOR4*
 13.20.04.UCMS,   1048.576KUNS. 
 13.20.50. ASSEMBLY COMPLETE.  101100B  CM USED.
 13.20.50.   93.676  CPU SECONDS  ASSEMBLY TIME.
 13.20.50.COMPASS(A,I,S=CPUTEXT,G=FTX,      B=FRAME,L=OUTPUT) OVL00   - WEOR5*
 13.20.59. ASSEMBLY COMPLETE.   63600B  CM USED.
 13.20.59.    7.562  CPU SECONDS  ASSEMBLY TIME.
 13.20.59.RETURN(COMPILE,CTX,FTX) 
 13.20.59.REWIND(FRAME) 
 13.20.59.COPYLM(FRAME, REL, OVR,, R) 
 13.21.00. UPDATED -- REL   / FTN 
 13.21.00. UPDATED -- REL   / UTILITY 
 13.21.00. UPDATED -- REL   / PUC 
 13.21.00. UPDATED -- REL   / QCGLINK 
 13.21.00. UPDATED -- REL   / FEC 
 13.21.00. UPDATED -- REL   / FERRS 
 13.21.00. UPDATED -- REL   / PEM 
 13.21.00. UPDATED -- REL   / ALLOC 
 13.21.00. UPDATED -- REL   / LEX 
 13.21.01. UPDATED -- REL   / HEADER
 13.21.01. UPDATED -- REL   / KEY 
 13.21.01. UPDATED -- REL   / CDDIR 
 13.21.01. UPDATED -- REL   / DATA
 13.21.01. UPDATED -- REL   / DECL
 13.21.01. UPDATED -- REL   / TYPE
 13.21.01. UPDATED -- REL   / FMT 
 13.21.01. UPDATED -- REL   / IO
 13.21.01. UPDATED -- REL   / PAR 
 13.21.01. UPDATED -- REL   / CONRED
 13.21.01. UPDATED -- REL   / STMTF 
 13.21.01. UPDATED -- REL   / LABEL 
 13.21.01. UPDATED -- REL   / QCGC
 13.21.01. UPDATED -- REL   / QSKEL 
 13.21.01. UPDATED -- REL   / FUN 
 13.21.01. UPDATED -- REL   / REG 
 13.21.01. UPDATED -- REL   / GEN 
 13.21.01. UPDATED -- REL   / REC 
 13.21.01. UPDATED -- REL   / FAS 
 13.21.01. UPDATED -- REL   / ZEROLNK 
 13.21.01. UPDATED -- REL   / INIT00
 13.21.01. UPDATED -- REL   / UTILITY 
 13.21.01. UPDATED -- REL   / LISTLNK 
 13.21.01. UPDATED -- REL   / PUC 
 13.21.01. UPDATED -- REL   / QCGLINK 
 13.21.01. UPDATED -- REL   / FEC 
 13.21.02. UPDATED -- REL   / FERRS 
 13.21.02. UPDATED -- REL   / PEM 
 13.21.02. UPDATED -- REL   / ALLOC 
 13.21.02. UPDATED -- REL   / LEX 
 13.21.02. UPDATED -- REL   / HEADER
 13.21.02. UPDATED -- REL   / KEY 
 13.21.02. UPDATED -- REL   / CDDIR 
 13.21.02. UPDATED -- REL   / DATA
 13.21.02. UPDATED -- REL   / DECL
 13.21.02. UPDATED -- REL   / TYPE
 13.21.02. UPDATED -- REL   / FMT 
 13.21.02. UPDATED -- REL   / IO
 13.21.02. UPDATED -- REL   / PAR 
 13.21.02. UPDATED -- REL   / CONRED
 13.21.02. UPDATED -- REL   / STMTF 
 13.21.02. UPDATED -- REL   / LABEL 
 13.21.02. UPDATED -- REL   / QCGC
 13.21.02. UPDATED -- REL   / QSKEL 
 13.21.02. UPDATED -- REL   / FUN 
 13.21.02. UPDATED -- REL   / REG 
 13.21.02. UPDATED -- REL   / GEN 
 13.21.02. UPDATED -- REL   / REC 
 13.21.02. UPDATED -- REL   / FAS 
 13.21.02. UPDATED -- REL   / MAP 
 13.21.02. UPDATED -- REL   / LIST
 13.21.02. UPDATED -- REL   / INIT10
 13.21.03. UPDATED -- REL   / UTILITY 
 13.21.03. UPDATED -- REL   / LISTLNK 
 13.21.03. UPDATED -- REL   / PUC 
 13.21.03. UPDATED -- REL   / CCGLINK 
 13.21.03. UPDATED -- REL   / INIT20
 13.21.03. UPDATED -- REL   / FEC 
 13.21.03. UPDATED -- REL   / FERRS 
 13.21.03. UPDATED -- REL   / PEM 
 13.21.03. UPDATED -- REL   / ALLOC 
 13.21.03. UPDATED -- REL   / FLINK 
 13.21.03. UPDATED -- REL   / LEX 
 13.21.03. UPDATED -- REL   / HEADER
 13.21.03. UPDATED -- REL   / KEY 
 13.21.03. UPDATED -- REL   / CDDIR 
 13.21.03. UPDATED -- REL   / DATA
 13.21.03. UPDATED -- REL   / DECL
 13.21.03. UPDATED -- REL   / TYPE
 13.21.03. UPDATED -- REL   / FMT 
 13.21.03. UPDATED -- REL   / IO
 13.21.03. UPDATED -- REL   / PAR 
 13.21.03. UPDATED -- REL   / CONRED
 13.21.03. UPDATED -- REL   / STMTF 
 13.21.03. UPDATED -- REL   / LABEL 
 13.21.03. UPDATED -- REL   / FSKEL 
 13.21.03. UPDATED -- REL   / INIT21
 13.21.03. UPDATED -- REL   / CCGC
 13.21.03. UPDATED -- REL   / CGTM
 13.21.03. UPDATED -- REL   / MIO 
 13.21.04. UPDATED -- REL   / FBV 
 13.21.04. UPDATED -- REL   / GPO 
 13.21.04. UPDATED -- REL   / GRA 
 13.21.04. UPDATED -- REL   / PROSEQ
 13.21.04. UPDATED -- REL   / SQZ 
 13.21.04. UPDATED -- REL   / MCG 
 13.21.04. UPDATED -- REL   / BDT 
 13.21.04. UPDATED -- REL   / BRIDGE
 13.21.04. UPDATED -- REL   / CFA 
 13.21.04. UPDATED -- REL   / UDT 
 13.21.04. UPDATED -- REL   / CSKEL 
 13.21.04. UPDATED -- REL   / INIT22
 13.21.04. UPDATED -- REL   / REC 
 13.21.04. UPDATED -- REL   / RLINK 
 13.21.04. UPDATED -- REL   / RERRS 
 13.21.04. UPDATED -- REL   / PEM 
 13.21.04. UPDATED -- REL   / ALLOC 
 13.21.04. UPDATED -- REL   / FAS 
 13.21.04. UPDATED -- REL   / MAP 
 13.21.04. UPDATED -- REL   / LIST
 13.21.04. UPDATED -- REL   / INIT23
 13.21.04. COPYL COMPLETE.
 13.21.05.BEGIN(GETULIB,INSTALL,SYSLIB) 
 13.21.05.BEGIN(ACCESS,INSTALL,PRODUCT) 
 13.21.06.REVERT(EX)CONVERT(MFT=R1G+) 
 13.21.06.CONVERT(MFT=R1G+) 
 13.21.06.    BEGIN(ACCPROD,INSTALL,M=R)
 13.21.07.*************** A C C P R O D ********************
 13.21.07.  ATTACH(PRODUCT=PRODUCT) 
 13.21.07.RETURN(CONVERT) 
 13.21.07.REVERT. ACCPROD **********************************
 13.21.07.RETURN(SYSLIB,UUUNF,UUUNF,UUUNF,UUUNF,UUUNF)
 13.21.07.GTR(PRODUCT,SYSLIB,U)ULIB/SYSLIB
 13.21.09. EDITING COMPLETE.
 13.21.09.IFE($UUUNF$.NE.$UUUNF$,GET) 
 13.21.09.ENDIF(GET)
 13.21.09.UNLOAD(PRODUCT) 
 13.21.10.REVERT.          GETULIB. 
 13.21.10.LDSET(ERR=ALL,PRESET=ZERO)
 13.21.10.LDSET(PRESETA=NGINDEF)
 13.21.10.LOAD(OVR) 
 13.21.20.NOGO(LGO) 
 13.21.21.BEGIN(PRDOUT,INSTALL,PRDNAME=FTN5,PNO=,PRO=)
 13.21.21.*   LEVEL 871 
 13.21.21.* PRDOUT - WRITE OUTPUT PL FOR PRODUCT *FTN5* 
 13.21.21.*************** P R D O U T **********************
 13.21.21.REVERT.*PRDOUT - NO OUTPUT SOURCE FILE WRITTEN. 
 13.21.21.RETURN(LIB) 
 13.21.22.REWIND(LGO) 
 13.21.22.COPYEI(LGO,GLOBLGO) 
 13.21.23. EOI ENCOUNTERED. 
 13.21.23. EOI. 0 FILES; 6 RECORDS; 85357 WORDS.
 13.21.23.BEGIN(GENDIR,INSTALL,LIB=28)
 13.21.23.BEGIN(GENDIR2,INSTALL,LGO=LGO,DIR=$*ADD LIB28,$)
 13.21.23.RETURN(ZZZZDIR) 
 13.21.24.REWIND(LGO) 
 13.21.24.GET(GDIR/NA)
 13.21.24.IF, FILE(GDIR, .NOT. AS) ,GENDIR1.
 13.21.24.ENDIF(GENDIR1)
 13.21.24.GDIR(LGO,OP=DIR,L=ZZZZDIR)
 13.21.25.ABS/FTN5-OVL/FTN523 
 13.21.25. GDIR COMPLETE. 
 13.21.25.EDIT(ZZZZDIR,I=ZZZZZIN,L=0) 
 13.21.25.SKIPEI(DSTDIR)
 13.21.25.COPYEI(ZZZZDIR,DSTDIR)
 13.21.25. EOI ENCOUNTERED. 
 13.21.25. EOI. 0 FILES; 1 RECORD; 4 WORDS. 
 13.21.25.RETURN(EXCAT,ZZZZZIN,ZZZZDIR) 
 13.21.26.REVERT. GENDIR2(LGO,*ADD LIB28,)
 13.21.26.BEGIN(SAVELGO,INSTALL,PRDNAME=FTN5) 
 13.21.26.RETURN(IAESMD,ZZZZDIR,ZZZULIB)
 13.21.26.  GTR(LGO,ZZZULIB)ULIB/*
 13.21.27. EDITING COMPLETE.
 13.21.27.  IF, FILE(ZZZULIB, AS) ,SAVELGO1.
 13.21.27.  ENDIF(SAVELGO1) 
 13.21.27.  NOTE(ZZZZDIR,NR)+FTN5 
 13.21.27.  REWIND(DSTDIR)
 13.21.27.  COPYEI(DSTDIR,ZZZZDIR)
 13.21.28. EOI ENCOUNTERED. 
 13.21.28. EOI. 0 FILES; 1 RECORD; 4 WORDS. 
 13.21.28.  PACK(ZZZZDIR) 
 13.21.28. PACK COMPLETE. 
 13.21.28.  BEGIN(UPXMT,INSTALL,LFN=LGO,PROC=UPPROD,PARAM=) 
 13.21.28.REWIND(LGO) 
 13.21.28.COPYBF(LGO,XMTFILE) 
 13.21.30. EOI ENCOUNTERED. 
 13.21.30. EOI. 1 FILE; 6 RECORDS; 85357 WORDS. 
 13.21.30.EDIT(XMTPROC,I=ZZZZZIN,L=L) 
 13.21.30.RETURN(ZZZZZIN) 
 13.21.30.REVERT. UPXMT 
 13.21.30.  BEGIN(UPXMT,INSTALL,LFN=ZZZZDIR,PROC=UPDIR,PARAM=$,PRDNAME=FTN5$) 
 13.21.31.REWIND(ZZZZDIR) 
 13.21.31.COPYBF(ZZZZDIR,XMTFILE) 
 13.21.31. EOI ENCOUNTERED. 
 13.21.31. EOI. 1 FILE; 1 RECORD; 5 WORDS.
 13.21.31.EDIT(XMTPROC,I=ZZZZZIN,L=L) 
 13.21.31.RETURN(ZZZZZIN) 
 13.21.31.REVERT. UPXMT 
 13.21.31.REWIND(XMTFILE,XMTPROC) 
 13.21.31.COPYBF(XMTPROC,IAESMD)
 13.21.32. EOI ENCOUNTERED. 
 13.21.32. EOI. 1 FILE; 1 RECORD; 20 WORDS. 
 13.21.32.COPYEI(XMTFILE,IAESMD)
 13.21.33. EOI ENCOUNTERED. 
 13.21.33. EOI. 2 FILES; 9 RECORDS; 85362 WORDS.
 13.21.33.RETURN(ZZZULIB,XMTPROC,XMTFILE,DSTDIR,ZZZZDIR)
 13.21.33.REVERT.******* SAVELGO
 13.21.33.BEGIN(END,INSTALL,MFT=R1G+) 
 13.21.34.SET(R3=R1G) 
 13.21.34.SET(R1G=0)
 13.21.34.BEGIN(STARTIT,INSTALL)
 13.21.34.RETURN(BLDLIBS) 
 13.21.34.NOTE(BLDLIBS,NR)+START+.PROC,BLDLIB*I.
 13.21.34.NOTE(BLDLIBS,NR)+END+REVERT.BLDLIB+EXIT.BLDLIB+REVERT(ABORT)BLDLIB
 13.21.34.REWIND(BLDLIBS) 
 13.21.34.RETURN(DMPDIR,DSTDIR,OPLDIR,PFGDIR,BASEDST,DCNDIR)
 13.21.35.REVERT. STARTIT 
 13.21.35.BEGIN(ACCESS,INSTALL,PRODUCT,M=W) 
 13.21.35.REVERT(EX)CONVERT(MFT=R1G+) 
 13.21.36.CONVERT(MFT=R1G+) 
 13.21.36.    BEGIN(ACCPROD,INSTALL,M=W)
 13.21.36.*************** A C C P R O D ********************
 13.21.36.  ATTACH(PRODLOC=PRODLOC/M=W,WB)
 13.21.37.  PURGE(PRODTMP/NA) 
 13.21.37. PRODTMP NOT FOUND. 
 13.21.37.  RETURN(PRODTMP) 
 13.21.37.  DEFINE(PRODTMP=PRODTMP/M=R,CT=S)
 13.21.37.  ATTACH(PRODOLD=PRODUCT) 
 13.21.37.RETURN(CONVERT) 
 13.21.37.REVERT. ACCPROD **********************************
 13.21.38.BEGIN(,IAESMD)
 13.21.38.REWIND(IAESMD)
 13.21.38.SKIPF(IAESMD) 
 13.21.38.BEGIN(UPPROD,INSTALL) 
 13.21.38.  COPYBF(IAESMD,TPROD)
 13.21.39. COPY COMPLETE. 
 13.21.39. END. 1 FILE; 6 RECORDS; 85357 WORDS. 
 13.21.39.  BKSP(TPROD) 
 13.21.40.REVERT. UPPROD
 13.21.40.BEGIN(UPDIR,INSTALL,PRDNAME=FTN5) 
 13.21.40.RETURN(ZZZTEMP) 
 13.21.40.COPYBF(IAESMD,ZZDIR)
 13.21.40. COPY COMPLETE. 
 13.21.40. END. 1 FILE; 1 RECORD; 5 WORDS.
 13.21.40.LIBEDIT(P=TDIR,B=ZZDIR,LO=E,N=ZZZTEMP,I=0)
 13.21.40. EDITING COMPLETE.
 13.21.41.RENAME(TDIR=ZZZTEMP)
 13.21.41.RETURN(ZZDIR) 
 13.21.41.REVERT. UPDIR (FTN5)
 13.21.41.REVERT. IAESMD
 13.21.41.MODIFY(P=0,C=BLDLIB,Z,F,LO=E)/*CREATE,BLDLIBS/*NOSEQ
 13.21.41. MODIFICATION COMPLETE. 
 13.21.42.BLDLIB. 
 13.21.42.REVERT.BLDLIB 
 13.21.42.IF, FILE(TPROD, AS) ,END1.
 13.21.42.* UPDATE PRODUCT AND DIRFILE
 13.21.42.  LIBEDIT(P=PRODOLD,B=TPROD,I=0,N=PRODTMP)
 13.21.54. EDITING COMPLETE.
 13.21.54.  BEGIN(ACCESS,INSTALL,PRODUCT,M=RETURN)
 13.21.54.REVERT(EX)CONVERT(MFT=R1G+) 
 13.21.55.CONVERT(MFT=R1G+) 
 13.21.55.    BEGIN(ACCPROD,INSTALL,M=RETURN) 
 13.21.56.*************** A C C P R O D ********************
 13.21.56.  PURGE(PRODOLD/NA) 
 13.21.56. PRODOLD NOT FOUND. 
 13.21.56.  RETURN(PRODTMP,PRODOLD) 
 13.21.56.  CHANGE(PRODOLD=PRODUCT,PRODUCT=PRODTMP) 
 13.21.56.  BEGIN(PERMIT,INSTALL,REALFN=PRODUCT,SYMFN=PRODUCT)
 13.21.57.*   LEVEL 871 
 13.21.57.*************** P E R M I T **********************
 13.21.57.  PERMIT(PRODUCT,NETADMN=R) 
 13.21.57.REVERT.  PERMIT **********************************
 13.21.57.  PURGE(PRODOLD/NA) 
 13.21.57.  RETURN(PRODLOC) 
 13.21.57.RETURN(CONVERT) 
 13.21.58.REVERT. ACCPROD **********************************
 13.21.58.  BEGIN(ACCESS,INSTALL,DIRFILE,M=W) 
 13.21.59.REVERT(EX)CONVERT(MFT=R1G+) 
 13.21.59.CONVERT(MFT=R1G+) 
 13.21.59.    BEGIN(ACCDIRF,INSTALL,M=W)
 13.22.00.*************** A C C D I R F ********************
 13.22.00.  ATTACH(DIRFLOC=DIRFLOC/M=W,WB)
 13.22.00.  PURGE(DIRFTMP/NA) 
 13.22.00. DIRFTMP NOT FOUND. 
 13.22.00.  RETURN(DIRFTMP) 
 13.22.00.  DEFINE(DIRFTMP=DIRFTMP/M=R) 
 13.22.00.  ATTACH(DIRFOLD=DIRFILE) 
 13.22.00.RETURN(CONVERT) 
 13.22.00.REVERT. ACCDIRF **********************************
 13.22.01.  LIBEDIT(P=DIRFOLD,B=TDIR,I=0,N=DIRFTMP) 
 13.22.01. EDITING COMPLETE.
 13.22.01.  BEGIN(ACCESS,INSTALL,DIRFILE,M=RETURN)
 13.22.02.REVERT(EX)CONVERT(MFT=R1G+) 
 13.22.02.CONVERT(MFT=R1G+) 
 13.22.02.    BEGIN(ACCDIRF,INSTALL,M=RETURN) 
 13.22.03.*************** A C C D I R F ********************
 13.22.03.  PURGE(DIRFOLD/NA) 
 13.22.03. DIRFOLD NOT FOUND. 
 13.22.03.  RETURN(DIRFTMP,DIRFOLD) 
 13.22.03.  CHANGE(DIRFOLD=DIRFILE,DIRFILE=DIRFTMP) 
 13.22.03.  PURGE(DIRFOLD/NA) 
 13.22.03.  RETURN(DIRFLOC) 
 13.22.03.RETURN(CONVERT) 
 13.22.03.REVERT. ACCDIRF **********************************
 13.22.04.  RETURN(TPROD,TDIR)
 13.22.04.ELSE(END1)
 13.22.04.ENDIF(END1) 
 13.22.04.IF, FILE(GLOBLGO,AS) ,END2. 
 13.22.04.* UPDATE GLOBLIB
 13.22.04.  RETURN(GTLGO) 
 13.22.04.  GTR(GLOBLGO,GTLGO)ABS/*,REL/*,OVL/*,PROC/*
 13.22.06. EDITING COMPLETE.
 13.22.06.  BEGIN(ACCESS,INSTALL,GLOBLIB,M=W) 
 13.22.06.REVERT(EX)CONVERT(MFT=R1G+) 
 13.22.07.CONVERT(MFT=R1G+) 
 13.22.07.    BEGIN(ACCGLOB,INSTALL,M=W)
 13.22.07.*************** A C C G L O B ********************
 13.22.07.  ATTACH(GLOBLOC=GLOBLOC/M=W,WB)
 13.22.07.  PURGE(GLOBTMP/NA) 
 13.22.08. GLOBTMP NOT FOUND. 
 13.22.08.  RETURN(GLOBTMP) 
 13.22.08.  DEFINE(GLOBTMP=GLOBTMP/M=R,CT=S)
 13.22.08.  ATTACH(GLOBOLD=GLOBLIB) 
 13.22.08.RETURN(CONVERT) 
 13.22.08.REVERT. ACCGLOB **********************************
 13.22.08.  LIBEDIT(P=GLOBOLD,B=GTLGO,U,N=GLOBTMP,Z)+*BUILD,GLOBLIB 
 13.22.19. EDITING COMPLETE.
 13.22.38. LIBRARY GENERATION COMPLETE. 
 13.22.38.  BEGIN(ACCESS,INSTALL,GLOBLIB,M=RETURN)
 13.22.39.REVERT(EX)CONVERT(MFT=R1G+) 
 13.22.39.CONVERT(MFT=R1G+) 
 13.22.40.    BEGIN(ACCGLOB,INSTALL,M=RETURN) 
 13.22.40.*************** A C C G L O B ********************
 13.22.40.  PURGE(GLOBOLD/NA) 
 13.22.40. GLOBOLD NOT FOUND. 
 13.22.40.  RETURN(GLOBTMP,GLOBOLD) 
 13.22.40.  CHANGE(GLOBOLD=GLOBLIB,GLOBLIB=GLOBTMP) 
 13.22.40.  BEGIN(PERMIT,INSTALL,REALFN=GLOBLIB,SYMFN=GLOBLIB)
 13.22.40.*   LEVEL 871 
 13.22.40.*************** P E R M I T **********************
 13.22.41.  PERMIT(GLOBLIB,NETADMN=R,SYSTEMX=R) 
 13.22.41.REVERT.  PERMIT **********************************
 13.22.41.  PURGE(GLOBOLD/NA) 
 13.22.41.  RETURN(GLOBLOC) 
 13.22.41.RETURN(CONVERT) 
 13.22.41.REVERT. ACCGLOB **********************************
 13.22.42.  RETURN(NEW,GTLGO) 
 13.22.42.ELSE(END2)
 13.22.42.ENDIF(END2) 
 13.22.42.SET(R1G=R3) 
 13.22.42.REVERT. END 
 13.22.42.REVERT.  FTN5.
 13.22.43.RETURN(FTN5,ZZZPROC,ZZZJOB,JSTATUS) 
 13.22.43.BEGIN(JOBPASS,INSTALL,FTN5,,OUTPUT,PRINT,NONE)
 13.22.43.IFE,$FTN5$.NE.$$.AND.$PRINT$.EQ.$WAIT$,L00001.
 13.22.43.ENDIF,L00001. 
 13.22.43.IFE,$OUTPUT$.EQ.$0$.OR.$FTN5$.EQ.$$.OR.$NONE$.EQ.$NONE$,L00002. 
 13.22.44.  REVERT.        JOBPASS.  NO FTN5L FILE ROUTED.
 13.22.44.NOTE(JSTATUS,NR);FTN5;      ; 
 13.22.44.SKIP(EXIT)
 13.22.44.ENDIF(EXIT) 
 13.22.44.*END   UP TIME ***********************
 13.22.44.IF, ( R1G .EQ. 0 ) ,SUBPROC1. 
 13.22.44.BEGIN(JOBEND,INSTALL,FTN5,) 
 13.22.45.*   LEVEL 871 
 13.22.45.*************** J O B E N D **********************
 13.22.45.NOTE(JOBZZZZ,NR)+FTN5 
 13.22.45.DAYFILE(JOBZZZZ,FR=$*START FTN5$) 
 13.22.45. USER DAYFILE PROCESSED.
 13.22.45.PACK(JOBZZZZ) 
 13.22.45. PACK COMPLETE. 
 13.22.45.BEGIN(ACCESS,INSTALL,DAYFILS,M=W) 
 13.22.46.REVERT(EX)CONVERT(MFT=R1G+) 
 13.22.46.CONVERT(MFT=R1G+) 
 13.22.46.    BEGIN(ACCDAYF,INSTALL,M=W)
 13.22.47.*************** A C C D A Y F ********************
 13.22.47.  ATTACH(DAYFLOC=DAYFLOC/M=W,NA)
 13.22.47.  IF, FILE(DAYFLOC, .NOT. AS) ,ACCDAYF3.
 13.22.47.  ENDIF(ACCDAYF3) 
 13.22.47.  PURGE(DAYFTMP/NA) 
 13.22.47. DAYFTMP NOT FOUND. 
 13.22.47.  RETURN(DAYFTMP) 
 13.22.47.  DEFINE(DAYFTMP=DAYFTMP/M=R) 
 13.22.47.  ATTACH(DAYFOLD=DAYFILS/NA)
 13.22.47.  IF, FILE(DAYFOLD, .NOT. AS) ,ACCDAYF3.
 13.22.47.  ENDIF(ACCDAYF3) 
 13.22.47.RETURN(CONVERT) 
 13.22.48.REVERT. ACCDAYF **********************************
 13.22.48.NOTE(IN)+*B *,* 
 13.22.48.LIBEDIT(P=DAYFOLD,B=JOBZZZZ,L=0,I=IN,N=DAYFTMP) 
 13.22.48. EDITING COMPLETE.
 13.22.49.BEGIN(ACCESS,INSTALL,DAYFILS,M=RETURN)
 13.22.49.REVERT(EX)CONVERT(MFT=R1G+) 
 13.22.49.CONVERT(MFT=R1G+) 
 13.22.50.    BEGIN(ACCDAYF,INSTALL,M=RETURN) 
 13.22.50.*************** A C C D A Y F ********************
 13.22.50.  PURGE(DAYFOLD/NA) 
 13.22.50. DAYFOLD NOT FOUND. 
 13.22.50.  RETURN(DAYFTMP,DAYFOLD) 
 13.22.50.  CHANGE(DAYFOLD=DAYFILS,DAYFILS=DAYFTMP) 
 13.22.50.  PURGE(DAYFOLD/NA) 
 13.22.50.  RETURN(DAYFLOC) 
 13.22.50.RETURN(CONVERT) 
 13.22.51.REVERT. ACCDAYF **********************************
 13.22.51.ENQUIRE(OP=R,O=JSTATUS) 
 13.22.51. ENQUIRY COMPLETE.
 13.22.51.NOTE(IN)+L:/UP TIME/;*+END
 13.22.51.EDIT(JOBZZZZ,I=IN,L=JSTATUS)
 13.22.51.PACK(JSTATUS) 
 13.22.51. PACK COMPLETE. 
 13.22.52.BEGIN(ACCESS,INSTALL,JOBSTAT,M=W) 
 13.22.52.REVERT(EX)CONVERT(MFT=R1G+) 
 13.22.52.CONVERT(MFT=R1G+) 
 13.22.53.    BEGIN(ACCJOBS,INSTALL,M=W)
 13.22.53.*************** A C C J O B S ********************
 13.22.53.RETURN(JOBSTAT) 
 13.22.53.  ATTACH(JOBSTAT=JOBSTAT/M=W,NA)
 13.22.53.  IF, FILE(JOBSTAT, .NOT. AS) ,ACCJOBS2.
 13.22.53.  ENDIF(ACCJOBS2) 
 13.22.53.RETURN(CONVERT) 
 13.22.53.REVERT. ACCJOBS **********************************
 13.22.54.SKIPEI(JOBSTAT) 
 13.22.54.COPYBR(JSTATUS,JOBSTAT) 
 13.22.54. COPY COMPLETE. 
 13.22.54. END. 0 FILES; 1 RECORD; 54 WORDS.
 13.22.54.RETURN(JOBSTAT,JSTATUS,JOBZZZZ) 
 13.22.54.REVERT. JOBEND ***********************************
 13.22.54.ENDIF(SUBPROC1) 
 13.22.55.IF, (EF.NE.0) ,CHECKEF. 
 13.22.55.ENDIF(CHECKEF)
 13.22.55.REVERT.  SUBPROC.  FTN5 COMPLETE. 
 13.22.55.EXIT. 
 13.22.55.UEAD,      0.004KUNS. 
 13.22.55.UEPF,      0.401KUNS. 
 13.22.55.UEMT,     39.480KUNS. 
 13.22.55.UEMS,    561.455KUNS. 
 13.22.55.UECP,    533.521SECS. 
 13.22.55.AESR,   1112.572UNTS. 
 13.22.55.$OUT(*/OP=E)
 13.22.55. NO FILES PROCESSED.
 13.22.55.$UNLOAD(*/OP=O) 
 13.22.55. NO FILES PROCESSED.
 13.22.55.$DAYFILE(OUTPUT,JT=D) 
 13.33.30.UCLP, 01, 031,    263.168KLNS.
